Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dfkcb.seq
There are no other files named dfkcb.seq in the archive.
;DFKCB
SEQ 0001
IDENTIFICATION
--------------
PRODUCT CODE: AH-F468A-DD
DIAGNOSTIC CODE: DFKCB
PRODUCT NAME: DFKCBA0 DECSYSTEM10 KL10 ADVANCED
INSTRUCTION DIAGNOSTIC #2
(DOUBLE PRECISION)
VERSION: 0.1
DATE RELEASED: SEPTEMBER 1979
MAINTAINED BY: DIAGNOSTIC ENGINEERING
AUTHOR: JOHN R. KIRCHOFF
COPYRIGHT (C) 1979
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-DFKCB.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-DFKCB.TXT
PAGE 3 SEQ 0003
1.0 ABSTRACT
THIS DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC IS THE
SECOND IN A SERIES OF DECSYSTEM KL10 ADVANCED PROCESSOR
DIAGNOSTICS.
THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR
AND MICRO-CODE DOUBLE PRECISION FIXED POINT INSTRUCTIONS:
DADD, DSUB, DMUL, DDIV.
2.0 REQUIREMENTS
2.1 EQUIPMENT
A DECSYSTEM KL10 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY
CONSOLE PROCESSOR
CONSOLE TELETYPE
LOAD DEVICE
2.2 STORAGE
THE PROGRAM RUNS WITHIN 32K OF MEMORY.
2.3 PRELI MINARY PROGRAMS
PREVIOUS PROCESSOR DIAGNOSTICS
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
****** NOTE ******
THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM KL10 SUBROUTINE
PROGRAM BE RESIDENT IN THE DECSYSTEM KL10.
FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES.
MAINDEC-10-DFKCB.TXT
PAGE 4 SEQ 0004
3.2 STARTING PROCEDURE
A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO
4.0 DATA SWITCH FUNCTIONS).
B. EXEC MODE
STAND-ALONE STARTING ADDRESS IS 30000.
C. USER MODE
RUN UNDER "DIAMON".
THE FOLLOWING QUESTIONS WILL BE ASKED TO SELECT THE
OPERATIONAL SWITCHES:
TELETYPE SWITCH CONTROL ? 0,S OR Y (CR) -
IF THE OPERATOR TYPES "Y", THE FOLLOWING QUESTIONS
ARE ASKED AND THE OPERATOR RESPONDS BY TYPING THE
ANSWER AS SIX OCTAL DIGITS REPRESENTING THE DESIRED
SWITCH SETTINGS.
SPECIFY LH SWITCHES IN OCTAL-
SPECIFY RH SWITCHES IN OCTAL-
IF THE OPERATOR TYPES "0", ZERO'S ARE USED FOR
THE SWITCH SETTINGS.
IF THE OPERATOR TYPES "S", PREVIOUSLY SET SWITCHES
ARE USED. THIS IS ONLY VALID UPON RESTARTING OF AN
INTERRUPTED PROGRAM.
MAINDEC-10-DSKCE.TXT
PAGE 5 SEQ 0005
3.3 OPERATING PROCEDURE
A. TO THROUGHLY TEST ALL HARDWARE, ALL TEST CONTROL DATA
SWITCHES SHOULD BE SET TO 0.
B. WHEN DEBUGGING HARDWARE, SET SWITCHES TO 0. ALLOW THE
TELETYPE TO PRINT THE ERROR MESSAGES. THIS ALLOWS THE
PROGRAM TO RUN A COMPLETE PASS AND THEN THE ERROR MESSAGES
MAY BE CORRELATED TO QUICKLY DIAGNOSE THE FAILURE. IF A
HARDWARE PROBLEM IS SUCH THAT THE ERROR MESSAGES, AFTER THE
FIRST ONE, HAVE NO MEANING (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-DFKCB.TXT
PAGE 6 SEQ 0006
4.0 DATA SWITCH FUNCTIONS
SWITCH STATE FUNCTION
------ ----- --------
0 ABORT 0 NORMAL OPERATION
1 ABORT AT END OF PASS
1 RSTART NOT USED
2 TOTALS NOT USED
3 NOPNT 0 NORMAL TYPEOUT
1 INHIBIT ALL PRINT/TYPEOUT
(EXCEPT FORCED)
4 PNTLPT 0 NORMAL OUTPUT TO TTY
1 PRINT ALL DATA ON LPT
(LOGICAL DEVICE, USER MODE)
5 DING 0 NO FUNCTION
1 RING TTY BELL ON ERROR
6 LOOPER 0 PROCEED TO NEXT TEST
1 ENTER SCOPE LOOP ON TEST ERROR
7 ERSTOP 0 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 NOT USED
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 ALLOW CACHE USE
1 INHIBIT CACHE
MAINDEC-10-DFKCB.TXT
PAGE 7 SEQ 0007
5.0 ERRORS
ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THE ERROR PRINTOUT
CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, ERROR NUMBER AND
THE CONTENTS OF AN APPLICABLE AC.
THE PC VALUE IS USEFUL IN RELATING THE FAILURE TO THE LISTING.
THE ERROR NUMBER IS PROVIDED SUCH THAT AN ERROR DICTIONARY MAY
BE MADE AT SOME FUTURE DATE.
IF AN AUDIO INDICATION OF A CONTINUING ERROR IS DESIRED THE 'DING'
SWITCH MAY BE SET.
6.0 ITERATION COUNTER
THE ITERATION COUNT OF THE PROGRAM IS PRINTED BY THE CONSOLE PROCESSOR.
7.0 CYCLE TIME
THE CYCLE TIME OF THE PROGRAM IS IN THE MILLISECOND RANGE AND IS
THEREFORE SUITABLE FOR TAKING MARGINS, VIBRATION TESTS, ETC.
MAINDEC-10-DFKCB.TXT
PAGE 8 SEQ 0008
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.
B. USER MODE
TO OUTPUT THE PRINTED ERROR MESSAGES TO A USER SPECIFIED
DEVICE IN USER MODE, ASSIGN THE DESIRED OUTPUT DEVICE TO
DEVICE NAME 'DEV' AND SET SWITCH 'PNTLPT'. THE PHYSICAL
DEVICE USED CAN BE ANY DEVICE THAT CAN ACCEPT ASCII OUTPUT
FORMAT SUCH AS LPT, DSK, DTA, ETC. THE CORRESPONDING
OUTPUT FILE IS 'DFKCB.LPT'
EXAMPLE DEVICE ASSIGNMENT:
.ASSIGN DSK DEV
IN USER MODE THE PROGRAM WILL MAKE 10(8) PASSES AND THEN
RETURN TO SMMON COMMAND MODE.
MAINDEC-10-DFKCB.TXT
PAGE 9 SEQ 0009
8.0 OPERATIONAL VARIATIONS (CON'T)
THE OUTPUT FILE (IF USED) MAY THEN BE LISTED BY USING THE
NORMAL MONITOR COMMANDS (PRINT, LIST, TYPE, PIP, ETC.).
IF THE PROGRAM IS ABORTED BEFORE COMPLETION (BY ^C, ETC.) THE
OUTPUT FILE MAY BE CLOSED BY USING THE MONITOR 'REENTER'
COMMAND.
C. SYSTEM EXERCISER
START ADDRESS IS 30003. DATA SWITCHES ARE PRESTORED IN
'SWTEXR' LOC 30023.
9.0 MISCELLANEOUS
THE NON-EX-MEMORY AND PARITY STOP SWITCHES SHOULD BE RESET
(0). THESE ERRORS, ILLEGAL UUO'S AND OTHER ERRORS OF THIS
TYPE ARE HANDLED BY PRINTOUT ON THE TELETYPE.
10.0 LISTING
HISTORY FILE FOR DFKCB
SEQ 0010
---------------------------------------------------------------
CODE: MAINDEC-10-DFKCB
TITLE: DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2
DOUBLE PRECISION
VERSION: 0.1
DATE: SEPTEMBER 1979
AUTHOR: JOHN R. KIRCHOFF
REASON: INITIAL RELEASE FOR THE KL10.
---------------------------------------------------------------
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 1
SEQ 0011
DOCUMENT
**************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1
**************
COPYRIGHT 1979
DIGITAL EQUIPMENT CORPORATION
MAYNARD, MASS. 01754
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 2
SEQ 0012
TABLE OF CONTENTS
*******************
28 ASSEMBLY TIME PARAMETERS
73 MACROS
285 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
320 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
526 ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979
564 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
892 INITIALIZATION SECTION
931 DADD - TEST A
1121 DADD - TEST B
1627 DADD - TEST C
1680 DADD - TEST D
1739 DADD - TEST E
2083 DADD - TEST F
3761 DADD - TEST G
4240 DSUB - TEST A
4404 DSUB - TEST B
4554 DSUB - TEST C
5632 DSUB - TEST D
6121 DMUL - TEST A
6384 DMUL - TEST B
6624 DMUL - TEST C
7191 DMUL - TEST D
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 3
SEQ 0013
TABLE OF CONTENTS
*******************
7762 DMUL - TEST E (OVERFLOW)
7813 DMUL - TEST F - TEST NEGATIVE OPERANDS
7934 DMUL - TEST G
8594 DDIV - TEST A
8646 DDIV - TEST B
8696 DDIV - TEST C
9190 DDIV - TEST D
9534 DDIV - TEST E
9997 DDIV - TEST F
10245 DDIV - TEST G
11287 TESTING SUBROUTINES
11462 ADDL ERROR PRINT ROUTINES
11634 *STOR* RESERVED STORAGE, SEPT 18,1979
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 4
SEQ 0014
1 MAINDEC-10-DFKCB
18 COPYRIGHT 1979
DIGITAL EQUIPMENT CORPORATION
MARLBORO, MASS.
22 JOHN R. KIRCHOFF
*****************************************************************
28 ASSEMBLY TIME PARAMETERS
*****************************************************************
31 ACCUMULATOR DEFINITIONS
45 BEGIN PARAMETERS
*****************************************************************
73 MACROS
*****************************************************************
76 PCSAVE - GET AND SAVE PC
86 TFLAG - TEST PC FLAGS SET BY THE PRIOR DADD/DSUB
101 MULT - PERFORM DMUL AND TEST RESULTS
118 MULTF - PERFORM DMUL AND TEST RESULTS & PC FLAGS
139 PDIV - PERFORM DDIV AND TEST RESULTS
157 PDIVF - PERFORM DDIV AND TEST RESULTS & PC FLAGS
179 ODIV - PERFORM DDIV AND TEST RESULTS & PC FLAGS
(HANDLES OVERFLOW/NO DIVIDE CONDITIONS)
205 CHECKA - CHECK RESULTS OF A DADD & DO ERROR HANDLING
(RESULT 'R1' IS PASSED AS THE OCTAL DATA ITSELF)
225 CHECKS - CHECK RESULTS OF A DSUB & DO ERROR HANDLING
(RESULT 'R1' IS PASSED AS THE OCTAL DATA ITSELF)
246 CHECKB - CHECK RESULTS OF A DADD & DO ERROR HANDLING
(RESULT 'R1' IS PASSED AS THE ADDRESS OF THE DATA)
266 CHECKT - CHECK RESULTS OF A DSUB & DO ERROR HANDLING
(RESULT 'R1' IS PASSED AS THE ADDRESS OF THE DATA)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 5
SEQ 0015
*****************************************************************
285 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
*****************************************************************
290 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
*****************************************************************
320 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
*****************************************************************
323 SPECIAL SUBPROGRAM LINKAGES
334 SPECIAL SUBROUTINE FATAL HALTS
USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
*****************************************************************
526 ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979
*****************************************************************
*****************************************************************
564 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
*****************************************************************
*****************************************************************
892 INITIALIZATION SECTION
*****************************************************************
*****************************************************************
931 DADD - TEST A
*****************************************************************
936 DADD - TEST A
0,# + 0,0 = 0,# SIMPLE TESTS TO SEE IF DADD
#,0 + 0,0 = #,0 WORKS AT ALL.
#,# + 0,0 = #,#
0,0 + 0,# = 0,#
0,0 + #,0 = #,0
0,0 + #,# = #,#
0,0 + 0,0 = 0,0
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 6
SEQ 0016
*****************************************************************
1121 DADD - TEST B
*****************************************************************
1125
FLOATING 1 + 0 = FLOATING 1 THESE TESTS ARE DONE FOR A 1 OR
0 + FLOATING 1 = FLOATING 1 A 0 IN BITS 0,34,36,70 OF THE
FLOATING 0 + 0 = FLOATING 0 DOUBLEWORD ADDEND OR AUGEND.
0 + FLOATING 0 = FLOATING 0 THIS WILL TEST THE WORD BOUND-
ARY INTEGRITY OF THE DADD
INSTRUCTION.
1135 REPEAT THE FOLLOWING BLOCK OF CODE 8 TIMES TO STEP DOWN A LIST
OF TEST CASES. THE TEST CASES CONSIST OF 8 DOUBLEWORDS - THE
FIRST 4 FLOAT A 1 ACROSS IN BITS 0,34,36,70; THE SECOND 4 FLOAT
A 0 ACROSS IN BITS 0,34,36,70. THE RESULT SHOULD BE ACS WITH
CONTENTS EQUAL TO THE FLOATING 1/0.
*****************************************************************
1627 DADD - TEST C
*****************************************************************
1631
FLOATING 1 + FLOATING 1 = FLOATING 1 SHIFTED LEFT ONE BIT AT
A TIME ACROSS THE DOUBLEWORD EXCLUDING SIGN BITS AND THE MOST
SIGNIFICANT BIT (WE'RE NOT TESTING OVERFLOW CONDITIONS). THIS
TEST VERIFIES THE ABILITY OF THE DADD TO HANDLE A SINGLE CARRY
PROPAGATED 1 BIT WHETHER IT CROSSES A WORD BOUNDARY OR NOT.
*****************************************************************
1680 DADD - TEST D
*****************************************************************
1683 DADD - TEST D
0,-1 + 0,1 = 1,0 ADDITIONAL TEST TO SEE THAT A
0,1 + 0,-1 = 1,0 CARRY IS PROPAGATED ACROSS WORD
BOUNDARIES.
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 7
SEQ 0017
*****************************************************************
1739 DADD - TEST E
*****************************************************************
1742 DADD - TEST E
FLOATING 0 + 1 = 11111000..
1 + FLOATING 0 = 11111000..
1749 THE NEXT 6 TESTS VERIFY THAT A CARRY IS PROPERLY PROPAGATED
DOWN A WORD. A 1 IS ADDED TO A FLOATING 0 CAUSING THE
CARRY TO RIPPLE DOWN THE WORD. THE RESULT IS VERIFIED AS
1111..110000.... THE FLOATING 0 IS LOCATED IN BITS 34,36,
71 FOR NEGATIVE NUMBERS AND BITS 33,36,70 FOR POSITIVE
NUMBERS. CARRY FLAGS ARE VERIFIED IN ADDITION.
*****************************************************************
2083 DADD - TEST F
*****************************************************************
2086 DADD - TEST F
THE FOLLOWING TESTS VERIFY THAT THE DADD INSTRUCTION HANDLES
THE SIGN OF THE RESULT PROPERLY (COPYING THE SIGN INTO THE
HIGH ORDER BIT OF EACH WORD OF THE DOUBLEWORD RESULT. THE
TESTS ADD VARIOUS COMBINATIONS OF INCONSISTENT SIGNS IN THE
ADDEND AND AUGEND AND VERIFY THAT THE SIGNS OF THE RESULT
ARE CORRECT.
THERE ARE 5 SETS OF TEST: (1) 0 + P/N = P/N
(2) N + N = N
(3) P + P = P
(4) N + P = N
(5) N + P = P
WHERE N-NEGATIVE NUMBER
P-POSITIVE NUMBER
*****************************************************************
3761 DADD - TEST G
*****************************************************************
3764 DADD - TEST G
2**N + (2**70 - 2**N) = 1000... (AROV & CARRY 1 SET)
(2**70 - 2**N) + 2**N = 1000... (AROV & CARRY 1 SET)
-2**N + (-2**70 + 2**N - 1) = 0111... (AROV & CARRY 0 SET)
(-2**70 + 2**N - 1) + -2**N = 0111... (AROV & CARRY 0 SET)
THEST TESTS CHECK THE SETTING OF AROV & CARRY 1 AND AROV &
CARRY 0 FLAGS. CHECKED FOR BITS 0,34,36,70.
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 8
SEQ 0018
3776 THE FOLLOWING SECTION OF CODE IS REPEATED 8 TIMES. THE FIRST
4 TESTS FLOAT A 1 ACROSS A DOUBLEWORD IN BITS 0,35,36,71.
THIS NUMBER IS THEN ADDED TO THE SMALLEST POSITIVE INTEGER
WHICH WILL PRODUCE AN OVERFLOW - THE RESULT IS A DOUBLEWORD
OF 0S WITH 1 IN THE SIGN BIT - WITH OVERFLOW & CARRY 1 SET.
THE NEXT 4 TESTS FLOAT A 0 ACROSS A DOUBLEWORD IN BITS 1,
35,36,71 (A NEGATIVE NUMBER). THIS NUMBER IS ADDED TO THE
SMALLEST NEGATIVE INTEGER WHICH WILL PRODUCE AN OVERFLOW -
THE RESULT IS A DOUBLEWORD OF 1S WITH A 0 IN THE SIGN BIT -
WITH OVERFLOW AND CARRY 0 SET.
THE DOUBLEWORDS USED IN THIS TEST ARE LOCATED IN THE LIST
'CONST2'.
*****************************************************************
4240 DSUB - TEST A
*****************************************************************
4245 DSUB - TEST A
0,# - 0,0 = 0,# GENERAL TESTING TO SEE THAT
#,0 - 0,0 = #,0 DSUB CAN HANDLE DOUBLEWORDS
#,# - 0,0 = #,#
0,0 - 0,# = -(0,#)
0,0 - #,0 = -(#,0)
0,0 - #,# = -(#,#)
*****************************************************************
4404 DSUB - TEST B
*****************************************************************
4407 DSUB - TEST B
TEST ALL PERMUTATIONS OF 0,1,-1 IN THE MINUEND AND
SUBTRAHEND -- TEST:
0,0 - 0,0 0,1 - 0,0 0,-1 - 0,0 ....
0,0 - 0,1 0,1 - 0,1 0,-1 - 0,1 ....
0,0 - 0,-1 0,1 - 0,-1 0,-1 - 0,-1 ....
0,0 - 1,0 .... .... ....
0,0 - 1,1 .... .... ....
0,0 - 1,-1 .... .... ....
0,0 - -1,0 .... .... ....
0,0 - -1,1 .... .... ....
0,0 - -1,-1 .... .... ....
4423 THESE COMBINATIONS TEST THE ABILITY OF THE DSUB TO HANDLE
BORROWS FROM THE NEXT WORD AND SIGNS CHANGING. THE RESULT
IS VERIFIED AND THE PC FLAGS ARE CHECKED TO SEE THAT THEY
ARE SET PROPERLY.
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 9
SEQ 0019
4430 PROCEDURE - (1) SET UP A POINTER 'MINU' TO SEQUENCE THE MINUEND
(2) LOOP ON MINUEND
(3) SET UP A POINTER 'SUBTR' TO SEQUENCE THE SUBTRAHEND
(4) LOOP ON SUBTRAHEND
(5) CALCULATE THE EXPECTED RESULT OF THE DSUB
(6) DO DSUB
(7) COMPARE RESULTS - ACTUAL VS. EXPECTED
(8) TEST FLAGS
(9) CONTINUE AT (4)
*****************************************************************
4554 DSUB - TEST C
*****************************************************************
4557 DSUB - TEST C
THE FOLLOWING TESTS VERIFY THAT THE DSUB INSTRUCTION HANDLES
THE SIGN OF THE RESULT PROPERLY (COPYING THE SIGN INTO THE
HIGH ORDER BIT OF EACH WORD OF THE DOUBLEWORD RESULT. THE
TESTS SUBTRACT VARIOUS COMBINATIONS OF INCONSISTENT SIGNS
IN THE SUBTRAHEND AND MINUEND AND VERIFY THAT THE SIGNS OF
THE RESULT ARE CORRECT.
THERE ARE 5 SETS OF TEST: (1) 0 - P/N = N/P
(2) N - N = P/N
(3) P - P = N/P
(4) N - P = N/P
(5) N - P = N/P
WHERE N-NEGATIVE NUMBER
P-POSITIVE NUMBER
*****************************************************************
5632 DSUB - TEST D
*****************************************************************
5635 DSUB - TEST D
2**N - (-2**70 + 2**N) = 1000... (AROV & CARRY 1 SET)
(-2**70 + 2**N) - 2**N = 1000... (AROV & CARRY 1 SET)
-2**N - (2**70 - 2**N + 1) = 0111... (AROV & CARRY 0 SET)
(2**70 - 2**N + 1) - -2**N = 0111... (AROV & CARRY 0 SET)
5644 THE FOLLOWING SECTION OF CODE IS REPEATED 8 TIMES. THE FIRST
4 TESTS FLOAT A 1 ACROSS A DOUBLEWORD IN BITS 1,35,37,71.
FROM THIS NUMBER IS SUBTRACTED THE SMALLEST (MAGNITUDE)
NEGATIVE INTEGER WHICH WILL PRODUCE AN OVERFLOW - THE RESULT
IS A DOUBLEWORD OF 0'S WITH 1 IN THE SIGN BIT - WITH OVERFLOW
& CARRY 1 SET. THE NEXT 4 TESTS FLOAT A 0 ACROSS A DOUBLE-
WORD IN BITS 1,35,37,71 (A NEG NUMBER). FROM THIS NUMBER IS
SUBTRACTED THE SMALLEST POSITIVE INTEGER WHICH WILL PRODUCE
AN OVERFLOW - THE RESULT IS A DOUBLEWORD OF 1S WITH A 0 IN
THE SIGN BIT - WITH OVERFLOW AND CARRY 0 SET.
THE DOUBLEWORDS USED IN THIS TEST ARE LOCATED IN THE LIST
'SCOND'.
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 10
SEQ 0020
*****************************************************************
6121 DMUL - TEST A
*****************************************************************
6126 DMUL - TEST A
0,# * 0 = 0 0 * 0,# = 0 THESE ARE GENERAL TESTS TO
#,0 * 0 = 0 0 * #,0 = 0 ASCERTAIN THAT THE DMUL CAN
#,# * 0 = 0 0 * #,# = 0 HANDLE DOUBLEWORDS. THE ACS
-1,-# * 0 = 0 0 * -1,-# = 0 WILL CONTAIN THE RESULT ARE
-#,0 * 0 = 0 0 * -#,0 = 0 FILLED WITH GARBAGE AND THE
-#,-# * 0 = 0 0 * -#,-# = 0 RESULT IS CHECKED TO SEE THAT
0,0 * 0 = 0 DMUL PRODUCES A 4-WORD LONG
RESULT IN THE ACS.
*****************************************************************
6384 DMUL - TEST B
*****************************************************************
6387 DMUL - TEST B
0,# * 1 = 0,# THESE TEST THE DMUL ON A SLIGHTLY
#,0 * 1 = #,0 STEEPER GRADIENT. THIS WILL VERIFY
#,# * 1 = #,# THAT THE DMUL HANDLES DOUBLEWORDS AND
-1,-# * 1 = -1,-# A NON-ZERO MULTIPLIER. THESE TESTS ARE
-#,-1 * 1 = -#,-1 REPEATED WITH THE MULTIPLICAND AND THE
-#,-# * 1 = -#,-# MULTIPLIER REVERSED.
*****************************************************************
6624 DMUL - TEST C
*****************************************************************
6627 DMUL - TEST C
0,1777.. * 2 THESE TESTS VERIFY THAT BITS ARE
0,3777.. * 2 SHIFTED ACROSS WORD BOUNDARIES. A WORD
1777..,3777.. * 2 OF ONES IS MULTIPLIED BY A FLOATING 1
3777..,3777.. * 2 WHICH WILL CAUSE A SHIFT ACROSS WORD
0,3777.. * 1,0 BOUNDARIES OR NOT. THE TEST VERIFIES
1,3777.. * 1,0 THAT THE SHIFT IS DONE PROPERLY FOR
3777..,3777.. * 1,0 BOUNDARY CONDITIONS.
0,1777.. * 2,0 IN EACH TEST THE PC FLAGS ARE TESTED
0,3777.. * 2,0 SINCE THERE ARE NO OVERFLOW CONDITIONS
3777..,3777.. * 2,0 THE LEFTMOST BIT OF THE PC SHOULD BE
0 (NO AROV).
THESE TESTS ARE REPEATED WITH MULT-
PLICAND AND MULTIPLIER REVERSED.
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 11
SEQ 0021
*****************************************************************
7191 DMUL - TEST D
*****************************************************************
7194 DMUL - TEST D
7777..,6000.. * 2 THESE TESTS VERIFY THAT BITS ARE
7777..,4000.. * 2 SHIFTED ACROSS WORD BOUNDARIES. A WORD
6000..,4000.. * 2 OF ONES IS MULTIPLIED BY A FLOATING 1
4000..,4000.. * 2 WHICH WILL CAUSE A SHIFT ACROSS WORD
777..,400.. * 1,0 BOUNDARIES OR NOT. THE TEST VERIFIES
..776,400.. * 1,0 THAT THE SHIFT IS DONE PROPERLY FOR
400..,400.. * 1,0 BOUNDARY CONDITIONS.
777..,600.. * 2,0 IN EACH TEST THE PC FLAGS ARE TESTED
777..,400.. * 2,0 SINCE THERE ARE NO OVERFLOW CONDITIONS
400..,400.. * 2,0 THE LEFTMOST BIT OF THE PC SHOULD BE
0 (NO AROV).
THESE TESTS ARE REPEATED WITH MULT-
PLICAND AND MULTIPLIER REVERSED.
*****************************************************************
7762 DMUL - TEST E (OVERFLOW)
*****************************************************************
7765 DMUL - TEST E
-2^70 * -2^70 THIS IS THE ONLY CASE THAT CAN SET
THE AROV FLAG. THIS TEST VERIFIES THE
RESULT AND CHECKS THE SETTING OF THE
AROV FLAG.
------- MULTIPLICAND = (4000...,4000...)
------- MULTIPLIER === (4000...,4000...)
------- RESULT ======= (4000...,4000...,4000...,4000...)
*****************************************************************
7813 DMUL - TEST F - TEST NEGATIVE OPERANDS
*****************************************************************
7816 DMUL - TEST F
-2 * -3 THESE TESTS VERIFY THAT THE DMUL HANDLES
-2,0 * -3 THE SIGNS PROPERLY WHEN MULTIPLYING
-2 * -3,0 OPERANDS WHICH ARE BOTH NEGATIVE. TESTS
-2,0 * -3,0 B,C,D TESTED THE COMBINATIONS POS*POS,
POS*NEG AND NEG*POS BUT NOT NEG*NEG. THE
AROV FLAG IS ALSO TESTED TO ASCERTAIN
THAT IT WAS NOT SET.
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 12
SEQ 0022
*****************************************************************
7934 DMUL - TEST G
*****************************************************************
7937 DMUL - TEST G
2 * 3 2,0 * 3,0 THESE TESTS MULTIPLY NUMBERS WHICH HAVE
2 * -3 2,0 * -3,0 INCONSISTENT SIGNS AMONGST THE WORDS OF
-2 * 3 -2,-1 * 3,0 EACH OPERAND. THE FLAGS IS ALSO TESTED
-2 * -3 -2,-1 * -3,0 TO VERIFY THAT IT IS NOT SET.
*****************************************************************
8594 DDIV - TEST A
*****************************************************************
8599 DDIV - TEST A
(0,0,0,#) / 1 THESE BASIC TESTS VERIFY THAT THE DDIV
(0,0,#,0) / 1 HANDLES A QUADRUPLE WORD DIVIDEND. FOR
EACH TEST ALL PERMUTATIONS OF POSITIVE
AND NEGATIVE OPERANDS ARE TESTED.
*****************************************************************
8646 DDIV - TEST B
*****************************************************************
8649 DDIV - TEST B
(0,0,0,#) / # THESE TESTS PERFORM SOME CASES MORE
(0,0,#,0) / (#,0) DIFFICULT THAN (A). PERMUTATIONS OF
POSITIVE AND NEGATIVE OPERANDS ARE
TESTED.
*****************************************************************
8696 DDIV - TEST C
*****************************************************************
8699 DDIV - TEST C
(0,0,0,1) (0,0,1,0) (0,0,1,0) (0,1,0,0) (0,1,0,0) (1,0,0,0)
------- ------- ------- ------- ------- -------
2 2 2,0 2 2,0 2,0
THESE TESTS PERFORM DIVISIONS WHICH RESULT IN A SHIFT OF THE
THE DIVIDEND ACROSS WORD BOUNDARIES.
THESE TESTS ARE REPEATED FOR THE VARIOUS PERMUTATIONS OF
POSITIVE AND NEGATIVE OPERANDS.
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 13
SEQ 0023
*****************************************************************
9190 DDIV - TEST D
*****************************************************************
9193 DDIV - TEST D
MISCELLANEOUS TESTING. THESE TESTS DIVIDE 2 NUMBERS AND JUST
CHECK TO SEE THAT THE DDIV GETS THE CORRECT ANSWERS.
*****************************************************************
9534 DDIV - TEST E
*****************************************************************
9537 DDIV - TEST E
-4/-2 -4/2 4/-2 4/2
(-3,0,0,0)/(-6,0) (-3,0,0,0)/(6,0) 3/-6 3/6
THESE TESTS VERIFY THAT THE DDIV HANDLES THE SIGN OF ITS
OPERANDS PROPERLY. THE SIGN BITS OF THE LOW ORDER WORDS ARE
INITIALLY DIFFERENT FROM THE HIGH ORDER WORD. THE SIGN SHOULD
BE FORMED CORRECTLY IN SPITE OF THAT.
*****************************************************************
9997 DDIV - TEST F
*****************************************************************
10000 DDIV - TEST F
1,0,0,0 -1,0,0,0 0,-1,-1,-1 -1,0,0,1
------- -------- ---------- --------
1,1 1,1 1,0 1,0
1,0,0,0 -1,0,0,0 0,-1,-1,-1 -1,0,0,1
------- -------- ---------- --------
-2,-1 -2,-1 -1,0 -1,0
THESE TESTS VERIFY THAT THE DDIV WILL NOT GENERATE AN
OVERFLOW AND NO DIVIDE CONDITION WHEN THE DIVISOR IS
JUST LARGE ENOUGH TO NOT CAUSE ONE.
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 14
SEQ 0024
*****************************************************************
10245 DDIV - TEST G
*****************************************************************
10248 DDIV - TEST G
1 1,0 1,0,0 1,0,0,0 -1
- --- ----- ------- -
0 0 0 0 0
1,0,0 1,0,0 1,0,0,0 1,0,0,0
----- ----- ------- -------
1 -1 1 -1
-1,0,0 -1,0,0 -1,0,0,0 -1,0,0,0
------ ------ -------- --------
1 -1 1 -1
1,0,0,0 1,0,0,0 -1,0,0,0 -1,0,0,0
------- ------- -------- --------
1,0 -1,0 1,0 -1,0
0,-1,-1,-1 0,-1,-1,-1 -1,0,0,1 -1,0,0,1
---------- ---------- -------- --------
0,-1 -1,1 0,-1 -1,1
1,0,-1,-1 1,0,-1,-1 -2,-1,0,1 -2,-1,0,1
--------- --------- --------- ---------
0,-1 -1,1 0,-1 -1,1
-2^140 2^140-1 2^140-1 -2^70+1,-2^70
------ ------- ------- -------------
-2^70 2^70-1 -2^70+1 2^70-1
THESE TESTS ATTEMPT TO PERFORM VARIOUS DIVISIONS THAT
SHOULD RESULT IN OVERFLOW. THE SETTING OF AROV AND NO
DIVIDE FLAGS IS VERIFIED AND THE DIVIDEND IS CHECKED TO
SEE THAT IT DID NOT CHANGE.
ALSO TRY A FEW WITH INCONSISTENT SIGNS IN THE LEAST
SIGNIFICANT WORDS OF THE DIVIDEND AND DIVISOR JUST TO MAKE
SURE THAT THE DIVIDEND DOES NOT CHANGE ON ANY CONDITION.
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 15
SEQ 0025
*****************************************************************
11287 TESTING SUBROUTINES
*****************************************************************
11290 MSUBR - SUBROUTINE TO DO MULTIPLICATION CALCULATIONS
ARGUMENTS: MCAND - CONTAINS MULTIPLICAND
MPLIER - CONTAINS MULTIPLIER
MRES - CONTAINS THE EXPECTED RESULT
11338 PSUBR - SUBROUTINE TO DO DIVISION CALCULATIONS
ARGUMENTS: PDEND - CONTAINS DIVIDEND
PISOR - CONTAINS DIVISOR
PRES - CONTAINS THE EXPECTED RESULT
11386 OSUBR - SUBROUTINE TO DO DIVISION CALCULATIONS
ARGUMENTS: ODEND - CONTAINS DIVIDEND
OISOR - CONTAINS DIVISOR
NOTE: WHEN ENCOUNTERING A OVERFLOW/NO DIVIDE SITUATION THE PROCESSOR
ENSURES THAT THE OPERANDS DO NOT CHANGE. THE KL10 ENSURES
THAT NEITHER THE MAGNITUDE PORTION NOR THE SIGN BITS CHANGE.
THE KS10 ENSURES THAT THE MAGNITUDE PORTION OF EITHER WORD
DOES NOT CHANGE - HOWEVER, IT ONLY PROTECTS THE SIGN BIT OF
THE MOST SIGNIFICANT WORD. THE SIGN BIT OF THE OTHER WORD
IS INDETERMINATE. THIS TEST CHECKS TO FIND OUT WHAT TYPE OF
PROCESSOR WE HAVE AND WILL MODIFY THE TEST FOR A KS10.
THE ABOVE WAS NOTICED WHEN RUNNING THE DIAGNOSTIC ON THE KS10
AFTER DEBUGGING ON A KL10. ACCORDING TO DON LEWINE, THIS WAS
DONE TO SAVE SPACE IN THE KS10 MICROCODE.
*****************************************************************
11462 ADDL ERROR PRINT ROUTINES
*****************************************************************
11465 APRINT - ADDITION ERROR PRINTER
11502 SPRINT - SUBTRACTION ERROR PRINTER
11539 MPRINT - MULTIPLICATION ERROR PRINTER
11582 DPRINT - DIVIDE ERROR PRINTER
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 DECDOC VER 00.24 26-SEP-79 16:47:50 PAGE 16
SEQ 0026
*****************************************************************
11634 *STOR* RESERVED STORAGE, SEPT 18,1979
*****************************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1
DFKCBT MAC 26-Sep-79 16:23 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979 SEQ 0027
1 ;*MAINDEC-10-DFKCB
2
3 000000 MCNVER=0
4 000001 DECVER=1
5
6 XLIST
7 LIST
8 LALL
9
10 NAME \MCNVER,\DECVER^
11
12 TITLE DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1
13 ^
14
15 000137 LOC 137
16 000137 000000 000001 MCNVER,,DECVER
17
18 ;*COPYRIGHT 1979
19 ;*DIGITAL EQUIPMENT CORPORATION
20 ;*MARLBORO, MASS.
21
22 ;*JOHN R. KIRCHOFF
23
24 SEARCH MONSYM
25 NOSYM
26
27 IF2,<PRINTX [STARTING PASS 2]>
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 2
DFKCBT MAC 26-Sep-79 16:23 ASSEMBLY TIME PARAMETERS SEQ 0028
28 SUBTTL ASSEMBLY TIME PARAMETERS
29
30 ; **********************************************************************
31 ;*ACCUMULATOR DEFINITIONS
32 ; **********************************************************************
33
34 000001 AC1=1 ;AC,AC+1,AC+2,AC+3 - CONTAIN OPERANDS USED
35 ; BY DADD,DSUB,DMUL,DDIV
36
37 000011 CNT=11 ;COUNT AC
38
39 000012 SCR0=12 ;SCRATCH ACS USED IN THE ADDL ERROR PRINT
40 000013 SCR1=SCR0+1 ; ROUTINE
41 000014 SCR2=SCR0+2
42 000015 SCR3=SCR0+3
43
44 ; **********************************************************************
45 ;*BEGIN PARAMETERS
46 ; **********************************************************************
47
48 030624 SADR1=STARTA
49 030624 SADR2=STARTA
50 030623 SADR3=START
51 030007 SADR4=SRTDDT
52 030624 SADR5=STARTA
53 040724 SADR6=PHALT
54 254200 030000 SADR7=HALT BEGIN
55 254200 030000 SADR8=HALT BEGIN
56 254200 030000 SADR9=HALT BEGIN
57 254200 030000 SADR10=HALT BEGIN
58 254200 030000 SADR11=HALT BEGIN
59 000010 ITERAT=10
60 000000 PAREA1=0
61 000000 PAREA2=0
62 444653 434200 PAREA3=SIXBIT/DFKCB/
63 546364 000000 PAREA4=SIXBIT/LST/
64 000000 PAREA5=0
65 000000 PAREA6=0
66
67 000001 KL10==1
68 000001 KL10P0==1
69 000001 PGMEND==1
70 000001 EXCASB==1
71 000001 USRASB==1
72 000030 DEBUG==30
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 3
DFKCBT MAC 26-Sep-79 16:23 MACROS SEQ 0029
73 SUBTTL MACROS
74
75 ; **********************************************************************
76 ;*PCSAVE - GET AND SAVE PC
77 ; **********************************************************************
78
79 DEFINE PCSAVE<
80 JSR .+1 ;STORE PC
81 FLAGL=. ;LOCATION OF PC
82 0 ;PC
83 >
84
85 ; **********************************************************************
86 ;*TFLAG - TEST PC FLAGS SET BY THE PRIOR DADD/DSUB
87 ; **********************************************************************
88
89 DEFINE TFLAG (FLGGS,TT,ADDR<APRINT>,LOC<LOC>)<
90
91 MOVE SCR1,FLAGL ;GET FLAGS
92 MOVE SCR2,FLGGS ;SCR2 - CORRECT FLAGS
93 SKIPN USER ;EXEC MODE ?
94 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
95 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
96 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
97 ERROR (LOC,13,SCR2,FLAGL,,^_
98 TEST 'TT' - PC FLAGS INCORRECT (LEFT 4 BITS),ADDR)
99 >
100 ; **********************************************************************
101 ;*MULT - PERFORM DMUL AND TEST RESULTS
102 ; **********************************************************************
103
104 DEFINE MULT (T,A1<0>,A2<0>,E1<0>,E2<0>,R1<0>,R2<0>,R3<0>,R4<0>,%BEGIN)<
105
106 ; --- MULTIPLICAND = (A1,A2)
107 ; --- MULTIPLIER === (E1,E2)
108 ; --- RESULT ======= (R1,R2,R3,R4)
109
110 %BEGIN: MOVE AC1,[[EXP A1,A2,E1,E2,R1,R2,R3,R4],,MCAND]
111 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
112 GO MSUBR ;GO DO TEST
113 ERROR (%BEGIN,14,SCR1,SCR2,,^_
114 TEST 'T' - RESULT CALCULATED INCORRECTLY,MPRINT)
115 >
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 4
DFKCBT MAC 26-Sep-79 16:23 MACROS SEQ 0030
116
117 ; **********************************************************************
118 ;*MULTF - PERFORM DMUL AND TEST RESULTS & PC FLAGS
119 ; **********************************************************************
120
121 DEFINE MULTF (T,A1<0>,A2<0>,E1<0>,E2<0>,R1<0>,R2<0>,R3<0>,R4<0>,%BEGIN,%TSTPC)<
122
123 ; --- MULTIPLICAND = (A1,A2)
124 ; --- MULTIPLIER === (E1,E2)
125 ; --- RESULT ======= (R1,R2,R3,R4)
126
127 %BEGIN: MOVE AC1,[[EXP A1,A2,E1,E2,R1,R2,R3,R4],,MCAND]
128 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
129 GO MSUBR ;GO DO TEST
130 ERROR (%BEGIN,14,SCR1,SCR2,,^_
131 TEST 'T' - RESULT CALCULATED INCORRECTLY,MPRINT)
132
133 %TSTPC: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
134 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
135 ERROR (%BEGIN,13,SCR2,MFLOC,,^_
136 TEST 'T' - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)
137 >
138 ; **********************************************************************
139 ;*PDIV - PERFORM DDIV AND TEST RESULTS
140 ; **********************************************************************
141
142 DEFINE PDIV (T,A1,A2,A3,A4,E1,E2,R1<0>,R2<0>,R3<0>,R4<0>,%BEGIN)<
143
144 ; --- DIVIDEND == (A1,A2,A3,A4)
145 ; --- DIVISOR === (E1,E2)
146 ; --- QUOTIENT == (R1,R2)
147 ; --- REMAINDER = (R3,R4)
148
149 %BEGIN: MOVE AC1,[[EXP A1,A2,A3,A4,E1,E2,R1,R2,R3,R4],,PDEND]
150 BLT AC1,PRES+3 ;SET UP OPERANDS
151 GO PSUBR ;GO DO TEST
152 ERROR (%BEGIN,14,SCR1,SCR2,,^_
153 TEST 'T' - QUOTIENT/REMAINDER INCORRECT,DPRINT)
154 >
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 5
DFKCBT MAC 26-Sep-79 16:23 MACROS SEQ 0031
155
156 ; **********************************************************************
157 ;*PDIVF - PERFORM DDIV AND TEST RESULTS & PC FLAGS
158 ; **********************************************************************
159
160 DEFINE PDIVF (T,A1,A2,A3,A4,E1,E2,R1<0>,R2<0>,R3<0>,R4<0>,%BEGIN,%TSTPC)<
161
162 ; --- DIVIDEND == (A1,A2,A3,A4)
163 ; --- DIVISOR === (E1,E2)
164 ; --- QUOTIENT == (R1,R2)
165 ; --- REMAINDER = (R3,R4)
166
167 %BEGIN: MOVE AC1,[[EXP A1,A2,A3,A4,E1,E2,R1,R2,R3,R4],,PDEND]
168 BLT AC1,PRES+3 ;SET UP OPERANDS
169 GO PSUBR ;GO DO TEST
170 ERROR (%BEGIN,14,SCR1,SCR2,,^_
171 TEST 'T' - QUOTIENT/REMAINDER INCORRECT,DPRINT)
172
173 %TSTPC: MOVE SCR2,PFLOC ;GET PC
174 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
175 ERROR (%BEGIN,13,SCR2,PFLOC,,^_
176 TEST 'T' - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)
177 >
178 ; **********************************************************************
179 ;*ODIV - PERFORM DDIV AND TEST RESULTS & PC FLAGS
180 ;* (HANDLES OVERFLOW/NO DIVIDE CONDITIONS)
181 ; **********************************************************************
182
183 DEFINE ODIV (A1,A2,A3,A4,E1,E2,%BEGIN,%TSTPC)<
184
185 ; --- DIVIDEND == (A1,A2,A3,A4)
186 ; --- DIVISOR === (E1,E2)
187 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
188
189 %BEGIN: MOVE AC1,[[EXP A1,A2,A3,A4,E1,E2],,ODEND]
190 BLT AC1,ORES-1 ;SET UP OPERANDS
191 GO OSUBR ;GO DO TEST
192 ERROR (%BEGIN,14,SCR1,SCR2,,^_
193 TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)
194
195 %TSTPC: MOVE SCR2,OFLOC ;GET PC
196 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
197 SKIPN USER ;EXEC MODE ?
198 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
199 CAME SCR2,OFLOC ;PC CORRECT?
200 ERROR (%BEGIN,13,SCR2,OFLOC,,^_
201 TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)
202 >
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 6
DFKCBT MAC 26-Sep-79 16:23 MACROS SEQ 0032
203
204 ; **********************************************************************
205 ;*CHECKA - CHECK RESULTS OF A DADD & DO ERROR HANDLING
206 ;* (RESULT 'R1' IS PASSED AS THE OCTAL DATA ITSELF)
207 ; **********************************************************************
208
209 DEFINE CHECKA (LOC,T,R1< 0>,R2< 0>,%ERROR,%END)<
210
211 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
212 CAME AC1,[R1] ;IS LEFT HALF OF RESULT CORRECT?
213 JRST %ERROR ;NO - GO TO ERROR HANDLING
214 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
215 CAMN AC1+1,[R2] ;IS RIGHT HALF CORRECT?
216 JRST %END+1 ;YES - DONT DO ERROR HANDLING
217 ; EXCEPT FOR ERLOOP
218
219 %ERROR: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
220 MOVE SCR1,[EXP R1,R2](SCR1) ;GET CORRECT RESULT
221 %END: ERROR (LOC,14,SCR1,SCR2,,^_
222 TEST 'T' - RESULT IS INCORRECT,APRINT)
223 >
224 ; **********************************************************************
225 ;*CHECKS - CHECK RESULTS OF A DSUB & DO ERROR HANDLING
226 ;* (RESULT 'R1' IS PASSED AS THE OCTAL DATA ITSELF)
227 ; **********************************************************************
228
229 DEFINE CHECKS (LOC,T,R1< 0>,R2< 0>,%ERROR,%END)<
230
231 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
232 CAME AC1,[R1] ;IS LEFT HALF OF RESULT CORRECT?
233 JRST %ERROR ;NO - GO TO ERROR HANDLING
234 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
235 CAMN AC1+1,[R2] ;IS RIGHT HALF CORRECT?
236 JRST %END+1 ;YES - DONT DO ERROR HANDLING
237 ; EXCEPT FOR ERLOOP
238
239 %ERROR: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
240 MOVE SCR1,[EXP R1,R2](SCR1) ;GET CORRECT RESULT
241 %END: ERROR (LOC,14,SCR1,SCR2,,^_
242 TEST 'T' - RESULT IS INCORRECT,SPRINT)
243 >
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 7
DFKCBT MAC 26-Sep-79 16:23 MACROS SEQ 0033
244
245 ; **********************************************************************
246 ;*CHECKB - CHECK RESULTS OF A DADD & DO ERROR HANDLING
247 ;* (RESULT 'R1' IS PASSED AS THE ADDRESS OF THE DATA)
248 ; **********************************************************************
249
250 DEFINE CHECKB (LOC,T,R1,%ERROR,%END)<
251
252 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
253 CAME AC1,R1 ;IS LEFT HALF OF RESULT CORRECT?
254 JRST %ERROR ;NO - GO TO ERROR HANDLING
255 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
256 CAMN AC1+1,R1+1 ;IS RIGHT HALF CORRECT?
257 JRST %END+1 ;YES - DONT DO ERROR HANDLING
258 ; EXCEPT FOR ERLOOP
259
260 %ERROR: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
261 MOVE SCR1,R1(SCR1) ;GET CORRECT WORD OF RESULT
262 %END: ERROR (LOC,14,SCR1,SCR2,,^_
263 TEST 'T' - RESULT IS INCORRECT,APRINT)
264 >
265 ; **********************************************************************
266 ;*CHECKT - CHECK RESULTS OF A DSUB & DO ERROR HANDLING
267 ;* (RESULT 'R1' IS PASSED AS THE ADDRESS OF THE DATA)
268 ; **********************************************************************
269
270 DEFINE CHECKT (LOC,T,R1,%ERROR,%END)<
271
272 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
273 CAME AC1,R1 ;IS LEFT HALF OF RESULT CORRECT?
274 JRST %ERROR ;NO - GO TO ERROR HANDLING
275 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
276 CAMN AC1+1,R1+1 ;IS RIGHT HALF CORRECT?
277 JRST %END+1 ;YES - DONT DO ERROR HANDLING
278 ; EXCEPT FOR ERLOOP
279
280 %ERROR: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
281 MOVE SCR1,R1(SCR1) ;GET CORRECT WORD OF RESULT
282 %END: ERROR (LOC,14,SCR1,SCR2,,^_
283 TEST 'T' - RESULT IS INCORRECT,SPRINT)
284 >
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1
PARAM KLM 18-Sep-79 17:16 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979 SEQ 0034
285 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
286
287 DEFINE S,<; *********************************************************************>
288
289 ; **********************************************************************
290 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
291 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
292 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
293 ; **********************************************************************
294
295 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
296 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
297 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
298
299 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
300 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
301 010000 DING== 010000 ;RING BELL ON ERROR
302
303 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
304 002000 ERSTOP==002000 ;HALT ON TEST ERROR
305 001000 PALERS==001000 ;PRINT ALL ERRORS
306
307 000400 RELIAB==000400 ;RELIABILITY MODE
308 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
309 000100 INHPAG==000100 ;INHIBIT PAGING
310
311 000040 MODDVC==000040 ;MODIFY DEVICE CODE
312 000020 INHCSH==000020 ;INHIBIT CACHE
313 000010 OPRSEL==000010 ;OPERATOR SELECTION
314
315 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
316
317 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER
318
319 ;SWITCH 17 RESERVED !!!
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 2
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0035
320 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
321
322 ; **********************************************************************
323 ;*SPECIAL SUBPROGRAM LINKAGES
324 ; **********************************************************************
325
326 027772 FSELNK= 27772 ;FILE SELECT LINK
327 027773 FRDLNK= 27773 ;FILE READ LINK
328 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
329 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
330 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
331 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
332
333 ; **********************************************************************
334 ;*SPECIAL SUBROUTINE FATAL HALTS
335 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
336 ; **********************************************************************
337
338 ;ADDRESS TAG REASON
339 ;---------------------
340
341 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
342 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
343 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
344 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
345 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL
346 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
347 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
348 ; 1017 EOPERR ;END OF PROGRAM ERROR
349 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
350
351 ; **********************************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 3
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0036
352 ; **********************************************************************
353 ;OPERATOR DEFINITIONS (NON-UUO'S)
354 ; **********************************************************************
355
356 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
357 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
358 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
359 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
360 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
361 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
362 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
363 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
364
365 ; **********************************************************************
366 ;SUBROUTINE INITIALIZATION CALL
367 ; **********************************************************************
368
369 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
370
371 ; **********************************************************************
372 ;HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
373 ; **********************************************************************
374
375 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
376 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
377
378 ; **********************************************************************
379 ;TERMINAL INPUT UUO'S
380 ;ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
381 ;CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
382 ; **********************************************************************
383
384 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
385 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
386 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
387 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
388 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
389 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
390 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
391 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
392 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
393 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
394 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 4
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0037
395 ;TERMINAL OUTPUT UUO'S.
396
397 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
398 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
399 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
400 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
401 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
402 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
403 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
404 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
405 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
406 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
407 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
408 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
409 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
410 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
411 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
412 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
413 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
414 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
415 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
416 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
417 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
418 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
419 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
420 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
421 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
422 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
423 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
424 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
425 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
426 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
427 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
428 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
429 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
430 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
431 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
432 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
433 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
434 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
435 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
436 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
437 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
438 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 5
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0038
439 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
440 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
441 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
442 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
443 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
444 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
445 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
446 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
447 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
448 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
449 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
450 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
451 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
452
453 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
454
455 DEFINE PMSG (ARG),<
456 PSIXM [SIXBIT\ARG'_\]>
457
458 DEFINE PMSGF (ARG),<
459 PSIXMF [SIXBIT\ARG'_\]>
460
461 ;SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
462 ; CONSERVES CORE OVER ASCIZ
463
464 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
465
466 ;CONSOLE SWITCH INPUT UUO.
467 ;READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
468 ; USER MODE.
469
470 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
471
472 ;CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
473 ;EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
474
475 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK
476 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER
477
478 ;KL10 ONLY CACHE OPERATION UUO'S
479
480 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
481 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
482 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 6
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0039
483 ;END OF PASS/PROGRAM UUOS
484
485 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
486 ;DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
487
488 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
489 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
490
491 ;MEMORY MANAGEMENT UUO'S
492 ;UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
493 ;ADDRESS CONVERSION, ETC...
494
495 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
496 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
497 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
498 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
499 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
500 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
501 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
502
503 ;DEVICE CODE MODIFICATION UUO
504 ;ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
505 ;IOT'S TO A DIFFERENT DEVICE CODE.
506
507 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
508 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
509
510 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
511 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
512
513 ;"DIAMON" FILE SELECTION AND READ UUOS
514
515 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
516 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
517 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
518 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
519
520 ;KI10 ONLY UUO FOR PRINTING MARGIN VALUES
521
522 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE
523
524 XLIST
525 IFNDEF KLOLD,<LIST
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 7
PARAM KLM 18-Sep-79 17:16 ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979 SEQ 0040
526 SUBTTL ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979
527
528 ; **********************************************************************
529 ;ERROR HANDLER PARAMETERS
530 ; **********************************************************************
531
532 036000 000000 OPDEF ERUUO [36B8] ;ERROR CALL UUO
533 035000 000000 OPDEF ERLOOP [35B8] ;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
534 035040 000000 OPDEF ERLP1 [35B8!1B12] ;ERROR LOOP IF PC'S MATCH
535 035100 000000 OPDEF ERLP2 [35B8!2B12] ;ERROR LOOP IF ANY ERROR
536 034000 000000 OPDEF REPTUO [34B8] ;REPEAT LOOP UUO
537
538 ;THE ERROR HANDLER MACROS
539
540 ;A MACRO TO REPORT AN ERROR AND LOOP
541
542 DEFINE ERROR (ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
543 SALL
544 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
545 CORECT,,ACTUAL
546 [SIXBIT\D'_\],,ERR]
547 XALL
548 ERLOOP ADR ;IF ERROR, LOOP TO ADR
549 >
550
551 ;A MACRO TO REPORT AN ERROR AND NOT LOOP
552
553 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)<
554 SALL
555 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
556 CORECT,,ACTUAL
557 [SIXBIT\D'_\],,ERR]
558 XALL>
559
560 >;END OF KLOLD CONDITIONAL
561
562 XLIST
563 LIST
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0041
564 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
565
566 030000 LOC 30000
567
568 ; **********************************************************************
569 ;PROGRAM STARTING ADDRESSES
570 ;THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
571 ;NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
572 ;OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
573 ;MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
574 ; **********************************************************************
575
576 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
577 030001 254 00 0 00 030623 $START: JRST START ;MODE CHECK STARTING ADDRESS
578
579 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
580
581 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
582
583 030004 254 00 0 00 030624 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
584
585 030005 254 00 0 00 030624 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
586
587 030006 254 00 0 00 030623 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
588
589 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
590 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
591
592 030010 254 00 0 00 030624 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
593 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
594 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
595
596 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
597 030014 254200 030000 START2: SADR8 ; "
598 030015 254200 030000 START3: SADR9 ; "
599 030016 254200 030000 START4: SADR10 ; "
600 030017 254200 030000 START5: SADR11 ; "
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 2
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0042
601 ; **********************************************************************
602 ;PROGRAM FIXED PARAMETER AREA
603 ; **********************************************************************
604
605 030020 444653 434200 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
606 030021 546364 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
607 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER
608 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
609 030024 000000 000010 ITRCNT: ITERAT ;PROGRAM ITERATIONS
610 030025 000000 030600 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
611 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
612 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
613 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
614 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
615 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
616 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
617 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
618 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
619 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
620
621 ; **********************************************************************
622 ;PROGRAM VARIABLE PARAMETER AREA
623 ; **********************************************************************
624
625 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
626 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
627 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
628 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
629 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
630 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
631 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
632 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
633 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
634 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
635 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
636 030052 000000 000000 ERRPC: 0 ;ERROR PC
637 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
638 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
639 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
640 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 3
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0043
641 ; **********************************************************************
642 ;SPECIAL PROGRAM DISPATCH ADDRESSES
643 ; **********************************************************************
644
645 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
646 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
647 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
648 030062 000000 030624 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
649 030063 000000 040724 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
650 030064 CPOPJ1: ;SKIP RETURN
651 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
652 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
653 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
654 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
655 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
656 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
657 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
658 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
659 030073 255 00 0 00 000000 $USRHL: JFCL ; "
660 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
661 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
662 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
663 030077 255 00 0 00 000000 RESRT2: JFCL ; "
664 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
665 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
666 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
667
668 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
669 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
670 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
671
672 ; **********************************************************************
673 ;PROCESSOR CONTROL STORAGE
674 ; **********************************************************************
675
676 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
677 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
678 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
679 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
680 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
681
682 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
683 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
684
685 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
686 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
687 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
688 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
689 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
690 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
691 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 4
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0044
692 ; **********************************************************************
693 ;UUO DISPATCH TABLE
694 ; **********************************************************************
695 XLIST
696 LIST
697 030124 030070 030070 UUODIS: LUUO1,,$UUOER
698 030125 030070 030070 LUUO3,,LUUO2
699 030126 030070 030070 LUUO5,,LUUO4
700 030127 030070 030070 LUUO7,,LUUO6
701 030130 030070 030070 LUUO11,,LUUO10
702 030131 030070 030070 LUUO13,,LUUO12
703 030132 030070 030070 LUUO15,,LUUO14
704 030133 030070 030070 LUUO17,,LUUO16
705 030134 030070 030070 LUUO21,,LUUO20
706 030135 030070 030070 LUUO23,,LUUO22
707 030136 030070 030070 LUUO25,,LUUO24
708 030137 030070 030070 LUUO27,,LUUO26
709 030140 030070 030070 LUUO31,,LUUO30
710 030141 030070 030070 LUUO33,,LUUO32
711
712 ; **********************************************************************
713 ;MEMORY MANAGMENT STORAGE
714 ; **********************************************************************
715
716 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
717 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
718 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
719 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
720 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
721
722 ; **********************************************************************
723 ;PRINT CONTROL STORAGE
724 ; **********************************************************************
725
726 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
727 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
728 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
729 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
730 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
731 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
732 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
733 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
734 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
735 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
736 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
737 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
738 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
739 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
740 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
741 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
742 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
743 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
744 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 5
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0045
745 ; **********************************************************************
746 ;THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
747 ;TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
748 ; MOVEI NAME
749 ; PNTA ;OR PNTAF
750 ; **********************************************************************
751
752 030242 CRLF: ASCII/
753 030242 015 012 000 000 000 /
754 030243 CRLF2: ASCII/
755
756 030243 015 012 015 012 000 /
757 030244 054 000 000 000 000 COMMA: ASCII/,/
758 030245 056 000 000 000 000 PERIOD: ASCII/./
759 030246 040 000 000 000 000 SPACE: ASCII/ /
760 030247 011 000 000 000 000 TAB: ASCII/ /
761 030250 MINUS:
762 030250 055 000 000 000 000 HYPEN: ASCII/-/
763 030251 053 000 000 000 000 PLUS: ASCII/+/
764 030252 052 000 000 000 000 AST: ASCII/*/
765 030253 100 000 000 000 000 ATSIN: ASCII/@/
766 030254 050 000 000 000 000 LFP: ASCII/(/
767 030255 051 000 000 000 000 RTP: ASCII/)/
768 030256 007 0000000000 BELL: BYTE (7) 007
769 030257 077 000 000 000 000 QUEST: ASCII/?/
770 030260 057 000 000 000 000 SLASH: ASCII!/!
771 030261 044 000 000 000 000 DOLLAR: ASCII/$/
772 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
773 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
774 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
775
776 ; **********************************************************************
777 ;USER MODE OUTPUT FILE INFORMATION
778 ; **********************************************************************
779
780 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
781 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
782 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
783 030272 BLOCK 2
784
785 ; **********************************************************************
786 ;DISK UPDATE MODE FILE INFORMATION
787 ; **********************************************************************
788
789 030274 $IBUF: BLOCK 3
790 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
791 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
792 030301 BLOCK 2
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 6
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0046
793 ; **********************************************************************
794 ;PUSHDOWN LIST CONTROL INFORMATION
795 ; **********************************************************************
796
797 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
798 030304 PLISTS: BLOCK 200
799 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
800
801 ; **********************************************************************
802 ;POWER LINE CLOCK FREQUENCY FLAG
803 ; **********************************************************************
804
805 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
806
807 ; **********************************************************************
808 ;KL10 CACHE CONTROL FLAGS
809 ; **********************************************************************
810
811 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
812 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
813
814 ; **********************************************************************
815 ;NUMBER INPUT DIGIT FLAG
816 ; **********************************************************************
817
818 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
819
820 ; **********************************************************************
821 ;KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
822 ; **********************************************************************
823
824 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
825
826 ; **********************************************************************
827 ;ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
828 ; **********************************************************************
829
830 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
831 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
832 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
833
834 ; **********************************************************************
835 ;SPECIAL USERS UUO INTERCEPT INSTRUCTION
836 ; **********************************************************************
837
838 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 7
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0047
839 ; **********************************************************************
840 ;USER MODE MONITOR TYPE FLAG
841 ; **********************************************************************
842
843 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20
844
845 ; **********************************************************************
846 ;SPECIAL USERS MUUO INTERCEPT INSTRUCTION
847 ; **********************************************************************
848
849 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
850
851 ; **********************************************************************
852 ;SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
853 ; **********************************************************************
854
855 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
856
857 ; **********************************************************************
858 ;"SWITCH" CALL USAGE CONTROL
859 ; **********************************************************************
860
861 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
862
863 ; **********************************************************************
864 ;SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
865 ; **********************************************************************
866
867 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
868 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
869
870 ; **********************************************************************
871 ;SM10 (KS-10) PROCESSOR TYPE FLAG
872 ; **********************************************************************
873
874 030524 000000 000000 SM10: 0 ;IF -1 THIS IS A KS-10
875
876 ; **********************************************************************
877 ;RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
878 ; **********************************************************************
879
880 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
881
882 ; **********************************************************************
883 ;SPECIAL FUTURE EXPANSION ROOM
884 ; **********************************************************************
885
886 ; **********************************************************************
887 ;END OF FIXED STORAGE
888 ; **********************************************************************
889
890 030577 LOC 30577
891 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1
DFKCBM MAC 26-Sep-79 16:11 INITIALIZATION SECTION SEQ 0048
892 SUBTTL INITIALIZATION SECTION
893
894 LALL ;EXPAND MACROS
895
896 030600 PGMNAM: ASCIZ/
897 030600 015 012 104 105 103 DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2 [DFKCB]
898 030601 123 131 123 124 105
899 030602 115 040 113 114 061
900 030603 060 040 101 104 126
901 030604 101 116 103 105 104
902 030605 040 111 116 123 124
903 030606 122 125 103 124 111
904 030607 117 116 040 104 111
905 030610 101 107 116 117 123
906 030611 124 111 103 040 043
907 030612 062 040 133 104 106
908 030613 113 103 102 135 015
909 030614 012 104 117 125 102 DOUBLE PRECISION INSTRUCTIONS
910 030615 114 105 040 120 122
911 030616 105 103 111 123 111
912 030617 117 116 040 111 116
913 030620 123 124 122 125 103
914 030621 124 111 117 116 123
915 030622 015 012 000 000 000 /
916 123456 765432 NUM=123456765432
917
918 ; A MACRO TO REPORT AN ERROR AND LOOP
919 ; THIS IS REDEFINED HERE TO CHANGE THE LISTING CONTROL STATEMENTS
920
921 DEFINE ERROR (ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<SALL
922 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
923 CORECT,,ACTUAL
924 [SIXBIT\D'_\],,ERR]
925 LALL
926 ERLOOP ADR ;IF ERROR, LOOP TO ADR
927 >
928
929 030623 265 00 0 00 030011 START: PGMINT ;INITIALIZE PROGRAM
930 030624 STARTA:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 2
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST A SEQ 0049
931 SUBTTL DADD - TEST A
932 SALL
933 041272 T=SIXBTZ<DADD TEST>
934 LALL
935 ; **********************************************************************
936 ;*DADD - TEST A
937 ;*
938 ;* 0,# + 0,0 = 0,# SIMPLE TESTS TO SEE IF DADD
939 ;* #,0 + 0,0 = #,0 WORKS AT ALL.
940 ;* #,# + 0,0 = #,#
941 ;* 0,0 + 0,# = 0,#
942 ;* 0,0 + #,0 = #,0
943 ;* 0,0 + #,# = #,#
944 ;* 0,0 + 0,0 = 0,0
945 ; **********************************************************************
946
947 ; **********************************************************************
948 ; ---------- DADD (0,#) + (0,0) = (0,#) ----------
949 ; **********************************************************************
950
951 030624 200 15 0 00 041300 ATEST1: MOVE SCR3,[[EXP 0,NUM],,[EXP 0,0]] ;ADDR FOR APRINT
952 030625 120 01 0 00 041274 DMOVE AC1,[EXP 0,NUM] ;INIT AUGEND TO (0,#)
953 030626 114 01 0 00 041276 DADD AC1,[EXP 0,0] ;ADD (0,#)+(0,0)
954 CHECKA (ATEST1,A1,0,NUM)^
955
956 030627 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
957 030630 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
958 030631 254 00 0 00 030635 JRST ..0001 ;NO - GO TO ERROR HANDLING
959 030632 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
960 030633 316 02 0 00 041275 CAMN AC1+1,[NUM] ;IS RIGHT HALF CORRECT?
961 030634 254 00 0 00 030640 JRST ..0002+1 ;YES - DONT DO ERROR HANDLING
962 ; EXCEPT FOR ERLOOP
963
964 030635 200 14 0 13 000001 ..0001: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
965 030636 200 13 0 13 041274 MOVE SCR1,[EXP 0,NUM](SCR1) ;GET CORRECT RESULT
966 030637 ..0002: ERROR (ATEST1,14,SCR1,SCR2,,TEST A1 - RESULT IS INCORRECT,APRINT)^SALL
967 030637 036 14 0 00 041307
968 030640 035 00 0 00 030624 ERLOOP ATEST1 ;IF ERROR, LOOP TO ATEST1
969 ^
970 ^
971
972 ; **********************************************************************
973 ; ---------- DADD (#,0) + (0,0) = (#,0) ----------
974 ; **********************************************************************
975
976 030641 200 15 0 00 041312 ATEST2: MOVE SCR3,[[EXP NUM,0],,[EXP 0,0]] ;ADDR FOR APRINT
977 030642 120 01 0 00 041275 DMOVE AC1,[EXP NUM,0] ;INIT AUGEND TO (#,0)
978 030643 114 01 0 00 041276 DADD AC1,[EXP 0,0] ;ADD (#,0)+(0,0)
979 CHECKA (ATEST2,A2,NUM,0)^
980
981 030644 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
982 030645 312 01 0 00 041275 CAME AC1,[NUM] ;IS LEFT HALF OF RESULT CORRECT?
983 030646 254 00 0 00 030652 JRST ..0003 ;NO - GO TO ERROR HANDLING
984 030647 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
985 030650 316 02 0 00 041274 CAMN AC1+1,[0] ;IS RIGHT HALF CORRECT?
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 2-1
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST A SEQ 0050
986 030651 254 00 0 00 030655 JRST ..0004+1 ;YES - DONT DO ERROR HANDLING
987 ; EXCEPT FOR ERLOOP
988
989 030652 200 14 0 13 000001 ..0003: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
990 030653 200 13 0 13 041275 MOVE SCR1,[EXP NUM,0](SCR1) ;GET CORRECT RESULT
991 030654 ..0004: ERROR (ATEST2,14,SCR1,SCR2,,TEST A2 - RESULT IS INCORRECT,APRINT)^SALL
992 030654 036 14 0 00 041320
993 030655 035 00 0 00 030641 ERLOOP ATEST2 ;IF ERROR, LOOP TO ATEST2
994 ^
995 ^
996
997 ; **********************************************************************
998 ; ---------- DADD (#,#) + (0,0) = (#,#) ----------
999 ; **********************************************************************
1000
1001 030656 200 15 0 00 041325 ATEST3: MOVE SCR3,[[EXP NUM,NUM],,[EXP 0,0]] ;ADDR FOR APRINT
1002 030657 120 01 0 00 041323 DMOVE AC1,[EXP NUM,NUM] ;INIT AUGEND TO (#,#)
1003 030660 114 01 0 00 041276 DADD AC1,[EXP 0,0] ;ADD (#,#)+(0,0)
1004 CHECKA (ATEST3,A3,NUM,NUM)^
1005
1006 030661 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1007 030662 312 01 0 00 041275 CAME AC1,[NUM] ;IS LEFT HALF OF RESULT CORRECT?
1008 030663 254 00 0 00 030667 JRST ..0005 ;NO - GO TO ERROR HANDLING
1009 030664 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1010 030665 316 02 0 00 041275 CAMN AC1+1,[NUM] ;IS RIGHT HALF CORRECT?
1011 030666 254 00 0 00 030672 JRST ..0006+1 ;YES - DONT DO ERROR HANDLING
1012 ; EXCEPT FOR ERLOOP
1013
1014 030667 200 14 0 13 000001 ..0005: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1015 030670 200 13 0 13 041323 MOVE SCR1,[EXP NUM,NUM](SCR1) ;GET CORRECT RESULT
1016 030671 ..0006: ERROR (ATEST3,14,SCR1,SCR2,,TEST A3 - RESULT IS INCORRECT,APRINT)^SALL
1017 030671 036 14 0 00 041333
1018 030672 035 00 0 00 030656 ERLOOP ATEST3 ;IF ERROR, LOOP TO ATEST3
1019 ^
1020 ^
1021
1022 ; **********************************************************************
1023 ; ---------- DADD (0,0) + (0,#) = (0,#) ----------
1024 ; **********************************************************************
1025
1026 030673 200 15 0 00 041336 ATEST4: MOVE SCR3,[[EXP 0,0],,[EXP 0,NUM]] ;ADDR FOR APRINT
1027 030674 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0)
1028 030675 114 01 0 00 041274 DADD AC1,[EXP 0,NUM] ;ADD (0,0) + (0,#)
1029 CHECKA (ATEST4,A4,0,NUM)^
1030
1031 030676 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1032 030677 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
1033 030700 254 00 0 00 030704 JRST ..0007 ;NO - GO TO ERROR HANDLING
1034 030701 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1035 030702 316 02 0 00 041275 CAMN AC1+1,[NUM] ;IS RIGHT HALF CORRECT?
1036 030703 254 00 0 00 030707 JRST ..0010+1 ;YES - DONT DO ERROR HANDLING
1037 ; EXCEPT FOR ERLOOP
1038
1039 030704 200 14 0 13 000001 ..0007: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1040 030705 200 13 0 13 041274 MOVE SCR1,[EXP 0,NUM](SCR1) ;GET CORRECT RESULT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 2-2
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST A SEQ 0051
1041 030706 ..0010: ERROR (ATEST4,14,SCR1,SCR2,,TEST A4 - RESULT IS INCORRECT,APRINT)^SALL
1042 030706 036 14 0 00 041344
1043 030707 035 00 0 00 030673 ERLOOP ATEST4 ;IF ERROR, LOOP TO ATEST4
1044 ^
1045 ^
1046
1047 ; **********************************************************************
1048 ; ---------- DADD (0,0) + (#,0) = (#,0) ----------
1049 ; **********************************************************************
1050
1051 030710 200 15 0 00 041347 ATEST5: MOVE SCR3,[[EXP 0,0],,[EXP NUM,0]] ;ADDR FOR APRINT
1052 030711 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0)
1053 030712 114 01 0 00 041275 DADD AC1,[EXP NUM,0] ;ADD (0,0) + (#,0)
1054 CHECKA (ATEST5,A5,NUM,0)^
1055
1056 030713 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1057 030714 312 01 0 00 041275 CAME AC1,[NUM] ;IS LEFT HALF OF RESULT CORRECT?
1058 030715 254 00 0 00 030721 JRST ..0011 ;NO - GO TO ERROR HANDLING
1059 030716 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1060 030717 316 02 0 00 041274 CAMN AC1+1,[0] ;IS RIGHT HALF CORRECT?
1061 030720 254 00 0 00 030724 JRST ..0012+1 ;YES - DONT DO ERROR HANDLING
1062 ; EXCEPT FOR ERLOOP
1063
1064 030721 200 14 0 13 000001 ..0011: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1065 030722 200 13 0 13 041275 MOVE SCR1,[EXP NUM,0](SCR1) ;GET CORRECT RESULT
1066 030723 ..0012: ERROR (ATEST5,14,SCR1,SCR2,,TEST A5 - RESULT IS INCORRECT,APRINT)^SALL
1067 030723 036 14 0 00 041355
1068 030724 035 00 0 00 030710 ERLOOP ATEST5 ;IF ERROR, LOOP TO ATEST5
1069 ^
1070 ^
1071
1072 ; **********************************************************************
1073 ; ---------- DADD (0,0) + (#,#) = (#,#) ----------
1074 ; **********************************************************************
1075
1076 030725 200 15 0 00 041360 ATEST6: MOVE SCR3,[[EXP 0,0],,[EXP NUM,NUM]] ;ADDR FOR APRINT
1077 030726 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0)
1078 030727 114 01 0 00 041323 DADD AC1,[EXP NUM,NUM] ;ADD (0,0)+(#,#)
1079 CHECKA (ATEST6,A6,NUM,NUM)^
1080
1081 030730 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1082 030731 312 01 0 00 041275 CAME AC1,[NUM] ;IS LEFT HALF OF RESULT CORRECT?
1083 030732 254 00 0 00 030736 JRST ..0013 ;NO - GO TO ERROR HANDLING
1084 030733 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1085 030734 316 02 0 00 041275 CAMN AC1+1,[NUM] ;IS RIGHT HALF CORRECT?
1086 030735 254 00 0 00 030741 JRST ..0014+1 ;YES - DONT DO ERROR HANDLING
1087 ; EXCEPT FOR ERLOOP
1088
1089 030736 200 14 0 13 000001 ..0013: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1090 030737 200 13 0 13 041323 MOVE SCR1,[EXP NUM,NUM](SCR1) ;GET CORRECT RESULT
1091 030740 ..0014: ERROR (ATEST6,14,SCR1,SCR2,,TEST A6 - RESULT IS INCORRECT,APRINT)^SALL
1092 030740 036 14 0 00 041366
1093 030741 035 00 0 00 030725 ERLOOP ATEST6 ;IF ERROR, LOOP TO ATEST6
1094 ^
1095 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 2-3
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST A SEQ 0052
1096
1097 ; **********************************************************************
1098 ; ---------- DADD (0,0) + (0,0) = (0,0) ----------
1099 ; **********************************************************************
1100
1101 030742 200 15 0 00 041371 ATEST7: MOVE SCR3,[[EXP 0,0],,[EXP 0,0]] ;ADDR FOR APRINT
1102 030743 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0)
1103 030744 114 01 0 00 000001 DADD AC1,AC1 ;ADD (0,0) + (0,0)
1104 CHECKA (ATEST7,A7,0,0)^
1105
1106 030745 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1107 030746 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
1108 030747 254 00 0 00 030753 JRST ..0015 ;NO - GO TO ERROR HANDLING
1109 030750 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1110 030751 316 02 0 00 041274 CAMN AC1+1,[0] ;IS RIGHT HALF CORRECT?
1111 030752 254 00 0 00 030756 JRST ..0016+1 ;YES - DONT DO ERROR HANDLING
1112 ; EXCEPT FOR ERLOOP
1113
1114 030753 200 14 0 13 000001 ..0015: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1115 030754 200 13 0 13 041276 MOVE SCR1,[EXP 0,0](SCR1) ;GET CORRECT RESULT
1116 030755 ..0016: ERROR (ATEST7,14,SCR1,SCR2,,TEST A7 - RESULT IS INCORRECT,APRINT)^SALL
1117 030755 036 14 0 00 041377
1118 030756 035 00 0 00 030742 ERLOOP ATEST7 ;IF ERROR, LOOP TO ATEST7
1119 ^
1120 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 3
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST B SEQ 0053
1121 SUBTTL DADD - TEST B
1122
1123 ; **********************************************************************
1124 ;DADD - TEST B
1125 ;*
1126 ;* FLOATING 1 + 0 = FLOATING 1 THESE TESTS ARE DONE FOR A 1 OR
1127 ;* 0 + FLOATING 1 = FLOATING 1 A 0 IN BITS 0,34,36,70 OF THE
1128 ;* FLOATING 0 + 0 = FLOATING 0 DOUBLEWORD ADDEND OR AUGEND.
1129 ;* 0 + FLOATING 0 = FLOATING 0 THIS WILL TEST THE WORD BOUND-
1130 ;* ARY INTEGRITY OF THE DADD
1131 ;* INSTRUCTION.
1132 ; **********************************************************************
1133
1134 ; **********************************************************************
1135 ;* REPEAT THE FOLLOWING BLOCK OF CODE 8 TIMES TO STEP DOWN A LIST
1136 ;* OF TEST CASES. THE TEST CASES CONSIST OF 8 DOUBLEWORDS - THE
1137 ;* FIRST 4 FLOAT A 1 ACROSS IN BITS 0,34,36,70; THE SECOND 4 FLOAT
1138 ;* A 0 ACROSS IN BITS 0,34,36,70. THE RESULT SHOULD BE ACS WITH
1139 ;* CONTENTS EQUAL TO THE FLOATING 1/0.
1140 ; **********************************************************************
1141
1142 000000 REP=0
1143 000000 REPP=0
1144
1145 REPEAT ^D8,<
1146 ; ************************************************
1147
1148 REP=REP+1
1149 LOC=. ;ERROR LOOP RETURN ADDRESS
1150 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
1151 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
1152 IFE REPP-1,<ALEFT=^-ALEFT
1153 ARIGHT=^-ARIGHT>
1154
1155 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
1156 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0
1157 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0)
1158 CHECKA (LOC,B1,ALEFT,ARIGHT)
1159
1160 LOC=. ;ERROR LOOP RETURN ADDRESS
1161 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0)
1162 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
1163 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0
1164 CHECKA (LOC,B2,ALEFT,ARIGHT)
1165
1166 IFE REP-4,<REPP=1
1167 REP=0>
1168 ; ************************************************
1169 >
1170
1171 ; ************************************************
1172
1173 000001 REP=REP+1
1174 030757 LOC=. ;ERROR LOOP RETURN ADDRESS
1175 000000 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 3-1
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST B SEQ 0054
1176 000001 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
1177 IFE REPP-1,<ALEFT=^-ALEFT
1178 ARIGHT=^-ARIGHT>
1179
1180 030757 200 15 0 00 041404 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
1181 030760 120 01 0 00 041402 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0
1182 030761 114 01 0 00 041276 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0)
1183 CHECKA (LOC,B1,ALEFT,ARIGHT)^
1184
1185 030762 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1186 030763 312 01 0 00 041274 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1187 030764 254 00 0 00 030770 JRST ..0017 ;NO - GO TO ERROR HANDLING
1188 030765 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1189 030766 316 02 0 00 041403 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1190 030767 254 00 0 00 030773 JRST ..0020+1 ;YES - DONT DO ERROR HANDLING
1191 ; EXCEPT FOR ERLOOP
1192
1193 030770 200 14 0 13 000001 ..0017: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1194 030771 200 13 0 13 041402 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
1195 030772 ..0020: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
1196 030772 036 14 0 00 041412
1197 030773 035 00 0 00 030757 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1198 ^
1199 ^
1200
1201 030774 LOC=. ;ERROR LOOP RETURN ADDRESS
1202 030774 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0)
1203 030775 200 15 0 00 041415 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
1204 030776 114 01 0 00 041402 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0
1205 CHECKA (LOC,B2,ALEFT,ARIGHT)^
1206
1207 030777 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1208 031000 312 01 0 00 041274 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1209 031001 254 00 0 00 031005 JRST ..0021 ;NO - GO TO ERROR HANDLING
1210 031002 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1211 031003 316 02 0 00 041403 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1212 031004 254 00 0 00 031010 JRST ..0022+1 ;YES - DONT DO ERROR HANDLING
1213 ; EXCEPT FOR ERLOOP
1214
1215 031005 200 14 0 13 000001 ..0021: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1216 031006 200 13 0 13 041402 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
1217 031007 ..0022: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
1218 031007 036 14 0 00 041423
1219 031010 035 00 0 00 030774 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1220 ^
1221 ^
1222
1223 IFE REP-4,<REPP=1
1224 REP=0>
1225 ; ************************************************
1226
1227
1228 ; ************************************************
1229
1230 000002 REP=REP+1
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 3-2
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST B SEQ 0055
1231 031011 LOC=. ;ERROR LOOP RETURN ADDRESS
1232 000000 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
1233 200000 000000 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
1234 IFE REPP-1,<ALEFT=^-ALEFT
1235 ARIGHT=^-ARIGHT>
1236
1237 031011 200 15 0 00 041430 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
1238 031012 120 01 0 00 041426 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0
1239 031013 114 01 0 00 041276 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0)
1240 CHECKA (LOC,B1,ALEFT,ARIGHT)^
1241
1242 031014 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1243 031015 312 01 0 00 041274 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1244 031016 254 00 0 00 031022 JRST ..0023 ;NO - GO TO ERROR HANDLING
1245 031017 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1246 031020 316 02 0 00 041427 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1247 031021 254 00 0 00 031025 JRST ..0024+1 ;YES - DONT DO ERROR HANDLING
1248 ; EXCEPT FOR ERLOOP
1249
1250 031022 200 14 0 13 000001 ..0023: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1251 031023 200 13 0 13 041426 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
1252 031024 ..0024: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
1253 031024 036 14 0 00 041412
1254 031025 035 00 0 00 031011 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1255 ^
1256 ^
1257
1258 031026 LOC=. ;ERROR LOOP RETURN ADDRESS
1259 031026 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0)
1260 031027 200 15 0 00 041431 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
1261 031030 114 01 0 00 041426 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0
1262 CHECKA (LOC,B2,ALEFT,ARIGHT)^
1263
1264 031031 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1265 031032 312 01 0 00 041274 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1266 031033 254 00 0 00 031037 JRST ..0025 ;NO - GO TO ERROR HANDLING
1267 031034 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1268 031035 316 02 0 00 041427 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1269 031036 254 00 0 00 031042 JRST ..0026+1 ;YES - DONT DO ERROR HANDLING
1270 ; EXCEPT FOR ERLOOP
1271
1272 031037 200 14 0 13 000001 ..0025: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1273 031040 200 13 0 13 041426 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
1274 031041 ..0026: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
1275 031041 036 14 0 00 041423
1276 031042 035 00 0 00 031026 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1277 ^
1278 ^
1279
1280 IFE REP-4,<REPP=1
1281 REP=0>
1282 ; ************************************************
1283
1284
1285 ; ************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 3-3
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST B SEQ 0056
1286
1287 000003 REP=REP+1
1288 031043 LOC=. ;ERROR LOOP RETURN ADDRESS
1289 000001 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
1290 000000 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
1291 IFE REPP-1,<ALEFT=^-ALEFT
1292 ARIGHT=^-ARIGHT>
1293
1294 031043 200 15 0 00 041434 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
1295 031044 120 01 0 00 041432 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0
1296 031045 114 01 0 00 041276 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0)
1297 CHECKA (LOC,B1,ALEFT,ARIGHT)^
1298
1299 031046 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1300 031047 312 01 0 00 041403 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1301 031050 254 00 0 00 031054 JRST ..0027 ;NO - GO TO ERROR HANDLING
1302 031051 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1303 031052 316 02 0 00 041274 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1304 031053 254 00 0 00 031057 JRST ..0030+1 ;YES - DONT DO ERROR HANDLING
1305 ; EXCEPT FOR ERLOOP
1306
1307 031054 200 14 0 13 000001 ..0027: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1308 031055 200 13 0 13 041432 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
1309 031056 ..0030: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
1310 031056 036 14 0 00 041412
1311 031057 035 00 0 00 031043 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1312 ^
1313 ^
1314
1315 031060 LOC=. ;ERROR LOOP RETURN ADDRESS
1316 031060 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0)
1317 031061 200 15 0 00 041435 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
1318 031062 114 01 0 00 041432 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0
1319 CHECKA (LOC,B2,ALEFT,ARIGHT)^
1320
1321 031063 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1322 031064 312 01 0 00 041403 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1323 031065 254 00 0 00 031071 JRST ..0031 ;NO - GO TO ERROR HANDLING
1324 031066 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1325 031067 316 02 0 00 041274 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1326 031070 254 00 0 00 031074 JRST ..0032+1 ;YES - DONT DO ERROR HANDLING
1327 ; EXCEPT FOR ERLOOP
1328
1329 031071 200 14 0 13 000001 ..0031: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1330 031072 200 13 0 13 041432 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
1331 031073 ..0032: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
1332 031073 036 14 0 00 041423
1333 031074 035 00 0 00 031060 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1334 ^
1335 ^
1336
1337 IFE REP-4,<REPP=1
1338 REP=0>
1339 ; ************************************************
1340
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 3-4
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST B SEQ 0057
1341
1342 ; ************************************************
1343
1344 000004 REP=REP+1
1345 031075 LOC=. ;ERROR LOOP RETURN ADDRESS
1346 200000 000000 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
1347 000000 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
1348 IFE REPP-1,<ALEFT=^-ALEFT
1349 ARIGHT=^-ARIGHT>
1350
1351 031075 200 15 0 00 041440 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
1352 031076 120 01 0 00 041436 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0
1353 031077 114 01 0 00 041276 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0)
1354 CHECKA (LOC,B1,ALEFT,ARIGHT)^
1355
1356 031100 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1357 031101 312 01 0 00 041427 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1358 031102 254 00 0 00 031106 JRST ..0033 ;NO - GO TO ERROR HANDLING
1359 031103 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1360 031104 316 02 0 00 041274 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1361 031105 254 00 0 00 031111 JRST ..0034+1 ;YES - DONT DO ERROR HANDLING
1362 ; EXCEPT FOR ERLOOP
1363
1364 031106 200 14 0 13 000001 ..0033: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1365 031107 200 13 0 13 041436 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
1366 031110 ..0034: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
1367 031110 036 14 0 00 041412
1368 031111 035 00 0 00 031075 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1369 ^
1370 ^
1371
1372 031112 LOC=. ;ERROR LOOP RETURN ADDRESS
1373 031112 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0)
1374 031113 200 15 0 00 041441 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
1375 031114 114 01 0 00 041436 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0
1376 CHECKA (LOC,B2,ALEFT,ARIGHT)^
1377
1378 031115 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1379 031116 312 01 0 00 041427 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1380 031117 254 00 0 00 031123 JRST ..0035 ;NO - GO TO ERROR HANDLING
1381 031120 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1382 031121 316 02 0 00 041274 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1383 031122 254 00 0 00 031126 JRST ..0036+1 ;YES - DONT DO ERROR HANDLING
1384 ; EXCEPT FOR ERLOOP
1385
1386 031123 200 14 0 13 000001 ..0035: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1387 031124 200 13 0 13 041436 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
1388 031125 ..0036: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
1389 031125 036 14 0 00 041423
1390 031126 035 00 0 00 031112 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1391 ^
1392 ^
1393
1394 000001 IFE REP-4,<REPP=1
1395 000000 REP=0>
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 3-5
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST B SEQ 0058
1396 ; ************************************************
1397
1398
1399 ; ************************************************
1400
1401 000001 REP=REP+1
1402 031127 LOC=. ;ERROR LOOP RETURN ADDRESS
1403 000000 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
1404 000001 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
1405 777777 777777 IFE REPP-1,<ALEFT=^-ALEFT
1406 777777 777776 ARIGHT=^-ARIGHT>
1407
1408 031127 200 15 0 00 041444 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
1409 031130 120 01 0 00 041442 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0
1410 031131 114 01 0 00 041276 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0)
1411 CHECKA (LOC,B1,ALEFT,ARIGHT)^
1412
1413 031132 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1414 031133 312 01 0 00 041442 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1415 031134 254 00 0 00 031140 JRST ..0037 ;NO - GO TO ERROR HANDLING
1416 031135 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1417 031136 316 02 0 00 041443 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1418 031137 254 00 0 00 031143 JRST ..0040+1 ;YES - DONT DO ERROR HANDLING
1419 ; EXCEPT FOR ERLOOP
1420
1421 031140 200 14 0 13 000001 ..0037: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1422 031141 200 13 0 13 041442 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
1423 031142 ..0040: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
1424 031142 036 14 0 00 041412
1425 031143 035 00 0 00 031127 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1426 ^
1427 ^
1428
1429 031144 LOC=. ;ERROR LOOP RETURN ADDRESS
1430 031144 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0)
1431 031145 200 15 0 00 041445 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
1432 031146 114 01 0 00 041442 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0
1433 CHECKA (LOC,B2,ALEFT,ARIGHT)^
1434
1435 031147 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1436 031150 312 01 0 00 041442 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1437 031151 254 00 0 00 031155 JRST ..0041 ;NO - GO TO ERROR HANDLING
1438 031152 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1439 031153 316 02 0 00 041443 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1440 031154 254 00 0 00 031160 JRST ..0042+1 ;YES - DONT DO ERROR HANDLING
1441 ; EXCEPT FOR ERLOOP
1442
1443 031155 200 14 0 13 000001 ..0041: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1444 031156 200 13 0 13 041442 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
1445 031157 ..0042: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
1446 031157 036 14 0 00 041423
1447 031160 035 00 0 00 031144 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1448 ^
1449 ^
1450
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 3-6
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST B SEQ 0059
1451 IFE REP-4,<REPP=1
1452 REP=0>
1453 ; ************************************************
1454
1455
1456 ; ************************************************
1457
1458 000002 REP=REP+1
1459 031161 LOC=. ;ERROR LOOP RETURN ADDRESS
1460 000000 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
1461 200000 000000 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
1462 777777 777777 IFE REPP-1,<ALEFT=^-ALEFT
1463 577777 777777 ARIGHT=^-ARIGHT>
1464
1465 031161 200 15 0 00 041450 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
1466 031162 120 01 0 00 041446 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0
1467 031163 114 01 0 00 041276 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0)
1468 CHECKA (LOC,B1,ALEFT,ARIGHT)^
1469
1470 031164 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1471 031165 312 01 0 00 041442 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1472 031166 254 00 0 00 031172 JRST ..0043 ;NO - GO TO ERROR HANDLING
1473 031167 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1474 031170 316 02 0 00 041447 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1475 031171 254 00 0 00 031175 JRST ..0044+1 ;YES - DONT DO ERROR HANDLING
1476 ; EXCEPT FOR ERLOOP
1477
1478 031172 200 14 0 13 000001 ..0043: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1479 031173 200 13 0 13 041446 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
1480 031174 ..0044: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
1481 031174 036 14 0 00 041412
1482 031175 035 00 0 00 031161 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1483 ^
1484 ^
1485
1486 031176 LOC=. ;ERROR LOOP RETURN ADDRESS
1487 031176 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0)
1488 031177 200 15 0 00 041451 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
1489 031200 114 01 0 00 041446 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0
1490 CHECKA (LOC,B2,ALEFT,ARIGHT)^
1491
1492 031201 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1493 031202 312 01 0 00 041442 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1494 031203 254 00 0 00 031207 JRST ..0045 ;NO - GO TO ERROR HANDLING
1495 031204 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1496 031205 316 02 0 00 041447 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1497 031206 254 00 0 00 031212 JRST ..0046+1 ;YES - DONT DO ERROR HANDLING
1498 ; EXCEPT FOR ERLOOP
1499
1500 031207 200 14 0 13 000001 ..0045: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1501 031210 200 13 0 13 041446 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
1502 031211 ..0046: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
1503 031211 036 14 0 00 041423
1504 031212 035 00 0 00 031176 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1505 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 3-7
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST B SEQ 0060
1506 ^
1507
1508 IFE REP-4,<REPP=1
1509 REP=0>
1510 ; ************************************************
1511
1512
1513 ; ************************************************
1514
1515 000003 REP=REP+1
1516 031213 LOC=. ;ERROR LOOP RETURN ADDRESS
1517 000001 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
1518 000000 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
1519 777777 777776 IFE REPP-1,<ALEFT=^-ALEFT
1520 777777 777777 ARIGHT=^-ARIGHT>
1521
1522 031213 200 15 0 00 041454 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
1523 031214 120 01 0 00 041452 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0
1524 031215 114 01 0 00 041276 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0)
1525 CHECKA (LOC,B1,ALEFT,ARIGHT)^
1526
1527 031216 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1528 031217 312 01 0 00 041443 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1529 031220 254 00 0 00 031224 JRST ..0047 ;NO - GO TO ERROR HANDLING
1530 031221 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1531 031222 316 02 0 00 041442 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1532 031223 254 00 0 00 031227 JRST ..0050+1 ;YES - DONT DO ERROR HANDLING
1533 ; EXCEPT FOR ERLOOP
1534
1535 031224 200 14 0 13 000001 ..0047: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1536 031225 200 13 0 13 041452 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
1537 031226 ..0050: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
1538 031226 036 14 0 00 041412
1539 031227 035 00 0 00 031213 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1540 ^
1541 ^
1542
1543 031230 LOC=. ;ERROR LOOP RETURN ADDRESS
1544 031230 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0)
1545 031231 200 15 0 00 041455 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
1546 031232 114 01 0 00 041452 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0
1547 CHECKA (LOC,B2,ALEFT,ARIGHT)^
1548
1549 031233 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1550 031234 312 01 0 00 041443 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1551 031235 254 00 0 00 031241 JRST ..0051 ;NO - GO TO ERROR HANDLING
1552 031236 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1553 031237 316 02 0 00 041442 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1554 031240 254 00 0 00 031244 JRST ..0052+1 ;YES - DONT DO ERROR HANDLING
1555 ; EXCEPT FOR ERLOOP
1556
1557 031241 200 14 0 13 000001 ..0051: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1558 031242 200 13 0 13 041452 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
1559 031243 ..0052: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
1560 031243 036 14 0 00 041423
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 3-8
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST B SEQ 0061
1561 031244 035 00 0 00 031230 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1562 ^
1563 ^
1564
1565 IFE REP-4,<REPP=1
1566 REP=0>
1567 ; ************************************************
1568
1569
1570 ; ************************************************
1571
1572 000004 REP=REP+1
1573 031245 LOC=. ;ERROR LOOP RETURN ADDRESS
1574 200000 000000 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1>
1575 000000 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1>
1576 577777 777777 IFE REPP-1,<ALEFT=^-ALEFT
1577 777777 777777 ARIGHT=^-ARIGHT>
1578
1579 031245 200 15 0 00 041460 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT
1580 031246 120 01 0 00 041456 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0
1581 031247 114 01 0 00 041276 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0)
1582 CHECKA (LOC,B1,ALEFT,ARIGHT)^
1583
1584 031250 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1585 031251 312 01 0 00 041447 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1586 031252 254 00 0 00 031256 JRST ..0053 ;NO - GO TO ERROR HANDLING
1587 031253 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1588 031254 316 02 0 00 041442 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1589 031255 254 00 0 00 031261 JRST ..0054+1 ;YES - DONT DO ERROR HANDLING
1590 ; EXCEPT FOR ERLOOP
1591
1592 031256 200 14 0 13 000001 ..0053: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1593 031257 200 13 0 13 041456 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
1594 031260 ..0054: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL
1595 031260 036 14 0 00 041412
1596 031261 035 00 0 00 031245 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1597 ^
1598 ^
1599
1600 031262 LOC=. ;ERROR LOOP RETURN ADDRESS
1601 031262 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0)
1602 031263 200 15 0 00 041461 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT
1603 031264 114 01 0 00 041456 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0
1604 CHECKA (LOC,B2,ALEFT,ARIGHT)^
1605
1606 031265 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1607 031266 312 01 0 00 041447 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT?
1608 031267 254 00 0 00 031273 JRST ..0055 ;NO - GO TO ERROR HANDLING
1609 031270 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1610 031271 316 02 0 00 041442 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT?
1611 031272 254 00 0 00 031276 JRST ..0056+1 ;YES - DONT DO ERROR HANDLING
1612 ; EXCEPT FOR ERLOOP
1613
1614 031273 200 14 0 13 000001 ..0055: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1615 031274 200 13 0 13 041456 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 3-9
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST B SEQ 0062
1616 031275 ..0056: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL
1617 031275 036 14 0 00 041423
1618 031276 035 00 0 00 031262 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1619 ^
1620 ^
1621
1622 000001 IFE REP-4,<REPP=1
1623 000000 REP=0>
1624 ; ************************************************
1625
1626 031277 AENDB:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 4
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST C SEQ 0063
1627 SUBTTL DADD - TEST C
1628
1629 ; **********************************************************************
1630 ;DADD - TEST C
1631 ;*
1632 ;* FLOATING 1 + FLOATING 1 = FLOATING 1 SHIFTED LEFT ONE BIT AT
1633 ;* A TIME ACROSS THE DOUBLEWORD EXCLUDING SIGN BITS AND THE MOST
1634 ;* SIGNIFICANT BIT (WE'RE NOT TESTING OVERFLOW CONDITIONS). THIS
1635 ;* TEST VERIFIES THE ABILITY OF THE DADD TO HANDLE A SINGLE CARRY
1636 ;* PROPAGATED 1 BIT WHETHER IT CROSSES A WORD BOUNDARY OR NOT.
1637 ; **********************************************************************
1638
1639 ; **********************************************************************
1640 ;DADD FLOATING 1 + FLOATING 1 = FLOATING 1 * 2
1641 ; **********************************************************************
1642
1643 031277 400 11 0 00 000000 SETZ CNT, ;COUNT FROM 0 TO 68
1644 031300 120 01 0 00 041402 DMOVE AC1,[EXP 0,1] ;SET UP OPERANDS - AUGEND,ADDEND - EACH
1645 ; WILL BE THE DOUBLEWORD - AC1,AC1+1
1646 031301 137 11 0 00 031333 ALOOP: DPB CNT,ASHIFT ;SET UP ASHC TO CALCULATE OPERANDS
1647 031302 256 00 0 00 031333 XCT ASHIFT ;DO THE SHIFT - RESULT IS A DOUBLEWORD
1648 ; FLOATING 1 IN AC1,AC1+1
1649 031303 124 01 0 00 031327 DMOVEM AC1,ADATA ;SAVE THE ARGUMENTS FOR ADDL PRINT
1650 031304 200 15 0 00 041462 MOVE SCR3,[ADATA,,ADATA] ; ROUTINE & PUT INTO SCR3
1651 031305 244 01 0 00 000001 ASHC AC1,1 ;CALCULATED EXPECTED RESULT
1652 031306 124 01 0 00 031331 DMOVEM AC1,TEMP ;SAVE RESULTS
1653 031307 120 01 0 00 031327 DMOVE AC1,ADATA ;GET BACK ORIGINAL AUGEND
1654
1655 031310 114 01 0 00 000001 DADD AC1,AC1 ;ADD FLOATING 1 + FLOATING 1
1656
1657 031311 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1658 031312 312 01 0 00 031331 CAME AC1,TEMP ;RESULT - AC1 SHOULD = TEMP
1659 031313 254 00 0 00 031317 JRST AERR ;NOT CORRECT - DO ERROR HANDLING
1660 031314 201 13 0 00 000001 MOVEI SCR1,1 ;POINTER ADJUSTED TO NEXT WORD
1661 031315 316 02 0 00 031332 CAMN AC1+1,TEMP+1 ;RESULT - AC1+1 SHOULD = TEMP+1
1662 031316 254 00 0 00 031322 JRST AERRC+1 ;NO ERRORS - DO ERLOOP ANYWAY
1663
1664 031317 200 14 0 13 031331 AERR: MOVE SCR2,TEMP(SCR1) ;GET CORRECT DATA
1665 031320 200 13 0 13 000001 MOVE SCR1,AC1(SCR1) ;GET ACTUAL DATA
1666 031321 AERRC: ERROR (LOC,14,SCR2,SCR1,,TEST C - RESULT INCORRECT,APRINT)^SALL
1667 031321 036 14 0 00 041470
1668 031322 035 00 0 00 031262 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1669 ^
1670
1671 031323 350 00 0 00 000011 AOS CNT ;INCREMENT SHIFT COUNT
1672 031324 302 11 0 00 000105 CAIE CNT,^D69 ;ARE WE DONE WITH 69 ITERATIONS?
1673 031325 254 00 0 00 031301 JRST ALOOP ; NO - REPEAT THIS TEST
1674 031326 254 00 0 00 031335 JRST ADADDI+1 ; YES - GO ON TO NEXT TEST
1675
1676 031327 ADATA: BLOCK 2 ;DADD OPERANDS
1677 031331 TEMP: BLOCK 2 ;TEMPORARY STORAGE FOR RESULT
1678 031333 43 10 0 00 031334 ASHIFT: POINT 8,ADADDI,0 ;FOR CALCULATING OPERANDS
1679 031334 244 01 0 00 000000 ADADDI: ASHC AC1,0 ;CALCULATE DOUBLEWORD FLOATING 1
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 5
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST D SEQ 0064
1680 SUBTTL DADD - TEST D
1681
1682 ; **********************************************************************
1683 ;*DADD - TEST D
1684 ;*
1685 ;* 0,-1 + 0,1 = 1,0 ADDITIONAL TEST TO SEE THAT A
1686 ;* 0,1 + 0,-1 = 1,0 CARRY IS PROPAGATED ACROSS WORD
1687 ;* BOUNDARIES.
1688 ; **********************************************************************
1689
1690 ; **********************************************************************
1691 ; ---------- DADD (0,-1) + (0,1) = (1,0) ----------
1692 ; **********************************************************************
1693
1694 031335 200 15 0 00 041475 ATSTD1: MOVE SCR3,[[EXP 0,-1],,[EXP 0,1]] ;ADDR FOR APRINT
1695 031336 120 01 0 00 041473 DMOVE AC1,[EXP 0,-1] ;INIT AUGEND TO (0,-1)
1696 031337 114 01 0 00 041402 DADD AC1,[EXP 0,1] ;ADD (0,-1) + (0,1)
1697 CHECKA (ATSTD1,D1,1,0)^
1698
1699 031340 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1700 031341 312 01 0 00 041403 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT?
1701 031342 254 00 0 00 031346 JRST ..0057 ;NO - GO TO ERROR HANDLING
1702 031343 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1703 031344 316 02 0 00 041274 CAMN AC1+1,[0] ;IS RIGHT HALF CORRECT?
1704 031345 254 00 0 00 031351 JRST ..0060+1 ;YES - DONT DO ERROR HANDLING
1705 ; EXCEPT FOR ERLOOP
1706
1707 031346 200 14 0 13 000001 ..0057: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1708 031347 200 13 0 13 041432 MOVE SCR1,[EXP 1,0](SCR1) ;GET CORRECT RESULT
1709 031350 ..0060: ERROR (ATSTD1,14,SCR1,SCR2,,TEST D1 - RESULT IS INCORRECT,APRINT)^SALL
1710 031350 036 14 0 00 041503
1711 031351 035 00 0 00 031335 ERLOOP ATSTD1 ;IF ERROR, LOOP TO ATSTD1
1712 ^
1713 ^
1714
1715 ; **********************************************************************
1716 ; ---------- DADD (0,1) + (0,-1) = (1,0) ----------
1717 ; **********************************************************************
1718
1719 031352 200 15 0 00 041506 ATSTD2: MOVE SCR3,[[EXP 0,1],,[EXP 0,-1]] ;ADDR FOR APRINT
1720 031353 120 01 0 00 041402 DMOVE AC1,[EXP 0,1] ;INIT AUGEND TO (0,1)
1721 031354 114 01 0 00 041473 DADD AC1,[EXP 0,-1] ;ADD (0,1) + (0,-1)
1722 CHECKA (ATSTD2,D2,1,0)^
1723
1724 031355 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1725 031356 312 01 0 00 041403 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT?
1726 031357 254 00 0 00 031363 JRST ..0061 ;NO - GO TO ERROR HANDLING
1727 031360 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1728 031361 316 02 0 00 041274 CAMN AC1+1,[0] ;IS RIGHT HALF CORRECT?
1729 031362 254 00 0 00 031366 JRST ..0062+1 ;YES - DONT DO ERROR HANDLING
1730 ; EXCEPT FOR ERLOOP
1731
1732 031363 200 14 0 13 000001 ..0061: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1733 031364 200 13 0 13 041432 MOVE SCR1,[EXP 1,0](SCR1) ;GET CORRECT RESULT
1734 031365 ..0062: ERROR (ATSTD2,14,SCR1,SCR2,,TEST D2 - RESULT IS INCORRECT,APRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 5-1
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST D SEQ 0065
1735 031365 036 14 0 00 041514
1736 031366 035 00 0 00 031352 ERLOOP ATSTD2 ;IF ERROR, LOOP TO ATSTD2
1737 ^
1738 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 6
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST E SEQ 0066
1739 SUBTTL DADD - TEST E
1740
1741 ; **********************************************************************
1742 ;*DADD - TEST E
1743 ;*
1744 ;* FLOATING 0 + 1 = 11111000..
1745 ;* 1 + FLOATING 0 = 11111000..
1746 ; **********************************************************************
1747
1748 ; **********************************************************************
1749 ;* THE NEXT 6 TESTS VERIFY THAT A CARRY IS PROPERLY PROPAGATED
1750 ;* DOWN A WORD. A 1 IS ADDED TO A FLOATING 0 CAUSING THE
1751 ;* CARRY TO RIPPLE DOWN THE WORD. THE RESULT IS VERIFIED AS
1752 ;* 1111..110000.... THE FLOATING 0 IS LOCATED IN BITS 34,36,
1753 ;* 71 FOR NEGATIVE NUMBERS AND BITS 33,36,70 FOR POSITIVE
1754 ;* NUMBERS. CARRY FLAGS ARE VERIFIED IN ADDITION.
1755 ; **********************************************************************
1756
1757 031612 CNUM=ACONE-4
1758
1759 REPEAT 6,<
1760 ; ************************************************
1761
1762 LOC=.
1763 CNUM=CNUM+4
1764 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0
1765 JFCL 17,.+1 ;CLEAR PC FLAGS
1766 HRLI SCR3,CNUM ;SCR3 - ADDRESS OF OPERANDS FOR
1767 HRRI SCR3,[EXP 0,1] ; ADDL ERROR PRINT ROUTINE
1768 DADD AC1,[EXP 0,1] ;ADD - FLOATING 0 + 1
1769 PCSAVE
1770 CHECKB (LOC,E,CNUM+2)
1771 TFLAG ([0],E)
1772 ; ************************************************
1773 >
1774
1775 ; ************************************************
1776
1777 031367 LOC=.
1778 031616 CNUM=CNUM+4
1779 031367 120 01 0 00 031616 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0
1780 031370 255 17 0 00 031371 JFCL 17,.+1 ;CLEAR PC FLAGS
1781 031371 505 15 0 00 031616 HRLI SCR3,CNUM ;SCR3 - ADDRESS OF OPERANDS FOR
1782 031372 541 15 0 00 041402 HRRI SCR3,[EXP 0,1] ; ADDL ERROR PRINT ROUTINE
1783 031373 114 01 0 00 041402 DADD AC1,[EXP 0,1] ;ADD - FLOATING 0 + 1
1784 PCSAVE^
1785 031374 264 00 0 00 031375 JSR .+1 ;STORE PC
1786 031375 FLAGL=. ;LOCATION OF PC
1787 031375 000000 000000 0 ;PC
1788 ^
1789 CHECKB (LOC,E,CNUM+2)^
1790
1791 031376 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1792 031377 312 01 0 00 031620 CAME AC1,CNUM+2 ;IS LEFT HALF OF RESULT CORRECT?
1793 031400 254 00 0 00 031404 JRST ..0063 ;NO - GO TO ERROR HANDLING
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 6-1
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST E SEQ 0067
1794 031401 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1795 031402 316 02 0 00 031621 CAMN AC1+1,CNUM+2+1 ;IS RIGHT HALF CORRECT?
1796 031403 254 00 0 00 031407 JRST ..0064+1 ;YES - DONT DO ERROR HANDLING
1797 ; EXCEPT FOR ERLOOP
1798
1799 031404 200 14 0 13 000001 ..0063: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1800 031405 200 13 0 13 031620 MOVE SCR1,CNUM+2(SCR1) ;GET CORRECT WORD OF RESULT
1801 031406 ..0064: ERROR (LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL
1802 031406 036 14 0 00 041524
1803 031407 035 00 0 00 031367 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1804 ^
1805 ^
1806 TFLAG ([0],E)^
1807
1808 031410 200 13 0 00 031375 MOVE SCR1,FLAGL ;GET FLAGS
1809 031411 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
1810 031412 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
1811 031413 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
1812 031414 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
1813 031415 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
1814 ERROR (LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
1815 031416 036 13 0 00 041536
1816 031417 035 00 0 00 031367 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1817 ^
1818 ^
1819 ; ************************************************
1820
1821
1822 ; ************************************************
1823
1824 031420 LOC=.
1825 031622 CNUM=CNUM+4
1826 031420 120 01 0 00 031622 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0
1827 031421 255 17 0 00 031422 JFCL 17,.+1 ;CLEAR PC FLAGS
1828 031422 505 15 0 00 031622 HRLI SCR3,CNUM ;SCR3 - ADDRESS OF OPERANDS FOR
1829 031423 541 15 0 00 041402 HRRI SCR3,[EXP 0,1] ; ADDL ERROR PRINT ROUTINE
1830 031424 114 01 0 00 041402 DADD AC1,[EXP 0,1] ;ADD - FLOATING 0 + 1
1831 PCSAVE^
1832 031425 264 00 0 00 031426 JSR .+1 ;STORE PC
1833 031426 FLAGL=. ;LOCATION OF PC
1834 031426 000000 000000 0 ;PC
1835 ^
1836 CHECKB (LOC,E,CNUM+2)^
1837
1838 031427 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1839 031430 312 01 0 00 031624 CAME AC1,CNUM+2 ;IS LEFT HALF OF RESULT CORRECT?
1840 031431 254 00 0 00 031435 JRST ..0065 ;NO - GO TO ERROR HANDLING
1841 031432 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1842 031433 316 02 0 00 031625 CAMN AC1+1,CNUM+2+1 ;IS RIGHT HALF CORRECT?
1843 031434 254 00 0 00 031440 JRST ..0066+1 ;YES - DONT DO ERROR HANDLING
1844 ; EXCEPT FOR ERLOOP
1845
1846 031435 200 14 0 13 000001 ..0065: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1847 031436 200 13 0 13 031624 MOVE SCR1,CNUM+2(SCR1) ;GET CORRECT WORD OF RESULT
1848 031437 ..0066: ERROR (LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 6-2
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST E SEQ 0068
1849 031437 036 14 0 00 041524
1850 031440 035 00 0 00 031420 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1851 ^
1852 ^
1853 TFLAG ([0],E)^
1854
1855 031441 200 13 0 00 031426 MOVE SCR1,FLAGL ;GET FLAGS
1856 031442 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
1857 031443 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
1858 031444 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
1859 031445 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
1860 031446 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
1861 ERROR (LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
1862 031447 036 13 0 00 041541
1863 031450 035 00 0 00 031420 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1864 ^
1865 ^
1866 ; ************************************************
1867
1868
1869 ; ************************************************
1870
1871 031451 LOC=.
1872 031626 CNUM=CNUM+4
1873 031451 120 01 0 00 031626 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0
1874 031452 255 17 0 00 031453 JFCL 17,.+1 ;CLEAR PC FLAGS
1875 031453 505 15 0 00 031626 HRLI SCR3,CNUM ;SCR3 - ADDRESS OF OPERANDS FOR
1876 031454 541 15 0 00 041402 HRRI SCR3,[EXP 0,1] ; ADDL ERROR PRINT ROUTINE
1877 031455 114 01 0 00 041402 DADD AC1,[EXP 0,1] ;ADD - FLOATING 0 + 1
1878 PCSAVE^
1879 031456 264 00 0 00 031457 JSR .+1 ;STORE PC
1880 031457 FLAGL=. ;LOCATION OF PC
1881 031457 000000 000000 0 ;PC
1882 ^
1883 CHECKB (LOC,E,CNUM+2)^
1884
1885 031460 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1886 031461 312 01 0 00 031630 CAME AC1,CNUM+2 ;IS LEFT HALF OF RESULT CORRECT?
1887 031462 254 00 0 00 031466 JRST ..0067 ;NO - GO TO ERROR HANDLING
1888 031463 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1889 031464 316 02 0 00 031631 CAMN AC1+1,CNUM+2+1 ;IS RIGHT HALF CORRECT?
1890 031465 254 00 0 00 031471 JRST ..0070+1 ;YES - DONT DO ERROR HANDLING
1891 ; EXCEPT FOR ERLOOP
1892
1893 031466 200 14 0 13 000001 ..0067: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1894 031467 200 13 0 13 031630 MOVE SCR1,CNUM+2(SCR1) ;GET CORRECT WORD OF RESULT
1895 031470 ..0070: ERROR (LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL
1896 031470 036 14 0 00 041524
1897 031471 035 00 0 00 031451 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1898 ^
1899 ^
1900 TFLAG ([0],E)^
1901
1902 031472 200 13 0 00 031457 MOVE SCR1,FLAGL ;GET FLAGS
1903 031473 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 6-3
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST E SEQ 0069
1904 031474 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
1905 031475 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
1906 031476 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
1907 031477 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
1908 ERROR (LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
1909 031500 036 13 0 00 041544
1910 031501 035 00 0 00 031451 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1911 ^
1912 ^
1913 ; ************************************************
1914
1915
1916 ; ************************************************
1917
1918 031502 LOC=.
1919 031632 CNUM=CNUM+4
1920 031502 120 01 0 00 031632 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0
1921 031503 255 17 0 00 031504 JFCL 17,.+1 ;CLEAR PC FLAGS
1922 031504 505 15 0 00 031632 HRLI SCR3,CNUM ;SCR3 - ADDRESS OF OPERANDS FOR
1923 031505 541 15 0 00 041402 HRRI SCR3,[EXP 0,1] ; ADDL ERROR PRINT ROUTINE
1924 031506 114 01 0 00 041402 DADD AC1,[EXP 0,1] ;ADD - FLOATING 0 + 1
1925 PCSAVE^
1926 031507 264 00 0 00 031510 JSR .+1 ;STORE PC
1927 031510 FLAGL=. ;LOCATION OF PC
1928 031510 000000 000000 0 ;PC
1929 ^
1930 CHECKB (LOC,E,CNUM+2)^
1931
1932 031511 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1933 031512 312 01 0 00 031634 CAME AC1,CNUM+2 ;IS LEFT HALF OF RESULT CORRECT?
1934 031513 254 00 0 00 031517 JRST ..0071 ;NO - GO TO ERROR HANDLING
1935 031514 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1936 031515 316 02 0 00 031635 CAMN AC1+1,CNUM+2+1 ;IS RIGHT HALF CORRECT?
1937 031516 254 00 0 00 031522 JRST ..0072+1 ;YES - DONT DO ERROR HANDLING
1938 ; EXCEPT FOR ERLOOP
1939
1940 031517 200 14 0 13 000001 ..0071: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1941 031520 200 13 0 13 031634 MOVE SCR1,CNUM+2(SCR1) ;GET CORRECT WORD OF RESULT
1942 031521 ..0072: ERROR (LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL
1943 031521 036 14 0 00 041524
1944 031522 035 00 0 00 031502 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1945 ^
1946 ^
1947 TFLAG ([0],E)^
1948
1949 031523 200 13 0 00 031510 MOVE SCR1,FLAGL ;GET FLAGS
1950 031524 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
1951 031525 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
1952 031526 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
1953 031527 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
1954 031530 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
1955 ERROR (LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
1956 031531 036 13 0 00 041547
1957 031532 035 00 0 00 031502 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1958 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 6-4
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST E SEQ 0070
1959 ^
1960 ; ************************************************
1961
1962
1963 ; ************************************************
1964
1965 031533 LOC=.
1966 031636 CNUM=CNUM+4
1967 031533 120 01 0 00 031636 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0
1968 031534 255 17 0 00 031535 JFCL 17,.+1 ;CLEAR PC FLAGS
1969 031535 505 15 0 00 031636 HRLI SCR3,CNUM ;SCR3 - ADDRESS OF OPERANDS FOR
1970 031536 541 15 0 00 041402 HRRI SCR3,[EXP 0,1] ; ADDL ERROR PRINT ROUTINE
1971 031537 114 01 0 00 041402 DADD AC1,[EXP 0,1] ;ADD - FLOATING 0 + 1
1972 PCSAVE^
1973 031540 264 00 0 00 031541 JSR .+1 ;STORE PC
1974 031541 FLAGL=. ;LOCATION OF PC
1975 031541 000000 000000 0 ;PC
1976 ^
1977 CHECKB (LOC,E,CNUM+2)^
1978
1979 031542 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
1980 031543 312 01 0 00 031640 CAME AC1,CNUM+2 ;IS LEFT HALF OF RESULT CORRECT?
1981 031544 254 00 0 00 031550 JRST ..0073 ;NO - GO TO ERROR HANDLING
1982 031545 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
1983 031546 316 02 0 00 031641 CAMN AC1+1,CNUM+2+1 ;IS RIGHT HALF CORRECT?
1984 031547 254 00 0 00 031553 JRST ..0074+1 ;YES - DONT DO ERROR HANDLING
1985 ; EXCEPT FOR ERLOOP
1986
1987 031550 200 14 0 13 000001 ..0073: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
1988 031551 200 13 0 13 031640 MOVE SCR1,CNUM+2(SCR1) ;GET CORRECT WORD OF RESULT
1989 031552 ..0074: ERROR (LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL
1990 031552 036 14 0 00 041524
1991 031553 035 00 0 00 031533 ERLOOP LOC ;IF ERROR, LOOP TO LOC
1992 ^
1993 ^
1994 TFLAG ([0],E)^
1995
1996 031554 200 13 0 00 031541 MOVE SCR1,FLAGL ;GET FLAGS
1997 031555 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
1998 031556 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
1999 031557 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2000 031560 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2001 031561 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2002 ERROR (LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2003 031562 036 13 0 00 041552
2004 031563 035 00 0 00 031533 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2005 ^
2006 ^
2007 ; ************************************************
2008
2009
2010 ; ************************************************
2011
2012 031564 LOC=.
2013 031642 CNUM=CNUM+4
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 6-5
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST E SEQ 0071
2014 031564 120 01 0 00 031642 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0
2015 031565 255 17 0 00 031566 JFCL 17,.+1 ;CLEAR PC FLAGS
2016 031566 505 15 0 00 031642 HRLI SCR3,CNUM ;SCR3 - ADDRESS OF OPERANDS FOR
2017 031567 541 15 0 00 041402 HRRI SCR3,[EXP 0,1] ; ADDL ERROR PRINT ROUTINE
2018 031570 114 01 0 00 041402 DADD AC1,[EXP 0,1] ;ADD - FLOATING 0 + 1
2019 PCSAVE^
2020 031571 264 00 0 00 031572 JSR .+1 ;STORE PC
2021 031572 FLAGL=. ;LOCATION OF PC
2022 031572 000000 000000 0 ;PC
2023 ^
2024 CHECKB (LOC,E,CNUM+2)^
2025
2026 031573 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2027 031574 312 01 0 00 031644 CAME AC1,CNUM+2 ;IS LEFT HALF OF RESULT CORRECT?
2028 031575 254 00 0 00 031601 JRST ..0075 ;NO - GO TO ERROR HANDLING
2029 031576 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2030 031577 316 02 0 00 031645 CAMN AC1+1,CNUM+2+1 ;IS RIGHT HALF CORRECT?
2031 031600 254 00 0 00 031604 JRST ..0076+1 ;YES - DONT DO ERROR HANDLING
2032 ; EXCEPT FOR ERLOOP
2033
2034 031601 200 14 0 13 000001 ..0075: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2035 031602 200 13 0 13 031644 MOVE SCR1,CNUM+2(SCR1) ;GET CORRECT WORD OF RESULT
2036 031603 ..0076: ERROR (LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL
2037 031603 036 14 0 00 041524
2038 031604 035 00 0 00 031564 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2039 ^
2040 ^
2041 TFLAG ([0],E)^
2042
2043 031605 200 13 0 00 031572 MOVE SCR1,FLAGL ;GET FLAGS
2044 031606 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
2045 031607 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2046 031610 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2047 031611 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2048 031612 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2049 ERROR (LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2050 031613 036 13 0 00 041555
2051 031614 035 00 0 00 031564 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2052 ^
2053 ^
2054 ; ************************************************
2055
2056 031615 254 00 0 00 031646 JRST AENDD ;SKIP OVER DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 7
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST E SEQ 0072
2057
2058 031616 777777 777777 ACONE: EXP -1,577777777777,-1,^B11B1
2059 031617 577777 777777
2060 031620 777777 777777
2061 031621 600000 000000
2062 031622 777777 777776 EXP -2,-1,-1,1B0
2063 031623 777777 777777
2064 031624 777777 777777
2065 031625 400000 000000
2066 031626 577777 777777 EXP 577777777777,-1,^B11B1,1B0
2067 031627 777777 777777
2068 031630 600000 000000
2069 031631 400000 000000
2070 031632 377777 777777 EXP 377777777777,177777777777,377777777777,1B1
2071 031633 177777 777777
2072 031634 377777 777777
2073 031635 200000 000000
2074 031636 377777 777776 EXP 377777777776,377777777777,377777777777,0
2075 031637 377777 777777
2076 031640 377777 777777
2077 031641 000000 000000
2078 031642 177777 777777 EXP 177777777777,377777777777,1B1,0
2079 031643 377777 777777
2080 031644 200000 000000
2081 031645 000000 000000
2082 031646 AENDD:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0073
2083 SUBTTL DADD - TEST F
2084
2085 ; **********************************************************************
2086 ;*DADD - TEST F
2087 ;*
2088 ;* THE FOLLOWING TESTS VERIFY THAT THE DADD INSTRUCTION HANDLES
2089 ;* THE SIGN OF THE RESULT PROPERLY (COPYING THE SIGN INTO THE
2090 ;* HIGH ORDER BIT OF EACH WORD OF THE DOUBLEWORD RESULT. THE
2091 ;* TESTS ADD VARIOUS COMBINATIONS OF INCONSISTENT SIGNS IN THE
2092 ;* ADDEND AND AUGEND AND VERIFY THAT THE SIGNS OF THE RESULT
2093 ;* ARE CORRECT.
2094 ;*
2095 ;* THERE ARE 5 SETS OF TEST: (1) 0 + P/N = P/N
2096 ;* (2) N + N = N
2097 ;* (3) P + P = P
2098 ;* (4) N + P = N
2099 ;* (5) N + P = P
2100 ;* WHERE N-NEGATIVE NUMBER
2101 ;* P-POSITIVE NUMBER
2102 ; **********************************************************************
2103
2104 ; **********************************************************************
2105 ; ---------- DADD - TEST F-1: 0 + P/N = P/N ----------
2106 ; **********************************************************************
2107
2108 033163 CNUM=ACONF1-4
2109 000000 REP=0 ;RESULT FOR FIRST 3 TESTS
2110
2111 REPEAT 6,<
2112 ; ************************************************
2113
2114 LOC=. ;ERROR RETURN ADDRESS
2115 REP=REP+1 ;REP - REPETITION COUNT
2116 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2117 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR FOR ADDL ERROR PRINT
2118 DMOVE AC1,CNUM ;INIT AUGEND
2119 JFCL 17,.+1 ;CLEAR PC FLAGS
2120 DADD AC1,CNUM+2 ;ADD N + P = 0,1
2121 PCSAVE
2122 RLEFT=0-IFG REP-3,<1> ;LEFT WORD OF RESULT
2123 RRIGHT=1-IFG REP-3,<2> ;RIGHT WORD OF RESULT
2124 CHECKA (LOC,F1,RLEFT,RRIGHT)
2125 TFLAG ([0],F1)
2126 ; ************************************************
2127 >
2128
2129 ; ************************************************
2130
2131 031646 LOC=. ;ERROR RETURN ADDRESS
2132 000001 REP=REP+1 ;REP - REPETITION COUNT
2133 033167 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2134 031646 200 15 0 00 041560 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR FOR ADDL ERROR PRINT
2135 031647 120 01 0 00 033167 DMOVE AC1,CNUM ;INIT AUGEND
2136 031650 255 17 0 00 031651 JFCL 17,.+1 ;CLEAR PC FLAGS
2137 031651 114 01 0 00 033171 DADD AC1,CNUM+2 ;ADD N + P = 0,1
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-1
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0074
2138 PCSAVE^
2139 031652 264 00 0 00 031653 JSR .+1 ;STORE PC
2140 031653 FLAGL=. ;LOCATION OF PC
2141 031653 000000 000000 0 ;PC
2142 ^
2143 000000 RLEFT=0-IFG REP-3,<1> ;LEFT WORD OF RESULT
2144 000001 RRIGHT=1-IFG REP-3,<2> ;RIGHT WORD OF RESULT
2145 CHECKA (LOC,F1,RLEFT,RRIGHT)^
2146
2147 031654 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2148 031655 312 01 0 00 041274 CAME AC1,[RLEFT] ;IS LEFT HALF OF RESULT CORRECT?
2149 031656 254 00 0 00 031662 JRST ..0077 ;NO - GO TO ERROR HANDLING
2150 031657 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2151 031660 316 02 0 00 041403 CAMN AC1+1,[RRIGHT] ;IS RIGHT HALF CORRECT?
2152 031661 254 00 0 00 031665 JRST ..0100+1 ;YES - DONT DO ERROR HANDLING
2153 ; EXCEPT FOR ERLOOP
2154
2155 031662 200 14 0 13 000001 ..0077: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2156 031663 200 13 0 13 041402 MOVE SCR1,[EXP RLEFT,RRIGHT](SCR1) ;GET CORRECT RESULT
2157 031664 ..0100: ERROR (LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL
2158 031664 036 14 0 00 041566
2159 031665 035 00 0 00 031646 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2160 ^
2161 ^
2162 TFLAG ([0],F1)^
2163
2164 031666 200 13 0 00 031653 MOVE SCR1,FLAGL ;GET FLAGS
2165 031667 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
2166 031670 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2167 031671 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2168 031672 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2169 031673 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2170 ERROR (LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2171
2172 031674 036 13 0 00 041601
2173 031675 035 00 0 00 031646 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2174 ^
2175 ^
2176 ; ************************************************
2177
2178
2179 ; ************************************************
2180
2181 031676 LOC=. ;ERROR RETURN ADDRESS
2182 000002 REP=REP+1 ;REP - REPETITION COUNT
2183 033173 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2184 031676 200 15 0 00 041604 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR FOR ADDL ERROR PRINT
2185 031677 120 01 0 00 033173 DMOVE AC1,CNUM ;INIT AUGEND
2186 031700 255 17 0 00 031701 JFCL 17,.+1 ;CLEAR PC FLAGS
2187 031701 114 01 0 00 033175 DADD AC1,CNUM+2 ;ADD N + P = 0,1
2188 PCSAVE^
2189 031702 264 00 0 00 031703 JSR .+1 ;STORE PC
2190 031703 FLAGL=. ;LOCATION OF PC
2191 031703 000000 000000 0 ;PC
2192 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-2
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0075
2193 000000 RLEFT=0-IFG REP-3,<1> ;LEFT WORD OF RESULT
2194 000001 RRIGHT=1-IFG REP-3,<2> ;RIGHT WORD OF RESULT
2195 CHECKA (LOC,F1,RLEFT,RRIGHT)^
2196
2197 031704 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2198 031705 312 01 0 00 041274 CAME AC1,[RLEFT] ;IS LEFT HALF OF RESULT CORRECT?
2199 031706 254 00 0 00 031712 JRST ..0101 ;NO - GO TO ERROR HANDLING
2200 031707 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2201 031710 316 02 0 00 041403 CAMN AC1+1,[RRIGHT] ;IS RIGHT HALF CORRECT?
2202 031711 254 00 0 00 031715 JRST ..0102+1 ;YES - DONT DO ERROR HANDLING
2203 ; EXCEPT FOR ERLOOP
2204
2205 031712 200 14 0 13 000001 ..0101: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2206 031713 200 13 0 13 041402 MOVE SCR1,[EXP RLEFT,RRIGHT](SCR1) ;GET CORRECT RESULT
2207 031714 ..0102: ERROR (LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL
2208 031714 036 14 0 00 041566
2209 031715 035 00 0 00 031676 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2210 ^
2211 ^
2212 TFLAG ([0],F1)^
2213
2214 031716 200 13 0 00 031703 MOVE SCR1,FLAGL ;GET FLAGS
2215 031717 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
2216 031720 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2217 031721 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2218 031722 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2219 031723 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2220 ERROR (LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2221
2222 031724 036 13 0 00 041605
2223 031725 035 00 0 00 031676 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2224 ^
2225 ^
2226 ; ************************************************
2227
2228
2229 ; ************************************************
2230
2231 031726 LOC=. ;ERROR RETURN ADDRESS
2232 000003 REP=REP+1 ;REP - REPETITION COUNT
2233 033177 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2234 031726 200 15 0 00 041610 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR FOR ADDL ERROR PRINT
2235 031727 120 01 0 00 033177 DMOVE AC1,CNUM ;INIT AUGEND
2236 031730 255 17 0 00 031731 JFCL 17,.+1 ;CLEAR PC FLAGS
2237 031731 114 01 0 00 033201 DADD AC1,CNUM+2 ;ADD N + P = 0,1
2238 PCSAVE^
2239 031732 264 00 0 00 031733 JSR .+1 ;STORE PC
2240 031733 FLAGL=. ;LOCATION OF PC
2241 031733 000000 000000 0 ;PC
2242 ^
2243 000000 RLEFT=0-IFG REP-3,<1> ;LEFT WORD OF RESULT
2244 000001 RRIGHT=1-IFG REP-3,<2> ;RIGHT WORD OF RESULT
2245 CHECKA (LOC,F1,RLEFT,RRIGHT)^
2246
2247 031734 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-3
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0076
2248 031735 312 01 0 00 041274 CAME AC1,[RLEFT] ;IS LEFT HALF OF RESULT CORRECT?
2249 031736 254 00 0 00 031742 JRST ..0103 ;NO - GO TO ERROR HANDLING
2250 031737 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2251 031740 316 02 0 00 041403 CAMN AC1+1,[RRIGHT] ;IS RIGHT HALF CORRECT?
2252 031741 254 00 0 00 031745 JRST ..0104+1 ;YES - DONT DO ERROR HANDLING
2253 ; EXCEPT FOR ERLOOP
2254
2255 031742 200 14 0 13 000001 ..0103: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2256 031743 200 13 0 13 041402 MOVE SCR1,[EXP RLEFT,RRIGHT](SCR1) ;GET CORRECT RESULT
2257 031744 ..0104: ERROR (LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL
2258 031744 036 14 0 00 041566
2259 031745 035 00 0 00 031726 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2260 ^
2261 ^
2262 TFLAG ([0],F1)^
2263
2264 031746 200 13 0 00 031733 MOVE SCR1,FLAGL ;GET FLAGS
2265 031747 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
2266 031750 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2267 031751 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2268 031752 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2269 031753 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2270 ERROR (LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2271
2272 031754 036 13 0 00 041611
2273 031755 035 00 0 00 031726 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2274 ^
2275 ^
2276 ; ************************************************
2277
2278
2279 ; ************************************************
2280
2281 031756 LOC=. ;ERROR RETURN ADDRESS
2282 000004 REP=REP+1 ;REP - REPETITION COUNT
2283 033203 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2284 031756 200 15 0 00 041614 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR FOR ADDL ERROR PRINT
2285 031757 120 01 0 00 033203 DMOVE AC1,CNUM ;INIT AUGEND
2286 031760 255 17 0 00 031761 JFCL 17,.+1 ;CLEAR PC FLAGS
2287 031761 114 01 0 00 033205 DADD AC1,CNUM+2 ;ADD N + P = 0,1
2288 PCSAVE^
2289 031762 264 00 0 00 031763 JSR .+1 ;STORE PC
2290 031763 FLAGL=. ;LOCATION OF PC
2291 031763 000000 000000 0 ;PC
2292 ^
2293 777777 777777 RLEFT=0-IFG REP-3,<1> ;LEFT WORD OF RESULT
2294 777777 777777 RRIGHT=1-IFG REP-3,<2> ;RIGHT WORD OF RESULT
2295 CHECKA (LOC,F1,RLEFT,RRIGHT)^
2296
2297 031764 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2298 031765 312 01 0 00 041442 CAME AC1,[RLEFT] ;IS LEFT HALF OF RESULT CORRECT?
2299 031766 254 00 0 00 031772 JRST ..0105 ;NO - GO TO ERROR HANDLING
2300 031767 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2301 031770 316 02 0 00 041442 CAMN AC1+1,[RRIGHT] ;IS RIGHT HALF CORRECT?
2302 031771 254 00 0 00 031775 JRST ..0106+1 ;YES - DONT DO ERROR HANDLING
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-4
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0077
2303 ; EXCEPT FOR ERLOOP
2304
2305 031772 200 14 0 13 000001 ..0105: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2306 031773 200 13 0 13 041615 MOVE SCR1,[EXP RLEFT,RRIGHT](SCR1) ;GET CORRECT RESULT
2307 031774 ..0106: ERROR (LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL
2308 031774 036 14 0 00 041566
2309 031775 035 00 0 00 031756 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2310 ^
2311 ^
2312 TFLAG ([0],F1)^
2313
2314 031776 200 13 0 00 031763 MOVE SCR1,FLAGL ;GET FLAGS
2315 031777 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
2316 032000 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2317 032001 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2318 032002 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2319 032003 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2320 ERROR (LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2321
2322 032004 036 13 0 00 041617
2323 032005 035 00 0 00 031756 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2324 ^
2325 ^
2326 ; ************************************************
2327
2328
2329 ; ************************************************
2330
2331 032006 LOC=. ;ERROR RETURN ADDRESS
2332 000005 REP=REP+1 ;REP - REPETITION COUNT
2333 033207 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2334 032006 200 15 0 00 041622 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR FOR ADDL ERROR PRINT
2335 032007 120 01 0 00 033207 DMOVE AC1,CNUM ;INIT AUGEND
2336 032010 255 17 0 00 032011 JFCL 17,.+1 ;CLEAR PC FLAGS
2337 032011 114 01 0 00 033211 DADD AC1,CNUM+2 ;ADD N + P = 0,1
2338 PCSAVE^
2339 032012 264 00 0 00 032013 JSR .+1 ;STORE PC
2340 032013 FLAGL=. ;LOCATION OF PC
2341 032013 000000 000000 0 ;PC
2342 ^
2343 777777 777777 RLEFT=0-IFG REP-3,<1> ;LEFT WORD OF RESULT
2344 777777 777777 RRIGHT=1-IFG REP-3,<2> ;RIGHT WORD OF RESULT
2345 CHECKA (LOC,F1,RLEFT,RRIGHT)^
2346
2347 032014 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2348 032015 312 01 0 00 041442 CAME AC1,[RLEFT] ;IS LEFT HALF OF RESULT CORRECT?
2349 032016 254 00 0 00 032022 JRST ..0107 ;NO - GO TO ERROR HANDLING
2350 032017 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2351 032020 316 02 0 00 041442 CAMN AC1+1,[RRIGHT] ;IS RIGHT HALF CORRECT?
2352 032021 254 00 0 00 032025 JRST ..0110+1 ;YES - DONT DO ERROR HANDLING
2353 ; EXCEPT FOR ERLOOP
2354
2355 032022 200 14 0 13 000001 ..0107: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2356 032023 200 13 0 13 041615 MOVE SCR1,[EXP RLEFT,RRIGHT](SCR1) ;GET CORRECT RESULT
2357 032024 ..0110: ERROR (LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-5
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0078
2358 032024 036 14 0 00 041566
2359 032025 035 00 0 00 032006 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2360 ^
2361 ^
2362 TFLAG ([0],F1)^
2363
2364 032026 200 13 0 00 032013 MOVE SCR1,FLAGL ;GET FLAGS
2365 032027 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
2366 032030 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2367 032031 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2368 032032 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2369 032033 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2370 ERROR (LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2371
2372 032034 036 13 0 00 041623
2373 032035 035 00 0 00 032006 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2374 ^
2375 ^
2376 ; ************************************************
2377
2378
2379 ; ************************************************
2380
2381 032036 LOC=. ;ERROR RETURN ADDRESS
2382 000006 REP=REP+1 ;REP - REPETITION COUNT
2383 033213 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2384 032036 200 15 0 00 041626 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR FOR ADDL ERROR PRINT
2385 032037 120 01 0 00 033213 DMOVE AC1,CNUM ;INIT AUGEND
2386 032040 255 17 0 00 032041 JFCL 17,.+1 ;CLEAR PC FLAGS
2387 032041 114 01 0 00 033215 DADD AC1,CNUM+2 ;ADD N + P = 0,1
2388 PCSAVE^
2389 032042 264 00 0 00 032043 JSR .+1 ;STORE PC
2390 032043 FLAGL=. ;LOCATION OF PC
2391 032043 000000 000000 0 ;PC
2392 ^
2393 777777 777777 RLEFT=0-IFG REP-3,<1> ;LEFT WORD OF RESULT
2394 777777 777777 RRIGHT=1-IFG REP-3,<2> ;RIGHT WORD OF RESULT
2395 CHECKA (LOC,F1,RLEFT,RRIGHT)^
2396
2397 032044 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2398 032045 312 01 0 00 041442 CAME AC1,[RLEFT] ;IS LEFT HALF OF RESULT CORRECT?
2399 032046 254 00 0 00 032052 JRST ..0111 ;NO - GO TO ERROR HANDLING
2400 032047 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2401 032050 316 02 0 00 041442 CAMN AC1+1,[RRIGHT] ;IS RIGHT HALF CORRECT?
2402 032051 254 00 0 00 032055 JRST ..0112+1 ;YES - DONT DO ERROR HANDLING
2403 ; EXCEPT FOR ERLOOP
2404
2405 032052 200 14 0 13 000001 ..0111: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2406 032053 200 13 0 13 041615 MOVE SCR1,[EXP RLEFT,RRIGHT](SCR1) ;GET CORRECT RESULT
2407 032054 ..0112: ERROR (LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL
2408 032054 036 14 0 00 041566
2409 032055 035 00 0 00 032036 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2410 ^
2411 ^
2412 TFLAG ([0],F1)^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-6
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0079
2413
2414 032056 200 13 0 00 032043 MOVE SCR1,FLAGL ;GET FLAGS
2415 032057 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
2416 032060 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2417 032061 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2418 032062 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2419 032063 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2420 ERROR (LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2421
2422 032064 036 13 0 00 041627
2423 032065 035 00 0 00 032036 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2424 ^
2425 ^
2426 ; ************************************************
2427
2428 ; **********************************************************************
2429 ; ---------- DADD - TEST F-2: N + N = N ----------
2430 ; **********************************************************************
2431
2432 033213 CNUM=ACONF2-4
2433
2434 REPEAT 6,<
2435 ; ************************************************
2436
2437 LOC=. ;ERROR RETURN ADDRESS
2438 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2439 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
2440 DMOVE AC1,CNUM ;INIT AUGEND
2441 JFCL 17,.+1 ;CLEAR PC FLAGS
2442 DADD AC1,CNUM+2 ;ADD N + N = 77..76,77..76
2443 PCSAVE
2444 CHECKA (LOC,F2,777777777776,777777777776)
2445 TFLAG ([^B0110B3],F2)
2446 ; ************************************************
2447 >
2448
2449 ; ************************************************
2450
2451 032066 LOC=. ;ERROR RETURN ADDRESS
2452 033217 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2453 032066 200 15 0 00 041632 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
2454 032067 120 01 0 00 033217 DMOVE AC1,CNUM ;INIT AUGEND
2455 032070 255 17 0 00 032071 JFCL 17,.+1 ;CLEAR PC FLAGS
2456 032071 114 01 0 00 033221 DADD AC1,CNUM+2 ;ADD N + N = 77..76,77..76
2457 PCSAVE^
2458 032072 264 00 0 00 032073 JSR .+1 ;STORE PC
2459 032073 FLAGL=. ;LOCATION OF PC
2460 032073 000000 000000 0 ;PC
2461 ^
2462 CHECKA (LOC,F2,777777777776,777777777776)^
2463
2464 032074 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2465 032075 312 01 0 00 041443 CAME AC1,[777777777776] ;IS LEFT HALF OF RESULT CORRECT?
2466 032076 254 00 0 00 032102 JRST ..0113 ;NO - GO TO ERROR HANDLING
2467 032077 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-7
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0080
2468 032100 316 02 0 00 041443 CAMN AC1+1,[777777777776] ;IS RIGHT HALF CORRECT?
2469 032101 254 00 0 00 032105 JRST ..0114+1 ;YES - DONT DO ERROR HANDLING
2470 ; EXCEPT FOR ERLOOP
2471
2472 032102 200 14 0 13 000001 ..0113: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2473 032103 200 13 0 13 041633 MOVE SCR1,[EXP 777777777776,777777777776](SCR1) ;GET CORRECT RESULT
2474 032104 ..0114: ERROR (LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL
2475 032104 036 14 0 00 041642
2476 032105 035 00 0 00 032066 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2477 ^
2478 ^
2479 TFLAG ([^B0110B3],F2)^
2480
2481 032106 200 13 0 00 032073 MOVE SCR1,FLAGL ;GET FLAGS
2482 032107 200 14 0 00 041645 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS
2483 032110 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2484 032111 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2485 032112 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2486 032113 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2487 ERROR (LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2488
2489 032114 036 13 0 00 041656
2490 032115 035 00 0 00 032066 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2491 ^
2492 ^
2493 ; ************************************************
2494
2495
2496 ; ************************************************
2497
2498 032116 LOC=. ;ERROR RETURN ADDRESS
2499 033223 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2500 032116 200 15 0 00 041661 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
2501 032117 120 01 0 00 033223 DMOVE AC1,CNUM ;INIT AUGEND
2502 032120 255 17 0 00 032121 JFCL 17,.+1 ;CLEAR PC FLAGS
2503 032121 114 01 0 00 033225 DADD AC1,CNUM+2 ;ADD N + N = 77..76,77..76
2504 PCSAVE^
2505 032122 264 00 0 00 032123 JSR .+1 ;STORE PC
2506 032123 FLAGL=. ;LOCATION OF PC
2507 032123 000000 000000 0 ;PC
2508 ^
2509 CHECKA (LOC,F2,777777777776,777777777776)^
2510
2511 032124 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2512 032125 312 01 0 00 041443 CAME AC1,[777777777776] ;IS LEFT HALF OF RESULT CORRECT?
2513 032126 254 00 0 00 032132 JRST ..0115 ;NO - GO TO ERROR HANDLING
2514 032127 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2515 032130 316 02 0 00 041443 CAMN AC1+1,[777777777776] ;IS RIGHT HALF CORRECT?
2516 032131 254 00 0 00 032135 JRST ..0116+1 ;YES - DONT DO ERROR HANDLING
2517 ; EXCEPT FOR ERLOOP
2518
2519 032132 200 14 0 13 000001 ..0115: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2520 032133 200 13 0 13 041633 MOVE SCR1,[EXP 777777777776,777777777776](SCR1) ;GET CORRECT RESULT
2521 032134 ..0116: ERROR (LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL
2522 032134 036 14 0 00 041642
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-8
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0081
2523 032135 035 00 0 00 032116 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2524 ^
2525 ^
2526 TFLAG ([^B0110B3],F2)^
2527
2528 032136 200 13 0 00 032123 MOVE SCR1,FLAGL ;GET FLAGS
2529 032137 200 14 0 00 041645 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS
2530 032140 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2531 032141 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2532 032142 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2533 032143 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2534 ERROR (LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2535
2536 032144 036 13 0 00 041662
2537 032145 035 00 0 00 032116 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2538 ^
2539 ^
2540 ; ************************************************
2541
2542
2543 ; ************************************************
2544
2545 032146 LOC=. ;ERROR RETURN ADDRESS
2546 033227 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2547 032146 200 15 0 00 041665 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
2548 032147 120 01 0 00 033227 DMOVE AC1,CNUM ;INIT AUGEND
2549 032150 255 17 0 00 032151 JFCL 17,.+1 ;CLEAR PC FLAGS
2550 032151 114 01 0 00 033231 DADD AC1,CNUM+2 ;ADD N + N = 77..76,77..76
2551 PCSAVE^
2552 032152 264 00 0 00 032153 JSR .+1 ;STORE PC
2553 032153 FLAGL=. ;LOCATION OF PC
2554 032153 000000 000000 0 ;PC
2555 ^
2556 CHECKA (LOC,F2,777777777776,777777777776)^
2557
2558 032154 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2559 032155 312 01 0 00 041443 CAME AC1,[777777777776] ;IS LEFT HALF OF RESULT CORRECT?
2560 032156 254 00 0 00 032162 JRST ..0117 ;NO - GO TO ERROR HANDLING
2561 032157 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2562 032160 316 02 0 00 041443 CAMN AC1+1,[777777777776] ;IS RIGHT HALF CORRECT?
2563 032161 254 00 0 00 032165 JRST ..0120+1 ;YES - DONT DO ERROR HANDLING
2564 ; EXCEPT FOR ERLOOP
2565
2566 032162 200 14 0 13 000001 ..0117: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2567 032163 200 13 0 13 041633 MOVE SCR1,[EXP 777777777776,777777777776](SCR1) ;GET CORRECT RESULT
2568 032164 ..0120: ERROR (LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL
2569 032164 036 14 0 00 041642
2570 032165 035 00 0 00 032146 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2571 ^
2572 ^
2573 TFLAG ([^B0110B3],F2)^
2574
2575 032166 200 13 0 00 032153 MOVE SCR1,FLAGL ;GET FLAGS
2576 032167 200 14 0 00 041645 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS
2577 032170 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-9
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0082
2578 032171 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2579 032172 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2580 032173 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2581 ERROR (LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2582
2583 032174 036 13 0 00 041666
2584 032175 035 00 0 00 032146 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2585 ^
2586 ^
2587 ; ************************************************
2588
2589
2590 ; ************************************************
2591
2592 032176 LOC=. ;ERROR RETURN ADDRESS
2593 033233 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2594 032176 200 15 0 00 041671 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
2595 032177 120 01 0 00 033233 DMOVE AC1,CNUM ;INIT AUGEND
2596 032200 255 17 0 00 032201 JFCL 17,.+1 ;CLEAR PC FLAGS
2597 032201 114 01 0 00 033235 DADD AC1,CNUM+2 ;ADD N + N = 77..76,77..76
2598 PCSAVE^
2599 032202 264 00 0 00 032203 JSR .+1 ;STORE PC
2600 032203 FLAGL=. ;LOCATION OF PC
2601 032203 000000 000000 0 ;PC
2602 ^
2603 CHECKA (LOC,F2,777777777776,777777777776)^
2604
2605 032204 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2606 032205 312 01 0 00 041443 CAME AC1,[777777777776] ;IS LEFT HALF OF RESULT CORRECT?
2607 032206 254 00 0 00 032212 JRST ..0121 ;NO - GO TO ERROR HANDLING
2608 032207 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2609 032210 316 02 0 00 041443 CAMN AC1+1,[777777777776] ;IS RIGHT HALF CORRECT?
2610 032211 254 00 0 00 032215 JRST ..0122+1 ;YES - DONT DO ERROR HANDLING
2611 ; EXCEPT FOR ERLOOP
2612
2613 032212 200 14 0 13 000001 ..0121: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2614 032213 200 13 0 13 041633 MOVE SCR1,[EXP 777777777776,777777777776](SCR1) ;GET CORRECT RESULT
2615 032214 ..0122: ERROR (LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL
2616 032214 036 14 0 00 041642
2617 032215 035 00 0 00 032176 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2618 ^
2619 ^
2620 TFLAG ([^B0110B3],F2)^
2621
2622 032216 200 13 0 00 032203 MOVE SCR1,FLAGL ;GET FLAGS
2623 032217 200 14 0 00 041645 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS
2624 032220 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2625 032221 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2626 032222 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2627 032223 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2628 ERROR (LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2629
2630 032224 036 13 0 00 041672
2631 032225 035 00 0 00 032176 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2632 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-10
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0083
2633 ^
2634 ; ************************************************
2635
2636
2637 ; ************************************************
2638
2639 032226 LOC=. ;ERROR RETURN ADDRESS
2640 033237 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2641 032226 200 15 0 00 041675 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
2642 032227 120 01 0 00 033237 DMOVE AC1,CNUM ;INIT AUGEND
2643 032230 255 17 0 00 032231 JFCL 17,.+1 ;CLEAR PC FLAGS
2644 032231 114 01 0 00 033241 DADD AC1,CNUM+2 ;ADD N + N = 77..76,77..76
2645 PCSAVE^
2646 032232 264 00 0 00 032233 JSR .+1 ;STORE PC
2647 032233 FLAGL=. ;LOCATION OF PC
2648 032233 000000 000000 0 ;PC
2649 ^
2650 CHECKA (LOC,F2,777777777776,777777777776)^
2651
2652 032234 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2653 032235 312 01 0 00 041443 CAME AC1,[777777777776] ;IS LEFT HALF OF RESULT CORRECT?
2654 032236 254 00 0 00 032242 JRST ..0123 ;NO - GO TO ERROR HANDLING
2655 032237 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2656 032240 316 02 0 00 041443 CAMN AC1+1,[777777777776] ;IS RIGHT HALF CORRECT?
2657 032241 254 00 0 00 032245 JRST ..0124+1 ;YES - DONT DO ERROR HANDLING
2658 ; EXCEPT FOR ERLOOP
2659
2660 032242 200 14 0 13 000001 ..0123: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2661 032243 200 13 0 13 041633 MOVE SCR1,[EXP 777777777776,777777777776](SCR1) ;GET CORRECT RESULT
2662 032244 ..0124: ERROR (LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL
2663 032244 036 14 0 00 041642
2664 032245 035 00 0 00 032226 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2665 ^
2666 ^
2667 TFLAG ([^B0110B3],F2)^
2668
2669 032246 200 13 0 00 032233 MOVE SCR1,FLAGL ;GET FLAGS
2670 032247 200 14 0 00 041645 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS
2671 032250 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2672 032251 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2673 032252 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2674 032253 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2675 ERROR (LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2676
2677 032254 036 13 0 00 041676
2678 032255 035 00 0 00 032226 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2679 ^
2680 ^
2681 ; ************************************************
2682
2683
2684 ; ************************************************
2685
2686 032256 LOC=. ;ERROR RETURN ADDRESS
2687 033243 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-11
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0084
2688 032256 200 15 0 00 041701 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
2689 032257 120 01 0 00 033243 DMOVE AC1,CNUM ;INIT AUGEND
2690 032260 255 17 0 00 032261 JFCL 17,.+1 ;CLEAR PC FLAGS
2691 032261 114 01 0 00 033245 DADD AC1,CNUM+2 ;ADD N + N = 77..76,77..76
2692 PCSAVE^
2693 032262 264 00 0 00 032263 JSR .+1 ;STORE PC
2694 032263 FLAGL=. ;LOCATION OF PC
2695 032263 000000 000000 0 ;PC
2696 ^
2697 CHECKA (LOC,F2,777777777776,777777777776)^
2698
2699 032264 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2700 032265 312 01 0 00 041443 CAME AC1,[777777777776] ;IS LEFT HALF OF RESULT CORRECT?
2701 032266 254 00 0 00 032272 JRST ..0125 ;NO - GO TO ERROR HANDLING
2702 032267 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2703 032270 316 02 0 00 041443 CAMN AC1+1,[777777777776] ;IS RIGHT HALF CORRECT?
2704 032271 254 00 0 00 032275 JRST ..0126+1 ;YES - DONT DO ERROR HANDLING
2705 ; EXCEPT FOR ERLOOP
2706
2707 032272 200 14 0 13 000001 ..0125: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2708 032273 200 13 0 13 041633 MOVE SCR1,[EXP 777777777776,777777777776](SCR1) ;GET CORRECT RESULT
2709 032274 ..0126: ERROR (LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL
2710 032274 036 14 0 00 041642
2711 032275 035 00 0 00 032256 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2712 ^
2713 ^
2714 TFLAG ([^B0110B3],F2)^
2715
2716 032276 200 13 0 00 032263 MOVE SCR1,FLAGL ;GET FLAGS
2717 032277 200 14 0 00 041645 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS
2718 032300 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2719 032301 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2720 032302 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2721 032303 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2722 ERROR (LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2723
2724 032304 036 13 0 00 041702
2725 032305 035 00 0 00 032256 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2726 ^
2727 ^
2728 ; ************************************************
2729
2730 ; **********************************************************************
2731 ; ---------- DADD - TEST F-3: P + P = P ----------
2732 ; **********************************************************************
2733
2734 033243 CNUM=ACONF3-4
2735
2736 REPEAT 6,<
2737 ; ************************************************
2738
2739 LOC=. ;ERROR RETURN ADDRESS
2740 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2741 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
2742 DMOVE AC1,CNUM ;INIT AUGEND
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-12
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0085
2743 JFCL 17,.+1 ;CLEAR PC FLAGS
2744 DADD AC1,CNUM+2 ;ADD N + P = 1,1
2745 PCSAVE
2746 CHECKA (LOC,F3,1,1)
2747 TFLAG ([0],F3)
2748 ; ************************************************
2749 >
2750
2751 ; ************************************************
2752
2753 032306 LOC=. ;ERROR RETURN ADDRESS
2754 033247 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2755 032306 200 15 0 00 041705 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
2756 032307 120 01 0 00 033247 DMOVE AC1,CNUM ;INIT AUGEND
2757 032310 255 17 0 00 032311 JFCL 17,.+1 ;CLEAR PC FLAGS
2758 032311 114 01 0 00 033251 DADD AC1,CNUM+2 ;ADD N + P = 1,1
2759 PCSAVE^
2760 032312 264 00 0 00 032313 JSR .+1 ;STORE PC
2761 032313 FLAGL=. ;LOCATION OF PC
2762 032313 000000 000000 0 ;PC
2763 ^
2764 CHECKA (LOC,F3,1,1)^
2765
2766 032314 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2767 032315 312 01 0 00 041403 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT?
2768 032316 254 00 0 00 032322 JRST ..0127 ;NO - GO TO ERROR HANDLING
2769 032317 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2770 032320 316 02 0 00 041403 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT?
2771 032321 254 00 0 00 032325 JRST ..0130+1 ;YES - DONT DO ERROR HANDLING
2772 ; EXCEPT FOR ERLOOP
2773
2774 032322 200 14 0 13 000001 ..0127: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2775 032323 200 13 0 13 041706 MOVE SCR1,[EXP 1,1](SCR1) ;GET CORRECT RESULT
2776 032324 ..0130: ERROR (LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL
2777 032324 036 14 0 00 041715
2778 032325 035 00 0 00 032306 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2779 ^
2780 ^
2781 TFLAG ([0],F3)^
2782
2783 032326 200 13 0 00 032313 MOVE SCR1,FLAGL ;GET FLAGS
2784 032327 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
2785 032330 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2786 032331 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2787 032332 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2788 032333 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2789 ERROR (LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2790
2791 032334 036 13 0 00 041730
2792 032335 035 00 0 00 032306 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2793 ^
2794 ^
2795 ; ************************************************
2796
2797
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-13
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0086
2798 ; ************************************************
2799
2800 032336 LOC=. ;ERROR RETURN ADDRESS
2801 033253 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2802 032336 200 15 0 00 041733 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
2803 032337 120 01 0 00 033253 DMOVE AC1,CNUM ;INIT AUGEND
2804 032340 255 17 0 00 032341 JFCL 17,.+1 ;CLEAR PC FLAGS
2805 032341 114 01 0 00 033255 DADD AC1,CNUM+2 ;ADD N + P = 1,1
2806 PCSAVE^
2807 032342 264 00 0 00 032343 JSR .+1 ;STORE PC
2808 032343 FLAGL=. ;LOCATION OF PC
2809 032343 000000 000000 0 ;PC
2810 ^
2811 CHECKA (LOC,F3,1,1)^
2812
2813 032344 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2814 032345 312 01 0 00 041403 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT?
2815 032346 254 00 0 00 032352 JRST ..0131 ;NO - GO TO ERROR HANDLING
2816 032347 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2817 032350 316 02 0 00 041403 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT?
2818 032351 254 00 0 00 032355 JRST ..0132+1 ;YES - DONT DO ERROR HANDLING
2819 ; EXCEPT FOR ERLOOP
2820
2821 032352 200 14 0 13 000001 ..0131: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2822 032353 200 13 0 13 041706 MOVE SCR1,[EXP 1,1](SCR1) ;GET CORRECT RESULT
2823 032354 ..0132: ERROR (LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL
2824 032354 036 14 0 00 041715
2825 032355 035 00 0 00 032336 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2826 ^
2827 ^
2828 TFLAG ([0],F3)^
2829
2830 032356 200 13 0 00 032343 MOVE SCR1,FLAGL ;GET FLAGS
2831 032357 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
2832 032360 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2833 032361 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2834 032362 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2835 032363 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2836 ERROR (LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2837
2838 032364 036 13 0 00 041734
2839 032365 035 00 0 00 032336 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2840 ^
2841 ^
2842 ; ************************************************
2843
2844
2845 ; ************************************************
2846
2847 032366 LOC=. ;ERROR RETURN ADDRESS
2848 033257 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2849 032366 200 15 0 00 041737 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
2850 032367 120 01 0 00 033257 DMOVE AC1,CNUM ;INIT AUGEND
2851 032370 255 17 0 00 032371 JFCL 17,.+1 ;CLEAR PC FLAGS
2852 032371 114 01 0 00 033261 DADD AC1,CNUM+2 ;ADD N + P = 1,1
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-14
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0087
2853 PCSAVE^
2854 032372 264 00 0 00 032373 JSR .+1 ;STORE PC
2855 032373 FLAGL=. ;LOCATION OF PC
2856 032373 000000 000000 0 ;PC
2857 ^
2858 CHECKA (LOC,F3,1,1)^
2859
2860 032374 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2861 032375 312 01 0 00 041403 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT?
2862 032376 254 00 0 00 032402 JRST ..0133 ;NO - GO TO ERROR HANDLING
2863 032377 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2864 032400 316 02 0 00 041403 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT?
2865 032401 254 00 0 00 032405 JRST ..0134+1 ;YES - DONT DO ERROR HANDLING
2866 ; EXCEPT FOR ERLOOP
2867
2868 032402 200 14 0 13 000001 ..0133: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2869 032403 200 13 0 13 041706 MOVE SCR1,[EXP 1,1](SCR1) ;GET CORRECT RESULT
2870 032404 ..0134: ERROR (LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL
2871 032404 036 14 0 00 041715
2872 032405 035 00 0 00 032366 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2873 ^
2874 ^
2875 TFLAG ([0],F3)^
2876
2877 032406 200 13 0 00 032373 MOVE SCR1,FLAGL ;GET FLAGS
2878 032407 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
2879 032410 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2880 032411 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2881 032412 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2882 032413 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2883 ERROR (LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2884
2885 032414 036 13 0 00 041740
2886 032415 035 00 0 00 032366 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2887 ^
2888 ^
2889 ; ************************************************
2890
2891
2892 ; ************************************************
2893
2894 032416 LOC=. ;ERROR RETURN ADDRESS
2895 033263 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2896 032416 200 15 0 00 041743 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
2897 032417 120 01 0 00 033263 DMOVE AC1,CNUM ;INIT AUGEND
2898 032420 255 17 0 00 032421 JFCL 17,.+1 ;CLEAR PC FLAGS
2899 032421 114 01 0 00 033265 DADD AC1,CNUM+2 ;ADD N + P = 1,1
2900 PCSAVE^
2901 032422 264 00 0 00 032423 JSR .+1 ;STORE PC
2902 032423 FLAGL=. ;LOCATION OF PC
2903 032423 000000 000000 0 ;PC
2904 ^
2905 CHECKA (LOC,F3,1,1)^
2906
2907 032424 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-15
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0088
2908 032425 312 01 0 00 041403 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT?
2909 032426 254 00 0 00 032432 JRST ..0135 ;NO - GO TO ERROR HANDLING
2910 032427 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2911 032430 316 02 0 00 041403 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT?
2912 032431 254 00 0 00 032435 JRST ..0136+1 ;YES - DONT DO ERROR HANDLING
2913 ; EXCEPT FOR ERLOOP
2914
2915 032432 200 14 0 13 000001 ..0135: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
2916 032433 200 13 0 13 041706 MOVE SCR1,[EXP 1,1](SCR1) ;GET CORRECT RESULT
2917 032434 ..0136: ERROR (LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL
2918 032434 036 14 0 00 041715
2919 032435 035 00 0 00 032416 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2920 ^
2921 ^
2922 TFLAG ([0],F3)^
2923
2924 032436 200 13 0 00 032423 MOVE SCR1,FLAGL ;GET FLAGS
2925 032437 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
2926 032440 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2927 032441 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2928 032442 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2929 032443 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2930 ERROR (LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2931
2932 032444 036 13 0 00 041744
2933 032445 035 00 0 00 032416 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2934 ^
2935 ^
2936 ; ************************************************
2937
2938
2939 ; ************************************************
2940
2941 032446 LOC=. ;ERROR RETURN ADDRESS
2942 033267 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2943 032446 200 15 0 00 041747 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
2944 032447 120 01 0 00 033267 DMOVE AC1,CNUM ;INIT AUGEND
2945 032450 255 17 0 00 032451 JFCL 17,.+1 ;CLEAR PC FLAGS
2946 032451 114 01 0 00 033271 DADD AC1,CNUM+2 ;ADD N + P = 1,1
2947 PCSAVE^
2948 032452 264 00 0 00 032453 JSR .+1 ;STORE PC
2949 032453 FLAGL=. ;LOCATION OF PC
2950 032453 000000 000000 0 ;PC
2951 ^
2952 CHECKA (LOC,F3,1,1)^
2953
2954 032454 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
2955 032455 312 01 0 00 041403 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT?
2956 032456 254 00 0 00 032462 JRST ..0137 ;NO - GO TO ERROR HANDLING
2957 032457 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
2958 032460 316 02 0 00 041403 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT?
2959 032461 254 00 0 00 032465 JRST ..0140+1 ;YES - DONT DO ERROR HANDLING
2960 ; EXCEPT FOR ERLOOP
2961
2962 032462 200 14 0 13 000001 ..0137: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-16
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0089
2963 032463 200 13 0 13 041706 MOVE SCR1,[EXP 1,1](SCR1) ;GET CORRECT RESULT
2964 032464 ..0140: ERROR (LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL
2965 032464 036 14 0 00 041715
2966 032465 035 00 0 00 032446 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2967 ^
2968 ^
2969 TFLAG ([0],F3)^
2970
2971 032466 200 13 0 00 032453 MOVE SCR1,FLAGL ;GET FLAGS
2972 032467 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
2973 032470 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
2974 032471 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
2975 032472 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
2976 032473 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
2977 ERROR (LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
2978
2979 032474 036 13 0 00 041750
2980 032475 035 00 0 00 032446 ERLOOP LOC ;IF ERROR, LOOP TO LOC
2981 ^
2982 ^
2983 ; ************************************************
2984
2985
2986 ; ************************************************
2987
2988 032476 LOC=. ;ERROR RETURN ADDRESS
2989 033273 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
2990 032476 200 15 0 00 041753 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
2991 032477 120 01 0 00 033273 DMOVE AC1,CNUM ;INIT AUGEND
2992 032500 255 17 0 00 032501 JFCL 17,.+1 ;CLEAR PC FLAGS
2993 032501 114 01 0 00 033275 DADD AC1,CNUM+2 ;ADD N + P = 1,1
2994 PCSAVE^
2995 032502 264 00 0 00 032503 JSR .+1 ;STORE PC
2996 032503 FLAGL=. ;LOCATION OF PC
2997 032503 000000 000000 0 ;PC
2998 ^
2999 CHECKA (LOC,F3,1,1)^
3000
3001 032504 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3002 032505 312 01 0 00 041403 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT?
3003 032506 254 00 0 00 032512 JRST ..0141 ;NO - GO TO ERROR HANDLING
3004 032507 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3005 032510 316 02 0 00 041403 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT?
3006 032511 254 00 0 00 032515 JRST ..0142+1 ;YES - DONT DO ERROR HANDLING
3007 ; EXCEPT FOR ERLOOP
3008
3009 032512 200 14 0 13 000001 ..0141: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3010 032513 200 13 0 13 041706 MOVE SCR1,[EXP 1,1](SCR1) ;GET CORRECT RESULT
3011 032514 ..0142: ERROR (LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL
3012 032514 036 14 0 00 041715
3013 032515 035 00 0 00 032476 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3014 ^
3015 ^
3016 TFLAG ([0],F3)^
3017
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-17
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0090
3018 032516 200 13 0 00 032503 MOVE SCR1,FLAGL ;GET FLAGS
3019 032517 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
3020 032520 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3021 032521 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3022 032522 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3023 032523 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3024 ERROR (LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3025
3026 032524 036 13 0 00 041754
3027 032525 035 00 0 00 032476 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3028 ^
3029 ^
3030 ; ************************************************
3031
3032 ; **********************************************************************
3033 ; ---------- DADD - TEST F-4: N + P = -1,-1 ----------
3034 ; **********************************************************************
3035
3036 033273 CNUM=ACONF4-4
3037
3038 REPEAT 6,<
3039 ; ************************************************
3040
3041 LOC=. ;ERROR RETURN ADDRESS
3042 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
3043 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3044 DMOVE AC1,CNUM ;INIT AUGEND
3045 JFCL 17,.+1 ;CLEAR PC FLAGS
3046 DADD AC1,CNUM+2 ;ADD N + P = -1,-1
3047 PCSAVE
3048 CHECKA (LOC,F4,-1,-1)
3049 TFLAG ([0],F4)
3050 ; ************************************************
3051 >
3052
3053 ; ************************************************
3054
3055 032526 LOC=. ;ERROR RETURN ADDRESS
3056 033277 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
3057 032526 200 15 0 00 041757 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3058 032527 120 01 0 00 033277 DMOVE AC1,CNUM ;INIT AUGEND
3059 032530 255 17 0 00 032531 JFCL 17,.+1 ;CLEAR PC FLAGS
3060 032531 114 01 0 00 033301 DADD AC1,CNUM+2 ;ADD N + P = -1,-1
3061 PCSAVE^
3062 032532 264 00 0 00 032533 JSR .+1 ;STORE PC
3063 032533 FLAGL=. ;LOCATION OF PC
3064 032533 000000 000000 0 ;PC
3065 ^
3066 CHECKA (LOC,F4,-1,-1)^
3067
3068 032534 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3069 032535 312 01 0 00 041442 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT?
3070 032536 254 00 0 00 032542 JRST ..0143 ;NO - GO TO ERROR HANDLING
3071 032537 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3072 032540 316 02 0 00 041442 CAMN AC1+1,[-1] ;IS RIGHT HALF CORRECT?
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-18
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0091
3073 032541 254 00 0 00 032545 JRST ..0144+1 ;YES - DONT DO ERROR HANDLING
3074 ; EXCEPT FOR ERLOOP
3075
3076 032542 200 14 0 13 000001 ..0143: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3077 032543 200 13 0 13 041615 MOVE SCR1,[EXP -1,-1](SCR1) ;GET CORRECT RESULT
3078 032544 ..0144: ERROR (LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL
3079 032544 036 14 0 00 041765
3080 032545 035 00 0 00 032526 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3081 ^
3082 ^
3083 TFLAG ([0],F4)^
3084
3085 032546 200 13 0 00 032533 MOVE SCR1,FLAGL ;GET FLAGS
3086 032547 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
3087 032550 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3088 032551 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3089 032552 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3090 032553 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3091 ERROR (LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3092
3093 032554 036 13 0 00 042000
3094 032555 035 00 0 00 032526 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3095 ^
3096 ^
3097 ; ************************************************
3098
3099
3100 ; ************************************************
3101
3102 032556 LOC=. ;ERROR RETURN ADDRESS
3103 033303 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
3104 032556 200 15 0 00 042003 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3105 032557 120 01 0 00 033303 DMOVE AC1,CNUM ;INIT AUGEND
3106 032560 255 17 0 00 032561 JFCL 17,.+1 ;CLEAR PC FLAGS
3107 032561 114 01 0 00 033305 DADD AC1,CNUM+2 ;ADD N + P = -1,-1
3108 PCSAVE^
3109 032562 264 00 0 00 032563 JSR .+1 ;STORE PC
3110 032563 FLAGL=. ;LOCATION OF PC
3111 032563 000000 000000 0 ;PC
3112 ^
3113 CHECKA (LOC,F4,-1,-1)^
3114
3115 032564 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3116 032565 312 01 0 00 041442 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT?
3117 032566 254 00 0 00 032572 JRST ..0145 ;NO - GO TO ERROR HANDLING
3118 032567 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3119 032570 316 02 0 00 041442 CAMN AC1+1,[-1] ;IS RIGHT HALF CORRECT?
3120 032571 254 00 0 00 032575 JRST ..0146+1 ;YES - DONT DO ERROR HANDLING
3121 ; EXCEPT FOR ERLOOP
3122
3123 032572 200 14 0 13 000001 ..0145: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3124 032573 200 13 0 13 041615 MOVE SCR1,[EXP -1,-1](SCR1) ;GET CORRECT RESULT
3125 032574 ..0146: ERROR (LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL
3126 032574 036 14 0 00 041765
3127 032575 035 00 0 00 032556 ERLOOP LOC ;IF ERROR, LOOP TO LOC
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-19
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0092
3128 ^
3129 ^
3130 TFLAG ([0],F4)^
3131
3132 032576 200 13 0 00 032563 MOVE SCR1,FLAGL ;GET FLAGS
3133 032577 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
3134 032600 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3135 032601 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3136 032602 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3137 032603 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3138 ERROR (LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3139
3140 032604 036 13 0 00 042004
3141 032605 035 00 0 00 032556 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3142 ^
3143 ^
3144 ; ************************************************
3145
3146
3147 ; ************************************************
3148
3149 032606 LOC=. ;ERROR RETURN ADDRESS
3150 033307 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
3151 032606 200 15 0 00 042007 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3152 032607 120 01 0 00 033307 DMOVE AC1,CNUM ;INIT AUGEND
3153 032610 255 17 0 00 032611 JFCL 17,.+1 ;CLEAR PC FLAGS
3154 032611 114 01 0 00 033311 DADD AC1,CNUM+2 ;ADD N + P = -1,-1
3155 PCSAVE^
3156 032612 264 00 0 00 032613 JSR .+1 ;STORE PC
3157 032613 FLAGL=. ;LOCATION OF PC
3158 032613 000000 000000 0 ;PC
3159 ^
3160 CHECKA (LOC,F4,-1,-1)^
3161
3162 032614 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3163 032615 312 01 0 00 041442 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT?
3164 032616 254 00 0 00 032622 JRST ..0147 ;NO - GO TO ERROR HANDLING
3165 032617 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3166 032620 316 02 0 00 041442 CAMN AC1+1,[-1] ;IS RIGHT HALF CORRECT?
3167 032621 254 00 0 00 032625 JRST ..0150+1 ;YES - DONT DO ERROR HANDLING
3168 ; EXCEPT FOR ERLOOP
3169
3170 032622 200 14 0 13 000001 ..0147: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3171 032623 200 13 0 13 041615 MOVE SCR1,[EXP -1,-1](SCR1) ;GET CORRECT RESULT
3172 032624 ..0150: ERROR (LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL
3173 032624 036 14 0 00 041765
3174 032625 035 00 0 00 032606 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3175 ^
3176 ^
3177 TFLAG ([0],F4)^
3178
3179 032626 200 13 0 00 032613 MOVE SCR1,FLAGL ;GET FLAGS
3180 032627 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
3181 032630 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3182 032631 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-20
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0093
3183 032632 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3184 032633 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3185 ERROR (LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3186
3187 032634 036 13 0 00 042010
3188 032635 035 00 0 00 032606 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3189 ^
3190 ^
3191 ; ************************************************
3192
3193
3194 ; ************************************************
3195
3196 032636 LOC=. ;ERROR RETURN ADDRESS
3197 033313 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
3198 032636 200 15 0 00 042013 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3199 032637 120 01 0 00 033313 DMOVE AC1,CNUM ;INIT AUGEND
3200 032640 255 17 0 00 032641 JFCL 17,.+1 ;CLEAR PC FLAGS
3201 032641 114 01 0 00 033315 DADD AC1,CNUM+2 ;ADD N + P = -1,-1
3202 PCSAVE^
3203 032642 264 00 0 00 032643 JSR .+1 ;STORE PC
3204 032643 FLAGL=. ;LOCATION OF PC
3205 032643 000000 000000 0 ;PC
3206 ^
3207 CHECKA (LOC,F4,-1,-1)^
3208
3209 032644 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3210 032645 312 01 0 00 041442 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT?
3211 032646 254 00 0 00 032652 JRST ..0151 ;NO - GO TO ERROR HANDLING
3212 032647 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3213 032650 316 02 0 00 041442 CAMN AC1+1,[-1] ;IS RIGHT HALF CORRECT?
3214 032651 254 00 0 00 032655 JRST ..0152+1 ;YES - DONT DO ERROR HANDLING
3215 ; EXCEPT FOR ERLOOP
3216
3217 032652 200 14 0 13 000001 ..0151: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3218 032653 200 13 0 13 041615 MOVE SCR1,[EXP -1,-1](SCR1) ;GET CORRECT RESULT
3219 032654 ..0152: ERROR (LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL
3220 032654 036 14 0 00 041765
3221 032655 035 00 0 00 032636 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3222 ^
3223 ^
3224 TFLAG ([0],F4)^
3225
3226 032656 200 13 0 00 032643 MOVE SCR1,FLAGL ;GET FLAGS
3227 032657 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
3228 032660 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3229 032661 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3230 032662 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3231 032663 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3232 ERROR (LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3233
3234 032664 036 13 0 00 042014
3235 032665 035 00 0 00 032636 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3236 ^
3237 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-21
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0094
3238 ; ************************************************
3239
3240
3241 ; ************************************************
3242
3243 032666 LOC=. ;ERROR RETURN ADDRESS
3244 033317 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
3245 032666 200 15 0 00 042017 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3246 032667 120 01 0 00 033317 DMOVE AC1,CNUM ;INIT AUGEND
3247 032670 255 17 0 00 032671 JFCL 17,.+1 ;CLEAR PC FLAGS
3248 032671 114 01 0 00 033321 DADD AC1,CNUM+2 ;ADD N + P = -1,-1
3249 PCSAVE^
3250 032672 264 00 0 00 032673 JSR .+1 ;STORE PC
3251 032673 FLAGL=. ;LOCATION OF PC
3252 032673 000000 000000 0 ;PC
3253 ^
3254 CHECKA (LOC,F4,-1,-1)^
3255
3256 032674 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3257 032675 312 01 0 00 041442 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT?
3258 032676 254 00 0 00 032702 JRST ..0153 ;NO - GO TO ERROR HANDLING
3259 032677 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3260 032700 316 02 0 00 041442 CAMN AC1+1,[-1] ;IS RIGHT HALF CORRECT?
3261 032701 254 00 0 00 032705 JRST ..0154+1 ;YES - DONT DO ERROR HANDLING
3262 ; EXCEPT FOR ERLOOP
3263
3264 032702 200 14 0 13 000001 ..0153: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3265 032703 200 13 0 13 041615 MOVE SCR1,[EXP -1,-1](SCR1) ;GET CORRECT RESULT
3266 032704 ..0154: ERROR (LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL
3267 032704 036 14 0 00 041765
3268 032705 035 00 0 00 032666 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3269 ^
3270 ^
3271 TFLAG ([0],F4)^
3272
3273 032706 200 13 0 00 032673 MOVE SCR1,FLAGL ;GET FLAGS
3274 032707 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
3275 032710 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3276 032711 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3277 032712 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3278 032713 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3279 ERROR (LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3280
3281 032714 036 13 0 00 042020
3282 032715 035 00 0 00 032666 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3283 ^
3284 ^
3285 ; ************************************************
3286
3287
3288 ; ************************************************
3289
3290 032716 LOC=. ;ERROR RETURN ADDRESS
3291 033323 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
3292 032716 200 15 0 00 042023 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-22
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0095
3293 032717 120 01 0 00 033323 DMOVE AC1,CNUM ;INIT AUGEND
3294 032720 255 17 0 00 032721 JFCL 17,.+1 ;CLEAR PC FLAGS
3295 032721 114 01 0 00 033325 DADD AC1,CNUM+2 ;ADD N + P = -1,-1
3296 PCSAVE^
3297 032722 264 00 0 00 032723 JSR .+1 ;STORE PC
3298 032723 FLAGL=. ;LOCATION OF PC
3299 032723 000000 000000 0 ;PC
3300 ^
3301 CHECKA (LOC,F4,-1,-1)^
3302
3303 032724 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3304 032725 312 01 0 00 041442 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT?
3305 032726 254 00 0 00 032732 JRST ..0155 ;NO - GO TO ERROR HANDLING
3306 032727 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3307 032730 316 02 0 00 041442 CAMN AC1+1,[-1] ;IS RIGHT HALF CORRECT?
3308 032731 254 00 0 00 032735 JRST ..0156+1 ;YES - DONT DO ERROR HANDLING
3309 ; EXCEPT FOR ERLOOP
3310
3311 032732 200 14 0 13 000001 ..0155: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3312 032733 200 13 0 13 041615 MOVE SCR1,[EXP -1,-1](SCR1) ;GET CORRECT RESULT
3313 032734 ..0156: ERROR (LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL
3314 032734 036 14 0 00 041765
3315 032735 035 00 0 00 032716 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3316 ^
3317 ^
3318 TFLAG ([0],F4)^
3319
3320 032736 200 13 0 00 032723 MOVE SCR1,FLAGL ;GET FLAGS
3321 032737 200 14 0 00 041274 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS
3322 032740 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3323 032741 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3324 032742 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3325 032743 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3326 ERROR (LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3327
3328 032744 036 13 0 00 042024
3329 032745 035 00 0 00 032716 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3330 ^
3331 ^
3332 ; ************************************************
3333
3334 ; **********************************************************************
3335 ; ---------- DADD - TEST F-5: N + P = 0,1 ----------
3336 ; **********************************************************************
3337
3338 033323 CNUM=ACONF5-4
3339
3340 REPEAT 6,<
3341 ; ************************************************
3342
3343 LOC=. ;ERROR RETURN ADDRESS
3344 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
3345 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3346 DMOVE AC1,CNUM ;INIT AUGEND
3347 JFCL 17,.+1 ;CLEAR PC FLAGS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-23
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0096
3348 DADD AC1,CNUM+2 ;ADD N + P = 0,1
3349 PCSAVE
3350 CHECKA (LOC,F5,0,1)
3351 TFLAG ([^B0110B3],F5)
3352 ; ************************************************
3353 >
3354
3355 ; ************************************************
3356
3357 032746 LOC=. ;ERROR RETURN ADDRESS
3358 033327 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
3359 032746 200 15 0 00 042027 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3360 032747 120 01 0 00 033327 DMOVE AC1,CNUM ;INIT AUGEND
3361 032750 255 17 0 00 032751 JFCL 17,.+1 ;CLEAR PC FLAGS
3362 032751 114 01 0 00 033331 DADD AC1,CNUM+2 ;ADD N + P = 0,1
3363 PCSAVE^
3364 032752 264 00 0 00 032753 JSR .+1 ;STORE PC
3365 032753 FLAGL=. ;LOCATION OF PC
3366 032753 000000 000000 0 ;PC
3367 ^
3368 CHECKA (LOC,F5,0,1)^
3369
3370 032754 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3371 032755 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
3372 032756 254 00 0 00 032762 JRST ..0157 ;NO - GO TO ERROR HANDLING
3373 032757 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3374 032760 316 02 0 00 041403 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT?
3375 032761 254 00 0 00 032765 JRST ..0160+1 ;YES - DONT DO ERROR HANDLING
3376 ; EXCEPT FOR ERLOOP
3377
3378 032762 200 14 0 13 000001 ..0157: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3379 032763 200 13 0 13 041402 MOVE SCR1,[EXP 0,1](SCR1) ;GET CORRECT RESULT
3380 032764 ..0160: ERROR (LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL
3381 032764 036 14 0 00 042035
3382 032765 035 00 0 00 032746 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3383 ^
3384 ^
3385 TFLAG ([^B0110B3],F5)^
3386
3387 032766 200 13 0 00 032753 MOVE SCR1,FLAGL ;GET FLAGS
3388 032767 200 14 0 00 041645 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS
3389 032770 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3390 032771 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3391 032772 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3392 032773 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3393 ERROR (LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3394
3395 032774 036 13 0 00 042050
3396 032775 035 00 0 00 032746 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3397 ^
3398 ^
3399 ; ************************************************
3400
3401
3402 ; ************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-24
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0097
3403
3404 032776 LOC=. ;ERROR RETURN ADDRESS
3405 033333 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
3406 032776 200 15 0 00 042053 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3407 032777 120 01 0 00 033333 DMOVE AC1,CNUM ;INIT AUGEND
3408 033000 255 17 0 00 033001 JFCL 17,.+1 ;CLEAR PC FLAGS
3409 033001 114 01 0 00 033335 DADD AC1,CNUM+2 ;ADD N + P = 0,1
3410 PCSAVE^
3411 033002 264 00 0 00 033003 JSR .+1 ;STORE PC
3412 033003 FLAGL=. ;LOCATION OF PC
3413 033003 000000 000000 0 ;PC
3414 ^
3415 CHECKA (LOC,F5,0,1)^
3416
3417 033004 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3418 033005 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
3419 033006 254 00 0 00 033012 JRST ..0161 ;NO - GO TO ERROR HANDLING
3420 033007 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3421 033010 316 02 0 00 041403 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT?
3422 033011 254 00 0 00 033015 JRST ..0162+1 ;YES - DONT DO ERROR HANDLING
3423 ; EXCEPT FOR ERLOOP
3424
3425 033012 200 14 0 13 000001 ..0161: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3426 033013 200 13 0 13 041402 MOVE SCR1,[EXP 0,1](SCR1) ;GET CORRECT RESULT
3427 033014 ..0162: ERROR (LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL
3428 033014 036 14 0 00 042035
3429 033015 035 00 0 00 032776 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3430 ^
3431 ^
3432 TFLAG ([^B0110B3],F5)^
3433
3434 033016 200 13 0 00 033003 MOVE SCR1,FLAGL ;GET FLAGS
3435 033017 200 14 0 00 041645 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS
3436 033020 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3437 033021 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3438 033022 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3439 033023 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3440 ERROR (LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3441
3442 033024 036 13 0 00 042054
3443 033025 035 00 0 00 032776 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3444 ^
3445 ^
3446 ; ************************************************
3447
3448
3449 ; ************************************************
3450
3451 033026 LOC=. ;ERROR RETURN ADDRESS
3452 033337 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
3453 033026 200 15 0 00 042057 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3454 033027 120 01 0 00 033337 DMOVE AC1,CNUM ;INIT AUGEND
3455 033030 255 17 0 00 033031 JFCL 17,.+1 ;CLEAR PC FLAGS
3456 033031 114 01 0 00 033341 DADD AC1,CNUM+2 ;ADD N + P = 0,1
3457 PCSAVE^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-25
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0098
3458 033032 264 00 0 00 033033 JSR .+1 ;STORE PC
3459 033033 FLAGL=. ;LOCATION OF PC
3460 033033 000000 000000 0 ;PC
3461 ^
3462 CHECKA (LOC,F5,0,1)^
3463
3464 033034 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3465 033035 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
3466 033036 254 00 0 00 033042 JRST ..0163 ;NO - GO TO ERROR HANDLING
3467 033037 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3468 033040 316 02 0 00 041403 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT?
3469 033041 254 00 0 00 033045 JRST ..0164+1 ;YES - DONT DO ERROR HANDLING
3470 ; EXCEPT FOR ERLOOP
3471
3472 033042 200 14 0 13 000001 ..0163: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3473 033043 200 13 0 13 041402 MOVE SCR1,[EXP 0,1](SCR1) ;GET CORRECT RESULT
3474 033044 ..0164: ERROR (LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL
3475 033044 036 14 0 00 042035
3476 033045 035 00 0 00 033026 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3477 ^
3478 ^
3479 TFLAG ([^B0110B3],F5)^
3480
3481 033046 200 13 0 00 033033 MOVE SCR1,FLAGL ;GET FLAGS
3482 033047 200 14 0 00 041645 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS
3483 033050 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3484 033051 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3485 033052 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3486 033053 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3487 ERROR (LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3488
3489 033054 036 13 0 00 042060
3490 033055 035 00 0 00 033026 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3491 ^
3492 ^
3493 ; ************************************************
3494
3495
3496 ; ************************************************
3497
3498 033056 LOC=. ;ERROR RETURN ADDRESS
3499 033343 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
3500 033056 200 15 0 00 042063 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3501 033057 120 01 0 00 033343 DMOVE AC1,CNUM ;INIT AUGEND
3502 033060 255 17 0 00 033061 JFCL 17,.+1 ;CLEAR PC FLAGS
3503 033061 114 01 0 00 033345 DADD AC1,CNUM+2 ;ADD N + P = 0,1
3504 PCSAVE^
3505 033062 264 00 0 00 033063 JSR .+1 ;STORE PC
3506 033063 FLAGL=. ;LOCATION OF PC
3507 033063 000000 000000 0 ;PC
3508 ^
3509 CHECKA (LOC,F5,0,1)^
3510
3511 033064 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3512 033065 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-26
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0099
3513 033066 254 00 0 00 033072 JRST ..0165 ;NO - GO TO ERROR HANDLING
3514 033067 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3515 033070 316 02 0 00 041403 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT?
3516 033071 254 00 0 00 033075 JRST ..0166+1 ;YES - DONT DO ERROR HANDLING
3517 ; EXCEPT FOR ERLOOP
3518
3519 033072 200 14 0 13 000001 ..0165: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3520 033073 200 13 0 13 041402 MOVE SCR1,[EXP 0,1](SCR1) ;GET CORRECT RESULT
3521 033074 ..0166: ERROR (LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL
3522 033074 036 14 0 00 042035
3523 033075 035 00 0 00 033056 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3524 ^
3525 ^
3526 TFLAG ([^B0110B3],F5)^
3527
3528 033076 200 13 0 00 033063 MOVE SCR1,FLAGL ;GET FLAGS
3529 033077 200 14 0 00 041645 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS
3530 033100 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3531 033101 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3532 033102 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3533 033103 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3534 ERROR (LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3535
3536 033104 036 13 0 00 042064
3537 033105 035 00 0 00 033056 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3538 ^
3539 ^
3540 ; ************************************************
3541
3542
3543 ; ************************************************
3544
3545 033106 LOC=. ;ERROR RETURN ADDRESS
3546 033347 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
3547 033106 200 15 0 00 042067 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3548 033107 120 01 0 00 033347 DMOVE AC1,CNUM ;INIT AUGEND
3549 033110 255 17 0 00 033111 JFCL 17,.+1 ;CLEAR PC FLAGS
3550 033111 114 01 0 00 033351 DADD AC1,CNUM+2 ;ADD N + P = 0,1
3551 PCSAVE^
3552 033112 264 00 0 00 033113 JSR .+1 ;STORE PC
3553 033113 FLAGL=. ;LOCATION OF PC
3554 033113 000000 000000 0 ;PC
3555 ^
3556 CHECKA (LOC,F5,0,1)^
3557
3558 033114 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3559 033115 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
3560 033116 254 00 0 00 033122 JRST ..0167 ;NO - GO TO ERROR HANDLING
3561 033117 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3562 033120 316 02 0 00 041403 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT?
3563 033121 254 00 0 00 033125 JRST ..0170+1 ;YES - DONT DO ERROR HANDLING
3564 ; EXCEPT FOR ERLOOP
3565
3566 033122 200 14 0 13 000001 ..0167: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3567 033123 200 13 0 13 041402 MOVE SCR1,[EXP 0,1](SCR1) ;GET CORRECT RESULT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-27
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0100
3568 033124 ..0170: ERROR (LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL
3569 033124 036 14 0 00 042035
3570 033125 035 00 0 00 033106 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3571 ^
3572 ^
3573 TFLAG ([^B0110B3],F5)^
3574
3575 033126 200 13 0 00 033113 MOVE SCR1,FLAGL ;GET FLAGS
3576 033127 200 14 0 00 041645 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS
3577 033130 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3578 033131 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3579 033132 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3580 033133 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3581 ERROR (LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3582
3583 033134 036 13 0 00 042070
3584 033135 035 00 0 00 033106 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3585 ^
3586 ^
3587 ; ************************************************
3588
3589
3590 ; ************************************************
3591
3592 033136 LOC=. ;ERROR RETURN ADDRESS
3593 033353 CNUM=CNUM+4 ;ADDRESS OF TEST DATA
3594 033136 200 15 0 00 042073 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3595 033137 120 01 0 00 033353 DMOVE AC1,CNUM ;INIT AUGEND
3596 033140 255 17 0 00 033141 JFCL 17,.+1 ;CLEAR PC FLAGS
3597 033141 114 01 0 00 033355 DADD AC1,CNUM+2 ;ADD N + P = 0,1
3598 PCSAVE^
3599 033142 264 00 0 00 033143 JSR .+1 ;STORE PC
3600 033143 FLAGL=. ;LOCATION OF PC
3601 033143 000000 000000 0 ;PC
3602 ^
3603 CHECKA (LOC,F5,0,1)^
3604
3605 033144 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3606 033145 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
3607 033146 254 00 0 00 033152 JRST ..0171 ;NO - GO TO ERROR HANDLING
3608 033147 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3609 033150 316 02 0 00 041403 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT?
3610 033151 254 00 0 00 033155 JRST ..0172+1 ;YES - DONT DO ERROR HANDLING
3611 ; EXCEPT FOR ERLOOP
3612
3613 033152 200 14 0 13 000001 ..0171: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3614 033153 200 13 0 13 041402 MOVE SCR1,[EXP 0,1](SCR1) ;GET CORRECT RESULT
3615 033154 ..0172: ERROR (LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL
3616 033154 036 14 0 00 042035
3617 033155 035 00 0 00 033136 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3618 ^
3619 ^
3620 TFLAG ([^B0110B3],F5)^
3621
3622 033156 200 13 0 00 033143 MOVE SCR1,FLAGL ;GET FLAGS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 8-28
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0101
3623 033157 200 14 0 00 041645 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS
3624 033160 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3625 033161 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3626 033162 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3627 033163 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3628 ERROR (LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3629
3630 033164 036 13 0 00 042074
3631 033165 035 00 0 00 033136 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3632 ^
3633 ^
3634 ; ************************************************
3635
3636 033166 254 00 0 00 033357 JRST AENDF ;SKIP OVER DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 9
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0102
3637
3638 033167 000000 000000 ACONF1: EXP 0,0,0,1B0+1
3639 033170 000000 000000
3640 033171 000000 000000
3641 033172 400000 000001
3642 033173 000000 000000 EXP 0,1B0,0,1
3643 033174 400000 000000
3644 033175 000000 000000
3645 033176 000000 000001
3646 033177 000000 000000 EXP 0,1B0,0,1B0+1
3647 033200 400000 000000
3648 033201 000000 000000
3649 033202 400000 000001
3650 033203 000000 000000 EXP 0,0,-1,377777777777
3651 033204 000000 000000
3652 033205 777777 777777
3653 033206 377777 777777
3654 033207 000000 000000 EXP 0,1B0,-1,377777777777
3655 033210 400000 000000
3656 033211 777777 777777
3657 033212 377777 777777
3658 033213 000000 000000 EXP 0,1B0,-1,-1
3659 033214 400000 000000
3660 033215 777777 777777
3661 033216 777777 777777
3662 033217 777777 777777 ACONF2: EXP -1,377777777777,-2,-1
3663 033220 377777 777777
3664 033221 777777 777776
3665 033222 777777 777777
3666 033223 777777 777777 EXP -1,377777777777,-2,377777777777
3667 033224 377777 777777
3668 033225 777777 777776
3669 033226 377777 777777
3670 033227 777777 777777 EXP -1,-1,-2,377777777777
3671 033230 777777 777777
3672 033231 777777 777776
3673 033232 377777 777777
3674 033233 777777 777776 EXP -2,-1,-1,377777777777
3675 033234 777777 777777
3676 033235 777777 777777
3677 033236 377777 777777
3678 033237 777777 777776 EXP -2,377777777777,-1,377777777777
3679 033240 377777 777777
3680 033241 777777 777777
3681 033242 377777 777777
3682 033243 777777 777776 EXP -2,377777777777,-1,-1
3683 033244 377777 777777
3684 033245 777777 777777
3685 033246 777777 777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 10
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0103
3686
3687 033247 000000 000000 ACONF3: EXP 0,1B0+1,1,0
3688 033250 400000 000001
3689 033251 000000 000001
3690 033252 000000 000000
3691 033253 000000 000000 EXP 0,1B0+1,1,1B0
3692 033254 400000 000001
3693 033255 000000 000001
3694 033256 400000 000000
3695 033257 000000 000000 EXP 0,1,1,1B0
3696 033260 000000 000001
3697 033261 000000 000001
3698 033262 400000 000000
3699 033263 000000 000001 EXP 1,0,0,1B0+1
3700 033264 000000 000000
3701 033265 000000 000000
3702 033266 400000 000001
3703 033267 000000 000001 EXP 1,1B0,0,1B0+1
3704 033270 400000 000000
3705 033271 000000 000000
3706 033272 400000 000001
3707 033273 000000 000001 EXP 1,1B0,0,1
3708 033274 400000 000000
3709 033275 000000 000000
3710 033276 000000 000001
3711 033277 777777 777777 ACONF4: EXP -1,377777777776,0,1
3712 033300 377777 777776
3713 033301 000000 000000
3714 033302 000000 000001
3715 033303 777777 777777 EXP -1,377777777776,0,1B0+1
3716 033304 377777 777776
3717 033305 000000 000000
3718 033306 400000 000001
3719 033307 777777 777777 EXP -1,-2,0,1B0+1
3720 033310 777777 777776
3721 033311 000000 000000
3722 033312 400000 000001
3723 033313 000000 000000 EXP 0,1,-1,377777777776
3724 033314 000000 000001
3725 033315 777777 777777
3726 033316 377777 777776
3727 033317 000000 000000 EXP 0,1B0+1,-1,377777777776
3728 033320 400000 000001
3729 033321 777777 777777
3730 033322 377777 777776
3731 033323 000000 000000 EXP 0,1B0+1,-1,-2
3732 033324 400000 000001
3733 033325 777777 777777
3734 033326 777777 777776
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 11
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST F SEQ 0104
3735
3736 033327 777777 777777 ACONF5: EXP -1,377777777777,0,2
3737 033330 377777 777777
3738 033331 000000 000000
3739 033332 000000 000002
3740 033333 777777 777777 EXP -1,377777777777,0,1B0+2
3741 033334 377777 777777
3742 033335 000000 000000
3743 033336 400000 000002
3744 033337 777777 777777 EXP -1,-1,0,1B0+2
3745 033340 777777 777777
3746 033341 000000 000000
3747 033342 400000 000002
3748 033343 000000 000000 EXP 0,2,-1,377777777777
3749 033344 000000 000002
3750 033345 777777 777777
3751 033346 377777 777777
3752 033347 000000 000000 EXP 0,1B0+2,-1,377777777777
3753 033350 400000 000002
3754 033351 777777 777777
3755 033352 377777 777777
3756 033353 000000 000000 EXP 0,1B0+2,-1,-1
3757 033354 400000 000002
3758 033355 777777 777777
3759 033356 777777 777777
3760 033357 AENDF:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 12
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST G SEQ 0105
3761 SUBTTL DADD - TEST G
3762
3763 ; **********************************************************************
3764 ;*DADD - TEST G
3765 ;*
3766 ;* 2**N + (2**70 - 2**N) = 1000... (AROV & CARRY 1 SET)
3767 ;* (2**70 - 2**N) + 2**N = 1000... (AROV & CARRY 1 SET)
3768 ;* -2**N + (-2**70 + 2**N - 1) = 0111... (AROV & CARRY 0 SET)
3769 ;* (-2**70 + 2**N - 1) + -2**N = 0111... (AROV & CARRY 0 SET)
3770 ;*
3771 ;* THEST TESTS CHECK THE SETTING OF AROV & CARRY 1 AND AROV &
3772 ;* CARRY 0 FLAGS. CHECKED FOR BITS 0,34,36,70.
3773 ; **********************************************************************
3774
3775 ; **********************************************************************
3776 ;* THE FOLLOWING SECTION OF CODE IS REPEATED 8 TIMES. THE FIRST
3777 ;* 4 TESTS FLOAT A 1 ACROSS A DOUBLEWORD IN BITS 0,35,36,71.
3778 ;* THIS NUMBER IS THEN ADDED TO THE SMALLEST POSITIVE INTEGER
3779 ;* WHICH WILL PRODUCE AN OVERFLOW - THE RESULT IS A DOUBLEWORD
3780 ;* OF 0S WITH 1 IN THE SIGN BIT - WITH OVERFLOW & CARRY 1 SET.
3781 ;* THE NEXT 4 TESTS FLOAT A 0 ACROSS A DOUBLEWORD IN BITS 1,
3782 ;* 35,36,71 (A NEGATIVE NUMBER). THIS NUMBER IS ADDED TO THE
3783 ;* SMALLEST NEGATIVE INTEGER WHICH WILL PRODUCE AN OVERFLOW -
3784 ;* THE RESULT IS A DOUBLEWORD OF 1S WITH A 0 IN THE SIGN BIT -
3785 ;* WITH OVERFLOW AND CARRY 0 SET.
3786 ;* THE DOUBLEWORDS USED IN THIS TEST ARE LOCATED IN THE LIST
3787 ;* 'CONST2'.
3788 ; **********************************************************************
3789
3790 033652 CNUM=ACONG-6 ;POINTER TO THE DOUBLEWORDS IN
3791 ; THE RESULT
3792 500000 000000 FLAGS=^B1010B3 ;AROV,CRY0,CRY1,FOV
3793
3794 REPEAT ^D8,<
3795 ; ************************************************
3796
3797 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA
3798 LOC=. ;ERROR LOOP RETURN ADDRESS
3799 IFE ACONG-CNUM+^D24,<FLAGS=^B1100B3> ;FLAGS FOR SECOND 4 CASES
3800 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3801 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1
3802 JFCL 17,.+1 ;CLEAR PC FLAGS
3803 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
3804 PCSAVE
3805 CHECKB (LOC,G,CNUM+4)
3806 TFLAG ([FLAGS],G)
3807 ; ************************************************
3808 >
3809
3810 ; ************************************************
3811
3812 033660 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA
3813 033357 LOC=. ;ERROR LOOP RETURN ADDRESS
3814 IFE ACONG-CNUM+^D24,<FLAGS=^B1100B3> ;FLAGS FOR SECOND 4 CASES
3815 033357 200 15 0 00 042077 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 12-1
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST G SEQ 0106
3816 033360 120 01 0 00 033660 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1
3817 033361 255 17 0 00 033362 JFCL 17,.+1 ;CLEAR PC FLAGS
3818 033362 114 01 0 00 033662 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
3819 PCSAVE^
3820 033363 264 00 0 00 033364 JSR .+1 ;STORE PC
3821 033364 FLAGL=. ;LOCATION OF PC
3822 033364 000000 000000 0 ;PC
3823 ^
3824 CHECKB (LOC,G,CNUM+4)^
3825
3826 033365 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3827 033366 312 01 0 00 033664 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
3828 033367 254 00 0 00 033373 JRST ..0173 ;NO - GO TO ERROR HANDLING
3829 033370 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3830 033371 316 02 0 00 033665 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
3831 033372 254 00 0 00 033376 JRST ..0174+1 ;YES - DONT DO ERROR HANDLING
3832 ; EXCEPT FOR ERLOOP
3833
3834 033373 200 14 0 13 000001 ..0173: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3835 033374 200 13 0 13 033664 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
3836 033375 ..0174: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
3837 033375 036 14 0 00 042105
3838 033376 035 00 0 00 033357 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3839 ^
3840 ^
3841 TFLAG ([FLAGS],G)^
3842
3843 033377 200 13 0 00 033364 MOVE SCR1,FLAGL ;GET FLAGS
3844 033400 200 14 0 00 042110 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
3845 033401 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3846 033402 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3847 033403 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3848 033404 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3849 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3850 033405 036 13 0 00 042120
3851 033406 035 00 0 00 033357 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3852 ^
3853 ^
3854 ; ************************************************
3855
3856
3857 ; ************************************************
3858
3859 033666 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA
3860 033407 LOC=. ;ERROR LOOP RETURN ADDRESS
3861 IFE ACONG-CNUM+^D24,<FLAGS=^B1100B3> ;FLAGS FOR SECOND 4 CASES
3862 033407 200 15 0 00 042123 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3863 033410 120 01 0 00 033666 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1
3864 033411 255 17 0 00 033412 JFCL 17,.+1 ;CLEAR PC FLAGS
3865 033412 114 01 0 00 033670 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
3866 PCSAVE^
3867 033413 264 00 0 00 033414 JSR .+1 ;STORE PC
3868 033414 FLAGL=. ;LOCATION OF PC
3869 033414 000000 000000 0 ;PC
3870 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 12-2
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST G SEQ 0107
3871 CHECKB (LOC,G,CNUM+4)^
3872
3873 033415 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3874 033416 312 01 0 00 033672 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
3875 033417 254 00 0 00 033423 JRST ..0175 ;NO - GO TO ERROR HANDLING
3876 033420 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3877 033421 316 02 0 00 033673 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
3878 033422 254 00 0 00 033426 JRST ..0176+1 ;YES - DONT DO ERROR HANDLING
3879 ; EXCEPT FOR ERLOOP
3880
3881 033423 200 14 0 13 000001 ..0175: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3882 033424 200 13 0 13 033672 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
3883 033425 ..0176: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
3884 033425 036 14 0 00 042105
3885 033426 035 00 0 00 033407 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3886 ^
3887 ^
3888 TFLAG ([FLAGS],G)^
3889
3890 033427 200 13 0 00 033414 MOVE SCR1,FLAGL ;GET FLAGS
3891 033430 200 14 0 00 042110 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
3892 033431 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3893 033432 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3894 033433 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3895 033434 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3896 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3897 033435 036 13 0 00 042124
3898 033436 035 00 0 00 033407 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3899 ^
3900 ^
3901 ; ************************************************
3902
3903
3904 ; ************************************************
3905
3906 033674 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA
3907 033437 LOC=. ;ERROR LOOP RETURN ADDRESS
3908 IFE ACONG-CNUM+^D24,<FLAGS=^B1100B3> ;FLAGS FOR SECOND 4 CASES
3909 033437 200 15 0 00 042127 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3910 033440 120 01 0 00 033674 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1
3911 033441 255 17 0 00 033442 JFCL 17,.+1 ;CLEAR PC FLAGS
3912 033442 114 01 0 00 033676 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
3913 PCSAVE^
3914 033443 264 00 0 00 033444 JSR .+1 ;STORE PC
3915 033444 FLAGL=. ;LOCATION OF PC
3916 033444 000000 000000 0 ;PC
3917 ^
3918 CHECKB (LOC,G,CNUM+4)^
3919
3920 033445 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3921 033446 312 01 0 00 033700 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
3922 033447 254 00 0 00 033453 JRST ..0177 ;NO - GO TO ERROR HANDLING
3923 033450 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3924 033451 316 02 0 00 033701 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
3925 033452 254 00 0 00 033456 JRST ..0200+1 ;YES - DONT DO ERROR HANDLING
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 12-3
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST G SEQ 0108
3926 ; EXCEPT FOR ERLOOP
3927
3928 033453 200 14 0 13 000001 ..0177: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3929 033454 200 13 0 13 033700 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
3930 033455 ..0200: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
3931 033455 036 14 0 00 042105
3932 033456 035 00 0 00 033437 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3933 ^
3934 ^
3935 TFLAG ([FLAGS],G)^
3936
3937 033457 200 13 0 00 033444 MOVE SCR1,FLAGL ;GET FLAGS
3938 033460 200 14 0 00 042110 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
3939 033461 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3940 033462 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3941 033463 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3942 033464 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3943 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3944 033465 036 13 0 00 042130
3945 033466 035 00 0 00 033437 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3946 ^
3947 ^
3948 ; ************************************************
3949
3950
3951 ; ************************************************
3952
3953 033702 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA
3954 033467 LOC=. ;ERROR LOOP RETURN ADDRESS
3955 IFE ACONG-CNUM+^D24,<FLAGS=^B1100B3> ;FLAGS FOR SECOND 4 CASES
3956 033467 200 15 0 00 042133 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
3957 033470 120 01 0 00 033702 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1
3958 033471 255 17 0 00 033472 JFCL 17,.+1 ;CLEAR PC FLAGS
3959 033472 114 01 0 00 033704 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
3960 PCSAVE^
3961 033473 264 00 0 00 033474 JSR .+1 ;STORE PC
3962 033474 FLAGL=. ;LOCATION OF PC
3963 033474 000000 000000 0 ;PC
3964 ^
3965 CHECKB (LOC,G,CNUM+4)^
3966
3967 033475 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
3968 033476 312 01 0 00 033706 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
3969 033477 254 00 0 00 033503 JRST ..0201 ;NO - GO TO ERROR HANDLING
3970 033500 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
3971 033501 316 02 0 00 033707 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
3972 033502 254 00 0 00 033506 JRST ..0202+1 ;YES - DONT DO ERROR HANDLING
3973 ; EXCEPT FOR ERLOOP
3974
3975 033503 200 14 0 13 000001 ..0201: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
3976 033504 200 13 0 13 033706 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
3977 033505 ..0202: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
3978 033505 036 14 0 00 042105
3979 033506 035 00 0 00 033467 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3980 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 12-4
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST G SEQ 0109
3981 ^
3982 TFLAG ([FLAGS],G)^
3983
3984 033507 200 13 0 00 033474 MOVE SCR1,FLAGL ;GET FLAGS
3985 033510 200 14 0 00 042110 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
3986 033511 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
3987 033512 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
3988 033513 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
3989 033514 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
3990 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
3991 033515 036 13 0 00 042134
3992 033516 035 00 0 00 033467 ERLOOP LOC ;IF ERROR, LOOP TO LOC
3993 ^
3994 ^
3995 ; ************************************************
3996
3997
3998 ; ************************************************
3999
4000 033710 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA
4001 033517 LOC=. ;ERROR LOOP RETURN ADDRESS
4002 600000 000000 IFE ACONG-CNUM+^D24,<FLAGS=^B1100B3> ;FLAGS FOR SECOND 4 CASES
4003 033517 200 15 0 00 042137 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
4004 033520 120 01 0 00 033710 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1
4005 033521 255 17 0 00 033522 JFCL 17,.+1 ;CLEAR PC FLAGS
4006 033522 114 01 0 00 033712 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
4007 PCSAVE^
4008 033523 264 00 0 00 033524 JSR .+1 ;STORE PC
4009 033524 FLAGL=. ;LOCATION OF PC
4010 033524 000000 000000 0 ;PC
4011 ^
4012 CHECKB (LOC,G,CNUM+4)^
4013
4014 033525 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4015 033526 312 01 0 00 033714 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4016 033527 254 00 0 00 033533 JRST ..0203 ;NO - GO TO ERROR HANDLING
4017 033530 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4018 033531 316 02 0 00 033715 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4019 033532 254 00 0 00 033536 JRST ..0204+1 ;YES - DONT DO ERROR HANDLING
4020 ; EXCEPT FOR ERLOOP
4021
4022 033533 200 14 0 13 000001 ..0203: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4023 033534 200 13 0 13 033714 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4024 033535 ..0204: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
4025 033535 036 14 0 00 042105
4026 033536 035 00 0 00 033517 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4027 ^
4028 ^
4029 TFLAG ([FLAGS],G)^
4030
4031 033537 200 13 0 00 033524 MOVE SCR1,FLAGL ;GET FLAGS
4032 033540 200 14 0 00 042140 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
4033 033541 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
4034 033542 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
4035 033543 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 12-5
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST G SEQ 0110
4036 033544 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
4037 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
4038 033545 036 13 0 00 042141
4039 033546 035 00 0 00 033517 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4040 ^
4041 ^
4042 ; ************************************************
4043
4044
4045 ; ************************************************
4046
4047 033716 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA
4048 033547 LOC=. ;ERROR LOOP RETURN ADDRESS
4049 IFE ACONG-CNUM+^D24,<FLAGS=^B1100B3> ;FLAGS FOR SECOND 4 CASES
4050 033547 200 15 0 00 042144 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
4051 033550 120 01 0 00 033716 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1
4052 033551 255 17 0 00 033552 JFCL 17,.+1 ;CLEAR PC FLAGS
4053 033552 114 01 0 00 033720 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
4054 PCSAVE^
4055 033553 264 00 0 00 033554 JSR .+1 ;STORE PC
4056 033554 FLAGL=. ;LOCATION OF PC
4057 033554 000000 000000 0 ;PC
4058 ^
4059 CHECKB (LOC,G,CNUM+4)^
4060
4061 033555 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4062 033556 312 01 0 00 033722 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4063 033557 254 00 0 00 033563 JRST ..0205 ;NO - GO TO ERROR HANDLING
4064 033560 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4065 033561 316 02 0 00 033723 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4066 033562 254 00 0 00 033566 JRST ..0206+1 ;YES - DONT DO ERROR HANDLING
4067 ; EXCEPT FOR ERLOOP
4068
4069 033563 200 14 0 13 000001 ..0205: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4070 033564 200 13 0 13 033722 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4071 033565 ..0206: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
4072 033565 036 14 0 00 042105
4073 033566 035 00 0 00 033547 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4074 ^
4075 ^
4076 TFLAG ([FLAGS],G)^
4077
4078 033567 200 13 0 00 033554 MOVE SCR1,FLAGL ;GET FLAGS
4079 033570 200 14 0 00 042140 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
4080 033571 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
4081 033572 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
4082 033573 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
4083 033574 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
4084 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
4085 033575 036 13 0 00 042145
4086 033576 035 00 0 00 033547 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4087 ^
4088 ^
4089 ; ************************************************
4090
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 12-6
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST G SEQ 0111
4091
4092 ; ************************************************
4093
4094 033724 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA
4095 033577 LOC=. ;ERROR LOOP RETURN ADDRESS
4096 IFE ACONG-CNUM+^D24,<FLAGS=^B1100B3> ;FLAGS FOR SECOND 4 CASES
4097 033577 200 15 0 00 042150 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
4098 033600 120 01 0 00 033724 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1
4099 033601 255 17 0 00 033602 JFCL 17,.+1 ;CLEAR PC FLAGS
4100 033602 114 01 0 00 033726 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
4101 PCSAVE^
4102 033603 264 00 0 00 033604 JSR .+1 ;STORE PC
4103 033604 FLAGL=. ;LOCATION OF PC
4104 033604 000000 000000 0 ;PC
4105 ^
4106 CHECKB (LOC,G,CNUM+4)^
4107
4108 033605 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4109 033606 312 01 0 00 033730 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4110 033607 254 00 0 00 033613 JRST ..0207 ;NO - GO TO ERROR HANDLING
4111 033610 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4112 033611 316 02 0 00 033731 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4113 033612 254 00 0 00 033616 JRST ..0210+1 ;YES - DONT DO ERROR HANDLING
4114 ; EXCEPT FOR ERLOOP
4115
4116 033613 200 14 0 13 000001 ..0207: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4117 033614 200 13 0 13 033730 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4118 033615 ..0210: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
4119 033615 036 14 0 00 042105
4120 033616 035 00 0 00 033577 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4121 ^
4122 ^
4123 TFLAG ([FLAGS],G)^
4124
4125 033617 200 13 0 00 033604 MOVE SCR1,FLAGL ;GET FLAGS
4126 033620 200 14 0 00 042140 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
4127 033621 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
4128 033622 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
4129 033623 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
4130 033624 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
4131 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
4132 033625 036 13 0 00 042151
4133 033626 035 00 0 00 033577 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4134 ^
4135 ^
4136 ; ************************************************
4137
4138
4139 ; ************************************************
4140
4141 033732 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA
4142 033627 LOC=. ;ERROR LOOP RETURN ADDRESS
4143 IFE ACONG-CNUM+^D24,<FLAGS=^B1100B3> ;FLAGS FOR SECOND 4 CASES
4144 033627 200 15 0 00 042154 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
4145 033630 120 01 0 00 033732 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 12-7
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST G SEQ 0112
4146 033631 255 17 0 00 033632 JFCL 17,.+1 ;CLEAR PC FLAGS
4147 033632 114 01 0 00 033734 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
4148 PCSAVE^
4149 033633 264 00 0 00 033634 JSR .+1 ;STORE PC
4150 033634 FLAGL=. ;LOCATION OF PC
4151 033634 000000 000000 0 ;PC
4152 ^
4153 CHECKB (LOC,G,CNUM+4)^
4154
4155 033635 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4156 033636 312 01 0 00 033736 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4157 033637 254 00 0 00 033643 JRST ..0211 ;NO - GO TO ERROR HANDLING
4158 033640 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4159 033641 316 02 0 00 033737 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4160 033642 254 00 0 00 033646 JRST ..0212+1 ;YES - DONT DO ERROR HANDLING
4161 ; EXCEPT FOR ERLOOP
4162
4163 033643 200 14 0 13 000001 ..0211: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4164 033644 200 13 0 13 033736 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4165 033645 ..0212: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL
4166 033645 036 14 0 00 042105
4167 033646 035 00 0 00 033627 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4168 ^
4169 ^
4170 TFLAG ([FLAGS],G)^
4171
4172 033647 200 13 0 00 033634 MOVE SCR1,FLAGL ;GET FLAGS
4173 033650 200 14 0 00 042140 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
4174 033651 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
4175 033652 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
4176 033653 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
4177 033654 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
4178 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL
4179 033655 036 13 0 00 042155
4180 033656 035 00 0 00 033627 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4181 ^
4182 ^
4183 ; ************************************************
4184
4185 033657 254 00 0 00 033740 JRST AENDG ;SKIP OVER DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 13
DFKCBM MAC 26-Sep-79 16:11 DADD - TEST G SEQ 0113
4186
4187 ; **********************************************************************
4188 ; 8 SETS OF 3 DOUBLEWORDS (AUDEND,ADDEND,RESULT)
4189 ; **********************************************************************
4190
4191 033660 200000 000000 ACONG: EXP 1B1,0,1B1,0,1B0,1B0
4192 033661 000000 000000
4193 033662 200000 000000
4194 033663 000000 000000
4195 033664 400000 000000
4196 033665 400000 000000
4197 033666 000000 000001 EXP 1,0,377777777777,0,1B0,1B0
4198 033667 000000 000000
4199 033670 377777 777777
4200 033671 000000 000000
4201 033672 400000 000000
4202 033673 400000 000000
4203 033674 000000 000000 EXP 0,1B1,377777777777,1B1,1B0,1B0
4204 033675 200000 000000
4205 033676 377777 777777
4206 033677 200000 000000
4207 033700 400000 000000
4208 033701 400000 000000
4209 033702 000000 000000 EXP 0,1,377777777777,377777777777,1B0,1B0
4210 033703 000000 000001
4211 033704 377777 777777
4212 033705 377777 777777
4213 033706 400000 000000
4214 033707 400000 000000
4215 033710 400000 000000 EXP 1B0,1B0,-1,-1,377777777777,377777777777
4216 033711 400000 000000
4217 033712 777777 777777
4218 033713 777777 777777
4219 033714 377777 777777
4220 033715 377777 777777
4221 033716 400000 000000 EXP 1B0,-1,-1,1B0,377777777777,377777777777
4222 033717 777777 777777
4223 033720 777777 777777
4224 033721 400000 000000
4225 033722 377777 777777
4226 033723 377777 777777
4227 033724 400000 000001 EXP 1B0+1,1B0,-2,1B0,377777777777,0
4228 033725 400000 000000
4229 033726 777777 777776
4230 033727 400000 000000
4231 033730 377777 777777
4232 033731 000000 000000
4233 033732 777777 777777 EXP -1,-1,1B0,1B0,377777777777,377777777777
4234 033733 777777 777777
4235 033734 400000 000000
4236 033735 400000 000000
4237 033736 377777 777777
4238 033737 377777 777777
4239 033740 AENDG:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 14
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST A SEQ 0114
4240 SUBTTL DSUB - TEST A
4241 SALL
4242 042160 T=SIXBTZ<DSUB TEST>
4243 LALL
4244 ; **********************************************************************
4245 ;*DSUB - TEST A
4246 ;*
4247 ;* 0,# - 0,0 = 0,# GENERAL TESTING TO SEE THAT
4248 ;* #,0 - 0,0 = #,0 DSUB CAN HANDLE DOUBLEWORDS
4249 ;* #,# - 0,0 = #,#
4250 ;* 0,0 - 0,# = -(0,#)
4251 ;* 0,0 - #,0 = -(#,0)
4252 ;* 0,0 - #,# = -(#,#)
4253 ; **********************************************************************
4254
4255 ; **********************************************************************
4256 ; ---------- DSUB (0,#) - (0,0) = (0,#) ----------
4257 ; **********************************************************************
4258
4259 033740 200 15 0 00 041300 STEST1: MOVE SCR3,[[EXP 0,NUM],,[EXP 0,0]] ;ADDR FOR SPRINT
4260 033741 120 01 0 00 041274 DMOVE AC1,[EXP 0,NUM] ;INIT MINUEND TO (0,#)
4261 033742 115 01 0 00 041276 DSUB AC1,[EXP 0,0] ;SUB (0,#)-(0,0)
4262 CHECKS (STEST1,A1,0,NUM)^
4263
4264 033743 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4265 033744 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
4266 033745 254 00 0 00 033751 JRST ..0213 ;NO - GO TO ERROR HANDLING
4267 033746 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4268 033747 316 02 0 00 041275 CAMN AC1+1,[NUM] ;IS RIGHT HALF CORRECT?
4269 033750 254 00 0 00 033754 JRST ..0214+1 ;YES - DONT DO ERROR HANDLING
4270 ; EXCEPT FOR ERLOOP
4271
4272 033751 200 14 0 13 000001 ..0213: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4273 033752 200 13 0 13 041274 MOVE SCR1,[EXP 0,NUM](SCR1) ;GET CORRECT RESULT
4274 033753 ..0214: ERROR (STEST1,14,SCR1,SCR2,,TEST A1 - RESULT IS INCORRECT,SPRINT)^SALL
4275 033753 036 14 0 00 042162
4276 033754 035 00 0 00 033740 ERLOOP STEST1 ;IF ERROR, LOOP TO STEST1
4277 ^
4278 ^
4279
4280 ; **********************************************************************
4281 ; ---------- DSUB (#,0) - (0,0) = (#,0) ----------
4282 ; **********************************************************************
4283
4284 033755 200 15 0 00 041312 STEST2: MOVE SCR3,[[EXP NUM,0],,[EXP 0,0]] ;ADDR FOR SPRINT
4285 033756 120 01 0 00 041275 DMOVE AC1,[EXP NUM,0] ;INIT MINUEND TO (#,0)
4286 033757 115 01 0 00 041276 DSUB AC1,[EXP 0,0] ;SUB (#,0)-(0,0)
4287 CHECKS (STEST2,A2,NUM,0)^
4288
4289 033760 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4290 033761 312 01 0 00 041275 CAME AC1,[NUM] ;IS LEFT HALF OF RESULT CORRECT?
4291 033762 254 00 0 00 033766 JRST ..0215 ;NO - GO TO ERROR HANDLING
4292 033763 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4293 033764 316 02 0 00 041274 CAMN AC1+1,[0] ;IS RIGHT HALF CORRECT?
4294 033765 254 00 0 00 033771 JRST ..0216+1 ;YES - DONT DO ERROR HANDLING
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 14-1
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST A SEQ 0115
4295 ; EXCEPT FOR ERLOOP
4296
4297 033766 200 14 0 13 000001 ..0215: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4298 033767 200 13 0 13 041275 MOVE SCR1,[EXP NUM,0](SCR1) ;GET CORRECT RESULT
4299 033770 ..0216: ERROR (STEST2,14,SCR1,SCR2,,TEST A2 - RESULT IS INCORRECT,SPRINT)^SALL
4300 033770 036 14 0 00 042165
4301 033771 035 00 0 00 033755 ERLOOP STEST2 ;IF ERROR, LOOP TO STEST2
4302 ^
4303 ^
4304
4305 ; **********************************************************************
4306 ; ---------- DSUB (#,#) - (0,0) = (#,#) ----------
4307 ; **********************************************************************
4308
4309 033772 200 15 0 00 041325 STEST3: MOVE SCR3,[[EXP NUM,NUM],,[EXP 0,0]] ;ADDR FOR SPRINT
4310 033773 120 01 0 00 041323 DMOVE AC1,[EXP NUM,NUM] ;INIT MINUEND TO (#,#)
4311 033774 115 01 0 00 041276 DSUB AC1,[EXP 0,0] ;SUB (#,#)-(0,0)
4312 CHECKS (STEST3,A3,NUM,NUM)^
4313
4314 033775 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4315 033776 312 01 0 00 041275 CAME AC1,[NUM] ;IS LEFT HALF OF RESULT CORRECT?
4316 033777 254 00 0 00 034003 JRST ..0217 ;NO - GO TO ERROR HANDLING
4317 034000 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4318 034001 316 02 0 00 041275 CAMN AC1+1,[NUM] ;IS RIGHT HALF CORRECT?
4319 034002 254 00 0 00 034006 JRST ..0220+1 ;YES - DONT DO ERROR HANDLING
4320 ; EXCEPT FOR ERLOOP
4321
4322 034003 200 14 0 13 000001 ..0217: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4323 034004 200 13 0 13 041323 MOVE SCR1,[EXP NUM,NUM](SCR1) ;GET CORRECT RESULT
4324 034005 ..0220: ERROR (STEST3,14,SCR1,SCR2,,TEST A3 - RESULT IS INCORRECT,SPRINT)^SALL
4325 034005 036 14 0 00 042170
4326 034006 035 00 0 00 033772 ERLOOP STEST3 ;IF ERROR, LOOP TO STEST3
4327 ^
4328 ^
4329
4330 ; **********************************************************************
4331 ; ---------- DSUB (0,0) - (0,#) = (-1,-#) ----------
4332 ; **********************************************************************
4333
4334 034007 200 15 0 00 041336 STEST4: MOVE SCR3,[[EXP 0,0],,[EXP 0,NUM]] ;ADDR FOR SPRINT
4335 034010 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT MINUEND TO (0,0)
4336 034011 115 01 0 00 041274 DSUB AC1,[EXP 0,NUM] ;SUB (0,0) - (0,#)
4337 CHECKS (STEST4,A4,-1,-NUM)^
4338
4339 034012 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4340 034013 312 01 0 00 041442 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT?
4341 034014 254 00 0 00 034020 JRST ..0221 ;NO - GO TO ERROR HANDLING
4342 034015 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4343 034016 316 02 0 00 042173 CAMN AC1+1,[-NUM] ;IS RIGHT HALF CORRECT?
4344 034017 254 00 0 00 034023 JRST ..0222+1 ;YES - DONT DO ERROR HANDLING
4345 ; EXCEPT FOR ERLOOP
4346
4347 034020 200 14 0 13 000001 ..0221: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4348 034021 200 13 0 13 042174 MOVE SCR1,[EXP -1,-NUM](SCR1) ;GET CORRECT RESULT
4349 034022 ..0222: ERROR (STEST4,14,SCR1,SCR2,,TEST A4 - RESULT IS INCORRECT,SPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 14-2
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST A SEQ 0116
4350 034022 036 14 0 00 042176
4351 034023 035 00 0 00 034007 ERLOOP STEST4 ;IF ERROR, LOOP TO STEST4
4352 ^
4353 ^
4354
4355 ; **********************************************************************
4356 ; ---------- DSUB (0,0) - (#,0) = (-#,0) ----------
4357 ; **********************************************************************
4358
4359 034024 200 15 0 00 041347 STEST5: MOVE SCR3,[[EXP 0,0],,[EXP NUM,0]] ;ADDR FOR SPRINT
4360 034025 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT MINUEND TO (0,0)
4361 034026 115 01 0 00 041275 DSUB AC1,[EXP NUM,0] ;SUB (0,0) - (#,0)
4362 CHECKS (STEST5,A5,-NUM,400000000000)^
4363
4364 034027 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4365 034030 312 01 0 00 042173 CAME AC1,[-NUM] ;IS LEFT HALF OF RESULT CORRECT?
4366 034031 254 00 0 00 034035 JRST ..0223 ;NO - GO TO ERROR HANDLING
4367 034032 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4368 034033 316 02 0 00 042201 CAMN AC1+1,[400000000000] ;IS RIGHT HALF CORRECT?
4369 034034 254 00 0 00 034040 JRST ..0224+1 ;YES - DONT DO ERROR HANDLING
4370 ; EXCEPT FOR ERLOOP
4371
4372 034035 200 14 0 13 000001 ..0223: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4373 034036 200 13 0 13 042202 MOVE SCR1,[EXP -NUM,400000000000](SCR1) ;GET CORRECT RESULT
4374 034037 ..0224: ERROR (STEST5,14,SCR1,SCR2,,TEST A5 - RESULT IS INCORRECT,SPRINT)^SALL
4375 034037 036 14 0 00 042204
4376 034040 035 00 0 00 034024 ERLOOP STEST5 ;IF ERROR, LOOP TO STEST5
4377 ^
4378 ^
4379
4380 ; **********************************************************************
4381 ; ---------- DSUB (0,0) - (#,#) = -(#,#) ----------
4382 ; **********************************************************************
4383
4384 034041 200 15 0 00 041360 STEST6: MOVE SCR3,[[EXP 0,0],,[EXP NUM,NUM]] ;ADDR FOR SPRINT
4385 034042 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT MINUEND TO (0,0)
4386 034043 115 01 0 00 041323 DSUB AC1,[EXP NUM,NUM] ;SUB (0,0)-(#,#)
4387 CHECKS (STEST6,A6,-NUM-1,-NUM)^
4388
4389 034044 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4390 034045 312 01 0 00 042207 CAME AC1,[-NUM-1] ;IS LEFT HALF OF RESULT CORRECT?
4391 034046 254 00 0 00 034052 JRST ..0225 ;NO - GO TO ERROR HANDLING
4392 034047 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4393 034050 316 02 0 00 042173 CAMN AC1+1,[-NUM] ;IS RIGHT HALF CORRECT?
4394 034051 254 00 0 00 034055 JRST ..0226+1 ;YES - DONT DO ERROR HANDLING
4395 ; EXCEPT FOR ERLOOP
4396
4397 034052 200 14 0 13 000001 ..0225: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4398 034053 200 13 0 13 042207 MOVE SCR1,[EXP -NUM-1,-NUM](SCR1) ;GET CORRECT RESULT
4399 034054 ..0226: ERROR (STEST6,14,SCR1,SCR2,,TEST A6 - RESULT IS INCORRECT,SPRINT)^SALL
4400 034054 036 14 0 00 042211
4401 034055 035 00 0 00 034041 ERLOOP STEST6 ;IF ERROR, LOOP TO STEST6
4402 ^
4403 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 15
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST B SEQ 0117
4404 SUBTTL DSUB - TEST B
4405
4406 ; **********************************************************************
4407 ;*DSUB - TEST B
4408 ;*
4409 ;* TEST ALL PERMUTATIONS OF 0,1,-1 IN THE MINUEND AND
4410 ;* SUBTRAHEND -- TEST:
4411 ;* 0,0 - 0,0 0,1 - 0,0 0,-1 - 0,0 ....
4412 ;* 0,0 - 0,1 0,1 - 0,1 0,-1 - 0,1 ....
4413 ;* 0,0 - 0,-1 0,1 - 0,-1 0,-1 - 0,-1 ....
4414 ;* 0,0 - 1,0 .... .... ....
4415 ;* 0,0 - 1,1 .... .... ....
4416 ;* 0,0 - 1,-1 .... .... ....
4417 ;* 0,0 - -1,0 .... .... ....
4418 ;* 0,0 - -1,1 .... .... ....
4419 ;* 0,0 - -1,-1 .... .... ....
4420 ; **********************************************************************
4421
4422 ; **********************************************************************
4423 ;* THESE COMBINATIONS TEST THE ABILITY OF THE DSUB TO HANDLE
4424 ;* BORROWS FROM THE NEXT WORD AND SIGNS CHANGING. THE RESULT
4425 ;* IS VERIFIED AND THE PC FLAGS ARE CHECKED TO SEE THAT THEY
4426 ;* ARE SET PROPERLY.
4427 ; **********************************************************************
4428
4429 ; **********************************************************************
4430 ;*PROCEDURE - (1) SET UP A POINTER 'MINU' TO SEQUENCE THE MINUEND
4431 ;* (2) LOOP ON MINUEND
4432 ;* (3) SET UP A POINTER 'SUBTR' TO SEQUENCE THE SUBTRAHEND
4433 ;* (4) LOOP ON SUBTRAHEND
4434 ;* (5) CALCULATE THE EXPECTED RESULT OF THE DSUB
4435 ;* (6) DO DSUB
4436 ;* (7) COMPARE RESULTS - ACTUAL VS. EXPECTED
4437 ;* (8) TEST FLAGS
4438 ;* (9) CONTINUE AT (4)
4439 ; **********************************************************************
4440
4441 000003 MINU=AC1+2 ;MINU - POINTS TO MINUEND
4442 000004 SUBTR=MINU+1 ;SUBTR - POINTS TO SUBTRAHEND
4443 000012 SCR0=SCR0 ;SCR0 - SCRATCH ACS
4444
4445 ; **********************************************************************
4446 ;INITIALIZE LOOPS - OUTERMOST ON MINUEND
4447 ; INNERMOST ON SUBTRAHEND
4448 ; **********************************************************************
4449
4450 034056 200 03 0 00 042214 MOVE MINU,[-^D10,,SUBT-2] ;LEFT HALF - # WORDS IN LIST + 1
4451 ;RIGHT HALF - ADDRESS OF LIST
4452 034057 350 00 0 00 000003 OLOOP: AOS MINU ;ADD 2 TO ADDRESS (DOUBLEWORD)
4453 034060 252 03 0 00 034172 AOBJP MINU,BDONE ;ALL DONE WHEN COUNT = 0
4454 034061 552 03 0 00 034170 HRRZM MINU,IMINU ;SET UP MINU INDIRECT ADDR
4455 034062 200 04 0 00 042214 MOVE SUBTR,[-^D10,,SUBT-2] ;LEFT HALF - # WORDS IN LIST + 1
4456 ;RIGHT HALF - ADDRESS OF LIST
4457 034063 350 00 0 00 000004 ILOOP: AOS SUBTR ;ADD 2 TO ADDRESS (DOUBLEWORD)
4458 034064 252 04 0 00 034057 AOBJP SUBTR,OLOOP ;DONE WITH INNER LOOP WHEN COUNT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 15-1
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST B SEQ 0118
4459 ; REACHES 0 - BACK TO OUTER LOOP
4460 034065 552 04 0 00 034171 HRRZM SUBTR,ISUBTR ;SET UP SUBTR INDIRECT ADDR
4461 034066 514 15 0 00 000003 HRLZ SCR3,MINU ;SCR3 - ADDR FOR ADDL ERROR PRINT
4462 034067 540 15 0 00 000004 HRR SCR3,SUBTR ; (MINU,,SUBTR)
4463
4464 ; **********************************************************************
4465 ;ACTUAL TEST SECTION (STEPS 1-7 OF ABOVE DESCRIPTION)
4466 ; **********************************************************************
4467
4468 034070 120 01 1 00 034170 BTESTB: DMOVE AC1,@IMINU ;GET MINUEND
4469 034071 120 12 1 00 034171 DMOVE SCR0,@ISUBTR ;GET SUBTRAHEND TO CALC EXPECTED
4470 034072 450 12 0 00 000000 SETCA SCR0, ;1-S COMPLEMENT OF LEFT WORD
4471 034073 450 13 0 00 000000 SETCA SCR1, ;1-S COMPLEMENT OF RIGHT WORD
4472 034074 114 12 0 00 000001 DADD SCR0,AC1 ;RESULT-1 (USED 1'S COMPLEMENT)
4473 034075 114 12 0 00 041402 DADD SCR0,[EXP 0,1] ;GET RESULT
4474 034076 255 17 0 00 034077 JFCL 17,.+1 ;CLEAR PC FLAGS
4475 034077 400 14 0 00 000000 SETZ SCR2, ;POINTER TO INCORRECT WORD IN RESULT
4476
4477 034100 115 01 1 00 034171 DSUB AC1,@ISUBTR ;DO THE SUBTRACTION
4478
4479 PCSAVE^
4480 034101 264 00 0 00 034102 JSR .+1 ;STORE PC
4481 034102 FLAGL=. ;LOCATION OF PC
4482 034102 000000 000000 0 ;PC
4483 ^
4484 034103 312 01 0 00 000012 CAME AC1,SCR0 ;LEFT WORD CORRECT?
4485 034104 254 00 0 00 034110 JRST BERROR
4486 034105 201 14 0 00 000001 MOVEI SCR2,1 ;POINTER TO INCORRECT WORD IN RESULT
4487 034106 316 02 0 00 000013 CAMN AC1+1,SCR1 ;RIGHT WORD CORRECT?
4488 034107 254 00 0 00 034114 JRST BFLAG ;YES - NOW TEST PC FLAGS
4489
4490 034110 200 12 0 14 000012 BERROR: MOVE SCR0,SCR0(SCR2) ;GET CORRECT RESULT FOR ADDL PRINT
4491 034111 200 13 0 14 000001 MOVE SCR1,AC1(SCR2) ;GET ACTUAL (INCORRECT) RESULT
4492 ERROR (BTESTB ,14,SCR0,SCR1,,TEST B - RESULT INCORRECT,SPRINT)^SALL
4493 034112 036 14 0 00 042222
4494 034113 035 00 0 00 034070 ERLOOP BTESTB ;IF ERROR, LOOP TO BTESTB
4495 ^
4496
4497 034114 550 14 0 00 034102 BFLAG: HRRZ SCR2,FLAGL ;SCR2 - PC WITH 0000 FLAGS
4498 034115 120 12 1 00 034171 DMOVE SCR0,@ISUBTR ;GET SUBTRAHEND
4499 034116 444 12 1 00 034170 EQV SCR0,@IMINU ;LEFT BIT IS 1 IF SIGNS SAME
4500 034117 603 12 0 00 400000 TLNE SCR0,400000 ;IS LEFT BIT A 1? (SIGNS SAME)
4501 034120 254 00 0 00 034125 JRST BSAME ;YES - GO COMPARE MINU VS. SUBTR
4502 034121 331 00 1 00 034170 SKIPL @IMINU ;NO - IS MINUEND < 0
4503 034122 254 00 0 00 034135 JRST BDONEI ;NO - CORRECT FLAGS ARE 0000
4504
4505 034123 505 14 0 00 300000 BFSET: HRLI SCR2,300000 ;YES - CORRECT FLAGS ARE 0110
4506 034124 254 00 0 00 034135 JRST BDONEI ;CORRECT FLAGS CALC IS DONE
4507
4508 034125 120 12 1 00 034170 BSAME: DMOVE SCR0,@IMINU ;SIGNS ARE SAME - GET MINUEND
4509 034126 315 12 1 00 034171 CAMGE SCR0,@ISUBTR ;MINUEND >= SUBTRA? (LEFT WORD)
4510 034127 254 00 0 00 034135 JRST BDONEI ;NO - FLAGS ARE 0000
4511 034130 312 12 1 00 034171 CAME SCR0,@ISUBTR ;MINUEND = SUBTRA? (LEFT WORD)
4512 034131 254 00 0 00 034123 JRST BFSET ;NO - MIN > SUBTR - FLAGS 0110
4513 034132 350 00 0 00 034171 AOS ISUBTR ;1ST WORDS ARE = SO LOOK AT 2ND
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 15-2
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST B SEQ 0119
4514 034133 311 13 1 00 034171 CAML SCR1,@ISUBTR ;MINUEND < SUBTRAHEND?
4515 034134 254 00 0 00 034123 JRST BFSET ;NO - FLAGS ARE 0110
4516
4517 034135 BDONEI: TFLAG (SCR2,B,SPRINT,BTESTB)^
4518
4519 034135 200 13 0 00 034102 MOVE SCR1,FLAGL ;GET FLAGS
4520 034136 200 14 0 00 000014 MOVE SCR2,SCR2 ;SCR2 - CORRECT FLAGS
4521 034137 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
4522 034140 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
4523 034141 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
4524 034142 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
4525 ERROR (BTESTB,13,SCR2,FLAGL,,TEST B - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SA
4526 LL
4527 034143 036 13 0 00 042234
4528 034144 035 00 0 00 034070 ERLOOP BTESTB ;IF ERROR, LOOP TO BTESTB
4529 ^
4530 ^
4531 034145 254 00 0 00 034063 JRST ILOOP ;END OF TEST - GOTO NEXT ONE
4532
4533 034146 000000 000000 SUBT: EXP 0,0,0,1,0,377777777777
4534 034147 000000 000000
4535 034150 000000 000000
4536 034151 000000 000001
4537 034152 000000 000000
4538 034153 377777 777777
4539 034154 000000 000001 EXP 1,0,1,1,1,377777777777
4540 034155 000000 000000
4541 034156 000000 000001
4542 034157 000000 000001
4543 034160 000000 000001
4544 034161 377777 777777
4545 034162 777777 777777 EXP -1,1B0,-1,1B0+1,-1,-1
4546 034163 400000 000000
4547 034164 777777 777777
4548 034165 400000 000001
4549 034166 777777 777777
4550 034167 777777 777777
4551 034170 000000 000000 IMINU: 0
4552 034171 000000 000000 ISUBTR: 0
4553 034172 BDONE:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0120
4554 SUBTTL DSUB - TEST C
4555
4556 ; **********************************************************************
4557 ;*DSUB - TEST C
4558 ;*
4559 ;* THE FOLLOWING TESTS VERIFY THAT THE DSUB INSTRUCTION HANDLES
4560 ;* THE SIGN OF THE RESULT PROPERLY (COPYING THE SIGN INTO THE
4561 ;* HIGH ORDER BIT OF EACH WORD OF THE DOUBLEWORD RESULT. THE
4562 ;* TESTS SUBTRACT VARIOUS COMBINATIONS OF INCONSISTENT SIGNS
4563 ;* IN THE SUBTRAHEND AND MINUEND AND VERIFY THAT THE SIGNS OF
4564 ;* THE RESULT ARE CORRECT.
4565 ;*
4566 ;* THERE ARE 5 SETS OF TEST: (1) 0 - P/N = N/P
4567 ;* (2) N - N = P/N
4568 ;* (3) P - P = N/P
4569 ;* (4) N - P = N/P
4570 ;* (5) N - P = N/P
4571 ;* WHERE N-NEGATIVE NUMBER
4572 ;* P-POSITIVE NUMBER
4573 ; **********************************************************************
4574
4575 ; **********************************************************************
4576 ; ---------- DSUB - TEST C-1: 0 - P/N = N/P ----------
4577 ; **********************************************************************
4578
4579 034773 CNUM=SCONC1-6
4580
4581 REPEAT 6,<
4582 ; ************************************************
4583
4584 LOC=. ;ERROR RETURN ADDRESS
4585 CNUM=CNUM+6 ;ADDRESS OF TEST DATA
4586 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4587 DMOVE AC1,CNUM ;INIT MINUEND
4588 DSUB AC1,CNUM+2 ;SUB N - P
4589 CHECKT (LOC,C1,CNUM+4)
4590 ; ************************************************
4591 >
4592
4593 ; ************************************************
4594
4595 034172 LOC=. ;ERROR RETURN ADDRESS
4596 035001 CNUM=CNUM+6 ;ADDRESS OF TEST DATA
4597 034172 200 15 0 00 042237 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4598 034173 120 01 0 00 035001 DMOVE AC1,CNUM ;INIT MINUEND
4599 034174 115 01 0 00 035003 DSUB AC1,CNUM+2 ;SUB N - P
4600 CHECKT (LOC,C1,CNUM+4)^
4601
4602 034175 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4603 034176 312 01 0 00 035005 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4604 034177 254 00 0 00 034203 JRST ..0227 ;NO - GO TO ERROR HANDLING
4605 034200 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4606 034201 316 02 0 00 035006 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4607 034202 254 00 0 00 034206 JRST ..0230+1 ;YES - DONT DO ERROR HANDLING
4608 ; EXCEPT FOR ERLOOP
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-1
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0121
4609
4610 034203 200 14 0 13 000001 ..0227: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4611 034204 200 13 0 13 035005 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4612 034205 ..0230: ERROR (LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL
4613 034205 036 14 0 00 042245
4614 034206 035 00 0 00 034172 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4615 ^
4616 ^
4617 ; ************************************************
4618
4619
4620 ; ************************************************
4621
4622 034207 LOC=. ;ERROR RETURN ADDRESS
4623 035007 CNUM=CNUM+6 ;ADDRESS OF TEST DATA
4624 034207 200 15 0 00 042250 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4625 034210 120 01 0 00 035007 DMOVE AC1,CNUM ;INIT MINUEND
4626 034211 115 01 0 00 035011 DSUB AC1,CNUM+2 ;SUB N - P
4627 CHECKT (LOC,C1,CNUM+4)^
4628
4629 034212 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4630 034213 312 01 0 00 035013 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4631 034214 254 00 0 00 034220 JRST ..0231 ;NO - GO TO ERROR HANDLING
4632 034215 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4633 034216 316 02 0 00 035014 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4634 034217 254 00 0 00 034223 JRST ..0232+1 ;YES - DONT DO ERROR HANDLING
4635 ; EXCEPT FOR ERLOOP
4636
4637 034220 200 14 0 13 000001 ..0231: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4638 034221 200 13 0 13 035013 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4639 034222 ..0232: ERROR (LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL
4640 034222 036 14 0 00 042245
4641 034223 035 00 0 00 034207 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4642 ^
4643 ^
4644 ; ************************************************
4645
4646
4647 ; ************************************************
4648
4649 034224 LOC=. ;ERROR RETURN ADDRESS
4650 035015 CNUM=CNUM+6 ;ADDRESS OF TEST DATA
4651 034224 200 15 0 00 042251 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4652 034225 120 01 0 00 035015 DMOVE AC1,CNUM ;INIT MINUEND
4653 034226 115 01 0 00 035017 DSUB AC1,CNUM+2 ;SUB N - P
4654 CHECKT (LOC,C1,CNUM+4)^
4655
4656 034227 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4657 034230 312 01 0 00 035021 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4658 034231 254 00 0 00 034235 JRST ..0233 ;NO - GO TO ERROR HANDLING
4659 034232 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4660 034233 316 02 0 00 035022 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4661 034234 254 00 0 00 034240 JRST ..0234+1 ;YES - DONT DO ERROR HANDLING
4662 ; EXCEPT FOR ERLOOP
4663
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-2
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0122
4664 034235 200 14 0 13 000001 ..0233: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4665 034236 200 13 0 13 035021 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4666 034237 ..0234: ERROR (LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL
4667 034237 036 14 0 00 042245
4668 034240 035 00 0 00 034224 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4669 ^
4670 ^
4671 ; ************************************************
4672
4673
4674 ; ************************************************
4675
4676 034241 LOC=. ;ERROR RETURN ADDRESS
4677 035023 CNUM=CNUM+6 ;ADDRESS OF TEST DATA
4678 034241 200 15 0 00 042252 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4679 034242 120 01 0 00 035023 DMOVE AC1,CNUM ;INIT MINUEND
4680 034243 115 01 0 00 035025 DSUB AC1,CNUM+2 ;SUB N - P
4681 CHECKT (LOC,C1,CNUM+4)^
4682
4683 034244 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4684 034245 312 01 0 00 035027 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4685 034246 254 00 0 00 034252 JRST ..0235 ;NO - GO TO ERROR HANDLING
4686 034247 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4687 034250 316 02 0 00 035030 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4688 034251 254 00 0 00 034255 JRST ..0236+1 ;YES - DONT DO ERROR HANDLING
4689 ; EXCEPT FOR ERLOOP
4690
4691 034252 200 14 0 13 000001 ..0235: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4692 034253 200 13 0 13 035027 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4693 034254 ..0236: ERROR (LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL
4694 034254 036 14 0 00 042245
4695 034255 035 00 0 00 034241 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4696 ^
4697 ^
4698 ; ************************************************
4699
4700
4701 ; ************************************************
4702
4703 034256 LOC=. ;ERROR RETURN ADDRESS
4704 035031 CNUM=CNUM+6 ;ADDRESS OF TEST DATA
4705 034256 200 15 0 00 042253 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4706 034257 120 01 0 00 035031 DMOVE AC1,CNUM ;INIT MINUEND
4707 034260 115 01 0 00 035033 DSUB AC1,CNUM+2 ;SUB N - P
4708 CHECKT (LOC,C1,CNUM+4)^
4709
4710 034261 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4711 034262 312 01 0 00 035035 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4712 034263 254 00 0 00 034267 JRST ..0237 ;NO - GO TO ERROR HANDLING
4713 034264 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4714 034265 316 02 0 00 035036 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4715 034266 254 00 0 00 034272 JRST ..0240+1 ;YES - DONT DO ERROR HANDLING
4716 ; EXCEPT FOR ERLOOP
4717
4718 034267 200 14 0 13 000001 ..0237: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-3
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0123
4719 034270 200 13 0 13 035035 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4720 034271 ..0240: ERROR (LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL
4721 034271 036 14 0 00 042245
4722 034272 035 00 0 00 034256 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4723 ^
4724 ^
4725 ; ************************************************
4726
4727
4728 ; ************************************************
4729
4730 034273 LOC=. ;ERROR RETURN ADDRESS
4731 035037 CNUM=CNUM+6 ;ADDRESS OF TEST DATA
4732 034273 200 15 0 00 042254 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4733 034274 120 01 0 00 035037 DMOVE AC1,CNUM ;INIT MINUEND
4734 034275 115 01 0 00 035041 DSUB AC1,CNUM+2 ;SUB N - P
4735 CHECKT (LOC,C1,CNUM+4)^
4736
4737 034276 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4738 034277 312 01 0 00 035043 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4739 034300 254 00 0 00 034304 JRST ..0241 ;NO - GO TO ERROR HANDLING
4740 034301 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4741 034302 316 02 0 00 035044 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4742 034303 254 00 0 00 034307 JRST ..0242+1 ;YES - DONT DO ERROR HANDLING
4743 ; EXCEPT FOR ERLOOP
4744
4745 034304 200 14 0 13 000001 ..0241: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4746 034305 200 13 0 13 035043 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4747 034306 ..0242: ERROR (LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL
4748 034306 036 14 0 00 042245
4749 034307 035 00 0 00 034273 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4750 ^
4751 ^
4752 ; ************************************************
4753
4754 ; **********************************************************************
4755 ; ---------- DSUB - TEST C-2: N - N = P/N ----------
4756 ; **********************************************************************
4757
4758 035037 CNUM=SCONC2-6
4759
4760 REPEAT 6,<
4761 ; ************************************************
4762
4763 LOC=. ;ERROR RETURN ADDRESS
4764 CNUM=CNUM+6 ;SUBRESS OF TEST DATA
4765 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4766 DMOVE AC1,CNUM ;INIT MINUEND
4767 DSUB AC1,CNUM+2 ;SUB N - N
4768 CHECKT (LOC,C2,CNUM+4)
4769 ; ************************************************
4770 >
4771
4772 ; ************************************************
4773
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-4
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0124
4774 034310 LOC=. ;ERROR RETURN ADDRESS
4775 035045 CNUM=CNUM+6 ;SUBRESS OF TEST DATA
4776 034310 200 15 0 00 042255 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4777 034311 120 01 0 00 035045 DMOVE AC1,CNUM ;INIT MINUEND
4778 034312 115 01 0 00 035047 DSUB AC1,CNUM+2 ;SUB N - N
4779 CHECKT (LOC,C2,CNUM+4)^
4780
4781 034313 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4782 034314 312 01 0 00 035051 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4783 034315 254 00 0 00 034321 JRST ..0243 ;NO - GO TO ERROR HANDLING
4784 034316 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4785 034317 316 02 0 00 035052 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4786 034320 254 00 0 00 034324 JRST ..0244+1 ;YES - DONT DO ERROR HANDLING
4787 ; EXCEPT FOR ERLOOP
4788
4789 034321 200 14 0 13 000001 ..0243: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4790 034322 200 13 0 13 035051 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4791 034323 ..0244: ERROR (LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL
4792 034323 036 14 0 00 042263
4793 034324 035 00 0 00 034310 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4794 ^
4795 ^
4796 ; ************************************************
4797
4798
4799 ; ************************************************
4800
4801 034325 LOC=. ;ERROR RETURN ADDRESS
4802 035053 CNUM=CNUM+6 ;SUBRESS OF TEST DATA
4803 034325 200 15 0 00 042266 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4804 034326 120 01 0 00 035053 DMOVE AC1,CNUM ;INIT MINUEND
4805 034327 115 01 0 00 035055 DSUB AC1,CNUM+2 ;SUB N - N
4806 CHECKT (LOC,C2,CNUM+4)^
4807
4808 034330 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4809 034331 312 01 0 00 035057 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4810 034332 254 00 0 00 034336 JRST ..0245 ;NO - GO TO ERROR HANDLING
4811 034333 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4812 034334 316 02 0 00 035060 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4813 034335 254 00 0 00 034341 JRST ..0246+1 ;YES - DONT DO ERROR HANDLING
4814 ; EXCEPT FOR ERLOOP
4815
4816 034336 200 14 0 13 000001 ..0245: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4817 034337 200 13 0 13 035057 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4818 034340 ..0246: ERROR (LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL
4819 034340 036 14 0 00 042263
4820 034341 035 00 0 00 034325 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4821 ^
4822 ^
4823 ; ************************************************
4824
4825
4826 ; ************************************************
4827
4828 034342 LOC=. ;ERROR RETURN ADDRESS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-5
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0125
4829 035061 CNUM=CNUM+6 ;SUBRESS OF TEST DATA
4830 034342 200 15 0 00 042267 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4831 034343 120 01 0 00 035061 DMOVE AC1,CNUM ;INIT MINUEND
4832 034344 115 01 0 00 035063 DSUB AC1,CNUM+2 ;SUB N - N
4833 CHECKT (LOC,C2,CNUM+4)^
4834
4835 034345 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4836 034346 312 01 0 00 035065 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4837 034347 254 00 0 00 034353 JRST ..0247 ;NO - GO TO ERROR HANDLING
4838 034350 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4839 034351 316 02 0 00 035066 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4840 034352 254 00 0 00 034356 JRST ..0250+1 ;YES - DONT DO ERROR HANDLING
4841 ; EXCEPT FOR ERLOOP
4842
4843 034353 200 14 0 13 000001 ..0247: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4844 034354 200 13 0 13 035065 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4845 034355 ..0250: ERROR (LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL
4846 034355 036 14 0 00 042263
4847 034356 035 00 0 00 034342 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4848 ^
4849 ^
4850 ; ************************************************
4851
4852
4853 ; ************************************************
4854
4855 034357 LOC=. ;ERROR RETURN ADDRESS
4856 035067 CNUM=CNUM+6 ;SUBRESS OF TEST DATA
4857 034357 200 15 0 00 042270 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4858 034360 120 01 0 00 035067 DMOVE AC1,CNUM ;INIT MINUEND
4859 034361 115 01 0 00 035071 DSUB AC1,CNUM+2 ;SUB N - N
4860 CHECKT (LOC,C2,CNUM+4)^
4861
4862 034362 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4863 034363 312 01 0 00 035073 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4864 034364 254 00 0 00 034370 JRST ..0251 ;NO - GO TO ERROR HANDLING
4865 034365 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4866 034366 316 02 0 00 035074 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4867 034367 254 00 0 00 034373 JRST ..0252+1 ;YES - DONT DO ERROR HANDLING
4868 ; EXCEPT FOR ERLOOP
4869
4870 034370 200 14 0 13 000001 ..0251: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4871 034371 200 13 0 13 035073 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4872 034372 ..0252: ERROR (LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL
4873 034372 036 14 0 00 042263
4874 034373 035 00 0 00 034357 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4875 ^
4876 ^
4877 ; ************************************************
4878
4879
4880 ; ************************************************
4881
4882 034374 LOC=. ;ERROR RETURN ADDRESS
4883 035075 CNUM=CNUM+6 ;SUBRESS OF TEST DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-6
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0126
4884 034374 200 15 0 00 042271 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4885 034375 120 01 0 00 035075 DMOVE AC1,CNUM ;INIT MINUEND
4886 034376 115 01 0 00 035077 DSUB AC1,CNUM+2 ;SUB N - N
4887 CHECKT (LOC,C2,CNUM+4)^
4888
4889 034377 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4890 034400 312 01 0 00 035101 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4891 034401 254 00 0 00 034405 JRST ..0253 ;NO - GO TO ERROR HANDLING
4892 034402 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4893 034403 316 02 0 00 035102 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4894 034404 254 00 0 00 034410 JRST ..0254+1 ;YES - DONT DO ERROR HANDLING
4895 ; EXCEPT FOR ERLOOP
4896
4897 034405 200 14 0 13 000001 ..0253: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4898 034406 200 13 0 13 035101 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4899 034407 ..0254: ERROR (LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL
4900 034407 036 14 0 00 042263
4901 034410 035 00 0 00 034374 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4902 ^
4903 ^
4904 ; ************************************************
4905
4906
4907 ; ************************************************
4908
4909 034411 LOC=. ;ERROR RETURN ADDRESS
4910 035103 CNUM=CNUM+6 ;SUBRESS OF TEST DATA
4911 034411 200 15 0 00 042272 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4912 034412 120 01 0 00 035103 DMOVE AC1,CNUM ;INIT MINUEND
4913 034413 115 01 0 00 035105 DSUB AC1,CNUM+2 ;SUB N - N
4914 CHECKT (LOC,C2,CNUM+4)^
4915
4916 034414 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4917 034415 312 01 0 00 035107 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4918 034416 254 00 0 00 034422 JRST ..0255 ;NO - GO TO ERROR HANDLING
4919 034417 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4920 034420 316 02 0 00 035110 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4921 034421 254 00 0 00 034425 JRST ..0256+1 ;YES - DONT DO ERROR HANDLING
4922 ; EXCEPT FOR ERLOOP
4923
4924 034422 200 14 0 13 000001 ..0255: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4925 034423 200 13 0 13 035107 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4926 034424 ..0256: ERROR (LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL
4927 034424 036 14 0 00 042263
4928 034425 035 00 0 00 034411 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4929 ^
4930 ^
4931 ; ************************************************
4932
4933 ; **********************************************************************
4934 ; ---------- DSUB - TEST C-3: P - P = N/P ----------
4935 ; **********************************************************************
4936
4937 035103 CNUM=SCONC3-6
4938
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-7
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0127
4939 REPEAT 6,<
4940 ; ************************************************
4941
4942 LOC=. ;ERROR RETURN ADDRESS
4943 CNUM=CNUM+6 ;SUBRESS OF TEST DATA
4944 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4945 DMOVE AC1,CNUM ;INIT MINUEND
4946 DSUB AC1,CNUM+2 ;SUB N - P
4947 CHECKT (LOC,C3,CNUM+4)
4948 ; ************************************************
4949 >
4950
4951 ; ************************************************
4952
4953 034426 LOC=. ;ERROR RETURN ADDRESS
4954 035111 CNUM=CNUM+6 ;SUBRESS OF TEST DATA
4955 034426 200 15 0 00 042273 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4956 034427 120 01 0 00 035111 DMOVE AC1,CNUM ;INIT MINUEND
4957 034430 115 01 0 00 035113 DSUB AC1,CNUM+2 ;SUB N - P
4958 CHECKT (LOC,C3,CNUM+4)^
4959
4960 034431 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4961 034432 312 01 0 00 035115 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4962 034433 254 00 0 00 034437 JRST ..0257 ;NO - GO TO ERROR HANDLING
4963 034434 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4964 034435 316 02 0 00 035116 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4965 034436 254 00 0 00 034442 JRST ..0260+1 ;YES - DONT DO ERROR HANDLING
4966 ; EXCEPT FOR ERLOOP
4967
4968 034437 200 14 0 13 000001 ..0257: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4969 034440 200 13 0 13 035115 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4970 034441 ..0260: ERROR (LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL
4971 034441 036 14 0 00 042301
4972 034442 035 00 0 00 034426 ERLOOP LOC ;IF ERROR, LOOP TO LOC
4973 ^
4974 ^
4975 ; ************************************************
4976
4977
4978 ; ************************************************
4979
4980 034443 LOC=. ;ERROR RETURN ADDRESS
4981 035117 CNUM=CNUM+6 ;SUBRESS OF TEST DATA
4982 034443 200 15 0 00 042304 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
4983 034444 120 01 0 00 035117 DMOVE AC1,CNUM ;INIT MINUEND
4984 034445 115 01 0 00 035121 DSUB AC1,CNUM+2 ;SUB N - P
4985 CHECKT (LOC,C3,CNUM+4)^
4986
4987 034446 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
4988 034447 312 01 0 00 035123 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
4989 034450 254 00 0 00 034454 JRST ..0261 ;NO - GO TO ERROR HANDLING
4990 034451 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
4991 034452 316 02 0 00 035124 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
4992 034453 254 00 0 00 034457 JRST ..0262+1 ;YES - DONT DO ERROR HANDLING
4993 ; EXCEPT FOR ERLOOP
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-8
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0128
4994
4995 034454 200 14 0 13 000001 ..0261: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
4996 034455 200 13 0 13 035123 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
4997 034456 ..0262: ERROR (LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL
4998 034456 036 14 0 00 042301
4999 034457 035 00 0 00 034443 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5000 ^
5001 ^
5002 ; ************************************************
5003
5004
5005 ; ************************************************
5006
5007 034460 LOC=. ;ERROR RETURN ADDRESS
5008 035125 CNUM=CNUM+6 ;SUBRESS OF TEST DATA
5009 034460 200 15 0 00 042305 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5010 034461 120 01 0 00 035125 DMOVE AC1,CNUM ;INIT MINUEND
5011 034462 115 01 0 00 035127 DSUB AC1,CNUM+2 ;SUB N - P
5012 CHECKT (LOC,C3,CNUM+4)^
5013
5014 034463 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5015 034464 312 01 0 00 035131 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
5016 034465 254 00 0 00 034471 JRST ..0263 ;NO - GO TO ERROR HANDLING
5017 034466 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5018 034467 316 02 0 00 035132 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
5019 034470 254 00 0 00 034474 JRST ..0264+1 ;YES - DONT DO ERROR HANDLING
5020 ; EXCEPT FOR ERLOOP
5021
5022 034471 200 14 0 13 000001 ..0263: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5023 034472 200 13 0 13 035131 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
5024 034473 ..0264: ERROR (LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL
5025 034473 036 14 0 00 042301
5026 034474 035 00 0 00 034460 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5027 ^
5028 ^
5029 ; ************************************************
5030
5031
5032 ; ************************************************
5033
5034 034475 LOC=. ;ERROR RETURN ADDRESS
5035 035133 CNUM=CNUM+6 ;SUBRESS OF TEST DATA
5036 034475 200 15 0 00 042306 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5037 034476 120 01 0 00 035133 DMOVE AC1,CNUM ;INIT MINUEND
5038 034477 115 01 0 00 035135 DSUB AC1,CNUM+2 ;SUB N - P
5039 CHECKT (LOC,C3,CNUM+4)^
5040
5041 034500 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5042 034501 312 01 0 00 035137 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
5043 034502 254 00 0 00 034506 JRST ..0265 ;NO - GO TO ERROR HANDLING
5044 034503 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5045 034504 316 02 0 00 035140 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
5046 034505 254 00 0 00 034511 JRST ..0266+1 ;YES - DONT DO ERROR HANDLING
5047 ; EXCEPT FOR ERLOOP
5048
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-9
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0129
5049 034506 200 14 0 13 000001 ..0265: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5050 034507 200 13 0 13 035137 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
5051 034510 ..0266: ERROR (LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL
5052 034510 036 14 0 00 042301
5053 034511 035 00 0 00 034475 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5054 ^
5055 ^
5056 ; ************************************************
5057
5058
5059 ; ************************************************
5060
5061 034512 LOC=. ;ERROR RETURN ADDRESS
5062 035141 CNUM=CNUM+6 ;SUBRESS OF TEST DATA
5063 034512 200 15 0 00 042307 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5064 034513 120 01 0 00 035141 DMOVE AC1,CNUM ;INIT MINUEND
5065 034514 115 01 0 00 035143 DSUB AC1,CNUM+2 ;SUB N - P
5066 CHECKT (LOC,C3,CNUM+4)^
5067
5068 034515 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5069 034516 312 01 0 00 035145 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
5070 034517 254 00 0 00 034523 JRST ..0267 ;NO - GO TO ERROR HANDLING
5071 034520 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5072 034521 316 02 0 00 035146 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
5073 034522 254 00 0 00 034526 JRST ..0270+1 ;YES - DONT DO ERROR HANDLING
5074 ; EXCEPT FOR ERLOOP
5075
5076 034523 200 14 0 13 000001 ..0267: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5077 034524 200 13 0 13 035145 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
5078 034525 ..0270: ERROR (LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL
5079 034525 036 14 0 00 042301
5080 034526 035 00 0 00 034512 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5081 ^
5082 ^
5083 ; ************************************************
5084
5085
5086 ; ************************************************
5087
5088 034527 LOC=. ;ERROR RETURN ADDRESS
5089 035147 CNUM=CNUM+6 ;SUBRESS OF TEST DATA
5090 034527 200 15 0 00 042310 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5091 034530 120 01 0 00 035147 DMOVE AC1,CNUM ;INIT MINUEND
5092 034531 115 01 0 00 035151 DSUB AC1,CNUM+2 ;SUB N - P
5093 CHECKT (LOC,C3,CNUM+4)^
5094
5095 034532 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5096 034533 312 01 0 00 035153 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT?
5097 034534 254 00 0 00 034540 JRST ..0271 ;NO - GO TO ERROR HANDLING
5098 034535 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5099 034536 316 02 0 00 035154 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT?
5100 034537 254 00 0 00 034543 JRST ..0272+1 ;YES - DONT DO ERROR HANDLING
5101 ; EXCEPT FOR ERLOOP
5102
5103 034540 200 14 0 13 000001 ..0271: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-10
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0130
5104 034541 200 13 0 13 035153 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT
5105 034542 ..0272: ERROR (LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL
5106 034542 036 14 0 00 042301
5107 034543 035 00 0 00 034527 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5108 ^
5109 ^
5110 ; ************************************************
5111
5112 ; **********************************************************************
5113 ; ---------- DSUB - TEST C-4: N - P = -3 ----------
5114 ; **********************************************************************
5115
5116 035151 CNUM=SCONC4-4
5117
5118 REPEAT 6,<
5119 ; ************************************************
5120
5121 LOC=. ;ERROR RETURN ADDRESS
5122 CNUM=CNUM+4 ;SUBRESS OF TEST DATA
5123 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5124 DMOVE AC1,CNUM ;INIT MINUEND
5125 DSUB AC1,CNUM+2 ;SUB N - P = -3
5126 CHECKS (LOC,C4,-1,-3)
5127 ; ************************************************
5128 >
5129
5130 ; ************************************************
5131
5132 034544 LOC=. ;ERROR RETURN ADDRESS
5133 035155 CNUM=CNUM+4 ;SUBRESS OF TEST DATA
5134 034544 200 15 0 00 042311 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5135 034545 120 01 0 00 035155 DMOVE AC1,CNUM ;INIT MINUEND
5136 034546 115 01 0 00 035157 DSUB AC1,CNUM+2 ;SUB N - P = -3
5137 CHECKS (LOC,C4,-1,-3)^
5138
5139 034547 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5140 034550 312 01 0 00 041442 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT?
5141 034551 254 00 0 00 034555 JRST ..0273 ;NO - GO TO ERROR HANDLING
5142 034552 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5143 034553 316 02 0 00 042312 CAMN AC1+1,[-3] ;IS RIGHT HALF CORRECT?
5144 034554 254 00 0 00 034560 JRST ..0274+1 ;YES - DONT DO ERROR HANDLING
5145 ; EXCEPT FOR ERLOOP
5146
5147 034555 200 14 0 13 000001 ..0273: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5148 034556 200 13 0 13 042313 MOVE SCR1,[EXP -1,-3](SCR1) ;GET CORRECT RESULT
5149 034557 ..0274: ERROR (LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL
5150 034557 036 14 0 00 042322
5151 034560 035 00 0 00 034544 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5152 ^
5153 ^
5154 ; ************************************************
5155
5156
5157 ; ************************************************
5158
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-11
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0131
5159 034561 LOC=. ;ERROR RETURN ADDRESS
5160 035161 CNUM=CNUM+4 ;SUBRESS OF TEST DATA
5161 034561 200 15 0 00 042325 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5162 034562 120 01 0 00 035161 DMOVE AC1,CNUM ;INIT MINUEND
5163 034563 115 01 0 00 035163 DSUB AC1,CNUM+2 ;SUB N - P = -3
5164 CHECKS (LOC,C4,-1,-3)^
5165
5166 034564 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5167 034565 312 01 0 00 041442 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT?
5168 034566 254 00 0 00 034572 JRST ..0275 ;NO - GO TO ERROR HANDLING
5169 034567 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5170 034570 316 02 0 00 042312 CAMN AC1+1,[-3] ;IS RIGHT HALF CORRECT?
5171 034571 254 00 0 00 034575 JRST ..0276+1 ;YES - DONT DO ERROR HANDLING
5172 ; EXCEPT FOR ERLOOP
5173
5174 034572 200 14 0 13 000001 ..0275: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5175 034573 200 13 0 13 042313 MOVE SCR1,[EXP -1,-3](SCR1) ;GET CORRECT RESULT
5176 034574 ..0276: ERROR (LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL
5177 034574 036 14 0 00 042322
5178 034575 035 00 0 00 034561 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5179 ^
5180 ^
5181 ; ************************************************
5182
5183
5184 ; ************************************************
5185
5186 034576 LOC=. ;ERROR RETURN ADDRESS
5187 035165 CNUM=CNUM+4 ;SUBRESS OF TEST DATA
5188 034576 200 15 0 00 042326 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5189 034577 120 01 0 00 035165 DMOVE AC1,CNUM ;INIT MINUEND
5190 034600 115 01 0 00 035167 DSUB AC1,CNUM+2 ;SUB N - P = -3
5191 CHECKS (LOC,C4,-1,-3)^
5192
5193 034601 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5194 034602 312 01 0 00 041442 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT?
5195 034603 254 00 0 00 034607 JRST ..0277 ;NO - GO TO ERROR HANDLING
5196 034604 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5197 034605 316 02 0 00 042312 CAMN AC1+1,[-3] ;IS RIGHT HALF CORRECT?
5198 034606 254 00 0 00 034612 JRST ..0300+1 ;YES - DONT DO ERROR HANDLING
5199 ; EXCEPT FOR ERLOOP
5200
5201 034607 200 14 0 13 000001 ..0277: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5202 034610 200 13 0 13 042313 MOVE SCR1,[EXP -1,-3](SCR1) ;GET CORRECT RESULT
5203 034611 ..0300: ERROR (LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL
5204 034611 036 14 0 00 042322
5205 034612 035 00 0 00 034576 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5206 ^
5207 ^
5208 ; ************************************************
5209
5210
5211 ; ************************************************
5212
5213 034613 LOC=. ;ERROR RETURN ADDRESS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-12
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0132
5214 035171 CNUM=CNUM+4 ;SUBRESS OF TEST DATA
5215 034613 200 15 0 00 042327 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5216 034614 120 01 0 00 035171 DMOVE AC1,CNUM ;INIT MINUEND
5217 034615 115 01 0 00 035173 DSUB AC1,CNUM+2 ;SUB N - P = -3
5218 CHECKS (LOC,C4,-1,-3)^
5219
5220 034616 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5221 034617 312 01 0 00 041442 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT?
5222 034620 254 00 0 00 034624 JRST ..0301 ;NO - GO TO ERROR HANDLING
5223 034621 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5224 034622 316 02 0 00 042312 CAMN AC1+1,[-3] ;IS RIGHT HALF CORRECT?
5225 034623 254 00 0 00 034627 JRST ..0302+1 ;YES - DONT DO ERROR HANDLING
5226 ; EXCEPT FOR ERLOOP
5227
5228 034624 200 14 0 13 000001 ..0301: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5229 034625 200 13 0 13 042313 MOVE SCR1,[EXP -1,-3](SCR1) ;GET CORRECT RESULT
5230 034626 ..0302: ERROR (LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL
5231 034626 036 14 0 00 042322
5232 034627 035 00 0 00 034613 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5233 ^
5234 ^
5235 ; ************************************************
5236
5237
5238 ; ************************************************
5239
5240 034630 LOC=. ;ERROR RETURN ADDRESS
5241 035175 CNUM=CNUM+4 ;SUBRESS OF TEST DATA
5242 034630 200 15 0 00 042330 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5243 034631 120 01 0 00 035175 DMOVE AC1,CNUM ;INIT MINUEND
5244 034632 115 01 0 00 035177 DSUB AC1,CNUM+2 ;SUB N - P = -3
5245 CHECKS (LOC,C4,-1,-3)^
5246
5247 034633 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5248 034634 312 01 0 00 041442 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT?
5249 034635 254 00 0 00 034641 JRST ..0303 ;NO - GO TO ERROR HANDLING
5250 034636 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5251 034637 316 02 0 00 042312 CAMN AC1+1,[-3] ;IS RIGHT HALF CORRECT?
5252 034640 254 00 0 00 034644 JRST ..0304+1 ;YES - DONT DO ERROR HANDLING
5253 ; EXCEPT FOR ERLOOP
5254
5255 034641 200 14 0 13 000001 ..0303: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5256 034642 200 13 0 13 042313 MOVE SCR1,[EXP -1,-3](SCR1) ;GET CORRECT RESULT
5257 034643 ..0304: ERROR (LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL
5258 034643 036 14 0 00 042322
5259 034644 035 00 0 00 034630 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5260 ^
5261 ^
5262 ; ************************************************
5263
5264
5265 ; ************************************************
5266
5267 034645 LOC=. ;ERROR RETURN ADDRESS
5268 035201 CNUM=CNUM+4 ;SUBRESS OF TEST DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-13
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0133
5269 034645 200 15 0 00 042331 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5270 034646 120 01 0 00 035201 DMOVE AC1,CNUM ;INIT MINUEND
5271 034647 115 01 0 00 035203 DSUB AC1,CNUM+2 ;SUB N - P = -3
5272 CHECKS (LOC,C4,-1,-3)^
5273
5274 034650 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5275 034651 312 01 0 00 041442 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT?
5276 034652 254 00 0 00 034656 JRST ..0305 ;NO - GO TO ERROR HANDLING
5277 034653 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5278 034654 316 02 0 00 042312 CAMN AC1+1,[-3] ;IS RIGHT HALF CORRECT?
5279 034655 254 00 0 00 034661 JRST ..0306+1 ;YES - DONT DO ERROR HANDLING
5280 ; EXCEPT FOR ERLOOP
5281
5282 034656 200 14 0 13 000001 ..0305: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5283 034657 200 13 0 13 042313 MOVE SCR1,[EXP -1,-3](SCR1) ;GET CORRECT RESULT
5284 034660 ..0306: ERROR (LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL
5285 034660 036 14 0 00 042322
5286 034661 035 00 0 00 034645 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5287 ^
5288 ^
5289 ; ************************************************
5290
5291 ; **********************************************************************
5292 ; ---------- DSUB - TEST C-5: P - N = 3 ----------
5293 ; **********************************************************************
5294
5295 035201 CNUM=SCONC5-4
5296
5297 REPEAT 6,<
5298 ; ************************************************
5299
5300 LOC=. ;ERROR RETURN ADDRESS
5301 CNUM=CNUM+4 ;SUBRESS OF TEST DATA
5302 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5303 DMOVE AC1,CNUM ;INIT MINUEND
5304 DSUB AC1,CNUM+2 ;SUB N - P = 3
5305 CHECKS (LOC,C5,0,3)
5306 ; ************************************************
5307 >
5308
5309 ; ************************************************
5310
5311 034662 LOC=. ;ERROR RETURN ADDRESS
5312 035205 CNUM=CNUM+4 ;SUBRESS OF TEST DATA
5313 034662 200 15 0 00 042332 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5314 034663 120 01 0 00 035205 DMOVE AC1,CNUM ;INIT MINUEND
5315 034664 115 01 0 00 035207 DSUB AC1,CNUM+2 ;SUB N - P = 3
5316 CHECKS (LOC,C5,0,3)^
5317
5318 034665 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5319 034666 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
5320 034667 254 00 0 00 034673 JRST ..0307 ;NO - GO TO ERROR HANDLING
5321 034670 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5322 034671 316 02 0 00 042333 CAMN AC1+1,[3] ;IS RIGHT HALF CORRECT?
5323 034672 254 00 0 00 034676 JRST ..0310+1 ;YES - DONT DO ERROR HANDLING
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-14
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0134
5324 ; EXCEPT FOR ERLOOP
5325
5326 034673 200 14 0 13 000001 ..0307: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5327 034674 200 13 0 13 042334 MOVE SCR1,[EXP 0,3](SCR1) ;GET CORRECT RESULT
5328 034675 ..0310: ERROR (LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL
5329 034675 036 14 0 00 042343
5330 034676 035 00 0 00 034662 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5331 ^
5332 ^
5333 ; ************************************************
5334
5335
5336 ; ************************************************
5337
5338 034677 LOC=. ;ERROR RETURN ADDRESS
5339 035211 CNUM=CNUM+4 ;SUBRESS OF TEST DATA
5340 034677 200 15 0 00 042346 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5341 034700 120 01 0 00 035211 DMOVE AC1,CNUM ;INIT MINUEND
5342 034701 115 01 0 00 035213 DSUB AC1,CNUM+2 ;SUB N - P = 3
5343 CHECKS (LOC,C5,0,3)^
5344
5345 034702 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5346 034703 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
5347 034704 254 00 0 00 034710 JRST ..0311 ;NO - GO TO ERROR HANDLING
5348 034705 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5349 034706 316 02 0 00 042333 CAMN AC1+1,[3] ;IS RIGHT HALF CORRECT?
5350 034707 254 00 0 00 034713 JRST ..0312+1 ;YES - DONT DO ERROR HANDLING
5351 ; EXCEPT FOR ERLOOP
5352
5353 034710 200 14 0 13 000001 ..0311: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5354 034711 200 13 0 13 042334 MOVE SCR1,[EXP 0,3](SCR1) ;GET CORRECT RESULT
5355 034712 ..0312: ERROR (LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL
5356 034712 036 14 0 00 042343
5357 034713 035 00 0 00 034677 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5358 ^
5359 ^
5360 ; ************************************************
5361
5362
5363 ; ************************************************
5364
5365 034714 LOC=. ;ERROR RETURN ADDRESS
5366 035215 CNUM=CNUM+4 ;SUBRESS OF TEST DATA
5367 034714 200 15 0 00 042347 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5368 034715 120 01 0 00 035215 DMOVE AC1,CNUM ;INIT MINUEND
5369 034716 115 01 0 00 035217 DSUB AC1,CNUM+2 ;SUB N - P = 3
5370 CHECKS (LOC,C5,0,3)^
5371
5372 034717 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5373 034720 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
5374 034721 254 00 0 00 034725 JRST ..0313 ;NO - GO TO ERROR HANDLING
5375 034722 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5376 034723 316 02 0 00 042333 CAMN AC1+1,[3] ;IS RIGHT HALF CORRECT?
5377 034724 254 00 0 00 034730 JRST ..0314+1 ;YES - DONT DO ERROR HANDLING
5378 ; EXCEPT FOR ERLOOP
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-15
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0135
5379
5380 034725 200 14 0 13 000001 ..0313: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5381 034726 200 13 0 13 042334 MOVE SCR1,[EXP 0,3](SCR1) ;GET CORRECT RESULT
5382 034727 ..0314: ERROR (LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL
5383 034727 036 14 0 00 042343
5384 034730 035 00 0 00 034714 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5385 ^
5386 ^
5387 ; ************************************************
5388
5389
5390 ; ************************************************
5391
5392 034731 LOC=. ;ERROR RETURN ADDRESS
5393 035221 CNUM=CNUM+4 ;SUBRESS OF TEST DATA
5394 034731 200 15 0 00 042350 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5395 034732 120 01 0 00 035221 DMOVE AC1,CNUM ;INIT MINUEND
5396 034733 115 01 0 00 035223 DSUB AC1,CNUM+2 ;SUB N - P = 3
5397 CHECKS (LOC,C5,0,3)^
5398
5399 034734 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5400 034735 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
5401 034736 254 00 0 00 034742 JRST ..0315 ;NO - GO TO ERROR HANDLING
5402 034737 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5403 034740 316 02 0 00 042333 CAMN AC1+1,[3] ;IS RIGHT HALF CORRECT?
5404 034741 254 00 0 00 034745 JRST ..0316+1 ;YES - DONT DO ERROR HANDLING
5405 ; EXCEPT FOR ERLOOP
5406
5407 034742 200 14 0 13 000001 ..0315: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5408 034743 200 13 0 13 042334 MOVE SCR1,[EXP 0,3](SCR1) ;GET CORRECT RESULT
5409 034744 ..0316: ERROR (LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL
5410 034744 036 14 0 00 042343
5411 034745 035 00 0 00 034731 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5412 ^
5413 ^
5414 ; ************************************************
5415
5416
5417 ; ************************************************
5418
5419 034746 LOC=. ;ERROR RETURN ADDRESS
5420 035225 CNUM=CNUM+4 ;SUBRESS OF TEST DATA
5421 034746 200 15 0 00 042351 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5422 034747 120 01 0 00 035225 DMOVE AC1,CNUM ;INIT MINUEND
5423 034750 115 01 0 00 035227 DSUB AC1,CNUM+2 ;SUB N - P = 3
5424 CHECKS (LOC,C5,0,3)^
5425
5426 034751 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5427 034752 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
5428 034753 254 00 0 00 034757 JRST ..0317 ;NO - GO TO ERROR HANDLING
5429 034754 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5430 034755 316 02 0 00 042333 CAMN AC1+1,[3] ;IS RIGHT HALF CORRECT?
5431 034756 254 00 0 00 034762 JRST ..0320+1 ;YES - DONT DO ERROR HANDLING
5432 ; EXCEPT FOR ERLOOP
5433
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-16
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0136
5434 034757 200 14 0 13 000001 ..0317: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5435 034760 200 13 0 13 042334 MOVE SCR1,[EXP 0,3](SCR1) ;GET CORRECT RESULT
5436 034761 ..0320: ERROR (LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL
5437 034761 036 14 0 00 042343
5438 034762 035 00 0 00 034746 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5439 ^
5440 ^
5441 ; ************************************************
5442
5443
5444 ; ************************************************
5445
5446 034763 LOC=. ;ERROR RETURN ADDRESS
5447 035231 CNUM=CNUM+4 ;SUBRESS OF TEST DATA
5448 034763 200 15 0 00 042352 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5449 034764 120 01 0 00 035231 DMOVE AC1,CNUM ;INIT MINUEND
5450 034765 115 01 0 00 035233 DSUB AC1,CNUM+2 ;SUB N - P = 3
5451 CHECKS (LOC,C5,0,3)^
5452
5453 034766 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5454 034767 312 01 0 00 041274 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT?
5455 034770 254 00 0 00 034774 JRST ..0321 ;NO - GO TO ERROR HANDLING
5456 034771 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5457 034772 316 02 0 00 042333 CAMN AC1+1,[3] ;IS RIGHT HALF CORRECT?
5458 034773 254 00 0 00 034777 JRST ..0322+1 ;YES - DONT DO ERROR HANDLING
5459 ; EXCEPT FOR ERLOOP
5460
5461 034774 200 14 0 13 000001 ..0321: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5462 034775 200 13 0 13 042334 MOVE SCR1,[EXP 0,3](SCR1) ;GET CORRECT RESULT
5463 034776 ..0322: ERROR (LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL
5464 034776 036 14 0 00 042343
5465 034777 035 00 0 00 034763 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5466 ^
5467 ^
5468 ; ************************************************
5469
5470 035000 254 00 0 00 035235 JRST SENDC ;SKIP OVER DATA
5471
5472 035001 000000 000000 SCONC1: EXP 0,0,0,1B0,0,0
5473 035002 000000 000000
5474 035003 000000 000000
5475 035004 400000 000000
5476 035005 000000 000000
5477 035006 000000 000000
5478 035007 000000 000000 EXP 0,1B0,0,1,-1,-1
5479 035010 400000 000000
5480 035011 000000 000000
5481 035012 000000 000001
5482 035013 777777 777777
5483 035014 777777 777777
5484 035015 000000 000000 EXP 0,1B0,0,1B0+1,-1,-1
5485 035016 400000 000000
5486 035017 000000 000000
5487 035020 400000 000001
5488 035021 777777 777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-17
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0137
5489 035022 777777 777777
5490 035023 000000 000000 EXP 0,0,-1,377777777777,0,1
5491 035024 000000 000000
5492 035025 777777 777777
5493 035026 377777 777777
5494 035027 000000 000000
5495 035030 000000 000001
5496 035031 000000 000000 EXP 0,1B0,-1,377777777777,0,1
5497 035032 400000 000000
5498 035033 777777 777777
5499 035034 377777 777777
5500 035035 000000 000000
5501 035036 000000 000001
5502 035037 000000 000000 EXP 0,1B0,-1,-1,0,1
5503 035040 400000 000000
5504 035041 777777 777777
5505 035042 777777 777777
5506 035043 000000 000000
5507 035044 000000 000001
5508
5509 035045 777777 777777 SCONC2: EXP -1,377777777777,-2,-1,1,0
5510 035046 377777 777777
5511 035047 777777 777776
5512 035050 777777 777777
5513 035051 000000 000001
5514 035052 000000 000000
5515 035053 777777 777777 EXP -1,377777777777,-2,377777777777,1,0
5516 035054 377777 777777
5517 035055 777777 777776
5518 035056 377777 777777
5519 035057 000000 000001
5520 035060 000000 000000
5521 035061 777777 777777 EXP -1,-1,-2,377777777777,1,0
5522 035062 777777 777777
5523 035063 777777 777776
5524 035064 377777 777777
5525 035065 000000 000001
5526 035066 000000 000000
5527 035067 777777 777776 EXP -2,-1,-1,377777777777,-1,1B0
5528 035070 777777 777777
5529 035071 777777 777777
5530 035072 377777 777777
5531 035073 777777 777777
5532 035074 400000 000000
5533 035075 777777 777776 EXP -2,377777777777,-1,377777777777,-1,1B0
5534 035076 377777 777777
5535 035077 777777 777777
5536 035100 377777 777777
5537 035101 777777 777777
5538 035102 400000 000000
5539 035103 777777 777776 EXP -2,377777777777,-1,-1,-1,1B0
5540 035104 377777 777777
5541 035105 777777 777777
5542 035106 777777 777777
5543 035107 777777 777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-18
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0138
5544 035110 400000 000000
5545
5546 035111 000000 000000 SCONC3: EXP 0,1B0+1,1,0,-1,1B0+1
5547 035112 400000 000001
5548 035113 000000 000001
5549 035114 000000 000000
5550 035115 777777 777777
5551 035116 400000 000001
5552 035117 000000 000000 EXP 0,1B0+1,1,1B0,-1,1B0+1
5553 035120 400000 000001
5554 035121 000000 000001
5555 035122 400000 000000
5556 035123 777777 777777
5557 035124 400000 000001
5558 035125 000000 000000 EXP 0,1,1,1B0,-1,1B0+1
5559 035126 000000 000001
5560 035127 000000 000001
5561 035130 400000 000000
5562 035131 777777 777777
5563 035132 400000 000001
5564 035133 000000 000001 EXP 1,0,0,1B0+1,0,377777777777
5565 035134 000000 000000
5566 035135 000000 000000
5567 035136 400000 000001
5568 035137 000000 000000
5569 035140 377777 777777
5570 035141 000000 000001 EXP 1,1B0,0,1B0+1,0,377777777777
5571 035142 400000 000000
5572 035143 000000 000000
5573 035144 400000 000001
5574 035145 000000 000000
5575 035146 377777 777777
5576 035147 000000 000001 EXP 1,1B0,0,1,0,377777777777
5577 035150 400000 000000
5578 035151 000000 000000
5579 035152 000000 000001
5580 035153 000000 000000
5581 035154 377777 777777
5582
5583 035155 777777 777777 SCONC4: EXP -1,377777777776,0,1
5584 035156 377777 777776
5585 035157 000000 000000
5586 035160 000000 000001
5587 035161 777777 777777 EXP -1,377777777776,0,1B0+1
5588 035162 377777 777776
5589 035163 000000 000000
5590 035164 400000 000001
5591 035165 777777 777777 EXP -1,-2,0,1B0+1
5592 035166 777777 777776
5593 035167 000000 000000
5594 035170 400000 000001
5595 035171 777777 777777 EXP -1,377777777777,0,2
5596 035172 377777 777777
5597 035173 000000 000000
5598 035174 000000 000002
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 16-19
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST C SEQ 0139
5599 035175 777777 777777 EXP -1,377777777777,0,1B0+2
5600 035176 377777 777777
5601 035177 000000 000000
5602 035200 400000 000002
5603 035201 777777 777777 EXP -1,-1,0,1B0+2
5604 035202 777777 777777
5605 035203 000000 000000
5606 035204 400000 000002
5607 035205 000000 000000 SCONC5: EXP 0,1,-1,377777777776
5608 035206 000000 000001
5609 035207 777777 777777
5610 035210 377777 777776
5611 035211 000000 000000 EXP 0,1B0+1,-1,377777777776
5612 035212 400000 000001
5613 035213 777777 777777
5614 035214 377777 777776
5615 035215 000000 000000 EXP 0,1B0+1,-1,-2
5616 035216 400000 000001
5617 035217 777777 777777
5618 035220 777777 777776
5619 035221 000000 000000 EXP 0,2,-1,377777777777
5620 035222 000000 000002
5621 035223 777777 777777
5622 035224 377777 777777
5623 035225 000000 000000 EXP 0,1B0+2,-1,377777777777
5624 035226 400000 000002
5625 035227 777777 777777
5626 035230 377777 777777
5627 035231 000000 000000 EXP 0,1B0+2,-1,-1
5628 035232 400000 000002
5629 035233 777777 777777
5630 035234 777777 777777
5631 035235 SENDC:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 17
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST D SEQ 0140
5632 SUBTTL DSUB - TEST D
5633
5634 ; **********************************************************************
5635 ;*DSUB - TEST D
5636 ;*
5637 ;* 2**N - (-2**70 + 2**N) = 1000... (AROV & CARRY 1 SET)
5638 ;* (-2**70 + 2**N) - 2**N = 1000... (AROV & CARRY 1 SET)
5639 ;* -2**N - (2**70 - 2**N + 1) = 0111... (AROV & CARRY 0 SET)
5640 ;* (2**70 - 2**N + 1) - -2**N = 0111... (AROV & CARRY 0 SET)
5641 ; **********************************************************************
5642
5643 ; **********************************************************************
5644 ;* THE FOLLOWING SECTION OF CODE IS REPEATED 8 TIMES. THE FIRST
5645 ;* 4 TESTS FLOAT A 1 ACROSS A DOUBLEWORD IN BITS 1,35,37,71.
5646 ;* FROM THIS NUMBER IS SUBTRACTED THE SMALLEST (MAGNITUDE)
5647 ;* NEGATIVE INTEGER WHICH WILL PRODUCE AN OVERFLOW - THE RESULT
5648 ;* IS A DOUBLEWORD OF 0'S WITH 1 IN THE SIGN BIT - WITH OVERFLOW
5649 ;* & CARRY 1 SET. THE NEXT 4 TESTS FLOAT A 0 ACROSS A DOUBLE-
5650 ;* WORD IN BITS 1,35,37,71 (A NEG NUMBER). FROM THIS NUMBER IS
5651 ;* SUBTRACTED THE SMALLEST POSITIVE INTEGER WHICH WILL PRODUCE
5652 ;* AN OVERFLOW - THE RESULT IS A DOUBLEWORD OF 1S WITH A 0 IN
5653 ;* THE SIGN BIT - WITH OVERFLOW AND CARRY 0 SET.
5654 ;* THE DOUBLEWORDS USED IN THIS TEST ARE LOCATED IN THE LIST
5655 ;* 'SCOND'.
5656 ; **********************************************************************
5657
5658 035542 CNUM=SCOND-4 ;POINTER TO THE DOUBLEWORDS TO
5659 ; BE SUBTRACTED
5660 000000 REP=0 ;REPETITION COUNT
5661 400000 000000 RESULT=1B0 ;1B0 FOR 1ST 4 / 377.. FOR 2ND 4
5662 500000 000000 FLAGS=^B1010B3 ;AROV,CRY0,CRY1,FOV
5663
5664 REPEAT ^D8,<
5665 ; ************************************************
5666
5667 LOC=. ;ERROR LOOP RETURN ADDRESS
5668 CNUM=CNUM+4 ;POINT TO THE TEST CASE
5669 REP=REP+1 ;REPETITION COUNT
5670 IFG REP-4,<FLAGS=^B1100B3 ;FLAGS FOR SECOND 4 CASES
5671 RESULT=377777777777> ;LARGEST POSITIVE NUMBER
5672 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5673 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1
5674 JFCL 17,.+1 ;CLEAR PC FLAGS
5675 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
5676 PCSAVE
5677 CHECKS (LOC,D,RESULT,RESULT)
5678 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
5679 TFLAG ([FLAGS],D,SPRINT)
5680 ; ************************************************
5681 >
5682
5683 ; ************************************************
5684
5685 035235 LOC=. ;ERROR LOOP RETURN ADDRESS
5686 035546 CNUM=CNUM+4 ;POINT TO THE TEST CASE
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 17-1
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST D SEQ 0141
5687 000001 REP=REP+1 ;REPETITION COUNT
5688 IFG REP-4,<FLAGS=^B1100B3 ;FLAGS FOR SECOND 4 CASES
5689 RESULT=377777777777> ;LARGEST POSITIVE NUMBER
5690 035235 200 15 0 00 042353 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5691 035236 120 01 0 00 035546 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1
5692 035237 255 17 0 00 035240 JFCL 17,.+1 ;CLEAR PC FLAGS
5693 035240 115 01 0 00 035550 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
5694 PCSAVE^
5695 035241 264 00 0 00 035242 JSR .+1 ;STORE PC
5696 035242 FLAGL=. ;LOCATION OF PC
5697 035242 000000 000000 0 ;PC
5698 ^
5699 CHECKS (LOC,D,RESULT,RESULT)^
5700
5701 035243 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5702 035244 312 01 0 00 042201 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT?
5703 035245 254 00 0 00 035251 JRST ..0323 ;NO - GO TO ERROR HANDLING
5704 035246 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5705 035247 316 02 0 00 042201 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT?
5706 035250 254 00 0 00 035254 JRST ..0324+1 ;YES - DONT DO ERROR HANDLING
5707 ; EXCEPT FOR ERLOOP
5708
5709 035251 200 14 0 13 000001 ..0323: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5710 035252 200 13 0 13 042354 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT
5711 035253 ..0324: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
5712 035253 036 14 0 00 042363
5713 035254 035 00 0 00 035235 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5714 ^
5715 ^
5716 035255 200 15 0 00 042353 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
5717 TFLAG ([FLAGS],D,SPRINT)^
5718
5719 035256 200 13 0 00 035242 MOVE SCR1,FLAGL ;GET FLAGS
5720 035257 200 14 0 00 042110 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
5721 035260 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
5722 035261 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
5723 035262 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
5724 035263 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
5725 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
5726 035264 036 13 0 00 042375
5727 035265 035 00 0 00 035235 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5728 ^
5729 ^
5730 ; ************************************************
5731
5732
5733 ; ************************************************
5734
5735 035266 LOC=. ;ERROR LOOP RETURN ADDRESS
5736 035552 CNUM=CNUM+4 ;POINT TO THE TEST CASE
5737 000002 REP=REP+1 ;REPETITION COUNT
5738 IFG REP-4,<FLAGS=^B1100B3 ;FLAGS FOR SECOND 4 CASES
5739 RESULT=377777777777> ;LARGEST POSITIVE NUMBER
5740 035266 200 15 0 00 042400 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5741 035267 120 01 0 00 035552 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 17-2
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST D SEQ 0142
5742 035270 255 17 0 00 035271 JFCL 17,.+1 ;CLEAR PC FLAGS
5743 035271 115 01 0 00 035554 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
5744 PCSAVE^
5745 035272 264 00 0 00 035273 JSR .+1 ;STORE PC
5746 035273 FLAGL=. ;LOCATION OF PC
5747 035273 000000 000000 0 ;PC
5748 ^
5749 CHECKS (LOC,D,RESULT,RESULT)^
5750
5751 035274 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5752 035275 312 01 0 00 042201 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT?
5753 035276 254 00 0 00 035302 JRST ..0325 ;NO - GO TO ERROR HANDLING
5754 035277 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5755 035300 316 02 0 00 042201 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT?
5756 035301 254 00 0 00 035305 JRST ..0326+1 ;YES - DONT DO ERROR HANDLING
5757 ; EXCEPT FOR ERLOOP
5758
5759 035302 200 14 0 13 000001 ..0325: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5760 035303 200 13 0 13 042354 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT
5761 035304 ..0326: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
5762 035304 036 14 0 00 042363
5763 035305 035 00 0 00 035266 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5764 ^
5765 ^
5766 035306 200 15 0 00 042400 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
5767 TFLAG ([FLAGS],D,SPRINT)^
5768
5769 035307 200 13 0 00 035273 MOVE SCR1,FLAGL ;GET FLAGS
5770 035310 200 14 0 00 042110 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
5771 035311 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
5772 035312 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
5773 035313 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
5774 035314 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
5775 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
5776 035315 036 13 0 00 042401
5777 035316 035 00 0 00 035266 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5778 ^
5779 ^
5780 ; ************************************************
5781
5782
5783 ; ************************************************
5784
5785 035317 LOC=. ;ERROR LOOP RETURN ADDRESS
5786 035556 CNUM=CNUM+4 ;POINT TO THE TEST CASE
5787 000003 REP=REP+1 ;REPETITION COUNT
5788 IFG REP-4,<FLAGS=^B1100B3 ;FLAGS FOR SECOND 4 CASES
5789 RESULT=377777777777> ;LARGEST POSITIVE NUMBER
5790 035317 200 15 0 00 042404 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5791 035320 120 01 0 00 035556 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1
5792 035321 255 17 0 00 035322 JFCL 17,.+1 ;CLEAR PC FLAGS
5793 035322 115 01 0 00 035560 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
5794 PCSAVE^
5795 035323 264 00 0 00 035324 JSR .+1 ;STORE PC
5796 035324 FLAGL=. ;LOCATION OF PC
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 17-3
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST D SEQ 0143
5797 035324 000000 000000 0 ;PC
5798 ^
5799 CHECKS (LOC,D,RESULT,RESULT)^
5800
5801 035325 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5802 035326 312 01 0 00 042201 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT?
5803 035327 254 00 0 00 035333 JRST ..0327 ;NO - GO TO ERROR HANDLING
5804 035330 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5805 035331 316 02 0 00 042201 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT?
5806 035332 254 00 0 00 035336 JRST ..0330+1 ;YES - DONT DO ERROR HANDLING
5807 ; EXCEPT FOR ERLOOP
5808
5809 035333 200 14 0 13 000001 ..0327: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5810 035334 200 13 0 13 042354 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT
5811 035335 ..0330: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
5812 035335 036 14 0 00 042363
5813 035336 035 00 0 00 035317 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5814 ^
5815 ^
5816 035337 200 15 0 00 042404 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
5817 TFLAG ([FLAGS],D,SPRINT)^
5818
5819 035340 200 13 0 00 035324 MOVE SCR1,FLAGL ;GET FLAGS
5820 035341 200 14 0 00 042110 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
5821 035342 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
5822 035343 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
5823 035344 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
5824 035345 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
5825 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
5826 035346 036 13 0 00 042405
5827 035347 035 00 0 00 035317 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5828 ^
5829 ^
5830 ; ************************************************
5831
5832
5833 ; ************************************************
5834
5835 035350 LOC=. ;ERROR LOOP RETURN ADDRESS
5836 035562 CNUM=CNUM+4 ;POINT TO THE TEST CASE
5837 000004 REP=REP+1 ;REPETITION COUNT
5838 IFG REP-4,<FLAGS=^B1100B3 ;FLAGS FOR SECOND 4 CASES
5839 RESULT=377777777777> ;LARGEST POSITIVE NUMBER
5840 035350 200 15 0 00 042410 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5841 035351 120 01 0 00 035562 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1
5842 035352 255 17 0 00 035353 JFCL 17,.+1 ;CLEAR PC FLAGS
5843 035353 115 01 0 00 035564 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
5844 PCSAVE^
5845 035354 264 00 0 00 035355 JSR .+1 ;STORE PC
5846 035355 FLAGL=. ;LOCATION OF PC
5847 035355 000000 000000 0 ;PC
5848 ^
5849 CHECKS (LOC,D,RESULT,RESULT)^
5850
5851 035356 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 17-4
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST D SEQ 0144
5852 035357 312 01 0 00 042201 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT?
5853 035360 254 00 0 00 035364 JRST ..0331 ;NO - GO TO ERROR HANDLING
5854 035361 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5855 035362 316 02 0 00 042201 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT?
5856 035363 254 00 0 00 035367 JRST ..0332+1 ;YES - DONT DO ERROR HANDLING
5857 ; EXCEPT FOR ERLOOP
5858
5859 035364 200 14 0 13 000001 ..0331: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5860 035365 200 13 0 13 042354 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT
5861 035366 ..0332: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
5862 035366 036 14 0 00 042363
5863 035367 035 00 0 00 035350 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5864 ^
5865 ^
5866 035370 200 15 0 00 042410 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
5867 TFLAG ([FLAGS],D,SPRINT)^
5868
5869 035371 200 13 0 00 035355 MOVE SCR1,FLAGL ;GET FLAGS
5870 035372 200 14 0 00 042110 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
5871 035373 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
5872 035374 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
5873 035375 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
5874 035376 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
5875 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
5876 035377 036 13 0 00 042411
5877 035400 035 00 0 00 035350 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5878 ^
5879 ^
5880 ; ************************************************
5881
5882
5883 ; ************************************************
5884
5885 035401 LOC=. ;ERROR LOOP RETURN ADDRESS
5886 035566 CNUM=CNUM+4 ;POINT TO THE TEST CASE
5887 000005 REP=REP+1 ;REPETITION COUNT
5888 600000 000000 IFG REP-4,<FLAGS=^B1100B3 ;FLAGS FOR SECOND 4 CASES
5889 377777 777777 RESULT=377777777777> ;LARGEST POSITIVE NUMBER
5890 035401 200 15 0 00 042414 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5891 035402 120 01 0 00 035566 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1
5892 035403 255 17 0 00 035404 JFCL 17,.+1 ;CLEAR PC FLAGS
5893 035404 115 01 0 00 035570 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
5894 PCSAVE^
5895 035405 264 00 0 00 035406 JSR .+1 ;STORE PC
5896 035406 FLAGL=. ;LOCATION OF PC
5897 035406 000000 000000 0 ;PC
5898 ^
5899 CHECKS (LOC,D,RESULT,RESULT)^
5900
5901 035407 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5902 035410 312 01 0 00 042415 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT?
5903 035411 254 00 0 00 035415 JRST ..0333 ;NO - GO TO ERROR HANDLING
5904 035412 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5905 035413 316 02 0 00 042415 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT?
5906 035414 254 00 0 00 035420 JRST ..0334+1 ;YES - DONT DO ERROR HANDLING
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 17-5
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST D SEQ 0145
5907 ; EXCEPT FOR ERLOOP
5908
5909 035415 200 14 0 13 000001 ..0333: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5910 035416 200 13 0 13 042415 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT
5911 035417 ..0334: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
5912 035417 036 14 0 00 042363
5913 035420 035 00 0 00 035401 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5914 ^
5915 ^
5916 035421 200 15 0 00 042414 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
5917 TFLAG ([FLAGS],D,SPRINT)^
5918
5919 035422 200 13 0 00 035406 MOVE SCR1,FLAGL ;GET FLAGS
5920 035423 200 14 0 00 042140 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
5921 035424 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
5922 035425 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
5923 035426 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
5924 035427 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
5925 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
5926 035430 036 13 0 00 042417
5927 035431 035 00 0 00 035401 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5928 ^
5929 ^
5930 ; ************************************************
5931
5932
5933 ; ************************************************
5934
5935 035432 LOC=. ;ERROR LOOP RETURN ADDRESS
5936 035572 CNUM=CNUM+4 ;POINT TO THE TEST CASE
5937 000006 REP=REP+1 ;REPETITION COUNT
5938 600000 000000 IFG REP-4,<FLAGS=^B1100B3 ;FLAGS FOR SECOND 4 CASES
5939 377777 777777 RESULT=377777777777> ;LARGEST POSITIVE NUMBER
5940 035432 200 15 0 00 042422 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5941 035433 120 01 0 00 035572 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1
5942 035434 255 17 0 00 035435 JFCL 17,.+1 ;CLEAR PC FLAGS
5943 035435 115 01 0 00 035574 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
5944 PCSAVE^
5945 035436 264 00 0 00 035437 JSR .+1 ;STORE PC
5946 035437 FLAGL=. ;LOCATION OF PC
5947 035437 000000 000000 0 ;PC
5948 ^
5949 CHECKS (LOC,D,RESULT,RESULT)^
5950
5951 035440 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
5952 035441 312 01 0 00 042415 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT?
5953 035442 254 00 0 00 035446 JRST ..0335 ;NO - GO TO ERROR HANDLING
5954 035443 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
5955 035444 316 02 0 00 042415 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT?
5956 035445 254 00 0 00 035451 JRST ..0336+1 ;YES - DONT DO ERROR HANDLING
5957 ; EXCEPT FOR ERLOOP
5958
5959 035446 200 14 0 13 000001 ..0335: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
5960 035447 200 13 0 13 042415 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT
5961 035450 ..0336: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 17-6
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST D SEQ 0146
5962 035450 036 14 0 00 042363
5963 035451 035 00 0 00 035432 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5964 ^
5965 ^
5966 035452 200 15 0 00 042422 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
5967 TFLAG ([FLAGS],D,SPRINT)^
5968
5969 035453 200 13 0 00 035437 MOVE SCR1,FLAGL ;GET FLAGS
5970 035454 200 14 0 00 042140 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
5971 035455 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
5972 035456 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
5973 035457 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
5974 035460 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
5975 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
5976 035461 036 13 0 00 042423
5977 035462 035 00 0 00 035432 ERLOOP LOC ;IF ERROR, LOOP TO LOC
5978 ^
5979 ^
5980 ; ************************************************
5981
5982
5983 ; ************************************************
5984
5985 035463 LOC=. ;ERROR LOOP RETURN ADDRESS
5986 035576 CNUM=CNUM+4 ;POINT TO THE TEST CASE
5987 000007 REP=REP+1 ;REPETITION COUNT
5988 600000 000000 IFG REP-4,<FLAGS=^B1100B3 ;FLAGS FOR SECOND 4 CASES
5989 377777 777777 RESULT=377777777777> ;LARGEST POSITIVE NUMBER
5990 035463 200 15 0 00 042426 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
5991 035464 120 01 0 00 035576 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1
5992 035465 255 17 0 00 035466 JFCL 17,.+1 ;CLEAR PC FLAGS
5993 035466 115 01 0 00 035600 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
5994 PCSAVE^
5995 035467 264 00 0 00 035470 JSR .+1 ;STORE PC
5996 035470 FLAGL=. ;LOCATION OF PC
5997 035470 000000 000000 0 ;PC
5998 ^
5999 CHECKS (LOC,D,RESULT,RESULT)^
6000
6001 035471 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
6002 035472 312 01 0 00 042415 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT?
6003 035473 254 00 0 00 035477 JRST ..0337 ;NO - GO TO ERROR HANDLING
6004 035474 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
6005 035475 316 02 0 00 042415 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT?
6006 035476 254 00 0 00 035502 JRST ..0340+1 ;YES - DONT DO ERROR HANDLING
6007 ; EXCEPT FOR ERLOOP
6008
6009 035477 200 14 0 13 000001 ..0337: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
6010 035500 200 13 0 13 042415 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT
6011 035501 ..0340: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
6012 035501 036 14 0 00 042363
6013 035502 035 00 0 00 035463 ERLOOP LOC ;IF ERROR, LOOP TO LOC
6014 ^
6015 ^
6016 035503 200 15 0 00 042426 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 17-7
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST D SEQ 0147
6017 TFLAG ([FLAGS],D,SPRINT)^
6018
6019 035504 200 13 0 00 035470 MOVE SCR1,FLAGL ;GET FLAGS
6020 035505 200 14 0 00 042140 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
6021 035506 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
6022 035507 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
6023 035510 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
6024 035511 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
6025 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
6026 035512 036 13 0 00 042427
6027 035513 035 00 0 00 035463 ERLOOP LOC ;IF ERROR, LOOP TO LOC
6028 ^
6029 ^
6030 ; ************************************************
6031
6032
6033 ; ************************************************
6034
6035 035514 LOC=. ;ERROR LOOP RETURN ADDRESS
6036 035602 CNUM=CNUM+4 ;POINT TO THE TEST CASE
6037 000010 REP=REP+1 ;REPETITION COUNT
6038 600000 000000 IFG REP-4,<FLAGS=^B1100B3 ;FLAGS FOR SECOND 4 CASES
6039 377777 777777 RESULT=377777777777> ;LARGEST POSITIVE NUMBER
6040 035514 200 15 0 00 042432 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT
6041 035515 120 01 0 00 035602 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1
6042 035516 255 17 0 00 035517 JFCL 17,.+1 ;CLEAR PC FLAGS
6043 035517 115 01 0 00 035604 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG)
6044 PCSAVE^
6045 035520 264 00 0 00 035521 JSR .+1 ;STORE PC
6046 035521 FLAGL=. ;LOCATION OF PC
6047 035521 000000 000000 0 ;PC
6048 ^
6049 CHECKS (LOC,D,RESULT,RESULT)^
6050
6051 035522 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR
6052 035523 312 01 0 00 042415 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT?
6053 035524 254 00 0 00 035530 JRST ..0341 ;NO - GO TO ERROR HANDLING
6054 035525 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF
6055 035526 316 02 0 00 042415 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT?
6056 035527 254 00 0 00 035533 JRST ..0342+1 ;YES - DONT DO ERROR HANDLING
6057 ; EXCEPT FOR ERLOOP
6058
6059 035530 200 14 0 13 000001 ..0341: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT
6060 035531 200 13 0 13 042415 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT
6061 035532 ..0342: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL
6062 035532 036 14 0 00 042363
6063 035533 035 00 0 00 035514 ERLOOP LOC ;IF ERROR, LOOP TO LOC
6064 ^
6065 ^
6066 035534 200 15 0 00 042432 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT
6067 TFLAG ([FLAGS],D,SPRINT)^
6068
6069 035535 200 13 0 00 035521 MOVE SCR1,FLAGL ;GET FLAGS
6070 035536 200 14 0 00 042140 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS
6071 035537 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 17-8
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST D SEQ 0148
6072 035540 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
6073 035541 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0
6074 035542 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY
6075 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL
6076 035543 036 13 0 00 042433
6077 035544 035 00 0 00 035514 ERLOOP LOC ;IF ERROR, LOOP TO LOC
6078 ^
6079 ^
6080 ; ************************************************
6081
6082 035545 254 00 0 00 035606 JRST SENDD ;SKIP OVER DATA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 18
DFKCBM MAC 26-Sep-79 16:11 DSUB - TEST D SEQ 0149
6083
6084 ; **********************************************************************
6085 ; 8 SETS OF 3 DOUBLEWORDS (MINUEND,SUBTRAHEND,RESULT)
6086 ; **********************************************************************
6087
6088 035546 200000 000000 SCOND: EXP 1B1,0,^B11B1,0
6089 035547 000000 000000
6090 035550 600000 000000
6091 035551 000000 000000
6092 035552 000000 000001 EXP 1,0,1B0+1,0
6093 035553 000000 000000
6094 035554 400000 000001
6095 035555 000000 000000
6096 035556 000000 000000 EXP 0,1B1,1B0,1B1
6097 035557 200000 000000
6098 035560 400000 000000
6099 035561 200000 000000
6100 035562 000000 000000 EXP 0,1,1B0,1
6101 035563 000000 000001
6102 035564 400000 000000
6103 035565 000000 000001
6104 035566 577777 777777 EXP 577777777777,-1,1B1,0
6105 035567 777777 777777
6106 035570 200000 000000
6107 035571 000000 000000
6108 035572 777777 777776 EXP 777777777776,-1,377777777777,0
6109 035573 777777 777777
6110 035574 377777 777777
6111 035575 000000 000000
6112 035576 777777 777777 EXP -1,577777777777,377777777777,^B11B1
6113 035577 577777 777777
6114 035600 377777 777777
6115 035601 600000 000000
6116 035602 777777 777777 EXP -1,-2,377777777777,-1
6117 035603 777777 777776
6118 035604 377777 777777
6119 035605 777777 777777
6120 035606 SENDD:
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 19
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST A SEQ 0150
6121 SUBTTL DMUL - TEST A
6122 SALL
6123 042436 T=SIXBTZ<DMUL TEST>
6124 LALL
6125 ; **********************************************************************
6126 ;*DMUL - TEST A
6127 ;*
6128 ;* 0,# * 0 = 0 0 * 0,# = 0 THESE ARE GENERAL TESTS TO
6129 ;* #,0 * 0 = 0 0 * #,0 = 0 ASCERTAIN THAT THE DMUL CAN
6130 ;* #,# * 0 = 0 0 * #,# = 0 HANDLE DOUBLEWORDS. THE ACS
6131 ;* -1,-# * 0 = 0 0 * -1,-# = 0 WILL CONTAIN THE RESULT ARE
6132 ;* -#,0 * 0 = 0 0 * -#,0 = 0 FILLED WITH GARBAGE AND THE
6133 ;* -#,-# * 0 = 0 0 * -#,-# = 0 RESULT IS CHECKED TO SEE THAT
6134 ;* 0,0 * 0 = 0 DMUL PRODUCES A 4-WORD LONG
6135 ;* RESULT IN THE ACS.
6136 ; **********************************************************************
6137
6138 ; **********************************************************************
6139 ; ---------- DMUL - TEST A - # * 0 = 0 ----------
6140 ; **********************************************************************
6141
6142 MULT (A,0,NUM)^
6143
6144 ; --- MULTIPLICAND = (0,NUM)
6145 ; --- MULTIPLIER === (0,0)
6146 ; --- RESULT ======= (0,0,0,0)
6147
6148 035606 200 01 0 00 042450 ..0343: MOVE AC1,[[EXP 0,NUM,0,0,0,0,0,0],,MCAND]
6149 035607 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6150 035610 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6151 ERROR (..0343,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6152 035611 036 14 0 00 042460
6153 035612 035 00 0 00 035606 ERLOOP ..0343 ;IF ERROR, LOOP TO ..0343
6154 ^
6155 ^
6156
6157 ; **********************************************************************
6158 ; ---------- DMUL - TEST A - # * 0 = 0 ----------
6159 ; **********************************************************************
6160
6161 MULT (A,NUM)^
6162
6163 ; --- MULTIPLICAND = (NUM,0)
6164 ; --- MULTIPLIER === (0,0)
6165 ; --- RESULT ======= (0,0,0,0)
6166
6167 035613 200 01 0 00 042473 ..0344: MOVE AC1,[[EXP NUM,0,0,0,0,0,0,0],,MCAND]
6168 035614 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6169 035615 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6170 ERROR (..0344,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6171 035616 036 14 0 00 042460
6172 035617 035 00 0 00 035613 ERLOOP ..0344 ;IF ERROR, LOOP TO ..0344
6173 ^
6174 ^
6175
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 19-1
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST A SEQ 0151
6176 ; **********************************************************************
6177 ; ---------- DMUL - TEST A - # * 0 = 0 ----------
6178 ; **********************************************************************
6179
6180 MULT (A,NUM,NUM)^
6181
6182 ; --- MULTIPLICAND = (NUM,NUM)
6183 ; --- MULTIPLIER === (0,0)
6184 ; --- RESULT ======= (0,0,0,0)
6185
6186 035620 200 01 0 00 042504 ..0345: MOVE AC1,[[EXP NUM,NUM,0,0,0,0,0,0],,MCAND]
6187 035621 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6188 035622 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6189 ERROR (..0345,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6190 035623 036 14 0 00 042460
6191 035624 035 00 0 00 035620 ERLOOP ..0345 ;IF ERROR, LOOP TO ..0345
6192 ^
6193 ^
6194
6195 ; **********************************************************************
6196 ; ---------- DMUL - TEST A - # * 0 = 0 ----------
6197 ; **********************************************************************
6198
6199 MULT (A,0,0,0,NUM)^
6200
6201 ; --- MULTIPLICAND = (0,0)
6202 ; --- MULTIPLIER === (0,NUM)
6203 ; --- RESULT ======= (0,0,0,0)
6204
6205 035625 200 01 0 00 042515 ..0346: MOVE AC1,[[EXP 0,0,0,NUM,0,0,0,0],,MCAND]
6206 035626 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6207 035627 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6208 ERROR (..0346,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6209 035630 036 14 0 00 042460
6210 035631 035 00 0 00 035625 ERLOOP ..0346 ;IF ERROR, LOOP TO ..0346
6211 ^
6212 ^
6213
6214 ; **********************************************************************
6215 ; ---------- DMUL - TEST A - # * 0 = 0 ----------
6216 ; **********************************************************************
6217
6218 MULT (A,0,0,NUM)^
6219
6220 ; --- MULTIPLICAND = (0,0)
6221 ; --- MULTIPLIER === (NUM,0)
6222 ; --- RESULT ======= (0,0,0,0)
6223
6224 035632 200 01 0 00 042526 ..0347: MOVE AC1,[[EXP 0,0,NUM,0,0,0,0,0],,MCAND]
6225 035633 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6226 035634 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6227 ERROR (..0347,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6228 035635 036 14 0 00 042460
6229 035636 035 00 0 00 035632 ERLOOP ..0347 ;IF ERROR, LOOP TO ..0347
6230 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 19-2
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST A SEQ 0152
6231 ^
6232
6233 ; **********************************************************************
6234 ; ---------- DMUL - TEST A - # * 0 = 0 ----------
6235 ; **********************************************************************
6236
6237 MULT (A,0,0,NUM,NUM)^
6238
6239 ; --- MULTIPLICAND = (0,0)
6240 ; --- MULTIPLIER === (NUM,NUM)
6241 ; --- RESULT ======= (0,0,0,0)
6242
6243 035637 200 01 0 00 042537 ..0350: MOVE AC1,[[EXP 0,0,NUM,NUM,0,0,0,0],,MCAND]
6244 035640 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6245 035641 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6246 ERROR (..0350,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6247 035642 036 14 0 00 042460
6248 035643 035 00 0 00 035637 ERLOOP ..0350 ;IF ERROR, LOOP TO ..0350
6249 ^
6250 ^
6251
6252 ; **********************************************************************
6253 ; ---------- DMUL - TEST A - # * 0 = 0 ----------
6254 ; **********************************************************************
6255
6256 MULT (A,-1,-NUM)^
6257
6258 ; --- MULTIPLICAND = (-1,-NUM)
6259 ; --- MULTIPLIER === (0,0)
6260 ; --- RESULT ======= (0,0,0,0)
6261
6262 035644 200 01 0 00 042550 ..0351: MOVE AC1,[[EXP -1,-NUM,0,0,0,0,0,0],,MCAND]
6263 035645 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6264 035646 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6265 ERROR (..0351,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6266 035647 036 14 0 00 042460
6267 035650 035 00 0 00 035644 ERLOOP ..0351 ;IF ERROR, LOOP TO ..0351
6268 ^
6269 ^
6270
6271 ; **********************************************************************
6272 ; ---------- DMUL - TEST A - # * 0 = 0 ----------
6273 ; **********************************************************************
6274
6275 MULT (A,-NUM,-1)^
6276
6277 ; --- MULTIPLICAND = (-NUM,-1)
6278 ; --- MULTIPLIER === (0,0)
6279 ; --- RESULT ======= (0,0,0,0)
6280
6281 035651 200 01 0 00 042561 ..0352: MOVE AC1,[[EXP -NUM,-1,0,0,0,0,0,0],,MCAND]
6282 035652 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6283 035653 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6284 ERROR (..0352,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6285 035654 036 14 0 00 042460
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 19-3
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST A SEQ 0153
6286 035655 035 00 0 00 035651 ERLOOP ..0352 ;IF ERROR, LOOP TO ..0352
6287 ^
6288 ^
6289
6290 ; **********************************************************************
6291 ; ---------- DMUL - TEST A - # * 0 = 0 ----------
6292 ; **********************************************************************
6293
6294 MULT (A,-NUM,-NUM)^
6295
6296 ; --- MULTIPLICAND = (-NUM,-NUM)
6297 ; --- MULTIPLIER === (0,0)
6298 ; --- RESULT ======= (0,0,0,0)
6299
6300 035656 200 01 0 00 042572 ..0353: MOVE AC1,[[EXP -NUM,-NUM,0,0,0,0,0,0],,MCAND]
6301 035657 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6302 035660 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6303 ERROR (..0353,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6304 035661 036 14 0 00 042460
6305 035662 035 00 0 00 035656 ERLOOP ..0353 ;IF ERROR, LOOP TO ..0353
6306 ^
6307 ^
6308
6309 ; **********************************************************************
6310 ; ---------- DMUL - TEST A - # * 0 = 0 ----------
6311 ; **********************************************************************
6312
6313 MULT (A,0,0,-1,-NUM)^
6314
6315 ; --- MULTIPLICAND = (0,0)
6316 ; --- MULTIPLIER === (-1,-NUM)
6317 ; --- RESULT ======= (0,0,0,0)
6318
6319 035663 200 01 0 00 042603 ..0354: MOVE AC1,[[EXP 0,0,-1,-NUM,0,0,0,0],,MCAND]
6320 035664 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6321 035665 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6322 ERROR (..0354,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6323 035666 036 14 0 00 042460
6324 035667 035 00 0 00 035663 ERLOOP ..0354 ;IF ERROR, LOOP TO ..0354
6325 ^
6326 ^
6327
6328 ; **********************************************************************
6329 ; ---------- DMUL - TEST A - # * 0 = 0 ----------
6330 ; **********************************************************************
6331
6332 MULT (A,0,0,-NUM,-1)^
6333
6334 ; --- MULTIPLICAND = (0,0)
6335 ; --- MULTIPLIER === (-NUM,-1)
6336 ; --- RESULT ======= (0,0,0,0)
6337
6338 035670 200 01 0 00 042614 ..0355: MOVE AC1,[[EXP 0,0,-NUM,-1,0,0,0,0],,MCAND]
6339 035671 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6340 035672 260 17 0 00 040725 GO MSUBR ;GO DO TEST
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 19-4
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST A SEQ 0154
6341 ERROR (..0355,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6342 035673 036 14 0 00 042460
6343 035674 035 00 0 00 035670 ERLOOP ..0355 ;IF ERROR, LOOP TO ..0355
6344 ^
6345 ^
6346
6347 ; **********************************************************************
6348 ; ---------- DMUL - TEST A - # * 0 = 0 ----------
6349 ; **********************************************************************
6350
6351 MULT (A,0,0,-NUM,-NUM)^
6352
6353 ; --- MULTIPLICAND = (0,0)
6354 ; --- MULTIPLIER === (-NUM,-NUM)
6355 ; --- RESULT ======= (0,0,0,0)
6356
6357 035675 200 01 0 00 042625 ..0356: MOVE AC1,[[EXP 0,0,-NUM,-NUM,0,0,0,0],,MCAND]
6358 035676 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6359 035677 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6360 ERROR (..0356,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6361 035700 036 14 0 00 042460
6362 035701 035 00 0 00 035675 ERLOOP ..0356 ;IF ERROR, LOOP TO ..0356
6363 ^
6364 ^
6365
6366 ; **********************************************************************
6367 ; ---------- DMUL - TEST A - # * 0 = 0 ----------
6368 ; **********************************************************************
6369
6370 MULT^
6371
6372 ; --- MULTIPLICAND = (0,0)
6373 ; --- MULTIPLIER === (0,0)
6374 ; --- RESULT ======= (0,0,0,0)
6375
6376 035702 200 01 0 00 042636 ..0357: MOVE AC1,[[EXP 0,0,0,0,0,0,0,0],,MCAND]
6377 035703 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6378 035704 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6379 ERROR (..0357,14,SCR1,SCR2,,TEST - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6380 035705 036 14 0 00 042646
6381 035706 035 00 0 00 035702 ERLOOP ..0357 ;IF ERROR, LOOP TO ..0357
6382 ^
6383 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 20
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST B SEQ 0155
6384 SUBTTL DMUL - TEST B
6385
6386 ; **********************************************************************
6387 ;*DMUL - TEST B
6388 ;*
6389 ;* 0,# * 1 = 0,# THESE TEST THE DMUL ON A SLIGHTLY
6390 ;* #,0 * 1 = #,0 STEEPER GRADIENT. THIS WILL VERIFY
6391 ;* #,# * 1 = #,# THAT THE DMUL HANDLES DOUBLEWORDS AND
6392 ;* -1,-# * 1 = -1,-# A NON-ZERO MULTIPLIER. THESE TESTS ARE
6393 ;* -#,-1 * 1 = -#,-1 REPEATED WITH THE MULTIPLICAND AND THE
6394 ;* -#,-# * 1 = -#,-# MULTIPLIER REVERSED.
6395 ; **********************************************************************
6396
6397 ; **********************************************************************
6398 ; ---------- DMUL - TEST B - # * 1 = 1 ----------
6399 ; **********************************************************************
6400
6401 MULT (B,0,NUM,0,1,0,0,0,NUM)^
6402
6403 ; --- MULTIPLICAND = (0,NUM)
6404 ; --- MULTIPLIER === (0,1)
6405 ; --- RESULT ======= (0,0,0,NUM)
6406
6407 035707 200 01 0 00 042661 ..0360: MOVE AC1,[[EXP 0,NUM,0,1,0,0,0,NUM],,MCAND]
6408 035710 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6409 035711 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6410 ERROR (..0360,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6411 035712 036 14 0 00 042671
6412 035713 035 00 0 00 035707 ERLOOP ..0360 ;IF ERROR, LOOP TO ..0360
6413 ^
6414 ^
6415
6416 ; **********************************************************************
6417 ; ---------- DMUL - TEST B - # * 1 = 1 ----------
6418 ; **********************************************************************
6419
6420 MULT (B,NUM,0,0,1,0,0,NUM)^
6421
6422 ; --- MULTIPLICAND = (NUM,0)
6423 ; --- MULTIPLIER === (0,1)
6424 ; --- RESULT ======= (0,0,NUM,0)
6425
6426 035714 200 01 0 00 042704 ..0361: MOVE AC1,[[EXP NUM,0,0,1,0,0,NUM,0],,MCAND]
6427 035715 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6428 035716 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6429 ERROR (..0361,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6430 035717 036 14 0 00 042671
6431 035720 035 00 0 00 035714 ERLOOP ..0361 ;IF ERROR, LOOP TO ..0361
6432 ^
6433 ^
6434
6435 ; **********************************************************************
6436 ; ---------- DMUL - TEST B - # * 1 = 1 ----------
6437 ; **********************************************************************
6438
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 20-1
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST B SEQ 0156
6439 MULT (B,NUM,NUM,0,1,0,0,NUM,NUM)^
6440
6441 ; --- MULTIPLICAND = (NUM,NUM)
6442 ; --- MULTIPLIER === (0,1)
6443 ; --- RESULT ======= (0,0,NUM,NUM)
6444
6445 035721 200 01 0 00 042715 ..0362: MOVE AC1,[[EXP NUM,NUM,0,1,0,0,NUM,NUM],,MCAND]
6446 035722 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6447 035723 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6448 ERROR (..0362,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6449 035724 036 14 0 00 042671
6450 035725 035 00 0 00 035721 ERLOOP ..0362 ;IF ERROR, LOOP TO ..0362
6451 ^
6452 ^
6453
6454 ; **********************************************************************
6455 ; ---------- DMUL - TEST B - # * 1 = 1 ----------
6456 ; **********************************************************************
6457
6458 MULT (B,0,1,0,NUM,0,0,0,NUM)^
6459
6460 ; --- MULTIPLICAND = (0,1)
6461 ; --- MULTIPLIER === (0,NUM)
6462 ; --- RESULT ======= (0,0,0,NUM)
6463
6464 035726 200 01 0 00 042726 ..0363: MOVE AC1,[[EXP 0,1,0,NUM,0,0,0,NUM],,MCAND]
6465 035727 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6466 035730 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6467 ERROR (..0363,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6468 035731 036 14 0 00 042671
6469 035732 035 00 0 00 035726 ERLOOP ..0363 ;IF ERROR, LOOP TO ..0363
6470 ^
6471 ^
6472
6473 ; **********************************************************************
6474 ; ---------- DMUL - TEST B - # * 1 = 1 ----------
6475 ; **********************************************************************
6476
6477 MULT (B,0,1,NUM,0,0,0,NUM)^
6478
6479 ; --- MULTIPLICAND = (0,1)
6480 ; --- MULTIPLIER === (NUM,0)
6481 ; --- RESULT ======= (0,0,NUM,0)
6482
6483 035733 200 01 0 00 042737 ..0364: MOVE AC1,[[EXP 0,1,NUM,0,0,0,NUM,0],,MCAND]
6484 035734 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6485 035735 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6486 ERROR (..0364,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6487 035736 036 14 0 00 042671
6488 035737 035 00 0 00 035733 ERLOOP ..0364 ;IF ERROR, LOOP TO ..0364
6489 ^
6490 ^
6491
6492 ; **********************************************************************
6493 ; ---------- DMUL - TEST B - # * 1 = 1 ----------
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 20-2
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST B SEQ 0157
6494 ; **********************************************************************
6495
6496 MULT (B,0,1,NUM,NUM,0,0,NUM,NUM)^
6497
6498 ; --- MULTIPLICAND = (0,1)
6499 ; --- MULTIPLIER === (NUM,NUM)
6500 ; --- RESULT ======= (0,0,NUM,NUM)
6501
6502 035740 200 01 0 00 042750 ..0365: MOVE AC1,[[EXP 0,1,NUM,NUM,0,0,NUM,NUM],,MCAND]
6503 035741 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6504 035742 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6505 ERROR (..0365,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6506 035743 036 14 0 00 042671
6507 035744 035 00 0 00 035740 ERLOOP ..0365 ;IF ERROR, LOOP TO ..0365
6508 ^
6509 ^
6510
6511 ; **********************************************************************
6512 ; ---------- DMUL - TEST B - # * 1 = 1 ----------
6513 ; **********************************************************************
6514
6515 MULT (B,-1,-NUM,0,1,-1,-1,-1,-NUM)^
6516
6517 ; --- MULTIPLICAND = (-1,-NUM)
6518 ; --- MULTIPLIER === (0,1)
6519 ; --- RESULT ======= (-1,-1,-1,-NUM)
6520
6521 035745 200 01 0 00 042761 ..0366: MOVE AC1,[[EXP -1,-NUM,0,1,-1,-1,-1,-NUM],,MCAND]
6522 035746 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6523 035747 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6524 ERROR (..0366,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6525 035750 036 14 0 00 042671
6526 035751 035 00 0 00 035745 ERLOOP ..0366 ;IF ERROR, LOOP TO ..0366
6527 ^
6528 ^
6529
6530 ; **********************************************************************
6531 ; ---------- DMUL - TEST B - # * 1 = 1 ----------
6532 ; **********************************************************************
6533
6534 MULT (B,-NUM,-1,0,1,-1,-1,-NUM,-1)^
6535
6536 ; --- MULTIPLICAND = (-NUM,-1)
6537 ; --- MULTIPLIER === (0,1)
6538 ; --- RESULT ======= (-1,-1,-NUM,-1)
6539
6540 035752 200 01 0 00 042772 ..0367: MOVE AC1,[[EXP -NUM,-1,0,1,-1,-1,-NUM,-1],,MCAND]
6541 035753 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6542 035754 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6543 ERROR (..0367,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6544 035755 036 14 0 00 042671
6545 035756 035 00 0 00 035752 ERLOOP ..0367 ;IF ERROR, LOOP TO ..0367
6546 ^
6547 ^
6548
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 20-3
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST B SEQ 0158
6549 ; **********************************************************************
6550 ; ---------- DMUL - TEST B - # * 1 = 1 ----------
6551 ; **********************************************************************
6552
6553 MULT (B,-NUM,-NUM,0,1,-1,-1,-NUM,-NUM)^
6554
6555 ; --- MULTIPLICAND = (-NUM,-NUM)
6556 ; --- MULTIPLIER === (0,1)
6557 ; --- RESULT ======= (-1,-1,-NUM,-NUM)
6558
6559 035757 200 01 0 00 043003 ..0370: MOVE AC1,[[EXP -NUM,-NUM,0,1,-1,-1,-NUM,-NUM],,MCAND]
6560 035760 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6561 035761 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6562 ERROR (..0370,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6563 035762 036 14 0 00 042671
6564 035763 035 00 0 00 035757 ERLOOP ..0370 ;IF ERROR, LOOP TO ..0370
6565 ^
6566 ^
6567
6568 ; **********************************************************************
6569 ; ---------- DMUL - TEST B - # * 1 = 1 ----------
6570 ; **********************************************************************
6571
6572 MULT (B,0,1,-1,-NUM,-1,-1,-1,-NUM)^
6573
6574 ; --- MULTIPLICAND = (0,1)
6575 ; --- MULTIPLIER === (-1,-NUM)
6576 ; --- RESULT ======= (-1,-1,-1,-NUM)
6577
6578 035764 200 01 0 00 043014 ..0371: MOVE AC1,[[EXP 0,1,-1,-NUM,-1,-1,-1,-NUM],,MCAND]
6579 035765 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6580 035766 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6581 ERROR (..0371,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6582 035767 036 14 0 00 042671
6583 035770 035 00 0 00 035764 ERLOOP ..0371 ;IF ERROR, LOOP TO ..0371
6584 ^
6585 ^
6586
6587 ; **********************************************************************
6588 ; ---------- DMUL - TEST B - # * 1 = 1 ----------
6589 ; **********************************************************************
6590
6591 MULT (B,0,1,-NUM,-1,-1,-1,-NUM,-1)^
6592
6593 ; --- MULTIPLICAND = (0,1)
6594 ; --- MULTIPLIER === (-NUM,-1)
6595 ; --- RESULT ======= (-1,-1,-NUM,-1)
6596
6597 035771 200 01 0 00 043025 ..0372: MOVE AC1,[[EXP 0,1,-NUM,-1,-1,-1,-NUM,-1],,MCAND]
6598 035772 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6599 035773 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6600 ERROR (..0372,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6601 035774 036 14 0 00 042671
6602 035775 035 00 0 00 035771 ERLOOP ..0372 ;IF ERROR, LOOP TO ..0372
6603 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 20-4
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST B SEQ 0159
6604 ^
6605
6606 ; **********************************************************************
6607 ; ---------- DMUL - TEST B - # * 1 = 1 ----------
6608 ; **********************************************************************
6609
6610 MULT (B,0,1,-NUM,-NUM,-1,-1,-NUM,-NUM)^
6611
6612 ; --- MULTIPLICAND = (0,1)
6613 ; --- MULTIPLIER === (-NUM,-NUM)
6614 ; --- RESULT ======= (-1,-1,-NUM,-NUM)
6615
6616 035776 200 01 0 00 043036 ..0373: MOVE AC1,[[EXP 0,1,-NUM,-NUM,-1,-1,-NUM,-NUM],,MCAND]
6617 035777 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6618 036000 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6619 ERROR (..0373,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6620 036001 036 14 0 00 042671
6621 036002 035 00 0 00 035776 ERLOOP ..0373 ;IF ERROR, LOOP TO ..0373
6622 ^
6623 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 21
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST C SEQ 0160
6624 SUBTTL DMUL - TEST C
6625
6626 ; **********************************************************************
6627 ;*DMUL - TEST C
6628 ;*
6629 ;* 0,1777.. * 2 THESE TESTS VERIFY THAT BITS ARE
6630 ;* 0,3777.. * 2 SHIFTED ACROSS WORD BOUNDARIES. A WORD
6631 ;* 1777..,3777.. * 2 OF ONES IS MULTIPLIED BY A FLOATING 1
6632 ;* 3777..,3777.. * 2 WHICH WILL CAUSE A SHIFT ACROSS WORD
6633 ;* 0,3777.. * 1,0 BOUNDARIES OR NOT. THE TEST VERIFIES
6634 ;* 1,3777.. * 1,0 THAT THE SHIFT IS DONE PROPERLY FOR
6635 ;* 3777..,3777.. * 1,0 BOUNDARY CONDITIONS.
6636 ;* 0,1777.. * 2,0 IN EACH TEST THE PC FLAGS ARE TESTED
6637 ;* 0,3777.. * 2,0 SINCE THERE ARE NO OVERFLOW CONDITIONS
6638 ;* 3777..,3777.. * 2,0 THE LEFTMOST BIT OF THE PC SHOULD BE
6639 ;* 0 (NO AROV).
6640 ;* THESE TESTS ARE REPEATED WITH MULT-
6641 ;* PLICAND AND MULTIPLIER REVERSED.
6642 ; **********************************************************************
6643
6644 ; **********************************************************************
6645 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
6646 ; **********************************************************************
6647
6648 MULTF (C,0,177777777777,0,2,0,0,0,377777777776)^
6649
6650 ; --- MULTIPLICAND = (0,177777777777)
6651 ; --- MULTIPLIER === (0,2)
6652 ; --- RESULT ======= (0,0,0,377777777776)
6653
6654 036003 200 01 0 00 043047 ..0374: MOVE AC1,[[EXP 0,177777777777,0,2,0,0,0,377777777776],,MCAND]
6655 036004 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6656 036005 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6657 ERROR (..0374,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6658 036006 036 14 0 00 043057
6659 036007 035 00 0 00 036003 ERLOOP ..0374 ;IF ERROR, LOOP TO ..0374
6660 ^
6661
6662 036010 200 14 0 00 040733 ..0375: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
6663 036011 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
6664 ERROR (..0374,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
6665 LL
6666 036012 036 13 0 00 043071
6667 036013 035 00 0 00 036003 ERLOOP ..0374 ;IF ERROR, LOOP TO ..0374
6668 ^
6669 ^
6670
6671 ; **********************************************************************
6672 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
6673 ; **********************************************************************
6674
6675 MULTF (C,0,377777777777,0,2,0,0,1,377777777776)^
6676
6677 ; --- MULTIPLICAND = (0,377777777777)
6678 ; --- MULTIPLIER === (0,2)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 21-1
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST C SEQ 0161
6679 ; --- RESULT ======= (0,0,1,377777777776)
6680
6681 036014 200 01 0 00 043104 ..0376: MOVE AC1,[[EXP 0,377777777777,0,2,0,0,1,377777777776],,MCAND]
6682 036015 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6683 036016 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6684 ERROR (..0376,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6685 036017 036 14 0 00 043057
6686 036020 035 00 0 00 036014 ERLOOP ..0376 ;IF ERROR, LOOP TO ..0376
6687 ^
6688
6689 036021 200 14 0 00 040733 ..0377: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
6690 036022 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
6691 ERROR (..0376,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
6692 LL
6693 036023 036 13 0 00 043071
6694 036024 035 00 0 00 036014 ERLOOP ..0376 ;IF ERROR, LOOP TO ..0376
6695 ^
6696 ^
6697
6698 ; **********************************************************************
6699 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
6700 ; **********************************************************************
6701
6702 MULTF (C,177777777777,377777777777,0,2,0,0,377777777777,377777777776)^
6703
6704 ; --- MULTIPLICAND = (177777777777,377777777777)
6705 ; --- MULTIPLIER === (0,2)
6706 ; --- RESULT ======= (0,0,377777777777,377777777776)
6707
6708 ..0400: MOVE AC1,[[EXP 177777777777,377777777777,0,2,0,0,377777777777,377777777776],,MCA
6709 036025 200 01 0 00 043115 ND]
6710 036026 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6711 036027 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6712 ERROR (..0400,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6713 036030 036 14 0 00 043057
6714 036031 035 00 0 00 036025 ERLOOP ..0400 ;IF ERROR, LOOP TO ..0400
6715 ^
6716
6717 036032 200 14 0 00 040733 ..0401: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
6718 036033 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
6719 ERROR (..0400,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
6720 LL
6721 036034 036 13 0 00 043071
6722 036035 035 00 0 00 036025 ERLOOP ..0400 ;IF ERROR, LOOP TO ..0400
6723 ^
6724 ^
6725
6726 ; **********************************************************************
6727 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
6728 ; **********************************************************************
6729
6730 MULTF (C,377777777777,377777777777,0,2,0,1,377777777777,377777777776)^
6731
6732 ; --- MULTIPLICAND = (377777777777,377777777777)
6733 ; --- MULTIPLIER === (0,2)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 21-2
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST C SEQ 0162
6734 ; --- RESULT ======= (0,1,377777777777,377777777776)
6735
6736 ..0402: MOVE AC1,[[EXP 377777777777,377777777777,0,2,0,1,377777777777,377777777776],,MCA
6737 036036 200 01 0 00 043126 ND]
6738 036037 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6739 036040 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6740 ERROR (..0402,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6741 036041 036 14 0 00 043057
6742 036042 035 00 0 00 036036 ERLOOP ..0402 ;IF ERROR, LOOP TO ..0402
6743 ^
6744
6745 036043 200 14 0 00 040733 ..0403: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
6746 036044 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
6747 ERROR (..0402,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
6748 LL
6749 036045 036 13 0 00 043071
6750 036046 035 00 0 00 036036 ERLOOP ..0402 ;IF ERROR, LOOP TO ..0402
6751 ^
6752 ^
6753
6754 ; **********************************************************************
6755 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
6756 ; **********************************************************************
6757
6758 MULTF (C,0,377777777777,1,0,0,0,377777777777)^
6759
6760 ; --- MULTIPLICAND = (0,377777777777)
6761 ; --- MULTIPLIER === (1,0)
6762 ; --- RESULT ======= (0,0,377777777777,0)
6763
6764 036047 200 01 0 00 043137 ..0404: MOVE AC1,[[EXP 0,377777777777,1,0,0,0,377777777777,0],,MCAND]
6765 036050 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6766 036051 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6767 ERROR (..0404,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6768 036052 036 14 0 00 043057
6769 036053 035 00 0 00 036047 ERLOOP ..0404 ;IF ERROR, LOOP TO ..0404
6770 ^
6771
6772 036054 200 14 0 00 040733 ..0405: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
6773 036055 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
6774 ERROR (..0404,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
6775 LL
6776 036056 036 13 0 00 043071
6777 036057 035 00 0 00 036047 ERLOOP ..0404 ;IF ERROR, LOOP TO ..0404
6778 ^
6779 ^
6780
6781 ; **********************************************************************
6782 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
6783 ; **********************************************************************
6784
6785 MULTF (C,1,377777777777,1,0,0,1,377777777777)^
6786
6787 ; --- MULTIPLICAND = (1,377777777777)
6788 ; --- MULTIPLIER === (1,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 21-3
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST C SEQ 0163
6789 ; --- RESULT ======= (0,1,377777777777,0)
6790
6791 036060 200 01 0 00 043150 ..0406: MOVE AC1,[[EXP 1,377777777777,1,0,0,1,377777777777,0],,MCAND]
6792 036061 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6793 036062 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6794 ERROR (..0406,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6795 036063 036 14 0 00 043057
6796 036064 035 00 0 00 036060 ERLOOP ..0406 ;IF ERROR, LOOP TO ..0406
6797 ^
6798
6799 036065 200 14 0 00 040733 ..0407: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
6800 036066 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
6801 ERROR (..0406,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
6802 LL
6803 036067 036 13 0 00 043071
6804 036070 035 00 0 00 036060 ERLOOP ..0406 ;IF ERROR, LOOP TO ..0406
6805 ^
6806 ^
6807
6808 ; **********************************************************************
6809 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
6810 ; **********************************************************************
6811
6812 MULTF (C,377777777777,377777777777,1,0,0,377777777777,377777777777)^
6813
6814 ; --- MULTIPLICAND = (377777777777,377777777777)
6815 ; --- MULTIPLIER === (1,0)
6816 ; --- RESULT ======= (0,377777777777,377777777777,0)
6817
6818 ..0410: MOVE AC1,[[EXP 377777777777,377777777777,1,0,0,377777777777,377777777777,0],,MCA
6819 036071 200 01 0 00 043161 ND]
6820 036072 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6821 036073 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6822 ERROR (..0410,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6823 036074 036 14 0 00 043057
6824 036075 035 00 0 00 036071 ERLOOP ..0410 ;IF ERROR, LOOP TO ..0410
6825 ^
6826
6827 036076 200 14 0 00 040733 ..0411: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
6828 036077 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
6829 ERROR (..0410,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
6830 LL
6831 036100 036 13 0 00 043071
6832 036101 035 00 0 00 036071 ERLOOP ..0410 ;IF ERROR, LOOP TO ..0410
6833 ^
6834 ^
6835
6836 ; **********************************************************************
6837 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
6838 ; **********************************************************************
6839
6840 MULTF (C,0,177777777777,2,0,0,0,377777777776)^
6841
6842 ; --- MULTIPLICAND = (0,177777777777)
6843 ; --- MULTIPLIER === (2,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 21-4
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST C SEQ 0164
6844 ; --- RESULT ======= (0,0,377777777776,0)
6845
6846 036102 200 01 0 00 043172 ..0412: MOVE AC1,[[EXP 0,177777777777,2,0,0,0,377777777776,0],,MCAND]
6847 036103 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6848 036104 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6849 ERROR (..0412,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6850 036105 036 14 0 00 043057
6851 036106 035 00 0 00 036102 ERLOOP ..0412 ;IF ERROR, LOOP TO ..0412
6852 ^
6853
6854 036107 200 14 0 00 040733 ..0413: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
6855 036110 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
6856 ERROR (..0412,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
6857 LL
6858 036111 036 13 0 00 043071
6859 036112 035 00 0 00 036102 ERLOOP ..0412 ;IF ERROR, LOOP TO ..0412
6860 ^
6861 ^
6862
6863 ; **********************************************************************
6864 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
6865 ; **********************************************************************
6866
6867 MULTF (C,0,377777777777,2,0,0,1,377777777776)^
6868
6869 ; --- MULTIPLICAND = (0,377777777777)
6870 ; --- MULTIPLIER === (2,0)
6871 ; --- RESULT ======= (0,1,377777777776,0)
6872
6873 036113 200 01 0 00 043203 ..0414: MOVE AC1,[[EXP 0,377777777777,2,0,0,1,377777777776,0],,MCAND]
6874 036114 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6875 036115 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6876 ERROR (..0414,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6877 036116 036 14 0 00 043057
6878 036117 035 00 0 00 036113 ERLOOP ..0414 ;IF ERROR, LOOP TO ..0414
6879 ^
6880
6881 036120 200 14 0 00 040733 ..0415: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
6882 036121 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
6883 ERROR (..0414,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
6884 LL
6885 036122 036 13 0 00 043071
6886 036123 035 00 0 00 036113 ERLOOP ..0414 ;IF ERROR, LOOP TO ..0414
6887 ^
6888 ^
6889
6890 ; **********************************************************************
6891 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
6892 ; **********************************************************************
6893
6894 MULTF (C,377777777777,377777777777,2,0,1,377777777777,377777777776)^
6895
6896 ; --- MULTIPLICAND = (377777777777,377777777777)
6897 ; --- MULTIPLIER === (2,0)
6898 ; --- RESULT ======= (1,377777777777,377777777776,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 21-5
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST C SEQ 0165
6899
6900 ..0416: MOVE AC1,[[EXP 377777777777,377777777777,2,0,1,377777777777,377777777776,0],,MCA
6901 036124 200 01 0 00 043214 ND]
6902 036125 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6903 036126 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6904 ERROR (..0416,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6905 036127 036 14 0 00 043057
6906 036130 035 00 0 00 036124 ERLOOP ..0416 ;IF ERROR, LOOP TO ..0416
6907 ^
6908
6909 036131 200 14 0 00 040733 ..0417: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
6910 036132 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
6911 ERROR (..0416,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
6912 LL
6913 036133 036 13 0 00 043071
6914 036134 035 00 0 00 036124 ERLOOP ..0416 ;IF ERROR, LOOP TO ..0416
6915 ^
6916 ^
6917
6918 ; **********************************************************************
6919 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
6920 ; **********************************************************************
6921
6922 MULTF (C,0,2,0,177777777777,0,0,0,377777777776)^
6923
6924 ; --- MULTIPLICAND = (0,2)
6925 ; --- MULTIPLIER === (0,177777777777)
6926 ; --- RESULT ======= (0,0,0,377777777776)
6927
6928 036135 200 01 0 00 043225 ..0420: MOVE AC1,[[EXP 0,2,0,177777777777,0,0,0,377777777776],,MCAND]
6929 036136 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6930 036137 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6931 ERROR (..0420,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6932 036140 036 14 0 00 043057
6933 036141 035 00 0 00 036135 ERLOOP ..0420 ;IF ERROR, LOOP TO ..0420
6934 ^
6935
6936 036142 200 14 0 00 040733 ..0421: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
6937 036143 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
6938 ERROR (..0420,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
6939 LL
6940 036144 036 13 0 00 043071
6941 036145 035 00 0 00 036135 ERLOOP ..0420 ;IF ERROR, LOOP TO ..0420
6942 ^
6943 ^
6944
6945 ; **********************************************************************
6946 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
6947 ; **********************************************************************
6948
6949 MULTF (C,0,2,0,377777777777,0,0,1,377777777776)^
6950
6951 ; --- MULTIPLICAND = (0,2)
6952 ; --- MULTIPLIER === (0,377777777777)
6953 ; --- RESULT ======= (0,0,1,377777777776)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 21-6
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST C SEQ 0166
6954
6955 036146 200 01 0 00 043236 ..0422: MOVE AC1,[[EXP 0,2,0,377777777777,0,0,1,377777777776],,MCAND]
6956 036147 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6957 036150 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6958 ERROR (..0422,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6959 036151 036 14 0 00 043057
6960 036152 035 00 0 00 036146 ERLOOP ..0422 ;IF ERROR, LOOP TO ..0422
6961 ^
6962
6963 036153 200 14 0 00 040733 ..0423: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
6964 036154 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
6965 ERROR (..0422,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
6966 LL
6967 036155 036 13 0 00 043071
6968 036156 035 00 0 00 036146 ERLOOP ..0422 ;IF ERROR, LOOP TO ..0422
6969 ^
6970 ^
6971
6972 ; **********************************************************************
6973 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
6974 ; **********************************************************************
6975
6976 MULTF (C,0,2,177777777777,377777777777,0,0,377777777777,377777777776)^
6977
6978 ; --- MULTIPLICAND = (0,2)
6979 ; --- MULTIPLIER === (177777777777,377777777777)
6980 ; --- RESULT ======= (0,0,377777777777,377777777776)
6981
6982 ..0424: MOVE AC1,[[EXP 0,2,177777777777,377777777777,0,0,377777777777,377777777776],,MCA
6983 036157 200 01 0 00 043247 ND]
6984 036160 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
6985 036161 260 17 0 00 040725 GO MSUBR ;GO DO TEST
6986 ERROR (..0424,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
6987 036162 036 14 0 00 043057
6988 036163 035 00 0 00 036157 ERLOOP ..0424 ;IF ERROR, LOOP TO ..0424
6989 ^
6990
6991 036164 200 14 0 00 040733 ..0425: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
6992 036165 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
6993 ERROR (..0424,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
6994 LL
6995 036166 036 13 0 00 043071
6996 036167 035 00 0 00 036157 ERLOOP ..0424 ;IF ERROR, LOOP TO ..0424
6997 ^
6998 ^
6999
7000 ; **********************************************************************
7001 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
7002 ; **********************************************************************
7003
7004 MULTF (C,0,2,377777777777,377777777777,0,1,377777777777,377777777776)^
7005
7006 ; --- MULTIPLICAND = (0,2)
7007 ; --- MULTIPLIER === (377777777777,377777777777)
7008 ; --- RESULT ======= (0,1,377777777777,377777777776)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 21-7
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST C SEQ 0167
7009
7010 ..0426: MOVE AC1,[[EXP 0,2,377777777777,377777777777,0,1,377777777777,377777777776],,MCA
7011 036170 200 01 0 00 043260 ND]
7012 036171 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7013 036172 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7014 ERROR (..0426,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7015 036173 036 14 0 00 043057
7016 036174 035 00 0 00 036170 ERLOOP ..0426 ;IF ERROR, LOOP TO ..0426
7017 ^
7018
7019 036175 200 14 0 00 040733 ..0427: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7020 036176 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7021 ERROR (..0426,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7022 LL
7023 036177 036 13 0 00 043071
7024 036200 035 00 0 00 036170 ERLOOP ..0426 ;IF ERROR, LOOP TO ..0426
7025 ^
7026 ^
7027
7028 ; **********************************************************************
7029 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
7030 ; **********************************************************************
7031
7032 MULTF (C,1,0,0,377777777777,0,0,377777777777)^
7033
7034 ; --- MULTIPLICAND = (1,0)
7035 ; --- MULTIPLIER === (0,377777777777)
7036 ; --- RESULT ======= (0,0,377777777777,0)
7037
7038 036201 200 01 0 00 043271 ..0430: MOVE AC1,[[EXP 1,0,0,377777777777,0,0,377777777777,0],,MCAND]
7039 036202 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7040 036203 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7041 ERROR (..0430,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7042 036204 036 14 0 00 043057
7043 036205 035 00 0 00 036201 ERLOOP ..0430 ;IF ERROR, LOOP TO ..0430
7044 ^
7045
7046 036206 200 14 0 00 040733 ..0431: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7047 036207 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7048 ERROR (..0430,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7049 LL
7050 036210 036 13 0 00 043071
7051 036211 035 00 0 00 036201 ERLOOP ..0430 ;IF ERROR, LOOP TO ..0430
7052 ^
7053 ^
7054
7055 ; **********************************************************************
7056 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
7057 ; **********************************************************************
7058
7059 MULTF (C,1,0,1,377777777777,0,1,377777777777)^
7060
7061 ; --- MULTIPLICAND = (1,0)
7062 ; --- MULTIPLIER === (1,377777777777)
7063 ; --- RESULT ======= (0,1,377777777777,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 21-8
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST C SEQ 0168
7064
7065 036212 200 01 0 00 043302 ..0432: MOVE AC1,[[EXP 1,0,1,377777777777,0,1,377777777777,0],,MCAND]
7066 036213 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7067 036214 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7068 ERROR (..0432,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7069 036215 036 14 0 00 043057
7070 036216 035 00 0 00 036212 ERLOOP ..0432 ;IF ERROR, LOOP TO ..0432
7071 ^
7072
7073 036217 200 14 0 00 040733 ..0433: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7074 036220 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7075 ERROR (..0432,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7076 LL
7077 036221 036 13 0 00 043071
7078 036222 035 00 0 00 036212 ERLOOP ..0432 ;IF ERROR, LOOP TO ..0432
7079 ^
7080 ^
7081
7082 ; **********************************************************************
7083 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
7084 ; **********************************************************************
7085
7086 MULTF (C,1,0,377777777777,377777777777,0,377777777777,377777777777)^
7087
7088 ; --- MULTIPLICAND = (1,0)
7089 ; --- MULTIPLIER === (377777777777,377777777777)
7090 ; --- RESULT ======= (0,377777777777,377777777777,0)
7091
7092 ..0434: MOVE AC1,[[EXP 1,0,377777777777,377777777777,0,377777777777,377777777777,0],,MCA
7093 036223 200 01 0 00 043313 ND]
7094 036224 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7095 036225 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7096 ERROR (..0434,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7097 036226 036 14 0 00 043057
7098 036227 035 00 0 00 036223 ERLOOP ..0434 ;IF ERROR, LOOP TO ..0434
7099 ^
7100
7101 036230 200 14 0 00 040733 ..0435: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7102 036231 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7103 ERROR (..0434,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7104 LL
7105 036232 036 13 0 00 043071
7106 036233 035 00 0 00 036223 ERLOOP ..0434 ;IF ERROR, LOOP TO ..0434
7107 ^
7108 ^
7109
7110 ; **********************************************************************
7111 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
7112 ; **********************************************************************
7113
7114 MULTF (C,2,0,0,177777777777,0,0,377777777776)^
7115
7116 ; --- MULTIPLICAND = (2,0)
7117 ; --- MULTIPLIER === (0,177777777777)
7118 ; --- RESULT ======= (0,0,377777777776,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 21-9
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST C SEQ 0169
7119
7120 036234 200 01 0 00 043324 ..0436: MOVE AC1,[[EXP 2,0,0,177777777777,0,0,377777777776,0],,MCAND]
7121 036235 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7122 036236 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7123 ERROR (..0436,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7124 036237 036 14 0 00 043057
7125 036240 035 00 0 00 036234 ERLOOP ..0436 ;IF ERROR, LOOP TO ..0436
7126 ^
7127
7128 036241 200 14 0 00 040733 ..0437: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7129 036242 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7130 ERROR (..0436,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7131 LL
7132 036243 036 13 0 00 043071
7133 036244 035 00 0 00 036234 ERLOOP ..0436 ;IF ERROR, LOOP TO ..0436
7134 ^
7135 ^
7136
7137 ; **********************************************************************
7138 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ----------
7139 ; **********************************************************************
7140
7141 MULTF (C,2,0,0,377777777777,0,1,377777777776)^
7142
7143 ; --- MULTIPLICAND = (2,0)
7144 ; --- MULTIPLIER === (0,377777777777)
7145 ; --- RESULT ======= (0,1,377777777776,0)
7146
7147 036245 200 01 0 00 043335 ..0440: MOVE AC1,[[EXP 2,0,0,377777777777,0,1,377777777776,0],,MCAND]
7148 036246 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7149 036247 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7150 ERROR (..0440,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7151 036250 036 14 0 00 043057
7152 036251 035 00 0 00 036245 ERLOOP ..0440 ;IF ERROR, LOOP TO ..0440
7153 ^
7154
7155 036252 200 14 0 00 040733 ..0441: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7156 036253 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7157 ERROR (..0440,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7158 LL
7159 036254 036 13 0 00 043071
7160 036255 035 00 0 00 036245 ERLOOP ..0440 ;IF ERROR, LOOP TO ..0440
7161 ^
7162 ^
7163
7164 ; **********************************************************************
7165 ; ---------- DMUL - TEST C - SHIFT ACROSS WORD BOUNDARIES ----------
7166 ; **********************************************************************
7167
7168 MULTF (C,2,0,377777777777,377777777777,1,377777777777,377777777776)^
7169
7170 ; --- MULTIPLICAND = (2,0)
7171 ; --- MULTIPLIER === (377777777777,377777777777)
7172 ; --- RESULT ======= (1,377777777777,377777777776,0)
7173
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 21-10
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST C SEQ 0170
7174 ..0442: MOVE AC1,[[EXP 2,0,377777777777,377777777777,1,377777777777,377777777776,0],,MCA
7175 036256 200 01 0 00 043346 ND]
7176 036257 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7177 036260 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7178 ERROR (..0442,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7179 036261 036 14 0 00 043057
7180 036262 035 00 0 00 036256 ERLOOP ..0442 ;IF ERROR, LOOP TO ..0442
7181 ^
7182
7183 036263 200 14 0 00 040733 ..0443: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7184 036264 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7185 ERROR (..0442,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7186 LL
7187 036265 036 13 0 00 043071
7188 036266 035 00 0 00 036256 ERLOOP ..0442 ;IF ERROR, LOOP TO ..0442
7189 ^
7190 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 22
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST D SEQ 0171
7191 SUBTTL DMUL - TEST D
7192
7193 ; **********************************************************************
7194 ;*DMUL - TEST D
7195 ;*
7196 ;* 7777..,6000.. * 2 THESE TESTS VERIFY THAT BITS ARE
7197 ;* 7777..,4000.. * 2 SHIFTED ACROSS WORD BOUNDARIES. A WORD
7198 ;* 6000..,4000.. * 2 OF ONES IS MULTIPLIED BY A FLOATING 1
7199 ;* 4000..,4000.. * 2 WHICH WILL CAUSE A SHIFT ACROSS WORD
7200 ;* 777..,400.. * 1,0 BOUNDARIES OR NOT. THE TEST VERIFIES
7201 ;* ..776,400.. * 1,0 THAT THE SHIFT IS DONE PROPERLY FOR
7202 ;* 400..,400.. * 1,0 BOUNDARY CONDITIONS.
7203 ;* 777..,600.. * 2,0 IN EACH TEST THE PC FLAGS ARE TESTED
7204 ;* 777..,400.. * 2,0 SINCE THERE ARE NO OVERFLOW CONDITIONS
7205 ;* 400..,400.. * 2,0 THE LEFTMOST BIT OF THE PC SHOULD BE
7206 ;* 0 (NO AROV).
7207 ;* THESE TESTS ARE REPEATED WITH MULT-
7208 ;* PLICAND AND MULTIPLIER REVERSED.
7209 ; **********************************************************************
7210
7211 ; **********************************************************************
7212 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7213 ; **********************************************************************
7214
7215 MULTF (D,-1,600000000000,0,2,-1,-1,-1,400000000000)^
7216
7217 ; --- MULTIPLICAND = (-1,600000000000)
7218 ; --- MULTIPLIER === (0,2)
7219 ; --- RESULT ======= (-1,-1,-1,400000000000)
7220
7221 036267 200 01 0 00 043357 ..0444: MOVE AC1,[[EXP -1,600000000000,0,2,-1,-1,-1,400000000000],,MCAND]
7222 036270 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7223 036271 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7224 ERROR (..0444,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7225 036272 036 14 0 00 043367
7226 036273 035 00 0 00 036267 ERLOOP ..0444 ;IF ERROR, LOOP TO ..0444
7227 ^
7228
7229 036274 200 14 0 00 040733 ..0445: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7230 036275 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7231 ERROR (..0444,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7232 LL
7233 036276 036 13 0 00 043401
7234 036277 035 00 0 00 036267 ERLOOP ..0444 ;IF ERROR, LOOP TO ..0444
7235 ^
7236 ^
7237
7238 ; **********************************************************************
7239 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7240 ; **********************************************************************
7241
7242 MULTF (D,-1,400000000000,0,2,-1,-1,-2,400000000000)^
7243
7244 ; --- MULTIPLICAND = (-1,400000000000)
7245 ; --- MULTIPLIER === (0,2)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 22-1
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST D SEQ 0172
7246 ; --- RESULT ======= (-1,-1,-2,400000000000)
7247
7248 036300 200 01 0 00 043414 ..0446: MOVE AC1,[[EXP -1,400000000000,0,2,-1,-1,-2,400000000000],,MCAND]
7249 036301 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7250 036302 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7251 ERROR (..0446,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7252 036303 036 14 0 00 043367
7253 036304 035 00 0 00 036300 ERLOOP ..0446 ;IF ERROR, LOOP TO ..0446
7254 ^
7255
7256 036305 200 14 0 00 040733 ..0447: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7257 036306 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7258 ERROR (..0446,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7259 LL
7260 036307 036 13 0 00 043401
7261 036310 035 00 0 00 036300 ERLOOP ..0446 ;IF ERROR, LOOP TO ..0446
7262 ^
7263 ^
7264
7265 ; **********************************************************************
7266 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7267 ; **********************************************************************
7268
7269 MULTF (D,600000000000,400000000000,0,2,-1,-1,400000000000,400000000000)^
7270
7271 ; --- MULTIPLICAND = (600000000000,400000000000)
7272 ; --- MULTIPLIER === (0,2)
7273 ; --- RESULT ======= (-1,-1,400000000000,400000000000)
7274
7275 ..0450: MOVE AC1,[[EXP 600000000000,400000000000,0,2,-1,-1,400000000000,400000000000],,M
7276 036311 200 01 0 00 043425 CAND]
7277 036312 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7278 036313 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7279 ERROR (..0450,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7280 036314 036 14 0 00 043367
7281 036315 035 00 0 00 036311 ERLOOP ..0450 ;IF ERROR, LOOP TO ..0450
7282 ^
7283
7284 036316 200 14 0 00 040733 ..0451: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7285 036317 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7286 ERROR (..0450,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7287 LL
7288 036320 036 13 0 00 043401
7289 036321 035 00 0 00 036311 ERLOOP ..0450 ;IF ERROR, LOOP TO ..0450
7290 ^
7291 ^
7292
7293 ; **********************************************************************
7294 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7295 ; **********************************************************************
7296
7297 MULTF (D,400000000000,400000000000,0,2,-1,-2,400000000000,400000000000)^
7298
7299 ; --- MULTIPLICAND = (400000000000,400000000000)
7300 ; --- MULTIPLIER === (0,2)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 22-2
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST D SEQ 0173
7301 ; --- RESULT ======= (-1,-2,400000000000,400000000000)
7302
7303 ..0452: MOVE AC1,[[EXP 400000000000,400000000000,0,2,-1,-2,400000000000,400000000000],,M
7304 036322 200 01 0 00 043436 CAND]
7305 036323 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7306 036324 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7307 ERROR (..0452,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7308 036325 036 14 0 00 043367
7309 036326 035 00 0 00 036322 ERLOOP ..0452 ;IF ERROR, LOOP TO ..0452
7310 ^
7311
7312 036327 200 14 0 00 040733 ..0453: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7313 036330 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7314 ERROR (..0452,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7315 LL
7316 036331 036 13 0 00 043401
7317 036332 035 00 0 00 036322 ERLOOP ..0452 ;IF ERROR, LOOP TO ..0452
7318 ^
7319 ^
7320
7321 ; **********************************************************************
7322 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7323 ; **********************************************************************
7324
7325 MULTF (D,-1,400000000000,1,0,-1,-1,400000000000,400000000000)^
7326
7327 ; --- MULTIPLICAND = (-1,400000000000)
7328 ; --- MULTIPLIER === (1,0)
7329 ; --- RESULT ======= (-1,-1,400000000000,400000000000)
7330
7331 036333 200 01 0 00 043447 ..0454: MOVE AC1,[[EXP -1,400000000000,1,0,-1,-1,400000000000,400000000000],,MCAND]
7332 036334 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7333 036335 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7334 ERROR (..0454,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7335 036336 036 14 0 00 043367
7336 036337 035 00 0 00 036333 ERLOOP ..0454 ;IF ERROR, LOOP TO ..0454
7337 ^
7338
7339 036340 200 14 0 00 040733 ..0455: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7340 036341 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7341 ERROR (..0454,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7342 LL
7343 036342 036 13 0 00 043401
7344 036343 035 00 0 00 036333 ERLOOP ..0454 ;IF ERROR, LOOP TO ..0454
7345 ^
7346 ^
7347
7348 ; **********************************************************************
7349 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7350 ; **********************************************************************
7351
7352 MULTF (D,-2,400000000000,1,0,-1,-2,400000000000,400000000000)^
7353
7354 ; --- MULTIPLICAND = (-2,400000000000)
7355 ; --- MULTIPLIER === (1,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 22-3
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST D SEQ 0174
7356 ; --- RESULT ======= (-1,-2,400000000000,400000000000)
7357
7358 036344 200 01 0 00 043460 ..0456: MOVE AC1,[[EXP -2,400000000000,1,0,-1,-2,400000000000,400000000000],,MCAND]
7359 036345 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7360 036346 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7361 ERROR (..0456,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7362 036347 036 14 0 00 043367
7363 036350 035 00 0 00 036344 ERLOOP ..0456 ;IF ERROR, LOOP TO ..0456
7364 ^
7365
7366 036351 200 14 0 00 040733 ..0457: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7367 036352 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7368 ERROR (..0456,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7369 LL
7370 036353 036 13 0 00 043401
7371 036354 035 00 0 00 036344 ERLOOP ..0456 ;IF ERROR, LOOP TO ..0456
7372 ^
7373 ^
7374
7375 ; **********************************************************************
7376 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7377 ; **********************************************************************
7378
7379 MULTF (D,400000000000,400000000000,1,0,-1,400000000000,400000000000,400000000000)
7380 ^
7381
7382 ; --- MULTIPLICAND = (400000000000,400000000000)
7383 ; --- MULTIPLIER === (1,0)
7384 ; --- RESULT ======= (-1,400000000000,400000000000,400000000000)
7385
7386 ..0460: MOVE AC1,[[EXP 400000000000,400000000000,1,0,-1,400000000000,400000000000,400000
7387 036355 200 01 0 00 043471 000000],,MCAND]
7388 036356 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7389 036357 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7390 ERROR (..0460,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7391 036360 036 14 0 00 043367
7392 036361 035 00 0 00 036355 ERLOOP ..0460 ;IF ERROR, LOOP TO ..0460
7393 ^
7394
7395 036362 200 14 0 00 040733 ..0461: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7396 036363 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7397 ERROR (..0460,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7398 LL
7399 036364 036 13 0 00 043401
7400 036365 035 00 0 00 036355 ERLOOP ..0460 ;IF ERROR, LOOP TO ..0460
7401 ^
7402 ^
7403
7404 ; **********************************************************************
7405 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7406 ; **********************************************************************
7407
7408 MULTF (D,-1,600000000000,2,0,-1,-1,400000000000,400000000000)^
7409
7410 ; --- MULTIPLICAND = (-1,600000000000)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 22-4
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST D SEQ 0175
7411 ; --- MULTIPLIER === (2,0)
7412 ; --- RESULT ======= (-1,-1,400000000000,400000000000)
7413
7414 036366 200 01 0 00 043502 ..0462: MOVE AC1,[[EXP -1,600000000000,2,0,-1,-1,400000000000,400000000000],,MCAND]
7415 036367 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7416 036370 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7417 ERROR (..0462,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7418 036371 036 14 0 00 043367
7419 036372 035 00 0 00 036366 ERLOOP ..0462 ;IF ERROR, LOOP TO ..0462
7420 ^
7421
7422 036373 200 14 0 00 040733 ..0463: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7423 036374 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7424 ERROR (..0462,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7425 LL
7426 036375 036 13 0 00 043401
7427 036376 035 00 0 00 036366 ERLOOP ..0462 ;IF ERROR, LOOP TO ..0462
7428 ^
7429 ^
7430
7431 ; **********************************************************************
7432 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7433 ; **********************************************************************
7434
7435 MULTF (D,-1,400000000000,2,0,-1,-2,400000000000,400000000000)^
7436
7437 ; --- MULTIPLICAND = (-1,400000000000)
7438 ; --- MULTIPLIER === (2,0)
7439 ; --- RESULT ======= (-1,-2,400000000000,400000000000)
7440
7441 036377 200 01 0 00 043513 ..0464: MOVE AC1,[[EXP -1,400000000000,2,0,-1,-2,400000000000,400000000000],,MCAND]
7442 036400 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7443 036401 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7444 ERROR (..0464,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7445 036402 036 14 0 00 043367
7446 036403 035 00 0 00 036377 ERLOOP ..0464 ;IF ERROR, LOOP TO ..0464
7447 ^
7448
7449 036404 200 14 0 00 040733 ..0465: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7450 036405 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7451 ERROR (..0464,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7452 LL
7453 036406 036 13 0 00 043401
7454 036407 035 00 0 00 036377 ERLOOP ..0464 ;IF ERROR, LOOP TO ..0464
7455 ^
7456 ^
7457
7458 ; **********************************************************************
7459 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7460 ; **********************************************************************
7461
7462 MULTF (D,400000000000,400000000000,2,0,-2,400000000000,400000000000,400000000000)
7463 ^
7464
7465 ; --- MULTIPLICAND = (400000000000,400000000000)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 22-5
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST D SEQ 0176
7466 ; --- MULTIPLIER === (2,0)
7467 ; --- RESULT ======= (-2,400000000000,400000000000,400000000000)
7468
7469 ..0466: MOVE AC1,[[EXP 400000000000,400000000000,2,0,-2,400000000000,400000000000,400000
7470 036410 200 01 0 00 043524 000000],,MCAND]
7471 036411 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7472 036412 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7473 ERROR (..0466,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7474 036413 036 14 0 00 043367
7475 036414 035 00 0 00 036410 ERLOOP ..0466 ;IF ERROR, LOOP TO ..0466
7476 ^
7477
7478 036415 200 14 0 00 040733 ..0467: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7479 036416 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7480 ERROR (..0466,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7481 LL
7482 036417 036 13 0 00 043401
7483 036420 035 00 0 00 036410 ERLOOP ..0466 ;IF ERROR, LOOP TO ..0466
7484 ^
7485 ^
7486
7487 ; **********************************************************************
7488 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7489 ; **********************************************************************
7490
7491 MULTF (D,0,2,-1,600000000000,-1,-1,-1,400000000000)^
7492
7493 ; --- MULTIPLICAND = (0,2)
7494 ; --- MULTIPLIER === (-1,600000000000)
7495 ; --- RESULT ======= (-1,-1,-1,400000000000)
7496
7497 036421 200 01 0 00 043535 ..0470: MOVE AC1,[[EXP 0,2,-1,600000000000,-1,-1,-1,400000000000],,MCAND]
7498 036422 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7499 036423 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7500 ERROR (..0470,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7501 036424 036 14 0 00 043367
7502 036425 035 00 0 00 036421 ERLOOP ..0470 ;IF ERROR, LOOP TO ..0470
7503 ^
7504
7505 036426 200 14 0 00 040733 ..0471: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7506 036427 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7507 ERROR (..0470,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7508 LL
7509 036430 036 13 0 00 043401
7510 036431 035 00 0 00 036421 ERLOOP ..0470 ;IF ERROR, LOOP TO ..0470
7511 ^
7512 ^
7513
7514 ; **********************************************************************
7515 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7516 ; **********************************************************************
7517
7518 MULTF (D,0,2,-1,400000000000,-1,-1,-2,400000000000)^
7519
7520 ; --- MULTIPLICAND = (0,2)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 22-6
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST D SEQ 0177
7521 ; --- MULTIPLIER === (-1,400000000000)
7522 ; --- RESULT ======= (-1,-1,-2,400000000000)
7523
7524 036432 200 01 0 00 043546 ..0472: MOVE AC1,[[EXP 0,2,-1,400000000000,-1,-1,-2,400000000000],,MCAND]
7525 036433 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7526 036434 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7527 ERROR (..0472,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7528 036435 036 14 0 00 043367
7529 036436 035 00 0 00 036432 ERLOOP ..0472 ;IF ERROR, LOOP TO ..0472
7530 ^
7531
7532 036437 200 14 0 00 040733 ..0473: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7533 036440 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7534 ERROR (..0472,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7535 LL
7536 036441 036 13 0 00 043401
7537 036442 035 00 0 00 036432 ERLOOP ..0472 ;IF ERROR, LOOP TO ..0472
7538 ^
7539 ^
7540
7541 ; **********************************************************************
7542 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7543 ; **********************************************************************
7544
7545 MULTF (D,0,2,600000000000,400000000000,-1,-1,400000000000,400000000000)^
7546
7547 ; --- MULTIPLICAND = (0,2)
7548 ; --- MULTIPLIER === (600000000000,400000000000)
7549 ; --- RESULT ======= (-1,-1,400000000000,400000000000)
7550
7551 ..0474: MOVE AC1,[[EXP 0,2,600000000000,400000000000,-1,-1,400000000000,400000000000],,M
7552 036443 200 01 0 00 043557 CAND]
7553 036444 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7554 036445 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7555 ERROR (..0474,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7556 036446 036 14 0 00 043367
7557 036447 035 00 0 00 036443 ERLOOP ..0474 ;IF ERROR, LOOP TO ..0474
7558 ^
7559
7560 036450 200 14 0 00 040733 ..0475: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7561 036451 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7562 ERROR (..0474,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7563 LL
7564 036452 036 13 0 00 043401
7565 036453 035 00 0 00 036443 ERLOOP ..0474 ;IF ERROR, LOOP TO ..0474
7566 ^
7567 ^
7568
7569 ; **********************************************************************
7570 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7571 ; **********************************************************************
7572
7573 MULTF (D,0,2,400000000000,400000000000,-1,-2,400000000000,400000000000)^
7574
7575 ; --- MULTIPLICAND = (0,2)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 22-7
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST D SEQ 0178
7576 ; --- MULTIPLIER === (400000000000,400000000000)
7577 ; --- RESULT ======= (-1,-2,400000000000,400000000000)
7578
7579 ..0476: MOVE AC1,[[EXP 0,2,400000000000,400000000000,-1,-2,400000000000,400000000000],,M
7580 036454 200 01 0 00 043570 CAND]
7581 036455 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7582 036456 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7583 ERROR (..0476,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7584 036457 036 14 0 00 043367
7585 036460 035 00 0 00 036454 ERLOOP ..0476 ;IF ERROR, LOOP TO ..0476
7586 ^
7587
7588 036461 200 14 0 00 040733 ..0477: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7589 036462 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7590 ERROR (..0476,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7591 LL
7592 036463 036 13 0 00 043401
7593 036464 035 00 0 00 036454 ERLOOP ..0476 ;IF ERROR, LOOP TO ..0476
7594 ^
7595 ^
7596
7597 ; **********************************************************************
7598 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7599 ; **********************************************************************
7600
7601 MULTF (D,1,0,-1,400000000000,-1,-1,400000000000,400000000000)^
7602
7603 ; --- MULTIPLICAND = (1,0)
7604 ; --- MULTIPLIER === (-1,400000000000)
7605 ; --- RESULT ======= (-1,-1,400000000000,400000000000)
7606
7607 036465 200 01 0 00 043601 ..0500: MOVE AC1,[[EXP 1,0,-1,400000000000,-1,-1,400000000000,400000000000],,MCAND]
7608 036466 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7609 036467 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7610 ERROR (..0500,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7611 036470 036 14 0 00 043367
7612 036471 035 00 0 00 036465 ERLOOP ..0500 ;IF ERROR, LOOP TO ..0500
7613 ^
7614
7615 036472 200 14 0 00 040733 ..0501: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7616 036473 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7617 ERROR (..0500,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7618 LL
7619 036474 036 13 0 00 043401
7620 036475 035 00 0 00 036465 ERLOOP ..0500 ;IF ERROR, LOOP TO ..0500
7621 ^
7622 ^
7623
7624 ; **********************************************************************
7625 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7626 ; **********************************************************************
7627
7628 MULTF (D,1,0,-2,400000000000,-1,-2,400000000000,400000000000)^
7629
7630 ; --- MULTIPLICAND = (1,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 22-8
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST D SEQ 0179
7631 ; --- MULTIPLIER === (-2,400000000000)
7632 ; --- RESULT ======= (-1,-2,400000000000,400000000000)
7633
7634 036476 200 01 0 00 043612 ..0502: MOVE AC1,[[EXP 1,0,-2,400000000000,-1,-2,400000000000,400000000000],,MCAND]
7635 036477 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7636 036500 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7637 ERROR (..0502,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7638 036501 036 14 0 00 043367
7639 036502 035 00 0 00 036476 ERLOOP ..0502 ;IF ERROR, LOOP TO ..0502
7640 ^
7641
7642 036503 200 14 0 00 040733 ..0503: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7643 036504 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7644 ERROR (..0502,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7645 LL
7646 036505 036 13 0 00 043401
7647 036506 035 00 0 00 036476 ERLOOP ..0502 ;IF ERROR, LOOP TO ..0502
7648 ^
7649 ^
7650
7651 ; **********************************************************************
7652 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7653 ; **********************************************************************
7654
7655 MULTF (D,1,0,400000000000,400000000000,-1,400000000000,400000000000,400000000000)
7656 ^
7657
7658 ; --- MULTIPLICAND = (1,0)
7659 ; --- MULTIPLIER === (400000000000,400000000000)
7660 ; --- RESULT ======= (-1,400000000000,400000000000,400000000000)
7661
7662 ..0504: MOVE AC1,[[EXP 1,0,400000000000,400000000000,-1,400000000000,400000000000,400000
7663 036507 200 01 0 00 043623 000000],,MCAND]
7664 036510 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7665 036511 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7666 ERROR (..0504,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7667 036512 036 14 0 00 043367
7668 036513 035 00 0 00 036507 ERLOOP ..0504 ;IF ERROR, LOOP TO ..0504
7669 ^
7670
7671 036514 200 14 0 00 040733 ..0505: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7672 036515 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7673 ERROR (..0504,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7674 LL
7675 036516 036 13 0 00 043401
7676 036517 035 00 0 00 036507 ERLOOP ..0504 ;IF ERROR, LOOP TO ..0504
7677 ^
7678 ^
7679
7680 ; **********************************************************************
7681 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7682 ; **********************************************************************
7683
7684 MULTF (D,2,0,-1,600000000000,-1,-1,400000000000,400000000000)^
7685
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 22-9
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST D SEQ 0180
7686 ; --- MULTIPLICAND = (2,0)
7687 ; --- MULTIPLIER === (-1,600000000000)
7688 ; --- RESULT ======= (-1,-1,400000000000,400000000000)
7689
7690 036520 200 01 0 00 043634 ..0506: MOVE AC1,[[EXP 2,0,-1,600000000000,-1,-1,400000000000,400000000000],,MCAND]
7691 036521 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7692 036522 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7693 ERROR (..0506,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7694 036523 036 14 0 00 043367
7695 036524 035 00 0 00 036520 ERLOOP ..0506 ;IF ERROR, LOOP TO ..0506
7696 ^
7697
7698 036525 200 14 0 00 040733 ..0507: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7699 036526 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7700 ERROR (..0506,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7701 LL
7702 036527 036 13 0 00 043401
7703 036530 035 00 0 00 036520 ERLOOP ..0506 ;IF ERROR, LOOP TO ..0506
7704 ^
7705 ^
7706
7707 ; **********************************************************************
7708 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7709 ; **********************************************************************
7710
7711 MULTF (D,2,0,-1,400000000000,-1,-2,400000000000,400000000000)^
7712
7713 ; --- MULTIPLICAND = (2,0)
7714 ; --- MULTIPLIER === (-1,400000000000)
7715 ; --- RESULT ======= (-1,-2,400000000000,400000000000)
7716
7717 036531 200 01 0 00 043645 ..0510: MOVE AC1,[[EXP 2,0,-1,400000000000,-1,-2,400000000000,400000000000],,MCAND]
7718 036532 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7719 036533 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7720 ERROR (..0510,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7721 036534 036 14 0 00 043367
7722 036535 035 00 0 00 036531 ERLOOP ..0510 ;IF ERROR, LOOP TO ..0510
7723 ^
7724
7725 036536 200 14 0 00 040733 ..0511: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7726 036537 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7727 ERROR (..0510,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7728 LL
7729 036540 036 13 0 00 043401
7730 036541 035 00 0 00 036531 ERLOOP ..0510 ;IF ERROR, LOOP TO ..0510
7731 ^
7732 ^
7733
7734 ; **********************************************************************
7735 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ----------
7736 ; **********************************************************************
7737
7738 MULTF (D,2,0,400000000000,400000000000,-2,400000000000,400000000000,400000000000)
7739 ^
7740
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 22-10
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST D SEQ 0181
7741 ; --- MULTIPLICAND = (2,0)
7742 ; --- MULTIPLIER === (400000000000,400000000000)
7743 ; --- RESULT ======= (-2,400000000000,400000000000,400000000000)
7744
7745 ..0512: MOVE AC1,[[EXP 2,0,400000000000,400000000000,-2,400000000000,400000000000,400000
7746 036542 200 01 0 00 043656 000000],,MCAND]
7747 036543 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7748 036544 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7749 ERROR (..0512,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7750 036545 036 14 0 00 043367
7751 036546 035 00 0 00 036542 ERLOOP ..0512 ;IF ERROR, LOOP TO ..0512
7752 ^
7753
7754 036547 200 14 0 00 040733 ..0513: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7755 036550 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7756 ERROR (..0512,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7757 LL
7758 036551 036 13 0 00 043401
7759 036552 035 00 0 00 036542 ERLOOP ..0512 ;IF ERROR, LOOP TO ..0512
7760 ^
7761 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 23
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST E (OVERFLOW) SEQ 0182
7762 SUBTTL DMUL - TEST E (OVERFLOW)
7763
7764 ; **********************************************************************
7765 ;*DMUL - TEST E
7766 ;*
7767 ;* -2^70 * -2^70 THIS IS THE ONLY CASE THAT CAN SET
7768 ;* THE AROV FLAG. THIS TEST VERIFIES THE
7769 ;* RESULT AND CHECKS THE SETTING OF THE
7770 ;* AROV FLAG.
7771 ;*
7772 ;* ------- MULTIPLICAND = (4000...,4000...)
7773 ;* ------- MULTIPLIER === (4000...,4000...)
7774 ;* ------- RESULT ======= (4000...,4000...,4000...,4000...)
7775 ; **********************************************************************
7776
7777 036553 LOC=.
7778
7779 036553 120 01 0 00 042354 DMOVE AC1,[EXP 1B0,1B0] ;INIT MULTIPLICAND
7780 036554 120 03 0 00 043657 DMOVE AC1+2,[EXP 525252525252,252525252525] ;PUT GARBAGE IN
7781 ; RIGHT HALF OF RESULT
7782 036555 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD INCORRECT
7783 036556 255 17 0 00 036557 JFCL 17,.+1 ;CLEAR FLAGS
7784 036557 116 01 0 00 000001 DMUL AC1,AC1 ;MULTIPLY
7785 PCSAVE^
7786 036560 264 00 0 00 036561 JSR .+1 ;STORE PC
7787 036561 FLAGL=. ;LOCATION OF PC
7788 036561 000000 000000 0 ;PC
7789 ^
7790 036562 312 01 0 00 042201 CAME AC1,[1B0] ;1ST WORD OF RESULT OK?
7791 036563 254 00 0 00 036575 JRST MOVERR ;NO - GO DO ERROR PRINTOUT
7792 036564 201 13 0 00 000001 MOVEI SCR1,1 ;POINT TO 2ND WORD
7793 036565 312 02 0 00 042201 CAME AC1+1,[1B0] ;2ND WORD OF RESULT OK?
7794 036566 254 00 0 00 036575 JRST MOVERR ;NO - GO DO ERROR PRINTOUT
7795 036567 201 13 0 00 000002 MOVEI SCR1,2 ;POINT TO 3RD WORD
7796 036570 312 03 0 00 042201 CAME AC1+2,[1B0] ;3RD WORD OF RESULT OK?
7797 036571 254 00 0 00 036575 JRST MOVERR ;NO - GO DO ERROR PRINTOUT
7798 036572 201 13 0 00 000003 MOVEI SCR1,3 ;POINT TO 4TH WORD
7799 036573 316 04 0 00 042201 CAMN AC1+3,[1B0] ;4TH WORD OF RESULT OK?
7800 036574 254 00 0 00 036600 JRST MOVOK ;YES - GO CHECK AROV FLAGS
7801 036575 200 13 0 13 000001 MOVERR: MOVE SCR1,AC1(SCR1) ;GET INCORRECT WORD
7802 ERROR (LOC,13,[1B0],SCR1,,TEST E - RESULT INCORRECT,MPRINT)^SALL
7803 036576 036 13 0 00 043666
7804 036577 035 00 0 00 036553 ERLOOP LOC ;IF ERROR, LOOP TO LOC
7805 ^
7806 036600 255 10 0 00 036604 MOVOK: JOV MOVRR+1 ;TEST OVERFLOW - SHOULD BE ON
7807 036601 201 15 0 00 042354 MOVEI SCR3,[EXP 1B0,1B0] ;ADDRESS OF OPERANDS FOR ADDL
7808 036602 504 15 0 00 000015 HRL SCR3,SCR3 ; ERROR PRINT ROUTINE
7809 036603 MOVRR: ERROR (LOC,13,AC1,FLAGL,,TEST E - PC FLAGS INCORRECT - LEFT 4 BITS,MPRINT)^SALL
7810 036603 036 13 0 00 043700
7811 036604 035 00 0 00 036553 ERLOOP LOC ;IF ERROR, LOOP TO LOC
7812 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 24
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST F - TEST NEGATIVE OPERANDS SEQ 0183
7813 SUBTTL DMUL - TEST F - TEST NEGATIVE OPERANDS
7814
7815 ; **********************************************************************
7816 ;*DMUL - TEST F
7817 ;*
7818 ;* -2 * -3 THESE TESTS VERIFY THAT THE DMUL HANDLES
7819 ;* -2,0 * -3 THE SIGNS PROPERLY WHEN MULTIPLYING
7820 ;* -2 * -3,0 OPERANDS WHICH ARE BOTH NEGATIVE. TESTS
7821 ;* -2,0 * -3,0 B,C,D TESTED THE COMBINATIONS POS*POS,
7822 ;* POS*NEG AND NEG*POS BUT NOT NEG*NEG. THE
7823 ;* AROV FLAG IS ALSO TESTED TO ASCERTAIN
7824 ;* THAT IT WAS NOT SET.
7825 ; **********************************************************************
7826
7827 ; **********************************************************************
7828 ; ---------- DMUL TEST F - TEST NEGATIVE OPERANDS ----------
7829 ; **********************************************************************
7830
7831 MULTF (F,-1,-2,-1,-3,0,0,0,6)^
7832
7833 ; --- MULTIPLICAND = (-1,-2)
7834 ; --- MULTIPLIER === (-1,-3)
7835 ; --- RESULT ======= (0,0,0,6)
7836
7837 036605 200 01 0 00 043713 ..0514: MOVE AC1,[[EXP -1,-2,-1,-3,0,0,0,6],,MCAND]
7838 036606 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7839 036607 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7840 ERROR (..0514,14,SCR1,SCR2,,TEST F - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7841 036610 036 14 0 00 043723
7842 036611 035 00 0 00 036605 ERLOOP ..0514 ;IF ERROR, LOOP TO ..0514
7843 ^
7844
7845 036612 200 14 0 00 040733 ..0515: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7846 036613 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7847 ERROR (..0514,13,SCR2,MFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7848 LL
7849 036614 036 13 0 00 043735
7850 036615 035 00 0 00 036605 ERLOOP ..0514 ;IF ERROR, LOOP TO ..0514
7851 ^
7852 ^
7853
7854 ; **********************************************************************
7855 ; ---------- DMUL TEST F - TEST NEGATIVE OPERANDS ----------
7856 ; **********************************************************************
7857
7858 MULTF (F,-2,400000000000,-1,-3,0,0,6)^
7859
7860 ; --- MULTIPLICAND = (-2,400000000000)
7861 ; --- MULTIPLIER === (-1,-3)
7862 ; --- RESULT ======= (0,0,6,0)
7863
7864 036616 200 01 0 00 043750 ..0516: MOVE AC1,[[EXP -2,400000000000,-1,-3,0,0,6,0],,MCAND]
7865 036617 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7866 036620 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7867 ERROR (..0516,14,SCR1,SCR2,,TEST F - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 24-1
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST F - TEST NEGATIVE OPERANDS SEQ 0184
7868 036621 036 14 0 00 043723
7869 036622 035 00 0 00 036616 ERLOOP ..0516 ;IF ERROR, LOOP TO ..0516
7870 ^
7871
7872 036623 200 14 0 00 040733 ..0517: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7873 036624 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7874 ERROR (..0516,13,SCR2,MFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7875 LL
7876 036625 036 13 0 00 043735
7877 036626 035 00 0 00 036616 ERLOOP ..0516 ;IF ERROR, LOOP TO ..0516
7878 ^
7879 ^
7880
7881 ; **********************************************************************
7882 ; ---------- DMUL TEST F - TEST NEGATIVE OPERANDS ----------
7883 ; **********************************************************************
7884
7885 MULTF (F,-1,-2,-3,400000000000,0,0,6)^
7886
7887 ; --- MULTIPLICAND = (-1,-2)
7888 ; --- MULTIPLIER === (-3,400000000000)
7889 ; --- RESULT ======= (0,0,6,0)
7890
7891 036627 200 01 0 00 043761 ..0520: MOVE AC1,[[EXP -1,-2,-3,400000000000,0,0,6,0],,MCAND]
7892 036630 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7893 036631 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7894 ERROR (..0520,14,SCR1,SCR2,,TEST F - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7895 036632 036 14 0 00 043723
7896 036633 035 00 0 00 036627 ERLOOP ..0520 ;IF ERROR, LOOP TO ..0520
7897 ^
7898
7899 036634 200 14 0 00 040733 ..0521: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7900 036635 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7901 ERROR (..0520,13,SCR2,MFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7902 LL
7903 036636 036 13 0 00 043735
7904 036637 035 00 0 00 036627 ERLOOP ..0520 ;IF ERROR, LOOP TO ..0520
7905 ^
7906 ^
7907
7908 ; **********************************************************************
7909 ; ---------- DMUL TEST F - TEST NEGATIVE OPERANDS ----------
7910 ; **********************************************************************
7911
7912 MULTF (F,-2,400000000000,-3,400000000000,0,6)^
7913
7914 ; --- MULTIPLICAND = (-2,400000000000)
7915 ; --- MULTIPLIER === (-3,400000000000)
7916 ; --- RESULT ======= (0,6,0,0)
7917
7918 036640 200 01 0 00 043772 ..0522: MOVE AC1,[[EXP -2,400000000000,-3,400000000000,0,6,0,0],,MCAND]
7919 036641 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7920 036642 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7921 ERROR (..0522,14,SCR1,SCR2,,TEST F - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7922 036643 036 14 0 00 043723
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 24-2
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST F - TEST NEGATIVE OPERANDS SEQ 0185
7923 036644 035 00 0 00 036640 ERLOOP ..0522 ;IF ERROR, LOOP TO ..0522
7924 ^
7925
7926 036645 200 14 0 00 040733 ..0523: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7927 036646 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7928 ERROR (..0522,13,SCR2,MFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7929 LL
7930 036647 036 13 0 00 043735
7931 036650 035 00 0 00 036640 ERLOOP ..0522 ;IF ERROR, LOOP TO ..0522
7932 ^
7933 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 25
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST G SEQ 0186
7934 SUBTTL DMUL - TEST G
7935
7936 ; **********************************************************************
7937 ;*DMUL - TEST G
7938 ;*
7939 ;* 2 * 3 2,0 * 3,0 THESE TESTS MULTIPLY NUMBERS WHICH HAVE
7940 ;* 2 * -3 2,0 * -3,0 INCONSISTENT SIGNS AMONGST THE WORDS OF
7941 ;* -2 * 3 -2,-1 * 3,0 EACH OPERAND. THE FLAGS IS ALSO TESTED
7942 ;* -2 * -3 -2,-1 * -3,0 TO VERIFY THAT IT IS NOT SET.
7943 ; **********************************************************************
7944
7945 ; **********************************************************************
7946 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
7947 ; **********************************************************************
7948
7949 MULTF (G,0,2,0,400000000003,0,0,0,6)^
7950
7951 ; --- MULTIPLICAND = (0,2)
7952 ; --- MULTIPLIER === (0,400000000003)
7953 ; --- RESULT ======= (0,0,0,6)
7954
7955 036651 200 01 0 00 044003 ..0524: MOVE AC1,[[EXP 0,2,0,400000000003,0,0,0,6],,MCAND]
7956 036652 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7957 036653 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7958 ERROR (..0524,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7959 036654 036 14 0 00 044013
7960 036655 035 00 0 00 036651 ERLOOP ..0524 ;IF ERROR, LOOP TO ..0524
7961 ^
7962
7963 036656 200 14 0 00 040733 ..0525: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7964 036657 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7965 ERROR (..0524,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7966 LL
7967 036660 036 13 0 00 044025
7968 036661 035 00 0 00 036651 ERLOOP ..0524 ;IF ERROR, LOOP TO ..0524
7969 ^
7970 ^
7971
7972 ; **********************************************************************
7973 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
7974 ; **********************************************************************
7975
7976 MULTF (G,0,400000000002,0,400000000003,0,0,0,6)^
7977
7978 ; --- MULTIPLICAND = (0,400000000002)
7979 ; --- MULTIPLIER === (0,400000000003)
7980 ; --- RESULT ======= (0,0,0,6)
7981
7982 036662 200 01 0 00 044040 ..0526: MOVE AC1,[[EXP 0,400000000002,0,400000000003,0,0,0,6],,MCAND]
7983 036663 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
7984 036664 260 17 0 00 040725 GO MSUBR ;GO DO TEST
7985 ERROR (..0526,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
7986 036665 036 14 0 00 044013
7987 036666 035 00 0 00 036662 ERLOOP ..0526 ;IF ERROR, LOOP TO ..0526
7988 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 25-1
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST G SEQ 0187
7989
7990 036667 200 14 0 00 040733 ..0527: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
7991 036670 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
7992 ERROR (..0526,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
7993 LL
7994 036671 036 13 0 00 044025
7995 036672 035 00 0 00 036662 ERLOOP ..0526 ;IF ERROR, LOOP TO ..0526
7996 ^
7997 ^
7998
7999 ; **********************************************************************
8000 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8001 ; **********************************************************************
8002
8003 MULTF (G,0,400000000002,0,3,0,0,0,6)^
8004
8005 ; --- MULTIPLICAND = (0,400000000002)
8006 ; --- MULTIPLIER === (0,3)
8007 ; --- RESULT ======= (0,0,0,6)
8008
8009 036673 200 01 0 00 044051 ..0530: MOVE AC1,[[EXP 0,400000000002,0,3,0,0,0,6],,MCAND]
8010 036674 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8011 036675 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8012 ERROR (..0530,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8013 036676 036 14 0 00 044013
8014 036677 035 00 0 00 036673 ERLOOP ..0530 ;IF ERROR, LOOP TO ..0530
8015 ^
8016
8017 036700 200 14 0 00 040733 ..0531: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8018 036701 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8019 ERROR (..0530,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8020 LL
8021 036702 036 13 0 00 044025
8022 036703 035 00 0 00 036673 ERLOOP ..0530 ;IF ERROR, LOOP TO ..0530
8023 ^
8024 ^
8025
8026 ; **********************************************************************
8027 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8028 ; **********************************************************************
8029
8030 MULTF (G,0,2,-1,377777777775,-1,-1,-1,-6)^
8031
8032 ; --- MULTIPLICAND = (0,2)
8033 ; --- MULTIPLIER === (-1,377777777775)
8034 ; --- RESULT ======= (-1,-1,-1,-6)
8035
8036 036704 200 01 0 00 044062 ..0532: MOVE AC1,[[EXP 0,2,-1,377777777775,-1,-1,-1,-6],,MCAND]
8037 036705 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8038 036706 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8039 ERROR (..0532,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8040 036707 036 14 0 00 044013
8041 036710 035 00 0 00 036704 ERLOOP ..0532 ;IF ERROR, LOOP TO ..0532
8042 ^
8043
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 25-2
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST G SEQ 0188
8044 036711 200 14 0 00 040733 ..0533: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8045 036712 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8046 ERROR (..0532,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8047 LL
8048 036713 036 13 0 00 044025
8049 036714 035 00 0 00 036704 ERLOOP ..0532 ;IF ERROR, LOOP TO ..0532
8050 ^
8051 ^
8052
8053 ; **********************************************************************
8054 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8055 ; **********************************************************************
8056
8057 MULTF (G,0,400000000002,-1,377777777775,-1,-1,-1,-6)^
8058
8059 ; --- MULTIPLICAND = (0,400000000002)
8060 ; --- MULTIPLIER === (-1,377777777775)
8061 ; --- RESULT ======= (-1,-1,-1,-6)
8062
8063 036715 200 01 0 00 044073 ..0534: MOVE AC1,[[EXP 0,400000000002,-1,377777777775,-1,-1,-1,-6],,MCAND]
8064 036716 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8065 036717 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8066 ERROR (..0534,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8067 036720 036 14 0 00 044013
8068 036721 035 00 0 00 036715 ERLOOP ..0534 ;IF ERROR, LOOP TO ..0534
8069 ^
8070
8071 036722 200 14 0 00 040733 ..0535: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8072 036723 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8073 ERROR (..0534,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8074 LL
8075 036724 036 13 0 00 044025
8076 036725 035 00 0 00 036715 ERLOOP ..0534 ;IF ERROR, LOOP TO ..0534
8077 ^
8078 ^
8079
8080 ; **********************************************************************
8081 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8082 ; **********************************************************************
8083
8084 MULTF (G,0,400000000002,-1,-3,-1,-1,-1,-6)^
8085
8086 ; --- MULTIPLICAND = (0,400000000002)
8087 ; --- MULTIPLIER === (-1,-3)
8088 ; --- RESULT ======= (-1,-1,-1,-6)
8089
8090 036726 200 01 0 00 044104 ..0536: MOVE AC1,[[EXP 0,400000000002,-1,-3,-1,-1,-1,-6],,MCAND]
8091 036727 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8092 036730 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8093 ERROR (..0536,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8094 036731 036 14 0 00 044013
8095 036732 035 00 0 00 036726 ERLOOP ..0536 ;IF ERROR, LOOP TO ..0536
8096 ^
8097
8098 036733 200 14 0 00 040733 ..0537: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 25-3
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST G SEQ 0189
8099 036734 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8100 ERROR (..0536,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8101 LL
8102 036735 036 13 0 00 044025
8103 036736 035 00 0 00 036726 ERLOOP ..0536 ;IF ERROR, LOOP TO ..0536
8104 ^
8105 ^
8106
8107 ; **********************************************************************
8108 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8109 ; **********************************************************************
8110
8111 MULTF (G,-1,-2,0,400000000003,-1,-1,-1,-6)^
8112
8113 ; --- MULTIPLICAND = (-1,-2)
8114 ; --- MULTIPLIER === (0,400000000003)
8115 ; --- RESULT ======= (-1,-1,-1,-6)
8116
8117 036737 200 01 0 00 044115 ..0540: MOVE AC1,[[EXP -1,-2,0,400000000003,-1,-1,-1,-6],,MCAND]
8118 036740 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8119 036741 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8120 ERROR (..0540,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8121 036742 036 14 0 00 044013
8122 036743 035 00 0 00 036737 ERLOOP ..0540 ;IF ERROR, LOOP TO ..0540
8123 ^
8124
8125 036744 200 14 0 00 040733 ..0541: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8126 036745 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8127 ERROR (..0540,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8128 LL
8129 036746 036 13 0 00 044025
8130 036747 035 00 0 00 036737 ERLOOP ..0540 ;IF ERROR, LOOP TO ..0540
8131 ^
8132 ^
8133
8134 ; **********************************************************************
8135 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8136 ; **********************************************************************
8137
8138 MULTF (G,-1,377777777776,0,400000000003,-1,-1,-1,-6)^
8139
8140 ; --- MULTIPLICAND = (-1,377777777776)
8141 ; --- MULTIPLIER === (0,400000000003)
8142 ; --- RESULT ======= (-1,-1,-1,-6)
8143
8144 036750 200 01 0 00 044126 ..0542: MOVE AC1,[[EXP -1,377777777776,0,400000000003,-1,-1,-1,-6],,MCAND]
8145 036751 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8146 036752 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8147 ERROR (..0542,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8148 036753 036 14 0 00 044013
8149 036754 035 00 0 00 036750 ERLOOP ..0542 ;IF ERROR, LOOP TO ..0542
8150 ^
8151
8152 036755 200 14 0 00 040733 ..0543: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8153 036756 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 25-4
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST G SEQ 0190
8154 ERROR (..0542,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8155 LL
8156 036757 036 13 0 00 044025
8157 036760 035 00 0 00 036750 ERLOOP ..0542 ;IF ERROR, LOOP TO ..0542
8158 ^
8159 ^
8160
8161 ; **********************************************************************
8162 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8163 ; **********************************************************************
8164
8165 MULTF (G,-1,377777777776,0,3,-1,-1,-1,-6)^
8166
8167 ; --- MULTIPLICAND = (-1,377777777776)
8168 ; --- MULTIPLIER === (0,3)
8169 ; --- RESULT ======= (-1,-1,-1,-6)
8170
8171 036761 200 01 0 00 044137 ..0544: MOVE AC1,[[EXP -1,377777777776,0,3,-1,-1,-1,-6],,MCAND]
8172 036762 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8173 036763 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8174 ERROR (..0544,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8175 036764 036 14 0 00 044013
8176 036765 035 00 0 00 036761 ERLOOP ..0544 ;IF ERROR, LOOP TO ..0544
8177 ^
8178
8179 036766 200 14 0 00 040733 ..0545: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8180 036767 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8181 ERROR (..0544,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8182 LL
8183 036770 036 13 0 00 044025
8184 036771 035 00 0 00 036761 ERLOOP ..0544 ;IF ERROR, LOOP TO ..0544
8185 ^
8186 ^
8187
8188 ; **********************************************************************
8189 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8190 ; **********************************************************************
8191
8192 MULTF (G,-1,-2,-1,377777777775,0,0,0,6)^
8193
8194 ; --- MULTIPLICAND = (-1,-2)
8195 ; --- MULTIPLIER === (-1,377777777775)
8196 ; --- RESULT ======= (0,0,0,6)
8197
8198 036772 200 01 0 00 044150 ..0546: MOVE AC1,[[EXP -1,-2,-1,377777777775,0,0,0,6],,MCAND]
8199 036773 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8200 036774 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8201 ERROR (..0546,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8202 036775 036 14 0 00 044013
8203 036776 035 00 0 00 036772 ERLOOP ..0546 ;IF ERROR, LOOP TO ..0546
8204 ^
8205
8206 036777 200 14 0 00 040733 ..0547: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8207 037000 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8208 ERROR (..0546,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 25-5
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST G SEQ 0191
8209 LL
8210 037001 036 13 0 00 044025
8211 037002 035 00 0 00 036772 ERLOOP ..0546 ;IF ERROR, LOOP TO ..0546
8212 ^
8213 ^
8214
8215 ; **********************************************************************
8216 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8217 ; **********************************************************************
8218
8219 MULTF (G,-1,377777777776,-1,377777777775,0,0,0,6)^
8220
8221 ; --- MULTIPLICAND = (-1,377777777776)
8222 ; --- MULTIPLIER === (-1,377777777775)
8223 ; --- RESULT ======= (0,0,0,6)
8224
8225 037003 200 01 0 00 044161 ..0550: MOVE AC1,[[EXP -1,377777777776,-1,377777777775,0,0,0,6],,MCAND]
8226 037004 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8227 037005 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8228 ERROR (..0550,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8229 037006 036 14 0 00 044013
8230 037007 035 00 0 00 037003 ERLOOP ..0550 ;IF ERROR, LOOP TO ..0550
8231 ^
8232
8233 037010 200 14 0 00 040733 ..0551: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8234 037011 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8235 ERROR (..0550,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8236 LL
8237 037012 036 13 0 00 044025
8238 037013 035 00 0 00 037003 ERLOOP ..0550 ;IF ERROR, LOOP TO ..0550
8239 ^
8240 ^
8241
8242 ; **********************************************************************
8243 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8244 ; **********************************************************************
8245
8246 MULTF (G,-1,377777777776,-1,-3,0,0,0,6)^
8247
8248 ; --- MULTIPLICAND = (-1,377777777776)
8249 ; --- MULTIPLIER === (-1,-3)
8250 ; --- RESULT ======= (0,0,0,6)
8251
8252 037014 200 01 0 00 044172 ..0552: MOVE AC1,[[EXP -1,377777777776,-1,-3,0,0,0,6],,MCAND]
8253 037015 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8254 037016 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8255 ERROR (..0552,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8256 037017 036 14 0 00 044013
8257 037020 035 00 0 00 037014 ERLOOP ..0552 ;IF ERROR, LOOP TO ..0552
8258 ^
8259
8260 037021 200 14 0 00 040733 ..0553: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8261 037022 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8262 ERROR (..0552,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8263 LL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 25-6
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST G SEQ 0192
8264 037023 036 13 0 00 044025
8265 037024 035 00 0 00 037014 ERLOOP ..0552 ;IF ERROR, LOOP TO ..0552
8266 ^
8267 ^
8268
8269 ; **********************************************************************
8270 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8271 ; **********************************************************************
8272
8273 MULTF (G,2,0,3,400000000000,0,6)^
8274
8275 ; --- MULTIPLICAND = (2,0)
8276 ; --- MULTIPLIER === (3,400000000000)
8277 ; --- RESULT ======= (0,6,0,0)
8278
8279 037025 200 01 0 00 044203 ..0554: MOVE AC1,[[EXP 2,0,3,400000000000,0,6,0,0],,MCAND]
8280 037026 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8281 037027 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8282 ERROR (..0554,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8283 037030 036 14 0 00 044013
8284 037031 035 00 0 00 037025 ERLOOP ..0554 ;IF ERROR, LOOP TO ..0554
8285 ^
8286
8287 037032 200 14 0 00 040733 ..0555: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8288 037033 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8289 ERROR (..0554,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8290 LL
8291 037034 036 13 0 00 044025
8292 037035 035 00 0 00 037025 ERLOOP ..0554 ;IF ERROR, LOOP TO ..0554
8293 ^
8294 ^
8295
8296 ; **********************************************************************
8297 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8298 ; **********************************************************************
8299
8300 MULTF (G,2,400000000000,3,400000000000,0,6)^
8301
8302 ; --- MULTIPLICAND = (2,400000000000)
8303 ; --- MULTIPLIER === (3,400000000000)
8304 ; --- RESULT ======= (0,6,0,0)
8305
8306 037036 200 01 0 00 044214 ..0556: MOVE AC1,[[EXP 2,400000000000,3,400000000000,0,6,0,0],,MCAND]
8307 037037 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8308 037040 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8309 ERROR (..0556,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8310 037041 036 14 0 00 044013
8311 037042 035 00 0 00 037036 ERLOOP ..0556 ;IF ERROR, LOOP TO ..0556
8312 ^
8313
8314 037043 200 14 0 00 040733 ..0557: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8315 037044 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8316 ERROR (..0556,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8317 LL
8318 037045 036 13 0 00 044025
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 25-7
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST G SEQ 0193
8319 037046 035 00 0 00 037036 ERLOOP ..0556 ;IF ERROR, LOOP TO ..0556
8320 ^
8321 ^
8322
8323 ; **********************************************************************
8324 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8325 ; **********************************************************************
8326
8327 MULTF (G,2,400000000000,3,0,0,6,0)^
8328
8329 ; --- MULTIPLICAND = (2,400000000000)
8330 ; --- MULTIPLIER === (3,0)
8331 ; --- RESULT ======= (0,6,0,0)
8332
8333 037047 200 01 0 00 044225 ..0560: MOVE AC1,[[EXP 2,400000000000,3,0,0,6,0,0],,MCAND]
8334 037050 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8335 037051 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8336 ERROR (..0560,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8337 037052 036 14 0 00 044013
8338 037053 035 00 0 00 037047 ERLOOP ..0560 ;IF ERROR, LOOP TO ..0560
8339 ^
8340
8341 037054 200 14 0 00 040733 ..0561: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8342 037055 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8343 ERROR (..0560,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8344 LL
8345 037056 036 13 0 00 044025
8346 037057 035 00 0 00 037047 ERLOOP ..0560 ;IF ERROR, LOOP TO ..0560
8347 ^
8348 ^
8349
8350 ; **********************************************************************
8351 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8352 ; **********************************************************************
8353
8354 MULTF (G,2,0,-3,0,-1,-6,400000000000,400000000000)^
8355
8356 ; --- MULTIPLICAND = (2,0)
8357 ; --- MULTIPLIER === (-3,0)
8358 ; --- RESULT ======= (-1,-6,400000000000,400000000000)
8359
8360 037060 200 01 0 00 044236 ..0562: MOVE AC1,[[EXP 2,0,-3,0,-1,-6,400000000000,400000000000],,MCAND]
8361 037061 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8362 037062 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8363 ERROR (..0562,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8364 037063 036 14 0 00 044013
8365 037064 035 00 0 00 037060 ERLOOP ..0562 ;IF ERROR, LOOP TO ..0562
8366 ^
8367
8368 037065 200 14 0 00 040733 ..0563: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8369 037066 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8370 ERROR (..0562,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8371 LL
8372 037067 036 13 0 00 044025
8373 037070 035 00 0 00 037060 ERLOOP ..0562 ;IF ERROR, LOOP TO ..0562
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 25-8
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST G SEQ 0194
8374 ^
8375 ^
8376
8377 ; **********************************************************************
8378 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8379 ; **********************************************************************
8380
8381 MULTF (G,2,400000000000,-3,0,-1,-6,400000000000,400000000000)^
8382
8383 ; --- MULTIPLICAND = (2,400000000000)
8384 ; --- MULTIPLIER === (-3,0)
8385 ; --- RESULT ======= (-1,-6,400000000000,400000000000)
8386
8387 037071 200 01 0 00 044247 ..0564: MOVE AC1,[[EXP 2,400000000000,-3,0,-1,-6,400000000000,400000000000],,MCAND]
8388 037072 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8389 037073 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8390 ERROR (..0564,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8391 037074 036 14 0 00 044013
8392 037075 035 00 0 00 037071 ERLOOP ..0564 ;IF ERROR, LOOP TO ..0564
8393 ^
8394
8395 037076 200 14 0 00 040733 ..0565: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8396 037077 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8397 ERROR (..0564,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8398 LL
8399 037100 036 13 0 00 044025
8400 037101 035 00 0 00 037071 ERLOOP ..0564 ;IF ERROR, LOOP TO ..0564
8401 ^
8402 ^
8403
8404 ; **********************************************************************
8405 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8406 ; **********************************************************************
8407
8408 MULTF (G,2,400000000000,-3,400000000000,-1,-6,400000000000,400000000000)^
8409
8410 ; --- MULTIPLICAND = (2,400000000000)
8411 ; --- MULTIPLIER === (-3,400000000000)
8412 ; --- RESULT ======= (-1,-6,400000000000,400000000000)
8413
8414 ..0566: MOVE AC1,[[EXP 2,400000000000,-3,400000000000,-1,-6,400000000000,400000000000],,
8415 037102 200 01 0 00 044260 MCAND]
8416 037103 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8417 037104 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8418 ERROR (..0566,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8419 037105 036 14 0 00 044013
8420 037106 035 00 0 00 037102 ERLOOP ..0566 ;IF ERROR, LOOP TO ..0566
8421 ^
8422
8423 037107 200 14 0 00 040733 ..0567: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8424 037110 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8425 ERROR (..0566,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8426 LL
8427 037111 036 13 0 00 044025
8428 037112 035 00 0 00 037102 ERLOOP ..0566 ;IF ERROR, LOOP TO ..0566
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 25-9
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST G SEQ 0195
8429 ^
8430 ^
8431
8432 ; **********************************************************************
8433 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8434 ; **********************************************************************
8435
8436 MULTF (G,-2,400000000000,3,400000000000,-1,-6,400000000000,400000000000)^
8437
8438 ; --- MULTIPLICAND = (-2,400000000000)
8439 ; --- MULTIPLIER === (3,400000000000)
8440 ; --- RESULT ======= (-1,-6,400000000000,400000000000)
8441
8442 ..0570: MOVE AC1,[[EXP -2,400000000000,3,400000000000,-1,-6,400000000000,400000000000],,
8443 037113 200 01 0 00 044271 MCAND]
8444 037114 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8445 037115 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8446 ERROR (..0570,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8447 037116 036 14 0 00 044013
8448 037117 035 00 0 00 037113 ERLOOP ..0570 ;IF ERROR, LOOP TO ..0570
8449 ^
8450
8451 037120 200 14 0 00 040733 ..0571: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8452 037121 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8453 ERROR (..0570,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8454 LL
8455 037122 036 13 0 00 044025
8456 037123 035 00 0 00 037113 ERLOOP ..0570 ;IF ERROR, LOOP TO ..0570
8457 ^
8458 ^
8459
8460 ; **********************************************************************
8461 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8462 ; **********************************************************************
8463
8464 MULTF (G,-2,0,3,400000000000,-1,-6,400000000000,400000000000)^
8465
8466 ; --- MULTIPLICAND = (-2,0)
8467 ; --- MULTIPLIER === (3,400000000000)
8468 ; --- RESULT ======= (-1,-6,400000000000,400000000000)
8469
8470 037124 200 01 0 00 044302 ..0572: MOVE AC1,[[EXP -2,0,3,400000000000,-1,-6,400000000000,400000000000],,MCAND]
8471 037125 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8472 037126 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8473 ERROR (..0572,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8474 037127 036 14 0 00 044013
8475 037130 035 00 0 00 037124 ERLOOP ..0572 ;IF ERROR, LOOP TO ..0572
8476 ^
8477
8478 037131 200 14 0 00 040733 ..0573: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8479 037132 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8480 ERROR (..0572,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8481 LL
8482 037133 036 13 0 00 044025
8483 037134 035 00 0 00 037124 ERLOOP ..0572 ;IF ERROR, LOOP TO ..0572
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 25-10
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST G SEQ 0196
8484 ^
8485 ^
8486
8487 ; **********************************************************************
8488 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8489 ; **********************************************************************
8490
8491 MULTF (G,-2,0,3,0,-1,-6,400000000000,400000000000)^
8492
8493 ; --- MULTIPLICAND = (-2,0)
8494 ; --- MULTIPLIER === (3,0)
8495 ; --- RESULT ======= (-1,-6,400000000000,400000000000)
8496
8497 037135 200 01 0 00 044313 ..0574: MOVE AC1,[[EXP -2,0,3,0,-1,-6,400000000000,400000000000],,MCAND]
8498 037136 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8499 037137 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8500 ERROR (..0574,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8501 037140 036 14 0 00 044013
8502 037141 035 00 0 00 037135 ERLOOP ..0574 ;IF ERROR, LOOP TO ..0574
8503 ^
8504
8505 037142 200 14 0 00 040733 ..0575: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8506 037143 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8507 ERROR (..0574,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8508 LL
8509 037144 036 13 0 00 044025
8510 037145 035 00 0 00 037135 ERLOOP ..0574 ;IF ERROR, LOOP TO ..0574
8511 ^
8512 ^
8513
8514 ; **********************************************************************
8515 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8516 ; **********************************************************************
8517
8518 MULTF (G,-2,400000000000,-3,0,0,6)^
8519
8520 ; --- MULTIPLICAND = (-2,400000000000)
8521 ; --- MULTIPLIER === (-3,0)
8522 ; --- RESULT ======= (0,6,0,0)
8523
8524 037146 200 01 0 00 044324 ..0576: MOVE AC1,[[EXP -2,400000000000,-3,0,0,6,0,0],,MCAND]
8525 037147 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8526 037150 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8527 ERROR (..0576,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8528 037151 036 14 0 00 044013
8529 037152 035 00 0 00 037146 ERLOOP ..0576 ;IF ERROR, LOOP TO ..0576
8530 ^
8531
8532 037153 200 14 0 00 040733 ..0577: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8533 037154 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8534 ERROR (..0576,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8535 LL
8536 037155 036 13 0 00 044025
8537 037156 035 00 0 00 037146 ERLOOP ..0576 ;IF ERROR, LOOP TO ..0576
8538 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 25-11
DFKCBM MAC 26-Sep-79 16:11 DMUL - TEST G SEQ 0197
8539 ^
8540
8541 ; **********************************************************************
8542 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8543 ; **********************************************************************
8544
8545 MULTF (G,-2,0,-3,0,0,6)^
8546
8547 ; --- MULTIPLICAND = (-2,0)
8548 ; --- MULTIPLIER === (-3,0)
8549 ; --- RESULT ======= (0,6,0,0)
8550
8551 037157 200 01 0 00 044335 ..0600: MOVE AC1,[[EXP -2,0,-3,0,0,6,0,0],,MCAND]
8552 037160 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8553 037161 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8554 ERROR (..0600,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8555 037162 036 14 0 00 044013
8556 037163 035 00 0 00 037157 ERLOOP ..0600 ;IF ERROR, LOOP TO ..0600
8557 ^
8558
8559 037164 200 14 0 00 040733 ..0601: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8560 037165 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8561 ERROR (..0600,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8562 LL
8563 037166 036 13 0 00 044025
8564 037167 035 00 0 00 037157 ERLOOP ..0600 ;IF ERROR, LOOP TO ..0600
8565 ^
8566 ^
8567
8568 ; **********************************************************************
8569 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ----------
8570 ; **********************************************************************
8571
8572 MULTF (G,-2,0,-3,400000000000,0,6)^
8573
8574 ; --- MULTIPLICAND = (-2,0)
8575 ; --- MULTIPLIER === (-3,400000000000)
8576 ; --- RESULT ======= (0,6,0,0)
8577
8578 037170 200 01 0 00 044346 ..0602: MOVE AC1,[[EXP -2,0,-3,400000000000,0,6,0,0],,MCAND]
8579 037171 251 01 0 00 040765 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE
8580 037172 260 17 0 00 040725 GO MSUBR ;GO DO TEST
8581 ERROR (..0602,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL
8582 037173 036 14 0 00 044013
8583 037174 035 00 0 00 037170 ERLOOP ..0602 ;IF ERROR, LOOP TO ..0602
8584 ^
8585
8586 037175 200 14 0 00 040733 ..0603: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS
8587 037176 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST
8588 ERROR (..0602,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA
8589 LL
8590 037177 036 13 0 00 044025
8591 037200 035 00 0 00 037170 ERLOOP ..0602 ;IF ERROR, LOOP TO ..0602
8592 ^
8593 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 26
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST A SEQ 0198
8594 SUBTTL DDIV - TEST A
8595 SALL
8596 044347 T=SIXBTZ<DDIV TEST>
8597 LALL
8598 ; **********************************************************************
8599 ;*DDIV - TEST A
8600 ;*
8601 ;* (0,0,0,#) / 1 THESE BASIC TESTS VERIFY THAT THE DDIV
8602 ;* (0,0,#,0) / 1 HANDLES A QUADRUPLE WORD DIVIDEND. FOR
8603 ;* EACH TEST ALL PERMUTATIONS OF POSITIVE
8604 ;* AND NEGATIVE OPERANDS ARE TESTED.
8605 ; **********************************************************************
8606
8607 ; **********************************************************************
8608 ; ---------- DDIV - TEST A - (0,0,0,#) / 1 ----------
8609 ; **********************************************************************
8610
8611 PDIV (A,0,0,0,NUM,0,1,0,NUM)^
8612
8613 ; --- DIVIDEND == (0,0,0,NUM)
8614 ; --- DIVISOR === (0,1)
8615 ; --- QUOTIENT == (0,NUM)
8616 ; --- REMAINDER = (0,0)
8617
8618 037201 200 01 0 00 044363 ..0604: MOVE AC1,[[EXP 0,0,0,NUM,0,1,0,NUM,0,0],,PDEND]
8619 037202 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8620 037203 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8621 ERROR (..0604,14,SCR1,SCR2,,TEST A - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8622 037204 036 14 0 00 044373
8623 037205 035 00 0 00 037201 ERLOOP ..0604 ;IF ERROR, LOOP TO ..0604
8624 ^
8625 ^
8626
8627 ; **********************************************************************
8628 ; ---------- DDIV - TEST A - (0,0,#,0) / 1 ----------
8629 ; **********************************************************************
8630
8631 PDIV (A,0,0,NUM,0,0,1,NUM,0)^
8632
8633 ; --- DIVIDEND == (0,0,NUM,0)
8634 ; --- DIVISOR === (0,1)
8635 ; --- QUOTIENT == (NUM,0)
8636 ; --- REMAINDER = (0,0)
8637
8638 037206 200 01 0 00 044410 ..0605: MOVE AC1,[[EXP 0,0,NUM,0,0,1,NUM,0,0,0],,PDEND]
8639 037207 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8640 037210 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8641 ERROR (..0605,14,SCR1,SCR2,,TEST A - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8642 037211 036 14 0 00 044373
8643 037212 035 00 0 00 037206 ERLOOP ..0605 ;IF ERROR, LOOP TO ..0605
8644 ^
8645 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 27
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST B SEQ 0199
8646 SUBTTL DDIV - TEST B
8647
8648 ; **********************************************************************
8649 ;*DDIV - TEST B
8650 ;*
8651 ;* (0,0,0,#) / # THESE TESTS PERFORM SOME CASES MORE
8652 ;* (0,0,#,0) / (#,0) DIFFICULT THAN (A). PERMUTATIONS OF
8653 ;* POSITIVE AND NEGATIVE OPERANDS ARE
8654 ;* TESTED.
8655 ; **********************************************************************
8656
8657 ; **********************************************************************
8658 ; ---------- DDIV - TEST B - (0,0,0,#) / # ----------
8659 ; **********************************************************************
8660
8661 PDIV (B,0,0,0,NUM,0,NUM,0,1)^
8662
8663 ; --- DIVIDEND == (0,0,0,NUM)
8664 ; --- DIVISOR === (0,NUM)
8665 ; --- QUOTIENT == (0,1)
8666 ; --- REMAINDER = (0,0)
8667
8668 037213 200 01 0 00 044423 ..0606: MOVE AC1,[[EXP 0,0,0,NUM,0,NUM,0,1,0,0],,PDEND]
8669 037214 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8670 037215 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8671 ERROR (..0606,14,SCR1,SCR2,,TEST B - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8672 037216 036 14 0 00 044433
8673 037217 035 00 0 00 037213 ERLOOP ..0606 ;IF ERROR, LOOP TO ..0606
8674 ^
8675 ^
8676
8677 ; **********************************************************************
8678 ; ---------- DDIV - TEST B - (0,0,#,0) / #,0 ----------
8679 ; **********************************************************************
8680
8681 PDIV (B,0,0,NUM,0,NUM,0,0,1)^
8682
8683 ; --- DIVIDEND == (0,0,NUM,0)
8684 ; --- DIVISOR === (NUM,0)
8685 ; --- QUOTIENT == (0,1)
8686 ; --- REMAINDER = (0,0)
8687
8688 037220 200 01 0 00 044450 ..0607: MOVE AC1,[[EXP 0,0,NUM,0,NUM,0,0,1,0,0],,PDEND]
8689 037221 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8690 037222 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8691 ERROR (..0607,14,SCR1,SCR2,,TEST B - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8692 037223 036 14 0 00 044433
8693 037224 035 00 0 00 037220 ERLOOP ..0607 ;IF ERROR, LOOP TO ..0607
8694 ^
8695 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 28
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST C SEQ 0200
8696 SUBTTL DDIV - TEST C
8697
8698 ; **********************************************************************
8699 ;*DDIV - TEST C
8700 ;*
8701 ;* (0,0,0,1) (0,0,1,0) (0,0,1,0) (0,1,0,0) (0,1,0,0) (1,0,0,0)
8702 ;* ------- ------- ------- ------- ------- -------
8703 ;* 2 2 2,0 2 2,0 2,0
8704 ;*
8705 ;* THESE TESTS PERFORM DIVISIONS WHICH RESULT IN A SHIFT OF THE
8706 ;* THE DIVIDEND ACROSS WORD BOUNDARIES.
8707 ;* THESE TESTS ARE REPEATED FOR THE VARIOUS PERMUTATIONS OF
8708 ;* POSITIVE AND NEGATIVE OPERANDS.
8709 ; **********************************************************************
8710
8711 ; **********************************************************************
8712 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
8713 ; **********************************************************************
8714
8715 PDIV (C,0,0,0,1,0,2,0,0,0,1)^
8716
8717 ; --- DIVIDEND == (0,0,0,1)
8718 ; --- DIVISOR === (0,2)
8719 ; --- QUOTIENT == (0,0)
8720 ; --- REMAINDER = (0,1)
8721
8722 037225 200 01 0 00 044463 ..0610: MOVE AC1,[[EXP 0,0,0,1,0,2,0,0,0,1],,PDEND]
8723 037226 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8724 037227 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8725 ERROR (..0610,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8726 037230 036 14 0 00 044473
8727 037231 035 00 0 00 037225 ERLOOP ..0610 ;IF ERROR, LOOP TO ..0610
8728 ^
8729 ^
8730
8731 ; **********************************************************************
8732 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
8733 ; **********************************************************************
8734
8735 PDIV (C,0,0,1,0,0,2,0,200000000000,0,0)^
8736
8737 ; --- DIVIDEND == (0,0,1,0)
8738 ; --- DIVISOR === (0,2)
8739 ; --- QUOTIENT == (0,200000000000)
8740 ; --- REMAINDER = (0,0)
8741
8742 037232 200 01 0 00 044510 ..0611: MOVE AC1,[[EXP 0,0,1,0,0,2,0,200000000000,0,0],,PDEND]
8743 037233 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8744 037234 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8745 ERROR (..0611,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8746 037235 036 14 0 00 044473
8747 037236 035 00 0 00 037232 ERLOOP ..0611 ;IF ERROR, LOOP TO ..0611
8748 ^
8749 ^
8750
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 28-1
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST C SEQ 0201
8751 ; **********************************************************************
8752 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
8753 ; **********************************************************************
8754
8755 PDIV (C,0,0,1,0,2,0,0,0,1,0)^
8756
8757 ; --- DIVIDEND == (0,0,1,0)
8758 ; --- DIVISOR === (2,0)
8759 ; --- QUOTIENT == (0,0)
8760 ; --- REMAINDER = (1,0)
8761
8762 037237 200 01 0 00 044523 ..0612: MOVE AC1,[[EXP 0,0,1,0,2,0,0,0,1,0],,PDEND]
8763 037240 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8764 037241 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8765 ERROR (..0612,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8766 037242 036 14 0 00 044473
8767 037243 035 00 0 00 037237 ERLOOP ..0612 ;IF ERROR, LOOP TO ..0612
8768 ^
8769 ^
8770
8771 ; **********************************************************************
8772 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
8773 ; **********************************************************************
8774
8775 PDIV (C,0,1,0,0,0,2,200000000000,0,0,0)^
8776
8777 ; --- DIVIDEND == (0,1,0,0)
8778 ; --- DIVISOR === (0,2)
8779 ; --- QUOTIENT == (200000000000,0)
8780 ; --- REMAINDER = (0,0)
8781
8782 037244 200 01 0 00 044536 ..0613: MOVE AC1,[[EXP 0,1,0,0,0,2,200000000000,0,0,0],,PDEND]
8783 037245 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8784 037246 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8785 ERROR (..0613,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8786 037247 036 14 0 00 044473
8787 037250 035 00 0 00 037244 ERLOOP ..0613 ;IF ERROR, LOOP TO ..0613
8788 ^
8789 ^
8790
8791 ; **********************************************************************
8792 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
8793 ; **********************************************************************
8794
8795 PDIV (C,0,1,0,0,2,0,0,200000000000,0,0)^
8796
8797 ; --- DIVIDEND == (0,1,0,0)
8798 ; --- DIVISOR === (2,0)
8799 ; --- QUOTIENT == (0,200000000000)
8800 ; --- REMAINDER = (0,0)
8801
8802 037251 200 01 0 00 044551 ..0614: MOVE AC1,[[EXP 0,1,0,0,2,0,0,200000000000,0,0],,PDEND]
8803 037252 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8804 037253 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8805 ERROR (..0614,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 28-2
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST C SEQ 0202
8806 037254 036 14 0 00 044473
8807 037255 035 00 0 00 037251 ERLOOP ..0614 ;IF ERROR, LOOP TO ..0614
8808 ^
8809 ^
8810
8811 ; **********************************************************************
8812 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
8813 ; **********************************************************************
8814
8815 PDIV (C,1,0,0,0,2,0,200000000000,0,0,0)^
8816
8817 ; --- DIVIDEND == (1,0,0,0)
8818 ; --- DIVISOR === (2,0)
8819 ; --- QUOTIENT == (200000000000,0)
8820 ; --- REMAINDER = (0,0)
8821
8822 037256 200 01 0 00 044564 ..0615: MOVE AC1,[[EXP 1,0,0,0,2,0,200000000000,0,0,0],,PDEND]
8823 037257 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8824 037260 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8825 ERROR (..0615,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8826 037261 036 14 0 00 044473
8827 037262 035 00 0 00 037256 ERLOOP ..0615 ;IF ERROR, LOOP TO ..0615
8828 ^
8829 ^
8830
8831 ; **********************************************************************
8832 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
8833 ; **********************************************************************
8834
8835 PDIV (C,-1,-1,-1,-1,0,2,0,0,-1,-1)^
8836
8837 ; --- DIVIDEND == (-1,-1,-1,-1)
8838 ; --- DIVISOR === (0,2)
8839 ; --- QUOTIENT == (0,0)
8840 ; --- REMAINDER = (-1,-1)
8841
8842 037263 200 01 0 00 044577 ..0616: MOVE AC1,[[EXP -1,-1,-1,-1,0,2,0,0,-1,-1],,PDEND]
8843 037264 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8844 037265 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8845 ERROR (..0616,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8846 037266 036 14 0 00 044473
8847 037267 035 00 0 00 037263 ERLOOP ..0616 ;IF ERROR, LOOP TO ..0616
8848 ^
8849 ^
8850
8851 ; **********************************************************************
8852 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
8853 ; **********************************************************************
8854
8855 PDIV (C,-1,-1,-1,1B0,0,2,-1,600000000000,0,0)^
8856
8857 ; --- DIVIDEND == (-1,-1,-1,1B0)
8858 ; --- DIVISOR === (0,2)
8859 ; --- QUOTIENT == (-1,600000000000)
8860 ; --- REMAINDER = (0,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 28-3
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST C SEQ 0203
8861
8862 037270 200 01 0 00 044612 ..0617: MOVE AC1,[[EXP -1,-1,-1,1B0,0,2,-1,600000000000,0,0],,PDEND]
8863 037271 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8864 037272 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8865 ERROR (..0617,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8866 037273 036 14 0 00 044473
8867 037274 035 00 0 00 037270 ERLOOP ..0617 ;IF ERROR, LOOP TO ..0617
8868 ^
8869 ^
8870
8871 ; **********************************************************************
8872 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
8873 ; **********************************************************************
8874
8875 PDIV (C,-1,-1,-1,1B0,2,0,0,0,-1,1B0)^
8876
8877 ; --- DIVIDEND == (-1,-1,-1,1B0)
8878 ; --- DIVISOR === (2,0)
8879 ; --- QUOTIENT == (0,0)
8880 ; --- REMAINDER = (-1,1B0)
8881
8882 037275 200 01 0 00 044625 ..0620: MOVE AC1,[[EXP -1,-1,-1,1B0,2,0,0,0,-1,1B0],,PDEND]
8883 037276 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8884 037277 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8885 ERROR (..0620,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8886 037300 036 14 0 00 044473
8887 037301 035 00 0 00 037275 ERLOOP ..0620 ;IF ERROR, LOOP TO ..0620
8888 ^
8889 ^
8890
8891 ; **********************************************************************
8892 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
8893 ; **********************************************************************
8894
8895 PDIV (C,-1,-1,1B0,1B0,0,2,600000000000,1B0,0,0)^
8896
8897 ; --- DIVIDEND == (-1,-1,1B0,1B0)
8898 ; --- DIVISOR === (0,2)
8899 ; --- QUOTIENT == (600000000000,1B0)
8900 ; --- REMAINDER = (0,0)
8901
8902 037302 200 01 0 00 044640 ..0621: MOVE AC1,[[EXP -1,-1,1B0,1B0,0,2,600000000000,1B0,0,0],,PDEND]
8903 037303 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8904 037304 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8905 ERROR (..0621,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8906 037305 036 14 0 00 044473
8907 037306 035 00 0 00 037302 ERLOOP ..0621 ;IF ERROR, LOOP TO ..0621
8908 ^
8909 ^
8910
8911 ; **********************************************************************
8912 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
8913 ; **********************************************************************
8914
8915 PDIV (C,-1,-1,1B0,1B0,2,0,-1,600000000000,0,0)^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 28-4
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST C SEQ 0204
8916
8917 ; --- DIVIDEND == (-1,-1,1B0,1B0)
8918 ; --- DIVISOR === (2,0)
8919 ; --- QUOTIENT == (-1,600000000000)
8920 ; --- REMAINDER = (0,0)
8921
8922 037307 200 01 0 00 044653 ..0622: MOVE AC1,[[EXP -1,-1,1B0,1B0,2,0,-1,600000000000,0,0],,PDEND]
8923 037310 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8924 037311 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8925 ERROR (..0622,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8926 037312 036 14 0 00 044473
8927 037313 035 00 0 00 037307 ERLOOP ..0622 ;IF ERROR, LOOP TO ..0622
8928 ^
8929 ^
8930
8931 ; **********************************************************************
8932 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
8933 ; **********************************************************************
8934
8935 PDIV (C,-1,1B0,1B0,1B0,2,0,600000000000,1B0,0,0)^
8936
8937 ; --- DIVIDEND == (-1,1B0,1B0,1B0)
8938 ; --- DIVISOR === (2,0)
8939 ; --- QUOTIENT == (600000000000,1B0)
8940 ; --- REMAINDER = (0,0)
8941
8942 037314 200 01 0 00 044666 ..0623: MOVE AC1,[[EXP -1,1B0,1B0,1B0,2,0,600000000000,1B0,0,0],,PDEND]
8943 037315 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8944 037316 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8945 ERROR (..0623,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8946 037317 036 14 0 00 044473
8947 037320 035 00 0 00 037314 ERLOOP ..0623 ;IF ERROR, LOOP TO ..0623
8948 ^
8949 ^
8950
8951 ; **********************************************************************
8952 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
8953 ; **********************************************************************
8954
8955 PDIV (C,0,0,0,1,-1,-2,0,0,0,1)^
8956
8957 ; --- DIVIDEND == (0,0,0,1)
8958 ; --- DIVISOR === (-1,-2)
8959 ; --- QUOTIENT == (0,0)
8960 ; --- REMAINDER = (0,1)
8961
8962 037321 200 01 0 00 044701 ..0624: MOVE AC1,[[EXP 0,0,0,1,-1,-2,0,0,0,1],,PDEND]
8963 037322 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8964 037323 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8965 ERROR (..0624,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8966 037324 036 14 0 00 044473
8967 037325 035 00 0 00 037321 ERLOOP ..0624 ;IF ERROR, LOOP TO ..0624
8968 ^
8969 ^
8970
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 28-5
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST C SEQ 0205
8971 ; **********************************************************************
8972 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
8973 ; **********************************************************************
8974
8975 PDIV (C,0,0,1,0,-1,-2,-1,600000000000,0,0)^
8976
8977 ; --- DIVIDEND == (0,0,1,0)
8978 ; --- DIVISOR === (-1,-2)
8979 ; --- QUOTIENT == (-1,600000000000)
8980 ; --- REMAINDER = (0,0)
8981
8982 037326 200 01 0 00 044714 ..0625: MOVE AC1,[[EXP 0,0,1,0,-1,-2,-1,600000000000,0,0],,PDEND]
8983 037327 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
8984 037330 260 17 0 00 040767 GO PSUBR ;GO DO TEST
8985 ERROR (..0625,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
8986 037331 036 14 0 00 044473
8987 037332 035 00 0 00 037326 ERLOOP ..0625 ;IF ERROR, LOOP TO ..0625
8988 ^
8989 ^
8990
8991 ; **********************************************************************
8992 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
8993 ; **********************************************************************
8994
8995 PDIV (C,0,0,1,0,-2,1B0,0,0,1,0)^
8996
8997 ; --- DIVIDEND == (0,0,1,0)
8998 ; --- DIVISOR === (-2,1B0)
8999 ; --- QUOTIENT == (0,0)
9000 ; --- REMAINDER = (1,0)
9001
9002 037333 200 01 0 00 044727 ..0626: MOVE AC1,[[EXP 0,0,1,0,-2,1B0,0,0,1,0],,PDEND]
9003 037334 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9004 037335 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9005 ERROR (..0626,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9006 037336 036 14 0 00 044473
9007 037337 035 00 0 00 037333 ERLOOP ..0626 ;IF ERROR, LOOP TO ..0626
9008 ^
9009 ^
9010
9011 ; **********************************************************************
9012 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
9013 ; **********************************************************************
9014
9015 PDIV (C,0,1,0,0,-1,-2,600000000000,1B0,0,0)^
9016
9017 ; --- DIVIDEND == (0,1,0,0)
9018 ; --- DIVISOR === (-1,-2)
9019 ; --- QUOTIENT == (600000000000,1B0)
9020 ; --- REMAINDER = (0,0)
9021
9022 037340 200 01 0 00 044742 ..0627: MOVE AC1,[[EXP 0,1,0,0,-1,-2,600000000000,1B0,0,0],,PDEND]
9023 037341 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9024 037342 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9025 ERROR (..0627,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 28-6
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST C SEQ 0206
9026 037343 036 14 0 00 044473
9027 037344 035 00 0 00 037340 ERLOOP ..0627 ;IF ERROR, LOOP TO ..0627
9028 ^
9029 ^
9030
9031 ; **********************************************************************
9032 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
9033 ; **********************************************************************
9034
9035 PDIV (C,0,1,0,0,-2,1B0,-1,600000000000,0,0)^
9036
9037 ; --- DIVIDEND == (0,1,0,0)
9038 ; --- DIVISOR === (-2,1B0)
9039 ; --- QUOTIENT == (-1,600000000000)
9040 ; --- REMAINDER = (0,0)
9041
9042 037345 200 01 0 00 044755 ..0630: MOVE AC1,[[EXP 0,1,0,0,-2,1B0,-1,600000000000,0,0],,PDEND]
9043 037346 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9044 037347 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9045 ERROR (..0630,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9046 037350 036 14 0 00 044473
9047 037351 035 00 0 00 037345 ERLOOP ..0630 ;IF ERROR, LOOP TO ..0630
9048 ^
9049 ^
9050
9051 ; **********************************************************************
9052 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
9053 ; **********************************************************************
9054
9055 PDIV (C,1,0,0,0,-2,1B0,600000000000,1B0,0,0)^
9056
9057 ; --- DIVIDEND == (1,0,0,0)
9058 ; --- DIVISOR === (-2,1B0)
9059 ; --- QUOTIENT == (600000000000,1B0)
9060 ; --- REMAINDER = (0,0)
9061
9062 037352 200 01 0 00 044770 ..0631: MOVE AC1,[[EXP 1,0,0,0,-2,1B0,600000000000,1B0,0,0],,PDEND]
9063 037353 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9064 037354 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9065 ERROR (..0631,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9066 037355 036 14 0 00 044473
9067 037356 035 00 0 00 037352 ERLOOP ..0631 ;IF ERROR, LOOP TO ..0631
9068 ^
9069 ^
9070
9071 ; **********************************************************************
9072 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
9073 ; **********************************************************************
9074
9075 PDIV (C,-1,-1,-1,-1,-1,-2,0,0,-1,-1)^
9076
9077 ; --- DIVIDEND == (-1,-1,-1,-1)
9078 ; --- DIVISOR === (-1,-2)
9079 ; --- QUOTIENT == (0,0)
9080 ; --- REMAINDER = (-1,-1)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 28-7
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST C SEQ 0207
9081
9082 037357 200 01 0 00 045003 ..0632: MOVE AC1,[[EXP -1,-1,-1,-1,-1,-2,0,0,-1,-1],,PDEND]
9083 037360 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9084 037361 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9085 ERROR (..0632,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9086 037362 036 14 0 00 044473
9087 037363 035 00 0 00 037357 ERLOOP ..0632 ;IF ERROR, LOOP TO ..0632
9088 ^
9089 ^
9090
9091 ; **********************************************************************
9092 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
9093 ; **********************************************************************
9094
9095 PDIV (C,-1,-1,-1,1B0,-1,-2,0,200000000000,0,0)^
9096
9097 ; --- DIVIDEND == (-1,-1,-1,1B0)
9098 ; --- DIVISOR === (-1,-2)
9099 ; --- QUOTIENT == (0,200000000000)
9100 ; --- REMAINDER = (0,0)
9101
9102 037364 200 01 0 00 045016 ..0633: MOVE AC1,[[EXP -1,-1,-1,1B0,-1,-2,0,200000000000,0,0],,PDEND]
9103 037365 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9104 037366 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9105 ERROR (..0633,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9106 037367 036 14 0 00 044473
9107 037370 035 00 0 00 037364 ERLOOP ..0633 ;IF ERROR, LOOP TO ..0633
9108 ^
9109 ^
9110
9111 ; **********************************************************************
9112 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
9113 ; **********************************************************************
9114
9115 PDIV (C,-1,-1,-1,1B0,-2,1B0,0,0,-1,1B0)^
9116
9117 ; --- DIVIDEND == (-1,-1,-1,1B0)
9118 ; --- DIVISOR === (-2,1B0)
9119 ; --- QUOTIENT == (0,0)
9120 ; --- REMAINDER = (-1,1B0)
9121
9122 037371 200 01 0 00 045031 ..0634: MOVE AC1,[[EXP -1,-1,-1,1B0,-2,1B0,0,0,-1,1B0],,PDEND]
9123 037372 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9124 037373 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9125 ERROR (..0634,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9126 037374 036 14 0 00 044473
9127 037375 035 00 0 00 037371 ERLOOP ..0634 ;IF ERROR, LOOP TO ..0634
9128 ^
9129 ^
9130
9131 ; **********************************************************************
9132 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
9133 ; **********************************************************************
9134
9135 PDIV (C,-1,-1,1B0,1B0,-1,-2,200000000000,0,0,0)^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 28-8
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST C SEQ 0208
9136
9137 ; --- DIVIDEND == (-1,-1,1B0,1B0)
9138 ; --- DIVISOR === (-1,-2)
9139 ; --- QUOTIENT == (200000000000,0)
9140 ; --- REMAINDER = (0,0)
9141
9142 037376 200 01 0 00 045044 ..0635: MOVE AC1,[[EXP -1,-1,1B0,1B0,-1,-2,200000000000,0,0,0],,PDEND]
9143 037377 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9144 037400 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9145 ERROR (..0635,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9146 037401 036 14 0 00 044473
9147 037402 035 00 0 00 037376 ERLOOP ..0635 ;IF ERROR, LOOP TO ..0635
9148 ^
9149 ^
9150
9151 ; **********************************************************************
9152 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
9153 ; **********************************************************************
9154
9155 PDIV (C,-1,-1,1B0,1B0,-2,1B0,0,200000000000,0,0)^
9156
9157 ; --- DIVIDEND == (-1,-1,1B0,1B0)
9158 ; --- DIVISOR === (-2,1B0)
9159 ; --- QUOTIENT == (0,200000000000)
9160 ; --- REMAINDER = (0,0)
9161
9162 037403 200 01 0 00 045057 ..0636: MOVE AC1,[[EXP -1,-1,1B0,1B0,-2,1B0,0,200000000000,0,0],,PDEND]
9163 037404 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9164 037405 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9165 ERROR (..0636,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9166 037406 036 14 0 00 044473
9167 037407 035 00 0 00 037403 ERLOOP ..0636 ;IF ERROR, LOOP TO ..0636
9168 ^
9169 ^
9170
9171 ; **********************************************************************
9172 ; ---------- DDIV - TEST C (GENERAL TESTING) ----------
9173 ; **********************************************************************
9174
9175 PDIV (C,-1,1B0,1B0,1B0,-2,1B0,200000000000,0,0,0)^
9176
9177 ; --- DIVIDEND == (-1,1B0,1B0,1B0)
9178 ; --- DIVISOR === (-2,1B0)
9179 ; --- QUOTIENT == (200000000000,0)
9180 ; --- REMAINDER = (0,0)
9181
9182 037410 200 01 0 00 045072 ..0637: MOVE AC1,[[EXP -1,1B0,1B0,1B0,-2,1B0,200000000000,0,0,0],,PDEND]
9183 037411 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9184 037412 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9185 ERROR (..0637,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9186 037413 036 14 0 00 044473
9187 037414 035 00 0 00 037410 ERLOOP ..0637 ;IF ERROR, LOOP TO ..0637
9188 ^
9189 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 29
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST D SEQ 0209
9190 SUBTTL DDIV - TEST D
9191
9192 ; **********************************************************************
9193 ;*DDIV - TEST D
9194 ;*
9195 ;* MISCELLANEOUS TESTING. THESE TESTS DIVIDE 2 NUMBERS AND JUST
9196 ;* CHECK TO SEE THAT THE DDIV GETS THE CORRECT ANSWERS.
9197 ; **********************************************************************
9198
9199 111111 111111 ONE=111111111111
9200 222222 222222 TWO=222222222222
9201 333333 333333 THREE=333333333333
9202 444444 444444 FOUR=444444444444
9203 555555 555555 FIVE=555555555555
9204
9205 ; **********************************************************************
9206 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ----------
9207 ; **********************************************************************
9208
9209 PDIVF (D,THREE,THREE,THREE,THREE,344444444444,FOUR,365605075342,070414545131,0556
9210 32516360,373564760527)^
9211
9212 ; --- DIVIDEND == (THREE,THREE,THREE,THREE)
9213 ; --- DIVISOR === (344444444444,FOUR)
9214 ; --- QUOTIENT == (365605075342,070414545131)
9215 ; --- REMAINDER = (055632516360,373564760527)
9216
9217 ..0640: MOVE AC1,[[EXP THREE,THREE,THREE,THREE,344444444444,FOUR,365605075342,0704145451
9218 037415 200 01 0 00 045105 31,055632516360,373564760527],,PDEND]
9219 037416 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9220 037417 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9221 ERROR (..0640,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9222 037420 036 14 0 00 045115
9223 037421 035 00 0 00 037415 ERLOOP ..0640 ;IF ERROR, LOOP TO ..0640
9224 ^
9225
9226 037422 200 14 0 00 040775 ..0641: MOVE SCR2,PFLOC ;GET PC
9227 037423 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9228 ERROR (..0640,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9229 LL
9230 037424 036 13 0 00 045127
9231 037425 035 00 0 00 037415 ERLOOP ..0640 ;IF ERROR, LOOP TO ..0640
9232 ^
9233 ^
9234
9235 ; **********************************************************************
9236 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ----------
9237 ; **********************************************************************
9238
9239 PDIVF (D,THREE,FOUR,THREE,FOUR,344444444444,THREE,365605075340,247073632327,21367
9240 2200375,376365035467)^
9241
9242 ; --- DIVIDEND == (THREE,FOUR,THREE,FOUR)
9243 ; --- DIVISOR === (344444444444,THREE)
9244 ; --- QUOTIENT == (365605075340,247073632327)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 29-1
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST D SEQ 0210
9245 ; --- REMAINDER = (213672200375,376365035467)
9246
9247 ..0642: MOVE AC1,[[EXP THREE,FOUR,THREE,FOUR,344444444444,THREE,365605075340,24707363232
9248 037426 200 01 0 00 045144 7,213672200375,376365035467],,PDEND]
9249 037427 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9250 037430 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9251 ERROR (..0642,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9252 037431 036 14 0 00 045115
9253 037432 035 00 0 00 037426 ERLOOP ..0642 ;IF ERROR, LOOP TO ..0642
9254 ^
9255
9256 037433 200 14 0 00 040775 ..0643: MOVE SCR2,PFLOC ;GET PC
9257 037434 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9258 ERROR (..0642,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9259 LL
9260 037435 036 13 0 00 045127
9261 037436 035 00 0 00 037426 ERLOOP ..0642 ;IF ERROR, LOOP TO ..0642
9262 ^
9263 ^
9264
9265 ; **********************************************************************
9266 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ----------
9267 ; **********************************************************************
9268
9269 PDIVF (D,TWO,TWO,TWO,TWO,THREE,THREE,252525252525,125252525253,ONE,ONE)^
9270
9271 ; --- DIVIDEND == (TWO,TWO,TWO,TWO)
9272 ; --- DIVISOR === (THREE,THREE)
9273 ; --- QUOTIENT == (252525252525,125252525253)
9274 ; --- REMAINDER = (ONE,ONE)
9275
9276 ..0644: MOVE AC1,[[EXP TWO,TWO,TWO,TWO,THREE,THREE,252525252525,125252525253,ONE,ONE],,P
9277 037437 200 01 0 00 045157 DEND]
9278 037440 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9279 037441 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9280 ERROR (..0644,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9281 037442 036 14 0 00 045115
9282 037443 035 00 0 00 037437 ERLOOP ..0644 ;IF ERROR, LOOP TO ..0644
9283 ^
9284
9285 037444 200 14 0 00 040775 ..0645: MOVE SCR2,PFLOC ;GET PC
9286 037445 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9287 ERROR (..0644,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9288 LL
9289 037446 036 13 0 00 045127
9290 037447 035 00 0 00 037437 ERLOOP ..0644 ;IF ERROR, LOOP TO ..0644
9291 ^
9292 ^
9293
9294 ; **********************************************************************
9295 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ----------
9296 ; **********************************************************************
9297
9298 PDIVF (D,TWO,THREE,TWO,THREE,THREE,FOUR,252525252526,070707070710,004040404041,32
9299 7272727273)^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 29-2
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST D SEQ 0211
9300
9301 ; --- DIVIDEND == (TWO,THREE,TWO,THREE)
9302 ; --- DIVISOR === (THREE,FOUR)
9303 ; --- QUOTIENT == (252525252526,070707070710)
9304 ; --- REMAINDER = (004040404041,327272727273)
9305
9306 ..0646: MOVE AC1,[[EXP TWO,THREE,TWO,THREE,THREE,FOUR,252525252526,070707070710,00404040
9307 037450 200 01 0 00 045172 4041,327272727273],,PDEND]
9308 037451 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9309 037452 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9310 ERROR (..0646,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9311 037453 036 14 0 00 045115
9312 037454 035 00 0 00 037450 ERLOOP ..0646 ;IF ERROR, LOOP TO ..0646
9313 ^
9314
9315 037455 200 14 0 00 040775 ..0647: MOVE SCR2,PFLOC ;GET PC
9316 037456 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9317 ERROR (..0646,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9318 LL
9319 037457 036 13 0 00 045127
9320 037460 035 00 0 00 037450 ERLOOP ..0646 ;IF ERROR, LOOP TO ..0646
9321 ^
9322 ^
9323
9324 ; **********************************************************************
9325 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ----------
9326 ; **********************************************************************
9327
9328 PDIVF (D,255555555555,FIVE,FIVE,FIVE,311111111111,ONE,335056427213,035475265746,1
9329 44375704605,004166365327)^
9330
9331 ; --- DIVIDEND == (255555555555,FIVE,FIVE,FIVE)
9332 ; --- DIVISOR === (311111111111,ONE)
9333 ; --- QUOTIENT == (335056427213,035475265746)
9334 ; --- REMAINDER = (144375704605,004166365327)
9335
9336 ..0650: MOVE AC1,[[EXP 255555555555,FIVE,FIVE,FIVE,311111111111,ONE,335056427213,0354752
9337 037461 200 01 0 00 045205 65746,144375704605,004166365327],,PDEND]
9338 037462 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9339 037463 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9340 ERROR (..0650,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9341 037464 036 14 0 00 045115
9342 037465 035 00 0 00 037461 ERLOOP ..0650 ;IF ERROR, LOOP TO ..0650
9343 ^
9344
9345 037466 200 14 0 00 040775 ..0651: MOVE SCR2,PFLOC ;GET PC
9346 037467 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9347 ERROR (..0650,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9348 LL
9349 037470 036 13 0 00 045127
9350 037471 035 00 0 00 037461 ERLOOP ..0650 ;IF ERROR, LOOP TO ..0650
9351 ^
9352 ^
9353
9354 ; **********************************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 29-3
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST D SEQ 0212
9355 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ----------
9356 ; **********************************************************************
9357
9358 PDIVF (D,255555555555,TWO,FIVE,TWO,311111111111,666666666666,335056427212,3234437
9359 57047,240023257716,107503314730)^
9360
9361 ; --- DIVIDEND == (255555555555,TWO,FIVE,TWO)
9362 ; --- DIVISOR === (311111111111,666666666666)
9363 ; --- QUOTIENT == (335056427212,323443757047)
9364 ; --- REMAINDER = (240023257716,107503314730)
9365
9366 ..0652: MOVE AC1,[[EXP 255555555555,TWO,FIVE,TWO,311111111111,666666666666,335056427212,
9367 037472 200 01 0 00 045220 323443757047,240023257716,107503314730],,PDEND]
9368 037473 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9369 037474 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9370 ERROR (..0652,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9371 037475 036 14 0 00 045115
9372 037476 035 00 0 00 037472 ERLOOP ..0652 ;IF ERROR, LOOP TO ..0652
9373 ^
9374
9375 037477 200 14 0 00 040775 ..0653: MOVE SCR2,PFLOC ;GET PC
9376 037500 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9377 ERROR (..0652,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9378 LL
9379 037501 036 13 0 00 045127
9380 037502 035 00 0 00 037472 ERLOOP ..0652 ;IF ERROR, LOOP TO ..0652
9381 ^
9382 ^
9383
9384 ; **********************************************************************
9385 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ----------
9386 ; **********************************************************************
9387
9388 123456 123456 K=123456123456
9389 PDIVF (D,K,K,K,K,234567234567,234567234567,210420323476,136703233600,055256055256
9390 ,055256055256)^
9391
9392 ; --- DIVIDEND == (K,K,K,K)
9393 ; --- DIVISOR === (234567234567,234567234567)
9394 ; --- QUOTIENT == (210420323476,136703233600)
9395 ; --- REMAINDER = (055256055256,055256055256)
9396
9397 ..0654: MOVE AC1,[[EXP K,K,K,K,234567234567,234567234567,210420323476,136703233600,05525
9398 037503 200 01 0 00 045233 6055256,055256055256],,PDEND]
9399 037504 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9400 037505 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9401 ERROR (..0654,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9402 037506 036 14 0 00 045115
9403 037507 035 00 0 00 037503 ERLOOP ..0654 ;IF ERROR, LOOP TO ..0654
9404 ^
9405
9406 037510 200 14 0 00 040775 ..0655: MOVE SCR2,PFLOC ;GET PC
9407 037511 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9408 ERROR (..0654,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9409 LL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 29-4
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST D SEQ 0213
9410 037512 036 13 0 00 045127
9411 037513 035 00 0 00 037503 ERLOOP ..0654 ;IF ERROR, LOOP TO ..0654
9412 ^
9413 ^
9414
9415 ; **********************************************************************
9416 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ----------
9417 ; **********************************************************************
9418
9419 PDIVF (D,FOUR,FOUR,FOUR,FOUR,THREE,333333333334,1B0,400000000001,511111111110,511
9420 111111110)^
9421
9422 ; --- DIVIDEND == (FOUR,FOUR,FOUR,FOUR)
9423 ; --- DIVISOR === (THREE,333333333334)
9424 ; --- QUOTIENT == (1B0,400000000001)
9425 ; --- REMAINDER = (511111111110,511111111110)
9426
9427 ..0656: MOVE AC1,[[EXP FOUR,FOUR,FOUR,FOUR,THREE,333333333334,1B0,400000000001,511111111
9428 037514 200 01 0 00 045246 110,511111111110],,PDEND]
9429 037515 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9430 037516 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9431 ERROR (..0656,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9432 037517 036 14 0 00 045115
9433 037520 035 00 0 00 037514 ERLOOP ..0656 ;IF ERROR, LOOP TO ..0656
9434 ^
9435
9436 037521 200 14 0 00 040775 ..0657: MOVE SCR2,PFLOC ;GET PC
9437 037522 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9438 ERROR (..0656,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9439 LL
9440 037523 036 13 0 00 045127
9441 037524 035 00 0 00 037514 ERLOOP ..0656 ;IF ERROR, LOOP TO ..0656
9442 ^
9443 ^
9444
9445 ; **********************************************************************
9446 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ----------
9447 ; **********************************************************************
9448
9449 PDIVF (D,FIVE,FIVE,FIVE,FIVE,FOUR,FOUR,252525252525,125252525252,606060606060,460
9450 606060605)^
9451
9452 ; --- DIVIDEND == (FIVE,FIVE,FIVE,FIVE)
9453 ; --- DIVISOR === (FOUR,FOUR)
9454 ; --- QUOTIENT == (252525252525,125252525252)
9455 ; --- REMAINDER = (606060606060,460606060605)
9456
9457 ..0660: MOVE AC1,[[EXP FIVE,FIVE,FIVE,FIVE,FOUR,FOUR,252525252525,125252525252,606060606
9458 037525 200 01 0 00 045261 060,460606060605],,PDEND]
9459 037526 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9460 037527 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9461 ERROR (..0660,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9462 037530 036 14 0 00 045115
9463 037531 035 00 0 00 037525 ERLOOP ..0660 ;IF ERROR, LOOP TO ..0660
9464 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 29-5
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST D SEQ 0214
9465
9466 037532 200 14 0 00 040775 ..0661: MOVE SCR2,PFLOC ;GET PC
9467 037533 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9468 ERROR (..0660,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9469 LL
9470 037534 036 13 0 00 045127
9471 037535 035 00 0 00 037525 ERLOOP ..0660 ;IF ERROR, LOOP TO ..0660
9472 ^
9473 ^
9474
9475 ; **********************************************************************
9476 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ----------
9477 ; **********************************************************************
9478
9479 PDIVF (D,FOUR,FIVE,FOUR,FIVE,432123456765,432123456765,364320315052,247020761620,
9480 473571652245,600514541235)^
9481
9482 ; --- DIVIDEND == (FOUR,FIVE,FOUR,FIVE)
9483 ; --- DIVISOR === (432123456765,432123456765)
9484 ; --- QUOTIENT == (364320315052,247020761620)
9485 ; --- REMAINDER = (473571652245,600514541235)
9486
9487 ..0662: MOVE AC1,[[EXP FOUR,FIVE,FOUR,FIVE,432123456765,432123456765,364320315052,247020
9488 037536 200 01 0 00 045274 761620,473571652245,600514541235],,PDEND]
9489 037537 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9490 037540 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9491 ERROR (..0662,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9492 037541 036 14 0 00 045115
9493 037542 035 00 0 00 037536 ERLOOP ..0662 ;IF ERROR, LOOP TO ..0662
9494 ^
9495
9496 037543 200 14 0 00 040775 ..0663: MOVE SCR2,PFLOC ;GET PC
9497 037544 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9498 ERROR (..0662,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9499 LL
9500 037545 036 13 0 00 045127
9501 037546 035 00 0 00 037536 ERLOOP ..0662 ;IF ERROR, LOOP TO ..0662
9502 ^
9503 ^
9504
9505 ; **********************************************************************
9506 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ----------
9507 ; **********************************************************************
9508
9509 PDIVF (D,FIVE,TWO,FIVE,TWO,543210123456,543210123456,356736272460,271326656374,76
9510 3153710465,406655405512)^
9511
9512 ; --- DIVIDEND == (FIVE,TWO,FIVE,TWO)
9513 ; --- DIVISOR === (543210123456,543210123456)
9514 ; --- QUOTIENT == (356736272460,271326656374)
9515 ; --- REMAINDER = (763153710465,406655405512)
9516
9517 ..0664: MOVE AC1,[[EXP FIVE,TWO,FIVE,TWO,543210123456,543210123456,356736272460,27132665
9518 037547 200 01 0 00 045307 6374,763153710465,406655405512],,PDEND]
9519 037550 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 29-6
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST D SEQ 0215
9520 037551 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9521 ERROR (..0664,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9522 037552 036 14 0 00 045115
9523 037553 035 00 0 00 037547 ERLOOP ..0664 ;IF ERROR, LOOP TO ..0664
9524 ^
9525
9526 037554 200 14 0 00 040775 ..0665: MOVE SCR2,PFLOC ;GET PC
9527 037555 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9528 ERROR (..0664,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9529 LL
9530 037556 036 13 0 00 045127
9531 037557 035 00 0 00 037547 ERLOOP ..0664 ;IF ERROR, LOOP TO ..0664
9532 ^
9533 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 30
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST E SEQ 0216
9534 SUBTTL DDIV - TEST E
9535
9536 ; **********************************************************************
9537 ;*DDIV - TEST E
9538 ;*
9539 ;* -4/-2 -4/2 4/-2 4/2
9540 ;* (-3,0,0,0)/(-6,0) (-3,0,0,0)/(6,0) 3/-6 3/6
9541 ;*
9542 ;* THESE TESTS VERIFY THAT THE DDIV HANDLES THE SIGN OF ITS
9543 ;* OPERANDS PROPERLY. THE SIGN BITS OF THE LOW ORDER WORDS ARE
9544 ;* INITIALLY DIFFERENT FROM THE HIGH ORDER WORD. THE SIGN SHOULD
9545 ;* BE FORMED CORRECTLY IN SPITE OF THAT.
9546 ; **********************************************************************
9547
9548 ; **********************************************************************
9549 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9550 ; **********************************************************************
9551
9552 PDIVF (E,-1,377777777777,377777777777,377777777774,-1,377777777776,0,2)^
9553
9554 ; --- DIVIDEND == (-1,377777777777,377777777777,377777777774)
9555 ; --- DIVISOR === (-1,377777777776)
9556 ; --- QUOTIENT == (0,2)
9557 ; --- REMAINDER = (0,0)
9558
9559 ..0666: MOVE AC1,[[EXP -1,377777777777,377777777777,377777777774,-1,377777777776,0,2,0,0
9560 037560 200 01 0 00 045322 ],,PDEND]
9561 037561 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9562 037562 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9563 ERROR (..0666,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9564 037563 036 14 0 00 045332
9565 037564 035 00 0 00 037560 ERLOOP ..0666 ;IF ERROR, LOOP TO ..0666
9566 ^
9567
9568 037565 200 14 0 00 040775 ..0667: MOVE SCR2,PFLOC ;GET PC
9569 037566 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9570 ERROR (..0666,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9571 LL
9572 037567 036 13 0 00 045344
9573 037570 035 00 0 00 037560 ERLOOP ..0666 ;IF ERROR, LOOP TO ..0666
9574 ^
9575 ^
9576
9577 ; **********************************************************************
9578 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9579 ; **********************************************************************
9580
9581 PDIVF (E,-1,377777777777,377777777777,-4,-1,-2,0,2)^
9582
9583 ; --- DIVIDEND == (-1,377777777777,377777777777,-4)
9584 ; --- DIVISOR === (-1,-2)
9585 ; --- QUOTIENT == (0,2)
9586 ; --- REMAINDER = (0,0)
9587
9588 037571 200 01 0 00 045361 ..0670: MOVE AC1,[[EXP -1,377777777777,377777777777,-4,-1,-2,0,2,0,0],,PDEND]
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 30-1
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST E SEQ 0217
9589 037572 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9590 037573 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9591 ERROR (..0670,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9592 037574 036 14 0 00 045332
9593 037575 035 00 0 00 037571 ERLOOP ..0670 ;IF ERROR, LOOP TO ..0670
9594 ^
9595
9596 037576 200 14 0 00 040775 ..0671: MOVE SCR2,PFLOC ;GET PC
9597 037577 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9598 ERROR (..0670,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9599 LL
9600 037600 036 13 0 00 045344
9601 037601 035 00 0 00 037571 ERLOOP ..0670 ;IF ERROR, LOOP TO ..0670
9602 ^
9603 ^
9604
9605 ; **********************************************************************
9606 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9607 ; **********************************************************************
9608
9609 PDIVF (E,-1,377777777777,377777777777,377777777774,0,400000000002,-1,-2)^
9610
9611 ; --- DIVIDEND == (-1,377777777777,377777777777,377777777774)
9612 ; --- DIVISOR === (0,400000000002)
9613 ; --- QUOTIENT == (-1,-2)
9614 ; --- REMAINDER = (0,0)
9615
9616 ..0672: MOVE AC1,[[EXP -1,377777777777,377777777777,377777777774,0,400000000002,-1,-2,0,
9617 037602 200 01 0 00 045374 0],,PDEND]
9618 037603 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9619 037604 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9620 ERROR (..0672,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9621 037605 036 14 0 00 045332
9622 037606 035 00 0 00 037602 ERLOOP ..0672 ;IF ERROR, LOOP TO ..0672
9623 ^
9624
9625 037607 200 14 0 00 040775 ..0673: MOVE SCR2,PFLOC ;GET PC
9626 037610 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9627 ERROR (..0672,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9628 LL
9629 037611 036 13 0 00 045344
9630 037612 035 00 0 00 037602 ERLOOP ..0672 ;IF ERROR, LOOP TO ..0672
9631 ^
9632 ^
9633
9634 ; **********************************************************************
9635 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9636 ; **********************************************************************
9637
9638 PDIVF (E,-1,-1,-1,-4,0,400000000002,-1,-2)^
9639
9640 ; --- DIVIDEND == (-1,-1,-1,-4)
9641 ; --- DIVISOR === (0,400000000002)
9642 ; --- QUOTIENT == (-1,-2)
9643 ; --- REMAINDER = (0,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 30-2
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST E SEQ 0218
9644
9645 037613 200 01 0 00 045407 ..0674: MOVE AC1,[[EXP -1,-1,-1,-4,0,400000000002,-1,-2,0,0],,PDEND]
9646 037614 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9647 037615 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9648 ERROR (..0674,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9649 037616 036 14 0 00 045332
9650 037617 035 00 0 00 037613 ERLOOP ..0674 ;IF ERROR, LOOP TO ..0674
9651 ^
9652
9653 037620 200 14 0 00 040775 ..0675: MOVE SCR2,PFLOC ;GET PC
9654 037621 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9655 ERROR (..0674,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9656 LL
9657 037622 036 13 0 00 045344
9658 037623 035 00 0 00 037613 ERLOOP ..0674 ;IF ERROR, LOOP TO ..0674
9659 ^
9660 ^
9661
9662 ; **********************************************************************
9663 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9664 ; **********************************************************************
9665
9666 PDIVF (E,0,1B0,1B0,400000000004,-1,377777777776,-1,-2)^
9667
9668 ; --- DIVIDEND == (0,1B0,1B0,400000000004)
9669 ; --- DIVISOR === (-1,377777777776)
9670 ; --- QUOTIENT == (-1,-2)
9671 ; --- REMAINDER = (0,0)
9672
9673 037624 200 01 0 00 045422 ..0676: MOVE AC1,[[EXP 0,1B0,1B0,400000000004,-1,377777777776,-1,-2,0,0],,PDEND]
9674 037625 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9675 037626 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9676 ERROR (..0676,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9677 037627 036 14 0 00 045332
9678 037630 035 00 0 00 037624 ERLOOP ..0676 ;IF ERROR, LOOP TO ..0676
9679 ^
9680
9681 037631 200 14 0 00 040775 ..0677: MOVE SCR2,PFLOC ;GET PC
9682 037632 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9683 ERROR (..0676,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9684 LL
9685 037633 036 13 0 00 045344
9686 037634 035 00 0 00 037624 ERLOOP ..0676 ;IF ERROR, LOOP TO ..0676
9687 ^
9688 ^
9689
9690 ; **********************************************************************
9691 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9692 ; **********************************************************************
9693
9694 PDIVF (E,0,1B0,1B0,400000000004,-1,-2,-1,-2)^
9695
9696 ; --- DIVIDEND == (0,1B0,1B0,400000000004)
9697 ; --- DIVISOR === (-1,-2)
9698 ; --- QUOTIENT == (-1,-2)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 30-3
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST E SEQ 0219
9699 ; --- REMAINDER = (0,0)
9700
9701 037635 200 01 0 00 045435 ..0700: MOVE AC1,[[EXP 0,1B0,1B0,400000000004,-1,-2,-1,-2,0,0],,PDEND]
9702 037636 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9703 037637 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9704 ERROR (..0700,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9705 037640 036 14 0 00 045332
9706 037641 035 00 0 00 037635 ERLOOP ..0700 ;IF ERROR, LOOP TO ..0700
9707 ^
9708
9709 037642 200 14 0 00 040775 ..0701: MOVE SCR2,PFLOC ;GET PC
9710 037643 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9711 ERROR (..0700,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9712 LL
9713 037644 036 13 0 00 045344
9714 037645 035 00 0 00 037635 ERLOOP ..0700 ;IF ERROR, LOOP TO ..0700
9715 ^
9716 ^
9717
9718 ; **********************************************************************
9719 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9720 ; **********************************************************************
9721
9722 PDIVF (E,0,0,0,400000000004,0,2,0,2)^
9723
9724 ; --- DIVIDEND == (0,0,0,400000000004)
9725 ; --- DIVISOR === (0,2)
9726 ; --- QUOTIENT == (0,2)
9727 ; --- REMAINDER = (0,0)
9728
9729 037646 200 01 0 00 045450 ..0702: MOVE AC1,[[EXP 0,0,0,400000000004,0,2,0,2,0,0],,PDEND]
9730 037647 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9731 037650 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9732 ERROR (..0702,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9733 037651 036 14 0 00 045332
9734 037652 035 00 0 00 037646 ERLOOP ..0702 ;IF ERROR, LOOP TO ..0702
9735 ^
9736
9737 037653 200 14 0 00 040775 ..0703: MOVE SCR2,PFLOC ;GET PC
9738 037654 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9739 ERROR (..0702,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9740 LL
9741 037655 036 13 0 00 045344
9742 037656 035 00 0 00 037646 ERLOOP ..0702 ;IF ERROR, LOOP TO ..0702
9743 ^
9744 ^
9745
9746 ; **********************************************************************
9747 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9748 ; **********************************************************************
9749
9750 PDIVF (E,0,0,0,400000000004,0,400000000002,0,2)^
9751
9752 ; --- DIVIDEND == (0,0,0,400000000004)
9753 ; --- DIVISOR === (0,400000000002)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 30-4
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST E SEQ 0220
9754 ; --- QUOTIENT == (0,2)
9755 ; --- REMAINDER = (0,0)
9756
9757 037657 200 01 0 00 045463 ..0704: MOVE AC1,[[EXP 0,0,0,400000000004,0,400000000002,0,2,0,0],,PDEND]
9758 037660 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9759 037661 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9760 ERROR (..0704,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9761 037662 036 14 0 00 045332
9762 037663 035 00 0 00 037657 ERLOOP ..0704 ;IF ERROR, LOOP TO ..0704
9763 ^
9764
9765 037664 200 14 0 00 040775 ..0705: MOVE SCR2,PFLOC ;GET PC
9766 037665 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9767 ERROR (..0704,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9768 LL
9769 037666 036 13 0 00 045344
9770 037667 035 00 0 00 037657 ERLOOP ..0704 ;IF ERROR, LOOP TO ..0704
9771 ^
9772 ^
9773
9774 ; **********************************************************************
9775 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9776 ; **********************************************************************
9777
9778 PDIVF (E,-3,1B0,1B0,1B0,-6,1B0,200000000000,0)^
9779
9780 ; --- DIVIDEND == (-3,1B0,1B0,1B0)
9781 ; --- DIVISOR === (-6,1B0)
9782 ; --- QUOTIENT == (200000000000,0)
9783 ; --- REMAINDER = (0,0)
9784
9785 037670 200 01 0 00 045476 ..0706: MOVE AC1,[[EXP -3,1B0,1B0,1B0,-6,1B0,200000000000,0,0,0],,PDEND]
9786 037671 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9787 037672 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9788 ERROR (..0706,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9789 037673 036 14 0 00 045332
9790 037674 035 00 0 00 037670 ERLOOP ..0706 ;IF ERROR, LOOP TO ..0706
9791 ^
9792
9793 037675 200 14 0 00 040775 ..0707: MOVE SCR2,PFLOC ;GET PC
9794 037676 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9795 ERROR (..0706,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9796 LL
9797 037677 036 13 0 00 045344
9798 037700 035 00 0 00 037670 ERLOOP ..0706 ;IF ERROR, LOOP TO ..0706
9799 ^
9800 ^
9801
9802 ; **********************************************************************
9803 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9804 ; **********************************************************************
9805
9806 PDIVF (E,-3,1B0,1B0,0,-6,1B0,200000000000,0)^
9807
9808 ; --- DIVIDEND == (-3,1B0,1B0,0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 30-5
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST E SEQ 0221
9809 ; --- DIVISOR === (-6,1B0)
9810 ; --- QUOTIENT == (200000000000,0)
9811 ; --- REMAINDER = (0,0)
9812
9813 037701 200 01 0 00 045511 ..0710: MOVE AC1,[[EXP -3,1B0,1B0,0,-6,1B0,200000000000,0,0,0],,PDEND]
9814 037702 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9815 037703 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9816 ERROR (..0710,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9817 037704 036 14 0 00 045332
9818 037705 035 00 0 00 037701 ERLOOP ..0710 ;IF ERROR, LOOP TO ..0710
9819 ^
9820
9821 037706 200 14 0 00 040775 ..0711: MOVE SCR2,PFLOC ;GET PC
9822 037707 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9823 ERROR (..0710,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9824 LL
9825 037710 036 13 0 00 045344
9826 037711 035 00 0 00 037701 ERLOOP ..0710 ;IF ERROR, LOOP TO ..0710
9827 ^
9828 ^
9829
9830 ; **********************************************************************
9831 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9832 ; **********************************************************************
9833
9834 PDIVF (E,-3,1B0,0,0,6,0,600000000000,1B0)^
9835
9836 ; --- DIVIDEND == (-3,1B0,0,0)
9837 ; --- DIVISOR === (6,0)
9838 ; --- QUOTIENT == (600000000000,1B0)
9839 ; --- REMAINDER = (0,0)
9840
9841 037712 200 01 0 00 045524 ..0712: MOVE AC1,[[EXP -3,1B0,0,0,6,0,600000000000,1B0,0,0],,PDEND]
9842 037713 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9843 037714 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9844 ERROR (..0712,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9845 037715 036 14 0 00 045332
9846 037716 035 00 0 00 037712 ERLOOP ..0712 ;IF ERROR, LOOP TO ..0712
9847 ^
9848
9849 037717 200 14 0 00 040775 ..0713: MOVE SCR2,PFLOC ;GET PC
9850 037720 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9851 ERROR (..0712,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9852 LL
9853 037721 036 13 0 00 045344
9854 037722 035 00 0 00 037712 ERLOOP ..0712 ;IF ERROR, LOOP TO ..0712
9855 ^
9856 ^
9857
9858 ; **********************************************************************
9859 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9860 ; **********************************************************************
9861
9862 PDIVF (E,-3,0,0,0,6,1B0,600000000000,1B0)^
9863
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 30-6
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST E SEQ 0222
9864 ; --- DIVIDEND == (-3,0,0,0)
9865 ; --- DIVISOR === (6,1B0)
9866 ; --- QUOTIENT == (600000000000,1B0)
9867 ; --- REMAINDER = (0,0)
9868
9869 037723 200 01 0 00 045537 ..0714: MOVE AC1,[[EXP -3,0,0,0,6,1B0,600000000000,1B0,0,0],,PDEND]
9870 037724 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9871 037725 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9872 ERROR (..0714,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9873 037726 036 14 0 00 045332
9874 037727 035 00 0 00 037723 ERLOOP ..0714 ;IF ERROR, LOOP TO ..0714
9875 ^
9876
9877 037730 200 14 0 00 040775 ..0715: MOVE SCR2,PFLOC ;GET PC
9878 037731 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9879 ERROR (..0714,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9880 LL
9881 037732 036 13 0 00 045344
9882 037733 035 00 0 00 037723 ERLOOP ..0714 ;IF ERROR, LOOP TO ..0714
9883 ^
9884 ^
9885
9886 ; **********************************************************************
9887 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9888 ; **********************************************************************
9889
9890 PDIVF (E,3,1B0,1B0,0,-6,1B0,600000000000,1B0)^
9891
9892 ; --- DIVIDEND == (3,1B0,1B0,0)
9893 ; --- DIVISOR === (-6,1B0)
9894 ; --- QUOTIENT == (600000000000,1B0)
9895 ; --- REMAINDER = (0,0)
9896
9897 037734 200 01 0 00 045552 ..0716: MOVE AC1,[[EXP 3,1B0,1B0,0,-6,1B0,600000000000,1B0,0,0],,PDEND]
9898 037735 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9899 037736 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9900 ERROR (..0716,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9901 037737 036 14 0 00 045332
9902 037740 035 00 0 00 037734 ERLOOP ..0716 ;IF ERROR, LOOP TO ..0716
9903 ^
9904
9905 037741 200 14 0 00 040775 ..0717: MOVE SCR2,PFLOC ;GET PC
9906 037742 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9907 ERROR (..0716,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9908 LL
9909 037743 036 13 0 00 045344
9910 037744 035 00 0 00 037734 ERLOOP ..0716 ;IF ERROR, LOOP TO ..0716
9911 ^
9912 ^
9913
9914 ; **********************************************************************
9915 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9916 ; **********************************************************************
9917
9918 PDIVF (E,3,1B0,0,1B0,-6,1B0,600000000000,1B0)^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 30-7
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST E SEQ 0223
9919
9920 ; --- DIVIDEND == (3,1B0,0,1B0)
9921 ; --- DIVISOR === (-6,1B0)
9922 ; --- QUOTIENT == (600000000000,1B0)
9923 ; --- REMAINDER = (0,0)
9924
9925 037745 200 01 0 00 045565 ..0720: MOVE AC1,[[EXP 3,1B0,0,1B0,-6,1B0,600000000000,1B0,0,0],,PDEND]
9926 037746 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9927 037747 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9928 ERROR (..0720,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9929 037750 036 14 0 00 045332
9930 037751 035 00 0 00 037745 ERLOOP ..0720 ;IF ERROR, LOOP TO ..0720
9931 ^
9932
9933 037752 200 14 0 00 040775 ..0721: MOVE SCR2,PFLOC ;GET PC
9934 037753 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9935 ERROR (..0720,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9936 LL
9937 037754 036 13 0 00 045344
9938 037755 035 00 0 00 037745 ERLOOP ..0720 ;IF ERROR, LOOP TO ..0720
9939 ^
9940 ^
9941
9942 ; **********************************************************************
9943 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9944 ; **********************************************************************
9945
9946 PDIVF (E,3,0,1B0,1B0,6,1B0,200000000000,0)^
9947
9948 ; --- DIVIDEND == (3,0,1B0,1B0)
9949 ; --- DIVISOR === (6,1B0)
9950 ; --- QUOTIENT == (200000000000,0)
9951 ; --- REMAINDER = (0,0)
9952
9953 037756 200 01 0 00 045600 ..0722: MOVE AC1,[[EXP 3,0,1B0,1B0,6,1B0,200000000000,0,0,0],,PDEND]
9954 037757 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9955 037760 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9956 ERROR (..0722,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9957 037761 036 14 0 00 045332
9958 037762 035 00 0 00 037756 ERLOOP ..0722 ;IF ERROR, LOOP TO ..0722
9959 ^
9960
9961 037763 200 14 0 00 040775 ..0723: MOVE SCR2,PFLOC ;GET PC
9962 037764 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9963 ERROR (..0722,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9964 LL
9965 037765 036 13 0 00 045344
9966 037766 035 00 0 00 037756 ERLOOP ..0722 ;IF ERROR, LOOP TO ..0722
9967 ^
9968 ^
9969
9970 ; **********************************************************************
9971 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ----------
9972 ; **********************************************************************
9973
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 30-8
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST E SEQ 0224
9974 PDIVF (E,3,1B0,1B0,1B0,6,0,200000000000,0)^
9975
9976 ; --- DIVIDEND == (3,1B0,1B0,1B0)
9977 ; --- DIVISOR === (6,0)
9978 ; --- QUOTIENT == (200000000000,0)
9979 ; --- REMAINDER = (0,0)
9980
9981 037767 200 01 0 00 045613 ..0724: MOVE AC1,[[EXP 3,1B0,1B0,1B0,6,0,200000000000,0,0,0],,PDEND]
9982 037770 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
9983 037771 260 17 0 00 040767 GO PSUBR ;GO DO TEST
9984 ERROR (..0724,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
9985 037772 036 14 0 00 045332
9986 037773 035 00 0 00 037767 ERLOOP ..0724 ;IF ERROR, LOOP TO ..0724
9987 ^
9988
9989 037774 200 14 0 00 040775 ..0725: MOVE SCR2,PFLOC ;GET PC
9990 037775 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
9991 ERROR (..0724,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
9992 LL
9993 037776 036 13 0 00 045344
9994 037777 035 00 0 00 037767 ERLOOP ..0724 ;IF ERROR, LOOP TO ..0724
9995 ^
9996 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 31
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST F SEQ 0225
9997 SUBTTL DDIV - TEST F
9998
9999 ; **********************************************************************
10000 ;*DDIV - TEST F
10001 ;*
10002 ;* 1,0,0,0 -1,0,0,0 0,-1,-1,-1 -1,0,0,1
10003 ;* ------- -------- ---------- --------
10004 ;* 1,1 1,1 1,0 1,0
10005 ;*
10006 ;* 1,0,0,0 -1,0,0,0 0,-1,-1,-1 -1,0,0,1
10007 ;* ------- -------- ---------- --------
10008 ;* -2,-1 -2,-1 -1,0 -1,0
10009 ;*
10010 ;* THESE TESTS VERIFY THAT THE DDIV WILL NOT GENERATE AN
10011 ;* OVERFLOW AND NO DIVIDE CONDITION WHEN THE DIVISOR IS
10012 ;* JUST LARGE ENOUGH TO NOT CAUSE ONE.
10013 ; **********************************************************************
10014
10015 ; **********************************************************************
10016 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ----------
10017 ; **********************************************************************
10018
10019 PDIVF (F,1,0,0,0,1,1,377777777777,0,1,0)^
10020
10021 ; --- DIVIDEND == (1,0,0,0)
10022 ; --- DIVISOR === (1,1)
10023 ; --- QUOTIENT == (377777777777,0)
10024 ; --- REMAINDER = (1,0)
10025
10026 040000 200 01 0 00 045626 ..0726: MOVE AC1,[[EXP 1,0,0,0,1,1,377777777777,0,1,0],,PDEND]
10027 040001 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
10028 040002 260 17 0 00 040767 GO PSUBR ;GO DO TEST
10029 ERROR (..0726,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
10030 040003 036 14 0 00 045636
10031 040004 035 00 0 00 040000 ERLOOP ..0726 ;IF ERROR, LOOP TO ..0726
10032 ^
10033
10034 040005 200 14 0 00 040775 ..0727: MOVE SCR2,PFLOC ;GET PC
10035 040006 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
10036 ERROR (..0726,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
10037 LL
10038 040007 036 13 0 00 045650
10039 040010 035 00 0 00 040000 ERLOOP ..0726 ;IF ERROR, LOOP TO ..0726
10040 ^
10041 ^
10042
10043 ; **********************************************************************
10044 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ----------
10045 ; **********************************************************************
10046
10047 PDIVF (F,1,0,0,0,-2,-1,400000000001,1B0,1,0)^
10048
10049 ; --- DIVIDEND == (1,0,0,0)
10050 ; --- DIVISOR === (-2,-1)
10051 ; --- QUOTIENT == (400000000001,1B0)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 31-1
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST F SEQ 0226
10052 ; --- REMAINDER = (1,0)
10053
10054 040011 200 01 0 00 045665 ..0730: MOVE AC1,[[EXP 1,0,0,0,-2,-1,400000000001,1B0,1,0],,PDEND]
10055 040012 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
10056 040013 260 17 0 00 040767 GO PSUBR ;GO DO TEST
10057 ERROR (..0730,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
10058 040014 036 14 0 00 045636
10059 040015 035 00 0 00 040011 ERLOOP ..0730 ;IF ERROR, LOOP TO ..0730
10060 ^
10061
10062 040016 200 14 0 00 040775 ..0731: MOVE SCR2,PFLOC ;GET PC
10063 040017 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
10064 ERROR (..0730,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
10065 LL
10066 040020 036 13 0 00 045650
10067 040021 035 00 0 00 040011 ERLOOP ..0730 ;IF ERROR, LOOP TO ..0730
10068 ^
10069 ^
10070
10071 ; **********************************************************************
10072 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ----------
10073 ; **********************************************************************
10074
10075 PDIVF (F,-1,1B0,1B0,1B0,1,1,400000000001,1B0,-1,1B0)^
10076
10077 ; --- DIVIDEND == (-1,1B0,1B0,1B0)
10078 ; --- DIVISOR === (1,1)
10079 ; --- QUOTIENT == (400000000001,1B0)
10080 ; --- REMAINDER = (-1,1B0)
10081
10082 040022 200 01 0 00 045700 ..0732: MOVE AC1,[[EXP -1,1B0,1B0,1B0,1,1,400000000001,1B0,-1,1B0],,PDEND]
10083 040023 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
10084 040024 260 17 0 00 040767 GO PSUBR ;GO DO TEST
10085 ERROR (..0732,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
10086 040025 036 14 0 00 045636
10087 040026 035 00 0 00 040022 ERLOOP ..0732 ;IF ERROR, LOOP TO ..0732
10088 ^
10089
10090 040027 200 14 0 00 040775 ..0733: MOVE SCR2,PFLOC ;GET PC
10091 040030 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
10092 ERROR (..0732,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
10093 LL
10094 040031 036 13 0 00 045650
10095 040032 035 00 0 00 040022 ERLOOP ..0732 ;IF ERROR, LOOP TO ..0732
10096 ^
10097 ^
10098
10099 ; **********************************************************************
10100 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ----------
10101 ; **********************************************************************
10102
10103 PDIVF (F,-1,1B0,1B0,1B0,-2,-1,377777777777,0,-1,1B0)^
10104
10105 ; --- DIVIDEND == (-1,1B0,1B0,1B0)
10106 ; --- DIVISOR === (-2,-1)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 31-2
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST F SEQ 0227
10107 ; --- QUOTIENT == (377777777777,0)
10108 ; --- REMAINDER = (-1,1B0)
10109
10110 040033 200 01 0 00 045713 ..0734: MOVE AC1,[[EXP -1,1B0,1B0,1B0,-2,-1,377777777777,0,-1,1B0],,PDEND]
10111 040034 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
10112 040035 260 17 0 00 040767 GO PSUBR ;GO DO TEST
10113 ERROR (..0734,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
10114 040036 036 14 0 00 045636
10115 040037 035 00 0 00 040033 ERLOOP ..0734 ;IF ERROR, LOOP TO ..0734
10116 ^
10117
10118 040040 200 14 0 00 040775 ..0735: MOVE SCR2,PFLOC ;GET PC
10119 040041 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
10120 ERROR (..0734,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
10121 LL
10122 040042 036 13 0 00 045650
10123 040043 035 00 0 00 040033 ERLOOP ..0734 ;IF ERROR, LOOP TO ..0734
10124 ^
10125 ^
10126
10127 ; **********************************************************************
10128 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ----------
10129 ; **********************************************************************
10130
10131 PDIVF (F,0,377777777777,377777777777,377777777777,1,0,377777777777,377777777777,0
10132 ,377777777777)^
10133
10134 ; --- DIVIDEND == (0,377777777777,377777777777,377777777777)
10135 ; --- DIVISOR === (1,0)
10136 ; --- QUOTIENT == (377777777777,377777777777)
10137 ; --- REMAINDER = (0,377777777777)
10138
10139 ..0736: MOVE AC1,[[EXP 0,377777777777,377777777777,377777777777,1,0,377777777777,3777777
10140 040044 200 01 0 00 045726 77777,0,377777777777],,PDEND]
10141 040045 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
10142 040046 260 17 0 00 040767 GO PSUBR ;GO DO TEST
10143 ERROR (..0736,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
10144 040047 036 14 0 00 045636
10145 040050 035 00 0 00 040044 ERLOOP ..0736 ;IF ERROR, LOOP TO ..0736
10146 ^
10147
10148 040051 200 14 0 00 040775 ..0737: MOVE SCR2,PFLOC ;GET PC
10149 040052 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
10150 ERROR (..0736,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
10151 LL
10152 040053 036 13 0 00 045650
10153 040054 035 00 0 00 040044 ERLOOP ..0736 ;IF ERROR, LOOP TO ..0736
10154 ^
10155 ^
10156
10157 ; **********************************************************************
10158 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ----------
10159 ; **********************************************************************
10160
10161 PDIVF (F,0,377777777777,377777777777,377777777777,-1,1B0,1B0,400000000001,0,37777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 31-3
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST F SEQ 0228
10162 7777777)^
10163
10164 ; --- DIVIDEND == (0,377777777777,377777777777,377777777777)
10165 ; --- DIVISOR === (-1,1B0)
10166 ; --- QUOTIENT == (1B0,400000000001)
10167 ; --- REMAINDER = (0,377777777777)
10168
10169 ..0740: MOVE AC1,[[EXP 0,377777777777,377777777777,377777777777,-1,1B0,1B0,400000000001,
10170 040055 200 01 0 00 045741 0,377777777777],,PDEND]
10171 040056 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
10172 040057 260 17 0 00 040767 GO PSUBR ;GO DO TEST
10173 ERROR (..0740,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
10174 040060 036 14 0 00 045636
10175 040061 035 00 0 00 040055 ERLOOP ..0740 ;IF ERROR, LOOP TO ..0740
10176 ^
10177
10178 040062 200 14 0 00 040775 ..0741: MOVE SCR2,PFLOC ;GET PC
10179 040063 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
10180 ERROR (..0740,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
10181 LL
10182 040064 036 13 0 00 045650
10183 040065 035 00 0 00 040055 ERLOOP ..0740 ;IF ERROR, LOOP TO ..0740
10184 ^
10185 ^
10186
10187 ; **********************************************************************
10188 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ----------
10189 ; **********************************************************************
10190
10191 PDIVF (F,-1,1B0,1B0,400000000001,1,0,1B0,400000000001,-1,400000000001)^
10192
10193 ; --- DIVIDEND == (-1,1B0,1B0,400000000001)
10194 ; --- DIVISOR === (1,0)
10195 ; --- QUOTIENT == (1B0,400000000001)
10196 ; --- REMAINDER = (-1,400000000001)
10197
10198 ..0742: MOVE AC1,[[EXP -1,1B0,1B0,400000000001,1,0,1B0,400000000001,-1,400000000001],,PD
10199 040066 200 01 0 00 045754 END]
10200 040067 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
10201 040070 260 17 0 00 040767 GO PSUBR ;GO DO TEST
10202 ERROR (..0742,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
10203 040071 036 14 0 00 045636
10204 040072 035 00 0 00 040066 ERLOOP ..0742 ;IF ERROR, LOOP TO ..0742
10205 ^
10206
10207 040073 200 14 0 00 040775 ..0743: MOVE SCR2,PFLOC ;GET PC
10208 040074 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
10209 ERROR (..0742,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
10210 LL
10211 040075 036 13 0 00 045650
10212 040076 035 00 0 00 040066 ERLOOP ..0742 ;IF ERROR, LOOP TO ..0742
10213 ^
10214 ^
10215
10216 ; **********************************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 31-4
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST F SEQ 0229
10217 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ----------
10218 ; **********************************************************************
10219
10220 PDIVF (F,-1,1B0,1B0,400000000001,-1,1B0,377777777777,377777777777,-1,400000000001
10221 )^
10222
10223 ; --- DIVIDEND == (-1,1B0,1B0,400000000001)
10224 ; --- DIVISOR === (-1,1B0)
10225 ; --- QUOTIENT == (377777777777,377777777777)
10226 ; --- REMAINDER = (-1,400000000001)
10227
10228 ..0744: MOVE AC1,[[EXP -1,1B0,1B0,400000000001,-1,1B0,377777777777,377777777777,-1,40000
10229 040077 200 01 0 00 045767 0000001],,PDEND]
10230 040100 251 01 0 00 041031 BLT AC1,PRES+3 ;SET UP OPERANDS
10231 040101 260 17 0 00 040767 GO PSUBR ;GO DO TEST
10232 ERROR (..0744,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL
10233 040102 036 14 0 00 045636
10234 040103 035 00 0 00 040077 ERLOOP ..0744 ;IF ERROR, LOOP TO ..0744
10235 ^
10236
10237 040104 200 14 0 00 040775 ..0745: MOVE SCR2,PFLOC ;GET PC
10238 040105 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST
10239 ERROR (..0744,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA
10240 LL
10241 040106 036 13 0 00 045650
10242 040107 035 00 0 00 040077 ERLOOP ..0744 ;IF ERROR, LOOP TO ..0744
10243 ^
10244 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 32
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0230
10245 SUBTTL DDIV - TEST G
10246
10247 ; **********************************************************************
10248 ;*DDIV - TEST G
10249 ;*
10250 ;* 1 1,0 1,0,0 1,0,0,0 -1
10251 ;* - --- ----- ------- -
10252 ;* 0 0 0 0 0
10253 ;*
10254 ;* 1,0,0 1,0,0 1,0,0,0 1,0,0,0
10255 ;* ----- ----- ------- -------
10256 ;* 1 -1 1 -1
10257 ;*
10258 ;* -1,0,0 -1,0,0 -1,0,0,0 -1,0,0,0
10259 ;* ------ ------ -------- --------
10260 ;* 1 -1 1 -1
10261 ;*
10262 ;* 1,0,0,0 1,0,0,0 -1,0,0,0 -1,0,0,0
10263 ;* ------- ------- -------- --------
10264 ;* 1,0 -1,0 1,0 -1,0
10265 ;*
10266 ;* 0,-1,-1,-1 0,-1,-1,-1 -1,0,0,1 -1,0,0,1
10267 ;* ---------- ---------- -------- --------
10268 ;* 0,-1 -1,1 0,-1 -1,1
10269 ;*
10270 ;* 1,0,-1,-1 1,0,-1,-1 -2,-1,0,1 -2,-1,0,1
10271 ;* --------- --------- --------- ---------
10272 ;* 0,-1 -1,1 0,-1 -1,1
10273 ;*
10274 ;* -2^140 2^140-1 2^140-1 -2^70+1,-2^70
10275 ;* ------ ------- ------- -------------
10276 ;* -2^70 2^70-1 -2^70+1 2^70-1
10277 ;*
10278 ;* THESE TESTS ATTEMPT TO PERFORM VARIOUS DIVISIONS THAT
10279 ;* SHOULD RESULT IN OVERFLOW. THE SETTING OF AROV AND NO
10280 ;* DIVIDE FLAGS IS VERIFIED AND THE DIVIDEND IS CHECKED TO
10281 ;* SEE THAT IT DID NOT CHANGE.
10282 ;*
10283 ;* ALSO TRY A FEW WITH INCONSISTENT SIGNS IN THE LEAST
10284 ;* SIGNIFICANT WORDS OF THE DIVIDEND AND DIVISOR JUST TO MAKE
10285 ;* SURE THAT THE DIVIDEND DOES NOT CHANGE ON ANY CONDITION.
10286 ; **********************************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0231
10287
10288 ; **********************************************************************
10289 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10290 ; **********************************************************************
10291
10292 ODIV (0,0,0,1,0,0)^
10293
10294 ; --- DIVIDEND == (0,0,0,1)
10295 ; --- DIVISOR === (0,0)
10296 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10297
10298 040110 200 01 0 00 045776 ..0746: MOVE AC1,[[EXP 0,0,0,1,0,0],,ODEND]
10299 040111 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10300 040112 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10301 ERROR (..0746,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10302 040113 036 14 0 00 046006
10303 040114 035 00 0 00 040110 ERLOOP ..0746 ;IF ERROR, LOOP TO ..0746
10304 ^
10305
10306 040115 200 14 0 00 041043 ..0747: MOVE SCR2,OFLOC ;GET PC
10307 040116 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10308 040117 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10309 040120 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10310 040121 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10311 ERROR (..0746,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10312
10313 040122 036 13 0 00 046021
10314 040123 035 00 0 00 040110 ERLOOP ..0746 ;IF ERROR, LOOP TO ..0746
10315 ^
10316 ^
10317
10318 ; **********************************************************************
10319 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10320 ; **********************************************************************
10321
10322 ODIV (0,0,1,0,0,0)^
10323
10324 ; --- DIVIDEND == (0,0,1,0)
10325 ; --- DIVISOR === (0,0)
10326 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10327
10328 040124 200 01 0 00 046032 ..0750: MOVE AC1,[[EXP 0,0,1,0,0,0],,ODEND]
10329 040125 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10330 040126 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10331 ERROR (..0750,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10332 040127 036 14 0 00 046006
10333 040130 035 00 0 00 040124 ERLOOP ..0750 ;IF ERROR, LOOP TO ..0750
10334 ^
10335
10336 040131 200 14 0 00 041043 ..0751: MOVE SCR2,OFLOC ;GET PC
10337 040132 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10338 040133 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10339 040134 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10340 040135 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10341 ERROR (..0750,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-1
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0232
10342
10343 040136 036 13 0 00 046021
10344 040137 035 00 0 00 040124 ERLOOP ..0750 ;IF ERROR, LOOP TO ..0750
10345 ^
10346 ^
10347
10348 ; **********************************************************************
10349 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10350 ; **********************************************************************
10351
10352 ODIV (0,1,0,0,0,0)^
10353
10354 ; --- DIVIDEND == (0,1,0,0)
10355 ; --- DIVISOR === (0,0)
10356 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10357
10358 040140 200 01 0 00 046041 ..0752: MOVE AC1,[[EXP 0,1,0,0,0,0],,ODEND]
10359 040141 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10360 040142 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10361 ERROR (..0752,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10362 040143 036 14 0 00 046006
10363 040144 035 00 0 00 040140 ERLOOP ..0752 ;IF ERROR, LOOP TO ..0752
10364 ^
10365
10366 040145 200 14 0 00 041043 ..0753: MOVE SCR2,OFLOC ;GET PC
10367 040146 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10368 040147 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10369 040150 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10370 040151 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10371 ERROR (..0752,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10372
10373 040152 036 13 0 00 046021
10374 040153 035 00 0 00 040140 ERLOOP ..0752 ;IF ERROR, LOOP TO ..0752
10375 ^
10376 ^
10377
10378 ; **********************************************************************
10379 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10380 ; **********************************************************************
10381
10382 ODIV (1,0,0,0,0,0)^
10383
10384 ; --- DIVIDEND == (1,0,0,0)
10385 ; --- DIVISOR === (0,0)
10386 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10387
10388 040154 200 01 0 00 046050 ..0754: MOVE AC1,[[EXP 1,0,0,0,0,0],,ODEND]
10389 040155 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10390 040156 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10391 ERROR (..0754,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10392 040157 036 14 0 00 046006
10393 040160 035 00 0 00 040154 ERLOOP ..0754 ;IF ERROR, LOOP TO ..0754
10394 ^
10395
10396 040161 200 14 0 00 041043 ..0755: MOVE SCR2,OFLOC ;GET PC
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-2
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0233
10397 040162 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10398 040163 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10399 040164 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10400 040165 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10401 ERROR (..0754,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10402
10403 040166 036 13 0 00 046021
10404 040167 035 00 0 00 040154 ERLOOP ..0754 ;IF ERROR, LOOP TO ..0754
10405 ^
10406 ^
10407
10408 ; **********************************************************************
10409 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10410 ; **********************************************************************
10411
10412 ODIV (-1,-1,-1,-1,0,0)^
10413
10414 ; --- DIVIDEND == (-1,-1,-1,-1)
10415 ; --- DIVISOR === (0,0)
10416 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10417
10418 040170 200 01 0 00 046057 ..0756: MOVE AC1,[[EXP -1,-1,-1,-1,0,0],,ODEND]
10419 040171 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10420 040172 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10421 ERROR (..0756,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10422 040173 036 14 0 00 046006
10423 040174 035 00 0 00 040170 ERLOOP ..0756 ;IF ERROR, LOOP TO ..0756
10424 ^
10425
10426 040175 200 14 0 00 041043 ..0757: MOVE SCR2,OFLOC ;GET PC
10427 040176 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10428 040177 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10429 040200 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10430 040201 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10431 ERROR (..0756,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10432
10433 040202 036 13 0 00 046021
10434 040203 035 00 0 00 040170 ERLOOP ..0756 ;IF ERROR, LOOP TO ..0756
10435 ^
10436 ^
10437
10438 ; **********************************************************************
10439 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10440 ; **********************************************************************
10441
10442 ODIV (0,1,0,0,0,1)^
10443
10444 ; --- DIVIDEND == (0,1,0,0)
10445 ; --- DIVISOR === (0,1)
10446 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10447
10448 040204 200 01 0 00 046066 ..0760: MOVE AC1,[[EXP 0,1,0,0,0,1],,ODEND]
10449 040205 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10450 040206 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10451 ERROR (..0760,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-3
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0234
10452 040207 036 14 0 00 046006
10453 040210 035 00 0 00 040204 ERLOOP ..0760 ;IF ERROR, LOOP TO ..0760
10454 ^
10455
10456 040211 200 14 0 00 041043 ..0761: MOVE SCR2,OFLOC ;GET PC
10457 040212 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10458 040213 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10459 040214 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10460 040215 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10461 ERROR (..0760,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10462
10463 040216 036 13 0 00 046021
10464 040217 035 00 0 00 040204 ERLOOP ..0760 ;IF ERROR, LOOP TO ..0760
10465 ^
10466 ^
10467
10468 ; **********************************************************************
10469 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10470 ; **********************************************************************
10471
10472 ODIV (0,1,0,0,-1,-1)^
10473
10474 ; --- DIVIDEND == (0,1,0,0)
10475 ; --- DIVISOR === (-1,-1)
10476 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10477
10478 040220 200 01 0 00 046075 ..0762: MOVE AC1,[[EXP 0,1,0,0,-1,-1],,ODEND]
10479 040221 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10480 040222 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10481 ERROR (..0762,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10482 040223 036 14 0 00 046006
10483 040224 035 00 0 00 040220 ERLOOP ..0762 ;IF ERROR, LOOP TO ..0762
10484 ^
10485
10486 040225 200 14 0 00 041043 ..0763: MOVE SCR2,OFLOC ;GET PC
10487 040226 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10488 040227 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10489 040230 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10490 040231 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10491 ERROR (..0762,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10492
10493 040232 036 13 0 00 046021
10494 040233 035 00 0 00 040220 ERLOOP ..0762 ;IF ERROR, LOOP TO ..0762
10495 ^
10496 ^
10497
10498 ; **********************************************************************
10499 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10500 ; **********************************************************************
10501
10502 ODIV (1,0,0,0,0,1)^
10503
10504 ; --- DIVIDEND == (1,0,0,0)
10505 ; --- DIVISOR === (0,1)
10506 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-4
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0235
10507
10508 040234 200 01 0 00 046104 ..0764: MOVE AC1,[[EXP 1,0,0,0,0,1],,ODEND]
10509 040235 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10510 040236 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10511 ERROR (..0764,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10512 040237 036 14 0 00 046006
10513 040240 035 00 0 00 040234 ERLOOP ..0764 ;IF ERROR, LOOP TO ..0764
10514 ^
10515
10516 040241 200 14 0 00 041043 ..0765: MOVE SCR2,OFLOC ;GET PC
10517 040242 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10518 040243 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10519 040244 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10520 040245 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10521 ERROR (..0764,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10522
10523 040246 036 13 0 00 046021
10524 040247 035 00 0 00 040234 ERLOOP ..0764 ;IF ERROR, LOOP TO ..0764
10525 ^
10526 ^
10527
10528 ; **********************************************************************
10529 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10530 ; **********************************************************************
10531
10532 ODIV (1,0,0,0,-1,-1)^
10533
10534 ; --- DIVIDEND == (1,0,0,0)
10535 ; --- DIVISOR === (-1,-1)
10536 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10537
10538 040250 200 01 0 00 046113 ..0766: MOVE AC1,[[EXP 1,0,0,0,-1,-1],,ODEND]
10539 040251 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10540 040252 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10541 ERROR (..0766,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10542 040253 036 14 0 00 046006
10543 040254 035 00 0 00 040250 ERLOOP ..0766 ;IF ERROR, LOOP TO ..0766
10544 ^
10545
10546 040255 200 14 0 00 041043 ..0767: MOVE SCR2,OFLOC ;GET PC
10547 040256 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10548 040257 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10549 040260 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10550 040261 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10551 ERROR (..0766,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10552
10553 040262 036 13 0 00 046021
10554 040263 035 00 0 00 040250 ERLOOP ..0766 ;IF ERROR, LOOP TO ..0766
10555 ^
10556 ^
10557
10558 ; **********************************************************************
10559 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10560 ; **********************************************************************
10561
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-5
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0236
10562 ODIV (-1,-1,1B0,1B0,0,1)^
10563
10564 ; --- DIVIDEND == (-1,-1,1B0,1B0)
10565 ; --- DIVISOR === (0,1)
10566 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10567
10568 040264 200 01 0 00 046122 ..0770: MOVE AC1,[[EXP -1,-1,1B0,1B0,0,1],,ODEND]
10569 040265 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10570 040266 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10571 ERROR (..0770,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10572 040267 036 14 0 00 046006
10573 040270 035 00 0 00 040264 ERLOOP ..0770 ;IF ERROR, LOOP TO ..0770
10574 ^
10575
10576 040271 200 14 0 00 041043 ..0771: MOVE SCR2,OFLOC ;GET PC
10577 040272 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10578 040273 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10579 040274 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10580 040275 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10581 ERROR (..0770,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10582
10583 040276 036 13 0 00 046021
10584 040277 035 00 0 00 040264 ERLOOP ..0770 ;IF ERROR, LOOP TO ..0770
10585 ^
10586 ^
10587
10588 ; **********************************************************************
10589 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10590 ; **********************************************************************
10591
10592 ODIV (-1,-1,1B0,1B0,-1,-1)^
10593
10594 ; --- DIVIDEND == (-1,-1,1B0,1B0)
10595 ; --- DIVISOR === (-1,-1)
10596 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10597
10598 040300 200 01 0 00 046131 ..0772: MOVE AC1,[[EXP -1,-1,1B0,1B0,-1,-1],,ODEND]
10599 040301 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10600 040302 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10601 ERROR (..0772,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10602 040303 036 14 0 00 046006
10603 040304 035 00 0 00 040300 ERLOOP ..0772 ;IF ERROR, LOOP TO ..0772
10604 ^
10605
10606 040305 200 14 0 00 041043 ..0773: MOVE SCR2,OFLOC ;GET PC
10607 040306 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10608 040307 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10609 040310 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10610 040311 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10611 ERROR (..0772,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10612
10613 040312 036 13 0 00 046021
10614 040313 035 00 0 00 040300 ERLOOP ..0772 ;IF ERROR, LOOP TO ..0772
10615 ^
10616 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-6
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0237
10617
10618 ; **********************************************************************
10619 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10620 ; **********************************************************************
10621
10622 ODIV (-1,1B0,1B0,1B0,0,1)^
10623
10624 ; --- DIVIDEND == (-1,1B0,1B0,1B0)
10625 ; --- DIVISOR === (0,1)
10626 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10627
10628 040314 200 01 0 00 046140 ..0774: MOVE AC1,[[EXP -1,1B0,1B0,1B0,0,1],,ODEND]
10629 040315 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10630 040316 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10631 ERROR (..0774,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10632 040317 036 14 0 00 046006
10633 040320 035 00 0 00 040314 ERLOOP ..0774 ;IF ERROR, LOOP TO ..0774
10634 ^
10635
10636 040321 200 14 0 00 041043 ..0775: MOVE SCR2,OFLOC ;GET PC
10637 040322 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10638 040323 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10639 040324 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10640 040325 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10641 ERROR (..0774,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10642
10643 040326 036 13 0 00 046021
10644 040327 035 00 0 00 040314 ERLOOP ..0774 ;IF ERROR, LOOP TO ..0774
10645 ^
10646 ^
10647
10648 ; **********************************************************************
10649 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10650 ; **********************************************************************
10651
10652 ODIV (-1,1B0,1B0,1B0,-1,-1)^
10653
10654 ; --- DIVIDEND == (-1,1B0,1B0,1B0)
10655 ; --- DIVISOR === (-1,-1)
10656 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10657
10658 040330 200 01 0 00 046147 ..0776: MOVE AC1,[[EXP -1,1B0,1B0,1B0,-1,-1],,ODEND]
10659 040331 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10660 040332 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10661 ERROR (..0776,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10662 040333 036 14 0 00 046006
10663 040334 035 00 0 00 040330 ERLOOP ..0776 ;IF ERROR, LOOP TO ..0776
10664 ^
10665
10666 040335 200 14 0 00 041043 ..0777: MOVE SCR2,OFLOC ;GET PC
10667 040336 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10668 040337 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10669 040340 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10670 040341 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10671 ERROR (..0776,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-7
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0238
10672
10673 040342 036 13 0 00 046021
10674 040343 035 00 0 00 040330 ERLOOP ..0776 ;IF ERROR, LOOP TO ..0776
10675 ^
10676 ^
10677
10678 ; **********************************************************************
10679 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10680 ; **********************************************************************
10681
10682 ODIV (1,0,0,0,1,0)^
10683
10684 ; --- DIVIDEND == (1,0,0,0)
10685 ; --- DIVISOR === (1,0)
10686 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10687
10688 040344 200 01 0 00 046156 ..1000: MOVE AC1,[[EXP 1,0,0,0,1,0],,ODEND]
10689 040345 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10690 040346 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10691 ERROR (..1000,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10692 040347 036 14 0 00 046006
10693 040350 035 00 0 00 040344 ERLOOP ..1000 ;IF ERROR, LOOP TO ..1000
10694 ^
10695
10696 040351 200 14 0 00 041043 ..1001: MOVE SCR2,OFLOC ;GET PC
10697 040352 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10698 040353 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10699 040354 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10700 040355 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10701 ERROR (..1000,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10702
10703 040356 036 13 0 00 046021
10704 040357 035 00 0 00 040344 ERLOOP ..1000 ;IF ERROR, LOOP TO ..1000
10705 ^
10706 ^
10707
10708 ; **********************************************************************
10709 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10710 ; **********************************************************************
10711
10712 ODIV (1,0,0,0,-1,0)^
10713
10714 ; --- DIVIDEND == (1,0,0,0)
10715 ; --- DIVISOR === (-1,0)
10716 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10717
10718 040360 200 01 0 00 046165 ..1002: MOVE AC1,[[EXP 1,0,0,0,-1,0],,ODEND]
10719 040361 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10720 040362 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10721 ERROR (..1002,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10722 040363 036 14 0 00 046006
10723 040364 035 00 0 00 040360 ERLOOP ..1002 ;IF ERROR, LOOP TO ..1002
10724 ^
10725
10726 040365 200 14 0 00 041043 ..1003: MOVE SCR2,OFLOC ;GET PC
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-8
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0239
10727 040366 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10728 040367 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10729 040370 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10730 040371 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10731 ERROR (..1002,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10732
10733 040372 036 13 0 00 046021
10734 040373 035 00 0 00 040360 ERLOOP ..1002 ;IF ERROR, LOOP TO ..1002
10735 ^
10736 ^
10737
10738 ; **********************************************************************
10739 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10740 ; **********************************************************************
10741
10742 ODIV (-1,1B0,1B0,1B0,1,0)^
10743
10744 ; --- DIVIDEND == (-1,1B0,1B0,1B0)
10745 ; --- DIVISOR === (1,0)
10746 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10747
10748 040374 200 01 0 00 046174 ..1004: MOVE AC1,[[EXP -1,1B0,1B0,1B0,1,0],,ODEND]
10749 040375 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10750 040376 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10751 ERROR (..1004,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10752 040377 036 14 0 00 046006
10753 040400 035 00 0 00 040374 ERLOOP ..1004 ;IF ERROR, LOOP TO ..1004
10754 ^
10755
10756 040401 200 14 0 00 041043 ..1005: MOVE SCR2,OFLOC ;GET PC
10757 040402 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10758 040403 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10759 040404 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10760 040405 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10761 ERROR (..1004,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10762
10763 040406 036 13 0 00 046021
10764 040407 035 00 0 00 040374 ERLOOP ..1004 ;IF ERROR, LOOP TO ..1004
10765 ^
10766 ^
10767
10768 ; **********************************************************************
10769 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10770 ; **********************************************************************
10771
10772 ODIV (-1,1B0,1B0,1B0,-1,1B0)^
10773
10774 ; --- DIVIDEND == (-1,1B0,1B0,1B0)
10775 ; --- DIVISOR === (-1,1B0)
10776 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10777
10778 040410 200 01 0 00 046203 ..1006: MOVE AC1,[[EXP -1,1B0,1B0,1B0,-1,1B0],,ODEND]
10779 040411 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10780 040412 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10781 ERROR (..1006,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-9
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0240
10782 040413 036 14 0 00 046006
10783 040414 035 00 0 00 040410 ERLOOP ..1006 ;IF ERROR, LOOP TO ..1006
10784 ^
10785
10786 040415 200 14 0 00 041043 ..1007: MOVE SCR2,OFLOC ;GET PC
10787 040416 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10788 040417 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10789 040420 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10790 040421 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10791 ERROR (..1006,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10792
10793 040422 036 13 0 00 046021
10794 040423 035 00 0 00 040410 ERLOOP ..1006 ;IF ERROR, LOOP TO ..1006
10795 ^
10796 ^
10797
10798 ; **********************************************************************
10799 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10800 ; **********************************************************************
10801
10802 ODIV (0,377777777777,377777777777,377777777777,0,377777777777)^
10803
10804 ; --- DIVIDEND == (0,377777777777,377777777777,377777777777)
10805 ; --- DIVISOR === (0,377777777777)
10806 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10807
10808 040424 200 01 0 00 046212 ..1010: MOVE AC1,[[EXP 0,377777777777,377777777777,377777777777,0,377777777777],,ODEND]
10809 040425 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10810 040426 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10811 ERROR (..1010,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10812 040427 036 14 0 00 046006
10813 040430 035 00 0 00 040424 ERLOOP ..1010 ;IF ERROR, LOOP TO ..1010
10814 ^
10815
10816 040431 200 14 0 00 041043 ..1011: MOVE SCR2,OFLOC ;GET PC
10817 040432 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10818 040433 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10819 040434 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10820 040435 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10821 ERROR (..1010,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10822
10823 040436 036 13 0 00 046021
10824 040437 035 00 0 00 040424 ERLOOP ..1010 ;IF ERROR, LOOP TO ..1010
10825 ^
10826 ^
10827
10828 ; **********************************************************************
10829 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10830 ; **********************************************************************
10831
10832 ODIV (0,377777777777,377777777777,377777777777,-1,400000000001)^
10833
10834 ; --- DIVIDEND == (0,377777777777,377777777777,377777777777)
10835 ; --- DIVISOR === (-1,400000000001)
10836 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-10
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0241
10837
10838 040440 ..1012: MOVE AC1,[[EXP 0,377777777777,377777777777,377777777777,-1,400000000001],,ODEND]
10839 040440 200 01 0 00 046221
10840 040441 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10841 040442 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10842 ERROR (..1012,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10843 040443 036 14 0 00 046006
10844 040444 035 00 0 00 040440 ERLOOP ..1012 ;IF ERROR, LOOP TO ..1012
10845 ^
10846
10847 040445 200 14 0 00 041043 ..1013: MOVE SCR2,OFLOC ;GET PC
10848 040446 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10849 040447 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10850 040450 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10851 040451 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10852 ERROR (..1012,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10853
10854 040452 036 13 0 00 046021
10855 040453 035 00 0 00 040440 ERLOOP ..1012 ;IF ERROR, LOOP TO ..1012
10856 ^
10857 ^
10858
10859 ; **********************************************************************
10860 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10861 ; **********************************************************************
10862
10863 ODIV (-1,1B0,1B0,400000000001,0,377777777777)^
10864
10865 ; --- DIVIDEND == (-1,1B0,1B0,400000000001)
10866 ; --- DIVISOR === (0,377777777777)
10867 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10868
10869 040454 200 01 0 00 046222 ..1014: MOVE AC1,[[EXP -1,1B0,1B0,400000000001,0,377777777777],,ODEND]
10870 040455 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10871 040456 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10872 ERROR (..1014,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10873 040457 036 14 0 00 046006
10874 040460 035 00 0 00 040454 ERLOOP ..1014 ;IF ERROR, LOOP TO ..1014
10875 ^
10876
10877 040461 200 14 0 00 041043 ..1015: MOVE SCR2,OFLOC ;GET PC
10878 040462 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10879 040463 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10880 040464 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10881 040465 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10882 ERROR (..1014,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10883
10884 040466 036 13 0 00 046021
10885 040467 035 00 0 00 040454 ERLOOP ..1014 ;IF ERROR, LOOP TO ..1014
10886 ^
10887 ^
10888
10889 ; **********************************************************************
10890 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10891 ; **********************************************************************
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-11
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0242
10892
10893 ODIV (-1,1B0,1B0,400000000001,-1,400000000001)^
10894
10895 ; --- DIVIDEND == (-1,1B0,1B0,400000000001)
10896 ; --- DIVISOR === (-1,400000000001)
10897 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10898
10899 040470 200 01 0 00 046231 ..1016: MOVE AC1,[[EXP -1,1B0,1B0,400000000001,-1,400000000001],,ODEND]
10900 040471 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10901 040472 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10902 ERROR (..1016,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10903 040473 036 14 0 00 046006
10904 040474 035 00 0 00 040470 ERLOOP ..1016 ;IF ERROR, LOOP TO ..1016
10905 ^
10906
10907 040475 200 14 0 00 041043 ..1017: MOVE SCR2,OFLOC ;GET PC
10908 040476 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10909 040477 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10910 040500 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10911 040501 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10912 ERROR (..1016,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10913
10914 040502 036 13 0 00 046021
10915 040503 035 00 0 00 040470 ERLOOP ..1016 ;IF ERROR, LOOP TO ..1016
10916 ^
10917 ^
10918
10919 ; **********************************************************************
10920 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10921 ; **********************************************************************
10922
10923 ODIV (1,0,377777777777,377777777777,0,377777777777)^
10924
10925 ; --- DIVIDEND == (1,0,377777777777,377777777777)
10926 ; --- DIVISOR === (0,377777777777)
10927 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10928
10929 040504 200 01 0 00 046232 ..1020: MOVE AC1,[[EXP 1,0,377777777777,377777777777,0,377777777777],,ODEND]
10930 040505 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10931 040506 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10932 ERROR (..1020,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10933 040507 036 14 0 00 046006
10934 040510 035 00 0 00 040504 ERLOOP ..1020 ;IF ERROR, LOOP TO ..1020
10935 ^
10936
10937 040511 200 14 0 00 041043 ..1021: MOVE SCR2,OFLOC ;GET PC
10938 040512 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10939 040513 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10940 040514 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10941 040515 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10942 ERROR (..1020,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10943
10944 040516 036 13 0 00 046021
10945 040517 035 00 0 00 040504 ERLOOP ..1020 ;IF ERROR, LOOP TO ..1020
10946 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-12
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0243
10947 ^
10948
10949 ; **********************************************************************
10950 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10951 ; **********************************************************************
10952
10953 ODIV (1,0,377777777777,377777777777,-1,400000000001)^
10954
10955 ; --- DIVIDEND == (1,0,377777777777,377777777777)
10956 ; --- DIVISOR === (-1,400000000001)
10957 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10958
10959 040520 200 01 0 00 046241 ..1022: MOVE AC1,[[EXP 1,0,377777777777,377777777777,-1,400000000001],,ODEND]
10960 040521 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10961 040522 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10962 ERROR (..1022,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10963 040523 036 14 0 00 046006
10964 040524 035 00 0 00 040520 ERLOOP ..1022 ;IF ERROR, LOOP TO ..1022
10965 ^
10966
10967 040525 200 14 0 00 041043 ..1023: MOVE SCR2,OFLOC ;GET PC
10968 040526 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10969 040527 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
10970 040530 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
10971 040531 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
10972 ERROR (..1022,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
10973
10974 040532 036 13 0 00 046021
10975 040533 035 00 0 00 040520 ERLOOP ..1022 ;IF ERROR, LOOP TO ..1022
10976 ^
10977 ^
10978
10979 ; **********************************************************************
10980 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
10981 ; **********************************************************************
10982
10983 ODIV (-2,-1,1B0,400000000001,0,377777777777)^
10984
10985 ; --- DIVIDEND == (-2,-1,1B0,400000000001)
10986 ; --- DIVISOR === (0,377777777777)
10987 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
10988
10989 040534 200 01 0 00 046250 ..1024: MOVE AC1,[[EXP -2,-1,1B0,400000000001,0,377777777777],,ODEND]
10990 040535 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
10991 040536 260 17 0 00 041033 GO OSUBR ;GO DO TEST
10992 ERROR (..1024,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
10993 040537 036 14 0 00 046006
10994 040540 035 00 0 00 040534 ERLOOP ..1024 ;IF ERROR, LOOP TO ..1024
10995 ^
10996
10997 040541 200 14 0 00 041043 ..1025: MOVE SCR2,OFLOC ;GET PC
10998 040542 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
10999 040543 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
11000 040544 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
11001 040545 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-13
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0244
11002 ERROR (..1024,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
11003
11004 040546 036 13 0 00 046021
11005 040547 035 00 0 00 040534 ERLOOP ..1024 ;IF ERROR, LOOP TO ..1024
11006 ^
11007 ^
11008
11009 ; **********************************************************************
11010 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
11011 ; **********************************************************************
11012
11013 ODIV (-2,-1,1B0,400000000001,-1,400000000001)^
11014
11015 ; --- DIVIDEND == (-2,-1,1B0,400000000001)
11016 ; --- DIVISOR === (-1,400000000001)
11017 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
11018
11019 040550 200 01 0 00 046257 ..1026: MOVE AC1,[[EXP -2,-1,1B0,400000000001,-1,400000000001],,ODEND]
11020 040551 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
11021 040552 260 17 0 00 041033 GO OSUBR ;GO DO TEST
11022 ERROR (..1026,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
11023 040553 036 14 0 00 046006
11024 040554 035 00 0 00 040550 ERLOOP ..1026 ;IF ERROR, LOOP TO ..1026
11025 ^
11026
11027 040555 200 14 0 00 041043 ..1027: MOVE SCR2,OFLOC ;GET PC
11028 040556 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
11029 040557 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
11030 040560 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
11031 040561 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
11032 ERROR (..1026,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
11033
11034 040562 036 13 0 00 046021
11035 040563 035 00 0 00 040550 ERLOOP ..1026 ;IF ERROR, LOOP TO ..1026
11036 ^
11037 ^
11038
11039 ; **********************************************************************
11040 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
11041 ; **********************************************************************
11042
11043 ODIV (1B0,1B0,1B0,1B0,1B0,1B0)^
11044
11045 ; --- DIVIDEND == (1B0,1B0,1B0,1B0)
11046 ; --- DIVISOR === (1B0,1B0)
11047 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
11048
11049 040564 200 01 0 00 046266 ..1030: MOVE AC1,[[EXP 1B0,1B0,1B0,1B0,1B0,1B0],,ODEND]
11050 040565 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
11051 040566 260 17 0 00 041033 GO OSUBR ;GO DO TEST
11052 ERROR (..1030,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
11053 040567 036 14 0 00 046006
11054 040570 035 00 0 00 040564 ERLOOP ..1030 ;IF ERROR, LOOP TO ..1030
11055 ^
11056
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-14
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0245
11057 040571 200 14 0 00 041043 ..1031: MOVE SCR2,OFLOC ;GET PC
11058 040572 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
11059 040573 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
11060 040574 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
11061 040575 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
11062 ERROR (..1030,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
11063
11064 040576 036 13 0 00 046021
11065 040577 035 00 0 00 040564 ERLOOP ..1030 ;IF ERROR, LOOP TO ..1030
11066 ^
11067 ^
11068
11069 ; **********************************************************************
11070 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
11071 ; **********************************************************************
11072
11073 ODIV (377777777777,377777777777,377777777777,377777777777,377777777777,377777777
11074 777)^
11075
11076 ; --- DIVIDEND == (377777777777,377777777777,377777777777,377777777777)
11077 ; --- DIVISOR === (377777777777,377777777777)
11078 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
11079
11080 ..1032: MOVE AC1,[[EXP 377777777777,377777777777,377777777777,377777777777,377777777777,
11081 040600 200 01 0 00 046275 377777777777],,ODEND]
11082 040601 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
11083 040602 260 17 0 00 041033 GO OSUBR ;GO DO TEST
11084 ERROR (..1032,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
11085 040603 036 14 0 00 046006
11086 040604 035 00 0 00 040600 ERLOOP ..1032 ;IF ERROR, LOOP TO ..1032
11087 ^
11088
11089 040605 200 14 0 00 041043 ..1033: MOVE SCR2,OFLOC ;GET PC
11090 040606 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
11091 040607 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
11092 040610 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
11093 040611 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
11094 ERROR (..1032,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
11095
11096 040612 036 13 0 00 046021
11097 040613 035 00 0 00 040600 ERLOOP ..1032 ;IF ERROR, LOOP TO ..1032
11098 ^
11099 ^
11100
11101 ; **********************************************************************
11102 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
11103 ; **********************************************************************
11104
11105 ODIV (377777777777,377777777777,377777777777,377777777777,1B0,400000000001)^
11106
11107 ; --- DIVIDEND == (377777777777,377777777777,377777777777,377777777777)
11108 ; --- DIVISOR === (1B0,400000000001)
11109 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
11110
11111 ..1034: MOVE AC1,[[EXP 377777777777,377777777777,377777777777,377777777777,1B0,400000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-15
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0246
11112 040614 200 01 0 00 046304 001],,ODEND]
11113 040615 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
11114 040616 260 17 0 00 041033 GO OSUBR ;GO DO TEST
11115 ERROR (..1034,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
11116 040617 036 14 0 00 046006
11117 040620 035 00 0 00 040614 ERLOOP ..1034 ;IF ERROR, LOOP TO ..1034
11118 ^
11119
11120 040621 200 14 0 00 041043 ..1035: MOVE SCR2,OFLOC ;GET PC
11121 040622 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
11122 040623 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
11123 040624 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
11124 040625 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
11125 ERROR (..1034,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
11126
11127 040626 036 13 0 00 046021
11128 040627 035 00 0 00 040614 ERLOOP ..1034 ;IF ERROR, LOOP TO ..1034
11129 ^
11130 ^
11131
11132 ; **********************************************************************
11133 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ----------
11134 ; **********************************************************************
11135
11136 ODIV (1B0,400000000001,1B0,1B0,377777777777,377777777777)^
11137
11138 ; --- DIVIDEND == (1B0,400000000001,1B0,1B0)
11139 ; --- DIVISOR === (377777777777,377777777777)
11140 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
11141
11142 040630 200 01 0 00 046313 ..1036: MOVE AC1,[[EXP 1B0,400000000001,1B0,1B0,377777777777,377777777777],,ODEND]
11143 040631 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
11144 040632 260 17 0 00 041033 GO OSUBR ;GO DO TEST
11145 ERROR (..1036,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
11146 040633 036 14 0 00 046006
11147 040634 035 00 0 00 040630 ERLOOP ..1036 ;IF ERROR, LOOP TO ..1036
11148 ^
11149
11150 040635 200 14 0 00 041043 ..1037: MOVE SCR2,OFLOC ;GET PC
11151 040636 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
11152 040637 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
11153 040640 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
11154 040641 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
11155 ERROR (..1036,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
11156
11157 040642 036 13 0 00 046021
11158 040643 035 00 0 00 040630 ERLOOP ..1036 ;IF ERROR, LOOP TO ..1036
11159 ^
11160 ^
11161
11162 ; **********************************************************************
11163 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING WITH INCONSISTENT SIGNS -------
11164 ---
11165 ; **********************************************************************
11166
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-16
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0247
11167 ODIV (1,1B0,-1,-1,0,377777777777)^
11168
11169 ; --- DIVIDEND == (1,1B0,-1,-1)
11170 ; --- DIVISOR === (0,377777777777)
11171 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
11172
11173 040644 200 01 0 00 046322 ..1040: MOVE AC1,[[EXP 1,1B0,-1,-1,0,377777777777],,ODEND]
11174 040645 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
11175 040646 260 17 0 00 041033 GO OSUBR ;GO DO TEST
11176 ERROR (..1040,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
11177 040647 036 14 0 00 046006
11178 040650 035 00 0 00 040644 ERLOOP ..1040 ;IF ERROR, LOOP TO ..1040
11179 ^
11180
11181 040651 200 14 0 00 041043 ..1041: MOVE SCR2,OFLOC ;GET PC
11182 040652 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
11183 040653 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
11184 040654 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
11185 040655 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
11186 ERROR (..1040,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
11187
11188 040656 036 13 0 00 046021
11189 040657 035 00 0 00 040644 ERLOOP ..1040 ;IF ERROR, LOOP TO ..1040
11190 ^
11191 ^
11192
11193 ; **********************************************************************
11194 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING WITH INCONSISTENT SIGNS -------
11195 ---
11196 ; **********************************************************************
11197
11198 ODIV (1,0,377777777777,377777777777,-1,1)^
11199
11200 ; --- DIVIDEND == (1,0,377777777777,377777777777)
11201 ; --- DIVISOR === (-1,1)
11202 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
11203
11204 040660 200 01 0 00 046331 ..1042: MOVE AC1,[[EXP 1,0,377777777777,377777777777,-1,1],,ODEND]
11205 040661 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
11206 040662 260 17 0 00 041033 GO OSUBR ;GO DO TEST
11207 ERROR (..1042,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
11208 040663 036 14 0 00 046006
11209 040664 035 00 0 00 040660 ERLOOP ..1042 ;IF ERROR, LOOP TO ..1042
11210 ^
11211
11212 040665 200 14 0 00 041043 ..1043: MOVE SCR2,OFLOC ;GET PC
11213 040666 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
11214 040667 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
11215 040670 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
11216 040671 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
11217 ERROR (..1042,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
11218
11219 040672 036 13 0 00 046021
11220 040673 035 00 0 00 040660 ERLOOP ..1042 ;IF ERROR, LOOP TO ..1042
11221 ^
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-17
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0248
11222 ^
11223
11224 ; **********************************************************************
11225 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING WITH INCONSISTENT SIGNS -------
11226 ---
11227 ; **********************************************************************
11228
11229 ODIV (-2,377777777777,0,1,0,-1)^
11230
11231 ; --- DIVIDEND == (-2,377777777777,0,1)
11232 ; --- DIVISOR === (0,-1)
11233 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
11234
11235 040674 200 01 0 00 046340 ..1044: MOVE AC1,[[EXP -2,377777777777,0,1,0,-1],,ODEND]
11236 040675 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
11237 040676 260 17 0 00 041033 GO OSUBR ;GO DO TEST
11238 ERROR (..1044,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
11239 040677 036 14 0 00 046006
11240 040700 035 00 0 00 040674 ERLOOP ..1044 ;IF ERROR, LOOP TO ..1044
11241 ^
11242
11243 040701 200 14 0 00 041043 ..1045: MOVE SCR2,OFLOC ;GET PC
11244 040702 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
11245 040703 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
11246 040704 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
11247 040705 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
11248 ERROR (..1044,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
11249
11250 040706 036 13 0 00 046021
11251 040707 035 00 0 00 040674 ERLOOP ..1044 ;IF ERROR, LOOP TO ..1044
11252 ^
11253 ^
11254
11255 ; **********************************************************************
11256 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING WITH INCONSISTENT SIGNS -------
11257 ---
11258 ; **********************************************************************
11259
11260 ODIV (-2,-1,0,1,-1,400000000001)^
11261
11262 ; --- DIVIDEND == (-2,-1,0,1)
11263 ; --- DIVISOR === (-1,400000000001)
11264 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED)
11265
11266 040710 200 01 0 00 046347 ..1046: MOVE AC1,[[EXP -2,-1,0,1,-1,400000000001],,ODEND]
11267 040711 251 01 0 00 041111 BLT AC1,ORES-1 ;SET UP OPERANDS
11268 040712 260 17 0 00 041033 GO OSUBR ;GO DO TEST
11269 ERROR (..1046,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL
11270 040713 036 14 0 00 046006
11271 040714 035 00 0 00 040710 ERLOOP ..1046 ;IF ERROR, LOOP TO ..1046
11272 ^
11273
11274 040715 200 14 0 00 041043 ..1047: MOVE SCR2,OFLOC ;GET PC
11275 040716 434 14 0 00 046011 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV)
11276 040717 336 00 0 00 030037 SKIPN USER ;EXEC MODE ?
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 33-18
DFKCBM MAC 26-Sep-79 16:11 DDIV - TEST G SEQ 0249
11277 040720 621 14 0 00 400000 TLZ SCR2,AROV ;YES, NO AROV FLAG IN EXEC ON KL10
11278 040721 312 14 0 00 041043 CAME SCR2,OFLOC ;PC CORRECT?
11279 ERROR (..1046,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL
11280
11281 040722 036 13 0 00 046021
11282 040723 035 00 0 00 040710 ERLOOP ..1046 ;IF ERROR, LOOP TO ..1046
11283 ^
11284 ^
11285
11286 040724 254 00 0 00 030057 PHALT: JRST BEGEND
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 34
DFKCBM MAC 26-Sep-79 16:11 TESTING SUBROUTINES SEQ 0250
11287 SUBTTL TESTING SUBROUTINES
11288
11289 ; **********************************************************************
11290 ;*MSUBR - SUBROUTINE TO DO MULTIPLICATION CALCULATIONS
11291 ;*
11292 ;* ARGUMENTS: MCAND - CONTAINS MULTIPLICAND
11293 ;* MPLIER - CONTAINS MULTIPLIER
11294 ;* MRES - CONTAINS THE EXPECTED RESULT
11295 ; **********************************************************************
11296
11297 040725 200 15 0 00 046350 MSUBR: MOVE SCR3,[MCAND,,MPLIER] ;ADDRS OF OPERANDS FOR ADDL PRINT ROUTINE
11298 040726 120 01 0 00 040756 DMOVE AC1,MCAND ;INIT AC1 WITH MULTIPLICAND
11299 040727 120 03 0 00 043657 DMOVE AC1+2,[EXP 525252525252,252525252525] ;PUT GARBAGE IN
11300 ;RIGHT HALF OF RESULT
11301 040730 255 17 0 00 040731 JFCL 17,.+1 ;CLEAR PC FLAGS
11302 ;----------------------
11303 040731 116 01 0 00 040760 DMUL AC1,MPLIER ;----- MULTIPLY -----
11304 ;----------------------
11305 040732 264 00 0 00 040733 JSR .+1 ;SAVE PC FLAGS
11306 040733 000000 000000 MFLOC: 0 ;PC FLAGS STORED HERE
11307
11308 040734 400 13 0 00 000000 SETZ SCR1, ;KEEP TRACK OF INCORRECT WORD
11309 040735 312 01 0 00 040762 CAME AC1,MRES ;1ST WORD OF RESULT OK?
11310 040736 254 00 0 00 040750 JRST MERROR ;FOUND AN ERROR
11311
11312 040737 201 13 0 00 000001 MOVEI SCR1,1 ;POINT TO 2ND WORD AS INCORRECT
11313 040740 312 02 0 00 040763 CAME AC1+1,MRES+1 ;2ND WORD OF RESULT OK?
11314 040741 254 00 0 00 040750 JRST MERROR ;FOUND AN ERROR
11315
11316 040742 201 13 0 00 000002 MOVEI SCR1,2 ;POINT TO 3RD WORD AS INCORRECT
11317 040743 312 03 0 00 040764 CAME AC1+2,MRES+2 ;3RD WORD OF RESULT OK?
11318 040744 254 00 0 00 040750 JRST MERROR ;FOUND AN ERROR
11319
11320 040745 201 13 0 00 000003 MOVEI SCR1,3 ;POINT TO 4TH WORD AS INCORRECT
11321 040746 316 04 0 00 040765 CAMN AC1+3,MRES+3 ;4TH WORD OF RESULT OK?
11322 040747 254 00 0 00 040753 JRST MTEST ;GO TEST IF PC FLAGS OK
11323
11324 040750 200 14 0 13 000001 MERROR: MOVE SCR2,AC1(SCR1) ;GET ACTUAL RESULT
11325 040751 200 13 0 13 040762 MOVE SCR1,MRES(SCR1) ;GET CORRECT RESULT
11326 040752 263 17 0 00 000000 RTN ;TAKE ERROR RETURN
11327
11328 040753 262 17 0 00 040766 MTEST: GET MRET ;GET RETURN ADDRESS IN MRET
11329 040754 350 00 0 00 040766 AOS MRET ;SET UP +1 NO ERROR RETURN
11330 040755 254 00 1 00 040766 JRST @MRET ;RETURN
11331
11332 040756 MCAND: BLOCK 2 ;MULTIPLICAND
11333 040760 MPLIER: BLOCK 2 ;MULTIPLIER
11334 040762 MRES: BLOCK 4 ;EXPECTED RESULT
11335 040766 MRET: BLOCK 1 ;RETURN + 1 ADDRESS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 35
DFKCBM MAC 26-Sep-79 16:11 TESTING SUBROUTINES SEQ 0251
11336
11337 ; **********************************************************************
11338 ;*PSUBR - SUBROUTINE TO DO DIVISION CALCULATIONS
11339 ;*
11340 ;* ARGUMENTS: PDEND - CONTAINS DIVIDEND
11341 ;* PISOR - CONTAINS DIVISOR
11342 ;* PRES - CONTAINS THE EXPECTED RESULT
11343 ; **********************************************************************
11344
11345 040767 200 15 0 00 046351 PSUBR: MOVE SCR3,[PDEND,,PISOR] ;ADDRS OF OPERANDS FOR ADDL PRINT ROUTINE
11346 040770 120 01 0 00 041020 DMOVE AC1,PDEND ;INIT DIVIDEND (4 WORDS)
11347 040771 120 03 0 00 041022 DMOVE AC1+2,PDEND+2
11348
11349 040772 254 02 1 00 046352 JRSTF @[.+1] ;CLEAR PC FLAGS
11350 ;----------------------
11351 040773 117 01 0 00 041024 DDIV AC1,PISOR ;----- DIVIDE -------
11352 ;----------------------
11353 040774 264 00 0 00 040775 JSR .+1 ;SAVE PC FLAGS
11354 040775 000000 000000 PFLOC: 0 ;PC FLAGS STORED HERE
11355
11356 040776 400 13 0 00 000000 SETZ SCR1, ;KEEP TRACK OF INCORRECT WORD
11357 040777 312 01 0 00 041026 CAME AC1,PRES ;1ST WORD OF QUOTIENT OK?
11358 041000 254 00 0 00 041012 JRST PERROR ;FOUND AN ERROR
11359
11360 041001 201 13 0 00 000001 MOVEI SCR1,1 ;POINT TO 2ND WORD AS INCORRECT
11361 041002 312 02 0 00 041027 CAME AC1+1,PRES+1 ;2ND WORD OF QUOTIENT OK?
11362 041003 254 00 0 00 041012 JRST PERROR ;FOUND AN ERROR
11363
11364 041004 201 13 0 00 000002 MOVEI SCR1,2 ;POINT TO 3RD WORD AS INCORRECT
11365 041005 312 03 0 00 041030 CAME AC1+2,PRES+2 ;1ST WORD OF REMAINDER OK?
11366 041006 254 00 0 00 041012 JRST PERROR ;FOUND AN ERROR
11367
11368 041007 201 13 0 00 000003 MOVEI SCR1,3 ;POINT TO 4TH WORD AS INCORRECT
11369 041010 316 04 0 00 041031 CAMN AC1+3,PRES+3 ;2ND WORD OF REMAINDER OK?
11370 041011 254 00 0 00 041015 JRST PTEST ;GO TEST IF PC FLAGS OK
11371
11372 041012 200 14 0 13 000001 PERROR: MOVE SCR2,AC1(SCR1) ;GET ACTUAL RESULT
11373 041013 200 13 0 13 041026 MOVE SCR1,PRES(SCR1) ;GET CORRECT RESULT
11374 041014 263 17 0 00 000000 RTN ;TAKE ERROR RETURN
11375
11376 041015 262 17 0 00 040766 PTEST: GET MRET ;GET RETURN ADDRESS IN MRET
11377 041016 350 00 0 00 040766 AOS MRET ;SET UP +1 NO ERROR RETURN
11378 041017 254 00 1 00 040766 JRST @MRET ;RETURN
11379
11380 041020 PDEND: BLOCK 4 ;DIVIDEND
11381 041024 PISOR: BLOCK 2 ;DIVISOR
11382 041026 PRES: BLOCK 4 ;EXPECTED RESULT
11383 041032 PRET: BLOCK 1 ;RETURN + 1 ADDRESS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 36
DFKCBM MAC 26-Sep-79 16:11 TESTING SUBROUTINES SEQ 0252
11384
11385 ; **********************************************************************
11386 ;*OSUBR - SUBROUTINE TO DO DIVISION CALCULATIONS
11387 ;*
11388 ;* ARGUMENTS: ODEND - CONTAINS DIVIDEND
11389 ;* OISOR - CONTAINS DIVISOR
11390 ;*
11391 ;* NOTE: WHEN ENCOUNTERING A OVERFLOW/NO DIVIDE SITUATION THE PROCESSOR
11392 ;* ENSURES THAT THE OPERANDS DO NOT CHANGE. THE KL10 ENSURES
11393 ;* THAT NEITHER THE MAGNITUDE PORTION NOR THE SIGN BITS CHANGE.
11394 ;* THE KS10 ENSURES THAT THE MAGNITUDE PORTION OF EITHER WORD
11395 ;* DOES NOT CHANGE - HOWEVER, IT ONLY PROTECTS THE SIGN BIT OF
11396 ;* THE MOST SIGNIFICANT WORD. THE SIGN BIT OF THE OTHER WORD
11397 ;* IS INDETERMINATE. THIS TEST CHECKS TO FIND OUT WHAT TYPE OF
11398 ;* PROCESSOR WE HAVE AND WILL MODIFY THE TEST FOR A KS10.
11399 ;*
11400 ;* THE ABOVE WAS NOTICED WHEN RUNNING THE DIAGNOSTIC ON THE KS10
11401 ;* AFTER DEBUGGING ON A KL10. ACCORDING TO DON LEWINE, THIS WAS
11402 ;* DONE TO SAVE SPACE IN THE KS10 MICROCODE.
11403 ; **********************************************************************
11404
11405 041033 200 15 0 00 046353 OSUBR: MOVE SCR3,[ODEND,,OISOR] ;ADDRS OF OPERANDS FOR ADDL PRINT ROUTINE
11406 041034 120 01 0 00 041104 DMOVE AC1,ODEND ;INIT DIVIDEND (4 WORDS)
11407 041035 120 03 0 00 041106 DMOVE AC1+2,ODEND+2
11408 041036 124 01 0 00 041112 DMOVEM AC1,ORES ;RESULT SHOULD BE SAME AS
11409 041037 124 03 0 00 041114 DMOVEM AC1+2,ORES+2 ; DIVIDEND
11410
11411 041040 254 02 1 00 046354 JRSTF @[.+1] ;CLEAR PC FLAGS
11412 ;----------------------
11413 041041 117 01 0 00 041110 DDIV AC1,OISOR ;----- DIVIDE -------
11414 ;----------------------
11415 041042 264 00 0 00 041043 JSR .+1 ;SAVE PC FLAGS
11416 041043 000000 000000 OFLOC: 0 ;PC FLAGS STORED HERE
11417
11418 041044 336 00 0 00 030524 SKIPN SM10 ;KS10 PROCESSOR?
11419 041045 254 00 0 00 041054 JRST OCON ;NO - KL10
11420 041046 135 13 0 00 041076 LDB SCR1,OBYTEF ;COPY THE LOW ORDER SIGNS OF THE RESULT
11421 041047 137 13 0 00 041101 DPB SCR1,OBYTET ; INTO THE EXPECTED RESULT SINCE THEY
11422 041050 135 13 0 00 041077 LDB SCR1,OBYTEF+1 ; ARE INDETERMINATE AND WE DONT WANT
11423 041051 137 13 0 00 041102 DPB SCR1,OBYTET+1 ; TO TEST THE SIGN BIT.
11424 041052 135 13 0 00 041100 LDB SCR1,OBYTEF+2
11425 041053 137 13 0 00 041103 DPB SCR1,OBYTET+2
11426
11427 041054 400 13 0 00 000000 OCON: SETZ SCR1, ;KEEP TRACK OF INCORRECT WORD
11428 041055 312 01 0 00 041112 CAME AC1,ORES ;1ST WORD OF QUOTIENT OK?
11429 041056 254 00 0 00 041070 JRST OERROR ;FOUND AN ERROR
11430
11431 041057 201 13 0 00 000001 MOVEI SCR1,1 ;POINT TO 2ND WORD AS INCORRECT
11432 041060 312 02 0 00 041113 CAME AC1+1,ORES+1 ;2ND WORD OF QUOTIENT OK?
11433 041061 254 00 0 00 041070 JRST OERROR ;FOUND AN ERROR
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 37
DFKCBM MAC 26-Sep-79 16:11 TESTING SUBROUTINES SEQ 0253
11434
11435 041062 201 13 0 00 000002 MOVEI SCR1,2 ;POINT TO 3RD WORD AS INCORRECT
11436 041063 312 03 0 00 041114 CAME AC1+2,ORES+2 ;1ST WORD OF REMAINDER OK?
11437 041064 254 00 0 00 041070 JRST OERROR ;FOUND AN ERROR
11438
11439 041065 201 13 0 00 000003 MOVEI SCR1,3 ;POINT TO 4TH WORD AS INCORRECT
11440 041066 316 04 0 00 041115 CAMN AC1+3,ORES+3 ;2ND WORD OF REMAINDER OK?
11441 041067 254 00 0 00 041073 JRST OTEST ;GO TEST IF PC FLAGS OK
11442
11443 041070 200 14 0 13 000001 OERROR: MOVE SCR2,AC1(SCR1) ;GET ACTUAL RESULT
11444 041071 200 13 0 13 041112 MOVE SCR1,ORES(SCR1) ;GET CORRECT RESULT
11445 041072 263 17 0 00 000000 RTN ;TAKE ERROR RETURN
11446
11447 041073 262 17 0 00 040766 OTEST: GET MRET ;GET RETURN ADDRESS IN MRET
11448 041074 350 00 0 00 040766 AOS MRET ;SET UP +1 NO ERROR RETURN
11449 041075 254 00 1 00 040766 JRST @MRET ;RETURN
11450
11451 041076 43 01 0 00 000002 OBYTEF: POINT 1,AC1+1,0 ;BYTE POINTERS FOR GETTING SIGN
11452 041077 43 01 0 00 000003 POINT 1,AC1+2,0 ; FROM AC1+1,+2,+3 (ACTUAL RESULT)
11453 041100 43 01 0 00 000004 POINT 1,AC1+3,0
11454 041101 43 01 0 00 041113 OBYTET: POINT 1,ORES+1,0 ;BYTE POINTERS FOR PUTTING SIGN
11455 041102 43 01 0 00 041114 POINT 1,ORES+2,0 ; INTO ORES+1,+2,+3 (EXPECTED RESULT)
11456 041103 43 01 0 00 041115 POINT 1,ORES+3,0
11457
11458 041104 ODEND: BLOCK 4 ;DIVIDEND
11459 041110 OISOR: BLOCK 2 ;DIVISOR
11460 041112 ORES: BLOCK 4 ;EXPECTED RESULT
11461 041116 ORET: BLOCK 1 ;RETURN + 1 ADDRESS
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 38
DFKCBM MAC 26-Sep-79 16:11 ADDL ERROR PRINT ROUTINES SEQ 0254
11462 SUBTTL ADDL ERROR PRINT ROUTINES
11463 SALL
11464 ; **********************************************************************
11465 ;*APRINT - ADDITION ERROR PRINTER
11466 ; **********************************************************************
11467
11468 041117 037 02 0 00 046355 APRINT: PMSG (AUGEND: )
11469
11470 041120 554 13 0 00 000015 HLRZ SCR1,SCR3 ;GET ADDR OF AUGEND
11471 041121 200 00 1 00 000013 MOVE 0,@SCR1 ;GET AUGEND (LEFT WORD)
11472 041122 037 14 0 00 000000 PNTOCT
11473
11474 041123 340 13 0 00 000000 AOJ SCR1, ;POINT TO RIGHT WORD
11475 041124 200 00 1 00 000013 MOVE 0,@SCR1 ;GET AUGEND (RIGHT WORD)
11476 041125 037 14 0 00 000000 PNTOCT
11477
11478 041126 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF
11479 041127 037 02 0 00 046357 PMSG (ADDEND: )
11480
11481 041130 550 13 0 00 000015 HRRZ SCR1,SCR3 ;GET ADDR OF ADDEND
11482 041131 200 00 1 00 000013 MOVE 0,@SCR1 ;GET ADDEND (LEFT WORD)
11483 041132 037 14 0 00 000000 PNTOCT
11484
11485 041133 340 13 0 00 000000 AOJ SCR1, ;POINT TO RIGHT WORD
11486 041134 200 00 1 00 000013 MOVE 0,@SCR1 ;GET ADDEND (RIGHT WORD)
11487 041135 037 14 0 00 000000 PNTOCT
11488
11489 041136 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF
11490 041137 037 02 0 00 046361 PMSG (RESULT: )
11491
11492 041140 200 00 0 00 000001 MOVE 0,AC1 ;GET LEFT WORD OF RESULT
11493 041141 037 14 0 00 000000 PNTOCT
11494
11495 041142 200 00 0 00 000002 MOVE 0,AC1+1 ;GET RIGHT WORD OF RESULT
11496 041143 037 14 0 00 000000 PNTOCT
11497
11498 041144 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF
11499 041145 263 17 0 00 000000 RTN
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 39
DFKCBM MAC 26-Sep-79 16:11 ADDL ERROR PRINT ROUTINES SEQ 0255
11500
11501 ; **********************************************************************
11502 ;*SPRINT - SUBTRACTION ERROR PRINTER
11503 ; **********************************************************************
11504
11505 041146 037 02 0 00 046363 SPRINT: PMSG (MINUEND: )
11506
11507 041147 554 13 0 00 000015 HLRZ SCR1,SCR3 ;GET ADDR OF MINUEND
11508 041150 200 00 1 00 000013 MOVE 0,@SCR1 ;GET MINUEND (LEFT WORD)
11509 041151 037 14 0 00 000000 PNTOCT
11510
11511 041152 340 13 0 00 000000 AOJ SCR1, ;POINT TO RIGHT WORD
11512 041153 200 00 1 00 000013 MOVE 0,@SCR1 ;GET MINUEND (RIGHT WORD)
11513 041154 037 14 0 00 000000 PNTOCT
11514
11515 041155 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF
11516 041156 037 02 0 00 046366 PMSG (SUBTRAHEND: )
11517
11518 041157 550 13 0 00 000015 HRRZ SCR1,SCR3 ;GET ADDR OF SUBTRAHEND
11519 041160 200 00 1 00 000013 MOVE 0,@SCR1 ;GET SUBTRAHEND (LEFT WORD)
11520 041161 037 14 0 00 000000 PNTOCT
11521
11522 041162 340 13 0 00 000000 AOJ SCR1, ;POINT TO RIGHT WORD
11523 041163 200 00 1 00 000013 MOVE 0,@SCR1 ;GET SUBTRAHEND (RIGHT WORD)
11524 041164 037 14 0 00 000000 PNTOCT
11525
11526 041165 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF
11527 041166 037 02 0 00 046371 PMSG (RESULT: )
11528
11529 041167 200 00 0 00 000001 MOVE 0,AC1 ;GET LEFT WORD OF RESULT
11530 041170 037 14 0 00 000000 PNTOCT
11531
11532 041171 200 00 0 00 000002 MOVE 0,AC1+1 ;GET RIGHT WORD OF RESULT
11533 041172 037 14 0 00 000000 PNTOCT
11534
11535 041173 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF
11536 041174 263 17 0 00 000000 RTN
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 40
DFKCBM MAC 26-Sep-79 16:11 ADDL ERROR PRINT ROUTINES SEQ 0256
11537
11538 ; **********************************************************************
11539 ;*MPRINT - MULTIPLICATION ERROR PRINTER
11540 ; **********************************************************************
11541
11542 041175 037 02 0 00 046374 MPRINT: PMSG (MULTIPLICAND: )
11543
11544 041176 554 13 0 00 000015 HLRZ SCR1,SCR3 ;GET ADDR OF MULTIPLICAND
11545 041177 200 00 1 00 000013 MOVE 0,@SCR1 ;GET MULTIPLICAND (LEFT WORD)
11546 041200 037 14 0 00 000000 PNTOCT
11547
11548 041201 340 13 0 00 000000 AOJ SCR1, ;POINT TO RIGHT WORD
11549 041202 200 00 1 00 000013 MOVE 0,@SCR1 ;GET MULTIPLICAND (RIGHT WORD)
11550 041203 037 14 0 00 000000 PNTOCT
11551
11552 041204 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF
11553 041205 037 02 0 00 046377 PMSG (MULTIPLIER: )
11554
11555 041206 550 13 0 00 000015 HRRZ SCR1,SCR3 ;GET ADDRESS OF MULTIPLIER
11556 041207 200 00 1 00 000013 MOVE 0,@SCR1 ;GET LEFT WORD OF MULTIPLIER
11557 041210 037 14 0 00 000000 PNTOCT
11558
11559 041211 340 13 0 00 000000 AOJ SCR1, ;POINT TO RIGHT WORD
11560 041212 200 00 1 00 000013 MOVE 0,@SCR1 ;GET RIGHT WORD OF MULTIPLIER
11561 041213 037 14 0 00 000000 PNTOCT
11562
11563 041214 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF
11564 041215 037 02 0 00 046402 PMSG (RESULT: )
11565
11566 041216 200 00 0 00 000001 MOVE 0,AC1 ;GET RESULT WORD 1
11567 041217 037 14 0 00 000000 PNTOCT
11568
11569 041220 200 00 0 00 000002 MOVE 0,AC1+1 ;GET RESULT WORD 2
11570 041221 037 14 0 00 000000 PNTOCT
11571
11572 041222 200 00 0 00 000003 MOVE 0,AC1+2 ;GET RESULT WORD 3
11573 041223 037 14 0 00 000000 PNTOCT
11574
11575 041224 200 00 0 00 000004 MOVE 0,AC1+3 ;GET RESULT WORD 4
11576 041225 037 14 0 00 000000 PNTOCT
11577
11578 041226 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF
11579 041227 263 17 0 00 000000 RTN
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 41
DFKCBM MAC 26-Sep-79 16:11 ADDL ERROR PRINT ROUTINES SEQ 0257
11580
11581 ; **********************************************************************
11582 ;*DPRINT - DIVIDE ERROR PRINTER
11583 ; **********************************************************************
11584
11585 041230 037 02 0 00 046405 DPRINT: PMSG (DIVIDEND: )
11586
11587 041231 554 13 0 00 000015 HLRZ SCR1,SCR3 ;GET ADDR OF DIVIDEND
11588 041232 200 00 1 00 000013 MOVE 0,@SCR1 ;GET DIVIDEND (WORD 1)
11589 041233 037 14 0 00 000000 PNTOCT
11590
11591 041234 340 13 0 00 000000 AOJ SCR1, ;POINT TO 2ND WORD
11592 041235 200 00 1 00 000013 MOVE 0,@SCR1 ;GET DIVIDEND (WORD 2)
11593 041236 037 14 0 00 000000 PNTOCT
11594
11595 041237 340 13 0 00 000000 AOJ SCR1, ;POINT TO 3RD WORD
11596 041240 200 00 1 00 000013 MOVE 0,@SCR1 ;GET DIVIDEND (WORD 3)
11597 041241 037 14 0 00 000000 PNTOCT
11598
11599 041242 340 13 0 00 000000 AOJ SCR1, ;POINT TO 4TH WORD
11600 041243 200 00 1 00 000013 MOVE 0,@SCR1 ;GET DIVIDEND (WORD 4)
11601 041244 037 14 0 00 000000 PNTOCT
11602
11603 041245 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF
11604 041246 037 02 0 00 046407 PMSG (DIVISOR: )
11605
11606 041247 550 13 0 00 000015 HRRZ SCR1,SCR3 ;GET ADDRESS OF DIVISOR
11607 041250 200 00 1 00 000013 MOVE 0,@SCR1 ;GET LEFT WORD OF DIVISOR
11608 041251 037 14 0 00 000000 PNTOCT
11609
11610 041252 340 13 0 00 000000 AOJ SCR1, ;POINT TO RIGHT WORD
11611 041253 200 00 1 00 000013 MOVE 0,@SCR1 ;GET RIGHT WORD OF DIVISOR
11612 041254 037 14 0 00 000000 PNTOCT
11613
11614 041255 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF
11615 041256 037 02 0 00 046411 PMSG (QUOTIENT: )
11616
11617 041257 200 00 0 00 000001 MOVE 0,AC1 ;GET LEFT WORD OF QUOTIENT
11618 041260 037 14 0 00 000000 PNTOCT
11619
11620 041261 200 00 0 00 000002 MOVE 0,AC1+1 ;GET RIGHT WORD OF QUOTIENT
11621 041262 037 14 0 00 000000 PNTOCT
11622
11623 041263 037 02 0 00 046413 PMSG ( REMAINDER: )
11624
11625 041264 200 00 0 00 000003 MOVE 0,AC1+2 ;GET LEFT WORD OF REMAINDER
11626 041265 037 14 0 00 000000 PNTOCT
11627
11628 041266 200 00 0 00 000004 MOVE 0,AC1+3 ;GET RIGHT WORD OF REMAINDER
11629 041267 037 14 0 00 000000 PNTOCT
11630
11631 041270 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF
11632 041271 263 17 0 00 000000 RTN
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 42
DFKCBM MAC 26-Sep-79 16:11 ADDL ERROR PRINT ROUTINES SEQ 0258
11633
11634 SUBTTL *STOR* RESERVED STORAGE, SEPT 18,1979
11635
11636 ;PROGRAM LITERALS
11637
11638 XLIST
11639 IFNDEF $LPAPER,<LIST>
11640 041272 LIT
11641 041272 44 41 44 44 00 64
11642 041273 45 63 64 77 00 00
11643 041274 000000 000000
11644 041275 123456 765432
11645 041276 000000 000000
11646 041277 000000 000000
11647 041300 041274 041276
11648 041301 77 00 00 00 00 00
11649 041302 64 45 63 64 00 41
11650 041303 21 00 15 00 62 45
11651 041304 63 65 54 64 00 51
11652 041305 63 00 51 56 43 57
11653 041306 62 62 45 43 64 77
11654 041307 041272 041301
11655 041310 000013 000014
11656 041311 041302 041117
11657 041312 041275 041276
11658 041313 64 45 63 64 00 41
11659 041314 22 00 15 00 62 45
11660 041315 63 65 54 64 00 51
11661 041316 63 00 51 56 43 57
11662 041317 62 62 45 43 64 77
11663 041320 041272 041301
11664 041321 000013 000014
11665 041322 041313 041117
11666 041323 123456 765432
11667 041324 123456 765432
11668 041325 041323 041276
11669 041326 64 45 63 64 00 41
11670 041327 23 00 15 00 62 45
11671 041330 63 65 54 64 00 51
11672 041331 63 00 51 56 43 57
11673 041332 62 62 45 43 64 77
11674 041333 041272 041301
11675 041334 000013 000014
11676 041335 041326 041117
11677 041336 041276 041274
11678 041337 64 45 63 64 00 41
11679 041340 24 00 15 00 62 45
11680 041341 63 65 54 64 00 51
11681 041342 63 00 51 56 43 57
11682 041343 62 62 45 43 64 77
11683 041344 041272 041301
11684 041345 000013 000014
11685 041346 041337 041117
11686 041347 041276 041275
11687 041350 64 45 63 64 00 41
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0259
11688 041351 25 00 15 00 62 45
11689 041352 63 65 54 64 00 51
11690 041353 63 00 51 56 43 57
11691 041354 62 62 45 43 64 77
11692 041355 041272 041301
11693 041356 000013 000014
11694 041357 041350 041117
11695 041360 041276 041323
11696 041361 64 45 63 64 00 41
11697 041362 26 00 15 00 62 45
11698 041363 63 65 54 64 00 51
11699 041364 63 00 51 56 43 57
11700 041365 62 62 45 43 64 77
11701 041366 041272 041301
11702 041367 000013 000014
11703 041370 041361 041117
11704 041371 041276 041276
11705 041372 64 45 63 64 00 41
11706 041373 27 00 15 00 62 45
11707 041374 63 65 54 64 00 51
11708 041375 63 00 51 56 43 57
11709 041376 62 62 45 43 64 77
11710 041377 041272 041301
11711 041400 000013 000014
11712 041401 041372 041117
11713 041402 000000 000000
11714 041403 000000 000001
11715 041404 041402 041276
11716 041405 64 45 63 64 00 42
11717 041406 21 00 15 00 62 45
11718 041407 63 65 54 64 00 51
11719 041410 63 00 51 56 43 57
11720 041411 62 62 45 43 64 77
11721 041412 041272 041301
11722 041413 000013 000014
11723 041414 041405 041117
11724 041415 041276 041402
11725 041416 64 45 63 64 00 42
11726 041417 22 00 15 00 62 45
11727 041420 63 65 54 64 00 51
11728 041421 63 00 51 56 43 57
11729 041422 62 62 45 43 64 77
11730 041423 041272 041301
11731 041424 000013 000014
11732 041425 041416 041117
11733 041426 000000 000000
11734 041427 200000 000000
11735 041430 041426 041276
11736 041431 041276 041426
11737 041432 000000 000001
11738 041433 000000 000000
11739 041434 041432 041276
11740 041435 041276 041432
11741 041436 200000 000000
11742 041437 000000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-1
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0260
11743 041440 041436 041276
11744 041441 041276 041436
11745 041442 777777 777777
11746 041443 777777 777776
11747 041444 041442 041276
11748 041445 041276 041442
11749 041446 777777 777777
11750 041447 577777 777777
11751 041450 041446 041276
11752 041451 041276 041446
11753 041452 777777 777776
11754 041453 777777 777777
11755 041454 041452 041276
11756 041455 041276 041452
11757 041456 577777 777777
11758 041457 777777 777777
11759 041460 041456 041276
11760 041461 041276 041456
11761 041462 031327 031327
11762 041463 64 45 63 64 00 43
11763 041464 00 15 00 62 45 63
11764 041465 65 54 64 00 51 56
11765 041466 43 57 62 62 45 43
11766 041467 64 77 00 00 00 00
11767 041470 041272 041301
11768 041471 000014 000013
11769 041472 041463 041117
11770 041473 000000 000000
11771 041474 777777 777777
11772 041475 041473 041402
11773 041476 64 45 63 64 00 44
11774 041477 21 00 15 00 62 45
11775 041500 63 65 54 64 00 51
11776 041501 63 00 51 56 43 57
11777 041502 62 62 45 43 64 77
11778 041503 041272 041301
11779 041504 000013 000014
11780 041505 041476 041117
11781 041506 041402 041473
11782 041507 64 45 63 64 00 44
11783 041510 22 00 15 00 62 45
11784 041511 63 65 54 64 00 51
11785 041512 63 00 51 56 43 57
11786 041513 62 62 45 43 64 77
11787 041514 041272 041301
11788 041515 000013 000014
11789 041516 041507 041117
11790 041517 64 45 63 64 00 45
11791 041520 00 15 00 62 45 63
11792 041521 65 54 64 00 51 63
11793 041522 00 51 56 43 57 62
11794 041523 62 45 43 64 77 00
11795 041524 041272 041301
11796 041525 000013 000014
11797 041526 041517 041117
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-2
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0261
11798 041527 64 45 63 64 00 45
11799 041530 00 15 00 60 43 00
11800 041531 46 54 41 47 63 00
11801 041532 51 56 43 57 62 62
11802 041533 45 43 64 00 10 54
11803 041534 45 46 64 00 24 00
11804 041535 42 51 64 63 11 77
11805 041536 041272 041301
11806 041537 000014 031375
11807 041540 041527 041117
11808 041541 041272 041301
11809 041542 000014 031426
11810 041543 041527 041117
11811 041544 041272 041301
11812 041545 000014 031457
11813 041546 041527 041117
11814 041547 041272 041301
11815 041550 000014 031510
11816 041551 041527 041117
11817 041552 041272 041301
11818 041553 000014 031541
11819 041554 041527 041117
11820 041555 041272 041301
11821 041556 000014 031572
11822 041557 041527 041117
11823 041560 033167 033171
11824 041561 64 45 63 64 00 46
11825 041562 21 00 15 00 62 45
11826 041563 63 65 54 64 00 51
11827 041564 63 00 51 56 43 57
11828 041565 62 62 45 43 64 77
11829 041566 041272 041301
11830 041567 000013 000014
11831 041570 041561 041117
11832 041571 64 45 63 64 00 46
11833 041572 21 00 15 00 60 43
11834 041573 00 46 54 41 47 63
11835 041574 00 51 56 43 57 62
11836 041575 62 45 43 64 00 10
11837 041576 54 45 46 64 00 24
11838 041577 00 42 51 64 63 11
11839 041600 77 00 00 00 00 00
11840 041601 041272 041301
11841 041602 000014 031653
11842 041603 041571 041117
11843 041604 033173 033175
11844 041605 041272 041301
11845 041606 000014 031703
11846 041607 041571 041117
11847 041610 033177 033201
11848 041611 041272 041301
11849 041612 000014 031733
11850 041613 041571 041117
11851 041614 033203 033205
11852 041615 777777 777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-3
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0262
11853 041616 777777 777777
11854 041617 041272 041301
11855 041620 000014 031763
11856 041621 041571 041117
11857 041622 033207 033211
11858 041623 041272 041301
11859 041624 000014 032013
11860 041625 041571 041117
11861 041626 033213 033215
11862 041627 041272 041301
11863 041630 000014 032043
11864 041631 041571 041117
11865 041632 033217 033221
11866 041633 777777 777776
11867 041634 777777 777776
11868 041635 64 45 63 64 00 46
11869 041636 22 00 15 00 62 45
11870 041637 63 65 54 64 00 51
11871 041640 63 00 51 56 43 57
11872 041641 62 62 45 43 64 77
11873 041642 041272 041301
11874 041643 000013 000014
11875 041644 041635 041117
11876 041645 300000 000000
11877 041646 64 45 63 64 00 46
11878 041647 22 00 15 00 60 43
11879 041650 00 46 54 41 47 63
11880 041651 00 51 56 43 57 62
11881 041652 62 45 43 64 00 10
11882 041653 54 45 46 64 00 24
11883 041654 00 42 51 64 63 11
11884 041655 77 00 00 00 00 00
11885 041656 041272 041301
11886 041657 000014 032073
11887 041660 041646 041117
11888 041661 033223 033225
11889 041662 041272 041301
11890 041663 000014 032123
11891 041664 041646 041117
11892 041665 033227 033231
11893 041666 041272 041301
11894 041667 000014 032153
11895 041670 041646 041117
11896 041671 033233 033235
11897 041672 041272 041301
11898 041673 000014 032203
11899 041674 041646 041117
11900 041675 033237 033241
11901 041676 041272 041301
11902 041677 000014 032233
11903 041700 041646 041117
11904 041701 033243 033245
11905 041702 041272 041301
11906 041703 000014 032263
11907 041704 041646 041117
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-4
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0263
11908 041705 033247 033251
11909 041706 000000 000001
11910 041707 000000 000001
11911 041710 64 45 63 64 00 46
11912 041711 23 00 15 00 62 45
11913 041712 63 65 54 64 00 51
11914 041713 63 00 51 56 43 57
11915 041714 62 62 45 43 64 77
11916 041715 041272 041301
11917 041716 000013 000014
11918 041717 041710 041117
11919 041720 64 45 63 64 00 46
11920 041721 23 00 15 00 60 43
11921 041722 00 46 54 41 47 63
11922 041723 00 51 56 43 57 62
11923 041724 62 45 43 64 00 10
11924 041725 54 45 46 64 00 24
11925 041726 00 42 51 64 63 11
11926 041727 77 00 00 00 00 00
11927 041730 041272 041301
11928 041731 000014 032313
11929 041732 041720 041117
11930 041733 033253 033255
11931 041734 041272 041301
11932 041735 000014 032343
11933 041736 041720 041117
11934 041737 033257 033261
11935 041740 041272 041301
11936 041741 000014 032373
11937 041742 041720 041117
11938 041743 033263 033265
11939 041744 041272 041301
11940 041745 000014 032423
11941 041746 041720 041117
11942 041747 033267 033271
11943 041750 041272 041301
11944 041751 000014 032453
11945 041752 041720 041117
11946 041753 033273 033275
11947 041754 041272 041301
11948 041755 000014 032503
11949 041756 041720 041117
11950 041757 033277 033301
11951 041760 64 45 63 64 00 46
11952 041761 24 00 15 00 62 45
11953 041762 63 65 54 64 00 51
11954 041763 63 00 51 56 43 57
11955 041764 62 62 45 43 64 77
11956 041765 041272 041301
11957 041766 000013 000014
11958 041767 041760 041117
11959 041770 64 45 63 64 00 46
11960 041771 24 00 15 00 60 43
11961 041772 00 46 54 41 47 63
11962 041773 00 51 56 43 57 62
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-5
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0264
11963 041774 62 45 43 64 00 10
11964 041775 54 45 46 64 00 24
11965 041776 00 42 51 64 63 11
11966 041777 77 00 00 00 00 00
11967 042000 041272 041301
11968 042001 000014 032533
11969 042002 041770 041117
11970 042003 033303 033305
11971 042004 041272 041301
11972 042005 000014 032563
11973 042006 041770 041117
11974 042007 033307 033311
11975 042010 041272 041301
11976 042011 000014 032613
11977 042012 041770 041117
11978 042013 033313 033315
11979 042014 041272 041301
11980 042015 000014 032643
11981 042016 041770 041117
11982 042017 033317 033321
11983 042020 041272 041301
11984 042021 000014 032673
11985 042022 041770 041117
11986 042023 033323 033325
11987 042024 041272 041301
11988 042025 000014 032723
11989 042026 041770 041117
11990 042027 033327 033331
11991 042030 64 45 63 64 00 46
11992 042031 25 00 15 00 62 45
11993 042032 63 65 54 64 00 51
11994 042033 63 00 51 56 43 57
11995 042034 62 62 45 43 64 77
11996 042035 041272 041301
11997 042036 000013 000014
11998 042037 042030 041117
11999 042040 64 45 63 64 00 46
12000 042041 25 00 15 00 60 43
12001 042042 00 46 54 41 47 63
12002 042043 00 51 56 43 57 62
12003 042044 62 45 43 64 00 10
12004 042045 54 45 46 64 00 24
12005 042046 00 42 51 64 63 11
12006 042047 77 00 00 00 00 00
12007 042050 041272 041301
12008 042051 000014 032753
12009 042052 042040 041117
12010 042053 033333 033335
12011 042054 041272 041301
12012 042055 000014 033003
12013 042056 042040 041117
12014 042057 033337 033341
12015 042060 041272 041301
12016 042061 000014 033033
12017 042062 042040 041117
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-6
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0265
12018 042063 033343 033345
12019 042064 041272 041301
12020 042065 000014 033063
12021 042066 042040 041117
12022 042067 033347 033351
12023 042070 041272 041301
12024 042071 000014 033113
12025 042072 042040 041117
12026 042073 033353 033355
12027 042074 041272 041301
12028 042075 000014 033143
12029 042076 042040 041117
12030 042077 033660 033662
12031 042100 64 45 63 64 00 47
12032 042101 00 15 00 62 45 63
12033 042102 65 54 64 00 51 63
12034 042103 00 51 56 43 57 62
12035 042104 62 45 43 64 77 00
12036 042105 041272 041301
12037 042106 000013 000014
12038 042107 042100 041117
12039 042110 500000 000000
12040 042111 64 45 63 64 00 47
12041 042112 00 15 00 60 43 00
12042 042113 46 54 41 47 63 00
12043 042114 51 56 43 57 62 62
12044 042115 45 43 64 00 10 54
12045 042116 45 46 64 00 24 00
12046 042117 42 51 64 63 11 77
12047 042120 041272 041301
12048 042121 000014 033364
12049 042122 042111 041117
12050 042123 033666 033670
12051 042124 041272 041301
12052 042125 000014 033414
12053 042126 042111 041117
12054 042127 033674 033676
12055 042130 041272 041301
12056 042131 000014 033444
12057 042132 042111 041117
12058 042133 033702 033704
12059 042134 041272 041301
12060 042135 000014 033474
12061 042136 042111 041117
12062 042137 033710 033712
12063 042140 600000 000000
12064 042141 041272 041301
12065 042142 000014 033524
12066 042143 042111 041117
12067 042144 033716 033720
12068 042145 041272 041301
12069 042146 000014 033554
12070 042147 042111 041117
12071 042150 033724 033726
12072 042151 041272 041301
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-7
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0266
12073 042152 000014 033604
12074 042153 042111 041117
12075 042154 033732 033734
12076 042155 041272 041301
12077 042156 000014 033634
12078 042157 042111 041117
12079 042160 44 63 65 42 00 64
12080 042161 45 63 64 77 00 00
12081 042162 042160 041301
12082 042163 000013 000014
12083 042164 041302 041146
12084 042165 042160 041301
12085 042166 000013 000014
12086 042167 041313 041146
12087 042170 042160 041301
12088 042171 000013 000014
12089 042172 041326 041146
12090 042173 654321 012346
12091 042174 777777 777777
12092 042175 654321 012346
12093 042176 042160 041301
12094 042177 000013 000014
12095 042200 041337 041146
12096 042201 400000 000000
12097 042202 654321 012346
12098 042203 400000 000000
12099 042204 042160 041301
12100 042205 000013 000014
12101 042206 041350 041146
12102 042207 654321 012345
12103 042210 654321 012346
12104 042211 042160 041301
12105 042212 000013 000014
12106 042213 041361 041146
12107 042214 777766 034144
12108 042215 64 45 63 64 00 42
12109 042216 00 15 00 62 45 63
12110 042217 65 54 64 00 51 56
12111 042220 43 57 62 62 45 43
12112 042221 64 77 00 00 00 00
12113 042222 042160 041301
12114 042223 000012 000013
12115 042224 042215 041146
12116 042225 64 45 63 64 00 42
12117 042226 00 15 00 60 43 00
12118 042227 46 54 41 47 63 00
12119 042230 51 56 43 57 62 62
12120 042231 45 43 64 00 10 54
12121 042232 45 46 64 00 24 00
12122 042233 42 51 64 63 11 77
12123 042234 042160 041301
12124 042235 000014 034102
12125 042236 042225 041146
12126 042237 035001 035003
12127 042240 64 45 63 64 00 43
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-8
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0267
12128 042241 21 00 15 00 62 45
12129 042242 63 65 54 64 00 51
12130 042243 63 00 51 56 43 57
12131 042244 62 62 45 43 64 77
12132 042245 042160 041301
12133 042246 000013 000014
12134 042247 042240 041146
12135 042250 035007 035011
12136 042251 035015 035017
12137 042252 035023 035025
12138 042253 035031 035033
12139 042254 035037 035041
12140 042255 035045 035047
12141 042256 64 45 63 64 00 43
12142 042257 22 00 15 00 62 45
12143 042260 63 65 54 64 00 51
12144 042261 63 00 51 56 43 57
12145 042262 62 62 45 43 64 77
12146 042263 042160 041301
12147 042264 000013 000014
12148 042265 042256 041146
12149 042266 035053 035055
12150 042267 035061 035063
12151 042270 035067 035071
12152 042271 035075 035077
12153 042272 035103 035105
12154 042273 035111 035113
12155 042274 64 45 63 64 00 43
12156 042275 23 00 15 00 62 45
12157 042276 63 65 54 64 00 51
12158 042277 63 00 51 56 43 57
12159 042300 62 62 45 43 64 77
12160 042301 042160 041301
12161 042302 000013 000014
12162 042303 042274 041146
12163 042304 035117 035121
12164 042305 035125 035127
12165 042306 035133 035135
12166 042307 035141 035143
12167 042310 035147 035151
12168 042311 035155 035157
12169 042312 777777 777775
12170 042313 777777 777777
12171 042314 777777 777775
12172 042315 64 45 63 64 00 43
12173 042316 24 00 15 00 62 45
12174 042317 63 65 54 64 00 51
12175 042320 63 00 51 56 43 57
12176 042321 62 62 45 43 64 77
12177 042322 042160 041301
12178 042323 000013 000014
12179 042324 042315 041146
12180 042325 035161 035163
12181 042326 035165 035167
12182 042327 035171 035173
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-9
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0268
12183 042330 035175 035177
12184 042331 035201 035203
12185 042332 035205 035207
12186 042333 000000 000003
12187 042334 000000 000000
12188 042335 000000 000003
12189 042336 64 45 63 64 00 43
12190 042337 25 00 15 00 62 45
12191 042340 63 65 54 64 00 51
12192 042341 63 00 51 56 43 57
12193 042342 62 62 45 43 64 77
12194 042343 042160 041301
12195 042344 000013 000014
12196 042345 042336 041146
12197 042346 035211 035213
12198 042347 035215 035217
12199 042350 035221 035223
12200 042351 035225 035227
12201 042352 035231 035233
12202 042353 035546 035550
12203 042354 400000 000000
12204 042355 400000 000000
12205 042356 64 45 63 64 00 44
12206 042357 00 15 00 62 45 63
12207 042360 65 54 64 00 51 63
12208 042361 00 51 56 43 57 62
12209 042362 62 45 43 64 77 00
12210 042363 042160 041301
12211 042364 000013 000014
12212 042365 042356 041146
12213 042366 64 45 63 64 00 44
12214 042367 00 15 00 60 43 00
12215 042370 46 54 41 47 63 00
12216 042371 51 56 43 57 62 62
12217 042372 45 43 64 00 10 54
12218 042373 45 46 64 00 24 00
12219 042374 42 51 64 63 11 77
12220 042375 042160 041301
12221 042376 000014 035242
12222 042377 042366 041146
12223 042400 035552 035554
12224 042401 042160 041301
12225 042402 000014 035273
12226 042403 042366 041146
12227 042404 035556 035560
12228 042405 042160 041301
12229 042406 000014 035324
12230 042407 042366 041146
12231 042410 035562 035564
12232 042411 042160 041301
12233 042412 000014 035355
12234 042413 042366 041146
12235 042414 035566 035570
12236 042415 377777 777777
12237 042416 377777 777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-10
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0269
12238 042417 042160 041301
12239 042420 000014 035406
12240 042421 042366 041146
12241 042422 035572 035574
12242 042423 042160 041301
12243 042424 000014 035437
12244 042425 042366 041146
12245 042426 035576 035600
12246 042427 042160 041301
12247 042430 000014 035470
12248 042431 042366 041146
12249 042432 035602 035604
12250 042433 042160 041301
12251 042434 000014 035521
12252 042435 042366 041146
12253 042436 44 55 65 54 00 64
12254 042437 45 63 64 77 00 00
12255 042440 000000 000000
12256 042441 123456 765432
12257 042442 000000 000000
12258 042443 000000 000000
12259 042444 000000 000000
12260 042445 000000 000000
12261 042446 000000 000000
12262 042447 000000 000000
12263 042450 042440 040756
12264 042451 64 45 63 64 00 41
12265 042452 00 15 00 62 45 63
12266 042453 65 54 64 00 43 41
12267 042454 54 43 65 54 41 64
12268 042455 45 44 00 51 56 43
12269 042456 57 62 62 45 43 64
12270 042457 54 71 77 00 00 00
12271 042460 042436 041301
12272 042461 000013 000014
12273 042462 042451 041175
12274 042463 123456 765432
12275 042464 000000 000000
12276 042465 000000 000000
12277 042466 000000 000000
12278 042467 000000 000000
12279 042470 000000 000000
12280 042471 000000 000000
12281 042472 000000 000000
12282 042473 042463 040756
12283 042474 123456 765432
12284 042475 123456 765432
12285 042476 000000 000000
12286 042477 000000 000000
12287 042500 000000 000000
12288 042501 000000 000000
12289 042502 000000 000000
12290 042503 000000 000000
12291 042504 042474 040756
12292 042505 000000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-11
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0270
12293 042506 000000 000000
12294 042507 000000 000000
12295 042510 123456 765432
12296 042511 000000 000000
12297 042512 000000 000000
12298 042513 000000 000000
12299 042514 000000 000000
12300 042515 042505 040756
12301 042516 000000 000000
12302 042517 000000 000000
12303 042520 123456 765432
12304 042521 000000 000000
12305 042522 000000 000000
12306 042523 000000 000000
12307 042524 000000 000000
12308 042525 000000 000000
12309 042526 042516 040756
12310 042527 000000 000000
12311 042530 000000 000000
12312 042531 123456 765432
12313 042532 123456 765432
12314 042533 000000 000000
12315 042534 000000 000000
12316 042535 000000 000000
12317 042536 000000 000000
12318 042537 042527 040756
12319 042540 777777 777777
12320 042541 654321 012346
12321 042542 000000 000000
12322 042543 000000 000000
12323 042544 000000 000000
12324 042545 000000 000000
12325 042546 000000 000000
12326 042547 000000 000000
12327 042550 042540 040756
12328 042551 654321 012346
12329 042552 777777 777777
12330 042553 000000 000000
12331 042554 000000 000000
12332 042555 000000 000000
12333 042556 000000 000000
12334 042557 000000 000000
12335 042560 000000 000000
12336 042561 042551 040756
12337 042562 654321 012346
12338 042563 654321 012346
12339 042564 000000 000000
12340 042565 000000 000000
12341 042566 000000 000000
12342 042567 000000 000000
12343 042570 000000 000000
12344 042571 000000 000000
12345 042572 042562 040756
12346 042573 000000 000000
12347 042574 000000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-12
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0271
12348 042575 777777 777777
12349 042576 654321 012346
12350 042577 000000 000000
12351 042600 000000 000000
12352 042601 000000 000000
12353 042602 000000 000000
12354 042603 042573 040756
12355 042604 000000 000000
12356 042605 000000 000000
12357 042606 654321 012346
12358 042607 777777 777777
12359 042610 000000 000000
12360 042611 000000 000000
12361 042612 000000 000000
12362 042613 000000 000000
12363 042614 042604 040756
12364 042615 000000 000000
12365 042616 000000 000000
12366 042617 654321 012346
12367 042620 654321 012346
12368 042621 000000 000000
12369 042622 000000 000000
12370 042623 000000 000000
12371 042624 000000 000000
12372 042625 042615 040756
12373 042626 000000 000000
12374 042627 000000 000000
12375 042630 000000 000000
12376 042631 000000 000000
12377 042632 000000 000000
12378 042633 000000 000000
12379 042634 000000 000000
12380 042635 000000 000000
12381 042636 042626 040756
12382 042637 64 45 63 64 00 00
12383 042640 15 00 62 45 63 65
12384 042641 54 64 00 43 41 54
12385 042642 43 65 54 41 64 45
12386 042643 44 00 51 56 43 57
12387 042644 62 62 45 43 64 54
12388 042645 71 77 00 00 00 00
12389 042646 042436 041301
12390 042647 000013 000014
12391 042650 042637 041175
12392 042651 000000 000000
12393 042652 123456 765432
12394 042653 000000 000000
12395 042654 000000 000001
12396 042655 000000 000000
12397 042656 000000 000000
12398 042657 000000 000000
12399 042660 123456 765432
12400 042661 042651 040756
12401 042662 64 45 63 64 00 42
12402 042663 00 15 00 62 45 63
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-13
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0272
12403 042664 65 54 64 00 43 41
12404 042665 54 43 65 54 41 64
12405 042666 45 44 00 51 56 43
12406 042667 57 62 62 45 43 64
12407 042670 54 71 77 00 00 00
12408 042671 042436 041301
12409 042672 000013 000014
12410 042673 042662 041175
12411 042674 123456 765432
12412 042675 000000 000000
12413 042676 000000 000000
12414 042677 000000 000001
12415 042700 000000 000000
12416 042701 000000 000000
12417 042702 123456 765432
12418 042703 000000 000000
12419 042704 042674 040756
12420 042705 123456 765432
12421 042706 123456 765432
12422 042707 000000 000000
12423 042710 000000 000001
12424 042711 000000 000000
12425 042712 000000 000000
12426 042713 123456 765432
12427 042714 123456 765432
12428 042715 042705 040756
12429 042716 000000 000000
12430 042717 000000 000001
12431 042720 000000 000000
12432 042721 123456 765432
12433 042722 000000 000000
12434 042723 000000 000000
12435 042724 000000 000000
12436 042725 123456 765432
12437 042726 042716 040756
12438 042727 000000 000000
12439 042730 000000 000001
12440 042731 123456 765432
12441 042732 000000 000000
12442 042733 000000 000000
12443 042734 000000 000000
12444 042735 123456 765432
12445 042736 000000 000000
12446 042737 042727 040756
12447 042740 000000 000000
12448 042741 000000 000001
12449 042742 123456 765432
12450 042743 123456 765432
12451 042744 000000 000000
12452 042745 000000 000000
12453 042746 123456 765432
12454 042747 123456 765432
12455 042750 042740 040756
12456 042751 777777 777777
12457 042752 654321 012346
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-14
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0273
12458 042753 000000 000000
12459 042754 000000 000001
12460 042755 777777 777777
12461 042756 777777 777777
12462 042757 777777 777777
12463 042760 654321 012346
12464 042761 042751 040756
12465 042762 654321 012346
12466 042763 777777 777777
12467 042764 000000 000000
12468 042765 000000 000001
12469 042766 777777 777777
12470 042767 777777 777777
12471 042770 654321 012346
12472 042771 777777 777777
12473 042772 042762 040756
12474 042773 654321 012346
12475 042774 654321 012346
12476 042775 000000 000000
12477 042776 000000 000001
12478 042777 777777 777777
12479 043000 777777 777777
12480 043001 654321 012346
12481 043002 654321 012346
12482 043003 042773 040756
12483 043004 000000 000000
12484 043005 000000 000001
12485 043006 777777 777777
12486 043007 654321 012346
12487 043010 777777 777777
12488 043011 777777 777777
12489 043012 777777 777777
12490 043013 654321 012346
12491 043014 043004 040756
12492 043015 000000 000000
12493 043016 000000 000001
12494 043017 654321 012346
12495 043020 777777 777777
12496 043021 777777 777777
12497 043022 777777 777777
12498 043023 654321 012346
12499 043024 777777 777777
12500 043025 043015 040756
12501 043026 000000 000000
12502 043027 000000 000001
12503 043030 654321 012346
12504 043031 654321 012346
12505 043032 777777 777777
12506 043033 777777 777777
12507 043034 654321 012346
12508 043035 654321 012346
12509 043036 043026 040756
12510 043037 000000 000000
12511 043040 177777 777777
12512 043041 000000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-15
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0274
12513 043042 000000 000002
12514 043043 000000 000000
12515 043044 000000 000000
12516 043045 000000 000000
12517 043046 377777 777776
12518 043047 043037 040756
12519 043050 64 45 63 64 00 43
12520 043051 00 15 00 62 45 63
12521 043052 65 54 64 00 43 41
12522 043053 54 43 65 54 41 64
12523 043054 45 44 00 51 56 43
12524 043055 57 62 62 45 43 64
12525 043056 54 71 77 00 00 00
12526 043057 042436 041301
12527 043060 000013 000014
12528 043061 043050 041175
12529 043062 64 45 63 64 00 43
12530 043063 00 15 00 60 43 00
12531 043064 46 54 41 47 63 00
12532 043065 51 56 43 57 62 62
12533 043066 45 43 64 00 15 00
12534 043067 42 51 64 63 00 20
12535 043070 00 64 57 00 24 77
12536 043071 042436 041301
12537 043072 000014 040733
12538 043073 043062 041175
12539 043074 000000 000000
12540 043075 377777 777777
12541 043076 000000 000000
12542 043077 000000 000002
12543 043100 000000 000000
12544 043101 000000 000000
12545 043102 000000 000001
12546 043103 377777 777776
12547 043104 043074 040756
12548 043105 177777 777777
12549 043106 377777 777777
12550 043107 000000 000000
12551 043110 000000 000002
12552 043111 000000 000000
12553 043112 000000 000000
12554 043113 377777 777777
12555 043114 377777 777776
12556 043115 043105 040756
12557 043116 377777 777777
12558 043117 377777 777777
12559 043120 000000 000000
12560 043121 000000 000002
12561 043122 000000 000000
12562 043123 000000 000001
12563 043124 377777 777777
12564 043125 377777 777776
12565 043126 043116 040756
12566 043127 000000 000000
12567 043130 377777 777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-16
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0275
12568 043131 000000 000001
12569 043132 000000 000000
12570 043133 000000 000000
12571 043134 000000 000000
12572 043135 377777 777777
12573 043136 000000 000000
12574 043137 043127 040756
12575 043140 000000 000001
12576 043141 377777 777777
12577 043142 000000 000001
12578 043143 000000 000000
12579 043144 000000 000000
12580 043145 000000 000001
12581 043146 377777 777777
12582 043147 000000 000000
12583 043150 043140 040756
12584 043151 377777 777777
12585 043152 377777 777777
12586 043153 000000 000001
12587 043154 000000 000000
12588 043155 000000 000000
12589 043156 377777 777777
12590 043157 377777 777777
12591 043160 000000 000000
12592 043161 043151 040756
12593 043162 000000 000000
12594 043163 177777 777777
12595 043164 000000 000002
12596 043165 000000 000000
12597 043166 000000 000000
12598 043167 000000 000000
12599 043170 377777 777776
12600 043171 000000 000000
12601 043172 043162 040756
12602 043173 000000 000000
12603 043174 377777 777777
12604 043175 000000 000002
12605 043176 000000 000000
12606 043177 000000 000000
12607 043200 000000 000001
12608 043201 377777 777776
12609 043202 000000 000000
12610 043203 043173 040756
12611 043204 377777 777777
12612 043205 377777 777777
12613 043206 000000 000002
12614 043207 000000 000000
12615 043210 000000 000001
12616 043211 377777 777777
12617 043212 377777 777776
12618 043213 000000 000000
12619 043214 043204 040756
12620 043215 000000 000000
12621 043216 000000 000002
12622 043217 000000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-17
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0276
12623 043220 177777 777777
12624 043221 000000 000000
12625 043222 000000 000000
12626 043223 000000 000000
12627 043224 377777 777776
12628 043225 043215 040756
12629 043226 000000 000000
12630 043227 000000 000002
12631 043230 000000 000000
12632 043231 377777 777777
12633 043232 000000 000000
12634 043233 000000 000000
12635 043234 000000 000001
12636 043235 377777 777776
12637 043236 043226 040756
12638 043237 000000 000000
12639 043240 000000 000002
12640 043241 177777 777777
12641 043242 377777 777777
12642 043243 000000 000000
12643 043244 000000 000000
12644 043245 377777 777777
12645 043246 377777 777776
12646 043247 043237 040756
12647 043250 000000 000000
12648 043251 000000 000002
12649 043252 377777 777777
12650 043253 377777 777777
12651 043254 000000 000000
12652 043255 000000 000001
12653 043256 377777 777777
12654 043257 377777 777776
12655 043260 043250 040756
12656 043261 000000 000001
12657 043262 000000 000000
12658 043263 000000 000000
12659 043264 377777 777777
12660 043265 000000 000000
12661 043266 000000 000000
12662 043267 377777 777777
12663 043270 000000 000000
12664 043271 043261 040756
12665 043272 000000 000001
12666 043273 000000 000000
12667 043274 000000 000001
12668 043275 377777 777777
12669 043276 000000 000000
12670 043277 000000 000001
12671 043300 377777 777777
12672 043301 000000 000000
12673 043302 043272 040756
12674 043303 000000 000001
12675 043304 000000 000000
12676 043305 377777 777777
12677 043306 377777 777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-18
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0277
12678 043307 000000 000000
12679 043310 377777 777777
12680 043311 377777 777777
12681 043312 000000 000000
12682 043313 043303 040756
12683 043314 000000 000002
12684 043315 000000 000000
12685 043316 000000 000000
12686 043317 177777 777777
12687 043320 000000 000000
12688 043321 000000 000000
12689 043322 377777 777776
12690 043323 000000 000000
12691 043324 043314 040756
12692 043325 000000 000002
12693 043326 000000 000000
12694 043327 000000 000000
12695 043330 377777 777777
12696 043331 000000 000000
12697 043332 000000 000001
12698 043333 377777 777776
12699 043334 000000 000000
12700 043335 043325 040756
12701 043336 000000 000002
12702 043337 000000 000000
12703 043340 377777 777777
12704 043341 377777 777777
12705 043342 000000 000001
12706 043343 377777 777777
12707 043344 377777 777776
12708 043345 000000 000000
12709 043346 043336 040756
12710 043347 777777 777777
12711 043350 600000 000000
12712 043351 000000 000000
12713 043352 000000 000002
12714 043353 777777 777777
12715 043354 777777 777777
12716 043355 777777 777777
12717 043356 400000 000000
12718 043357 043347 040756
12719 043360 64 45 63 64 00 44
12720 043361 00 15 00 62 45 63
12721 043362 65 54 64 00 43 41
12722 043363 54 43 65 54 41 64
12723 043364 45 44 00 51 56 43
12724 043365 57 62 62 45 43 64
12725 043366 54 71 77 00 00 00
12726 043367 042436 041301
12727 043370 000013 000014
12728 043371 043360 041175
12729 043372 64 45 63 64 00 44
12730 043373 00 15 00 60 43 00
12731 043374 46 54 41 47 63 00
12732 043375 51 56 43 57 62 62
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-19
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0278
12733 043376 45 43 64 00 15 00
12734 043377 42 51 64 63 00 20
12735 043400 00 64 57 00 24 77
12736 043401 042436 041301
12737 043402 000014 040733
12738 043403 043372 041175
12739 043404 777777 777777
12740 043405 400000 000000
12741 043406 000000 000000
12742 043407 000000 000002
12743 043410 777777 777777
12744 043411 777777 777777
12745 043412 777777 777776
12746 043413 400000 000000
12747 043414 043404 040756
12748 043415 600000 000000
12749 043416 400000 000000
12750 043417 000000 000000
12751 043420 000000 000002
12752 043421 777777 777777
12753 043422 777777 777777
12754 043423 400000 000000
12755 043424 400000 000000
12756 043425 043415 040756
12757 043426 400000 000000
12758 043427 400000 000000
12759 043430 000000 000000
12760 043431 000000 000002
12761 043432 777777 777777
12762 043433 777777 777776
12763 043434 400000 000000
12764 043435 400000 000000
12765 043436 043426 040756
12766 043437 777777 777777
12767 043440 400000 000000
12768 043441 000000 000001
12769 043442 000000 000000
12770 043443 777777 777777
12771 043444 777777 777777
12772 043445 400000 000000
12773 043446 400000 000000
12774 043447 043437 040756
12775 043450 777777 777776
12776 043451 400000 000000
12777 043452 000000 000001
12778 043453 000000 000000
12779 043454 777777 777777
12780 043455 777777 777776
12781 043456 400000 000000
12782 043457 400000 000000
12783 043460 043450 040756
12784 043461 400000 000000
12785 043462 400000 000000
12786 043463 000000 000001
12787 043464 000000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-20
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0279
12788 043465 777777 777777
12789 043466 400000 000000
12790 043467 400000 000000
12791 043470 400000 000000
12792 043471 043461 040756
12793 043472 777777 777777
12794 043473 600000 000000
12795 043474 000000 000002
12796 043475 000000 000000
12797 043476 777777 777777
12798 043477 777777 777777
12799 043500 400000 000000
12800 043501 400000 000000
12801 043502 043472 040756
12802 043503 777777 777777
12803 043504 400000 000000
12804 043505 000000 000002
12805 043506 000000 000000
12806 043507 777777 777777
12807 043510 777777 777776
12808 043511 400000 000000
12809 043512 400000 000000
12810 043513 043503 040756
12811 043514 400000 000000
12812 043515 400000 000000
12813 043516 000000 000002
12814 043517 000000 000000
12815 043520 777777 777776
12816 043521 400000 000000
12817 043522 400000 000000
12818 043523 400000 000000
12819 043524 043514 040756
12820 043525 000000 000000
12821 043526 000000 000002
12822 043527 777777 777777
12823 043530 600000 000000
12824 043531 777777 777777
12825 043532 777777 777777
12826 043533 777777 777777
12827 043534 400000 000000
12828 043535 043525 040756
12829 043536 000000 000000
12830 043537 000000 000002
12831 043540 777777 777777
12832 043541 400000 000000
12833 043542 777777 777777
12834 043543 777777 777777
12835 043544 777777 777776
12836 043545 400000 000000
12837 043546 043536 040756
12838 043547 000000 000000
12839 043550 000000 000002
12840 043551 600000 000000
12841 043552 400000 000000
12842 043553 777777 777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-21
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0280
12843 043554 777777 777777
12844 043555 400000 000000
12845 043556 400000 000000
12846 043557 043547 040756
12847 043560 000000 000000
12848 043561 000000 000002
12849 043562 400000 000000
12850 043563 400000 000000
12851 043564 777777 777777
12852 043565 777777 777776
12853 043566 400000 000000
12854 043567 400000 000000
12855 043570 043560 040756
12856 043571 000000 000001
12857 043572 000000 000000
12858 043573 777777 777777
12859 043574 400000 000000
12860 043575 777777 777777
12861 043576 777777 777777
12862 043577 400000 000000
12863 043600 400000 000000
12864 043601 043571 040756
12865 043602 000000 000001
12866 043603 000000 000000
12867 043604 777777 777776
12868 043605 400000 000000
12869 043606 777777 777777
12870 043607 777777 777776
12871 043610 400000 000000
12872 043611 400000 000000
12873 043612 043602 040756
12874 043613 000000 000001
12875 043614 000000 000000
12876 043615 400000 000000
12877 043616 400000 000000
12878 043617 777777 777777
12879 043620 400000 000000
12880 043621 400000 000000
12881 043622 400000 000000
12882 043623 043613 040756
12883 043624 000000 000002
12884 043625 000000 000000
12885 043626 777777 777777
12886 043627 600000 000000
12887 043630 777777 777777
12888 043631 777777 777777
12889 043632 400000 000000
12890 043633 400000 000000
12891 043634 043624 040756
12892 043635 000000 000002
12893 043636 000000 000000
12894 043637 777777 777777
12895 043640 400000 000000
12896 043641 777777 777777
12897 043642 777777 777776
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-22
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0281
12898 043643 400000 000000
12899 043644 400000 000000
12900 043645 043635 040756
12901 043646 000000 000002
12902 043647 000000 000000
12903 043650 400000 000000
12904 043651 400000 000000
12905 043652 777777 777776
12906 043653 400000 000000
12907 043654 400000 000000
12908 043655 400000 000000
12909 043656 043646 040756
12910 043657 525252 525252
12911 043660 252525 252525
12912 043661 64 45 63 64 00 45
12913 043662 00 15 00 62 45 63
12914 043663 65 54 64 00 51 56
12915 043664 43 57 62 62 45 43
12916 043665 64 77 00 00 00 00
12917 043666 042436 041301
12918 043667 042201 000013
12919 043670 043661 041175
12920 043671 64 45 63 64 00 45
12921 043672 00 15 00 60 43 00
12922 043673 46 54 41 47 63 00
12923 043674 51 56 43 57 62 62
12924 043675 45 43 64 00 15 00
12925 043676 54 45 46 64 00 24
12926 043677 00 42 51 64 63 77
12927 043700 042436 041301
12928 043701 000001 036561
12929 043702 043671 041175
12930 043703 777777 777777
12931 043704 777777 777776
12932 043705 777777 777777
12933 043706 777777 777775
12934 043707 000000 000000
12935 043710 000000 000000
12936 043711 000000 000000
12937 043712 000000 000006
12938 043713 043703 040756
12939 043714 64 45 63 64 00 46
12940 043715 00 15 00 62 45 63
12941 043716 65 54 64 00 43 41
12942 043717 54 43 65 54 41 64
12943 043720 45 44 00 51 56 43
12944 043721 57 62 62 45 43 64
12945 043722 54 71 77 00 00 00
12946 043723 042436 041301
12947 043724 000013 000014
12948 043725 043714 041175
12949 043726 64 45 63 64 00 46
12950 043727 00 15 00 60 43 00
12951 043730 46 54 41 47 63 00
12952 043731 51 56 43 57 62 62
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-23
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0282
12953 043732 45 43 64 00 15 00
12954 043733 42 51 64 63 00 20
12955 043734 00 64 57 00 24 77
12956 043735 042436 041301
12957 043736 000014 040733
12958 043737 043726 041175
12959 043740 777777 777776
12960 043741 400000 000000
12961 043742 777777 777777
12962 043743 777777 777775
12963 043744 000000 000000
12964 043745 000000 000000
12965 043746 000000 000006
12966 043747 000000 000000
12967 043750 043740 040756
12968 043751 777777 777777
12969 043752 777777 777776
12970 043753 777777 777775
12971 043754 400000 000000
12972 043755 000000 000000
12973 043756 000000 000000
12974 043757 000000 000006
12975 043760 000000 000000
12976 043761 043751 040756
12977 043762 777777 777776
12978 043763 400000 000000
12979 043764 777777 777775
12980 043765 400000 000000
12981 043766 000000 000000
12982 043767 000000 000006
12983 043770 000000 000000
12984 043771 000000 000000
12985 043772 043762 040756
12986 043773 000000 000000
12987 043774 000000 000002
12988 043775 000000 000000
12989 043776 400000 000003
12990 043777 000000 000000
12991 044000 000000 000000
12992 044001 000000 000000
12993 044002 000000 000006
12994 044003 043773 040756
12995 044004 64 45 63 64 00 47
12996 044005 00 15 00 62 45 63
12997 044006 65 54 64 00 43 41
12998 044007 54 43 65 54 41 64
12999 044010 45 44 00 51 56 43
13000 044011 57 62 62 45 43 64
13001 044012 54 71 77 00 00 00
13002 044013 042436 041301
13003 044014 000013 000014
13004 044015 044004 041175
13005 044016 64 45 63 64 00 47
13006 044017 00 15 00 60 43 00
13007 044020 46 54 41 47 63 00
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-24
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0283
13008 044021 51 56 43 57 62 62
13009 044022 45 43 64 00 15 00
13010 044023 42 51 64 63 00 20
13011 044024 00 64 57 00 24 77
13012 044025 042436 041301
13013 044026 000014 040733
13014 044027 044016 041175
13015 044030 000000 000000
13016 044031 400000 000002
13017 044032 000000 000000
13018 044033 400000 000003
13019 044034 000000 000000
13020 044035 000000 000000
13021 044036 000000 000000
13022 044037 000000 000006
13023 044040 044030 040756
13024 044041 000000 000000
13025 044042 400000 000002
13026 044043 000000 000000
13027 044044 000000 000003
13028 044045 000000 000000
13029 044046 000000 000000
13030 044047 000000 000000
13031 044050 000000 000006
13032 044051 044041 040756
13033 044052 000000 000000
13034 044053 000000 000002
13035 044054 777777 777777
13036 044055 377777 777775
13037 044056 777777 777777
13038 044057 777777 777777
13039 044060 777777 777777
13040 044061 777777 777772
13041 044062 044052 040756
13042 044063 000000 000000
13043 044064 400000 000002
13044 044065 777777 777777
13045 044066 377777 777775
13046 044067 777777 777777
13047 044070 777777 777777
13048 044071 777777 777777
13049 044072 777777 777772
13050 044073 044063 040756
13051 044074 000000 000000
13052 044075 400000 000002
13053 044076 777777 777777
13054 044077 777777 777775
13055 044100 777777 777777
13056 044101 777777 777777
13057 044102 777777 777777
13058 044103 777777 777772
13059 044104 044074 040756
13060 044105 777777 777777
13061 044106 777777 777776
13062 044107 000000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-25
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0284
13063 044110 400000 000003
13064 044111 777777 777777
13065 044112 777777 777777
13066 044113 777777 777777
13067 044114 777777 777772
13068 044115 044105 040756
13069 044116 777777 777777
13070 044117 377777 777776
13071 044120 000000 000000
13072 044121 400000 000003
13073 044122 777777 777777
13074 044123 777777 777777
13075 044124 777777 777777
13076 044125 777777 777772
13077 044126 044116 040756
13078 044127 777777 777777
13079 044130 377777 777776
13080 044131 000000 000000
13081 044132 000000 000003
13082 044133 777777 777777
13083 044134 777777 777777
13084 044135 777777 777777
13085 044136 777777 777772
13086 044137 044127 040756
13087 044140 777777 777777
13088 044141 777777 777776
13089 044142 777777 777777
13090 044143 377777 777775
13091 044144 000000 000000
13092 044145 000000 000000
13093 044146 000000 000000
13094 044147 000000 000006
13095 044150 044140 040756
13096 044151 777777 777777
13097 044152 377777 777776
13098 044153 777777 777777
13099 044154 377777 777775
13100 044155 000000 000000
13101 044156 000000 000000
13102 044157 000000 000000
13103 044160 000000 000006
13104 044161 044151 040756
13105 044162 777777 777777
13106 044163 377777 777776
13107 044164 777777 777777
13108 044165 777777 777775
13109 044166 000000 000000
13110 044167 000000 000000
13111 044170 000000 000000
13112 044171 000000 000006
13113 044172 044162 040756
13114 044173 000000 000002
13115 044174 000000 000000
13116 044175 000000 000003
13117 044176 400000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-26
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0285
13118 044177 000000 000000
13119 044200 000000 000006
13120 044201 000000 000000
13121 044202 000000 000000
13122 044203 044173 040756
13123 044204 000000 000002
13124 044205 400000 000000
13125 044206 000000 000003
13126 044207 400000 000000
13127 044210 000000 000000
13128 044211 000000 000006
13129 044212 000000 000000
13130 044213 000000 000000
13131 044214 044204 040756
13132 044215 000000 000002
13133 044216 400000 000000
13134 044217 000000 000003
13135 044220 000000 000000
13136 044221 000000 000000
13137 044222 000000 000006
13138 044223 000000 000000
13139 044224 000000 000000
13140 044225 044215 040756
13141 044226 000000 000002
13142 044227 000000 000000
13143 044230 777777 777775
13144 044231 000000 000000
13145 044232 777777 777777
13146 044233 777777 777772
13147 044234 400000 000000
13148 044235 400000 000000
13149 044236 044226 040756
13150 044237 000000 000002
13151 044240 400000 000000
13152 044241 777777 777775
13153 044242 000000 000000
13154 044243 777777 777777
13155 044244 777777 777772
13156 044245 400000 000000
13157 044246 400000 000000
13158 044247 044237 040756
13159 044250 000000 000002
13160 044251 400000 000000
13161 044252 777777 777775
13162 044253 400000 000000
13163 044254 777777 777777
13164 044255 777777 777772
13165 044256 400000 000000
13166 044257 400000 000000
13167 044260 044250 040756
13168 044261 777777 777776
13169 044262 400000 000000
13170 044263 000000 000003
13171 044264 400000 000000
13172 044265 777777 777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-27
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0286
13173 044266 777777 777772
13174 044267 400000 000000
13175 044270 400000 000000
13176 044271 044261 040756
13177 044272 777777 777776
13178 044273 000000 000000
13179 044274 000000 000003
13180 044275 400000 000000
13181 044276 777777 777777
13182 044277 777777 777772
13183 044300 400000 000000
13184 044301 400000 000000
13185 044302 044272 040756
13186 044303 777777 777776
13187 044304 000000 000000
13188 044305 000000 000003
13189 044306 000000 000000
13190 044307 777777 777777
13191 044310 777777 777772
13192 044311 400000 000000
13193 044312 400000 000000
13194 044313 044303 040756
13195 044314 777777 777776
13196 044315 400000 000000
13197 044316 777777 777775
13198 044317 000000 000000
13199 044320 000000 000000
13200 044321 000000 000006
13201 044322 000000 000000
13202 044323 000000 000000
13203 044324 044314 040756
13204 044325 777777 777776
13205 044326 000000 000000
13206 044327 777777 777775
13207 044330 000000 000000
13208 044331 000000 000000
13209 044332 000000 000006
13210 044333 000000 000000
13211 044334 000000 000000
13212 044335 044325 040756
13213 044336 777777 777776
13214 044337 000000 000000
13215 044340 777777 777775
13216 044341 400000 000000
13217 044342 000000 000000
13218 044343 000000 000006
13219 044344 000000 000000
13220 044345 000000 000000
13221 044346 044336 040756
13222 044347 44 44 51 66 00 64
13223 044350 45 63 64 77 00 00
13224 044351 000000 000000
13225 044352 000000 000000
13226 044353 000000 000000
13227 044354 123456 765432
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-28
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0287
13228 044355 000000 000000
13229 044356 000000 000001
13230 044357 000000 000000
13231 044360 123456 765432
13232 044361 000000 000000
13233 044362 000000 000000
13234 044363 044351 041020
13235 044364 64 45 63 64 00 41
13236 044365 00 15 00 61 65 57
13237 044366 64 51 45 56 64 17
13238 044367 62 45 55 41 51 56
13239 044370 44 45 62 00 51 56
13240 044371 43 57 62 62 45 43
13241 044372 64 77 00 00 00 00
13242 044373 044347 041301
13243 044374 000013 000014
13244 044375 044364 041230
13245 044376 000000 000000
13246 044377 000000 000000
13247 044400 123456 765432
13248 044401 000000 000000
13249 044402 000000 000000
13250 044403 000000 000001
13251 044404 123456 765432
13252 044405 000000 000000
13253 044406 000000 000000
13254 044407 000000 000000
13255 044410 044376 041020
13256 044411 000000 000000
13257 044412 000000 000000
13258 044413 000000 000000
13259 044414 123456 765432
13260 044415 000000 000000
13261 044416 123456 765432
13262 044417 000000 000000
13263 044420 000000 000001
13264 044421 000000 000000
13265 044422 000000 000000
13266 044423 044411 041020
13267 044424 64 45 63 64 00 42
13268 044425 00 15 00 61 65 57
13269 044426 64 51 45 56 64 17
13270 044427 62 45 55 41 51 56
13271 044430 44 45 62 00 51 56
13272 044431 43 57 62 62 45 43
13273 044432 64 77 00 00 00 00
13274 044433 044347 041301
13275 044434 000013 000014
13276 044435 044424 041230
13277 044436 000000 000000
13278 044437 000000 000000
13279 044440 123456 765432
13280 044441 000000 000000
13281 044442 123456 765432
13282 044443 000000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-29
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0288
13283 044444 000000 000000
13284 044445 000000 000001
13285 044446 000000 000000
13286 044447 000000 000000
13287 044450 044436 041020
13288 044451 000000 000000
13289 044452 000000 000000
13290 044453 000000 000000
13291 044454 000000 000001
13292 044455 000000 000000
13293 044456 000000 000002
13294 044457 000000 000000
13295 044460 000000 000000
13296 044461 000000 000000
13297 044462 000000 000001
13298 044463 044451 041020
13299 044464 64 45 63 64 00 43
13300 044465 00 15 00 61 65 57
13301 044466 64 51 45 56 64 17
13302 044467 62 45 55 41 51 56
13303 044470 44 45 62 00 51 56
13304 044471 43 57 62 62 45 43
13305 044472 64 77 00 00 00 00
13306 044473 044347 041301
13307 044474 000013 000014
13308 044475 044464 041230
13309 044476 000000 000000
13310 044477 000000 000000
13311 044500 000000 000001
13312 044501 000000 000000
13313 044502 000000 000000
13314 044503 000000 000002
13315 044504 000000 000000
13316 044505 200000 000000
13317 044506 000000 000000
13318 044507 000000 000000
13319 044510 044476 041020
13320 044511 000000 000000
13321 044512 000000 000000
13322 044513 000000 000001
13323 044514 000000 000000
13324 044515 000000 000002
13325 044516 000000 000000
13326 044517 000000 000000
13327 044520 000000 000000
13328 044521 000000 000001
13329 044522 000000 000000
13330 044523 044511 041020
13331 044524 000000 000000
13332 044525 000000 000001
13333 044526 000000 000000
13334 044527 000000 000000
13335 044530 000000 000000
13336 044531 000000 000002
13337 044532 200000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-30
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0289
13338 044533 000000 000000
13339 044534 000000 000000
13340 044535 000000 000000
13341 044536 044524 041020
13342 044537 000000 000000
13343 044540 000000 000001
13344 044541 000000 000000
13345 044542 000000 000000
13346 044543 000000 000002
13347 044544 000000 000000
13348 044545 000000 000000
13349 044546 200000 000000
13350 044547 000000 000000
13351 044550 000000 000000
13352 044551 044537 041020
13353 044552 000000 000001
13354 044553 000000 000000
13355 044554 000000 000000
13356 044555 000000 000000
13357 044556 000000 000002
13358 044557 000000 000000
13359 044560 200000 000000
13360 044561 000000 000000
13361 044562 000000 000000
13362 044563 000000 000000
13363 044564 044552 041020
13364 044565 777777 777777
13365 044566 777777 777777
13366 044567 777777 777777
13367 044570 777777 777777
13368 044571 000000 000000
13369 044572 000000 000002
13370 044573 000000 000000
13371 044574 000000 000000
13372 044575 777777 777777
13373 044576 777777 777777
13374 044577 044565 041020
13375 044600 777777 777777
13376 044601 777777 777777
13377 044602 777777 777777
13378 044603 400000 000000
13379 044604 000000 000000
13380 044605 000000 000002
13381 044606 777777 777777
13382 044607 600000 000000
13383 044610 000000 000000
13384 044611 000000 000000
13385 044612 044600 041020
13386 044613 777777 777777
13387 044614 777777 777777
13388 044615 777777 777777
13389 044616 400000 000000
13390 044617 000000 000002
13391 044620 000000 000000
13392 044621 000000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-31
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0290
13393 044622 000000 000000
13394 044623 777777 777777
13395 044624 400000 000000
13396 044625 044613 041020
13397 044626 777777 777777
13398 044627 777777 777777
13399 044630 400000 000000
13400 044631 400000 000000
13401 044632 000000 000000
13402 044633 000000 000002
13403 044634 600000 000000
13404 044635 400000 000000
13405 044636 000000 000000
13406 044637 000000 000000
13407 044640 044626 041020
13408 044641 777777 777777
13409 044642 777777 777777
13410 044643 400000 000000
13411 044644 400000 000000
13412 044645 000000 000002
13413 044646 000000 000000
13414 044647 777777 777777
13415 044650 600000 000000
13416 044651 000000 000000
13417 044652 000000 000000
13418 044653 044641 041020
13419 044654 777777 777777
13420 044655 400000 000000
13421 044656 400000 000000
13422 044657 400000 000000
13423 044660 000000 000002
13424 044661 000000 000000
13425 044662 600000 000000
13426 044663 400000 000000
13427 044664 000000 000000
13428 044665 000000 000000
13429 044666 044654 041020
13430 044667 000000 000000
13431 044670 000000 000000
13432 044671 000000 000000
13433 044672 000000 000001
13434 044673 777777 777777
13435 044674 777777 777776
13436 044675 000000 000000
13437 044676 000000 000000
13438 044677 000000 000000
13439 044700 000000 000001
13440 044701 044667 041020
13441 044702 000000 000000
13442 044703 000000 000000
13443 044704 000000 000001
13444 044705 000000 000000
13445 044706 777777 777777
13446 044707 777777 777776
13447 044710 777777 777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-32
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0291
13448 044711 600000 000000
13449 044712 000000 000000
13450 044713 000000 000000
13451 044714 044702 041020
13452 044715 000000 000000
13453 044716 000000 000000
13454 044717 000000 000001
13455 044720 000000 000000
13456 044721 777777 777776
13457 044722 400000 000000
13458 044723 000000 000000
13459 044724 000000 000000
13460 044725 000000 000001
13461 044726 000000 000000
13462 044727 044715 041020
13463 044730 000000 000000
13464 044731 000000 000001
13465 044732 000000 000000
13466 044733 000000 000000
13467 044734 777777 777777
13468 044735 777777 777776
13469 044736 600000 000000
13470 044737 400000 000000
13471 044740 000000 000000
13472 044741 000000 000000
13473 044742 044730 041020
13474 044743 000000 000000
13475 044744 000000 000001
13476 044745 000000 000000
13477 044746 000000 000000
13478 044747 777777 777776
13479 044750 400000 000000
13480 044751 777777 777777
13481 044752 600000 000000
13482 044753 000000 000000
13483 044754 000000 000000
13484 044755 044743 041020
13485 044756 000000 000001
13486 044757 000000 000000
13487 044760 000000 000000
13488 044761 000000 000000
13489 044762 777777 777776
13490 044763 400000 000000
13491 044764 600000 000000
13492 044765 400000 000000
13493 044766 000000 000000
13494 044767 000000 000000
13495 044770 044756 041020
13496 044771 777777 777777
13497 044772 777777 777777
13498 044773 777777 777777
13499 044774 777777 777777
13500 044775 777777 777777
13501 044776 777777 777776
13502 044777 000000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-33
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0292
13503 045000 000000 000000
13504 045001 777777 777777
13505 045002 777777 777777
13506 045003 044771 041020
13507 045004 777777 777777
13508 045005 777777 777777
13509 045006 777777 777777
13510 045007 400000 000000
13511 045010 777777 777777
13512 045011 777777 777776
13513 045012 000000 000000
13514 045013 200000 000000
13515 045014 000000 000000
13516 045015 000000 000000
13517 045016 045004 041020
13518 045017 777777 777777
13519 045020 777777 777777
13520 045021 777777 777777
13521 045022 400000 000000
13522 045023 777777 777776
13523 045024 400000 000000
13524 045025 000000 000000
13525 045026 000000 000000
13526 045027 777777 777777
13527 045030 400000 000000
13528 045031 045017 041020
13529 045032 777777 777777
13530 045033 777777 777777
13531 045034 400000 000000
13532 045035 400000 000000
13533 045036 777777 777777
13534 045037 777777 777776
13535 045040 200000 000000
13536 045041 000000 000000
13537 045042 000000 000000
13538 045043 000000 000000
13539 045044 045032 041020
13540 045045 777777 777777
13541 045046 777777 777777
13542 045047 400000 000000
13543 045050 400000 000000
13544 045051 777777 777776
13545 045052 400000 000000
13546 045053 000000 000000
13547 045054 200000 000000
13548 045055 000000 000000
13549 045056 000000 000000
13550 045057 045045 041020
13551 045060 777777 777777
13552 045061 400000 000000
13553 045062 400000 000000
13554 045063 400000 000000
13555 045064 777777 777776
13556 045065 400000 000000
13557 045066 200000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-34
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0293
13558 045067 000000 000000
13559 045070 000000 000000
13560 045071 000000 000000
13561 045072 045060 041020
13562 045073 333333 333333
13563 045074 333333 333333
13564 045075 333333 333333
13565 045076 333333 333333
13566 045077 344444 444444
13567 045100 444444 444444
13568 045101 365605 075342
13569 045102 070414 545131
13570 045103 055632 516360
13571 045104 373564 760527
13572 045105 045073 041020
13573 045106 64 45 63 64 00 44
13574 045107 00 15 00 61 65 57
13575 045110 64 51 45 56 64 17
13576 045111 62 45 55 41 51 56
13577 045112 44 45 62 00 51 56
13578 045113 43 57 62 62 45 43
13579 045114 64 77 00 00 00 00
13580 045115 044347 041301
13581 045116 000013 000014
13582 045117 045106 041230
13583 045120 64 45 63 64 00 44
13584 045121 00 15 00 60 43 00
13585 045122 46 54 41 47 63 00
13586 045123 51 56 43 57 62 62
13587 045124 45 43 64 00 15 00
13588 045125 42 51 64 63 00 20
13589 045126 00 06 00 21 22 77
13590 045127 044347 041301
13591 045130 000014 040775
13592 045131 045120 041230
13593 045132 333333 333333
13594 045133 444444 444444
13595 045134 333333 333333
13596 045135 444444 444444
13597 045136 344444 444444
13598 045137 333333 333333
13599 045140 365605 075340
13600 045141 247073 632327
13601 045142 213672 200375
13602 045143 376365 035467
13603 045144 045132 041020
13604 045145 222222 222222
13605 045146 222222 222222
13606 045147 222222 222222
13607 045150 222222 222222
13608 045151 333333 333333
13609 045152 333333 333333
13610 045153 252525 252525
13611 045154 125252 525253
13612 045155 111111 111111
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-35
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0294
13613 045156 111111 111111
13614 045157 045145 041020
13615 045160 222222 222222
13616 045161 333333 333333
13617 045162 222222 222222
13618 045163 333333 333333
13619 045164 333333 333333
13620 045165 444444 444444
13621 045166 252525 252526
13622 045167 070707 070710
13623 045170 004040 404041
13624 045171 327272 727273
13625 045172 045160 041020
13626 045173 255555 555555
13627 045174 555555 555555
13628 045175 555555 555555
13629 045176 555555 555555
13630 045177 311111 111111
13631 045200 111111 111111
13632 045201 335056 427213
13633 045202 035475 265746
13634 045203 144375 704605
13635 045204 004166 365327
13636 045205 045173 041020
13637 045206 255555 555555
13638 045207 222222 222222
13639 045210 555555 555555
13640 045211 222222 222222
13641 045212 311111 111111
13642 045213 666666 666666
13643 045214 335056 427212
13644 045215 323443 757047
13645 045216 240023 257716
13646 045217 107503 314730
13647 045220 045206 041020
13648 045221 123456 123456
13649 045222 123456 123456
13650 045223 123456 123456
13651 045224 123456 123456
13652 045225 234567 234567
13653 045226 234567 234567
13654 045227 210420 323476
13655 045230 136703 233600
13656 045231 055256 055256
13657 045232 055256 055256
13658 045233 045221 041020
13659 045234 444444 444444
13660 045235 444444 444444
13661 045236 444444 444444
13662 045237 444444 444444
13663 045240 333333 333333
13664 045241 333333 333334
13665 045242 400000 000000
13666 045243 400000 000001
13667 045244 511111 111110
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-36
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0295
13668 045245 511111 111110
13669 045246 045234 041020
13670 045247 555555 555555
13671 045250 555555 555555
13672 045251 555555 555555
13673 045252 555555 555555
13674 045253 444444 444444
13675 045254 444444 444444
13676 045255 252525 252525
13677 045256 125252 525252
13678 045257 606060 606060
13679 045260 460606 060605
13680 045261 045247 041020
13681 045262 444444 444444
13682 045263 555555 555555
13683 045264 444444 444444
13684 045265 555555 555555
13685 045266 432123 456765
13686 045267 432123 456765
13687 045270 364320 315052
13688 045271 247020 761620
13689 045272 473571 652245
13690 045273 600514 541235
13691 045274 045262 041020
13692 045275 555555 555555
13693 045276 222222 222222
13694 045277 555555 555555
13695 045300 222222 222222
13696 045301 543210 123456
13697 045302 543210 123456
13698 045303 356736 272460
13699 045304 271326 656374
13700 045305 763153 710465
13701 045306 406655 405512
13702 045307 045275 041020
13703 045310 777777 777777
13704 045311 377777 777777
13705 045312 377777 777777
13706 045313 377777 777774
13707 045314 777777 777777
13708 045315 377777 777776
13709 045316 000000 000000
13710 045317 000000 000002
13711 045320 000000 000000
13712 045321 000000 000000
13713 045322 045310 041020
13714 045323 64 45 63 64 00 45
13715 045324 00 15 00 61 65 57
13716 045325 64 51 45 56 64 17
13717 045326 62 45 55 41 51 56
13718 045327 44 45 62 00 51 56
13719 045330 43 57 62 62 45 43
13720 045331 64 77 00 00 00 00
13721 045332 044347 041301
13722 045333 000013 000014
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-37
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0296
13723 045334 045323 041230
13724 045335 64 45 63 64 00 45
13725 045336 00 15 00 60 43 00
13726 045337 46 54 41 47 63 00
13727 045340 51 56 43 57 62 62
13728 045341 45 43 64 00 15 00
13729 045342 42 51 64 63 00 20
13730 045343 00 06 00 21 22 77
13731 045344 044347 041301
13732 045345 000014 040775
13733 045346 045335 041230
13734 045347 777777 777777
13735 045350 377777 777777
13736 045351 377777 777777
13737 045352 777777 777774
13738 045353 777777 777777
13739 045354 777777 777776
13740 045355 000000 000000
13741 045356 000000 000002
13742 045357 000000 000000
13743 045360 000000 000000
13744 045361 045347 041020
13745 045362 777777 777777
13746 045363 377777 777777
13747 045364 377777 777777
13748 045365 377777 777774
13749 045366 000000 000000
13750 045367 400000 000002
13751 045370 777777 777777
13752 045371 777777 777776
13753 045372 000000 000000
13754 045373 000000 000000
13755 045374 045362 041020
13756 045375 777777 777777
13757 045376 777777 777777
13758 045377 777777 777777
13759 045400 777777 777774
13760 045401 000000 000000
13761 045402 400000 000002
13762 045403 777777 777777
13763 045404 777777 777776
13764 045405 000000 000000
13765 045406 000000 000000
13766 045407 045375 041020
13767 045410 000000 000000
13768 045411 400000 000000
13769 045412 400000 000000
13770 045413 400000 000004
13771 045414 777777 777777
13772 045415 377777 777776
13773 045416 777777 777777
13774 045417 777777 777776
13775 045420 000000 000000
13776 045421 000000 000000
13777 045422 045410 041020
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-38
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0297
13778 045423 000000 000000
13779 045424 400000 000000
13780 045425 400000 000000
13781 045426 400000 000004
13782 045427 777777 777777
13783 045430 777777 777776
13784 045431 777777 777777
13785 045432 777777 777776
13786 045433 000000 000000
13787 045434 000000 000000
13788 045435 045423 041020
13789 045436 000000 000000
13790 045437 000000 000000
13791 045440 000000 000000
13792 045441 400000 000004
13793 045442 000000 000000
13794 045443 000000 000002
13795 045444 000000 000000
13796 045445 000000 000002
13797 045446 000000 000000
13798 045447 000000 000000
13799 045450 045436 041020
13800 045451 000000 000000
13801 045452 000000 000000
13802 045453 000000 000000
13803 045454 400000 000004
13804 045455 000000 000000
13805 045456 400000 000002
13806 045457 000000 000000
13807 045460 000000 000002
13808 045461 000000 000000
13809 045462 000000 000000
13810 045463 045451 041020
13811 045464 777777 777775
13812 045465 400000 000000
13813 045466 400000 000000
13814 045467 400000 000000
13815 045470 777777 777772
13816 045471 400000 000000
13817 045472 200000 000000
13818 045473 000000 000000
13819 045474 000000 000000
13820 045475 000000 000000
13821 045476 045464 041020
13822 045477 777777 777775
13823 045500 400000 000000
13824 045501 400000 000000
13825 045502 000000 000000
13826 045503 777777 777772
13827 045504 400000 000000
13828 045505 200000 000000
13829 045506 000000 000000
13830 045507 000000 000000
13831 045510 000000 000000
13832 045511 045477 041020
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-39
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0298
13833 045512 777777 777775
13834 045513 400000 000000
13835 045514 000000 000000
13836 045515 000000 000000
13837 045516 000000 000006
13838 045517 000000 000000
13839 045520 600000 000000
13840 045521 400000 000000
13841 045522 000000 000000
13842 045523 000000 000000
13843 045524 045512 041020
13844 045525 777777 777775
13845 045526 000000 000000
13846 045527 000000 000000
13847 045530 000000 000000
13848 045531 000000 000006
13849 045532 400000 000000
13850 045533 600000 000000
13851 045534 400000 000000
13852 045535 000000 000000
13853 045536 000000 000000
13854 045537 045525 041020
13855 045540 000000 000003
13856 045541 400000 000000
13857 045542 400000 000000
13858 045543 000000 000000
13859 045544 777777 777772
13860 045545 400000 000000
13861 045546 600000 000000
13862 045547 400000 000000
13863 045550 000000 000000
13864 045551 000000 000000
13865 045552 045540 041020
13866 045553 000000 000003
13867 045554 400000 000000
13868 045555 000000 000000
13869 045556 400000 000000
13870 045557 777777 777772
13871 045560 400000 000000
13872 045561 600000 000000
13873 045562 400000 000000
13874 045563 000000 000000
13875 045564 000000 000000
13876 045565 045553 041020
13877 045566 000000 000003
13878 045567 000000 000000
13879 045570 400000 000000
13880 045571 400000 000000
13881 045572 000000 000006
13882 045573 400000 000000
13883 045574 200000 000000
13884 045575 000000 000000
13885 045576 000000 000000
13886 045577 000000 000000
13887 045600 045566 041020
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-40
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0299
13888 045601 000000 000003
13889 045602 400000 000000
13890 045603 400000 000000
13891 045604 400000 000000
13892 045605 000000 000006
13893 045606 000000 000000
13894 045607 200000 000000
13895 045610 000000 000000
13896 045611 000000 000000
13897 045612 000000 000000
13898 045613 045601 041020
13899 045614 000000 000001
13900 045615 000000 000000
13901 045616 000000 000000
13902 045617 000000 000000
13903 045620 000000 000001
13904 045621 000000 000001
13905 045622 377777 777777
13906 045623 000000 000000
13907 045624 000000 000001
13908 045625 000000 000000
13909 045626 045614 041020
13910 045627 64 45 63 64 00 46
13911 045630 00 15 00 61 65 57
13912 045631 64 51 45 56 64 17
13913 045632 62 45 55 41 51 56
13914 045633 44 45 62 00 51 56
13915 045634 43 57 62 62 45 43
13916 045635 64 77 00 00 00 00
13917 045636 044347 041301
13918 045637 000013 000014
13919 045640 045627 041230
13920 045641 64 45 63 64 00 46
13921 045642 00 15 00 60 43 00
13922 045643 46 54 41 47 63 00
13923 045644 51 56 43 57 62 62
13924 045645 45 43 64 00 15 00
13925 045646 42 51 64 63 00 20
13926 045647 00 06 00 21 22 77
13927 045650 044347 041301
13928 045651 000014 040775
13929 045652 045641 041230
13930 045653 000000 000001
13931 045654 000000 000000
13932 045655 000000 000000
13933 045656 000000 000000
13934 045657 777777 777776
13935 045660 777777 777777
13936 045661 400000 000001
13937 045662 400000 000000
13938 045663 000000 000001
13939 045664 000000 000000
13940 045665 045653 041020
13941 045666 777777 777777
13942 045667 400000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-41
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0300
13943 045670 400000 000000
13944 045671 400000 000000
13945 045672 000000 000001
13946 045673 000000 000001
13947 045674 400000 000001
13948 045675 400000 000000
13949 045676 777777 777777
13950 045677 400000 000000
13951 045700 045666 041020
13952 045701 777777 777777
13953 045702 400000 000000
13954 045703 400000 000000
13955 045704 400000 000000
13956 045705 777777 777776
13957 045706 777777 777777
13958 045707 377777 777777
13959 045710 000000 000000
13960 045711 777777 777777
13961 045712 400000 000000
13962 045713 045701 041020
13963 045714 000000 000000
13964 045715 377777 777777
13965 045716 377777 777777
13966 045717 377777 777777
13967 045720 000000 000001
13968 045721 000000 000000
13969 045722 377777 777777
13970 045723 377777 777777
13971 045724 000000 000000
13972 045725 377777 777777
13973 045726 045714 041020
13974 045727 000000 000000
13975 045730 377777 777777
13976 045731 377777 777777
13977 045732 377777 777777
13978 045733 777777 777777
13979 045734 400000 000000
13980 045735 400000 000000
13981 045736 400000 000001
13982 045737 000000 000000
13983 045740 377777 777777
13984 045741 045727 041020
13985 045742 777777 777777
13986 045743 400000 000000
13987 045744 400000 000000
13988 045745 400000 000001
13989 045746 000000 000001
13990 045747 000000 000000
13991 045750 400000 000000
13992 045751 400000 000001
13993 045752 777777 777777
13994 045753 400000 000001
13995 045754 045742 041020
13996 045755 777777 777777
13997 045756 400000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-42
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0301
13998 045757 400000 000000
13999 045760 400000 000001
14000 045761 777777 777777
14001 045762 400000 000000
14002 045763 377777 777777
14003 045764 377777 777777
14004 045765 777777 777777
14005 045766 400000 000001
14006 045767 045755 041020
14007 045770 000000 000000
14008 045771 000000 000000
14009 045772 000000 000000
14010 045773 000000 000001
14011 045774 000000 000000
14012 045775 000000 000000
14013 045776 045770 041104
14014 045777 64 45 63 64 00 47
14015 046000 00 15 00 44 51 66
14016 046001 51 44 45 56 44 00
14017 046002 43 50 41 56 47 45
14018 046003 44 00 57 56 00 57
14019 046004 66 17 56 57 44 51
14020 046005 66 77 00 00 00 00
14021 046006 044347 041301
14022 046007 000013 000014
14023 046010 045777 041230
14024 046011 400040 000000
14025 046012 64 45 63 64 00 47
14026 046013 00 15 00 60 43 00
14027 046014 46 54 41 47 63 00
14028 046015 51 56 43 57 62 62
14029 046016 45 43 64 00 15 00
14030 046017 42 51 64 63 00 20
14031 046020 06 21 22 77 00 00
14032 046021 044347 041301
14033 046022 000014 041043
14034 046023 046012 041230
14035 046024 000000 000000
14036 046025 000000 000000
14037 046026 000000 000001
14038 046027 000000 000000
14039 046030 000000 000000
14040 046031 000000 000000
14041 046032 046024 041104
14042 046033 000000 000000
14043 046034 000000 000001
14044 046035 000000 000000
14045 046036 000000 000000
14046 046037 000000 000000
14047 046040 000000 000000
14048 046041 046033 041104
14049 046042 000000 000001
14050 046043 000000 000000
14051 046044 000000 000000
14052 046045 000000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-43
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0302
14053 046046 000000 000000
14054 046047 000000 000000
14055 046050 046042 041104
14056 046051 777777 777777
14057 046052 777777 777777
14058 046053 777777 777777
14059 046054 777777 777777
14060 046055 000000 000000
14061 046056 000000 000000
14062 046057 046051 041104
14063 046060 000000 000000
14064 046061 000000 000001
14065 046062 000000 000000
14066 046063 000000 000000
14067 046064 000000 000000
14068 046065 000000 000001
14069 046066 046060 041104
14070 046067 000000 000000
14071 046070 000000 000001
14072 046071 000000 000000
14073 046072 000000 000000
14074 046073 777777 777777
14075 046074 777777 777777
14076 046075 046067 041104
14077 046076 000000 000001
14078 046077 000000 000000
14079 046100 000000 000000
14080 046101 000000 000000
14081 046102 000000 000000
14082 046103 000000 000001
14083 046104 046076 041104
14084 046105 000000 000001
14085 046106 000000 000000
14086 046107 000000 000000
14087 046110 000000 000000
14088 046111 777777 777777
14089 046112 777777 777777
14090 046113 046105 041104
14091 046114 777777 777777
14092 046115 777777 777777
14093 046116 400000 000000
14094 046117 400000 000000
14095 046120 000000 000000
14096 046121 000000 000001
14097 046122 046114 041104
14098 046123 777777 777777
14099 046124 777777 777777
14100 046125 400000 000000
14101 046126 400000 000000
14102 046127 777777 777777
14103 046130 777777 777777
14104 046131 046123 041104
14105 046132 777777 777777
14106 046133 400000 000000
14107 046134 400000 000000
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-44
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0303
14108 046135 400000 000000
14109 046136 000000 000000
14110 046137 000000 000001
14111 046140 046132 041104
14112 046141 777777 777777
14113 046142 400000 000000
14114 046143 400000 000000
14115 046144 400000 000000
14116 046145 777777 777777
14117 046146 777777 777777
14118 046147 046141 041104
14119 046150 000000 000001
14120 046151 000000 000000
14121 046152 000000 000000
14122 046153 000000 000000
14123 046154 000000 000001
14124 046155 000000 000000
14125 046156 046150 041104
14126 046157 000000 000001
14127 046160 000000 000000
14128 046161 000000 000000
14129 046162 000000 000000
14130 046163 777777 777777
14131 046164 000000 000000
14132 046165 046157 041104
14133 046166 777777 777777
14134 046167 400000 000000
14135 046170 400000 000000
14136 046171 400000 000000
14137 046172 000000 000001
14138 046173 000000 000000
14139 046174 046166 041104
14140 046175 777777 777777
14141 046176 400000 000000
14142 046177 400000 000000
14143 046200 400000 000000
14144 046201 777777 777777
14145 046202 400000 000000
14146 046203 046175 041104
14147 046204 000000 000000
14148 046205 377777 777777
14149 046206 377777 777777
14150 046207 377777 777777
14151 046210 000000 000000
14152 046211 377777 777777
14153 046212 046204 041104
14154 046213 000000 000000
14155 046214 377777 777777
14156 046215 377777 777777
14157 046216 377777 777777
14158 046217 777777 777777
14159 046220 400000 000001
14160 046221 046213 041104
14161 046222 045733 041104
14162 046223 777777 777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-45
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0304
14163 046224 400000 000000
14164 046225 400000 000000
14165 046226 400000 000001
14166 046227 777777 777777
14167 046230 400000 000001
14168 046231 046223 041104
14169 046232 043303 041104
14170 046233 000000 000001
14171 046234 000000 000000
14172 046235 377777 777777
14173 046236 377777 777777
14174 046237 777777 777777
14175 046240 400000 000001
14176 046241 046233 041104
14177 046242 777777 777776
14178 046243 777777 777777
14179 046244 400000 000000
14180 046245 400000 000001
14181 046246 000000 000000
14182 046247 377777 777777
14183 046250 046242 041104
14184 046251 777777 777776
14185 046252 777777 777777
14186 046253 400000 000000
14187 046254 400000 000001
14188 046255 777777 777777
14189 046256 400000 000001
14190 046257 046251 041104
14191 046260 400000 000000
14192 046261 400000 000000
14193 046262 400000 000000
14194 046263 400000 000000
14195 046264 400000 000000
14196 046265 400000 000000
14197 046266 046260 041104
14198 046267 377777 777777
14199 046270 377777 777777
14200 046271 377777 777777
14201 046272 377777 777777
14202 046273 377777 777777
14203 046274 377777 777777
14204 046275 046267 041104
14205 046276 377777 777777
14206 046277 377777 777777
14207 046300 377777 777777
14208 046301 377777 777777
14209 046302 400000 000000
14210 046303 400000 000001
14211 046304 046276 041104
14212 046305 400000 000000
14213 046306 400000 000001
14214 046307 400000 000000
14215 046310 400000 000000
14216 046311 377777 777777
14217 046312 377777 777777
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-46
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0305
14218 046313 046305 041104
14219 046314 000000 000001
14220 046315 400000 000000
14221 046316 777777 777777
14222 046317 777777 777777
14223 046320 000000 000000
14224 046321 377777 777777
14225 046322 046314 041104
14226 046323 000000 000001
14227 046324 000000 000000
14228 046325 377777 777777
14229 046326 377777 777777
14230 046327 777777 777777
14231 046330 000000 000001
14232 046331 046323 041104
14233 046332 777777 777776
14234 046333 377777 777777
14235 046334 000000 000000
14236 046335 000000 000001
14237 046336 000000 000000
14238 046337 777777 777777
14239 046340 046332 041104
14240 046341 777777 777776
14241 046342 777777 777777
14242 046343 000000 000000
14243 046344 000000 000001
14244 046345 777777 777777
14245 046346 400000 000001
14246 046347 046341 041104
14247 046350 040756 040760
14248 046351 041020 041024
14249 046352 000000 040773
14250 046353 041104 041110
14251 046354 000000 041041
14252 046355 41 65 47 45 56 44
14253 046356 32 00 00 77 00 00
14254 046357 41 44 44 45 56 44
14255 046360 32 00 00 77 00 00
14256 046361 62 45 63 65 54 64
14257 046362 32 00 00 77 00 00
14258 046363 55 51 56 65 45 56
14259 046364 44 32 00 00 00 00
14260 046365 00 77 00 00 00 00
14261 046366 63 65 42 64 62 41
14262 046367 50 45 56 44 32 00
14263 046370 00 77 00 00 00 00
14264 046371 62 45 63 65 54 64
14265 046372 32 00 00 00 00 00
14266 046373 00 77 00 00 00 00
14267 046374 55 65 54 64 51 60
14268 046375 54 51 43 41 56 44
14269 046376 32 00 00 77 00 00
14270 046377 55 65 54 64 51 60
14271 046400 54 51 45 62 32 00
14272 046401 00 00 00 77 00 00
DFKCB DECSYSTEM KL10 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 16:43 26-Sep-79 Page 1-47
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0306
14273 046402 62 45 63 65 54 64
14274 046403 32 00 00 00 00 00
14275 046404 00 00 00 77 00 00
14276 046405 44 51 66 51 44 45
14277 046406 56 44 32 00 00 77
14278 046407 44 51 66 51 63 57
14279 046410 62 32 00 00 00 77
14280 046411 61 65 57 64 51 45
14281 046412 56 64 32 00 00 77
14282 046413 00 00 62 45 55 41
14283 046414 51 56 44 45 62 32
14284 046415 00 00 77 00 00 00
14285 LIST
14286 051657 000000 000000 ENDSLD: 0
14287
14288 IFDEF DEBUG,<
14289 051660 PATCH: BLOCK DEBUG ;PATCHING AREA
14290 >
14291
14292 ;PROGRAM VARIABLES
14293 051710 VAR
14294
14295 IFDEF PGMEND,<
14296 051710 000000 000000 END: 0
14297 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 051711
CPU TIME USED 01:16.770
78P CORE USED
ABORT 295#
AC1 34# 952 953 957 960 964 977 978 982 985 989 1002 1003 1007 SEQ 0307
1010 1014 1027 1028 1032 1035 1039 1052 1053 1057 1060 1064 1077 1078
1082 1085 1089 1102 1103 1107 1110 1114 1181 1182 1186 1189 1193 1202
1204 1208 1211 1215 1238 1239 1243 1246 1250 1259 1261 1265 1268 1272
1295 1296 1300 1303 1307 1316 1318 1322 1325 1329 1352 1353 1357 1360
1364 1373 1375 1379 1382 1386 1409 1410 1414 1417 1421 1430 1432 1436
1439 1443 1466 1467 1471 1474 1478 1487 1489 1493 1496 1500 1523 1524
1528 1531 1535 1544 1546 1550 1553 1557 1580 1581 1585 1588 1592 1601
1603 1607 1610 1614 1644 1649 1651 1652 1653 1655 1658 1661 1665 1679
1695 1696 1700 1703 1707 1720 1721 1725 1728 1732 1779 1783 1792 1795
1799 1826 1830 1839 1842 1846 1873 1877 1886 1889 1893 1920 1924 1933
1936 1940 1967 1971 1980 1983 1987 2014 2018 2027 2030 2034 2135 2137
2148 2151 2155 2185 2187 2198 2201 2205 2235 2237 2248 2251 2255 2285
2287 2298 2301 2305 2335 2337 2348 2351 2355 2385 2387 2398 2401 2405
2454 2456 2465 2468 2472 2501 2503 2512 2515 2519 2548 2550 2559 2562
2566 2595 2597 2606 2609 2613 2642 2644 2653 2656 2660 2689 2691 2700
2703 2707 2756 2758 2767 2770 2774 2803 2805 2814 2817 2821 2850 2852
2861 2864 2868 2897 2899 2908 2911 2915 2944 2946 2955 2958 2962 2991
2993 3002 3005 3009 3058 3060 3069 3072 3076 3105 3107 3116 3119 3123
3152 3154 3163 3166 3170 3199 3201 3210 3213 3217 3246 3248 3257 3260
3264 3293 3295 3304 3307 3311 3360 3362 3371 3374 3378 3407 3409 3418
3421 3425 3454 3456 3465 3468 3472 3501 3503 3512 3515 3519 3548 3550
3559 3562 3566 3595 3597 3606 3609 3613 3816 3818 3827 3830 3834 3863
3865 3874 3877 3881 3910 3912 3921 3924 3928 3957 3959 3968 3971 3975
4004 4006 4015 4018 4022 4051 4053 4062 4065 4069 4098 4100 4109 4112
4116 4145 4147 4156 4159 4163 4260 4261 4265 4268 4272 4285 4286 4290
4293 4297 4310 4311 4315 4318 4322 4335 4336 4340 4343 4347 4360 4361
4365 4368 4372 4385 4386 4390 4393 4397 4441 4468 4472 4477 4484 4487
4491 4598 4599 4603 4606 4610 4625 4626 4630 4633 4637 4652 4653 4657
4660 4664 4679 4680 4684 4687 4691 4706 4707 4711 4714 4718 4733 4734
4738 4741 4745 4777 4778 4782 4785 4789 4804 4805 4809 4812 4816 4831
4832 4836 4839 4843 4858 4859 4863 4866 4870 4885 4886 4890 4893 4897
4912 4913 4917 4920 4924 4956 4957 4961 4964 4968 4983 4984 4988 4991
4995 5010 5011 5015 5018 5022 5037 5038 5042 5045 5049 5064 5065 5069
5072 5076 5091 5092 5096 5099 5103 5135 5136 5140 5143 5147 5162 5163
5167 5170 5174 5189 5190 5194 5197 5201 5216 5217 5221 5224 5228 5243
5244 5248 5251 5255 5270 5271 5275 5278 5282 5314 5315 5319 5322 5326
5341 5342 5346 5349 5353 5368 5369 5373 5376 5380 5395 5396 5400 5403
5407 5422 5423 5427 5430 5434 5449 5450 5454 5457 5461 5691 5693 5702
5705 5709 5741 5743 5752 5755 5759 5791 5793 5802 5805 5809 5841 5843
5852 5855 5859 5891 5893 5902 5905 5909 5941 5943 5952 5955 5959 5991
5993 6002 6005 6009 6041 6043 6052 6055 6059 6148 6149 6167 6168 6186
6187 6205 6206 6224 6225 6243 6244 6262 6263 6281 6282 6300 6301 6319
6320 6338 6339 6357 6358 6376 6377 6407 6408 6426 6427 6445 6446 6464
6465 6483 6484 6502 6503 6521 6522 6540 6541 6559 6560 6578 6579 6597
6598 6616 6617 6654 6655 6681 6682 6708 6710 6736 6738 6764 6765 6791
6792 6818 6820 6846 6847 6873 6874 6900 6902 6928 6929 6955 6956 6982
6984 7010 7012 7038 7039 7065 7066 7092 7094 7120 7121 7147 7148 7174
7176 7221 7222 7248 7249 7275 7277 7303 7305 7331 7332 7358 7359 7386
7388 7414 7415 7441 7442 7469 7471 7497 7498 7524 7525 7551 7553 7579
7581 7607 7608 7634 7635 7662 7664 7690 7691 7717 7718 7745 7747 7779
7780 7784 7790 7793 7796 7799 7801 7810 7837 7838 7864 7865 7891 7892
7918 7919 7955 7956 7982 7983 8009 8010 8036 8037 8063 8064 8090 8091
8117 8118 8144 8145 8171 8172 8198 8199 8225 8226 8252 8253 8279 8280 SEQ 0308
8306 8307 8333 8334 8360 8361 8387 8388 8414 8416 8442 8444 8470 8471
8497 8498 8524 8525 8551 8552 8578 8579 8618 8619 8638 8639 8668 8669
8688 8689 8722 8723 8742 8743 8762 8763 8782 8783 8802 8803 8822 8823
8842 8843 8862 8863 8882 8883 8902 8903 8922 8923 8942 8943 8962 8963
8982 8983 9002 9003 9022 9023 9042 9043 9062 9063 9082 9083 9102 9103
9122 9123 9142 9143 9162 9163 9182 9183 9217 9219 9247 9249 9276 9278
9306 9308 9336 9338 9366 9368 9397 9399 9427 9429 9457 9459 9487 9489
9517 9519 9559 9561 9588 9589 9616 9618 9645 9646 9673 9674 9701 9702
9729 9730 9757 9758 9785 9786 9813 9814 9841 9842 9869 9870 9897 9898
9925 9926 9953 9954 9981 9982 10026 10027 10054 10055 10082 10083 10110 10111
10139 10141 10169 10171 10198 10200 10228 10230 10298 10299 10328 10329 10358 10359
10388 10389 10418 10419 10448 10449 10478 10479 10508 10509 10538 10539 10568 10569
10598 10599 10628 10629 10658 10659 10688 10689 10718 10719 10748 10749 10778 10779
10808 10809 10838 10840 10869 10870 10899 10900 10929 10930 10959 10960 10989 10990
11019 11020 11049 11050 11080 11082 11111 11113 11142 11143 11173 11174 11204 11205
11235 11236 11266 11267 11298 11299 11303 11309 11313 11317 11321 11324 11346 11347
11351 11357 11361 11365 11369 11372 11406 11407 11408 11409 11413 11428 11432 11436
11440 11443 11451 11452 11453 11492 11495 11529 11532 11566 11569 11572 11575 11617
11620 11625 11628
ACONE 1757 2058#
ACONF1 2108 3638#
ACONF2 2432 3662#
ACONF3 2734 3687#
ACONF4 3036 3711#
ACONF5 3338 3736#
ACONG 3790 3814 3861 3908 3955 4002 4049 4096 4143 4191#
ADADDI 1674 1678 1679#
ADATA 1649 1650 1653 1676#
AENDB 1626#
AENDD 2056 2082#
AENDF 3636 3760#
AENDG 4185 4239#
AERR 1659 1664#
AERRC 1662 1666#
ALEFT 1175# 1180 1181 1186 1194 1203 1204 1208 1216 1232# 1237 1238 1243 1251
1260 1261 1265 1273 1289# 1294 1295 1300 1308 1317 1318 1322 1330 1346#
1351 1352 1357 1365 1374 1375 1379 1387 1403# 1405 1405# 1408 1409 1414
1422 1431 1432 1436 1444 1460# 1462 1462# 1465 1466 1471 1479 1488 1489
1493 1501 1517# 1519 1519# 1522 1523 1528 1536 1545 1546 1550 1558 1574#
1576 1576# 1579 1580 1585 1593 1602 1603 1607 1615
ALOOP 1646# 1673
ALTMGO 649#
ANXM 563#
APRINT 967 992 1017 1042 1067 1092 1117 1196 1218 1253 1275 1310 1332 1367
1389 1424 1446 1481 1503 1538 1560 1595 1617 1667 1710 1735 1802 1815
1849 1862 1896 1909 1943 1956 1990 2003 2037 2050 2158 2172 2208 2222
2258 2272 2308 2322 2358 2372 2408 2422 2475 2489 2522 2536 2569 2583
2616 2630 2663 2677 2710 2724 2777 2791 2824 2838 2871 2885 2918 2932
2965 2979 3012 3026 3079 3093 3126 3140 3173 3187 3220 3234 3267 3281
3314 3328 3381 3395 3428 3442 3475 3489 3522 3536 3569 3583 3616 3630
3837 3850 3884 3897 3931 3944 3978 3991 4025 4038 4072 4085 4119 4132
4166 4179 11468#
ARIGHT 1176# 1180 1181 1189 1194 1203 1204 1211 1216 1233# 1237 1238 1246 1251 SEQ 0309
1260 1261 1268 1273 1290# 1294 1295 1303 1308 1317 1318 1325 1330 1347#
1351 1352 1360 1365 1374 1375 1382 1387 1404# 1406 1406# 1408 1409 1417
1422 1431 1432 1439 1444 1461# 1463 1463# 1465 1466 1474 1479 1488 1489
1496 1501 1518# 1520 1520# 1522 1523 1531 1536 1545 1546 1553 1558 1575#
1577 1577# 1579 1580 1588 1593 1602 1603 1610 1615
AROV 563# 1811 1858 1905 1952 1999 2046 2167 2217 2267 2317 2367 2417 2484
2531 2578 2625 2672 2719 2786 2833 2880 2927 2974 3021 3088 3135 3182
3229 3276 3323 3390 3437 3484 3531 3578 3625 3846 3893 3940 3987 4034
4081 4128 4175 4522 5722 5772 5822 5872 5922 5972 6022 6072 6663 6690
6718 6746 6773 6800 6828 6855 6882 6910 6937 6964 6992 7020 7047 7074
7102 7129 7156 7184 7230 7257 7285 7313 7340 7367 7396 7423 7450 7479
7506 7533 7561 7589 7616 7643 7672 7699 7726 7755 7846 7873 7900 7927
7964 7991 8018 8045 8072 8099 8126 8153 8180 8207 8234 8261 8288 8315
8342 8369 8396 8424 8452 8479 8506 8533 8560 8587 9227 9257 9286 9316
9346 9376 9407 9437 9467 9497 9527 9569 9597 9626 9654 9682 9710 9738
9766 9794 9822 9850 9878 9906 9934 9962 9990 10035 10063 10091 10119 10149
10179 10208 10238 10307 10309 10337 10339 10367 10369 10397 10399 10427 10429 10457
10459 10487 10489 10517 10519 10547 10549 10577 10579 10607 10609 10637 10639 10667
10669 10697 10699 10727 10729 10757 10759 10787 10789 10817 10819 10848 10850 10878
10880 10908 10910 10938 10940 10968 10970 10998 11000 11028 11030 11058 11060 11090
11092 11121 11123 11151 11153 11182 11184 11213 11215 11244 11246 11275 11277
AROVU 563#
ASHIFT 1646 1647 1678#
AST 764#
ATEST1 951# 968
ATEST2 976# 993
ATEST3 1001# 1018
ATEST4 1026# 1043
ATEST5 1051# 1068
ATEST6 1076# 1093
ATEST7 1101# 1118
ATSIN 765#
ATSTD1 1694# 1711
ATSTD2 1719# 1736
BDONE 4453 4553#
BDONEI 4503 4506 4510 4517#
BEGEND 645# 11286
BEGIN 54 55 56 57 58 510 511 576# 14297
BEGIN1 592# 646
BELL 768#
BERROR 4485 4490#
BFLAG 4488 4497#
BFSET 4505# 4512 4515
BIS 563#
BSAME 4501 4508#
BTESTB 4468# 4494 4528
CCA 563#
CHAIN 315#
CHNOFF 563#
CHNON 563#
CLK 563#
CLKCLR 563#
CLKDIS 563# SEQ 0310
CLKENB 563#
CLKU 563#
CLOCKF 631#
CNT 37# 1643 1646 1671 1672
CNTLC 648#
CNUM 1757# 1778 1778# 1779 1781 1792 1795 1800 1825 1825# 1826 1828 1839 1842
1847 1872 1872# 1873 1875 1886 1889 1894 1919 1919# 1920 1922 1933 1936
1941 1966 1966# 1967 1969 1980 1983 1988 2013 2013# 2014 2016 2027 2030
2035 2108# 2133 2133# 2134 2135 2137 2183 2183# 2184 2185 2187 2233 2233#
2234 2235 2237 2283 2283# 2284 2285 2287 2333 2333# 2334 2335 2337 2383
2383# 2384 2385 2387 2432# 2452 2452# 2453 2454 2456 2499 2499# 2500 2501
2503 2546 2546# 2547 2548 2550 2593 2593# 2594 2595 2597 2640 2640# 2641
2642 2644 2687 2687# 2688 2689 2691 2734# 2754 2754# 2755 2756 2758 2801
2801# 2802 2803 2805 2848 2848# 2849 2850 2852 2895 2895# 2896 2897 2899
2942 2942# 2943 2944 2946 2989 2989# 2990 2991 2993 3036# 3056 3056# 3057
3058 3060 3103 3103# 3104 3105 3107 3150 3150# 3151 3152 3154 3197 3197#
3198 3199 3201 3244 3244# 3245 3246 3248 3291 3291# 3292 3293 3295 3338#
3358 3358# 3359 3360 3362 3405 3405# 3406 3407 3409 3452 3452# 3453 3454
3456 3499 3499# 3500 3501 3503 3546 3546# 3547 3548 3550 3593 3593# 3594
3595 3597 3790# 3812 3812# 3814 3815 3816 3818 3827 3830 3835 3859 3859#
3861 3862 3863 3865 3874 3877 3882 3906 3906# 3908 3909 3910 3912 3921
3924 3929 3953 3953# 3955 3956 3957 3959 3968 3971 3976 4000 4000# 4002
4003 4004 4006 4015 4018 4023 4047 4047# 4049 4050 4051 4053 4062 4065
4070 4094 4094# 4096 4097 4098 4100 4109 4112 4117 4141 4141# 4143 4144
4145 4147 4156 4159 4164 4579# 4596 4596# 4597 4598 4599 4603 4606 4611
4623 4623# 4624 4625 4626 4630 4633 4638 4650 4650# 4651 4652 4653 4657
4660 4665 4677 4677# 4678 4679 4680 4684 4687 4692 4704 4704# 4705 4706
4707 4711 4714 4719 4731 4731# 4732 4733 4734 4738 4741 4746 4758# 4775
4775# 4776 4777 4778 4782 4785 4790 4802 4802# 4803 4804 4805 4809 4812
4817 4829 4829# 4830 4831 4832 4836 4839 4844 4856 4856# 4857 4858 4859
4863 4866 4871 4883 4883# 4884 4885 4886 4890 4893 4898 4910 4910# 4911
4912 4913 4917 4920 4925 4937# 4954 4954# 4955 4956 4957 4961 4964 4969
4981 4981# 4982 4983 4984 4988 4991 4996 5008 5008# 5009 5010 5011 5015
5018 5023 5035 5035# 5036 5037 5038 5042 5045 5050 5062 5062# 5063 5064
5065 5069 5072 5077 5089 5089# 5090 5091 5092 5096 5099 5104 5116# 5133
5133# 5134 5135 5136 5160 5160# 5161 5162 5163 5187 5187# 5188 5189 5190
5214 5214# 5215 5216 5217 5241 5241# 5242 5243 5244 5268 5268# 5269 5270
5271 5295# 5312 5312# 5313 5314 5315 5339 5339# 5340 5341 5342 5366 5366#
5367 5368 5369 5393 5393# 5394 5395 5396 5420 5420# 5421 5422 5423 5447
5447# 5448 5449 5450 5658# 5686 5686# 5690 5691 5693 5716 5736 5736# 5740
5741 5743 5766 5786 5786# 5790 5791 5793 5816 5836 5836# 5840 5841 5843
5866 5886 5886# 5890 5891 5893 5916 5936 5936# 5940 5941 5943 5966 5986
5986# 5990 5991 5993 6016 6036 6036# 6040 6041 6043 6066
COMMA 757#
CONSW 632#
CPOPJ 652#
CPOPJ1 650#
CRLF 445 446 752#
CRLF2 449 450 754#
CRY0 563#
CRY1 563#
CSHFLG 811#
CSHMEM 812# SEQ 0311
CYCL60 805#
DCK 563# 9227 9257 9286 9316 9346 9376 9407 9437 9467 9497 9527 9569 9597
9626 9654 9682 9710 9738 9766 9794 9822 9850 9878 9906 9934 9962 9990
10035 10063 10091 10119 10149 10179 10208 10238 10307 10337 10367 10397 10427 10457
10487 10517 10547 10577 10607 10637 10667 10697 10727 10757 10787 10817 10848 10878
10908 10938 10968 10998 11028 11058 11090 11121 11151 11182 11213 11244 11275
DDTLNK 329# 590
DDTSRT 590#
DEBUG 72# 14288 14289
DECVER 4# 10 16 611
DF22F 716#
DIAGMN 579#
DING 301#
DOLLAR 771#
DPRINT 8622 8642 8672 8692 8726 8746 8766 8786 8806 8826 8846 8866 8886 8906
8926 8946 8966 8986 9006 9026 9046 9066 9086 9106 9126 9146 9166 9186
9222 9230 9252 9260 9281 9289 9311 9319 9341 9349 9371 9379 9402 9410
9432 9440 9462 9470 9492 9500 9522 9530 9564 9572 9592 9600 9621 9629
9649 9657 9677 9685 9705 9713 9733 9741 9761 9769 9789 9797 9817 9825
9845 9853 9873 9881 9901 9909 9929 9937 9957 9965 9985 9993 10030 10038
10058 10066 10086 10094 10114 10122 10144 10152 10174 10182 10203 10211 10233 10241
10302 10313 10332 10343 10362 10373 10392 10403 10422 10433 10452 10463 10482 10493
10512 10523 10542 10553 10572 10583 10602 10613 10632 10643 10662 10673 10692 10703
10722 10733 10752 10763 10782 10793 10812 10823 10843 10854 10873 10884 10903 10914
10933 10944 10963 10974 10993 11004 11023 11034 11053 11064 11085 11096 11116 11127
11146 11157 11177 11188 11208 11219 11239 11250 11270 11281 11585#
DSKUPD 616
END 14296#
ENDFIX 891#
ENDSLD 14286#
ERMORE 665#
ERRPC 636#
ERRTLS 637#
ERSTOP 304#
EXCASB 70# 614
EXIOT 563#
FIVE 9203# 9336 9366 9457 9487 9517
FLAGL 1786# 1808 1815 1833# 1855 1862 1880# 1902 1909 1927# 1949 1956 1974# 1996
2003 2021# 2043 2050 2140# 2164 2172 2190# 2214 2222 2240# 2264 2272 2290#
2314 2322 2340# 2364 2372 2390# 2414 2422 2459# 2481 2489 2506# 2528 2536
2553# 2575 2583 2600# 2622 2630 2647# 2669 2677 2694# 2716 2724 2761# 2783
2791 2808# 2830 2838 2855# 2877 2885 2902# 2924 2932 2949# 2971 2979 2996#
3018 3026 3063# 3085 3093 3110# 3132 3140 3157# 3179 3187 3204# 3226 3234
3251# 3273 3281 3298# 3320 3328 3365# 3387 3395 3412# 3434 3442 3459# 3481
3489 3506# 3528 3536 3553# 3575 3583 3600# 3622 3630 3821# 3843 3850 3868#
3890 3897 3915# 3937 3944 3962# 3984 3991 4009# 4031 4038 4056# 4078 4085
4103# 4125 4132 4150# 4172 4179 4481# 4497 4519 4527 5696# 5719 5726 5746#
5769 5776 5796# 5819 5826 5846# 5869 5876 5896# 5919 5926 5946# 5969 5976
5996# 6019 6026 6046# 6069 6076 7787# 7810
FLAGS 3792# 3844 3891 3938 3985 4002# 4032 4079 4126 4173 5662# 5720 5770 5820
5870 5888# 5920 5938# 5970 5988# 6020 6038# 6070
FOUR 9202# 9217 9247 9306 9427 9457 9487
FOV 563# SEQ 0312
FOVU 563#
FRDLNK 327#
FSELNK 326#
FXU 563#
HYPEN 762#
ILOOP 4457# 4531
IMINU 4454 4468 4499 4502 4508 4551#
INHCSH 312#
INHPAG 309#
INXM 563#
IOCLR 563#
ISUBTR 4460 4469 4477 4498 4509 4511 4513 4514 4552#
ITERAT 59# 609
ITRCH1 669#
ITRCNT 609#
JOB41 563#
JOBAPR 563#
JOBCNI 563#
JOBDDT 563#
JOBFF 563#
JOBOPC 563#
JOBREL 563#
JOBREN 563#
JOBSA 563#
JOBSYM 563#
JOBTPC 563#
JOBUSY 563#
JOBUUO 563#
JOBVER 563#
K 9388# 9397
KA10 563
KAHZ50 317#
KAIFLG 626#
KI10 563
KL10 67# 563
KL10P0 68# 563
KLFLG 627#
KLOLD 525
LAPRAL 563#
LAPRP1 563#
LAPRP2 563#
LAPRP3 563#
LAPRP4 563#
LAPRP5 563#
LAPRP6 563#
LAPRP7 563#
LAROVT 563#
LCADEN 563#
LCADRP 563#
LCASDE 563#
LCASLD 563#
LCASLO 563#
LCASWB 563# SEQ 0313
LCASWD 563#
LCCAER 563#
LCCASD 563#
LCHNOF 563#
LCHNON 563#
LCIOPF 563#
LCNTRP 563#
LCNTXT 563#
LCNXER 563#
LCPAER 563#
LCPWRF 563#
LCSAER 563#
LCSBER 563#
LCSLOA 563#
LCSLOO 563#
LCTRP 563#
LCWSX 563#
LDATAF 563#
LDCAER 563#
LDCASD 563#
LDIOPF 563#
LDLNK 328# 579 581
LDNXER 563#
LDPAER 563#
LDPWRF 563#
LDSAER 563#
LDSBER 563#
LEBXMH 563#
LEBXML 563#
LECAER 563#
LECASD 563#
LEIOPF 563#
LENXER 563#
LEPAER 563#
LEPWRF 563#
LESAER 563#
LESBER 563#
LEUPFW 563#
LEVNCD 563#
LEVNPA 563#
LEVNPD 563#
LEXCMP 563#
LFLGCL 563#
LFLGDS 563#
LFLGEN 563#
LFLGST 563#
LFP 766#
LINSTF 563#
LINT 563#
LIOCLR 563#
LIOPFE 563#
LKNTRP 563#
LKTRP 563# SEQ 0314
LLACBL 563#
LLDUSB 563#
LLPRCN 563#
LMBXMH 563#
LMBXML 563#
LMUUO 563#
LMUUOP 563#
LNXMEN 563#
LNXMER 563#
LOC 1174# 1197 1201# 1219 1231# 1254 1258# 1276 1288# 1311 1315# 1333 1345# 1368
1372# 1390 1402# 1425 1429# 1447 1459# 1482 1486# 1504 1516# 1539 1543# 1561
1573# 1596 1600# 1618 1668 1777# 1803 1816 1824# 1850 1863 1871# 1897 1910
1918# 1944 1957 1965# 1991 2004 2012# 2038 2051 2131# 2159 2173 2181# 2209
2223 2231# 2259 2273 2281# 2309 2323 2331# 2359 2373 2381# 2409 2423 2451#
2476 2490 2498# 2523 2537 2545# 2570 2584 2592# 2617 2631 2639# 2664 2678
2686# 2711 2725 2753# 2778 2792 2800# 2825 2839 2847# 2872 2886 2894# 2919
2933 2941# 2966 2980 2988# 3013 3027 3055# 3080 3094 3102# 3127 3141 3149#
3174 3188 3196# 3221 3235 3243# 3268 3282 3290# 3315 3329 3357# 3382 3396
3404# 3429 3443 3451# 3476 3490 3498# 3523 3537 3545# 3570 3584 3592# 3617
3631 3813# 3838 3851 3860# 3885 3898 3907# 3932 3945 3954# 3979 3992 4001#
4026 4039 4048# 4073 4086 4095# 4120 4133 4142# 4167 4180 4595# 4614 4622#
4641 4649# 4668 4676# 4695 4703# 4722 4730# 4749 4774# 4793 4801# 4820 4828#
4847 4855# 4874 4882# 4901 4909# 4928 4953# 4972 4980# 4999 5007# 5026 5034#
5053 5061# 5080 5088# 5107 5132# 5151 5159# 5178 5186# 5205 5213# 5232 5240#
5259 5267# 5286 5311# 5330 5338# 5357 5365# 5384 5392# 5411 5419# 5438 5446#
5465 5685# 5713 5727 5735# 5763 5777 5785# 5813 5827 5835# 5863 5877 5885#
5913 5927 5935# 5963 5977 5985# 6013 6027 6035# 6063 6077 7777# 7804 7811
LOOPER 303#
LPAREN 563#
LPARER 563#
LPDOVT 563#
LPFWPC 563#
LPGFTR 563#
LPICH1 563#
LPICH2 563#
LPICH3 563#
LPICH4 563#
LPICH5 563#
LPICH6 563#
LPICH7 563#
LPICHA 563#
LPICLR 563#
LPIIP1 563#
LPIIP2 563#
LPIIP3 563#
LPIIP4 563#
LPIIP5 563#
LPIIP6 563#
LPIIP7 563#
LPIOFF 563#
LPION 563#
LPNTRP 563#
LPRCH1 563# SEQ 0315
LPRCH2 563#
LPRCH3 563#
LPRCH4 563#
LPRCH5 563#
LPRCH6 563#
LPRCH7 563#
LPRFMH 563#
LPRFML 563#
LPTRP 563#
LPWRFE 563#
LPWRFL 563#
LREQSE 563#
LRQCLR 563#
LSADEN 563#
LSADRP 563#
LSBSEN 563#
LSBUSE 563#
LSCAER 563#
LSCASD 563#
LSECMO 563#
LSIOPF 563#
LSMODE 563#
LSNTRP 563#
LSNXER 563#
LSPAER 563#
LSPWRF 563#
LSSAER 563#
LSSBER 563#
LSTRP 563#
LTBASH 563#
LTBASL 563#
LTRP3T 563#
LTRPAE 563#
LTRPEN 563#
LUSCMP 563#
LUUO 563#
LUUO1 696 697
LUUO10 696 701
LUUO11 696 701
LUUO12 696 702
LUUO13 696 702
LUUO14 696 703
LUUO15 696 703
LUUO16 696 704
LUUO17 696 704
LUUO2 696 698
LUUO20 696 705
LUUO21 696 705
LUUO22 696 706
LUUO23 696 706
LUUO24 696 707
LUUO25 696 707
LUUO26 696 708 SEQ 0316
LUUO27 696 708
LUUO3 696 698
LUUO30 696 709
LUUO31 696 709
LUUO32 696 710
LUUO33 696 710
LUUO4 696 699
LUUO5 696 699
LUUO6 696 700
LUUO7 696 700
LUUOI 563#
LWRITE 563#
MAPNEW 717#
MARGIN 639#
MCAND 6148 6167 6186 6205 6224 6243 6262 6281 6300 6319 6338 6357 6376 6407
6426 6445 6464 6483 6502 6521 6540 6559 6578 6597 6616 6654 6681 6709
6737 6764 6791 6819 6846 6873 6901 6928 6955 6983 7011 7038 7065 7093
7120 7147 7175 7221 7248 7276 7304 7331 7358 7387 7414 7441 7470 7497
7524 7552 7580 7607 7634 7663 7690 7717 7746 7837 7864 7891 7918 7955
7982 8009 8036 8063 8090 8117 8144 8171 8198 8225 8252 8279 8306 8333
8360 8387 8415 8443 8470 8497 8524 8551 8578 11297 11298 11332#
MCNVER 3# 10 16 611
MEMLOW 719#
MEMMAP 617
MEMSIZ 720#
MEMTOT 718#
MERROR 11310 11314 11318 11324#
MFLOC 6662 6666 6689 6693 6717 6721 6745 6749 6772 6776 6799 6803 6827 6831
6854 6858 6881 6885 6909 6913 6936 6940 6963 6967 6991 6995 7019 7023
7046 7050 7073 7077 7101 7105 7128 7132 7155 7159 7183 7187 7229 7233
7256 7260 7284 7288 7312 7316 7339 7343 7366 7370 7395 7399 7422 7426
7449 7453 7478 7482 7505 7509 7532 7536 7560 7564 7588 7592 7615 7619
7642 7646 7671 7675 7698 7702 7725 7729 7754 7758 7845 7849 7872 7876
7899 7903 7926 7930 7963 7967 7990 7994 8017 8021 8044 8048 8071 8075
8098 8102 8125 8129 8152 8156 8179 8183 8206 8210 8233 8237 8260 8264
8287 8291 8314 8318 8341 8345 8368 8372 8395 8399 8423 8427 8451 8455
8478 8482 8505 8509 8532 8536 8559 8563 8586 8590 11306#
MINU 4441# 4442 4450 4452 4453 4454 4461
MINUS 761#
MODDVC 311#
MODDVL 510 510# 612
MODDVU 511 511# 613
MODLNK 330# 576
MONCTL 629#
MONFLG 628#
MONTEN 630#
MONTYP 843#
MOVERR 7791 7794 7797 7801#
MOVOK 7800 7806#
MOVRR 7806 7809#
MPLIER 11297 11303 11333#
MPRINT 6152 6171 6190 6209 6228 6247 6266 6285 6304 6323 6342 6361 6380 6411
6430 6449 6468 6487 6506 6525 6544 6563 6582 6601 6620 6658 6666 6685 SEQ 0317
6693 6713 6721 6741 6749 6768 6776 6795 6803 6823 6831 6850 6858 6877
6885 6905 6913 6932 6940 6959 6967 6987 6995 7015 7023 7042 7050 7069
7077 7097 7105 7124 7132 7151 7159 7179 7187 7225 7233 7252 7260 7280
7288 7308 7316 7335 7343 7362 7370 7391 7399 7418 7426 7445 7453 7474
7482 7501 7509 7528 7536 7556 7564 7584 7592 7611 7619 7638 7646 7667
7675 7694 7702 7721 7729 7750 7758 7803 7810 7841 7849 7868 7876 7895
7903 7922 7930 7959 7967 7986 7994 8013 8021 8040 8048 8067 8075 8094
8102 8121 8129 8148 8156 8175 8183 8202 8210 8229 8237 8256 8264 8283
8291 8310 8318 8337 8345 8364 8372 8391 8399 8419 8427 8447 8455 8474
8482 8501 8509 8528 8536 8555 8563 8582 8590 11542#
MPVU 563#
MRES 6149 6168 6187 6206 6225 6244 6263 6282 6301 6320 6339 6358 6377 6408
6427 6446 6465 6484 6503 6522 6541 6560 6579 6598 6617 6655 6682 6710
6738 6765 6792 6820 6847 6874 6902 6929 6956 6984 7012 7039 7066 7094
7121 7148 7176 7222 7249 7277 7305 7332 7359 7388 7415 7442 7471 7498
7525 7553 7581 7608 7635 7664 7691 7718 7747 7838 7865 7892 7919 7956
7983 8010 8037 8064 8091 8118 8145 8172 8199 8226 8253 8280 8307 8334
8361 8388 8416 8444 8471 8498 8525 8552 8579 11309 11313 11317 11321 11325
11334#
MRET 11328 11329 11330 11335# 11376 11377 11378 11447 11448 11449
MSUBR 6150 6169 6188 6207 6226 6245 6264 6283 6302 6321 6340 6359 6378 6409
6428 6447 6466 6485 6504 6523 6542 6561 6580 6599 6618 6656 6683 6711
6739 6766 6793 6821 6848 6875 6903 6930 6957 6985 7013 7040 7067 7095
7122 7149 7177 7223 7250 7278 7306 7333 7360 7389 7416 7443 7472 7499
7526 7554 7582 7609 7636 7665 7692 7719 7748 7839 7866 7893 7920 7957
7984 8011 8038 8065 8092 8119 8146 8173 8200 8227 8254 8281 8308 8335
8362 8389 8417 8445 8472 8499 8526 8553 8580 11297#
MTEST 11322 11328#
NOPNT 299#
NUM 916# 951 952 960 965 976 977 982 990 1001 1002 1007 1010 1015
1026 1028 1035 1040 1051 1053 1057 1065 1076 1078 1082 1085 1090 4259
4260 4268 4273 4284 4285 4290 4298 4309 4310 4315 4318 4323 4334 4336
4343 4348 4359 4361 4365 4373 4384 4386 4390 4393 4398 6148 6167 6186
6205 6224 6243 6262 6281 6300 6319 6338 6357 6407 6426 6445 6464 6483
6502 6521 6540 6559 6578 6597 6616 8618 8638 8668 8688
NXMU 563#
OBYTEF 11420 11422 11424 11451#
OBYTET 11421 11423 11425 11454#
OCON 11419 11427#
ODEND 10298 10328 10358 10388 10418 10448 10478 10508 10538 10568 10598 10628 10658 10688
10718 10748 10778 10808 10838 10869 10899 10929 10959 10989 11019 11049 11081 11112
11142 11173 11204 11235 11266 11405 11406 11407 11458#
OERROR 11429 11433 11437 11443#
OFLOC 10306 10310 10313 10336 10340 10343 10366 10370 10373 10396 10400 10403 10426 10430
10433 10456 10460 10463 10486 10490 10493 10516 10520 10523 10546 10550 10553 10576
10580 10583 10606 10610 10613 10636 10640 10643 10666 10670 10673 10696 10700 10703
10726 10730 10733 10756 10760 10763 10786 10790 10793 10816 10820 10823 10847 10851
10854 10877 10881 10884 10907 10911 10914 10937 10941 10944 10967 10971 10974 10997
11001 11004 11027 11031 11034 11057 11061 11064 11089 11093 11096 11120 11124 11127
11150 11154 11157 11181 11185 11188 11212 11216 11219 11243 11247 11250 11274 11278
11281 11416#
OISOR 11405 11413 11459#
OLOOP 4452# 4458 SEQ 0318
ONE 9199# 9276 9336
OPRSEL 313#
OPTIME 731#
ORES 10299 10329 10359 10389 10419 10449 10479 10509 10539 10569 10599 10629 10659 10689
10719 10749 10779 10809 10840 10870 10900 10930 10960 10990 11020 11050 11082 11113
11143 11174 11205 11236 11267 11408 11409 11428 11432 11436 11440 11444 11454 11455
11456 11460#
ORET 11461#
OSUBR 10300 10330 10360 10390 10420 10450 10480 10510 10540 10570 10600 10630 10660 10690
10720 10750 10780 10810 10841 10871 10901 10931 10961 10991 11021 11051 11083 11114
11144 11175 11206 11237 11268 11405#
OTEST 11441 11447#
P 356 357 358 359 563# 651
PAG 563#
PALERS 305#
PARCLR 563#
PARDIS 563#
PAREA1 60# 607
PAREA2 61# 608
PAREA3 62# 605
PAREA4 63# 606
PAREA5 64# 618
PAREA6 65# 619
PAREA7 618#
PAREA8 619#
PARENB 563#
PARU 563#
PASCNT 633#
PATCH 14289#
PDEND 8618 8638 8668 8688 8722 8742 8762 8782 8802 8822 8842 8862 8882 8902
8922 8942 8962 8982 9002 9022 9042 9062 9082 9102 9122 9142 9162 9182
9218 9248 9277 9307 9337 9367 9398 9428 9458 9488 9518 9560 9588 9617
9645 9673 9701 9729 9757 9785 9813 9841 9869 9897 9925 9953 9981 10026
10054 10082 10110 10140 10170 10199 10229 11345 11346 11347 11380#
PDISF 728#
PDLOVU 563#
PERIOD 758#
PERROR 11358 11362 11366 11372#
PFLOC 9226 9230 9256 9260 9285 9289 9315 9319 9345 9349 9375 9379 9406 9410
9436 9440 9466 9470 9496 9500 9526 9530 9568 9572 9596 9600 9625 9629
9653 9657 9681 9685 9709 9713 9737 9741 9765 9769 9793 9797 9821 9825
9849 9853 9877 9881 9905 9909 9933 9937 9961 9965 9989 9993 10034 10038
10062 10066 10090 10094 10118 10122 10148 10152 10178 10182 10207 10211 10237 10241
11354#
PFSTRT 585#
PGMEND 69# 14295
PGMNAM 610 896#
PHALT 53 11286#
PICHN1 563#
PICHN2 563#
PICHN3 563#
PICHN4 563#
PICHN5 563# SEQ 0319
PICHN6 563#
PICHN7 563#
PICHNA 563#
PICLR 563#
PIOFF 563#
PION 563#
PISOR 11345 11351 11381#
PLIST 797# 797
PLISTE 797 799#
PLISTS 798#
PLUS 763#
PNTENB 727#
PNTEXT 606#
PNTFLG 726#
PNTINH 729#
PNTLPT 300#
PNTNAM 605#
PNTSPC 730#
PRES 8619 8639 8669 8689 8723 8743 8763 8783 8803 8823 8843 8863 8883 8903
8923 8943 8963 8983 9003 9023 9043 9063 9083 9103 9123 9143 9163 9183
9219 9249 9278 9308 9338 9368 9399 9429 9459 9489 9519 9561 9589 9618
9646 9674 9702 9730 9758 9786 9814 9842 9870 9898 9926 9954 9982 10027
10055 10083 10111 10141 10171 10200 10230 11357 11361 11365 11369 11373 11382#
PRET 11383#
PSUBR 8620 8640 8670 8690 8724 8744 8764 8784 8804 8824 8844 8864 8884 8904
8924 8944 8964 8984 9004 9024 9044 9064 9084 9104 9124 9144 9164 9184
9220 9250 9279 9309 9339 9369 9400 9430 9460 9490 9520 9562 9590 9619
9647 9675 9703 9731 9759 9787 9815 9843 9871 9899 9927 9955 9983 10028
10056 10084 10112 10142 10172 10201 10231 11345#
PTEST 11370 11376#
PVPAGI 824#
PWFCLR 563#
QUEST 769#
RADIX 772#
RADLSC 774#
RADLSP 773#
RANDBS 607#
REENTR 587#
RELIAB 307#
REP 1142# 1173 1173# 1175 1176 1223 1230 1230# 1232 1233 1280 1287 1287# 1289
1290 1337 1344 1344# 1346 1347 1394 1395# 1401 1401# 1403 1404 1451 1458
1458# 1460 1461 1508 1515 1515# 1517 1518 1565 1572 1572# 1574 1575 1622
1623# 2109# 2132 2132# 2143 2144 2182 2182# 2193 2194 2232 2232# 2243 2244
2282 2282# 2293 2294 2332 2332# 2343 2344 2382 2382# 2393 2394 5660# 5687
5687# 5688 5737 5737# 5738 5787 5787# 5788 5837 5837# 5838 5887 5887# 5888
5937 5937# 5938 5987 5987# 5988 6037 6037# 6038
REPP 1143# 1177 1234 1291 1348 1394# 1405 1462 1519 1576 1622#
REPT 563#
REPT1 563#
REPTU 685#
REQSET 563#
RESRT1 662#
RESRT2 663# SEQ 0320
RESULT 5661# 5702 5705 5710 5752 5755 5760 5802 5805 5810 5852 5855 5860 5889#
5902 5905 5910 5939# 5952 5955 5960 5989# 6002 6005 6010 6039# 6052 6055
6060
RETURN 594#
RLEFT 2143# 2148 2156 2193# 2198 2206 2243# 2248 2256 2293# 2298 2306 2343# 2348
2356 2393# 2398 2406
RRIGHT 2144# 2151 2156 2194# 2201 2206 2244# 2251 2256 2294# 2301 2306 2344# 2351
2356 2394# 2401 2406
RSTART 296#
RTP 767#
RUNFLG 634#
SADR1 48# 583
SADR10 57# 599
SADR11 58# 600
SADR2 49# 585
SADR3 50# 587
SADR4 51#
SADR5 52# 648
SADR6 53# 649
SADR7 54# 596
SADR8 55# 597
SADR9 56# 598
SBINIT 369 593#
SCONC1 4579 5472#
SCONC2 4758 5509#
SCONC3 4937 5546#
SCONC4 5116 5583#
SCONC5 5295 5607#
SCOND 5658 6088#
SCOPE 686#
SCR0 39# 40 41 42 4443 4443# 4469 4470 4472 4473 4484 4490 4493 4498
4499 4500 4508 4509 4511
SCR1 40# 956 959 964 965 967 981 984 989 990 992 1006 1009 1014
1015 1017 1031 1034 1039 1040 1042 1056 1059 1064 1065 1067 1081 1084
1089 1090 1092 1106 1109 1114 1115 1117 1185 1188 1193 1194 1196 1207
1210 1215 1216 1218 1242 1245 1250 1251 1253 1264 1267 1272 1273 1275
1299 1302 1307 1308 1310 1321 1324 1329 1330 1332 1356 1359 1364 1365
1367 1378 1381 1386 1387 1389 1413 1416 1421 1422 1424 1435 1438 1443
1444 1446 1470 1473 1478 1479 1481 1492 1495 1500 1501 1503 1527 1530
1535 1536 1538 1549 1552 1557 1558 1560 1584 1587 1592 1593 1595 1606
1609 1614 1615 1617 1657 1660 1664 1665 1667 1699 1702 1707 1708 1710
1724 1727 1732 1733 1735 1791 1794 1799 1800 1802 1808 1812 1813 1838
1841 1846 1847 1849 1855 1859 1860 1885 1888 1893 1894 1896 1902 1906
1907 1932 1935 1940 1941 1943 1949 1953 1954 1979 1982 1987 1988 1990
1996 2000 2001 2026 2029 2034 2035 2037 2043 2047 2048 2147 2150 2155
2156 2158 2164 2168 2169 2197 2200 2205 2206 2208 2214 2218 2219 2247
2250 2255 2256 2258 2264 2268 2269 2297 2300 2305 2306 2308 2314 2318
2319 2347 2350 2355 2356 2358 2364 2368 2369 2397 2400 2405 2406 2408
2414 2418 2419 2464 2467 2472 2473 2475 2481 2485 2486 2511 2514 2519
2520 2522 2528 2532 2533 2558 2561 2566 2567 2569 2575 2579 2580 2605
2608 2613 2614 2616 2622 2626 2627 2652 2655 2660 2661 2663 2669 2673
2674 2699 2702 2707 2708 2710 2716 2720 2721 2766 2769 2774 2775 2777
2783 2787 2788 2813 2816 2821 2822 2824 2830 2834 2835 2860 2863 2868 SEQ 0321
2869 2871 2877 2881 2882 2907 2910 2915 2916 2918 2924 2928 2929 2954
2957 2962 2963 2965 2971 2975 2976 3001 3004 3009 3010 3012 3018 3022
3023 3068 3071 3076 3077 3079 3085 3089 3090 3115 3118 3123 3124 3126
3132 3136 3137 3162 3165 3170 3171 3173 3179 3183 3184 3209 3212 3217
3218 3220 3226 3230 3231 3256 3259 3264 3265 3267 3273 3277 3278 3303
3306 3311 3312 3314 3320 3324 3325 3370 3373 3378 3379 3381 3387 3391
3392 3417 3420 3425 3426 3428 3434 3438 3439 3464 3467 3472 3473 3475
3481 3485 3486 3511 3514 3519 3520 3522 3528 3532 3533 3558 3561 3566
3567 3569 3575 3579 3580 3605 3608 3613 3614 3616 3622 3626 3627 3826
3829 3834 3835 3837 3843 3847 3848 3873 3876 3881 3882 3884 3890 3894
3895 3920 3923 3928 3929 3931 3937 3941 3942 3967 3970 3975 3976 3978
3984 3988 3989 4014 4017 4022 4023 4025 4031 4035 4036 4061 4064 4069
4070 4072 4078 4082 4083 4108 4111 4116 4117 4119 4125 4129 4130 4155
4158 4163 4164 4166 4172 4176 4177 4264 4267 4272 4273 4275 4289 4292
4297 4298 4300 4314 4317 4322 4323 4325 4339 4342 4347 4348 4350 4364
4367 4372 4373 4375 4389 4392 4397 4398 4400 4471 4487 4491 4493 4514
4519 4523 4524 4602 4605 4610 4611 4613 4629 4632 4637 4638 4640 4656
4659 4664 4665 4667 4683 4686 4691 4692 4694 4710 4713 4718 4719 4721
4737 4740 4745 4746 4748 4781 4784 4789 4790 4792 4808 4811 4816 4817
4819 4835 4838 4843 4844 4846 4862 4865 4870 4871 4873 4889 4892 4897
4898 4900 4916 4919 4924 4925 4927 4960 4963 4968 4969 4971 4987 4990
4995 4996 4998 5014 5017 5022 5023 5025 5041 5044 5049 5050 5052 5068
5071 5076 5077 5079 5095 5098 5103 5104 5106 5139 5142 5147 5148 5150
5166 5169 5174 5175 5177 5193 5196 5201 5202 5204 5220 5223 5228 5229
5231 5247 5250 5255 5256 5258 5274 5277 5282 5283 5285 5318 5321 5326
5327 5329 5345 5348 5353 5354 5356 5372 5375 5380 5381 5383 5399 5402
5407 5408 5410 5426 5429 5434 5435 5437 5453 5456 5461 5462 5464 5701
5704 5709 5710 5712 5719 5723 5724 5751 5754 5759 5760 5762 5769 5773
5774 5801 5804 5809 5810 5812 5819 5823 5824 5851 5854 5859 5860 5862
5869 5873 5874 5901 5904 5909 5910 5912 5919 5923 5924 5951 5954 5959
5960 5962 5969 5973 5974 6001 6004 6009 6010 6012 6019 6023 6024 6051
6054 6059 6060 6062 6069 6073 6074 6152 6171 6190 6209 6228 6247 6266
6285 6304 6323 6342 6361 6380 6411 6430 6449 6468 6487 6506 6525 6544
6563 6582 6601 6620 6658 6685 6713 6741 6768 6795 6823 6850 6877 6905
6932 6959 6987 7015 7042 7069 7097 7124 7151 7179 7225 7252 7280 7308
7335 7362 7391 7418 7445 7474 7501 7528 7556 7584 7611 7638 7667 7694
7721 7750 7782 7792 7795 7798 7801 7803 7841 7868 7895 7922 7959 7986
8013 8040 8067 8094 8121 8148 8175 8202 8229 8256 8283 8310 8337 8364
8391 8419 8447 8474 8501 8528 8555 8582 8622 8642 8672 8692 8726 8746
8766 8786 8806 8826 8846 8866 8886 8906 8926 8946 8966 8986 9006 9026
9046 9066 9086 9106 9126 9146 9166 9186 9222 9252 9281 9311 9341 9371
9402 9432 9462 9492 9522 9564 9592 9621 9649 9677 9705 9733 9761 9789
9817 9845 9873 9901 9929 9957 9985 10030 10058 10086 10114 10144 10174 10203
10233 10302 10332 10362 10392 10422 10452 10482 10512 10542 10572 10602 10632 10662
10692 10722 10752 10782 10812 10843 10873 10903 10933 10963 10993 11023 11053 11085
11116 11146 11177 11208 11239 11270 11308 11312 11316 11320 11324 11325 11356 11360
11364 11368 11372 11373 11420 11421 11422 11423 11424 11425 11427 11431 11435 11439
11443 11444 11470 11471 11474 11475 11481 11482 11485 11486 11507 11508 11511 11512
11518 11519 11522 11523 11544 11545 11548 11549 11555 11556 11559 11560 11587 11588
11591 11592 11595 11596 11599 11600 11606 11607 11610 11611
SCR2 41# 964 967 989 992 1014 1017 1039 1042 1064 1067 1089 1092 1114
1117 1193 1196 1215 1218 1250 1253 1272 1275 1307 1310 1329 1332 1364
1367 1386 1389 1421 1424 1443 1446 1478 1481 1500 1503 1535 1538 1557 SEQ 0322
1560 1592 1595 1614 1617 1664 1667 1707 1710 1732 1735 1799 1802 1809
1811 1812 1815 1846 1849 1856 1858 1859 1862 1893 1896 1903 1905 1906
1909 1940 1943 1950 1952 1953 1956 1987 1990 1997 1999 2000 2003 2034
2037 2044 2046 2047 2050 2155 2158 2165 2167 2168 2172 2205 2208 2215
2217 2218 2222 2255 2258 2265 2267 2268 2272 2305 2308 2315 2317 2318
2322 2355 2358 2365 2367 2368 2372 2405 2408 2415 2417 2418 2422 2472
2475 2482 2484 2485 2489 2519 2522 2529 2531 2532 2536 2566 2569 2576
2578 2579 2583 2613 2616 2623 2625 2626 2630 2660 2663 2670 2672 2673
2677 2707 2710 2717 2719 2720 2724 2774 2777 2784 2786 2787 2791 2821
2824 2831 2833 2834 2838 2868 2871 2878 2880 2881 2885 2915 2918 2925
2927 2928 2932 2962 2965 2972 2974 2975 2979 3009 3012 3019 3021 3022
3026 3076 3079 3086 3088 3089 3093 3123 3126 3133 3135 3136 3140 3170
3173 3180 3182 3183 3187 3217 3220 3227 3229 3230 3234 3264 3267 3274
3276 3277 3281 3311 3314 3321 3323 3324 3328 3378 3381 3388 3390 3391
3395 3425 3428 3435 3437 3438 3442 3472 3475 3482 3484 3485 3489 3519
3522 3529 3531 3532 3536 3566 3569 3576 3578 3579 3583 3613 3616 3623
3625 3626 3630 3834 3837 3844 3846 3847 3850 3881 3884 3891 3893 3894
3897 3928 3931 3938 3940 3941 3944 3975 3978 3985 3987 3988 3991 4022
4025 4032 4034 4035 4038 4069 4072 4079 4081 4082 4085 4116 4119 4126
4128 4129 4132 4163 4166 4173 4175 4176 4179 4272 4275 4297 4300 4322
4325 4347 4350 4372 4375 4397 4400 4475 4486 4490 4491 4497 4505 4520
4522 4523 4527 4610 4613 4637 4640 4664 4667 4691 4694 4718 4721 4745
4748 4789 4792 4816 4819 4843 4846 4870 4873 4897 4900 4924 4927 4968
4971 4995 4998 5022 5025 5049 5052 5076 5079 5103 5106 5147 5150 5174
5177 5201 5204 5228 5231 5255 5258 5282 5285 5326 5329 5353 5356 5380
5383 5407 5410 5434 5437 5461 5464 5709 5712 5720 5722 5723 5726 5759
5762 5770 5772 5773 5776 5809 5812 5820 5822 5823 5826 5859 5862 5870
5872 5873 5876 5909 5912 5920 5922 5923 5926 5959 5962 5970 5972 5973
5976 6009 6012 6020 6022 6023 6026 6059 6062 6070 6072 6073 6076 6152
6171 6190 6209 6228 6247 6266 6285 6304 6323 6342 6361 6380 6411 6430
6449 6468 6487 6506 6525 6544 6563 6582 6601 6620 6658 6662 6663 6666
6685 6689 6690 6693 6713 6717 6718 6721 6741 6745 6746 6749 6768 6772
6773 6776 6795 6799 6800 6803 6823 6827 6828 6831 6850 6854 6855 6858
6877 6881 6882 6885 6905 6909 6910 6913 6932 6936 6937 6940 6959 6963
6964 6967 6987 6991 6992 6995 7015 7019 7020 7023 7042 7046 7047 7050
7069 7073 7074 7077 7097 7101 7102 7105 7124 7128 7129 7132 7151 7155
7156 7159 7179 7183 7184 7187 7225 7229 7230 7233 7252 7256 7257 7260
7280 7284 7285 7288 7308 7312 7313 7316 7335 7339 7340 7343 7362 7366
7367 7370 7391 7395 7396 7399 7418 7422 7423 7426 7445 7449 7450 7453
7474 7478 7479 7482 7501 7505 7506 7509 7528 7532 7533 7536 7556 7560
7561 7564 7584 7588 7589 7592 7611 7615 7616 7619 7638 7642 7643 7646
7667 7671 7672 7675 7694 7698 7699 7702 7721 7725 7726 7729 7750 7754
7755 7758 7841 7845 7846 7849 7868 7872 7873 7876 7895 7899 7900 7903
7922 7926 7927 7930 7959 7963 7964 7967 7986 7990 7991 7994 8013 8017
8018 8021 8040 8044 8045 8048 8067 8071 8072 8075 8094 8098 8099 8102
8121 8125 8126 8129 8148 8152 8153 8156 8175 8179 8180 8183 8202 8206
8207 8210 8229 8233 8234 8237 8256 8260 8261 8264 8283 8287 8288 8291
8310 8314 8315 8318 8337 8341 8342 8345 8364 8368 8369 8372 8391 8395
8396 8399 8419 8423 8424 8427 8447 8451 8452 8455 8474 8478 8479 8482
8501 8505 8506 8509 8528 8532 8533 8536 8555 8559 8560 8563 8582 8586
8587 8590 8622 8642 8672 8692 8726 8746 8766 8786 8806 8826 8846 8866
8886 8906 8926 8946 8966 8986 9006 9026 9046 9066 9086 9106 9126 9146
9166 9186 9222 9226 9227 9230 9252 9256 9257 9260 9281 9285 9286 9289 SEQ 0323
9311 9315 9316 9319 9341 9345 9346 9349 9371 9375 9376 9379 9402 9406
9407 9410 9432 9436 9437 9440 9462 9466 9467 9470 9492 9496 9497 9500
9522 9526 9527 9530 9564 9568 9569 9572 9592 9596 9597 9600 9621 9625
9626 9629 9649 9653 9654 9657 9677 9681 9682 9685 9705 9709 9710 9713
9733 9737 9738 9741 9761 9765 9766 9769 9789 9793 9794 9797 9817 9821
9822 9825 9845 9849 9850 9853 9873 9877 9878 9881 9901 9905 9906 9909
9929 9933 9934 9937 9957 9961 9962 9965 9985 9989 9990 9993 10030 10034
10035 10038 10058 10062 10063 10066 10086 10090 10091 10094 10114 10118 10119 10122
10144 10148 10149 10152 10174 10178 10179 10182 10203 10207 10208 10211 10233 10237
10238 10241 10302 10306 10307 10309 10310 10313 10332 10336 10337 10339 10340 10343
10362 10366 10367 10369 10370 10373 10392 10396 10397 10399 10400 10403 10422 10426
10427 10429 10430 10433 10452 10456 10457 10459 10460 10463 10482 10486 10487 10489
10490 10493 10512 10516 10517 10519 10520 10523 10542 10546 10547 10549 10550 10553
10572 10576 10577 10579 10580 10583 10602 10606 10607 10609 10610 10613 10632 10636
10637 10639 10640 10643 10662 10666 10667 10669 10670 10673 10692 10696 10697 10699
10700 10703 10722 10726 10727 10729 10730 10733 10752 10756 10757 10759 10760 10763
10782 10786 10787 10789 10790 10793 10812 10816 10817 10819 10820 10823 10843 10847
10848 10850 10851 10854 10873 10877 10878 10880 10881 10884 10903 10907 10908 10910
10911 10914 10933 10937 10938 10940 10941 10944 10963 10967 10968 10970 10971 10974
10993 10997 10998 11000 11001 11004 11023 11027 11028 11030 11031 11034 11053 11057
11058 11060 11061 11064 11085 11089 11090 11092 11093 11096 11116 11120 11121 11123
11124 11127 11146 11150 11151 11153 11154 11157 11177 11181 11182 11184 11185 11188
11208 11212 11213 11215 11216 11219 11239 11243 11244 11246 11247 11250 11270 11274
11275 11277 11278 11281 11324 11372 11443
SCR3 42# 951 976 1001 1026 1051 1076 1101 1180 1203 1237 1260 1294 1317
1351 1374 1408 1431 1465 1488 1522 1545 1579 1602 1650 1694 1719 1781
1782 1828 1829 1875 1876 1922 1923 1969 1970 2016 2017 2134 2184 2234
2284 2334 2384 2453 2500 2547 2594 2641 2688 2755 2802 2849 2896 2943
2990 3057 3104 3151 3198 3245 3292 3359 3406 3453 3500 3547 3594 3815
3862 3909 3956 4003 4050 4097 4144 4259 4284 4309 4334 4359 4384 4461
4462 4597 4624 4651 4678 4705 4732 4776 4803 4830 4857 4884 4911 4955
4982 5009 5036 5063 5090 5134 5161 5188 5215 5242 5269 5313 5340 5367
5394 5421 5448 5690 5716 5740 5766 5790 5816 5840 5866 5890 5916 5940
5966 5990 6016 6040 6066 7807 7808 11297 11345 11405 11470 11481 11507 11518
11544 11555 11587 11606
SENDC 5470 5631#
SENDD 6082 6120#
SFSTRT 583#
SLASH 770#
SM10 874# 11418
SPACE 759#
SPRINT 4275 4300 4325 4350 4375 4400 4493 4527 4613 4640 4667 4694 4721 4748
4792 4819 4846 4873 4900 4927 4971 4998 5025 5052 5079 5106 5150 5177
5204 5231 5258 5285 5329 5356 5383 5410 5437 5464 5712 5726 5762 5776
5812 5826 5862 5876 5912 5926 5962 5976 6012 6026 6062 6076 11505#
SRTDDT 51 589#
START 50 577 929#
START1 596#
START2 597#
START3 598#
START4 599#
START5 600#
STARTA 48 49 52 592 930# SEQ 0324
STEST1 4259# 4276
STEST2 4284# 4301
STEST3 4309# 4326
STEST4 4334# 4351
STEST5 4359# 4376
STEST6 4384# 4401
SUBLNK 331# 593
SUBT 4450 4455 4533#
SUBTR 4442# 4455 4457 4458 4460 4462
SWPTAB 880#
SWTEXR 608#
SYSEXR 581#
T 933# 967 992 1017 1042 1067 1092 1117 1196 1218 1253 1275 1310 1332
1367 1389 1424 1446 1481 1503 1538 1560 1595 1617 1667 1710 1735 1802
1815 1849 1862 1896 1909 1943 1956 1990 2003 2037 2050 2158 2172 2208
2222 2258 2272 2308 2322 2358 2372 2408 2422 2475 2489 2522 2536 2569
2583 2616 2630 2663 2677 2710 2724 2777 2791 2824 2838 2871 2885 2918
2932 2965 2979 3012 3026 3079 3093 3126 3140 3173 3187 3220 3234 3267
3281 3314 3328 3381 3395 3428 3442 3475 3489 3522 3536 3569 3583 3616
3630 3837 3850 3884 3897 3931 3944 3978 3991 4025 4038 4072 4085 4119
4132 4166 4179 4242# 4275 4300 4325 4350 4375 4400 4493 4527 4613 4640
4667 4694 4721 4748 4792 4819 4846 4873 4900 4927 4971 4998 5025 5052
5079 5106 5150 5177 5204 5231 5258 5285 5329 5356 5383 5410 5437 5464
5712 5726 5762 5776 5812 5826 5862 5876 5912 5926 5962 5976 6012 6026
6062 6076 6123# 6152 6171 6190 6209 6228 6247 6266 6285 6304 6323 6342
6361 6380 6411 6430 6449 6468 6487 6506 6525 6544 6563 6582 6601 6620
6658 6666 6685 6693 6713 6721 6741 6749 6768 6776 6795 6803 6823 6831
6850 6858 6877 6885 6905 6913 6932 6940 6959 6967 6987 6995 7015 7023
7042 7050 7069 7077 7097 7105 7124 7132 7151 7159 7179 7187 7225 7233
7252 7260 7280 7288 7308 7316 7335 7343 7362 7370 7391 7399 7418 7426
7445 7453 7474 7482 7501 7509 7528 7536 7556 7564 7584 7592 7611 7619
7638 7646 7667 7675 7694 7702 7721 7729 7750 7758 7803 7810 7841 7849
7868 7876 7895 7903 7922 7930 7959 7967 7986 7994 8013 8021 8040 8048
8067 8075 8094 8102 8121 8129 8148 8156 8175 8183 8202 8210 8229 8237
8256 8264 8283 8291 8310 8318 8337 8345 8364 8372 8391 8399 8419 8427
8447 8455 8474 8482 8501 8509 8528 8536 8555 8563 8582 8590 8596# 8622
8642 8672 8692 8726 8746 8766 8786 8806 8826 8846 8866 8886 8906 8926
8946 8966 8986 9006 9026 9046 9066 9086 9106 9126 9146 9166 9186 9222
9230 9252 9260 9281 9289 9311 9319 9341 9349 9371 9379 9402 9410 9432
9440 9462 9470 9492 9500 9522 9530 9564 9572 9592 9600 9621 9629 9649
9657 9677 9685 9705 9713 9733 9741 9761 9769 9789 9797 9817 9825 9845
9853 9873 9881 9901 9909 9929 9937 9957 9965 9985 9993 10030 10038 10058
10066 10086 10094 10114 10122 10144 10152 10174 10182 10203 10211 10233 10241 10302
10313 10332 10343 10362 10373 10392 10403 10422 10433 10452 10463 10482 10493 10512
10523 10542 10553 10572 10583 10602 10613 10632 10643 10662 10673 10692 10703 10722
10733 10752 10763 10782 10793 10812 10823 10843 10854 10873 10884 10903 10914 10933
10944 10963 10974 10993 11004 11023 11034 11053 11064 11085 11096 11116 11127 11146
11157 11177 11188 11208 11219 11239 11250 11270 11281
TAB 760#
TEMP 1652 1658 1661 1664 1677#
TESTPC 635#
THREE 9201# 9217 9247 9276 9306 9427
TICKS 638# SEQ 0325
TOTALS 297#
TTNBRF 818#
TTYFIL 734#
TTYSPD 735#
TWO 9200# 9276 9306 9366 9517
TXTINH 308#
USER 625# 1810 1857 1904 1951 1998 2045 2166 2216 2266 2316 2366 2416 2483
2530 2577 2624 2671 2718 2785 2832 2879 2926 2973 3020 3087 3134 3181
3228 3275 3322 3389 3436 3483 3530 3577 3624 3845 3892 3939 3986 4033
4080 4127 4174 4521 5721 5771 5821 5871 5921 5971 6021 6071 10308 10338
10368 10398 10428 10458 10488 10518 10548 10578 10608 10638 10668 10698 10728 10758
10788 10818 10849 10879 10909 10939 10969 10999 11029 11059 11091 11122 11152 11183
11214 11245 11276
USERF 563#
USRASB 71# 615
USRCRF 744#
USRLFF 743#
UUODIS 697#
UUOEXT 653#
UUORTN 654#
UUOSKP 651#
$$MUUO 849#
$$OUTE 855#
$$TAX1 867#
$$TAX2 868#
$$TOGG 861#
$$UUO 838#
$ACC0 676#
$BEND1 646#
$BEND2 647#
$CHRIN 737#
$CRLF 739#
$DEVCH 563#
$DSKUP 616#
$DVCH1 563#
$DVOFF 733#
$EMODE 614#
$FFF 741#
$IBUF 789#
$INEXT 791#
$INNM 790#
$ITRHL 657#
$ITRX1 658#
$LPAPE 11639
$MMAP 617#
$MODVL 612#
$MODVU 613#
$OBUF 780#
$ONETM 640#
$OUTEX 782#
$OUTNM 781#
$PAPER 563
$PARER 664# SEQ 0326
$PNAME 610#
$PSHER 668#
$PVER 611#
$RSRTX 660#
$RSRTY 661#
$SPAG1 680#
$START 577#
$SVAPR 678#
$SVPAG 679#
$SVPI 677#
$SVUPC 683#
$SVUUO 682#
$TABF 740#
$TTCHR 736#
$TWCNT 732#
$TYPNB 738#
$UMODE 615#
$UORTX 655#
$USRHL 659#
$UUOER 656# 697
$VTF 742#
%ACTFL 689#
%ACTUL 690#
%COREC 688#
%CORFL 687#
%DISCR 691#
%ERHI1 830#
%ERHI2 831#
%ERHI3 832#
..0001 958 964#
..0002 961 966#
..0003 983 989#
..0004 986 991#
..0005 1008 1014#
..0006 1011 1016#
..0007 1033 1039#
..0010 1036 1041#
..0011 1058 1064#
..0012 1061 1066#
..0013 1083 1089#
..0014 1086 1091#
..0015 1108 1114#
..0016 1111 1116#
..0017 1187 1193#
..0020 1190 1195#
..0021 1209 1215#
..0022 1212 1217#
..0023 1244 1250#
..0024 1247 1252#
..0025 1266 1272#
..0026 1269 1274#
..0027 1301 1307#
..0030 1304 1309# SEQ 0327
..0031 1323 1329#
..0032 1326 1331#
..0033 1358 1364#
..0034 1361 1366#
..0035 1380 1386#
..0036 1383 1388#
..0037 1415 1421#
..0040 1418 1423#
..0041 1437 1443#
..0042 1440 1445#
..0043 1472 1478#
..0044 1475 1480#
..0045 1494 1500#
..0046 1497 1502#
..0047 1529 1535#
..0050 1532 1537#
..0051 1551 1557#
..0052 1554 1559#
..0053 1586 1592#
..0054 1589 1594#
..0055 1608 1614#
..0056 1611 1616#
..0057 1701 1707#
..0060 1704 1709#
..0061 1726 1732#
..0062 1729 1734#
..0063 1793 1799#
..0064 1796 1801#
..0065 1840 1846#
..0066 1843 1848#
..0067 1887 1893#
..0070 1890 1895#
..0071 1934 1940#
..0072 1937 1942#
..0073 1981 1987#
..0074 1984 1989#
..0075 2028 2034#
..0076 2031 2036#
..0077 2149 2155#
..0100 2152 2157#
..0101 2199 2205#
..0102 2202 2207#
..0103 2249 2255#
..0104 2252 2257#
..0105 2299 2305#
..0106 2302 2307#
..0107 2349 2355#
..0110 2352 2357#
..0111 2399 2405#
..0112 2402 2407#
..0113 2466 2472#
..0114 2469 2474#
..0115 2513 2519# SEQ 0328
..0116 2516 2521#
..0117 2560 2566#
..0120 2563 2568#
..0121 2607 2613#
..0122 2610 2615#
..0123 2654 2660#
..0124 2657 2662#
..0125 2701 2707#
..0126 2704 2709#
..0127 2768 2774#
..0130 2771 2776#
..0131 2815 2821#
..0132 2818 2823#
..0133 2862 2868#
..0134 2865 2870#
..0135 2909 2915#
..0136 2912 2917#
..0137 2956 2962#
..0140 2959 2964#
..0141 3003 3009#
..0142 3006 3011#
..0143 3070 3076#
..0144 3073 3078#
..0145 3117 3123#
..0146 3120 3125#
..0147 3164 3170#
..0150 3167 3172#
..0151 3211 3217#
..0152 3214 3219#
..0153 3258 3264#
..0154 3261 3266#
..0155 3305 3311#
..0156 3308 3313#
..0157 3372 3378#
..0160 3375 3380#
..0161 3419 3425#
..0162 3422 3427#
..0163 3466 3472#
..0164 3469 3474#
..0165 3513 3519#
..0166 3516 3521#
..0167 3560 3566#
..0170 3563 3568#
..0171 3607 3613#
..0172 3610 3615#
..0173 3828 3834#
..0174 3831 3836#
..0175 3875 3881#
..0176 3878 3883#
..0177 3922 3928#
..0200 3925 3930#
..0201 3969 3975#
..0202 3972 3977# SEQ 0329
..0203 4016 4022#
..0204 4019 4024#
..0205 4063 4069#
..0206 4066 4071#
..0207 4110 4116#
..0210 4113 4118#
..0211 4157 4163#
..0212 4160 4165#
..0213 4266 4272#
..0214 4269 4274#
..0215 4291 4297#
..0216 4294 4299#
..0217 4316 4322#
..0220 4319 4324#
..0221 4341 4347#
..0222 4344 4349#
..0223 4366 4372#
..0224 4369 4374#
..0225 4391 4397#
..0226 4394 4399#
..0227 4604 4610#
..0230 4607 4612#
..0231 4631 4637#
..0232 4634 4639#
..0233 4658 4664#
..0234 4661 4666#
..0235 4685 4691#
..0236 4688 4693#
..0237 4712 4718#
..0240 4715 4720#
..0241 4739 4745#
..0242 4742 4747#
..0243 4783 4789#
..0244 4786 4791#
..0245 4810 4816#
..0246 4813 4818#
..0247 4837 4843#
..0250 4840 4845#
..0251 4864 4870#
..0252 4867 4872#
..0253 4891 4897#
..0254 4894 4899#
..0255 4918 4924#
..0256 4921 4926#
..0257 4962 4968#
..0260 4965 4970#
..0261 4989 4995#
..0262 4992 4997#
..0263 5016 5022#
..0264 5019 5024#
..0265 5043 5049#
..0266 5046 5051#
..0267 5070 5076# SEQ 0330
..0270 5073 5078#
..0271 5097 5103#
..0272 5100 5105#
..0273 5141 5147#
..0274 5144 5149#
..0275 5168 5174#
..0276 5171 5176#
..0277 5195 5201#
..0300 5198 5203#
..0301 5222 5228#
..0302 5225 5230#
..0303 5249 5255#
..0304 5252 5257#
..0305 5276 5282#
..0306 5279 5284#
..0307 5320 5326#
..0310 5323 5328#
..0311 5347 5353#
..0312 5350 5355#
..0313 5374 5380#
..0314 5377 5382#
..0315 5401 5407#
..0316 5404 5409#
..0317 5428 5434#
..0320 5431 5436#
..0321 5455 5461#
..0322 5458 5463#
..0323 5703 5709#
..0324 5706 5711#
..0325 5753 5759#
..0326 5756 5761#
..0327 5803 5809#
..0330 5806 5811#
..0331 5853 5859#
..0332 5856 5861#
..0333 5903 5909#
..0334 5906 5911#
..0335 5953 5959#
..0336 5956 5961#
..0337 6003 6009#
..0340 6006 6011#
..0341 6053 6059#
..0342 6056 6061#
..0343 6148# 6153
..0344 6167# 6172
..0345 6186# 6191
..0346 6205# 6210
..0347 6224# 6229
..0350 6243# 6248
..0351 6262# 6267
..0352 6281# 6286
..0353 6300# 6305
..0354 6319# 6324 SEQ 0331
..0355 6338# 6343
..0356 6357# 6362
..0357 6376# 6381
..0360 6407# 6412
..0361 6426# 6431
..0362 6445# 6450
..0363 6464# 6469
..0364 6483# 6488
..0365 6502# 6507
..0366 6521# 6526
..0367 6540# 6545
..0370 6559# 6564
..0371 6578# 6583
..0372 6597# 6602
..0373 6616# 6621
..0374 6654# 6659 6667
..0375 6662#
..0376 6681# 6686 6694
..0377 6689#
..0400 6708# 6714 6722
..0401 6717#
..0402 6736# 6742 6750
..0403 6745#
..0404 6764# 6769 6777
..0405 6772#
..0406 6791# 6796 6804
..0407 6799#
..0410 6818# 6824 6832
..0411 6827#
..0412 6846# 6851 6859
..0413 6854#
..0414 6873# 6878 6886
..0415 6881#
..0416 6900# 6906 6914
..0417 6909#
..0420 6928# 6933 6941
..0421 6936#
..0422 6955# 6960 6968
..0423 6963#
..0424 6982# 6988 6996
..0425 6991#
..0426 7010# 7016 7024
..0427 7019#
..0430 7038# 7043 7051
..0431 7046#
..0432 7065# 7070 7078
..0433 7073#
..0434 7092# 7098 7106
..0435 7101#
..0436 7120# 7125 7133
..0437 7128#
..0440 7147# 7152 7160
..0441 7155# SEQ 0332
..0442 7174# 7180 7188
..0443 7183#
..0444 7221# 7226 7234
..0445 7229#
..0446 7248# 7253 7261
..0447 7256#
..0450 7275# 7281 7289
..0451 7284#
..0452 7303# 7309 7317
..0453 7312#
..0454 7331# 7336 7344
..0455 7339#
..0456 7358# 7363 7371
..0457 7366#
..0460 7386# 7392 7400
..0461 7395#
..0462 7414# 7419 7427
..0463 7422#
..0464 7441# 7446 7454
..0465 7449#
..0466 7469# 7475 7483
..0467 7478#
..0470 7497# 7502 7510
..0471 7505#
..0472 7524# 7529 7537
..0473 7532#
..0474 7551# 7557 7565
..0475 7560#
..0476 7579# 7585 7593
..0477 7588#
..0500 7607# 7612 7620
..0501 7615#
..0502 7634# 7639 7647
..0503 7642#
..0504 7662# 7668 7676
..0505 7671#
..0506 7690# 7695 7703
..0507 7698#
..0510 7717# 7722 7730
..0511 7725#
..0512 7745# 7751 7759
..0513 7754#
..0514 7837# 7842 7850
..0515 7845#
..0516 7864# 7869 7877
..0517 7872#
..0520 7891# 7896 7904
..0521 7899#
..0522 7918# 7923 7931
..0523 7926#
..0524 7955# 7960 7968
..0525 7963#
..0526 7982# 7987 7995 SEQ 0333
..0527 7990#
..0530 8009# 8014 8022
..0531 8017#
..0532 8036# 8041 8049
..0533 8044#
..0534 8063# 8068 8076
..0535 8071#
..0536 8090# 8095 8103
..0537 8098#
..0540 8117# 8122 8130
..0541 8125#
..0542 8144# 8149 8157
..0543 8152#
..0544 8171# 8176 8184
..0545 8179#
..0546 8198# 8203 8211
..0547 8206#
..0550 8225# 8230 8238
..0551 8233#
..0552 8252# 8257 8265
..0553 8260#
..0554 8279# 8284 8292
..0555 8287#
..0556 8306# 8311 8319
..0557 8314#
..0560 8333# 8338 8346
..0561 8341#
..0562 8360# 8365 8373
..0563 8368#
..0564 8387# 8392 8400
..0565 8395#
..0566 8414# 8420 8428
..0567 8423#
..0570 8442# 8448 8456
..0571 8451#
..0572 8470# 8475 8483
..0573 8478#
..0574 8497# 8502 8510
..0575 8505#
..0576 8524# 8529 8537
..0577 8532#
..0600 8551# 8556 8564
..0601 8559#
..0602 8578# 8583 8591
..0603 8586#
..0604 8618# 8623
..0605 8638# 8643
..0606 8668# 8673
..0607 8688# 8693
..0610 8722# 8727
..0611 8742# 8747
..0612 8762# 8767
..0613 8782# 8787 SEQ 0334
..0614 8802# 8807
..0615 8822# 8827
..0616 8842# 8847
..0617 8862# 8867
..0620 8882# 8887
..0621 8902# 8907
..0622 8922# 8927
..0623 8942# 8947
..0624 8962# 8967
..0625 8982# 8987
..0626 9002# 9007
..0627 9022# 9027
..0630 9042# 9047
..0631 9062# 9067
..0632 9082# 9087
..0633 9102# 9107
..0634 9122# 9127
..0635 9142# 9147
..0636 9162# 9167
..0637 9182# 9187
..0640 9217# 9223 9231
..0641 9226#
..0642 9247# 9253 9261
..0643 9256#
..0644 9276# 9282 9290
..0645 9285#
..0646 9306# 9312 9320
..0647 9315#
..0650 9336# 9342 9350
..0651 9345#
..0652 9366# 9372 9380
..0653 9375#
..0654 9397# 9403 9411
..0655 9406#
..0656 9427# 9433 9441
..0657 9436#
..0660 9457# 9463 9471
..0661 9466#
..0662 9487# 9493 9501
..0663 9496#
..0664 9517# 9523 9531
..0665 9526#
..0666 9559# 9565 9573
..0667 9568#
..0670 9588# 9593 9601
..0671 9596#
..0672 9616# 9622 9630
..0673 9625#
..0674 9645# 9650 9658
..0675 9653#
..0676 9673# 9678 9686
..0677 9681#
..0700 9701# 9706 9714 SEQ 0335
..0701 9709#
..0702 9729# 9734 9742
..0703 9737#
..0704 9757# 9762 9770
..0705 9765#
..0706 9785# 9790 9798
..0707 9793#
..0710 9813# 9818 9826
..0711 9821#
..0712 9841# 9846 9854
..0713 9849#
..0714 9869# 9874 9882
..0715 9877#
..0716 9897# 9902 9910
..0717 9905#
..0720 9925# 9930 9938
..0721 9933#
..0722 9953# 9958 9966
..0723 9961#
..0724 9981# 9986 9994
..0725 9989#
..0726 10026# 10031 10039
..0727 10034#
..0730 10054# 10059 10067
..0731 10062#
..0732 10082# 10087 10095
..0733 10090#
..0734 10110# 10115 10123
..0735 10118#
..0736 10139# 10145 10153
..0737 10148#
..0740 10169# 10175 10183
..0741 10178#
..0742 10198# 10204 10212
..0743 10207#
..0744 10228# 10234 10242
..0745 10237#
..0746 10298# 10303 10314
..0747 10306#
..0750 10328# 10333 10344
..0751 10336#
..0752 10358# 10363 10374
..0753 10366#
..0754 10388# 10393 10404
..0755 10396#
..0756 10418# 10423 10434
..0757 10426#
..0760 10448# 10453 10464
..0761 10456#
..0762 10478# 10483 10494
..0763 10486#
..0764 10508# 10513 10524
..0765 10516# SEQ 0336
..0766 10538# 10543 10554
..0767 10546#
..0770 10568# 10573 10584
..0771 10576#
..0772 10598# 10603 10614
..0773 10606#
..0774 10628# 10633 10644
..0775 10636#
..0776 10658# 10663 10674
..0777 10666#
..1000 10688# 10693 10704
..1001 10696#
..1002 10718# 10723 10734
..1003 10726#
..1004 10748# 10753 10764
..1005 10756#
..1006 10778# 10783 10794
..1007 10786#
..1010 10808# 10813 10824
..1011 10816#
..1012 10838# 10844 10855
..1013 10847#
..1014 10869# 10874 10885
..1015 10877#
..1016 10899# 10904 10915
..1017 10907#
..1020 10929# 10934 10945
..1021 10937#
..1022 10959# 10964 10975
..1023 10967#
..1024 10989# 10994 11005
..1025 10997#
..1026 11019# 11024 11035
..1027 11027#
..1030 11049# 11054 11065
..1031 11057#
..1032 11080# 11086 11097
..1033 11089#
..1034 11111# 11117 11128
..1035 11120#
..1036 11142# 11147 11158
..1037 11150#
..1040 11173# 11178 11189
..1041 11181#
..1042 11204# 11209 11220
..1043 11212#
..1044 11235# 11240 11251
..1045 11243#
..1046 11266# 11271 11282
..1047 11274#
.JB41 563#
.JBAPR 563#
.JBCNI 563# SEQ 0337
.JBDDT 563#
.JBFF 563#
.JBOPC 563#
.JBREL 563#
.JBREN 563#
.JBSA 563#
.JBSYM 563#
.JBTPC 563#
.JBUSY 563#
.JBUUO 563#
.JBVER 563#
CFLUSH 481#
CHECKA 209# 954 979 1004 1029 1054 1079 1104 1183 1205 1240 1262 1297 1319 SEQ 0338
1354 1376 1411 1433 1468 1490 1525 1547 1582 1604 1697 1722 2145 2195
2245 2295 2345 2395 2462 2509 2556 2603 2650 2697 2764 2811 2858 2905
2952 2999 3066 3113 3160 3207 3254 3301 3368 3415 3462 3509 3556 3603
CHECKB 250# 1789 1836 1883 1930 1977 2024 3824 3871 3918 3965 4012 4059 4106
4153
CHECKS 229# 4262 4287 4312 4337 4362 4387 5137 5164 5191 5218 5245 5272 5316
5343 5370 5397 5424 5451 5699 5749 5799 5849 5899 5949 5999 6049
CHECKT 270# 4600 4627 4654 4681 4708 4735 4779 4806 4833 4860 4887 4914 4958
4985 5012 5039 5066 5093
CINVAL 480#
CLOKOP 475#
CWRTBI 482#
DROPDV 442#
ENDUUO 488# 645
EOPUUO 489# 647
ERLOOP 533# 968 993 1018 1043 1068 1093 1118 1197 1219 1254 1276 1311 1333
1368 1390 1425 1447 1482 1504 1539 1561 1596 1618 1668 1711 1736 1803
1816 1850 1863 1897 1910 1944 1957 1991 2004 2038 2051 2159 2173 2209
2223 2259 2273 2309 2323 2359 2373 2409 2423 2476 2490 2523 2537 2570
2584 2617 2631 2664 2678 2711 2725 2778 2792 2825 2839 2872 2886 2919
2933 2966 2980 3013 3027 3080 3094 3127 3141 3174 3188 3221 3235 3268
3282 3315 3329 3382 3396 3429 3443 3476 3490 3523 3537 3570 3584 3617
3631 3838 3851 3885 3898 3932 3945 3979 3992 4026 4039 4073 4086 4120
4133 4167 4180 4276 4301 4326 4351 4376 4401 4494 4528 4614 4641 4668
4695 4722 4749 4793 4820 4847 4874 4901 4928 4972 4999 5026 5053 5080
5107 5151 5178 5205 5232 5259 5286 5330 5357 5384 5411 5438 5465 5713
5727 5763 5777 5813 5827 5863 5877 5913 5927 5963 5977 6013 6027 6063
6077 6153 6172 6191 6210 6229 6248 6267 6286 6305 6324 6343 6362 6381
6412 6431 6450 6469 6488 6507 6526 6545 6564 6583 6602 6621 6659 6667
6686 6694 6714 6722 6742 6750 6769 6777 6796 6804 6824 6832 6851 6859
6878 6886 6906 6914 6933 6941 6960 6968 6988 6996 7016 7024 7043 7051
7070 7078 7098 7106 7125 7133 7152 7160 7180 7188 7226 7234 7253 7261
7281 7289 7309 7317 7336 7344 7363 7371 7392 7400 7419 7427 7446 7454
7475 7483 7502 7510 7529 7537 7557 7565 7585 7593 7612 7620 7639 7647
7668 7676 7695 7703 7722 7730 7751 7759 7804 7811 7842 7850 7869 7877
7896 7904 7923 7931 7960 7968 7987 7995 8014 8022 8041 8049 8068 8076
8095 8103 8122 8130 8149 8157 8176 8184 8203 8211 8230 8238 8257 8265
8284 8292 8311 8319 8338 8346 8365 8373 8392 8400 8420 8428 8448 8456
8475 8483 8502 8510 8529 8537 8556 8564 8583 8591 8623 8643 8673 8693
8727 8747 8767 8787 8807 8827 8847 8867 8887 8907 8927 8947 8967 8987
9007 9027 9047 9067 9087 9107 9127 9147 9167 9187 9223 9231 9253 9261
9282 9290 9312 9320 9342 9350 9372 9380 9403 9411 9433 9441 9463 9471
9493 9501 9523 9531 9565 9573 9593 9601 9622 9630 9650 9658 9678 9686
9706 9714 9734 9742 9762 9770 9790 9798 9818 9826 9846 9854 9874 9882
9902 9910 9930 9938 9958 9966 9986 9994 10031 10039 10059 10067 10087 10095
10115 10123 10145 10153 10175 10183 10204 10212 10234 10242 10303 10314 10333 10344
10363 10374 10393 10404 10423 10434 10453 10464 10483 10494 10513 10524 10543 10554
10573 10584 10603 10614 10633 10644 10663 10674 10693 10704 10723 10734 10753 10764
10783 10794 10813 10824 10844 10855 10874 10885 10904 10915 10934 10945 10964 10975
10994 11005 11024 11035 11054 11065 11086 11097 11117 11128 11147 11158 11178 11189
11209 11220 11240 11251 11271 11282
ERLP1 534#
ERLP2 535# SEQ 0339
ERRHLT 376#
ERROR 542# 921# 966 991 1016 1041 1066 1091 1116 1195 1217 1252 1274 1309
1331 1366 1388 1423 1445 1480 1502 1537 1559 1594 1616 1666 1709 1734
1801 1814 1848 1861 1895 1908 1942 1955 1989 2002 2036 2049 2157 2170
2207 2220 2257 2270 2307 2320 2357 2370 2407 2420 2474 2487 2521 2534
2568 2581 2615 2628 2662 2675 2709 2722 2776 2789 2823 2836 2870 2883
2917 2930 2964 2977 3011 3024 3078 3091 3125 3138 3172 3185 3219 3232
3266 3279 3313 3326 3380 3393 3427 3440 3474 3487 3521 3534 3568 3581
3615 3628 3836 3849 3883 3896 3930 3943 3977 3990 4024 4037 4071 4084
4118 4131 4165 4178 4274 4299 4324 4349 4374 4399 4492 4525 4612 4639
4666 4693 4720 4747 4791 4818 4845 4872 4899 4926 4970 4997 5024 5051
5078 5105 5149 5176 5203 5230 5257 5284 5328 5355 5382 5409 5436 5463
5711 5725 5761 5775 5811 5825 5861 5875 5911 5925 5961 5975 6011 6025
6061 6075 6151 6170 6189 6208 6227 6246 6265 6284 6303 6322 6341 6360
6379 6410 6429 6448 6467 6486 6505 6524 6543 6562 6581 6600 6619 6657
6664 6684 6691 6712 6719 6740 6747 6767 6774 6794 6801 6822 6829 6849
6856 6876 6883 6904 6911 6931 6938 6958 6965 6986 6993 7014 7021 7041
7048 7068 7075 7096 7103 7123 7130 7150 7157 7178 7185 7224 7231 7251
7258 7279 7286 7307 7314 7334 7341 7361 7368 7390 7397 7417 7424 7444
7451 7473 7480 7500 7507 7527 7534 7555 7562 7583 7590 7610 7617 7637
7644 7666 7673 7693 7700 7720 7727 7749 7756 7802 7809 7840 7847 7867
7874 7894 7901 7921 7928 7958 7965 7985 7992 8012 8019 8039 8046 8066
8073 8093 8100 8120 8127 8147 8154 8174 8181 8201 8208 8228 8235 8255
8262 8282 8289 8309 8316 8336 8343 8363 8370 8390 8397 8418 8425 8446
8453 8473 8480 8500 8507 8527 8534 8554 8561 8581 8588 8621 8641 8671
8691 8725 8745 8765 8785 8805 8825 8845 8865 8885 8905 8925 8945 8965
8985 9005 9025 9045 9065 9085 9105 9125 9145 9165 9185 9221 9228 9251
9258 9280 9287 9310 9317 9340 9347 9370 9377 9401 9408 9431 9438 9461
9468 9491 9498 9521 9528 9563 9570 9591 9598 9620 9627 9648 9655 9676
9683 9704 9711 9732 9739 9760 9767 9788 9795 9816 9823 9844 9851 9872
9879 9900 9907 9928 9935 9956 9963 9984 9991 10029 10036 10057 10064 10085
10092 10113 10120 10143 10150 10173 10180 10202 10209 10232 10239 10301 10311 10331
10341 10361 10371 10391 10401 10421 10431 10451 10461 10481 10491 10511 10521 10541
10551 10571 10581 10601 10611 10631 10641 10661 10671 10691 10701 10721 10731 10751
10761 10781 10791 10811 10821 10842 10852 10872 10882 10902 10912 10932 10942 10962
10972 10992 11002 11022 11032 11052 11062 11084 11094 11115 11125 11145 11155 11176
11186 11207 11217 11238 11248 11269 11279
ERROR1 553#
ERUUO 532# 967 992 1017 1042 1067 1092 1117 1196 1218 1253 1275 1310 1332
1367 1389 1424 1446 1481 1503 1538 1560 1595 1617 1667 1710 1735 1802
1815 1849 1862 1896 1909 1943 1956 1990 2003 2037 2050 2158 2172 2208
2222 2258 2272 2308 2322 2358 2372 2408 2422 2475 2489 2522 2536 2569
2583 2616 2630 2663 2677 2710 2724 2777 2791 2824 2838 2871 2885 2918
2932 2965 2979 3012 3026 3079 3093 3126 3140 3173 3187 3220 3234 3267
3281 3314 3328 3381 3395 3428 3442 3475 3489 3522 3536 3569 3583 3616
3630 3837 3850 3884 3897 3931 3944 3978 3991 4025 4038 4072 4085 4119
4132 4166 4179 4275 4300 4325 4350 4375 4400 4493 4527 4613 4640 4667
4694 4721 4748 4792 4819 4846 4873 4900 4927 4971 4998 5025 5052 5079
5106 5150 5177 5204 5231 5258 5285 5329 5356 5383 5410 5437 5464 5712
5726 5762 5776 5812 5826 5862 5876 5912 5926 5962 5976 6012 6026 6062
6076 6152 6171 6190 6209 6228 6247 6266 6285 6304 6323 6342 6361 6380
6411 6430 6449 6468 6487 6506 6525 6544 6563 6582 6601 6620 6658 6666
6685 6693 6713 6721 6741 6749 6768 6776 6795 6803 6823 6831 6850 6858 SEQ 0340
6877 6885 6905 6913 6932 6940 6959 6967 6987 6995 7015 7023 7042 7050
7069 7077 7097 7105 7124 7132 7151 7159 7179 7187 7225 7233 7252 7260
7280 7288 7308 7316 7335 7343 7362 7370 7391 7399 7418 7426 7445 7453
7474 7482 7501 7509 7528 7536 7556 7564 7584 7592 7611 7619 7638 7646
7667 7675 7694 7702 7721 7729 7750 7758 7803 7810 7841 7849 7868 7876
7895 7903 7922 7930 7959 7967 7986 7994 8013 8021 8040 8048 8067 8075
8094 8102 8121 8129 8148 8156 8175 8183 8202 8210 8229 8237 8256 8264
8283 8291 8310 8318 8337 8345 8364 8372 8391 8399 8419 8427 8447 8455
8474 8482 8501 8509 8528 8536 8555 8563 8582 8590 8622 8642 8672 8692
8726 8746 8766 8786 8806 8826 8846 8866 8886 8906 8926 8946 8966 8986
9006 9026 9046 9066 9086 9106 9126 9146 9166 9186 9222 9230 9252 9260
9281 9289 9311 9319 9341 9349 9371 9379 9402 9410 9432 9440 9462 9470
9492 9500 9522 9530 9564 9572 9592 9600 9621 9629 9649 9657 9677 9685
9705 9713 9733 9741 9761 9769 9789 9797 9817 9825 9845 9853 9873 9881
9901 9909 9929 9937 9957 9965 9985 9993 10030 10038 10058 10066 10086 10094
10114 10122 10144 10152 10174 10182 10203 10211 10233 10241 10302 10313 10332 10343
10362 10373 10392 10403 10422 10433 10452 10463 10482 10493 10512 10523 10542 10553
10572 10583 10602 10613 10632 10643 10662 10673 10692 10703 10722 10733 10752 10763
10782 10793 10812 10823 10843 10854 10873 10884 10903 10914 10933 10944 10963 10974
10993 11004 11023 11034 11053 11064 11085 11096 11116 11127 11146 11157 11177 11188
11208 11219 11239 11250 11270 11281
FATAL 375#
FRD36 517#
FRD8 518#
FREAD 516#
FSELEC 515#
GET 359# 11328 11376 11447
GO 356# 6150 6169 6188 6207 6226 6245 6264 6283 6302 6321 6340 6359 6378
6409 6428 6447 6466 6485 6504 6523 6542 6561 6580 6599 6618 6656 6683
6711 6739 6766 6793 6821 6848 6875 6903 6930 6957 6985 7013 7040 7067
7095 7122 7149 7177 7223 7250 7278 7306 7333 7360 7389 7416 7443 7472
7499 7526 7554 7582 7609 7636 7665 7692 7719 7748 7839 7866 7893 7920
7957 7984 8011 8038 8065 8092 8119 8146 8173 8200 8227 8254 8281 8308
8335 8362 8389 8417 8445 8472 8499 8526 8553 8580 8620 8640 8670 8690
8724 8744 8764 8784 8804 8824 8844 8864 8884 8904 8924 8944 8964 8984
9004 9024 9044 9064 9084 9104 9124 9144 9164 9184 9220 9250 9279 9309
9339 9369 9400 9430 9460 9490 9520 9562 9590 9619 9647 9675 9703 9731
9759 9787 9815 9843 9871 9899 9927 9955 9983 10028 10056 10084 10112 10142
10172 10201 10231 10300 10330 10360 10390 10420 10450 10480 10510 10540 10570 10600
10630 10660 10690 10720 10750 10780 10810 10841 10871 10901 10931 10961 10991 11021
11051 11083 11114 11144 11175 11206 11237 11268
HALT 54 55 56 57 58 361# 666
JEN 363#
JRSTF 362# 11349 11411
MAPADR 498#
MAPCNK 499#
MAPMEM 495#
MAPPNT 501#
MAPSET 500#
MEMSEG 497#
MEMZRO 496#
MODPCP 508#
MODPCU 507# SEQ 0341
MTROP 476#
MULT 104# 6142 6161 6180 6199 6218 6237 6256 6275 6294 6313 6332 6351 6370
6401 6420 6439 6458 6477 6496 6515 6534 6553 6572 6591 6610
MULTF 121# 6648 6675 6702 6730 6758 6785 6812 6840 6867 6894 6922 6949 6976
7004 7032 7059 7086 7114 7141 7168 7215 7242 7269 7297 7325 7352 7379
7408 7435 7462 7491 7518 7545 7573 7601 7628 7655 7684 7711 7738 7831
7858 7885 7912 7949 7976 8003 8030 8057 8084 8111 8138 8165 8192 8219
8246 8273 8300 8327 8354 8381 8408 8436 8464 8491 8518 8545 8572
NAME 7# 10
ODIV 183# 10292 10322 10352 10382 10412 10442 10472 10502 10532 10562 10592 10622 10652
10682 10712 10742 10772 10802 10832 10863 10893 10923 10953 10983 11013 11043 11073
11105 11136 11167 11198 11229 11260
PBELL 451#
PCRL 445# 11478 11489 11498 11515 11526 11535 11552 11563 11578 11603 11614 11631
PCRL2 449#
PCRL2F 450#
PCRLF 446#
PCSAVE 79# 1784 1831 1878 1925 1972 2019 2138 2188 2238 2288 2338 2388 2457
2504 2551 2598 2645 2692 2759 2806 2853 2900 2947 2994 3061 3108 3155
3202 3249 3296 3363 3410 3457 3504 3551 3598 3819 3866 3913 3960 4007
4054 4101 4148 4479 5694 5744 5794 5844 5894 5944 5994 6044 7785
PDIV 142# 8611 8631 8661 8681 8715 8735 8755 8775 8795 8815 8835 8855 8875
8895 8915 8935 8955 8975 8995 9015 9035 9055 9075 9095 9115 9135 9155
9175
PDIVF 160# 9209 9239 9269 9298 9328 9358 9389 9419 9449 9479 9509 9552 9581
9609 9638 9666 9694 9722 9750 9778 9806 9834 9862 9890 9918 9946 9974
10019 10047 10075 10103 10131 10161 10191 10220
PFORCE 453#
PGMINT 369# 929
PJRST 360#
PMSG 455# 11468 11479 11490 11505 11516 11527 11542 11553 11564 11585 11604 11615 11623
PMSGF 458#
PNT1 411#
PNT11 425#
PNT11F 426#
PNT1F 412#
PNT2 413#
PNT2F 414#
PNT3 415#
PNT3F 416#
PNT4 417#
PNT4F 418#
PNT5 419#
PNT5F 420#
PNT6 421#
PNT6F 422#
PNT7 423#
PNT7F 424#
PNTA 397#
PNTADF 428#
PNTADR 427#
PNTAF 398#
PNTAL 399# SEQ 0342
PNTALF 400#
PNTCHF 410#
PNTCHR 409#
PNTCI 407#
PNTCIF 408#
PNTCW 443#
PNTCWF 444#
PNTDCF 436#
PNTDEC 435#
PNTDS 437#
PNTDSF 438#
PNTHW 431#
PNTHWF 432#
PNTMGN 522#
PNTMSF 404#
PNTMSG 403#
PNTNM 439#
PNTOCF 434#
PNTOCS 433#
PNTOCT 429# 11472 11476 11483 11487 11493 11496 11509 11513 11520 11524 11530 11533 11546
11550 11557 11561 11567 11570 11573 11576 11589 11593 11597 11601 11608 11612 11618
11621 11626 11629
PNTOTF 430#
PNTSIX 440#
PNTSXF 441#
PSIXL 401#
PSIXLF 402#
PSIXM 405# 11468 11479 11490 11505 11516 11527 11542 11553 11564 11585 11604 11615 11623
PSIXMF 406#
PSP 447#
PSPF 448#
PUT 358#
REPTUO 536#
RTN 357# 653 11326 11374 11445 11499 11536 11579 11632
S 287#
SIXBTZ 464# 933 4242 6123 8596
SWITCH 470#
TFLAG 89# 1806 1853 1900 1947 1994 2041 2162 2212 2262 2312 2362 2412 2479
2526 2573 2620 2667 2714 2781 2828 2875 2922 2969 3016 3083 3130 3177
3224 3271 3318 3385 3432 3479 3526 3573 3620 3841 3888 3935 3982 4029
4076 4123 4170 4517 5717 5767 5817 5867 5917 5967 6017 6067
TTALTM 391#
TTICHR 384#
TTICLR 394#
TTICNV 389#
TTIDEC 388#
TTINO 386#
TTIOCT 387#
TTIYES 385#
TTLOOK 390#
TTSIXB 392#
TTYINP 393#