Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dfkeb.seq
There are no other files named dfkeb.seq in the archive.
;DFKEB
SEQ 0001
IDENTIFICATION
--------------
PRODUCT CODE: AH-7323C-DD
DIAGNOSTIC CODE: DFKEB
PRODUCT NAME: DFKEBC0 KL10 MONITOR UUO AND MODE DIAGNOSTIC
VERSION: 0.3
DATE RELEASED: APRIL 1985
MAINTAINED BY: 36-BIT DIAGNOSTIC ENGINEERING
AUTHOR: JOHN R. KIRCHOFF
COPYRIGHT (C) 1975, 1985
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE
SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUIPMENT
CORPORATION.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
SUPPLIED BY DIGITAL EQUIPMENT CORPORATION.
MAINDEC-10-DFKEB.TXT
PAGE 2 SEQ 0002
TABLE OF CONTENTS
-----------------
1.0 ABSTRACT
2.0 REQUIREMENTS
2.1 EQUIPMENT
2.2 STORAGE
2.3 PRELIMINARY PROGRAMS
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
3.2 STARTING PROCEDURE
3.3 OPERATING PROCEDURE
4.0 DATA SWITCH FUNCTIONS
5.0 ERRORS
6.0 ITERATION COUNTER
7.0 CYCLE TIME
8.0 OPERATIONAL VARIATIONS
9.0 MISCELLANEOUS
10.0 LISTING
MAINDEC-10-DFKEB.TXT
PAGE 3 SEQ 0003
1.0 ABSTRACT
THIS PDP-10 KL10 DIAGNOSTIC TESTS THE MONITOR UUO'S AND
VARIOUS MACHINE MODES. THE DIAGNOSTIC TESTS MUUO'S IN KERNAL,
SUPERVISOR, CONCEALED AND PUBLIC MODES. IT ALSO TESTS THE
MUUO TRAP LOGIC.
2.0 REQUIREMENTS
2.1 EQUIPMENT
A PDP-10 KL10 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY
CONSOLE PROCESSOR
CONSOLE TELETYPE
DECTAPE
LINE PRINTER (OPTIONAL)
2.2 STORAGE
THE PROGRAM RUNS WITHIN 32K OF MEMORY.
2.3 PRELIMINARY PROGRAMS
PREVIOUS PROCESSOR DIAGNOSTICS
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCE DURE
THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM10 SUBROUTINE
PROGRAM BE RESIDENT IN THE PDP-10.
LOAD VIA CONSOLE PROCESSOR OR VIA "DIAMON".
MAINDEC-10-DFKEB.TXT
PAGE 4 SEQ 0004
3.2 STARTING PROCEDURE
A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO
4.0 DATA SWITCH FUNCTIONS).
B. EXEC MODE
STAND-ALONE STARTING ADDRESS IS 30000.
3.3 OPERATING PROCEDURE
A. TO THROUGHLY TEST ALL HARDWARE, ALL TEST CONTROL DATA
SWITCHES SHOULD BE SET TO 0.
B. WHEN DEBUGGING HARDWARE, SET SWITCHES TO 0. ALLOW THE
TELETYPE TO PRINT THE ERROR MESSAGES. THIS ALLOWS THE
PROGRAM TO RUN A COMPLETE PASS AND THEN THE ERROR MESSAGES
MAY BE CORRELATED TO QUICKLY DIAGNOSE THE FAILURE. IF A
HARDWARE PROBLEM IS SUCH THAT THE ERROR MESSAGES, AFTER THE
FIRST ONE, HAVE NO MEANING (FIRST ERROR CAUSES ALL FOLLOWING
TESTS TO FAIL) SET THE LOOP ON ERROR SWITCH AND RESTART THE
TEST FROM THE BEGINNING. THE FIRST FAILURE WILL THEN CAUSE
THE PROGRAM TO ENTER A LOOP SUITABLE FOR SCOPING.
THE ERROR MESSAGE USED IN CONJUNCTION WITH THE LISTING AND
SCOPING IF NECESSARY SHOULD ALLOW THE FAILING CONPONENT
TO BE ISOLATED AND REPLACED AND/OR REPAIRED.
C. WHEN TAKING MARGINS, SET DATA SWITCHES 'NOPNT' AND 'DING'.
THIS WILL INHIBIT PRINTOUT BUT WILL ALLOW THE TELETYPE
BELL TO BE RUNG WHEN A ERROR OCCURS. IF THE MARGIN OBTAINED
IS UNACCEPTABLE, THE OPERATOR MAY REVERT TO STANDARD SWITCH
SETTINGS FOR DEBUGGING PURPOSES.
D. ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING
ERRORS ON THE LINE PRINTER.
E. IN THE EVENT OF A PRINT ROUTINE FAILURE THE 'NOPNT' SWITCH
AND THE 'ERSTOP' SWITCH MAY BE SET TO INHIBIT PRINTOUT
BUT HALT THE PROGRAM POINTING TO THE ERROR.
MAINDEC-10-DFKEB.TXT
PAGE 5 SEQ 0005
4.0 DATA SWITCH FUNCTIONS
SWITCH STATE FUNCTION
------ ----- --------
0 ABORT 0 NORMAL OPERATION
1 ABORT AT END OF PASS
1 RSTART NOT USED
2 TOTALS NOT USED
3 NOPNT 0 NORMAL TYPEOUT
1 INHIBIT ALL PRINT/TYPEOUT
(EXCEPT FORCED)
4 PNTLPT 0 NORMAL OUTPUT TO TTY
1 PRINT ALL DATA ON LPT
(LOGICAL DEVICE, USER MODE)
5 DING 0 NO FUNCTION
1 RING TTY BELL ON ERROR
6 LOOPER 0 PROCEED TO NEXT TEST
1 ENTER SCOPE LOOP ON TEST ERROR
7 ERSTOP 0 NO FUNCTION
1 HALT ON TEST ERROR
8 PALERS 0 PRINT ONLY FIRST ERROR WHEN LOOPING
1 PRINT ALL ERRORS, EVEN IF SAME ERROR
9 RELIAB 0 QUICK VERIFY MODE
1 RELIABILITY MODE
10 TXTINH 0 PRINT FULL ERROR MESSAGES.
1 INHIBIT COMMENT PORTION OF
ERROR MESSAGES.
11 INHPAG NOT USED - PAGING REQUIRED FOR THIS PROGRAM
12 MODDVC NOT USED
13 INHCSH NOT USED - CACHE NOT USED
MAINDEC-10-DFKEB.TXT
PAGE 6 SEQ 0006
5.0 ERRORS
ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THE ERROR
PRINTOUT CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, ERROR
INFORMATION AND APPLICABLE COMMENTS.
THE PC VALUE IS USEFUL IN RELATING THE FAILURE TO THE LISTING.
THE ERROR NUMBER IS PROVIDED SUCH THAT AN ERROR DICTIONARY MAY
BE MADE AT SOME FUTURE DATE.
IF AN AUDIO INDICATION OF A CONTINUING ERROR IS DESIRED
THE 'DING' SWITCH MAY BE SET.
6.0 ITERATION COUNTER
THE ITERATION COUNT OF THE PROGRAM IS PRINTED AFTER THE
FIRST PASS AND THEN EVERY 100 PASSES.
7.0 CYCLE TIME
THE CYCLE TIME OF THE PROGRAM IS IN THE MILLISECOND RANGE AND
IS THEREFORE SUITABLE FOR TAKING MARGINS, VIBRATION TESTS,
ETC.
MAINDEC-10-DFKEB.TXT
PAGE 7 SEQ 0007
8.0 OPERATIONAL VARIATIONS
A. DIAGNOSTIC MONITOR
THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE
RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PROVIDE A
QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR AREA
OF THE PROCESSOR. CERTAIN PROCEDURES ARE USED WHEN THE
PROGRAM IS USED IN THIS MANNER. THEY ARE:
1. THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PROGRAM
AND STARTS IT AT LOCATION 30002.
2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MONITOR
CONTROL WORD.
LH = 0, STAND-ALONE OPERATION
-1, RUNNING UNDER DIAGNOSTIC MONITOR
RH = RIGHT HALF OF CONSOLE SWITCHES IF UNDER
DIAGNOSTIC MONITOR CONTROL.
9.0 MISCELLANEOUS
THE NON-EX-MEMORY AND PARITY STOP SWITCHES SHOULD BE RESET
(0). THESE ERRORS, ILLEGAL UUO'S AND OTHER ERRORS OF THIS
TYPE ARE HANDLED BY PRINTOUT ON THE TELETYPE.
10.0 LISTING
CORPORATION.
SEQ 0008
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
SUPPLIED BY DIGITAL EQUIPMENT CORPORATION.
SEQ 0009
DECSYSTEM KL10 MONITOR UUO AND MODE DIAGNOSTIC
SEQ 0010
MAINDEC-10-DFKEB
VERSION 0.3
AUGUST 1984
HISTORY:
FIXED BUG THAT CAUSE PAGE FAIL ERROR ON 2040. THE DIAGNOSTIC WAS
EXPECTING THE CACHE BIT TO BE PRESENT ON A 2040 SYTEM.
---------------
MAINDEC-10-DFKEB
VERSION 0.2
AUGUST 1976
HISTORY:
UPGRADED DIAGNOSTIC TO INCLUDE THE FOLLOWING ADDITIONAL TESTS:
1. MONITOR UUO SETING EXIOT FLAG
2. TEST IOT'S IN CONCEALED MODE
3. TEST IOT'S IN PUBLIC MODE
4. TEST IOT'S IN SUPERVISOR MODE
5. TEST PROPRIETARY VIOLATION
6. TEST USER MODE ADDRESSING
---------------
VERSION 0.1
MAY 1,1975
HISTORY:
ORIGINAL RELEASE OF THIS PROGRAM FOR THE KL10.
---------------
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3^ DECDOC VER 00.25 4-APR-85 16:30:04 PAGE 1
SEQ 0011
DOCUMENT
**************
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3^
**************
COPYRIGHT 1985
DIGITAL EQUIPMENT CORPORATION
MAYNARD, MASS. 01754
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3^ DECDOC VER 00.25 4-APR-85 16:30:04 PAGE 2
SEQ 0012
TABLE OF CONTENTS
*******************
25 PROGRAM PARAMETERS
59 PROGRAM MACRO'S
105 PROGRAM MACROS AND OPDEFS
155 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
190 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
396 ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979
434 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
762 MONITOR UUO TRAP TESTING
952 TEST MUUO'S IN CONCEALED MODE
1131 PUBLIC TESTING
1481 SUPERVISOR TESTING
1538 TRAP TESTING
1613 FLAG SETTING
2088 TEST IOT'S IN CONCEALED MODE
2155 TEST IOT'S IN PUBLIC MODE
2222 TEST IOT'S IN SUPERVISOR MODE
2312 TEST PROPRIETARY VIOLATION
2436 TEST USER MODE ADDRESSING
2580 SPECIAL PROGRAM SUBROUTINES
2618 *STOR* RESERVED STORAGE, SEPT 18,1979
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3^ DECDOC VER 00.25 4-APR-85 16:30:04 PAGE 3
SEQ 0013
1 MAINDEC-10-DFKEB
18 COPYRIGHT 1975,1984
DIGITAL EQUIPMENT CORP.
MARLBORO, MASS. 01752
22 JOHN R. KIRCHOFF
*****************************************************************
25 PROGRAM PARAMETERS
*****************************************************************
27 DEFINE SUBROUTINE PARAMETERS
38 SPECIAL SUBROUTINE PARAMETERS
*****************************************************************
59 PROGRAM MACRO'S
*****************************************************************
63 TRY TO SET FLAG VIA MONITOR UUO TRAP
TRAPS TO ANY MODE IS OK FOR THIS TEST
*****************************************************************
105 PROGRAM MACROS AND OPDEFS
*****************************************************************
136 SPECIAL PAGE TABLE DEFINITIONS
*****************************************************************
155 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
*****************************************************************
160 DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
*****************************************************************
190 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
*****************************************************************
193 SPECIAL SUBPROGRAM LINKAGES
204 SPECIAL SUBROUTINE FATAL HALTS
USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3^ DECDOC VER 00.25 4-APR-85 16:30:04 PAGE 4
SEQ 0014
*****************************************************************
396 ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979
*****************************************************************
*****************************************************************
434 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
*****************************************************************
*****************************************************************
762 MONITOR UUO TRAP TESTING
*****************************************************************
780 TEST MUUO TRAPPING TO 424(KERNAL NO TRAP)
859 MONITOR UUO TEST - UUO STORE INTO 424
893 MONITOR UUO - STORE CORRECT PC
919 TEST STORING ALL POSSIBLE VALUES OF THE E FIELD WHEN EXECUTING
A MONITOR UUO
*****************************************************************
952 TEST MUUO'S IN CONCEALED MODE
*****************************************************************
954 MONITOR UUO TEST - TRAPPING IN CONCEALED MODE
997 MONITOR UUO TEST - UUO STORE INTO 424
1045 MONITOR UUO - STORING THE CORRECT PC
1084 MUUO STORING THE CORRECT E FIELD
*****************************************************************
1131 PUBLIC TESTING
*****************************************************************
1133 MONITOR UUO TEST - TRAPPING IN PUBLIC MODE
1176 MONITOR UUO TEST - UUO STORE INTO 424
1224 MONITOR UUO TEST - STORING E CORRECTLY
1269 MONITOR UUO - STORING E CORRECTLY
1320 MONITOR UUO TEST - TRAPPING
1364 MONITOR UUO TEST - UUO STORE INTO 424
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3^ DECDOC VER 00.25 4-APR-85 16:30:04 PAGE 5
SEQ 0015
*****************************************************************
1481 SUPERVISOR TESTING
*****************************************************************
1483 SET UP PHYSICAL ADRESSES TO LOOK LIKE ITS RUNNING IN 400000 AND BEYOND
EXECUTE A MUUO IN SUPERVISOR AND EXPECT TO TRAP.
IF WE DON'T TRAP THEN WE EXIT SUPERVISOR WITH A 'JRST 1," TO THE
ERROR ROUTINE
*****************************************************************
1538 TRAP TESTING
*****************************************************************
1540 CAUSE TRAPS VIA JRSTF INSTRUCTION
TRAP WILL CAUSE A MOVEI TO BE EXECUTED PUTING THE TRAP ADDRESS INTO
AC0 WHICH IS THEN CHECKED FOR BEING THE CORRECT TRAP
TRAP RETURN WILL CHECK FOR CORRECT PC STORED IN IN 0
1567 TEST PUSHDOWN LIST OVERFLOW TRAP TO 422
1590 TRAP3 TRAP TEST TRAPPING TO 423
*****************************************************************
1613 FLAG SETTING
*****************************************************************
1617 TRY TO SET USERF VIA MONITOR UUO TRAP
TRAPS TO ANY MODE IS OK FOR THIS TEST
1660 THIS ROUTINE TO BRING US BACK TO KERNAL MODE FROM USER
MODE RESTORE VIA MUUO
1682 TRY TO SET EXIOT VIA MONITOR UUO TRAP
TRAPS TO ANY MODE IS OK FOR THIS TEST
1728 TRY TO SET AROV VIA MONITOR UUO TRAP
TRAPS TO ANY MODE IS OK FOR THIS TEST
1773 TRY TO SET CRY0 VIA MONITOR UUO TRAP
TRAPS TO ANY MODE IS OK FOR THIS TEST
1818 TRY TO SET CRY1 VIA MONITOR UUO TRAP
TRAPS TO ANY MODE IS OK FOR THIS TEST
1863 TRY TO SET FOV VIA MONITOR UUO TRAP
TRAPS TO ANY MODE IS OK FOR THIS TEST
1908 TRY TO SET BIS VIA MONITOR UUO TRAP
TRAPS TO ANY MODE IS OK FOR THIS TEST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3^ DECDOC VER 00.25 4-APR-85 16:30:04 PAGE 6
SEQ 0016
1953 TRY TO SET FXU VIA MONITOR UUO TRAP
TRAPS TO ANY MODE IS OK FOR THIS TEST
1998 TRY TO SET DCK VIA MONITOR UUO TRAP
TRAPS TO ANY MODE IS OK FOR THIS TEST
2044 TRY TO SET CRY0+CRY1+AROV+FOV+FXU+DCK+BIS VIA MONITOR UUO TRAP
TRAPS TO ANY MODE IS OK FOR THIS TEST
*****************************************************************
2088 TEST IOT'S IN CONCEALED MODE
*****************************************************************
*****************************************************************
2155 TEST IOT'S IN PUBLIC MODE
*****************************************************************
*****************************************************************
2222 TEST IOT'S IN SUPERVISOR MODE
*****************************************************************
2298 ILLEGAL USER MODE IOT TABLE
*****************************************************************
2312 TEST PROPRIETARY VIOLATION
*****************************************************************
*****************************************************************
2436 TEST USER MODE ADDRESSING
*****************************************************************
2438 USER MODE PUBLIC - MAXIMUM BLOCK TRANSFER
2507 USER MODE CONCEALED - MAXIMUM BLOCK TRANSFER
*****************************************************************
2580 SPECIAL PROGRAM SUBROUTINES
*****************************************************************
2595 PAGE TABLE SETUP
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3^ DECDOC VER 00.25 4-APR-85 16:30:04 PAGE 7
SEQ 0017
*****************************************************************
2618 *STOR* RESERVED STORAGE, SEPT 18,1979
*****************************************************************
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1
DFKEBT MAC 14-Aug-84 13:17 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979 SEQ 0018
1 ;*MAINDEC-10-DFKEB
2
3
4 000000 MCNVER==000
5 000003 DECVER==003
6
7 XLIST
8 LIST
9 LALL
10
11 NAME \MCNVER,\DECVER^
12
13 TITLE DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3^
14
15 000137 LOC 137
16 000137 000000 000003 MCNVER,,DECVER
17
18 ;*COPYRIGHT 1975,1984
19 ;*DIGITAL EQUIPMENT CORP.
20 ;*MARLBORO, MASS. 01752
21
22 ;*JOHN R. KIRCHOFF
23
24 NOSYM
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 2
DFKEBT MAC 14-Aug-84 13:17 PROGRAM PARAMETERS SEQ 0019
25 SUBTTL PROGRAM PARAMETERS
26
27 ;*DEFINE SUBROUTINE PARAMETERS
28
29 000001 KL10==1
30 000001 KL10P0==1
31 000001 EXCASB==1
32 000001 PGMEND==1
33 000001 ITERAT==1
34 030000 MODDVU==BEGIN
35 030000 MODDVL==BEGIN
36 000100 DEBUG==100
37
38 ;*SPECIAL SUBROUTINE PARAMETERS
39
40 030000 SADR1=BEGIN
41 030000 SADR2=BEGIN
42 030000 SADR3=BEGIN
43 030000 SADR4=BEGIN
44 254000 030000 SADR5=JRST BEGIN
45 254000 030000 SADR6=JRST BEGIN
46 254000 030000 SADR7=JRST BEGIN
47 254000 030000 SADR8=JRST BEGIN
48 254000 030000 SADR9=JRST BEGIN
49 254000 030000 SADR10=JRST BEGIN
50 254000 030000 SADR11=JRST BEGIN
51
52 000000 PAREA0=0
53 000000 PAREA1=0
54 000000 PAREA2=0
55 444653 454200 PAREA3=SIXBIT/DFKEB/
56 645560 000000 PAREA4=SIXBIT/TMP/
57 000000 PAREA5=0
58 000000 PAREA6=0
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 3
DFKEBT MAC 14-Aug-84 13:17 PROGRAM MACRO'S SEQ 0020
59 SUBTTL PROGRAM MACRO'S
60
61 DEFINE FLGTST (FLAG,MSG0,%FLAG0,%FLAG3,%FLAG2),<
62 LALL
63 ;*TRY TO SET FLAG VIA MONITOR UUO TRAP
64 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
65
66 A=1 ;ACTUAL FLAGS AND PC STORED
67 C=[FLAG,,%FLAG3] ;CORRECT FLAGS AND PC
68
69 %FLAG0: CONO PAG,LTRPEN
70 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
71 TNSET
72 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
73 SKIPN [MODE] ;DONT PAGE IF MODE = 0
74 JRST .+3
75 PAGEPN
76 MOVSI 1B21 ;UUO TO DO
77 MOVEM %FLAG2 ;STORE UUO TO DO
78 MOVE [FLAG,,%FLAG3] ;PC AND FLAGS TO RESTORE
79 MOVEM UPMP+LCNTRP
80 MOVEM UPMP+LCTRP
81 MOVEM UPMP+LPNTRP
82 MOVEM UPMP+LPTRP
83 MOVEM UPMP+LSNTRP
84 MOVEM UPMP+LSTRP
85 MOVEM LKNTRP
86 MOVEM LKTRP
87 SETZM UPMP+LMUUO
88 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
89 %FLAG2: 0 ;HERE IS THE UUO
90 ERROR %FLAG0,13,C,A,MUUO DID NOT CAUSE TRAP
91 LALL
92 %FLAG3: JSP 1,.+1 ;GET FLAGS
93 TLNN 1,FLAG ;ARE FLAG(S) SET?
94 ERROR %FLAG0,13,C,A,MSG0
95 >
96 DEFINE SUPEX<
97 LALL
98 ;THIS SECTION PUTS THE PROCESSOR INTO SUPERVISOR MODE.
99 ;PAGE TABLE SETUP
100 MOVSI 740000!<UPMP_-^D9>
101 MOVEM 200 ;STORE PAGE WORD
102 CONO PAG,LTRPEN
103 DATAO PAG,[LLDUSB,,400000]
104 >
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 4
DFKEBT MAC 14-Aug-84 13:17 PROGRAM MACROS AND OPDEFS SEQ 0021
105 SUBTTL PROGRAM MACROS AND OPDEFS
106
107 264000 032760 OPDEF TRPSET [JSR TRAPST]
108
109 700200 200000 OPDEF RESET [CONO APR,200000]
110
111 700000 000000 OPDEF APRID [BLKI APR]
112
113 DEFINE MOVMEM(A,B)<
114 PUT [A]
115 GET B
116 >
117
118 DEFINE PAGECN<
119 SETOM CNSFLG ;INFORM PAGE ROUTINE
120 GO PAGSET ;THAT I WANT CONCEALED MODE
121 >
122 DEFINE PAGEPN<
123 SETZM CNSFLG ;INFORM PAGE ROUTINE
124 GO PAGSET ;THAT I WANT PUBLIC MODE
125 >
126
127 DEFINE TNSET<
128 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
129 MOVEM TESTPC ;INTO TEST
130 >
131
132 036000 IFNDEF UPMP,<UPMP=<END+1000>&777000> ;INSURE THAT THE USER PAGE MAP PAGE
133 ;STARTS AT AN EVEN ADDRESS WICH IS
134 ;A MULTIPLE OF 1K
135
136 ;*SPECIAL PAGE TABLE DEFINITIONS
137
138 000421 AROVTP= 421 ;ARITHMETIC TRAP
139 000422 PDOVTP= 422 ;PUSHDOWN OVERFLOW TRAP
140 000423 TRP3TP= 423 ;TRAP 3 TRAP
141 000424 MUUO= 424 ;MUUO STORAGE
142 000425 MUUOPC= 425 ;MUUO NEW PC
143 000430 KNTRP= 430 ;KERNAL
144 000431 KTRP= 431
145 000432 SNTRP= 432 ;SUPERVISOR
146 000433 STRP= 433
147 000434 CNTRP= 434 ;CONCEALED
148 000435 CTRP= 435
149 000436 PNTRP= 436 ;PUBLIC
150 000437 PTRP= 437
151
152 002000 LIP= 2000 ;PC FLAG, LAST INST PUBLIC
153 000400 TN0= 400 ;PC FLAG, TN 0 BIT
154 000200 TN1= 200 ;PC FLAG, TN 1 BIT
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1
PARAM KLM 18-Sep-79 17:16 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979 SEQ 0022
155 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
156
157 DEFINE S,<; *********************************************************************>
158
159 ; **********************************************************************
160 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
161 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
162 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
163 ; **********************************************************************
164
165 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
166 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
167 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
168
169 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
170 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
171 010000 DING== 010000 ;RING BELL ON ERROR
172
173 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
174 002000 ERSTOP==002000 ;HALT ON TEST ERROR
175 001000 PALERS==001000 ;PRINT ALL ERRORS
176
177 000400 RELIAB==000400 ;RELIABILITY MODE
178 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
179 000100 INHPAG==000100 ;INHIBIT PAGING
180
181 000040 MODDVC==000040 ;MODIFY DEVICE CODE
182 000020 INHCSH==000020 ;INHIBIT CACHE
183 000010 OPRSEL==000010 ;OPERATOR SELECTION
184
185 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
186
187 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER
188
189 ;SWITCH 17 RESERVED !!!
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 2
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0023
190 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
191
192 ; **********************************************************************
193 ;*SPECIAL SUBPROGRAM LINKAGES
194 ; **********************************************************************
195
196 027772 FSELNK= 27772 ;FILE SELECT LINK
197 027773 FRDLNK= 27773 ;FILE READ LINK
198 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
199 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
200 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
201 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
202
203 ; **********************************************************************
204 ;*SPECIAL SUBROUTINE FATAL HALTS
205 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
206 ; **********************************************************************
207
208 ;ADDRESS TAG REASON
209 ;---------------------
210
211 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
212 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
213 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
214 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
215 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL
216 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
217 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
218 ; 1017 EOPERR ;END OF PROGRAM ERROR
219 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
220
221 ; **********************************************************************
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 3
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0024
222 ; **********************************************************************
223 ;OPERATOR DEFINITIONS (NON-UUO'S)
224 ; **********************************************************************
225
226 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
227 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
228 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
229 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
230 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
231 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
232 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
233 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
234
235 ; **********************************************************************
236 ;SUBROUTINE INITIALIZATION CALL
237 ; **********************************************************************
238
239 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
240
241 ; **********************************************************************
242 ;HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
243 ; **********************************************************************
244
245 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
246 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
247
248 ; **********************************************************************
249 ;TERMINAL INPUT UUO'S
250 ;ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
251 ;CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
252 ; **********************************************************************
253
254 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
255 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
256 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
257 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
258 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
259 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
260 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
261 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
262 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
263 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
264 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 4
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0025
265 ;TERMINAL OUTPUT UUO'S.
266
267 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
268 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
269 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
270 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
271 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
272 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
273 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
274 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
275 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
276 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
277 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
278 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
279 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
280 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
281 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
282 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
283 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
284 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
285 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
286 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
287 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
288 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
289 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
290 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
291 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
292 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
293 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
294 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
295 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
296 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
297 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
298 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
299 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
300 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
301 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
302 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
303 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
304 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
305 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
306 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
307 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
308 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 5
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0026
309 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
310 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
311 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
312 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
313 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
314 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
315 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
316 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
317 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
318 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
319 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
320 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
321 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
322
323 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
324
325 DEFINE PMSG (ARG),<
326 PSIXM [SIXBIT\ARG'_\]>
327
328 DEFINE PMSGF (ARG),<
329 PSIXMF [SIXBIT\ARG'_\]>
330
331 ;SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
332 ; CONSERVES CORE OVER ASCIZ
333
334 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
335
336 ;CONSOLE SWITCH INPUT UUO.
337 ;READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
338 ; USER MODE.
339
340 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
341
342 ;CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
343 ;EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
344
345 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK
346 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER
347
348 ;KL10 ONLY CACHE OPERATION UUO'S
349
350 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
351 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
352 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 6
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0027
353 ;END OF PASS/PROGRAM UUOS
354
355 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
356 ;DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
357
358 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
359 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
360
361 ;MEMORY MANAGEMENT UUO'S
362 ;UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
363 ;ADDRESS CONVERSION, ETC...
364
365 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
366 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
367 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
368 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
369 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
370 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
371 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
372
373 ;DEVICE CODE MODIFICATION UUO
374 ;ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
375 ;IOT'S TO A DIFFERENT DEVICE CODE.
376
377 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
378 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
379
380 IFNDEF MODDVL,<MODDVL==BEGIN>
381 IFNDEF MODDVU,<MODDVU==BEGIN>
382
383 ;"DIAMON" FILE SELECTION AND READ UUOS
384
385 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
386 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
387 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
388 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
389
390 ;KI10 ONLY UUO FOR PRINTING MARGIN VALUES
391
392 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE
393
394 XLIST
395 IFNDEF KLOLD,<LIST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 7
PARAM KLM 18-Sep-79 17:16 ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979 SEQ 0028
396 SUBTTL ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979
397
398 ; **********************************************************************
399 ;ERROR HANDLER PARAMETERS
400 ; **********************************************************************
401
402 036000 000000 OPDEF ERUUO [36B8] ;ERROR CALL UUO
403 035000 000000 OPDEF ERLOOP [35B8] ;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
404 035040 000000 OPDEF ERLP1 [35B8!1B12] ;ERROR LOOP IF PC'S MATCH
405 035100 000000 OPDEF ERLP2 [35B8!2B12] ;ERROR LOOP IF ANY ERROR
406 034000 000000 OPDEF REPTUO [34B8] ;REPEAT LOOP UUO
407
408 ;THE ERROR HANDLER MACROS
409
410 ;A MACRO TO REPORT AN ERROR AND LOOP
411
412 DEFINE ERROR (ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
413 SALL
414 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
415 CORECT,,ACTUAL
416 [SIXBIT\D'_\],,ERR]
417 XALL
418 ERLOOP ADR ;IF ERROR, LOOP TO ADR
419 >
420
421 ;A MACRO TO REPORT AN ERROR AND NOT LOOP
422
423 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)<
424 SALL
425 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
426 CORECT,,ACTUAL
427 [SIXBIT\D'_\],,ERR]
428 XALL>
429
430 >;END OF KLOLD CONDITIONAL
431
432 XLIST
433 LIST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0029
434 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
435
436 030000 LOC 30000
437
438 ; **********************************************************************
439 ;PROGRAM STARTING ADDRESSES
440 ;THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
441 ;NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
442 ;OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
443 ;MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
444 ; **********************************************************************
445
446 030000 254 00 04 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
447 030001 254 00 0 00 030614 $START: JRST START ;MODE CHECK STARTING ADDRESS
448
449 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
450
451 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
452
453 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
454
455 030005 254 00 0 00 030000 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
456
457 030006 254 00 0 00 030000 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
458
459 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
460 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
461
462 030010 254 00 0 00 030615 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
463 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
464 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
465
466 030013 254000 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
467 030014 254000 030000 START2: SADR8 ; "
468 030015 254000 030000 START3: SADR9 ; "
469 030016 254000 030000 START4: SADR10 ; "
470 030017 254000 030000 START5: SADR11 ; "
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 2
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0030
471 ; **********************************************************************
472 ;PROGRAM FIXED PARAMETER AREA
473 ; **********************************************************************
474
475 030020 444653 454200 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
476 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
477 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER
478 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
479 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
480 030025 000000 030600 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
481 030026 000000 000003 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
482 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
483 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
484 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
485 030032 000000 000000 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
486 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
487 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
488 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
489 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
490
491 ; **********************************************************************
492 ;PROGRAM VARIABLE PARAMETER AREA
493 ; **********************************************************************
494
495 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
496 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
497 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
498 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
499 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
500 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
501 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
502 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
503 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
504 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
505 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
506 030052 000000 000000 ERRPC: 0 ;ERROR PC
507 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
508 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
509 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
510 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 3
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0031
511 ; **********************************************************************
512 ;SPECIAL PROGRAM DISPATCH ADDRESSES
513 ; **********************************************************************
514
515 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
516 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
517 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
518 030062 254000 030000 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
519 030063 254000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
520 030064 CPOPJ1: ;SKIP RETURN
521 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
522 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
523 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
524 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
525 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
526 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
527 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
528 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
529 030073 255 00 0 00 000000 $USRHL: JFCL ; "
530 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
531 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
532 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
533 030077 255 00 0 00 000000 RESRT2: JFCL ; "
534 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
535 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
536 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
537
538 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
539 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
540 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
541
542 ; **********************************************************************
543 ;PROCESSOR CONTROL STORAGE
544 ; **********************************************************************
545
546 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
547 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
548 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
549 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
550 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
551
552 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
553 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
554
555 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
556 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
557 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
558 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
559 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
560 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
561 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 4
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0032
562 ; **********************************************************************
563 ;UUO DISPATCH TABLE
564 ; **********************************************************************
565 XLIST
566 LIST
567 030124 030070 030070 UUODIS: LUUO1,,$UUOER
568 030125 030070 030070 LUUO3,,LUUO2
569 030126 030070 030070 LUUO5,,LUUO4
570 030127 030070 030070 LUUO7,,LUUO6
571 030130 030070 030070 LUUO11,,LUUO10
572 030131 030070 030070 LUUO13,,LUUO12
573 030132 030070 030070 LUUO15,,LUUO14
574 030133 030070 030070 LUUO17,,LUUO16
575 030134 030070 030070 LUUO21,,LUUO20
576 030135 030070 030070 LUUO23,,LUUO22
577 030136 030070 030070 LUUO25,,LUUO24
578 030137 030070 030070 LUUO27,,LUUO26
579 030140 030070 030070 LUUO31,,LUUO30
580 030141 030070 030070 LUUO33,,LUUO32
581
582 ; **********************************************************************
583 ;MEMORY MANAGMENT STORAGE
584 ; **********************************************************************
585
586 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
587 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
588 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
589 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
590 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
591
592 ; **********************************************************************
593 ;PRINT CONTROL STORAGE
594 ; **********************************************************************
595
596 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
597 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
598 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
599 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
600 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
601 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
602 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
603 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
604 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
605 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
606 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
607 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
608 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
609 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
610 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
611 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
612 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
613 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
614 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 5
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0033
615 ; **********************************************************************
616 ;THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
617 ;TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
618 ; MOVEI NAME
619 ; PNTA ;OR PNTAF
620 ; **********************************************************************
621
622 030242 CRLF: ASCII/
623 030242 015 012 000 000 000 /
624 030243 CRLF2: ASCII/
625
626 030243 015 012 015 012 000 /
627 030244 054 000 000 000 000 COMMA: ASCII/,/
628 030245 056 000 000 000 000 PERIOD: ASCII/./
629 030246 040 000 000 000 000 SPACE: ASCII/ /
630 030247 011 000 000 000 000 TAB: ASCII/ /
631 030250 MINUS:
632 030250 055 000 000 000 000 HYPEN: ASCII/-/
633 030251 053 000 000 000 000 PLUS: ASCII/+/
634 030252 052 000 000 000 000 AST: ASCII/*/
635 030253 100 000 000 000 000 ATSIN: ASCII/@/
636 030254 050 000 000 000 000 LFP: ASCII/(/
637 030255 051 000 000 000 000 RTP: ASCII/)/
638 030256 007 0000000000 BELL: BYTE (7) 007
639 030257 077 000 000 000 000 QUEST: ASCII/?/
640 030260 057 000 000 000 000 SLASH: ASCII!/!
641 030261 044 000 000 000 000 DOLLAR: ASCII/$/
642 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
643 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
644 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
645
646 ; **********************************************************************
647 ;USER MODE OUTPUT FILE INFORMATION
648 ; **********************************************************************
649
650 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
651 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
652 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
653 030272 BLOCK 2
654
655 ; **********************************************************************
656 ;DISK UPDATE MODE FILE INFORMATION
657 ; **********************************************************************
658
659 030274 $IBUF: BLOCK 3
660 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
661 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
662 030301 BLOCK 2
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 6
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0034
663 ; **********************************************************************
664 ;PUSHDOWN LIST CONTROL INFORMATION
665 ; **********************************************************************
666
667 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
668 030304 PLISTS: BLOCK 200
669 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
670
671 ; **********************************************************************
672 ;POWER LINE CLOCK FREQUENCY FLAG
673 ; **********************************************************************
674
675 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
676
677 ; **********************************************************************
678 ;KL10 CACHE CONTROL FLAGS
679 ; **********************************************************************
680
681 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
682 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
683
684 ; **********************************************************************
685 ;NUMBER INPUT DIGIT FLAG
686 ; **********************************************************************
687
688 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
689
690 ; **********************************************************************
691 ;KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
692 ; **********************************************************************
693
694 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
695
696 ; **********************************************************************
697 ;ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
698 ; **********************************************************************
699
700 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
701 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
702 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
703
704 ; **********************************************************************
705 ;SPECIAL USERS UUO INTERCEPT INSTRUCTION
706 ; **********************************************************************
707
708 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 7
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0035
709 ; **********************************************************************
710 ;USER MODE MONITOR TYPE FLAG
711 ; **********************************************************************
712
713 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20
714
715 ; **********************************************************************
716 ;SPECIAL USERS MUUO INTERCEPT INSTRUCTION
717 ; **********************************************************************
718
719 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
720
721 ; **********************************************************************
722 ;SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
723 ; **********************************************************************
724
725 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
726
727 ; **********************************************************************
728 ;"SWITCH" CALL USAGE CONTROL
729 ; **********************************************************************
730
731 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
732
733 ; **********************************************************************
734 ;SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
735 ; **********************************************************************
736
737 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
738 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
739
740 ; **********************************************************************
741 ;SM10 (KS-10) PROCESSOR TYPE FLAG
742 ; **********************************************************************
743
744 030524 000000 000000 SM10: 0 ;IF -1 THIS IS A KS-10
745
746 ; **********************************************************************
747 ;RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
748 ; **********************************************************************
749
750 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
751
752 ; **********************************************************************
753 ;SPECIAL FUTURE EXPANSION ROOM
754 ; **********************************************************************
755
756 ; **********************************************************************
757 ;END OF FIXED STORAGE
758 ; **********************************************************************
759
760 030577 LOC 30577
761 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1
DFKEBM MAC 10-Aug-84 15:18 MONITOR UUO TRAP TESTING SEQ 0036
762 SUBTTL MONITOR UUO TRAP TESTING
763
764 030600 PGMNAM: ASCIZ/
765 030600 015 012 104 105 103 DECSYSTEM KL10 MONITOR UUO AND MODE DIAGNOSTIC (DFKEB)
766 030601 123 131 123 124 105
767 030602 115 040 113 114 061
768 030603 060 040 115 117 116
769 030604 111 124 117 122 040
770 030605 125 125 117 040 101
771 030606 116 104 040 115 117
772 030607 104 105 040 104 111
773 030610 101 107 116 117 123
774 030611 124 111 103 040 050
775 030612 104 106 113 105 102
776 030613 051 015 012 000 000 /
777 030614 265 00 0 00 030011 START: PGMINT
778
779
780 ;*TEST MUUO TRAPPING TO 424(KERNAL NO TRAP)
781
782 SALL
783 033015 T=SIXBTZ MONITOR UUO TEST - TRAPPING IN KERNAL MODE
784 LALL
785 000424 A=MUUO ;DATA STORED
786 030632 C=AXMUUO ;CORRECT DATA
787
788 030615 STARTA=.
789 030615 402 00 0 00 030116 SETZM SCOPE# ;CLEAR SCOPE
790 030616 7 010 20 0 00 020000 CONO PAG,LTRPEN
791 030617 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
792 030620 201 00 0 00 000040 AXMBEG: MOVEI 40 ;SET UP TEST
793 030621 202 00 0 00 035006 MOVEM COUNT# ;COUNTER
794 TNSET^
795 030622 201 00 0 00 030622 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
796 030623 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
797 ^
798 030624 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
799 030625 202 00 0 00 030632 MOVEM AXMUUO ;FOR EXECUTION
800 030626 201 00 0 00 030635 AXMST: MOVEI AXMUPC ;SET UP UUO TRAP PC
801 030627 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP
802 030630 402 00 0 00 000424 SETZM MUUO ;CLEAR UUO TRAP
803 030631 402 00 0 00 000425 SETZM MUUO+1 ;LOCATIONS
804 030632 000000 000000 AXMUUO: 0 ;THIS IS THE UUO
805 ERROR1 13,C,A,MUUO DID NOT TRAP IN KERNAL MODE,C(CORRECT)=MONITOR UUO^
806 SALL
807 030633 036 13 0 00 033040
808 030634 035 02 0 00 030626 ERLP2 AXMST
809 030635 336 00 0 00 035006 AXMUPC: SKIPN COUNT ;DONE 40 UUOS
810 030636 254 00 0 00 030711 JRST AYMBEG ;YES DO NEXT SET
811 030637 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
812 030640 272 00 0 00 030632 ADDM AXMUUO ;ADD IN FOR NEXT UUO
813 030641 370 00 0 00 035006 SOS COUNT ;FIX UP COUNTER
814 030642 254 00 0 00 030626 JRST AXMST ;LOOP
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 2
DFKEBM MAC 10-Aug-84 15:18 MONITOR UUO TRAP TESTING SEQ 0037
815 030655 C=MUUOXA ;CORRECT DATA
816 030643 201 00 0 00 000010 MUU100: MOVEI 10 ;TEST COUNT
817 030644 202 00 0 00 035006 MOVEM COUNT
818 TNSET^
819 030645 201 00 0 00 030645 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
820 030646 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
821 030647 205 00 0 00 100000 MOVSI 1B20 ;FIRST MUUO (100)
822 030650 202 00 0 00 030655 MOVEM MUUOXA ;STORE UUO TO EXECUTE
823 030651 201 00 0 00 030660 MUUSTA: MOVEI MUXPCA ;SET UP UUO TRAP PC
824 030652 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP
825 030653 402 00 0 00 000424 SETZM MUUO ;CLEAR UUO
826 030654 402 00 0 00 000425 SETZM MUUO+1 ;AND NEXT
827 030655 000000 000000 MUUOXA: 0 ;THIS LOC HAS MUUO
828 ERROR1 13,C,A,MUUO DID NOT TRAP IN KERNAL MODE,C(CORRECT)=MUUO ^
829 030656 036 13 0 00 033046
830 030657 035 02 0 00 030651 ERLP2 MUUSTA
831 030660 336 00 0 00 035006 MUXPCA: SKIPN COUNT ;FINISHED
832 030661 254 00 0 00 030666 JRST MUU114 ;DO NEXT TEST SET
833 030662 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
834 030663 272 00 0 00 030655 ADDM MUUOXA ;AND ADD IN TO OLD UUO
835 030664 370 00 0 00 035006 SOS COUNT ;FIX UP COUNT
836 030665 254 00 0 00 030651 JRST MUUSTA ;AND LOOP TEST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 3
DFKEBM MAC 10-Aug-84 15:18 MONITOR UUO TRAP TESTING SEQ 0038
837 030700 C=MUUOXB ;CORRECT DATA
838 030666 201 00 0 00 000004 MUU114: MOVEI 4 ;TEST COUNT
839 030667 202 00 0 00 035006 MOVEM COUNT
840 TNSET^
841 030670 201 00 0 00 030670 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
842 030671 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
843 030672 205 00 0 00 114000 MOVSI 114000 ;FIRST MUUO (114)
844 030673 202 00 0 00 030700 MOVEM MUUOXB ;STORE UUO TO EXECUTE
845 030674 201 00 0 00 030703 MUUSTB: MOVEI MUXPCB ;SET UP UUO TRAP PC
846 030675 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP
847 030676 402 00 0 00 000424 SETZM MUUO ;CLEAR UUO
848 030677 402 00 0 00 000425 SETZM MUUO+1 ;AND NEXT
849 030700 000000 000000 MUUOXB: 0 ;THIS LOC HAS MUUO
850 ERROR1 13,C,A,MUUO DID NOT TRAP IN KERNAL MODE,C(CORRECT)=MUUO ^
851 030701 036 13 0 00 033051
852 030702 035 02 0 00 030674 ERLP2 MUUSTB
853 030703 336 00 0 00 035006 MUXPCB: SKIPN COUNT ;FINISHED
854 030704 254 00 0 00 030666 JRST MUU114 ;DO NEXT TEST SET
855 030705 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
856 030706 272 00 0 00 030655 ADDM MUUOXA ;AND ADD IN TO OLD UUO
857 030707 370 00 0 00 035006 SOS COUNT ;FIX UP COUNT
858 030710 254 00 0 00 030674 JRST MUUSTB ;AND LOOP TEST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 4
DFKEBM MAC 10-Aug-84 15:18 MONITOR UUO TRAP TESTING SEQ 0039
859 ;*MONITOR UUO TEST - UUO STORE INTO 424
860
861 SALL
862 033054 T=SIXBTZ MONITOR UUO TEST - UUO STORE INTO 424
863 LALL
864 000424 A=MUUO ;ACTUAL DATA STORED
865 030723 C=AYMUUO ;CORRECT DATA LOCATION
866
867 030711 201 00 0 00 000040 AYMBEG: MOVEI 40 ;SET UP TEST COUNTER
868 030712 202 00 0 00 035006 MOVEM COUNT
869 TNSET^
870 030713 201 00 0 00 030713 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
871 030714 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
872 ^
873 030715 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
874 030716 202 00 0 00 030723 MOVEM AYMUUO ;FOR EXECUTION
875 030717 201 00 0 00 030725 AYMST: MOVEI AYMUPC ;SET UP UUO TRAP
876 030720 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP
877 030721 402 00 0 00 000424 SETZM MUUO ;CLEAR MUUO TRAP
878 030722 402 00 0 00 000425 SETZM MUUO+1 ;LOCATIONS
879 030723 000000 000000 AYMUUO: 0 ;EXECUTE THIS UUO
880 030724 254 04 0 00 030724 HALT . ;UUO DID NOT TRAP
881 030725 200 00 0 00 000424 AYMUPC: MOVE MUUO ;GET WRITTEN UUO
882 030726 312 00 0 00 030723 CAME AYMUUO ;STORED CORRECTLY?
883 ERROR1 13,C,A,CONTENTS OF 424 IS NOT EQUAL TO EXECUTED UUO,^
884 SALL
885 030727 036 13 0 00 033073
886 030730 035 02 0 00 030717 ERLP2 AYMST
887 030731 336 00 0 00 035006 SKIPN COUNT ;DONE 40 UUO'S
888 030732 254 00 0 00 030737 JRST AZMBEG ;DO NEXT SET
889 030733 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
890 030734 272 00 0 00 030723 ADDM AYMUUO ;ADD IN FOR NEXT UUO
891 030735 370 00 0 00 035006 SOS COUNT ;FIX UUO COUNTER
892 030736 254 00 0 00 030717 JRST AYMST ;LOOP
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 5
DFKEBM MAC 10-Aug-84 15:18 MONITOR UUO TRAP TESTING SEQ 0040
893 ;*MONITOR UUO - STORE CORRECT PC
894
895 SALL
896 033076 T=SIXBTZ MONITOR UUO - STORE CORRECT PC
897 LALL
898 033104 C=[AZMUUO+1] ;CORRECT DATA
899 000001 A=1 ;ACTUAL DATA
900
901 030737 402 00 0 00 000424 AZMBEG: SETZM MUUO ;CLEAR MONITOR UUO
902 030740 402 00 0 00 000425 SETZM MUUO+1 ;TRAP LOCATIONS
903 TNSET^
904 030741 201 00 0 00 030741 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
905 030742 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
906 ^
907 030743 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
908 030744 202 00 0 00 030747 MOVEM AZMUUO ;TO BE EXECUTED
909 030745 201 00 0 00 030751 AZMST: MOVEI AZMUPC ;SET UP TRAP INSTRUCTION
910 030746 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP
911 030747 000000 000000 AZMUUO: 0 ;EXECUTABLE UUO
912 030750 254 04 0 00 030750 HALT . ;SHOULDN'T UUO DID NOT TRAP
913 030751 550 01 0 00 000425 AZMUPC: HRRZ 1,MUUO+1 ;GET THE PC OF THE UUO
914 030752 302 01 0 00 030750 CAIE 1,AZMUUO+1 ;PC+1 OF THE UUO SHOULD BE STORED
915 ERROR1 13,C,A,MUUO DID NOT STORE THE CORRECT PC,C(425) HAS PC STORED^
916 SALL
917 030753 036 13 0 00 033117
918 030754 035 02 0 00 030745 ERLP2 AZMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 6
DFKEBM MAC 10-Aug-84 15:18 MONITOR UUO TRAP TESTING SEQ 0041
919 ;*TEST STORING ALL POSSIBLE VALUES OF THE E FIELD WHEN EXECUTING
920 ;*A MONITOR UUO
921
922 SALL
923 033122 T=SIXBTZ MONITOR UUO - STORE E CORRECTLY
924 LALL
925 000001 A=1 ;ACTUAL DATA
926 000007 C=7 ;CORRECT DATA
927
928 030755 201 07 0 00 001000 AWMBEG: MOVEI 7,1000 ;FIRST E FIELD TO TEST
929 030756 201 00 0 00 030771 AWMST: MOVEI AWMUPC ;SET UP MUUO TRAP INSTUCTION
930 030757 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP
931 TNSET^
932 030760 201 00 0 00 030760 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
933 030761 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
934 ^
935 030762 402 00 0 00 000424 SETZM MUUO ;CLEAR MUUO TRAP LOCATIONS
936 030763 402 00 0 00 000425 SETZM MUUO+1
937 030764 205 00 0 00 040000 MOVSI 1B21 ;SET UP UUO TO EXECUTE
938 030765 202 00 0 00 030767 MOVEM AWMUUO ;AND STORE IT
939 030766 542 07 0 00 030767 HRRM 7,AWMUUO ;AN A NEW PC
940 030767 000000 000000 AWMUUO: 0 ;THIS IS THE UUO
941 030770 254 04 0 00 030770 HALT . ;SHOULD NOT HALT
942 030771 550 00 0 00 000424 AWMUPC: HRRZ MUUO
943 030772 312 00 0 00 000007 CAME 7 ;CORRECT E STORED
944 ERROR1 13,C,A,MUUO DID NOT STORE E CORRECTLY,C(424) HAS E VALUE STORED^
945 SALL
946 030773 036 13 0 00 033143
947 030774 035 02 0 00 030756 ERLP2 AWMST
948 030775 271 07 0 00 001000 ADDI 7,1000 ;NEXT E FIELD
949 030776 603 07 0 00 000001 TLNE 7,1 ;DONE 2^18TH TESTS?
950 030777 254 00 0 00 031001 JRST BXMBEG ;NEXT SET OF TESTS
951 031000 254 00 0 00 030756 JRST AWMST ;LOOP TEST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 7
DFKEBM MAC 10-Aug-84 15:18 TEST MUUO'S IN CONCEALED MODE SEQ 0042
952 SUBTTL TEST MUUO'S IN CONCEALED MODE
953
954 ;*MONITOR UUO TEST - TRAPPING IN CONCEALED MODE
955
956 SALL
957 033146 T=SIXBTZ MONITOR UUO TEST - TRAPPING IN CONCEALED MODE
958 LALL
959 036424 A=UPMP+MUUO ;DATA STORED
960 031022 C=BXMUUO ;CORRECT DATA
961
962 031001 BXMBEG: TNSET^
963 031001 201 00 0 00 031001 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
964 031002 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
965 ^
966 PAGECN^
967 031003 476 00 0 00 035005 SETOM CNSFLG ;INFORM PAGE ROUTINE
968 031004 260 17 0 00 032771 GO PAGSET ;THAT I WANT CONCEALED MODE
969 ^
970 031005 201 00 0 00 000040 MOVEI 40 ;SET UP TEST
971 031006 202 00 0 00 035006 MOVEM COUNT# ;COUNTER
972 031007 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
973 031010 202 00 0 00 031022 MOVEM BXMUUO ;FOR EXECUTION
974 031011 260 17 0 00 033000 BXMST: GO PAGE1
975 031012 201 00 0 00 031025 MOVEI BXMUPC ;SET UP UUO TRAP PC
976 031013 202 00 0 00 036434 MOVEM UPMP+CNTRP ;INTO CONCEALED NO TRAP
977 031014 201 00 0 00 031033 MOVEI BXERR ;SET WRONG TRAP ERROR
978 031015 202 00 0 00 036430 MOVEM UPMP+KNTRP
979 031016 202 00 0 00 036436 MOVEM UPMP+PNTRP
980 031017 202 00 0 00 036432 MOVEM UPMP+SNTRP
981 031020 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR UUO TRAP
982 031021 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;LOCATIONS
983 031022 000000 000000 BXMUUO: 0 ;THIS IS THE UUO
984 ERROR1 13,C,A,MUUO DID NOT TRAP IN CONCEALED MODE,C(CORRECT)=MONITOR UUO^
985 SALL
986 031023 036 13 0 00 033164
987 031024 035 02 0 00 031011 ERLP2 BXMST
988 031025 336 00 0 00 035006 BXMUPC: SKIPN COUNT ;DONE 40 UUOS
989 031026 254 00 0 00 031035 JRST BYMBEG ;YES DO NEXT SET
990 031027 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
991 031030 272 00 0 00 031022 ADDM BXMUUO ;ADD IN FOR NEXT UUO
992 031031 370 00 0 00 035006 SOS COUNT ;FIX UP COUNTER
993 031032 254 00 0 00 031011 JRST BXMST ;LOOP
994 031033 BXERR: ERROR1 13,C,A,MUUO TRAPPED TO INCORRECT TRAP LOCATION,^
995 031033 036 13 0 00 033176
996 031034 035 02 0 00 031011 ERLP2 BXMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 8
DFKEBM MAC 10-Aug-84 15:18 TEST MUUO'S IN CONCEALED MODE SEQ 0043
997 ;*MONITOR UUO TEST - UUO STORE INTO 424
998
999 SALL
1000 033054 T=SIXBTZ MONITOR UUO TEST - UUO STORE INTO 424
1001 LALL
1002 036424 A=UPMP+MUUO ;ACTUAL DATA STORED
1003 031056 C=BYMUUO ;CORRECT DATA LOCATION
1004
1005 031035 BYMBEG: PAGECN^
1006 031035 476 00 0 00 035005 SETOM CNSFLG ;INFORM PAGE ROUTINE
1007 031036 260 17 0 00 032771 GO PAGSET ;THAT I WANT CONCEALED MODE
1008 ^
1009 031037 201 00 0 00 000040 MOVEI 40 ;SET UP TEST COUNTER
1010 031040 202 00 0 00 035006 MOVEM COUNT
1011 TNSET^
1012 031041 201 00 0 00 031041 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1013 031042 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1014 ^
1015 031043 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
1016 031044 202 00 0 00 031056 MOVEM BYMUUO ;FOR EXECUTION
1017 031045 260 17 0 00 033000 BYMST: GO PAGE1
1018 031046 201 00 0 00 031061 MOVEI BYMUPC ;SET UP UUO TRAP
1019 031047 202 00 0 00 036434 MOVEM UPMP+CNTRP ;INTO CONCEALED NO TRAP
1020 031050 201 00 0 00 031073 MOVEI BYERR ;IN CASE WE GO TO THE WRONG TRAP
1021 031051 202 00 0 00 036430 MOVEM UPMP+KNTRP
1022 031052 202 00 0 00 036432 MOVEM UPMP+SNTRP
1023 031053 202 00 0 00 036436 MOVEM UPMP+PNTRP ;SET UP THE OTHER TRAP LOCATIONS
1024 031054 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO TRAP
1025 031055 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;LOCATIONS
1026 031056 000000 000000 BYMUUO: 0 ;EXECUTE THIS UUO
1027 ERROR1 13,C,A,MUUO DID NOT TRAP,^
1028 SALL
1029 031057 036 13 0 00 033204
1030 031060 035 02 0 00 031045 ERLP2 BYMST
1031 031061 200 00 0 00 036424 BYMUPC: MOVE UPMP+MUUO ;GET WRITTEN UUO
1032 031062 312 00 0 00 031056 CAME BYMUUO ;STORED CORRECTLY?
1033 ERROR1 13,C,A,CONTENTS OF 424 IS NOT EQUAL TO EXECUTED UUO,^
1034 031063 036 13 0 00 033207
1035 031064 035 02 0 00 031045 ERLP2 BYMST
1036 031065 336 00 0 00 035006 SKIPN COUNT ;DONE 40 UUO'S
1037 031066 254 00 0 00 031075 JRST BZMBEG ;DO NEXT SET
1038 031067 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
1039 031070 272 00 0 00 031056 ADDM BYMUUO ;ADD IN FOR NEXT UUO
1040 031071 370 00 0 00 035006 SOS COUNT ;FIX UUO COUNTER
1041 031072 254 00 0 00 031045 JRST BYMST ;LOOP
1042 031073 BYERR: ERROR1 13,C,A,MUUO TRAPED TO INCORRECT TRAP LOCATION,^
1043 031073 036 13 0 00 033221
1044 031074 035 02 0 00 031045 ERLP2 BYMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 9
DFKEBM MAC 10-Aug-84 15:18 TEST MUUO'S IN CONCEALED MODE SEQ 0044
1045 ;*MONITOR UUO - STORING THE CORRECT PC
1046
1047 SALL
1048 033224 T=SIXBTZ MONITOR UUO - STORING THE CORRECT PC
1049 LALL
1050 033233 C=[BZMUUO+1] ;CORRECT DATA
1051 000001 A=1 ;ACTUAL DATA
1052
1053 031075 BZMBEG: TNSET^
1054 031075 201 00 0 00 031075 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1055 031076 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1056 ^
1057 PAGECN^
1058 031077 476 00 0 00 035005 SETOM CNSFLG ;INFORM PAGE ROUTINE
1059 031100 260 17 0 00 032771 GO PAGSET ;THAT I WANT CONCEALED MODE
1060 ^
1061 031101 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MONITOR UUO
1062 031102 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;TRAP LOCATIONS
1063 031103 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
1064 031104 202 00 0 00 031114 MOVEM BZMUUO ;TO BE EXECUTED
1065 031105 260 17 0 00 033000 BZMST: GO PAGE1
1066 031106 201 00 0 00 031116 MOVEI BZMUPC ;SET UP TRAP INSTRUCTION
1067 031107 202 00 0 00 036434 MOVEM UPMP+CNTRP ;INTO CONCEALED NO TRAP
1068 031110 201 00 0 00 031123 MOVEI BZERR ;SET UP TRAP FOR INCORRECT TRAP
1069 031111 202 00 0 00 036430 MOVEM UPMP+KNTRP ;INTO KERNAL NO TRAP
1070 031112 202 00 0 00 036432 MOVEM UPMP+SNTRP
1071 031113 202 00 0 00 036436 MOVEM UPMP+PNTRP
1072 031114 000000 000000 BZMUUO: 0 ;EXECUTABLE UUO
1073 031115 254 04 0 00 031115 HALT . ;SHOULDN'T UUO DID NOT TRAP
1074 031116 550 01 0 00 036425 BZMUPC: HRRZ 1,UPMP+MUUO+1 ;GET THE PC OF THE UUO
1075 031117 302 01 0 00 031115 CAIE 1,BZMUUO+1 ;PC+1 OF THE UUO SHOULD BE STORED
1076 ERROR1 13,C,A,MUUO DID NOT STORE THE CORRECT PC,^
1077 SALL
1078 031120 036 13 0 00 033234
1079 031121 035 02 0 00 031105 ERLP2 BZMST
1080 031122 254 00 0 00 031125 JRST BWMBEG ;GO TO NEXT SET
1081 031123 BZERR: ERROR1 13,C,A,MUUO DID NOT TRAP TO CORRECT TRAP,^
1082 031123 036 13 0 00 033245
1083 031124 035 02 0 00 031105 ERLP2 BZMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 10
DFKEBM MAC 10-Aug-84 15:18 TEST MUUO'S IN CONCEALED MODE SEQ 0045
1084 ;*MUUO STORING THE CORRECT E FIELD
1085
1086 SALL
1087 033250 T=SIXBTZ MUUO STORING THE CORRECT E FIELD
1088 LALL
1089 000001 A=1 ;ACTUAL DATA
1090 000007 C=7 ;CORRECT DATA
1091
1092 031125 BWMBEG: PAGECN^
1093 031125 476 00 0 00 035005 SETOM CNSFLG ;INFORM PAGE ROUTINE
1094 031126 260 17 0 00 032771 GO PAGSET ;THAT I WANT CONCEALED MODE
1095 ^
1096 TNSET^
1097 031127 201 00 0 00 031127 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1098 031130 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1099 ^
1100 031131 201 07 0 00 001000 MOVEI 7,1000 ;FIRST E FEILD TO TEST
1101 031132 260 17 0 00 033000 BWMST: GO PAGE1
1102 031133 201 00 0 00 031151 MOVEI BWMUPC ;SET UP MUUO TRAP INSTUCTION
1103 031134 202 00 0 00 036434 MOVEM UPMP+CNTRP ;INTO CONCEALED NO TRAP
1104 031135 201 00 0 00 031162 MOVEI BWERR ;SET UP FOR INCORRECT TRAP
1105 031136 202 00 0 00 036436 MOVEM UPMP+PNTRP
1106 031137 202 00 0 00 036432 MOVEM UPMP+SNTRP
1107 031140 202 00 0 00 036430 MOVEM UPMP+KNTRP
1108 031141 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO TRAP LOCATIONS
1109 031142 402 00 0 00 036425 SETZM UPMP+MUUO+1
1110 031143 205 00 0 00 040000 MOVSI 1B21 ;SET UP UUO TO EXECUTE
1111 031144 202 00 0 00 031146 MOVEM BWMUUO ;AND STORE IT
1112 031145 542 07 0 00 031146 HRRM 7,BWMUUO ;AN A NEW PC
1113 031146 000000 000000 BWMUUO: 0 ;THIS IS THE UUO
1114 ERROR1 13,C,A,MUUO DID NOT TRAP IN CONCEALED,^
1115 SALL
1116 031147 036 13 0 00 033264
1117 031150 035 02 0 00 031132 ERLP2 BWMST
1118 031151 550 00 0 00 036424 BWMUPC: HRRZ UPMP+MUUO
1119 031152 312 00 0 00 000007 CAME 7 ;CORRECT E STORED
1120 ERROR1 13,C,A,MUUO DID NOT STORE E CORRECTLY,^
1121 031153 036 13 0 00 033267
1122 031154 035 02 0 00 031132 ERLP2 BWMST
1123 031155 271 07 0 00 001000 ADDI 7,1000 ;NEXT E FIELD
1124 031156 603 07 0 00 000001 TLNE 7,1 ;DONE 2^18TH TESTS?
1125 031157 254 00 0 00 031164 JRST CXMBEG ;NEXT SET
1126 031160 254 00 0 00 031132 JRST BWMST ;LOOP TEST
1127 031161 254 00 0 00 031164 JRST CXMBEG ;GO TO NEXT SET
1128 031162 BWERR: ERROR1 13,C,A,MUUO DID NOT TRAP TO CORRECT TRAP,^
1129 031162 036 13 0 00 033272
1130 031163 035 02 0 00 031132 ERLP2 BWMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 11
DFKEBM MAC 10-Aug-84 15:18 PUBLIC TESTING SEQ 0046
1131 SUBTTL PUBLIC TESTING
1132
1133 ;*MONITOR UUO TEST - TRAPPING IN PUBLIC MODE
1134
1135 SALL
1136 033275 T=SIXBTZ MONITOR UUO TEST - TRAPPING IN PUBLIC MODE
1137 LALL
1138 036424 A=UPMP+MUUO ;DATA STORED
1139 031205 C=CXMUUO ;CORRECT DATA
1140
1141 031164 CXMBEG: PAGEPN^
1142 031164 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1143 031165 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1144 ^
1145 031166 201 00 0 00 000040 MOVEI 40 ;SET UP TEST
1146 031167 202 00 0 00 035006 MOVEM COUNT# ;COUNTER
1147 TNSET^
1148 031170 201 00 0 00 031170 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1149 031171 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1150 ^
1151 031172 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
1152 031173 202 00 0 00 031205 MOVEM CXMUUO ;FOR EXECUTION
1153 031174 260 17 0 00 033000 CXMST: GO PAGE1
1154 031175 201 00 0 00 031210 MOVEI CXMUPC ;SET UP UUO TRAP PC
1155 031176 202 00 0 00 036436 MOVEM UPMP+PNTRP ;INTO PUBLIC NO TRAP
1156 031177 201 00 0 00 031216 MOVEI CXERR ;SET UP FOR INCORRECT TRAP
1157 031200 202 00 0 00 036430 MOVEM UPMP+KNTRP
1158 031201 202 00 0 00 036432 MOVEM UPMP+SNTRP
1159 031202 202 00 0 00 036434 MOVEM UPMP+CNTRP
1160 031203 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR UUO TRAP
1161 031204 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;LOCATIONS
1162 031205 000000 000000 CXMUUO: 0 ;THIS IS THE UUO
1163 ERROR1 13,C,A,MUUO DID NOT TRAP IN PUBLIC,C(CORRECT)=MONITOR UUO^
1164 SALL
1165 031206 036 13 0 00 033312
1166 031207 035 02 0 00 031174 ERLP2 CXMST
1167 031210 336 00 0 00 035006 CXMUPC: SKIPN COUNT ;DONE 40 UUOS
1168 031211 254 00 0 00 031220 JRST CYMBEG ;YES DO NEXT SET
1169 031212 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
1170 031213 272 00 0 00 031205 ADDM CXMUUO ;ADD IN FOR NEXT UUO
1171 031214 370 00 0 00 035006 SOS COUNT ;FIX UP COUNTER
1172 031215 254 00 0 00 031174 JRST CXMST ;LOOP
1173 031216 CXERR: ERROR1 13,C,A,MUUO DID NOT TRAP TO PUBLIC NO TRAP,^
1174 031216 036 13 0 00 033323
1175 031217 035 02 0 00 031174 ERLP2 CXMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 12
DFKEBM MAC 10-Aug-84 15:18 PUBLIC TESTING SEQ 0047
1176 ;*MONITOR UUO TEST - UUO STORE INTO 424
1177
1178 SALL
1179 033054 T=SIXBTZ MONITOR UUO TEST - UUO STORE INTO 424
1180 LALL
1181 036424 A=UPMP+MUUO ;ACTUAL DATA STORED
1182 031241 C=CYMUUO ;CORRECT DATA LOCATION
1183
1184 031220 CYMBEG: PAGEPN^
1185 031220 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1186 031221 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1187 ^
1188 031222 201 00 0 00 000040 MOVEI 40 ;SET UP TEST COUNTER
1189 031223 202 00 0 00 035006 MOVEM COUNT
1190 TNSET^
1191 031224 201 00 0 00 031224 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1192 031225 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1193 ^
1194 031226 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
1195 031227 202 00 0 00 031241 MOVEM CYMUUO ;FOR EXECUTION
1196 031230 260 17 0 00 033000 CYMST: GO PAGE1
1197 031231 201 00 0 00 031244 MOVEI CYMUPC ;SET UP UUO TRAP
1198 031232 202 00 0 00 036436 MOVEM UPMP+PNTRP ;INTO PUBLIC NO TRAP
1199 031233 201 00 0 00 031256 MOVEI CYERR ;SET UP FOR INCORECT TRAP
1200 031234 202 00 0 00 036430 MOVEM UPMP+KNTRP
1201 031235 202 00 0 00 036432 MOVEM UPMP+SNTRP
1202 031236 202 00 0 00 036434 MOVEM UPMP+CNTRP
1203 031237 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO TRAP
1204 031240 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;LOCATIONS
1205 031241 000000 000000 CYMUUO: 0 ;EXECUTE THIS UUO
1206 ERROR1 13,C,A,MUUO DID NOT TRAP IN PUBLIC MODE,^
1207 SALL
1208 031242 036 13 0 00 033334
1209 031243 035 02 0 00 031230 ERLP2 CYMST
1210 031244 200 00 0 00 036424 CYMUPC: MOVE UPMP+MUUO ;GET WRITTEN UUO
1211 031245 312 00 0 00 031241 CAME CYMUUO ;STORED CORRECTLY?
1212 ERROR1 13,C,A,CONTENTS OF 424 IS NOT EQUAL TO EXECUTED UUO,^
1213 031246 036 13 0 00 033337
1214 031247 035 02 0 00 031230 ERLP2 CYMST
1215 031250 336 00 0 00 035006 SKIPN COUNT ;DONE 40 UUO'S
1216 031251 254 00 0 00 031260 JRST CZMBEG ;DO NEXT SET
1217 031252 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
1218 031253 272 00 0 00 031241 ADDM CYMUUO ;ADD IN FOR NEXT UUO
1219 031254 370 00 0 00 035006 SOS COUNT ;FIX UUO COUNTER
1220 031255 254 00 0 00 031230 JRST CYMST ;LOOP
1221 031256 CYERR: ERROR1 13,C,A,MUUO DID NOT TRAP TO PUBLIC TRAP,^
1222 031256 036 13 0 00 033350
1223 031257 035 02 0 00 031220 ERLP2 CYMBEG
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 13
DFKEBM MAC 10-Aug-84 15:18 PUBLIC TESTING SEQ 0048
1224 ;*MONITOR UUO TEST - STORING E CORRECTLY
1225
1226 SALL
1227 033353 T=SIXBTZ MONITOR UUO - STORING E CORRECTLY
1228 LALL
1229 033361 C=[CZMUUO+1] ;CORRECT DATA
1230 000000 A=0 ;ACTUAL DATA
1231
1232 031260 CZMBEG: PAGEPN^
1233 031260 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1234 031261 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1235 ^
1236 031262 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MONITOR UUO
1237 031263 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;TRAP LOCATIONS
1238 TNSET^
1239 031264 201 00 0 00 031264 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1240 031265 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1241 ^
1242 031266 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
1243 031267 202 00 0 00 031301 MOVEM CZMUUO ;TO BE EXECUTED
1244 031270 260 17 0 00 033000 CZMST: GO PAGE1
1245 031271 201 00 0 00 031304 MOVEI CZMUPC ;SET UP TRAP INSTRUCTION
1246 031272 202 00 0 00 036436 MOVEM UPMP+PNTRP
1247 031273 201 00 0 00 031311 MOVEI CZERR ;SET UP FOR INCORRECT TRAP
1248 031274 202 00 0 00 036434 MOVEM UPMP+CNTRP
1249 031275 202 00 0 00 036432 MOVEM UPMP+SNTRP
1250 031276 202 00 0 00 036430 MOVEM UPMP+KNTRP
1251 PAGEPN^
1252 031277 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1253 031300 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1254 ^
1255 031301 000000 000000 CZMUUO: 0 ;EXECUTABLE UUO
1256 ERROR1 13,C,A,MUUO DID NOT TRAP IN PUBLIC,^
1257 SALL
1258 031302 036 13 0 00 033362
1259 031303 035 02 0 00 031270 ERLP2 CZMST
1260 031304 550 00 0 00 036425 CZMUPC: HRRZ 0,UPMP+MUUO+1 ;GET THE PC OF THE UUO
1261 031305 302 00 0 00 031302 CAIE CZMUUO+1 ;PC+1 OF THE UUO SHOULD BE STORED
1262 ERROR1 13,C,A,MUUO DID NOT STORE THE CORRECT PC,^
1263 031306 036 13 0 00 033365
1264 031307 035 02 0 00 031270 ERLP2 CZMST
1265 031310 254 00 0 00 031313 JRST CWMBEG ;GO TO NEXT SET
1266 031311 CZERR: ERROR1 13,C,A,MUUO DID NOT TRAP TO PUBLIC,^
1267 031311 036 13 0 00 033375
1268 031312 035 02 0 00 031260 ERLP2 CZMBEG
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 14
DFKEBM MAC 10-Aug-84 15:18 PUBLIC TESTING SEQ 0049
1269 ;*MONITOR UUO - STORING E CORRECTLY
1270
1271 SALL
1272 033250 T=SIXBTZ MUUO STORING THE CORRECT E FIELD
1273 LALL
1274 000001 A=1 ;ACTUAL DATA
1275 000007 C=7 ;CORRECT DATA
1276
1277 031313 CWMBEG: PAGEPN^
1278 031313 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1279 031314 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1280 ^
1281 TNSET^
1282 031315 201 00 0 00 031315 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1283 031316 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1284 ^
1285 031317 201 07 0 00 001000 MOVEI 7,1000 ;FIRST E FEILD TO TEST
1286 031320 260 17 0 00 033000 CWMST: GO PAGE1
1287 031321 201 00 0 00 031341 MOVEI CWMUPC ;SET UP MUUO TRAP INSTUCTION
1288 031322 202 00 0 00 036436 MOVEM UPMP+PNTRP ;INTO PUBLIC NO TRAP
1289 031323 201 00 0 00 031352 MOVEI CWERR ;SET UP FOR INCORRECT TRAP
1290 031324 202 00 0 00 036432 MOVEM UPMP+SNTRP
1291 031325 202 00 0 00 036434 MOVEM UPMP+CNTRP
1292 031326 202 00 0 00 036430 MOVEM UPMP+KNTRP
1293 031327 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO TRAP LOCATIONS
1294 031330 402 00 0 00 036425 SETZM UPMP+MUUO+1
1295 031331 205 00 0 00 040000 MOVSI 1B21 ;SET UP UUO TO EXECUTE
1296 031332 202 00 0 00 031336 MOVEM CWMUUO ;AND STORE IT
1297 031333 542 07 0 00 031336 HRRM 7,CWMUUO ;AN A NEW PC
1298 PAGEPN^
1299 031334 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1300 031335 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1301 ^
1302 031336 000000 000000 CWMUUO: 0 ;THIS IS THE UUO
1303 ERROR1 13,C,A,MUUO DID NOT TRAP IN PUBLIC,^
1304 SALL
1305 031337 036 13 0 00 033400
1306 031340 035 02 0 00 031320 ERLP2 CWMST
1307 031341 550 00 0 00 036424 CWMUPC: HRRZ UPMP+MUUO
1308 031342 312 00 0 00 000007 CAME 7 ;CORRECT E STORED
1309 ERROR1 13,C,A,MUUO DID NOT STORE E CORRECTLY,^
1310 031343 036 13 0 00 033267
1311 031344 035 02 0 00 031320 ERLP2 CWMST
1312 031345 271 07 0 00 001000 ADDI 7,1000 ;NEXT E FIELD
1313 031346 603 07 0 00 000001 TLNE 7,1 ;DONE 2^18TH TESTS?
1314 031347 254 00 0 00 031354 JRST DXMBEG ;DO NEXT TEST
1315 031350 254 00 0 00 031320 JRST CWMST ;LOOP TEST
1316 031351 254 00 0 00 031354 JRST DXMBEG ;GO TO NEXT TEST
1317 031352 CWERR: ERROR1 13,C,A,MUUO DID NOT TRAP TO PUBLIC,^
1318 031352 036 13 0 00 033403
1319 031353 035 02 0 00 031320 ERLP2 CWMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 15
DFKEBM MAC 10-Aug-84 15:18 PUBLIC TESTING SEQ 0050
1320 ;*MONITOR UUO TEST - TRAPPING
1321
1322 SALL
1323 033406 T=SIXBTZ MONITOR UUO TEST - TRAPPING
1324 LALL
1325 036424 A=UPMP+MUUO ;DATA STORED
1326 031375 C=DXMUUO ;CORRECT DATA
1327
1328 031354 DXMBEG: PAGEPN^
1329 031354 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1330 031355 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1331 ^
1332 031356 201 00 0 00 000040 MOVEI 40 ;SET UP TEST
1333 031357 202 00 0 00 035006 MOVEM COUNT# ;COUNTER
1334 TNSET^
1335 031360 201 00 0 00 031360 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1336 031361 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1337 ^
1338 031362 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
1339 031363 202 00 0 00 031375 MOVEM DXMUUO ;FOR EXECUTION
1340 031364 260 17 0 00 033000 DXMST: GO PAGE1
1341 031365 201 00 0 00 031403 MOVEI DXMUPC ;SET UP UUO TRAP PC
1342 031366 202 00 0 00 036436 MOVEM UPMP+PNTRP ;INTO PUBLIC NO TRAP
1343 031367 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR UUO TRAP
1344 031370 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;LOCATIONS
1345 031371 201 00 0 00 031400 MOVEI DXMUER ;ERROR TRAP ADRESS
1346 031372 202 00 0 00 036434 MOVEM UPMP+CNTRP
1347 031373 202 00 0 00 036432 MOVEM UPMP+SNTRP
1348 031374 202 00 0 00 036430 MOVEM UPMP+KNTRP
1349 031375 000000 000000 DXMUUO: 0 ;THIS IS THE UUO
1350 ERROR1 13,C,A,MUUO DID NOT TRAP,C(CORRECT)=MONITOR UUO^
1351 SALL
1352 031376 036 13 0 00 033413
1353 031377 035 02 0 00 031364 ERLP2 DXMST
1354 031400 DXMUER: ERROR1 13,C,A,MUUO DID NOT TRAP TO CORRECT TRAP IN PUBLIC,^
1355 031400 036 13 0 00 033426
1356 031401 035 02 0 00 031364 ERLP2 DXMST
1357 031402 254 00 0 00 031411 JRST DYMBEG ;GO TO NEXT TEST
1358 031403 336 00 0 00 035006 DXMUPC: SKIPN COUNT ;DONE 40 UUOS
1359 031404 254 00 0 00 031411 JRST DYMBEG ;YES DO NEXT SET
1360 031405 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
1361 031406 272 00 0 00 031375 ADDM DXMUUO ;ADD IN FOR NEXT UUO
1362 031407 370 00 0 00 035006 SOS COUNT ;FIX UP COUNTER
1363 031410 254 00 0 00 031364 JRST DXMST ;LOOP
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 16
DFKEBM MAC 10-Aug-84 15:18 PUBLIC TESTING SEQ 0051
1364 ;*MONITOR UUO TEST - UUO STORE INTO 424
1365
1366 SALL
1367 033054 T=SIXBTZ MONITOR UUO TEST - UUO STORE INTO 424
1368 LALL
1369 036424 A=UPMP+MUUO ;ACTUAL DATA STORED
1370 031432 C=DYMUUO ;CORRECT DATA LOCATION
1371 031411 DYMBEG: PAGEPN^
1372 031411 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1373 031412 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1374 ^
1375 031413 201 00 0 00 000040 MOVEI 40 ;SET UP TEST COUNTER
1376 031414 202 00 0 00 035006 MOVEM COUNT
1377 TNSET^
1378 031415 201 00 0 00 031415 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1379 031416 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1380 ^
1381 031417 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
1382 031420 202 00 0 00 031432 MOVEM DYMUUO ;FOR EXECUTION
1383 031421 260 17 0 00 033000 DYMST: GO PAGE1
1384 031422 201 00 0 00 031435 MOVEI DYMUPC ;SET UP UUO TRAP
1385 031423 202 00 0 00 036436 MOVEM UPMP+PNTRP ;INTO PUBLIC NO TRAP
1386 031424 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO TRAP
1387 031425 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;LOCATIONS
1388 031426 201 00 0 00 031447 MOVEI DYMUER ;ERROR TRAP ADRESS
1389 031427 202 00 0 00 036430 MOVEM UPMP+KNTRP
1390 031430 202 00 0 00 036432 MOVEM UPMP+SNTRP
1391 031431 202 00 0 00 036434 MOVEM UPMP+CNTRP
1392 031432 000000 000000 DYMUUO: 0 ;EXECUTE THIS UUO
1393 ERROR1 13,C,A,MUUO DID NOT TRAP IN PUBLIC,^
1394 SALL
1395 031433 036 13 0 00 033431
1396 031434 035 02 0 00 031421 ERLP2 DYMST
1397 031435 200 00 0 00 036424 DYMUPC: MOVE UPMP+MUUO ;GET WRITTEN UUO
1398 031436 312 00 0 00 031432 CAME DYMUUO ;STORED CORRECTLY?
1399 ERROR1 13,C,A,CONTENTS OF 424 IS NOT EQUAL TO EXECUTED UUO,^
1400 031437 036 13 0 00 033434
1401 031440 035 02 0 00 031421 ERLP2 DYMST
1402 031441 336 00 0 00 035006 SKIPN COUNT ;DONE 40 UUO'S
1403 031442 254 00 0 00 031451 JRST DZMBEG ;DO NEXT SET
1404 031443 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
1405 031444 272 00 0 00 031432 ADDM DYMUUO ;ADD IN FOR NEXT UUO
1406 031445 370 00 0 00 035006 SOS COUNT ;FIX UUO COUNTER
1407 031446 254 00 0 00 031421 JRST DYMST ;LOOP
1408 031447 DYMUER: ERROR1 13,C,A,MUUO TRAPPED TO WRONG TRAP IN PUBLIC,^
1409 031447 036 13 0 00 033446
1410 031450 035 02 0 00 031421 ERLP2 DYMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 17
DFKEBM MAC 10-Aug-84 15:18 PUBLIC TESTING SEQ 0052
1411 031470 C=DZMUUO
1412
1413 031451 DZMBEG: PAGEPN^
1414 031451 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1415 031452 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1416 031453 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MONITOR UUO
1417 031454 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;TRAP LOCATIONS
1418 TNSET^
1419 031455 201 00 0 00 031455 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1420 031456 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1421 031457 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
1422 031460 202 00 0 00 031470 MOVEM DZMUUO ;TO BE EXECUTED
1423 031461 260 17 0 00 033000 DZMST: GO PAGE1
1424 031462 201 00 0 00 031473 MOVEI DZMUPC ;SET UP TRAP INSTRUCTION
1425 031463 202 00 0 00 036436 MOVEM UPMP+PNTRP ;INTO PUBLIC NO TRAP
1426 031464 201 00 0 00 031500 MOVEI DZMUER ;ERROR TRAP ADRESS
1427 031465 202 00 0 00 036430 MOVEM UPMP+KNTRP
1428 031466 202 00 0 00 036432 MOVEM UPMP+SNTRP
1429 031467 202 00 0 00 036434 MOVEM UPMP+CNTRP
1430 031470 000000 000000 DZMUUO: 0 ;EXECUTABLE UUO
1431 ERROR1 13,C,A,MUUO DID NOT TRAP IN PUBLIC,^
1432 031471 036 13 0 00 033451
1433 031472 035 02 0 00 031461 ERLP2 DZMST
1434 031473 550 00 0 00 036425 DZMUPC: HRRZ 0,UPMP+MUUO+1 ;GET THE PC OF THE UUO
1435 031474 302 00 0 00 031471 CAIE DZMUUO+1 ;PC+1 OF THE UUO SHOULD BE STORED
1436 ERROR1 13,C,A,MUUO DID NOT STORE THE CORRECT PC,^
1437 031475 036 13 0 00 033454
1438 031476 035 02 0 00 031461 ERLP2 DZMST
1439 031477 254 00 0 00 031502 JRST DWMBEG ;GO TO NEXT TEST
1440 031500 DZMUER: ERROR1 13,C,A,MUUO DID NOT TRAP TO CORRECT TRAP IN PUBLIC,^
1441 031500 036 13 0 00 033457
1442 031501 035 02 0 00 031461 ERLP2 DZMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 18
DFKEBM MAC 10-Aug-84 15:18 PUBLIC TESTING SEQ 0053
1443 036424 A=UPMP+MUUO
1444 031523 C=DWMUUO
1445
1446 031502 DWMBEG: PAGEPN^
1447 031502 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1448 031503 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1449 TNSET^
1450 031504 201 00 0 00 031504 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1451 031505 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1452 031506 201 07 0 00 001000 MOVEI 7,1000 ;FIRST E FEILD TO TEST
1453 031507 260 17 0 00 033000 DWMST: GO PAGE1
1454 031510 201 00 0 00 031526 MOVEI DWMUPC ;SET UP MUUO TRAP INSTUCTION
1455 031511 202 00 0 00 036436 MOVEM UPMP+PNTRP ;INTO PUBLIC NO TRAP
1456 031512 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO TRAP LOCATIONS
1457 031513 402 00 0 00 036425 SETZM UPMP+MUUO+1
1458 031514 201 00 0 00 031536 MOVEI DWMUER ;UUO ERROR TRAP
1459 031515 202 00 0 00 036430 MOVEM UPMP+KNTRP
1460 031516 202 00 0 00 036432 MOVEM UPMP+SNTRP
1461 031517 202 00 0 00 036434 MOVEM UPMP+CNTRP
1462 031520 205 00 0 00 040000 MOVSI 1B21 ;SET UP UUO TO EXECUTE
1463 031521 202 00 0 00 031523 MOVEM DWMUUO ;AND STORE IT
1464 031522 542 07 0 00 031523 HRRM 7,.+1
1465 031523 000000 000000 DWMUUO: 0 ;THIS IS THE UUO
1466 ERROR1 13,C,A,MUUO DID NOT TRAP IN PUBLIC MODE,^
1467 031524 036 13 0 00 033462
1468 031525 035 02 0 00 031507 ERLP2 DWMST
1469 031526 550 00 0 00 036424 DWMUPC: HRRZ UPMP+MUUO
1470 031527 312 00 0 00 000007 CAME 7 ;CORRECT E STORED
1471 ERROR1 13,C,A,MUUO DID NOT STORE E CORRECTLY,^
1472 031530 036 13 0 00 033465
1473 031531 035 02 0 00 031507 ERLP2 DWMST
1474 031532 271 07 0 00 001000 ADDI 7,1000 ;NEXT E FIELD
1475 031533 603 07 0 00 000001 TLNE 7,1 ;DONE 2^18TH TESTS?
1476 031534 254 00 0 00 031540 JRST SUPERX ;CHECK SUPERVISOR MODE!
1477 031535 254 00 0 00 031507 JRST DWMST ;LOOP TEST
1478 031536 DWMUER: ERROR1 13,C,A,MUUO DID NOT TRAP TO CORRECT TRAP IN PUBLIC,^
1479 031536 036 13 0 00 033470
1480 031537 035 02 0 00 031507 ERLP2 DWMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 19
DFKEBM MAC 10-Aug-84 15:18 SUPERVISOR TESTING SEQ 0054
1481 SUBTTL SUPERVISOR TESTING
1482
1483 ;*SET UP PHYSICAL ADRESSES TO LOOK LIKE ITS RUNNING IN 400000 AND BEYOND
1484 ;*EXECUTE A MUUO IN SUPERVISOR AND EXPECT TO TRAP.
1485 ;*IF WE DON'T TRAP THEN WE EXIT SUPERVISOR WITH A 'JRST 1," TO THE
1486 ;*ERROR ROUTINE
1487
1488 000000 A=0
1489 000000 C=0
1490 SALL
1491 033473 T=SIXBTZ SUPERVISOR MODE TEST
1492 LALL
1493
1494 031540 201 16 0 00 000002 SUPERX: MOVEI 16,2
1495 031541 SUP00: TNSET^
1496 031541 201 00 0 00 031541 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1497 031542 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1498 ^
1499 031543 201 00 0 00 031574 MOVEI SUPRTN ;CORRECT RETURN
1500 031544 202 00 0 00 000432 MOVEM SNTRP ;INTO SUPERVISOR NO-TRAP
1501 031545 201 00 0 00 031572 MOVEI SUPER1 ;SUPERVISOR TRAP ERROR
1502 031546 202 00 0 00 000430 MOVEM KNTRP
1503 031547 202 00 0 00 000431 MOVEM KTRP
1504 031550 202 00 0 00 000436 MOVEM PNTRP
1505 031551 202 00 0 00 000437 MOVEM PTRP
1506 031552 202 00 0 00 000434 MOVEM CNTRP
1507 031553 202 00 0 00 000435 MOVEM CTRP
1508 SUPEX^
1509 LALL
1510 ;THIS SECTION PUTS THE PROCESSOR INTO SUPERVISOR MODE.
1511 ;PAGE TABLE SETUP
1512 031554 205 00 0 00 740036 MOVSI 740000!<UPMP_-^D9>
1513 031555 202 00 0 00 000200 MOVEM 200 ;STORE PAGE WORD
1514 031556 7 010 20 0 00 020000 CONO PAG,LTRPEN
1515 031557 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000]
1516 ^
1517 031560 200 00 0 00 033477 MOVE [AOBJN 0,400001]
1518 031561 202 00 0 00 400000 MOVEM 400000
1519 031562 403 00 0 00 400001 SETZB 0,400001 ;AND MUUO 0 INTO NEXT LOCATION
1520 031563 200 00 0 00 033500 MOVE [JRST 1,SUPER2] ;SET UP TRAP INSTRUCTION
1521 031564 202 00 0 00 400002 MOVEM 400002 ;IN CASE MUUO DOES NOT TRAP.
1522 031565 254 01 0 00 400000 JRST 1,400000 ;ENTER SUPERVISOR
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 20
DFKEBM MAC 10-Aug-84 15:18 SUPERVISOR TESTING SEQ 0055
1523 031566 255 00 0 00 000000 SUPER2: JFCL
1524 ERROR1 13,C,A,MUUO DID NOT CAUSE TRAP TO KERNAL FROM SUPERVISOR,^
1525 SALL
1526 031567 036 13 0 00 033512
1527 031570 035 02 0 00 031541 ERLP2 SUP00
1528 031571 254 00 0 00 031575 JRST SPNXT
1529
1530 031572 SUPER1: ERROR1 13,C,A,MUUO DID NOT TRAP TO SUPERVISOR TRAP,^
1531 031572 036 13 0 00 033524
1532 031573 035 02 0 00 031541 ERLP2 SUP00
1533
1534 031574 365 16 0 00 031541 SUPRTN: SOJGE 16,SUP00
1535 031575 SPNXT: TNSET^
1536 031575 201 00 0 00 031575 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1537 031576 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 21
DFKEBM MAC 10-Aug-84 15:18 TRAP TESTING SEQ 0056
1538 SUBTTL TRAP TESTING
1539
1540 ;*CAUSE TRAPS VIA JRSTF INSTRUCTION
1541 ;*TRAP WILL CAUSE A MOVEI TO BE EXECUTED PUTING THE TRAP ADDRESS INTO
1542 ;*AC0 WHICH IS THEN CHECKED FOR BEING THE CORRECT TRAP
1543 ;*TRAP RETURN WILL CHECK FOR CORRECT PC STORED IN IN 0
1544
1545 SALL
1546 033527 T=SIXBTZ AROV TRAP TEST
1547 LALL
1548 033532 C=[AROVTP] ;CORRECT DATA
1549 000000 A=0 ;ACTUAL DATA
1550 031577 400 00 0 00 000000 TRAP0: SETZ ;CLEAR AC0
1551 TNSET^
1552 031600 201 00 0 00 031600 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1553 031601 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1554 ^
1555 031602 700 04 0 00 200000 RESET
1556 031603 264 00 0 00 032760 TRPSET
1557 031604 7 010 20 0 00 020000 TRAP0A: CONO PAG,LTRPEN
1558 031605 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;SET UP FOR ALLOWING TRAPS
1559 031606 200 00 0 00 033533 MOVE [XWD TN1,.+2] ;TRAP PC WORD FOR JRSTF
1560 031607 254 02 1 00 000000 JRSTF @ ;CAUSE TRAP VIA JRSTF
1561 031610 302 00 0 00 000421 CAIE 0,AROVTP ;TRAP DID NOT OCCUR
1562 ERROR1 13,C,A,AROV DID NOT TRAP TO 421,^
1563 SALL
1564 031611 036 13 0 00 033541
1565 031612 035 02 0 00 031604 ERLP2 TRAP0A
1566
1567 ;*TEST PUSHDOWN LIST OVERFLOW TRAP TO 422
1568 SALL
1569 033544 T=SIXBTZ PDLOV TRAP TEST
1570 LALL
1571 033547 C=[PDOVTP] ;CORRECT DATA
1572 000000 A=0 ;ACTUAL DATA
1573
1574 031613 400 00 0 00 000000 TRAP1: SETZ ;CLEAR AC0
1575 TNSET^
1576 031614 201 00 0 00 031614 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1577 031615 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1578 ^
1579 031616 700 04 0 00 200000 RESET
1580 031617 264 00 0 00 032760 TRPSET
1581 031620 7 010 20 0 00 020000 TRAP1A: CONO PAG,LTRPEN
1582 031621 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;SET UP FOR ALLOWING TRAPS
1583 031622 200 00 0 00 033550 MOVE [XWD TN0,.+2] ;TRAP PC WORD FOR JRSTF
1584 031623 254 02 1 00 000000 JRSTF @ ;CAUSE TRAP VIA JRSTF
1585 031624 302 00 0 00 000422 CAIE 0,PDOVTP ;TRAP DID NOT OCCUR
1586 ERROR1 13,C,A,PDOVTP DID NOT TRAP TO 422,^
1587 SALL
1588 031625 036 13 0 00 033556
1589 031626 035 02 0 00 031620 ERLP2 TRAP1A
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 22
DFKEBM MAC 10-Aug-84 15:18 TRAP TESTING SEQ 0057
1590 ;*TRAP3 TRAP TEST TRAPPING TO 423
1591
1592 SALL
1593 033561 T=SIXBTZ TRAP3 TRAP TEST
1594 LALL
1595 033564 C=[TRP3TP] ;CORRECT DATA
1596 000000 A=0 ;ACTUAL DATA
1597 031627 400 00 0 00 000000 TRP02: SETZ ;CLEAR AC0
1598 TNSET^
1599 031630 201 00 0 00 031630 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1600 031631 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1601 ^
1602 031632 700 04 0 00 200000 RESET
1603 031633 264 00 0 00 032760 TRPSET
1604 031634 7 010 20 0 00 020000 CONO PAG,LTRPEN
1605 031635 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;SET UP FOR ALLOWING TRAPS
1606 031636 200 00 0 00 033565 TRAP2A: MOVE [XWD TN0!TN1,.+2] ;PC FOR JRSTF
1607 031637 254 02 1 00 000000 JRSTF @ ;CAUSE TRAP VIA JRSTF
1608 031640 302 00 0 00 000423 CAIE 0,TRP3TP ;TRAP DID NOT OCCUR
1609 ERROR1 13,C,A,TRAP3 TRAP DID NOT TRAP TO 423,^
1610 SALL
1611 031641 036 13 0 00 033574
1612 031642 035 02 0 00 031636 ERLP2 TRAP2A
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 23
DFKEBM MAC 10-Aug-84 15:18 FLAG SETTING SEQ 0058
1613 SUBTTL FLAG SETTING
1614 000001 MODE=1
1615
1616 FLGTST USERF,<MUUO DID NOT RE-ENTER USER-MODE>^
1617 ;*TRY TO SET USERF VIA MONITOR UUO TRAP
1618 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
1619
1620 000001 A=1 ;ACTUAL FLAGS AND PC STORED
1621 033577 C=[USERF,,..0001] ;CORRECT FLAGS AND PC
1622
1623 031643 7 010 20 0 00 020000 ..0002: CONO PAG,LTRPEN
1624 031644 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
1625 TNSET^
1626 031645 201 00 0 00 031645 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1627 031646 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1628 ^
1629 031647 255 17 0 00 031650 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
1630 031650 336 00 0 00 033600 SKIPN [MODE] ;DONT PAGE IF MODE = 0
1631 031651 254 00 0 00 031654 JRST .+3
1632 PAGEPN^
1633 031652 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1634 031653 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1635 ^
1636 031654 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
1637 031655 202 00 0 00 031671 MOVEM ..0003 ;STORE UUO TO DO
1638 031656 200 00 0 00 033577 MOVE [USERF,,..0001] ;PC AND FLAGS TO RESTORE
1639 031657 202 00 0 00 036434 MOVEM UPMP+LCNTRP
1640 031660 202 00 0 00 036435 MOVEM UPMP+LCTRP
1641 031661 202 00 0 00 036436 MOVEM UPMP+LPNTRP
1642 031662 202 00 0 00 036437 MOVEM UPMP+LPTRP
1643 031663 202 00 0 00 036432 MOVEM UPMP+LSNTRP
1644 031664 202 00 0 00 036433 MOVEM UPMP+LSTRP
1645 031665 202 00 0 00 000430 MOVEM LKNTRP
1646 031666 202 00 0 00 000431 MOVEM LKTRP
1647 031667 402 00 0 00 036424 SETZM UPMP+LMUUO
1648 031670 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
1649 031671 000000 000000 ..0003: 0 ;HERE IS THE UUO
1650 ERROR ..0002,13,C,A,MUUO DID NOT CAUSE TRAP^
1651 SALL
1652 031672 036 13 0 00 033605
1653 031673 035 00 0 00 031643 ERLOOP ..0002 ;IF ERROR, LOOP TO ..0002
1654 031674 265 01 0 00 031675 ..0001: JSP 1,.+1 ;GET FLAGS
1655 031675 607 01 0 00 010000 TLNN 1,USERF ;ARE USERF(S) SET?
1656 ERROR ..0002,13,C,A,MUUO DID NOT RE-ENTER USER-MODE^
1657 SALL
1658 031676 036 13 0 00 033616
1659 031677 035 00 0 00 031643 ERLOOP ..0002 ;IF ERROR, LOOP TO ..0002
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 24
DFKEBM MAC 10-Aug-84 15:18 FLAG SETTING SEQ 0059
1660 ;*THIS ROUTINE TO BRING US BACK TO KERNAL MODE FROM USER
1661 ;*MODE RESTORE VIA MUUO
1662
1663 031700 200 00 0 00 033621 USRRTN: MOVE [UEXT] ;PC FOR RETURN
1664 031701 202 00 0 00 036430 MOVEM UPMP+KNTRP
1665 031702 202 00 0 00 036436 MOVEM UPMP+PNTRP
1666 031703 202 00 0 00 036432 MOVEM UPMP+SNTRP
1667 031704 202 00 0 00 036434 MOVEM UPMP+CNTRP
1668 031705 202 00 0 00 036433 MOVEM UPMP+STRP
1669 031706 202 00 0 00 036431 MOVEM UPMP+KTRP
1670 031707 202 00 0 00 036435 MOVEM UPMP+CTRP
1671 031710 202 00 0 00 036437 MOVEM UPMP+PTRP
1672 031711 205 00 0 00 040000 MOVSI 1B21
1673 031712 202 00 0 00 031713 MOVEM .+1 ;UUO TO GET US OUT
1674 031713 000000 000000 USREXT: 0 ;DO THIS UUO TO EXIT TO KERNAL
1675 031714 254 04 0 00 031714 HALT . ;FATAL ERROR (DID NOT ENTER KERNAL
1676 031715 265 00 0 00 031716 UEXT: JSP .+1 ;GET FLAGS
1677 031716 603 00 0 00 010000 TLNE USERF ;STILL IN USER MODE
1678 031717 254 04 0 00 031720 HALT .+1 ;FATAL - TRAPPED FROM UUO BUT STILL
1679 031720 254 00 0 00 031721 JRST .+1 ;IN USER MODE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 25
DFKEBM MAC 10-Aug-84 15:18 FLAG SETTING SEQ 0060
1680 000001 MODE=1
1681 FLGTST EXIOT,<MMUO DID NOT SET EXIOT FLAG>^
1682 ;*TRY TO SET EXIOT VIA MONITOR UUO TRAP
1683 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
1684
1685 000001 A=1 ;ACTUAL FLAGS AND PC STORED
1686 033622 C=[EXIOT,,..0004] ;CORRECT FLAGS AND PC
1687
1688 031721 7 010 20 0 00 020000 ..0005: CONO PAG,LTRPEN
1689 031722 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
1690 TNSET^
1691 031723 201 00 0 00 031723 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1692 031724 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1693 ^
1694 031725 255 17 0 00 031726 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
1695 031726 336 00 0 00 033600 SKIPN [MODE] ;DONT PAGE IF MODE = 0
1696 031727 254 00 0 00 031732 JRST .+3
1697 PAGEPN^
1698 031730 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1699 031731 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1700 ^
1701 031732 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
1702 031733 202 00 0 00 031747 MOVEM ..0006 ;STORE UUO TO DO
1703 031734 200 00 0 00 033622 MOVE [EXIOT,,..0004] ;PC AND FLAGS TO RESTORE
1704 031735 202 00 0 00 036434 MOVEM UPMP+LCNTRP
1705 031736 202 00 0 00 036435 MOVEM UPMP+LCTRP
1706 031737 202 00 0 00 036436 MOVEM UPMP+LPNTRP
1707 031740 202 00 0 00 036437 MOVEM UPMP+LPTRP
1708 031741 202 00 0 00 036432 MOVEM UPMP+LSNTRP
1709 031742 202 00 0 00 036433 MOVEM UPMP+LSTRP
1710 031743 202 00 0 00 000430 MOVEM LKNTRP
1711 031744 202 00 0 00 000431 MOVEM LKTRP
1712 031745 402 00 0 00 036424 SETZM UPMP+LMUUO
1713 031746 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
1714 031747 000000 000000 ..0006: 0 ;HERE IS THE UUO
1715 ERROR ..0005,13,C,A,MUUO DID NOT CAUSE TRAP^
1716 SALL
1717 031750 036 13 0 00 033623
1718 031751 035 00 0 00 031721 ERLOOP ..0005 ;IF ERROR, LOOP TO ..0005
1719 031752 265 01 0 00 031753 ..0004: JSP 1,.+1 ;GET FLAGS
1720 031753 607 01 0 00 004000 TLNN 1,EXIOT ;ARE EXIOT(S) SET?
1721 ERROR ..0005,13,C,A,MMUO DID NOT SET EXIOT FLAG^
1722 SALL
1723 031754 036 13 0 00 033633
1724 031755 035 00 0 00 031721 ERLOOP ..0005 ;IF ERROR, LOOP TO ..0005
1725 PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 25-1
DFKEBM MAC 10-Aug-84 15:18 FLAG SETTING SEQ 0061
1726 000000 MODE=0
1727 FLGTST AROV,<MUUO DID NOT SET ARITHMETIC OVERFLOW FLAG>^
1728 ;*TRY TO SET AROV VIA MONITOR UUO TRAP
1729 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
1730
1731 000001 A=1 ;ACTUAL FLAGS AND PC STORED
1732 033636 C=[AROV,,..0007] ;CORRECT FLAGS AND PC
1733
1734 031756 7 010 20 0 00 020000 ..0010: CONO PAG,LTRPEN
1735 031757 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
1736 TNSET^
1737 031760 201 00 0 00 031760 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1738 031761 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1739 ^
1740 031762 255 17 0 00 031763 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
1741 031763 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
1742 031764 254 00 0 00 031767 JRST .+3
1743 PAGEPN^
1744 031765 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1745 031766 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1746 ^
1747 031767 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
1748 031770 202 00 0 00 032004 MOVEM ..0011 ;STORE UUO TO DO
1749 031771 200 00 0 00 033636 MOVE [AROV,,..0007] ;PC AND FLAGS TO RESTORE
1750 031772 202 00 0 00 036434 MOVEM UPMP+LCNTRP
1751 031773 202 00 0 00 036435 MOVEM UPMP+LCTRP
1752 031774 202 00 0 00 036436 MOVEM UPMP+LPNTRP
1753 031775 202 00 0 00 036437 MOVEM UPMP+LPTRP
1754 031776 202 00 0 00 036432 MOVEM UPMP+LSNTRP
1755 031777 202 00 0 00 036433 MOVEM UPMP+LSTRP
1756 032000 202 00 0 00 000430 MOVEM LKNTRP
1757 032001 202 00 0 00 000431 MOVEM LKTRP
1758 032002 402 00 0 00 036424 SETZM UPMP+LMUUO
1759 032003 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
1760 032004 000000 000000 ..0011: 0 ;HERE IS THE UUO
1761 ERROR ..0010,13,C,A,MUUO DID NOT CAUSE TRAP^
1762 SALL
1763 032005 036 13 0 00 033637
1764 032006 035 00 0 00 031756 ERLOOP ..0010 ;IF ERROR, LOOP TO ..0010
1765 032007 265 01 0 00 032010 ..0007: JSP 1,.+1 ;GET FLAGS
1766 032010 607 01 0 00 400000 TLNN 1,AROV ;ARE AROV(S) SET?
1767 ERROR ..0010,13,C,A,MUUO DID NOT SET ARITHMETIC OVERFLOW FLAG^
1768 SALL
1769 032011 036 13 0 00 033651
1770 032012 035 00 0 00 031756 ERLOOP ..0010 ;IF ERROR, LOOP TO ..0010
1771 PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 25-2
DFKEBM MAC 10-Aug-84 15:18 FLAG SETTING SEQ 0062
1772 FLGTST CRY0,<MUUO DID NOT SET CRY0 FLAG>^
1773 ;*TRY TO SET CRY0 VIA MONITOR UUO TRAP
1774 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
1775
1776 000001 A=1 ;ACTUAL FLAGS AND PC STORED
1777 033654 C=[CRY0,,..0012] ;CORRECT FLAGS AND PC
1778
1779 032013 7 010 20 0 00 020000 ..0013: CONO PAG,LTRPEN
1780 032014 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
1781 TNSET^
1782 032015 201 00 0 00 032015 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1783 032016 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1784 ^
1785 032017 255 17 0 00 032020 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
1786 032020 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
1787 032021 254 00 0 00 032024 JRST .+3
1788 PAGEPN^
1789 032022 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1790 032023 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1791 ^
1792 032024 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
1793 032025 202 00 0 00 032041 MOVEM ..0014 ;STORE UUO TO DO
1794 032026 200 00 0 00 033654 MOVE [CRY0,,..0012] ;PC AND FLAGS TO RESTORE
1795 032027 202 00 0 00 036434 MOVEM UPMP+LCNTRP
1796 032030 202 00 0 00 036435 MOVEM UPMP+LCTRP
1797 032031 202 00 0 00 036436 MOVEM UPMP+LPNTRP
1798 032032 202 00 0 00 036437 MOVEM UPMP+LPTRP
1799 032033 202 00 0 00 036432 MOVEM UPMP+LSNTRP
1800 032034 202 00 0 00 036433 MOVEM UPMP+LSTRP
1801 032035 202 00 0 00 000430 MOVEM LKNTRP
1802 032036 202 00 0 00 000431 MOVEM LKTRP
1803 032037 402 00 0 00 036424 SETZM UPMP+LMUUO
1804 032040 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
1805 032041 000000 000000 ..0014: 0 ;HERE IS THE UUO
1806 ERROR ..0013,13,C,A,MUUO DID NOT CAUSE TRAP^
1807 SALL
1808 032042 036 13 0 00 033655
1809 032043 035 00 0 00 032013 ERLOOP ..0013 ;IF ERROR, LOOP TO ..0013
1810 032044 265 01 0 00 032045 ..0012: JSP 1,.+1 ;GET FLAGS
1811 032045 607 01 0 00 200000 TLNN 1,CRY0 ;ARE CRY0(S) SET?
1812 ERROR ..0013,13,C,A,MUUO DID NOT SET CRY0 FLAG^
1813 SALL
1814 032046 036 13 0 00 033665
1815 032047 035 00 0 00 032013 ERLOOP ..0013 ;IF ERROR, LOOP TO ..0013
1816 PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 25-3
DFKEBM MAC 10-Aug-84 15:18 FLAG SETTING SEQ 0063
1817 FLGTST CRY1,<MUUO DID NOT SET CRY1 FLAG>^
1818 ;*TRY TO SET CRY1 VIA MONITOR UUO TRAP
1819 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
1820
1821 000001 A=1 ;ACTUAL FLAGS AND PC STORED
1822 033670 C=[CRY1,,..0015] ;CORRECT FLAGS AND PC
1823
1824 032050 7 010 20 0 00 020000 ..0016: CONO PAG,LTRPEN
1825 032051 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
1826 TNSET^
1827 032052 201 00 0 00 032052 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1828 032053 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1829 ^
1830 032054 255 17 0 00 032055 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
1831 032055 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
1832 032056 254 00 0 00 032061 JRST .+3
1833 PAGEPN^
1834 032057 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1835 032060 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1836 ^
1837 032061 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
1838 032062 202 00 0 00 032076 MOVEM ..0017 ;STORE UUO TO DO
1839 032063 200 00 0 00 033670 MOVE [CRY1,,..0015] ;PC AND FLAGS TO RESTORE
1840 032064 202 00 0 00 036434 MOVEM UPMP+LCNTRP
1841 032065 202 00 0 00 036435 MOVEM UPMP+LCTRP
1842 032066 202 00 0 00 036436 MOVEM UPMP+LPNTRP
1843 032067 202 00 0 00 036437 MOVEM UPMP+LPTRP
1844 032070 202 00 0 00 036432 MOVEM UPMP+LSNTRP
1845 032071 202 00 0 00 036433 MOVEM UPMP+LSTRP
1846 032072 202 00 0 00 000430 MOVEM LKNTRP
1847 032073 202 00 0 00 000431 MOVEM LKTRP
1848 032074 402 00 0 00 036424 SETZM UPMP+LMUUO
1849 032075 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
1850 032076 000000 000000 ..0017: 0 ;HERE IS THE UUO
1851 ERROR ..0016,13,C,A,MUUO DID NOT CAUSE TRAP^
1852 SALL
1853 032077 036 13 0 00 033671
1854 032100 035 00 0 00 032050 ERLOOP ..0016 ;IF ERROR, LOOP TO ..0016
1855 032101 265 01 0 00 032102 ..0015: JSP 1,.+1 ;GET FLAGS
1856 032102 607 01 0 00 100000 TLNN 1,CRY1 ;ARE CRY1(S) SET?
1857 ERROR ..0016,13,C,A,MUUO DID NOT SET CRY1 FLAG^
1858 SALL
1859 032103 036 13 0 00 033701
1860 032104 035 00 0 00 032050 ERLOOP ..0016 ;IF ERROR, LOOP TO ..0016
1861 PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 25-4
DFKEBM MAC 10-Aug-84 15:18 FLAG SETTING SEQ 0064
1862 FLGTST FOV,<MUUO DID NOT SET FOV FLAG>^
1863 ;*TRY TO SET FOV VIA MONITOR UUO TRAP
1864 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
1865
1866 000001 A=1 ;ACTUAL FLAGS AND PC STORED
1867 033704 C=[FOV,,..0020] ;CORRECT FLAGS AND PC
1868
1869 032105 7 010 20 0 00 020000 ..0021: CONO PAG,LTRPEN
1870 032106 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
1871 TNSET^
1872 032107 201 00 0 00 032107 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1873 032110 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1874 ^
1875 032111 255 17 0 00 032112 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
1876 032112 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
1877 032113 254 00 0 00 032116 JRST .+3
1878 PAGEPN^
1879 032114 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1880 032115 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1881 ^
1882 032116 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
1883 032117 202 00 0 00 032133 MOVEM ..0022 ;STORE UUO TO DO
1884 032120 200 00 0 00 033704 MOVE [FOV,,..0020] ;PC AND FLAGS TO RESTORE
1885 032121 202 00 0 00 036434 MOVEM UPMP+LCNTRP
1886 032122 202 00 0 00 036435 MOVEM UPMP+LCTRP
1887 032123 202 00 0 00 036436 MOVEM UPMP+LPNTRP
1888 032124 202 00 0 00 036437 MOVEM UPMP+LPTRP
1889 032125 202 00 0 00 036432 MOVEM UPMP+LSNTRP
1890 032126 202 00 0 00 036433 MOVEM UPMP+LSTRP
1891 032127 202 00 0 00 000430 MOVEM LKNTRP
1892 032130 202 00 0 00 000431 MOVEM LKTRP
1893 032131 402 00 0 00 036424 SETZM UPMP+LMUUO
1894 032132 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
1895 032133 000000 000000 ..0022: 0 ;HERE IS THE UUO
1896 ERROR ..0021,13,C,A,MUUO DID NOT CAUSE TRAP^
1897 SALL
1898 032134 036 13 0 00 033705
1899 032135 035 00 0 00 032105 ERLOOP ..0021 ;IF ERROR, LOOP TO ..0021
1900 032136 265 01 0 00 032137 ..0020: JSP 1,.+1 ;GET FLAGS
1901 032137 607 01 0 00 040000 TLNN 1,FOV ;ARE FOV(S) SET?
1902 ERROR ..0021,13,C,A,MUUO DID NOT SET FOV FLAG^
1903 SALL
1904 032140 036 13 0 00 033715
1905 032141 035 00 0 00 032105 ERLOOP ..0021 ;IF ERROR, LOOP TO ..0021
1906 PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 25-5
DFKEBM MAC 10-Aug-84 15:18 FLAG SETTING SEQ 0065
1907 FLGTST BIS,<MUUO DID NOT SET BIS FLAG>^
1908 ;*TRY TO SET BIS VIA MONITOR UUO TRAP
1909 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
1910
1911 000001 A=1 ;ACTUAL FLAGS AND PC STORED
1912 033720 C=[BIS,,..0023] ;CORRECT FLAGS AND PC
1913
1914 032142 7 010 20 0 00 020000 ..0024: CONO PAG,LTRPEN
1915 032143 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
1916 TNSET^
1917 032144 201 00 0 00 032144 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1918 032145 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1919 ^
1920 032146 255 17 0 00 032147 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
1921 032147 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
1922 032150 254 00 0 00 032153 JRST .+3
1923 PAGEPN^
1924 032151 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1925 032152 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1926 ^
1927 032153 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
1928 032154 202 00 0 00 032170 MOVEM ..0025 ;STORE UUO TO DO
1929 032155 200 00 0 00 033720 MOVE [BIS,,..0023] ;PC AND FLAGS TO RESTORE
1930 032156 202 00 0 00 036434 MOVEM UPMP+LCNTRP
1931 032157 202 00 0 00 036435 MOVEM UPMP+LCTRP
1932 032160 202 00 0 00 036436 MOVEM UPMP+LPNTRP
1933 032161 202 00 0 00 036437 MOVEM UPMP+LPTRP
1934 032162 202 00 0 00 036432 MOVEM UPMP+LSNTRP
1935 032163 202 00 0 00 036433 MOVEM UPMP+LSTRP
1936 032164 202 00 0 00 000430 MOVEM LKNTRP
1937 032165 202 00 0 00 000431 MOVEM LKTRP
1938 032166 402 00 0 00 036424 SETZM UPMP+LMUUO
1939 032167 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
1940 032170 000000 000000 ..0025: 0 ;HERE IS THE UUO
1941 ERROR ..0024,13,C,A,MUUO DID NOT CAUSE TRAP^
1942 SALL
1943 032171 036 13 0 00 033721
1944 032172 035 00 0 00 032142 ERLOOP ..0024 ;IF ERROR, LOOP TO ..0024
1945 032173 265 01 0 00 032174 ..0023: JSP 1,.+1 ;GET FLAGS
1946 032174 607 01 0 00 020000 TLNN 1,BIS ;ARE BIS(S) SET?
1947 ERROR ..0024,13,C,A,MUUO DID NOT SET BIS FLAG^
1948 SALL
1949 032175 036 13 0 00 033731
1950 032176 035 00 0 00 032142 ERLOOP ..0024 ;IF ERROR, LOOP TO ..0024
1951 PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 25-6
DFKEBM MAC 10-Aug-84 15:18 FLAG SETTING SEQ 0066
1952 FLGTST FXU,<MUUO DID NOT SET FXU FLAG>^
1953 ;*TRY TO SET FXU VIA MONITOR UUO TRAP
1954 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
1955
1956 000001 A=1 ;ACTUAL FLAGS AND PC STORED
1957 033734 C=[FXU,,..0026] ;CORRECT FLAGS AND PC
1958
1959 032177 7 010 20 0 00 020000 ..0027: CONO PAG,LTRPEN
1960 032200 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
1961 TNSET^
1962 032201 201 00 0 00 032201 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
1963 032202 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
1964 ^
1965 032203 255 17 0 00 032204 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
1966 032204 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
1967 032205 254 00 0 00 032210 JRST .+3
1968 PAGEPN^
1969 032206 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
1970 032207 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
1971 ^
1972 032210 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
1973 032211 202 00 0 00 032225 MOVEM ..0030 ;STORE UUO TO DO
1974 032212 200 00 0 00 033734 MOVE [FXU,,..0026] ;PC AND FLAGS TO RESTORE
1975 032213 202 00 0 00 036434 MOVEM UPMP+LCNTRP
1976 032214 202 00 0 00 036435 MOVEM UPMP+LCTRP
1977 032215 202 00 0 00 036436 MOVEM UPMP+LPNTRP
1978 032216 202 00 0 00 036437 MOVEM UPMP+LPTRP
1979 032217 202 00 0 00 036432 MOVEM UPMP+LSNTRP
1980 032220 202 00 0 00 036433 MOVEM UPMP+LSTRP
1981 032221 202 00 0 00 000430 MOVEM LKNTRP
1982 032222 202 00 0 00 000431 MOVEM LKTRP
1983 032223 402 00 0 00 036424 SETZM UPMP+LMUUO
1984 032224 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
1985 032225 000000 000000 ..0030: 0 ;HERE IS THE UUO
1986 ERROR ..0027,13,C,A,MUUO DID NOT CAUSE TRAP^
1987 SALL
1988 032226 036 13 0 00 033735
1989 032227 035 00 0 00 032177 ERLOOP ..0027 ;IF ERROR, LOOP TO ..0027
1990 032230 265 01 0 00 032231 ..0026: JSP 1,.+1 ;GET FLAGS
1991 032231 607 01 0 00 000100 TLNN 1,FXU ;ARE FXU(S) SET?
1992 ERROR ..0027,13,C,A,MUUO DID NOT SET FXU FLAG^
1993 SALL
1994 032232 036 13 0 00 033745
1995 032233 035 00 0 00 032177 ERLOOP ..0027 ;IF ERROR, LOOP TO ..0027
1996 PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 25-7
DFKEBM MAC 10-Aug-84 15:18 FLAG SETTING SEQ 0067
1997 FLGTST DCK,<MUUO DID NOT SET DCK FLAG>^
1998 ;*TRY TO SET DCK VIA MONITOR UUO TRAP
1999 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
2000
2001 000001 A=1 ;ACTUAL FLAGS AND PC STORED
2002 033750 C=[DCK,,..0031] ;CORRECT FLAGS AND PC
2003
2004 032234 7 010 20 0 00 020000 ..0032: CONO PAG,LTRPEN
2005 032235 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
2006 TNSET^
2007 032236 201 00 0 00 032236 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
2008 032237 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
2009 ^
2010 032240 255 17 0 00 032241 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
2011 032241 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
2012 032242 254 00 0 00 032245 JRST .+3
2013 PAGEPN^
2014 032243 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
2015 032244 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
2016 ^
2017 032245 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
2018 032246 202 00 0 00 032262 MOVEM ..0033 ;STORE UUO TO DO
2019 032247 200 00 0 00 033750 MOVE [DCK,,..0031] ;PC AND FLAGS TO RESTORE
2020 032250 202 00 0 00 036434 MOVEM UPMP+LCNTRP
2021 032251 202 00 0 00 036435 MOVEM UPMP+LCTRP
2022 032252 202 00 0 00 036436 MOVEM UPMP+LPNTRP
2023 032253 202 00 0 00 036437 MOVEM UPMP+LPTRP
2024 032254 202 00 0 00 036432 MOVEM UPMP+LSNTRP
2025 032255 202 00 0 00 036433 MOVEM UPMP+LSTRP
2026 032256 202 00 0 00 000430 MOVEM LKNTRP
2027 032257 202 00 0 00 000431 MOVEM LKTRP
2028 032260 402 00 0 00 036424 SETZM UPMP+LMUUO
2029 032261 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
2030 032262 000000 000000 ..0033: 0 ;HERE IS THE UUO
2031 ERROR ..0032,13,C,A,MUUO DID NOT CAUSE TRAP^
2032 SALL
2033 032263 036 13 0 00 033751
2034 032264 035 00 0 00 032234 ERLOOP ..0032 ;IF ERROR, LOOP TO ..0032
2035 032265 265 01 0 00 032266 ..0031: JSP 1,.+1 ;GET FLAGS
2036 032266 607 01 0 00 000040 TLNN 1,DCK ;ARE DCK(S) SET?
2037 ERROR ..0032,13,C,A,MUUO DID NOT SET DCK FLAG^
2038 SALL
2039 032267 036 13 0 00 033761
2040 032270 035 00 0 00 032234 ERLOOP ..0032 ;IF ERROR, LOOP TO ..0032
2041 PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 25-8
DFKEBM MAC 10-Aug-84 15:18 FLAG SETTING SEQ 0068
2042 FLGTST CRY0+CRY1+AROV+FOV+FXU+DCK+BIS,<MUUO DID NOT SET CRY0+CRY1+AROV+FOV+FXU+DCK+
2043 BIS FLAGS>^
2044 ;*TRY TO SET CRY0+CRY1+AROV+FOV+FXU+DCK+BIS VIA MONITOR UUO TRAP
2045 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
2046
2047 000001 A=1 ;ACTUAL FLAGS AND PC STORED
2048 033764 C=[CRY0+CRY1+AROV+FOV+FXU+DCK+BIS,,..0034] ;CORRECT FLAGS AND PC
2049
2050 032271 7 010 20 0 00 020000 ..0035: CONO PAG,LTRPEN
2051 032272 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
2052 TNSET^
2053 032273 201 00 0 00 032273 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
2054 032274 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
2055 ^
2056 032275 255 17 0 00 032276 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
2057 032276 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
2058 032277 254 00 0 00 032302 JRST .+3
2059 PAGEPN^
2060 032300 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
2061 032301 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
2062 ^
2063 032302 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
2064 032303 202 00 0 00 032317 MOVEM ..0036 ;STORE UUO TO DO
2065 032304 200 00 0 00 033764 MOVE [CRY0+CRY1+AROV+FOV+FXU+DCK+BIS,,..0034] ;PC AND FLAGS TO RESTORE
2066 032305 202 00 0 00 036434 MOVEM UPMP+LCNTRP
2067 032306 202 00 0 00 036435 MOVEM UPMP+LCTRP
2068 032307 202 00 0 00 036436 MOVEM UPMP+LPNTRP
2069 032310 202 00 0 00 036437 MOVEM UPMP+LPTRP
2070 032311 202 00 0 00 036432 MOVEM UPMP+LSNTRP
2071 032312 202 00 0 00 036433 MOVEM UPMP+LSTRP
2072 032313 202 00 0 00 000430 MOVEM LKNTRP
2073 032314 202 00 0 00 000431 MOVEM LKTRP
2074 032315 402 00 0 00 036424 SETZM UPMP+LMUUO
2075 032316 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
2076 032317 000000 000000 ..0036: 0 ;HERE IS THE UUO
2077 ERROR ..0035,13,C,A,MUUO DID NOT CAUSE TRAP^
2078 SALL
2079 032320 036 13 0 00 033765
2080 032321 035 00 0 00 032271 ERLOOP ..0035 ;IF ERROR, LOOP TO ..0035
2081 032322 265 01 0 00 032323 ..0034: JSP 1,.+1 ;GET FLAGS
2082 TLNN 1,CRY0+CRY1+AROV+FOV+FXU+DCK+BIS ;ARE CRY0+CRY1+AROV+FOV+FXU+
2083 032323 607 01 0 00 760140 DCK+BIS(S) SET?
2084 ERROR ..0035,13,C,A,MUUO DID NOT SET CRY0+CRY1+AROV+FOV+FXU+DCK+BIS FLAGS^
2085 SALL
2086 032324 036 13 0 00 034001
2087 032325 035 00 0 00 032271 ERLOOP ..0035 ;IF ERROR, LOOP TO ..0035
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 26
DFKEBM MAC 10-Aug-84 15:18 TEST IOT'S IN CONCEALED MODE SEQ 0069
2088 SUBTTL TEST IOT'S IN CONCEALED MODE
2089
2090 SALL
2091 034004 T=SIXBTZ IOT MUUO^CONCEALED MODE
2092 LALL
2093 036424 A=UPMP+MUUO
2094 032352 C=IOTCM1
2095
2096 032326 IOTCM: TNSET^
2097 032326 201 00 0 00 032326 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
2098 032327 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
2099 ^
2100 PAGECN^
2101 032330 476 00 0 00 035005 SETOM CNSFLG ;INFORM PAGE ROUTINE
2102 032331 260 17 0 00 032771 GO PAGSET ;THAT I WANT CONCEALED MODE
2103 ^
2104
2105 032332 402 00 0 00 000010 SETZM 10 ;INIT COUNTER
2106
2107 032333 200 00 0 10 032514 IOTCM0: MOVE IOTTAB(10) ;SETUP IOT FOR EXECUTION
2108 032334 202 00 0 00 032352 MOVEM IOTCM1
2109
2110 032335 260 17 0 00 033000 GO PAGE1
2111 032336 201 00 0 00 032360 MOVEI IOTCM3 ;SETUP MUUO TRAP PC
2112 032337 202 00 0 00 036434 MOVEM UPMP+CNTRP
2113 032340 201 00 0 00 032356 MOVEI IOTCM2 ;SETUP FOR INCORRECT TRAP
2114 032341 202 00 0 00 036430 MOVEM UPMP+KNTRP
2115 032342 202 00 0 00 036436 MOVEM UPMP+PNTRP
2116 032343 202 00 0 00 036432 MOVEM UPMP+SNTRP
2117 032344 202 00 0 00 036431 MOVEM UPMP+KTRP
2118 032345 202 00 0 00 036437 MOVEM UPMP+PTRP
2119 032346 202 00 0 00 036435 MOVEM UPMP+CTRP
2120 032347 202 00 0 00 036433 MOVEM UPMP+STRP
2121
2122 032350 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO LOCATIONS
2123 032351 403 00 0 00 036425 SETZB 0,UPMP+MUUO+1
2124
2125 032352 000000 000000 IOTCM1: 0 ;DO "IOT"
2126
2127 ERROR1 13,C,A,IOT DID NOT TRAP,C=IOT^
2128 SALL
2129 032353 036 13 0 00 034014
2130 032354 035 02 0 00 032333 ERLP2 IOTCM0
2131 032355 254 00 0 00 032360 JRST IOTCM3
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 27
DFKEBM MAC 10-Aug-84 15:18 TEST IOT'S IN CONCEALED MODE SEQ 0070
2132 032356 IOTCM2: ERROR1 13,C,A,IOT DID NOT TRAP TO PROPER TRAP^
2133 032356 036 13 0 00 034025
2134 032357 035 02 0 00 032333 ERLP2 IOTCM0
2135
2136 032360 200 00 0 00 036424 IOTCM3: MOVE UPMP+MUUO ;GET SAVED MUUO
2137 032361 312 00 0 00 032352 CAME IOTCM1
2138 ERROR1 13,C,A,CONTENTS OF 424 NOT EXECUTED IOT^
2139 032362 036 13 0 00 034036
2140 032363 035 02 0 00 032333 ERLP2 IOTCM0
2141
2142 034041 C=[IOTCM1+1]
2143 000001 A=1
2144
2145 032364 550 01 0 00 036425 HRRZ 1,UPMP+MUUO+1 ;GET SAVED PC
2146 032365 302 01 0 00 032353 CAIE 1,IOTCM1+1
2147 ERROR1 13,C,A,IOT MUUO DID NOT STORE CORRECT PC^
2148 032366 036 13 0 00 034050
2149 032367 035 02 0 00 032333 ERLP2 IOTCM0
2150
2151 032370 350 00 0 00 000010 AOS 10
2152 032371 302 10 0 00 000013 CAIE 10,^D11 ;DONE ALL ILLEGAL IOT'S ?
2153 032372 254 00 0 00 032333 JRST IOTCM0 ;NOT YET
2154 032373 254 00 0 00 032374 JRST IOTPM ;YES, TO NEXT TEST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 28
DFKEBM MAC 10-Aug-84 15:18 TEST IOT'S IN PUBLIC MODE SEQ 0071
2155 SUBTTL TEST IOT'S IN PUBLIC MODE
2156
2157 SALL
2158 034053 T=SIXBTZ IOT MUUO^PUBLIC MODE
2159 LALL
2160 036424 A=UPMP+MUUO
2161 032420 C=IOTPM1
2162
2163 032374 IOTPM: TNSET^
2164 032374 201 00 0 00 032374 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
2165 032375 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
2166 ^
2167 PAGEPN^
2168 032376 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
2169 032377 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
2170 ^
2171
2172 032400 402 00 0 00 000010 SETZM 10 ;INIT COUNTER
2173
2174 032401 200 00 0 10 032514 IOTPM0: MOVE IOTTAB(10) ;SETUP IOT FOR EXECUTION
2175 032402 202 00 0 00 032420 MOVEM IOTPM1
2176
2177 032403 260 17 0 00 033000 GO PAGE1
2178 032404 201 00 0 00 032426 MOVEI IOTPM3 ;SETUP MUUO TRAP PC
2179 032405 202 00 0 00 036436 MOVEM UPMP+PNTRP
2180 032406 201 00 0 00 032424 MOVEI IOTPM2 ;SETUP FOR INCORRECT TRAP
2181 032407 202 00 0 00 036430 MOVEM UPMP+KNTRP
2182 032410 202 00 0 00 036434 MOVEM UPMP+CNTRP
2183 032411 202 00 0 00 036432 MOVEM UPMP+SNTRP
2184 032412 202 00 0 00 036431 MOVEM UPMP+KTRP
2185 032413 202 00 0 00 036433 MOVEM UPMP+STRP
2186 032414 202 00 0 00 036435 MOVEM UPMP+CTRP
2187 032415 202 00 0 00 036437 MOVEM UPMP+PTRP
2188
2189 032416 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO LOCATIONS
2190 032417 403 00 0 00 036425 SETZB 0,UPMP+MUUO+1
2191
2192 032420 000000 000000 IOTPM1: 0 ;DO "IOT"
2193
2194 ERROR1 13,C,A,IOT DID NOT TRAP,C=IOT^
2195 SALL
2196 032421 036 13 0 00 034057
2197 032422 035 02 0 00 032401 ERLP2 IOTPM0
2198 032423 254 00 0 00 032426 JRST IOTPM3
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 29
DFKEBM MAC 10-Aug-84 15:18 TEST IOT'S IN PUBLIC MODE SEQ 0072
2199 032424 IOTPM2: ERROR1 13,C,A,IOT DID NOT TRAP TO PROPER TRAP^
2200 032424 036 13 0 00 034062
2201 032425 035 02 0 00 032401 ERLP2 IOTPM0
2202
2203 032426 200 00 0 00 036424 IOTPM3: MOVE UPMP+MUUO ;GET SAVED MUUO
2204 032427 312 00 0 00 032420 CAME IOTPM1
2205 ERROR1 13,C,A,CONTENTS OF 424 NOT EXECUTED IOT^
2206 032430 036 13 0 00 034065
2207 032431 035 02 0 00 032401 ERLP2 IOTPM0
2208
2209 034070 C=[IOTPM1+1]
2210 000001 A=1
2211
2212 032432 550 01 0 00 036425 HRRZ 1,UPMP+MUUO+1 ;GET SAVED PC
2213 032433 302 01 0 00 032421 CAIE 1,IOTPM1+1
2214 ERROR1 13,C,A,IOT MUUO DID NOT STORE CORRECT PC^
2215 032434 036 13 0 00 034071
2216 032435 035 02 0 00 032401 ERLP2 IOTPM0
2217
2218 032436 350 00 0 00 000010 AOS 10
2219 032437 302 10 0 00 000013 CAIE 10,^D11 ;DONE ALL ILLEGAL IOT'S ?
2220 032440 254 00 0 00 032401 JRST IOTPM0 ;NOT YET
2221 032441 254 00 0 00 032442 JRST IOTSM ;YES, TO NEXT TEST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 30
DFKEBM MAC 10-Aug-84 15:18 TEST IOT'S IN SUPERVISOR MODE SEQ 0073
2222 SUBTTL TEST IOT'S IN SUPERVISOR MODE
2223
2224 SALL
2225 034074 T=SIXBTZ IOT MUUO^SUPERVISOR MODE
2226 LALL
2227 000424 A=MUUO
2228 400001 C=400001
2229
2230 032442 IOTSM: TNSET^
2231 032442 201 00 0 00 032442 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
2232 032443 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
2233 ^
2234 032444 201 00 0 00 032500 MOVEI IOTSM3 ;SETUP SUPERVISOR TRAP
2235 032445 202 00 0 00 000432 MOVEM SNTRP
2236 032446 201 00 0 00 032476 MOVEI IOTSM2 ;SETUP INCORRECT TRAPS
2237 032447 202 00 0 00 000433 MOVEM STRP
2238 032450 202 00 0 00 000430 MOVEM KNTRP
2239 032451 202 00 0 00 000431 MOVEM KTRP
2240 032452 202 00 0 00 000436 MOVEM PNTRP
2241 032453 202 00 0 00 000437 MOVEM PTRP
2242 032454 202 00 0 00 000434 MOVEM CNTRP
2243 032455 202 00 0 00 000435 MOVEM CTRP
2244
2245 032456 402 00 0 00 000010 SETZM 10 ;INIT COUNTER
2246
2247 032457 IOTSM0: SUPEX^
2248 LALL
2249 ;THIS SECTION PUTS THE PROCESSOR INTO SUPERVISOR MODE.
2250 ;PAGE TABLE SETUP
2251 032457 205 00 0 00 740036 MOVSI 740000!<UPMP_-^D9>
2252 032460 202 00 0 00 000200 MOVEM 200 ;STORE PAGE WORD
2253 032461 7 010 20 0 00 020000 CONO PAG,LTRPEN
2254 032462 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000]
2255 ^
2256
2257 032463 200 00 0 00 034101 MOVE [JFCL 17,400001]
2258 032464 202 00 0 00 400000 MOVEM 400000 ;SETUP CLEAR FLAGS
2259
2260 032465 200 00 0 00 034102 MOVE [JRST 1,IOTSM1]
2261 032466 202 00 0 00 400002 MOVEM 400002 ;SETUP "DID NOT TRAP" CATCHER
2262
2263 032467 200 00 0 10 032514 MOVE IOTTAB(10) ;SETUP TEST IOT
2264 032470 202 00 0 00 400001 MOVEM 400001
2265
2266 032471 402 00 0 00 000000 SETZM 0
2267 032472 254 01 0 00 400000 JRST 1,400000 ;ENTER SUPERVISOR MODE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 31
DFKEBM MAC 10-Aug-84 15:18 TEST IOT'S IN SUPERVISOR MODE SEQ 0074
2268 032473 IOTSM1: ERROR1 13,C,A,IOT DID NOT TRAP,C=IOT^
2269 SALL
2270 032473 036 13 0 00 034103
2271 032474 035 02 0 00 032457 ERLP2 IOTSM0
2272 032475 254 00 0 00 032500 JRST IOTSM3
2273
2274 032476 IOTSM2: ERROR1 13,C,A,IOT DID NOT TRAP TO SUPERVISOR TRAP^
2275 032476 036 13 0 00 034114
2276 032477 035 02 0 00 032457 ERLP2 IOTSM0
2277
2278 032500 200 00 0 00 000424 IOTSM3: MOVE MUUO
2279 032501 312 00 0 00 400001 CAME 400001 ;IOT GET SAVED CORRECTLY ?
2280 ERROR1 13,C,A,CONTENTS OF 424 NOT EXECUTED IOT^
2281 032502 036 13 0 00 034117
2282 032503 035 02 0 00 032457 ERLP2 IOTSM0
2283
2284 034122 C=[400002]
2285 000001 A=1
2286
2287 032504 550 01 0 00 000425 HRRZ 1,MUUO+1 ;CORRECT PC GET SAVED ?
2288 032505 302 01 0 00 400002 CAIE 1,400002
2289 ERROR1 13,C,A,IOT MUUO DID NOT STORE CORRECT PC^
2290 032506 036 13 0 00 034123
2291 032507 035 02 0 00 032457 ERLP2 IOTSM0
2292
2293 032510 350 00 0 00 000010 AOS 10 ;COMPLETED ALL IOT'S ?
2294 032511 302 10 0 00 000013 CAIE 10,^D11
2295 032512 254 00 0 00 032457 JRST IOTSM0 ;NOT YET
2296
2297 032513 254 00 0 00 032530 JRST PVTST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 32
DFKEBM MAC 10-Aug-84 15:18 TEST IOT'S IN SUPERVISOR MODE SEQ 0075
2298 ;*ILLEGAL USER MODE IOT TABLE
2299
2300 032514 7 000 20 0 00 000000 IOTTAB: CONO
2301 032515 7 000 24 0 00 000000 CONI
2302 032516 7 000 14 0 00 000000 DATAO
2303 032517 7 000 04 0 00 000000 DATAI
2304 032520 7 000 30 0 00 000000 CONSZ
2305 032521 7 000 34 0 00 000000 CONSO
2306 032522 7 000 10 0 00 000000 BLKO
2307 032523 7 000 00 0 00 000000 BLKI
2308 032524 254 04 0 00 000000 HALT
2309 032525 254 12 0 00 000000 JEN
2310 032526 254 10 0 00 000000 JRST 10,
2311 032527 254 04 0 00 000000 HALT
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 33
DFKEBM MAC 10-Aug-84 15:18 TEST PROPRIETARY VIOLATION SEQ 0076
2312 SUBTTL TEST PROPRIETARY VIOLATION
2313
2314 SALL
2315 034126 T=SIXBTZ PROPRIETARY TRANSFER^SUPERVISOR MODE
2316 LALL
2317 000000 C=0
2318 000000 A=0
2319
2320 032530 PVTST: TNSET^
2321 032530 201 00 0 00 032530 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
2322 032531 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
2323 ^
2324 032532 200 00 0 00 000502 MOVE LPGFTRP
2325 032533 202 00 0 00 035007 MOVEM PGFTSV# ;SAVE PAGE FAIL INST
2326 032534 700 00 0 00 000000 APRID ;GET APRID
2327 032535 602 00 0 00 200000 TRNE 1B19 ;TEST FOR CACHE
2328 032536 476 00 0 00 035004 SETOM CACHE# ;YES WE HAVE CACHE
2329
2330 032537 201 00 0 00 032563 PVTST0: MOVEI PVTST3
2331 032540 202 00 0 00 000502 MOVEM LPGFTRP ;SETUP FOR PAGE FAIL
2332
2333 SUPEX^
2334 LALL
2335 ;THIS SECTION PUTS THE PROCESSOR INTO SUPERVISOR MODE.
2336 ;PAGE TABLE SETUP
2337 032541 205 00 0 00 740036 MOVSI 740000!<UPMP_-^D9>
2338 032542 202 00 0 00 000200 MOVEM 200 ;STORE PAGE WORD
2339 032543 7 010 20 0 00 020000 CONO PAG,LTRPEN
2340 032544 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000]
2341 ^
2342
2343 032545 200 00 0 00 034101 MOVE [JFCL 17,400001]
2344 032546 202 00 0 00 400000 MOVEM 400000 ;CLEAR ALL FLAGS
2345 032547 200 00 0 00 034135 MOVE [JRST PVTST2]
2346 032550 202 00 0 00 400001 MOVEM 400001 ;ILLEGAL TRANSFER TO KERNAL
2347 032551 200 00 0 00 034136 MOVE [JRST 1,PVTST1]
2348 032552 202 00 0 00 400002 MOVEM 400002 ;NO TRAP, NO JRST - WHO KNOWS
2349
2350 032553 254 01 0 00 400000 JRST 1,400000 ;ENTER SUPERVISOR MODE
2351
2352 032554 PVTST1: ERROR1 13,C,A,JRST TO KERNAL,NOTHING HAPPENED^
2353 SALL
2354 032554 036 13 0 00 034145
2355 032555 035 02 0 00 032537 ERLP2 PVTST0
2356 032556 254 00 0 00 032571 JRST PVTST4
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 34
DFKEBM MAC 10-Aug-84 15:18 TEST PROPRIETARY VIOLATION SEQ 0077
2357 032557 255 00 0 00 000000 PVTST2: JFCL
2358 ERROR1 13,C,A,JRST WENT TO KERNAL,NO TRAP^
2359 032560 036 13 0 00 034156
2360 032561 035 02 0 00 032537 ERLP2 PVTST0
2361 032562 254 00 0 00 032571 JRST PVTST4
2362
2363 000013 C=13
2364 000014 A=14
2365
2366 032563 254 01 0 00 032564 PVTST3: JRST 1,.+1 ;CORRECT TRAP, CHECK RESULTS
2367 032564 200 13 0 00 034161 MOVE C,[LIP,,PVTST2+1]
2368 032565 200 14 0 00 000501 MOVE A,LPFWPC
2369 032566 312 13 0 00 000014 CAME C,A
2370 ERROR1 13,C,A,PAGE FAIL SAVED PC WRONG^
2371 032567 036 13 0 00 034167
2372 032570 035 02 0 00 032537 ERLP2 PVTST0
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 35
DFKEBM MAC 10-Aug-84 15:18 TEST PROPRIETARY VIOLATION SEQ 0078
2373 SALL
2374 034172 T=SIXBTZ PROPRIETARTY WRITE^SUPERVISOR MODE
2375 LALL
2376 000000 C=0
2377 000000 A=0
2378
2379 032571 201 00 0 00 032612 PVTST4: MOVEI PVTST6
2380 032572 202 00 0 00 000502 MOVEM LPGFTRP ;SETUP FOR PAGE FAIL
2381
2382 SUPEX^
2383 LALL
2384 ;THIS SECTION PUTS THE PROCESSOR INTO SUPERVISOR MODE.
2385 ;PAGE TABLE SETUP
2386 032573 205 00 0 00 740036 MOVSI 740000!<UPMP_-^D9>
2387 032574 202 00 0 00 000200 MOVEM 200 ;STORE PAGE WORD
2388 032575 7 010 20 0 00 020000 CONO PAG,LTRPEN
2389 032576 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000]
2390 ^
2391
2392 032577 200 00 0 00 034101 MOVE [JFCL 17,400001]
2393 032600 202 00 0 00 400000 MOVEM 400000 ;CLEAR ALL FLAGS
2394 032601 200 00 0 00 034200 MOVE [SETOM PVTSTX#]
2395 032602 202 00 0 00 400001 MOVEM 400001 ;ILLEGAL WRITE INTO KERNAL
2396 032603 200 00 0 00 034201 MOVE [JRST 1,PVTST5]
2397 032604 202 00 0 00 400002 MOVEM 400002 ;NO TRAP
2398
2399 032605 402 00 0 00 035010 SETZM PVTSTX ;CLEAR WRITE ATTEMPT LOCATION
2400 032606 254 01 0 00 400000 JRST 1,400000 ;ENTER SUPERVISOR MODE
2401
2402 032607 PVTST5: ERROR1 13,C,A,JRST TO KERNAL,NO TRAP^
2403 SALL
2404 032607 036 13 0 00 034202
2405 032610 035 02 0 00 032571 ERLP2 PVTST4
2406 032611 254 00 0 00 032634 JRST PVTST7
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 36
DFKEBM MAC 10-Aug-84 15:18 TEST PROPRIETARY VIOLATION SEQ 0079
2407 000013 C=13
2408 000014 A=14
2409
2410 032612 254 01 0 00 032613 PVTST6: JRST 1,.+1 ;CORRECT TRAP, CHECK RESULTS
2411 032613 200 13 0 00 034205 MOVE C,[213000,,PVTSTX]
2412 032614 336 00 0 00 035004 SKIPN CACHE ;SKIP IF CPU HAS CACHE
2413 032615 200 13 0 00 034206 MOVE C,[211000,,PVTSTX]
2414 032616 200 14 0 00 000500 MOVE A,LEUPFW
2415 032617 312 13 0 00 000014 CAME C,A
2416 ERROR1 13,C,A,PAGE FAIL WORD WRONG^
2417 032620 036 13 0 00 034213
2418 032621 035 02 0 00 032571 ERLP2 PVTST4
2419
2420 032622 200 13 0 00 034216 MOVE C,[LIP,,400001]
2421 032623 200 14 0 00 000501 MOVE A,LPFWPC
2422 032624 312 13 0 00 000014 CAME C,A
2423 ERROR1 13,C,A,PAGE FAIL SAVED PC WRONG^
2424 032625 036 13 0 00 034217
2425 032626 035 02 0 00 032571 ERLP2 PVTST4
2426
2427 032627 402 00 0 00 000013 SETZM C
2428 032630 200 14 0 00 035010 MOVE A,PVTSTX
2429 032631 312 13 0 00 000014 CAME C,A
2430 ERROR1 13,C,A,WROTE INTO KERNAL LOC^
2431 032632 036 13 0 00 034226
2432 032633 035 02 0 00 032571 ERLP2 PVTST4
2433
2434 032634 200 00 0 00 035007 PVTST7: MOVE PGFTSV
2435 032635 202 00 0 00 000502 MOVEM LPGFTRP ;RESTORE PAGE FAIL
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 37
DFKEBM MAC 10-Aug-84 15:18 TEST USER MODE ADDRESSING SEQ 0080
2436 SUBTTL TEST USER MODE ADDRESSING
2437
2438 ;*USER MODE PUBLIC - MAXIMUM BLOCK TRANSFER
2439
2440 SALL
2441 034231 T=SIXBTZ USER MODE PUBLIC^MAXIMUM BLOCK TRANSFER
2442 LALL
2443
2444 036424 A=UPMP+MUUO
2445 034240 C=[HALT 13]
2446
2447 032636 UBLT: TNSET^
2448 032636 201 00 0 00 032636 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
2449 032637 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
2450 ^
2451 032640 201 00 0 00 740037 UBLT0: MOVEI <<UPMP+1000>_-^D9>!740000
2452 032641 504 00 0 00 000000 HRL ;SETUP PAGE TABLE ENTRY
2453 032642 205 01 0 00 777400 MOVSI 1,-1000/2 ;SO ALL PAGES POINT TO SAME 512 WORDS
2454 032643 202 00 0 01 036000 MOVEM UPMP(1)
2455 032644 253 01 0 00 032643 AOBJN 1,.-1
2456
2457 032645 200 10 0 00 034241 MOVE 10,[JRST 1,11] ;PORTAL
2458 032646 200 11 0 00 034242 MOVE 11,[SETZM 20] ;CLEAR FIRST LOC
2459 032647 200 12 0 00 034243 MOVE 12,[BLT 7,777777] ;MAX BLT
2460 032650 200 13 0 00 034240 MOVE 13,[HALT 13] ;MUUO TO GET BACK TO EXEC
2461 032651 200 07 0 00 034244 MOVE 7,[20,,21] ;BLT START ADDRESSES
2462
2463 032652 201 00 0 00 032671 MOVEI UBLT1 ;SETUP FOR TERMINATION MUUO
2464 032653 202 00 0 00 036436 MOVEM UPMP+PNTRP
2465 032654 202 00 0 00 036434 MOVEM UPMP+CNTRP
2466 032655 201 00 0 00 032702 MOVEI UBLT2 ;SETUP FOR ERROR TERMINATION
2467 032656 202 00 0 00 036437 MOVEM UPMP+PTRP
2468 032657 202 00 0 00 036435 MOVEM UPMP+CTRP
2469
2470 032660 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO LOCATIONS
2471 032661 402 00 0 00 036425 SETZM UPMP+MUUO+1
2472
2473 032662 200 00 0 00 034245 MOVE [0,,UPMP+LPGFTRP] ;SETUP FOR PAGE FAIL
2474 032663 202 00 0 00 036502 MOVEM UPMP+LPGFTRP ;HANDLE VIA MUUO
2475
2476 032664 7 010 20 0 00 020000 CONO PAG,LTRPEN
2477 032665 7 010 14 0 00 034246 DATAO PAG,[LLDUSB,,400000!<UPMP_-^D9>]
2478
2479 032666 254 02 1 00 032667 JRSTF @.+1 ;GO TO USER MODE
2480 032667 010000 000010 USERF,,10 ;IN THE AC'S
2481 032670 254 04 0 00 032670 HALT .
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 38
DFKEBM MAC 10-Aug-84 15:18 TEST USER MODE ADDRESSING SEQ 0081
2482 032671 200 00 0 00 036424 UBLT1: MOVE UPMP+MUUO ;COMPLETED, CHECK RESULTS
2483 032672 312 00 0 00 034240 CAME [HALT 13]
2484 ERROR1 13,C,A,INCORRECT TERMINATION MUUO^
2485 SALL
2486 032673 036 13 0 00 034254
2487 032674 035 02 0 00 032640 ERLP2 UBLT0
2488
2489 036425 A=UPMP+MUUO+1
2490 034257 C=[USERF,,14]
2491
2492 032675 200 00 0 00 036425 MOVE UPMP+MUUO+1
2493 032676 312 00 0 00 034257 CAME [USERF,,14]
2494 ERROR1 13,C,A,INCORRECT TERMINATION PC^
2495 032677 036 13 0 00 034265
2496 032700 035 02 0 00 032640 ERLP2 UBLT0
2497 032701 254 00 0 00 032706 JRST UBLT3
2498
2499 000005 C=5
2500 000006 A=6
2501
2502 032702 200 05 0 00 036500 UBLT2: MOVE 5,UPMP+LEUPFW
2503 032703 200 06 0 00 036425 MOVE 6,UPMP+MUUO+1
2504 ERROR1 13,C,A,PAGE FAILURE,<CORRECT=PF WORD, ACTUAL=PF PC>^
2505 032704 036 13 0 00 034300
2506 032705 035 02 0 00 032640 ERLP2 UBLT0
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 39
DFKEBM MAC 10-Aug-84 15:18 TEST USER MODE ADDRESSING SEQ 0082
2507 ;*USER MODE CONCEALED - MAXIMUM BLOCK TRANSFER
2508
2509 SALL
2510 034303 T=SIXBTZ USER MODE CONCEALED^MAXIMUM BLOCK TRANSFER
2511 LALL
2512
2513 036424 A=UPMP+MUUO
2514 034240 C=[HALT 13]
2515
2516 032706 UBLT3: TNSET^
2517 032706 201 00 0 00 032706 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
2518 032707 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
2519 ^
2520 032710 201 00 0 00 540037 UBLT4: MOVEI <<UPMP+1000>_-^D9>!540000
2521 032711 504 00 0 00 000000 HRL ;SETUP PAGE TABLE ENTRY
2522 032712 205 01 0 00 777400 MOVSI 1,-1000/2 ;SO ALL PAGES POINT TO SAME 512 WORDS
2523 032713 202 00 0 01 036000 MOVEM UPMP(1)
2524 032714 253 01 0 00 032713 AOBJN 1,.-1
2525
2526 032715 200 10 0 00 034241 MOVE 10,[JRST 1,11] ;PORTAL
2527 032716 200 11 0 00 034313 MOVE 11,[SETOM 20] ;SET FIRST LOC
2528 032717 200 12 0 00 034243 MOVE 12,[BLT 7,777777] ;MAX BLT
2529 032720 200 13 0 00 034240 MOVE 13,[HALT 13] ;MUUO TO GET BACK TO EXEC
2530 032721 200 07 0 00 034244 MOVE 7,[20,,21] ;BLT START ADDRESSES
2531
2532 032722 201 00 0 00 032741 MOVEI UBLT5 ;SETUP FOR TERMINATION MUUO
2533 032723 202 00 0 00 036434 MOVEM UPMP+CNTRP
2534 032724 201 00 0 00 032752 MOVEI UBLT6 ;SETUP FOR ERROR TERMINATION MUUO
2535 032725 202 00 0 00 036435 MOVEM UPMP+CTRP
2536 032726 202 00 0 00 036436 MOVEM UPMP+PNTRP
2537 032727 202 00 0 00 036437 MOVEM UPMP+PTRP
2538
2539 032730 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO LOCATIONS
2540 032731 402 00 0 00 036425 SETZM UPMP+MUUO+1
2541
2542 032732 200 00 0 00 034245 MOVE [0,,UPMP+LPGFTRP] ;SETUP FOR PAGE FAIL
2543 032733 202 00 0 00 036502 MOVEM UPMP+LPGFTRP ;HANDLE VIA MUUO
2544
2545 032734 7 010 20 0 00 020000 CONO PAG,LTRPEN
2546 032735 7 010 14 0 00 034246 DATAO PAG,[LLDUSB,,400000!<UPMP_-^D9>]
2547
2548 032736 254 02 1 00 032737 JRSTF @.+1 ;GO TO USER MODE
2549 032737 010000 000010 USERF,,10 ;IN THE AC'S
2550 032740 254 04 0 00 032740 HALT .
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 40
DFKEBM MAC 10-Aug-84 15:18 TEST USER MODE ADDRESSING SEQ 0083
2551 032741 200 00 0 00 036424 UBLT5: MOVE UPMP+MUUO ;COMPLETED, CHECK RESULTS
2552 032742 312 00 0 00 034240 CAME [HALT 13]
2553 ERROR1 13,C,A,INCORRECT TERMINATION MUUO^
2554 SALL
2555 032743 036 13 0 00 034314
2556 032744 035 02 0 00 032710 ERLP2 UBLT4
2557
2558 036425 A=UPMP+MUUO+1
2559 034257 C=[USERF,,14]
2560
2561 032745 200 00 0 00 036425 MOVE UPMP+MUUO+1
2562 032746 312 00 0 00 034257 CAME [USERF,,14]
2563 ERROR1 13,C,A,INCORRECT TERMINATION PC^
2564 032747 036 13 0 00 034317
2565 032750 035 02 0 00 032710 ERLP2 UBLT4
2566 032751 254 00 0 00 032756 JRST UBLT7
2567
2568 000005 C=5
2569 000006 A=6
2570
2571 032752 200 05 0 00 036500 UBLT6: MOVE 5,UPMP+LEUPFW
2572 032753 200 06 0 00 036425 MOVE 6,UPMP+MUUO+1
2573 ERROR1 13,C,A,PAGE FAILURE,<CORRECT=PF WORD, ACTUAL=PF PC>^
2574 032754 036 13 0 00 034322
2575 032755 035 02 0 00 032710 ERLP2 UBLT4
2576
2577 032756 254 00 0 00 032757 UBLT7: JRST LAST
2578
2579 032757 254 00 0 00 030057 LAST: JRST BEGEND
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 41
DFKEBM MAC 10-Aug-84 15:18 SPECIAL PROGRAM SUBROUTINES SEQ 0084
2580 SUBTTL SPECIAL PROGRAM SUBROUTINES
2581
2582 IFNDEF PAGSIZ,<PAGSIZ=21>
2583
2584 032760 000000 000000 TRAPST: 0 ;FOR JSR
2585 032761 202 00 0 00 035011 MOVEM XAC0# ;SAVE AC0
2586 032762 200 00 0 00 034325 MOVE [TPLST,,421] ;BLT POINTER
2587 032763 251 00 0 00 000423 BLT 423 ;FILL LOCATIONS
2588 032764 200 00 0 00 035011 MOVE XAC0 ;RESTORE AC0
2589 032765 254 00 1 00 032760 JRST @TRAPST ;RETURN
2590
2591 032766 201 00 0 00 000421 TPLST: MOVEI 421
2592 032767 201 00 0 00 000422 MOVEI 422
2593 032770 201 00 0 00 000423 MOVEI 423
2594
2595 ;*PAGE TABLE SETUP
2596
2597 032771 205 01 0 00 777757 PAGSET: MOVSI 1,-PAGSIZ ;SET UP PAGE COUNT
2598 032772 200 00 0 00 034326 MOVE [737776,,737777] ;ADDRESS
2599 032773 332 00 0 00 035005 SKIPE CNSFLG# ;IF CONCEALED DONT SET PUBLIC
2600 032774 200 00 0 00 034327 MOVE [537776,,537777]
2601 032775 270 00 0 00 034330 ADD [2,,2] ;NEW ADRESS
2602 032776 202 00 0 01 036000 MOVEM UPMP(1) ;STORE PAGE MAP
2603 032777 253 01 0 00 032775 AOBJN 1,.-2 ;LOOP TILL DONE
2604 033000 265 01 0 00 033001 PAGE1: JSP 1,.+1
2605 033001 603 01 0 00 010000 TLNE 1,USERF ;IF IN USER MODE FORGET PAGE RESET
2606 033002 263 17 0 00 000000 POPJ P, ;EXIT DIRECTLY
2607 033003 7 010 20 0 00 020000 CONO PAG,LTRPEN
2608 033004 7 010 14 0 00 034246 DATAO PAG,[LLDUSB,,400000!<UPMP_-^D9>]
2609 033005 254 02 1 00 033006 JRSTF @.+1 ;ENTER USER MODE
2610 033006 010000 033007 USERF,,.+1 ;ENTRY FLAG
2611 033007 254 01 0 00 033010 JRST 1,.+1 ;ENTRY
2612 033010 265 00 0 00 033011 JSP .+1 ;GET FLAGS
2613 033011 607 00 0 00 010000 TLNN USERF ;DID WE GET INTO USER MODE?
2614 ERROR1 13,C,A,ENTRY TO USER MODE UNSUCESSFUL,JRSTF FAILED^
2615 033012 036 13 0 00 034342
2616 033013 035 02 0 00 032771 ERLP2 PAGSET
2617 033014 263 17 0 00 000000 POPJ P, ;RETURN TO CALLING SEQUENCE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0085
2618 SUBTTL *STOR* RESERVED STORAGE, SEPT 18,1979
2619
2620 ;PROGRAM LITERALS
2621
2622 XLIST
2623 IFNDEF $LPAPER,<LIST>
2624 033015 LIT
2625 033015 55 57 56 51 64 57
2626 033016 62 00 65 65 57 00
2627 033017 64 45 63 64 00 15
2628 033020 00 64 62 41 60 60
2629 033021 51 56 47 00 51 56
2630 033022 00 53 45 62 56 41
2631 033023 54 00 55 57 44 45
2632 033024 77 00 00 00 00 00
2633 033025 100000 400000
2634 033026 55 65 65 57 00 44
2635 033027 51 44 00 56 57 64
2636 033030 00 64 62 41 60 00
2637 033031 51 56 00 53 45 62
2638 033032 56 41 54 00 55 57
2639 033033 44 45 77 00 00 00
2640 033034 43 10 43 57 62 62
2641 033035 45 43 64 11 35 55
2642 033036 57 56 51 64 57 62
2643 033037 00 65 65 57 77 00
2644 033040 033015 033026
2645 033041 030632 000424
2646 033042 033034 000000
2647 033043 43 10 43 57 62 62
2648 033044 45 43 64 11 35 55
2649 033045 65 65 57 77 00 00
2650 033046 033015 033026
2651 033047 030655 000424
2652 033050 033043 000000
2653 033051 033015 033026
2654 033052 030700 000424
2655 033053 033043 000000
2656 033054 55 57 56 51 64 57
2657 033055 62 00 65 65 57 00
2658 033056 64 45 63 64 00 15
2659 033057 00 65 65 57 00 63
2660 033060 64 57 62 45 00 51
2661 033061 56 64 57 00 24 22
2662 033062 24 77 00 00 00 00
2663 033063 43 57 56 64 45 56
2664 033064 64 63 00 57 46 00
2665 033065 24 22 24 00 51 63
2666 033066 00 56 57 64 00 45
2667 033067 61 65 41 54 00 64
2668 033070 57 00 45 70 45 43
2669 033071 65 64 45 44 00 65
2670 033072 65 57 77 00 00 00
2671 033073 033054 033063
2672 033074 030723 000424
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1-1
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0086
2673 033075 033024 000000
2674 033076 55 57 56 51 64 57
2675 033077 62 00 65 65 57 00
2676 033100 15 00 63 64 57 62
2677 033101 45 00 43 57 62 62
2678 033102 45 43 64 00 60 43
2679 033103 77 00 00 00 00 00
2680 033104 000000 030750
2681 033105 55 65 65 57 00 44
2682 033106 51 44 00 56 57 64
2683 033107 00 63 64 57 62 45
2684 033110 00 64 50 45 00 43
2685 033111 57 62 62 45 43 64
2686 033112 00 60 43 77 00 00
2687 033113 43 10 24 22 25 11
2688 033114 00 50 41 63 00 60
2689 033115 43 00 63 64 57 62
2690 033116 45 44 77 00 00 00
2691 033117 033076 033105
2692 033120 033104 000001
2693 033121 033113 000000
2694 033122 55 57 56 51 64 57
2695 033123 62 00 65 65 57 00
2696 033124 15 00 63 64 57 62
2697 033125 45 00 45 00 43 57
2698 033126 62 62 45 43 64 54
2699 033127 71 77 00 00 00 00
2700 033130 55 65 65 57 00 44
2701 033131 51 44 00 56 57 64
2702 033132 00 63 64 57 62 45
2703 033133 00 45 00 43 57 62
2704 033134 62 45 43 64 54 71
2705 033135 77 00 00 00 00 00
2706 033136 43 10 24 22 24 11
2707 033137 00 50 41 63 00 45
2708 033140 00 66 41 54 65 45
2709 033141 00 63 64 57 62 45
2710 033142 44 77 00 00 00 00
2711 033143 033122 033130
2712 033144 000007 000001
2713 033145 033136 000000
2714 033146 55 57 56 51 64 57
2715 033147 62 00 65 65 57 00
2716 033150 64 45 63 64 00 15
2717 033151 00 64 62 41 60 60
2718 033152 51 56 47 00 51 56
2719 033153 00 43 57 56 43 45
2720 033154 41 54 45 44 00 55
2721 033155 57 44 45 77 00 00
2722 033156 55 65 65 57 00 44
2723 033157 51 44 00 56 57 64
2724 033160 00 64 62 41 60 00
2725 033161 51 56 00 43 57 56
2726 033162 43 45 41 54 45 44
2727 033163 00 55 57 44 45 77
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1-2
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0087
2728 033164 033146 033156
2729 033165 031022 036424
2730 033166 033034 000000
2731 033167 55 65 65 57 00 64
2732 033170 62 41 60 60 45 44
2733 033171 00 64 57 00 51 56
2734 033172 43 57 62 62 45 43
2735 033173 64 00 64 62 41 60
2736 033174 00 54 57 43 41 64
2737 033175 51 57 56 77 00 00
2738 033176 033146 033167
2739 033177 031022 036424
2740 033200 033024 000000
2741 033201 55 65 65 57 00 44
2742 033202 51 44 00 56 57 64
2743 033203 00 64 62 41 60 77
2744 033204 033054 033201
2745 033205 031056 036424
2746 033206 033024 000000
2747 033207 033054 033063
2748 033210 031056 036424
2749 033211 033024 000000
2750 033212 55 65 65 57 00 64
2751 033213 62 41 60 45 44 00
2752 033214 64 57 00 51 56 43
2753 033215 57 62 62 45 43 64
2754 033216 00 64 62 41 60 00
2755 033217 54 57 43 41 64 51
2756 033220 57 56 77 00 00 00
2757 033221 033054 033212
2758 033222 031056 036424
2759 033223 033024 000000
2760 033224 55 57 56 51 64 57
2761 033225 62 00 65 65 57 00
2762 033226 15 00 63 64 57 62
2763 033227 51 56 47 00 64 50
2764 033230 45 00 43 57 62 62
2765 033231 45 43 64 00 60 43
2766 033232 77 00 00 00 00 00
2767 033233 000000 031115
2768 033234 033224 033105
2769 033235 033233 000001
2770 033236 033024 000000
2771 033237 55 65 65 57 00 44
2772 033240 51 44 00 56 57 64
2773 033241 00 64 62 41 60 00
2774 033242 64 57 00 43 57 62
2775 033243 62 45 43 64 00 64
2776 033244 62 41 60 77 00 00
2777 033245 033224 033237
2778 033246 033233 000001
2779 033247 033024 000000
2780 033250 55 65 65 57 00 63
2781 033251 64 57 62 51 56 47
2782 033252 00 64 50 45 00 43
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1-3
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0088
2783 033253 57 62 62 45 43 64
2784 033254 00 45 00 46 51 45
2785 033255 54 44 77 00 00 00
2786 033256 55 65 65 57 00 44
2787 033257 51 44 00 56 57 64
2788 033260 00 64 62 41 60 00
2789 033261 51 56 00 43 57 56
2790 033262 43 45 41 54 45 44
2791 033263 77 00 00 00 00 00
2792 033264 033250 033256
2793 033265 000007 000001
2794 033266 033024 000000
2795 033267 033250 033130
2796 033270 000007 000001
2797 033271 033024 000000
2798 033272 033250 033237
2799 033273 000007 000001
2800 033274 033024 000000
2801 033275 55 57 56 51 64 57
2802 033276 62 00 65 65 57 00
2803 033277 64 45 63 64 00 15
2804 033300 00 64 62 41 60 60
2805 033301 51 56 47 00 51 56
2806 033302 00 60 65 42 54 51
2807 033303 43 00 55 57 44 45
2808 033304 77 00 00 00 00 00
2809 033305 55 65 65 57 00 44
2810 033306 51 44 00 56 57 64
2811 033307 00 64 62 41 60 00
2812 033310 51 56 00 60 65 42
2813 033311 54 51 43 77 00 00
2814 033312 033275 033305
2815 033313 031205 036424
2816 033314 033034 000000
2817 033315 55 65 65 57 00 44
2818 033316 51 44 00 56 57 64
2819 033317 00 64 62 41 60 00
2820 033320 64 57 00 60 65 42
2821 033321 54 51 43 00 56 57
2822 033322 00 64 62 41 60 77
2823 033323 033275 033315
2824 033324 031205 036424
2825 033325 033024 000000
2826 033326 55 65 65 57 00 44
2827 033327 51 44 00 56 57 64
2828 033330 00 64 62 41 60 00
2829 033331 51 56 00 60 65 42
2830 033332 54 51 43 00 55 57
2831 033333 44 45 77 00 00 00
2832 033334 033054 033326
2833 033335 031241 036424
2834 033336 033024 000000
2835 033337 033054 033063
2836 033340 031241 036424
2837 033341 033024 000000
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1-4
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0089
2838 033342 55 65 65 57 00 44
2839 033343 51 44 00 56 57 64
2840 033344 00 64 62 41 60 00
2841 033345 64 57 00 60 65 42
2842 033346 54 51 43 00 64 62
2843 033347 41 60 77 00 00 00
2844 033350 033054 033342
2845 033351 031241 036424
2846 033352 033024 000000
2847 033353 55 57 56 51 64 57
2848 033354 62 00 65 65 57 00
2849 033355 15 00 63 64 57 62
2850 033356 51 56 47 00 45 00
2851 033357 43 57 62 62 45 43
2852 033360 64 54 71 77 00 00
2853 033361 000000 031302
2854 033362 033353 033305
2855 033363 033361 000000
2856 033364 033024 000000
2857 033365 033353 033105
2858 033366 033361 000000
2859 033367 033024 000000
2860 033370 55 65 65 57 00 44
2861 033371 51 44 00 56 57 64
2862 033372 00 64 62 41 60 00
2863 033373 64 57 00 60 65 42
2864 033374 54 51 43 77 00 00
2865 033375 033353 033370
2866 033376 033361 000000
2867 033377 033024 000000
2868 033400 033250 033305
2869 033401 000007 000001
2870 033402 033024 000000
2871 033403 033250 033370
2872 033404 000007 000001
2873 033405 033024 000000
2874 033406 55 57 56 51 64 57
2875 033407 62 00 65 65 57 00
2876 033410 64 45 63 64 00 15
2877 033411 00 64 62 41 60 60
2878 033412 51 56 47 77 00 00
2879 033413 033406 033201
2880 033414 031375 036424
2881 033415 033034 000000
2882 033416 55 65 65 57 00 44
2883 033417 51 44 00 56 57 64
2884 033420 00 64 62 41 60 00
2885 033421 64 57 00 43 57 62
2886 033422 62 45 43 64 00 64
2887 033423 62 41 60 00 51 56
2888 033424 00 60 65 42 54 51
2889 033425 43 77 00 00 00 00
2890 033426 033406 033416
2891 033427 031375 036424
2892 033430 033024 000000
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1-5
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0090
2893 033431 033054 033305
2894 033432 031432 036424
2895 033433 033024 000000
2896 033434 033054 033063
2897 033435 031432 036424
2898 033436 033024 000000
2899 033437 55 65 65 57 00 64
2900 033440 62 41 60 60 45 44
2901 033441 00 64 57 00 67 62
2902 033442 57 56 47 00 64 62
2903 033443 41 60 00 51 56 00
2904 033444 60 65 42 54 51 43
2905 033445 77 00 00 00 00 00
2906 033446 033054 033437
2907 033447 031432 036424
2908 033450 033024 000000
2909 033451 033054 033305
2910 033452 031470 036424
2911 033453 033024 000000
2912 033454 033054 033105
2913 033455 031470 036424
2914 033456 033024 000000
2915 033457 033054 033416
2916 033460 031470 036424
2917 033461 033024 000000
2918 033462 033054 033326
2919 033463 031523 036424
2920 033464 033024 000000
2921 033465 033054 033130
2922 033466 031523 036424
2923 033467 033024 000000
2924 033470 033054 033416
2925 033471 031523 036424
2926 033472 033024 000000
2927 033473 63 65 60 45 62 66
2928 033474 51 63 57 62 00 55
2929 033475 57 44 45 00 64 45
2930 033476 63 64 77 00 00 00
2931 033477 253 00 0 00 400001
2932 033500 254 01 0 00 031566
2933 033501 55 65 65 57 00 44
2934 033502 51 44 00 56 57 64
2935 033503 00 43 41 65 63 45
2936 033504 00 64 62 41 60 00
2937 033505 64 57 00 53 45 62
2938 033506 56 41 54 00 46 62
2939 033507 57 55 00 63 65 60
2940 033510 45 62 66 51 63 57
2941 033511 62 77 00 00 00 00
2942 033512 033473 033501
2943 033513 000000 000000
2944 033514 033024 000000
2945 033515 55 65 65 57 00 44
2946 033516 51 44 00 56 57 64
2947 033517 00 64 62 41 60 00
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1-6
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0091
2948 033520 64 57 00 63 65 60
2949 033521 45 62 66 51 63 57
2950 033522 62 00 64 62 41 60
2951 033523 77 00 00 00 00 00
2952 033524 033473 033515
2953 033525 000000 000000
2954 033526 033024 000000
2955 033527 41 62 57 66 00 64
2956 033530 62 41 60 00 64 45
2957 033531 63 64 77 00 00 00
2958 033532 000000 000421
2959 033533 000200 031610
2960 033534 41 62 57 66 00 44
2961 033535 51 44 00 56 57 64
2962 033536 00 64 62 41 60 00
2963 033537 64 57 00 24 22 21
2964 033540 77 00 00 00 00 00
2965 033541 033527 033534
2966 033542 033532 000000
2967 033543 033024 000000
2968 033544 60 44 54 57 66 00
2969 033545 64 62 41 60 00 64
2970 033546 45 63 64 77 00 00
2971 033547 000000 000422
2972 033550 000400 031624
2973 033551 60 44 57 66 64 60
2974 033552 00 44 51 44 00 56
2975 033553 57 64 00 64 62 41
2976 033554 60 00 64 57 00 24
2977 033555 22 22 77 00 00 00
2978 033556 033544 033551
2979 033557 033547 000000
2980 033560 033024 000000
2981 033561 64 62 41 60 23 00
2982 033562 64 62 41 60 00 64
2983 033563 45 63 64 77 00 00
2984 033564 000000 000423
2985 033565 000600 031640
2986 033566 64 62 41 60 23 00
2987 033567 64 62 41 60 00 44
2988 033570 51 44 00 56 57 64
2989 033571 00 64 62 41 60 00
2990 033572 64 57 00 24 22 23
2991 033573 77 00 00 00 00 00
2992 033574 033561 033566
2993 033575 033564 000000
2994 033576 033024 000000
2995 033577 010000 031674
2996 033600 000000 000001
2997 033601 55 65 65 57 00 44
2998 033602 51 44 00 56 57 64
2999 033603 00 43 41 65 63 45
3000 033604 00 64 62 41 60 77
3001 033605 033561 033601
3002 033606 033577 000001
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1-7
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0092
3003 033607 033024 000000
3004 033610 55 65 65 57 00 44
3005 033611 51 44 00 56 57 64
3006 033612 00 62 45 15 45 56
3007 033613 64 45 62 00 65 63
3008 033614 45 62 15 55 57 44
3009 033615 45 77 00 00 00 00
3010 033616 033561 033610
3011 033617 033577 000001
3012 033620 033024 000000
3013 033621 000000 031715
3014 033622 004000 031752
3015 033623 033561 033601
3016 033624 033622 000001
3017 033625 033024 000000
3018 033626 55 55 65 57 00 44
3019 033627 51 44 00 56 57 64
3020 033630 00 63 45 64 00 45
3021 033631 70 51 57 64 00 46
3022 033632 54 41 47 77 00 00
3023 033633 033561 033626
3024 033634 033622 000001
3025 033635 033024 000000
3026 033636 400000 032007
3027 033637 033561 033601
3028 033640 033636 000001
3029 033641 033024 000000
3030 033642 55 65 65 57 00 44
3031 033643 51 44 00 56 57 64
3032 033644 00 63 45 64 00 41
3033 033645 62 51 64 50 55 45
3034 033646 64 51 43 00 57 66
3035 033647 45 62 46 54 57 67
3036 033650 00 46 54 41 47 77
3037 033651 033561 033642
3038 033652 033636 000001
3039 033653 033024 000000
3040 033654 200000 032044
3041 033655 033561 033601
3042 033656 033654 000001
3043 033657 033024 000000
3044 033660 55 65 65 57 00 44
3045 033661 51 44 00 56 57 64
3046 033662 00 63 45 64 00 43
3047 033663 62 71 20 00 46 54
3048 033664 41 47 77 00 00 00
3049 033665 033561 033660
3050 033666 033654 000001
3051 033667 033024 000000
3052 033670 100000 032101
3053 033671 033561 033601
3054 033672 033670 000001
3055 033673 033024 000000
3056 033674 55 65 65 57 00 44
3057 033675 51 44 00 56 57 64
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1-8
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0093
3058 033676 00 63 45 64 00 43
3059 033677 62 71 21 00 46 54
3060 033700 41 47 77 00 00 00
3061 033701 033561 033674
3062 033702 033670 000001
3063 033703 033024 000000
3064 033704 040000 032136
3065 033705 033561 033601
3066 033706 033704 000001
3067 033707 033024 000000
3068 033710 55 65 65 57 00 44
3069 033711 51 44 00 56 57 64
3070 033712 00 63 45 64 00 46
3071 033713 57 66 00 46 54 41
3072 033714 47 77 00 00 00 00
3073 033715 033561 033710
3074 033716 033704 000001
3075 033717 033024 000000
3076 033720 020000 032173
3077 033721 033561 033601
3078 033722 033720 000001
3079 033723 033024 000000
3080 033724 55 65 65 57 00 44
3081 033725 51 44 00 56 57 64
3082 033726 00 63 45 64 00 42
3083 033727 51 63 00 46 54 41
3084 033730 47 77 00 00 00 00
3085 033731 033561 033724
3086 033732 033720 000001
3087 033733 033024 000000
3088 033734 000100 032230
3089 033735 033561 033601
3090 033736 033734 000001
3091 033737 033024 000000
3092 033740 55 65 65 57 00 44
3093 033741 51 44 00 56 57 64
3094 033742 00 63 45 64 00 46
3095 033743 70 65 00 46 54 41
3096 033744 47 77 00 00 00 00
3097 033745 033561 033740
3098 033746 033734 000001
3099 033747 033024 000000
3100 033750 000040 032265
3101 033751 033561 033601
3102 033752 033750 000001
3103 033753 033024 000000
3104 033754 55 65 65 57 00 44
3105 033755 51 44 00 56 57 64
3106 033756 00 63 45 64 00 44
3107 033757 43 53 00 46 54 41
3108 033760 47 77 00 00 00 00
3109 033761 033561 033754
3110 033762 033750 000001
3111 033763 033024 000000
3112 033764 760140 032322
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1-9
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0094
3113 033765 033561 033601
3114 033766 033764 000001
3115 033767 033024 000000
3116 033770 55 65 65 57 00 44
3117 033771 51 44 00 56 57 64
3118 033772 00 63 45 64 00 43
3119 033773 62 71 20 13 43 62
3120 033774 71 21 13 41 62 57
3121 033775 66 13 46 57 66 13
3122 033776 46 70 65 13 44 43
3123 033777 53 13 42 51 63 00
3124 034000 46 54 41 47 63 77
3125 034001 033561 033770
3126 034002 033764 000001
3127 034003 033024 000000
3128 034004 51 57 64 00 55 65
3129 034005 65 57 76 43 57 56
3130 034006 43 45 41 54 45 44
3131 034007 00 55 57 44 45 77
3132 034010 51 57 64 00 44 51
3133 034011 44 00 56 57 64 00
3134 034012 64 62 41 60 77 00
3135 034013 43 35 51 57 64 77
3136 034014 034004 034010
3137 034015 032352 036424
3138 034016 034013 000000
3139 034017 51 57 64 00 44 51
3140 034020 44 00 56 57 64 00
3141 034021 64 62 41 60 00 64
3142 034022 57 00 60 62 57 60
3143 034023 45 62 00 64 62 41
3144 034024 60 77 00 00 00 00
3145 034025 034004 034017
3146 034026 032352 036424
3147 034027 033024 000000
3148 034030 43 57 56 64 45 56
3149 034031 64 63 00 57 46 00
3150 034032 24 22 24 00 56 57
3151 034033 64 00 45 70 45 43
3152 034034 65 64 45 44 00 51
3153 034035 57 64 77 00 00 00
3154 034036 034004 034030
3155 034037 032352 036424
3156 034040 033024 000000
3157 034041 000000 032353
3158 034042 51 57 64 00 55 65
3159 034043 65 57 00 44 51 44
3160 034044 00 56 57 64 00 63
3161 034045 64 57 62 45 00 43
3162 034046 57 62 62 45 43 64
3163 034047 00 60 43 77 00 00
3164 034050 034004 034042
3165 034051 034041 000001
3166 034052 033024 000000
3167 034053 51 57 64 00 55 65
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1-10
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0095
3168 034054 65 57 76 60 65 42
3169 034055 54 51 43 00 55 57
3170 034056 44 45 77 00 00 00
3171 034057 034053 034010
3172 034060 032420 036424
3173 034061 034013 000000
3174 034062 034053 034017
3175 034063 032420 036424
3176 034064 033024 000000
3177 034065 034053 034030
3178 034066 032420 036424
3179 034067 033024 000000
3180 034070 000000 032421
3181 034071 034053 034042
3182 034072 034070 000001
3183 034073 033024 000000
3184 034074 51 57 64 00 55 65
3185 034075 65 57 76 63 65 60
3186 034076 45 62 66 51 63 57
3187 034077 62 00 55 57 44 45
3188 034100 77 00 00 00 00 00
3189 034101 255 17 0 00 400001
3190 034102 254 01 0 00 032473
3191 034103 034074 034010
3192 034104 400001 000424
3193 034105 034013 000000
3194 034106 51 57 64 00 44 51
3195 034107 44 00 56 57 64 00
3196 034110 64 62 41 60 00 64
3197 034111 57 00 63 65 60 45
3198 034112 62 66 51 63 57 62
3199 034113 00 64 62 41 60 77
3200 034114 034074 034106
3201 034115 400001 000424
3202 034116 033024 000000
3203 034117 034074 034030
3204 034120 400001 000424
3205 034121 033024 000000
3206 034122 000000 400002
3207 034123 034074 034042
3208 034124 034122 000001
3209 034125 033024 000000
3210 034126 60 62 57 60 62 51
3211 034127 45 64 41 62 71 00
3212 034130 64 62 41 56 63 46
3213 034131 45 62 76 63 65 60
3214 034132 45 62 66 51 63 57
3215 034133 62 00 55 57 44 45
3216 034134 77 00 00 00 00 00
3217 034135 254 00 0 00 032557
3218 034136 254 01 0 00 032554
3219 034137 52 62 63 64 00 64
3220 034140 57 00 53 45 62 56
3221 034141 41 54 77 00 00 00
3222 034142 56 57 64 50 51 56
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1-11
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0096
3223 034143 47 00 50 41 60 60
3224 034144 45 56 45 44 77 00
3225 034145 034126 034137
3226 034146 000000 000000
3227 034147 034142 000000
3228 034150 52 62 63 64 00 67
3229 034151 45 56 64 00 64 57
3230 034152 00 53 45 62 56 41
3231 034153 54 77 00 00 00 00
3232 034154 56 57 00 64 62 41
3233 034155 60 77 00 00 00 00
3234 034156 034126 034150
3235 034157 000000 000000
3236 034160 034154 000000
3237 034161 002000 032560
3238 034162 60 41 47 45 00 46
3239 034163 41 51 54 00 63 41
3240 034164 66 45 44 00 60 43
3241 034165 00 67 62 57 56 47
3242 034166 77 00 00 00 00 00
3243 034167 034126 034162
3244 034170 000013 000014
3245 034171 033024 000000
3246 034172 60 62 57 60 62 51
3247 034173 45 64 41 62 64 71
3248 034174 00 67 62 51 64 45
3249 034175 76 63 65 60 45 62
3250 034176 66 51 63 57 62 00
3251 034177 55 57 44 45 77 00
3252 034200 476 00 0 00 035010
3253 034201 254 01 0 00 032607
3254 034202 034172 034137
3255 034203 000000 000000
3256 034204 034154 000000
3257 034205 213000 035010
3258 034206 211000 035010
3259 034207 60 41 47 45 00 46
3260 034210 41 51 54 00 67 57
3261 034211 62 44 00 67 62 57
3262 034212 56 47 77 00 00 00
3263 034213 034172 034207
3264 034214 000013 000014
3265 034215 033024 000000
3266 034216 002000 400001
3267 034217 034172 034162
3268 034220 000013 000014
3269 034221 033024 000000
3270 034222 67 62 57 64 45 00
3271 034223 51 56 64 57 00 53
3272 034224 45 62 56 41 54 00
3273 034225 54 57 43 77 00 00
3274 034226 034172 034222
3275 034227 000013 000014
3276 034230 033024 000000
3277 034231 65 63 45 62 00 55
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1-12
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0097
3278 034232 57 44 45 00 60 65
3279 034233 42 54 51 43 76 55
3280 034234 41 70 51 55 65 55
3281 034235 00 42 54 57 43 53
3282 034236 00 64 62 41 56 63
3283 034237 46 45 62 77 00 00
3284 034240 254 04 0 00 000013
3285 034241 254 01 0 00 000011
3286 034242 402 00 0 00 000020
3287 034243 251 07 0 00 777777
3288 034244 000020 000021
3289 034245 000000 036502
3290 034246 100000 400036
3291 034247 51 56 43 57 62 62
3292 034250 45 43 64 00 64 45
3293 034251 62 55 51 56 41 64
3294 034252 51 57 56 00 55 65
3295 034253 65 57 77 00 00 00
3296 034254 034231 034247
3297 034255 034240 036424
3298 034256 033024 000000
3299 034257 010000 000014
3300 034260 51 56 43 57 62 62
3301 034261 45 43 64 00 64 45
3302 034262 62 55 51 56 41 64
3303 034263 51 57 56 00 60 43
3304 034264 77 00 00 00 00 00
3305 034265 034231 034260
3306 034266 034257 036425
3307 034267 033024 000000
3308 034270 60 41 47 45 00 46
3309 034271 41 51 54 65 62 45
3310 034272 77 00 00 00 00 00
3311 034273 43 57 62 62 45 43
3312 034274 64 35 60 46 00 67
3313 034275 57 62 44 14 00 41
3314 034276 43 64 65 41 54 35
3315 034277 60 46 00 60 43 77
3316 034300 034231 034270
3317 034301 000005 000006
3318 034302 034273 000000
3319 034303 65 63 45 62 00 55
3320 034304 57 44 45 00 43 57
3321 034305 56 43 45 41 54 45
3322 034306 44 76 55 41 70 51
3323 034307 55 65 55 00 42 54
3324 034310 57 43 53 00 64 62
3325 034311 41 56 63 46 45 62
3326 034312 77 00 00 00 00 00
3327 034313 476 00 0 00 000020
3328 034314 034303 034247
3329 034315 034240 036424
3330 034316 033024 000000
3331 034317 034303 034260
3332 034320 034257 036425
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53A(1152) 16:29 4-Apr-85 Page 1-13
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0098
3333 034321 033024 000000
3334 034322 034303 034270
3335 034323 000005 000006
3336 034324 034273 000000
3337 034325 032766 000421
3338 034326 737776 737777
3339 034327 537776 537777
3340 034330 000002 000002
3341 034331 45 56 64 62 71 00
3342 034332 64 57 00 65 63 45
3343 034333 62 00 55 57 44 45
3344 034334 00 65 56 63 65 43
3345 034335 45 63 63 46 65 54
3346 034336 77 00 00 00 00 00
3347 034337 52 62 63 64 46 00
3348 034340 46 41 51 54 45 44
3349 034341 77 00 00 00 00 00
3350 034342 034303 034331
3351 034343 000005 000006
3352 034344 034337 000000
3353 LIST
3354 034703 000000 000000 ENDSLD: 0
3355
3356 IFDEF DEBUG,<
3357 034704 PATCH: BLOCK DEBUG ;PATCHING AREA
3358 >
3359
3360 ;PROGRAM VARIABLES
3361 035004 VAR
3362
3363 IFDEF PGMEND,<
3364 035012 000000 000000 END: 0
3365 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 035013
CPU TIME USED 00:11.428
27P CORE USED
A 785# 807 829 851 864# 885 899# 917 925# 946 959# 986 995 1002#
1029 1034 1043 1051# 1078 1082 1089# 1116 1121 1129 1138# 1165 1174 1181# SEQ 0099
1208 1213 1222 1230# 1258 1263 1267 1274# 1305 1310 1318 1325# 1352 1355
1369# 1395 1400 1409 1432 1437 1441 1443# 1467 1472 1479 1488# 1526 1531
1549# 1564 1572# 1588 1596# 1611 1620# 1652 1658 1685# 1717 1723 1731# 1763
1769 1776# 1808 1814 1821# 1853 1859 1866# 1898 1904 1911# 1943 1949 1956#
1988 1994 2001# 2033 2039 2047# 2079 2086 2093# 2129 2133 2139 2143# 2148
2160# 2196 2200 2206 2210# 2215 2227# 2270 2275 2281 2285# 2290 2318# 2354
2359 2364# 2368 2369 2371 2377# 2404 2408# 2414 2415 2417 2421 2422 2424
2428 2429 2431 2444# 2486 2489# 2495 2500# 2505 2513# 2555 2558# 2564 2569#
2574 2615
ABORT 165#
ALTMGO 519#
ANXM 433#
APR 109 111
AROV 433# 1732 1749 1766 2048 2065 2082
AROVTP 138# 1548 1561
AROVU 433#
AST 634#
ATSIN 635#
AWMBEG 928#
AWMST 929# 947 951
AWMUPC 929 942#
AWMUUO 938 939 940#
AXMBEG 792#
AXMST 800# 808 814
AXMUPC 800 809#
AXMUUO 786 799 804# 812
AYMBEG 810 867#
AYMST 875# 886 892
AYMUPC 875 881#
AYMUUO 865 874 879# 882 890
AZMBEG 888 901#
AZMST 909# 918
AZMUPC 909 913#
AZMUUO 898 908 911# 914
BEGEND 515# 2579
BEGIN 34 35 40 41 42 43 44 45 46 47 48 49 50 446#
3365
BEGIN1 462# 516
BELL 638#
BIS 433# 1912 1929 1946 2048 2065 2082
BWERR 1104 1128#
BWMBEG 1080 1092#
BWMST 1101# 1117 1122 1126 1130
BWMUPC 1102 1118#
BWMUUO 1111 1112 1113#
BXERR 977 994#
BXMBEG 950 962#
BXMST 974# 987 993 996
BXMUPC 975 988#
BXMUUO 960 973 983# 991
BYERR 1020 1042#
BYMBEG 989 1005#
BYMST 1017# 1030 1035 1041 1044 SEQ 0100
BYMUPC 1018 1031#
BYMUUO 1003 1016 1026# 1032 1039
BZERR 1068 1081#
BZMBEG 1037 1053#
BZMST 1065# 1079 1083
BZMUPC 1066 1074#
BZMUUO 1050 1064 1072# 1075
C 786# 807 815# 829 837# 851 865# 885 898# 917 926# 946 960# 986
995 1003# 1029 1034 1043 1050# 1078 1082 1090# 1116 1121 1129 1139# 1165
1174 1182# 1208 1213 1222 1229# 1258 1263 1267 1275# 1305 1310 1318 1326#
1352 1355 1370# 1395 1400 1409 1411# 1432 1437 1441 1444# 1467 1472 1479
1489# 1526 1531 1548# 1564 1571# 1588 1595# 1611 1621# 1652 1658 1686# 1717
1723 1732# 1763 1769 1777# 1808 1814 1822# 1853 1859 1867# 1898 1904 1912#
1943 1949 1957# 1988 1994 2002# 2033 2039 2048# 2079 2086 2094# 2129 2133
2139 2142# 2148 2161# 2196 2200 2206 2209# 2215 2228# 2270 2275 2281 2284#
2290 2317# 2354 2359 2363# 2367 2369 2371 2376# 2404 2407# 2411 2413 2415
2417 2420 2422 2424 2427 2429 2431 2445# 2486 2490# 2495 2499# 2505 2514#
2555 2559# 2564 2568# 2574 2615
CACHE 2328# 2328 2412
CCA 433#
CHAIN 185#
CHNOFF 433#
CHNON 433#
CLK 433#
CLKCLR 433#
CLKDIS 433#
CLKENB 433#
CLKU 433#
CLOCKF 501#
CNSFLG 967 1006 1058 1093 1142 1185 1233 1252 1278 1299 1329 1372 1414 1447
1633 1698 1744 1789 1834 1879 1924 1969 2014 2060 2101 2168 2599# 2599
CNTLC 518#
CNTRP 147# 976 1019 1067 1103 1159 1202 1248 1291 1346 1391 1429 1461 1506
1667 2112 2182 2242 2465 2533
COMMA 627#
CONSW 502#
COUNT 793# 793 809 813 817 831 835 839 853 857 868 887 891 971#
971 988 992 1010 1036 1040 1146# 1146 1167 1171 1189 1215 1219 1333#
1333 1358 1362 1376 1402 1406
CPOPJ 522#
CPOPJ1 520#
CRLF 315 316 622#
CRLF2 319 320 624#
CRY0 433# 1777 1794 1811 2048 2065 2082
CRY1 433# 1822 1839 1856 2048 2065 2082
CSHFLG 681#
CSHMEM 682#
CTRP 148# 1507 1670 2119 2186 2243 2468 2535
CWERR 1289 1317#
CWMBEG 1265 1277#
CWMST 1286# 1306 1311 1315 1319
CWMUPC 1287 1307#
CWMUUO 1296 1297 1302# SEQ 0101
CXERR 1156 1173#
CXMBEG 1125 1127 1141#
CXMST 1153# 1166 1172 1175
CXMUPC 1154 1167#
CXMUUO 1139 1152 1162# 1170
CYCL60 675#
CYERR 1199 1221#
CYMBEG 1168 1184# 1223
CYMST 1196# 1209 1214 1220
CYMUPC 1197 1210#
CYMUUO 1182 1195 1205# 1211 1218
CZERR 1247 1266#
CZMBEG 1216 1232# 1268
CZMST 1244# 1259 1264
CZMUPC 1245 1260#
CZMUUO 1229 1243 1255# 1261
DCK 433# 2002 2019 2036 2048 2065 2082
DDTLNK 199# 460
DDTSRT 460#
DEBUG 36# 3356 3357
DECVER 5# 11 16 481
DF22F 586#
DIAGMN 449#
DING 171#
DOLLAR 641#
DSKUPD 486
DWMBEG 1439 1446#
DWMST 1453# 1468 1473 1477 1480
DWMUER 1458 1478#
DWMUPC 1454 1469#
DWMUUO 1444 1463 1465#
DXMBEG 1314 1316 1328#
DXMST 1340# 1353 1356 1363
DXMUER 1345 1354#
DXMUPC 1341 1358#
DXMUUO 1326 1339 1349# 1361
DYMBEG 1357 1359 1371#
DYMST 1383# 1396 1401 1407 1410
DYMUER 1388 1408#
DYMUPC 1384 1397#
DYMUUO 1370 1382 1392# 1398 1405
DZMBEG 1403 1413#
DZMST 1423# 1433 1438 1442
DZMUER 1426 1440#
DZMUPC 1424 1434#
DZMUUO 1411 1422 1430# 1435
END 132 3364#
ENDFIX 761#
ENDSLD 3354#
ERMORE 535#
ERRPC 506#
ERRTLS 507#
ERSTOP 174# SEQ 0102
EXCASB 31# 484
EXIOT 433# 1686 1703 1720
FOV 433# 1867 1884 1901 2048 2065 2082
FOVU 433#
FRDLNK 197#
FSELNK 196#
FXU 433# 1957 1974 1991 2048 2065 2082
HYPEN 632#
INHCSH 182#
INHPAG 179#
INXM 433#
IOCLR 433#
IOTCM 2096#
IOTCM0 2107# 2130 2134 2140 2149 2153
IOTCM1 2094 2108 2125# 2137 2142 2146
IOTCM2 2113 2132#
IOTCM3 2111 2131 2136#
IOTPM 2154 2163#
IOTPM0 2174# 2197 2201 2207 2216 2220
IOTPM1 2161 2175 2192# 2204 2209 2213
IOTPM2 2180 2199#
IOTPM3 2178 2198 2203#
IOTSM 2221 2230#
IOTSM0 2247# 2271 2276 2282 2291 2295
IOTSM1 2260 2268#
IOTSM2 2236 2274#
IOTSM3 2234 2272 2278#
IOTTAB 2107 2174 2263 2300#
ITERAT 33# 479
ITRCH1 539#
ITRCNT 479#
JOB41 433#
JOBAPR 433#
JOBCNI 433#
JOBDDT 433#
JOBFF 433#
JOBOPC 433#
JOBREL 433#
JOBREN 433#
JOBSA 433#
JOBSYM 433#
JOBTPC 433#
JOBUSY 433#
JOBUUO 433#
JOBVER 433#
KA10 433
KAHZ50 187#
KAIFLG 496#
KI10 433
KL10 29# 433
KL10P0 30# 433
KLFLG 497#
KLOLD 395 SEQ 0103
KNTRP 143# 801 824 846 876 910 930 978 1021 1069 1107 1157 1200 1250
1292 1348 1389 1427 1459 1502 1664 2114 2181 2238
KTRP 144# 1503 1669 2117 2184 2239
LAPRAL 433#
LAPRP1 433#
LAPRP2 433#
LAPRP3 433#
LAPRP4 433#
LAPRP5 433#
LAPRP6 433#
LAPRP7 433#
LAROVT 433#
LAST 2577 2579#
LCADEN 433#
LCADRP 433#
LCASDE 433#
LCASLD 433#
LCASLO 433#
LCASWB 433#
LCASWD 433#
LCCAER 433#
LCCASD 433#
LCHNOF 433#
LCHNON 433#
LCIOPF 433#
LCNTRP 433# 1639 1704 1750 1795 1840 1885 1930 1975 2020 2066
LCNTXT 433#
LCNXER 433#
LCPAER 433#
LCPWRF 433#
LCSAER 433#
LCSBER 433#
LCSLOA 433#
LCSLOO 433#
LCTRP 433# 1640 1705 1751 1796 1841 1886 1931 1976 2021 2067
LCWSX 433#
LDATAF 433#
LDCAER 433#
LDCASD 433#
LDIOPF 433#
LDLNK 198# 449 451
LDNXER 433#
LDPAER 433#
LDPWRF 433#
LDSAER 433#
LDSBER 433#
LEBXMH 433#
LEBXML 433#
LECAER 433#
LECASD 433#
LEIOPF 433#
LENXER 433#
LEPAER 433# SEQ 0104
LEPWRF 433#
LESAER 433#
LESBER 433#
LEUPFW 433# 2414 2502 2571
LEVNCD 433#
LEVNPA 433#
LEVNPD 433#
LEXCMP 433#
LFLGCL 433#
LFLGDS 433#
LFLGEN 433#
LFLGST 433#
LFP 636#
LINSTF 433#
LINT 433#
LIOCLR 433#
LIOPFE 433#
LIP 152# 2367 2420
LKNTRP 433# 1645 1710 1756 1801 1846 1891 1936 1981 2026 2072
LKTRP 433# 1646 1711 1757 1802 1847 1892 1937 1982 2027 2073
LLACBL 433#
LLDUSB 433# 791 1515 1558 1582 1605 1624 1689 1735 1780 1825 1870 1915 1960
2005 2051 2254 2340 2389 2477 2546 2608
LLPRCN 433#
LMBXMH 433#
LMBXML 433#
LMUUO 433# 1647 1712 1758 1803 1848 1893 1938 1983 2028 2074
LMUUOP 433# 1648 1713 1759 1804 1849 1894 1939 1984 2029 2075
LNXMEN 433#
LNXMER 433#
LOOPER 173#
LPAREN 433#
LPARER 433#
LPDOVT 433#
LPFWPC 433# 2368 2421
LPGFTR 433# 2324 2331 2380 2435 2473 2474 2542 2543
LPICH1 433#
LPICH2 433#
LPICH3 433#
LPICH4 433#
LPICH5 433#
LPICH6 433#
LPICH7 433#
LPICHA 433#
LPICLR 433#
LPIIP1 433#
LPIIP2 433#
LPIIP3 433#
LPIIP4 433#
LPIIP5 433#
LPIIP6 433#
LPIIP7 433#
LPIOFF 433# SEQ 0105
LPION 433#
LPNTRP 433# 1641 1706 1752 1797 1842 1887 1932 1977 2022 2068
LPRCH1 433#
LPRCH2 433#
LPRCH3 433#
LPRCH4 433#
LPRCH5 433#
LPRCH6 433#
LPRCH7 433#
LPRFMH 433#
LPRFML 433#
LPTRP 433# 1642 1707 1753 1798 1843 1888 1933 1978 2023 2069
LPWRFE 433#
LPWRFL 433#
LREQSE 433#
LRQCLR 433#
LSADEN 433#
LSADRP 433#
LSBSEN 433#
LSBUSE 433#
LSCAER 433#
LSCASD 433#
LSECMO 433#
LSIOPF 433#
LSMODE 433#
LSNTRP 433# 1643 1708 1754 1799 1844 1889 1934 1979 2024 2070
LSNXER 433#
LSPAER 433#
LSPWRF 433#
LSSAER 433#
LSSBER 433#
LSTRP 433# 1644 1709 1755 1800 1845 1890 1935 1980 2025 2071
LTBASH 433#
LTBASL 433#
LTRP3T 433#
LTRPAE 433#
LTRPEN 433# 790 1514 1557 1581 1604 1623 1688 1734 1779 1824 1869 1914 1959
2004 2050 2253 2339 2388 2476 2545 2607
LUSCMP 433#
LUUO 433#
LUUO1 566 567
LUUO10 566 571
LUUO11 566 571
LUUO12 566 572
LUUO13 566 572
LUUO14 566 573
LUUO15 566 573
LUUO16 566 574
LUUO17 566 574
LUUO2 566 568
LUUO20 566 575
LUUO21 566 575
LUUO22 566 576 SEQ 0106
LUUO23 566 576
LUUO24 566 577
LUUO25 566 577
LUUO26 566 578
LUUO27 566 578
LUUO3 566 568
LUUO30 566 579
LUUO31 566 579
LUUO32 566 580
LUUO33 566 580
LUUO4 566 569
LUUO5 566 569
LUUO6 566 570
LUUO7 566 570
LUUOI 433#
LWRITE 433#
MAPNEW 587#
MARGIN 509#
MCNVER 4# 11 16 481
MEMLOW 589#
MEMMAP 487
MEMSIZ 590#
MEMTOT 588#
MINUS 631#
MODDVC 181#
MODDVL 35# 380 482
MODDVU 34# 381 483
MODE 1614# 1630 1680# 1695 1726# 1741 1786 1831 1876 1921 1966 2011 2057
MODLNK 200# 446
MONCTL 499#
MONFLG 498#
MONTEN 500#
MONTYP 713#
MPVU 433#
MUU100 816#
MUU114 832 838# 854
MUUO 141# 785 802 803 825 826 847 848 864 877 878 881 901 902
913 935 936 942 959 981 982 1002 1024 1025 1031 1061 1062 1074
1108 1109 1118 1138 1160 1161 1181 1203 1204 1210 1236 1237 1260 1293
1294 1307 1325 1343 1344 1369 1386 1387 1397 1416 1417 1434 1443 1456
1457 1469 2093 2122 2123 2136 2145 2160 2189 2190 2203 2212 2227 2278
2287 2444 2470 2471 2482 2489 2492 2503 2513 2539 2540 2551 2558 2561
2572
MUUOPC 142#
MUUOXA 815 822 827# 834 856
MUUOXB 837 844 849#
MUUSTA 823# 830 836
MUUSTB 845# 852 858
MUXPCA 823 831#
MUXPCB 845 853#
NOPNT 169#
NXMU 433#
OPRSEL 183# SEQ 0107
OPTIME 601#
P 226 227 228 229 433# 521 2606 2617
PAG 433# 790 791 1514 1515 1557 1558 1581 1582 1604 1605 1623 1624 1688
1689 1734 1735 1779 1780 1824 1825 1869 1870 1914 1915 1959 1960 2004
2005 2050 2051 2253 2254 2339 2340 2388 2389 2476 2477 2545 2546 2607
2608
PAGE1 974 1017 1065 1101 1153 1196 1244 1286 1340 1383 1423 1453 2110 2177
2604#
PAGSET 968 1007 1059 1094 1143 1186 1234 1253 1279 1300 1330 1373 1415 1448
1634 1699 1745 1790 1835 1880 1925 1970 2015 2061 2102 2169 2597# 2616
PAGSIZ 2582 2597
PALERS 175#
PARCLR 433#
PARDIS 433#
PAREA0 52#
PAREA1 53# 477
PAREA2 54# 478
PAREA3 55# 475
PAREA4 56# 476
PAREA5 57# 488
PAREA6 58# 489
PAREA7 488#
PAREA8 489#
PARENB 433#
PARU 433#
PASCNT 503#
PATCH 3357#
PDISF 598#
PDLOVU 433#
PDOVTP 139# 1571 1585
PERIOD 628#
PFSTRT 455#
PGFTSV 2325# 2325 2434
PGMEND 32# 3363
PGMNAM 480 764#
PICHN1 433#
PICHN2 433#
PICHN3 433#
PICHN4 433#
PICHN5 433#
PICHN6 433#
PICHN7 433#
PICHNA 433#
PICLR 433#
PIOFF 433#
PION 433#
PLIST 667# 667
PLISTE 667 669#
PLISTS 668#
PLUS 633#
PNTENB 597#
PNTEXT 476#
PNTFLG 596# SEQ 0108
PNTINH 599#
PNTLPT 170#
PNTNAM 475#
PNTRP 149# 979 1023 1071 1105 1155 1198 1246 1288 1342 1385 1425 1455 1504
1665 2115 2179 2240 2464 2536
PNTSPC 600#
PTRP 150# 1505 1671 2118 2187 2241 2467 2537
PVPAGI 694#
PVTST 2297 2320#
PVTST0 2330# 2355 2360 2372
PVTST1 2347 2352#
PVTST2 2345 2357# 2367
PVTST3 2330 2366#
PVTST4 2356 2361 2379# 2405 2418 2425 2432
PVTST5 2396 2402#
PVTST6 2379 2410#
PVTST7 2406 2434#
PVTSTX 2394# 2394 2399 2411 2413 2428
PWFCLR 433#
QUEST 639#
RADIX 642#
RADLSC 644#
RADLSP 643#
RANDBS 477#
REENTR 457#
RELIAB 177#
REPT 433#
REPT1 433#
REPTU 555#
REQSET 433#
RESRT1 532#
RESRT2 533#
RETURN 464#
RSTART 166#
RTP 637#
RUNFLG 504#
SADR1 40# 453
SADR10 49# 469
SADR11 50# 470
SADR2 41# 455
SADR3 42# 457
SADR4 43#
SADR5 44# 518
SADR6 45# 519
SADR7 46# 466
SADR8 47# 467
SADR9 48# 468
SBINIT 239 463#
SCOPE 556# 789# 789
SFSTRT 453#
SLASH 640#
SM10 744#
SNTRP 145# 980 1022 1070 1106 1158 1201 1249 1290 1347 1390 1428 1460 1500 SEQ 0109
1666 2116 2183 2235
SPACE 629#
SPNXT 1528 1535#
SRTDDT 459#
START 447 777#
START1 466#
START2 467#
START3 468#
START4 469#
START5 470#
STARTA 462 788#
STRP 146# 1668 2120 2185 2237
SUBLNK 201# 463
SUP00 1495# 1527 1532 1534
SUPER1 1501 1530#
SUPER2 1520 1523#
SUPERX 1476 1494#
SUPRTN 1499 1534#
SWPTAB 750#
SWTEXR 478#
SYSEXR 451#
T 783# 807 829 851 862# 885 896# 917 923# 946 957# 986 995 1000#
1029 1034 1043 1048# 1078 1082 1087# 1116 1121 1129 1136# 1165 1174 1179#
1208 1213 1222 1227# 1258 1263 1267 1272# 1305 1310 1318 1323# 1352 1355
1367# 1395 1400 1409 1432 1437 1441 1467 1472 1479 1491# 1526 1531 1546#
1564 1569# 1588 1593# 1611 1652 1658 1717 1723 1763 1769 1808 1814 1853
1859 1898 1904 1943 1949 1988 1994 2033 2039 2079 2086 2091# 2129 2133
2139 2148 2158# 2196 2200 2206 2215 2225# 2270 2275 2281 2290 2315# 2354
2359 2371 2374# 2404 2417 2424 2431 2441# 2486 2495 2505 2510# 2555 2564
2574 2615
TAB 630#
TESTPC 505# 796 820 842 871 905 933 964 1013 1055 1098 1149 1192 1240
1283 1336 1379 1420 1451 1497 1537 1553 1577 1600 1627 1692 1738 1783
1828 1873 1918 1963 2008 2054 2098 2165 2232 2322 2449 2518
TICKS 508#
TN0 153# 1583 1606
TN1 154# 1559 1606
TOTALS 167#
TPLST 2586 2591#
TRAP0 1550#
TRAP0A 1557# 1565
TRAP1 1574#
TRAP1A 1581# 1589
TRAP2A 1606# 1612
TRAPST 107 2584# 2589
TRP02 1597#
TRP3TP 140# 1595 1608
TTNBRF 688#
TTYFIL 604#
TTYSPD 605#
TXTINH 178#
UBLT 2447#
UBLT0 2451# 2487 2496 2506 SEQ 0110
UBLT1 2463 2482#
UBLT2 2466 2502#
UBLT3 2497 2516#
UBLT4 2520# 2556 2565 2575
UBLT5 2532 2551#
UBLT6 2534 2571#
UBLT7 2566 2577#
UEXT 1663 1676#
UPMP 132 132# 959 976 978 979 980 981 982 1002 1019 1021 1022 1023
1024 1025 1031 1061 1062 1067 1069 1070 1071 1074 1103 1105 1106 1107
1108 1109 1118 1138 1155 1157 1158 1159 1160 1161 1181 1198 1200 1201
1202 1203 1204 1210 1236 1237 1246 1248 1249 1250 1260 1288 1290 1291
1292 1293 1294 1307 1325 1342 1343 1344 1346 1347 1348 1369 1385 1386
1387 1389 1390 1391 1397 1416 1417 1425 1427 1428 1429 1434 1443 1455
1456 1457 1459 1460 1461 1469 1512 1639 1640 1641 1642 1643 1644 1647
1648 1664 1665 1666 1667 1668 1669 1670 1671 1704 1705 1706 1707 1708
1709 1712 1713 1750 1751 1752 1753 1754 1755 1758 1759 1795 1796 1797
1798 1799 1800 1803 1804 1840 1841 1842 1843 1844 1845 1848 1849 1885
1886 1887 1888 1889 1890 1893 1894 1930 1931 1932 1933 1934 1935 1938
1939 1975 1976 1977 1978 1979 1980 1983 1984 2020 2021 2022 2023 2024
2025 2028 2029 2066 2067 2068 2069 2070 2071 2074 2075 2093 2112 2114
2115 2116 2117 2118 2119 2120 2122 2123 2136 2145 2160 2179 2181 2182
2183 2184 2185 2186 2187 2189 2190 2203 2212 2251 2337 2386 2444 2451
2454 2464 2465 2467 2468 2470 2471 2473 2474 2477 2482 2489 2492 2502
2503 2513 2520 2523 2533 2535 2536 2537 2539 2540 2542 2543 2546 2551
2558 2561 2571 2572 2602 2608
USER 495#
USERF 433# 1621 1638 1655 1677 2480 2490 2493 2549 2559 2562 2605 2610 2613
USRASB 485
USRCRF 614#
USREXT 1674#
USRLFF 613#
USRRTN 1663#
UUODIS 567#
UUOEXT 523#
UUORTN 524#
UUOSKP 521#
XAC0 2585# 2585 2588
$$MUUO 719#
$$OUTE 725#
$$TAX1 737#
$$TAX2 738#
$$TOGG 731#
$$UUO 708#
$ACC0 546#
$BEND1 516#
$BEND2 517#
$CHRIN 607#
$CRLF 609#
$DEVCH 433#
$DSKUP 486#
$DVCH1 433#
$DVOFF 603# SEQ 0111
$EMODE 484#
$FFF 611#
$IBUF 659#
$INEXT 661#
$INNM 660#
$ITRHL 527#
$ITRX1 528#
$LPAPE 2623
$MMAP 487#
$MODVL 482#
$MODVU 483#
$OBUF 650#
$ONETM 510#
$OUTEX 652#
$OUTNM 651#
$PAPER 433
$PARER 534#
$PNAME 480#
$PSHER 538#
$PVER 481#
$RSRTX 530#
$RSRTY 531#
$SPAG1 550#
$START 447#
$SVAPR 548#
$SVPAG 549#
$SVPI 547#
$SVUPC 553#
$SVUUO 552#
$TABF 610#
$TTCHR 606#
$TWCNT 602#
$TYPNB 608#
$UMODE 485#
$UORTX 525#
$USRHL 529#
$UUOER 526# 567
$VTF 612#
%ACTFL 559#
%ACTUL 560#
%COREC 558#
%CORFL 557#
%DISCR 561#
%ERHI1 700#
%ERHI2 701#
%ERHI3 702#
..0001 1621 1638 1654#
..0002 1623# 1653 1659
..0003 1637 1649#
..0004 1686 1703 1719#
..0005 1688# 1718 1724
..0006 1702 1714#
..0007 1732 1749 1765# SEQ 0112
..0010 1734# 1764 1770
..0011 1748 1760#
..0012 1777 1794 1810#
..0013 1779# 1809 1815
..0014 1793 1805#
..0015 1822 1839 1855#
..0016 1824# 1854 1860
..0017 1838 1850#
..0020 1867 1884 1900#
..0021 1869# 1899 1905
..0022 1883 1895#
..0023 1912 1929 1945#
..0024 1914# 1944 1950
..0025 1928 1940#
..0026 1957 1974 1990#
..0027 1959# 1989 1995
..0030 1973 1985#
..0031 2002 2019 2035#
..0032 2004# 2034 2040
..0033 2018 2030#
..0034 2048 2065 2081#
..0035 2050# 2080 2087
..0036 2064 2076#
.JB41 433#
.JBAPR 433#
.JBCNI 433#
.JBDDT 433#
.JBFF 433#
.JBOPC 433#
.JBREL 433#
.JBREN 433#
.JBSA 433#
.JBSYM 433#
.JBTPC 433#
.JBUSY 433#
.JBUUO 433#
.JBVER 433#
APRID 111# 2326
CFLUSH 351# SEQ 0113
CINVAL 350#
CLOKOP 345#
CWRTBI 352#
DROPDV 312#
ENDUUO 358# 515
EOPUUO 359# 517
ERLOOP 403# 1653 1659 1718 1724 1764 1770 1809 1815 1854 1860 1899 1905 1944
1950 1989 1995 2034 2040 2080 2087
ERLP1 404#
ERLP2 405# 808 830 852 886 918 947 987 996 1030 1035 1044 1079 1083
1117 1122 1130 1166 1175 1209 1214 1223 1259 1264 1268 1306 1311 1319
1353 1356 1396 1401 1410 1433 1438 1442 1468 1473 1480 1527 1532 1565
1589 1612 2130 2134 2140 2149 2197 2201 2207 2216 2271 2276 2282 2291
2355 2360 2372 2405 2418 2425 2432 2487 2496 2506 2556 2565 2575 2616
ERRHLT 246#
ERROR 412# 1650 1656 1715 1721 1761 1767 1806 1812 1851 1857 1896 1902 1941
1947 1986 1992 2031 2037 2077 2084
ERROR1 423# 805 828 850 883 915 944 984 994 1027 1033 1042 1076 1081
1114 1120 1128 1163 1173 1206 1212 1221 1256 1262 1266 1303 1309 1317
1350 1354 1393 1399 1408 1431 1436 1440 1466 1471 1478 1524 1530 1562
1586 1609 2127 2132 2138 2147 2194 2199 2205 2214 2268 2274 2280 2289
2352 2358 2370 2402 2416 2423 2430 2484 2494 2504 2553 2563 2573 2614
ERUUO 402# 807 829 851 885 917 946 986 995 1029 1034 1043 1078 1082
1116 1121 1129 1165 1174 1208 1213 1222 1258 1263 1267 1305 1310 1318
1352 1355 1395 1400 1409 1432 1437 1441 1467 1472 1479 1526 1531 1564
1588 1611 1652 1658 1717 1723 1763 1769 1808 1814 1853 1859 1898 1904
1943 1949 1988 1994 2033 2039 2079 2086 2129 2133 2139 2148 2196 2200
2206 2215 2270 2275 2281 2290 2354 2359 2371 2404 2417 2424 2431 2486
2495 2505 2555 2564 2574 2615
FATAL 245#
FLGTST 61# 1616 1681 1727 1772 1817 1862 1907 1952 1997 2042
FRD36 387#
FRD8 388#
FREAD 386#
FSELEC 385#
GET 229#
GO 226# 968 974 1007 1017 1059 1065 1094 1101 1143 1153 1186 1196 1234
1244 1253 1279 1286 1300 1330 1340 1373 1383 1415 1423 1448 1453 1634
1699 1745 1790 1835 1880 1925 1970 2015 2061 2102 2110 2169 2177
HALT 231# 536 880 912 941 1073 1675 1678 2308 2311 2445 2460 2481 2483
2514 2529 2550 2552
JEN 233# 2309
JRSTF 232# 1560 1584 1607 2479 2548 2609
MAPADR 368#
MAPCNK 369#
MAPMEM 365#
MAPPNT 371#
MAPSET 370#
MEMSEG 367#
MEMZRO 366#
MODPCP 378#
MODPCU 377#
MOVMEM 113# SEQ 0114
MTROP 346#
NAME 8# 11
PAGECN 118# 966 1005 1057 1092 2100
PAGEPN 122# 1141 1184 1232 1251 1277 1298 1328 1371 1413 1446 1632 1697 1743
1788 1833 1878 1923 1968 2013 2059 2167
PBELL 321#
PCRL 315#
PCRL2 319#
PCRL2F 320#
PCRLF 316#
PFORCE 323#
PGMINT 239# 777
PJRST 230#
PMSG 325#
PMSGF 328#
PNT1 281#
PNT11 295#
PNT11F 296#
PNT1F 282#
PNT2 283#
PNT2F 284#
PNT3 285#
PNT3F 286#
PNT4 287#
PNT4F 288#
PNT5 289#
PNT5F 290#
PNT6 291#
PNT6F 292#
PNT7 293#
PNT7F 294#
PNTA 267#
PNTADF 298#
PNTADR 297#
PNTAF 268#
PNTAL 269#
PNTALF 270#
PNTCHF 280#
PNTCHR 279#
PNTCI 277#
PNTCIF 278#
PNTCW 313#
PNTCWF 314#
PNTDCF 306#
PNTDEC 305#
PNTDS 307#
PNTDSF 308#
PNTHW 301#
PNTHWF 302#
PNTMGN 392#
PNTMSF 274#
PNTMSG 273#
PNTNM 309# SEQ 0115
PNTOCF 304#
PNTOCS 303#
PNTOCT 299#
PNTOTF 300#
PNTSIX 310#
PNTSXF 311#
PSIXL 271#
PSIXLF 272#
PSIXM 275#
PSIXMF 276#
PSP 317#
PSPF 318#
PUT 228#
REPTUO 406#
RESET 109# 1555 1579 1602
RTN 227# 523
S 157#
SIXBTZ 334# 783 862 896 923 957 1000 1048 1087 1136 1179 1227 1272 1323
1367 1491 1546 1569 1593 2091 2158 2225 2315 2374 2441 2510
SUPEX 96# 1508 2247 2333 2382
SWITCH 340#
TNSET 127# 794 818 840 869 903 931 962 1011 1053 1096 1147 1190 1238
1281 1334 1377 1418 1449 1495 1535 1551 1575 1598 1625 1690 1736 1781
1826 1871 1916 1961 2006 2052 2096 2163 2230 2320 2447 2516
TRPSET 107# 1556 1580 1603
TTALTM 261#
TTICHR 254#
TTICLR 264#
TTICNV 259#
TTIDEC 258#
TTINO 256#
TTIOCT 257#
TTIYES 255#
TTLOOK 260#
TTSIXB 262#
TTYINP 263#
ADD 2601
ADDI 948 1123 1312 1474 SEQ 0116
ADDM 812 834 856 890 991 1039 1170 1218 1361 1405
AOBJN 1517 2455 2524 2603
AOS 521 2151 2218 2293
ASCII 622 624 627 628 629 630 632 633 634 635 636 637 639 640
641
ASCIZ 764
BLKI 111 2307
BLKO 2306
BLOCK 590 650 653 659 662 668 3357
BLT 2459 2528 2587
BYTE 638
CAIE 914 1075 1261 1435 1561 1585 1608 2146 2152 2213 2219 2288 2294
CAME 882 943 1032 1119 1211 1308 1398 1470 2137 2204 2279 2369 2415 2422
2429 2483 2493 2552 2562
CONI 2301
CONO 109 790 1514 1557 1581 1604 1623 1688 1734 1779 1824 1869 1914 1959
2004 2050 2253 2300 2339 2388 2476 2545 2607
CONSO 2305
CONSZ 2304
DATAI 2303
DATAO 791 1515 1558 1582 1605 1624 1689 1735 1780 1825 1870 1915 1960 2005
2051 2254 2302 2340 2389 2477 2546 2608
DEFINE 8 61 96 113 118 122 127 157 325 328 334 412 423
END 3365
HRL 2452 2521
HRRM 939 1112 1297 1464
HRRZ 913 942 1074 1118 1260 1307 1434 1469 2145 2212 2287
IFDEF 433 484 485 486 487 3356 3363
IFNDEF 132 380 381 395 433 484 485 486 487 566 2582 2623
JFCL 524 525 526 527 528 529 530 531 532 533 534 535 1523 1629
1694 1740 1785 1830 1875 1920 1965 2010 2056 2257 2343 2357 2392
JRST 44 45 46 47 48 49 50 230 231 232 233 446 447 449
451 453 455 457 460 462 463 516 810 814 832 836 854 858
888 892 950 951 989 993 1037 1041 1080 1125 1126 1127 1168 1172
1216 1220 1265 1314 1315 1316 1357 1359 1363 1403 1407 1439 1476 1477
1520 1522 1528 1631 1679 1696 1742 1787 1832 1877 1922 1967 2012 2058
2131 2153 2154 2198 2220 2221 2260 2267 2272 2295 2297 2310 2345 2347
2350 2356 2361 2366 2396 2400 2406 2410 2457 2497 2526 2566 2577 2579
2589 2611
JSP 239 1654 1676 1719 1765 1810 1855 1900 1945 1990 2035 2081 2604 2612
JSR 107
LALL 9 784 863 897 924 958 1001 1049 1088 1137 1180 1228 1273 1324
1368 1492 1509 1547 1570 1594 1617 1654 1682 1719 1728 1765 1773 1810
1818 1855 1863 1900 1908 1945 1953 1990 1998 2035 2044 2081 2092 2159
2226 2248 2316 2334 2375 2383 2442 2511
LIST 8 395 433 566 2623 3353
LIT 2624
LOC 15 436 760
MOVE 881 1031 1210 1397 1517 1520 1559 1583 1606 1638 1663 1703 1749 1794
1839 1884 1929 1974 2019 2065 2107 2136 2174 2203 2257 2260 2263 2278
2324 2343 2345 2347 2367 2368 2392 2394 2396 2411 2413 2414 2420 2421
2428 2434 2457 2458 2459 2460 2461 2473 2482 2492 2502 2503 2526 2527
2528 2529 2530 2542 2551 2561 2571 2572 2586 2588 2598 2600 SEQ 0117
MOVEI 792 795 800 816 819 823 838 841 845 867 870 875 904 909
928 929 932 963 970 975 977 1009 1012 1018 1020 1054 1066 1068
1097 1100 1102 1104 1145 1148 1154 1156 1188 1191 1197 1199 1239 1245
1247 1282 1285 1287 1289 1332 1335 1341 1345 1375 1378 1384 1388 1419
1424 1426 1450 1452 1454 1458 1494 1496 1499 1501 1536 1552 1576 1599
1626 1691 1737 1782 1827 1872 1917 1962 2007 2053 2097 2111 2113 2164
2178 2180 2231 2234 2236 2321 2330 2379 2448 2451 2463 2466 2517 2520
2532 2534 2591 2592 2593
MOVEM 793 796 799 801 817 820 822 824 839 842 844 846 868 871
874 876 905 908 910 930 933 938 964 971 973 976 978 979
980 1010 1013 1016 1019 1021 1022 1023 1055 1064 1067 1069 1070 1071
1098 1103 1105 1106 1107 1111 1146 1149 1152 1155 1157 1158 1159 1189
1192 1195 1198 1200 1201 1202 1240 1243 1246 1248 1249 1250 1283 1288
1290 1291 1292 1296 1333 1336 1339 1342 1346 1347 1348 1376 1379 1382
1385 1389 1390 1391 1420 1422 1425 1427 1428 1429 1451 1455 1459 1460
1461 1463 1497 1500 1502 1503 1504 1505 1506 1507 1513 1518 1521 1537
1553 1577 1600 1627 1637 1639 1640 1641 1642 1643 1644 1645 1646 1664
1665 1666 1667 1668 1669 1670 1671 1673 1692 1702 1704 1705 1706 1707
1708 1709 1710 1711 1738 1748 1750 1751 1752 1753 1754 1755 1756 1757
1783 1793 1795 1796 1797 1798 1799 1800 1801 1802 1828 1838 1840 1841
1842 1843 1844 1845 1846 1847 1873 1883 1885 1886 1887 1888 1889 1890
1891 1892 1918 1928 1930 1931 1932 1933 1934 1935 1936 1937 1963 1973
1975 1976 1977 1978 1979 1980 1981 1982 2008 2018 2020 2021 2022 2023
2024 2025 2026 2027 2054 2064 2066 2067 2068 2069 2070 2071 2072 2073
2098 2108 2112 2114 2115 2116 2117 2118 2119 2120 2165 2175 2179 2181
2182 2183 2184 2185 2186 2187 2232 2235 2237 2238 2239 2240 2241 2242
2243 2252 2258 2261 2264 2322 2325 2331 2338 2344 2346 2348 2380 2387
2393 2395 2397 2435 2449 2454 2464 2465 2467 2468 2474 2518 2523 2533
2535 2536 2537 2543 2585 2602
MOVSI 798 811 821 833 843 855 873 889 907 937 972 990 1015 1038
1063 1110 1151 1169 1194 1217 1242 1295 1338 1360 1381 1404 1421 1462
1512 1636 1672 1701 1747 1792 1837 1882 1927 1972 2017 2063 2251 2337
2386 2453 2522 2597
NOSYM 24
OPDEF 107 109 111 226 227 228 229 230 231 232 233 239 245 246
254 255 256 257 258 259 260 261 262 263 264 267 268 269
270 271 272 273 274 275 276 277 278 279 280 281 282 283
284 285 286 287 288 289 290 291 292 293 294 295 296 297
298 299 300 301 302 303 304 305 306 307 308 309 310 311
312 313 314 315 316 317 318 319 320 321 323 340 345 346
350 351 352 358 359 365 366 367 368 369 370 371 377 378
385 386 387 388 392 402 403 404 405 406
PAGE 1725 1771 1816 1861 1906 1951 1996 2041
POP 229
POPJ 227 2606 2617
PUSH 228
PUSHJ 226
SALL 782 806 829 851 861 884 895 916 922 945 956 985 995 999
1028 1034 1043 1047 1077 1082 1086 1115 1121 1129 1135 1164 1174 1178
1207 1213 1222 1226 1257 1263 1267 1271 1304 1310 1318 1322 1351 1355
1366 1394 1400 1409 1432 1437 1441 1467 1472 1479 1490 1525 1531 1545
1563 1568 1587 1592 1610 1651 1657 1716 1722 1762 1768 1807 1813 1852
1858 1897 1903 1942 1948 1987 1993 2032 2038 2078 2085 2090 2128 2133 SEQ 0118
2139 2148 2157 2195 2200 2206 2215 2224 2269 2275 2281 2290 2314 2353
2359 2371 2373 2403 2417 2424 2431 2440 2485 2495 2505 2509 2554 2564
2574 2615
SETOM 967 1006 1058 1093 2101 2328 2394 2527
SETZ 1550 1574 1597
SETZB 1519 2123 2190
SETZM 789 802 803 825 826 847 848 877 878 901 902 935 936 981
982 1024 1025 1061 1062 1108 1109 1142 1160 1161 1185 1203 1204 1233
1236 1237 1252 1278 1293 1294 1299 1329 1343 1344 1372 1386 1387 1414
1416 1417 1447 1456 1457 1633 1647 1648 1698 1712 1713 1744 1758 1759
1789 1803 1804 1834 1848 1849 1879 1893 1894 1924 1938 1939 1969 1983
1984 2014 2028 2029 2060 2074 2075 2105 2122 2168 2172 2189 2245 2266
2399 2427 2458 2470 2471 2539 2540
SIXBIT 55 56 651 652 660 661 783 807 829 851 862 885 896 917
923 946 957 986 995 1000 1029 1034 1043 1048 1078 1082 1087 1116
1121 1129 1136 1165 1174 1179 1208 1213 1222 1227 1258 1263 1267 1272
1305 1310 1318 1323 1352 1355 1367 1395 1400 1409 1432 1437 1441 1467
1472 1479 1491 1526 1531 1546 1564 1569 1588 1593 1611 1652 1658 1717
1723 1763 1769 1808 1814 1853 1859 1898 1904 1943 1949 1988 1994 2033
2039 2079 2086 2091 2129 2133 2139 2148 2158 2196 2200 2206 2215 2225
2270 2275 2281 2290 2315 2354 2359 2371 2374 2404 2417 2424 2431 2441
2486 2495 2505 2510 2555 2564 2574 2615
SKIPE 2599
SKIPN 809 831 853 887 988 1036 1167 1215 1358 1402 1630 1695 1741 1786
1831 1876 1921 1966 2011 2057 2412
SOJGE 1534
SOS 813 835 857 891 992 1040 1171 1219 1362 1406
SUBTTL 25 59 105 155 190 396 433 434 762 952 1131 1481 1538 1613
2088 2155 2222 2312 2436 2580 2618
TITLE 13
TLNE 949 1124 1313 1475 1677 2605
TLNN 1655 1720 1766 1811 1856 1901 1946 1991 2036 2082 2613
TRNE 2327
VAR 3361
XALL 808 830 852 886 918 947 987 996 1030 1035 1044 1079 1083 1117
1122 1130 1166 1175 1209 1214 1223 1259 1264 1268 1306 1311 1319 1353
1356 1396 1401 1410 1433 1438 1442 1468 1473 1480 1527 1532 1565 1589
1612 1653 1659 1718 1724 1764 1770 1809 1815 1854 1860 1899 1905 1944
1950 1989 1995 2034 2040 2080 2087 2130 2134 2140 2149 2197 2201 2207
2216 2271 2276 2282 2291 2355 2360 2372 2405 2418 2425 2432 2487 2496
2506 2556 2565 2575 2616
XLIST 7 394 432 433 565 2622
XWD 1559 1583 1606