Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dskec.seq
There are no other files named dskec.seq in the archive.
;DSKEC
SEQ 0001
IDENTIFICATION
--------------
PRODUCT CODE: AH-F097B-DD
DIAGNOSTIC CODE: DSKEC
PRODUCT NAME: DSKECB0 KS10 KL-PAGING DIAGNOSTIC
VERSION: 0.2
DATE RELEASED: OCTOBER 1979
MAINTAINED BY: DIAGNOSTIC ENGINEERING
AUTHOR: JOHN R. KIRCHOFF
EDWARD G. PRENTICE
COPYRIGHT (C) 1978, 1979
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE
SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUIPMENT
CORPORATION.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
SUPPLIED BY DIGITAL EQUIPMENT CORPORATION.
TABLE OF CONTENTS SEQ 0002
-----------------
1.0 ABSTRACT
2.0 REQUIREMENTS
2.1 EQUIPMENT
2.2 STORAGE
2.3 PRELIMINARY PROGRAMS
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
3.2 STARTING PROCEDURE
3.3 OPERATING PROCEDURE
4.0 DATA SWITCH FUNCTIONS
5.0 ERRORS
6.0 ITERATION COUNTER
7.0 CYCLE TIME
8.0 OPERATIONAL VARIATIONS
9.0 MISCELLANEOUS
10.0 HISTORY FILE
11.0 DOCUMENT FILE
12.0 LISTING
SEQ 0003
1. ABSTRACT
THIS DIAGNOSTIC IS BEING DESIGNED TO TEST THE KS10 PAGING
HARDWARE AS IT APPLIES TO KL (OR TOPS-20) STYLE PAGING.
AS THERE IS ALREADY A DIAGNOSTIC FOR KI (OR TOPS10) STYLE PAGING,
ALMOST ALL OF THE PAGING HARDWARE CAN BE VERIFIED WITH THAT TEST.
MOST OF THE DIFFERENCE BETWEEN KI AND KL STYLE PAGING, IS IN THE
MICROCODE IMPLEMENTATION, SO PRIMARILY, THAT IS WHAT THIS
FUNCTIONAL DIAGNOSTIC IS TESTING.
LISTED BELOW IS A BRIEF SUMMARY OF THE KINDS OF TESTS IN THIS
DIAGNOSTIC .
1 VERIFY THAT USER AND EXEC MAPPINGS GO THRU DIFFERENT
SECTIONS.
2 SHARE POINTER AS SECTION POINTER.
3 INDIRECT POINTER AS SHARE POINTER.
4 SECTION POINTER TYPE 0 SHOULD PAGE FAIL.
5 CHECK MBZ (MUST BE ZERO) BITS 12-17 IN PRIVATE SECTION
POINTER.
6 CHECK BITS 0-5 OF CST (CORE STATUS TABLE) FOR SECTION
TO SEE IF PAGE FAIL OCCURS WHEN BITS ARE 0.
7 CHECK FOR PROPER UPDATING OF CST FOR PAGE TABLE
8 SHARE POINTER IN PAGE TABLE.
9 INDIRECT POINTER IN PAGE TABLE.
10 CHECK MBZ BITS 12-17 IN PRIVATE PAGE POINTER.
11 CHECK BITS 0-5 OF CST FOR PAGE TO SEE IF PAGE FAIL
RESULTS WHEN BITS ARE 0.
12 INSURE ABILITY TO READ WITH WRITABLE BIT OFF IN SECTION
POINTER.
13 INSURE ABILITY TO READ WITH WRITABLE BIT OFF IN PAGE
POINTER.
14 INSURE CST UPDATED CORRECTLY FOR PAGE.
15 INSURE ABILITY TO INTERRUPT OUT OF LONG CHAIN OF
INDIRECT PAGE POINTERS.
THIS DIAGNOSTIC WAS TESTED WITH MICROCODE VERSION 117. PREVIOUS VERSIONS
OF MICROCODE MAY CAUSE MACHINE HALTS FOR SOME TESTS.
THERE ARE CERTAIN TESTS THAT THE KS10 DOES NOT DO PROPERLY SINCE IT
IS A SINGLE SECTION MACHINE. THE FLAG CALLED 'XCHECK' IS USED TO MARK
THOSE TESTS. IF IT IS DESIRED TO RUN THOSE TESTS THEN SET THE
"XCHECK" PROGRAM CONTROL SWITCH.
2.0 REQUIREMENTS SEQ 0004
2.1 EQUIPMENT
A DECSYSTEM 2020 WITH 32K OF MEMORY.
MICROCODE VERSION 117 OR LATER
DIAGNOSTIC CONSOLE
CONSOLE TERMINAL
LOAD DEVICE
2.2 STORAGE
THE PROGRAM USES ALL OF THE FIRST 32K OF MEMORY
2.3 PRELIMINARY PROGRAMS
ALL PRECEDING CENTRAL PROCESSOR DIAGNOSTICS.
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURES
THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM 2020 SUBROUTINE
PROGRAM BE RESIDENT IN THE DECSYSTEM 2020.
LOAD WITH "SMMON", "SMMAG", OR "SMAPT".
3.2 STARTING PROCEDURE
STAND-ALONE STARTING ADDRESS IS 30000.
3.3 OPERATING PROCEDURE
4.0 DATA SWITCH FUNCTIONS SEQ 0005
SWITCH STATE FUNCTION
------ ----- --------
0 ABORT 0 NORMAL OPERATION
1 ABORT AT END OF PASS
1 RSTART NOT USED
2 TOTALS NOT USED
3 NOPNT 0 NORMAL TYPEOUT
1 INHIBIT ALL PRINT/TYPEOUT (EXCEPT FORCED)
4 PNTLPT 0 NORMAL OUTPUT TO TTY
1 NOT USED, EXEC MODE
(LOGICAL DEVICE, USER MODE)
5 DING 0 NO FUNCTION
1 RING TTY BELL ON ERROR
6 LOOPER 0 PROCEED TO NEXT TEST
1 ENTER SCOPE LOOP ON TEST ERROR
7 ERSTOP 0 NO FUNCTION
1 HALT ON TEST ERROR
8 PALERS 0 PRINT ONLY FIRST ERROR WHEN LOOPING
1 PRINT ALL ERRORS, EVEN IF SAME ERROR
9 RELIAB 0 QUICK VERIFY OPERATION
1 RELIABILITY MODE OPERATION
10 TXTINH 0 PRINT FULL ERROR MESSAGES.
1 INHIBIT COMMENT PORTION OF ERROR MESSAGES.
11 INHPAG NOT USED
12 MODDVC NOT USED
13 INHCSH 0 ALLOW CACHE
1 INHIBIT CACHE
35 XCHECK 0 NORMAL
1 EXTENDED CHECKING
SEQ 0006
5.0 ERRORS
ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THE ERROR
PRINTOUT CONTAINS THE TEST TITLE, TEST PASS COUNT, PC OF THE
FAILURE, SUBTEST TITLE, SUBTEST FUNCTION, CORRECT WORD, ACTUAL
RESULTS, DISCREPANCY WORD, AND A DIAGNOSTIC COMMENT.
THE FOLLOWING IS AN EXAMPLE ERROR MESSAGE:
PC= NNNNNN
SWITCHES = 000000 000000
ERROR IN DSKEC - KS10 KL-PAGING TEST
CORRECT: XXXXXX XXXXXX
ACTUAL: YYYYYY YYYYYY
DISCREP: ZZZZZZ ZZZZZZ
(DIAGNOSTIC COMMENT)
THE SUBTEST NAME AND DIAGNOSTIC COMMENT PORTION OF THE ERROR
TYPEOUT MAY BE INHIBITED BY SETTING THE 'TXTINH' SWITCH.
THIS ALLOWS FOR SHORTER PRINTOUTS ON REPETITIVE FAILURES.
THE TEST TITLE IS ONLY PRINTED WHEN STARTING THE PROGRAM OR ON
THE FIRST FAILURE IF IT HAS NOT BEEN PRINTED YET.
THE TEST PASS COUNT IS ONLY PRINTED ON ERRORS WHICH OCCUR ON
PASSES AFTER THE FIRST PASS.
IF AN AUDIO INDICATION OF A CONTINUING ERROR IS DESIRED THE
'DING' SWITCH MAY BE SET.
6.0 ITERATION COUNTER
THE ITERATION COUNT OF THE PROGRAM IS PRINTED ON THE CONSOLE
TTY.
7.0 CYCLE TIME
THE PROGRAM CYCLE TIME IS A UNDER A MINUTE AND IS THEREFORE
SUITABLE FOR MARGINING, VIBRATION TESTS, ETC.
8.0 OPERATIONAL VARIATIONS
9.0 MISCELLANEOUS
HISTORY FILE FOR DSKEC
---------------------- SEQ 0007
---------------------------------------------------------------
CODE: MAINDEC-10-DSKEC
TITLE: DECSYSTEM 2020 KS10 KL-PAGING DIAGNOSTIC
VERSION: 0.2
DATE: OCTOBER 1979
AUTHOR: JOHN R. KIRCHOFF
REASON: MAJOR REVISION TO CORRECT PROGRAM BUGS AND OPERATION.
ALSO, THE FORMAT AND DOCUMENTATION OF THE LISTING WAS
VASTLY IMPROVED TO BRING IT UP TO DIAGNOSTIC STANDARDS.
---------------------------------------------------------------
VERSION: 0.1
DATE: DECEMBER 1978
AUTHOR: EDWARD G. PRENTICE
REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10.
---------------------------------------------------------------
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2^ DECDOC VER 00.24 29-OCT-79 14:22:04 PAGE 1
SEQ 0008
DOCUMENT
**************
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2^
**************
COPYRIGHT 1979
DIGITAL EQUIPMENT CORPORATION
MAYNARD, MASS. 01754
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2^ DECDOC VER 00.24 29-OCT-79 14:22:04 PAGE 2
SEQ 0009
TABLE OF CONTENTS
*******************
32 DIAGNOSTIC PARAMETERS
203 CONSOLE DATA SWITCH ASSIGNMENTS, SEPTEMBER 1979
238 PROGRAM/SUBROUTINE PARAMETERS
440 ERROR HANDLING UUO DEFINITIONS
478 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979
806 MAIN LOOP
877 ACTUAL TESTS
2083 MEMORY MANAGEMENT
2379 MEMORY MANAGEMENT STORAGE
2528 *STOR* RESERVED STORAGE, SEPTEMBER 1979
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2^ DECDOC VER 00.24 29-OCT-79 14:22:04 PAGE 3
SEQ 0010
15 COPYRIGHT (C) 1978,1979
DIGITAL EQUIPMENT CORPORATION
MARLBORO, MASS. 01754
19 AUTHOR: JOHN R. KIRCHOFF
EDWARD G. PRENTICE
22 MAINTAINER: LARGE SYSTEMS DIAGNOSTIC ENGINEERING
*****************************************************************
32 DIAGNOSTIC PARAMETERS
*****************************************************************
35 RIGHT HALF SWITCHES
41 ASSEMBLY PARAMETERS
69 AC DEFINITIONS
89 SPECIAL AC DEFINITIONS
104 OPDEFS
113 MACROS
158 MISCELANEOUS DEFINITIONS
*****************************************************************
203 CONSOLE DATA SWITCH ASSIGNMENTS, SEPTEMBER 1979
*****************************************************************
208 DATA SWITCHES
LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
*****************************************************************
238 PROGRAM/SUBROUTINE PARAMETERS
*****************************************************************
241 SPECIAL SUBPROGRAM LINKAGES
252 SPECIAL SUBROUTINE FATAL HALTS
USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2^ DECDOC VER 00.24 29-OCT-79 14:22:04 PAGE 4
SEQ 0011
*****************************************************************
440 ERROR HANDLING UUO DEFINITIONS
*****************************************************************
*****************************************************************
478 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979
*****************************************************************
*****************************************************************
806 MAIN LOOP
*****************************************************************
820 NOTE:
THERE ARE CERTAIN TESTS THAT THE KS10 DOES NOT DO PROPERLY SINCE IT
IS A SINGLE SECTION MACHINE.
THE FLAG CALLED 'XCHECK' IS USED TO MARK THOSE TESTS.
IF IT IS DESIRED TO RUN THOSE TESTS THEN SET THE "XCHECK" PROGRAM
CONTROL SWITCH.
832 RIGHT HALF SWITCH PROMPT TABLE
839 START - PROGRAM INITIALIZATION
864 STARTA - TEST CONTROL
*****************************************************************
877 ACTUAL TESTS
*****************************************************************
880 TST01 - VERIFY THAT USER AND EXEC MAPPINGS GO THROUGH DIFFERENT
SECTION TABLES.
927 TST02 - TRY A SHARE POINTER AS A SECTION POINTER.
(LAST TEST USED A PRIVATE SECTION POINTER)
952 TST03 - THIS TIME WE'LL USE AN INDIRECT POINTER AS THE SECTION POINTER.
WITH SECTION OFFSET (POFFST) = 0
985 TST04 - THIS TIME WE'LL USE AN INDIRECT POINTER AS THE SECTION POINTER.
WITH SECTION OFFSET (POFFST) = 3
THE KS10 PRESENTLY PAGE FAILS
1044 TST05 - TRY EACH OF BITS 12-17 OF THE SPT ENTRY,
TO MAKE SURE ANY ONE OF THEM ON CAUSES A PAGE FAIL.
THE SPT ENTRY WE'RE TALKING ABOUT IS THE ONE REFERENCED
BY THE INDIRECT TYPE SECTION POINTER.
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2^ DECDOC VER 00.24 29-OCT-79 14:22:04 PAGE 5
SEQ 0012
1089 TST06 - TRY WITH BITS 12-17 OF THE SPT ENTRY = 0,
TO MAKE SURE NO PAGE FAILURE HAPPENS.
THE SPT ENTRY WE'RE TALKING ABOUT IS THE ONE REFERENCED
BY THE INDIRECT TYPE SECTION POINTER.
1132 TST07 - MAKE SURE THAT SECTION POINTER TYPE 0 CAUSES A PAGE FAIL.
1189 TST08 - AFTER THE PRIVATE POINTER THAT ACTUALLY POINTS TO THE PAGE
TABLE IS FOUND, IT'S BITS 12-17 MUST BE 0.
THE FOLLOWING LOOP TRIES EACH OF THESE BITS BEING ON
TO MAKE SURE A PAGE FAIL OCCURS.
IT THEN TURNS THEM ALL OFF AND MAKES SURE NO PAGE FAIL HAPPENS.
1243 TST09 - AFTER THE PRIVATE POINTER THAT ACTUALLY POINTS TO THE PAGE
TABLE IS FOUND, IT'S BITS 12-17 MUST BE 0.
THE FOLLOWING TEST TRIES WITH ALL OF THESE BITS BEING ZERO
TO MAKE SURE NO PAGE FAIL OCCURS.
1276 TST10 - CHECK THAT A PAGE FAULT HAPPENS WHEN BITS 0-5 OF THE CST ENTRY
FOR THE PAGE TABLE ARE 0.
EVERY POSSIBLE VALUE FOR THESE BITS WILL BE TRIED.
1339 TST11 - THE FOLLOWING TEST CHECKS THAT THE CST ENTRY CORRESPONDING
TO THE PAGE TABLE IS UPDATED CORRECTLY.
VARIOUS VALUES FOR THE CST MASK AND CST DATA WORD WILL BE TRIED.
1385 TST12 - TRY USING A SHARE POINTER IN THE PAGE TABLE.
1437 TST13 - NOW WE'LL TRY AN INDIRECT POINTER IN THE PAGE TABLE.
1490 TST14 - MAKE SURE THAT ANY NON-0 VALUE FOR BITS 12-17 OF FINAL POINTER
CAUSES A PAGE FAILURE.
1549 TST15 - NOW WE'LL CHECK A PAGE FAIL OCCURS IF AND ONLY IF BITS 0-5
OF CST ENTRY FOR PAGE IS 0.
1596 TST16 - TRY TURNING OFF THE WRITE BIT IN THE SECTION POINTER,
AND MAKE SURE THAT WE CAN STILL READ THE DATA,
BUT NOT WRITE THE DATA.
1648 TST17 - NOW TURN THE WRITE BIT BACK ON,
AND TURN IT OFF IN THE PAGE TABLE,
AND TRY THE SAME TEST.
1697 TST18 - MAKE SURE THAT B35 OF THE CST ENTRY FOR THE PAGE
BEING REFERENCED DOESN'T GET TURNED ON BY A READ REFERENCE.
1727 TST19 - NOW WE'LL MAKE A WRITE REFERENCE AND MAKE SURE IT DOES COME ON.
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2^ DECDOC VER 00.24 29-OCT-79 14:22:04 PAGE 6
SEQ 0013
1746 TST20 - THE FOLLOWING TEST MAKES SURE THE CST ENTRY FOR THE ACTUAL
PAGE BEING REFERENCED IS UPDATED CORRECTLY.
VARIOUS VALUES FOR THE MASK AND DATA WILL BE TRIED.
1793 TST21 - THE FOLLOWING TEST MAKES SURE THAT TIMER INTERRUPTS
ARE ALLOWED OUT OF INDIRECT POINTER CHAINS DUE TO
AN INDIRECT SECTION POINTER.
THE KS10 DOESN'T DO THIS TEST SINCE IT IS A SINGLE SECTION MACHINE.
1929 TST22 - THE FOLLOWING TEST MAKES SURE A TIMER INTERRUPT
MAY BE TAKEN OUT OFA LONG CHAIN OF INDIRECT PAGE POINTERS.
(THE LAST TEST WAS WITH SECTION POINTERS)
2057 TST23 - VERIFY THAT WITH EVERYTHING RESTORED TO NORMAL
THAT A PAGING REFERENCE WORKS
*****************************************************************
2083 MEMORY MANAGEMENT
*****************************************************************
2086 KLPAGE
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.
2170 MUUOH - THIS ROUTINE GETS TRANSFERRED TO ON ANY MUUO.
2199 PFH - PAGE FAULT HANDLER
2234 PMAPRT - PAGE MAPPING ROUTINE
2346 PREVX - SET PREVIOUS CONTEXT TO EXEC
2363 PREVU - SET PREVIOUS CONTEXT TO USER
*****************************************************************
2379 MEMORY MANAGEMENT STORAGE
*****************************************************************
2382 PUSE - THE SPECIAL PAGES USED FOR TESTING EACH HAVE
AN ENTRY HERE. THEY ARE CALLED (P1,P2,P3...
PN) WHERE N IS THE VALUE OF "NPAGES". THE
ENTRY IN PUSE FOR PN TELLS WHAT VIRTUAL PAGE
OF CORE IS MAPPED TO PHYSICAL PAGE PN. BIT 17
ON MEANS USER MAPPING, OFF MEANS EXEC MAPPING.
2393 FOUR WORD LUUO BLOCK.
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2^ DECDOC VER 00.24 29-OCT-79 14:22:04 PAGE 7
SEQ 0014
2402 TWO WORD MUUO RETURN BLOCK.
2409 PAGE FAULT CONTROL
2416 MISCELLANEOUS STORAGE
2434 HARDWARE PAGES
*****************************************************************
2528 *STOR* RESERVED STORAGE, SEPTEMBER 1979
*****************************************************************
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1
DSKECT MAC 29-Oct-79 14:18 CONSOLE DATA SWITCH ASSIGNMENTS, SEPTEMBER 1979 SEQ 0015
1 ;DSKEC
2
3 000000 MCNVER==0
4 000002 DECVER==2
5
6 XLIST
7 LIST
8
9 NAME \MCNVER,\DECVER^
10
11 TITLE DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2^
12
13 SALL
14
15 ;*COPYRIGHT (C) 1978,1979
16 ;*DIGITAL EQUIPMENT CORPORATION
17 ;*MARLBORO, MASS. 01754
18
19 ;*AUTHOR: JOHN R. KIRCHOFF
20 ;* EDWARD G. PRENTICE
21
22 ;*MAINTAINER: LARGE SYSTEMS DIAGNOSTIC ENGINEERING
23
24 000137 LOC 137
25 000137 000000 000002 MCNVER,,DECVER
26
27 SEARCH MONSYM
28 SEARCH MACSYM
29 NOSYM
30
31 IF2,<PRINTX [STARTING PASS 2]>
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 2
DSKECT MAC 29-Oct-79 14:18 DIAGNOSTIC PARAMETERS SEQ 0016
32 SUBTTL DIAGNOSTIC PARAMETERS
33
34 ; **********************************************************************
35 ;*RIGHT HALF SWITCHES
36 ; **********************************************************************
37
38 000001 XCHSW= 1B35 ;IF SET, DO EXTENDED CHECKING
39
40 ; **********************************************************************
41 ;*ASSEMBLY PARAMETERS
42 ; **********************************************************************
43
44 000001 EXCASB==1 ;EXEC MODE ONLY
45 000001 PGMEND==1 ;SUPPLY END STATEMENT
46 000001 KS10==1 ;PGM TO RUN ON KS10 ONLY
47 000200 DEBUG==200 ;ENUF ROOM TO DEBUG WITH
48 000001 ITERAT==1 ;NUMBER OF PASSES TO RUN
49
50 030000 SADR1==BEGIN
51 030000 SADR2==BEGIN
52 030000 SADR3==BEGIN
53 030000 SADR4==BEGIN
54 030061 SADR5==$BEND2 ;CTRL-C BACK TO DIAG MONITOR
55 030000 SADR6==BEGIN
56 254000 030000 SADR7==JRST BEGIN
57 254000 030000 SADR8==JRST BEGIN
58 254000 030000 SADR9==JRST BEGIN
59 254000 030000 SADR10==JRST BEGIN
60 254000 030000 SADR11==JRST BEGIN
61 137526 402651 PAREA1==137526,,402651 ;RANDOM SEED
62 000000 PAREA2==0
63 446353 454300 PAREA3==SIXBIT\DSKEC\
64 605664 000000 PAREA4==SIXBIT\PNT\ ;PGM NAME
65 000000 PAREA5==0
66 000000 PAREA6==0
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 3
DSKECT MAC 29-Oct-79 14:18 DIAGNOSTIC PARAMETERS SEQ 0017
67
68 ; **********************************************************************
69 ;*AC DEFINITIONS
70 ; **********************************************************************
71
72 000000 AC0= 0
73 000001 AC1= 1
74 000002 AC2= 2
75 000003 AC3= 3
76 000004 AC4= 4
77 000005 AC5= 5
78 000006 AC6= 6
79 000007 AC7= 7
80 000010 AC10= 10
81 000011 AC11= 11
82 000012 AC12= 12
83 000013 AC13= 13
84 000014 AC14= 14
85 000015 AC15= 15
86 000016 AC16= 16
87
88 ; **********************************************************************
89 ;*SPECIAL AC DEFINITIONS
90 ; **********************************************************************
91
92 000001 A= 1
93 000002 B= 2
94 000003 C= 3
95 000004 AC= 4
96
97 000012 T1= 12
98 000013 T2= 13
99 000014 T3= 14
100 000015 T4= 15
101 000016 T5= 16
102
103 ; **********************************************************************
104 ;*OPDEFS
105 ; **********************************************************************
106
107 702200 000000 OPDEF RDTIME [702200,,0] ;READS TIME BASE TO E,E+1(4MHZ)
108 704000 000000 OPDEF UMOVE [704000,,0] ;UMOVE A,B =>PXCT 4,[MOVE A,B]
109 705000 000000 OPDEF UMOVEM [705000,,0] ;UMOVEM A,B=>PXCT 4,[MOVEM A,B]
110 256000 000000 OPDEF PXCT [XCT] ;PREVIOUS CONTEXT EXECUTE
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 4
DSKECT MAC 29-Oct-79 14:18 DIAGNOSTIC PARAMETERS SEQ 0018
111
112 ; **********************************************************************
113 ;*MACROS
114 ; **********************************************************************
115
116 ; **********************************************************************
117 ;THE FOLLOWING MACRO ALLOWS ARBITRARY PHYSICAL PAGES TO BE REFERENCED
118 ;BY ARBITRARY VIRTUAL PAGE. FOR EXAMPLE,
119 ; PAGMAP (P1,345)
120 ;CAUSES PAGE P1/1000 TO BE PAGE 345.
121 ;THIS ROUTINE IS FOR EXEC MAPPING. USE UPAGMP FOR USER MAPPING.
122 ; **********************************************************************
123
124 DEFINE PAGMAP (ADDR,PN),<
125 MOVEI A,ADDR
126 MOVEI C,PN
127 MOVSI T3,0
128 PUSHJ P,PMAPRT
129 >
130 ; **********************************************************************
131 ;MACRO FOR ASSIGNING USER PAGES.
132 ; **********************************************************************
133
134 DEFINE UPAGMP (ADDR,PN),<
135 MOVEI A,ADDR
136 MOVEI C,PN
137 MOVSI T3,1
138 PUSHJ P,PMAPRT
139 >
140 ; **********************************************************************
141 ;MACRO FOR CREATING PAGE ASSIGNMENTS IN MEMORY
142 ; **********************************************************************
143
144 DEFINE .PGE (ARG),<
145 LOC <.!777>+1
146 ARG: ARG'PN==<ARG_-^D9>
147 >
148 ; **********************************************************************
149 ;MACRO FOR SUBTEST CONTROL
150 ; **********************************************************************
151
152 DEFINE SUBTST,<
153 MOVEI 0,.
154 MOVEM 0,TESTPC
155 >
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 5
DSKECT MAC 29-Oct-79 14:18 DIAGNOSTIC PARAMETERS SEQ 0019
156
157 ; **********************************************************************
158 ;*MISCELANEOUS DEFINITIONS
159 ; **********************************************************************
160
161 020033 PON= LTRPEN!EPTPN ;VALUE TO TURN ON PAGING AND SET EBR
162 000033 POFF= EPTPN ;VALUE TO TURN OFF PAGING AND SET EBR
163
164 033423 TRAP3= EPT+423 ;HOLDS TRAP 3 TRAP INSTRUCTION.
165 033540 ESECT= EPT+540 ;ESECT+N/POINTER TO EXEC SECTION N PAGE TABLE
166
167 010000 000000 USRBIT= 1B5 ;USER MODE BIT
168 004000 000000 UIOBIT= 1B6 ;USER IO BIT
169
170 004000 000000 PCUBIT= 1B6 ;PREVIOUS CONTEXT USER BIT.
171 034540 USECT= UPT+540 ;USECT+N/POINTER TO USER SECTION N PAGE TABLE
172
173 034424 MCODE= UPT+424 ;MUUO OPCODE AND FLAGS
174 034425 MOLDPC= MCODE+1 ;PC WHENCE MUUO CAME
175 034426 MADDR= MCODE+2 ;EFFECTIVE ADDRESS OF MUUO
176 034427 MINFO= UPT+427 ;HOLDS PCS AND OTHER STUFF AT TIME OF MUUO
177
178 034430 UUONPC= UPT+430 ;EIGHT LOCATIONS STARTING HERE HOLD NEW PC'S FOR MUUO
179
180 034420 ULPTR= UPT+420 ;HOLDS USER LUUO BLOCK POINTER.
181
182 034500 PFW= UPT+500 ;PAGE FAIL WORD.
183 034501 PFFLGS= UPT+501 ;PAGE FAIL FLAGS
184 034502 PFPC= UPT+502 ;PAGE FAIL OLD PC
185 034503 PFHA= UPT+503 ;PAGE FAULT HANDLER ADDRESS ADDRESS
186
187 004000 000000 CACHEB= 1B6 ;CACHE BIT
188 020000 000000 WRITEB= 1B4 ;WRITE BIT.
189
190 124000 ACCESS= (1B2+WRITEB+CACHEB) ;ACCESS BITS, CACHE, WRITE
191 224000 SHARE= (2B2+WRITEB+CACHEB) ;SHARE POINTER AND ACCESS BITS.
192 324000 NDIREC= (3B2+WRITEB+CACHEB) ;INDIRECT POINTER AND ACCESS BITS.
193
194 040000 KLPAGF= 1B21 ;FLAG FOR TURNING ON KL PAGING
195 020000 TRAPF= 1B22 ;FLAG FOR TURNING ON TRAPPING
196
197 000007 NPAGES==7 ;NUMBER OF RESERVED PAGES.
198
199 002000 CSTLEN= 2000 ;LENGTH OF CST (ONE ENTRY NEEDED PER PHYSICAL PAGE)
200
201 000000 PAGOFF= 0 ;VALUE TO TURN OFF PAGING
202 060033 PAGON= TRAPF+KLPAGF+EPTPN ;VALUE TO TURN ON PAGING
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1
PARAM KSM 18-Sep-79 17:18 CONSOLE DATA SWITCH ASSIGNMENTS, SEPTEMBER 1979 SEQ 0020
203 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, SEPTEMBER 1979
204
205 DEFINE S,<; *********************************************************************>
206
207 ; **********************************************************************
208 ;*DATA SWITCHES
209 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
210 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
211 ; **********************************************************************
212
213 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
214 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
215 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
216
217 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
218 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
219 010000 DING== 010000 ;RING BELL ON ERROR
220
221 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
222 002000 ERSTOP==002000 ;HALT ON TEST ERROR
223 001000 PALERS==001000 ;PRINT ALL ERRORS
224
225 000400 RELIAB==000400 ;RELIABILITY MODE
226 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
227 000100 INHPAG==000100 ;INHIBIT PAGING
228
229 000040 MODDVC==000040 ;MODIFY DEVICE CODE
230 000020 INHCSH==000020 ;INHIBIT CACHE
231 000010 OPRSEL==000010 ;OPERATOR SELECTION
232
233 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
234
235 ;SWITCH 16 RESERVED
236
237 ;SWITCH 17 RESERVED !!!
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 2
PARAM KSM 18-Sep-79 17:18 PROGRAM/SUBROUTINE PARAMETERS SEQ 0021
238 SUBTTL PROGRAM/SUBROUTINE PARAMETERS
239
240 ; **********************************************************************
241 ;*SPECIAL SUBPROGRAM LINKAGES
242 ; **********************************************************************
243
244 027772 FSELNK= 27772 ;FILE SELECT LINK
245 027773 FRDLNK= 27773 ;FILE READ LINK
246 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
247 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
248 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
249 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
250
251 ; **********************************************************************
252 ;*SPECIAL SUBROUTINE FATAL HALTS
253 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
254 ; **********************************************************************
255
256 ;ADDRESS TAG REASON
257 ;---------------------
258
259 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
260 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
261 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
262 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
263 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL
264 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET
265 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
266 ; 1017 EOPERR ;END OF PROGRAM ERROR
267 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
268
269 ; **********************************************************************
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 3
PARAM KSM 18-Sep-79 17:18 PROGRAM/SUBROUTINE PARAMETERS SEQ 0022
270 ; **********************************************************************
271 ;OPERATOR DEFINITIONS (NON-UUO'S)
272 ; **********************************************************************
273
274 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
275 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
276 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
277 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
278 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
279 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
280 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
281 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
282
283 ; **********************************************************************
284 ;SUBROUTINE INITIALIZATION CALL
285 ; **********************************************************************
286
287 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
288
289 ; **********************************************************************
290 ;HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
291 ; **********************************************************************
292
293 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
294 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
295
296 ; **********************************************************************
297 ;TERMINAL INPUT UUO'S
298 ;ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
299 ;CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
300 ; **********************************************************************
301
302 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
303 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
304 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
305 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
306 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
307 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
308 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
309 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
310 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
311 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
312 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 4
PARAM KSM 18-Sep-79 17:18 PROGRAM/SUBROUTINE PARAMETERS SEQ 0023
313 ;TERMINAL OUTPUT UUO'S.
314
315 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
316 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
317 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
318 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
319 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
320 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
321 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
322 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
323 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
324 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
325 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
326 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
327 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
328 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
329 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
330 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
331 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
332 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
333 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
334 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
335 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
336 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
337 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
338 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
339 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
340 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
341 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
342 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
343 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
344 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
345 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
346 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
347 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
348 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
349 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
350 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
351 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
352 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
353 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
354 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
355 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
356 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 5
PARAM KSM 18-Sep-79 17:18 PROGRAM/SUBROUTINE PARAMETERS SEQ 0024
357 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
358 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
359 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
360 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
361 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
362 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
363 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
364 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
365 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
366 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
367 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
368 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
369 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
370
371 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
372
373 DEFINE PMSG (ARG),<
374 PSIXM [SIXBIT\ARG'_\]>
375
376 DEFINE PMSGF (ARG),<
377 PSIXMF [SIXBIT\ARG'_\]>
378
379 ;SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
380 ; CONSERVES CORE OVER ASCIZ
381
382 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
383
384 ;CONSOLE SWITCH INPUT UUO.
385 ;READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
386 ; USER MODE.
387
388 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
389
390 ;CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
391 ;EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
392
393 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK
394 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER
395
396 ;KS-10 CACHE OPERATION UUO'S
397
398 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
399 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
400 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 6
PARAM KSM 18-Sep-79 17:18 PROGRAM/SUBROUTINE PARAMETERS SEQ 0025
401 ;END OF PASS/PROGRAM UUOS
402
403 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
404 ;DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
405
406 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
407 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
408
409 ;MEMORY MANAGEMENT UUO'S
410 ;UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
411 ;ADDRESS CONVERSION, ETC...
412
413 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
414 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
415 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
416 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
417 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
418 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
419 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
420
421 ;DEVICE CODE MODIFICATION UUO
422 ;ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
423 ;IOT'S TO A DIFFERENT DEVICE CODE.
424
425 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
426 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
427
428 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
429 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
430
431 ;"DIAMON" FILE SELECTION AND READ UUOS
432
433 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
434 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
435 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
436 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
437
438 XLIST
439 IFNDEF EROLD,<LIST
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 7
PARAM KSM 18-Sep-79 17:18 ERROR HANDLING UUO DEFINITIONS SEQ 0026
440 SUBTTL ERROR HANDLING UUO DEFINITIONS
441
442 ; **********************************************************************
443 ;ERROR HANDLER PARAMETERS
444 ; **********************************************************************
445
446 036000 000000 OPDEF ERUUO [36B8] ;ERROR CALL UUO
447 035000 000000 OPDEF ERLOOP [35B8] ;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
448 035040 000000 OPDEF ERLP1 [35B8!1B12] ;ERROR LOOP IF PC'S MATCH
449 035100 000000 OPDEF ERLP2 [35B8!2B12] ;ERROR LOOP IF ANY ERROR
450 034000 000000 OPDEF REPTUO [34B8] ;REPEAT LOOP UUO
451
452 ;THE ERROR HANDLER MACROS
453
454 ;A MACRO TO REPORT AN ERROR AND LOOP
455
456 DEFINE ERROR (ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
457 SALL
458 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
459 CORECT,,ACTUAL
460 [SIXBIT\D'_\],,ERR]
461 XALL
462 ERLOOP ADR ;IF ERROR, LOOP TO ADR
463 >
464
465 ;A MACRO TO REPORT AN ERROR AND NOT LOOP
466
467 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)<
468 SALL
469 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
470 CORECT,,ACTUAL
471 [SIXBIT\D'_\],,ERR]
472 XALL>
473
474 >;END OF EROLD CONDITIONAL
475
476 XLIST
477 LIST
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1
FIXED KSM 18-Sep-79 17:08 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 SEQ 0027
478 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979
479
480 030000 LOC 30000
481
482 ; **********************************************************************
483 ;PROGRAM STARTING ADDRESSES
484 ;THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
485 ;NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
486 ;OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
487 ;MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
488 ; **********************************************************************
489
490 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
491 030001 254 00 0 00 030632 $START: JRST START ;MODE CHECK STARTING ADDRESS
492
493 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
494
495 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
496
497 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
498
499 030005 254 00 0 00 030000 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
500
501 030006 254 00 0 00 030000 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
502
503 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
504 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
505
506 030010 254 00 0 00 030651 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
507 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
508 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
509
510 030013 254000 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
511 030014 254000 030000 START2: SADR8 ; "
512 030015 254000 030000 START3: SADR9 ; "
513 030016 254000 030000 START4: SADR10 ; "
514 030017 254000 030000 START5: SADR11 ; "
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 2
FIXED KSM 18-Sep-79 17:08 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 SEQ 0028
515 ; **********************************************************************
516 ;PROGRAM FIXED PARAMETER AREA
517 ; **********************************************************************
518
519 030020 446353 454300 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
520 030021 605664 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
521 030022 137526 402651 RANDBS: PAREA1 ;RANDOM BASE NUMBER
522 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
523 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
524 030025 000000 030600 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
525 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
526 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
527 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
528 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
529 030032 000000 000000 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
530 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
531 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
532 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
533 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
534
535 ; **********************************************************************
536 ;PROGRAM VARIABLE PARAMETER AREA
537 ; **********************************************************************
538
539 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
540 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
541 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
542 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
543 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
544 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
545 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
546 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
547 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
548 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
549 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
550 030052 000000 000000 ERRPC: 0 ;ERROR PC
551 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
552 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
553 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
554 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 3
FIXED KSM 18-Sep-79 17:08 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 SEQ 0029
555 ; **********************************************************************
556 ;SPECIAL PROGRAM DISPATCH ADDRESSES
557 ; **********************************************************************
558
559 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
560 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
561 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
562 030062 000000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
563 030063 000000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
564 030064 CPOPJ1: ;SKIP RETURN
565 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
566 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
567 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
568 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
569 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
570 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
571 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
572 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
573 030073 255 00 0 00 000000 $USRHL: JFCL ; "
574 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
575 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
576 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
577 030077 255 00 0 00 000000 RESRT2: JFCL ; "
578 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
579 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
580 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
581
582 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
583 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
584 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
585
586 ; **********************************************************************
587 ;PROCESSOR CONTROL STORAGE
588 ; **********************************************************************
589
590 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
591 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
592 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
593 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
594 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
595
596 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
597 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
598
599 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
600 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
601 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
602 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
603 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
604 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
605 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 4
FIXED KSM 18-Sep-79 17:08 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 SEQ 0030
606 ; **********************************************************************
607 ;UUO DISPATCH TABLE
608 ; **********************************************************************
609 XLIST
610 LIST
611 030124 030070 030070 UUODIS: LUUO1,,$UUOER
612 030125 030070 030070 LUUO3,,LUUO2
613 030126 030070 030070 LUUO5,,LUUO4
614 030127 030070 030070 LUUO7,,LUUO6
615 030130 030070 030070 LUUO11,,LUUO10
616 030131 030070 030070 LUUO13,,LUUO12
617 030132 030070 030070 LUUO15,,LUUO14
618 030133 030070 030070 LUUO17,,LUUO16
619 030134 030070 030070 LUUO21,,LUUO20
620 030135 030070 030070 LUUO23,,LUUO22
621 030136 030070 030070 LUUO25,,LUUO24
622 030137 030070 030070 LUUO27,,LUUO26
623 030140 030070 030070 LUUO31,,LUUO30
624 030141 030070 030070 LUUO33,,LUUO32
625
626 ; **********************************************************************
627 ;MEMORY MANAGMENT STORAGE
628 ; **********************************************************************
629
630 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
631 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
632 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
633 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
634 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
635
636 ; **********************************************************************
637 ;PRINT CONTROL STORAGE
638 ; **********************************************************************
639
640 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
641 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
642 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
643 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
644 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
645 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
646 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
647 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
648 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
649 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
650 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
651 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
652 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
653 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
654 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
655 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
656 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
657 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
658 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 5
FIXED KSM 18-Sep-79 17:08 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 SEQ 0031
659 ; **********************************************************************
660 ;THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
661 ;TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
662 ; MOVEI NAME
663 ; PNTA ;OR PNTAF
664 ; **********************************************************************
665
666 030242 CRLF: ASCII/
667 030242 015 012 000 000 000 /
668 030243 CRLF2: ASCII/
669
670 030243 015 012 015 012 000 /
671 030244 054 000 000 000 000 COMMA: ASCII/,/
672 030245 056 000 000 000 000 PERIOD: ASCII/./
673 030246 040 000 000 000 000 SPACE: ASCII/ /
674 030247 011 000 000 000 000 TAB: ASCII/ /
675 030250 MINUS:
676 030250 055 000 000 000 000 HYPEN: ASCII/-/
677 030251 053 000 000 000 000 PLUS: ASCII/+/
678 030252 052 000 000 000 000 AST: ASCII/*/
679 030253 100 000 000 000 000 ATSIN: ASCII/@/
680 030254 050 000 000 000 000 LFP: ASCII/(/
681 030255 051 000 000 000 000 RTP: ASCII/)/
682 030256 007 0000000000 BELL: BYTE (7) 007
683 030257 077 000 000 000 000 QUEST: ASCII/?/
684 030260 057 000 000 000 000 SLASH: ASCII!/!
685 030261 044 000 000 000 000 DOLLAR: ASCII/$/
686 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
687 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
688 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
689
690 ; **********************************************************************
691 ;USER MODE OUTPUT FILE INFORMATION
692 ; **********************************************************************
693
694 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
695 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
696 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
697 030272 BLOCK 2
698
699 ; **********************************************************************
700 ;DISK UPDATE MODE FILE INFORMATION
701 ; **********************************************************************
702
703 030274 $IBUF: BLOCK 3
704 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
705 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
706 030301 BLOCK 2
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 6
FIXED KSM 18-Sep-79 17:08 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 SEQ 0032
707 ; **********************************************************************
708 ;PUSHDOWN LIST CONTROL INFORMATION
709 ; **********************************************************************
710
711 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
712 030304 PLISTS: BLOCK 200
713 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
714
715 ; **********************************************************************
716 ;POWER LINE CLOCK FREQUENCY FLAG
717 ; **********************************************************************
718
719 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
720
721 ; **********************************************************************
722 ;KL10 CACHE CONTROL FLAGS
723 ; **********************************************************************
724
725 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
726 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
727
728 ; **********************************************************************
729 ;NUMBER INPUT DIGIT FLAG
730 ; **********************************************************************
731
732 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
733
734 ; **********************************************************************
735 ;KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
736 ; **********************************************************************
737
738 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
739
740 ; **********************************************************************
741 ;ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
742 ; **********************************************************************
743
744 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
745 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
746 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
747
748 ; **********************************************************************
749 ;SPECIAL USERS UUO INTERCEPT INSTRUCTION
750 ; **********************************************************************
751
752 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 7
FIXED KSM 18-Sep-79 17:08 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 SEQ 0033
753 ; **********************************************************************
754 ;USER MODE MONITOR TYPE FLAG
755 ; **********************************************************************
756
757 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20
758
759 ; **********************************************************************
760 ;SPECIAL USERS MUUO INTERCEPT INSTRUCTION
761 ; **********************************************************************
762
763 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
764
765 ; **********************************************************************
766 ;SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
767 ; **********************************************************************
768
769 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
770
771 ; **********************************************************************
772 ;"SWITCH" CALL USAGE CONTROL
773 ; **********************************************************************
774
775 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
776
777 ; **********************************************************************
778 ;SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
779 ; **********************************************************************
780
781 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
782 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
783
784 ; **********************************************************************
785 ;SM10 (KS-10) PROCESSOR TYPE FLAG
786 ; **********************************************************************
787
788 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10
789
790 ; **********************************************************************
791 ;RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
792 ; **********************************************************************
793
794 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
795
796 ; **********************************************************************
797 ;SPECIAL FUTURE EXPANSION ROOM
798 ; **********************************************************************
799
800 ; **********************************************************************
801 ;END OF FIXED STORAGE
802 ; **********************************************************************
803
804 030577 LOC 30577
805 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1
DSKECM MAC 29-Oct-79 14:20 MAIN LOOP SEQ 0034
806 SUBTTL MAIN LOOP
807 SALL
808 030600 104 105 103 123 131 PGMNAM: ASCIZ /DECSYSTEM KS10 KL-PAGING TEST [DSKEC]
809 030601 123 124 105 115 040
810 030602 113 123 061 060 040
811 030603 113 114 055 120 101
812 030604 107 111 116 107 040
813 030605 124 105 123 124 040
814 030606 133 104 123 113 105
815 030607 103 135 015 012 000 /
816
817 060000 T= SIXBTZ <KS10 KL-PAGING TEST>
818
819 ; **********************************************************************
820 ;*NOTE:
821 ;*
822 ;*THERE ARE CERTAIN TESTS THAT THE KS10 DOES NOT DO PROPERLY SINCE IT
823 ;*IS A SINGLE SECTION MACHINE.
824 ;*
825 ;*THE FLAG CALLED 'XCHECK' IS USED TO MARK THOSE TESTS.
826 ;*
827 ;*IF IT IS DESIRED TO RUN THOSE TESTS THEN SET THE "XCHECK" PROGRAM
828 ;*CONTROL SWITCH.
829 ; **********************************************************************
830
831 ; **********************************************************************
832 ;*RIGHT HALF SWITCH PROMPT TABLE
833 ; **********************************************************************
834
835 030610 RSWPMT: BLOCK ^D17 ;ONLY SWITCH 35 IS USED
836 030631 70 43 50 45 43 53 SIXBIT/XCHECK/
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 2
DSKECM MAC 29-Oct-79 14:20 MAIN LOOP SEQ 0035
837
838 ; **********************************************************************
839 ;*START - PROGRAM INITIALIZATION
840 ; **********************************************************************
841
842 030632 201 00 0 00 030610 START: MOVEI RSWPMT ;SET UP RIGHT HALF SWITCH PROMPT TABLE
843 030633 202 00 0 00 030525 MOVEM SWPTAB
844
845 030634 265 00 0 00 030011 PGMINT ;INITIALIZE SUBROUTINE PACKAGE
846
847 030635 700 00 0 00 000000 APRID ;GET PROCESSOR ID INFO
848 030636 135 00 0 00 060004 LDB [POINT 12,0,17] ;GET VERSION TO AC
849 030637 402 00 0 00 061543 SETZM UCV117# ;ASSUME NOT V117
850 030640 301 00 0 00 000117 CAIL 117 ;VERSION 117 OR GREATER?
851 030641 476 00 0 00 061543 SETOM UCV117 ;YES, REMEMBER
852
853 030642 402 00 0 00 061544 SETZM XCHECK#
854 030643 037 10 0 00 000002 SWITCH ;IS SWITCH SET FOR EXTENDED CHECKING ?
855 030644 602 00 0 00 000001 TRNE XCHSW
856 030645 476 00 0 00 061544 SETOM XCHECK ;YES, THEN DO THOSE TESTS
857
858 030646 332 00 0 00 061543 SKIPE UCV117
859 030647 254 00 0 00 030651 JRST STARTA
860
861 030650 037 02 0 00 060005 PMSG <^?IMPROPER MICROCODE, VERSION 117 OR LATER REQUIRED^>
862
863 ; **********************************************************************
864 ;*STARTA - TEST CONTROL
865 ; **********************************************************************
866
867 030651 701 04 0 00 000000 STARTA: WREBR PAGOFF ;TURN OFF PAGING
868 030652 700 14 0 00 000400 WRPI PIOFF ;TURN OFF PI
869 030653 700 14 0 00 010000 WRPI PICLR ;CLEAR PI
870
871 030654 260 17 0 00 032007 GO KLPAGE ;TURN ON KL PAGING
872
873 030655 260 17 0 00 030657 GO TESTS ;RUN THE TESTS.
874
875 030656 254 00 0 00 030057 JRST BEGEND ;END OF PROGRAM
876
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 3
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0036
877 SUBTTL ACTUAL TESTS
878 XALL
879 ; **********************************************************************
880 ;*TST01 - VERIFY THAT USER AND EXEC MAPPINGS GO THROUGH DIFFERENT
881 ;* SECTION TABLES.
882 ; **********************************************************************
883
884 030657 TESTS:
885 030657 TST01: SUBTST^
886 030657 201 00 0 00 030657 MOVEI 0,.
887 030660 202 00 0 00 030051 MOVEM 0,TESTPC
888
889 PAGMAP (P1,777)^ ;P1 IS EXEC PAGE 777
890 030661 201 01 0 00 035000 MOVEI A,P1
891 030662 201 03 0 00 000777 MOVEI C,777
892 030663 205 14 0 00 000000 MOVSI T3,0
893 030664 260 17 0 00 032130 PUSHJ P,PMAPRT
894
895 UPAGMP (P2,777)^ ;P2 IS USER PAGE 777
896 030665 201 01 0 00 037000 MOVEI A,P2
897 030666 201 03 0 00 000777 MOVEI C,777
898 030667 205 14 0 00 000001 MOVSI T3,1
899 030670 260 17 0 00 032130 PUSHJ P,PMAPRT
900
901 030671 120 01 0 00 060016 DMOVE A,[EXP 3.14,2.7] ;EXEC DATA IS PI, USER DATA IS E.
902 030672 202 01 0 00 035000 MOVEM A,P1
903 030673 202 02 0 00 037000 MOVEM B,P2 ;STORE THE DATA.
904
905 030674 260 17 0 00 032246 GO PREVU ;MAKE SURE PREVIOUS CONTEXT IS USER.
906
907 030675 701 04 0 00 060033 WREBR PAGON ;TELL HDW OF PAGE MAP
908
909 030676 201 01 0 00 000000 TST01A: MOVEI A,0 ;START WITH 0.
910 030677 200 01 0 00 777000 MOVE A,777000 ;FETCH EXEC DATA.
911
912 030700 312 01 0 00 060016 CAME A,[3.14]
913 ERROR (TST01A,13,[3.14],A,VERIFY THAT USER AND EXEC MAPPINGS^_
914 ^GO THRU DIFFERENT SECTION TABLES,WRONG EXEC DATA FETCHED)^
915 030701 036 13 0 00 060040
916 030702 035 00 0 00 030676 ERLOOP TST01A ;IF ERROR, LOOP TO TST01A
917
918 030703 704 01 0 00 777000 TST01B: UMOVE A,777000 ;FETCH USER DATA.
919
920 030704 312 01 0 00 060017 CAME A,[2.7]
921 ERROR (TST01B,13,[2.7],A,VERIFY THAT USER AND EXEC MAPPINGS^_
922 ^GO THRU DIFFERENT SECTION TABLES,WRONG USER DATA FETCHED)^
923 030705 036 13 0 00 060047
924 030706 035 00 0 00 030703 ERLOOP TST01B ;IF ERROR, LOOP TO TST01B
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 4
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0037
925
926 ; **********************************************************************
927 ;*TST02 - TRY A SHARE POINTER AS A SECTION POINTER.
928 ;* (LAST TEST USED A PRIVATE SECTION POINTER)
929 ; **********************************************************************
930
931 030707 TST02: SUBTST^
932 030707 201 00 0 00 030707 MOVEI 0,.
933 030710 202 00 0 00 030051 MOVEM 0,TESTPC
934
935 030711 200 01 0 00 034540 MOVE A,USECT+0 ;GET SECTION POINTER.
936 030712 202 01 0 00 055021 MOVEM A,SPT+21 ;PUT IT IN THE SPT.
937
938 030713 200 01 0 00 060052 MOVE A,[SHARE,,21] ;CREATE SHARED POINTER.
939 030714 202 01 0 00 034540 MOVEM A,USECT+0 ;CHANGE SECTION TABLE TO POINT AT SPT.
940
941 030715 701 04 0 00 060033 TST02A: WREBR PAGON ;TELL HARDWARE ABOUT THE CHANGE.
942
943 030716 704 01 0 00 777000 UMOVE A,777000 ;TRY A DATA FETCH AGAIN.
944
945 030717 312 01 0 00 060017 CAME A,[2.7]
946 ERROR (TST02A,13,[2.7],A,SHARE POINTER AS SECTION POINTER FAILED,^_
947 WRONG DATA FETCHED)^
948 030720 036 13 0 00 060066
949 030721 035 00 0 00 030715 ERLOOP TST02A ;IF ERROR, LOOP TO TST02A
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 5
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0038
950
951 ; **********************************************************************
952 ;*TST03 - THIS TIME WE'LL USE AN INDIRECT POINTER AS THE SECTION POINTER.
953 ;* WITH SECTION OFFSET (POFFST) = 0
954 ; **********************************************************************
955
956 000000 POFFST==0
957
958 030722 TST03: SUBTST^
959 030722 201 00 0 00 030722 MOVEI 0,.
960 030723 202 00 0 00 030051 MOVEM 0,TESTPC
961
962 030724 200 01 0 00 055021 MOVE A,SPT+21 ;FETCH THE SECTION POINTER.
963 030725 202 01 0 00 035000 MOVEM A,P1+POFFST ;STICK IT SOMEWHERE.
964 030726 202 01 0 00 034540 MOVEM A,USECT+0 ;PUT IT IN SECTION TABLE TOO UNTIL DONE
965 030727 202 01 0 00 061542 MOVEM A,SAVSPT# ;SAVE FOR RESTORE
966
967 030730 201 01 0 00 000035 MOVEI A,P1PN ;GET POINTER TO PAGE CONTAINING POINTER
968 030731 202 01 0 00 055021 MOVEM A,SPT+21 ;INITIALIZE SPT.
969
970 030732 200 01 0 00 060071 MOVE A,[NDIREC+POFFST,,21] ;POINTER TO SECTION POINTER.
971 030733 202 01 0 00 034540 MOVEM A,USECT+0 ;STORE INDIRECT POINTER.
972
973 030734 701 04 0 00 060033 TST03A: WREBR PAGON ;TELL HARDWARE OF NEW ARRANGEMENT.
974
975 030735 704 01 0 00 777000 UMOVE A,777000 ;TRY A DATA FETCH.
976
977 030736 312 01 0 00 060017 CAME A,[2.7]
978 ERROR (TST03A,13,[2.7],A,^_
979 INDIRECT POINTER AS SECTION POINTER FAILED,^_
980 WRONG DATA FETCHED)^
981 030737 036 13 0 00 060102
982 030740 035 00 0 00 030734 ERLOOP TST03A ;IF ERROR, LOOP TO TST03A
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 6
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0039
983
984 ; **********************************************************************
985 ;*TST04 - THIS TIME WE'LL USE AN INDIRECT POINTER AS THE SECTION POINTER.
986 ;* WITH SECTION OFFSET (POFFST) = 3
987 ;* THE KS10 PRESENTLY PAGE FAILS
988 ; **********************************************************************
989
990 030741 TST04: SUBTST^
991 030741 201 00 0 00 030741 MOVEI 0,.
992 030742 202 00 0 00 030051 MOVEM 0,TESTPC
993
994 000003 POFFST==3
995
996 030743 476 00 0 00 032274 SETOM PFHSPC ;CAUSE PAGE FAIL HANDLER TO JUST FALL THROUGH
997
998 030744 200 01 0 00 055021 MOVE A,SPT+21 ;FETCH THE SECTION POINTER.
999 030745 202 01 0 00 035003 MOVEM A,P1+POFFST ;STICK IT SOMEWHERE.
1000 030746 202 01 0 00 034540 MOVEM A,USECT+0 ;PUT IT IN SECTION TABLE TOO UNTIL DONE
1001
1002 030747 201 01 0 00 000035 MOVEI A,P1PN ;GET POINTER TO PAGE CONTAINING POINTER
1003 030750 202 01 0 00 055021 MOVEM A,SPT+21 ;INITIALIZE SPT.
1004
1005 030751 200 01 0 00 060105 MOVE A,[NDIREC+POFFST,,21] ;POINTER TO SECTION POINTER.
1006 030752 202 01 0 00 034540 MOVEM A,USECT+0 ;STORE INDIRECT POINTER.
1007
1008 030753 476 00 0 00 032273 TST04A: SETOM PFF
1009
1010 030754 701 04 0 00 060033 WREBR PAGON ;TELL HARDWARE OF NEW ARRANGEMENT.
1011
1012 030755 704 01 0 00 777000 UMOVE A,777000 ;TRY A DATA FETCH.
1013
1014 030756 336 00 0 00 061544 SKIPN XCHECK ;UCODE CURRENTLY PAGE FAILS
1015 030757 254 00 0 00 030764 JRST TST04B
1016
1017 030760 312 01 0 00 060017 CAME A,[2.7]
1018 ERROR (TST04A,13,[2.7],A,^_
1019 ^INDIRECT POINTER AS SECTION POINTER WITH SECTION OFFSET FAILED,^_
1020 WRONG DATA FETCHED)^
1021 030761 036 13 0 00 060121
1022 030762 035 00 0 00 030753 ERLOOP TST04A ;IF ERROR, LOOP TO TST04A
1023 030763 254 00 0 00 030775 JRST TST05
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 7
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0040
1024
1025 030764 336 00 0 00 032273 TST04B: SKIPN PFF ;DID PAGE FAIL HAPPEN?
1026 030765 254 00 0 00 030771 JRST TST04C ;YES
1027
1028 ERROR (TST04A,13,0,0,^_
1029 ^INDIRECT POINTER AS SECTION POINTER WITH SECTION OFFSET FAILED,^_
1030 DIDN'T CAUSE PAGE FAILURE)^
1031 030766 036 13 0 00 060131
1032 030767 035 00 0 00 030753 ERLOOP TST04A ;IF ERROR, LOOP TO TST04A
1033 030770 254 00 0 00 030775 JRST TST05
1034
1035 030771 200 04 0 00 060134 TST04C: MOVE AC,[371003,,055021]
1036 030772 312 04 0 00 034500 CAME AC,PFW
1037 ERROR (TST04A,13,[371003055021],PFW,^_
1038 ^INDIRECT POINTER AS SECTION POINTER WITH SECTION OFFSET FAILED,^_
1039 PAGE FAIL WORD WRONG)^
1040 030773 036 13 0 00 060141
1041 030774 035 00 0 00 030753 ERLOOP TST04A ;IF ERROR, LOOP TO TST04A
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 8
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0041
1042
1043 ; **********************************************************************
1044 ;*TST05 - TRY EACH OF BITS 12-17 OF THE SPT ENTRY,
1045 ;* TO MAKE SURE ANY ONE OF THEM ON CAUSES A PAGE FAIL.
1046 ;* THE SPT ENTRY WE'RE TALKING ABOUT IS THE ONE REFERENCED
1047 ;* BY THE INDIRECT TYPE SECTION POINTER.
1048 ; **********************************************************************
1049
1050 030775 TST05: SUBTST^
1051 030775 201 00 0 00 030775 MOVEI 0,.
1052 030776 202 00 0 00 030051 MOVEM 0,TESTPC
1053
1054 030777 205 12 0 00 777772 MOVSI T1,-<17-12+1> ;NUMBER OF TIMES TO LOOP THROUGH
1055 031000 201 13 0 00 000001 MOVEI T2,1 ;HERE'S THE BIT TO BE SHIFTED THROUGH.
1056
1057 031001 476 00 0 00 032274 SETOM PFHSPC ;CAUSE PAGE FAIL HANDLER TO JUST FALL THROUGH.
1058
1059 031002 137 13 0 00 060144 TST05A: DPB T2,[220600,,SPT+21] ;TURN ON ONE OF THE BITS IN THE ENTRY
1060
1061 031003 137 13 0 00 060145 DPB T2,[220600,,XTEMP] ;TURN ON SAME BIT IN TEMP WORD
1062
1063 031004 476 00 0 00 032273 TST05B: SETOM PFF ;ALLOW A PAGE FAIL.
1064
1065 031005 701 04 0 00 060033 WREBR PAGON ;TELL HARDWARE ABOUT THE NEW ENTRY.
1066
1067 031006 704 01 0 00 777000 UMOVE A,777000 ;TRY A REFERENCE.
1068
1069 031007 336 00 0 00 032273 SKIPN PFF ;MAKE SURE THE PAGE FAILURE HAPPENED.
1070 031010 254 00 0 00 031014 JRST TST05C
1071
1072 ERROR (TST05B,13,,XTEMP,NON-ZERO IN 12-17 OF SPT,^_
1073 DIDN'T CAUSE PAGE FAILURE)^
1074 031011 036 13 0 00 060153
1075 031012 035 00 0 00 031004 ERLOOP TST05B ;IF ERROR, LOOP TO TST05B
1076 031013 254 00 0 00 031020 JRST TST05D
1077
1078 031014 200 04 0 00 060134 TST05C: MOVE AC,[371003,,SPT+21]
1079 031015 312 04 0 00 034500 CAME AC,PFW
1080 ERROR (TST05B,13,[371003000000+SPT+21],PFW,NON-ZERO IN 12-17 OF SPT,^_
1081 PAGE FAIL WORD WRONG)^
1082 031016 036 13 0 00 060156
1083 031017 035 00 0 00 031004 ERLOOP TST05B ;IF ERROR, LOOP TO TST05B
1084
1085 031020 242 13 0 00 000001 TST05D: LSH T2,1 ;TRY NEXT BIT POSITION.
1086 031021 253 12 0 00 031002 AOBJN T1,TST05A
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 9
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0042
1087
1088 ; **********************************************************************
1089 ;*TST06 - TRY WITH BITS 12-17 OF THE SPT ENTRY = 0,
1090 ;* TO MAKE SURE NO PAGE FAILURE HAPPENS.
1091 ;* THE SPT ENTRY WE'RE TALKING ABOUT IS THE ONE REFERENCED
1092 ;* BY THE INDIRECT TYPE SECTION POINTER.
1093 ; **********************************************************************
1094
1095 031022 TST06: SUBTST^
1096 031022 201 00 0 00 031022 MOVEI 0,.
1097 031023 202 00 0 00 030051 MOVEM 0,TESTPC
1098
1099 031024 201 13 0 00 000000 MOVEI T2,0 ;TRY 0 AGAIN TO MAKE SURE NO FAILURE HAPPENS.
1100 031025 137 13 0 00 060144 DPB T2,[220600,,SPT+21]
1101
1102 031026 200 01 0 00 060071 MOVE A,[NDIREC,,21] ;POINTER TO SECTION POINTER
1103 031027 202 01 0 00 034540 MOVEM A,USECT+0 ;STORE INDIRECT POINTER
1104
1105 031030 476 00 0 00 032273 TST06A: SETOM PFF
1106
1107 031031 701 04 0 00 060033 WREBR PAGON ;TELL HARDWARE ABOUT THE NEW ENTRY
1108
1109 031032 704 13 0 00 777000 UMOVE T2,777000
1110
1111 031033 335 00 0 00 032273 SKIPGE PFF ;MAKE SURE NO PAGE FAIL HAPPENED.
1112 031034 254 00 0 00 031040 JRST TST06B
1113
1114 ERROR (TST06A,13,PFW,PFPC,ZERO IN BITS 12-17 OF SPT,^_
1115 PAGE FAILURE OCCURRED ANYWAY - C=PFW A=PFPC)^
1116 031035 036 13 0 00 060176
1117 031036 035 00 0 00 031030 ERLOOP TST06A ;IF ERROR, LOOP TO TST06A
1118 031037 254 00 0 00 031043 JRST TST06C
1119
1120 031040 312 13 0 00 060017 TST06B: CAME T2,[2.7]
1121 ERROR (TST06A,13,[2.7],T2,ZERO IN BITS 12-17 OF SPT,^_
1122 WRONG DATA FETCHED)^
1123 031041 036 13 0 00 060201
1124 031042 035 00 0 00 031030 ERLOOP TST06A ;IF ERROR, LOOP TO TST06A
1125
1126 031043 200 01 0 00 061542 TST06C: MOVE A,SAVSPT ;GET THE SECTION POINTER.
1127 031044 202 01 0 00 034540 MOVEM A,USECT+0 ;RESTORE IT.
1128
1129 031045 701 04 0 00 060033 WREBR PAGON
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 10
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0043
1130
1131 ; **********************************************************************
1132 ;*TST07 - MAKE SURE THAT SECTION POINTER TYPE 0 CAUSES A PAGE FAIL.
1133 ; **********************************************************************
1134
1135 031046 TST07: SUBTST^
1136 031046 201 00 0 00 031046 MOVEI 0,.
1137 031047 202 00 0 00 030051 MOVEM 0,TESTPC
1138
1139 031050 476 00 0 00 032274 TST07A: SETOM PFHSPC ;CAUSE HANDLER TO JUST "FALL THROUGH".
1140
1141 031051 200 01 0 00 034540 MOVE A,USECT+0 ;GET USER'S SECTION 0 POINTER.
1142
1143 031052 476 00 0 00 032273 SETOM PFF ;ALLOW A PAGE FAILURE.
1144
1145 031053 201 02 0 00 000000 MOVEI B,0 ;START WITH 0 IN B.
1146 031054 704 02 0 00 777000 UMOVE B,777000 ;FIRST TRY A NORMAL REFERENCE
1147
1148 031055 335 00 0 00 032273 SKIPGE PFF ;MAKE SURE NO FAILURE HAPPENED
1149 031056 254 00 0 00 031062 JRST TST07B
1150
1151 ERROR (TST07A,13,PFW,PFPC,SECTION PTR FAILED,^_
1152 PAGE FAIL HAPPENED - C=PFW A=PFPC)^
1153 031057 036 13 0 00 060216
1154 031060 035 00 0 00 031050 ERLOOP TST07A ;IF ERROR, LOOP TO TST07A
1155 031061 254 00 0 00 031065 JRST TST07C
1156
1157 031062 312 02 0 00 060017 TST07B: CAME B,[2.7] ;MAKE SURE CORRECT DATA GOT LOADED.
1158 ERROR (TST07A,13,[2.7],B,SECTION PTR FAILED,WRONG DATA)^
1159 031063 036 13 0 00 060223
1160 031064 035 00 0 00 031050 ERLOOP TST07A ;IF ERROR, LOOP TO TST07A
1161
1162 031065 621 01 0 00 700000 TST07C: TLZ A,(7B2) ;SET POINTER TYPE TO 0.
1163 031066 202 01 0 00 034540 MOVEM A,USECT+0 ;PUT IN IN SECTION TABLE.
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 11
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0044
1164
1165 031067 476 00 0 00 032273 TST07D: SETOM PFF ;ALLOW A PAGE FAILURE
1166
1167 031070 701 04 0 00 060033 WREBR PAGON ;TELL HARDWARE ABOUT CHANGE.
1168
1169 031071 704 02 0 00 777000 UMOVE B,777000 ;THIS SHOULD CAUSE PAGE FAILURE
1170
1171 031072 336 00 0 00 032273 SKIPN PFF ;MAKE SURE IT DID.
1172 031073 254 00 0 00 031077 JRST TST07E
1173
1174 ERROR (TST07D,13,0,0,SECTION POINTER BITS 0-2 WERE ZERO,^_
1175 NO PAGE FAILURE HAPPENED)^
1176 031074 036 13 0 00 060241
1177 031075 035 00 0 00 031067 ERLOOP TST07D ;IF ERROR, LOOP TO TST07D
1178 031076 254 00 0 00 031103 JRST TST08
1179
1180 031077 200 04 0 00 060244 TST07E: MOVE AC,[401000,,777000]
1181 031100 312 04 0 00 034500 CAME AC,PFW
1182 ERROR (TST07D,13,[401000777000],PFW,^_
1183 SECTION POINTER BITS 0-2 WERE ZERO,^_
1184 PAGE FAIL WORD WRONG)^
1185 031101 036 13 0 00 060245
1186 031102 035 00 0 00 031067 ERLOOP TST07D ;IF ERROR, LOOP TO TST07D
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 12
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0045
1187
1188 ; **********************************************************************
1189 ;*TST08 - AFTER THE PRIVATE POINTER THAT ACTUALLY POINTS TO THE PAGE
1190 ;* TABLE IS FOUND, IT'S BITS 12-17 MUST BE 0.
1191 ;* THE FOLLOWING LOOP TRIES EACH OF THESE BITS BEING ON
1192 ;* TO MAKE SURE A PAGE FAIL OCCURS.
1193 ;* IT THEN TURNS THEM ALL OFF AND MAKES SURE NO PAGE FAIL HAPPENS.
1194 ; **********************************************************************
1195
1196 031103 TST08: SUBTST^
1197 031103 201 00 0 00 031103 MOVEI 0,.
1198 031104 202 00 0 00 030051 MOVEM 0,TESTPC
1199
1200 031105 201 01 0 00 124000 MOVEI A,ACCESS ;GET PRIVATE POINTER ACCESS BITS.
1201
1202 031106 200 00 0 00 030046 MOVE 0,CONSW ;GET CONSOLE SWITCHES
1203 031107 603 00 0 00 000020 TLNE 0,INHCSH ;INHIBIT CACHE?
1204 031110 620 01 0 00 004000 TRZ A,(CACHEB) ;YES, CLEAR CACHE BIT
1205
1206 031111 506 01 0 00 034540 HRLM A,USECT+0 ;USER'S SECTION 0 POINTER IS PRIVATE.
1207
1208 031112 205 12 0 00 777772 MOVSI T1,-<17-12+1> ;NUMBER OF TIMES TO LOOP THROUGH
1209 031113 201 13 0 00 000001 MOVEI T2,1 ;HERE'S THE BIT TO BE SHIFTED THROUGH.
1210
1211 031114 476 00 0 00 032274 SETOM PFHSPC ;CAUSE PAGE FAIL HANDLER TO JUST FALL THROUGH.
1212
1213 031115 476 00 0 00 032273 TST08A: SETOM PFF ;ALLOW A PAGE FAIL.
1214
1215 031116 137 13 0 00 060250 DPB T2,[220600,,USECT+0] ;TURN ON BIT IN THE SECTION POINTER
1216 031117 137 13 0 00 060145 DPB T2,[220600,,XTEMP] ;TURN ON SAME BIT IN TEMP WORD
1217
1218 031120 701 04 0 00 060033 WREBR PAGON ;TELL HARDWARE ABOUT THE NEW ENTRY.
1219
1220 031121 704 01 0 00 777000 UMOVE A,777000 ;TRY A REFERENCE.
1221
1222 031122 336 00 0 00 032273 SKIPN PFF ;MAKE SURE THE PAGE FAILURE HAPPENED.
1223 031123 254 00 0 00 031127 JRST TST08B
1224
1225 ERROR (TST08A,13,0,XTEMP,^_
1226 NON-0 IN BITS 12-17 OF PRIVATE SECTION POINTER,DIDN'T CAUSE A PAGE FAILURE)^
1227 031124 036 13 0 00 060266
1228 031125 035 00 0 00 031115 ERLOOP TST08A ;IF ERROR, LOOP TO TST08A
1229 031126 254 00 0 00 031133 JRST TST08C
1230
1231 031127 200 04 0 00 060244 TST08B: MOVE AC,[401000,,777000]
1232 031130 312 04 0 00 034500 CAME AC,PFW
1233 ERROR (TST08A,13,[401000777000],PFW,^_
1234 NON-0 IN BITS 12-17 OF PRIVATE SECTION POINTER,^_
1235 PAGE FAIL WORD WRONG)^
1236 031131 036 13 0 00 060271
1237 031132 035 00 0 00 031115 ERLOOP TST08A ;IF ERROR, LOOP TO TST08A
1238
1239 031133 242 13 0 00 000001 TST08C: LSH T2,1 ;TRY NEXT BIT POSITION.
1240 031134 253 12 0 00 031115 AOBJN T1,TST08A
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 13
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0046
1241
1242 ; **********************************************************************
1243 ;*TST09 - AFTER THE PRIVATE POINTER THAT ACTUALLY POINTS TO THE PAGE
1244 ;* TABLE IS FOUND, IT'S BITS 12-17 MUST BE 0.
1245 ;* THE FOLLOWING TEST TRIES WITH ALL OF THESE BITS BEING ZERO
1246 ;* TO MAKE SURE NO PAGE FAIL OCCURS.
1247 ; **********************************************************************
1248
1249 031135 TST09: SUBTST^
1250 031135 201 00 0 00 031135 MOVEI 0,.
1251 031136 202 00 0 00 030051 MOVEM 0,TESTPC
1252
1253 031137 476 00 0 00 032273 TST09A: SETOM PFF
1254
1255 031140 201 13 0 00 000000 MOVEI T2,0 ;TRY 0 AGAIN TO MAKE SURE NO FAILURE HAPPENS.
1256 031141 137 13 0 00 060250 DPB T2,[220600,,USECT+0]
1257
1258 031142 704 13 0 00 777000 UMOVE T2,777000
1259
1260 031143 335 00 0 00 032273 SKIPGE PFF ;MAKE SURE NO PAGE FAIL HAPPENED.
1261 031144 254 00 0 00 031150 JRST TST09B
1262
1263 ERROR (TST09A,13,PFW,PFPC,BITS 12-17=0 IN PRIVATE SECTION POINTER,^_
1264 PAGE FAILURE - C=PFW A=PFPC)^
1265 031145 036 13 0 00 060310
1266 031146 035 00 0 00 031137 ERLOOP TST09A ;IF ERROR, LOOP TO TST09A
1267 031147 254 00 0 00 031153 JRST TST10
1268
1269 031150 312 13 0 00 060017 TST09B: CAME T2,[2.7]
1270 ERROR (TST09A,13,[2.7],T2,BITS 12-17=0 IN PRIVATE SECTION POINTER,^_
1271 WRONG DATA FETCHED)^
1272 031151 036 13 0 00 060313
1273 031152 035 00 0 00 031137 ERLOOP TST09A ;IF ERROR, LOOP TO TST09A
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 14
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0047
1274
1275 ; **********************************************************************
1276 ;*TST10 - CHECK THAT A PAGE FAULT HAPPENS WHEN BITS 0-5 OF THE CST ENTRY
1277 ;* FOR THE PAGE TABLE ARE 0.
1278 ;* EVERY POSSIBLE VALUE FOR THESE BITS WILL BE TRIED.
1279 ; **********************************************************************
1280
1281 031153 TST10: SUBTST^
1282 031153 201 00 0 00 031153 MOVEI 0,.
1283 031154 202 00 0 00 030051 MOVEM 0,TESTPC
1284
1285 031155 205 01 0 00 777700 MOVSI A,-100 ;NUMBER OF LOOPS TO DO.
1286
1287 031156 550 02 0 00 034540 HRRZ B,USECT+0 ;GET PAGE TABLE LOCATION.
1288
1289 031157 476 00 0 00 032274 SETOM PFHSPC ;ALLOW PAGE FAULT HANDLER TO "FALL THROUGH".
1290
1291 031160 476 00 0 00 032273 TST10A: SETOM PFF ;ALLOW A PAGE FAULT.
1292
1293 031161 137 01 0 00 060316 DPB A,[360600,,CST(B)] ;PUT BIT COMBINATION INTO CST ENTRY.
1294
1295 031162 402 00 0 00 032305 SETZM XTEMP ;INIT TEMP WORD
1296 031163 137 01 0 00 060317 DPB A,[360600,,XTEMP] ;PUT BIT COMBINATION IN TEMP WORD
1297
1298 031164 701 04 0 00 060033 WREBR PAGON ;MAKE SURE HARDWARE USES NEW CST ENTRY.
1299
1300 031165 704 03 0 00 777000 UMOVE C,777000 ;TRY A MEMORY REFERENCE.
1301
1302 031166 602 01 0 00 777777 TRNE A,777777 ;WERE BITS 0-5 OF CST ENTRY 0 THIS TIME?
1303 031167 254 00 0 00 031202 JRST TST10C ;NO.
1304
1305 031170 336 00 0 00 032273 SKIPN PFF ;YES, MAKE SURE PAGE FAIL HAPPENED.
1306 031171 254 00 0 00 031175 JRST TST10B
1307
1308 ERROR (TST10A,13,0,0,CST BITS 0-5 = 0,NO PAGE FAIL HAPPENED)^
1309 031172 036 13 0 00 060327
1310 031173 035 00 0 00 031160 ERLOOP TST10A ;IF ERROR, LOOP TO TST10A
1311 031174 254 00 0 00 031212 JRST TST10E
1312
1313 031175 200 04 0 00 060244 TST10B: MOVE AC,[401000,,777000]
1314 031176 312 04 0 00 034500 CAME AC,PFW
1315 ERROR (TST10A,13,[401000777000],PFW,CST BITS 0-5 = 0,^_
1316 PAGE FAIL WORD WRONG)^
1317 031177 036 13 0 00 060332
1318 031200 035 00 0 00 031160 ERLOOP TST10A ;IF ERROR, LOOP TO TST10A
1319 031201 254 00 0 00 031212 JRST TST10E
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 15
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0048
1320
1321 031202 335 00 0 00 032273 TST10C: SKIPGE PFF ;AND THAT NO PAGE FAIL HAPPENED.
1322 031203 254 00 0 00 031207 JRST TST10D
1323
1324 ERROR (TST10A,13,XTEMP,PFW,CST BITS 0-5 NON-0,^_
1325 PAGE FAILURE - C=CST BITS A=PFW)^
1326 031204 036 13 0 00 060347
1327 031205 035 00 0 00 031160 ERLOOP TST10A ;IF ERROR, LOOP TO TST10A
1328 031206 254 00 0 00 031212 JRST TST10E
1329
1330 031207 312 03 0 00 060017 TST10D: CAME C,[2.7] ;NO, SO MAKE SURE DATA GOT READ.
1331 ERROR (TST10A,13,XTEMP,C,CST BITS 0-5 NON-0,^_
1332 WRONG DATA FETCHED - C=CST BITS A=DATA)^
1333 031210 036 13 0 00 060361
1334 031211 035 00 0 00 031160 ERLOOP TST10A ;IF ERROR, LOOP TO TST10A
1335
1336 031212 253 01 0 00 031160 TST10E: AOBJN A,TST10A ;LOOP FOR REST OF BIT COMBINATIONS IN CST.
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 16
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0049
1337
1338 ; **********************************************************************
1339 ;*TST11 - THE FOLLOWING TEST CHECKS THAT THE CST ENTRY CORRESPONDING
1340 ;* TO THE PAGE TABLE IS UPDATED CORRECTLY.
1341 ;* VARIOUS VALUES FOR THE CST MASK AND CST DATA WORD WILL BE TRIED.
1342 ; **********************************************************************
1343
1344 031213 TST11: SUBTST^
1345 031213 201 00 0 00 031213 MOVEI 0,.
1346 031214 202 00 0 00 030051 MOVEM 0,TESTPC
1347
1348 031215 201 01 0 00 000020 MOVEI A,1B31 ;MASK TO BE ANDED INTO CST ENTRY.
1349
1350 031216 205 12 0 00 777741 MOVSI T1,-^D31 ;NUMBER OF DIFFERENT MASKS TO TRY.
1351
1352 031217 205 13 0 00 777741 TST11A: MOVSI T2,-^D31 ;NUMBER OF DIFFERENT DATA WORDS TO TRY.
1353
1354 031220 434 01 0 00 060364 IOR A,[1B0+17B35] ;B0 PREVENTS PAGE FAIL & 17B35 PRESERVES CST
1355
1356 031221 201 03 0 00 000020 MOVEI C,1B31 ;DATA TO BE ORED INTO CST ENTRY.
1357
1358 031222 477 14 0 02 056000 TST11B: SETOB T3,CST(B) ;ALWAYS START WITH -1 IN THE CST ENTRY.
1359 031223 404 14 0 00 000001 AND T3,A
1360 031224 434 14 0 00 000003 IOR T3,C ;DO WHAT THE HARDWARE DOES TO THE CST ENTRY.
1361
1362 031225 702 13 0 00 000001 WRCSTM A ;SETUP CST MASK
1363
1364 031226 702 12 0 00 000003 WRPUR C ;SETUP PROCESS USE REGISTER
1365
1366 031227 701 04 0 00 060033 TST11C: WREBR PAGON ;TELL HARDWARE OF NEW ARRANGEMENT.
1367
1368 031230 704 15 0 00 777000 UMOVE T4,777000 ;CAUSE THE CST ENTRY TO BE UPDATED.
1369
1370 031231 200 04 0 02 056000 MOVE AC,CST(B)
1371 031232 312 14 0 00 000004 CAME T3,AC ;MAKE SURE THE UPDATE HAPPENED CORRECTLY.
1372 ERROR (TST11C,13,T3,AC,CST UPDATE FOR PAGE TABLE,^_
1373 HAPPENED INCORRECTLY)^
1374 031233 036 13 0 00 060376
1375 031234 035 00 0 00 031227 ERLOOP TST11C ;IF ERROR, LOOP TO TST11C
1376
1377 031235 242 03 0 00 000001 LSH C,1 ;CHANGE THE CST DATA WORD.
1378
1379 031236 253 13 0 00 031222 AOBJN T2,TST11B ;TRY THE DIFFERENT DATA WORD.
1380
1381 031237 242 01 0 00 000001 LSH A,1 ;TRIED ALL THE DATA WORDS, CHANGE THE MASK.
1382 031240 253 12 0 00 031217 AOBJN T1,TST11A
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 17
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0050
1383
1384 ; **********************************************************************
1385 ;*TST12 - TRY USING A SHARE POINTER IN THE PAGE TABLE.
1386 ; **********************************************************************
1387
1388 031241 TST12: SUBTST^
1389 031241 201 00 0 00 031241 MOVEI 0,.
1390 031242 202 00 0 00 030051 MOVEM 0,TESTPC
1391
1392 031243 242 02 0 00 000011 LSH B,9 ;CHANGE PAGE TABLE TO WORD ADDRESS.
1393
1394 031244 200 01 0 02 000777 MOVE A,777(B) ;PICK UP THE PAGE TABLE ENTRY.
1395 031245 621 01 0 00 700000 TLZ A,700000 ;SET ITS TYPE FIELD TO 0.
1396 031246 202 01 0 02 000777 MOVEM A,777(B) ;REPLACE IT.
1397
1398 031247 476 00 0 00 032274 TST12A: SETOM PFHSPC ;TELL PAGE FAULT HANDLER TO DROP THROUGH.
1399 031250 476 00 0 00 032273 SETOM PFF ;ALLOW A PAGE FAULT.
1400
1401 031251 701 04 0 00 060033 WREBR PAGON ;TELL HARDWARE WE'VE CHANGED THE PAGE TABLE.
1402
1403 031252 704 01 0 00 777000 UMOVE A,777000 ;REFERENCE THE PAGE TO CAUSE FAULT.
1404
1405 031253 336 00 0 00 032273 SKIPN PFF ;MAKE SURE THE FAULT HAPPENED.
1406 031254 254 00 0 00 031260 JRST TST12B
1407
1408 ERROR (TST12A,13,0,0,PAGE POINTER TYPE 0,NO PAGE FAULT)^
1409 031255 036 13 0 00 060410
1410 031256 035 00 0 00 031247 ERLOOP TST12A ;IF ERROR, LOOP TO TST12A
1411 031257 254 00 0 00 031264 JRST TST12C
1412
1413 031260 200 04 0 00 060244 TST12B: MOVE AC,[401000,,777000]
1414 031261 312 04 0 00 034500 CAME AC,PFW
1415 ERROR (TST12A,13,[401000777000],PFW,PAGE POINTER TYPE 0,^_
1416 PAGE FAIL WORD WRONG)^
1417 031262 036 13 0 00 060413
1418 031263 035 00 0 00 031247 ERLOOP TST12A ;IF ERROR, LOOP TO TST12A
1419
1420 031264 200 01 0 02 000777 TST12C: MOVE A,777(B) ;PICK UP THE PAGE POINTER AGAIN.
1421 031265 202 01 0 00 055022 MOVEM A,SPT+22 ;PUT IT IN THE SPT.
1422
1423 031266 200 01 0 00 060416 MOVE A,[SHARE,,22] ;GET A SHARE POINTER.
1424 031267 202 01 0 02 000777 MOVEM A,777(B) ;PUT SHARE POINTER IN PAGE TABLE.
1425
1426 031270 701 04 0 00 060033 TST12D: WREBR PAGON ;TELL HARDWARE ABOUT NEW ARRANGEMENT.
1427
1428 031271 704 01 0 00 777000 UMOVE A,777000 ;MAKE THE REFERENCE.
1429
1430 031272 312 01 0 00 060017 CAME A,[2.7] ;MAKE SURE DATA GOT RETRIEVED.
1431 ERROR (TST12D,13,[2.7],A,SHARE POINTER IN PAGE TABLE FAILED^_
1432 WRONG DATA FETCHED)^
1433 031273 036 13 0 00 060430
1434 031274 035 00 0 00 031270 ERLOOP TST12D ;IF ERROR, LOOP TO TST12D
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 18
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0051
1435
1436 ; **********************************************************************
1437 ;*TST13 - NOW WE'LL TRY AN INDIRECT POINTER IN THE PAGE TABLE.
1438 ; **********************************************************************
1439
1440 031275 TST13: SUBTST^
1441 031275 201 00 0 00 031275 MOVEI 0,.
1442 031276 202 00 0 00 030051 MOVEM 0,TESTPC
1443
1444 031277 200 01 0 00 055022 MOVE A,SPT+22
1445 031300 505 01 0 00 124000 HRLI A,ACCESS ;GET THE PRIVATE POINTER BACK AGAIN.
1446 031301 202 01 0 02 000777 MOVEM A,777(B) ;PUT IT BACK IN PAGE TABLE.
1447
1448 031302 TST13A: UPAGMP (P3,776)^ ;GET ACCESS TO USER PAGE 776.
1449 031302 201 01 0 00 036000 MOVEI A,P3
1450 031303 201 03 0 00 000776 MOVEI C,776
1451 031304 205 14 0 00 000001 MOVSI T3,1
1452 031305 260 17 0 00 032130 PUSHJ P,PMAPRT
1453
1454 031306 402 00 0 00 036000 SETZM P3 ;CLEAR A WORD IN THAT PAGE.
1455 031307 332 00 0 00 036000 SKIPE P3
1456 ERROR (TST13A,13,[0],P3,WRITE TO USER PAGE,SETZM FAILED)^
1457 031310 036 13 0 00 060442
1458 031311 035 00 0 00 031302 ERLOOP TST13A ;IF ERROR, LOOP TO TST13A
1459
1460 031312 200 01 0 00 060445 MOVE A,[17.76] ;SOME DATA FOR THAT PAGE.
1461 031313 705 01 0 00 776000 UMOVEM A,776000 ;STORE DATA IN USER PAGE.
1462
1463 031314 201 01 0 00 000000 MOVEI A,0
1464 031315 704 01 0 00 776000 UMOVE A,776000
1465
1466 031316 312 01 0 00 060445 CAME A,[17.76]
1467 ERROR (TST13A,13,[17.76],A,UMOVEM/UMOVE TO USER PAGE FAILED,^_
1468 WRONG DATA FETCHED)^
1469 031317 036 13 0 00 060454
1470 031320 035 00 0 00 031302 ERLOOP TST13A ;IF ERROR, LOOP TO TST13A
1471
1472 031321 200 01 0 00 034540 MOVE A,USECT+0 ;FIND OUT WHERE PAGE TABLE IS.
1473 031322 202 01 0 00 055023 MOVEM A,SPT+23 ;STORE IT IN THE SPT.
1474
1475 031323 200 02 0 00 060457 MOVE B,[NDIREC+777,,23] ;GET INDIRECT POINTER.
1476 031324 242 01 0 00 000011 LSH A,9 ;CHANGE TO WORD ADDRESS.
1477 031325 202 02 0 01 000776 MOVEM B,776(A) ;NOW REFS TO PAGE 776 SHOULD GO TO PAGE 777.
1478
1479 031326 701 04 0 00 060033 TST13B: WREBR PAGON ;TELL HARDWARE ABOUT NEW SETUP.
1480
1481 031327 704 01 0 00 776000 UMOVE A,776000 ;TRY A REFERENCE.
1482
1483 031330 312 01 0 00 060017 CAME A,[2.7] ;MAKE SURE WE GOT DATA FROM PAGE 777000
1484 ERROR (TST13B,13,[2.7],A,INDIRECT PTR IN PAGE TABLE FAILED,^_
1485 WRONG DATA FETCHED)^
1486 031331 036 13 0 00 060466
1487 031332 035 00 0 00 031326 ERLOOP TST13B ;IF ERROR, LOOP TO TST13B
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 19
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0052
1488
1489 ; **********************************************************************
1490 ;*TST14 - MAKE SURE THAT ANY NON-0 VALUE FOR BITS 12-17 OF FINAL POINTER
1491 ;* CAUSES A PAGE FAILURE.
1492 ; **********************************************************************
1493
1494 031333 TST14: SUBTST^
1495 031333 201 00 0 00 031333 MOVEI 0,.
1496 031334 202 00 0 00 030051 MOVEM 0,TESTPC
1497
1498 031335 200 01 0 00 060471 MOVE A,[-<1_<17-12+1>>,,1] ;NOTE THAT 12-17 = 0 WILL BE DONE LAST.
1499
1500 031336 200 02 0 00 034540 MOVE B,USECT+0 ;GET ADDRESS OF PAGE TABLE.
1501 031337 242 02 0 00 000011 LSH B,9 ;CHANGE TO WORD ADDRESS.
1502
1503 031340 476 00 0 00 032274 SETOM PFHSPC ;TELL HANDLER TO FALL THROUGH.
1504
1505 031341 137 01 0 00 060472 TST14A: DPB A,[220600,,777(B)] ;STORE A VALUE IN BITS 12-17 OF PAGE 777 ENTRY.
1506 031342 402 00 0 00 032305 SETZM XTEMP ;INIT TEMP WORD
1507 031343 137 01 0 00 060145 DPB A,[220600,,XTEMP] ;SAME BITS TO TEMP WORD
1508
1509 031344 476 00 0 00 032273 SETOM PFF ;ALLOW A PAGE FAILURE.
1510
1511 031345 701 04 0 00 060033 WREBR PAGON ;TELL HARDWARE WE'VE CHANGED THE BITS.
1512
1513 031346 201 03 0 00 000000 MOVEI C,0 ;START WITH 0.
1514 031347 704 03 0 00 777000 UMOVE C,777000 ;REFERENCE THE PAGE.
1515
1516 031350 602 01 0 00 000077 TRNE A,77 ;WERE BITS 12-17 ALL 0 THIS TIME ?
1517 031351 254 00 0 00 031361 JRST TST14B ;NO.
1518
1519 031352 312 03 0 00 060017 CAME C,[2.7] ;MAKE SURE RIGHT DATA GOT READ.
1520 ERROR (TST14A,13,[2.7],C,BITS 12-17 OF FINAL PTR WERE 0,^_
1521 WRONG DATA FETCHED)^
1522 031353 036 13 0 00 060501
1523 031354 035 00 0 00 031341 ERLOOP TST14A ;IF ERROR, LOOP TO TST14A
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 20
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0053
1524
1525 031355 331 00 0 00 032273 SKIPL PFF ;MAKE SURE NO PAGE FAIL HAPPENED.
1526 ERROR (TST14A,13,PFW,PFPC,BITS 12-17 OF FINAL PTR WERE 0,^_
1527 PAGE FAIL - C=PFW A=PFPC)^
1528 031356 036 13 0 00 060511
1529 031357 035 00 0 00 031341 ERLOOP TST14A ;IF ERROR, LOOP TO TST14A
1530
1531 031360 254 00 0 00 031370 JRST TST14C ;SKIP "NON-0" TEST.
1532
1533 031361 332 00 0 00 032273 TST14B: SKIPE PFF ;MAKE SURE PAGE FAIL HAPPENED.
1534 ERROR (TST14A,13,0,XTEMP,BITS 12-17 OF PAGE PTR NON-0,NO PAGE FAIL)^
1535 031362 036 13 0 00 060524
1536 031363 035 00 0 00 031341 ERLOOP TST14A ;IF ERROR, LOOP TO TST14A
1537
1538 031364 200 04 0 00 060244 MOVE AC,[401000,,777000]
1539 031365 312 04 0 00 034500 CAME AC,PFW
1540 ERROR (TST14A,13,[401000777000],PFW,^_
1541 BITS 12-17 OF PAGE PTR NON-0,^_
1542 PAGE FAIL WORD WRONG)^
1543 031366 036 13 0 00 060527
1544 031367 035 00 0 00 031341 ERLOOP TST14A ;IF ERROR, LOOP TO TST14A
1545
1546 031370 253 01 0 00 031341 TST14C: AOBJN A,TST14A ;LOOP FOR REST OF BITS 12-17 VALUES.
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 21
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0054
1547
1548 ; **********************************************************************
1549 ;*TST15 - NOW WE'LL CHECK A PAGE FAIL OCCURS IF AND ONLY IF BITS 0-5
1550 ;* OF CST ENTRY FOR PAGE IS 0.
1551 ; **********************************************************************
1552
1553 031371 TST15: SUBTST^
1554 031371 201 00 0 00 031371 MOVEI 0,.
1555 031372 202 00 0 00 030051 MOVEM 0,TESTPC
1556
1557 031373 540 02 0 02 000777 HRR B,777(B) ;FIND OUT PHYSICAL PAGE NUMBER.
1558
1559 031374 205 01 0 00 777700 MOVSI A,-100 ;NUMBER OF LOOPS TO DO.
1560
1561 031375 476 00 0 00 032274 SETOM PFHSPC ;ALLOW PAGE FAULT HANDLER TO "FALL THROUGH".
1562
1563 031376 476 00 0 00 032273 TST15A: SETOM PFF ;ALLOW A PAGE FAULT.
1564
1565 031377 137 01 0 00 060316 DPB A,[360600,,CST(B)] ;PUT BIT COMBINATION INTO CST ENTRY.
1566
1567 031400 402 00 0 00 032305 SETZM XTEMP ;INIT TEMP WORD
1568 031401 137 01 0 00 060317 DPB A,[360600,,XTEMP] ;SAME BITS TO TEMP WORD
1569
1570 031402 701 04 0 00 060033 WREBR PAGON ;MAKE SURE HARDWARE USES NEW CST ENTRY.
1571
1572 031403 704 03 0 00 777000 UMOVE C,777000 ;TRY A MEMORY REFERENCE.
1573
1574 031404 602 01 0 00 777777 TRNE A,777777 ;WERE BITS 0-5 OF CST ENTRY 0 THIS TIME?
1575 031405 254 00 0 00 031412 JRST TST15B ;NO.
1576
1577 031406 332 00 0 00 032273 SKIPE PFF ;YES, MAKE SURE PAGE FAIL HAPPENED.
1578 ERROR (TST15A,13,0,0,CST BITS 0-5 = 0,NO PAGE FAIL)^
1579 031407 036 13 0 00 060532
1580 031410 035 00 0 00 031376 ERLOOP TST15A ;IF ERROR, LOOP TO TST15A
1581 031411 254 00 0 00 031420 JRST TST15C
1582
1583 031412 312 03 0 00 060017 TST15B: CAME C,[2.7] ;NO, SO MAKE SURE DATA GOT READ.
1584 ERROR (TST15A,13,[2.7],C,CST BITS 0-5 NON-0,WRONG DATA FETCHED)^
1585 031413 036 13 0 00 060535
1586 031414 035 00 0 00 031376 ERLOOP TST15A ;IF ERROR, LOOP TO TST15A
1587
1588 031415 331 00 0 00 032273 SKIPL PFF ;AND THAT NO PAGE FAIL HAPPENED.
1589 ERROR (TST15A,13,0,XTEMP,CST BITS 0-5 NON-0,PAGE FAIL)^
1590 031416 036 13 0 00 060542
1591 031417 035 00 0 00 031376 ERLOOP TST15A ;IF ERROR, LOOP TO TST15A
1592
1593 031420 253 01 0 00 031376 TST15C: AOBJN A,TST15A ;LOOP FOR REST OF BIT COMBINATIONS IN CST.
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 22
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0055
1594
1595 ; **********************************************************************
1596 ;*TST16 - TRY TURNING OFF THE WRITE BIT IN THE SECTION POINTER,
1597 ;* AND MAKE SURE THAT WE CAN STILL READ THE DATA,
1598 ;* BUT NOT WRITE THE DATA.
1599 ; **********************************************************************
1600
1601 031421 TST16: SUBTST^
1602 031421 201 00 0 00 031421 MOVEI 0,.
1603 031422 202 00 0 00 030051 MOVEM 0,TESTPC
1604
1605 031423 200 01 0 00 034540 MOVE A,USECT+0 ;GET THE SECTION POINTER.
1606 031424 621 01 0 00 020000 TLZ A,(WRITEB) ;TURN OFF THE WRITE BIT.
1607 031425 202 01 0 00 034540 MOVEM A,USECT+0 ;UPDATE SECTION POINTER.
1608
1609 031426 476 00 0 00 032274 SETOM PFHSPC ;LET PAGE FAIL HANDLER FALL THROUGH.
1610
1611 031427 476 00 0 00 032273 TST16A: SETOM PFF ;ALLOW A PAGE FAILURE.
1612
1613 031430 701 04 0 00 060033 WREBR PAGON ;TELL HARDWARE ABOUT THE CHANGE.
1614
1615 031431 704 01 0 00 777000 UMOVE A,777000 ;TRY A READ.
1616
1617 031432 312 01 0 00 060017 CAME A,[2.7] ;MAKE SURE DATA GOT FETCHED.
1618 ERROR (TST16A,13,[2.7],A,^_
1619 READ REFERENCE WITH W BIT OFF IN SECTION POINTER,WRONG DATA FETCHED)^
1620 031433 036 13 0 00 060556
1621 031434 035 00 0 00 031427 ERLOOP TST16A ;IF ERROR, LOOP TO TST16A
1622
1623 031435 331 00 0 00 032273 SKIPL PFF ;MAKE SURE NO PAGE FAIL HAPPENED.
1624 ERROR (TST16A,13,PFW,PFPC,^_
1625 READ REFERENCE WITH W BIT OFF IN SECTION POINTER,^_
1626 PAGE FAIL OCCURRED - C=PFW A=PFPC)^
1627 031436 036 13 0 00 060567
1628 031437 035 00 0 00 031427 ERLOOP TST16A ;IF ERROR, LOOP TO TST16A
1629
1630 031440 476 00 0 00 032273 TST16B: SETOM PFF ;ALLOW ANOTHER PAGE FAIL.
1631
1632 031441 256 04 0 00 060572 PXCT 4,[SETMM 777000] ;TRY A WRITE REFERENCE.
1633
1634 031442 332 00 0 00 032273 SKIPE PFF ;MAKE SURE PAGE FAIL HAPPENED.
1635 ERROR (TST16B,13,0,0,^_
1636 WRITE WITH W BIT OFF IN SECTION POINTER,NO PAGE FAIL OCCURRED)^
1637 031443 036 13 0 00 060606
1638 031444 035 00 0 00 031440 ERLOOP TST16B ;IF ERROR, LOOP TO TST16B
1639
1640 031445 200 04 0 00 060611 MOVE AC,[511000,,777000]
1641 031446 312 04 0 00 034500 CAME AC,PFW
1642 ERROR (TST16B,13,[511000777000],PFW,^_
1643 WRITE WITH W BIT OFF IN SECTION POINTER,PAGE FAIL WORD WRONG)^
1644 031447 036 13 0 00 060612
1645 031450 035 00 0 00 031440 ERLOOP TST16B ;IF ERROR, LOOP TO TST16B
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 23
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0056
1646
1647 ; **********************************************************************
1648 ;*TST17 - NOW TURN THE WRITE BIT BACK ON,
1649 ;* AND TURN IT OFF IN THE PAGE TABLE,
1650 ;* AND TRY THE SAME TEST.
1651 ; **********************************************************************
1652
1653 031451 TST17: SUBTST^
1654 031451 201 00 0 00 031451 MOVEI 0,.
1655 031452 202 00 0 00 030051 MOVEM 0,TESTPC
1656
1657 031453 200 01 0 00 034540 MOVE A,USECT+0 ;GET SECTION POINTER AGAIN.
1658 031454 641 01 0 00 020000 TLC A,(WRITEB) ;TURN WRITE BIT BACK ON (TLC USED ON PURPOSE)
1659 031455 202 01 0 00 034540 MOVEM A,USECT+0 ;REPLACE SECTION POINTER.
1660
1661 031456 242 01 0 00 000011 LSH A,9 ;GET WORD ADDRESS OF PAGE TABLE.
1662 031457 200 02 0 01 000777 MOVE B,777(A) ;GET PAGE TABLE ENTRY.
1663 031460 641 02 0 00 020000 TLC B,(WRITEB) ;TURN WRITE BIT OFF IN PAGE TABLE.
1664
1665 031461 476 00 0 00 032274 SETOM PFHSPC ;LET PAGE FAIL HANDLER FALL THROUGH.
1666
1667 031462 202 02 0 01 000777 MOVEM B,777(A) ;UPDATE PAGE POINTER.
1668
1669 031463 476 00 0 00 032273 TST17A: SETOM PFF ;ALLOW A PAGE FAILURE.
1670
1671 031464 701 04 0 00 060033 WREBR PAGON ;TELL HARDWARE ABOUT THE CHANGE.
1672
1673 031465 704 03 0 00 777000 UMOVE C,777000 ;TRY A READ.
1674
1675 031466 312 03 0 00 060017 CAME C,[2.7] ;MAKE SURE DATA GOT FETCHED.
1676 ERROR (TST17A,13,[2.7],C,READ REF WITH W BIT OFF IN SEC PTR,^_
1677 WRONG DATA FETCHED)^
1678 031467 036 13 0 00 060623
1679 031470 035 00 0 00 031463 ERLOOP TST17A ;IF ERROR, LOOP TO TST17A
1680
1681 031471 331 00 0 00 032273 SKIPL PFF ;MAKE SURE NO PAGE FAIL HAPPENED.
1682 ERROR (TST17A,13,PFW,PFPC,READ REF WITH W BIT OFF IN SEC PTR,^_
1683 PAGE FAIL - C=PFW A=PFPC)^
1684 031472 036 13 0 00 060626
1685 031473 035 00 0 00 031463 ERLOOP TST17A ;IF ERROR, LOOP TO TST17A
1686
1687 031474 476 00 0 00 032273 TST17B: SETOM PFF ;ALLOW ANOTHER PAGE FAIL.
1688
1689 031475 256 04 0 00 060572 PXCT 4,[SETMM 777000] ;TRY A WRITE REFERENCE.
1690
1691 031476 332 00 0 00 032273 SKIPE PFF ;MAKE SURE PAGE FAIL HAPPENED.
1692 ERROR (TST17B,13,0,0,WRITE WITH W BIT OFF IN PAGE PTR,NO PAGE FAIL)^
1693 031477 036 13 0 00 060637
1694 031500 035 00 0 00 031474 ERLOOP TST17B ;IF ERROR, LOOP TO TST17B
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 24
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0057
1695
1696 ; **********************************************************************
1697 ;*TST18 - MAKE SURE THAT B35 OF THE CST ENTRY FOR THE PAGE
1698 ;* BEING REFERENCED DOESN'T GET TURNED ON BY A READ REFERENCE.
1699 ; **********************************************************************
1700
1701 031501 TST18: SUBTST^
1702 031501 201 00 0 00 031501 MOVEI 0,.
1703 031502 202 00 0 00 030051 MOVEM 0,TESTPC
1704
1705 031503 200 02 0 01 000777 MOVE B,777(A) ;GET PAGE TABLE ENTRY AGAIN.
1706 031504 641 02 0 00 020000 TLC B,(WRITEB) ;TURN WRITE BIT BACK ON AGAIN.
1707 031505 202 02 0 01 000777 MOVEM B,777(A)
1708
1709 031506 550 01 0 00 000002 HRRZ A,B ;GET PHYS PAGE NUMBER
1710
1711 031507 200 02 0 01 056000 TST18A: MOVE B,CST(A) ;GET CST ENTRY FOR PAGE.
1712 031510 620 02 0 00 000001 TRZ B,1 ;MAKE SURE "WRITTEN" BIT IS OFF.
1713 031511 202 02 0 01 056000 MOVEM B,CST(A)
1714
1715 031512 701 04 0 00 060033 WREBR PAGON ;TELL HARDWARE OF CHANGES.
1716
1717 031513 704 03 0 00 777000 UMOVE C,777000 ;MAKE A READ REFERENCE.
1718
1719 031514 200 02 0 01 056000 MOVE B,CST(A) ;GET CST ENTRY AGAIN.
1720
1721 031515 622 02 0 00 000001 TRZE B,1 ;INSURE WRITTEN BIT STILL OFF.
1722 ERROR (TST18A,13,0,0,READ REFERENCE,WRITTEN BIT GOT SET)^
1723 031516 036 13 0 00 060651
1724 031517 035 00 0 00 031507 ERLOOP TST18A ;IF ERROR, LOOP TO TST18A
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 25
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0058
1725
1726 ; **********************************************************************
1727 ;*TST19 - NOW WE'LL MAKE A WRITE REFERENCE AND MAKE SURE IT DOES COME ON.
1728 ; **********************************************************************
1729
1730 031520 TST19: SUBTST^
1731 031520 201 00 0 00 031520 MOVEI 0,.
1732 031521 202 00 0 00 030051 MOVEM 0,TESTPC
1733
1734 031522 202 02 0 01 056000 TST19A: MOVEM B,CST(A) ;REPLACE CST ENTRY WITH WRITTEN BIT OFF
1735
1736 031523 256 04 0 00 060572 PXCT 4,[SETMM 777000] ;MAKE A WRITE REFERENCE.
1737
1738 031524 200 02 0 01 056000 MOVE B,CST(A) ;PICK UP CST ENTRY ONCE MORE.
1739
1740 031525 626 02 0 00 000001 TRZN B,1 ;MAKE SURE WRITTEN BIT CAME ON.
1741 ERROR (TST19A,13,0,0,WRITE REFERENCE,B35 OF CST ENTRY DIDN'T SET)^
1742 031526 036 13 0 00 060664
1743 031527 035 00 0 00 031522 ERLOOP TST19A ;IF ERROR, LOOP TO TST19A
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 26
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0059
1744
1745 ; **********************************************************************
1746 ;*TST20 - THE FOLLOWING TEST MAKES SURE THE CST ENTRY FOR THE ACTUAL
1747 ;* PAGE BEING REFERENCED IS UPDATED CORRECTLY.
1748 ;* VARIOUS VALUES FOR THE MASK AND DATA WILL BE TRIED.
1749 ; **********************************************************************
1750
1751 031530 TST20: SUBTST^
1752 031530 201 00 0 00 031530 MOVEI 0,.
1753 031531 202 00 0 00 030051 MOVEM 0,TESTPC
1754
1755 031532 200 01 0 00 034540 MOVE A,USECT+0 ;GET SECTION POINTER.
1756 031533 242 01 0 00 000011 LSH A,9 ;GET ADDRESS OF PAGE TABLE.
1757 031534 200 02 0 01 000777 MOVE B,777(A) ;GET PHYSICAL PAGE NUMBER OF PAGE.
1758
1759 031535 201 01 0 00 000020 MOVEI A,1B31 ;MASK TO BE ANDED INTO CST ENTRY.
1760 031536 205 12 0 00 777741 MOVSI T1,-^D31 ;NUMBER OF DIFFERENT MASKS TO TRY.
1761
1762 031537 205 13 0 00 777741 TST20A: MOVSI T2,-^D31 ;NUMBER OF DIFFERENT DATA WORDS TO TRY.
1763
1764 031540 434 01 0 00 060364 IOR A,[1B0+17B35] ;B0 PREVENTS PAGE FAIL & 17B35 PRESERVES CST
1765
1766 031541 201 03 0 00 000020 MOVEI C,1B31 ;DATA TO BE ORED INTO CST ENTRY.
1767
1768 031542 477 14 0 02 056000 TST20B: SETOB T3,CST(B) ;ALWAYS START WITH -1 IN THE CST ENTRY.
1769 031543 404 14 0 00 000001 AND T3,A
1770 031544 434 14 0 00 000003 IOR T3,C ;DO WHAT THE HARDWARE DOES TO THE CST ENTRY.
1771
1772 031545 702 13 0 00 000001 WRCSTM A ;SETUP CST MASK
1773
1774 031546 702 12 0 00 000003 WRPUR C ;SETUP PROCESS USE REGISTER
1775
1776 031547 701 04 0 00 060033 WREBR PAGON ;TELL HARDWARE OF NEW ARRANGEMENT.
1777
1778 031550 704 15 0 00 777000 UMOVE T4,777000 ;CAUSE THE CST ENTRY TO BE UPDATED.
1779
1780 031551 200 04 0 02 056000 MOVE AC,CST(B)
1781 031552 312 14 0 00 000004 CAME T3,AC ;MAKE SURE THE UPDATE HAPPENED CORRECTLY.
1782 ERROR (TST20B,13,T3,AC,CST UPDATE FOR PAGE TABLE,FAILED)^
1783 031553 036 13 0 00 060667
1784 031554 035 00 0 00 031542 ERLOOP TST20B ;IF ERROR, LOOP TO TST20B
1785
1786 031555 242 03 0 00 000001 LSH C,1 ;CHANGE THE CST DATA WORD.
1787 031556 253 13 0 00 031542 AOBJN T2,TST20B ;TRY THE DIFFERENT DATA WORD.
1788
1789 031557 242 01 0 00 000001 LSH A,1 ;TRIED ALL THE DATA WORDS, CHANGE THE MASK.
1790 031560 253 12 0 00 031537 AOBJN T1,TST20A
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 27
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0060
1791
1792 ; **********************************************************************
1793 ;*TST21 - THE FOLLOWING TEST MAKES SURE THAT TIMER INTERRUPTS
1794 ;* ARE ALLOWED OUT OF INDIRECT POINTER CHAINS DUE TO
1795 ;* AN INDIRECT SECTION POINTER.
1796 ;* THE KS10 DOESN'T DO THIS TEST SINCE IT IS A SINGLE SECTION MACHINE.
1797 ; **********************************************************************
1798
1799 031561 TST21: SUBTST^
1800 031561 201 00 0 00 031561 MOVEI 0,.
1801 031562 202 00 0 00 030051 MOVEM 0,TESTPC
1802
1803 031563 201 01 0 00 000054 MOVEI A,IPAGPN ;INITIALIZE SPT ENTRY.
1804 031564 202 01 0 00 055003 MOVEM A,SPT+3 ;TO POINT TO INDIRECT PAGE
1805
1806 031565 200 01 0 00 060672 MOVE A,[NDIREC+1,,3] ;GET INITIAL INDIRECT POINTER.
1807
1808 031566 205 02 0 00 777001 MOVSI B,-777 ;NUMBER OF INDIRECT POINTERS TO SET UP.
1809
1810 031567 202 01 0 02 054000 TST21A: MOVEM A,IPAG(B) ;STORE AN INDIRECT POINTER.
1811
1812 031570 270 01 0 00 060673 ADD A,[1,,0] ;CREATE NEXT INDIRECT POINTER FOR CHAIN
1813 031571 253 02 0 00 031567 AOBJN B,TST21A ;SET UP REST OF INDIRECT CHAIN.
1814
1815 ; ******************************
1816 031572 336 00 0 00 061544 SKIPN XCHECK ;CAN'T TEST IF UCODE DOESN'T
1817 031573 254 00 0 00 031671 JRST TST22 ; ******************************
1818
1819 031574 200 01 0 00 034540 MOVE A,USECT+0 ;GET PRIVATE SECTION POINTER FOR END OF CHAIN.
1820 031575 202 01 0 00 054777 MOVEM A,IPAG+777 ;FINISH THE INDIRECT CHAIN.
1821
1822 031576 200 02 0 00 060674 MOVE B,[NDIREC,,3] ;INITIALIZE THE FIRST POINTER.
1823 031577 202 02 0 00 034540 MOVEM B,USECT+0 ;SET UP FIRST POINTER.
1824
1825 031600 200 03 0 00 054402 MOVE C,IPAG+402 ;TEST CHAIN BY BREAKING IT SOMEWHERE.
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 28
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0061
1826
1827 031601 402 00 0 00 054402 TST21B: SETZM IPAG+402
1828
1829 031602 701 04 0 00 060033 WREBR PAGON ;TELL HARDWARE ABOUT THIS WILD ARRANGEMENT.
1830
1831 031603 476 00 0 00 032273 SETOM PFF ;PREPARE FOR A PAGE FAILURE.
1832
1833 031604 704 01 0 00 777000 UMOVE A,777000 ;TRY A REFERENCE.
1834
1835 031605 332 00 0 00 032273 SKIPE PFF ;MAKE SURE A PAGE FAILURE HAPPENED.
1836 ERROR (TST21B,13,0,0,INCOMPLETE INDIRECT CHAIN,NO PAGE FAIL)^
1837 031606 036 13 0 00 060702
1838 031607 035 00 0 00 031601 ERLOOP TST21B ;IF ERROR, LOOP TO TST21B
1839
1840 031610 200 04 0 00 060705 MOVE AC,[371010,,031000]
1841 031611 312 04 0 00 034500 CAME AC,PFW
1842 ERROR (TST21B,13,[371010031000],PFW,^_
1843 INCOMPLETE INDIRECT CHAIN,PAGE FAIL WORD WRONG)^
1844 031612 036 13 0 00 060706
1845 031613 035 00 0 00 031601 ERLOOP TST21B ;IF ERROR, LOOP TO TST21B
1846
1847 031614 202 03 0 00 054402 MOVEM C,IPAG+402 ;REPAIR THE CHAIN.
1848
1849 031615 701 04 0 00 060033 TST21C: WREBR PAGON ;TELL THE HARDWARE.
1850
1851 031616 476 00 0 00 032273 SETOM PFF ;GUARD AGAINST PAGE FAILURE.
1852
1853 031617 201 01 0 00 000000 MOVEI A,0 ;START WITH 0 AS DATA.
1854 031620 704 01 0 00 777000 UMOVE A,777000 ;TEST THE CHAIN.
1855
1856 031621 331 00 0 00 032273 SKIPL PFF ;MAKE SURE NO PAGE FAILURE HAPPENED.
1857 ERROR (TST21C,13,PFW,PFPC,LONG INDIRECT SECTION PTR,^_
1858 PAGE FAILED - C=PFW A=PFPC)^
1859 031622 036 13 0 00 060723
1860 031623 035 00 0 00 031615 ERLOOP TST21C ;IF ERROR, LOOP TO TST21C
1861
1862 031624 312 01 0 00 060017 CAME A,[2.7] ;MAKE SURE CORRECT DATA GOT READ.
1863 ERROR (TST21C,13,[2.7],A,LONG INDIRECT SECTION PTR,^_
1864 WRONG DATA FETCHED)^
1865 031625 036 13 0 00 060726
1866 031626 035 00 0 00 031615 ERLOOP TST21C ;IF ERROR, LOOP TO TST21C
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 29
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0062
1867
1868 031627 701 04 0 00 060033 TST21D: WREBR PAGON ;CLEAR HPT
1869
1870 031630 702 14 0 00 032300 WRTIM TWOZER ;DOUBLE WORD OF ZEROS
1871
1872 031631 704 01 0 00 777000 UMOVE A,777000 ;SCAN THE WHOLE INDIRECT CHAIN.
1873
1874 031632 702 04 0 00 032302 RDTIME TWOTMP ;READ DOUBLE WORD (4.096 MHZ CLOCK)
1875
1876 031633 120 01 0 00 032302 DMOVE A,TWOTMP ;GET DBLWD RESULT
1877 031634 235 01 0 00 000120 DIVI A,4*<5+5>*2 ;A NOW HOLDS TIME IN 10 USEC CHUNKS/2
1878
1879 031635 612 01 0 00 060731 TDNE A,[-1-7777] ;MAKE SURE NUMBER IS IN APPLICABLE RANGE.
1880 ERROR (TST21D,13,[-1-7777],A,INDIRECT SECTION POINTER CHAIN,^_
1881 UNEXPECTED TIME TO SCAN CHAIN)^
1882 031636 036 13 0 00 060745
1883 031637 035 00 0 00 031627 ERLOOP TST21D ;IF ERROR, LOOP TO TST21D
1884
1885 031640 202 01 0 00 032275 MOVEM A,INTRVL ;STORE TIMER PERIOD TO USE.
1886
1887 031641 700 14 0 00 000400 WRPI PIOFF ;TURN OFF THE PI SYSTEM.
1888
1889 031642 700 04 0 00 120041 WRAPR 1B20!1B22!1B30!LAPRP1 ;PUT INTERVAL TIMER ON CHN
1890
1891 031643 200 01 0 00 060750 MOVE A,[JSR TST21F] ;TIMER INTERRUPT INSTRUCTION.
1892 031644 202 01 0 00 033042 MOVEM A,EPT+42 ;SETUP INTERRUPT INSTRUCTION.
1893
1894 031645 701 04 0 00 060033 WREBR PAGON ;MAKE HARDWARE FORGET AGAIN.
1895
1896 031646 700 14 0 00 012300 WRPI 1B23!1B25!1B28!PICHN1 ;ACTIVATE CHN
1897
1898 031647 702 15 0 00 032275 WRINT INTRVL ;LOAD INTERVAL TIMER
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 30
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0063
1899
1900 031650 704 03 0 00 777000 TST21E: UMOVE C,777000 ;REFERENCE THE LONG CHAIN.
1901
1902 ERROR (TST21D,13,0,0,INDIRECT POINTER CHAIN,NO TIMER INTERRUPT)^
1903 031651 036 13 0 00 060761
1904 031652 035 00 0 00 031627 ERLOOP TST21D ;IF ERROR, LOOP TO TST21D
1905 031653 254 00 0 00 031666 JRST TST21G ;SKIP OVER THE INTERRUPT ROUTINE.
1906
1907 031654 000000 000000 TST21F: 0 ;HOLDS PC FROM WHERE TIMER INTERRUPT OCCURED.
1908
1909 031655 550 01 0 00 031654 HRRZ A,TST21F ;FIND OUT WHERE WE INTERRUPTED FROM.
1910
1911 031656 302 01 0 00 031650 CAIE A,TST21E ;MAKE SURE IT'S THE "MOVE" INSTRUCTION.
1912 ERROR (TST21D,13,TST21E,A,INDIRECT POINTER CHAIN,^_
1913 UNEXPECTED INTERVAL TIMER INTERRUPT)^
1914 031657 036 13 0 00 060772
1915 031660 035 00 0 00 031627 ERLOOP TST21D ;IF ERROR, LOOP TO TST21D
1916
1917 031661 302 01 0 00 031650 CAIE A,TST21E
1918 031662 254 02 1 00 031654 JRST 2,@TST21F ;JUST RETURN TO PROGRAM IF STRANGE INTERRUPT
1919
1920 031663 200 01 0 00 031654 MOVE A,TST21F ;SET UP FOR RETURN WITH RESTORE OF FLGS
1921 031664 541 01 0 00 031666 HRRI A,TST21G ;RESTORE FLAGS AND GO ON
1922 031665 254 02 1 00 000001 JRST 2,@A
1923
1924 031666 700 14 0 00 030400 TST21G: WRPI 30400 ;TURN OFF THE PI SYSTEM.
1925 031667 200 01 0 00 054777 MOVE A,IPAG+777 ;GET THE ORIGINAL PRIVATE SECTION PTR
1926 031670 202 01 0 00 034540 MOVEM A,USECT+0 ;PUT IT BACK
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 31
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0064
1927
1928 ; **********************************************************************
1929 ;*TST22 - THE FOLLOWING TEST MAKES SURE A TIMER INTERRUPT
1930 ;* MAY BE TAKEN OUT OFA LONG CHAIN OF INDIRECT PAGE POINTERS.
1931 ;* (THE LAST TEST WAS WITH SECTION POINTERS)
1932 ; **********************************************************************
1933
1934 031671 TST22: SUBTST^
1935 031671 201 00 0 00 031671 MOVEI 0,.
1936 031672 202 00 0 00 030051 MOVEM 0,TESTPC
1937
1938 031673 200 01 0 00 034540 MOVE A,USECT ;POINT TO USER SECTION
1939 031674 242 01 0 00 000011 LSH A,9 ;GET ADDRESS OF PAGE TABLE.
1940
1941 031675 200 02 0 01 000777 MOVE B,777(A) ;GET PAGE POINTER.
1942 031676 202 02 0 00 054777 MOVEM B,IPAG+777 ;STORE IT AS LAST POINTER IN CHAIN.
1943
1944 031677 200 03 0 00 060674 MOVE C,[NDIREC,,3] ;INITIALIZE THE FIRST POINTER.
1945 031700 202 03 0 01 000777 MOVEM C,777(A) ;SET UP FIRST POINTER.
1946
1947 031701 200 03 0 00 054402 MOVE C,IPAG+402 ;TEST CHAIN BY BREAKING IT SOMEWHERE.
1948 031702 402 00 0 00 054402 SETZM IPAG+402
1949
1950 031703 701 04 0 00 060033 TST22A: WREBR PAGON ;TELL HARDWARE ABOUT THIS WILD ARRANGEMENT.
1951
1952 031704 476 00 0 00 032273 SETOM PFF ;PREPARE FOR A PAGE FAILURE.
1953
1954 031705 704 01 0 00 777000 UMOVE A,777000 ;TRY A REFERENCE.
1955
1956 031706 332 00 0 00 032273 SKIPE PFF ;MAKE SURE A PAGE FAILURE HAPPENED.
1957 ERROR (TST22A,13,0,0,INCOMPLETE INDIRECT CHAIN,NO PAGE FAIL)^
1958 031707 036 13 0 00 060702
1959 031710 035 00 0 00 031703 ERLOOP TST22A ;IF ERROR, LOOP TO TST22A
1960
1961 031711 200 04 0 00 060244 MOVE AC,[401000,,777000]
1962 031712 312 04 0 00 034500 CAME AC,PFW
1963 ERROR (TST22A,13,[401000777000],PFW,INCOMPLETE INDIRECT CHAIN,^_
1964 PAGE FAIL WORD WRONG)^
1965 031713 036 13 0 00 060775
1966 031714 035 00 0 00 031703 ERLOOP TST22A ;IF ERROR, LOOP TO TST22A
1967
1968 031715 202 03 0 00 054402 MOVEM C,IPAG+402 ;REPAIR THE CHAIN.
1969
1970 031716 701 04 0 00 060033 WREBR PAGON ;TELL THE HARDWARE.
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 32
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0065
1971
1972 031717 476 00 0 00 032273 TST22B: SETOM PFF ;GUARD AGAINST PAGE FAILURE.
1973
1974 031720 201 01 0 00 000000 MOVEI A,0 ;START WITH 0 AS DATA.
1975 031721 704 01 0 00 777000 UMOVE A,777000 ;TEST THE CHAIN.
1976
1977 031722 331 00 0 00 032273 SKIPL PFF ;MAKE SURE NO PAGE FAILURE HAPPENED.
1978 ERROR (TST22B,13,PFW,PFPC,LONG INDIRECT PAGE POINTER CHAIN,^_
1979 PAGE FAIL - C=PFW A=PFPC)^
1980 031723 036 13 0 00 061006
1981 031724 035 00 0 00 031717 ERLOOP TST22B ;IF ERROR, LOOP TO TST22B
1982
1983 031725 312 01 0 00 060017 CAME A,[2.7] ;MAKE SURE CORRECT DATA GOT READ.
1984 ERROR (TST22B,13,[2.7],A,LONG INDIRECT PAGE POINTER CHAIN,^_
1985 WRONG DATA FETCHED)^
1986 031726 036 13 0 00 061011
1987 031727 035 00 0 00 031717 ERLOOP TST22B ;IF ERROR, LOOP TO TST22B
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 33
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0066
1988
1989 031730 700 14 0 00 010400 TST22C: WRPI PICLR!PIOFF ;CLEAR AND TURN OFF THE PI SYSTEM.
1990
1991 031731 701 04 0 00 060033 WREBR PAGON ;CLEAR HPT
1992
1993 031732 702 14 0 00 032300 WRTIM TWOZER ;DOUBLE WORD OF ZEROS
1994
1995 031733 704 01 0 00 777000 UMOVE A,777000 ;SCAN THE WHOLE INDIRECT CHAIN.
1996
1997 031734 702 04 0 00 032302 RDTIME TWOTMP ;READ DOUBLE WORD TIME BASE
1998
1999 031735 120 01 0 00 032302 DMOVE A,TWOTMP ;GET DBLWD RESULT
2000 031736 235 01 0 00 000120 DIVI A,4*<5+5>*2 ;A NOW HOLDS TIME IN 10 USEC CHUNKS/2
2001
2002 031737 612 01 0 00 060731 TDNE A,[-1-7777] ;MAKE SURE NUMBER IS IN APPLICABLE RANGE.
2003 ERROR (TST22C,13,[-1-7777],A,INDIRECT PAGE POINTER CHAIN,^_
2004 UNEXPECTED TIME TO SCAN CHAIN)^
2005 031740 036 13 0 00 061021
2006 031741 035 00 0 00 031730 ERLOOP TST22C ;IF ERROR, LOOP TO TST22C
2007
2008 031742 202 01 0 00 032275 MOVEM A,INTRVL ;STORE THE INTERVAL TO USE.
2009
2010 031743 700 14 0 00 010400 WRPI PICLR!PIOFF ;CLEAR AND TURN OFF THE PI SYSTEM.
2011
2012 031744 200 01 0 00 061024 MOVE A,[JSR TST22E] ;TIMER INTERRUPT INSTRUCTION.
2013 031745 202 01 0 00 033042 MOVEM A,EPT+42 ;SET IT UP
2014
2015 031746 701 04 0 00 060033 WREBR PAGON ;MAKE HARDWARE FORGET AGAIN.
2016
2017 031747 702 15 0 00 032275 WRINT INTRVL ;LOAD INTERVAL TIMER
2018
2019 031750 700 04 0 00 120041 WRAPR LFLGEN!LFLGCL!LACLK!LAPRP1 ;PUT CLK TIMER ON CHN
2020
2021 031751 700 14 0 00 012300 WRPI PICLR!CHNON!PION!PICHN1 ;ACTIVATE CHN
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 34
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0067
2022
2023 031752 704 03 0 00 777000 TST22D: UMOVE C,777000 ;REFERENCE THE LONG CHAIN.
2024
2025 ERROR (TST22C,13,0,0,INDIRECT PAGE POINTER CHAIN,^_
2026 NO TIMER INTERRUPT)^
2027 031753 036 13 0 00 061025
2028 031754 035 00 0 00 031730 ERLOOP TST22C ;IF ERROR, LOOP TO TST22C
2029 031755 254 00 0 00 031770 JRST TST22F ;SKIP OVER THE INTERRUPT ROUTINE.
2030
2031 031756 000000 000000 TST22E: 0 ;HOLDS PC FROM TIMER INTERRUPT
2032
2033 031757 550 01 0 00 031756 HRRZ A,TST22E ;FIND OUT WHERE WE INTERRUPTED FROM.
2034
2035 031760 302 01 0 00 031752 CAIE A,TST22D ;MAKE SURE IT'S THE "MOVE" INSTRUCTION.
2036 ERROR (TST22C,13,0,0,INDIRECT PAGE POINTER CHAIN,^_
2037 UNEXPECTED TIMER INTERUPT)^
2038 031761 036 13 0 00 061035
2039 031762 035 00 0 00 031730 ERLOOP TST22C ;IF ERROR, LOOP TO TST22C
2040
2041 031763 302 01 0 00 031752 CAIE A,TST22D
2042 031764 254 02 1 00 031756 JRST 2,@TST22E ;JUST RETURN IF FROM STRANGE PLACE
2043
2044 031765 200 01 0 00 031756 MOVE A,TST22E ;RESTORE FLAGS AND CONTINUE
2045 031766 541 01 0 00 031770 HRRI A,TST22F ;AFTER RESTORE GO TO TST22F
2046 031767 254 02 1 00 000001 JRST 2,@A
2047
2048 031770 700 14 0 00 030400 TST22F: WRPI 30400 ;TURN OFF THE PI SYSTEM.
2049
2050 031771 200 01 0 00 034540 MOVE A,USECT+0 ;GET THE SECTION POINTER AGAIN.
2051 031772 242 01 0 00 000011 LSH A,9 ;CHANGE TO ADDRESS OF PAGE TABLE
2052
2053 031773 200 02 0 00 054777 MOVE B,IPAG+777 ;GET PAGE POINTER
2054 031774 202 02 0 01 000777 MOVEM B,777(A) ;NOW SECTION 0 USER PAGING IS OK AGAIN.
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 35
DSKECM MAC 29-Oct-79 14:20 ACTUAL TESTS SEQ 0068
2055
2056 ; **********************************************************************
2057 ;*TST23 - VERIFY THAT WITH EVERYTHING RESTORED TO NORMAL
2058 ;* THAT A PAGING REFERENCE WORKS
2059 ; **********************************************************************
2060
2061 031775 TST23: SUBTST^
2062 031775 201 00 0 00 031775 MOVEI 0,.
2063 031776 202 00 0 00 030051 MOVEM 0,TESTPC
2064
2065 031777 476 00 0 00 032273 TST23A: SETOM PFF
2066
2067 032000 701 04 0 00 060033 WREBR PAGON ;RESET HPT
2068
2069 032001 476 00 0 00 032274 SETOM PFHSPC ;CLEAR PAGE FAIL FLAG
2070
2071 032002 256 04 0 00 061040 PXCT 4,[SETZM 777000] ;DO REFERENCE
2072
2073 032003 331 00 0 00 032273 SKIPL PFF ;TEST THE PAGING NOW
2074 ERROR (TST23A,13,PFW,PFPC,MEMORY REFERENCE,^_
2075 UNEXPECTED PAGE FAIL - C=PFW A=PFPC)^
2076 032004 036 13 0 00 061052
2077 032005 035 00 0 00 031777 ERLOOP TST23A ;IF ERROR, LOOP TO TST23A
2078
2079 ; **********************************************************************
2080
2081 032006 263 17 0 00 000000 RTN ;DONE
2082
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 36
DSKECM MAC 29-Oct-79 14:20 MEMORY MANAGEMENT SEQ 0069
2083 SUBTTL MEMORY MANAGEMENT
2084
2085 ; **********************************************************************
2086 ;*KLPAGE
2087 ;* THIS ROUTINE INITIALIZES PAGING. ALL EXEC SECTION 0 PAGES ARE
2088 ;* MAPPED TO THEMSELVES. ALL OTHER EXEC PAGES, AND ALL USER PAGES
2089 ;* ARE RENDERED INNACCESSIBLE. SEE THE PAGMAP AND UPAGMP MACROS
2090 ;* FOR MAKING PAGES ACCESSIBLE.
2091 ; **********************************************************************
2092
2093 032007 701 04 0 00 000000 KLPAGE: WREBR PAGOFF ;TURN OFF PAGING
2094
2095 032010 402 00 0 00 033540 SETZM ESECT ;CLOSE SECTION 0.
2096 032011 402 00 0 00 034540 SETZM USECT ;CLOSE USER SECTION 0.
2097
2098 032012 200 01 0 00 061055 MOVE A,[ACCESS,,MAP0PN]
2099
2100 032013 200 00 0 00 030046 MOVE 0,CONSW ;GET CONSOLE SWITCHES
2101 032014 603 00 0 00 000020 TLNE 0,INHCSH ;INHIBIT CACHE?
2102 032015 621 01 0 00 004000 TLZ A,(CACHEB) ;YES, CLEAR CACHE BIT
2103 032016 202 01 0 00 033540 MOVEM A,ESECT+0 ;SET UP EXEC SECTION 0 POINTER.
2104
2105 ;ZERO OUT THE SPECIAL PAGE TABLE.
2106
2107 032017 200 01 0 00 061056 MOVE A,[SPT,,SPT+1]
2108 032020 402 00 0 00 055000 SETZM SPT ;CLEAR THE FIRST WORD
2109 032021 251 01 0 00 055777 BLT A,SPT+777 ;AND THE REST
2110
2111 ;CLEAR OUT ALL THE PAGE TABLES.
2112
2113 032022 402 00 0 00 032256 SETZM PUSE
2114 032023 200 01 0 00 061057 MOVE A,[PUSE,,PUSE+1]
2115 032024 251 01 0 00 032264 BLT A,PUSE+NPAGES-1 ;CLEAR OUT PAGE USE TABLE.
2116
2117 032025 402 00 0 00 044000 SETZM MAP0
2118 032026 200 01 0 00 061060 MOVE A,[MAP0,,MAP0+1]
2119 032027 251 01 0 00 044777 BLT A,MAP0+777 ;CLEAR SECTION 0 EXEC TABLE.
2120
2121 032030 402 00 0 00 045000 SETZM MAP1
2122 032031 200 01 0 00 061061 MOVE A,[MAP1,,MAP1+1]
2123 032032 251 01 0 00 053777 BLT A,MAP1+NPAGES_9-1 ;CLEAR THE TEST PAGE TABLES.
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 37
DSKECM MAC 29-Oct-79 14:20 MEMORY MANAGEMENT SEQ 0070
2124
2125 ;MAP ALL SECTION 0 PAGES TO THEMSELVES
2126
2127 032033 205 03 0 00 124000 MOVSI C,ACCESS ;LEFT HALF FOR PAGE TABLE ENTRIES
2128 032034 200 02 0 00 030046 MOVE B,CONSW ;GET THE SWITCHES
2129 032035 603 02 0 00 000020 TLNE B,INHCSH ;INHIBIT CACHE?
2130 032036 621 03 0 00 004000 TLZ C,(CACHEB) ;YES, CLEAR THE CACHE BIT
2131
2132 032037 205 02 0 00 777000 MOVSI B,-1000 ;POINTER TO MAP0
2133 032040 542 02 0 02 044000 PTLUP: HRRM B,MAP0(B) ;INITIALIZE EXEC SEC 0 PAGE TABLE ENTRY
2134 032041 502 03 0 02 044000 HLLM C,MAP0(B) ;AND ITS LEFT HALF
2135 032042 253 02 0 00 032040 AOBJN B,PTLUP ;LOOP UNTIL ALL ENTRIES MADE.
2136
2137 032043 623 03 0 00 004000 TLZE C,(CACHEB) ;NOW CLEAR THE CACHEB (SKIP IF CLEAR)
2138 032044 502 03 0 00 044000 HLLM C,MAP0 ;AND SET PAGE ZERO'S ENTRY W/OUT CACHE
2139
2140 ;INITIALIZE THE CST
2141
2142 032045 205 01 0 00 776000 MOVSI A,-CSTLEN ;POINTER TO CST
2143 032046 205 02 0 00 770000 MOVSI B,770000 ;DATA FOR EVERY CST WORD
2144 032047 202 02 0 01 056000 CSTINI: MOVEM B,CST(A) ;INITIALIZE A CST ENTRY
2145 032050 253 01 0 00 032047 AOBJN A,.-1 ;LOOP BACK FOR REST OF CST.
2146
2147 ;SET UP CST MASK, DATA, AND BASE REGISTERS
2148
2149 032051 702 13 0 00 061062 WRCSTM [-1] ;PUT ALL 1'S IN CST MASK WORD
2150 032052 702 10 0 00 061063 WRSPB [SPT] ;PUT SPT ADDR IN SPT BASE REGISTER
2151 032053 702 11 0 00 061064 WRCSB [CST] ;PUT CST ADDR IN CST BASE REGISTER
2152
2153 ;INITIALIZE MUUO HANDLER
2154
2155 032054 201 01 0 00 032065 MOVEI A,MUUOH ;GET ADDRESS OF MUUO HANDLER
2156 032055 202 01 0 00 034430 MOVEM A,UUONPC ;STORE IT WHERE COMPUTER WANTS IT.
2157 032056 200 01 0 00 061065 MOVE A,[UUONPC,,UUONPC+1]
2158 032057 251 01 0 00 034435 BLT A,UUONPC+5 ;ONE OF THESE LOCATIONS IS FETCHED
2159
2160 ;SET UP PAGE FAULT HANDLER ADDRESS
2161
2162 032060 415 01 0 00 032105 XMOVEI A,PFH ;GET ADDRESS OF PAGE FAULT HANDLER
2163 032061 202 01 0 00 034503 MOVEM A,PFHA ;STORE PAGE FAULT HANDLER
2164
2165 032062 701 03 0 00 032306 WRUBR UPWD ;SETUP UPT
2166 032063 701 04 0 00 060033 WREBR PAGON ;SETUP EPT, TURN ON PAGING
2167 032064 263 17 0 00 000000 RTN
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 38
DSKECM MAC 29-Oct-79 14:20 MEMORY MANAGEMENT SEQ 0071
2168
2169 ; **********************************************************************
2170 ;*MUUOH - THIS ROUTINE GETS TRANSFERRED TO ON ANY MUUO.
2171 ; **********************************************************************
2172 SALL
2173 032065 261 17 0 00 000001 MUUOH: PUT A ;DON'T CLOBBER ANY AC'S
2174 032066 265 01 0 00 032067 JSP A,.+1
2175 032067 202 01 0 00 032271 MOVEM A,UUOSPF ;STORE PC FLAGS FOR NON-X MACHINE.
2176
2177 032070 036 13 0 00 061070 ERROR1 13,0,0,BAD MUUO,,BADUUO
2178 032071 037 15 0 00 000004 FATAL
2179
2180 032072 BADUUO: PMSGF < TEST PC = >^
2181 032072 037 04 0 00 061073 PSIXMF [SIXBIT\ TEST PC = _\]^
2182 032073 200 00 0 00 030051 MOVE TESTPC
2183 032074 037 17 0 00 000003 PNTOCF
2184
2185 PMSGF <^ MUUO = >^
2186 032075 037 04 0 00 061075 PSIXMF [SIXBIT\^ MUUO = _\]^
2187 032076 200 00 0 00 034424 MOVE MCODE
2188 032077 037 13 0 00 000001 PNTHWF
2189
2190 PMSGF <, MUUO PC = >^
2191 032100 037 04 0 00 061077 PSIXMF [SIXBIT\, MUUO PC = _\]^
2192 032101 200 00 0 00 034425 MOVE MOLDPC ;GET PC OF ERROR
2193 032102 037 13 0 00 000001 PNTHWF ;SHOW IT
2194
2195 032103 037 01 0 00 030242 PCRLF
2196 032104 263 17 0 00 000000 RTN
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 39
DSKECM MAC 29-Oct-79 14:20 MEMORY MANAGEMENT SEQ 0072
2197
2198 ; **********************************************************************
2199 ;*PFH - PAGE FAULT HANDLER
2200 ; **********************************************************************
2201
2202 032105 352 00 0 00 032273 PFH: AOSE PFF ;MAKE SURE A PAGE FAULT IS ALLOWED.
2203 032106 254 00 0 00 032113 JRST BADPF ;BAD PAGE FAULT, GO TELL.
2204
2205 032107 331 00 0 00 032274 SKIPL PFHSPC ;-1 IN PFHSPC MEANS "FALL THROUGH"
2206 032110 254 00 1 00 032274 JRST @PFHSPC ;GO HANDLE SPECIAL PAGE FAULT.
2207
2208 032111 350 00 0 00 034502 AOS PFPC ;DON'T RETURN TO OFFENDING INSTRUCTION!
2209 032112 254 05 0 00 034501 XJRSTF PFFLGS ;FALL THRU PAGE FAIL INSTRUCTION
2210
2211 032113 BADPF: ERROR1 13,0,0,BAD PAGE FAIL,,BADPFX^
2212 032113 036 13 0 00 061105
2213 032114 037 15 0 00 000004 FATAL
2214
2215 032115 BADPFX: PMSGF < TESTPC = >^
2216 032115 037 04 0 00 061110 PSIXMF [SIXBIT\ TESTPC = _\]^
2217 032116 200 00 0 00 030051 MOVE TESTPC
2218 032117 037 17 0 00 000003 PNTOCF
2219
2220 PMSGF <^ PFW = >^
2221 032120 037 04 0 00 061112 PSIXMF [SIXBIT\^ PFW = _\]^
2222 032121 200 00 0 00 034500 MOVE PFW ;GET PAGE FAIL WORD
2223 032122 037 13 0 00 000001 PNTHWF ;SHOW IT
2224
2225 PMSGF <, PFPC = >^
2226 032123 037 04 0 00 061114 PSIXMF [SIXBIT\, PFPC = _\]^
2227 032124 200 00 0 00 034502 MOVE PFPC ;GET PAGE FAIL PC
2228 032125 037 13 0 00 000001 PNTHWF ;SHOW IT
2229
2230 032126 037 01 0 00 030242 PCRLF
2231 032127 263 17 0 00 000000 RTN
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 40
DSKECM MAC 29-Oct-79 14:20 MEMORY MANAGEMENT SEQ 0073
2232
2233 ; **********************************************************************
2234 ;*PMAPRT - PAGE MAPPING ROUTINE
2235 ; **********************************************************************
2236
2237 032130 402 00 0 00 000002 PMAPRT: SETZM B ;SECTION NUMBER ALWAYS ZERO
2238
2239 032131 200 13 0 00 000001 MOVE T2,A
2240 032132 242 13 0 00 777767 LSH T2,-9 ;GET PAGE NUMBER BEING UNMAPPED.
2241 032133 275 13 0 00 000035 SUBI T2,P1PN ;NOW WE HAVE INDEX INTO PUSE TABLE.
2242
2243 032134 336 04 0 13 032256 SKIPN AC4,PUSE(T2) ;PICK UP LAST MAPPING
2244 032135 254 00 0 00 032163 JRST NREMOB ;IT WAS NEVER MAPPED
2245
2246 032136 201 07 0 00 033540 MOVEI AC7,ESECT ;FIRST ASSUME IT WAS AN EXEC MAPPING.
2247 032137 623 04 0 00 000001 TLZE AC4,1
2248 032140 201 07 0 00 034540 MOVEI AC7,USECT ;NO, IT WAS A USER MAPPING.
2249
2250 032141 246 04 0 00 777767 LSHC AC4,-9 ;GET PAGE NUMBER OF OLD MAPPING
2251 032142 242 05 0 00 777745 LSH AC5,-^D27 ;NOW OLD SECTION # IN AC4, OLD PAGE # IN AC5.
2252
2253 032143 270 07 0 00 000004 ADD AC7,AC4 ;CREATE ADDRESS OF PAGE TABLE POINTER.
2254
2255 032144 200 04 0 07 000000 MOVE AC4,(AC7) ;PICK UP THE STARTING ADDRESS OF THE PAGE TABLE.
2256 032145 242 04 0 00 000011 LSH AC4,9 ;CHANGE TO CORE ADDRESS.
2257
2258 032146 270 04 0 00 000005 ADD AC4,AC5 ;CREATE ADDRESS OF PAGE TABLE ENTRY.
2259
2260 032147 402 00 0 04 000000 SETZM (AC4) ;CLEAR OUT THE OLD ENTRY.
2261
2262 032150 200 15 0 13 032256 MOVE T4,PUSE(T2) ;PICK UP THE OLD MAPPING INFO.
2263 032151 620 15 0 00 000777 TRZ T4,777 ;KEEP ONLY THE USER BIT AND SECTION NUMBER.
2264
2265 032152 205 10 0 00 777771 MOVSI AC10,-NPAGES ;LOOK FOR OTHER MAPPINGS IN SAME SECTION.
2266
2267 032153 200 11 0 10 032256 LK1: MOVE AC11,PUSE(AC10) ;PICK UP A MAPPING.
2268 032154 620 11 0 00 000777 TRZ AC11,777 ;CLEAR PAGE NUMBER.
2269
2270 032155 312 11 0 00 000015 CAME AC11,T4 ;IS THIS A MAPPING IN THE SAME SECTION ?
2271 032156 254 00 0 00 032161 JRST NOQ ;THIS ONE ISN'T THE SAME SECTION.
2272
2273 032157 302 13 0 10 000000 CAIE T2,(AC10) ;COMPARING THE CURRENT ENTRY WITH ITSELF ?
2274 032160 254 00 0 00 032163 JRST NREMOB ;NO, THE SECTION IS STILL IN USE.
2275
2276 032161 253 10 0 00 032153 NOQ: AOBJN AC10,LK1 ;KEEP LOOKING.
2277
2278 032162 402 00 0 07 000000 SETZM (AC7) ;NO OTHER PAGE USING SECTION, FREE PAGE TABLE.
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 41
DSKECM MAC 29-Oct-79 14:20 MEMORY MANAGEMENT SEQ 0074
2279
2280 032163 200 12 0 02 033540 NREMOB: MOVE T1,ESECT(B) ;FIRST ASSUME THIS IS AN EXEC MAPPING.
2281 032164 302 14 0 00 000000 CAIE T3,0
2282 032165 200 12 0 02 034540 MOVE T1,USECT(B) ;NO, IT'S A USER MAPPING.
2283
2284 032166 326 12 0 00 032205 JUMPN T1,GOTONE ;SECTION ALREADY HAS A PAGE TABLE IF NON-ZERO.
2285
2286 032167 205 13 0 00 777771 MOVSI T2,-NPAGES ;IT DOESN'T, SO LET'S LOOK FOR A FREE PAGE MAP.
2287 032170 201 15 0 00 000045 MOVEI T4,MAP1PN ;SETUP PAGE MAP PAGE NUMBER WE'RE OPTING FOR.
2288
2289 032171 205 04 0 00 777740 CHKM1: MOVSI AC4,-40 ;NUMBER OF SECTIONS TO CHECK.
2290
2291 032172 550 05 0 04 033540 CHKM3: HRRZ AC5,ESECT(AC4) ;PICK UP A PAGE TABLE PAGE #.
2292 032173 550 06 0 04 034540 HRRZ AC6,USECT(AC4) ;DO TWO AT ONCE.
2293 032174 312 05 0 00 000015 CAME AC5,T4
2294 032175 316 06 0 00 000015 CAMN AC6,T4
2295 032176 254 00 0 00 032202 JRST CHKM2 ;MATCH, THEN THIS PAGE TABLE IS BUSY.
2296
2297 032177 253 04 0 00 032172 AOBJN AC4,CHKM3 ;CHECK REST OF POINTERS TO INSURE TABLE IS FREE.
2298
2299 032200 200 12 0 00 000015 MOVE T1,T4 ;THIS TABLE IS A GOOD ONE. WE'LL USE IT.
2300 032201 254 00 0 00 032205 JRST GOTONE
2301
2302 032202 271 15 0 00 000001 CHKM2: ADDI T4,1 ;TRY THE NEXT PAGE TABLE.
2303 032203 253 13 0 00 032171 AOBJN T2,CHKM1 ;LOOP TILL ALL POSSIBLE PAGE TABLES TRIED.
2304 032204 037 15 0 00 000004 FATAL ;TOO MANY TABLES IN USE !!
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 42
DSKECM MAC 29-Oct-79 14:20 MEMORY MANAGEMENT SEQ 0075
2305
2306 032205 505 12 0 00 124000 GOTONE: HRLI T1,ACCESS ;GET PRIVATE POINTER ACCESS BITS.
2307
2308 032206 200 00 0 00 030046 MOVE 0,CONSW ;GET THE CONSOLE SWITCHES
2309 032207 603 00 0 00 000020 TLNE 0,INHCSH ;INHIBIT CACHE?
2310 032210 621 12 0 00 004000 TLZ T1,(CACHEB) ;YES, CLEAR CACHE BIT
2311
2312 032211 302 14 0 00 000000 CAIE T3,0 ;USER MAPPING ?
2313 032212 202 12 0 02 034540 MOVEM T1,USECT(B) ;YES, SO SET UP POINTER TO PAGE TABLE.
2314
2315 032213 306 14 0 00 000000 CAIN T3,0
2316 032214 202 12 0 02 033540 MOVEM T1,ESECT(B) ;NO, SET UP POINTER TO EXEC PAGE TABLE.
2317
2318 032215 242 12 0 00 000011 LSH T1,9 ;MAKE PAGE TABLE CORE ADDRESS.
2319 032216 270 12 0 00 000003 ADD T1,C ;NOW T1 POINTS TO SPECIFIC PAGE TABLE WORD.
2320
2321 032217 242 01 0 00 777767 LSH A,-9 ;CHANGE CORE ADDRESS TO PAGE NUMBER.
2322
2323 032220 505 01 0 00 124000 HRLI A,ACCESS ;SET UP PRIVATE POINTER ACCESS BITS.
2324
2325 032221 200 00 0 00 030046 MOVE 0,CONSW ;GET CONSOLE SWITCHES
2326 032222 607 00 0 00 000020 TLNN 0,INHCSH ;INHIBIT CACHE?
2327 032223 306 03 0 00 000000 CAIN C,0 ;OR PAGE ZERO?
2328 032224 621 01 0 00 004000 TLZ A,(CACHEB) ;YES, CLEAR CACHE BIT
2329
2330 032225 202 01 0 12 000000 MOVEM A,(T1) ;UPDATE THE APPROPRIATE PAGE TABLE.
2331
2332 032226 405 01 0 00 000777 ANDI A,777 ;KEEP ONLY THE PHYSICAL PAGE NUMBER.
2333 032227 275 01 0 00 000035 SUBI A,P1PN ;CREATE INDEX INTO PUSE TABLE.
2334
2335 032230 242 02 0 00 000011 LSH B,9 ;WE WANT SECTION NUMBER TO LEFT OF PAGE NUMBER.
2336
2337 032231 202 14 0 01 032256 MOVEM T3,PUSE(A) ;STORE USER OR EXEC BIT IN PUSE TABLE.
2338
2339 032232 436 02 0 01 032256 IORM B,PUSE(A) ;STORE VIRTUAL SECTION NUMBER.
2340 032233 436 03 0 01 032256 IORM C,PUSE(A) ;AND VIRTUAL PAGE NUMBER.
2341
2342 032234 701 03 0 00 032306 WRUBR UPWD ;TELL HARDWARE ABOUT THE NEW MAPPING.
2343 032235 263 17 0 00 000000 RTN
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 43
DSKECM MAC 29-Oct-79 14:20 MEMORY MANAGEMENT SEQ 0076
2344
2345 ; **********************************************************************
2346 ;*PREVX - SET PREVIOUS CONTEXT TO EXEC
2347 ; **********************************************************************
2348
2349 032236 261 17 0 00 000001 PREVX: PUT A
2350
2351 032237 265 01 0 00 032240 JSP A,.+1 ;GET PRESENT PC FLAGS
2352 032240 621 01 0 00 004000 TLZ A,(PCUBIT) ;CLEAR PREVIOUS CONTEXT USER BIT
2353 032241 541 01 0 00 032243 HRRI A,.+2 ;SETUP NEW PC
2354
2355 032242 254 02 1 00 000001 JRSTF @A ;SET APPROPRIATE FLAGS
2356
2357 032243 701 03 0 00 032306 WRUBR UPWD ;SET USER BASE REGISTER
2358
2359 032244 262 17 0 00 000001 GET A
2360 032245 263 17 0 00 000000 RTN
2361
2362 ; **********************************************************************
2363 ;*PREVU - SET PREVIOUS CONTEXT TO USER
2364 ; **********************************************************************
2365
2366 032246 261 17 0 00 000001 PREVU: PUT A
2367
2368 032247 265 01 0 00 032250 JSP A,.+1 ;GET PRESENT PC FLAGS
2369 032250 661 01 0 00 004000 TLO A,(PCUBIT) ;SET PREVIOUS CONTEXT USER BIT
2370 032251 541 01 0 00 032253 HRRI A,.+2 ;SETUP NEW PC
2371
2372 032252 254 02 1 00 000001 JRSTF @A ;SET APPROPRIATE FLAGS
2373
2374 032253 701 03 0 00 032306 WRUBR UPWD ;SET USER BASE REGISTER
2375
2376 032254 262 17 0 00 000001 GET A
2377 032255 263 17 0 00 000000 RTN
2378
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 44
DSKECM MAC 29-Oct-79 14:20 MEMORY MANAGEMENT STORAGE SEQ 0077
2379 SUBTTL MEMORY MANAGEMENT STORAGE
2380 SALL
2381 ; **********************************************************************
2382 ;*PUSE - THE SPECIAL PAGES USED FOR TESTING EACH HAVE
2383 ;* AN ENTRY HERE. THEY ARE CALLED (P1,P2,P3...
2384 ;* PN) WHERE N IS THE VALUE OF "NPAGES". THE
2385 ;* ENTRY IN PUSE FOR PN TELLS WHAT VIRTUAL PAGE
2386 ;* OF CORE IS MAPPED TO PHYSICAL PAGE PN. BIT 17
2387 ;* ON MEANS USER MAPPING, OFF MEANS EXEC MAPPING.
2388 ; **********************************************************************
2389
2390 032256 PUSE: BLOCK NPAGES
2391
2392 ; **********************************************************************
2393 ;*FOUR WORD LUUO BLOCK.
2394 ; **********************************************************************
2395
2396 032265 000000 000000 UUOCOD: 0 ;HOLDS OPCODE, AC FIELD, PC FLAGS
2397 032266 000000 000000 UUOPC: 0 ;HOLDS PC ADDRESS
2398 032267 000000 000000 UUOE: 0 ;EFFECTIVE ADDRESS OF LUUO
2399 032270 000000 000000 ALOHA: 0 ;ADDRESS OF LUUO HANDLER
2400
2401 ; **********************************************************************
2402 ;*TWO WORD MUUO RETURN BLOCK.
2403 ; **********************************************************************
2404
2405 032271 000000 000000 UUOSPF: 0 ;HOLDS PC FLAGS.
2406 032272 000000 000000 UUOSPC: 0 ;HOLDS SPECIAL MUUO RETURN ADDRESS.
2407
2408 ; **********************************************************************
2409 ;*PAGE FAULT CONTROL
2410 ; **********************************************************************
2411
2412 032273 000000 000000 PFF: 0 ;-1 TO ALLOW ONE PAGE FAULT.
2413 032274 000000 000000 PFHSPC: 0 ;HOLDS ADDRESS OF SPECIAL PAGE FAULT HANDLER.
2414
2415 ; **********************************************************************
2416 ;*MISCELLANEOUS STORAGE
2417 ; **********************************************************************
2418
2419 032275 000000 000000 INTRVL: 0 ;HOLDS INTERVAL TIMER PERIOD.
2420
2421 032300 LOC <.!1>+1 ;GO TO EVEN WORD
2422 032300 000000 000000 TWOZER: 0 ;TWO WORDS ON EVEN BOUNDARY
2423 032301 000000 000000 0
2424
2425 032302 000000 000000 TWOTMP: 0 ;TWO WORDS TO MUNCH
2426 032303 000000 000000 0
2427
2428 032304 000000 000000 RESDAT: 0
2429 032305 000000 000000 XTEMP: 0 ;TEMP WORD FOR RESULTS
2430
2431 032306 500000 000034 UPWD: 1B0!1B2!0B8!UPTPN ;WORD FOR WRUBR
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 45
DSKECM MAC 29-Oct-79 14:20 MEMORY MANAGEMENT STORAGE SEQ 0078
2432
2433 ; **********************************************************************
2434 ;*HARDWARE PAGES
2435 ; **********************************************************************
2436 LALL
2437 .PGE EPT ^;EXECUTIVE PROCESS TABLE
2438
2439 033000 LOC <.!777>+1
2440 000033 EPT: EPTPN==<EPT_-^D9>
2441
2442 .PGE UPT ^;USER PROCESS TABLE
2443
2444 034000 LOC <.!777>+1
2445 000034 UPT: UPTPN==<UPT_-^D9>
2446
2447
2448 .PGE P1 ^;PAGES USED BY TESTS.
2449
2450 035000 LOC <.!777>+1
2451 000035 P1: P1PN==<P1_-^D9>
2452
2453 .PGE P3 ^;THESE ARE PURPOSELY OUT OF ORDER.
2454
2455 036000 LOC <.!777>+1
2456 000036 P3: P3PN==<P3_-^D9>
2457
2458 .PGE P2^
2459 037000 LOC <.!777>+1
2460 000037 P2: P2PN==<P2_-^D9>
2461 ^
2462 .PGE P7^
2463 040000 LOC <.!777>+1
2464 000040 P7: P7PN==<P7_-^D9>
2465 ^
2466 .PGE P5^
2467 041000 LOC <.!777>+1
2468 000041 P5: P5PN==<P5_-^D9>
2469 ^
2470 .PGE P6^
2471 042000 LOC <.!777>+1
2472 000042 P6: P6PN==<P6_-^D9>
2473 ^
2474 .PGE P4^
2475 043000 LOC <.!777>+1
2476 000043 P4: P4PN==<P4_-^D9>
2477 ^
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 46
DSKECM MAC 29-Oct-79 14:20 MEMORY MANAGEMENT STORAGE SEQ 0079
2478
2479 .PGE MAP0 ^;EXEC SECTION 0 PAGE MAP.
2480
2481 044000 LOC <.!777>+1
2482 000044 MAP0: MAP0PN==<MAP0_-^D9>
2483
2484 .PGE MAP1^
2485 045000 LOC <.!777>+1
2486 000045 MAP1: MAP1PN==<MAP1_-^D9>
2487 ^
2488 .PGE MAP2^
2489 046000 LOC <.!777>+1
2490 000046 MAP2: MAP2PN==<MAP2_-^D9>
2491 ^
2492 .PGE MAP3^
2493 047000 LOC <.!777>+1
2494 000047 MAP3: MAP3PN==<MAP3_-^D9>
2495 ^
2496 .PGE MAP4^
2497 050000 LOC <.!777>+1
2498 000050 MAP4: MAP4PN==<MAP4_-^D9>
2499 ^
2500 .PGE MAP5^
2501 051000 LOC <.!777>+1
2502 000051 MAP5: MAP5PN==<MAP5_-^D9>
2503 ^
2504 .PGE MAP6^
2505 052000 LOC <.!777>+1
2506 000052 MAP6: MAP6PN==<MAP6_-^D9>
2507 ^
2508 .PGE MAP7 ^;THERE MUST BE EXACTLY "NPAGES" OF THESE MAPS.
2509
2510 053000 LOC <.!777>+1
2511 000053 MAP7: MAP7PN==<MAP7_-^D9>
2512
2513
2514 .PGE IPAG ^;USED FOR INDIRECT CHAINS.
2515
2516 054000 LOC <.!777>+1
2517 000054 IPAG: IPAGPN==<IPAG_-^D9>
2518
2519
2520 .PGE SPT ^;SPECIAL PAGES TABLE.
2521
2522 055000 LOC <.!777>+1
2523 000055 SPT: SPTPN==<SPT_-^D9>
2524
2525
2526 056000 LOC <.!777>+1
2527 056000 CST: BLOCK CSTLEN ;CORE STATUS TABLE.
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1
STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0080
2528 SUBTTL *STOR* RESERVED STORAGE, SEPTEMBER 1979
2529
2530 ;PROGRAM LITERALS
2531
2532 XLIST
2533 IFNDEF $LPAPER,<LIST>
2534 060000 LIT
2535 060000 53 63 21 20 00 53
2536 060001 54 15 60 41 47 51
2537 060002 56 47 00 64 45 63
2538 060003 64 77 00 00 00 00
2539 060004 22 14 0 00 000000
2540 060005 76 37 51 55 60 62
2541 060006 57 60 45 62 00 55
2542 060007 51 43 62 57 43 57
2543 060010 44 45 14 00 66 45
2544 060011 62 63 51 57 56 00
2545 060012 21 21 27 00 57 62
2546 060013 00 54 41 64 45 62
2547 060014 00 62 45 61 65 51
2548 060015 62 45 44 76 77 00
2549 060016 202621 727025
2550 060017 202531 463147
2551 060020 66 45 62 51 46 71
2552 060021 00 64 50 41 64 00
2553 060022 65 63 45 62 00 41
2554 060023 56 44 00 45 70 45
2555 060024 43 00 55 41 60 60
2556 060025 51 56 47 63 76 47
2557 060026 57 00 64 50 62 65
2558 060027 00 44 51 46 46 45
2559 060030 62 45 56 64 00 63
2560 060031 45 43 64 51 57 56
2561 060032 00 64 41 42 54 45
2562 060033 63 77 00 00 00 00
2563 060034 67 62 57 56 47 00
2564 060035 45 70 45 43 00 44
2565 060036 41 64 41 00 46 45
2566 060037 64 43 50 45 44 77
2567 060040 060000 060020
2568 060041 060016 000001
2569 060042 060034 000000
2570 060043 67 62 57 56 47 00
2571 060044 65 63 45 62 00 44
2572 060045 41 64 41 00 46 45
2573 060046 64 43 50 45 44 77
2574 060047 060000 060020
2575 060050 060017 000001
2576 060051 060043 000000
2577 060052 224000 000021
2578 060053 63 50 41 62 45 00
2579 060054 60 57 51 56 64 45
2580 060055 62 00 41 63 00 63
2581 060056 45 43 64 51 57 56
2582 060057 00 60 57 51 56 64
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1-1
STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0081
2583 060060 45 62 00 46 41 51
2584 060061 54 45 44 77 00 00
2585 060062 67 62 57 56 47 00
2586 060063 44 41 64 41 00 46
2587 060064 45 64 43 50 45 44
2588 060065 77 00 00 00 00 00
2589 060066 060000 060053
2590 060067 060017 000001
2591 060070 060062 000000
2592 060071 324000 000021
2593 060072 51 56 44 51 62 45
2594 060073 43 64 00 60 57 51
2595 060074 56 64 45 62 00 41
2596 060075 63 00 63 45 43 64
2597 060076 51 57 56 00 60 57
2598 060077 51 56 64 45 62 00
2599 060100 46 41 51 54 45 44
2600 060101 77 00 00 00 00 00
2601 060102 060000 060072
2602 060103 060017 000001
2603 060104 060062 000000
2604 060105 324003 000021
2605 060106 76 51 56 44 51 62
2606 060107 45 43 64 00 60 57
2607 060110 51 56 64 45 62 00
2608 060111 41 63 00 63 45 43
2609 060112 64 51 57 56 00 60
2610 060113 57 51 56 64 45 62
2611 060114 00 67 51 64 50 00
2612 060115 63 45 43 64 51 57
2613 060116 56 00 57 46 46 63
2614 060117 45 64 00 46 41 51
2615 060120 54 45 44 77 00 00
2616 060121 060000 060106
2617 060122 060017 000001
2618 060123 060062 000000
2619 060124 44 51 44 56 07 64
2620 060125 00 43 41 65 63 45
2621 060126 00 60 41 47 45 00
2622 060127 46 41 51 54 65 62
2623 060130 45 77 00 00 00 00
2624 060131 060000 060106
2625 060132 000000 000000
2626 060133 060124 000000
2627 060134 371003 055021
2628 060135 60 41 47 45 00 46
2629 060136 41 51 54 00 67 57
2630 060137 62 44 00 67 62 57
2631 060140 56 47 77 00 00 00
2632 060141 060000 060106
2633 060142 060134 034500
2634 060143 060135 000000
2635 060144 220600 055021
2636 060145 220600 032305
2637 060146 56 57 56 15 72 45
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1-2
STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0082
2638 060147 62 57 00 51 56 00
2639 060150 21 22 15 21 27 00
2640 060151 57 46 00 63 60 64
2641 060152 77 00 00 00 00 00
2642 060153 060000 060146
2643 060154 000000 032305
2644 060155 060124 000000
2645 060156 060000 060146
2646 060157 060134 034500
2647 060160 060135 000000
2648 060161 72 45 62 57 00 51
2649 060162 56 00 42 51 64 63
2650 060163 00 21 22 15 21 27
2651 060164 00 57 46 00 63 60
2652 060165 64 77 00 00 00 00
2653 060166 60 41 47 45 00 46
2654 060167 41 51 54 65 62 45
2655 060170 00 57 43 43 65 62
2656 060171 62 45 44 00 41 56
2657 060172 71 67 41 71 00 15
2658 060173 00 43 35 60 46 67
2659 060174 00 41 35 60 46 60
2660 060175 43 77 00 00 00 00
2661 060176 060000 060161
2662 060177 034500 034502
2663 060200 060166 000000
2664 060201 060000 060161
2665 060202 060017 000013
2666 060203 060062 000000
2667 060204 63 45 43 64 51 57
2668 060205 56 00 60 64 62 00
2669 060206 46 41 51 54 45 44
2670 060207 77 00 00 00 00 00
2671 060210 60 41 47 45 00 46
2672 060211 41 51 54 00 50 41
2673 060212 60 60 45 56 45 44
2674 060213 00 15 00 43 35 60
2675 060214 46 67 00 41 35 60
2676 060215 46 60 43 77 00 00
2677 060216 060000 060204
2678 060217 034500 034502
2679 060220 060210 000000
2680 060221 67 62 57 56 47 00
2681 060222 44 41 64 41 77 00
2682 060223 060000 060204
2683 060224 060017 000002
2684 060225 060221 000000
2685 060226 63 45 43 64 51 57
2686 060227 56 00 60 57 51 56
2687 060230 64 45 62 00 42 51
2688 060231 64 63 00 20 15 22
2689 060232 00 67 45 62 45 00
2690 060233 72 45 62 57 77 00
2691 060234 56 57 00 60 41 47
2692 060235 45 00 46 41 51 54
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1-3
STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0083
2693 060236 65 62 45 00 50 41
2694 060237 60 60 45 56 45 44
2695 060240 77 00 00 00 00 00
2696 060241 060000 060226
2697 060242 000000 000000
2698 060243 060234 000000
2699 060244 401000 777000
2700 060245 060000 060226
2701 060246 060244 034500
2702 060247 060135 000000
2703 060250 220600 034540
2704 060251 56 57 56 15 20 00
2705 060252 51 56 00 42 51 64
2706 060253 63 00 21 22 15 21
2707 060254 27 00 57 46 00 60
2708 060255 62 51 66 41 64 45
2709 060256 00 63 45 43 64 51
2710 060257 57 56 00 60 57 51
2711 060260 56 64 45 62 77 00
2712 060261 44 51 44 56 07 64
2713 060262 00 43 41 65 63 45
2714 060263 00 41 00 60 41 47
2715 060264 45 00 46 41 51 54
2716 060265 65 62 45 77 00 00
2717 060266 060000 060251
2718 060267 000000 032305
2719 060270 060261 000000
2720 060271 060000 060251
2721 060272 060244 034500
2722 060273 060135 000000
2723 060274 42 51 64 63 00 21
2724 060275 22 15 21 27 35 20
2725 060276 00 51 56 00 60 62
2726 060277 51 66 41 64 45 00
2727 060300 63 45 43 64 51 57
2728 060301 56 00 60 57 51 56
2729 060302 64 45 62 77 00 00
2730 060303 60 41 47 45 00 46
2731 060304 41 51 54 65 62 45
2732 060305 00 15 00 43 35 60
2733 060306 46 67 00 41 35 60
2734 060307 46 60 43 77 00 00
2735 060310 060000 060274
2736 060311 034500 034502
2737 060312 060303 000000
2738 060313 060000 060274
2739 060314 060017 000013
2740 060315 060062 000000
2741 060316 360602 056000
2742 060317 360600 032305
2743 060320 43 63 64 00 42 51
2744 060321 64 63 00 20 15 25
2745 060322 00 35 00 20 77 00
2746 060323 56 57 00 60 41 47
2747 060324 45 00 46 41 51 54
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1-4
STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0084
2748 060325 00 50 41 60 60 45
2749 060326 56 45 44 77 00 00
2750 060327 060000 060320
2751 060330 000000 000000
2752 060331 060323 000000
2753 060332 060000 060320
2754 060333 060244 034500
2755 060334 060135 000000
2756 060335 43 63 64 00 42 51
2757 060336 64 63 00 20 15 25
2758 060337 00 56 57 56 15 20
2759 060340 77 00 00 00 00 00
2760 060341 60 41 47 45 00 46
2761 060342 41 51 54 65 62 45
2762 060343 00 15 00 43 35 43
2763 060344 63 64 00 42 51 64
2764 060345 63 00 41 35 60 46
2765 060346 67 77 00 00 00 00
2766 060347 060000 060335
2767 060350 032305 034500
2768 060351 060341 000000
2769 060352 67 62 57 56 47 00
2770 060353 44 41 64 41 00 46
2771 060354 45 64 43 50 45 44
2772 060355 00 15 00 43 35 43
2773 060356 63 64 00 42 51 64
2774 060357 63 00 41 35 44 41
2775 060360 64 41 77 00 00 00
2776 060361 060000 060335
2777 060362 032305 000003
2778 060363 060352 000000
2779 060364 400000 000017
2780 060365 43 63 64 00 65 60
2781 060366 44 41 64 45 00 46
2782 060367 57 62 00 60 41 47
2783 060370 45 00 64 41 42 54
2784 060371 45 77 00 00 00 00
2785 060372 50 41 60 60 45 56
2786 060373 45 44 00 51 56 43
2787 060374 57 62 62 45 43 64
2788 060375 54 71 77 00 00 00
2789 060376 060000 060365
2790 060377 000014 000004
2791 060400 060372 000000
2792 060401 60 41 47 45 00 60
2793 060402 57 51 56 64 45 62
2794 060403 00 64 71 60 45 00
2795 060404 20 77 00 00 00 00
2796 060405 56 57 00 60 41 47
2797 060406 45 00 46 41 65 54
2798 060407 64 77 00 00 00 00
2799 060410 060000 060401
2800 060411 000000 000000
2801 060412 060405 000000
2802 060413 060000 060401
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1-5
STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0085
2803 060414 060244 034500
2804 060415 060135 000000
2805 060416 224000 000022
2806 060417 63 50 41 62 45 00
2807 060420 60 57 51 56 64 45
2808 060421 62 00 51 56 00 60
2809 060422 41 47 45 00 64 41
2810 060423 42 54 45 00 46 41
2811 060424 51 54 45 44 67 62
2812 060425 57 56 47 00 44 41
2813 060426 64 41 00 46 45 64
2814 060427 43 50 45 44 77 00
2815 060430 060000 060417
2816 060431 060017 000001
2817 060432 060065 000000
2818 060433 67 62 51 64 45 00
2819 060434 64 57 00 65 63 45
2820 060435 62 00 60 41 47 45
2821 060436 77 00 00 00 00 00
2822 060437 63 45 64 72 55 00
2823 060440 46 41 51 54 45 44
2824 060441 77 00 00 00 00 00
2825 060442 060000 060433
2826 060443 060132 036000
2827 060444 060437 000000
2828 060445 205434 121727
2829 060446 65 55 57 66 45 55
2830 060447 17 65 55 57 66 45
2831 060450 00 64 57 00 65 63
2832 060451 45 62 00 60 41 47
2833 060452 45 00 46 41 51 54
2834 060453 45 44 77 00 00 00
2835 060454 060000 060446
2836 060455 060445 000001
2837 060456 060062 000000
2838 060457 324777 000023
2839 060460 51 56 44 51 62 45
2840 060461 43 64 00 60 64 62
2841 060462 00 51 56 00 60 41
2842 060463 47 45 00 64 41 42
2843 060464 54 45 00 46 41 51
2844 060465 54 45 44 77 00 00
2845 060466 060000 060460
2846 060467 060017 000001
2847 060470 060062 000000
2848 060471 777700 000001
2849 060472 220602 000777
2850 060473 42 51 64 63 00 21
2851 060474 22 15 21 27 00 57
2852 060475 46 00 46 51 56 41
2853 060476 54 00 60 64 62 00
2854 060477 67 45 62 45 00 20
2855 060500 77 00 00 00 00 00
2856 060501 060000 060473
2857 060502 060017 000003
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1-6
STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0086
2858 060503 060062 000000
2859 060504 60 41 47 45 00 46
2860 060505 41 51 54 00 15 00
2861 060506 43 35 60 46 67 00
2862 060507 41 35 60 46 60 43
2863 060510 77 00 00 00 00 00
2864 060511 060000 060473
2865 060512 034500 034502
2866 060513 060504 000000
2867 060514 42 51 64 63 00 21
2868 060515 22 15 21 27 00 57
2869 060516 46 00 60 41 47 45
2870 060517 00 60 64 62 00 56
2871 060520 57 56 15 20 77 00
2872 060521 56 57 00 60 41 47
2873 060522 45 00 46 41 51 54
2874 060523 77 00 00 00 00 00
2875 060524 060000 060514
2876 060525 000000 032305
2877 060526 060521 000000
2878 060527 060000 060514
2879 060530 060244 034500
2880 060531 060135 000000
2881 060532 060000 060320
2882 060533 000000 000000
2883 060534 060521 000000
2884 060535 060000 060335
2885 060536 060017 000003
2886 060537 060062 000000
2887 060540 60 41 47 45 00 46
2888 060541 41 51 54 77 00 00
2889 060542 060000 060335
2890 060543 000000 032305
2891 060544 060540 000000
2892 060545 62 45 41 44 00 62
2893 060546 45 46 45 62 45 56
2894 060547 43 45 00 67 51 64
2895 060550 50 00 67 00 42 51
2896 060551 64 00 57 46 46 00
2897 060552 51 56 00 63 45 43
2898 060553 64 51 57 56 00 60
2899 060554 57 51 56 64 45 62
2900 060555 77 00 00 00 00 00
2901 060556 060000 060545
2902 060557 060017 000001
2903 060560 060062 000000
2904 060561 60 41 47 45 00 46
2905 060562 41 51 54 00 57 43
2906 060563 43 65 62 62 45 44
2907 060564 00 15 00 43 35 60
2908 060565 46 67 00 41 35 60
2909 060566 46 60 43 77 00 00
2910 060567 060000 060545
2911 060570 034500 034502
2912 060571 060561 000000
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1-7
STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0087
2913 060572 416 00 0 00 777000
2914 060573 67 62 51 64 45 00
2915 060574 67 51 64 50 00 67
2916 060575 00 42 51 64 00 57
2917 060576 46 46 00 51 56 00
2918 060577 63 45 43 64 51 57
2919 060600 56 00 60 57 51 56
2920 060601 64 45 62 77 00 00
2921 060602 56 57 00 60 41 47
2922 060603 45 00 46 41 51 54
2923 060604 00 57 43 43 65 62
2924 060605 62 45 44 77 00 00
2925 060606 060000 060573
2926 060607 000000 000000
2927 060610 060602 000000
2928 060611 511000 777000
2929 060612 060000 060573
2930 060613 060611 034500
2931 060614 060135 000000
2932 060615 62 45 41 44 00 62
2933 060616 45 46 00 67 51 64
2934 060617 50 00 67 00 42 51
2935 060620 64 00 57 46 46 00
2936 060621 51 56 00 63 45 43
2937 060622 00 60 64 62 77 00
2938 060623 060000 060615
2939 060624 060017 000003
2940 060625 060062 000000
2941 060626 060000 060615
2942 060627 034500 034502
2943 060630 060504 000000
2944 060631 67 62 51 64 45 00
2945 060632 67 51 64 50 00 67
2946 060633 00 42 51 64 00 57
2947 060634 46 46 00 51 56 00
2948 060635 60 41 47 45 00 60
2949 060636 64 62 77 00 00 00
2950 060637 060000 060631
2951 060640 000000 000000
2952 060641 060521 000000
2953 060642 62 45 41 44 00 62
2954 060643 45 46 45 62 45 56
2955 060644 43 45 77 00 00 00
2956 060645 67 62 51 64 64 45
2957 060646 56 00 42 51 64 00
2958 060647 47 57 64 00 63 45
2959 060650 64 77 00 00 00 00
2960 060651 060000 060642
2961 060652 000000 000000
2962 060653 060645 000000
2963 060654 67 62 51 64 45 00
2964 060655 62 45 46 45 62 45
2965 060656 56 43 45 77 00 00
2966 060657 42 23 25 00 57 46
2967 060660 00 43 63 64 00 45
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1-8
STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0088
2968 060661 56 64 62 71 00 44
2969 060662 51 44 56 07 64 00
2970 060663 63 45 64 77 00 00
2971 060664 060000 060654
2972 060665 000000 000000
2973 060666 060657 000000
2974 060667 060000 060365
2975 060670 000014 000004
2976 060671 060100 000000
2977 060672 324001 000003
2978 060673 000001 000000
2979 060674 324000 000003
2980 060675 51 56 43 57 55 60
2981 060676 54 45 64 45 00 51
2982 060677 56 44 51 62 45 43
2983 060700 64 00 43 50 41 51
2984 060701 56 77 00 00 00 00
2985 060702 060000 060675
2986 060703 000000 000000
2987 060704 060521 000000
2988 060705 371010 031000
2989 060706 060000 060675
2990 060707 060705 034500
2991 060710 060135 000000
2992 060711 54 57 56 47 00 51
2993 060712 56 44 51 62 45 43
2994 060713 64 00 63 45 43 64
2995 060714 51 57 56 00 60 64
2996 060715 62 77 00 00 00 00
2997 060716 60 41 47 45 00 46
2998 060717 41 51 54 45 44 00
2999 060720 15 00 43 35 60 46
3000 060721 67 00 41 35 60 46
3001 060722 60 43 77 00 00 00
3002 060723 060000 060711
3003 060724 034500 034502
3004 060725 060716 000000
3005 060726 060000 060711
3006 060727 060017 000001
3007 060730 060062 000000
3008 060731 777777 770000
3009 060732 51 56 44 51 62 45
3010 060733 43 64 00 63 45 43
3011 060734 64 51 57 56 00 60
3012 060735 57 51 56 64 45 62
3013 060736 00 43 50 41 51 56
3014 060737 77 00 00 00 00 00
3015 060740 65 56 45 70 60 45
3016 060741 43 64 45 44 00 64
3017 060742 51 55 45 00 64 57
3018 060743 00 63 43 41 56 00
3019 060744 43 50 41 51 56 77
3020 060745 060000 060732
3021 060746 060731 000001
3022 060747 060740 000000
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1-9
STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0089
3023 060750 264 00 0 00 031654
3024 060751 51 56 44 51 62 45
3025 060752 43 64 00 60 57 51
3026 060753 56 64 45 62 00 43
3027 060754 50 41 51 56 77 00
3028 060755 56 57 00 64 51 55
3029 060756 45 62 00 51 56 64
3030 060757 45 62 62 65 60 64
3031 060760 77 00 00 00 00 00
3032 060761 060000 060751
3033 060762 000000 000000
3034 060763 060755 000000
3035 060764 65 56 45 70 60 45
3036 060765 43 64 45 44 00 51
3037 060766 56 64 45 62 66 41
3038 060767 54 00 64 51 55 45
3039 060770 62 00 51 56 64 45
3040 060771 62 62 65 60 64 77
3041 060772 060000 060751
3042 060773 031650 000001
3043 060774 060764 000000
3044 060775 060000 060675
3045 060776 060244 034500
3046 060777 060135 000000
3047 061000 54 57 56 47 00 51
3048 061001 56 44 51 62 45 43
3049 061002 64 00 60 41 47 45
3050 061003 00 60 57 51 56 64
3051 061004 45 62 00 43 50 41
3052 061005 51 56 77 00 00 00
3053 061006 060000 061000
3054 061007 034500 034502
3055 061010 060504 000000
3056 061011 060000 061000
3057 061012 060017 000001
3058 061013 060062 000000
3059 061014 51 56 44 51 62 45
3060 061015 43 64 00 60 41 47
3061 061016 45 00 60 57 51 56
3062 061017 64 45 62 00 43 50
3063 061020 41 51 56 77 00 00
3064 061021 060000 061014
3065 061022 060731 000001
3066 061023 060740 000000
3067 061024 264 00 0 00 031756
3068 061025 060000 061014
3069 061026 000000 000000
3070 061027 060755 000000
3071 061030 65 56 45 70 60 45
3072 061031 43 64 45 44 00 64
3073 061032 51 55 45 62 00 51
3074 061033 56 64 45 62 65 60
3075 061034 64 77 00 00 00 00
3076 061035 060000 061014
3077 061036 000000 000000
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1-10
STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0090
3078 061037 061030 000000
3079 061040 402 00 0 00 777000
3080 061041 55 45 55 57 62 71
3081 061042 00 62 45 46 45 62
3082 061043 45 56 43 45 77 00
3083 061044 65 56 45 70 60 45
3084 061045 43 64 45 44 00 60
3085 061046 41 47 45 00 46 41
3086 061047 51 54 00 15 00 43
3087 061050 35 60 46 67 00 41
3088 061051 35 60 46 60 43 77
3089 061052 060000 061041
3090 061053 034500 034502
3091 061054 061044 000000
3092 061055 124000 000044
3093 061056 055000 055001
3094 061057 032256 032257
3095 061060 044000 044001
3096 061061 045000 045001
3097 061062 777777 777777
3098 061063 000000 055000
3099 061064 000000 056000
3100 061065 034430 034431
3101 061066 42 41 44 00 55 65
3102 061067 65 57 77 00 00 00
3103 061070 060000 061066
3104 061071 000000 000000
3105 061072 060065 032072
3106 061073 00 64 45 63 64 00
3107 061074 60 43 00 35 00 77
3108 061075 76 00 55 65 65 57
3109 061076 00 35 00 77 00 00
3110 061077 14 00 55 65 65 57
3111 061100 00 60 43 00 35 00
3112 061101 77 00 00 00 00 00
3113 061102 42 41 44 00 60 41
3114 061103 47 45 00 46 41 51
3115 061104 54 77 00 00 00 00
3116 061105 060000 061102
3117 061106 000000 000000
3118 061107 060065 032115
3119 061110 00 64 45 63 64 60
3120 061111 43 00 35 00 77 00
3121 061112 76 00 60 46 67 00
3122 061113 35 00 77 00 00 00
3123 061114 14 00 60 46 60 43
3124 061115 00 35 00 77 00 00
3125 LIST
3126 061341 000000 000000 ENDSLD: 0
3127
3128 IFDEF DEBUG,<
3129 061342 PATCH: BLOCK DEBUG ;PATCHING AREA
3130 >
3131
3132 ;PROGRAM VARIABLES
DSKEC - DECSYSTEM KS10 KL-PAGING DIAGNOSTIC, VER 0,2 MACRO %53A(1152) 14:21 29-Oct-79 Page 1-11
STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0091
3133 061542 VAR
3134
3135 IFDEF PGMEND,<
3136 061545 000000 000000 END: 0
3137 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 061546
CPU TIME USED 00:14.976
64P CORE USED
A 92# 890 896 901 902 909 910 912 915 918 920 923 935 936
938 939 943 945 948 962 963 964 965 967 968 970 971 975 SEQ 0092
977 981 998 999 1000 1002 1003 1005 1006 1012 1017 1021 1067 1102
1103 1126 1127 1141 1162 1163 1200 1204 1206 1220 1285 1293 1296 1302
1336 1348 1354 1359 1362 1381 1394 1395 1396 1403 1420 1421 1423 1424
1428 1430 1433 1444 1445 1446 1449 1460 1461 1463 1464 1466 1469 1472
1473 1476 1477 1481 1483 1486 1498 1505 1507 1516 1546 1559 1565 1568
1574 1593 1605 1606 1607 1615 1617 1620 1657 1658 1659 1661 1662 1667
1705 1707 1709 1711 1713 1719 1734 1738 1755 1756 1757 1759 1764 1769
1772 1789 1803 1804 1806 1810 1812 1819 1820 1833 1853 1854 1862 1865
1872 1876 1877 1879 1882 1885 1891 1892 1909 1911 1914 1917 1920 1921
1922 1925 1926 1938 1939 1941 1945 1954 1974 1975 1983 1986 1995 1999
2000 2002 2005 2008 2012 2013 2033 2035 2041 2044 2045 2046 2050 2051
2054 2098 2102 2103 2107 2109 2114 2115 2118 2119 2122 2123 2142 2144
2145 2155 2156 2157 2158 2162 2163 2173 2174 2175 2239 2321 2323 2328
2330 2332 2333 2337 2339 2340 2349 2351 2352 2353 2355 2359 2366 2368
2369 2370 2372 2376
ABORT 213#
AC 95# 1035 1036 1078 1079 1180 1181 1231 1232 1313 1314 1370 1371 1374
1413 1414 1538 1539 1640 1641 1780 1781 1783 1840 1841 1961 1962
AC0 72#
AC1 73#
AC10 80# 2265 2267 2273 2276
AC11 81# 2267 2268 2270
AC12 82#
AC13 83#
AC14 84#
AC15 85#
AC16 86#
AC2 74#
AC3 75#
AC4 76# 2243 2247 2250 2253 2255 2256 2258 2260 2289 2291 2292 2297
AC5 77# 2251 2258 2291 2293
AC6 78# 2292 2294
AC7 79# 2246 2248 2253 2255 2278
ACCESS 190# 1200 1445 2098 2127 2306 2323
ALOHA 2399#
ALTMGO 563#
AROV 477#
AROVTP 477#
AROVU 477#
AST 678#
ATSIN 679#
B 93# 903 1145 1146 1157 1159 1169 1287 1293 1358 1370 1392 1394 1396
1420 1424 1446 1475 1477 1500 1501 1505 1557 1565 1662 1663 1667 1705
1706 1707 1709 1711 1712 1713 1719 1721 1734 1738 1740 1757 1768 1780
1808 1810 1813 1822 1823 1941 1942 2053 2054 2128 2129 2132 2133 2134
2135 2143 2144 2237 2280 2282 2313 2316 2335 2339
BADPF 2203 2211#
BADPFX 2212 2215#
BADUUO 2177 2180#
BEGEND 559# 875
BEGIN 50 51 52 53 55 56 57 58 59 60 428 429 490# 3137
BEGIN1 506# 560
BELL 682# SEQ 0093
BIS 477#
C 94# 891 897 1300 1330 1333 1356 1360 1364 1377 1450 1513 1514 1519
1522 1572 1583 1585 1673 1675 1678 1717 1766 1770 1774 1786 1825 1847
1900 1944 1945 1947 1968 2023 2127 2130 2134 2137 2138 2319 2327 2340
CACHEB 187# 190 191 192 1204 2102 2130 2137 2310 2328
CCA 477#
CHAIN 233#
CHKM1 2289# 2303
CHKM2 2295 2302#
CHKM3 2291# 2297
CHNOFF 477#
CHNON 477# 2021
CLKU 477#
CLOCKF 545#
CNTLC 562#
CNTRP 477#
COMMA 671#
CONSW 546# 1202 2100 2128 2308 2325
CPOPJ 566#
CPOPJ1 564#
CRLF 363 364 666#
CRLF2 367 368 668#
CRY0 477#
CRY1 477#
CSHFLG 725#
CSHMEM 726#
CST 1293 1358 1370 1565 1711 1713 1719 1734 1738 1768 1780 2144 2151 2527#
CSTINI 2144#
CSTLEN 199# 2142 2527
CTRP 477#
CYCL60 719#
DCK 477#
DDTLNK 247# 504
DDTSRT 504#
DEBUG 47# 3128 3129
DECVER 4# 9 25 525
DF22F 630#
DIAGMN 493#
DING 219#
DOLLAR 685#
DSKUPD 530
EBIT0 477#
EBIT1 477#
EBIT10 477#
EBIT11 477#
EBIT12 477#
EBIT13 477#
EBIT14 477#
EBIT15 477#
EBIT2 477#
EBIT3 477#
EBIT4 477#
EBIT5 477# SEQ 0094
EBIT6 477#
EBIT7 477#
EBIT8 477#
EBIT9 477#
END 3136#
ENDFIX 805#
ENDSLD 3126#
EPT 164 165 1892 2013 2440# 2440
EPTPN 161 162 202 2440#
ERMORE 579#
EROLD 439
ERRPC 550#
ERRTLS 551#
ERSTOP 222#
ESECT 165# 2095 2103 2246 2280 2291 2316
EXCASB 44# 528
EXIOT 477#
FOV 477#
FOVU 477#
FRDLNK 245#
FSELNK 244#
FXU 477#
GOTONE 2284 2300 2306#
HYPEN 676#
INHCSH 230# 1203 2101 2129 2309 2326
INHPAG 227#
INTRVL 1885 1898 2008 2017 2419#
IOCLR 477#
IPAG 1810 1820 1825 1827 1847 1925 1942 1947 1948 1968 2053 2517# 2517
IPAGPN 1803 2517#
ITERAT 48# 523
ITRCH1 583#
ITRCNT 523#
JOB41 477#
JOBAPR 477#
JOBCNI 477#
JOBDDT 477#
JOBFF 477#
JOBOPC 477#
JOBREL 477#
JOBREN 477#
JOBSA 477#
JOBSYM 477#
JOBTPC 477#
JOBUSY 477#
JOBUUO 477#
JOBVER 477#
KAIFLG 540#
KLFLG 541#
KLPAGE 871 2093#
KLPAGF 194# 202
KNTRP 477#
KS10 46# SEQ 0095
KTRP 477#
LACLK 477# 2019
LACLKE 477#
LAPRAL 477#
LAPRP1 477# 1889 2019
LAPRP2 477#
LAPRP3 477#
LAPRP4 477#
LAPRP5 477#
LAPRP6 477#
LAPRP7 477#
LCHNOF 477#
LCHNON 477#
LCNTXT 477#
LCNXER 477#
LCPAER 477#
LCPSFT 477#
LCPWRF 477#
LDATAF 477#
LDLNK 246# 493 495
LDNXER 477#
LDPAER 477#
LDPSFT 477#
LDPWRF 477#
LEBXMH 477#
LEBXML 477#
LENXER 477#
LEPAER 477#
LEPSFT 477#
LEPWRF 477#
LEUPFW 477#
LEXCMP 477#
LFLGCL 477# 2019
LFLGDS 477#
LFLGEN 477# 2019
LFLGST 477#
LFP 680#
LINSTF 477#
LINT 477#
LIOCLR 477#
LK1 2267# 2276
LLACBL 477#
LLDUSB 477#
LMBXMH 477#
LMBXML 477#
LNXMEN 477#
LNXMER 477#
LOOPER 221#
LPAREN 477#
LPARER 477#
LPFWPC 477#
LPGFTR 477#
LPICH1 477# SEQ 0096
LPICH2 477#
LPICH3 477#
LPICH4 477#
LPICH5 477#
LPICH6 477#
LPICH7 477#
LPICHA 477#
LPICLR 477#
LPIIP1 477#
LPIIP2 477#
LPIIP3 477#
LPIIP4 477#
LPIIP5 477#
LPIIP6 477#
LPIIP7 477#
LPIOFF 477#
LPION 477#
LPRCH1 477#
LPRCH2 477#
LPRCH3 477#
LPRCH4 477#
LPRCH5 477#
LPRCH6 477#
LPRCH7 477#
LPRFMH 477#
LPRFML 477#
LPSFT 477#
LPSFTE 477#
LPWRFE 477#
LPWRFL 477#
LREQSE 477#
LRQCLR 477#
LSECMO 477#
LSMODE 477#
LSNXER 477#
LSPAER 477#
LSPSFT 477#
LSPWRF 477#
LTBASH 477#
LTBASL 477#
LTRPAE 477#
LTRPEN 161 477#
LUSCMP 477#
LUUO 477#
LUUO1 610 611
LUUO10 610 615
LUUO11 610 615
LUUO12 610 616
LUUO13 610 616
LUUO14 610 617
LUUO15 610 617
LUUO16 610 618
LUUO17 610 618 SEQ 0097
LUUO2 610 612
LUUO20 610 619
LUUO21 610 619
LUUO22 610 620
LUUO23 610 620
LUUO24 610 621
LUUO25 610 621
LUUO26 610 622
LUUO27 610 622
LUUO3 610 612
LUUO30 610 623
LUUO31 610 623
LUUO32 610 624
LUUO33 610 624
LUUO4 610 613
LUUO5 610 613
LUUO6 610 614
LUUO7 610 614
LUUOI 477#
LWRITE 477#
MADDR 175#
MAP0 2117 2118 2119 2133 2134 2138 2482# 2482
MAP0PN 2098 2482#
MAP1 2121 2122 2123 2486# 2486
MAP1PN 2287 2486#
MAP2 2490# 2490
MAP2PN 2490#
MAP3 2494# 2494
MAP3PN 2494#
MAP4 2498# 2498
MAP4PN 2498#
MAP5 2502# 2502
MAP5PN 2502#
MAP6 2506# 2506
MAP6PN 2506#
MAP7 2511# 2511
MAP7PN 2511#
MAPNEW 631#
MARGIN 553#
MCNVER 3# 9 25 525
MCODE 173# 174 175 2187
MEMLOW 633#
MEMMAP 531
MEMSIZ 634#
MEMTOT 632#
MINFO 176#
MINUS 675#
MODDVC 229#
MODDVL 428 428# 526
MODDVU 429 429# 527
MODLNK 248# 490
MOLDPC 174# 2192
MONCTL 543# SEQ 0098
MONFLG 542#
MONTEN 544#
MONTYP 757#
MPVU 477#
MUUO 477#
MUUOH 2155 2173#
MUUOPC 477#
NDIREC 192# 970 1005 1102 1475 1806 1822 1944
NOPNT 217#
NOQ 2271 2276#
NPAGES 197# 2115 2123 2265 2286 2390
NREMOB 2244 2274 2280#
NXMU 477#
OPRSEL 231#
OPTIME 645#
P 274 275 276 277 477# 565 893 899 1452
P1 890 902 963 999 2451# 2451
P1PN 967 1002 2241 2333 2451#
P2 896 903 2460# 2460
P2PN 2460#
P3 1449 1454 1455 1457 2456# 2456
P3PN 2456#
P4 2476# 2476
P4PN 2476#
P5 2468# 2468
P5PN 2468#
P6 2472# 2472
P6PN 2472#
P7 2464# 2464
P7PN 2464#
PAG 477#
PAGOFF 201# 867 2093
PAGON 202# 907 941 973 1010 1065 1107 1129 1167 1218 1298 1366 1401 1426
1479 1511 1570 1613 1671 1715 1776 1829 1849 1868 1894 1950 1970 1991
2015 2067 2166
PALERS 223#
PAREA1 61# 521
PAREA2 62# 522
PAREA3 63# 519
PAREA4 64# 520
PAREA5 65# 532
PAREA6 66# 533
PAREA7 532#
PAREA8 533#
PARU 477#
PASCNT 547#
PATCH 3129#
PCUBIT 170# 2352 2369
PDISF 642#
PDLOVU 477#
PDOVTP 477#
PERIOD 672#
PFF 1008 1025 1063 1069 1105 1111 1143 1148 1165 1171 1213 1222 1253 1260 SEQ 0099
1291 1305 1321 1399 1405 1509 1525 1533 1563 1577 1588 1611 1623 1630
1634 1669 1681 1687 1691 1831 1835 1851 1856 1952 1956 1972 1977 2065
2073 2202 2412#
PFFLGS 183# 2209
PFH 2162 2202#
PFHA 185# 2163
PFHSPC 996 1057 1139 1211 1289 1398 1503 1561 1609 1665 2069 2205 2206 2413#
PFPC 184# 1116 1153 1265 1528 1627 1684 1859 1980 2076 2208 2227
PFSTRT 499#
PFW 182# 1036 1040 1079 1082 1116 1153 1181 1185 1232 1236 1265 1314 1317
1326 1414 1417 1528 1539 1543 1627 1641 1644 1684 1841 1844 1859 1962
1965 1980 2076 2222
PGMEND 45# 3135
PGMNAM 524 808#
PICHN1 477# 1896 2021
PICHN2 477#
PICHN3 477#
PICHN4 477#
PICHN5 477#
PICHN6 477#
PICHN7 477#
PICHNA 477#
PICLR 477# 869 1989 2010 2021
PIOFF 477# 868 1887 1989 2010
PION 477# 2021
PLIST 711# 711
PLISTE 711 713#
PLISTS 712#
PLUS 677#
PMAPRT 893 899 1452 2237#
PNTENB 641#
PNTEXT 520#
PNTFLG 640#
PNTINH 643#
PNTLPT 218#
PNTNAM 519#
PNTRP 477#
PNTSPC 644#
POFF 162#
POFFST 956# 963 970 994# 999 1005
PON 161#
PREVU 905 2366#
PREVX 2349#
PTLUP 2133# 2135
PTRP 477#
PUSE 2113 2114 2115 2243 2262 2267 2337 2339 2340 2390#
PVPAGI 738#
QUEST 683#
RADIX 686#
RADLSC 688#
RADLSP 687#
RANDBS 521#
REENTR 501# SEQ 0100
RELIAB 225#
REPT 477#
REPT1 477#
REPTU 599#
REQSET 477#
RESDAT 2428#
RESRT1 576#
RESRT2 577#
RETURN 508#
RSTART 214#
RSWPMT 835# 842
RTP 681#
RUNFLG 548#
SADR1 50# 497
SADR10 59# 513
SADR11 60# 514
SADR2 51# 499
SADR3 52# 501
SADR4 53#
SADR5 54# 562
SADR6 55# 563
SADR7 56# 510
SADR8 57# 511
SADR9 58# 512
SAVSPT 965# 965 1126
SBINIT 287 507#
SCOPE 600#
SFSTRT 497#
SHARE 191# 938 1423
SLASH 684#
SM10 788#
SNTRP 477#
SPACE 673#
SPT 936 962 968 998 1003 1059 1078 1082 1100 1421 1444 1473 1804 2107
2108 2109 2150 2523# 2523
SPTPN 2523#
SRTDDT 503#
START 491 842#
START1 510#
START2 511#
START3 512#
START4 513#
START5 514#
STARTA 506 859 867#
STRP 477#
SUBLNK 249# 507
SWPTAB 794# 843
SWTEXR 522#
SYSEXR 495#
T 817# 915 923 948 981 1021 1031 1040 1074 1082 1116 1123 1153 1159
1176 1185 1227 1236 1265 1272 1309 1317 1326 1333 1374 1409 1417 1433
1457 1469 1486 1522 1528 1535 1543 1579 1585 1590 1620 1627 1637 1644
1678 1684 1693 1723 1742 1783 1837 1844 1859 1865 1882 1903 1914 1958 SEQ 0101
1965 1980 1986 2005 2027 2038 2076 2177 2212
T1 97# 1054 1086 1208 1240 1350 1382 1760 1790 2280 2282 2284 2299 2306
2310 2313 2316 2318 2319 2330
T2 98# 1055 1059 1061 1085 1099 1100 1109 1120 1123 1209 1215 1216 1239
1255 1256 1258 1269 1272 1352 1379 1762 1787 2239 2240 2241 2243 2262
2273 2286 2303
T3 99# 892 898 1358 1359 1360 1371 1374 1451 1768 1769 1770 1781 1783
2281 2312 2315 2337
T4 100# 1368 1778 2262 2263 2270 2287 2293 2294 2299 2302
T5 101#
TAB 674#
TESTPC 549# 887 933 960 992 1052 1097 1137 1198 1251 1283 1346 1390 1442
1496 1555 1603 1655 1703 1732 1753 1801 1936 2063 2182 2217
TESTS 873 884#
TICKS 552#
TN0 477#
TN1 477#
TOTALS 215#
TRAP3 164#
TRAPF 195# 202
TRP3TP 477#
TST01 885#
TST01A 909# 916
TST01B 918# 924
TST02 931#
TST02A 941# 949
TST03 958#
TST03A 973# 982
TST04 990#
TST04A 1008# 1022 1032 1041
TST04B 1015 1025#
TST04C 1026 1035#
TST05 1023 1033 1050#
TST05A 1059# 1086
TST05B 1063# 1075 1083
TST05C 1070 1078#
TST05D 1076 1085#
TST06 1095#
TST06A 1105# 1117 1124
TST06B 1112 1120#
TST06C 1118 1126#
TST07 1135#
TST07A 1139# 1154 1160
TST07B 1149 1157#
TST07C 1155 1162#
TST07D 1165# 1177 1186
TST07E 1172 1180#
TST08 1178 1196#
TST08A 1213# 1228 1237 1240
TST08B 1223 1231#
TST08C 1229 1239#
TST09 1249#
TST09A 1253# 1266 1273 SEQ 0102
TST09B 1261 1269#
TST10 1267 1281#
TST10A 1291# 1310 1318 1327 1334 1336
TST10B 1306 1313#
TST10C 1303 1321#
TST10D 1322 1330#
TST10E 1311 1319 1328 1336#
TST11 1344#
TST11A 1352# 1382
TST11B 1358# 1379
TST11C 1366# 1375
TST12 1388#
TST12A 1398# 1410 1418
TST12B 1406 1413#
TST12C 1411 1420#
TST12D 1426# 1434
TST13 1440#
TST13A 1448# 1458 1470
TST13B 1479# 1487
TST14 1494#
TST14A 1505# 1523 1529 1536 1544 1546
TST14B 1517 1533#
TST14C 1531 1546#
TST15 1553#
TST15A 1563# 1580 1586 1591 1593
TST15B 1575 1583#
TST15C 1581 1593#
TST16 1601#
TST16A 1611# 1621 1628
TST16B 1630# 1638 1645
TST17 1653#
TST17A 1669# 1679 1685
TST17B 1687# 1694
TST18 1701#
TST18A 1711# 1724
TST19 1730#
TST19A 1734# 1743
TST20 1751#
TST20A 1762# 1790
TST20B 1768# 1784 1787
TST21 1799#
TST21A 1810# 1813
TST21B 1827# 1838 1845
TST21C 1849# 1860 1866
TST21D 1868# 1883 1904 1915
TST21E 1900# 1911 1914 1917
TST21F 1891 1907# 1909 1918 1920
TST21G 1905 1921 1924#
TST22 1817 1934#
TST22A 1950# 1959 1966
TST22B 1972# 1981 1987
TST22C 1989# 2006 2028 2039
TST22D 2023# 2035 2041 SEQ 0103
TST22E 2012 2031# 2033 2042 2044
TST22F 2029 2045 2048#
TST23 2061#
TST23A 2065# 2077
TTNBRF 732#
TTYFIL 648#
TTYSPD 649#
TWOTMP 1874 1876 1997 1999 2425#
TWOZER 1870 1993 2422#
TXTINH 226#
UBAVEC 477#
UCV117 849# 849 851 858
UIOBIT 168#
ULPTR 180#
UPT 171 173 176 178 180 182 183 184 185 2445# 2445
UPTPN 2431 2445#
UPWD 2165 2342 2357 2374 2431#
USECT 171# 935 939 964 971 1000 1006 1103 1127 1141 1163 1206 1215 1256
1287 1472 1500 1605 1607 1657 1659 1755 1819 1823 1926 1938 2050 2096
2248 2282 2292 2313
USER 539#
USERF 477#
USRASB 529
USRBIT 167#
USRCRF 658#
USRLFF 657#
UUOCOD 2396#
UUODIS 611#
UUOE 2398#
UUOEXT 567#
UUONPC 178# 2156 2157 2158
UUOPC 2397#
UUORTN 568#
UUOSKP 565#
UUOSPC 2406#
UUOSPF 2175 2405#
WRITEB 188# 190 191 192 1606 1658 1663 1706
XCHECK 853# 853 856 1014 1816
XCHSW 38# 855
XTEMP 1061 1074 1216 1227 1295 1296 1326 1333 1506 1507 1535 1567 1568 1590
2429#
$$MUUO 763#
$$OUTE 769#
$$TAX1 781#
$$TAX2 782#
$$TOGG 775#
$$UUO 752#
$ACC0 590#
$BEND1 560#
$BEND2 54 561#
$CHRIN 651#
$CRLF 653#
$DEVCH 477# SEQ 0104
$DSKUP 530#
$DVOFF 647#
$EMODE 528#
$FFF 655#
$IBUF 703#
$INEXT 705#
$INNM 704#
$ITRHL 571#
$ITRX1 572#
$LPAPE 2533
$MMAP 531#
$MODVL 526#
$MODVU 527#
$OBUF 694#
$ONETM 554#
$OUTEX 696#
$OUTNM 695#
$PAPER 477
$PARER 578#
$PNAME 524#
$PSHER 582#
$PVER 525#
$RSRTX 574#
$RSRTY 575#
$SPAG1 594#
$START 491#
$SVAPR 592#
$SVPAG 593#
$SVPI 591#
$SVUPC 597#
$SVUUO 596#
$TABF 654#
$TTCHR 650#
$TWCNT 646#
$TYPNB 652#
$UMODE 529#
$UORTX 569#
$USRHL 573#
$UUOER 570# 611
$VTF 656#
%ACTFL 603#
%ACTUL 604#
%COREC 602#
%CORFL 601#
%DISCR 605#
%ERHI1 744#
%ERHI2 745#
%ERHI3 746#
.JB41 477#
.JBAPR 477#
.JBCNI 477#
.JBDDT 477#
.JBFF 477# SEQ 0105
.JBOPC 477#
.JBREL 477#
.JBREN 477#
.JBSA 477#
.JBSYM 477#
.JBTPC 477#
.JBUSY 477#
.JBUUO 477#
.JBVER 477#
APRID 477# 847
BCIO 477# SEQ 0106
BCIOB 477#
BSIO 477#
BSIOB 477#
CFLUSH 399#
CINVAL 398#
CLOKOP 393#
CLRPT 477#
CWRTBI 400#
DROPDV 360#
ENDUUO 406# 559
EOPUUO 407# 561
ERLOOP 447# 916 924 949 982 1022 1032 1041 1075 1083 1117 1124 1154 1160
1177 1186 1228 1237 1266 1273 1310 1318 1327 1334 1375 1410 1418 1434
1458 1470 1487 1523 1529 1536 1544 1580 1586 1591 1621 1628 1638 1645
1679 1685 1694 1724 1743 1784 1838 1845 1860 1866 1883 1904 1915 1959
1966 1981 1987 2006 2028 2039 2077
ERLP1 448#
ERLP2 449#
ERRHLT 294#
ERROR 456# 913 921 946 978 1018 1028 1037 1072 1080 1114 1121 1151 1158
1174 1182 1225 1233 1263 1270 1308 1315 1324 1331 1372 1408 1415 1431
1456 1467 1484 1520 1526 1534 1540 1578 1584 1589 1618 1624 1635 1642
1676 1682 1692 1722 1741 1782 1836 1842 1857 1863 1880 1902 1912 1957
1963 1978 1984 2003 2025 2036 2074
ERROR1 467# 2177 2211
ERUUO 446# 915 923 948 981 1021 1031 1040 1074 1082 1116 1123 1153 1159
1176 1185 1227 1236 1265 1272 1309 1317 1326 1333 1374 1409 1417 1433
1457 1469 1486 1522 1528 1535 1543 1579 1585 1590 1620 1627 1637 1644
1678 1684 1693 1723 1742 1783 1837 1844 1859 1865 1882 1903 1914 1958
1965 1980 1986 2005 2027 2038 2076 2177 2212
FATAL 293# 2178 2213 2304
FRD36 435#
FRD8 436#
FREAD 434#
FSELEC 433#
GET 277# 2359 2376
GO 274# 871 873 905
HALT 279# 580
JEN 281#
JRSTF 280# 2355 2372
MAPADR 416#
MAPCNK 417#
MAPMEM 413#
MAPPNT 419#
MAPSET 418#
MEMSEG 415#
MEMZRO 414#
MODPCP 426#
MODPCU 425#
MTROP 394#
NAME 7# 9
PAGMAP 124# 889
PBELL 369# SEQ 0107
PCRL 363#
PCRL2 367#
PCRL2F 368#
PCRLF 364# 2195 2230
PFORCE 371#
PGMINT 287# 845
PJRST 278#
PMSG 373# 861
PMSGF 376# 2180 2185 2190 2215 2220 2225
PNT1 329#
PNT11 343#
PNT11F 344#
PNT1F 330#
PNT2 331#
PNT2F 332#
PNT3 333#
PNT3F 334#
PNT4 335#
PNT4F 336#
PNT5 337#
PNT5F 338#
PNT6 339#
PNT6F 340#
PNT7 341#
PNT7F 342#
PNTA 315#
PNTADF 346#
PNTADR 345#
PNTAF 316#
PNTAL 317#
PNTALF 318#
PNTCHF 328#
PNTCHR 327#
PNTCI 325#
PNTCIF 326#
PNTCW 361#
PNTCWF 362#
PNTDCF 354#
PNTDEC 353#
PNTDS 355#
PNTDSF 356#
PNTHW 349#
PNTHWF 350# 2188 2193 2223 2228
PNTMSF 322#
PNTMSG 321#
PNTNM 357#
PNTOCF 352# 2183 2218
PNTOCS 351#
PNTOCT 347#
PNTOTF 348#
PNTSIX 358#
PNTSXF 359#
PSIXL 319# SEQ 0108
PSIXLF 320#
PSIXM 323# 861
PSIXMF 324# 2181 2186 2191 2216 2221 2226
PSP 365#
PSPF 366#
PUT 276# 2173 2349 2366
PXCT 110# 1632 1689 1736 2071
RDAPR 477#
RDCSB 477#
RDCSTM 477#
RDEBR 477#
RDHSB 477#
RDINT 477#
RDIO 477#
RDIOB 477#
RDPI 477#
RDPUR 477#
RDSPB 477#
RDTIM 477#
RDTIME 107# 1874 1997
RDUBR 477#
REPTUO 450#
RTN 275# 567 2081 2167 2196 2231 2343 2360 2377
S 205#
SIXBTZ 382# 817
SUBTST 152# 885 931 958 990 1050 1095 1135 1196 1249 1281 1344 1388 1440
1494 1553 1601 1653 1701 1730 1751 1799 1934 2061
SWITCH 388# 854
TIOE 477#
TIOEB 477#
TION 477#
TIONB 477#
TTALTM 309#
TTICHR 302#
TTICLR 312#
TTICNV 307#
TTIDEC 306#
TTINO 304#
TTIOCT 305#
TTIYES 303#
TTLOOK 308#
TTSIXB 310#
TTYINP 311#
UMOVE 108# 918 943 975 1012 1067 1109 1146 1169 1220 1258 1300 1368 1403
1428 1464 1481 1514 1572 1615 1673 1717 1778 1833 1854 1872 1900 1954
1975 1995 2023
UMOVEM 109# 1461
UPAGMP 134# 895 1448
WRAPR 477# 1889 2019
WRCSB 477# 2151
WRCSTM 477# 1362 1772 2149
WREBR 477# 867 907 941 973 1010 1065 1107 1129 1167 1218 1298 1366 1401
1426 1479 1511 1570 1613 1671 1715 1776 1829 1849 1868 1894 1950 1970 SEQ 0109
1991 2015 2067 2093 2166
WRHSB 477#
WRINT 477# 1898 2017
WRIO 477#
WRIOB 477#
WRPI 477# 868 869 1887 1896 1924 1989 2010 2021 2048
WRPUR 477# 1364 1774
WRSPB 477# 2150
WRTIM 477# 1870 1993
WRUBR 477# 2165 2342 2357 2374
XJRSTF 2209
XMOVEI 2162
.PGE 144# 2437 2442 2448 2453 2458 2462 2466 2470 2474 2479 2484 2488 2492
2496 2500 2504 2508 2514 2520