Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dfked.seq
There are no other files named dfked.seq in the archive.
;DFKED
SEQ 0001
IDENTIFICATION
--------------
PRODUCT CODE: AH-F155B-DD
DIAGNOSTIC CODE: DFKED
PRODUCT NAME: DFKEDC0 EXTENDED ADDRESSING TEST
VERSION: 0.3
DATE RELEASED: MAY 1984
MAINTAINED BY: 36-BIT DIAGNOSTIC ENGINEERING
AUTHOR: ROBERT NOBREGA
COPYRIGHT (C) 1980, 1982, 1984
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE
SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUIPMENT
CORPORATION.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
SUPPLIED BY DIGITAL EQUIPMENT CORPORATION.
SEQ 0002
TABLE OF CONTENTS
----- -- --------
1.0 ABSTRACT
2.0 REQUIREMENTS
3.0 LOADING PROCEDURE
4.0 STARTING PROCEDURE
5.0 ERROR MESSAGE
6.0 RESTRICTIONS
7.0 LISTING
1. ABSTRACT SEQ 0003
--------
THE GOAL OF THIS PROGRAM IS TO MAKE SURE EXTENDED ADDRESSING
WORKS PROPERLY. THERE IS LITTLE ATTEMPT MADE TO DESIGN THE TESTS
TO FIGURE OUT EXACTLY WHAT DOESN'T WORK. HENCE A TEST OF ONE FEATURE
MAY INDEED EMPLOY SOME OTHER NON-TESTED FEATURE ! WHEN RUNNING
WE USE AC BLOCK 2. AC BLOCK 6 IS USED TO HOLD CERTAIN STATUS.
THERE ARE 115 (OCTAL) TESTS. THESE ARE SPECIFIED
AS T01 THRU T115 AND CAN BE PERFORMED IN EXEC MODE ONLY.
EACH TEST IS AN AUTONOMOUS UNIT WITH ITS OWN INITIALIZATION
CODE OR CALL TO SUCH CODE AND ITS OWN ERROR CALLING MECH-
ANISM.
2.0 REQUIREMENTS
------------
2.1 EQUIPMENT
---------
1. KL-10 PROCESSOR (MODEL "B") WITH 64K OF MEMORY.
MODEL "B" PROCESSOR HAS E XTENDED ADDRESSING,AND
MUST USE KLX.RAM MICROCODE 226 OR OVER WITH THIS DIAGNOSTIC.
2.2 PREREQUISITES
-------------
1. ALL PROCESSOR AND MEMORY DIAGNOSTICS
3.0 LOADING PROCEDURE KL10 (EXEC)
----------------------------- SEQ 0004
3.1 SUBROUTINE AND DIAGNOSTIC LOAD
------------------------------
THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM10 SUBROUTINE
PROGRAM BE RESIDENT IN THE PDP-10.
LOAD VIA CONSOLE PROCESSOR OR WITH DIAMON.
3.2 DATA SWITCH FUNCTIONS (STANDARD SET)
-------------------------------------
3.2.1
SWITCH NO. SYMBOL FUNCTION DESCRIPTION
--------- ------ --------------------
0 (400000) ABORT ABORT AT END OF PASS
1 (200000) N/A
2 (100000) N/A
3 (040000) NOPNT INHIBIT ALL PRINTING EXCEPT FORCED
4 (020000) PNTLPT PRINT ON LPT (USER, LOGICAL DEV)
5 (010000) DING RING TTY BELL ON ERROR (FORCED OUTPUT).
6 (004000) LOOPER ENTER SCOPE LOOP ON TEST ERROR
7 (002000) ERSTOP HALT ON TEST ERROR (EXIT, USER MODE).
8 (001000) PALERS PRINT ALL ERRORS
9 (000400) N/A
10 (000200) TXTINH INHIBIT COMMENT PORTION OF ERROR MESSAGES.
11 (000100) INHPAG INHIBIT PAGING
12 (000040) N/A
13 (000020) INHCSH INHIBIT CACHE
14 (000010) N/A
15 (000004) N/A
3.2.2 RIGHT HAND SWITCH SETTINGS
--------------------------
(NO RIGHT HAND SWITCHES USED)
4.0 STARTING PROCEDURE SEQ 0005
------------------
1. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS.
2. STARTING ADDRESS IS AT 30000 (STM OR STD COMMAND WILL WORK).
4.1 OPERATING PROCEDURE
-------------------
1. TO THOROUGHLY TEST ALL HARDWARE, ALL TEST CONTROL DATA
SWITCHES SHOULD BE SET TO 0.
2. WHEN DEBUGGING HARDWARE, SET SWITCHES TO 0. ALLOW THE
TELETYPE TO PRINT THE ERROR MESSAGES. THIS ALLOWS THE
PROGRAM TO RUN A COMPLETE PASS AND THEN THE ERROR MESSAGES
MAY BE CORRELATED TO QUICKLY DIAGNOSE THE FAILURE. IF A
HARDWARE PROBLEM IS SUCH THAT THE ERROR MESSAGES, AFTER THE
FIRST ONE, HAVE NO MEANING (FIRST ERROR CAUSES ALL FOLLOWING
TESTS TO FAIL) SET THE LOOP ON ERROR SWITCH AND RESTART THE
TEST FROM THE BEGINNING. THE FIRST FAILURE WILL THEN CAUSE
THE PROGRAM TO ENTER A LOOP SUITABLE FOR SCOPING.
THE ERROR MESSAGES USED IN CONJUNCTION WITH THE LISTING
AND SCOPING IF NECESSARY SHOULD ALLOW THE FAILING
COMPONENT TO BE ISOLATED AND REPLACED AND/OR REPAIRED.
3. ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING
ERRORS ON THE LINE PRINTER.
5. ERRORS
------ SEQ 0006
ERRORS THAT OCCURRED DURING TESTS T01 THRU T115 WILL BE
REPORTED AND WILL TAKE THE FOLLOWING ACTION:
A. UNLESS SWITCH "NOPNT" IS (1), AN ERROR MESSAGE OF THE FOLLOWING
GENERAL FORM WILL BE TYPED OUT:
"EXAMPLE ONLY"
PC = 055306
SWITCHES = 000000 000000
ERROR IN *EXTENDED ADDRESSING TESTS*
CORRECT: 123456
ACTUAL: 000000
DISCREP: 123456
SIMPLE MEMORY FETCH FAILED
WHERE PC = PROGRAM COUNTER WHEN ERROR OCCURRED. USING THE
LISTING, THE SECTION OF THE PROGRAM CAN BE FOUND THAT CAUSED
THE ERROR TO SHOW UP. THE SECTION WILL BE HEADED BY COM-
MENTS THAT EXPLAIN IN SOME DETAIL THE TEST SETUP AS PER-
FORMED.
CORRECT: THE DATA SENT TO THE FAILING HARDWARE.
THE CORRECT DATA IS THAT DATA PATTERN OR STATUS THAT THE
PROGRAM WOULD HAVE READ FROM THE HARDWARE BEING TESTED
AT THE TIME OF THE ERROR.
ACTUAL: THE DATA READ FROM THE FAILING HARDWARE.
THE ACTUAL DATA IS THAT DATA PATTERN OR STATUS THAT THE
PROGRAM READ FROM THE HARDWARE UNDER TEST UPON HAVING
TESTED THAT HARDWARE IN ACCORDANCE WITH THE SPECIFIC TEST.
DISCREP: THE LOGICAL XOR OF THE EXPECTED WITH THE ACTUAL.
THE DISCREPANCY IS THE FAILING BIT PATTERN, E.G. THE BITS
THAT ARE INCORRECT.
SEQ 0007
B. IF SWITCH "LOOPER" IS SET AND SWITCH "ERSTOP" IS RESET,
THE PROGRAM WILL ENTER AN "ERROR LOOP" AFTER THE ERROR
MESSAGE HAS BEEN TYPED OUT.
THIS LOOP WILL REPEAT THE INSTRUCTIONS THAT CAUSED THE
ERROR TO SHOW UP. THUS ERRORS CAN BE TRACED TO
FAULTY MODULES USING AN OSCILLOSCOPE.
TO RECOVER FROM ERRORS, THE PROGRAM MAY EITHER BE RE-STARTED,
AFTER THE CAUSE OF THE ERROR HAS BEEN ELIMINATED, OR SWITCH
"LOOPER" MAY BE BROUGHT INTO THE (0) POSITION, IF THE ERROR IS
STILL PRESENT.
IN ORDER THAT ANY FURTHER ERROR MESSAGES BE MEANINGFUL, THE
CAUSE OF THE ERROR MUST FIRST BE ELIMINATED. IT IS ADVISABLE
THAT SWITCH "LOOPER" BE USED ONLY TO OBTAIN AN INITIAL
PICTURE OF THE STATE OF THE LPT AND ITS CONTROL LOGIC.
A FEW OTHER ERROR MESSAGES, THAT ARE SELF-EXPLANATORY MAY BE
PRINTED ON THE TELETYPE IF SOME CONDITION FOR SUCCESSFUL CON-
TINUATION OF THE TESTS IS NOT MET.
6. RESTRICTIONS
------------
THIS DIAGNOSTIC RUNS ON A KL-10 MODEL "B" MACHINE WITH
EXTENDED ADDRESSING AND KLX.RAM VER. 226 OR OVER MICROCODE.
******************************************************
SEQ 0008
DFKED EXTENDED ADDRESSING TEST
VERSION 0.1
OCTOBER 1980
ORIGINAL RELEASE OF THIS PROGRAM FOR THE KL10 MODEL B.
******************************************************
DFKED EXTENDED ADDRESSING TEST
VERSION 0.2
SEPTEMBER 1981
MICROCODE VERSION 262 ALLOWS XBLT IN SECTION 0.
CHANGED TEST 77 TO CHECK VERSION BEFORE EXPECTING MUUO TO HAPPEN.
******************************************************
DFKED EXTENDED ADDRESSING TEST
VERSION 0.3
NOVEMBER 1983
MODIFIED THE MASK FOR THE PAGE FAIL WORD. DUE TO HARDWARE
CHANGES IN THE MCA25 BIT 8 IS REFLECTED AS A ONE IN THE PAGE
FAIL WORD.
******************************************************
DFKED EXTENDED ADDRESSING TEST DECDOC VER 00.25 9-APR-84 13:22:56 PAGE 1
SEQ 0009
DOCUMENT
**************
DFKED EXTENDED ADDRESSING TEST
**************
COPYRIGHT 1984
DIGITAL EQUIPMENT CORPORATION
MAYNARD, MASS. 01754
DFKED EXTENDED ADDRESSING TEST DECDOC VER 00.25 9-APR-84 13:22:56 PAGE 2
SEQ 0010
TABLE OF CONTENTS
*******************
44 COMMON CODING FOR ALL KL TESTS
221 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
256 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
462 ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979
500 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
1006 MEMORY MANAGEMENT
1226 EXTENDED ADDRESSING TESTS.
1301 ACTUAL TESTS
4920 *STOR* RESERVED STORAGE, SEPT 18,1979
DFKED EXTENDED ADDRESSING TEST DECDOC VER 00.25 9-APR-84 13:22:56 PAGE 3
SEQ 0011
1 MAINDEC-10-DFKED
12 COPYRIGHT (C) 1980 1982 1984
DIGITAL EQUIPMENT CORP.
MARLBORO, MASS. 01752
16 AUTHOR: ROBERT NOBREGA
18 MAINTAINER: 36-BIT DIAGNOSTICS ENGINEERING
*****************************************************************
44 COMMON CODING FOR ALL KL TESTS
*****************************************************************
*****************************************************************
221 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
*****************************************************************
226 DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
*****************************************************************
256 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
*****************************************************************
259 SPECIAL SUBPROGRAM LINKAGES
270 SPECIAL SUBROUTINE FATAL HALTS
USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
*****************************************************************
462 ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979
*****************************************************************
*****************************************************************
500 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
*****************************************************************
828 ** 4 WORD LUUO BLOCK.
833 ** END OF 4 WORD LUUO BLOCK
841 ** BEGINNING OF TWO-WORD MUUO RETURN BLOCK.
844 ** END OF TWO-WORD MUUO RETURN BLOCK.
DFKED EXTENDED ADDRESSING TEST DECDOC VER 00.25 9-APR-84 13:22:56 PAGE 4
SEQ 0012
*****************************************************************
1006 MEMORY MANAGEMENT
*****************************************************************
1008 THIS ROUTINE INITIALIZES PAGING. ALL EXEC SECTION 0 PAGES ARE MAPPED TO
THEMSELVES. ALL OTHER EXEC PAGES, AND ALL USER PAGES ARE RENDERED
INNACCESSIBLE. SEE THE PAGMAP AND UPAGMP MACROS FOR MAKING PAGES
ACCESSIBLE.
1026 COPY THE EPT AND UPT FROM WHERE THE SUBROUTINE PACKAGE PUT IT TO WHERE
WE WANT IT.
1035 CLOSE ALL SECTIONS BY REMOVING ALL POINTERS TO PAGE TABLES.
1047 ZERO OUT THE SPECIAL PAGE TABLE.
1053 CLEAR OUT ALL THE PAGE TABLES.
1065 INITIALIZE CST AND MAP ALL SECTION 0 PAGES TO THEMSELVES
1075 MAP THE OLD EPT TO THE NEW ONE. THIS IS SO THAT THE SUBROUTINE PACKAGE
WHICH ASSUMES THE EPT TO BE SOMEWHERE ELSE THAN WHERE WE PUT IT, WILL
NOT BE CONFUSED
1084 SET UP CST MASK, DATA, AND BASE REGISTERS
1099 INITIALIZE MUUO HANDLER
1107 SET UP PAGE FAULT HANDLER ADDRESS
1116 TURN ON PAGING
1121 THIS ROUTINE GETS TRANSFERRED TO ON ANY MUUO.
1168 ROUTINE TO GET INTO USER MODE AND USER IO MODE
1180 PAGE FAULT HANDLER
1223 GET TO HERE TO CONTINUE AFTER A PAGE TRAP.
DFKED EXTENDED ADDRESSING TEST DECDOC VER 00.25 9-APR-84 13:22:56 PAGE 5
SEQ 0013
*****************************************************************
1226 EXTENDED ADDRESSING TESTS.
*****************************************************************
*****************************************************************
1301 ACTUAL TESTS
*****************************************************************
1304 ACTUAL TESTS
------ -----
THE GOAL OF THIS PROGRAM IS TO MAKE SURE EXTENDED ADDRESSING
WORKS PROPERLY. THERE IS LITTLE ATTEMPT MADE TO DESIGN THE TESTS
TO FIGURE OUT EXACTLY WHAT DOESN'T WORK. HENCE A TEST OF ONE FEATURE
MAY INDEED EMPLOY SOME OTHER NON-TESTED FEATURE !
MAKE SURE A TRAP IS TAKEN IF A REFERENCE TO AN ADDRESS WITHIN A SECTION
GREATER THAN OR EQUAL TO 37 IS MADE.
1316 TEST 1 - FORCE PAGE FAIL
1337 TEST 2 - TRY A SIMPLE INSTRUCTION IN A NON-ZERO SECTION TO MAKE SURE
LOCAL FETCHING HAPPENS CORRECTLY.
1363 TEST 3 - A SIMPLE LOCAL INDEXING TEST WILL BE DONE TO SHOW THAT
NEGATIVE INDEXING WORKS CORRECTLY WITHIN A SECTION IF LOCAL INDEXING
IS BEING USED.
1386 TEST 4 - WRAPAROUND OF MEMORY WILL BE TESTED WITH A POSITIVE INDEX WHICH WHEN
ADDED TO THE "Y" FIELD, SHOULD CAUSE A WRAPAROUND.
1410 TEST 5 - SOME FLAVORS OF GLOBAL INDEXING WILL BE TRIED.
THE FOLLOWING TEST CHECKS GLOBAL INDEXING:
1444 TEST 6 - THIS TEST IS EASILY MODIFIED TO TEST NEGATIVE INDEXING
1463 TEST 7 - AN IFIW IS TESTED
1501 TEST 10 - THE FOLLOWING TEST TRIES AN EXTENDED FORMAT INDIRECT WORD WITH BIT 1
1543 TEST 11 - THIS LAST TEST IS MODIFIED NOW TO TRY AN EFIW WITH BIT 1 ON:
1564 TEST 12 - IF BITS 0-1 ARE BOTH ON, A TRAP SHOULD BE TAKEN. THE NEXT TEST TRIES
THAT SITUATION.
1594 TEST 13 - BOTH BITS BEING ON IN AN INDIRECT WORD IS ALRIGHT IF THE WORD IS IN
SECTION 0. THAT CASE IS NOW TRIED TO BE SURE BITS 0 AND 1 BOTH ON
IS ALLOWED IN SECTION 0.
1641 TEST 14 - TRY CAUSING AN INDIRECT CHAIN TO ENTER SECTION 0 AND MAKE SURE IT STAYS
THERE. THIS ONE GETS TO SECTION 0 BY AN AC IN THE INDIRECT CHAIN.
DFKED EXTENDED ADDRESSING TEST DECDOC VER 00.25 9-APR-84 13:22:56 PAGE 6
SEQ 0014
1680 TEST 15 - MAKE SURE, HOWEVER, THAT INDIRECTING THROUGH AN AC NEEDN'T GO INTO
SECTION 0. THIS IS DONE BY USING A SECTION # OF 1 INSTEAD OF 0 IN
AN EFIW, RATHER THAN THE LAST TEST, WHICH USED AN IFIW.
1710 TEST 16 - NOW TRY HAVING THE INDIRECT CHAIN PASS INTO SECTION 0 BUT NOT THROUGH
AN AC. THE LAST TEST IS MODIFIED FOR THIS PURPOSE.
1731 TEST 17 - THE FOLLOWING TEST TRIES AN IMMEDIATE TYPE INSTRUCTION IN A NON-0
SECTION. THE TEST CHECKS THAT ALTHOUGH THE EFFECTIVE ADDRESS OF THE
IMMEDIATE INSTRUCTION IS MORE THAN 18 BITS OF NON-0 DATA, THAT ONLY
18 BITS ARE USED, JUST AS IN SECTION 0.
1761 TEST 20 - A BUNCH OF TESTS CHECK THE CONSISTANCY OF THE CONFUSION ABOUT WHETHER
REAL AC'S OR THEIR SHADOWS (LOW MEMORY ADDRESSES) GET REFERENCED.
FIRST TRY WRITING AND RETRIEVING DATA FROM THE SHADOWS:
1797 TEST 21 - SECTION 1 IS NOT SUPPOSED TO HAVE ANY SHADOW AC'S. SO NOW WE'LL
MODIFY THIS LAST TEST TO MAKE C REFERENCE SECTION 1 INSTEAD OF SECTION
20. HENCE 222 SHOULD BE FETCHED AS DATA INSTEAD OF 111.
1822 TEST 22 - NOW TRY LOCAL REFERENCE AND MAKE SURE DATA COMES FROM REAL AC.
1846 TEST 23 - THE FOLLOWING TEST TRIES DOING A JSR @FOO WHERE FOO CONTAINS A LOW
ADDRESS IN A NON-ZERO SECTION. THE JSR IS EXECUTED IN A NON-0 SECTION
TOO. THE TEST CHECKS THAT SHADOW MEMORY IS USED FOR STORING THE
JSR RETURN ADDRESS AND THAT REAL AC'S ARE ACTUALLY TRANSFERRED TO.
1893 TEST 24 - MAKE SURE THAT IF THE PC WRAPS AROUND AT THE END OF A SECTION, THAT IT
ENTERS THE AC'S, RATHER THAN THE SHADOWS OF A SECTION. THE INSTRUCTION
IN THE AC THAT THE TEST PROGRAM SHOULD WRAP AROUND INTO WILL BE A TRANSFER
TO A NON-AC TO VERIFY THAT ALTHOUGH THE FLOW HAS GOTTEN INTO THE AC'S,
THE CURRENT CONTEXT SECTION HASN'T BEEN SCREWED UP.
1932 TEST 25 - THE XMOVEI INSTRUCTION IS NOW TESTED. THIS FIRST TEST TRIES A XMOVEI
IN SECTION 14, AND THE XMOVEI'S EFFECTIVE ADDRESS IS 6000.
1956 TEST 26 - NOW WE TRY HAVING THE EFFECTIVE ADDRESS OF THE SIMPLEST FORM OF XMOVEI
BE AN ADDRESS LESS THAN 20 TO MAKE SURE 1 IS RETURNED IN THE LEFT HALF.
1974 TEST 27 - NOW TRY A XMOVEI INSTRUCTION THAT REFERENCES A LONG INDEX REGISTER.
1993 TEST 30 - TRY XMOVEI AC,N(AC2) WHERE AC2 IS A LONG INDEX REGISTER. ADDING N
TO THE CONTENTS OF AC2 PRODUCES A RIGHT HALF OF LESS THAN 20. HENCE,
THE RETURNED RESULT SHOULD CONTAIN THE SECTION NUMBER OF THE EFFECTIVE
ADDRESS OF THE XMOVEI INSTRUCTION IN THE LEFT HALF.
2014 TEST 31 - TRY A SHORT INDEX REGISTER NOW.
2031 TEST 32 - NOW TRY A SHORT FORM INDEX REGISTER WHOSE CONTENTS, WHICH WHEN ADDED
TO "Y", PRODUCES AN ADDRESS WHOSE RIGHT HALF ISN'T LESS THAN 20.
DFKED EXTENDED ADDRESSING TEST DECDOC VER 00.25 9-APR-84 13:22:56 PAGE 7
SEQ 0015
2050 TEST 33 - MAKE SURE THAT A XMOVEI INSTRUCTION REFERENCING AN AC BY WAY OF
AN IFIW ISN'T FOOLED INTO THINKING IT IS IN SECTION 0.
2076 TEST 34 - MAKE SURE THAT A XMOVEI WHOSE EFFECTIVE ADDRESS CALCULATION ENTERS SECTION 0
DOESN'T RETURN NON-0 IN THE LEFT HALF. THE DATA WORD FETCHED IN THE
LAST TEST IS MODIFIED TO HAVE ITS (IFIW STYLE) INDIRECT BIT ON, AND THE
WORD IT POINTS TO WILL POINT TO A WORD IN SECTION 0. THE WORD IN SECTION
0 WILL HAVE SOME OF BITS 14-17 ON, BITS THAT SHOULD CAUSE INDEXING AND
NOT A LARGE ADDRESS.
2115 TEST 35 - TRY A XMOVEI IN SECTION 0 TO MAKE SURE IT ONLY ACTS AS MOVEI.
2143 TEST 36 - THE PUSHJ INSTRUCTION EXECUTED IN A NON-0 SECTION SHOULD SAVE ONLY
THE LONG PC, AND NO FLAGS. THE FOLLOWING TEST TURNS ON LOTS OF PC
FLAGS AND THEN CAUSES A PUSHJ. THE STACK WORD IS CHECKED TO MAKE
SURE IT CONTAINS THE CORRECT RETURN PC, AND THAT NO OTHER BITS ARE
ON IN THE STACK WORD.
TO CONFUSE MATTERS, THE EFFECTIVE ADDRESS OF THE PUSHJ INSTRUCTION
WILL BE ARRANGED TO ENTER SECTION 0, WHICH SHOULD EFFECT HOW THE
REST OF THE EFFECTIVE ADDRESS CALCULATION IS CARRIED OUT, BUT SHOULDN'T
PREVENT THE EXTENDED ACTION.
THIS TEST ALSO VERIFIES THAT THE PUSHJ ACTUALLY CAUSES A TRANSFER TO
THE CORRECT LOCATION, AND THAT THE PC FLAGS SET BEFORE THE PUSHJ ARE STILL
SET AFTERWARDS.
THIS TEST ALSO MAKES SURE THE PUSHDOWN POINTER IS MODIFIED CORRECTLY.
2213 TEST 37 - THE PUSHJ INSTRUCTION SHOULD CAUSE A DIFFERENT STACK POINTER MODIFICATION
DEPENDING ON WHETHER THE STACK POINTER IS "LONG" OR "SHORT". THE LAST
TEST TRIED A "LONG" POINTER, AND CAN BE EASILY MODIFIED TO TRY A
"SHORT" ONE.
2239 TEST 40 - A LONG STACK SHOULD CROSS A SECTION BOUNDARY INTO THE LOW CORE OF THE NEXT
SECTION. THE FOLLOWING TEST VERIFIES THIS FACT.
2286 TEST 41 - NOW TRY THE SAME TEST BUT WITH A SHORT POINTER IN "A" INSTEAD OF THE LONG
ONE. THIS TIME THE STACK SHOULD WRAP INTO 0 INSTEAD OF SECTION 7.
2312 TEST 42 - TEST A JSP INSTRUCTION, EXECUTED IN SECTION 8.
2335 TEST 43 - NOW WE'LL TRY A POPJ IN A NON-0 SECTION.
2381 TEST 44 - MAKE SURE THE SHORT STACK TYPE OF POPJ STILL WORKS, EVEN IN A NON-0
SECTION:
2425 TEST 45 - THE FOLLOWING TESTS CHECK PXCT OF PUSH AND POP INSTRUCTIONS.
2534 TEST 46 - THIS TEST DOES AN ADJSP IN A NON-0 SECTION IN THE POSITIVE DIRECTION
TO A LONG STACK POINTER.
DFKED EXTENDED ADDRESSING TEST DECDOC VER 00.25 9-APR-84 13:22:56 PAGE 8
SEQ 0016
2561 TEST 47 - NOW LET'S TRY A SHORT POINTER WITH POSITIVE INCREMENT.
2577 TEST 50 - OK, HOW ABOUT A NEGATIVE INCREMENT WITH THE SHORT POINTER ?
2594 TEST 51 - AND NOW A NEGATIVE INCREMENT WITH A LONG POINTER...
2610 TEST 52 - HERE WE MAKE SURE THAT BIT 12 IN SEC-0 BYTE POINTERS HAS NO EFFECT.
2638 TEST 53 - NOW WE'LL TRY AN LDB INSTRUCTION.
2658 TEST 54 - NOW WE'LL DO AN IDPB IN SECTION 0 WITH BIT 12 ON.
2688 TEST 55 - NOW LET'S TRY AN ILDB IN SECTION 5 WITHOUT BIT 12 ON IN THE POINTER.
2743 TEST 56 - NOW LET'S TRY IN IDPB INSTRUCTION IN A NON-0 SECTION WITH
BIT 12 ON IN THE BYTE POINTER. WE'LL SET UP P SUCH THAT THE
SECOND WORD OF THE BYTE POINTER WILL GET INCREMENTED. THAT SECOND
WORD WILL BE SET UP TO GET INCREMENTED INTO THE NEXT SECTION EVEN !!
2798 TEST 57 - NOW WE'LL DO AN ILDB IN A NON-0 SECTION WITH INDEXING SPECIFIIED IN
THE SECOND WORD OF THE BYTE POINTER.
2851 TEST 60 - LET'S TRY HAVING THE INDIRECT BIT ON IN THE BYTE POINTER THIS
TIME:
2882 TEST 61 - THE FOLLOWING TEST TRIES AN ILDB INSTRUCTION WITH BIT 12 ON IN THE
FIRST WORD. BIT 0 OF THE SECOND WORD WILL BE ON, AND THE TEST WILL
VERIFY THAT NO CARRY ACROSS BIT 18 IS ALLOWED BY THE MICROCODE.
2929 TEST 62 - HERE'S A TEST FOR THE ADJBP INSTRUCTION BEING EXECUTED IN A NON-0
SECTION WITHOUT BIT 12 OF THE BYTE POINTER ON.
2967 TEST 63 - NOW WE'LL TRY ADJBP WITH BIT 12 ON !!
2988 TEST 64 - THE SFM (SAVE FLAGS IN MEMORY) INSTRUCTION IS NOW TESTED. THIS
INSTRUCTION IS SUPPOSED TO SAVE THE PC FLAGS IN BITS 0-12 OF ITS
EFFECTIVE ADDRESS. FIRST WE'LL TRY IT WITHOUT ANY INDIRECTION.
3041 TEST 65 - NOW LET'S TRY THE SFM WITH INDIRECTION.
3067 TEST 66 - HERE'S A TEST OF THE XPCW (SAVE THEN RESTORE FLAGS AND PROGRAM COUNTER)
INSTRUCTION:
3136 TEST 67 - NOW WE'LL TRY THE XPCW IN A SECTION 0 PAGE. IT SHOULD STILL WORK.
3179 TEST 70 - LET'S MAKE SURE THAT AN INSTRUCTION EXECUTED AS AN INTERRUPT INSTRUCTION
HAS ITS EFFECTIVE ADDRESS COMPUTED AS A SECTION 0 ADDRESS.
THIS TEST ALSO CHECKS THAT THE XPCW THAT IS USED AS THE INTERRUPT
INSTRUCTION STORES ALL THE RIGHT DATA AND TRANSFERS SUCCESSFULLY TO
A NON-0 SECTION ADDRESS.
DFKED EXTENDED ADDRESSING TEST DECDOC VER 00.25 9-APR-84 13:22:56 PAGE 9
SEQ 0017
3241 TEST 71 - NOW LET'S MAKE SURE THAT THE XJEN INSTRUCTION SUCCESSFULLY DISMISSES
AN INTERRUPT. THE TEST WILL SET UP THE INTERVAL TIMER. THE INTERRUPT
ROUTINE WILL INCREMENT ACCUMULATOR "A", AND USE AN XJEN INSTRUCTION
TO DISMISS THE INTERRUPT. THE INTERRUPT ROUTINE WILL BE IN A NON-0
SECTION. THE MAIN PROGRAM WILL USE THE TIME BASE IN ORDER TO WAIT
ENOUGH TIME FOR 5 INTERRUPTS TO HAPPEN, AND THEN THE CONTENTS OF
"A" WILL BE CHECKED TO MAKE SURE IT HAS 5 IN IT.
3306 TEST 72 - TRY A REGULAR BLT INSTRUCTION IN A NON-0 SECTION.
THIS ONE USES A LOCAL EFFECTIVE ADDRESS FOR THE BLT, AND MAKES SURE
DESTINATION OF BLT WRAPS FROM REAL AC'S TO PAGE 0 OF SECTION.
3349 TEST 73 - TRY BLT IN NON-0 SECTION AGAIN, TO MAKE SURE SOURCE COMES FROM
AC'S WHEN LOCAL ADDRESSING IS DONE. EFFECTIVE ADDRESS CALCULATION
WILL START OUT GLOBAL BUT LAST PART OF EFFECTIVE ADDRESS CALCULATION
WILL BE ARRANGED TO BE LOCAL
3405 TEST 74 - NOW WE'LL TRY A REGULAR BLT WHOSE EFFECTIVE ADDRESS IS GLOBAL, BY
VIRTUE OF THE FACT THAT INDEXING WILL BE USED IN THE BLT INSTRUCTION,
AND THE CONTENTS OF THE INDEX REGISTER LEFT HALF WILL BE POSITIVE.
THE TEST MAKES SURE THAT DUE TO GLOBAL ADDRESSING, SOURCE ADDRESSES
LESS THAN 20 CAUSES MEMORY FETCHES RATHER THAN AC REFERENCES. (AC
CONTENTS WILL EXPLICITLY BE DIFFERENT TO CATCH PROBLEM)
3454 TEST 75 - NOW TRY ANOTHER EXAMPLE OF GLOBAL ADDRESSING, THIS TIME BY VIRTUE
OF INDIRECTION WITH B0 OF THE INDIRECT WORD BEING OFF. THIS TIME
WE'LL MAKE SURE THAT LOW NUMBERED DESTINATION ADDRESSES OF THE BLT
GO TO MEMORY RATHER THAN AC'S.
3514 TEST 76 - BEFORE WE GET ON TO THE XBLT TEST, HERE'S ONE TO MAKE SURE UNDEFINED
EXTENDED OPCODES CAUSE AN MUUO TRAP. THE FOLLOWING TEST TRIES OPCODE
40 AS AN EXTENDED INSTRUCTION.
3535 TEST 77 - THE FOLLOWING TEST TRIES AN EXTENDED BLT (XBLT) INSTRUCTION. BOTH
THE SOURCE AND DESTINATION AREAS WILL CROSS SECTION BOUNDARIES.
A PAGE FAIL WILL BE ARRANGED IN THE MIDDLE OF THE BLT, SO THAT THE
AC'S MAY BE EXAMINED TO MAKE SURE THE MICROCODE CORRECTLY RESTORES THEM
FOR THE INTERRUPT.
3595 HERE'S THE CODE THAT GETS EXECUTED WHEN THE FORWARD XBLT GETS ITS
PAGE FAULT.
3619 GET TO HERE WHEN FORWARD XBLT FINISHES.
3705 TEST 100 - O.K., HOW ABOUT XBLTING BACKWARDS...
3733 PAGE TRAP DURING BACKWARDS BLT TRANSFERS TO HERE.
3755 GET TO HERE WHEN BACKWARDS XBLT FINISHES.
DFKED EXTENDED ADDRESSING TEST DECDOC VER 00.25 9-APR-84 13:22:56 PAGE 10
SEQ 0018
3812 TEST 101 - THE FOLLOWING TESTS TRY PXCTING AN XBLT INSTRUCTION.
3892 ROUTINE FOR RUNNING SOME OF THE PXT TESTS.
3967 TEST 102 - THE NEXT 6 TESTS DO A PXCT OF A MOVE INSTRUCTION. THE MOVE
INSTRUCTION USES INDIRECTION SO AS TO CAUSE B9 IN THE PXCT INSTRUCTION
TO MAKE A DIFFERENCE. THE PAG MAPS AND VARIOUS WORD CONTENTS ARE SET
UP SUCH THAT AS MANY OF THE SIX CASES TRIED WILL FETCH DIFFERENT DATA
WORDS. THE CURRENT AND PREVIOUS CONTEXTS WILL BE SET TO 3 AND 21
REPECTIVELY. THE SIX CASES TO BE TRIED ARE BITS 9 AND 10 BEING
00,01,11 FOR PCU BEING 0 AND 1.
4094 TEST 103 - HERE'S A TEST OF A MOVSLJ INSTRUCTION IN A NON-0 SECTION WITH
BIT 12 ON IN BYTE POINTERS.
4177 TEST 104 - THE FOLLOWING TEST CHECKS THAT THE MICROCODE DOESN'T CARRY FROM B18
TO B17 OF THE EDIT PATTERN OPERATOR POINTER WHEN THE EDIT IS BEING
DONE IN SECTION 0. IT ALSO CHECKS THAT THE PATTERN OPERATORS ALWAYS
COME FROM SECTION 0 WHEN THE EDIT IS BEING DONE IN SECTION 0, REGARDLESS
OF THE LEFT HALF CONTENTS OF AC0. AS IF THIS WEREN'T ENOUGH, THE TEST
ALSO MAKES SURE BIT 12 ON IN BYTE POINTERS DOESN'T CAUSE THEM TO BE
DOUBLE POINTERS (AGAIN BECAUSE THE EDIT IS IN SECTION 0).
IT ALSO CHECKS THAT MARK POINTER ADDRESS IS IN SECTION 0 REGARDLESS
OF LEFT HALF OF AC3.
4278 TEST 105 - UPON SIGNIFICANCE STARTING DURING AN EDIT OPERATION, THE DESTINATION
POINTER GETS STORED IN THE WORD(S) POINTED TO BY THE MARK POINTER. THE
FOLLOWING TEST MAKES SURE THAT THAT WORD MAY SUCCESSFULLY POINT TO
ANOTHER SECTION.
IT ALSO ASSURES THAT THE PATTERN STRING MAY BE IN A NON-0 DIFFERENT
SECTION THAN THE EDIT INSTRUCTION. THIS TEST ALSO TRIES SINGLE AND
DOUBLE WORD DESTINATION POINTERS TO MAKE SURE THAT ONE OR TWO WORDS
GET STORED IN THE MARK POINTER AREA, AS APPROPRIATE.
4393 TEST 106 - NOW WE'LL HAVE BIT 12 ON IN THE DESTINATION POINTER, AND MAKE SURE THAT
TWO WORDS OF DESTINATION POINTER ARE STORED.
4463 TEST 107 - THE FOLLOWING TESTS TRY THE EXCHMD (EXCHANGE MARK AND DESTINATION
POINTER) OPERATOR TO MAKE SURE THAT WHEN ONLY ONE OF THOSE TWO POINTERS
IS A DOUBLE POINTER, THAT THE RIGHT WORDS GET SWAPPED. ALSO, THEY
TRY PAGE FAULTS UPON REFERENCING MARK POINTERS, OR PARTS THEREOF, TO
VERIFY THAT THERE ISN'T A PROBLEM OF HALF AN EXCHANGE HAPPENING BEFORE
A PAGE FAULT, AND THEN AN UNEXCHANGE AFTERWARDS !!
4475 HERE'S THE TEST DRIVER FOR THE EXCHMD TESTS.
4585 TEST 110 - THE FOLLOWING TEST DOES A PXCT OF AN EXTEND INSTRUCTION.
THIS TEST ALSO MAKES SURE THAT CARRIES IN SECOND LONG BYTE POINTER
WORD ARE SUPPRESSED FROM BIT 6 INTO BIT 5.
DFKED EXTENDED ADDRESSING TEST DECDOC VER 00.25 9-APR-84 13:22:56 PAGE 11
SEQ 0019
4671 TEST 111 - HERE'S A TEST OF MOVSLJ INSTRUCTION, WITH THE DESTINATION STRING
BEING WRITTEN TO PREVIOUS CONTEXT WITH PXCT.
4726 TEST 112 - THE FOLLOWING TESTS MAKE SURE THAT MUUOS WORK PROPERLY, AND CAUSE
VARIOUS DATA TO GET STORED CORRECTLY.
4819 TEST 113 - HERE'S THE TEST FOR LUUO'S.
THIS ONE DOES AN LUUO IN EXEC MODE.
4873 TEST 116 - NOW WE'LL TRY AN LUUO IN USER MODE.
*****************************************************************
4920 *STOR* RESERVED STORAGE, SEPT 18,1979
*****************************************************************
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1
DFKEDT MAC 9-Apr-84 13:21 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979 SEQ 0020
1 ;*MAINDEC-10-DFKED
2
3 000000 MCNVER==0
4 000003 DECVER==3
5
6 XLIST
7 LIST
8
9 TITLE DFKED EXTENDED ADDRESSING TEST
10 ^
11
12 ;*COPYRIGHT (C) 1980 1982 1984
13 ;*DIGITAL EQUIPMENT CORP.
14 ;*MARLBORO, MASS. 01752
15
16 ;*AUTHOR: ROBERT NOBREGA
17
18 ;*MAINTAINER: 36-BIT DIAGNOSTICS ENGINEERING
19
20 000137 LOC 137
21 000137 000000 000003 MCNVER,,DECVER
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 2
DFKEDT MAC 9-Apr-84 13:21 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979 SEQ 0021
22 000001 EXCASB==1 ;ASSEMBLE FOR EXEC MODE OPERATION
23 000100 DEBUG==100 ;SAVE AN AREA FOR DEBUGGING
24 000001 ITERAT==1
25 000001 PGMEND==1 ;ASSEMBLE PROGRAM END STATEMENT
26
27 030000 SADR1= BEGIN
28 030000 SADR2= BEGIN
29 030000 SADR3= BEGIN
30 030007 SADR4= SRTDDT
31 030061 SADR5= $BEND2
32 030007 SADR6= SRTDDT
33 254200 030000 SADR7= HALT BEGIN
34 254200 030000 SADR8= HALT BEGIN
35 254200 030000 SADR9= HALT BEGIN
36 254200 030000 SADR10= HALT BEGIN
37 254200 030000 SADR11= HALT BEGIN
38 000000 PAREA1= 0
39 000017 PAREA2= 17
40 444653 454400 PAREA3= SIXBIT /DFKED/
41 605664 000000 PAREA4= SIXBIT /PNT/
42 000000 PAREA5= 0
43 000000 PAREA6= 0
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 3
DFKEDT MAC 9-Apr-84 13:21 COMMON CODING FOR ALL KL TESTS SEQ 0022
44 SUBTTL COMMON CODING FOR ALL KL TESTS
45
46 000001 A=1
47 000002 B=2
48 000003 C=3 ;TEMPORARIES WHICH MUST BE CONSECUTIVE WITH A > 0
49
50 000006 ACL=6 ;NUMBER OF WORDS IN INSTRUCTION ARGUMENT BLOCK
51
52 000004 AC=4 ;THIS THROUGH AC5 USED FOR INSTRUCTION ARGUMENTS
53 000004 AC0=AC ;FOR FLUIDIDITY
54 000005 AC1=5
55 000006 AC2=6
56 000007 AC3=7
57 000010 AC4=10
58 000011 AC5=11
59
60 ;NOTICE THAT I,X,Y OVERLAP T1, T2, T3
61
62 000012 I=12 ;HOLDS INDIRECT BIT
63 000013 X=13 ;HOLDS INDEX FIELD
64 000014 Y=14 ;HOLDS Y FIELD (RIGHT HALF)
65
66 000012 T1=12
67 000013 T2=13
68 000014 T3=14
69 000015 T4=15
70 000016 T5=16
71
72
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 4
DFKEDT MAC 9-Apr-84 13:21 COMMON CODING FOR ALL KL TESTS SEQ 0023
73
74 ;ROUTINE TO TYPE THE CONTENTS OF "MEMORY" IN OCTAL.
75
76
77
78 DEFINE TYPHAF(MEMORY)<
79 GO[ PUT
80 MOVE MEMORY
81 PNTHW
82 PSP
83 GET
84 RTN]
85 >
86
87 ;ROUTINE TO TYPE "TEXT".
88
89 DEFINE TYPE(TEXT)<
90 GO[ PUT
91 MOVEI [ASCIZ _TEXT_]
92 PNTAL
93 GET
94 RTN]
95 >
96 DEFINE SETUP<
97 MOVEI . ;GET PC
98 MOVEM TESTPC ;SAVE IT
99 >
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 5
DFKEDT MAC 9-Apr-84 13:21 COMMON CODING FOR ALL KL TESTS SEQ 0024
100
101 ;THE FOLLOWING MACRO ALLOWS ARBITRARY PHYSICAL PAGES TO BE REFERENCED
102 ;BY ARBITRARY VIRTUAL PAGE AND SECTION NUMBER. FOR EXAMPLE,
103 ; PAGMAP (P1,21,345)
104 ;CAUSES PAGE P1/1000 TO BE SECTION 21 PAGE 345.
105 ;THIS ROUTINE IS FOR EXEC MAPPING. USE UPAGMP FOR USER MAPPING.
106
107 DEFINE PAGMAP(ADDR,SN,PN)
108 < MOVEI A,ADDR
109 MOVEI B,SN
110 MOVEI C,PN
111 MOVSI T3,0
112 PUSHJ P,PMAPRT
113 >
114
115 ;MACRO FOR ASSIGNING USER PAGES.
116
117 DEFINE UPAGMP(ADDR,SN,PN)
118 < MOVEI A,ADDR
119 MOVEI B,SN
120 MOVEI C,PN
121 MOVSI T3,1
122 PUSHJ P,PMAPRT
123 >
124
125 ;MACRO TO SET PCU AND PCS. EXAMPLES:
126 ; PREV (U,21) ;PCU ON, PCS=21
127 ; PREV (X,0) ;PCU OFF, PCS=0
128
129 DEFINE PREV(PCU,PCS)
130 < PUSH P,A
131 PUSH P,B
132 SFM A
133 IFIDN <PCU> <U>, < TLO A,(PCUBIT)
134 >
135 IFIDN <PCU> <X>, < TLZ A,(PCUBIT)
136 >
137 XMOVEI B,.+2
138 XJRSTF A
139 MOVEI A,PCS
140 DPB A,[220500,,UPWD]
141 DATAO PAG,UPWD
142 POP P,B
143 POP P,A>
144
145 ;MACRO TO ALLOW "XJMP FOO" TO CLEAR PC FLAGS AND JUMP TO ANY ADDRESS.
146 ;FOR INSTANCE "XJMP 123456755" CLEARS THE PC FLAGS AND JUMPS TO SECTION
147 ;123 (IF WE HAVE ONE), PAGE 456, WORD 755.
148
149 DEFINE XJMP(ADDR)<
150 XJRSTF [EXP 0,ADDR]>
151
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 6
DFKEDT MAC 9-Apr-84 13:21 COMMON CODING FOR ALL KL TESTS SEQ 0025
152
153
154 ;SPECIAL INSTRUCTION MNEMONICS
155
156 415000 000000 OPDEF XMOVEI [SETMI] ;"MOVE EXTENDED ADDRESS"
157 254240 000000 OPDEF XJRSTF [JRST 5,] ;RESTORE FLAGS AND PROGRAM COUNTER
158 254300 000000 OPDEF XJEN [JRST 6,] ;RESTORE FLAGS AND PROGRAM COUNTER AND DISMISS
159 254340 000000 OPDEF XPCW [JRST 7,] ;SAVE THEN RESTORE FLAGS AND PROGRAM-COUNTER
160 254600 000000 OPDEF SFM [JRST 14,] ;SAVE FLAGS IN MEMORY
161 123000 000000 OPDEF EXTEND [123B8] ;INVOKES EXTENDED INSTRUCTIONS.
162 016000 000000 OPDEF MOVSLJ [16B8] ;MOVE STRING LEFT JUSTIFIED INSTRUCTION
163 010000 000000 OPDEF CVTDBO [10B8] ;CONVERTS DECIMAL DIGITS TO BINARY.
164 020000 000000 OPDEF XBLT [20B8] ;EXTENDED BLT INSTRUCTION
165 256000 000000 OPDEF PXCT [XCT] ;PXCT IS XCT WITH NON-0 AC FIELD, USUALLY.
166 076000 000000 OPDEF GOEXEC [76B8] ;MUUO TO GET FROM USER MODE BACK TO EXEC MODE.
167 004000 000000 OPDEF EDIT [4B8] ;EDIT STRING OPCODE
168 000000 N==0
169 000000 STOP==0 ;EDIT OPERATORS
170 000001 SELECT==1 ;EDIT A BYTE
171 000002 SIGST==2 ;START SIGNIFICANCE
172 000003 FLDSEP==3 ;SEPERATE FIELDS
173 000004 EXCHMD==4 ;EXCHANGE MARK AND DESTINATION POINTERS
174 000100 MESSAG==100+N ;PUT NTH MESSAGE CHARACTER IN
175 000500 SKPM==500+N ;SKIP N OPERATORS IF MINUS FLAG IS SET.
176 000600 SKPN==600+N ;SKIP IF NON-ZERO FLAG IS SET.
177 000700 SKPA==700+N ;SKIP ALWAYS.
178
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 7
DFKEDT MAC 9-Apr-84 13:21 COMMON CODING FOR ALL KL TESTS SEQ 0026
179 ;KL PAGING STUFF
180
181 000200 PION==200
182 000400 PIOFF==400
183 010000 PICLR==10000 ;PI SYMBOLS FOR "CONO PI" INSTRUCTION.
184 000020 TIM==20 ;TIMER DEVICE CODE.
185 000024 MTR==24 ;ACCOUNTING METER DEVICE CODE.
186 000002 OURACS==2 ;OUR WORKING AC BLOCK IS NUMBER 2
187 000006 REVBLK==6 ;AC BLOCK NUMBER THAT HOLDS FOLLOWING THINGS:
188
189 000000 CSTMSK==0 ;0 HOLDS CORE STATUS TABLE MASK WHICH GETS ANDED INT
190 O CST ENTRY
191 000001 CSTDAT==1 ;1 HOLDS CST DATA WHICH GETS ORED INTO CST ENTRY
192 000002 CBR==2 ;2 HOLDS CORE STATUS TABLE BASE REGISTER
193 000003 SPTBR==3 ;3 HOLDS SPECIAL PAGE TABLE BASE REGISTER
194
195 033423 TRAP3=EPT+423 ;HOLDS TRAP 3 TRAP INSTRUCTION.
196 033540 ESECT=EPT+540 ;ESECT+N/ POINTER TO EXEC SECTION N PAGE TABLE
197
198 010000 000000 USRBIT==1B5 ;USER MODE BIT
199 004000 000000 UIOBIT==1B6 ;USER IO BIT (REQUIRED TO DO IO INSTRUCTIONS IN USER
200 MODE)
201 004000 000000 PCUBIT==1B6 ;PREVIOUS CONTEXT USER BIT.
202 034540 USECT=UPT+540 ;USECT+N/ POINTER TO USER SECTION N PAGE TABLE
203
204 034424 MCODE=UPT+424 ;MUUO OPCODE AND FLAGS
205 034425 MOLDPC=MCODE+1 ;PC WHENCE MUUO CAME
206 034426 MADDR=MCODE+2 ;EFFECTIVE ADDRESS OF MUUO
207 034427 MINFO=UPT+427 ;HOLDS PCS AND OTHER STUFF AT TIME OF MUUO
208 034430 UUONPC=UPT+430 ;EIGHT LOCATIONS STARTING HERE HOLD NEW PC'S FOR MUU
209 O
210 033420 UUOPTR=EPT+420 ;HOLDS POINTER TO 4-WORD BLOCK FOR EXEC MODE LUUO'S.
211
212 034420 ULPTR=UPT+420 ;HOLDS USER LUUO BLOCK POINTER.
213 033510 TIMBAS=EPT+510 ;HOLDS HIGH ORDER TIME BASE VALUE.
214 034500 PFW=UPT+500 ;PAGE FAIL WORD.
215 034501 PFPC=UPT+501 ;THIS AND NEXT WORD HOLD PC OF PAGE FAILURE.
216 034503 PFHA=UPT+503 ;PAGE FAULT HANDLER ADDRESS ADDRESS
217 124000 ACCESS=(1B2+1B4+1B6) ;ACCESS BITS, PRIVATE, CACHE, WRITE
218 040000 KLPAGF==1B21 ;FLAG FOR TURNING ON KL PAGING
219 020000 TRAPF==1B22 ;FLAG FOR TURNING ON TRAPPING
220
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1
PARAM KLM 18-Sep-79 17:16 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979 SEQ 0027
221 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
222
223 DEFINE S,<; *********************************************************************>
224
225 ; **********************************************************************
226 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
227 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
228 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
229 ; **********************************************************************
230
231 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
232 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
233 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
234
235 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
236 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
237 010000 DING== 010000 ;RING BELL ON ERROR
238
239 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
240 002000 ERSTOP==002000 ;HALT ON TEST ERROR
241 001000 PALERS==001000 ;PRINT ALL ERRORS
242
243 000400 RELIAB==000400 ;RELIABILITY MODE
244 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
245 000100 INHPAG==000100 ;INHIBIT PAGING
246
247 000040 MODDVC==000040 ;MODIFY DEVICE CODE
248 000020 INHCSH==000020 ;INHIBIT CACHE
249 000010 OPRSEL==000010 ;OPERATOR SELECTION
250
251 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
252
253 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER
254
255 ;SWITCH 17 RESERVED !!!
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 2
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0028
256 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
257
258 ; **********************************************************************
259 ;*SPECIAL SUBPROGRAM LINKAGES
260 ; **********************************************************************
261
262 027772 FSELNK= 27772 ;FILE SELECT LINK
263 027773 FRDLNK= 27773 ;FILE READ LINK
264 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
265 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
266 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
267 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
268
269 ; **********************************************************************
270 ;*SPECIAL SUBROUTINE FATAL HALTS
271 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
272 ; **********************************************************************
273
274 ;ADDRESS TAG REASON
275 ;---------------------
276
277 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
278 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
279 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
280 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
281 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL
282 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
283 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
284 ; 1017 EOPERR ;END OF PROGRAM ERROR
285 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
286
287 ; **********************************************************************
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 3
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0029
288 ; **********************************************************************
289 ;OPERATOR DEFINITIONS (NON-UUO'S)
290 ; **********************************************************************
291
292 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
293 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
294 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
295 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
296 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
297 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
298 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
299 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
300
301 ; **********************************************************************
302 ;SUBROUTINE INITIALIZATION CALL
303 ; **********************************************************************
304
305 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
306
307 ; **********************************************************************
308 ;HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
309 ; **********************************************************************
310
311 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
312 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
313
314 ; **********************************************************************
315 ;TERMINAL INPUT UUO'S
316 ;ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
317 ;CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
318 ; **********************************************************************
319
320 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
321 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
322 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
323 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
324 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
325 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
326 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
327 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
328 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
329 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
330 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 4
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0030
331 ;TERMINAL OUTPUT UUO'S.
332
333 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
334 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
335 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
336 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
337 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
338 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
339 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
340 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
341 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
342 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
343 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
344 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
345 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
346 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
347 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
348 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
349 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
350 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
351 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
352 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
353 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
354 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
355 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
356 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
357 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
358 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
359 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
360 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
361 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
362 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
363 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
364 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
365 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
366 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
367 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
368 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
369 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
370 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
371 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
372 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
373 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
374 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 5
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0031
375 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
376 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
377 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
378 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
379 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
380 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
381 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
382 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
383 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
384 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
385 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
386 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
387 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
388
389 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
390
391 DEFINE PMSG (ARG),<
392 PSIXM [SIXBIT\ARG'_\]>
393
394 DEFINE PMSGF (ARG),<
395 PSIXMF [SIXBIT\ARG'_\]>
396
397 ;SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
398 ; CONSERVES CORE OVER ASCIZ
399
400 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
401
402 ;CONSOLE SWITCH INPUT UUO.
403 ;READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
404 ; USER MODE.
405
406 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
407
408 ;CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
409 ;EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
410
411 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK
412 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER
413
414 ;KL10 ONLY CACHE OPERATION UUO'S
415
416 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
417 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
418 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 6
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0032
419 ;END OF PASS/PROGRAM UUOS
420
421 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
422 ;DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
423
424 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
425 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
426
427 ;MEMORY MANAGEMENT UUO'S
428 ;UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
429 ;ADDRESS CONVERSION, ETC...
430
431 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
432 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
433 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
434 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
435 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
436 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
437 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
438
439 ;DEVICE CODE MODIFICATION UUO
440 ;ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
441 ;IOT'S TO A DIFFERENT DEVICE CODE.
442
443 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
444 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
445
446 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
447 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
448
449 ;"DIAMON" FILE SELECTION AND READ UUOS
450
451 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
452 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
453 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
454 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
455
456 ;KI10 ONLY UUO FOR PRINTING MARGIN VALUES
457
458 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE
459
460 XLIST
461 IFNDEF KLOLD,<LIST
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 7
PARAM KLM 18-Sep-79 17:16 ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979 SEQ 0033
462 SUBTTL ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979
463
464 ; **********************************************************************
465 ;ERROR HANDLER PARAMETERS
466 ; **********************************************************************
467
468 036000 000000 OPDEF ERUUO [36B8] ;ERROR CALL UUO
469 035000 000000 OPDEF ERLOOP [35B8] ;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
470 035040 000000 OPDEF ERLP1 [35B8!1B12] ;ERROR LOOP IF PC'S MATCH
471 035100 000000 OPDEF ERLP2 [35B8!2B12] ;ERROR LOOP IF ANY ERROR
472 034000 000000 OPDEF REPTUO [34B8] ;REPEAT LOOP UUO
473
474 ;THE ERROR HANDLER MACROS
475
476 ;A MACRO TO REPORT AN ERROR AND LOOP
477
478 DEFINE ERROR (ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
479 SALL
480 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
481 CORECT,,ACTUAL
482 [SIXBIT\D'_\],,ERR]
483 XALL
484 ERLOOP ADR ;IF ERROR, LOOP TO ADR
485 >
486
487 ;A MACRO TO REPORT AN ERROR AND NOT LOOP
488
489 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)<
490 SALL
491 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
492 CORECT,,ACTUAL
493 [SIXBIT\D'_\],,ERR]
494 XALL>
495
496 >;END OF KLOLD CONDITIONAL
497
498 XLIST
499 LIST
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0034
500 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
501
502 030000 LOC 30000
503
504 ; **********************************************************************
505 ;PROGRAM STARTING ADDRESSES
506 ;THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
507 ;NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
508 ;OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
509 ;MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
510 ; **********************************************************************
511
512 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
513 030001 254 00 0 00 030625 $START: JRST START ;MODE CHECK STARTING ADDRESS
514
515 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
516
517 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
518
519 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
520
521 030005 254 00 0 00 030000 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
522
523 030006 254 00 0 00 030000 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
524
525 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
526 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
527
528 030010 254 00 0 00 030653 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
529 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
530 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
531
532 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
533 030014 254200 030000 START2: SADR8 ; "
534 030015 254200 030000 START3: SADR9 ; "
535 030016 254200 030000 START4: SADR10 ; "
536 030017 254200 030000 START5: SADR11 ; "
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 2
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0035
537 ; **********************************************************************
538 ;PROGRAM FIXED PARAMETER AREA
539 ; **********************************************************************
540
541 030020 444653 454400 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
542 030021 605664 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
543 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER
544 030023 000000 000017 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
545 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
546 030025 000000 030615 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
547 030026 000000 000003 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
548 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
549 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
550 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
551 030032 000000 000000 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
552 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
553 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
554 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
555 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
556
557 ; **********************************************************************
558 ;PROGRAM VARIABLE PARAMETER AREA
559 ; **********************************************************************
560
561 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
562 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
563 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
564 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
565 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
566 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
567 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
568 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
569 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
570 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
571 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
572 030052 000000 000000 ERRPC: 0 ;ERROR PC
573 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
574 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
575 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
576 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 3
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0036
577 ; **********************************************************************
578 ;SPECIAL PROGRAM DISPATCH ADDRESSES
579 ; **********************************************************************
580
581 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
582 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
583 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
584 030062 000000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
585 030063 000000 030007 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
586 030064 CPOPJ1: ;SKIP RETURN
587 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
588 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
589 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
590 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
591 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
592 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
593 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
594 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
595 030073 255 00 0 00 000000 $USRHL: JFCL ; "
596 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
597 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
598 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
599 030077 255 00 0 00 000000 RESRT2: JFCL ; "
600 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
601 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
602 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
603
604 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
605 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
606 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
607
608 ; **********************************************************************
609 ;PROCESSOR CONTROL STORAGE
610 ; **********************************************************************
611
612 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
613 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
614 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
615 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
616 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
617
618 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
619 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
620
621 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
622 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
623 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
624 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
625 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
626 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
627 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 4
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0037
628 ; **********************************************************************
629 ;UUO DISPATCH TABLE
630 ; **********************************************************************
631 XLIST
632 LIST
633 030124 030070 030070 UUODIS: LUUO1,,$UUOER
634 030125 030070 030070 LUUO3,,LUUO2
635 030126 030070 030070 LUUO5,,LUUO4
636 030127 030070 030070 LUUO7,,LUUO6
637 030130 030070 030070 LUUO11,,LUUO10
638 030131 030070 030070 LUUO13,,LUUO12
639 030132 030070 030070 LUUO15,,LUUO14
640 030133 030070 030070 LUUO17,,LUUO16
641 030134 030070 030070 LUUO21,,LUUO20
642 030135 030070 030070 LUUO23,,LUUO22
643 030136 030070 030070 LUUO25,,LUUO24
644 030137 030070 030070 LUUO27,,LUUO26
645 030140 030070 030070 LUUO31,,LUUO30
646 030141 030070 030070 LUUO33,,LUUO32
647
648 ; **********************************************************************
649 ;MEMORY MANAGMENT STORAGE
650 ; **********************************************************************
651
652 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
653 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
654 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
655 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
656 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
657
658 ; **********************************************************************
659 ;PRINT CONTROL STORAGE
660 ; **********************************************************************
661
662 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
663 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
664 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
665 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
666 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
667 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
668 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
669 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
670 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
671 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
672 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
673 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
674 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
675 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
676 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
677 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
678 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
679 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
680 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 5
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0038
681 ; **********************************************************************
682 ;THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
683 ;TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
684 ; MOVEI NAME
685 ; PNTA ;OR PNTAF
686 ; **********************************************************************
687
688 030242 CRLF: ASCII/
689 030242 015 012 000 000 000 /
690 030243 CRLF2: ASCII/
691
692 030243 015 012 015 012 000 /
693 030244 054 000 000 000 000 COMMA: ASCII/,/
694 030245 056 000 000 000 000 PERIOD: ASCII/./
695 030246 040 000 000 000 000 SPACE: ASCII/ /
696 030247 011 000 000 000 000 TAB: ASCII/ /
697 030250 MINUS:
698 030250 055 000 000 000 000 HYPEN: ASCII/-/
699 030251 053 000 000 000 000 PLUS: ASCII/+/
700 030252 052 000 000 000 000 AST: ASCII/*/
701 030253 100 000 000 000 000 ATSIN: ASCII/@/
702 030254 050 000 000 000 000 LFP: ASCII/(/
703 030255 051 000 000 000 000 RTP: ASCII/)/
704 030256 007 0000000000 BELL: BYTE (7) 007
705 030257 077 000 000 000 000 QUEST: ASCII/?/
706 030260 057 000 000 000 000 SLASH: ASCII!/!
707 030261 044 000 000 000 000 DOLLAR: ASCII/$/
708 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
709 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
710 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
711
712 ; **********************************************************************
713 ;USER MODE OUTPUT FILE INFORMATION
714 ; **********************************************************************
715
716 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
717 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
718 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
719 030272 BLOCK 2
720
721 ; **********************************************************************
722 ;DISK UPDATE MODE FILE INFORMATION
723 ; **********************************************************************
724
725 030274 $IBUF: BLOCK 3
726 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
727 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
728 030301 BLOCK 2
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 6
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0039
729 ; **********************************************************************
730 ;PUSHDOWN LIST CONTROL INFORMATION
731 ; **********************************************************************
732
733 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
734 030304 PLISTS: BLOCK 200
735 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
736
737 ; **********************************************************************
738 ;POWER LINE CLOCK FREQUENCY FLAG
739 ; **********************************************************************
740
741 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
742
743 ; **********************************************************************
744 ;KL10 CACHE CONTROL FLAGS
745 ; **********************************************************************
746
747 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
748 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
749
750 ; **********************************************************************
751 ;NUMBER INPUT DIGIT FLAG
752 ; **********************************************************************
753
754 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
755
756 ; **********************************************************************
757 ;KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
758 ; **********************************************************************
759
760 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
761
762 ; **********************************************************************
763 ;ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
764 ; **********************************************************************
765
766 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
767 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
768 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
769
770 ; **********************************************************************
771 ;SPECIAL USERS UUO INTERCEPT INSTRUCTION
772 ; **********************************************************************
773
774 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 7
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0040
775 ; **********************************************************************
776 ;USER MODE MONITOR TYPE FLAG
777 ; **********************************************************************
778
779 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20
780
781 ; **********************************************************************
782 ;SPECIAL USERS MUUO INTERCEPT INSTRUCTION
783 ; **********************************************************************
784
785 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
786
787 ; **********************************************************************
788 ;SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
789 ; **********************************************************************
790
791 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
792
793 ; **********************************************************************
794 ;"SWITCH" CALL USAGE CONTROL
795 ; **********************************************************************
796
797 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
798
799 ; **********************************************************************
800 ;SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
801 ; **********************************************************************
802
803 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
804 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
805
806 ; **********************************************************************
807 ;SM10 (KS-10) PROCESSOR TYPE FLAG
808 ; **********************************************************************
809
810 030524 000000 000000 SM10: 0 ;IF -1 THIS IS A KS-10
811
812 ; **********************************************************************
813 ;RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
814 ; **********************************************************************
815
816 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
817
818 ; **********************************************************************
819 ;SPECIAL FUTURE EXPANSION ROOM
820 ; **********************************************************************
821
822 ; **********************************************************************
823 ;END OF FIXED STORAGE
824 ; **********************************************************************
825
826 030577 LOC 30577
827 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1
DFKEDM MAC 9-Apr-84 13:21 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0041
828 ;*** 4 WORD LUUO BLOCK.
829 030600 000000 000000 UUOCOD: 0 ;HOLDS OPCODE, AC FIELD, PC FLAGS
830 030601 000000 000000 UUOPC: 0 ;HOLDS PC ADDRESS
831 030602 000000 000000 UUOE: 0 ;EFFECTIVE ADDRESS OF LUUO
832 030603 000000 000000 ALOHA: 0 ;ADDRESS OF LUUO HANDLER
833 ;*** END OF 4 WORD LUUO BLOCK
834 030604 000000 000000 OLDEPT: 0 ;HOLDS SUBRTN'S EPT PAGE NUMBER
835 030605 000000 000000 RESDAT: 0
836 030606 000000 000000 UPWD: 0 ;DO "CONO PAG,UPWD" AFTER CHANGING USER PAGE MAP.
837 EPWD: 0 ;DO "CONO PAG,@EPWD" AFTER MAKING CHANGE TO MEMORY M
838 030607 000000 000000 APS.
839 030610 000000 000000 PFF: 0 ;-1 TO ALLOW ONE PAGE FAULT.
840 030611 000000 000000 PFHSPC: 0 ;HOLDS ADDRESS OF SPECIAL PAGE FAULT HANDLER.
841 ;*** BEGINNING OF TWO-WORD MUUO RETURN BLOCK.
842 030612 000000 000000 UUOSPF: 0 ;HOLDS PC FLAGS.
843 030613 000000 000000 UUOSPC: 0 ;HOLDS SPECIAL MUUO RETURN ADDRESS.
844 ;*** END OF TWO-WORD MUUO RETURN BLOCK.
845
846 030614 000000 000000 ALLOW1: 0 ;-1 TO ALLOW 1 UNRECOGNIZED MUUO.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 2
DFKEDM MAC 9-Apr-84 13:21 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0042
847 030615 PGMNAM: ASCIZ /
848 030615 015 012 104 106 113 DFKED - EXTENDED ADDRESSING TEST
849 030616 105 104 040 055 040
850 030617 105 130 124 105 116
851 030620 104 105 104 040 101
852 030621 104 104 122 105 123
853 030622 123 111 116 107 040
854 030623 124 105 123 124 015
855 030624 012 000 000 000 000 /
856
857 030625 265 00 0 00 030011 START: PGMINT ;INITIALIZE SUBROUTINE PACKAGE
858 030626 7 000 00 0 00 000001 BLKI APR,A ;SEE THAT PROPER MICROCODE LOADED + MODEL B MACHINE
859 030627 200 02 0 00 000001 MOVE B,A ;SAVE APRID
860 030630 404 01 0 00 060726 AND A,[600000,,40000] ;MASKED OUT BITS WANTED
861 030631 316 01 0 00 060726 CAMN A,[600000,,40000] ;RIGHT BITS?
862 030632 254 00 0 00 030642 JRST STA ;OK, NOW CHECK FOR VERSION LOADED
863 MOVEI [ASCIZ/
864 EITHER THIS IS A MODEL "A" MACHINE OR IMPROPER MICROCODE LOADED,
865 MICROCODE SHOULD BE "KLX.RAM" AND MODEL "B" MACHINE WITH EXTENDED ADDRESSING.
866 030633 201 00 0 00 060727 /]
867 030634 037 17 0 00 000001 PNTALF
868 MOVEI [ASCIZ/
869 030635 201 00 0 00 060765 APRID=/]
870 030636 037 17 0 00 000001 PNTALF
871 030637 200 00 0 00 000002 MOVE B ;PRINT CONTENTS OF APRID
872 030640 037 13 0 00 000001 PNTHWF
873 030641 037 16 0 00 000004 EOPUUO ;END OF PROGRAM UUO
874
875 030642 554 01 0 00 000002 STA: HLRZ A,B ;WE WANT TO CHECK THE VERSION LOADED
876 030643 620 01 0 00 777000 TRZ A,777000 ;9 BITS ONLY
877 030644 301 01 0 00 000262 CAIL A,262 ;LESS THAN 262
878 030645 476 00 0 00 066325 SETOM XBLTS0# ;262 ALLOWS XBLT IN SECTION 0
879 030646 301 01 0 00 000226 CAIL A,226 ;LESS THAN 226?
880 030647 254 00 0 00 030653 JRST STARTA ;UCODE VERSION IS OK
881 MOVEI [ASCIZ/
882 THE KLX.RAM MICROCODE MUST BE VERSION 226 OR OVER !
883 030650 201 00 0 00 060767 /]
884 030651 037 17 0 00 000001 PNTALF
885 030652 037 16 0 00 000004 EOPUUO
886
887 030653 200 01 0 00 000017 STARTA: MOVE A,P ;SAVE STACK POINTER
888 030654 202 01 0 00 066324 MOVEM A,PTEMP#
889 030655 7 004 20 0 00 000400 CONO PI,PIOFF ;TURN OFF PI
890 030656 7 020 20 0 00 020000 CONO TIM,20000 ;CLEAR DONE AND STOP TIMER.
891 030657 7 004 20 0 00 010000 CONO PI,PICLR ;CLEAR PI
892 030660 402 00 0 00 030610 SETZM PFF ;DON'T ALLOW PAGE FAULTS.
893 030661 402 00 0 00 030614 SETZM ALLOW1 ;DON'T ALLOW ILLEGAL MUUOS
894 030662 7 010 04 0 00 000001 DATAI PAG,A
895 030663 621 01 0 00 007000 TLZ A,(7B8) ;CLEAR AC BLOCK NUMBER
896 030664 661 01 0 00 002000 TLO A,(<OURACS>B8) ;SET CURRENT AC BLOCK TO OUR WORKING BLOCK.
897 030665 7 010 14 0 00 000001 DATAO PAG,A
898 030666 200 01 0 00 066324 MOVE A,PTEMP ;GET SAVED STACK POINTER
899 030667 202 01 0 00 000017 MOVEM A,P ;PUT IT IN AC BLOCK LOC. 17
900 030670 260 17 0 00 054007 PUSHJ P,KLPAGE ;TURN ON KL PAGING
901 030671 260 17 0 00 054301 PUSHJ P,TESTS ;RUN THE TESTS.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 2-1
DFKEDM MAC 9-Apr-84 13:21 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0043
902 030672 254 00 0 00 030057 JRST BEGEND ;END OF PASS
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 3
DFKEDM MAC 9-Apr-84 13:21 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0044
903
904 ;MACRO FOR ALLOCATING WHOLE PAGES
905 ;IT MAKES SURE THE PAGE BEGINS ON A PAGE BOUNDARY.
906
907 DEFINE PAGE(NAME)
908 <NAME=<.+777>_-9_9
909 LOC NAME+1000
910 >
911
912 ;HARDWARE PAGES
913
914 PAGE SPT ^;SPECIAL PAGE TABLE
915 031000 SPT=<.+777>_-9_9
916 032000 LOC SPT+1000
917
918 000031 SPTPN==SPT_-9 ;SPECIAL PAGE TABLE PAGE NUMBER
919
920 PAGE CST ^;CORE STATUS TABLE
921 032000 CST=<.+777>_-9_9
922 033000 LOC CST+1000
923
924 000032 CSTPN==CST_-9
925
926 PAGE EPT ^;EXECUTIVE PROCESS TABLE
927 033000 EPT=<.+777>_-9_9
928 034000 LOC EPT+1000
929
930 000033 EPTPN==EPT_-9
931 033514 TIMVEC=EPT+514 ;HOLDS INSTRUCTION EXECUTED FOR INTERVAL TIMER INTER
932 RUPT.
933
934 PAGE UPT ^;USER PROCESS TABLE
935 034000 UPT=<.+777>_-9_9
936 035000 LOC UPT+1000
937
938 000034 UPTPN==UPT_-9
939
940 035000 PAGE P1^P1=<.+777>_-9_9
941 036000 LOC P1+1000
942 ^
943 000035 P1PN==P1_-9
944 PAGE P3 ^;THESE ARE PURPOSELY OUT OF ORDER.
945 036000 P3=<.+777>_-9_9
946 037000 LOC P3+1000
947
948 000036 P3PN==P3_-9
949 PAGE P2 ^;PAGES USED BY TESTS.
950 037000 P2=<.+777>_-9_9
951 040000 LOC P2+1000
952
953 000037 P2PN==P2_-9 ;PAGE 2 PAGE NUMBER.
954 040000 PAGE P7^P7=<.+777>_-9_9
955 041000 LOC P7+1000
956 ^
957 000040 P7PN==P7_-9
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 3-1
DFKEDM MAC 9-Apr-84 13:21 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0045
958 041000 PAGE P5^P5=<.+777>_-9_9
959 042000 LOC P5+1000
960 ^
961 000041 P5PN==P5_-9
962 042000 PAGE P6^P6=<.+777>_-9_9
963 043000 LOC P6+1000
964 ^
965 000042 P6PN==P6_-9
966 043000 PAGE P4^P4=<.+777>_-9_9
967 044000 LOC P4+1000
968 ^
969 000043 P4PN==P4_-9
970 000007 NPAGES==7 ;NUMBER OF RESERVED PAGES.
971
972 PAGE EMAP0 ^;EXEC SECTION 0 PAGE MAP.
973 044000 EMAP0=<.+777>_-9_9
974 045000 LOC EMAP0+1000
975
976 000044 MAP0PN=EMAP0_-9
977 045000 PAGE MAP1^MAP1=<.+777>_-9_9
978 046000 LOC MAP1+1000
979 ^
980 000045 MAP1PN=MAP1_-9
981 046000 PAGE MAP2^MAP2=<.+777>_-9_9
982 047000 LOC MAP2+1000
983 ^
984 047000 PAGE MAP3^MAP3=<.+777>_-9_9
985 050000 LOC MAP3+1000
986 ^
987 050000 PAGE MAP4^MAP4=<.+777>_-9_9
988 051000 LOC MAP4+1000
989 ^
990 051000 PAGE MAP5^MAP5=<.+777>_-9_9
991 052000 LOC MAP5+1000
992 ^
993 052000 PAGE MAP6^MAP6=<.+777>_-9_9
994 053000 LOC MAP6+1000
995 ^
996 PAGE MAP7 ^;THERE MUST BE EXACTLY "NPAGES" OF THESE MAPS.
997 053000 MAP7=<.+777>_-9_9
998 054000 LOC MAP7+1000
999
1000 054000 PUSE: BLOCK NPAGES ;THE SPECIAL PAGES USED FOR TESTING EACH HAVE
1001 ;AN ENTRY HERE. THEY ARE CALLED (P1,P2,P3...
1002 ;PN) WHERE N IS THE VALUE OF "NPAGES". THE
1003 ;ENTRY IN PUSE FOR PN TELLS WHAT VIRTUAL PAGE
1004 ;OF CORE IS MAPPED TO PHYSICAL PAGE PN. BIT 17
1005 ;ON MEANS USER MAPPING, OFF MEANS EXEC MAPPING.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 4
DFKEDM MAC 9-Apr-84 13:21 MEMORY MANAGEMENT SEQ 0046
1006 SUBTTL MEMORY MANAGEMENT
1007
1008 ;*THIS ROUTINE INITIALIZES PAGING. ALL EXEC SECTION 0 PAGES ARE MAPPED TO
1009 ;*THEMSELVES. ALL OTHER EXEC PAGES, AND ALL USER PAGES ARE RENDERED
1010 ;*INNACCESSIBLE. SEE THE PAGMAP AND UPAGMP MACROS FOR MAKING PAGES
1011 ;*ACCESSIBLE.
1012
1013 054007 KLPAGE: SETUP^
1014 054007 201 00 0 00 054007 MOVEI . ;GET PC
1015 054010 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1016 ^
1017 054011 7 010 24 0 00 000001 CONI PAG,A ;FIND OUT WHERE OLD EPT WAS.
1018 054012 620 01 0 00 060000 TRZ A,TRAPF+KLPAGF ;TURN OFF PAGING BEFORE FUTZING WITH
1019 054013 7 010 20 0 01 000000 CONO PAG,(A) ;POINTERS AND STUFF
1020 054014 620 01 0 00 760000 TRZ A,760000 ;KEEP ONLY THE EPT PAGE NUMBER
1021 054015 336 00 0 00 030604 SKIPN OLDEPT ;DON'T REREMEMBER OLD EPT ON A RESTART
1022 054016 562 01 0 00 030604 HRROM A,OLDEPT ;REMEMBER WHERE THE OLD EPT WAS
1023 054017 242 01 0 00 000033 LSH A,^D27 ;CHANGE TO WORD ADDRESS IN LEFT HALF
1024 054020 541 01 0 00 033000 HRRI A,EPT ;PREPARE TO BLT EPT INTO THE ITS NEW LOCATION
1025
1026 ;*COPY THE EPT AND UPT FROM WHERE THE SUBROUTINE PACKAGE PUT IT TO WHERE
1027 ;*WE WANT IT.
1028
1029 054021 251 01 0 00 033777 BLT A,EPT+777 ;MOVE THE WHOLE EPT
1030 054022 7 010 04 0 00 000001 DATAI PAG,A ;NOW MOVE OLD UPT, TOO.
1031 054023 242 01 0 00 000033 LSH A,^D27 ;PUT ADDRESS OF OLD UPT IN LEFT HALF.
1032 054024 541 01 0 00 034000 HRRI A,UPT ;PREPARE FOR BLT.
1033 054025 251 01 0 00 034777 BLT A,UPT+777 ;MOVE THE UPT
1034
1035 ;*CLOSE ALL SECTIONS BY REMOVING ALL POINTERS TO PAGE TABLES.
1036
1037 054026 402 00 0 00 033540 SETZM ESECT ;CLOSE SECTION 0.
1038 054027 200 01 0 00 061003 MOVE A,[ESECT,,ESECT+1]
1039 054030 251 01 0 00 033577 BLT A,ESECT+37 ;CLOSE REST OF EXEC SECTIONS.
1040 054031 402 00 0 00 034540 SETZM USECT ;CLOSE USER SECTION 0.
1041 054032 200 01 0 00 061004 MOVE A,[USECT,,USECT+1]
1042 054033 251 01 0 00 034577 BLT A,USECT+37 ;CLOSE THE REST OF THE USER SECTIONS.
1043 054034 200 01 0 00 061005 MOVE A,[ACCESS,,MAP0PN]
1044 054035 202 01 0 00 033540 MOVEM A,ESECT+0 ;SET UP EXEC SECTION 0 POINTER.
1045 054036 202 01 0 00 034540 MOVEM A,USECT+0 ;USER SECTION 0 IS THE SAME AS EXEC SECTION 0.
1046
1047 ;*ZERO OUT THE SPECIAL PAGE TABLE.
1048
1049 054037 200 01 0 00 061006 MOVE A,[SPT,,SPT+1]
1050 054040 402 00 0 00 031000 SETZM SPT ;CLEAR THE FIRST WORD
1051 054041 251 01 0 00 031777 BLT A,SPT+777 ;AND THE REST
1052
1053 ;*CLEAR OUT ALL THE PAGE TABLES.
1054
1055 054042 402 00 0 00 054000 SETZM PUSE
1056 054043 200 01 0 00 061007 MOVE A,[PUSE,,PUSE+1]
1057 054044 251 01 0 00 054006 BLT A,PUSE+NPAGES-1 ;CLEAR OUT PAGE USE TABLE.
1058 054045 402 00 0 00 044000 SETZM EMAP0
1059 054046 200 01 0 00 061010 MOVE A,[EMAP0,,EMAP0+1]
1060 054047 251 01 0 00 044777 BLT A,EMAP0+777 ;CLEAR SECTION 0 EXEC TABLE.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 4-1
DFKEDM MAC 9-Apr-84 13:21 MEMORY MANAGEMENT SEQ 0047
1061 054050 402 00 0 00 045000 SETZM MAP1
1062 054051 200 01 0 00 061011 MOVE A,[MAP1,,MAP1+1]
1063 054052 251 01 0 00 053777 BLT A,MAP1+NPAGES_9-1 ;CLEAR THE TEST PAGE TABLES.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 5
DFKEDM MAC 9-Apr-84 13:21 MEMORY MANAGEMENT SEQ 0048
1064
1065 ;*INITIALIZE CST AND MAP ALL SECTION 0 PAGES TO THEMSELVES
1066
1067 054053 205 01 0 00 770000 MOVSI A,770000 ;WORD FOR EVERY CST ENTRY
1068 054054 205 03 0 00 124000 MOVSI C,ACCESS ;LEFT HALF FOR PAGE TABLE ENTRIES
1069 054055 205 02 0 00 777000 MOVSI B,-1000 ;POINTER TO CST AND EMAP0
1070 054056 202 01 0 02 032000 PTLUP: MOVEM A,CST(B) ;INITIALIZE A CST ENTRY
1071 054057 542 02 0 02 044000 HRRM B,EMAP0(B) ;INITIALIZE EXEC SEC. 0 PAGE TABLE ENTRY
1072 054060 502 03 0 02 044000 HLLM C,EMAP0(B) ;AND ITS LEFT HALF
1073 054061 253 02 0 00 054056 AOBJN B,PTLUP ;LOOP UNTIL ALL ENTRIES MADE.
1074
1075 ;*MAP THE OLD EPT TO THE NEW ONE. THIS IS SO THAT THE SUBROUTINE PACKAGE
1076 ;*WHICH ASSUMES THE EPT TO BE SOMEWHERE ELSE THAN WHERE WE PUT IT, WILL
1077 ;*NOT BE CONFUSED
1078
1079 054062 200 01 0 00 061012 MOVE A,[ACCESS,,EPTPN] ;POINTER TO NEW EPT
1080 054063 550 02 0 00 030604 HRRZ B,OLDEPT ;GET OLD EPT PAGE NUMBER
1081 054064 202 01 0 02 044000 MOVEM A,EMAP0(B) ;CHANGE THE MAP
1082 054065 7 010 04 0 00 000001 DATAI PAG,A ;GET AC BLOCK INFO.
1083
1084 ;*SET UP CST MASK, DATA, AND BASE REGISTERS
1085
1086 054066 621 01 0 00 007000 TLZ A,(7B8) ;CLEAR AC BLOCK NUMBER.
1087 054067 661 01 0 00 006000 TLO A,(<REVBLK>B8) ;SET CURRENT AC BLOCK TO RESERVED ONE.
1088 054070 202 01 0 00 030605 MOVEM A,RESDAT ;SAVE WORD FOR ACCESSING RESERVED AC BLOCK
1089 054071 630 01 0 00 061013 TDZ A,[7B8+17777] ;CLEAR AC BLOCK AND UBR FIELD
1090 054072 670 01 0 00 061014 TDO A,[<OURACS>B8+UPTPN] ;SET UP DATAO PAGE WORD
1091 054073 202 01 0 00 030606 MOVEM A,UPWD ;REMEMBER NEW DATA
1092 054074 7 010 14 0 00 030605 DATAO PAG,RESDAT ;TELL HARDWARE WE WANT TO ACCESS RESERVED AC BLOCK
1093 054075 561 00 0 00 777777 HRROI CSTMSK,-1 ;PUT ALL 1'S IN CST MASK WORD
1094 054076 201 01 0 00 000000 MOVEI CSTDAT,0 ;PUT 0 IN CST DATA WORD
1095 054077 201 03 0 00 031000 MOVEI SPTBR,SPT ;PUT SPT ADDRESS IN SPT BASE REGISTER
1096 054100 201 02 0 00 032000 MOVEI CBR,CST ;PUT CST ADDRESS IN CST BASE REGISTER
1097 054101 7 010 14 0 00 030606 DATAO PAG,UPWD ;GET BACK TO OUR AC'S AND SET NEW UPT
1098
1099 ;*INITIALIZE MUUO HANDLER
1100
1101 054102 201 01 0 00 054116 MOVEI A,MUUOH ;GET ADDRESS OF MUUO HANDLER
1102 054103 202 01 0 00 034430 MOVEM A,UUONPC ;STORE IT WHERE COMPOOTER WANTS IT.
1103 054104 200 01 0 00 061015 MOVE A,[UUONPC,,UUONPC+1]
1104 BLT A,UUONPC+7 ;ONE OF 8 LOCATIONS ARE FETCHED DEPENDING ON THE WEA
1105 054105 251 01 0 00 034437 THER
1106
1107 ;*SET UP PAGE FAULT HANDLER ADDRESS
1108
1109 054106 415 01 0 00 054161 XMOVEI A,PFH ;GET ADDRESS OF PAGE FAULT HANDLER
1110 054107 202 01 0 00 034503 MOVEM A,PFHA ;STORE IT WHERE MACHINE WANTS IT.
1111 054110 7 010 24 0 00 000001 CONI PAG,A ;GET PAGING DATA
1112 054111 620 01 0 00 017777 TRZ A,17777 ;CLEAR EBR
1113 054112 660 01 0 00 060033 TRO A,TRAPF+KLPAGF+EPTPN ;SET NEW EBR AND KL PAGING AND TRAP FLAGS
1114 054113 202 01 0 00 030607 MOVEM A,EPWD ;SAVE MAGIC WORD FOR TURNING ON PAGING
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 6
DFKEDM MAC 9-Apr-84 13:21 MEMORY MANAGEMENT SEQ 0049
1115
1116 ;*TURN ON PAGING
1117
1118 054114 7 010 20 1 00 030607 CONO PAG,@EPWD ;TURN ON PAGING
1119 054115 263 17 0 00 000000 POPJ P,
1120
1121 ;*THIS ROUTINE GETS TRANSFERRED TO ON ANY MUUO.
1122
1123 054116 254 14 0 00 030612 MUUOH: SFM UUOSPF ;SAVE THE FLAGS INDUCED BY THE MUUO.
1124 054117 261 17 0 00 000001 PUSH P,A ;DON'T CLOBBER ANY AC'S
1125 054120 135 01 0 00 061016 LDB A,[111100,,MCODE] ;GET THE OPCODE OF THE EXECUTED MUUO
1126 054121 302 01 0 00 000076 CAIE A,<GOEXEC>_-^D27 ;DO WE RECOGNIZE IT ??
1127 054122 254 00 0 00 054127 JRST MUUOH1 ;NO, INVESTIGATE FURTHER.
1128 054123 200 01 0 00 034424 MOVE A,MCODE ;GET THE FLAGS FROM WHENCE WE CAME
1129 054124 621 01 0 00 010000 TLZ A,(USRBIT) ;TURN OFF USER MODE (THAT'S WHAT "GOEXEC" DOES)
1130 054125 202 01 0 00 034424 MOVEM A,MCODE
1131 054126 254 00 0 00 054133 JRST MUUORT ;RETURN TO WHERE WE CAME FROM.
1132 054127 352 00 0 00 030614 MUUOH1: AOSE ALLOW1 ;IS AN MUUO EXPECTED ?
1133 054130 254 00 0 00 054135 JRST BADUUO ;GO PRINT INFO ABOUT BAD MUUO.
1134 054131 262 17 0 00 000001 POP P,A
1135 054132 254 05 0 00 030612 XJRSTF UUOSPF ;RETURN TO CALLER WITH PC FLAGS AS INDUCED BY MUUO.
1136 054133 262 17 0 00 000001 MUUORT: POP P,A
1137 054134 254 05 0 00 034424 XJRSTF MCODE
1138
1139 061017 T=SIXBTZ<*EXTENDED ADDRESSING TEST*>^ [SIXBIT\*EXTENDED ADDRESSING TEST*_\]^
1140
1141 054135 262 17 0 00 000001 BADUUO: POP P,A
1142 ERROR1 13,0,0,ILLEGAL MUUO EXECUTED,DIAG. WILL LOOP ON TEST,BADUOX^
1143 SALL
1144 054136 036 13 0 00 061034
1145 054137 254 00 1 00 030051 JRST @TESTPC ;LOOP ON TEST THAT CAUSED FAILURE
1146
1147 054140 BADUOX: MOVEI [ASCIZ/
1148 054140 201 00 0 00 061037 BADUUO WAS EXECUTED FROM TEST# /]
1149 054141 037 17 0 00 000001 PNTALF
1150 054142 200 00 0 00 030051 MOVE TESTPC
1151 054143 037 16 0 00 000003 PNTOCS
1152 054144 037 00 0 00 030242 PCRL
1153 TYPE <?BAD MUUO AT PC >^
1154 GO[ PUT
1155 MOVEI [ASCIZ _?BAD MUUO AT PC _]
1156 PNTAL
1157 GET
1158 054145 260 17 0 00 061052 RTN]
1159 TYPHAF MOLDPC^
1160 GO[ PUT
1161 MOVE MOLDPC
1162 PNTHW
1163 PSP
1164 GET
1165 054146 260 17 0 00 061057 RTN]
1166 054147 263 17 0 00 000000 RTN
1167
1168 ;*ROUTINE TO GET INTO USER MODE AND USER IO MODE
1169
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 6-1
DFKEDM MAC 9-Apr-84 13:21 MEMORY MANAGEMENT SEQ 0050
1170 054150 261 17 0 00 000001 GOUSER: PUSH P,A
1171 054151 261 17 0 00 000002 PUSH P,B
1172 054152 254 14 0 00 000001 SFM A ;GET THE PC FLAGS.
1173 054153 661 01 0 00 014000 TLO A,(USRBIT+UIOBIT) ;TURN ON USER AND USER IO.
1174 054154 415 02 0 00 054156 XMOVEI B,.+2 ;GET OUR OWN PC, SO XJRSTF DOESN'T GO ANYWHERE !
1175 054155 254 05 0 00 000001 XJRSTF A ;TURN ON USER MODE.
1176 054156 262 17 0 00 000002 POP P,B
1177 054157 262 17 0 00 000001 POP P,A ;RESTORE THE AC'S.
1178 054160 263 17 0 00 000000 POPJ P, ;RETURN TO THE MAIN PROGRAM.
1179
1180 ;*PAGE FAULT HANDLER
1181
1182 054161 352 00 0 00 030610 PFH: AOSE PFF ;MAKE SURE A PAGE FAULT IS ALLOWED.
1183 054162 254 00 0 00 054164 JRST BADPF ;BAD PAGE FAULT, GO TELL.
1184 054163 254 00 1 00 030611 JRST @PFHSPC ;GO HANDLE SPECIAL PAGE FAULT.
1185
1186 054164 BADPF: ERROR1 13,0,0,ILLEGAL PAGE FAULT,DIAG. WILL LOOP ON TEST,BADPFX^
1187 054164 036 13 0 00 061071
1188 054165 254 00 1 00 030051 JRST @TESTPC ;LOOP ON TEST
1189 054166 BADPFX: MOVEI [ASCIZ/
1190 054166 201 00 0 00 061074 BAD PAGE FAULT WAS EXECUTED FROM TEST# /]
1191 054167 037 17 0 00 000001 PNTALF
1192 054170 200 00 0 00 030051 MOVE TESTPC
1193 054171 037 16 0 00 000003 PNTOCS
1194 054172 037 00 0 00 030242 PCRL
1195 TYPE <?PFW = >^
1196 GO[ PUT
1197 MOVEI [ASCIZ _?PFW = _]
1198 PNTAL
1199 GET
1200 054173 260 17 0 00 061107 RTN]
1201 TYPHAF PFW^
1202 GO[ PUT
1203 MOVE PFW
1204 PNTHW
1205 PSP
1206 GET
1207 054174 260 17 0 00 061114 RTN]
1208 TYPE <. PC = >^
1209 GO[ PUT
1210 MOVEI [ASCIZ _. PC = _]
1211 PNTAL
1212 GET
1213 054175 260 17 0 00 061124 RTN]
1214 TYPHAF PFPC+1^
1215 GO[ PUT
1216 MOVE PFPC+1
1217 PNTHW
1218 PSP
1219 GET
1220 054176 260 17 0 00 061131 RTN]
1221 054177 263 17 0 00 000000 RTN
1222
1223 ;*GET TO HERE TO CONTINUE AFTER A PAGE TRAP.
1224
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 6-2
DFKEDM MAC 9-Apr-84 13:21 MEMORY MANAGEMENT SEQ 0051
1225 054200 254 05 0 00 034501 PFHRET: XJRSTF PFPC ;CONTINUE AT PC OF PAGE FAULT.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 7
DFKEDM MAC 9-Apr-84 13:21 EXTENDED ADDRESSING TESTS. SEQ 0052
1226 SUBTTL EXTENDED ADDRESSING TESTS.
1227
1228 054201 200 13 0 00 000001 PMAPRT: MOVE T2,A
1229 054202 242 13 0 00 777767 LSH T2,-9 ;GET PHYSICAL PAGE NUMBER BEING UNMAPPED.
1230 054203 275 13 0 00 000035 SUBI T2,P1PN ;NOW WE HAVE INDEX INTO PUSE TABLE.
1231 SKIPN AC0,PUSE(T2) ;PICK UP THE PAGE THAT WAS PREVIOUSLY MAPPED INTO TH
1232 054204 336 04 0 13 054000 IS ONE.
1233 054205 254 00 0 00 054235 JRST NREMOB ;IT WAS NEVER MAPPED, SO WE NEEDN'T UNMAP IT NOW !
1234 054206 606 04 0 00 777000 TRNN AC0,777000 ;CHECK FOR SECTION 0 MAPPING.
1235 054207 254 00 0 00 054235 JRST NREMOB ;NEVER UNMAP A SECTION 0 MAPPING.
1236 054210 201 07 0 00 033540 MOVEI AC3,ESECT ;FIRST ASSUME IT WAS AN EXEC MAPPING.
1237 054211 623 04 0 00 000001 TLZE AC0,1
1238 054212 201 07 0 00 034540 MOVEI AC3,USECT ;NO, IT WAS A USER MAPPING.
1239 054213 246 04 0 00 777767 LSHC AC0,-9 ;SEPARATE SECTION AND PAGE NUMBER OF OLD MAPPING.
1240 054214 242 05 0 00 777745 LSH AC1,-^D27 ;NOW OLD SECTION # IN AC0, OLD PAGE # IN AC1.
1241 054215 270 07 0 00 000004 ADD AC3,AC0 ;CREATE ADDRESS OF PAGE TABLE POINTER.
1242 054216 200 04 0 07 000000 MOVE AC0,(AC3) ;PICK UP THE STARTING ADDRESS OF THE PAGE TABLE.
1243 054217 242 04 0 00 000011 LSH AC0,9 ;CHANGE TO CORE ADDRESS.
1244 054220 270 04 0 00 000005 ADD AC0,AC1 ;CREATE ADDRESS OF PAGE TABLE ENTRY.
1245 054221 402 00 0 04 000000 SETZM (AC0) ;CLEAR OUT THE OLD ENTRY.
1246 054222 200 15 0 13 054000 MOVE T4,PUSE(T2) ;PICK UP THE OLD MAPPING INFO.
1247 054223 620 15 0 00 000777 TRZ T4,777 ;KEEP ONLY THE USER BIT AND SECTION NUMBER.
1248 MOVSI AC4,-NPAGES ;PREPARE TO LOOK FOR OTHER MAPPINGS IN SAME SECTION.
1249 054224 205 10 0 00 777771
1250 054225 200 11 0 10 054000 LK1: MOVE AC5,PUSE(AC4) ;PICK UP A MAPPING.
1251 054226 620 11 0 00 000777 TRZ AC5,777 ;CLEAR PAGE NUMBER.
1252 054227 312 11 0 00 000015 CAME AC5,T4 ;IS THIS A MAPPING IN THE SAME SECTION ?
1253 054230 254 00 0 00 054233 JRST NOQ ;THIS ONE ISN'T THE SAME SECTION.
1254 054231 302 13 0 10 000000 CAIE T2,(AC4) ;ARE WE COMPARING THE CURRENT ENTRY WITH ITSELF ?
1255 JRST NREMOB ;NO, SO WE'VE REALLY GOT EVIDENCE THE SECT. IS STILL
1256 054232 254 00 0 00 054235 IN USE
1257 054233 253 10 0 00 054225 NOQ: AOBJN AC4,LK1 ;KEEP LOOKING.
1258 SETZM (AC3) ;NO OTHER PAGE USING THIS SECT., SO FREE UP THE PAGE
1259 054234 402 00 0 07 000000 TABLE.
1260 054235 200 12 0 02 033540 NREMOB: MOVE T1,ESECT(B) ;FIRST ASSUME THIS IS AN EXEC MAPPING.
1261 054236 302 14 0 00 000000 CAIE T3,0
1262 054237 200 12 0 02 034540 MOVE T1,USECT(B) ;NO, IT'S A USER MAPPING.
1263 054240 326 12 0 00 054257 JUMPN T1,GOTONE ;THIS SECTION ALREADY HAS A PAGE TABLE IF NON-ZERO.
1264 054241 205 13 0 00 777771 MOVSI T2,-NPAGES ;IT DOESN'T, SO LET'S LOOK FOR A FREE PAGE MAP.
1265 MOVEI T4,MAP1PN ;T4 HOLDS THE PAGE MAP PAGE NUMBER WE'RE OPTING FOR.
1266 054242 201 15 0 00 000045
1267 054243 205 04 0 00 777740 CHKM1: MOVSI AC0,-40 ;NUMBER OF SECTIONS TO CHECK.
1268 054244 550 05 0 04 033540 CHKM3: HRRZ AC1,ESECT(AC0) ;PICK UP A PAGE TABLE PAGE #.
1269 054245 550 06 0 04 034540 HRRZ AC2,USECT(AC0) ;DO TWO AT ONCE.
1270 054246 312 05 0 00 000015 CAME AC1,T4
1271 054247 316 06 0 00 000015 CAMN AC2,T4
1272 054250 254 00 0 00 054254 JRST CHKM2 ;IF WE FIND A MATCH, THEN THIS PAGE TABLE IS BUSY.
1273 AOBJN AC0,CHKM3 ;CHECK REST OF POINTERS TO MAKE SURE THIS TABLE IS F
1274 054251 253 04 0 00 054244 REE.
1275 054252 200 12 0 00 000015 MOVE T1,T4 ;THIS TABLE IS A GOOD ONE. WE'LL USE IT.
1276 054253 254 00 0 00 054257 JRST GOTONE
1277 054254 271 15 0 00 000001 CHKM2: ADDI T4,1 ;TRY THE NEXT PAGE TABLE.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 8
DFKEDM MAC 9-Apr-84 13:21 EXTENDED ADDRESSING TESTS. SEQ 0053
1278 AOBJN T2,CHKM1 ;LOOP BACK UNLESS WE'VE TRIED ALL POSSIBLE PAGE TABL
1279 054255 253 13 0 00 054243 ES.
1280 054256 254 00 1 00 030051 JRST @TESTPC ;RETURN TO TEST THAT FAILED
1281 054257 505 12 0 00 124000 GOTONE: HRLI T1,ACCESS ;GET PRIVATE POINTER ACCESS BITS.
1282 054260 302 14 0 00 000000 CAIE T3,0 ;USER MAPPING ?
1283 054261 202 12 0 02 034540 MOVEM T1,USECT(B) ;YES, SO SET UP POINTER TO PAGE TABLE.
1284 054262 306 14 0 00 000000 CAIN T3,0
1285 054263 202 12 0 02 033540 MOVEM T1,ESECT(B) ;NO, SET UP POINTER TO EXEC PAGE TABLE.
1286 054264 242 12 0 00 000011 LSH T1,9 ;MAKE PAGE TABLE CORE ADDRESS.
1287 054265 270 12 0 00 000003 ADD T1,C ;NOW T1 POINTS TO SPECIFIC PAGE TABLE WORD.
1288 LSH A,-9 ;CHANGE PHYSICAL PAGE NUMBER FROM CORE ADDR TO PAGE
1289 054266 242 01 0 00 777767 NUMBER.
1290 054267 505 01 0 00 124000 HRLI A,ACCESS ;SET UP PRIVATE POINTER ACCESS BITS.
1291 054270 202 01 0 12 000000 MOVEM A,(T1) ;UPDATE THE APPROPRIATE PAGE TABLE.
1292 054271 405 01 0 00 000777 ANDI A,777 ;KEEP ONLY THE PHYSICAL PAGE NUMBER.
1293 054272 275 01 0 00 000035 SUBI A,P1PN ;CREATE INDEX INTO PUSE TABLE.
1294 054273 242 02 0 00 000011 LSH B,9 ;WE WANT SECTION NUMBER TO LEFT OF PAGE NUMBER.
1295 054274 202 14 0 01 054000 MOVEM T3,PUSE(A) ;STORE USER OR EXEC BIT IN PUSE TABLE.
1296 054275 436 02 0 01 054000 IORM B,PUSE(A) ;STORE VIRTUAL SECTION NUMBER.
1297 054276 436 03 0 01 054000 IORM C,PUSE(A) ;AND VIRTUAL PAGE NUMBER.
1298 054277 7 010 14 0 00 030606 DATAO PAG,UPWD ;TELL HARDWARE ABOUT THE NEW MAPPING.
1299 054300 263 17 0 00 000000 POPJ P,
1300
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 9
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0054
1301 SUBTTL ACTUAL TESTS
1302
1303 054301 TESTS:
1304 ;* ACTUAL TESTS
1305 ;* ------ -----
1306 ;*
1307 ;*THE GOAL OF THIS PROGRAM IS TO MAKE SURE EXTENDED ADDRESSING
1308 ;*WORKS PROPERLY. THERE IS LITTLE ATTEMPT MADE TO DESIGN THE TESTS
1309 ;*TO FIGURE OUT EXACTLY WHAT DOESN'T WORK. HENCE A TEST OF ONE FEATURE
1310 ;*MAY INDEED EMPLOY SOME OTHER NON-TESTED FEATURE !
1311 ;*MAKE SURE A TRAP IS TAKEN IF A REFERENCE TO AN ADDRESS WITHIN A SECTION
1312 ;*GREATER THAN OR EQUAL TO 37 IS MADE.
1313
1314 061137 T=SIXBTZ<*EXTENDED ADDRESSING TESTS*>^ [SIXBIT\*EXTENDED ADDRESSING TESTS*_\]^
1315
1316 ;*TEST 1 - FORCE PAGE FAIL
1317
1318 054301 T01: SETUP^
1319 054301 201 00 0 00 054301 MOVEI . ;GET PC
1320 054302 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1321 054303 476 00 0 00 030610 SETOM PFF ;ALLOW ONE PAGE FAULT.
1322 054304 415 02 0 00 054307 XMOVEI B,HOMTLG ;LOAD UP RETURN ADDRESS FROM PAGE FAULT.
1323 054305 202 02 0 00 030611 MOVEM B,PFHSPC ;TELL PAGE FAULT HANDLER WHERE TO RETURN TO.
1324 XJMP 40000002 ^;TRY TO JUMP INTO NON-EX MEM.
1325 054306 254 05 0 00 061144 XJRSTF [EXP 0,40000002]
1326 054307 332 00 0 00 030610 HOMTLG: SKIPE PFF ;MAKE SURE PAGE FAULT HAPPENED.
1327 ERROR T01,13,0,0,,^_
1328 <NO PAGE FAULT HAPPENED WHEN TRYING TO JUMP INTO TOO LARGE A SECTION>^
1329 054310 036 13 0 00 061162
1330 054311 035 00 0 00 054301 ERLOOP T01 ;IF ERROR, LOOP TO T01
1331 054312 135 01 0 00 061165 LDB A,[360600,,PFW] ;GET PAGE FAIL CODE.
1332 054313 302 01 0 00 000027 CAIE A,27 ;MAKE SURE CORRECT CODE GOT STORED.
1333 ERROR T01,13,[27],A,,^_
1334 <WRONG PAGE FAIL CODE GOT STORED UPON TRYING TO JUMP TO TOO LARGE A SECTION>^
1335 054314 036 13 0 00 061204
1336 054315 035 00 0 00 054301 ERLOOP T01 ;IF ERROR, LOOP TO T01
1337 ;*TEST 2 - TRY A SIMPLE INSTRUCTION IN A NON-ZERO SECTION TO MAKE SURE
1338 ;*LOCAL FETCHING HAPPENS CORRECTLY.
1339
1340 054316 T02: SETUP^
1341 054316 201 00 0 00 054316 MOVEI . ;GET PC
1342 054317 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1343 PAGMAP (P1,13,407)^ ;PAGE P1 IS SECTION 13 PAGE 407.
1344 054320 201 01 0 00 035000 MOVEI A,P1
1345 054321 201 02 0 00 000013 MOVEI B,13
1346 054322 201 03 0 00 000407 MOVEI C,407
1347 054323 205 14 0 00 000000 MOVSI T3,0
1348 054324 260 17 0 00 054201 PUSHJ P,PMAPRT
1349 054325 201 01 0 00 012435 MOVEI A,12435 ;DATA TO BE FETCHED
1350 054326 202 01 0 00 035500 MOVEM A,P1+500 ;STORE DATA IN LOCATION 13407500
1351 DMOVE A,[MOVE A,407500
1352 054327 120 01 0 00 061207 JRST @B] ;TEST PROGRAM TO BE RUN.
1353 054330 124 01 0 00 035600 DMOVEM A,P1+600 ;PUT PROGRAM IN LOCATION 13407600.
1354 054331 415 02 0 00 054333 XMOVEI B,HOME0 ;LOAD UP RETURN ADDRESS
1355 XJMP 13407600 ^;JUMP TO TEST PROGRAM
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 9-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0055
1356 054332 254 05 0 00 061211 XJRSTF [EXP 0,13407600]
1357 054333 302 01 0 00 012435 HOME0: CAIE A,12435 ;MAKE SURE TEST SUCCEEDED IN FETCHING CORRECT DATA.
1358 ERROR T02,13,[12435],A,,^_
1359 <SIMPLE MEMORY FETCH FAILED>^
1360 054334 036 13 0 00 061221
1361 054335 035 00 0 00 054316 ERLOOP T02 ;IF ERROR, LOOP TO T02
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 10
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0056
1362
1363 ;*TEST 3 - A SIMPLE LOCAL INDEXING TEST WILL BE DONE TO SHOW THAT
1364 ;*NEGATIVE INDEXING WORKS CORRECTLY WITHIN A SECTION IF LOCAL INDEXING
1365 ;*IS BEING USED.
1366
1367 054336 T03: SETUP^
1368 054336 201 00 0 00 054336 MOVEI . ;GET PC
1369 054337 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1370 DMOVE A,[MOVE A,-100(B)
1371 054340 120 01 0 00 061224 JRST @C] ;PROGRAM JUST DOES A MOVE AND EXITS
1372 054341 124 01 0 00 035302 DMOVEM A,P1+302 ;PUT TEST PROGRAM IN LOCATION 13407302.
1373 054342 201 02 0 00 005555 MOVEI B,5555 ;DATA TO BE FETCHED
1374 054343 202 02 0 00 035101 MOVEM B,P1+101 ;DATA WILL BE FETCHED FROM 13407101.
1375 054344 201 02 0 00 407201 MOVEI B,407201 ;SET UP INDEX REGISTER FOR PROGRAM
1376 054345 415 03 0 00 054347 XMOVEI C,HOME2 ;SET UP RETURN ADDRESS
1377 XJMP 13407302 ^;JUMP TO TEST
1378 054346 254 05 0 00 061226 XJRSTF [EXP 0,13407302]
1379 054347 302 01 0 00 005555 HOME2: CAIE A,5555 ;CHECK RESULT.
1380 ERROR T03,13,[5555],A,,^_
1381 <NEGATIVE LOCAL INDEXING FAILED>^
1382 054350 036 13 0 00 061237
1383 054351 035 00 0 00 054336 ERLOOP T03 ;IF ERROR, LOOP TO T03
1384
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 11
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0057
1385
1386 ;*TEST 4 - WRAPAROUND OF MEMORY WILL BE TESTED WITH A POSITIVE INDEX WHICH WHEN
1387 ;*ADDED TO THE "Y" FIELD, SHOULD CAUSE A WRAPAROUND.
1388
1389 054352 T04: SETUP^
1390 054352 201 00 0 00 054352 MOVEI . ;GET PC
1391 054353 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1392 054354 200 02 0 00 061242 MOVE B,[3.1415926] ;DATA TO BE FETCHED
1393 MOVEM B,P1+67 ;IT WILL BE FETCHED FROM WORD 67 OF SECTION 13 PAGE
1394 054355 202 02 0 00 035067 407
1395 DMOVE A,[MOVE A,3000(B) ;INSTRUCTION BEING TESTED.
1396 054356 120 01 0 00 061243 JRST @C] ;EXIT
1397 054357 124 01 0 00 035050 DMOVEM A,P1+50 ;PROGRAM GOES IN SECTIN 13 PAGE 407 WORD 50
1398 054360 200 02 0 00 061245 MOVE B,[400525,,407067-3000] ;INDEX SHOULD WORK.GARBAGE LEFT HALF SHOULD BE OK.
1399 054361 415 03 0 00 054363 XMOVEI C,HOME3 ;LOAD UP RETURN ADDRESS
1400 XJMP 13407050 ^;START TEST
1401 054362 254 05 0 00 061246 XJRSTF [EXP 0,13407050]
1402 054363 312 01 0 00 061242 HOME3: CAME A,[3.1415926] ;MAKE SURE CORRECT DATA WAS FETCHED.
1403 ERROR T04,13,[3.1415926],A,,^_
1404 <POSITIVE LOCAL WRAPAROUND INDEX FAILED>^
1405 054364 036 13 0 00 061257
1406 054365 035 00 0 00 054352 ERLOOP T04 ;IF ERROR, LOOP TO T04
1407
1408
1409
1410 ;*TEST 5 - SOME FLAVORS OF GLOBAL INDEXING WILL BE TRIED.
1411 ;*THE FOLLOWING TEST CHECKS GLOBAL INDEXING:
1412
1413 054366 T05: SETUP^
1414 054366 201 00 0 00 054366 MOVEI . ;GET PC
1415 054367 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1416 PAGMAP (P1,25,777)^ ;MAKE P1 BE THE LAST PAGE OF SECTION 25
1417 054370 201 01 0 00 035000 MOVEI A,P1
1418 054371 201 02 0 00 000025 MOVEI B,25
1419 054372 201 03 0 00 000777 MOVEI C,777
1420 054373 205 14 0 00 000000 MOVSI T3,0
1421 054374 260 17 0 00 054201 PUSHJ P,PMAPRT
1422 PAGMAP (P2,26,0)^ ;P2 IS THE "NEXT" VIRTUAL PAGE AFTER P1
1423 054375 201 01 0 00 037000 MOVEI A,P2
1424 054376 201 02 0 00 000026 MOVEI B,26
1425 054377 201 03 0 00 000000 MOVEI C,0
1426 054400 205 14 0 00 000000 MOVSI T3,0
1427 054401 260 17 0 00 054201 PUSHJ P,PMAPRT
1428 DMOVE A,[MOVE A,100(A)
1429 054402 120 01 0 00 061262 JRST @B] ;PROGRAM TO BE RUN
1430 054403 124 01 0 00 037100 DMOVEM A,P2+100 ;PUT PROGRAM IN SECTION 26 PAGE 0
1431 054404 200 02 0 00 061264 MOVE B,[SETZ 1] ;ARBITRARY DATA TO BE FETCHED BY TEST
1432 054405 202 02 0 00 037020 MOVEM B,P2+20 ;IT WILL BE FETCHED FROM SEC. 26 P. 0 WORD 20
1433 054406 200 01 0 00 061265 MOVE A,[26000020-100] ;INDEX OF 100 SHOULD MODIFY THIS NUMBER
1434 054407 415 02 0 00 054411 XMOVEI B,HOME4 ;LOAD UP RETURN ADDRESS
1435 XJMP 26000100 ^;JUMP TO TEST
1436 054410 254 05 0 00 061266 XJRSTF [EXP 0,26000100]
1437 054411 312 01 0 00 061264 HOME4: CAME A,[SETZ 1] ;VERIFY CORRECTNESS
1438 ERROR T05,13,[SETZ 1],A,,^_
1439 <POSITIVE GLOBAL INDEX FAILED>^
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 11-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0058
1440 054412 036 13 0 00 061275
1441 054413 035 00 0 00 054366 ERLOOP T05 ;IF ERROR, LOOP TO T05
1442
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 12
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0059
1443
1444 ;*TEST 6 - THIS TEST IS EASILY MODIFIED TO TEST NEGATIVE INDEXING
1445 054414 T06: SETUP^
1446 054414 201 00 0 00 054414 MOVEI . ;GET PC
1447 054415 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1448 054416 201 01 0 00 777700 MOVEI A,-100
1449 054417 542 01 0 00 037100 HRRM A,P2+100 ;CHANGE INSTRUCTION TO "MOVE A,-100(A)"
1450 054420 200 01 0 00 061300 MOVE A,[7654321] ;DATA TO BE FETCHED
1451 054421 202 01 0 00 035700 MOVEM A,P1+700 ;IT WILL BE FETCHED FROM SEC. 25 P 777
1452 054422 200 01 0 00 061301 MOVE A,[25777700+100] ;INDEX WHICH WHEN MODIFIED POINTS TO CORRECT WORD
1453 054423 415 02 0 00 054425 XMOVEI B,HOME5 ;LOAD UP RETURN ADDRESS
1454 XJMP 26000100 ^;EXECUTE THE TEST
1455 054424 254 05 0 00 061266 XJRSTF [EXP 0,26000100]
1456 054425 312 01 0 00 061300 HOME5: CAME A,[7654321] ;MAKE SURE IT WORKED.
1457 ERROR T06,13,[7654321],A,,^_
1458 <NEGATIVE GLOBAL INDEXING FAILED>^
1459 054426 036 13 0 00 061310
1460 054427 035 00 0 00 054414 ERLOOP T06 ;IF ERROR, LOOP TO T06
1461
1462
1463 ;*TEST 7 - AN IFIW IS TESTED
1464
1465
1466 054430 T07: SETUP^
1467 054430 201 00 0 00 054430 MOVEI . ;GET PC
1468 054431 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1469 054432 200 01 0 00 061313 MOVE A,[525252,,525252] ;DATA TO BE FETCHED
1470 054433 202 01 0 00 037500 MOVEM A,P2+500 ;FROM SEC. 27, P. 0 WORD 500
1471 PAGMAP (P1,26,35)^ ;MAKE P1 BE SEC. 26, P. 35
1472 054434 201 01 0 00 035000 MOVEI A,P1
1473 054435 201 02 0 00 000026 MOVEI B,26
1474 054436 201 03 0 00 000035 MOVEI C,35
1475 054437 205 14 0 00 000000 MOVSI T3,0
1476 054440 260 17 0 00 054201 PUSHJ P,PMAPRT
1477 PAGMAP (P2,27,0)^ ;P2 IS SECTION 27 PAGE 0.
1478 054441 201 01 0 00 037000 MOVEI A,P2
1479 054442 201 02 0 00 000027 MOVEI B,27
1480 054443 201 03 0 00 000000 MOVEI C,0
1481 054444 205 14 0 00 000000 MOVSI T3,0
1482 054445 260 17 0 00 054201 PUSHJ P,PMAPRT
1483 054446 201 03 0 00 000004 MOVEI C,4 ;C WILL BE USED AS INDEX REGISTER
1484 054447 200 01 0 00 061314 MOVE A,[1B0+<14140,,7(A)>] ;GARBAGE IN BITS 2-12 SHOULDN'T MATTER
1485 054450 202 01 0 00 035127 MOVEM A,P1+123+4 ;PUT IFIW IN SEC. 26 P. 35 WORD 123+4
1486 DMOVE A,[MOVE A,@35123(C)
1487 054451 120 01 0 00 061315 JRST @B] ;TEST PROGRAM TO BE RUN
1488 054452 124 01 0 00 035450 DMOVEM A,P1+450 ;PUT PROGRAM AT LOCATION 26035450
1489 054453 415 02 0 00 054456 XMOVEI B,HOME6 ;LOAD UP RETURN ADDRESS
1490 MOVE A,[27,,500-7] ;OFFSET OF 7 IN MOVE INSTRUCTION SHOULD CANCEL THE 7
1491 054454 200 01 0 00 061317 OUT.
1492 XJMP 26035450 ^;JUMP TO TEST
1493 054455 254 05 0 00 061320 XJRSTF [EXP 0,26035450]
1494 054456 312 01 0 00 061313 HOME6: CAME A,[525252,,525252] ;MAKE SURE THE RIGHT DATA WAS FETCHED.
1495 ERROR T07,13,[525252,,525252],A,,^_
1496 <IFIWS DON'T WORK CORRECTLY>^
1497 054457 036 13 0 00 061327
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 12-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0060
1498 054460 035 00 0 00 054430 ERLOOP T07 ;IF ERROR, LOOP TO T07
1499
1500
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 13
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0061
1501 ;*TEST 10 - THE FOLLOWING TEST TRIES AN EXTENDED FORMAT INDIRECT WORD WITH BIT 1
1502 054461 T10: SETUP^
1503 054461 201 00 0 00 054461 MOVEI . ;GET PC
1504 054462 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1505
1506 PAGMAP (P1,1,5)^ ;MAKE P1 BE SECTION 1 PAGE 5
1507 054463 201 01 0 00 035000 MOVEI A,P1
1508 054464 201 02 0 00 000001 MOVEI B,1
1509 054465 201 03 0 00 000005 MOVEI C,5
1510 054466 205 14 0 00 000000 MOVSI T3,0
1511 054467 260 17 0 00 054201 PUSHJ P,PMAPRT
1512 PAGMAP (P2,14,777)^ ;P2 IS NOW SECTION 14 PAGE 777
1513 054470 201 01 0 00 037000 MOVEI A,P2
1514 054471 201 02 0 00 000014 MOVEI B,14
1515 054472 201 03 0 00 000777 MOVEI C,777
1516 054473 205 14 0 00 000000 MOVSI T3,0
1517 054474 260 17 0 00 054201 PUSHJ P,PMAPRT
1518 PAGMAP (P3,37,50)^ ;MAKE P3 BE SECTION 37 PAGE 50
1519 054475 201 01 0 00 036000 MOVEI A,P3
1520 054476 201 02 0 00 000037 MOVEI B,37
1521 054477 201 03 0 00 000050 MOVEI C,50
1522 054500 205 14 0 00 000000 MOVSI T3,0
1523 054501 260 17 0 00 054201 PUSHJ P,PMAPRT
1524 054502 200 01 0 00 061332 MOVE A,[<A>B5+400004] ;ALMOST POINTS TO SECTION 1
1525 054503 202 01 0 00 037750 MOVEM A,P2+750 ;PUT EFIW IN SECTION 14 PAGE 777
1526 054504 200 01 0 00 061333 MOVE A,[14,,777444] ;DATA TO BE FETCHED
1527 054505 202 01 0 00 035666 MOVEM A,P1+666 ;FROM SECTION 1 PAGE 5 WORD 666
1528 DMOVE A,[MOVE A,@-100(C)
1529 054506 120 01 0 00 061334 JRST @B] ;PROGRAM TO BE TESTED
1530 054507 124 01 0 00 036407 DMOVEM A,P3+407 ;PUT PROGRAM IN SECTION 37, PAGE 50 WORD 407
1531 054510 200 03 0 00 061336 MOVE C,[14777750+100] ;INDEX REGISTER FOR TEST PROGRAM
1532 054511 201 01 0 00 405662 MOVEI A,405662 ;EFIW REFERENCES THIS AS INDEX REGISTER
1533 054512 415 02 0 00 054514 XMOVEI B,HOME7 ;RETURN ADDRESS
1534 XJMP 37050407 ^;JUMP TO TEST PROGRAM
1535 054513 254 05 0 00 061337 XJRSTF [EXP 0,37050407]
1536 054514 312 01 0 00 061333 HOME7: CAME A,[14,,777444] ;MAKE SURE IT WORKED.
1537 ERROR T10,13,[14,,777444],A,,^_
1538 <EFIWS WITH BIT 1 OFF AREN'T WORKING CORRECTLY>^
1539 054515 036 13 0 00 061351
1540 054516 035 00 0 00 054461 ERLOOP T10 ;IF ERROR, LOOP TO T10
1541
1542
1543 ;*TEST 11 - THIS LAST TEST IS MODIFIED NOW TO TRY AN EFIW WITH BIT 1 ON:
1544
1545 054517 T11: SETUP^
1546 054517 201 00 0 00 054517 MOVEI . ;GET PC
1547 054520 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1548 054521 200 01 0 00 061354 MOVE A,[3,,4] ;DATA TO BE FETCHED
1549 MOVEM A,P2+444 ;DATA IN LAST TEST POINTS TO THIS WORD WHEN USED AS
1550 054522 202 01 0 00 037444 EFIW
1551 054523 205 01 0 00 200000 MOVSI A,(1B1) ;GET BIT 1
1552 054524 436 01 0 00 037750 IORM A,P2+750 ;PUT IT INTO EFIW ALREADY IN MEMORY.
1553 054525 415 02 0 00 054530 XMOVEI B,HOME8 ;GET RETURN ADDRESS
1554 054526 201 01 0 00 405662 MOVEI A,405662 ;EFIW REFERENCES THIS AS INDEX REGISTER
1555 XJMP 37050407 ^;JUMP TO TEST PROGRAM
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 13-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0062
1556 054527 254 05 0 00 061337 XJRSTF [EXP 0,37050407]
1557 054530 312 01 0 00 061354 HOME8: CAME A,[3,,4] ;BE SURE EVERYTHING WORKED.
1558 ERROR T11,13,[3,,4],A,,^_
1559 <EFIWS WITH BIT 1 ON DON'T WORK PROPERLY>^
1560 054531 036 13 0 00 061364
1561 054532 035 00 0 00 054517 ERLOOP T11 ;IF ERROR, LOOP TO T11
1562
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 14
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0063
1563
1564 ;*TEST 12 - IF BITS 0-1 ARE BOTH ON, A TRAP SHOULD BE TAKEN. THE NEXT TEST TRIES
1565 ;*THAT SITUATION.
1566
1567 054533 T12: SETUP^
1568 054533 201 00 0 00 054533 MOVEI . ;GET PC
1569 054534 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1570 054535 476 00 0 00 030610 SETOM PFF ;ALLOW 1 PAGE FAULT.
1571 054536 205 01 0 00 600000 MOVSI A,(3B1) ;GET ILLEGAL COMBINATION
1572 IORM A,P2+750 ;MODIFY DATA FROM LAST TEST TO BE ILLEGAL INDIRECT W
1573 054537 436 01 0 00 037750 ORD
1574 054540 415 02 0 00 054544 XMOVEI B,HOME90 ;GET RETURN ADDRESS
1575 054541 202 02 0 00 030611 MOVEM B,PFHSPC ;TELL PAGE FAULT HANDLER WHERE TO RETURN TO.
1576 054542 201 01 0 00 405662 MOVEI A,405662 ;INITIALIZE INDEX REGISTER.
1577 XJMP 37050407 ^;JUMP TO TEST PROGRAM
1578 054543 254 05 0 00 061337 XJRSTF [EXP 0,37050407]
1579 054544 332 00 0 00 030610 HOME90: SKIPE PFF ;MAKE SURE THE PAGE FAULT HAPPENED.
1580 ERROR T12,13,0,0,,^_
1581 <BITS 0 AND 1 BOTH ON IN INDIRECT WORD DIDN'T CAUSE A PAGE FAIL>^
1582 054545 036 13 0 00 061402
1583 054546 035 00 0 00 054533 ERLOOP T12 ;IF ERROR, LOOP TO T12
1584
1585 054547 200 01 0 00 034500 MOVE A,PFW ;GET THE PAGE FAIL WORD.
1586 054550 621 01 0 00 003000 TLZ A,3000 ;FLUSH CACHE BIT & KEEP BIT
1587 054551 312 01 0 00 061405 CAME A,[240014,,777750] ;MAKE SURE EXPECTED PAGE FAIL WORD GOT SET UP.
1588 ERROR T12,13,[241014,,777750],A,,^_
1589 <REFERENCING TOO LARGE A SECTION CAUSED THE WRONG PAGE FAIL WORD TO BE SET UP>^
1590 054552 036 13 0 00 061424
1591 054553 035 00 0 00 054533 ERLOOP T12 ;IF ERROR, LOOP TO T12
1592
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 15
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0064
1593
1594 ;*TEST 13 - BOTH BITS BEING ON IN AN INDIRECT WORD IS ALRIGHT IF THE WORD IS IN
1595 ;*SECTION 0. THAT CASE IS NOW TRIED TO BE SURE BITS 0 AND 1 BOTH ON
1596 ;*IS ALLOWED IN SECTION 0.
1597
1598 054554 T13: SETUP^
1599 054554 201 00 0 00 054554 MOVEI . ;GET PC
1600 054555 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1601 PAGMAP (P1,0,P1PN)^ ;P1 IS MAPPED TO ITSELF.
1602 054556 201 01 0 00 035000 MOVEI A,P1
1603 054557 201 02 0 00 000000 MOVEI B,0
1604 054560 201 03 0 00 000035 MOVEI C,P1PN
1605 054561 205 14 0 00 000000 MOVSI T3,0
1606 054562 260 17 0 00 054201 PUSHJ P,PMAPRT
1607 054563 200 01 0 00 061427 MOVE A,[@3B1+P1+300] ;INDIRECT WORD POINTS TO WORD 300 OF PAGE P1.
1608 054564 202 01 0 00 035400 MOVEM A,P1+400 ;PUT INDIRECT WORD IN SECTION 0 PAGE.
1609 PAGMAP (P2,1,40)^ ;P2 IS SECTION 1 PAGE 40.
1610 054565 201 01 0 00 037000 MOVEI A,P2
1611 054566 201 02 0 00 000001 MOVEI B,1
1612 054567 201 03 0 00 000040 MOVEI C,40
1613 054570 205 14 0 00 000000 MOVSI T3,0
1614 054571 260 17 0 00 054201 PUSHJ P,PMAPRT
1615 DMOVE A,[MOVE A,@40123
1616 054572 120 01 0 00 061430 JRST @B] ;TEST PROGRAM TO BE RUN.
1617 054573 124 01 0 00 037601 DMOVEM A,P2+601 ;STORE TEST PROGRAM IN SECTION 1.
1618 054574 200 01 0 00 061432 MOVE A,[1B1+P1+400] ;EFIW THAT POINTS TO SECTION 0.
1619 054575 202 01 0 00 037123 MOVEM A,P2+123 ;PUT EFIW WHERE "MOVE" INSTRUCTION EXPECTS IT.
1620 054576 200 01 0 00 061433 MOVE A,[33333,,55555] ;DATA TO BE FETCHED.
1621 054577 202 01 0 00 036010 MOVEM A,P3+8 ;1(C) POINTS TO P3+8.
1622 054600 200 01 0 00 061434 MOVE A,[1(C)] ;INDIRECT WORD FOR SECTION 0.
1623 054601 202 01 0 00 035300 MOVEM A,P1+300
1624 PAGMAP (P3,0,P3PN)^ ;MAP P3 TO ITSELF IN SECTION 0.
1625 054602 201 01 0 00 036000 MOVEI A,P3
1626 054603 201 02 0 00 000000 MOVEI B,0
1627 054604 201 03 0 00 000036 MOVEI C,P3PN
1628 054605 205 14 0 00 000000 MOVSI T3,0
1629 054606 260 17 0 00 054201 PUSHJ P,PMAPRT
1630 054607 201 03 0 00 036007 MOVEI C,P3+7 ;CONTENTS OF INDEX REGISTER.
1631 054610 415 02 0 00 054612 XMOVEI B,HOME1B ;LOAD UP RETURN ADDRESS.
1632 XJMP 1040601 ^;JUMP TO TEST PROGRAM
1633 054611 254 05 0 00 061435 XJRSTF [EXP 0,1040601]
1634 054612 312 01 0 00 061433 HOME1B: CAME A,[33333,,55555] ;MAKE SURE CORRECT DATA WAS FETCHED.
1635 ERROR T13,13,[333333,,555555],A,,^_
1636 <INDIRECT WORD WITH BITS 0 AND 1 BOTH ON IN SECTION 0 DIDN'T WORK RIGHT.>^
1637 054613 036 13 0 00 061454
1638 054614 035 00 0 00 054554 ERLOOP T13 ;IF ERROR, LOOP TO T13
1639
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 16
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0065
1640
1641 ;*TEST 14 - TRY CAUSING AN INDIRECT CHAIN TO ENTER SECTION 0 AND MAKE SURE IT STAYS
1642 ;*THERE. THIS ONE GETS TO SECTION 0 BY AN AC IN THE INDIRECT CHAIN.
1643
1644 054615 T14: SETUP^
1645 054615 201 00 0 00 054615 MOVEI . ;GET PC
1646 054616 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1647 PAGMAP (P1,20,300)^ ;P1 IS SECTION 20 PAGE 300
1648 054617 201 01 0 00 035000 MOVEI A,P1
1649 054620 201 02 0 00 000020 MOVEI B,20
1650 054621 201 03 0 00 000300 MOVEI C,300
1651 054622 205 14 0 00 000000 MOVSI T3,0
1652 054623 260 17 0 00 054201 PUSHJ P,PMAPRT
1653 DMOVE A,[MOVE A,@300500
1654 054624 120 01 0 00 061457 JRST @B] ;TEST PROGRAM TO BE RUN
1655 054625 124 01 0 00 035400 DMOVEM A,P1+400 ;TEST PROGRAM STARTS AT 20300400
1656 054626 200 01 0 00 061461 MOVE A,[1B1+T2]
1657 054627 202 01 0 00 035500 MOVEM A,P1+500 ;TEST PROGRAM INDIRECTLY ADDRESS T2 IN SECTION 0
1658 PAGMAP (P2,0,P2PN)^ ;P2 IS SECT.0 PAGE P2PN(SO SUBRTN ISN'T SCRE
1659 WED UP)
1660 054630 201 01 0 00 037000 MOVEI A,P2
1661 054631 201 02 0 00 000000 MOVEI B,0
1662 054632 201 03 0 00 000037 MOVEI C,P2PN
1663 054633 205 14 0 00 000000 MOVSI T3,0
1664 054634 260 17 0 00 054201 PUSHJ P,PMAPRT
1665 054635 200 13 0 00 061462 MOVE T2,[T3,,P2-1000+765];AS EXTENDED ADDR,WOULD BE SECT T3, BUT IT'LL BE SHORT.
1666 MOVEI T3,1000 ;P2-1+765+1000 IS P2+765,WHERE DATA SHOULD COME FROM
1667 054636 201 14 0 00 001000 .
1668 054637 200 02 0 00 061463 MOVE B,[123,,456] ;DATA TO BE FETCHED.
1669 054640 202 02 0 00 037765 MOVEM B,P2+765 ;IT SHOULD BE FETCHED FROM WORD 765 OF P2.
1670 054641 415 02 0 00 054643 XMOVEI B,HOME11 ;RETURN ADDRESS
1671 XJMP 20300400 ^;JUMP TO TEST PROGRAM
1672 054642 254 05 0 00 061464 XJRSTF [EXP 0,20300400]
1673 054643 312 01 0 00 061463 HOME11: CAME A,[123,,456] ;MAKE SURE EVERYTHING WORKED.
1674 ERROR T14,13,[123,,456],A,,^_
1675 <INDIRECTION THROUGH SECTION 0 BY WAY OF AN AC FAILED>^
1676 054644 036 13 0 00 061477
1677 054645 035 00 0 00 054615 ERLOOP T14 ;IF ERROR, LOOP TO T14
1678
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 17
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0066
1679
1680 ;*TEST 15 - MAKE SURE, HOWEVER, THAT INDIRECTING THROUGH AN AC NEEDN'T GO INTO
1681 ;*SECTION 0. THIS IS DONE BY USING A SECTION # OF 1 INSTEAD OF 0 IN
1682 ;*AN EFIW, RATHER THAN THE LAST TEST, WHICH USED AN IFIW.
1683
1684 054646 T15: SETUP^
1685 054646 201 00 0 00 054646 MOVEI . ;GET PC
1686 054647 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1687 MOVE A,[200001,,T2] ;REFERENCE T2 INDIRECTLY AGAIN, BUT NOT AS PART OF S
1688 054650 200 01 0 00 061502 ECT. 0.
1689 054651 202 01 0 00 035500 MOVEM A,P1+500
1690 054652 201 02 0 00 000007 MOVEI B,7 ;DATA TO BE FETCHED BY TEST.
1691 054653 202 02 0 00 036765 MOVEM B,P3+765
1692 PAGMAP (P3,T3,P2PN-1)^ ;POINT VIRTUAL PAGE SPECIFIED IN T2 TO PHYSI
1693 CAL P3.
1694 054654 201 01 0 00 036000 MOVEI A,P3
1695 054655 201 02 0 00 000014 MOVEI B,T3
1696 054656 201 03 0 00 000036 MOVEI C,P2PN-1
1697 054657 205 14 0 00 000000 MOVSI T3,0
1698 054660 260 17 0 00 054201 PUSHJ P,PMAPRT
1699 054661 200 13 0 00 061462 MOVE T2,[T3,,P2-1000+765];AS EXTENDED ADDR WOULD BE SECT T3 BUT IT'LL BE SHORT
1700 054662 415 02 0 00 054664 XMOVEI B,HOMEIA ;LOAD UP RETURN ADRESS
1701 XJMP 20300400 ^;JUMP TO TEST.
1702 054663 254 05 0 00 061464 XJRSTF [EXP 0,20300400]
1703 054664 302 01 0 00 000007 HOMEIA: CAIE A,7 ;MAKE SURE CORRECT DATA WAS RECEIVED.
1704 ERROR T15,13,[7],A,,^_
1705 <TEST FAILED THAT TRIED TO INDIRECT THROUGH AN AC WITHOUT GOING INTO SEC. 0>^
1706 054665 036 13 0 00 061521
1707 054666 035 00 0 00 054646 ERLOOP T15 ;IF ERROR, LOOP TO T15
1708
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 18
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0067
1709
1710 ;*TEST 16 - NOW TRY HAVING THE INDIRECT CHAIN PASS INTO SECTION 0 BUT NOT THROUGH
1711 ;*AN AC. THE LAST TEST IS MODIFIED FOR THIS PURPOSE.
1712
1713 054667 T16: SETUP^
1714 054667 201 00 0 00 054667 MOVEI . ;GET PC
1715 054670 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1716 054671 200 01 0 00 061524 MOVE A,[1B1+P2+200]
1717 MOVEM A,P1+500 ;NOW WE'RE GOING INDIRECT THROUGH PAGE P2 BUT STILL
1718 054672 202 01 0 00 035500 SECT. 0.
1719 054673 202 13 0 00 037200 MOVEM T2,P2+200 ;P2+500 CONTAINS SHORT FORM 600765(T3)
1720 054674 201 14 0 00 001000 MOVEI T3,1000 ;T3 GOT CLOBBERED BY PAGMAP MACRO CALL.
1721 054675 415 02 0 00 054677 XMOVEI B,HOME13 ;LOAD UP RETURN ADDRESS
1722 XJMP 20300400 ^;JUMP TO TEST
1723 054676 254 05 0 00 061464 XJRSTF [EXP 0,20300400]
1724 054677 312 01 0 00 061463 HOME13: CAME A,[123,,456]
1725 ERROR T16,13,[123,,456],A,,^_
1726 <INDIRECTION THROUGH SECTION 0 NOT BY WAY OF AN AC FAILED>^
1727 054700 036 13 0 00 061537
1728 054701 035 00 0 00 054667 ERLOOP T16 ;IF ERROR, LOOP TO T16
1729
1730
1731 ;*TEST 17 - THE FOLLOWING TEST TRIES AN IMMEDIATE TYPE INSTRUCTION IN A NON-0
1732 ;*SECTION. THE TEST CHECKS THAT ALTHOUGH THE EFFECTIVE ADDRESS OF THE
1733 ;*IMMEDIATE INSTRUCTION IS MORE THAN 18 BITS OF NON-0 DATA, THAT ONLY
1734 ;*18 BITS ARE USED, JUST AS IN SECTION 0.
1735
1736 054702 T17: SETUP^
1737 054702 201 00 0 00 054702 MOVEI . ;GET PC
1738 054703 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1739 PAGMAP (P1,17,17)^ ;PAGE FOR THE TEST.
1740 054704 201 01 0 00 035000 MOVEI A,P1
1741 054705 201 02 0 00 000017 MOVEI B,17
1742 054706 201 03 0 00 000017 MOVEI C,17
1743 054707 205 14 0 00 000000 MOVSI T3,0
1744 054710 260 17 0 00 054201 PUSHJ P,PMAPRT
1745 054711 200 01 0 00 061542 MOVE A,[MOVEI A,@17010] ;INSTRUCTION TO BE TESTED.
1746 054712 200 02 0 00 061210 MOVE B,[JRST @B] ;INSTRUCTION FOR GETTING BACK TO MAIN PROGRAM.
1747 054713 124 01 0 00 035020 DMOVEM A,P1+20 ;PROGRAM IS AT LOCATION 17017020
1748 054714 200 01 0 00 061463 MOVE A,[123,,456] ;ONLY THE RIGHT HALF SHOULD GET USED!
1749 054715 202 01 0 00 035010 MOVEM A,P1+10
1750 054716 201 01 0 00 000000 MOVEI A,0 ;START WITH 0.
1751 054717 415 02 0 00 054721 XMOVEI B,HOMICK ;LOAD UP RETURN ADDRESS.
1752 XJMP 17017020 ^;JUMP TO TEST
1753 054720 254 05 0 00 061543 XJRSTF [EXP 0,17017020]
1754 054721 302 01 0 00 000456 HOMICK: CAIE A,456
1755 ERROR T17,13,[456],A,,^_
1756 <IMMEDIATE INSTRUCTION IN NON-0 SECTION FAILED>^
1757 054722 036 13 0 00 061556
1758 054723 035 00 0 00 054702 ERLOOP T17 ;IF ERROR, LOOP TO T17
1759
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 19
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0068
1760
1761 ;*TEST 20 - A BUNCH OF TESTS CHECK THE CONSISTANCY OF THE CONFUSION ABOUT WHETHER
1762 ;*REAL AC'S OR THEIR SHADOWS (LOW MEMORY ADDRESSES) GET REFERENCED.
1763 ;*FIRST TRY WRITING AND RETRIEVING DATA FROM THE SHADOWS:
1764
1765 054724 T20: SETUP^
1766 054724 201 00 0 00 054724 MOVEI . ;GET PC
1767 054725 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1768 PAGMAP (P1,13,444)^ ;P1 IS SECTION 13 PAGE 444
1769 054726 201 01 0 00 035000 MOVEI A,P1
1770 054727 201 02 0 00 000013 MOVEI B,13
1771 054730 201 03 0 00 000444 MOVEI C,444
1772 054731 205 14 0 00 000000 MOVSI T3,0
1773 054732 260 17 0 00 054201 PUSHJ P,PMAPRT
1774 DMOVE A,[MOVE A,@C
1775 054733 120 01 0 00 061561 JRST @B] ;PROGRAM TO BE TESTED
1776 054734 124 01 0 00 035100 DMOVEM A,P1+100
1777 PAGMAP (P2,20,0)^ ;P2 IS SECTION 20 PAGE 0
1778 054735 201 01 0 00 037000 MOVEI A,P2
1779 054736 201 02 0 00 000020 MOVEI B,20
1780 054737 201 03 0 00 000000 MOVEI C,0
1781 054740 205 14 0 00 000000 MOVSI T3,0
1782 054741 260 17 0 00 054201 PUSHJ P,PMAPRT
1783 054742 200 03 0 00 061563 MOVE C,[20,,T1] ;PROGRAM SHOULD READ DATA FROM SECTION 20 WORD T1
1784 054743 201 02 0 00 000111 MOVEI B,111 ;DATA THAT SHOULD GET READ
1785 054744 202 02 0 00 037012 MOVEM B,P2+T1 ;THIS IS WHERE IT SHOULD GET READ FROM
1786 054745 201 12 0 00 000222 MOVEI T1,222 ;THIS IS THE DATA THAT SHOULDN'T GET READ
1787 054746 415 02 0 00 054750 XMOVEI B,HOME9 ;SET UP RETURN ADDRESS
1788 XJMP 13444100 ^;JUMP TO TEST
1789 054747 254 05 0 00 061564 XJRSTF [EXP 0,13444100]
1790 054750 302 01 0 00 000111 HOME9: CAIE A,111
1791 ERROR T20,13,[111],A,,^_
1792 <ERROR TRYING TO READ SHADOW MEMORY>^
1793 054751 036 13 0 00 061575
1794 054752 035 00 0 00 054724 ERLOOP T20 ;IF ERROR, LOOP TO T20
1795
1796
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 20
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0069
1797 ;*TEST 21 - SECTION 1 IS NOT SUPPOSED TO HAVE ANY SHADOW AC'S. SO NOW WE'LL
1798 ;*MODIFY THIS LAST TEST TO MAKE C REFERENCE SECTION 1 INSTEAD OF SECTION
1799 ;*20. HENCE 222 SHOULD BE FETCHED AS DATA INSTEAD OF 111.
1800
1801 054753 T21: SETUP^
1802 054753 201 00 0 00 054753 MOVEI . ;GET PC
1803 054754 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1804 PAGMAP (P2,1,0)^ ;CHANGE P2 TO BE SECTION 1.
1805 054755 201 01 0 00 037000 MOVEI A,P2
1806 054756 201 02 0 00 000001 MOVEI B,1
1807 054757 201 03 0 00 000000 MOVEI C,0
1808 054760 205 14 0 00 000000 MOVSI T3,0
1809 054761 260 17 0 00 054201 PUSHJ P,PMAPRT
1810 054762 200 03 0 00 061600 MOVE C,[1,,T1]
1811 054763 201 12 0 00 000222 MOVEI T1,222
1812 054764 415 02 0 00 054767 XMOVEI B,HOME12 ;LOAD RETURN ADDRESS
1813 054765 201 01 0 00 000000 MOVEI A,0 ;START WITH 0 IN A.
1814 XJMP 13444100 ^;JUMP TO TEST PROGRAM.
1815 054766 254 05 0 00 061564 XJRSTF [EXP 0,13444100]
1816 054767 302 01 0 00 000222 HOME12: CAIE A,222
1817 ERROR T21,13,[222],A,,^_
1818 <A DID NOT CONTAIN 222 AFTER "MOVE A,@C" WAS EXECUTED IN SECTION 13,^_
1819 ^C HAD "1,,T1", AND T1 HAD 222 IN IT.>^
1820 054770 036 13 0 00 061624
1821 054771 035 00 0 00 054753 ERLOOP T21 ;IF ERROR, LOOP TO T21
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 21
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0070
1822 ;*TEST 22 - NOW TRY LOCAL REFERENCE AND MAKE SURE DATA COMES FROM REAL AC.
1823
1824 054772 T22: SETUP^
1825 054772 201 00 0 00 054772 MOVEI . ;GET PC
1826 054773 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1827 PAGMAP (P2,20,0)^ ;CHANGE P2 BACK TO SECTION 20.
1828 054774 201 01 0 00 037000 MOVEI A,P2
1829 054775 201 02 0 00 000020 MOVEI B,20
1830 054776 201 03 0 00 000000 MOVEI C,0
1831 054777 205 14 0 00 000000 MOVSI T3,0
1832 055000 260 17 0 00 054201 PUSHJ P,PMAPRT
1833 055001 201 12 0 00 000222 MOVEI T1,222
1834 055002 200 01 0 00 061627 MOVE A,[MOVE A,T1]
1835 055003 202 01 0 00 035100 MOVEM A,P1+100 ;CHANGE PROGRAM.
1836 055004 415 02 0 00 055006 XMOVEI B,HOME10 ;LOAD UP RETURN ADDRESS
1837 XJMP 13444100 ^;JUMP TO TEST
1838 055005 254 05 0 00 061564 XJRSTF [EXP 0,13444100]
1839 055006 302 01 0 00 000222 HOME10: CAIE A,222
1840 ERROR T22,13,[222],A,,^_
1841 <ERROR TRYING TO VERIFY NON-EXISTENCE OF SECTION 1 SHADOW MEMORY>^
1842 055007 036 13 0 00 061643
1843 055010 035 00 0 00 054772 ERLOOP T22 ;IF ERROR, LOOP TO T22
1844
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 22
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0071
1845
1846 ;*TEST 23 - THE FOLLOWING TEST TRIES DOING A JSR @FOO WHERE FOO CONTAINS A LOW
1847 ;*ADDRESS IN A NON-ZERO SECTION. THE JSR IS EXECUTED IN A NON-0 SECTION
1848 ;*TOO. THE TEST CHECKS THAT SHADOW MEMORY IS USED FOR STORING THE
1849 ;*JSR RETURN ADDRESS AND THAT REAL AC'S ARE ACTUALLY TRANSFERRED TO.
1850
1851 055011 T23: SETUP^
1852 055011 201 00 0 00 055011 MOVEI . ;GET PC
1853 055012 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1854 PAGMAP (P1,36,777)^ ;P1 IS THE LAST PAGE OF SECTION 36
1855 055013 201 01 0 00 035000 MOVEI A,P1
1856 055014 201 02 0 00 000036 MOVEI B,36
1857 055015 201 03 0 00 000777 MOVEI C,777
1858 055016 205 14 0 00 000000 MOVSI T3,0
1859 055017 260 17 0 00 054201 PUSHJ P,PMAPRT
1860 PAGMAP (P2,37,0)^ ;AND P2 IS THE FIRST PAGE OF SECTION 37
1861 055020 201 01 0 00 037000 MOVEI A,P2
1862 055021 201 02 0 00 000037 MOVEI B,37
1863 055022 201 03 0 00 000000 MOVEI C,0
1864 055023 205 14 0 00 000000 MOVSI T3,0
1865 055024 260 17 0 00 054201 PUSHJ P,PMAPRT
1866 055025 200 01 0 00 061210 MOVE A,[JRST @B]
1867 055026 202 01 0 00 037013 MOVEM A,P2+T2 ;PUT "JRST @B" IN SHADOW T2
1868 055027 200 13 0 00 061225 MOVE T2,[JRST @C] ;PUT "JRST @C" IN REAL T2
1869 055030 415 03 0 00 055043 XMOVEI C,GOOD0 ;PUT GOOD RETURN ADDRESS IN C
1870 055031 415 02 0 00 055041 XMOVEI B,BAD0 ;AND BAD RETURN ADDRESS IN B
1871 055032 200 01 0 00 061646 MOVE A,[JSR @777770] ;INSTRUCTION TO BE TESTED
1872 055033 202 01 0 00 035250 MOVEM A,P1+250 ;IT WILL BE EXECUTED IN 36000250
1873 055034 200 01 0 00 061647 MOVE A,[37,,T1] ;LOCATION TO BE JSR'ED TO
1874 055035 202 01 0 00 035770 MOVEM A,P1+770 ;SET UP INDIRECT WORD TO BE JSR'ED TO
1875 XJMP 36777250 ^;JUMP TO TEST PROGRAM
1876 055036 254 05 0 00 061650 XJRSTF [EXP 0,36777250]
1877 055037 402 00 0 00 037012 SETZM P2+T1
1878 FATAL ;FATAL ERROR IF PROGRAM GETS TO ANYTHING BUT "GOOD0"
1879 055040 037 15 0 00 000004 .
1880 BAD0: ERROR T23,13,0,0,,^_
1881 <JSR TO SHADOW MEMORY CAUSED INSTRUCTION FETCH FROM SHADOW MEMORY>^
1882 055041 036 13 0 00 061665
1883 055042 035 00 0 00 055011 ERLOOP T23 ;IF ERROR, LOOP TO T23
1884
1885 055043 200 01 0 00 037012 GOOD0: MOVE A,P2+T1
1886 055044 312 01 0 00 061670 CAME A,[36777251]
1887 ERROR T23,13,[36777251],A,,^_
1888 <JSR TO SHADOW MEMORY DIDN'T STORE PC CORRECTLY>^
1889 055045 036 13 0 00 061701
1890 055046 035 00 0 00 055011 ERLOOP T23 ;IF ERROR, LOOP TO T23
1891
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 23
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0072
1892
1893 ;*TEST 24 - MAKE SURE THAT IF THE PC WRAPS AROUND AT THE END OF A SECTION, THAT IT
1894 ;*ENTERS THE AC'S, RATHER THAN THE SHADOWS OF A SECTION. THE INSTRUCTION
1895 ;*IN THE AC THAT THE TEST PROGRAM SHOULD WRAP AROUND INTO WILL BE A TRANSFER
1896 ;*TO A NON-AC TO VERIFY THAT ALTHOUGH THE FLOW HAS GOTTEN INTO THE AC'S,
1897 ;*THE CURRENT CONTEXT SECTION HASN'T BEEN SCREWED UP.
1898
1899 055047 T24: SETUP^
1900 055047 201 00 0 00 055047 MOVEI . ;GET PC
1901 055050 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1902 PAGMAP (P1,5,777)^ ;P1 IS THE LAST PAGE OF SECTION 5
1903 055051 201 01 0 00 035000 MOVEI A,P1
1904 055052 201 02 0 00 000005 MOVEI B,5
1905 055053 201 03 0 00 000777 MOVEI C,777
1906 055054 205 14 0 00 000000 MOVSI T3,0
1907 055055 260 17 0 00 054201 PUSHJ P,PMAPRT
1908 PAGMAP (P2,5,0)^ ;TEST PROGRAM WILL WRAP AROUND INTO P2
1909 055056 201 01 0 00 037000 MOVEI A,P2
1910 055057 201 02 0 00 000005 MOVEI B,5
1911 055060 201 03 0 00 000000 MOVEI C,0
1912 055061 205 14 0 00 000000 MOVSI T3,0
1913 055062 260 17 0 00 054201 PUSHJ P,PMAPRT
1914 055063 200 00 0 00 061704 MOVE 0,[JSP A,20] ;THIS JSP SHOULD BE WRAPPED AROUND INTO.
1915 SETZM P2 ;IF WRAPAROUND HAPPENS TO LOW CORE, MAKE SURE TRAP H
1916 055064 402 00 0 00 037000 APPENS
1917 055065 200 01 0 00 061210 MOVE A,[JRST @B] ;RETURN INSTRUCTION
1918 055066 202 01 0 00 037020 MOVEM A,P2+20 ;JSP SHOULD TRANSFER TO P2+20
1919 055067 415 02 0 00 055073 XMOVEI B,HOME14 ;LOAD UP RETURN ADDRESS
1920 055070 200 01 0 00 061705 MOVE A,[JFCL] ;INNOCUOUS INSTRUCTION FOR END OF SECTION 5
1921 055071 202 01 0 00 035777 MOVEM A,P1+777 ;PUT IT IN END OF SECTION
1922 XJMP 5777777 ^;TRANSFER TO TEST PROGRAM
1923 055072 254 05 0 00 061706 XJRSTF [EXP 0,5777777]
1924 055073 312 01 0 00 061710 HOME14: CAME A,[5,,1]
1925 ERROR T24,13,[5,,1],A,,^_
1926 <PROGRAM FLOW DIDN'T CORRECTLY WRAPAROUND FROM END OF SECTION INTO THAT SECTION'S AC
1927 'S>^
1928 055074 036 13 0 00 061730
1929 055075 035 00 0 00 055047 ERLOOP T24 ;IF ERROR, LOOP TO T24
1930
1931
1932 ;*TEST 25 - THE XMOVEI INSTRUCTION IS NOW TESTED. THIS FIRST TEST TRIES A XMOVEI
1933 ;*IN SECTION 14, AND THE XMOVEI'S EFFECTIVE ADDRESS IS 6000.
1934
1935 055076 T25: SETUP^
1936 055076 201 00 0 00 055076 MOVEI . ;GET PC
1937 055077 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1938 PAGMAP (P1,14,40)^ ;P1 IS SECTION 14 PAGE 40
1939 055100 201 01 0 00 035000 MOVEI A,P1
1940 055101 201 02 0 00 000014 MOVEI B,14
1941 055102 201 03 0 00 000040 MOVEI C,40
1942 055103 205 14 0 00 000000 MOVSI T3,0
1943 055104 260 17 0 00 054201 PUSHJ P,PMAPRT
1944 DMOVE A,[XMOVEI A,6000
1945 055105 120 01 0 00 061733 JRST @B] ;TEST PROGRAM
1946 055106 124 01 0 00 035200 DMOVEM A,P1+200 ;STORE TEST PROGRAM
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 23-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0073
1947 055107 415 02 0 00 055111 XMOVEI B,HOMEM1 ;LOAD UP RETURN ADDRESS.
1948 XJMP 14040200 ^;JUMP TO TEST PROGRAM
1949 055110 254 05 0 00 061735 XJRSTF [EXP 0,14040200]
1950 055111 312 01 0 00 061737 HOMEM1: CAME A,[14,,6000] ;MAKE SURE A CONTAINS CORRECT RESULT.
1951 ERROR T25,13,[14,,6000],A,,^_
1952 <XMOVEI A,6000 IN SECTION 14 PAGE 40 DIDN'T PUT 14,,6000 IN A.>^
1953 055112 036 13 0 00 061753
1954 055113 035 00 0 00 055076 ERLOOP T25 ;IF ERROR, LOOP TO T25
1955
1956 ;*TEST 26 - NOW WE TRY HAVING THE EFFECTIVE ADDRESS OF THE SIMPLEST FORM OF XMOVEI
1957 ;*BE AN ADDRESS LESS THAN 20 TO MAKE SURE 1 IS RETURNED IN THE LEFT HALF.
1958
1959 055114 T26: SETUP^
1960 055114 201 00 0 00 055114 MOVEI . ;GET PC
1961 055115 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1962 055116 201 01 0 00 000001 MOVEI A,1
1963 055117 542 01 0 00 035200 HRRM A,P1+200 ;NOW THE INSTRUCTION IS "XMOVEI A,1".
1964 055120 415 02 0 00 055122 XMOVEI B,HOME2M ;LOAD UP RETURN ADDRESS.
1965 XJMP 14040200 ^;RUN THE TEST.
1966 055121 254 05 0 00 061735 XJRSTF [EXP 0,14040200]
1967 055122 312 01 0 00 061756 HOME2M: CAME A,[1,,1] ;MAKE SURE THE RIGHT THING HAPPENED.
1968 ERROR T26,13,[1,,1],A,,^_
1969 <XMOVEI A,1 IN SECTION 14 DIDN'T PUT 1,,1 IN A.>^
1970 055123 036 13 0 00 061767
1971 055124 035 00 0 00 055114 ERLOOP T26 ;IF ERROR, LOOP TO T26
1972
1973
1974 ;*TEST 27 - NOW TRY A XMOVEI INSTRUCTION THAT REFERENCES A LONG INDEX REGISTER.
1975
1976 055125 T27: SETUP^
1977 055125 201 00 0 00 055125 MOVEI . ;GET PC
1978 055126 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
1979 055127 205 01 0 00 000003 MOVSI A,C ;USE REGISTER "C" AS INDEX REGISTER
1980 055130 436 01 0 00 035200 IORM A,P1+200 ;NOW THE INSTRUCTION IS "XMOVEI A,1(C) "
1981 055131 200 03 0 00 061772 MOVE C,[37B5+<4123,,-2>];ALL OF THIS EXCEPT BITS 1 THRU 5 SHOULD GET PUT INTO 1.
1982 055132 415 02 0 00 055134 XMOVEI B,HOMEM3 ;RETURN ADDRESS.
1983 XJMP 14040200 ^;JUMP TO TEST PROGRAM.
1984 055133 254 05 0 00 061735 XJRSTF [EXP 0,14040200]
1985 055134 312 01 0 00 061773 HOMEM3: CAME A,[4123,,-1] ;MAKE SURE CORRECT EXTENDED ADDRESS GOT LOADED.
1986 ERROR T27,13,[4123,,-1],A,,^_
1987 <XMOVEI A,1(C) IN SECT 14 WHEN C CONTAINED 37B5+<4123,,-2> DIDN'T RETURN 4123,,-1.>^
1988
1989 055135 036 13 0 00 062012
1990 055136 035 00 0 00 055125 ERLOOP T27 ;IF ERROR, LOOP TO T27
1991
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 24
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0074
1992
1993 ;*TEST 30 - TRY XMOVEI AC,N(AC2) WHERE AC2 IS A LONG INDEX REGISTER. ADDING N
1994 ;*TO THE CONTENTS OF AC2 PRODUCES A RIGHT HALF OF LESS THAN 20. HENCE,
1995 ;*THE RETURNED RESULT SHOULD CONTAIN THE SECTION NUMBER OF THE EFFECTIVE
1996 ;*ADDRESS OF THE XMOVEI INSTRUCTION IN THE LEFT HALF.
1997
1998 055137 T30: SETUP^
1999 055137 201 00 0 00 055137 MOVEI . ;GET PC
2000 055140 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2001 055141 340 03 0 00 000000 AOJ C, ;NOW C CONTAINS 37B5+<4123,,-1>
2002 055142 415 02 0 00 055144 XMOVEI B,HOMEM5 ;LOAD RETURN ADDRESS
2003 XJMP 14040200 ^;JUMP TO TEST PROGRAM
2004 055143 254 05 0 00 061735 XJRSTF [EXP 0,14040200]
2005 HOMEM5: CAME A,[4124,,0] ;MAKE SURE LEFT HALF GOT REPLACED WITH SECTION NUMBE
2006 055144 312 01 0 00 062015 R.
2007 ERROR T30,13,[4124,,0],A,,^_
2008 <XMOVEI A,1(C) IN SECTION 14 WHEN C CONTAINED 37B5+<4123,,-1> DIDN'T RETURN 4124,,0>
2009 ^
2010 055145 036 13 0 00 062034
2011 055146 035 00 0 00 055137 ERLOOP T30 ;IF ERROR, LOOP TO T30
2012
2013
2014 ;*TEST 31 - TRY A SHORT INDEX REGISTER NOW.
2015
2016 055147 T31: SETUP^
2017 055147 201 00 0 00 055147 MOVEI . ;GET PC
2018 055150 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2019 055151 661 03 0 00 400000 TLO C,(1B0) ;NOW C CONTAINS 774123,,-1
2020 055152 415 02 0 00 055155 XMOVEI B,HOMEM4 ;LOAD UP RETURN ADDRESS.
2021 055153 201 01 0 00 000000 MOVEI A,0 ;START WITH 0 IN A
2022 XJMP 14040200 ^;JUMP TO TEST PROGRAM.
2023 055154 254 05 0 00 061735 XJRSTF [EXP 0,14040200]
2024 055155 312 01 0 00 062037 HOMEM4: CAME A,[1,,0] ;DID TEST PASS ??
2025 ERROR T31,13,[1,,0],A,,^_
2026 <XMOVEI A,1(C) IN SECTION 14 WHEN C CONTAINED 774123,,-1 DIDN'T RETURN 1,,0.>^
2027 055156 036 13 0 00 062055
2028 055157 035 00 0 00 055147 ERLOOP T31 ;IF ERROR, LOOP TO T31
2029
2030
2031 ;*TEST 32 - NOW TRY A SHORT FORM INDEX REGISTER WHOSE CONTENTS, WHICH WHEN ADDED
2032 ;*TO "Y", PRODUCES AN ADDRESS WHOSE RIGHT HALF ISN'T LESS THAN 20.
2033
2034 055160 T32: SETUP^
2035 055160 201 00 0 00 055160 MOVEI . ;GET PC
2036 055161 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2037 055162 201 01 0 00 400000 MOVEI A,400000 ;USE Y FIELD WITH ONLY BIT 18 ON.
2038 055163 542 01 0 00 035200 HRRM A,P1+200
2039 055164 415 02 0 00 055166 XMOVEI B,HOMEM6 ;LOAD UP RETURN ADDRESS.
2040 XJMP 14040200 ^;JUMP TO TEST PROGRAM.
2041 055165 254 05 0 00 061735 XJRSTF [EXP 0,14040200]
2042 055166 312 01 0 00 062060 HOMEM6: CAME A,[14,,377777] ;MAKE SURE CORRECT RESULT IS RETURNED.
2043 ERROR T32,13,[14,,377777],A,,^_
2044 <XMOVEI A,400000(C) IN SECTION 14 WITH 774123,,-1 IN C FAILED TO PRODUCE 14,,377777>
2045 ^
2046 055167 036 13 0 00 062077
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 24-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0075
2047 055170 035 00 0 00 055160 ERLOOP T32 ;IF ERROR, LOOP TO T32
2048
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 25
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0076
2049
2050 ;*TEST 33 - MAKE SURE THAT A XMOVEI INSTRUCTION REFERENCING AN AC BY WAY OF
2051 ;*AN IFIW ISN'T FOOLED INTO THINKING IT IS IN SECTION 0.
2052
2053 055171 T33: SETUP^
2054 055171 201 00 0 00 055171 MOVEI . ;GET PC
2055 055172 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2056 PAGMAP (P1,15,0)^ ;P1 IS SECTION 15 PAGE 0.
2057 055173 201 01 0 00 035000 MOVEI A,P1
2058 055174 201 02 0 00 000015 MOVEI B,15
2059 055175 201 03 0 00 000000 MOVEI C,0
2060 055176 205 14 0 00 000000 MOVSI T3,0
2061 055177 260 17 0 00 054201 PUSHJ P,PMAPRT
2062 DMOVE A,[XMOVEI A,@C
2063 055200 120 01 0 00 062102 JRST @B] ;TEST PROGRAM.
2064 055201 124 01 0 00 035740 DMOVEM A,P1+740 ;PUT TEST PROGRAM IN 15000740
2065 055202 200 03 0 00 062104 MOVE C,[1,,60050] ;DATA THAT SHOULD GET RETURNED IN A.
2066 055203 415 02 0 00 055205 XMOVEI B,HOMEM2 ;LOAD UP RETURN ADDRESS
2067 XJMP 15000740 ^;JUMP TO TEST PROGRAM.
2068 055204 254 05 0 00 062105 XJRSTF [EXP 0,15000740]
2069 055205 312 01 0 00 062104 HOMEM2: CAME A,[1,,60050] ;MAKE SURE CORRECT EXTENDED ADDRESS RETURNED IN A.
2070 ERROR T33,13,[1,,60050],A,,^_
2071 <XMOVEI A,@C IN SECTION 15 DID NOT YIELD 1,,60050 WHEN C CONTAINED 1,,60050.>^
2072 055206 036 13 0 00 062124
2073 055207 035 00 0 00 055171 ERLOOP T33 ;IF ERROR, LOOP TO T33
2074
2075
2076 ;*TEST 34 - MAKE SURE THAT A XMOVEI WHOSE EFFECTIVE ADDRESS CALCULATION ENTERS SECTION 0
2077 ;*DOESN'T RETURN NON-0 IN THE LEFT HALF. THE DATA WORD FETCHED IN THE
2078 ;*LAST TEST IS MODIFIED TO HAVE ITS (IFIW STYLE) INDIRECT BIT ON, AND THE
2079 ;*WORD IT POINTS TO WILL POINT TO A WORD IN SECTION 0. THE WORD IN SECTION
2080 ;*0 WILL HAVE SOME OF BITS 14-17 ON, BITS THAT SHOULD CAUSE INDEXING AND
2081 ;*NOT A LARGE ADDRESS.
2082
2083 055210 T34: SETUP^
2084 055210 201 00 0 00 055210 MOVEI . ;GET PC
2085 055211 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2086 PAGMAP (P2,1,60)^ ;P2 IS SECTION 1 PAGE 60.
2087 055212 201 01 0 00 037000 MOVEI A,P2
2088 055213 201 02 0 00 000001 MOVEI B,1
2089 055214 201 03 0 00 000060 MOVEI C,60
2090 055215 205 14 0 00 000000 MOVSI T3,0
2091 055216 260 17 0 00 054201 PUSHJ P,PMAPRT
2092 055217 200 01 0 00 062127 MOVE A,[1B1+P3+776] ;POINTS TO SECTION 0.
2093 055220 202 01 0 00 037050 MOVEM A,P2+50 ;PUT SECTION 0 POINTER IN SECTION 1.
2094 PAGMAP (P3,0,P3PN)^ ;P3 IS ITSELF IN SECTION 0.
2095 055221 201 01 0 00 036000 MOVEI A,P3
2096 055222 201 02 0 00 000000 MOVEI B,0
2097 055223 201 03 0 00 000036 MOVEI C,P3PN
2098 055224 205 14 0 00 000000 MOVSI T3,0
2099 055225 260 17 0 00 054201 PUSHJ P,PMAPRT
2100 055226 200 03 0 00 062130 MOVE C,[200001,,60050]
2101 055227 200 01 0 00 062131 MOVE A,[T1,,P3+700] ;THIS SHOULD BE INTERPRETED AS SECTION 0 WORD.
2102 055230 202 01 0 00 036776 MOVEM A,P3+776
2103 055231 200 12 0 00 062132 MOVE T1,[46,,5] ;INDEX REGISTER CONTENTS.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 25-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0077
2104 055232 415 02 0 00 055234 XMOVEI B,HOME00 ;LOAD UP RETURN ADDRESS.
2105 XJMP 15000740 ^;JUMP TO TEST PROGRAM.
2106 055233 254 05 0 00 062105 XJRSTF [EXP 0,15000740]
2107 055234 302 01 0 00 036705 HOME00: CAIE A,P3+705 ;MAKE SURE CORRECT DATA WAS RETURNED.
2108 ERROR T34,13,[P3+705],A,,^_
2109 <XMOVEI IN NON-0 SECTION WHOSE EFFECTIVE ADDRESS CALCULATION ENTERED SECTION 0 FAILE
2110 D.>^
2111 055235 036 13 0 00 062153
2112 055236 035 00 0 00 055210 ERLOOP T34 ;IF ERROR, LOOP TO T34
2113
2114
2115 ;*TEST 35 - TRY A XMOVEI IN SECTION 0 TO MAKE SURE IT ONLY ACTS AS MOVEI.
2116
2117 055237 T35: SETUP^
2118 055237 201 00 0 00 055237 MOVEI . ;GET PC
2119 055240 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2120 PAGMAP (P2,0,P2PN)^ ;P2 IS NOW SOME PAGE IN SECTION 0.
2121 055241 201 01 0 00 037000 MOVEI A,P2
2122 055242 201 02 0 00 000000 MOVEI B,0
2123 055243 201 03 0 00 000037 MOVEI C,P2PN
2124 055244 205 14 0 00 000000 MOVSI T3,0
2125 055245 260 17 0 00 054201 PUSHJ P,PMAPRT
2126 DMOVE A,[XMOVEI A,@7(A)
2127 055246 120 01 0 00 062156 JRST @B] ;TEST PROGRAM
2128 055247 124 01 0 00 037302 DMOVEM A,P2+302 ;PUT TEST PROGRAM IN SECTION 0.
2129 055250 200 01 0 00 062160 MOVE A,[C,,P2+10] ;ADDED TO 7 GIVES P2+17
2130 055251 201 02 0 00 777773 MOVEI B,-5 ;CONTENTS OF P2+17 WILL BE USED FOR EFF. ADDRESS,
2131 055252 202 02 0 00 037017 MOVEM B,P2+17 ;SO PUT -5 IN P2+17.
2132 055253 415 02 0 00 055255 XMOVEI B,HOMEM0 ;LOAD UP RETURN ADDRESS.
2133 XJMP P2+302 ^;JUMP TO SECTION 0 TEST PROGRAM.
2134 055254 254 05 0 00 062161 XJRSTF [EXP 0,P2+302]
2135 055255 302 01 0 00 777773 HOMEM0: CAIE A,-5 ;MAKE SURE NO LEFT HAND BITS ARE ON IN A.
2136 ERROR T35,13,[0,,-5],A,,^_
2137 <XMOVEI A,@7(A) IN SECTION 0 DIDN'T WORK RIGHT.>^
2138 055256 036 13 0 00 062174
2139 055257 035 00 0 00 055237 ERLOOP T35 ;IF ERROR, LOOP TO T35
2140
2141
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 26
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0078
2142
2143 ;*TEST 36 - THE PUSHJ INSTRUCTION EXECUTED IN A NON-0 SECTION SHOULD SAVE ONLY
2144 ;*THE LONG PC, AND NO FLAGS. THE FOLLOWING TEST TURNS ON LOTS OF PC
2145 ;*FLAGS AND THEN CAUSES A PUSHJ. THE STACK WORD IS CHECKED TO MAKE
2146 ;*SURE IT CONTAINS THE CORRECT RETURN PC, AND THAT NO OTHER BITS ARE
2147 ;*ON IN THE STACK WORD.
2148 ;*TO CONFUSE MATTERS, THE EFFECTIVE ADDRESS OF THE PUSHJ INSTRUCTION
2149 ;*WILL BE ARRANGED TO ENTER SECTION 0, WHICH SHOULD EFFECT HOW THE
2150 ;*REST OF THE EFFECTIVE ADDRESS CALCULATION IS CARRIED OUT, BUT SHOULDN'T
2151 ;*PREVENT THE EXTENDED ACTION.
2152 ;*THIS TEST ALSO VERIFIES THAT THE PUSHJ ACTUALLY CAUSES A TRANSFER TO
2153 ;*THE CORRECT LOCATION, AND THAT THE PC FLAGS SET BEFORE THE PUSHJ ARE STILL
2154 ;*SET AFTERWARDS.
2155 ;*THIS TEST ALSO MAKES SURE THE PUSHDOWN POINTER IS MODIFIED CORRECTLY.
2156
2157 055260 T36: SETUP^
2158 055260 201 00 0 00 055260 MOVEI . ;GET PC
2159 055261 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2160 PAGMAP (P1,7,244)^ ;P1 IS SECTION 7 PAGE 244
2161 055262 201 01 0 00 035000 MOVEI A,P1
2162 055263 201 02 0 00 000007 MOVEI B,7
2163 055264 201 03 0 00 000244 MOVEI C,244
2164 055265 205 14 0 00 000000 MOVSI T3,0
2165 055266 260 17 0 00 054201 PUSHJ P,PMAPRT
2166 055267 200 01 0 00 062177 MOVE A,[PUSHJ A,@244500] ;INSTRUCTION TO BE TESTED
2167 055270 202 01 0 00 035400 MOVEM A,P1+400 ;PUT PUSHJ IN 7244400
2168 055271 201 01 0 00 037000 PAGMAP (P2,30,333)^ MOVEI A,P2
2169 055272 201 02 0 00 000030 MOVEI B,30
2170 055273 201 03 0 00 000333 MOVEI C,333
2171 055274 205 14 0 00 000000 MOVSI T3,0
2172 055275 260 17 0 00 054201 PUSHJ P,PMAPRT
2173 055276 200 01 0 00 062200 MOVE A,[1B1+30333111] ;INDIRECT THROUGH SECTION 30....
2174 055277 202 01 0 00 035500 MOVEM A,P1+500
2175 055300 200 01 0 00 062201 MOVE A,[P3+401+<C>B5] ;FINALLY AN END TO THE CHAIN.
2176 055301 202 01 0 00 037111 MOVEM A,P2+111
2177 PAGMAP (P3,0,P3PN)^ ;P3 IS MAPPED TO ITSELF.
2178 055302 201 01 0 00 036000 MOVEI A,P3
2179 055303 201 02 0 00 000000 MOVEI B,0
2180 055304 201 03 0 00 000036 MOVEI C,P3PN
2181 055305 205 14 0 00 000000 MOVSI T3,0
2182 055306 260 17 0 00 054201 PUSHJ P,PMAPRT
2183 055307 200 03 0 00 061210 MOVE C,[JRST@B] ;RETURN INSTRUCTION
2184 055310 202 03 0 00 036404 MOVEM C,P3+404 ;WE'RE REALLY PUSHJING TO 000P3000+404
2185 055311 200 01 0 00 062202 MOVE A,[1B1+30333200] ;STACK POINTER. 1B1 SHOULD GET IGNORED.
2186 055312 402 00 0 00 037201 SETZM P2+201 ;FIRST ZERO THE STACK WORD.
2187 055313 201 03 0 00 000003 MOVEI C,3 ;INDEX REGISTER
2188 055314 415 02 0 00 055316 XMOVEI B,HOME15 ;LOAD UP RETURN ADDRESS
2189 ;TURN ON OV,C0,C1,FOV,FUN,NOD
2190 055315 254 05 0 00 062203 XJRSTF [EXP 740140B17,7244400] ;AND JUMP TO TEST PROGRAM
2191 055316 200 02 0 00 037201 HOME15: MOVE B,P2+201 ;PICK UP STACK WORD.
2192 055317 312 02 0 00 062205 CAME B,[7244401]
2193 ERROR T36,13,[7244401],A,,^_
2194 <PUSHJ WITH LONG POINTER STORED THE WRONG STACK WORD>^
2195 055320 036 13 0 00 062217
2196 055321 035 00 0 00 055260 ERLOOP T36 ;IF ERROR, LOOP TO T36
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 26-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0079
2197
2198 055322 265 02 0 00 055323 JSP B,.+1 ;GET PC FLAGS
2199 055323 554 02 0 00 000002 HLRZ B,B ;AND ONLY THE FLAGS.
2200 055324 302 02 0 00 740140 CAIE B,740140 ;MAKE SURE THE FLAGS HAVEN'T BEEN CLOBBERED
2201 ERROR T36,13,[740140],A,,^_
2202 <PC FLAGS WERE CLOBBERED BY PUSHJ WITH LONG STACK POINTER>^
2203 055325 036 13 0 00 062235
2204 055326 035 00 0 00 055260 ERLOOP T36 ;IF ERROR, LOOP TO T36
2205
2206 055327 312 01 0 00 062240 CAME A,[1B1+30333201] ;MAKE SURE STACK POINTER WAS UPDATED CORRECTLY.
2207 ERROR T36,13,[1B1+30333201],A,,^_
2208 <PUSHJ WITH LONG STACK POINTER UPDATED THE POINTER INCORRECTLY>^
2209 055330 036 13 0 00 062254
2210 055331 035 00 0 00 055260 ERLOOP T36 ;IF ERROR, LOOP TO T36
2211
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 27
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0080
2212
2213 ;*TEST 37 - THE PUSHJ INSTRUCTION SHOULD CAUSE A DIFFERENT STACK POINTER MODIFICATION
2214 ;*DEPENDING ON WHETHER THE STACK POINTER IS "LONG" OR "SHORT". THE LAST
2215 ;*TEST TRIED A "LONG" POINTER, AND CAN BE EASILY MODIFIED TO TRY A
2216 ;*"SHORT" ONE.
2217
2218 055332 T37: SETUP^
2219 055332 201 00 0 00 055332 MOVEI . ;GET PC
2220 055333 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2221 055334 415 02 0 00 055340 XMOVEI B,HOME16 ;LOAD UP RETURN ADDRESS
2222 055335 200 01 0 00 062257 MOVE A,[1B0+<24,,T1>];SHORT STACK BECAUSE OF 1B0, SO 24 SHOULD NOT MEAN SECT 24
2223 055336 201 13 0 00 000000 MOVEI T2,0 ;START WITH 0 IN T2
2224 XJMP 7244400 ^;JUMP TO TEST PROGRAM
2225 055337 254 05 0 00 062260 XJRSTF [EXP 0,7244400]
2226 055340 312 01 0 00 062262 HOME16: CAME A,[1B0+<25,,T2>]
2227 ERROR T37,13,[1B0+<25,,T2>],A,,^_
2228 <PUSHJ WITH SHORT POINTER DID NOT STORE UPDATED POINTER CORRECTLY>^
2229 055341 036 13 0 00 062276
2230 055342 035 00 0 00 055332 ERLOOP T37 ;IF ERROR, LOOP TO T37
2231
2232 055343 312 13 0 00 062205 CAME T2,[7244401]
2233 ERROR T37,13,[7244401],A,,^_
2234 <PUSHJ WITH SHORT POINTER DIDN'T STORE STACK WORD CORRECTLY>^
2235 055344 036 13 0 00 062313
2236 055345 035 00 0 00 055332 ERLOOP T37 ;IF ERROR, LOOP TO T37
2237
2238
2239 ;*TEST 40 - A LONG STACK SHOULD CROSS A SECTION BOUNDARY INTO THE LOW CORE OF THE NEXT
2240 ;*SECTION. THE FOLLOWING TEST VERIFIES THIS FACT.
2241
2242 055346 T40: SETUP^
2243 055346 201 00 0 00 055346 MOVEI . ;GET PC
2244 055347 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2245 PAGMAP (P1,6,777)^ ;P1 IS THE LAST PAGE OF SECTION 6.
2246 055350 201 01 0 00 035000 MOVEI A,P1
2247 055351 201 02 0 00 000006 MOVEI B,6
2248 055352 201 03 0 00 000777 MOVEI C,777
2249 055353 205 14 0 00 000000 MOVSI T3,0
2250 055354 260 17 0 00 054201 PUSHJ P,PMAPRT
2251 PAGMAP (P2,7,0)^ ;P2 IS SECTION 7 PAGE 0
2252 055355 201 01 0 00 037000 MOVEI A,P2
2253 055356 201 02 0 00 000007 MOVEI B,7
2254 055357 201 03 0 00 000000 MOVEI C,0
2255 055360 205 14 0 00 000000 MOVSI T3,0
2256 055361 260 17 0 00 054201 PUSHJ P,PMAPRT
2257 055362 200 01 0 00 062316 MOVE A,[PUSHJ A,@B] ;SINGLE INSTRUCTION TEST PROGRAM.
2258 055363 202 01 0 00 037020 MOVEM A,P2+20 ;PUT TEST PROGRAM IN 7000020
2259 055364 415 02 0 00 055370 XMOVEI B,HOME17 ;RETURN ADDRESS
2260 055365 200 01 0 00 062317 MOVE A,[6,,777777] ;STACK SHOULD GO INTO SECTION 7
2261 SETZB 0,P2 ;P2 IS CORRECT STACK WORD, 0 IS ERRONEOUS STACK WORD
2262 055366 403 00 0 00 037000
2263 XJMP 7000020 ^;JUMP TO TEST PROGRAM
2264 055367 254 05 0 00 062320 XJRSTF [EXP 0,7000020]
2265 055370 312 01 0 00 062322 HOME17: CAME A,[7,,0]
2266 ERROR T40,13,[7,,0],A,,^_
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 27-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0081
2267 <POINTER UPDATE WAS INCORRECT FOR PUSHDOWN STACK CROSSING SECTION BOUNDARY>^
2268 055371 036 13 0 00 062340
2269 055372 035 00 0 00 055346 ERLOOP T40 ;IF ERROR, LOOP TO T40
2270
2271 055373 200 01 0 00 000000 MOVE A,0 ;GET AC0
2272 055374 302 01 0 00 000000 CAIE A,0
2273 ERROR T40,13,[0],A,,^_
2274 <AC 0 WAS CLOBBERED BY PUSHDOWN STACK TRYING TO CROSS SECTION BOUNDARY>^
2275 055375 036 13 0 00 062357
2276 055376 035 00 0 00 055346 ERLOOP T40 ;IF ERROR, LOOP TO T40
2277
2278 055377 200 02 0 00 037000 MOVE B,P2
2279 055400 312 02 0 00 062362 CAME B,[7000021]
2280 ERROR T40,13,[7000021],B,,^_
2281 <STACK WORD STORED INCORRECTLY WHEN STACK CROSSED SECTION BOUNDARY>^
2282 055401 036 13 0 00 062376
2283 055402 035 00 0 00 055346 ERLOOP T40 ;IF ERROR, LOOP TO T40
2284
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 28
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0082
2285
2286 ;*TEST 41 - NOW TRY THE SAME TEST BUT WITH A SHORT POINTER IN "A" INSTEAD OF THE LONG
2287 ;*ONE. THIS TIME THE STACK SHOULD WRAP INTO 0 INSTEAD OF SECTION 7.
2288
2289 055403 T41: SETUP^
2290 055403 201 00 0 00 055403 MOVEI . ;GET PC
2291 055404 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2292 055405 200 01 0 00 062401 MOVE A,[1B0+6777777] ;SHORT STACK POINTER
2293 055406 415 02 0 00 055411 XMOVEI B,HOME18 ;RETURN ADDRESS
2294 055407 403 00 0 00 037000 SETZB 0,P2 ;0 IS CORRECT, P2 IS WRONG THIS TIME.
2295 XJMP 7000020 ^;JUMP TO TEST PROGRAM
2296 055410 254 05 0 00 062320 XJRSTF [EXP 0,7000020]
2297 055411 312 01 0 00 062402 HOME18: CAME A,[1B0+7000000]
2298 ERROR T41,13,[1B0+7000000],A,,^_
2299 <PUSHJ WITH SHORT POINTER DIDN'T WORK CORRECTLY WHEN STACK TRIED TO WRAP INTO AC'S>^
2300
2301 055412 036 13 0 00 062421
2302 055413 035 00 0 00 055403 ERLOOP T41 ;IF ERROR, LOOP TO T41
2303
2304 055414 332 00 0 00 037000 SKIPE P2
2305 ERROR T41,13,[0],P2,,^_
2306 <1'ST SHADOW WORD OF NEXT SECT CLOBBERED WHEN STACK TRIED TO WRAP AROUND WITH SHORT
2307 POINTER>^
2308 055415 036 13 0 00 062444
2309 055416 035 00 0 00 055403 ERLOOP T41 ;IF ERROR, LOOP TO T41
2310
2311
2312 ;*TEST 42 - TEST A JSP INSTRUCTION, EXECUTED IN SECTION 8.
2313
2314 055417 T42: SETUP^
2315 055417 201 00 0 00 055417 MOVEI . ;GET PC
2316 055420 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2317 PAGMAP (P1,8,602)^ ;P1 IS LOCATION 10602000
2318 055421 201 01 0 00 035000 MOVEI A,P1
2319 055422 201 02 0 00 000010 MOVEI B,8
2320 055423 201 03 0 00 000602 MOVEI C,602
2321 055424 205 14 0 00 000000 MOVSI T3,0
2322 055425 260 17 0 00 054201 PUSHJ P,PMAPRT
2323 DMOVE A,[JSP A,602071
2324 055426 120 01 0 00 062447 JRST @B] ;PROGRAM TO BE TESTED.
2325 055427 124 01 0 00 035070 DMOVEM A,P1+70 ;IN LOCATION 10602070.
2326 055430 415 02 0 00 055432 XMOVEI B,HOMJSP ;GET RETURN ADDRESS.
2327 055431 254 05 0 00 062451 XJRSTF [EXP 740140B17,10602070] ;SET ALOT OF PC FLAGS AND JUMP TO PROGRAM.
2328 055432 312 01 0 00 062453 HOMJSP: CAME A,[10602071] ;MAKE SURE ONLY THE PC, AND NOT FLAGS GOT STORED.
2329 ERROR T42,13,[10602071],A,,^_
2330 <JSP EXECUTED IN NON-0 SECTION STORED PC INCORRECTLY>^
2331 055433 036 13 0 00 062465
2332 055434 035 00 0 00 055417 ERLOOP T42 ;IF ERROR, LOOP TO T42
2333
2334
2335 ;*TEST 43 - NOW WE'LL TRY A POPJ IN A NON-0 SECTION.
2336
2337 055435 T43: SETUP^
2338 055435 201 00 0 00 055435 MOVEI . ;GET PC
2339 055436 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 28-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0083
2340 PAGMAP (P1,36,0)^ ;PUT STACK IN SECTION 36 PAGE 0.
2341 055437 201 01 0 00 035000 MOVEI A,P1
2342 055440 201 02 0 00 000036 MOVEI B,36
2343 055441 201 03 0 00 000000 MOVEI C,0
2344 055442 205 14 0 00 000000 MOVSI T3,0
2345 055443 260 17 0 00 054201 PUSHJ P,PMAPRT
2346 055444 200 02 0 00 062470 MOVE B,[POPJ A,] ;INSTRUCTION TO BE TESTED.
2347 055445 202 02 0 00 037047 MOVEM B,P2+47 ;IN LOCATION 1000047
2348 055446 201 01 0 00 037000 PAGMAP (P2,1,0)^ MOVEI A,P2
2349 055447 201 02 0 00 000001 MOVEI B,1
2350 055450 201 03 0 00 000000 MOVEI C,0
2351 055451 205 14 0 00 000000 MOVSI T3,0
2352 055452 260 17 0 00 054201 PUSHJ P,PMAPRT
2353 055453 200 01 0 00 062471 MOVE A,[36000000+C] ;LONG STACK POINTER.
2354 055454 415 02 0 00 055465 XMOVEI B,HOMPJ ;GET RETURN ADDRESS.
2355 055455 202 02 0 00 035003 MOVEM B,P1+C ;PUT IT ON THE STACK.
2356 055456 254 05 0 00 062472 XJRSTF [EXP 0,.+1] ;CLEAR THE PC FLAGS.
2357 055457 265 02 0 00 055460 JSP B,.+1 ;MAKE SURE THEY'RE CLEAR !!
2358 055460 603 02 0 00 777777 TLNE B,-1 ;ALL OF THEM....
2359 ERROR T43,13,[0],B,,^_
2360 <COULDN'T CLEAR PC FLAGS FOR POPJ TEST>^
2361 055461 036 13 0 00 062503
2362 055462 035 00 0 00 055435 ERLOOP T43 ;IF ERROR, LOOP TO T43
2363
2364 055463 415 03 0 00 062506 XMOVEI C,[FATAL] ;IN CASE POPJ USES AC STACK "BY ACCIDENT".
2365 055464 254 05 0 00 062507 XJRSTF [EXP 740140B17,1000047] ;JUMP TO THE PROGRAM AND TURN ON PC BITS.
2366 055465 312 01 0 00 062511 HOMPJ: CAME A,[36000000+B] ;MAKE SURE CORRECT STACK POINTER CAME BACK.
2367 ERROR T43,13,[36000000+B],A,,^_
2368 <LONG POPJ IN NON-0 SECTION INCORRECTLY MODIFIED THE STACK POINTER>^
2369 055466 036 13 0 00 062525
2370 055467 035 00 0 00 055435 ERLOOP T43 ;IF ERROR, LOOP TO T43
2371
2372 055470 265 01 0 00 055471 JSP A,.+1 ;GET THE PC FLAGS.
2373 055471 554 01 0 00 000001 HLRZ A,A ;AND JUST THE FLAGS !!
2374 055472 302 01 0 00 740140 CAIE A,740140 ;MAKE SURE THE SET FLAGS STILL ARE !
2375 ERROR T43,13,[740140],A,,^_
2376 <LONG POPJ CLOBBERED THE PC FLAGS>^
2377 055473 036 13 0 00 062536
2378 055474 035 00 0 00 055435 ERLOOP T43 ;IF ERROR, LOOP TO T43
2379
2380
2381 ;*TEST 44 - MAKE SURE THE SHORT STACK TYPE OF POPJ STILL WORKS, EVEN IN A NON-0
2382 ;*SECTION:
2383
2384 055475 T44: SETUP^
2385 055475 201 00 0 00 055475 MOVEI . ;GET PC
2386 055476 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2387 PAGMAP (P1,3,1)^ ;LET'S DO THIS TEST IN SECTION 3 PAGE 1.
2388 055477 201 01 0 00 035000 MOVEI A,P1
2389 055500 201 02 0 00 000003 MOVEI B,3
2390 055501 201 03 0 00 000001 MOVEI C,1
2391 055502 205 14 0 00 000000 MOVSI T3,0
2392 055503 260 17 0 00 054201 PUSHJ P,PMAPRT
2393 055504 200 01 0 00 062541 MOVE A,[POPJ C,] ;INSTRUCTION TO BE TESTED.
2394 055505 202 01 0 00 035050 MOVEM A,P1+50 ;IN LOCATION 3001050
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 28-2
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0084
2395 055506 200 01 0 00 062542 MOVE A,[3,,2000] ;WE'LL POPJ TO PAGE 2 OF SEC. 3.
2396 SETZM P1+51 ;MAKE SURE THERE'S A 0 EXECUTED IF POPJ FALLS THROUG
2397 055507 402 00 0 00 035051 H.
2398 055510 202 01 0 00 035001 MOVEM A,P1+1 ;STORE STACK ENTRY.
2399 PAGMAP (P2,3,2)^ ;PAGE FOR POPJ'ING TO.
2400 055511 201 01 0 00 037000 MOVEI A,P2
2401 055512 201 02 0 00 000003 MOVEI B,3
2402 055513 201 03 0 00 000002 MOVEI C,2
2403 055514 205 14 0 00 000000 MOVSI T3,0
2404 055515 260 17 0 00 054201 PUSHJ P,PMAPRT
2405 055516 200 03 0 00 062543 MOVE C,[1B0+36001001] ;SHORT STYLE STACK POINTER.
2406 055517 200 01 0 00 061210 MOVE A,[JRST @B] ;INSTRUCTION FOR RETURNING TO MAIN PROGRAM.
2407 055520 202 01 0 00 037000 MOVEM A,P2 ;PUT IT WHERE POPJ SHOULD TRANSFER TO.
2408 055521 415 02 0 00 055523 XMOVEI B,HOMSPJ ;LOAD UP RETURN ADDRESS.
2409 055522 254 05 0 00 062544 XJRSTF [EXP 740140B17,3001050] ;SET PC FLAGS AND JUMP TO TEST.
2410 055523 312 03 0 00 062546 HOMSPJ: CAME C,[400035,,1000] ;MAKE SURE THE POINTER GOT MODIFIED CORRECTLY.
2411 ERROR T44,13,[400035,,1000],C,,^_
2412 <POPJ IN NON-0 SECTION MODIFIED SHORT POINTER INCORRECTLY>^
2413 055524 036 13 0 00 062561
2414 055525 035 00 0 00 055475 ERLOOP T44 ;IF ERROR, LOOP TO T44
2415
2416 055526 265 01 0 00 055527 JSP A,.+1 ;GET THE PC FLAGS.
2417 055527 554 01 0 00 000001 HLRZ A,A ;AND ONLY THE FLAGS.
2418 055530 302 01 0 00 740140 CAIE A,740140 ;MAKE SURE THE CORRECT FLAGS GOT SET.
2419 ERROR T44,13,[740140],A,,^_
2420 <SHORT POPJ IN NON-0 SECTION CLOBBERED THE PC FLAGS>^
2421 055531 036 13 0 00 062575
2422 055532 035 00 0 00 055475 ERLOOP T44 ;IF ERROR, LOOP TO T44
2423
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 29
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0085
2424
2425 ;*TEST 45 - THE FOLLOWING TESTS CHECK PXCT OF PUSH AND POP INSTRUCTIONS.
2426
2427 055533 T45: SETUP^
2428 055533 201 00 0 00 055533 MOVEI . ;GET PC
2429 055534 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2430 PAGMAP (P1,3,4)^ ;PAGE FOR TEST.
2431 055535 201 01 0 00 035000 MOVEI A,P1
2432 055536 201 02 0 00 000003 MOVEI B,3
2433 055537 201 03 0 00 000004 MOVEI C,4
2434 055540 205 14 0 00 000000 MOVSI T3,0
2435 055541 260 17 0 00 054201 PUSHJ P,PMAPRT
2436 UPAGMP (P2,3,4)^ ;PAGE FOR USER DATA.
2437 055542 201 01 0 00 037000 MOVEI A,P2
2438 055543 201 02 0 00 000003 MOVEI B,3
2439 055544 201 03 0 00 000004 MOVEI C,4
2440 055545 205 14 0 00 000001 MOVSI T3,1
2441 055546 260 17 0 00 054201 PUSHJ P,PMAPRT
2442 PAGMAP (P4,6,777)^ ;EXEC STACK SPACE
2443 055547 201 01 0 00 043000 MOVEI A,P4
2444 055550 201 02 0 00 000006 MOVEI B,6
2445 055551 201 03 0 00 000777 MOVEI C,777
2446 055552 205 14 0 00 000000 MOVSI T3,0
2447 055553 260 17 0 00 054201 PUSHJ P,PMAPRT
2448 055554 201 01 0 00 041000 PAGMAP (P5,7,0)^ MOVEI A,P5
2449 055555 201 02 0 00 000007 MOVEI B,7
2450 055556 201 03 0 00 000000 MOVEI C,0
2451 055557 205 14 0 00 000000 MOVSI T3,0
2452 055560 260 17 0 00 054201 PUSHJ P,PMAPRT
2453 055561 201 01 0 00 042000 UPAGMP (P6,6,777)^ MOVEI A,P6
2454 055562 201 02 0 00 000006 MOVEI B,6
2455 055563 201 03 0 00 000777 MOVEI C,777
2456 055564 205 14 0 00 000001 MOVSI T3,1
2457 055565 260 17 0 00 054201 PUSHJ P,PMAPRT
2458 UPAGMP (P7,7,0)^ ;USER STACK SPACE
2459 055566 201 01 0 00 040000 MOVEI A,P7
2460 055567 201 02 0 00 000007 MOVEI B,7
2461 055570 201 03 0 00 000000 MOVEI C,0
2462 055571 205 14 0 00 000001 MOVSI T3,1
2463 055572 260 17 0 00 054201 PUSHJ P,PMAPRT
2464 055573 200 14 0 00 062600 MOVE T3,[POP C,4000] ;INSTRUCTION TO BE TESTED.
2465 055574 200 02 0 00 061210 MOVE B,[JRST @B] ;INSTRUCTION FOR GETTING BACK TO MAIN PROGRAM.
2466 055575 202 02 0 00 035003 MOVEM B,P1+3
2467 055576 200 02 0 00 062601 MOVE B,[PXCT 1,T3] ;INSTRUCTION BEING TESTED.
2468 055577 202 02 0 00 035002 MOVEM B,P1+2
2469 055600 200 03 0 00 062602 MOVE C,[7,,1] ;STACK POINTER.
2470 055601 201 01 0 00 000003 MOVEI A,3 ;EXEC STACK DATA.
2471 055602 202 01 0 00 041001 MOVEM A,P5+1
2472 055603 201 01 0 00 000004 MOVEI A,4 ;USER STACK DATA.
2473 055604 202 01 0 00 040001 MOVEM A,P7+1
2474 055605 415 02 0 00 055610 XMOVEI B,HOMXPP ;LOAD UP RETURN ADDRESS.
2475 055606 402 00 0 00 035000 SETZM P1 ;START WITH 0 IN DATA AREA.
2476 055607 254 05 0 00 062603 XJRSTF [EXP 3,3004002] ;DO THE PXCT.
2477 055610 200 01 0 00 035000 HOMXPP: MOVE A,P1 ;GET DATA THAT GOT POPPED.
2478 055611 316 03 0 00 062322 CAMN C,[7,,0] ;MAKE SURE STACK POINTER GOT UPDATED.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 29-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0086
2479 055612 302 01 0 00 000003 CAIE A,3 ;CHECK POPPED DATA.
2480 ERROR T45,13,[3],A,,^_
2481 <PXCT 1,POP FAILED>^
2482 055613 036 13 0 00 062610
2483 055614 035 00 0 00 055533 ERLOOP T45 ;IF ERROR, LOOP TO T45
2484
2485 055615 200 03 0 00 062602 MOVE C,[7,,1] ;TRY SAME STACK POINTER.
2486 055616 402 00 0 00 035000 SETZM P1 ;CLEAR DATA AREA.
2487 055617 415 02 0 00 055621 XMOVEI B,HOMPP2
2488 055620 254 05 0 00 062613 XJRSTF [EXP PCUBIT!3,3004002] ;THIS TIME PREVIOUS CONTEXT IS USER.
2489 055621 200 01 0 00 035000 HOMPP2: MOVE A,P1 ;PICK UP DATA AGAIN.
2490 055622 316 03 0 00 062322 CAMN C,[7,,0] ;MAKE SURE STACK POINTER UPDATED.
2491 055623 302 01 0 00 000004 CAIE A,4 ;MAKE SURE USER STACK GOT USED.
2492 ERROR T45,13,[4],A,,^_
2493 <PXCT 1,POP FAILED>^
2494 055624 036 13 0 00 062616
2495 055625 035 00 0 00 055533 ERLOOP T45 ;IF ERROR, LOOP TO T45
2496
2497 055626 200 01 0 00 062621 MOVE A,[PXCT 5,T3] ;BITS 10 AND 12 BOTH ON NOW.
2498 055627 202 01 0 00 035002 MOVEM A,P1+2
2499 055630 402 00 0 00 037000 SETZM P2 ;THIS IS WORD DATA SHOULD GET WRITTEN TO NOW.
2500 055631 200 03 0 00 062602 MOVE C,[7,,1] ;RESET STACK POINTER.
2501 055632 201 02 0 00 055634 MOVEI B,HOMPP3
2502 055633 254 05 0 00 062613 XJRSTF [EXP PCUBIT!3,3004002]
2503 055634 200 01 0 00 037000 HOMPP3: MOVE A,P2
2504 055635 306 01 0 00 000004 CAIN A,4
2505 055636 312 03 0 00 062322 CAME C,[7,,0]
2506 ERROR T45,13,[7,,0],C,,^_
2507 <PXCT 5,POP FAILED>^
2508 055637 036 13 0 00 062625
2509 055640 035 00 0 00 055533 ERLOOP T45 ;IF ERROR, LOOP TO T45
2510
2511 055641 200 01 0 00 062601 MOVE A,[PXCT 1,T3] ;JUST BIT 12 AGAIN.
2512 055642 202 01 0 00 035002 MOVEM A,P1+2
2513 055643 402 00 0 00 035000 SETZM P1 ;DATA SHOULD GET WRITTEN HERE.
2514 055644 200 03 0 00 062630 MOVE C,[7,,T1] ;STACK WORD SHOULD BE ACCUMULATOR T1.
2515 055645 7 010 14 0 00 030606 DATAO PAG,UPWD ;MAKE SURE PREVIOUS AC BLOCK IS WHAT'S IN UPWD.
2516 055646 7 010 04 0 00 000001 DATAI PAG,A ;GET PREVIOUS AC BLOCK NUMBER
2517 055647 242 01 0 00 000003 LSH A,3 ;PUT IT IN CURRENT BLOCK NUMBER POSITION.
2518 055650 621 01 0 00 700000 TLZ A,700000 ;CLEAR CONTROL BITS
2519 055651 661 01 0 00 400000 TLO A,400000 ;SET BIT TO SET AC BLOCK NUMBER.
2520 055652 7 010 14 0 00 000001 DATAO PAG,A ;ACCESS PREVIOUS AC'S.
2521 055653 200 12 0 00 062631 MOVE T1,[3.14] ;LOAD STACK WORD FOR TEST.
2522 055654 7 010 14 0 00 030606 DATAO PAG,UPWD ;GET BACK ORIGINAL AC'S.
2523 055655 415 02 0 00 055657 XMOVEI B,HOMPP4 ;STACK WORD AND RETURN ADDRESS.
2524 055656 254 05 0 00 062632 XJRSTF [EXP PCUBIT,3004002]
2525 055657 200 01 0 00 035000 HOMPP4: MOVE A,P1
2526 055660 316 01 0 00 062631 CAMN A,[3.14] ;MAKE SURE DATA WORD IS CONTENTS OF T1!!
2527 055661 312 03 0 00 062634 CAME C,[6,,T1-1] ;AND THAT BOTH HALVES GOT CHANGED THIS TIME.
2528 ERROR T45,13,[6,,T1-1],C,,^_
2529 <PXCT 1,POP FAILED WHEN PCS=USER SEC-0>^
2530 055662 036 13 0 00 062644
2531 055663 035 00 0 00 055533 ERLOOP T45 ;IF ERROR, LOOP TO T45
2532
2533
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 29-2
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0087
2534 ;*TEST 46 - THIS TEST DOES AN ADJSP IN A NON-0 SECTION IN THE POSITIVE DIRECTION
2535 ;*TO A LONG STACK POINTER.
2536
2537 055664 T46: SETUP^
2538 055664 201 00 0 00 055664 MOVEI . ;GET PC
2539 055665 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2540 PAGMAP (P1,5,5)^ ;PAGE FOR TEST.
2541 055666 201 01 0 00 035000 MOVEI A,P1
2542 055667 201 02 0 00 000005 MOVEI B,5
2543 055670 201 03 0 00 000005 MOVEI C,5
2544 055671 205 14 0 00 000000 MOVSI T3,0
2545 055672 260 17 0 00 054201 PUSHJ P,PMAPRT
2546 055673 200 01 0 00 062647 MOVE A,[ADJSP C,@T1] ;WE'LL ALWAYS PUT ADJUSTMENT IN T1.
2547 055674 200 02 0 00 061210 MOVE B,[JRST @B] ;INSTRUCTION FOR GETTING BACK TO MAIN PROGRAM.
2548 055675 124 01 0 00 035000 DMOVEM A,P1 ;PUT PROGRAM AT 5005000
2549 055676 200 03 0 00 062650 MOVE C,[2,,3] ;LONG STACK POINTER.
2550 055677 201 12 0 00 300001 MOVEI T1,300001 ;POSITIVE INCREMENT.
2551 055700 415 02 0 00 055702 XMOVEI B,HOMSSS ;LOAD UP RETURN ADDRESS.
2552 XJMP 5005000 ^;RUN THE TEST.
2553 055701 254 05 0 00 062651 XJRSTF [EXP 0,5005000]
2554 055702 312 03 0 00 062653 HOMSSS: CAME C,[2,,300001+3]
2555 ERROR T46,13,[2,,300001+3],C,,^_
2556 <ADJSP IN NON-0 SEC. WITH POS. INC. AND LONG P FAILED>^
2557 055703 036 13 0 00 062665
2558 055704 035 00 0 00 055664 ERLOOP T46 ;IF ERROR, LOOP TO T46
2559
2560
2561 ;*TEST 47 - NOW LET'S TRY A SHORT POINTER WITH POSITIVE INCREMENT.
2562
2563 055705 T47: SETUP^
2564 055705 201 00 0 00 055705 MOVEI . ;GET PC
2565 055706 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2566 055707 200 03 0 00 062670 MOVE C,[1B0+4] ;BIT 0 MAKES IT SHORT.
2567 055710 415 02 0 00 055712 XMOVEI B,HOMSS1 ;SAME INCREMENT AS BEFORE.
2568 XJMP 5005000^
2569 055711 254 05 0 00 062651 XJRSTF [EXP 0,5005000]^
2570 055712 312 03 0 00 062671 HOMSS1: CAME C,[400000+300001,,4+300001]
2571 ERROR T47,13,[400000+300001,,4+300001],C,,^_
2572 <ADJSP IN NON-0 SEC. WITH POS. INC. AND SHORT P FAILED>^
2573 055713 036 13 0 00 062703
2574 055714 035 00 0 00 055705 ERLOOP T47 ;IF ERROR, LOOP TO T47
2575
2576
2577 ;*TEST 50 - OK, HOW ABOUT A NEGATIVE INCREMENT WITH THE SHORT POINTER ?
2578
2579 055715 T50: SETUP^
2580 055715 201 00 0 00 055715 MOVEI . ;GET PC
2581 055716 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2582 055717 200 03 0 00 062706 MOVE C,[1B0+400002] ;STARTING POINTER.
2583 055720 201 12 0 00 777775 MOVEI T1,-3 ;WE'LL DECREMENT THE POINTER BY 3.
2584 055721 415 02 0 00 055723 XMOVEI B,HOMSS2
2585 XJMP 5005000^
2586 055722 254 05 0 00 062651 XJRSTF [EXP 0,5005000]^
2587 055723 312 03 0 00 062707 HOMSS2: CAME C,[400000-3,,400002-3]
2588 ERROR T50,13,[400000-3,,400002-3],C,,^_
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 29-3
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0088
2589 <ADJSP IN NON-0 SEC. WITH NEG. INC. AND SHORT P FAILED>^
2590 055724 036 13 0 00 062721
2591 055725 035 00 0 00 055715 ERLOOP T50 ;IF ERROR, LOOP TO T50
2592
2593
2594 ;*TEST 51 - AND NOW A NEGATIVE INCREMENT WITH A LONG POINTER...
2595
2596 055726 T51: SETUP^
2597 055726 201 00 0 00 055726 MOVEI . ;GET PC
2598 055727 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2599 055730 200 03 0 00 062037 MOVE C,[1,,0] ;LONG POINTER.
2600 055731 415 02 0 00 055733 XMOVEI B,HOMSS3 ;WE'LL USE INCREMENT OF -3 AGAIN.
2601 XJMP 5005000^
2602 055732 254 05 0 00 062651 XJRSTF [EXP 0,5005000]^
2603 055733 312 03 0 00 062724 HOMSS3: CAME C,[1000000-3]
2604 ERROR T51,13,[1000000-3],C,,^_
2605 <ADJSP IN NON-0 SEC. WITH NEG. INC. AND LONG P FAILED>^
2606 055734 036 13 0 00 062736
2607 055735 035 00 0 00 055726 ERLOOP T51 ;IF ERROR, LOOP TO T51
2608
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 30
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0089
2609
2610 ;*TEST 52 - HERE WE MAKE SURE THAT BIT 12 IN SEC-0 BYTE POINTERS HAS NO EFFECT.
2611
2612 055736 T52: SETUP^
2613 055736 201 00 0 00 055736 MOVEI . ;GET PC
2614 055737 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2615 PAGMAP (P1,0,P1PN)^ ;MAP PAGE P1 INTO SECTION 0.
2616 055740 201 01 0 00 035000 MOVEI A,P1
2617 055741 201 02 0 00 000000 MOVEI B,0
2618 055742 201 03 0 00 000035 MOVEI C,P1PN
2619 055743 205 14 0 00 000000 MOVSI T3,0
2620 055744 260 17 0 00 054201 PUSHJ P,PMAPRT
2621 DMOVE A,[IBP P1+30
2622 055745 120 01 0 00 062741 JRST @B] ;PROGRAM TO BE TESTED.
2623 055746 124 01 0 00 035050 DMOVEM A,P1+50 ;STORE IT WHERE WE WILL EXECUTE IT.
2624 055747 120 01 0 00 062743 DMOVE A,[EXP 020740B17+T1,P1+20] ;DOUBLE WORD BYTE POINTER.
2625 055750 124 01 0 00 035030 DMOVEM A,P1+30 ;STORE THE DOUBLE WORD BYTE POINTER.
2626 055751 415 02 0 00 055753 XMOVEI B,HOMIBP ;LOAD UP RETURN ADDRESS.
2627 XJMP P1+50 ^;JUMP TO THE IBP INSTRUCTION
2628 055752 254 05 0 00 062745 XJRSTF [EXP 0,P1+50]
2629 055753 120 01 0 00 035030 HOMIBP: DMOVE A,P1+30 ;PICK UP THE DOUBLE WORD BYTE POINTER.
2630 055754 316 01 0 00 062747 CAMN A,[350740,,T2] ;MAKE SURE IT GOT INCREMENTED CORRECTLY.
2631 055755 302 02 0 00 035020 CAIE B,P1+20 ;MAKE SURE THE SECOND WORD DIDN'T CHANGE.
2632 ERROR T52,13,[P1+20],B,,^_
2633 <IBP IN SECTION 0 DIDN'T INCREMENT POINTER CORRECTLY>^
2634 055756 036 13 0 00 062761
2635 055757 035 00 0 00 055736 ERLOOP T52 ;IF ERROR, LOOP TO T52
2636
2637
2638 ;*TEST 53 - NOW WE'LL TRY AN LDB INSTRUCTION.
2639
2640 055760 T53: SETUP^
2641 055760 201 00 0 00 055760 MOVEI . ;GET PC
2642 055761 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2643 055762 200 01 0 00 062764 MOVE A,[LDB C,P1+30]
2644 055763 202 01 0 00 035050 MOVEM A,P1+50 ;CHANGE THE INSTRUCTION.
2645 055764 201 01 0 00 000130 MOVEI A,"X" ;THE ASCII CHARACTER TO BE FETCHED.
2646 055765 137 01 0 00 062765 DPB A,[350700,,T2] ;STORE IT.
2647 055766 403 03 0 00 000001 SETZB C,A ;START WITH 0'S IN BOTH.
2648 055767 415 02 0 00 055771 XMOVEI B,HOMLDB ;GET RETURN ADDRESS.
2649 XJMP P1+50 ^;JUMP TO THE TEST PROGRAM.
2650 055770 254 05 0 00 062745 XJRSTF [EXP 0,P1+50]
2651 055771 302 03 0 00 000130 HOMLDB: CAIE C,"X" ;MAKE SURE THE BYTE GOT LOADED.
2652 ERROR T53,13,["X"],C,,^_
2653 <LDB IN SECTION 0 WITH BIT 12 ON DIDN'T LOAD THE CORRECT BYTE>^
2654 055772 036 13 0 00 063002
2655 055773 035 00 0 00 055760 ERLOOP T53 ;IF ERROR, LOOP TO T53
2656
2657
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 31
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0090
2658 ;*TEST 54 - NOW WE'LL DO AN IDPB IN SECTION 0 WITH BIT 12 ON.
2659
2660 055774 T54: SETUP^
2661 055774 201 00 0 00 055774 MOVEI . ;GET PC
2662 055775 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2663 055776 200 01 0 00 063005 MOVE A,[IDPB C,P1+30] ;THE INSTRUCTION TO BE TESTED.
2664 055777 202 01 0 00 035050 MOVEM A,P1+50
2665 056000 200 01 0 00 063006 MOVE A,[010740,,C-1] ;BYTE POINTER TO STORE LEFT JUSTIFIED BYTE IN C.
2666 056001 202 01 0 00 035030 MOVEM A,P1+30 ;STORE THE BYTE POINTER.
2667 056002 201 01 0 00 000005 MOVEI A,5 ;"SECOND WORD" FOR BYTE POINTER.
2668 056003 202 01 0 00 035031 MOVEM A,P1+31 ;STORE IT.
2669 056004 415 02 0 00 056007 XMOVEI B,HMIDPB ;LOAD UP RETURN ADDRESS.
2670 056005 201 03 0 00 000130 MOVEI C,"X" ;START WITH RIGHT JUSTIFIED X.
2671 XJMP P1+50 ^;JUMP TO THE TEST PROGRAM.
2672 056006 254 05 0 00 062745 XJRSTF [EXP 0,P1+50]
2673 056007 312 03 0 00 063007 HMIDPB: CAME C,["X"+ASCII /X/] ;MAKE SURE THE IDPB HAPPENED.
2674 ERROR T54,13,["X"+ASCII /X/],C,,^_
2675 <IDPB IN SECTION 0 WITH BIT 12 ON IN POINTER DIDN'T STORE BYTE CORRECTLY>^
2676 056010 036 13 0 00 063024
2677 056011 035 00 0 00 055774 ERLOOP T54 ;IF ERROR, LOOP TO T54
2678
2679 056012 120 01 0 00 035030 DMOVE A,P1+30 ;PICK UP THE DOUBLE POINTER.
2680 056013 316 01 0 00 063027 CAMN A,[350740,,C] ;MAKE SURE RESULTANT BYTE POINTER IS CORRECT.
2681 056014 302 02 0 00 000005 CAIE B,5 ;AND THAT SECOND WORD DIDN'T GET INCREMENTED. !!
2682 ERROR T54,13,[5],B,,^_
2683 <IDPB IN SECTION 0 WITH BIT 12 ON IN BYTE POINTER DIDN'T INCREMENT CORRECTLY>^
2684 056015 036 13 0 00 063046
2685 056016 035 00 0 00 055774 ERLOOP T54 ;IF ERROR, LOOP TO T54
2686
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 32
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0091
2687
2688 ;*TEST 55 - NOW LET'S TRY AN ILDB IN SECTION 5 WITHOUT BIT 12 ON IN THE POINTER.
2689
2690 056017 T55: SETUP^
2691 056017 201 00 0 00 056017 MOVEI . ;GET PC
2692 056020 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2693 PAGMAP (P1,5,50)^ ;P1 IS SECTION 5 PAGE 50.
2694 056021 201 01 0 00 035000 MOVEI A,P1
2695 056022 201 02 0 00 000005 MOVEI B,5
2696 056023 201 03 0 00 000050 MOVEI C,50
2697 056024 205 14 0 00 000000 MOVSI T3,0
2698 056025 260 17 0 00 054201 PUSHJ P,PMAPRT
2699 PAGMAP (P2,5,51)^ ;CAUSE P2 TO BE CONSECUTIVE.
2700 056026 201 01 0 00 037000 MOVEI A,P2
2701 056027 201 02 0 00 000005 MOVEI B,5
2702 056030 201 03 0 00 000051 MOVEI C,51
2703 056031 205 14 0 00 000000 MOVSI T3,0
2704 056032 260 17 0 00 054201 PUSHJ P,PMAPRT
2705 PAGMAP (P3,7,20)^ ;P3 IS SECTION 7 PAGE 20.
2706 056033 201 01 0 00 036000 MOVEI A,P3
2707 056034 201 02 0 00 000007 MOVEI B,7
2708 056035 201 03 0 00 000020 MOVEI C,20
2709 056036 205 14 0 00 000000 MOVSI T3,0
2710 056037 260 17 0 00 054201 PUSHJ P,PMAPRT
2711 DMOVE A,[ILDB C,50777
2712 056040 120 01 0 00 063051 JRST @B] ;TEST PROGRAM TO BE RUN.
2713 056041 124 01 0 00 037040 DMOVEM A,P2+40 ;STORE PROGRAM AT 5051040
2714 056042 120 01 0 00 063053 DMOVE A,[EXP <030600,,051021>,4777777]
2715 056043 202 01 0 00 035777 MOVEM A,P1+777 ;STORE FIRST WORD OF BYTE POINTER.
2716 056044 202 02 0 00 037000 MOVEM B,P2 ;AND SECOND WORD.
2717 056045 205 01 0 00 550000 MOVSI A,(SIXBIT /M/) ;GET CHARACTER TO BE PICKED UP BY ILDB.
2718 056046 202 01 0 00 037022 MOVEM A,P2+22 ;PUT IT WHERE ILDB SHOULD PICK IT UP.
2719 056047 415 02 0 00 056051 XMOVEI B,HOMLB1 ;LOAD UP RETURN ADDRESS.
2720 XJMP 5051040 ^;RUN THE TEST.
2721 056050 254 05 0 00 063055 XJRSTF [EXP 0,5051040]
2722 056051 302 03 0 00 000055 HOMLB1: CAIE C,'M' ;MAKE SURE THE BYTE GOT FETCHED.
2723 ERROR T55,13,['M'],C,,^_
2724 <OLD-STYLE ILDB INSTRUCTION IN NON-0 SECTION DIDN'T LOAD THE CORRECT BYTE>^
2725 056052 036 13 0 00 063075
2726 056053 035 00 0 00 056017 ERLOOP T55 ;IF ERROR, LOOP TO T55
2727
2728 056054 200 01 0 00 035777 MOVE A,P1+777 ;PICK UP THE FIRST WORD OF THE BYTE POINTER.
2729 056055 312 01 0 00 063100 CAME A,[360600,,51022] ;MAKE SURE IT GOT INCREMENTED CORRECTLY.
2730 ERROR T55,13,[360600,,51022],A,,^_
2731 <FIRST WORD OF BYTE POINTER INCREMENTED INCORRECTLY BY ILDB IN NON-0 SECTION>^
2732 056056 036 13 0 00 063116
2733 056057 035 00 0 00 056017 ERLOOP T55 ;IF ERROR, LOOP TO T55
2734
2735 056060 200 01 0 00 037000 MOVE A,P2 ;GET THE SECOND WORD.
2736 056061 312 01 0 00 063054 CAME A,[4777777] ;MAKE SURE IT DIDN'T GET INCREMENTED.
2737 ERROR T55,13,[4777777],A,,^_
2738 <OLD-STYLE ILDB IN NON-0 SECTION MODIFIED THE SECOND WORD OF THE BYTE POINTER>^
2739 056062 036 13 0 00 063136
2740 056063 035 00 0 00 056017 ERLOOP T55 ;IF ERROR, LOOP TO T55
2741
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 33
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0092
2742
2743 ;*TEST 56 - NOW LET'S TRY IN IDPB INSTRUCTION IN A NON-0 SECTION WITH
2744 ;*BIT 12 ON IN THE BYTE POINTER. WE'LL SET UP P SUCH THAT THE
2745 ;*SECOND WORD OF THE BYTE POINTER WILL GET INCREMENTED. THAT SECOND
2746 ;*WORD WILL BE SET UP TO GET INCREMENTED INTO THE NEXT SECTION EVEN !!
2747
2748 056064 T56: SETUP^
2749 056064 201 00 0 00 056064 MOVEI . ;GET PC
2750 056065 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2751 PAGMAP (P1,4,456)^ ;THE TEST PROGRAM WILL BE IN SECTION 4.
2752 056066 201 01 0 00 035000 MOVEI A,P1
2753 056067 201 02 0 00 000004 MOVEI B,4
2754 056070 201 03 0 00 000456 MOVEI C,456
2755 056071 205 14 0 00 000000 MOVSI T3,0
2756 056072 260 17 0 00 054201 PUSHJ P,PMAPRT
2757 PAGMAP (P2,12,0)^ ;THE DOUBLE BYTE POINTER WILL BE IN SECTION
2758 12.
2759 056073 201 01 0 00 037000 MOVEI A,P2
2760 056074 201 02 0 00 000012 MOVEI B,12
2761 056075 201 03 0 00 000000 MOVEI C,0
2762 056076 205 14 0 00 000000 MOVSI T3,0
2763 056077 260 17 0 00 054201 PUSHJ P,PMAPRT
2764 PAGMAP (P3,36,0)^ ;THE BYTE WILL BE STORED IN SECTION 36.
2765 056100 201 01 0 00 036000 MOVEI A,P3
2766 056101 201 02 0 00 000036 MOVEI B,36
2767 056102 201 03 0 00 000000 MOVEI C,0
2768 056103 205 14 0 00 000000 MOVSI T3,0
2769 056104 260 17 0 00 054201 PUSHJ P,PMAPRT
2770 DMOVE A,[IDPB C,@456123
2771 056105 120 01 0 00 063141 JRST @B] ;TEST PROGRAM TO BE RUN.
2772 056106 124 01 0 00 035775 DMOVEM A,P1+775 ;PUT PROGRAM AT 4456775
2773 056107 200 01 0 00 063143 MOVE A,[12,,17] ;ADDRESS OF THE BYTE POINTER.
2774 056110 202 01 0 00 035123 MOVEM A,P1+123 ;PUT IT WHERE IDPB POINTS TO.
2775 056111 120 01 0 00 063144 DMOVE A,[EXP <020740+T1,,53423>,35777777]
2776 056112 124 01 0 00 037017 DMOVEM A,P2+17 ;BITS 13-17 OF FIRST WORD SHOULD GET IGNORED.
2777 056113 402 00 0 00 036000 SETZM P3 ;START WITH 0 IN WORD RECEIVING THE BYTE.
2778 056114 201 03 0 00 000130 MOVEI C,"X" ;ASCII CHARACTER TO BE STORED.
2779 056115 415 02 0 00 056117 XMOVEI B,HOMIII ;LOAD UP THE RETURN ADDRESS.
2780 XJMP 4456775 ^;JUMP TO THE TEST PROGRAM.
2781 056116 254 05 0 00 063146 XJRSTF [EXP 0,4456775]
2782 056117 200 01 0 00 036000 HOMIII: MOVE A,P3 ;RETRIEVE THE DATA WORD.
2783 056120 312 01 0 00 063150 CAME A,[ASCII /X/] ;MAKE SURE THE CORRECT DATA GOT STORED.
2784 ERROR T56,13,[ASCII /X/],A,,^_
2785 <IDPB WITH BIT 12 ON IN NON-0 SECTION STORED THE DATA INCORRECTLY>^
2786 056121 036 13 0 00 063164
2787 056122 035 00 0 00 056064 ERLOOP T56 ;IF ERROR, LOOP TO T56
2788
2789 056123 120 01 0 00 037017 DMOVE A,P2+17 ;GET THE MODIFIED DOUBLE WORD BYTE POINTER.
2790 056124 316 01 0 00 063167 CAMN A,[350740+T1,,53423]
2791 056125 312 02 0 00 063170 CAME B,[36000000]
2792 ERROR T56,13,[36000000],B,,^_
2793 <IDPB WITH BIT 12 ON IN NON-0 SECTION MODIFIED THE POINTER INCORRECTLY>^
2794 056126 036 13 0 00 063205
2795 056127 035 00 0 00 056064 ERLOOP T56 ;IF ERROR, LOOP TO T56
2796
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 34
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0093
2797
2798 ;*TEST 57 - NOW WE'LL DO AN ILDB IN A NON-0 SECTION WITH INDEXING SPECIFIIED IN
2799 ;*THE SECOND WORD OF THE BYTE POINTER.
2800
2801 056130 T57: SETUP^
2802 056130 201 00 0 00 056130 MOVEI . ;GET PC
2803 056131 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2804 PAGMAP (P1,37,20)^ ;SECTION 37 PAGE 20 FOR THE TEST PROGRAM.
2805 056132 201 01 0 00 035000 MOVEI A,P1
2806 056133 201 02 0 00 000037 MOVEI B,37
2807 056134 201 03 0 00 000020 MOVEI C,20
2808 056135 205 14 0 00 000000 MOVSI T3,0
2809 056136 260 17 0 00 054201 PUSHJ P,PMAPRT
2810 DMOVE A,[ILDB A,@T1
2811 056137 120 01 0 00 063210 JRST @B] ;THE TEST PROGRAM.
2812 056140 124 01 0 00 035030 DMOVEM A,P1+30 ;PUT PROGRAM AT 37020030
2813 PAGMAP (P2,20,3)^ ;BYTE POINTER WILL BE IN SECTION 20.
2814 056141 201 01 0 00 037000 MOVEI A,P2
2815 056142 201 02 0 00 000020 MOVEI B,20
2816 056143 201 03 0 00 000003 MOVEI C,3
2817 056144 205 14 0 00 000000 MOVSI T3,0
2818 056145 260 17 0 00 054201 PUSHJ P,PMAPRT
2819 DMOVE A,[050677,,123
2820 056146 120 01 0 00 063212 <C>B5+11500000]
2821 056147 124 01 0 00 037062 DMOVEM A,P2+62 ;NOTICE INDEXING BY REGISTER C.
2822 PAGMAP (P3,11+T2+1,<<500+600>&777>)^ ;PAGE TO HOLD THE BYTE.
2823 056150 201 01 0 00 036000 MOVEI A,P3
2824 056151 201 02 0 00 000025 MOVEI B,11+T2+1
2825 056152 201 03 0 00 000300 MOVEI C,<500+600>&777
2826 056153 205 14 0 00 000000 MOVSI T3,0
2827 056154 260 17 0 00 054201 PUSHJ P,PMAPRT
2828 056155 200 12 0 00 063214 MOVE T1,[20,,003062] ;ILDB INDIRECTS THROUGH T1.
2829 MOVE C,[T2,,600000] ;THIS SHOULD GET ADDED TO 11500001 FOR ADDR OF THE B
2830 056156 200 03 0 00 063215 YTE !!
2831 056157 205 01 0 00 420000 MOVSI A,(SIXBIT /B/) ;THE SIXBIT BYTE TO BE LOADED.
2832 056160 202 01 0 00 036001 MOVEM A,P3+1 ;PUT IT WHERE ILDB SHOULD RETRIEVE IT FROM.
2833 056161 415 02 0 00 056163 XMOVEI B,HOMLLL ;LOAD UP THE RETURN ADDRESS.
2834 XJMP 37020030 ^;JUMP TO THE TEST PROGRAM.
2835 056162 254 05 0 00 063216 XJRSTF [EXP 0,37020030]
2836 056163 302 01 0 00 000042 HOMLLL: CAIE A,'B' ;MAKE SURE THE RIGHT DATA GOT LOADED.
2837 ERROR T57,13,['B'],A,,^_
2838 <ILDB IN NON-0 SECTION WITH BIT 12 ON IN POINTER LOADED THE WRONG DATA>^
2839 056164 036 13 0 00 063235
2840 056165 035 00 0 00 056130 ERLOOP T57 ;IF ERROR, LOOP TO T57
2841
2842 056166 120 01 0 00 037062 DMOVE A,P2+62 ;GET THE MODIFIED BYTE POINTER.
2843 056167 316 01 0 00 063240 CAMN A,[360677,,123] ;MAKE SURE THE FIRST WORD GOT MODIFIIED CORRECTLY.
2844 056170 312 02 0 00 063241 CAME B,[<C>B5+11500001] ;AND THE SECOND....
2845 ERROR T57,13,[<C>B5+11500001],B,,^_
2846 <ILDB IN NON-0 SECTION WITH BIT 12 ON MODIFIIED THE POINTER INCORRECTLY>^
2847 056171 036 13 0 00 063256
2848 056172 035 00 0 00 056130 ERLOOP T57 ;IF ERROR, LOOP TO T57
2849
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 35
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0094
2850
2851 ;*TEST 60 - LET'S TRY HAVING THE INDIRECT BIT ON IN THE BYTE POINTER THIS
2852 ;*TIME:
2853
2854 056173 T60: SETUP^
2855 056173 201 00 0 00 056173 MOVEI . ;GET PC
2856 056174 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2857 056175 200 01 0 00 063212 MOVE A,[050677,,123] ;RESTORE THE FIRST PART OF THE BYTE POINTER.
2858 056176 202 01 0 00 037062 MOVEM A,P2+62
2859 056177 200 01 0 00 063261 MOVE A,[1B1+<C>B5+11500000]
2860 056200 202 01 0 00 037063 MOVEM A,P2+63 ;TURN ON INDIRECT BIT THIS TIME.
2861 056201 200 01 0 00 063262 MOVE A,[1,,T3] ;WE'LL RETRIEVE THE BYTE FROM AC T3.
2862 056202 202 01 0 00 036001 MOVEM A,P3+1
2863 056203 205 14 0 00 700000 MOVSI T3,(SIXBIT /X/) ;THE BYTE TO BE RETRIEVED.
2864 056204 415 02 0 00 056206 XMOVEI B,HOMLL2 ;LOAD UP THE RETURN ADDRESS.
2865 XJMP 37020030 ^;JUMP TO THE TEST PROGRAM.
2866 056205 254 05 0 00 063216 XJRSTF [EXP 0,37020030]
2867 056206 302 01 0 00 000070 HOMLL2: CAIE A,'X' ;MAKE SURE THE RIGHT DATA GOT LOADED.
2868 ERROR T60,13,['X'],A,,^_
2869 <ILDB IN NON-0 SECTION WITH BIT 12 ON IN POINTER LOADED THE WRONG DATA>^
2870 056207 036 13 0 00 063264
2871 056210 035 00 0 00 056173 ERLOOP T60 ;IF ERROR, LOOP TO T60
2872
2873 056211 120 01 0 00 037062 DMOVE A,P2+62 ;GET THE MODIFIED BYTE POINTER.
2874 056212 316 01 0 00 063240 CAMN A,[360677,,123] ;MAKE SURE THE FIRST WORD GOT MODIFIIED CORRECTLY.
2875 056213 312 02 0 00 063267 CAME B,[1B1+<C>B5+11500001] ;AND THE SECOND....
2876 ERROR T60,13,[1B1+<C>B5+11500001],B,,^_
2877 <ILDB IN NON-0 SECTION WITH BIT 12 ON MODIFIIED THE POINTER INCORRECTLY>^
2878 056214 036 13 0 00 063270
2879 056215 035 00 0 00 056173 ERLOOP T60 ;IF ERROR, LOOP TO T60
2880
2881
2882 ;*TEST 61 - THE FOLLOWING TEST TRIES AN ILDB INSTRUCTION WITH BIT 12 ON IN THE
2883 ;*FIRST WORD. BIT 0 OF THE SECOND WORD WILL BE ON, AND THE TEST WILL
2884 ;*VERIFY THAT NO CARRY ACROSS BIT 18 IS ALLOWED BY THE MICROCODE.
2885
2886 056216 T61: SETUP^
2887 056216 201 00 0 00 056216 MOVEI . ;GET PC
2888 056217 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2889 PAGMAP (P1,2,400)^ ;PROGRAM WILL BE IN SECTION 2.
2890 056220 201 01 0 00 035000 MOVEI A,P1
2891 056221 201 02 0 00 000002 MOVEI B,2
2892 056222 201 03 0 00 000400 MOVEI C,400
2893 056223 205 14 0 00 000000 MOVSI T3,0
2894 056224 260 17 0 00 054201 PUSHJ P,PMAPRT
2895 PAGMAP (P2,33,0)^ ;WE'LL FETCH THE BYTE FROM SHADOW MEMORY.
2896 056225 201 01 0 00 037000 MOVEI A,P2
2897 056226 201 02 0 00 000033 MOVEI B,33
2898 056227 201 03 0 00 000000 MOVEI C,0
2899 056230 205 14 0 00 000000 MOVSI T3,0
2900 056231 260 17 0 00 054201 PUSHJ P,PMAPRT
2901 DMOVE AC,[000640,,3 ;BIT 12 ON, 6-BIT BYTE, WORD INCREMENT REQUIRED.
2902 056232 120 04 0 00 063273 400000+C,,777777] ;IFIW, INDEX BY C.
2903 056233 205 01 0 00 600000 MOVSI A,(SIXBIT /P/) ;WE'LL LOAD A P.
2904 056234 202 01 0 00 037012 MOVEM A,P2+T1 ;FROM SHADOW T1.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 35-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0095
2905 056235 201 12 0 00 000000 MOVEI T1,0 ;MAKE SURE T1 CONTAINS THE WRONG DATA !
2906 MOVE C,[33,,T1] ;C IS INDEX REGISTER IT POINTS TO WORD CONTAINING TH
2907 056236 200 03 0 00 063275 E BYTE.
2908 DMOVE A,[ILDB A,AC
2909 056237 120 01 0 00 063276 JRST @B] ;PROGRAM TO BE RUN.
2910 056240 124 01 0 00 035020 DMOVEM A,P1+20 ;RUN PROGRAM IN LOCATION 2400020
2911 056241 415 02 0 00 056243 XMOVEI B,HOMPAL ;LOAD UP RETURN ADDRESS.
2912 XJMP 2400020 ^;RUN THE TEST.
2913 056242 254 05 0 00 063300 XJRSTF [EXP 0,2400020]
2914 HOMPAL: CAMN AC,[360640,,3] ;MAKE SURE RIGHT HALF OF FIRST WORD WASN'T INCREMENT
2915 056243 316 04 0 00 063302 ED.
2916 056244 312 05 0 00 063303 CAME AC+1,[400000+C,,0] ;AND THAT SECOND WORD WAS, BUT NOT INTO B17 !!
2917 ERROR T61,13,[400000+C,,0],AC+1,,^_
2918 <LONG BYTE POINTER WITH IFIW IN SECOND WORD INCREMENTED INCORRECTLY>^
2919 056245 036 13 0 00 063320
2920 056246 035 00 0 00 056216 ERLOOP T61 ;IF ERROR, LOOP TO T61
2921
2922 056247 302 01 0 00 000060 CAIE A,'P' ;MAKE SURE P (FOR PAULA) GOT RETRIEVED.
2923 ERROR T61,13,['P'],A,,^_
2924 <ILDB WITH BIT 12 AND IFIW RETRIEVED THE WRONG DATA>^
2925 056250 036 13 0 00 063335
2926 056251 035 00 0 00 056216 ERLOOP T61 ;IF ERROR, LOOP TO T61
2927
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 36
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0096
2928
2929 ;*TEST 62 - HERE'S A TEST FOR THE ADJBP INSTRUCTION BEING EXECUTED IN A NON-0
2930 ;*SECTION WITHOUT BIT 12 OF THE BYTE POINTER ON.
2931
2932 056252 T62: SETUP^
2933 056252 201 00 0 00 056252 MOVEI . ;GET PC
2934 056253 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2935 PAGMAP (P1,3,4)^ ;SECTION 3 PAGE 4
2936 056254 201 01 0 00 035000 MOVEI A,P1
2937 056255 201 02 0 00 000003 MOVEI B,3
2938 056256 201 03 0 00 000004 MOVEI C,4
2939 056257 205 14 0 00 000000 MOVSI T3,0
2940 056260 260 17 0 00 054201 PUSHJ P,PMAPRT
2941 DMOVE A,[ADJBP A,5001
2942 056261 120 01 0 00 063340 JRST @C] ;THE TEST PROGRAM.
2943 056262 124 01 0 00 035020 DMOVEM A,P1+20 ;PUT IT AT 3004020
2944 PAGMAP (P2,3,5)^ ;WORD TO HOLD THE BYTE POINTER
2945 056263 201 01 0 00 037000 MOVEI A,P2
2946 056264 201 02 0 00 000003 MOVEI B,3
2947 056265 201 03 0 00 000005 MOVEI C,5
2948 056266 205 14 0 00 000000 MOVSI T3,0
2949 056267 260 17 0 00 054201 PUSHJ P,PMAPRT
2950 DMOVE A,[261000,,3
2951 056270 120 01 0 00 063342 2000000] ;THE DOUBLE WORD BYTE POINTER.
2952 056271 124 01 0 00 037001 DMOVEM A,P2+1
2953 HRROI B,-2 ;THIS SHOULDN'T GET CLOBBERED, SINCE BIT 12 ISN'T ON
2954 056272 561 02 0 00 777776 .
2955 056273 561 01 0 00 777774 HRROI A,-4 ;WE WANT TO DECREMENT BY 4 BYTES.
2956 056274 415 03 0 00 056276 XMOVEI C,HOMADJ ;LOAD UP THE RETURN ADDRESS.
2957 XJMP 3004020 ^;JUMP TO THE TEST PROGRAM.
2958 056275 254 05 0 00 063344 XJRSTF [EXP 0,3004020]
2959 056276 316 02 0 00 063346 HOMADJ: CAMN B,[-2] ;MAKE SURE THE CORRECT RESULT CAME BACK.
2960 056277 312 01 0 00 063347 CAME A,[061000,,1] ;CHECK THE DECREMENTED BYTE POINTER.
2961 ERROR T62,13,[061000,,1],A,,^_
2962 <ADJBP INSTRUCTION IN NON-0 SECTION WITHOUT BIT 12 ON RETURNED THE WRONG ANSWER>^
2963 056300 036 13 0 00 063366
2964 056301 035 00 0 00 056252 ERLOOP T62 ;IF ERROR, LOOP TO T62
2965
2966
2967 ;*TEST 63 - NOW WE'LL TRY ADJBP WITH BIT 12 ON !!
2968
2969 056302 T63: SETUP^
2970 056302 201 00 0 00 056302 MOVEI . ;GET PC
2971 056303 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2972 056304 205 01 0 00 000040 MOVSI A,(1B12) ;THERE'S BIT 12 !!
2973 056305 436 01 0 00 037001 IORM A,P2+1 ;STICK IT IN...
2974 HRROI B,-2 ;THIS TIME B SHOULD GET THE DECREMENTED SECOND WORD.
2975 056306 561 02 0 00 777776
2976 056307 561 01 0 00 777774 HRROI A,-4 ;AGAIN, WE'LL DECREMENT BY 4.
2977 056310 415 03 0 00 056312 XMOVEI C,HOMAJ2 ;LOAD UP THE RETURN ADDRESS.
2978 XJMP 3004020 ^;RUN THE TEST.
2979 056311 254 05 0 00 063344 XJRSTF [EXP 0,3004020]
2980 056312 316 02 0 00 063371 HOMAJ2: CAMN B,[1777776] ;MAKE SURE SECOND WORD GOT DECREMENTED TWICE.
2981 056313 312 01 0 00 063372 CAME A,[061040,,3] ;AND FIRST WORD NOT AT ALL.
2982 ERROR T63,13,[061040,,3],A,,^_
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 36-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0097
2983 <ADJBP IN NON-0 SECTION WITH BIT 12 ON RETURNED THE WRONG ANSWER>^
2984 056314 036 13 0 00 063406
2985 056315 035 00 0 00 056302 ERLOOP T63 ;IF ERROR, LOOP TO T63
2986
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 37
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0098
2987
2988 ;*TEST 64 - THE SFM (SAVE FLAGS IN MEMORY) INSTRUCTION IS NOW TESTED. THIS
2989 ;*INSTRUCTION IS SUPPOSED TO SAVE THE PC FLAGS IN BITS 0-12 OF ITS
2990 ;*EFFECTIVE ADDRESS. FIRST WE'LL TRY IT WITHOUT ANY INDIRECTION.
2991
2992 056316 T64: SETUP^
2993 056316 201 00 0 00 056316 MOVEI . ;GET PC
2994 056317 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
2995 PAGMAP (P1,20,600)^ ;PROGRAM IN SECTION 20 PAGE 600
2996 056320 201 01 0 00 035000 MOVEI A,P1
2997 056321 201 02 0 00 000020 MOVEI B,20
2998 056322 201 03 0 00 000600 MOVEI C,600
2999 056323 205 14 0 00 000000 MOVSI T3,0
3000 056324 260 17 0 00 054201 PUSHJ P,PMAPRT
3001 DMOVE A,[SFM 123
3002 056325 120 01 0 00 063411 JRST @B] ;THE TEST PROGRAM.
3003 056326 124 01 0 00 035407 DMOVEM A,P1+407 ;PUT PROGRAM AT 20600407
3004 PAGMAP (P2,20,0)^ ;PAGE INTO WHICH FLAGS ARE TO BE WRITTEN.
3005 056327 201 01 0 00 037000 MOVEI A,P2
3006 056330 201 02 0 00 000020 MOVEI B,20
3007 056331 201 03 0 00 000000 MOVEI C,0
3008 056332 205 14 0 00 000000 MOVSI T3,0
3009 056333 260 17 0 00 054201 PUSHJ P,PMAPRT
3010 056334 476 00 0 00 037123 SETOM P2+123 ;START WITH ALL BITS ON IN MEMORY.
3011 056335 415 02 0 00 056340 XMOVEI B,HOMSFM ;LOAD UP THE RETURN ADDRESS.
3012 056336 476 00 0 00 037124 SETOM P2+124 ;START WITH ALL BITS ON IN "SECOND" MEMORY WORD.
3013 056337 254 05 0 00 063413 XJRSTF [EXP 740140B17,20600407] ;TURN ON PC FLAGS AND JUMP TO PROGRAM.
3014 056340 265 01 0 00 056341 HOMSFM: JSP A,.+1 ;READ THE PC BITS INTO A.
3015 056341 554 01 0 00 000001 HLRZ A,A ;KEEP ONLY THE FLAGS.
3016 056342 302 01 0 00 740140 CAIE A,740140 ;ARE THE RIGHT FLAGS ON ??
3017 ERROR T64,13,[740140],A,,^_
3018 <THE WRONG PC FLAGS WERE ON FOLLOWING AN SFM INSTRUCTION>^
3019 056343 036 13 0 00 063427
3020 056344 035 00 0 00 056316 ERLOOP T64 ;IF ERROR, LOOP TO T64
3021
3022 056345 120 01 0 00 037123 DMOVE A,P2+123 ;GET THE RESULTANT SFM DATA.
3023 056346 316 02 0 00 063432 CAMN B,[-1] ;MAKE SURE SECOND WORD IS STILL INTACT.
3024 056347 312 01 0 00 062203 CAME A,[740140B17] ;MAKE SURE FLAGS GOT STORED.
3025 ERROR T64,13,[74140B17],A,,^_
3026 <SFM IN EXEC NON-0 SECTION WITHOUT INDIRECTION STORED THE DATA INCORRECTLY>^
3027 056350 036 13 0 00 063451
3028 056351 035 00 0 00 056316 ERLOOP T64 ;IF ERROR, LOOP TO T64
3029
3030 056352 254 05 0 00 063454 T64A: XJRSTF [EXP 37,T64B] ;37 -> PCS
3031 056353 254 14 0 00 000123 T64B: SFM 123 ;DO AN SFM.
3032 056354 550 01 0 00 000123 HRRZ A,123 ;GET E FIELD OF SFM.
3033 056355 302 01 0 00 000037 CAIE A,37 ;DID THE CONTENTS OF THE "PCS" GET TO THE E FIELD?
3034 ERROR T64A,13,[37],A,,^_
3035 <XJRSTF - DID NOT STORE 37 IN PCS OR^^_
3036 SFM - PCS DID NOT GET STORED IN THE E FIELD BITS 31 TO 35>^
3037 056356 036 13 0 00 063476
3038 056357 035 00 0 00 056352 ERLOOP T64A ;IF ERROR, LOOP TO T64A
3039
3040
3041 ;*TEST 65 - NOW LET'S TRY THE SFM WITH INDIRECTION.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 37-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0099
3042
3043 056360 T65: SETUP^
3044 056360 201 00 0 00 056360 MOVEI . ;GET PC
3045 056361 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
3046 056362 205 01 0 00 000020 MOVSI A,(@) ;GET THE INDIRECT BIT.
3047 056363 436 01 0 00 035407 IORM A,P1+407 ;TURN IT ON IN THE INSTRUCTION.
3048 056364 200 01 0 00 063501 MOVE A,[36,,765432] ;ADDRESS INTO WHICH TO STORE THE FLAGS.
3049 056365 202 01 0 00 037123 MOVEM A,P2+123 ;STORE THE INDIRECT WORD.
3050 PAGMAP (P3,36,765)^ ;MAP A PAGE TO HOLD THE PC FLAGS.
3051 056366 201 01 0 00 036000 MOVEI A,P3
3052 056367 201 02 0 00 000036 MOVEI B,36
3053 056370 201 03 0 00 000765 MOVEI C,765
3054 056371 205 14 0 00 000000 MOVSI T3,0
3055 056372 260 17 0 00 054201 PUSHJ P,PMAPRT
3056 056373 476 00 0 00 036432 SETOM P3+432 ;START WITH -1 IN THE WORD TO RECEIVE THE FLAGS.
3057 056374 415 02 0 00 056376 XMOVEI B,HOMSM2 ;LOAD UP THE RETURN ADDRESS.
3058 056375 254 05 0 00 063413 XJRSTF [EXP 740140B17,20600407] ;TURN ON PC BITS AND JUMP TO PROGRAM.
3059 056376 200 01 0 00 036432 HOMSM2: MOVE A,P3+432 ;GET THE WORD INTO WHICH SFM WAS SUPPOSED TO WRITE.
3060 056377 312 01 0 00 062203 CAME A,[740140B17] ;MAKE SURE THE BITS AND ONLY THE BITS WERE STORED.
3061 ERROR T65,13,[740140B17],A,,^_
3062 <SFM IN EXEC NON-0 SECTION WITH INDIRECTION STORED THE PC BITS INCORRECTLY>^
3063 056400 036 13 0 00 063517
3064 056401 035 00 0 00 056360 ERLOOP T65 ;IF ERROR, LOOP TO T65
3065
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 38
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0100
3066
3067 ;*TEST 66 - HERE'S A TEST OF THE XPCW (SAVE THEN RESTORE FLAGS AND PROGRAM COUNTER)
3068 ;*INSTRUCTION:
3069
3070 056402 T66: SETUP^
3071 056402 201 00 0 00 056402 MOVEI . ;GET PC
3072 056403 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
3073 056404 201 01 0 00 035000 PAGMAP (P1,20,30)^ MOVEI A,P1
3074 056405 201 02 0 00 000020 MOVEI B,20
3075 056406 201 03 0 00 000030 MOVEI C,30
3076 056407 205 14 0 00 000000 MOVSI T3,0
3077 056410 260 17 0 00 054201 PUSHJ P,PMAPRT
3078 056411 201 01 0 00 037000 PAGMAP (P2,30,40)^ MOVEI A,P2
3079 056412 201 02 0 00 000030 MOVEI B,30
3080 056413 201 03 0 00 000040 MOVEI C,40
3081 056414 205 14 0 00 000000 MOVSI T3,0
3082 056415 260 17 0 00 054201 PUSHJ P,PMAPRT
3083 056416 201 01 0 00 036000 PAGMAP (P3,10,20)^ MOVEI A,P3
3084 056417 201 02 0 00 000010 MOVEI B,10
3085 056420 201 03 0 00 000020 MOVEI C,20
3086 056421 205 14 0 00 000000 MOVSI T3,0
3087 056422 260 17 0 00 054201 PUSHJ P,PMAPRT
3088 056423 200 01 0 00 063522 MOVE A,[XPCW @30201]
3089 056424 202 01 0 00 035030 MOVEM A,P1+30 ;PUT PROGRAM AT LOCATION 20030030
3090 056425 200 01 0 00 063523 MOVE A,[30040121] ;LOAD UP ADDRESS OF 4 WORD BLOCK.
3091 056426 202 01 0 00 035201 MOVEM A,P1+201 ;PUT IT WHERE XPCW EXPECTS IT.
3092 056427 120 01 0 00 063524 DMOVE A,[EXP 740140B17,10020345]
3093 056430 124 01 0 00 037123 DMOVEM A,P2+123 ;STORE TRANSFER ADDRESS AND FLAGS FOR XPCW
3094 056431 476 00 0 00 037121 SETOM P2+121 ;THIS WORD SHOULD RECEIVE THE FLAGS.
3095 056432 476 00 0 00 037122 SETOM P2+122 ;AND THIS ONE THE PC OF THE XPCW.
3096 056433 415 02 0 00 056437 XMOVEI B,HOMSRF ;LOAD UP THE RETURN ADDRESS.
3097 056434 200 01 0 00 061210 MOVE A,[JRST @B] ;INSTRUCTION FOR GETTING BACK !
3098 056435 202 01 0 00 036345 MOVEM A,P3+345 ;PUT IT WHERE XPCW SHOULD TRANSFER TO.
3099 056436 254 05 0 00 063526 XJRSTF [EXP 500100B17,20030030] ;SET FLAGS & PCS AND JUMP TO TEST.
3100 056437 554 01 0 00 037121 HOMSRF: HLRZ A,P2+121 ;GET STORED PC FLAGS.
3101 056440 302 01 0 00 500100 CAIE A,500100 ;MAKE SURE THE CORRECT FLAGS GOT STORED.
3102 ERROR T66,13,[500100],A,,^_
3103 <XPCW IN NON-0 SECTION STORED THE WRONG FLAGS>^
3104 056441 036 13 0 00 063541
3105 056442 035 00 0 00 056402 ERLOOP T66 ;IF ERROR, LOOP TO T66
3106
3107 056443 200 01 0 00 037122 MOVE A,P2+122 ;PICK UP THE STORED PC.
3108 056444 312 01 0 00 063544 CAME A,[20030031]
3109 ERROR T66,13,[20030031],A,,^_
3110 <XPCW IN NON-0 SECTION STORED THE WRONG PC.>^
3111 056445 036 13 0 00 063555
3112 056446 035 00 0 00 056402 ERLOOP T66 ;IF ERROR, LOOP TO T66
3113
3114 056447 265 01 0 00 056450 JSP A,.+1 ;GET THE CURRENT PC FLAGS.
3115 056450 554 01 0 00 000001 HLRZ A,A ;ISOLATE THEM.
3116 056451 302 01 0 00 740140 CAIE A,740140 ;MAKE SURE THE CORRECT NEW FLAGS GOT STORED.
3117 ERROR T66,13,[740140],A,,^_
3118 <XPCW IN NON-0 SECTION DIDN'T SET THE NEW PC FLAGS>^
3119 056452 036 13 0 00 063571
3120 056453 035 00 0 00 056402 ERLOOP T66 ;IF ERROR, LOOP TO T66
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 38-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0101
3121
3122 056454 7 010 04 0 00 000001 T66A: DATAI PAG,A ;READ PROCESS STATUS
3123 056455 661 01 0 00 000037 TLO A,37 ;ADD PCS
3124 056456 7 010 14 0 00 000001 DATAO PAG,A ;NOW LOAD IT
3125 056457 201 01 0 00 056462 MOVEI A,T66B ;RETURN
3126 056460 202 01 0 00 030204 MOVEM A,30204 ;LOAD (E+3)
3127 056461 254 07 0 00 030201 XPCW 30201
3128 056462 550 01 0 00 030201 T66B: HRRZ A,30201 ;GET E FIELD OF XPCW
3129 056463 302 01 0 00 000037 CAIE A,37 ;DID THE PCS GET TO THE E FIELD (BITS 31-35)?
3130 ERROR T66A,13,[37],A,,^_
3131 <XPCW - PCS DID NOT GET STORED IN E BITS 31 TO 35>^
3132 056464 036 13 0 00 063605
3133 056465 035 00 0 00 056454 ERLOOP T66A ;IF ERROR, LOOP TO T66A
3134
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 39
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0102
3135
3136 ;*TEST 67 - NOW WE'LL TRY THE XPCW IN A SECTION 0 PAGE. IT SHOULD STILL WORK.
3137
3138 056466 T67: SETUP^
3139 056466 201 00 0 00 056466 MOVEI . ;GET PC
3140 056467 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
3141 PAGMAP (P1,0,P1PN)^ ;MAP P1 TO ITSELF.
3142 056470 201 01 0 00 035000 MOVEI A,P1
3143 056471 201 02 0 00 000000 MOVEI B,0
3144 056472 201 03 0 00 000035 MOVEI C,P1PN
3145 056473 205 14 0 00 000000 MOVSI T3,0
3146 056474 260 17 0 00 054201 PUSHJ P,PMAPRT
3147 056475 201 01 0 00 037000 PAGMAP (P2,0,P2PN)^ MOVEI A,P2
3148 056476 201 02 0 00 000000 MOVEI B,0
3149 056477 201 03 0 00 000037 MOVEI C,P2PN
3150 056500 205 14 0 00 000000 MOVSI T3,0
3151 056501 260 17 0 00 054201 PUSHJ P,PMAPRT
3152 056502 476 00 0 00 037121 SETOM P2+121
3153 056503 476 00 0 00 037122 SETOM P2+122 ;START WITH ALL 1'S IN WORDS TO CONTAIN FLAGS.
3154 056504 205 01 0 00 740140 MOVSI A,740140 ;PC FLAGS FOR XPCW TO SET UP.
3155 056505 202 01 0 00 037123 MOVEM A,P2+123 ;PUT FLAGS WHERE XPCW WILL READ THEM FROM.
3156 056506 415 02 0 00 056513 XMOVEI B,HOMRR2 ;LOAD UP RETURN ADDRESS.
3157 056507 202 02 0 00 037124 MOVEM B,P2+124
3158 056510 200 01 0 00 063610 MOVE A,[XPCW P2+121] ;INSTRUCTION TO BE TESTED.
3159 056511 202 01 0 00 035050 MOVEM A,P1+50 ;STORE IT IN P1.
3160 XJMP P1+50 ^;JUMP TO THE SECTION 0 TEST PROGRAM.
3161 056512 254 05 0 00 062745 XJRSTF [EXP 0,P1+50]
3162 056513 265 01 0 00 056514 HOMRR2: JSP A,.+1 ;GET THE PC FLAGS.
3163 056514 554 01 0 00 000001 HLRZ A,A ;KEEP ONLY THE FLAGS.
3164 056515 302 01 0 00 740140 CAIE A,740140 ;MAKE SURE THE FLAGS GOT TURNED ON.
3165 ERROR T67,13,[740140],A,,^_
3166 <XPCW IN SECTION 0 DIDN'T SET THE PC FLAGS CORRECTLY>^
3167 056516 036 13 0 00 063622
3168 056517 035 00 0 00 056466 ERLOOP T67 ;IF ERROR, LOOP TO T67
3169
3170 056520 120 01 0 00 037121 DMOVE A,P2+121 ;PICK UP THE DATA XPCW WAS SUPPOSED TO STORE.
3171 056521 306 01 0 00 000000 CAIN A,0 ;MAKE SURE PC FLAGS OF ALL 0'S GOT STORED.
3172 056522 302 02 0 00 035051 CAIE B,P1+51 ;AND THAT THE RIGHT PC GOT STORED.
3173 ERROR T67,13,[P1+51],B,,^_
3174 <XPCW IN SECTION 0 STORED THE WRONG PC AND/OR FLAGS>^
3175 056523 036 13 0 00 063637
3176 056524 035 00 0 00 056466 ERLOOP T67 ;IF ERROR, LOOP TO T67
3177
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 40
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0103
3178
3179 ;*TEST 70 - LET'S MAKE SURE THAT AN INSTRUCTION EXECUTED AS AN INTERRUPT INSTRUCTION
3180 ;*HAS ITS EFFECTIVE ADDRESS COMPUTED AS A SECTION 0 ADDRESS.
3181 ;*THIS TEST ALSO CHECKS THAT THE XPCW THAT IS USED AS THE INTERRUPT
3182 ;*INSTRUCTION STORES ALL THE RIGHT DATA AND TRANSFERS SUCCESSFULLY TO
3183 ;*A NON-0 SECTION ADDRESS.
3184
3185 056525 T70: SETUP^
3186 056525 201 00 0 00 056525 MOVEI . ;GET PC
3187 056526 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
3188 056527 7 004 20 0 00 032440 CONO PI,32440 ;PI SYSTEM OFF, CHANNEL 2 RARING TO GO...
3189 056530 200 01 0 00 061210 MOVE A,[JRST @B] ;INSTRUCTION FOR GETTING BACK TO THE MAIN PROGRAM.
3190 056531 202 01 0 00 035650 MOVEM A,P1+650
3191 PAGMAP (P1,20,21)^ ;PAGE INTO WHICH INTERRUPT VECTOR POINTS.
3192 056532 201 01 0 00 035000 MOVEI A,P1
3193 056533 201 02 0 00 000020 MOVEI B,20
3194 056534 201 03 0 00 000021 MOVEI C,21
3195 056535 205 14 0 00 000000 MOVSI T3,0
3196 056536 260 17 0 00 054201 PUSHJ P,PMAPRT
3197 PAGMAP (P2,31,43)^ ;NON-0 SECT FOR PROG FROM WHICH TIMER SHOULD
3198 INT.
3199 056537 201 01 0 00 037000 MOVEI A,P2
3200 056540 201 02 0 00 000031 MOVEI B,31
3201 056541 201 03 0 00 000043 MOVEI C,43
3202 056542 205 14 0 00 000000 MOVSI T3,0
3203 056543 260 17 0 00 054201 PUSHJ P,PMAPRT
3204 056544 200 01 0 00 063642 MOVE A,[AOJA A,043222] ;PROGRAM TO BE INTERRUPTED OUT OF.
3205 056545 202 01 0 00 037222 MOVEM A,P2+222 ;NOTICE THAT IT'S AN INFINITE LOOP.
3206 056546 200 01 0 00 063643 MOVE A,[CONO PI,PION] ;TURN ON PI SYSTEM IN NON-0 SECTION.
3207 056547 202 01 0 00 037221 MOVEM A,P2+221 ;IT COMES RIGHT BEFORE THE INFINITE LOOP.
3208 056550 200 01 0 00 063644 MOVE A,[XPCW @C] ;THIS IS THE INTERRUPT INSTRUCTION.
3209 056551 202 01 0 00 033514 MOVEM A,TIMVEC ;PUT IT WHERE CHANNEL 2 INTERRUPTS TO.
3210 056552 120 01 0 00 063645 DMOVE A,[EXP 0,20021650] ;PC THAT XPCW WILL TRANSFER TO.
3211 056553 124 01 0 00 036400 DMOVEM A,P3+400 ;PUT IT SOMEWHERE.
3212 PAGMAP (P3,0,P3PN)^ ;IT MUST BE IN SECTION 0.
3213 056554 201 01 0 00 036000 MOVEI A,P3
3214 056555 201 02 0 00 000000 MOVEI B,0
3215 056556 201 03 0 00 000036 MOVEI C,P3PN
3216 056557 205 14 0 00 000000 MOVSI T3,0
3217 056560 260 17 0 00 054201 PUSHJ P,PMAPRT
3218 056561 200 03 0 00 063647 MOVE C,[T1,,3] ;SO XPCW IS LIKE "XPCW 3(T1)"
3219 MOVEI T1,P3+400-2-3 ;2 WORDS FOR STORING THE PC, AND 3 TO OFFSET THE IND
3220 056562 201 12 0 00 036373 EX IN C
3221 056563 7 024 20 0 00 000002 CONO MTR,2 ;PUT IT ON LEVEL 2.
3222 CONO TIM,467777 ;TURN ON TIMER,CLEAR DONE,SET LONG PERIOD,AND CLEAR
3223 056564 7 020 20 0 00 467777 TIMER.
3224 056565 415 02 0 00 056570 XMOVEI B,HOMTIM ;LOAD UP RETURN ADDRESS.
3225 056566 201 01 0 00 000000 MOVEI A,0 ;TEST PROGRAM SHOULD INCREMENT A.
3226 XJMP 31043221 ^;JUMP TO TEST PROGRAM.
3227 056567 254 05 0 00 063650 XJRSTF [EXP 0,31043221]
3228 HOMTIM: CAIN A,0 ;MAKE SURE THE TIMER INT. SOMETIME AFTER THE AOJA HA
3229 056570 306 01 0 00 000000 PPENED.
3230 ERROR T70,13,0,0,,^_
3231 <NO TIMER INTERRUPT HAPPENED DURING THE EXPECTED INSTRUCTIONS>^
3232 056571 036 13 0 00 063665
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 40-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0104
3233 056572 035 00 0 00 056525 ERLOOP T70 ;IF ERROR, LOOP TO T70
3234 056573 120 01 0 00 036376 DMOVE A,P3+376 ;PICK UP THE STORED PC.
3235 056574 312 02 0 00 063670 CAME B,[31043222] ;MAKE SURE THE CORRECT PC GOT STORED.
3236 ERROR T70,13,[31043222],B,,^_
3237 <XPCW AS INTERRUPT INSTRUCTION STORED THE WRONG PC>^
3238 056575 036 13 0 00 063702
3239 056576 035 00 0 00 056525 ERLOOP T70 ;IF ERROR, LOOP TO T70
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 41
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0105
3240
3241 ;*TEST 71 - NOW LET'S MAKE SURE THAT THE XJEN INSTRUCTION SUCCESSFULLY DISMISSES
3242 ;*AN INTERRUPT. THE TEST WILL SET UP THE INTERVAL TIMER. THE INTERRUPT
3243 ;*ROUTINE WILL INCREMENT ACCUMULATOR "A", AND USE AN XJEN INSTRUCTION
3244 ;*TO DISMISS THE INTERRUPT. THE INTERRUPT ROUTINE WILL BE IN A NON-0
3245 ;*SECTION. THE MAIN PROGRAM WILL USE THE TIME BASE IN ORDER TO WAIT
3246 ;*ENOUGH TIME FOR 5 INTERRUPTS TO HAPPEN, AND THEN THE CONTENTS OF
3247 ;*"A" WILL BE CHECKED TO MAKE SURE IT HAS 5 IN IT.
3248
3249 056577 T71: SETUP^
3250 056577 201 00 0 00 056577 MOVEI . ;GET PC
3251 056600 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
3252 056601 7 004 20 0 00 032440 CONO PI,32440 ;CLEAR THE PI SYSTEM.
3253 MOVE A,[AOJ A,] ;INSTRUCTION TO BE EXECUTED ONCE EVERY TIMER INTERRU
3254 056602 200 01 0 00 063705 PT.
3255 056603 202 01 0 00 035650 MOVEM A,P1+650 ;PUT IT WHERE TIMER WILL INTERRUPT TO.
3256 056604 200 01 0 00 063706 MOVE A,[CONO TIM,60000+^D100] ;INTERRUPT EVERY MILLISECOND.
3257 056605 202 01 0 00 035651 MOVEM A,P1+651
3258 MOVE A,[XJEN @21000] ;INDIRECTION NEEDED BECAUSE SAVED PC IS IN ANOTHER S
3259 056606 200 01 0 00 063707 ECTION.
3260 056607 202 01 0 00 035652 MOVEM A,P1+652 ;END OF INTERRUPT ROUTINE.
3261 056610 201 01 0 00 036376 MOVEI A,P3+376 ;ADDRESS OF SAVED PC.
3262 056611 202 01 0 00 035000 MOVEM A,P1 ;STORE POINTER TO RETURN PC.
3263 CONO MTR,5002 ;TURN OFF AND CLEAR TIME BASE, PUT TIMER ON CHANNEL
3264 056612 7 024 20 0 00 005002 2.
3265 056613 200 01 0 00 063710 MOVE A,[XPCW P3+376] ;INTERRUPT INSTRUCTION.
3266 056614 202 01 0 00 033514 MOVEM A,TIMVEC ;INITALIZE INTERRUPT FOR TIMER.
3267 MOVEI A,0 ;THIS SHOULD GET INCREMENTED FOR EVERY TIMER INTERRU
3268 056615 201 01 0 00 000000 PT.
3269 056616 7 020 20 0 00 460144 CONO TIM,460000+^D100 ;START THE INTERVAL TIMER, BUT NO INTERRUPTS YET.
3270 056617 402 00 0 00 033510 SETZM TIMBAS
3271 056620 402 00 0 00 033511 SETZM TIMBAS+1 ;CLEAR THE TIME BASE.
3272 056621 7 024 20 0 00 003002 CONO MTR,3002 ;TURN ON THE TIME BASE.
3273 056622 7 004 20 0 00 000200 CONO PI,PION ;LET TIMER INTERRUPTS START HAPPENING.
3274 056623 7 020 04 0 00 000002 TIMLUP: DATAI TIM,B ;READ TIME BASE INTO B AND C.
3275 056624 244 02 0 00 777764 ASHC B,-14 ;SQUEEZE IT ALL INTO ONE WORD.
3276 056625 302 02 0 00 000000 CAIE B,0 ;MAKE SURE THE HIGH ORDER WORD STAYS 0.
3277 ERROR T71,13,[0],B,,^_
3278 <TIME BASE WAS UNEXPECTEDLY LARGE IN XJEN TEST>^
3279 056626 036 13 0 00 063721
3280 056627 035 00 0 00 056577 ERLOOP T71 ;IF ERROR, LOOP TO T71
3281
3282 056630 307 03 0 00 011610 CAIG C,^D5000 ;HAS ENOUGH TIME PASSED YET FOR 5 INTERRUPTS ?
3283 056631 254 00 0 00 056623 JRST TIMLUP ;NO, SO KEEP WAITING.
3284 056632 7 004 20 0 00 000400 CONO PI,PIOFF ;DON'T LET ANY MORE TIMER INTERRUPTS HAPPEN.
3285 056633 7 020 20 0 00 020000 CONO TIM,20000 ;TURN OFF TIMER AND CLEAR DONE.
3286 056634 7 004 20 0 00 010000 CONO PI,PICLR ;CLEAR PI IN CASE INTERRUPT HAPPENED AFTER PIOFF.
3287 056635 302 01 0 00 000005 CAIE A,5 ;MAKE SURE 5 INTERRUPTS HAPPENED.
3288 ERROR T71,13,[5],A,,^_
3289 <THE WRONG NUMBER OF INTERRUPTS HAPPENED DURING THE XJEN TEST>^
3290 056636 036 13 0 00 063737
3291 056637 035 00 0 00 056577 ERLOOP T71 ;IF ERROR, LOOP TO T71
3292
3293 056640 7 010 04 0 00 000002 DATAI PAG,B ;READ PROCESS STATUS
3294 056641 254 06 0 00 063742 T71A: XJEN [EXP 37,T71B] ;DO XJEN PUTTING PCS INTO (E) BITS 31-35
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 41-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0106
3295 056642 7 010 04 0 00 000001 T71B: DATAI PAG,A ;GET PCS
3296 056643 554 01 0 00 000001 HLRZ A,A ;NEED LEFT SIDE
3297 056644 620 01 0 00 777740 TRZ A,777740 ;KEEP ONLY BITS 31-35
3298 056645 302 01 0 00 000037 CAIE A,37 ;WAS THE PCS STORED?
3299 ERROR T71A,13,[37],A,,^_
3300 <XJEN - CONTENTS OF E RIGHT DID NOT STORE INTO PCS>^
3301 056646 036 13 0 00 063755
3302 056647 035 00 0 00 056641 ERLOOP T71A ;IF ERROR, LOOP TO T71A
3303 056650 7 010 14 0 00 000002 DATAO PAG,B ;RESTORE PROCESS STATUS
3304
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 42
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0107
3305
3306 ;*TEST 72 - TRY A REGULAR BLT INSTRUCTION IN A NON-0 SECTION.
3307 ;*THIS ONE USES A LOCAL EFFECTIVE ADDRESS FOR THE BLT, AND MAKES SURE
3308 ;*DESTINATION OF BLT WRAPS FROM REAL AC'S TO PAGE 0 OF SECTION.
3309
3310 056651 T72: SETUP^
3311 056651 201 00 0 00 056651 MOVEI . ;GET PC
3312 056652 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
3313 PAGMAP (P1,4,777)^ ;WE'LL BLT FROM THE LAST PAGE OF SECTION 4.
3314 056653 201 01 0 00 035000 MOVEI A,P1
3315 056654 201 02 0 00 000004 MOVEI B,4
3316 056655 201 03 0 00 000777 MOVEI C,777
3317 056656 205 14 0 00 000000 MOVSI T3,0
3318 056657 260 17 0 00 054201 PUSHJ P,PMAPRT
3319 PAGMAP (P2,4,0)^ ;PAGE FOR DESTINATION OF BLT
3320 056660 201 01 0 00 037000 MOVEI A,P2
3321 056661 201 02 0 00 000004 MOVEI B,4
3322 056662 201 03 0 00 000000 MOVEI C,0
3323 056663 205 14 0 00 000000 MOVSI T3,0
3324 056664 260 17 0 00 054201 PUSHJ P,PMAPRT
3325 DMOVE A,[BLT C,20
3326 056665 120 01 0 00 063760 JRST @B] ;TEST PROGRAM.
3327 056666 124 01 0 00 035403 DMOVEM A,P1+403 ;PUT TEST PROGRAM IN LOCATION 4777403
3328 056667 200 03 0 00 063762 MOVE C,[777770,,17] ;DESTINATION IS AC 17 AND WORD 20.
3329 056670 200 04 0 00 000017 MOVE AC,P ;SAVE STACK POINTER !!
3330 056671 201 17 0 00 000000 MOVEI 17,0 ;CLEAR FIRST WORD OF DESTINATION.
3331 056672 402 00 0 00 037020 SETZM P2+20 ;AND SECOND WORD.
3332 056673 120 01 0 00 063763 DMOVE A,[EXP -4,-5] ;SOURCE DATA TO BE MOVED.
3333 056674 124 01 0 00 035770 DMOVEM A,P1+770 ;STORE IT FOR BLT TO REFERENCE.
3334 056675 415 02 0 00 056677 XMOVEI B,HOMBUL ;LOAD UP RETURN ADDRESS FOR TEST.
3335 XJMP 4777403 ^;JUMP TO TEST PROGRAM.
3336 056676 254 05 0 00 063765 XJRSTF [EXP 0,4777403]
3337 HOMBUL: MOVE B,17 ;GET FIRST WORD OF DESTINATION SO P CAN BE RESTORED.
3338 056677 200 02 0 00 000017
3339 056700 200 01 0 00 037020 MOVE A,P2+20 ;AND SECOND FOR COMPARISON.
3340 056701 200 17 0 00 000004 MOVE P,AC ;RESTORE STACK POINTER.
3341 056702 316 01 0 00 063764 CAMN A,[-5]
3342 056703 312 02 0 00 063763 CAME B,[-4] ;MAKE SURE CORRECT DATA GOT WRITTEN.
3343 ERROR T72,13,[-4],B,,^_
3344 <REGULAR BLT IN NON-0 SECTION FAILED>^
3345 056704 036 13 0 00 063775
3346 056705 035 00 0 00 056651 ERLOOP T72 ;IF ERROR, LOOP TO T72
3347
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 43
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0108
3348
3349 ;*TEST 73 - TRY BLT IN NON-0 SECTION AGAIN, TO MAKE SURE SOURCE COMES FROM
3350 ;*AC'S WHEN LOCAL ADDRESSING IS DONE. EFFECTIVE ADDRESS CALCULATION
3351 ;*WILL START OUT GLOBAL BUT LAST PART OF EFFECTIVE ADDRESS CALCULATION
3352 ;*WILL BE ARRANGED TO BE LOCAL
3353
3354 056706 T73: SETUP^
3355 056706 201 00 0 00 056706 MOVEI . ;GET PC
3356 056707 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
3357 PAGMAP (P1,7,0)^ ;WRONG SOURCE LOCATION
3358 056710 201 01 0 00 035000 MOVEI A,P1
3359 056711 201 02 0 00 000007 MOVEI B,7
3360 056712 201 03 0 00 000000 MOVEI C,0
3361 056713 205 14 0 00 000000 MOVSI T3,0
3362 056714 260 17 0 00 054201 PUSHJ P,PMAPRT
3363 PAGMAP (P2,7,3)^ ;DESTINATION PAGE
3364 056715 201 01 0 00 037000 MOVEI A,P2
3365 056716 201 02 0 00 000007 MOVEI B,7
3366 056717 201 03 0 00 000003 MOVEI C,3
3367 056720 205 14 0 00 000000 MOVSI T3,0
3368 056721 260 17 0 00 054201 PUSHJ P,PMAPRT
3369 PAGMAP (P3,7,20)^;PAGE "PASSED THROUGH" DURING EFFECTIVE ADDR CALCULATION
3370 056722 201 01 0 00 036000 MOVEI A,P3
3371 056723 201 02 0 00 000007 MOVEI B,7
3372 056724 201 03 0 00 000020 MOVEI C,20
3373 056725 205 14 0 00 000000 MOVSI T3,0
3374 056726 260 17 0 00 054201 PUSHJ P,PMAPRT
3375 PAGMAP (P4,31,776)^ ;PAGE TO CONTAIN THE BLT INSTRUCTION
3376 056727 201 01 0 00 043000 MOVEI A,P4
3377 056730 201 02 0 00 000031 MOVEI B,31
3378 056731 201 03 0 00 000776 MOVEI C,776
3379 056732 205 14 0 00 000000 MOVSI T3,0
3380 056733 260 17 0 00 054201 PUSHJ P,PMAPRT
3381 DMOVE A,[BLT A,@776123 ;INSTRUCTION BEING TESTED
3382 056734 120 01 0 00 064000 JRST @C] ;INSTRUCTION TO GET HOME WITH
3383 056735 124 01 0 00 043100 DMOVEM A,P4+100 ;PUT BLT IN 31776100
3384 056736 200 01 0 00 064002 MOVE A,[1B1+7020444] ;MAKE INDIRECT CHAIN
3385 056737 202 01 0 00 043123 MOVEM A,P4+123
3386 056740 200 01 0 00 064003 MOVE A,[1B0+3666] ;END OF INDIRECT CHAIN
3387 056741 202 01 0 00 036444 MOVEM A,P3+444
3388 056742 476 00 0 00 035012 SETOM P1+T1 ;WRONG SOURCE DATA IS -1 IN FIRST WORD
3389 056743 120 12 0 00 064004 DMOVE T1,[EXP -100,-332] ;REAL SOURCE DATA
3390 056744 200 01 0 00 064006 MOVE A,[T1,,3665] ;BLT SOURCE,,DEST
3391 056745 415 03 0 00 056751 XMOVEI C,HOMBL7 ;RETURN ADDRESS
3392 XJMP 31776100 ^;JUMP TO THE TEST PROGRAM
3393 056746 254 05 0 00 064007 XJRSTF [EXP 0,31776100]
3394 056747 402 00 0 00 037665 SETZM P2+665
3395 056750 402 00 0 00 037666 SETZM P2+666 ;START WITH 0 IN DESTINATION AREA
3396 056751 121 01 0 00 037665 HOMBL7: DMOVN A,P2+665 ;PICK UP DESTINATION DATA AS WRITTEN
3397 056752 306 01 0 00 000077 CAIN A,77
3398 056753 302 02 0 00 000332 CAIE B,332 ;MAKE SURE CORRECT DATA GOT WRITTEN
3399 ERROR T73,13,[332],B,,^_
3400 <BLT WITH LOCAL EFFECTIVE ADDRESS DIDN'T CORRECTLY READ FROM AC'S>^
3401 056754 036 13 0 00 064025
3402 056755 035 00 0 00 056706 ERLOOP T73 ;IF ERROR, LOOP TO T73
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 43-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0109
3403
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 44
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0110
3404
3405 ;*TEST 74 - NOW WE'LL TRY A REGULAR BLT WHOSE EFFECTIVE ADDRESS IS GLOBAL, BY
3406 ;*VIRTUE OF THE FACT THAT INDEXING WILL BE USED IN THE BLT INSTRUCTION,
3407 ;*AND THE CONTENTS OF THE INDEX REGISTER LEFT HALF WILL BE POSITIVE.
3408 ;*THE TEST MAKES SURE THAT DUE TO GLOBAL ADDRESSING, SOURCE ADDRESSES
3409 ;*LESS THAN 20 CAUSES MEMORY FETCHES RATHER THAN AC REFERENCES. (AC
3410 ;*CONTENTS WILL EXPLICITLY BE DIFFERENT TO CATCH PROBLEM)
3411
3412 056756 T74: SETUP^
3413 056756 201 00 0 00 056756 MOVEI . ;GET PC
3414 056757 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
3415 PAGMAP (P1,5,6)^ ;DESTINATION IS TO SECTION 5 PAGE 6
3416 056760 201 01 0 00 035000 MOVEI A,P1
3417 056761 201 02 0 00 000005 MOVEI B,5
3418 056762 201 03 0 00 000006 MOVEI C,6
3419 056763 205 14 0 00 000000 MOVSI T3,0
3420 056764 260 17 0 00 054201 PUSHJ P,PMAPRT
3421 PAGMAP (P2,5,0)^ ;SOURCE DATA WILL COME FROM LOW SECTION 5 AD
3422 DRESSES
3423 056765 201 01 0 00 037000 MOVEI A,P2
3424 056766 201 02 0 00 000005 MOVEI B,5
3425 056767 201 03 0 00 000000 MOVEI C,0
3426 056770 205 14 0 00 000000 MOVSI T3,0
3427 056771 260 17 0 00 054201 PUSHJ P,PMAPRT
3428 PAGMAP (P3,2,345)^ ;BLT INSTRUCTION WILL BE IN S 2 P 345
3429 056772 201 01 0 00 036000 MOVEI A,P3
3430 056773 201 02 0 00 000002 MOVEI B,2
3431 056774 201 03 0 00 000345 MOVEI C,345
3432 056775 205 14 0 00 000000 MOVSI T3,0
3433 056776 260 17 0 00 054201 PUSHJ P,PMAPRT
3434 056777 120 12 0 00 064030 DMOVE T1,[EXP 2,3] ;T1 CONTAINS THE WRONG SOURCE DATA
3435 057000 120 01 0 00 064032 DMOVE A,[EXP 4,5] ;A CONTAINS THE CORRECT DATA
3436 057001 124 01 0 00 037012 DMOVEM A,P2+T1 ;WE'LL FETCH DATA FROM LOW MEMORY
3437 DMOVE A,[BLT A,(B) ;INSTRUCTION BEING TESTED
3438 057002 120 01 0 00 064034 JRST @C] ;A WAY BACK!
3439 057003 124 01 0 00 036067 DMOVEM A,P3+67 ;PUT BLT IN 2345067
3440 057004 415 03 0 00 057010 XMOVEI C,HOMBL2 ;LOAD UP RETURN INSTRUCTION
3441 057005 200 02 0 00 064036 MOVE B,[5,,6770] ;END OF DESTINATION IS S 5 W 6770
3442 057006 200 01 0 00 064037 MOVE A,[T1,,6767] ;MOVE BLOCK FROM 5000000+N TO 5006767
3443 XJMP 2345067 ^;GO DO THE BLT
3444 057007 254 05 0 00 064040 XJRSTF [EXP 0,2345067]
3445 057010 120 01 0 00 035767 HOMBL2: DMOVE A,P1+767 ;PICK UP BLOCK WRITTEN BY BLT
3446 057011 306 01 0 00 000004 CAIN A,4
3447 057012 302 02 0 00 000005 CAIE B,5 ;MAKE SURE CORRECT DATA GOT WRITTEN
3448 ERROR T74,13,[5],B,,^_
3449 <BLT IN NON-0 SEC. DIDN'T READ SOURCE DATA FROM LOW MEMORY>^
3450 057013 036 13 0 00 064054
3451 057014 035 00 0 00 056756 ERLOOP T74 ;IF ERROR, LOOP TO T74
3452
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 45
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0111
3453
3454 ;*TEST 75 - NOW TRY ANOTHER EXAMPLE OF GLOBAL ADDRESSING, THIS TIME BY VIRTUE
3455 ;*OF INDIRECTION WITH B0 OF THE INDIRECT WORD BEING OFF. THIS TIME
3456 ;*WE'LL MAKE SURE THAT LOW NUMBERED DESTINATION ADDRESSES OF THE BLT
3457 ;*GO TO MEMORY RATHER THAN AC'S.
3458
3459 057015 T75: SETUP^
3460 057015 201 00 0 00 057015 MOVEI . ;GET PC
3461 057016 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
3462 PAGMAP (P1,10,0)^ ;DESTINATION OF BLT IS LOW S 10 ADDRESSES
3463 057017 201 01 0 00 035000 MOVEI A,P1
3464 057020 201 02 0 00 000010 MOVEI B,10
3465 057021 201 03 0 00 000000 MOVEI C,0
3466 057022 205 14 0 00 000000 MOVSI T3,0
3467 057023 260 17 0 00 054201 PUSHJ P,PMAPRT
3468 PAGMAP (P2,10,70)^ ;SOURCE IS SECTION 10 PAGE 70
3469 057024 201 01 0 00 037000 MOVEI A,P2
3470 057025 201 02 0 00 000010 MOVEI B,10
3471 057026 201 03 0 00 000070 MOVEI C,70
3472 057027 205 14 0 00 000000 MOVSI T3,0
3473 057030 260 17 0 00 054201 PUSHJ P,PMAPRT
3474 PAGMAP (P3,37,4)^ ;BLT INSTRUCTION IN SEC. 37 PAGE 4
3475 057031 201 01 0 00 036000 MOVEI A,P3
3476 057032 201 02 0 00 000037 MOVEI B,37
3477 057033 201 03 0 00 000004 MOVEI C,4
3478 057034 205 14 0 00 000000 MOVSI T3,0
3479 057035 260 17 0 00 054201 PUSHJ P,PMAPRT
3480 PAGMAP (P4,14,654)^ ;INDIRECT CHAIN GOES THROUGH SECTION 14
3481 057036 201 01 0 00 043000 MOVEI A,P4
3482 057037 201 02 0 00 000014 MOVEI B,14
3483 057040 201 03 0 00 000654 MOVEI C,654
3484 057041 205 14 0 00 000000 MOVSI T3,0
3485 057042 260 17 0 00 054201 PUSHJ P,PMAPRT
3486 DMOVE A,[BLT A,@B ;INSTRUCTION BEING TESTED
3487 057043 120 01 0 00 064057 JRST @C] ;A WAY BACK INTO THE WORLD
3488 057044 124 01 0 00 036002 DMOVEM A,P3+2 ;PUT PROGRAM AT 37004002
3489 057045 415 03 0 00 057060 XMOVEI C,HOMBL5 ;LOAD UP RETURN ADDRESS
3490 057046 200 01 0 00 064061 MOVE A,[10,,20] ;LAST ADDRESS IN DESTINATION IS 10000020
3491 057047 202 01 0 00 043321 MOVEM A,P4+321 ;GETS INDIRECTLY REFERENCED BY BLT INSTRUCTION
3492 DMOVE A,[555555,,111111
3493 057050 120 01 0 00 064062 333333,,666666] ;DATA GETTING MOVED
3494 057051 124 01 0 00 037222 DMOVEM A,P2+222 ;PUT SOURCE DATA IN 10070222
3495 057052 402 00 0 00 035017 SETZM P1+17
3496 057053 402 00 0 00 035020 SETZM P1+20 ;CLEAR DESTINATION AREA BEFORE DOING BLT
3497 057054 200 01 0 00 064064 MOVE A,[70222,,17] ;FROM 10070222 TO 10000017
3498 057055 200 02 0 00 064065 MOVE B,[1B1+14654321] ;DOUBLE INDIRECT CHAIN
3499 057056 200 04 0 00 000017 MOVE AC,P ;SAVE STACK POINTER IN CASE BLT SCREWS UP
3500 XJMP 37004002 ^;GO DO THE BLT
3501 057057 254 05 0 00 064066 XJRSTF [EXP 0,37004002]
3502 057060 200 17 0 00 000004 HOMBL5: MOVE P,AC ;RESTORE STACK POINTER
3503 057061 120 01 0 00 035017 DMOVE A,P1+17 ;PICK UP DATA AS WRITTEN BY BLT
3504 057062 312 01 0 00 064062 CAME A,[555555,,111111]
3505 ERROR T75,13,[555555,,111111],A,,^_
3506 <BLT DIDN'T CORRECTLY MOVE DATA TO LOW-ADDRESSED MEMORY>^
3507 057063 036 13 0 00 064102
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 45-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0112
3508 057064 035 00 0 00 057015 ERLOOP T75 ;IF ERROR, LOOP TO T75
3509 057065 312 02 0 00 064063 CAME B,[333333,,666666] ;MAKE SURE DATA GOT MOVED CORRECTLY
3510 ERROR T75,13,[333333,,666666],B,,^_
3511 <BLT DIDN'T CORRECTLY MOVE DATA TO LOW-ADDRESSED MEMORY>^
3512 057066 036 13 0 00 064105
3513 057067 035 00 0 00 057015 ERLOOP T75 ;IF ERROR, LOOP TO T75
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 46
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0113
3514 ;*TEST 76 - BEFORE WE GET ON TO THE XBLT TEST, HERE'S ONE TO MAKE SURE UNDEFINED
3515 ;*EXTENDED OPCODES CAUSE AN MUUO TRAP. THE FOLLOWING TEST TRIES OPCODE
3516 ;*40 AS AN EXTENDED INSTRUCTION.
3517
3518 057070 T76: SETUP^
3519 057070 201 00 0 00 057070 MOVEI . ;GET PC
3520 057071 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
3521 057072 402 00 0 00 034424 SETZM MCODE
3522 057073 415 01 0 00 057077 XMOVEI A,NONE+1 ;GET RETURN ADDRESS FOR MUUO.
3523 057074 202 01 0 00 030613 MOVEM A,UUOSPC ;STORE RETURN ADDRESS.
3524 057075 476 00 0 00 030614 SETOM ALLOW1 ;ALLOW AN MUUO !
3525 057076 123 04 0 00 064110 NONE: EXTEND AC,[40B8] ;DO AN ILLEGAL EXTEND INSTRUCTION.
3526 057077 200 01 0 00 034424 MOVE A,MCODE ;MAKE SURE MUUO STUFF GOT SET UP.
3527 057100 621 01 0 00 777740 TLZ A,(-1B12) ;CLEAR PC FLAGS PORTION OF MUUO WORD.
3528 057101 302 01 0 00 123200 CAIE A,(EXTEND AC,)
3529 ERROR T76,13,[EXTEND AC,],A,,^_
3530 <UNDEFINED EXTENDED OPCODE CAUSED WRONG MUUO WORD TO BE SET UP>^
3531 057102 036 13 0 00 064125
3532 057103 035 00 0 00 057070 ERLOOP T76 ;IF ERROR, LOOP TO T76
3533
3534
3535 ;*TEST 77 - THE FOLLOWING TEST TRIES AN EXTENDED BLT (XBLT) INSTRUCTION. BOTH
3536 ;*THE SOURCE AND DESTINATION AREAS WILL CROSS SECTION BOUNDARIES.
3537 ;*A PAGE FAIL WILL BE ARRANGED IN THE MIDDLE OF THE BLT, SO THAT THE
3538 ;*AC'S MAY BE EXAMINED TO MAKE SURE THE MICROCODE CORRECTLY RESTORES THEM
3539 ;*FOR THE INTERRUPT.
3540
3541 057104 T77: SETUP^
3542 057104 201 00 0 00 057104 MOVEI . ;GET PC
3543 057105 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
3544 PAGMAP (P1,14,777)^ ;SOURCE AREA STARTS AT END OF SECTION 14.
3545 057106 201 01 0 00 035000 MOVEI A,P1
3546 057107 201 02 0 00 000014 MOVEI B,14
3547 057110 201 03 0 00 000777 MOVEI C,777
3548 057111 205 14 0 00 000000 MOVSI T3,0
3549 057112 260 17 0 00 054201 PUSHJ P,PMAPRT
3550 PAGMAP (P2,15,0)^ ;AND FLOWS INTO SECTION 15.
3551 057113 201 01 0 00 037000 MOVEI A,P2
3552 057114 201 02 0 00 000015 MOVEI B,15
3553 057115 201 03 0 00 000000 MOVEI C,0
3554 057116 205 14 0 00 000000 MOVSI T3,0
3555 057117 260 17 0 00 054201 PUSHJ P,PMAPRT
3556 PAGMAP (P3,10,777)^ ;DESTINATION STARTS IN SECTION 10.
3557 057120 201 01 0 00 036000 MOVEI A,P3
3558 057121 201 02 0 00 000010 MOVEI B,10
3559 057122 201 03 0 00 000777 MOVEI C,777
3560 057123 205 14 0 00 000000 MOVSI T3,0
3561 057124 260 17 0 00 054201 PUSHJ P,PMAPRT
3562 PAGMAP (P4,11,0)^ ;AND FLOWS INTO SECTION 11.
3563 057125 201 01 0 00 043000 MOVEI A,P4
3564 057126 201 02 0 00 000011 MOVEI B,11
3565 057127 201 03 0 00 000000 MOVEI C,0
3566 057130 205 14 0 00 000000 MOVSI T3,0
3567 057131 260 17 0 00 054201 PUSHJ P,PMAPRT
3568 057132 261 17 0 00 033555 PUSH P,ESECT+15 ;SAVE SECTION 15 POINTER.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 46-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0114
3569 057133 402 00 0 00 033555 SETZM ESECT+15 ;WE WANT A PAGE FAULT DURING THE XBLT.
3570 057134 7 010 20 1 00 030607 CONO PAG,@EPWD ;MAKE SURE HARDWARE SEES CLEARED SECTION POINTER !
3571 057135 201 12 0 00 000004 MOVEI T1,4 ;WE'LL MOVE 4 WORDS.
3572 057136 200 13 0 00 064130 MOVE T2,[14777776] ;FROM SECTION 14
3573 057137 200 14 0 00 064131 MOVE T3,[10777775] ;TO SECTION 10.
3574 057140 120 01 0 00 064132 DMOVE A,[EXP 1,2]
3575 057141 124 01 0 00 035776 DMOVEM A,P1+776
3576 057142 120 01 0 00 064031 DMOVE A,[EXP 3,4]
3577 057143 124 01 0 00 037000 DMOVEM A,P2 ;SOURCE DATA IS 1,2,3,4.
3578 057144 201 01 0 00 000005 MOVEI A,5
3579 057145 202 01 0 00 037002 MOVEM A,P2+2 ;WE'LL MAKE SURE THIS ONE ISN'T MOVED.
3580 057146 402 00 0 00 036775 SETZM P3+775
3581 057147 402 00 0 00 036776 SETZM P3+776
3582 057150 402 00 0 00 043000 SETZM P4
3583 057151 402 00 0 00 043001 SETZM P4+1
3584 057152 402 00 0 00 043002 SETZM P4+2 ;START WITH ALL 0'S IN DESTINATION AREA.
3585 057153 205 15 0 00 020000 MOVSI T4,(XBLT) ;INSTRUCTION BEING TESTED.
3586 DMOVE AC,[EXTEND T1,T4
3587 057154 120 04 0 00 064134 JRST @B] ;TEST PROGRAM TO BE RUN IN SECTION 1 (IN THE AC'S)
3588 057155 415 01 0 00 057162 XMOVEI A,FXBLT ;GET ADDRESS OF SPECIAL BLT PAGE FAULT HANDLER.
3589 057156 202 01 0 00 030611 MOVEM A,PFHSPC ;SAVE IT FOR FAULT HANDLER TO TRANSFER TO.
3590 057157 415 02 0 00 057176 XMOVEI B,HOMXBT ;LOAD UP RETURN ADDRESS.
3591 057160 476 00 0 00 030610 SETOM PFF ;ALLOW 1 PAGE FAULT DURING XBLT.
3592 XJMP 1B17+AC ^;JUMP INTO SECTION 1 TO THE TEST.
3593 057161 254 05 0 00 064136 XJRSTF [EXP 0,1B17+AC]
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 47
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0115
3594
3595 ;*HERE'S THE CODE THAT GETS EXECUTED WHEN THE FORWARD XBLT GETS ITS
3596 ;*PAGE FAULT.
3597
3598 057162 302 12 0 00 000002 FXBLT: CAIE T1,2 ;MAKE SURE THERE ARE STILL 2 WORDS TO GO.
3599 ERROR T77,13,[2],T1,,^_
3600 <FORWARD XBLT HAS INCORRECT COUNT DURING PAGE FAULT>^
3601 057163 036 13 0 00 064151
3602 057164 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
3603
3604 057165 312 13 0 00 064154 CAME T2,[15000000]
3605 ERROR T77,13,[15000000],T2,,^_
3606 <FORWARD XBLT HAS INCORRECT POINTERS DURING PAGE FAULT>^
3607 057166 036 13 0 00 064166
3608 057167 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
3609 057170 312 14 0 00 064171 CAME T3,[10777777]
3610 ERROR T77,13,[10777777],T3,,^_
3611 <FORWARD XBLT HAS INCORRECT POINTERS DURING PAGE FAULT>^
3612 057171 036 13 0 00 064172
3613 057172 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
3614
3615 057173 262 17 0 00 033555 POP P,ESECT+15 ;REMOVE THE PAGE FAULT.
3616 057174 7 010 20 1 00 030607 CONO PAG,@EPWD ;TELL HARDWARE ABOUT THE CHANGE.
3617 057175 254 00 0 00 054200 JRST PFHRET ;RETURN TO FINISH THE BLT.
3618
3619 ;*GET TO HERE WHEN FORWARD XBLT FINISHES.
3620
3621 057176 332 00 0 00 030610 HOMXBT: SKIPE PFF ;MAKE SURE THE PAGE FAULT HAPPENED.
3622 ERROR T77,13,0,0,,^_
3623 <FORWARD XBLT DIDN'T PAGE FAULT>^
3624 057177 036 13 0 00 064203
3625 057200 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
3626
3627 057201 302 12 0 00 000000 CAIE T1,0 ;MAKE SURE LENGTH COUNTED TO 0.
3628 ERROR T77,13,[0],T1,,^_
3629 <FORWARD XBLT DIDN'T COUNT TO 0>^
3630 057202 036 13 0 00 064214
3631 057203 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
3632
3633 057204 312 13 0 00 064217 CAME T2,[15000002]
3634 ERROR T77,13,[15000002],T2,,^_
3635 <FORWARD XBLT DIDN'T LEAVE RESULTANT POINTERS CORRECT>^
3636 057205 036 13 0 00 064231
3637 057206 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
3638 057207 312 14 0 00 064234 CAME T3,[11000001]
3639 ERROR T77,13,[11000001],T3,,^_
3640 <FORWARD XBLT DIDN'T LEAVE RESULTANT POINTERS CORRECT>^
3641 057210 036 13 0 00 064235
3642 057211 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
3643
3644 057212 120 01 0 00 036775 DMOVE A,P3+775
3645 057213 302 01 0 00 000001 CAIE A,1
3646 ERROR T77,13,[1],A,,^_
3647 <FORWARD XBLT DIDN'T MOVE DATA CORRECTLY>^
3648 057214 036 13 0 00 064247
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 47-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0116
3649 057215 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
3650 057216 302 02 0 00 000002 CAIE B,2
3651 ERROR T77,13,[2],B,,^_
3652 <FORWARD XBLT DIDN'T MOVE DATA CORRECTLY>^
3653 057217 036 13 0 00 064252
3654 057220 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
3655
3656 057221 200 01 0 00 036777 MOVE A,P3+777
3657 057222 200 02 0 00 043000 MOVE B,P4
3658 057223 302 01 0 00 000003 CAIE A,3
3659 ERROR T77,13,[3],A,,^_
3660 <FORWARD XBLT DIDN'T MOVE DATA CORRECTLY>^
3661 057224 036 13 0 00 064255
3662 057225 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
3663 057226 302 02 0 00 000004 CAIE B,4
3664 ERROR T77,13,[4],B,,^_
3665 <FORWARD XBLT DIDN'T MOVE DATA CORRECTLY>^
3666 057227 036 13 0 00 064260
3667 057230 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
3668
3669 057231 332 00 0 00 043001 SKIPE P4+1
3670 ERROR T77,13,0,0,,^_
3671 <FORWARD XBLT MOVED TOO MANY DATA WORDS>^
3672 057232 036 13 0 00 064272
3673 057233 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
3674
3675 057234 415 02 0 00 057236 XMOVEI B,HOMXB2 ;PREPARE TO TRY A LENGTH OF 0.
3676 XJMP 1B17+AC^
3677 057235 254 05 0 00 064136 XJRSTF [EXP 0,1B17+AC]^
3678 057236 302 12 0 00 000000 HOMXB2: CAIE T1,0 ;MAKE SURE THE LENGTH DIDN'T CHANGE.
3679 ERROR T77,13,[0],T1,,^_
3680 <XBLT OF 0 WORDS DID SOMETHING>^
3681 057237 036 13 0 00 064302
3682 057240 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
3683 057241 312 13 0 00 064217 CAME T2,[15000002] ;OR THE SOURCE POINTER.
3684 ERROR T77,13,[15000002],T2,,^_
3685 <XBLT OF 0 WORDS DID SOMETHING>^
3686 057242 036 13 0 00 064305
3687 057243 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
3688
3689 057244 312 14 0 00 064234 CAME T3,[11000001] ;MAKE SURE DESTINATION POINTER O.K.
3690 ERROR T77,13,[11000001],T3,,^_
3691 <XBLT OF 0 WORDS CHANGED THE DESTINATION POINTER>^
3692 057245 036 13 0 00 064320
3693 057246 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
3694 057247 336 00 0 00 066325 SKIPN XBLTS0 ;CAN MICRO CODE DO XBLT IN SECTION 0
3695 057250 476 00 0 00 030614 SETOM ALLOW1 ;NO ALLOW 1 MUUO
3696 057251 415 02 0 00 057254 XMOVEI B,HOMXB3
3697 057252 202 02 0 00 030613 MOVEM B,UUOSPC ;SET UP MUUO RETURN ADDRESS.
3698 XJMP AC ^;MAKE SURE XBLT IN SECTION 0 IS ILLEGAL.
3699 057253 254 05 0 00 064323 XJRSTF [EXP 0,AC]
3700 057254 332 00 0 00 030614 HOMXB3: SKIPE ALLOW1 ;MAKE SURE IT "MUUOED"
3701 ERROR T77,13,0,0,,^_
3702 <XBLT IN SECTION 0 DIDN'T TRAP>^
3703 057255 036 13 0 00 064332
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 47-2
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0117
3704 057256 035 00 0 00 057104 ERLOOP T77 ;IF ERROR, LOOP TO T77
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 48
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0118
3705 ;*TEST 100 - O.K., HOW ABOUT XBLTING BACKWARDS...
3706
3707 057257 T100: SETUP^
3708 057257 201 00 0 00 057257 MOVEI . ;GET PC
3709 057260 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
3710 057261 211 12 0 00 000004 MOVNI T1,4 ;WE'LL MOVE 4 WORDS.
3711 057262 200 13 0 00 064217 MOVE T2,[15000002]
3712 057263 200 14 0 00 064335 MOVE T3,[15000001] ;WE'LL USE OVERLAPPING TO DUPLICATE A DATA WORD.
3713 057264 205 01 0 00 000005 MOVSI A,5 ;HERE'S THE DATA.
3714 057265 202 01 0 00 037001 MOVEM A,P2+1
3715 057266 402 00 0 00 037000 SETZM P2
3716 057267 402 00 0 00 035777 SETZM P1+777 ;START WITH 0'S IN THE REST OF THE DATA WORDS.
3717 057270 402 00 0 00 035776 SETZM P1+776
3718 057271 402 00 0 00 035775 SETZM P1+775
3719 057272 402 00 0 00 035774 SETZM P1+774 ;THIS ONE TO MAKE SURE TOO MANY WORDS AREN'T MOVED.
3720 057273 402 00 0 00 037002 SETZM P2+2 ;MAKE SURE THE FIRST WORD ISN'T FETCHED FROM HERE.
3721 PUSH P,ESECT+14 ;THIS TIME WE'LL CAUSE PAGE TRAP ON STORING A DATA W
3722 057274 261 17 0 00 033554 ORD.
3723 057275 402 00 0 00 033554 SETZM ESECT+14 ;MAKE SECTION 14 OFF LIMITS.
3724 057276 7 010 20 1 00 030607 CONO PAG,@EPWD ;TELL HARDWARE THAT SECTION 14 IS OFF LIMITS.
3725 XMOVEI A,BXBLT ;GET ADDRESS OF PAGE TRAP HANDLER FOR BACKWARDS BLT.
3726 057277 415 01 0 00 057304
3727 057300 202 01 0 00 030611 MOVEM A,PFHSPC ;TELL PAGE FAULT HANDLER WHERE TO GO.
3728 057301 476 00 0 00 030610 SETOM PFF ;ALLOW 1 PAGE FAULT.
3729 057302 415 02 0 00 057317 XMOVEI B,HOMXB4
3730 XJMP 1B17+AC ^;JUMP TO TEST PROGRAM.
3731 057303 254 05 0 00 064136 XJRSTF [EXP 0,1B17+AC]
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 49
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0119
3732
3733 ;*PAGE TRAP DURING BACKWARDS BLT TRANSFERS TO HERE.
3734
3735 057304 312 12 0 00 064336 BXBLT: CAME T1,[-3] ;MAKE SURE ONLY ONE WORD GOT MOVED BEFORE TRAP.
3736 ERROR T100,13,[-3],T1,,^_
3737 <BACKWARDS XBLT COUNT DURING PAGE TRAP IS WRONG>^
3738 057305 036 13 0 00 064347
3739 057306 035 00 0 00 057257 ERLOOP T100 ;IF ERROR, LOOP TO T100
3740
3741 057307 312 13 0 00 064335 CAME T2,[15000001] ;TRAP SHOULD OCCUR ATTEMPTING TO MOVE [15000000
3742 ERROR T100,13,[15000001],T2,,^_
3743 <BACKWARDS XBLT POINTER(S) WRONG DURING PAGE TRAP>^
3744 057310 036 13 0 00 064363
3745 057311 035 00 0 00 057257 ERLOOP T100 ;IF ERROR, LOOP TO T100
3746 057312 312 14 0 00 064154 CAME T3,[15000000] ;INTO 14777777.
3747 ERROR T100,13,[15000000],T3,,^_
3748 <BACKWARDS XBLT POINTER(S) WRONG DURING PAGE TRAP>^
3749 057313 036 13 0 00 064366
3750 057314 035 00 0 00 057257 ERLOOP T100 ;IF ERROR, LOOP TO T100
3751
3752 057315 262 17 0 00 033554 POP P,ESECT+14 ;ALLOW THE BLT TO CONTINUE
3753 057316 254 00 0 00 054200 JRST PFHRET ;CONTINUE THE XBLT.
3754
3755 ;*GET TO HERE WHEN BACKWARDS XBLT FINISHES.
3756
3757 057317 302 12 0 00 000000 HOMXB4: CAIE T1,0 ;MAKE SURE THE LENGTH WAS EXHAUSTED.
3758 ERROR T100,13,[0],T1,,^_
3759 <XBLT BACKWARDS DIDN'T COUNT TO 0>^
3760 057320 036 13 0 00 064377
3761 057321 035 00 0 00 057257 ERLOOP T100 ;IF ERROR, LOOP TO T100
3762
3763 057322 312 13 0 00 064130 CAME T2,[14777776] ;MAKE SURE THE POINTERS WERE UPDATED.
3764 ERROR T100,13,[14777776],T2,,^_
3765 <XBLT BACKWARDS UPDATED THE POINTERS INCORRECTLY>^
3766 057323 036 13 0 00 064412
3767 057324 035 00 0 00 057257 ERLOOP T100 ;IF ERROR, LOOP TO T100
3768 057325 312 14 0 00 064415 CAME T3,[14777775]
3769 ERROR T100,13,[14777775],T3,,^_
3770 <XBLT BACKWARDS UPDATED THE POINTERS INCORRECTLY>^
3771 057326 036 13 0 00 064416
3772 057327 035 00 0 00 057257 ERLOOP T100 ;IF ERROR, LOOP TO T100
3773
3774 057330 332 00 0 00 035774 SKIPE P1+774 ;MAKE SURE NOT TO MANY WORDS WERE WRITTEN.
3775 ERROR T100,13,0,0,,^_
3776 <XBLT BACKWARDS MOVED TOO MANY WORDS>^
3777 057331 036 13 0 00 064427
3778 057332 035 00 0 00 057257 ERLOOP T100 ;IF ERROR, LOOP TO T100
3779
3780 057333 120 01 0 00 037000 DMOVE A,P2 ;PICK UP TWO DATA WORDS.
3781 057334 312 01 0 00 064432 CAME A,[5,,]
3782 ERROR T100,13,[5,,],A,,^_
3783 <XBLT BACKWARDS MOVED DATA INCORRECTLY>^
3784 057335 036 13 0 00 064442
3785 057336 035 00 0 00 057257 ERLOOP T100 ;IF ERROR, LOOP TO T100
3786 057337 312 02 0 00 064432 CAME B,[5,,] ;MAKE SURE THEY'RE ALL THE SAME.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 49-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0120
3787 ERROR T100,13,[5,,],B,,^_
3788 <XBLT BACKWARDS MOVED DATA INCORRECTLY>^
3789 057340 036 13 0 00 064445
3790 057341 035 00 0 00 057257 ERLOOP T100 ;IF ERROR, LOOP TO T100
3791
3792 057342 120 01 0 00 035776 DMOVE A,P1+776 ;LOOK AT THE REST OF THE DATA WORDS.
3793 057343 312 01 0 00 064432 CAME A,[5,,]
3794 ERROR T100,13,[5,,],A,,^_
3795 <XBLT BACKWARDS MOVED DATA INCORRECTLY>^
3796 057344 036 13 0 00 064442
3797 057345 035 00 0 00 057257 ERLOOP T100 ;IF ERROR, LOOP TO T100
3798 057346 312 02 0 00 064432 CAME B,[5,,] ;MAKE SURE THEY'RE ALL THE SAME.
3799 ERROR T100,13,[5,,],B,,^_
3800 <XBLT BACKWARDS MOVED DATA INCORRECTLY>^
3801 057347 036 13 0 00 064445
3802 057350 035 00 0 00 057257 ERLOOP T100 ;IF ERROR, LOOP TO T100
3803
3804 057351 200 02 0 00 035775 MOVE B,P1+775 ;GET THE LAST DATA WORD.
3805 057352 312 02 0 00 064432 CAME B,[5,,]
3806 ERROR T100,13,[5,,],B,,^_
3807 <XBLT BACKWARDS MOVED DATA INCORRECTLY>^
3808 057353 036 13 0 00 064445
3809 057354 035 00 0 00 057257 ERLOOP T100 ;IF ERROR, LOOP TO T100
3810
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 50
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0121
3811
3812 ;*TEST 101 - THE FOLLOWING TESTS TRY PXCTING AN XBLT INSTRUCTION.
3813
3814 057355 T101: SETUP^
3815 057355 201 00 0 00 057355 MOVEI . ;GET PC
3816 057356 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
3817 PAGMAP (P1,32,20)^ ;PAGE FOR TEST PROGRAM.
3818 057357 201 01 0 00 035000 MOVEI A,P1
3819 057360 201 02 0 00 000032 MOVEI B,32
3820 057361 201 03 0 00 000020 MOVEI C,20
3821 057362 205 14 0 00 000000 MOVSI T3,0
3822 057363 260 17 0 00 054201 PUSHJ P,PMAPRT
3823 MOVE A,[[MOVEI T1,2 ;HERE'S THE TEST PROGRAM. TWO WORDS WILL GET MOVED.
3824
3825 MOVE T2,AC2 ;AC2 WILL HAVE THE SOURCE POINTER IN IT.
3826 MOVE T3,AC3 ;AC3 WILL HAVE THE DESTINATION POINTER IN IT.
3827 XCT AC4 ;AC4 WILL HAVE THE PXCT INSTRUCTION IN IT.
3828 JRST @B ;B WILL HOLD THE RETURN ADDRESS.
3829 057364 200 01 0 00 064455 ],,P1] ;PLACE INTO WHICH TO MOVE THE TEST PROGRAM.
3830 057365 251 01 0 00 035020 BLT A,P1+20 ;20 WORDS SHOULD BE ENOUGH...
3831 PAGMAP (P2,2,777)^ ;EXEC FIRST PART OF DESTINATION AREA.
3832 057366 201 01 0 00 037000 MOVEI A,P2
3833 057367 201 02 0 00 000002 MOVEI B,2
3834 057370 201 03 0 00 000777 MOVEI C,777
3835 057371 205 14 0 00 000000 MOVSI T3,0
3836 057372 260 17 0 00 054201 PUSHJ P,PMAPRT
3837 PAGMAP (P3,3,0)^ ;EXEC REST OF DESTINATION AREA.
3838 057373 201 01 0 00 036000 MOVEI A,P3
3839 057374 201 02 0 00 000003 MOVEI B,3
3840 057375 201 03 0 00 000000 MOVEI C,0
3841 057376 205 14 0 00 000000 MOVSI T3,0
3842 057377 260 17 0 00 054201 PUSHJ P,PMAPRT
3843 UPAGMP (P4,2,777)^ ;USER FIRST PART OF DESTINATION AREA.
3844 057400 201 01 0 00 043000 MOVEI A,P4
3845 057401 201 02 0 00 000002 MOVEI B,2
3846 057402 201 03 0 00 000777 MOVEI C,777
3847 057403 205 14 0 00 000001 MOVSI T3,1
3848 057404 260 17 0 00 054201 PUSHJ P,PMAPRT
3849 UPAGMP (P5,3,0)^ ;USER REST OF DESTINATION AREA.
3850 057405 201 01 0 00 041000 MOVEI A,P5
3851 057406 201 02 0 00 000003 MOVEI B,3
3852 057407 201 03 0 00 000000 MOVEI C,0
3853 057410 205 14 0 00 000001 MOVSI T3,1
3854 057411 260 17 0 00 054201 PUSHJ P,PMAPRT
3855 PAGMAP (P6,4,10)^ ;EXEC SOURCE AREA.
3856 057412 201 01 0 00 042000 MOVEI A,P6
3857 057413 201 02 0 00 000004 MOVEI B,4
3858 057414 201 03 0 00 000010 MOVEI C,10
3859 057415 205 14 0 00 000000 MOVSI T3,0
3860 057416 260 17 0 00 054201 PUSHJ P,PMAPRT
3861 UPAGMP (P7,4,10)^ ;USER SOURCE AREA.
3862 057417 201 01 0 00 040000 MOVEI A,P7
3863 057420 201 02 0 00 000004 MOVEI B,4
3864 057421 201 03 0 00 000010 MOVEI C,10
3865 057422 205 14 0 00 000001 MOVSI T3,1
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 50-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0122
3866 057423 260 17 0 00 054201 PUSHJ P,PMAPRT
3867 057424 200 06 0 00 064456 MOVE AC2,[4,,010750] ;XBLT SOURCE POINTER.
3868 057425 200 07 0 00 064457 MOVE AC3,[2,,777777] ;DESTINATION POINTER.
3869 057426 120 01 0 00 064460 DMOVE A,[EXP 1B5,2B5] ;EXEC SOURCE DATA.
3870 057427 124 01 0 00 042750 DMOVEM A,P6+750
3871 057430 120 01 0 00 064462 DMOVE A,[EXP 3B5,4B5] ;USER SOURCE DATA.
3872 057431 124 01 0 00 040750 DMOVEM A,P7+750
3873 PREV (U,0)^ ;MAKE PREVIOUS CONTEXT BE USER.
3874 057432 261 17 0 00 000001 PUSH P,A
3875 057433 261 17 0 00 000002 PUSH P,B
3876 057434 254 14 0 00 000001 SFM A
3877 057435 661 01 0 00 004000 IFIDN <U> <U>, < TLO A,(PCUBIT)
3878 057436 415 02 0 00 057440 XMOVEI B,.+2
3879 057437 254 05 0 00 000001 XJRSTF A
3880 057440 201 01 0 00 000000 MOVEI A,0
3881 057441 137 01 0 00 064464 DPB A,[220500,,UPWD]
3882 057442 7 010 14 0 00 030606 DATAO PAG,UPWD
3883 057443 262 17 0 00 000002 POP P,B
3884 057444 262 17 0 00 000001 POP P,A
3885 057445 200 04 0 00 064465 MOVE AC,[EXTEND T1,AC1] ;EXTEND INSTRUCTION FOR INVOKING XBLT.
3886 057446 205 05 0 00 020000 MOVSI AC1,(XBLT) ;XBLT BEING INVOKED.
3887 057447 200 10 0 00 064466 MOVE AC4,[PXCT 2,AC] ;PXCT INSTRUCTION TO BE EXECUTED.
3888 057450 402 00 0 00 037777 SETZM P2+777
3889 057451 402 00 0 00 036000 SETZM P3 ;START WITH 0 IN DESTINATION AREA.
3890 057452 254 00 0 00 057461 JRST PXSKIP ;SKIP OVER THE DRIVER ROUTINE.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 51
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0123
3891
3892 ;*ROUTINE FOR RUNNING SOME OF THE PXT TESTS.
3893
3894 057453 415 02 0 00 057456 PXRUT: XMOVEI B,PXRUT2
3895 057454 254 14 0 00 057457 SFM PXRUF ;WE REALLY NEED XJRST HERE !!
3896 057455 254 05 0 00 057457 XJRSTF PXRUF ;JUMP TO TEST PROGRAM.
3897 057456 263 17 0 00 000000 PXRUT2: POPJ P,
3898 057457 000000 000000 PXRUF: 0 ;HOLDS PC FLAGS.
3899 057460 000032 020000 32020000 ;PC WE'RE TRANSFERRING TO.
3900
3901 057461 260 17 0 00 057453 PXSKIP: PUSHJ P,PXRUT ;RUN THE TEST.
3902 057462 200 01 0 00 037777 MOVE A,P2+777
3903 057463 200 02 0 00 036000 MOVE B,P3 ;RETRIEVE THE SOURCE DATA.
3904 057464 312 01 0 00 064462 CAME A,[3B5]
3905 ERROR T101,13,[3B5],A,,^_
3906 <PXCT 2,XBLT FAILED>^
3907 057465 036 13 0 00 064473
3908 057466 035 00 0 00 057355 ERLOOP T101 ;IF ERROR, LOOP TO T101
3909 057467 312 02 0 00 064110 CAME B,[4B5]
3910 ERROR T101,13,[4B5],B,,^_
3911 <PXCT 2,XBLT FAILED>^
3912 057470 036 13 0 00 064476
3913 057471 035 00 0 00 057355 ERLOOP T101 ;IF ERROR, LOOP TO T101
3914
3915 057472 661 10 0 00 000040 TLO AC4,(1B12);NOW BOTH SOURCE AND DESTINATION SHOULD BE FROM PREVIOUS CONTEXT.
3916 057473 402 00 0 00 043777 SETZM P4+777
3917 057474 402 00 0 00 041000 SETZM P5 ;CLEAR OUT DESTINATION AREA.
3918 057475 260 17 0 00 057453 PUSHJ P,PXRUT ;EXECUTE THE TEST.
3919 057476 200 01 0 00 043777 MOVE A,P4+777
3920 057477 200 02 0 00 041000 MOVE B,P5 ;READ DESTINATION STRING.
3921 057500 312 01 0 00 064462 CAME A,[3B5]
3922 ERROR T101,13,[3B5],A,,^_
3923 <PXCT 3,XBLT FAILED>^
3924 057501 036 13 0 00 064505
3925 057502 035 00 0 00 057355 ERLOOP T101 ;IF ERROR, LOOP TO T101
3926 057503 312 02 0 00 064110 CAME B,[4B5] ;MAKE SURE CORRECT WORDS GOT MOVED.
3927 ERROR T101,13,[4B5],B,,^_
3928 <PXCT 3,XBLT FAILED>^
3929 057504 036 13 0 00 064510
3930 057505 035 00 0 00 057355 ERLOOP T101 ;IF ERROR, LOOP TO T101
3931
3932 057506 621 10 0 00 000100 TLZ AC4,(2B12) ;NOW ONLY DESTINATION SHOULD BE PREVIOUS.
3933 057507 402 00 0 00 043777 SETZM P4+777
3934 057510 402 00 0 00 041000 SETZM P5 ;START WITH 0 IN DESTINATION AREA.
3935 057511 260 17 0 00 057453 PUSHJ P,PXRUT ;RUN THE TEST.
3936 057512 200 01 0 00 043777 MOVE A,P4+777
3937 057513 200 02 0 00 041000 MOVE B,P5 ;PICK UP DATA.
3938 057514 312 01 0 00 064460 CAME A,[1B5]
3939 ERROR T101,13,[1B5],A,,^_
3940 <PXCT 1,XBLT FAILED>^
3941 057515 036 13 0 00 064517
3942 057516 035 00 0 00 057355 ERLOOP T101 ;IF ERROR, LOOP TO T101
3943 057517 312 02 0 00 064461 CAME B,[2B5]
3944 ERROR T101,13,[2B5],B,,^_
3945 <PXCT 1,XBLT FAILED>^
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 51-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0124
3946 057520 036 13 0 00 064522
3947 057521 035 00 0 00 057355 ERLOOP T101 ;IF ERROR, LOOP TO T101
3948
3949 057522 621 10 0 00 000740 TLZ AC4,(17B12) ;NOW TURN ALL THE BITS OFF IN PXCT 9-12.
3950 057523 402 00 0 00 037777 SETZM P2+777
3951 057524 402 00 0 00 036000 SETZM P3 ;START WITH 0'S IN DESTINATION.
3952 057525 260 17 0 00 057453 PUSHJ P,PXRUT ;RUN THE TEST.
3953 057526 200 01 0 00 037777 MOVE A,P2+777
3954 057527 200 02 0 00 036000 MOVE B,P3 ;PICK UP DESTINATION DATA.
3955 057530 312 01 0 00 064460 CAME A,[1B5]
3956 ERROR T101,13,[1B5],A,,^_
3957 <PXCT 0,XBLT FAILED>^
3958 057531 036 13 0 00 064531
3959 057532 035 00 0 00 057355 ERLOOP T101 ;IF ERROR, LOOP TO T101
3960 057533 312 02 0 00 064461 CAME B,[2B5]
3961 ERROR T101,13,[2B5],B,,^_
3962 <PXCT 0,XBLT FAILED>^
3963 057534 036 13 0 00 064534
3964 057535 035 00 0 00 057355 ERLOOP T101 ;IF ERROR, LOOP TO T101
3965
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 52
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0125
3966
3967 ;*TEST 102 - THE NEXT 6 TESTS DO A PXCT OF A MOVE INSTRUCTION. THE MOVE
3968 ;*INSTRUCTION USES INDIRECTION SO AS TO CAUSE B9 IN THE PXCT INSTRUCTION
3969 ;*TO MAKE A DIFFERENCE. THE PAG MAPS AND VARIOUS WORD CONTENTS ARE SET
3970 ;*UP SUCH THAT AS MANY OF THE SIX CASES TRIED WILL FETCH DIFFERENT DATA
3971 ;*WORDS. THE CURRENT AND PREVIOUS CONTEXTS WILL BE SET TO 3 AND 21
3972 ;*REPECTIVELY. THE SIX CASES TO BE TRIED ARE BITS 9 AND 10 BEING
3973 ;*00,01,11 FOR PCU BEING 0 AND 1.
3974
3975 057536 T102: SETUP^
3976 057536 201 00 0 00 057536 MOVEI . ;GET PC
3977 057537 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
3978 057540 201 01 0 00 035000 PAGMAP (P1,3,40)^ MOVEI A,P1
3979 057541 201 02 0 00 000003 MOVEI B,3
3980 057542 201 03 0 00 000040 MOVEI C,40
3981 057543 205 14 0 00 000000 MOVSI T3,0
3982 057544 260 17 0 00 054201 PUSHJ P,PMAPRT
3983 057545 200 01 0 00 064537 MOVE A,[2,,50010]
3984 057546 202 01 0 00 035000 MOVEM A,P1
3985 057547 201 01 0 00 037000 PAGMAP (P2,2,50)^ MOVEI A,P2
3986 057550 201 02 0 00 000002 MOVEI B,2
3987 057551 201 03 0 00 000050 MOVEI C,50
3988 057552 205 14 0 00 000000 MOVSI T3,0
3989 057553 260 17 0 00 054201 PUSHJ P,PMAPRT
3990 057554 200 01 0 00 064540 MOVE A,[1,,11] ;DATA TO BE FETCHED BY PXCT N,[MOVE A,@40000]
3991 ;WHEN PCU=0 AND BITS 9,10 OF N = 00 OR 01.
3992 ;ALSO WHEN PCU=1 AND PITS 9,10 OF N =00.
3993 057555 202 01 0 00 037010 MOVEM A,P2+10
3994 057556 201 01 0 00 036000 PAGMAP (P3,21,40)^ MOVEI A,P3
3995 057557 201 02 0 00 000021 MOVEI B,21
3996 057560 201 03 0 00 000040 MOVEI C,40
3997 057561 205 14 0 00 000000 MOVSI T3,0
3998 057562 260 17 0 00 054201 PUSHJ P,PMAPRT
3999 057563 200 01 0 00 064541 MOVE A,[4,,3]
4000 057564 202 01 0 00 036000 MOVEM A,P3
4001 057565 201 01 0 00 043000 PAGMAP (P4,4,0)^ MOVEI A,P4
4002 057566 201 02 0 00 000004 MOVEI B,4
4003 057567 201 03 0 00 000000 MOVEI C,0
4004 057570 205 14 0 00 000000 MOVSI T3,0
4005 057571 260 17 0 00 054201 PUSHJ P,PMAPRT
4006 057572 200 01 0 00 064542 MOVE A,[3,,33] ;DATA TO BE FETCHED WHEN PCU=0 AND 9,10=11
4007 057573 202 01 0 00 043003 MOVEM A,P4+3
4008 057574 201 01 0 00 041000 UPAGMP (P5,21,40)^ MOVEI A,P5
4009 057575 201 02 0 00 000021 MOVEI B,21
4010 057576 201 03 0 00 000040 MOVEI C,40
4011 057577 205 14 0 00 000001 MOVSI T3,1
4012 057600 260 17 0 00 054201 PUSHJ P,PMAPRT
4013 057601 200 01 0 00 064543 MOVE A,[5,,62222]
4014 057602 202 01 0 00 041000 MOVEM A,P5
4015 057603 201 01 0 00 042000 UPAGMP (P6,2,50)^ MOVEI A,P6
4016 057604 201 02 0 00 000002 MOVEI B,2
4017 057605 201 03 0 00 000050 MOVEI C,50
4018 057606 205 14 0 00 000001 MOVSI T3,1
4019 057607 260 17 0 00 054201 PUSHJ P,PMAPRT
4020 057610 200 01 0 00 064544 MOVE A,[5,,55] ;DATA TO BE FETCHED WHEN PCU=1, AND 9,10=01
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 52-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0126
4021 057611 202 01 0 00 042010 MOVEM A,P6+10
4022 057612 201 01 0 00 040000 UPAGMP (P7,5,62)^ MOVEI A,P7
4023 057613 201 02 0 00 000005 MOVEI B,5
4024 057614 201 03 0 00 000062 MOVEI C,62
4025 057615 205 14 0 00 000001 MOVSI T3,1
4026 057616 260 17 0 00 054201 PUSHJ P,PMAPRT
4027 057617 200 01 0 00 064545 MOVE A,[7,,77] ;DATA TO BE FETCHED WHEN PCU=1, AND 9,10=11
4028 057620 202 01 0 00 040222 MOVEM A,P7+222
4029 057621 200 01 0 00 064546 MOVE A,[MOVE A,@40000] ;INSTRUCTION TO BE PXCTED.
4030 057622 202 01 0 00 035123 MOVEM A,P1+123
4031 057623 200 01 0 00 064547 MOVE A,[PXCT 0,40123] ;INSTRUCTION BEING TESTED.
4032 057624 202 01 0 00 035456 MOVEM A,P1+456
4033 057625 200 01 0 00 061210 MOVE A,[JRST @B] ;INSTRUCTION FOR GETTING BACK TO MAIN PROGRAM.
4034 057626 202 01 0 00 035457 MOVEM A,P1+457
4035 057627 415 02 0 00 057631 XMOVEI B,HOM000 ;LOAD UP RETURN ADDRESS.
4036 057630 254 05 0 00 064550 XJRSTF [EXP 21,3040456] ;JUMP TO TEST PROGRAM.
4037 057631 312 01 0 00 064540 HOM000: CAME A,[1,,11] ;MAKE SURE THE EXPECTED DATA GOT FETCHED.
4038 ERROR T102,13,[1,,11],A,,^_
4039 <PXCT OF MOVE FAILED WHEN PCU=0 AND BITS 9,10=0>^
4040 057632 036 13 0 00 064562
4041 057633 035 00 0 00 057536 ERLOOP T102 ;IF ERROR, LOOP TO T102
4042
4043 057634 200 01 0 00 064565 MOVE A,[PXCT 4,40123] ;CHANGE BITS 9,10 TO 01
4044 057635 202 01 0 00 035456 MOVEM A,P1+456
4045 057636 415 02 0 00 057640 XMOVEI B,HOM001
4046 057637 254 05 0 00 064550 XJRSTF [EXP 21,3040456]
4047 057640 312 01 0 00 064540 HOM001: CAME A,[1,,11]
4048 ERROR T102,13,[1,,11],A,,^_
4049 <PXCT OF MOVE INSTRUCTION FAILED WHEN PCU=0 AND BITS 9,10=01>^
4050 057641 036 13 0 00 064600
4051 057642 035 00 0 00 057536 ERLOOP T102 ;IF ERROR, LOOP TO T102
4052
4053 057643 200 01 0 00 064603 MOVE A,[PXCT 14,40123] ;NOW TRY BITS 9,10 BOTH ON.
4054 057644 202 01 0 00 035456 MOVEM A,P1+456
4055 057645 415 02 0 00 057647 XMOVEI B,HOM011
4056 057646 254 05 0 00 064550 XJRSTF [EXP 21,3040456]
4057 057647 312 01 0 00 064542 HOM011: CAME A,[3,,33]
4058 ERROR T102,13,[3,,33],A,,^_
4059 <PXCT OF MOVE INSTRUCTION WITH PCU,B9,B10=011 FAILED>^
4060 057650 036 13 0 00 064615
4061 057651 035 00 0 00 057536 ERLOOP T102 ;IF ERROR, LOOP TO T102
4062
4063 057652 200 01 0 00 064547 MOVE A,[PXCT 0,40123] ;TRY PCU=1, B9,10=00
4064 057653 202 01 0 00 035456 MOVEM A,P1+456
4065 057654 415 02 0 00 057656 XMOVEI B,HOM100
4066 057655 254 05 0 00 064620 XJRSTF [EXP PCUBIT!21,3040456]
4067 057656 312 01 0 00 064540 HOM100: CAME A,[1,,11]
4068 ERROR T102,13,[1,,11],A,,^_
4069 <PXCT OF MOVE INSTRUCTION FAILED WITH PCU,B9,B10=100>^
4070 057657 036 13 0 00 064633
4071 057660 035 00 0 00 057536 ERLOOP T102 ;IF ERROR, LOOP TO T102
4072
4073 057661 200 01 0 00 064565 MOVE A,[PXCT 4,40123] ;KEEP PCU=1, SET B10
4074 057662 202 01 0 00 035456 MOVEM A,P1+456
4075 057663 415 02 0 00 057665 XMOVEI B,HOM101
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 52-2
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0127
4076 057664 254 05 0 00 064636 XJRSTF [EXP PCUBIT,3040456]
4077 057665 312 01 0 00 064544 HOM101: CAME A,[5,,55]
4078 ERROR T102,13,[5,,55],A,,^_
4079 <PXCT OF MOVE INSTRUCTION FAILED WITH PCU,B9,B10=101>^
4080 057666 036 13 0 00 064651
4081 057667 035 00 0 00 057536 ERLOOP T102 ;IF ERROR, LOOP TO T102
4082
4083 057670 200 01 0 00 064603 MOVE A,[PXCT 14,40123]
4084 057671 202 01 0 00 035456 MOVEM A,P1+456
4085 057672 415 02 0 00 057674 XMOVEI B,HOM111
4086 057673 254 05 0 00 064620 XJRSTF [EXP PCUBIT!21,3040456]
4087 057674 312 01 0 00 064545 HOM111: CAME A,[7,,77]
4088 ERROR T102,13,[7,,77],A,,^_
4089 <PXCT OF MOVE INSTRUCTION FAILED WITH PCU,B9,B10=111>^
4090 057675 036 13 0 00 064665
4091 057676 035 00 0 00 057536 ERLOOP T102 ;IF ERROR, LOOP TO T102
4092
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 53
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0128
4093
4094 ;*TEST 103 - HERE'S A TEST OF A MOVSLJ INSTRUCTION IN A NON-0 SECTION WITH
4095 ;*BIT 12 ON IN BYTE POINTERS.
4096
4097 057677 T103: SETUP^
4098 057677 201 00 0 00 057677 MOVEI . ;GET PC
4099 057700 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
4100 PAGMAP (P1,3,0)^ ;PAGE FOR SOURCE DATA.
4101 057701 201 01 0 00 035000 MOVEI A,P1
4102 057702 201 02 0 00 000003 MOVEI B,3
4103 057703 201 03 0 00 000000 MOVEI C,0
4104 057704 205 14 0 00 000000 MOVSI T3,0
4105 057705 260 17 0 00 054201 PUSHJ P,PMAPRT
4106 PAGMAP (P2,37,777)^ ;PAGE FOR DESTINATION DATA, AND PROGRAM.
4107 057706 201 01 0 00 037000 MOVEI A,P2
4108 057707 201 02 0 00 000037 MOVEI B,37
4109 057710 201 03 0 00 000777 MOVEI C,777
4110 057711 205 14 0 00 000000 MOVSI T3,0
4111 057712 260 17 0 00 054201 PUSHJ P,PMAPRT
4112 057713 205 03 0 00 016000 MOVSI C,(MOVSLJ) ;WE'LL TRY A MOVE STRING LEFT JUSTIFIED.
4113 057714 201 04 0 00 000002 MOVEI AC,2 ;WE'LL MOVE TWO BYTES.
4114 057715 205 05 0 00 440740 MOVSI AC1,440740 ;SOURCE POINTER HAS BIT 12 ON.
4115 057716 200 06 0 00 064670 MOVE AC2,[3,,500] ;SOURCE BYTES COME FROM SECTION 3.
4116 057717 201 07 0 00 000002 MOVEI AC3,2 ;DESTINATION BYTE STRING HAS 2 BYTES TOO.
4117 057720 205 10 0 00 070740 MOVSI AC4,070740 ;BIT 12 ON.
4118 057721 200 11 0 00 064671 MOVE AC5,[37,,777776] ;THIS WILL HAVE TO GET INCREMENTED.
4119 057722 200 01 0 00 064672 MOVE A,[EXTEND AC,C] ;INSTRUCTION BEING TESTED.
4120 057723 202 01 0 00 037500 MOVEM A,P2+500 ;YUP
4121 057724 402 00 0 00 037501 SETZM P2+501 ;THE INSTRUCTION SHOULD SKIP !!
4122 057725 200 01 0 00 061210 MOVE A,[JRST @B] ;THIS IS HOW WE GET BACK TO THE MAIN STREAM.
4123 057726 202 01 0 00 037502 MOVEM A,P2+502
4124 057727 402 00 0 00 037776 SETZM P2+776
4125 057730 402 00 0 00 037777 SETZM P2+777 ;START WITH 0 IN DESTINATION AREA.
4126 057731 205 01 0 00 406040 MOVSI A,(ASCII /AB/) ;SOURCE BYTE DATA
4127 057732 202 01 0 00 035500 MOVEM A,P1+500 ;STORE THE SOURCE BYTES.
4128 057733 415 02 0 00 057735 XMOVEI B,HOMMSL ;LOAD UP RETURN ADDRESS
4129 XJMP 37777500 ^;JUMP TO EXTEND INSTRUCTION.
4130 057734 254 05 0 00 064673 XJRSTF [EXP 0,37777500]
4131 057735 302 04 0 00 000000 HOMMSL: CAIE AC,0
4132 ERROR T103,13,[0],AC,,^_
4133 <FINAL STRING LENGTH OF MOVSLJ NOT 0>^
4134 057736 036 13 0 00 064703
4135 057737 035 00 0 00 057677 ERLOOP T103 ;IF ERROR, LOOP TO T103
4136 057740 302 07 0 00 000000 CAIE AC3,0 ;MAKE SURE LENGTHS EXHAUSTED.
4137 ERROR T103,13,[0],AC3,,^_
4138 <FINAL STRING LENGTH OF MOVSLJ NOT 0>^
4139 057741 036 13 0 00 064706
4140 057742 035 00 0 00 057677 ERLOOP T103 ;IF ERROR, LOOP TO T103
4141
4142 057743 312 05 0 00 064711 CAME AC1,[260740,,0] ;CHECK INCREMENTING OF FIRST POINTER.
4143 ERROR T103,13,[260740,,0],AC1,,^_
4144 <FINAL FIRST POINTER OF MOVSLJ>^
4145 057744 036 13 0 00 064717
4146 057745 035 00 0 00 057677 ERLOOP T103 ;IF ERROR, LOOP TO T103
4147 057746 312 06 0 00 064670 CAME AC2,[3,,500]
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 53-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0129
4148 ERROR T103,13,[3,,500],AC2,,^_
4149 <FINAL FIRST POINTER OF MOVSLJ>^
4150 057747 036 13 0 00 064722
4151 057750 035 00 0 00 057677 ERLOOP T103 ;IF ERROR, LOOP TO T103
4152
4153 057751 312 10 0 00 064725 CAME AC4,[350740,,0] ;CHECK SECOND POINTER.
4154 ERROR T103,13,[350740,,0],AC4,,^_
4155 <FINAL SECOND POINTER WAS BAD FOR MOVSLJ>^
4156 057752 036 13 0 00 064735
4157 057753 035 00 0 00 057677 ERLOOP T103 ;IF ERROR, LOOP TO T103
4158 057754 312 11 0 00 064740 CAME AC5,[37,,777777] ;MAKE SURE SECOND WORD GOT INCREMENTED.
4159 ERROR T103,13,[37,,777777],AC5,,^_
4160 <FINAL SECOND POINTER WAS BAD FOR MOVSLJ>^
4161 057755 036 13 0 00 064741
4162 057756 035 00 0 00 057677 ERLOOP T103 ;IF ERROR, LOOP TO T103
4163
4164 057757 120 01 0 00 037776 DMOVE A,P2+776 ;LOAD UP DESTINATION STRING.
4165 057760 302 01 0 00 000101 CAIE A,"A"
4166 ERROR T103,13,["A"],A,,^_
4167 <WRONG STRING WRITTEN BY MOVSLJ>^
4168 057761 036 13 0 00 064753
4169 057762 035 00 0 00 057677 ERLOOP T103 ;IF ERROR, LOOP TO T103
4170 057763 312 02 0 00 064756 CAME B,[ASCII /B/] ;CHECK FOR VALID DESTINATION STRING.
4171 ERROR T103,13,[ASCII /B/],B,,^_
4172 <WRONG STRING WRITTEN BY MOVSLJ>^
4173 057764 036 13 0 00 064757
4174 057765 035 00 0 00 057677 ERLOOP T103 ;IF ERROR, LOOP TO T103
4175
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 54
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0130
4176
4177 ;*TEST 104 - THE FOLLOWING TEST CHECKS THAT THE MICROCODE DOESN'T CARRY FROM B18
4178 ;*TO B17 OF THE EDIT PATTERN OPERATOR POINTER WHEN THE EDIT IS BEING
4179 ;*DONE IN SECTION 0. IT ALSO CHECKS THAT THE PATTERN OPERATORS ALWAYS
4180 ;*COME FROM SECTION 0 WHEN THE EDIT IS BEING DONE IN SECTION 0, REGARDLESS
4181 ;*OF THE LEFT HALF CONTENTS OF AC0. AS IF THIS WEREN'T ENOUGH, THE TEST
4182 ;*ALSO MAKES SURE BIT 12 ON IN BYTE POINTERS DOESN'T CAUSE THEM TO BE
4183 ;*DOUBLE POINTERS (AGAIN BECAUSE THE EDIT IS IN SECTION 0).
4184 ;*IT ALSO CHECKS THAT MARK POINTER ADDRESS IS IN SECTION 0 REGARDLESS
4185 ;*OF LEFT HALF OF AC3.
4186
4187 057766 T104: SETUP^
4188 057766 201 00 0 00 057766 MOVEI . ;GET PC
4189 057767 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
4190 PAGMAP (P1,0,P1PN)^ ;PAGE FOR THE EDIT INSTRUCTION AND DATA.
4191 057770 201 01 0 00 035000 MOVEI A,P1
4192 057771 201 02 0 00 000000 MOVEI B,0
4193 057772 201 03 0 00 000035 MOVEI C,P1PN
4194 057773 205 14 0 00 000000 MOVSI T3,0
4195 057774 260 17 0 00 054201 PUSHJ P,PMAPRT
4196 PAGMAP (P2,0,777)^ ;PAGE FOR PATTERN OPERATORS.
4197 057775 201 01 0 00 037000 MOVEI A,P2
4198 057776 201 02 0 00 000000 MOVEI B,0
4199 057777 201 03 0 00 000777 MOVEI C,777
4200 060000 205 14 0 00 000000 MOVSI T3,0
4201 060001 260 17 0 00 054201 PUSHJ P,PMAPRT
4202 060002 402 00 0 00 033543 SETZM ESECT+3 ;CAUSE PAGE FAULT ON REFERENCE TO SECTION 3.
4203 060003 7 010 20 1 00 030607 CONO PAG,@EPWD ;TELL HARDWARE ABOUT THE UPDATE.
4204 060004 200 01 0 00 064762 MOVE A,[BYTE(9)SELECT,SELECT,STOP]
4205 060005 201 02 0 00 000000 MOVEI B,0
4206 060006 246 01 0 00 777745 LSHC A,-^D27 ;FIRST OP IN A, SECOND TWO IN B.
4207 060007 200 00 0 00 000002 MOVE 0,B ;PATTERN OPS SHOULD WRAP INTO AC0.
4208 060010 202 01 0 00 037777 MOVEM A,P2+777 ;THEY START IN THE LAST WORD OF SECTION 0.
4209 060011 200 04 0 00 064763 MOVE AC,[3B5+2777777];ONE OF TEST'S FUNCT IS TO MAKE SURE LEFT HALF DOESN'T INC.
4210 060012 200 01 0 00 064764 MOVE A,[EXTEND AC,T1] ;INSTRUCTION BEING EXECUTED.
4211 060013 202 01 0 00 035000 MOVEM A,P1
4212 060014 402 00 0 00 035001 SETZM P1+1 ;GET MUUO TRAP IF EDIT DOESN'T SKIP.
4213 060015 200 12 0 00 064765 MOVE T1,[EDIT P1+10] ;TRANSLATION TABLE IS IN P1+10
4214 060016 200 01 0 00 064766 MOVE A,[400000+"N",,"P"]
4215 060017 202 01 0 00 035011 MOVEM A,P1+10+1 ;2 TRANSLATES TO "N", 3 TO "P"
4216 060020 402 00 0 00 035007 SETZM P1+7 ;DESTINATION STRING GOES HERE.
4217 060021 200 10 0 00 064767 MOVE AC4,[010740,,P1+6]
4218 060022 205 11 0 00 000003 MOVSI AC5,3 ;MAKE SURE SECTION 3 ISN'T REFERENCED !.
4219 060023 200 07 0 00 064770 MOVE AC3,[3,,P1+5] ;MARK POINTER, 3 SHOULD BE IGNORED.
4220 060024 402 00 0 00 035005 SETZM P1+5 ;START WITH 0 AS MARK POINTER.
4221 060025 200 01 0 00 062650 MOVE A,[2,,3] ;SOURCE STRING.
4222 060026 202 01 0 00 035006 MOVEM A,P1+6
4223 060027 200 05 0 00 064771 MOVE AC1,[002240,,P1+5] ;SOURCE POINTER.
4224 060030 205 06 0 00 000003 MOVSI AC2,3 ;3 SHOULD GET IGNORED !!
4225 060031 200 01 0 00 061210 MOVE A,[JRST @B] ;INSTRUCTION FOR RETURNING TO MAIN PROGRAM.
4226 060032 202 01 0 00 035002 MOVEM A,P1+2 ;EDIT RETURNS TO HERE...
4227 060033 415 02 0 00 060035 XMOVEI B,HOMED9 ;LOAD UP RETURN ADDRESS.
4228 XJMP P1 ^;JUMP TO THE TEST.
4229 060034 254 05 0 00 064772 XJRSTF [EXP 0,P1]
4230 060035 312 04 0 00 064774 HOMED9: CAME AC,[6B2+2B5+2000000]
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 54-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0131
4231 ERROR T104,13,[6B2+2B5+2000000],AC,,^_
4232 <EDIT IN SECTION RETURNED WRONG AC>^
4233 060036 036 13 0 00 065003
4234 060037 035 00 0 00 057766 ERLOOP T104 ;IF ERROR, LOOP TO T104
4235 060040 312 05 0 00 065006 CAME AC1,[002240,,P1+6]
4236 ERROR T104,13,[002240,,P1+6],AC1,,^_
4237 <EDIT IN SECTION RETURNED WRONG AC1>^
4238 060041 036 13 0 00 065015
4239 060042 035 00 0 00 057766 ERLOOP T104 ;IF ERROR, LOOP TO T104
4240
4241 060043 312 06 0 00 065020 CAME AC2,[3,,]
4242 ERROR T104,13,[3,,],AC2,,^_
4243 <EDIT IN SECTION 0 CLOBBERED AC2>^
4244 060044 036 13 0 00 065027
4245 060045 035 00 0 00 057766 ERLOOP T104 ;IF ERROR, LOOP TO T104
4246 060046 312 07 0 00 064770 CAME AC3,[3,,P1+5]
4247 ERROR T104,13,[3,,P1+5],AC3,,^_
4248 <EDIT IN SECTION 0 CLOBBERED AC3>^
4249 060047 036 13 0 00 065040
4250 060050 035 00 0 00 057766 ERLOOP T104 ;IF ERROR, LOOP TO T104
4251
4252 060051 312 10 0 00 065043 CAME AC4,[260740,,P1+7]
4253 ERROR T104,13,[260740,,P1+7],AC4,,^_
4254 <EDIT IN SECTION 0 UPDATED DESTINATION POINTER WRONG>^
4255 060052 036 13 0 00 065055
4256 060053 035 00 0 00 057766 ERLOOP T104 ;IF ERROR, LOOP TO T104
4257 060054 312 11 0 00 065020 CAME AC5,[3,,]
4258 ERROR T104,13,[3,,],AC5,,^_
4259 <EDIT IN SECTION 0 UPDATED DESTINATION POINTER WRONG>^
4260 060055 036 13 0 00 065060
4261 060056 035 00 0 00 057766 ERLOOP T104 ;IF ERROR, LOOP TO T104
4262
4263 060057 200 01 0 00 035005 MOVE A,P1+5
4264 060060 312 01 0 00 065063 CAME A,[440740,,P1+7]
4265 ERROR T104,13,[440740,,P1+7],A,,^_
4266 <EDIT IN SECTION 0 STORED WRONG MARK POINTER>^
4267 060061 036 13 0 00 065074
4268 060062 035 00 0 00 057766 ERLOOP T104 ;IF ERROR, LOOP TO T104
4269
4270 060063 200 01 0 00 035007 MOVE A,P1+7
4271 060064 312 01 0 00 065077 CAME A,[ASCII /NP/]
4272 ERROR T104,13,[ASCII /NP/],A,,^_
4273 <EDIT IN SECTION 0 STORED WRONG DESTINATION STRING>^
4274 060065 036 13 0 00 065111
4275 060066 035 00 0 00 057766 ERLOOP T104 ;IF ERROR, LOOP TO T104
4276
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 55
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0132
4277
4278 ;*TEST 105 - UPON SIGNIFICANCE STARTING DURING AN EDIT OPERATION, THE DESTINATION
4279 ;*POINTER GETS STORED IN THE WORD(S) POINTED TO BY THE MARK POINTER. THE
4280 ;*FOLLOWING TEST MAKES SURE THAT THAT WORD MAY SUCCESSFULLY POINT TO
4281 ;*ANOTHER SECTION.
4282 ;*IT ALSO ASSURES THAT THE PATTERN STRING MAY BE IN A NON-0 DIFFERENT
4283 ;*SECTION THAN THE EDIT INSTRUCTION. THIS TEST ALSO TRIES SINGLE AND
4284 ;*DOUBLE WORD DESTINATION POINTERS TO MAKE SURE THAT ONE OR TWO WORDS
4285 ;*GET STORED IN THE MARK POINTER AREA, AS APPROPRIATE.
4286
4287 060067 T105: SETUP^
4288 060067 201 00 0 00 060067 MOVEI . ;GET PC
4289 060070 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
4290 PAGMAP (P1,7,777)^ ;PAGE FOR FIRST PATTERN OPERATOR.
4291 060071 201 01 0 00 035000 MOVEI A,P1
4292 060072 201 02 0 00 000007 MOVEI B,7
4293 060073 201 03 0 00 000777 MOVEI C,777
4294 060074 205 14 0 00 000000 MOVSI T3,0
4295 060075 260 17 0 00 054201 PUSHJ P,PMAPRT
4296 PAGMAP (P2,10,0)^ ;PAGE FOR REST OF PATTERN STRING.
4297 060076 201 01 0 00 037000 MOVEI A,P2
4298 060077 201 02 0 00 000010 MOVEI B,10
4299 060100 201 03 0 00 000000 MOVEI C,0
4300 060101 205 14 0 00 000000 MOVSI T3,0
4301 060102 260 17 0 00 054201 PUSHJ P,PMAPRT
4302 PAGMAP (P3,15,777)^ ;FIRST PAGE FOR MARK POINTER.
4303 060103 201 01 0 00 036000 MOVEI A,P3
4304 060104 201 02 0 00 000015 MOVEI B,15
4305 060105 201 03 0 00 000777 MOVEI C,777
4306 060106 205 14 0 00 000000 MOVSI T3,0
4307 060107 260 17 0 00 054201 PUSHJ P,PMAPRT
4308 PAGMAP (P4,16,0)^;SECOND MARK POINTER PAGE (ONLY USED IF BIT 12 IN D.P. ON)
4309 060110 201 01 0 00 043000 MOVEI A,P4
4310 060111 201 02 0 00 000016 MOVEI B,16
4311 060112 201 03 0 00 000000 MOVEI C,0
4312 060113 205 14 0 00 000000 MOVSI T3,0
4313 060114 260 17 0 00 054201 PUSHJ P,PMAPRT
4314 PAGMAP (P5,13,2)^ ;PAGE FOR THE EXTEND, EDIT, AND TABLE.
4315 060115 201 01 0 00 041000 MOVEI A,P5
4316 060116 201 02 0 00 000013 MOVEI B,13
4317 060117 201 03 0 00 000002 MOVEI C,2
4318 060120 205 14 0 00 000000 MOVSI T3,0
4319 060121 260 17 0 00 054201 PUSHJ P,PMAPRT
4320 060122 200 04 0 00 065114 MOVE AC,[3B5+7777777] ;PATTERN OPERATOR POINTER, NO SIGNIFICANCE.
4321 060123 120 01 0 00 065115 DMOVE A,[BYTE(9)STOP,STOP,STOP,SIGST,STOP]
4322 060124 202 01 0 00 035777 MOVEM A,P1+777 ;FIRST OPERATOR IS "SIGST".
4323 060125 202 02 0 00 037000 MOVEM B,P2 ;SECOND (AND LAST) IS "STOP".
4324 060126 200 05 0 00 065117 MOVE AC1,[440700,,34];SOURCE POINTER WHICH SHOULDN'T CHANGE FOR THIS EXAMPLE.
4325 MOVEI AC2,3 ;SECOND WORD OF SOURCE POINTER, WHICH SHOULDN'T CHAN
4326 060127 201 06 0 00 000003 GE.
4327 060130 200 07 0 00 065120 MOVE AC3,[15,,777777] ;MARK POINTER.
4328 060131 200 10 0 00 065121 MOVE AC4,[440700,,C] ;NO BIT 12 IN THIS DESTINATION POINTER.
4329 060132 201 11 0 00 000004 MOVEI AC5,4 ;SECOND WORD OF DESTINATION POINTER.
4330 060133 205 01 0 00 004000 MOVSI A,(EDIT) ;EDIT INSTRUCTION TO BE EXECUTED.
4331 060134 202 01 0 00 041004 MOVEM A,P5+4 ;PUT IT IN LOCATION 13002004
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 55-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0133
4332 060135 402 00 0 00 041006 SETZM P5+6
4333 SETZM P5+7 ;MAKE SURE FILLER AND FLOAT CHARACTERS ARE NON-EXIST
4334 060136 402 00 0 00 041007 ENT.
4335 060137 200 01 0 00 065122 MOVE A,[EXTEND AC,2004] ;EXTEND INSTRUCTION FOR INVOKING THE EDIT.
4336 060140 202 01 0 00 041001 MOVEM A,P5+1
4337 060141 402 00 0 00 041002 SETZM P5+2 ;NON-SKIP RETURN WILL CAUSE ILLEGAL MUUO.
4338 060142 200 01 0 00 061210 MOVE A,[JRST @B] ;INSTRUCTION FOR RETURNING TO MAIN PROGRAM.
4339 060143 202 01 0 00 041003 MOVEM A,P5+3
4340 060144 402 00 0 00 036777 SETZM P3+777
4341 060145 476 00 0 00 043000 SETOM P4 ;SET SECOND MARK POINTER WORD TO ALL 1'S
4342 060146 415 02 0 00 060150 XMOVEI B,HOMEDI ;LOAD UP RETURN ADDRESS.
4343 XJMP 13002001 ^;JUMP TO THE TEST.
4344 060147 254 05 0 00 065123 XJRSTF [EXP 0,13002001]
4345 060150 312 04 0 00 065125 HOMEDI: CAME AC,[1B0+1B5+10B17] ;MAKE SURE PATTERN POINTER GOT UPDATED CORRECTLY.
4346 ERROR T105,13,[1B0+1B5+10B17],AC,,^_
4347 <EDIT INSTRUCTION LEFT UNKOSHER PATTERN OPERATOR POINTER>^
4348 060151 036 13 0 00 065140
4349 060152 035 00 0 00 060067 ERLOOP T105 ;IF ERROR, LOOP TO T105
4350
4351 060153 312 05 0 00 065117 CAME AC1,[440700,,34]
4352 ERROR T105,13,[440700,,34],AC1,,^_
4353 <BAD FINAL SOURCE POINTER IN EDIT INSTRUCTION>^
4354 060154 036 13 0 00 065153
4355 060155 035 00 0 00 060067 ERLOOP T105 ;IF ERROR, LOOP TO T105
4356 060156 302 06 0 00 000003 CAIE AC2,3 ;MAKE SURE SOURCE POINTER DIDN'T CHANGE.
4357 ERROR T105,13,[3],AC2,,^_
4358 <BAD FINAL SOURCE POINTER IN EDIT INSTRUCTION>^
4359 060157 036 13 0 00 065156
4360 060160 035 00 0 00 060067 ERLOOP T105 ;IF ERROR, LOOP TO T105
4361
4362 060161 312 07 0 00 065120 CAME AC3,[15,,777777] ;MAKE SURE MARK POINTER DIDN'T CHANGE.
4363 ERROR T105,13,[15,,777777],AC3,,^_
4364 <EDIT INSTRUCTION CLOBBERED MARK POINTER ADDRESS>^
4365 060162 036 13 0 00 065171
4366 060163 035 00 0 00 060067 ERLOOP T105 ;IF ERROR, LOOP TO T105
4367
4368 060164 312 10 0 00 065121 CAME AC4,[440700,,C]
4369 ERROR T105,13,[440700,,C],AC4,,^_
4370 <EDIT INSTRUCTION DESTINATION POINTER CHANGED UNEXPECTEDLY>^
4371 060165 036 13 0 00 065206
4372 060166 035 00 0 00 060067 ERLOOP T105 ;IF ERROR, LOOP TO T105
4373 060167 302 11 0 00 000004 CAIE AC5,4 ;MAKE SURE DESTINATION POINTER DIDN'T CHANGE.
4374 ERROR T105,13,[4],AC5,,^_
4375 <EDIT INSTRUCTION DESTINATION POINTER CHANGED UNEXPECTEDLY>^
4376 060170 036 13 0 00 065211
4377 060171 035 00 0 00 060067 ERLOOP T105 ;IF ERROR, LOOP TO T105
4378
4379 060172 200 01 0 00 036777 MOVE A,P3+777
4380 060173 312 01 0 00 065121 CAME A,[440700,,C] ;MAKE SURE MARK POINTER GO SET UP
4381 ERROR T105,13,[440700,,C],A,,^_
4382 <EDIT INSTRUCTION DIDN'T STORE CORRECT MARK POINTER>^
4383 060174 036 13 0 00 065225
4384 060175 035 00 0 00 060067 ERLOOP T105 ;IF ERROR, LOOP TO T105
4385
4386 060176 352 00 0 00 043000 AOSE P4 ;MAKE SURE SECOND WORD IS STILL -1.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 55-2
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0134
4387 ERROR T105,13,[-1],P4,,^_
4388 <SECOND MARK POINTER IN EDIT INSTRUCTION GOT UNEXPECTEDLY REFERENCED>^
4389 060177 036 13 0 00 065244
4390 060200 035 00 0 00 060067 ERLOOP T105 ;IF ERROR, LOOP TO T105
4391
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 56
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0135
4392
4393 ;*TEST 106 - NOW WE'LL HAVE BIT 12 ON IN THE DESTINATION POINTER, AND MAKE SURE THAT
4394 ;*TWO WORDS OF DESTINATION POINTER ARE STORED.
4395
4396 060201 T106: SETUP^
4397 060201 201 00 0 00 060201 MOVEI . ;GET PC
4398 060202 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
4399 060203 200 04 0 00 065114 MOVE AC,[3B5+7777777] ;PATTERN OPERATOR POINTER, NO SIGNIFICANCE.
4400 060204 120 01 0 00 065115 DMOVE A,[BYTE(9)STOP,STOP,STOP,SIGST,STOP]
4401 060205 202 01 0 00 035777 MOVEM A,P1+777 ;FIRST OPERATOR IS "SIGST".
4402 060206 202 02 0 00 037000 MOVEM B,P2 ;SECOND (AND LAST) IS "STOP".
4403 060207 200 05 0 00 065117 MOVE AC1,[440700,,34];SOURCE POINTER WHICH SHOULDN'T CHANGE FOR THIS EXAMPLE.
4404 MOVEI AC2,3 ;SECOND WORD OF SOURCE POINTER, WHICH SHOULDN'T CHAN
4405 060210 201 06 0 00 000003 GE.
4406 060211 200 07 0 00 065120 MOVE AC3,[15,,777777] ;MARK POINTER.
4407 060212 200 10 0 00 065247 MOVE AC4,[440740,,C] ;BIT 12 IN THIS DESTINATION POINTER.
4408 060213 201 11 0 00 000004 MOVEI AC5,4 ;SECOND WORD OF DESTINATION POINTER.
4409 060214 402 00 0 00 036777 SETZM P3+777
4410 060215 476 00 0 00 043000 SETOM P4 ;INITIALIZE MARK POINTER AREA.
4411 060216 415 02 0 00 060220 XMOVEI B,HOMED2 ;LOAD UP RETURN ADDRESS.
4412 XJMP 13002001 ^;JUMP TO THE TEST.
4413 060217 254 05 0 00 065123 XJRSTF [EXP 0,13002001]
4414 060220 312 04 0 00 065125 HOMED2: CAME AC,[1B0+1B5+10B17] ;MAKE SURE PATTERN POINTER GOT UPDATED CORRECTLY.
4415 ERROR T106,13,[1B0+1B5+10B17],AC,,^_
4416 <EDIT INSTRUCTION LEFT UNKOSHER PATTERN OPERATOR POINTER>^
4417 060221 036 13 0 00 065140
4418 060222 035 00 0 00 060201 ERLOOP T106 ;IF ERROR, LOOP TO T106
4419
4420 060223 312 05 0 00 065117 CAME AC1,[440700,,34]
4421 ERROR T106,13,[440700,,34],AC1,,^_
4422 <BAD FINAL SOURCE POINTER IN EDIT INSTRUCTION>^
4423 060224 036 13 0 00 065153
4424 060225 035 00 0 00 060201 ERLOOP T106 ;IF ERROR, LOOP TO T106
4425 060226 302 06 0 00 000003 CAIE AC2,3 ;MAKE SURE SOURCE POINTER DIDN'T CHANGE.
4426 ERROR T106,13,[3],AC2,,^_
4427 <BAD FINAL SOURCE POINTER IN EDIT INSTRUCTION>^
4428 060227 036 13 0 00 065156
4429 060230 035 00 0 00 060201 ERLOOP T106 ;IF ERROR, LOOP TO T106
4430
4431 060231 312 07 0 00 065120 CAME AC3,[15,,777777] ;MAKE SURE MARK POINTER DIDN'T CHANGE.
4432 ERROR T106,13,[15,777777],AC3,,^_
4433 <EDIT INSTRUCTION CLOBBERED MARK POINTER ADDRESS>^
4434 060232 036 13 0 00 065251
4435 060233 035 00 0 00 060201 ERLOOP T106 ;IF ERROR, LOOP TO T106
4436
4437 060234 312 10 0 00 065247 CAME AC4,[440740,,C]
4438 ERROR T106,13,[440740,,C],AC4,,^_
4439 <EDIT INSTRUCTION DESTINATION POINTER CHANGED UNEXPECTEDLY>^
4440 060235 036 13 0 00 065254
4441 060236 035 00 0 00 060201 ERLOOP T106 ;IF ERROR, LOOP TO T106
4442 060237 302 11 0 00 000004 CAIE AC5,4 ;MAKE SURE DESTINATION POINTER DIDN'T CHANGE.
4443 ERROR T106,13,[4],AC5,,^_
4444 <EDIT INSTRUCTION DESTINATION POINTER CHANGED UNEXPECTEDLY>^
4445 060240 036 13 0 00 065211
4446 060241 035 00 0 00 060201 ERLOOP T106 ;IF ERROR, LOOP TO T106
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 56-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0136
4447
4448 060242 200 01 0 00 036777 MOVE A,P3+777
4449 060243 312 01 0 00 065247 CAME A,[440740,,C] ;MAKE SURE MARK POINTER GOT SET UP
4450 ERROR T106,13,[440740,,C],A,,^_
4451 <EDIT INSTRUCTION DIDN'T STORE CORRECT MARK POINTER>^
4452 060244 036 13 0 00 065257
4453 060245 035 00 0 00 060201 ERLOOP T106 ;IF ERROR, LOOP TO T106
4454
4455 060246 200 01 0 00 043000 MOVE A,P4 ;GET SECOND WORD OF MARK POINTER.
4456 060247 302 01 0 00 000004 CAIE A,4 ;MAKE SURE SECOND MARK POINTER WORD GOT STORED.
4457 ERROR T106,13,[4],A,,^_
4458 <EDIT WITH BIT 12 IN D.P. DIDN'T STORE DOUBLE MARK POINTER>^
4459 060250 036 13 0 00 065274
4460 060251 035 00 0 00 060201 ERLOOP T106 ;IF ERROR, LOOP TO T106
4461
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 57
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0137
4462
4463 ;*TEST 107 - THE FOLLOWING TESTS TRY THE EXCHMD (EXCHANGE MARK AND DESTINATION
4464 ;*POINTER) OPERATOR TO MAKE SURE THAT WHEN ONLY ONE OF THOSE TWO POINTERS
4465 ;*IS A DOUBLE POINTER, THAT THE RIGHT WORDS GET SWAPPED. ALSO, THEY
4466 ;*TRY PAGE FAULTS UPON REFERENCING MARK POINTERS, OR PARTS THEREOF, TO
4467 ;*VERIFY THAT THERE ISN'T A PROBLEM OF HALF AN EXCHANGE HAPPENING BEFORE
4468 ;*A PAGE FAULT, AND THEN AN UNEXCHANGE AFTERWARDS !!
4469
4470 060252 T107: SETUP^
4471 060252 201 00 0 00 060252 MOVEI . ;GET PC
4472 060253 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
4473 060254 254 00 0 00 060301 JRST EDSKIP ;SKIP OVER TEST DRIVER.
4474
4475 ;*HERE'S THE TEST DRIVER FOR THE EXCHMD TESTS.
4476
4477 DRIVER: PUSH P,ESECT+16 ;SAVE SECTION POINTER FOR SECOND WORD OF MARK POINTE
4478 060255 261 17 0 00 033556 R.
4479 SETZM ESECT+16 ;CLEAR WORD SO REFERENCE TO SECOND WORD CAUSES FAULT
4480 060256 402 00 0 00 033556 .
4481 060257 7 010 20 1 00 030607 CONO PAG,@EPWD ;TELL HARDWARE WE'VE CHANGED THE PAGE MAP.
4482 060260 201 04 0 00 060276 MOVEI AC,DRIV2 ;RETURN ADDR IF GOT MUUO
4483 060261 202 04 0 00 030613 MOVEM AC,UUOSPC ;SET UP SPECIAL PC
4484 060262 205 04 0 00 000010 MOVSI AC,10 ;POINT EDIT AT THE "EXCHMD".
4485 060263 415 02 0 00 060270 XMOVEI B,DRIV1 ;LOAD UP RETURN ADDRESS FOR PAGE FAULT HANDLER.
4486 060264 202 02 0 00 030611 MOVEM B,PFHSPC
4487 060265 476 00 0 00 030610 SETOM PFF ;ALLOW A PAGE FAULT.
4488 060266 415 02 0 00 060273 XMOVEI B,HOMDRV ;LOAD UP RETURN ADDRESS FOR EDIT ROUTINE.
4489 XJMP 13002001 ^;GO START THE EDIT.
4490 060267 254 05 0 00 065123 XJRSTF [EXP 0,13002001]
4491
4492 060270 262 17 0 00 033556 DRIV1: POP P,ESECT+16 ;REMOVE THE FAULT CONDITION DURING EDIT.
4493 060271 7 010 20 1 00 030607 CONO PAG,@EPWD ;TELL HARDWARE.
4494 060272 254 00 0 00 054200 JRST PFHRET ;LET THE EDIT COMPLETE.
4495
4496 060273 332 00 0 00 030610 HOMDRV: SKIPE PFF ;MAKE SURE THE PAGE FAULT HAPPENED.
4497 ERROR T107,13,0,0,,^_
4498 <NO PAGE FAULT HAPPENED DURING THE EDIT INSTRUCTION>^
4499 060274 036 13 0 00 065310
4500 060275 035 00 0 00 060252 ERLOOP T107 ;IF ERROR, LOOP TO T107
4501
4502 060276 332 00 0 00 030610 DRIV2: SKIPE PFF ;IF A UUO WAS OK FINISH UP
4503 060277 262 17 0 00 033556 POP P,ESECT+16 ;FIX STACK FOR WHEN PAGE FAULT DOESN'T HAPPEN.
4504 060300 263 17 0 00 000000 POPJ P, ;RETURN TO CALLING PROGRAM.
4505
4506 060301 200 01 0 00 062632 EDSKIP: MOVE A,[BYTE(9)EXCHMD,STOP]
4507 060302 202 01 0 00 037000 MOVEM A,P2 ;STORE PATTERN STRING
4508 060303 200 07 0 00 065120 MOVE AC3,[15,,777777] ;MARK POINTER.
4509 060304 200 10 0 00 065313 MOVE AC4,[1B12+3] ;FIRST OF TWO-WORD DESTINATION POINTER.
4510 060305 205 11 0 00 000002 MOVSI AC5,2 ;SECOND WORD.
4511 060306 200 01 0 00 065314 MOVE A,[3,,2]
4512 060307 202 01 0 00 036777 MOVEM A,P3+777 ;WE'LL EXCHANGE IT WITH A SINGLE WORD MARK POINTER.
4513 060310 370 00 0 00 030614 SOS ALLOW1 ;ALLOW ONE UUO
4514 060311 260 17 0 00 060255 PUSHJ P,DRIVER ;RUN THE TEST.
4515 060312 332 00 0 00 030614 SKIPE ALLOW1
4516 ERROR T107,13,0,0,,^_
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 57-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0138
4517 <EXCHMD DSTP LONG MARK SHORT DID NOT UUO>^
4518 060313 036 13 0 00 065324
4519 060314 035 00 0 00 060252 ERLOOP T107 ;IF ERROR, LOOP TO T107
4520
4521 ; CAME AC4,[3,,2] ;MAKE SURE OLD MARK POINTER GOT LOADED AS DEST.POINTER.
4522 ; ERROR T107,13,[3,,2],AC4,,^_
4523 <EXCHMD FAILED>
4524
4525 ; MOVE A,P3+777 ;PICK UP OLD DESTINATION POINTER.
4526 ; CAME A,[1B12+3] ;MAKE SURE FIRST WORD GOT STORED.
4527 ; ERROR T107,13,[1B12+3],A,,^_
4528 <EXCHMD FAILED>
4529
4530 ; MOVE A,P4 ;CHECK SECOND WORD.
4531 ; CAME A,[2,,0]
4532 ; ERROR T107,13,[2,,0],A,,^_
4533 <EXCHMD FAILED>
4534
4535 060315 200 10 0 00 065327 MOVE AC4,[1,,2] ;NOW WE'LL TRY A SINGLE WORD DESTINATION POINTER.
4536 060316 476 00 0 00 036777 SETOM P3+777 ;AND A DOUBLE WORD MARK POINTER.
4537 060317 200 01 0 00 061354 MOVE A,[3,,4]
4538 060320 202 01 0 00 043000 MOVEM A,P4 ;SECOND WORD OF MARK POINTER.
4539 060321 476 00 0 00 030614 SETOM ALLOW1 ;ALLOW ONE UUO
4540 060322 260 17 0 00 060255 PUSHJ P,DRIVER ;RUN THE TEST.
4541 060323 332 00 0 00 030614 SKIPE ALLOW1
4542 ERROR T107,13,0,0,,^_
4543 <EXCHMD MARK LONG DSTP SHORT DID NOT UUO>^
4544 060324 036 13 0 00 065337
4545 060325 035 00 0 00 060252 ERLOOP T107 ;IF ERROR, LOOP TO T107
4546
4547 ; MOVE A,P3+777 ;PICK UP MARK POINTER THAT SHOULD HAVE BEEN STORED.
4548 ; CAME A,[1,,2]
4549 ; ERROR T107,13,[1,,2],A,,^_
4550 <EXCHMD FAILED>
4551
4552 ; AOSN AC4 ;MAKE SURE DESTINATION POINTER IS NOW -1.
4553 ; CAME AC5,[3,,4] ;AND SECOND WORD SHOULD BE CORRECT TOO.
4554 ; ERROR T107,13,[3,,4],AC5,,^_
4555 <EXCHMD FAILED>
4556
4557 060326 200 10 0 00 061145 MOVE AC4,[1B12+2] ;NOW TRY BOTH POINTERS BEING TWO WORDS.
4558 060327 200 11 0 00 061354 MOVE AC5,[3,,4]
4559 060330 200 01 0 00 065342 MOVE A,[1B12+5]
4560 060331 200 02 0 00 065343 MOVE B,[6,,7]
4561 060332 202 01 0 00 036777 MOVEM A,P3+777
4562 060333 202 02 0 00 043000 MOVEM B,P4
4563 060334 260 17 0 00 060255 PUSHJ P,DRIVER
4564 060335 316 10 0 00 065342 CAMN AC4,[1B12+5]
4565 060336 312 11 0 00 065343 CAME AC5,[6,,7]
4566 ERROR T107,13,[6,,7],AC5,,^_
4567 <EXCHMD FAILED>^
4568 060337 036 13 0 00 065347
4569 060340 035 00 0 00 060252 ERLOOP T107 ;IF ERROR, LOOP TO T107
4570
4571 060341 200 01 0 00 036777 MOVE A,P3+777
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 57-2
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0139
4572 060342 200 02 0 00 043000 MOVE B,P4 ;PICK UP MARK POINTER AS WRITTEN BY EDIT
4573 060343 312 01 0 00 061145 CAME A,[1B12+2]
4574 ERROR T107,13,[1B12+2],A,,^_
4575 <EXCHMD FAILED>^
4576 060344 036 13 0 00 065352
4577 060345 035 00 0 00 060252 ERLOOP T107 ;IF ERROR, LOOP TO T107
4578 060346 312 02 0 00 061354 CAME B,[3,,4]
4579 ERROR T107,13,[3,,4],B,,^_
4580 <EXCHMD FAILED>^
4581 060347 036 13 0 00 065355
4582 060350 035 00 0 00 060252 ERLOOP T107 ;IF ERROR, LOOP TO T107
4583
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 58
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0140
4584
4585 ;*TEST 110 - THE FOLLOWING TEST DOES A PXCT OF AN EXTEND INSTRUCTION.
4586 ;*THIS TEST ALSO MAKES SURE THAT CARRIES IN SECOND LONG BYTE POINTER
4587 ;*WORD ARE SUPPRESSED FROM BIT 6 INTO BIT 5.
4588
4589 060351 T110: SETUP^
4590 060351 201 00 0 00 060351 MOVEI . ;GET PC
4591 060352 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
4592 UPAGMP (P1,1,777)^ ;WE'LL DO DECIMAL TO BINARY WITH THE
4593 060353 201 01 0 00 035000 MOVEI A,P1
4594 060354 201 02 0 00 000001 MOVEI B,1
4595 060355 201 03 0 00 000777 MOVEI C,777
4596 060356 205 14 0 00 000001 MOVSI T3,1
4597 060357 260 17 0 00 054201 PUSHJ P,PMAPRT
4598 UPAGMP (P2,2,0)^ ;DECIMAL DIGITS FLOWING FROM SECTION 1 TO 2.
4599
4600 060360 201 01 0 00 037000 MOVEI A,P2
4601 060361 201 02 0 00 000002 MOVEI B,2
4602 060362 201 03 0 00 000000 MOVEI C,0
4603 060363 205 14 0 00 000001 MOVSI T3,1
4604 060364 260 17 0 00 054201 PUSHJ P,PMAPRT
4605 PAGMAP (P3,4,7)^ ;PAGE USED FOR SOURCE EFFECTIVE ADDRESS CALC
4606 ULATION
4607 060365 201 01 0 00 036000 MOVEI A,P3
4608 060366 201 02 0 00 000004 MOVEI B,4
4609 060367 201 03 0 00 000007 MOVEI C,7
4610 060370 205 14 0 00 000000 MOVSI T3,0
4611 060371 260 17 0 00 054201 PUSHJ P,PMAPRT
4612 060372 201 01 0 00 043000 PAGMAP (P4,7,7)^ MOVEI A,P4
4613 060373 201 02 0 00 000007 MOVEI B,7
4614 060374 201 03 0 00 000007 MOVEI C,7
4615 060375 205 14 0 00 000000 MOVSI T3,0
4616 060376 260 17 0 00 054201 PUSHJ P,PMAPRT
4617 060377 200 02 0 00 065360 MOVE B,[SIXBIT /314159/] ;THE NUMBER TO BE CONVERTED.
4618 060400 201 01 0 00 000000 MOVEI A,0
4619 060401 246 01 0 00 000022 LSHC A,22 ;GET 314 IN A AND 159 IN B.
4620 060402 202 01 0 00 035777 MOVEM A,P1+777 ;FIRST THREE DIGITS IN LOCATION 1777777
4621 060403 202 02 0 00 037000 MOVEM B,P2 ;LAST THREE IN 2000000
4622 060404 205 05 0 00 220640 MOVSI AC1,220640 ;FIRST WORD OF DOUBLE WORD BYTE POINTER.
4623 060405 200 06 0 00 065361 MOVE AC2,[1B1+-1_-6+<C>B5] ;@-1(C)
4624 060406 201 04 0 00 000006 MOVEI AC0,6 ;THERE ARE 6 DIGITS IN THE NUMBER.
4625 DMOVE AC3,[3,,4] ;INITIAL BINARY DATA THAT INST. SHOULD CLEAR AT STAR
4626 060407 120 07 0 00 061354 TUP.
4627 060410 120 01 0 00 065362 DMOVE A,[EXP 1777777,2000000] ;EFFECTIVE ADDRESSES OF SOURCE DATA.
4628 060411 124 01 0 00 036000 DMOVEM A,P3
4629 060412 200 03 0 00 065364 MOVE C,[4,,7001] ;SOURCE EFFECTIVE ADDRESS USES C AS INDEX REGISTER
4630 060413 200 01 0 00 065365 MOVE A,[EXTEND AC,A] ;INSTRUCTION TO BE PXCTED.
4631 060414 202 01 0 00 043677 MOVEM A,P4+677
4632 060415 200 01 0 00 065366 MOVE A,[PXCT 2,7677] ;INSTRUCTION TO BE TESTED.
4633 060416 202 01 0 00 043700 MOVEM A,P4+700
4634 060417 200 01 0 00 061210 MOVE A,[JRST @B] ;INSTRUCTION FOR GETTING BACK TO THE RANCH..
4635 060420 202 01 0 00 043702 MOVEM A,P4+702
4636 060421 200 01 0 00 065367 MOVE A,[CVTDBO -'0'] ;INSTRUCTION TO BE PXCTED.
4637 060422 415 02 0 00 060425 XMOVEI B,HOMILU ;ADDRESS OF THE "RANCH"!
4638 SETZM P4+701 ;THIS 0 SHOULD GET SKIPPED BY SUCCESSFUL EXTEND INST
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 58-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0141
4639 060423 402 00 0 00 043701 RUCTION
4640 060424 254 05 0 00 065370 XJRSTF [EXP PCUBIT,7007700] ;RUN THE TEST.
4641 060425 302 07 0 00 000000 HOMILU: CAIE AC3,0 ;MAKE SURE HIGH ORDER ANSWER IS 0.
4642 ERROR T110,13,[0],AC3,,^_
4643 <PXCTED DECIMAL TO BINARY INSTRUCTION GENERATED THE WRONG ANSWER>^
4644 060426 036 13 0 00 065405
4645 060427 035 00 0 00 060351 ERLOOP T110 ;IF ERROR, LOOP TO T110
4646 060430 312 10 0 00 065410 CAME AC4,[^D314159] ;MAKE SURE CORRECT NUMBER GOT GENERATED.
4647 ERROR T110,13,[^D314159],AC4,,^_
4648 <PXCTED DECIMAL TO BINARY INSTRUCTION GENERATED THE WRONG ANSWER>^
4649 060431 036 13 0 00 065411
4650 060432 035 00 0 00 060351 ERLOOP T110 ;IF ERROR, LOOP TO T110
4651
4652 CAME AC1,[220640,,] ;THE FIRST BYTE POINTER WORD SHOULDN'T HAVE CHANGED.
4653 060433 312 05 0 00 065414
4654 ERROR T110,13,[220640],AC1,,^_
4655 <PXCTED DECIMAL TO BINARY INSTRUCTION UPDATED THE SOURCE POINTER INCORRECTLY>^
4656 060434 036 13 0 00 065433
4657 060435 035 00 0 00 060351 ERLOOP T110 ;IF ERROR, LOOP TO T110
4658 060436 312 06 0 00 065436 CAME AC2,[1B1+<C>B5] ;THE SECOND WORD SHOULD POINT TO SECTION 2 NOW.
4659 ERROR T110,13,[1B1+<C>B5],AC2,,^_
4660 <PXCTED DECIMAL TO BINARY INSTRUCTION UPDATED THE SOURCE POINTER INCORRECTLY>^
4661 060437 036 13 0 00 065437
4662 060440 035 00 0 00 060351 ERLOOP T110 ;IF ERROR, LOOP TO T110
4663
4664 060441 312 04 0 00 065442 CAME AC0,[1B0] ;MAKE SURE THE LENGTH COUNTED DOWN TO 0.
4665 ERROR T110,13,[1B0],AC0,,^_
4666 <PXCTED DECIMAL TO BINARY INSTRUCTION DIDN'T EXHAUST THE DIGIT COUNT>^
4667 060442 036 13 0 00 065457
4668 060443 035 00 0 00 060351 ERLOOP T110 ;IF ERROR, LOOP TO T110
4669
4670
4671 ;*TEST 111 - HERE'S A TEST OF MOVSLJ INSTRUCTION, WITH THE DESTINATION STRING
4672 ;*BEING WRITTEN TO PREVIOUS CONTEXT WITH PXCT.
4673
4674 060444 T111: SETUP^
4675 060444 201 00 0 00 060444 MOVEI . ;GET PC
4676 060445 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
4677 PAGMAP (P1,24,2)^ ;PAGE FOR SOURCE STRING.
4678 060446 201 01 0 00 035000 MOVEI A,P1
4679 060447 201 02 0 00 000024 MOVEI B,24
4680 060450 201 03 0 00 000002 MOVEI C,2
4681 060451 205 14 0 00 000000 MOVSI T3,0
4682 060452 260 17 0 00 054201 PUSHJ P,PMAPRT
4683 UPAGMP (P2,7,7)^ ;PAGE FOR DESTINATION STRING.
4684 060453 201 01 0 00 037000 MOVEI A,P2
4685 060454 201 02 0 00 000007 MOVEI B,7
4686 060455 201 03 0 00 000007 MOVEI C,7
4687 060456 205 14 0 00 000001 MOVSI T3,1
4688 060457 260 17 0 00 054201 PUSHJ P,PMAPRT
4689 060460 200 01 0 00 065462 MOVE A,[ASCII /LOVER/] ;STRING TO BE MOVED.
4690 060461 202 01 0 00 035003 MOVEM A,P1+3
4691 PAGMAP (P3,1,0)^ ;PAGE FOR TEST PROGRAM.
4692 060462 201 01 0 00 036000 MOVEI A,P3
4693 060463 201 02 0 00 000001 MOVEI B,1
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 58-2
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0142
4694 060464 201 03 0 00 000000 MOVEI C,0
4695 060465 205 14 0 00 000000 MOVSI T3,0
4696 060466 260 17 0 00 054201 PUSHJ P,PMAPRT
4697 060467 205 12 0 00 016000 MOVSI T1,(MOVSLJ) ;INSTRUCTION BEING PXCTED.
4698 060470 200 13 0 00 064764 MOVE T2,[EXTEND AC,T1] ;INSTRUCTION FOR INVOKING MOVSLJ.
4699 060471 200 01 0 00 065463 MOVE A,[PXCT 1,T2] ;INSTRUCTION BEING TESTED.
4700 060472 202 01 0 00 036040 MOVEM A,P3+40 ;STORE TEST INSTRUCTION.
4701 060473 402 00 0 00 036041 SETZM P3+41 ;MUUO WILL HANDLE NON-SKIP ERROR.
4702 060474 200 01 0 00 061210 MOVE A,[JRST @B] ;INSTRUCTION FOR GETTING BACK TO MAIN PROGRAM.
4703 060475 202 01 0 00 036042 MOVEM A,P3+42
4704 060476 201 04 0 00 000006 MOVEI AC,6
4705 060477 201 07 0 00 000006 MOVEI AC3,6 ;STRING LENGTHS.
4706 MOVE AC1,[440740,,3] ;FIRST OF DOUBLE WORD SOURCE POINTER; RIGHT HALF IGN
4707 060500 200 05 0 00 065247 ORED.
4708 060501 200 06 0 00 065464 MOVE AC2,[24,,2003] ;POINTER TO SORCE STRING.
4709 060502 205 10 0 00 440740 MOVSI AC4,440740 ;DESTINATION POINTER IS ALSO DOUBLE WORD.
4710 060503 200 11 0 00 065465 MOVE AC5,[1B0+7010] ;SECTION # WILL BE SENT BY PCS.
4711 060504 402 00 0 00 037010 SETZM P2+10 ;START WITH 0 IN DESTINATION AREA.
4712 060505 7 010 04 0 00 000001 DATAI PAG,A ;READ CURRENT PCS.
4713 060506 201 02 0 00 000007 MOVEI B,7 ;CHANGE IT TO 7.
4714 060507 137 02 0 00 065466 DPB B,[220500,,A]
4715 060510 7 010 14 0 00 000001 DATAO PAG,A ;TELL HARDWARE ABOUT THE CHANGE.
4716 060511 415 02 0 00 060513 XMOVEI B,HOMSH ;LOAD UP RETURN ADDRESS.
4717 060512 254 05 0 00 065467 XJRSTF [EXP PCUBIT!7,1000040] ;TURN ON PCU ANDJUMP TO TEST PROGRAM.
4718 060513 200 01 0 00 037010 HOMSH: MOVE A,P2+10 ;READ STRING THAT WAS TO GET WRITTEN.
4719 060514 312 01 0 00 065462 CAME A,[ASCII /LOVER/]
4720 ERROR T111,13,[ASCII /LOVER/],A,,^_
4721 <PXCT 1,MOVSLJ FAILED>^
4722 060515 036 13 0 00 065475
4723 060516 035 00 0 00 060444 ERLOOP T111 ;IF ERROR, LOOP TO T111
4724
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 59
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0143
4725
4726 ;*TEST 112 - THE FOLLOWING TESTS MAKE SURE THAT MUUOS WORK PROPERLY, AND CAUSE
4727 ;*VARIOUS DATA TO GET STORED CORRECTLY.
4728
4729 060517 T112: SETUP^
4730 060517 201 00 0 00 060517 MOVEI . ;GET PC
4731 060520 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
4732 UPAGMP (P1,7,10)^ ;NON-0 SECTION PAGE FOR MUUO PROGRAM.
4733 060521 201 01 0 00 035000 MOVEI A,P1
4734 060522 201 02 0 00 000007 MOVEI B,7
4735 060523 201 03 0 00 000010 MOVEI C,10
4736 060524 205 14 0 00 000001 MOVSI T3,1
4737 060525 260 17 0 00 054201 PUSHJ P,PMAPRT
4738 060526 402 00 0 00 034424 SETZM MCODE
4739 060527 402 00 0 00 034425 SETZM MOLDPC
4740 060530 402 00 0 00 034426 SETZM MADDR ;CLEAR OUT MUUO INFO WORDS.
4741 PREV (X,12)^ ;TURN OFF PCU BIT AND SET PCS = 12
4742 060531 261 17 0 00 000001 PUSH P,A
4743 060532 261 17 0 00 000002 PUSH P,B
4744 060533 254 14 0 00 000001 SFM A
4745 060534 621 01 0 00 004000 IFIDN <X> <X>, < TLZ A,(PCUBIT)
4746 060535 415 02 0 00 060537 XMOVEI B,.+2
4747 060536 254 05 0 00 000001 XJRSTF A
4748 060537 201 01 0 00 000012 MOVEI A,12
4749 060540 137 01 0 00 064464 DPB A,[220500,,UPWD]
4750 060541 7 010 14 0 00 030606 DATAO PAG,UPWD
4751 060542 262 17 0 00 000002 POP P,B
4752 060543 262 17 0 00 000001 POP P,A
4753 060544 200 04 0 00 065500 MOVE AC,[1B0+2] ;EFFECTIVE ADDRESS OF MUUO WILL BE AC 2
4754 060545 200 01 0 00 065501 MOVE A,[44B8+4B12+@AC] ;OPCODE IS 44, AC FIELD IS 4, E IS 1,,2.
4755 060546 202 01 0 00 035027 MOVEM A,P1+27 ;STORE MUUO TO BE EXECUTED.
4756 060547 7 010 04 0 00 000001 DATAI PAG,A ;GET PREVIOUS AC BLOCK #.
4757 060550 201 02 0 00 000005 MOVEI B,5 ;WE WANT TO SET IT TO 5.
4758 060551 137 02 0 00 065502 DPB B,[300300,,A] ;SET PREVIOUS AC BLOCK #
4759 MOVEI B,12 ;WANT TO SET PCS FOR MUUO TO STORE IN PROCESS CONTEX
4760 060552 201 02 0 00 000012 T WORD.
4761 060553 137 02 0 00 065466 DPB B,[220500,,A]
4762 060554 7 010 14 0 00 000001 DATAO PAG,A ;TO 5.
4763 060555 415 02 0 00 060562 XMOVEI B,HOMMUO ;LOAD UP RETURN ADDRESS.
4764 060556 202 02 0 00 030613 MOVEM B,UUOSPC ;SET UP RETURN ADDRESS FOR MUUO.
4765 SETZM MINFO ;START WITH 0 IN WORD MICROCODE IS SUPPOSED TO FILL.
4766 060557 402 00 0 00 034427
4767 060560 476 00 0 00 030614 SETOM ALLOW1 ;ALLOW ONE MUUO.
4768 060561 254 05 0 00 065503 XJRSTF [EXP 750140B17,7010027] ;ENTER USER MODE AND RUN TEST.
4769 060562 261 17 0 00 034424 HOMMUO: PUSH P,MCODE ;SAVE DATA AS SET UP BY UCODE BECAUSE OF MUUO.
4770 060563 261 17 0 00 034425 PUSH P,MOLDPC ;THIS MUST BE DONE BECAUSE MUUO USED TO
4771 060564 261 17 0 00 034426 PUSH P,MADDR ;GET US BACK INTO EXEC MODE
4772 060565 261 17 0 00 034427 PUSH P,MINFO ;WILL CLOBBER THIS DATA BEFORE WE'VE VERIFIED IT !
4773 060566 265 01 0 00 060567 JSP A,.+1 ;SAVE PC FLAGS TOO.
4774 060567 076 00 0 00 000000 GOEXEC ;NOW RETURN TO EXEC MODE.
4775 060570 135 02 0 00 065505 LDB B,[220500,,MINFO] ;GET PCS AS SET UP BY MUUO.
4776 CAIE B,7 ;MAKE SURE IT'S THE SECTION IN WHICH MUUO WAS EXECUT
4777 060571 302 02 0 00 000007 ED.
4778 ERROR T112,13,[7],B,,^_
4779 <MUUO DIDN'T SET UP PCS CORRECTLY>^
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 59-1
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0144
4780 060572 036 13 0 00 065514
4781 060573 035 00 0 00 060517 ERLOOP T112 ;IF ERROR, LOOP TO T112
4782
4783 060574 262 17 0 00 000004 POP P,AC
4784 060575 262 17 0 00 000005 POP P,AC1
4785 060576 262 17 0 00 000006 POP P,AC2
4786 060577 262 17 0 00 000007 POP P,AC3 ;RETRIEVE MUUO DATA.
4787 060600 554 01 0 00 000001 HLRZ A,A ;GET PC FLAGS AS SET BY MUUO
4788 060601 302 01 0 00 004000 CAIE A,(PCUBIT) ;PREVIOUS CONTEXT USER BIT ONLY SHOULD BE ON.
4789 ERROR T112,13,0,A,,^_
4790 <MUUO DIDN'T SET UP PCU BIT IN PC FLAGS>^
4791 060602 036 13 0 00 065526
4792 060603 035 00 0 00 060517 ERLOOP T112 ;IF ERROR, LOOP TO T112
4793
4794 060604 312 07 0 00 065531 CAME AC3,[750140B17+44B26+4B30] ;CHECK STORED PC FLAGS,OPCODE,AC FIELD.
4795 ERROR T112,13,[750140B17+44B26+4B30],AC3,,^_
4796 <MUUO IN NON-0 SECTION STORED WRONG INFO IN UPT+424>^
4797 060605 036 13 0 00 065543
4798 060606 035 00 0 00 060517 ERLOOP T112 ;IF ERROR, LOOP TO T112
4799
4800 060607 312 06 0 00 065546 CAME AC2,[7010030]
4801 ERROR T112,13,[7010030],AC2,,^_
4802 <MUUO IN NON-0 SECTION STORED THE WRONG PC>^
4803 060610 036 13 0 00 065556
4804 060611 035 00 0 00 060517 ERLOOP T112 ;IF ERROR, LOOP TO T112
4805
4806 060612 312 05 0 00 065327 CAME AC1,[1,,2] ;MAKE SURE IT'S SECTION INDEPENDENT AC POINTER.
4807 ERROR T112,13,[1,,2],AC1,,^_
4808 <MUUO STORED INCORRECT EFFECTIVE ADDRESS>^
4809 060613 036 13 0 00 065570
4810 060614 035 00 0 00 060517 ERLOOP T112 ;IF ERROR, LOOP TO T112
4811
4812 060615 312 04 0 00 065573 CAME AC,[6B2+<OURACS>B8+5B11+12B17+UPTPN]
4813 ERROR T112,13,[6B2+<OURACS>B8+5B11+12B17+UPTPN],AC,,^_
4814 <MUUO DIDN'T SET UP PROCESS CONTEXT WORD CORRECTLY>^
4815 060616 036 13 0 00 065605
4816 060617 035 00 0 00 060517 ERLOOP T112 ;IF ERROR, LOOP TO T112
4817
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 60
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0145
4818
4819 ;*TEST 113 - HERE'S THE TEST FOR LUUO'S.
4820 ;*THIS ONE DOES AN LUUO IN EXEC MODE.
4821
4822 060620 T113: SETUP^
4823 060620 201 00 0 00 060620 MOVEI . ;GET PC
4824 060621 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
4825 PAGMAP (P1,14,4)^ ;PAGE FOR OUR LUUO.
4826 060622 201 01 0 00 035000 MOVEI A,P1
4827 060623 201 02 0 00 000014 MOVEI B,14
4828 060624 201 03 0 00 000004 MOVEI C,4
4829 060625 205 14 0 00 000000 MOVSI T3,0
4830 060626 260 17 0 00 054201 PUSHJ P,PMAPRT
4831 060627 200 01 0 00 065610 MOVE A,[3B8+4B12+@4000] ;LUUO TO BE EXECUTED.
4832 060630 202 01 0 00 035666 MOVEM A,P1+666 ;PUT IT IN LOCATION 14004666
4833 060631 200 01 0 00 065611 MOVE A,[<C>B5+-3_6_-6] ;MOVE A,[-3(C)] LONG STYLE
4834 MOVEM A,P1 ;EFFECTIVE ADDRESS CALCULATION OF LUUO USES THIS WOR
4835 060632 202 01 0 00 035000 D.
4836 060633 200 03 0 00 065612 MOVE C,[4,,20] ;E WILL BE 4,,15 FOR THIS LUUO.
4837 060634 415 02 0 00 060645 XMOVEI B,HOMLUO ;LOAD UP RETURN ADDRESS
4838 060635 202 02 0 00 030603 MOVEM B,ALOHA ;FOR LUUO HANDLER ADDRESS.
4839 060636 201 01 0 00 030600 MOVEI A,UUOCOD ;GET ADDRESS OF FOUR WORD LUUO INFORMATION BLOCK.
4840 060637 202 01 0 00 033420 MOVEM A,UUOPTR ;PUT IT WHERE MICROCODE EXPECTS IT.
4841 060640 402 00 0 00 034420 SETZM ULPTR ;CLEAR THE USER MODE LUUP POINTER.
4842 060641 402 00 0 00 030600 SETZM UUOCOD ;CLEAR WORD WHICH WILL CONTAIN UUO OPCODE.
4843 060642 402 00 0 00 030601 SETZM UUOPC ;AND THE ONE TO CONTAIN THE PC.
4844 060643 402 00 0 00 030602 SETZM UUOE ;AND THE ONE FOR THE EFFECTIVE ADDRESS
4845 060644 254 05 0 00 065613 XJRSTF [EXP 740140B17,14004666] ;JUMP TO THE LUUO !
4846 060645 120 01 0 00 030600 HOMLUO: DMOVE A,UUOCOD ;PICK UP TWO WORDS THAT SHOULD HAVE GOTTEN SET UP.
4847 060646 312 01 0 00 065615 CAME A,[740140B17+3B26+4B30]
4848 ERROR T113,13,[740140B17+3B26+4B30],A,,^_
4849 <LUUO STORED THE WRONG DATA>^
4850 060647 036 13 0 00 065623
4851 060650 035 00 0 00 060620 ERLOOP T113 ;IF ERROR, LOOP TO T113
4852 060651 312 02 0 00 065626 CAME B,[14004667] ;MAKE SURE CORRECT PC GOT STORED.
4853 ERROR T113,13,[14004667],B,,^_
4854 <LUUO STORED THE WRONG DATA>^
4855 060652 036 13 0 00 065627
4856 060653 035 00 0 00 060620 ERLOOP T113 ;IF ERROR, LOOP TO T113
4857
4858 060654 200 01 0 00 030602 MOVE A,UUOE ;PICK UP STORED LUUO EFFECTIVE ADDRESS.
4859 060655 312 01 0 00 065632 CAME A,[4,,15] ;SKIP IF CORRECT EFFECTIVE ADDRESS GOT STORED.
4860 ERROR T113,13,[4,,15],A,,^_
4861 <LUUO CAUSED THE WRONG EFFECTIVE ADDRESS TO GET STORED>^
4862 060656 036 13 0 00 065644
4863 060657 035 00 0 00 060620 ERLOOP T113 ;IF ERROR, LOOP TO T113
4864
4865 060660 265 01 0 00 060661 JSP A,.+1 ;CHECK PC FLAGS.
4866 060661 312 01 0 00 065647 CAME A,[740140B17+.]
4867 ERROR T113,13,[740140B17+.],A,,^_
4868 <LUUO CLOBBERED PC FLAGS>^
4869 060662 036 13 0 00 065655
4870 060663 035 00 0 00 060620 ERLOOP T113 ;IF ERROR, LOOP TO T113
4871
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 61
DFKEDM MAC 9-Apr-84 13:21 ACTUAL TESTS SEQ 0146
4872
4873 ;*TEST 116 - NOW WE'LL TRY AN LUUO IN USER MODE.
4874
4875 060664 T116: SETUP^
4876 060664 201 00 0 00 060664 MOVEI . ;GET PC
4877 060665 202 00 0 00 030051 MOVEM TESTPC ;SAVE IT
4878 UPAGMP (P1,14,4)^ ;PAGE FOR OUR LUUO.
4879 060666 201 01 0 00 035000 MOVEI A,P1
4880 060667 201 02 0 00 000014 MOVEI B,14
4881 060670 201 03 0 00 000004 MOVEI C,4
4882 060671 205 14 0 00 000001 MOVSI T3,1
4883 060672 260 17 0 00 054201 PUSHJ P,PMAPRT
4884 060673 200 01 0 00 065610 MOVE A,[3B8+4B12+@4000] ;LUUO TO BE EXECUTED.
4885 060674 202 01 0 00 035666 MOVEM A,P1+666 ;PUT IT IN LOCATION 14004666
4886 060675 200 01 0 00 064462 MOVE A,[-3&<<C>B5>] ;MOVE A,[-3(C)] LONG STYLE
4887 MOVEM A,P1 ;EFFECTIVE ADDRESS CALCULATION OF LUUO USES THI WORD
4888 060676 202 01 0 00 035000 .
4889 060677 200 03 0 00 065612 MOVE C,[4,,20] ;E WILL BE 4,,20 FOR THIS LUUO.
4890 060700 415 02 0 00 060711 XMOVEI B,HOMLUU ;LOAD UP RETURN ADDRESS
4891 060701 202 02 0 00 030603 MOVEM B,ALOHA ;FOR LUUO HANDLER ADDRESS.
4892 060702 201 01 0 00 030600 MOVEI A,UUOCOD ;GET ADDRESS OF FOUR WORD LUUO INFORMATION BLOCK.
4893 060703 202 01 0 00 034420 MOVEM A,ULPTR ;PUT IT WHERE MICROCODE EXPECTS IT.
4894 060704 402 00 0 00 033420 SETZM UUOPTR ;CLEAR THE EXEC MODE UUO POINTER.
4895 060705 402 00 0 00 030600 SETZM UUOCOD ;CLEAR WORD WHICH WILL CONTAIN UUO OPCODE.
4896 060706 402 00 0 00 030601 SETZM UUOPC ;AND THE ONE TO CONTAIN THE PC.
4897 060707 402 00 0 00 030602 SETZM UUOE ;AND THE ONE FOR THE EFFECTIVE ADDRESS
4898 060710 254 05 0 00 065660 XJRSTF [EXP USRBIT,14004666] ;JUMP TO THE LUUO(AND TURN ON USER MODE) !
4899 060711 076 00 0 00 000000 HOMLUU: GOEXEC ;RETURN TO EXEC MODE.
4900 060712 120 01 0 00 030600 DMOVE A,UUOCOD ;PICK UP TWO WORDS THAT SHOULD HAVE GOTTEN SET UP.
4901 060713 312 01 0 00 065662 CAME A,[USRBIT+3B26+4B30]
4902 ERROR T116,13,[USRBIT+3B26+4B30],A,,^_
4903 <LUUO STORED THE WRONG DATA>^
4904 060714 036 13 0 00 065663
4905 060715 035 00 0 00 060664 ERLOOP T116 ;IF ERROR, LOOP TO T116
4906 060716 312 02 0 00 065626 CAME B,[14004667] ;MAKE SURE CORRECT PC GOT STORED.
4907 ERROR T116,13,[14004667],B,,^_
4908 <LUUO STORED THE WRONG DATA>^
4909 060717 036 13 0 00 065627
4910 060720 035 00 0 00 060664 ERLOOP T116 ;IF ERROR, LOOP TO T116
4911
4912 060721 200 01 0 00 030602 MOVE A,UUOE ;PICK UP STORED LUUO EFFECTIVE ADDRESS.
4913 060722 312 01 0 00 065612 CAME A,[4,,20] ;SKIP IF CORRECT EFFECTIVE ADDRESS GOT STORED.
4914 ERROR T116,13,[4,,20],A,,^_
4915 <LUUO CAUSED THE WRONG EFFECTIVE ADDRESS TO GET STORED>^
4916 060723 036 13 0 00 065666
4917 060724 035 00 0 00 060664 ERLOOP T116 ;IF ERROR, LOOP TO T116
4918
4919 060725 263 17 0 00 000000 POPJ P, ;END OF TESTS.
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0147
4920 SUBTTL *STOR* RESERVED STORAGE, SEPT 18,1979
4921
4922 ;PROGRAM LITERALS
4923
4924 XLIST
4925 IFNDEF $LPAPER,<LIST>
4926 060726 LIT
4927 060726 600000 040000
4928 060727 015 012 105 111 124
4929 060730 110 105 122 040 124
4930 060731 110 111 123 040 111
4931 060732 123 040 101 040 115
4932 060733 117 104 105 114 040
4933 060734 042 101 042 040 115
4934 060735 101 103 110 111 116
4935 060736 105 040 117 122 040
4936 060737 111 115 120 122 117
4937 060740 120 105 122 040 115
4938 060741 111 103 122 117 103
4939 060742 117 104 105 040 114
4940 060743 117 101 104 105 104
4941 060744 054 015 012 115 111
4942 060745 103 122 117 103 117
4943 060746 104 105 040 123 110
4944 060747 117 125 114 104 040
4945 060750 102 105 040 042 113
4946 060751 114 130 056 122 101
4947 060752 115 042 040 101 116
4948 060753 104 040 115 117 104
4949 060754 105 114 040 042 102
4950 060755 042 040 115 101 103
4951 060756 110 111 116 105 040
4952 060757 127 111 124 110 040
4953 060760 105 130 124 105 116
4954 060761 104 105 104 040 101
4955 060762 104 104 122 105 123
4956 060763 123 111 116 107 056
4957 060764 015 012 000 000 000
4958 060765 015 012 101 120 122
4959 060766 111 104 075 000 000
4960 060767 015 012 124 110 105
4961 060770 040 113 114 130 056
4962 060771 122 101 115 040 115
4963 060772 111 103 122 117 103
4964 060773 117 104 105 040 115
4965 060774 125 123 124 040 102
4966 060775 105 040 126 105 122
4967 060776 123 111 117 116 040
4968 060777 062 062 066 040 117
4969 061000 122 040 117 126 105
4970 061001 122 040 041 015 012
4971 061002 000 000 000 000 000
4972 061003 033540 033541
4973 061004 034540 034541
4974 061005 124000 000044
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-1
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0148
4975 061006 031000 031001
4976 061007 054000 054001
4977 061010 044000 044001
4978 061011 045000 045001
4979 061012 124000 000033
4980 061013 007000 017777
4981 061014 002000 000034
4982 061015 034430 034431
4983 061016 111100 034424
4984 061017 12 45 70 64 45 56
4985 061020 44 45 44 00 41 44
4986 061021 44 62 45 63 63 51
4987 061022 56 47 00 64 45 63
4988 061023 64 12 77 00 00 00
4989 061024 51 54 54 45 47 41
4990 061025 54 00 55 65 65 57
4991 061026 00 45 70 45 43 65
4992 061027 64 45 44 77 00 00
4993 061030 44 51 41 47 16 00
4994 061031 67 51 54 54 00 54
4995 061032 57 57 60 00 57 56
4996 061033 00 64 45 63 64 77
4997 061034 061017 061024
4998 061035 000000 000000
4999 061036 061030 054140
5000 061037 015 012 102 101 104
5001 061040 125 125 117 040 127
5002 061041 101 123 040 105 130
5003 061042 105 103 125 124 105
5004 061043 104 040 106 122 117
5005 061044 115 040 124 105 123
5006 061045 124 043 040 000 000
5007 061046 077 102 101 104 040
5008 061047 115 125 125 117 040
5009 061050 101 124 040 120 103
5010 061051 040 000 000 000 000
5011 061052 261 17 0 00 000000
5012 061053 201 00 0 00 061046
5013 061054 037 17 0 00 000000
5014 061055 262 17 0 00 000000
5015 061056 263 17 0 00 000000
5016 061057 261 17 0 00 000000
5017 061060 200 00 0 00 034425
5018 061061 037 13 0 00 000000
5019 061062 037 00 0 00 000040
5020 061063 262 17 0 00 000000
5021 061064 263 17 0 00 000000
5022 061065 51 54 54 45 47 41
5023 061066 54 00 60 41 47 45
5024 061067 00 46 41 65 54 64
5025 061070 77 00 00 00 00 00
5026 061071 061017 061065
5027 061072 000000 000000
5028 061073 061030 054166
5029 061074 015 012 102 101 104
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-2
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0149
5030 061075 040 120 101 107 105
5031 061076 040 106 101 125 114
5032 061077 124 040 127 101 123
5033 061100 040 105 130 105 103
5034 061101 125 124 105 104 040
5035 061102 106 122 117 115 040
5036 061103 124 105 123 124 043
5037 061104 040 000 000 000 000
5038 061105 077 120 106 127 040
5039 061106 075 040 000 000 000
5040 061107 261 17 0 00 000000
5041 061110 201 00 0 00 061105
5042 061111 037 17 0 00 000000
5043 061112 262 17 0 00 000000
5044 061113 263 17 0 00 000000
5045 061114 261 17 0 00 000000
5046 061115 200 00 0 00 034500
5047 061116 037 13 0 00 000000
5048 061117 037 00 0 00 000040
5049 061120 262 17 0 00 000000
5050 061121 263 17 0 00 000000
5051 061122 056 040 040 120 103
5052 061123 040 075 040 000 000
5053 061124 261 17 0 00 000000
5054 061125 201 00 0 00 061122
5055 061126 037 17 0 00 000000
5056 061127 262 17 0 00 000000
5057 061130 263 17 0 00 000000
5058 061131 261 17 0 00 000000
5059 061132 200 00 0 00 034502
5060 061133 037 13 0 00 000000
5061 061134 037 00 0 00 000040
5062 061135 262 17 0 00 000000
5063 061136 263 17 0 00 000000
5064 061137 12 45 70 64 45 56
5065 061140 44 45 44 00 41 44
5066 061141 44 62 45 63 63 51
5067 061142 56 47 00 64 45 63
5068 061143 64 63 12 77 00 00
5069 061144 000000 000000
5070 061145 000040 000002
5071 061146 56 57 00 60 41 47
5072 061147 45 00 46 41 65 54
5073 061150 64 00 50 41 60 60
5074 061151 45 56 45 44 00 67
5075 061152 50 45 56 00 64 62
5076 061153 71 51 56 47 00 64
5077 061154 57 00 52 65 55 60
5078 061155 00 51 56 64 57 00
5079 061156 64 57 57 00 54 41
5080 061157 62 47 45 00 41 00
5081 061160 63 45 43 64 51 57
5082 061161 56 77 00 00 00 00
5083 061162 061137 061070
5084 061163 000000 000000
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-3
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0150
5085 061164 061146 000000
5086 061165 360600 034500
5087 061166 000000 000027
5088 061167 67 62 57 56 47 00
5089 061170 60 41 47 45 00 46
5090 061171 41 51 54 00 43 57
5091 061172 44 45 00 47 57 64
5092 061173 00 63 64 57 62 45
5093 061174 44 00 65 60 57 56
5094 061175 00 64 62 71 51 56
5095 061176 47 00 64 57 00 52
5096 061177 65 55 60 00 64 57
5097 061200 00 64 57 57 00 54
5098 061201 41 62 47 45 00 41
5099 061202 00 63 45 43 64 51
5100 061203 57 56 77 00 00 00
5101 061204 061137 061070
5102 061205 061166 000001
5103 061206 061167 000000
5104 061207 200 01 0 00 407500
5105 061210 254 00 1 00 000002
5106 061211 000000 000000
5107 061212 000013 407600
5108 061213 000000 012435
5109 061214 63 51 55 60 54 45
5110 061215 00 55 45 55 57 62
5111 061216 71 00 46 45 64 43
5112 061217 50 00 46 41 51 54
5113 061220 45 44 77 00 00 00
5114 061221 061137 061070
5115 061222 061213 000001
5116 061223 061214 000000
5117 061224 200 01 0 02 777700
5118 061225 254 00 1 00 000003
5119 061226 000000 000000
5120 061227 000013 407302
5121 061230 000000 005555
5122 061231 56 45 47 41 64 51
5123 061232 66 45 00 54 57 43
5124 061233 41 54 00 51 56 44
5125 061234 45 70 51 56 47 00
5126 061235 46 41 51 54 45 44
5127 061236 77 00 00 00 00 00
5128 061237 061137 061070
5129 061240 061230 000001
5130 061241 061231 000000
5131 061242 202622 077323
5132 061243 200 01 0 02 003000
5133 061244 254 00 1 00 000003
5134 061245 400525 404067
5135 061246 000000 000000
5136 061247 000013 407050
5137 061250 60 57 63 51 64 51
5138 061251 66 45 00 54 57 43
5139 061252 41 54 00 67 62 41
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-4
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0151
5140 061253 60 41 62 57 65 56
5141 061254 44 00 51 56 44 45
5142 061255 70 00 46 41 51 54
5143 061256 45 44 77 00 00 00
5144 061257 061137 061070
5145 061260 061242 000001
5146 061261 061250 000000
5147 061262 200 01 0 01 000100
5148 061263 254 00 1 00 000002
5149 061264 400 00 0 00 000001
5150 061265 000025 777720
5151 061266 000000 000000
5152 061267 000026 000100
5153 061270 60 57 63 51 64 51
5154 061271 66 45 00 47 54 57
5155 061272 42 41 54 00 51 56
5156 061273 44 45 70 00 46 41
5157 061274 51 54 45 44 77 00
5158 061275 061137 061070
5159 061276 061264 000001
5160 061277 061270 000000
5161 061300 000007 654321
5162 061301 000026 000000
5163 061302 56 45 47 41 64 51
5164 061303 66 45 00 47 54 57
5165 061304 42 41 54 00 51 56
5166 061305 44 45 70 51 56 47
5167 061306 00 46 41 51 54 45
5168 061307 44 77 00 00 00 00
5169 061310 061137 061070
5170 061311 061300 000001
5171 061312 061302 000000
5172 061313 525252 525252
5173 061314 414141 000007
5174 061315 200 01 1 03 035123
5175 061316 254 00 1 00 000002
5176 061317 000027 000471
5177 061320 000000 000000
5178 061321 000026 035450
5179 061322 51 46 51 67 63 00
5180 061323 44 57 56 07 64 00
5181 061324 67 57 62 53 00 43
5182 061325 57 62 62 45 43 64
5183 061326 54 71 77 00 00 00
5184 061327 061137 061070
5185 061330 061313 000001
5186 061331 061322 000000
5187 061332 010000 400004
5188 061333 000014 777444
5189 061334 200 01 1 03 777700
5190 061335 254 00 1 00 000002
5191 061336 000015 000050
5192 061337 000000 000000
5193 061340 000037 050407
5194 061341 45 46 51 67 63 00
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-5
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0152
5195 061342 67 51 64 50 00 42
5196 061343 51 64 00 21 00 57
5197 061344 46 46 00 41 62 45
5198 061345 56 07 64 00 67 57
5199 061346 62 53 51 56 47 00
5200 061347 43 57 62 62 45 43
5201 061350 64 54 71 77 00 00
5202 061351 061137 061070
5203 061352 061333 000001
5204 061353 061341 000000
5205 061354 000003 000004
5206 061355 45 46 51 67 63 00
5207 061356 67 51 64 50 00 42
5208 061357 51 64 00 21 00 57
5209 061360 56 00 44 57 56 07
5210 061361 64 00 67 57 62 53
5211 061362 00 60 62 57 60 45
5212 061363 62 54 71 77 00 00
5213 061364 061137 061070
5214 061365 061354 000001
5215 061366 061355 000000
5216 061367 42 51 64 63 00 20
5217 061370 00 41 56 44 00 21
5218 061371 00 42 57 64 50 00
5219 061372 57 56 00 51 56 00
5220 061373 51 56 44 51 62 45
5221 061374 43 64 00 67 57 62
5222 061375 44 00 44 51 44 56
5223 061376 07 64 00 43 41 65
5224 061377 63 45 00 41 00 60
5225 061400 41 47 45 00 46 41
5226 061401 51 54 77 00 00 00
5227 061402 061137 061070
5228 061403 000000 000000
5229 061404 061367 000000
5230 061405 240014 777750
5231 061406 241014 777750
5232 061407 62 45 46 45 62 45
5233 061410 56 43 51 56 47 00
5234 061411 64 57 57 00 54 41
5235 061412 62 47 45 00 41 00
5236 061413 63 45 43 64 51 57
5237 061414 56 00 43 41 65 63
5238 061415 45 44 00 64 50 45
5239 061416 00 67 62 57 56 47
5240 061417 00 60 41 47 45 00
5241 061420 46 41 51 54 00 67
5242 061421 57 62 44 00 64 57
5243 061422 00 42 45 00 63 45
5244 061423 64 00 65 60 77 00
5245 061424 061137 061070
5246 061425 061406 000001
5247 061426 061407 000000
5248 061427 600020 035300
5249 061430 200 01 1 00 040123
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-6
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0153
5250 061431 254 00 1 00 000002
5251 061432 200000 035400
5252 061433 033333 055555
5253 061434 000003 000001
5254 061435 000000 000000
5255 061436 000001 040601
5256 061437 333333 555555
5257 061440 51 56 44 51 62 45
5258 061441 43 64 00 67 57 62
5259 061442 44 00 67 51 64 50
5260 061443 00 42 51 64 63 00
5261 061444 20 00 41 56 44 00
5262 061445 21 00 42 57 64 50
5263 061446 00 57 56 00 51 56
5264 061447 00 63 45 43 64 51
5265 061450 57 56 00 20 00 44
5266 061451 51 44 56 07 64 00
5267 061452 67 57 62 53 00 62
5268 061453 51 47 50 64 16 77
5269 061454 061137 061070
5270 061455 061437 000001
5271 061456 061440 000000
5272 061457 200 01 1 00 300500
5273 061460 254 00 1 00 000002
5274 061461 200000 000013
5275 061462 000014 036765
5276 061463 000123 000456
5277 061464 000000 000000
5278 061465 000020 300400
5279 061466 51 56 44 51 62 45
5280 061467 43 64 51 57 56 00
5281 061470 64 50 62 57 65 47
5282 061471 50 00 63 45 43 64
5283 061472 51 57 56 00 20 00
5284 061473 42 71 00 67 41 71
5285 061474 00 57 46 00 41 56
5286 061475 00 41 43 00 46 41
5287 061476 51 54 45 44 77 00
5288 061477 061137 061070
5289 061500 061463 000001
5290 061501 061466 000000
5291 061502 200001 000013
5292 061503 000000 000007
5293 061504 64 45 63 64 00 46
5294 061505 41 51 54 45 44 00
5295 061506 64 50 41 64 00 64
5296 061507 62 51 45 44 00 64
5297 061510 57 00 51 56 44 51
5298 061511 62 45 43 64 00 64
5299 061512 50 62 57 65 47 50
5300 061513 00 41 56 00 41 43
5301 061514 00 67 51 64 50 57
5302 061515 65 64 00 47 57 51
5303 061516 56 47 00 51 56 64
5304 061517 57 00 63 45 43 16
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-7
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0154
5305 061520 00 20 77 00 00 00
5306 061521 061137 061070
5307 061522 061503 000001
5308 061523 061504 000000
5309 061524 200000 037200
5310 061525 51 56 44 51 62 45
5311 061526 43 64 51 57 56 00
5312 061527 64 50 62 57 65 47
5313 061530 50 00 63 45 43 64
5314 061531 51 57 56 00 20 00
5315 061532 56 57 64 00 42 71
5316 061533 00 67 41 71 00 57
5317 061534 46 00 41 56 00 41
5318 061535 43 00 46 41 51 54
5319 061536 45 44 77 00 00 00
5320 061537 061137 061070
5321 061540 061463 000001
5322 061541 061525 000000
5323 061542 201 01 1 00 017010
5324 061543 000000 000000
5325 061544 000017 017020
5326 061545 000000 000456
5327 061546 51 55 55 45 44 51
5328 061547 41 64 45 00 51 56
5329 061550 63 64 62 65 43 64
5330 061551 51 57 56 00 51 56
5331 061552 00 56 57 56 15 20
5332 061553 00 63 45 43 64 51
5333 061554 57 56 00 46 41 51
5334 061555 54 45 44 77 00 00
5335 061556 061137 061070
5336 061557 061545 000001
5337 061560 061546 000000
5338 061561 200 01 1 00 000003
5339 061562 254 00 1 00 000002
5340 061563 000020 000012
5341 061564 000000 000000
5342 061565 000013 444100
5343 061566 000000 000111
5344 061567 45 62 62 57 62 00
5345 061570 64 62 71 51 56 47
5346 061571 00 64 57 00 62 45
5347 061572 41 44 00 63 50 41
5348 061573 44 57 67 00 55 45
5349 061574 55 57 62 71 77 00
5350 061575 061137 061070
5351 061576 061566 000001
5352 061577 061567 000000
5353 061600 000001 000012
5354 061601 000000 000222
5355 061602 41 00 44 51 44 00
5356 061603 56 57 64 00 43 57
5357 061604 56 64 41 51 56 00
5358 061605 22 22 22 00 41 46
5359 061606 64 45 62 00 02 55
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-8
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0155
5360 061607 57 66 45 00 41 14
5361 061610 40 43 02 00 67 41
5362 061611 63 00 45 70 45 43
5363 061612 65 64 45 44 00 51
5364 061613 56 00 63 45 43 64
5365 061614 51 57 56 00 21 23
5366 061615 14 76 43 00 50 41
5367 061616 44 00 02 21 14 14
5368 061617 64 21 02 14 00 41
5369 061620 56 44 00 64 21 00
5370 061621 50 41 44 00 22 22
5371 061622 22 00 51 56 00 51
5372 061623 64 16 77 00 00 00
5373 061624 061137 061070
5374 061625 061601 000001
5375 061626 061602 000000
5376 061627 200 01 0 00 000012
5377 061630 45 62 62 57 62 00
5378 061631 64 62 71 51 56 47
5379 061632 00 64 57 00 66 45
5380 061633 62 51 46 71 00 56
5381 061634 57 56 15 45 70 51
5382 061635 63 64 45 56 43 45
5383 061636 00 57 46 00 63 45
5384 061637 43 64 51 57 56 00
5385 061640 21 00 63 50 41 44
5386 061641 57 67 00 55 45 55
5387 061642 57 62 71 77 00 00
5388 061643 061137 061070
5389 061644 061601 000001
5390 061645 061630 000000
5391 061646 264 00 1 00 777770
5392 061647 000037 000012
5393 061650 000000 000000
5394 061651 000036 777250
5395 061652 52 63 62 00 64 57
5396 061653 00 63 50 41 44 57
5397 061654 67 00 55 45 55 57
5398 061655 62 71 00 43 41 65
5399 061656 63 45 44 00 51 56
5400 061657 63 64 62 65 43 64
5401 061660 51 57 56 00 46 45
5402 061661 64 43 50 00 46 62
5403 061662 57 55 00 63 50 41
5404 061663 44 57 67 00 55 45
5405 061664 55 57 62 71 77 00
5406 061665 061137 061070
5407 061666 000000 000000
5408 061667 061652 000000
5409 061670 000036 777251
5410 061671 52 63 62 00 64 57
5411 061672 00 63 50 41 44 57
5412 061673 67 00 55 45 55 57
5413 061674 62 71 00 44 51 44
5414 061675 56 07 64 00 63 64
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-9
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0156
5415 061676 57 62 45 00 60 43
5416 061677 00 43 57 62 62 45
5417 061700 43 64 54 71 77 00
5418 061701 061137 061070
5419 061702 061670 000001
5420 061703 061671 000000
5421 061704 265 01 0 00 000020
5422 061705 255 00 0 00 000000
5423 061706 000000 000000
5424 061707 000005 777777
5425 061710 000005 000001
5426 061711 60 62 57 47 62 41
5427 061712 55 00 46 54 57 67
5428 061713 00 44 51 44 56 07
5429 061714 64 00 43 57 62 62
5430 061715 45 43 64 54 71 00
5431 061716 67 62 41 60 41 62
5432 061717 57 65 56 44 00 46
5433 061720 62 57 55 00 45 56
5434 061721 44 00 57 46 00 63
5435 061722 45 43 64 51 57 56
5436 061723 00 51 56 64 57 00
5437 061724 64 50 41 64 00 63
5438 061725 45 43 64 51 57 56
5439 061726 07 63 00 41 43 07
5440 061727 63 77 00 00 00 00
5441 061730 061137 061070
5442 061731 061710 000001
5443 061732 061711 000000
5444 061733 415 01 0 00 006000
5445 061734 254 00 1 00 000002
5446 061735 000000 000000
5447 061736 000014 040200
5448 061737 000014 006000
5449 061740 70 55 57 66 45 51
5450 061741 00 41 14 26 20 20
5451 061742 20 00 51 56 00 63
5452 061743 45 43 64 51 57 56
5453 061744 00 21 24 00 60 41
5454 061745 47 45 00 24 20 00
5455 061746 44 51 44 56 07 64
5456 061747 00 60 65 64 00 21
5457 061750 24 14 14 26 20 20
5458 061751 20 00 51 56 00 41
5459 061752 16 77 00 00 00 00
5460 061753 061137 061070
5461 061754 061737 000001
5462 061755 061740 000000
5463 061756 000001 000001
5464 061757 70 55 57 66 45 51
5465 061760 00 41 14 21 00 51
5466 061761 56 00 63 45 43 64
5467 061762 51 57 56 00 21 24
5468 061763 00 44 51 44 56 07
5469 061764 64 00 60 65 64 00
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-10
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0157
5470 061765 21 14 14 21 00 51
5471 061766 56 00 41 16 77 00
5472 061767 061137 061070
5473 061770 061756 000001
5474 061771 061757 000000
5475 061772 374123 777776
5476 061773 004123 777777
5477 061774 70 55 57 66 45 51
5478 061775 00 41 14 21 10 43
5479 061776 11 00 51 56 00 63
5480 061777 45 43 64 00 21 24
5481 062000 00 67 50 45 56 00
5482 062001 43 00 43 57 56 64
5483 062002 41 51 56 45 44 00
5484 062003 23 27 42 25 13 34
5485 062004 24 21 22 23 14 14
5486 062005 15 22 36 00 44 51
5487 062006 44 56 07 64 00 62
5488 062007 45 64 65 62 56 00
5489 062010 24 21 22 23 14 14
5490 062011 15 21 16 77 00 00
5491 062012 061137 061070
5492 062013 061773 000001
5493 062014 061774 000000
5494 062015 004124 000000
5495 062016 70 55 57 66 45 51
5496 062017 00 41 14 21 10 43
5497 062020 11 00 51 56 00 63
5498 062021 45 43 64 51 57 56
5499 062022 00 21 24 00 67 50
5500 062023 45 56 00 43 00 43
5501 062024 57 56 64 41 51 56
5502 062025 45 44 00 23 27 42
5503 062026 25 13 34 24 21 22
5504 062027 23 14 14 15 21 36
5505 062030 00 44 51 44 56 07
5506 062031 64 00 62 45 64 65
5507 062032 62 56 00 24 21 22
5508 062033 24 14 14 20 77 00
5509 062034 061137 061070
5510 062035 062015 000001
5511 062036 062016 000000
5512 062037 000001 000000
5513 062040 70 55 57 66 45 51
5514 062041 00 41 14 21 10 43
5515 062042 11 00 51 56 00 63
5516 062043 45 43 64 51 57 56
5517 062044 00 21 24 00 67 50
5518 062045 45 56 00 43 00 43
5519 062046 57 56 64 41 51 56
5520 062047 45 44 00 27 27 24
5521 062050 21 22 23 14 14 15
5522 062051 21 00 44 51 44 56
5523 062052 07 64 00 62 45 64
5524 062053 65 62 56 00 21 14
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-11
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0158
5525 062054 14 20 16 77 00 00
5526 062055 061137 061070
5527 062056 062037 000001
5528 062057 062040 000000
5529 062060 000014 377777
5530 062061 70 55 57 66 45 51
5531 062062 00 41 14 24 20 20
5532 062063 20 20 20 10 43 11
5533 062064 00 51 56 00 63 45
5534 062065 43 64 51 57 56 00
5535 062066 21 24 00 67 51 64
5536 062067 50 00 27 27 24 21
5537 062070 22 23 14 14 15 21
5538 062071 00 51 56 00 43 00
5539 062072 46 41 51 54 45 44
5540 062073 00 64 57 00 60 62
5541 062074 57 44 65 43 45 00
5542 062075 21 24 14 14 23 27
5543 062076 27 27 27 27 77 00
5544 062077 061137 061070
5545 062100 062060 000001
5546 062101 062061 000000
5547 062102 415 01 1 00 000003
5548 062103 254 00 1 00 000002
5549 062104 000001 060050
5550 062105 000000 000000
5551 062106 000015 000740
5552 062107 70 55 57 66 45 51
5553 062110 00 41 14 40 43 00
5554 062111 51 56 00 63 45 43
5555 062112 64 51 57 56 00 21
5556 062113 25 00 44 51 44 00
5557 062114 56 57 64 00 71 51
5558 062115 45 54 44 00 21 14
5559 062116 14 26 20 20 25 20
5560 062117 00 67 50 45 56 00
5561 062120 43 00 43 57 56 64
5562 062121 41 51 56 45 44 00
5563 062122 21 14 14 26 20 20
5564 062123 25 20 16 77 00 00
5565 062124 061137 061070
5566 062125 062104 000001
5567 062126 062107 000000
5568 062127 200000 036776
5569 062130 200001 060050
5570 062131 000012 036700
5571 062132 000046 000005
5572 062133 000000 036705
5573 062134 70 55 57 66 45 51
5574 062135 00 51 56 00 56 57
5575 062136 56 15 20 00 63 45
5576 062137 43 64 51 57 56 00
5577 062140 67 50 57 63 45 00
5578 062141 45 46 46 45 43 64
5579 062142 51 66 45 00 41 44
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-12
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0159
5580 062143 44 62 45 63 63 00
5581 062144 43 41 54 43 65 54
5582 062145 41 64 51 57 56 00
5583 062146 45 56 64 45 62 45
5584 062147 44 00 63 45 43 64
5585 062150 51 57 56 00 20 00
5586 062151 46 41 51 54 45 44
5587 062152 16 77 00 00 00 00
5588 062153 061137 061070
5589 062154 062133 000001
5590 062155 062134 000000
5591 062156 415 01 1 01 000007
5592 062157 254 00 1 00 000002
5593 062160 000003 037010
5594 062161 000000 000000
5595 062162 000000 037302
5596 062163 000000 777773
5597 062164 70 55 57 66 45 51
5598 062165 00 41 14 40 27 10
5599 062166 41 11 00 51 56 00
5600 062167 63 45 43 64 51 57
5601 062170 56 00 20 00 44 51
5602 062171 44 56 07 64 00 67
5603 062172 57 62 53 00 62 51
5604 062173 47 50 64 16 77 00
5605 062174 061137 061070
5606 062175 062163 000001
5607 062176 062164 000000
5608 062177 260 01 1 00 244500
5609 062200 200030 333111
5610 062201 030000 036401
5611 062202 200030 333200
5612 062203 740140 000000
5613 062204 000007 244400
5614 062205 000007 244401
5615 062206 60 65 63 50 52 00
5616 062207 67 51 64 50 00 54
5617 062210 57 56 47 00 60 57
5618 062211 51 56 64 45 62 00
5619 062212 63 64 57 62 45 44
5620 062213 00 64 50 45 00 67
5621 062214 62 57 56 47 00 63
5622 062215 64 41 43 53 00 67
5623 062216 57 62 44 77 00 00
5624 062217 061137 061070
5625 062220 062205 000001
5626 062221 062206 000000
5627 062222 000000 740140
5628 062223 60 43 00 46 54 41
5629 062224 47 63 00 67 45 62
5630 062225 45 00 43 54 57 42
5631 062226 42 45 62 45 44 00
5632 062227 42 71 00 60 65 63
5633 062230 50 52 00 67 51 64
5634 062231 50 00 54 57 56 47
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-13
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0160
5635 062232 00 63 64 41 43 53
5636 062233 00 60 57 51 56 64
5637 062234 45 62 77 00 00 00
5638 062235 061137 061070
5639 062236 062222 000001
5640 062237 062223 000000
5641 062240 200030 333201
5642 062241 60 65 63 50 52 00
5643 062242 67 51 64 50 00 54
5644 062243 57 56 47 00 63 64
5645 062244 41 43 53 00 60 57
5646 062245 51 56 64 45 62 00
5647 062246 65 60 44 41 64 45
5648 062247 44 00 64 50 45 00
5649 062250 60 57 51 56 64 45
5650 062251 62 00 51 56 43 57
5651 062252 62 62 45 43 64 54
5652 062253 71 77 00 00 00 00
5653 062254 061137 061070
5654 062255 062240 000001
5655 062256 062241 000000
5656 062257 400024 000012
5657 062260 000000 000000
5658 062261 000007 244400
5659 062262 400025 000013
5660 062263 60 65 63 50 52 00
5661 062264 67 51 64 50 00 63
5662 062265 50 57 62 64 00 60
5663 062266 57 51 56 64 45 62
5664 062267 00 44 51 44 00 56
5665 062270 57 64 00 63 64 57
5666 062271 62 45 00 65 60 44
5667 062272 41 64 45 44 00 60
5668 062273 57 51 56 64 45 62
5669 062274 00 43 57 62 62 45
5670 062275 43 64 54 71 77 00
5671 062276 061137 061070
5672 062277 062262 000001
5673 062300 062263 000000
5674 062301 60 65 63 50 52 00
5675 062302 67 51 64 50 00 63
5676 062303 50 57 62 64 00 60
5677 062304 57 51 56 64 45 62
5678 062305 00 44 51 44 56 07
5679 062306 64 00 63 64 57 62
5680 062307 45 00 63 64 41 43
5681 062310 53 00 67 57 62 44
5682 062311 00 43 57 62 62 45
5683 062312 43 64 54 71 77 00
5684 062313 061137 061070
5685 062314 062205 000001
5686 062315 062301 000000
5687 062316 260 01 1 00 000002
5688 062317 000006 777777
5689 062320 000000 000000
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-14
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0161
5690 062321 000007 000020
5691 062322 000007 000000
5692 062323 60 57 51 56 64 45
5693 062324 62 00 65 60 44 41
5694 062325 64 45 00 67 41 63
5695 062326 00 51 56 43 57 62
5696 062327 62 45 43 64 00 46
5697 062330 57 62 00 60 65 63
5698 062331 50 44 57 67 56 00
5699 062332 63 64 41 43 53 00
5700 062333 43 62 57 63 63 51
5701 062334 56 47 00 63 45 43
5702 062335 64 51 57 56 00 42
5703 062336 57 65 56 44 41 62
5704 062337 71 77 00 00 00 00
5705 062340 061137 061070
5706 062341 062322 000001
5707 062342 062323 000000
5708 062343 41 43 00 20 00 67
5709 062344 41 63 00 43 54 57
5710 062345 42 42 45 62 45 44
5711 062346 00 42 71 00 60 65
5712 062347 63 50 44 57 67 56
5713 062350 00 63 64 41 43 53
5714 062351 00 64 62 71 51 56
5715 062352 47 00 64 57 00 43
5716 062353 62 57 63 63 00 63
5717 062354 45 43 64 51 57 56
5718 062355 00 42 57 65 56 44
5719 062356 41 62 71 77 00 00
5720 062357 061137 061070
5721 062360 061002 000001
5722 062361 062343 000000
5723 062362 000007 000021
5724 062363 63 64 41 43 53 00
5725 062364 67 57 62 44 00 63
5726 062365 64 57 62 45 44 00
5727 062366 51 56 43 57 62 62
5728 062367 45 43 64 54 71 00
5729 062370 67 50 45 56 00 63
5730 062371 64 41 43 53 00 43
5731 062372 62 57 63 63 45 44
5732 062373 00 63 45 43 64 51
5733 062374 57 56 00 42 57 65
5734 062375 56 44 41 62 71 77
5735 062376 061137 061070
5736 062377 062362 000002
5737 062400 062363 000000
5738 062401 400006 777777
5739 062402 400007 000000
5740 062403 60 65 63 50 52 00
5741 062404 67 51 64 50 00 63
5742 062405 50 57 62 64 00 60
5743 062406 57 51 56 64 45 62
5744 062407 00 44 51 44 56 07
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-15
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0162
5745 062410 64 00 67 57 62 53
5746 062411 00 43 57 62 62 45
5747 062412 43 64 54 71 00 67
5748 062413 50 45 56 00 63 64
5749 062414 41 43 53 00 64 62
5750 062415 51 45 44 00 64 57
5751 062416 00 67 62 41 60 00
5752 062417 51 56 64 57 00 41
5753 062420 43 07 63 77 00 00
5754 062421 061137 061070
5755 062422 062402 000001
5756 062423 062403 000000
5757 062424 21 07 63 64 00 63
5758 062425 50 41 44 57 67 00
5759 062426 67 57 62 44 00 57
5760 062427 46 00 56 45 70 64
5761 062430 00 63 45 43 64 00
5762 062431 43 54 57 42 42 45
5763 062432 62 45 44 00 67 50
5764 062433 45 56 00 63 64 41
5765 062434 43 53 00 64 62 51
5766 062435 45 44 00 64 57 00
5767 062436 67 62 41 60 00 41
5768 062437 62 57 65 56 44 00
5769 062440 67 51 64 50 00 63
5770 062441 50 57 62 64 00 60
5771 062442 57 51 56 64 45 62
5772 062443 77 00 00 00 00 00
5773 062444 061137 061070
5774 062445 061002 037000
5775 062446 062424 000000
5776 062447 265 01 0 00 602071
5777 062450 254 00 1 00 000002
5778 062451 740140 000000
5779 062452 000010 602070
5780 062453 000010 602071
5781 062454 52 63 60 00 45 70
5782 062455 45 43 65 64 45 44
5783 062456 00 51 56 00 56 57
5784 062457 56 15 20 00 63 45
5785 062460 43 64 51 57 56 00
5786 062461 63 64 57 62 45 44
5787 062462 00 60 43 00 51 56
5788 062463 43 57 62 62 45 43
5789 062464 64 54 71 77 00 00
5790 062465 061137 061070
5791 062466 062453 000001
5792 062467 062454 000000
5793 062470 263 01 0 00 000000
5794 062471 000036 000003
5795 062472 000000 000000
5796 062473 000000 055457
5797 062474 43 57 65 54 44 56
5798 062475 07 64 00 43 54 45
5799 062476 41 62 00 60 43 00
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-16
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0163
5800 062477 46 54 41 47 63 00
5801 062500 46 57 62 00 60 57
5802 062501 60 52 00 64 45 63
5803 062502 64 77 00 00 00 00
5804 062503 061137 061070
5805 062504 061002 000002
5806 062505 062474 000000
5807 062506 037 15 0 00 000004
5808 062507 740140 000000
5809 062510 000001 000047
5810 062511 000036 000002
5811 062512 54 57 56 47 00 60
5812 062513 57 60 52 00 51 56
5813 062514 00 56 57 56 15 20
5814 062515 00 63 45 43 64 51
5815 062516 57 56 00 51 56 43
5816 062517 57 62 62 45 43 64
5817 062520 54 71 00 55 57 44
5818 062521 51 46 51 45 44 00
5819 062522 64 50 45 00 63 64
5820 062523 41 43 53 00 60 57
5821 062524 51 56 64 45 62 77
5822 062525 061137 061070
5823 062526 062511 000001
5824 062527 062512 000000
5825 062530 54 57 56 47 00 60
5826 062531 57 60 52 00 43 54
5827 062532 57 42 42 45 62 45
5828 062533 44 00 64 50 45 00
5829 062534 60 43 00 46 54 41
5830 062535 47 63 77 00 00 00
5831 062536 061137 061070
5832 062537 062222 000001
5833 062540 062530 000000
5834 062541 263 03 0 00 000000
5835 062542 000003 002000
5836 062543 400036 001001
5837 062544 740140 000000
5838 062545 000003 001050
5839 062546 400035 001000
5840 062547 60 57 60 52 00 51
5841 062550 56 00 56 57 56 15
5842 062551 20 00 63 45 43 64
5843 062552 51 57 56 00 55 57
5844 062553 44 51 46 51 45 44
5845 062554 00 63 50 57 62 64
5846 062555 00 60 57 51 56 64
5847 062556 45 62 00 51 56 43
5848 062557 57 62 62 45 43 64
5849 062560 54 71 77 00 00 00
5850 062561 061137 061070
5851 062562 062546 000003
5852 062563 062547 000000
5853 062564 63 50 57 62 64 00
5854 062565 60 57 60 52 00 51
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-17
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0164
5855 062566 56 00 56 57 56 15
5856 062567 20 00 63 45 43 64
5857 062570 51 57 56 00 43 54
5858 062571 57 42 42 45 62 45
5859 062572 44 00 64 50 45 00
5860 062573 60 43 00 46 54 41
5861 062574 47 63 77 00 00 00
5862 062575 061137 061070
5863 062576 062222 000001
5864 062577 062564 000000
5865 062600 262 03 0 00 004000
5866 062601 256 01 0 00 000014
5867 062602 000007 000001
5868 062603 000000 000003
5869 062604 000003 004002
5870 062605 60 70 43 64 00 21
5871 062606 14 60 57 60 00 46
5872 062607 41 51 54 45 44 77
5873 062610 061137 061070
5874 062611 062603 000001
5875 062612 062605 000000
5876 062613 004000 000003
5877 062614 000003 004002
5878 062615 000000 000004
5879 062616 061137 061070
5880 062617 062615 000001
5881 062620 062605 000000
5882 062621 256 05 0 00 000014
5883 062622 60 70 43 64 00 25
5884 062623 14 60 57 60 00 46
5885 062624 41 51 54 45 44 77
5886 062625 061137 061070
5887 062626 062322 000003
5888 062627 062622 000000
5889 062630 000007 000012
5890 062631 202621 727025
5891 062632 004000 000000
5892 062633 000003 004002
5893 062634 000006 000011
5894 062635 60 70 43 64 00 21
5895 062636 14 60 57 60 00 46
5896 062637 41 51 54 45 44 00
5897 062640 67 50 45 56 00 60
5898 062641 43 63 35 65 63 45
5899 062642 62 00 63 45 43 15
5900 062643 20 77 00 00 00 00
5901 062644 061137 061070
5902 062645 062634 000003
5903 062646 062635 000000
5904 062647 105 03 1 00 000012
5905 062650 000002 000003
5906 062651 000000 000000
5907 062652 000005 005000
5908 062653 000002 300004
5909 062654 41 44 52 63 60 00
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-18
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0165
5910 062655 00 51 56 00 56 57
5911 062656 56 15 20 00 63 45
5912 062657 43 16 00 67 51 64
5913 062660 50 00 60 57 63 16
5914 062661 00 51 56 43 16 00
5915 062662 41 56 44 00 54 57
5916 062663 56 47 00 60 00 46
5917 062664 41 51 54 45 44 77
5918 062665 061137 061070
5919 062666 062653 000003
5920 062667 062654 000000
5921 062670 400000 000004
5922 062671 700001 300005
5923 062672 41 44 52 63 60 00
5924 062673 51 56 00 56 57 56
5925 062674 15 20 00 63 45 43
5926 062675 16 00 67 51 64 50
5927 062676 00 60 57 63 16 00
5928 062677 51 56 43 16 00 41
5929 062700 56 44 00 63 50 57
5930 062701 62 64 00 60 00 46
5931 062702 41 51 54 45 44 77
5932 062703 061137 061070
5933 062704 062671 000003
5934 062705 062672 000000
5935 062706 400000 400002
5936 062707 377775 377777
5937 062710 41 44 52 63 60 00
5938 062711 51 56 00 56 57 56
5939 062712 15 20 00 63 45 43
5940 062713 16 00 67 51 64 50
5941 062714 00 56 45 47 16 00
5942 062715 51 56 43 16 00 41
5943 062716 56 44 00 63 50 57
5944 062717 62 64 00 60 00 46
5945 062720 41 51 54 45 44 77
5946 062721 061137 061070
5947 062722 062707 000003
5948 062723 062710 000000
5949 062724 000000 777775
5950 062725 41 44 52 63 60 00
5951 062726 51 56 00 56 57 56
5952 062727 15 20 00 63 45 43
5953 062730 16 00 67 51 64 50
5954 062731 00 56 45 47 16 00
5955 062732 51 56 43 16 00 41
5956 062733 56 44 00 54 57 56
5957 062734 47 00 60 00 46 41
5958 062735 51 54 45 44 77 00
5959 062736 061137 061070
5960 062737 062724 000003
5961 062740 062725 000000
5962 062741 133 00 0 00 035030
5963 062742 254 00 1 00 000002
5964 062743 020740 000012
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-19
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0166
5965 062744 000000 035020
5966 062745 000000 000000
5967 062746 000000 035050
5968 062747 350740 000013
5969 062750 51 42 60 00 51 56
5970 062751 00 63 45 43 64 51
5971 062752 57 56 00 20 00 44
5972 062753 51 44 56 07 64 00
5973 062754 51 56 43 62 45 55
5974 062755 45 56 64 00 60 57
5975 062756 51 56 64 45 62 00
5976 062757 43 57 62 62 45 43
5977 062760 64 54 71 77 00 00
5978 062761 061137 061070
5979 062762 062744 000002
5980 062763 062750 000000
5981 062764 135 03 0 00 035030
5982 062765 350700 000013
5983 062766 000000 000130
5984 062767 54 44 42 00 51 56
5985 062770 00 63 45 43 64 51
5986 062771 57 56 00 20 00 67
5987 062772 51 64 50 00 42 51
5988 062773 64 00 21 22 00 57
5989 062774 56 00 44 51 44 56
5990 062775 07 64 00 54 57 41
5991 062776 44 00 64 50 45 00
5992 062777 43 57 62 62 45 43
5993 063000 64 00 42 71 64 45
5994 063001 77 00 00 00 00 00
5995 063002 061137 061070
5996 063003 062766 000003
5997 063004 062767 000000
5998 063005 136 03 0 00 035030
5999 063006 010740 000002
6000 063007 540000 000130
6001 063010 51 44 60 42 00 51
6002 063011 56 00 63 45 43 64
6003 063012 51 57 56 00 20 00
6004 063013 67 51 64 50 00 42
6005 063014 51 64 00 21 22 00
6006 063015 57 56 00 51 56 00
6007 063016 60 57 51 56 64 45
6008 063017 62 00 44 51 44 56
6009 063020 07 64 00 63 64 57
6010 063021 62 45 00 42 71 64
6011 063022 45 00 43 57 62 62
6012 063023 45 43 64 54 71 77
6013 063024 061137 061070
6014 063025 063007 000003
6015 063026 063010 000000
6016 063027 350740 000003
6017 063030 000000 000005
6018 063031 51 44 60 42 00 51
6019 063032 56 00 63 45 43 64
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-20
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0167
6020 063033 51 57 56 00 20 00
6021 063034 67 51 64 50 00 42
6022 063035 51 64 00 21 22 00
6023 063036 57 56 00 51 56 00
6024 063037 42 71 64 45 00 60
6025 063040 57 51 56 64 45 62
6026 063041 00 44 51 44 56 07
6027 063042 64 00 51 56 43 62
6028 063043 45 55 45 56 64 00
6029 063044 43 57 62 62 45 43
6030 063045 64 54 71 77 00 00
6031 063046 061137 061070
6032 063047 063030 000002
6033 063050 063031 000000
6034 063051 134 03 0 00 050777
6035 063052 254 00 1 00 000002
6036 063053 030600 051021
6037 063054 000004 777777
6038 063055 000000 000000
6039 063056 000005 051040
6040 063057 000000 000055
6041 063060 57 54 44 15 63 64
6042 063061 71 54 45 00 51 54
6043 063062 44 42 00 51 56 63
6044 063063 64 62 65 43 64 51
6045 063064 57 56 00 51 56 00
6046 063065 56 57 56 15 20 00
6047 063066 63 45 43 64 51 57
6048 063067 56 00 44 51 44 56
6049 063070 07 64 00 54 57 41
6050 063071 44 00 64 50 45 00
6051 063072 43 57 62 62 45 43
6052 063073 64 00 42 71 64 45
6053 063074 77 00 00 00 00 00
6054 063075 061137 061070
6055 063076 063057 000003
6056 063077 063060 000000
6057 063100 360600 051022
6058 063101 46 51 62 63 64 00
6059 063102 67 57 62 44 00 57
6060 063103 46 00 42 71 64 45
6061 063104 00 60 57 51 56 64
6062 063105 45 62 00 51 56 43
6063 063106 62 45 55 45 56 64
6064 063107 45 44 00 51 56 43
6065 063110 57 62 62 45 43 64
6066 063111 54 71 00 42 71 00
6067 063112 51 54 44 42 00 51
6068 063113 56 00 56 57 56 15
6069 063114 20 00 63 45 43 64
6070 063115 51 57 56 77 00 00
6071 063116 061137 061070
6072 063117 063100 000001
6073 063120 063101 000000
6074 063121 57 54 44 15 63 64
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-21
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0168
6075 063122 71 54 45 00 51 54
6076 063123 44 42 00 51 56 00
6077 063124 56 57 56 15 20 00
6078 063125 63 45 43 64 51 57
6079 063126 56 00 55 57 44 51
6080 063127 46 51 45 44 00 64
6081 063130 50 45 00 63 45 43
6082 063131 57 56 44 00 67 57
6083 063132 62 44 00 57 46 00
6084 063133 64 50 45 00 42 71
6085 063134 64 45 00 60 57 51
6086 063135 56 64 45 62 77 00
6087 063136 061137 061070
6088 063137 063054 000001
6089 063140 063121 000000
6090 063141 136 03 1 00 456123
6091 063142 254 00 1 00 000002
6092 063143 000012 000017
6093 063144 020752 053423
6094 063145 000035 777777
6095 063146 000000 000000
6096 063147 000004 456775
6097 063150 130 000 000 000 000
6098 063151 51 44 60 42 00 67
6099 063152 51 64 50 00 42 51
6100 063153 64 00 21 22 00 57
6101 063154 56 00 51 56 00 56
6102 063155 57 56 15 20 00 63
6103 063156 45 43 64 51 57 56
6104 063157 00 63 64 57 62 45
6105 063160 44 00 64 50 45 00
6106 063161 44 41 64 41 00 51
6107 063162 56 43 57 62 62 45
6108 063163 43 64 54 71 77 00
6109 063164 061137 061070
6110 063165 063150 000001
6111 063166 063151 000000
6112 063167 350752 053423
6113 063170 000036 000000
6114 063171 51 44 60 42 00 67
6115 063172 51 64 50 00 42 51
6116 063173 64 00 21 22 00 57
6117 063174 56 00 51 56 00 56
6118 063175 57 56 15 20 00 63
6119 063176 45 43 64 51 57 56
6120 063177 00 55 57 44 51 46
6121 063200 51 45 44 00 64 50
6122 063201 45 00 60 57 51 56
6123 063202 64 45 62 00 51 56
6124 063203 43 57 62 62 45 43
6125 063204 64 54 71 77 00 00
6126 063205 061137 061070
6127 063206 063170 000002
6128 063207 063171 000000
6129 063210 134 01 1 00 000012
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-22
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0169
6130 063211 254 00 1 00 000002
6131 063212 050677 000123
6132 063213 030011 500000
6133 063214 000020 003062
6134 063215 000013 600000
6135 063216 000000 000000
6136 063217 000037 020030
6137 063220 000000 000042
6138 063221 51 54 44 42 00 51
6139 063222 56 00 56 57 56 15
6140 063223 20 00 63 45 43 64
6141 063224 51 57 56 00 67 51
6142 063225 64 50 00 42 51 64
6143 063226 00 21 22 00 57 56
6144 063227 00 51 56 00 60 57
6145 063230 51 56 64 45 62 00
6146 063231 54 57 41 44 45 44
6147 063232 00 64 50 45 00 67
6148 063233 62 57 56 47 00 44
6149 063234 41 64 41 77 00 00
6150 063235 061137 061070
6151 063236 063220 000001
6152 063237 063221 000000
6153 063240 360677 000123
6154 063241 030011 500001
6155 063242 51 54 44 42 00 51
6156 063243 56 00 56 57 56 15
6157 063244 20 00 63 45 43 64
6158 063245 51 57 56 00 67 51
6159 063246 64 50 00 42 51 64
6160 063247 00 21 22 00 57 56
6161 063250 00 55 57 44 51 46
6162 063251 51 51 45 44 00 64
6163 063252 50 45 00 60 57 51
6164 063253 56 64 45 62 00 51
6165 063254 56 43 57 62 62 45
6166 063255 43 64 54 71 77 00
6167 063256 061137 061070
6168 063257 063241 000002
6169 063260 063242 000000
6170 063261 230011 500000
6171 063262 000001 000014
6172 063263 000000 000070
6173 063264 061137 061070
6174 063265 063263 000001
6175 063266 063221 000000
6176 063267 230011 500001
6177 063270 061137 061070
6178 063271 063267 000002
6179 063272 063242 000000
6180 063273 000640 000003
6181 063274 400003 777777
6182 063275 000033 000012
6183 063276 134 01 0 00 000004
6184 063277 254 00 1 00 000002
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-23
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0170
6185 063300 000000 000000
6186 063301 000002 400020
6187 063302 360640 000003
6188 063303 400003 000000
6189 063304 54 57 56 47 00 42
6190 063305 71 64 45 00 60 57
6191 063306 51 56 64 45 62 00
6192 063307 67 51 64 50 00 51
6193 063310 46 51 67 00 51 56
6194 063311 00 63 45 43 57 56
6195 063312 44 00 67 57 62 44
6196 063313 00 51 56 43 62 45
6197 063314 55 45 56 64 45 44
6198 063315 00 51 56 43 57 62
6199 063316 62 45 43 64 54 71
6200 063317 77 00 00 00 00 00
6201 063320 061137 061070
6202 063321 063303 000005
6203 063322 063304 000000
6204 063323 000000 000060
6205 063324 51 54 44 42 00 67
6206 063325 51 64 50 00 42 51
6207 063326 64 00 21 22 00 41
6208 063327 56 44 00 51 46 51
6209 063330 67 00 62 45 64 62
6210 063331 51 45 66 45 44 00
6211 063332 64 50 45 00 67 62
6212 063333 57 56 47 00 44 41
6213 063334 64 41 77 00 00 00
6214 063335 061137 061070
6215 063336 063323 000001
6216 063337 063324 000000
6217 063340 133 01 0 00 005001
6218 063341 254 00 1 00 000003
6219 063342 261000 000003
6220 063343 000002 000000
6221 063344 000000 000000
6222 063345 000003 004020
6223 063346 777777 777776
6224 063347 061000 000001
6225 063350 41 44 52 42 60 00
6226 063351 51 56 63 64 62 65
6227 063352 43 64 51 57 56 00
6228 063353 51 56 00 56 57 56
6229 063354 15 20 00 63 45 43
6230 063355 64 51 57 56 00 67
6231 063356 51 64 50 57 65 64
6232 063357 00 42 51 64 00 21
6233 063360 22 00 57 56 00 62
6234 063361 45 64 65 62 56 45
6235 063362 44 00 64 50 45 00
6236 063363 67 62 57 56 47 00
6237 063364 41 56 63 67 45 62
6238 063365 77 00 00 00 00 00
6239 063366 061137 061070
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-24
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0171
6240 063367 063347 000001
6241 063370 063350 000000
6242 063371 000001 777776
6243 063372 061040 000003
6244 063373 41 44 52 42 60 00
6245 063374 51 56 00 56 57 56
6246 063375 15 20 00 63 45 43
6247 063376 64 51 57 56 00 67
6248 063377 51 64 50 00 42 51
6249 063400 64 00 21 22 00 57
6250 063401 56 00 62 45 64 65
6251 063402 62 56 45 44 00 64
6252 063403 50 45 00 67 62 57
6253 063404 56 47 00 41 56 63
6254 063405 67 45 62 77 00 00
6255 063406 061137 061070
6256 063407 063372 000001
6257 063410 063373 000000
6258 063411 254 14 0 00 000123
6259 063412 254 00 1 00 000002
6260 063413 740140 000000
6261 063414 000020 600407
6262 063415 64 50 45 00 67 62
6263 063416 57 56 47 00 60 43
6264 063417 00 46 54 41 47 63
6265 063420 00 67 45 62 45 00
6266 063421 57 56 00 46 57 54
6267 063422 54 57 67 51 56 47
6268 063423 00 41 56 00 63 46
6269 063424 55 00 51 56 63 64
6270 063425 62 65 43 64 51 57
6271 063426 56 77 00 00 00 00
6272 063427 061137 061070
6273 063430 062222 000001
6274 063431 063415 000000
6275 063432 777777 777777
6276 063433 074140 000000
6277 063434 63 46 55 00 51 56
6278 063435 00 45 70 45 43 00
6279 063436 56 57 56 15 20 00
6280 063437 63 45 43 64 51 57
6281 063440 56 00 67 51 64 50
6282 063441 57 65 64 00 51 56
6283 063442 44 51 62 45 43 64
6284 063443 51 57 56 00 63 64
6285 063444 57 62 45 44 00 64
6286 063445 50 45 00 44 41 64
6287 063446 41 00 51 56 43 57
6288 063447 62 62 45 43 64 54
6289 063450 71 77 00 00 00 00
6290 063451 061137 061070
6291 063452 063433 000001
6292 063453 063434 000000
6293 063454 000000 000037
6294 063455 000000 056353
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-25
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0172
6295 063456 70 52 62 63 64 46
6296 063457 00 15 00 44 51 44
6297 063460 00 56 57 64 00 63
6298 063461 64 57 62 45 00 23
6299 063462 27 00 51 56 00 60
6300 063463 43 63 00 57 62 76
6301 063464 63 46 55 00 15 00
6302 063465 60 43 63 00 44 51
6303 063466 44 00 56 57 64 00
6304 063467 47 45 64 00 63 64
6305 063470 57 62 45 44 00 51
6306 063471 56 00 64 50 45 00
6307 063472 45 00 46 51 45 54
6308 063473 44 00 42 51 64 63
6309 063474 00 23 21 00 64 57
6310 063475 00 23 25 77 00 00
6311 063476 061137 061070
6312 063477 063454 000001
6313 063500 063456 000000
6314 063501 000036 765432
6315 063502 63 46 55 00 51 56
6316 063503 00 45 70 45 43 00
6317 063504 56 57 56 15 20 00
6318 063505 63 45 43 64 51 57
6319 063506 56 00 67 51 64 50
6320 063507 00 51 56 44 51 62
6321 063510 45 43 64 51 57 56
6322 063511 00 63 64 57 62 45
6323 063512 44 00 64 50 45 00
6324 063513 60 43 00 42 51 64
6325 063514 63 00 51 56 43 57
6326 063515 62 62 45 43 64 54
6327 063516 71 77 00 00 00 00
6328 063517 061137 061070
6329 063520 062203 000001
6330 063521 063502 000000
6331 063522 254 07 1 00 030201
6332 063523 000030 040121
6333 063524 740140 000000
6334 063525 000010 020345
6335 063526 500100 000000
6336 063527 000020 030030
6337 063530 000000 500100
6338 063531 70 60 43 67 00 51
6339 063532 56 00 56 57 56 15
6340 063533 20 00 63 45 43 64
6341 063534 51 57 56 00 63 64
6342 063535 57 62 45 44 00 64
6343 063536 50 45 00 67 62 57
6344 063537 56 47 00 46 54 41
6345 063540 47 63 77 00 00 00
6346 063541 061137 061070
6347 063542 063530 000001
6348 063543 063531 000000
6349 063544 000020 030031
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-26
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0173
6350 063545 70 60 43 67 00 51
6351 063546 56 00 56 57 56 15
6352 063547 20 00 63 45 43 64
6353 063550 51 57 56 00 63 64
6354 063551 57 62 45 44 00 64
6355 063552 50 45 00 67 62 57
6356 063553 56 47 00 60 43 16
6357 063554 77 00 00 00 00 00
6358 063555 061137 061070
6359 063556 063544 000001
6360 063557 063545 000000
6361 063560 70 60 43 67 00 51
6362 063561 56 00 56 57 56 15
6363 063562 20 00 63 45 43 64
6364 063563 51 57 56 00 44 51
6365 063564 44 56 07 64 00 63
6366 063565 45 64 00 64 50 45
6367 063566 00 56 45 67 00 60
6368 063567 43 00 46 54 41 47
6369 063570 63 77 00 00 00 00
6370 063571 061137 061070
6371 063572 062222 000001
6372 063573 063560 000000
6373 063574 70 60 43 67 00 15
6374 063575 00 60 43 63 00 44
6375 063576 51 44 00 56 57 64
6376 063577 00 47 45 64 00 63
6377 063600 64 57 62 45 44 00
6378 063601 51 56 00 45 00 42
6379 063602 51 64 63 00 23 21
6380 063603 00 64 57 00 23 25
6381 063604 77 00 00 00 00 00
6382 063605 061137 061070
6383 063606 063454 000001
6384 063607 063574 000000
6385 063610 254 07 0 00 037121
6386 063611 70 60 43 67 00 51
6387 063612 56 00 63 45 43 64
6388 063613 51 57 56 00 20 00
6389 063614 44 51 44 56 07 64
6390 063615 00 63 45 64 00 64
6391 063616 50 45 00 60 43 00
6392 063617 46 54 41 47 63 00
6393 063620 43 57 62 62 45 43
6394 063621 64 54 71 77 00 00
6395 063622 061137 061070
6396 063623 062222 000001
6397 063624 063611 000000
6398 063625 000000 035051
6399 063626 70 60 43 67 00 51
6400 063627 56 00 63 45 43 64
6401 063630 51 57 56 00 20 00
6402 063631 63 64 57 62 45 44
6403 063632 00 64 50 45 00 67
6404 063633 62 57 56 47 00 60
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-27
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0174
6405 063634 43 00 41 56 44 17
6406 063635 57 62 00 46 54 41
6407 063636 47 63 77 00 00 00
6408 063637 061137 061070
6409 063640 063625 000002
6410 063641 063626 000000
6411 063642 344 01 0 00 043222
6412 063643 7 001 4 0 00 000200
6413 063644 254 07 1 00 000003
6414 063645 000000 000000
6415 063646 000020 021650
6416 063647 000012 000003
6417 063650 000000 000000
6418 063651 000031 043221
6419 063652 56 57 00 64 51 55
6420 063653 45 62 00 51 56 64
6421 063654 45 62 62 65 60 64
6422 063655 00 50 41 60 60 45
6423 063656 56 45 44 00 44 65
6424 063657 62 51 56 47 00 64
6425 063660 50 45 00 45 70 60
6426 063661 45 43 64 45 44 00
6427 063662 51 56 63 64 62 65
6428 063663 43 64 51 57 56 63
6429 063664 77 00 00 00 00 00
6430 063665 061137 061070
6431 063666 000000 000000
6432 063667 063652 000000
6433 063670 000031 043222
6434 063671 70 60 43 67 00 41
6435 063672 63 00 51 56 64 45
6436 063673 62 62 65 60 64 00
6437 063674 51 56 63 64 62 65
6438 063675 43 64 51 57 56 00
6439 063676 63 64 57 62 45 44
6440 063677 00 64 50 45 00 67
6441 063700 62 57 56 47 00 60
6442 063701 43 77 00 00 00 00
6443 063702 061137 061070
6444 063703 063670 000002
6445 063704 063671 000000
6446 063705 340 01 0 00 000000
6447 063706 7 004 4 0 00 060144
6448 063707 254 06 1 00 021000
6449 063710 254 07 0 00 036376
6450 063711 64 51 55 45 00 42
6451 063712 41 63 45 00 67 41
6452 063713 63 00 65 56 45 70
6453 063714 60 45 43 64 45 44
6454 063715 54 71 00 54 41 62
6455 063716 47 45 00 51 56 00
6456 063717 70 52 45 56 00 64
6457 063720 45 63 64 77 00 00
6458 063721 061137 061070
6459 063722 061002 000002
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-28
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0175
6460 063723 063711 000000
6461 063724 64 50 45 00 67 62
6462 063725 57 56 47 00 56 65
6463 063726 55 42 45 62 00 57
6464 063727 46 00 51 56 64 45
6465 063730 62 62 65 60 64 63
6466 063731 00 50 41 60 60 45
6467 063732 56 45 44 00 44 65
6468 063733 62 51 56 47 00 64
6469 063734 50 45 00 70 52 45
6470 063735 56 00 64 45 63 64
6471 063736 77 00 00 00 00 00
6472 063737 061137 061070
6473 063740 063030 000001
6474 063741 063724 000000
6475 063742 000000 000037
6476 063743 000000 056642
6477 063744 70 52 45 56 00 15
6478 063745 00 43 57 56 64 45
6479 063746 56 64 63 00 57 46
6480 063747 00 45 00 62 51 47
6481 063750 50 64 00 44 51 44
6482 063751 00 56 57 64 00 63
6483 063752 64 57 62 45 00 51
6484 063753 56 64 57 00 60 43
6485 063754 63 77 00 00 00 00
6486 063755 061137 061070
6487 063756 063454 000001
6488 063757 063744 000000
6489 063760 251 03 0 00 000020
6490 063761 254 00 1 00 000002
6491 063762 777770 000017
6492 063763 777777 777774
6493 063764 777777 777773
6494 063765 000000 000000
6495 063766 000004 777403
6496 063767 62 45 47 65 54 41
6497 063770 62 00 42 54 64 00
6498 063771 51 56 00 56 57 56
6499 063772 15 20 00 63 45 43
6500 063773 64 51 57 56 00 46
6501 063774 41 51 54 45 44 77
6502 063775 061137 061070
6503 063776 063763 000002
6504 063777 063767 000000
6505 064000 251 01 1 00 776123
6506 064001 254 00 1 00 000003
6507 064002 200007 020444
6508 064003 400000 003666
6509 064004 777777 777700
6510 064005 777777 777446
6511 064006 000012 003665
6512 064007 000000 000000
6513 064010 000031 776100
6514 064011 000000 000332
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-29
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0176
6515 064012 42 54 64 00 67 51
6516 064013 64 50 00 54 57 43
6517 064014 41 54 00 45 46 46
6518 064015 45 43 64 51 66 45
6519 064016 00 41 44 44 62 45
6520 064017 63 63 00 44 51 44
6521 064020 56 07 64 00 43 57
6522 064021 62 62 45 43 64 54
6523 064022 71 00 62 45 41 44
6524 064023 00 46 62 57 55 00
6525 064024 41 43 07 63 77 00
6526 064025 061137 061070
6527 064026 064011 000002
6528 064027 064012 000000
6529 064030 000000 000002
6530 064031 000000 000003
6531 064032 000000 000004
6532 064033 000000 000005
6533 064034 251 01 0 02 000000
6534 064035 254 00 1 00 000003
6535 064036 000005 006770
6536 064037 000012 006767
6537 064040 000000 000000
6538 064041 000002 345067
6539 064042 42 54 64 00 51 56
6540 064043 00 56 57 56 15 20
6541 064044 00 63 45 43 16 00
6542 064045 44 51 44 56 07 64
6543 064046 00 62 45 41 44 00
6544 064047 63 57 65 62 43 45
6545 064050 00 44 41 64 41 00
6546 064051 46 62 57 55 00 54
6547 064052 57 67 00 55 45 55
6548 064053 57 62 71 77 00 00
6549 064054 061137 061070
6550 064055 063030 000002
6551 064056 064042 000000
6552 064057 251 01 1 00 000002
6553 064060 254 00 1 00 000003
6554 064061 000010 000020
6555 064062 555555 111111
6556 064063 333333 666666
6557 064064 070222 000017
6558 064065 200014 654321
6559 064066 000000 000000
6560 064067 000037 004002
6561 064070 42 54 64 00 44 51
6562 064071 44 56 07 64 00 43
6563 064072 57 62 62 45 43 64
6564 064073 54 71 00 55 57 66
6565 064074 45 00 44 41 64 41
6566 064075 00 64 57 00 54 57
6567 064076 67 15 41 44 44 62
6568 064077 45 63 63 45 44 00
6569 064100 55 45 55 57 62 71
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-30
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0177
6570 064101 77 00 00 00 00 00
6571 064102 061137 061070
6572 064103 064062 000001
6573 064104 064070 000000
6574 064105 061137 061070
6575 064106 064063 000002
6576 064107 064070 000000
6577 064110 040000 000000
6578 064111 123 04 0 00 000000
6579 064112 65 56 44 45 46 51
6580 064113 56 45 44 00 45 70
6581 064114 64 45 56 44 45 44
6582 064115 00 57 60 43 57 44
6583 064116 45 00 43 41 65 63
6584 064117 45 44 00 67 62 57
6585 064120 56 47 00 55 65 65
6586 064121 57 00 67 57 62 44
6587 064122 00 64 57 00 42 45
6588 064123 00 63 45 64 00 65
6589 064124 60 77 00 00 00 00
6590 064125 061137 061070
6591 064126 064111 000001
6592 064127 064112 000000
6593 064130 000014 777776
6594 064131 000010 777775
6595 064132 000000 000001
6596 064133 000000 000002
6597 064134 123 12 0 00 000015
6598 064135 254 00 1 00 000002
6599 064136 000000 000000
6600 064137 000001 000004
6601 064140 46 57 62 67 41 62
6602 064141 44 00 70 42 54 64
6603 064142 00 50 41 63 00 51
6604 064143 56 43 57 62 62 45
6605 064144 43 64 00 43 57 65
6606 064145 56 64 00 44 65 62
6607 064146 51 56 47 00 60 41
6608 064147 47 45 00 46 41 65
6609 064150 54 64 77 00 00 00
6610 064151 061137 061070
6611 064152 064030 000012
6612 064153 064140 000000
6613 064154 000015 000000
6614 064155 46 57 62 67 41 62
6615 064156 44 00 70 42 54 64
6616 064157 00 50 41 63 00 51
6617 064160 56 43 57 62 62 45
6618 064161 43 64 00 60 57 51
6619 064162 56 64 45 62 63 00
6620 064163 44 65 62 51 56 47
6621 064164 00 60 41 47 45 00
6622 064165 46 41 65 54 64 77
6623 064166 061137 061070
6624 064167 064154 000013
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-31
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0178
6625 064170 064155 000000
6626 064171 000010 777777
6627 064172 061137 061070
6628 064173 064171 000014
6629 064174 064155 000000
6630 064175 46 57 62 67 41 62
6631 064176 44 00 70 42 54 64
6632 064177 00 44 51 44 56 07
6633 064200 64 00 60 41 47 45
6634 064201 00 46 41 65 54 64
6635 064202 77 00 00 00 00 00
6636 064203 061137 061070
6637 064204 000000 000000
6638 064205 064175 000000
6639 064206 46 57 62 67 41 62
6640 064207 44 00 70 42 54 64
6641 064210 00 44 51 44 56 07
6642 064211 64 00 43 57 65 56
6643 064212 64 00 64 57 00 20
6644 064213 77 00 00 00 00 00
6645 064214 061137 061070
6646 064215 061002 000012
6647 064216 064206 000000
6648 064217 000015 000002
6649 064220 46 57 62 67 41 62
6650 064221 44 00 70 42 54 64
6651 064222 00 44 51 44 56 07
6652 064223 64 00 54 45 41 66
6653 064224 45 00 62 45 63 65
6654 064225 54 64 41 56 64 00
6655 064226 60 57 51 56 64 45
6656 064227 62 63 00 43 57 62
6657 064230 62 45 43 64 77 00
6658 064231 061137 061070
6659 064232 064217 000013
6660 064233 064220 000000
6661 064234 000011 000001
6662 064235 061137 061070
6663 064236 064234 000014
6664 064237 064220 000000
6665 064240 46 57 62 67 41 62
6666 064241 44 00 70 42 54 64
6667 064242 00 44 51 44 56 07
6668 064243 64 00 55 57 66 45
6669 064244 00 44 41 64 41 00
6670 064245 43 57 62 62 45 43
6671 064246 64 54 71 77 00 00
6672 064247 061137 061070
6673 064250 064132 000001
6674 064251 064240 000000
6675 064252 061137 061070
6676 064253 064030 000002
6677 064254 064240 000000
6678 064255 061137 061070
6679 064256 062603 000001
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-32
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0179
6680 064257 064240 000000
6681 064260 061137 061070
6682 064261 062615 000002
6683 064262 064240 000000
6684 064263 46 57 62 67 41 62
6685 064264 44 00 70 42 54 64
6686 064265 00 55 57 66 45 44
6687 064266 00 64 57 57 00 55
6688 064267 41 56 71 00 44 41
6689 064270 64 41 00 67 57 62
6690 064271 44 63 77 00 00 00
6691 064272 061137 061070
6692 064273 000000 000000
6693 064274 064263 000000
6694 064275 70 42 54 64 00 57
6695 064276 46 00 20 00 67 57
6696 064277 62 44 63 00 44 51
6697 064300 44 00 63 57 55 45
6698 064301 64 50 51 56 47 77
6699 064302 061137 061070
6700 064303 061002 000012
6701 064304 064275 000000
6702 064305 061137 061070
6703 064306 064217 000013
6704 064307 064275 000000
6705 064310 70 42 54 64 00 57
6706 064311 46 00 20 00 67 57
6707 064312 62 44 63 00 43 50
6708 064313 41 56 47 45 44 00
6709 064314 64 50 45 00 44 45
6710 064315 63 64 51 56 41 64
6711 064316 51 57 56 00 60 57
6712 064317 51 56 64 45 62 77
6713 064320 061137 061070
6714 064321 064234 000014
6715 064322 064310 000000
6716 064323 000000 000000
6717 064324 000000 000004
6718 064325 70 42 54 64 00 51
6719 064326 56 00 63 45 43 64
6720 064327 51 57 56 00 20 00
6721 064330 44 51 44 56 07 64
6722 064331 00 64 62 41 60 77
6723 064332 061137 061070
6724 064333 000000 000000
6725 064334 064325 000000
6726 064335 000015 000001
6727 064336 777777 777775
6728 064337 42 41 43 53 67 41
6729 064340 62 44 63 00 70 42
6730 064341 54 64 00 43 57 65
6731 064342 56 64 00 44 65 62
6732 064343 51 56 47 00 60 41
6733 064344 47 45 00 64 62 41
6734 064345 60 00 51 63 00 67
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-33
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0180
6735 064346 62 57 56 47 77 00
6736 064347 061137 061070
6737 064350 064336 000012
6738 064351 064337 000000
6739 064352 42 41 43 53 67 41
6740 064353 62 44 63 00 70 42
6741 064354 54 64 00 60 57 51
6742 064355 56 64 45 62 10 63
6743 064356 11 00 67 62 57 56
6744 064357 47 00 44 65 62 51
6745 064360 56 47 00 60 41 47
6746 064361 45 00 64 62 41 60
6747 064362 77 00 00 00 00 00
6748 064363 061137 061070
6749 064364 064335 000013
6750 064365 064352 000000
6751 064366 061137 061070
6752 064367 064154 000014
6753 064370 064352 000000
6754 064371 70 42 54 64 00 42
6755 064372 41 43 53 67 41 62
6756 064373 44 63 00 44 51 44
6757 064374 56 07 64 00 43 57
6758 064375 65 56 64 00 64 57
6759 064376 00 20 77 00 00 00
6760 064377 061137 061070
6761 064400 061002 000012
6762 064401 064371 000000
6763 064402 70 42 54 64 00 42
6764 064403 41 43 53 67 41 62
6765 064404 44 63 00 65 60 44
6766 064405 41 64 45 44 00 64
6767 064406 50 45 00 60 57 51
6768 064407 56 64 45 62 63 00
6769 064410 51 56 43 57 62 62
6770 064411 45 43 64 54 71 77
6771 064412 061137 061070
6772 064413 064130 000013
6773 064414 064402 000000
6774 064415 000014 777775
6775 064416 061137 061070
6776 064417 064415 000014
6777 064420 064402 000000
6778 064421 70 42 54 64 00 42
6779 064422 41 43 53 67 41 62
6780 064423 44 63 00 55 57 66
6781 064424 45 44 00 64 57 57
6782 064425 00 55 41 56 71 00
6783 064426 67 57 62 44 63 77
6784 064427 061137 061070
6785 064430 000000 000000
6786 064431 064421 000000
6787 064432 000005 000000
6788 064433 70 42 54 64 00 42
6789 064434 41 43 53 67 41 62
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-34
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0181
6790 064435 44 63 00 55 57 66
6791 064436 45 44 00 44 41 64
6792 064437 41 00 51 56 43 57
6793 064440 62 62 45 43 64 54
6794 064441 71 77 00 00 00 00
6795 064442 061137 061070
6796 064443 064432 000001
6797 064444 064433 000000
6798 064445 061137 061070
6799 064446 064432 000002
6800 064447 064433 000000
6801 064450 201 12 0 00 000002
6802 064451 200 13 0 00 000006
6803 064452 200 14 0 00 000007
6804 064453 256 00 0 00 000010
6805 064454 254 00 1 00 000002
6806 064455 064450 035000
6807 064456 000004 010750
6808 064457 000002 777777
6809 064460 010000 000000
6810 064461 020000 000000
6811 064462 030000 000000
6812 064463 040000 000000
6813 064464 220500 030606
6814 064465 123 12 0 00 000005
6815 064466 256 02 0 00 000004
6816 064467 60 70 43 64 00 22
6817 064470 14 70 42 54 64 00
6818 064471 46 41 51 54 45 44
6819 064472 77 00 00 00 00 00
6820 064473 061137 061070
6821 064474 064462 000001
6822 064475 064467 000000
6823 064476 061137 061070
6824 064477 064110 000002
6825 064500 064467 000000
6826 064501 60 70 43 64 00 23
6827 064502 14 70 42 54 64 00
6828 064503 46 41 51 54 45 44
6829 064504 77 00 00 00 00 00
6830 064505 061137 061070
6831 064506 064462 000001
6832 064507 064501 000000
6833 064510 061137 061070
6834 064511 064110 000002
6835 064512 064501 000000
6836 064513 60 70 43 64 00 21
6837 064514 14 70 42 54 64 00
6838 064515 46 41 51 54 45 44
6839 064516 77 00 00 00 00 00
6840 064517 061137 061070
6841 064520 064460 000001
6842 064521 064513 000000
6843 064522 061137 061070
6844 064523 064461 000002
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-35
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0182
6845 064524 064513 000000
6846 064525 60 70 43 64 00 20
6847 064526 14 70 42 54 64 00
6848 064527 46 41 51 54 45 44
6849 064530 77 00 00 00 00 00
6850 064531 061137 061070
6851 064532 064460 000001
6852 064533 064525 000000
6853 064534 061137 061070
6854 064535 064461 000002
6855 064536 064525 000000
6856 064537 000002 050010
6857 064540 000001 000011
6858 064541 000004 000003
6859 064542 000003 000033
6860 064543 000005 062222
6861 064544 000005 000055
6862 064545 000007 000077
6863 064546 200 01 1 00 040000
6864 064547 256 00 0 00 040123
6865 064550 000000 000021
6866 064551 000003 040456
6867 064552 60 70 43 64 00 57
6868 064553 46 00 55 57 66 45
6869 064554 00 46 41 51 54 45
6870 064555 44 00 67 50 45 56
6871 064556 00 60 43 65 35 20
6872 064557 00 41 56 44 00 42
6873 064560 51 64 63 00 31 14
6874 064561 21 20 35 20 77 00
6875 064562 061137 061070
6876 064563 064540 000001
6877 064564 064552 000000
6878 064565 256 04 0 00 040123
6879 064566 60 70 43 64 00 57
6880 064567 46 00 55 57 66 45
6881 064570 00 51 56 63 64 62
6882 064571 65 43 64 51 57 56
6883 064572 00 46 41 51 54 45
6884 064573 44 00 67 50 45 56
6885 064574 00 60 43 65 35 20
6886 064575 00 41 56 44 00 42
6887 064576 51 64 63 00 31 14
6888 064577 21 20 35 20 21 77
6889 064600 061137 061070
6890 064601 064540 000001
6891 064602 064566 000000
6892 064603 256 14 0 00 040123
6893 064604 60 70 43 64 00 57
6894 064605 46 00 55 57 66 45
6895 064606 00 51 56 63 64 62
6896 064607 65 43 64 51 57 56
6897 064610 00 67 51 64 50 00
6898 064611 60 43 65 14 42 31
6899 064612 14 42 21 20 35 20
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-36
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0183
6900 064613 21 21 00 46 41 51
6901 064614 54 45 44 77 00 00
6902 064615 061137 061070
6903 064616 064542 000001
6904 064617 064604 000000
6905 064620 004000 000021
6906 064621 000003 040456
6907 064622 60 70 43 64 00 57
6908 064623 46 00 55 57 66 45
6909 064624 00 51 56 63 64 62
6910 064625 65 43 64 51 57 56
6911 064626 00 46 41 51 54 45
6912 064627 44 00 67 51 64 50
6913 064630 00 60 43 65 14 42
6914 064631 31 14 42 21 20 35
6915 064632 21 20 20 77 00 00
6916 064633 061137 061070
6917 064634 064540 000001
6918 064635 064622 000000
6919 064636 004000 000000
6920 064637 000003 040456
6921 064640 60 70 43 64 00 57
6922 064641 46 00 55 57 66 45
6923 064642 00 51 56 63 64 62
6924 064643 65 43 64 51 57 56
6925 064644 00 46 41 51 54 45
6926 064645 44 00 67 51 64 50
6927 064646 00 60 43 65 14 42
6928 064647 31 14 42 21 20 35
6929 064650 21 20 21 77 00 00
6930 064651 061137 061070
6931 064652 064544 000001
6932 064653 064640 000000
6933 064654 60 70 43 64 00 57
6934 064655 46 00 55 57 66 45
6935 064656 00 51 56 63 64 62
6936 064657 65 43 64 51 57 56
6937 064660 00 46 41 51 54 45
6938 064661 44 00 67 51 64 50
6939 064662 00 60 43 65 14 42
6940 064663 31 14 42 21 20 35
6941 064664 21 21 21 77 00 00
6942 064665 061137 061070
6943 064666 064545 000001
6944 064667 064654 000000
6945 064670 000003 000500
6946 064671 000037 777776
6947 064672 123 04 0 00 000003
6948 064673 000000 000000
6949 064674 000037 777500
6950 064675 46 51 56 41 54 00
6951 064676 63 64 62 51 56 47
6952 064677 00 54 45 56 47 64
6953 064700 50 00 57 46 00 55
6954 064701 57 66 63 54 52 00
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-37
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0184
6955 064702 56 57 64 00 20 77
6956 064703 061137 061070
6957 064704 061002 000004
6958 064705 064675 000000
6959 064706 061137 061070
6960 064707 061002 000007
6961 064710 064675 000000
6962 064711 260740 000000
6963 064712 46 51 56 41 54 00
6964 064713 46 51 62 63 64 00
6965 064714 60 57 51 56 64 45
6966 064715 62 00 57 46 00 55
6967 064716 57 66 63 54 52 77
6968 064717 061137 061070
6969 064720 064711 000005
6970 064721 064712 000000
6971 064722 061137 061070
6972 064723 064670 000006
6973 064724 064712 000000
6974 064725 350740 000000
6975 064726 46 51 56 41 54 00
6976 064727 63 45 43 57 56 44
6977 064730 00 60 57 51 56 64
6978 064731 45 62 00 67 41 63
6979 064732 00 42 41 44 00 46
6980 064733 57 62 00 55 57 66
6981 064734 63 54 52 77 00 00
6982 064735 061137 061070
6983 064736 064725 000010
6984 064737 064726 000000
6985 064740 000037 777777
6986 064741 061137 061070
6987 064742 064740 000011
6988 064743 064726 000000
6989 064744 000000 000101
6990 064745 67 62 57 56 47 00
6991 064746 63 64 62 51 56 47
6992 064747 00 67 62 51 64 64
6993 064750 45 56 00 42 71 00
6994 064751 55 57 66 63 54 52
6995 064752 77 00 00 00 00 00
6996 064753 061137 061070
6997 064754 064744 000001
6998 064755 064745 000000
6999 064756 102 000 000 000 000
7000 064757 061137 061070
7001 064760 064756 000002
7002 064761 064745 000000
7003 064762 001 001 000 000
7004 064763 030002 777777
7005 064764 123 04 0 00 000012
7006 064765 004 00 0 00 035010
7007 064766 400116 000120
7008 064767 010740 035006
7009 064770 000003 035005
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-38
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0185
7010 064771 002240 035005
7011 064772 000000 000000
7012 064773 000000 035000
7013 064774 620002 000000
7014 064775 45 44 51 64 00 51
7015 064776 56 00 63 45 43 64
7016 064777 51 57 56 00 62 45
7017 065000 64 65 62 56 45 44
7018 065001 00 67 62 57 56 47
7019 065002 00 41 43 77 00 00
7020 065003 061137 061070
7021 065004 064774 000004
7022 065005 064775 000000
7023 065006 002240 035006
7024 065007 45 44 51 64 00 51
7025 065010 56 00 63 45 43 64
7026 065011 51 57 56 00 62 45
7027 065012 64 65 62 56 45 44
7028 065013 00 67 62 57 56 47
7029 065014 00 41 43 21 77 00
7030 065015 061137 061070
7031 065016 065006 000005
7032 065017 065007 000000
7033 065020 000003 000000
7034 065021 45 44 51 64 00 51
7035 065022 56 00 63 45 43 64
7036 065023 51 57 56 00 20 00
7037 065024 43 54 57 42 42 45
7038 065025 62 45 44 00 41 43
7039 065026 22 77 00 00 00 00
7040 065027 061137 061070
7041 065030 065020 000006
7042 065031 065021 000000
7043 065032 45 44 51 64 00 51
7044 065033 56 00 63 45 43 64
7045 065034 51 57 56 00 20 00
7046 065035 43 54 57 42 42 45
7047 065036 62 45 44 00 41 43
7048 065037 23 77 00 00 00 00
7049 065040 061137 061070
7050 065041 064770 000007
7051 065042 065032 000000
7052 065043 260740 035007
7053 065044 45 44 51 64 00 51
7054 065045 56 00 63 45 43 64
7055 065046 51 57 56 00 20 00
7056 065047 65 60 44 41 64 45
7057 065050 44 00 44 45 63 64
7058 065051 51 56 41 64 51 57
7059 065052 56 00 60 57 51 56
7060 065053 64 45 62 00 67 62
7061 065054 57 56 47 77 00 00
7062 065055 061137 061070
7063 065056 065043 000010
7064 065057 065044 000000
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-39
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0186
7065 065060 061137 061070
7066 065061 065020 000011
7067 065062 065044 000000
7068 065063 440740 035007
7069 065064 45 44 51 64 00 51
7070 065065 56 00 63 45 43 64
7071 065066 51 57 56 00 20 00
7072 065067 63 64 57 62 45 44
7073 065070 00 67 62 57 56 47
7074 065071 00 55 41 62 53 00
7075 065072 60 57 51 56 64 45
7076 065073 62 77 00 00 00 00
7077 065074 061137 061070
7078 065075 065063 000001
7079 065076 065064 000000
7080 065077 116 120 000 000 000
7081 065100 45 44 51 64 00 51
7082 065101 56 00 63 45 43 64
7083 065102 51 57 56 00 20 00
7084 065103 63 64 57 62 45 44
7085 065104 00 67 62 57 56 47
7086 065105 00 44 45 63 64 51
7087 065106 56 41 64 51 57 56
7088 065107 00 63 64 62 51 56
7089 065110 47 77 00 00 00 00
7090 065111 061137 061070
7091 065112 065077 000001
7092 065113 065100 000000
7093 065114 030007 777777
7094 065115 000 000 000 002
7095 065116 000 000 000000
7096 065117 440700 000034
7097 065120 000015 777777
7098 065121 440700 000003
7099 065122 123 04 0 00 002004
7100 065123 000000 000000
7101 065124 000013 002001
7102 065125 410010 000000
7103 065126 45 44 51 64 00 51
7104 065127 56 63 64 62 65 43
7105 065130 64 51 57 56 00 54
7106 065131 45 46 64 00 65 56
7107 065132 53 57 63 50 45 62
7108 065133 00 60 41 64 64 45
7109 065134 62 56 00 57 60 45
7110 065135 62 41 64 57 62 00
7111 065136 60 57 51 56 64 45
7112 065137 62 77 00 00 00 00
7113 065140 061137 061070
7114 065141 065125 000004
7115 065142 065126 000000
7116 065143 42 41 44 00 46 51
7117 065144 56 41 54 00 63 57
7118 065145 65 62 43 45 00 60
7119 065146 57 51 56 64 45 62
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-40
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0187
7120 065147 00 51 56 00 45 44
7121 065150 51 64 00 51 56 63
7122 065151 64 62 65 43 64 51
7123 065152 57 56 77 00 00 00
7124 065153 061137 061070
7125 065154 065117 000005
7126 065155 065143 000000
7127 065156 061137 061070
7128 065157 062603 000006
7129 065160 065143 000000
7130 065161 45 44 51 64 00 51
7131 065162 56 63 64 62 65 43
7132 065163 64 51 57 56 00 43
7133 065164 54 57 42 42 45 62
7134 065165 45 44 00 55 41 62
7135 065166 53 00 60 57 51 56
7136 065167 64 45 62 00 41 44
7137 065170 44 62 45 63 63 77
7138 065171 061137 061070
7139 065172 065120 000007
7140 065173 065161 000000
7141 065174 45 44 51 64 00 51
7142 065175 56 63 64 62 65 43
7143 065176 64 51 57 56 00 44
7144 065177 45 63 64 51 56 41
7145 065200 64 51 57 56 00 60
7146 065201 57 51 56 64 45 62
7147 065202 00 43 50 41 56 47
7148 065203 45 44 00 65 56 45
7149 065204 70 60 45 43 64 45
7150 065205 44 54 71 77 00 00
7151 065206 061137 061070
7152 065207 065121 000010
7153 065210 065174 000000
7154 065211 061137 061070
7155 065212 062615 000011
7156 065213 065174 000000
7157 065214 45 44 51 64 00 51
7158 065215 56 63 64 62 65 43
7159 065216 64 51 57 56 00 44
7160 065217 51 44 56 07 64 00
7161 065220 63 64 57 62 45 00
7162 065221 43 57 62 62 45 43
7163 065222 64 00 55 41 62 53
7164 065223 00 60 57 51 56 64
7165 065224 45 62 77 00 00 00
7166 065225 061137 061070
7167 065226 065121 000001
7168 065227 065214 000000
7169 065230 63 45 43 57 56 44
7170 065231 00 55 41 62 53 00
7171 065232 60 57 51 56 64 45
7172 065233 62 00 51 56 00 45
7173 065234 44 51 64 00 51 56
7174 065235 63 64 62 65 43 64
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-41
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0188
7175 065236 51 57 56 00 47 57
7176 065237 64 00 65 56 45 70
7177 065240 60 45 43 64 45 44
7178 065241 54 71 00 62 45 46
7179 065242 45 62 45 56 43 45
7180 065243 44 77 00 00 00 00
7181 065244 061137 061070
7182 065245 063432 043000
7183 065246 065230 000000
7184 065247 440740 000003
7185 065250 000640 777777
7186 065251 061137 061070
7187 065252 065250 000007
7188 065253 065161 000000
7189 065254 061137 061070
7190 065255 065247 000010
7191 065256 065174 000000
7192 065257 061137 061070
7193 065260 065247 000001
7194 065261 065214 000000
7195 065262 45 44 51 64 00 67
7196 065263 51 64 50 00 42 51
7197 065264 64 00 21 22 00 51
7198 065265 56 00 44 16 60 16
7199 065266 00 44 51 44 56 07
7200 065267 64 00 63 64 57 62
7201 065270 45 00 44 57 65 42
7202 065271 54 45 00 55 41 62
7203 065272 53 00 60 57 51 56
7204 065273 64 45 62 77 00 00
7205 065274 061137 061070
7206 065275 062615 000001
7207 065276 065262 000000
7208 065277 56 57 00 60 41 47
7209 065300 45 00 46 41 65 54
7210 065301 64 00 50 41 60 60
7211 065302 45 56 45 44 00 44
7212 065303 65 62 51 56 47 00
7213 065304 64 50 45 00 45 44
7214 065305 51 64 00 51 56 63
7215 065306 64 62 65 43 64 51
7216 065307 57 56 77 00 00 00
7217 065310 061137 061070
7218 065311 000000 000000
7219 065312 065277 000000
7220 065313 000040 000003
7221 065314 000003 000002
7222 065315 45 70 43 50 55 44
7223 065316 00 44 63 64 60 00
7224 065317 54 57 56 47 00 55
7225 065320 41 62 53 00 63 50
7226 065321 57 62 64 00 44 51
7227 065322 44 00 56 57 64 00
7228 065323 65 65 57 77 00 00
7229 065324 061137 061070
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-42
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0189
7230 065325 000000 000000
7231 065326 065315 000000
7232 065327 000001 000002
7233 065330 45 70 43 50 55 44
7234 065331 00 55 41 62 53 00
7235 065332 54 57 56 47 00 44
7236 065333 63 64 60 00 63 50
7237 065334 57 62 64 00 44 51
7238 065335 44 00 56 57 64 00
7239 065336 65 65 57 77 00 00
7240 065337 061137 061070
7241 065340 000000 000000
7242 065341 065330 000000
7243 065342 000040 000005
7244 065343 000006 000007
7245 065344 45 70 43 50 55 44
7246 065345 00 46 41 51 54 45
7247 065346 44 77 00 00 00 00
7248 065347 061137 061070
7249 065350 065343 000011
7250 065351 065344 000000
7251 065352 061137 061070
7252 065353 061145 000001
7253 065354 065344 000000
7254 065355 061137 061070
7255 065356 061354 000002
7256 065357 065344 000000
7257 065360 23 21 24 21 25 31
7258 065361 237777 777777
7259 065362 000001 777777
7260 065363 000002 000000
7261 065364 000004 007001
7262 065365 123 04 0 00 000001
7263 065366 256 02 0 00 007677
7264 065367 010 00 0 00 777760
7265 065370 004000 000000
7266 065371 000007 007700
7267 065372 60 70 43 64 45 44
7268 065373 00 44 45 43 51 55
7269 065374 41 54 00 64 57 00
7270 065375 42 51 56 41 62 71
7271 065376 00 51 56 63 64 62
7272 065377 65 43 64 51 57 56
7273 065400 00 47 45 56 45 62
7274 065401 41 64 45 44 00 64
7275 065402 50 45 00 67 62 57
7276 065403 56 47 00 41 56 63
7277 065404 67 45 62 77 00 00
7278 065405 061137 061070
7279 065406 061002 000007
7280 065407 065372 000000
7281 065410 000001 145457
7282 065411 061137 061070
7283 065412 065410 000010
7284 065413 065372 000000
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-43
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0190
7285 065414 220640 000000
7286 065415 000000 220640
7287 065416 60 70 43 64 45 44
7288 065417 00 44 45 43 51 55
7289 065420 41 54 00 64 57 00
7290 065421 42 51 56 41 62 71
7291 065422 00 51 56 63 64 62
7292 065423 65 43 64 51 57 56
7293 065424 00 65 60 44 41 64
7294 065425 45 44 00 64 50 45
7295 065426 00 63 57 65 62 43
7296 065427 45 00 60 57 51 56
7297 065430 64 45 62 00 51 56
7298 065431 43 57 62 62 45 43
7299 065432 64 54 71 77 00 00
7300 065433 061137 061070
7301 065434 065415 000005
7302 065435 065416 000000
7303 065436 230000 000000
7304 065437 061137 061070
7305 065440 065436 000006
7306 065441 065416 000000
7307 065442 400000 000000
7308 065443 60 70 43 64 45 44
7309 065444 00 44 45 43 51 55
7310 065445 41 54 00 64 57 00
7311 065446 42 51 56 41 62 71
7312 065447 00 51 56 63 64 62
7313 065450 65 43 64 51 57 56
7314 065451 00 44 51 44 56 07
7315 065452 64 00 45 70 50 41
7316 065453 65 63 64 00 64 50
7317 065454 45 00 44 51 47 51
7318 065455 64 00 43 57 65 56
7319 065456 64 77 00 00 00 00
7320 065457 061137 061070
7321 065460 065442 000004
7322 065461 065443 000000
7323 065462 114 117 126 105 122
7324 065463 256 01 0 00 000013
7325 065464 000024 002003
7326 065465 400000 007010
7327 065466 220500 000001
7328 065467 004000 000007
7329 065470 000001 000040
7330 065471 60 70 43 64 00 21
7331 065472 14 55 57 66 63 54
7332 065473 52 00 46 41 51 54
7333 065474 45 44 77 00 00 00
7334 065475 061137 061070
7335 065476 065462 000001
7336 065477 065471 000000
7337 065500 400000 000002
7338 065501 044220 000004
7339 065502 300300 000001
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-44
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0191
7340 065503 750140 000000
7341 065504 000007 010027
7342 065505 220500 034427
7343 065506 55 65 65 57 00 44
7344 065507 51 44 56 07 64 00
7345 065510 63 45 64 00 65 60
7346 065511 00 60 43 63 00 43
7347 065512 57 62 62 45 43 64
7348 065513 54 71 77 00 00 00
7349 065514 061137 061070
7350 065515 061503 000002
7351 065516 065506 000000
7352 065517 55 65 65 57 00 44
7353 065520 51 44 56 07 64 00
7354 065521 63 45 64 00 65 60
7355 065522 00 60 43 65 00 42
7356 065523 51 64 00 51 56 00
7357 065524 60 43 00 46 54 41
7358 065525 47 63 77 00 00 00
7359 065526 061137 061070
7360 065527 000000 000001
7361 065530 065517 000000
7362 065531 750140 044200
7363 065532 55 65 65 57 00 51
7364 065533 56 00 56 57 56 15
7365 065534 20 00 63 45 43 64
7366 065535 51 57 56 00 63 64
7367 065536 57 62 45 44 00 67
7368 065537 62 57 56 47 00 51
7369 065540 56 46 57 00 51 56
7370 065541 00 65 60 64 13 24
7371 065542 22 24 77 00 00 00
7372 065543 061137 061070
7373 065544 065531 000007
7374 065545 065532 000000
7375 065546 000007 010030
7376 065547 55 65 65 57 00 51
7377 065550 56 00 56 57 56 15
7378 065551 20 00 63 45 43 64
7379 065552 51 57 56 00 63 64
7380 065553 57 62 45 44 00 64
7381 065554 50 45 00 67 62 57
7382 065555 56 47 00 60 43 77
7383 065556 061137 061070
7384 065557 065546 000006
7385 065560 065547 000000
7386 065561 55 65 65 57 00 63
7387 065562 64 57 62 45 44 00
7388 065563 51 56 43 57 62 62
7389 065564 45 43 64 00 45 46
7390 065565 46 45 43 64 51 66
7391 065566 45 00 41 44 44 62
7392 065567 45 63 63 77 00 00
7393 065570 061137 061070
7394 065571 065327 000005
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-45
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0192
7395 065572 065561 000000
7396 065573 602512 000034
7397 065574 55 65 65 57 00 44
7398 065575 51 44 56 07 64 00
7399 065576 63 45 64 00 65 60
7400 065577 00 60 62 57 43 45
7401 065600 63 63 00 43 57 56
7402 065601 64 45 70 64 00 67
7403 065602 57 62 44 00 43 57
7404 065603 62 62 45 43 64 54
7405 065604 71 77 00 00 00 00
7406 065605 061137 061070
7407 065606 065573 000004
7408 065607 065574 000000
7409 065610 003220 004000
7410 065611 037777 777775
7411 065612 000004 000020
7412 065613 740140 000000
7413 065614 000014 004666
7414 065615 740140 003200
7415 065616 54 65 65 57 00 63
7416 065617 64 57 62 45 44 00
7417 065620 64 50 45 00 67 62
7418 065621 57 56 47 00 44 41
7419 065622 64 41 77 00 00 00
7420 065623 061137 061070
7421 065624 065615 000001
7422 065625 065616 000000
7423 065626 000014 004667
7424 065627 061137 061070
7425 065630 065626 000002
7426 065631 065616 000000
7427 065632 000004 000015
7428 065633 54 65 65 57 00 43
7429 065634 41 65 63 45 44 00
7430 065635 64 50 45 00 67 62
7431 065636 57 56 47 00 45 46
7432 065637 46 45 43 64 51 66
7433 065640 45 00 41 44 44 62
7434 065641 45 63 63 00 64 57
7435 065642 00 47 45 64 00 63
7436 065643 64 57 62 45 44 77
7437 065644 061137 061070
7438 065645 065632 000001
7439 065646 065633 000000
7440 065647 740140 060661
7441 065650 740140 060662
7442 065651 54 65 65 57 00 43
7443 065652 54 57 42 42 45 62
7444 065653 45 44 00 60 43 00
7445 065654 46 54 41 47 63 77
7446 065655 061137 061070
7447 065656 065650 000001
7448 065657 065651 000000
7449 065660 010000 000000
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page 1-46
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0193
7450 065661 000014 004666
7451 065662 010000 003200
7452 065663 061137 061070
7453 065664 065662 000001
7454 065665 065616 000000
7455 065666 061137 061070
7456 065667 065612 000001
7457 065670 065633 000000
7458 LIST
7459 066223 000000 000000 ENDSLD: 0
7460
7461 IFDEF DEBUG,<
7462 066224 PATCH: BLOCK DEBUG ;PATCHING AREA
7463 >
7464
7465 ;PROGRAM VARIABLES
7466 066324 VAR
7467
7468 IFDEF PGMEND,<
7469 066326 000000 000000 END: 0
7470 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 066327
CPU TIME USED 00:32.627
41P CORE USED
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page S-1
STOR KLM 18-Sep-79 17:18 SYMBOL TABLE SEQ 0194
A 000001 CRLF 030242 FRD36 037340 000004 HOMEM0 055255
ABORT 400000 spd CRLF2 030243 FRD8 037400 000004 HOMEM1 055111
AC 000004 CRY0 200000 spd FRDLNK 027773 HOMEM2 055205
AC0 000004 CRY1 100000 spd FREAD 037300 000004 HOMEM3 055134
AC1 000005 CSHFLG 030506 FSELEC 037240 000004 HOMEM4 055155
AC2 000006 CSHMEM 030507 FSELNK 027772 HOMEM5 055144
AC3 000007 CST 032000 FXBLT 057162 HOMEM6 055166
AC4 000010 CSTDAT 000001 spd FXU 000100 spd HOMIBP 055753
AC5 000011 CSTMSK 000000 spd GET 262740 000000 HOMICK 054721
ACCESS 124000 CSTPN 000032 spd GO 260740 000000 HOMIII 056117
ACL 000006 CVTDBO 010000 000000 GOEXEC 076000 000000 HOMILU 060425
ALLOW1 030614 CWRTBI 037140 000004 GOOD0 055043 HOMJSP 055432
ALOHA 030603 CYCL60 030505 GOTONE 054257 HOMLB1 056051
ALTMGO 030063 DCK 000040 spd GOUSER 054150 HOMLDB 055771
ANXM 010000 spd DDTLNK 027775 HALT 254200 000000 HOMLL2 056206
APR 000000 spd DDTSRT 030007 HMIDPB 056007 HOMLLL 056163
AROV 400000 spd DEBUG 000100 spd HOM000 057631 HOMLUO 060645
AROVU 000010 spd DECVER 000003 spd HOM001 057640 HOMLUU 060711
AST 030252 DF22F 030142 HOM011 057647 HOMMSL 057735
ATSIN 030253 DIAGMN 030002 HOM100 057656 HOMMUO 060562
B 000002 DING 010000 spd HOM101 057665 HOMPAL 056243
BAD0 055041 DOLLAR 030261 HOM111 057674 HOMPJ 055465
BADPF 054164 DRIV1 060270 HOMADJ 056276 HOMPP2 055621
BADPFX 054166 DRIV2 060276 HOMAJ2 056312 HOMPP3 055634
BADUOX 054140 DRIVER 060255 HOMBL2 057010 HOMPP4 055657
BADUUO 054135 DROPDV 037240 000002 HOMBL5 057060 HOMRR2 056513
BEGEND 030057 EDIT 004000 000000 HOMBL7 056751 HOMSFM 056340
BEGIN 030000 EDSKIP 060301 HOMBUL 056677 HOMSH 060513
BEGIN1 030010 EMAP0 044000 HOMDRV 060273 HOMSM2 056376
BELL 030256 END 066326 HOME0 054333 HOMSPJ 055523
BIS 020000 spd ENDFIX 030577 HOME00 055234 HOMSRF 056437
BXBLT 057304 ENDSLD 066223 HOME10 055006 HOMSS1 055712
C 000003 ENDUUO 037500 000004 HOME11 054643 HOMSS2 055723
CBR 000002 spd EOPUUO 037700 000004 HOME12 054767 HOMSS3 055733
CCA 000014 spd EPT 033000 HOME13 054677 HOMSSS 055702
CFLUSH 037100 000004 EPTPN 000033 spd HOME14 055073 HOMTIM 056570
CHAIN 000004 spd EPWD 030607 HOME15 055316 HOMTLG 054307
CHKM1 054243 ERLOOP 035000 000000 HOME16 055340 HOMXB2 057236
CHKM2 054254 ERLP1 035040 000000 HOME17 055370 HOMXB3 057254
CHKM3 054244 ERLP2 035100 000000 HOME18 055411 HOMXB4 057317
CHNOFF 001000 spd ERMORE 030101 HOME1B 054612 HOMXBT 057176
CHNON 002000 spd ERRHLT 037600 000004 HOME2 054347 HOMXPP 055610
CINVAL 037040 000004 ERRPC 030052 HOME2M 055122 HYPEN 030250
CLK 001000 spd ERRTLS 030053 HOME3 054363 I 000012
CLKCLR 001000 spd ERSTOP 002000 spd HOME4 054411 INHCSH 000020 spd
CLKDIS 004000 spd ERUUO 036000 000000 HOME5 054425 INHPAG 000100 spd
CLKENB 002000 spd ESECT 033540 HOME6 054456 INXM 000100 spd
CLKU 001000 spd EXCASB 000001 spd HOME7 054514 IOCLR 200000 spd
CLOCKF 030045 EXCHMD 000004 spd HOME8 054530 ITERAT 000001 spd
CLOKOP 037540 000004 EXIOT 004000 spd HOME9 054750 ITRCH1 030104
CNTLC 030062 EXTEND 123000 000000 HOME90 054544 ITRCNT 030024
COMMA 030244 FATAL 037640 000004 HOMED2 060220 JEN 254500 000000
CONSW 030046 FLDSEP 000003 spd HOMED9 060035 JOB41 000041 spd
CPOPJ 030065 FOV 040000 spd HOMEDI 060150 JOBAPR 000125 spd
CPOPJ1 030064 FOVU 000100 spd HOMEIA 054664 JOBCNI 000126 spd
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page S-2
STOR KLM 18-Sep-79 17:18 SYMBOL TABLE SEQ 0195
JOBDDT 000074 spd MAP3 047000 P2PN 000037 spd PICHN7 000001 spd
JOBFF 000121 spd MAP4 050000 P3 036000 PICHNA 000177 spd
JOBOPC 000130 spd MAP5 051000 P3PN 000036 spd PICLR 010000 spd
JOBREL 000044 spd MAP6 052000 P4 043000 PIOFF 000400 spd
JOBREN 000124 spd MAP7 053000 P4PN 000043 spd PION 000200 spd
JOBSA 000120 spd MAPADR 037540 000002 P5 041000 PJRST 254000 000000
JOBSYM 000116 spd MAPCNK 037640 000002 P5PN 000041 spd PLIST 030303
JOBTPC 000127 spd MAPMEM 037000 000004 P6 042000 PLISTE 030504
JOBUSY 000117 spd MAPNEW 030143 P6PN 000042 spd PLISTS 030304
JOBUUO 000040 spd MAPPNT 037740 000002 P7 040000 PLUS 030251
JOBVER 000137 spd MAPSET 037600 000002 P7PN 000040 spd PMAPRT 054201
JRSTF 254100 000000 MARGIN 030055 PAG 000010 spd PNT1 037040 000000
KAHZ50 000002 spd MCNVER 000000 spd PALERS 001000 spd PNT11 037440 000000
KAIFLG 030040 MCODE 034424 PARCLR 200000 spd PNT11F 037440 000001
KLFLG 030041 MEMLOW 030145 PARDIS 100000 spd PNT1F 037040 000001
KLPAGE 054007 MEMSEG 037440 000002 PAREA1 000000 PNT2 037100 000000
KLPAGF 040000 spd MEMSIZ 030146 PAREA2 000017 PNT2F 037100 000001
LDLNK 027774 MEMTOT 030144 PAREA3 444653 454400 PNT3 037140 000000
LFP 030254 MEMZRO 037500 000002 PAREA4 605664 000000 PNT3F 037140 000001
LK1 054225 MESSAG 000100 spd PAREA5 000000 PNT4 037200 000000
LOOPER 004000 spd MINFO 034427 PAREA6 000000 PNT4F 037200 000001
LUUO 000040 spd MINUS 030250 PAREA7 030035 PNT5 037240 000000
LUUO1 030070 MODDVC 000040 spd PAREA8 030036 PNT5F 037240 000001
LUUO10 030070 MODDVL 030000 spd PARENB 040000 spd PNT6 037300 000000
LUUO11 030070 MODDVU 030000 spd PARU 004000 spd PNT6F 037300 000001
LUUO12 030070 MODLNK 027776 PASCNT 030047 PNT7 037340 000000
LUUO13 030070 MODPCP 037300 000002 PATCH 066224 PNT7F 037340 000001
LUUO14 030070 MODPCU 037340 000002 PBELL 037040 000007 PNTA 037000 000000
LUUO15 030070 MOLDPC 034425 PCRL 037000 030242 PNTADF 037400 000001
LUUO16 030070 MONCTL 030043 PCRL2 037000 030243 PNTADR 037400 000000
LUUO17 030070 MONFLG 030042 PCRL2F 037040 030243 PNTAF 037000 000001
LUUO2 030070 MONTEN 030044 PCRLF 037040 030242 PNTAL 037740 000000
LUUO20 030070 MONTYP 030516 PCUBIT 004000 000000 spd PNTALF 037740 000001
LUUO21 030070 MOVSLJ 016000 000000 PDISF 030221 PNTCHF 037500 000001
LUUO22 030070 MPVU 020000 spd PDLOVU 200000 spd PNTCHR 037500 000000
LUUO23 030070 MTR 000024 spd PERIOD 030245 PNTCI 037000 000000
LUUO24 030070 MTROP 037200 000004 PFF 030610 PNTCIF 037040 000000
LUUO25 030070 MUUOH 054116 PFH 054161 PNTCW 037100 000002
LUUO26 030070 MUUOH1 054127 PFHA 034503 PNTCWF 037140 000002
LUUO27 030070 MUUORT 054133 PFHRET 054200 PNTDCF 037640 000001
LUUO3 030070 N 000000 spd PFHSPC 030611 PNTDEC 037640 000000
LUUO30 030070 NONE 057076 PFORCE 037040 000026 PNTDS 037700 000000
LUUO31 030070 NOPNT 040000 spd PFPC 034501 PNTDSF 037700 000001
LUUO32 030070 NOQ 054233 PFSTRT 030005 PNTENB 030220
LUUO33 030070 NPAGES 000007 spd PFW 034500 PNTEXT 030021
LUUO4 030070 NREMOB 054235 PGMEND 000001 spd PNTFLG 030217
LUUO5 030070 NXMU 010000 spd PGMINT 265000 030011 PNTHW 037540 000000
LUUO6 030070 OLDEPT 030604 PGMNAM 030615 PNTHWF 037540 000001
LUUO7 030070 OPRSEL 000010 spd PI 000004 spd PNTINH 030222
LUUOI 000041 spd OPTIME 030224 PICHN1 000100 spd PNTLPT 020000 spd
MADDR 034426 OURACS 000002 spd PICHN2 000040 spd PNTMGN 037700 000002
MAP0PN 000044 P 000017 PICHN3 000020 spd PNTMSF 037040 000000
MAP1 045000 P1 035000 PICHN4 000010 spd PNTMSG 037000 000000
MAP1PN 000045 P1PN 000035 spd PICHN5 000004 spd PNTNAM 030020
MAP2 046000 P2 037000 PICHN6 000002 spd PNTNM 037200 000002
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page S-3
STOR KLM 18-Sep-79 17:18 SYMBOL TABLE SEQ 0196
PNTOCF 037740 000003 SADR9 254200 030000 T12 054533 T71 056577
PNTOCS 037700 000003 SBINIT 030011 T13 054554 T71A 056641
PNTOCT 037600 000000 SCOPE 030116 T14 054615 T71B 056642
PNTOTF 037600 000001 SELECT 000001 spd T15 054646 T72 056651
PNTSIX 037000 000002 SFM 254600 000000 T16 054667 T73 056706
PNTSPC 030223 SFSTRT 030004 T17 054702 T74 056756
PNTSXF 037040 000002 SIGST 000002 spd T2 000013 T75 057015
PSIXL 037600 000003 SKPA 000700 spd T20 054724 T76 057070
PSIXLF 037640 000003 SKPM 000500 spd T21 054753 T77 057104
PSIXM 037100 000000 SKPN 000600 spd T22 054772 TAB 030247
PSIXMF 037200 000000 SLASH 030260 T23 055011 TESTPC 030051
PSP 037000 000040 SM10 030524 T24 055047 TESTS 054301
PSPF 037040 000040 SPACE 030246 T25 055076 TICKS 030054
PTEMP 066324 SPT 031000 T26 055114 TIM 000020 spd
PTLUP 054056 SPTBR 000003 spd T27 055125 TIMBAS 033510
PUSE 054000 SPTPN 000031 spd T3 000014 TIMLUP 056623
PUT 261740 000000 SRTDDT 030007 T30 055137 TIMVEC 033514
PVPAGI 030511 STA 030642 T31 055147 TOTALS 100000 spd
PWFCLR 400000 spd START 030625 T32 055160 TRAP3 033423
PXCT 256000 000000 START1 030013 T33 055171 TRAPF 020000 spd
PXRUF 057457 START2 030014 T34 055210 TTALTM 037340 000003
PXRUT 057453 START3 030015 T35 055237 TTICHR 037000 000003
PXRUT2 057456 START4 030016 T36 055260 TTICLR 037500 000003
PXSKIP 057461 START5 030017 T37 055332 TTICNV 037240 000003
QUEST 030257 STARTA 030653 T4 000015 TTIDEC 037200 000003
RADIX 030262 STOP 000000 spd T40 055346 TTINO 037100 000003
RADLSC 030264 SUBLNK 027777 T41 055403 TTIOCT 037140 000003
RADLSP 030263 SWITCH 037400 000002 T42 055417 TTIYES 037040 000003
RANDBS 030022 SWPTAB 030525 T43 055435 TTLOOK 037300 000003
REENTR 030006 SWTEXR 030023 T44 055475 TTNBRF 030510
RELIAB 000400 spd SYSEXR 030003 T45 055533 TTSIXB 037400 000003
REPT 000015 spd T 061137 T46 055664 TTYFIL 030227
REPT1 000016 spd T01 054301 T47 055705 TTYINP 037440 000003
REPTU 030115 T02 054316 T5 000016 TTYSPD 030230
REPTUO 034000 000000 T03 054336 T50 055715 TXTINH 000200 spd
REQSET 004000 spd T04 054352 T51 055726 UIOBIT 004000 000000 spd
RESDAT 030605 T05 054366 T52 055736 ULPTR 034420
RESRT1 030076 T06 054414 T53 055760 UPT 034000
RESRT2 030077 T07 054430 T54 055774 UPTPN 000034 spd
RETURN 030012 T1 000012 T55 056017 UPWD 030606
REVBLK 000006 spd T10 054461 T56 056064 USECT 034540
RSTART 200000 spd T100 057257 T57 056130 USER 030037
RTN 263740 000000 T101 057355 T60 056173 USERF 010000 spd
RTP 030255 T102 057536 T61 056216 USRBIT 010000 000000 spd
RUNFLG 030050 T103 057677 T62 056252 USRCRF 030241
SADR1 030000 T104 057766 T63 056302 USRLFF 030240
SADR10 254200 030000 T105 060067 T64 056316 UUOCOD 030600
SADR11 254200 030000 T106 060201 T64A 056352 UUODIS 030124
SADR2 030000 T107 060252 T64B 056353 UUOE 030602
SADR3 030000 T11 054517 T65 056360 UUOEXT 030065
SADR4 030007 T110 060351 T66 056402 UUONPC 034430
SADR5 030061 T111 060444 T66A 056454 UUOPC 030601
SADR6 030007 T112 060517 T66B 056462 UUOPTR 033420
SADR7 254200 030000 T113 060620 T67 056466 UUORTN 030066
SADR8 254200 030000 T116 060664 T70 056525 UUOSKP 030064
DFKED EXTENDED ADDRESSING TEST MACRO %53A(1152) 13:21 9-Apr-84 Page S-4
STOR KLM 18-Sep-79 17:18 SYMBOL TABLE SEQ 0197
UUOSPC 030613 $TYPNB 030233
UUOSPF 030612 $UMODE 030032
X 000013 $UORTX 030067
XBLT 020000 000000 $USRHL 030073
XBLTS0 066325 $UUOER 030070
XJEN 254300 000000 $VTF 030237
XJRSTF 254240 000000 %ACTFL 030121
XMOVEI 415000 000000 %ACTUL 030122
XPCW 254340 000000 %COREC 030120
Y 000014 %CORFL 030117
$$MUUO 030517 %DISCR 030123
$$OUTE 030520 %ERHI1 030512
$$TAX1 030522 %ERHI2 030513
$$TAX2 030523 %ERHI3 030514
$$TOGG 030521 .JB41 000041 spd
$$UUO 030515 .JBAPR 000125 spd
$ACC0 030106 .JBCNI 000126 spd
$BEND1 030060 .JBDDT 000074 spd
$BEND2 030061 .JBFF 000121 spd
$CHRIN 030232 .JBOPC 000130 spd
$CRLF 030234 .JBREL 000044 spd
$DEVCH 000017 spd .JBREN 000124 spd
$DSKUP 030033 .JBSA 000120 spd
$DVCH1 000016 spd .JBSYM 000116 spd
$DVOFF 030226 .JBTPC 000127 spd
$EMODE 030031 .JBUSY 000117 spd
$FFF 030236 .JBUUO 000040 spd
$IBUF 030274 .JBVER 000137 spd
$INEXT 030300
$INNM 030277
$ITRHL 030071
$ITRX1 030072
$MMAP 030034
$MODVL 030027
$MODVU 030030
$OBUF 030265
$ONETM 030056
$OUTEX 030271
$OUTNM 030270
$PARER 030100
$PNAME 030025
$PSHER 030103
$PVER 030026
$RSRTX 030074
$RSRTY 030075
$SPAG1 030112
$START 030001
$SVAPR 030110
$SVPAG 030111
$SVPI 030107
$SVUPC 030114
$SVUUO 030113
$TABF 030235
$TTCHR 030231
$TWCNT 030225
A 46# 858 859 860 861 875 876 877 879 887 888 894 895 896
897 898 899 1017 1018 1019 1020 1022 1023 1024 1029 1030 1031 1032 SEQ 0198
1033 1038 1039 1041 1042 1043 1044 1045 1049 1051 1056 1057 1059 1060
1062 1063 1067 1070 1079 1081 1082 1086 1087 1088 1089 1090 1091 1101
1102 1103 1104 1109 1110 1111 1112 1113 1114 1124 1125 1126 1128 1129
1130 1134 1136 1141 1170 1172 1173 1175 1177 1228 1288 1290 1291 1292
1293 1295 1296 1297 1331 1332 1335 1344 1349 1350 1351 1353 1357 1360
1370 1372 1379 1382 1395 1397 1402 1405 1417 1423 1428 1430 1433 1437
1440 1448 1449 1450 1451 1452 1456 1459 1469 1470 1472 1478 1484 1485
1486 1488 1490 1494 1497 1507 1513 1519 1524 1525 1526 1527 1528 1530
1532 1536 1539 1548 1549 1551 1552 1554 1557 1560 1571 1572 1576 1585
1586 1587 1590 1602 1607 1608 1610 1615 1617 1618 1619 1620 1621 1622
1623 1625 1634 1637 1648 1653 1655 1656 1657 1660 1673 1676 1687 1689
1694 1703 1706 1716 1717 1724 1727 1740 1745 1747 1748 1749 1750 1754
1757 1769 1774 1776 1778 1790 1793 1805 1813 1816 1820 1828 1834 1835
1839 1842 1855 1861 1866 1867 1871 1872 1873 1874 1885 1886 1889 1903
1909 1914 1917 1918 1920 1921 1924 1928 1939 1944 1946 1950 1953 1962
1963 1967 1970 1979 1980 1985 1989 2005 2010 2021 2024 2027 2037 2038
2042 2046 2057 2062 2064 2069 2072 2087 2092 2093 2095 2101 2102 2107
2111 2121 2126 2128 2129 2135 2138 2161 2166 2167 2168 2173 2174 2175
2176 2178 2185 2195 2203 2206 2209 2222 2226 2229 2235 2246 2252 2257
2258 2260 2265 2268 2271 2272 2275 2292 2297 2301 2318 2323 2325 2328
2331 2341 2346 2348 2353 2366 2369 2372 2373 2374 2377 2388 2393 2394
2395 2398 2400 2406 2407 2416 2417 2418 2421 2431 2437 2443 2448 2453
2459 2470 2471 2472 2473 2477 2479 2482 2489 2491 2494 2497 2498 2503
2504 2511 2512 2516 2517 2518 2519 2520 2525 2526 2541 2546 2548 2616
2621 2623 2624 2625 2629 2630 2643 2644 2645 2646 2647 2663 2664 2665
2666 2667 2668 2679 2680 2694 2700 2706 2711 2713 2714 2715 2717 2718
2728 2729 2732 2735 2736 2739 2752 2759 2765 2770 2772 2773 2774 2775
2776 2782 2783 2786 2789 2790 2805 2810 2812 2814 2819 2821 2823 2831
2832 2836 2839 2842 2843 2857 2858 2859 2860 2861 2862 2867 2870 2873
2874 2890 2896 2903 2904 2908 2910 2922 2925 2936 2941 2943 2945 2950
2952 2955 2960 2963 2972 2973 2976 2981 2984 2996 3001 3003 3005 3014
3015 3016 3019 3022 3024 3027 3032 3033 3037 3046 3047 3048 3049 3051
3059 3060 3063 3073 3078 3083 3088 3089 3090 3091 3092 3093 3097 3098
3100 3101 3104 3107 3108 3111 3114 3115 3116 3119 3122 3123 3124 3125
3126 3128 3129 3132 3142 3147 3154 3155 3158 3159 3162 3163 3164 3167
3170 3171 3189 3190 3192 3199 3204 3205 3206 3207 3208 3209 3210 3211
3213 3225 3228 3234 3253 3255 3256 3257 3258 3260 3261 3262 3265 3266
3267 3287 3290 3295 3296 3297 3298 3301 3314 3320 3325 3327 3332 3333
3339 3341 3358 3364 3370 3376 3381 3383 3384 3385 3386 3387 3390 3396
3397 3416 3423 3429 3435 3436 3437 3439 3442 3445 3446 3463 3469 3475
3481 3486 3488 3490 3491 3492 3494 3497 3503 3504 3507 3522 3523 3526
3527 3528 3531 3545 3551 3557 3563 3574 3575 3576 3577 3578 3579 3588
3589 3644 3645 3648 3656 3658 3661 3713 3714 3725 3727 3780 3781 3784
3792 3793 3796 3818 3823 3830 3832 3838 3844 3850 3856 3862 3869 3870
3871 3872 3874 3876 3877 3879 3880 3881 3884 3902 3904 3907 3919 3921
3924 3936 3938 3941 3953 3955 3958 3978 3983 3984 3985 3990 3993 3994
3999 4000 4001 4006 4007 4008 4013 4014 4015 4020 4021 4022 4027 4028
4029 4030 4031 4032 4033 4034 4037 4040 4043 4044 4047 4050 4053 4054
4057 4060 4063 4064 4067 4070 4073 4074 4077 4080 4083 4084 4087 4090
4101 4107 4119 4120 4122 4123 4126 4127 4164 4165 4168 4191 4197 4204
4206 4208 4210 4211 4214 4215 4221 4222 4225 4226 4263 4264 4267 4270
4271 4274 4291 4297 4303 4309 4315 4321 4322 4330 4331 4335 4336 4338
4339 4379 4380 4383 4400 4401 4448 4449 4452 4455 4456 4459 4506 4507 SEQ 0199
4511 4512 4537 4538 4559 4561 4571 4573 4576 4593 4600 4607 4612 4618
4619 4620 4627 4628 4630 4631 4632 4633 4634 4635 4636 4678 4684 4689
4690 4692 4699 4700 4702 4703 4712 4714 4715 4718 4719 4722 4733 4742
4744 4745 4747 4748 4749 4752 4754 4755 4756 4758 4761 4762 4773 4787
4788 4791 4826 4831 4832 4833 4834 4839 4840 4846 4847 4850 4858 4859
4862 4865 4866 4869 4879 4884 4885 4886 4887 4892 4893 4900 4901 4904
4912 4913 4916
ABORT 231#
AC 52# 53 2901 2908 2914 2916 2919 3329 3340 3499 3502 3525 3528 3531
3586 3593 3677 3699 3731 3885 3887 4113 4119 4131 4134 4209 4210 4230
4233 4320 4335 4345 4348 4399 4414 4417 4482 4483 4484 4630 4698 4704
4753 4754 4783 4812 4815
AC0 53# 1231 1234 1237 1239 1241 1242 1243 1244 1245 1267 1268 1269 1273
4624 4664 4667
AC1 54# 1240 1244 1268 1270 3885 3886 4114 4142 4145 4223 4235 4238 4324
4351 4354 4403 4420 4423 4622 4652 4656 4706 4784 4806 4809
AC2 55# 1269 1271 3825 3867 4115 4147 4150 4224 4241 4244 4325 4356 4359
4404 4425 4428 4623 4658 4661 4708 4785 4800 4803
AC3 56# 1236 1238 1241 1242 1258 3826 3868 4116 4136 4139 4219 4246 4249
4327 4362 4365 4406 4431 4434 4508 4625 4641 4644 4705 4786 4794 4797
AC4 57# 1248 1250 1254 1257 3827 3887 3915 3932 3949 4117 4153 4156 4217
4252 4255 4328 4368 4371 4407 4437 4440 4509 4535 4557 4564 4646 4649
4709
AC5 58# 1250 1251 1252 4118 4158 4161 4218 4257 4260 4329 4373 4376 4408
4442 4445 4510 4558 4565 4568 4710
ACCESS 217# 1043 1068 1079 1281 1290
ACL 50#
ALLOW1 846# 893 1132 3524 3695 3700 4513 4515 4539 4541 4767
ALOHA 832# 4838 4891
ALTMGO 585#
ANXM 499#
APR 858
AROV 499#
AROVU 499#
AST 700#
ATSIN 701#
B 47# 859 871 875 1069 1070 1071 1072 1073 1080 1081 1171 1174 1176
1260 1262 1283 1285 1294 1296 1322 1323 1345 1352 1354 1370 1373 1374
1375 1392 1393 1395 1398 1418 1424 1429 1431 1432 1434 1453 1473 1479
1487 1489 1508 1514 1520 1529 1533 1553 1574 1575 1603 1611 1616 1626
1631 1649 1654 1661 1668 1669 1670 1690 1691 1695 1700 1721 1741 1746
1751 1770 1775 1779 1784 1785 1787 1806 1812 1829 1836 1856 1862 1866
1870 1904 1910 1917 1919 1940 1945 1947 1964 1982 2002 2020 2039 2058
2063 2066 2088 2096 2104 2122 2127 2130 2131 2132 2162 2169 2179 2183
2188 2191 2192 2198 2199 2200 2221 2247 2253 2257 2259 2278 2279 2282
2293 2319 2324 2326 2342 2346 2347 2349 2354 2355 2357 2358 2361 2366
2369 2389 2401 2406 2408 2432 2438 2444 2449 2454 2460 2465 2466 2467
2468 2474 2487 2501 2523 2542 2547 2551 2567 2584 2600 2617 2622 2626
2631 2634 2648 2669 2681 2684 2695 2701 2707 2712 2716 2719 2753 2760
2766 2771 2779 2791 2794 2806 2811 2815 2824 2833 2844 2847 2864 2875
2878 2891 2897 2909 2911 2937 2946 2953 2959 2974 2980 2997 3002 3006
3011 3023 3052 3057 3074 3079 3084 3096 3097 3143 3148 3156 3157 3172
3175 3189 3193 3200 3214 3224 3235 3238 3274 3275 3276 3279 3293 3303 SEQ 0200
3315 3321 3326 3334 3337 3342 3345 3359 3365 3371 3377 3398 3401 3417
3424 3430 3437 3441 3447 3450 3464 3470 3476 3482 3486 3498 3509 3512
3546 3552 3558 3564 3587 3590 3650 3653 3657 3663 3666 3675 3696 3697
3729 3786 3789 3798 3801 3804 3805 3808 3819 3828 3833 3839 3845 3851
3857 3863 3875 3878 3883 3894 3903 3909 3912 3920 3926 3929 3937 3943
3946 3954 3960 3963 3979 3986 3995 4002 4009 4016 4023 4033 4035 4045
4055 4065 4075 4085 4102 4108 4122 4128 4170 4173 4192 4198 4205 4207
4225 4227 4292 4298 4304 4310 4316 4323 4338 4342 4402 4411 4485 4486
4488 4560 4562 4572 4578 4581 4594 4601 4608 4613 4617 4621 4634 4637
4679 4685 4693 4702 4713 4714 4716 4734 4743 4746 4751 4757 4758 4759
4761 4763 4764 4775 4776 4780 4827 4837 4838 4852 4855 4880 4890 4891
4906 4909
BAD0 1870 1880#
BADPF 1183 1186#
BADPFX 1187 1189#
BADUOX 1144 1147#
BADUUO 1133 1141#
BEGEND 581# 902
BEGIN 27 28 29 33 34 35 36 37 446 447 512# 7470
BEGIN1 528# 582
BELL 704#
BIS 499#
BXBLT 3725 3735#
C 48# 1068 1072 1287 1297 1346 1371 1376 1396 1399 1419 1425 1474 1480
1483 1486 1509 1515 1521 1528 1531 1604 1612 1622 1627 1630 1650 1662
1696 1742 1771 1774 1780 1783 1807 1810 1830 1857 1863 1868 1869 1905
1911 1941 1979 1981 2001 2019 2059 2062 2065 2089 2097 2100 2123 2129
2163 2170 2175 2180 2183 2184 2187 2248 2254 2320 2343 2350 2353 2355
2364 2390 2393 2402 2405 2410 2413 2433 2439 2445 2450 2455 2461 2464
2469 2478 2485 2490 2500 2505 2508 2514 2527 2530 2543 2546 2549 2554
2557 2566 2570 2573 2582 2587 2590 2599 2603 2606 2618 2643 2647 2651
2654 2663 2665 2670 2673 2676 2680 2696 2702 2708 2711 2722 2725 2754
2761 2767 2770 2778 2807 2816 2820 2825 2829 2844 2847 2859 2875 2878
2892 2898 2902 2906 2916 2919 2938 2942 2947 2956 2977 2998 3007 3053
3075 3080 3085 3144 3149 3194 3201 3208 3215 3218 3282 3316 3322 3325
3328 3360 3366 3372 3378 3382 3391 3418 3425 3431 3438 3440 3465 3471
3477 3483 3487 3489 3547 3553 3559 3565 3820 3834 3840 3846 3852 3858
3864 3980 3987 3996 4003 4010 4017 4024 4103 4109 4112 4119 4193 4199
4293 4299 4305 4311 4317 4328 4368 4371 4380 4383 4407 4437 4440 4449
4452 4595 4602 4609 4614 4623 4629 4658 4661 4680 4686 4694 4735 4828
4833 4836 4881 4886 4889
CBR 192# 1096
CCA 499#
CHAIN 251#
CHKM1 1267# 1278
CHKM2 1272 1277#
CHKM3 1268# 1273
CHNOFF 499#
CHNON 499#
CLK 499#
CLKCLR 499#
CLKDIS 499#
CLKENB 499# SEQ 0201
CLKU 499#
CLOCKF 567#
CNTLC 584#
COMMA 693#
CONSW 568#
CPOPJ 588#
CPOPJ1 586#
CRLF 381 382 688#
CRLF2 385 386 690#
CRY0 499#
CRY1 499#
CSHFLG 747#
CSHMEM 748#
CST 921# 922 924 1070 1096
CSTDAT 191# 1094
CSTMSK 189# 1093
CSTPN 924#
CYCL60 741#
DCK 499#
DDTLNK 265# 526
DDTSRT 526#
DEBUG 23# 7461 7462
DECVER 4# 7 21 547
DF22F 652#
DIAGMN 515#
DING 237#
DOLLAR 707#
DRIV1 4485 4492#
DRIV2 4482 4502#
DRIVER 4477# 4514 4540 4563
DSKUPD 552
EDSKIP 4473 4506#
EMAP0 973# 974 976 1058 1059 1060 1071 1072 1081
END 7469#
ENDFIX 827#
ENDSLD 7459#
EPT 195 196 210 213 927# 928 930 931 1024 1029
EPTPN 930# 1079 1113
EPWD 837# 1114 1118 3570 3616 3724 4203 4481 4493
ERMORE 601#
ERRPC 572#
ERRTLS 573#
ERSTOP 240#
ESECT 196# 1037 1038 1039 1044 1236 1260 1268 1285 3568 3569 3615 3721 3723
3752 4202 4477 4479 4492 4503
EXCASB 22# 550
EXCHMD 173# 4506
EXIOT 499#
FLDSEP 172#
FOV 499#
FOVU 499#
FRDLNK 263#
FSELNK 262# SEQ 0202
FXBLT 3588 3598#
FXU 499#
GOOD0 1869 1885#
GOTONE 1263 1276 1281#
GOUSER 1170#
HMIDPB 2669 2673#
HOM000 4035 4037#
HOM001 4045 4047#
HOM011 4055 4057#
HOM100 4065 4067#
HOM101 4075 4077#
HOM111 4085 4087#
HOMADJ 2956 2959#
HOMAJ2 2977 2980#
HOMBL2 3440 3445#
HOMBL5 3489 3502#
HOMBL7 3391 3396#
HOMBUL 3334 3337#
HOMDRV 4488 4496#
HOME0 1354 1357#
HOME00 2104 2107#
HOME10 1836 1839#
HOME11 1670 1673#
HOME12 1812 1816#
HOME13 1721 1724#
HOME14 1919 1924#
HOME15 2188 2191#
HOME16 2221 2226#
HOME17 2259 2265#
HOME18 2293 2297#
HOME1B 1631 1634#
HOME2 1376 1379#
HOME2M 1964 1967#
HOME3 1399 1402#
HOME4 1434 1437#
HOME5 1453 1456#
HOME6 1489 1494#
HOME7 1533 1536#
HOME8 1553 1557#
HOME9 1787 1790#
HOME90 1574 1579#
HOMED2 4411 4414#
HOMED9 4227 4230#
HOMEDI 4342 4345#
HOMEIA 1700 1703#
HOMEM0 2132 2135#
HOMEM1 1947 1950#
HOMEM2 2066 2069#
HOMEM3 1982 1985#
HOMEM4 2020 2024#
HOMEM5 2002 2005#
HOMEM6 2039 2042#
HOMIBP 2626 2629# SEQ 0203
HOMICK 1751 1754#
HOMIII 2779 2782#
HOMILU 4637 4641#
HOMJSP 2326 2328#
HOMLB1 2719 2722#
HOMLDB 2648 2651#
HOMLL2 2864 2867#
HOMLLL 2833 2836#
HOMLUO 4837 4846#
HOMLUU 4890 4899#
HOMMSL 4128 4131#
HOMMUO 4763 4769#
HOMPAL 2911 2914#
HOMPJ 2354 2366#
HOMPP2 2487 2489#
HOMPP3 2501 2503#
HOMPP4 2523 2525#
HOMRR2 3156 3162#
HOMSFM 3011 3014#
HOMSH 4716 4718#
HOMSM2 3057 3059#
HOMSPJ 2408 2410#
HOMSRF 3096 3100#
HOMSS1 2567 2570#
HOMSS2 2584 2587#
HOMSS3 2600 2603#
HOMSSS 2551 2554#
HOMTIM 3224 3228#
HOMTLG 1322 1326#
HOMXB2 3675 3678#
HOMXB3 3696 3700#
HOMXB4 3729 3757#
HOMXBT 3590 3621#
HOMXPP 2474 2477#
HYPEN 698#
I 62#
INHCSH 248#
INHPAG 245#
INXM 499#
IOCLR 499#
ITERAT 24# 545
ITRCH1 605#
ITRCNT 545#
JOB41 499#
JOBAPR 499#
JOBCNI 499#
JOBDDT 499#
JOBFF 499#
JOBOPC 499#
JOBREL 499#
JOBREN 499#
JOBSA 499#
JOBSYM 499# SEQ 0204
JOBTPC 499#
JOBUSY 499#
JOBUUO 499#
JOBVER 499#
KA10 499
KAHZ50 253#
KAIFLG 562#
KI10 499
KL10 499
KLFLG 563#
KLOLD 461
KLPAGE 900 1013#
KLPAGF 218# 1018 1113
LDLNK 264# 515 517
LFP 702#
LK1 1250# 1257
LOOPER 239#
LUUO 499#
LUUO1 632 633
LUUO10 632 637
LUUO11 632 637
LUUO12 632 638
LUUO13 632 638
LUUO14 632 639
LUUO15 632 639
LUUO16 632 640
LUUO17 632 640
LUUO2 632 634
LUUO20 632 641
LUUO21 632 641
LUUO22 632 642
LUUO23 632 642
LUUO24 632 643
LUUO25 632 643
LUUO26 632 644
LUUO27 632 644
LUUO3 632 634
LUUO30 632 645
LUUO31 632 645
LUUO32 632 646
LUUO33 632 646
LUUO4 632 635
LUUO5 632 635
LUUO6 632 636
LUUO7 632 636
LUUOI 499#
MADDR 206# 4740 4771
MAP0PN 976# 1043
MAP1 977# 978 980 1061 1062 1063
MAP1PN 980# 1265
MAP2 981# 982
MAP3 984# 985
MAP4 987# 988 SEQ 0205
MAP5 990# 991
MAP6 993# 994
MAP7 997# 998
MAPNEW 653#
MARGIN 575#
MCNVER 3# 7 21 547
MCODE 204# 205 206 1125 1128 1130 1137 3521 3526 4738 4769
MEMLOW 655#
MEMMAP 553
MEMSIZ 656#
MEMTOT 654#
MESSAG 174#
MINFO 207# 4765 4772 4775
MINUS 697#
MODDVC 247#
MODDVL 446 446# 548
MODDVU 447 447# 549
MODLNK 266# 512
MOLDPC 205# 1161 4739 4770
MONCTL 565#
MONFLG 564#
MONTEN 566#
MONTYP 779#
MPVU 499#
MTR 185# 3221 3263 3272
MUUOH 1101 1123#
MUUOH1 1127 1132#
MUUORT 1131 1136#
N 168# 174 175 176 177
NONE 3522 3525#
NOPNT 235#
NOQ 1253 1257#
NPAGES 970# 1000 1057 1063 1248 1264
NREMOB 1233 1235 1255 1260#
NXMU 499#
OLDEPT 834# 1021 1022 1080
OPRSEL 249#
OPTIME 667#
OURACS 186# 896 1090 4812 4815
P 292 293 294 295 499# 587 887 899 900 901 1119 1124 1134 1136
1141 1170 1171 1176 1177 1178 1299 1348 1421 1427 1476 1482 1511 1517
1523 1606 1614 1629 1652 1664 1698 1744 1773 1782 1809 1832 1859 1865
1907 1913 1943 2061 2091 2099 2125 2165 2172 2182 2250 2256 2322 2345
2352 2392 2404 2435 2441 2447 2452 2457 2463 2545 2620 2698 2704 2710
2756 2763 2769 2809 2818 2827 2894 2900 2940 2949 3000 3009 3055 3077
3082 3087 3146 3151 3196 3203 3217 3318 3324 3329 3340 3362 3368 3374
3380 3420 3427 3433 3467 3473 3479 3485 3499 3502 3549 3555 3561 3567
3568 3615 3721 3752 3822 3836 3842 3848 3854 3860 3866 3874 3875 3883
3884 3897 3901 3918 3935 3952 3982 3989 3998 4005 4012 4019 4026 4105
4111 4195 4201 4295 4301 4307 4313 4319 4477 4492 4503 4504 4514 4540
4563 4597 4604 4611 4616 4682 4688 4696 4737 4742 4743 4751 4752 4769
4770 4771 4772 4783 4784 4785 4786 4830 4883 4919
P1 940# 941 943 1344 1350 1353 1372 1374 1393 1397 1417 1451 1472 1485 SEQ 0206
1488 1507 1527 1602 1607 1608 1618 1623 1648 1655 1657 1689 1717 1740
1747 1749 1769 1776 1835 1855 1872 1874 1903 1921 1939 1946 1963 1980
2038 2057 2064 2161 2167 2174 2246 2318 2325 2341 2355 2388 2394 2396
2398 2431 2466 2468 2475 2477 2486 2489 2498 2512 2513 2525 2541 2548
2616 2621 2623 2624 2625 2628 2629 2631 2634 2643 2644 2650 2663 2664
2666 2668 2672 2679 2694 2715 2728 2752 2772 2774 2805 2812 2890 2910
2936 2943 2996 3003 3047 3073 3089 3091 3142 3159 3161 3172 3175 3190
3192 3255 3257 3260 3262 3314 3327 3333 3358 3388 3416 3445 3463 3495
3496 3503 3545 3575 3716 3717 3718 3719 3774 3792 3804 3818 3829 3830
3978 3984 4030 4032 4034 4044 4054 4064 4074 4084 4101 4127 4191 4211
4212 4213 4215 4216 4217 4219 4220 4222 4223 4226 4229 4235 4238 4246
4249 4252 4255 4263 4264 4267 4270 4291 4322 4401 4593 4620 4678 4690
4733 4755 4826 4832 4834 4879 4885 4887
P1PN 943# 1230 1293 1604 2618 3144 4193
P2 950# 951 953 1423 1430 1432 1449 1470 1478 1513 1525 1549 1552 1572
1610 1617 1619 1660 1665 1669 1699 1716 1719 1778 1785 1805 1828 1861
1867 1877 1885 1909 1915 1918 2087 2093 2121 2128 2129 2131 2134 2168
2176 2186 2191 2252 2258 2261 2278 2294 2304 2308 2347 2348 2400 2407
2437 2499 2503 2700 2713 2716 2718 2735 2759 2776 2789 2814 2821 2842
2858 2860 2873 2896 2904 2945 2952 2973 3005 3010 3012 3022 3049 3078
3093 3094 3095 3100 3107 3147 3152 3153 3155 3157 3158 3170 3199 3205
3207 3320 3331 3339 3364 3394 3395 3396 3423 3436 3469 3494 3551 3577
3579 3714 3715 3720 3780 3832 3888 3902 3950 3953 3985 3993 4107 4120
4121 4123 4124 4125 4164 4197 4208 4297 4323 4402 4507 4600 4621 4684
4711 4718
P2PN 953# 1662 1696 2123 3149
P3 945# 946 948 1519 1530 1621 1625 1630 1691 1694 2092 2095 2101 2102
2107 2111 2175 2178 2184 2706 2765 2777 2782 2823 2832 2862 3051 3056
3059 3083 3098 3211 3213 3219 3234 3261 3265 3370 3387 3429 3439 3475
3488 3557 3580 3581 3644 3656 3838 3889 3903 3951 3954 3994 4000 4303
4340 4379 4409 4448 4512 4536 4561 4571 4607 4628 4692 4700 4701 4703
P3PN 948# 1627 2097 2180 3215
P4 966# 967 969 2443 3376 3383 3385 3481 3491 3563 3582 3583 3584 3657
3669 3844 3916 3919 3933 3936 4001 4007 4309 4341 4386 4389 4410 4455
4538 4562 4572 4612 4631 4633 4635 4638
P4PN 969#
P5 958# 959 961 2448 2471 3850 3917 3920 3934 3937 4008 4014 4315 4331
4332 4333 4336 4337 4339
P5PN 961#
P6 962# 963 965 2453 3856 3870 4015 4021
P6PN 965#
P7 954# 955 957 2459 2473 3862 3872 4022 4028
P7PN 957#
PAG 499# 894 897 1017 1019 1030 1082 1092 1097 1111 1118 1298 2515 2516
2520 2522 3122 3124 3293 3295 3303 3570 3616 3724 3882 4203 4481 4493
4712 4715 4750 4756 4762
PALERS 241#
PARCLR 499#
PARDIS 499#
PAREA1 38# 543
PAREA2 39# 544
PAREA3 40# 541
PAREA4 41# 542 SEQ 0207
PAREA5 42# 554
PAREA6 43# 555
PAREA7 554#
PAREA8 555#
PARENB 499#
PARU 499#
PASCNT 569#
PATCH 7462#
PCUBIT 201# 2488 2502 2524 3877 4066 4076 4086 4640 4717 4745 4788
PDISF 664#
PDLOVU 499#
PERIOD 694#
PFF 839# 892 1182 1321 1326 1570 1579 3591 3621 3728 4487 4496 4502
PFH 1109 1182#
PFHA 216# 1110
PFHRET 1225# 3617 3753 4494
PFHSPC 840# 1184 1323 1575 3589 3727 4486
PFPC 215# 1216 1225
PFSTRT 521#
PFW 214# 1203 1331 1585
PGMEND 25# 7468
PGMNAM 546 847#
PI 889 891 3188 3206 3252 3273 3284 3286
PICHN1 499#
PICHN2 499#
PICHN3 499#
PICHN4 499#
PICHN5 499#
PICHN6 499#
PICHN7 499#
PICHNA 499#
PICLR 183# 499# 891 3286
PIOFF 182# 499# 889 3284
PION 181# 499# 3206 3273
PLIST 733# 733
PLISTE 733 735#
PLISTS 734#
PLUS 699#
PMAPRT 1228# 1348 1421 1427 1476 1482 1511 1517 1523 1606 1614 1629 1652 1664
1698 1744 1773 1782 1809 1832 1859 1865 1907 1913 1943 2061 2091 2099
2125 2165 2172 2182 2250 2256 2322 2345 2352 2392 2404 2435 2441 2447
2452 2457 2463 2545 2620 2698 2704 2710 2756 2763 2769 2809 2818 2827
2894 2900 2940 2949 3000 3009 3055 3077 3082 3087 3146 3151 3196 3203
3217 3318 3324 3362 3368 3374 3380 3420 3427 3433 3467 3473 3479 3485
3549 3555 3561 3567 3822 3836 3842 3848 3854 3860 3866 3982 3989 3998
4005 4012 4019 4026 4105 4111 4195 4201 4295 4301 4307 4313 4319 4597
4604 4611 4616 4682 4688 4696 4737 4830 4883
PNTENB 663#
PNTEXT 542#
PNTFLG 662#
PNTINH 665#
PNTLPT 236#
PNTNAM 541# SEQ 0208
PNTSPC 666#
PTEMP 888# 888 898
PTLUP 1070# 1073
PUSE 1000# 1055 1056 1057 1231 1246 1250 1295 1296 1297
PVPAGI 760#
PWFCLR 499#
PXRUF 3895 3896 3898#
PXRUT 3894# 3901 3918 3935 3952
PXRUT2 3894 3897#
PXSKIP 3890 3901#
QUEST 705#
RADIX 708#
RADLSC 710#
RADLSP 709#
RANDBS 543#
REENTR 523#
RELIAB 243#
REPT 499#
REPT1 499#
REPTU 621#
REQSET 499#
RESDAT 835# 1088 1092
RESRT1 598#
RESRT2 599#
RETURN 530#
REVBLK 187# 1087
RSTART 232#
RTP 703#
RUNFLG 570#
SADR1 27# 519
SADR10 36# 535
SADR11 37# 536
SADR2 28# 521
SADR3 29# 523
SADR4 30#
SADR5 31# 584
SADR6 32# 585
SADR7 33# 532
SADR8 34# 533
SADR9 35# 534
SBINIT 305 529#
SCOPE 622#
SELECT 170# 4204
SFSTRT 519#
SIGST 171# 4321 4400
SKPA 177#
SKPM 175#
SKPN 176#
SLASH 706#
SM10 810#
SPACE 695#
SPT 915# 916 918 1049 1050 1051 1095
SPTBR 193# 1095 SEQ 0209
SPTPN 918#
SRTDDT 30 32 525#
STA 862 875#
START 513 857#
START1 532#
START2 533#
START3 534#
START4 535#
START5 536#
STARTA 528 880 887#
STOP 169# 4204 4321 4400 4506
SUBLNK 267# 529
SWPTAB 816#
SWTEXR 544#
SYSEXR 517#
T 1139# 1144 1187 1314# 1329 1335 1360 1382 1405 1440 1459 1497 1539 1560
1582 1590 1637 1676 1706 1727 1757 1793 1820 1842 1882 1889 1928 1953
1970 1989 2010 2027 2046 2072 2111 2138 2195 2203 2209 2229 2235 2268
2275 2282 2301 2308 2331 2361 2369 2377 2413 2421 2482 2494 2508 2530
2557 2573 2590 2606 2634 2654 2676 2684 2725 2732 2739 2786 2794 2839
2847 2870 2878 2919 2925 2963 2984 3019 3027 3037 3063 3104 3111 3119
3132 3167 3175 3232 3238 3279 3290 3301 3345 3401 3450 3507 3512 3531
3601 3607 3612 3624 3630 3636 3641 3648 3653 3661 3666 3672 3681 3686
3692 3703 3738 3744 3749 3760 3766 3771 3777 3784 3789 3796 3801 3808
3907 3912 3924 3929 3941 3946 3958 3963 4040 4050 4060 4070 4080 4090
4134 4139 4145 4150 4156 4161 4168 4173 4233 4238 4244 4249 4255 4260
4267 4274 4348 4354 4359 4365 4371 4376 4383 4389 4417 4423 4428 4434
4440 4445 4452 4459 4499 4518 4544 4568 4576 4581 4644 4649 4656 4661
4667 4722 4780 4791 4797 4803 4809 4815 4850 4855 4862 4869 4904 4909
4916
T01 1318# 1330 1336
T02 1340# 1361
T03 1367# 1383
T04 1389# 1406
T05 1413# 1441
T06 1445# 1460
T07 1466# 1498
T1 66# 1260 1262 1263 1275 1281 1283 1285 1286 1287 1291 1783 1785 1786
1810 1811 1833 1834 1873 1877 1885 2101 2103 2222 2514 2521 2527 2530
2546 2550 2583 2624 2775 2790 2810 2828 2904 2905 2906 3218 3219 3388
3389 3390 3434 3436 3442 3571 3586 3598 3601 3627 3630 3678 3681 3710
3735 3738 3757 3760 3823 3885 4210 4213 4697 4698
T10 1502# 1540
T100 3707# 3739 3745 3750 3761 3767 3772 3778 3785 3790 3797 3802 3809
T101 3814# 3908 3913 3925 3930 3942 3947 3959 3964
T102 3975# 4041 4051 4061 4071 4081 4091
T103 4097# 4135 4140 4146 4151 4157 4162 4169 4174
T104 4187# 4234 4239 4245 4250 4256 4261 4268 4275
T105 4287# 4349 4355 4360 4366 4372 4377 4384 4390
T106 4396# 4418 4424 4429 4435 4441 4446 4453 4460
T107 4470# 4500 4519 4545 4569 4577 4582
T11 1545# 1561
T110 4589# 4645 4650 4657 4662 4668 SEQ 0210
T111 4674# 4723
T112 4729# 4781 4792 4798 4804 4810 4816
T113 4822# 4851 4856 4863 4870
T116 4875# 4905 4910 4917
T12 1567# 1583 1591
T13 1598# 1638
T14 1644# 1677
T15 1684# 1707
T16 1713# 1728
T17 1736# 1758
T2 67# 1228 1229 1230 1231 1246 1254 1264 1278 1656 1665 1687 1699 1719
1867 1868 2223 2226 2229 2232 2630 2646 2824 2829 3572 3604 3607 3633
3636 3683 3686 3711 3741 3744 3763 3766 3825 4698 4699
T20 1765# 1794
T21 1801# 1821
T22 1824# 1843
T23 1851# 1883 1890
T24 1899# 1929
T25 1935# 1954
T26 1959# 1971
T27 1976# 1990
T3 68# 1261 1282 1284 1295 1347 1420 1426 1475 1481 1510 1516 1522 1605
1613 1628 1651 1663 1665 1666 1695 1697 1699 1720 1743 1772 1781 1808
1831 1858 1864 1906 1912 1942 2060 2090 2098 2124 2164 2171 2181 2249
2255 2321 2344 2351 2391 2403 2434 2440 2446 2451 2456 2462 2464 2467
2497 2511 2544 2619 2697 2703 2709 2755 2762 2768 2808 2817 2826 2861
2863 2893 2899 2939 2948 2999 3008 3054 3076 3081 3086 3145 3150 3195
3202 3216 3317 3323 3361 3367 3373 3379 3419 3426 3432 3466 3472 3478
3484 3548 3554 3560 3566 3573 3609 3612 3638 3641 3689 3692 3712 3746
3749 3768 3771 3821 3826 3835 3841 3847 3853 3859 3865 3981 3988 3997
4004 4011 4018 4025 4104 4110 4194 4200 4294 4300 4306 4312 4318 4596
4603 4610 4615 4681 4687 4695 4736 4829 4882
T30 1998# 2011
T31 2016# 2028
T32 2034# 2047
T33 2053# 2073
T34 2083# 2112
T35 2117# 2139
T36 2157# 2196 2204 2210
T37 2218# 2230 2236
T4 69# 1246 1247 1252 1265 1270 1271 1275 1277 3585 3586
T40 2242# 2269 2276 2283
T41 2289# 2302 2309
T42 2314# 2332
T43 2337# 2362 2370 2378
T44 2384# 2414 2422
T45 2427# 2483 2495 2509 2531
T46 2537# 2558
T47 2563# 2574
T5 70#
T50 2579# 2591
T51 2596# 2607
T52 2612# 2635 SEQ 0211
T53 2640# 2655
T54 2660# 2677 2685
T55 2690# 2726 2733 2740
T56 2748# 2787 2795
T57 2801# 2840 2848
T60 2854# 2871 2879
T61 2886# 2920 2926
T62 2932# 2964
T63 2969# 2985
T64 2992# 3020 3028
T64A 3030# 3038
T64B 3030 3031#
T65 3043# 3064
T66 3070# 3105 3112 3120
T66A 3122# 3133
T66B 3125 3128#
T67 3138# 3168 3176
T70 3185# 3233 3239
T71 3249# 3280 3291
T71A 3294# 3302
T71B 3294 3295#
T72 3310# 3346
T73 3354# 3402
T74 3412# 3451
T75 3459# 3508 3513
T76 3518# 3532
T77 3541# 3602 3608 3613 3625 3631 3637 3642 3649 3654 3662 3667 3673 3682
3687 3693 3704
TAB 696#
TESTPC 571# 1015 1145 1150 1188 1192 1280 1320 1342 1369 1391 1415 1447 1468
1504 1547 1569 1600 1646 1686 1715 1738 1767 1803 1826 1853 1901 1937
1961 1978 2000 2018 2036 2055 2085 2119 2159 2220 2244 2291 2316 2339
2386 2429 2539 2565 2581 2598 2614 2642 2662 2692 2750 2803 2856 2888
2934 2971 2994 3045 3072 3140 3187 3251 3312 3356 3414 3461 3520 3543
3709 3816 3977 4099 4189 4289 4398 4472 4591 4676 4731 4824 4877
TESTS 901 1303#
TICKS 574#
TIM 184# 890 3222 3256 3269 3274 3285
TIMBAS 213# 3270 3271
TIMLUP 3274# 3283
TIMVEC 931# 3209 3266
TOTALS 233#
TRAP3 195#
TRAPF 219# 1018 1113
TTNBRF 754#
TTYFIL 670#
TTYSPD 671#
TXTINH 244#
UIOBIT 199# 1173
ULPTR 212# 4841 4893
UPT 202 204 207 208 212 214 215 216 935# 936 938 1032 1033
UPTPN 938# 1090 4812 4815
UPWD 836# 1091 1097 1298 2515 2522 3881 3882 4749 4750 SEQ 0212
USECT 202# 1040 1041 1042 1045 1238 1262 1269 1283
USER 561#
USERF 499#
USRASB 551
USRBIT 198# 1129 1173 4898 4901 4904
USRCRF 680#
USRLFF 679#
UUOCOD 829# 4839 4842 4846 4892 4895 4900
UUODIS 633#
UUOE 831# 4844 4858 4897 4912
UUOEXT 589#
UUONPC 208# 1102 1103 1104
UUOPC 830# 4843 4896
UUOPTR 210# 4840 4894
UUORTN 590#
UUOSKP 587#
UUOSPC 843# 3523 3697 4483 4764
UUOSPF 842# 1123 1135
X 63#
XBLTS0 878# 878 3694
Y 64#
$$MUUO 785#
$$OUTE 791#
$$TAX1 803#
$$TAX2 804#
$$TOGG 797#
$$UUO 774#
$ACC0 612#
$BEND1 582#
$BEND2 31 583#
$CHRIN 673#
$CRLF 675#
$DEVCH 499#
$DSKUP 552#
$DVCH1 499#
$DVOFF 669#
$EMODE 550#
$FFF 677#
$IBUF 725#
$INEXT 727#
$INNM 726#
$ITRHL 593#
$ITRX1 594#
$LPAPE 4925
$MMAP 553#
$MODVL 548#
$MODVU 549#
$OBUF 716#
$ONETM 576#
$OUTEX 718#
$OUTNM 717#
$PAPER 499
$PARER 600# SEQ 0213
$PNAME 546#
$PSHER 604#
$PVER 547#
$RSRTX 596#
$RSRTY 597#
$SPAG1 616#
$START 513#
$SVAPR 614#
$SVPAG 615#
$SVPI 613#
$SVUPC 619#
$SVUUO 618#
$TABF 676#
$TTCHR 672#
$TWCNT 668#
$TYPNB 674#
$UMODE 551#
$UORTX 591#
$USRHL 595#
$UUOER 592# 633
$VTF 678#
%ACTFL 625#
%ACTUL 626#
%COREC 624#
%CORFL 623#
%DISCR 627#
%ERHI1 766#
%ERHI2 767#
%ERHI3 768#
.JB41 499#
.JBAPR 499#
.JBCNI 499#
.JBDDT 499#
.JBFF 499#
.JBOPC 499#
.JBREL 499#
.JBREN 499#
.JBSA 499#
.JBSYM 499#
.JBTPC 499#
.JBUSY 499#
.JBUUO 499#
.JBVER 499#
CFLUSH 417#
CINVAL 416# SEQ 0214
CLOKOP 411#
CVTDBO 163# 4636
CWRTBI 418#
DROPDV 378#
EDIT 167# 4213 4330
ENDUUO 424# 581
EOPUUO 425# 583 873 885
ERLOOP 469# 1330 1336 1361 1383 1406 1441 1460 1498 1540 1561 1583 1591 1638
1677 1707 1728 1758 1794 1821 1843 1883 1890 1929 1954 1971 1990 2011
2028 2047 2073 2112 2139 2196 2204 2210 2230 2236 2269 2276 2283 2302
2309 2332 2362 2370 2378 2414 2422 2483 2495 2509 2531 2558 2574 2591
2607 2635 2655 2677 2685 2726 2733 2740 2787 2795 2840 2848 2871 2879
2920 2926 2964 2985 3020 3028 3038 3064 3105 3112 3120 3133 3168 3176
3233 3239 3280 3291 3302 3346 3402 3451 3508 3513 3532 3602 3608 3613
3625 3631 3637 3642 3649 3654 3662 3667 3673 3682 3687 3693 3704 3739
3745 3750 3761 3767 3772 3778 3785 3790 3797 3802 3809 3908 3913 3925
3930 3942 3947 3959 3964 4041 4051 4061 4071 4081 4091 4135 4140 4146
4151 4157 4162 4169 4174 4234 4239 4245 4250 4256 4261 4268 4275 4349
4355 4360 4366 4372 4377 4384 4390 4418 4424 4429 4435 4441 4446 4453
4460 4500 4519 4545 4569 4577 4582 4645 4650 4657 4662 4668 4723 4781
4792 4798 4804 4810 4816 4851 4856 4863 4870 4905 4910 4917
ERLP1 470#
ERLP2 471#
ERRHLT 312#
ERROR 478# 1327 1333 1358 1380 1403 1438 1457 1495 1537 1558 1580 1588 1635
1674 1704 1725 1755 1791 1817 1840 1880 1887 1925 1951 1968 1986 2007
2025 2043 2070 2108 2136 2193 2201 2207 2227 2233 2266 2273 2280 2298
2305 2329 2359 2367 2375 2411 2419 2480 2492 2506 2528 2555 2571 2588
2604 2632 2652 2674 2682 2723 2730 2737 2784 2792 2837 2845 2868 2876
2917 2923 2961 2982 3017 3025 3034 3061 3102 3109 3117 3130 3165 3173
3230 3236 3277 3288 3299 3343 3399 3448 3505 3510 3529 3599 3605 3610
3622 3628 3634 3639 3646 3651 3659 3664 3670 3679 3684 3690 3701 3736
3742 3747 3758 3764 3769 3775 3782 3787 3794 3799 3806 3905 3910 3922
3927 3939 3944 3956 3961 4038 4048 4058 4068 4078 4088 4132 4137 4143
4148 4154 4159 4166 4171 4231 4236 4242 4247 4253 4258 4265 4272 4346
4352 4357 4363 4369 4374 4381 4387 4415 4421 4426 4432 4438 4443 4450
4457 4497 4516 4542 4566 4574 4579 4642 4647 4654 4659 4665 4720 4778
4789 4795 4801 4807 4813 4848 4853 4860 4867 4902 4907 4914
ERROR1 489# 1142 1186
ERUUO 468# 1144 1187 1329 1335 1360 1382 1405 1440 1459 1497 1539 1560 1582
1590 1637 1676 1706 1727 1757 1793 1820 1842 1882 1889 1928 1953 1970
1989 2010 2027 2046 2072 2111 2138 2195 2203 2209 2229 2235 2268 2275
2282 2301 2308 2331 2361 2369 2377 2413 2421 2482 2494 2508 2530 2557
2573 2590 2606 2634 2654 2676 2684 2725 2732 2739 2786 2794 2839 2847
2870 2878 2919 2925 2963 2984 3019 3027 3037 3063 3104 3111 3119 3132
3167 3175 3232 3238 3279 3290 3301 3345 3401 3450 3507 3512 3531 3601
3607 3612 3624 3630 3636 3641 3648 3653 3661 3666 3672 3681 3686 3692
3703 3738 3744 3749 3760 3766 3771 3777 3784 3789 3796 3801 3808 3907
3912 3924 3929 3941 3946 3958 3963 4040 4050 4060 4070 4080 4090 4134
4139 4145 4150 4156 4161 4168 4173 4233 4238 4244 4249 4255 4260 4267
4274 4348 4354 4359 4365 4371 4376 4383 4389 4417 4423 4428 4434 4440
4445 4452 4459 4499 4518 4544 4568 4576 4581 4644 4649 4656 4661 4667
4722 4780 4791 4797 4803 4809 4815 4850 4855 4862 4869 4904 4909 4916 SEQ 0215
EXTEND 161# 3525 3528 3531 3586 3885 4119 4210 4335 4630 4698
FATAL 311# 1878 2364
FRD36 453#
FRD8 454#
FREAD 452#
FSELEC 451#
GET 295# 1157 1164 1199 1206 1212 1219
GO 292# 1154 1160 1196 1202 1209 1215
GOEXEC 166# 1126 4774 4899
HALT 33 34 35 36 37 297# 602
JEN 299#
JRSTF 298#
MAPADR 434#
MAPCNK 435#
MAPMEM 431#
MAPPNT 437#
MAPSET 436#
MEMSEG 433#
MEMZRO 432#
MODPCP 444#
MODPCU 443#
MOVSLJ 162# 4112 4697
MTROP 412#
NAME 7# 7
PAGE 908# 914 920 926 934 940 944 949 954 958 962 966 972 977
981 984 987 990 993 996
PAGMAP 108# 1343 1416 1422 1471 1477 1506 1512 1518 1601 1609 1624 1647 1658
1692 1739 1768 1777 1804 1827 1854 1860 1902 1908 1938 2056 2086 2094
2120 2160 2168 2177 2245 2251 2317 2340 2348 2387 2399 2430 2442 2448
2540 2615 2693 2699 2705 2751 2757 2764 2804 2813 2822 2889 2895 2935
2944 2995 3004 3050 3073 3078 3083 3141 3147 3191 3197 3212 3313 3319
3357 3363 3369 3375 3415 3421 3428 3462 3468 3474 3480 3544 3550 3556
3562 3817 3831 3837 3855 3978 3985 3994 4001 4100 4106 4190 4196 4290
4296 4302 4308 4314 4605 4612 4677 4691 4825
PBELL 387#
PCRL 381# 1152 1194
PCRL2 385#
PCRL2F 386#
PCRLF 382#
PFORCE 389#
PGMINT 305# 857
PJRST 296#
PMSG 391#
PMSGF 394#
PNT1 347#
PNT11 361#
PNT11F 362#
PNT1F 348#
PNT2 349#
PNT2F 350#
PNT3 351#
PNT3F 352#
PNT4 353# SEQ 0216
PNT4F 354#
PNT5 355#
PNT5F 356#
PNT6 357#
PNT6F 358#
PNT7 359#
PNT7F 360#
PNTA 333#
PNTADF 364#
PNTADR 363#
PNTAF 334#
PNTAL 335# 1156 1198 1211
PNTALF 336# 867 870 884 1149 1191
PNTCHF 346#
PNTCHR 345#
PNTCI 343#
PNTCIF 344#
PNTCW 379#
PNTCWF 380#
PNTDCF 372#
PNTDEC 371#
PNTDS 373#
PNTDSF 374#
PNTHW 367# 1162 1204 1217
PNTHWF 368# 872
PNTMGN 458#
PNTMSF 340#
PNTMSG 339#
PNTNM 375#
PNTOCF 370#
PNTOCS 369# 1151 1193
PNTOCT 365#
PNTOTF 366#
PNTSIX 376#
PNTSXF 377#
PREV 130# 3873 4741
PSIXL 337#
PSIXLF 338#
PSIXM 341#
PSIXMF 342#
PSP 383# 1163 1205 1218
PSPF 384#
PUT 294# 1154 1160 1196 1202 1209 1215
PXCT 165# 2467 2497 2511 3887 4031 4043 4053 4063 4073 4083 4632 4699
REPTUO 472#
RTN 293# 589 1158 1165 1166 1200 1207 1213 1220 1221
S 223#
SETUP 96# 1013 1318 1340 1367 1389 1413 1445 1466 1502 1545 1567 1598 1644
1684 1713 1736 1765 1801 1824 1851 1899 1935 1959 1976 1998 2016 2034
2053 2083 2117 2157 2218 2242 2289 2314 2337 2384 2427 2537 2563 2579
2596 2612 2640 2660 2690 2748 2801 2854 2886 2932 2969 2992 3043 3070
3138 3185 3249 3310 3354 3412 3459 3518 3541 3707 3814 3975 4097 4187
4287 4396 4470 4589 4674 4729 4822 4875 SEQ 0217
SFM 160# 1123 1172 3001 3031 3876 3895 4744
SIXBTZ 400# 1139 1314
SWITCH 406#
TTALTM 327#
TTICHR 320#
TTICLR 330#
TTICNV 325#
TTIDEC 324#
TTINO 322#
TTIOCT 323#
TTIYES 321#
TTLOOK 326#
TTSIXB 328#
TTYINP 329#
TYPE 89# 1153 1195 1208
TYPHAF 78# 1159 1201 1214
UPAGMP 118# 2436 2453 2458 3843 3849 3861 4008 4015 4022 4592 4598 4683 4732
4878
XBLT 164# 3585 3886
XJEN 158# 3258 3294
XJMP 149# 1324 1355 1377 1400 1435 1454 1492 1534 1555 1577 1632 1671 1701
1722 1752 1788 1814 1837 1875 1922 1948 1965 1983 2003 2022 2040 2067
2105 2133 2224 2263 2295 2552 2568 2585 2601 2627 2649 2671 2720 2780
2834 2865 2912 2957 2978 3160 3226 3335 3392 3443 3500 3592 3676 3698
3730 4129 4228 4343 4412 4489
XJRSTF 157# 1135 1137 1175 1225 1325 1356 1378 1401 1436 1455 1493 1535 1556
1578 1633 1672 1702 1723 1753 1789 1815 1838 1876 1923 1949 1966 1984
2004 2023 2041 2068 2106 2134 2190 2225 2264 2296 2327 2356 2365 2409
2476 2488 2502 2524 2553 2569 2586 2602 2628 2650 2672 2721 2781 2835
2866 2913 2958 2979 3013 3030 3058 3099 3161 3227 3336 3393 3444 3501
3593 3677 3699 3731 3879 3896 4036 4046 4056 4066 4076 4086 4130 4229
4344 4413 4490 4640 4717 4747 4768 4845 4898
XMOVEI 156# 1109 1174 1322 1354 1376 1399 1434 1453 1489 1533 1553 1574 1631
1670 1700 1721 1751 1787 1812 1836 1869 1870 1919 1944 1947 1964 1982
2002 2020 2039 2062 2066 2104 2126 2132 2188 2221 2259 2293 2326 2354
2364 2408 2474 2487 2523 2551 2567 2584 2600 2626 2648 2669 2719 2779
2833 2864 2911 2956 2977 3011 3057 3096 3156 3224 3334 3391 3440 3489
3522 3588 3590 3675 3696 3725 3729 3878 3894 4035 4045 4055 4065 4075
4085 4128 4227 4342 4411 4485 4488 4637 4716 4746 4763 4837 4890
XPCW 159# 3088 3127 3158 3208 3265