Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dfkcc.seq
There are no other files named dfkcc.seq in the archive.
;DFKCC
SEQ 0001
IDENTIFICATION
--------------
PRODUCT CODE: AH-F827A-DD
DIAGNOSTIC CODE: DFKCC
PRODUCT NAME: DFKCCA0 DECSYSTEM10 KL10 ADVANCED
INSTRUCTION DIAGNOSTIC #3
(EXTENDED INSTRUCTION)
VERSION: 0.2
DATE RELEASED: JANUARY 1987
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.
TABLE OF CONTENTS SEQ 0002
-----------------
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 OPERATIONAL VARIATIONS
8.0 LISTING
1.0 ABSTRACT SEQ 0003
THIS DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC IS THE
THIRD OF A SERIES OF ADVANCED INSTRUCTION DIAGNOSTICS FOR
THE KL10. THIS ADVANCED INSTRUCTION DIAGNOSTIC PERFORMS
TESTING OF THE KL10 MICRO-CODE FOR THE EXTENDED INSTRUCTION SET.
THIS INSTRUCTION SET IS FOR HANDLING STRINGS. ALL STRING
INSTRUCTIONS ARE IN THE EXTENDED INSTRUCTION SET, AND ALL
THEREFORE HAVE A TWO WORD FORMAT, THE FIRST WORD BEING
EXTEND. THE SECOND INSTRUCTION WORD, WHOSE OWN EFFECTIVE
ADDRESS IS E1, IS AT LOCATION E0, WHICH IS THE EFFECTIVE ADDRESS
OF THE EXTEN D. AN INSTRUCTION THAT "OFFSETS" USES E1 AS A
SIGNED OFFSET, IN WHICH BIT 18 IS THE SIGN. AN INSTRUCTION THAT
"TRANSLATES" OR "EDITS" MAKES USE OF A TRANSLATION TABLE THAT
BEGINS AT E1.
THE INSTRUCTIONS TESTED ARE:
MOVES:
MOVSLJ - MOVE STRING LEFT JUSTIFIED
MOVSO - MOVE STING OFFSET
MOVST - MOVE STRING TRANSLATED
MOVSRJ - MOVE STRING RIGHT JUSTIFIED
COMPARE STRINGS:
CMPSL - SKIP IF STRING 1 LESS THAN STRING 2
CMPSE - SKIP IF STRING 1 EQUAL TO STRING 2
CMPSLE - SKIP IF STRING 1 LESS THAN OR EQUAL TO STING 2
CMPSGE - SKIP IF STRING 1 GREATER THAN OR EQUAL TO STING 2
CMPSN - SKIP IF STRING 1 NOT EQUAL TO STING 2
CMPSG - SKIP IF STRING 1 GREATER THAN STRING 2
DECIMAL CONVERSIONS:
CVTBDO - CONVERT BINARY TO DECIMAL OFFSET
CVTBDT - CONVERT BINARY TO DECIMAL TRANSLATED
CVTDBO - CONVERT DECIMAL TO BINARY OFFSET
CVTDBT - CONVERT DECIMAL TO BINARY TRANSLATED
STRING EDITING:
EDIT - EDIT STRING
2.0 REQUIREMENTS SEQ 0004
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 PRELIMINARY PROGRAMS
PREVIOUS PROCESSOR DIAGNOSTICS
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM KL10 SUBROUTINE
PROGRAM BE RESIDENT IN THE DECSYSTEM KL10.
FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES.
3.2 STARTING PROCEDURE SEQ 0005
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- TYPE 0
****** (THERE ARE NO RH SWITCHES)
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.
3.3 OPERATING PROCEDURE
A. ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING
ERRORS ON THE LINE PRINTER.
B. 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.
4.0 DATA SWITCH FUNCTIONS SEQ 0006
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 LOOP ON TEST ERROR
7 ERSTOP 0 NO FUNCTION
1 HALT ON TEST ERROR
8 PALERS 0 PRINT ONLY FIRST ERROR WHEN LOOPING
1 PRINT ALL ERRORS, EVEN IF SAME ERROR
9 RELIAB 0 FAST CYCLE (1 PASS)
1 REPETITION COUNT OF 10
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
5.0 ERRORS SEQ 0007
ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THERE ARE
TWO TYPES OF PROGRAM ERROR PRINTOUT.
THE FIRST TYPE IS THE STANDARD SUBROUTINE PACKAGE ERROR MACRO
PRINTOUT. IT IS USED FOR REPORTING ERRORS IN THE MUUO TRAP TESTING
AND THE PAGE FAIL TEST.
PRINTOUT CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, ERROR
NUMBER AND THE CONTENTS OF AN APPLICABLE AC (CORRECT DATA,
ACTUAL DATA, AND THE DISCREPANCY BETWEEN THE TWO.)
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.
THE SECOND TYPE IS IMPLEMENTED COMPLETELY IN THE PROGRAM.
THIS TYPE OF ERROR REPORT IS USED IN ALL INSTRUCTION CASE
TESTING, AND THE INTERRUPTABILITY TEST.
PRINTOUT FOR CASE TESTING ERROR CONTAINS THE INITIAL AC BLOCK
DATA, ACTUAL AC BLOCK RESULT, AND CORRECT AC BLOCK RESULT.
DEPENDING ON THE INSTRUCTION THE SOURCE,DESTINATION AND SIMULATED
DESTINATION STRINGS ARE PRINTED. E0+1 AND E0+2 WORDS ARE PRINTED
IF APPLICABLE. IF THE INSTRUCTION TOOK AN INCORRECT SKIP OR NON-
SKIP RETURN THIS IS ALSO PRINTED.
6.0 ITERATION COUNTER
THE ITERATION COUNT OF THE PROGRAM IS PRINTED BY THE
CONSOLE PROCESSOR.
7.0 OPERATIONAL VARIATIONS SEQ 0008
A. DIAGNOSTIC MONITOR
THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE
RELIABILITY AND ACCEPTANCE TESTS FOR THE EXTENDED
INSTRUCTION SET MICRO-CODE. THE FOLLOWING INFORMATION MAY
BE USEFUL:
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 'DSKCB.LPT'
EXAMPLE DEVICE ASSIGNMENT:
.ASSIGN DSK DEV
IN USER MODE THE PROGRAM WILL MAKE 1000(8) PASSES AND THEN
RETURN TO SMMON COMMAND MODE.
7.0 OPERATIONAL VARIATIONS (CON'T) SEQ 0009
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.
8.0 LISTING
HISTORY FILE FOR DFKCC
---------------------- SEQ 0010
---------------------------------------------------------------
CODE: MAINDEC-10-DFKCC
TITLE: DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3
EXTENDED INSTRUCTIONS
VERSION: 0.1
DATE: SEPTEMBER 1979
AUTHOR: JOHN R. KIRCHOFF
REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KL-10.
---------------------------------------------------------------
CODE: MAINDEC-10-DFKCC
TITLE: DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3
EXTENDED INSTRUCTIONS
VERSION: 0.2
DATE: JANUARY 1987
UPDATE AUTHOR: STEVE BEEMAN
REASON: Program was failing on machines with MCA20 when
1 or 2 selected quadrants of cache were enabled
---------------------------------------------------------------
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 1
SEQ 0011
DOCUMENT
**************
DFKCC LST
**************
COPYRIGHT 1987
DIGITAL EQUIPMENT CORPORATION
MAYNARD, MASS. 01754
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 2
SEQ 0012
TABLE OF CONTENTS
*******************
1
29 DIAGNOSTIC PARAMETERS
60 PROGRAM PARAMETERS
479 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, AUG 1,1977
514 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976
720 ERROR HANDLING UUO DEFINITIONS, JAN 5,1976
758 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977
1086 PROGRAM CONTROL SECTION
1128 MUUO TRAP TESTING
1398 EXTEND INSTRUCTION CASE TESTING
3134 PAGE FAIL TESTING
3987 INSTRUCTION SIMULATORS
4655 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES
5112 MUUO AND PAGE FAIL HANDLERS
5358 PROGRAM SUPPORT ROUTINES
5731 PROGRAM PRINT ROUTINES
5909 GENERAL PROGRAM TABLE STORAGE
6033 INSTRUCTION SPECIFIC STORAGE AREA
6509 INSTRUCTION CASE TABLES
6714 *STOR* RESERVED STORAGE, JULY 19,1977
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 3
SEQ 0013
*****************************************************************
1 MAINDEC-10-DFKCC
*****************************************************************
*****************************************************************
29 DIAGNOSTIC PARAMETERS
*****************************************************************
*****************************************************************
60 PROGRAM PARAMETERS
*****************************************************************
63 ACCUMULATOR ASSIGNMENTS
100 CASE TABLE COMMAND WORD BIT DEFINITIONS - LEFT HALF
148 CASE TABLE COMMAND WORD BIT DEFINITIONS - RIGHT HALF
237 INSTRUCTION SKIP DECISION BITS (FOR CMPXX INSTRUCTIONS)
245 EDIT INSTRUCTION PATTERN CODE AND TRANSLATE TABLE DEFINITIONS
264 EDMOD -- MACRO FOR EDIT INSTRUCTION TEST SUBMODULES
327 PFMAC -- MACRO WHICH SETS UP, EXECUTES, AND VERIFIES PAGE FAIL
*****************************************************************
479 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, AUG 1,1977
*****************************************************************
484 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
*****************************************************************
514 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976
*****************************************************************
517 SPECIAL SUBPROGRAM LINKAGES
528 SPECIAL SUBROUTINE FATAL HALTS
USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
560 SUBROUTINE INITIALIZATION CALL
566 HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
573 TERMINAL INPUT UUO'S
ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 4
SEQ 0014
589 TERMINAL OUTPUT UUO'S.
655 SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
CONSERVES CORE OVER ASCIZ
660 CONSOLE SWITCH INPUT UUO.
READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
USER MODE.
666 CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
672 KL10 ONLY CACHE OPERATION UUO'S
677 END OF PASS/PROGRAM UUOS
680 DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
685 MEMORY MANAGEMENT UUO'S
UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
ADDRESS CONVERSION, ETC...
697 DEVICE CODE MODIFICATION UUO
ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
IOT'S TO A DIFFERENT DEVICE CODE.
707 "DIAMON" FILE SELECTION AND READ UUOS
714 KI10 ONLY UUO FOR PRINTING MARGIN VALUES
*****************************************************************
720 ERROR HANDLING UUO DEFINITIONS, JAN 5,1976
*****************************************************************
723 ERROR HANDLER PARAMETERS
732 THE ERROR HANDLER MACROS
734 A MACRO TO REPORT AN ERROR AND LOOP
745 A MACRO TO REPORT AN ERROR AND NOT LOOP
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 5
SEQ 0015
*****************************************************************
758 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977
*****************************************************************
763 PROGRAM STARTING ADDRESSES
THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
796 PROGRAM FIXED PARAMETER AREA
816 PROGRAM VARIABLE PARAMETER AREA
836 SPECIAL PROGRAM DISPATCH ADDRESSES
867 PROCESSOR CONTROL STORAGE
887 UUO DISPATCH TABLE
907 MEMORY MANAGMENT STORAGE
917 PRINT CONTROL STORAGE
940 THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
MOVEI NAME
PNTA ;OR PNTAF
971 USER MODE OUTPUT FILE INFORMATION
980 DISK UPDATE MODE FILE INFORMATION
988 PUSHDOWN LIST CONTROL INFORMATION
996 POWER LINE CLOCK FREQUENCY FLAG
1002 KL10 CACHE CONTROL FLAGS
1009 NUMBER INPUT DIGIT FLAG
1015 KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
1021 ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
1029 SPECIAL USERS UUO INTERCEPT INSTRUCTION
1034 USER MODE MONITOR TYPE FLAG
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 6
SEQ 0016
1040 SPECIAL USERS MUUO INTERCEPT INSTRUCTION
1046 SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
1052 "SWITCH" CALL USAGE CONTROL
1058 SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
1065 SM10 (KS-10) PROCESSOR TYPE FLAG
1071 RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
1077 SPECIAL FUTURE EXPANSION ROOM
1081 END OF FIXED STORAGE
*****************************************************************
1086 PROGRAM CONTROL SECTION
*****************************************************************
1089 START - INITIALIZATION ROUTINE
1110 STARTA - PROGRAM PASS CONTROL SECTION
*****************************************************************
1128 MUUO TRAP TESTING
*****************************************************************
1131 TEST 1 -- EXTENDED OPERATOR EXECUTION TRAP TEST
THIS TEST EXECUTES ALL EXTENDED OPERATORS IN THE
EXTENDED INSTRUCTION SET AS INSTRUCTIONS.
FOR EXAMPLE, 004 (EDIT) IS EXECUTED AS AN INSTRUCTION OPCODE.
EACH ATTEMPTED EXECUTION SHOULD CAUSE AN LUUO.
IF IT DOES NOT AN ERROR PRINTOUT OCCURS.
1179 TEST 2 -- ILLEGAL EXTENDED OPERATOR TRAP TEST
THE MICROCODE PERFORMS A RANGE CHECK ON THE EXTENDED
OPERATOR CODE IN E0. (KS ONLY - SINCE THE KS10 IS A SINGLE
SECTION MACHINE AND DOES NOT SUPPORT EXTENDED ADDRESSING,
BITS 9-12 OF E0 SHOULD CAUSE A TRAP IF NOT EQUAL TO ZERO.)
IF AN MUUO DOES NOT OCCUR WHEN ILLEGAL VALUES ARE SPECIFIED
FOR THE E0 WORD AN ERROR PRINTOUT OCCURS.
1244 TEST 3 -- ILLEGAL AC FIELD TRAP TEST
THIS TEST EXECUTES THE EXTENDED INSTRUCTIONS
WITH ILLEGAL OR UNUSED AC FIELDS SET (BIT BY BIT). THE
EXECUTION OF THESE INSTRUCTIONS SHOULD CAUSE A TRAP. IF IT
DOES NOT OCCUR AN ERROR PRINTOUT OCCURS. (KS ONLY - SINCE THE
KS-10 IS A SINGLE SECTION MACHINE BITS 6-17 OF THE PATTERN
POINTER FIELD (AC) FOR THE EDIT INSTRUCTION SHOULD TRAP
IF NOT EQUAL TO ZERO.)
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 7
SEQ 0017
NOTE: THERE ARE SOME AC FIELDS THAT ARE LISTED AS UNUSED OR 0
IN THE INSTRUCTION SPEC THAT ARE NOT TRAPPED AS
MUUOS BY THE MICROCODE (I.E. ILLEGAL SETTING OF THOSE
BITS HAS NO EFFECT ON THE INSTRUCTION).
1272 TEST COMPARE INSTRUCTION STRING LENGTH AC BITS 0,9
1324 TEST THE MOVE STRING DESTINATION LENGTH BITS 0,9
1366 TEST EDIT INSTRUCTION ILLEGAL PATTERN POINTER FIELD (KS-10 ONLY)
*****************************************************************
1398 EXTEND INSTRUCTION CASE TESTING
*****************************************************************
1401 EXTEND INSTRUCTION CASE TESTING -- GENERAL INFORMATION
THERE ARE 5 EXTEND INSTRUCTION CASE TEST MODULES (MODULE NAMES
SUFFIXED BY "MOD"). EDIT INSTR TESTING CONSISTS OF 9 SUBMODULES.
EACH MODULE EXECUTES INSTRUCTIONS WITH PARAMETERS DERIVED FROM
A CASE TABLE (I.E. VARYING STRING LENGTHS, BYTE SIZES, FILLER
VALUES, PATTERNS, OFFSETS, ETC.).
WHEN THE INSTRUCTION HAS BEEN SET UP, AN INSTRUCTION SIMULATOR
(ROUTINE NAMES SUFFIXED BY "SIM") IS CALLED. THE REAL INSTRUCTION
IS THEN EXECUTED.
THE RESULTS OF THE INSTRUCTION AND THE SIMULATOR ARE COMPARED IN
AN INSTRUCTION COMPARATOR ROUTINE (ROUTINE NAME SUFFIXED BY "COM").
EACH INSTRUCTION IS RUN FOR EVERY CASE SPECIFIED AND THEN
THE NEXT INSTRUCTION IS RUN FOR EVERY CASE, ETC.
ON ERROR AN ERROR MESSAGE IS PRINTED AND THE PROGRAM PROCEEDS
WITH THE NEXT CASE IN SEQUENCE. THE FAILURE INFORMATION IS PRINTED
BY AN INSTRUCTION PRINTING ROUTINE (ROUTINE NAME SUFFIXED BY "PNT").
THE INITIAL AC BLOCK IS STORED IN ORIGSV.
THE RESULTS OF THE SIMULATOR ARE STORED IN RESSV.
AC6 HOLDS THE INSTRUCTION OPCODE INFORMATION.
AC7 HOLDS THE CASE TABLE INFORMATION.
THE INTEGRITY OF THESE ACS IS PRESERVED THROUGHOUT MODULE EXECUTION.
1432 TEST 4 -- COMPARE STRING INSTRUCTION TEST
THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
SIX COMPARE INSTRUCTIONS.
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 8
SEQ 0018
1639 TEST 5 -- MOVE STRING INSTRUCTION TEST
THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
FOUR MOVE STRING INSTRUCTIONS.
1913 TEST 6 -- CONVERT DECIMAL TO BINARY INSTRUCTION TEST
THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
TWO CVTDBX INSTRUCTIONS.
2105 TEST 7 -- CONVERT BINARY TO DECIMAL INSTRUCTION TEST
THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
TWO CVTBDX INSTRUCTIONS.
2239 TEST 8 -- EDIT INSTRUCTION TEST
THE EDIT INSTRUCTION TEST CONSISTS OF A SERIES OF
SUBMODULES EACH OF WHICH TESTS A SINGLE PATTERN BYTE TYPE.
EDMOD1 -- STOP (001) PATTERN BYTE TYPE TEST
EDMOD2 -- EXCHMD (004) PATTERN BYTE TYPE TEST
EDMOD3 -- SIGST (002) PATTERN BYTE TYPE TEST
EDMOD4 -- FLDSEP (003) PATTERN BYTE TYPE TEST
EDMOD5 -- MESSAG (1XX) PATTERN BYTE TYPE TEST
EDMOD6 -- NOP (005) PATTERN BYTE TYPE TEST
EDMOD7A -- SKPM (5XX) PATTERN BYTE TYPE TESTS
EDMOD7B -- SKPN (6XX) PATTERN BYTE TYPE TESTS
EDMOD7C -- SKPA (7XX) PATTERN BYTE TYPE TESTS
EDMOD8 -- SELECT (001) PATTERN BYTE TYPE TEST
EDMOD9 -- NON DEFINED PATTERN BYTE TYPE TEST
2262 EDMOD1 -- STOP (001) PATTERN BYTE TYPE TEST
THE STOP PATTERN IS TESTED IN ALL FOUR POSITIONS OF
THE PATTERN BYTE TABLE. IT WILL BE EXECUTED WITH ALL COMBINATIONS
OF THE S,N AND M FLAGS. PATTERN TABLE LOCATIONS WITH THE EXCEPTION
OF THE FIRST WORD WILL BE FILLED WITH SIGST.
2334 EDMOD2 -- EXCHMD (004) PATTERN BYTE TYPE TEST
THE EXCHMD PATTERN BYTE WILL BE TESTED IN FOUR SEQUENCES, THESE ARE:
EXCHMD STOP,
EXCHMD EXCHMD STOP,
EXCHMD EXCHMD EXCHMD STOP,
EXCHMD EXCHMD EXCHMD EXCHMD STOP.
THE MARK ADDRESS IN AC+3 WILL BE INITIALIZED TO [POINT 0,SOURCE]
AND DP WILL BE EQUAL TO [POINT 36,DESTIN]. THE S,N, AND M FLAGS
WILL BE VARIED TO INSURE THAT THEIR VALUES HAVE NO EFFECT ON THE
OUTCOME OF THE INSTRUCTION. ALL BYTES IN THE PATTERN BYTE TABLE
WILL BE SET TO STOP WITH THE EXCEPTION OF THE FIRST WORD OF THE TABLE.
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 9
SEQ 0019
2413 EDMOD3 -- SIGST (002) PATTERN BYTE TYPE TEST
THERE ARE THREE MAIN EXECUTION PATHS TO BE TESTED:
1. S=1
2. S=0, E0+2=0
3. S=0, E0+2 NOT =0
THE VALUES OF THE M AND N FLAGS ARE VARIED TO INSURE THAT THEIR
VALUE HAS NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. WITH THE
EXCEPTION OF THE TEST PATTERN BYTES THE TABLE WILL BE FILLED
WITH THE STOP OPERATOR.
2490 EDMOD4 -- FLDSEP (003) PATTERN BYTE TYPE TEST
THE FLDSEP OPERATOR WILL BE TESTED WITH ALL COMBINATIONS
OF THE S,N AND M FLAGS. THE REMAINING BYTES IN THE TABLE WILL BE
FILLED WITH THE STOP OPERATOR. ALL BYTES IN THE PATTERN BYTE
TABLE WILL BE FILLED WITH STOP EXCEPT FOR THE FIRST WORD.
2562 EDMOD5 -- MESSAG (1XX) PATTERN BYTE TYPE TEST
THERE ARE THREE EXECUTION PATHS THAT MUST BE TESTED:
1. S=1
2. S=0, E0+1=0
3. S=0, E0+1 NOT =0
THE N AND M FLAGS WILL BE VARIED TO INSURE THAT THERE VALUE HAS
NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. ALL BYTES IN THE
PATTERN TABLE WILL BE FILLED WITH THE STOP OPERATOR WITH THE
EXCEPTION OF THE FIRST WORD. THEN ALL POSSIBLE MESSAGE
CHARACTERS WILL BE INSERTED INTO THE DESTINATION STRING.
2640 INSERT EVERY MESSAGE CHARACTER IN THE DESTINATION STRING
2690 EDMOD6 -- NOP (005) PATTERN BYTE TYPE TEST
THE EDIT INSTRUCTION WILL BE EXECUTED WITH THE FOUR SEQUENCES:
NOP STOP,
NOP NOP STOP,
NOP NOP NOP STOP,
NOP NOP NOP NOP STOP.
THE REST OF THE PATTERN BYTE TABLE WILL BE FILLED
WITH THE STOP OPERATOR. THE S,N AND M FLAGS WILL BE VARIED TO
INSURE THAT THEIR VALUE HAS NO EFFECT ON THE OUTCOME OF THE
INSTRUCTION.
2768 EDMOD7A -- SKPM (5XX) PATTERN BYTE TYPE TESTS
THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH
ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES
FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF
THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR.
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 10
SEQ 0020
2840 EDMOD7B -- SKPN (6XX) PATTERN BYTE TYPE TESTS
THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH
ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES
FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF
THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR.
2912 EDMOD7C -- SKPA (7XX) PATTERN BYTE TYPE TESTS
THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH
ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES
FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF
THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR.
2984 EDMOD8 -- SELECT (001) PATTERN BYTE TYPE TEST
THIS INSTRUCTION WILL BE EXECUTED WITH VARIED VALUES
FOR TOP (THE OPCODE PART OF THE TRANLATE FUNCTION) AND
THE S,N AND M FLAGS.
COMBINATIONS OF THE FOLLOWING PARAMETERS WILL BE TESTED:
1. S,N AND M FLAGS
2. E0+1 = AND NOT =0
3. E0+2 = AND NOT =0
4. VARIED VALUES FOR TOP (THE OPCODE PART OF THE TRANSLATE TABLE.
3061 EDMOD9 -- NON DEFINED PATTERN BYTE TYPE TEST
THE EDIT INSTRUCTION WILL BE EXECUTED WITH UNDEFINED
VALUES FOR THE PATTERN BYTES. THESE BYTES SHOULD BE INTERPRETED
AS NOOPS (RESULTING IN INCREMENTATION OF THE PB#). THE SPECIFIC
BYTES TESTED ARE 2XX,3XX,4XX,006.
*****************************************************************
3134 PAGE FAIL TESTING
*****************************************************************
3139 TEST 9 -- PAGE FAIL RECOVERY TEST
THIS TEST SETS UP THE PAGE FAILURES FOR EACH INSTRUCTION
USING A PREDETERMINED AC BLOCK STORED IN MEMORY (PFBLKX).
WHERE APPLICABLE, PAGE FAILURES WILL BE CAUSED AT THE FIRST,
MIDDLE, AND LAST BYTES OF THE SOURCE AND DESTINATION STRINGS,
AND AT THE E0+1 (FILLER) BYTES.
THE PAGE FAILUES ARE CAUSED BY RELOCATING PAGE 400 TO PAGE 75.
THE EXTEND INSTRUCTIONS ARE SET UP SO THAT THEY REFERENCE PAGE 401
(WHICH DOES NOT EXIST).
A PAGE FAIL SHOULD OCCUR ON THE FIRST REFERENCE TO LOCATION 401000.
THE PAGE FAIL ROUTINE COMPARES THE INTERMEDIATE VALUES OF
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 11
SEQ 0021
THE AC BLOCK TO THE CORRECT VERSION STORED IN MEMORY AND
THE CONTENTS OF LOCATION 501 (SAVED FLAGS AND PC). IF THEY
ARE NOT CORRECT AN ERROR PRINTOUT OCCURS.
THE INSTRUCTION IS CONTINUED BY RELOCATING BOTH PAGES 400 AND 401.
PAGE 400 IS RELOCATED TO 75000 AND PAGE 401 IS RELOCATED TO 76000.
WHEN THE EXECUTION OF THE EXTEND INSTRUCTION IS FINISHED THE
SIMULATOR FOR THAT PARTICULAR SET OF INSTRUCTIONS IS EXECUTED.
(SINCE BOTH PAGES 400 AND 401 ARE NOW RELOCATED THE SIMULATOR
CAN EXECUTE THE INSTRUCTION WITHOUT PAGE FAIL.)
THE FINAL RESULTS OF THE INSTRUCTION CONTAINED IN THE AC BLOCK
ARE COMPARED TO THOSE OF THE SIMULATOR. IF NOT EQUAL AN ERROR
PRINTOUT OCCURS.
3182 PAGE FAIL TESTING OF THE COMPARE INSTRUCTIONS
3343 PAGE FAIL TESTING OF MOVE STRING INSTRUCTIONS
3504 PAGE FAIL TESTING OF CVTDBX INSTRUCTIONS
3665 PAGE FAIL TESTING OF CVTBDO INSTRUCTIONS
3826 PAGE FAIL TESTING OF THE EDIT INSTRUCTIONS
*****************************************************************
3987 INSTRUCTION SIMULATORS
*****************************************************************
3990 INSTRUCTION SIMULATORS -- GENERAL INFORMATION
EACH INSTRUCTION SIMULATOR ROUTINE IS ENTERED WITH
THE ORIGINAL AC BLOCK IN ORIGSV. THEY ARE COPIED INTO
AC'S 10-14.
THE CURRENT OPCODE OF THE INSTRUCTION BEING TESTED
IS CONTAINED IN THE E0 WORD (BITS 0,8).
FOR THE INSTRUCTIONS WHICH INVOLVE FORMING A DESTINATION STRING
THE RESULT IS STORED IN AN AREA CALLED "SIMDES" INSTEAD OF
"DESTIN" TO MAKE ERROR COMPARISON POSSIBLE.
THE FINAL AC BLOCK FOR THE INSTRUCTION IS STORED IN FIVE
LOCATIONS AT RESSV BEFORE RETURN TO THE INSTRUCTION MODULE.
RETURN IS +1 ALWAYS.
CMPSIM -- ROUTINE TO SIMULATE THE COMPARE STRING INSTRUCTION
MOVSIM -- ROUTINE TO SIMULATE THE MOVE STRING INSTRUCTIONS
CDBSIM -- ROUTINE TO SIMULATE THE CVTDBO AND CVTDBT INSTRUCTIONS
CBDSIM -- ROUTINE TO SIMULATE THE CVTBDX INSTRUCTIONS
EDTSIM -- ROUTINE TO SIMULATE THE EDIT INSTRUCTION
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 12
SEQ 0022
4016 CMPSIM -- ROUTINE TO SIMULATE THE COMPARE STRING INSTRUCTION
THE SKIP/NON-SKIP RETURN OF THE CMPXX SIMULATOR IS HANDLED
USING 3 FLAGS AND A SKIP TABLE, SKPTAB.
WHEN STRING1 IS FOUND GREATER THAN, LESS THAN, AND/OR = TO
STRING2, THE APPROPRIATE FLAG IS OR'ED WITH AC3.
SKPTAB IS INDEXED BY INSTRUCTION OPCODE AND BEFORE THE
INSTRUCTION RETURNS, AC3 IS ANDED WITH THE CORRECT
SKPTAB WORD.
IF THE RESULT IS NON-ZERO THE SKIP CONDITION FOR THE INSTR
HAS BEEN SATISFIED AND THE RETURN POINTER IS INCREMENTED.
4100 MOVSIM -- ROUTINE TO SIMULATE THE MOVE STRING INSTRUCTIONS
4244 CDBSIM -- ROUTINE TO SIMULATE THE CVTDBO AND CVTDBT INSTRUCTIONS
4343 CBDSIM -- ROUTINE TO SIMULATE THE CVTBDX INSTRUCTIONS
4494 EDTSIM -- ROUTINE TO SIMULATE THE EDIT INSTRUCTION
*****************************************************************
4655 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES
*****************************************************************
4658 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES
-- GENERAL INFORMATION
EACH OF THE FIVE ERROR COMPARATOR AND COMPANION ERROR REPORTER
ROUTINES IS RESPONSIBLE FOR DETECTING ERROR AND PRINTING THE
ERROR INFORMATION SPECIFIC TO THE INSTRUCTION UNDER TEST.
ALL ROUTINES ARE ENTERED WITH THE SAME PARAMETERS. THESE ARE:
1. ORIGINAL AC BLOCK IN ORIGSV-ORIGSV+4
2. ACTUAL RESULT BLOCK IN AC'S 10-14
3. SIMULATED RESULT BLOCK IN RESSV-RESSV+4
4. INSTRUCTION SKIP INFORMATION IN SKPWD1 AND SKPWD2
5. SIMULATED DESTIN STRING IN SIMDES
6. ACTUAL DESTIN STRING IN DESTIN
GENERAL HELPER ROUTINES UTILIZED BY THE ERROR REPORTERS:
1. PNTINS -- PRINTS THE CURRENT INSTRUCTION NAME
NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS
2. PNTCAS -- PRINTS THE CURRENT CASE NUMBER
ENTRY WITH CASE TABLE ADDRESS IN AC1, RTN+1 ALWAYS
3. PNTSTR -- PRINTS STRING OF BYTES
ENTRY WITH STRING LENGTH IN AC1, STRING BYTE POINTER
IN AC2, RTN+1 ALWAYS
4. PNTACB -- PRINTS ORIGINAL,SIMULATED, ACTUAL AC BLOCKS
NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS
5. PNTSKP -- PRINTS INCORRECT SKIP MESSAGE
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 13
SEQ 0023
NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS
CMPCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
OF THE EXTEND COMPARE INSTRUCION.
MOVCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
OF THE EXTEND MOVXX INSTRUCTIONS.
CDBCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
OF THE CVTDBX INSTRUCTIONS.
CBDCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
OF THE CVTBDX INSTRUCTIONS.
EDTCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
OF THE EDIT INSTRUCTION AND PRINTS ERROR INFORMATION.
4700 CMPCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
OF THE EXTEND COMPARE INSTRUCION.
4769 MOVCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
OF THE EXTEND MOVXX INSTRUCTIONS.
4856 CDBCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
OF THE CVTDBX INSTRUCTIONS.
4916 CBDCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
OF THE CVTBDX INSTRUCTIONS.
5000 EDTCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
OF THE EDIT INSTRUCTION AND PRINTS ERROR INFORMATION.
THE BYTE TYPE UNDER TEST IS ACCESSED USING "BYTYPE" AS AN INDEX.
MAXIMUM STRING LENGTHS ARE USED FOR PRINTING STRINGS SINCE THE
EDIT INSTRUCTION HAS NO SPECIFICATION OF STRING LENGTHS.
*****************************************************************
5112 MUUO AND PAGE FAIL HANDLERS
*****************************************************************
5115 MUUOHS - MUUO HANDLER INITIALIZATION
CODE TO SETUP MUUO HANDLER IN EXEC MODE
5157 MUUOH - THE ACTUAL MUUO HANDLERS (EXEC AND USER MODE)
5186 MUUOHX - UNEXPECTED MUUO ERROR REPORTING
5216 LUUOH - LUUO HANDLER
5228 LUUOHX - UNEXPECTED LUUO ERROR REPORTING
5248 PFHAND -- PAGE FAIL HANDLER
IN THIS ROUTINE THE CURRENT VALUE OF THE EXTEND INSTR AC BLOCK
IS COMPARED WITH THE CORRECT RESULT WHICH IS STORED IN MEMORY.
ALSO, THE PAGE FAIL WORD AND PAGE FAIL PC ARE COMPARED AGAINST
THE CORRECT VALUES. IF A DISCREPANCY EXISTS THE ROUTINE TAKES
AN ERROR RETURN THROUGH "PFHEPC" BACK TO THE MAIN TEST.
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 14
SEQ 0024
ON ENTRY, AC4 CONTAINS THE ADDRESS OF THE CORRECT AC BLOCK STORED
IN MEMORY, INSTR CONTAINS THE INDEX TO THE SIXBIT INSTRUCTION
NAME TABLE.
5312 PFPNT -- PAGE FAIL ERROR PRINTER
ON ENTRY, AC4 CONTAINS THE ADDRESS OF THE CORRECT AC BLOCK STORED
IN MEMORY, INSTR CONTAINS THE INDEX TO THE SIXBIT INSTRUCTION
NAME TABLE.
*****************************************************************
5358 PROGRAM SUPPORT ROUTINES
*****************************************************************
5361 EDTSET -- ROUTINE TO SET UP THE AC BLOCK FOR THE EDIT INSTRUCTION
ACCORDING TO THE PARAMETERS CONTAINED IN THE CASE TABLE.
UPON ENTRY, THE RIGHT HALF OF AC7 CONTAINS THE ADDRESS OF THE
CASE TABLE PARAMETER WORD.
RETURN IS ALWAYS +1.
5507 PFINS -- ROUTINE TO PRINT INSTRUCTION NAME
ENTRY WITH SCRIPT TABLE INDEX IN INSTR
5526 CDBTN -- USED IN CVTDBT PF TEST
5533 CBDTRN -- ROUTINE TO SET UP THE TRANSLATE TABLE FOR THE CVTBDX INSTR
5541 COMAC -- ROUTINE USED IN PAGE FAIL TESTING TO COMPARE THE
FINAL AC BLOCK WITH THAT OF THE SIMULATOR
5570 CHKTRN -- ROUTINE TO CHECK THE OPCODE UNDER TEST AND SET TRANSFG
IF IT IS A TRANSLATE INSTRUCTION.
TAKE OPCODE IN AC0, RTN +1 ALWAYS
5589 PAGSET -- ROUTINE TO CLEAR PAGE TABLE,
SET UP RELOCATION DATA IN THE TABLE,
SET PAGING AND TRAP ENABLE,
AND LOAD THE USER BASE REGISTER
5626 PFACB -- ROUTINE TO SETUP PAGE FAIL AC BLOCK
ENTRY WITH AC3 CONTAINING ADDRESS OF BLOCK IN MEMORY
5653 SVAC,RSTAC- ROUTINES TO SAVE AND RESTORE AC'S 0-16
5691 CLRSTR -- ROUTINE WHICH CLEARS THE SOURCE, DESTIN, AND SIMDES BLOCKS
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 15
SEQ 0025
5712 COMSTR -- ROUTINE TO COMPARE SIMULATED AND ACTUAL DESTINATION STRINGS
*****************************************************************
5731 PROGRAM PRINT ROUTINES
*****************************************************************
5734 PNTACB -- ROUTINE TO PRINT THE ORIGINAL, CORRECT AND ACTUAL AC BLOCKS
5765 PNTINS -- ROUTINE TO PRINT THE CURRENT INSTRUCTION IN ENGLISH
5776 PNTSKP -- ROUTINE WHICH PRINTS INCORRECT INSTRUCTION RETURN MESSAGE
5796 PNTSTR -- ROUTINE WHICH PRINTS STRINGS IN ROWS OF 5 BYTES EACH
ON ENTRY AC1 CONTAINS THE LENGTH OF THE STRING TO BE PRINTED
AND AC2 CONTAINS THE BYTE POINTER TO BE USED.
5829 PNTCAS -- ROUTINE WHICH PRINTS CASE CURRENT CASE #. (AC1)= CASE TABLE ADDR)
5846 RANLEN -- ROUTINE WHICH RETURNS STRING LENGTHS SEQUENTIALLY FROM 2 - 20 (10)
5862 PNTRAN -- ROUTINE TO PRINT THE CONTENTS OF A TRANSLATION TABLE
LOCATED AT E1 FOR LENGTH OF 20
*****************************************************************
5909 GENERAL PROGRAM TABLE STORAGE
*****************************************************************
5932 EXTENDED OPERATOR OPCODE TABLE
5954 SOFTWARE INTERRUPT TABLE AREA
5977 EXECUTE INSTRUCTION STORAGE (EO,E1)
5991 SIXBIT EXTENDED OPERATOR MNEMONIC TABLE
6012 ORIGSV,RESSV -- AREAS WHICH HOLD ORIGINAL AND FINAL AC BLOCK RESULTS
OF EXTEND INSTRUCTIONS
6020 SOURCE,DESTIN,SIMDES -- STORAGE FOR SOURCE,DESTINATION AND SIMULATED
DESTINATION STRINGS
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 16
SEQ 0026
*****************************************************************
6033 INSTRUCTION SPECIFIC STORAGE AREA
*****************************************************************
6036 SKPTAB -- INSTRUCTION SKIP TABLE
6049 BYTAB -- TABLE CONTAINING ENGLISH FOR THE BYTE TYPE OPERATORS.
USED IN ERROR PRINTING ROUTINE FOR EDIT INSTRUCTION. IT IS
INDEXED BY "BYTYPE" ( SPECIFIED IN EACH EDIT SUBMODULE TEST.)
6066 PATTBL -- EDIT INSTRUCTION PATTERN TABLE
6073 EDXWD -- TABLES OF THE FIRST WORD OF THE PATTERN BYTE TABLE. THE
TABLE IS INDEXED ACCORDING TO THE VALUE OF THE PB#. THE "X"
IN EDXWD STANDS FOR THE SUBMODULE TEST BEING PERFORMED.
6133 OFFTAB -- VARIOUS VALUES USED FOR OFFSET IN CVTXX INSTR
6142 DATTAB -- DATA TABLE FOR CVTDBO INSTRUCTIONS
6166 DATCBD -- DATA TABLE FOR CVTBDX INSTRUCTION
6196 LTAB -- STRING LENGTH TABLE USED IN CDBXX AND CBDXX INSTRUCTIONS
6205 STRING PATTERNS FOR CMPXX INSTRUCTIONS
6214 PPTAB,PPTAB1 -- EDIT INSTR SIMULATOR PATTERN POINTER JUMP TABLES
6234 EDIT INSTRUCTION BYTE POINTERS
6250 PFBLK -- STORAGE FOR AC BLOCKS USED IN PAGE FAIL TEST
6391 PFRESX -- STORAGE AREA WHICH CONTAINS THE CORRECT INTERMEDIATE
RESULTS OF ALL INSTRUCTIONS AFTER PAGE FAILURE.
*****************************************************************
6509 INSTRUCTION CASE TABLES
*****************************************************************
6512 CMPCAS -- PARAMETER CASE TABLE FOR COMPARE INSTRUCTIONS
6560 MOVCAS -- PARAMETER CASE TABLE FOR MOVE STRING INSTRUCTIONS
6591 CDBCAS -- PARAMETER CASE TABLE FOR CVTDBO AND CVTDBT INSTRUCTIONS
6629 CBDCAS -- PARAMETER CASE TABLE FOR CVTBD0 AND CVTBDT INSRUCTIONS
6667 EDTCAS -- PARAMETER CASE TABLE FOR EDIT INSTRUCTION
DFKCC LST DECDOC VER 00.25 12-JAN-87 13:20:13 PAGE 17
SEQ 0027
*****************************************************************
6714 *STOR* RESERVED STORAGE, JULY 19,1977
*****************************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1
DFKCCT MAC 8-Jan-87 14:37 MAINDEC-10-DFKCC SEQ 0028
1 SUBTTL MAINDEC-10-DFKCC
2
3 000000 MCNVER==0
4 000002 DECVER==2
5
6 XLIST
7 LIST
8
9 NAME \MCNVER,\DECVER^
10
11 TITLE DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2^
12
13 ;COPYRIGHT (C) 1979
14 ;DIGITAL EQUIPMENT CORPORATION
15 ;MARLBORO, MASS. 01754
16
17 ;AUTHOR: JOHN R. KIRCHOFF
18
19 ;MAINTAINER: LARGE SYSTEMS DIAGNOSTIC ENGINEERING
20
21 000137 LOC 137
22 000137 000000 000002 MCNVER,,DECVER
23
24 SEARCH MONSYM
25 SEARCH MACSYM
26 NOSYM
27
28 IF2,<PRINTX [STARTING PASS 2]>
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 2
DFKCCT MAC 8-Jan-87 14:37 DIAGNOSTIC PARAMETERS SEQ 0029
29 SUBTTL DIAGNOSTIC PARAMETERS
30
31 000001 EXCASB==1 ;ASSEMBLE FOR EXEC MODE OPERATION
32 000001 USRASB==1 ;ASSEMBLE FOR USER MODE OPERATION
33 000100 DEBUG==100 ;SAVE AN AREA FOR DEBUG (CALLED PATCH)
34 000001 ITERAT==1 ;USER MODE PROGRAM ITERATIONS
35 000001 PGMEND==1 ;THE ASSEMBLY PROGRAM END STATEMENT
36 000001 KL10==1 ;ASSEMBLE FOR KL10
37 000001 KL10P0==1
38
39 030000 SADR1= BEGIN
40 030000 SADR2= BEGIN
41 030000 SADR3= BEGIN
42 030007 SADR4= SRTDDT
43 030061 SADR5= $BEND2
44 030007 SADR6= SRTDDT
45 254200 030000 SADR7= HALT BEGIN
46 254200 030000 SADR8= HALT BEGIN
47 254200 030000 SADR9= HALT BEGIN
48 254200 030000 SADR10= HALT BEGIN
49 254200 030000 SADR11= HALT BEGIN
50 000000 PAREA1= 0
51 000017 PAREA2= 17
52 444653 434300 PAREA3= SIXBIT /DFKCC/
53 605664 000000 PAREA4= SIXBIT /PNT/
54 000000 PAREA5= 0
55 000000 PAREA6= 0
56
57 000134 .JBINT=134 ;TOPS-10 ERROR INTERCEPTING BLOCK
58
59 367640 000000 OPDEF REPTLP [SOJG REPT,] ;REPEAT LOOP
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 3
DFKCCT MAC 8-Jan-87 14:37 PROGRAM PARAMETERS SEQ 0030
60 SUBTTL PROGRAM PARAMETERS
61
62 ; **********************************************************************
63 ;*ACCUMULATOR ASSIGNMENTS
64 ; **********************************************************************
65
66 000010 SLEN= 10
67 000010 AC= 10
68 000010 BDH= 10
69 000010 PADDR= 10
70 000011 SP= 11
71 000011 BDL= 11
72 000013 DLEN= 13
73 000013 DBH= 13
74 000013 MA= 13
75 000014 DP= 14
76 000014 DBL= 14
77
78 000002 SLEN1= 2
79 000003 SP1= 3
80 000005 DLEN1= 5
81 000004 DP1= 4
82 000001 OP1= 1
83
84 000000 AC0= 0
85 000001 AC1= 1
86 000002 AC2= 2
87 000003 AC3= 3
88 000004 AC4= 4
89 000005 AC5= 5
90 000006 AC6= 6
91 000007 AC7= 7
92 000010 AC10= 10
93 000011 AC11= 11
94 000012 AC12= 12
95 000013 AC13= 13
96 000014 AC14= 14
97 000015 AC15= 15
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 4
DFKCCT MAC 8-Jan-87 14:37 PROGRAM PARAMETERS SEQ 0031
98
99 ; **********************************************************************
100 ;*CASE TABLE COMMAND WORD BIT DEFINITIONS - LEFT HALF
101 ; **********************************************************************
102
103 ; **************************************************
104 ;STRING LENGTH INDICATOR BITS
105 ; **************************************************
106
107 400000 000000 EQLEN== 1B0 ;STRINGS ARE OF EQUAL LENGTH
108 200000 000000 SZERO== 1B1 ;SOURCE STRING IS ZERO IN LENGTH
109 100000 000000 DZERO== 1B2 ;DESTINATION STRING IS ZERO IN LENGTH
110 040000 000000 DSZER== 1B3 ;SOURCE AND DESTINATION STRING ARE ZERO LENGTH
111 020000 000000 SLONG== 1B4 ;SOURCE STRING IS LONGER THAN DESTIN
112
113 ; **************************************************
114 ;PATTERN DEFINITION BITS
115 ; **************************************************
116
117 010000 000000 ALTPT== 1B5 ;PATTERN IS ALTERNATING 1'S AND 0'S
118 004000 000000 ONEPT== 1B6 ;PATTERN IS ALL ONE'S
119 002000 000000 ONESPT== 1B7 ;PATTERN IS EQUAL TO 0,,1
120
121 ; **************************************************
122 ;FILLER TYPE INDICATOR BITS
123 ; **************************************************
124
125 001000 000000 EQFIL== 1B8 ;FILLER IS EQUAL TO PATTERN
126 000400 000000 LFILL== 1B9 ;FILLER IS SMALL
127 000200 000000 GFILL== 1B10 ;FILLER IS LARGE
128
129 ; **************************************************
130 ;BYTE SIZE INDICATOR BITS
131 ; **************************************************
132
133 000100 000000 S44== 1B11 ;SOURCE BYTE SIZE IS FULL WORD (0= 5 BIT)
134 000040 000000 D44== 1B12 ;DESTIN BYTE SIZE IS FULL WORD (0= 5 BIT)
135
136 ; **************************************************
137 ;FIRST AND LAST BYTE ADJUST INDICATOR BITS
138 ; **************************************************
139
140 000020 000000 ALS== 1B13 ;ADJUST LAST BYTE IN SOURCE STRING
141 000010 000000 ALD== 1B14 ;ADJUST LAST BYTE IN DESTINATION STRING
142 000004 000000 AFS== 1B15 ;ADJUST FIRST BYTE IN SOURCE STRING
143
144 000002 000000 B0== 1B16 ;INDICATOR OF WHERE INTIAL BINARY DATA GOES
145 000001 000000 HW== 1B17 ;INITIAL BINARY DATA TO HIGH OR LOW WORD
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 5
DFKCCT MAC 8-Jan-87 14:37 PROGRAM PARAMETERS SEQ 0032
146
147 ; **********************************************************************
148 ;*CASE TABLE COMMAND WORD BIT DEFINITIONS - RIGHT HALF
149 ; **********************************************************************
150
151 ; **************************************************
152 ;INITIAL FLAG BITS (FOR TRANSLATE INSTRUCTIONS)
153 ; **************************************************
154
155 400000 000000 SFL== 1B0
156 100000 000000 MFL== 1B2
157 040000 000000 NFL== 1B3
158
159 ; **************************************************
160 ;TRANSLATION TABLE CONTROL BITS (FOR TRANSLATE INSTRUCTIONS)
161 ;SPECIFIES FUNCTIONS FOR TWO HALFWORDS OF THE TRANSLATION TABLE
162 ; **************************************************
163
164 020000 000000 C1== 1B4
165 010000 000000 C2== 1B5
166 004000 000000 C3== 1B6
167 002000 000000 C4== 1B7
168 001000 000000 C5== 1B8
169 000400 000000 C6== 1B9
170
171 ; **************************************************
172 ;DATA SELECTION TABLE INDEX BITS (CVTXXX INSTRUCTIONS)
173 ; **************************************************
174
175 000400 DATA0== 1B27
176 000200 DATA1== 1B28
177 000100 DATA2== 1B29
178 000700 DATA== 1B27!1B28!1B29
179
180 ; **************************************************
181 ;STRING LENGTH TABLE INDEX BITS (CVTXXX INSTRUCTIONS)
182 ; **************************************************
183
184 000040 STRL0== 1B30
185 000020 STRL1== 1B31
186 000060 STRL== 1B30!1B31
187
188 ; **************************************************
189 ;BYTE OFFSET TABLE INDEX BITS (FOR MOVXX AND CVTXX INSTRUCTIONS)
190 ; **************************************************
191
192 000010 OFF0== 1B32
193 000004 OFF1== 1B33
194 000014 OFF== 1B32!1B33
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 6
DFKCCT MAC 8-Jan-87 14:37 PROGRAM PARAMETERS SEQ 0033
195
196 ; **********************************************************************
197 ; CONT'D - CASE TABLE COMMAND WORD BIT DEFINITIONS - RIGHT HALF
198 ; **********************************************************************
199
200 ; **************************************************
201 ;INITIAL PATTERN BYTE # DEFINITION BITS (USED IN EDIT INSTRUCTION)
202 ; **************************************************
203
204 000002 PB1== 1B34
205 000001 PB2== 1B35
206 000003 PB== 1B34!1B35
207
208 ; **********************************************************************
209 ;BIT DEFINITIONS USED TO SPECIFY FLAG & TRANSLATION TABLE CONTROL BITS
210 ;IN CASE TABLES
211 ; **********************************************************************
212
213 400000 SFL1== 400000
214 200000 MFL1== 200000
215 100000 NFL1== 100000
216
217 040000 C1A== 040000
218 020000 C2A== 020000
219 010000 C3A== 010000
220 004000 C4A== 004000
221 002000 C5A== 002000
222 001000 C6A== 001000
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 7
DFKCCT MAC 8-Jan-87 14:37 PROGRAM PARAMETERS SEQ 0034
223
224 ; **********************************************************************
225 ;DEFINITION OF THE NUMBER OF PLACES THAT THE INDEX TYPE BITS IN THE
226 ; CASE WORD MUST BE SHIFTED TO ISOLATE THEM IN THE RIGHT-MOST
227 ; PART OF THE WORD.FACILITATES EASY ALTERATION OF THE CASE TABLE
228 ; BIT DEFINITIONS FOR MAINTAINANCE PURPOSES.
229 ; **********************************************************************
230
231 777777 777776 OFFSH== -2
232 777777 777774 STRLSH== -4
233 777777 777772 DATASH== -6
234 000000 PBSH== 0
235
236 ; **********************************************************************
237 ;*INSTRUCTION SKIP DECISION BITS (FOR CMPXX INSTRUCTIONS)
238 ; **********************************************************************
239
240 000004 GF== 1B33 ;SET IF STR1 > STR2
241 000002 EF== 1B34 ;SET IF STR1 = STR2
242 000001 LF== 1B35 ;SET IF STR1 < STR2
243
244 ; *******************************************************************
245 ;*EDIT INSTRUCTION PATTERN CODE AND TRANSLATE TABLE DEFINITIONS
246 ; *******************************************************************
247
248 000000 STOP== 0
249 000001 SELECT== 1
250 000002 SIGST== 2
251 000003 FLDSEP== 3
252 000004 EXCHMD== 4
253 000005 NOP== 5
254 000100 MESSAG== 100
255 000500 SKPM== 500
256 000600 SKPN== 600
257 000700 SKPA== 700
258 000200 NOP1== 200
259 000300 NOP2== 300
260 000400 NOP3== 400
261 000006 NOP4== 006
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 8
DFKCCT MAC 8-Jan-87 14:37 PROGRAM PARAMETERS SEQ 0035
262
263 ; **********************************************************************
264 ;*EDMOD -- MACRO FOR EDIT INSTRUCTION TEST SUBMODULES
265 ; **********************************************************************
266
267 DEFINE EDMOD (%TITL,%TIT1,TITLN,TABWD,FILWD,BYTNM)< LALL
268
269 %TITL: MOVEI .
270 MOVEM TESTPC
271
272 MOVEI AC0,BYTNM ;INDEX TO BYTE TYPE TABLE
273 MOVEM BYTYPE ;STORE
274
275 SETZM OFFSET
276 CAIN AC0,1 ;EXCHMD OPERATOR?
277 SETOM OFFSET ;YES
278
279 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
280 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
281
282 %TIT1: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
283 SETZM SKPWD2
284
285 GO CLRSTR ;CLEAR STRING BYTES
286
287 MOVE AC2,FILWD ;TABLE FILLER BYTE TYPE
288 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
289 MOVE AC0,[PATTBL,,PATTBL+1]
290 BLT AC0,PATTBL+^D9
291
292 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
293
294 LDB AC3,PATBN ;GET THE CURRENT PB#
295 MOVE AC1,TABWD(AC3) ;GET TABLE TEST WORD
296 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
297
298 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
299 MOVE MA,[POINT 0,SOURCE] ;YES
300
301 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
302 BLT AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 9
DFKCCT MAC 8-Jan-87 14:37 PROGRAM PARAMETERS SEQ 0036
303
304 ; **************************************************
305 GO EDTSIM ;SIMULATE THE INSTRUCTION
306 SETOM SKPWD1
307 ; **************************************************
308
309 SKIPE OFFSET ;EXCHMD OPERATOR?
310 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
311
312 ; **************************************************
313 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
314 SETOM SKPWD2
315 ; **************************************************
316
317 GO EDTCOM ;COMPARE THE RESULTS
318 ERROR %TIT1,13,0,0,,,EDTPNT
319 LALL
320 AOBJN AC7,%TIT1 ;DO THE NEXT CASE
321
322 SETZM OFFSET
323 JRST TITLN ;FINISHED - GO TO NEXT SUBMODULE
324 SALL>
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 10
DFKCCT MAC 8-Jan-87 14:37 PROGRAM PARAMETERS SEQ 0037
325
326 ; **********************************************************************
327 ;*PFMAC -- MACRO WHICH SETS UP, EXECUTES, AND VERIFIES PAGE FAIL
328 ; **********************************************************************
329
330 DEFINE PFMAC (INS,PFC,COR,CAS,PRE,TRAN)< LALL
331
332 PRE'ST: MOVEI .
333 MOVEM TESTPC
334
335 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS
336
337 HRLZI AC1,INS ;AC1/-# PRE INSTR,,0
338 HRRI AC1,PRE'TAB ;AC1/-# PRE INSTR,,OPCODE TABLE ADDR
339
340 SETZM E0
341 SETZM E0+1
342
343 PRE'PF0: HRREI AC2,PFC ;AC2/-# PAGE FAIL CASES
344
345 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ
346 CAIN AC0,017
347 SUBI AC2,1
348
349 CAIE AC0,004 ;EDIT INSTRUCTION?
350 JRST PRE'PFA
351
352 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE
353 MOVEM AC0,PATTBL
354 MOVE AC0,[PATTBL,,PATTBL+1]
355 BLT AC0,PATTBL+^D8
356
357 MOVE AC0,STOPWD
358 MOVEM AC0,PATTBL+^D9
359
360 PRE'PFA: MOVEI AC3,CAS ;INITIAL AC BLOCK TABLE
361 MOVEI AC4,COR ;ADDR OF INTERMEDIATE RESULT TABLE
362
363 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
364 SETZM SKPWD2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 11
DFKCCT MAC 8-Jan-87 14:37 PROGRAM PARAMETERS SEQ 0038
365
366 ; **************************************************
367 ;SET UP THE SOURCE AND DESTINATION STRINGS
368 ; **************************************************
369
370 GO CLRSTR
371
372 SETZM 75750 ;CLEAR THE FAIL STRING AREA
373 MOVE AC0,[75750,,75751]
374 BLT AC0,76100
375
376 PRE'PF1: GO PFACB ;SET UP THE INITIAL AC BLOCK
377
378 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE
379 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING
380
381 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION
382
383 SKIPE FILLF ;FILLER FAILURE CASE?
384 DPB AC0,[POINT 9,400777,8] ;YES
385
386 SKIPN FILLF
387 DPB AC0,E0OP ;NO
388
389 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION?
390 JRST PRE'PC ;NO
391
392 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE
393 SKIPE FILLF ;FILLER FAILURE CASE?
394 HRRM AC0,400777 ;YES
395 HRRM AC0,E0 ;NO
396
397 MOVE AC0,[1,,1]
398 GO TRAN ;SETUP THE TRANSLATION TABLE
399 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 12
DFKCCT MAC 8-Jan-87 14:37 PROGRAM PARAMETERS SEQ 0039
400
401 PRE'PC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
402 BLT AC0,ORIGSV+4
403
404 SKIPE FILLF ;FILLER FAILURE CASE?
405 MOVE AC0,[0,,PRE'PC2] ;YES
406 SKIPN FILLF
407 MOVE AC0,[0,,PRE'PC1] ;NO
408 MOVEM FAILOC# ;STORE IT
409
410 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED
411 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG
412
413 MOVEI PRE'PFX
414 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
415
416 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP
417
418 SKIPE FILLF ;FILLER FAILURE CASE?
419 JRST PRE'PC2 ;YES
420
421 ; **************************************************
422 PRE'PC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
423 SETOM SKPWD2 ;NOTE SKIP RETURN
424 ; **************************************************
425
426 JRST PRE'PF3
427
428 ; **************************************************
429 PRE'PC2: EXTEND AC,400777 ;MAKE E0+1 FAIL
430 SETOM SKPWD2 ;NOTE SKIP RETURN
431 ; **************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 13
DFKCCT MAC 8-Jan-87 14:37 PROGRAM PARAMETERS SEQ 0040
432
433 ; **************************************************
434 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
435 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
436 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
437 ;INSTRUCTION AND TO HERE.
438 ; **************************************************
439
440 PRE'PF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR?
441 JRST DO'PRE ;YES - OK
442
443 ERROR PRE'PF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS
444 LALL
445 JRST PRE'NXT ;GO DO THE NEXT CASE
446
447 PRE'PFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ?
448 JRST PRE'PF9 ;YES, CHECK INTERMEDIATE RESULTS
449
450 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT
451 ERLP2 PRE'PF0
452 LALL
453 JRST PRE'NXT
454
455 PRE'PF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT
456 ERLP2 PRE'PF0
457 LALL
458 JRST PRE'NXT
459
460 ; **************************************************
461 DO'PRE: GO PRE'SIM ;SIMULATE THE INSTRUCTION
462 SETOM SKPWD1 ;NOTE A SKIP RETURN
463 ; **************************************************
464
465 GO COMAC ;COMPARE THE FINAL RESULTS
466 ERROR PRE'PF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT
467 LALL
468 PRE'NXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS
469 ADDM AC0,AC4
470 ADDI AC0,1
471 ADDM AC0,AC3
472
473 AOJL AC2,PRE'PF1 ;DO THE NEXT PF CASE
474
475 AOBJN AC1,PRE'PF0 ;DO THE NEXT INSTRUCTION
476 SETZM OFFSET
477 SALL>
478 ;END OF FILE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1
PARAM KLM 29-Sep-86 15:26 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, AUG 1,1977 SEQ 0041
479 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, AUG 1,1977
480
481 DEFINE S,<;*********************************************************************>
482
483 S^;*********************************************************************^
484 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
485 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
486 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
487 S^;*********************************************************************^
488
489 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
490 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
491 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
492
493 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
494 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
495 010000 DING== 010000 ;RING BELL ON ERROR
496
497 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
498 002000 ERSTOP==002000 ;HALT ON TEST ERROR
499 001000 PALERS==001000 ;PRINT ALL ERRORS
500
501 000400 RELIAB==000400 ;RELIABILITY MODE
502 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
503 000100 INHPAG==000100 ;INHIBIT PAGING
504
505 000040 MODDVC==000040 ;MODIFY DEVICE CODE
506 000020 INHCSH==000020 ;INHIBIT CACHE
507 000010 OPRSEL==000010 ;OPERATOR SELECTION
508
509 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
510
511 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER
512
513 ;SWITCH 17 RESERVED !!!
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 2
PARAM KLM 29-Sep-86 15:26 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976 SEQ 0042
514 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976
515
516 S^;*********************************************************************^
517 ;*SPECIAL SUBPROGRAM LINKAGES
518 S^;*********************************************************************^
519
520 027772 FSELNK= 27772 ;FILE SELECT LINK
521 027773 FRDLNK= 27773 ;FILE READ LINK
522 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
523 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
524 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
525 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
526
527 S^;*********************************************************************^
528 ;*SPECIAL SUBROUTINE FATAL HALTS
529 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
530 S^;*********************************************************************^
531
532 ;ADDRESS TAG REASON
533 ;---------------------
534
535 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
536 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
537 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
538 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
539 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL
540 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
541 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
542 ; 1017 EOPERR ;END OF PROGRAM ERROR
543 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
544
545 S^;*********************************************************************^
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 3
PARAM KLM 29-Sep-86 15:26 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976 SEQ 0043
546 S^;*********************************************************************^
547 ;OPERATOR DEFINITIONS (NON-UUO'S)
548 S^;*********************************************************************^
549
550 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
551 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
552 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
553 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
554 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
555 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
556 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
557 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
558
559 S^;*********************************************************************^
560 ;*SUBROUTINE INITIALIZATION CALL
561 S^;*********************************************************************^
562
563 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
564
565 S^;*********************************************************************^
566 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
567 S^;*********************************************************************^
568
569 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
570 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
571
572 S^;*********************************************************************^
573 ;*TERMINAL INPUT UUO'S
574 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
575 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
576 S^;*********************************************************************^
577
578 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
579 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
580 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
581 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
582 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
583 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
584 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
585 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
586 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
587 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
588 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 4
PARAM KLM 29-Sep-86 15:26 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976 SEQ 0044
589 ;*TERMINAL OUTPUT UUO'S.
590
591 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
592 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
593 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
594 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
595 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
596 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
597 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
598 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
599 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
600 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
601 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
602 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
603 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
604 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
605 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
606 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
607 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
608 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
609 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
610 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
611 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
612 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
613 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
614 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
615 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
616 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
617 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
618 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
619 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
620 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
621 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
622 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
623 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
624 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
625 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
626 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
627 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
628 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
629 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
630 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
631 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
632 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 5
PARAM KLM 29-Sep-86 15:26 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976 SEQ 0045
633 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
634 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
635 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
636 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
637 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
638 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
639 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
640 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
641 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
642 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
643 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
644 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
645 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
646
647 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
648
649 DEFINE PMSG (ARG),<
650 PSIXM [SIXBIT\ARG'_\]>
651
652 DEFINE PMSGF (ARG),<
653 PSIXMF [SIXBIT\ARG'_\]>
654
655 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
656 ;* CONSERVES CORE OVER ASCIZ
657
658 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
659
660 ;*CONSOLE SWITCH INPUT UUO.
661 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
662 ;* USER MODE.
663
664 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
665
666 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
667 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
668
669 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK
670 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER
671
672 ;*KL10 ONLY CACHE OPERATION UUO'S
673
674 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
675 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
676 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 6
PARAM KLM 29-Sep-86 15:26 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976 SEQ 0046
677 ;*END OF PASS/PROGRAM UUOS
678
679 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
680 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
681
682 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
683 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
684
685 ;*MEMORY MANAGEMENT UUO'S
686 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
687 ;*ADDRESS CONVERSION, ETC...
688
689 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
690 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
691 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
692 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
693 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
694 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
695 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
696
697 ;*DEVICE CODE MODIFICATION UUO
698 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
699 ;*IOT'S TO A DIFFERENT DEVICE CODE.
700
701 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
702 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
703
704 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
705 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
706
707 ;*"DIAMON" FILE SELECTION AND READ UUOS
708
709 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
710 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
711 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
712 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
713
714 ;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
715
716 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE
717
718 XLIST
719 IFNDEF KLOLD,<LIST
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 7
PARAM KLM 29-Sep-86 15:26 ERROR HANDLING UUO DEFINITIONS, JAN 5,1976 SEQ 0047
720 SUBTTL ERROR HANDLING UUO DEFINITIONS, JAN 5,1976
721
722 S^;*********************************************************************^
723 ;*ERROR HANDLER PARAMETERS
724 S^;*********************************************************************^
725
726 036000 000000 OPDEF ERUUO [36B8] ;ERROR CALL UUO
727 035000 000000 OPDEF ERLOOP [35B8] ;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
728 035040 000000 OPDEF ERLP1 [35B8!1B12] ;ERROR LOOP IF PC'S MATCH
729 035100 000000 OPDEF ERLP2 [35B8!2B12] ;ERROR LOOP IF ANY ERROR
730 034000 000000 OPDEF REPTUO [34B8] ;REPEAT LOOP UUO
731
732 ;*THE ERROR HANDLER MACROS
733
734 ;*A MACRO TO REPORT AN ERROR AND LOOP
735
736 DEFINE ERROR (ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
737 SALL
738 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
739 CORECT,,ACTUAL
740 [SIXBIT\D'_\],,ERR]
741 XALL
742 ERLOOP ADR ;IF ERROR, LOOP TO ADR
743 >
744
745 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP
746
747 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)<
748 SALL
749 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
750 CORECT,,ACTUAL
751 [SIXBIT\D'_\],,ERR]
752 XALL>
753
754 >;END OF KLOLD CONDITIONAL
755
756 XLIST
757 LIST
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1
FIXED KLM 29-Sep-86 15:26 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977 SEQ 0048
758 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977
759
760 030000 LOC 30000
761
762 S^;*********************************************************************^
763 ;*PROGRAM STARTING ADDRESSES
764 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
765 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
766 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
767 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
768 S^;*********************************************************************^
769
770 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
771 030001 254 00 0 00 030600 $START: JRST START ;MODE CHECK STARTING ADDRESS
772
773 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
774
775 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
776
777 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
778
779 030005 254 00 0 00 030000 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
780
781 030006 254 00 0 00 030000 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
782
783 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
784 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
785
786 030010 254 00 0 00 030615 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
787 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
788 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
789
790 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
791 030014 254200 030000 START2: SADR8 ; "
792 030015 254200 030000 START3: SADR9 ; "
793 030016 254200 030000 START4: SADR10 ; "
794 030017 254200 030000 START5: SADR11 ; "
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 2
FIXED KLM 29-Sep-86 15:26 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977 SEQ 0049
795 S^;*********************************************************************^
796 ;*PROGRAM FIXED PARAMETER AREA
797 S^;*********************************************************************^
798
799 030020 444653 434300 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
800 030021 605664 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
801 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER
802 030023 000000 000017 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
803 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
804 030025 000000 035535 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
805 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
806 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
807 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
808 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
809 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
810 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
811 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
812 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
813 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
814
815 S^;*********************************************************************^
816 ;*PROGRAM VARIABLE PARAMETER AREA
817 S^;*********************************************************************^
818
819 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
820 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
821 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
822 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
823 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
824 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
825 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
826 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
827 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
828 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
829 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
830 030052 000000 000000 ERRPC: 0 ;ERROR PC
831 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
832 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
833 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
834 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 3
FIXED KLM 29-Sep-86 15:26 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977 SEQ 0050
835 S^;*********************************************************************^
836 ;*SPECIAL PROGRAM DISPATCH ADDRESSES
837 S^;*********************************************************************^
838
839 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
840 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
841 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
842 030062 000000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
843 030063 000000 030007 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
844 030064 CPOPJ1: ;SKIP RETURN
845 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
846 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
847 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
848 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
849 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
850 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
851 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
852 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
853 030073 255 00 0 00 000000 $USRHL: JFCL ; "
854 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
855 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
856 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
857 030077 255 00 0 00 000000 RESRT2: JFCL ; "
858 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
859 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
860 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
861
862 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
863 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
864 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
865
866 S^;*********************************************************************^
867 ;*PROCESSOR CONTROL STORAGE
868 S^;*********************************************************************^
869
870 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
871 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
872 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
873 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
874 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
875
876 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
877 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
878
879 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
880 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
881 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
882 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
883 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
884 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
885 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 4
FIXED KLM 29-Sep-86 15:26 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977 SEQ 0051
886 S^;*********************************************************************^
887 ;*UUO DISPATCH TABLE
888 S^;*********************************************************************^
889 XLIST
890 LIST
891 030124 030070 030070 UUODIS: LUUO1,,$UUOER
892 030125 030070 030070 LUUO3,,LUUO2
893 030126 030070 030070 LUUO5,,LUUO4
894 030127 030070 030070 LUUO7,,LUUO6
895 030130 030070 030070 LUUO11,,LUUO10
896 030131 030070 030070 LUUO13,,LUUO12
897 030132 030070 030070 LUUO15,,LUUO14
898 030133 030070 030070 LUUO17,,LUUO16
899 030134 030070 030070 LUUO21,,LUUO20
900 030135 030070 030070 LUUO23,,LUUO22
901 030136 030070 030070 LUUO25,,LUUO24
902 030137 030070 030070 LUUO27,,LUUO26
903 030140 030070 030070 LUUO31,,LUUO30
904 030141 030070 030070 LUUO33,,LUUO32
905
906 S^;*********************************************************************^
907 ;*MEMORY MANAGMENT STORAGE
908 S^;*********************************************************************^
909
910 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
911 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
912 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
913 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
914 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
915
916 S^;*********************************************************************^
917 ;*PRINT CONTROL STORAGE
918 S^;*********************************************************************^
919
920 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
921 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
922 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
923 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
924 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
925 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
926 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
927 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
928 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
929 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
930 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
931 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
932 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
933 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
934 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
935 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
936 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
937 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
938 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 5
FIXED KLM 29-Sep-86 15:26 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977 SEQ 0052
939 S^;*********************************************************************^
940 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
941 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
942 ;* MOVEI NAME
943 ;* PNTA ;OR PNTAF
944 S^;*********************************************************************^
945
946 030242 CRLF: ASCII/
947 030242 015 012 000 000 000 /
948 030243 CRLF2: ASCII/
949
950 030243 015 012 015 012 000 /
951 030244 054 000 000 000 000 COMMA: ASCII/,/
952 030245 056 000 000 000 000 PERIOD: ASCII/./
953 030246 040 000 000 000 000 SPACE: ASCII/ /
954 030247 011 000 000 000 000 TAB: ASCII/ /
955 030250 MINUS:
956 030250 055 000 000 000 000 HYPEN: ASCII/-/
957 030251 053 000 000 000 000 PLUS: ASCII/+/
958 030252 052 000 000 000 000 AST: ASCII/*/
959 030253 100 000 000 000 000 ATSIN: ASCII/@/
960 030254 050 000 000 000 000 LFP: ASCII/(/
961 030255 051 000 000 000 000 RTP: ASCII/)/
962 030256 007 0000000000 BELL: BYTE (7) 007
963 030257 077 000 000 000 000 QUEST: ASCII/?/
964 030260 057 000 000 000 000 SLASH: ASCII!/!
965 030261 044 000 000 000 000 DOLLAR: ASCII/$/
966 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
967 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
968 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
969
970 S^;*********************************************************************^
971 ;*USER MODE OUTPUT FILE INFORMATION
972 S^;*********************************************************************^
973
974 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
975 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
976 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
977 030272 BLOCK 2
978
979 S^;*********************************************************************^
980 ;*DISK UPDATE MODE FILE INFORMATION
981 S^;*********************************************************************^
982
983 030274 $IBUF: BLOCK 3
984 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
985 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
986 030301 BLOCK 2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 6
FIXED KLM 29-Sep-86 15:26 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977 SEQ 0053
987 S^;*********************************************************************^
988 ;*PUSHDOWN LIST CONTROL INFORMATION
989 S^;*********************************************************************^
990
991 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
992 030304 PLISTS: BLOCK 200
993 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
994
995 S^;*********************************************************************^
996 ;*POWER LINE CLOCK FREQUENCY FLAG
997 S^;*********************************************************************^
998
999 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
1000
1001 S^;*********************************************************************^
1002 ;*KL10 CACHE CONTROL FLAGS
1003 S^;*********************************************************************^
1004
1005 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
1006 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
1007
1008 S^;*********************************************************************^
1009 ;*NUMBER INPUT DIGIT FLAG
1010 S^;*********************************************************************^
1011
1012 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
1013
1014 S^;*********************************************************************^
1015 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
1016 S^;*********************************************************************^
1017
1018 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
1019
1020 S^;*********************************************************************^
1021 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
1022 S^;*********************************************************************^
1023
1024 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
1025 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
1026 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
1027
1028 S^;*********************************************************************^
1029 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
1030 S^;*********************************************************************^
1031
1032 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 7
FIXED KLM 29-Sep-86 15:26 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977 SEQ 0054
1033 S^;*********************************************************************^
1034 ;*USER MODE MONITOR TYPE FLAG
1035 S^;*********************************************************************^
1036
1037 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20
1038
1039 S^;*********************************************************************^
1040 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
1041 S^;*********************************************************************^
1042
1043 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
1044
1045 S^;*********************************************************************^
1046 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
1047 S^;*********************************************************************^
1048
1049 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
1050
1051 S^;*********************************************************************^
1052 ;*"SWITCH" CALL USAGE CONTROL
1053 S^;*********************************************************************^
1054
1055 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
1056
1057 S^;*********************************************************************^
1058 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
1059 S^;*********************************************************************^
1060
1061 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
1062 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
1063
1064 S^;*********************************************************************^
1065 ;*SM10 (KS-10) PROCESSOR TYPE FLAG
1066 S^;*********************************************************************^
1067
1068 030524 000000 000000 SM10: 0 ;IF -1 THIS IS A KS-10
1069
1070 S^;*********************************************************************^
1071 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
1072 S^;*********************************************************************^
1073
1074 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
1075
1076 S^;*********************************************************************^
1077 ;*SPECIAL FUTURE EXPANSION ROOM
1078 S^;*********************************************************************^
1079
1080 S^;*********************************************************************^
1081 ;*END OF FIXED STORAGE
1082 S^;*********************************************************************^
1083
1084 030577 LOC 30577
1085 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1
DFKCCM MAC 8-Jan-87 15:04 PROGRAM CONTROL SECTION SEQ 0055
1086 SUBTTL PROGRAM CONTROL SECTION
1087 SALL
1088 ; **********************************************************************
1089 ;*START - INITIALIZATION ROUTINE
1090 ; **********************************************************************
1091
1092 030600 201 00 0 00 030600 START: MOVEI START ;GET ADDRESS OF CURRENT PROGRAM SECTION
1093 030601 202 00 0 00 030051 MOVEM TESTPC ;STORE IT
1094
1095 030602 265 00 0 00 030011 PGMINT ;INITIALIZE PROGRAM
1096
1097 030603 402 00 0 00 041217 SETZM MIC202#
1098 030604 332 00 0 00 030037 SKIPE USER ;USER MODE ?
1099 030605 254 00 0 00 030615 JRST STARTA ;YES, CAN'T DO UCODE CHECK THEN
1100
1101 030606 7 000 00 0 00 000000 BLKI APR,0 ;GET KL10 CPU ID INFO
1102 030607 207 00 0 00 000000 MOVSS ;SEPARATE MICROCODE VERSION NUMBER
1103 030610 405 00 0 00 000777 ANDI 777
1104 030611 301 00 0 00 000202 CAIL 202 ;VERSION 202 OR LATER ?
1105 030612 476 00 0 00 041217 SETOM MIC202 ;YES, SET FLAG
1106 030613 301 00 0 00 000230 CAIL 230 ;IF 230 OR GREATER
1107 030614 402 00 0 00 041217 SETZM MIC202 ;UCODE FIX 202 REMOVED
1108
1109 ; **********************************************************************
1110 ;*STARTA - PROGRAM PASS CONTROL SECTION
1111 ; **********************************************************************
1112
1113 030615 260 17 0 00 034713 STARTA: GO MUUOHS ;SET UP PROGRAM'S OWN MUUO HANDLER
1114 030616 402 00 0 00 041220 SETZM OFFSET
1115
1116 030617 201 00 0 00 000001 MOVEI 1 ;INITIALIZE STRING LENGTH
1117 030620 202 00 0 00 041230 MOVEM RLEN#
1118 030621 402 00 0 00 041215 SETZM INCSKP# ;CLEAR SKIP RETURN FLAG
1119
1120 030622 037 10 0 00 000002 SWITCH
1121 030623 201 01 0 00 000012 MOVEI AC1,^D10
1122 030624 607 00 0 00 000400 TLNN RELIAB ;RELIABILITY MODE?
1123 030625 201 01 0 00 000001 MOVEI AC1,1 ;NO - FAST CYCLE MODE
1124 030626 202 01 0 00 041231 MOVEM AC1,RPEAT#
1125
1126 030627 254 00 0 00 030630 JRST TRAPT1 ;START TESTING
1127
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 2
DFKCCM MAC 8-Jan-87 15:04 MUUO TRAP TESTING SEQ 0056
1128 SUBTTL MUUO TRAP TESTING
1129
1130 ; **********************************************************************
1131 ;*TEST 1 -- EXTENDED OPERATOR EXECUTION TRAP TEST
1132 ;*
1133 ;* THIS TEST EXECUTES ALL EXTENDED OPERATORS IN THE
1134 ;* EXTENDED INSTRUCTION SET AS INSTRUCTIONS.
1135 ;* FOR EXAMPLE, 004 (EDIT) IS EXECUTED AS AN INSTRUCTION OPCODE.
1136 ;* EACH ATTEMPTED EXECUTION SHOULD CAUSE AN LUUO.
1137 ;* IF IT DOES NOT AN ERROR PRINTOUT OCCURS.
1138 ; **********************************************************************
1139 SALL
1140 037317 T= SIXBTZ <EXTENDED OPERATOR EXECUTION TRAP TEST>
1141
1142 030630 201 00 0 00 030630 TRAPT1: MOVEI . ;GET TEST ADDRESS
1143 030631 202 00 0 00 030051 MOVEM TESTPC ;STORE IT
1144 030632 200 15 0 00 041231 MOVE REPT,RPEAT ;GET LOOP COUNTER
1145
1146 030633 514 06 0 00 035557 TRAP1: HRLZ AC6,OPTAB-1 ;AC6/-TABLE LENGTH,,0
1147 030634 541 06 0 00 035560 HRRI AC6,OPTAB ;AC6/-TABLE LENGTH,,TABLE ADDRESS
1148
1149 030635 200 00 0 00 000041 TRAP1A: MOVE 41 ;SAVE SUBROUTINE PKG.TRAP ROUTINE ADDR
1150 030636 202 00 0 00 041235 MOVEM SVLUUO#
1151
1152 030637 200 00 0 00 037326 MOVE [PUSHJ 17,LUUOH] ;GET ADDRESS OF LUUO HANDLER
1153 030640 202 00 0 00 000041 MOVEM 41 ;SETUP FOR UUO INTERCEPTION
1154
1155 030641 476 00 0 00 041214 SETOM GOTRAP# ;INDICATE THAT TRAP IS EXPECTED
1156 030642 200 00 0 06 000000 MOVE (AC6) ;RETRIEVE OPCODE FROM TABLE
1157 030643 402 00 0 00 030645 SETZM EXLAB ;CLEAR INSTRUCTION WORD
1158 030644 137 00 0 00 037327 DPB [POINT 9,EXLAB,8] ;INSERT IN NEXT LOCATION TO BE EXECUTED
1159
1160 ; **************************************************
1161 030645 EXLAB: BLOCK 1 ;WORD THAT HOLDS THE INSTRUCTION
1162 030646 255 00 0 00 000000 JFCL ;IN CASE INSTRUCTION DOESN'T TRAP
1163 ; **************************************************
1164
1165 030647 200 00 0 00 041235 MOVE SVLUUO ;RESTORE SUBROU. PKG.TRAP ROUTINE SETUP
1166 030650 202 00 0 00 000041 MOVEM 41
1167
1168 030651 332 00 0 00 041214 SKIPE GOTRAP ;IF GOTRAP=0 THEN INSTRUCTION TRAPPED
1169 ERROR (TRAP1A,13,EXLAB,0,^_
1170 ^CORRECT=INSTRUCTION,^_
1171 030652 036 13 0 00 037345 ILLEGAL INSTRUCTION EXECUTION FAILED TO CAUSE LUUO)
1172 030653 035 00 0 00 030635 ERLOOP TRAP1A ;IF ERROR, LOOP TO TRAP1A
1173 030654 253 01 0 00 030635 AOBJN 1,TRAP1A ;GET THE NEXT OPCODE FROM THE TABLE
1174
1175 030655 367 15 0 00 030633 REPTLP TRAP1
1176 030656 254 00 0 00 030657 JRST TRAPT2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 3
DFKCCM MAC 8-Jan-87 15:04 MUUO TRAP TESTING SEQ 0057
1177
1178 ; **********************************************************************
1179 ;*TEST 2 -- ILLEGAL EXTENDED OPERATOR TRAP TEST
1180 ;*
1181 ;* THE MICROCODE PERFORMS A RANGE CHECK ON THE EXTENDED
1182 ;* OPERATOR CODE IN E0. (KS ONLY - SINCE THE KS10 IS A SINGLE
1183 ;* SECTION MACHINE AND DOES NOT SUPPORT EXTENDED ADDRESSING,
1184 ;* BITS 9-12 OF E0 SHOULD CAUSE A TRAP IF NOT EQUAL TO ZERO.)
1185 ;* IF AN MUUO DOES NOT OCCUR WHEN ILLEGAL VALUES ARE SPECIFIED
1186 ;* FOR THE E0 WORD AN ERROR PRINTOUT OCCURS.
1187 ; **********************************************************************
1188 SALL
1189 037350 T= SIXBTZ <ILLEGAL EXTENDED OPERATOR TRAP TEST>
1190
1191 030657 201 00 0 00 030657 TRAPT2: MOVEI . ;GET TEST ADDRESS
1192 030660 202 00 0 00 030051 MOVEM TESTPC ;STORE IT
1193 030661 200 15 0 00 041231 MOVE REPT,RPEAT
1194
1195 030662 403 10 0 00 000011 TRAP2: SETZB AC,AC+1 ;CLEAR AC'S TO PROTECT THE PROGRAM IN
1196 030663 403 13 0 00 000014 SETZB AC+3,AC+4 ;CASE NO MUUO'S OCCUR
1197
1198 030664 515 05 0 00 037000 HRLZI 5,37000 ;THIS VALUE IS AN OUT OF RANGE OPERATOR
1199 030665 202 05 0 00 035625 MOVEM 5,E0 ;SETUP E0 FIELD
1200
1201 030666 476 00 0 00 041214 SETOM GOTRAP ;INDICATE THAT WE EXPECT AN MUUO
1202
1203 ; **************************************************
1204 030667 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE EXTENDED INSTRUCTION
1205 030670 255 00 0 00 000000 JFCL ;IN CASE THE INSTRUCTION DOESN'T TRAP
1206 ; **************************************************
1207
1208 030671 332 00 0 00 041214 SKIPE GOTRAP
1209 ERROR (TRAP2,13,E0,0,^_
1210 ^CORRECT=INSTRUCTION,^_
1211 030672 036 13 0 00 037365 OUT OF RANGE OPERATOR FAILED TO TRAP)
1212 030673 035 00 0 00 030662 ERLOOP TRAP2 ;IF ERROR, LOOP TO TRAP2
1213
1214 030674 332 00 0 00 030524 SKIPE SM10 ;KS-10?
1215 030675 254 00 0 00 030700 JRST TRAP2A ;YES - SO CHECK BITS 9-12 IN E0 WORD
1216
1217 030676 367 15 0 00 030662 REPTLP TRAP2
1218 030677 254 00 0 00 030714 JRST TRAPT3 ;KL DOES NOT CHECK BITS 9-12
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 4
DFKCCM MAC 8-Jan-87 15:04 MUUO TRAP TESTING SEQ 0058
1219
1220 030700 403 10 0 00 000011 TRAP2A: SETZB AC,AC+1 ;CLEAR AC'S TO PROTECT THE PROGRAM IN
1221 030701 403 13 0 00 000014 SETZB AC+3,AC+4 ;CASE NO MUUO'S OCCUR
1222
1223 030702 515 05 0 00 001740 HRLZI 5,1740 ;SET BITS IN E0 9,12 (SHOULD BE BLANK)
1224 030703 202 05 0 00 035625 MOVEM 5,E0 ;SETUP EO FIELD
1225
1226 030704 476 00 0 00 041214 SETOM GOTRAP ;INDICATE THAT WE EXPECT AN MUUO
1227
1228 ; **************************************************
1229 030705 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE EXTENDED INSTRUCTION
1230 030706 255 00 0 00 000000 JFCL ;IN CASE THE INSTRUCTION DOESN'T TRAP
1231 ; **************************************************
1232
1233 030707 332 00 0 00 041214 SKIPE GOTRAP ;GOTRAP=0 MEANS TRAP OCCURED
1234 ERROR (TRAP2A,13,E0,0,^_
1235 ^CORRECT=INSTRUCTION,^_
1236 ILLEGAL AC FIELD BITS 9-12 FAILED TO TRAP)^
1237 030710 036 13 0 00 037377
1238 030711 035 00 0 00 030700 ERLOOP TRAP2A ;IF ERROR, LOOP TO TRAP2A
1239
1240 030712 367 15 0 00 030662 REPTLP TRAP2
1241 030713 254 00 0 00 030714 JRST TRAPT3
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 5
DFKCCM MAC 8-Jan-87 15:04 MUUO TRAP TESTING SEQ 0059
1242
1243 ; **********************************************************************
1244 ;*TEST 3 -- ILLEGAL AC FIELD TRAP TEST
1245 ;*
1246 ;* THIS TEST EXECUTES THE EXTENDED INSTRUCTIONS
1247 ;* WITH ILLEGAL OR UNUSED AC FIELDS SET (BIT BY BIT). THE
1248 ;* EXECUTION OF THESE INSTRUCTIONS SHOULD CAUSE A TRAP. IF IT
1249 ;* DOES NOT OCCUR AN ERROR PRINTOUT OCCURS. (KS ONLY - SINCE THE
1250 ;* KS-10 IS A SINGLE SECTION MACHINE BITS 6-17 OF THE PATTERN
1251 ;* POINTER FIELD (AC) FOR THE EDIT INSTRUCTION SHOULD TRAP
1252 ;* IF NOT EQUAL TO ZERO.)
1253 ;*
1254 ;* NOTE: THERE ARE SOME AC FIELDS THAT ARE LISTED AS UNUSED OR 0
1255 ;* IN THE INSTRUCTION SPEC THAT ARE NOT TRAPPED AS
1256 ;* MUUOS BY THE MICROCODE (I.E. ILLEGAL SETTING OF THOSE
1257 ;* BITS HAS NO EFFECT ON THE INSTRUCTION).
1258 ; **********************************************************************
1259 SALL
1260 037402 T= SIXBTZ <ILLEGAL AC FIELD TRAP TEST>
1261
1262 030714 201 00 0 00 030714 TRAPT3: MOVEI . ;GET TEST ADDRESS
1263 030715 202 00 0 00 030051 MOVEM TESTPC ;STORE IT
1264 030716 200 15 0 00 041231 MOVE REPT,RPEAT
1265
1266 030717 135 11 0 00 037407 TRAP3: LDB SP,[POINT 0,SOURCE,0] ;SETUP ACS TO PROTECT PROGRAM
1267 030720 135 14 0 00 037410 LDB DP,[POINT 0,DESTIN,0] ;IN CASE THE INSTR DOESN'T TRAP
1268
1269 030721 403 10 0 00 000013 SETZB AC,AC+3 ;CLEAR STRING LENGTH ACS
1270
1271 ; **************************************************
1272 ;*TEST COMPARE INSTRUCTION STRING LENGTH AC BITS 0,9
1273 ; **************************************************
1274
1275 030722 515 06 0 00 777772 HRLZI AC6,-6 ;AC6/- #CMP INSTR,,0
1276 030723 541 06 0 00 035560 HRRI AC6,OPTAB ;AC6/- #CMP INSTR,,OPCODE TABLE ADDRESS
1277
1278 030724 201 04 0 00 000011 CMPTRP: MOVEI AC4,^D9 ;SETUP LOOP COUNTER
1279 030725 205 05 0 00 001000 MOVSI AC5,(1B8) ;ILLEGAL BIT MASK
1280
1281 030726 402 00 0 00 035625 CMPT1: SETZM E0 ;CLEAR THE E0 FIELD FOR TEST
1282
1283 030727 200 07 0 06 000000 MOVE AC7,(AC6) ;GET COMPARE INSTRUCTION OPCODE
1284 030730 137 07 0 00 036261 DPB AC7,E0OP ;PUT INSTRUCTION OPCODE IN E0
1285 030731 434 10 0 00 000005 OR AC,AC5 ;ILLEGAL SOURCE LENGTH BITS TO SLEN
1286
1287 030732 476 00 0 00 041214 SETOM GOTRAP ;INDICATE THE MUUO IS EXPECTED
1288
1289 ; **************************************************
1290 030733 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION
1291 030734 255 00 0 00 000000 JFCL ;IN CASE THE INSTRUCTION DOESN'T TRAP
1292 ; **************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 6
DFKCCM MAC 8-Jan-87 15:04 MUUO TRAP TESTING SEQ 0060
1293
1294 030735 332 00 0 00 041214 SKIPE GOTRAP ;GOTRAP=0 MEANS TRAP OCCURED
1295 ERROR (CMPTRP,13,AC,0,^_
1296 ^CORRECT=SOURCE LENGTH,^_
1297 030736 036 13 0 00 037427 ILLEGAL SOURCE LENGTH IN COMPARE INSTR DIDN'T CAUSE TRAP)
1298 030737 035 00 0 00 030724 ERLOOP CMPTRP ;IF ERROR, LOOP TO CMPTRP
1299
1300 030740 402 00 0 00 000010 SETZM AC ;RESET AC
1301 030741 434 13 0 00 000005 OR AC+3,AC5 ;ILLEGAL DESTINATION LENGTH BITS TO DLEN
1302 030742 476 00 0 00 041214 SETOM GOTRAP ;INDICATE THAT TRAP EXPECTED
1303
1304 ; **************************************************
1305 030743 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION
1306 030744 255 00 0 00 000000 JFCL ;IN CASE THE INSTRUCTION DOESN'T TRAP
1307 ; **************************************************
1308
1309 030745 332 00 0 00 041214 SKIPE GOTRAP ;GOTRAP=0 MEANS TRAP OCCURED
1310 ERROR (CMPTRP,13,AC+3,0,^_
1311 ^CORRECT=DESTINATION LENGTH,^_
1312 ILLEGAL DESTIN LENGTH IN COMPARE INSTR DIDN'T CAUSE TRAP)^
1313 030746 036 13 0 00 037451
1314 030747 035 00 0 00 030724 ERLOOP CMPTRP ;IF ERROR, LOOP TO CMPTRP
1315
1316 030750 402 00 0 00 000013 SETZM AC+3 ;RESET DESTINATION LENGTH AC
1317 030751 242 05 0 00 000001 LSH AC5,1 ;SETUP FOR NEXT BIT IN FIELD
1318
1319 030752 367 04 0 00 030726 SOJG AC4,CMPT1 ;DO NEXT BIT IN FIELD
1320
1321 030753 253 06 0 00 030724 AOBJN AC6,CMPTRP ;GO TRY NEXT OPCODE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 7
DFKCCM MAC 8-Jan-87 15:04 MUUO TRAP TESTING SEQ 0061
1322
1323 ; **************************************************
1324 ;*TEST THE MOVE STRING DESTINATION LENGTH BITS 0,9
1325 ; **************************************************
1326
1327 030754 505 06 0 00 777774 MVSTRP: HRLI AC6,-4 ;AC6/- #MVS INSTR,,CURRENT TABLE ADDRESS
1328
1329 030755 205 05 0 00 001000 MVS1: MOVSI AC5,(1B8) ;SETUP ILLEGAL BIT MASK
1330 030756 201 04 0 00 000011 MOVEI AC4,^D9 ;NUMBER OF BIT POSTIONS TO CHECK
1331
1332 030757 200 07 0 06 000000 MVS2: MOVE AC7,(AC6) ;GET OPERATOR OPCODE
1333 030760 402 00 0 00 035625 SETZM E0 ;CLEAR OPERATOR FIELD
1334 030761 137 07 0 00 036261 DPB AC7,E0OP ;PUT OPCODE IN BITS 0,9
1335 030762 434 13 0 00 000005 OR AC+3,AC5 ;SETUP ILLEGAL DESTINATION LENGTH
1336
1337 030763 476 00 0 00 041214 SETOM GOTRAP ;INDICATE THAT MUUO IS EXPECTED
1338
1339 ; **************************************************
1340 030764 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION
1341 030765 255 00 0 00 000000 JFCL ;IN CASE THE TRAP DOESN'T OCCUR
1342 ; **************************************************
1343
1344 030766 332 00 0 00 041214 SKIPE GOTRAP ;GOTRAP=0 MEANS TRAP OCCURED
1345 ERROR (MVS2,13,AC+3,0,^_
1346 ^CORRECT=DESTINATION LENGTH,^_
1347 ILLEGAL DLEN IN MOVE STRING INSTR DIDN'T CAUSE TRAP)^
1348 030767 036 13 0 00 037465
1349 030770 035 00 0 00 030757 ERLOOP MVS2 ;IF ERROR, LOOP TO MVS2
1350
1351 030771 242 05 0 00 000001 LSH AC5,1 ;SETUP NEXT BIT
1352
1353 030772 367 04 0 00 030757 SOJG AC4,MVS2 ;TEST NEXT BIT
1354
1355 030773 253 06 0 00 030755 AOBJN AC6,MVS1 ;GO TRY NEXT OPCODE
1356
1357 030774 332 00 0 00 030524 SKIPE SM10 ;KS-10?
1358 030775 254 00 0 00 031001 JRST EDITRP ;YES
1359
1360 030776 035 02 0 00 030714 ERLP2 TRAPT3 ;KL-10 SO END OF THIS TEST
1361 030777 367 15 0 00 030717 REPTLP TRAP3
1362
1363 031000 254 00 0 00 031022 JRST CMPMOD ;GO TO NEXT TEST
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 8
DFKCCM MAC 8-Jan-87 15:04 MUUO TRAP TESTING SEQ 0062
1364
1365 ; **************************************************
1366 ;*TEST EDIT INSTRUCTION ILLEGAL PATTERN POINTER FIELD (KS-10 ONLY)
1367 ; **************************************************
1368
1369 031001 201 07 0 00 000004 EDITRP: MOVEI AC7,4 ;GET EDIT INSTRUCTION OPCODE
1370 031002 402 00 0 00 035625 SETZM E0 ;CLEAR E0 FIELD
1371 031003 137 07 0 00 036261 DPB AC7,E0OP ;PUT OPCODE IN BITS 0,9
1372 031004 205 05 0 00 000001 MOVSI AC5,(1B17) ;ILLEGAL FIELD MASK
1373 031005 201 04 0 00 000014 MOVEI AC4,^D12 ;NUMBER OF ILLEGAL BITS TO CHECK
1374
1375 031006 402 00 0 00 000010 EDIT1: SETZM AC ;CLEAR THE PATTERN POINTER REGISTER
1376 031007 434 10 0 00 000005 OR AC,AC5 ;SET THE ILLEGAL BIT
1377 031010 476 00 0 00 041214 SETOM GOTRAP ;INDICATE THAT MUUO EXPECTED
1378
1379 ; **************************************************
1380 031011 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION
1381 031012 255 00 0 00 000000 JFCL ;IN CASE THE INSTRUCTION DOESN'T TRAP
1382 ; **************************************************
1383
1384 031013 332 00 0 00 041214 SKIPE GOTRAP ;GOTRAP=0 MEANS TRAP OCCURED
1385 ERROR (EDIT1,13,AC,0,^_
1386 ^CORRECT=PATTERN POINTER,^_
1387 ILLEGAL PATTERN POINTER FIELD IN EDIT INSTR DIDN'T CAUSE TRAP)^
1388 031014 036 13 0 00 037510
1389 031015 035 00 0 00 031006 ERLOOP EDIT1 ;IF ERROR, LOOP TO EDIT1
1390
1391 031016 242 05 0 00 000001 LSH AC5,1 ;SETUP NEXT BIT FIELD
1392
1393 031017 367 04 0 00 031006 SOJG AC4,EDIT1 ;JUMP IF MORE FIELDS TO CHECK
1394
1395 031020 367 15 0 00 030717 REPTLP TRAP3
1396 031021 254 00 0 00 031022 JRST CMPMOD
1397
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 9
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0063
1398 SUBTTL EXTEND INSTRUCTION CASE TESTING
1399
1400 ; **********************************************************************
1401 ;*EXTEND INSTRUCTION CASE TESTING -- GENERAL INFORMATION
1402 ;*
1403 ;* THERE ARE 5 EXTEND INSTRUCTION CASE TEST MODULES (MODULE NAMES
1404 ;* SUFFIXED BY "MOD"). EDIT INSTR TESTING CONSISTS OF 9 SUBMODULES.
1405 ;*
1406 ;* EACH MODULE EXECUTES INSTRUCTIONS WITH PARAMETERS DERIVED FROM
1407 ;* A CASE TABLE (I.E. VARYING STRING LENGTHS, BYTE SIZES, FILLER
1408 ;* VALUES, PATTERNS, OFFSETS, ETC.).
1409 ;*
1410 ;* WHEN THE INSTRUCTION HAS BEEN SET UP, AN INSTRUCTION SIMULATOR
1411 ;* (ROUTINE NAMES SUFFIXED BY "SIM") IS CALLED. THE REAL INSTRUCTION
1412 ;* IS THEN EXECUTED.
1413 ;*
1414 ;* THE RESULTS OF THE INSTRUCTION AND THE SIMULATOR ARE COMPARED IN
1415 ;* AN INSTRUCTION COMPARATOR ROUTINE (ROUTINE NAME SUFFIXED BY "COM").
1416 ;*
1417 ;* EACH INSTRUCTION IS RUN FOR EVERY CASE SPECIFIED AND THEN
1418 ;* THE NEXT INSTRUCTION IS RUN FOR EVERY CASE, ETC.
1419 ;*
1420 ;* ON ERROR AN ERROR MESSAGE IS PRINTED AND THE PROGRAM PROCEEDS
1421 ;* WITH THE NEXT CASE IN SEQUENCE. THE FAILURE INFORMATION IS PRINTED
1422 ;* BY AN INSTRUCTION PRINTING ROUTINE (ROUTINE NAME SUFFIXED BY "PNT").
1423 ;*
1424 ;* THE INITIAL AC BLOCK IS STORED IN ORIGSV.
1425 ;* THE RESULTS OF THE SIMULATOR ARE STORED IN RESSV.
1426 ;* AC6 HOLDS THE INSTRUCTION OPCODE INFORMATION.
1427 ;* AC7 HOLDS THE CASE TABLE INFORMATION.
1428 ;* THE INTEGRITY OF THESE ACS IS PRESERVED THROUGHOUT MODULE EXECUTION.
1429 ; **********************************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 10
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0064
1430
1431 ; **********************************************************************
1432 ;*TEST 4 -- COMPARE STRING INSTRUCTION TEST
1433 ;*
1434 ;* THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
1435 ;* SIX COMPARE INSTRUCTIONS.
1436 ; **********************************************************************
1437 SALL
1438 037513 T= SIXBTZ <COMPARE STRING INSTRUCTION TEST>
1439
1440 031022 201 00 0 00 031022 CMPMOD: MOVEI . ;GET TEST ADDRESS
1441 031023 202 00 0 00 030051 MOVEM TESTPC ;STORE IT
1442 031024 200 15 0 00 041231 MOVE REPT,RPEAT
1443
1444 031025 515 06 0 00 777772 CMPM: HRLZI AC6,-6 ;AC6/- #CMP INSTR,,0
1445 031026 541 06 0 00 035560 HRRI AC6,CMPTAB ;AC6/- #CMP INSTR,,OPCODE TABLE ADDR
1446
1447 031027 514 07 0 00 037046 CMP1: HRLZ AC7,CMPCAS-1 ;AC7/- #CMP CASES,,0
1448 031030 541 07 0 00 037047 HRRI AC7,CMPCAS ;AC7/- #CMP CASES,,CASE TABLE ADDRESS
1449
1450 031031 200 00 0 06 000000 CMP2: MOVE (AC6) ;RETRIEVE CURRENT COMPARE OPCODE
1451 031032 137 00 0 00 036261 DPB E0OP ;PUT IN INSTRUCTION OPCODE FIELD
1452
1453 031033 260 17 0 00 035471 GO RANLEN ;STRING LENGTH TO AC0
1454 031034 202 00 0 00 000010 MOVEM SLEN ;STORE IN STRING LENGTHS
1455 031035 202 00 0 00 000013 MOVEM DLEN
1456
1457 031036 402 00 0 00 041233 SETZM SKPWD1# ;CLEAR SKIP INDICATOR WORDS
1458 031037 402 00 0 00 041234 SETZM SKPWD2#
1459 031040 402 00 0 00 035626 SETZM E0+1 ;CLEAR FILLER WORDS
1460 031041 402 00 0 00 035627 SETZM E0+2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 11
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0065
1461
1462 ; **************************************************
1463 ;DETERMINE THE DESIRED PATTERN TYPE
1464 ; **************************************************
1465
1466 031042 200 01 0 07 000000 MOVE 1,(AC7) ;RETRIEVE CURRENT CASE PARAMETER WORD
1467 031043 607 01 0 00 010000 TLNN 1,(ALTPT) ;ALTERNATING 1'S AND 0'S PATTERN?
1468 031044 254 00 0 00 031047 JRST CHKB1 ;NO
1469
1470 031045 200 00 0 00 036472 MOVE APAT ;YES - GET THE PATTERN
1471 031046 254 00 0 00 031062 JRST CMPLEN ;CONTINUE
1472
1473 031047 607 01 0 00 002000 CHKB1: TLNN 1,(ONESPT) ;ONE'S PATTERN?
1474 031050 254 00 0 00 031053 JRST CHKC1 ;NO
1475
1476 031051 200 00 0 00 036473 MOVE BPAT ;YES - GET THE PATTERN
1477 031052 254 00 0 00 031062 JRST CMPLEN ;CONTINUE
1478
1479 031053 607 01 0 00 004000 CHKC1: TLNN 1,(ONEPT) ;ONE PATTERN (0,,1)?
1480 031054 254 00 0 00 031057 JRST CMPER1 ;NO - CASE TABLE ERROR
1481
1482 031055 200 00 0 00 036474 MOVE CPAT ;YES - GET THE PATTERN
1483 031056 254 00 0 00 031062 JRST CMPLEN ;CONTINUE
1484
1485 031057 037 02 0 00 037521 CMPER1: PMSG <^CMPXX PATTERN NOT SELECTED - ABORTING CURRENT CASE>
1486 031060 253 07 0 00 031031 AOBJN AC7,CMP2
1487 031061 254 00 0 00 031213 JRST MOVMOD ;NO CASES LEFT - GO TO NEXT TEST
1488
1489 031062 202 00 0 00 041224 CMPLEN: MOVEM PATTERN# ;STORE CHOSEN PATTERN
1490
1491 031063 603 01 0 00 400000 TLNE 1,(EQLEN) ;STRINGS OF EQUAL LENGTH?
1492 031064 254 00 0 00 031132 JRST CMPBYT ;YES - THIS IS ALREADY SET UP
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 12
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0066
1493
1494 ; **************************************************
1495 ;STRINGS WILL BE OF UNEQUAL LENGTH SO NOW PICK A FILLER
1496 ; **************************************************
1497
1498 031065 607 01 0 00 001000 CMPFIL: TLNN 1,(EQFIL) ;FILLER = PATTERN?
1499 031066 254 00 0 00 031071 JRST CMPF1 ;NO
1500
1501 031067 200 00 0 00 041224 MOVE PATTERN ;YES - PATTERN TO AC0
1502 031070 254 00 0 00 031104 JRST CMPL
1503
1504 031071 607 01 0 00 000400 CMPF1: TLNN 1,(LFILL) ;ZERO FILLER?
1505 031072 254 00 0 00 031075 JRST CMPF2 ;NO
1506 031073 200 00 0 00 036475 MOVE DPAT ;YES - ZERO PATTERN TO AC0
1507 031074 254 00 0 00 031104 JRST CMPL
1508
1509 031075 607 01 0 00 000200 CMPF2: TLNN 1,(GFILL) ;ONE'S FILLER
1510 031076 254 00 0 00 031101 JRST CMPER2 ;NO - CASE TABLE ERROR
1511 031077 200 00 0 00 036473 MOVE BPAT ;YES - ONE'S PATTERN TO AC0
1512 031100 254 00 0 00 031104 JRST CMPL
1513
1514 031101 037 02 0 00 037532 CMPER2: PMSG <^ABORTING CURRENT CASE - FILLER PATTERN NOT SPECIFIED>
1515 031102 253 07 0 00 031031 AOBJN AC7,CMP2
1516 031103 254 00 0 00 031213 JRST MOVMOD ;NO CASES LEFT - GO TO NEXT TEST
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 13
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0067
1517
1518 ; **************************************************
1519 ;NOW PUT THE FILLER (STORED IN AC0) INTO THE AC BLOCK
1520 ;THE FILLER GOES INTO E0+1 IF SLEN < DLEN AND INTO E0+2 IF SLEN > DLEN
1521 ; **************************************************
1522
1523 031104 607 01 0 00 200000 CMPL: TLNN 1,(SZERO) ;SOURCE LENGTH = 0?
1524 031105 254 00 0 00 031111 JRST CMPL1 ;NO
1525 031106 402 00 0 00 000010 SETZM SLEN ;YES - ZERO SOURCE LENGTH
1526 031107 202 00 0 00 035626 MOVEM E0+1 ;SETUP FILLER
1527 031110 254 00 0 00 031132 JRST CMPBYT
1528
1529 031111 607 01 0 00 100000 CMPL1: TLNN 1,(DZERO) ;DESTIN LENGTH = 0?
1530 031112 254 00 0 00 031116 JRST CMPL2 ;NO
1531 031113 402 00 0 00 000013 SETZM DLEN ;YES - ZERO DESTINATION LENGTH
1532 031114 202 00 0 00 035627 MOVEM E0+2 ;SETUP FILLER
1533 031115 254 00 0 00 031132 JRST CMPBYT
1534
1535 031116 607 01 0 00 040000 CMPL2: TLNN 1,(DSZER) ;BOTH SOURCE AND DESTIN LENGTH'S ZERO?
1536 031117 254 00 0 00 031122 JRST CMPL3 ;NO - BOTH MUST BE HAVE LENGTHS > 0
1537 031120 403 10 0 00 000013 SETZB SLEN,DLEN ;YES - SET BOTH TRING LENGTHS TO ZERO
1538 031121 254 00 0 00 031132 JRST CMPBYT
1539
1540 031122 607 01 0 00 020000 CMPL3: TLNN 1,(SLONG) ;DESTIN SHORTER THAN SOURCE?
1541 031123 254 00 0 00 031127 JRST E0FIL1 ;NO
1542 031124 242 13 0 00 777777 LSH DLEN,-1 ;DLEN=1/2 SLEN
1543 031125 202 00 0 00 035627 MOVEM E0+2 ;SETUP FILLER
1544 031126 254 00 0 00 031132 JRST CMPBYT
1545
1546 031127 242 10 0 00 777777 E0FIL1: LSH SLEN,-1 ;SLEN=1/2 DLEN
1547 031130 202 00 0 00 035626 MOVEM E0+1 ;SETUP FILLER
1548 031131 254 00 0 00 031132 JRST CMPBYT
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 14
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0068
1549
1550 ; **************************************************
1551 ;DETERMINE STRING BYTE SIZES
1552 ; **************************************************
1553
1554 031132 603 01 0 00 000100 CMPBYT: TLNE 1,(S44) ;FULL WORD SOURCE BYTES?
1555 031133 254 00 0 00 031140 JRST CMPB1 ;YES
1556
1557 031134 201 00 0 00 000037 MOVEI AC0,37
1558 031135 406 00 0 00 035626 ANDM AC0,E0+1
1559 031136 200 11 0 00 037543 MOVE SP,[POINT 5,SOURCE]
1560 031137 334 00 0 00 000000 SKIPA
1561
1562 031140 200 11 0 00 037544 CMPB1: MOVE SP,[POINT 36,SOURCE] ;SETUP SOURCE BYTE POINTER
1563
1564 031141 603 01 0 00 000040 TLNE 1,(D44) ;FULL WORD DESTIN BYTE SIZE?
1565 031142 254 00 0 00 031147 JRST CMPB2 ;YES
1566
1567 031143 201 00 0 00 000037 MOVEI AC0,37
1568 031144 406 00 0 00 035627 ANDM AC0,E0+2
1569 031145 200 14 0 00 037545 MOVE DP,[POINT 5,DESTIN]
1570 031146 334 00 0 00 000000 SKIPA
1571
1572 031147 200 14 0 00 037546 CMPB2: MOVE DP,[POINT 36,DESTIN] ;SETUP DESTINATION POINTER
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 15
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0069
1573
1574 ; **************************************************
1575 ;PROCEED TO SET UP THE STRINGS
1576 ; **************************************************
1577
1578 031150 261 17 0 00 000006 CMPSTR: PUT AC6 ;NEED THAT SPARE AC!
1579
1580 031151 200 02 0 00 000010 MOVE SLEN1,SLEN ;COPY OF SOURCE STRING LENGTH
1581 031152 200 03 0 00 000011 MOVE SP1,SP ;COPY OF SOURCE STRING POINTER
1582 031153 200 00 0 00 041224 MOVE AC0,PATTERN ;COPY OF PATTERN
1583 031154 402 00 0 00 000004 SETZM AC4 ;CLEAR REWRITE BYTE WORD
1584
1585 031155 136 00 0 00 000003 IDPB AC0,SP1 ;WRITE THE FIRST BYTE TO THE STRING
1586
1587 031156 377 00 0 00 000002 CSET1: SOSG SLEN1
1588 031157 254 00 0 00 031162 JRST CSET2 ;JUMP IF LAST BYTE WRITTEN
1589
1590 031160 136 00 0 00 000003 IDPB AC0,SP1 ;WRITE A BYTE
1591 031161 254 00 0 00 031156 JRST CSET1 ;GO FOR THE NEXT ONE
1592
1593 031162 603 01 0 00 000020 CSET2: TLNE 1,(ALS) ;ALTER THE LAST SOURCE BYTE?
1594 031163 137 04 0 00 000003 DPB AC4,SP1 ;YES - ZERO IT
1595
1596 031164 200 05 0 00 000013 MOVE DLEN1,DLEN ;COPY OF DESTINAION STRING LENGTH
1597 031165 200 04 0 00 000014 MOVE DP1,DP ;COPY OF DESTIN STRING BYTE POINTER
1598 031166 136 00 0 00 000004 IDPB AC0,DP1 ;WRITE THE FIRST BYTE
1599
1600 031167 377 00 0 00 000005 CSET3: SOSG DLEN1
1601 031170 254 00 0 00 031173 JRST CSET4 ;JUMP IF LAST BYTE WRITTEN
1602
1603 031171 136 00 0 00 000004 IDPB AC0,DP1 ;WRITE A BYTE
1604 031172 254 00 0 00 031167 JRST CSET3 ;GO FOR THE NEXT ONE
1605
1606 031173 603 01 0 00 000010 CSET4: TLNE 1,(ALD) ;ALTER THE LAST DESTIN BYTE
1607 031174 137 04 0 00 000004 DPB AC4,DP1 ;YES - ZERO IT
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 16
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0070
1608
1609 ; **************************************************
1610 ;SAVE THE ORIGINAL AC BLOCK FOR ERROR PRINTOUT IF NECESSARY
1611 ; **************************************************
1612
1613 031175 200 00 0 00 037547 MOVE AC0,[AC,,ORIGSV]
1614 031176 251 00 0 00 036027 BLT AC0,ORIGSV+4
1615
1616 031177 262 17 0 00 000006 GET AC6 ;RESTORE AC6
1617
1618 ; **************************************************
1619 031200 260 17 0 00 033505 GO CMPSIM ;CALL THE COMPARE INSTR SIMULATOR
1620 031201 476 00 0 00 041233 SETOM SKPWD1 ;SIMULATED SKIP RETURN
1621 ; **************************************************
1622
1623 ; **************************************************
1624 031202 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
1625 031203 476 00 0 00 041234 SETOM SKPWD2 ;REAL SKIP RETURN
1626 ; **************************************************
1627
1628 031204 260 17 0 00 034267 GO CMPCOM ;COMPARE THE RESULTS
1629 031205 036 13 0 00 037550 ERROR CMP2,13,0,0,,,CMPPNT
1630 031206 035 00 0 00 031031 ERLOOP CMP2 ;IF ERROR, LOOP TO CMP2
1631
1632 031207 253 07 0 00 031031 AOBJN AC7,CMP2 ;EXECUTE THE NEXT CASE
1633 031210 253 06 0 00 031027 AOBJN AC6,CMP1 ;EXECUTE THE CASES WITH THE NEXT OPCODE
1634
1635 031211 367 15 0 00 031025 REPTLP CMPM
1636 031212 254 00 0 00 031213 JRST MOVMOD ;FINISHED - GO TO NEXT TEST
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 17
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0071
1637
1638 ; **********************************************************************
1639 ;*TEST 5 -- MOVE STRING INSTRUCTION TEST
1640 ;*
1641 ;* THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
1642 ;* FOUR MOVE STRING INSTRUCTIONS.
1643 ; **********************************************************************
1644 SALL
1645 037553 T= SIXBTZ <MOVE STRING INSTRUCTION TEST>
1646
1647 031213 201 00 0 00 031213 MOVMOD: MOVEI .
1648 031214 202 00 0 00 030051 MOVEM TESTPC
1649 031215 200 15 0 00 041231 MOVE REPT,RPEAT
1650
1651 031216 515 06 0 00 777774 MOVM: HRLZI AC6,-4 ;AC6/- #MOV INSTR,,0
1652 031217 541 06 0 00 035566 HRRI AC6,MOVTAB ;AC6/- #MOV INSTR,,OPCODE TABLE ADDR
1653
1654 031220 514 07 0 00 037116 MOV1: HRLZ AC7,MOVCAS-1 ;AC7/- #MOV CASES,,0
1655 031221 541 07 0 00 037117 HRRI AC7,MOVCAS ;AC7/- #MOV CASES,,CASE TABLE ADDRESS
1656
1657 031222 260 17 0 00 035347 MOV2: GO CLRSTR ;CLEAR THE SOURCE AND DESTINATION AREAS
1658
1659 031223 200 00 0 06 000000 MOVE (AC6) ;RETRIEVE CURRENT MOVE OPCODE
1660 031224 137 00 0 00 036261 DPB E0OP ;PUT IN INSTRUCTION OPCODE FIELD
1661
1662 031225 402 00 0 00 041236 SETZM TRANFG
1663 031226 306 00 0 00 000015 CAIN AC0,015 ;MOVST INSTRUCTION?
1664 031227 476 00 0 00 041236 SETOM TRANFG# ;YES - SET TRANSLATE FLAG
1665
1666 031230 260 17 0 00 035471 GO RANLEN ;STRING LENGTH TO AC0
1667 031231 202 00 0 00 000010 MOVEM SLEN ;STORE IN STRING LENGTHS
1668 031232 202 00 0 00 000013 MOVEM DLEN
1669
1670 031233 402 00 0 00 041233 SETZM SKPWD1# ;CLEAR SKIP INDICATOR WORDS
1671 031234 402 00 0 00 041234 SETZM SKPWD2#
1672 031235 402 00 0 00 035626 SETZM E0+1 ;CLEAR FILLER WORD
1673
1674 031236 336 00 0 00 041236 SKIPN TRANFG ;MOVST?
1675 031237 254 00 0 00 031242 JRST CHKA2 ;NO
1676
1677 031240 201 00 0 00 000001 MOVEI AC0,1 ;TRANSLATE PATTERN ALWAYS STARTS WITH 1
1678 031241 254 00 0 00 031262 JRST MOVLEN ;AND INCREMENTS
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 18
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0072
1679
1680 ; **************************************************
1681 ;DETERMINE THE DESIRED PATTERN TYPE
1682 ; **************************************************
1683
1684 031242 200 01 0 07 000000 CHKA2: MOVE 1,(AC7) ;RETRIEVE CURRENT CASE PARAMETER WORD
1685 031243 607 01 0 00 010000 TLNN 1,(ALTPT) ;ALTERNATING 1'S AND 0'S PATTERN?
1686 031244 254 00 0 00 031247 JRST CHKB2 ;NO
1687 031245 200 00 0 00 036472 MOVE APAT ;YES - GET THE PATTERN
1688 031246 254 00 0 00 031262 JRST MOVLEN ;CONTINUE
1689
1690 031247 607 01 0 00 002000 CHKB2: TLNN 1,(ONESPT) ;ONE'S PATTERN?
1691 031250 254 00 0 00 031253 JRST CHKC2 ;NO
1692 031251 200 00 0 00 036473 MOVE BPAT ;YES - GET THE PATTERN
1693 031252 254 00 0 00 031262 JRST MOVLEN ;CONTINUE
1694
1695 031253 607 01 0 00 004000 CHKC2: TLNN 1,(ONEPT) ;ONE PATTERN (0,,1)?
1696 031254 254 00 0 00 031257 JRST MOVER1 ;NO - ERROR
1697 031255 200 00 0 00 036474 MOVE CPAT ;YES - GET THE PATTERN
1698 031256 254 00 0 00 031262 JRST MOVLEN ;CONTINUE
1699
1700 031257 037 02 0 00 037560 MOVER1: PMSG <^MOVXX PATTERN NOT SELECTED - ABORTING CURRENT CASE>
1701 031260 253 07 0 00 031222 AOBJN AC7,MOV2
1702 031261 254 00 0 00 031454 JRST CDBMOD ;NO CASES LEFT - GO TO NEXT TEST
1703
1704 031262 202 00 0 00 041224 MOVLEN: MOVEM PATTERN ;STORE CHOSEN PATTERN
1705 031263 603 01 0 00 400000 TLNE 1,(EQLEN) ;STRINGS OF EQUAL LENGTH?
1706 031264 254 00 0 00 031326 JRST MOVBYT ;YES - ALREADY SET UP
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 19
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0073
1707
1708 ; **************************************************
1709 ;FIND OUT IF A FILLER IS NEEDED AND DETERMINE STRING LENGTHS
1710 ; **************************************************
1711
1712 031265 607 01 0 00 100000 MOVL: TLNN 1,(DZERO) ;DESTINATION LENGTH = ZERO?
1713 031266 254 00 0 00 031271 JRST MOVL1 ;NO
1714 031267 402 00 0 00 000013 SETZM DLEN ;YES - ZERO DESTINATION LENGTH
1715 031270 254 00 0 00 031326 JRST MOVBYT
1716
1717 031271 607 01 0 00 040000 MOVL1: TLNN 1,(DSZER) ;BOTH DESTIN AND SOURCE LENGTHS = 0?
1718 031272 254 00 0 00 031275 JRST MOVL2 ;NO
1719 031273 403 10 0 00 000013 SETZB SLEN,DLEN ;YES - ZERO THEM BOTH
1720 031274 254 00 0 00 031326 JRST MOVBYT
1721
1722 031275 607 01 0 00 020000 MOVL2: TLNN 1,(SLONG) ;SOURCE STRING LONGER THAN DESTIN?
1723 031276 254 00 0 00 031301 JRST MOVL3 ;NO
1724 031277 242 13 0 00 777777 LSH DLEN,-1 ;YES - DLEN = 1/2 SLEN
1725 031300 254 00 0 00 031326 JRST MOVBYT
1726
1727 031301 607 01 0 00 200000 MOVL3: TLNN 1,(SZERO) ;SOURCE STRING LENGTH = 0?
1728 031302 254 00 0 00 031305 JRST MOVL4 ;NO
1729 031303 402 00 0 00 000010 SETZM SLEN ;YES - ZERO SOURCE STRING LENGTH
1730 031304 254 00 0 00 031306 JRST MOVFIL ;GET A FILLER
1731
1732 031305 242 10 0 00 777777 MOVL4: LSH SLEN,-1 ;SLEN = 1/2 DLEN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 20
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0074
1733
1734 ; **************************************************
1735 ;NOW PICK A FILLER
1736 ; **************************************************
1737
1738 031306 607 01 0 00 001000 MOVFIL: TLNN 1,(EQFIL) ;FILLER = PATTERN?
1739 031307 254 00 0 00 031312 JRST MOVF1 ;NO
1740 031310 200 00 0 00 041224 MOVE PATTERN ;YES - PATTERN TO AC0
1741 031311 254 00 0 00 031325 JRST MOVF3
1742
1743 031312 607 01 0 00 000400 MOVF1: TLNN 1,(LFILL) ;ZERO FILLER?
1744 031313 254 00 0 00 031316 JRST MOVF2 ;NO
1745 031314 200 00 0 00 036475 MOVE DPAT ;YES - ZERO PATTERN TO AC0
1746 031315 254 00 0 00 031325 JRST MOVF3
1747
1748 031316 607 01 0 00 000200 MOVF2: TLNN 1,(GFILL) ;ONE'S FILLER
1749 031317 254 00 0 00 031322 JRST MOVER2 ;NO - ERROR
1750 031320 200 00 0 00 036473 MOVE BPAT ;YES - ONE'S PATTERN TO AC0
1751 031321 254 00 0 00 031325 JRST MOVF3
1752
1753 031322 037 02 0 00 037532 MOVER2: PMSG <^ABORTING CURRENT CASE - FILLER PATTERN NOT SPECIFIED>
1754 031323 253 07 0 00 031222 AOBJN AC7,MOV2
1755 031324 254 00 0 00 031454 JRST CDBMOD ;NO CASES LEFT - GO TO NEXT TEST
1756
1757 031325 202 00 0 00 035626 MOVF3: MOVEM E0+1 ;STORE THE FILLER
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 21
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0075
1758
1759 ; **************************************************
1760 ;DETERMINE STRING BYTE SIZES
1761 ; **************************************************
1762
1763 031326 332 00 0 00 041236 MOVBYT: SKIPE TRANFG ;5 BIT BYTES IF MOVST
1764 031327 254 00 0 00 031334 JRST MOVB1
1765
1766 031330 607 01 0 00 000100 TLNN 1,(S44) ;FULL WORD SOURCE BYTES?
1767 031331 254 00 0 00 031334 JRST MOVB1 ;NO
1768 031332 200 11 0 00 037544 MOVE SP,[POINT 36,SOURCE] ;SETUP SOURCE BYTE POINTER
1769 031333 334 00 0 00 000000 SKIPA
1770
1771 031334 200 11 0 00 037543 MOVB1: MOVE SP,[POINT 5,SOURCE]
1772 031335 332 00 0 00 041236 SKIPE TRANFG
1773 031336 254 00 0 00 031343 JRST MOVB2
1774
1775 031337 607 01 0 00 000040 TLNN 1,(D44) ;FULL WORD DESTIN BYTE SIZE?
1776 031340 254 00 0 00 031343 JRST MOVB2 ;NO
1777 031341 200 14 0 00 037546 MOVE DP,[POINT 36,DESTIN] ;SETUP DESTINATION POINTER
1778 031342 334 00 0 00 000000 SKIPA
1779
1780 031343 200 14 0 00 037545 MOVB2: MOVE DP,[POINT 5,DESTIN]
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 22
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0076
1781
1782 ; **************************************************
1783 ;PROCEED TO SET UP THE STRINGS
1784 ; **************************************************
1785
1786 031344 261 17 0 00 000006 MOVSTR: PUT AC6 ;NEED THAT SPARE AC!
1787
1788 031345 200 02 0 00 000010 MOVE SLEN1,SLEN ;COPY OF SOURCE STRING LENGTH
1789 031346 200 03 0 00 000011 MOVE SP1,SP ;COPY OF SOURCE STRING POINTER
1790 031347 200 00 0 00 041224 MOVE AC0,PATTERN ;COPY OF PATTERN
1791
1792 031350 136 00 0 00 000003 IDPB AC0,SP1 ;WRITE THE FIRST BYTE TO THE STRING
1793
1794 031351 377 00 0 00 000002 SET1: SOSG SLEN1
1795 031352 254 00 0 00 031357 JRST MOVOP ;JUMP IF LAST BYTE WRITTEN
1796
1797 031353 332 00 0 00 041236 SKIPE TRANFG
1798 031354 271 00 0 00 000001 ADDI AC0,1 ;INCREMENT THE PATTERN IF MOVST
1799
1800 031355 136 00 0 00 000003 IDPB AC0,SP1 ;WRITE A BYTE
1801 031356 254 00 0 00 031351 JRST SET1 ;GO FOR THE NEXT ONE
1802
1803 031357 200 00 0 06 000000 MOVOP: MOVE AC0,(AC6) ;RETRIEVE THE CURRENT OPCODE
1804 031360 302 00 0 00 000015 CAIE AC0,015 ;MOVST INSTRUCTION?
1805 031361 254 00 0 00 031411 JRST MOVOFF ;NO - SEE IF MOVSO
1806
1807 031362 201 00 0 00 035711 MOVEI AC0,E1 ;GET ADDRESS OF TRANSLATION TABLE
1808 031363 542 00 0 00 035625 HRRM AC0,E0 ;STORE IT IN THE E0 FIELD
1809
1810 ; **************************************************
1811 ;SET THE FLAGS IN AC FOR MOVST INSTRUCTION
1812 ; **************************************************
1813
1814 031364 602 01 0 00 400000 TRNE 1,(SFL) ;SET THE S FLAG?
1815 031365 434 10 0 00 035775 OR SLEN,BIT0 ;YES
1816
1817 031366 602 01 0 00 040000 TRNE 1,(NFL) ;SET THE N FLAG?
1818 031367 434 10 0 00 035776 OR SLEN,BIT1 ;YES
1819
1820 031370 602 01 0 00 100000 TRNE 1,(MFL) ;SET THE M FLAG?
1821 031371 434 10 0 00 035777 OR SLEN,BIT2 ;YES
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 23
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0077
1822
1823 ; **************************************************
1824 ;SET THE CODE BITS IN THE TRANSLATION TABLE
1825 ; **************************************************
1826
1827 031372 402 00 0 00 000000 SETZM AC0 ;TEMP LOC FOR CONTROL BITS
1828
1829 031373 602 01 0 00 020000 TRNE 1,(C1) ;SETUP THE SECOND HALFWORD
1830 031374 434 00 0 00 036000 OR BIT18
1831
1832 031375 602 01 0 00 010000 TRNE 1,(C2)
1833 031376 434 00 0 00 036001 OR BIT19
1834
1835 031377 602 01 0 00 004000 TRNE 1,(C3)
1836 031400 434 00 0 00 036002 OR BIT20
1837
1838 031401 602 01 0 00 002000 TRNE 1,(C4) ;SETUP THE THIRD HALFWORD
1839 031402 434 00 0 00 035775 OR BIT0
1840
1841 031403 602 01 0 00 001000 TRNE 1,(C5)
1842 031404 434 00 0 00 035776 OR BIT1
1843
1844 031405 602 01 0 00 000400 TRNE 1,(C6)
1845 031406 434 00 0 00 035777 OR BIT2
1846
1847 031407 260 17 0 00 031436 GO SETRAN ;YES - SET UP THE TRANSLATION TABLE
1848 031410 254 00 0 00 031420 JRST GOMOV
1849
1850 031411 302 00 0 00 000014 MOVOFF: CAIE AC0,014 ;IS IT MOVSO?
1851 031412 254 00 0 00 031420 JRST GOMOV ;NO - DON'T NEED AN OFFSET
1852
1853 031413 200 04 0 00 000001 MOVE AC4,AC1 ;COPY OF PARAM WORD
1854 031414 405 04 0 00 000014 ANDI AC4,OFF ;SAVE ONLY OFFSET INDEX
1855 031415 242 04 0 00 777776 LSH AC4,OFFSH ;SHIFT INTO POSITION
1856 031416 200 04 0 04 036410 MOVE AC4,OFFTAB(AC4) ;GET THE OFFSET WORD
1857 031417 542 04 0 00 035625 HRRM AC4,E0 ;PUT AS EFFECTIVE ADDRESS IN E0 WORD
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 24
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0078
1858
1859 ; **************************************************
1860 ;SAVE THE ORIGINAL AC BLOCK FOR ERROR PRINTOUT IF NECESSARY
1861 ; **************************************************
1862
1863 031420 200 00 0 00 037547 GOMOV: MOVE AC0,[AC,,ORIGSV]
1864 031421 251 00 0 00 036027 BLT AC0,ORIGSV+4
1865
1866 031422 262 17 0 00 000006 GET AC6 ;RESTORE AC6
1867
1868 ; **************************************************
1869 031423 260 17 0 00 033561 GO MOVSIM ;CALL THE COMPARE INSTR SIMULATOR
1870 031424 476 00 0 00 041233 SETOM SKPWD1 ;SIMULATED SKIP RETURN
1871 ; **************************************************
1872
1873 ; **************************************************
1874 031425 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
1875 031426 476 00 0 00 041234 SETOM SKPWD2 ;REAL SKIP RETURN
1876 ; **************************************************
1877
1878 031427 260 17 0 00 034345 GO MOVCOM ;COMPARE THE RESULTS
1879 031430 036 13 0 00 037571 ERROR MOV2,13,0,0,,,MOVPNT
1880 031431 035 00 0 00 031222 ERLOOP MOV2 ;IF ERROR, LOOP TO MOV2
1881
1882 031432 253 07 0 00 031222 AOBJN AC7,MOV2 ;EXECUTE THE NEXT CASE
1883 031433 253 06 0 00 031220 AOBJN AC6,MOV1 ;EXECUTE THE CASES WITH THE NEXT OPCODE
1884
1885 031434 367 15 0 00 031216 REPTLP MOVM
1886 031435 254 00 0 00 031454 JRST CDBMOD
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 25
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0079
1887
1888 ; **************************************************
1889 ;SETRAN -- ROUTINE TO SETUP TRANSLATE TABLE FOR MOVST
1890 ; TAKE TWO SPECIAL HALFWORDS IN AC0 , RETURNS +1 ALWAYS
1891 ; **************************************************
1892
1893 031436 261 17 0 00 000001 SETRAN: PUT AC1
1894 031437 261 17 0 00 000002 PUT AC2
1895
1896 031440 515 01 0 00 777770 HRLZI AC1,-10 ;AC1/-TABLE LENGTH,,0
1897 031441 541 01 0 00 035711 HRRI AC1,E1 ;AC1/-TABLE LENGTH,,TABLE ADDRESS
1898 031442 200 02 0 00 037574 MOVE AC2,[1,,1]
1899
1900 031443 202 02 0 01 000000 SETLOC: MOVEM AC2,(AC1)
1901 031444 253 01 0 00 031443 AOBJN AC1,SETLOC
1902
1903 031445 436 00 0 00 035711 IORM AC0,E1 ;PUT 1ST HALFWORD IN FIRST LOCATION
1904 031446 542 00 0 00 000002 HRRM AC2 ;PATCH UP OTHER HALF OF WORD
1905 031447 436 00 0 01 000000 IORM AC0,(AC1)
1906 031450 506 00 0 00 000002 HRLM AC2
1907
1908 031451 262 17 0 00 000002 GET AC2
1909 031452 262 17 0 00 000001 GET AC1
1910 031453 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 26
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0080
1911
1912 ; **********************************************************************
1913 ;*TEST 6 -- CONVERT DECIMAL TO BINARY INSTRUCTION TEST
1914 ;*
1915 ;* THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
1916 ;* TWO CVTDBX INSTRUCTIONS.
1917 ; **********************************************************************
1918 SALL
1919 037575 T= SIXBTZ <CONVERT DECIMAL TO BINARY INSTRUCTION TEST>
1920
1921 031454 201 00 0 00 031454 CDBMOD: MOVEI .
1922 031455 202 00 0 00 030051 MOVEM TESTPC
1923 031456 200 15 0 00 041231 MOVE REPT,RPEAT
1924
1925 031457 515 06 0 00 777776 CDBM: HRLZI AC6,-2 ;AC6/- #CVTDBX INSTR,,0
1926 031460 541 06 0 00 035573 HRRI AC6,CDBTAB ;AC6/- #CVTDBX INSTR,,OPCODE TABLE ADDR
1927
1928 031461 514 07 0 00 037145 CDB1: HRLZ AC7,CDBCAS-1 ;AC7/- #CVTDBX CASES,,0
1929 031462 541 07 0 00 037146 HRRI AC7,CDBCAS ;AC7/- #CVTDBX CASES,,CASE TABLE ADDR
1930
1931 031463 402 00 0 00 035625 CDB2: SETZM E0
1932 031464 200 00 0 06 000000 MOVE (AC6) ;RETRIEVE CURRENT CVTDBX OPCODE
1933 031465 137 00 0 00 036261 DPB AC0,E0OP ;DEPOSIT OPCODE IN FIELD
1934
1935 031466 402 00 0 00 041236 SETZM TRANFG ;CLEAR TRANSLATE FLAG
1936 031467 306 00 0 00 000011 CAIN AC0,011 ;CVTDBT INSTRUCTION?
1937 031470 476 00 0 00 041236 SETOM TRANFG ;YES - SET THE FLAG
1938
1939 031471 402 00 0 00 041233 SETZM SKPWD1 ;CLEAR THE SKIP INDICATOR FLAGS
1940 031472 402 00 0 00 041234 SETZM SKPWD2
1941
1942 ; **************************************************
1943 ;DETERMINE THE SOURCE STRING LENGTH
1944 ; **************************************************
1945
1946 031473 200 01 0 07 000000 MOVE AC1,(7) ;RETRIEVE CASE PARAMETER WORD
1947 031474 200 05 0 00 000001 MOVE AC5,AC1
1948 031475 405 05 0 00 000060 ANDI AC5,STRL ;SAVE ONLY INDEX TO LENGTH TABLE
1949 031476 242 05 0 00 777774 LSH AC5,STRLSH ;SHIFT INTO POSITION
1950 031477 200 10 0 05 036466 MOVE SLEN,LTAB(AC5) ;STRING LENGTH TO AC5
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 27
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0081
1951
1952 ; **************************************************
1953 ;DETERMINE THE INITIAL BINARY DATA
1954 ; **************************************************
1955
1956 031500 602 01 0 00 000002 TRNE AC1,(B0) ;SET BIT 0?
1957 031501 200 05 0 00 035775 MOVE AC5,BIT0 ;YES
1958
1959 031502 606 01 0 00 000002 TRNN AC1,(B0) ;SET BIT 35?
1960 031503 200 05 0 00 036000 MOVE AC5,BIT18 ;YES
1961
1962 031504 602 01 0 00 000001 TRNE AC1,(HW) ;PUT INTO HIGH BINARY DATA?
1963 031505 202 05 0 00 000013 MOVEM AC5,DBH ;YES
1964
1965 031506 606 01 0 00 000001 TRNN AC1,(HW) ;PUT INTO LOW BINARY DATA?
1966 031507 202 05 0 00 000014 MOVEM AC5,DBL ;YES
1967
1968 ; **************************************************
1969 ;DETERMINE THE STRING BYTE SIZE
1970 ; **************************************************
1971
1972 031510 603 01 0 00 000100 TLNE 1,(S44) ;FULL WORD BYTE SIZE?
1973 031511 200 11 0 00 037544 MOVE SP,[POINT 36,SOURCE] ;NO - 8 BIT BYTES
1974
1975 031512 607 01 0 00 000100 TLNN 1,(S44) ;FULL WORD BYTE SIZE?
1976 031513 200 11 0 00 037605 MOVE SP,[POINT 8,SOURCE] ;YES
1977
1978 ; **************************************************
1979 ;DETERMINE THE S,N,M FLAGS
1980 ; **************************************************
1981
1982 031514 602 01 0 00 400000 TRNE 1,(SFL) ;SET THE S FLAG?
1983 031515 434 10 0 00 035775 OR SLEN,BIT0 ;YES
1984
1985 031516 602 01 0 00 040000 TRNE 1,(NFL) ;SET THE N FLAG?
1986 031517 434 10 0 00 035776 OR SLEN,BIT1 ;YES
1987
1988 031520 602 01 0 00 100000 TRNE 1,(MFL) ;SET THE M FLAG?
1989 031521 434 10 0 00 035777 OR SLEN,BIT2 ;YES
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 28
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0082
1990
1991 ; **************************************************
1992 ;DETERMINE THE DATA TO BE CONVERTED
1993 ; **************************************************
1994
1995 031522 200 05 0 00 000001 MOVE AC5,AC1 ;COPY OF PARAMETER WORD
1996 031523 405 05 0 00 000700 ANDI AC5,DATA ;SAVE ONLY DATA TABLE INDEX BITS
1997 031524 242 05 0 00 777772 LSH AC5,DATASH ;SHIFT INTO POSITION
1998 031525 200 05 0 05 036414 MOVE AC5,DATTAB(AC5) ;AC5 HAS ADDRESS OF DATA STRING
1999
2000 ; **************************************************
2001 ;SETUP THE SOURCE STRING
2002 ; **************************************************
2003
2004 031526 200 03 0 00 000010 MOVE AC3,SLEN ;COPY OF THE STRING LENGTH
2005 031527 404 03 0 00 037606 AND AC3,[777,,777777] ;SAVE JUST THE LENGTH
2006
2007 031530 200 04 0 00 000011 MOVE AC4,SP ;COPY OF SOURCE BYTE POINTER
2008
2009 031531 361 03 0 00 031540 CDB3: SOJL AC3,CDB3A
2010
2011 031532 402 00 0 00 000000 SETZM AC0
2012 031533 134 00 0 00 000005 ILDB AC0,AC5 ;GET A SOURCE BYTE
2013
2014 031534 332 00 0 00 041236 SKIPE TRANFG
2015 031535 405 00 0 00 000017 ANDI AC0,17 ;IF CVTDBT MAKE THE BYTE A TABLE INDEX
2016
2017 031536 136 00 0 00 000004 IDPB AC0,AC4 ;PUT IT INTO THE SOURCE STRING
2018 031537 254 00 0 00 031531 JRST CDB3
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 29
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0083
2019
2020 ; **************************************************
2021 ;PICK AN OFFSET IF CVTDBO INSTRUCTION
2022 ; **************************************************
2023
2024 031540 332 00 0 00 041236 CDB3A: SKIPE TRANFG ;INSTRUCTION CVTDBO?
2025 031541 254 00 0 00 031550 JRST CDB4 ;NO
2026
2027 031542 200 05 0 00 000001 MOVE AC5,AC1 ;COPY OF PARAM WORD
2028 031543 405 05 0 00 000014 ANDI AC5,OFF
2029 031544 242 05 0 00 777776 LSH AC5,OFFSH ;SHIFT INTO POSITION
2030 031545 200 05 0 05 036410 MOVE AC5,OFFTAB(AC5) ;GET DESIRED OFFSET
2031 031546 542 05 0 00 035625 HRRM AC5,E0 ;STORE THE OFFSET
2032 031547 254 00 0 00 031570 JRST GOCDB ;ALL SET UP - EXECUTE THE INSTR
2033
2034 031550 201 00 0 00 035711 CDB4: MOVEI E1
2035 031551 542 00 0 00 035625 HRRM E0 ;STORE THE ADDR OF THE TRANSLATE TABLE
2036
2037 031552 402 00 0 00 000000 SETZM AC0 ;TEMP LOC FOR CONTROL BITS
2038 031553 602 01 0 00 020000 TRNE 1,(C1) ;SETUP THE SPECIAL HALFWORD
2039 031554 434 00 0 00 036000 OR BIT18
2040
2041 031555 602 01 0 00 010000 TRNE 1,(C2)
2042 031556 434 00 0 00 036001 OR BIT19
2043
2044 031557 602 01 0 00 004000 TRNE 1,(C3)
2045 031560 434 00 0 00 036002 OR BIT20
2046
2047 031561 602 01 0 00 002000 TRNE 1,(C4)
2048 031562 434 00 0 00 035775 OR BIT0
2049
2050 031563 602 01 0 00 001000 TRNE 1,(C5)
2051 031564 434 00 0 00 035776 OR BIT1
2052
2053 031565 602 01 0 00 000400 TRNE 1,(C6)
2054 031566 434 00 0 00 035777 OR BIT2
2055
2056 031567 260 17 0 00 031605 GO CDBTRN ;GO SETUP THE TRANSLATION TABLE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 30
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0084
2057
2058 031570 200 00 0 00 037547 GOCDB: MOVE AC0,[AC,,ORIGSV] ;SAVE CONTENTS OF AC BLOCK
2059 031571 251 00 0 00 036027 BLT AC0,ORIGSV+4
2060
2061 ; **************************************************
2062 031572 260 17 0 00 033717 GO CDBSIM ;CALL THE CVTDBX SIMULATOR
2063 031573 476 00 0 00 041233 SETOM SKPWD1
2064 ; **************************************************
2065
2066 ; **************************************************
2067 031574 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE REAL INSTRUCTION
2068 031575 476 00 0 00 041234 SETOM SKPWD2
2069 ; **************************************************
2070
2071 031576 260 17 0 00 034442 GO CDBCOM ;COMPARE THE RESULTS
2072 031577 036 13 0 00 037607 ERROR CDB2,13,0,0,,,CDBPNT
2073 031600 035 00 0 00 031463 ERLOOP CDB2 ;IF ERROR, LOOP TO CDB2
2074
2075 031601 253 07 0 00 031463 AOBJN AC7,CDB2 ;EXECUTE THE NEXT CASE
2076 031602 253 06 0 00 031461 AOBJN AC6,CDB1 ;EXECUTE CASES WITH NEXT OPCODE
2077
2078 031603 367 15 0 00 031457 REPTLP CDBM
2079 031604 254 00 0 00 031623 JRST CBDMOD
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 31
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0085
2080
2081 ; **************************************************
2082 ;CDBTRN -- ROUTINE TO SET UP THE TRANSLATE TABLE FOR CVTDBT
2083 ; **************************************************
2084
2085 031605 261 17 0 00 000001 CDBTRN: PUT AC1
2086 031606 261 17 0 00 000002 PUT AC2
2087
2088 031607 515 01 0 00 777770 HRLZI AC1,-10 ;AC1/-TABLE LENGTH,,0
2089 031610 541 01 0 00 035711 HRRI AC1,E1 ;AC1/-TABLE LENGTH,,TABLE ADDRESS
2090 031611 200 02 0 00 037612 MOVE AC2,[400000,,400001]
2091
2092 031612 202 02 0 01 000000 SETLC1: MOVEM AC2,(AC1)
2093 031613 253 02 0 00 031614 AOBJN AC2,.+1 ;GET THE NEXT ENTRY
2094 031614 253 02 0 00 031615 AOBJN AC2,.+1
2095 031615 253 01 0 00 031612 AOBJN AC1,SETLC1
2096
2097 031616 502 00 0 00 035711 HLLM E1 ;PUT 1ST HALFWORD IN 1ST LOCATION
2098 031617 506 00 0 00 000000 HRLM AC1-1 ;PUT 2ND HALFWORD IN LAST LOCATION
2099
2100 031620 262 17 0 00 000002 GET AC2
2101 031621 262 17 0 00 000001 GET AC1
2102 031622 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 32
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0086
2103
2104 ; **********************************************************************
2105 ;*TEST 7 -- CONVERT BINARY TO DECIMAL INSTRUCTION TEST
2106 ;*
2107 ;* THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
2108 ;* TWO CVTBDX INSTRUCTIONS.
2109 ; **********************************************************************
2110 SALL
2111 037613 T= SIXBTZ <CONVERT BINARY TO DECIMAL INSTRUCTION TEST>
2112
2113 031623 201 00 0 00 031623 CBDMOD: MOVEI .
2114 031624 202 00 0 00 030051 MOVEM TESTPC
2115 031625 200 15 0 00 041231 MOVE REPT,RPEAT
2116
2117 031626 515 06 0 00 777776 CBDM: HRLZI AC6,-2 ;AC6/- #CVTBDX INSTR,,0
2118 031627 541 06 0 00 035575 HRRI AC6,CBDTAB ;AC6/- #CVTBDX INSTR,,OPCODE TABLE ADDR
2119
2120 031630 514 07 0 00 037206 CBD1: HRLZ AC7,CBDCAS-1 ;AC7/- #CVTBDX CASES,,0
2121 031631 541 07 0 00 037207 HRRI AC7,CBDCAS ;AC7/- #CVTBDX CASES,,CASE TABLE ADDR
2122
2123 031632 260 17 0 00 035347 CBD2: GO CLRSTR
2124
2125 031633 402 00 0 00 035625 SETZM E0
2126 031634 200 00 0 06 000000 MOVE (AC6) ;RETRIEVE CURRENT CVTBDX OPCODE
2127 031635 137 00 0 00 036261 DPB AC0,E0OP ;STORE THE OPCODE
2128
2129 031636 402 00 0 00 041236 SETZM TRANFG
2130 031637 306 00 0 00 000013 CAIN AC0,013 ;CVTBDT INSTR?
2131 031640 476 00 0 00 041236 SETOM TRANFG ;YES
2132
2133 031641 402 00 0 00 041233 SETZM SKPWD1 ;CLEAR THE SKIP INDICATOR WORDS
2134 031642 402 00 0 00 041234 SETZM SKPWD2
2135
2136 ; **************************************************
2137 ;DETERMINE THE DESTINATION STRING LENGTH
2138 ; **************************************************
2139
2140 031643 200 01 0 07 000000 MOVE AC1,(7) ;RETRIEVE THE PARAMETER WORD
2141 031644 200 05 0 00 000001 MOVE AC5,AC1 ;MAKE A COPY
2142 031645 405 05 0 00 000060 ANDI AC5,STRL ;SAVE ONLY LENGTH INDEX
2143 031646 242 05 0 00 777774 LSH AC5,STRLSH ;SHIFT INTO POSITION
2144 031647 200 13 0 05 036466 MOVE DLEN,LTAB(AC5) ;STORE IT
2145
2146 ; **************************************************
2147 ;DETERMINE THE STRING BYTE SIZE
2148 ; **************************************************
2149
2150 031650 603 01 0 00 000100 TLNE 1,(S44) ;FULL WORD BYTE SIZE?
2151 031651 200 14 0 00 037546 MOVE DP,[POINT 36,DESTIN] ;NO - 8 BIT BYTES
2152 031652 607 01 0 00 000100 TLNN 1,(S44) ;FULL WORD BYTE SIZE?
2153 031653 200 14 0 00 037623 MOVE DP,[POINT 8,DESTIN] ;YES
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 33
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0087
2154
2155 ; **************************************************
2156 ;DETERMINE THE S,N,M FLAGS
2157 ; **************************************************
2158
2159 031654 602 01 0 00 400000 TRNE 1,(SFL) ;SET THE S FLAG?
2160 031655 434 13 0 00 035775 OR DLEN,BIT0 ;YES
2161
2162 031656 602 01 0 00 040000 TRNE 1,(NFL) ;SET THE N FLAG?
2163 031657 434 13 0 00 035776 OR DLEN,BIT1 ;YES
2164
2165 031660 602 01 0 00 100000 TRNE 1,(MFL) ;SET THE M FLAG?
2166 031661 434 13 0 00 035777 OR DLEN,BIT2 ;YES
2167
2168 ; **************************************************
2169 ;DETERMINE THE DATA TO BE CONVERTED
2170 ; **************************************************
2171
2172 031662 200 05 0 00 000001 MOVE AC5,1 ;COPY OF PARAMETER WORD
2173 031663 405 05 0 00 000700 ANDI AC5,DATA ;SAVE ONLY DATA TABLE INDEX BITS
2174 031664 242 05 0 00 777772 LSH AC5,DATASH ;SHIFT INTO POSITION
2175 031665 120 10 1 05 036436 DMOVE BDH,@DATCBD(AC5) ;GET HIGH AND LOW DATA INTO THE AC'S
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 34
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0088
2176
2177 ; **************************************************
2178 ;PICK AN OFFSET IF CVTBDO INSTRUCTION
2179 ; **************************************************
2180
2181 031666 332 00 0 00 041236 CBD3: SKIPE TRANFG ;INSTRUCTION CVTBDO?
2182 031667 254 00 0 00 031676 JRST CBD4 ;NO
2183
2184 031670 200 05 0 00 000001 MOVE AC5,AC1 ;COPY OF PARAM WORD
2185 031671 405 05 0 00 000014 ANDI AC5,OFF ;JUST KEEP THE OFFSET BITS OF CASE WORD
2186 031672 242 05 0 00 777776 LSH AC5,OFFSH ;SHIFT INTO POSITION
2187 031673 200 05 0 05 036410 MOVE AC5,OFFTAB(AC5) ;GET DESIRED OFFSET
2188 031674 542 05 0 00 035625 HRRM AC5,E0 ;STORE THE OFFSET
2189 031675 254 00 0 00 031716 JRST GOCBD ;ALL SET UP - EXECUTE THE INSTR
2190
2191 031676 201 00 0 00 035711 CBD4: MOVEI E1
2192 031677 542 00 0 00 035625 HRRM E0 ;STORE LOCATION OF TRANSLATE TABLE
2193
2194 031700 402 00 0 00 000000 SETZM AC0 ;TEMP LOC FOR CONTROL BITS
2195 031701 602 01 0 00 020000 TRNE 1,(C1) ;SETUP THE TWO HALFWORDS
2196 031702 434 00 0 00 036000 OR BIT18
2197
2198 031703 602 01 0 00 010000 TRNE 1,(C2)
2199 031704 434 00 0 00 036001 OR BIT19
2200
2201 031705 602 01 0 00 004000 TRNE 1,(C3)
2202 031706 434 00 0 00 036002 OR BIT20
2203
2204 031707 602 01 0 00 002000 TRNE 1,(C4)
2205 031710 434 00 0 00 035775 OR BIT0
2206
2207 031711 602 01 0 00 001000 TRNE 1,(C5)
2208 031712 434 00 0 00 035776 OR BIT1
2209
2210 031713 602 01 0 00 000400 TRNE 1,(C6)
2211 031714 434 00 0 00 035777 OR BIT2
2212
2213 031715 260 17 0 00 035215 GO CBDTRN ;GO SETUP THE TRANSLATION TABLE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 35
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0089
2214
2215 031716 200 00 0 00 037547 GOCBD: MOVE AC0,[AC,,ORIGSV] ;SAVE CONTENTS OF AC BLOCK
2216 031717 251 00 0 00 036027 BLT AC0,ORIGSV+4
2217
2218 ; **************************************************
2219 031720 260 17 0 00 034016 GO CBDSIM ;CALL THE CVTBDX SIMULATOR
2220 031721 476 00 0 00 041233 SETOM SKPWD1
2221 ; **************************************************
2222
2223 ; **************************************************
2224 031722 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE REAL INSTRUCTION
2225 031723 476 00 0 00 041234 SETOM SKPWD2
2226 ; **************************************************
2227
2228 031724 260 17 0 00 034511 GO CBDCOM ;COMPARE THE RESULTS
2229 031725 036 13 0 00 037624 ERROR CBD2,13,0,0,,,CBDPNT
2230 031726 035 00 0 00 031632 ERLOOP CBD2 ;IF ERROR, LOOP TO CBD2
2231
2232 031727 253 07 0 00 031632 AOBJN AC7,CBD2 ;EXECUTE THE NEXT CASE
2233 031730 253 06 0 00 031630 AOBJN AC6,CBD1 ;EXECUTE CASES WITH NEXT OPCODE
2234
2235 031731 367 15 0 00 031626 REPTLP CBDM
2236 031732 254 00 0 00 031733 JRST EDMODM
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 36
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0090
2237
2238 ; **********************************************************************
2239 ;*TEST 8 -- EDIT INSTRUCTION TEST
2240 ;*
2241 ;* THE EDIT INSTRUCTION TEST CONSISTS OF A SERIES OF
2242 ;* SUBMODULES EACH OF WHICH TESTS A SINGLE PATTERN BYTE TYPE.
2243 ;*
2244 ;* EDMOD1 -- STOP (001) PATTERN BYTE TYPE TEST
2245 ;* EDMOD2 -- EXCHMD (004) PATTERN BYTE TYPE TEST
2246 ;* EDMOD3 -- SIGST (002) PATTERN BYTE TYPE TEST
2247 ;* EDMOD4 -- FLDSEP (003) PATTERN BYTE TYPE TEST
2248 ;* EDMOD5 -- MESSAG (1XX) PATTERN BYTE TYPE TEST
2249 ;* EDMOD6 -- NOP (005) PATTERN BYTE TYPE TEST
2250 ;* EDMOD7A -- SKPM (5XX) PATTERN BYTE TYPE TESTS
2251 ;* EDMOD7B -- SKPN (6XX) PATTERN BYTE TYPE TESTS
2252 ;* EDMOD7C -- SKPA (7XX) PATTERN BYTE TYPE TESTS
2253 ;* EDMOD8 -- SELECT (001) PATTERN BYTE TYPE TEST
2254 ;* EDMOD9 -- NON DEFINED PATTERN BYTE TYPE TEST
2255 ; **********************************************************************
2256 SALL
2257 037627 T= SIXBTZ <EDIT INSTRUCTION TEST>
2258
2259 031733 200 15 0 00 041231 EDMODM: MOVE REPT,RPEAT
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 37
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0091
2260
2261 ; **********************************************************************
2262 ;*EDMOD1 -- STOP (001) PATTERN BYTE TYPE TEST
2263 ;*
2264 ;* THE STOP PATTERN IS TESTED IN ALL FOUR POSITIONS OF
2265 ;* THE PATTERN BYTE TABLE. IT WILL BE EXECUTED WITH ALL COMBINATIONS
2266 ;* OF THE S,N AND M FLAGS. PATTERN TABLE LOCATIONS WITH THE EXCEPTION
2267 ;* OF THE FIRST WORD WILL BE FILLED WITH SIGST.
2268 ; **********************************************************************
2269 SALL
2270 037633 T= SIXBTZ <EDIT - STOP (001) PATTERN BYTE TYPE TEST>
2271
2272 EDMOD(EDMOD1,EDM1,EDMOD2,ED1WD,SIGWD,0)
2273
2274 031734 201 00 0 00 031734 EDMOD1: MOVEI .
2275 031735 202 00 0 00 030051 MOVEM TESTPC
2276
2277 031736 201 00 0 00 000000 MOVEI AC0,0 ;INDEX TO BYTE TYPE TABLE
2278 031737 202 00 0 00 036333 MOVEM BYTYPE ;STORE
2279
2280 031740 402 00 0 00 041220 SETZM OFFSET
2281 031741 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2282 031742 476 00 0 00 041220 SETOM OFFSET ;YES
2283
2284 031743 514 07 0 00 037247 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2285 031744 541 07 0 00 037250 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2286
2287 031745 402 00 0 00 041233 EDM1: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2288 031746 402 00 0 00 041234 SETZM SKPWD2
2289
2290 031747 260 17 0 00 035347 GO CLRSTR ;CLEAR STRING BYTES
2291
2292 031750 200 02 0 00 036523 MOVE AC2,SIGWD ;TABLE FILLER BYTE TYPE
2293 031751 202 02 0 00 036307 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2294 031752 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
2295 031753 251 00 0 00 036320 BLT AC0,PATTBL+^D9
2296
2297 031754 260 17 0 00 035070 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2298
2299 031755 135 03 0 00 036514 LDB AC3,PATBN ;GET THE CURRENT PB#
2300 031756 200 01 0 03 036334 MOVE AC1,ED1WD(AC3) ;GET TABLE TEST WORD
2301 031757 202 01 0 00 036307 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2302
2303 031760 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2304 031761 200 13 0 00 037643 MOVE MA,[POINT 0,SOURCE] ;YES
2305
2306 031762 200 00 0 00 037547 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2307 031763 251 00 0 00 036027 BLT AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 38
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0092
2308
2309 ; **************************************************
2310 031764 260 17 0 00 034155 GO EDTSIM ;SIMULATE THE INSTRUCTION
2311 031765 476 00 0 00 041233 SETOM SKPWD1
2312 ; **************************************************
2313
2314 031766 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD OPERATOR?
2315 031767 260 17 0 00 035347 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2316
2317 ; **************************************************
2318 031770 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2319 031771 476 00 0 00 041234 SETOM SKPWD2
2320 ; **************************************************
2321
2322 031772 260 17 0 00 034577 GO EDTCOM ;COMPARE THE RESULTS
2323 ERROR EDM1,13,0,0,,,EDTPNT^
2324 SALL
2325 031773 036 13 0 00 037644
2326 031774 035 00 0 00 031745 ERLOOP EDM1 ;IF ERROR, LOOP TO EDM1
2327 031775 253 07 0 00 031745 AOBJN AC7,EDM1 ;DO THE NEXT CASE
2328
2329 031776 402 00 0 00 041220 SETZM OFFSET
2330 031777 254 00 0 00 032000 JRST EDMOD2 ;FINISHED - GO TO NEXT SUBMODULE
2331 SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 39
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0093
2332
2333 ; **********************************************************************
2334 ;*EDMOD2 -- EXCHMD (004) PATTERN BYTE TYPE TEST
2335 ;*
2336 ;* THE EXCHMD PATTERN BYTE WILL BE TESTED IN FOUR SEQUENCES, THESE ARE:
2337 ;* EXCHMD STOP,
2338 ;* EXCHMD EXCHMD STOP,
2339 ;* EXCHMD EXCHMD EXCHMD STOP,
2340 ;* EXCHMD EXCHMD EXCHMD EXCHMD STOP.
2341 ;*
2342 ;* THE MARK ADDRESS IN AC+3 WILL BE INITIALIZED TO [POINT 0,SOURCE]
2343 ;* AND DP WILL BE EQUAL TO [POINT 36,DESTIN]. THE S,N, AND M FLAGS
2344 ;* WILL BE VARIED TO INSURE THAT THEIR VALUES HAVE NO EFFECT ON THE
2345 ;* OUTCOME OF THE INSTRUCTION. ALL BYTES IN THE PATTERN BYTE TABLE
2346 ;* WILL BE SET TO STOP WITH THE EXCEPTION OF THE FIRST WORD OF THE TABLE.
2347 ; **********************************************************************
2348 SALL
2349 037647 T= SIXBTZ <EDIT - EXCHMD (004) PATTERN BYTE TYPE TEST>
2350
2351 EDMOD(EDMOD2,EDM2,EDMOD3,ED2WD,STOPWD,1)
2352
2353 032000 201 00 0 00 032000 EDMOD2: MOVEI .
2354 032001 202 00 0 00 030051 MOVEM TESTPC
2355
2356 032002 201 00 0 00 000001 MOVEI AC0,1 ;INDEX TO BYTE TYPE TABLE
2357 032003 202 00 0 00 036333 MOVEM BYTYPE ;STORE
2358
2359 032004 402 00 0 00 041220 SETZM OFFSET
2360 032005 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2361 032006 476 00 0 00 041220 SETOM OFFSET ;YES
2362
2363 032007 514 07 0 00 037247 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2364 032010 541 07 0 00 037250 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2365
2366 032011 402 00 0 00 041233 EDM2: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2367 032012 402 00 0 00 041234 SETZM SKPWD2
2368
2369 032013 260 17 0 00 035347 GO CLRSTR ;CLEAR STRING BYTES
2370
2371 032014 200 02 0 00 036522 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2372 032015 202 02 0 00 036307 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2373 032016 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
2374 032017 251 00 0 00 036320 BLT AC0,PATTBL+^D9
2375
2376 032020 260 17 0 00 035070 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2377
2378 032021 135 03 0 00 036514 LDB AC3,PATBN ;GET THE CURRENT PB#
2379 032022 200 01 0 03 036340 MOVE AC1,ED2WD(AC3) ;GET TABLE TEST WORD
2380 032023 202 01 0 00 036307 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2381
2382 032024 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2383 032025 200 13 0 00 037643 MOVE MA,[POINT 0,SOURCE] ;YES
2384
2385 032026 200 00 0 00 037547 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2386 032027 251 00 0 00 036027 BLT AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 40
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0094
2387
2388 ; **************************************************
2389 032030 260 17 0 00 034155 GO EDTSIM ;SIMULATE THE INSTRUCTION
2390 032031 476 00 0 00 041233 SETOM SKPWD1
2391 ; **************************************************
2392
2393 032032 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD OPERATOR?
2394 032033 260 17 0 00 035347 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2395
2396 ; **************************************************
2397 032034 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2398 032035 476 00 0 00 041234 SETOM SKPWD2
2399 ; **************************************************
2400
2401 032036 260 17 0 00 034577 GO EDTCOM ;COMPARE THE RESULTS
2402 ERROR EDM2,13,0,0,,,EDTPNT^
2403 SALL
2404 032037 036 13 0 00 037657
2405 032040 035 00 0 00 032011 ERLOOP EDM2 ;IF ERROR, LOOP TO EDM2
2406 032041 253 07 0 00 032011 AOBJN AC7,EDM2 ;DO THE NEXT CASE
2407
2408 032042 402 00 0 00 041220 SETZM OFFSET
2409 032043 254 00 0 00 032044 JRST EDMOD3 ;FINISHED - GO TO NEXT SUBMODULE
2410 SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 41
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0095
2411
2412 ; **********************************************************************
2413 ;*EDMOD3 -- SIGST (002) PATTERN BYTE TYPE TEST
2414 ;*
2415 ;* THERE ARE THREE MAIN EXECUTION PATHS TO BE TESTED:
2416 ;* 1. S=1
2417 ;* 2. S=0, E0+2=0
2418 ;* 3. S=0, E0+2 NOT =0
2419 ;*
2420 ;* THE VALUES OF THE M AND N FLAGS ARE VARIED TO INSURE THAT THEIR
2421 ;* VALUE HAS NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. WITH THE
2422 ;* EXCEPTION OF THE TEST PATTERN BYTES THE TABLE WILL BE FILLED
2423 ;* WITH THE STOP OPERATOR.
2424 ; **********************************************************************
2425 SALL
2426 037662 T= SIXBTZ <EDIT - SIGST (002) PATTERN BYTE TYPE TEST>
2427
2428 EDMOD(EDMOD3,EDM3,EDMOD4,ED3WD,STOPWD,2)
2429
2430 032044 201 00 0 00 032044 EDMOD3: MOVEI .
2431 032045 202 00 0 00 030051 MOVEM TESTPC
2432
2433 032046 201 00 0 00 000002 MOVEI AC0,2 ;INDEX TO BYTE TYPE TABLE
2434 032047 202 00 0 00 036333 MOVEM BYTYPE ;STORE
2435
2436 032050 402 00 0 00 041220 SETZM OFFSET
2437 032051 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2438 032052 476 00 0 00 041220 SETOM OFFSET ;YES
2439
2440 032053 514 07 0 00 037247 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2441 032054 541 07 0 00 037250 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2442
2443 032055 402 00 0 00 041233 EDM3: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2444 032056 402 00 0 00 041234 SETZM SKPWD2
2445
2446 032057 260 17 0 00 035347 GO CLRSTR ;CLEAR STRING BYTES
2447
2448 032060 200 02 0 00 036522 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2449 032061 202 02 0 00 036307 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2450 032062 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
2451 032063 251 00 0 00 036320 BLT AC0,PATTBL+^D9
2452
2453 032064 260 17 0 00 035070 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2454
2455 032065 135 03 0 00 036514 LDB AC3,PATBN ;GET THE CURRENT PB#
2456 032066 200 01 0 03 036344 MOVE AC1,ED3WD(AC3) ;GET TABLE TEST WORD
2457 032067 202 01 0 00 036307 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2458
2459 032070 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2460 032071 200 13 0 00 037643 MOVE MA,[POINT 0,SOURCE] ;YES
2461
2462 032072 200 00 0 00 037547 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2463 032073 251 00 0 00 036027 BLT AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 42
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0096
2464
2465 ; **************************************************
2466 032074 260 17 0 00 034155 GO EDTSIM ;SIMULATE THE INSTRUCTION
2467 032075 476 00 0 00 041233 SETOM SKPWD1
2468 ; **************************************************
2469
2470 032076 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD OPERATOR?
2471 032077 260 17 0 00 035347 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2472
2473 ; **************************************************
2474 032100 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2475 032101 476 00 0 00 041234 SETOM SKPWD2
2476 ; **************************************************
2477
2478 032102 260 17 0 00 034577 GO EDTCOM ;COMPARE THE RESULTS
2479 ERROR EDM3,13,0,0,,,EDTPNT^
2480 SALL
2481 032103 036 13 0 00 037671
2482 032104 035 00 0 00 032055 ERLOOP EDM3 ;IF ERROR, LOOP TO EDM3
2483 032105 253 07 0 00 032055 AOBJN AC7,EDM3 ;DO THE NEXT CASE
2484
2485 032106 402 00 0 00 041220 SETZM OFFSET
2486 032107 254 00 0 00 032110 JRST EDMOD4 ;FINISHED - GO TO NEXT SUBMODULE
2487 SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 43
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0097
2488
2489 ; **********************************************************************
2490 ;*EDMOD4 -- FLDSEP (003) PATTERN BYTE TYPE TEST
2491 ;*
2492 ;* THE FLDSEP OPERATOR WILL BE TESTED WITH ALL COMBINATIONS
2493 ;* OF THE S,N AND M FLAGS. THE REMAINING BYTES IN THE TABLE WILL BE
2494 ;* FILLED WITH THE STOP OPERATOR. ALL BYTES IN THE PATTERN BYTE
2495 ;* TABLE WILL BE FILLED WITH STOP EXCEPT FOR THE FIRST WORD.
2496 ; **********************************************************************
2497 SALL
2498 037674 T= SIXBTZ <EDIT - FLDSEP (003) PATTERN BYTE TYPE TEST>
2499
2500 EDMOD(EDMOD4,EDM4,EDMOD5,ED4WD,STOPWD,3)
2501
2502 032110 201 00 0 00 032110 EDMOD4: MOVEI .
2503 032111 202 00 0 00 030051 MOVEM TESTPC
2504
2505 032112 201 00 0 00 000003 MOVEI AC0,3 ;INDEX TO BYTE TYPE TABLE
2506 032113 202 00 0 00 036333 MOVEM BYTYPE ;STORE
2507
2508 032114 402 00 0 00 041220 SETZM OFFSET
2509 032115 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2510 032116 476 00 0 00 041220 SETOM OFFSET ;YES
2511
2512 032117 514 07 0 00 037247 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2513 032120 541 07 0 00 037250 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2514
2515 032121 402 00 0 00 041233 EDM4: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2516 032122 402 00 0 00 041234 SETZM SKPWD2
2517
2518 032123 260 17 0 00 035347 GO CLRSTR ;CLEAR STRING BYTES
2519
2520 032124 200 02 0 00 036522 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2521 032125 202 02 0 00 036307 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2522 032126 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
2523 032127 251 00 0 00 036320 BLT AC0,PATTBL+^D9
2524
2525 032130 260 17 0 00 035070 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2526
2527 032131 135 03 0 00 036514 LDB AC3,PATBN ;GET THE CURRENT PB#
2528 032132 200 01 0 03 036350 MOVE AC1,ED4WD(AC3) ;GET TABLE TEST WORD
2529 032133 202 01 0 00 036307 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2530
2531 032134 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2532 032135 200 13 0 00 037643 MOVE MA,[POINT 0,SOURCE] ;YES
2533
2534 032136 200 00 0 00 037547 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2535 032137 251 00 0 00 036027 BLT AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 44
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0098
2536
2537 ; **************************************************
2538 032140 260 17 0 00 034155 GO EDTSIM ;SIMULATE THE INSTRUCTION
2539 032141 476 00 0 00 041233 SETOM SKPWD1
2540 ; **************************************************
2541
2542 032142 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD OPERATOR?
2543 032143 260 17 0 00 035347 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2544
2545 ; **************************************************
2546 032144 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2547 032145 476 00 0 00 041234 SETOM SKPWD2
2548 ; **************************************************
2549
2550 032146 260 17 0 00 034577 GO EDTCOM ;COMPARE THE RESULTS
2551 ERROR EDM4,13,0,0,,,EDTPNT^
2552 SALL
2553 032147 036 13 0 00 037704
2554 032150 035 00 0 00 032121 ERLOOP EDM4 ;IF ERROR, LOOP TO EDM4
2555 032151 253 07 0 00 032121 AOBJN AC7,EDM4 ;DO THE NEXT CASE
2556
2557 032152 402 00 0 00 041220 SETZM OFFSET
2558 032153 254 00 0 00 032154 JRST EDMOD5 ;FINISHED - GO TO NEXT SUBMODULE
2559 SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 45
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0099
2560
2561 ; **********************************************************************
2562 ;*EDMOD5 -- MESSAG (1XX) PATTERN BYTE TYPE TEST
2563 ;*
2564 ;* THERE ARE THREE EXECUTION PATHS THAT MUST BE TESTED:
2565 ;* 1. S=1
2566 ;* 2. S=0, E0+1=0
2567 ;* 3. S=0, E0+1 NOT =0
2568 ;*
2569 ;* THE N AND M FLAGS WILL BE VARIED TO INSURE THAT THERE VALUE HAS
2570 ;* NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. ALL BYTES IN THE
2571 ;* PATTERN TABLE WILL BE FILLED WITH THE STOP OPERATOR WITH THE
2572 ;* EXCEPTION OF THE FIRST WORD. THEN ALL POSSIBLE MESSAGE
2573 ;* CHARACTERS WILL BE INSERTED INTO THE DESTINATION STRING.
2574 ; **********************************************************************
2575 SALL
2576 037707 T= SIXBTZ <EDIT - MESSAG (1XX) PATTERN BYTE TYPE TEST>
2577
2578 EDMOD(EDMOD5,EDM5,EDM5A,ED5WD,STOPWD,4)
2579
2580 032154 201 00 0 00 032154 EDMOD5: MOVEI .
2581 032155 202 00 0 00 030051 MOVEM TESTPC
2582
2583 032156 201 00 0 00 000004 MOVEI AC0,4 ;INDEX TO BYTE TYPE TABLE
2584 032157 202 00 0 00 036333 MOVEM BYTYPE ;STORE
2585
2586 032160 402 00 0 00 041220 SETZM OFFSET
2587 032161 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2588 032162 476 00 0 00 041220 SETOM OFFSET ;YES
2589
2590 032163 514 07 0 00 037247 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2591 032164 541 07 0 00 037250 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2592
2593 032165 402 00 0 00 041233 EDM5: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2594 032166 402 00 0 00 041234 SETZM SKPWD2
2595
2596 032167 260 17 0 00 035347 GO CLRSTR ;CLEAR STRING BYTES
2597
2598 032170 200 02 0 00 036522 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2599 032171 202 02 0 00 036307 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2600 032172 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
2601 032173 251 00 0 00 036320 BLT AC0,PATTBL+^D9
2602
2603 032174 260 17 0 00 035070 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2604
2605 032175 135 03 0 00 036514 LDB AC3,PATBN ;GET THE CURRENT PB#
2606 032176 200 01 0 03 036354 MOVE AC1,ED5WD(AC3) ;GET TABLE TEST WORD
2607 032177 202 01 0 00 036307 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2608
2609 032200 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2610 032201 200 13 0 00 037643 MOVE MA,[POINT 0,SOURCE] ;YES
2611
2612 032202 200 00 0 00 037547 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2613 032203 251 00 0 00 036027 BLT AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 46
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0100
2614
2615 ; **************************************************
2616 032204 260 17 0 00 034155 GO EDTSIM ;SIMULATE THE INSTRUCTION
2617 032205 476 00 0 00 041233 SETOM SKPWD1
2618 ; **************************************************
2619
2620 032206 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD OPERATOR?
2621 032207 260 17 0 00 035347 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2622
2623 ; **************************************************
2624 032210 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2625 032211 476 00 0 00 041234 SETOM SKPWD2
2626 ; **************************************************
2627
2628 032212 260 17 0 00 034577 GO EDTCOM ;COMPARE THE RESULTS
2629 ERROR EDM5,13,0,0,,,EDTPNT^
2630 SALL
2631 032213 036 13 0 00 037717
2632 032214 035 00 0 00 032165 ERLOOP EDM5 ;IF ERROR, LOOP TO EDM5
2633 032215 253 07 0 00 032165 AOBJN AC7,EDM5 ;DO THE NEXT CASE
2634
2635 032216 402 00 0 00 041220 SETZM OFFSET
2636 032217 254 00 0 00 032220 JRST EDM5A ;FINISHED - GO TO NEXT SUBMODULE
2637 SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 47
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0101
2638
2639 ; **********************************************************************
2640 ;*INSERT EVERY MESSAGE CHARACTER IN THE DESTINATION STRING
2641 ; **********************************************************************
2642
2643 032220 260 17 0 00 035347 EDM5A: GO CLRSTR ;CLEAR THE DESTINATION STRINGS
2644
2645 032221 200 00 0 00 037722 MOVE AC0,[MESSGS,,E0+1] ;SET UP THE 64 MESSAGE CHARACTERS
2646 032222 251 00 0 00 035631 BLT AC0,E0+4
2647
2648 032223 201 00 0 00 000037 MOVEI AC0,37 ;GET NEXT CODE
2649 032224 541 01 0 00 035632 HRRI AC1,E0+5
2650 032225 505 01 0 00 777731 HRLI AC1,-^D39
2651
2652 032226 202 00 0 01 000000 FILE0: MOVEM AC0,(AC1) ;PUT INTO E0 TABLE
2653 032227 271 00 0 00 000001 ADDI AC0,1
2654 032230 253 01 0 00 032226 AOBJN AC1,FILE0
2655
2656 032231 201 01 0 00 000077 PTMSET: MOVEI AC1,^D63 ;SET UP THE PATTERN BYTE TABLE
2657 032232 200 02 0 00 036515 MOVE AC2,PATPT ;GET BYTE POINTER
2658
2659 032233 201 00 0 00 000100 MOVEI AC0,100
2660 032234 136 00 0 00 000002 PTM1: IDPB AC0,AC2 ;PUT THE BYTE IN THE TABLE
2661 032235 271 00 0 00 000001 ADDI AC0,1
2662 032236 367 01 0 00 032234 SOJG AC1,PTM1
2663
2664 032237 201 00 0 00 000000 MOVEI AC0,STOP ;FINISH UP WITH STOP
2665 032240 136 00 0 00 000002 IDPB AC0,AC2 ;OVERWRITE THE LAST BYTE WITH A STOP
2666
2667 032241 201 07 0 00 037310 MOVEI AC7,MCASE ;GET SPECIAL CASE PARAMETER WORD
2668 032242 260 17 0 00 035070 GO EDTSET ;INITIALIZE THE AC BLOCK
2669
2670 032243 200 00 0 00 037547 MOVE AC0,[AC,,ORIGSV]
2671 032244 251 00 0 00 036027 BLT AC0,ORIGSV+4
2672
2673 ; **************************************************
2674 032245 260 17 0 00 034155 GO EDTSIM ;SIMULATE THE INSTRUCTION
2675 032246 476 00 0 00 041233 SETOM SKPWD1
2676 ; **************************************************
2677
2678 ; **************************************************
2679 032247 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE REAL INSTRUCTION
2680 032250 476 00 0 00 041234 SETOM SKPWD2
2681 ; **************************************************
2682
2683 032251 260 17 0 00 034577 GO EDTCOM ;COMPARE THE RESULTS
2684 032252 036 13 0 00 037717 ERROR EDM5A,13,0,0,,,EDTPNT
2685 032253 035 00 0 00 032220 ERLOOP EDM5A ;IF ERROR, LOOP TO EDM5A
2686
2687 032254 254 00 0 00 032255 JRST EDMOD6 ;GO TO NEXT SUBMODULE TEST
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 48
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0102
2688
2689 ; **********************************************************************
2690 ;*EDMOD6 -- NOP (005) PATTERN BYTE TYPE TEST
2691 ;*
2692 ;* THE EDIT INSTRUCTION WILL BE EXECUTED WITH THE FOUR SEQUENCES:
2693 ;* NOP STOP,
2694 ;* NOP NOP STOP,
2695 ;* NOP NOP NOP STOP,
2696 ;* NOP NOP NOP NOP STOP.
2697 ;*
2698 ;* THE REST OF THE PATTERN BYTE TABLE WILL BE FILLED
2699 ;* WITH THE STOP OPERATOR. THE S,N AND M FLAGS WILL BE VARIED TO
2700 ;* INSURE THAT THEIR VALUE HAS NO EFFECT ON THE OUTCOME OF THE
2701 ;* INSTRUCTION.
2702 ; **********************************************************************
2703 SALL
2704 037723 T= SIXBTZ <EDIT - NOP (005) PATTERN BYTE TYPE TEST>
2705
2706 EDMOD(EDMOD6,EDM6,EDMD7A,ED6WD,STOPWD,5)
2707
2708 032255 201 00 0 00 032255 EDMOD6: MOVEI .
2709 032256 202 00 0 00 030051 MOVEM TESTPC
2710
2711 032257 201 00 0 00 000005 MOVEI AC0,5 ;INDEX TO BYTE TYPE TABLE
2712 032260 202 00 0 00 036333 MOVEM BYTYPE ;STORE
2713
2714 032261 402 00 0 00 041220 SETZM OFFSET
2715 032262 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2716 032263 476 00 0 00 041220 SETOM OFFSET ;YES
2717
2718 032264 514 07 0 00 037247 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2719 032265 541 07 0 00 037250 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2720
2721 032266 402 00 0 00 041233 EDM6: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2722 032267 402 00 0 00 041234 SETZM SKPWD2
2723
2724 032270 260 17 0 00 035347 GO CLRSTR ;CLEAR STRING BYTES
2725
2726 032271 200 02 0 00 036522 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2727 032272 202 02 0 00 036307 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2728 032273 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
2729 032274 251 00 0 00 036320 BLT AC0,PATTBL+^D9
2730
2731 032275 260 17 0 00 035070 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2732
2733 032276 135 03 0 00 036514 LDB AC3,PATBN ;GET THE CURRENT PB#
2734 032277 200 01 0 03 036360 MOVE AC1,ED6WD(AC3) ;GET TABLE TEST WORD
2735 032300 202 01 0 00 036307 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2736
2737 032301 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2738 032302 200 13 0 00 037643 MOVE MA,[POINT 0,SOURCE] ;YES
2739
2740 032303 200 00 0 00 037547 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2741 032304 251 00 0 00 036027 BLT AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 49
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0103
2742
2743 ; **************************************************
2744 032305 260 17 0 00 034155 GO EDTSIM ;SIMULATE THE INSTRUCTION
2745 032306 476 00 0 00 041233 SETOM SKPWD1
2746 ; **************************************************
2747
2748 032307 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD OPERATOR?
2749 032310 260 17 0 00 035347 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2750
2751 ; **************************************************
2752 032311 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2753 032312 476 00 0 00 041234 SETOM SKPWD2
2754 ; **************************************************
2755
2756 032313 260 17 0 00 034577 GO EDTCOM ;COMPARE THE RESULTS
2757 ERROR EDM6,13,0,0,,,EDTPNT^
2758 SALL
2759 032314 036 13 0 00 037732
2760 032315 035 00 0 00 032266 ERLOOP EDM6 ;IF ERROR, LOOP TO EDM6
2761 032316 253 07 0 00 032266 AOBJN AC7,EDM6 ;DO THE NEXT CASE
2762
2763 032317 402 00 0 00 041220 SETZM OFFSET
2764 032320 254 00 0 00 032321 JRST EDMD7A ;FINISHED - GO TO NEXT SUBMODULE
2765 SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 50
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0104
2766
2767 ; **********************************************************************
2768 ;*EDMOD7A -- SKPM (5XX) PATTERN BYTE TYPE TESTS
2769 ;*
2770 ;* THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH
2771 ;* ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES
2772 ;* FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF
2773 ;* THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR.
2774 ; **********************************************************************
2775 SALL
2776 037735 T= SIXBTZ <EDIT - SKPM (5XX) PATTERN BYTE TYPE TESTS>
2777
2778 EDMOD(EDMD7A,EDM7A,EDMD7B,ED7AWD,STOPWD,6)
2779
2780 032321 201 00 0 00 032321 EDMD7A: MOVEI .
2781 032322 202 00 0 00 030051 MOVEM TESTPC
2782
2783 032323 201 00 0 00 000006 MOVEI AC0,6 ;INDEX TO BYTE TYPE TABLE
2784 032324 202 00 0 00 036333 MOVEM BYTYPE ;STORE
2785
2786 032325 402 00 0 00 041220 SETZM OFFSET
2787 032326 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2788 032327 476 00 0 00 041220 SETOM OFFSET ;YES
2789
2790 032330 514 07 0 00 037247 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2791 032331 541 07 0 00 037250 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2792
2793 032332 402 00 0 00 041233 EDM7A: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2794 032333 402 00 0 00 041234 SETZM SKPWD2
2795
2796 032334 260 17 0 00 035347 GO CLRSTR ;CLEAR STRING BYTES
2797
2798 032335 200 02 0 00 036522 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2799 032336 202 02 0 00 036307 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2800 032337 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
2801 032340 251 00 0 00 036320 BLT AC0,PATTBL+^D9
2802
2803 032341 260 17 0 00 035070 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2804
2805 032342 135 03 0 00 036514 LDB AC3,PATBN ;GET THE CURRENT PB#
2806 032343 200 01 0 03 036364 MOVE AC1,ED7AWD(AC3) ;GET TABLE TEST WORD
2807 032344 202 01 0 00 036307 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2808
2809 032345 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2810 032346 200 13 0 00 037643 MOVE MA,[POINT 0,SOURCE] ;YES
2811
2812 032347 200 00 0 00 037547 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2813 032350 251 00 0 00 036027 BLT AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 51
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0105
2814
2815 ; **************************************************
2816 032351 260 17 0 00 034155 GO EDTSIM ;SIMULATE THE INSTRUCTION
2817 032352 476 00 0 00 041233 SETOM SKPWD1
2818 ; **************************************************
2819
2820 032353 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD OPERATOR?
2821 032354 260 17 0 00 035347 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2822
2823 ; **************************************************
2824 032355 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2825 032356 476 00 0 00 041234 SETOM SKPWD2
2826 ; **************************************************
2827
2828 032357 260 17 0 00 034577 GO EDTCOM ;COMPARE THE RESULTS
2829 ERROR EDM7A,13,0,0,,,EDTPNT^
2830 SALL
2831 032360 036 13 0 00 037744
2832 032361 035 00 0 00 032332 ERLOOP EDM7A ;IF ERROR, LOOP TO EDM7A
2833 032362 253 07 0 00 032332 AOBJN AC7,EDM7A ;DO THE NEXT CASE
2834
2835 032363 402 00 0 00 041220 SETZM OFFSET
2836 032364 254 00 0 00 032365 JRST EDMD7B ;FINISHED - GO TO NEXT SUBMODULE
2837 SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 52
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0106
2838
2839 ; **********************************************************************
2840 ;*EDMOD7B -- SKPN (6XX) PATTERN BYTE TYPE TESTS
2841 ;*
2842 ;* THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH
2843 ;* ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES
2844 ;* FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF
2845 ;* THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR.
2846 ; **********************************************************************
2847 SALL
2848 037747 T= SIXBTZ <EDIT - SKPN (6XX) PATTERN BYTE TYPE TESTS>
2849
2850 EDMOD(EDMD7B,EDM7B,EDMD7C,ED7BWD,STOPWD,7)
2851
2852 032365 201 00 0 00 032365 EDMD7B: MOVEI .
2853 032366 202 00 0 00 030051 MOVEM TESTPC
2854
2855 032367 201 00 0 00 000007 MOVEI AC0,7 ;INDEX TO BYTE TYPE TABLE
2856 032370 202 00 0 00 036333 MOVEM BYTYPE ;STORE
2857
2858 032371 402 00 0 00 041220 SETZM OFFSET
2859 032372 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2860 032373 476 00 0 00 041220 SETOM OFFSET ;YES
2861
2862 032374 514 07 0 00 037247 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2863 032375 541 07 0 00 037250 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2864
2865 032376 402 00 0 00 041233 EDM7B: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2866 032377 402 00 0 00 041234 SETZM SKPWD2
2867
2868 032400 260 17 0 00 035347 GO CLRSTR ;CLEAR STRING BYTES
2869
2870 032401 200 02 0 00 036522 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2871 032402 202 02 0 00 036307 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2872 032403 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
2873 032404 251 00 0 00 036320 BLT AC0,PATTBL+^D9
2874
2875 032405 260 17 0 00 035070 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2876
2877 032406 135 03 0 00 036514 LDB AC3,PATBN ;GET THE CURRENT PB#
2878 032407 200 01 0 03 036370 MOVE AC1,ED7BWD(AC3) ;GET TABLE TEST WORD
2879 032410 202 01 0 00 036307 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2880
2881 032411 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2882 032412 200 13 0 00 037643 MOVE MA,[POINT 0,SOURCE] ;YES
2883
2884 032413 200 00 0 00 037547 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2885 032414 251 00 0 00 036027 BLT AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 53
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0107
2886
2887 ; **************************************************
2888 032415 260 17 0 00 034155 GO EDTSIM ;SIMULATE THE INSTRUCTION
2889 032416 476 00 0 00 041233 SETOM SKPWD1
2890 ; **************************************************
2891
2892 032417 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD OPERATOR?
2893 032420 260 17 0 00 035347 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2894
2895 ; **************************************************
2896 032421 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2897 032422 476 00 0 00 041234 SETOM SKPWD2
2898 ; **************************************************
2899
2900 032423 260 17 0 00 034577 GO EDTCOM ;COMPARE THE RESULTS
2901 ERROR EDM7B,13,0,0,,,EDTPNT^
2902 SALL
2903 032424 036 13 0 00 037756
2904 032425 035 00 0 00 032376 ERLOOP EDM7B ;IF ERROR, LOOP TO EDM7B
2905 032426 253 07 0 00 032376 AOBJN AC7,EDM7B ;DO THE NEXT CASE
2906
2907 032427 402 00 0 00 041220 SETZM OFFSET
2908 032430 254 00 0 00 032431 JRST EDMD7C ;FINISHED - GO TO NEXT SUBMODULE
2909 SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 54
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0108
2910
2911 ; **********************************************************************
2912 ;*EDMOD7C -- SKPA (7XX) PATTERN BYTE TYPE TESTS
2913 ;*
2914 ;* THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH
2915 ;* ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES
2916 ;* FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF
2917 ;* THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR.
2918 ; **********************************************************************
2919 SALL
2920 037761 T= SIXBTZ <EDIT - SKPA (7XX) PATTERN BYTE TYPE TESTS>
2921
2922 EDMOD(EDMD7C,EDM7C,EDMOD8,ED7CWD,STOPWD,^D8)
2923
2924 032431 201 00 0 00 032431 EDMD7C: MOVEI .
2925 032432 202 00 0 00 030051 MOVEM TESTPC
2926
2927 032433 201 00 0 00 000010 MOVEI AC0,^D8 ;INDEX TO BYTE TYPE TABLE
2928 032434 202 00 0 00 036333 MOVEM BYTYPE ;STORE
2929
2930 032435 402 00 0 00 041220 SETZM OFFSET
2931 032436 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2932 032437 476 00 0 00 041220 SETOM OFFSET ;YES
2933
2934 032440 514 07 0 00 037247 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2935 032441 541 07 0 00 037250 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2936
2937 032442 402 00 0 00 041233 EDM7C: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2938 032443 402 00 0 00 041234 SETZM SKPWD2
2939
2940 032444 260 17 0 00 035347 GO CLRSTR ;CLEAR STRING BYTES
2941
2942 032445 200 02 0 00 036522 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2943 032446 202 02 0 00 036307 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2944 032447 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
2945 032450 251 00 0 00 036320 BLT AC0,PATTBL+^D9
2946
2947 032451 260 17 0 00 035070 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2948
2949 032452 135 03 0 00 036514 LDB AC3,PATBN ;GET THE CURRENT PB#
2950 032453 200 01 0 03 036374 MOVE AC1,ED7CWD(AC3) ;GET TABLE TEST WORD
2951 032454 202 01 0 00 036307 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2952
2953 032455 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2954 032456 200 13 0 00 037643 MOVE MA,[POINT 0,SOURCE] ;YES
2955
2956 032457 200 00 0 00 037547 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2957 032460 251 00 0 00 036027 BLT AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 55
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0109
2958
2959 ; **************************************************
2960 032461 260 17 0 00 034155 GO EDTSIM ;SIMULATE THE INSTRUCTION
2961 032462 476 00 0 00 041233 SETOM SKPWD1
2962 ; **************************************************
2963
2964 032463 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD OPERATOR?
2965 032464 260 17 0 00 035347 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2966
2967 ; **************************************************
2968 032465 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2969 032466 476 00 0 00 041234 SETOM SKPWD2
2970 ; **************************************************
2971
2972 032467 260 17 0 00 034577 GO EDTCOM ;COMPARE THE RESULTS
2973 ERROR EDM7C,13,0,0,,,EDTPNT^
2974 SALL
2975 032470 036 13 0 00 037770
2976 032471 035 00 0 00 032442 ERLOOP EDM7C ;IF ERROR, LOOP TO EDM7C
2977 032472 253 07 0 00 032442 AOBJN AC7,EDM7C ;DO THE NEXT CASE
2978
2979 032473 402 00 0 00 041220 SETZM OFFSET
2980 032474 254 00 0 00 032475 JRST EDMOD8 ;FINISHED - GO TO NEXT SUBMODULE
2981 SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 56
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0110
2982
2983 ; **********************************************************************
2984 ;*EDMOD8 -- SELECT (001) PATTERN BYTE TYPE TEST
2985 ;*
2986 ;* THIS INSTRUCTION WILL BE EXECUTED WITH VARIED VALUES
2987 ;* FOR TOP (THE OPCODE PART OF THE TRANLATE FUNCTION) AND
2988 ;* THE S,N AND M FLAGS.
2989 ;*
2990 ;* COMBINATIONS OF THE FOLLOWING PARAMETERS WILL BE TESTED:
2991 ;* 1. S,N AND M FLAGS
2992 ;* 2. E0+1 = AND NOT =0
2993 ;* 3. E0+2 = AND NOT =0
2994 ;* 4. VARIED VALUES FOR TOP (THE OPCODE PART OF THE TRANSLATE TABLE.
2995 ; **********************************************************************
2996 SALL
2997 037773 T= SIXBTZ <EDIT - SELECT (001) PATTERN BYTE TYPE TEST>
2998
2999 EDMOD(EDMOD8,EDM8,EDMOD9,ED8WD,STOPWD,^D9)
3000
3001 032475 201 00 0 00 032475 EDMOD8: MOVEI .
3002 032476 202 00 0 00 030051 MOVEM TESTPC
3003
3004 032477 201 00 0 00 000011 MOVEI AC0,^D9 ;INDEX TO BYTE TYPE TABLE
3005 032500 202 00 0 00 036333 MOVEM BYTYPE ;STORE
3006
3007 032501 402 00 0 00 041220 SETZM OFFSET
3008 032502 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
3009 032503 476 00 0 00 041220 SETOM OFFSET ;YES
3010
3011 032504 514 07 0 00 037247 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
3012 032505 541 07 0 00 037250 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
3013
3014 032506 402 00 0 00 041233 EDM8: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
3015 032507 402 00 0 00 041234 SETZM SKPWD2
3016
3017 032510 260 17 0 00 035347 GO CLRSTR ;CLEAR STRING BYTES
3018
3019 032511 200 02 0 00 036522 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
3020 032512 202 02 0 00 036307 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
3021 032513 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
3022 032514 251 00 0 00 036320 BLT AC0,PATTBL+^D9
3023
3024 032515 260 17 0 00 035070 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
3025
3026 032516 135 03 0 00 036514 LDB AC3,PATBN ;GET THE CURRENT PB#
3027 032517 200 01 0 03 036400 MOVE AC1,ED8WD(AC3) ;GET TABLE TEST WORD
3028 032520 202 01 0 00 036307 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
3029
3030 032521 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
3031 032522 200 13 0 00 037643 MOVE MA,[POINT 0,SOURCE] ;YES
3032
3033 032523 200 00 0 00 037547 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
3034 032524 251 00 0 00 036027 BLT AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 57
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0111
3035
3036 ; **************************************************
3037 032525 260 17 0 00 034155 GO EDTSIM ;SIMULATE THE INSTRUCTION
3038 032526 476 00 0 00 041233 SETOM SKPWD1
3039 ; **************************************************
3040
3041 032527 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD OPERATOR?
3042 032530 260 17 0 00 035347 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
3043
3044 ; **************************************************
3045 032531 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
3046 032532 476 00 0 00 041234 SETOM SKPWD2
3047 ; **************************************************
3048
3049 032533 260 17 0 00 034577 GO EDTCOM ;COMPARE THE RESULTS
3050 ERROR EDM8,13,0,0,,,EDTPNT^
3051 SALL
3052 032534 036 13 0 00 040003
3053 032535 035 00 0 00 032506 ERLOOP EDM8 ;IF ERROR, LOOP TO EDM8
3054 032536 253 07 0 00 032506 AOBJN AC7,EDM8 ;DO THE NEXT CASE
3055
3056 032537 402 00 0 00 041220 SETZM OFFSET
3057 032540 254 00 0 00 032541 JRST EDMOD9 ;FINISHED - GO TO NEXT SUBMODULE
3058 SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 58
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0112
3059
3060 ; **********************************************************************
3061 ;*EDMOD9 -- NON DEFINED PATTERN BYTE TYPE TEST
3062 ;*
3063 ;* THE EDIT INSTRUCTION WILL BE EXECUTED WITH UNDEFINED
3064 ;* VALUES FOR THE PATTERN BYTES. THESE BYTES SHOULD BE INTERPRETED
3065 ;* AS NOOPS (RESULTING IN INCREMENTATION OF THE PB#). THE SPECIFIC
3066 ;* BYTES TESTED ARE 2XX,3XX,4XX,006.
3067 ; **********************************************************************
3068 SALL
3069 040006 T= SIXBTZ <EDIT - NON DEFINED PATTERN BYTE TYPE TEST>
3070
3071 EDMOD(EDMOD9,EDM9,PFTST,ED9WD,STOPWD,^D10)
3072
3073 032541 201 00 0 00 032541 EDMOD9: MOVEI .
3074 032542 202 00 0 00 030051 MOVEM TESTPC
3075
3076 032543 201 00 0 00 000012 MOVEI AC0,^D10 ;INDEX TO BYTE TYPE TABLE
3077 032544 202 00 0 00 036333 MOVEM BYTYPE ;STORE
3078
3079 032545 402 00 0 00 041220 SETZM OFFSET
3080 032546 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
3081 032547 476 00 0 00 041220 SETOM OFFSET ;YES
3082
3083 032550 514 07 0 00 037247 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
3084 032551 541 07 0 00 037250 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
3085
3086 032552 402 00 0 00 041233 EDM9: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
3087 032553 402 00 0 00 041234 SETZM SKPWD2
3088
3089 032554 260 17 0 00 035347 GO CLRSTR ;CLEAR STRING BYTES
3090
3091 032555 200 02 0 00 036522 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
3092 032556 202 02 0 00 036307 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
3093 032557 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
3094 032560 251 00 0 00 036320 BLT AC0,PATTBL+^D9
3095
3096 032561 260 17 0 00 035070 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
3097
3098 032562 135 03 0 00 036514 LDB AC3,PATBN ;GET THE CURRENT PB#
3099 032563 200 01 0 03 036404 MOVE AC1,ED9WD(AC3) ;GET TABLE TEST WORD
3100 032564 202 01 0 00 036307 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
3101
3102 032565 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
3103 032566 200 13 0 00 037643 MOVE MA,[POINT 0,SOURCE] ;YES
3104
3105 032567 200 00 0 00 037547 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
3106 032570 251 00 0 00 036027 BLT AC0,ORIGSV+4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 59
DFKCCM MAC 8-Jan-87 15:04 EXTEND INSTRUCTION CASE TESTING SEQ 0113
3107
3108 ; **************************************************
3109 032571 260 17 0 00 034155 GO EDTSIM ;SIMULATE THE INSTRUCTION
3110 032572 476 00 0 00 041233 SETOM SKPWD1
3111 ; **************************************************
3112
3113 032573 332 00 0 00 041220 SKIPE OFFSET ;EXCHMD OPERATOR?
3114 032574 260 17 0 00 035347 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
3115
3116 ; **************************************************
3117 032575 123 10 0 00 035625 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
3118 032576 476 00 0 00 041234 SETOM SKPWD2
3119 ; **************************************************
3120
3121 032577 260 17 0 00 034577 GO EDTCOM ;COMPARE THE RESULTS
3122 ERROR EDM9,13,0,0,,,EDTPNT^
3123 SALL
3124 032600 036 13 0 00 040015
3125 032601 035 00 0 00 032552 ERLOOP EDM9 ;IF ERROR, LOOP TO EDM9
3126 032602 253 07 0 00 032552 AOBJN AC7,EDM9 ;DO THE NEXT CASE
3127
3128 032603 402 00 0 00 041220 SETZM OFFSET
3129 032604 254 00 0 00 032606 JRST PFTST ;FINISHED - GO TO NEXT SUBMODULE
3130 SALL
3131
3132 032605 367 15 0 00 031734 REPTLP EDMOD1
3133
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 60
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0114
3134 SUBTTL PAGE FAIL TESTING
3135 SALL
3136 040020 T= SIXBTZ<PAGE FAIL TESTING>
3137
3138 ; **********************************************************************
3139 ;*TEST 9 -- PAGE FAIL RECOVERY TEST
3140 ;*
3141 ;* THIS TEST SETS UP THE PAGE FAILURES FOR EACH INSTRUCTION
3142 ;* USING A PREDETERMINED AC BLOCK STORED IN MEMORY (PFBLKX).
3143 ;*
3144 ;* WHERE APPLICABLE, PAGE FAILURES WILL BE CAUSED AT THE FIRST,
3145 ;* MIDDLE, AND LAST BYTES OF THE SOURCE AND DESTINATION STRINGS,
3146 ;* AND AT THE E0+1 (FILLER) BYTES.
3147 ;*
3148 ;* THE PAGE FAILUES ARE CAUSED BY RELOCATING PAGE 400 TO PAGE 75.
3149 ;*
3150 ;* THE EXTEND INSTRUCTIONS ARE SET UP SO THAT THEY REFERENCE PAGE 401
3151 ;* (WHICH DOES NOT EXIST).
3152 ;*
3153 ;* A PAGE FAIL SHOULD OCCUR ON THE FIRST REFERENCE TO LOCATION 401000.
3154 ;*
3155 ;* THE PAGE FAIL ROUTINE COMPARES THE INTERMEDIATE VALUES OF
3156 ;* THE AC BLOCK TO THE CORRECT VERSION STORED IN MEMORY AND
3157 ;* THE CONTENTS OF LOCATION 501 (SAVED FLAGS AND PC). IF THEY
3158 ;* ARE NOT CORRECT AN ERROR PRINTOUT OCCURS.
3159 ;*
3160 ;* THE INSTRUCTION IS CONTINUED BY RELOCATING BOTH PAGES 400 AND 401.
3161 ;* PAGE 400 IS RELOCATED TO 75000 AND PAGE 401 IS RELOCATED TO 76000.
3162 ;*
3163 ;* WHEN THE EXECUTION OF THE EXTEND INSTRUCTION IS FINISHED THE
3164 ;* SIMULATOR FOR THAT PARTICULAR SET OF INSTRUCTIONS IS EXECUTED.
3165 ;* (SINCE BOTH PAGES 400 AND 401 ARE NOW RELOCATED THE SIMULATOR
3166 ;* CAN EXECUTE THE INSTRUCTION WITHOUT PAGE FAIL.)
3167 ;*
3168 ;* THE FINAL RESULTS OF THE INSTRUCTION CONTAINED IN THE AC BLOCK
3169 ;* ARE COMPARED TO THOSE OF THE SIMULATOR. IF NOT EQUAL AN ERROR
3170 ;* PRINTOUT OCCURS.
3171 ; **********************************************************************
3172
3173 032606 332 00 0 00 030037 PFTST: SKIPE USER
3174 032607 254 00 0 00 030057 JRST BEGEND ;NO PAGE FAIL TESTING IN USER MODE
3175
3176 032610 200 15 0 00 041231 MOVE REPT,RPEAT
3177
3178 032611 201 00 0 00 035006 MOVEI AC0,PFHAND ;SET UP ADDRESS OF PF HANDLER
3179 032612 202 00 0 00 000502 MOVEM AC0,LPGFTR
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 61
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0115
3180
3181 ; **********************************************************************
3182 ;*PAGE FAIL TESTING OF THE COMPARE INSTRUCTIONS
3183 ; **********************************************************************
3184 SALL
3185 040023 T= SIXBTZ <PAGE FAIL TESTING OF THE COMPARE INSTRUCTIONS>
3186
3187 PFMAC (-6,-7,PFRES1,PFBLK1,CMP,SETRAN)
3188
3189 032613 201 00 0 00 032613 CMPST: MOVEI .
3190 032614 202 00 0 00 030051 MOVEM TESTPC
3191
3192 032615 476 00 0 00 041220 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS
3193
3194 032616 515 01 0 00 777772 HRLZI AC1,-6 ;AC1/-# CMP INSTR,,0
3195 032617 541 01 0 00 035560 HRRI AC1,CMPTAB ;AC1/-# CMP INSTR,,OPCODE TABLE ADDR
3196
3197 032620 402 00 0 00 035625 SETZM E0
3198 032621 402 00 0 00 035626 SETZM E0+1
3199
3200 032622 571 02 0 00 777771 CMPPF0: HRREI AC2,-7 ;AC2/-# PAGE FAIL CASES
3201
3202 032623 200 00 0 01 000000 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ
3203 032624 306 00 0 00 000017 CAIN AC0,017
3204 032625 275 02 0 00 000001 SUBI AC2,1
3205
3206 032626 302 00 0 00 000004 CAIE AC0,004 ;EDIT INSTRUCTION?
3207 032627 254 00 0 00 032636 JRST CMPPFA
3208
3209 032630 200 00 0 00 036524 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE
3210 032631 202 00 0 00 036307 MOVEM AC0,PATTBL
3211 032632 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
3212 032633 251 00 0 00 036317 BLT AC0,PATTBL+^D8
3213
3214 032634 200 00 0 00 036522 MOVE AC0,STOPWD
3215 032635 202 00 0 00 036320 MOVEM AC0,PATTBL+^D9
3216
3217 032636 201 03 0 00 036525 CMPPFA: MOVEI AC3,PFBLK1 ;INITIAL AC BLOCK TABLE
3218 032637 201 04 0 00 036707 MOVEI AC4,PFRES1 ;ADDR OF INTERMEDIATE RESULT TABLE
3219
3220 032640 402 00 0 00 041233 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
3221 032641 402 00 0 00 041234 SETZM SKPWD2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 62
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0116
3222
3223 ; **************************************************
3224 ;SET UP THE SOURCE AND DESTINATION STRINGS
3225 ; **************************************************
3226
3227 032642 260 17 0 00 035347 GO CLRSTR
3228
3229 032643 402 00 0 00 075750 SETZM 75750 ;CLEAR THE FAIL STRING AREA
3230 032644 200 00 0 00 040033 MOVE AC0,[75750,,75751]
3231 032645 251 00 0 00 076100 BLT AC0,76100
3232
3233 032646 260 17 0 00 035270 CMPPF1: GO PFACB ;SET UP THE INITIAL AC BLOCK
3234
3235 032647 200 00 0 01 000000 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE
3236 032650 202 00 0 00 041216 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING
3237
3238 032651 260 17 0 00 035237 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION
3239
3240 032652 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3241 032653 137 00 0 00 040034 DPB AC0,[POINT 9,400777,8] ;YES
3242
3243 032654 336 00 0 00 041213 SKIPN FILLF
3244 032655 137 00 0 00 036261 DPB AC0,E0OP ;NO
3245
3246 032656 336 00 0 00 041236 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION?
3247 032657 254 00 0 00 032667 JRST CMPPC ;NO
3248
3249 032660 201 00 0 00 035711 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE
3250 032661 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3251 032662 542 00 0 00 400777 HRRM AC0,400777 ;YES
3252 032663 542 00 0 00 035625 HRRM AC0,E0 ;NO
3253
3254 032664 200 00 0 00 037574 MOVE AC0,[1,,1]
3255 032665 260 17 0 00 031436 GO SETRAN ;SETUP THE TRANSLATION TABLE
3256 032666 434 10 0 00 035775 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 63
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0117
3257
3258 032667 200 00 0 00 037547 CMPPC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
3259 032670 251 00 0 00 036027 BLT AC0,ORIGSV+4
3260
3261 032671 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3262 032672 200 00 0 00 040035 MOVE AC0,[0,,CMPPC2] ;YES
3263 032673 336 00 0 00 041213 SKIPN FILLF
3264 032674 200 00 0 00 040036 MOVE AC0,[0,,CMPPC1] ;NO
3265 032675 202 00 0 00 041212 MOVEM FAILOC# ;STORE IT
3266
3267 032676 476 00 0 00 041227 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED
3268 032677 402 00 0 00 041225 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG
3269
3270 032700 201 00 0 00 032717 MOVEI CMPPFX
3271 032701 202 00 0 00 041226 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
3272
3273 032702 260 17 0 00 035257 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP
3274
3275 032703 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3276 032704 254 00 0 00 032710 JRST CMPPC2 ;YES
3277
3278 ; **************************************************
3279 032705 123 10 0 00 035625 CMPPC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
3280 032706 476 00 0 00 041234 SETOM SKPWD2 ;NOTE SKIP RETURN
3281 ; **************************************************
3282
3283 032707 254 00 0 00 032712 JRST CMPPF3
3284
3285 ; **************************************************
3286 032710 123 10 0 00 400777 CMPPC2: EXTEND AC,400777 ;MAKE E0+1 FAIL
3287 032711 476 00 0 00 041234 SETOM SKPWD2 ;NOTE SKIP RETURN
3288 ; **************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 64
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0118
3289
3290 ; **************************************************
3291 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
3292 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
3293 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
3294 ;INSTRUCTION AND TO HERE.
3295 ; **************************************************
3296
3297 032712 331 00 0 00 041227 CMPPF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR?
3298 032713 254 00 0 00 032727 JRST DOCMP ;YES - OK
3299
3300 ERROR CMPPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^
3301 SALL
3302 032714 036 13 0 00 040045
3303 032715 035 00 0 00 032622 ERLOOP CMPPF0 ;IF ERROR, LOOP TO CMPPF0
3304 032716 254 00 0 00 032734 JRST CMPNXT ;GO DO THE NEXT CASE
3305
3306 032717 336 00 0 00 041227 CMPPFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ?
3307 032720 254 00 0 00 032724 JRST CMPPF9 ;YES, CHECK INTERMEDIATE RESULTS
3308
3309 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^
3310 SALL
3311 032721 036 13 0 00 040057
3312 032722 035 02 0 00 032622 ERLP2 CMPPF0
3313 032723 254 00 0 00 032734 JRST CMPNXT
3314
3315 032724 CMPPF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^
3316 SALL
3317 032724 036 13 0 00 040071
3318 032725 035 02 0 00 032622 ERLP2 CMPPF0
3319 032726 254 00 0 00 032734 JRST CMPNXT
3320
3321 ; **************************************************
3322 032727 260 17 0 00 033505 DOCMP: GO CMPSIM ;SIMULATE THE INSTRUCTION
3323 032730 476 00 0 00 041233 SETOM SKPWD1 ;NOTE A SKIP RETURN
3324 ; **************************************************
3325
3326 032731 260 17 0 00 035220 GO COMAC ;COMPARE THE FINAL RESULTS
3327 ERROR CMPPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^
3328 SALL
3329 032732 036 13 0 00 040100
3330 032733 035 00 0 00 032622 ERLOOP CMPPF0 ;IF ERROR, LOOP TO CMPPF0
3331 032734 201 00 0 00 000005 CMPNXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS
3332 032735 272 00 0 00 000004 ADDM AC0,AC4
3333 032736 271 00 0 00 000001 ADDI AC0,1
3334 032737 272 00 0 00 000003 ADDM AC0,AC3
3335
3336 032740 341 02 0 00 032646 AOJL AC2,CMPPF1 ;DO THE NEXT PF CASE
3337
3338 032741 253 01 0 00 032622 AOBJN AC1,CMPPF0 ;DO THE NEXT INSTRUCTION
3339 032742 402 00 0 00 041220 SETZM OFFSET
3340 SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 65
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0119
3341
3342 ; **********************************************************************
3343 ;*PAGE FAIL TESTING OF MOVE STRING INSTRUCTIONS
3344 ; **********************************************************************
3345 SALL
3346 040103 T= SIXBTZ <PAGE FAIL TESTING OF MOVE STRING INSTRUCTIONS>
3347
3348 PFMAC(-4,-7,PFRES1,PFBLK1,MOV,SETRAN)
3349
3350 032743 201 00 0 00 032743 MOVST: MOVEI .
3351 032744 202 00 0 00 030051 MOVEM TESTPC
3352
3353 032745 476 00 0 00 041220 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS
3354
3355 032746 515 01 0 00 777774 HRLZI AC1,-4 ;AC1/-# MOV INSTR,,0
3356 032747 541 01 0 00 035566 HRRI AC1,MOVTAB ;AC1/-# MOV INSTR,,OPCODE TABLE ADDR
3357
3358 032750 402 00 0 00 035625 SETZM E0
3359 032751 402 00 0 00 035626 SETZM E0+1
3360
3361 032752 571 02 0 00 777771 MOVPF0: HRREI AC2,-7 ;AC2/-# PAGE FAIL CASES
3362
3363 032753 200 00 0 01 000000 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ
3364 032754 306 00 0 00 000017 CAIN AC0,017
3365 032755 275 02 0 00 000001 SUBI AC2,1
3366
3367 032756 302 00 0 00 000004 CAIE AC0,004 ;EDIT INSTRUCTION?
3368 032757 254 00 0 00 032766 JRST MOVPFA
3369
3370 032760 200 00 0 00 036524 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE
3371 032761 202 00 0 00 036307 MOVEM AC0,PATTBL
3372 032762 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
3373 032763 251 00 0 00 036317 BLT AC0,PATTBL+^D8
3374
3375 032764 200 00 0 00 036522 MOVE AC0,STOPWD
3376 032765 202 00 0 00 036320 MOVEM AC0,PATTBL+^D9
3377
3378 032766 201 03 0 00 036525 MOVPFA: MOVEI AC3,PFBLK1 ;INITIAL AC BLOCK TABLE
3379 032767 201 04 0 00 036707 MOVEI AC4,PFRES1 ;ADDR OF INTERMEDIATE RESULT TABLE
3380
3381 032770 402 00 0 00 041233 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
3382 032771 402 00 0 00 041234 SETZM SKPWD2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 66
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0120
3383
3384 ; **************************************************
3385 ;SET UP THE SOURCE AND DESTINATION STRINGS
3386 ; **************************************************
3387
3388 032772 260 17 0 00 035347 GO CLRSTR
3389
3390 032773 402 00 0 00 075750 SETZM 75750 ;CLEAR THE FAIL STRING AREA
3391 032774 200 00 0 00 040033 MOVE AC0,[75750,,75751]
3392 032775 251 00 0 00 076100 BLT AC0,76100
3393
3394 032776 260 17 0 00 035270 MOVPF1: GO PFACB ;SET UP THE INITIAL AC BLOCK
3395
3396 032777 200 00 0 01 000000 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE
3397 033000 202 00 0 00 041216 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING
3398
3399 033001 260 17 0 00 035237 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION
3400
3401 033002 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3402 033003 137 00 0 00 040034 DPB AC0,[POINT 9,400777,8] ;YES
3403
3404 033004 336 00 0 00 041213 SKIPN FILLF
3405 033005 137 00 0 00 036261 DPB AC0,E0OP ;NO
3406
3407 033006 336 00 0 00 041236 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION?
3408 033007 254 00 0 00 033017 JRST MOVPC ;NO
3409
3410 033010 201 00 0 00 035711 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE
3411 033011 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3412 033012 542 00 0 00 400777 HRRM AC0,400777 ;YES
3413 033013 542 00 0 00 035625 HRRM AC0,E0 ;NO
3414
3415 033014 200 00 0 00 037574 MOVE AC0,[1,,1]
3416 033015 260 17 0 00 031436 GO SETRAN ;SETUP THE TRANSLATION TABLE
3417 033016 434 10 0 00 035775 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 67
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0121
3418
3419 033017 200 00 0 00 037547 MOVPC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
3420 033020 251 00 0 00 036027 BLT AC0,ORIGSV+4
3421
3422 033021 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3423 033022 200 00 0 00 040113 MOVE AC0,[0,,MOVPC2] ;YES
3424 033023 336 00 0 00 041213 SKIPN FILLF
3425 033024 200 00 0 00 040114 MOVE AC0,[0,,MOVPC1] ;NO
3426 033025 202 00 0 00 041212 MOVEM FAILOC# ;STORE IT
3427
3428 033026 476 00 0 00 041227 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED
3429 033027 402 00 0 00 041225 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG
3430
3431 033030 201 00 0 00 033047 MOVEI MOVPFX
3432 033031 202 00 0 00 041226 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
3433
3434 033032 260 17 0 00 035257 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP
3435
3436 033033 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3437 033034 254 00 0 00 033040 JRST MOVPC2 ;YES
3438
3439 ; **************************************************
3440 033035 123 10 0 00 035625 MOVPC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
3441 033036 476 00 0 00 041234 SETOM SKPWD2 ;NOTE SKIP RETURN
3442 ; **************************************************
3443
3444 033037 254 00 0 00 033042 JRST MOVPF3
3445
3446 ; **************************************************
3447 033040 123 10 0 00 400777 MOVPC2: EXTEND AC,400777 ;MAKE E0+1 FAIL
3448 033041 476 00 0 00 041234 SETOM SKPWD2 ;NOTE SKIP RETURN
3449 ; **************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 68
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0122
3450
3451 ; **************************************************
3452 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
3453 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
3454 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
3455 ;INSTRUCTION AND TO HERE.
3456 ; **************************************************
3457
3458 033042 331 00 0 00 041227 MOVPF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR?
3459 033043 254 00 0 00 033057 JRST DOMOV ;YES - OK
3460
3461 ERROR MOVPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^
3462 SALL
3463 033044 036 13 0 00 040115
3464 033045 035 00 0 00 032752 ERLOOP MOVPF0 ;IF ERROR, LOOP TO MOVPF0
3465 033046 254 00 0 00 033064 JRST MOVNXT ;GO DO THE NEXT CASE
3466
3467 033047 336 00 0 00 041227 MOVPFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ?
3468 033050 254 00 0 00 033054 JRST MOVPF9 ;YES, CHECK INTERMEDIATE RESULTS
3469
3470 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^
3471 SALL
3472 033051 036 13 0 00 040120
3473 033052 035 02 0 00 032752 ERLP2 MOVPF0
3474 033053 254 00 0 00 033064 JRST MOVNXT
3475
3476 033054 MOVPF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^
3477 SALL
3478 033054 036 13 0 00 040123
3479 033055 035 02 0 00 032752 ERLP2 MOVPF0
3480 033056 254 00 0 00 033064 JRST MOVNXT
3481
3482 ; **************************************************
3483 033057 260 17 0 00 033561 DOMOV: GO MOVSIM ;SIMULATE THE INSTRUCTION
3484 033060 476 00 0 00 041233 SETOM SKPWD1 ;NOTE A SKIP RETURN
3485 ; **************************************************
3486
3487 033061 260 17 0 00 035220 GO COMAC ;COMPARE THE FINAL RESULTS
3488 ERROR MOVPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^
3489 SALL
3490 033062 036 13 0 00 040126
3491 033063 035 00 0 00 032752 ERLOOP MOVPF0 ;IF ERROR, LOOP TO MOVPF0
3492 033064 201 00 0 00 000005 MOVNXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS
3493 033065 272 00 0 00 000004 ADDM AC0,AC4
3494 033066 271 00 0 00 000001 ADDI AC0,1
3495 033067 272 00 0 00 000003 ADDM AC0,AC3
3496
3497 033070 341 02 0 00 032776 AOJL AC2,MOVPF1 ;DO THE NEXT PF CASE
3498
3499 033071 253 01 0 00 032752 AOBJN AC1,MOVPF0 ;DO THE NEXT INSTRUCTION
3500 033072 402 00 0 00 041220 SETZM OFFSET
3501 SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 69
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0123
3502
3503 ; **********************************************************************
3504 ;*PAGE FAIL TESTING OF CVTDBX INSTRUCTIONS
3505 ; **********************************************************************
3506 SALL
3507 040131 T= SIXBTZ <PAGE FAIL TESTING OF CVTDBX INSTRUCTIONS>
3508
3509 PFMAC(-2,-3,PFRES2,PFBLK2,CDB,CDBTN)
3510
3511 033073 201 00 0 00 033073 CDBST: MOVEI .
3512 033074 202 00 0 00 030051 MOVEM TESTPC
3513
3514 033075 476 00 0 00 041220 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS
3515
3516 033076 515 01 0 00 777776 HRLZI AC1,-2 ;AC1/-# CDB INSTR,,0
3517 033077 541 01 0 00 035573 HRRI AC1,CDBTAB ;AC1/-# CDB INSTR,,OPCODE TABLE ADDR
3518
3519 033100 402 00 0 00 035625 SETZM E0
3520 033101 402 00 0 00 035626 SETZM E0+1
3521
3522 033102 571 02 0 00 777775 CDBPF0: HRREI AC2,-3 ;AC2/-# PAGE FAIL CASES
3523
3524 033103 200 00 0 01 000000 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ
3525 033104 306 00 0 00 000017 CAIN AC0,017
3526 033105 275 02 0 00 000001 SUBI AC2,1
3527
3528 033106 302 00 0 00 000004 CAIE AC0,004 ;EDIT INSTRUCTION?
3529 033107 254 00 0 00 033116 JRST CDBPFA
3530
3531 033110 200 00 0 00 036524 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE
3532 033111 202 00 0 00 036307 MOVEM AC0,PATTBL
3533 033112 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
3534 033113 251 00 0 00 036317 BLT AC0,PATTBL+^D8
3535
3536 033114 200 00 0 00 036522 MOVE AC0,STOPWD
3537 033115 202 00 0 00 036320 MOVEM AC0,PATTBL+^D9
3538
3539 033116 201 03 0 00 036605 CDBPFA: MOVEI AC3,PFBLK2 ;INITIAL AC BLOCK TABLE
3540 033117 201 04 0 00 036757 MOVEI AC4,PFRES2 ;ADDR OF INTERMEDIATE RESULT TABLE
3541
3542 033120 402 00 0 00 041233 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
3543 033121 402 00 0 00 041234 SETZM SKPWD2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 70
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0124
3544
3545 ; **************************************************
3546 ;SET UP THE SOURCE AND DESTINATION STRINGS
3547 ; **************************************************
3548
3549 033122 260 17 0 00 035347 GO CLRSTR
3550
3551 033123 402 00 0 00 075750 SETZM 75750 ;CLEAR THE FAIL STRING AREA
3552 033124 200 00 0 00 040033 MOVE AC0,[75750,,75751]
3553 033125 251 00 0 00 076100 BLT AC0,76100
3554
3555 033126 260 17 0 00 035270 CDBPF1: GO PFACB ;SET UP THE INITIAL AC BLOCK
3556
3557 033127 200 00 0 01 000000 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE
3558 033130 202 00 0 00 041216 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING
3559
3560 033131 260 17 0 00 035237 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION
3561
3562 033132 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3563 033133 137 00 0 00 040034 DPB AC0,[POINT 9,400777,8] ;YES
3564
3565 033134 336 00 0 00 041213 SKIPN FILLF
3566 033135 137 00 0 00 036261 DPB AC0,E0OP ;NO
3567
3568 033136 336 00 0 00 041236 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION?
3569 033137 254 00 0 00 033147 JRST CDBPC ;NO
3570
3571 033140 201 00 0 00 035711 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE
3572 033141 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3573 033142 542 00 0 00 400777 HRRM AC0,400777 ;YES
3574 033143 542 00 0 00 035625 HRRM AC0,E0 ;NO
3575
3576 033144 200 00 0 00 037574 MOVE AC0,[1,,1]
3577 033145 260 17 0 00 035213 GO CDBTN ;SETUP THE TRANSLATION TABLE
3578 033146 434 10 0 00 035775 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 71
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0125
3579
3580 033147 200 00 0 00 037547 CDBPC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
3581 033150 251 00 0 00 036027 BLT AC0,ORIGSV+4
3582
3583 033151 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3584 033152 200 00 0 00 040140 MOVE AC0,[0,,CDBPC2] ;YES
3585 033153 336 00 0 00 041213 SKIPN FILLF
3586 033154 200 00 0 00 040141 MOVE AC0,[0,,CDBPC1] ;NO
3587 033155 202 00 0 00 041212 MOVEM FAILOC# ;STORE IT
3588
3589 033156 476 00 0 00 041227 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED
3590 033157 402 00 0 00 041225 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG
3591
3592 033160 201 00 0 00 033177 MOVEI CDBPFX
3593 033161 202 00 0 00 041226 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
3594
3595 033162 260 17 0 00 035257 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP
3596
3597 033163 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3598 033164 254 00 0 00 033170 JRST CDBPC2 ;YES
3599
3600 ; **************************************************
3601 033165 123 10 0 00 035625 CDBPC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
3602 033166 476 00 0 00 041234 SETOM SKPWD2 ;NOTE SKIP RETURN
3603 ; **************************************************
3604
3605 033167 254 00 0 00 033172 JRST CDBPF3
3606
3607 ; **************************************************
3608 033170 123 10 0 00 400777 CDBPC2: EXTEND AC,400777 ;MAKE E0+1 FAIL
3609 033171 476 00 0 00 041234 SETOM SKPWD2 ;NOTE SKIP RETURN
3610 ; **************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 72
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0126
3611
3612 ; **************************************************
3613 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
3614 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
3615 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
3616 ;INSTRUCTION AND TO HERE.
3617 ; **************************************************
3618
3619 033172 331 00 0 00 041227 CDBPF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR?
3620 033173 254 00 0 00 033207 JRST DOCDB ;YES - OK
3621
3622 ERROR CDBPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^
3623 SALL
3624 033174 036 13 0 00 040142
3625 033175 035 00 0 00 033102 ERLOOP CDBPF0 ;IF ERROR, LOOP TO CDBPF0
3626 033176 254 00 0 00 033214 JRST CDBNXT ;GO DO THE NEXT CASE
3627
3628 033177 336 00 0 00 041227 CDBPFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ?
3629 033200 254 00 0 00 033204 JRST CDBPF9 ;YES, CHECK INTERMEDIATE RESULTS
3630
3631 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^
3632 SALL
3633 033201 036 13 0 00 040145
3634 033202 035 02 0 00 033102 ERLP2 CDBPF0
3635 033203 254 00 0 00 033214 JRST CDBNXT
3636
3637 033204 CDBPF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^
3638 SALL
3639 033204 036 13 0 00 040150
3640 033205 035 02 0 00 033102 ERLP2 CDBPF0
3641 033206 254 00 0 00 033214 JRST CDBNXT
3642
3643 ; **************************************************
3644 033207 260 17 0 00 033717 DOCDB: GO CDBSIM ;SIMULATE THE INSTRUCTION
3645 033210 476 00 0 00 041233 SETOM SKPWD1 ;NOTE A SKIP RETURN
3646 ; **************************************************
3647
3648 033211 260 17 0 00 035220 GO COMAC ;COMPARE THE FINAL RESULTS
3649 ERROR CDBPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^
3650 SALL
3651 033212 036 13 0 00 040153
3652 033213 035 00 0 00 033102 ERLOOP CDBPF0 ;IF ERROR, LOOP TO CDBPF0
3653 033214 201 00 0 00 000005 CDBNXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS
3654 033215 272 00 0 00 000004 ADDM AC0,AC4
3655 033216 271 00 0 00 000001 ADDI AC0,1
3656 033217 272 00 0 00 000003 ADDM AC0,AC3
3657
3658 033220 341 02 0 00 033126 AOJL AC2,CDBPF1 ;DO THE NEXT PF CASE
3659
3660 033221 253 01 0 00 033102 AOBJN AC1,CDBPF0 ;DO THE NEXT INSTRUCTION
3661 033222 402 00 0 00 041220 SETZM OFFSET
3662 SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 73
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0127
3663
3664 ; **********************************************************************
3665 ;*PAGE FAIL TESTING OF CVTBDO INSTRUCTIONS
3666 ; **********************************************************************
3667 SALL
3668 040156 T= SIXBTZ <PAGE FAIL TESTING OF CVTBDO INSTRUCTIONS>
3669
3670 PFMAC(-1,-2,PFRES3,PFBLK3,CBD,CBDTRN)
3671
3672 033223 201 00 0 00 033223 CBDST: MOVEI .
3673 033224 202 00 0 00 030051 MOVEM TESTPC
3674
3675 033225 476 00 0 00 041220 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS
3676
3677 033226 515 01 0 00 777777 HRLZI AC1,-1 ;AC1/-# CBD INSTR,,0
3678 033227 541 01 0 00 035575 HRRI AC1,CBDTAB ;AC1/-# CBD INSTR,,OPCODE TABLE ADDR
3679
3680 033230 402 00 0 00 035625 SETZM E0
3681 033231 402 00 0 00 035626 SETZM E0+1
3682
3683 033232 571 02 0 00 777776 CBDPF0: HRREI AC2,-2 ;AC2/-# PAGE FAIL CASES
3684
3685 033233 200 00 0 01 000000 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ
3686 033234 306 00 0 00 000017 CAIN AC0,017
3687 033235 275 02 0 00 000001 SUBI AC2,1
3688
3689 033236 302 00 0 00 000004 CAIE AC0,004 ;EDIT INSTRUCTION?
3690 033237 254 00 0 00 033246 JRST CBDPFA
3691
3692 033240 200 00 0 00 036524 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE
3693 033241 202 00 0 00 036307 MOVEM AC0,PATTBL
3694 033242 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
3695 033243 251 00 0 00 036317 BLT AC0,PATTBL+^D8
3696
3697 033244 200 00 0 00 036522 MOVE AC0,STOPWD
3698 033245 202 00 0 00 036320 MOVEM AC0,PATTBL+^D9
3699
3700 033246 201 03 0 00 036627 CBDPFA: MOVEI AC3,PFBLK3 ;INITIAL AC BLOCK TABLE
3701 033247 201 04 0 00 036776 MOVEI AC4,PFRES3 ;ADDR OF INTERMEDIATE RESULT TABLE
3702
3703 033250 402 00 0 00 041233 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
3704 033251 402 00 0 00 041234 SETZM SKPWD2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 74
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0128
3705
3706 ; **************************************************
3707 ;SET UP THE SOURCE AND DESTINATION STRINGS
3708 ; **************************************************
3709
3710 033252 260 17 0 00 035347 GO CLRSTR
3711
3712 033253 402 00 0 00 075750 SETZM 75750 ;CLEAR THE FAIL STRING AREA
3713 033254 200 00 0 00 040033 MOVE AC0,[75750,,75751]
3714 033255 251 00 0 00 076100 BLT AC0,76100
3715
3716 033256 260 17 0 00 035270 CBDPF1: GO PFACB ;SET UP THE INITIAL AC BLOCK
3717
3718 033257 200 00 0 01 000000 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE
3719 033260 202 00 0 00 041216 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING
3720
3721 033261 260 17 0 00 035237 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION
3722
3723 033262 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3724 033263 137 00 0 00 040034 DPB AC0,[POINT 9,400777,8] ;YES
3725
3726 033264 336 00 0 00 041213 SKIPN FILLF
3727 033265 137 00 0 00 036261 DPB AC0,E0OP ;NO
3728
3729 033266 336 00 0 00 041236 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION?
3730 033267 254 00 0 00 033277 JRST CBDPC ;NO
3731
3732 033270 201 00 0 00 035711 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE
3733 033271 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3734 033272 542 00 0 00 400777 HRRM AC0,400777 ;YES
3735 033273 542 00 0 00 035625 HRRM AC0,E0 ;NO
3736
3737 033274 200 00 0 00 037574 MOVE AC0,[1,,1]
3738 033275 260 17 0 00 035215 GO CBDTRN ;SETUP THE TRANSLATION TABLE
3739 033276 434 10 0 00 035775 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 75
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0129
3740
3741 033277 200 00 0 00 037547 CBDPC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
3742 033300 251 00 0 00 036027 BLT AC0,ORIGSV+4
3743
3744 033301 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3745 033302 200 00 0 00 040165 MOVE AC0,[0,,CBDPC2] ;YES
3746 033303 336 00 0 00 041213 SKIPN FILLF
3747 033304 200 00 0 00 040166 MOVE AC0,[0,,CBDPC1] ;NO
3748 033305 202 00 0 00 041212 MOVEM FAILOC# ;STORE IT
3749
3750 033306 476 00 0 00 041227 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED
3751 033307 402 00 0 00 041225 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG
3752
3753 033310 201 00 0 00 033327 MOVEI CBDPFX
3754 033311 202 00 0 00 041226 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
3755
3756 033312 260 17 0 00 035257 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP
3757
3758 033313 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3759 033314 254 00 0 00 033320 JRST CBDPC2 ;YES
3760
3761 ; **************************************************
3762 033315 123 10 0 00 035625 CBDPC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
3763 033316 476 00 0 00 041234 SETOM SKPWD2 ;NOTE SKIP RETURN
3764 ; **************************************************
3765
3766 033317 254 00 0 00 033322 JRST CBDPF3
3767
3768 ; **************************************************
3769 033320 123 10 0 00 400777 CBDPC2: EXTEND AC,400777 ;MAKE E0+1 FAIL
3770 033321 476 00 0 00 041234 SETOM SKPWD2 ;NOTE SKIP RETURN
3771 ; **************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 76
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0130
3772
3773 ; **************************************************
3774 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
3775 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
3776 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
3777 ;INSTRUCTION AND TO HERE.
3778 ; **************************************************
3779
3780 033322 331 00 0 00 041227 CBDPF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR?
3781 033323 254 00 0 00 033337 JRST DOCBD ;YES - OK
3782
3783 ERROR CBDPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^
3784 SALL
3785 033324 036 13 0 00 040167
3786 033325 035 00 0 00 033232 ERLOOP CBDPF0 ;IF ERROR, LOOP TO CBDPF0
3787 033326 254 00 0 00 033344 JRST CBDNXT ;GO DO THE NEXT CASE
3788
3789 033327 336 00 0 00 041227 CBDPFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ?
3790 033330 254 00 0 00 033334 JRST CBDPF9 ;YES, CHECK INTERMEDIATE RESULTS
3791
3792 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^
3793 SALL
3794 033331 036 13 0 00 040172
3795 033332 035 02 0 00 033232 ERLP2 CBDPF0
3796 033333 254 00 0 00 033344 JRST CBDNXT
3797
3798 033334 CBDPF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^
3799 SALL
3800 033334 036 13 0 00 040175
3801 033335 035 02 0 00 033232 ERLP2 CBDPF0
3802 033336 254 00 0 00 033344 JRST CBDNXT
3803
3804 ; **************************************************
3805 033337 260 17 0 00 034016 DOCBD: GO CBDSIM ;SIMULATE THE INSTRUCTION
3806 033340 476 00 0 00 041233 SETOM SKPWD1 ;NOTE A SKIP RETURN
3807 ; **************************************************
3808
3809 033341 260 17 0 00 035220 GO COMAC ;COMPARE THE FINAL RESULTS
3810 ERROR CBDPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^
3811 SALL
3812 033342 036 13 0 00 040200
3813 033343 035 00 0 00 033232 ERLOOP CBDPF0 ;IF ERROR, LOOP TO CBDPF0
3814 033344 201 00 0 00 000005 CBDNXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS
3815 033345 272 00 0 00 000004 ADDM AC0,AC4
3816 033346 271 00 0 00 000001 ADDI AC0,1
3817 033347 272 00 0 00 000003 ADDM AC0,AC3
3818
3819 033350 341 02 0 00 033256 AOJL AC2,CBDPF1 ;DO THE NEXT PF CASE
3820
3821 033351 253 01 0 00 033232 AOBJN AC1,CBDPF0 ;DO THE NEXT INSTRUCTION
3822 033352 402 00 0 00 041220 SETZM OFFSET
3823 SALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 77
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0131
3824
3825 ; **********************************************************************
3826 ;*PAGE FAIL TESTING OF THE EDIT INSTRUCTIONS
3827 ; **********************************************************************
3828 SALL
3829 040203 T= SIXBTZ <PAGE FAIL TESTING OF THE EDIT INSTRUCTIONS>
3830
3831 PFMAC(-1,-6,PFRES4,PFBLK4,EDT,SETRAN)
3832
3833 033353 201 00 0 00 033353 EDTST: MOVEI .
3834 033354 202 00 0 00 030051 MOVEM TESTPC
3835
3836 033355 476 00 0 00 041220 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS
3837
3838 033356 515 01 0 00 777777 HRLZI AC1,-1 ;AC1/-# EDT INSTR,,0
3839 033357 541 01 0 00 035572 HRRI AC1,EDTTAB ;AC1/-# EDT INSTR,,OPCODE TABLE ADDR
3840
3841 033360 402 00 0 00 035625 SETZM E0
3842 033361 402 00 0 00 035626 SETZM E0+1
3843
3844 033362 571 02 0 00 777772 EDTPF0: HRREI AC2,-6 ;AC2/-# PAGE FAIL CASES
3845
3846 033363 200 00 0 01 000000 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ
3847 033364 306 00 0 00 000017 CAIN AC0,017
3848 033365 275 02 0 00 000001 SUBI AC2,1
3849
3850 033366 302 00 0 00 000004 CAIE AC0,004 ;EDIT INSTRUCTION?
3851 033367 254 00 0 00 033376 JRST EDTPFA
3852
3853 033370 200 00 0 00 036524 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE
3854 033371 202 00 0 00 036307 MOVEM AC0,PATTBL
3855 033372 200 00 0 00 037642 MOVE AC0,[PATTBL,,PATTBL+1]
3856 033373 251 00 0 00 036317 BLT AC0,PATTBL+^D8
3857
3858 033374 200 00 0 00 036522 MOVE AC0,STOPWD
3859 033375 202 00 0 00 036320 MOVEM AC0,PATTBL+^D9
3860
3861 033376 201 03 0 00 036643 EDTPFA: MOVEI AC3,PFBLK4 ;INITIAL AC BLOCK TABLE
3862 033377 201 04 0 00 037010 MOVEI AC4,PFRES4 ;ADDR OF INTERMEDIATE RESULT TABLE
3863
3864 033400 402 00 0 00 041233 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
3865 033401 402 00 0 00 041234 SETZM SKPWD2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 78
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0132
3866
3867 ; **************************************************
3868 ;SET UP THE SOURCE AND DESTINATION STRINGS
3869 ; **************************************************
3870
3871 033402 260 17 0 00 035347 GO CLRSTR
3872
3873 033403 402 00 0 00 075750 SETZM 75750 ;CLEAR THE FAIL STRING AREA
3874 033404 200 00 0 00 040033 MOVE AC0,[75750,,75751]
3875 033405 251 00 0 00 076100 BLT AC0,76100
3876
3877 033406 260 17 0 00 035270 EDTPF1: GO PFACB ;SET UP THE INITIAL AC BLOCK
3878
3879 033407 200 00 0 01 000000 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE
3880 033410 202 00 0 00 041216 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING
3881
3882 033411 260 17 0 00 035237 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION
3883
3884 033412 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3885 033413 137 00 0 00 040034 DPB AC0,[POINT 9,400777,8] ;YES
3886
3887 033414 336 00 0 00 041213 SKIPN FILLF
3888 033415 137 00 0 00 036261 DPB AC0,E0OP ;NO
3889
3890 033416 336 00 0 00 041236 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION?
3891 033417 254 00 0 00 033427 JRST EDTPC ;NO
3892
3893 033420 201 00 0 00 035711 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE
3894 033421 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3895 033422 542 00 0 00 400777 HRRM AC0,400777 ;YES
3896 033423 542 00 0 00 035625 HRRM AC0,E0 ;NO
3897
3898 033424 200 00 0 00 037574 MOVE AC0,[1,,1]
3899 033425 260 17 0 00 031436 GO SETRAN ;SETUP THE TRANSLATION TABLE
3900 033426 434 10 0 00 035775 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 79
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0133
3901
3902 033427 200 00 0 00 037547 EDTPC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
3903 033430 251 00 0 00 036027 BLT AC0,ORIGSV+4
3904
3905 033431 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3906 033432 200 00 0 00 040213 MOVE AC0,[0,,EDTPC2] ;YES
3907 033433 336 00 0 00 041213 SKIPN FILLF
3908 033434 200 00 0 00 040214 MOVE AC0,[0,,EDTPC1] ;NO
3909 033435 202 00 0 00 041212 MOVEM FAILOC# ;STORE IT
3910
3911 033436 476 00 0 00 041227 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED
3912 033437 402 00 0 00 041225 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG
3913
3914 033440 201 00 0 00 033457 MOVEI EDTPFX
3915 033441 202 00 0 00 041226 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
3916
3917 033442 260 17 0 00 035257 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP
3918
3919 033443 332 00 0 00 041213 SKIPE FILLF ;FILLER FAILURE CASE?
3920 033444 254 00 0 00 033450 JRST EDTPC2 ;YES
3921
3922 ; **************************************************
3923 033445 123 10 0 00 035625 EDTPC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
3924 033446 476 00 0 00 041234 SETOM SKPWD2 ;NOTE SKIP RETURN
3925 ; **************************************************
3926
3927 033447 254 00 0 00 033452 JRST EDTPF3
3928
3929 ; **************************************************
3930 033450 123 10 0 00 400777 EDTPC2: EXTEND AC,400777 ;MAKE E0+1 FAIL
3931 033451 476 00 0 00 041234 SETOM SKPWD2 ;NOTE SKIP RETURN
3932 ; **************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 80
DFKCCM MAC 8-Jan-87 15:04 PAGE FAIL TESTING SEQ 0134
3933
3934 ; **************************************************
3935 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
3936 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
3937 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
3938 ;INSTRUCTION AND TO HERE.
3939 ; **************************************************
3940
3941 033452 331 00 0 00 041227 EDTPF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR?
3942 033453 254 00 0 00 033467 JRST DOEDT ;YES - OK
3943
3944 ERROR EDTPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^
3945 SALL
3946 033454 036 13 0 00 040215
3947 033455 035 00 0 00 033362 ERLOOP EDTPF0 ;IF ERROR, LOOP TO EDTPF0
3948 033456 254 00 0 00 033474 JRST EDTNXT ;GO DO THE NEXT CASE
3949
3950 033457 336 00 0 00 041227 EDTPFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ?
3951 033460 254 00 0 00 033464 JRST EDTPF9 ;YES, CHECK INTERMEDIATE RESULTS
3952
3953 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^
3954 SALL
3955 033461 036 13 0 00 040220
3956 033462 035 02 0 00 033362 ERLP2 EDTPF0
3957 033463 254 00 0 00 033474 JRST EDTNXT
3958
3959 033464 EDTPF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^
3960 SALL
3961 033464 036 13 0 00 040223
3962 033465 035 02 0 00 033362 ERLP2 EDTPF0
3963 033466 254 00 0 00 033474 JRST EDTNXT
3964
3965 ; **************************************************
3966 033467 260 17 0 00 034155 DOEDT: GO EDTSIM ;SIMULATE THE INSTRUCTION
3967 033470 476 00 0 00 041233 SETOM SKPWD1 ;NOTE A SKIP RETURN
3968 ; **************************************************
3969
3970 033471 260 17 0 00 035220 GO COMAC ;COMPARE THE FINAL RESULTS
3971 ERROR EDTPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^
3972 SALL
3973 033472 036 13 0 00 040226
3974 033473 035 00 0 00 033362 ERLOOP EDTPF0 ;IF ERROR, LOOP TO EDTPF0
3975 033474 201 00 0 00 000005 EDTNXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS
3976 033475 272 00 0 00 000004 ADDM AC0,AC4
3977 033476 271 00 0 00 000001 ADDI AC0,1
3978 033477 272 00 0 00 000003 ADDM AC0,AC3
3979
3980 033500 341 02 0 00 033406 AOJL AC2,EDTPF1 ;DO THE NEXT PF CASE
3981
3982 033501 253 01 0 00 033362 AOBJN AC1,EDTPF0 ;DO THE NEXT INSTRUCTION
3983 033502 402 00 0 00 041220 SETZM OFFSET
3984 SALL
3985 033503 367 15 0 00 032613 REPTLP CMPST
3986 033504 254 00 0 00 030057 JRST BEGEND ;END OF PROGRAM
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 81
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0135
3987 SUBTTL INSTRUCTION SIMULATORS
3988
3989 ; **********************************************************************
3990 ;*INSTRUCTION SIMULATORS -- GENERAL INFORMATION
3991 ;*
3992 ;* EACH INSTRUCTION SIMULATOR ROUTINE IS ENTERED WITH
3993 ;* THE ORIGINAL AC BLOCK IN ORIGSV. THEY ARE COPIED INTO
3994 ;* AC'S 10-14.
3995 ;*
3996 ;* THE CURRENT OPCODE OF THE INSTRUCTION BEING TESTED
3997 ;* IS CONTAINED IN THE E0 WORD (BITS 0,8).
3998 ;*
3999 ;* FOR THE INSTRUCTIONS WHICH INVOLVE FORMING A DESTINATION STRING
4000 ;* THE RESULT IS STORED IN AN AREA CALLED "SIMDES" INSTEAD OF
4001 ;* "DESTIN" TO MAKE ERROR COMPARISON POSSIBLE.
4002 ;*
4003 ;* THE FINAL AC BLOCK FOR THE INSTRUCTION IS STORED IN FIVE
4004 ;* LOCATIONS AT RESSV BEFORE RETURN TO THE INSTRUCTION MODULE.
4005 ;*
4006 ;* RETURN IS +1 ALWAYS.
4007 ;*
4008 ;* CMPSIM -- ROUTINE TO SIMULATE THE COMPARE STRING INSTRUCTION
4009 ;* MOVSIM -- ROUTINE TO SIMULATE THE MOVE STRING INSTRUCTIONS
4010 ;* CDBSIM -- ROUTINE TO SIMULATE THE CVTDBO AND CVTDBT INSTRUCTIONS
4011 ;* CBDSIM -- ROUTINE TO SIMULATE THE CVTBDX INSTRUCTIONS
4012 ;* EDTSIM -- ROUTINE TO SIMULATE THE EDIT INSTRUCTION
4013 ; **********************************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 82
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0136
4014
4015 ; **********************************************************************
4016 ;*CMPSIM -- ROUTINE TO SIMULATE THE COMPARE STRING INSTRUCTION
4017 ;*
4018 ;* THE SKIP/NON-SKIP RETURN OF THE CMPXX SIMULATOR IS HANDLED
4019 ;* USING 3 FLAGS AND A SKIP TABLE, SKPTAB.
4020 ;*
4021 ;* WHEN STRING1 IS FOUND GREATER THAN, LESS THAN, AND/OR = TO
4022 ;* STRING2, THE APPROPRIATE FLAG IS OR'ED WITH AC3.
4023 ;*
4024 ;* SKPTAB IS INDEXED BY INSTRUCTION OPCODE AND BEFORE THE
4025 ;* INSTRUCTION RETURNS, AC3 IS ANDED WITH THE CORRECT
4026 ;* SKPTAB WORD.
4027 ;*
4028 ;* IF THE RESULT IS NON-ZERO THE SKIP CONDITION FOR THE INSTR
4029 ;* HAS BEEN SATISFIED AND THE RETURN POINTER IS INCREMENTED.
4030 ; **********************************************************************
4031
4032 033505 260 17 0 00 035307 CMPSIM: GO SVAC ;SAVE ACCUMULATORS
4033
4034 033506 135 01 0 00 036261 LDB OP1,E0OP ;COPY OF CURRENT OPCODE
4035
4036 033507 200 00 0 00 040231 MOVE AC0,[ORIGSV,,AC] ;RETRIEVE ORIGINAL AC BLOCK
4037 033510 251 00 0 00 000014 BLT AC0,AC+4
4038
4039 033511 402 00 0 00 000003 SETZM AC3 ;CLEAR SKIP TABLE COMPARE WORD
4040
4041 033512 375 00 0 00 000010 CMPS1: SOSGE SLEN
4042 033513 334 07 0 00 035626 SKIPA AC7,E0+1 ;IF SOURCE EXHAUSTED, GET FILLER
4043 033514 134 07 0 00 000011 ILDB AC7,SP ;SOURCE REMAINS, GET BYTE
4044
4045 033515 375 00 0 00 000013 SOSGE DLEN ;DO THE SAME WITH DESTINATION STRING
4046 033516 334 02 0 00 035627 SKIPA AC2,E0+2
4047 033517 134 02 0 00 000014 ILDB AC2,DP
4048
4049 033520 325 10 0 00 033522 JUMPGE SLEN,CMPS2 ;GO COMPARE BYTES
4050 033521 321 13 0 00 033545 JUMPL DLEN,CMPDON ;BOTH STRING ARE EQUAL
4051
4052 033522 554 04 0 00 000007 CMPS2: HLRZ AC4,AC7 ;GET THE LEFT HALF OF SOURCE AND DESTIN
4053 033523 554 05 0 00 000002 HLRZ AC5,AC2
4054
4055 033524 316 04 0 00 000005 CAMN AC4,AC5 ;COMPARE SOURCE AND DESTINATION BYTES
4056 033525 254 00 0 00 033534 JRST CMPS3 ;EQUAL - GET RIGHT HALF
4057
4058 033526 317 04 0 00 000005 CAMG AC4,AC5
4059 033527 435 03 0 00 000001 ORI AC3,LF
4060
4061 033530 311 04 0 00 000005 CAML AC4,AC5
4062 033531 435 03 0 00 000004 ORI AC3,GF ;SET SOURCE > DESTIN FLAG
4063
4064 033532 332 00 0 00 000003 SKIPE AC3
4065 033533 254 00 0 00 033546 JRST CMPOUT
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 83
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0137
4066
4067 033534 550 04 0 00 000007 CMPS3: HRRZ AC4,AC7
4068 033535 550 05 0 00 000002 HRRZ AC5,AC2
4069
4070 033536 316 04 0 00 000005 CAMN AC4,AC5
4071 033537 254 00 0 00 033512 JRST CMPS1 ;EQUAL - GET NEXT BYTES
4072
4073 033540 317 04 0 00 000005 CAMG AC4,AC5 ;BYTES ARE NOT EQUAL
4074 033541 435 03 0 00 000001 ORI AC3,LF ;SET SOURCE < DESTIN FLAG
4075
4076 033542 311 04 0 00 000005 CAML AC4,AC5
4077 033543 435 03 0 00 000004 ORI AC3,GF ;SET SOURCE > DESTIN FLAG
4078
4079 033544 254 00 0 00 033546 JRST CMPOUT ;NOW EXIT
4080
4081 033545 435 03 0 00 000002 CMPDON: ORI AC3,EF ;SET SOURCE = DESTIN FLAG
4082
4083 033546 404 03 0 01 036265 CMPOUT: AND AC3,SKPTAB(OP1) ;IF RESULT OF AND = 0 THEN NON-SKIP RTN
4084 033547 332 00 0 00 000003 SKIPE AC3
4085 033550 350 00 0 17 000000 AOS (P)
4086
4087 033551 335 00 0 00 000010 SKIPGE SLEN ;CLEANUP IF EITHER LENGTH HAS GONE NEGATIVE
4088 033552 402 00 0 00 000010 SETZM SLEN
4089 033553 335 00 0 00 000013 SKIPGE DLEN
4090 033554 402 00 0 00 000013 SETZM DLEN
4091
4092 033555 200 00 0 00 040232 MOVE AC0,[SLEN,,RESSV] ;SAVE THE END RESULT
4093
4094 033556 251 00 0 00 036034 BLT AC0,RESSV+4
4095 033557 260 17 0 00 035327 GO RSTAC ;RESTORE THE ACCUMULATORS
4096
4097 033560 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 84
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0138
4098
4099 ; **********************************************************************
4100 ;*MOVSIM -- ROUTINE TO SIMULATE THE MOVE STRING INSTRUCTIONS
4101 ; **********************************************************************
4102
4103 033561 260 17 0 00 035307 MOVSIM: GO SVAC ;SAVE ACCUMULATORS
4104
4105 033562 135 01 0 00 036261 LDB OP1,E0OP ;COPY OF CURRENT OPCODE
4106
4107 033563 200 00 0 00 040231 MOVE AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK
4108 033564 251 00 0 00 000014 BLT AC0,AC+4
4109
4110 033565 510 06 0 00 000010 HLLZ AC6,AC ;SEPERATE THE FLAGS AND LENGTH
4111 033566 550 10 0 00 000010 HRRZ AC,AC
4112
4113 033567 336 00 0 00 041220 SKIPN OFFSET ;DON'T OFFSET DESTIN STRING IF PFTST
4114 033570 541 14 0 00 036161 HRRI DP,SIMDES ;PUT SIMULATED DESTIN STRING ELSEWHERE
4115
4116 033571 332 00 0 00 000013 SKIPE DLEN ;IF DESTIN LEN = 0 THEN SIMPLE RETURN
4117 033572 254 00 0 00 033576 JRST MOVS1A ;NO
4118
4119 033573 336 00 0 00 000010 SKIPN SLEN ;IS THE SOURCE LENGTH 0 TOO?
4120 033574 254 00 0 00 033675 JRST SETSKP ;YES - DO A SKIP RETURN
4121 033575 254 00 0 00 033705 JRST MOVOUT ;NO
4122
4123 033576 306 01 0 00 000015 MOVS1A: CAIN OP1,015 ;IS INSTRUCTION MOVST?
4124 033577 254 00 0 00 033644 JRST MOVSTS ;YES - JUMP TO THAT CODE
4125
4126 033600 306 01 0 00 000014 CAIN OP1,014 ;IS INSTRUCTION MOVSO?
4127 033601 254 00 0 00 033624 JRST MOVSOS ;YES - JUMP TO THAT CODE
4128
4129 033602 403 02 0 00 000005 SETZB AC2,AC5 ;SET BYTE OFFSET AND OFFSET MASK TO ZERO
4130
4131 033603 316 10 0 00 000013 CAMN SLEN,DLEN ;ARE THE STRING LENGTHS EQUAL?
4132 033604 254 00 0 00 033630 JRST MOVS3 ;YES - DO THE MOVE
4133
4134 033605 302 01 0 00 000017 CAIE OP1,017 ;NO - MOVSRJ INSTRUCTION?
4135 033606 254 00 0 00 033630 JRST MOVS3 ;NO - DO THE MOVE
4136
4137 033607 200 02 0 00 000010 MOVE AC2,SLEN ;FIND DIFFERENCE BETWEEN STRING LENGTHS
4138 033610 274 02 0 00 000013 SUB AC2,DLEN
4139
4140 033611 337 00 0 00 000002 SKIPG AC2 ;SKIP IF DESTINATION SHORTER
4141 033612 254 00 0 00 033617 JRST MOVS2 ;SOURCE SHORTER - PUT FILLER IN DESTIN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 85
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0139
4142
4143 033613 134 07 0 00 000011 MOVS1: ILDB AC7,SP ;THROW AWAY A SOURCE BYTE
4144 033614 360 10 0 00 000000 SOJ SLEN,
4145 033615 366 02 0 00 033613 SOJN AC2,MOVS1 ;WHEN DIFFERENCE IS FILLED IN,
4146
4147 033616 254 00 0 00 033630 JRST MOVS3 ;DO REST OF MOVE
4148
4149 033617 200 07 0 00 035626 MOVS2: MOVE AC7,E0+1 ;GET THE FILLER
4150
4151 033620 136 07 0 00 000014 MOVS2A: IDPB AC7,DP ;PUT FILLER IN DESTINATION
4152 033621 360 13 0 00 000000 SOJ DLEN, ;DECREMENT DESTIN LENGTH
4153 033622 346 02 0 00 033620 AOJN AC2,MOVS2A ;WHEN DIFFERENCE IS FILLED IN,
4154
4155 033623 254 00 0 00 033630 JRST MOVS3 ;DO REST OF MOVE
4156
4157 033624 561 02 0 00 777777 MOVSOS: HRROI AC2,-1 ;AC2 IS OFFSET COMPARE WORD
4158 033625 135 05 0 00 040233 LDB AC5,[300600,,DP] ;GET # BITS IN DESTINATION BYTE
4159 033626 242 02 0 05 000000 LSH AC2,(AC5) ;AC2 SHOWS BITS THAT MIGHT BE LOST
4160 033627 571 05 1 00 035625 HRREI AC5,@E0 ;AC13 CONTAINS THE BYTE OFFSET
4161
4162 033630 375 00 0 00 000013 MOVS3: SOSGE DLEN ;ANY DESTINATION LEFT?
4163 033631 254 00 0 00 033675 JRST SETSKP ;NO
4164
4165 033632 375 00 0 00 000010 SOSGE SLEN ;ANY SOURCE LEFT
4166 033633 334 07 0 00 035626 SKIPA AC7,E0+1 ;NO - GET FILLER
4167 033634 134 07 0 00 000011 ILDB AC7,SP ;YES - GET BYTE
4168
4169 033635 335 00 0 00 000010 SKIPGE SLEN ;ANY SOURCE LEFT?
4170 033636 254 00 0 00 033642 JRST MOVS4 ;NO - JUST DEPOSIT FILLER
4171
4172 033637 270 07 0 00 000005 ADD AC7,AC5 ;ADD BYTE OFFSET TO BYTE
4173 033640 612 07 0 00 000002 TDNE AC7,AC2 ;WILL INFORMATION BE LOST?
4174 033641 254 00 0 00 033704 JRST MOVPL ;YES - RETURN PC+1
4175
4176 033642 136 07 0 00 000014 MOVS4: IDPB AC7,DP ;DEPOSIT BYTE IN DESTINATION
4177 033643 254 00 0 00 033630 JRST MOVS3 ;DO THE NEXT ONE!
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 86
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0140
4178
4179 033644 361 10 0 00 033665 MOVSTS: SOJL SLEN,MOVST1 ;ANY SOURCE LEFT?
4180
4181 033645 322 13 0 00 033665 JUMPE DLEN,MOVST1 ;JUMP IF DESTINATION EXHAUSTED
4182
4183 033646 134 07 0 00 000011 ILDB AC7,SP ;GET SOURCE BYTE
4184 033647 241 07 0 00 777777 ROT AC7,-1 ;SIGN BIT SAYS WHETHER ODD OR EVEN
4185 033650 335 00 0 00 000007 SKIPGE AC7
4186 033651 334 07 0 07 035711 SKIPA AC7,E1(AC7) ;GET TRANSLATION TABLE ENTRY RIGHT
4187 033652 204 07 0 07 035711 MOVS AC7,E1(AC7) ;GET TRANSLATION TABLE ENTRY LEFT
4188
4189 033653 602 07 0 00 400000 TRNE AC7,400000 ;IS THE S FLAG SET?
4190 033654 661 06 0 00 200000 TLO AC6,200000 ;YES - TURN ON THE N FLAG
4191
4192 033655 135 04 0 00 040234 LDB AC4,[POINT 2,AC7,20] ;GET THE SIGN CONTROL
4193 XCT [JFCL ;0 - NO ACTION
4194 JRST MOVST3 ;1 - ABORT INSRUCTION
4195 TLZ AC6,100000 ;2 - CLEAR M FLAG
4196 033656 256 00 0 04 040235 TLO AC6,100000](AC4) ;3 - SET M FLAG
4197
4198 033657 602 07 0 00 400000 TRNE AC7,400000 ;NOTE THE START FLAG
4199 033660 665 06 0 00 400000 TLOA AC6,400000 ;START SIGNIFICANCE
4200 033661 325 06 0 00 033644 JUMPGE AC6,MOVSTS ;DON'T STORE - TRY NEXT BYTE
4201
4202 033662 405 07 0 00 077777 ANDI AC7,77777 ;CLEAR LEFT HALF AND FLAGS
4203 033663 136 07 0 00 000014 IDPB AC7,DP ;DEPOSIT BYTE IN DESTINATION
4204 033664 364 13 0 00 033644 SOJA DLEN,MOVSTS ;GET NEXT BYTE
4205
4206 033665 356 00 0 00 000010 MOVST1: AOSN SLEN ;SOURCE GONE?
4207 033666 350 00 0 17 000000 AOS (P) ;YES - SETUP SKIP RETURN
4208
4209 033667 200 07 0 00 035626 MOVE AC7,E0+1 ;GET THE FILLER BYTE
4210 033670 361 13 0 00 033673 MOVST2: SOJL DLEN,MOVST3 ;JUMP WHEN DESTINATION FINISHED
4211 033671 136 07 0 00 000014 IDPB AC7,DP ;DEPOSIT IT IN THE DESTINATION STRING
4212 033672 254 00 0 00 033670 JRST MOVST2 ;DESTINATION LEFT - CONTINUE
4213
4214 033673 137 10 0 00 040241 MOVST3: DPB SLEN,[3300,,SLEN] ;DEPOSIT REMAINING SOURCE LENGTH
4215 033674 254 00 0 00 033705 JRST MOVOUT
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 87
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0141
4216
4217 033675 302 01 0 00 000017 SETSKP: CAIE OP1,017 ;MOVSRJ INSTRUCTION?
4218 033676 254 00 0 00 033701 JRST SKP1 ;NO
4219
4220 033677 350 00 0 17 000000 AOS (P) ;YES - IT ALWAYS SKIPS
4221 033700 254 00 0 00 033705 JRST MOVOUT
4222
4223 033701 337 00 0 00 000010 SKP1: SKIPG SLEN ;IS THERE UNUSED SOURCE BYTES?
4224 033702 350 00 0 17 000000 AOS (P) ;NO - SKIP RETURN
4225 033703 334 00 0 00 000000 SKIPA
4226
4227 033704 271 13 0 00 000001 MOVPL: ADDI DLEN,1 ;ADJUST DESTIN LENGTH
4228
4229 033705 335 00 0 00 000010 MOVOUT: SKIPGE SLEN ;RESET ANY NEG LENGTHS TO 0
4230 033706 402 00 0 00 000010 SETZM SLEN
4231 033707 335 00 0 00 000013 SKIPGE DLEN
4232 033710 402 00 0 00 000013 SETZM DLEN
4233
4234 033711 332 00 0 00 041236 SKIPE TRANFG ;MOVST INSTRUCTION?
4235 033712 434 10 0 00 000006 OR SLEN,AC6 ;YES - OR THE TRANSLATE FLAGS WITH SLEN
4236
4237 033713 200 00 0 00 040232 MOVE AC0,[SLEN,,RESSV] ;SAVE THE FINAL RESULT
4238 033714 251 00 0 00 036034 BLT AC0,RESSV+4
4239
4240 033715 260 17 0 00 035327 GO RSTAC ;RESTORE ACCUMULATORS
4241 033716 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 88
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0142
4242
4243 ; **********************************************************************
4244 ;*CDBSIM -- ROUTINE TO SIMULATE THE CVTDBO AND CVTDBT INSTRUCTIONS
4245 ; **********************************************************************
4246
4247 033717 260 17 0 00 035307 CDBSIM: GO SVAC ;SAVE ACCUMULATORS
4248
4249 033720 135 01 0 00 036261 LDB OP1,E0OP ;COPY OF CURRENT OPCODE
4250
4251 033721 200 00 0 00 040231 MOVE AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK
4252 033722 251 00 0 00 000014 BLT AC0,AC+4
4253
4254 033723 200 06 0 00 000010 MOVE AC6,SLEN
4255 033724 621 06 0 00 777000 TLZ AC6,777000 ;AC6/STRING LENGTH WITHOUT FLAGS
4256 033725 404 10 0 00 040242 AND SLEN,[777000,,0] ;SLEN NOW HAS ONLY THE FLAGS
4257
4258 033726 302 01 0 00 000010 CAIE OP1,010 ;CVTDBO INSTRUCTION?
4259 033727 254 00 0 00 033734 JRST CDBS1 ;NO - TRANSLATE INSTRUCTION
4260
4261 033730 571 05 1 00 035625 HRREI AC5,@E0 ;GET THE BYTE OFFSET
4262 033731 621 14 0 00 400000 TLZ DBL,(1B0) ;CLEAR THE LOW ORDER SIGN BIT
4263 033732 667 10 0 00 400000 TLON SLEN,400000 ;TEST AND SET THE SIGNIFICANCE FLAG
4264 033733 403 13 0 00 000014 SETZB DBH,DBL ;CLEAR HIGH AND LOW ORDER DATA
4265
4266 033734 361 06 0 00 033777 CDBS1: SOJL AC6,CDBDON ;JUMP IF ALL BYTES PROCESSED
4267
4268 033735 134 07 0 00 000011 ILDB AC7,SP ;GET A SOURCE BYTE
4269 033736 302 01 0 00 000011 CAIE OP1,011 ;CVTDBO INSTRUCTION?
4270 033737 254 00 0 00 033756 JRST CDBLEG ;YES - GO SEE IF LEGAL DIGIT
4271
4272 033740 241 07 0 00 777777 ROT AC7,-1 ;CVTDBT - ISOLATE ODD,EVEN BIT
4273 033741 335 00 0 00 000007 SKIPGE AC7
4274 033742 334 07 0 07 035711 SKIPA AC7,E1(AC7) ;GET TRANSLATION TABLE ENTRY RIGHT
4275 033743 204 07 0 07 035711 MOVS AC7,E1(AC7) ;GET TRANSLATION TABLE ENTRY LEFT
4276
4277 033744 602 07 0 00 400000 TRNE AC7,400000 ;IS S FLAG SET IN TABLE ENTRY?
4278 033745 661 10 0 00 200000 TLO SLEN,200000 ;YES - SET THE N FLAG
4279
4280 033746 135 04 0 00 040234 LDB AC4,[POINT 2,AC7,20] ;GET THE SIGN CONTROL
4281 XCT [JFCL ;0 - NO ACTION
4282 JRST CDBOUT ;1 - ABORT INSRUCTION
4283 TLZ SLEN,100000 ;2 - CLEAR M FLAG
4284 033747 256 00 0 04 040243 TLO SLEN,100000](AC4) ;3 - SET M FLAG
4285
4286 033750 606 07 0 00 400000 TRNN AC7,400000 ;NOTE THE SIGNIFICANCE FLAG
4287 033751 325 10 0 00 033734 JUMPGE SLEN,CDBS1 ;DON'T STORE - GET NEXT BYTE
4288
4289 033752 667 10 0 00 400000 TLON SLEN,400000 ;TEST AND SET SIGNIFICANCE
4290 033753 403 14 0 00 000013 SETZB DBL,DBH ;CLEAR HIGH AND LOW BINARY DATA
4291
4292 033754 405 07 0 00 000017 ANDI AC7,17 ;DISCARD THE HIGH BITS OF TRANS TABLE ENTRY
4293 033755 334 00 0 00 000000 SKIPA
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 89
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0143
4294
4295 033756 270 07 0 00 000005 CDBLEG: ADD AC7,AC5 ;ADD OFFSET IF CVTDBO INSTRUCTION
4296 033757 321 07 0 00 034002 JUMPL AC7,CDBOUT ;TERMINATE INSTR IF BYTE NEGATIVE
4297
4298 033760 301 07 0 00 000012 CAIL AC7,^D10 ;TERMINATE INSTR IF BYTE > DECIMAL 9
4299 033761 254 00 0 00 034002 JRST CDBOUT
4300
4301 033762 242 14 0 00 000001 LSH DBL,1
4302 033763 246 13 0 00 000001 LSHC DBH,1 ;MULTIPLY BY 2
4303 033764 242 14 0 00 777777 LSH DBL,-1
4304 033765 124 13 0 00 036262 DMOVEM DBH,TEMP ;SAVE THE DOUBLE WORD RESULT
4305
4306 033766 242 14 0 00 000001 LSH DBL,1
4307 033767 246 13 0 00 000002 LSHC DBH,2 ;MULTIPLY BY 4
4308 033770 242 14 0 00 777777 LSH DBL,-1
4309
4310 033771 270 07 0 00 036263 ADD AC7,TEMP+1 ;ADD THE PARTIAL PRODUCT
4311 033772 270 14 0 00 000007 ADD DBL,AC7
4312 033773 270 13 0 00 036262 ADD DBH,TEMP
4313
4314 033774 623 14 0 00 400000 TLZE DBL,400000 ;IS THERE A CARRY OUT OF LOW WORD
4315 033775 340 13 0 00 000000 AOJ DBH, ;YES - INCREMENT THE HIGH WORD
4316
4317 033776 254 00 0 00 033734 JRST CDBS1 ;GET THE NEXT BYTE
4318
4319 033777 603 10 0 00 100000 CDBDON: TLNE SLEN,100000 ;IS THE M FLAG SET?
4320 034000 121 13 0 00 000013 DMOVN DBH,DBH ;YES - NEGATE THE DOUBLE WORD RESULT
4321 034001 354 00 0 17 000000 AOSA (P) ;PROVIDE FOR A SKIP RETURN
4322
4323 034002 434 10 0 00 000006 CDBOUT: IOR SLEN,AC6
4324 034003 621 14 0 00 400000 TLZ DBL,(1B0) ;CLEAR COPY OF SIGN BIT
4325
4326 034004 603 13 0 00 400000 TLNE DBH,(1B0) ;TEST THE SIGN OF THE RESULT
4327 034005 661 14 0 00 400000 TLO DBL,(1B0) ;IT'S NEGATIVE - SET COPY OF SIGN TO 1
4328
4329 034006 302 01 0 00 000011 CAIE OP1,011 ;OFFSET INSTRUCTION?
4330 034007 254 00 0 00 034012 JRST CDBRET ;YES - RETURN
4331
4332 034010 607 10 0 00 400000 TLNN SLEN,400000 ;CVTDBT - IS S FLAG SET?
4333 034011 403 14 0 00 000013 SETZB DBL,DBH ;NO - SET THE ANSWER TO ZERO
4334
4335 034012 200 00 0 00 040232 CDBRET: MOVE AC0,[SLEN,,RESSV] ;STORE THE RESULTS
4336
4337 034013 251 00 0 00 036034 BLT AC0,RESSV+4
4338 034014 260 17 0 00 035327 GO RSTAC ;RESTORE ACCUMULATORS
4339
4340 034015 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 90
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0144
4341
4342 ; **********************************************************************
4343 ;*CBDSIM -- ROUTINE TO SIMULATE THE CVTBDX INSTRUCTIONS
4344 ;
4345 ; IN A MACHINE WITH MICROCODE 202 OR EARLIER OR GREATER THAN 230,
4346 ; THE "N" AND "M" FLAGS ARE SET UP FIRST AND MAY THEREFORE BE
4347 ; AFFECTED BY AN INSTRUCTION THAT IS ABORTED BECAUSE THE BINARY
4348 ; INTERGER IS TOO LARGE.
4349 ; **********************************************************************
4350
4351 034016 260 17 0 00 035307 CBDSIM: GO SVAC ;SAVE ACCUMULATORS
4352
4353 034017 402 00 0 00 041223 SETZM OVERR# ;OVERFLOW ERROR FLAG
4354
4355 034020 135 01 0 00 036261 LDB OP1,E0OP ;COPY OF CURRENT OPCODE
4356
4357 034021 200 00 0 00 040231 MOVE AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK
4358 034022 251 00 0 00 000014 BLT AC0,AC+4
4359
4360 034023 336 00 0 00 041220 SKIPN OFFSET ;DON'T OFFSET STRING IF PFTST
4361 034024 541 14 0 00 036161 HRRI DP,SIMDES ;PUT SIMULATOR RESULT ELSEWHERE
4362
4363 034025 571 00 1 00 035625 HRREI AC0,@E0 ;GET BYTE OFFSET
4364 034026 202 00 0 00 041221 MOVEM OFS#
4365
4366 034027 135 02 0 00 040247 LDB AC2,[POINT 9,DLEN,35] ;AC2 HAS DESTIN STRING LENGTH
4367 034030 621 11 0 00 400000 TLZ BDL,(1B0) ;CLEAR THE LOW ORDER SIGN BIT
4368 034031 306 10 0 00 000000 CAIN BDH,0 ;IS THE NUMBER = 0?
4369 034032 302 11 0 00 000000 CAIE BDL,0
4370 034033 661 13 0 00 200000 TLO DLEN,200000 ;NO - SET THE N (NON-ZERO) FLAG
4371
4372 034034 325 10 0 00 034041 JUMPGE BDH,CBDS1 ;JUMP IF THE NUMBER IS POSITIVE
4373
4374 034035 121 10 0 00 000010 DMOVN BDH,BDH ;MAKE THE NUMBER POSITIVE
4375 034036 661 13 0 00 100000 TLO DLEN,100000 ;BUT REMEMBER THAT IT WAS NEGATIVE
4376
4377 034037 603 10 0 00 400000 TLNE BDH,(1B0) ;NEGATIVE?
4378 034040 661 11 0 00 400000 TLO BDL,(1B0) ;YES - SET THE LOW ORDER SIGN
4379
4380 034041 322 02 0 00 034140 CBDS1: JUMPE AC2,CBDOVF ;ZERO LENGTH MEANS OVERFLOW
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 91
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0145
4381
4382 034042 301 10 0 00 000000 CAIL BDH,0 ;2**70?
4383 034043 254 00 0 00 034065 JRST CBDOST ;NO
4384
4385 034044 305 02 0 00 000026 CAIGE AC2,^D22 ;YES - IS THE LENGTH LONG ENOUGH?
4386 034045 254 00 0 00 034140 JRST CBDOVF ;NO
4387
4388 034046 607 13 0 00 400000 TLNN DLEN,400000 ;SIGNIFICANCE FLAG SET?
4389 034047 254 00 0 00 034055 JRST CBDS3 ;NO - NO STORAGE OF LEADING 0'S
4390
4391 034050 200 03 0 00 035626 MOVE AC3,E0+1 ;YES - GET THE FILLER
4392 034051 306 02 0 00 000026 CBDS2: CAIN AC2,^D22
4393 034052 254 00 0 00 034055 JRST CBDS3
4394
4395 034053 136 03 0 00 000014 IDPB AC3,DP ;STORE THE FILLER IN DESTINATION STRING
4396 034054 364 02 0 00 034051 SOJA AC2,CBDS2 ;GO BACK FOR MORE
4397
4398 034055 201 02 0 00 000025 CBDS3: MOVEI AC2,^D21
4399 034056 201 03 0 00 000001 MOVEI AC3,1
4400
4401 034057 306 01 0 00 000012 CAIN OP1,012 ;CVTBDO INSTRUCTION?
4402 034060 270 03 0 00 041221 ADD AC3,OFS ;ADD OFFSET TO THE NUMBER
4403
4404 034061 306 01 0 00 000013 CAIN OP1,013 ;CVTBDT INSTRUCTION?
4405 034062 550 03 0 03 035711 HRRZ AC3,E1(AC3) ;GET REPRESENTATION OF "1"
4406
4407 034063 136 03 0 00 000014 IDPB AC3,DP ;STORE FIRST DIGIT OF ANSWER
4408 034064 120 10 0 00 040250 DMOVE BDH,[EXP 47121545107,104130000000]
4409
4410 034065 120 03 0 00 000010 CBDOST: DMOVE AC3,BDH
4411 034066 260 17 0 00 034100 GO DECPNT ;OUTPUT DIGITS
4412
4413 034067 332 00 0 00 041223 SKIPE OVERR ;IS THERE AN OVERFLOW ERROR?
4414 034070 254 00 0 00 034140 JRST CBDOVF ;YES
4415
4416 034071 403 10 0 00 000011 CBDEX: SETZB BDH,BDL ;RETURN WITH DATA 0
4417 034072 404 13 0 00 040242 AND DLEN,[777000,,] ;LEAVE LENGTH 0
4418
4419 034073 200 00 0 00 040232 MOVE AC0,[AC,,RESSV]
4420 034074 251 00 0 00 036034 BLT AC0,RESSV+4
4421
4422 034075 260 17 0 00 035327 GO RSTAC
4423 034076 350 00 0 17 000000 AOS (P)
4424 034077 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 92
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0146
4425
4426 034100 260 17 0 00 034110 DECPNT: GO DECPN3 ;STORE DIGITS
4427
4428 034101 607 13 0 00 100000 TLNN DLEN,100000 ;MINUS FLAG SET?
4429 034102 254 00 0 00 034107 JRST DECPNR
4430
4431 034103 306 01 0 00 000012 CAIN OP1,012
4432 034104 254 00 0 00 034107 JRST DECPNR
4433
4434 034105 514 02 0 06 035711 HRLZ AC2,E1(AC6)
4435 034106 137 02 0 00 000014 DPB AC2,DP
4436
4437 034107 263 17 0 00 000000 DECPNR: RTN
4438
4439 034110 200 05 0 00 000004 DECPN3: MOVE AC5,AC4 ;SAVE LOW ORDER DIVIDEND
4440
4441 034111 231 03 0 00 000012 IDIVI AC3,12 ;DIVIDE HIGH PART BY 10
4442 034112 235 04 0 00 000012 DIVI AC4,12 ;AND LOW PART
4443
4444 034113 365 02 0 00 034116 SOJGE AC2,DECP4 ;IF LENGTH GOES NEG -- OVERFLOW
4445
4446 034114 476 00 0 00 041223 SETOM OVERR ;INDICATE OVERFLOW ERROR
4447 034115 254 00 0 00 034137 JRST DECPN2 ;INITIATE A RETURN
4448
4449 034116 261 17 0 00 000005 DECP4: PUSH P,AC5
4450 034117 326 04 0 00 034127 JUMPN AC4,DECPN1
4451 034120 326 03 0 00 034127 JUMPN AC3,DECPN1
4452 034121 325 13 0 00 034126 JUMPGE DLEN,DECLDN ;SFL=0 MEANS DON'T STORE LEADING 0'S
4453 034122 200 05 0 00 035626 MOVE AC5,E0+1
4454
4455 034123 322 02 0 00 034126 DECFIL: JUMPE AC2,DECLDN ;NO MORE ROOM
4456 034124 136 05 0 00 000014 IDPB AC5,DP ;STORE A LEADING 0
4457 034125 364 02 0 00 034123 SOJA AC2,DECFIL ;GO BACK FOR MORE
4458
4459 034126 304 00 0 00 000000 DECLDN: CAIA ;RETRIEVE DIGITS IN CORRECT ORDER
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 93
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0147
4460
4461 034127 260 17 0 00 034110 DECPN1: GO DECPN3 ;GET NEXT DIGIT
4462 034130 262 17 0 00 000005 POP P,AC5
4463 034131 200 06 0 00 000005 MOVE AC6,AC5 ;SAVE DIGIT
4464
4465 034132 306 01 0 00 000012 CAIN OP1,012 ;TRANSLATE?
4466 034133 270 05 0 00 041221 ADD AC5,OFS ;NO -OFFSET
4467
4468 034134 306 01 0 00 000013 CAIN OP1,013
4469 034135 550 05 0 05 035711 HRRZ AC5,E1(AC5)
4470
4471 034136 136 05 0 00 000014 IDPB AC5,DP ;STORE
4472 034137 263 17 0 00 000000 DECPN2: RTN
4473
4474 034140 476 00 0 00 041223 CBDOVF: SETOM OVERR ;INDICATE OVERFLOW
4475 034141 202 13 0 00 041222 MOVEM DLEN,OVDLEN# ;SAVE MODIFIED FLAGS
4476
4477 034142 200 00 0 00 040252 MOVE AC0,[ORIGSV,,RESSV] ;RETURN WITH ORIGINAL AC'S INTACT
4478 034143 251 00 0 00 036034 BLT AC0,RESSV+4
4479
4480 034144 541 00 0 00 036161 HRRI AC0,SIMDES
4481 034145 542 00 0 00 036034 HRRM AC0,RESSV+4
4482
4483 034146 336 00 0 00 041217 SKIPN MIC202 ;UCODE 202 TO 227 ?
4484 034147 202 13 0 00 036033 MOVEM DLEN,RESSV+3 ;NO, SAVE MODIFIED FLAGS THEN
4485
4486 034150 402 00 0 00 036161 SETZM SIMDES
4487 034151 200 00 0 00 040253 MOVE AC0,[SIMDES,,SIMDES+1]
4488 034152 251 00 0 00 036217 BLT AC0,SIMDES+^D30
4489
4490 034153 260 17 0 00 035327 GO RSTAC
4491 034154 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 94
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0148
4492
4493 ; **********************************************************************
4494 ;*EDTSIM -- ROUTINE TO SIMULATE THE EDIT INSTRUCTION
4495 ; **********************************************************************
4496
4497 034155 260 17 0 00 035307 EDTSIM: GO SVAC ;SAVE ACCUMULATORS
4498
4499 034156 200 00 0 00 040231 MOVE AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK
4500 034157 251 00 0 00 000014 BLT AC0,AC+4
4501
4502 034160 336 00 0 00 041220 SKIPN OFFSET# ;OFFSET THE DESTINATION STRING?
4503 034161 541 14 0 00 036161 HRRI DP,SIMDES ;MOVE DESTINATION STRING ELSEWHERE
4504
4505 034162 135 07 0 00 036514 EDTS2: LDB AC7,PATBN ;GET PB# FROM AC
4506 034163 135 03 0 07 036516 LDB AC3,PATBL(AC7) ;GET THE PATTERN BYTE
4507 034164 200 02 0 00 000003 MOVE AC2,AC3 ;MAKE A COPY OF IT
4508 034165 242 02 0 00 777772 LSH AC2,-6 ;GET READY TO DECODE THE HIGH 3 BITS
4509 034166 254 00 1 02 036476 JRST @PPTAB(AC2) ;JUMP TO THE SPECIFIED PP CODE
4510
4511 ; **************************************************
4512 ;EOPER -- PP IS 000-005. DECODE AND JUMP AGAIN
4513 ; **************************************************
4514
4515 034167 303 03 0 00 000005 EOPER: CAILE AC3,5 ;LEGAL OPERATOR?
4516 034170 254 00 0 00 034176 JRST ENOP ;NO
4517 034171 254 00 1 03 036506 JRST @PPTAB1(AC3) ;JUMP TO SPECIFIED PP CODE
4518
4519 ; **************************************************
4520 ;EMESSG -- PP IS 1XX (MESSAG)
4521 ; **************************************************
4522
4523 034172 325 10 0 00 034234 EMESSG: JUMPGE PADDR,ESEL ;USE FILLER IF SIGNIFICANCE NOT SET
4524 034173 200 03 0 03 035526 MOVE AC3,E0-77(AC3) ;SIGNIFICANCE SET - GET MSG CHAR.
4525 034174 136 03 0 00 000014 IDPB AC3,DP ;DEPOSIT IT IN DESTINATION STRING
4526 034175 254 00 0 00 034176 JRST ENOP
4527
4528 ; **************************************************
4529 ;ENOP -- UPDATES THE PATTERN ADDRESS
4530 ; **************************************************
4531
4532 034176 260 17 0 00 034253 ENOP: GO INCPBN ;ROUTINE TO UPDATE PATTERN ADDRESS
4533 034177 254 00 0 00 034162 JRST EDTS2 ;GO GET THE NEXT BYTE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 95
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0149
4534
4535 ; **************************************************
4536 ;ESKPM -- PP IS 5XX (SKPM)
4537 ; **************************************************
4538
4539 034200 607 10 0 00 100000 ESKPM: TLNN PADDR,100000 ;IS THE M FLAG SET?
4540 034201 254 00 0 00 034176 JRST ENOP ;NO - DON'T SKIP LENGTH
4541 034202 254 00 0 00 034206 JRST ESKPA ;YES - DO THE SKIP
4542
4543 ; **************************************************
4544 ;ESKPN -- PP IS 6XX (SKPN)
4545 ; **************************************************
4546
4547 034203 607 10 0 00 200000 ESKPN: TLNN PADDR,200000 ;IS THE N FLAG SET?
4548 034204 254 00 0 00 034176 JRST ENOP ;NO - DON'T SKIP LENGTH
4549 034205 254 00 0 00 034206 JRST ESKPA ;YES - DO THE SKIP
4550
4551 ; **************************************************
4552 ;ESKPA -- PP IS 7XX (SKPA)
4553 ; **************************************************
4554
4555 034206 405 03 0 00 000077 ESKPA: ANDI AC3,77
4556 034207 271 07 0 03 000001 ADDI AC7,1(AC3) ;ADD THE SKIP DISTANCE
4557 034210 260 17 0 00 034253 GO INCPBN
4558 034211 254 00 0 00 034162 JRST EDTS2
4559
4560 ; **************************************************
4561 ;ESTOP -- PP IS 000 (STOP)
4562 ; **************************************************
4563
4564 034212 350 00 0 17 000000 ESTOP: AOS (P) ;SETUP FOR A SKIP RETURN
4565
4566 034213 260 17 0 00 034253 EABORT: GO INCPBN ;PUSH THE PATTERN BYTE NO. PAST THE STOP
4567
4568 034214 200 00 0 00 040232 MOVE AC0,[PADDR,,RESSV] ;SAVE THE RESULT AC'S
4569 034215 251 00 0 00 036034 BLT AC0,RESSV+4
4570
4571 034216 260 17 0 00 035327 GO RSTAC ;RESTORE ACCUMULATORS
4572 034217 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 96
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0150
4573
4574 ; **************************************************
4575 ;ESELCT -- PP IS 011 (SELECT)
4576 ; **************************************************
4577
4578 034220 134 03 0 00 000011 ESELCT: ILDB AC3,SP ;GET SOURCE BYTE
4579 034221 241 03 0 00 777777 ROT AC3,-1 ;MOVE ODD,EVEN BIT TO BIT 0
4580 034222 335 00 0 00 000003 SKIPGE AC3
4581 034223 334 03 0 03 035711 SKIPA AC3,E1(AC3) ;LOAD TRANS TABLE ENTRY, RIGHT HALF
4582 034224 204 03 0 03 035711 MOVS AC3,E1(AC3) ;LOAD TRANS TABLE ENTRY, LEFT HALF
4583
4584 034225 602 03 0 00 400000 TRNE AC3,400000 ;IS THE SIGNIFICANCE FLAG SET?
4585 034226 661 10 0 00 200000 TLO PADDR,200000 ;YES - SET THE N FLAG
4586
4587 034227 135 02 0 00 040254 LDB AC2,[POINT 2,AC3,20] ;GET THE CONTROL BITS
4588 XCT [JFCL ;0 - NO ACTION
4589 JRST EABORT ;1 - ABORT INSRUCTION
4590 TLZ PADDR,100000 ;2 - CLEAR M FLAG
4591 034230 256 00 0 02 040255 TLO PADDR,100000](AC2) ;3 - SET M FLAG
4592
4593 034231 321 10 0 00 034241 JUMPL PADDR,ESEL2 ;STORE THE BYTE
4594
4595 034232 602 03 0 00 400000 TRNE AC3,400000 ;IS THE SIGNIFICANCE FLAG SET?
4596 034233 254 00 0 00 034237 JRST ESEL1 ;YES - STORE THE BYTE
4597
4598 034234 200 03 0 00 035626 ESEL: MOVE AC3,E0+1 ;NO - GET THE FILLER CHARACTER
4599 034235 322 03 0 00 034176 JUMPE AC3,ENOP ;DON'T STORE IT IF = 0
4600 034236 254 00 0 00 034241 JRST ESEL2
4601
4602 034237 661 10 0 00 400000 ESEL1: TLO PADDR,400000 ;SET THE SIGNIFICANCE FLAG
4603 034240 260 17 0 00 034262 GO STFLOT ;MARK AND TRY FLOAT
4604
4605 034241 405 03 0 00 077777 ESEL2: ANDI AC3,77777 ;MASK OFF THE CONTROL BITS
4606 034242 136 03 0 00 000014 IDPB AC3,DP ;DEPOSIT THE BYTE IN DESTIN STRING
4607 034243 254 00 0 00 034176 JRST ENOP ;GO FOR NEXT BYTE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 97
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION SIMULATORS SEQ 0151
4608
4609 ; **************************************************
4610 ;ESIGST -- PP IS 002 (SIGST)
4611 ; **************************************************
4612
4613 034244 667 10 0 00 400000 ESIGST: TLON PADDR,400000 ;TEST AND SET SIGNIFICANCE FLAG
4614 034245 260 17 0 00 034262 GO STFLOT ;STORE FLOAT CHARACTER
4615 034246 254 00 0 00 034176 JRST ENOP
4616
4617 ; **************************************************
4618 ;EFLDSP -- PP IS 003 (FLDSEP)
4619 ; **************************************************
4620
4621 034247 621 10 0 00 700000 EFLDSP: TLZ PADDR,700000 ;CLEAR ALL FLAGS
4622 034250 254 00 0 00 034176 JRST ENOP
4623
4624 ; **************************************************
4625 ;EEXCHD -- -- IS 004 (EXCHMD)
4626 ; **************************************************
4627
4628 034251 250 14 0 13 000000 EEXCHD: EXCH DP,(MA) ;PUT THE MARK POINTER INTO DP1
4629 034252 254 00 0 00 034176 JRST ENOP
4630
4631 ; **************************************************
4632 ;INCPBN -- EDIT SUPPORT ROUTINE TO UPDATE THE PATTERN ADDRESS
4633 ; **************************************************
4634
4635 034253 271 07 0 00 000001 INCPBN: ADDI AC7,1 ;INCREMENT PB#
4636 034254 200 03 0 00 000007 MOVE AC3,AC7 ;MAKE A COPY OF IT
4637 034255 242 03 0 00 777776 LSH AC3,-2 ;GET THE WORD ADDRESS
4638 034256 271 10 0 03 000000 ADDI PADDR,(AC3) ;UPDATE SP
4639 034257 405 07 0 00 000003 ANDI AC7,3
4640 034260 137 07 0 00 036514 DPB AC7,PATBN
4641 034261 263 17 0 00 000000 RTN
4642
4643 ; **************************************************
4644 ;STFLOT -- EDIT SUPPORT ROUTINE THAT STORES THE FLOAT CHAR IN THE
4645 ; DESTINATION STRING
4646 ; **************************************************
4647
4648 034262 202 14 0 13 000000 STFLOT: MOVEM DP,(MA) ;MA <== DP
4649 034263 200 02 0 00 035627 MOVE AC2,E0+2 ;GET THE FLOAT CHARACTER
4650
4651 034264 332 00 0 00 000002 SKIPE AC2 ;DON'T STORE THE FLOAT CHARACTER IF ZERO
4652 034265 136 02 0 00 000014 IDPB AC2,DP ;STORE IT
4653 034266 263 17 0 00 000000 RTN
4654
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 98
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0152
4655 SUBTTL INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES
4656
4657 ; **********************************************************************
4658 ;*INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES
4659 ;* -- GENERAL INFORMATION
4660 ;*
4661 ;* EACH OF THE FIVE ERROR COMPARATOR AND COMPANION ERROR REPORTER
4662 ;* ROUTINES IS RESPONSIBLE FOR DETECTING ERROR AND PRINTING THE
4663 ;* ERROR INFORMATION SPECIFIC TO THE INSTRUCTION UNDER TEST.
4664 ;*
4665 ;* ALL ROUTINES ARE ENTERED WITH THE SAME PARAMETERS. THESE ARE:
4666 ;* 1. ORIGINAL AC BLOCK IN ORIGSV-ORIGSV+4
4667 ;* 2. ACTUAL RESULT BLOCK IN AC'S 10-14
4668 ;* 3. SIMULATED RESULT BLOCK IN RESSV-RESSV+4
4669 ;* 4. INSTRUCTION SKIP INFORMATION IN SKPWD1 AND SKPWD2
4670 ;* 5. SIMULATED DESTIN STRING IN SIMDES
4671 ;* 6. ACTUAL DESTIN STRING IN DESTIN
4672 ;*
4673 ;* GENERAL HELPER ROUTINES UTILIZED BY THE ERROR REPORTERS:
4674 ;*
4675 ;* 1. PNTINS -- PRINTS THE CURRENT INSTRUCTION NAME
4676 ;* NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS
4677 ;* 2. PNTCAS -- PRINTS THE CURRENT CASE NUMBER
4678 ;* ENTRY WITH CASE TABLE ADDRESS IN AC1, RTN+1 ALWAYS
4679 ;* 3. PNTSTR -- PRINTS STRING OF BYTES
4680 ;* ENTRY WITH STRING LENGTH IN AC1, STRING BYTE POINTER
4681 ;* IN AC2, RTN+1 ALWAYS
4682 ;* 4. PNTACB -- PRINTS ORIGINAL,SIMULATED, ACTUAL AC BLOCKS
4683 ;* NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS
4684 ;* 5. PNTSKP -- PRINTS INCORRECT SKIP MESSAGE
4685 ;* NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS
4686 ;*
4687 ;* CMPCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
4688 ;* OF THE EXTEND COMPARE INSTRUCION.
4689 ;* MOVCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
4690 ;* OF THE EXTEND MOVXX INSTRUCTIONS.
4691 ;* CDBCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
4692 ;* OF THE CVTDBX INSTRUCTIONS.
4693 ;* CBDCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
4694 ;* OF THE CVTBDX INSTRUCTIONS.
4695 ;* EDTCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
4696 ;* OF THE EDIT INSTRUCTION AND PRINTS ERROR INFORMATION.
4697 ; **********************************************************************
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 99
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0153
4698
4699 ; **********************************************************************
4700 ;*CMPCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
4701 ;* OF THE EXTEND COMPARE INSTRUCION.
4702 ; **********************************************************************
4703
4704 034267 200 00 0 00 041233 CMPCOM: MOVE AC0,SKPWD1 ;SEE IF INSTR RETURNED CORRECTLY
4705 034270 316 00 0 00 041234 CAMN AC0,SKPWD2
4706 034271 254 00 0 00 034274 JRST CMPC1 ;IT DID - CONTINUE
4707
4708 034272 476 00 0 00 041215 SETOM INCSKP ;SET THE INCORRECT RETURN FLAG
4709 034273 254 00 0 00 034307 JRST CMPFAIL ;AND GO PRINT THE ERROR INFORMATION
4710
4711 034274 312 10 0 00 036030 CMPC1: CAME SLEN,RESSV ;CHECK THE CONTENTS OF THE SIM AC BLOCK
4712 034275 254 00 0 00 034307 JRST CMPFAIL ;AGAINST THE REAL AC BLOCK (AC-AC+4)
4713
4714 034276 312 11 0 00 036031 CAME SP,RESSV+1
4715 034277 254 00 0 00 034307 JRST CMPFAIL
4716
4717 034300 312 12 0 00 036032 CAME AC12,RESSV+2
4718 034301 254 00 0 00 034307 JRST CMPFAIL
4719
4720 034302 312 13 0 00 036033 CAME DLEN,RESSV+3
4721 034303 254 00 0 00 034307 JRST CMPFAIL
4722
4723 034304 312 14 0 00 036034 CAME DP,RESSV+4
4724 034305 254 00 0 00 034307 JRST CMPFAIL
4725
4726 034306 350 00 0 17 000000 AOS (P) ;OK, SKIP RETURN
4727 034307 263 17 0 00 000000 CMPFAIL:RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 100
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0154
4728
4729 034310 261 17 0 00 000000 CMPPNT: PUT AC0
4730 034311 261 17 0 00 000001 PUT AC1
4731 034312 261 17 0 00 000002 PUT AC2
4732
4733 034313 260 17 0 00 035417 GO PNTINS ;PRINT THE CURRENT INSTRUCTION
4734
4735 034314 201 01 0 00 037047 MOVEI AC1,CMPCAS ;AC1 = CASE TABLE ADDRESS
4736 034315 260 17 0 00 035460 GO PNTCAS ;PRINT THE CURRENT CASE
4737
4738 034316 037 02 0 00 040261 PMSG <^SOURCE STRING: >
4739 034317 200 01 0 00 036023 MOVE AC1,ORIGSV ;COPY OF SOURCE STRING LENGTH
4740 034320 200 02 0 00 036024 MOVE AC2,ORIGSV+1 ;COPY OF SOURCE BYTE POINTER
4741 034321 260 17 0 00 035435 GO PNTSTR ;PRINT SOURCE STRING
4742
4743 034322 037 02 0 00 040264 PMSG <^DESTIN STRING: >
4744 034323 200 01 0 00 036026 MOVE AC1,ORIGSV+3 ;COPY OF DESTINATION STRING LENGTH
4745 034324 200 02 0 00 036027 MOVE AC2,ORIGSV+4 ;COPY OF DESTINATION BYTE POINTER
4746 034325 260 17 0 00 035435 GO PNTSTR ;PRINT DESTINATION STRING
4747
4748 034326 037 02 0 00 040267 PMSG <^E0+1: >
4749 034327 200 00 0 00 035626 MOVE E0+1
4750 034330 037 16 0 00 000003 PNTOCS ;PRINT E0+1
4751
4752 034331 037 02 0 00 040271 PMSG <^E0+2: >
4753 034332 200 00 0 00 035627 MOVE E0+2
4754 034333 037 16 0 00 000003 PNTOCS ;PRINT E0+2
4755 034334 037 00 0 00 030242 PCRL
4756
4757 034335 260 17 0 00 035376 GO PNTACB ;PRINT THE AC BLOCKS
4758
4759 034336 332 00 0 00 041215 SKIPE INCSKP ;DID INSTR RETURN OK?
4760 034337 260 17 0 00 035424 GO PNTSKP ;NO - PRINT AN ERROR MESSAGE
4761 034340 402 00 0 00 041215 SETZM INCSKP ;RESET INCORRECT RETURN FLAG
4762
4763 034341 262 17 0 00 000002 CMPRET: GET AC2
4764 034342 262 17 0 00 000001 GET AC1
4765 034343 262 17 0 00 000000 GET AC0
4766 034344 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 101
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0155
4767
4768 ; **********************************************************************
4769 ;*MOVCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
4770 ;* OF THE EXTEND MOVXX INSTRUCTIONS.
4771 ; **********************************************************************
4772
4773 034345 261 17 0 00 000000 MOVCOM: PUT AC0
4774
4775 034346 200 00 0 00 041233 MOVE AC0,SKPWD1 ;SEE IF INSTRUCTION RETURNED CORRECTLY
4776 034347 316 00 0 00 041234 CAMN AC0,SKPWD2
4777 034350 254 00 0 00 034353 JRST MOVC1 ;IT DID - GO CHECK THE ACS
4778
4779 034351 476 00 0 00 041215 SETOM INCSKP ;IT DIDN'T - SET THE INCORRECT SKIP FLAG
4780 034352 254 00 0 00 034372 JRST MOVFAIL
4781
4782 034353 312 10 0 00 036030 MOVC1: CAME SLEN,RESSV ;CHECK THE FINAL ACS WITH THE SIMULATED RESULT
4783 034354 254 00 0 00 034372 JRST MOVFAIL
4784
4785 034355 312 11 0 00 036031 CAME SP,RESSV+1
4786 034356 254 00 0 00 034372 JRST MOVFAIL
4787
4788 034357 312 12 0 00 036032 CAME AC12,RESSV+2
4789 034360 254 00 0 00 034372 JRST MOVFAIL
4790
4791 034361 312 13 0 00 036033 CAME DLEN,RESSV+3
4792 034362 254 00 0 00 034372 JRST MOVFAIL
4793
4794 034363 260 17 0 00 035363 GO COMSTR ;COMPARE SIMULATED AND ACTUAL STRINGS
4795 034364 254 00 0 00 034372 JRST MOVFAIL ;ERROR RETURN
4796
4797 034365 200 00 0 00 000014 MOVE AC0,DP
4798 034366 270 00 0 00 040273 ADD AC0,[SIMDES-DESTIN] ;OFFSET DP BY DIFF IN STRING LOCS
4799 034367 312 00 0 00 036034 CAME AC0,RESSV+4
4800 034370 254 00 0 00 034372 JRST MOVFAIL
4801
4802 034371 350 00 0 17 777777 AOS -1(P)
4803 034372 262 17 0 00 000000 MOVFAIL:GET AC0
4804 034373 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 102
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0156
4805
4806 034374 261 17 0 00 000000 MOVPNT: PUT AC0
4807 034375 261 17 0 00 000001 PUT AC1
4808 034376 261 17 0 00 000002 PUT AC2
4809
4810 034377 260 17 0 00 035417 GO PNTINS ;PRINT THE CURRENT INSTRUCTION
4811
4812 034400 201 01 0 00 037117 MOVEI AC1,MOVCAS ;AC1 = CASE TABLE ADDRESS
4813 034401 260 17 0 00 035460 GO PNTCAS ;PRINT THE CURRENT CASE #
4814
4815 034402 037 02 0 00 040274 PMSG <^SOURCE STRING:>
4816 034403 402 00 0 00 000001 SETZM AC1
4817 034404 135 01 0 00 040277 LDB AC1,[POINT 9,ORIGSV,35] ;COPY OF SOURCE STRING LENGTH
4818 034405 200 02 0 00 036024 MOVE AC2,ORIGSV+1 ;COPY OF SOURCE BYTE POINTER
4819 034406 260 17 0 00 035435 GO PNTSTR
4820
4821 034407 037 02 0 00 040300 PMSG <^CORRECT DESTINATION STRING:>
4822 034410 200 01 0 00 036026 MOVE AC1,ORIGSV+3 ;COPY OF DESTINATION STRING LENGTH
4823 034411 274 01 0 00 036033 SUB AC1,RESSV+3 ;CALCULATE HOW MUCH WAS MOVED
4824 034412 200 02 0 00 036027 MOVE AC2,ORIGSV+4 ;COPY OF DESTINATION STRING BYTE POINTER
4825 034413 541 02 0 00 036161 HRRI AC2,SIMDES ;MAKE LOCATION = SIMULATED DEST STRING
4826 034414 260 17 0 00 035435 GO PNTSTR
4827
4828 034415 037 02 0 00 040305 PMSG <^ACTUAL DESTINATION STRING:>
4829 034416 200 01 0 00 036026 MOVE AC1,ORIGSV+3 ;COPY OF DESTINATION STRING LENGTH
4830 034417 274 01 0 00 000013 SUB AC1,AC13 ;CALULATE HOW MUCH WAS MOVED
4831 034420 200 02 0 00 036027 MOVE AC2,ORIGSV+4 ;COPY OF DESTINATION STRING BYTE POINTER
4832 034421 260 17 0 00 035435 GO PNTSTR
4833
4834 034422 037 02 0 00 040267 PMSG <^E0+1: >
4835 034423 200 00 0 00 035626 MOVE E0+1
4836 034424 037 16 0 00 000003 PNTOCS ;PRINT E0+1
4837 034425 037 00 0 00 030242 PCRL
4838
4839 034426 200 00 0 00 040312 MOVE AC0,[DESTIN-SIMDES]
4840 034427 272 00 0 00 036034 ADDM AC0,RESSV+4
4841 034430 260 17 0 00 035376 GO PNTACB ;PRINT THE AC BLOCKS
4842
4843 034431 332 00 0 00 041236 SKIPE TRANFG
4844 034432 260 17 0 00 035501 GO PNTRAN ;IF MOVST PRINT TRANSLATION TABLE
4845
4846 034433 332 00 0 00 041215 SKIPE INCSKP ;INCORRECT RETURN TAKEN?
4847 034434 260 17 0 00 035424 GO PNTSKP ;YES - PRINT SKIP MESSAGE
4848 034435 402 00 0 00 041215 SETZM INCSKP ;RESET INCORRECT SKIP WORD
4849
4850 034436 262 17 0 00 000002 MOVRET: GET AC2
4851 034437 262 17 0 00 000001 GET AC1
4852 034440 262 17 0 00 000000 GET AC0
4853 034441 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 103
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0157
4854
4855 ; **********************************************************************
4856 ;*CDBCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
4857 ;* OF THE CVTDBX INSTRUCTIONS.
4858 ; **********************************************************************
4859
4860 034442 200 00 0 00 041233 CDBCOM: MOVE AC0,SKPWD1 ;SEE IF INSTRUCTION RETURNED CORRECTLY
4861 034443 316 00 0 00 041234 CAMN AC0,SKPWD2
4862 034444 254 00 0 00 034447 JRST CDBC1 ;IT DID - GO CHECK THE ACS
4863
4864 034445 476 00 0 00 041215 SETOM INCSKP ;IT DIDN'T - SET THE INCORRECT SKIP FLAG
4865 034446 254 00 0 00 034464 JRST CDBFAIL
4866
4867 034447 312 10 0 00 036030 CDBC1: CAME SLEN,RESSV ;CHECK THE FINAL ACS WITH THE SIMULATED RESULT
4868 034450 254 00 0 00 034464 JRST CDBFAIL ;NOT EQUAL - JUMP TO THE ERROR PRINTER
4869
4870 034451 312 11 0 00 036031 CAME SP,RESSV+1
4871 034452 254 00 0 00 034464 JRST CDBFAIL
4872
4873 034453 312 12 0 00 036032 CAME AC12,RESSV+2
4874 034454 254 00 0 00 034464 JRST CDBFAIL
4875
4876 034455 312 13 0 00 036033 CAME DBH,RESSV+3
4877 034456 254 00 0 00 034464 JRST CDBFAIL
4878
4879 034457 312 14 0 00 036034 CAME DBL,RESSV+4
4880 034460 254 00 0 00 034464 JRST CDBFAIL
4881
4882 034461 260 17 0 00 035363 GO COMSTR ;COMPARE DESTINATION STRINGS
4883 034462 254 00 0 00 034464 JRST CDBFAIL
4884
4885 034463 350 00 0 17 000000 AOS (P)
4886 034464 263 17 0 00 000000 CDBFAIL:RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 104
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0158
4887
4888 034465 261 17 0 00 000000 CDBPNT: PUT AC0
4889 034466 261 17 0 00 000001 PUT AC1
4890 034467 261 17 0 00 000002 PUT AC2
4891
4892 034470 201 01 0 00 037146 MOVEI AC1,CDBCAS ;AC1 = CASE TABLE ADDRESS
4893 034471 260 17 0 00 035460 GO PNTCAS ;GO PRINT THE CURRENT CASE #
4894
4895 034472 037 02 0 00 040261 PMSG <^SOURCE STRING: >
4896 034473 402 00 0 00 000001 SETZM AC1
4897 034474 135 01 0 00 040277 LDB AC1,[POINT 9,ORIGSV,35] ;COPY OF SOURCE STRING LENGTH
4898 034475 200 02 0 00 036024 MOVE AC2,ORIGSV+1 ;COPY OF SOURCE BYTE POINTER
4899 034476 260 17 0 00 035435 GO PNTSTR
4900
4901 034477 260 17 0 00 035376 GO PNTACB ;GO PRINT THE AC BLOCKS
4902
4903 034500 332 00 0 00 041236 SKIPE TRANFG ;IF CVTDBT THEN PRINT TRANSLATION TABLE
4904 034501 260 17 0 00 035501 GO PNTRAN
4905
4906 034502 332 00 0 00 041215 SKIPE INCSKP ;INCORRECT RETURN TAKEN?
4907 034503 260 17 0 00 035424 GO PNTSKP ;YES - PRINT SKIP MESSAGE
4908 034504 402 00 0 00 041215 SETZM INCSKP ;RESET THE SKIP WORD
4909
4910 034505 262 17 0 00 000002 CDBRT1: GET AC2
4911 034506 262 17 0 00 000001 GET AC1
4912 034507 262 17 0 00 000000 GET AC0
4913 034510 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 105
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0159
4914
4915 ; **********************************************************************
4916 ;*CBDCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
4917 ;* OF THE CVTBDX INSTRUCTIONS.
4918 ;
4919 ; IN A MACHINE WITH MICROCODE 202 OR EARLIER OR GREATER THAN 230,
4920 ; THE "N" AND "M" FLAGS ARE SET UP FIRST AND MAY THEREFORE BE
4921 ; AFFECTED BY AN INSTRUCTION THAT IS ABORTED BECAUSE THE BINARY
4922 ; INTERGER IS TOO LARGE.
4923 ; **********************************************************************
4924
4925 034511 261 17 0 00 000000 CBDCOM: PUT AC0
4926
4927 034512 200 00 0 00 041233 MOVE AC0,SKPWD1 ;SEE IF INSTRUCTION RETURNED CORRECTLY
4928 034513 316 00 0 00 041234 CAMN AC0,SKPWD2
4929 034514 254 00 0 00 034517 JRST CBDC1 ;IT DID - CONTINUE
4930
4931 034515 476 00 0 00 041215 SETOM INCSKP
4932 034516 254 00 0 00 034534 JRST CBDFAIL
4933
4934 034517 312 10 0 00 036030 CBDC1: CAME BDH,RESSV ;CHECK THE SIMULATED AC'S WITH
4935 034520 254 00 0 00 034534 JRST CBDFAIL ;THE FINAL RESULT
4936
4937 034521 312 11 0 00 036031 CAME BDL,RESSV+1
4938 034522 254 00 0 00 034534 JRST CBDFAIL
4939
4940 034523 312 12 0 00 036032 CAME AC12,RESSV+2
4941 034524 254 00 0 00 034534 JRST CBDFAIL
4942
4943 034525 312 13 0 00 036033 CAME DLEN,RESSV+3
4944 034526 254 00 0 00 034536 JRST CBDC2
4945
4946 034527 200 00 0 00 000014 CBDC3: MOVE AC0,DP
4947 034530 270 00 0 00 040273 ADD AC0,[SIMDES-DESTIN]
4948 034531 312 00 0 00 036034 CAME AC0,RESSV+4
4949 034532 254 00 0 00 034534 JRST CBDFAIL
4950
4951 034533 350 00 0 17 777777 AOS -1(P)
4952 034534 262 17 0 00 000000 CBDFAIL:GET AC0
4953 034535 263 17 0 00 000000 RTN
4954
4955 034536 336 00 0 00 030037 CBDC2: SKIPN USER ;EXEC MODE ?
4956 034537 254 00 0 00 034534 JRST CBDFAIL ;YES, A REAL ERROR THEN
4957
4958 034540 336 00 0 00 041223 SKIPN OVERR ;USER MODE, OVERFLOW CASE ?
4959 034541 254 00 0 00 034534 JRST CBDFAIL ;NO, A REAL ERROR
4960
4961 034542 200 00 0 00 041222 MOVE OVDLEN ;YES, CAN'T TELL ON UCODE
4962 034543 312 00 0 00 036033 CAME RESSV+3 ; SO USE EITHER DLEN
4963 034544 254 00 0 00 034534 JRST CBDFAIL ;DOES'T COMPARE TO EITHER
4964 034545 254 00 0 00 034527 JRST CBDC3 ;OK
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 106
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0160
4965
4966 034546 261 17 0 00 000000 CBDPNT: PUT AC0
4967 034547 261 17 0 00 000001 PUT AC1
4968 034550 261 17 0 00 000002 PUT AC2
4969
4970 034551 260 17 0 00 035417 GO PNTINS ;PRINT THE INSTRUCTION IN ERROR
4971
4972 034552 201 01 0 00 037207 MOVEI AC1,CBDCAS
4973 034553 260 17 0 00 035460 GO PNTCAS ;PRINT THE CASE IN ERROR
4974
4975 034554 260 17 0 00 035376 GO PNTACB ;GO PRINT THE AC BLOCKS
4976
4977 034555 037 02 0 00 040313 PMSG <^SIMULATED DESTINATION STRING:>
4978 034556 402 00 0 00 000001 SETZM AC1
4979 034557 135 01 0 00 040321 LDB AC1,[POINT 9,ORIGSV+3,35]
4980 034560 200 02 0 00 036027 MOVE AC2,ORIGSV+4 ;COPY OF SIMULATED DESTIN BYTE POINTER
4981 034561 541 02 0 00 036161 HRRI AC2,SIMDES
4982 034562 260 17 0 00 035435 GO PNTSTR
4983
4984 034563 037 02 0 00 040305 PMSG <^ACTUAL DESTINATION STRING:>
4985 034564 402 00 0 00 000001 SETZM AC1
4986 034565 135 01 0 00 040321 LDB AC1,[POINT 9,ORIGSV+3,35] ;COPY OF DESTIN STRING LENGTH
4987 034566 200 02 0 00 036027 MOVE AC2,ORIGSV+4 ;COPY OF DESTIN BYTE POINTER
4988 034567 260 17 0 00 035435 GO PNTSTR
4989
4990 034570 332 00 0 00 041215 SKIPE INCSKP ;INCORRECT SKIP TAKEN ?
4991 034571 260 17 0 00 035424 GO PNTSKP ;YES - PRINT SKIP MESSAGE
4992 034572 402 00 0 00 041215 SETZM INCSKP
4993
4994 034573 262 17 0 00 000002 CBDRT1: GET AC2
4995 034574 262 17 0 00 000001 GET AC1
4996 034575 262 17 0 00 000000 GET AC0
4997 034576 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 107
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0161
4998
4999 ; **********************************************************************
5000 ;*EDTCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
5001 ;* OF THE EDIT INSTRUCTION AND PRINTS ERROR INFORMATION.
5002 ;* THE BYTE TYPE UNDER TEST IS ACCESSED USING "BYTYPE" AS AN INDEX.
5003 ;* MAXIMUM STRING LENGTHS ARE USED FOR PRINTING STRINGS SINCE THE
5004 ;* EDIT INSTRUCTION HAS NO SPECIFICATION OF STRING LENGTHS.
5005 ; **********************************************************************
5006
5007 034577 261 17 0 00 000000 EDTCOM: PUT AC0
5008
5009 034600 200 00 0 00 041233 MOVE AC0,SKPWD1 ;SEE IF INSTRUCTION SKIPPED CORRECTLY
5010 034601 316 00 0 00 041234 CAMN AC0,SKPWD2
5011 034602 254 00 0 00 034605 JRST EDTC1 ;IT DID - CONTINUE
5012
5013 034603 476 00 0 00 041215 SETOM INCSKP
5014 034604 254 00 0 00 034625 JRST EDTFAIL
5015
5016 034605 312 10 0 00 036030 EDTC1: CAME PADDR,RESSV ;CHECK THE SIMULATED AC'S AGAINST THE
5017 034606 254 00 0 00 034625 JRST EDTFAIL ;THE ACTUAL AC'S
5018
5019 034607 312 11 0 00 036031 CAME SP,RESSV+1
5020 034610 254 00 0 00 034625 JRST EDTFAIL
5021
5022 034611 312 12 0 00 036032 CAME AC12,RESSV+2
5023 034612 254 00 0 00 034625 JRST EDTFAIL
5024
5025 034613 312 13 0 00 036033 CAME MA,RESSV+3
5026 034614 254 00 0 00 034625 JRST EDTFAIL
5027
5028 034615 260 17 0 00 035363 GO COMSTR ;COMPARE SIMULATED AND ACTUAL STRINGS
5029 034616 254 00 0 00 034625 JRST EDTFAIL ;ERROR RETURN
5030
5031 034617 200 00 0 00 000014 MOVE AC0,DP
5032 034620 336 00 0 00 041220 SKIPN OFFSET
5033 034621 270 00 0 00 040273 ADD AC0,[SIMDES-DESTIN]
5034
5035 034622 312 00 0 00 036034 CAME AC0,RESSV+4
5036 034623 254 00 0 00 034625 JRST EDTFAIL
5037
5038 034624 350 00 0 17 777777 AOS -1(P)
5039 034625 262 17 0 00 000000 EDTFAIL:GET AC0
5040 034626 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 108
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0162
5041
5042 034627 261 17 0 00 000000 EDTPNT: PUT AC0
5043 034630 261 17 0 00 000001 PUT AC1
5044 034631 261 17 0 00 000002 PUT AC2
5045
5046 034632 037 02 0 00 040322 PMSG <^PATTERN BYTE TYPE UNDER TEST: >
5047 034633 200 04 0 00 036333 MOVE AC4,BYTYPE ;GET BYTE TYPE TABLE INDEX
5048 034634 200 00 0 04 036275 MOVE AC0,BYTAB(AC4) ;SIXBIT BYTE NAME TO AC0
5049 034635 037 00 0 00 000002 PNTSIX ;PRINT IT
5050
5051 034636 201 01 0 00 037250 MOVEI AC1,EDTCAS
5052 034637 260 17 0 00 035460 GO PNTCAS ;PRINT THE CASE NUMBER
5053
5054 034640 332 00 0 00 041220 SKIPE OFFSET
5055 034641 254 00 0 00 034644 JRST EDTP1A
5056
5057 034642 200 00 0 00 040312 MOVE AC0,[DESTIN-SIMDES] ;GET DIFFERENCE IN STRING LOCATIONS
5058 034643 272 00 0 00 036034 ADDM AC0,RESSV+4
5059
5060 034644 260 17 0 00 035376 EDTP1A: GO PNTACB ;PRINT THE AC BLOCKS
5061
5062 034645 302 04 0 00 000011 CAIE AC4,^D9 ;IF SELECT IS BYTE TYPE 9 PRINT SRC STRING
5063 034646 254 00 0 00 034653 JRST EDTP1
5064
5065 034647 037 02 0 00 040274 PMSG <^SOURCE STRING:>
5066 034650 201 01 0 00 000024 MOVEI AC1,^D20 ;SOURCE STRING MAX LENGTH
5067 034651 200 02 0 00 036024 MOVE AC2,ORIGSV+1 ;COPY OF STRING BYTE POINTER
5068 034652 260 17 0 00 035435 GO PNTSTR
5069
5070 034653 332 00 0 00 041220 EDTP1: SKIPE OFFSET ;EXCHMD BYTE TYPE?
5071 034654 254 00 0 00 034666 JRST EDTP2 ;YES - DON'T PRINT DESTINATION STRINGS
5072
5073 034655 037 02 0 00 040300 PMSG <^CORRECT DESTINATION STRING:>
5074 034656 201 01 0 00 000100 MOVEI AC1,^D64 ;MAX DESTIN AND SIMDES STRING LENGTH
5075 034657 200 02 0 00 036027 MOVE AC2,ORIGSV+4
5076 034660 541 02 0 00 036161 HRRI AC2,SIMDES
5077 034661 260 17 0 00 035435 GO PNTSTR
5078
5079 034662 037 02 0 00 040305 PMSG <^ACTUAL DESTINATION STRING:>
5080 034663 201 01 0 00 000100 MOVEI AC1,^D64
5081 034664 200 02 0 00 036027 MOVE AC2,ORIGSV+4
5082 034665 260 17 0 00 035435 GO PNTSTR
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 109
DFKCCM MAC 8-Jan-87 15:04 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0163
5083
5084 034666 302 04 0 00 000011 EDTP2: CAIE AC4,^D9 ;PRINT E0+1 IF BYTE TYPE IS SELECT
5085 034667 254 00 0 00 034673 JRST EDTP2A
5086
5087 034670 037 02 0 00 040330 PMSG <^E0+1:>
5088 034671 200 00 0 00 035626 MOVE AC0,E0+1
5089 034672 037 16 0 00 000003 PNTOCS
5090
5091 034673 302 04 0 00 000002 EDTP2A: CAIE AC4,2 ;PRINT E0+2 IF SIGST OR SELECT
5092 034674 306 04 0 00 000011 CAIN AC4,^D9
5093 034675 334 00 0 00 000000 SKIPA
5094 034676 254 00 0 00 034702 JRST EDTP4
5095
5096 034677 037 02 0 00 040332 PMSG <^E0+2:>
5097 034700 200 00 0 00 035627 MOVE AC0,E0+2 ;GET THE FLOAT CHARACTER
5098 034701 037 16 0 00 000003 PNTOCS
5099
5100 034702 306 04 0 00 000011 EDTP4: CAIN AC4,^D9 ;PRINT TRANSLATION TABLE IF BYTE TYPE IS SELECT
5101 034703 260 17 0 00 035501 GO PNTRAN
5102
5103 034704 332 00 0 00 041215 SKIPE INCSKP ;INCORRECT RETURN TAKEN?
5104 034705 260 17 0 00 035424 GO PNTSKP ;YES - PRINT THE INCORRECT SKIP MSG.
5105 034706 402 00 0 00 041215 SETZM INCSKP ;RESET THE INCORRECT SKIP WORD
5106
5107 034707 262 17 0 00 000002 EDTRT1: GET AC2
5108 034710 262 17 0 00 000001 GET AC1
5109 034711 262 17 0 00 000000 GET AC0
5110 034712 263 17 0 00 000000 RTN
5111
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 110
DFKCCM MAC 8-Jan-87 15:04 MUUO AND PAGE FAIL HANDLERS SEQ 0164
5112 SUBTTL MUUO AND PAGE FAIL HANDLERS
5113
5114 ; **********************************************************************
5115 ;*MUUOHS - MUUO HANDLER INITIALIZATION
5116 ;* CODE TO SETUP MUUO HANDLER IN EXEC MODE
5117 ; **********************************************************************
5118
5119 034713 332 00 0 00 030037 MUUOHS: SKIPE USER ;USER MODE?
5120 034714 254 00 0 00 034722 JRST TSMUUO ;YES - SETUP FOR TIMESHARE TRAPPING
5121
5122 034715 201 00 0 00 034737 MOVEI MUUOH ;GET ADDRESS OF MUUO HANDLER
5123 034716 202 00 0 00 000430 MOVEM 430 ;SETUP ADDRESS IN USER PROCESS TABLE
5124
5125 034717 200 00 0 00 040334 MOVE [430,431] ;SETUP UPT WORDS 430-437
5126 034720 251 00 0 00 000437 BLT 437
5127 034721 263 17 0 00 000000 RTN
5128
5129 ; **************************************************
5130 ;CODE TO SETUP MUUO HANDLER FOR TOPS-20
5131 ; **************************************************
5132
5133 034722 336 00 0 00 030516 TSMUUO: SKIPN MONTYP ;RUNNING UNDER TOPS-20?
5134 034723 254 00 0 00 034734 JRST MUUO10 ;NO - EXECUTE TOPS-10 CODE
5135
5136 034724 104 00 0 00 000147 RESET ;CLEAR THE SOFTWARE INTERRUPT SYSTEM
5137
5138 034725 201 01 0 00 400000 MOVEI AC1,.FHSLF ;PROCESS HANDLE FOR THIS JOB
5139 034726 200 02 0 00 040335 MOVE AC2,[LEVTAB,,CHNTAB] ;SETUP SOFTWARE INTERRUPT TABLES
5140 034727 104 00 0 00 000125 SIR
5141
5142 034730 205 02 0 00 000004 MOVSI 2,(1B^D15) ;SET UP TO INTERCEPT ILLEGAL INSTR
5143 034731 104 00 0 00 000131 AIC ;TO INTERRUPT ILLEGAL INSTRUCTIONS
5144
5145 034732 104 00 0 00 000126 EIR ;ENABLE THE INTERRUPT SYSTEM
5146 034733 263 17 0 00 000000 RTN
5147
5148 ; **************************************************
5149 ;CODE TO SETUP MUUO HANDLER FOR TOPS-10
5150 ; **************************************************
5151
5152 034734 201 01 0 00 035577 MUUO10: MOVEI AC1,UUOBLK ;SET .JBINT TO ADDRESS OF CONTROL BLOCK
5153 034735 202 01 0 00 000134 MOVEM AC1,.JBINT
5154 034736 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 111
DFKCCM MAC 8-Jan-87 15:04 MUUO AND PAGE FAIL HANDLERS SEQ 0165
5155
5156 ; **********************************************************************
5157 ;*MUUOH - THE ACTUAL MUUO HANDLERS (EXEC AND USER MODE)
5158 ; **********************************************************************
5159
5160 034737 261 17 0 00 000000 MUUOH: PUT AC0 ;SAVE AC0
5161
5162 034740 352 00 0 00 041214 AOSE GOTRAP ;WAS A TRAP EXPECTED?
5163 034741 254 00 0 00 034760 JRST MUUOHX ;NO, FATAL ERROR
5164
5165 034742 332 00 0 00 030037 SKIPE USER ;USER MODE?
5166 034743 254 00 0 00 034746 JRST MUUOHU ;YES - GO TO USER CODE
5167
5168 034744 262 17 0 00 000000 GET AC0 ;RESTORE AC0
5169 034745 254 02 1 00 000425 JRSTF @425 ;JUMP USING UPT PC ADDRESS
5170
5171 034746 336 00 0 00 030516 MUUOHU: SKIPN MONTYP ;TOPS-20 MONITOR?
5172 034747 254 00 0 00 034753 JRST MUUOH1 ;NO - EXECUTE TOPS-10 CODE
5173
5174 034750 350 00 0 00 035624 AOS MUOPC ;SETUP INTERRUPT RETURN
5175 034751 262 17 0 00 000000 GET AC0 ;RESTORE AC0
5176 034752 104 00 0 00 000136 DEBRK ;EXECUTE THE DISMISS INTERRUPT JSYS
5177
5178 034753 350 00 0 00 035601 MUUOH1: AOS UUOBLK+2 ;UUOBLK+2 HAS LAST USER PS
5179 034754 262 17 0 00 000000 GET AC0 ;RESTORE AC0
5180
5181 034755 261 17 0 00 035601 PUT UUOBLK+2 ;SETUP RETURN JUMP
5182 034756 402 00 0 00 035601 SETZM UUOBLK+2 ;THIS MUST BE 0 TO WORK AGAIN
5183 034757 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 112
DFKCCM MAC 8-Jan-87 15:04 MUUO AND PAGE FAIL HANDLERS SEQ 0166
5184
5185 ; **************************************************
5186 ;*MUUOHX - UNEXPECTED MUUO ERROR REPORTING
5187 ; **************************************************
5188 SALL
5189 040336 T= SIXBTZ <MUUO OPERATION>
5190 LALL
5191 034760 332 00 0 00 030037 MUUOHX: SKIPE USER
5192 034761 254 00 0 00 034766 JRST MUUOHY
5193
5194 034762 200 01 0 00 000424 MOVE AC1,424 ;GET BAD MUUO
5195 034763 200 02 0 00 000425 MOVE AC2,425 ;GET BAD MMUO PC
5196
5197 ERROR1 (13,AC1,AC2,^_
5198 ^CORRECT=MUUO^_
5199 ^ACTUAL=MUUO PC,^_
5200 UNEXPECTED MUUO OCCURED)^
5201 SALL
5202 034764 036 13 0 00 040352
5203 034765 037 15 0 00 000004 FATAL
5204
5205 034766 200 01 0 00 035624 MUUOHY: MOVE AC1,MUOPC ;GET PC OF BAD MUUO
5206 034767 336 00 0 00 030516 SKIPN MONTYP
5207 034770 200 01 0 00 035577 MOVE AC1,UUOBLK
5208
5209 ERROR1 (13,AC1,0,^_
5210 ^CORRECT=MUUO PC,^_
5211 UNEXPECTED MUUO OCCURED)^
5212 034771 036 13 0 00 040360
5213 034772 037 15 0 00 000004 FATAL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 113
DFKCCM MAC 8-Jan-87 15:04 MUUO AND PAGE FAIL HANDLERS SEQ 0167
5214
5215 ; **********************************************************************
5216 ;*LUUOH - LUUO HANDLER
5217 ; **********************************************************************
5218
5219 034773 261 17 0 00 000000 LUUOH: PUT AC0 ;SAVE AC0
5220
5221 034774 352 00 0 00 041214 AOSE GOTRAP ;WAS AN LUUO EXPECTED?
5222 034775 254 00 0 00 035000 JRST LUUOHX ;NO, FATAL ERROR
5223
5224 034776 262 17 0 00 000000 GET AC0 ;RESTORE AC0
5225 034777 263 17 0 00 000000 RTN
5226
5227 ; **************************************************
5228 ;*LUUOHX - UNEXPECTED LUUO ERROR REPORTING
5229 ; **************************************************
5230 SALL
5231 040363 T= SIXBTZ <LUUO OPERATION>
5232 LALL
5233 035000 200 00 0 00 041235 LUUOHX: MOVE SVLUUO ;RESTORE SUBROU. PKG. TRAP ROUTINE SETUP
5234 035001 202 00 0 00 000041 MOVEM 41
5235
5236 035002 200 01 0 00 000040 MOVE AC1,40 ;GET BAD LUUO
5237 035003 200 02 0 17 777777 MOVE AC2,-1(P) ;GET BAD LUUO PC
5238
5239 ERROR1 (13,AC1,AC2,^_
5240 ^CORRECT=LUUO^_
5241 ^ACTUAL=LUUO PC,^_
5242 UNEXPECTED LUUO OCCURED)^
5243 SALL
5244 035004 036 13 0 00 040377
5245 035005 037 15 0 00 000004 FATAL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 114
DFKCCM MAC 8-Jan-87 15:04 MUUO AND PAGE FAIL HANDLERS SEQ 0168
5246
5247 ; **********************************************************************
5248 ;*PFHAND -- PAGE FAIL HANDLER
5249 ;*
5250 ;* IN THIS ROUTINE THE CURRENT VALUE OF THE EXTEND INSTR AC BLOCK
5251 ;* IS COMPARED WITH THE CORRECT RESULT WHICH IS STORED IN MEMORY.
5252 ;*
5253 ;* ALSO, THE PAGE FAIL WORD AND PAGE FAIL PC ARE COMPARED AGAINST
5254 ;* THE CORRECT VALUES. IF A DISCREPANCY EXISTS THE ROUTINE TAKES
5255 ;* AN ERROR RETURN THROUGH "PFHEPC" BACK TO THE MAIN TEST.
5256 ;*
5257 ;* ON ENTRY, AC4 CONTAINS THE ADDRESS OF THE CORRECT AC BLOCK STORED
5258 ;* IN MEMORY, INSTR CONTAINS THE INDEX TO THE SIXBIT INSTRUCTION
5259 ;* NAME TABLE.
5260 ; **********************************************************************
5261
5262 035006 352 00 0 00 041227 PFHAND: AOSE PFTRAP ;INDICATE THAT PF OCCURED
5263 035007 254 00 0 00 035041 JRST PFFAIL ;THIS IS SECOND PAGE FAILURE
5264
5265 035010 550 07 0 00 000501 HRRZ AC7,LPFWPC ;ACTUAL PAGE FAIL PC
5266 035011 200 06 0 00 041212 MOVE AC6,FAILOC ;CORRECT PF PC WORD
5267 035012 312 06 0 00 000007 CAME AC6,AC7 ;CORRECT?
5268 035013 254 00 0 00 035041 JRST PFFAIL ;NO
5269
5270 035014 200 07 0 04 000000 MOVE AC7,(AC4) ;GET THE CORRECT AC CONTENTS
5271 035015 332 00 0 00 041236 SKIPE TRANFG ;TRANSLATE INSTR?
5272 035016 434 07 0 00 035775 OR AC7,BIT0 ;YES - CORRECT RESULT HAS SFL SET
5273
5274 035017 312 07 0 00 000010 CAME AC7,AC10 ;CORRECT?
5275 035020 254 00 0 00 035041 JRST PFFAIL ;NO
5276
5277 035021 200 07 0 04 000001 MOVE AC7,1(AC4) ;GET THE CORRECT AC CONTENTS
5278 035022 312 07 0 00 000011 CAME AC7,AC11 ;CORRECT?
5279 035023 254 00 0 00 035041 JRST PFFAIL ;NO
5280
5281 035024 200 07 0 04 000002 MOVE AC7,2(AC4) ;GET THE CORRECT AC+2 CONTENTS
5282 035025 312 07 0 00 000012 CAME AC7,AC12 ;CORRECT?
5283 035026 254 00 0 00 035041 JRST PFFAIL ;NO
5284
5285 035027 200 07 0 04 000003 MOVE AC7,3(AC4) ;GET THE CORRECT AC CONTENTS
5286 035030 312 07 0 00 000013 CAME AC7,AC13 ;CORRECT?
5287 035031 254 00 0 00 035041 JRST PFFAIL ;NO
5288
5289 035032 200 07 0 04 000004 MOVE AC7,4(AC4) ;GET THE CORRECT AC CONTENTS
5290 035033 312 07 0 00 000014 CAME AC7,AC14 ;CORRECT?
5291 035034 254 00 0 00 035041 JRST PFFAIL ;NO
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 115
DFKCCM MAC 8-Jan-87 15:04 MUUO AND PAGE FAIL HANDLERS SEQ 0169
5292
5293 ; **************************************************
5294 ;SET UP THE PAGE TABLE FOR CONTINUE
5295 ; **************************************************
5296
5297 035035 200 00 0 00 040402 MOVE AC0,[740000!75,,740000!76]
5298 035036 202 00 0 00 000200 MOVEM AC0,200 ;SETUP PAGE MAP
5299
5300 ;D02 CONO PAG,LTRPEN ;CAUSE NEW PAGING TO HAVE AN EFFECT
5301 035037 260 17 0 00 035247 GO CHNGPE ;A02 ENABLE PAGING PRESERVING CACHE
5302
5303 035040 254 02 1 00 000501 JRSTF @LPFWPC ;RETURN
5304
5305 ; **************************************************
5306 ;TAKE AN ERROR RETURN THROUGH "PFHEPC" BACK TO THE MAIN TEST.
5307 ; **************************************************
5308
5309 035041 254 00 1 00 041226 PFFAIL: JRST @PFHEPC#
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 116
DFKCCM MAC 8-Jan-87 15:04 MUUO AND PAGE FAIL HANDLERS SEQ 0170
5310
5311 ; **********************************************************************
5312 ;*PFPNT -- PAGE FAIL ERROR PRINTER
5313 ;*
5314 ;* ON ENTRY, AC4 CONTAINS THE ADDRESS OF THE CORRECT AC BLOCK STORED
5315 ;* IN MEMORY, INSTR CONTAINS THE INDEX TO THE SIXBIT INSTRUCTION
5316 ;* NAME TABLE.
5317 ; **********************************************************************
5318 SALL
5319 040403 T= SIXBTZ <PAGE FAIL>
5320 LALL
5321 035042 550 07 0 00 000501 PFPNT: HRRZ AC7,LPFWPC ;ACTUAL PAGE FAIL PC
5322 035043 200 06 0 00 041212 MOVE AC6,FAILOC ;CORRECT PF PC WORD
5323 035044 312 06 0 00 000007 CAME AC6,AC7 ;CORRECT?
5324 ERROR1 (13,6,7,PAGE FAIL PC WRONG,,PFINS)^
5325 SALL
5326 035045 036 13 0 00 040411
5327
5328 035046 200 07 0 04 000000 MOVE AC7,(AC4) ;GET THE CORRECT AC CONTENTS
5329 035047 332 00 0 00 041236 SKIPE TRANFG ;TRANSLATE INSTR?
5330 035050 434 07 0 00 035775 OR AC7,BIT0 ;YES - CORRECT RESULT HAS SFL SET
5331
5332 035051 312 07 0 00 000010 CAME AC7,AC10 ;CORRECT?
5333 ERROR1 (13,7,10,INTERMEDIATE AC INCORRECT,,PFINS)^
5334 035052 036 13 0 00 040421
5335
5336 035053 200 07 0 04 000001 MOVE AC7,1(AC4) ;GET THE CORRECT AC+1 CONTENTS
5337 035054 312 07 0 00 000011 CAME AC7,AC11 ;CORRECT?
5338 ERROR1 (13,7,11,INTERMEDIATE AC+1 INCORRECT,,PFINS)^
5339 035055 036 13 0 00 040431
5340
5341 035056 200 07 0 04 000002 MOVE AC7,2(AC4) ;GET THE CORRECT AC+2 CONTENTS
5342 035057 312 07 0 00 000012 CAME AC7,AC12 ;CORRECT?
5343 ERROR1 (13,7,12,INTERMEDIATE AC+2 INCORRECT,,PFINS)^
5344 035060 036 13 0 00 040441
5345
5346 035061 200 07 0 04 000003 MOVE AC7,3(AC4) ;GET THE CORRECT AC+3 CONTENTS
5347 035062 312 07 0 00 000013 CAME AC7,AC13 ;CORRECT?
5348 ERROR1 (13,7,13,INTERMEDIATE AC+3 INCORRECT,,PFINS)^
5349 035063 036 13 0 00 040451
5350
5351 035064 200 07 0 04 000004 MOVE AC7,4(AC4) ;GET THE CORRECT AC+4 CONTENTS
5352 035065 312 07 0 00 000014 CAME AC7,AC14 ;CORRECT?
5353 ERROR1 (13,7,14,INTERMEDIATE AC+4 INCORRECT,,PFINS)^
5354 035066 036 13 0 00 040461
5355
5356 035067 263 17 0 00 000000 RTN
5357 XALL
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 117
DFKCCM MAC 8-Jan-87 15:04 PROGRAM SUPPORT ROUTINES SEQ 0171
5358 SUBTTL PROGRAM SUPPORT ROUTINES
5359
5360 ; **********************************************************************
5361 ;*EDTSET -- ROUTINE TO SET UP THE AC BLOCK FOR THE EDIT INSTRUCTION
5362 ;* ACCORDING TO THE PARAMETERS CONTAINED IN THE CASE TABLE.
5363 ;*
5364 ;* UPON ENTRY, THE RIGHT HALF OF AC7 CONTAINS THE ADDRESS OF THE
5365 ;* CASE TABLE PARAMETER WORD.
5366 ;*
5367 ;* RETURN IS ALWAYS +1.
5368 ; **********************************************************************
5369
5370 035070 200 01 0 07 000000 EDTSET: MOVE AC1,(AC7) ;RETRIEVE THE CASE PARAMETER WORD
5371
5372 ; **************************************************
5373 ;DETERMINE THE INITIAL VALUES FOR THE S,N AND M FLAG
5374 ; **************************************************
5375
5376 035071 402 00 0 00 000010 SETZM PADDR
5377 035072 602 01 0 00 400000 TRNE AC1,(SFL) ;SET THE S FLAG?
5378 035073 434 10 0 00 035775 OR PADDR,BIT0 ;YES
5379
5380 035074 602 01 0 00 040000 TRNE AC1,(NFL) ;SET THE N FLAG?
5381 035075 434 10 0 00 035776 OR PADDR,BIT1 ;YES
5382
5383 035076 602 01 0 00 100000 TRNE AC1,(MFL) ;SET THE M FLAG?
5384 035077 434 10 0 00 035777 OR PADDR,BIT2 ;YES
5385
5386 ; **************************************************
5387 ;SET UP THE PATTERN BYTE #
5388 ; **************************************************
5389
5390 035100 200 04 0 00 000001 MOVE AC4,AC1 ;MAKE COPY OF CASE WORD
5391 035101 405 04 0 00 000003 ANDI AC4,PB ;ISOLATE THE PB#
5392 035102 242 04 0 00 000000 LSH AC4,PBSH ;SHIFT INTO RIGHT-MOST PART OF AC
5393 035103 137 04 0 00 036514 DPB AC4,PATBN ;LOAD PB# INTO PADDR
5394 035104 541 10 0 00 036307 HRRI PADDR,PATTBL ;LOAD BYTE PATTERN TABLE ADDRESS
5395
5396 ; **************************************************
5397 ;SETUP THE SOURCE AND DESTINATION BYTE POINTERS
5398 ; **************************************************
5399
5400 035105 603 01 0 00 000100 TLNE AC1,(S44) ;FULL WORD SOURCE BYTES?
5401 035106 200 11 0 00 037544 MOVE SP,[POINT 36,SOURCE]
5402
5403 035107 607 01 0 00 000100 TLNN AC1,(S44)
5404 035110 200 11 0 00 037543 MOVE SP,[POINT 5,SOURCE] ;SETUP SOURCE POINTER
5405
5406 035111 603 01 0 00 000040 TLNE AC1,(D44) ;FULL WORD DESTIN BYTE SIZE?
5407 035112 200 14 0 00 037546 MOVE DP,[POINT 36,DESTIN]
5408
5409 035113 607 01 0 00 000040 TLNN AC1,(D44)
5410 035114 200 14 0 00 037545 MOVE DP,[POINT 5,DESTIN] ;SETUP DESTINATION POINTER
5411
5412 035115 402 00 0 00 000013 SETZM MA ;SET MARK ADDRESS TO 0
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 118
DFKCCM MAC 8-Jan-87 15:04 PROGRAM SUPPORT ROUTINES SEQ 0172
5413
5414 ; **************************************************
5415 ;SETUP THE E0+1 AND E0+2 (FILL AND FLOAT CHARACTERS) AS FOLLOWS:
5416 ; IF EQFILL=1 THEN E0+1= 62, E0+2= 63
5417 ; IF LFILL =1 THEN E0+1= 0, E0+2= 63
5418 ; IF GFILL =1 THEN E0+1= 62, E0+2= 0
5419 ; IF NONE OF THE ABOVE ARE SPECIFIED BOTH WORDS WILL BE SET TO 0
5420 ; **************************************************
5421
5422 035116 607 01 0 00 001000 TLNN AC1,(EQFIL)
5423 035117 254 00 0 00 035125 JRST EDS2
5424
5425 035120 201 00 0 00 000062 MOVEI AC0,62
5426 035121 202 00 0 00 035626 MOVEM AC0,E0+1
5427
5428 035122 201 00 0 00 000063 MOVEI AC0,63
5429 035123 202 00 0 00 035627 MOVEM AC0,E0+2
5430
5431 035124 254 00 0 00 035176 JRST EDSRTN
5432
5433 035125 607 01 0 00 000400 EDS2: TLNN AC1,(LFILL)
5434 035126 254 00 0 00 035134 JRST EDS3
5435
5436 035127 201 00 0 00 000000 MOVEI AC0,0
5437 035130 202 00 0 00 035626 MOVEM AC0,E0+1
5438
5439 035131 201 00 0 00 000063 MOVEI AC0,63
5440 035132 202 00 0 00 035627 MOVEM AC0,E0+2
5441
5442 035133 254 00 0 00 035176 JRST EDSRTN
5443
5444 035134 607 01 0 00 000200 EDS3: TLNN AC1,(GFILL)
5445 035135 254 00 0 00 035143 JRST EDS4
5446
5447 035136 201 00 0 00 000062 MOVEI AC0,62
5448 035137 202 00 0 00 035626 MOVEM AC0,E0+1
5449
5450 035140 201 00 0 00 000000 MOVEI AC0,0
5451 035141 202 00 0 00 035627 MOVEM AC0,E0+2
5452
5453 035142 254 00 0 00 035176 JRST EDSRTN
5454
5455 035143 402 00 0 00 035626 EDS4: SETZM E0+1
5456 035144 402 00 0 00 035627 SETZM E0+2
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 119
DFKCCM MAC 8-Jan-87 15:04 PROGRAM SUPPORT ROUTINES SEQ 0173
5457
5458 ; **************************************************
5459 ;SETUP SOURCE STRING AND TRANSLATE TABLE IF BYTE TYPE IS SELECT
5460 ; **************************************************
5461
5462 035145 200 00 0 00 036333 MOVE AC0,BYTYPE ;CURRENT BYTE TYPE
5463 035146 302 00 0 00 000011 CAIE AC0,^D9 ;IS IT SELECT?
5464 035147 254 00 0 00 035176 JRST EDSRTN ;NO
5465
5466 035150 200 04 0 00 000011 MOVE AC4,SP ;COPY OF SOURCE BYTE POINTER
5467 035151 201 05 0 00 777754 MOVEI AC5,-^D20 ;SETUP 20 BYTES
5468 035152 201 00 0 00 000001 MOVEI AC0,1 ;PATTERN STARTS WITH 1 AND INCREMENTS
5469
5470 035153 377 00 0 00 000005 EDS5: SOSG AC5
5471 035154 254 00 0 00 035160 JRST EDS6
5472
5473 035155 136 00 0 00 000004 IDPB AC0,AC4 ;PUT BYTE IN THE STRING
5474 035156 271 00 0 00 000001 ADDI AC0,1 ;INCREMENT THE PATTERN
5475 035157 254 00 0 00 035153 JRST EDS5
5476
5477 ; **************************************************
5478 ;SET THE CODE BITS IN THE TRANSLATION TABLE
5479 ; **************************************************
5480
5481 035160 402 00 0 00 000000 EDS6: SETZM AC0 ;TEMP LOC FOR CONTROL BITS
5482 035161 602 01 0 00 020000 TRNE AC1,(C1) ;SETUP THE SECOND HALFWORD
5483 035162 434 00 0 00 036000 OR BIT18
5484
5485 035163 602 01 0 00 010000 TRNE AC1,(C2)
5486 035164 434 00 0 00 036001 OR BIT19
5487
5488 035165 602 01 0 00 004000 TRNE AC1,(C3)
5489 035166 434 00 0 00 036002 OR BIT20
5490
5491 035167 602 01 0 00 002000 TRNE AC1,(C4) ;SETUP THE THIRD HALFWORD
5492 035170 434 00 0 00 035775 OR BIT0
5493
5494 035171 602 01 0 00 001000 TRNE AC1,(C5)
5495 035172 434 00 0 00 035776 OR BIT1
5496
5497 035173 602 01 0 00 000400 TRNE AC1,(C6)
5498 035174 434 00 0 00 035777 OR BIT2
5499
5500 035175 260 17 0 00 031436 GO SETRAN ;YES - SET UP THE TRANSLATION TABLE
5501
5502 035176 200 00 0 00 040464 EDSRTN: MOVE AC0,[004000,,E1] ;SETUP E0 WORD
5503 035177 202 00 0 00 035625 MOVEM AC0,E0
5504 035200 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 120
DFKCCM MAC 8-Jan-87 15:04 PROGRAM SUPPORT ROUTINES SEQ 0174
5505
5506 ; **********************************************************************
5507 ;*PFINS -- ROUTINE TO PRINT INSTRUCTION NAME
5508 ;* ENTRY WITH SCRIPT TABLE INDEX IN INSTR
5509 ; **********************************************************************
5510
5511 035201 261 17 0 00 000000 PFINS: PUT AC0
5512 035202 261 17 0 00 000001 PUT AC1
5513
5514 035203 200 01 0 00 041216 MOVE AC1,INSTR ;GET OPCODE INDEX TO TABLE
5515 PMSG <^INSTRUCTION: >^
5516 035204 037 02 0 00 040465 PSIXM [SIXBIT\^INSTRUCTION: _\]^
5517 035205 200 00 0 01 036003 MOVE AC0,SCRIPT(AC1) ;GET SIXBIT NAME
5518 035206 037 00 0 00 000002 PNTSIX ;PRINT IT
5519
5520 035207 037 00 0 00 030242 PCRL
5521 035210 262 17 0 00 000001 GET AC1
5522 035211 262 17 0 00 000000 GET AC0
5523 035212 263 17 0 00 000000 RTN
5524
5525 ; **********************************************************************
5526 ;*CDBTN -- USED IN CVTDBT PF TEST
5527 ; **********************************************************************
5528
5529 035213 402 00 0 00 035711 CDBTN: SETZM E1
5530 035214 263 17 0 00 000000 RTN
5531
5532 ; **********************************************************************
5533 ;*CBDTRN -- ROUTINE TO SET UP THE TRANSLATE TABLE FOR THE CVTBDX INSTR
5534 ; **********************************************************************
5535
5536 035215 200 00 0 00 040470 CBDTRN: MOVE AC0,[CBDTR,,E1]
5537 035216 251 00 0 00 035722 BLT AC0,E1+^D9
5538 035217 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 121
DFKCCM MAC 8-Jan-87 15:04 PROGRAM SUPPORT ROUTINES SEQ 0175
5539
5540 ; **********************************************************************
5541 ;*COMAC -- ROUTINE USED IN PAGE FAIL TESTING TO COMPARE THE
5542 ;* FINAL AC BLOCK WITH THAT OF THE SIMULATOR
5543 ; **********************************************************************
5544
5545 035220 312 10 0 00 036030 COMAC: CAME AC,RESSV ;COMPARE THE AC BLOCK,PRINT ON ERROR
5546 035221 254 00 0 00 035233 JRST COMFAIL
5547
5548 035222 312 11 0 00 036031 CAME AC+1,RESSV+1
5549 035223 254 00 0 00 035233 JRST COMFAIL
5550
5551 035224 312 12 0 00 036032 CAME AC+2,RESSV+2
5552 035225 254 00 0 00 035233 JRST COMFAIL
5553
5554 035226 312 13 0 00 036033 CAME AC+3,RESSV+3
5555 035227 254 00 0 00 035233 JRST COMFAIL
5556
5557 035230 312 14 0 00 036034 CAME AC+4,RESSV+4
5558 035231 254 00 0 00 035233 JRST COMFAIL
5559
5560 035232 350 00 0 17 000000 AOS (P)
5561 035233 263 17 0 00 000000 COMFAIL:RTN
5562
5563 035234 260 17 0 00 035201 COMPNT: GO PFINS ;PRINT THE INSTRUCTION IN ERROR
5564
5565 035235 260 17 0 00 035376 GO PNTACB ;PRINT THE AC BLOCKS
5566
5567 035236 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 122
DFKCCM MAC 8-Jan-87 15:04 PROGRAM SUPPORT ROUTINES SEQ 0176
5568
5569 ; **********************************************************************
5570 ;*CHKTRN -- ROUTINE TO CHECK THE OPCODE UNDER TEST AND SET TRANSFG
5571 ;* IF IT IS A TRANSLATE INSTRUCTION.
5572 ;*
5573 ;* TAKE OPCODE IN AC0, RTN +1 ALWAYS
5574 ; **********************************************************************
5575
5576 035237 402 00 0 00 041236 CHKTRN: SETZM TRANFG
5577
5578 035240 306 00 0 00 000015 CAIN AC0,015 ;MOVST INSTRUCTION?
5579 035241 254 00 0 00 035245 JRST SETFG ;YES - SET TRANFG
5580
5581 035242 306 00 0 00 000011 CAIN AC0,011 ;CVTDBT INSTRUCTION?
5582 035243 254 00 0 00 035245 JRST SETFG
5583
5584 035244 306 00 0 00 000013 CAIN AC0,013 ;CVTBDT INSTRUCTION?
5585 035245 476 00 0 00 041236 SETFG: SETOM TRANFG ;SET THE FLAG
5586 035246 263 17 0 00 000000 RTN
5587
5588 ; **********************************************************************
5589 ;*PAGSET -- ROUTINE TO CLEAR PAGE TABLE,
5590 ;* SET UP RELOCATION DATA IN THE TABLE,
5591 ;* SET PAGING AND TRAP ENABLE,
5592 ;* AND LOAD THE USER BASE REGISTER
5593 ; **********************************************************************
5594
5595 ;A02 fix for MCA20 with 1 quad enabled
5596 760000 KLPMSK==760000 ;PRESERVE CURRENT STATE OF CACHE
5597 020000 PAGBIT==20000 ;PAGE ENABLE BIT
5598
5599 035247 202 00 0 00 041232 CHNGPE: MOVEM AC0,SAVZ# ;TAKE NO CHANCES, SAVE AC
5600 035250 7 010 24 0 00 000000 CONI PAG,AC0 ;READ CURRENT STATE OF CACHE
5601 035251 405 00 0 00 760000 ANDI AC0,KLPMSK ;TO BUILD NEW CONO
5602 035252 435 00 0 00 020000 IORI AC0,PAGBIT ;SET PAGE ENABLE
5603 035253 500 00 0 00 040471 HLL AC0,[CONO PAG,LTRPEN] ;OP CODE PORTION ONLY
5604 035254 256 00 0 00 000000 XCT AC0 ;NOW DO IT
5605 035255 200 00 0 00 041232 MOVE AC0,SAVZ ;THIS PROBABLY ISN'T NECESSARY
5606 035256 263 17 0 00 000000 RTN ;GO BACK WHERE YOU CAME FROM
5607
5608 ;END A02 PATCH
5609
5610 035257 402 00 0 00 000200 PAGSET: SETZM 200 ;CLEAR THE PAGE TABLE
5611 035260 200 00 0 00 040472 MOVE AC0,[200,,201]
5612 035261 251 00 0 00 000417 BLT AC0,417
5613
5614 035262 205 00 0 00 740075 MOVSI AC0,740000!75 ;SET UP THE RELOCATION DATA
5615 035263 202 00 0 00 000200 MOVEM AC0,200 ;LOCATIONS 400XXX ==> LOCATIONS 75XXX
5616
5617 035264 476 00 0 00 000500 SETOM LEUPFW
5618
5619 ;D02 CONO PAG,LTRPEN ;SET TRAP AND PAGING ENABLE
5620 035265 260 17 0 00 035247 GO CHNGPE ;A02 ENABLE PAGING PRESERVING CACHE
5621
5622 035266 7 010 14 0 00 040473 DATAO PAG,[LLDUSB,,400000] ;LOAD THE USER BASE REGISTER
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 122-1
DFKCCM MAC 8-Jan-87 15:04 PROGRAM SUPPORT ROUTINES SEQ 0177
5623 035267 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 123
DFKCCM MAC 8-Jan-87 15:04 PROGRAM SUPPORT ROUTINES SEQ 0178
5624
5625 ; **********************************************************************
5626 ;*PFACB -- ROUTINE TO SETUP PAGE FAIL AC BLOCK
5627 ;* ENTRY WITH AC3 CONTAINING ADDRESS OF BLOCK IN MEMORY
5628 ; **********************************************************************
5629
5630 035270 200 00 0 03 000000 PFACB: MOVE AC0,(AC3)
5631 035271 202 00 0 00 000010 MOVEM AC
5632
5633 035272 200 00 0 03 000001 MOVE AC0,1(AC3)
5634 035273 202 00 0 00 000011 MOVEM AC+1
5635
5636 035274 200 00 0 03 000002 MOVE AC0,2(AC3)
5637 035275 202 00 0 00 000012 MOVEM AC+2
5638
5639 035276 200 00 0 03 000003 MOVE AC0,3(AC3)
5640 035277 202 00 0 00 000013 MOVEM AC+3
5641
5642 035300 200 00 0 03 000004 MOVE AC0,4(AC3)
5643 035301 202 00 0 00 000014 MOVEM AC+4
5644
5645 035302 402 00 0 00 041213 SETZM FILLF ;CLEAR FILLER FAILURE FLAG
5646
5647 035303 200 00 0 03 000005 MOVE AC0,5(AC3) ;GET INDICATOR OF WHERE E0 WORD WILL GO
5648 035304 332 00 0 00 000000 SKIPE AC0 ;AC0 = 0 MEANS THIS CASE NOT FILLER FAIL
5649 035305 476 00 0 00 041213 SETOM FILLF# ;PAGE FAIL SETUP TO OCCUR FOR FILLER
5650 035306 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 124
DFKCCM MAC 8-Jan-87 15:04 PROGRAM SUPPORT ROUTINES SEQ 0179
5651
5652 ; **********************************************************************
5653 ;*SVAC,RSTAC- ROUTINES TO SAVE AND RESTORE AC'S 0-16
5654 ; **********************************************************************
5655
5656 035307 202 00 0 00 041173 SVAC: MOVEM 0,AC0SV# ;SAVE AC'S
5657 035310 202 01 0 00 041203 MOVEM 1,AC1SV#
5658 035311 202 02 0 00 041204 MOVEM 2,AC2SV#
5659 035312 202 03 0 00 041205 MOVEM 3,AC3SV#
5660 035313 202 04 0 00 041206 MOVEM 4,AC4SV#
5661 035314 202 05 0 00 041207 MOVEM 5,AC5SV#
5662 035315 202 06 0 00 041210 MOVEM 6,AC6SV#
5663 035316 202 07 0 00 041211 MOVEM 7,AC7SV#
5664 035317 202 10 0 00 041174 MOVEM 10,AC10SV#
5665 035320 202 11 0 00 041175 MOVEM 11,AC11SV#
5666 035321 202 12 0 00 041176 MOVEM 12,AC12SV#
5667 035322 202 13 0 00 041177 MOVEM 13,AC13SV#
5668 035323 202 14 0 00 041200 MOVEM 14,AC14SV#
5669 035324 202 15 0 00 041201 MOVEM 15,AC15SV#
5670 035325 202 16 0 00 041202 MOVEM 16,AC16SV#
5671 035326 263 17 0 00 000000 RTN
5672
5673 035327 200 00 0 00 041173 RSTAC: MOVE 0,AC0SV ;RESTORE AC'S
5674 035330 200 01 0 00 041203 MOVE 1,AC1SV
5675 035331 200 02 0 00 041204 MOVE 2,AC2SV
5676 035332 200 03 0 00 041205 MOVE 3,AC3SV
5677 035333 200 04 0 00 041206 MOVE 4,AC4SV
5678 035334 200 05 0 00 041207 MOVE 5,AC5SV
5679 035335 200 06 0 00 041210 MOVE 6,AC6SV
5680 035336 200 07 0 00 041211 MOVE 7,AC7SV
5681 035337 200 10 0 00 041174 MOVE 10,AC10SV
5682 035340 200 11 0 00 041175 MOVE 11,AC11SV
5683 035341 200 12 0 00 041176 MOVE 12,AC12SV
5684 035342 200 13 0 00 041177 MOVE 13,AC13SV
5685 035343 200 14 0 00 041200 MOVE 14,AC14SV
5686 035344 200 15 0 00 041201 MOVE 15,AC15SV
5687 035345 200 16 0 00 041202 MOVE 16,AC16SV
5688 035346 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 125
DFKCCM MAC 8-Jan-87 15:04 PROGRAM SUPPORT ROUTINES SEQ 0180
5689
5690 ; **********************************************************************
5691 ;*CLRSTR -- ROUTINE WHICH CLEARS THE SOURCE, DESTIN, AND SIMDES BLOCKS
5692 ; **********************************************************************
5693
5694 035347 261 17 0 00 000000 CLRSTR: PUT AC0
5695
5696 035350 402 00 0 00 036035 SETZM SOURCE
5697 035351 200 00 0 00 040474 MOVE AC0,[SOURCE,,SOURCE+1]
5698 035352 251 00 0 00 036060 BLT AC0,SOURCE+^D19
5699
5700 035353 402 00 0 00 036061 SETZM DESTIN
5701 035354 200 00 0 00 040475 MOVE AC0,[DESTIN,,DESTIN+1]
5702 035355 251 00 0 00 036160 BLT AC0,DESTIN+^D63
5703
5704 035356 402 00 0 00 036161 SETZM SIMDES
5705 035357 200 00 0 00 040253 MOVE AC0,[SIMDES,,SIMDES+1]
5706 035360 251 00 0 00 036260 BLT AC0,SIMDES+^D63
5707
5708 035361 262 17 0 00 000000 GET AC0
5709 035362 263 17 0 00 000000 RTN
5710
5711 ; **********************************************************************
5712 ;*COMSTR -- ROUTINE TO COMPARE SIMULATED AND ACTUAL DESTINATION STRINGS
5713 ; **********************************************************************
5714
5715 035363 261 17 0 00 000000 COMSTR: PUT AC0
5716 035364 261 17 0 00 000001 PUT AC1
5717
5718 035365 201 01 0 00 000077 MOVEI AC1,^D63 ;LOOP COUNTER AND WORD INDEX
5719
5720 035366 200 00 0 01 036061 COMS1: MOVE AC0,DESTIN(AC1) ;GET DESTINATION WORD
5721 035367 312 00 0 01 036161 CAME AC0,SIMDES(AC1)
5722 035370 254 00 0 00 035373 JRST COMRT ;ERROR RETURN
5723
5724 035371 367 01 0 00 035366 SOJG AC1,COMS1
5725
5726 035372 350 00 0 17 777776 AOS -2(P) ;CORRECT RETURN
5727 035373 262 17 0 00 000001 COMRT: GET AC1
5728 035374 262 17 0 00 000000 GET AC0
5729 035375 263 17 0 00 000000 RTN
5730
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 126
DFKCCM MAC 8-Jan-87 15:04 PROGRAM PRINT ROUTINES SEQ 0181
5731 SUBTTL PROGRAM PRINT ROUTINES
5732
5733 ; **********************************************************************
5734 ;*PNTACB -- ROUTINE TO PRINT THE ORIGINAL, CORRECT AND ACTUAL AC BLOCKS
5735 ; **********************************************************************
5736
5737 035376 261 17 0 00 000000 PNTACB: PUT AC0
5738 035377 261 17 0 00 000001 PUT AC1
5739
5740 PNTMSG [ASCIZ/
5741 AC BLOCKS: ---- FINAL ----
5742 ORIGINAL CORRECT ACTUAL
5743 035400 037 00 0 00 040476 /]
5744 035401 515 01 0 00 777773 HRLZI AC1,-5 ;AC1/- BLOCK LENGTH,,0
5745
5746 035402 200 00 0 01 036023 PNTBLK: MOVE ORIGSV(AC1)
5747 035403 037 13 0 00 000000 PNTHW
5748 035404 037 00 0 00 000011 PNTCI 11
5749
5750 035405 200 00 0 01 036030 MOVE RESSV(AC1)
5751 035406 037 13 0 00 000000 PNTHW
5752 035407 037 00 0 00 000011 PNTCI 11
5753
5754 035410 200 00 0 01 000010 MOVE 10(AC1)
5755 035411 037 13 0 00 000000 PNTHW
5756 035412 037 00 0 00 030242 PCRL
5757
5758 035413 253 01 0 00 035402 AOBJN AC1,PNTBLK
5759
5760 035414 262 17 0 00 000001 GET AC1
5761 035415 262 17 0 00 000000 GET AC0
5762 035416 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 127
DFKCCM MAC 8-Jan-87 15:04 PROGRAM PRINT ROUTINES SEQ 0182
5763
5764 ; **********************************************************************
5765 ;*PNTINS -- ROUTINE TO PRINT THE CURRENT INSTRUCTION IN ENGLISH
5766 ; **********************************************************************
5767
5768 035417 PNTINS: PMSG <^INSTRUCTION: >^
5769 035417 037 02 0 00 040465 PSIXM [SIXBIT\^INSTRUCTION: _\]^
5770 035420 135 01 0 00 036261 LDB AC1,E0OP ;GET THE CURRENT OPCODE
5771 035421 200 00 0 01 036003 MOVE AC0,SCRIPT(AC1) ;PRINT THE INSTRUCTION NAME
5772 035422 037 01 0 00 000002 PNTSXF
5773 035423 263 17 0 00 000000 RTN
5774
5775 ; **********************************************************************
5776 ;*PNTSKP -- ROUTINE WHICH PRINTS INCORRECT INSTRUCTION RETURN MESSAGE
5777 ; **********************************************************************
5778
5779 035424 261 17 0 00 000000 PNTSKP: PUT AC0
5780
5781 PMSG <^INSTRUCTION MADE AN INCORRECT >^
5782 035425 037 02 0 00 040515 PSIXM [SIXBIT\^INSTRUCTION MADE AN INCORRECT _\]^
5783
5784 035426 200 00 0 00 040523 MOVE AC0,[SIXBIT /SKIP/]
5785 035427 336 00 0 00 041233 SKIPN SKPWD1
5786 035430 200 00 0 00 040524 MOVE AC0,[SIXBIT /N-SKIP/]
5787 035431 037 01 0 00 000002 PNTSXF
5788
5789 PMSG < RETURN^>^
5790 035432 037 02 0 00 040525 PSIXM [SIXBIT\ RETURN^_\]^
5791
5792 035433 262 17 0 00 000000 GET AC0
5793 035434 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 128
DFKCCM MAC 8-Jan-87 15:04 PROGRAM PRINT ROUTINES SEQ 0183
5794
5795 ; **********************************************************************
5796 ;*PNTSTR -- ROUTINE WHICH PRINTS STRINGS IN ROWS OF 5 BYTES EACH
5797 ;* ON ENTRY AC1 CONTAINS THE LENGTH OF THE STRING TO BE PRINTED
5798 ;* AND AC2 CONTAINS THE BYTE POINTER TO BE USED.
5799 ; **********************************************************************
5800
5801 035435 261 17 0 00 000000 PNTSTR: PUT AC0
5802 035436 261 17 0 00 000001 PUT AC1
5803 035437 261 17 0 00 000004 PUT AC4
5804 035440 037 00 0 00 030242 PCRL
5805
5806 035441 404 01 0 00 040527 AND AC1,[77777,,777777] ;MASK OFF FLAGS
5807
5808 035442 201 04 0 00 000005 PNTS1: MOVEI AC4,5 ;BYTES/ROW COUNTER
5809
5810 035443 375 00 0 00 000001 PNTS2: SOSGE AC1 ;MORE BYTES TO PRINT?
5811 035444 254 00 0 00 035453 JRST PNTSRT ;NO - RETURN
5812
5813 035445 134 00 0 00 000002 ILDB AC0,AC2 ;YES - BYTE TO AC0
5814 035446 037 16 0 00 000003 PNTOCS ;PRINT BYTE IN OCTAL
5815 035447 037 00 0 00 000011 PNTCI 11 ;TAB
5816
5817 035450 366 04 0 00 035443 SOJN AC4,PNTS2 ;JUMP IF MORE BYTES TO GO IN THIS ROW
5818
5819 035451 037 00 0 00 030242 PCRL ;GO TO NEXT ROW
5820 035452 254 00 0 00 035442 JRST PNTS1 ;RELOAD BYTES/ROW COUNTER
5821
5822 035453 037 00 0 00 030242 PNTSRT: PCRL
5823 035454 262 17 0 00 000004 GET AC4
5824 035455 262 17 0 00 000001 GET AC1
5825 035456 262 17 0 00 000000 GET AC0
5826 035457 263 17 0 00 000000 RTN
5827
5828 ; **********************************************************************
5829 ;*PNTCAS -- ROUTINE WHICH PRINTS CASE CURRENT CASE #. (AC1)= CASE TABLE ADDR)
5830 ; **********************************************************************
5831
5832 035460 261 17 0 00 000000 PNTCAS: PUT AC0
5833
5834 PMSG <^CASE # >^
5835 035461 037 02 0 00 040530 PSIXM [SIXBIT\^CASE # _\]^
5836 035462 550 00 0 00 000007 HRRZ AC0,AC7 ;GET ADDRESS OF CASE
5837 035463 271 00 0 00 000001 ADDI AC0,1 ;ADJUST
5838 035464 274 00 0 00 000001 SUB AC0,AC1 ;SUBTRACT THE TABLE ADDRESS
5839 035465 037 15 0 00 000000 PNTDEC ;PRINT CASE #
5840 035466 037 00 0 00 030242 PCRL
5841
5842 035467 262 17 0 00 000000 GET AC0
5843 035470 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 129
DFKCCM MAC 8-Jan-87 15:04 PROGRAM PRINT ROUTINES SEQ 0184
5844
5845 ; **********************************************************************
5846 ;*RANLEN -- ROUTINE WHICH RETURNS STRING LENGTHS SEQUENTIALLY FROM 2 - 20 (10)
5847 ; **********************************************************************
5848
5849 035471 261 17 0 00 000000 RANLEN: PUT AC0
5850
5851 035472 200 00 0 00 041230 MOVE AC0,RLEN ;GET LAST LENGTH USED
5852 035473 306 00 0 00 000024 CAIN AC0,^D20 ;RLEN REACHED HIGH LIMIT?
5853 035474 201 00 0 00 000001 MOVEI AC0,1 ;YES - RESET IT
5854
5855 035475 271 00 0 00 000001 ADDI AC0,1 ;GENERATE NEXT STRING LENGTH
5856 035476 202 00 0 00 041230 MOVEM RLEN ;STORE IT FOR NEXT TIME
5857
5858 035477 262 17 0 00 000000 GET AC0
5859 035500 263 17 0 00 000000 RTN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 130
DFKCCM MAC 8-Jan-87 15:04 PROGRAM PRINT ROUTINES SEQ 0185
5860
5861 ; **********************************************************************
5862 ;*PNTRAN -- ROUTINE TO PRINT THE CONTENTS OF A TRANSLATION TABLE
5863 ;* LOCATED AT E1 FOR LENGTH OF 20
5864 ; **********************************************************************
5865
5866 035501 261 17 0 00 000000 PNTRAN: PUT AC0
5867 035502 261 17 0 00 000001 PUT AC1
5868
5869 035503 515 01 0 00 777766 HRLZI AC1,-^D10 ;AC1/-# FULL WORDS,,0
5870 035504 541 01 0 00 035711 HRRI AC1,E1 ;AC1/-# FULL WORDS,,TRANS TABLE ADDRESS
5871
5872 PMSG <^TRANSLATION TABLE:>^
5873 035505 037 02 0 00 040532 PSIXM [SIXBIT\^TRANSLATION TABLE:_\]^
5874
5875 PMSG <^CODE]FUNCTION]CODE]FUNCTION^>^
5876 035506 037 02 0 00 040536 PSIXM [SIXBIT\^CODE]FUNCTION]CODE]FUNCTION^_\]^
5877
5878 035507 204 00 0 01 000000 PNTRN: MOVS AC0,(AC1) ;GET WORD FROM TABLE
5879 035510 242 00 0 00 777761 LSH AC0,-^D15 ;SHIFT CODE INTO POSITION
5880 035511 405 00 0 00 000007 ANDI AC0,7 ;SAVE ONLY THE CODE
5881 035512 037 16 0 00 000003 PNTOCS
5882 035513 037 00 0 00 000011 PNTCI 11
5883
5884 035514 204 00 0 01 000000 MOVS AC0,(AC1)
5885 035515 405 00 0 00 077777 ANDI AC0,77777
5886 035516 037 16 0 00 000003 PNTOCS
5887
5888 PMSG <]]> ^;PRINT TWO TABS
5889 035517 037 02 0 00 040543 PSIXM [SIXBIT\]]_\]
5890
5891 035520 200 00 0 01 000000 MOVE AC0,(AC1)
5892 035521 242 00 0 00 777761 LSH AC0,-^D15
5893 035522 405 00 0 00 000007 ANDI AC0,7
5894 035523 037 16 0 00 000003 PNTOCS
5895 035524 037 00 0 00 000011 PNTCI 11
5896
5897 035525 200 00 0 01 000000 MOVE AC0,(AC1)
5898 035526 405 00 0 00 077777 ANDI AC0,77777
5899 035527 037 16 0 00 000003 PNTOCS
5900 035530 037 00 0 00 030242 PCRL
5901
5902 035531 253 01 0 00 035507 AOBJN AC1,PNTRN
5903
5904 035532 262 17 0 00 000001 GET AC1
5905 035533 262 17 0 00 000000 GET AC0
5906 035534 263 17 0 00 000000 RTN
5907
5908 ;END OF FILE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1
DFKCC1 MAC 23-Dec-86 14:15 GENERAL PROGRAM TABLE STORAGE SEQ 0186
5909 SUBTTL GENERAL PROGRAM TABLE STORAGE
5910
5911 035535 PGMNAM: ASCIZ/
5912 035535 015 012 104 105 103 DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3 [DFKCC]
5913 035536 123 131 123 124 105
5914 035537 115 061 060 040 113
5915 035540 114 061 060 040 101
5916 035541 104 126 101 116 103
5917 035542 105 104 040 111 116
5918 035543 123 124 122 125 103
5919 035544 124 111 117 116 040
5920 035545 104 111 101 107 116
5921 035546 117 123 124 111 103
5922 035547 040 043 063 040 133
5923 035550 104 106 113 103 103
5924 035551 135 015 012 105 130 EXTENDED INSTRUCTIONS
5925 035552 124 105 116 104 105
5926 035553 104 040 111 116 123
5927 035554 124 122 125 103 124
5928 035555 111 117 116 123 015
5929 035556 012 000 000 000 000 /
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 2
DFKCC1 MAC 23-Dec-86 14:15 GENERAL PROGRAM TABLE STORAGE SEQ 0187
5930
5931 ; **********************************************************************
5932 ;*EXTENDED OPERATOR OPCODE TABLE
5933 ; **********************************************************************
5934
5935 035557 777777 777762 OPTAB-OPEND ;NEGATIVE TABLE LENGTH
5936 035560 OPTAB:
5937 035560 000000 000001 CMPTAB: 001 ;CMPSL
5938 035561 000000 000002 002 ;CMPSE
5939 035562 000000 000003 003 ;CMPSLE
5940 035563 000000 000005 005 ;CMPSGE
5941 035564 000000 000006 006 ;CMPSN
5942 035565 000000 000007 007 ;CMPSG
5943 035566 000000 000016 MOVTAB: 016 ;MOVSLJ
5944 035567 000000 000017 017 ;MOVSRJ
5945 035570 000000 000014 014 ;MOVSO
5946 035571 000000 000015 015 ;MOVST
5947 035572 000000 000004 EDTTAB: 004 ;EDIT
5948 035573 000000 000010 CDBTAB: 010 ;CVTDBO
5949 035574 000000 000011 011 ;CVTDBT
5950 035575 000000 000012 CBDTAB: 012 ;CVTBDO
5951 035576 000000 000013 OPEND: 013 ;CVTBDT
5952
5953 ; **********************************************************************
5954 ;*SOFTWARE INTERRUPT TABLE AREA
5955 ; **********************************************************************
5956
5957 ; **************************************************
5958 ;TOPS-10 STORAGE
5959 ; **************************************************
5960
5961 035577 000003 034737 UUOBLK: 3,,MUUOH ;TRANSFER CONTROL TO MUUO HANDLER
5962 035600 400000 000100 1B0!1B29 ;SUPPRESS ERROR MSGS AND INTERCEPT FATAL ERRORS
5963 035601 000000 000000 0
5964 035602 000000 000000 0
5965
5966 ; **************************************************
5967 ;TOPS-20 STORAGE
5968 ; **************************************************
5969
5970 035603 CHNTAB: BLOCK ^D15 ;CHANNELS 0-14 AREN'T USED
5971 035622 000001 034737 1,,MUUOH ;SETUP PRIORITY 1 INTERRUPT FOR MUUO TRAP
5972 035623 000000 035624 LEVTAB: MUOPC ;HOLDS PC OF INTERRUPT
5973
5974 035624 000000 000000 MUOPC: 0
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 3
DFKCC1 MAC 23-Dec-86 14:15 GENERAL PROGRAM TABLE STORAGE SEQ 0188
5975
5976 ; **********************************************************************
5977 ;*EXECUTE INSTRUCTION STORAGE (EO,E1)
5978 ; **********************************************************************
5979
5980 035625 E0: BLOCK 64
5981 035711 E1: BLOCK 64
5982
5983 035775 400000 000000 BIT0: 400000,,0
5984 035776 200000 000000 BIT1: 200000,,0
5985 035777 100000 000000 BIT2: 100000,,0
5986 036000 000000 400000 BIT18: 0,,400000
5987 036001 000000 200000 BIT19: 0,,200000
5988 036002 000000 100000 BIT20: 0,,100000
5989
5990 ; **********************************************************************
5991 ;*SIXBIT EXTENDED OPERATOR MNEMONIC TABLE
5992 ; **********************************************************************
5993
5994 036003 000000 000000 SCRIPT: 0
5995 036004 43 55 60 63 54 00 SIXBIT /CMPSL/
5996 036005 43 55 60 63 45 00 SIXBIT /CMPSE/
5997 036006 43 55 60 63 54 45 SIXBIT /CMPSLE/
5998 036007 45 44 51 64 00 00 SIXBIT /EDIT/
5999 036010 43 55 60 63 47 45 SIXBIT /CMPSGE/
6000 036011 43 55 60 63 56 00 SIXBIT /CMPSN/
6001 036012 43 55 60 63 47 00 SIXBIT /CMPSG/
6002 036013 43 66 64 44 42 57 SIXBIT /CVTDBO/
6003 036014 43 66 64 44 42 64 SIXBIT /CVTDBT/
6004 036015 43 66 64 42 44 57 SIXBIT /CVTBDO/
6005 036016 43 66 64 42 44 64 SIXBIT /CVTBDT/
6006 036017 55 57 66 63 57 00 SIXBIT /MOVSO/
6007 036020 55 57 66 63 64 00 SIXBIT /MOVST/
6008 036021 55 57 66 63 54 52 SIXBIT /MOVSLJ/
6009 036022 55 57 66 63 62 52 SIXBIT /MOVSRJ/
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 4
DFKCC1 MAC 23-Dec-86 14:15 GENERAL PROGRAM TABLE STORAGE SEQ 0189
6010
6011 ; **********************************************************************
6012 ;*ORIGSV,RESSV -- AREAS WHICH HOLD ORIGINAL AND FINAL AC BLOCK RESULTS
6013 ;* OF EXTEND INSTRUCTIONS
6014 ; **********************************************************************
6015
6016 036023 ORIGSV: BLOCK 5
6017 036030 RESSV: BLOCK 5
6018
6019 ; **********************************************************************
6020 ;*SOURCE,DESTIN,SIMDES -- STORAGE FOR SOURCE,DESTINATION AND SIMULATED
6021 ;* DESTINATION STRINGS
6022 ; **********************************************************************
6023
6024 036035 SOURCE: BLOCK ^D20
6025 036061 DESTIN: BLOCK ^D64
6026
6027 036161 SIMDES: BLOCK ^D64 ;SIMULATED DESTINATION STRING
6028
6029 036261 33 11 0 00 035625 E0OP: POINT 9,E0,8 ;BYTE POINTER FOR INSTR OPCODE
6030
6031 036262 TEMP: BLOCK 3 ;TEMPORARY STORAGE
6032
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 5
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0190
6033 SUBTTL INSTRUCTION SPECIFIC STORAGE AREA
6034
6035 ; **********************************************************************
6036 ;*SKPTAB -- INSTRUCTION SKIP TABLE
6037 ; **********************************************************************
6038
6039 036265 000000 000000 SKPTAB: 0
6040 036266 000000 000001 LF ;CMPSL
6041 036267 000000 000002 EF ;CMPSE
6042 036270 000000 000003 EF!LF ;CMPSLE
6043 036271 000000 000000 0 ;NOT USED (EDIT)
6044 036272 000000 000006 GF!EF ;CMPSGE
6045 036273 000000 000005 GF!LF ;CMPSN
6046 036274 000000 000004 GF ;CMPSG
6047
6048 ; **********************************************************************
6049 ;*BYTAB -- TABLE CONTAINING ENGLISH FOR THE BYTE TYPE OPERATORS.
6050 ;* USED IN ERROR PRINTING ROUTINE FOR EDIT INSTRUCTION. IT IS
6051 ;* INDEXED BY "BYTYPE" ( SPECIFIED IN EACH EDIT SUBMODULE TEST.)
6052 ; **********************************************************************
6053
6054 036275 63 64 57 60 00 00 BYTAB: SIXBIT /STOP/
6055 036276 45 70 43 50 55 44 SIXBIT /EXCHMD/
6056 036277 63 51 47 63 64 00 SIXBIT /SIGST/
6057 036300 46 54 44 63 45 60 SIXBIT /FLDSEP/
6058 036301 55 45 63 63 41 47 SIXBIT /MESSAG/
6059 036302 56 57 60 00 00 00 SIXBIT /NOP/
6060 036303 63 53 60 55 00 00 SIXBIT /SKPM/
6061 036304 63 53 60 56 00 00 SIXBIT /SKPN/
6062 036305 63 53 60 41 00 00 SIXBIT /SKPA/
6063 036306 63 45 54 45 43 64 SIXBIT /SELECT/
6064
6065 ; **************************************************
6066 ;*PATTBL -- EDIT INSTRUCTION PATTERN TABLE
6067 ; **************************************************
6068
6069 036307 PATTBL: BLOCK ^D20
6070 036333 BYTYPE: BLOCK 1 ;INDEX TO BYTE TYPE TABLE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 6
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0191
6071
6072 ; **********************************************************************
6073 ;*EDXWD -- TABLES OF THE FIRST WORD OF THE PATTERN BYTE TABLE. THE
6074 ;* TABLE IS INDEXED ACCORDING TO THE VALUE OF THE PB#. THE "X"
6075 ;* IN EDXWD STANDS FOR THE SUBMODULE TEST BEING PERFORMED.
6076 ; **********************************************************************
6077
6078 036334 000 002 002 002 ED1WD: BYTE (9) STOP,SIGST,SIGST,SIGST
6079 036335 002 000 002 002 BYTE (9) SIGST,STOP,SIGST,SIGST
6080 036336 002 002 000 002 BYTE (9) SIGST,SIGST,STOP,SIGST
6081 036337 002 002 002 000 BYTE (9) SIGST,SIGST,SIGST,STOP
6082
6083 036340 004 000 000 000 ED2WD: BYTE (9) EXCHMD,STOP,STOP,STOP
6084 036341 004 004 000 000 BYTE (9) EXCHMD,EXCHMD,STOP,STOP
6085 036342 004 004 004 000 BYTE (9) EXCHMD,EXCHMD,EXCHMD,STOP
6086 036343 004 004 004 004 BYTE (9) EXCHMD,EXCHMD,EXCHMD,EXCHMD
6087
6088 036344 002 000 000 000 ED3WD: BYTE (9) SIGST,STOP,STOP,STOP
6089 036345 000 002 000 000 BYTE (9) STOP,SIGST,STOP,STOP
6090 036346 000 000 002 000 BYTE (9) STOP,STOP,SIGST,STOP
6091 036347 000 000 000 002 BYTE (9) STOP,STOP,STOP,SIGST
6092 036350 003 000 000 000 ED4WD: BYTE (9) FLDSEP,STOP,STOP,STOP
6093 036351 000 003 000 000 BYTE (9) STOP,FLDSEP,STOP,STOP
6094 036352 000 000 003 000 BYTE (9) STOP,STOP,FLDSEP,STOP
6095 036353 000 000 000 003 BYTE (9) STOP,STOP,STOP,FLDSEP
6096
6097 036354 100 000 000 000 ED5WD: BYTE (9) MESSAG,STOP,STOP,STOP
6098 036355 000 100 000 000 BYTE (9) STOP,MESSAG,STOP,STOP
6099 036356 000 000 100 000 BYTE (9) STOP,STOP,MESSAG,STOP
6100 036357 000 000 000 100 BYTE (9) STOP,STOP,STOP,MESSAG
6101
6102 036360 005 000 000 000 ED6WD: BYTE (9) NOP,STOP,STOP,STOP
6103 036361 000 005 000 000 BYTE (9) STOP,NOP,STOP,STOP
6104 036362 000 000 005 000 BYTE (9) STOP,STOP,NOP,STOP
6105 036363 000 000 000 005 BYTE (9) STOP,STOP,STOP,NOP
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 7
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0192
6106
6107 036364 500 000 000 000 ED7AWD: BYTE (9) SKPM,STOP,STOP,STOP
6108 036365 000 501 000 000 BYTE (9) STOP,SKPM+1,STOP,STOP
6109 036366 000 000 502 000 BYTE (9) STOP,STOP,SKPM+2,STOP
6110 036367 000 000 000 503 BYTE (9) STOP,STOP,STOP,SKPM+3
6111
6112 036370 600 000 000 000 ED7BWD: BYTE (9) SKPN,STOP,STOP,STOP
6113 036371 000 601 000 000 BYTE (9) STOP,SKPN+1,STOP,STOP
6114 036372 000 000 602 000 BYTE (9) STOP,STOP,SKPN+2,STOP
6115 036373 000 000 000 603 BYTE (9) STOP,STOP,STOP,SKPN+3
6116
6117 036374 700 000 000 000 ED7CWD: BYTE (9) SKPA,STOP,STOP,STOP
6118 036375 000 701 000 000 BYTE (9) STOP,SKPA+1,STOP,STOP
6119 036376 000 000 702 000 BYTE (9) STOP,STOP,SKPA+2,STOP
6120 036377 000 000 000 703 BYTE (9) STOP,STOP,STOP,SKPA+3
6121
6122 036400 001 000 000 000 ED8WD: BYTE (9) SELECT,STOP,STOP,STOP
6123 036401 001 001 000 000 BYTE (9) SELECT,SELECT,STOP,STOP
6124 036402 001 001 001 000 BYTE (9) SELECT,SELECT,SELECT,STOP
6125 036403 001 001 001 001 BYTE (9) SELECT,SELECT,SELECT,SELECT
6126
6127 036404 200 000 000 000 ED9WD: BYTE (9) NOP1,STOP,STOP,STOP
6128 036405 000 300 000 000 BYTE (9) STOP,NOP2,STOP,STOP
6129 036406 000 000 400 000 BYTE (9) STOP,STOP,NOP3,STOP
6130 036407 000 000 000 006 BYTE (9) STOP,STOP,STOP,NOP4
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 8
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0193
6131
6132 ; **********************************************************************
6133 ;*OFFTAB -- VARIOUS VALUES USED FOR OFFSET IN CVTXX INSTR
6134 ; **********************************************************************
6135
6136 036410 000000 000000 OFFTAB: 0
6137 036411 777777 777720 -1,,-60
6138 036412 000000 000060 0,,60
6139 036413 000000 000001 0,,1
6140
6141 ; **********************************************************************
6142 ;*DATTAB -- DATA TABLE FOR CVTDBO INSTRUCTIONS
6143 ; **********************************************************************
6144
6145 036414 440700 040544 DATTAB: 440700,,[ASCIZ/1180591620717411303424/]
6146 036415 440700 040551 440700,,[ASCIZ/1180591620717411303423/]
6147 036416 440700 040556 440700,,[ASCIZ/9876540/]
6148 036417 440700 040560 440700,,[ASCIZ/1/]
6149 036420 440700 040561 440700,,[ASCIZ/0/]
6150 036421 440700 040562 440700,,[ASCIZ/697/]
6151 036422 440700 040563 440700,,[ASCIZ/123456/]
6152 036423 440700 040544 440700,,[ASCIZ/1180591620717411303424/]
6153
6154 036424 000000 000000 CBDTR: 0,,0
6155 036425 777777 000001 -1,,1
6156 036426 777776 000002 -2,,2
6157 036427 777775 000003 -3,,3
6158 036430 777774 000004 -4,,4
6159 036431 777773 000005 -5,,5
6160 036432 777772 000006 -6,,6
6161 036433 777771 000007 -7,,7
6162 036434 777770 000010 -^D8,,^D8
6163 036435 777767 000011 -^D9,,^D9
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 9
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0194
6164
6165 ; **********************************************************************
6166 ;*DATCBD -- DATA TABLE FOR CVTBDX INSTRUCTION
6167 ; **********************************************************************
6168
6169 036436 440700 036446 DATCBD: 440700,,CB1
6170 036437 440700 036450 440700,,CB2
6171 036440 440700 036452 440700,,CB3
6172 036441 440700 036454 440700,,CB4
6173 036442 440700 036456 440700,,CB5
6174 036443 440700 036460 440700,,CB6
6175 036444 440700 036462 440700,,CB7
6176 036445 440700 036464 440700,,CB8
6177
6178 036446 401160 541620 CB1: 401160,,541620
6179 036447 717411 303424 717411,,303424
6180 036450 001160 541620 CB2: 1160,,541620
6181 036451 317411 303423 317411,,303423
6182 036452 000000 000000 CB3: 0
6183 036453 000004 676540 4,,676540
6184 036454 000000 000000 CB4: 0
6185 036455 000000 000001 1
6186 036456 000000 000000 CB5: 0
6187 036457 000000 000000 0
6188 036460 400157 013326 CB6: 400157,,13326
6189 036461 564731 000000 564731,,0
6190 036462 000000 000000 CB7: 0
6191 036463 000000 123456 123456
6192 036464 264026 176051 CB8: 264026,,176051
6193 036465 136640 000000 136640,,0
6194
6195 ; **********************************************************************
6196 ;*LTAB -- STRING LENGTH TABLE USED IN CDBXX AND CBDXX INSTRUCTIONS
6197 ; **********************************************************************
6198
6199 036466 000000 000000 LTAB: 0
6200 036467 000000 000001 1
6201 036470 000000 000021 21
6202 036471 000000 000022 22
6203
6204 ; **********************************************************************
6205 ;*STRING PATTERNS FOR CMPXX INSTRUCTIONS
6206 ; **********************************************************************
6207
6208 036472 252525 252525 APAT: 252525,,252525 ;PATTERN ALTERNATING ONE'S AND ZERO'S
6209 036473 777777 777777 BPAT: 777777,,777777 ;ALL ONE'S PATTERN
6210 036474 000000 000001 CPAT: 000000,,000001 ;ONE PATTERN
6211 036475 000000 000000 DPAT: 0 ;ZERO PATTERN
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 10
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0195
6212
6213 ; **********************************************************************
6214 ;*PPTAB,PPTAB1 -- EDIT INSTR SIMULATOR PATTERN POINTER JUMP TABLES
6215 ; **********************************************************************
6216
6217 036476 000000 034167 PPTAB: EOPER
6218 036477 000000 034172 EMESSG
6219 036500 000000 034176 ENOP
6220 036501 000000 034176 ENOP
6221 036502 000000 034176 ENOP
6222 036503 000000 034200 ESKPM
6223 036504 000000 034203 ESKPN
6224 036505 000000 034206 ESKPA
6225
6226 036506 000000 034212 PPTAB1: ESTOP
6227 036507 000000 034220 ESELCT
6228 036510 000000 034244 ESIGST
6229 036511 000000 034247 EFLDSP
6230 036512 000000 034251 EEXCHD
6231 036513 000000 034176 ENOP
6232
6233 ; **********************************************************************
6234 ;*EDIT INSTRUCTION BYTE POINTERS
6235 ; **********************************************************************
6236
6237 036514 36 02 0 00 000010 PATBN: POINT 2,PADDR,5 ;PATTERN BYTE NUMBER IN PADDR
6238 036515 44 11 0 00 036307 PATPT: POINT 9,PATTBL
6239
6240 036516 33 11 0 10 000000 PATBL: POINT 9,(PADDR),8 ;PATTERN BYTE 0
6241 036517 22 11 0 10 000000 POINT 9,(PADDR),17 ;PATTERN BYTE 1
6242 036520 11 11 0 10 000000 POINT 9,(PADDR),26 ;PATTERN BYTE 2
6243 036521 00 11 0 10 000000 POINT 9,(PADDR),35 ;PATTERN BYTE 3
6244
6245 036522 000 000 000 000 STOPWD: BYTE (9) STOP,STOP,STOP,STOP
6246 036523 002 002 002 002 SIGWD: BYTE (9) SIGST,SIGST,SIGST,SIGST
6247 036524 001 001 001 001 SELWD: BYTE (9) SELECT,SELECT,SELECT,SELECT
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 11
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0196
6248
6249 ; **********************************************************************
6250 ;*PFBLK -- STORAGE FOR AC BLOCKS USED IN PAGE FAIL TEST
6251 ; **********************************************************************
6252
6253 ; **************************************************
6254 ;STORAGE FOR CMPXX AND MOVXX PAGE FAIL AC'S
6255 ; **************************************************
6256
6257 036525 000000 000024 PFBLK1: ^D20 ;SRC FAILURE FIRST BYTE
6258 036526 44 44 0 00 401000 POINT 36,401000
6259 036527 000000 000000 0
6260 036530 000000 000024 ^D20
6261 036531 44 44 0 00 036061 POINT 36,DESTIN
6262 036532 000000 000000 0
6263
6264 036533 000000 000024 ^D20 ;SRC FAILURE MIDDLE BYTE
6265 036534 44 44 0 00 400766 POINT 36,401000-^D10
6266 036535 000000 000000 0
6267 036536 000000 000024 ^D20
6268 036537 44 44 0 00 036061 POINT 36,DESTIN
6269 036540 000000 000000 0
6270
6271 036541 000000 000024 ^D20 ;SRC FAILURE LAST BYTE
6272 036542 44 44 0 00 400755 POINT 36,401000-^D19
6273 036543 000000 000000 0
6274 036544 000000 000024 ^D20
6275 036545 44 44 0 00 036061 POINT 36,DESTIN
6276 036546 000000 000000 0
6277
6278 036547 000000 000024 ^D20 ;DST FAILURE FIRST BYTE
6279 036550 44 44 0 00 036035 POINT 36,SOURCE
6280 036551 000000 000000 0
6281 036552 000000 000024 ^D20
6282 036553 44 44 0 00 401000 POINT 36,401000
6283 036554 000000 000000 0
6284
6285 036555 000000 000024 ^D20 ;DST FAILURE MIDDLE BYTE
6286 036556 44 44 0 00 036035 POINT 36,SOURCE
6287 036557 000000 000000 0
6288 036560 000000 000024 ^D20
6289 036561 44 44 0 00 400766 POINT 36,401000-^D10
6290 036562 000000 000000 0
6291
6292 036563 000000 000024 ^D20 ;DST FAILURE LAST BYTE
6293 036564 44 44 0 00 036035 POINT 36,SOURCE
6294 036565 000000 000000 0
6295 036566 000000 000024 ^D20
6296 036567 44 44 0 00 400755 POINT 36,401000-^D19
6297 036570 000000 000000 0
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 12
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0197
6298
6299 036571 000000 000012 ^D10 ;FILLER FAILURE (E0+1)
6300 036572 44 44 0 00 036035 POINT 36,SOURCE
6301 036573 000000 000000 0
6302 036574 000000 000024 ^D20
6303 036575 44 44 0 00 036061 POINT 36,DESTIN
6304 036576 000000 000001 1
6305
6306 036577 000000 000012 ^D10 ;SRC FAIL MIDDLE
6307 036600 44 44 0 00 400773 POINT 36,401000-5
6308 036601 000000 000000 0
6309 036602 000000 000024 ^D20
6310 036603 44 44 0 00 036061 POINT 36,DESTIN
6311 036604 000000 000000 0
6312
6313 036605 000000 000024 PFBLK2: ^D20
6314 036606 44 44 0 00 401000 POINT 36,401000
6315 036607 000000 000000 0
6316 036610 000000 000000 0
6317 036611 000000 000000 0
6318 036612 000000 000000 0
6319
6320 036613 000000 000024 ^D20
6321 036614 44 44 0 00 400766 POINT 36,401000-^D10
6322 036615 000000 000000 0
6323 036616 000000 000000 0
6324 036617 000000 000000 0
6325 036620 000000 000000 0
6326
6327 036621 000000 000024 ^D20
6328 036622 44 44 0 00 400755 POINT 36,401000-^D19
6329 036623 000000 000000 0
6330 036624 000000 000000 0
6331 036625 000000 000000 0
6332 036626 000000 000000 0
6333
6334 036627 000000 000000 PFBLK3: 0
6335 036630 000000 000000 0
6336 036631 000000 000000 0
6337 036632 000000 000024 ^D20
6338 036633 44 44 0 00 401000 POINT 36,401000
6339 036634 000000 000000 0
6340
6341 036635 000000 012345 12345
6342 036636 000000 012345 12345
6343 036637 000000 000000 0
6344 036640 000000 000024 ^D20
6345 036641 44 44 0 00 400766 POINT 36,401000-^D10
6346 036642 000000 000000 0
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 13
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0198
6347
6348 036643 700000 036307 PFBLK4: 700000,,PATTBL
6349 036644 44 44 0 00 401000 POINT 36,401000
6350 036645 000000 000000 0
6351 036646 000000 000000 0
6352 036647 44 44 0 00 036061 POINT 36,DESTIN
6353 036650 000000 000000 0
6354
6355 036651 700000 036307 700000,,PATTBL
6356 036652 44 44 0 00 400766 POINT 36,401000-^D10
6357 036653 000000 000000 0
6358 036654 000000 000000 0
6359 036655 44 44 0 00 036061 POINT 36,DESTIN
6360 036656 000000 000000 0
6361
6362 036657 700000 036307 700000,,PATTBL
6363 036660 44 44 0 00 400755 POINT 36,401000-^D19
6364 036661 000000 000000 0
6365 036662 000000 000000 0
6366 036663 44 44 0 00 036061 POINT 36,DESTIN
6367 036664 000000 000000 0
6368
6369 036665 700000 036307 700000,,PATTBL
6370 036666 44 44 0 00 036035 POINT 36,SOURCE
6371 036667 000000 000000 0
6372 036670 000000 000000 0
6373 036671 44 44 0 00 401000 POINT 36,401000
6374 036672 000000 000000 0
6375
6376 036673 700000 036307 700000,,PATTBL
6377 036674 44 44 0 00 036035 POINT 36,SOURCE
6378 036675 000000 000000 0
6379 036676 000000 000000 0
6380 036677 44 44 0 00 400766 POINT 36,401000-^D10
6381 036700 000000 000000 0
6382
6383 036701 700000 036307 700000,,PATTBL
6384 036702 44 44 0 00 036035 POINT 36,SOURCE
6385 036703 000000 000000 0
6386 036704 000000 000000 0
6387 036705 44 44 0 00 400755 POINT 36,401000-^D19
6388 036706 000000 000000 0
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 14
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0199
6389
6390 ; **********************************************************************
6391 ;*PFRESX -- STORAGE AREA WHICH CONTAINS THE CORRECT INTERMEDIATE
6392 ;* RESULTS OF ALL INSTRUCTIONS AFTER PAGE FAILURE.
6393 ; **********************************************************************
6394
6395 036707 000000 000024 PFRES1: 24 ;STORAGE FOR CMPXX,MOVXX PF RESULTS
6396 036710 444400 401000 444400,,401000
6397 036711 000000 000000 0
6398 036712 000000 000024 24
6399 036713 444400 036061 444400,,DESTIN
6400
6401 036714 000000 000012 12
6402 036715 444400 401000 444400,,401000
6403 036716 000000 000000 0
6404 036717 000000 000012 12
6405 036720 004400 036072 004400,,DESTIN+11
6406
6407 036721 000000 000001 1
6408 036722 444400 401000 444400,,401000
6409 036723 000000 000000 0
6410 036724 000000 000001 1
6411 036725 004400 036103 004400,,DESTIN+22
6412
6413 036726 000000 000024 24
6414 036727 444400 036035 444400,,SOURCE
6415 036730 000000 000000 0
6416 036731 000000 000024 24
6417 036732 444400 401000 444400,,401000
6418
6419 036733 000000 000012 12
6420 036734 444400 036047 444400,,SOURCE+12
6421 036735 000000 000000 0
6422 036736 000000 000012 12
6423 036737 444400 401000 444400,,401000
6424
6425 036740 000000 000001 1
6426 036741 444400 036060 444400,,SOURCE+23
6427 036742 000000 000000 0
6428 036743 000000 000001 1
6429 036744 444400 401000 444400,,401000
6430
6431 036745 000000 000012 12
6432 036746 444400 036035 444400,,SOURCE
6433 036747 000000 000000 0
6434 036750 000000 000024 24
6435 036751 444400 036061 444400,,DESTIN
6436
6437 036752 000000 000005 5
6438 036753 444400 401000 444400,,401000
6439 036754 000000 000000 0
6440 036755 000000 000005 5
6441 036756 004400 036077 004400,,DESTIN+16
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 15
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0200
6442
6443 036757 400000 000024 PFRES2: 400000,,24
6444 036760 444400 401000 444400,,401000
6445 036761 000000 000000 0
6446 036762 000000 000000 0
6447 036763 000000 000000 0
6448
6449 036764 400000 000012 400000,,12
6450 036765 444400 401000 444400,,401000
6451 036766 000000 000000 0
6452 036767 000000 000000 0
6453 036770 000000 000000 0
6454
6455 036771 400000 000001 400000,,1
6456 036772 444400 401000 444400,,401000
6457 036773 000000 000000 0
6458 036774 000000 000000 0
6459 036775 000000 000000 0
6460
6461 036776 000000 000000 PFRES3: 0
6462 036777 000000 000001 1
6463 037000 000000 000000 0
6464 037001 000000 000001 1
6465 037002 444400 401000 444400,,401000
6466
6467 037003 133462 676501 133462,,676501
6468 037004 443250 574000 443250,,574000
6469 037005 000000 000000 0
6470 037006 200000 000005 200000,,5
6471 037007 444400 401000 444400,,401000
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 16
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0201
6472
6473 037010 700000 036307 PFRES4: 700000,,PATTBL
6474 037011 444400 401000 444400,,401000
6475 037012 000000 000000 0
6476 037013 000000 000000 0
6477 037014 444400 036061 444400,,DESTIN
6478
6479 037015 720000 036311 720000,,PATTBL+2
6480 037016 444400 401000 444400,,401000
6481 037017 000000 000000 0
6482 037020 000000 000000 0
6483 037021 004400 036072 4400,,DESTIN+11
6484
6485 037022 730000 036313 730000,,PATTBL+4
6486 037023 444400 401000 444400,,401000
6487 037024 000000 000000 0
6488 037025 000000 000000 0
6489 037026 004400 036103 4400,,DESTIN+22
6490
6491 037027 700000 036307 700000,,PATTBL
6492 037030 444400 036035 444400,,SOURCE
6493 037031 000000 000000 0
6494 037032 000000 000000 0
6495 037033 444400 401000 444400,,401000
6496
6497 037034 720000 036311 720000,,PATTBL+2
6498 037035 444400 036047 444400,,SOURCE+12
6499 037036 000000 000000 0
6500 037037 000000 000000 0
6501 037040 444400 401000 444400,,401000
6502
6503 037041 730000 036313 730000,,PATTBL+4
6504 037042 444400 036060 444400,,SOURCE+23
6505 037043 000000 000000 0
6506 037044 000000 000000 0
6507 037045 444400 401000 444400,,401000
6508
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 17
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION CASE TABLES SEQ 0202
6509 SUBTTL INSTRUCTION CASE TABLES
6510
6511 ; **********************************************************************
6512 ;*CMPCAS -- PARAMETER CASE TABLE FOR COMPARE INSTRUCTIONS
6513 ; **********************************************************************
6514
6515 037046 777777 777732 CMPCAS-CMPEND ;NEGATIVE TABLE LENGTH
6516 037047 410140 000000 CMPCAS: EQLEN!S44!D44!ALTPT
6517 037050 410000 000000 EQLEN!ALTPT
6518 037051 404100 000000 EQLEN!S44!ONEPT
6519 037052 404050 000000 EQLEN!D44!ONEPT!ALD
6520 037053 402020 000000 EQLEN!ONESPT!ALS
6521 037054 402040 000000 EQLEN!D44!ONESPT
6522
6523 037055 203000 000000 SZERO!ONESPT!EQFIL
6524 037056 204300 000000 SZERO!S44!ONEPT!GFILL
6525 037057 211150 000000 SZERO!S44!D44!ALTPT!EQFIL!ALD
6526 037060 210500 000000 SZERO!S44!ALTPT!LFILL
6527 037061 204240 000000 SZERO!D44!ONEPT!GFILL
6528 037062 203140 000000 SZERO!S44!D44!ONESPT!EQFIL
6529 037063 103000 000000 DZERO!ONESPT!EQFIL
6530 037064 105140 000000 DZERO!S44!D44!ONEPT!EQFIL
6531 037065 111160 000000 DZERO!S44!D44!ALTPT!EQFIL!ALS
6532 037066 110240 000000 DZERO!D44!ALTPT!GFILL
6533 037067 110400 000000 DZERO!ALTPT!LFILL
6534 037070 103100 000000 DZERO!S44!ONESPT!EQFIL
6535 037071 051000 000000 DSZER!ALTPT!EQFIL
6536 037072 043100 000000 DSZER!S44!ONESPT!EQFIL
6537 037073 043040 000000 DSZER!D44!ONESPT!EQFIL
6538 037074 045140 000000 DSZER!S44!D44!ONEPT!EQFIL
6539
6540 037075 031000 000000 SLONG!ALTPT!EQFIL
6541 037076 031020 000000 SLONG!ALTPT!EQFIL!ALS
6542 037077 024300 000000 SLONG!S44!ONEPT!GFILL
6543 037100 022440 000000 SLONG!D44!ONESPT!LFILL
6544 037101 030400 000000 SLONG!ALTPT!LFILL
6545 037102 022300 000000 SLONG!S44!ONESPT!GFILL
6546 037103 025040 000000 SLONG!D44!ONEPT!EQFIL
6547 037104 030210 000000 SLONG!ALTPT!ALD!GFILL
6548
6549 037105 011000 000000 ALTPT!EQFIL
6550 037106 011010 000000 ALTPT!EQFIL!ALD
6551 037107 004300 000000 S44!ONEPT!GFILL
6552 037110 002440 000000 D44!ONESPT!LFILL
6553 037111 010400 000000 ALTPT!LFILL
6554 037112 002300 000000 S44!ONESPT!GFILL
6555 037113 005040 000000 D44!ONEPT!EQFIL
6556 037114 010220 000000 ALTPT!ALS!GFILL
6557 037115 404000 000000 CMPEND: EQLEN!ONEPT!
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 18
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION CASE TABLES SEQ 0203
6558
6559 ; **********************************************************************
6560 ;*MOVCAS -- PARAMETER CASE TABLE FOR MOVE STRING INSTRUCTIONS
6561 ; **********************************************************************
6562
6563 037116 777777 777753 MOVCAS-MOVEND ;NEGATIVE TABLE LENGTH
6564 037117 404140 702004 MOVCAS: EQLEN!S44!D44!ONEPT!OFF1!SFL1!MFL1!NFL1!C5A
6565 037120 410000 570004 EQLEN!ALTPT!OFF1!SFL1!NFL1!C1A!C2A!C3A
6566 037121 410040 400004 EQLEN!D44!ALTPT!OFF1!SFL1
6567 037122 402100 120004 EQLEN!S44!ONESPT!OFF1!NFL1!C2A
6568 037123 402000 202000 EQLEN!ONESPT!MFL1!C5A
6569 037124 402000 003004 EQLEN!ONESPT!OFF1!C5A!C6A
6570
6571 037125 202400 420000 SZERO!ONESPT!LFILL!SFL1!C2A
6572 037126 211040 500000 SZERO!D44!ALTPT!EQFIL!SFL1!NFL1
6573 037127 204300 000000 SZERO!S44!ONEPT!GFILL
6574 037130 050400 060000 DSZER!LFILL!ALTPT!C1A!C2A
6575
6576 037131 031000 740000 SLONG!EQFIL!ALTPT!SFL1!NFL1!MFL1!C1A
6577 037132 023040 400000 SLONG!D44!EQFIL!ONESPT!SFL1
6578 037133 030504 440000 SLONG!S44!ALTPT!LFILL!AFS!SFL1!C1A
6579 037134 024340 477000 SLONG!S44!D44!GFILL!ONEPT!SFL1!C1A!C2A!C3A!C4A!C5A!C6A
6580 037135 022540 700004 SLONG!S44!D44!OFF1!ONESPT!LFILL!SFL1!NFL1!MFL1
6581 037136 031020 000004 SLONG!EQFIL!ALTPT!ALS!OFF1
6582
6583 037137 011000 400000 EQFIL!ALTPT!SFL1
6584 037140 003040 240000 D44!EQFIL!ONESPT!MFL1!C1A
6585 037141 010504 140000 S44!ALTPT!LFILL!AFS!NFL1!C1A
6586 037142 004340 000000 S44!D44!GFILL!ONEPT
6587 037143 002540 704004 S44!D44!OFF1!ONESPT!LFILL!SFL1!MFL1!NFL1!C4A
6588 037144 011020 000004 MOVEND: EQFIL!ALTPT!ALS!OFF1
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 19
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION CASE TABLES SEQ 0204
6589
6590 ; **********************************************************************
6591 ;*CDBCAS -- PARAMETER CASE TABLE FOR CVTDBO AND CVTDBT INSTRUCTIONS
6592 ; **********************************************************************
6593
6594 037145 777777 777741 CDBCAS-CDBEND ;NEGATIVE TABLE LENGTH
6595 037146 000100 200004 CDBCAS: OFF1!S44!MFL1
6596 037147 000100 100124 DATA2!OFF1!STRL1!S44!NFL1
6597 037150 000100 300244 DATA1!OFF1!STRL0!S44!MFL1!NFL1
6598 037151 000100 700360 DATA1!DATA2!STRL0!STRL1!S44!SFL1!MFL1!NFL1
6599 037152 000100 400404 DATA0!OFF1!S44!SFL1
6600 037153 000100 600524 DATA0!DATA2!OFF1!STRL1!S44!SFL1!MFL1
6601 037154 000100 500644 DATA0!DATA1!OFF1!STRL0!S44!SFL1!NFL1
6602 037155 000100 200764 DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44!MFL1
6603 037156 000000 100064 OFF1!STRL0!STRL1!NFL1
6604 037157 000000 300144 DATA2!OFF1!STRL0!MFL1!NFL1
6605 037160 000000 400224 DATA1!OFF1!STRL1!SFL1
6606 037161 000000 600304 DATA1!DATA2!OFF1!SFL1!MFL1
6607 037162 000100 500464 DATA0!OFF1!STRL0!STRL1!S44!SFL1!NFL1
6608 037163 000100 000560 DATA0!DATA2!STRL0!STRL1!S44
6609 037164 000100 000644 DATA0!DATA1!OFF1!STRL0!S44
6610 037165 000100 700744 DATA0!DATA1!DATA2!OFF1!STRL0!S44!SFL1!NFL1!MFL1
6611 037166 000100 400044 OFF1!STRL0!S44!SFL1
6612 037167 000000 000164 DATA2!OFF1!STRL0!STRL1
6613 037170 000000 100220 DATA1!STRL1!NFL1
6614 037171 000000 200364 DATA1!DATA2!OFF1!STRL0!STRL1!MFL1
6615 037172 000000 400464 DATA0!OFF1!STRL0!STRL1!SFL1
6616 037173 000000 500564 DATA0!DATA2!OFF1!STRL0!STRL1!SFL1!NFL1
6617 037174 000100 600664 DATA0!DATA1!OFF1!STRL0!STRL1!S44!SFL1!MFL1
6618 037175 000100 700764 DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44!SFL1!NFL1!MFL1
6619 037176 000100 000064 OFF1!STRL0!STRL1!S44
6620 037177 000100 000164 DATA2!OFF1!STRL0!STRL1!S44
6621 037200 000100 000264 DATA1!OFF1!STRL0!STRL1!S44
6622 037201 000100 000364 DATA1!DATA2!OFF1!STRL0!STRL1!S44
6623 037202 000000 000464 DATA0!OFF1!STRL0!STRL1
6624 037203 000000 000564 DATA0!DATA2!OFF1!STRL0!STRL1
6625 037204 000100 000664 DATA0!DATA1!OFF1!STRL0!STRL1!S44
6626 037205 000100 000764 CDBEND: DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 20
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION CASE TABLES SEQ 0205
6627
6628 ; **********************************************************************
6629 ;*CBDCAS -- PARAMETER CASE TABLE FOR CVTBD0 AND CVTBDT INSRUCTIONS
6630 ; **********************************************************************
6631
6632 037206 777777 777741 CBDCAS-CBDEND ;NEGATIVE TABLE LENGTH
6633 037207 000100 000000 CBDCAS: S44
6634 037210 000100 000120 DATA2!STRL1!S44
6635 037211 000100 000240 DATA1!STRL0!S44
6636 037212 000100 400360 DATA1!DATA2!STRL0!STRL1!S44!SFL1
6637 037213 000000 400400 DATA0!SFL1
6638 037214 000100 000520 DATA0!DATA2!STRL1!S44
6639 037215 000100 000640 DATA0!DATA1!STRL0!S44
6640 037216 000100 400764 DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44!SFL1
6641 037217 000000 000060 STRL0!STRL1
6642 037220 000000 400140 DATA2!STRL0!SFL1
6643 037221 000000 000220 DATA1!STRL1
6644 037222 000000 000300 DATA1!DATA2
6645 037223 000100 400460 DATA0!STRL0!STRL1!S44!SFL1
6646 037224 000100 400560 DATA0!DATA2!STRL0!STRL1!S44!SFL1
6647 037225 000100 000640 DATA0!DATA1!STRL0!S44
6648 037226 000100 000740 DATA0!DATA1!DATA2!STRL0!S44
6649 037227 000100 000040 STRL0!S44
6650 037230 000000 000160 DATA2!STRL0!STRL1
6651 037231 000000 000220 DATA1!STRL1
6652 037232 000000 000360 DATA1!DATA2!STRL0!STRL1
6653 037233 000000 000460 DATA0!STRL0!STRL1
6654 037234 000000 000560 DATA0!DATA2!STRL0!STRL1
6655 037235 000100 000660 DATA0!DATA1!STRL0!STRL1!S44
6656 037236 000100 000760 DATA0!DATA1!DATA2!STRL0!STRL1!S44
6657 037237 000100 000060 STRL0!STRL1!S44
6658 037240 000100 000160 DATA2!STRL0!STRL1!S44
6659 037241 000100 000260 DATA1!STRL0!STRL1!S44
6660 037242 000100 000360 DATA1!DATA2!STRL0!STRL1!S44
6661 037243 000000 000460 DATA0!STRL0!STRL1
6662 037244 000000 000560 DATA0!DATA2!STRL0!STRL1
6663 037245 000100 000660 DATA0!DATA1!STRL0!STRL1!S44
6664 037246 000000 000760 CBDEND: DATA0!DATA1!DATA2!STRL0!STRL1
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 21
DFKCC1 MAC 23-Dec-86 14:15 INSTRUCTION CASE TABLES SEQ 0206
6665
6666 ; **********************************************************************
6667 ;*EDTCAS -- PARAMETER CASE TABLE FOR EDIT INSTRUCTION
6668 ; **********************************************************************
6669
6670 037247 777777 777741 EDTCAS-EDTEND ;NEGATIVE TABLE LENGTH
6671 037250 001000 000000 EDTCAS: EQFIL
6672 037251 000400 201000 MFL1!LFILL!C6A
6673 037252 000200 102000 NFL1!GFILL!C5A
6674 037253 001000 303000 MFL1!NFL1!EQFIL!C5A!C6A
6675 037254 000400 404000 SFL1!LFILL!C4A
6676 037255 000200 605000 SFL1!MFL1!GFILL!C4A!C6A
6677 037256 001000 506000 SFL1!NFL1!EQFIL!C4A!C5A
6678 037257 000400 707000 SFL1!MFL1!NFL1!LFILL!C4A!C5A!C6A
6679 037260 000200 000001 PB2!GFILL
6680 037261 001000 210001 MFL1!PB2!EQFIL!C3A
6681 037262 000400 120001 NFL1!PB2!LFILL!C2A
6682 037263 000200 330001 MFL1!NFL1!PB2!GFILL!C2A!C3A
6683 037264 001000 440001 SFL1!PB2!EQFIL!C1A
6684 037265 000400 650001 SFL1!MFL1!PB2!LFILL!C1A!C3A
6685 037266 000200 560001 SFL1!NFL1!PB2!GFILL!C1A!C2A
6686 037267 001000 770001 SFL1!MFL1!NFL1!PB2!EQFIL!C1A!C2A!C3A
6687 037270 000400 000002 PB1!LFILL
6688 037271 000200 241002 MFL1!PB1!GFILL!C1A!C6A
6689 037272 001000 122002 NFL1!PB1!EQFIL!C2A!C5A
6690 037273 000400 311002 MFL1!NFL1!PB1!LFILL!C3A!C6A
6691 037274 000200 477002 SFL1!PB1!GFILL!C1A!C2A!C3A!C4A!C5A!C6A
6692 037275 001000 650002 SFL1!MFL1!PB1!EQFIL!C1A!C3A
6693 037276 000400 542002 SFL1!NFL1!PB1!LFILL!C1A!C5A
6694 037277 000200 740002 SFL1!MFL1!NFL1!PB1!GFILL!C1A
6695 037300 001000 020003 PB1!PB2!EQFIL!C2A
6696 037301 000400 210003 MFL1!PB1!PB2!LFILL!C3A
6697 037302 000200 104003 NFL1!PB1!PB2!GFILL!C4A
6698 037303 001000 302003 MFL1!NFL1!PB1!PB2!EQFIL!C5A
6699 037304 000400 401003 SFL1!PB1!PB2!LFILL!C6A
6700 037305 000200 640003 SFL1!MFL1!PB1!PB2!GFILL!C1A
6701 037306 001000 520003 SFL1!NFL1!PB1!PB2!EQFIL!C2A
6702 037307 000400 710003 EDTEND: SFL1!MFL1!NFL1!PB1!PB2!LFILL!C3A
6703
6704 037310 000000 400000 MCASE: SFL1 ;CASE WORD FOR SPECIAL MESSAGES
6705
6706 037311 000000 000011 MESSGS: 11 ;OUT OF SEQUENCE ASCII CODES
6707 037312 000000 000012 12
6708 037313 000000 000013 13
6709 037314 000000 000014 14
6710 037315 000000 000015 15
6711 037316 000000 000032 32
6712
6713 ;END OF FILE
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1
STOR KLM 29-Sep-86 15:27 *STOR* RESERVED STORAGE, JULY 19,1977 SEQ 0207
6714 SUBTTL *STOR* RESERVED STORAGE, JULY 19,1977
6715
6716 ;PROGRAM LITERALS
6717
6718 XLIST
6719 IFNDEF $LPAPER,<LIST>
6720 037317 LIT
6721 037317 45 70 64 45 56 44
6722 037320 45 44 00 57 60 45
6723 037321 62 41 64 57 62 00
6724 037322 45 70 45 43 65 64
6725 037323 51 57 56 00 64 62
6726 037324 41 60 00 64 45 63
6727 037325 64 77 00 00 00 00
6728 037326 260 17 0 00 034773
6729 037327 33 11 0 00 030645
6730 037330 76 43 57 62 62 45
6731 037331 43 64 35 51 56 63
6732 037332 64 62 65 43 64 51
6733 037333 57 56 77 00 00 00
6734 037334 51 54 54 45 47 41
6735 037335 54 00 51 56 63 64
6736 037336 62 65 43 64 51 57
6737 037337 56 00 45 70 45 43
6738 037340 65 64 51 57 56 00
6739 037341 46 41 51 54 45 44
6740 037342 00 64 57 00 43 41
6741 037343 65 63 45 00 54 65
6742 037344 65 57 77 00 00 00
6743 037345 037317 037330
6744 037346 030645 000000
6745 037347 037334 000000
6746 037350 51 54 54 45 47 41
6747 037351 54 00 45 70 64 45
6748 037352 56 44 45 44 00 57
6749 037353 60 45 62 41 64 57
6750 037354 62 00 64 62 41 60
6751 037355 00 64 45 63 64 77
6752 037356 57 65 64 00 57 46
6753 037357 00 62 41 56 47 45
6754 037360 00 57 60 45 62 41
6755 037361 64 57 62 00 46 41
6756 037362 51 54 45 44 00 64
6757 037363 57 00 64 62 41 60
6758 037364 77 00 00 00 00 00
6759 037365 037350 037330
6760 037366 035625 000000
6761 037367 037356 000000
6762 037370 51 54 54 45 47 41
6763 037371 54 00 41 43 00 46
6764 037372 51 45 54 44 00 42
6765 037373 51 64 63 00 31 15
6766 037374 21 22 00 46 41 51
6767 037375 54 45 44 00 64 57
6768 037376 00 64 62 41 60 77
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1-1
STOR KLM 29-Sep-86 15:27 *STOR* RESERVED STORAGE, JULY 19,1977 SEQ 0208
6769 037377 037350 037330
6770 037400 035625 000000
6771 037401 037370 000000
6772 037402 51 54 54 45 47 41
6773 037403 54 00 41 43 00 46
6774 037404 51 45 54 44 00 64
6775 037405 62 41 60 00 64 45
6776 037406 63 64 77 00 00 00
6777 037407 43 00 0 00 036035
6778 037410 43 00 0 00 036061
6779 037411 76 43 57 62 62 45
6780 037412 43 64 35 63 57 65
6781 037413 62 43 45 00 54 45
6782 037414 56 47 64 50 77 00
6783 037415 51 54 54 45 47 41
6784 037416 54 00 63 57 65 62
6785 037417 43 45 00 54 45 56
6786 037420 47 64 50 00 51 56
6787 037421 00 43 57 55 60 41
6788 037422 62 45 00 51 56 63
6789 037423 64 62 00 44 51 44
6790 037424 56 07 64 00 43 41
6791 037425 65 63 45 00 64 62
6792 037426 41 60 77 00 00 00
6793 037427 037402 037411
6794 037430 000010 000000
6795 037431 037415 000000
6796 037432 76 43 57 62 62 45
6797 037433 43 64 35 44 45 63
6798 037434 64 51 56 41 64 51
6799 037435 57 56 00 54 45 56
6800 037436 47 64 50 77 00 00
6801 037437 51 54 54 45 47 41
6802 037440 54 00 44 45 63 64
6803 037441 51 56 00 54 45 56
6804 037442 47 64 50 00 51 56
6805 037443 00 43 57 55 60 41
6806 037444 62 45 00 51 56 63
6807 037445 64 62 00 44 51 44
6808 037446 56 07 64 00 43 41
6809 037447 65 63 45 00 64 62
6810 037450 41 60 77 00 00 00
6811 037451 037402 037432
6812 037452 000013 000000
6813 037453 037437 000000
6814 037454 51 54 54 45 47 41
6815 037455 54 00 44 54 45 56
6816 037456 00 51 56 00 55 57
6817 037457 66 45 00 63 64 62
6818 037460 51 56 47 00 51 56
6819 037461 63 64 62 00 44 51
6820 037462 44 56 07 64 00 43
6821 037463 41 65 63 45 00 64
6822 037464 62 41 60 77 00 00
6823 037465 037402 037432
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1-2
STOR KLM 29-Sep-86 15:27 *STOR* RESERVED STORAGE, JULY 19,1977 SEQ 0209
6824 037466 000013 000000
6825 037467 037454 000000
6826 037470 76 43 57 62 62 45
6827 037471 43 64 35 60 41 64
6828 037472 64 45 62 56 00 60
6829 037473 57 51 56 64 45 62
6830 037474 77 00 00 00 00 00
6831 037475 51 54 54 45 47 41
6832 037476 54 00 60 41 64 64
6833 037477 45 62 56 00 60 57
6834 037500 51 56 64 45 62 00
6835 037501 46 51 45 54 44 00
6836 037502 51 56 00 45 44 51
6837 037503 64 00 51 56 63 64
6838 037504 62 00 44 51 44 56
6839 037505 07 64 00 43 41 65
6840 037506 63 45 00 64 62 41
6841 037507 60 77 00 00 00 00
6842 037510 037402 037470
6843 037511 000010 000000
6844 037512 037475 000000
6845 037513 43 57 55 60 41 62
6846 037514 45 00 63 64 62 51
6847 037515 56 47 00 51 56 63
6848 037516 64 62 65 43 64 51
6849 037517 57 56 00 64 45 63
6850 037520 64 77 00 00 00 00
6851 037521 76 43 55 60 70 70
6852 037522 00 60 41 64 64 45
6853 037523 62 56 00 56 57 64
6854 037524 00 63 45 54 45 43
6855 037525 64 45 44 00 15 00
6856 037526 41 42 57 62 64 51
6857 037527 56 47 00 43 65 62
6858 037530 62 45 56 64 00 43
6859 037531 41 63 45 77 00 00
6860 037532 76 41 42 57 62 64
6861 037533 51 56 47 00 43 65
6862 037534 62 62 45 56 64 00
6863 037535 43 41 63 45 00 15
6864 037536 00 46 51 54 54 45
6865 037537 62 00 60 41 64 64
6866 037540 45 62 56 00 56 57
6867 037541 64 00 63 60 45 43
6868 037542 51 46 51 45 44 77
6869 037543 44 05 0 00 036035
6870 037544 44 44 0 00 036035
6871 037545 44 05 0 00 036061
6872 037546 44 44 0 00 036061
6873 037547 000010 036023
6874 037550 037513 037364
6875 037551 000000 000000
6876 037552 037364 034310
6877 037553 55 57 66 45 00 63
6878 037554 64 62 51 56 47 00
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1-3
STOR KLM 29-Sep-86 15:27 *STOR* RESERVED STORAGE, JULY 19,1977 SEQ 0210
6879 037555 51 56 63 64 62 65
6880 037556 43 64 51 57 56 00
6881 037557 64 45 63 64 77 00
6882 037560 76 55 57 66 70 70
6883 037561 00 60 41 64 64 45
6884 037562 62 56 00 56 57 64
6885 037563 00 63 45 54 45 43
6886 037564 64 45 44 00 15 00
6887 037565 41 42 57 62 64 51
6888 037566 56 47 00 43 65 62
6889 037567 62 45 56 64 00 43
6890 037570 41 63 45 77 00 00
6891 037571 037553 037364
6892 037572 000000 000000
6893 037573 037364 034374
6894 037574 000001 000001
6895 037575 43 57 56 66 45 62
6896 037576 64 00 44 45 43 51
6897 037577 55 41 54 00 64 57
6898 037600 00 42 51 56 41 62
6899 037601 71 00 51 56 63 64
6900 037602 62 65 43 64 51 57
6901 037603 56 00 64 45 63 64
6902 037604 77 00 00 00 00 00
6903 037605 44 10 0 00 036035
6904 037606 000777 777777
6905 037607 037575 037364
6906 037610 000000 000000
6907 037611 037364 034465
6908 037612 400000 400001
6909 037613 43 57 56 66 45 62
6910 037614 64 00 42 51 56 41
6911 037615 62 71 00 64 57 00
6912 037616 44 45 43 51 55 41
6913 037617 54 00 51 56 63 64
6914 037620 62 65 43 64 51 57
6915 037621 56 00 64 45 63 64
6916 037622 77 00 00 00 00 00
6917 037623 44 10 0 00 036061
6918 037624 037613 037364
6919 037625 000000 000000
6920 037626 037364 034546
6921 037627 45 44 51 64 00 51
6922 037630 56 63 64 62 65 43
6923 037631 64 51 57 56 00 64
6924 037632 45 63 64 77 00 00
6925 037633 45 44 51 64 00 15
6926 037634 00 63 64 57 60 00
6927 037635 10 20 20 21 11 00
6928 037636 60 41 64 64 45 62
6929 037637 56 00 42 71 64 45
6930 037640 00 64 71 60 45 00
6931 037641 64 45 63 64 77 00
6932 037642 036307 036310
6933 037643 44 00 0 00 036035
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1-4
STOR KLM 29-Sep-86 15:27 *STOR* RESERVED STORAGE, JULY 19,1977 SEQ 0211
6934 037644 037633 037364
6935 037645 000000 000000
6936 037646 037364 034627
6937 037647 45 44 51 64 00 15
6938 037650 00 45 70 43 50 55
6939 037651 44 00 10 20 20 24
6940 037652 11 00 60 41 64 64
6941 037653 45 62 56 00 42 71
6942 037654 64 45 00 64 71 60
6943 037655 45 00 64 45 63 64
6944 037656 77 00 00 00 00 00
6945 037657 037647 037364
6946 037660 000000 000000
6947 037661 037364 034627
6948 037662 45 44 51 64 00 15
6949 037663 00 63 51 47 63 64
6950 037664 00 10 20 20 22 11
6951 037665 00 60 41 64 64 45
6952 037666 62 56 00 42 71 64
6953 037667 45 00 64 71 60 45
6954 037670 00 64 45 63 64 77
6955 037671 037662 037364
6956 037672 000000 000000
6957 037673 037364 034627
6958 037674 45 44 51 64 00 15
6959 037675 00 46 54 44 63 45
6960 037676 60 00 10 20 20 23
6961 037677 11 00 60 41 64 64
6962 037700 45 62 56 00 42 71
6963 037701 64 45 00 64 71 60
6964 037702 45 00 64 45 63 64
6965 037703 77 00 00 00 00 00
6966 037704 037674 037364
6967 037705 000000 000000
6968 037706 037364 034627
6969 037707 45 44 51 64 00 15
6970 037710 00 55 45 63 63 41
6971 037711 47 00 10 21 70 70
6972 037712 11 00 60 41 64 64
6973 037713 45 62 56 00 42 71
6974 037714 64 45 00 64 71 60
6975 037715 45 00 64 45 63 64
6976 037716 77 00 00 00 00 00
6977 037717 037707 037364
6978 037720 000000 000000
6979 037721 037364 034627
6980 037722 037311 035626
6981 037723 45 44 51 64 00 15
6982 037724 00 56 57 60 00 10
6983 037725 20 20 25 11 00 60
6984 037726 41 64 64 45 62 56
6985 037727 00 42 71 64 45 00
6986 037730 64 71 60 45 00 64
6987 037731 45 63 64 77 00 00
6988 037732 037723 037364
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1-5
STOR KLM 29-Sep-86 15:27 *STOR* RESERVED STORAGE, JULY 19,1977 SEQ 0212
6989 037733 000000 000000
6990 037734 037364 034627
6991 037735 45 44 51 64 00 15
6992 037736 00 63 53 60 55 00
6993 037737 10 25 70 70 11 00
6994 037740 60 41 64 64 45 62
6995 037741 56 00 42 71 64 45
6996 037742 00 64 71 60 45 00
6997 037743 64 45 63 64 63 77
6998 037744 037735 037364
6999 037745 000000 000000
7000 037746 037364 034627
7001 037747 45 44 51 64 00 15
7002 037750 00 63 53 60 56 00
7003 037751 10 26 70 70 11 00
7004 037752 60 41 64 64 45 62
7005 037753 56 00 42 71 64 45
7006 037754 00 64 71 60 45 00
7007 037755 64 45 63 64 63 77
7008 037756 037747 037364
7009 037757 000000 000000
7010 037760 037364 034627
7011 037761 45 44 51 64 00 15
7012 037762 00 63 53 60 41 00
7013 037763 10 27 70 70 11 00
7014 037764 60 41 64 64 45 62
7015 037765 56 00 42 71 64 45
7016 037766 00 64 71 60 45 00
7017 037767 64 45 63 64 63 77
7018 037770 037761 037364
7019 037771 000000 000000
7020 037772 037364 034627
7021 037773 45 44 51 64 00 15
7022 037774 00 63 45 54 45 43
7023 037775 64 00 10 20 20 21
7024 037776 11 00 60 41 64 64
7025 037777 45 62 56 00 42 71
7026 040000 64 45 00 64 71 60
7027 040001 45 00 64 45 63 64
7028 040002 77 00 00 00 00 00
7029 040003 037773 037364
7030 040004 000000 000000
7031 040005 037364 034627
7032 040006 45 44 51 64 00 15
7033 040007 00 56 57 56 00 44
7034 040010 45 46 51 56 45 44
7035 040011 00 60 41 64 64 45
7036 040012 62 56 00 42 71 64
7037 040013 45 00 64 71 60 45
7038 040014 00 64 45 63 64 77
7039 040015 040006 037364
7040 040016 000000 000000
7041 040017 037364 034627
7042 040020 60 41 47 45 00 46
7043 040021 41 51 54 00 64 45
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1-6
STOR KLM 29-Sep-86 15:27 *STOR* RESERVED STORAGE, JULY 19,1977 SEQ 0213
7044 040022 63 64 51 56 47 77
7045 040023 60 41 47 45 00 46
7046 040024 41 51 54 00 64 45
7047 040025 63 64 51 56 47 00
7048 040026 57 46 00 64 50 45
7049 040027 00 43 57 55 60 41
7050 040030 62 45 00 51 56 63
7051 040031 64 62 65 43 64 51
7052 040032 57 56 63 77 00 00
7053 040033 075750 075751
7054 040034 33 11 0 00 400777
7055 040035 000000 032710
7056 040036 000000 032705
7057 040037 76 45 70 64 45 56
7058 040040 44 00 51 56 63 64
7059 040041 00 44 51 44 00 56
7060 040042 57 64 00 60 41 47
7061 040043 45 00 46 41 51 54
7062 040044 77 00 00 00 00 00
7063 040045 040023 040037
7064 040046 000000 000000
7065 040047 037364 035417
7066 040050 76 45 70 64 45 56
7067 040051 44 00 51 56 63 64
7068 040052 00 60 41 47 45 00
7069 040053 46 41 51 54 45 44
7070 040054 00 55 57 62 45 00
7071 040055 64 50 41 56 00 57
7072 040056 56 43 45 77 00 00
7073 040057 040023 040050
7074 040060 000000 000000
7075 040061 037364 035042
7076 040062 76 51 56 64 45 62
7077 040063 55 45 44 51 41 64
7078 040064 45 00 60 41 47 45
7079 040065 00 46 41 51 54 00
7080 040066 62 45 63 65 54 64
7081 040067 63 00 45 62 62 57
7082 040070 62 77 00 00 00 00
7083 040071 040023 040062
7084 040072 000000 000000
7085 040073 037364 035042
7086 040074 76 46 51 56 41 54
7087 040075 00 41 43 07 63 00
7088 040076 51 56 43 57 62 62
7089 040077 45 43 64 77 00 00
7090 040100 040023 040074
7091 040101 000000 000000
7092 040102 037364 035234
7093 040103 60 41 47 45 00 46
7094 040104 41 51 54 00 64 45
7095 040105 63 64 51 56 47 00
7096 040106 57 46 00 55 57 66
7097 040107 45 00 63 64 62 51
7098 040110 56 47 00 51 56 63
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1-7
STOR KLM 29-Sep-86 15:27 *STOR* RESERVED STORAGE, JULY 19,1977 SEQ 0214
7099 040111 64 62 65 43 64 51
7100 040112 57 56 63 77 00 00
7101 040113 000000 033040
7102 040114 000000 033035
7103 040115 040103 040037
7104 040116 000000 000000
7105 040117 037364 035417
7106 040120 040103 040050
7107 040121 000000 000000
7108 040122 037364 035042
7109 040123 040103 040062
7110 040124 000000 000000
7111 040125 037364 035042
7112 040126 040103 040074
7113 040127 000000 000000
7114 040130 037364 035234
7115 040131 60 41 47 45 00 46
7116 040132 41 51 54 00 64 45
7117 040133 63 64 51 56 47 00
7118 040134 57 46 00 43 66 64
7119 040135 44 42 70 00 51 56
7120 040136 63 64 62 65 43 64
7121 040137 51 57 56 63 77 00
7122 040140 000000 033170
7123 040141 000000 033165
7124 040142 040131 040037
7125 040143 000000 000000
7126 040144 037364 035417
7127 040145 040131 040050
7128 040146 000000 000000
7129 040147 037364 035042
7130 040150 040131 040062
7131 040151 000000 000000
7132 040152 037364 035042
7133 040153 040131 040074
7134 040154 000000 000000
7135 040155 037364 035234
7136 040156 60 41 47 45 00 46
7137 040157 41 51 54 00 64 45
7138 040160 63 64 51 56 47 00
7139 040161 57 46 00 43 66 64
7140 040162 42 44 57 00 51 56
7141 040163 63 64 62 65 43 64
7142 040164 51 57 56 63 77 00
7143 040165 000000 033320
7144 040166 000000 033315
7145 040167 040156 040037
7146 040170 000000 000000
7147 040171 037364 035417
7148 040172 040156 040050
7149 040173 000000 000000
7150 040174 037364 035042
7151 040175 040156 040062
7152 040176 000000 000000
7153 040177 037364 035042
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1-8
STOR KLM 29-Sep-86 15:27 *STOR* RESERVED STORAGE, JULY 19,1977 SEQ 0215
7154 040200 040156 040074
7155 040201 000000 000000
7156 040202 037364 035234
7157 040203 60 41 47 45 00 46
7158 040204 41 51 54 00 64 45
7159 040205 63 64 51 56 47 00
7160 040206 57 46 00 64 50 45
7161 040207 00 45 44 51 64 00
7162 040210 51 56 63 64 62 65
7163 040211 43 64 51 57 56 63
7164 040212 77 00 00 00 00 00
7165 040213 000000 033450
7166 040214 000000 033445
7167 040215 040203 040037
7168 040216 000000 000000
7169 040217 037364 035417
7170 040220 040203 040050
7171 040221 000000 000000
7172 040222 037364 035042
7173 040223 040203 040062
7174 040224 000000 000000
7175 040225 037364 035042
7176 040226 040203 040074
7177 040227 000000 000000
7178 040230 037364 035234
7179 040231 036023 000010
7180 040232 000010 036030
7181 040233 300600 000014
7182 040234 17 02 0 00 000007
7183 040235 255 00 0 00 000000
7184 040236 254 00 0 00 033673
7185 040237 621 06 0 00 100000
7186 040240 661 06 0 00 100000
7187 040241 003300 000010
7188 040242 777000 000000
7189 040243 255 00 0 00 000000
7190 040244 254 00 0 00 034002
7191 040245 621 10 0 00 100000
7192 040246 661 10 0 00 100000
7193 040247 00 11 0 00 000013
7194 040250 047121 545107
7195 040251 104130 000000
7196 040252 036023 036030
7197 040253 036161 036162
7198 040254 17 02 0 00 000003
7199 040255 255 00 0 00 000000
7200 040256 254 00 0 00 034213
7201 040257 621 10 0 00 100000
7202 040260 661 10 0 00 100000
7203 040261 76 63 57 65 62 43
7204 040262 45 00 63 64 62 51
7205 040263 56 47 32 00 77 00
7206 040264 76 44 45 63 64 51
7207 040265 56 00 63 64 62 51
7208 040266 56 47 32 00 77 00
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1-9
STOR KLM 29-Sep-86 15:27 *STOR* RESERVED STORAGE, JULY 19,1977 SEQ 0216
7209 040267 76 45 20 13 21 32
7210 040270 00 77 00 00 00 00
7211 040271 76 45 20 13 22 32
7212 040272 00 77 00 00 00 00
7213 040273 000000 000100
7214 040274 76 63 57 65 62 43
7215 040275 45 00 63 64 62 51
7216 040276 56 47 32 77 00 00
7217 040277 00 11 0 00 036023
7218 040300 76 43 57 62 62 45
7219 040301 43 64 00 44 45 63
7220 040302 64 51 56 41 64 51
7221 040303 57 56 00 63 64 62
7222 040304 51 56 47 32 77 00
7223 040305 76 41 43 64 65 41
7224 040306 54 00 44 45 63 64
7225 040307 51 56 41 64 51 57
7226 040310 56 00 63 64 62 51
7227 040311 56 47 32 77 00 00
7228 040312 777777 777700
7229 040313 76 63 51 55 65 54
7230 040314 41 64 45 44 00 44
7231 040315 45 63 64 51 56 41
7232 040316 64 51 57 56 00 63
7233 040317 64 62 51 56 47 32
7234 040320 77 00 00 00 00 00
7235 040321 00 11 0 00 036026
7236 040322 76 60 41 64 64 45
7237 040323 62 56 00 42 71 64
7238 040324 45 00 64 71 60 45
7239 040325 00 65 56 44 45 62
7240 040326 00 64 45 63 64 32
7241 040327 00 77 00 00 00 00
7242 040330 76 45 20 13 21 32
7243 040331 77 00 00 00 00 00
7244 040332 76 45 20 13 22 32
7245 040333 77 00 00 00 00 00
7246 040334 000400 000431
7247 040335 035623 035603
7248 040336 55 65 65 57 00 57
7249 040337 60 45 62 41 64 51
7250 040340 57 56 77 00 00 00
7251 040341 76 43 57 62 62 45
7252 040342 43 64 35 55 65 65
7253 040343 57 76 41 43 64 65
7254 040344 41 54 35 55 65 65
7255 040345 57 00 60 43 77 00
7256 040346 65 56 45 70 60 45
7257 040347 43 64 45 44 00 55
7258 040350 65 65 57 00 57 43
7259 040351 43 65 62 45 44 77
7260 040352 040336 040341
7261 040353 000001 000002
7262 040354 040346 000000
7263 040355 76 43 57 62 62 45
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1-10
STOR KLM 29-Sep-86 15:27 *STOR* RESERVED STORAGE, JULY 19,1977 SEQ 0217
7264 040356 43 64 35 55 65 65
7265 040357 57 00 60 43 77 00
7266 040360 040336 040355
7267 040361 000001 000000
7268 040362 040346 000000
7269 040363 54 65 65 57 00 57
7270 040364 60 45 62 41 64 51
7271 040365 57 56 77 00 00 00
7272 040366 76 43 57 62 62 45
7273 040367 43 64 35 54 65 65
7274 040370 57 76 41 43 64 65
7275 040371 41 54 35 54 65 65
7276 040372 57 00 60 43 77 00
7277 040373 65 56 45 70 60 45
7278 040374 43 64 45 44 00 54
7279 040375 65 65 57 00 57 43
7280 040376 43 65 62 45 44 77
7281 040377 040363 040366
7282 040400 000001 000002
7283 040401 040373 000000
7284 040402 740075 740076
7285 040403 60 41 47 45 00 46
7286 040404 41 51 54 77 00 00
7287 040405 60 41 47 45 00 46
7288 040406 41 51 54 00 60 43
7289 040407 00 67 62 57 56 47
7290 040410 77 00 00 00 00 00
7291 040411 040403 040405
7292 040412 000006 000007
7293 040413 037364 035201
7294 040414 51 56 64 45 62 55
7295 040415 45 44 51 41 64 45
7296 040416 00 41 43 00 51 56
7297 040417 43 57 62 62 45 43
7298 040420 64 77 00 00 00 00
7299 040421 040403 040414
7300 040422 000007 000010
7301 040423 037364 035201
7302 040424 51 56 64 45 62 55
7303 040425 45 44 51 41 64 45
7304 040426 00 41 43 13 21 00
7305 040427 51 56 43 57 62 62
7306 040430 45 43 64 77 00 00
7307 040431 040403 040424
7308 040432 000007 000011
7309 040433 037364 035201
7310 040434 51 56 64 45 62 55
7311 040435 45 44 51 41 64 45
7312 040436 00 41 43 13 22 00
7313 040437 51 56 43 57 62 62
7314 040440 45 43 64 77 00 00
7315 040441 040403 040434
7316 040442 000007 000012
7317 040443 037364 035201
7318 040444 51 56 64 45 62 55
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1-11
STOR KLM 29-Sep-86 15:27 *STOR* RESERVED STORAGE, JULY 19,1977 SEQ 0218
7319 040445 45 44 51 41 64 45
7320 040446 00 41 43 13 23 00
7321 040447 51 56 43 57 62 62
7322 040450 45 43 64 77 00 00
7323 040451 040403 040444
7324 040452 000007 000013
7325 040453 037364 035201
7326 040454 51 56 64 45 62 55
7327 040455 45 44 51 41 64 45
7328 040456 00 41 43 13 24 00
7329 040457 51 56 43 57 62 62
7330 040460 45 43 64 77 00 00
7331 040461 040403 040454
7332 040462 000007 000014
7333 040463 037364 035201
7334 040464 004000 035711
7335 040465 76 51 56 63 64 62
7336 040466 65 43 64 51 57 56
7337 040467 32 00 77 00 00 00
7338 040470 036424 035711
7339 040471 7 002 4 0 00 020000
7340 040472 000200 000201
7341 040473 100000 400000
7342 040474 036035 036036
7343 040475 036061 036062
7344 040476 015 012 101 103 040
7345 040477 102 114 117 103 113
7346 040500 123 072 011 040 040
7347 040501 040 040 040 040 040
7348 040502 055 055 055 055 040
7349 040503 106 111 116 101 114
7350 040504 040 055 055 055 055
7351 040505 015 012 040 040 040
7352 040506 117 122 111 107 111
7353 040507 116 101 114 011 040
7354 040510 040 040 103 117 122
7355 040511 122 105 103 124 011
7356 040512 040 040 040 101 103
7357 040513 124 125 101 114 015
7358 040514 012 000 000 000 000
7359 040515 76 51 56 63 64 62
7360 040516 65 43 64 51 57 56
7361 040517 00 55 41 44 45 00
7362 040520 41 56 00 51 56 43
7363 040521 57 62 62 45 43 64
7364 040522 00 77 00 00 00 00
7365 040523 63 53 51 60 00 00
7366 040524 56 15 63 53 51 60
7367 040525 00 62 45 64 65 62
7368 040526 56 76 77 00 00 00
7369 040527 077777 777777
7370 040530 76 43 41 63 45 00
7371 040531 03 00 77 00 00 00
7372 040532 76 64 62 41 56 63
7373 040533 54 41 64 51 57 56
DFKCC - DECSYSTEM10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,2 MACRO %53C(1255) 13:18 12-Jan-87 Page 1-12
STOR KLM 29-Sep-86 15:27 *STOR* RESERVED STORAGE, JULY 19,1977 SEQ 0219
7374 040534 00 64 41 42 54 45
7375 040535 32 77 00 00 00 00
7376 040536 76 43 57 44 45 75
7377 040537 46 65 56 43 64 51
7378 040540 57 56 75 43 57 44
7379 040541 45 75 46 65 56 43
7380 040542 64 51 57 56 76 77
7381 040543 75 75 77 00 00 00
7382 040544 061 061 070 060 065
7383 040545 071 061 066 062 060
7384 040546 067 061 067 064 061
7385 040547 061 063 060 063 064
7386 040550 062 064 000 000 000
7387 040551 061 061 070 060 065
7388 040552 071 061 066 062 060
7389 040553 067 061 067 064 061
7390 040554 061 063 060 063 064
7391 040555 062 063 000 000 000
7392 040556 071 070 067 066 065
7393 040557 064 060 000 000 000
7394 040560 061 000 000 000 000
7395 040561 060 000 000 000 000
7396 040562 066 071 067 000 000
7397 040563 061 062 063 064 065
7398 040564 066 000 000 000 000
7399 LIST
7400 041072 000000 000000 ENDSLD: 0
7401
7402 IFDEF DEBUG,<
7403 041073 PATCH: BLOCK DEBUG ;PATCHING AREA
7404 >
7405
7406 ;PROGRAM VARIABLES
7407 041173 VAR
7408
7409 IFDEF PGMEND,<
7410 041237 000000 000000 END: 0
7411 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 041240
CPU TIME USED 00:22.372
72P CORE USED
ABORT 489#
AC 67# 1195 1196 1204 1220 1221 1229 1269 1285 1290 1297 1300 1301 1305 SEQ 0220
1313 1316 1335 1340 1348 1375 1376 1380 1388 1613 1624 1863 1874 2058
2067 2215 2224 2318 2397 2474 2546 2624 2670 2679 2752 2824 2896 2968
3045 3117 3256 3258 3279 3286 3417 3419 3440 3447 3578 3580 3601 3608
3739 3741 3762 3769 3900 3902 3923 3930 4036 4037 4107 4108 4110 4111
4251 4252 4357 4358 4419 4499 4500 5545 5548 5551 5554 5557 5631 5634
5637 5640 5643
AC0 84# 1557 1558 1567 1568 1582 1585 1590 1598 1603 1613 1614 1663 1677
1790 1792 1798 1800 1803 1804 1807 1808 1827 1850 1863 1864 1903 1905
1933 1936 2011 2012 2015 2017 2037 2058 2059 2127 2130 2194 2215 2216
2277 2281 2294 2295 2306 2307 2356 2360 2373 2374 2385 2386 2433 2437
2450 2451 2462 2463 2505 2509 2522 2523 2534 2535 2583 2587 2600 2601
2612 2613 2645 2646 2648 2652 2653 2659 2660 2661 2664 2665 2670 2671
2711 2715 2728 2729 2740 2741 2783 2787 2800 2801 2812 2813 2855 2859
2872 2873 2884 2885 2927 2931 2944 2945 2956 2957 3004 3008 3021 3022
3033 3034 3076 3080 3093 3094 3105 3106 3178 3179 3202 3203 3206 3209
3210 3211 3212 3214 3215 3230 3231 3235 3236 3241 3244 3249 3251 3252
3254 3258 3259 3262 3264 3331 3332 3333 3334 3363 3364 3367 3370 3371
3372 3373 3375 3376 3391 3392 3396 3397 3402 3405 3410 3412 3413 3415
3419 3420 3423 3425 3492 3493 3494 3495 3524 3525 3528 3531 3532 3533
3534 3536 3537 3552 3553 3557 3558 3563 3566 3571 3573 3574 3576 3580
3581 3584 3586 3653 3654 3655 3656 3685 3686 3689 3692 3693 3694 3695
3697 3698 3713 3714 3718 3719 3724 3727 3732 3734 3735 3737 3741 3742
3745 3747 3814 3815 3816 3817 3846 3847 3850 3853 3854 3855 3856 3858
3859 3874 3875 3879 3880 3885 3888 3893 3895 3896 3898 3902 3903 3906
3908 3975 3976 3977 3978 4036 4037 4092 4094 4107 4108 4237 4238 4251
4252 4335 4337 4357 4358 4363 4419 4420 4477 4478 4480 4481 4487 4488
4499 4500 4568 4569 4704 4705 4729 4765 4773 4775 4776 4797 4798 4799
4803 4806 4839 4840 4852 4860 4861 4888 4912 4925 4927 4928 4946 4947
4948 4952 4966 4996 5007 5009 5010 5031 5033 5035 5039 5042 5048 5057
5058 5088 5097 5109 5160 5168 5175 5179 5219 5224 5297 5298 5425 5426
5428 5429 5436 5437 5439 5440 5447 5448 5450 5451 5462 5463 5468 5473
5474 5481 5502 5503 5511 5517 5522 5536 5537 5578 5581 5584 5599 5600
5601 5602 5603 5604 5605 5611 5612 5614 5615 5630 5633 5636 5639 5642
5647 5648 5694 5697 5698 5701 5702 5705 5706 5708 5715 5720 5721 5728
5737 5761 5771 5779 5784 5786 5792 5801 5813 5825 5832 5836 5837 5838
5842 5849 5851 5852 5853 5855 5858 5866 5878 5879 5880 5884 5885 5891
5892 5893 5897 5898 5905
AC0SV 5656# 5656 5673
AC1 85# 1121 1123 1124 1853 1893 1896 1897 1900 1901 1905 1909 1946 1947
1956 1959 1962 1965 1995 2027 2085 2088 2089 2092 2095 2098 2101 2140
2141 2184 2300 2301 2379 2380 2456 2457 2528 2529 2606 2607 2649 2650
2652 2654 2656 2662 2734 2735 2806 2807 2878 2879 2950 2951 3027 3028
3099 3100 3194 3195 3202 3235 3338 3355 3356 3363 3396 3499 3516 3517
3524 3557 3660 3677 3678 3685 3718 3821 3838 3839 3846 3879 3982 4730
4735 4739 4744 4764 4807 4812 4816 4817 4822 4823 4829 4830 4851 4889
4892 4896 4897 4911 4967 4972 4978 4979 4985 4986 4995 5043 5051 5066
5074 5080 5108 5138 5152 5153 5194 5202 5205 5207 5212 5236 5244 5370
5377 5380 5383 5390 5400 5403 5406 5409 5422 5433 5444 5482 5485 5488
5491 5494 5497 5512 5514 5517 5521 5716 5718 5720 5721 5724 5727 5738
5744 5746 5750 5754 5758 5760 5770 5771 5802 5806 5810 5824 5838 5867
5869 5870 5878 5884 5891 5897 5902 5904
AC10 92# 5274 5332
AC10SV 5664# 5664 5681 SEQ 0221
AC11 93# 5278 5337
AC11SV 5665# 5665 5682
AC12 94# 4717 4788 4873 4940 5022 5282 5342
AC12SV 5666# 5666 5683
AC13 95# 4830 5286 5347
AC13SV 5667# 5667 5684
AC14 96# 5290 5352
AC14SV 5668# 5668 5685
AC15 97#
AC15SV 5669# 5669 5686
AC16SV 5670# 5670 5687
AC1SV 5657# 5657 5674
AC2 86# 1894 1898 1900 1904 1906 1908 2086 2090 2092 2093 2094 2100 2292
2293 2371 2372 2448 2449 2520 2521 2598 2599 2657 2660 2665 2726 2727
2798 2799 2870 2871 2942 2943 3019 3020 3091 3092 3200 3204 3336 3361
3365 3497 3522 3526 3658 3683 3687 3819 3844 3848 3980 4046 4047 4053
4068 4129 4137 4138 4140 4145 4153 4157 4159 4173 4366 4380 4385 4392
4396 4398 4434 4435 4444 4455 4457 4507 4508 4509 4587 4591 4649 4651
4652 4731 4740 4745 4763 4808 4818 4824 4825 4831 4850 4890 4898 4910
4968 4980 4981 4987 4994 5044 5067 5075 5076 5081 5107 5139 5195 5202
5237 5244 5813
AC2SV 5658# 5658 5675
AC3 87# 2004 2005 2009 2299 2300 2378 2379 2455 2456 2527 2528 2605 2606
2733 2734 2805 2806 2877 2878 2949 2950 3026 3027 3098 3099 3217 3334
3378 3495 3539 3656 3700 3817 3861 3978 4039 4059 4062 4064 4074 4077
4081 4083 4084 4391 4395 4399 4402 4405 4407 4410 4441 4451 4506 4507
4515 4517 4524 4525 4555 4556 4578 4579 4580 4581 4582 4584 4587 4595
4598 4599 4605 4606 4636 4637 4638 5630 5633 5636 5639 5642 5647
AC3SV 5659# 5659 5676
AC4 88# 1278 1319 1330 1353 1373 1393 1583 1594 1607 1853 1854 1855 1856
1857 2007 2017 3218 3332 3379 3493 3540 3654 3701 3815 3862 3976 4052
4055 4058 4061 4067 4070 4073 4076 4192 4196 4280 4284 4439 4442 4450
5047 5048 5062 5084 5091 5092 5100 5270 5277 5281 5285 5289 5328 5336
5341 5346 5351 5390 5391 5392 5393 5466 5473 5803 5808 5817 5823
AC4SV 5660# 5660 5677
AC5 89# 1279 1285 1301 1317 1329 1335 1351 1372 1376 1391 1947 1948 1949
1950 1957 1960 1963 1966 1995 1996 1997 1998 2012 2027 2028 2029 2030
2031 2141 2142 2143 2144 2172 2173 2174 2175 2184 2185 2186 2187 2188
4053 4055 4058 4061 4068 4070 4073 4076 4129 4158 4159 4160 4172 4261
4295 4439 4449 4453 4456 4462 4463 4466 4469 4471 5467 5470
AC5SV 5661# 5661 5678
AC6 90# 1146 1147 1156 1275 1276 1283 1321 1327 1332 1355 1444 1445 1450
1578 1616 1633 1651 1652 1659 1786 1803 1866 1883 1925 1926 1932 2076
2117 2118 2126 2233 4110 4190 4195 4196 4199 4200 4235 4254 4255 4266
4323 4434 4463 5266 5267 5322 5323
AC6SV 5662# 5662 5679
AC7 91# 1283 1284 1332 1334 1369 1371 1447 1448 1466 1486 1515 1632 1654
1655 1684 1701 1754 1882 1928 1929 2075 2120 2121 2232 2284 2285 2327
2363 2364 2406 2440 2441 2483 2512 2513 2555 2590 2591 2633 2667 2718
2719 2761 2790 2791 2833 2862 2863 2905 2934 2935 2977 3011 3012 3054
3083 3084 3126 4042 4043 4052 4067 4143 4149 4151 4166 4167 4172 4173
4176 4183 4184 4185 4186 4187 4189 4192 4198 4202 4203 4209 4211 4268
4272 4273 4274 4275 4277 4280 4286 4292 4295 4296 4298 4310 4311 4505 SEQ 0222
4506 4556 4635 4636 4639 4640 5265 5267 5270 5272 5274 5277 5278 5281
5282 5285 5286 5289 5290 5321 5323 5328 5330 5332 5336 5337 5341 5342
5346 5347 5351 5352 5370 5836
AC7SV 5663# 5663 5680
AFS 142# 6578 6585
ALD 141# 1606 6519 6525 6547 6550
ALS 140# 1593 6520 6531 6541 6556 6581 6588
ALTMGO 843#
ALTPT 117# 1467 1685 6516 6517 6525 6526 6531 6532 6533 6535 6540 6541 6544
6547 6549 6550 6553 6556 6565 6566 6572 6574 6576 6578 6581 6583 6585
6588
ANXM 757#
APAT 1470 1687 6208#
APR 1101
AROV 757#
AROVU 757#
AST 958#
ATSIN 959#
B0 144# 1956 1959
BDH 68# 2175 4368 4372 4374 4377 4382 4408 4410 4416 4934
BDL 71# 4367 4369 4378 4416 4937
BEGEND 839# 3174 3986
BEGIN 39 40 41 45 46 47 48 49 704 705 770# 7411
BEGIN1 786# 840
BELL 962#
BIS 757#
BIT0 1815 1839 1957 1983 2048 2160 2205 3256 3417 3578 3739 3900 5272 5330
5378 5492 5983#
BIT1 1818 1842 1986 2051 2163 2208 5381 5495 5984#
BIT18 1830 1960 2039 2196 5483 5986#
BIT19 1833 2042 2199 5486 5987#
BIT2 1821 1845 1989 2054 2166 2211 5384 5498 5985#
BIT20 1836 2045 2202 5489 5988#
BPAT 1476 1511 1692 1750 6209#
BYTAB 5048 6054#
BYTYPE 2278 2357 2434 2506 2584 2712 2784 2856 2928 3005 3077 5047 5462 6070#
C1 164# 1829 2038 2195 5482
C1A 217# 6565 6574 6576 6578 6579 6584 6585 6683 6684 6685 6686 6688 6691
6692 6693 6694 6700
C2 165# 1832 2041 2198 5485
C2A 218# 6565 6567 6571 6574 6579 6681 6682 6685 6686 6689 6691 6695 6701
C3 166# 1835 2044 2201 5488
C3A 219# 6565 6579 6680 6682 6684 6686 6690 6691 6692 6696 6702
C4 167# 1838 2047 2204 5491
C4A 220# 6579 6587 6675 6676 6677 6678 6691 6697
C5 168# 1841 2050 2207 5494
C5A 221# 6564 6568 6569 6579 6673 6674 6677 6678 6689 6691 6693 6698
C6 169# 1844 2053 2210 5497
C6A 222# 6569 6579 6672 6674 6676 6678 6688 6690 6691 6699
CB1 6169 6178#
CB2 6170 6180#
CB3 6171 6182#
CB4 6172 6184# SEQ 0223
CB5 6173 6186#
CB6 6174 6188#
CB7 6175 6190#
CB8 6176 6192#
CBD1 2120# 2233
CBD2 2123# 2230 2232
CBD3 2181#
CBD4 2182 2191#
CBDC1 4929 4934#
CBDC2 4944 4955#
CBDC3 4946# 4964
CBDCAS 2120 2121 4972 6632 6633#
CBDCOM 2228 4925#
CBDEND 6632 6664#
CBDEX 4416#
CBDFAI 4932 4935 4938 4941 4949 4952# 4956 4959 4963
CBDM 2117# 2235
CBDMOD 2079 2113#
CBDNXT 3787 3796 3802 3814#
CBDOST 4383 4410#
CBDOVF 4380 4386 4414 4474#
CBDPC 3730 3741#
CBDPC1 3747 3762#
CBDPC2 3745 3759 3769#
CBDPF0 3683# 3786 3795 3801 3813 3821
CBDPF1 3716# 3819
CBDPF3 3766 3780#
CBDPF9 3790 3798#
CBDPFA 3690 3700#
CBDPFX 3753 3789#
CBDPNT 2229 4966#
CBDRT1 4994#
CBDS1 4372 4380#
CBDS2 4392# 4396
CBDS3 4389 4393 4398#
CBDSIM 2219 3805 4351#
CBDST 3672#
CBDTAB 2118 3678 5950#
CBDTR 5536 6154#
CBDTRN 2213 3738 5536#
CCA 757#
CDB1 1928# 2076
CDB2 1931# 2073 2075
CDB3 2009# 2018
CDB3A 2009 2024#
CDB4 2025 2034#
CDBC1 4862 4867#
CDBCAS 1928 1929 4892 6594 6595#
CDBCOM 2071 4860#
CDBDON 4266 4319#
CDBEND 6594 6626#
CDBFAI 4865 4868 4871 4874 4877 4880 4883 4886#
CDBLEG 4270 4295# SEQ 0224
CDBM 1925# 2078
CDBMOD 1702 1755 1886 1921#
CDBNXT 3626 3635 3641 3653#
CDBOUT 4282 4296 4299 4323#
CDBPC 3569 3580#
CDBPC1 3586 3601#
CDBPC2 3584 3598 3608#
CDBPF0 3522# 3625 3634 3640 3652 3660
CDBPF1 3555# 3658
CDBPF3 3605 3619#
CDBPF9 3629 3637#
CDBPFA 3529 3539#
CDBPFX 3592 3628#
CDBPNT 2072 4888#
CDBRET 4330 4335#
CDBRT1 4910#
CDBS1 4259 4266# 4287 4317
CDBSIM 2062 3644 4247#
CDBST 3511#
CDBTAB 1926 3517 5948#
CDBTN 3577 5529#
CDBTRN 2056 2085#
CHAIN 509#
CHKA2 1675 1684#
CHKB1 1468 1473#
CHKB2 1686 1690#
CHKC1 1474 1479#
CHKC2 1691 1695#
CHKTRN 3238 3399 3560 3721 3882 5576#
CHNGPE 5301 5599# 5620
CHNOFF 757#
CHNON 757#
CHNTAB 5139 5970#
CLK 757#
CLKCLR 757#
CLKDIS 757#
CLKENB 757#
CLKU 757#
CLOCKF 825#
CLRSTR 1657 2123 2290 2315 2369 2394 2446 2471 2518 2543 2596 2621 2643 2724
2749 2796 2821 2868 2893 2940 2965 3017 3042 3089 3114 3227 3388 3549
3710 3871 5694#
CMP1 1447# 1633
CMP2 1450# 1486 1515 1630 1632
CMPB1 1555 1562#
CMPB2 1565 1572#
CMPBYT 1492 1527 1533 1538 1544 1548 1554#
CMPC1 4706 4711#
CMPCAS 1447 1448 4735 6515 6516#
CMPCOM 1628 4704#
CMPDON 4050 4081#
CMPEND 6515 6557#
CMPER1 1480 1485# SEQ 0225
CMPER2 1510 1514#
CMPF1 1499 1504#
CMPF2 1505 1509#
CMPFAI 4709 4712 4715 4718 4721 4724 4727#
CMPFIL 1498#
CMPL 1502 1507 1512 1523#
CMPL1 1524 1529#
CMPL2 1530 1535#
CMPL3 1536 1540#
CMPLEN 1471 1477 1483 1489#
CMPM 1444# 1635
CMPMOD 1363 1396 1440#
CMPNXT 3304 3313 3319 3331#
CMPOUT 4065 4079 4083#
CMPPC 3247 3258#
CMPPC1 3264 3279#
CMPPC2 3262 3276 3286#
CMPPF0 3200# 3303 3312 3318 3330 3338
CMPPF1 3233# 3336
CMPPF3 3283 3297#
CMPPF9 3307 3315#
CMPPFA 3207 3217#
CMPPFX 3270 3306#
CMPPNT 1629 4729#
CMPRET 4763#
CMPS1 4041# 4071
CMPS2 4049 4052#
CMPS3 4056 4067#
CMPSIM 1619 3322 4032#
CMPST 3189# 3985
CMPSTR 1578#
CMPT1 1281# 1319
CMPTAB 1445 3195 5937#
CMPTRP 1278# 1298 1314 1321
CNTLC 842#
COMAC 3326 3487 3648 3809 3970 5545#
COMFAI 5546 5549 5552 5555 5558 5561#
COMMA 951#
COMPNT 3329 3490 3651 3812 3973 5563#
COMRT 5722 5727#
COMS1 5720# 5724
COMSTR 4794 4882 5028 5715#
CONSW 826#
CPAT 1482 1697 6210#
CPOPJ 846#
CPOPJ1 844#
CRLF 639 640 946#
CRLF2 643 644 948#
CRY0 757#
CRY1 757#
CSET1 1587# 1591
CSET2 1588 1593#
CSET3 1600# 1604 SEQ 0226
CSET4 1601 1606#
CSHFLG 1005#
CSHMEM 1006#
CYCL60 999#
D44 134# 1564 1775 5406 5409 6516 6519 6521 6525 6527 6528 6530 6531 6532
6537 6538 6543 6546 6552 6555 6564 6566 6572 6577 6579 6580 6584 6586
6587
DATA 178# 1996 2173
DATA0 175# 6599 6600 6601 6602 6607 6608 6609 6610 6615 6616 6617 6618 6623
6624 6625 6626 6637 6638 6639 6640 6645 6646 6647 6648 6653 6654 6655
6656 6661 6662 6663 6664
DATA1 176# 6597 6598 6601 6602 6605 6606 6609 6610 6613 6614 6617 6618 6621
6622 6625 6626 6635 6636 6639 6640 6643 6644 6647 6648 6651 6652 6655
6656 6659 6660 6663 6664
DATA2 177# 6596 6598 6600 6602 6604 6606 6608 6610 6612 6614 6616 6618 6620
6622 6624 6626 6634 6636 6638 6640 6642 6644 6646 6648 6650 6652 6654
6656 6658 6660 6662 6664
DATASH 233# 1997 2174
DATCBD 2175 6169#
DATTAB 1998 6145#
DBH 73# 1963 4264 4290 4302 4304 4307 4312 4315 4320 4326 4333 4876
DBL 76# 1966 4262 4264 4290 4301 4303 4306 4308 4311 4314 4324 4327 4333
4879
DCK 757#
DDTLNK 523# 784
DDTSRT 784#
DEBUG 33# 7402 7403
DECFIL 4455# 4457
DECLDN 4452 4455 4459#
DECP4 4444 4449#
DECPN1 4450 4451 4461#
DECPN2 4447 4472#
DECPN3 4426 4439# 4461
DECPNR 4429 4432 4437#
DECPNT 4411 4426#
DECVER 4# 9 22 805
DESTIN 1267 1569 1572 1777 1780 2151 2153 4798 4839 4947 5033 5057 5407 5410
5700 5701 5702 5720 6025# 6261 6268 6275 6303 6310 6352 6359 6366 6399
6405 6411 6435 6441 6477 6483 6489
DF22F 910#
DIAGMN 773#
DING 495#
DLEN 72# 1455 1531 1537 1542 1596 1668 1714 1719 1724 2144 2160 2163 2166
4045 4050 4089 4090 4116 4131 4138 4152 4162 4181 4204 4210 4227 4231
4232 4366 4370 4375 4388 4417 4428 4452 4475 4484 4720 4791 4943
DLEN1 80# 1596 1600
DOCBD 3781 3805#
DOCDB 3620 3644#
DOCMP 3298 3322#
DOEDT 3942 3966#
DOLLAR 965#
DOMOV 3459 3483#
DP 75# 1267 1569 1572 1597 1777 1780 2151 2153 4047 4114 4151 4158 4176 SEQ 0227
4203 4211 4361 4395 4407 4435 4456 4471 4503 4525 4606 4628 4648 4652
4723 4797 4946 5031 5407 5410
DP1 81# 1597 1598 1603 1607
DPAT 1506 1745 6211#
DSKUPD 810
DSZER 110# 1535 1717 6535 6536 6537 6538 6574
DZERO 109# 1529 1712 6529 6530 6531 6532 6533 6534
E0 1199 1204 1211 1224 1229 1237 1281 1290 1305 1333 1340 1370 1380 1459
1460 1526 1532 1543 1547 1558 1568 1624 1672 1757 1808 1857 1874 1931
2031 2035 2067 2125 2188 2192 2224 2318 2397 2474 2546 2624 2645 2646
2649 2679 2752 2824 2896 2968 3045 3117 3197 3198 3252 3279 3358 3359
3413 3440 3519 3520 3574 3601 3680 3681 3735 3762 3841 3842 3896 3923
4042 4046 4149 4160 4166 4209 4261 4363 4391 4453 4524 4598 4649 4749
4753 4835 5088 5097 5426 5429 5437 5440 5448 5451 5455 5456 5503 5980#
6029
E0FIL1 1541 1546#
E0OP 1284 1334 1371 1451 1660 1933 2127 3244 3405 3566 3727 3888 4034 4105
4249 4355 5770 6029#
E1 1807 1897 1903 2034 2089 2097 2191 3249 3410 3571 3732 3893 4186 4187
4274 4275 4405 4434 4469 4581 4582 5502 5529 5536 5537 5870 5981#
EABORT 4566# 4589
ED1WD 2300 6078#
ED2WD 2379 6083#
ED3WD 2456 6088#
ED4WD 2528 6092#
ED5WD 2606 6097#
ED6WD 2734 6102#
ED7AWD 2806 6107#
ED7BWD 2878 6112#
ED7CWD 2950 6117#
ED8WD 3027 6122#
ED9WD 3099 6127#
EDIT1 1375# 1389 1393
EDITRP 1358 1369#
EDM1 2287# 2326 2327
EDM2 2366# 2405 2406
EDM3 2443# 2482 2483
EDM4 2515# 2554 2555
EDM5 2593# 2632 2633
EDM5A 2636 2643# 2685
EDM6 2721# 2760 2761
EDM7A 2793# 2832 2833
EDM7B 2865# 2904 2905
EDM7C 2937# 2976 2977
EDM8 3014# 3053 3054
EDM9 3086# 3125 3126
EDMD7A 2764 2780#
EDMD7B 2836 2852#
EDMD7C 2908 2924#
EDMOD1 2274# 3132
EDMOD2 2330 2353#
EDMOD3 2409 2430#
EDMOD4 2486 2502# SEQ 0228
EDMOD5 2558 2580#
EDMOD6 2687 2708#
EDMOD8 2980 3001#
EDMOD9 3057 3073#
EDMODM 2236 2259#
EDS2 5423 5433#
EDS3 5434 5444#
EDS4 5445 5455#
EDS5 5470# 5475
EDS6 5471 5481#
EDSRTN 5431 5442 5453 5464 5502#
EDTC1 5011 5016#
EDTCAS 2284 2285 2363 2364 2440 2441 2512 2513 2590 2591 2718 2719 2790 2791
2862 2863 2934 2935 3011 3012 3083 3084 5051 6670 6671#
EDTCOM 2322 2401 2478 2550 2628 2683 2756 2828 2900 2972 3049 3121 5007#
EDTEND 6670 6702#
EDTFAI 5014 5017 5020 5023 5026 5029 5036 5039#
EDTNXT 3948 3957 3963 3975#
EDTP1 5063 5070#
EDTP1A 5055 5060#
EDTP2 5071 5084#
EDTP2A 5085 5091#
EDTP4 5094 5100#
EDTPC 3891 3902#
EDTPC1 3908 3923#
EDTPC2 3906 3920 3930#
EDTPF0 3844# 3947 3956 3962 3974 3982
EDTPF1 3877# 3980
EDTPF3 3927 3941#
EDTPF9 3951 3959#
EDTPFA 3851 3861#
EDTPFX 3914 3950#
EDTPNT 2325 2404 2481 2553 2631 2684 2759 2831 2903 2975 3052 3124 5042#
EDTRT1 5107#
EDTS2 4505# 4533 4558
EDTSET 2297 2376 2453 2525 2603 2668 2731 2803 2875 2947 3024 3096 5370#
EDTSIM 2310 2389 2466 2538 2616 2674 2744 2816 2888 2960 3037 3109 3966 4497#
EDTST 3833#
EDTTAB 3839 5947#
EEXCHD 4628# 6230
EF 241# 4081 6041 6042 6044
EFLDSP 4621# 6229
EMESSG 4523# 6218
END 7410#
ENDFIX 1085#
ENDSLD 7400#
ENOP 4516 4526 4532# 4540 4548 4599 4607 4615 4622 4629 6219 6220 6221 6231
EOPER 4515# 6217
EQFIL 125# 1498 1738 5422 6523 6525 6528 6529 6530 6531 6534 6535 6536 6537
6538 6540 6541 6546 6549 6550 6555 6572 6576 6577 6581 6583 6584 6588
6671 6674 6677 6680 6683 6686 6689 6692 6695 6698 6701
EQLEN 107# 1491 1705 6516 6517 6518 6519 6520 6521 6557 6564 6565 6566 6567
6568 6569 SEQ 0229
ERMORE 859#
ERRPC 830#
ERRTLS 831#
ERSTOP 498#
ESEL 4523 4598#
ESEL1 4596 4602#
ESEL2 4593 4600 4605#
ESELCT 4578# 6227
ESIGST 4613# 6228
ESKPA 4541 4549 4555# 6224
ESKPM 4539# 6222
ESKPN 4547# 6223
ESTOP 4564# 6226
EXCASB 31# 808
EXCHMD 252# 6083 6084 6085 6086
EXIOT 757#
EXLAB 1157 1158 1161# 1171
FAILOC 3265# 3265 3426# 3426 3587# 3587 3748# 3748 3909# 3909 5266 5322
FILE0 2652# 2654
FILLF 3240 3243 3250 3261 3263 3275 3401 3404 3411 3422 3424 3436 3562 3565
3572 3583 3585 3597 3723 3726 3733 3744 3746 3758 3884 3887 3894 3905
3907 3919 5645 5649# 5649
FLDSEP 251# 6092 6093 6094 6095
FOV 757#
FOVU 757#
FRDLNK 521#
FSELNK 520#
FXU 757#
GF 240# 4062 4077 6044 6045 6046
GFILL 127# 1509 1748 5444 6524 6527 6532 6542 6545 6547 6551 6554 6556 6573
6579 6586 6673 6676 6679 6682 6685 6688 6691 6694 6697 6700
GOCBD 2189 2215#
GOCDB 2032 2058#
GOMOV 1848 1851 1863#
GOTRAP 1155# 1155 1168 1201 1208 1226 1233 1287 1294 1302 1309 1337 1344 1377
1384 5162 5221
HW 145# 1962 1965
HYPEN 956#
INCPBN 4532 4557 4566 4635#
INCSKP 1118# 1118 4708 4759 4761 4779 4846 4848 4864 4906 4908 4931 4990 4992
5013 5103 5105
INHCSH 506#
INHPAG 503#
INSTR 3236# 3236 3397# 3397 3558# 3558 3719# 3719 3880# 3880 5514
INXM 757#
IOCLR 757#
ITERAT 34# 803
ITRCH1 863#
ITRCNT 803#
JOB41 757#
JOBAPR 757#
JOBCNI 757#
JOBDDT 757# SEQ 0230
JOBFF 757#
JOBOPC 757#
JOBREL 757#
JOBREN 757#
JOBSA 757#
JOBSYM 757#
JOBTPC 757#
JOBUSY 757#
JOBUUO 757#
JOBVER 757#
KA10 757
KAHZ50 511#
KAIFLG 820#
KI10 757
KL10 36# 757
KL10P0 37# 757
KLFLG 821#
KLOLD 719
KLPMSK 5596# 5601
LAPRAL 757#
LAPRP1 757#
LAPRP2 757#
LAPRP3 757#
LAPRP4 757#
LAPRP5 757#
LAPRP6 757#
LAPRP7 757#
LAROVT 757#
LCADEN 757#
LCADRP 757#
LCASDE 757#
LCASLD 757#
LCASLO 757#
LCASWB 757#
LCASWD 757#
LCCAER 757#
LCCASD 757#
LCHNOF 757#
LCHNON 757#
LCIOPF 757#
LCNTRP 757#
LCNTXT 757#
LCNXER 757#
LCPAER 757#
LCPWRF 757#
LCSAER 757#
LCSBER 757#
LCSLOA 757#
LCSLOO 757#
LCTRP 757#
LCWSX 757#
LDATAF 757#
LDCAER 757# SEQ 0231
LDCASD 757#
LDIOPF 757#
LDLNK 522# 773 775
LDNXER 757#
LDPAER 757#
LDPWRF 757#
LDSAER 757#
LDSBER 757#
LEBXMH 757#
LEBXML 757#
LECAER 757#
LECASD 757#
LEIOPF 757#
LENXER 757#
LEPAER 757#
LEPWRF 757#
LESAER 757#
LESBER 757#
LEUPFW 757# 5617
LEVNCD 757#
LEVNPA 757#
LEVNPD 757#
LEVTAB 5139 5972#
LEXCMP 757#
LF 242# 4059 4074 6040 6042 6045
LFILL 126# 1504 1743 5433 6526 6533 6543 6544 6552 6553 6571 6574 6578 6580
6585 6587 6672 6675 6678 6681 6684 6687 6690 6693 6696 6699 6702
LFLGCL 757#
LFLGDS 757#
LFLGEN 757#
LFLGST 757#
LFP 960#
LINSTF 757#
LINT 757#
LIOCLR 757#
LIOPFE 757#
LKNTRP 757#
LKTRP 757#
LLACBL 757#
LLDUSB 757# 5622
LLPRCN 757#
LMBXMH 757#
LMBXML 757#
LMUUO 757#
LMUUOP 757#
LNXMEN 757#
LNXMER 757#
LOOPER 497#
LPAREN 757#
LPARER 757#
LPDOVT 757#
LPFWPC 757# 5265 5303 5321
LPGFTR 757# 3179 SEQ 0232
LPICH1 757#
LPICH2 757#
LPICH3 757#
LPICH4 757#
LPICH5 757#
LPICH6 757#
LPICH7 757#
LPICHA 757#
LPICLR 757#
LPIIP1 757#
LPIIP2 757#
LPIIP3 757#
LPIIP4 757#
LPIIP5 757#
LPIIP6 757#
LPIIP7 757#
LPIOFF 757#
LPION 757#
LPNTRP 757#
LPRCH1 757#
LPRCH2 757#
LPRCH3 757#
LPRCH4 757#
LPRCH5 757#
LPRCH6 757#
LPRCH7 757#
LPRFMH 757#
LPRFML 757#
LPTRP 757#
LPWRFE 757#
LPWRFL 757#
LREQSE 757#
LRQCLR 757#
LSADEN 757#
LSADRP 757#
LSBSEN 757#
LSBUSE 757#
LSCAER 757#
LSCASD 757#
LSECMO 757#
LSIOPF 757#
LSMODE 757#
LSNTRP 757#
LSNXER 757#
LSPAER 757#
LSPWRF 757#
LSSAER 757#
LSSBER 757#
LSTRP 757#
LTAB 1950 2144 6199#
LTBASH 757#
LTBASL 757#
LTRP3T 757# SEQ 0233
LTRPAE 757#
LTRPEN 757# 5603
LUSCMP 757#
LUUO 757#
LUUO1 890 891
LUUO10 890 895
LUUO11 890 895
LUUO12 890 896
LUUO13 890 896
LUUO14 890 897
LUUO15 890 897
LUUO16 890 898
LUUO17 890 898
LUUO2 890 892
LUUO20 890 899
LUUO21 890 899
LUUO22 890 900
LUUO23 890 900
LUUO24 890 901
LUUO25 890 901
LUUO26 890 902
LUUO27 890 902
LUUO3 890 892
LUUO30 890 903
LUUO31 890 903
LUUO32 890 904
LUUO33 890 904
LUUO4 890 893
LUUO5 890 893
LUUO6 890 894
LUUO7 890 894
LUUOH 1152 5219#
LUUOHX 5222 5233#
LUUOI 757#
LWRITE 757#
MA 74# 2304 2383 2460 2532 2610 2738 2810 2882 2954 3031 3103 4628 4648
5025 5412
MAPNEW 911#
MARGIN 833#
MCASE 2667 6704#
MCNVER 3# 9 22 805
MEMLOW 913#
MEMMAP 811
MEMSIZ 914#
MEMTOT 912#
MESSAG 254# 6097 6098 6099 6100
MESSGS 2645 6706#
MFL 156# 1820 1988 2165 5383
MFL1 214# 6564 6568 6576 6580 6584 6587 6595 6597 6598 6600 6602 6604 6606
6610 6614 6617 6618 6672 6674 6676 6678 6680 6682 6684 6686 6688 6690
6692 6694 6696 6698 6700 6702
MIC202 1097# 1097 1105 1107 4483
MINUS 955# SEQ 0234
MODDVC 505#
MODDVL 704 704# 806
MODDVU 705 705# 807
MODLNK 524# 770
MONCTL 823#
MONFLG 822#
MONTEN 824#
MONTYP 1037# 5133 5171 5206
MOV1 1654# 1883
MOV2 1657# 1701 1754 1880 1882
MOVB1 1764 1767 1771#
MOVB2 1773 1776 1780#
MOVBYT 1706 1715 1720 1725 1763#
MOVC1 4777 4782#
MOVCAS 1654 1655 4812 6563 6564#
MOVCOM 1878 4773#
MOVEND 6563 6588#
MOVER1 1696 1700#
MOVER2 1749 1753#
MOVF1 1739 1743#
MOVF2 1744 1748#
MOVF3 1741 1746 1751 1757#
MOVFAI 4780 4783 4786 4789 4792 4795 4800 4803#
MOVFIL 1730 1738#
MOVL 1712#
MOVL1 1713 1717#
MOVL2 1718 1722#
MOVL3 1723 1727#
MOVL4 1728 1732#
MOVLEN 1678 1688 1693 1698 1704#
MOVM 1651# 1885
MOVMOD 1487 1516 1636 1647#
MOVNXT 3465 3474 3480 3492#
MOVOFF 1805 1850#
MOVOP 1795 1803#
MOVOUT 4121 4215 4221 4229#
MOVPC 3408 3419#
MOVPC1 3425 3440#
MOVPC2 3423 3437 3447#
MOVPF0 3361# 3464 3473 3479 3491 3499
MOVPF1 3394# 3497
MOVPF3 3444 3458#
MOVPF9 3468 3476#
MOVPFA 3368 3378#
MOVPFX 3431 3467#
MOVPL 4174 4227#
MOVPNT 1879 4806#
MOVRET 4850#
MOVS1 4143# 4145
MOVS1A 4117 4123#
MOVS2 4141 4149#
MOVS2A 4151# 4153
MOVS3 4132 4135 4147 4155 4162# 4177 SEQ 0235
MOVS4 4170 4176#
MOVSIM 1869 3483 4103#
MOVSOS 4127 4157#
MOVST 3350#
MOVST1 4179 4181 4206#
MOVST2 4210# 4212
MOVST3 4194 4210 4214#
MOVSTR 1786#
MOVSTS 4124 4179# 4200 4204
MOVTAB 1652 3356 5943#
MPVU 757#
MUOPC 5174 5205 5972 5974#
MUUO10 5134 5152#
MUUOH 5122 5160# 5961 5971
MUUOH1 5172 5178#
MUUOHS 1113 5119#
MUUOHU 5166 5171#
MUUOHX 5163 5191#
MUUOHY 5192 5205#
MVS1 1329# 1355
MVS2 1332# 1349 1353
MVSTRP 1327#
NFL 157# 1817 1985 2162 5380
NFL1 215# 6564 6565 6567 6572 6576 6580 6585 6587 6596 6597 6598 6601 6603
6604 6607 6610 6613 6616 6618 6673 6674 6677 6678 6681 6682 6685 6686
6689 6690 6693 6694 6697 6698 6701 6702
NOP 253# 6102 6103 6104 6105
NOP1 258# 6127
NOP2 259# 6128
NOP3 260# 6129
NOP4 261# 6130
NOPNT 493#
NXMU 757#
OFF 194# 1854 2028 2185
OFF0 192#
OFF1 193# 6564 6565 6566 6567 6569 6580 6581 6587 6588 6595 6596 6597 6599
6600 6601 6602 6603 6604 6605 6606 6607 6609 6610 6611 6612 6614 6615
6616 6617 6618 6619 6620 6621 6622 6623 6624 6625 6626 6640
OFFSET 1114 2280 2282 2303 2314 2329 2359 2361 2382 2393 2408 2436 2438 2459
2470 2485 2508 2510 2531 2542 2557 2586 2588 2609 2620 2635 2714 2716
2737 2748 2763 2786 2788 2809 2820 2835 2858 2860 2881 2892 2907 2930
2932 2953 2964 2979 3007 3009 3030 3041 3056 3079 3081 3102 3113 3128
3192 3339 3353 3500 3514 3661 3675 3822 3836 3983 4113 4360 4502# 4502
5032 5054 5070
OFFSH 231# 1855 2029 2186
OFFTAB 1856 2030 2187 6136#
OFS 4364# 4364 4402 4466
ONEPT 118# 1479 1695 6518 6519 6524 6527 6530 6538 6542 6546 6551 6555 6557
6564 6573 6579 6586
ONESPT 119# 1473 1690 6520 6521 6523 6528 6529 6534 6536 6537 6543 6545 6552
6554 6567 6568 6569 6571 6577 6580 6584 6587
OP1 82# 4034 4083 4105 4123 4126 4134 4217 4249 4258 4269 4329 4355 4401
4404 4431 4465 4468 SEQ 0236
OPEND 5935 5951#
OPRSEL 507#
OPTAB 1146 1147 1276 5935 5936#
OPTIME 925#
ORIGSV 1613 1614 1863 1864 2058 2059 2215 2216 2306 2307 2385 2386 2462 2463
2534 2535 2612 2613 2670 2671 2740 2741 2812 2813 2884 2885 2956 2957
3033 3034 3105 3106 3258 3259 3419 3420 3580 3581 3741 3742 3902 3903
4036 4107 4251 4357 4477 4499 4739 4740 4744 4745 4817 4818 4822 4824
4829 4831 4897 4898 4979 4980 4986 4987 5067 5075 5081 5746 6016#
OVDLEN 4475# 4475 4961
OVERR 4353# 4353 4413 4446 4474 4958
P 550 551 552 553 757# 845 4085 4207 4220 4224 4321 4423 4449 4462
4564 4726 4802 4885 4951 5038 5237 5560 5726
PADDR 69# 2306 2385 2462 2534 2612 2740 2812 2884 2956 3033 3105 4523 4539
4547 4568 4585 4590 4591 4593 4602 4613 4621 4638 5016 5376 5378 5381
5384 5394 6237 6240 6241 6242 6243
PAG 757# 5600 5603 5622
PAGBIT 5597# 5602
PAGSET 3273 3434 3595 3756 3917 5610#
PALERS 499#
PARCLR 757#
PARDIS 757#
PAREA1 50# 801
PAREA2 51# 802
PAREA3 52# 799
PAREA4 53# 800
PAREA5 54# 812
PAREA6 55# 813
PAREA7 812#
PAREA8 813#
PARENB 757#
PARU 757#
PASCNT 827#
PATBL 4506 6240#
PATBN 2299 2378 2455 2527 2605 2733 2805 2877 2949 3026 3098 4505 4640 5393
6237#
PATCH 7403#
PATPT 2657 6238#
PATTBL 2293 2294 2295 2301 2372 2373 2374 2380 2449 2450 2451 2457 2521 2522
2523 2529 2599 2600 2601 2607 2727 2728 2729 2735 2799 2800 2801 2807
2871 2872 2873 2879 2943 2944 2945 2951 3020 3021 3022 3028 3092 3093
3094 3100 3210 3211 3212 3215 3371 3372 3373 3376 3532 3533 3534 3537
3693 3694 3695 3698 3854 3855 3856 3859 5394 6069# 6238 6348 6355 6362
6369 6376 6383 6473 6479 6485 6491 6497 6503
PATTER 1489# 1489 1501 1582 1704 1740 1790
PB 206# 5391
PB1 204# 6687 6688 6689 6690 6691 6692 6693 6694 6695 6696 6697 6698 6699
6700 6701 6702
PB2 205# 6679 6680 6681 6682 6683 6684 6685 6686 6695 6696 6697 6698 6699
6700 6701 6702
PBSH 234# 5392
PDISF 922#
PDLOVU 757# SEQ 0237
PERIOD 952#
PFACB 3233 3394 3555 3716 3877 5630#
PFBLK1 3217 3378 6257#
PFBLK2 3539 6313#
PFBLK3 3700 6334#
PFBLK4 3861 6348#
PFERR 3268# 3268 3429# 3429 3590# 3590 3751# 3751 3912# 3912
PFFAIL 5263 5268 5275 5279 5283 5287 5291 5309#
PFHAND 3178 5262#
PFHEPC 3271 3432 3593 3754 3915 5309# 5309
PFINS 5326 5334 5339 5344 5349 5354 5511# 5563
PFPNT 3311 3317 3472 3478 3633 3639 3794 3800 3955 3961 5321#
PFRES1 3218 3379 6395#
PFRES2 3540 6443#
PFRES3 3701 6461#
PFRES4 3862 6473#
PFSTRT 779#
PFTRAP 3267# 3267 3297 3306 3428# 3428 3458 3467 3589# 3589 3619 3628 3750# 3750
3780 3789 3911# 3911 3941 3950 5262
PFTST 3129 3173#
PGMEND 35# 7409
PGMNAM 804 5911#
PICHN1 757#
PICHN2 757#
PICHN3 757#
PICHN4 757#
PICHN5 757#
PICHN6 757#
PICHN7 757#
PICHNA 757#
PICLR 757#
PIOFF 757#
PION 757#
PLIST 991# 991
PLISTE 991 993#
PLISTS 992#
PLUS 957#
PNTACB 4757 4841 4901 4975 5060 5565 5737#
PNTBLK 5746# 5758
PNTCAS 4736 4813 4893 4973 5052 5832#
PNTENB 921#
PNTEXT 800#
PNTFLG 920#
PNTINH 923#
PNTINS 3302 3463 3624 3785 3946 4733 4810 4970 5768#
PNTLPT 494#
PNTNAM 799#
PNTRAN 4844 4904 5101 5866#
PNTRN 5878# 5902
PNTS1 5808# 5820
PNTS2 5810# 5817
PNTSKP 4760 4847 4907 4991 5104 5779#
PNTSPC 924# SEQ 0238
PNTSRT 5811 5822#
PNTSTR 4741 4746 4819 4826 4832 4899 4982 4988 5068 5077 5082 5801#
PPTAB 4509 6217#
PPTAB1 4517 6226#
PTM1 2660# 2662
PTMSET 2656#
PVPAGI 1018#
PWFCLR 757#
QUEST 963#
RADIX 966#
RADLSC 968#
RADLSP 967#
RANDBS 801#
RANLEN 1453 1666 5849#
REENTR 781#
RELIAB 501# 1122
REPT 59 757# 1144 1193 1264 1442 1649 1923 2115 2259 3176
REPT1 757#
REPTU 879#
REQSET 757#
RESRT1 856#
RESRT2 857#
RESSV 4092 4094 4237 4238 4335 4337 4419 4420 4477 4478 4481 4484 4568 4569
4711 4714 4717 4720 4723 4782 4785 4788 4791 4799 4823 4840 4867 4870
4873 4876 4879 4934 4937 4940 4943 4948 4962 5016 5019 5022 5025 5035
5058 5545 5548 5551 5554 5557 5750 6017#
RETURN 788#
RLEN 1117# 1117 5851 5856
RPEAT 1124# 1124 1144 1193 1264 1442 1649 1923 2115 2259 3176
RSTAC 4095 4240 4338 4422 4490 4571 5673#
RSTART 490#
RTP 961#
RUNFLG 828#
S44 133# 1554 1766 1972 1975 2150 2152 5400 5403 6516 6518 6524 6525 6526
6528 6530 6531 6534 6536 6538 6542 6545 6551 6554 6564 6567 6573 6578
6579 6580 6585 6586 6587 6595 6596 6597 6598 6599 6600 6601 6602 6607
6608 6609 6610 6611 6617 6618 6619 6620 6621 6622 6625 6626 6633 6634
6635 6636 6638 6639 6640 6645 6646 6647 6648 6649 6655 6656 6657 6658
6659 6660 6663
SADR1 39# 777
SADR10 48# 793
SADR11 49# 794
SADR2 40# 779
SADR3 41# 781
SADR4 42#
SADR5 43# 842
SADR6 44# 843
SADR7 45# 790
SADR8 46# 791
SADR9 47# 792
SAVZ 5599# 5599 5605
SBINIT 563 787#
SCOPE 880# SEQ 0239
SCRIPT 5517 5771 5994#
SELECT 249# 6122 6123 6124 6125 6247
SELWD 3209 3370 3531 3692 3853 6247#
SET1 1794# 1801
SETFG 5579 5582 5585#
SETLC1 2092# 2095
SETLOC 1900# 1901
SETRAN 1847 1893# 3255 3416 3899 5500
SETSKP 4120 4163 4217#
SFL 155# 1814 1982 2159 5377
SFL1 213# 6564 6565 6566 6571 6572 6576 6577 6578 6579 6580 6583 6587 6598
6599 6600 6601 6605 6606 6607 6610 6611 6615 6616 6617 6618 6636 6637
6640 6642 6645 6646 6675 6676 6677 6678 6683 6684 6685 6686 6691 6692
6693 6694 6699 6700 6701 6702 6704
SFSTRT 777#
SIGST 250# 6078 6079 6080 6081 6088 6089 6090 6091 6246
SIGWD 2292 6246#
SIMDES 4114 4361 4480 4486 4487 4488 4503 4798 4825 4839 4947 4981 5033 5057
5076 5704 5705 5706 5721 6027#
SKP1 4218 4223#
SKPA 257# 6117 6118 6119 6120
SKPM 255# 6107 6108 6109 6110
SKPN 256# 6112 6113 6114 6115
SKPTAB 4083 6039#
SKPWD1 1457# 1457 1620 1670# 1670 1870 1939 2063 2133 2220 2287 2311 2366 2390
2443 2467 2515 2539 2593 2617 2675 2721 2745 2793 2817 2865 2889 2937
2961 3014 3038 3086 3110 3220 3323 3381 3484 3542 3645 3703 3806 3864
3967 4704 4775 4860 4927 5009 5785
SKPWD2 1458# 1458 1625 1671# 1671 1875 1940 2068 2134 2225 2288 2319 2367 2398
2444 2475 2516 2547 2594 2625 2680 2722 2753 2794 2825 2866 2897 2938
2969 3015 3046 3087 3118 3221 3280 3287 3382 3441 3448 3543 3602 3609
3704 3763 3770 3865 3924 3931 4705 4776 4861 4928 5010
SLASH 964#
SLEN 66# 1454 1525 1537 1546 1580 1667 1719 1729 1732 1788 1815 1818 1821
1950 1983 1986 1989 2004 4041 4049 4087 4088 4092 4119 4131 4137 4144
4165 4169 4179 4206 4214 4223 4229 4230 4235 4237 4254 4256 4263 4278
4283 4284 4287 4289 4319 4323 4332 4335 4711 4782 4867
SLEN1 78# 1580 1587 1788 1794
SLONG 111# 1540 1722 6540 6541 6542 6543 6544 6545 6546 6547 6576 6577 6578
6579 6580 6581
SM10 1068# 1214 1357
SOURCE 1266 1559 1562 1768 1771 1973 1976 2304 2383 2460 2532 2610 2738 2810
2882 2954 3031 3103 5401 5404 5696 5697 5698 6024# 6279 6286 6293 6300
6370 6377 6384 6414 6420 6426 6432 6492 6498 6504
SP 70# 1266 1559 1562 1581 1768 1771 1789 1973 1976 2007 4043 4143 4167
4183 4268 4578 4714 4785 4870 5019 5401 5404 5466
SP1 79# 1581 1585 1590 1594 1789 1792 1800
SPACE 953#
SRTDDT 42 44 783#
START 771 1092# 1092
START1 790#
START2 791#
START3 792# SEQ 0240
START4 793#
START5 794#
STARTA 786 1099 1113#
STFLOT 4603 4614 4648#
STOP 248# 2664 6078 6079 6080 6081 6083 6084 6085 6088 6089 6090 6091 6092
6093 6094 6095 6097 6098 6099 6100 6102 6103 6104 6105 6107 6108 6109
6110 6112 6113 6114 6115 6117 6118 6119 6120 6122 6123 6124 6127 6128
6129 6130 6245
STOPWD 2371 2448 2520 2598 2726 2798 2870 2942 3019 3091 3214 3375 3536 3697
3858 6245#
STRL 186# 1948 2142
STRL0 184# 6597 6598 6601 6602 6603 6604 6607 6608 6609 6610 6611 6612 6614
6615 6616 6617 6618 6619 6620 6621 6622 6623 6624 6625 6626 6635 6636
6639 6640 6641 6642 6645 6646 6647 6648 6649 6650 6652 6653 6654 6655
6656 6657 6658 6659 6660 6661 6662 6663 6664
STRL1 185# 6596 6598 6600 6602 6603 6605 6607 6608 6612 6613 6614 6615 6616
6617 6618 6619 6620 6621 6622 6623 6624 6625 6626 6634 6636 6638 6640
6641 6643 6645 6646 6650 6651 6652 6653 6654 6655 6656 6657 6658 6659
6660 6661 6662 6663 6664
STRLSH 232# 1949 2143
SUBLNK 525# 787
SVAC 4032 4103 4247 4351 4497 5656#
SVLUUO 1150# 1150 1165 5233
SWPTAB 1074#
SWTEXR 802#
SYSEXR 775#
SZERO 108# 1523 1727 6523 6524 6525 6526 6527 6528 6571 6572 6573
T 1140# 1171 1189# 1211 1237 1260# 1297 1313 1348 1388 1438# 1629 1645# 1879
1919# 2072 2111# 2229 2257# 2270# 2325 2349# 2404 2426# 2481 2498# 2553 2576#
2631 2684 2704# 2759 2776# 2831 2848# 2903 2920# 2975 2997# 3052 3069# 3124
3136# 3185# 3302 3311 3317 3329 3346# 3463 3472 3478 3490 3507# 3624 3633
3639 3651 3668# 3785 3794 3800 3812 3829# 3946 3955 3961 3973 5189# 5202
5212 5231# 5244 5319# 5326 5334 5339 5344 5349 5354
TAB 954#
TEMP 4304 4310 4312 6031#
TESTPC 829# 1093 1143 1192 1263 1441 1648 1922 2114 2275 2354 2431 2503 2581
2709 2781 2853 2925 3002 3074 3190 3351 3512 3673 3834
TICKS 832#
TOTALS 491#
TRANFG 1662 1664# 1664 1674 1763 1772 1797 1935 1937 2014 2024 2129 2131 2181
3246 3407 3568 3729 3890 4234 4843 4903 5271 5329 5576 5585
TRAP1 1146# 1175
TRAP1A 1149# 1172 1173
TRAP2 1195# 1212 1217 1240
TRAP2A 1215 1220# 1238
TRAP3 1266# 1361 1395
TRAPT1 1126 1142#
TRAPT2 1176 1191#
TRAPT3 1218 1241 1262# 1360
TSMUUO 5120 5133#
TTNBRF 1012#
TTYFIL 928#
TTYSPD 929# SEQ 0241
TXTINH 502#
USER 819# 1098 3173 4955 5119 5165 5191
USERF 757#
USRASB 32# 809
USRCRF 938#
USRLFF 937#
UUOBLK 5152 5178 5181 5182 5207 5961#
UUODIS 891#
UUOEXT 847#
UUORTN 848#
UUOSKP 845#
$$MUUO 1043#
$$OUTE 1049#
$$TAX1 1061#
$$TAX2 1062#
$$TOGG 1055#
$$UUO 1032#
$ACC0 870#
$BEND1 840#
$BEND2 43 841#
$CHRIN 931#
$CRLF 933#
$DEVCH 757#
$DSKUP 810#
$DVCH1 757#
$DVOFF 927#
$EMODE 808#
$FFF 935#
$IBUF 983#
$INEXT 985#
$INNM 984#
$ITRHL 851#
$ITRX1 852#
$LPAPE 6719
$MMAP 811#
$MODVL 806#
$MODVU 807#
$OBUF 974#
$ONETM 834#
$OUTEX 976#
$OUTNM 975#
$PAPER 757
$PARER 858#
$PNAME 804#
$PSHER 862#
$PVER 805#
$RSRTX 854#
$RSRTY 855#
$SPAG1 874#
$START 771#
$SVAPR 872#
$SVPAG 873#
$SVPI 871# SEQ 0242
$SVUPC 877#
$SVUUO 876#
$TABF 934#
$TTCHR 930#
$TWCNT 926#
$TYPNB 932#
$UMODE 809#
$UORTX 849#
$USRHL 853#
$UUOER 850# 891
$VTF 936#
%ACTFL 883#
%ACTUL 884#
%COREC 882#
%CORFL 881#
%DISCR 885#
%ERHI1 1024#
%ERHI2 1025#
%ERHI3 1026#
.FHSLF 5138
.JB41 757#
.JBAPR 757#
.JBCNI 757#
.JBDDT 757#
.JBFF 757#
.JBINT 57# 5153
.JBOPC 757#
.JBREL 757#
.JBREN 757#
.JBSA 757#
.JBSYM 757#
.JBTPC 757#
.JBUSY 757#
.JBUUO 757#
.JBVER 757#
AIC 5143
CFLUSH 675# SEQ 0243
CINVAL 674#
CLOKOP 669#
CWRTBI 676#
DEBRK 5176
DROPDV 636#
EDMOD 267# 2272 2351 2428 2500 2578 2706 2778 2850 2922 2999 3071
EIR 5145
ENDUUO 682# 839
EOPUUO 683# 841
ERLOOP 727# 1172 1212 1238 1298 1314 1349 1389 1630 1880 2073 2230 2326 2405
2482 2554 2632 2685 2760 2832 2904 2976 3053 3125 3303 3330 3464 3491
3625 3652 3786 3813 3947 3974
ERLP1 728#
ERLP2 729# 1360 3312 3318 3473 3479 3634 3640 3795 3801 3956 3962
ERRHLT 570#
ERROR 736# 1169 1209 1234 1295 1310 1345 1385 1629 1879 2072 2229 2323 2402
2479 2551 2629 2684 2757 2829 2901 2973 3050 3122 3300 3327 3461 3488
3622 3649 3783 3810 3944 3971
ERROR1 747# 3309 3315 3470 3476 3631 3637 3792 3798 3953 3959 5197 5209 5239
5324 5333 5338 5343 5348 5353
ERUUO 726# 1171 1211 1237 1297 1313 1348 1388 1629 1879 2072 2229 2325 2404
2481 2553 2631 2684 2759 2831 2903 2975 3052 3124 3302 3311 3317 3329
3463 3472 3478 3490 3624 3633 3639 3651 3785 3794 3800 3812 3946 3955
3961 3973 5202 5212 5244 5326 5334 5339 5344 5349 5354
FATAL 569# 5203 5213 5245
FRD36 711#
FRD8 712#
FREAD 710#
FSELEC 709#
GET 553# 1616 1866 1908 1909 2100 2101 4763 4764 4765 4803 4850 4851 4852
4910 4911 4912 4952 4994 4995 4996 5039 5107 5108 5109 5168 5175 5179
5224 5521 5522 5708 5727 5728 5760 5761 5792 5823 5824 5825 5842 5858
5904 5905
GO 550# 1113 1453 1619 1628 1657 1666 1847 1869 1878 2056 2062 2071 2123
2213 2219 2228 2290 2297 2310 2315 2322 2369 2376 2389 2394 2401 2446
2453 2466 2471 2478 2518 2525 2538 2543 2550 2596 2603 2616 2621 2628
2643 2668 2674 2683 2724 2731 2744 2749 2756 2796 2803 2816 2821 2828
2868 2875 2888 2893 2900 2940 2947 2960 2965 2972 3017 3024 3037 3042
3049 3089 3096 3109 3114 3121 3227 3233 3238 3255 3273 3322 3326 3388
3394 3399 3416 3434 3483 3487 3549 3555 3560 3577 3595 3644 3648 3710
3716 3721 3738 3756 3805 3809 3871 3877 3882 3899 3917 3966 3970 4032
4095 4103 4240 4247 4338 4351 4411 4422 4426 4461 4490 4497 4532 4557
4566 4571 4603 4614 4733 4736 4741 4746 4757 4760 4794 4810 4813 4819
4826 4832 4841 4844 4847 4882 4893 4899 4901 4904 4907 4970 4973 4975
4982 4988 4991 5028 5052 5060 5068 5077 5082 5101 5104 5301 5500 5563
5565 5620
HALT 45 46 47 48 49 555# 860
JEN 557#
JRSTF 556# 5169 5303
MAPADR 692#
MAPCNK 693#
MAPMEM 689#
MAPPNT 695# SEQ 0244
MAPSET 694#
MEMSEG 691#
MEMZRO 690#
MODPCP 702#
MODPCU 701#
MTROP 670#
NAME 7# 9
PBELL 645#
PCRL 639# 4755 4837 5520 5756 5804 5819 5822 5840 5900
PCRL2 643#
PCRL2F 644#
PCRLF 640#
PFMAC 330# 3187 3348 3509 3670 3831
PFORCE 647#
PGMINT 563# 1095
PJRST 554#
PMSG 649# 1485 1514 1700 1753 4738 4743 4748 4752 4815 4821 4828 4834 4895
4977 4984 5046 5065 5073 5079 5087 5096 5515 5768 5781 5789 5834 5872
5875 5888
PMSGF 652#
PNT1 605#
PNT11 619#
PNT11F 620#
PNT1F 606#
PNT2 607#
PNT2F 608#
PNT3 609#
PNT3F 610#
PNT4 611#
PNT4F 612#
PNT5 613#
PNT5F 614#
PNT6 615#
PNT6F 616#
PNT7 617#
PNT7F 618#
PNTA 591#
PNTADF 622#
PNTADR 621#
PNTAF 592#
PNTAL 593#
PNTALF 594#
PNTCHF 604#
PNTCHR 603#
PNTCI 601# 5748 5752 5815 5882 5895
PNTCIF 602#
PNTCW 637#
PNTCWF 638#
PNTDCF 630#
PNTDEC 629# 5839
PNTDS 631#
PNTDSF 632#
PNTHW 625# 5747 5751 5755 SEQ 0245
PNTHWF 626#
PNTMGN 716#
PNTMSF 598#
PNTMSG 597# 5740
PNTNM 633#
PNTOCF 628#
PNTOCS 627# 4750 4754 4836 5089 5098 5814 5881 5886 5894 5899
PNTOCT 623#
PNTOTF 624#
PNTSIX 634# 5049 5518
PNTSXF 635# 5772 5787
PSIXL 595#
PSIXLF 596#
PSIXM 599# 1485 1514 1700 1753 4738 4743 4748 4752 4815 4821 4828 4834 4895
4977 4984 5046 5065 5073 5079 5087 5096 5516 5769 5782 5790 5835 5873
5876 5889
PSIXMF 600#
PSP 641#
PSPF 642#
PUT 552# 1578 1786 1893 1894 2085 2086 4729 4730 4731 4773 4806 4807 4808
4888 4889 4890 4925 4966 4967 4968 5007 5042 5043 5044 5160 5181 5219
5511 5512 5694 5715 5716 5737 5738 5779 5801 5802 5803 5832 5849 5866
5867
REPTLP 59# 1175 1217 1240 1361 1395 1635 1885 2078 2235 3132 3985
REPTUO 730#
RESET 5136
RTN 551# 847 1910 2102 4097 4241 4340 4424 4437 4472 4491 4572 4641 4653
4727 4766 4804 4853 4886 4913 4953 4997 5040 5110 5127 5146 5154 5183
5225 5356 5504 5523 5530 5538 5561 5567 5586 5606 5623 5650 5671 5688
5709 5729 5762 5773 5793 5826 5843 5859 5906
S 481# 483 487 516 518 527 530 545 546 548 559 561 565 567
572 576 722 724 757 762 768 795 797 815 817 835 837 866
868 886 888 906 908 916 918 939 944 970 972 979 981 987
989 995 997 1001 1003 1008 1010 1014 1016 1020 1022 1028 1030 1033
1035 1039 1041 1045 1047 1051 1053 1057 1059 1064 1066 1070 1072 1076
1078 1080 1082
SIR 5140
SIXBTZ 658# 1140 1189 1260 1438 1645 1919 2111 2257 2270 2349 2426 2498 2576
2704 2776 2848 2920 2997 3069 3136 3185 3346 3507 3668 3829 5189 5231
5319
SWITCH 664# 1120
TTALTM 585#
TTICHR 578#
TTICLR 588#
TTICNV 583#
TTIDEC 582#
TTINO 580#
TTIOCT 581#
TTIYES 579#
TTLOOK 584#
TTSIXB 586#
TTYINP 587#