Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dskcg.seq
There are no other files named dskcg.seq in the archive.
;DSKCG
SEQ 0001
IDENTIFICATION
--------------
PRODUCT CODE: AH-F466B-DD
DIAGNOSTIC CODE: DSKCG
PRODUCT NAME: DSKCGB0 DECSYSTEM 2020 ADVANCED INSTRUCTION
DIAGNOSTIC #7
VERSION: 0.2
DATE RELEASED: SEPTEMBER 1979
MAINTAINED BY: DIAGNOSTIC ENGINEERING
AUTHOR: JOHN R. KIRCHOFF
KATHY J. ATKINS
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 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC IS THE
SEVENTH IN A SERIES OF DECSYSTEM 2020 ADVANCED PROCESSOR
DIAGNOSTICS.
THE DIAGNOSTIC PERFORMS TESTING OF THE KS10 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 EXTEND. AN INSTRUCTION THAT "O FFSETS" 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 2020 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 2020 SUBROUTINE
PROGRAM BE RESIDENT IN THE DECSYSTEM 2020.
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).
RUN UNDER "SMMON".
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 DSKCG
---------------------- SEQ 0010
---------------------------------------------------------------
CODE: MAINDEC-10-DSKCG
TITLE: DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7)
VERSION: 0.2
DATE: SEPTEMBER 1979
AUTHOR: JOHN R. KIRCHOFF
REASON: MAJOR REVISION TO CORRECT PROGRAM BUGS AND OPERATION.
ALSO, THE FORMAT AND DOCUMENTATION OF THE LISTING WAS
VASTLY IMPROVED TO BRING IT UP TO DIAGNOSTIC STANDARDS.
---------------------------------------------------------------
VERSION: 0.1
DATE: MARCH 1979
AUTHOR: KATHY J. ATKINS
REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10.
---------------------------------------------------------------
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 1
SEQ 0011
DOCUMENT
**************
DSKCG LST
**************
COPYRIGHT 1979
DIGITAL EQUIPMENT CORPORATION
MAYNARD, MASS. 01754
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 2
SEQ 0012
TABLE OF CONTENTS
*******************
1
30 DIAGNOSTIC PARAMETERS
59 PROGRAM PARAMETERS
478 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978
513 PROGRAM/SUBROUTINE PARAMETERS
715 ERROR HANDLING UUO DEFINITIONS
753 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978
1081 PROGRAM CONTROL SECTION
1114 MUUO TRAP TESTING
1384 EXTEND INSTRUCTION CASE TESTING
3120 PAGE FAIL TESTING
3973 INSTRUCTION SIMULATORS
4630 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES
5071 MUUO AND PAGE FAIL HANDLERS
5316 PROGRAM SUPPORT ROUTINES
5673 PROGRAM PRINT ROUTINES
5851 GENERAL PROGRAM TABLE STORAGE
5970 INSTRUCTION SPECIFIC STORAGE AREA
6446 INSTRUCTION CASE TABLES
6651 *STOR* RESERVED STORAGE, MARCH 1978
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 3
SEQ 0013
*****************************************************************
1 MAINDEC-10-DSKCG
*****************************************************************
*****************************************************************
30 DIAGNOSTIC PARAMETERS
*****************************************************************
*****************************************************************
59 PROGRAM PARAMETERS
*****************************************************************
62 ACCUMULATOR ASSIGNMENTS
99 CASE TABLE COMMAND WORD BIT DEFINITIONS - LEFT HALF
147 CASE TABLE COMMAND WORD BIT DEFINITIONS - RIGHT HALF
236 INSTRUCTION SKIP DECISION BITS (FOR CMPXX INSTRUCTIONS)
244 EDIT INSTRUCTION PATTERN CODE AND TRANSLATE TABLE DEFINITIONS
263 EDMOD -- MACRO FOR EDIT INSTRUCTION TEST SUBMODULES
326 PFMAC -- MACRO WHICH SETS UP, EXECUTES, AND VERIFIES PAGE FAIL
*****************************************************************
478 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978
*****************************************************************
483 DATA SWITCHES
LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
*****************************************************************
513 PROGRAM/SUBROUTINE PARAMETERS
*****************************************************************
516 SPECIAL SUBPROGRAM LINKAGES
527 SPECIAL SUBROUTINE FATAL HALTS
USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
559 SUBROUTINE INITIALIZATION CALL
565 HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
572 TERMINAL INPUT UUO'S
ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 4
SEQ 0014
588 TERMINAL OUTPUT UUO'S.
654 SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
CONSERVES CORE OVER ASCIZ
659 CONSOLE SWITCH INPUT UUO.
READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
USER MODE.
665 CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
671 KS-10 CACHE OPERATION UUO'S
676 END OF PASS/PROGRAM UUOS
679 DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
684 MEMORY MANAGEMENT UUO'S
UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
ADDRESS CONVERSION, ETC...
696 DEVICE CODE MODIFICATION UUO
ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
IOT'S TO A DIFFERENT DEVICE CODE.
706 "DIAMON" FILE SELECTION AND READ UUOS
*****************************************************************
715 ERROR HANDLING UUO DEFINITIONS
*****************************************************************
718 ERROR HANDLER PARAMETERS
727 THE ERROR HANDLER MACROS
729 A MACRO TO REPORT AN ERROR AND LOOP
740 A MACRO TO REPORT AN ERROR AND NOT LOOP
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 5
SEQ 0015
*****************************************************************
753 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978
*****************************************************************
758 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.
791 PROGRAM FIXED PARAMETER AREA
811 PROGRAM VARIABLE PARAMETER AREA
831 SPECIAL PROGRAM DISPATCH ADDRESSES
862 PROCESSOR CONTROL STORAGE
882 UUO DISPATCH TABLE
902 MEMORY MANAGMENT STORAGE
912 PRINT CONTROL STORAGE
935 THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
MOVEI NAME
PNTA ;OR PNTAF
966 USER MODE OUTPUT FILE INFORMATION
975 DISK UPDATE MODE FILE INFORMATION
983 PUSHDOWN LIST CONTROL INFORMATION
991 POWER LINE CLOCK FREQUENCY FLAG
997 KL10 CACHE CONTROL FLAGS
1004 NUMBER INPUT DIGIT FLAG
1010 KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
1016 ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
1024 SPECIAL USERS UUO INTERCEPT INSTRUCTION
1029 USER MODE MONITOR TYPE FLAG
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 6
SEQ 0016
1035 SPECIAL USERS MUUO INTERCEPT INSTRUCTION
1041 SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
1047 "SWITCH" CALL USAGE CONTROL
1053 SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
1060 SM10 (KS-10) PROCESSOR TYPE FLAG
1066 RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
1072 SPECIAL FUTURE EXPANSION ROOM
1076 END OF FIXED STORAGE
*****************************************************************
1081 PROGRAM CONTROL SECTION
*****************************************************************
1084 START - INITIALIZATION ROUTINE
1100 STARTA - PROGRAM PASS CONTROL SECTION
*****************************************************************
1114 MUUO TRAP TESTING
*****************************************************************
1117 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.
1165 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.
1230 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.)
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 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).
1258 TEST COMPARE INSTRUCTION STRING LENGTH AC BITS 0,9
1310 TEST THE MOVE STRING DESTINATION LENGTH BITS 0,9
1352 TEST EDIT INSTRUCTION ILLEGAL PATTERN POINTER FIELD (KS-10 ONLY)
*****************************************************************
1384 EXTEND INSTRUCTION CASE TESTING
*****************************************************************
1387 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.
1418 TEST 4 -- COMPARE STRING INSTRUCTION TEST
THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
SIX COMPARE INSTRUCTIONS.
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 8
SEQ 0018
1625 TEST 5 -- MOVE STRING INSTRUCTION TEST
THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
FOUR MOVE STRING INSTRUCTIONS.
1899 TEST 6 -- CONVERT DECIMAL TO BINARY INSTRUCTION TEST
THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
TWO CVTDBX INSTRUCTIONS.
2091 TEST 7 -- CONVERT BINARY TO DECIMAL INSTRUCTION TEST
THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
TWO CVTBDX INSTRUCTIONS.
2225 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
2248 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.
2320 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.
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 9
SEQ 0019
2399 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.
2476 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.
2548 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.
2626 INSERT EVERY MESSAGE CHARACTER IN THE DESTINATION STRING
2676 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.
2754 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.
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 10
SEQ 0020
2826 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.
2898 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.
2970 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.
3047 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.
*****************************************************************
3120 PAGE FAIL TESTING
*****************************************************************
3125 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
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 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.
3168 PAGE FAIL TESTING OF THE COMPARE INSTRUCTIONS
3329 PAGE FAIL TESTING OF MOVE STRING INSTRUCTIONS
3490 PAGE FAIL TESTING OF CVTDBX INSTRUCTIONS
3651 PAGE FAIL TESTING OF CVTBDO INSTRUCTIONS
3812 PAGE FAIL TESTING OF THE EDIT INSTRUCTIONS
*****************************************************************
3973 INSTRUCTION SIMULATORS
*****************************************************************
3976 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
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 12
SEQ 0022
4002 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.
4086 MOVSIM -- ROUTINE TO SIMULATE THE MOVE STRING INSTRUCTIONS
4230 CDBSIM -- ROUTINE TO SIMULATE THE CVTDBO AND CVTDBT INSTRUCTIONS
4329 CBDSIM -- ROUTINE TO SIMULATE THE CVTBDX INSTRUCTIONS
4469 EDTSIM -- ROUTINE TO SIMULATE THE EDIT INSTRUCTION
*****************************************************************
4630 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES
*****************************************************************
4633 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
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 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.
4675 CMPCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
OF THE EXTEND COMPARE INSTRUCION.
4744 MOVCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
OF THE EXTEND MOVXX INSTRUCTIONS.
4831 CDBCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
OF THE CVTDBX INSTRUCTIONS.
4891 CBDCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
OF THE CVTBDX INSTRUCTIONS.
4959 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.
*****************************************************************
5071 MUUO AND PAGE FAIL HANDLERS
*****************************************************************
5074 MUUOHS - MUUO HANDLER INITIALIZATION
CODE TO SETUP MUUO HANDLER IN EXEC MODE
5116 MUUOH - THE ACTUAL MUUO HANDLERS (EXEC AND USER MODE)
5145 MUUOHX - UNEXPECTED MUUO ERROR REPORTING
5175 LUUOH - LUUO HANDLER
5187 LUUOHX - UNEXPECTED LUUO ERROR REPORTING
5207 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.
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 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.
5270 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.
*****************************************************************
5316 PROGRAM SUPPORT ROUTINES
*****************************************************************
5319 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.
5465 PFINS -- ROUTINE TO PRINT INSTRUCTION NAME
ENTRY WITH SCRIPT TABLE INDEX IN INSTR
5484 CDBTN -- USED IN CVTDBT PF TEST
5491 CBDTRN -- ROUTINE TO SET UP THE TRANSLATE TABLE FOR THE CVTBDX INSTR
5499 COMAC -- ROUTINE USED IN PAGE FAIL TESTING TO COMPARE THE
FINAL AC BLOCK WITH THAT OF THE SIMULATOR
5528 CHKTRN -- ROUTINE TO CHECK THE OPCODE UNDER TEST AND SET TRANSFG
IF IT IS A TRANSLATE INSTRUCTION.
TAKE OPCODE IN AC0, RTN +1 ALWAYS
5547 PAGSET -- ROUTINE TO CLEAR PAGE TABLE,
SET UP RELOCATION DATA IN THE TABLE,
SET PAGING AND TRAP ENABLE,
AND LOAD THE USER BASE REGISTER
5568 PFACB -- ROUTINE TO SETUP PAGE FAIL AC BLOCK
ENTRY WITH AC3 CONTAINING ADDRESS OF BLOCK IN MEMORY
5595 SVAC,RSTAC- ROUTINES TO SAVE AND RESTORE AC'S 0-16
5633 CLRSTR -- ROUTINE WHICH CLEARS THE SOURCE, DESTIN, AND SIMDES BLOCKS
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 15
SEQ 0025
5654 COMSTR -- ROUTINE TO COMPARE SIMULATED AND ACTUAL DESTINATION STRINGS
*****************************************************************
5673 PROGRAM PRINT ROUTINES
*****************************************************************
5676 PNTACB -- ROUTINE TO PRINT THE ORIGINAL, CORRECT AND ACTUAL AC BLOCKS
5707 PNTINS -- ROUTINE TO PRINT THE CURRENT INSTRUCTION IN ENGLISH
5718 PNTSKP -- ROUTINE WHICH PRINTS INCORRECT INSTRUCTION RETURN MESSAGE
5738 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.
5771 PNTCAS -- ROUTINE WHICH PRINTS CASE CURRENT CASE #. (AC1)= CASE TABLE ADDR)
5788 RANLEN -- ROUTINE WHICH RETURNS STRING LENGTHS SEQUENTIALLY FROM 2 - 20 (10)
5804 PNTRAN -- ROUTINE TO PRINT THE CONTENTS OF A TRANSLATION TABLE
LOCATED AT E1 FOR LENGTH OF 20
*****************************************************************
5851 GENERAL PROGRAM TABLE STORAGE
*****************************************************************
5869 EXTENDED OPERATOR OPCODE TABLE
5891 SOFTWARE INTERRUPT TABLE AREA
5914 EXECUTE INSTRUCTION STORAGE (EO,E1)
5928 SIXBIT EXTENDED OPERATOR MNEMONIC TABLE
5949 ORIGSV,RESSV -- AREAS WHICH HOLD ORIGINAL AND FINAL AC BLOCK RESULTS
OF EXTEND INSTRUCTIONS
5957 SOURCE,DESTIN,SIMDES -- STORAGE FOR SOURCE,DESTINATION AND SIMULATED
DESTINATION STRINGS
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 16
SEQ 0026
*****************************************************************
5970 INSTRUCTION SPECIFIC STORAGE AREA
*****************************************************************
5973 SKPTAB -- INSTRUCTION SKIP TABLE
5986 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.)
6003 PATTBL -- EDIT INSTRUCTION PATTERN TABLE
6010 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.
6070 OFFTAB -- VARIOUS VALUES USED FOR OFFSET IN CVTXX INSTR
6079 DATTAB -- DATA TABLE FOR CVTDBO INSTRUCTIONS
6103 DATCBD -- DATA TABLE FOR CVTBDX INSTRUCTION
6133 LTAB -- STRING LENGTH TABLE USED IN CDBXX AND CBDXX INSTRUCTIONS
6142 STRING PATTERNS FOR CMPXX INSTRUCTIONS
6151 PPTAB,PPTAB1 -- EDIT INSTR SIMULATOR PATTERN POINTER JUMP TABLES
6171 EDIT INSTRUCTION BYTE POINTERS
6187 PFBLK -- STORAGE FOR AC BLOCKS USED IN PAGE FAIL TEST
6328 PFRESX -- STORAGE AREA WHICH CONTAINS THE CORRECT INTERMEDIATE
RESULTS OF ALL INSTRUCTIONS AFTER PAGE FAILURE.
*****************************************************************
6446 INSTRUCTION CASE TABLES
*****************************************************************
6449 CMPCAS -- PARAMETER CASE TABLE FOR COMPARE INSTRUCTIONS
6497 MOVCAS -- PARAMETER CASE TABLE FOR MOVE STRING INSTRUCTIONS
6528 CDBCAS -- PARAMETER CASE TABLE FOR CVTDBO AND CVTDBT INSTRUCTIONS
6566 CBDCAS -- PARAMETER CASE TABLE FOR CVTBD0 AND CVTBDT INSRUCTIONS
6604 EDTCAS -- PARAMETER CASE TABLE FOR EDIT INSTRUCTION
DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 17
SEQ 0027
*****************************************************************
6651 *STOR* RESERVED STORAGE, MARCH 1978
*****************************************************************
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1
DSKCGT MAC 14-Sep-79 09:44 MAINDEC-10-DSKCG SEQ 0028
1 SUBTTL MAINDEC-10-DSKCG
2
3 000000 MCNVER==0
4 000002 DECVER==2
5
6 XLIST
7 LIST
8
9 NAME \MCNVER,\DECVER^
10
11 TITLE DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2^
12
13 ;COPYRIGHT (C) 1979
14 ;DIGITAL EQUIPMENT CORPORATION
15 ;MARLBORO, MASS. 01754
16
17 ;AUTHOR: JOHN R. KIRCHOFF
18 ; KATHY J. ATKINS
19
20 ;MAINTAINER: LARGE SYSTEMS DIAGNOSTIC ENGINEERING
21
22 000137 LOC 137
23 000137 000000 000002 MCNVER,,DECVER
24
25 SEARCH MONSYM
26 SEARCH MACSYM
27 NOSYM
28
29 IF2,<PRINTX [STARTING PASS 2]>
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 2
DSKCGT MAC 14-Sep-79 09:44 DIAGNOSTIC PARAMETERS SEQ 0029
30 SUBTTL DIAGNOSTIC PARAMETERS
31
32 000001 EXCASB==1 ;ASSEMBLE FOR EXEC MODE OPERATION
33 000001 USRASB==1 ;ASSEMBLE FOR USER MODE OPERATION
34 000100 DEBUG==100 ;SAVE AN AREA FOR DEBUG (CALLED PATCH)
35 000001 ITERAT==1 ;USER MODE PROGRAM ITERATIONS
36 000001 PGMEND==1 ;THE ASSEMBLY PROGRAM END STATEMENT
37
38 030000 SADR1= BEGIN
39 030000 SADR2= BEGIN
40 030000 SADR3= BEGIN
41 030007 SADR4= SRTDDT
42 030061 SADR5= $BEND2
43 030007 SADR6= SRTDDT
44 254200 030000 SADR7= HALT BEGIN
45 254200 030000 SADR8= HALT BEGIN
46 254200 030000 SADR9= HALT BEGIN
47 254200 030000 SADR10= HALT BEGIN
48 254200 030000 SADR11= HALT BEGIN
49 000000 PAREA1= 0
50 000017 PAREA2= 17
51 446353 434700 PAREA3= SIXBIT /DSKCG/
52 605664 000000 PAREA4= SIXBIT /PNT/
53 000000 PAREA5= 0
54 000000 PAREA6= 0
55
56 000134 .JBINT=134 ;TOPS-10 ERROR INTERCEPTING BLOCK
57
58 367640 000000 OPDEF REPTLP [SOJG REPT,] ;REPEAT LOOP
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 3
DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0030
59 SUBTTL PROGRAM PARAMETERS
60
61 ; **********************************************************************
62 ;*ACCUMULATOR ASSIGNMENTS
63 ; **********************************************************************
64
65 000010 SLEN= 10
66 000010 AC= 10
67 000010 BDH= 10
68 000010 PADDR= 10
69 000011 SP= 11
70 000011 BDL= 11
71 000013 DLEN= 13
72 000013 DBH= 13
73 000013 MA= 13
74 000014 DP= 14
75 000014 DBL= 14
76
77 000002 SLEN1= 2
78 000003 SP1= 3
79 000005 DLEN1= 5
80 000004 DP1= 4
81 000001 OP1= 1
82
83 000000 AC0= 0
84 000001 AC1= 1
85 000002 AC2= 2
86 000003 AC3= 3
87 000004 AC4= 4
88 000005 AC5= 5
89 000006 AC6= 6
90 000007 AC7= 7
91 000010 AC10= 10
92 000011 AC11= 11
93 000012 AC12= 12
94 000013 AC13= 13
95 000014 AC14= 14
96 000015 AC15= 15
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 4
DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0031
97
98 ; **********************************************************************
99 ;*CASE TABLE COMMAND WORD BIT DEFINITIONS - LEFT HALF
100 ; **********************************************************************
101
102 ; **************************************************
103 ;STRING LENGTH INDICATOR BITS
104 ; **************************************************
105
106 400000 000000 EQLEN== 1B0 ;STRINGS ARE OF EQUAL LENGTH
107 200000 000000 SZERO== 1B1 ;SOURCE STRING IS ZERO IN LENGTH
108 100000 000000 DZERO== 1B2 ;DESTINATION STRING IS ZERO IN LENGTH
109 040000 000000 DSZER== 1B3 ;SOURCE AND DESTINATION STRING ARE ZERO LENGTH
110 020000 000000 SLONG== 1B4 ;SOURCE STRING IS LONGER THAN DESTIN
111
112 ; **************************************************
113 ;PATTERN DEFINITION BITS
114 ; **************************************************
115
116 010000 000000 ALTPT== 1B5 ;PATTERN IS ALTERNATING 1'S AND 0'S
117 004000 000000 ONEPT== 1B6 ;PATTERN IS ALL ONE'S
118 002000 000000 ONESPT== 1B7 ;PATTERN IS EQUAL TO 0,,1
119
120 ; **************************************************
121 ;FILLER TYPE INDICATOR BITS
122 ; **************************************************
123
124 001000 000000 EQFIL== 1B8 ;FILLER IS EQUAL TO PATTERN
125 000400 000000 LFILL== 1B9 ;FILLER IS SMALL
126 000200 000000 GFILL== 1B10 ;FILLER IS LARGE
127
128 ; **************************************************
129 ;BYTE SIZE INDICATOR BITS
130 ; **************************************************
131
132 000100 000000 S44== 1B11 ;SOURCE BYTE SIZE IS FULL WORD (0= 5 BIT)
133 000040 000000 D44== 1B12 ;DESTIN BYTE SIZE IS FULL WORD (0= 5 BIT)
134
135 ; **************************************************
136 ;FIRST AND LAST BYTE ADJUST INDICATOR BITS
137 ; **************************************************
138
139 000020 000000 ALS== 1B13 ;ADJUST LAST BYTE IN SOURCE STRING
140 000010 000000 ALD== 1B14 ;ADJUST LAST BYTE IN DESTINATION STRING
141 000004 000000 AFS== 1B15 ;ADJUST FIRST BYTE IN SOURCE STRING
142
143 000002 000000 B0== 1B16 ;INDICATOR OF WHERE INTIAL BINARY DATA GOES
144 000001 000000 HW== 1B17 ;INITIAL BINARY DATA TO HIGH OR LOW WORD
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 5
DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0032
145
146 ; **********************************************************************
147 ;*CASE TABLE COMMAND WORD BIT DEFINITIONS - RIGHT HALF
148 ; **********************************************************************
149
150 ; **************************************************
151 ;INITIAL FLAG BITS (FOR TRANSLATE INSTRUCTIONS)
152 ; **************************************************
153
154 400000 000000 SFL== 1B0
155 100000 000000 MFL== 1B2
156 040000 000000 NFL== 1B3
157
158 ; **************************************************
159 ;TRANSLATION TABLE CONTROL BITS (FOR TRANSLATE INSTRUCTIONS)
160 ;SPECIFIES FUNCTIONS FOR TWO HALFWORDS OF THE TRANSLATION TABLE
161 ; **************************************************
162
163 020000 000000 C1== 1B4
164 010000 000000 C2== 1B5
165 004000 000000 C3== 1B6
166 002000 000000 C4== 1B7
167 001000 000000 C5== 1B8
168 000400 000000 C6== 1B9
169
170 ; **************************************************
171 ;DATA SELECTION TABLE INDEX BITS (CVTXXX INSTRUCTIONS)
172 ; **************************************************
173
174 000400 DATA0== 1B27
175 000200 DATA1== 1B28
176 000100 DATA2== 1B29
177 000700 DATA== 1B27!1B28!1B29
178
179 ; **************************************************
180 ;STRING LENGTH TABLE INDEX BITS (CVTXXX INSTRUCTIONS)
181 ; **************************************************
182
183 000040 STRL0== 1B30
184 000020 STRL1== 1B31
185 000060 STRL== 1B30!1B31
186
187 ; **************************************************
188 ;BYTE OFFSET TABLE INDEX BITS (FOR MOVXX AND CVTXX INSTRUCTIONS)
189 ; **************************************************
190
191 000010 OFF0== 1B32
192 000004 OFF1== 1B33
193 000014 OFF== 1B32!1B33
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 6
DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0033
194
195 ; **********************************************************************
196 ; CONT'D - CASE TABLE COMMAND WORD BIT DEFINITIONS - RIGHT HALF
197 ; **********************************************************************
198
199 ; **************************************************
200 ;INITIAL PATTERN BYTE # DEFINITION BITS (USED IN EDIT INSTRUCTION)
201 ; **************************************************
202
203 000002 PB1== 1B34
204 000001 PB2== 1B35
205 000003 PB== 1B34!1B35
206
207 ; **********************************************************************
208 ;BIT DEFINITIONS USED TO SPECIFY FLAG & TRANSLATION TABLE CONTROL BITS
209 ;IN CASE TABLES
210 ; **********************************************************************
211
212 400000 SFL1== 400000
213 200000 MFL1== 200000
214 100000 NFL1== 100000
215
216 040000 C1A== 040000
217 020000 C2A== 020000
218 010000 C3A== 010000
219 004000 C4A== 004000
220 002000 C5A== 002000
221 001000 C6A== 001000
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 7
DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0034
222
223 ; **********************************************************************
224 ;DEFINITION OF THE NUMBER OF PLACES THAT THE INDEX TYPE BITS IN THE
225 ; CASE WORD MUST BE SHIFTED TO ISOLATE THEM IN THE RIGHT-MOST
226 ; PART OF THE WORD.FACILITATES EASY ALTERATION OF THE CASE TABLE
227 ; BIT DEFINITIONS FOR MAINTAINANCE PURPOSES.
228 ; **********************************************************************
229
230 777777 777776 OFFSH== -2
231 777777 777774 STRLSH== -4
232 777777 777772 DATASH== -6
233 000000 PBSH== 0
234
235 ; **********************************************************************
236 ;*INSTRUCTION SKIP DECISION BITS (FOR CMPXX INSTRUCTIONS)
237 ; **********************************************************************
238
239 000004 GF== 1B33 ;SET IF STR1 > STR2
240 000002 EF== 1B34 ;SET IF STR1 = STR2
241 000001 LF== 1B35 ;SET IF STR1 < STR2
242
243 ; *******************************************************************
244 ;*EDIT INSTRUCTION PATTERN CODE AND TRANSLATE TABLE DEFINITIONS
245 ; *******************************************************************
246
247 000000 STOP== 0
248 000001 SELECT== 1
249 000002 SIGST== 2
250 000003 FLDSEP== 3
251 000004 EXCHMD== 4
252 000005 NOP== 5
253 000100 MESSAG== 100
254 000500 SKPM== 500
255 000600 SKPN== 600
256 000700 SKPA== 700
257 000200 NOP1== 200
258 000300 NOP2== 300
259 000400 NOP3== 400
260 000006 NOP4== 006
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 8
DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0035
261
262 ; **********************************************************************
263 ;*EDMOD -- MACRO FOR EDIT INSTRUCTION TEST SUBMODULES
264 ; **********************************************************************
265
266 DEFINE EDMOD (%TITL,%TIT1,TITLN,TABWD,FILWD,BYTNM)< LALL
267
268 %TITL: MOVEI .
269 MOVEM TESTPC
270
271 MOVEI AC0,BYTNM ;INDEX TO BYTE TYPE TABLE
272 MOVEM BYTYPE ;STORE
273
274 SETZM OFFSET
275 CAIN AC0,1 ;EXCHMD OPERATOR?
276 SETOM OFFSET ;YES
277
278 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
279 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
280
281 %TIT1: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
282 SETZM SKPWD2
283
284 GO CLRSTR ;CLEAR STRING BYTES
285
286 MOVE AC2,FILWD ;TABLE FILLER BYTE TYPE
287 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
288 MOVE AC0,[PATTBL,,PATTBL+1]
289 BLT AC0,PATTBL+^D9
290
291 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
292
293 LDB AC3,PATBN ;GET THE CURRENT PB#
294 MOVE AC1,TABWD(AC3) ;GET TABLE TEST WORD
295 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
296
297 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
298 MOVE MA,[POINT 0,SOURCE] ;YES
299
300 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
301 BLT AC0,ORIGSV+4
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 9
DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0036
302
303 ; **************************************************
304 GO EDTSIM ;SIMULATE THE INSTRUCTION
305 SETOM SKPWD1
306 ; **************************************************
307
308 SKIPE OFFSET ;EXCHMD OPERATOR?
309 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
310
311 ; **************************************************
312 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
313 SETOM SKPWD2
314 ; **************************************************
315
316 GO EDTCOM ;COMPARE THE RESULTS
317 ERROR %TIT1,13,0,0,,,EDTPNT
318 LALL
319 AOBJN AC7,%TIT1 ;DO THE NEXT CASE
320
321 SETZM OFFSET
322 JRST TITLN ;FINISHED - GO TO NEXT SUBMODULE
323 SALL>
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 10
DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0037
324
325 ; **********************************************************************
326 ;*PFMAC -- MACRO WHICH SETS UP, EXECUTES, AND VERIFIES PAGE FAIL
327 ; **********************************************************************
328
329 DEFINE PFMAC (INS,PFC,COR,CAS,PRE,TRAN)< LALL
330
331 PRE'ST: MOVEI .
332 MOVEM TESTPC
333
334 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS
335
336 HRLZI AC1,INS ;AC1/-# PRE INSTR,,0
337 HRRI AC1,PRE'TAB ;AC1/-# PRE INSTR,,OPCODE TABLE ADDR
338
339 SETZM E0
340 SETZM E0+1
341
342 PRE'PF0: HRREI AC2,PFC ;AC2/-# PAGE FAIL CASES
343
344 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ
345 CAIN AC0,017
346 SUBI AC2,1
347
348 CAIE AC0,004 ;EDIT INSTRUCTION?
349 JRST PRE'PFA
350
351 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE
352 MOVEM AC0,PATTBL
353 MOVE AC0,[PATTBL,,PATTBL+1]
354 BLT AC0,PATTBL+^D8
355
356 MOVE AC0,STOPWD
357 MOVEM AC0,PATTBL+^D9
358
359 PRE'PFA: MOVEI AC3,CAS ;INITIAL AC BLOCK TABLE
360 MOVEI AC4,COR ;ADDR OF INTERMEDIATE RESULT TABLE
361
362 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
363 SETZM SKPWD2
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 11
DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0038
364
365 ; **************************************************
366 ;SET UP THE SOURCE AND DESTINATION STRINGS
367 ; **************************************************
368
369 GO CLRSTR
370
371 SETZM 75750 ;CLEAR THE FAIL STRING AREA
372 MOVE AC0,[75750,,75751]
373 BLT AC0,76100
374
375 PRE'PF1: GO PFACB ;SET UP THE INITIAL AC BLOCK
376
377 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE
378 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING
379
380 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION
381
382 SKIPE FILLF ;FILLER FAILURE CASE?
383 DPB AC0,[POINT 9,400777,8] ;YES
384
385 SKIPN FILLF
386 DPB AC0,E0OP ;NO
387
388 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION?
389 JRST PRE'PC ;NO
390
391 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE
392 SKIPE FILLF ;FILLER FAILURE CASE?
393 HRRM AC0,400777 ;YES
394 HRRM AC0,E0 ;NO
395
396 MOVE AC0,[1,,1]
397 GO TRAN ;SETUP THE TRANSLATION TABLE
398 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 12
DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0039
399
400 PRE'PC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
401 BLT AC0,ORIGSV+4
402
403 SKIPE FILLF ;FILLER FAILURE CASE?
404 MOVE AC0,[0,,PRE'PC2] ;YES
405 SKIPN FILLF
406 MOVE AC0,[0,,PRE'PC1] ;NO
407 MOVEM FAILOC# ;STORE IT
408
409 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED
410 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG
411
412 MOVEI PRE'PFX
413 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
414
415 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP
416
417 SKIPE FILLF ;FILLER FAILURE CASE?
418 JRST PRE'PC2 ;YES
419
420 ; **************************************************
421 PRE'PC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
422 SETOM SKPWD2 ;NOTE SKIP RETURN
423 ; **************************************************
424
425 JRST PRE'PF3
426
427 ; **************************************************
428 PRE'PC2: EXTEND AC,400777 ;MAKE E0+1 FAIL
429 SETOM SKPWD2 ;NOTE SKIP RETURN
430 ; **************************************************
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 13
DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0040
431
432 ; **************************************************
433 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
434 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
435 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
436 ;INSTRUCTION AND TO HERE.
437 ; **************************************************
438
439 PRE'PF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR?
440 JRST DO'PRE ;YES - OK
441
442 ERROR PRE'PF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS
443 LALL
444 JRST PRE'NXT ;GO DO THE NEXT CASE
445
446 PRE'PFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ?
447 JRST PRE'PF9 ;YES, CHECK INTERMEDIATE RESULTS
448
449 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT
450 ERLP2 PRE'PF0
451 LALL
452 JRST PRE'NXT
453
454 PRE'PF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT
455 ERLP2 PRE'PF0
456 LALL
457 JRST PRE'NXT
458
459 ; **************************************************
460 DO'PRE: GO PRE'SIM ;SIMULATE THE INSTRUCTION
461 SETOM SKPWD1 ;NOTE A SKIP RETURN
462 ; **************************************************
463
464 GO COMAC ;COMPARE THE FINAL RESULTS
465 ERROR PRE'PF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT
466 LALL
467 PRE'NXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS
468 ADDM AC0,AC4
469 ADDI AC0,1
470 ADDM AC0,AC3
471
472 AOJL AC2,PRE'PF1 ;DO THE NEXT PF CASE
473
474 AOBJN AC1,PRE'PF0 ;DO THE NEXT INSTRUCTION
475 SETZM OFFSET
476 SALL>
477 ;END OF FILE
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1
PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0041
478 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978
479
480 DEFINE S,<;*********************************************************************>
481
482 S^;*********************************************************************^
483 ;*DATA SWITCHES
484 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
485 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
486 S^;*********************************************************************^
487
488 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
489 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
490 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
491
492 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
493 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
494 010000 DING== 010000 ;RING BELL ON ERROR
495
496 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
497 002000 ERSTOP==002000 ;HALT ON TEST ERROR
498 001000 PALERS==001000 ;PRINT ALL ERRORS
499
500 000400 RELIAB==000400 ;RELIABILITY MODE
501 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
502 000100 INHPAG==000100 ;INHIBIT PAGING
503
504 000040 MODDVC==000040 ;MODIFY DEVICE CODE
505 000020 INHCSH==000020 ;INHIBIT CACHE
506 000010 OPRSEL==000010 ;OPERATOR SELECTION
507
508 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
509
510 ;SWITCH 16 RESERVED
511
512 ;SWITCH 17 RESERVED !!!
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 2
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0042
513 SUBTTL PROGRAM/SUBROUTINE PARAMETERS
514
515 S^;*********************************************************************^
516 ;*SPECIAL SUBPROGRAM LINKAGES
517 S^;*********************************************************************^
518
519 027772 FSELNK= 27772 ;FILE SELECT LINK
520 027773 FRDLNK= 27773 ;FILE READ LINK
521 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
522 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
523 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
524 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
525
526 S^;*********************************************************************^
527 ;*SPECIAL SUBROUTINE FATAL HALTS
528 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
529 S^;*********************************************************************^
530
531 ;ADDRESS TAG REASON
532 ;---------------------
533
534 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
535 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
536 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
537 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
538 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL
539 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET
540 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
541 ; 1017 EOPERR ;END OF PROGRAM ERROR
542 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
543
544 S^;*********************************************************************^
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 3
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0043
545 S^;*********************************************************************^
546 ;OPERATOR DEFINITIONS (NON-UUO'S)
547 S^;*********************************************************************^
548
549 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
550 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
551 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
552 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
553 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
554 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
555 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
556 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
557
558 S^;*********************************************************************^
559 ;*SUBROUTINE INITIALIZATION CALL
560 S^;*********************************************************************^
561
562 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
563
564 S^;*********************************************************************^
565 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
566 S^;*********************************************************************^
567
568 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
569 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
570
571 S^;*********************************************************************^
572 ;*TERMINAL INPUT UUO'S
573 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
574 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
575 S^;*********************************************************************^
576
577 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
578 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
579 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
580 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
581 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
582 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
583 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
584 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
585 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
586 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
587 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 4
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0044
588 ;*TERMINAL OUTPUT UUO'S.
589
590 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
591 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
592 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
593 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
594 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
595 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
596 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
597 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
598 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
599 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
600 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
601 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
602 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
603 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
604 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
605 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
606 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
607 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
608 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
609 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
610 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
611 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
612 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
613 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
614 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
615 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
616 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
617 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
618 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
619 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
620 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
621 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
622 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
623 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
624 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
625 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
626 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
627 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
628 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
629 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
630 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
631 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 5
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0045
632 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
633 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
634 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
635 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
636 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
637 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
638 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
639 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
640 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
641 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
642 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
643 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
644 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
645
646 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
647
648 DEFINE PMSG (ARG),<
649 PSIXM [SIXBIT\ARG'_\]>
650
651 DEFINE PMSGF (ARG),<
652 PSIXMF [SIXBIT\ARG'_\]>
653
654 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
655 ;* CONSERVES CORE OVER ASCIZ
656
657 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
658
659 ;*CONSOLE SWITCH INPUT UUO.
660 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
661 ;* USER MODE.
662
663 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
664
665 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
666 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
667
668 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK
669 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER
670
671 ;*KS-10 CACHE OPERATION UUO'S
672
673 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
674 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
675 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 6
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0046
676 ;*END OF PASS/PROGRAM UUOS
677
678 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
679 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
680
681 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
682 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
683
684 ;*MEMORY MANAGEMENT UUO'S
685 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
686 ;*ADDRESS CONVERSION, ETC...
687
688 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
689 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
690 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
691 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
692 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
693 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
694 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
695
696 ;*DEVICE CODE MODIFICATION UUO
697 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
698 ;*IOT'S TO A DIFFERENT DEVICE CODE.
699
700 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
701 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
702
703 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
704 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
705
706 ;*"DIAMON" FILE SELECTION AND READ UUOS
707
708 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
709 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
710 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
711 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
712
713 XLIST
714 IFNDEF EROLD,<LIST
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 7
PARAM KSM 28-Mar-78 11:27 ERROR HANDLING UUO DEFINITIONS SEQ 0047
715 SUBTTL ERROR HANDLING UUO DEFINITIONS
716
717 S^;*********************************************************************^
718 ;*ERROR HANDLER PARAMETERS
719 S^;*********************************************************************^
720
721 036000 000000 OPDEF ERUUO [36B8] ;ERROR CALL UUO
722 035000 000000 OPDEF ERLOOP [35B8] ;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
723 035040 000000 OPDEF ERLP1 [35B8!1B12] ;ERROR LOOP IF PC'S MATCH
724 035100 000000 OPDEF ERLP2 [35B8!2B12] ;ERROR LOOP IF ANY ERROR
725 034000 000000 OPDEF REPTUO [34B8] ;REPEAT LOOP UUO
726
727 ;*THE ERROR HANDLER MACROS
728
729 ;*A MACRO TO REPORT AN ERROR AND LOOP
730
731 DEFINE ERROR (ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
732 SALL
733 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
734 CORECT,,ACTUAL
735 [SIXBIT\D'_\],,ERR]
736 XALL
737 ERLOOP ADR ;IF ERROR, LOOP TO ADR
738 >
739
740 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP
741
742 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)<
743 SALL
744 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
745 CORECT,,ACTUAL
746 [SIXBIT\D'_\],,ERR]
747 XALL>
748
749 >;END OF EROLD CONDITIONAL
750
751 XLIST
752 LIST
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0048
753 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978
754
755 030000 LOC 30000
756
757 S^;*********************************************************************^
758 ;*PROGRAM STARTING ADDRESSES
759 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
760 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
761 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
762 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
763 S^;*********************************************************************^
764
765 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
766 030001 254 00 0 00 030600 $START: JRST START ;MODE CHECK STARTING ADDRESS
767
768 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
769
770 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
771
772 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
773
774 030005 254 00 0 00 030000 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
775
776 030006 254 00 0 00 030000 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
777
778 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
779 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
780
781 030010 254 00 0 00 030610 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
782 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
783 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
784
785 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
786 030014 254200 030000 START2: SADR8 ; "
787 030015 254200 030000 START3: SADR9 ; "
788 030016 254200 030000 START4: SADR10 ; "
789 030017 254200 030000 START5: SADR11 ; "
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 2
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0049
790 S^;*********************************************************************^
791 ;*PROGRAM FIXED PARAMETER AREA
792 S^;*********************************************************************^
793
794 030020 446353 434700 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
795 030021 605664 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
796 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER
797 030023 000000 000017 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
798 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
799 030025 000000 035501 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
800 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
801 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
802 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
803 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
804 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
805 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
806 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
807 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
808 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
809
810 S^;*********************************************************************^
811 ;*PROGRAM VARIABLE PARAMETER AREA
812 S^;*********************************************************************^
813
814 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
815 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
816 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
817 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
818 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
819 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
820 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
821 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
822 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
823 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
824 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
825 030052 000000 000000 ERRPC: 0 ;ERROR PC
826 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
827 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
828 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
829 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 3
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0050
830 S^;*********************************************************************^
831 ;*SPECIAL PROGRAM DISPATCH ADDRESSES
832 S^;*********************************************************************^
833
834 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
835 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
836 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
837 030062 000000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
838 030063 000000 030007 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
839 030064 CPOPJ1: ;SKIP RETURN
840 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
841 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
842 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
843 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
844 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
845 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
846 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
847 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
848 030073 255 00 0 00 000000 $USRHL: JFCL ; "
849 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
850 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
851 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
852 030077 255 00 0 00 000000 RESRT2: JFCL ; "
853 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
854 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
855 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
856
857 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
858 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
859 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
860
861 S^;*********************************************************************^
862 ;*PROCESSOR CONTROL STORAGE
863 S^;*********************************************************************^
864
865 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
866 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
867 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
868 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
869 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
870
871 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
872 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
873
874 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
875 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
876 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
877 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
878 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
879 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
880 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 4
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0051
881 S^;*********************************************************************^
882 ;*UUO DISPATCH TABLE
883 S^;*********************************************************************^
884 XLIST
885 LIST
886 030124 030070 030070 UUODIS: LUUO1,,$UUOER
887 030125 030070 030070 LUUO3,,LUUO2
888 030126 030070 030070 LUUO5,,LUUO4
889 030127 030070 030070 LUUO7,,LUUO6
890 030130 030070 030070 LUUO11,,LUUO10
891 030131 030070 030070 LUUO13,,LUUO12
892 030132 030070 030070 LUUO15,,LUUO14
893 030133 030070 030070 LUUO17,,LUUO16
894 030134 030070 030070 LUUO21,,LUUO20
895 030135 030070 030070 LUUO23,,LUUO22
896 030136 030070 030070 LUUO25,,LUUO24
897 030137 030070 030070 LUUO27,,LUUO26
898 030140 030070 030070 LUUO31,,LUUO30
899 030141 030070 030070 LUUO33,,LUUO32
900
901 S^;*********************************************************************^
902 ;*MEMORY MANAGMENT STORAGE
903 S^;*********************************************************************^
904
905 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
906 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
907 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
908 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
909 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
910
911 S^;*********************************************************************^
912 ;*PRINT CONTROL STORAGE
913 S^;*********************************************************************^
914
915 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
916 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
917 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
918 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
919 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
920 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
921 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
922 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
923 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
924 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
925 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
926 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
927 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
928 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
929 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
930 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
931 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
932 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
933 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 5
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0052
934 S^;*********************************************************************^
935 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
936 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
937 ;* MOVEI NAME
938 ;* PNTA ;OR PNTAF
939 S^;*********************************************************************^
940
941 030242 CRLF: ASCII/
942 030242 015 012 000 000 000 /
943 030243 CRLF2: ASCII/
944
945 030243 015 012 015 012 000 /
946 030244 054 000 000 000 000 COMMA: ASCII/,/
947 030245 056 000 000 000 000 PERIOD: ASCII/./
948 030246 040 000 000 000 000 SPACE: ASCII/ /
949 030247 011 000 000 000 000 TAB: ASCII/ /
950 030250 MINUS:
951 030250 055 000 000 000 000 HYPEN: ASCII/-/
952 030251 053 000 000 000 000 PLUS: ASCII/+/
953 030252 052 000 000 000 000 AST: ASCII/*/
954 030253 100 000 000 000 000 ATSIN: ASCII/@/
955 030254 050 000 000 000 000 LFP: ASCII/(/
956 030255 051 000 000 000 000 RTP: ASCII/)/
957 030256 007 0000000000 BELL: BYTE (7) 007
958 030257 077 000 000 000 000 QUEST: ASCII/?/
959 030260 057 000 000 000 000 SLASH: ASCII!/!
960 030261 044 000 000 000 000 DOLLAR: ASCII/$/
961 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
962 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
963 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
964
965 S^;*********************************************************************^
966 ;*USER MODE OUTPUT FILE INFORMATION
967 S^;*********************************************************************^
968
969 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
970 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
971 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
972 030272 BLOCK 2
973
974 S^;*********************************************************************^
975 ;*DISK UPDATE MODE FILE INFORMATION
976 S^;*********************************************************************^
977
978 030274 $IBUF: BLOCK 3
979 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
980 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
981 030301 BLOCK 2
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 6
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0053
982 S^;*********************************************************************^
983 ;*PUSHDOWN LIST CONTROL INFORMATION
984 S^;*********************************************************************^
985
986 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
987 030304 PLISTS: BLOCK 200
988 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
989
990 S^;*********************************************************************^
991 ;*POWER LINE CLOCK FREQUENCY FLAG
992 S^;*********************************************************************^
993
994 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
995
996 S^;*********************************************************************^
997 ;*KL10 CACHE CONTROL FLAGS
998 S^;*********************************************************************^
999
1000 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
1001 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
1002
1003 S^;*********************************************************************^
1004 ;*NUMBER INPUT DIGIT FLAG
1005 S^;*********************************************************************^
1006
1007 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
1008
1009 S^;*********************************************************************^
1010 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
1011 S^;*********************************************************************^
1012
1013 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
1014
1015 S^;*********************************************************************^
1016 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
1017 S^;*********************************************************************^
1018
1019 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
1020 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
1021 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
1022
1023 S^;*********************************************************************^
1024 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
1025 S^;*********************************************************************^
1026
1027 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 7
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0054
1028 S^;*********************************************************************^
1029 ;*USER MODE MONITOR TYPE FLAG
1030 S^;*********************************************************************^
1031
1032 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20
1033
1034 S^;*********************************************************************^
1035 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
1036 S^;*********************************************************************^
1037
1038 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
1039
1040 S^;*********************************************************************^
1041 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
1042 S^;*********************************************************************^
1043
1044 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
1045
1046 S^;*********************************************************************^
1047 ;*"SWITCH" CALL USAGE CONTROL
1048 S^;*********************************************************************^
1049
1050 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
1051
1052 S^;*********************************************************************^
1053 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
1054 S^;*********************************************************************^
1055
1056 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
1057 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
1058
1059 S^;*********************************************************************^
1060 ;*SM10 (KS-10) PROCESSOR TYPE FLAG
1061 S^;*********************************************************************^
1062
1063 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10
1064
1065 S^;*********************************************************************^
1066 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
1067 S^;*********************************************************************^
1068
1069 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
1070
1071 S^;*********************************************************************^
1072 ;*SPECIAL FUTURE EXPANSION ROOM
1073 S^;*********************************************************************^
1074
1075 S^;*********************************************************************^
1076 ;*END OF FIXED STORAGE
1077 S^;*********************************************************************^
1078
1079 030577 LOC 30577
1080 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1
DSKCGM MAC 11-Sep-79 15:13 PROGRAM CONTROL SECTION SEQ 0055
1081 SUBTTL PROGRAM CONTROL SECTION
1082 SALL
1083 ; **********************************************************************
1084 ;*START - INITIALIZATION ROUTINE
1085 ; **********************************************************************
1086
1087 030600 201 00 0 00 030600 START: MOVEI START ;GET ADDRESS OF CURRENT PROGRAM SECTION
1088 030601 202 00 0 00 030051 MOVEM TESTPC ;STORE IT
1089
1090 030602 332 00 0 00 030056 SKIPE $ONETM ;INITIAL LOAD FLAG
1091 030603 254 00 0 00 030607 JRST STRT ;GO TO FIRST TEST
1092
1093 030604 201 00 0 00 000001 MOVEI 1 ;INITIALIZE STRING LENGTH
1094 030605 202 00 0 00 041171 MOVEM RLEN#
1095 030606 402 00 0 00 041160 SETZM INCSKP# ;CLEAR SKIP RETURN FLAG
1096
1097 030607 265 00 0 00 030011 STRT: PGMINT ;INITIALIZE PROGRAM
1098
1099 ; **********************************************************************
1100 ;*STARTA - PROGRAM PASS CONTROL SECTION
1101 ; **********************************************************************
1102
1103 030610 260 17 0 00 034667 STARTA: GO MUUOHS ;SET UP PROGRAM'S OWN MUUO HANDLER
1104 030611 402 00 0 00 041162 SETZM OFFSET
1105
1106 030612 037 10 0 00 000002 SWITCH
1107 030613 201 01 0 00 000012 MOVEI AC1,^D10
1108 030614 607 00 0 00 000400 TLNN RELIAB ;RELIABILITY MODE?
1109 030615 201 01 0 00 000001 MOVEI AC1,1 ;NO - FAST CYCLE MODE
1110 030616 202 01 0 00 041172 MOVEM AC1,RPEAT#
1111
1112 030617 254 00 0 00 030620 JRST TRAPT1 ;START TESTING
1113
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 2
DSKCGM MAC 11-Sep-79 15:13 MUUO TRAP TESTING SEQ 0056
1114 SUBTTL MUUO TRAP TESTING
1115
1116 ; **********************************************************************
1117 ;*TEST 1 -- EXTENDED OPERATOR EXECUTION TRAP TEST
1118 ;*
1119 ;* THIS TEST EXECUTES ALL EXTENDED OPERATORS IN THE
1120 ;* EXTENDED INSTRUCTION SET AS INSTRUCTIONS.
1121 ;* FOR EXAMPLE, 004 (EDIT) IS EXECUTED AS AN INSTRUCTION OPCODE.
1122 ;* EACH ATTEMPTED EXECUTION SHOULD CAUSE AN LUUO.
1123 ;* IF IT DOES NOT AN ERROR PRINTOUT OCCURS.
1124 ; **********************************************************************
1125 SALL
1126 037256 T= SIXBTZ <EXTENDED OPERATOR EXECUTION TRAP TEST>
1127
1128 030620 201 00 0 00 030620 TRAPT1: MOVEI . ;GET TEST ADDRESS
1129 030621 202 00 0 00 030051 MOVEM TESTPC ;STORE IT
1130 030622 200 15 0 00 041172 MOVE REPT,RPEAT ;GET LOOP COUNTER
1131
1132 030623 514 06 0 00 035516 TRAP1: HRLZ AC6,OPTAB-1 ;AC6/-TABLE LENGTH,,0
1133 030624 541 06 0 00 035517 HRRI AC6,OPTAB ;AC6/-TABLE LENGTH,,TABLE ADDRESS
1134
1135 030625 200 00 0 00 000041 TRAP1A: MOVE 41 ;SAVE SUBROUTINE PKG.TRAP ROUTINE ADDR
1136 030626 202 00 0 00 041175 MOVEM SVLUUO#
1137
1138 030627 200 00 0 00 037265 MOVE [PUSHJ 17,LUUOH] ;GET ADDRESS OF LUUO HANDLER
1139 030630 202 00 0 00 000041 MOVEM 41 ;SETUP FOR UUO INTERCEPTION
1140
1141 030631 476 00 0 00 041157 SETOM GOTRAP# ;INDICATE THAT TRAP IS EXPECTED
1142 030632 200 00 0 06 000000 MOVE (AC6) ;RETRIEVE OPCODE FROM TABLE
1143 030633 402 00 0 00 030635 SETZM EXLAB ;CLEAR INSTRUCTION WORD
1144 030634 137 00 0 00 037266 DPB [POINT 9,EXLAB,8] ;INSERT IN NEXT LOCATION TO BE EXECUTED
1145
1146 ; **************************************************
1147 030635 EXLAB: BLOCK 1 ;WORD THAT HOLDS THE INSTRUCTION
1148 030636 255 00 0 00 000000 JFCL ;IN CASE INSTRUCTION DOESN'T TRAP
1149 ; **************************************************
1150
1151 030637 200 00 0 00 041175 MOVE SVLUUO ;RESTORE SUBROU. PKG.TRAP ROUTINE SETUP
1152 030640 202 00 0 00 000041 MOVEM 41
1153
1154 030641 332 00 0 00 041157 SKIPE GOTRAP ;IF GOTRAP=0 THEN INSTRUCTION TRAPPED
1155 ERROR (TRAP1A,13,EXLAB,0,^_
1156 ^CORRECT=INSTRUCTION,^_
1157 030642 036 13 0 00 037304 ILLEGAL INSTRUCTION EXECUTION FAILED TO CAUSE LUUO)
1158 030643 035 00 0 00 030625 ERLOOP TRAP1A ;IF ERROR, LOOP TO TRAP1A
1159 030644 253 01 0 00 030625 AOBJN 1,TRAP1A ;GET THE NEXT OPCODE FROM THE TABLE
1160
1161 030645 367 15 0 00 030623 REPTLP TRAP1
1162 030646 254 00 0 00 030647 JRST TRAPT2
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 3
DSKCGM MAC 11-Sep-79 15:13 MUUO TRAP TESTING SEQ 0057
1163
1164 ; **********************************************************************
1165 ;*TEST 2 -- ILLEGAL EXTENDED OPERATOR TRAP TEST
1166 ;*
1167 ;* THE MICROCODE PERFORMS A RANGE CHECK ON THE EXTENDED
1168 ;* OPERATOR CODE IN E0. (KS ONLY - SINCE THE KS10 IS A SINGLE
1169 ;* SECTION MACHINE AND DOES NOT SUPPORT EXTENDED ADDRESSING,
1170 ;* BITS 9-12 OF E0 SHOULD CAUSE A TRAP IF NOT EQUAL TO ZERO.)
1171 ;* IF AN MUUO DOES NOT OCCUR WHEN ILLEGAL VALUES ARE SPECIFIED
1172 ;* FOR THE E0 WORD AN ERROR PRINTOUT OCCURS.
1173 ; **********************************************************************
1174 SALL
1175 037307 T= SIXBTZ <ILLEGAL EXTENDED OPERATOR TRAP TEST>
1176
1177 030647 201 00 0 00 030647 TRAPT2: MOVEI . ;GET TEST ADDRESS
1178 030650 202 00 0 00 030051 MOVEM TESTPC ;STORE IT
1179 030651 200 15 0 00 041172 MOVE REPT,RPEAT
1180
1181 030652 403 10 0 00 000011 TRAP2: SETZB AC,AC+1 ;CLEAR AC'S TO PROTECT THE PROGRAM IN
1182 030653 403 13 0 00 000014 SETZB AC+3,AC+4 ;CASE NO MUUO'S OCCUR
1183
1184 030654 515 05 0 00 037000 HRLZI 5,37000 ;THIS VALUE IS AN OUT OF RANGE OPERATOR
1185 030655 202 05 0 00 035564 MOVEM 5,E0 ;SETUP E0 FIELD
1186
1187 030656 476 00 0 00 041157 SETOM GOTRAP ;INDICATE THAT WE EXPECT AN MUUO
1188
1189 ; **************************************************
1190 030657 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE EXTENDED INSTRUCTION
1191 030660 255 00 0 00 000000 JFCL ;IN CASE THE INSTRUCTION DOESN'T TRAP
1192 ; **************************************************
1193
1194 030661 332 00 0 00 041157 SKIPE GOTRAP
1195 ERROR (TRAP2,13,E0,0,^_
1196 ^CORRECT=INSTRUCTION,^_
1197 030662 036 13 0 00 037324 OUT OF RANGE OPERATOR FAILED TO TRAP)
1198 030663 035 00 0 00 030652 ERLOOP TRAP2 ;IF ERROR, LOOP TO TRAP2
1199
1200 030664 332 00 0 00 030524 SKIPE SM10 ;KS-10?
1201 030665 254 00 0 00 030670 JRST TRAP2A ;YES - SO CHECK BITS 9-12 IN E0 WORD
1202
1203 030666 367 15 0 00 030652 REPTLP TRAP2
1204 030667 254 00 0 00 030704 JRST TRAPT3 ;KL DOES NOT CHECK BITS 9-12
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 4
DSKCGM MAC 11-Sep-79 15:13 MUUO TRAP TESTING SEQ 0058
1205
1206 030670 403 10 0 00 000011 TRAP2A: SETZB AC,AC+1 ;CLEAR AC'S TO PROTECT THE PROGRAM IN
1207 030671 403 13 0 00 000014 SETZB AC+3,AC+4 ;CASE NO MUUO'S OCCUR
1208
1209 030672 515 05 0 00 001740 HRLZI 5,1740 ;SET BITS IN E0 9,12 (SHOULD BE BLANK)
1210 030673 202 05 0 00 035564 MOVEM 5,E0 ;SETUP EO FIELD
1211
1212 030674 476 00 0 00 041157 SETOM GOTRAP ;INDICATE THAT WE EXPECT AN MUUO
1213
1214 ; **************************************************
1215 030675 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE EXTENDED INSTRUCTION
1216 030676 255 00 0 00 000000 JFCL ;IN CASE THE INSTRUCTION DOESN'T TRAP
1217 ; **************************************************
1218
1219 030677 332 00 0 00 041157 SKIPE GOTRAP ;GOTRAP=0 MEANS TRAP OCCURED
1220 ERROR (TRAP2A,13,E0,0,^_
1221 ^CORRECT=INSTRUCTION,^_
1222 ILLEGAL AC FIELD BITS 9-12 FAILED TO TRAP)^
1223 030700 036 13 0 00 037336
1224 030701 035 00 0 00 030670 ERLOOP TRAP2A ;IF ERROR, LOOP TO TRAP2A
1225
1226 030702 367 15 0 00 030652 REPTLP TRAP2
1227 030703 254 00 0 00 030704 JRST TRAPT3
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 5
DSKCGM MAC 11-Sep-79 15:13 MUUO TRAP TESTING SEQ 0059
1228
1229 ; **********************************************************************
1230 ;*TEST 3 -- ILLEGAL AC FIELD TRAP TEST
1231 ;*
1232 ;* THIS TEST EXECUTES THE EXTENDED INSTRUCTIONS
1233 ;* WITH ILLEGAL OR UNUSED AC FIELDS SET (BIT BY BIT). THE
1234 ;* EXECUTION OF THESE INSTRUCTIONS SHOULD CAUSE A TRAP. IF IT
1235 ;* DOES NOT OCCUR AN ERROR PRINTOUT OCCURS. (KS ONLY - SINCE THE
1236 ;* KS-10 IS A SINGLE SECTION MACHINE BITS 6-17 OF THE PATTERN
1237 ;* POINTER FIELD (AC) FOR THE EDIT INSTRUCTION SHOULD TRAP
1238 ;* IF NOT EQUAL TO ZERO.)
1239 ;*
1240 ;* NOTE: THERE ARE SOME AC FIELDS THAT ARE LISTED AS UNUSED OR 0
1241 ;* IN THE INSTRUCTION SPEC THAT ARE NOT TRAPPED AS
1242 ;* MUUOS BY THE MICROCODE (I.E. ILLEGAL SETTING OF THOSE
1243 ;* BITS HAS NO EFFECT ON THE INSTRUCTION).
1244 ; **********************************************************************
1245 SALL
1246 037341 T= SIXBTZ <ILLEGAL AC FIELD TRAP TEST>
1247
1248 030704 201 00 0 00 030704 TRAPT3: MOVEI . ;GET TEST ADDRESS
1249 030705 202 00 0 00 030051 MOVEM TESTPC ;STORE IT
1250 030706 200 15 0 00 041172 MOVE REPT,RPEAT
1251
1252 030707 135 11 0 00 037346 TRAP3: LDB SP,[POINT 0,SOURCE,0] ;SETUP ACS TO PROTECT PROGRAM
1253 030710 135 14 0 00 037347 LDB DP,[POINT 0,DESTIN,0] ;IN CASE THE INSTR DOESN'T TRAP
1254
1255 030711 403 10 0 00 000013 SETZB AC,AC+3 ;CLEAR STRING LENGTH ACS
1256
1257 ; **************************************************
1258 ;*TEST COMPARE INSTRUCTION STRING LENGTH AC BITS 0,9
1259 ; **************************************************
1260
1261 030712 515 06 0 00 777772 HRLZI AC6,-6 ;AC6/- #CMP INSTR,,0
1262 030713 541 06 0 00 035517 HRRI AC6,OPTAB ;AC6/- #CMP INSTR,,OPCODE TABLE ADDRESS
1263
1264 030714 201 04 0 00 000011 CMPTRP: MOVEI AC4,^D9 ;SETUP LOOP COUNTER
1265 030715 205 05 0 00 001000 MOVSI AC5,(1B8) ;ILLEGAL BIT MASK
1266
1267 030716 402 00 0 00 035564 CMPT1: SETZM E0 ;CLEAR THE E0 FIELD FOR TEST
1268
1269 030717 200 07 0 06 000000 MOVE AC7,(AC6) ;GET COMPARE INSTRUCTION OPCODE
1270 030720 137 07 0 00 036220 DPB AC7,E0OP ;PUT INSTRUCTION OPCODE IN E0
1271 030721 434 10 0 00 000005 OR AC,AC5 ;ILLEGAL SOURCE LENGTH BITS TO SLEN
1272
1273 030722 476 00 0 00 041157 SETOM GOTRAP ;INDICATE THE MUUO IS EXPECTED
1274
1275 ; **************************************************
1276 030723 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION
1277 030724 255 00 0 00 000000 JFCL ;IN CASE THE INSTRUCTION DOESN'T TRAP
1278 ; **************************************************
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 6
DSKCGM MAC 11-Sep-79 15:13 MUUO TRAP TESTING SEQ 0060
1279
1280 030725 332 00 0 00 041157 SKIPE GOTRAP ;GOTRAP=0 MEANS TRAP OCCURED
1281 ERROR (CMPTRP,13,AC,0,^_
1282 ^CORRECT=SOURCE LENGTH,^_
1283 030726 036 13 0 00 037366 ILLEGAL SOURCE LENGTH IN COMPARE INSTR DIDN'T CAUSE TRAP)
1284 030727 035 00 0 00 030714 ERLOOP CMPTRP ;IF ERROR, LOOP TO CMPTRP
1285
1286 030730 402 00 0 00 000010 SETZM AC ;RESET AC
1287 030731 434 13 0 00 000005 OR AC+3,AC5 ;ILLEGAL DESTINATION LENGTH BITS TO DLEN
1288 030732 476 00 0 00 041157 SETOM GOTRAP ;INDICATE THAT TRAP EXPECTED
1289
1290 ; **************************************************
1291 030733 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION
1292 030734 255 00 0 00 000000 JFCL ;IN CASE THE INSTRUCTION DOESN'T TRAP
1293 ; **************************************************
1294
1295 030735 332 00 0 00 041157 SKIPE GOTRAP ;GOTRAP=0 MEANS TRAP OCCURED
1296 ERROR (CMPTRP,13,AC+3,0,^_
1297 ^CORRECT=DESTINATION LENGTH,^_
1298 ILLEGAL DESTIN LENGTH IN COMPARE INSTR DIDN'T CAUSE TRAP)^
1299 030736 036 13 0 00 037410
1300 030737 035 00 0 00 030714 ERLOOP CMPTRP ;IF ERROR, LOOP TO CMPTRP
1301
1302 030740 402 00 0 00 000013 SETZM AC+3 ;RESET DESTINATION LENGTH AC
1303 030741 242 05 0 00 000001 LSH AC5,1 ;SETUP FOR NEXT BIT IN FIELD
1304
1305 030742 367 04 0 00 030716 SOJG AC4,CMPT1 ;DO NEXT BIT IN FIELD
1306
1307 030743 253 06 0 00 030714 AOBJN AC6,CMPTRP ;GO TRY NEXT OPCODE
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 7
DSKCGM MAC 11-Sep-79 15:13 MUUO TRAP TESTING SEQ 0061
1308
1309 ; **************************************************
1310 ;*TEST THE MOVE STRING DESTINATION LENGTH BITS 0,9
1311 ; **************************************************
1312
1313 030744 505 06 0 00 777774 MVSTRP: HRLI AC6,-4 ;AC6/- #MVS INSTR,,CURRENT TABLE ADDRESS
1314
1315 030745 205 05 0 00 001000 MVS1: MOVSI AC5,(1B8) ;SETUP ILLEGAL BIT MASK
1316 030746 201 04 0 00 000011 MOVEI AC4,^D9 ;NUMBER OF BIT POSTIONS TO CHECK
1317
1318 030747 200 07 0 06 000000 MVS2: MOVE AC7,(AC6) ;GET OPERATOR OPCODE
1319 030750 402 00 0 00 035564 SETZM E0 ;CLEAR OPERATOR FIELD
1320 030751 137 07 0 00 036220 DPB AC7,E0OP ;PUT OPCODE IN BITS 0,9
1321 030752 434 13 0 00 000005 OR AC+3,AC5 ;SETUP ILLEGAL DESTINATION LENGTH
1322
1323 030753 476 00 0 00 041157 SETOM GOTRAP ;INDICATE THAT MUUO IS EXPECTED
1324
1325 ; **************************************************
1326 030754 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION
1327 030755 255 00 0 00 000000 JFCL ;IN CASE THE TRAP DOESN'T OCCUR
1328 ; **************************************************
1329
1330 030756 332 00 0 00 041157 SKIPE GOTRAP ;GOTRAP=0 MEANS TRAP OCCURED
1331 ERROR (MVS2,13,AC+3,0,^_
1332 ^CORRECT=DESTINATION LENGTH,^_
1333 ILLEGAL DLEN IN MOVE STRING INSTR DIDN'T CAUSE TRAP)^
1334 030757 036 13 0 00 037424
1335 030760 035 00 0 00 030747 ERLOOP MVS2 ;IF ERROR, LOOP TO MVS2
1336
1337 030761 242 05 0 00 000001 LSH AC5,1 ;SETUP NEXT BIT
1338
1339 030762 367 04 0 00 030747 SOJG AC4,MVS2 ;TEST NEXT BIT
1340
1341 030763 253 06 0 00 030745 AOBJN AC6,MVS1 ;GO TRY NEXT OPCODE
1342
1343 030764 332 00 0 00 030524 SKIPE SM10 ;KS-10?
1344 030765 254 00 0 00 030771 JRST EDITRP ;YES
1345
1346 030766 035 02 0 00 030704 ERLP2 TRAPT3 ;KL-10 SO END OF THIS TEST
1347 030767 367 15 0 00 030707 REPTLP TRAP3
1348
1349 030770 254 00 0 00 031012 JRST CMPMOD ;GO TO NEXT TEST
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 8
DSKCGM MAC 11-Sep-79 15:13 MUUO TRAP TESTING SEQ 0062
1350
1351 ; **************************************************
1352 ;*TEST EDIT INSTRUCTION ILLEGAL PATTERN POINTER FIELD (KS-10 ONLY)
1353 ; **************************************************
1354
1355 030771 201 07 0 00 000004 EDITRP: MOVEI AC7,4 ;GET EDIT INSTRUCTION OPCODE
1356 030772 402 00 0 00 035564 SETZM E0 ;CLEAR E0 FIELD
1357 030773 137 07 0 00 036220 DPB AC7,E0OP ;PUT OPCODE IN BITS 0,9
1358 030774 205 05 0 00 000001 MOVSI AC5,(1B17) ;ILLEGAL FIELD MASK
1359 030775 201 04 0 00 000014 MOVEI AC4,^D12 ;NUMBER OF ILLEGAL BITS TO CHECK
1360
1361 030776 402 00 0 00 000010 EDIT1: SETZM AC ;CLEAR THE PATTERN POINTER REGISTER
1362 030777 434 10 0 00 000005 OR AC,AC5 ;SET THE ILLEGAL BIT
1363 031000 476 00 0 00 041157 SETOM GOTRAP ;INDICATE THAT MUUO EXPECTED
1364
1365 ; **************************************************
1366 031001 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION
1367 031002 255 00 0 00 000000 JFCL ;IN CASE THE INSTRUCTION DOESN'T TRAP
1368 ; **************************************************
1369
1370 031003 332 00 0 00 041157 SKIPE GOTRAP ;GOTRAP=0 MEANS TRAP OCCURED
1371 ERROR (EDIT1,13,AC,0,^_
1372 ^CORRECT=PATTERN POINTER,^_
1373 ILLEGAL PATTERN POINTER FIELD IN EDIT INSTR DIDN'T CAUSE TRAP)^
1374 031004 036 13 0 00 037447
1375 031005 035 00 0 00 030776 ERLOOP EDIT1 ;IF ERROR, LOOP TO EDIT1
1376
1377 031006 242 05 0 00 000001 LSH AC5,1 ;SETUP NEXT BIT FIELD
1378
1379 031007 367 04 0 00 030776 SOJG AC4,EDIT1 ;JUMP IF MORE FIELDS TO CHECK
1380
1381 031010 367 15 0 00 030707 REPTLP TRAP3
1382 031011 254 00 0 00 031012 JRST CMPMOD
1383
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 9
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0063
1384 SUBTTL EXTEND INSTRUCTION CASE TESTING
1385
1386 ; **********************************************************************
1387 ;*EXTEND INSTRUCTION CASE TESTING -- GENERAL INFORMATION
1388 ;*
1389 ;* THERE ARE 5 EXTEND INSTRUCTION CASE TEST MODULES (MODULE NAMES
1390 ;* SUFFIXED BY "MOD"). EDIT INSTR TESTING CONSISTS OF 9 SUBMODULES.
1391 ;*
1392 ;* EACH MODULE EXECUTES INSTRUCTIONS WITH PARAMETERS DERIVED FROM
1393 ;* A CASE TABLE (I.E. VARYING STRING LENGTHS, BYTE SIZES, FILLER
1394 ;* VALUES, PATTERNS, OFFSETS, ETC.).
1395 ;*
1396 ;* WHEN THE INSTRUCTION HAS BEEN SET UP, AN INSTRUCTION SIMULATOR
1397 ;* (ROUTINE NAMES SUFFIXED BY "SIM") IS CALLED. THE REAL INSTRUCTION
1398 ;* IS THEN EXECUTED.
1399 ;*
1400 ;* THE RESULTS OF THE INSTRUCTION AND THE SIMULATOR ARE COMPARED IN
1401 ;* AN INSTRUCTION COMPARATOR ROUTINE (ROUTINE NAME SUFFIXED BY "COM").
1402 ;*
1403 ;* EACH INSTRUCTION IS RUN FOR EVERY CASE SPECIFIED AND THEN
1404 ;* THE NEXT INSTRUCTION IS RUN FOR EVERY CASE, ETC.
1405 ;*
1406 ;* ON ERROR AN ERROR MESSAGE IS PRINTED AND THE PROGRAM PROCEEDS
1407 ;* WITH THE NEXT CASE IN SEQUENCE. THE FAILURE INFORMATION IS PRINTED
1408 ;* BY AN INSTRUCTION PRINTING ROUTINE (ROUTINE NAME SUFFIXED BY "PNT").
1409 ;*
1410 ;* THE INITIAL AC BLOCK IS STORED IN ORIGSV.
1411 ;* THE RESULTS OF THE SIMULATOR ARE STORED IN RESSV.
1412 ;* AC6 HOLDS THE INSTRUCTION OPCODE INFORMATION.
1413 ;* AC7 HOLDS THE CASE TABLE INFORMATION.
1414 ;* THE INTEGRITY OF THESE ACS IS PRESERVED THROUGHOUT MODULE EXECUTION.
1415 ; **********************************************************************
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 10
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0064
1416
1417 ; **********************************************************************
1418 ;*TEST 4 -- COMPARE STRING INSTRUCTION TEST
1419 ;*
1420 ;* THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
1421 ;* SIX COMPARE INSTRUCTIONS.
1422 ; **********************************************************************
1423 SALL
1424 037452 T= SIXBTZ <COMPARE STRING INSTRUCTION TEST>
1425
1426 031012 201 00 0 00 031012 CMPMOD: MOVEI . ;GET TEST ADDRESS
1427 031013 202 00 0 00 030051 MOVEM TESTPC ;STORE IT
1428 031014 200 15 0 00 041172 MOVE REPT,RPEAT
1429
1430 031015 515 06 0 00 777772 CMPM: HRLZI AC6,-6 ;AC6/- #CMP INSTR,,0
1431 031016 541 06 0 00 035517 HRRI AC6,CMPTAB ;AC6/- #CMP INSTR,,OPCODE TABLE ADDR
1432
1433 031017 514 07 0 00 037005 CMP1: HRLZ AC7,CMPCAS-1 ;AC7/- #CMP CASES,,0
1434 031020 541 07 0 00 037006 HRRI AC7,CMPCAS ;AC7/- #CMP CASES,,CASE TABLE ADDRESS
1435
1436 031021 200 00 0 06 000000 CMP2: MOVE (AC6) ;RETRIEVE CURRENT COMPARE OPCODE
1437 031022 137 00 0 00 036220 DPB E0OP ;PUT IN INSTRUCTION OPCODE FIELD
1438
1439 031023 260 17 0 00 035435 GO RANLEN ;STRING LENGTH TO AC0
1440 031024 202 00 0 00 000010 MOVEM SLEN ;STORE IN STRING LENGTHS
1441 031025 202 00 0 00 000013 MOVEM DLEN
1442
1443 031026 402 00 0 00 041173 SETZM SKPWD1# ;CLEAR SKIP INDICATOR WORDS
1444 031027 402 00 0 00 041174 SETZM SKPWD2#
1445 031030 402 00 0 00 035565 SETZM E0+1 ;CLEAR FILLER WORDS
1446 031031 402 00 0 00 035566 SETZM E0+2
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 11
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0065
1447
1448 ; **************************************************
1449 ;DETERMINE THE DESIRED PATTERN TYPE
1450 ; **************************************************
1451
1452 031032 200 01 0 07 000000 MOVE 1,(AC7) ;RETRIEVE CURRENT CASE PARAMETER WORD
1453 031033 607 01 0 00 010000 TLNN 1,(ALTPT) ;ALTERNATING 1'S AND 0'S PATTERN?
1454 031034 254 00 0 00 031037 JRST CHKB1 ;NO
1455
1456 031035 200 00 0 00 036431 MOVE APAT ;YES - GET THE PATTERN
1457 031036 254 00 0 00 031052 JRST CMPLEN ;CONTINUE
1458
1459 031037 607 01 0 00 002000 CHKB1: TLNN 1,(ONESPT) ;ONE'S PATTERN?
1460 031040 254 00 0 00 031043 JRST CHKC1 ;NO
1461
1462 031041 200 00 0 00 036432 MOVE BPAT ;YES - GET THE PATTERN
1463 031042 254 00 0 00 031052 JRST CMPLEN ;CONTINUE
1464
1465 031043 607 01 0 00 004000 CHKC1: TLNN 1,(ONEPT) ;ONE PATTERN (0,,1)?
1466 031044 254 00 0 00 031047 JRST CMPER1 ;NO - CASE TABLE ERROR
1467
1468 031045 200 00 0 00 036433 MOVE CPAT ;YES - GET THE PATTERN
1469 031046 254 00 0 00 031052 JRST CMPLEN ;CONTINUE
1470
1471 031047 037 02 0 00 037460 CMPER1: PMSG <^CMPXX PATTERN NOT SELECTED - ABORTING CURRENT CASE>
1472 031050 253 07 0 00 031021 AOBJN AC7,CMP2
1473 031051 254 00 0 00 031203 JRST MOVMOD ;NO CASES LEFT - GO TO NEXT TEST
1474
1475 031052 202 00 0 00 041165 CMPLEN: MOVEM PATTERN# ;STORE CHOSEN PATTERN
1476
1477 031053 603 01 0 00 400000 TLNE 1,(EQLEN) ;STRINGS OF EQUAL LENGTH?
1478 031054 254 00 0 00 031122 JRST CMPBYT ;YES - THIS IS ALREADY SET UP
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 12
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0066
1479
1480 ; **************************************************
1481 ;STRINGS WILL BE OF UNEQUAL LENGTH SO NOW PICK A FILLER
1482 ; **************************************************
1483
1484 031055 607 01 0 00 001000 CMPFIL: TLNN 1,(EQFIL) ;FILLER = PATTERN?
1485 031056 254 00 0 00 031061 JRST CMPF1 ;NO
1486
1487 031057 200 00 0 00 041165 MOVE PATTERN ;YES - PATTERN TO AC0
1488 031060 254 00 0 00 031074 JRST CMPL
1489
1490 031061 607 01 0 00 000400 CMPF1: TLNN 1,(LFILL) ;ZERO FILLER?
1491 031062 254 00 0 00 031065 JRST CMPF2 ;NO
1492 031063 200 00 0 00 036434 MOVE DPAT ;YES - ZERO PATTERN TO AC0
1493 031064 254 00 0 00 031074 JRST CMPL
1494
1495 031065 607 01 0 00 000200 CMPF2: TLNN 1,(GFILL) ;ONE'S FILLER
1496 031066 254 00 0 00 031071 JRST CMPER2 ;NO - CASE TABLE ERROR
1497 031067 200 00 0 00 036432 MOVE BPAT ;YES - ONE'S PATTERN TO AC0
1498 031070 254 00 0 00 031074 JRST CMPL
1499
1500 031071 037 02 0 00 037471 CMPER2: PMSG <^ABORTING CURRENT CASE - FILLER PATTERN NOT SPECIFIED>
1501 031072 253 07 0 00 031021 AOBJN AC7,CMP2
1502 031073 254 00 0 00 031203 JRST MOVMOD ;NO CASES LEFT - GO TO NEXT TEST
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 13
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0067
1503
1504 ; **************************************************
1505 ;NOW PUT THE FILLER (STORED IN AC0) INTO THE AC BLOCK
1506 ;THE FILLER GOES INTO E0+1 IF SLEN < DLEN AND INTO E0+2 IF SLEN > DLEN
1507 ; **************************************************
1508
1509 031074 607 01 0 00 200000 CMPL: TLNN 1,(SZERO) ;SOURCE LENGTH = 0?
1510 031075 254 00 0 00 031101 JRST CMPL1 ;NO
1511 031076 402 00 0 00 000010 SETZM SLEN ;YES - ZERO SOURCE LENGTH
1512 031077 202 00 0 00 035565 MOVEM E0+1 ;SETUP FILLER
1513 031100 254 00 0 00 031122 JRST CMPBYT
1514
1515 031101 607 01 0 00 100000 CMPL1: TLNN 1,(DZERO) ;DESTIN LENGTH = 0?
1516 031102 254 00 0 00 031106 JRST CMPL2 ;NO
1517 031103 402 00 0 00 000013 SETZM DLEN ;YES - ZERO DESTINATION LENGTH
1518 031104 202 00 0 00 035566 MOVEM E0+2 ;SETUP FILLER
1519 031105 254 00 0 00 031122 JRST CMPBYT
1520
1521 031106 607 01 0 00 040000 CMPL2: TLNN 1,(DSZER) ;BOTH SOURCE AND DESTIN LENGTH'S ZERO?
1522 031107 254 00 0 00 031112 JRST CMPL3 ;NO - BOTH MUST BE HAVE LENGTHS > 0
1523 031110 403 10 0 00 000013 SETZB SLEN,DLEN ;YES - SET BOTH TRING LENGTHS TO ZERO
1524 031111 254 00 0 00 031122 JRST CMPBYT
1525
1526 031112 607 01 0 00 020000 CMPL3: TLNN 1,(SLONG) ;DESTIN SHORTER THAN SOURCE?
1527 031113 254 00 0 00 031117 JRST E0FIL1 ;NO
1528 031114 242 13 0 00 777777 LSH DLEN,-1 ;DLEN=1/2 SLEN
1529 031115 202 00 0 00 035566 MOVEM E0+2 ;SETUP FILLER
1530 031116 254 00 0 00 031122 JRST CMPBYT
1531
1532 031117 242 10 0 00 777777 E0FIL1: LSH SLEN,-1 ;SLEN=1/2 DLEN
1533 031120 202 00 0 00 035565 MOVEM E0+1 ;SETUP FILLER
1534 031121 254 00 0 00 031122 JRST CMPBYT
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 14
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0068
1535
1536 ; **************************************************
1537 ;DETERMINE STRING BYTE SIZES
1538 ; **************************************************
1539
1540 031122 603 01 0 00 000100 CMPBYT: TLNE 1,(S44) ;FULL WORD SOURCE BYTES?
1541 031123 254 00 0 00 031130 JRST CMPB1 ;YES
1542
1543 031124 201 00 0 00 000037 MOVEI AC0,37
1544 031125 406 00 0 00 035565 ANDM AC0,E0+1
1545 031126 200 11 0 00 037502 MOVE SP,[POINT 5,SOURCE]
1546 031127 334 00 0 00 000000 SKIPA
1547
1548 031130 200 11 0 00 037503 CMPB1: MOVE SP,[POINT 36,SOURCE] ;SETUP SOURCE BYTE POINTER
1549
1550 031131 603 01 0 00 000040 TLNE 1,(D44) ;FULL WORD DESTIN BYTE SIZE?
1551 031132 254 00 0 00 031137 JRST CMPB2 ;YES
1552
1553 031133 201 00 0 00 000037 MOVEI AC0,37
1554 031134 406 00 0 00 035566 ANDM AC0,E0+2
1555 031135 200 14 0 00 037504 MOVE DP,[POINT 5,DESTIN]
1556 031136 334 00 0 00 000000 SKIPA
1557
1558 031137 200 14 0 00 037505 CMPB2: MOVE DP,[POINT 36,DESTIN] ;SETUP DESTINATION POINTER
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 15
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0069
1559
1560 ; **************************************************
1561 ;PROCEED TO SET UP THE STRINGS
1562 ; **************************************************
1563
1564 031140 261 17 0 00 000006 CMPSTR: PUT AC6 ;NEED THAT SPARE AC!
1565
1566 031141 200 02 0 00 000010 MOVE SLEN1,SLEN ;COPY OF SOURCE STRING LENGTH
1567 031142 200 03 0 00 000011 MOVE SP1,SP ;COPY OF SOURCE STRING POINTER
1568 031143 200 00 0 00 041165 MOVE AC0,PATTERN ;COPY OF PATTERN
1569 031144 402 00 0 00 000004 SETZM AC4 ;CLEAR REWRITE BYTE WORD
1570
1571 031145 136 00 0 00 000003 IDPB AC0,SP1 ;WRITE THE FIRST BYTE TO THE STRING
1572
1573 031146 377 00 0 00 000002 CSET1: SOSG SLEN1
1574 031147 254 00 0 00 031152 JRST CSET2 ;JUMP IF LAST BYTE WRITTEN
1575
1576 031150 136 00 0 00 000003 IDPB AC0,SP1 ;WRITE A BYTE
1577 031151 254 00 0 00 031146 JRST CSET1 ;GO FOR THE NEXT ONE
1578
1579 031152 603 01 0 00 000020 CSET2: TLNE 1,(ALS) ;ALTER THE LAST SOURCE BYTE?
1580 031153 137 04 0 00 000003 DPB AC4,SP1 ;YES - ZERO IT
1581
1582 031154 200 05 0 00 000013 MOVE DLEN1,DLEN ;COPY OF DESTINAION STRING LENGTH
1583 031155 200 04 0 00 000014 MOVE DP1,DP ;COPY OF DESTIN STRING BYTE POINTER
1584 031156 136 00 0 00 000004 IDPB AC0,DP1 ;WRITE THE FIRST BYTE
1585
1586 031157 377 00 0 00 000005 CSET3: SOSG DLEN1
1587 031160 254 00 0 00 031163 JRST CSET4 ;JUMP IF LAST BYTE WRITTEN
1588
1589 031161 136 00 0 00 000004 IDPB AC0,DP1 ;WRITE A BYTE
1590 031162 254 00 0 00 031157 JRST CSET3 ;GO FOR THE NEXT ONE
1591
1592 031163 603 01 0 00 000010 CSET4: TLNE 1,(ALD) ;ALTER THE LAST DESTIN BYTE
1593 031164 137 04 0 00 000004 DPB AC4,DP1 ;YES - ZERO IT
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 16
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0070
1594
1595 ; **************************************************
1596 ;SAVE THE ORIGINAL AC BLOCK FOR ERROR PRINTOUT IF NECESSARY
1597 ; **************************************************
1598
1599 031165 200 00 0 00 037506 MOVE AC0,[AC,,ORIGSV]
1600 031166 251 00 0 00 035766 BLT AC0,ORIGSV+4
1601
1602 031167 262 17 0 00 000006 GET AC6 ;RESTORE AC6
1603
1604 ; **************************************************
1605 031170 260 17 0 00 033475 GO CMPSIM ;CALL THE COMPARE INSTR SIMULATOR
1606 031171 476 00 0 00 041173 SETOM SKPWD1 ;SIMULATED SKIP RETURN
1607 ; **************************************************
1608
1609 ; **************************************************
1610 031172 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
1611 031173 476 00 0 00 041174 SETOM SKPWD2 ;REAL SKIP RETURN
1612 ; **************************************************
1613
1614 031174 260 17 0 00 034253 GO CMPCOM ;COMPARE THE RESULTS
1615 031175 036 13 0 00 037507 ERROR CMP2,13,0,0,,,CMPPNT
1616 031176 035 00 0 00 031021 ERLOOP CMP2 ;IF ERROR, LOOP TO CMP2
1617
1618 031177 253 07 0 00 031021 AOBJN AC7,CMP2 ;EXECUTE THE NEXT CASE
1619 031200 253 06 0 00 031017 AOBJN AC6,CMP1 ;EXECUTE THE CASES WITH THE NEXT OPCODE
1620
1621 031201 367 15 0 00 031015 REPTLP CMPM
1622 031202 254 00 0 00 031203 JRST MOVMOD ;FINISHED - GO TO NEXT TEST
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 17
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0071
1623
1624 ; **********************************************************************
1625 ;*TEST 5 -- MOVE STRING INSTRUCTION TEST
1626 ;*
1627 ;* THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
1628 ;* FOUR MOVE STRING INSTRUCTIONS.
1629 ; **********************************************************************
1630 SALL
1631 037512 T= SIXBTZ <MOVE STRING INSTRUCTION TEST>
1632
1633 031203 201 00 0 00 031203 MOVMOD: MOVEI .
1634 031204 202 00 0 00 030051 MOVEM TESTPC
1635 031205 200 15 0 00 041172 MOVE REPT,RPEAT
1636
1637 031206 515 06 0 00 777774 MOVM: HRLZI AC6,-4 ;AC6/- #MOV INSTR,,0
1638 031207 541 06 0 00 035525 HRRI AC6,MOVTAB ;AC6/- #MOV INSTR,,OPCODE TABLE ADDR
1639
1640 031210 514 07 0 00 037055 MOV1: HRLZ AC7,MOVCAS-1 ;AC7/- #MOV CASES,,0
1641 031211 541 07 0 00 037056 HRRI AC7,MOVCAS ;AC7/- #MOV CASES,,CASE TABLE ADDRESS
1642
1643 031212 260 17 0 00 035313 MOV2: GO CLRSTR ;CLEAR THE SOURCE AND DESTINATION AREAS
1644
1645 031213 200 00 0 06 000000 MOVE (AC6) ;RETRIEVE CURRENT MOVE OPCODE
1646 031214 137 00 0 00 036220 DPB E0OP ;PUT IN INSTRUCTION OPCODE FIELD
1647
1648 031215 402 00 0 00 041176 SETZM TRANFG
1649 031216 306 00 0 00 000015 CAIN AC0,015 ;MOVST INSTRUCTION?
1650 031217 476 00 0 00 041176 SETOM TRANFG# ;YES - SET TRANSLATE FLAG
1651
1652 031220 260 17 0 00 035435 GO RANLEN ;STRING LENGTH TO AC0
1653 031221 202 00 0 00 000010 MOVEM SLEN ;STORE IN STRING LENGTHS
1654 031222 202 00 0 00 000013 MOVEM DLEN
1655
1656 031223 402 00 0 00 041173 SETZM SKPWD1# ;CLEAR SKIP INDICATOR WORDS
1657 031224 402 00 0 00 041174 SETZM SKPWD2#
1658 031225 402 00 0 00 035565 SETZM E0+1 ;CLEAR FILLER WORD
1659
1660 031226 336 00 0 00 041176 SKIPN TRANFG ;MOVST?
1661 031227 254 00 0 00 031232 JRST CHKA2 ;NO
1662
1663 031230 201 00 0 00 000001 MOVEI AC0,1 ;TRANSLATE PATTERN ALWAYS STARTS WITH 1
1664 031231 254 00 0 00 031252 JRST MOVLEN ;AND INCREMENTS
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 18
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0072
1665
1666 ; **************************************************
1667 ;DETERMINE THE DESIRED PATTERN TYPE
1668 ; **************************************************
1669
1670 031232 200 01 0 07 000000 CHKA2: MOVE 1,(AC7) ;RETRIEVE CURRENT CASE PARAMETER WORD
1671 031233 607 01 0 00 010000 TLNN 1,(ALTPT) ;ALTERNATING 1'S AND 0'S PATTERN?
1672 031234 254 00 0 00 031237 JRST CHKB2 ;NO
1673 031235 200 00 0 00 036431 MOVE APAT ;YES - GET THE PATTERN
1674 031236 254 00 0 00 031252 JRST MOVLEN ;CONTINUE
1675
1676 031237 607 01 0 00 002000 CHKB2: TLNN 1,(ONESPT) ;ONE'S PATTERN?
1677 031240 254 00 0 00 031243 JRST CHKC2 ;NO
1678 031241 200 00 0 00 036432 MOVE BPAT ;YES - GET THE PATTERN
1679 031242 254 00 0 00 031252 JRST MOVLEN ;CONTINUE
1680
1681 031243 607 01 0 00 004000 CHKC2: TLNN 1,(ONEPT) ;ONE PATTERN (0,,1)?
1682 031244 254 00 0 00 031247 JRST MOVER1 ;NO - ERROR
1683 031245 200 00 0 00 036433 MOVE CPAT ;YES - GET THE PATTERN
1684 031246 254 00 0 00 031252 JRST MOVLEN ;CONTINUE
1685
1686 031247 037 02 0 00 037517 MOVER1: PMSG <^MOVXX PATTERN NOT SELECTED - ABORTING CURRENT CASE>
1687 031250 253 07 0 00 031212 AOBJN AC7,MOV2
1688 031251 254 00 0 00 031444 JRST CDBMOD ;NO CASES LEFT - GO TO NEXT TEST
1689
1690 031252 202 00 0 00 041165 MOVLEN: MOVEM PATTERN ;STORE CHOSEN PATTERN
1691 031253 603 01 0 00 400000 TLNE 1,(EQLEN) ;STRINGS OF EQUAL LENGTH?
1692 031254 254 00 0 00 031316 JRST MOVBYT ;YES - ALREADY SET UP
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 19
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0073
1693
1694 ; **************************************************
1695 ;FIND OUT IF A FILLER IS NEEDED AND DETERMINE STRING LENGTHS
1696 ; **************************************************
1697
1698 031255 607 01 0 00 100000 MOVL: TLNN 1,(DZERO) ;DESTINATION LENGTH = ZERO?
1699 031256 254 00 0 00 031261 JRST MOVL1 ;NO
1700 031257 402 00 0 00 000013 SETZM DLEN ;YES - ZERO DESTINATION LENGTH
1701 031260 254 00 0 00 031316 JRST MOVBYT
1702
1703 031261 607 01 0 00 040000 MOVL1: TLNN 1,(DSZER) ;BOTH DESTIN AND SOURCE LENGTHS = 0?
1704 031262 254 00 0 00 031265 JRST MOVL2 ;NO
1705 031263 403 10 0 00 000013 SETZB SLEN,DLEN ;YES - ZERO THEM BOTH
1706 031264 254 00 0 00 031316 JRST MOVBYT
1707
1708 031265 607 01 0 00 020000 MOVL2: TLNN 1,(SLONG) ;SOURCE STRING LONGER THAN DESTIN?
1709 031266 254 00 0 00 031271 JRST MOVL3 ;NO
1710 031267 242 13 0 00 777777 LSH DLEN,-1 ;YES - DLEN = 1/2 SLEN
1711 031270 254 00 0 00 031316 JRST MOVBYT
1712
1713 031271 607 01 0 00 200000 MOVL3: TLNN 1,(SZERO) ;SOURCE STRING LENGTH = 0?
1714 031272 254 00 0 00 031275 JRST MOVL4 ;NO
1715 031273 402 00 0 00 000010 SETZM SLEN ;YES - ZERO SOURCE STRING LENGTH
1716 031274 254 00 0 00 031276 JRST MOVFIL ;GET A FILLER
1717
1718 031275 242 10 0 00 777777 MOVL4: LSH SLEN,-1 ;SLEN = 1/2 DLEN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 20
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0074
1719
1720 ; **************************************************
1721 ;NOW PICK A FILLER
1722 ; **************************************************
1723
1724 031276 607 01 0 00 001000 MOVFIL: TLNN 1,(EQFIL) ;FILLER = PATTERN?
1725 031277 254 00 0 00 031302 JRST MOVF1 ;NO
1726 031300 200 00 0 00 041165 MOVE PATTERN ;YES - PATTERN TO AC0
1727 031301 254 00 0 00 031315 JRST MOVF3
1728
1729 031302 607 01 0 00 000400 MOVF1: TLNN 1,(LFILL) ;ZERO FILLER?
1730 031303 254 00 0 00 031306 JRST MOVF2 ;NO
1731 031304 200 00 0 00 036434 MOVE DPAT ;YES - ZERO PATTERN TO AC0
1732 031305 254 00 0 00 031315 JRST MOVF3
1733
1734 031306 607 01 0 00 000200 MOVF2: TLNN 1,(GFILL) ;ONE'S FILLER
1735 031307 254 00 0 00 031312 JRST MOVER2 ;NO - ERROR
1736 031310 200 00 0 00 036432 MOVE BPAT ;YES - ONE'S PATTERN TO AC0
1737 031311 254 00 0 00 031315 JRST MOVF3
1738
1739 031312 037 02 0 00 037471 MOVER2: PMSG <^ABORTING CURRENT CASE - FILLER PATTERN NOT SPECIFIED>
1740 031313 253 07 0 00 031212 AOBJN AC7,MOV2
1741 031314 254 00 0 00 031444 JRST CDBMOD ;NO CASES LEFT - GO TO NEXT TEST
1742
1743 031315 202 00 0 00 035565 MOVF3: MOVEM E0+1 ;STORE THE FILLER
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 21
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0075
1744
1745 ; **************************************************
1746 ;DETERMINE STRING BYTE SIZES
1747 ; **************************************************
1748
1749 031316 332 00 0 00 041176 MOVBYT: SKIPE TRANFG ;5 BIT BYTES IF MOVST
1750 031317 254 00 0 00 031324 JRST MOVB1
1751
1752 031320 607 01 0 00 000100 TLNN 1,(S44) ;FULL WORD SOURCE BYTES?
1753 031321 254 00 0 00 031324 JRST MOVB1 ;NO
1754 031322 200 11 0 00 037503 MOVE SP,[POINT 36,SOURCE] ;SETUP SOURCE BYTE POINTER
1755 031323 334 00 0 00 000000 SKIPA
1756
1757 031324 200 11 0 00 037502 MOVB1: MOVE SP,[POINT 5,SOURCE]
1758 031325 332 00 0 00 041176 SKIPE TRANFG
1759 031326 254 00 0 00 031333 JRST MOVB2
1760
1761 031327 607 01 0 00 000040 TLNN 1,(D44) ;FULL WORD DESTIN BYTE SIZE?
1762 031330 254 00 0 00 031333 JRST MOVB2 ;NO
1763 031331 200 14 0 00 037505 MOVE DP,[POINT 36,DESTIN] ;SETUP DESTINATION POINTER
1764 031332 334 00 0 00 000000 SKIPA
1765
1766 031333 200 14 0 00 037504 MOVB2: MOVE DP,[POINT 5,DESTIN]
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 22
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0076
1767
1768 ; **************************************************
1769 ;PROCEED TO SET UP THE STRINGS
1770 ; **************************************************
1771
1772 031334 261 17 0 00 000006 MOVSTR: PUT AC6 ;NEED THAT SPARE AC!
1773
1774 031335 200 02 0 00 000010 MOVE SLEN1,SLEN ;COPY OF SOURCE STRING LENGTH
1775 031336 200 03 0 00 000011 MOVE SP1,SP ;COPY OF SOURCE STRING POINTER
1776 031337 200 00 0 00 041165 MOVE AC0,PATTERN ;COPY OF PATTERN
1777
1778 031340 136 00 0 00 000003 IDPB AC0,SP1 ;WRITE THE FIRST BYTE TO THE STRING
1779
1780 031341 377 00 0 00 000002 SET1: SOSG SLEN1
1781 031342 254 00 0 00 031347 JRST MOVOP ;JUMP IF LAST BYTE WRITTEN
1782
1783 031343 332 00 0 00 041176 SKIPE TRANFG
1784 031344 271 00 0 00 000001 ADDI AC0,1 ;INCREMENT THE PATTERN IF MOVST
1785
1786 031345 136 00 0 00 000003 IDPB AC0,SP1 ;WRITE A BYTE
1787 031346 254 00 0 00 031341 JRST SET1 ;GO FOR THE NEXT ONE
1788
1789 031347 200 00 0 06 000000 MOVOP: MOVE AC0,(AC6) ;RETRIEVE THE CURRENT OPCODE
1790 031350 302 00 0 00 000015 CAIE AC0,015 ;MOVST INSTRUCTION?
1791 031351 254 00 0 00 031401 JRST MOVOFF ;NO - SEE IF MOVSO
1792
1793 031352 201 00 0 00 035650 MOVEI AC0,E1 ;GET ADDRESS OF TRANSLATION TABLE
1794 031353 542 00 0 00 035564 HRRM AC0,E0 ;STORE IT IN THE E0 FIELD
1795
1796 ; **************************************************
1797 ;SET THE FLAGS IN AC FOR MOVST INSTRUCTION
1798 ; **************************************************
1799
1800 031354 602 01 0 00 400000 TRNE 1,(SFL) ;SET THE S FLAG?
1801 031355 434 10 0 00 035734 OR SLEN,BIT0 ;YES
1802
1803 031356 602 01 0 00 040000 TRNE 1,(NFL) ;SET THE N FLAG?
1804 031357 434 10 0 00 035735 OR SLEN,BIT1 ;YES
1805
1806 031360 602 01 0 00 100000 TRNE 1,(MFL) ;SET THE M FLAG?
1807 031361 434 10 0 00 035736 OR SLEN,BIT2 ;YES
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 23
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0077
1808
1809 ; **************************************************
1810 ;SET THE CODE BITS IN THE TRANSLATION TABLE
1811 ; **************************************************
1812
1813 031362 402 00 0 00 000000 SETZM AC0 ;TEMP LOC FOR CONTROL BITS
1814
1815 031363 602 01 0 00 020000 TRNE 1,(C1) ;SETUP THE SECOND HALFWORD
1816 031364 434 00 0 00 035737 OR BIT18
1817
1818 031365 602 01 0 00 010000 TRNE 1,(C2)
1819 031366 434 00 0 00 035740 OR BIT19
1820
1821 031367 602 01 0 00 004000 TRNE 1,(C3)
1822 031370 434 00 0 00 035741 OR BIT20
1823
1824 031371 602 01 0 00 002000 TRNE 1,(C4) ;SETUP THE THIRD HALFWORD
1825 031372 434 00 0 00 035734 OR BIT0
1826
1827 031373 602 01 0 00 001000 TRNE 1,(C5)
1828 031374 434 00 0 00 035735 OR BIT1
1829
1830 031375 602 01 0 00 000400 TRNE 1,(C6)
1831 031376 434 00 0 00 035736 OR BIT2
1832
1833 031377 260 17 0 00 031426 GO SETRAN ;YES - SET UP THE TRANSLATION TABLE
1834 031400 254 00 0 00 031410 JRST GOMOV
1835
1836 031401 302 00 0 00 000014 MOVOFF: CAIE AC0,014 ;IS IT MOVSO?
1837 031402 254 00 0 00 031410 JRST GOMOV ;NO - DON'T NEED AN OFFSET
1838
1839 031403 200 04 0 00 000001 MOVE AC4,AC1 ;COPY OF PARAM WORD
1840 031404 405 04 0 00 000014 ANDI AC4,OFF ;SAVE ONLY OFFSET INDEX
1841 031405 242 04 0 00 777776 LSH AC4,OFFSH ;SHIFT INTO POSITION
1842 031406 200 04 0 04 036347 MOVE AC4,OFFTAB(AC4) ;GET THE OFFSET WORD
1843 031407 542 04 0 00 035564 HRRM AC4,E0 ;PUT AS EFFECTIVE ADDRESS IN E0 WORD
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 24
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0078
1844
1845 ; **************************************************
1846 ;SAVE THE ORIGINAL AC BLOCK FOR ERROR PRINTOUT IF NECESSARY
1847 ; **************************************************
1848
1849 031410 200 00 0 00 037506 GOMOV: MOVE AC0,[AC,,ORIGSV]
1850 031411 251 00 0 00 035766 BLT AC0,ORIGSV+4
1851
1852 031412 262 17 0 00 000006 GET AC6 ;RESTORE AC6
1853
1854 ; **************************************************
1855 031413 260 17 0 00 033551 GO MOVSIM ;CALL THE COMPARE INSTR SIMULATOR
1856 031414 476 00 0 00 041173 SETOM SKPWD1 ;SIMULATED SKIP RETURN
1857 ; **************************************************
1858
1859 ; **************************************************
1860 031415 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
1861 031416 476 00 0 00 041174 SETOM SKPWD2 ;REAL SKIP RETURN
1862 ; **************************************************
1863
1864 031417 260 17 0 00 034331 GO MOVCOM ;COMPARE THE RESULTS
1865 031420 036 13 0 00 037530 ERROR MOV2,13,0,0,,,MOVPNT
1866 031421 035 00 0 00 031212 ERLOOP MOV2 ;IF ERROR, LOOP TO MOV2
1867
1868 031422 253 07 0 00 031212 AOBJN AC7,MOV2 ;EXECUTE THE NEXT CASE
1869 031423 253 06 0 00 031210 AOBJN AC6,MOV1 ;EXECUTE THE CASES WITH THE NEXT OPCODE
1870
1871 031424 367 15 0 00 031206 REPTLP MOVM
1872 031425 254 00 0 00 031444 JRST CDBMOD
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 25
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0079
1873
1874 ; **************************************************
1875 ;SETRAN -- ROUTINE TO SETUP TRANSLATE TABLE FOR MOVST
1876 ; TAKE TWO SPECIAL HALFWORDS IN AC0 , RETURNS +1 ALWAYS
1877 ; **************************************************
1878
1879 031426 261 17 0 00 000001 SETRAN: PUT AC1
1880 031427 261 17 0 00 000002 PUT AC2
1881
1882 031430 515 01 0 00 777770 HRLZI AC1,-10 ;AC1/-TABLE LENGTH,,0
1883 031431 541 01 0 00 035650 HRRI AC1,E1 ;AC1/-TABLE LENGTH,,TABLE ADDRESS
1884 031432 200 02 0 00 037533 MOVE AC2,[1,,1]
1885
1886 031433 202 02 0 01 000000 SETLOC: MOVEM AC2,(AC1)
1887 031434 253 01 0 00 031433 AOBJN AC1,SETLOC
1888
1889 031435 436 00 0 00 035650 IORM AC0,E1 ;PUT 1ST HALFWORD IN FIRST LOCATION
1890 031436 542 00 0 00 000002 HRRM AC2 ;PATCH UP OTHER HALF OF WORD
1891 031437 436 00 0 01 000000 IORM AC0,(AC1)
1892 031440 506 00 0 00 000002 HRLM AC2
1893
1894 031441 262 17 0 00 000002 GET AC2
1895 031442 262 17 0 00 000001 GET AC1
1896 031443 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 26
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0080
1897
1898 ; **********************************************************************
1899 ;*TEST 6 -- CONVERT DECIMAL TO BINARY INSTRUCTION TEST
1900 ;*
1901 ;* THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
1902 ;* TWO CVTDBX INSTRUCTIONS.
1903 ; **********************************************************************
1904 SALL
1905 037534 T= SIXBTZ <CONVERT DECIMAL TO BINARY INSTRUCTION TEST>
1906
1907 031444 201 00 0 00 031444 CDBMOD: MOVEI .
1908 031445 202 00 0 00 030051 MOVEM TESTPC
1909 031446 200 15 0 00 041172 MOVE REPT,RPEAT
1910
1911 031447 515 06 0 00 777776 CDBM: HRLZI AC6,-2 ;AC6/- #CVTDBX INSTR,,0
1912 031450 541 06 0 00 035532 HRRI AC6,CDBTAB ;AC6/- #CVTDBX INSTR,,OPCODE TABLE ADDR
1913
1914 031451 514 07 0 00 037104 CDB1: HRLZ AC7,CDBCAS-1 ;AC7/- #CVTDBX CASES,,0
1915 031452 541 07 0 00 037105 HRRI AC7,CDBCAS ;AC7/- #CVTDBX CASES,,CASE TABLE ADDR
1916
1917 031453 402 00 0 00 035564 CDB2: SETZM E0
1918 031454 200 00 0 06 000000 MOVE (AC6) ;RETRIEVE CURRENT CVTDBX OPCODE
1919 031455 137 00 0 00 036220 DPB AC0,E0OP ;DEPOSIT OPCODE IN FIELD
1920
1921 031456 402 00 0 00 041176 SETZM TRANFG ;CLEAR TRANSLATE FLAG
1922 031457 306 00 0 00 000011 CAIN AC0,011 ;CVTDBT INSTRUCTION?
1923 031460 476 00 0 00 041176 SETOM TRANFG ;YES - SET THE FLAG
1924
1925 031461 402 00 0 00 041173 SETZM SKPWD1 ;CLEAR THE SKIP INDICATOR FLAGS
1926 031462 402 00 0 00 041174 SETZM SKPWD2
1927
1928 ; **************************************************
1929 ;DETERMINE THE SOURCE STRING LENGTH
1930 ; **************************************************
1931
1932 031463 200 01 0 07 000000 MOVE AC1,(7) ;RETRIEVE CASE PARAMETER WORD
1933 031464 200 05 0 00 000001 MOVE AC5,AC1
1934 031465 405 05 0 00 000060 ANDI AC5,STRL ;SAVE ONLY INDEX TO LENGTH TABLE
1935 031466 242 05 0 00 777774 LSH AC5,STRLSH ;SHIFT INTO POSITION
1936 031467 200 10 0 05 036425 MOVE SLEN,LTAB(AC5) ;STRING LENGTH TO AC5
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 27
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0081
1937
1938 ; **************************************************
1939 ;DETERMINE THE INITIAL BINARY DATA
1940 ; **************************************************
1941
1942 031470 602 01 0 00 000002 TRNE AC1,(B0) ;SET BIT 0?
1943 031471 200 05 0 00 035734 MOVE AC5,BIT0 ;YES
1944
1945 031472 606 01 0 00 000002 TRNN AC1,(B0) ;SET BIT 35?
1946 031473 200 05 0 00 035737 MOVE AC5,BIT18 ;YES
1947
1948 031474 602 01 0 00 000001 TRNE AC1,(HW) ;PUT INTO HIGH BINARY DATA?
1949 031475 202 05 0 00 000013 MOVEM AC5,DBH ;YES
1950
1951 031476 606 01 0 00 000001 TRNN AC1,(HW) ;PUT INTO LOW BINARY DATA?
1952 031477 202 05 0 00 000014 MOVEM AC5,DBL ;YES
1953
1954 ; **************************************************
1955 ;DETERMINE THE STRING BYTE SIZE
1956 ; **************************************************
1957
1958 031500 603 01 0 00 000100 TLNE 1,(S44) ;FULL WORD BYTE SIZE?
1959 031501 200 11 0 00 037503 MOVE SP,[POINT 36,SOURCE] ;NO - 8 BIT BYTES
1960
1961 031502 607 01 0 00 000100 TLNN 1,(S44) ;FULL WORD BYTE SIZE?
1962 031503 200 11 0 00 037544 MOVE SP,[POINT 8,SOURCE] ;YES
1963
1964 ; **************************************************
1965 ;DETERMINE THE S,N,M FLAGS
1966 ; **************************************************
1967
1968 031504 602 01 0 00 400000 TRNE 1,(SFL) ;SET THE S FLAG?
1969 031505 434 10 0 00 035734 OR SLEN,BIT0 ;YES
1970
1971 031506 602 01 0 00 040000 TRNE 1,(NFL) ;SET THE N FLAG?
1972 031507 434 10 0 00 035735 OR SLEN,BIT1 ;YES
1973
1974 031510 602 01 0 00 100000 TRNE 1,(MFL) ;SET THE M FLAG?
1975 031511 434 10 0 00 035736 OR SLEN,BIT2 ;YES
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 28
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0082
1976
1977 ; **************************************************
1978 ;DETERMINE THE DATA TO BE CONVERTED
1979 ; **************************************************
1980
1981 031512 200 05 0 00 000001 MOVE AC5,AC1 ;COPY OF PARAMETER WORD
1982 031513 405 05 0 00 000700 ANDI AC5,DATA ;SAVE ONLY DATA TABLE INDEX BITS
1983 031514 242 05 0 00 777772 LSH AC5,DATASH ;SHIFT INTO POSITION
1984 031515 200 05 0 05 036353 MOVE AC5,DATTAB(AC5) ;AC5 HAS ADDRESS OF DATA STRING
1985
1986 ; **************************************************
1987 ;SETUP THE SOURCE STRING
1988 ; **************************************************
1989
1990 031516 200 03 0 00 000010 MOVE AC3,SLEN ;COPY OF THE STRING LENGTH
1991 031517 404 03 0 00 037545 AND AC3,[777,,777777] ;SAVE JUST THE LENGTH
1992
1993 031520 200 04 0 00 000011 MOVE AC4,SP ;COPY OF SOURCE BYTE POINTER
1994
1995 031521 361 03 0 00 031530 CDB3: SOJL AC3,CDB3A
1996
1997 031522 402 00 0 00 000000 SETZM AC0
1998 031523 134 00 0 00 000005 ILDB AC0,AC5 ;GET A SOURCE BYTE
1999
2000 031524 332 00 0 00 041176 SKIPE TRANFG
2001 031525 405 00 0 00 000017 ANDI AC0,17 ;IF CVTDBT MAKE THE BYTE A TABLE INDEX
2002
2003 031526 136 00 0 00 000004 IDPB AC0,AC4 ;PUT IT INTO THE SOURCE STRING
2004 031527 254 00 0 00 031521 JRST CDB3
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 29
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0083
2005
2006 ; **************************************************
2007 ;PICK AN OFFSET IF CVTDBO INSTRUCTION
2008 ; **************************************************
2009
2010 031530 332 00 0 00 041176 CDB3A: SKIPE TRANFG ;INSTRUCTION CVTDBO?
2011 031531 254 00 0 00 031540 JRST CDB4 ;NO
2012
2013 031532 200 05 0 00 000001 MOVE AC5,AC1 ;COPY OF PARAM WORD
2014 031533 405 05 0 00 000014 ANDI AC5,OFF
2015 031534 242 05 0 00 777776 LSH AC5,OFFSH ;SHIFT INTO POSITION
2016 031535 200 05 0 05 036347 MOVE AC5,OFFTAB(AC5) ;GET DESIRED OFFSET
2017 031536 542 05 0 00 035564 HRRM AC5,E0 ;STORE THE OFFSET
2018 031537 254 00 0 00 031560 JRST GOCDB ;ALL SET UP - EXECUTE THE INSTR
2019
2020 031540 201 00 0 00 035650 CDB4: MOVEI E1
2021 031541 542 00 0 00 035564 HRRM E0 ;STORE THE ADDR OF THE TRANSLATE TABLE
2022
2023 031542 402 00 0 00 000000 SETZM AC0 ;TEMP LOC FOR CONTROL BITS
2024 031543 602 01 0 00 020000 TRNE 1,(C1) ;SETUP THE SPECIAL HALFWORD
2025 031544 434 00 0 00 035737 OR BIT18
2026
2027 031545 602 01 0 00 010000 TRNE 1,(C2)
2028 031546 434 00 0 00 035740 OR BIT19
2029
2030 031547 602 01 0 00 004000 TRNE 1,(C3)
2031 031550 434 00 0 00 035741 OR BIT20
2032
2033 031551 602 01 0 00 002000 TRNE 1,(C4)
2034 031552 434 00 0 00 035734 OR BIT0
2035
2036 031553 602 01 0 00 001000 TRNE 1,(C5)
2037 031554 434 00 0 00 035735 OR BIT1
2038
2039 031555 602 01 0 00 000400 TRNE 1,(C6)
2040 031556 434 00 0 00 035736 OR BIT2
2041
2042 031557 260 17 0 00 031575 GO CDBTRN ;GO SETUP THE TRANSLATION TABLE
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 30
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0084
2043
2044 031560 200 00 0 00 037506 GOCDB: MOVE AC0,[AC,,ORIGSV] ;SAVE CONTENTS OF AC BLOCK
2045 031561 251 00 0 00 035766 BLT AC0,ORIGSV+4
2046
2047 ; **************************************************
2048 031562 260 17 0 00 033707 GO CDBSIM ;CALL THE CVTDBX SIMULATOR
2049 031563 476 00 0 00 041173 SETOM SKPWD1
2050 ; **************************************************
2051
2052 ; **************************************************
2053 031564 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE REAL INSTRUCTION
2054 031565 476 00 0 00 041174 SETOM SKPWD2
2055 ; **************************************************
2056
2057 031566 260 17 0 00 034426 GO CDBCOM ;COMPARE THE RESULTS
2058 031567 036 13 0 00 037546 ERROR CDB2,13,0,0,,,CDBPNT
2059 031570 035 00 0 00 031453 ERLOOP CDB2 ;IF ERROR, LOOP TO CDB2
2060
2061 031571 253 07 0 00 031453 AOBJN AC7,CDB2 ;EXECUTE THE NEXT CASE
2062 031572 253 06 0 00 031451 AOBJN AC6,CDB1 ;EXECUTE CASES WITH NEXT OPCODE
2063
2064 031573 367 15 0 00 031447 REPTLP CDBM
2065 031574 254 00 0 00 031613 JRST CBDMOD
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 31
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0085
2066
2067 ; **************************************************
2068 ;CDBTRN -- ROUTINE TO SET UP THE TRANSLATE TABLE FOR CVTDBT
2069 ; **************************************************
2070
2071 031575 261 17 0 00 000001 CDBTRN: PUT AC1
2072 031576 261 17 0 00 000002 PUT AC2
2073
2074 031577 515 01 0 00 777770 HRLZI AC1,-10 ;AC1/-TABLE LENGTH,,0
2075 031600 541 01 0 00 035650 HRRI AC1,E1 ;AC1/-TABLE LENGTH,,TABLE ADDRESS
2076 031601 200 02 0 00 037551 MOVE AC2,[400000,,400001]
2077
2078 031602 202 02 0 01 000000 SETLC1: MOVEM AC2,(AC1)
2079 031603 253 02 0 00 031604 AOBJN AC2,.+1 ;GET THE NEXT ENTRY
2080 031604 253 02 0 00 031605 AOBJN AC2,.+1
2081 031605 253 01 0 00 031602 AOBJN AC1,SETLC1
2082
2083 031606 502 00 0 00 035650 HLLM E1 ;PUT 1ST HALFWORD IN 1ST LOCATION
2084 031607 506 00 0 00 000000 HRLM AC1-1 ;PUT 2ND HALFWORD IN LAST LOCATION
2085
2086 031610 262 17 0 00 000002 GET AC2
2087 031611 262 17 0 00 000001 GET AC1
2088 031612 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 32
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0086
2089
2090 ; **********************************************************************
2091 ;*TEST 7 -- CONVERT BINARY TO DECIMAL INSTRUCTION TEST
2092 ;*
2093 ;* THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S
2094 ;* TWO CVTBDX INSTRUCTIONS.
2095 ; **********************************************************************
2096 SALL
2097 037552 T= SIXBTZ <CONVERT BINARY TO DECIMAL INSTRUCTION TEST>
2098
2099 031613 201 00 0 00 031613 CBDMOD: MOVEI .
2100 031614 202 00 0 00 030051 MOVEM TESTPC
2101 031615 200 15 0 00 041172 MOVE REPT,RPEAT
2102
2103 031616 515 06 0 00 777776 CBDM: HRLZI AC6,-2 ;AC6/- #CVTBDX INSTR,,0
2104 031617 541 06 0 00 035534 HRRI AC6,CBDTAB ;AC6/- #CVTBDX INSTR,,OPCODE TABLE ADDR
2105
2106 031620 514 07 0 00 037145 CBD1: HRLZ AC7,CBDCAS-1 ;AC7/- #CVTBDX CASES,,0
2107 031621 541 07 0 00 037146 HRRI AC7,CBDCAS ;AC7/- #CVTBDX CASES,,CASE TABLE ADDR
2108
2109 031622 260 17 0 00 035313 CBD2: GO CLRSTR
2110
2111 031623 402 00 0 00 035564 SETZM E0
2112 031624 200 00 0 06 000000 MOVE (AC6) ;RETRIEVE CURRENT CVTBDX OPCODE
2113 031625 137 00 0 00 036220 DPB AC0,E0OP ;STORE THE OPCODE
2114
2115 031626 402 00 0 00 041176 SETZM TRANFG
2116 031627 306 00 0 00 000013 CAIN AC0,013 ;CVTBDT INSTR?
2117 031630 476 00 0 00 041176 SETOM TRANFG ;YES
2118
2119 031631 402 00 0 00 041173 SETZM SKPWD1 ;CLEAR THE SKIP INDICATOR WORDS
2120 031632 402 00 0 00 041174 SETZM SKPWD2
2121
2122 ; **************************************************
2123 ;DETERMINE THE DESTINATION STRING LENGTH
2124 ; **************************************************
2125
2126 031633 200 01 0 07 000000 MOVE AC1,(7) ;RETRIEVE THE PARAMETER WORD
2127 031634 200 05 0 00 000001 MOVE AC5,AC1 ;MAKE A COPY
2128 031635 405 05 0 00 000060 ANDI AC5,STRL ;SAVE ONLY LENGTH INDEX
2129 031636 242 05 0 00 777774 LSH AC5,STRLSH ;SHIFT INTO POSITION
2130 031637 200 13 0 05 036425 MOVE DLEN,LTAB(AC5) ;STORE IT
2131
2132 ; **************************************************
2133 ;DETERMINE THE STRING BYTE SIZE
2134 ; **************************************************
2135
2136 031640 603 01 0 00 000100 TLNE 1,(S44) ;FULL WORD BYTE SIZE?
2137 031641 200 14 0 00 037505 MOVE DP,[POINT 36,DESTIN] ;NO - 8 BIT BYTES
2138 031642 607 01 0 00 000100 TLNN 1,(S44) ;FULL WORD BYTE SIZE?
2139 031643 200 14 0 00 037562 MOVE DP,[POINT 8,DESTIN] ;YES
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 33
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0087
2140
2141 ; **************************************************
2142 ;DETERMINE THE S,N,M FLAGS
2143 ; **************************************************
2144
2145 031644 602 01 0 00 400000 TRNE 1,(SFL) ;SET THE S FLAG?
2146 031645 434 13 0 00 035734 OR DLEN,BIT0 ;YES
2147
2148 031646 602 01 0 00 040000 TRNE 1,(NFL) ;SET THE N FLAG?
2149 031647 434 13 0 00 035735 OR DLEN,BIT1 ;YES
2150
2151 031650 602 01 0 00 100000 TRNE 1,(MFL) ;SET THE M FLAG?
2152 031651 434 13 0 00 035736 OR DLEN,BIT2 ;YES
2153
2154 ; **************************************************
2155 ;DETERMINE THE DATA TO BE CONVERTED
2156 ; **************************************************
2157
2158 031652 200 05 0 00 000001 MOVE AC5,1 ;COPY OF PARAMETER WORD
2159 031653 405 05 0 00 000700 ANDI AC5,DATA ;SAVE ONLY DATA TABLE INDEX BITS
2160 031654 242 05 0 00 777772 LSH AC5,DATASH ;SHIFT INTO POSITION
2161 031655 120 10 1 05 036375 DMOVE BDH,@DATCBD(AC5) ;GET HIGH AND LOW DATA INTO THE AC'S
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 34
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0088
2162
2163 ; **************************************************
2164 ;PICK AN OFFSET IF CVTBDO INSTRUCTION
2165 ; **************************************************
2166
2167 031656 332 00 0 00 041176 CBD3: SKIPE TRANFG ;INSTRUCTION CVTBDO?
2168 031657 254 00 0 00 031666 JRST CBD4 ;NO
2169
2170 031660 200 05 0 00 000001 MOVE AC5,AC1 ;COPY OF PARAM WORD
2171 031661 405 05 0 00 000014 ANDI AC5,OFF ;JUST KEEP THE OFFSET BITS OF CASE WORD
2172 031662 242 05 0 00 777776 LSH AC5,OFFSH ;SHIFT INTO POSITION
2173 031663 200 05 0 05 036347 MOVE AC5,OFFTAB(AC5) ;GET DESIRED OFFSET
2174 031664 542 05 0 00 035564 HRRM AC5,E0 ;STORE THE OFFSET
2175 031665 254 00 0 00 031706 JRST GOCBD ;ALL SET UP - EXECUTE THE INSTR
2176
2177 031666 201 00 0 00 035650 CBD4: MOVEI E1
2178 031667 542 00 0 00 035564 HRRM E0 ;STORE LOCATION OF TRANSLATE TABLE
2179
2180 031670 402 00 0 00 000000 SETZM AC0 ;TEMP LOC FOR CONTROL BITS
2181 031671 602 01 0 00 020000 TRNE 1,(C1) ;SETUP THE TWO HALFWORDS
2182 031672 434 00 0 00 035737 OR BIT18
2183
2184 031673 602 01 0 00 010000 TRNE 1,(C2)
2185 031674 434 00 0 00 035740 OR BIT19
2186
2187 031675 602 01 0 00 004000 TRNE 1,(C3)
2188 031676 434 00 0 00 035741 OR BIT20
2189
2190 031677 602 01 0 00 002000 TRNE 1,(C4)
2191 031700 434 00 0 00 035734 OR BIT0
2192
2193 031701 602 01 0 00 001000 TRNE 1,(C5)
2194 031702 434 00 0 00 035735 OR BIT1
2195
2196 031703 602 01 0 00 000400 TRNE 1,(C6)
2197 031704 434 00 0 00 035736 OR BIT2
2198
2199 031705 260 17 0 00 035171 GO CBDTRN ;GO SETUP THE TRANSLATION TABLE
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 35
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0089
2200
2201 031706 200 00 0 00 037506 GOCBD: MOVE AC0,[AC,,ORIGSV] ;SAVE CONTENTS OF AC BLOCK
2202 031707 251 00 0 00 035766 BLT AC0,ORIGSV+4
2203
2204 ; **************************************************
2205 031710 260 17 0 00 034006 GO CBDSIM ;CALL THE CVTBDX SIMULATOR
2206 031711 476 00 0 00 041173 SETOM SKPWD1
2207 ; **************************************************
2208
2209 ; **************************************************
2210 031712 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE REAL INSTRUCTION
2211 031713 476 00 0 00 041174 SETOM SKPWD2
2212 ; **************************************************
2213
2214 031714 260 17 0 00 034475 GO CBDCOM ;COMPARE THE RESULTS
2215 031715 036 13 0 00 037563 ERROR CBD2,13,0,0,,,CBDPNT
2216 031716 035 00 0 00 031622 ERLOOP CBD2 ;IF ERROR, LOOP TO CBD2
2217
2218 031717 253 07 0 00 031622 AOBJN AC7,CBD2 ;EXECUTE THE NEXT CASE
2219 031720 253 06 0 00 031620 AOBJN AC6,CBD1 ;EXECUTE CASES WITH NEXT OPCODE
2220
2221 031721 367 15 0 00 031616 REPTLP CBDM
2222 031722 254 00 0 00 031723 JRST EDMODM
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 36
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0090
2223
2224 ; **********************************************************************
2225 ;*TEST 8 -- EDIT INSTRUCTION TEST
2226 ;*
2227 ;* THE EDIT INSTRUCTION TEST CONSISTS OF A SERIES OF
2228 ;* SUBMODULES EACH OF WHICH TESTS A SINGLE PATTERN BYTE TYPE.
2229 ;*
2230 ;* EDMOD1 -- STOP (001) PATTERN BYTE TYPE TEST
2231 ;* EDMOD2 -- EXCHMD (004) PATTERN BYTE TYPE TEST
2232 ;* EDMOD3 -- SIGST (002) PATTERN BYTE TYPE TEST
2233 ;* EDMOD4 -- FLDSEP (003) PATTERN BYTE TYPE TEST
2234 ;* EDMOD5 -- MESSAG (1XX) PATTERN BYTE TYPE TEST
2235 ;* EDMOD6 -- NOP (005) PATTERN BYTE TYPE TEST
2236 ;* EDMOD7A -- SKPM (5XX) PATTERN BYTE TYPE TESTS
2237 ;* EDMOD7B -- SKPN (6XX) PATTERN BYTE TYPE TESTS
2238 ;* EDMOD7C -- SKPA (7XX) PATTERN BYTE TYPE TESTS
2239 ;* EDMOD8 -- SELECT (001) PATTERN BYTE TYPE TEST
2240 ;* EDMOD9 -- NON DEFINED PATTERN BYTE TYPE TEST
2241 ; **********************************************************************
2242 SALL
2243 037566 T= SIXBTZ <EDIT INSTRUCTION TEST>
2244
2245 031723 200 15 0 00 041172 EDMODM: MOVE REPT,RPEAT
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 37
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0091
2246
2247 ; **********************************************************************
2248 ;*EDMOD1 -- STOP (001) PATTERN BYTE TYPE TEST
2249 ;*
2250 ;* THE STOP PATTERN IS TESTED IN ALL FOUR POSITIONS OF
2251 ;* THE PATTERN BYTE TABLE. IT WILL BE EXECUTED WITH ALL COMBINATIONS
2252 ;* OF THE S,N AND M FLAGS. PATTERN TABLE LOCATIONS WITH THE EXCEPTION
2253 ;* OF THE FIRST WORD WILL BE FILLED WITH SIGST.
2254 ; **********************************************************************
2255 SALL
2256 037572 T= SIXBTZ <EDIT - STOP (001) PATTERN BYTE TYPE TEST>
2257
2258 EDMOD(EDMOD1,EDM1,EDMOD2,ED1WD,SIGWD,0)
2259
2260 031724 201 00 0 00 031724 EDMOD1: MOVEI .
2261 031725 202 00 0 00 030051 MOVEM TESTPC
2262
2263 031726 201 00 0 00 000000 MOVEI AC0,0 ;INDEX TO BYTE TYPE TABLE
2264 031727 202 00 0 00 036272 MOVEM BYTYPE ;STORE
2265
2266 031730 402 00 0 00 041162 SETZM OFFSET
2267 031731 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2268 031732 476 00 0 00 041162 SETOM OFFSET ;YES
2269
2270 031733 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2271 031734 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2272
2273 031735 402 00 0 00 041173 EDM1: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2274 031736 402 00 0 00 041174 SETZM SKPWD2
2275
2276 031737 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES
2277
2278 031740 200 02 0 00 036462 MOVE AC2,SIGWD ;TABLE FILLER BYTE TYPE
2279 031741 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2280 031742 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
2281 031743 251 00 0 00 036257 BLT AC0,PATTBL+^D9
2282
2283 031744 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2284
2285 031745 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB#
2286 031746 200 01 0 03 036273 MOVE AC1,ED1WD(AC3) ;GET TABLE TEST WORD
2287 031747 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2288
2289 031750 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2290 031751 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES
2291
2292 031752 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2293 031753 251 00 0 00 035766 BLT AC0,ORIGSV+4
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 38
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0092
2294
2295 ; **************************************************
2296 031754 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION
2297 031755 476 00 0 00 041173 SETOM SKPWD1
2298 ; **************************************************
2299
2300 031756 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR?
2301 031757 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2302
2303 ; **************************************************
2304 031760 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2305 031761 476 00 0 00 041174 SETOM SKPWD2
2306 ; **************************************************
2307
2308 031762 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS
2309 ERROR EDM1,13,0,0,,,EDTPNT^
2310 SALL
2311 031763 036 13 0 00 037603
2312 031764 035 00 0 00 031735 ERLOOP EDM1 ;IF ERROR, LOOP TO EDM1
2313 031765 253 07 0 00 031735 AOBJN AC7,EDM1 ;DO THE NEXT CASE
2314
2315 031766 402 00 0 00 041162 SETZM OFFSET
2316 031767 254 00 0 00 031770 JRST EDMOD2 ;FINISHED - GO TO NEXT SUBMODULE
2317 SALL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 39
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0093
2318
2319 ; **********************************************************************
2320 ;*EDMOD2 -- EXCHMD (004) PATTERN BYTE TYPE TEST
2321 ;*
2322 ;* THE EXCHMD PATTERN BYTE WILL BE TESTED IN FOUR SEQUENCES, THESE ARE:
2323 ;* EXCHMD STOP,
2324 ;* EXCHMD EXCHMD STOP,
2325 ;* EXCHMD EXCHMD EXCHMD STOP,
2326 ;* EXCHMD EXCHMD EXCHMD EXCHMD STOP.
2327 ;*
2328 ;* THE MARK ADDRESS IN AC+3 WILL BE INITIALIZED TO [POINT 0,SOURCE]
2329 ;* AND DP WILL BE EQUAL TO [POINT 36,DESTIN]. THE S,N, AND M FLAGS
2330 ;* WILL BE VARIED TO INSURE THAT THEIR VALUES HAVE NO EFFECT ON THE
2331 ;* OUTCOME OF THE INSTRUCTION. ALL BYTES IN THE PATTERN BYTE TABLE
2332 ;* WILL BE SET TO STOP WITH THE EXCEPTION OF THE FIRST WORD OF THE TABLE.
2333 ; **********************************************************************
2334 SALL
2335 037606 T= SIXBTZ <EDIT - EXCHMD (004) PATTERN BYTE TYPE TEST>
2336
2337 EDMOD(EDMOD2,EDM2,EDMOD3,ED2WD,STOPWD,1)
2338
2339 031770 201 00 0 00 031770 EDMOD2: MOVEI .
2340 031771 202 00 0 00 030051 MOVEM TESTPC
2341
2342 031772 201 00 0 00 000001 MOVEI AC0,1 ;INDEX TO BYTE TYPE TABLE
2343 031773 202 00 0 00 036272 MOVEM BYTYPE ;STORE
2344
2345 031774 402 00 0 00 041162 SETZM OFFSET
2346 031775 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2347 031776 476 00 0 00 041162 SETOM OFFSET ;YES
2348
2349 031777 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2350 032000 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2351
2352 032001 402 00 0 00 041173 EDM2: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2353 032002 402 00 0 00 041174 SETZM SKPWD2
2354
2355 032003 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES
2356
2357 032004 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2358 032005 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2359 032006 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
2360 032007 251 00 0 00 036257 BLT AC0,PATTBL+^D9
2361
2362 032010 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2363
2364 032011 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB#
2365 032012 200 01 0 03 036277 MOVE AC1,ED2WD(AC3) ;GET TABLE TEST WORD
2366 032013 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2367
2368 032014 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2369 032015 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES
2370
2371 032016 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2372 032017 251 00 0 00 035766 BLT AC0,ORIGSV+4
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 40
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0094
2373
2374 ; **************************************************
2375 032020 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION
2376 032021 476 00 0 00 041173 SETOM SKPWD1
2377 ; **************************************************
2378
2379 032022 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR?
2380 032023 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2381
2382 ; **************************************************
2383 032024 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2384 032025 476 00 0 00 041174 SETOM SKPWD2
2385 ; **************************************************
2386
2387 032026 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS
2388 ERROR EDM2,13,0,0,,,EDTPNT^
2389 SALL
2390 032027 036 13 0 00 037616
2391 032030 035 00 0 00 032001 ERLOOP EDM2 ;IF ERROR, LOOP TO EDM2
2392 032031 253 07 0 00 032001 AOBJN AC7,EDM2 ;DO THE NEXT CASE
2393
2394 032032 402 00 0 00 041162 SETZM OFFSET
2395 032033 254 00 0 00 032034 JRST EDMOD3 ;FINISHED - GO TO NEXT SUBMODULE
2396 SALL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 41
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0095
2397
2398 ; **********************************************************************
2399 ;*EDMOD3 -- SIGST (002) PATTERN BYTE TYPE TEST
2400 ;*
2401 ;* THERE ARE THREE MAIN EXECUTION PATHS TO BE TESTED:
2402 ;* 1. S=1
2403 ;* 2. S=0, E0+2=0
2404 ;* 3. S=0, E0+2 NOT =0
2405 ;*
2406 ;* THE VALUES OF THE M AND N FLAGS ARE VARIED TO INSURE THAT THEIR
2407 ;* VALUE HAS NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. WITH THE
2408 ;* EXCEPTION OF THE TEST PATTERN BYTES THE TABLE WILL BE FILLED
2409 ;* WITH THE STOP OPERATOR.
2410 ; **********************************************************************
2411 SALL
2412 037621 T= SIXBTZ <EDIT - SIGST (002) PATTERN BYTE TYPE TEST>
2413
2414 EDMOD(EDMOD3,EDM3,EDMOD4,ED3WD,STOPWD,2)
2415
2416 032034 201 00 0 00 032034 EDMOD3: MOVEI .
2417 032035 202 00 0 00 030051 MOVEM TESTPC
2418
2419 032036 201 00 0 00 000002 MOVEI AC0,2 ;INDEX TO BYTE TYPE TABLE
2420 032037 202 00 0 00 036272 MOVEM BYTYPE ;STORE
2421
2422 032040 402 00 0 00 041162 SETZM OFFSET
2423 032041 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2424 032042 476 00 0 00 041162 SETOM OFFSET ;YES
2425
2426 032043 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2427 032044 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2428
2429 032045 402 00 0 00 041173 EDM3: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2430 032046 402 00 0 00 041174 SETZM SKPWD2
2431
2432 032047 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES
2433
2434 032050 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2435 032051 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2436 032052 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
2437 032053 251 00 0 00 036257 BLT AC0,PATTBL+^D9
2438
2439 032054 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2440
2441 032055 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB#
2442 032056 200 01 0 03 036303 MOVE AC1,ED3WD(AC3) ;GET TABLE TEST WORD
2443 032057 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2444
2445 032060 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2446 032061 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES
2447
2448 032062 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2449 032063 251 00 0 00 035766 BLT AC0,ORIGSV+4
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 42
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0096
2450
2451 ; **************************************************
2452 032064 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION
2453 032065 476 00 0 00 041173 SETOM SKPWD1
2454 ; **************************************************
2455
2456 032066 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR?
2457 032067 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2458
2459 ; **************************************************
2460 032070 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2461 032071 476 00 0 00 041174 SETOM SKPWD2
2462 ; **************************************************
2463
2464 032072 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS
2465 ERROR EDM3,13,0,0,,,EDTPNT^
2466 SALL
2467 032073 036 13 0 00 037630
2468 032074 035 00 0 00 032045 ERLOOP EDM3 ;IF ERROR, LOOP TO EDM3
2469 032075 253 07 0 00 032045 AOBJN AC7,EDM3 ;DO THE NEXT CASE
2470
2471 032076 402 00 0 00 041162 SETZM OFFSET
2472 032077 254 00 0 00 032100 JRST EDMOD4 ;FINISHED - GO TO NEXT SUBMODULE
2473 SALL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 43
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0097
2474
2475 ; **********************************************************************
2476 ;*EDMOD4 -- FLDSEP (003) PATTERN BYTE TYPE TEST
2477 ;*
2478 ;* THE FLDSEP OPERATOR WILL BE TESTED WITH ALL COMBINATIONS
2479 ;* OF THE S,N AND M FLAGS. THE REMAINING BYTES IN THE TABLE WILL BE
2480 ;* FILLED WITH THE STOP OPERATOR. ALL BYTES IN THE PATTERN BYTE
2481 ;* TABLE WILL BE FILLED WITH STOP EXCEPT FOR THE FIRST WORD.
2482 ; **********************************************************************
2483 SALL
2484 037633 T= SIXBTZ <EDIT - FLDSEP (003) PATTERN BYTE TYPE TEST>
2485
2486 EDMOD(EDMOD4,EDM4,EDMOD5,ED4WD,STOPWD,3)
2487
2488 032100 201 00 0 00 032100 EDMOD4: MOVEI .
2489 032101 202 00 0 00 030051 MOVEM TESTPC
2490
2491 032102 201 00 0 00 000003 MOVEI AC0,3 ;INDEX TO BYTE TYPE TABLE
2492 032103 202 00 0 00 036272 MOVEM BYTYPE ;STORE
2493
2494 032104 402 00 0 00 041162 SETZM OFFSET
2495 032105 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2496 032106 476 00 0 00 041162 SETOM OFFSET ;YES
2497
2498 032107 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2499 032110 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2500
2501 032111 402 00 0 00 041173 EDM4: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2502 032112 402 00 0 00 041174 SETZM SKPWD2
2503
2504 032113 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES
2505
2506 032114 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2507 032115 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2508 032116 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
2509 032117 251 00 0 00 036257 BLT AC0,PATTBL+^D9
2510
2511 032120 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2512
2513 032121 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB#
2514 032122 200 01 0 03 036307 MOVE AC1,ED4WD(AC3) ;GET TABLE TEST WORD
2515 032123 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2516
2517 032124 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2518 032125 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES
2519
2520 032126 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2521 032127 251 00 0 00 035766 BLT AC0,ORIGSV+4
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 44
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0098
2522
2523 ; **************************************************
2524 032130 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION
2525 032131 476 00 0 00 041173 SETOM SKPWD1
2526 ; **************************************************
2527
2528 032132 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR?
2529 032133 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2530
2531 ; **************************************************
2532 032134 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2533 032135 476 00 0 00 041174 SETOM SKPWD2
2534 ; **************************************************
2535
2536 032136 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS
2537 ERROR EDM4,13,0,0,,,EDTPNT^
2538 SALL
2539 032137 036 13 0 00 037643
2540 032140 035 00 0 00 032111 ERLOOP EDM4 ;IF ERROR, LOOP TO EDM4
2541 032141 253 07 0 00 032111 AOBJN AC7,EDM4 ;DO THE NEXT CASE
2542
2543 032142 402 00 0 00 041162 SETZM OFFSET
2544 032143 254 00 0 00 032144 JRST EDMOD5 ;FINISHED - GO TO NEXT SUBMODULE
2545 SALL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 45
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0099
2546
2547 ; **********************************************************************
2548 ;*EDMOD5 -- MESSAG (1XX) PATTERN BYTE TYPE TEST
2549 ;*
2550 ;* THERE ARE THREE EXECUTION PATHS THAT MUST BE TESTED:
2551 ;* 1. S=1
2552 ;* 2. S=0, E0+1=0
2553 ;* 3. S=0, E0+1 NOT =0
2554 ;*
2555 ;* THE N AND M FLAGS WILL BE VARIED TO INSURE THAT THERE VALUE HAS
2556 ;* NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. ALL BYTES IN THE
2557 ;* PATTERN TABLE WILL BE FILLED WITH THE STOP OPERATOR WITH THE
2558 ;* EXCEPTION OF THE FIRST WORD. THEN ALL POSSIBLE MESSAGE
2559 ;* CHARACTERS WILL BE INSERTED INTO THE DESTINATION STRING.
2560 ; **********************************************************************
2561 SALL
2562 037646 T= SIXBTZ <EDIT - MESSAG (1XX) PATTERN BYTE TYPE TEST>
2563
2564 EDMOD(EDMOD5,EDM5,EDM5A,ED5WD,STOPWD,4)
2565
2566 032144 201 00 0 00 032144 EDMOD5: MOVEI .
2567 032145 202 00 0 00 030051 MOVEM TESTPC
2568
2569 032146 201 00 0 00 000004 MOVEI AC0,4 ;INDEX TO BYTE TYPE TABLE
2570 032147 202 00 0 00 036272 MOVEM BYTYPE ;STORE
2571
2572 032150 402 00 0 00 041162 SETZM OFFSET
2573 032151 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2574 032152 476 00 0 00 041162 SETOM OFFSET ;YES
2575
2576 032153 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2577 032154 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2578
2579 032155 402 00 0 00 041173 EDM5: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2580 032156 402 00 0 00 041174 SETZM SKPWD2
2581
2582 032157 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES
2583
2584 032160 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2585 032161 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2586 032162 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
2587 032163 251 00 0 00 036257 BLT AC0,PATTBL+^D9
2588
2589 032164 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2590
2591 032165 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB#
2592 032166 200 01 0 03 036313 MOVE AC1,ED5WD(AC3) ;GET TABLE TEST WORD
2593 032167 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2594
2595 032170 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2596 032171 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES
2597
2598 032172 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2599 032173 251 00 0 00 035766 BLT AC0,ORIGSV+4
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 46
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0100
2600
2601 ; **************************************************
2602 032174 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION
2603 032175 476 00 0 00 041173 SETOM SKPWD1
2604 ; **************************************************
2605
2606 032176 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR?
2607 032177 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2608
2609 ; **************************************************
2610 032200 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2611 032201 476 00 0 00 041174 SETOM SKPWD2
2612 ; **************************************************
2613
2614 032202 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS
2615 ERROR EDM5,13,0,0,,,EDTPNT^
2616 SALL
2617 032203 036 13 0 00 037656
2618 032204 035 00 0 00 032155 ERLOOP EDM5 ;IF ERROR, LOOP TO EDM5
2619 032205 253 07 0 00 032155 AOBJN AC7,EDM5 ;DO THE NEXT CASE
2620
2621 032206 402 00 0 00 041162 SETZM OFFSET
2622 032207 254 00 0 00 032210 JRST EDM5A ;FINISHED - GO TO NEXT SUBMODULE
2623 SALL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 47
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0101
2624
2625 ; **********************************************************************
2626 ;*INSERT EVERY MESSAGE CHARACTER IN THE DESTINATION STRING
2627 ; **********************************************************************
2628
2629 032210 260 17 0 00 035313 EDM5A: GO CLRSTR ;CLEAR THE DESTINATION STRINGS
2630
2631 032211 200 00 0 00 037661 MOVE AC0,[MESSGS,,E0+1] ;SET UP THE 64 MESSAGE CHARACTERS
2632 032212 251 00 0 00 035570 BLT AC0,E0+4
2633
2634 032213 201 00 0 00 000037 MOVEI AC0,37 ;GET NEXT CODE
2635 032214 541 01 0 00 035571 HRRI AC1,E0+5
2636 032215 505 01 0 00 777731 HRLI AC1,-^D39
2637
2638 032216 202 00 0 01 000000 FILE0: MOVEM AC0,(AC1) ;PUT INTO E0 TABLE
2639 032217 271 00 0 00 000001 ADDI AC0,1
2640 032220 253 01 0 00 032216 AOBJN AC1,FILE0
2641
2642 032221 201 01 0 00 000077 PTMSET: MOVEI AC1,^D63 ;SET UP THE PATTERN BYTE TABLE
2643 032222 200 02 0 00 036454 MOVE AC2,PATPT ;GET BYTE POINTER
2644
2645 032223 201 00 0 00 000100 MOVEI AC0,100
2646 032224 136 00 0 00 000002 PTM1: IDPB AC0,AC2 ;PUT THE BYTE IN THE TABLE
2647 032225 271 00 0 00 000001 ADDI AC0,1
2648 032226 367 01 0 00 032224 SOJG AC1,PTM1
2649
2650 032227 201 00 0 00 000000 MOVEI AC0,STOP ;FINISH UP WITH STOP
2651 032230 136 00 0 00 000002 IDPB AC0,AC2 ;OVERWRITE THE LAST BYTE WITH A STOP
2652
2653 032231 201 07 0 00 037247 MOVEI AC7,MCASE ;GET SPECIAL CASE PARAMETER WORD
2654 032232 260 17 0 00 035044 GO EDTSET ;INITIALIZE THE AC BLOCK
2655
2656 032233 200 00 0 00 037506 MOVE AC0,[AC,,ORIGSV]
2657 032234 251 00 0 00 035766 BLT AC0,ORIGSV+4
2658
2659 ; **************************************************
2660 032235 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION
2661 032236 476 00 0 00 041173 SETOM SKPWD1
2662 ; **************************************************
2663
2664 ; **************************************************
2665 032237 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE REAL INSTRUCTION
2666 032240 476 00 0 00 041174 SETOM SKPWD2
2667 ; **************************************************
2668
2669 032241 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS
2670 032242 036 13 0 00 037656 ERROR EDM5A,13,0,0,,,EDTPNT
2671 032243 035 00 0 00 032210 ERLOOP EDM5A ;IF ERROR, LOOP TO EDM5A
2672
2673 032244 254 00 0 00 032245 JRST EDMOD6 ;GO TO NEXT SUBMODULE TEST
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 48
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0102
2674
2675 ; **********************************************************************
2676 ;*EDMOD6 -- NOP (005) PATTERN BYTE TYPE TEST
2677 ;*
2678 ;* THE EDIT INSTRUCTION WILL BE EXECUTED WITH THE FOUR SEQUENCES:
2679 ;* NOP STOP,
2680 ;* NOP NOP STOP,
2681 ;* NOP NOP NOP STOP,
2682 ;* NOP NOP NOP NOP STOP.
2683 ;*
2684 ;* THE REST OF THE PATTERN BYTE TABLE WILL BE FILLED
2685 ;* WITH THE STOP OPERATOR. THE S,N AND M FLAGS WILL BE VARIED TO
2686 ;* INSURE THAT THEIR VALUE HAS NO EFFECT ON THE OUTCOME OF THE
2687 ;* INSTRUCTION.
2688 ; **********************************************************************
2689 SALL
2690 037662 T= SIXBTZ <EDIT - NOP (005) PATTERN BYTE TYPE TEST>
2691
2692 EDMOD(EDMOD6,EDM6,EDMD7A,ED6WD,STOPWD,5)
2693
2694 032245 201 00 0 00 032245 EDMOD6: MOVEI .
2695 032246 202 00 0 00 030051 MOVEM TESTPC
2696
2697 032247 201 00 0 00 000005 MOVEI AC0,5 ;INDEX TO BYTE TYPE TABLE
2698 032250 202 00 0 00 036272 MOVEM BYTYPE ;STORE
2699
2700 032251 402 00 0 00 041162 SETZM OFFSET
2701 032252 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2702 032253 476 00 0 00 041162 SETOM OFFSET ;YES
2703
2704 032254 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2705 032255 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2706
2707 032256 402 00 0 00 041173 EDM6: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2708 032257 402 00 0 00 041174 SETZM SKPWD2
2709
2710 032260 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES
2711
2712 032261 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2713 032262 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2714 032263 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
2715 032264 251 00 0 00 036257 BLT AC0,PATTBL+^D9
2716
2717 032265 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2718
2719 032266 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB#
2720 032267 200 01 0 03 036317 MOVE AC1,ED6WD(AC3) ;GET TABLE TEST WORD
2721 032270 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2722
2723 032271 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2724 032272 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES
2725
2726 032273 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2727 032274 251 00 0 00 035766 BLT AC0,ORIGSV+4
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 49
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0103
2728
2729 ; **************************************************
2730 032275 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION
2731 032276 476 00 0 00 041173 SETOM SKPWD1
2732 ; **************************************************
2733
2734 032277 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR?
2735 032300 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2736
2737 ; **************************************************
2738 032301 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2739 032302 476 00 0 00 041174 SETOM SKPWD2
2740 ; **************************************************
2741
2742 032303 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS
2743 ERROR EDM6,13,0,0,,,EDTPNT^
2744 SALL
2745 032304 036 13 0 00 037671
2746 032305 035 00 0 00 032256 ERLOOP EDM6 ;IF ERROR, LOOP TO EDM6
2747 032306 253 07 0 00 032256 AOBJN AC7,EDM6 ;DO THE NEXT CASE
2748
2749 032307 402 00 0 00 041162 SETZM OFFSET
2750 032310 254 00 0 00 032311 JRST EDMD7A ;FINISHED - GO TO NEXT SUBMODULE
2751 SALL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 50
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0104
2752
2753 ; **********************************************************************
2754 ;*EDMOD7A -- SKPM (5XX) PATTERN BYTE TYPE TESTS
2755 ;*
2756 ;* THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH
2757 ;* ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES
2758 ;* FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF
2759 ;* THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR.
2760 ; **********************************************************************
2761 SALL
2762 037674 T= SIXBTZ <EDIT - SKPM (5XX) PATTERN BYTE TYPE TESTS>
2763
2764 EDMOD(EDMD7A,EDM7A,EDMD7B,ED7AWD,STOPWD,6)
2765
2766 032311 201 00 0 00 032311 EDMD7A: MOVEI .
2767 032312 202 00 0 00 030051 MOVEM TESTPC
2768
2769 032313 201 00 0 00 000006 MOVEI AC0,6 ;INDEX TO BYTE TYPE TABLE
2770 032314 202 00 0 00 036272 MOVEM BYTYPE ;STORE
2771
2772 032315 402 00 0 00 041162 SETZM OFFSET
2773 032316 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2774 032317 476 00 0 00 041162 SETOM OFFSET ;YES
2775
2776 032320 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2777 032321 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2778
2779 032322 402 00 0 00 041173 EDM7A: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2780 032323 402 00 0 00 041174 SETZM SKPWD2
2781
2782 032324 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES
2783
2784 032325 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2785 032326 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2786 032327 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
2787 032330 251 00 0 00 036257 BLT AC0,PATTBL+^D9
2788
2789 032331 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2790
2791 032332 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB#
2792 032333 200 01 0 03 036323 MOVE AC1,ED7AWD(AC3) ;GET TABLE TEST WORD
2793 032334 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2794
2795 032335 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2796 032336 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES
2797
2798 032337 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2799 032340 251 00 0 00 035766 BLT AC0,ORIGSV+4
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 51
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0105
2800
2801 ; **************************************************
2802 032341 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION
2803 032342 476 00 0 00 041173 SETOM SKPWD1
2804 ; **************************************************
2805
2806 032343 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR?
2807 032344 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2808
2809 ; **************************************************
2810 032345 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2811 032346 476 00 0 00 041174 SETOM SKPWD2
2812 ; **************************************************
2813
2814 032347 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS
2815 ERROR EDM7A,13,0,0,,,EDTPNT^
2816 SALL
2817 032350 036 13 0 00 037703
2818 032351 035 00 0 00 032322 ERLOOP EDM7A ;IF ERROR, LOOP TO EDM7A
2819 032352 253 07 0 00 032322 AOBJN AC7,EDM7A ;DO THE NEXT CASE
2820
2821 032353 402 00 0 00 041162 SETZM OFFSET
2822 032354 254 00 0 00 032355 JRST EDMD7B ;FINISHED - GO TO NEXT SUBMODULE
2823 SALL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 52
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0106
2824
2825 ; **********************************************************************
2826 ;*EDMOD7B -- SKPN (6XX) PATTERN BYTE TYPE TESTS
2827 ;*
2828 ;* THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH
2829 ;* ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES
2830 ;* FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF
2831 ;* THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR.
2832 ; **********************************************************************
2833 SALL
2834 037706 T= SIXBTZ <EDIT - SKPN (6XX) PATTERN BYTE TYPE TESTS>
2835
2836 EDMOD(EDMD7B,EDM7B,EDMD7C,ED7BWD,STOPWD,7)
2837
2838 032355 201 00 0 00 032355 EDMD7B: MOVEI .
2839 032356 202 00 0 00 030051 MOVEM TESTPC
2840
2841 032357 201 00 0 00 000007 MOVEI AC0,7 ;INDEX TO BYTE TYPE TABLE
2842 032360 202 00 0 00 036272 MOVEM BYTYPE ;STORE
2843
2844 032361 402 00 0 00 041162 SETZM OFFSET
2845 032362 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2846 032363 476 00 0 00 041162 SETOM OFFSET ;YES
2847
2848 032364 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2849 032365 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2850
2851 032366 402 00 0 00 041173 EDM7B: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2852 032367 402 00 0 00 041174 SETZM SKPWD2
2853
2854 032370 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES
2855
2856 032371 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2857 032372 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2858 032373 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
2859 032374 251 00 0 00 036257 BLT AC0,PATTBL+^D9
2860
2861 032375 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2862
2863 032376 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB#
2864 032377 200 01 0 03 036327 MOVE AC1,ED7BWD(AC3) ;GET TABLE TEST WORD
2865 032400 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2866
2867 032401 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2868 032402 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES
2869
2870 032403 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2871 032404 251 00 0 00 035766 BLT AC0,ORIGSV+4
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 53
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0107
2872
2873 ; **************************************************
2874 032405 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION
2875 032406 476 00 0 00 041173 SETOM SKPWD1
2876 ; **************************************************
2877
2878 032407 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR?
2879 032410 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2880
2881 ; **************************************************
2882 032411 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2883 032412 476 00 0 00 041174 SETOM SKPWD2
2884 ; **************************************************
2885
2886 032413 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS
2887 ERROR EDM7B,13,0,0,,,EDTPNT^
2888 SALL
2889 032414 036 13 0 00 037715
2890 032415 035 00 0 00 032366 ERLOOP EDM7B ;IF ERROR, LOOP TO EDM7B
2891 032416 253 07 0 00 032366 AOBJN AC7,EDM7B ;DO THE NEXT CASE
2892
2893 032417 402 00 0 00 041162 SETZM OFFSET
2894 032420 254 00 0 00 032421 JRST EDMD7C ;FINISHED - GO TO NEXT SUBMODULE
2895 SALL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 54
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0108
2896
2897 ; **********************************************************************
2898 ;*EDMOD7C -- SKPA (7XX) PATTERN BYTE TYPE TESTS
2899 ;*
2900 ;* THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH
2901 ;* ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES
2902 ;* FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF
2903 ;* THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR.
2904 ; **********************************************************************
2905 SALL
2906 037720 T= SIXBTZ <EDIT - SKPA (7XX) PATTERN BYTE TYPE TESTS>
2907
2908 EDMOD(EDMD7C,EDM7C,EDMOD8,ED7CWD,STOPWD,^D8)
2909
2910 032421 201 00 0 00 032421 EDMD7C: MOVEI .
2911 032422 202 00 0 00 030051 MOVEM TESTPC
2912
2913 032423 201 00 0 00 000010 MOVEI AC0,^D8 ;INDEX TO BYTE TYPE TABLE
2914 032424 202 00 0 00 036272 MOVEM BYTYPE ;STORE
2915
2916 032425 402 00 0 00 041162 SETZM OFFSET
2917 032426 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2918 032427 476 00 0 00 041162 SETOM OFFSET ;YES
2919
2920 032430 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2921 032431 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2922
2923 032432 402 00 0 00 041173 EDM7C: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
2924 032433 402 00 0 00 041174 SETZM SKPWD2
2925
2926 032434 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES
2927
2928 032435 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
2929 032436 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
2930 032437 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
2931 032440 251 00 0 00 036257 BLT AC0,PATTBL+^D9
2932
2933 032441 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
2934
2935 032442 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB#
2936 032443 200 01 0 03 036333 MOVE AC1,ED7CWD(AC3) ;GET TABLE TEST WORD
2937 032444 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
2938
2939 032445 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
2940 032446 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES
2941
2942 032447 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
2943 032450 251 00 0 00 035766 BLT AC0,ORIGSV+4
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 55
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0109
2944
2945 ; **************************************************
2946 032451 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION
2947 032452 476 00 0 00 041173 SETOM SKPWD1
2948 ; **************************************************
2949
2950 032453 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR?
2951 032454 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
2952
2953 ; **************************************************
2954 032455 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
2955 032456 476 00 0 00 041174 SETOM SKPWD2
2956 ; **************************************************
2957
2958 032457 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS
2959 ERROR EDM7C,13,0,0,,,EDTPNT^
2960 SALL
2961 032460 036 13 0 00 037727
2962 032461 035 00 0 00 032432 ERLOOP EDM7C ;IF ERROR, LOOP TO EDM7C
2963 032462 253 07 0 00 032432 AOBJN AC7,EDM7C ;DO THE NEXT CASE
2964
2965 032463 402 00 0 00 041162 SETZM OFFSET
2966 032464 254 00 0 00 032465 JRST EDMOD8 ;FINISHED - GO TO NEXT SUBMODULE
2967 SALL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 56
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0110
2968
2969 ; **********************************************************************
2970 ;*EDMOD8 -- SELECT (001) PATTERN BYTE TYPE TEST
2971 ;*
2972 ;* THIS INSTRUCTION WILL BE EXECUTED WITH VARIED VALUES
2973 ;* FOR TOP (THE OPCODE PART OF THE TRANLATE FUNCTION) AND
2974 ;* THE S,N AND M FLAGS.
2975 ;*
2976 ;* COMBINATIONS OF THE FOLLOWING PARAMETERS WILL BE TESTED:
2977 ;* 1. S,N AND M FLAGS
2978 ;* 2. E0+1 = AND NOT =0
2979 ;* 3. E0+2 = AND NOT =0
2980 ;* 4. VARIED VALUES FOR TOP (THE OPCODE PART OF THE TRANSLATE TABLE.
2981 ; **********************************************************************
2982 SALL
2983 037732 T= SIXBTZ <EDIT - SELECT (001) PATTERN BYTE TYPE TEST>
2984
2985 EDMOD(EDMOD8,EDM8,EDMOD9,ED8WD,STOPWD,^D9)
2986
2987 032465 201 00 0 00 032465 EDMOD8: MOVEI .
2988 032466 202 00 0 00 030051 MOVEM TESTPC
2989
2990 032467 201 00 0 00 000011 MOVEI AC0,^D9 ;INDEX TO BYTE TYPE TABLE
2991 032470 202 00 0 00 036272 MOVEM BYTYPE ;STORE
2992
2993 032471 402 00 0 00 041162 SETZM OFFSET
2994 032472 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
2995 032473 476 00 0 00 041162 SETOM OFFSET ;YES
2996
2997 032474 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
2998 032475 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
2999
3000 032476 402 00 0 00 041173 EDM8: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
3001 032477 402 00 0 00 041174 SETZM SKPWD2
3002
3003 032500 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES
3004
3005 032501 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
3006 032502 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
3007 032503 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
3008 032504 251 00 0 00 036257 BLT AC0,PATTBL+^D9
3009
3010 032505 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
3011
3012 032506 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB#
3013 032507 200 01 0 03 036337 MOVE AC1,ED8WD(AC3) ;GET TABLE TEST WORD
3014 032510 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
3015
3016 032511 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
3017 032512 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES
3018
3019 032513 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
3020 032514 251 00 0 00 035766 BLT AC0,ORIGSV+4
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 57
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0111
3021
3022 ; **************************************************
3023 032515 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION
3024 032516 476 00 0 00 041173 SETOM SKPWD1
3025 ; **************************************************
3026
3027 032517 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR?
3028 032520 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
3029
3030 ; **************************************************
3031 032521 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
3032 032522 476 00 0 00 041174 SETOM SKPWD2
3033 ; **************************************************
3034
3035 032523 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS
3036 ERROR EDM8,13,0,0,,,EDTPNT^
3037 SALL
3038 032524 036 13 0 00 037742
3039 032525 035 00 0 00 032476 ERLOOP EDM8 ;IF ERROR, LOOP TO EDM8
3040 032526 253 07 0 00 032476 AOBJN AC7,EDM8 ;DO THE NEXT CASE
3041
3042 032527 402 00 0 00 041162 SETZM OFFSET
3043 032530 254 00 0 00 032531 JRST EDMOD9 ;FINISHED - GO TO NEXT SUBMODULE
3044 SALL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 58
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0112
3045
3046 ; **********************************************************************
3047 ;*EDMOD9 -- NON DEFINED PATTERN BYTE TYPE TEST
3048 ;*
3049 ;* THE EDIT INSTRUCTION WILL BE EXECUTED WITH UNDEFINED
3050 ;* VALUES FOR THE PATTERN BYTES. THESE BYTES SHOULD BE INTERPRETED
3051 ;* AS NOOPS (RESULTING IN INCREMENTATION OF THE PB#). THE SPECIFIC
3052 ;* BYTES TESTED ARE 2XX,3XX,4XX,006.
3053 ; **********************************************************************
3054 SALL
3055 037745 T= SIXBTZ <EDIT - NON DEFINED PATTERN BYTE TYPE TEST>
3056
3057 EDMOD(EDMOD9,EDM9,PFTST,ED9WD,STOPWD,^D10)
3058
3059 032531 201 00 0 00 032531 EDMOD9: MOVEI .
3060 032532 202 00 0 00 030051 MOVEM TESTPC
3061
3062 032533 201 00 0 00 000012 MOVEI AC0,^D10 ;INDEX TO BYTE TYPE TABLE
3063 032534 202 00 0 00 036272 MOVEM BYTYPE ;STORE
3064
3065 032535 402 00 0 00 041162 SETZM OFFSET
3066 032536 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR?
3067 032537 476 00 0 00 041162 SETOM OFFSET ;YES
3068
3069 032540 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0
3070 032541 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS
3071
3072 032542 402 00 0 00 041173 EDM9: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
3073 032543 402 00 0 00 041174 SETZM SKPWD2
3074
3075 032544 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES
3076
3077 032545 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE
3078 032546 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE
3079 032547 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
3080 032550 251 00 0 00 036257 BLT AC0,PATTBL+^D9
3081
3082 032551 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS
3083
3084 032552 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB#
3085 032553 200 01 0 03 036343 MOVE AC1,ED9WD(AC3) ;GET TABLE TEST WORD
3086 032554 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE
3087
3088 032555 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR?
3089 032556 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES
3090
3091 032557 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK
3092 032560 251 00 0 00 035766 BLT AC0,ORIGSV+4
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 59
DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0113
3093
3094 ; **************************************************
3095 032561 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION
3096 032562 476 00 0 00 041173 SETOM SKPWD1
3097 ; **************************************************
3098
3099 032563 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR?
3100 032564 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN
3101
3102 ; **************************************************
3103 032565 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
3104 032566 476 00 0 00 041174 SETOM SKPWD2
3105 ; **************************************************
3106
3107 032567 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS
3108 ERROR EDM9,13,0,0,,,EDTPNT^
3109 SALL
3110 032570 036 13 0 00 037754
3111 032571 035 00 0 00 032542 ERLOOP EDM9 ;IF ERROR, LOOP TO EDM9
3112 032572 253 07 0 00 032542 AOBJN AC7,EDM9 ;DO THE NEXT CASE
3113
3114 032573 402 00 0 00 041162 SETZM OFFSET
3115 032574 254 00 0 00 032576 JRST PFTST ;FINISHED - GO TO NEXT SUBMODULE
3116 SALL
3117
3118 032575 367 15 0 00 031724 REPTLP EDMOD1
3119
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 60
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0114
3120 SUBTTL PAGE FAIL TESTING
3121 SALL
3122 037757 T= SIXBTZ<PAGE FAIL TESTING>
3123
3124 ; **********************************************************************
3125 ;*TEST 9 -- PAGE FAIL RECOVERY TEST
3126 ;*
3127 ;* THIS TEST SETS UP THE PAGE FAILURES FOR EACH INSTRUCTION
3128 ;* USING A PREDETERMINED AC BLOCK STORED IN MEMORY (PFBLKX).
3129 ;*
3130 ;* WHERE APPLICABLE, PAGE FAILURES WILL BE CAUSED AT THE FIRST,
3131 ;* MIDDLE, AND LAST BYTES OF THE SOURCE AND DESTINATION STRINGS,
3132 ;* AND AT THE E0+1 (FILLER) BYTES.
3133 ;*
3134 ;* THE PAGE FAILUES ARE CAUSED BY RELOCATING PAGE 400 TO PAGE 75.
3135 ;*
3136 ;* THE EXTEND INSTRUCTIONS ARE SET UP SO THAT THEY REFERENCE PAGE 401
3137 ;* (WHICH DOES NOT EXIST).
3138 ;*
3139 ;* A PAGE FAIL SHOULD OCCUR ON THE FIRST REFERENCE TO LOCATION 401000.
3140 ;*
3141 ;* THE PAGE FAIL ROUTINE COMPARES THE INTERMEDIATE VALUES OF
3142 ;* THE AC BLOCK TO THE CORRECT VERSION STORED IN MEMORY AND
3143 ;* THE CONTENTS OF LOCATION 501 (SAVED FLAGS AND PC). IF THEY
3144 ;* ARE NOT CORRECT AN ERROR PRINTOUT OCCURS.
3145 ;*
3146 ;* THE INSTRUCTION IS CONTINUED BY RELOCATING BOTH PAGES 400 AND 401.
3147 ;* PAGE 400 IS RELOCATED TO 75000 AND PAGE 401 IS RELOCATED TO 76000.
3148 ;*
3149 ;* WHEN THE EXECUTION OF THE EXTEND INSTRUCTION IS FINISHED THE
3150 ;* SIMULATOR FOR THAT PARTICULAR SET OF INSTRUCTIONS IS EXECUTED.
3151 ;* (SINCE BOTH PAGES 400 AND 401 ARE NOW RELOCATED THE SIMULATOR
3152 ;* CAN EXECUTE THE INSTRUCTION WITHOUT PAGE FAIL.)
3153 ;*
3154 ;* THE FINAL RESULTS OF THE INSTRUCTION CONTAINED IN THE AC BLOCK
3155 ;* ARE COMPARED TO THOSE OF THE SIMULATOR. IF NOT EQUAL AN ERROR
3156 ;* PRINTOUT OCCURS.
3157 ; **********************************************************************
3158
3159 032576 332 00 0 00 030037 PFTST: SKIPE USER
3160 032577 254 00 0 00 030057 JRST BEGEND ;NO PAGE FAIL TESTING IN USER MODE
3161
3162 032600 200 15 0 00 041172 MOVE REPT,RPEAT
3163
3164 032601 201 00 0 00 034762 MOVEI AC0,PFHAND ;SET UP ADDRESS OF PF HANDLER
3165 032602 202 00 0 00 000502 MOVEM AC0,LPGFTR
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 61
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0115
3166
3167 ; **********************************************************************
3168 ;*PAGE FAIL TESTING OF THE COMPARE INSTRUCTIONS
3169 ; **********************************************************************
3170 SALL
3171 037762 T= SIXBTZ <PAGE FAIL TESTING OF THE COMPARE INSTRUCTIONS>
3172
3173 PFMAC (-6,-7,PFRES1,PFBLK1,CMP,SETRAN)
3174
3175 032603 201 00 0 00 032603 CMPST: MOVEI .
3176 032604 202 00 0 00 030051 MOVEM TESTPC
3177
3178 032605 476 00 0 00 041162 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS
3179
3180 032606 515 01 0 00 777772 HRLZI AC1,-6 ;AC1/-# CMP INSTR,,0
3181 032607 541 01 0 00 035517 HRRI AC1,CMPTAB ;AC1/-# CMP INSTR,,OPCODE TABLE ADDR
3182
3183 032610 402 00 0 00 035564 SETZM E0
3184 032611 402 00 0 00 035565 SETZM E0+1
3185
3186 032612 571 02 0 00 777771 CMPPF0: HRREI AC2,-7 ;AC2/-# PAGE FAIL CASES
3187
3188 032613 200 00 0 01 000000 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ
3189 032614 306 00 0 00 000017 CAIN AC0,017
3190 032615 275 02 0 00 000001 SUBI AC2,1
3191
3192 032616 302 00 0 00 000004 CAIE AC0,004 ;EDIT INSTRUCTION?
3193 032617 254 00 0 00 032626 JRST CMPPFA
3194
3195 032620 200 00 0 00 036463 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE
3196 032621 202 00 0 00 036246 MOVEM AC0,PATTBL
3197 032622 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
3198 032623 251 00 0 00 036256 BLT AC0,PATTBL+^D8
3199
3200 032624 200 00 0 00 036461 MOVE AC0,STOPWD
3201 032625 202 00 0 00 036257 MOVEM AC0,PATTBL+^D9
3202
3203 032626 201 03 0 00 036464 CMPPFA: MOVEI AC3,PFBLK1 ;INITIAL AC BLOCK TABLE
3204 032627 201 04 0 00 036646 MOVEI AC4,PFRES1 ;ADDR OF INTERMEDIATE RESULT TABLE
3205
3206 032630 402 00 0 00 041173 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
3207 032631 402 00 0 00 041174 SETZM SKPWD2
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 62
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0116
3208
3209 ; **************************************************
3210 ;SET UP THE SOURCE AND DESTINATION STRINGS
3211 ; **************************************************
3212
3213 032632 260 17 0 00 035313 GO CLRSTR
3214
3215 032633 402 00 0 00 075750 SETZM 75750 ;CLEAR THE FAIL STRING AREA
3216 032634 200 00 0 00 037772 MOVE AC0,[75750,,75751]
3217 032635 251 00 0 00 076100 BLT AC0,76100
3218
3219 032636 260 17 0 00 035234 CMPPF1: GO PFACB ;SET UP THE INITIAL AC BLOCK
3220
3221 032637 200 00 0 01 000000 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE
3222 032640 202 00 0 00 041161 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING
3223
3224 032641 260 17 0 00 035213 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION
3225
3226 032642 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3227 032643 137 00 0 00 037773 DPB AC0,[POINT 9,400777,8] ;YES
3228
3229 032644 336 00 0 00 041156 SKIPN FILLF
3230 032645 137 00 0 00 036220 DPB AC0,E0OP ;NO
3231
3232 032646 336 00 0 00 041176 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION?
3233 032647 254 00 0 00 032657 JRST CMPPC ;NO
3234
3235 032650 201 00 0 00 035650 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE
3236 032651 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3237 032652 542 00 0 00 400777 HRRM AC0,400777 ;YES
3238 032653 542 00 0 00 035564 HRRM AC0,E0 ;NO
3239
3240 032654 200 00 0 00 037533 MOVE AC0,[1,,1]
3241 032655 260 17 0 00 031426 GO SETRAN ;SETUP THE TRANSLATION TABLE
3242 032656 434 10 0 00 035734 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 63
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0117
3243
3244 032657 200 00 0 00 037506 CMPPC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
3245 032660 251 00 0 00 035766 BLT AC0,ORIGSV+4
3246
3247 032661 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3248 032662 200 00 0 00 037774 MOVE AC0,[0,,CMPPC2] ;YES
3249 032663 336 00 0 00 041156 SKIPN FILLF
3250 032664 200 00 0 00 037775 MOVE AC0,[0,,CMPPC1] ;NO
3251 032665 202 00 0 00 041155 MOVEM FAILOC# ;STORE IT
3252
3253 032666 476 00 0 00 041170 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED
3254 032667 402 00 0 00 041166 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG
3255
3256 032670 201 00 0 00 032707 MOVEI CMPPFX
3257 032671 202 00 0 00 041167 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
3258
3259 032672 260 17 0 00 035223 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP
3260
3261 032673 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3262 032674 254 00 0 00 032700 JRST CMPPC2 ;YES
3263
3264 ; **************************************************
3265 032675 123 10 0 00 035564 CMPPC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
3266 032676 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN
3267 ; **************************************************
3268
3269 032677 254 00 0 00 032702 JRST CMPPF3
3270
3271 ; **************************************************
3272 032700 123 10 0 00 400777 CMPPC2: EXTEND AC,400777 ;MAKE E0+1 FAIL
3273 032701 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN
3274 ; **************************************************
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 64
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0118
3275
3276 ; **************************************************
3277 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
3278 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
3279 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
3280 ;INSTRUCTION AND TO HERE.
3281 ; **************************************************
3282
3283 032702 331 00 0 00 041170 CMPPF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR?
3284 032703 254 00 0 00 032717 JRST DOCMP ;YES - OK
3285
3286 ERROR CMPPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^
3287 SALL
3288 032704 036 13 0 00 040004
3289 032705 035 00 0 00 032612 ERLOOP CMPPF0 ;IF ERROR, LOOP TO CMPPF0
3290 032706 254 00 0 00 032724 JRST CMPNXT ;GO DO THE NEXT CASE
3291
3292 032707 336 00 0 00 041170 CMPPFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ?
3293 032710 254 00 0 00 032714 JRST CMPPF9 ;YES, CHECK INTERMEDIATE RESULTS
3294
3295 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^
3296 SALL
3297 032711 036 13 0 00 040016
3298 032712 035 02 0 00 032612 ERLP2 CMPPF0
3299 032713 254 00 0 00 032724 JRST CMPNXT
3300
3301 032714 CMPPF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^
3302 SALL
3303 032714 036 13 0 00 040030
3304 032715 035 02 0 00 032612 ERLP2 CMPPF0
3305 032716 254 00 0 00 032724 JRST CMPNXT
3306
3307 ; **************************************************
3308 032717 260 17 0 00 033475 DOCMP: GO CMPSIM ;SIMULATE THE INSTRUCTION
3309 032720 476 00 0 00 041173 SETOM SKPWD1 ;NOTE A SKIP RETURN
3310 ; **************************************************
3311
3312 032721 260 17 0 00 035174 GO COMAC ;COMPARE THE FINAL RESULTS
3313 ERROR CMPPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^
3314 SALL
3315 032722 036 13 0 00 040037
3316 032723 035 00 0 00 032612 ERLOOP CMPPF0 ;IF ERROR, LOOP TO CMPPF0
3317 032724 201 00 0 00 000005 CMPNXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS
3318 032725 272 00 0 00 000004 ADDM AC0,AC4
3319 032726 271 00 0 00 000001 ADDI AC0,1
3320 032727 272 00 0 00 000003 ADDM AC0,AC3
3321
3322 032730 341 02 0 00 032636 AOJL AC2,CMPPF1 ;DO THE NEXT PF CASE
3323
3324 032731 253 01 0 00 032612 AOBJN AC1,CMPPF0 ;DO THE NEXT INSTRUCTION
3325 032732 402 00 0 00 041162 SETZM OFFSET
3326 SALL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 65
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0119
3327
3328 ; **********************************************************************
3329 ;*PAGE FAIL TESTING OF MOVE STRING INSTRUCTIONS
3330 ; **********************************************************************
3331 SALL
3332 040042 T= SIXBTZ <PAGE FAIL TESTING OF MOVE STRING INSTRUCTIONS>
3333
3334 PFMAC(-4,-7,PFRES1,PFBLK1,MOV,SETRAN)
3335
3336 032733 201 00 0 00 032733 MOVST: MOVEI .
3337 032734 202 00 0 00 030051 MOVEM TESTPC
3338
3339 032735 476 00 0 00 041162 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS
3340
3341 032736 515 01 0 00 777774 HRLZI AC1,-4 ;AC1/-# MOV INSTR,,0
3342 032737 541 01 0 00 035525 HRRI AC1,MOVTAB ;AC1/-# MOV INSTR,,OPCODE TABLE ADDR
3343
3344 032740 402 00 0 00 035564 SETZM E0
3345 032741 402 00 0 00 035565 SETZM E0+1
3346
3347 032742 571 02 0 00 777771 MOVPF0: HRREI AC2,-7 ;AC2/-# PAGE FAIL CASES
3348
3349 032743 200 00 0 01 000000 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ
3350 032744 306 00 0 00 000017 CAIN AC0,017
3351 032745 275 02 0 00 000001 SUBI AC2,1
3352
3353 032746 302 00 0 00 000004 CAIE AC0,004 ;EDIT INSTRUCTION?
3354 032747 254 00 0 00 032756 JRST MOVPFA
3355
3356 032750 200 00 0 00 036463 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE
3357 032751 202 00 0 00 036246 MOVEM AC0,PATTBL
3358 032752 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
3359 032753 251 00 0 00 036256 BLT AC0,PATTBL+^D8
3360
3361 032754 200 00 0 00 036461 MOVE AC0,STOPWD
3362 032755 202 00 0 00 036257 MOVEM AC0,PATTBL+^D9
3363
3364 032756 201 03 0 00 036464 MOVPFA: MOVEI AC3,PFBLK1 ;INITIAL AC BLOCK TABLE
3365 032757 201 04 0 00 036646 MOVEI AC4,PFRES1 ;ADDR OF INTERMEDIATE RESULT TABLE
3366
3367 032760 402 00 0 00 041173 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
3368 032761 402 00 0 00 041174 SETZM SKPWD2
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 66
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0120
3369
3370 ; **************************************************
3371 ;SET UP THE SOURCE AND DESTINATION STRINGS
3372 ; **************************************************
3373
3374 032762 260 17 0 00 035313 GO CLRSTR
3375
3376 032763 402 00 0 00 075750 SETZM 75750 ;CLEAR THE FAIL STRING AREA
3377 032764 200 00 0 00 037772 MOVE AC0,[75750,,75751]
3378 032765 251 00 0 00 076100 BLT AC0,76100
3379
3380 032766 260 17 0 00 035234 MOVPF1: GO PFACB ;SET UP THE INITIAL AC BLOCK
3381
3382 032767 200 00 0 01 000000 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE
3383 032770 202 00 0 00 041161 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING
3384
3385 032771 260 17 0 00 035213 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION
3386
3387 032772 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3388 032773 137 00 0 00 037773 DPB AC0,[POINT 9,400777,8] ;YES
3389
3390 032774 336 00 0 00 041156 SKIPN FILLF
3391 032775 137 00 0 00 036220 DPB AC0,E0OP ;NO
3392
3393 032776 336 00 0 00 041176 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION?
3394 032777 254 00 0 00 033007 JRST MOVPC ;NO
3395
3396 033000 201 00 0 00 035650 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE
3397 033001 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3398 033002 542 00 0 00 400777 HRRM AC0,400777 ;YES
3399 033003 542 00 0 00 035564 HRRM AC0,E0 ;NO
3400
3401 033004 200 00 0 00 037533 MOVE AC0,[1,,1]
3402 033005 260 17 0 00 031426 GO SETRAN ;SETUP THE TRANSLATION TABLE
3403 033006 434 10 0 00 035734 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 67
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0121
3404
3405 033007 200 00 0 00 037506 MOVPC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
3406 033010 251 00 0 00 035766 BLT AC0,ORIGSV+4
3407
3408 033011 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3409 033012 200 00 0 00 040052 MOVE AC0,[0,,MOVPC2] ;YES
3410 033013 336 00 0 00 041156 SKIPN FILLF
3411 033014 200 00 0 00 040053 MOVE AC0,[0,,MOVPC1] ;NO
3412 033015 202 00 0 00 041155 MOVEM FAILOC# ;STORE IT
3413
3414 033016 476 00 0 00 041170 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED
3415 033017 402 00 0 00 041166 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG
3416
3417 033020 201 00 0 00 033037 MOVEI MOVPFX
3418 033021 202 00 0 00 041167 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
3419
3420 033022 260 17 0 00 035223 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP
3421
3422 033023 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3423 033024 254 00 0 00 033030 JRST MOVPC2 ;YES
3424
3425 ; **************************************************
3426 033025 123 10 0 00 035564 MOVPC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
3427 033026 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN
3428 ; **************************************************
3429
3430 033027 254 00 0 00 033032 JRST MOVPF3
3431
3432 ; **************************************************
3433 033030 123 10 0 00 400777 MOVPC2: EXTEND AC,400777 ;MAKE E0+1 FAIL
3434 033031 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN
3435 ; **************************************************
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 68
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0122
3436
3437 ; **************************************************
3438 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
3439 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
3440 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
3441 ;INSTRUCTION AND TO HERE.
3442 ; **************************************************
3443
3444 033032 331 00 0 00 041170 MOVPF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR?
3445 033033 254 00 0 00 033047 JRST DOMOV ;YES - OK
3446
3447 ERROR MOVPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^
3448 SALL
3449 033034 036 13 0 00 040054
3450 033035 035 00 0 00 032742 ERLOOP MOVPF0 ;IF ERROR, LOOP TO MOVPF0
3451 033036 254 00 0 00 033054 JRST MOVNXT ;GO DO THE NEXT CASE
3452
3453 033037 336 00 0 00 041170 MOVPFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ?
3454 033040 254 00 0 00 033044 JRST MOVPF9 ;YES, CHECK INTERMEDIATE RESULTS
3455
3456 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^
3457 SALL
3458 033041 036 13 0 00 040057
3459 033042 035 02 0 00 032742 ERLP2 MOVPF0
3460 033043 254 00 0 00 033054 JRST MOVNXT
3461
3462 033044 MOVPF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^
3463 SALL
3464 033044 036 13 0 00 040062
3465 033045 035 02 0 00 032742 ERLP2 MOVPF0
3466 033046 254 00 0 00 033054 JRST MOVNXT
3467
3468 ; **************************************************
3469 033047 260 17 0 00 033551 DOMOV: GO MOVSIM ;SIMULATE THE INSTRUCTION
3470 033050 476 00 0 00 041173 SETOM SKPWD1 ;NOTE A SKIP RETURN
3471 ; **************************************************
3472
3473 033051 260 17 0 00 035174 GO COMAC ;COMPARE THE FINAL RESULTS
3474 ERROR MOVPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^
3475 SALL
3476 033052 036 13 0 00 040065
3477 033053 035 00 0 00 032742 ERLOOP MOVPF0 ;IF ERROR, LOOP TO MOVPF0
3478 033054 201 00 0 00 000005 MOVNXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS
3479 033055 272 00 0 00 000004 ADDM AC0,AC4
3480 033056 271 00 0 00 000001 ADDI AC0,1
3481 033057 272 00 0 00 000003 ADDM AC0,AC3
3482
3483 033060 341 02 0 00 032766 AOJL AC2,MOVPF1 ;DO THE NEXT PF CASE
3484
3485 033061 253 01 0 00 032742 AOBJN AC1,MOVPF0 ;DO THE NEXT INSTRUCTION
3486 033062 402 00 0 00 041162 SETZM OFFSET
3487 SALL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 69
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0123
3488
3489 ; **********************************************************************
3490 ;*PAGE FAIL TESTING OF CVTDBX INSTRUCTIONS
3491 ; **********************************************************************
3492 SALL
3493 040070 T= SIXBTZ <PAGE FAIL TESTING OF CVTDBX INSTRUCTIONS>
3494
3495 PFMAC(-2,-3,PFRES2,PFBLK2,CDB,CDBTN)
3496
3497 033063 201 00 0 00 033063 CDBST: MOVEI .
3498 033064 202 00 0 00 030051 MOVEM TESTPC
3499
3500 033065 476 00 0 00 041162 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS
3501
3502 033066 515 01 0 00 777776 HRLZI AC1,-2 ;AC1/-# CDB INSTR,,0
3503 033067 541 01 0 00 035532 HRRI AC1,CDBTAB ;AC1/-# CDB INSTR,,OPCODE TABLE ADDR
3504
3505 033070 402 00 0 00 035564 SETZM E0
3506 033071 402 00 0 00 035565 SETZM E0+1
3507
3508 033072 571 02 0 00 777775 CDBPF0: HRREI AC2,-3 ;AC2/-# PAGE FAIL CASES
3509
3510 033073 200 00 0 01 000000 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ
3511 033074 306 00 0 00 000017 CAIN AC0,017
3512 033075 275 02 0 00 000001 SUBI AC2,1
3513
3514 033076 302 00 0 00 000004 CAIE AC0,004 ;EDIT INSTRUCTION?
3515 033077 254 00 0 00 033106 JRST CDBPFA
3516
3517 033100 200 00 0 00 036463 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE
3518 033101 202 00 0 00 036246 MOVEM AC0,PATTBL
3519 033102 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
3520 033103 251 00 0 00 036256 BLT AC0,PATTBL+^D8
3521
3522 033104 200 00 0 00 036461 MOVE AC0,STOPWD
3523 033105 202 00 0 00 036257 MOVEM AC0,PATTBL+^D9
3524
3525 033106 201 03 0 00 036544 CDBPFA: MOVEI AC3,PFBLK2 ;INITIAL AC BLOCK TABLE
3526 033107 201 04 0 00 036716 MOVEI AC4,PFRES2 ;ADDR OF INTERMEDIATE RESULT TABLE
3527
3528 033110 402 00 0 00 041173 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
3529 033111 402 00 0 00 041174 SETZM SKPWD2
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 70
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0124
3530
3531 ; **************************************************
3532 ;SET UP THE SOURCE AND DESTINATION STRINGS
3533 ; **************************************************
3534
3535 033112 260 17 0 00 035313 GO CLRSTR
3536
3537 033113 402 00 0 00 075750 SETZM 75750 ;CLEAR THE FAIL STRING AREA
3538 033114 200 00 0 00 037772 MOVE AC0,[75750,,75751]
3539 033115 251 00 0 00 076100 BLT AC0,76100
3540
3541 033116 260 17 0 00 035234 CDBPF1: GO PFACB ;SET UP THE INITIAL AC BLOCK
3542
3543 033117 200 00 0 01 000000 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE
3544 033120 202 00 0 00 041161 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING
3545
3546 033121 260 17 0 00 035213 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION
3547
3548 033122 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3549 033123 137 00 0 00 037773 DPB AC0,[POINT 9,400777,8] ;YES
3550
3551 033124 336 00 0 00 041156 SKIPN FILLF
3552 033125 137 00 0 00 036220 DPB AC0,E0OP ;NO
3553
3554 033126 336 00 0 00 041176 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION?
3555 033127 254 00 0 00 033137 JRST CDBPC ;NO
3556
3557 033130 201 00 0 00 035650 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE
3558 033131 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3559 033132 542 00 0 00 400777 HRRM AC0,400777 ;YES
3560 033133 542 00 0 00 035564 HRRM AC0,E0 ;NO
3561
3562 033134 200 00 0 00 037533 MOVE AC0,[1,,1]
3563 033135 260 17 0 00 035167 GO CDBTN ;SETUP THE TRANSLATION TABLE
3564 033136 434 10 0 00 035734 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 71
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0125
3565
3566 033137 200 00 0 00 037506 CDBPC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
3567 033140 251 00 0 00 035766 BLT AC0,ORIGSV+4
3568
3569 033141 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3570 033142 200 00 0 00 040077 MOVE AC0,[0,,CDBPC2] ;YES
3571 033143 336 00 0 00 041156 SKIPN FILLF
3572 033144 200 00 0 00 040100 MOVE AC0,[0,,CDBPC1] ;NO
3573 033145 202 00 0 00 041155 MOVEM FAILOC# ;STORE IT
3574
3575 033146 476 00 0 00 041170 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED
3576 033147 402 00 0 00 041166 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG
3577
3578 033150 201 00 0 00 033167 MOVEI CDBPFX
3579 033151 202 00 0 00 041167 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
3580
3581 033152 260 17 0 00 035223 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP
3582
3583 033153 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3584 033154 254 00 0 00 033160 JRST CDBPC2 ;YES
3585
3586 ; **************************************************
3587 033155 123 10 0 00 035564 CDBPC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
3588 033156 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN
3589 ; **************************************************
3590
3591 033157 254 00 0 00 033162 JRST CDBPF3
3592
3593 ; **************************************************
3594 033160 123 10 0 00 400777 CDBPC2: EXTEND AC,400777 ;MAKE E0+1 FAIL
3595 033161 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN
3596 ; **************************************************
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 72
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0126
3597
3598 ; **************************************************
3599 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
3600 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
3601 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
3602 ;INSTRUCTION AND TO HERE.
3603 ; **************************************************
3604
3605 033162 331 00 0 00 041170 CDBPF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR?
3606 033163 254 00 0 00 033177 JRST DOCDB ;YES - OK
3607
3608 ERROR CDBPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^
3609 SALL
3610 033164 036 13 0 00 040101
3611 033165 035 00 0 00 033072 ERLOOP CDBPF0 ;IF ERROR, LOOP TO CDBPF0
3612 033166 254 00 0 00 033204 JRST CDBNXT ;GO DO THE NEXT CASE
3613
3614 033167 336 00 0 00 041170 CDBPFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ?
3615 033170 254 00 0 00 033174 JRST CDBPF9 ;YES, CHECK INTERMEDIATE RESULTS
3616
3617 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^
3618 SALL
3619 033171 036 13 0 00 040104
3620 033172 035 02 0 00 033072 ERLP2 CDBPF0
3621 033173 254 00 0 00 033204 JRST CDBNXT
3622
3623 033174 CDBPF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^
3624 SALL
3625 033174 036 13 0 00 040107
3626 033175 035 02 0 00 033072 ERLP2 CDBPF0
3627 033176 254 00 0 00 033204 JRST CDBNXT
3628
3629 ; **************************************************
3630 033177 260 17 0 00 033707 DOCDB: GO CDBSIM ;SIMULATE THE INSTRUCTION
3631 033200 476 00 0 00 041173 SETOM SKPWD1 ;NOTE A SKIP RETURN
3632 ; **************************************************
3633
3634 033201 260 17 0 00 035174 GO COMAC ;COMPARE THE FINAL RESULTS
3635 ERROR CDBPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^
3636 SALL
3637 033202 036 13 0 00 040112
3638 033203 035 00 0 00 033072 ERLOOP CDBPF0 ;IF ERROR, LOOP TO CDBPF0
3639 033204 201 00 0 00 000005 CDBNXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS
3640 033205 272 00 0 00 000004 ADDM AC0,AC4
3641 033206 271 00 0 00 000001 ADDI AC0,1
3642 033207 272 00 0 00 000003 ADDM AC0,AC3
3643
3644 033210 341 02 0 00 033116 AOJL AC2,CDBPF1 ;DO THE NEXT PF CASE
3645
3646 033211 253 01 0 00 033072 AOBJN AC1,CDBPF0 ;DO THE NEXT INSTRUCTION
3647 033212 402 00 0 00 041162 SETZM OFFSET
3648 SALL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 73
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0127
3649
3650 ; **********************************************************************
3651 ;*PAGE FAIL TESTING OF CVTBDO INSTRUCTIONS
3652 ; **********************************************************************
3653 SALL
3654 040115 T= SIXBTZ <PAGE FAIL TESTING OF CVTBDO INSTRUCTIONS>
3655
3656 PFMAC(-1,-2,PFRES3,PFBLK3,CBD,CBDTRN)
3657
3658 033213 201 00 0 00 033213 CBDST: MOVEI .
3659 033214 202 00 0 00 030051 MOVEM TESTPC
3660
3661 033215 476 00 0 00 041162 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS
3662
3663 033216 515 01 0 00 777777 HRLZI AC1,-1 ;AC1/-# CBD INSTR,,0
3664 033217 541 01 0 00 035534 HRRI AC1,CBDTAB ;AC1/-# CBD INSTR,,OPCODE TABLE ADDR
3665
3666 033220 402 00 0 00 035564 SETZM E0
3667 033221 402 00 0 00 035565 SETZM E0+1
3668
3669 033222 571 02 0 00 777776 CBDPF0: HRREI AC2,-2 ;AC2/-# PAGE FAIL CASES
3670
3671 033223 200 00 0 01 000000 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ
3672 033224 306 00 0 00 000017 CAIN AC0,017
3673 033225 275 02 0 00 000001 SUBI AC2,1
3674
3675 033226 302 00 0 00 000004 CAIE AC0,004 ;EDIT INSTRUCTION?
3676 033227 254 00 0 00 033236 JRST CBDPFA
3677
3678 033230 200 00 0 00 036463 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE
3679 033231 202 00 0 00 036246 MOVEM AC0,PATTBL
3680 033232 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
3681 033233 251 00 0 00 036256 BLT AC0,PATTBL+^D8
3682
3683 033234 200 00 0 00 036461 MOVE AC0,STOPWD
3684 033235 202 00 0 00 036257 MOVEM AC0,PATTBL+^D9
3685
3686 033236 201 03 0 00 036566 CBDPFA: MOVEI AC3,PFBLK3 ;INITIAL AC BLOCK TABLE
3687 033237 201 04 0 00 036735 MOVEI AC4,PFRES3 ;ADDR OF INTERMEDIATE RESULT TABLE
3688
3689 033240 402 00 0 00 041173 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
3690 033241 402 00 0 00 041174 SETZM SKPWD2
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 74
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0128
3691
3692 ; **************************************************
3693 ;SET UP THE SOURCE AND DESTINATION STRINGS
3694 ; **************************************************
3695
3696 033242 260 17 0 00 035313 GO CLRSTR
3697
3698 033243 402 00 0 00 075750 SETZM 75750 ;CLEAR THE FAIL STRING AREA
3699 033244 200 00 0 00 037772 MOVE AC0,[75750,,75751]
3700 033245 251 00 0 00 076100 BLT AC0,76100
3701
3702 033246 260 17 0 00 035234 CBDPF1: GO PFACB ;SET UP THE INITIAL AC BLOCK
3703
3704 033247 200 00 0 01 000000 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE
3705 033250 202 00 0 00 041161 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING
3706
3707 033251 260 17 0 00 035213 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION
3708
3709 033252 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3710 033253 137 00 0 00 037773 DPB AC0,[POINT 9,400777,8] ;YES
3711
3712 033254 336 00 0 00 041156 SKIPN FILLF
3713 033255 137 00 0 00 036220 DPB AC0,E0OP ;NO
3714
3715 033256 336 00 0 00 041176 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION?
3716 033257 254 00 0 00 033267 JRST CBDPC ;NO
3717
3718 033260 201 00 0 00 035650 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE
3719 033261 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3720 033262 542 00 0 00 400777 HRRM AC0,400777 ;YES
3721 033263 542 00 0 00 035564 HRRM AC0,E0 ;NO
3722
3723 033264 200 00 0 00 037533 MOVE AC0,[1,,1]
3724 033265 260 17 0 00 035171 GO CBDTRN ;SETUP THE TRANSLATION TABLE
3725 033266 434 10 0 00 035734 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 75
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0129
3726
3727 033267 200 00 0 00 037506 CBDPC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
3728 033270 251 00 0 00 035766 BLT AC0,ORIGSV+4
3729
3730 033271 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3731 033272 200 00 0 00 040124 MOVE AC0,[0,,CBDPC2] ;YES
3732 033273 336 00 0 00 041156 SKIPN FILLF
3733 033274 200 00 0 00 040125 MOVE AC0,[0,,CBDPC1] ;NO
3734 033275 202 00 0 00 041155 MOVEM FAILOC# ;STORE IT
3735
3736 033276 476 00 0 00 041170 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED
3737 033277 402 00 0 00 041166 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG
3738
3739 033300 201 00 0 00 033317 MOVEI CBDPFX
3740 033301 202 00 0 00 041167 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
3741
3742 033302 260 17 0 00 035223 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP
3743
3744 033303 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3745 033304 254 00 0 00 033310 JRST CBDPC2 ;YES
3746
3747 ; **************************************************
3748 033305 123 10 0 00 035564 CBDPC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
3749 033306 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN
3750 ; **************************************************
3751
3752 033307 254 00 0 00 033312 JRST CBDPF3
3753
3754 ; **************************************************
3755 033310 123 10 0 00 400777 CBDPC2: EXTEND AC,400777 ;MAKE E0+1 FAIL
3756 033311 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN
3757 ; **************************************************
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 76
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0130
3758
3759 ; **************************************************
3760 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
3761 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
3762 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
3763 ;INSTRUCTION AND TO HERE.
3764 ; **************************************************
3765
3766 033312 331 00 0 00 041170 CBDPF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR?
3767 033313 254 00 0 00 033327 JRST DOCBD ;YES - OK
3768
3769 ERROR CBDPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^
3770 SALL
3771 033314 036 13 0 00 040126
3772 033315 035 00 0 00 033222 ERLOOP CBDPF0 ;IF ERROR, LOOP TO CBDPF0
3773 033316 254 00 0 00 033334 JRST CBDNXT ;GO DO THE NEXT CASE
3774
3775 033317 336 00 0 00 041170 CBDPFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ?
3776 033320 254 00 0 00 033324 JRST CBDPF9 ;YES, CHECK INTERMEDIATE RESULTS
3777
3778 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^
3779 SALL
3780 033321 036 13 0 00 040131
3781 033322 035 02 0 00 033222 ERLP2 CBDPF0
3782 033323 254 00 0 00 033334 JRST CBDNXT
3783
3784 033324 CBDPF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^
3785 SALL
3786 033324 036 13 0 00 040134
3787 033325 035 02 0 00 033222 ERLP2 CBDPF0
3788 033326 254 00 0 00 033334 JRST CBDNXT
3789
3790 ; **************************************************
3791 033327 260 17 0 00 034006 DOCBD: GO CBDSIM ;SIMULATE THE INSTRUCTION
3792 033330 476 00 0 00 041173 SETOM SKPWD1 ;NOTE A SKIP RETURN
3793 ; **************************************************
3794
3795 033331 260 17 0 00 035174 GO COMAC ;COMPARE THE FINAL RESULTS
3796 ERROR CBDPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^
3797 SALL
3798 033332 036 13 0 00 040137
3799 033333 035 00 0 00 033222 ERLOOP CBDPF0 ;IF ERROR, LOOP TO CBDPF0
3800 033334 201 00 0 00 000005 CBDNXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS
3801 033335 272 00 0 00 000004 ADDM AC0,AC4
3802 033336 271 00 0 00 000001 ADDI AC0,1
3803 033337 272 00 0 00 000003 ADDM AC0,AC3
3804
3805 033340 341 02 0 00 033246 AOJL AC2,CBDPF1 ;DO THE NEXT PF CASE
3806
3807 033341 253 01 0 00 033222 AOBJN AC1,CBDPF0 ;DO THE NEXT INSTRUCTION
3808 033342 402 00 0 00 041162 SETZM OFFSET
3809 SALL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 77
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0131
3810
3811 ; **********************************************************************
3812 ;*PAGE FAIL TESTING OF THE EDIT INSTRUCTIONS
3813 ; **********************************************************************
3814 SALL
3815 040142 T= SIXBTZ <PAGE FAIL TESTING OF THE EDIT INSTRUCTIONS>
3816
3817 PFMAC(-1,-6,PFRES4,PFBLK4,EDT,SETRAN)
3818
3819 033343 201 00 0 00 033343 EDTST: MOVEI .
3820 033344 202 00 0 00 030051 MOVEM TESTPC
3821
3822 033345 476 00 0 00 041162 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS
3823
3824 033346 515 01 0 00 777777 HRLZI AC1,-1 ;AC1/-# EDT INSTR,,0
3825 033347 541 01 0 00 035531 HRRI AC1,EDTTAB ;AC1/-# EDT INSTR,,OPCODE TABLE ADDR
3826
3827 033350 402 00 0 00 035564 SETZM E0
3828 033351 402 00 0 00 035565 SETZM E0+1
3829
3830 033352 571 02 0 00 777772 EDTPF0: HRREI AC2,-6 ;AC2/-# PAGE FAIL CASES
3831
3832 033353 200 00 0 01 000000 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ
3833 033354 306 00 0 00 000017 CAIN AC0,017
3834 033355 275 02 0 00 000001 SUBI AC2,1
3835
3836 033356 302 00 0 00 000004 CAIE AC0,004 ;EDIT INSTRUCTION?
3837 033357 254 00 0 00 033366 JRST EDTPFA
3838
3839 033360 200 00 0 00 036463 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE
3840 033361 202 00 0 00 036246 MOVEM AC0,PATTBL
3841 033362 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1]
3842 033363 251 00 0 00 036256 BLT AC0,PATTBL+^D8
3843
3844 033364 200 00 0 00 036461 MOVE AC0,STOPWD
3845 033365 202 00 0 00 036257 MOVEM AC0,PATTBL+^D9
3846
3847 033366 201 03 0 00 036602 EDTPFA: MOVEI AC3,PFBLK4 ;INITIAL AC BLOCK TABLE
3848 033367 201 04 0 00 036747 MOVEI AC4,PFRES4 ;ADDR OF INTERMEDIATE RESULT TABLE
3849
3850 033370 402 00 0 00 041173 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS
3851 033371 402 00 0 00 041174 SETZM SKPWD2
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 78
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0132
3852
3853 ; **************************************************
3854 ;SET UP THE SOURCE AND DESTINATION STRINGS
3855 ; **************************************************
3856
3857 033372 260 17 0 00 035313 GO CLRSTR
3858
3859 033373 402 00 0 00 075750 SETZM 75750 ;CLEAR THE FAIL STRING AREA
3860 033374 200 00 0 00 037772 MOVE AC0,[75750,,75751]
3861 033375 251 00 0 00 076100 BLT AC0,76100
3862
3863 033376 260 17 0 00 035234 EDTPF1: GO PFACB ;SET UP THE INITIAL AC BLOCK
3864
3865 033377 200 00 0 01 000000 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE
3866 033400 202 00 0 00 041161 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING
3867
3868 033401 260 17 0 00 035213 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION
3869
3870 033402 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3871 033403 137 00 0 00 037773 DPB AC0,[POINT 9,400777,8] ;YES
3872
3873 033404 336 00 0 00 041156 SKIPN FILLF
3874 033405 137 00 0 00 036220 DPB AC0,E0OP ;NO
3875
3876 033406 336 00 0 00 041176 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION?
3877 033407 254 00 0 00 033417 JRST EDTPC ;NO
3878
3879 033410 201 00 0 00 035650 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE
3880 033411 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3881 033412 542 00 0 00 400777 HRRM AC0,400777 ;YES
3882 033413 542 00 0 00 035564 HRRM AC0,E0 ;NO
3883
3884 033414 200 00 0 00 037533 MOVE AC0,[1,,1]
3885 033415 260 17 0 00 031426 GO SETRAN ;SETUP THE TRANSLATION TABLE
3886 033416 434 10 0 00 035734 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 79
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0133
3887
3888 033417 200 00 0 00 037506 EDTPC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS
3889 033420 251 00 0 00 035766 BLT AC0,ORIGSV+4
3890
3891 033421 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3892 033422 200 00 0 00 040152 MOVE AC0,[0,,EDTPC2] ;YES
3893 033423 336 00 0 00 041156 SKIPN FILLF
3894 033424 200 00 0 00 040153 MOVE AC0,[0,,EDTPC1] ;NO
3895 033425 202 00 0 00 041155 MOVEM FAILOC# ;STORE IT
3896
3897 033426 476 00 0 00 041170 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED
3898 033427 402 00 0 00 041166 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG
3899
3900 033430 201 00 0 00 033447 MOVEI EDTPFX
3901 033431 202 00 0 00 041167 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC
3902
3903 033432 260 17 0 00 035223 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP
3904
3905 033433 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE?
3906 033434 254 00 0 00 033440 JRST EDTPC2 ;YES
3907
3908 ; **************************************************
3909 033435 123 10 0 00 035564 EDTPC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL
3910 033436 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN
3911 ; **************************************************
3912
3913 033437 254 00 0 00 033442 JRST EDTPF3
3914
3915 ; **************************************************
3916 033440 123 10 0 00 400777 EDTPC2: EXTEND AC,400777 ;MAKE E0+1 FAIL
3917 033441 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN
3918 ; **************************************************
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 80
DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0134
3919
3920 ; **************************************************
3921 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE
3922 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE.
3923 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE
3924 ;INSTRUCTION AND TO HERE.
3925 ; **************************************************
3926
3927 033442 331 00 0 00 041170 EDTPF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR?
3928 033443 254 00 0 00 033457 JRST DOEDT ;YES - OK
3929
3930 ERROR EDTPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^
3931 SALL
3932 033444 036 13 0 00 040154
3933 033445 035 00 0 00 033352 ERLOOP EDTPF0 ;IF ERROR, LOOP TO EDTPF0
3934 033446 254 00 0 00 033464 JRST EDTNXT ;GO DO THE NEXT CASE
3935
3936 033447 336 00 0 00 041170 EDTPFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ?
3937 033450 254 00 0 00 033454 JRST EDTPF9 ;YES, CHECK INTERMEDIATE RESULTS
3938
3939 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^
3940 SALL
3941 033451 036 13 0 00 040157
3942 033452 035 02 0 00 033352 ERLP2 EDTPF0
3943 033453 254 00 0 00 033464 JRST EDTNXT
3944
3945 033454 EDTPF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^
3946 SALL
3947 033454 036 13 0 00 040162
3948 033455 035 02 0 00 033352 ERLP2 EDTPF0
3949 033456 254 00 0 00 033464 JRST EDTNXT
3950
3951 ; **************************************************
3952 033457 260 17 0 00 034141 DOEDT: GO EDTSIM ;SIMULATE THE INSTRUCTION
3953 033460 476 00 0 00 041173 SETOM SKPWD1 ;NOTE A SKIP RETURN
3954 ; **************************************************
3955
3956 033461 260 17 0 00 035174 GO COMAC ;COMPARE THE FINAL RESULTS
3957 ERROR EDTPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^
3958 SALL
3959 033462 036 13 0 00 040165
3960 033463 035 00 0 00 033352 ERLOOP EDTPF0 ;IF ERROR, LOOP TO EDTPF0
3961 033464 201 00 0 00 000005 EDTNXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS
3962 033465 272 00 0 00 000004 ADDM AC0,AC4
3963 033466 271 00 0 00 000001 ADDI AC0,1
3964 033467 272 00 0 00 000003 ADDM AC0,AC3
3965
3966 033470 341 02 0 00 033376 AOJL AC2,EDTPF1 ;DO THE NEXT PF CASE
3967
3968 033471 253 01 0 00 033352 AOBJN AC1,EDTPF0 ;DO THE NEXT INSTRUCTION
3969 033472 402 00 0 00 041162 SETZM OFFSET
3970 SALL
3971 033473 367 15 0 00 032603 REPTLP CMPST
3972 033474 254 00 0 00 030057 JRST BEGEND ;END OF PROGRAM
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 81
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0135
3973 SUBTTL INSTRUCTION SIMULATORS
3974
3975 ; **********************************************************************
3976 ;*INSTRUCTION SIMULATORS -- GENERAL INFORMATION
3977 ;*
3978 ;* EACH INSTRUCTION SIMULATOR ROUTINE IS ENTERED WITH
3979 ;* THE ORIGINAL AC BLOCK IN ORIGSV. THEY ARE COPIED INTO
3980 ;* AC'S 10-14.
3981 ;*
3982 ;* THE CURRENT OPCODE OF THE INSTRUCTION BEING TESTED
3983 ;* IS CONTAINED IN THE E0 WORD (BITS 0,8).
3984 ;*
3985 ;* FOR THE INSTRUCTIONS WHICH INVOLVE FORMING A DESTINATION STRING
3986 ;* THE RESULT IS STORED IN AN AREA CALLED "SIMDES" INSTEAD OF
3987 ;* "DESTIN" TO MAKE ERROR COMPARISON POSSIBLE.
3988 ;*
3989 ;* THE FINAL AC BLOCK FOR THE INSTRUCTION IS STORED IN FIVE
3990 ;* LOCATIONS AT RESSV BEFORE RETURN TO THE INSTRUCTION MODULE.
3991 ;*
3992 ;* RETURN IS +1 ALWAYS.
3993 ;*
3994 ;* CMPSIM -- ROUTINE TO SIMULATE THE COMPARE STRING INSTRUCTION
3995 ;* MOVSIM -- ROUTINE TO SIMULATE THE MOVE STRING INSTRUCTIONS
3996 ;* CDBSIM -- ROUTINE TO SIMULATE THE CVTDBO AND CVTDBT INSTRUCTIONS
3997 ;* CBDSIM -- ROUTINE TO SIMULATE THE CVTBDX INSTRUCTIONS
3998 ;* EDTSIM -- ROUTINE TO SIMULATE THE EDIT INSTRUCTION
3999 ; **********************************************************************
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 82
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0136
4000
4001 ; **********************************************************************
4002 ;*CMPSIM -- ROUTINE TO SIMULATE THE COMPARE STRING INSTRUCTION
4003 ;*
4004 ;* THE SKIP/NON-SKIP RETURN OF THE CMPXX SIMULATOR IS HANDLED
4005 ;* USING 3 FLAGS AND A SKIP TABLE, SKPTAB.
4006 ;*
4007 ;* WHEN STRING1 IS FOUND GREATER THAN, LESS THAN, AND/OR = TO
4008 ;* STRING2, THE APPROPRIATE FLAG IS OR'ED WITH AC3.
4009 ;*
4010 ;* SKPTAB IS INDEXED BY INSTRUCTION OPCODE AND BEFORE THE
4011 ;* INSTRUCTION RETURNS, AC3 IS ANDED WITH THE CORRECT
4012 ;* SKPTAB WORD.
4013 ;*
4014 ;* IF THE RESULT IS NON-ZERO THE SKIP CONDITION FOR THE INSTR
4015 ;* HAS BEEN SATISFIED AND THE RETURN POINTER IS INCREMENTED.
4016 ; **********************************************************************
4017
4018 033475 260 17 0 00 035253 CMPSIM: GO SVAC ;SAVE ACCUMULATORS
4019
4020 033476 135 01 0 00 036220 LDB OP1,E0OP ;COPY OF CURRENT OPCODE
4021
4022 033477 200 00 0 00 040170 MOVE AC0,[ORIGSV,,AC] ;RETRIEVE ORIGINAL AC BLOCK
4023 033500 251 00 0 00 000014 BLT AC0,AC+4
4024
4025 033501 402 00 0 00 000003 SETZM AC3 ;CLEAR SKIP TABLE COMPARE WORD
4026
4027 033502 375 00 0 00 000010 CMPS1: SOSGE SLEN
4028 033503 334 07 0 00 035565 SKIPA AC7,E0+1 ;IF SOURCE EXHAUSTED, GET FILLER
4029 033504 134 07 0 00 000011 ILDB AC7,SP ;SOURCE REMAINS, GET BYTE
4030
4031 033505 375 00 0 00 000013 SOSGE DLEN ;DO THE SAME WITH DESTINATION STRING
4032 033506 334 02 0 00 035566 SKIPA AC2,E0+2
4033 033507 134 02 0 00 000014 ILDB AC2,DP
4034
4035 033510 325 10 0 00 033512 JUMPGE SLEN,CMPS2 ;GO COMPARE BYTES
4036 033511 321 13 0 00 033535 JUMPL DLEN,CMPDON ;BOTH STRING ARE EQUAL
4037
4038 033512 554 04 0 00 000007 CMPS2: HLRZ AC4,AC7 ;GET THE LEFT HALF OF SOURCE AND DESTIN
4039 033513 554 05 0 00 000002 HLRZ AC5,AC2
4040
4041 033514 316 04 0 00 000005 CAMN AC4,AC5 ;COMPARE SOURCE AND DESTINATION BYTES
4042 033515 254 00 0 00 033524 JRST CMPS3 ;EQUAL - GET RIGHT HALF
4043
4044 033516 317 04 0 00 000005 CAMG AC4,AC5
4045 033517 435 03 0 00 000001 ORI AC3,LF
4046
4047 033520 311 04 0 00 000005 CAML AC4,AC5
4048 033521 435 03 0 00 000004 ORI AC3,GF ;SET SOURCE > DESTIN FLAG
4049
4050 033522 332 00 0 00 000003 SKIPE AC3
4051 033523 254 00 0 00 033536 JRST CMPOUT
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 83
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0137
4052
4053 033524 550 04 0 00 000007 CMPS3: HRRZ AC4,AC7
4054 033525 550 05 0 00 000002 HRRZ AC5,AC2
4055
4056 033526 316 04 0 00 000005 CAMN AC4,AC5
4057 033527 254 00 0 00 033502 JRST CMPS1 ;EQUAL - GET NEXT BYTES
4058
4059 033530 317 04 0 00 000005 CAMG AC4,AC5 ;BYTES ARE NOT EQUAL
4060 033531 435 03 0 00 000001 ORI AC3,LF ;SET SOURCE < DESTIN FLAG
4061
4062 033532 311 04 0 00 000005 CAML AC4,AC5
4063 033533 435 03 0 00 000004 ORI AC3,GF ;SET SOURCE > DESTIN FLAG
4064
4065 033534 254 00 0 00 033536 JRST CMPOUT ;NOW EXIT
4066
4067 033535 435 03 0 00 000002 CMPDON: ORI AC3,EF ;SET SOURCE = DESTIN FLAG
4068
4069 033536 404 03 0 01 036224 CMPOUT: AND AC3,SKPTAB(OP1) ;IF RESULT OF AND = 0 THEN NON-SKIP RTN
4070 033537 332 00 0 00 000003 SKIPE AC3
4071 033540 350 00 0 17 000000 AOS (P)
4072
4073 033541 335 00 0 00 000010 SKIPGE SLEN ;CLEANUP IF EITHER LENGTH HAS GONE NEGATIVE
4074 033542 402 00 0 00 000010 SETZM SLEN
4075 033543 335 00 0 00 000013 SKIPGE DLEN
4076 033544 402 00 0 00 000013 SETZM DLEN
4077
4078 033545 200 00 0 00 040171 MOVE AC0,[SLEN,,RESSV] ;SAVE THE END RESULT
4079
4080 033546 251 00 0 00 035773 BLT AC0,RESSV+4
4081 033547 260 17 0 00 035273 GO RSTAC ;RESTORE THE ACCUMULATORS
4082
4083 033550 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 84
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0138
4084
4085 ; **********************************************************************
4086 ;*MOVSIM -- ROUTINE TO SIMULATE THE MOVE STRING INSTRUCTIONS
4087 ; **********************************************************************
4088
4089 033551 260 17 0 00 035253 MOVSIM: GO SVAC ;SAVE ACCUMULATORS
4090
4091 033552 135 01 0 00 036220 LDB OP1,E0OP ;COPY OF CURRENT OPCODE
4092
4093 033553 200 00 0 00 040170 MOVE AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK
4094 033554 251 00 0 00 000014 BLT AC0,AC+4
4095
4096 033555 510 06 0 00 000010 HLLZ AC6,AC ;SEPERATE THE FLAGS AND LENGTH
4097 033556 550 10 0 00 000010 HRRZ AC,AC
4098
4099 033557 336 00 0 00 041162 SKIPN OFFSET ;DON'T OFFSET DESTIN STRING IF PFTST
4100 033560 541 14 0 00 036120 HRRI DP,SIMDES ;PUT SIMULATED DESTIN STRING ELSEWHERE
4101
4102 033561 332 00 0 00 000013 SKIPE DLEN ;IF DESTIN LEN = 0 THEN SIMPLE RETURN
4103 033562 254 00 0 00 033566 JRST MOVS1A ;NO
4104
4105 033563 336 00 0 00 000010 SKIPN SLEN ;IS THE SOURCE LENGTH 0 TOO?
4106 033564 254 00 0 00 033665 JRST SETSKP ;YES - DO A SKIP RETURN
4107 033565 254 00 0 00 033675 JRST MOVOUT ;NO
4108
4109 033566 306 01 0 00 000015 MOVS1A: CAIN OP1,015 ;IS INSTRUCTION MOVST?
4110 033567 254 00 0 00 033634 JRST MOVSTS ;YES - JUMP TO THAT CODE
4111
4112 033570 306 01 0 00 000014 CAIN OP1,014 ;IS INSTRUCTION MOVSO?
4113 033571 254 00 0 00 033614 JRST MOVSOS ;YES - JUMP TO THAT CODE
4114
4115 033572 403 02 0 00 000005 SETZB AC2,AC5 ;SET BYTE OFFSET AND OFFSET MASK TO ZERO
4116
4117 033573 316 10 0 00 000013 CAMN SLEN,DLEN ;ARE THE STRING LENGTHS EQUAL?
4118 033574 254 00 0 00 033620 JRST MOVS3 ;YES - DO THE MOVE
4119
4120 033575 302 01 0 00 000017 CAIE OP1,017 ;NO - MOVSRJ INSTRUCTION?
4121 033576 254 00 0 00 033620 JRST MOVS3 ;NO - DO THE MOVE
4122
4123 033577 200 02 0 00 000010 MOVE AC2,SLEN ;FIND DIFFERENCE BETWEEN STRING LENGTHS
4124 033600 274 02 0 00 000013 SUB AC2,DLEN
4125
4126 033601 337 00 0 00 000002 SKIPG AC2 ;SKIP IF DESTINATION SHORTER
4127 033602 254 00 0 00 033607 JRST MOVS2 ;SOURCE SHORTER - PUT FILLER IN DESTIN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 85
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0139
4128
4129 033603 134 07 0 00 000011 MOVS1: ILDB AC7,SP ;THROW AWAY A SOURCE BYTE
4130 033604 360 10 0 00 000000 SOJ SLEN,
4131 033605 366 02 0 00 033603 SOJN AC2,MOVS1 ;WHEN DIFFERENCE IS FILLED IN,
4132
4133 033606 254 00 0 00 033620 JRST MOVS3 ;DO REST OF MOVE
4134
4135 033607 200 07 0 00 035565 MOVS2: MOVE AC7,E0+1 ;GET THE FILLER
4136
4137 033610 136 07 0 00 000014 MOVS2A: IDPB AC7,DP ;PUT FILLER IN DESTINATION
4138 033611 360 13 0 00 000000 SOJ DLEN, ;DECREMENT DESTIN LENGTH
4139 033612 346 02 0 00 033610 AOJN AC2,MOVS2A ;WHEN DIFFERENCE IS FILLED IN,
4140
4141 033613 254 00 0 00 033620 JRST MOVS3 ;DO REST OF MOVE
4142
4143 033614 561 02 0 00 777777 MOVSOS: HRROI AC2,-1 ;AC2 IS OFFSET COMPARE WORD
4144 033615 135 05 0 00 040172 LDB AC5,[300600,,DP] ;GET # BITS IN DESTINATION BYTE
4145 033616 242 02 0 05 000000 LSH AC2,(AC5) ;AC2 SHOWS BITS THAT MIGHT BE LOST
4146 033617 571 05 1 00 035564 HRREI AC5,@E0 ;AC13 CONTAINS THE BYTE OFFSET
4147
4148 033620 375 00 0 00 000013 MOVS3: SOSGE DLEN ;ANY DESTINATION LEFT?
4149 033621 254 00 0 00 033665 JRST SETSKP ;NO
4150
4151 033622 375 00 0 00 000010 SOSGE SLEN ;ANY SOURCE LEFT
4152 033623 334 07 0 00 035565 SKIPA AC7,E0+1 ;NO - GET FILLER
4153 033624 134 07 0 00 000011 ILDB AC7,SP ;YES - GET BYTE
4154
4155 033625 335 00 0 00 000010 SKIPGE SLEN ;ANY SOURCE LEFT?
4156 033626 254 00 0 00 033632 JRST MOVS4 ;NO - JUST DEPOSIT FILLER
4157
4158 033627 270 07 0 00 000005 ADD AC7,AC5 ;ADD BYTE OFFSET TO BYTE
4159 033630 612 07 0 00 000002 TDNE AC7,AC2 ;WILL INFORMATION BE LOST?
4160 033631 254 00 0 00 033674 JRST MOVPL ;YES - RETURN PC+1
4161
4162 033632 136 07 0 00 000014 MOVS4: IDPB AC7,DP ;DEPOSIT BYTE IN DESTINATION
4163 033633 254 00 0 00 033620 JRST MOVS3 ;DO THE NEXT ONE!
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 86
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0140
4164
4165 033634 361 10 0 00 033655 MOVSTS: SOJL SLEN,MOVST1 ;ANY SOURCE LEFT?
4166
4167 033635 322 13 0 00 033655 JUMPE DLEN,MOVST1 ;JUMP IF DESTINATION EXHAUSTED
4168
4169 033636 134 07 0 00 000011 ILDB AC7,SP ;GET SOURCE BYTE
4170 033637 241 07 0 00 777777 ROT AC7,-1 ;SIGN BIT SAYS WHETHER ODD OR EVEN
4171 033640 335 00 0 00 000007 SKIPGE AC7
4172 033641 334 07 0 07 035650 SKIPA AC7,E1(AC7) ;GET TRANSLATION TABLE ENTRY RIGHT
4173 033642 204 07 0 07 035650 MOVS AC7,E1(AC7) ;GET TRANSLATION TABLE ENTRY LEFT
4174
4175 033643 602 07 0 00 400000 TRNE AC7,400000 ;IS THE S FLAG SET?
4176 033644 661 06 0 00 200000 TLO AC6,200000 ;YES - TURN ON THE N FLAG
4177
4178 033645 135 04 0 00 040173 LDB AC4,[POINT 2,AC7,20] ;GET THE SIGN CONTROL
4179 XCT [JFCL ;0 - NO ACTION
4180 JRST MOVST3 ;1 - ABORT INSRUCTION
4181 TLZ AC6,100000 ;2 - CLEAR M FLAG
4182 033646 256 00 0 04 040174 TLO AC6,100000](AC4) ;3 - SET M FLAG
4183
4184 033647 602 07 0 00 400000 TRNE AC7,400000 ;NOTE THE START FLAG
4185 033650 665 06 0 00 400000 TLOA AC6,400000 ;START SIGNIFICANCE
4186 033651 325 06 0 00 033634 JUMPGE AC6,MOVSTS ;DON'T STORE - TRY NEXT BYTE
4187
4188 033652 405 07 0 00 077777 ANDI AC7,77777 ;CLEAR LEFT HALF AND FLAGS
4189 033653 136 07 0 00 000014 IDPB AC7,DP ;DEPOSIT BYTE IN DESTINATION
4190 033654 364 13 0 00 033634 SOJA DLEN,MOVSTS ;GET NEXT BYTE
4191
4192 033655 356 00 0 00 000010 MOVST1: AOSN SLEN ;SOURCE GONE?
4193 033656 350 00 0 17 000000 AOS (P) ;YES - SETUP SKIP RETURN
4194
4195 033657 200 07 0 00 035565 MOVE AC7,E0+1 ;GET THE FILLER BYTE
4196 033660 361 13 0 00 033663 MOVST2: SOJL DLEN,MOVST3 ;JUMP WHEN DESTINATION FINISHED
4197 033661 136 07 0 00 000014 IDPB AC7,DP ;DEPOSIT IT IN THE DESTINATION STRING
4198 033662 254 00 0 00 033660 JRST MOVST2 ;DESTINATION LEFT - CONTINUE
4199
4200 033663 137 10 0 00 040200 MOVST3: DPB SLEN,[3300,,SLEN] ;DEPOSIT REMAINING SOURCE LENGTH
4201 033664 254 00 0 00 033675 JRST MOVOUT
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 87
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0141
4202
4203 033665 302 01 0 00 000017 SETSKP: CAIE OP1,017 ;MOVSRJ INSTRUCTION?
4204 033666 254 00 0 00 033671 JRST SKP1 ;NO
4205
4206 033667 350 00 0 17 000000 AOS (P) ;YES - IT ALWAYS SKIPS
4207 033670 254 00 0 00 033675 JRST MOVOUT
4208
4209 033671 337 00 0 00 000010 SKP1: SKIPG SLEN ;IS THERE UNUSED SOURCE BYTES?
4210 033672 350 00 0 17 000000 AOS (P) ;NO - SKIP RETURN
4211 033673 334 00 0 00 000000 SKIPA
4212
4213 033674 271 13 0 00 000001 MOVPL: ADDI DLEN,1 ;ADJUST DESTIN LENGTH
4214
4215 033675 335 00 0 00 000010 MOVOUT: SKIPGE SLEN ;RESET ANY NEG LENGTHS TO 0
4216 033676 402 00 0 00 000010 SETZM SLEN
4217 033677 335 00 0 00 000013 SKIPGE DLEN
4218 033700 402 00 0 00 000013 SETZM DLEN
4219
4220 033701 332 00 0 00 041176 SKIPE TRANFG ;MOVST INSTRUCTION?
4221 033702 434 10 0 00 000006 OR SLEN,AC6 ;YES - OR THE TRANSLATE FLAGS WITH SLEN
4222
4223 033703 200 00 0 00 040171 MOVE AC0,[SLEN,,RESSV] ;SAVE THE FINAL RESULT
4224 033704 251 00 0 00 035773 BLT AC0,RESSV+4
4225
4226 033705 260 17 0 00 035273 GO RSTAC ;RESTORE ACCUMULATORS
4227 033706 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 88
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0142
4228
4229 ; **********************************************************************
4230 ;*CDBSIM -- ROUTINE TO SIMULATE THE CVTDBO AND CVTDBT INSTRUCTIONS
4231 ; **********************************************************************
4232
4233 033707 260 17 0 00 035253 CDBSIM: GO SVAC ;SAVE ACCUMULATORS
4234
4235 033710 135 01 0 00 036220 LDB OP1,E0OP ;COPY OF CURRENT OPCODE
4236
4237 033711 200 00 0 00 040170 MOVE AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK
4238 033712 251 00 0 00 000014 BLT AC0,AC+4
4239
4240 033713 200 06 0 00 000010 MOVE AC6,SLEN
4241 033714 621 06 0 00 777000 TLZ AC6,777000 ;AC6/STRING LENGTH WITHOUT FLAGS
4242 033715 404 10 0 00 040201 AND SLEN,[777000,,0] ;SLEN NOW HAS ONLY THE FLAGS
4243
4244 033716 302 01 0 00 000010 CAIE OP1,010 ;CVTDBO INSTRUCTION?
4245 033717 254 00 0 00 033724 JRST CDBS1 ;NO - TRANSLATE INSTRUCTION
4246
4247 033720 571 05 1 00 035564 HRREI AC5,@E0 ;GET THE BYTE OFFSET
4248 033721 621 14 0 00 400000 TLZ DBL,(1B0) ;CLEAR THE LOW ORDER SIGN BIT
4249 033722 667 10 0 00 400000 TLON SLEN,400000 ;TEST AND SET THE SIGNIFICANCE FLAG
4250 033723 403 13 0 00 000014 SETZB DBH,DBL ;CLEAR HIGH AND LOW ORDER DATA
4251
4252 033724 361 06 0 00 033767 CDBS1: SOJL AC6,CDBDON ;JUMP IF ALL BYTES PROCESSED
4253
4254 033725 134 07 0 00 000011 ILDB AC7,SP ;GET A SOURCE BYTE
4255 033726 302 01 0 00 000011 CAIE OP1,011 ;CVTDBO INSTRUCTION?
4256 033727 254 00 0 00 033746 JRST CDBLEG ;YES - GO SEE IF LEGAL DIGIT
4257
4258 033730 241 07 0 00 777777 ROT AC7,-1 ;CVTDBT - ISOLATE ODD,EVEN BIT
4259 033731 335 00 0 00 000007 SKIPGE AC7
4260 033732 334 07 0 07 035650 SKIPA AC7,E1(AC7) ;GET TRANSLATION TABLE ENTRY RIGHT
4261 033733 204 07 0 07 035650 MOVS AC7,E1(AC7) ;GET TRANSLATION TABLE ENTRY LEFT
4262
4263 033734 602 07 0 00 400000 TRNE AC7,400000 ;IS S FLAG SET IN TABLE ENTRY?
4264 033735 661 10 0 00 200000 TLO SLEN,200000 ;YES - SET THE N FLAG
4265
4266 033736 135 04 0 00 040173 LDB AC4,[POINT 2,AC7,20] ;GET THE SIGN CONTROL
4267 XCT [JFCL ;0 - NO ACTION
4268 JRST CDBOUT ;1 - ABORT INSRUCTION
4269 TLZ SLEN,100000 ;2 - CLEAR M FLAG
4270 033737 256 00 0 04 040202 TLO SLEN,100000](AC4) ;3 - SET M FLAG
4271
4272 033740 606 07 0 00 400000 TRNN AC7,400000 ;NOTE THE SIGNIFICANCE FLAG
4273 033741 325 10 0 00 033724 JUMPGE SLEN,CDBS1 ;DON'T STORE - GET NEXT BYTE
4274
4275 033742 667 10 0 00 400000 TLON SLEN,400000 ;TEST AND SET SIGNIFICANCE
4276 033743 403 14 0 00 000013 SETZB DBL,DBH ;CLEAR HIGH AND LOW BINARY DATA
4277
4278 033744 405 07 0 00 000017 ANDI AC7,17 ;DISCARD THE HIGH BITS OF TRANS TABLE ENTRY
4279 033745 334 00 0 00 000000 SKIPA
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 89
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0143
4280
4281 033746 270 07 0 00 000005 CDBLEG: ADD AC7,AC5 ;ADD OFFSET IF CVTDBO INSTRUCTION
4282 033747 321 07 0 00 033772 JUMPL AC7,CDBOUT ;TERMINATE INSTR IF BYTE NEGATIVE
4283
4284 033750 301 07 0 00 000012 CAIL AC7,^D10 ;TERMINATE INSTR IF BYTE > DECIMAL 9
4285 033751 254 00 0 00 033772 JRST CDBOUT
4286
4287 033752 242 14 0 00 000001 LSH DBL,1
4288 033753 246 13 0 00 000001 LSHC DBH,1 ;MULTIPLY BY 2
4289 033754 242 14 0 00 777777 LSH DBL,-1
4290 033755 124 13 0 00 036221 DMOVEM DBH,TEMP ;SAVE THE DOUBLE WORD RESULT
4291
4292 033756 242 14 0 00 000001 LSH DBL,1
4293 033757 246 13 0 00 000002 LSHC DBH,2 ;MULTIPLY BY 4
4294 033760 242 14 0 00 777777 LSH DBL,-1
4295
4296 033761 270 07 0 00 036222 ADD AC7,TEMP+1 ;ADD THE PARTIAL PRODUCT
4297 033762 270 14 0 00 000007 ADD DBL,AC7
4298 033763 270 13 0 00 036221 ADD DBH,TEMP
4299
4300 033764 623 14 0 00 400000 TLZE DBL,400000 ;IS THERE A CARRY OUT OF LOW WORD
4301 033765 340 13 0 00 000000 AOJ DBH, ;YES - INCREMENT THE HIGH WORD
4302
4303 033766 254 00 0 00 033724 JRST CDBS1 ;GET THE NEXT BYTE
4304
4305 033767 603 10 0 00 100000 CDBDON: TLNE SLEN,100000 ;IS THE M FLAG SET?
4306 033770 121 13 0 00 000013 DMOVN DBH,DBH ;YES - NEGATE THE DOUBLE WORD RESULT
4307 033771 354 00 0 17 000000 AOSA (P) ;PROVIDE FOR A SKIP RETURN
4308
4309 033772 434 10 0 00 000006 CDBOUT: IOR SLEN,AC6
4310 033773 621 14 0 00 400000 TLZ DBL,(1B0) ;CLEAR COPY OF SIGN BIT
4311
4312 033774 603 13 0 00 400000 TLNE DBH,(1B0) ;TEST THE SIGN OF THE RESULT
4313 033775 661 14 0 00 400000 TLO DBL,(1B0) ;IT'S NEGATIVE - SET COPY OF SIGN TO 1
4314
4315 033776 302 01 0 00 000011 CAIE OP1,011 ;OFFSET INSTRUCTION?
4316 033777 254 00 0 00 034002 JRST CDBRET ;YES - RETURN
4317
4318 034000 607 10 0 00 400000 TLNN SLEN,400000 ;CVTDBT - IS S FLAG SET?
4319 034001 403 14 0 00 000013 SETZB DBL,DBH ;NO - SET THE ANSWER TO ZERO
4320
4321 034002 200 00 0 00 040171 CDBRET: MOVE AC0,[SLEN,,RESSV] ;STORE THE RESULTS
4322
4323 034003 251 00 0 00 035773 BLT AC0,RESSV+4
4324 034004 260 17 0 00 035273 GO RSTAC ;RESTORE ACCUMULATORS
4325
4326 034005 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 90
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0144
4327
4328 ; **********************************************************************
4329 ;*CBDSIM -- ROUTINE TO SIMULATE THE CVTBDX INSTRUCTIONS
4330 ; **********************************************************************
4331
4332 034006 260 17 0 00 035253 CBDSIM: GO SVAC ;SAVE ACCUMULATORS
4333
4334 034007 402 00 0 00 041164 SETZM OVERR# ;OVERFLOW ERROR FLAG
4335
4336 034010 135 01 0 00 036220 LDB OP1,E0OP ;COPY OF CURRENT OPCODE
4337
4338 034011 200 00 0 00 040170 MOVE AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK
4339 034012 251 00 0 00 000014 BLT AC0,AC+4
4340
4341 034013 336 00 0 00 041162 SKIPN OFFSET ;DON'T OFFSET STRING IF PFTST
4342 034014 541 14 0 00 036120 HRRI DP,SIMDES ;PUT SIMULATOR RESULT ELSEWHERE
4343
4344 034015 571 00 1 00 035564 HRREI AC0,@E0 ;GET BYTE OFFSET
4345 034016 202 00 0 00 041163 MOVEM OFS#
4346
4347 034017 135 02 0 00 040206 LDB AC2,[POINT 9,DLEN,35] ;AC2 HAS DESTIN STRING LENGTH
4348 034020 621 11 0 00 400000 TLZ BDL,(1B0) ;CLEAR THE LOW ORDER SIGN BIT
4349 034021 306 10 0 00 000000 CAIN BDH,0 ;IS THE NUMBER = 0?
4350 034022 302 11 0 00 000000 CAIE BDL,0
4351 034023 661 13 0 00 200000 TLO DLEN,200000 ;NO - SET THE N (NON-ZERO) FLAG
4352
4353 034024 325 10 0 00 034031 JUMPGE BDH,CBDS1 ;JUMP IF THE NUMBER IS POSITIVE
4354
4355 034025 121 10 0 00 000010 DMOVN BDH,BDH ;MAKE THE NUMBER POSITIVE
4356 034026 661 13 0 00 100000 TLO DLEN,100000 ;BUT REMEMBER THAT IT WAS NEGATIVE
4357
4358 034027 603 10 0 00 400000 TLNE BDH,(1B0) ;NEGATIVE?
4359 034030 661 11 0 00 400000 TLO BDL,(1B0) ;YES - SET THE LOW ORDER SIGN
4360
4361 034031 322 02 0 00 034130 CBDS1: JUMPE AC2,CBDOVF ;ZERO LENGTH MEANS OVERFLOW
4362
4363 034032 301 10 0 00 000000 CAIL BDH,0 ;2**70?
4364 034033 254 00 0 00 034055 JRST CBDOST ;NO
4365
4366 034034 305 02 0 00 000026 CAIGE AC2,^D22 ;YES - IS THE LENGTH LONG ENOUGH?
4367 034035 254 00 0 00 034130 JRST CBDOVF ;NO
4368
4369 034036 607 13 0 00 400000 TLNN DLEN,400000 ;SIGNIFICANCE FLAG SET?
4370 034037 254 00 0 00 034045 JRST CBDS3 ;NO - NO STORAGE OF LEADING 0'S
4371
4372 034040 200 03 0 00 035565 MOVE AC3,E0+1 ;YES - GET THE FILLER
4373 034041 306 02 0 00 000026 CBDS2: CAIN AC2,^D22
4374 034042 254 00 0 00 034045 JRST CBDS3
4375
4376 034043 136 03 0 00 000014 IDPB AC3,DP ;STORE THE FILLER IN DESTINATION STRING
4377 034044 364 02 0 00 034041 SOJA AC2,CBDS2 ;GO BACK FOR MORE
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 91
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0145
4378
4379 034045 201 02 0 00 000025 CBDS3: MOVEI AC2,^D21
4380 034046 201 03 0 00 000001 MOVEI AC3,1
4381
4382 034047 306 01 0 00 000012 CAIN OP1,012 ;CVTBDO INSTRUCTION?
4383 034050 270 03 0 00 041163 ADD AC3,OFS ;ADD OFFSET TO THE NUMBER
4384
4385 034051 306 01 0 00 000013 CAIN OP1,013 ;CVTBDT INSTRUCTION?
4386 034052 550 03 0 03 035650 HRRZ AC3,E1(AC3) ;GET REPRESENTATION OF "1"
4387
4388 034053 136 03 0 00 000014 IDPB AC3,DP ;STORE FIRST DIGIT OF ANSWER
4389 034054 120 10 0 00 040207 DMOVE BDH,[EXP 47121545107,104130000000]
4390
4391 034055 120 03 0 00 000010 CBDOST: DMOVE AC3,BDH
4392 034056 260 17 0 00 034070 GO DECPNT ;OUTPUT DIGITS
4393
4394 034057 332 00 0 00 041164 SKIPE OVERR ;IS THERE AN OVERFLOW ERROR?
4395 034060 254 00 0 00 034130 JRST CBDOVF ;YES
4396
4397 034061 403 10 0 00 000011 CBDEX: SETZB BDH,BDL ;RETURN WITH DATA 0
4398 034062 404 13 0 00 040201 AND DLEN,[777000,,] ;LEAVE LENGTH 0
4399
4400 034063 200 00 0 00 040171 MOVE AC0,[AC,,RESSV]
4401 034064 251 00 0 00 035773 BLT AC0,RESSV+4
4402
4403 034065 260 17 0 00 035273 GO RSTAC
4404 034066 350 00 0 17 000000 AOS (P)
4405 034067 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 92
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0146
4406
4407 034070 260 17 0 00 034100 DECPNT: GO DECPN3 ;STORE DIGITS
4408
4409 034071 607 13 0 00 100000 TLNN DLEN,100000 ;MINUS FLAG SET?
4410 034072 254 00 0 00 034077 JRST DECPNR
4411
4412 034073 306 01 0 00 000012 CAIN OP1,012
4413 034074 254 00 0 00 034077 JRST DECPNR
4414
4415 034075 514 02 0 06 035650 HRLZ AC2,E1(AC6)
4416 034076 137 02 0 00 000014 DPB AC2,DP
4417
4418 034077 263 17 0 00 000000 DECPNR: RTN
4419
4420 034100 200 05 0 00 000004 DECPN3: MOVE AC5,AC4 ;SAVE LOW ORDER DIVIDEND
4421
4422 034101 231 03 0 00 000012 IDIVI AC3,12 ;DIVIDE HIGH PART BY 10
4423 034102 235 04 0 00 000012 DIVI AC4,12 ;AND LOW PART
4424
4425 034103 365 02 0 00 034106 SOJGE AC2,DECP4 ;IF LENGTH GOES NEG -- OVERFLOW
4426
4427 034104 476 00 0 00 041164 SETOM OVERR ;INDICATE OVERFLOW ERROR
4428 034105 254 00 0 00 034127 JRST DECPN2 ;INITIATE A RETURN
4429
4430 034106 261 17 0 00 000005 DECP4: PUSH P,AC5
4431 034107 326 04 0 00 034117 JUMPN AC4,DECPN1
4432 034110 326 03 0 00 034117 JUMPN AC3,DECPN1
4433 034111 325 13 0 00 034116 JUMPGE DLEN,DECLDN ;SFL=0 MEANS DON'T STORE LEADING 0'S
4434 034112 200 05 0 00 035565 MOVE AC5,E0+1
4435
4436 034113 322 02 0 00 034116 DECFIL: JUMPE AC2,DECLDN ;NO MORE ROOM
4437 034114 136 05 0 00 000014 IDPB AC5,DP ;STORE A LEADING 0
4438 034115 364 02 0 00 034113 SOJA AC2,DECFIL ;GO BACK FOR MORE
4439
4440 034116 304 00 0 00 000000 DECLDN: CAIA ;RETRIEVE DIGITS IN CORRECT ORDER
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 93
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0147
4441
4442 034117 260 17 0 00 034100 DECPN1: GO DECPN3 ;GET NEXT DIGIT
4443 034120 262 17 0 00 000005 POP P,AC5
4444 034121 200 06 0 00 000005 MOVE AC6,AC5 ;SAVE DIGIT
4445
4446 034122 306 01 0 00 000012 CAIN OP1,012 ;TRANSLATE?
4447 034123 270 05 0 00 041163 ADD AC5,OFS ;NO -OFFSET
4448
4449 034124 306 01 0 00 000013 CAIN OP1,013
4450 034125 550 05 0 05 035650 HRRZ AC5,E1(AC5)
4451
4452 034126 136 05 0 00 000014 IDPB AC5,DP ;STORE
4453 034127 263 17 0 00 000000 DECPN2: RTN
4454
4455 034130 200 00 0 00 040211 CBDOVF: MOVE AC0,[ORIGSV,,RESSV] ;RETURN WITH ORIGINAL AC'S INTACT
4456 034131 251 00 0 00 035773 BLT AC0,RESSV+4
4457
4458 034132 541 00 0 00 036120 HRRI AC0,SIMDES
4459 034133 542 00 0 00 035773 HRRM AC0,RESSV+4
4460
4461 034134 402 00 0 00 036120 SETZM SIMDES
4462 034135 200 00 0 00 040212 MOVE AC0,[SIMDES,,SIMDES+1]
4463 034136 251 00 0 00 036156 BLT AC0,SIMDES+^D30
4464
4465 034137 260 17 0 00 035273 GO RSTAC
4466 034140 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 94
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0148
4467
4468 ; **********************************************************************
4469 ;*EDTSIM -- ROUTINE TO SIMULATE THE EDIT INSTRUCTION
4470 ; **********************************************************************
4471
4472 034141 260 17 0 00 035253 EDTSIM: GO SVAC ;SAVE ACCUMULATORS
4473
4474 034142 200 00 0 00 040170 MOVE AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK
4475 034143 251 00 0 00 000014 BLT AC0,AC+4
4476
4477 034144 336 00 0 00 041162 SKIPN OFFSET# ;OFFSET THE DESTINATION STRING?
4478 034145 541 14 0 00 036120 HRRI DP,SIMDES ;MOVE DESTINATION STRING ELSEWHERE
4479
4480 034146 135 07 0 00 036453 EDTS2: LDB AC7,PATBN ;GET PB# FROM AC
4481 034147 135 03 0 07 036455 LDB AC3,PATBL(AC7) ;GET THE PATTERN BYTE
4482 034150 200 02 0 00 000003 MOVE AC2,AC3 ;MAKE A COPY OF IT
4483 034151 242 02 0 00 777772 LSH AC2,-6 ;GET READY TO DECODE THE HIGH 3 BITS
4484 034152 254 00 1 02 036435 JRST @PPTAB(AC2) ;JUMP TO THE SPECIFIED PP CODE
4485
4486 ; **************************************************
4487 ;EOPER -- PP IS 000-005. DECODE AND JUMP AGAIN
4488 ; **************************************************
4489
4490 034153 303 03 0 00 000005 EOPER: CAILE AC3,5 ;LEGAL OPERATOR?
4491 034154 254 00 0 00 034162 JRST ENOP ;NO
4492 034155 254 00 1 03 036445 JRST @PPTAB1(AC3) ;JUMP TO SPECIFIED PP CODE
4493
4494 ; **************************************************
4495 ;EMESSG -- PP IS 1XX (MESSAG)
4496 ; **************************************************
4497
4498 034156 325 10 0 00 034220 EMESSG: JUMPGE PADDR,ESEL ;USE FILLER IF SIGNIFICANCE NOT SET
4499 034157 200 03 0 03 035465 MOVE AC3,E0-77(AC3) ;SIGNIFICANCE SET - GET MSG CHAR.
4500 034160 136 03 0 00 000014 IDPB AC3,DP ;DEPOSIT IT IN DESTINATION STRING
4501 034161 254 00 0 00 034162 JRST ENOP
4502
4503 ; **************************************************
4504 ;ENOP -- UPDATES THE PATTERN ADDRESS
4505 ; **************************************************
4506
4507 034162 260 17 0 00 034237 ENOP: GO INCPBN ;ROUTINE TO UPDATE PATTERN ADDRESS
4508 034163 254 00 0 00 034146 JRST EDTS2 ;GO GET THE NEXT BYTE
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 95
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0149
4509
4510 ; **************************************************
4511 ;ESKPM -- PP IS 5XX (SKPM)
4512 ; **************************************************
4513
4514 034164 607 10 0 00 100000 ESKPM: TLNN PADDR,100000 ;IS THE M FLAG SET?
4515 034165 254 00 0 00 034162 JRST ENOP ;NO - DON'T SKIP LENGTH
4516 034166 254 00 0 00 034172 JRST ESKPA ;YES - DO THE SKIP
4517
4518 ; **************************************************
4519 ;ESKPN -- PP IS 6XX (SKPN)
4520 ; **************************************************
4521
4522 034167 607 10 0 00 200000 ESKPN: TLNN PADDR,200000 ;IS THE N FLAG SET?
4523 034170 254 00 0 00 034162 JRST ENOP ;NO - DON'T SKIP LENGTH
4524 034171 254 00 0 00 034172 JRST ESKPA ;YES - DO THE SKIP
4525
4526 ; **************************************************
4527 ;ESKPA -- PP IS 7XX (SKPA)
4528 ; **************************************************
4529
4530 034172 405 03 0 00 000077 ESKPA: ANDI AC3,77
4531 034173 271 07 0 03 000001 ADDI AC7,1(AC3) ;ADD THE SKIP DISTANCE
4532 034174 260 17 0 00 034237 GO INCPBN
4533 034175 254 00 0 00 034146 JRST EDTS2
4534
4535 ; **************************************************
4536 ;ESTOP -- PP IS 000 (STOP)
4537 ; **************************************************
4538
4539 034176 350 00 0 17 000000 ESTOP: AOS (P) ;SETUP FOR A SKIP RETURN
4540
4541 034177 260 17 0 00 034237 EABORT: GO INCPBN ;PUSH THE PATTERN BYTE NO. PAST THE STOP
4542
4543 034200 200 00 0 00 040171 MOVE AC0,[PADDR,,RESSV] ;SAVE THE RESULT AC'S
4544 034201 251 00 0 00 035773 BLT AC0,RESSV+4
4545
4546 034202 260 17 0 00 035273 GO RSTAC ;RESTORE ACCUMULATORS
4547 034203 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 96
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0150
4548
4549 ; **************************************************
4550 ;ESELCT -- PP IS 011 (SELECT)
4551 ; **************************************************
4552
4553 034204 134 03 0 00 000011 ESELCT: ILDB AC3,SP ;GET SOURCE BYTE
4554 034205 241 03 0 00 777777 ROT AC3,-1 ;MOVE ODD,EVEN BIT TO BIT 0
4555 034206 335 00 0 00 000003 SKIPGE AC3
4556 034207 334 03 0 03 035650 SKIPA AC3,E1(AC3) ;LOAD TRANS TABLE ENTRY, RIGHT HALF
4557 034210 204 03 0 03 035650 MOVS AC3,E1(AC3) ;LOAD TRANS TABLE ENTRY, LEFT HALF
4558
4559 034211 602 03 0 00 400000 TRNE AC3,400000 ;IS THE SIGNIFICANCE FLAG SET?
4560 034212 661 10 0 00 200000 TLO PADDR,200000 ;YES - SET THE N FLAG
4561
4562 034213 135 02 0 00 040213 LDB AC2,[POINT 2,AC3,20] ;GET THE CONTROL BITS
4563 XCT [JFCL ;0 - NO ACTION
4564 JRST EABORT ;1 - ABORT INSRUCTION
4565 TLZ PADDR,100000 ;2 - CLEAR M FLAG
4566 034214 256 00 0 02 040214 TLO PADDR,100000](AC2) ;3 - SET M FLAG
4567
4568 034215 321 10 0 00 034225 JUMPL PADDR,ESEL2 ;STORE THE BYTE
4569
4570 034216 602 03 0 00 400000 TRNE AC3,400000 ;IS THE SIGNIFICANCE FLAG SET?
4571 034217 254 00 0 00 034223 JRST ESEL1 ;YES - STORE THE BYTE
4572
4573 034220 200 03 0 00 035565 ESEL: MOVE AC3,E0+1 ;NO - GET THE FILLER CHARACTER
4574 034221 322 03 0 00 034162 JUMPE AC3,ENOP ;DON'T STORE IT IF = 0
4575 034222 254 00 0 00 034225 JRST ESEL2
4576
4577 034223 661 10 0 00 400000 ESEL1: TLO PADDR,400000 ;SET THE SIGNIFICANCE FLAG
4578 034224 260 17 0 00 034246 GO STFLOT ;MARK AND TRY FLOAT
4579
4580 034225 405 03 0 00 077777 ESEL2: ANDI AC3,77777 ;MASK OFF THE CONTROL BITS
4581 034226 136 03 0 00 000014 IDPB AC3,DP ;DEPOSIT THE BYTE IN DESTIN STRING
4582 034227 254 00 0 00 034162 JRST ENOP ;GO FOR NEXT BYTE
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 97
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0151
4583
4584 ; **************************************************
4585 ;ESIGST -- PP IS 002 (SIGST)
4586 ; **************************************************
4587
4588 034230 667 10 0 00 400000 ESIGST: TLON PADDR,400000 ;TEST AND SET SIGNIFICANCE FLAG
4589 034231 260 17 0 00 034246 GO STFLOT ;STORE FLOAT CHARACTER
4590 034232 254 00 0 00 034162 JRST ENOP
4591
4592 ; **************************************************
4593 ;EFLDSP -- PP IS 003 (FLDSEP)
4594 ; **************************************************
4595
4596 034233 621 10 0 00 700000 EFLDSP: TLZ PADDR,700000 ;CLEAR ALL FLAGS
4597 034234 254 00 0 00 034162 JRST ENOP
4598
4599 ; **************************************************
4600 ;EEXCHD -- -- IS 004 (EXCHMD)
4601 ; **************************************************
4602
4603 034235 250 14 0 13 000000 EEXCHD: EXCH DP,(MA) ;PUT THE MARK POINTER INTO DP1
4604 034236 254 00 0 00 034162 JRST ENOP
4605
4606 ; **************************************************
4607 ;INCPBN -- EDIT SUPPORT ROUTINE TO UPDATE THE PATTERN ADDRESS
4608 ; **************************************************
4609
4610 034237 271 07 0 00 000001 INCPBN: ADDI AC7,1 ;INCREMENT PB#
4611 034240 200 03 0 00 000007 MOVE AC3,AC7 ;MAKE A COPY OF IT
4612 034241 242 03 0 00 777776 LSH AC3,-2 ;GET THE WORD ADDRESS
4613 034242 271 10 0 03 000000 ADDI PADDR,(AC3) ;UPDATE SP
4614 034243 405 07 0 00 000003 ANDI AC7,3
4615 034244 137 07 0 00 036453 DPB AC7,PATBN
4616 034245 263 17 0 00 000000 RTN
4617
4618 ; **************************************************
4619 ;STFLOT -- EDIT SUPPORT ROUTINE THAT STORES THE FLOAT CHAR IN THE
4620 ; DESTINATION STRING
4621 ; **************************************************
4622
4623 034246 202 14 0 13 000000 STFLOT: MOVEM DP,(MA) ;MA <== DP
4624 034247 200 02 0 00 035566 MOVE AC2,E0+2 ;GET THE FLOAT CHARACTER
4625
4626 034250 332 00 0 00 000002 SKIPE AC2 ;DON'T STORE THE FLOAT CHARACTER IF ZERO
4627 034251 136 02 0 00 000014 IDPB AC2,DP ;STORE IT
4628 034252 263 17 0 00 000000 RTN
4629
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 98
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0152
4630 SUBTTL INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES
4631
4632 ; **********************************************************************
4633 ;*INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES
4634 ;* -- GENERAL INFORMATION
4635 ;*
4636 ;* EACH OF THE FIVE ERROR COMPARATOR AND COMPANION ERROR REPORTER
4637 ;* ROUTINES IS RESPONSIBLE FOR DETECTING ERROR AND PRINTING THE
4638 ;* ERROR INFORMATION SPECIFIC TO THE INSTRUCTION UNDER TEST.
4639 ;*
4640 ;* ALL ROUTINES ARE ENTERED WITH THE SAME PARAMETERS. THESE ARE:
4641 ;* 1. ORIGINAL AC BLOCK IN ORIGSV-ORIGSV+4
4642 ;* 2. ACTUAL RESULT BLOCK IN AC'S 10-14
4643 ;* 3. SIMULATED RESULT BLOCK IN RESSV-RESSV+4
4644 ;* 4. INSTRUCTION SKIP INFORMATION IN SKPWD1 AND SKPWD2
4645 ;* 5. SIMULATED DESTIN STRING IN SIMDES
4646 ;* 6. ACTUAL DESTIN STRING IN DESTIN
4647 ;*
4648 ;* GENERAL HELPER ROUTINES UTILIZED BY THE ERROR REPORTERS:
4649 ;*
4650 ;* 1. PNTINS -- PRINTS THE CURRENT INSTRUCTION NAME
4651 ;* NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS
4652 ;* 2. PNTCAS -- PRINTS THE CURRENT CASE NUMBER
4653 ;* ENTRY WITH CASE TABLE ADDRESS IN AC1, RTN+1 ALWAYS
4654 ;* 3. PNTSTR -- PRINTS STRING OF BYTES
4655 ;* ENTRY WITH STRING LENGTH IN AC1, STRING BYTE POINTER
4656 ;* IN AC2, RTN+1 ALWAYS
4657 ;* 4. PNTACB -- PRINTS ORIGINAL,SIMULATED, ACTUAL AC BLOCKS
4658 ;* NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS
4659 ;* 5. PNTSKP -- PRINTS INCORRECT SKIP MESSAGE
4660 ;* NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS
4661 ;*
4662 ;* CMPCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
4663 ;* OF THE EXTEND COMPARE INSTRUCION.
4664 ;* MOVCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
4665 ;* OF THE EXTEND MOVXX INSTRUCTIONS.
4666 ;* CDBCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
4667 ;* OF THE CVTDBX INSTRUCTIONS.
4668 ;* CBDCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
4669 ;* OF THE CVTBDX INSTRUCTIONS.
4670 ;* EDTCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
4671 ;* OF THE EDIT INSTRUCTION AND PRINTS ERROR INFORMATION.
4672 ; **********************************************************************
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 99
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0153
4673
4674 ; **********************************************************************
4675 ;*CMPCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
4676 ;* OF THE EXTEND COMPARE INSTRUCION.
4677 ; **********************************************************************
4678
4679 034253 200 00 0 00 041173 CMPCOM: MOVE AC0,SKPWD1 ;SEE IF INSTR RETURNED CORRECTLY
4680 034254 316 00 0 00 041174 CAMN AC0,SKPWD2
4681 034255 254 00 0 00 034260 JRST CMPC1 ;IT DID - CONTINUE
4682
4683 034256 476 00 0 00 041160 SETOM INCSKP ;SET THE INCORRECT RETURN FLAG
4684 034257 254 00 0 00 034273 JRST CMPFAIL ;AND GO PRINT THE ERROR INFORMATION
4685
4686 034260 312 10 0 00 035767 CMPC1: CAME SLEN,RESSV ;CHECK THE CONTENTS OF THE SIM AC BLOCK
4687 034261 254 00 0 00 034273 JRST CMPFAIL ;AGAINST THE REAL AC BLOCK (AC-AC+4)
4688
4689 034262 312 11 0 00 035770 CAME SP,RESSV+1
4690 034263 254 00 0 00 034273 JRST CMPFAIL
4691
4692 034264 312 12 0 00 035771 CAME AC12,RESSV+2
4693 034265 254 00 0 00 034273 JRST CMPFAIL
4694
4695 034266 312 13 0 00 035772 CAME DLEN,RESSV+3
4696 034267 254 00 0 00 034273 JRST CMPFAIL
4697
4698 034270 312 14 0 00 035773 CAME DP,RESSV+4
4699 034271 254 00 0 00 034273 JRST CMPFAIL
4700
4701 034272 350 00 0 17 000000 AOS (P) ;OK, SKIP RETURN
4702 034273 263 17 0 00 000000 CMPFAIL:RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 100
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0154
4703
4704 034274 261 17 0 00 000000 CMPPNT: PUT AC0
4705 034275 261 17 0 00 000001 PUT AC1
4706 034276 261 17 0 00 000002 PUT AC2
4707
4708 034277 260 17 0 00 035363 GO PNTINS ;PRINT THE CURRENT INSTRUCTION
4709
4710 034300 201 01 0 00 037006 MOVEI AC1,CMPCAS ;AC1 = CASE TABLE ADDRESS
4711 034301 260 17 0 00 035424 GO PNTCAS ;PRINT THE CURRENT CASE
4712
4713 034302 037 02 0 00 040220 PMSG <^SOURCE STRING: >
4714 034303 200 01 0 00 035762 MOVE AC1,ORIGSV ;COPY OF SOURCE STRING LENGTH
4715 034304 200 02 0 00 035763 MOVE AC2,ORIGSV+1 ;COPY OF SOURCE BYTE POINTER
4716 034305 260 17 0 00 035401 GO PNTSTR ;PRINT SOURCE STRING
4717
4718 034306 037 02 0 00 040223 PMSG <^DESTIN STRING: >
4719 034307 200 01 0 00 035765 MOVE AC1,ORIGSV+3 ;COPY OF DESTINATION STRING LENGTH
4720 034310 200 02 0 00 035766 MOVE AC2,ORIGSV+4 ;COPY OF DESTINATION BYTE POINTER
4721 034311 260 17 0 00 035401 GO PNTSTR ;PRINT DESTINATION STRING
4722
4723 034312 037 02 0 00 040226 PMSG <^E0+1: >
4724 034313 200 00 0 00 035565 MOVE E0+1
4725 034314 037 16 0 00 000003 PNTOCS ;PRINT E0+1
4726
4727 034315 037 02 0 00 040230 PMSG <^E0+2: >
4728 034316 200 00 0 00 035566 MOVE E0+2
4729 034317 037 16 0 00 000003 PNTOCS ;PRINT E0+2
4730 034320 037 00 0 00 030242 PCRL
4731
4732 034321 260 17 0 00 035342 GO PNTACB ;PRINT THE AC BLOCKS
4733
4734 034322 332 00 0 00 041160 SKIPE INCSKP ;DID INSTR RETURN OK?
4735 034323 260 17 0 00 035370 GO PNTSKP ;NO - PRINT AN ERROR MESSAGE
4736 034324 402 00 0 00 041160 SETZM INCSKP ;RESET INCORRECT RETURN FLAG
4737
4738 034325 262 17 0 00 000002 CMPRET: GET AC2
4739 034326 262 17 0 00 000001 GET AC1
4740 034327 262 17 0 00 000000 GET AC0
4741 034330 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 101
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0155
4742
4743 ; **********************************************************************
4744 ;*MOVCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
4745 ;* OF THE EXTEND MOVXX INSTRUCTIONS.
4746 ; **********************************************************************
4747
4748 034331 261 17 0 00 000000 MOVCOM: PUT AC0
4749
4750 034332 200 00 0 00 041173 MOVE AC0,SKPWD1 ;SEE IF INSTRUCTION RETURNED CORRECTLY
4751 034333 316 00 0 00 041174 CAMN AC0,SKPWD2
4752 034334 254 00 0 00 034337 JRST MOVC1 ;IT DID - GO CHECK THE ACS
4753
4754 034335 476 00 0 00 041160 SETOM INCSKP ;IT DIDN'T - SET THE INCORRECT SKIP FLAG
4755 034336 254 00 0 00 034356 JRST MOVFAIL
4756
4757 034337 312 10 0 00 035767 MOVC1: CAME SLEN,RESSV ;CHECK THE FINAL ACS WITH THE SIMULATED RESULT
4758 034340 254 00 0 00 034356 JRST MOVFAIL
4759
4760 034341 312 11 0 00 035770 CAME SP,RESSV+1
4761 034342 254 00 0 00 034356 JRST MOVFAIL
4762
4763 034343 312 12 0 00 035771 CAME AC12,RESSV+2
4764 034344 254 00 0 00 034356 JRST MOVFAIL
4765
4766 034345 312 13 0 00 035772 CAME DLEN,RESSV+3
4767 034346 254 00 0 00 034356 JRST MOVFAIL
4768
4769 034347 260 17 0 00 035327 GO COMSTR ;COMPARE SIMULATED AND ACTUAL STRINGS
4770 034350 254 00 0 00 034356 JRST MOVFAIL ;ERROR RETURN
4771
4772 034351 200 00 0 00 000014 MOVE AC0,DP
4773 034352 270 00 0 00 040232 ADD AC0,[SIMDES-DESTIN] ;OFFSET DP BY DIFF IN STRING LOCS
4774 034353 312 00 0 00 035773 CAME AC0,RESSV+4
4775 034354 254 00 0 00 034356 JRST MOVFAIL
4776
4777 034355 350 00 0 17 777777 AOS -1(P)
4778 034356 262 17 0 00 000000 MOVFAIL:GET AC0
4779 034357 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 102
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0156
4780
4781 034360 261 17 0 00 000000 MOVPNT: PUT AC0
4782 034361 261 17 0 00 000001 PUT AC1
4783 034362 261 17 0 00 000002 PUT AC2
4784
4785 034363 260 17 0 00 035363 GO PNTINS ;PRINT THE CURRENT INSTRUCTION
4786
4787 034364 201 01 0 00 037056 MOVEI AC1,MOVCAS ;AC1 = CASE TABLE ADDRESS
4788 034365 260 17 0 00 035424 GO PNTCAS ;PRINT THE CURRENT CASE #
4789
4790 034366 037 02 0 00 040233 PMSG <^SOURCE STRING:>
4791 034367 402 00 0 00 000001 SETZM AC1
4792 034370 135 01 0 00 040236 LDB AC1,[POINT 9,ORIGSV,35] ;COPY OF SOURCE STRING LENGTH
4793 034371 200 02 0 00 035763 MOVE AC2,ORIGSV+1 ;COPY OF SOURCE BYTE POINTER
4794 034372 260 17 0 00 035401 GO PNTSTR
4795
4796 034373 037 02 0 00 040237 PMSG <^CORRECT DESTINATION STRING:>
4797 034374 200 01 0 00 035765 MOVE AC1,ORIGSV+3 ;COPY OF DESTINATION STRING LENGTH
4798 034375 274 01 0 00 035772 SUB AC1,RESSV+3 ;CALCULATE HOW MUCH WAS MOVED
4799 034376 200 02 0 00 035766 MOVE AC2,ORIGSV+4 ;COPY OF DESTINATION STRING BYTE POINTER
4800 034377 541 02 0 00 036120 HRRI AC2,SIMDES ;MAKE LOCATION = SIMULATED DEST STRING
4801 034400 260 17 0 00 035401 GO PNTSTR
4802
4803 034401 037 02 0 00 040244 PMSG <^ACTUAL DESTINATION STRING:>
4804 034402 200 01 0 00 035765 MOVE AC1,ORIGSV+3 ;COPY OF DESTINATION STRING LENGTH
4805 034403 274 01 0 00 000013 SUB AC1,AC13 ;CALULATE HOW MUCH WAS MOVED
4806 034404 200 02 0 00 035766 MOVE AC2,ORIGSV+4 ;COPY OF DESTINATION STRING BYTE POINTER
4807 034405 260 17 0 00 035401 GO PNTSTR
4808
4809 034406 037 02 0 00 040226 PMSG <^E0+1: >
4810 034407 200 00 0 00 035565 MOVE E0+1
4811 034410 037 16 0 00 000003 PNTOCS ;PRINT E0+1
4812 034411 037 00 0 00 030242 PCRL
4813
4814 034412 200 00 0 00 040251 MOVE AC0,[DESTIN-SIMDES]
4815 034413 272 00 0 00 035773 ADDM AC0,RESSV+4
4816 034414 260 17 0 00 035342 GO PNTACB ;PRINT THE AC BLOCKS
4817
4818 034415 332 00 0 00 041176 SKIPE TRANFG
4819 034416 260 17 0 00 035445 GO PNTRAN ;IF MOVST PRINT TRANSLATION TABLE
4820
4821 034417 332 00 0 00 041160 SKIPE INCSKP ;INCORRECT RETURN TAKEN?
4822 034420 260 17 0 00 035370 GO PNTSKP ;YES - PRINT SKIP MESSAGE
4823 034421 402 00 0 00 041160 SETZM INCSKP ;RESET INCORRECT SKIP WORD
4824
4825 034422 262 17 0 00 000002 MOVRET: GET AC2
4826 034423 262 17 0 00 000001 GET AC1
4827 034424 262 17 0 00 000000 GET AC0
4828 034425 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 103
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0157
4829
4830 ; **********************************************************************
4831 ;*CDBCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS
4832 ;* OF THE CVTDBX INSTRUCTIONS.
4833 ; **********************************************************************
4834
4835 034426 200 00 0 00 041173 CDBCOM: MOVE AC0,SKPWD1 ;SEE IF INSTRUCTION RETURNED CORRECTLY
4836 034427 316 00 0 00 041174 CAMN AC0,SKPWD2
4837 034430 254 00 0 00 034433 JRST CDBC1 ;IT DID - GO CHECK THE ACS
4838
4839 034431 476 00 0 00 041160 SETOM INCSKP ;IT DIDN'T - SET THE INCORRECT SKIP FLAG
4840 034432 254 00 0 00 034450 JRST CDBFAIL
4841
4842 034433 312 10 0 00 035767 CDBC1: CAME SLEN,RESSV ;CHECK THE FINAL ACS WITH THE SIMULATED RESULT
4843 034434 254 00 0 00 034450 JRST CDBFAIL ;NOT EQUAL - JUMP TO THE ERROR PRINTER
4844
4845 034435 312 11 0 00 035770 CAME SP,RESSV+1
4846 034436 254 00 0 00 034450 JRST CDBFAIL
4847
4848 034437 312 12 0 00 035771 CAME AC12,RESSV+2
4849 034440 254 00 0 00 034450 JRST CDBFAIL
4850
4851 034441 312 13 0 00 035772 CAME DBH,RESSV+3
4852 034442 254 00 0 00 034450 JRST CDBFAIL
4853
4854 034443 312 14 0 00 035773 CAME DBL,RESSV+4
4855 034444 254 00 0 00 034450 JRST CDBFAIL
4856
4857 034445 260 17 0 00 035327 GO COMSTR ;COMPARE DESTINATION STRINGS
4858 034446 254 00 0 00 034450 JRST CDBFAIL
4859
4860 034447 350 00 0 17 000000 AOS (P)
4861 034450 263 17 0 00 000000 CDBFAIL:RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 104
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0158
4862
4863 034451 261 17 0 00 000000 CDBPNT: PUT AC0
4864 034452 261 17 0 00 000001 PUT AC1
4865 034453 261 17 0 00 000002 PUT AC2
4866
4867 034454 201 01 0 00 037105 MOVEI AC1,CDBCAS ;AC1 = CASE TABLE ADDRESS
4868 034455 260 17 0 00 035424 GO PNTCAS ;GO PRINT THE CURRENT CASE #
4869
4870 034456 037 02 0 00 040220 PMSG <^SOURCE STRING: >
4871 034457 402 00 0 00 000001 SETZM AC1
4872 034460 135 01 0 00 040236 LDB AC1,[POINT 9,ORIGSV,35] ;COPY OF SOURCE STRING LENGTH
4873 034461 200 02 0 00 035763 MOVE AC2,ORIGSV+1 ;COPY OF SOURCE BYTE POINTER
4874 034462 260 17 0 00 035401 GO PNTSTR
4875
4876 034463 260 17 0 00 035342 GO PNTACB ;GO PRINT THE AC BLOCKS
4877
4878 034464 332 00 0 00 041176 SKIPE TRANFG ;IF CVTDBT THEN PRINT TRANSLATION TABLE
4879 034465 260 17 0 00 035445 GO PNTRAN
4880
4881 034466 332 00 0 00 041160 SKIPE INCSKP ;INCORRECT RETURN TAKEN?
4882 034467 260 17 0 00 035370 GO PNTSKP ;YES - PRINT SKIP MESSAGE
4883 034470 402 00 0 00 041160 SETZM INCSKP ;RESET THE SKIP WORD
4884
4885 034471 262 17 0 00 000002 CDBRT1: GET AC2
4886 034472 262 17 0 00 000001 GET AC1
4887 034473 262 17 0 00 000000 GET AC0
4888 034474 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 105
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0159
4889
4890 ; **********************************************************************
4891 ;*CBDCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
4892 ;* OF THE CVTBDX INSTRUCTIONS.
4893 ; **********************************************************************
4894
4895 034475 261 17 0 00 000000 CBDCOM: PUT AC0
4896
4897 034476 200 00 0 00 041173 MOVE AC0,SKPWD1 ;SEE IF INSTRUCTION RETURNED CORRECTLY
4898 034477 316 00 0 00 041174 CAMN AC0,SKPWD2
4899 034500 254 00 0 00 034503 JRST CBDC1 ;IT DID - CONTINUE
4900
4901 034501 476 00 0 00 041160 SETOM INCSKP
4902 034502 254 00 0 00 034520 JRST CBDFAIL
4903
4904 034503 312 10 0 00 035767 CBDC1: CAME BDH,RESSV ;CHECK THE SIMULATED AC'S WITH
4905 034504 254 00 0 00 034520 JRST CBDFAIL ;THE FINAL RESULT
4906
4907 034505 312 11 0 00 035770 CAME BDL,RESSV+1
4908 034506 254 00 0 00 034520 JRST CBDFAIL
4909
4910 034507 312 12 0 00 035771 CAME AC12,RESSV+2
4911 034510 254 00 0 00 034520 JRST CBDFAIL
4912
4913 034511 312 13 0 00 035772 CAME DLEN,RESSV+3
4914 034512 254 00 0 00 034520 JRST CBDFAIL
4915
4916 034513 200 00 0 00 000014 MOVE AC0,DP
4917 034514 270 00 0 00 040232 ADD AC0,[SIMDES-DESTIN]
4918 034515 312 00 0 00 035773 CAME AC0,RESSV+4
4919 034516 254 00 0 00 034520 JRST CBDFAIL
4920
4921 034517 350 00 0 17 777777 AOS -1(P)
4922 034520 262 17 0 00 000000 CBDFAIL:GET AC0
4923 034521 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 106
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0160
4924
4925 034522 261 17 0 00 000000 CBDPNT: PUT AC0
4926 034523 261 17 0 00 000001 PUT AC1
4927 034524 261 17 0 00 000002 PUT AC2
4928
4929 034525 260 17 0 00 035363 GO PNTINS ;PRINT THE INSTRUCTION IN ERROR
4930
4931 034526 201 01 0 00 037146 MOVEI AC1,CBDCAS
4932 034527 260 17 0 00 035424 GO PNTCAS ;PRINT THE CASE IN ERROR
4933
4934 034530 260 17 0 00 035342 GO PNTACB ;GO PRINT THE AC BLOCKS
4935
4936 034531 037 02 0 00 040252 PMSG <^SIMULATED DESTINATION STRING:>
4937 034532 402 00 0 00 000001 SETZM AC1
4938 034533 135 01 0 00 040260 LDB AC1,[POINT 9,ORIGSV+3,35]
4939 034534 200 02 0 00 035766 MOVE AC2,ORIGSV+4 ;COPY OF SIMULATED DESTIN BYTE POINTER
4940 034535 541 02 0 00 036120 HRRI AC2,SIMDES
4941 034536 260 17 0 00 035401 GO PNTSTR
4942
4943 034537 037 02 0 00 040244 PMSG <^ACTUAL DESTINATION STRING:>
4944 034540 402 00 0 00 000001 SETZM AC1
4945 034541 135 01 0 00 040260 LDB AC1,[POINT 9,ORIGSV+3,35] ;COPY OF DESTIN STRING LENGTH
4946 034542 200 02 0 00 035766 MOVE AC2,ORIGSV+4 ;COPY OF DESTIN BYTE POINTER
4947 034543 260 17 0 00 035401 GO PNTSTR
4948
4949 034544 332 00 0 00 041160 SKIPE INCSKP ;INCORRECT SKIP TAKEN ?
4950 034545 260 17 0 00 035370 GO PNTSKP ;YES - PRINT SKIP MESSAGE
4951 034546 402 00 0 00 041160 SETZM INCSKP
4952
4953 034547 262 17 0 00 000002 CBDRT1: GET AC2
4954 034550 262 17 0 00 000001 GET AC1
4955 034551 262 17 0 00 000000 GET AC0
4956 034552 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 107
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0161
4957
4958 ; **********************************************************************
4959 ;*EDTCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS
4960 ;* OF THE EDIT INSTRUCTION AND PRINTS ERROR INFORMATION.
4961 ;* THE BYTE TYPE UNDER TEST IS ACCESSED USING "BYTYPE" AS AN INDEX.
4962 ;* MAXIMUM STRING LENGTHS ARE USED FOR PRINTING STRINGS SINCE THE
4963 ;* EDIT INSTRUCTION HAS NO SPECIFICATION OF STRING LENGTHS.
4964 ; **********************************************************************
4965
4966 034553 261 17 0 00 000000 EDTCOM: PUT AC0
4967
4968 034554 200 00 0 00 041173 MOVE AC0,SKPWD1 ;SEE IF INSTRUCTION SKIPPED CORRECTLY
4969 034555 316 00 0 00 041174 CAMN AC0,SKPWD2
4970 034556 254 00 0 00 034561 JRST EDTC1 ;IT DID - CONTINUE
4971
4972 034557 476 00 0 00 041160 SETOM INCSKP
4973 034560 254 00 0 00 034601 JRST EDTFAIL
4974
4975 034561 312 10 0 00 035767 EDTC1: CAME PADDR,RESSV ;CHECK THE SIMULATED AC'S AGAINST THE
4976 034562 254 00 0 00 034601 JRST EDTFAIL ;THE ACTUAL AC'S
4977
4978 034563 312 11 0 00 035770 CAME SP,RESSV+1
4979 034564 254 00 0 00 034601 JRST EDTFAIL
4980
4981 034565 312 12 0 00 035771 CAME AC12,RESSV+2
4982 034566 254 00 0 00 034601 JRST EDTFAIL
4983
4984 034567 312 13 0 00 035772 CAME MA,RESSV+3
4985 034570 254 00 0 00 034601 JRST EDTFAIL
4986
4987 034571 260 17 0 00 035327 GO COMSTR ;COMPARE SIMULATED AND ACTUAL STRINGS
4988 034572 254 00 0 00 034601 JRST EDTFAIL ;ERROR RETURN
4989
4990 034573 200 00 0 00 000014 MOVE AC0,DP
4991 034574 336 00 0 00 041162 SKIPN OFFSET
4992 034575 270 00 0 00 040232 ADD AC0,[SIMDES-DESTIN]
4993
4994 034576 312 00 0 00 035773 CAME AC0,RESSV+4
4995 034577 254 00 0 00 034601 JRST EDTFAIL
4996
4997 034600 350 00 0 17 777777 AOS -1(P)
4998 034601 262 17 0 00 000000 EDTFAIL:GET AC0
4999 034602 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 108
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0162
5000
5001 034603 261 17 0 00 000000 EDTPNT: PUT AC0
5002 034604 261 17 0 00 000001 PUT AC1
5003 034605 261 17 0 00 000002 PUT AC2
5004
5005 034606 037 02 0 00 040261 PMSG <^PATTERN BYTE TYPE UNDER TEST: >
5006 034607 200 04 0 00 036272 MOVE AC4,BYTYPE ;GET BYTE TYPE TABLE INDEX
5007 034610 200 00 0 04 036234 MOVE AC0,BYTAB(AC4) ;SIXBIT BYTE NAME TO AC0
5008 034611 037 00 0 00 000002 PNTSIX ;PRINT IT
5009
5010 034612 201 01 0 00 037207 MOVEI AC1,EDTCAS
5011 034613 260 17 0 00 035424 GO PNTCAS ;PRINT THE CASE NUMBER
5012
5013 034614 332 00 0 00 041162 SKIPE OFFSET
5014 034615 254 00 0 00 034620 JRST EDTP1A
5015
5016 034616 200 00 0 00 040251 MOVE AC0,[DESTIN-SIMDES] ;GET DIFFERENCE IN STRING LOCATIONS
5017 034617 272 00 0 00 035773 ADDM AC0,RESSV+4
5018
5019 034620 260 17 0 00 035342 EDTP1A: GO PNTACB ;PRINT THE AC BLOCKS
5020
5021 034621 302 04 0 00 000011 CAIE AC4,^D9 ;IF SELECT IS BYTE TYPE 9 PRINT SRC STRING
5022 034622 254 00 0 00 034627 JRST EDTP1
5023
5024 034623 037 02 0 00 040233 PMSG <^SOURCE STRING:>
5025 034624 201 01 0 00 000024 MOVEI AC1,^D20 ;SOURCE STRING MAX LENGTH
5026 034625 200 02 0 00 035763 MOVE AC2,ORIGSV+1 ;COPY OF STRING BYTE POINTER
5027 034626 260 17 0 00 035401 GO PNTSTR
5028
5029 034627 332 00 0 00 041162 EDTP1: SKIPE OFFSET ;EXCHMD BYTE TYPE?
5030 034630 254 00 0 00 034642 JRST EDTP2 ;YES - DON'T PRINT DESTINATION STRINGS
5031
5032 034631 037 02 0 00 040237 PMSG <^CORRECT DESTINATION STRING:>
5033 034632 201 01 0 00 000100 MOVEI AC1,^D64 ;MAX DESTIN AND SIMDES STRING LENGTH
5034 034633 200 02 0 00 035766 MOVE AC2,ORIGSV+4
5035 034634 541 02 0 00 036120 HRRI AC2,SIMDES
5036 034635 260 17 0 00 035401 GO PNTSTR
5037
5038 034636 037 02 0 00 040244 PMSG <^ACTUAL DESTINATION STRING:>
5039 034637 201 01 0 00 000100 MOVEI AC1,^D64
5040 034640 200 02 0 00 035766 MOVE AC2,ORIGSV+4
5041 034641 260 17 0 00 035401 GO PNTSTR
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 109
DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0163
5042
5043 034642 302 04 0 00 000011 EDTP2: CAIE AC4,^D9 ;PRINT E0+1 IF BYTE TYPE IS SELECT
5044 034643 254 00 0 00 034647 JRST EDTP2A
5045
5046 034644 037 02 0 00 040267 PMSG <^E0+1:>
5047 034645 200 00 0 00 035565 MOVE AC0,E0+1
5048 034646 037 16 0 00 000003 PNTOCS
5049
5050 034647 302 04 0 00 000002 EDTP2A: CAIE AC4,2 ;PRINT E0+2 IF SIGST OR SELECT
5051 034650 306 04 0 00 000011 CAIN AC4,^D9
5052 034651 334 00 0 00 000000 SKIPA
5053 034652 254 00 0 00 034656 JRST EDTP4
5054
5055 034653 037 02 0 00 040271 PMSG <^E0+2:>
5056 034654 200 00 0 00 035566 MOVE AC0,E0+2 ;GET THE FLOAT CHARACTER
5057 034655 037 16 0 00 000003 PNTOCS
5058
5059 034656 306 04 0 00 000011 EDTP4: CAIN AC4,^D9 ;PRINT TRANSLATION TABLE IF BYTE TYPE IS SELECT
5060 034657 260 17 0 00 035445 GO PNTRAN
5061
5062 034660 332 00 0 00 041160 SKIPE INCSKP ;INCORRECT RETURN TAKEN?
5063 034661 260 17 0 00 035370 GO PNTSKP ;YES - PRINT THE INCORRECT SKIP MSG.
5064 034662 402 00 0 00 041160 SETZM INCSKP ;RESET THE INCORRECT SKIP WORD
5065
5066 034663 262 17 0 00 000002 EDTRT1: GET AC2
5067 034664 262 17 0 00 000001 GET AC1
5068 034665 262 17 0 00 000000 GET AC0
5069 034666 263 17 0 00 000000 RTN
5070
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 110
DSKCGM MAC 11-Sep-79 15:13 MUUO AND PAGE FAIL HANDLERS SEQ 0164
5071 SUBTTL MUUO AND PAGE FAIL HANDLERS
5072
5073 ; **********************************************************************
5074 ;*MUUOHS - MUUO HANDLER INITIALIZATION
5075 ;* CODE TO SETUP MUUO HANDLER IN EXEC MODE
5076 ; **********************************************************************
5077
5078 034667 332 00 0 00 030037 MUUOHS: SKIPE USER ;USER MODE?
5079 034670 254 00 0 00 034676 JRST TSMUUO ;YES - SETUP FOR TIMESHARE TRAPPING
5080
5081 034671 201 00 0 00 034713 MOVEI MUUOH ;GET ADDRESS OF MUUO HANDLER
5082 034672 202 00 0 00 000430 MOVEM 430 ;SETUP ADDRESS IN USER PROCESS TABLE
5083
5084 034673 200 00 0 00 040273 MOVE [430,431] ;SETUP UPT WORDS 430-437
5085 034674 251 00 0 00 000437 BLT 437
5086 034675 263 17 0 00 000000 RTN
5087
5088 ; **************************************************
5089 ;CODE TO SETUP MUUO HANDLER FOR TOPS-20
5090 ; **************************************************
5091
5092 034676 336 00 0 00 030516 TSMUUO: SKIPN MONTYP ;RUNNING UNDER TOPS-20?
5093 034677 254 00 0 00 034710 JRST MUUO10 ;NO - EXECUTE TOPS-10 CODE
5094
5095 034700 104 00 0 00 000147 RESET ;CLEAR THE SOFTWARE INTERRUPT SYSTEM
5096
5097 034701 201 01 0 00 400000 MOVEI AC1,.FHSLF ;PROCESS HANDLE FOR THIS JOB
5098 034702 200 02 0 00 040274 MOVE AC2,[LEVTAB,,CHNTAB] ;SETUP SOFTWARE INTERRUPT TABLES
5099 034703 104 00 0 00 000125 SIR
5100
5101 034704 205 02 0 00 000004 MOVSI 2,(1B^D15) ;SET UP TO INTERCEPT ILLEGAL INSTR
5102 034705 104 00 0 00 000131 AIC ;TO INTERRUPT ILLEGAL INSTRUCTIONS
5103
5104 034706 104 00 0 00 000126 EIR ;ENABLE THE INTERRUPT SYSTEM
5105 034707 263 17 0 00 000000 RTN
5106
5107 ; **************************************************
5108 ;CODE TO SETUP MUUO HANDLER FOR TOPS-10
5109 ; **************************************************
5110
5111 034710 201 01 0 00 035536 MUUO10: MOVEI AC1,UUOBLK ;SET .JBINT TO ADDRESS OF CONTROL BLOCK
5112 034711 202 01 0 00 000134 MOVEM AC1,.JBINT
5113 034712 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 111
DSKCGM MAC 11-Sep-79 15:13 MUUO AND PAGE FAIL HANDLERS SEQ 0165
5114
5115 ; **********************************************************************
5116 ;*MUUOH - THE ACTUAL MUUO HANDLERS (EXEC AND USER MODE)
5117 ; **********************************************************************
5118
5119 034713 261 17 0 00 000000 MUUOH: PUT AC0 ;SAVE AC0
5120
5121 034714 352 00 0 00 041157 AOSE GOTRAP ;WAS A TRAP EXPECTED?
5122 034715 254 00 0 00 034734 JRST MUUOHX ;NO, FATAL ERROR
5123
5124 034716 332 00 0 00 030037 SKIPE USER ;USER MODE?
5125 034717 254 00 0 00 034722 JRST MUUOHU ;YES - GO TO USER CODE
5126
5127 034720 262 17 0 00 000000 GET AC0 ;RESTORE AC0
5128 034721 254 02 1 00 000425 JRSTF @425 ;JUMP USING UPT PC ADDRESS
5129
5130 034722 336 00 0 00 030516 MUUOHU: SKIPN MONTYP ;TOPS-20 MONITOR?
5131 034723 254 00 0 00 034727 JRST MUUOH1 ;NO - EXECUTE TOPS-10 CODE
5132
5133 034724 350 00 0 00 035563 AOS MUOPC ;SETUP INTERRUPT RETURN
5134 034725 262 17 0 00 000000 GET AC0 ;RESTORE AC0
5135 034726 104 00 0 00 000136 DEBRK ;EXECUTE THE DISMISS INTERRUPT JSYS
5136
5137 034727 350 00 0 00 035540 MUUOH1: AOS UUOBLK+2 ;UUOBLK+2 HAS LAST USER PS
5138 034730 262 17 0 00 000000 GET AC0 ;RESTORE AC0
5139
5140 034731 261 17 0 00 035540 PUT UUOBLK+2 ;SETUP RETURN JUMP
5141 034732 402 00 0 00 035540 SETZM UUOBLK+2 ;THIS MUST BE 0 TO WORK AGAIN
5142 034733 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 112
DSKCGM MAC 11-Sep-79 15:13 MUUO AND PAGE FAIL HANDLERS SEQ 0166
5143
5144 ; **************************************************
5145 ;*MUUOHX - UNEXPECTED MUUO ERROR REPORTING
5146 ; **************************************************
5147 SALL
5148 040275 T= SIXBTZ <MUUO OPERATION>
5149 LALL
5150 034734 332 00 0 00 030037 MUUOHX: SKIPE USER
5151 034735 254 00 0 00 034742 JRST MUUOHY
5152
5153 034736 200 01 0 00 000424 MOVE AC1,424 ;GET BAD MUUO
5154 034737 200 02 0 00 000425 MOVE AC2,425 ;GET BAD MMUO PC
5155
5156 ERROR1 (13,AC1,AC2,^_
5157 ^CORRECT=MUUO^_
5158 ^ACTUAL=MUUO PC,^_
5159 UNEXPECTED MUUO OCCURED)^
5160 SALL
5161 034740 036 13 0 00 040311
5162 034741 037 15 0 00 000004 FATAL
5163
5164 034742 200 01 0 00 035563 MUUOHY: MOVE AC1,MUOPC ;GET PC OF BAD MUUO
5165 034743 336 00 0 00 030516 SKIPN MONTYP
5166 034744 200 01 0 00 035536 MOVE AC1,UUOBLK
5167
5168 ERROR1 (13,AC1,0,^_
5169 ^CORRECT=MUUO PC,^_
5170 UNEXPECTED MUUO OCCURED)^
5171 034745 036 13 0 00 040317
5172 034746 037 15 0 00 000004 FATAL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 113
DSKCGM MAC 11-Sep-79 15:13 MUUO AND PAGE FAIL HANDLERS SEQ 0167
5173
5174 ; **********************************************************************
5175 ;*LUUOH - LUUO HANDLER
5176 ; **********************************************************************
5177
5178 034747 261 17 0 00 000000 LUUOH: PUT AC0 ;SAVE AC0
5179
5180 034750 352 00 0 00 041157 AOSE GOTRAP ;WAS AN LUUO EXPECTED?
5181 034751 254 00 0 00 034754 JRST LUUOHX ;NO, FATAL ERROR
5182
5183 034752 262 17 0 00 000000 GET AC0 ;RESTORE AC0
5184 034753 263 17 0 00 000000 RTN
5185
5186 ; **************************************************
5187 ;*LUUOHX - UNEXPECTED LUUO ERROR REPORTING
5188 ; **************************************************
5189 SALL
5190 040322 T= SIXBTZ <LUUO OPERATION>
5191 LALL
5192 034754 200 00 0 00 041175 LUUOHX: MOVE SVLUUO ;RESTORE SUBROU. PKG. TRAP ROUTINE SETUP
5193 034755 202 00 0 00 000041 MOVEM 41
5194
5195 034756 200 01 0 00 000040 MOVE AC1,40 ;GET BAD LUUO
5196 034757 200 02 0 17 777777 MOVE AC2,-1(P) ;GET BAD LUUO PC
5197
5198 ERROR1 (13,AC1,AC2,^_
5199 ^CORRECT=LUUO^_
5200 ^ACTUAL=LUUO PC,^_
5201 UNEXPECTED LUUO OCCURED)^
5202 SALL
5203 034760 036 13 0 00 040336
5204 034761 037 15 0 00 000004 FATAL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 114
DSKCGM MAC 11-Sep-79 15:13 MUUO AND PAGE FAIL HANDLERS SEQ 0168
5205
5206 ; **********************************************************************
5207 ;*PFHAND -- PAGE FAIL HANDLER
5208 ;*
5209 ;* IN THIS ROUTINE THE CURRENT VALUE OF THE EXTEND INSTR AC BLOCK
5210 ;* IS COMPARED WITH THE CORRECT RESULT WHICH IS STORED IN MEMORY.
5211 ;*
5212 ;* ALSO, THE PAGE FAIL WORD AND PAGE FAIL PC ARE COMPARED AGAINST
5213 ;* THE CORRECT VALUES. IF A DISCREPANCY EXISTS THE ROUTINE TAKES
5214 ;* AN ERROR RETURN THROUGH "PFHEPC" BACK TO THE MAIN TEST.
5215 ;*
5216 ;* ON ENTRY, AC4 CONTAINS THE ADDRESS OF THE CORRECT AC BLOCK STORED
5217 ;* IN MEMORY, INSTR CONTAINS THE INDEX TO THE SIXBIT INSTRUCTION
5218 ;* NAME TABLE.
5219 ; **********************************************************************
5220
5221 034762 352 00 0 00 041170 PFHAND: AOSE PFTRAP ;INDICATE THAT PF OCCURED
5222 034763 254 00 0 00 035015 JRST PFFAIL ;THIS IS SECOND PAGE FAILURE
5223
5224 034764 550 07 0 00 000501 HRRZ AC7,LPFWPC ;ACTUAL PAGE FAIL PC
5225 034765 200 06 0 00 041155 MOVE AC6,FAILOC ;CORRECT PF PC WORD
5226 034766 312 06 0 00 000007 CAME AC6,AC7 ;CORRECT?
5227 034767 254 00 0 00 035015 JRST PFFAIL ;NO
5228
5229 034770 200 07 0 04 000000 MOVE AC7,(AC4) ;GET THE CORRECT AC CONTENTS
5230 034771 332 00 0 00 041176 SKIPE TRANFG ;TRANSLATE INSTR?
5231 034772 434 07 0 00 035734 OR AC7,BIT0 ;YES - CORRECT RESULT HAS SFL SET
5232
5233 034773 312 07 0 00 000010 CAME AC7,AC10 ;CORRECT?
5234 034774 254 00 0 00 035015 JRST PFFAIL ;NO
5235
5236 034775 200 07 0 04 000001 MOVE AC7,1(AC4) ;GET THE CORRECT AC CONTENTS
5237 034776 312 07 0 00 000011 CAME AC7,AC11 ;CORRECT?
5238 034777 254 00 0 00 035015 JRST PFFAIL ;NO
5239
5240 035000 200 07 0 04 000002 MOVE AC7,2(AC4) ;GET THE CORRECT AC+2 CONTENTS
5241 035001 312 07 0 00 000012 CAME AC7,AC12 ;CORRECT?
5242 035002 254 00 0 00 035015 JRST PFFAIL ;NO
5243
5244 035003 200 07 0 04 000003 MOVE AC7,3(AC4) ;GET THE CORRECT AC CONTENTS
5245 035004 312 07 0 00 000013 CAME AC7,AC13 ;CORRECT?
5246 035005 254 00 0 00 035015 JRST PFFAIL ;NO
5247
5248 035006 200 07 0 04 000004 MOVE AC7,4(AC4) ;GET THE CORRECT AC CONTENTS
5249 035007 312 07 0 00 000014 CAME AC7,AC14 ;CORRECT?
5250 035010 254 00 0 00 035015 JRST PFFAIL ;NO
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 115
DSKCGM MAC 11-Sep-79 15:13 MUUO AND PAGE FAIL HANDLERS SEQ 0169
5251
5252 ; **************************************************
5253 ;SET UP THE PAGE TABLE FOR CONTINUE
5254 ; **************************************************
5255
5256 035011 200 00 0 00 040341 MOVE AC0,[740000!75,,740000!76]
5257 035012 202 00 0 00 000200 MOVEM AC0,200 ;SETUP PAGE MAP
5258
5259 035013 7 010 20 0 00 020000 CONO PAG,LTRPEN ;CAUSE NEW PAGING TO HAVE AN EFFECT
5260
5261 035014 254 02 1 00 000501 JRSTF @LPFWPC ;RETURN
5262
5263 ; **************************************************
5264 ;TAKE AN ERROR RETURN THROUGH "PFHEPC" BACK TO THE MAIN TEST.
5265 ; **************************************************
5266
5267 035015 254 00 1 00 041167 PFFAIL: JRST @PFHEPC#
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 116
DSKCGM MAC 11-Sep-79 15:13 MUUO AND PAGE FAIL HANDLERS SEQ 0170
5268
5269 ; **********************************************************************
5270 ;*PFPNT -- PAGE FAIL ERROR PRINTER
5271 ;*
5272 ;* ON ENTRY, AC4 CONTAINS THE ADDRESS OF THE CORRECT AC BLOCK STORED
5273 ;* IN MEMORY, INSTR CONTAINS THE INDEX TO THE SIXBIT INSTRUCTION
5274 ;* NAME TABLE.
5275 ; **********************************************************************
5276 SALL
5277 040342 T= SIXBTZ <PAGE FAIL>
5278 LALL
5279 035016 550 07 0 00 000501 PFPNT: HRRZ AC7,LPFWPC ;ACTUAL PAGE FAIL PC
5280 035017 200 06 0 00 041155 MOVE AC6,FAILOC ;CORRECT PF PC WORD
5281 035020 312 06 0 00 000007 CAME AC6,AC7 ;CORRECT?
5282 ERROR1 (13,6,7,PAGE FAIL PC WRONG,,PFINS)^
5283 SALL
5284 035021 036 13 0 00 040350
5285
5286 035022 200 07 0 04 000000 MOVE AC7,(AC4) ;GET THE CORRECT AC CONTENTS
5287 035023 332 00 0 00 041176 SKIPE TRANFG ;TRANSLATE INSTR?
5288 035024 434 07 0 00 035734 OR AC7,BIT0 ;YES - CORRECT RESULT HAS SFL SET
5289
5290 035025 312 07 0 00 000010 CAME AC7,AC10 ;CORRECT?
5291 ERROR1 (13,7,10,INTERMEDIATE AC INCORRECT,AC,PFINS)^
5292 035026 036 13 0 00 040361
5293
5294 035027 200 07 0 04 000001 MOVE AC7,1(AC4) ;GET THE CORRECT AC+1 CONTENTS
5295 035030 312 07 0 00 000011 CAME AC7,AC11 ;CORRECT?
5296 ERROR1 (13,7,11,INTERMEDIATE AC INCORRECT,AC+1,PFINS)^
5297 035031 036 13 0 00 040365
5298
5299 035032 200 07 0 04 000002 MOVE AC7,2(AC4) ;GET THE CORRECT AC+2 CONTENTS
5300 035033 312 07 0 00 000012 CAME AC7,AC12 ;CORRECT?
5301 ERROR1 (13,7,12,INTERMEDIATE AC INCORRECT,AC+2,PFINS)^
5302 035034 036 13 0 00 040371
5303
5304 035035 200 07 0 04 000003 MOVE AC7,3(AC4) ;GET THE CORRECT AC+3 CONTENTS
5305 035036 312 07 0 00 000013 CAME AC7,AC13 ;CORRECT?
5306 ERROR1 (13,7,13,INTERMEDIATE AC INCORRECT,AC+3,PFINS)^
5307 035037 036 13 0 00 040375
5308
5309 035040 200 07 0 04 000004 MOVE AC7,4(AC4) ;GET THE CORRECT AC+4 CONTENTS
5310 035041 312 07 0 00 000014 CAME AC7,AC14 ;CORRECT?
5311 ERROR1 (13,7,14,INTERMEDIATE AC INCORRECT,AC+4,PFINS)^
5312 035042 036 13 0 00 040401
5313
5314 035043 263 17 0 00 000000 RTN
5315 XALL
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 117
DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0171
5316 SUBTTL PROGRAM SUPPORT ROUTINES
5317
5318 ; **********************************************************************
5319 ;*EDTSET -- ROUTINE TO SET UP THE AC BLOCK FOR THE EDIT INSTRUCTION
5320 ;* ACCORDING TO THE PARAMETERS CONTAINED IN THE CASE TABLE.
5321 ;*
5322 ;* UPON ENTRY, THE RIGHT HALF OF AC7 CONTAINS THE ADDRESS OF THE
5323 ;* CASE TABLE PARAMETER WORD.
5324 ;*
5325 ;* RETURN IS ALWAYS +1.
5326 ; **********************************************************************
5327
5328 035044 200 01 0 07 000000 EDTSET: MOVE AC1,(AC7) ;RETRIEVE THE CASE PARAMETER WORD
5329
5330 ; **************************************************
5331 ;DETERMINE THE INITIAL VALUES FOR THE S,N AND M FLAG
5332 ; **************************************************
5333
5334 035045 402 00 0 00 000010 SETZM PADDR
5335 035046 602 01 0 00 400000 TRNE AC1,(SFL) ;SET THE S FLAG?
5336 035047 434 10 0 00 035734 OR PADDR,BIT0 ;YES
5337
5338 035050 602 01 0 00 040000 TRNE AC1,(NFL) ;SET THE N FLAG?
5339 035051 434 10 0 00 035735 OR PADDR,BIT1 ;YES
5340
5341 035052 602 01 0 00 100000 TRNE AC1,(MFL) ;SET THE M FLAG?
5342 035053 434 10 0 00 035736 OR PADDR,BIT2 ;YES
5343
5344 ; **************************************************
5345 ;SET UP THE PATTERN BYTE #
5346 ; **************************************************
5347
5348 035054 200 04 0 00 000001 MOVE AC4,AC1 ;MAKE COPY OF CASE WORD
5349 035055 405 04 0 00 000003 ANDI AC4,PB ;ISOLATE THE PB#
5350 035056 242 04 0 00 000000 LSH AC4,PBSH ;SHIFT INTO RIGHT-MOST PART OF AC
5351 035057 137 04 0 00 036453 DPB AC4,PATBN ;LOAD PB# INTO PADDR
5352 035060 541 10 0 00 036246 HRRI PADDR,PATTBL ;LOAD BYTE PATTERN TABLE ADDRESS
5353
5354 ; **************************************************
5355 ;SETUP THE SOURCE AND DESTINATION BYTE POINTERS
5356 ; **************************************************
5357
5358 035061 603 01 0 00 000100 TLNE AC1,(S44) ;FULL WORD SOURCE BYTES?
5359 035062 200 11 0 00 037503 MOVE SP,[POINT 36,SOURCE]
5360
5361 035063 607 01 0 00 000100 TLNN AC1,(S44)
5362 035064 200 11 0 00 037502 MOVE SP,[POINT 5,SOURCE] ;SETUP SOURCE POINTER
5363
5364 035065 603 01 0 00 000040 TLNE AC1,(D44) ;FULL WORD DESTIN BYTE SIZE?
5365 035066 200 14 0 00 037505 MOVE DP,[POINT 36,DESTIN]
5366
5367 035067 607 01 0 00 000040 TLNN AC1,(D44)
5368 035070 200 14 0 00 037504 MOVE DP,[POINT 5,DESTIN] ;SETUP DESTINATION POINTER
5369
5370 035071 402 00 0 00 000013 SETZM MA ;SET MARK ADDRESS TO 0
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 118
DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0172
5371
5372 ; **************************************************
5373 ;SETUP THE E0+1 AND E0+2 (FILL AND FLOAT CHARACTERS) AS FOLLOWS:
5374 ; IF EQFILL=1 THEN E0+1= 62, E0+2= 63
5375 ; IF LFILL =1 THEN E0+1= 0, E0+2= 63
5376 ; IF GFILL =1 THEN E0+1= 62, E0+2= 0
5377 ; IF NONE OF THE ABOVE ARE SPECIFIED BOTH WORDS WILL BE SET TO 0
5378 ; **************************************************
5379
5380 035072 607 01 0 00 001000 TLNN AC1,(EQFIL)
5381 035073 254 00 0 00 035101 JRST EDS2
5382
5383 035074 201 00 0 00 000062 MOVEI AC0,62
5384 035075 202 00 0 00 035565 MOVEM AC0,E0+1
5385
5386 035076 201 00 0 00 000063 MOVEI AC0,63
5387 035077 202 00 0 00 035566 MOVEM AC0,E0+2
5388
5389 035100 254 00 0 00 035152 JRST EDSRTN
5390
5391 035101 607 01 0 00 000400 EDS2: TLNN AC1,(LFILL)
5392 035102 254 00 0 00 035110 JRST EDS3
5393
5394 035103 201 00 0 00 000000 MOVEI AC0,0
5395 035104 202 00 0 00 035565 MOVEM AC0,E0+1
5396
5397 035105 201 00 0 00 000063 MOVEI AC0,63
5398 035106 202 00 0 00 035566 MOVEM AC0,E0+2
5399
5400 035107 254 00 0 00 035152 JRST EDSRTN
5401
5402 035110 607 01 0 00 000200 EDS3: TLNN AC1,(GFILL)
5403 035111 254 00 0 00 035117 JRST EDS4
5404
5405 035112 201 00 0 00 000062 MOVEI AC0,62
5406 035113 202 00 0 00 035565 MOVEM AC0,E0+1
5407
5408 035114 201 00 0 00 000000 MOVEI AC0,0
5409 035115 202 00 0 00 035566 MOVEM AC0,E0+2
5410
5411 035116 254 00 0 00 035152 JRST EDSRTN
5412
5413 035117 402 00 0 00 035565 EDS4: SETZM E0+1
5414 035120 402 00 0 00 035566 SETZM E0+2
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 119
DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0173
5415
5416 ; **************************************************
5417 ;SETUP SOURCE STRING AND TRANSLATE TABLE IF BYTE TYPE IS SELECT
5418 ; **************************************************
5419
5420 035121 200 00 0 00 036272 MOVE AC0,BYTYPE ;CURRENT BYTE TYPE
5421 035122 302 00 0 00 000011 CAIE AC0,^D9 ;IS IT SELECT?
5422 035123 254 00 0 00 035152 JRST EDSRTN ;NO
5423
5424 035124 200 04 0 00 000011 MOVE AC4,SP ;COPY OF SOURCE BYTE POINTER
5425 035125 201 05 0 00 777754 MOVEI AC5,-^D20 ;SETUP 20 BYTES
5426 035126 201 00 0 00 000001 MOVEI AC0,1 ;PATTERN STARTS WITH 1 AND INCREMENTS
5427
5428 035127 377 00 0 00 000005 EDS5: SOSG AC5
5429 035130 254 00 0 00 035134 JRST EDS6
5430
5431 035131 136 00 0 00 000004 IDPB AC0,AC4 ;PUT BYTE IN THE STRING
5432 035132 271 00 0 00 000001 ADDI AC0,1 ;INCREMENT THE PATTERN
5433 035133 254 00 0 00 035127 JRST EDS5
5434
5435 ; **************************************************
5436 ;SET THE CODE BITS IN THE TRANSLATION TABLE
5437 ; **************************************************
5438
5439 035134 402 00 0 00 000000 EDS6: SETZM AC0 ;TEMP LOC FOR CONTROL BITS
5440 035135 602 01 0 00 020000 TRNE AC1,(C1) ;SETUP THE SECOND HALFWORD
5441 035136 434 00 0 00 035737 OR BIT18
5442
5443 035137 602 01 0 00 010000 TRNE AC1,(C2)
5444 035140 434 00 0 00 035740 OR BIT19
5445
5446 035141 602 01 0 00 004000 TRNE AC1,(C3)
5447 035142 434 00 0 00 035741 OR BIT20
5448
5449 035143 602 01 0 00 002000 TRNE AC1,(C4) ;SETUP THE THIRD HALFWORD
5450 035144 434 00 0 00 035734 OR BIT0
5451
5452 035145 602 01 0 00 001000 TRNE AC1,(C5)
5453 035146 434 00 0 00 035735 OR BIT1
5454
5455 035147 602 01 0 00 000400 TRNE AC1,(C6)
5456 035150 434 00 0 00 035736 OR BIT2
5457
5458 035151 260 17 0 00 031426 GO SETRAN ;YES - SET UP THE TRANSLATION TABLE
5459
5460 035152 200 00 0 00 040404 EDSRTN: MOVE AC0,[004000,,E1] ;SETUP E0 WORD
5461 035153 202 00 0 00 035564 MOVEM AC0,E0
5462 035154 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 120
DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0174
5463
5464 ; **********************************************************************
5465 ;*PFINS -- ROUTINE TO PRINT INSTRUCTION NAME
5466 ;* ENTRY WITH SCRIPT TABLE INDEX IN INSTR
5467 ; **********************************************************************
5468
5469 035155 261 17 0 00 000000 PFINS: PUT AC0
5470 035156 261 17 0 00 000001 PUT AC1
5471
5472 035157 200 01 0 00 041161 MOVE AC1,INSTR ;GET OPCODE INDEX TO TABLE
5473 PMSG <^INSTRUCTION: >^
5474 035160 037 02 0 00 040405 PSIXM [SIXBIT\^INSTRUCTION: _\]^
5475 035161 200 00 0 01 035742 MOVE AC0,SCRIPT(AC1) ;GET SIXBIT NAME
5476 035162 037 00 0 00 000002 PNTSIX ;PRINT IT
5477
5478 035163 037 00 0 00 030242 PCRL
5479 035164 262 17 0 00 000001 GET AC1
5480 035165 262 17 0 00 000000 GET AC0
5481 035166 263 17 0 00 000000 RTN
5482
5483 ; **********************************************************************
5484 ;*CDBTN -- USED IN CVTDBT PF TEST
5485 ; **********************************************************************
5486
5487 035167 402 00 0 00 035650 CDBTN: SETZM E1
5488 035170 263 17 0 00 000000 RTN
5489
5490 ; **********************************************************************
5491 ;*CBDTRN -- ROUTINE TO SET UP THE TRANSLATE TABLE FOR THE CVTBDX INSTR
5492 ; **********************************************************************
5493
5494 035171 200 00 0 00 040410 CBDTRN: MOVE AC0,[CBDTR,,E1]
5495 035172 251 00 0 00 035661 BLT AC0,E1+^D9
5496 035173 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 121
DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0175
5497
5498 ; **********************************************************************
5499 ;*COMAC -- ROUTINE USED IN PAGE FAIL TESTING TO COMPARE THE
5500 ;* FINAL AC BLOCK WITH THAT OF THE SIMULATOR
5501 ; **********************************************************************
5502
5503 035174 312 10 0 00 035767 COMAC: CAME AC,RESSV ;COMPARE THE AC BLOCK,PRINT ON ERROR
5504 035175 254 00 0 00 035207 JRST COMFAIL
5505
5506 035176 312 11 0 00 035770 CAME AC+1,RESSV+1
5507 035177 254 00 0 00 035207 JRST COMFAIL
5508
5509 035200 312 12 0 00 035771 CAME AC+2,RESSV+2
5510 035201 254 00 0 00 035207 JRST COMFAIL
5511
5512 035202 312 13 0 00 035772 CAME AC+3,RESSV+3
5513 035203 254 00 0 00 035207 JRST COMFAIL
5514
5515 035204 312 14 0 00 035773 CAME AC+4,RESSV+4
5516 035205 254 00 0 00 035207 JRST COMFAIL
5517
5518 035206 350 00 0 17 000000 AOS (P)
5519 035207 263 17 0 00 000000 COMFAIL:RTN
5520
5521 035210 260 17 0 00 035155 COMPNT: GO PFINS ;PRINT THE INSTRUCTION IN ERROR
5522
5523 035211 260 17 0 00 035342 GO PNTACB ;PRINT THE AC BLOCKS
5524
5525 035212 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 122
DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0176
5526
5527 ; **********************************************************************
5528 ;*CHKTRN -- ROUTINE TO CHECK THE OPCODE UNDER TEST AND SET TRANSFG
5529 ;* IF IT IS A TRANSLATE INSTRUCTION.
5530 ;*
5531 ;* TAKE OPCODE IN AC0, RTN +1 ALWAYS
5532 ; **********************************************************************
5533
5534 035213 402 00 0 00 041176 CHKTRN: SETZM TRANFG
5535
5536 035214 306 00 0 00 000015 CAIN AC0,015 ;MOVST INSTRUCTION?
5537 035215 254 00 0 00 035221 JRST SETFG ;YES - SET TRANFG
5538
5539 035216 306 00 0 00 000011 CAIN AC0,011 ;CVTDBT INSTRUCTION?
5540 035217 254 00 0 00 035221 JRST SETFG
5541
5542 035220 306 00 0 00 000013 CAIN AC0,013 ;CVTBDT INSTRUCTION?
5543 035221 476 00 0 00 041176 SETFG: SETOM TRANFG ;SET THE FLAG
5544 035222 263 17 0 00 000000 RTN
5545
5546 ; **********************************************************************
5547 ;*PAGSET -- ROUTINE TO CLEAR PAGE TABLE,
5548 ;* SET UP RELOCATION DATA IN THE TABLE,
5549 ;* SET PAGING AND TRAP ENABLE,
5550 ;* AND LOAD THE USER BASE REGISTER
5551 ; **********************************************************************
5552
5553 035223 402 00 0 00 000200 PAGSET: SETZM 200 ;CLEAR THE PAGE TABLE
5554 035224 200 00 0 00 040411 MOVE AC0,[200,,201]
5555 035225 251 00 0 00 000417 BLT AC0,417
5556
5557 035226 205 00 0 00 740075 MOVSI AC0,740000!75 ;SET UP THE RELOCATION DATA
5558 035227 202 00 0 00 000200 MOVEM AC0,200 ;LOCATIONS 400XXX ==> LOCATIONS 75XXX
5559
5560 035230 476 00 0 00 000500 SETOM LEUPFW
5561
5562 035231 7 010 20 0 00 020000 CONO PAG,LTRPEN ;SET TRAP AND PAGING ENABLE
5563
5564 035232 7 010 14 0 00 040412 DATAO PAG,[LLDUSB,,400000] ;LOAD THE USER BASE REGISTER
5565 035233 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 123
DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0177
5566
5567 ; **********************************************************************
5568 ;*PFACB -- ROUTINE TO SETUP PAGE FAIL AC BLOCK
5569 ;* ENTRY WITH AC3 CONTAINING ADDRESS OF BLOCK IN MEMORY
5570 ; **********************************************************************
5571
5572 035234 200 00 0 03 000000 PFACB: MOVE AC0,(AC3)
5573 035235 202 00 0 00 000010 MOVEM AC
5574
5575 035236 200 00 0 03 000001 MOVE AC0,1(AC3)
5576 035237 202 00 0 00 000011 MOVEM AC+1
5577
5578 035240 200 00 0 03 000002 MOVE AC0,2(AC3)
5579 035241 202 00 0 00 000012 MOVEM AC+2
5580
5581 035242 200 00 0 03 000003 MOVE AC0,3(AC3)
5582 035243 202 00 0 00 000013 MOVEM AC+3
5583
5584 035244 200 00 0 03 000004 MOVE AC0,4(AC3)
5585 035245 202 00 0 00 000014 MOVEM AC+4
5586
5587 035246 402 00 0 00 041156 SETZM FILLF ;CLEAR FILLER FAILURE FLAG
5588
5589 035247 200 00 0 03 000005 MOVE AC0,5(AC3) ;GET INDICATOR OF WHERE E0 WORD WILL GO
5590 035250 332 00 0 00 000000 SKIPE AC0 ;AC0 = 0 MEANS THIS CASE NOT FILLER FAIL
5591 035251 476 00 0 00 041156 SETOM FILLF# ;PAGE FAIL SETUP TO OCCUR FOR FILLER
5592 035252 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 124
DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0178
5593
5594 ; **********************************************************************
5595 ;*SVAC,RSTAC- ROUTINES TO SAVE AND RESTORE AC'S 0-16
5596 ; **********************************************************************
5597
5598 035253 202 00 0 00 041136 SVAC: MOVEM 0,AC0SV# ;SAVE AC'S
5599 035254 202 01 0 00 041146 MOVEM 1,AC1SV#
5600 035255 202 02 0 00 041147 MOVEM 2,AC2SV#
5601 035256 202 03 0 00 041150 MOVEM 3,AC3SV#
5602 035257 202 04 0 00 041151 MOVEM 4,AC4SV#
5603 035260 202 05 0 00 041152 MOVEM 5,AC5SV#
5604 035261 202 06 0 00 041153 MOVEM 6,AC6SV#
5605 035262 202 07 0 00 041154 MOVEM 7,AC7SV#
5606 035263 202 10 0 00 041137 MOVEM 10,AC10SV#
5607 035264 202 11 0 00 041140 MOVEM 11,AC11SV#
5608 035265 202 12 0 00 041141 MOVEM 12,AC12SV#
5609 035266 202 13 0 00 041142 MOVEM 13,AC13SV#
5610 035267 202 14 0 00 041143 MOVEM 14,AC14SV#
5611 035270 202 15 0 00 041144 MOVEM 15,AC15SV#
5612 035271 202 16 0 00 041145 MOVEM 16,AC16SV#
5613 035272 263 17 0 00 000000 RTN
5614
5615 035273 200 00 0 00 041136 RSTAC: MOVE 0,AC0SV ;RESTORE AC'S
5616 035274 200 01 0 00 041146 MOVE 1,AC1SV
5617 035275 200 02 0 00 041147 MOVE 2,AC2SV
5618 035276 200 03 0 00 041150 MOVE 3,AC3SV
5619 035277 200 04 0 00 041151 MOVE 4,AC4SV
5620 035300 200 05 0 00 041152 MOVE 5,AC5SV
5621 035301 200 06 0 00 041153 MOVE 6,AC6SV
5622 035302 200 07 0 00 041154 MOVE 7,AC7SV
5623 035303 200 10 0 00 041137 MOVE 10,AC10SV
5624 035304 200 11 0 00 041140 MOVE 11,AC11SV
5625 035305 200 12 0 00 041141 MOVE 12,AC12SV
5626 035306 200 13 0 00 041142 MOVE 13,AC13SV
5627 035307 200 14 0 00 041143 MOVE 14,AC14SV
5628 035310 200 15 0 00 041144 MOVE 15,AC15SV
5629 035311 200 16 0 00 041145 MOVE 16,AC16SV
5630 035312 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 125
DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0179
5631
5632 ; **********************************************************************
5633 ;*CLRSTR -- ROUTINE WHICH CLEARS THE SOURCE, DESTIN, AND SIMDES BLOCKS
5634 ; **********************************************************************
5635
5636 035313 261 17 0 00 000000 CLRSTR: PUT AC0
5637
5638 035314 402 00 0 00 035774 SETZM SOURCE
5639 035315 200 00 0 00 040413 MOVE AC0,[SOURCE,,SOURCE+1]
5640 035316 251 00 0 00 036017 BLT AC0,SOURCE+^D19
5641
5642 035317 402 00 0 00 036020 SETZM DESTIN
5643 035320 200 00 0 00 040414 MOVE AC0,[DESTIN,,DESTIN+1]
5644 035321 251 00 0 00 036117 BLT AC0,DESTIN+^D63
5645
5646 035322 402 00 0 00 036120 SETZM SIMDES
5647 035323 200 00 0 00 040212 MOVE AC0,[SIMDES,,SIMDES+1]
5648 035324 251 00 0 00 036217 BLT AC0,SIMDES+^D63
5649
5650 035325 262 17 0 00 000000 GET AC0
5651 035326 263 17 0 00 000000 RTN
5652
5653 ; **********************************************************************
5654 ;*COMSTR -- ROUTINE TO COMPARE SIMULATED AND ACTUAL DESTINATION STRINGS
5655 ; **********************************************************************
5656
5657 035327 261 17 0 00 000000 COMSTR: PUT AC0
5658 035330 261 17 0 00 000001 PUT AC1
5659
5660 035331 201 01 0 00 000077 MOVEI AC1,^D63 ;LOOP COUNTER AND WORD INDEX
5661
5662 035332 200 00 0 01 036020 COMS1: MOVE AC0,DESTIN(AC1) ;GET DESTINATION WORD
5663 035333 312 00 0 01 036120 CAME AC0,SIMDES(AC1)
5664 035334 254 00 0 00 035337 JRST COMRT ;ERROR RETURN
5665
5666 035335 367 01 0 00 035332 SOJG AC1,COMS1
5667
5668 035336 350 00 0 17 777776 AOS -2(P) ;CORRECT RETURN
5669 035337 262 17 0 00 000001 COMRT: GET AC1
5670 035340 262 17 0 00 000000 GET AC0
5671 035341 263 17 0 00 000000 RTN
5672
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 126
DSKCGM MAC 11-Sep-79 15:13 PROGRAM PRINT ROUTINES SEQ 0180
5673 SUBTTL PROGRAM PRINT ROUTINES
5674
5675 ; **********************************************************************
5676 ;*PNTACB -- ROUTINE TO PRINT THE ORIGINAL, CORRECT AND ACTUAL AC BLOCKS
5677 ; **********************************************************************
5678
5679 035342 261 17 0 00 000000 PNTACB: PUT AC0
5680 035343 261 17 0 00 000001 PUT AC1
5681
5682 PNTMSG [ASCIZ/
5683 AC BLOCKS: ---- FINAL ----
5684 ORIGINAL CORRECT ACTUAL
5685 035344 037 00 0 00 040415 /]
5686 035345 515 01 0 00 777773 HRLZI AC1,-5 ;AC1/- BLOCK LENGTH,,0
5687
5688 035346 200 00 0 01 035762 PNTBLK: MOVE ORIGSV(AC1)
5689 035347 037 13 0 00 000000 PNTHW
5690 035350 037 00 0 00 000011 PNTCI 11
5691
5692 035351 200 00 0 01 035767 MOVE RESSV(AC1)
5693 035352 037 13 0 00 000000 PNTHW
5694 035353 037 00 0 00 000011 PNTCI 11
5695
5696 035354 200 00 0 01 000010 MOVE 10(AC1)
5697 035355 037 13 0 00 000000 PNTHW
5698 035356 037 00 0 00 030242 PCRL
5699
5700 035357 253 01 0 00 035346 AOBJN AC1,PNTBLK
5701
5702 035360 262 17 0 00 000001 GET AC1
5703 035361 262 17 0 00 000000 GET AC0
5704 035362 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 127
DSKCGM MAC 11-Sep-79 15:13 PROGRAM PRINT ROUTINES SEQ 0181
5705
5706 ; **********************************************************************
5707 ;*PNTINS -- ROUTINE TO PRINT THE CURRENT INSTRUCTION IN ENGLISH
5708 ; **********************************************************************
5709
5710 035363 PNTINS: PMSG <^INSTRUCTION: >^
5711 035363 037 02 0 00 040405 PSIXM [SIXBIT\^INSTRUCTION: _\]^
5712 035364 135 01 0 00 036220 LDB AC1,E0OP ;GET THE CURRENT OPCODE
5713 035365 200 00 0 01 035742 MOVE AC0,SCRIPT(AC1) ;PRINT THE INSTRUCTION NAME
5714 035366 037 01 0 00 000002 PNTSXF
5715 035367 263 17 0 00 000000 RTN
5716
5717 ; **********************************************************************
5718 ;*PNTSKP -- ROUTINE WHICH PRINTS INCORRECT INSTRUCTION RETURN MESSAGE
5719 ; **********************************************************************
5720
5721 035370 261 17 0 00 000000 PNTSKP: PUT AC0
5722
5723 PMSG <^INSTRUCTION MADE AN INCORRECT >^
5724 035371 037 02 0 00 040434 PSIXM [SIXBIT\^INSTRUCTION MADE AN INCORRECT _\]^
5725
5726 035372 200 00 0 00 040442 MOVE AC0,[SIXBIT /SKIP/]
5727 035373 336 00 0 00 041173 SKIPN SKPWD1
5728 035374 200 00 0 00 040443 MOVE AC0,[SIXBIT /N-SKIP/]
5729 035375 037 01 0 00 000002 PNTSXF
5730
5731 PMSG < RETURN^>^
5732 035376 037 02 0 00 040444 PSIXM [SIXBIT\ RETURN^_\]^
5733
5734 035377 262 17 0 00 000000 GET AC0
5735 035400 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 128
DSKCGM MAC 11-Sep-79 15:13 PROGRAM PRINT ROUTINES SEQ 0182
5736
5737 ; **********************************************************************
5738 ;*PNTSTR -- ROUTINE WHICH PRINTS STRINGS IN ROWS OF 5 BYTES EACH
5739 ;* ON ENTRY AC1 CONTAINS THE LENGTH OF THE STRING TO BE PRINTED
5740 ;* AND AC2 CONTAINS THE BYTE POINTER TO BE USED.
5741 ; **********************************************************************
5742
5743 035401 261 17 0 00 000000 PNTSTR: PUT AC0
5744 035402 261 17 0 00 000001 PUT AC1
5745 035403 261 17 0 00 000004 PUT AC4
5746 035404 037 00 0 00 030242 PCRL
5747
5748 035405 404 01 0 00 040446 AND AC1,[77777,,777777] ;MASK OFF FLAGS
5749
5750 035406 201 04 0 00 000005 PNTS1: MOVEI AC4,5 ;BYTES/ROW COUNTER
5751
5752 035407 375 00 0 00 000001 PNTS2: SOSGE AC1 ;MORE BYTES TO PRINT?
5753 035410 254 00 0 00 035417 JRST PNTSRT ;NO - RETURN
5754
5755 035411 134 00 0 00 000002 ILDB AC0,AC2 ;YES - BYTE TO AC0
5756 035412 037 16 0 00 000003 PNTOCS ;PRINT BYTE IN OCTAL
5757 035413 037 00 0 00 000011 PNTCI 11 ;TAB
5758
5759 035414 366 04 0 00 035407 SOJN AC4,PNTS2 ;JUMP IF MORE BYTES TO GO IN THIS ROW
5760
5761 035415 037 00 0 00 030242 PCRL ;GO TO NEXT ROW
5762 035416 254 00 0 00 035406 JRST PNTS1 ;RELOAD BYTES/ROW COUNTER
5763
5764 035417 037 00 0 00 030242 PNTSRT: PCRL
5765 035420 262 17 0 00 000004 GET AC4
5766 035421 262 17 0 00 000001 GET AC1
5767 035422 262 17 0 00 000000 GET AC0
5768 035423 263 17 0 00 000000 RTN
5769
5770 ; **********************************************************************
5771 ;*PNTCAS -- ROUTINE WHICH PRINTS CASE CURRENT CASE #. (AC1)= CASE TABLE ADDR)
5772 ; **********************************************************************
5773
5774 035424 261 17 0 00 000000 PNTCAS: PUT AC0
5775
5776 PMSG <^CASE # >^
5777 035425 037 02 0 00 040447 PSIXM [SIXBIT\^CASE # _\]^
5778 035426 550 00 0 00 000007 HRRZ AC0,AC7 ;GET ADDRESS OF CASE
5779 035427 271 00 0 00 000001 ADDI AC0,1 ;ADJUST
5780 035430 274 00 0 00 000001 SUB AC0,AC1 ;SUBTRACT THE TABLE ADDRESS
5781 035431 037 15 0 00 000000 PNTDEC ;PRINT CASE #
5782 035432 037 00 0 00 030242 PCRL
5783
5784 035433 262 17 0 00 000000 GET AC0
5785 035434 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 129
DSKCGM MAC 11-Sep-79 15:13 PROGRAM PRINT ROUTINES SEQ 0183
5786
5787 ; **********************************************************************
5788 ;*RANLEN -- ROUTINE WHICH RETURNS STRING LENGTHS SEQUENTIALLY FROM 2 - 20 (10)
5789 ; **********************************************************************
5790
5791 035435 261 17 0 00 000000 RANLEN: PUT AC0
5792
5793 035436 200 00 0 00 041171 MOVE AC0,RLEN ;GET LAST LENGTH USED
5794 035437 306 00 0 00 000024 CAIN AC0,^D20 ;RLEN REACHED HIGH LIMIT?
5795 035440 201 00 0 00 000001 MOVEI AC0,1 ;YES - RESET IT
5796
5797 035441 271 00 0 00 000001 ADDI AC0,1 ;GENERATE NEXT STRING LENGTH
5798 035442 202 00 0 00 041171 MOVEM RLEN ;STORE IT FOR NEXT TIME
5799
5800 035443 262 17 0 00 000000 GET AC0
5801 035444 263 17 0 00 000000 RTN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 130
DSKCGM MAC 11-Sep-79 15:13 PROGRAM PRINT ROUTINES SEQ 0184
5802
5803 ; **********************************************************************
5804 ;*PNTRAN -- ROUTINE TO PRINT THE CONTENTS OF A TRANSLATION TABLE
5805 ;* LOCATED AT E1 FOR LENGTH OF 20
5806 ; **********************************************************************
5807
5808 035445 261 17 0 00 000000 PNTRAN: PUT AC0
5809 035446 261 17 0 00 000001 PUT AC1
5810
5811 035447 515 01 0 00 777766 HRLZI AC1,-^D10 ;AC1/-# FULL WORDS,,0
5812 035450 541 01 0 00 035650 HRRI AC1,E1 ;AC1/-# FULL WORDS,,TRANS TABLE ADDRESS
5813
5814 PMSG <^TRANSLATION TABLE:>^
5815 035451 037 02 0 00 040451 PSIXM [SIXBIT\^TRANSLATION TABLE:_\]^
5816
5817 PMSG <^CODE]FUNCTION]CODE]FUNCTION^>^
5818 035452 037 02 0 00 040455 PSIXM [SIXBIT\^CODE]FUNCTION]CODE]FUNCTION^_\]^
5819
5820 035453 204 00 0 01 000000 PNTRN: MOVS AC0,(AC1) ;GET WORD FROM TABLE
5821 035454 242 00 0 00 777761 LSH AC0,-^D15 ;SHIFT CODE INTO POSITION
5822 035455 405 00 0 00 000007 ANDI AC0,7 ;SAVE ONLY THE CODE
5823 035456 037 16 0 00 000003 PNTOCS
5824 035457 037 00 0 00 000011 PNTCI 11
5825
5826 035460 204 00 0 01 000000 MOVS AC0,(AC1)
5827 035461 405 00 0 00 077777 ANDI AC0,77777
5828 035462 037 16 0 00 000003 PNTOCS
5829
5830 PMSG <]]> ^;PRINT TWO TABS
5831 035463 037 02 0 00 040462 PSIXM [SIXBIT\]]_\]
5832
5833 035464 200 00 0 01 000000 MOVE AC0,(AC1)
5834 035465 242 00 0 00 777761 LSH AC0,-^D15
5835 035466 405 00 0 00 000007 ANDI AC0,7
5836 035467 037 16 0 00 000003 PNTOCS
5837 035470 037 00 0 00 000011 PNTCI 11
5838
5839 035471 200 00 0 01 000000 MOVE AC0,(AC1)
5840 035472 405 00 0 00 077777 ANDI AC0,77777
5841 035473 037 16 0 00 000003 PNTOCS
5842 035474 037 00 0 00 030242 PCRL
5843
5844 035475 253 01 0 00 035453 AOBJN AC1,PNTRN
5845
5846 035476 262 17 0 00 000001 GET AC1
5847 035477 262 17 0 00 000000 GET AC0
5848 035500 263 17 0 00 000000 RTN
5849
5850 ;END OF FILE
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1
DSKCG1 MAC 11-Sep-79 11:01 GENERAL PROGRAM TABLE STORAGE SEQ 0185
5851 SUBTTL GENERAL PROGRAM TABLE STORAGE
5852
5853 035501 PGMNAM: ASCIZ/
5854 035501 015 012 104 105 103 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) [DSKCG]
5855 035502 123 131 123 124 105
5856 035503 115 040 062 060 062
5857 035504 060 040 101 104 126
5858 035505 101 116 103 105 104
5859 035506 040 111 116 123 124
5860 035507 122 125 103 124 111
5861 035510 117 116 040 104 111
5862 035511 101 107 116 117 123
5863 035512 124 111 103 040 050
5864 035513 067 051 040 133 104
5865 035514 123 113 103 107 135
5866 035515 015 012 000 000 000 /
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 2
DSKCG1 MAC 11-Sep-79 11:01 GENERAL PROGRAM TABLE STORAGE SEQ 0186
5867
5868 ; **********************************************************************
5869 ;*EXTENDED OPERATOR OPCODE TABLE
5870 ; **********************************************************************
5871
5872 035516 777777 777762 OPTAB-OPEND ;NEGATIVE TABLE LENGTH
5873 035517 OPTAB:
5874 035517 000000 000001 CMPTAB: 001 ;CMPSL
5875 035520 000000 000002 002 ;CMPSE
5876 035521 000000 000003 003 ;CMPSLE
5877 035522 000000 000005 005 ;CMPSGE
5878 035523 000000 000006 006 ;CMPSN
5879 035524 000000 000007 007 ;CMPSG
5880 035525 000000 000016 MOVTAB: 016 ;MOVSLJ
5881 035526 000000 000017 017 ;MOVSRJ
5882 035527 000000 000014 014 ;MOVSO
5883 035530 000000 000015 015 ;MOVST
5884 035531 000000 000004 EDTTAB: 004 ;EDIT
5885 035532 000000 000010 CDBTAB: 010 ;CVTDBO
5886 035533 000000 000011 011 ;CVTDBT
5887 035534 000000 000012 CBDTAB: 012 ;CVTBDO
5888 035535 000000 000013 OPEND: 013 ;CVTBDT
5889
5890 ; **********************************************************************
5891 ;*SOFTWARE INTERRUPT TABLE AREA
5892 ; **********************************************************************
5893
5894 ; **************************************************
5895 ;TOPS-10 STORAGE
5896 ; **************************************************
5897
5898 035536 000003 034713 UUOBLK: 3,,MUUOH ;TRANSFER CONTROL TO MUUO HANDLER
5899 035537 400000 000100 1B0!1B29 ;SUPPRESS ERROR MSGS AND INTERCEPT FATAL ERRORS
5900 035540 000000 000000 0
5901 035541 000000 000000 0
5902
5903 ; **************************************************
5904 ;TOPS-20 STORAGE
5905 ; **************************************************
5906
5907 035542 CHNTAB: BLOCK ^D15 ;CHANNELS 0-14 AREN'T USED
5908 035561 000001 034713 1,,MUUOH ;SETUP PRIORITY 1 INTERRUPT FOR MUUO TRAP
5909 035562 000000 035563 LEVTAB: MUOPC ;HOLDS PC OF INTERRUPT
5910
5911 035563 000000 000000 MUOPC: 0
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 3
DSKCG1 MAC 11-Sep-79 11:01 GENERAL PROGRAM TABLE STORAGE SEQ 0187
5912
5913 ; **********************************************************************
5914 ;*EXECUTE INSTRUCTION STORAGE (EO,E1)
5915 ; **********************************************************************
5916
5917 035564 E0: BLOCK 64
5918 035650 E1: BLOCK 64
5919
5920 035734 400000 000000 BIT0: 400000,,0
5921 035735 200000 000000 BIT1: 200000,,0
5922 035736 100000 000000 BIT2: 100000,,0
5923 035737 000000 400000 BIT18: 0,,400000
5924 035740 000000 200000 BIT19: 0,,200000
5925 035741 000000 100000 BIT20: 0,,100000
5926
5927 ; **********************************************************************
5928 ;*SIXBIT EXTENDED OPERATOR MNEMONIC TABLE
5929 ; **********************************************************************
5930
5931 035742 000000 000000 SCRIPT: 0
5932 035743 43 55 60 63 54 00 SIXBIT /CMPSL/
5933 035744 43 55 60 63 45 00 SIXBIT /CMPSE/
5934 035745 43 55 60 63 54 45 SIXBIT /CMPSLE/
5935 035746 45 44 51 64 00 00 SIXBIT /EDIT/
5936 035747 43 55 60 63 47 45 SIXBIT /CMPSGE/
5937 035750 43 55 60 63 56 00 SIXBIT /CMPSN/
5938 035751 43 55 60 63 47 00 SIXBIT /CMPSG/
5939 035752 43 66 64 44 42 57 SIXBIT /CVTDBO/
5940 035753 43 66 64 44 42 64 SIXBIT /CVTDBT/
5941 035754 43 66 64 42 44 57 SIXBIT /CVTBDO/
5942 035755 43 66 64 42 44 64 SIXBIT /CVTBDT/
5943 035756 55 57 66 63 57 00 SIXBIT /MOVSO/
5944 035757 55 57 66 63 64 00 SIXBIT /MOVST/
5945 035760 55 57 66 63 54 52 SIXBIT /MOVSLJ/
5946 035761 55 57 66 63 62 52 SIXBIT /MOVSRJ/
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 4
DSKCG1 MAC 11-Sep-79 11:01 GENERAL PROGRAM TABLE STORAGE SEQ 0188
5947
5948 ; **********************************************************************
5949 ;*ORIGSV,RESSV -- AREAS WHICH HOLD ORIGINAL AND FINAL AC BLOCK RESULTS
5950 ;* OF EXTEND INSTRUCTIONS
5951 ; **********************************************************************
5952
5953 035762 ORIGSV: BLOCK 5
5954 035767 RESSV: BLOCK 5
5955
5956 ; **********************************************************************
5957 ;*SOURCE,DESTIN,SIMDES -- STORAGE FOR SOURCE,DESTINATION AND SIMULATED
5958 ;* DESTINATION STRINGS
5959 ; **********************************************************************
5960
5961 035774 SOURCE: BLOCK ^D20
5962 036020 DESTIN: BLOCK ^D64
5963
5964 036120 SIMDES: BLOCK ^D64 ;SIMULATED DESTINATION STRING
5965
5966 036220 33 11 0 00 035564 E0OP: POINT 9,E0,8 ;BYTE POINTER FOR INSTR OPCODE
5967
5968 036221 TEMP: BLOCK 3 ;TEMPORARY STORAGE
5969
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 5
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0189
5970 SUBTTL INSTRUCTION SPECIFIC STORAGE AREA
5971
5972 ; **********************************************************************
5973 ;*SKPTAB -- INSTRUCTION SKIP TABLE
5974 ; **********************************************************************
5975
5976 036224 000000 000000 SKPTAB: 0
5977 036225 000000 000001 LF ;CMPSL
5978 036226 000000 000002 EF ;CMPSE
5979 036227 000000 000003 EF!LF ;CMPSLE
5980 036230 000000 000000 0 ;NOT USED (EDIT)
5981 036231 000000 000006 GF!EF ;CMPSGE
5982 036232 000000 000005 GF!LF ;CMPSN
5983 036233 000000 000004 GF ;CMPSG
5984
5985 ; **********************************************************************
5986 ;*BYTAB -- TABLE CONTAINING ENGLISH FOR THE BYTE TYPE OPERATORS.
5987 ;* USED IN ERROR PRINTING ROUTINE FOR EDIT INSTRUCTION. IT IS
5988 ;* INDEXED BY "BYTYPE" ( SPECIFIED IN EACH EDIT SUBMODULE TEST.)
5989 ; **********************************************************************
5990
5991 036234 63 64 57 60 00 00 BYTAB: SIXBIT /STOP/
5992 036235 45 70 43 50 55 44 SIXBIT /EXCHMD/
5993 036236 63 51 47 63 64 00 SIXBIT /SIGST/
5994 036237 46 54 44 63 45 60 SIXBIT /FLDSEP/
5995 036240 55 45 63 63 41 47 SIXBIT /MESSAG/
5996 036241 56 57 60 00 00 00 SIXBIT /NOP/
5997 036242 63 53 60 55 00 00 SIXBIT /SKPM/
5998 036243 63 53 60 56 00 00 SIXBIT /SKPN/
5999 036244 63 53 60 41 00 00 SIXBIT /SKPA/
6000 036245 63 45 54 45 43 64 SIXBIT /SELECT/
6001
6002 ; **************************************************
6003 ;*PATTBL -- EDIT INSTRUCTION PATTERN TABLE
6004 ; **************************************************
6005
6006 036246 PATTBL: BLOCK ^D20
6007 036272 BYTYPE: BLOCK 1 ;INDEX TO BYTE TYPE TABLE
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 6
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0190
6008
6009 ; **********************************************************************
6010 ;*EDXWD -- TABLES OF THE FIRST WORD OF THE PATTERN BYTE TABLE. THE
6011 ;* TABLE IS INDEXED ACCORDING TO THE VALUE OF THE PB#. THE "X"
6012 ;* IN EDXWD STANDS FOR THE SUBMODULE TEST BEING PERFORMED.
6013 ; **********************************************************************
6014
6015 036273 000 002 002 002 ED1WD: BYTE (9) STOP,SIGST,SIGST,SIGST
6016 036274 002 000 002 002 BYTE (9) SIGST,STOP,SIGST,SIGST
6017 036275 002 002 000 002 BYTE (9) SIGST,SIGST,STOP,SIGST
6018 036276 002 002 002 000 BYTE (9) SIGST,SIGST,SIGST,STOP
6019
6020 036277 004 000 000 000 ED2WD: BYTE (9) EXCHMD,STOP,STOP,STOP
6021 036300 004 004 000 000 BYTE (9) EXCHMD,EXCHMD,STOP,STOP
6022 036301 004 004 004 000 BYTE (9) EXCHMD,EXCHMD,EXCHMD,STOP
6023 036302 004 004 004 004 BYTE (9) EXCHMD,EXCHMD,EXCHMD,EXCHMD
6024
6025 036303 002 000 000 000 ED3WD: BYTE (9) SIGST,STOP,STOP,STOP
6026 036304 000 002 000 000 BYTE (9) STOP,SIGST,STOP,STOP
6027 036305 000 000 002 000 BYTE (9) STOP,STOP,SIGST,STOP
6028 036306 000 000 000 002 BYTE (9) STOP,STOP,STOP,SIGST
6029 036307 003 000 000 000 ED4WD: BYTE (9) FLDSEP,STOP,STOP,STOP
6030 036310 000 003 000 000 BYTE (9) STOP,FLDSEP,STOP,STOP
6031 036311 000 000 003 000 BYTE (9) STOP,STOP,FLDSEP,STOP
6032 036312 000 000 000 003 BYTE (9) STOP,STOP,STOP,FLDSEP
6033
6034 036313 100 000 000 000 ED5WD: BYTE (9) MESSAG,STOP,STOP,STOP
6035 036314 000 100 000 000 BYTE (9) STOP,MESSAG,STOP,STOP
6036 036315 000 000 100 000 BYTE (9) STOP,STOP,MESSAG,STOP
6037 036316 000 000 000 100 BYTE (9) STOP,STOP,STOP,MESSAG
6038
6039 036317 005 000 000 000 ED6WD: BYTE (9) NOP,STOP,STOP,STOP
6040 036320 000 005 000 000 BYTE (9) STOP,NOP,STOP,STOP
6041 036321 000 000 005 000 BYTE (9) STOP,STOP,NOP,STOP
6042 036322 000 000 000 005 BYTE (9) STOP,STOP,STOP,NOP
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 7
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0191
6043
6044 036323 500 000 000 000 ED7AWD: BYTE (9) SKPM,STOP,STOP,STOP
6045 036324 000 501 000 000 BYTE (9) STOP,SKPM+1,STOP,STOP
6046 036325 000 000 502 000 BYTE (9) STOP,STOP,SKPM+2,STOP
6047 036326 000 000 000 503 BYTE (9) STOP,STOP,STOP,SKPM+3
6048
6049 036327 600 000 000 000 ED7BWD: BYTE (9) SKPN,STOP,STOP,STOP
6050 036330 000 601 000 000 BYTE (9) STOP,SKPN+1,STOP,STOP
6051 036331 000 000 602 000 BYTE (9) STOP,STOP,SKPN+2,STOP
6052 036332 000 000 000 603 BYTE (9) STOP,STOP,STOP,SKPN+3
6053
6054 036333 700 000 000 000 ED7CWD: BYTE (9) SKPA,STOP,STOP,STOP
6055 036334 000 701 000 000 BYTE (9) STOP,SKPA+1,STOP,STOP
6056 036335 000 000 702 000 BYTE (9) STOP,STOP,SKPA+2,STOP
6057 036336 000 000 000 703 BYTE (9) STOP,STOP,STOP,SKPA+3
6058
6059 036337 001 000 000 000 ED8WD: BYTE (9) SELECT,STOP,STOP,STOP
6060 036340 001 001 000 000 BYTE (9) SELECT,SELECT,STOP,STOP
6061 036341 001 001 001 000 BYTE (9) SELECT,SELECT,SELECT,STOP
6062 036342 001 001 001 001 BYTE (9) SELECT,SELECT,SELECT,SELECT
6063
6064 036343 200 000 000 000 ED9WD: BYTE (9) NOP1,STOP,STOP,STOP
6065 036344 000 300 000 000 BYTE (9) STOP,NOP2,STOP,STOP
6066 036345 000 000 400 000 BYTE (9) STOP,STOP,NOP3,STOP
6067 036346 000 000 000 006 BYTE (9) STOP,STOP,STOP,NOP4
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 8
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0192
6068
6069 ; **********************************************************************
6070 ;*OFFTAB -- VARIOUS VALUES USED FOR OFFSET IN CVTXX INSTR
6071 ; **********************************************************************
6072
6073 036347 000000 000000 OFFTAB: 0
6074 036350 777777 777720 -1,,-60
6075 036351 000000 000060 0,,60
6076 036352 000000 000001 0,,1
6077
6078 ; **********************************************************************
6079 ;*DATTAB -- DATA TABLE FOR CVTDBO INSTRUCTIONS
6080 ; **********************************************************************
6081
6082 036353 440700 040463 DATTAB: 440700,,[ASCIZ/1180591620717411303424/]
6083 036354 440700 040470 440700,,[ASCIZ/1180591620717411303423/]
6084 036355 440700 040475 440700,,[ASCIZ/9876540/]
6085 036356 440700 040477 440700,,[ASCIZ/1/]
6086 036357 440700 040500 440700,,[ASCIZ/0/]
6087 036360 440700 040501 440700,,[ASCIZ/697/]
6088 036361 440700 040502 440700,,[ASCIZ/123456/]
6089 036362 440700 040463 440700,,[ASCIZ/1180591620717411303424/]
6090
6091 036363 000000 000000 CBDTR: 0,,0
6092 036364 777777 000001 -1,,1
6093 036365 777776 000002 -2,,2
6094 036366 777775 000003 -3,,3
6095 036367 777774 000004 -4,,4
6096 036370 777773 000005 -5,,5
6097 036371 777772 000006 -6,,6
6098 036372 777771 000007 -7,,7
6099 036373 777770 000010 -^D8,,^D8
6100 036374 777767 000011 -^D9,,^D9
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 9
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0193
6101
6102 ; **********************************************************************
6103 ;*DATCBD -- DATA TABLE FOR CVTBDX INSTRUCTION
6104 ; **********************************************************************
6105
6106 036375 440700 036405 DATCBD: 440700,,CB1
6107 036376 440700 036407 440700,,CB2
6108 036377 440700 036411 440700,,CB3
6109 036400 440700 036413 440700,,CB4
6110 036401 440700 036415 440700,,CB5
6111 036402 440700 036417 440700,,CB6
6112 036403 440700 036421 440700,,CB7
6113 036404 440700 036423 440700,,CB8
6114
6115 036405 401160 541620 CB1: 401160,,541620
6116 036406 717411 303424 717411,,303424
6117 036407 001160 541620 CB2: 1160,,541620
6118 036410 317411 303423 317411,,303423
6119 036411 000000 000000 CB3: 0
6120 036412 000004 676540 4,,676540
6121 036413 000000 000000 CB4: 0
6122 036414 000000 000001 1
6123 036415 000000 000000 CB5: 0
6124 036416 000000 000000 0
6125 036417 400157 013326 CB6: 400157,,13326
6126 036420 564731 000000 564731,,0
6127 036421 000000 000000 CB7: 0
6128 036422 000000 123456 123456
6129 036423 264026 176051 CB8: 264026,,176051
6130 036424 136640 000000 136640,,0
6131
6132 ; **********************************************************************
6133 ;*LTAB -- STRING LENGTH TABLE USED IN CDBXX AND CBDXX INSTRUCTIONS
6134 ; **********************************************************************
6135
6136 036425 000000 000000 LTAB: 0
6137 036426 000000 000001 1
6138 036427 000000 000021 21
6139 036430 000000 000022 22
6140
6141 ; **********************************************************************
6142 ;*STRING PATTERNS FOR CMPXX INSTRUCTIONS
6143 ; **********************************************************************
6144
6145 036431 252525 252525 APAT: 252525,,252525 ;PATTERN ALTERNATING ONE'S AND ZERO'S
6146 036432 777777 777777 BPAT: 777777,,777777 ;ALL ONE'S PATTERN
6147 036433 000000 000001 CPAT: 000000,,000001 ;ONE PATTERN
6148 036434 000000 000000 DPAT: 0 ;ZERO PATTERN
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 10
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0194
6149
6150 ; **********************************************************************
6151 ;*PPTAB,PPTAB1 -- EDIT INSTR SIMULATOR PATTERN POINTER JUMP TABLES
6152 ; **********************************************************************
6153
6154 036435 000000 034153 PPTAB: EOPER
6155 036436 000000 034156 EMESSG
6156 036437 000000 034162 ENOP
6157 036440 000000 034162 ENOP
6158 036441 000000 034162 ENOP
6159 036442 000000 034164 ESKPM
6160 036443 000000 034167 ESKPN
6161 036444 000000 034172 ESKPA
6162
6163 036445 000000 034176 PPTAB1: ESTOP
6164 036446 000000 034204 ESELCT
6165 036447 000000 034230 ESIGST
6166 036450 000000 034233 EFLDSP
6167 036451 000000 034235 EEXCHD
6168 036452 000000 034162 ENOP
6169
6170 ; **********************************************************************
6171 ;*EDIT INSTRUCTION BYTE POINTERS
6172 ; **********************************************************************
6173
6174 036453 36 02 0 00 000010 PATBN: POINT 2,PADDR,5 ;PATTERN BYTE NUMBER IN PADDR
6175 036454 44 11 0 00 036246 PATPT: POINT 9,PATTBL
6176
6177 036455 33 11 0 10 000000 PATBL: POINT 9,(PADDR),8 ;PATTERN BYTE 0
6178 036456 22 11 0 10 000000 POINT 9,(PADDR),17 ;PATTERN BYTE 1
6179 036457 11 11 0 10 000000 POINT 9,(PADDR),26 ;PATTERN BYTE 2
6180 036460 00 11 0 10 000000 POINT 9,(PADDR),35 ;PATTERN BYTE 3
6181
6182 036461 000 000 000 000 STOPWD: BYTE (9) STOP,STOP,STOP,STOP
6183 036462 002 002 002 002 SIGWD: BYTE (9) SIGST,SIGST,SIGST,SIGST
6184 036463 001 001 001 001 SELWD: BYTE (9) SELECT,SELECT,SELECT,SELECT
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 11
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0195
6185
6186 ; **********************************************************************
6187 ;*PFBLK -- STORAGE FOR AC BLOCKS USED IN PAGE FAIL TEST
6188 ; **********************************************************************
6189
6190 ; **************************************************
6191 ;STORAGE FOR CMPXX AND MOVXX PAGE FAIL AC'S
6192 ; **************************************************
6193
6194 036464 000000 000024 PFBLK1: ^D20 ;SRC FAILURE FIRST BYTE
6195 036465 44 44 0 00 401000 POINT 36,401000
6196 036466 000000 000000 0
6197 036467 000000 000024 ^D20
6198 036470 44 44 0 00 036020 POINT 36,DESTIN
6199 036471 000000 000000 0
6200
6201 036472 000000 000024 ^D20 ;SRC FAILURE MIDDLE BYTE
6202 036473 44 44 0 00 400766 POINT 36,401000-^D10
6203 036474 000000 000000 0
6204 036475 000000 000024 ^D20
6205 036476 44 44 0 00 036020 POINT 36,DESTIN
6206 036477 000000 000000 0
6207
6208 036500 000000 000024 ^D20 ;SRC FAILURE LAST BYTE
6209 036501 44 44 0 00 400755 POINT 36,401000-^D19
6210 036502 000000 000000 0
6211 036503 000000 000024 ^D20
6212 036504 44 44 0 00 036020 POINT 36,DESTIN
6213 036505 000000 000000 0
6214
6215 036506 000000 000024 ^D20 ;DST FAILURE FIRST BYTE
6216 036507 44 44 0 00 035774 POINT 36,SOURCE
6217 036510 000000 000000 0
6218 036511 000000 000024 ^D20
6219 036512 44 44 0 00 401000 POINT 36,401000
6220 036513 000000 000000 0
6221
6222 036514 000000 000024 ^D20 ;DST FAILURE MIDDLE BYTE
6223 036515 44 44 0 00 035774 POINT 36,SOURCE
6224 036516 000000 000000 0
6225 036517 000000 000024 ^D20
6226 036520 44 44 0 00 400766 POINT 36,401000-^D10
6227 036521 000000 000000 0
6228
6229 036522 000000 000024 ^D20 ;DST FAILURE LAST BYTE
6230 036523 44 44 0 00 035774 POINT 36,SOURCE
6231 036524 000000 000000 0
6232 036525 000000 000024 ^D20
6233 036526 44 44 0 00 400755 POINT 36,401000-^D19
6234 036527 000000 000000 0
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 12
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0196
6235
6236 036530 000000 000012 ^D10 ;FILLER FAILURE (E0+1)
6237 036531 44 44 0 00 035774 POINT 36,SOURCE
6238 036532 000000 000000 0
6239 036533 000000 000024 ^D20
6240 036534 44 44 0 00 036020 POINT 36,DESTIN
6241 036535 000000 000001 1
6242
6243 036536 000000 000012 ^D10 ;SRC FAIL MIDDLE
6244 036537 44 44 0 00 400773 POINT 36,401000-5
6245 036540 000000 000000 0
6246 036541 000000 000024 ^D20
6247 036542 44 44 0 00 036020 POINT 36,DESTIN
6248 036543 000000 000000 0
6249
6250 036544 000000 000024 PFBLK2: ^D20
6251 036545 44 44 0 00 401000 POINT 36,401000
6252 036546 000000 000000 0
6253 036547 000000 000000 0
6254 036550 000000 000000 0
6255 036551 000000 000000 0
6256
6257 036552 000000 000024 ^D20
6258 036553 44 44 0 00 400766 POINT 36,401000-^D10
6259 036554 000000 000000 0
6260 036555 000000 000000 0
6261 036556 000000 000000 0
6262 036557 000000 000000 0
6263
6264 036560 000000 000024 ^D20
6265 036561 44 44 0 00 400755 POINT 36,401000-^D19
6266 036562 000000 000000 0
6267 036563 000000 000000 0
6268 036564 000000 000000 0
6269 036565 000000 000000 0
6270
6271 036566 000000 000000 PFBLK3: 0
6272 036567 000000 000000 0
6273 036570 000000 000000 0
6274 036571 000000 000024 ^D20
6275 036572 44 44 0 00 401000 POINT 36,401000
6276 036573 000000 000000 0
6277
6278 036574 000000 012345 12345
6279 036575 000000 012345 12345
6280 036576 000000 000000 0
6281 036577 000000 000024 ^D20
6282 036600 44 44 0 00 400766 POINT 36,401000-^D10
6283 036601 000000 000000 0
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 13
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0197
6284
6285 036602 700000 036246 PFBLK4: 700000,,PATTBL
6286 036603 44 44 0 00 401000 POINT 36,401000
6287 036604 000000 000000 0
6288 036605 000000 000000 0
6289 036606 44 44 0 00 036020 POINT 36,DESTIN
6290 036607 000000 000000 0
6291
6292 036610 700000 036246 700000,,PATTBL
6293 036611 44 44 0 00 400766 POINT 36,401000-^D10
6294 036612 000000 000000 0
6295 036613 000000 000000 0
6296 036614 44 44 0 00 036020 POINT 36,DESTIN
6297 036615 000000 000000 0
6298
6299 036616 700000 036246 700000,,PATTBL
6300 036617 44 44 0 00 400755 POINT 36,401000-^D19
6301 036620 000000 000000 0
6302 036621 000000 000000 0
6303 036622 44 44 0 00 036020 POINT 36,DESTIN
6304 036623 000000 000000 0
6305
6306 036624 700000 036246 700000,,PATTBL
6307 036625 44 44 0 00 035774 POINT 36,SOURCE
6308 036626 000000 000000 0
6309 036627 000000 000000 0
6310 036630 44 44 0 00 401000 POINT 36,401000
6311 036631 000000 000000 0
6312
6313 036632 700000 036246 700000,,PATTBL
6314 036633 44 44 0 00 035774 POINT 36,SOURCE
6315 036634 000000 000000 0
6316 036635 000000 000000 0
6317 036636 44 44 0 00 400766 POINT 36,401000-^D10
6318 036637 000000 000000 0
6319
6320 036640 700000 036246 700000,,PATTBL
6321 036641 44 44 0 00 035774 POINT 36,SOURCE
6322 036642 000000 000000 0
6323 036643 000000 000000 0
6324 036644 44 44 0 00 400755 POINT 36,401000-^D19
6325 036645 000000 000000 0
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 14
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0198
6326
6327 ; **********************************************************************
6328 ;*PFRESX -- STORAGE AREA WHICH CONTAINS THE CORRECT INTERMEDIATE
6329 ;* RESULTS OF ALL INSTRUCTIONS AFTER PAGE FAILURE.
6330 ; **********************************************************************
6331
6332 036646 000000 000024 PFRES1: 24 ;STORAGE FOR CMPXX,MOVXX PF RESULTS
6333 036647 444400 401000 444400,,401000
6334 036650 000000 000000 0
6335 036651 000000 000024 24
6336 036652 444400 036020 444400,,DESTIN
6337
6338 036653 000000 000012 12
6339 036654 444400 401000 444400,,401000
6340 036655 000000 000000 0
6341 036656 000000 000012 12
6342 036657 004400 036031 004400,,DESTIN+11
6343
6344 036660 000000 000001 1
6345 036661 444400 401000 444400,,401000
6346 036662 000000 000000 0
6347 036663 000000 000001 1
6348 036664 004400 036042 004400,,DESTIN+22
6349
6350 036665 000000 000024 24
6351 036666 444400 035774 444400,,SOURCE
6352 036667 000000 000000 0
6353 036670 000000 000024 24
6354 036671 444400 401000 444400,,401000
6355
6356 036672 000000 000012 12
6357 036673 444400 036006 444400,,SOURCE+12
6358 036674 000000 000000 0
6359 036675 000000 000012 12
6360 036676 444400 401000 444400,,401000
6361
6362 036677 000000 000001 1
6363 036700 444400 036017 444400,,SOURCE+23
6364 036701 000000 000000 0
6365 036702 000000 000001 1
6366 036703 444400 401000 444400,,401000
6367
6368 036704 000000 000012 12
6369 036705 444400 035774 444400,,SOURCE
6370 036706 000000 000000 0
6371 036707 000000 000024 24
6372 036710 444400 036020 444400,,DESTIN
6373
6374 036711 000000 000005 5
6375 036712 444400 401000 444400,,401000
6376 036713 000000 000000 0
6377 036714 000000 000005 5
6378 036715 004400 036036 004400,,DESTIN+16
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 15
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0199
6379
6380 036716 400000 000024 PFRES2: 400000,,24
6381 036717 444400 401000 444400,,401000
6382 036720 000000 000000 0
6383 036721 000000 000000 0
6384 036722 000000 000000 0
6385
6386 036723 400000 000012 400000,,12
6387 036724 444400 401000 444400,,401000
6388 036725 000000 000000 0
6389 036726 000000 000000 0
6390 036727 000000 000000 0
6391
6392 036730 400000 000001 400000,,1
6393 036731 444400 401000 444400,,401000
6394 036732 000000 000000 0
6395 036733 000000 000000 0
6396 036734 000000 000000 0
6397
6398 036735 000000 000000 PFRES3: 0
6399 036736 000000 000000 0
6400 036737 000000 000000 0
6401 036740 000000 000001 1
6402 036741 444400 401000 444400,,401000
6403
6404 036742 000000 000000 0
6405 036743 000000 105705 105705
6406 036744 000000 000000 0
6407 036745 200000 000005 200000,,5
6408 036746 444400 401000 444400,,401000
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 16
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0200
6409
6410 036747 700000 036246 PFRES4: 700000,,PATTBL
6411 036750 444400 401000 444400,,401000
6412 036751 000000 000000 0
6413 036752 000000 000000 0
6414 036753 444400 036020 444400,,DESTIN
6415
6416 036754 720000 036250 720000,,PATTBL+2
6417 036755 444400 401000 444400,,401000
6418 036756 000000 000000 0
6419 036757 000000 000000 0
6420 036760 004400 036031 4400,,DESTIN+11
6421
6422 036761 730000 036252 730000,,PATTBL+4
6423 036762 444400 401000 444400,,401000
6424 036763 000000 000000 0
6425 036764 000000 000000 0
6426 036765 004400 036042 4400,,DESTIN+22
6427
6428 036766 700000 036246 700000,,PATTBL
6429 036767 444400 035774 444400,,SOURCE
6430 036770 000000 000000 0
6431 036771 000000 000000 0
6432 036772 444400 401000 444400,,401000
6433
6434 036773 720000 036250 720000,,PATTBL+2
6435 036774 444400 036006 444400,,SOURCE+12
6436 036775 000000 000000 0
6437 036776 000000 000000 0
6438 036777 444400 401000 444400,,401000
6439
6440 037000 730000 036252 730000,,PATTBL+4
6441 037001 444400 036017 444400,,SOURCE+23
6442 037002 000000 000000 0
6443 037003 000000 000000 0
6444 037004 444400 401000 444400,,401000
6445
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 17
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION CASE TABLES SEQ 0201
6446 SUBTTL INSTRUCTION CASE TABLES
6447
6448 ; **********************************************************************
6449 ;*CMPCAS -- PARAMETER CASE TABLE FOR COMPARE INSTRUCTIONS
6450 ; **********************************************************************
6451
6452 037005 777777 777732 CMPCAS-CMPEND ;NEGATIVE TABLE LENGTH
6453 037006 410140 000000 CMPCAS: EQLEN!S44!D44!ALTPT
6454 037007 410000 000000 EQLEN!ALTPT
6455 037010 404100 000000 EQLEN!S44!ONEPT
6456 037011 404050 000000 EQLEN!D44!ONEPT!ALD
6457 037012 402020 000000 EQLEN!ONESPT!ALS
6458 037013 402040 000000 EQLEN!D44!ONESPT
6459
6460 037014 203000 000000 SZERO!ONESPT!EQFIL
6461 037015 204300 000000 SZERO!S44!ONEPT!GFILL
6462 037016 211150 000000 SZERO!S44!D44!ALTPT!EQFIL!ALD
6463 037017 210500 000000 SZERO!S44!ALTPT!LFILL
6464 037020 204240 000000 SZERO!D44!ONEPT!GFILL
6465 037021 203140 000000 SZERO!S44!D44!ONESPT!EQFIL
6466 037022 103000 000000 DZERO!ONESPT!EQFIL
6467 037023 105140 000000 DZERO!S44!D44!ONEPT!EQFIL
6468 037024 111160 000000 DZERO!S44!D44!ALTPT!EQFIL!ALS
6469 037025 110240 000000 DZERO!D44!ALTPT!GFILL
6470 037026 110400 000000 DZERO!ALTPT!LFILL
6471 037027 103100 000000 DZERO!S44!ONESPT!EQFIL
6472 037030 051000 000000 DSZER!ALTPT!EQFIL
6473 037031 043100 000000 DSZER!S44!ONESPT!EQFIL
6474 037032 043040 000000 DSZER!D44!ONESPT!EQFIL
6475 037033 045140 000000 DSZER!S44!D44!ONEPT!EQFIL
6476
6477 037034 031000 000000 SLONG!ALTPT!EQFIL
6478 037035 031020 000000 SLONG!ALTPT!EQFIL!ALS
6479 037036 024300 000000 SLONG!S44!ONEPT!GFILL
6480 037037 022440 000000 SLONG!D44!ONESPT!LFILL
6481 037040 030400 000000 SLONG!ALTPT!LFILL
6482 037041 022300 000000 SLONG!S44!ONESPT!GFILL
6483 037042 025040 000000 SLONG!D44!ONEPT!EQFIL
6484 037043 030210 000000 SLONG!ALTPT!ALD!GFILL
6485
6486 037044 011000 000000 ALTPT!EQFIL
6487 037045 011010 000000 ALTPT!EQFIL!ALD
6488 037046 004300 000000 S44!ONEPT!GFILL
6489 037047 002440 000000 D44!ONESPT!LFILL
6490 037050 010400 000000 ALTPT!LFILL
6491 037051 002300 000000 S44!ONESPT!GFILL
6492 037052 005040 000000 D44!ONEPT!EQFIL
6493 037053 010220 000000 ALTPT!ALS!GFILL
6494 037054 404000 000000 CMPEND: EQLEN!ONEPT!
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 18
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION CASE TABLES SEQ 0202
6495
6496 ; **********************************************************************
6497 ;*MOVCAS -- PARAMETER CASE TABLE FOR MOVE STRING INSTRUCTIONS
6498 ; **********************************************************************
6499
6500 037055 777777 777753 MOVCAS-MOVEND ;NEGATIVE TABLE LENGTH
6501 037056 404140 702004 MOVCAS: EQLEN!S44!D44!ONEPT!OFF1!SFL1!MFL1!NFL1!C5A
6502 037057 410000 570004 EQLEN!ALTPT!OFF1!SFL1!NFL1!C1A!C2A!C3A
6503 037060 410040 400004 EQLEN!D44!ALTPT!OFF1!SFL1
6504 037061 402100 120004 EQLEN!S44!ONESPT!OFF1!NFL1!C2A
6505 037062 402000 202000 EQLEN!ONESPT!MFL1!C5A
6506 037063 402000 003004 EQLEN!ONESPT!OFF1!C5A!C6A
6507
6508 037064 202400 420000 SZERO!ONESPT!LFILL!SFL1!C2A
6509 037065 211040 500000 SZERO!D44!ALTPT!EQFIL!SFL1!NFL1
6510 037066 204300 000000 SZERO!S44!ONEPT!GFILL
6511 037067 050400 060000 DSZER!LFILL!ALTPT!C1A!C2A
6512
6513 037070 031000 740000 SLONG!EQFIL!ALTPT!SFL1!NFL1!MFL1!C1A
6514 037071 023040 400000 SLONG!D44!EQFIL!ONESPT!SFL1
6515 037072 030504 440000 SLONG!S44!ALTPT!LFILL!AFS!SFL1!C1A
6516 037073 024340 477000 SLONG!S44!D44!GFILL!ONEPT!SFL1!C1A!C2A!C3A!C4A!C5A!C6A
6517 037074 022540 700004 SLONG!S44!D44!OFF1!ONESPT!LFILL!SFL1!NFL1!MFL1
6518 037075 031020 000004 SLONG!EQFIL!ALTPT!ALS!OFF1
6519
6520 037076 011000 400000 EQFIL!ALTPT!SFL1
6521 037077 003040 240000 D44!EQFIL!ONESPT!MFL1!C1A
6522 037100 010504 140000 S44!ALTPT!LFILL!AFS!NFL1!C1A
6523 037101 004340 000000 S44!D44!GFILL!ONEPT
6524 037102 002540 704004 S44!D44!OFF1!ONESPT!LFILL!SFL1!MFL1!NFL1!C4A
6525 037103 011020 000004 MOVEND: EQFIL!ALTPT!ALS!OFF1
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 19
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION CASE TABLES SEQ 0203
6526
6527 ; **********************************************************************
6528 ;*CDBCAS -- PARAMETER CASE TABLE FOR CVTDBO AND CVTDBT INSTRUCTIONS
6529 ; **********************************************************************
6530
6531 037104 777777 777741 CDBCAS-CDBEND ;NEGATIVE TABLE LENGTH
6532 037105 000100 200004 CDBCAS: OFF1!S44!MFL1
6533 037106 000100 100124 DATA2!OFF1!STRL1!S44!NFL1
6534 037107 000100 300244 DATA1!OFF1!STRL0!S44!MFL1!NFL1
6535 037110 000100 700360 DATA1!DATA2!STRL0!STRL1!S44!SFL1!MFL1!NFL1
6536 037111 000100 400404 DATA0!OFF1!S44!SFL1
6537 037112 000100 600524 DATA0!DATA2!OFF1!STRL1!S44!SFL1!MFL1
6538 037113 000100 500644 DATA0!DATA1!OFF1!STRL0!S44!SFL1!NFL1
6539 037114 000100 200764 DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44!MFL1
6540 037115 000000 100064 OFF1!STRL0!STRL1!NFL1
6541 037116 000000 300144 DATA2!OFF1!STRL0!MFL1!NFL1
6542 037117 000000 400224 DATA1!OFF1!STRL1!SFL1
6543 037120 000000 600304 DATA1!DATA2!OFF1!SFL1!MFL1
6544 037121 000100 500464 DATA0!OFF1!STRL0!STRL1!S44!SFL1!NFL1
6545 037122 000100 000560 DATA0!DATA2!STRL0!STRL1!S44
6546 037123 000100 000644 DATA0!DATA1!OFF1!STRL0!S44
6547 037124 000100 700744 DATA0!DATA1!DATA2!OFF1!STRL0!S44!SFL1!NFL1!MFL1
6548 037125 000100 400044 OFF1!STRL0!S44!SFL1
6549 037126 000000 000164 DATA2!OFF1!STRL0!STRL1
6550 037127 000000 100220 DATA1!STRL1!NFL1
6551 037130 000000 200364 DATA1!DATA2!OFF1!STRL0!STRL1!MFL1
6552 037131 000000 400464 DATA0!OFF1!STRL0!STRL1!SFL1
6553 037132 000000 500564 DATA0!DATA2!OFF1!STRL0!STRL1!SFL1!NFL1
6554 037133 000100 600664 DATA0!DATA1!OFF1!STRL0!STRL1!S44!SFL1!MFL1
6555 037134 000100 700764 DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44!SFL1!NFL1!MFL1
6556 037135 000100 000064 OFF1!STRL0!STRL1!S44
6557 037136 000100 000164 DATA2!OFF1!STRL0!STRL1!S44
6558 037137 000100 000264 DATA1!OFF1!STRL0!STRL1!S44
6559 037140 000100 000364 DATA1!DATA2!OFF1!STRL0!STRL1!S44
6560 037141 000000 000464 DATA0!OFF1!STRL0!STRL1
6561 037142 000000 000564 DATA0!DATA2!OFF1!STRL0!STRL1
6562 037143 000100 000664 DATA0!DATA1!OFF1!STRL0!STRL1!S44
6563 037144 000100 000764 CDBEND: DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 20
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION CASE TABLES SEQ 0204
6564
6565 ; **********************************************************************
6566 ;*CBDCAS -- PARAMETER CASE TABLE FOR CVTBD0 AND CVTBDT INSRUCTIONS
6567 ; **********************************************************************
6568
6569 037145 777777 777741 CBDCAS-CBDEND ;NEGATIVE TABLE LENGTH
6570 037146 000100 000000 CBDCAS: S44
6571 037147 000100 000120 DATA2!STRL1!S44
6572 037150 000100 000240 DATA1!STRL0!S44
6573 037151 000100 400360 DATA1!DATA2!STRL0!STRL1!S44!SFL1
6574 037152 000000 400400 DATA0!SFL1
6575 037153 000100 000520 DATA0!DATA2!STRL1!S44
6576 037154 000100 000640 DATA0!DATA1!STRL0!S44
6577 037155 000100 400764 DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44!SFL1
6578 037156 000000 000060 STRL0!STRL1
6579 037157 000000 400140 DATA2!STRL0!SFL1
6580 037160 000000 000220 DATA1!STRL1
6581 037161 000000 000300 DATA1!DATA2
6582 037162 000100 400460 DATA0!STRL0!STRL1!S44!SFL1
6583 037163 000100 400560 DATA0!DATA2!STRL0!STRL1!S44!SFL1
6584 037164 000100 000640 DATA0!DATA1!STRL0!S44
6585 037165 000100 000740 DATA0!DATA1!DATA2!STRL0!S44
6586 037166 000100 000040 STRL0!S44
6587 037167 000000 000160 DATA2!STRL0!STRL1
6588 037170 000000 000220 DATA1!STRL1
6589 037171 000000 000360 DATA1!DATA2!STRL0!STRL1
6590 037172 000000 000460 DATA0!STRL0!STRL1
6591 037173 000000 000560 DATA0!DATA2!STRL0!STRL1
6592 037174 000100 000660 DATA0!DATA1!STRL0!STRL1!S44
6593 037175 000100 000760 DATA0!DATA1!DATA2!STRL0!STRL1!S44
6594 037176 000100 000060 STRL0!STRL1!S44
6595 037177 000100 000160 DATA2!STRL0!STRL1!S44
6596 037200 000100 000260 DATA1!STRL0!STRL1!S44
6597 037201 000100 000360 DATA1!DATA2!STRL0!STRL1!S44
6598 037202 000000 000460 DATA0!STRL0!STRL1
6599 037203 000000 000560 DATA0!DATA2!STRL0!STRL1
6600 037204 000100 000660 DATA0!DATA1!STRL0!STRL1!S44
6601 037205 000000 000760 CBDEND: DATA0!DATA1!DATA2!STRL0!STRL1
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 21
DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION CASE TABLES SEQ 0205
6602
6603 ; **********************************************************************
6604 ;*EDTCAS -- PARAMETER CASE TABLE FOR EDIT INSTRUCTION
6605 ; **********************************************************************
6606
6607 037206 777777 777741 EDTCAS-EDTEND ;NEGATIVE TABLE LENGTH
6608 037207 001000 000000 EDTCAS: EQFIL
6609 037210 000400 201000 MFL1!LFILL!C6A
6610 037211 000200 102000 NFL1!GFILL!C5A
6611 037212 001000 303000 MFL1!NFL1!EQFIL!C5A!C6A
6612 037213 000400 404000 SFL1!LFILL!C4A
6613 037214 000200 605000 SFL1!MFL1!GFILL!C4A!C6A
6614 037215 001000 506000 SFL1!NFL1!EQFIL!C4A!C5A
6615 037216 000400 707000 SFL1!MFL1!NFL1!LFILL!C4A!C5A!C6A
6616 037217 000200 000001 PB2!GFILL
6617 037220 001000 210001 MFL1!PB2!EQFIL!C3A
6618 037221 000400 120001 NFL1!PB2!LFILL!C2A
6619 037222 000200 330001 MFL1!NFL1!PB2!GFILL!C2A!C3A
6620 037223 001000 440001 SFL1!PB2!EQFIL!C1A
6621 037224 000400 650001 SFL1!MFL1!PB2!LFILL!C1A!C3A
6622 037225 000200 560001 SFL1!NFL1!PB2!GFILL!C1A!C2A
6623 037226 001000 770001 SFL1!MFL1!NFL1!PB2!EQFIL!C1A!C2A!C3A
6624 037227 000400 000002 PB1!LFILL
6625 037230 000200 241002 MFL1!PB1!GFILL!C1A!C6A
6626 037231 001000 122002 NFL1!PB1!EQFIL!C2A!C5A
6627 037232 000400 311002 MFL1!NFL1!PB1!LFILL!C3A!C6A
6628 037233 000200 477002 SFL1!PB1!GFILL!C1A!C2A!C3A!C4A!C5A!C6A
6629 037234 001000 650002 SFL1!MFL1!PB1!EQFIL!C1A!C3A
6630 037235 000400 542002 SFL1!NFL1!PB1!LFILL!C1A!C5A
6631 037236 000200 740002 SFL1!MFL1!NFL1!PB1!GFILL!C1A
6632 037237 001000 020003 PB1!PB2!EQFIL!C2A
6633 037240 000400 210003 MFL1!PB1!PB2!LFILL!C3A
6634 037241 000200 104003 NFL1!PB1!PB2!GFILL!C4A
6635 037242 001000 302003 MFL1!NFL1!PB1!PB2!EQFIL!C5A
6636 037243 000400 401003 SFL1!PB1!PB2!LFILL!C6A
6637 037244 000200 640003 SFL1!MFL1!PB1!PB2!GFILL!C1A
6638 037245 001000 520003 SFL1!NFL1!PB1!PB2!EQFIL!C2A
6639 037246 000400 710003 EDTEND: SFL1!MFL1!NFL1!PB1!PB2!LFILL!C3A
6640
6641 037247 000000 400000 MCASE: SFL1 ;CASE WORD FOR SPECIAL MESSAGES
6642
6643 037250 000000 000011 MESSGS: 11 ;OUT OF SEQUENCE ASCII CODES
6644 037251 000000 000012 12
6645 037252 000000 000013 13
6646 037253 000000 000014 14
6647 037254 000000 000015 15
6648 037255 000000 000032 32
6649
6650 ;END OF FILE
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0206
6651 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978
6652
6653 ;PROGRAM LITERALS
6654
6655 XLIST
6656 IFNDEF $LPAPER,<LIST>
6657 037256 LIT
6658 037256 45 70 64 45 56 44
6659 037257 45 44 00 57 60 45
6660 037260 62 41 64 57 62 00
6661 037261 45 70 45 43 65 64
6662 037262 51 57 56 00 64 62
6663 037263 41 60 00 64 45 63
6664 037264 64 77 00 00 00 00
6665 037265 260 17 0 00 034747
6666 037266 33 11 0 00 030635
6667 037267 76 43 57 62 62 45
6668 037270 43 64 35 51 56 63
6669 037271 64 62 65 43 64 51
6670 037272 57 56 77 00 00 00
6671 037273 51 54 54 45 47 41
6672 037274 54 00 51 56 63 64
6673 037275 62 65 43 64 51 57
6674 037276 56 00 45 70 45 43
6675 037277 65 64 51 57 56 00
6676 037300 46 41 51 54 45 44
6677 037301 00 64 57 00 43 41
6678 037302 65 63 45 00 54 65
6679 037303 65 57 77 00 00 00
6680 037304 037256 037267
6681 037305 030635 000000
6682 037306 037273 000000
6683 037307 51 54 54 45 47 41
6684 037310 54 00 45 70 64 45
6685 037311 56 44 45 44 00 57
6686 037312 60 45 62 41 64 57
6687 037313 62 00 64 62 41 60
6688 037314 00 64 45 63 64 77
6689 037315 57 65 64 00 57 46
6690 037316 00 62 41 56 47 45
6691 037317 00 57 60 45 62 41
6692 037320 64 57 62 00 46 41
6693 037321 51 54 45 44 00 64
6694 037322 57 00 64 62 41 60
6695 037323 77 00 00 00 00 00
6696 037324 037307 037267
6697 037325 035564 000000
6698 037326 037315 000000
6699 037327 51 54 54 45 47 41
6700 037330 54 00 41 43 00 46
6701 037331 51 45 54 44 00 42
6702 037332 51 64 63 00 31 15
6703 037333 21 22 00 46 41 51
6704 037334 54 45 44 00 64 57
6705 037335 00 64 62 41 60 77
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0207
6706 037336 037307 037267
6707 037337 035564 000000
6708 037340 037327 000000
6709 037341 51 54 54 45 47 41
6710 037342 54 00 41 43 00 46
6711 037343 51 45 54 44 00 64
6712 037344 62 41 60 00 64 45
6713 037345 63 64 77 00 00 00
6714 037346 43 00 0 00 035774
6715 037347 43 00 0 00 036020
6716 037350 76 43 57 62 62 45
6717 037351 43 64 35 63 57 65
6718 037352 62 43 45 00 54 45
6719 037353 56 47 64 50 77 00
6720 037354 51 54 54 45 47 41
6721 037355 54 00 63 57 65 62
6722 037356 43 45 00 54 45 56
6723 037357 47 64 50 00 51 56
6724 037360 00 43 57 55 60 41
6725 037361 62 45 00 51 56 63
6726 037362 64 62 00 44 51 44
6727 037363 56 07 64 00 43 41
6728 037364 65 63 45 00 64 62
6729 037365 41 60 77 00 00 00
6730 037366 037341 037350
6731 037367 000010 000000
6732 037370 037354 000000
6733 037371 76 43 57 62 62 45
6734 037372 43 64 35 44 45 63
6735 037373 64 51 56 41 64 51
6736 037374 57 56 00 54 45 56
6737 037375 47 64 50 77 00 00
6738 037376 51 54 54 45 47 41
6739 037377 54 00 44 45 63 64
6740 037400 51 56 00 54 45 56
6741 037401 47 64 50 00 51 56
6742 037402 00 43 57 55 60 41
6743 037403 62 45 00 51 56 63
6744 037404 64 62 00 44 51 44
6745 037405 56 07 64 00 43 41
6746 037406 65 63 45 00 64 62
6747 037407 41 60 77 00 00 00
6748 037410 037341 037371
6749 037411 000013 000000
6750 037412 037376 000000
6751 037413 51 54 54 45 47 41
6752 037414 54 00 44 54 45 56
6753 037415 00 51 56 00 55 57
6754 037416 66 45 00 63 64 62
6755 037417 51 56 47 00 51 56
6756 037420 63 64 62 00 44 51
6757 037421 44 56 07 64 00 43
6758 037422 41 65 63 45 00 64
6759 037423 62 41 60 77 00 00
6760 037424 037341 037371
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-2
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0208
6761 037425 000013 000000
6762 037426 037413 000000
6763 037427 76 43 57 62 62 45
6764 037430 43 64 35 60 41 64
6765 037431 64 45 62 56 00 60
6766 037432 57 51 56 64 45 62
6767 037433 77 00 00 00 00 00
6768 037434 51 54 54 45 47 41
6769 037435 54 00 60 41 64 64
6770 037436 45 62 56 00 60 57
6771 037437 51 56 64 45 62 00
6772 037440 46 51 45 54 44 00
6773 037441 51 56 00 45 44 51
6774 037442 64 00 51 56 63 64
6775 037443 62 00 44 51 44 56
6776 037444 07 64 00 43 41 65
6777 037445 63 45 00 64 62 41
6778 037446 60 77 00 00 00 00
6779 037447 037341 037427
6780 037450 000010 000000
6781 037451 037434 000000
6782 037452 43 57 55 60 41 62
6783 037453 45 00 63 64 62 51
6784 037454 56 47 00 51 56 63
6785 037455 64 62 65 43 64 51
6786 037456 57 56 00 64 45 63
6787 037457 64 77 00 00 00 00
6788 037460 76 43 55 60 70 70
6789 037461 00 60 41 64 64 45
6790 037462 62 56 00 56 57 64
6791 037463 00 63 45 54 45 43
6792 037464 64 45 44 00 15 00
6793 037465 41 42 57 62 64 51
6794 037466 56 47 00 43 65 62
6795 037467 62 45 56 64 00 43
6796 037470 41 63 45 77 00 00
6797 037471 76 41 42 57 62 64
6798 037472 51 56 47 00 43 65
6799 037473 62 62 45 56 64 00
6800 037474 43 41 63 45 00 15
6801 037475 00 46 51 54 54 45
6802 037476 62 00 60 41 64 64
6803 037477 45 62 56 00 56 57
6804 037500 64 00 63 60 45 43
6805 037501 51 46 51 45 44 77
6806 037502 44 05 0 00 035774
6807 037503 44 44 0 00 035774
6808 037504 44 05 0 00 036020
6809 037505 44 44 0 00 036020
6810 037506 000010 035762
6811 037507 037452 037323
6812 037510 000000 000000
6813 037511 037323 034274
6814 037512 55 57 66 45 00 63
6815 037513 64 62 51 56 47 00
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-3
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0209
6816 037514 51 56 63 64 62 65
6817 037515 43 64 51 57 56 00
6818 037516 64 45 63 64 77 00
6819 037517 76 55 57 66 70 70
6820 037520 00 60 41 64 64 45
6821 037521 62 56 00 56 57 64
6822 037522 00 63 45 54 45 43
6823 037523 64 45 44 00 15 00
6824 037524 41 42 57 62 64 51
6825 037525 56 47 00 43 65 62
6826 037526 62 45 56 64 00 43
6827 037527 41 63 45 77 00 00
6828 037530 037512 037323
6829 037531 000000 000000
6830 037532 037323 034360
6831 037533 000001 000001
6832 037534 43 57 56 66 45 62
6833 037535 64 00 44 45 43 51
6834 037536 55 41 54 00 64 57
6835 037537 00 42 51 56 41 62
6836 037540 71 00 51 56 63 64
6837 037541 62 65 43 64 51 57
6838 037542 56 00 64 45 63 64
6839 037543 77 00 00 00 00 00
6840 037544 44 10 0 00 035774
6841 037545 000777 777777
6842 037546 037534 037323
6843 037547 000000 000000
6844 037550 037323 034451
6845 037551 400000 400001
6846 037552 43 57 56 66 45 62
6847 037553 64 00 42 51 56 41
6848 037554 62 71 00 64 57 00
6849 037555 44 45 43 51 55 41
6850 037556 54 00 51 56 63 64
6851 037557 62 65 43 64 51 57
6852 037560 56 00 64 45 63 64
6853 037561 77 00 00 00 00 00
6854 037562 44 10 0 00 036020
6855 037563 037552 037323
6856 037564 000000 000000
6857 037565 037323 034522
6858 037566 45 44 51 64 00 51
6859 037567 56 63 64 62 65 43
6860 037570 64 51 57 56 00 64
6861 037571 45 63 64 77 00 00
6862 037572 45 44 51 64 00 15
6863 037573 00 63 64 57 60 00
6864 037574 10 20 20 21 11 00
6865 037575 60 41 64 64 45 62
6866 037576 56 00 42 71 64 45
6867 037577 00 64 71 60 45 00
6868 037600 64 45 63 64 77 00
6869 037601 036246 036247
6870 037602 44 00 0 00 035774
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-4
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0210
6871 037603 037572 037323
6872 037604 000000 000000
6873 037605 037323 034603
6874 037606 45 44 51 64 00 15
6875 037607 00 45 70 43 50 55
6876 037610 44 00 10 20 20 24
6877 037611 11 00 60 41 64 64
6878 037612 45 62 56 00 42 71
6879 037613 64 45 00 64 71 60
6880 037614 45 00 64 45 63 64
6881 037615 77 00 00 00 00 00
6882 037616 037606 037323
6883 037617 000000 000000
6884 037620 037323 034603
6885 037621 45 44 51 64 00 15
6886 037622 00 63 51 47 63 64
6887 037623 00 10 20 20 22 11
6888 037624 00 60 41 64 64 45
6889 037625 62 56 00 42 71 64
6890 037626 45 00 64 71 60 45
6891 037627 00 64 45 63 64 77
6892 037630 037621 037323
6893 037631 000000 000000
6894 037632 037323 034603
6895 037633 45 44 51 64 00 15
6896 037634 00 46 54 44 63 45
6897 037635 60 00 10 20 20 23
6898 037636 11 00 60 41 64 64
6899 037637 45 62 56 00 42 71
6900 037640 64 45 00 64 71 60
6901 037641 45 00 64 45 63 64
6902 037642 77 00 00 00 00 00
6903 037643 037633 037323
6904 037644 000000 000000
6905 037645 037323 034603
6906 037646 45 44 51 64 00 15
6907 037647 00 55 45 63 63 41
6908 037650 47 00 10 21 70 70
6909 037651 11 00 60 41 64 64
6910 037652 45 62 56 00 42 71
6911 037653 64 45 00 64 71 60
6912 037654 45 00 64 45 63 64
6913 037655 77 00 00 00 00 00
6914 037656 037646 037323
6915 037657 000000 000000
6916 037660 037323 034603
6917 037661 037250 035565
6918 037662 45 44 51 64 00 15
6919 037663 00 56 57 60 00 10
6920 037664 20 20 25 11 00 60
6921 037665 41 64 64 45 62 56
6922 037666 00 42 71 64 45 00
6923 037667 64 71 60 45 00 64
6924 037670 45 63 64 77 00 00
6925 037671 037662 037323
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-5
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0211
6926 037672 000000 000000
6927 037673 037323 034603
6928 037674 45 44 51 64 00 15
6929 037675 00 63 53 60 55 00
6930 037676 10 25 70 70 11 00
6931 037677 60 41 64 64 45 62
6932 037700 56 00 42 71 64 45
6933 037701 00 64 71 60 45 00
6934 037702 64 45 63 64 63 77
6935 037703 037674 037323
6936 037704 000000 000000
6937 037705 037323 034603
6938 037706 45 44 51 64 00 15
6939 037707 00 63 53 60 56 00
6940 037710 10 26 70 70 11 00
6941 037711 60 41 64 64 45 62
6942 037712 56 00 42 71 64 45
6943 037713 00 64 71 60 45 00
6944 037714 64 45 63 64 63 77
6945 037715 037706 037323
6946 037716 000000 000000
6947 037717 037323 034603
6948 037720 45 44 51 64 00 15
6949 037721 00 63 53 60 41 00
6950 037722 10 27 70 70 11 00
6951 037723 60 41 64 64 45 62
6952 037724 56 00 42 71 64 45
6953 037725 00 64 71 60 45 00
6954 037726 64 45 63 64 63 77
6955 037727 037720 037323
6956 037730 000000 000000
6957 037731 037323 034603
6958 037732 45 44 51 64 00 15
6959 037733 00 63 45 54 45 43
6960 037734 64 00 10 20 20 21
6961 037735 11 00 60 41 64 64
6962 037736 45 62 56 00 42 71
6963 037737 64 45 00 64 71 60
6964 037740 45 00 64 45 63 64
6965 037741 77 00 00 00 00 00
6966 037742 037732 037323
6967 037743 000000 000000
6968 037744 037323 034603
6969 037745 45 44 51 64 00 15
6970 037746 00 56 57 56 00 44
6971 037747 45 46 51 56 45 44
6972 037750 00 60 41 64 64 45
6973 037751 62 56 00 42 71 64
6974 037752 45 00 64 71 60 45
6975 037753 00 64 45 63 64 77
6976 037754 037745 037323
6977 037755 000000 000000
6978 037756 037323 034603
6979 037757 60 41 47 45 00 46
6980 037760 41 51 54 00 64 45
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-6
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0212
6981 037761 63 64 51 56 47 77
6982 037762 60 41 47 45 00 46
6983 037763 41 51 54 00 64 45
6984 037764 63 64 51 56 47 00
6985 037765 57 46 00 64 50 45
6986 037766 00 43 57 55 60 41
6987 037767 62 45 00 51 56 63
6988 037770 64 62 65 43 64 51
6989 037771 57 56 63 77 00 00
6990 037772 075750 075751
6991 037773 33 11 0 00 400777
6992 037774 000000 032700
6993 037775 000000 032675
6994 037776 76 45 70 64 45 56
6995 037777 44 00 51 56 63 64
6996 040000 00 44 51 44 00 56
6997 040001 57 64 00 60 41 47
6998 040002 45 00 46 41 51 54
6999 040003 77 00 00 00 00 00
7000 040004 037762 037776
7001 040005 000000 000000
7002 040006 037323 035363
7003 040007 76 45 70 64 45 56
7004 040010 44 00 51 56 63 64
7005 040011 00 60 41 47 45 00
7006 040012 46 41 51 54 45 44
7007 040013 00 55 57 62 45 00
7008 040014 64 50 41 56 00 57
7009 040015 56 43 45 77 00 00
7010 040016 037762 040007
7011 040017 000000 000000
7012 040020 037323 035016
7013 040021 76 51 56 64 45 62
7014 040022 55 45 44 51 41 64
7015 040023 45 00 60 41 47 45
7016 040024 00 46 41 51 54 00
7017 040025 62 45 63 65 54 64
7018 040026 63 00 45 62 62 57
7019 040027 62 77 00 00 00 00
7020 040030 037762 040021
7021 040031 000000 000000
7022 040032 037323 035016
7023 040033 76 46 51 56 41 54
7024 040034 00 41 43 07 63 00
7025 040035 51 56 43 57 62 62
7026 040036 45 43 64 77 00 00
7027 040037 037762 040033
7028 040040 000000 000000
7029 040041 037323 035210
7030 040042 60 41 47 45 00 46
7031 040043 41 51 54 00 64 45
7032 040044 63 64 51 56 47 00
7033 040045 57 46 00 55 57 66
7034 040046 45 00 63 64 62 51
7035 040047 56 47 00 51 56 63
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-7
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0213
7036 040050 64 62 65 43 64 51
7037 040051 57 56 63 77 00 00
7038 040052 000000 033030
7039 040053 000000 033025
7040 040054 040042 037776
7041 040055 000000 000000
7042 040056 037323 035363
7043 040057 040042 040007
7044 040060 000000 000000
7045 040061 037323 035016
7046 040062 040042 040021
7047 040063 000000 000000
7048 040064 037323 035016
7049 040065 040042 040033
7050 040066 000000 000000
7051 040067 037323 035210
7052 040070 60 41 47 45 00 46
7053 040071 41 51 54 00 64 45
7054 040072 63 64 51 56 47 00
7055 040073 57 46 00 43 66 64
7056 040074 44 42 70 00 51 56
7057 040075 63 64 62 65 43 64
7058 040076 51 57 56 63 77 00
7059 040077 000000 033160
7060 040100 000000 033155
7061 040101 040070 037776
7062 040102 000000 000000
7063 040103 037323 035363
7064 040104 040070 040007
7065 040105 000000 000000
7066 040106 037323 035016
7067 040107 040070 040021
7068 040110 000000 000000
7069 040111 037323 035016
7070 040112 040070 040033
7071 040113 000000 000000
7072 040114 037323 035210
7073 040115 60 41 47 45 00 46
7074 040116 41 51 54 00 64 45
7075 040117 63 64 51 56 47 00
7076 040120 57 46 00 43 66 64
7077 040121 42 44 57 00 51 56
7078 040122 63 64 62 65 43 64
7079 040123 51 57 56 63 77 00
7080 040124 000000 033310
7081 040125 000000 033305
7082 040126 040115 037776
7083 040127 000000 000000
7084 040130 037323 035363
7085 040131 040115 040007
7086 040132 000000 000000
7087 040133 037323 035016
7088 040134 040115 040021
7089 040135 000000 000000
7090 040136 037323 035016
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-8
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0214
7091 040137 040115 040033
7092 040140 000000 000000
7093 040141 037323 035210
7094 040142 60 41 47 45 00 46
7095 040143 41 51 54 00 64 45
7096 040144 63 64 51 56 47 00
7097 040145 57 46 00 64 50 45
7098 040146 00 45 44 51 64 00
7099 040147 51 56 63 64 62 65
7100 040150 43 64 51 57 56 63
7101 040151 77 00 00 00 00 00
7102 040152 000000 033440
7103 040153 000000 033435
7104 040154 040142 037776
7105 040155 000000 000000
7106 040156 037323 035363
7107 040157 040142 040007
7108 040160 000000 000000
7109 040161 037323 035016
7110 040162 040142 040021
7111 040163 000000 000000
7112 040164 037323 035016
7113 040165 040142 040033
7114 040166 000000 000000
7115 040167 037323 035210
7116 040170 035762 000010
7117 040171 000010 035767
7118 040172 300600 000014
7119 040173 17 02 0 00 000007
7120 040174 255 00 0 00 000000
7121 040175 254 00 0 00 033663
7122 040176 621 06 0 00 100000
7123 040177 661 06 0 00 100000
7124 040200 003300 000010
7125 040201 777000 000000
7126 040202 255 00 0 00 000000
7127 040203 254 00 0 00 033772
7128 040204 621 10 0 00 100000
7129 040205 661 10 0 00 100000
7130 040206 00 11 0 00 000013
7131 040207 047121 545107
7132 040210 104130 000000
7133 040211 035762 035767
7134 040212 036120 036121
7135 040213 17 02 0 00 000003
7136 040214 255 00 0 00 000000
7137 040215 254 00 0 00 034177
7138 040216 621 10 0 00 100000
7139 040217 661 10 0 00 100000
7140 040220 76 63 57 65 62 43
7141 040221 45 00 63 64 62 51
7142 040222 56 47 32 00 77 00
7143 040223 76 44 45 63 64 51
7144 040224 56 00 63 64 62 51
7145 040225 56 47 32 00 77 00
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-9
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0215
7146 040226 76 45 20 13 21 32
7147 040227 00 77 00 00 00 00
7148 040230 76 45 20 13 22 32
7149 040231 00 77 00 00 00 00
7150 040232 000000 000100
7151 040233 76 63 57 65 62 43
7152 040234 45 00 63 64 62 51
7153 040235 56 47 32 77 00 00
7154 040236 00 11 0 00 035762
7155 040237 76 43 57 62 62 45
7156 040240 43 64 00 44 45 63
7157 040241 64 51 56 41 64 51
7158 040242 57 56 00 63 64 62
7159 040243 51 56 47 32 77 00
7160 040244 76 41 43 64 65 41
7161 040245 54 00 44 45 63 64
7162 040246 51 56 41 64 51 57
7163 040247 56 00 63 64 62 51
7164 040250 56 47 32 77 00 00
7165 040251 777777 777700
7166 040252 76 63 51 55 65 54
7167 040253 41 64 45 44 00 44
7168 040254 45 63 64 51 56 41
7169 040255 64 51 57 56 00 63
7170 040256 64 62 51 56 47 32
7171 040257 77 00 00 00 00 00
7172 040260 00 11 0 00 035765
7173 040261 76 60 41 64 64 45
7174 040262 62 56 00 42 71 64
7175 040263 45 00 64 71 60 45
7176 040264 00 65 56 44 45 62
7177 040265 00 64 45 63 64 32
7178 040266 00 77 00 00 00 00
7179 040267 76 45 20 13 21 32
7180 040270 77 00 00 00 00 00
7181 040271 76 45 20 13 22 32
7182 040272 77 00 00 00 00 00
7183 040273 000400 000431
7184 040274 035562 035542
7185 040275 55 65 65 57 00 57
7186 040276 60 45 62 41 64 51
7187 040277 57 56 77 00 00 00
7188 040300 76 43 57 62 62 45
7189 040301 43 64 35 55 65 65
7190 040302 57 76 41 43 64 65
7191 040303 41 54 35 55 65 65
7192 040304 57 00 60 43 77 00
7193 040305 65 56 45 70 60 45
7194 040306 43 64 45 44 00 55
7195 040307 65 65 57 00 57 43
7196 040310 43 65 62 45 44 77
7197 040311 040275 040300
7198 040312 000001 000002
7199 040313 040305 000000
7200 040314 76 43 57 62 62 45
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-10
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0216
7201 040315 43 64 35 55 65 65
7202 040316 57 00 60 43 77 00
7203 040317 040275 040314
7204 040320 000001 000000
7205 040321 040305 000000
7206 040322 54 65 65 57 00 57
7207 040323 60 45 62 41 64 51
7208 040324 57 56 77 00 00 00
7209 040325 76 43 57 62 62 45
7210 040326 43 64 35 54 65 65
7211 040327 57 76 41 43 64 65
7212 040330 41 54 35 54 65 65
7213 040331 57 00 60 43 77 00
7214 040332 65 56 45 70 60 45
7215 040333 43 64 45 44 00 54
7216 040334 65 65 57 00 57 43
7217 040335 43 65 62 45 44 77
7218 040336 040322 040325
7219 040337 000001 000002
7220 040340 040332 000000
7221 040341 740075 740076
7222 040342 60 41 47 45 00 46
7223 040343 41 51 54 77 00 00
7224 040344 60 41 47 45 00 46
7225 040345 41 51 54 00 60 43
7226 040346 00 67 62 57 56 47
7227 040347 77 00 00 00 00 00
7228 040350 040342 040344
7229 040351 000006 000007
7230 040352 037323 035155
7231 040353 51 56 64 45 62 55
7232 040354 45 44 51 41 64 45
7233 040355 00 41 43 00 51 56
7234 040356 43 57 62 62 45 43
7235 040357 64 77 00 00 00 00
7236 040360 41 43 77 00 00 00
7237 040361 040342 040353
7238 040362 000007 000010
7239 040363 040360 035155
7240 040364 41 43 13 21 77 00
7241 040365 040342 040353
7242 040366 000007 000011
7243 040367 040364 035155
7244 040370 41 43 13 22 77 00
7245 040371 040342 040353
7246 040372 000007 000012
7247 040373 040370 035155
7248 040374 41 43 13 23 77 00
7249 040375 040342 040353
7250 040376 000007 000013
7251 040377 040374 035155
7252 040400 41 43 13 24 77 00
7253 040401 040342 040353
7254 040402 000007 000014
7255 040403 040400 035155
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-11
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0217
7256 040404 004000 035650
7257 040405 76 51 56 63 64 62
7258 040406 65 43 64 51 57 56
7259 040407 32 00 77 00 00 00
7260 040410 036363 035650
7261 040411 000200 000201
7262 040412 100000 400000
7263 040413 035774 035775
7264 040414 036020 036021
7265 040415 015 012 101 103 040
7266 040416 102 114 117 103 113
7267 040417 123 072 011 040 040
7268 040420 040 040 040 040 040
7269 040421 055 055 055 055 040
7270 040422 106 111 116 101 114
7271 040423 040 055 055 055 055
7272 040424 015 012 040 040 040
7273 040425 117 122 111 107 111
7274 040426 116 101 114 011 040
7275 040427 040 040 103 117 122
7276 040430 122 105 103 124 011
7277 040431 040 040 040 101 103
7278 040432 124 125 101 114 015
7279 040433 012 000 000 000 000
7280 040434 76 51 56 63 64 62
7281 040435 65 43 64 51 57 56
7282 040436 00 55 41 44 45 00
7283 040437 41 56 00 51 56 43
7284 040440 57 62 62 45 43 64
7285 040441 00 77 00 00 00 00
7286 040442 63 53 51 60 00 00
7287 040443 56 15 63 53 51 60
7288 040444 00 62 45 64 65 62
7289 040445 56 76 77 00 00 00
7290 040446 077777 777777
7291 040447 76 43 41 63 45 00
7292 040450 03 00 77 00 00 00
7293 040451 76 64 62 41 56 63
7294 040452 54 41 64 51 57 56
7295 040453 00 64 41 42 54 45
7296 040454 32 77 00 00 00 00
7297 040455 76 43 57 44 45 75
7298 040456 46 65 56 43 64 51
7299 040457 57 56 75 43 57 44
7300 040460 45 75 46 65 56 43
7301 040461 64 51 57 56 76 77
7302 040462 75 75 77 00 00 00
7303 040463 061 061 070 060 065
7304 040464 071 061 066 062 060
7305 040465 067 061 067 064 061
7306 040466 061 063 060 063 064
7307 040467 062 064 000 000 000
7308 040470 061 061 070 060 065
7309 040471 071 061 066 062 060
7310 040472 067 061 067 064 061
DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-12
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0218
7311 040473 061 063 060 063 064
7312 040474 062 063 000 000 000
7313 040475 071 070 067 066 065
7314 040476 064 060 000 000 000
7315 040477 061 000 000 000 000
7316 040500 060 000 000 000 000
7317 040501 066 071 067 000 000
7318 040502 061 062 063 064 065
7319 040503 066 000 000 000 000
7320 LIST
7321 041035 000000 000000 ENDSLD: 0
7322
7323 IFDEF DEBUG,<
7324 041036 PATCH: BLOCK DEBUG ;PATCHING AREA
7325 >
7326
7327 ;PROGRAM VARIABLES
7328 041136 VAR
7329
7330 IFDEF PGMEND,<
7331 041177 000000 000000 END: 0
7332 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 041200
CPU TIME USED 00:29.024
70P CORE USED
ABORT 488#
AC 66# 1181 1182 1190 1206 1207 1215 1255 1271 1276 1283 1286 1287 1291 SEQ 0219
1299 1302 1321 1326 1334 1361 1362 1366 1374 1599 1610 1849 1860 2044
2053 2201 2210 2304 2383 2460 2532 2610 2656 2665 2738 2810 2882 2954
3031 3103 3242 3244 3265 3272 3403 3405 3426 3433 3564 3566 3587 3594
3725 3727 3748 3755 3886 3888 3909 3916 4022 4023 4093 4094 4096 4097
4237 4238 4338 4339 4400 4474 4475 5503 5506 5509 5512 5515 5573 5576
5579 5582 5585
AC0 83# 1543 1544 1553 1554 1568 1571 1576 1584 1589 1599 1600 1649 1663
1776 1778 1784 1786 1789 1790 1793 1794 1813 1836 1849 1850 1889 1891
1919 1922 1997 1998 2001 2003 2023 2044 2045 2113 2116 2180 2201 2202
2263 2267 2280 2281 2292 2293 2342 2346 2359 2360 2371 2372 2419 2423
2436 2437 2448 2449 2491 2495 2508 2509 2520 2521 2569 2573 2586 2587
2598 2599 2631 2632 2634 2638 2639 2645 2646 2647 2650 2651 2656 2657
2697 2701 2714 2715 2726 2727 2769 2773 2786 2787 2798 2799 2841 2845
2858 2859 2870 2871 2913 2917 2930 2931 2942 2943 2990 2994 3007 3008
3019 3020 3062 3066 3079 3080 3091 3092 3164 3165 3188 3189 3192 3195
3196 3197 3198 3200 3201 3216 3217 3221 3222 3227 3230 3235 3237 3238
3240 3244 3245 3248 3250 3317 3318 3319 3320 3349 3350 3353 3356 3357
3358 3359 3361 3362 3377 3378 3382 3383 3388 3391 3396 3398 3399 3401
3405 3406 3409 3411 3478 3479 3480 3481 3510 3511 3514 3517 3518 3519
3520 3522 3523 3538 3539 3543 3544 3549 3552 3557 3559 3560 3562 3566
3567 3570 3572 3639 3640 3641 3642 3671 3672 3675 3678 3679 3680 3681
3683 3684 3699 3700 3704 3705 3710 3713 3718 3720 3721 3723 3727 3728
3731 3733 3800 3801 3802 3803 3832 3833 3836 3839 3840 3841 3842 3844
3845 3860 3861 3865 3866 3871 3874 3879 3881 3882 3884 3888 3889 3892
3894 3961 3962 3963 3964 4022 4023 4078 4080 4093 4094 4223 4224 4237
4238 4321 4323 4338 4339 4344 4400 4401 4455 4456 4458 4459 4462 4463
4474 4475 4543 4544 4679 4680 4704 4740 4748 4750 4751 4772 4773 4774
4778 4781 4814 4815 4827 4835 4836 4863 4887 4895 4897 4898 4916 4917
4918 4922 4925 4955 4966 4968 4969 4990 4992 4994 4998 5001 5007 5016
5017 5047 5056 5068 5119 5127 5134 5138 5178 5183 5256 5257 5383 5384
5386 5387 5394 5395 5397 5398 5405 5406 5408 5409 5420 5421 5426 5431
5432 5439 5460 5461 5469 5475 5480 5494 5495 5536 5539 5542 5554 5555
5557 5558 5572 5575 5578 5581 5584 5589 5590 5636 5639 5640 5643 5644
5647 5648 5650 5657 5662 5663 5670 5679 5703 5713 5721 5726 5728 5734
5743 5755 5767 5774 5778 5779 5780 5784 5791 5793 5794 5795 5797 5800
5808 5820 5821 5822 5826 5827 5833 5834 5835 5839 5840 5847
AC0SV 5598# 5598 5615
AC1 84# 1107 1109 1110 1839 1879 1882 1883 1886 1887 1891 1895 1932 1933
1942 1945 1948 1951 1981 2013 2071 2074 2075 2078 2081 2084 2087 2126
2127 2170 2286 2287 2365 2366 2442 2443 2514 2515 2592 2593 2635 2636
2638 2640 2642 2648 2720 2721 2792 2793 2864 2865 2936 2937 3013 3014
3085 3086 3180 3181 3188 3221 3324 3341 3342 3349 3382 3485 3502 3503
3510 3543 3646 3663 3664 3671 3704 3807 3824 3825 3832 3865 3968 4705
4710 4714 4719 4739 4782 4787 4791 4792 4797 4798 4804 4805 4826 4864
4867 4871 4872 4886 4926 4931 4937 4938 4944 4945 4954 5002 5010 5025
5033 5039 5067 5097 5111 5112 5153 5161 5164 5166 5171 5195 5203 5328
5335 5338 5341 5348 5358 5361 5364 5367 5380 5391 5402 5440 5443 5446
5449 5452 5455 5470 5472 5475 5479 5658 5660 5662 5663 5666 5669 5680
5686 5688 5692 5696 5700 5702 5712 5713 5744 5748 5752 5766 5780 5809
5811 5812 5820 5826 5833 5839 5844 5846
AC10 91# 5233 5290
AC10SV 5606# 5606 5623
AC11 92# 5237 5295 SEQ 0220
AC11SV 5607# 5607 5624
AC12 93# 4692 4763 4848 4910 4981 5241 5300
AC12SV 5608# 5608 5625
AC13 94# 4805 5245 5305
AC13SV 5609# 5609 5626
AC14 95# 5249 5310
AC14SV 5610# 5610 5627
AC15 96#
AC15SV 5611# 5611 5628
AC16SV 5612# 5612 5629
AC1SV 5599# 5599 5616
AC2 85# 1880 1884 1886 1890 1892 1894 2072 2076 2078 2079 2080 2086 2278
2279 2357 2358 2434 2435 2506 2507 2584 2585 2643 2646 2651 2712 2713
2784 2785 2856 2857 2928 2929 3005 3006 3077 3078 3186 3190 3322 3347
3351 3483 3508 3512 3644 3669 3673 3805 3830 3834 3966 4032 4033 4039
4054 4115 4123 4124 4126 4131 4139 4143 4145 4159 4347 4361 4366 4373
4377 4379 4415 4416 4425 4436 4438 4482 4483 4484 4562 4566 4624 4626
4627 4706 4715 4720 4738 4783 4793 4799 4800 4806 4825 4865 4873 4885
4927 4939 4940 4946 4953 5003 5026 5034 5035 5040 5066 5098 5154 5161
5196 5203 5755
AC2SV 5600# 5600 5617
AC3 86# 1990 1991 1995 2285 2286 2364 2365 2441 2442 2513 2514 2591 2592
2719 2720 2791 2792 2863 2864 2935 2936 3012 3013 3084 3085 3203 3320
3364 3481 3525 3642 3686 3803 3847 3964 4025 4045 4048 4050 4060 4063
4067 4069 4070 4372 4376 4380 4383 4386 4388 4391 4422 4432 4481 4482
4490 4492 4499 4500 4530 4531 4553 4554 4555 4556 4557 4559 4562 4570
4573 4574 4580 4581 4611 4612 4613 5572 5575 5578 5581 5584 5589
AC3SV 5601# 5601 5618
AC4 87# 1264 1305 1316 1339 1359 1379 1569 1580 1593 1839 1840 1841 1842
1843 1993 2003 3204 3318 3365 3479 3526 3640 3687 3801 3848 3962 4038
4041 4044 4047 4053 4056 4059 4062 4178 4182 4266 4270 4420 4423 4431
5006 5007 5021 5043 5050 5051 5059 5229 5236 5240 5244 5248 5286 5294
5299 5304 5309 5348 5349 5350 5351 5424 5431 5745 5750 5759 5765
AC4SV 5602# 5602 5619
AC5 88# 1265 1271 1287 1303 1315 1321 1337 1358 1362 1377 1933 1934 1935
1936 1943 1946 1949 1952 1981 1982 1983 1984 1998 2013 2014 2015 2016
2017 2127 2128 2129 2130 2158 2159 2160 2161 2170 2171 2172 2173 2174
4039 4041 4044 4047 4054 4056 4059 4062 4115 4144 4145 4146 4158 4247
4281 4420 4430 4434 4437 4443 4444 4447 4450 4452 5425 5428
AC5SV 5603# 5603 5620
AC6 89# 1132 1133 1142 1261 1262 1269 1307 1313 1318 1341 1430 1431 1436
1564 1602 1619 1637 1638 1645 1772 1789 1852 1869 1911 1912 1918 2062
2103 2104 2112 2219 4096 4176 4181 4182 4185 4186 4221 4240 4241 4252
4309 4415 4444 5225 5226 5280 5281
AC6SV 5604# 5604 5621
AC7 90# 1269 1270 1318 1320 1355 1357 1433 1434 1452 1472 1501 1618 1640
1641 1670 1687 1740 1868 1914 1915 2061 2106 2107 2218 2270 2271 2313
2349 2350 2392 2426 2427 2469 2498 2499 2541 2576 2577 2619 2653 2704
2705 2747 2776 2777 2819 2848 2849 2891 2920 2921 2963 2997 2998 3040
3069 3070 3112 4028 4029 4038 4053 4129 4135 4137 4152 4153 4158 4159
4162 4169 4170 4171 4172 4173 4175 4178 4184 4188 4189 4195 4197 4254
4258 4259 4260 4261 4263 4266 4272 4278 4281 4282 4284 4296 4297 4480
4481 4531 4610 4611 4614 4615 5224 5226 5229 5231 5233 5236 5237 5240 SEQ 0221
5241 5244 5245 5248 5249 5279 5281 5286 5288 5290 5294 5295 5299 5300
5304 5305 5309 5310 5328 5778
AC7SV 5605# 5605 5622
AFS 141# 6515 6522
ALD 140# 1592 6456 6462 6484 6487
ALS 139# 1579 6457 6468 6478 6493 6518 6525
ALTMGO 838#
ALTPT 116# 1453 1671 6453 6454 6462 6463 6468 6469 6470 6472 6477 6478 6481
6484 6486 6487 6490 6493 6502 6503 6509 6511 6513 6515 6518 6520 6522
6525
APAT 1456 1673 6145#
AROV 752#
AROVTP 752#
AROVU 752#
AST 953#
ATSIN 954#
B0 143# 1942 1945
BDH 67# 2161 4349 4353 4355 4358 4363 4389 4391 4397 4904
BDL 70# 4348 4350 4359 4397 4907
BEGEND 834# 3160 3972
BEGIN 38 39 40 44 45 46 47 48 703 704 765# 7332
BEGIN1 781# 835
BELL 957#
BIS 752#
BIT0 1801 1825 1943 1969 2034 2146 2191 3242 3403 3564 3725 3886 5231 5288
5336 5450 5920#
BIT1 1804 1828 1972 2037 2149 2194 5339 5453 5921#
BIT18 1816 1946 2025 2182 5441 5923#
BIT19 1819 2028 2185 5444 5924#
BIT2 1807 1831 1975 2040 2152 2197 5342 5456 5922#
BIT20 1822 2031 2188 5447 5925#
BPAT 1462 1497 1678 1736 6146#
BYTAB 5007 5991#
BYTYPE 2264 2343 2420 2492 2570 2698 2770 2842 2914 2991 3063 5006 5420 6007#
C1 163# 1815 2024 2181 5440
C1A 216# 6502 6511 6513 6515 6516 6521 6522 6620 6621 6622 6623 6625 6628
6629 6630 6631 6637
C2 164# 1818 2027 2184 5443
C2A 217# 6502 6504 6508 6511 6516 6618 6619 6622 6623 6626 6628 6632 6638
C3 165# 1821 2030 2187 5446
C3A 218# 6502 6516 6617 6619 6621 6623 6627 6628 6629 6633 6639
C4 166# 1824 2033 2190 5449
C4A 219# 6516 6524 6612 6613 6614 6615 6628 6634
C5 167# 1827 2036 2193 5452
C5A 220# 6501 6505 6506 6516 6610 6611 6614 6615 6626 6628 6630 6635
C6 168# 1830 2039 2196 5455
C6A 221# 6506 6516 6609 6611 6613 6615 6625 6627 6628 6636
CB1 6106 6115#
CB2 6107 6117#
CB3 6108 6119#
CB4 6109 6121#
CB5 6110 6123#
CB6 6111 6125# SEQ 0222
CB7 6112 6127#
CB8 6113 6129#
CBD1 2106# 2219
CBD2 2109# 2216 2218
CBD3 2167#
CBD4 2168 2177#
CBDC1 4899 4904#
CBDCAS 2106 2107 4931 6569 6570#
CBDCOM 2214 4895#
CBDEND 6569 6601#
CBDEX 4397#
CBDFAI 4902 4905 4908 4911 4914 4919 4922#
CBDM 2103# 2221
CBDMOD 2065 2099#
CBDNXT 3773 3782 3788 3800#
CBDOST 4364 4391#
CBDOVF 4361 4367 4395 4455#
CBDPC 3716 3727#
CBDPC1 3733 3748#
CBDPC2 3731 3745 3755#
CBDPF0 3669# 3772 3781 3787 3799 3807
CBDPF1 3702# 3805
CBDPF3 3752 3766#
CBDPF9 3776 3784#
CBDPFA 3676 3686#
CBDPFX 3739 3775#
CBDPNT 2215 4925#
CBDRT1 4953#
CBDS1 4353 4361#
CBDS2 4373# 4377
CBDS3 4370 4374 4379#
CBDSIM 2205 3791 4332#
CBDST 3658#
CBDTAB 2104 3664 5887#
CBDTR 5494 6091#
CBDTRN 2199 3724 5494#
CCA 752#
CDB1 1914# 2062
CDB2 1917# 2059 2061
CDB3 1995# 2004
CDB3A 1995 2010#
CDB4 2011 2020#
CDBC1 4837 4842#
CDBCAS 1914 1915 4867 6531 6532#
CDBCOM 2057 4835#
CDBDON 4252 4305#
CDBEND 6531 6563#
CDBFAI 4840 4843 4846 4849 4852 4855 4858 4861#
CDBLEG 4256 4281#
CDBM 1911# 2064
CDBMOD 1688 1741 1872 1907#
CDBNXT 3612 3621 3627 3639#
CDBOUT 4268 4282 4285 4309# SEQ 0223
CDBPC 3555 3566#
CDBPC1 3572 3587#
CDBPC2 3570 3584 3594#
CDBPF0 3508# 3611 3620 3626 3638 3646
CDBPF1 3541# 3644
CDBPF3 3591 3605#
CDBPF9 3615 3623#
CDBPFA 3515 3525#
CDBPFX 3578 3614#
CDBPNT 2058 4863#
CDBRET 4316 4321#
CDBRT1 4885#
CDBS1 4245 4252# 4273 4303
CDBSIM 2048 3630 4233#
CDBST 3497#
CDBTAB 1912 3503 5885#
CDBTN 3563 5487#
CDBTRN 2042 2071#
CHAIN 508#
CHKA2 1661 1670#
CHKB1 1454 1459#
CHKB2 1672 1676#
CHKC1 1460 1465#
CHKC2 1677 1681#
CHKTRN 3224 3385 3546 3707 3868 5534#
CHNOFF 752#
CHNON 752#
CHNTAB 5098 5907#
CLKU 752#
CLOCKF 820#
CLRSTR 1643 2109 2276 2301 2355 2380 2432 2457 2504 2529 2582 2607 2629 2710
2735 2782 2807 2854 2879 2926 2951 3003 3028 3075 3100 3213 3374 3535
3696 3857 5636#
CMP1 1433# 1619
CMP2 1436# 1472 1501 1616 1618
CMPB1 1541 1548#
CMPB2 1551 1558#
CMPBYT 1478 1513 1519 1524 1530 1534 1540#
CMPC1 4681 4686#
CMPCAS 1433 1434 4710 6452 6453#
CMPCOM 1614 4679#
CMPDON 4036 4067#
CMPEND 6452 6494#
CMPER1 1466 1471#
CMPER2 1496 1500#
CMPF1 1485 1490#
CMPF2 1491 1495#
CMPFAI 4684 4687 4690 4693 4696 4699 4702#
CMPFIL 1484#
CMPL 1488 1493 1498 1509#
CMPL1 1510 1515#
CMPL2 1516 1521#
CMPL3 1522 1526# SEQ 0224
CMPLEN 1457 1463 1469 1475#
CMPM 1430# 1621
CMPMOD 1349 1382 1426#
CMPNXT 3290 3299 3305 3317#
CMPOUT 4051 4065 4069#
CMPPC 3233 3244#
CMPPC1 3250 3265#
CMPPC2 3248 3262 3272#
CMPPF0 3186# 3289 3298 3304 3316 3324
CMPPF1 3219# 3322
CMPPF3 3269 3283#
CMPPF9 3293 3301#
CMPPFA 3193 3203#
CMPPFX 3256 3292#
CMPPNT 1615 4704#
CMPRET 4738#
CMPS1 4027# 4057
CMPS2 4035 4038#
CMPS3 4042 4053#
CMPSIM 1605 3308 4018#
CMPST 3175# 3971
CMPSTR 1564#
CMPT1 1267# 1305
CMPTAB 1431 3181 5874#
CMPTRP 1264# 1284 1300 1307
CNTLC 837#
CNTRP 752#
COMAC 3312 3473 3634 3795 3956 5503#
COMFAI 5504 5507 5510 5513 5516 5519#
COMMA 946#
COMPNT 3315 3476 3637 3798 3959 5521#
COMRT 5664 5669#
COMS1 5662# 5666
COMSTR 4769 4857 4987 5657#
CONSW 821#
CPAT 1468 1683 6147#
CPOPJ 841#
CPOPJ1 839#
CRLF 638 639 941#
CRLF2 642 643 943#
CRY0 752#
CRY1 752#
CSET1 1573# 1577
CSET2 1574 1579#
CSET3 1586# 1590
CSET4 1587 1592#
CSHFLG 1000#
CSHMEM 1001#
CTRP 752#
CYCL60 994#
D44 133# 1550 1761 5364 5367 6453 6456 6458 6462 6464 6465 6467 6468 6469
6474 6475 6480 6483 6489 6492 6501 6503 6509 6514 6516 6517 6521 6523
6524 SEQ 0225
DATA 177# 1982 2159
DATA0 174# 6536 6537 6538 6539 6544 6545 6546 6547 6552 6553 6554 6555 6560
6561 6562 6563 6574 6575 6576 6577 6582 6583 6584 6585 6590 6591 6592
6593 6598 6599 6600 6601
DATA1 175# 6534 6535 6538 6539 6542 6543 6546 6547 6550 6551 6554 6555 6558
6559 6562 6563 6572 6573 6576 6577 6580 6581 6584 6585 6588 6589 6592
6593 6596 6597 6600 6601
DATA2 176# 6533 6535 6537 6539 6541 6543 6545 6547 6549 6551 6553 6555 6557
6559 6561 6563 6571 6573 6575 6577 6579 6581 6583 6585 6587 6589 6591
6593 6595 6597 6599 6601
DATASH 232# 1983 2160
DATCBD 2161 6106#
DATTAB 1984 6082#
DBH 72# 1949 4250 4276 4288 4290 4293 4298 4301 4306 4312 4319 4851
DBL 75# 1952 4248 4250 4276 4287 4289 4292 4294 4297 4300 4310 4313 4319
4854
DCK 752#
DDTLNK 522# 779
DDTSRT 779#
DEBUG 34# 7323 7324
DECFIL 4436# 4438
DECLDN 4433 4436 4440#
DECP4 4425 4430#
DECPN1 4431 4432 4442#
DECPN2 4428 4453#
DECPN3 4407 4420# 4442
DECPNR 4410 4413 4418#
DECPNT 4392 4407#
DECVER 4# 9 23 800
DESTIN 1253 1555 1558 1763 1766 2137 2139 4773 4814 4917 4992 5016 5365 5368
5642 5643 5644 5662 5962# 6198 6205 6212 6240 6247 6289 6296 6303 6336
6342 6348 6372 6378 6414 6420 6426
DF22F 905#
DIAGMN 768#
DING 494#
DLEN 71# 1441 1517 1523 1528 1582 1654 1700 1705 1710 2130 2146 2149 2152
4031 4036 4075 4076 4102 4117 4124 4138 4148 4167 4190 4196 4213 4217
4218 4347 4351 4356 4369 4398 4409 4433 4695 4766 4913
DLEN1 79# 1582 1586
DOCBD 3767 3791#
DOCDB 3606 3630#
DOCMP 3284 3308#
DOEDT 3928 3952#
DOLLAR 960#
DOMOV 3445 3469#
DP 74# 1253 1555 1558 1583 1763 1766 2137 2139 4033 4100 4137 4144 4162
4189 4197 4342 4376 4388 4416 4437 4452 4478 4500 4581 4603 4623 4627
4698 4772 4916 4990 5365 5368
DP1 80# 1583 1584 1589 1593
DPAT 1492 1731 6148#
DSKUPD 805
DSZER 109# 1521 1703 6472 6473 6474 6475 6511
DZERO 108# 1515 1698 6466 6467 6468 6469 6470 6471 SEQ 0226
E0 1185 1190 1197 1210 1215 1223 1267 1276 1291 1319 1326 1356 1366 1445
1446 1512 1518 1529 1533 1544 1554 1610 1658 1743 1794 1843 1860 1917
2017 2021 2053 2111 2174 2178 2210 2304 2383 2460 2532 2610 2631 2632
2635 2665 2738 2810 2882 2954 3031 3103 3183 3184 3238 3265 3344 3345
3399 3426 3505 3506 3560 3587 3666 3667 3721 3748 3827 3828 3882 3909
4028 4032 4135 4146 4152 4195 4247 4344 4372 4434 4499 4573 4624 4724
4728 4810 5047 5056 5384 5387 5395 5398 5406 5409 5413 5414 5461 5917#
5966
E0FIL1 1527 1532#
E0OP 1270 1320 1357 1437 1646 1919 2113 3230 3391 3552 3713 3874 4020 4091
4235 4336 5712 5966#
E1 1793 1883 1889 2020 2075 2083 2177 3235 3396 3557 3718 3879 4172 4173
4260 4261 4386 4415 4450 4556 4557 5460 5487 5494 5495 5812 5918#
EABORT 4541# 4564
EBIT0 752#
EBIT1 752#
EBIT10 752#
EBIT11 752#
EBIT12 752#
EBIT13 752#
EBIT14 752#
EBIT15 752#
EBIT2 752#
EBIT3 752#
EBIT4 752#
EBIT5 752#
EBIT6 752#
EBIT7 752#
EBIT8 752#
EBIT9 752#
ED1WD 2286 6015#
ED2WD 2365 6020#
ED3WD 2442 6025#
ED4WD 2514 6029#
ED5WD 2592 6034#
ED6WD 2720 6039#
ED7AWD 2792 6044#
ED7BWD 2864 6049#
ED7CWD 2936 6054#
ED8WD 3013 6059#
ED9WD 3085 6064#
EDIT1 1361# 1375 1379
EDITRP 1344 1355#
EDM1 2273# 2312 2313
EDM2 2352# 2391 2392
EDM3 2429# 2468 2469
EDM4 2501# 2540 2541
EDM5 2579# 2618 2619
EDM5A 2622 2629# 2671
EDM6 2707# 2746 2747
EDM7A 2779# 2818 2819
EDM7B 2851# 2890 2891
EDM7C 2923# 2962 2963 SEQ 0227
EDM8 3000# 3039 3040
EDM9 3072# 3111 3112
EDMD7A 2750 2766#
EDMD7B 2822 2838#
EDMD7C 2894 2910#
EDMOD1 2260# 3118
EDMOD2 2316 2339#
EDMOD3 2395 2416#
EDMOD4 2472 2488#
EDMOD5 2544 2566#
EDMOD6 2673 2694#
EDMOD8 2966 2987#
EDMOD9 3043 3059#
EDMODM 2222 2245#
EDS2 5381 5391#
EDS3 5392 5402#
EDS4 5403 5413#
EDS5 5428# 5433
EDS6 5429 5439#
EDSRTN 5389 5400 5411 5422 5460#
EDTC1 4970 4975#
EDTCAS 2270 2271 2349 2350 2426 2427 2498 2499 2576 2577 2704 2705 2776 2777
2848 2849 2920 2921 2997 2998 3069 3070 5010 6607 6608#
EDTCOM 2308 2387 2464 2536 2614 2669 2742 2814 2886 2958 3035 3107 4966#
EDTEND 6607 6639#
EDTFAI 4973 4976 4979 4982 4985 4988 4995 4998#
EDTNXT 3934 3943 3949 3961#
EDTP1 5022 5029#
EDTP1A 5014 5019#
EDTP2 5030 5043#
EDTP2A 5044 5050#
EDTP4 5053 5059#
EDTPC 3877 3888#
EDTPC1 3894 3909#
EDTPC2 3892 3906 3916#
EDTPF0 3830# 3933 3942 3948 3960 3968
EDTPF1 3863# 3966
EDTPF3 3913 3927#
EDTPF9 3937 3945#
EDTPFA 3837 3847#
EDTPFX 3900 3936#
EDTPNT 2311 2390 2467 2539 2617 2670 2745 2817 2889 2961 3038 3110 5001#
EDTRT1 5066#
EDTS2 4480# 4508 4533
EDTSET 2283 2362 2439 2511 2589 2654 2717 2789 2861 2933 3010 3082 5328#
EDTSIM 2296 2375 2452 2524 2602 2660 2730 2802 2874 2946 3023 3095 3952 4472#
EDTST 3819#
EDTTAB 3825 5884#
EEXCHD 4603# 6167
EF 240# 4067 5978 5979 5981
EFLDSP 4596# 6166
EMESSG 4498# 6155
END 7331# SEQ 0228
ENDFIX 1080#
ENDSLD 7321#
ENOP 4491 4501 4507# 4515 4523 4574 4582 4590 4597 4604 6156 6157 6158 6168
EOPER 4490# 6154
EQFIL 124# 1484 1724 5380 6460 6462 6465 6466 6467 6468 6471 6472 6473 6474
6475 6477 6478 6483 6486 6487 6492 6509 6513 6514 6518 6520 6521 6525
6608 6611 6614 6617 6620 6623 6626 6629 6632 6635 6638
EQLEN 106# 1477 1691 6453 6454 6455 6456 6457 6458 6494 6501 6502 6503 6504
6505 6506
ERMORE 854#
EROLD 714
ERRPC 825#
ERRTLS 826#
ERSTOP 497#
ESEL 4498 4573#
ESEL1 4571 4577#
ESEL2 4568 4575 4580#
ESELCT 4553# 6164
ESIGST 4588# 6165
ESKPA 4516 4524 4530# 6161
ESKPM 4514# 6159
ESKPN 4522# 6160
ESTOP 4539# 6163
EXCASB 32# 803
EXCHMD 251# 6020 6021 6022 6023
EXIOT 752#
EXLAB 1143 1144 1147# 1157
FAILOC 3251# 3251 3412# 3412 3573# 3573 3734# 3734 3895# 3895 5225 5280
FILE0 2638# 2640
FILLF 3226 3229 3236 3247 3249 3261 3387 3390 3397 3408 3410 3422 3548 3551
3558 3569 3571 3583 3709 3712 3719 3730 3732 3744 3870 3873 3880 3891
3893 3905 5587 5591# 5591
FLDSEP 250# 6029 6030 6031 6032
FOV 752#
FOVU 752#
FRDLNK 520#
FSELNK 519#
FXU 752#
GF 239# 4048 4063 5981 5982 5983
GFILL 126# 1495 1734 5402 6461 6464 6469 6479 6482 6484 6488 6491 6493 6510
6516 6523 6610 6613 6616 6619 6622 6625 6628 6631 6634 6637
GOCBD 2175 2201#
GOCDB 2018 2044#
GOMOV 1834 1837 1849#
GOTRAP 1141# 1141 1154 1187 1194 1212 1219 1273 1280 1288 1295 1323 1330 1363
1370 5121 5180
HW 144# 1948 1951
HYPEN 951#
INCPBN 4507 4532 4541 4610#
INCSKP 1095# 1095 4683 4734 4736 4754 4821 4823 4839 4881 4883 4901 4949 4951
4972 5062 5064
INHCSH 505#
INHPAG 502# SEQ 0229
INSTR 3222# 3222 3383# 3383 3544# 3544 3705# 3705 3866# 3866 5472
IOCLR 752#
ITERAT 35# 798
ITRCH1 858#
ITRCNT 798#
JOB41 752#
JOBAPR 752#
JOBCNI 752#
JOBDDT 752#
JOBFF 752#
JOBOPC 752#
JOBREL 752#
JOBREN 752#
JOBSA 752#
JOBSYM 752#
JOBTPC 752#
JOBUSY 752#
JOBUUO 752#
JOBVER 752#
KAIFLG 815#
KLFLG 816#
KNTRP 752#
KTRP 752#
LACLK 752#
LACLKE 752#
LAPRAL 752#
LAPRP1 752#
LAPRP2 752#
LAPRP3 752#
LAPRP4 752#
LAPRP5 752#
LAPRP6 752#
LAPRP7 752#
LCHNOF 752#
LCHNON 752#
LCNTXT 752#
LCNXER 752#
LCPAER 752#
LCPSFT 752#
LCPWRF 752#
LDATAF 752#
LDLNK 521# 768 770
LDNXER 752#
LDPAER 752#
LDPSFT 752#
LDPWRF 752#
LEBXMH 752#
LEBXML 752#
LENXER 752#
LEPAER 752#
LEPSFT 752#
LEPWRF 752#
LEUPFW 752# 5560 SEQ 0230
LEVTAB 5098 5909#
LEXCMP 752#
LF 241# 4045 4060 5977 5979 5982
LFILL 125# 1490 1729 5391 6463 6470 6480 6481 6489 6490 6508 6511 6515 6517
6522 6524 6609 6612 6615 6618 6621 6624 6627 6630 6633 6636 6639
LFLGCL 752#
LFLGDS 752#
LFLGEN 752#
LFLGST 752#
LFP 955#
LINSTF 752#
LINT 752#
LIOCLR 752#
LLACBL 752#
LLDUSB 752# 5564
LMBXMH 752#
LMBXML 752#
LNXMEN 752#
LNXMER 752#
LOOPER 496#
LPAREN 752#
LPARER 752#
LPFWPC 752# 5224 5261 5279
LPGFTR 752# 3165
LPICH1 752#
LPICH2 752#
LPICH3 752#
LPICH4 752#
LPICH5 752#
LPICH6 752#
LPICH7 752#
LPICHA 752#
LPICLR 752#
LPIIP1 752#
LPIIP2 752#
LPIIP3 752#
LPIIP4 752#
LPIIP5 752#
LPIIP6 752#
LPIIP7 752#
LPIOFF 752#
LPION 752#
LPRCH1 752#
LPRCH2 752#
LPRCH3 752#
LPRCH4 752#
LPRCH5 752#
LPRCH6 752#
LPRCH7 752#
LPRFMH 752#
LPRFML 752#
LPSFT 752#
LPSFTE 752# SEQ 0231
LPWRFE 752#
LPWRFL 752#
LREQSE 752#
LRQCLR 752#
LSECMO 752#
LSMODE 752#
LSNXER 752#
LSPAER 752#
LSPSFT 752#
LSPWRF 752#
LTAB 1936 2130 6136#
LTBASH 752#
LTBASL 752#
LTRPAE 752#
LTRPEN 752# 5259 5562
LUSCMP 752#
LUUO 752#
LUUO1 885 886
LUUO10 885 890
LUUO11 885 890
LUUO12 885 891
LUUO13 885 891
LUUO14 885 892
LUUO15 885 892
LUUO16 885 893
LUUO17 885 893
LUUO2 885 887
LUUO20 885 894
LUUO21 885 894
LUUO22 885 895
LUUO23 885 895
LUUO24 885 896
LUUO25 885 896
LUUO26 885 897
LUUO27 885 897
LUUO3 885 887
LUUO30 885 898
LUUO31 885 898
LUUO32 885 899
LUUO33 885 899
LUUO4 885 888
LUUO5 885 888
LUUO6 885 889
LUUO7 885 889
LUUOH 1138 5178#
LUUOHX 5181 5192#
LUUOI 752#
LWRITE 752#
MA 73# 2290 2369 2446 2518 2596 2724 2796 2868 2940 3017 3089 4603 4623
4984 5370
MAPNEW 906#
MARGIN 828#
MCASE 2653 6641# SEQ 0232
MCNVER 3# 9 23 800
MEMLOW 908#
MEMMAP 806
MEMSIZ 909#
MEMTOT 907#
MESSAG 253# 6034 6035 6036 6037
MESSGS 2631 6643#
MFL 155# 1806 1974 2151 5341
MFL1 213# 6501 6505 6513 6517 6521 6524 6532 6534 6535 6537 6539 6541 6543
6547 6551 6554 6555 6609 6611 6613 6615 6617 6619 6621 6623 6625 6627
6629 6631 6633 6635 6637 6639
MINUS 950#
MODDVC 504#
MODDVL 703 703# 801
MODDVU 704 704# 802
MODLNK 523# 765
MONCTL 818#
MONFLG 817#
MONTEN 819#
MONTYP 1032# 5092 5130 5165
MOV1 1640# 1869
MOV2 1643# 1687 1740 1866 1868
MOVB1 1750 1753 1757#
MOVB2 1759 1762 1766#
MOVBYT 1692 1701 1706 1711 1749#
MOVC1 4752 4757#
MOVCAS 1640 1641 4787 6500 6501#
MOVCOM 1864 4748#
MOVEND 6500 6525#
MOVER1 1682 1686#
MOVER2 1735 1739#
MOVF1 1725 1729#
MOVF2 1730 1734#
MOVF3 1727 1732 1737 1743#
MOVFAI 4755 4758 4761 4764 4767 4770 4775 4778#
MOVFIL 1716 1724#
MOVL 1698#
MOVL1 1699 1703#
MOVL2 1704 1708#
MOVL3 1709 1713#
MOVL4 1714 1718#
MOVLEN 1664 1674 1679 1684 1690#
MOVM 1637# 1871
MOVMOD 1473 1502 1622 1633#
MOVNXT 3451 3460 3466 3478#
MOVOFF 1791 1836#
MOVOP 1781 1789#
MOVOUT 4107 4201 4207 4215#
MOVPC 3394 3405#
MOVPC1 3411 3426#
MOVPC2 3409 3423 3433#
MOVPF0 3347# 3450 3459 3465 3477 3485
MOVPF1 3380# 3483 SEQ 0233
MOVPF3 3430 3444#
MOVPF9 3454 3462#
MOVPFA 3354 3364#
MOVPFX 3417 3453#
MOVPL 4160 4213#
MOVPNT 1865 4781#
MOVRET 4825#
MOVS1 4129# 4131
MOVS1A 4103 4109#
MOVS2 4127 4135#
MOVS2A 4137# 4139
MOVS3 4118 4121 4133 4141 4148# 4163
MOVS4 4156 4162#
MOVSIM 1855 3469 4089#
MOVSOS 4113 4143#
MOVST 3336#
MOVST1 4165 4167 4192#
MOVST2 4196# 4198
MOVST3 4180 4196 4200#
MOVSTR 1772#
MOVSTS 4110 4165# 4186 4190
MOVTAB 1638 3342 5880#
MPVU 752#
MUOPC 5133 5164 5909 5911#
MUUO 752#
MUUO10 5093 5111#
MUUOH 5081 5119# 5898 5908
MUUOH1 5131 5137#
MUUOHS 1103 5078#
MUUOHU 5125 5130#
MUUOHX 5122 5150#
MUUOHY 5151 5164#
MUUOPC 752#
MVS1 1315# 1341
MVS2 1318# 1335 1339
MVSTRP 1313#
NFL 156# 1803 1971 2148 5338
NFL1 214# 6501 6502 6504 6509 6513 6517 6522 6524 6533 6534 6535 6538 6540
6541 6544 6547 6550 6553 6555 6610 6611 6614 6615 6618 6619 6622 6623
6626 6627 6630 6631 6634 6635 6638 6639
NOP 252# 6039 6040 6041 6042
NOP1 257# 6064
NOP2 258# 6065
NOP3 259# 6066
NOP4 260# 6067
NOPNT 492#
NXMU 752#
OFF 193# 1840 2014 2171
OFF0 191#
OFF1 192# 6501 6502 6503 6504 6506 6517 6518 6524 6525 6532 6533 6534 6536
6537 6538 6539 6540 6541 6542 6543 6544 6546 6547 6548 6549 6551 6552
6553 6554 6555 6556 6557 6558 6559 6560 6561 6562 6563 6577
OFFSET 1104 2266 2268 2289 2300 2315 2345 2347 2368 2379 2394 2422 2424 2445 SEQ 0234
2456 2471 2494 2496 2517 2528 2543 2572 2574 2595 2606 2621 2700 2702
2723 2734 2749 2772 2774 2795 2806 2821 2844 2846 2867 2878 2893 2916
2918 2939 2950 2965 2993 2995 3016 3027 3042 3065 3067 3088 3099 3114
3178 3325 3339 3486 3500 3647 3661 3808 3822 3969 4099 4341 4477# 4477
4991 5013 5029
OFFSH 230# 1841 2015 2172
OFFTAB 1842 2016 2173 6073#
OFS 4345# 4345 4383 4447
ONEPT 117# 1465 1681 6455 6456 6461 6464 6467 6475 6479 6483 6488 6492 6494
6501 6510 6516 6523
ONESPT 118# 1459 1676 6457 6458 6460 6465 6466 6471 6473 6474 6480 6482 6489
6491 6504 6505 6506 6508 6514 6517 6521 6524
OP1 81# 4020 4069 4091 4109 4112 4120 4203 4235 4244 4255 4315 4336 4382
4385 4412 4446 4449
OPEND 5872 5888#
OPRSEL 506#
OPTAB 1132 1133 1262 5872 5873#
OPTIME 920#
ORIGSV 1599 1600 1849 1850 2044 2045 2201 2202 2292 2293 2371 2372 2448 2449
2520 2521 2598 2599 2656 2657 2726 2727 2798 2799 2870 2871 2942 2943
3019 3020 3091 3092 3244 3245 3405 3406 3566 3567 3727 3728 3888 3889
4022 4093 4237 4338 4455 4474 4714 4715 4719 4720 4792 4793 4797 4799
4804 4806 4872 4873 4938 4939 4945 4946 5026 5034 5040 5688 5953#
OVERR 4334# 4334 4394 4427
P 549 550 551 552 752# 840 4071 4193 4206 4210 4307 4404 4430 4443
4539 4701 4777 4860 4921 4997 5196 5518 5668
PADDR 68# 2292 2371 2448 2520 2598 2726 2798 2870 2942 3019 3091 4498 4514
4522 4543 4560 4565 4566 4568 4577 4588 4596 4613 4975 5334 5336 5339
5342 5352 6174 6177 6178 6179 6180
PAG 752# 5259 5562 5564
PAGSET 3259 3420 3581 3742 3903 5553#
PALERS 498#
PAREA1 49# 796
PAREA2 50# 797
PAREA3 51# 794
PAREA4 52# 795
PAREA5 53# 807
PAREA6 54# 808
PAREA7 807#
PAREA8 808#
PARU 752#
PASCNT 822#
PATBL 4481 6177#
PATBN 2285 2364 2441 2513 2591 2719 2791 2863 2935 3012 3084 4480 4615 5351
6174#
PATCH 7324#
PATPT 2643 6175#
PATTBL 2279 2280 2281 2287 2358 2359 2360 2366 2435 2436 2437 2443 2507 2508
2509 2515 2585 2586 2587 2593 2713 2714 2715 2721 2785 2786 2787 2793
2857 2858 2859 2865 2929 2930 2931 2937 3006 3007 3008 3014 3078 3079
3080 3086 3196 3197 3198 3201 3357 3358 3359 3362 3518 3519 3520 3523
3679 3680 3681 3684 3840 3841 3842 3845 5352 6006# 6175 6285 6292 6299
6306 6313 6320 6410 6416 6422 6428 6434 6440 SEQ 0235
PATTER 1475# 1475 1487 1568 1690 1726 1776
PB 205# 5349
PB1 203# 6624 6625 6626 6627 6628 6629 6630 6631 6632 6633 6634 6635 6636
6637 6638 6639
PB2 204# 6616 6617 6618 6619 6620 6621 6622 6623 6632 6633 6634 6635 6636
6637 6638 6639
PBSH 233# 5350
PDISF 917#
PDLOVU 752#
PDOVTP 752#
PERIOD 947#
PFACB 3219 3380 3541 3702 3863 5572#
PFBLK1 3203 3364 6194#
PFBLK2 3525 6250#
PFBLK3 3686 6271#
PFBLK4 3847 6285#
PFERR 3254# 3254 3415# 3415 3576# 3576 3737# 3737 3898# 3898
PFFAIL 5222 5227 5234 5238 5242 5246 5250 5267#
PFHAND 3164 5221#
PFHEPC 3257 3418 3579 3740 3901 5267# 5267
PFINS 5284 5292 5297 5302 5307 5312 5469# 5521
PFPNT 3297 3303 3458 3464 3619 3625 3780 3786 3941 3947 5279#
PFRES1 3204 3365 6332#
PFRES2 3526 6380#
PFRES3 3687 6398#
PFRES4 3848 6410#
PFSTRT 774#
PFTRAP 3253# 3253 3283 3292 3414# 3414 3444 3453 3575# 3575 3605 3614 3736# 3736
3766 3775 3897# 3897 3927 3936 5221
PFTST 3115 3159#
PGMEND 36# 7330
PGMNAM 799 5853#
PICHN1 752#
PICHN2 752#
PICHN3 752#
PICHN4 752#
PICHN5 752#
PICHN6 752#
PICHN7 752#
PICHNA 752#
PICLR 752#
PIOFF 752#
PION 752#
PLIST 986# 986
PLISTE 986 988#
PLISTS 987#
PLUS 952#
PNTACB 4732 4816 4876 4934 5019 5523 5679#
PNTBLK 5688# 5700
PNTCAS 4711 4788 4868 4932 5011 5774#
PNTENB 916#
PNTEXT 795#
PNTFLG 915# SEQ 0236
PNTINH 918#
PNTINS 3288 3449 3610 3771 3932 4708 4785 4929 5710#
PNTLPT 493#
PNTNAM 794#
PNTRAN 4819 4879 5060 5808#
PNTRN 5820# 5844
PNTRP 752#
PNTS1 5750# 5762
PNTS2 5752# 5759
PNTSKP 4735 4822 4882 4950 5063 5721#
PNTSPC 919#
PNTSRT 5753 5764#
PNTSTR 4716 4721 4794 4801 4807 4874 4941 4947 5027 5036 5041 5743#
PPTAB 4484 6154#
PPTAB1 4492 6163#
PTM1 2646# 2648
PTMSET 2642#
PTRP 752#
PVPAGI 1013#
QUEST 958#
RADIX 961#
RADLSC 963#
RADLSP 962#
RANDBS 796#
RANLEN 1439 1652 5791#
REENTR 776#
RELIAB 500# 1108
REPT 58 752# 1130 1179 1250 1428 1635 1909 2101 2245 3162
REPT1 752#
REPTU 874#
REQSET 752#
RESRT1 851#
RESRT2 852#
RESSV 4078 4080 4223 4224 4321 4323 4400 4401 4455 4456 4459 4543 4544 4686
4689 4692 4695 4698 4757 4760 4763 4766 4774 4798 4815 4842 4845 4848
4851 4854 4904 4907 4910 4913 4918 4975 4978 4981 4984 4994 5017 5503
5506 5509 5512 5515 5692 5954#
RETURN 783#
RLEN 1094# 1094 5793 5798
RPEAT 1110# 1110 1130 1179 1250 1428 1635 1909 2101 2245 3162
RSTAC 4081 4226 4324 4403 4465 4546 5615#
RSTART 489#
RTP 956#
RUNFLG 823#
S44 132# 1540 1752 1958 1961 2136 2138 5358 5361 6453 6455 6461 6462 6463
6465 6467 6468 6471 6473 6475 6479 6482 6488 6491 6501 6504 6510 6515
6516 6517 6522 6523 6524 6532 6533 6534 6535 6536 6537 6538 6539 6544
6545 6546 6547 6548 6554 6555 6556 6557 6558 6559 6562 6563 6570 6571
6572 6573 6575 6576 6577 6582 6583 6584 6585 6586 6592 6593 6594 6595
6596 6597 6600
SADR1 38# 772
SADR10 47# 788
SADR11 48# 789 SEQ 0237
SADR2 39# 774
SADR3 40# 776
SADR4 41#
SADR5 42# 837
SADR6 43# 838
SADR7 44# 785
SADR8 45# 786
SADR9 46# 787
SBINIT 562 782#
SCOPE 875#
SCRIPT 5475 5713 5931#
SELECT 248# 6059 6060 6061 6062 6184
SELWD 3195 3356 3517 3678 3839 6184#
SET1 1780# 1787
SETFG 5537 5540 5543#
SETLC1 2078# 2081
SETLOC 1886# 1887
SETRAN 1833 1879# 3241 3402 3885 5458
SETSKP 4106 4149 4203#
SFL 154# 1800 1968 2145 5335
SFL1 212# 6501 6502 6503 6508 6509 6513 6514 6515 6516 6517 6520 6524 6535
6536 6537 6538 6542 6543 6544 6547 6548 6552 6553 6554 6555 6573 6574
6577 6579 6582 6583 6612 6613 6614 6615 6620 6621 6622 6623 6628 6629
6630 6631 6636 6637 6638 6639 6641
SFSTRT 772#
SIGST 249# 6015 6016 6017 6018 6025 6026 6027 6028 6183
SIGWD 2278 6183#
SIMDES 4100 4342 4458 4461 4462 4463 4478 4773 4800 4814 4917 4940 4992 5016
5035 5646 5647 5648 5663 5964#
SKP1 4204 4209#
SKPA 256# 6054 6055 6056 6057
SKPM 254# 6044 6045 6046 6047
SKPN 255# 6049 6050 6051 6052
SKPTAB 4069 5976#
SKPWD1 1443# 1443 1606 1656# 1656 1856 1925 2049 2119 2206 2273 2297 2352 2376
2429 2453 2501 2525 2579 2603 2661 2707 2731 2779 2803 2851 2875 2923
2947 3000 3024 3072 3096 3206 3309 3367 3470 3528 3631 3689 3792 3850
3953 4679 4750 4835 4897 4968 5727
SKPWD2 1444# 1444 1611 1657# 1657 1861 1926 2054 2120 2211 2274 2305 2353 2384
2430 2461 2502 2533 2580 2611 2666 2708 2739 2780 2811 2852 2883 2924
2955 3001 3032 3073 3104 3207 3266 3273 3368 3427 3434 3529 3588 3595
3690 3749 3756 3851 3910 3917 4680 4751 4836 4898 4969
SLASH 959#
SLEN 65# 1440 1511 1523 1532 1566 1653 1705 1715 1718 1774 1801 1804 1807
1936 1969 1972 1975 1990 4027 4035 4073 4074 4078 4105 4117 4123 4130
4151 4155 4165 4192 4200 4209 4215 4216 4221 4223 4240 4242 4249 4264
4269 4270 4273 4275 4305 4309 4318 4321 4686 4757 4842
SLEN1 77# 1566 1573 1774 1780
SLONG 110# 1526 1708 6477 6478 6479 6480 6481 6482 6483 6484 6513 6514 6515
6516 6517 6518
SM10 1063# 1200 1343
SNTRP 752#
SOURCE 1252 1545 1548 1754 1757 1959 1962 2290 2369 2446 2518 2596 2724 2796 SEQ 0238
2868 2940 3017 3089 5359 5362 5638 5639 5640 5961# 6216 6223 6230 6237
6307 6314 6321 6351 6357 6363 6369 6429 6435 6441
SP 69# 1252 1545 1548 1567 1754 1757 1775 1959 1962 1993 4029 4129 4153
4169 4254 4553 4689 4760 4845 4978 5359 5362 5424
SP1 78# 1567 1571 1576 1580 1775 1778 1786
SPACE 948#
SRTDDT 41 43 778#
START 766 1087# 1087
START1 785#
START2 786#
START3 787#
START4 788#
START5 789#
STARTA 781 1103#
STFLOT 4578 4589 4623#
STOP 247# 2650 6015 6016 6017 6018 6020 6021 6022 6025 6026 6027 6028 6029
6030 6031 6032 6034 6035 6036 6037 6039 6040 6041 6042 6044 6045 6046
6047 6049 6050 6051 6052 6054 6055 6056 6057 6059 6060 6061 6064 6065
6066 6067 6182
STOPWD 2357 2434 2506 2584 2712 2784 2856 2928 3005 3077 3200 3361 3522 3683
3844 6182#
STRL 185# 1934 2128
STRL0 183# 6534 6535 6538 6539 6540 6541 6544 6545 6546 6547 6548 6549 6551
6552 6553 6554 6555 6556 6557 6558 6559 6560 6561 6562 6563 6572 6573
6576 6577 6578 6579 6582 6583 6584 6585 6586 6587 6589 6590 6591 6592
6593 6594 6595 6596 6597 6598 6599 6600 6601
STRL1 184# 6533 6535 6537 6539 6540 6542 6544 6545 6549 6550 6551 6552 6553
6554 6555 6556 6557 6558 6559 6560 6561 6562 6563 6571 6573 6575 6577
6578 6580 6582 6583 6587 6588 6589 6590 6591 6592 6593 6594 6595 6596
6597 6598 6599 6600 6601
STRLSH 231# 1935 2129
STRP 752#
STRT 1091 1097#
SUBLNK 524# 782
SVAC 4018 4089 4233 4332 4472 5598#
SVLUUO 1136# 1136 1151 5192
SWPTAB 1069#
SWTEXR 797#
SYSEXR 770#
SZERO 107# 1509 1713 6460 6461 6462 6463 6464 6465 6508 6509 6510
T 1126# 1157 1175# 1197 1223 1246# 1283 1299 1334 1374 1424# 1615 1631# 1865
1905# 2058 2097# 2215 2243# 2256# 2311 2335# 2390 2412# 2467 2484# 2539 2562#
2617 2670 2690# 2745 2762# 2817 2834# 2889 2906# 2961 2983# 3038 3055# 3110
3122# 3171# 3288 3297 3303 3315 3332# 3449 3458 3464 3476 3493# 3610 3619
3625 3637 3654# 3771 3780 3786 3798 3815# 3932 3941 3947 3959 5148# 5161
5171 5190# 5203 5277# 5284 5292 5297 5302 5307 5312
TAB 949#
TEMP 4290 4296 4298 5968#
TESTPC 824# 1088 1129 1178 1249 1427 1634 1908 2100 2261 2340 2417 2489 2567
2695 2767 2839 2911 2988 3060 3176 3337 3498 3659 3820
TICKS 827#
TN0 752#
TN1 752# SEQ 0239
TOTALS 490#
TRANFG 1648 1650# 1650 1660 1749 1758 1783 1921 1923 2000 2010 2115 2117 2167
3232 3393 3554 3715 3876 4220 4818 4878 5230 5287 5534 5543
TRAP1 1132# 1161
TRAP1A 1135# 1158 1159
TRAP2 1181# 1198 1203 1226
TRAP2A 1201 1206# 1224
TRAP3 1252# 1347 1381
TRAPT1 1112 1128#
TRAPT2 1162 1177#
TRAPT3 1204 1227 1248# 1346
TRP3TP 752#
TSMUUO 5079 5092#
TTNBRF 1007#
TTYFIL 923#
TTYSPD 924#
TXTINH 501#
UBAVEC 752#
USER 814# 3159 5078 5124 5150
USERF 752#
USRASB 33# 804
USRCRF 933#
USRLFF 932#
UUOBLK 5111 5137 5140 5141 5166 5898#
UUODIS 886#
UUOEXT 842#
UUORTN 843#
UUOSKP 840#
$$MUUO 1038#
$$OUTE 1044#
$$TAX1 1056#
$$TAX2 1057#
$$TOGG 1050#
$$UUO 1027#
$ACC0 865#
$BEND1 835#
$BEND2 42 836#
$CHRIN 926#
$CRLF 928#
$DEVCH 752#
$DSKUP 805#
$DVOFF 922#
$EMODE 803#
$FFF 930#
$IBUF 978#
$INEXT 980#
$INNM 979#
$ITRHL 846#
$ITRX1 847#
$LPAPE 6656
$MMAP 806#
$MODVL 801#
$MODVU 802# SEQ 0240
$OBUF 969#
$ONETM 829# 1090
$OUTEX 971#
$OUTNM 970#
$PAPER 752
$PARER 853#
$PNAME 799#
$PSHER 857#
$PVER 800#
$RSRTX 849#
$RSRTY 850#
$SPAG1 869#
$START 766#
$SVAPR 867#
$SVPAG 868#
$SVPI 866#
$SVUPC 872#
$SVUUO 871#
$TABF 929#
$TTCHR 925#
$TWCNT 921#
$TYPNB 927#
$UMODE 804#
$UORTX 844#
$USRHL 848#
$UUOER 845# 886
$VTF 931#
%ACTFL 878#
%ACTUL 879#
%COREC 877#
%CORFL 876#
%DISCR 880#
%ERHI1 1019#
%ERHI2 1020#
%ERHI3 1021#
.FHSLF 5097
.JB41 752#
.JBAPR 752#
.JBCNI 752#
.JBDDT 752#
.JBFF 752#
.JBINT 56# 5112
.JBOPC 752#
.JBREL 752#
.JBREN 752#
.JBSA 752#
.JBSYM 752#
.JBTPC 752#
.JBUSY 752#
.JBUUO 752#
.JBVER 752#
AIC 5102
APRID 752# SEQ 0241
BCIO 752#
BCIOB 752#
BSIO 752#
BSIOB 752#
CFLUSH 674#
CINVAL 673#
CLOKOP 668#
CLRPT 752#
CWRTBI 675#
DEBRK 5135
DROPDV 635#
EDMOD 266# 2258 2337 2414 2486 2564 2692 2764 2836 2908 2985 3057
EIR 5104
ENDUUO 681# 834
EOPUUO 682# 836
ERLOOP 722# 1158 1198 1224 1284 1300 1335 1375 1616 1866 2059 2216 2312 2391
2468 2540 2618 2671 2746 2818 2890 2962 3039 3111 3289 3316 3450 3477
3611 3638 3772 3799 3933 3960
ERLP1 723#
ERLP2 724# 1346 3298 3304 3459 3465 3620 3626 3781 3787 3942 3948
ERRHLT 569#
ERROR 731# 1155 1195 1220 1281 1296 1331 1371 1615 1865 2058 2215 2309 2388
2465 2537 2615 2670 2743 2815 2887 2959 3036 3108 3286 3313 3447 3474
3608 3635 3769 3796 3930 3957
ERROR1 742# 3295 3301 3456 3462 3617 3623 3778 3784 3939 3945 5156 5168 5198
5282 5291 5296 5301 5306 5311
ERUUO 721# 1157 1197 1223 1283 1299 1334 1374 1615 1865 2058 2215 2311 2390
2467 2539 2617 2670 2745 2817 2889 2961 3038 3110 3288 3297 3303 3315
3449 3458 3464 3476 3610 3619 3625 3637 3771 3780 3786 3798 3932 3941
3947 3959 5161 5171 5203 5284 5292 5297 5302 5307 5312
FATAL 568# 5162 5172 5204
FRD36 710#
FRD8 711#
FREAD 709#
FSELEC 708#
GET 552# 1602 1852 1894 1895 2086 2087 4738 4739 4740 4778 4825 4826 4827
4885 4886 4887 4922 4953 4954 4955 4998 5066 5067 5068 5127 5134 5138
5183 5479 5480 5650 5669 5670 5702 5703 5734 5765 5766 5767 5784 5800
5846 5847
GO 549# 1103 1439 1605 1614 1643 1652 1833 1855 1864 2042 2048 2057 2109
2199 2205 2214 2276 2283 2296 2301 2308 2355 2362 2375 2380 2387 2432
2439 2452 2457 2464 2504 2511 2524 2529 2536 2582 2589 2602 2607 2614
2629 2654 2660 2669 2710 2717 2730 2735 2742 2782 2789 2802 2807 2814
2854 2861 2874 2879 2886 2926 2933 2946 2951 2958 3003 3010 3023 3028
3035 3075 3082 3095 3100 3107 3213 3219 3224 3241 3259 3308 3312 3374
3380 3385 3402 3420 3469 3473 3535 3541 3546 3563 3581 3630 3634 3696
3702 3707 3724 3742 3791 3795 3857 3863 3868 3885 3903 3952 3956 4018
4081 4089 4226 4233 4324 4332 4392 4403 4407 4442 4465 4472 4507 4532
4541 4546 4578 4589 4708 4711 4716 4721 4732 4735 4769 4785 4788 4794
4801 4807 4816 4819 4822 4857 4868 4874 4876 4879 4882 4929 4932 4934
4941 4947 4950 4987 5011 5019 5027 5036 5041 5060 5063 5458 5521 5523
HALT 44 45 46 47 48 554# 855
JEN 556# SEQ 0242
JRSTF 555# 5128 5261
MAPADR 691#
MAPCNK 692#
MAPMEM 688#
MAPPNT 694#
MAPSET 693#
MEMSEG 690#
MEMZRO 689#
MODPCP 701#
MODPCU 700#
MTROP 669#
NAME 7# 9
PBELL 644#
PCRL 638# 4730 4812 5478 5698 5746 5761 5764 5782 5842
PCRL2 642#
PCRL2F 643#
PCRLF 639#
PFMAC 329# 3173 3334 3495 3656 3817
PFORCE 646#
PGMINT 562# 1097
PJRST 553#
PMSG 648# 1471 1500 1686 1739 4713 4718 4723 4727 4790 4796 4803 4809 4870
4936 4943 5005 5024 5032 5038 5046 5055 5473 5710 5723 5731 5776 5814
5817 5830
PMSGF 651#
PNT1 604#
PNT11 618#
PNT11F 619#
PNT1F 605#
PNT2 606#
PNT2F 607#
PNT3 608#
PNT3F 609#
PNT4 610#
PNT4F 611#
PNT5 612#
PNT5F 613#
PNT6 614#
PNT6F 615#
PNT7 616#
PNT7F 617#
PNTA 590#
PNTADF 621#
PNTADR 620#
PNTAF 591#
PNTAL 592#
PNTALF 593#
PNTCHF 603#
PNTCHR 602#
PNTCI 600# 5690 5694 5757 5824 5837
PNTCIF 601#
PNTCW 636#
PNTCWF 637# SEQ 0243
PNTDCF 629#
PNTDEC 628# 5781
PNTDS 630#
PNTDSF 631#
PNTHW 624# 5689 5693 5697
PNTHWF 625#
PNTMSF 597#
PNTMSG 596# 5682
PNTNM 632#
PNTOCF 627#
PNTOCS 626# 4725 4729 4811 5048 5057 5756 5823 5828 5836 5841
PNTOCT 622#
PNTOTF 623#
PNTSIX 633# 5008 5476
PNTSXF 634# 5714 5729
PSIXL 594#
PSIXLF 595#
PSIXM 598# 1471 1500 1686 1739 4713 4718 4723 4727 4790 4796 4803 4809 4870
4936 4943 5005 5024 5032 5038 5046 5055 5474 5711 5724 5732 5777 5815
5818 5831
PSIXMF 599#
PSP 640#
PSPF 641#
PUT 551# 1564 1772 1879 1880 2071 2072 4704 4705 4706 4748 4781 4782 4783
4863 4864 4865 4895 4925 4926 4927 4966 5001 5002 5003 5119 5140 5178
5469 5470 5636 5657 5658 5679 5680 5721 5743 5744 5745 5774 5791 5808
5809
RDAPR 752#
RDCSB 752#
RDCSTM 752#
RDEBR 752#
RDHSB 752#
RDINT 752#
RDIO 752#
RDIOB 752#
RDPI 752#
RDPUR 752#
RDSPB 752#
RDTIM 752#
RDUBR 752#
REPTLP 58# 1161 1203 1226 1347 1381 1621 1871 2064 2221 3118 3971
REPTUO 725#
RESET 5095
RTN 550# 842 1896 2088 4083 4227 4326 4405 4418 4453 4466 4547 4616 4628
4702 4741 4779 4828 4861 4888 4923 4956 4999 5069 5086 5105 5113 5142
5184 5314 5462 5481 5488 5496 5519 5525 5544 5565 5592 5613 5630 5651
5671 5704 5715 5735 5768 5785 5801 5848
S 480# 482 486 515 517 526 529 544 545 547 558 560 564 566
571 575 717 719 752 757 763 790 792 810 812 830 832 861
863 881 883 901 903 911 913 934 939 965 967 974 976 982
984 990 992 996 998 1003 1005 1009 1011 1015 1017 1023 1025 1028
1030 1034 1036 1040 1042 1046 1048 1052 1054 1059 1061 1065 1067 1071
1073 1075 1077 SEQ 0244
SIR 5099
SIXBTZ 657# 1126 1175 1246 1424 1631 1905 2097 2243 2256 2335 2412 2484 2562
2690 2762 2834 2906 2983 3055 3122 3171 3332 3493 3654 3815 5148 5190
5277
SWITCH 663# 1106
TIOE 752#
TIOEB 752#
TION 752#
TIONB 752#
TTALTM 584#
TTICHR 577#
TTICLR 587#
TTICNV 582#
TTIDEC 581#
TTINO 579#
TTIOCT 580#
TTIYES 578#
TTLOOK 583#
TTSIXB 585#
TTYINP 586#
WRAPR 752#
WRCSB 752#
WRCSTM 752#
WREBR 752#
WRHSB 752#
WRINT 752#
WRIO 752#
WRIOB 752#
WRPI 752#
WRPUR 752#
WRSPB 752#
WRTIM 752#
WRUBR 752#