Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dakah.seq
There are no other files named dakah.seq in the archive.
MAINDEC-10-DAKAH.TXT
SEQ 0001
IDENTIFICATION
--------------
PRODUCT CODE: MAINDEC-10-DAKAH-B-D
PRODUCT NAME: DECSYSTEM10 PDP-10 KA10 BASIC
INSTRUCTION DIAGNOSTIC (8)
FUNCTION: PI, INTERRUPTS, LUUO'S, I/O
VERSION: 0.2
DATE RELEASED: JANUARY 1977
MAINTAINED BY: DIAGNOSTIC ENGINEERING GROUP
AUTHOR: JOHN R. KIRCHOFF
COPYRIGHT(C) 1976,1977
DIGITAL EQUIPMENT CORPORATION
MARLBORO, MASS. 01752
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 EXECPT 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 DEC.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
MAINDEC-10-DAKAH.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 ERRORS
5.0 ITERATION COUNTER
6.0 CYCLE TIME
7.0 OPERATIONAL VARIATIONS
8.0 MISCELLANEOUS
9.0 LISTING
MAINDEC-10-DAKAH.TXT
PAGE 3 SEQ 0003
1.0 ABSTRACT
THIS PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC IS THE
EIGHTH IN A SERIES OF PDP-10 KA10 PROCESSOR DIAGNOSTICS.
THE DIAGNOSTIC TESTS THE PI SYSTEM, INTERRUPTS, LUUO'S
AND INPUT/OUTPUT.
2.0 REQUIREMENTS
2.1 EQUIPMENT
A PDP-10 KA10 WITH A MINIMUM OF 32K OF MEMORY
PAPER TAPE READER
DECTAPE (OPTIONAL)
CONSOLE TELETYPE
2.2 STORAGE
THE PROGRAM RUNS WITHIN 32K OF MEMORY.
2.3 PRELIMINARY PROGRAMS
CONSOLE FUNCTIONS WORKING PROPERLY
PAPER TAPE OR DECTAPE READ-IN WORKING PROPERLY
PREVIOUS PROCESSOR DIAGNOSTICS
MAINDEC-10-DAKAH.TXT
PAGE 4 SEQ 0004
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
PAPER TAPE - HARDWARE READ-IN (READER DEVICE CODE 104)
DECTAPE - LOAD WITH DIAMON (DECTAPE DEVICE CODE 320)
3.2 STARTING PROCEDURE
STAND-ALONE STARTING ADDRESS IS 30000.
IF THE DIAGNOSTIC FAILS TO START CORRECTLY TRY STARTING AT THE
FIRST TEST INSTEAD OF AT THE BEGINNING OF THE CONTROL SEQUENCE.
(SEE LISTING).
3.3 OPERATING PROCEDURE
ONCE STARTED THE PROGRAM WILL CYCLE CONTINUALLY UNTIL STOPPED
OR AN ERROR OCCURS.
4.0 ERRORS
ERRORS ARE IN THE FORM OF HALT INSTRUCTIONS. THE LISTING
SHOULD BE CONSULTED TO DETERMINE THE CAUSE OF THE ERROR. A
NO OPERATION (JUMP) INSTRUCTION FOLLOWS EACH HALT. THIS
MAY BE USEFUL IN CONSTRUCTING A SCOPE LOOP TO CYCLE ON THE
FAILING INSTRUCTION.
5.0 ITERATION COUNTER
THE ITERATION COUNT OF THE PROGRAM IS DISPLAYED IN THE MEM-
ORY INDICATORS (MI). THIS COUNT IS A DECREMENTING COUNT AND
INITIALLY STARTS AT -1 IN STAND-ALONE OPERATION.
6.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-DAKAH.TXT
PAGE 5 SEQ 0005
7.0 OPERATIONAL VARIATIONS
A. DIAGNOSTIC MONITOR
THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PRO-
VIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PRO-
VIDE 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 PRO-
GRAM AND STARTS IT AT LOCATION 30002.
2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MON-
ITOR CONTROL FLAG WORD.
B. USER MODE
THE PROGRAM WILL OPERATE IN USER MODE AND AS SUCH PROVIDES
ASSURANCE THAT THE PROCESSOR IS PERFORMING ALL FUNCTIONS
CORRECTLY. USER MODE STARTING ADDRESS IS 30000.
C. SYSTEM EXERCISER
STARTING ADDRESS IS 30003. NO DATA SWITCHES ARE USED BY
THIS PROGRAM.
8.0 MISCELLANEOUS
NONE
9.0 LISTING
THIS IS A HISTORY OF THE DEVELOPMENT OF MAINDEC-10-DAKAH
SEQ 0006
************************************************************************
PRODUCT CODE: MAINDEC-10-DAKAH
PRODUCT NAME: BASIC INSTRUCTION DIAGNOSTIC #8
DATE RELEASED: JANUARY 1977
VERSION: 0.2
UPDATE AUTHOR: JOHN R. KIRCHOFF
EDWARD G. PRENTICE
CHANGES MADE:
1. UPGRADE TO ALLOW COMPATABILITY WITH THE SUBROUTINE PACKAGE.
************************************************************************
ORIGINAL VERSION: 0.1
ORIGINAL AUTHOR: RICHARD MALISKA
ORIGINAL RELEASE: 16-MAR-72
************************************************************************
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 1
DAKAHT MAC 19-JAN-77 17:35 DIAGNOSTIC PARAMETERS SEQ 0007
1 ;DAKAH
2
3
4
5 000002 DECVER==2
6 000000 MCNVER==0
7
8 XLIST
9 LIST
10 LALL
11 NAME \MCNVER,\DECVER^
12
13 TITLE DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2
14 ^
15
16 ;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE
17 ;AND TO DETECT (SOLID) FAILURES IN THE FIELD.
18
19 ;COPYRIGHT 1972,1977
20 ;DIGITAL EQUIPMENT CORPORATION
21 ;MARLBORO, MASS. 01752
22
23 ;JOHN R. KIRCHOFF
24
25 000137 LOC 137
26 000137 000000 000002 MCNVER,,DECVER
27
28 NOSYM
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 2
DAKAHT MAC 19-JAN-77 17:35 DIAGNOSTIC PARAMETERS SEQ 0008
29 SUBTTL DIAGNOSTIC PARAMETERS
30
31 ;CONTROL WORDS
32
33 004000 EXIOT=4000 ;USER PRIV I/O FLAG
34 010000 USERF=10000 ;USER MODE FLAG
35
36 000400 DACT=400
37 000774 ME=774
38 002377 PIG0=2377
39 040000 PIH1=40000
40 020000 PIH2=20000
41 010000 PIH3=10000
42 004000 PIH4=4000
43 002000 PIH5=2000
44 001000 PIH6=1000
45 000400 PIH7=400
46 002000 PIOSET=2000
47 001000 PIOCLR=1000
48 004000 PIREQ=4000
49 000200 ACT=200
50 020000 PROT=20000
51 010000 NONEX=10000
52 004000 UMIOT=4000
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 3
DAKAHT MAC 19-JAN-77 17:35 DIAGNOSTIC PARAMETERS SEQ 0009
53 ;SUBROUTINE DEFINITIONS
54
55 030726 SADR1=START
56 030726 SADR2=START
57 030726 SADR3=START
58 030726 SADR4=START
59 030726 SADR5=START
60 030726 SADR6=START
61 254000 030726 SADR7=JRST START
62 254000 030726 SADR8=JRST START
63 254000 030726 SADR9=JRST START
64 254000 030726 SADR10=JRST START
65 254000 030726 SADR11=JRST START
66 000000 PAREA1=0
67 000000 PAREA2=0
68 000000 PAREA3=0
69 000000 PAREA4=0
70 000000 PAREA5=0
71 000000 PAREA6=0
72 000001 ITERAT=1
73 000001 EXCASB==1
74 000001 PGMEND==1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 4
DAKAHT MAC 19-JAN-77 17:35 DIAGNOSTIC PARAMETERS SEQ 0010
75
76 ;MACROS
77
78 ;STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMP .+1)
79 ; TO A (JUMP .-X) TO CYCLE ON FAILING INSTRUCTION.
80
81 DEFINE STOP (A)<
82 HALT .+1
83 JUMP .+1
84 >
85
86 ;SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET REQUESTED
87 ; FLAG FOR TESTING.
88
89 DEFINE SFLAG (A)<
90 MOVSI 1,A
91 JFCL 17,.+1
92 JRST 2,.+1(1)
93 >
94
95 ;CHANEL - USED FOR 2 CHANNEL SYSTEM CHECK
96
97 DEFINE CHANEL (A)<
98 SKIPN PI7SYS#
99 JRST A
100 >
101
102 ;RETURN - USED TO SETUP UUO TRAP
103
104 DEFINE RETURN (A)<
105 MOVE 2,[JSP 2,A]
106 MOVEM 2,41
107 SETOB 2,40
108 >
109
110 ;CLEAN - USED TO CLEAR THE PROCESSOR EXCEPT CLOCK
111 ; CLEAR DEVICES AND PI SYSTEM
112
113 DEFINE CLEAN (A)<
114 CONO 634440
115 CONO PI,10000
116 >
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 1
PARAM KLM 18-JAN-77 11:38 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977 SEQ 0011
117 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977
118
119 DEFINE S,<;*********************************************************************>
120
121 S^;*********************************************************************^
122 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
123 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
124 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
125 S^;*********************************************************************^
126
127 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
128 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
129 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
130
131 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
132 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
133 010000 DING== 010000 ;RING BELL ON ERROR
134
135 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
136 002000 ERSTOP==002000 ;HALT ON TEST ERROR
137 001000 PALERS==001000 ;PRINT ALL ERRORS
138
139 000400 RELIAB==000400 ;RELIABILITY MODE
140 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
141 000100 INHPAG==000100 ;INHIBIT PAGING
142
143 000040 MODDVC==000040 ;MODIFY DEVICE CODE
144 000020 INHCSH==000020 ;INHIBIT CACHE
145 000010 OPRSEL==000010 ;OPERATOR SELECTION
146
147 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
148
149 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER
150
151 ;SWITCH 17 RESERVED !!!
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 2
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0012
152 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977
153
154 S^;*********************************************************************^
155 ;*SPECIAL SUBPROGRAM LINKAGES
156 S^;*********************************************************************^
157
158 027772 FSELNK= 27772 ;FILE SELECT LINK
159 027773 FRDLNK= 27773 ;FILE READ LINK
160 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
161 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
162 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
163 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
164
165 S^;*********************************************************************^
166 ;*SPECIAL SUBROUTINE FATAL HALTS
167 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
168 S^;*********************************************************************^
169
170 ;ADDRESS TAG REASON
171 ;---------------------
172
173 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
174 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
175 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
176 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
177 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL
178 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
179 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
180 ; 1017 EOPERR ;END OF PROGRAM ERROR
181 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
182
183 S^;*********************************************************************^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 3
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0013
184 S^;*********************************************************************^
185 ;OPERATOR DEFINITIONS (NON-UUO'S)
186 S^;*********************************************************************^
187
188 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
189 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
190 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
191 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
192 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
193 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
194 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
195 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
196
197 S^;*********************************************************************^
198 ;*SUBROUTINE INITIALIZATION CALL
199 S^;*********************************************************************^
200
201 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
202
203 S^;*********************************************************************^
204 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
205 S^;*********************************************************************^
206
207 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
208 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
209
210 S^;*********************************************************************^
211 ;*TERMINAL INPUT UUO'S
212 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
213 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
214 S^;*********************************************************************^
215
216 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
217 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
218 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
219 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
220 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
221 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
222 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
223 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
224 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
225 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 4
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0014
226 ;*TERMINAL OUTPUT UUO'S.
227
228 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
229 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
230 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
231 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
232 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
233 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
234 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
235 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
236 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
237 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
238 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
239 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
240 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
241 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
242 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
243 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
244 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
245 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
246 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
247 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
248 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
249 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
250 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
251 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
252 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
253 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
254 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
255 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
256 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
257 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
258 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
259 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
260 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
261 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
262 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
263 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
264 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
265 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
266 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
267 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
268 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
269 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
270 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
271 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
272 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
273 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
274 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
275 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
276 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
277 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
278 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
279 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
280 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 4-1
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0015
281 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
282 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
283
284 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
285
286 DEFINE PMSG (ARG),<
287 PSIXM [SIXBIT\ARG'_\]>
288
289 DEFINE PMSGF (ARG),<
290 PSIXMF [SIXBIT\ARG'_\]>
291
292 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
293 ;* CONSERVES CORE OVER ASCIZ
294
295 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
296
297 ;*CONSOLE SWITCH INPUT UUO.
298 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
299 ;* USER MODE.
300
301 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
302
303 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
304 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
305
306 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK
307 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER
308
309 ;*KL10 ONLY CACHE OPERATION UUO'S
310
311 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
312 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
313 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 5
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0016
314 ;*END OF PASS/PROGRAM UUOS
315
316 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
317 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
318
319 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
320 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
321
322 ;*MEMORY MANAGEMENT UUO'S
323 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
324 ;*ADDRESS CONVERSION, ETC...
325
326 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
327 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
328 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
329 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
330 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
331 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
332 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
333
334 ;*DEVICE CODE MODIFICATION UUO
335 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
336 ;*IOT'S TO A DIFFERENT DEVICE CODE.
337
338 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
339 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
340
341 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
342 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
343
344 ;*"DIAMON" FILE SELECTION AND READ UUOS
345
346 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
347 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
348 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
349 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
350
351 ;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
352
353 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE
354
355 XLIST
356 IFNDEF KLOLD,<LIST
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 6
PARAM KLM 18-JAN-77 11:38 ERROR HANDLING UUO DEFINITIONS, JAN 18,1977 SEQ 0017
357 SUBTTL ERROR HANDLING UUO DEFINITIONS, JAN 18,1977
358
359 S^;*********************************************************************^
360 ;*ERROR HANDLER PARAMETERS
361 S^;*********************************************************************^
362
363 036000 000000 OPDEF ERUUO [36B8] ;ERROR CALL UUO
364 035000 000000 OPDEF ERLOOP [35B8] ;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
365 035040 000000 OPDEF ERLP1 [35B8!1B12] ;ERROR LOOP IF PC'S MATCH
366 035100 000000 OPDEF ERLP2 [35B8!2B12] ;ERROR LOOP IF ANY ERROR
367 034000 000000 OPDEF REPTUO [34B8] ;REPEAT LOOP UUO
368
369 ;*THE ERROR HANDLER MACROS
370
371 ;*A MACRO TO REPORT AN ERROR AND LOOP
372
373 DEFINE ERROR (ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
374 SALL
375 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
376 CORECT,,ACTUAL
377 [SIXBIT\D'_\],,ERR]
378 XALL
379
380 ERLOOP ADR ;IF ERROR, LOOP TO ADR
381 >
382
383 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP
384
385 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)<
386 SALL
387 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
388 CORECT,,ACTUAL
389 [SIXBIT\D'_\],,ERR]
390 XALL >
391
392 >;END OF KLOLD CONDITIONAL
393
394 XLIST
395 LIST
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 1
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0018
396 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977
397
398 030000 LOC 30000
399
400 S^;*********************************************************************^
401 ;*PROGRAM STARTING ADDRESSES
402 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
403 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
404 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
405 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
406 S^;*********************************************************************^
407
408 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
409 030001 254 00 0 00 030726 $START: JRST START ;MODE CHECK STARTING ADDRESS
410
411 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
412
413 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
414
415 030004 254 00 0 00 030726 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
416
417 030005 254 00 0 00 030726 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
418
419 030006 254 00 0 00 030726 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
420
421 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
422 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
423
424 030010 254 00 0 00 030737 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
425 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
426 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
427
428 030013 254000 030726 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
429 030014 254000 030726 START2: SADR8 ; "
430 030015 254000 030726 START3: SADR9 ; "
431 030016 254000 030726 START4: SADR10 ; "
432 030017 254000 030726 START5: SADR11 ; "
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 2
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0019
433 S^;*********************************************************************^
434 ;*PROGRAM FIXED PARAMETER AREA
435 S^;*********************************************************************^
436
437 030020 000000 000000 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
438 030021 000000 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
439 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER
440 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
441 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
442 030025 000000 030712 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
443 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
444 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
445 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
446 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
447 030032 000000 000000 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
448 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
449 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
450 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
451 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
452
453 S^;*********************************************************************^
454 ;*PROGRAM VARIABLE PARAMETER AREA
455 S^;*********************************************************************^
456
457 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
458 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
459 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
460 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
461 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
462 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
463 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
464 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
465 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
466 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
467 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
468 030052 000000 000000 ERRPC: 0 ;ERROR PC
469 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
470 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
471 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
472 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 3
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0020
473 S^;*********************************************************************^
474 ;*SPECIAL PROGRAM DISPATCH ADDRESSES
475 S^;*********************************************************************^
476
477 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
478 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
479 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
480 030062 000000 030726 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
481 030063 000000 030726 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
482 030064 CPOPJ1: ;SKIP RETURN
483 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
484 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
485 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
486 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
487 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
488 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
489 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
490 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
491 030073 255 00 0 00 000000 $USRHL: JFCL ; "
492 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
493 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
494 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
495 030077 255 00 0 00 000000 RESRT2: JFCL ; "
496 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
497 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
498 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
499
500 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
501 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
502 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
503
504 S^;*********************************************************************^
505 ;*PROCESSOR CONTROL STORAGE
506 S^;*********************************************************************^
507
508 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
509 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
510 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
511 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
512 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
513
514 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
515 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
516
517 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
518 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
519 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
520 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
521 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
522 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
523 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 4
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0021
524 S^;*********************************************************************^
525 ;*UUO DISPATCH TABLE
526 S^;*********************************************************************^
527 XLIST
528 LIST
529 030124 030070 030070 UUODIS: LUUO1,,$UUOER
530 030125 030070 030070 LUUO3,,LUUO2
531 030126 030070 030070 LUUO5,,LUUO4
532 030127 030070 030070 LUUO7,,LUUO6
533 030130 030070 030070 LUUO11,,LUUO10
534 030131 030070 030070 LUUO13,,LUUO12
535 030132 030070 030070 LUUO15,,LUUO14
536 030133 030070 030070 LUUO17,,LUUO16
537 030134 030070 030070 LUUO21,,LUUO20
538 030135 030070 030070 LUUO23,,LUUO22
539 030136 030070 030070 LUUO25,,LUUO24
540 030137 030070 030070 LUUO27,,LUUO26
541 030140 030070 030070 LUUO31,,LUUO30
542 030141 030070 030070 LUUO33,,LUUO32
543
544 S^;*********************************************************************^
545 ;*MEMORY MANAGMENT STORAGE
546 S^;*********************************************************************^
547
548 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
549 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
550 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
551 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
552 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
553
554 S^;*********************************************************************^
555 ;*PRINT CONTROL STORAGE
556 S^;*********************************************************************^
557
558 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
559 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
560 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
561 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
562 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
563 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
564 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
565 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
566 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
567 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
568 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
569 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
570 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
571 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
572 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
573 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
574 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
575 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
576 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 5
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0022
577 S^;*********************************************************************^
578 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
579 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
580 ;* MOVEI NAME
581 ;* PNTA ;OR PNTAF
582 S^;*********************************************************************^
583
584 030242 CRLF: ASCII/
585 030242 015 012 000 000 000 /
586 030243 CRLF2: ASCII/
587
588 030243 015 012 015 012 000 /
589 030244 054 000 000 000 000 COMMA: ASCII/,/
590 030245 056 000 000 000 000 PERIOD: ASCII/./
591 030246 040 000 000 000 000 SPACE: ASCII/ /
592 030247 011 000 000 000 000 TAB: ASCII/ /
593 030250 MINUS:
594 030250 055 000 000 000 000 HYPEN: ASCII/-/
595 030251 053 000 000 000 000 PLUS: ASCII/+/
596 030252 052 000 000 000 000 AST: ASCII/*/
597 030253 100 000 000 000 000 ATSIN: ASCII/@/
598 030254 050 000 000 000 000 LFP: ASCII/(/
599 030255 051 000 000 000 000 RTP: ASCII/)/
600 030256 007 0000000000 BELL: BYTE (7) 007
601 030257 077 000 000 000 000 QUEST: ASCII/?/
602 030260 057 000 000 000 000 SLASH: ASCII!/!
603 030261 044 000 000 000 000 DOLLAR: ASCII/$/
604 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
605 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
606 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
607
608 S^;*********************************************************************^
609 ;*USER MODE OUTPUT FILE INFORMATION
610 S^;*********************************************************************^
611
612 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
613 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
614 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
615 030272 BLOCK 2
616
617 S^;*********************************************************************^
618 ;*DISK UPDATE MODE FILE INFORMATION
619 S^;*********************************************************************^
620
621 030274 $IBUF: BLOCK 3
622 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
623 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
624 030301 BLOCK 2
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 6
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0023
625 S^;*********************************************************************^
626 ;*PUSHDOWN LIST CONTROL INFORMATION
627 S^;*********************************************************************^
628
629 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
630 030304 PLISTS: BLOCK 200
631 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
632
633 S^;*********************************************************************^
634 ;*POWER LINE CLOCK FREQUENCY FLAG
635 S^;*********************************************************************^
636
637 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
638
639 S^;*********************************************************************^
640 ;*KL10 CACHE CONTROL FLAGS
641 S^;*********************************************************************^
642
643 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
644 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
645
646 S^;*********************************************************************^
647 ;*NUMBER INPUT DIGIT FLAG
648 S^;*********************************************************************^
649
650 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
651
652 S^;*********************************************************************^
653 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
654 S^;*********************************************************************^
655
656 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
657
658 S^;*********************************************************************^
659 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
660 S^;*********************************************************************^
661
662 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
663 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
664 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
665
666 S^;*********************************************************************^
667 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
668 S^;*********************************************************************^
669
670 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 7
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0024
671 S^;*********************************************************************^
672 ;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD
673 S^;*********************************************************************^
674
675 030516 000000 000000 KLTYP: 0
676
677 S^;*********************************************************************^
678 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
679 S^;*********************************************************************^
680
681 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
682
683 S^;*********************************************************************^
684 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
685 S^;*********************************************************************^
686
687 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
688
689 S^;*********************************************************************^
690 ;*"SWITCH" CALL USAGE CONTROL
691 S^;*********************************************************************^
692
693 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
694
695 S^;*********************************************************************^
696 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
697 S^;*********************************************************************^
698
699 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
700 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
701
702 S^;*********************************************************************^
703 ;*SPECIAL FUTURE EXPANSION ROOM
704 ;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF
705 ;*THIS BLOCK STATEMENT ACCORDINGLY. THIS MUST BE DONE
706 ;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE.
707 S^;*********************************************************************^
708
709 030524 BLOCK 53 ;HOPEFULLY THIS IS ENOUGH FOREVER
710
711 S^;*********************************************************************^
712 ;*END OF FIXED STORAGE
713 S^;*********************************************************************^
714
715 030577 $ENDFX=<PLISTE+100>&<777700>-1
716 030577 LOC $ENDFX
717 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 1
SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0025
718 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76
719
720 ;NEW DEFINITIONS USED BY THE KL10 SUBROUTINE PACKAGE
721
722 000000 AC0= 0
723 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS
724 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS
725 020000 DIAMON= 20000 ;PDP-10 DIAMON LOADER START ADDRESS
726 020000 DONG11= 1B22 ;11 DOORBELL (FROM THE 10)
727
728 ;DTE20 DEVICE CODES
729
730 000200 DTE== 200 ;DTE0
731 000204 DTE0== 204
732 000204 DTE1== 204
733 000210 DTE2== 210
734 000214 DTE3== 214
735
736 ;KL10 EPT COMMUNICATION AREA
737
738 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS
739 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS
740 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS
741 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS
742
743 000444 $DTFLG= 444 ;DTE20 OPERATION COMPLETE FLAG
744 000445 $DTCLK= 445 ;DTE20 CLOCK INTERRUPT FLAG
745 000446 $DTCI= 446 ;DTE20 CLOCK INTERRUPT INSTRUCTION
746 000447 $DTT11= 447 ;DTE20 10 TO 11 ARGUMENT
747 000450 $DTF11= 450 ;DTE20 11 TO 10 ARGUMENT
748 000451 $DTCMD= 451 ;DTE20 TO 11 COMMAND WORD
749 000452 $DTSEQ= 452 ;DTE20 OPERATION SEQUENCE NUMBER
750 000453 $DTOPR= 453 ;DTE20 OPERATIONAL DTE #
751 000454 $DTCHR= 454 ;DTE20 LAST TYPED CHARACTER
752 000455 $DTMTD= 455 ;DTE20 MONITOR TTY OUTPUT COMPLETE FLAG
753 000456 $DTMTI= 456 ;DTE20 MONITOR TTY INPUT FLAG
754
755 000457 $DTSWR= 457 ;DTE20 CONSOLE SWITCH REGISTER
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 2
SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0026
756 ;SPECIAL "FIXED" REASSIGNMENTS
757
758 030600 $$LOC=. ;SAVE CURRENT LOCATION
759
760 030000 LOC 30000
761 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START
762 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS
763
764 000440 LOC 440
765 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD"
766 000443 LOC 443
767 000443 254 00 0 00 030636 $STM: JRST $SPEC ;SIMPLE RUN CONTROL
768
769 030057 LOC 30057
770 030057 254 00 0 00 030641 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND"
771
772 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP
773
774 000420 LOC 420
775 000420 254 04 0 00 000420 $$420: HALT . ;KI10 PAGE FAIL
776 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW
777 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW
778 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3
779 000424 000000 000000 $$424: 0 ;MMUO
780 000425 000000 000000 $$425: 0 ;MMUO PC
781 000426 000000 000000 $$426: 0 ;KI10-PAGE FAIL, KL10-PROCESS CONTEXT
782 000427 254 04 0 00 000427 $$427: HALT .
783 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S
784 000431 000000 000427 $$431: 427
785 000432 000000 000427 $$432: 427
786 000433 000000 000427 $$433: 427
787 000434 000000 000427 $$434: 427
788 000435 000000 000427 $$435: 427
789 000436 000000 000427 $$436: 427
790 000437 000000 000427 $$437: 427
791
792 000500 LOC 500
793 000500 000000 000000 $$500: 0 ;KL10 PAGE FAIL WORD
794 000501 000000 000000 $$501: 0 ;KL10 PAGE FAIL PC
795 000502 000000 000503 $$502: 503 ;KL10 PAGE FAIL NEW PC
796 000503 254 04 0 00 000503 $$503: HALT .
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 3
SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0027
797 030600 LOC $$LOC ;RESET CURRENT LOCATION
798
799 ;SPECIAL STARTUP SEQUENCE
800
801 030600 402 00 0 00 030037 $$START:SETZM USER
802 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ?
803 030602 603 00 0 00 010000 TLNE 0,USERF
804 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD
805 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ?
806 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC
807 030606 332 00 0 00 030037 SKIPE USER
808 030607 254 00 0 00 030726 JRST START ;USER MODE, DON'T NEED CPU TYPE
809
810 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ?
811 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER
812 030612 402 00 0 00 030516 SETZM KLTYP
813 030613 402 00 0 00 030041 SETZM KLFLG ;ASSUME KI10
814 030614 200 01 0 00 036415 MOVE 1,[1,,1]
815 030615 251 01 0 00 000001 BLT 1,1 ;HOPE THIS WORKS
816 030616 316 01 0 00 036415 CAMN 1,[1,,1] ;IF AC NE 1,,1 AFTER BLT, KL10
817 030617 254 00 0 00 030726 JRST START ;KI10, NO ADDITIONAL SETUP
818
819 030620 7 000 20 0 00 010040 $STKL: CONO APR,10040 ;SET BBD NOT BIT
820 030621 7 000 24 0 00 000000 CONI APR,0
821 030622 7 000 20 0 00 020040 CONO APR,20040 ;CLEAR BBD NOT BIT
822 030623 606 00 0 00 000040 TRNN 0,40 ;IF SET, KL10
823 030624 350 00 0 00 030516 AOS KLTYP ;IF NOT, BBD
824 030625 402 00 0 00 000444 SETZM $DTFLG
825 030626 402 00 0 00 000445 SETZM $DTCLK
826 030627 200 00 0 00 000453 MOVE $DTOPR ;GET DTE #
827 030630 436 00 0 00 030670 ORM $$DTE0 ;INSERT IN DTE I/O INSTS
828 030631 436 00 0 00 030672 ORM $$DTE1
829 030632 436 00 0 00 030704 ORM $$DTE2
830 030633 436 00 0 00 030706 ORM $$DTE3
831 030634 476 00 0 00 030041 SETOM KLFLG ;SET KL10 CONTROL FLAG
832 030635 254 00 0 00 030726 JRST START
833
834 030636 200 00 0 00 036416 $SPEC: MOVE [JRST STARTA] ;SIMPLE RUN CONTROL
835 030637 202 00 0 00 030643 MOVEM $SPB1
836 030640 254 00 0 00 030726 JRST START
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 4
SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0028
837 ;SPECIAL "BEGEND" ROUTINE
838
839 030641 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT
840 030642 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT
841 030643 336 00 0 00 030037 $SPB1: SKIPN USER
842 030644 254 00 0 00 030652 JRST $SPBEX ;EXEC MODE
843
844 030645 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ?
845 030646 254 00 0 00 030737 JRST STARTA ;NO, KEEP RUNNING
846 030647 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ?
847 030650 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR
848 030651 254 00 1 00 030012 JRST @RETURN ;YES, RETURN TO "DIAMON"
849
850 030652 332 00 0 00 030041 $SPBEX: SKIPE KLFLG
851 030653 254 00 0 00 030660 JRST $SPBKL ;KL10 & EXEC
852 030654 7 004 14 0 00 030024 DATAO PI,ITRCNT ;KI10 & EXEC, DISPLAY ITER COUNT
853 030655 332 00 0 00 030024 SKIPE ITRCNT
854 030656 254 00 0 00 030737 JRST STARTA ;NOT COMPLETED YET
855 030657 254 00 1 00 030012 JRST @RETURN ;DONE
856
857 030660 336 00 0 00 030024 $SPBKL: SKIPN ITRCNT
858 030661 254 00 0 00 030676 JRST $SPKLD ;KL10, EXEC & COMPLETED
859
860 030662 335 00 0 00 030043 SKIPGE MONCTL
861 030663 254 00 0 00 030737 JRST STARTA ;"DIAMON" CONTROL
862 030664 201 00 0 00 000404 MOVEI 0,404 ;NOTIFY PDP-11 OF END OF PASS
863 030665 202 00 0 00 000451 MOVEM 0,$DTCMD
864 030666 402 00 0 00 000444 SETZM $DTFLG
865 030667 336 00 0 00 030516 SKIPN KLTYP
866 030670 7 200 20 0 00 020000 $$DTE0: CONO DTE,DONG11
867 030671 332 00 0 00 030516 SKIPE KLTYP
868 030672 7 200 20 0 00 010000 $$DTE1: CONO DTE,10000
869 030673 336 00 0 00 000444 SKIPN $DTFLG ;WAIT TILL 11 RESPONDS
870 030674 254 00 0 00 030673 JRST .-1
871 030675 254 00 0 00 030737 JRST STARTA ;KEEP RUNNING
872
873 ;SPECIAL KL10 COMPLETED ROUTINE
874
875 030676 332 00 0 00 030044 $SPKLD: SKIPE MONTEN
876 030677 254 00 1 00 030012 JRST @RETURN ;LOADED BY "DIAMON"
877
878 030700 201 00 0 00 000403 MOVEI 0,403 ;NOTIFY PDP-11 OF COMPLETION
879 030701 202 00 0 00 000451 MOVEM 0,$DTCMD
880 030702 402 00 0 00 000444 SETZM $DTFLG
881 030703 336 00 0 00 030516 SKIPN KLTYP
882 030704 7 200 20 0 00 020000 $$DTE2: CONO DTE,DONG11
883 030705 332 00 0 00 030516 SKIPE KLTYP
884 030706 7 200 20 0 00 010000 $$DTE3: CONO DTE,10000
885 030707 336 00 0 00 000444 SKIPN $DTFLG ;SHOULD NEVER HAPPEN
886 030710 254 00 0 00 030707 JRST .-1 ;11 NEVER RETURNS ON END OF PROGRAM
887 030711 254 04 0 00 030000 HALT BEGIN ;IF IT DOES, HALT.
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0029
888 SUBTTL DIAGNOSTIC SECTION
889
890 LALL
891
892 030712 PGMNAM: ASCIZ /
893 030712 015 012 120 104 120 PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC # 8 [DAKAH]
894 030713 055 061 060 040 113
895 030714 101 061 060 040 102
896 030715 101 123 111 103 040
897 030716 111 116 123 124 122
898 030717 125 103 124 111 117
899 030720 116 040 104 111 101
900 030721 107 116 117 123 124
901 030722 111 103 040 043 040
902 030723 070 040 133 104 101
903 030724 113 101 110 135 015
904 030725 012 000 000 000 000 /
905 030726 402 00 0 00 030037 START: SETZM USER# ;CLEAR USER CONTROL WORD
906 030727 265 00 0 00 030730 JSP 0,.+1 ;GET FLAGS
907 030730 603 00 0 00 010000 TLNE USERF ;IN USER MODE?
908 030731 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD
909 030732 336 00 0 00 030037 SKIPN USER
910 030733 254 00 0 00 030737 JRST STARTA
911 030734 051 03 0 00 030712 TTCALL 3,PGMNAM ;MENTION OUR NAME
912 OUTSTR [ASCIZ /
913 ?EXEC MODE DIAGNOSTIC ONLY
914 030735 051 03 0 00 036417 /] ;TELL USER
915 030736 254 04 0 00 030736 HALT . ;AND DIE...
916
917 030737 STARTA:
918 030737 402 00 0 00 036671 ST: SETZM MATPOF# ;CLR MA TRAP OFFSET FLAG.
919 030740 332 01 0 00 035772 MOD: SKIPE 1,SAV40 ;RESTORE THESE LOC IF PROG
920 030741 202 01 0 00 010040 MOVEM 1,10040 ;IF PROG MODIFIED
921 030742 332 01 0 00 035773 SKIPE 1,SAV41
922 030743 202 01 0 00 010041 MOVEM 1,10041
923 030744 332 01 0 00 035774 SKIPE 1,SAV42
924 030745 202 01 0 00 010042 MOVEM 1,10042
925 030746 332 01 0 00 035775 SKIPE 1,SAV43
926 030747 202 01 0 00 010043 MOVEM 1,10043
927 030750 7 000 24 0 00 036667 CONI CPSAV#
928 030751 7 004 24 0 00 036673 CONI PI,PISAV#
929
930 030752 7 000 04 0 00 000000 DATAI ;DO WE HAVE FP
931 030753 335 00 0 00 030043 SKIPGE MONCTL ;MONITR CONTROL ?
932 030754 200 00 0 00 030043 MOVE 0,MONCTL ;YES
933 030755 464 00 0 00 036426 ORCM [1B35]
934 030756 452 00 0 00 036670 SETCAM FPTRAP#
935 030757 476 00 0 00 036672 SETOM PI7SYS#
936
937 030760 7 000 04 0 00 000000 DATAI ;IS THIS MACH WITH USER
938 030761 335 00 0 00 030043 SKIPGE MONCTL ;MONITR CONTROL ?
939 030762 200 00 0 00 030043 MOVE 0,MONCTL ;YES
940 030763 464 00 0 00 036427 ORCM [1B34]
941 030764 452 00 0 00 036674 SETCAM USMOD#
942
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 1-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0030
943 030765 332 00 0 00 036671 SKIPE MATPOF# ;START AT 3776?
944 030766 254 00 0 00 036352 JRST MOD200 ;YES. GO CK MA 29 SET.
945
946 ;MACH/OPTION DEPENDENT
947 ;TEST UU0
948
949 RETURN MOD1 ^;TEST UUO FOR NOT GOING TO 60
950
951 030767 200 02 0 00 036430 MOVE 2,[JSP 2,MOD1]
952 030770 202 02 0 00 000041 MOVEM 2,41
953 030771 477 02 0 00 000040 SETOB 2,40
954
955 030772 200 01 0 00 036431 MOVE 1,[JRST .+4] ;IF THIS ROUT STOPS THE
956 030773 200 02 0 00 036432 MOVE 2,[JSP MOD1+1] ;TRAP WAS TO 60. IF UU0 HANG
957 030774 202 02 0 00 000061 MOVEM 2,61 ;THE MACH, CHECK XCTF0 AND
958 030775 000000 000000 0 ;UU0F0 FLAGS FOR NOT SETING
959 030776 334 00 0 00 000000 MOD1: SKIPA ;CHECK MA 31 SET
960 STOP ^;IR 1XX GATE FAIL
961
962 030777 254 04 0 00 031000 HALT .+1
963 031000 320 00 0 00 031001 JUMP .+1
964
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0031
965
966 031001 MOD2: RETURN MOD3 ^;TEST 40 TO MA LOGIC (UU0)
967
968 031001 200 02 0 00 036433 MOVE 2,[JSP 2,MOD3]
969 031002 202 02 0 00 000041 MOVEM 2,41
970 031003 477 02 0 00 000040 SETOB 2,40
971
972 031004 200 01 0 00 036434 MOVE 1,[JRST .+3] ;IF 40 WAS NOT (J) TO MA
973 031005 000000 000000 0 ;THIS UU0 WILL STORE IN LOC 0
974 031006 334 00 0 00 000000 MOD3: SKIPA ;CHECK MA-30 SET
975 STOP ^;ON THE MA1 PRINT
976
977 031007 254 04 0 00 031010 HALT .+1
978 031010 320 00 0 00 031011 JUMP .+1
979
980
981 031011 MOD4: RETURN MOD5 ^;IF THE MA FROM AR
982
983 031011 200 02 0 00 036435 MOVE 2,[JSP 2,MOD5]
984 031012 202 02 0 00 000041 MOVEM 2,41
985 031013 477 02 0 00 000040 SETOB 2,40
986
987 031014 200 02 0 00 036436 MOVE 2,[JSP MOD5+1] ;INHIBIT (AT6) FAILED THE
988 031015 202 00 0 00 000061 MOVEM 61 ;UU0 WOULD STORE IN E ORED
989 031016 000000 000020 20 ;WITH 40 RATHER THAN C(40)
990 031017 334 00 0 00 000000 MOD5: SKIPA ;MA FM AR(J) CAME UP CHECK
991 STOP ^;AND OF AT6-IR UU0 ON MA1 PRINT
992
993 031020 254 04 0 00 031021 HALT .+1
994 031021 320 00 0 00 031022 JUMP .+1
995
996
997 031022 MOD6: RETURN MOD7 ^;TEST UU0 ABILITY TO STORE
998
999 031022 200 02 0 00 036437 MOVE 2,[JSP 2,MOD7]
1000 031023 202 02 0 00 000041 MOVEM 2,41
1001 031024 477 02 0 00 000040 SETOB 2,40
1002
1003 031025 000000 000000 0 ;IF C(40) UNCHANGED SCE FAIL
1004 031026 316 02 0 00 000040 MOD7: CAMN 2,40 ;CK IR UU0 INPUT TO SCE
1005 STOP ^;ON S2 PRINT
1006
1007 031027 254 04 0 00 031030 HALT .+1
1008 031030 320 00 0 00 031031 JUMP .+1
1009
1010
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 3
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0032
1011 031031 MOD8: RETURN MOD9 ^;TEST SACINH FOR UU0
1012
1013 031031 200 02 0 00 036440 MOVE 2,[JSP 2,MOD9]
1014 031032 202 02 0 00 000041 MOVEM 2,41
1015 031033 477 02 0 00 000040 SETOB 2,40
1016
1017 031034 474 00 0 00 000000 SETO ;IF FAIL WILL MODIFY AC
1018 031035 000000 000000 0 ;SACINH THE IR UU0 INPUT
1019 031036 312 00 0 00 036441 MOD9: CAME [-1] ;ON S2 PRINT FAILED
1020 STOP^
1021 031037 254 04 0 00 031040 HALT .+1
1022 031040 320 00 0 00 031041 JUMP .+1
1023 ^
1024
1025 031041 MOD10: RETURN MOD11 ^;TEST UU0 FACINH, IF THE
1026
1027 031041 200 02 0 00 036442 MOVE 2,[JSP 2,MOD11]
1028 031042 202 02 0 00 000041 MOVEM 2,41
1029 031043 477 02 0 00 000040 SETOB 2,40
1030
1031 031044 201 00 0 00 777777 MOVEI -1 ;UU0 FETCHES A AC THE
1032 031045 000000 000000 0 ;AC WILL BE STORED
1033 031046 316 00 0 00 000040 MOD11: CAMN 40 ;FAC INH THE IR UU0 INPUT
1034 STOP ^;ON F2 PRINT FAIL
1035
1036 031047 254 04 0 00 031050 HALT .+1
1037 031050 320 00 0 00 031051 JUMP .+1
1038
1039
1040 031051 MOD12: RETURN MOD13 ^;TEST UU0 IR TO ARLT
1041
1042 031051 200 02 0 00 036443 MOVE 2,[JSP 2,MOD13]
1043 031052 202 02 0 00 000041 MOVEM 2,41
1044 031053 477 02 0 00 000040 SETOB 2,40
1045
1046 031054 077740 000000 XWD 077740,0 ;THE AND OF (ET0,IR UU0)
1047 031055 336 00 0 00 000040 MOD13: SKIPN 40 ;ON ARC-2 PRINT FAILED
1048 STOP^
1049 031056 254 04 0 00 031057 HALT .+1
1050 031057 320 00 0 00 031060 JUMP .+1
1051 ^
1052
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 4
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0033
1053 031060 MOD14: RETURN MOD15 ^;UU0 FAIL
1054
1055 031060 200 02 0 00 036444 MOVE 2,[JSP 2,MOD15]
1056 031061 202 02 0 00 000041 MOVEM 2,41
1057 031062 477 02 0 00 000040 SETOB 2,40
1058
1059 031063 000740 000000 XWD 000740,0 ;CHECK ARLT FM FLAGS (J) B
1060 031064 336 00 0 00 000040 MOD15: SKIPN 40 ;THE PA ON ARC-2 PRINT
1061 STOP^
1062 031065 254 04 0 00 031066 HALT .+1
1063 031066 320 00 0 00 031067 JUMP .+1
1064 ^
1065
1066 031067 MOD16: RETURN MOD17 ^;UU0 FAIL
1067
1068 031067 200 02 0 00 036445 MOVE 2,[JSP 2,MOD17]
1069 031070 202 02 0 00 000041 MOVEM 2,41
1070 031071 477 02 0 00 000040 SETOB 2,40
1071
1072 031072 077000 000000 XWD 077000,0 ;CHECK ARLT FM FLAGS (J) A
1073 031073 336 00 0 00 000040 MOD17: SKIPN 40 ;THE PA ON ARC-2 PRINT
1074 STOP^
1075 031074 254 04 0 00 031075 HALT .+1
1076 031075 320 00 0 00 031076 JUMP .+1
1077 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 5
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0034
1078
1079 000040 ZZ=40
1080 MOD18: REPEAT ^D10,
1081 < RETURN .+4 ;TEST IRLT TO AR
1082 XWD ZZ,0
1083 SKIPN 40
1084 STOP
1085 ZZ=ZZ+ZZ
1086 >
1087 RETURN .+4 ^
1088 031076 200 02 0 00 036446 MOVE 2,[JSP 2,.+4]
1089 031077 202 02 0 00 000041 MOVEM 2,41
1090 031100 477 02 0 00 000040 SETOB 2,40
1091 ^;TEST IRLT TO AR
1092 031101 000040 000000 XWD ZZ,0
1093 031102 336 00 0 00 000040 SKIPN 40
1094 STOP^
1095 031103 254 04 0 00 031104 HALT .+1
1096 031104 320 00 0 00 031105 JUMP .+1
1097 ^
1098 000100 ZZ=ZZ+ZZ
1099
1100 RETURN .+4 ^
1101 031105 200 02 0 00 036447 MOVE 2,[JSP 2,.+4]
1102 031106 202 02 0 00 000041 MOVEM 2,41
1103 031107 477 02 0 00 000040 SETOB 2,40
1104 ^;TEST IRLT TO AR
1105 031110 000100 000000 XWD ZZ,0
1106 031111 336 00 0 00 000040 SKIPN 40
1107 STOP^
1108 031112 254 04 0 00 031113 HALT .+1
1109 031113 320 00 0 00 031114 JUMP .+1
1110 ^
1111 000200 ZZ=ZZ+ZZ
1112
1113 RETURN .+4 ^
1114 031114 200 02 0 00 036450 MOVE 2,[JSP 2,.+4]
1115 031115 202 02 0 00 000041 MOVEM 2,41
1116 031116 477 02 0 00 000040 SETOB 2,40
1117 ^;TEST IRLT TO AR
1118 031117 000200 000000 XWD ZZ,0
1119 031120 336 00 0 00 000040 SKIPN 40
1120 STOP^
1121 031121 254 04 0 00 031122 HALT .+1
1122 031122 320 00 0 00 031123 JUMP .+1
1123 ^
1124 000400 ZZ=ZZ+ZZ
1125
1126 RETURN .+4 ^
1127 031123 200 02 0 00 036451 MOVE 2,[JSP 2,.+4]
1128 031124 202 02 0 00 000041 MOVEM 2,41
1129 031125 477 02 0 00 000040 SETOB 2,40
1130 ^;TEST IRLT TO AR
1131 031126 000400 000000 XWD ZZ,0
1132 031127 336 00 0 00 000040 SKIPN 40
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 5-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0035
1133 STOP^
1134 031130 254 04 0 00 031131 HALT .+1
1135 031131 320 00 0 00 031132 JUMP .+1
1136 ^
1137 001000 ZZ=ZZ+ZZ
1138
1139 RETURN .+4 ^
1140 031132 200 02 0 00 036452 MOVE 2,[JSP 2,.+4]
1141 031133 202 02 0 00 000041 MOVEM 2,41
1142 031134 477 02 0 00 000040 SETOB 2,40
1143 ^;TEST IRLT TO AR
1144 031135 001000 000000 XWD ZZ,0
1145 031136 336 00 0 00 000040 SKIPN 40
1146 STOP^
1147 031137 254 04 0 00 031140 HALT .+1
1148 031140 320 00 0 00 031141 JUMP .+1
1149 ^
1150 002000 ZZ=ZZ+ZZ
1151
1152 RETURN .+4 ^
1153 031141 200 02 0 00 036453 MOVE 2,[JSP 2,.+4]
1154 031142 202 02 0 00 000041 MOVEM 2,41
1155 031143 477 02 0 00 000040 SETOB 2,40
1156 ^;TEST IRLT TO AR
1157 031144 002000 000000 XWD ZZ,0
1158 031145 336 00 0 00 000040 SKIPN 40
1159 STOP^
1160 031146 254 04 0 00 031147 HALT .+1
1161 031147 320 00 0 00 031150 JUMP .+1
1162 ^
1163 004000 ZZ=ZZ+ZZ
1164
1165 RETURN .+4 ^
1166 031150 200 02 0 00 036454 MOVE 2,[JSP 2,.+4]
1167 031151 202 02 0 00 000041 MOVEM 2,41
1168 031152 477 02 0 00 000040 SETOB 2,40
1169 ^;TEST IRLT TO AR
1170 031153 004000 000000 XWD ZZ,0
1171 031154 336 00 0 00 000040 SKIPN 40
1172 STOP^
1173 031155 254 04 0 00 031156 HALT .+1
1174 031156 320 00 0 00 031157 JUMP .+1
1175 ^
1176 010000 ZZ=ZZ+ZZ
1177
1178 RETURN .+4 ^
1179 031157 200 02 0 00 036455 MOVE 2,[JSP 2,.+4]
1180 031160 202 02 0 00 000041 MOVEM 2,41
1181 031161 477 02 0 00 000040 SETOB 2,40
1182 ^;TEST IRLT TO AR
1183 031162 010000 000000 XWD ZZ,0
1184 031163 336 00 0 00 000040 SKIPN 40
1185 STOP^
1186 031164 254 04 0 00 031165 HALT .+1
1187 031165 320 00 0 00 031166 JUMP .+1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 5-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0036
1188 ^
1189 020000 ZZ=ZZ+ZZ
1190
1191 RETURN .+4 ^
1192 031166 200 02 0 00 036456 MOVE 2,[JSP 2,.+4]
1193 031167 202 02 0 00 000041 MOVEM 2,41
1194 031170 477 02 0 00 000040 SETOB 2,40
1195 ^;TEST IRLT TO AR
1196 031171 020000 000000 XWD ZZ,0
1197 031172 336 00 0 00 000040 SKIPN 40
1198 STOP^
1199 031173 254 04 0 00 031174 HALT .+1
1200 031174 320 00 0 00 031175 JUMP .+1
1201 ^
1202 040000 ZZ=ZZ+ZZ
1203
1204 RETURN .+4 ^
1205 031175 200 02 0 00 036457 MOVE 2,[JSP 2,.+4]
1206 031176 202 02 0 00 000041 MOVEM 2,41
1207 031177 477 02 0 00 000040 SETOB 2,40
1208 ^;TEST IRLT TO AR
1209 031200 040000 000000 XWD ZZ,0
1210 031201 336 00 0 00 000040 SKIPN 40
1211 STOP^
1212 031202 254 04 0 00 031203 HALT .+1
1213 031203 320 00 0 00 031204 JUMP .+1
1214 ^
1215 100000 ZZ=ZZ+ZZ
1216
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 6
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0037
1217 031204 MOD19: RETURN MOD19A ^;TEST PROPER STORAGE
1218
1219 031204 200 02 0 00 036460 MOVE 2,[JSP 2,MOD19A]
1220 031205 202 02 0 00 000041 MOVEM 2,41
1221 031206 477 02 0 00 000040 SETOB 2,40
1222
1223 031207 000000 000000 0 ;OF UU0
1224 031210 332 00 0 00 000040 MOD19A: SKIPE 40
1225 STOP^
1226 031211 254 04 0 00 031212 HALT .+1
1227 031212 320 00 0 00 031213 JUMP .+1
1228 ^
1229
1230 031213 MOD20: RETURN MOD20A ^;CK FOR STORING OF E
1231
1232 031213 200 02 0 00 036461 MOVE 2,[JSP 2,MOD20A]
1233 031214 202 02 0 00 000041 MOVEM 2,41
1234 031215 477 02 0 00 000040 SETOB 2,40
1235
1236 031216 000000 777777 XWD 0,-1 ;ON A UU0
1237 031217 200 00 0 00 000040 MOD20A: MOVE 40
1238 031220 302 00 0 00 777777 CAIE -1
1239 STOP^
1240 031221 254 04 0 00 031222 HALT .+1
1241 031222 320 00 0 00 031223 JUMP .+1
1242 ^
1243
1244 031223 MOD21: RETURN MOD21A ^;CK FOR STORING OF E
1245
1246 031223 200 02 0 00 036462 MOVE 2,[JSP 2,MOD21A]
1247 031224 202 02 0 00 000041 MOVEM 2,41
1248 031225 477 02 0 00 000040 SETOB 2,40
1249
1250 031226 077740 000000 XWD 077740,0 ;ON A UU0
1251 031227 200 00 0 00 000040 MOD21A: MOVE 40
1252 031230 312 00 0 00 036463 CAME [XWD 077740,0]
1253 STOP^
1254 031231 254 04 0 00 031232 HALT .+1
1255 031232 320 00 0 00 031233 JUMP .+1
1256 ^
1257
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 7
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0038
1258 031233 MOD22: RETURN MOD22A ^;CK FOR STORING OF
1259
1260 031233 200 02 0 00 036464 MOVE 2,[JSP 2,MOD22A]
1261 031234 202 02 0 00 000041 MOVEM 2,41
1262 031235 477 02 0 00 000040 SETOB 2,40
1263
1264 031236 077740 777777 XWD 077740,-1 ;E AND IR ON UU0
1265 031237 200 00 0 00 000040 MOD22A: MOVE 40
1266 031240 312 00 0 00 036465 CAME [XWD 077740,-1]
1267 STOP^
1268 031241 254 04 0 00 031242 HALT .+1
1269 031242 320 00 0 00 031243 JUMP .+1
1270 ^
1271
1272 031243 MOD23: RETURN MOD23A ^;UU0 TEST THE PC+1
1273
1274 031243 200 02 0 00 036466 MOVE 2,[JSP 2,MOD23A]
1275 031244 202 02 0 00 000041 MOVEM 2,41
1276 031245 477 02 0 00 000040 SETOB 2,40
1277
1278 031246 000000 000000 0 ;INHIBIT FEATURE LOC 41
1279 031247 405 02 0 00 777777 MOD23A: ANDI 2,-1 ;CONTAINS TSP 2,X
1280 031250 306 02 0 00 031250 CAIN 2,. ;PC+1 INH THE IR UU0 INPUT
1281 STOP ^;FAILED. SEE PC1 PRINT
1282
1283 031251 254 04 0 00 031252 HALT .+1
1284 031252 320 00 0 00 031253 JUMP .+1
1285
1286
1287 031253 MOD24: RETURN MOD24A ^;PC STORED IN CORRECTLY
1288
1289 031253 200 02 0 00 036467 MOVE 2,[JSP 2,MOD24A]
1290 031254 202 02 0 00 000041 MOVEM 2,41
1291 031255 477 02 0 00 000040 SETOB 2,40
1292
1293 031256 000000 777777 XWD 0,-1 ;FROM THE JSP AT 41
1294 031257 405 02 0 00 777777 MOD24A: ANDI 2,-1 ;ON A UUO INST
1295 031260 302 02 0 00 031257 CAIE 2,.-1
1296 STOP^
1297 031261 254 04 0 00 031262 HALT .+1
1298 031262 320 00 0 00 031263 JUMP .+1
1299 ^
1300
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 8
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0039
1301 031263 MOD25: ;SET PRIVILEGE TO FLAG
1302 ;SET UU0 TRAP
1303 ;TEST IOT INST FOR
1304 ;NOT TRAPING. SEE IR-2
1305 ;PRINT IR UU0 CAME UP
1306 031263 MOD26: ;CK AND OF IR IOTA, NOT ALLOW, ETC
1307
1308 031263 MOD27: SFLAG 0 ^;MAKE SURE EX IOT USER=0
1309
1310 031263 205 01 0 00 000000 MOVSI 1,0
1311 031264 255 17 0 00 031265 JFCL 17,.+1
1312 031265 254 02 0 01 031266 JRST 2,.+1(1)
1313
1314 RETURN MOD28 ^;CK FOR NOT TRAP ON IOT
1315
1316 031266 200 02 0 00 036470 MOVE 2,[JSP 2,MOD28]
1317 031267 202 02 0 00 000041 MOVEM 2,41
1318 031270 477 02 0 00 000040 SETOB 2,40
1319
1320 031271 7 000 24 0 00 000000 CONI ;IF IOTS TRAP NOW THE
1321 031272 300 00 0 00 000000 CAI ;AND GATE EX USER (0), EX IOT USER
1322 031273 334 00 0 00 000000 SKIPA ;DID NOT RESPOND TO EX USER (0)
1323 031274 MOD28: STOP ^;SEE EX ALLOW IOTS ON EX PRINT
1324
1325 031274 254 04 0 00 031275 HALT .+1
1326 031275 320 00 0 00 031276 JUMP .+1
1327
1328
1329 031276 474 01 0 00 000000 MOD29: SETO 1, ;THE IOTS FAIL TO STORE C(E)
1330 031277 7 000 04 0 00 000001 DATAI 1 ;CHECK IR IOT ON IR2 PRINT
1331 031300 7 000 24 0 00 000001 CONI 1 ;LOOKS LIKE IR DECODE FAILED
1332 031301 316 01 0 00 036441 CAMN 1,[-1]
1333 STOP^
1334 031302 254 04 0 00 031303 HALT .+1
1335 031303 320 00 0 00 031304 JUMP .+1
1336 ^
1337
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 9
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0040
1338 031304 200 01 0 00 036471 MOD30: MOVE 1,[123456654321] ;CHECK SCE FOR DATAI
1339 031305 7 000 04 0 00 000001 DATAI 1 ;THE CONTENTS OF LOC1
1340 031306 316 01 0 00 036471 CAMN 1,[123456654321] ;WERE NOT MODIFIED. SEE
1341 STOP ^;S1 PRINT SCE AND DECODE ON IOT
1342
1343 031307 254 04 0 00 031310 HALT .+1
1344 031310 320 00 0 00 031311 JUMP .+1
1345
1346
1347 031311 200 01 0 00 036471 MOD31: MOVE 1,[123456654321] ;CHECK SCE FOR CONI. THE
1348 031312 7 000 24 0 00 000001 CONI 1 ;CONTENTS OF LOC1 WERE NOT
1349 031313 316 01 0 00 036471 CAMN 1,[123456654321] ;MODIFIED. SEE S2 PRINT SCE
1350 STOP ^;AND DECODE ON IOT PRINT
1351
1352 031314 254 04 0 00 031315 HALT .+1
1353 031315 320 00 0 00 031316 JUMP .+1
1354
1355
1356 031316 474 00 0 00 000000 MOD32: SETO ;SACINH FAIL FOR INST
1357 031317 7 000 24 0 00 000001 CONI 1 ;CONI FAILED. CHECK
1358 031320 312 00 0 00 036441 CAME [-1] ;IR IOT INPUT TO SACINH
1359 STOP ^;ON THE S2 PRINT
1360
1361 031321 254 04 0 00 031322 HALT .+1
1362 031322 320 00 0 00 031323 JUMP .+1
1363
1364
1365 031323 7 774 20 0 00 000000 MOD33: CONO ME,0 ;CLEAR LAST DEVICE
1366 031324 7 774 24 0 00 000002 CONI ME,2 ;AR CLEAR AT(ET0)FAILED
1367 031325 306 02 0 00 000002 CAIN 2,2 ;ON INST CONT CK AR
1368 STOP ^;CLEAR ETO, CONI ON ARC-2 PRINT
1369
1370 031326 254 04 0 00 031327 HALT .+1
1371 031327 320 00 0 00 031330 JUMP .+1
1372
1373
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 10
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0041
1374 031330 7 774 14 0 00 036425 MOD34: DATAO ME,[0] ;AR CLR ON A DATAI
1375 031331 7 774 04 0 00 000003 DATAI ME,3 ;INST FAILED CHECK
1376 031332 306 03 0 00 000003 CAIN 3,3 ;IOT DATAI INPUT ON THE
1377 STOP ^;OR GATE TO AR CLR. SEE ARC-2 PRINT
1378
1379 031333 254 04 0 00 031334 HALT .+1
1380 031334 320 00 0 00 031335 JUMP .+1
1381
1382
1383 031335 400 00 0 00 000000 SETZ ;CONSZ FAIL TO SKIP. CK
1384 031336 7 000 30 0 00 000000 CONSZ ;PC+1 AT AND OF AD=0, IOT CONSZ,
1385 STOP ^;IOT T5 ON PC1 PRINT
1386
1387 031337 254 04 0 00 031340 HALT .+1
1388 031340 320 00 0 00 031341 JUMP .+1
1389
1390
1391 031341 7 774 20 0 00 000000 CONO ME,0 ;CONSZ FAIL TO SKIP CK
1392 031342 7 774 30 0 00 700000 CONSZ ME,700000 ;FOR NO AR CLR AT (ETO). SEE ARC-2
1393 STOP ^;PRINT THE IOT CONSX INPUT
1394
1395 031343 254 04 0 00 031344 HALT .+1
1396 031344 320 00 0 00 031345 JUMP .+1
1397
1398
1399 031345 7 774 20 0 00 000000 CONO ME,0 ;CONSO SKIPED. CHECK PC+1
1400 031346 7 774 34 0 00 000000 CONSO ME,0 ;(IOT T5,AD=0,IOT CONSO,IOT CONSZ
1401 031347 334 00 0 00 000000 SKIPA ;AND GATES) ON PC1 PRINT
1402 STOP^
1403 031350 254 04 0 00 031351 HALT .+1
1404 031351 320 00 0 00 031352 JUMP .+1
1405 ^
1406
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 11
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0042
1407 031352 400 01 0 00 000000 MOD35: SETZ 1, ;CHECK POINTER INC ON IOT BLK
1408 031353 7 774 10 0 00 000001 BLKO ME,1 ;IF C(1)=0 THEN AR FM AD(J) (ET0)
1409 031354 300 00 0 00 000000 CAI ;ON ARC-3 PRINT, OR AD+1 BOTH (FT9)
1410 031355 300 00 0 00 000000 CAI ;ON AD2 PRINT FAILED
1411 031356 312 01 0 00 036415 CAME 1,[XWD 1,1] ;IF IR 12 FAIL TO SET, PROG
1412 STOP ^;BLOWS UP
1413
1414 031357 254 04 0 00 031360 HALT .+1
1415 031360 320 00 0 00 031361 JUMP .+1
1416
1417 031361 400 01 0 00 000000 MOD36: SETZ 1, ;PC+1 INH FOR BLK FAILED
1418 031362 7 774 10 0 00 000001 BLKO ME,1 ;CHECK IOT BLK INPUT TO
1419 031363 300 00 0 00 000000 CAI ;PC+1 INH ON THE PC1 PRINT
1420 031364 334 00 0 00 000000 SKIPA
1421 STOP^
1422 031365 254 04 0 00 031366 HALT .+1
1423 031366 320 00 0 00 031367 JUMP .+1
1424 ^
1425 031367 400 01 0 00 000000 MOD37: SETZ 1, ;BLKO PC+1 AT ET0 TIME
1426 031370 7 774 10 0 00 000001 BLKO ME,1 ;FAILED. CHECK THE AND GATE
1427 STOP ^;BLK, CYC(0) CRY(0) ON PC1 PRINT
1428
1429 031371 254 04 0 00 031372 HALT .+1
1430 031372 320 00 0 00 031373 JUMP .+1
1431
1432 031373 474 01 0 00 000000 MOD38: SETO 1, ;BLKO PERFORMED A SKIP WHEN
1433 031374 7 774 10 0 00 000001 BLKO ME,1 ;END CRY0 SHOULD=1
1434 031375 334 00 0 00 000000 SKIPA ;CK PC+1,SEE ABOVE ROUTINE
1435 STOP^
1436 031376 254 04 0 00 031377 HALT .+1
1437 031377 320 00 0 00 031400 JUMP .+1
1438 ^
1439 031400 7 004 20 0 00 010000 MOD39: CONO PI,10000 ;JUST IN CASE
1440 031401 7 000 20 0 00 435447 CONO 435447 ;SET SOME CPA FLAGS
1441 031402 7 000 24 0 00 000000 CONI 0 ;(1) DID FLAGS SET? NO CONO FAIL
1442 031403 336 00 0 00 000000 SKIPN 0 ;YES: CONI FAIL CK IOB TO AR
1443 STOP ^;AND MANY OTHERS. IE SINGLE STEP
1444
1445 031404 254 04 0 00 031405 HALT .+1
1446 031405 320 00 0 00 031406 JUMP .+1
1447
1448 031406 7 000 20 0 00 000000 MOD40: CONO ;PIA 35 FAIL TO SET (CPU)
1449 031407 7 000 20 0 00 000001 CONO 1 ;OR READ SINGLE STEP
1450 031410 7 000 24 0 00 000000 CONI ;SEE CPA PRINT
1451 031411 606 00 0 00 000001 TRNN 1
1452 STOP^
1453 031412 254 04 0 00 031413 HALT .+1
1454 031413 320 00 0 00 031414 JUMP .+1
1455 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 12
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0043
1456
1457 031414 7 000 20 0 00 000000 MOD41: CONO ;PIA 3+(CFU) FAIL TO SET
1458 031415 7 000 20 0 00 000002 CONO 2 ;OR READ. SEE CPA PRINT
1459 031416 7 000 24 0 00 000000 CONI ;SINGLE STEP
1460 031417 606 00 0 00 000002 TRNN 2
1461 STOP^
1462 031420 254 04 0 00 031421 HALT .+1
1463 031421 320 00 0 00 031422 JUMP .+1
1464 ^
1465
1466 031422 7 000 20 0 00 000000 MOD42: CONO ;PIA 33 (CPU) FAIL TO SET
1467 031423 7 000 20 0 00 000004 CONO 4 ;OR READ. SEE CPA PRINT
1468 031424 7 000 24 0 00 000000 CONI ;SINGLE STEP
1469 031425 606 00 0 00 000004 TRNN 4
1470 STOP^
1471 031426 254 04 0 00 031427 HALT .+1
1472 031427 320 00 0 00 031430 JUMP .+1
1473 ^
1474
1475 031430 7 000 20 0 00 000001 MOD43: CONO 1 ;PIA 35 (CPU) FAIL TO CLEAR
1476 031431 7 000 20 0 00 000000 CONO ;OR READ INCORRECT
1477 031432 7 000 24 0 00 000000 CONI ;SEE CPA PRINT
1478 031433 602 00 0 00 000001 TRNE 1 ;SINGLE STEP
1479 STOP^
1480 031434 254 04 0 00 031435 HALT .+1
1481 031435 320 00 0 00 031436 JUMP .+1
1482 ^
1483
1484 031436 7 000 20 0 00 000002 MOD44: CONO 2 ;PIA 34 (CPU) FAIL TO CLEAR
1485 031437 7 000 20 0 00 000000 CONO ;OR READ INCORRECTLY
1486 031440 7 000 24 0 00 000000 CONI ;SEE CPA PRINT
1487 031441 602 00 0 00 000002 TRNE 2 ;SINGLE STEP
1488 STOP^
1489 031442 254 04 0 00 031443 HALT .+1
1490 031443 320 00 0 00 031444 JUMP .+1
1491 ^
1492
1493 031444 7 000 20 0 00 000004 MOD45: CONO 4 ;PIA 33 (CPU) FAIL TO CLEAR
1494 031445 7 000 20 0 00 000000 CONO ;OR READ INCORRECTLY
1495 031446 7 000 24 0 00 000000 CONI ;SEE CPA PRINT
1496 031447 602 00 0 00 000004 TRNE 4 ;SINGLE STEP
1497 STOP^
1498 031450 254 04 0 00 031451 HALT .+1
1499 031451 320 00 0 00 031452 JUMP .+1
1500 ^
1501
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 13
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0044
1502 031452 7 000 20 0 00 000007 MOD46: CONO 7 ;SET SOME CP FLAGS
1503 031453 7 000 34 0 00 000000 CONSO ;CONSO FAILED CK
1504 031454 334 00 0 00 000000 SKIPA
1505 STOP^
1506 031455 254 04 0 00 031456 HALT .+1
1507 031456 320 00 0 00 031457 JUMP .+1
1508 ^
1509 031457 7 000 20 0 00 000007 MOD47: CONO 7 ;CONSO FAILED
1510 031460 7 000 34 0 00 000007 CONSO 7
1511 STOP^
1512 031461 254 04 0 00 031462 HALT .+1
1513 031462 320 00 0 00 031463 JUMP .+1
1514 ^
1515 031463 7 000 20 0 00 000007 MOD48: CONO 7 ;CONSZ FAIL
1516 031464 7 000 30 0 00 000007 CONSZ 7 ;CHECK PC+1 AT AND
1517 031465 334 00 0 00 000000 SKIPA ;OF AD=0, CONSZ, IOT T5
1518 STOP ^;ON PC1 PRINT
1519
1520 031466 254 04 0 00 031467 HALT .+1
1521 031467 320 00 0 00 031470 JUMP .+1
1522
1523 031470 7 000 20 0 00 000040 MOD50: CONO 40 ;CPU AROV ENABLE
1524 031471 7 000 20 0 00 000020 CONO 20 ;TRY TO SET
1525 031472 7 000 34 0 00 000020 CONSO 20
1526 STOP ^;IOB OR FLOP
1527
1528 031473 254 04 0 00 031474 HALT .+1
1529 031474 320 00 0 00 031475 JUMP .+1
1530
1531 031475 7 000 20 0 00 000020 CONO 20 ;SET AROV EN
1532 031476 7 000 20 0 00 000000 CONO ;CK FOR NOT CLEARING
1533 031477 7 000 34 0 00 000020 CONSO 20
1534 STOP^
1535 031500 254 04 0 00 031501 HALT .+1
1536 031501 320 00 0 00 031502 JUMP .+1
1537 ^
1538 031502 7 000 20 0 00 000020 CONO 20 ;SET AROV EN
1539 031503 7 000 20 0 00 000040 CONO 40 ;TRY TO CLEAR
1540 031504 7 000 30 0 00 000020 CONSZ 20
1541 STOP^
1542 031505 254 04 0 00 031506 HALT .+1
1543 031506 320 00 0 00 031507 JUMP .+1
1544 ^
1545 031507 7 000 20 0 00 000040 CONO 40 ;CLEAR AROV EN
1546 031510 7 000 20 0 00 000000 CONO ;CK FOR NOT SETTING
1547 031511 7 000 30 0 00 000020 CONSZ 20
1548 STOP^
1549 031512 254 04 0 00 031513 HALT .+1
1550 031513 320 00 0 00 031514 JUMP .+1
1551 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 14
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0045
1552 031514 7 000 20 0 00 000400 MOD51: CONO 400 ;FOV EN CLEAR
1553 031515 7 000 20 0 00 000200 CONO 200 ;TRY TO SET
1554 031516 7 000 34 0 00 000200 CONSO 200
1555 STOP^
1556 031517 254 04 0 00 031520 HALT .+1
1557 031520 320 00 0 00 031521 JUMP .+1
1558 ^
1559
1560 031521 7 000 20 0 00 000200 CONO 200 ;SET FOV EN
1561 031522 7 000 20 0 00 000000 CONO ;CK FOR NOT CLEARING
1562 031523 7 000 34 0 00 000200 CONSO 200
1563 STOP^
1564 031524 254 04 0 00 031525 HALT .+1
1565 031525 320 00 0 00 031526 JUMP .+1
1566 ^
1567
1568 031526 7 000 20 0 00 000200 CONO 200 ;SET FOV EN
1569 031527 7 000 20 0 00 000400 CONO 400 ;TRY TO CLEAR
1570 031530 7 000 30 0 00 000200 CONSZ 200
1571 STOP^
1572 031531 254 04 0 00 031532 HALT .+1
1573 031532 320 00 0 00 031533 JUMP .+1
1574 ^
1575
1576 031533 7 000 20 0 00 000400 CONO 400 ;CLEAR FOV EN
1577 031534 7 000 20 0 00 000000 CONO ;CK FOR NOT SETTING
1578 031535 7 000 30 0 00 000200 CONSZ 200
1579 STOP^
1580 031536 254 04 0 00 031537 HALT .+1
1581 031537 320 00 0 00 031540 JUMP .+1
1582 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 15
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0046
1583
1584 031540 7 000 20 0 00 004000 MOD52: CONO 4000 ;CLEAR CLK EN
1585 031541 7 000 20 0 00 002000 CONO 2000 ;TRY TO SET
1586 031542 7 000 34 0 00 002000 CONSO 2000
1587 STOP^
1588 031543 254 04 0 00 031544 HALT .+1
1589 031544 320 00 0 00 031545 JUMP .+1
1590 ^
1591
1592 031545 7 000 20 0 00 002000 CONO 2000 ;SET CLK EN
1593 031546 7 000 20 0 00 000000 CONO ;CK FOR NOT CLEARING
1594 031547 7 000 34 0 00 002000 CONSO 2000
1595 STOP^
1596 031550 254 04 0 00 031551 HALT .+1
1597 031551 320 00 0 00 031552 JUMP .+1
1598 ^
1599
1600 031552 7 000 20 0 00 002000 CONO 2000 ;SET CLK EN
1601 031553 7 000 20 0 00 004000 CONO 4000 ;TRY TO CLEAR
1602 031554 7 000 30 0 00 002000 CONSZ 2000
1603 STOP^
1604 031555 254 04 0 00 031556 HALT .+1
1605 031556 320 00 0 00 031557 JUMP .+1
1606 ^
1607
1608 031557 7 000 20 0 00 004000 CONO 4000 ;CLEAR CLK EN
1609 031560 7 000 20 0 00 000000 CONO ;TEST FOR NOT SETTING
1610 031561 7 000 30 0 00 002000 CONSZ 2000
1611 STOP^
1612 031562 254 04 0 00 031563 HALT .+1
1613 031563 320 00 0 00 031564 JUMP .+1
1614 ^
1615
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 16
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0047
1616 031564 310 00 0 00 777777 MOD53: CAM -1 ;SET NON-EX VIA F(CE)
1617 031565 7 000 20 0 00 010000 CONO 10000 ;TRY TO CLEAR
1618 031566 7 000 30 0 00 010000 CONSZ 10000
1619 STOP ^;FAIL TO CLEAR
1620
1621 031567 254 04 0 00 031570 HALT .+1
1622 031570 320 00 0 00 031571 JUMP .+1
1623
1624
1625 031571 7 000 20 0 00 010000 CONO 10000 ;CLEAR NON-EX
1626 031572 310 00 0 00 777777 CAM -1 ;TRY TO SET VIA F(CE)
1627 031573 7 000 34 0 00 010000 CONSO 10000 ;FAIL TO SET
1628 STOP ^;CK MEM CNTL, CPA
1629
1630 031574 254 04 0 00 031575 HALT .+1
1631 031575 320 00 0 00 031576 JUMP .+1
1632
1633
1634 031576 7 000 20 0 00 010000 CONO 10000 ;CLEAR NON-EX
1635 031577 202 00 0 00 777777 MOVEM -1 ;TRY TO SET VIA S(CE)
1636 031600 7 000 34 0 00 010000 CONSO 10000 ;FAIL TO SET
1637 STOP^
1638 031601 254 04 0 00 031602 HALT .+1
1639 031602 320 00 0 00 031603 JUMP .+1
1640 ^
1641
1642 031603 7 000 20 0 00 010000 CONO 10000 ;CLEAR NON-EX
1643 031604 272 00 0 00 777777 ADDM -1 ;TRY TO SET VIA PSE
1644 031605 7 000 34 0 00 010000 CONSO 10000 ;FAIL TO SET
1645 STOP^
1646 031606 254 04 0 00 031607 HALT .+1
1647 031607 320 00 0 00 031610 JUMP .+1
1648 ^
1649
1650 031610 310 00 0 00 777777 CAM -1 ;SET NON EX
1651 031611 7 000 20 0 00 000000 CONO ;TEST FOR NOT CLEARING
1652 031612 7 000 34 0 00 010000 CONSO 10000 ;ON CONO 0
1653 STOP^
1654 031613 254 04 0 00 031614 HALT .+1
1655 031614 320 00 0 00 031615 JUMP .+1
1656 ^
1657 031615 7 000 20 0 00 010000 CONO 10000
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 17
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0048
1658
1659 031616 7 000 20 0 00 400000 MOD54: CONO 400000 ;CLEAR PDL OV
1660 031617 474 00 0 00 000000 SETO ;TRY TO SET
1661 031620 261 00 0 00 000000 PUSH ;VIA PUSH
1662 031621 7 000 34 0 00 200000 CONSO 200000 ;TEST FOR SET
1663 STOP ^;CPA PRINT
1664
1665 031622 254 04 0 00 031623 HALT .+1
1666 031623 320 00 0 00 031624 JUMP .+1
1667
1668
1669 031624 474 00 0 00 000000 SETO
1670 031625 261 00 0 00 000000 PUSH ;SET PDL OV
1671 031626 7 000 20 0 00 400000 CONO 400000 ;TRY TO CLEAR .CK
1672 031627 7 000 30 0 00 200000 CONSZ 200000 ;CPA PDL OV SET (ET0) POP GATE
1673 STOP ^;FLOP/IOB CPA PRINT
1674
1675 031630 254 04 0 00 031631 HALT .+1
1676 031631 320 00 0 00 031632 JUMP .+1
1677
1678
1679 031632 474 00 0 00 000000 SETO
1680 031633 261 00 0 00 000000 PUSH ;SET PDL OV
1681 031634 7 000 20 0 00 000000 CONO ;CK FOR NOT CLEARING
1682 031635 7 000 34 0 00 200000 CONSO 200000
1683 STOP^
1684 031636 254 04 0 00 031637 HALT .+1
1685 031637 320 00 0 00 031640 JUMP .+1
1686 ^
1687
1688 031640 7 000 20 0 00 400000 CONO 400000 ;TEST FOR NOT
1689 031641 474 00 0 00 000000 SETO ;SETTING PDL-OV
1690 031642 350 00 0 00 000000 AOS ;CPA PDL OV SET FAIL
1691 031643 7 000 30 0 00 200000 CONSZ 200000 ;IR PUSH CRY(0) (1) AT ET0
1692 STOP ^;AND GATE. THE PUSH INPUT
1693
1694 031644 254 04 0 00 031645 HALT .+1
1695 031645 320 00 0 00 031646 JUMP .+1
1696
1697
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 18
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0049
1698 031646 7 000 20 0 00 400000 MOD55: CONO 400000 ;CK PDL FLAG
1699 031647 400 00 0 00 000000 SETZ ;CPA PDL OV SET
1700 031650 261 00 0 00 000000 PUSH ;CK AND GATE OK
1701 031651 7 000 30 0 00 200000 CONSZ 200000 ;ET0 IR PUSH,ADCRY0 (1)
1702 STOP ^;THE CRY FLAG SHOULD PREVENT
1703
1704 031652 254 04 0 00 031653 HALT .+1
1705 031653 320 00 0 00 031654 JUMP .+1
1706
1707
1708 031654 7 000 20 0 00 400000 CONO 400000 ;TRY TO SET PDL-OV
1709 031655 474 00 0 00 000000 SETO ;VIA PUSHJ
1710 031656 260 00 0 00 031657 PUSHJ .+1 ;THE AND GATE OF
1711 031657 7 000 34 0 00 200000 CONSO 200000 ;PUSH,PUSHJ TO FROM
1712 STOP ^;CPA PDL OV SET FAILED. SEE CPA PRINT
1713
1714 031660 254 04 0 00 031661 HALT .+1
1715 031661 320 00 0 00 031662 JUMP .+1
1716
1717
1718 031662 7 000 20 0 00 400000 CONO 400000 ;TRY TO SET VIA POPS
1719 031663 201 00 0 00 000001 MOVEI 1 ;CHECK AND GATE OF
1720 031664 262 00 0 00 000000 POP ;IR POPS, ET0, AD CRY 0(0)
1721 031665 7 000 34 0 00 200000 CONSO 200000 ;TO CPA PDL OV SET
1722 STOP^
1723 031666 254 04 0 00 031667 HALT .+1
1724 031667 320 00 0 00 031670 JUMP .+1
1725 ^
1726
1727 031670 7 000 20 0 00 400000 CONO 400000 ;CHECK POPS FOR NOT
1728 031671 200 00 0 00 036415 MOVE [XWD 1,1] ;SETTING PDL-OV
1729 031672 262 00 0 00 000000 POP ;AD CRY0(0) SHOULD PREVENT
1730 031673 7 000 30 0 00 200000 CONSZ 200000 ;SEE ABOVE
1731 STOP^
1732 031674 254 04 0 00 031675 HALT .+1
1733 031675 320 00 0 00 031676 JUMP .+1
1734 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 19
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0050
1735
1736 031676 205 00 0 00 400000 MOD56: MOVSI 400000 ;SET AROV FLAG
1737 031677 270 00 0 00 036472 ADD [XWD 400000,0] ;CK IOB INPUT IOB1
1738 031700 7 000 34 0 00 000010 CONSO 10 ;PRINT FOR MISSING
1739 STOP ^;IOB BIT 32
1740
1741 031701 254 04 0 00 031702 HALT .+1
1742 031702 320 00 0 00 031703 JUMP .+1
1743
1744
1745 031703 255 17 0 00 031704 JFCL 17,.+1 ;CHECK AROV STATUS
1746 031704 7 000 30 0 00 000010 CONSZ 10 ;BIT 32 ON IOB
1747 STOP ^;SEE IOB1 PRINT
1748
1749 031705 254 04 0 00 031706 HALT .+1
1750 031706 320 00 0 00 031707 JUMP .+1
1751
1752
1753 031707 7 000 30 0 00 404440 CONSZ 404440 ;STATUS BITS NOT USED
1754 STOP ^;SHOULD BE 0 IOB1 PRINT
1755
1756 031710 254 04 0 00 031711 HALT .+1
1757 031711 320 00 0 00 031712 JUMP .+1
1758
1759
1760 031712 7 000 20 0 00 200000 CONO 200000 ;CLEAR THE WORLD
1761 031713 400 00 0 00 000000 SETZ ;ON IOT THE
1762 031714 7 000 00 0 00 000000 BLKI ;AND GATE OF IOT BLKI
1763 031715 300 00 0 00 000000 CAI ;BLKO WHICH MAKES IOT BLK
1764 031716 312 00 0 00 036415 CAME [XWD 1,1] ;FAILED LOOK AT THE
1765 STOP ^;BLKI INPUT
1766
1767 031717 254 04 0 00 031720 HALT .+1
1768 031720 320 00 0 00 031721 JUMP .+1
1769
1770
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 20
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0051
1771 031721 205 00 0 00 400000 MOD57: MOVSI 400000 ;SET AROV FLAG
1772 031722 270 00 0 00 036472 ADD [XWD 400000,0] ;A CONO WITH OUT
1773 031723 7 000 20 0 00 000000 CONO ;BIT 32 CLEARED IT
1774 031724 255 10 0 00 031726 JFCL 10,.+2 ;SEE ARF PRINT CPA CONO
1775 STOP ^;AND BIT 32
1776
1777 031725 254 04 0 00 031726 HALT .+1
1778 031726 320 00 0 00 031727 JUMP .+1
1779
1780
1781 031727 205 00 0 00 400000 MOVSI 400000 ;SET AROV FLAG
1782 031730 270 00 0 00 036472 ADD [XWD 400000,0] ;TRY TO CLEAR WITH
1783 031731 7 000 20 0 00 000010 CONO 10 ;A CONO
1784 031732 255 10 0 00 031734 JFCL 10,.+2 ;IT FAILED TO CLEAR
1785 031733 334 00 0 00 000000 SKIPA ;CHECK ARF PRINT
1786 STOP ^;CPA CONO AND BIT 32
1787
1788 031734 254 04 0 00 031735 HALT .+1
1789 031735 320 00 0 00 031736 JUMP .+1
1790
1791
1792 031736 205 01 0 00 040000 MOVSI 1,40000
1793 031737 255 17 0 00 031740 JFCL 17,.+1 ;SET FOV FLAG
1794 031740 254 02 0 01 031741 JRST 2,.+1(1) ;VIA RESET FLAGS
1795 031741 7 000 20 0 00 000000 CONO ;CONO WITHOUT BIT29
1796 031742 255 01 0 00 031744 JFCL 1,.+2 ;CLEARED IT. SEE ARF PRINT
1797 STOP ^;CPA CONO SET AND IOB 29
1798
1799 031743 254 04 0 00 031744 HALT .+1
1800 031744 320 00 0 00 031745 JUMP .+1
1801
1802
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 21
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0052
1803 031745 205 01 0 00 040000 MOD58: MOVSI 1,40000
1804 031746 255 17 0 00 031747 JFCL 17,.+1 ;SET FOV FLAG
1805 031747 254 02 0 01 031750 JRST 2,.+1(1) ;VIA RESET FLAGS
1806 031750 7 000 20 0 00 000100 CONO 100 ;CONO FAIL TO CLEAR FOV
1807 031751 255 01 0 00 031753 JFCL 1,.+2 ;SEE ARF PRINT
1808 031752 334 00 0 00 000000 SKIPA ;CONO CPU AND IOB
1809 STOP ^;BIT 29
1810
1811 031753 254 04 0 00 031754 HALT .+1
1812 031754 320 00 0 00 031755 JUMP .+1
1813
1814
1815 031755 255 01 0 00 031756 JFCL 1,.+1 ;AR FOV FLAG TO IOB
1816 031756 7 000 30 0 00 000100 CONSZ 100 ;FAIL SEE IOB1 PRINT
1817 STOP ^;AND CPA STATUS, AR FOV (1)
1818
1819 031757 254 04 0 00 031760 HALT .+1
1820 031760 320 00 0 00 031761 JUMP .+1
1821
1822
1823 031761 205 01 0 00 040000 MOVSI 1,40000
1824 031762 255 17 0 00 031763 JFCL 17,.+1 ;SET FOV VIA
1825 031763 254 02 0 01 031764 JRST 2,.+1(1) ;RESTOR FLAGS
1826 031764 7 000 34 0 00 000100 CONSO 100 ;FOV TO IOB FAIL
1827 STOP ^;SEE IOB1 PRINT
1828
1829 031765 254 04 0 00 031766 HALT .+1
1830 031766 320 00 0 00 031767 JUMP .+1
1831
1832
1833 031767 7 000 20 0 00 040000 CONO 40000 ;CPA ADDR BREAK
1834 031770 7 000 30 0 00 040000 CONSZ 40000 ;STATUS FAIL
1835 STOP ^;SEE CPA OR IOB1 PRINT
1836
1837 031771 254 04 0 00 031772 HALT .+1
1838 031772 320 00 0 00 031773 JUMP .+1
1839
1840
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 22
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0053
1841 031773 7 000 20 0 00 000007 MOD59: CONO 7 ;A CONO TO P1 MODIFIED
1842 031774 7 004 20 0 00 000000 CONO PI,0 ;CPU AS A DEVICE. BIO
1843 031775 7 000 34 0 00 000007 CONSO 7 ;CPA SEL IS CONFUSED
1844 STOP^
1845 031776 254 04 0 00 031777 HALT .+1
1846 031777 320 00 0 00 032000 JUMP .+1
1847 ^
1848
1849 032000 7 000 20 0 00 010000 CONO 10000 ;JUST CHECKING FOR
1850 032001 310 00 0 00 032001 CAM . ;NOT NONEX AGAIN
1851 032002 7 000 30 0 00 010000 CONSZ 10000
1852 STOP^
1853 032003 254 04 0 00 032004 HALT .+1
1854 032004 320 00 0 00 032005 JUMP .+1
1855 ^
1856
1857 032005 7 004 20 0 00 200000 CONO PI,200000 ;SEE IF PAR ERR
1858 032006 7 004 30 0 00 200000 CONSZ PI,200000 ;IS A ZERO
1859 STOP^
1860 032007 254 04 0 00 032010 HALT .+1
1861 032010 320 00 0 00 032011 JUMP .+1
1862 ^
1863
1864 032011 7 004 20 0 00 400000 CONO PI,400000 ;SEE IF POWER FAIL
1865 032012 7 004 30 0 00 400000 CONSZ PI,400000 ;IS A ZERO
1866 STOP^
1867 032013 254 04 0 00 032014 HALT .+1
1868 032014 320 00 0 00 032015 JUMP .+1
1869 ^
1870
1871 032015 201 00 0 00 777777 MOVEI -1 ;WAIT FOR CLOCK
1872 032016 7 000 30 0 00 001000 CONSZ 1000 ;FLAG TO SET
1873 032017 254 00 0 00 032022 JRST .+3
1874 032020 367 00 0 00 032016 SOJG .-2
1875 STOP ^;NO CLOCK FLAG
1876
1877 032021 254 04 0 00 032022 HALT .+1
1878 032022 320 00 0 00 032023 JUMP .+1
1879
1880
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 23
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0054
1881 032023 7 004 20 0 00 100000 MOD60: CONO PI,100000 ;CLEAR CPA PARITY ENB
1882 032024 7 004 20 0 00 040000 CONO PI,40000 ;TRY TO SET IT
1883 032025 7 004 34 0 00 100000 CONSO PI,100000 ;ALSO PI AS DEVICE
1884 STOP^
1885 032026 254 04 0 00 032027 HALT .+1
1886 032027 320 00 0 00 032030 JUMP .+1
1887 ^
1888
1889 032030 7 004 20 0 00 040000 CONO PI,40000 ;SET CPA PAR ENB
1890 032031 7 004 20 0 00 000000 CONO PI, ;CK FOR NOT CLEAR
1891 032032 7 004 34 0 00 100000 CONSO PI,100000
1892 STOP^
1893 032033 254 04 0 00 032034 HALT .+1
1894 032034 320 00 0 00 032035 JUMP .+1
1895 ^
1896
1897 032035 7 004 20 0 00 040000 CONO PI,40000 ;SET CPA PAR ENB
1898 032036 7 004 20 0 00 100000 CONO PI,100000 ;TRY TO CLEAR
1899 032037 7 004 30 0 00 100000 CONSZ PI,100000
1900 STOP^
1901 032040 254 04 0 00 032041 HALT .+1
1902 032041 320 00 0 00 032042 JUMP .+1
1903 ^
1904
1905 032042 7 004 20 0 00 100000 CONO PI,100000 ;CLEAR CPA PAR ENB
1906 032043 7 004 20 0 00 000000 CONO PI, ;CK FOR NOT SET
1907
1908 032044 7 004 30 0 00 100000 CONSZ PI,100000 ;ON CONO
1909 STOP^
1910 032045 254 04 0 00 032046 HALT .+1
1911 032046 320 00 0 00 032047 JUMP .+1
1912 ^
1913
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 24
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0055
1914 032047 MOD70: CLEAN ^;SEE IOB1
1915
1916 032047 7 000 20 0 00 634440 CONO 634440
1917 032050 7 004 20 0 00 010000 CONO PI,10000
1918
1919 032051 7 004 24 0 00 000000 CONI PI,0 ;READ PI STATUS
1920 032052 602 00 0 00 077400 TRNE 77400 ;A PI HOLD FLOP FAIL TO
1921 STOP ^;CLEAR OR IOB PI INPUT
1922
1923 032053 254 04 0 00 032054 HALT .+1
1924 032054 320 00 0 00 032055 JUMP .+1
1925
1926 032055 200 01 0 00 036473 MOVE 1,[MOVEI 40] ;STORE A MOVIT IN
1927 032056 202 01 0 01 000000 MOVEM 1,(1) ;LOCATIONS 40 TO 60
1928 032057 312 01 0 00 036474 CAME 1,[MOVEI 57]
1929 032060 344 01 0 00 032056 AOJA 1,.-2
1930
1931 DEFINE BLURB<
1932 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
1933 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
1934 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
1935 ;INSTRUCTION
1936 >
1937 DEFINE PIO (A)
1938 < CLEAN
1939 CONO PI,PIOSET+A ;PIO FAIL TO SET IF LIGHT OUT
1940 CONSO PI,A ;OTHERWISE FAIL TO READ
1941 STOP ;STATUS SE P12-IOB1 PRINT
1942
1943 CLEAN ;CHECK PIO CLEAR
1944 CONO PI,PIOSET+A ;SET PIO
1945 CONO PI,PIOCLR+A ;TRY TO CLEAR
1946 CONSZ PI,A ;LIGHT=FAIL TO CLEAR PI2 PRINT
1947 STOP ;NO LIGHT=STATUS FAIL IOB1 PRINT
1948
1949 CLEAN ;CHECK FOR PI RESET
1950 CONO PI,PIOSET+A ;ABILITY TO CLEAR PIO FLAG
1951 CONO PI,10000 ;SEE PI2 PRINT, PI RESET
1952 CONSZ PI,A ;TO PIO FLAGS
1953 STOP
1954
1955 CLEAN ;TEST PIO SET
1956 CONO PI,PIOSET ;SEE PI2 PRINT
1957 CONSZ PI,A ;IT SET FLOP WITHOUT
1958 STOP ;A IOB BIT
1959
1960 CLEAN ;TEST PIO CLR
1961 CONO PI,PIOSET+A ;PERHAPS PI RESET OCCURED (NO IOB-23)
1962 CONO PI,PIOCLR ;THE FLOP CLEARED
1963 CONSO PI,A ;WITH OUT A IOB BIT
1964 STOP ;SEE PI2 PRINT
1965 >
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 25
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0056
1966
1967 032061 MOD71: CLEAN ^;CHECK PIO SET
1968
1969 032061 7 000 20 0 00 634440 CONO 634440
1970 032062 7 004 20 0 00 010000 CONO PI,10000
1971
1972 032063 7 004 20 0 00 002177 CONO PI,PIOSET+177 ;THE PI CHANNEL FLOPS
1973 032064 7 004 34 0 00 000177 CONSO PI,177 ;FAILED TO SET
1974 STOP ^;CHECK PI1 PRINT
1975
1976 032065 254 04 0 00 032066 HALT .+1
1977 032066 320 00 0 00 032067 JUMP .+1
1978
1979
1980 032067 MOD72: PIO 100^ CLEAN^
1981 032067 7 000 20 0 00 634440 CONO 634440
1982 032070 7 004 20 0 00 010000 CONO PI,10000
1983 ^
1984 032071 7 004 20 0 00 002100 CONO PI,PIOSET+100 ;PIO FAIL TO SET IF LIGHT OUT
1985 032072 7 004 34 0 00 000100 CONSO PI,100 ;OTHERWISE FAIL TO READ
1986 STOP ^
1987 032073 254 04 0 00 032074 HALT .+1
1988 032074 320 00 0 00 032075 JUMP .+1
1989 ^;STATUS SE P12-IOB1 PRINT
1990
1991 CLEAN ^
1992 032075 7 000 20 0 00 634440 CONO 634440
1993 032076 7 004 20 0 00 010000 CONO PI,10000
1994 ^;CHECK PIO CLEAR
1995 032077 7 004 20 0 00 002100 CONO PI,PIOSET+100 ;SET PIO
1996 032100 7 004 20 0 00 001100 CONO PI,PIOCLR+100 ;TRY TO CLEAR
1997 032101 7 004 30 0 00 000100 CONSZ PI,100 ;LIGHT=FAIL TO CLEAR PI2 PRINT
1998 STOP ^
1999 032102 254 04 0 00 032103 HALT .+1
2000 032103 320 00 0 00 032104 JUMP .+1
2001 ^;NO LIGHT=STATUS FAIL IOB1 PRINT
2002
2003 CLEAN ^
2004 032104 7 000 20 0 00 634440 CONO 634440
2005 032105 7 004 20 0 00 010000 CONO PI,10000
2006 ^;CHECK FOR PI RESET
2007 032106 7 004 20 0 00 002100 CONO PI,PIOSET+100 ;ABILITY TO CLEAR PIO FLAG
2008 032107 7 004 20 0 00 010000 CONO PI,10000 ;SEE PI2 PRINT, PI RESET
2009 032110 7 004 30 0 00 000100 CONSZ PI,100 ;TO PIO FLAGS
2010 STOP^
2011 032111 254 04 0 00 032112 HALT .+1
2012 032112 320 00 0 00 032113 JUMP .+1
2013 ^
2014
2015 CLEAN ^
2016 032113 7 000 20 0 00 634440 CONO 634440
2017 032114 7 004 20 0 00 010000 CONO PI,10000
2018 ^;TEST PIO SET
2019 032115 7 004 20 0 00 002000 CONO PI,PIOSET ;SEE PI2 PRINT
2020 032116 7 004 30 0 00 000100 CONSZ PI,100 ;IT SET FLOP WITHOUT
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 25-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0057
2021 STOP ^
2022 032117 254 04 0 00 032120 HALT .+1
2023 032120 320 00 0 00 032121 JUMP .+1
2024 ^;100 IOB BIT
2025
2026 CLEAN ^
2027 032121 7 000 20 0 00 634440 CONO 634440
2028 032122 7 004 20 0 00 010000 CONO PI,10000
2029 ^;TEST PIO CLR
2030 032123 7 004 20 0 00 002100 CONO PI,PIOSET+100 ;PERHAPS PI RESET OCCURED (NO IOB-23)
2031 032124 7 004 20 0 00 001000 CONO PI,PIOCLR ;THE FLOP CLEARED
2032 032125 7 004 34 0 00 000100 CONSO PI,100 ;WITH OUT 100 IOB BIT
2033 STOP ^
2034 032126 254 04 0 00 032127 HALT .+1
2035 032127 320 00 0 00 032130 JUMP .+1
2036 ^;SEE PI2 PRINT
2037 ^
2038 PIO 40^ CLEAN^
2039 032130 7 000 20 0 00 634440 CONO 634440
2040 032131 7 004 20 0 00 010000 CONO PI,10000
2041 ^
2042 032132 7 004 20 0 00 002040 CONO PI,PIOSET+40 ;PIO FAIL TO SET IF LIGHT OUT
2043 032133 7 004 34 0 00 000040 CONSO PI,40 ;OTHERWISE FAIL TO READ
2044 STOP ^
2045 032134 254 04 0 00 032135 HALT .+1
2046 032135 320 00 0 00 032136 JUMP .+1
2047 ^;STATUS SE P12-IOB1 PRINT
2048
2049 CLEAN ^
2050 032136 7 000 20 0 00 634440 CONO 634440
2051 032137 7 004 20 0 00 010000 CONO PI,10000
2052 ^;CHECK PIO CLEAR
2053 032140 7 004 20 0 00 002040 CONO PI,PIOSET+40 ;SET PIO
2054 032141 7 004 20 0 00 001040 CONO PI,PIOCLR+40 ;TRY TO CLEAR
2055 032142 7 004 30 0 00 000040 CONSZ PI,40 ;LIGHT=FAIL TO CLEAR PI2 PRINT
2056 STOP ^
2057 032143 254 04 0 00 032144 HALT .+1
2058 032144 320 00 0 00 032145 JUMP .+1
2059 ^;NO LIGHT=STATUS FAIL IOB1 PRINT
2060
2061 CLEAN ^
2062 032145 7 000 20 0 00 634440 CONO 634440
2063 032146 7 004 20 0 00 010000 CONO PI,10000
2064 ^;CHECK FOR PI RESET
2065 032147 7 004 20 0 00 002040 CONO PI,PIOSET+40 ;ABILITY TO CLEAR PIO FLAG
2066 032150 7 004 20 0 00 010000 CONO PI,10000 ;SEE PI2 PRINT, PI RESET
2067 032151 7 004 30 0 00 000040 CONSZ PI,40 ;TO PIO FLAGS
2068 STOP^
2069 032152 254 04 0 00 032153 HALT .+1
2070 032153 320 00 0 00 032154 JUMP .+1
2071 ^
2072
2073 CLEAN ^
2074 032154 7 000 20 0 00 634440 CONO 634440
2075 032155 7 004 20 0 00 010000 CONO PI,10000
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 25-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0058
2076 ^;TEST PIO SET
2077 032156 7 004 20 0 00 002000 CONO PI,PIOSET ;SEE PI2 PRINT
2078 032157 7 004 30 0 00 000040 CONSZ PI,40 ;IT SET FLOP WITHOUT
2079 STOP ^
2080 032160 254 04 0 00 032161 HALT .+1
2081 032161 320 00 0 00 032162 JUMP .+1
2082 ^;40 IOB BIT
2083
2084 CLEAN ^
2085 032162 7 000 20 0 00 634440 CONO 634440
2086 032163 7 004 20 0 00 010000 CONO PI,10000
2087 ^;TEST PIO CLR
2088 032164 7 004 20 0 00 002040 CONO PI,PIOSET+40 ;PERHAPS PI RESET OCCURED (NO IOB-23)
2089 032165 7 004 20 0 00 001000 CONO PI,PIOCLR ;THE FLOP CLEARED
2090 032166 7 004 34 0 00 000040 CONSO PI,40 ;WITH OUT 40 IOB BIT
2091 STOP ^
2092 032167 254 04 0 00 032170 HALT .+1
2093 032170 320 00 0 00 032171 JUMP .+1
2094 ^;SEE PI2 PRINT
2095 ^
2096
2097 032171 MOD73: CHANEL MOD75^
2098 032171 336 00 0 00 036672 SKIPN PI7SYS#
2099 032172 254 00 0 00 032440 JRST MOD75
2100 ^
2101 PIO 20^ CLEAN^
2102 032173 7 000 20 0 00 634440 CONO 634440
2103 032174 7 004 20 0 00 010000 CONO PI,10000
2104 ^
2105 032175 7 004 20 0 00 002020 CONO PI,PIOSET+20 ;PIO FAIL TO SET IF LIGHT OUT
2106 032176 7 004 34 0 00 000020 CONSO PI,20 ;OTHERWISE FAIL TO READ
2107 STOP ^
2108 032177 254 04 0 00 032200 HALT .+1
2109 032200 320 00 0 00 032201 JUMP .+1
2110 ^;STATUS SE P12-IOB1 PRINT
2111
2112 CLEAN ^
2113 032201 7 000 20 0 00 634440 CONO 634440
2114 032202 7 004 20 0 00 010000 CONO PI,10000
2115 ^;CHECK PIO CLEAR
2116 032203 7 004 20 0 00 002020 CONO PI,PIOSET+20 ;SET PIO
2117 032204 7 004 20 0 00 001020 CONO PI,PIOCLR+20 ;TRY TO CLEAR
2118 032205 7 004 30 0 00 000020 CONSZ PI,20 ;LIGHT=FAIL TO CLEAR PI2 PRINT
2119 STOP ^
2120 032206 254 04 0 00 032207 HALT .+1
2121 032207 320 00 0 00 032210 JUMP .+1
2122 ^;NO LIGHT=STATUS FAIL IOB1 PRINT
2123
2124 CLEAN ^
2125 032210 7 000 20 0 00 634440 CONO 634440
2126 032211 7 004 20 0 00 010000 CONO PI,10000
2127 ^;CHECK FOR PI RESET
2128 032212 7 004 20 0 00 002020 CONO PI,PIOSET+20 ;ABILITY TO CLEAR PIO FLAG
2129 032213 7 004 20 0 00 010000 CONO PI,10000 ;SEE PI2 PRINT, PI RESET
2130 032214 7 004 30 0 00 000020 CONSZ PI,20 ;TO PIO FLAGS
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 25-3
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0059
2131 STOP^
2132 032215 254 04 0 00 032216 HALT .+1
2133 032216 320 00 0 00 032217 JUMP .+1
2134 ^
2135
2136 CLEAN ^
2137 032217 7 000 20 0 00 634440 CONO 634440
2138 032220 7 004 20 0 00 010000 CONO PI,10000
2139 ^;TEST PIO SET
2140 032221 7 004 20 0 00 002000 CONO PI,PIOSET ;SEE PI2 PRINT
2141 032222 7 004 30 0 00 000020 CONSZ PI,20 ;IT SET FLOP WITHOUT
2142 STOP ^
2143 032223 254 04 0 00 032224 HALT .+1
2144 032224 320 00 0 00 032225 JUMP .+1
2145 ^;20 IOB BIT
2146
2147 CLEAN ^
2148 032225 7 000 20 0 00 634440 CONO 634440
2149 032226 7 004 20 0 00 010000 CONO PI,10000
2150 ^;TEST PIO CLR
2151 032227 7 004 20 0 00 002020 CONO PI,PIOSET+20 ;PERHAPS PI RESET OCCURED (NO IOB-23)
2152 032230 7 004 20 0 00 001000 CONO PI,PIOCLR ;THE FLOP CLEARED
2153 032231 7 004 34 0 00 000020 CONSO PI,20 ;WITH OUT 20 IOB BIT
2154 STOP ^
2155 032232 254 04 0 00 032233 HALT .+1
2156 032233 320 00 0 00 032234 JUMP .+1
2157 ^;SEE PI2 PRINT
2158 ^
2159 PIO 10^ CLEAN^
2160 032234 7 000 20 0 00 634440 CONO 634440
2161 032235 7 004 20 0 00 010000 CONO PI,10000
2162 ^
2163 032236 7 004 20 0 00 002010 CONO PI,PIOSET+10 ;PIO FAIL TO SET IF LIGHT OUT
2164 032237 7 004 34 0 00 000010 CONSO PI,10 ;OTHERWISE FAIL TO READ
2165 STOP ^
2166 032240 254 04 0 00 032241 HALT .+1
2167 032241 320 00 0 00 032242 JUMP .+1
2168 ^;STATUS SE P12-IOB1 PRINT
2169
2170 CLEAN ^
2171 032242 7 000 20 0 00 634440 CONO 634440
2172 032243 7 004 20 0 00 010000 CONO PI,10000
2173 ^;CHECK PIO CLEAR
2174 032244 7 004 20 0 00 002010 CONO PI,PIOSET+10 ;SET PIO
2175 032245 7 004 20 0 00 001010 CONO PI,PIOCLR+10 ;TRY TO CLEAR
2176 032246 7 004 30 0 00 000010 CONSZ PI,10 ;LIGHT=FAIL TO CLEAR PI2 PRINT
2177 STOP ^
2178 032247 254 04 0 00 032250 HALT .+1
2179 032250 320 00 0 00 032251 JUMP .+1
2180 ^;NO LIGHT=STATUS FAIL IOB1 PRINT
2181
2182 CLEAN ^
2183 032251 7 000 20 0 00 634440 CONO 634440
2184 032252 7 004 20 0 00 010000 CONO PI,10000
2185 ^;CHECK FOR PI RESET
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 25-4
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0060
2186 032253 7 004 20 0 00 002010 CONO PI,PIOSET+10 ;ABILITY TO CLEAR PIO FLAG
2187 032254 7 004 20 0 00 010000 CONO PI,10000 ;SEE PI2 PRINT, PI RESET
2188 032255 7 004 30 0 00 000010 CONSZ PI,10 ;TO PIO FLAGS
2189 STOP^
2190 032256 254 04 0 00 032257 HALT .+1
2191 032257 320 00 0 00 032260 JUMP .+1
2192 ^
2193
2194 CLEAN ^
2195 032260 7 000 20 0 00 634440 CONO 634440
2196 032261 7 004 20 0 00 010000 CONO PI,10000
2197 ^;TEST PIO SET
2198 032262 7 004 20 0 00 002000 CONO PI,PIOSET ;SEE PI2 PRINT
2199 032263 7 004 30 0 00 000010 CONSZ PI,10 ;IT SET FLOP WITHOUT
2200 STOP ^
2201 032264 254 04 0 00 032265 HALT .+1
2202 032265 320 00 0 00 032266 JUMP .+1
2203 ^;10 IOB BIT
2204
2205 CLEAN ^
2206 032266 7 000 20 0 00 634440 CONO 634440
2207 032267 7 004 20 0 00 010000 CONO PI,10000
2208 ^;TEST PIO CLR
2209 032270 7 004 20 0 00 002010 CONO PI,PIOSET+10 ;PERHAPS PI RESET OCCURED (NO IOB-23)
2210 032271 7 004 20 0 00 001000 CONO PI,PIOCLR ;THE FLOP CLEARED
2211 032272 7 004 34 0 00 000010 CONSO PI,10 ;WITH OUT 10 IOB BIT
2212 STOP ^
2213 032273 254 04 0 00 032274 HALT .+1
2214 032274 320 00 0 00 032275 JUMP .+1
2215 ^;SEE PI2 PRINT
2216 ^
2217
2218 032275 MOD74: PIO 4^ CLEAN^
2219 032275 7 000 20 0 00 634440 CONO 634440
2220 032276 7 004 20 0 00 010000 CONO PI,10000
2221 ^
2222 032277 7 004 20 0 00 002004 CONO PI,PIOSET+4 ;PIO FAIL TO SET IF LIGHT OUT
2223 032300 7 004 34 0 00 000004 CONSO PI,4 ;OTHERWISE FAIL TO READ
2224 STOP ^
2225 032301 254 04 0 00 032302 HALT .+1
2226 032302 320 00 0 00 032303 JUMP .+1
2227 ^;STATUS SE P12-IOB1 PRINT
2228
2229 CLEAN ^
2230 032303 7 000 20 0 00 634440 CONO 634440
2231 032304 7 004 20 0 00 010000 CONO PI,10000
2232 ^;CHECK PIO CLEAR
2233 032305 7 004 20 0 00 002004 CONO PI,PIOSET+4 ;SET PIO
2234 032306 7 004 20 0 00 001004 CONO PI,PIOCLR+4 ;TRY TO CLEAR
2235 032307 7 004 30 0 00 000004 CONSZ PI,4 ;LIGHT=FAIL TO CLEAR PI2 PRINT
2236 STOP ^
2237 032310 254 04 0 00 032311 HALT .+1
2238 032311 320 00 0 00 032312 JUMP .+1
2239 ^;NO LIGHT=STATUS FAIL IOB1 PRINT
2240
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 25-5
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0061
2241 CLEAN ^
2242 032312 7 000 20 0 00 634440 CONO 634440
2243 032313 7 004 20 0 00 010000 CONO PI,10000
2244 ^;CHECK FOR PI RESET
2245 032314 7 004 20 0 00 002004 CONO PI,PIOSET+4 ;ABILITY TO CLEAR PIO FLAG
2246 032315 7 004 20 0 00 010000 CONO PI,10000 ;SEE PI2 PRINT, PI RESET
2247 032316 7 004 30 0 00 000004 CONSZ PI,4 ;TO PIO FLAGS
2248 STOP^
2249 032317 254 04 0 00 032320 HALT .+1
2250 032320 320 00 0 00 032321 JUMP .+1
2251 ^
2252
2253 CLEAN ^
2254 032321 7 000 20 0 00 634440 CONO 634440
2255 032322 7 004 20 0 00 010000 CONO PI,10000
2256 ^;TEST PIO SET
2257 032323 7 004 20 0 00 002000 CONO PI,PIOSET ;SEE PI2 PRINT
2258 032324 7 004 30 0 00 000004 CONSZ PI,4 ;IT SET FLOP WITHOUT
2259 STOP ^
2260 032325 254 04 0 00 032326 HALT .+1
2261 032326 320 00 0 00 032327 JUMP .+1
2262 ^;4 IOB BIT
2263
2264 CLEAN ^
2265 032327 7 000 20 0 00 634440 CONO 634440
2266 032330 7 004 20 0 00 010000 CONO PI,10000
2267 ^;TEST PIO CLR
2268 032331 7 004 20 0 00 002004 CONO PI,PIOSET+4 ;PERHAPS PI RESET OCCURED (NO IOB-23)
2269 032332 7 004 20 0 00 001000 CONO PI,PIOCLR ;THE FLOP CLEARED
2270 032333 7 004 34 0 00 000004 CONSO PI,4 ;WITH OUT 4 IOB BIT
2271 STOP ^
2272 032334 254 04 0 00 032335 HALT .+1
2273 032335 320 00 0 00 032336 JUMP .+1
2274 ^;SEE PI2 PRINT
2275 ^
2276 PIO 2^ CLEAN^
2277 032336 7 000 20 0 00 634440 CONO 634440
2278 032337 7 004 20 0 00 010000 CONO PI,10000
2279 ^
2280 032340 7 004 20 0 00 002002 CONO PI,PIOSET+2 ;PIO FAIL TO SET IF LIGHT OUT
2281 032341 7 004 34 0 00 000002 CONSO PI,2 ;OTHERWISE FAIL TO READ
2282 STOP ^
2283 032342 254 04 0 00 032343 HALT .+1
2284 032343 320 00 0 00 032344 JUMP .+1
2285 ^;STATUS SE P12-IOB1 PRINT
2286
2287 CLEAN ^
2288 032344 7 000 20 0 00 634440 CONO 634440
2289 032345 7 004 20 0 00 010000 CONO PI,10000
2290 ^;CHECK PIO CLEAR
2291 032346 7 004 20 0 00 002002 CONO PI,PIOSET+2 ;SET PIO
2292 032347 7 004 20 0 00 001002 CONO PI,PIOCLR+2 ;TRY TO CLEAR
2293 032350 7 004 30 0 00 000002 CONSZ PI,2 ;LIGHT=FAIL TO CLEAR PI2 PRINT
2294 STOP ^
2295 032351 254 04 0 00 032352 HALT .+1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 25-6
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0062
2296 032352 320 00 0 00 032353 JUMP .+1
2297 ^;NO LIGHT=STATUS FAIL IOB1 PRINT
2298
2299 CLEAN ^
2300 032353 7 000 20 0 00 634440 CONO 634440
2301 032354 7 004 20 0 00 010000 CONO PI,10000
2302 ^;CHECK FOR PI RESET
2303 032355 7 004 20 0 00 002002 CONO PI,PIOSET+2 ;ABILITY TO CLEAR PIO FLAG
2304 032356 7 004 20 0 00 010000 CONO PI,10000 ;SEE PI2 PRINT, PI RESET
2305 032357 7 004 30 0 00 000002 CONSZ PI,2 ;TO PIO FLAGS
2306 STOP^
2307 032360 254 04 0 00 032361 HALT .+1
2308 032361 320 00 0 00 032362 JUMP .+1
2309 ^
2310
2311 CLEAN ^
2312 032362 7 000 20 0 00 634440 CONO 634440
2313 032363 7 004 20 0 00 010000 CONO PI,10000
2314 ^;TEST PIO SET
2315 032364 7 004 20 0 00 002000 CONO PI,PIOSET ;SEE PI2 PRINT
2316 032365 7 004 30 0 00 000002 CONSZ PI,2 ;IT SET FLOP WITHOUT
2317 STOP ^
2318 032366 254 04 0 00 032367 HALT .+1
2319 032367 320 00 0 00 032370 JUMP .+1
2320 ^;2 IOB BIT
2321
2322 CLEAN ^
2323 032370 7 000 20 0 00 634440 CONO 634440
2324 032371 7 004 20 0 00 010000 CONO PI,10000
2325 ^;TEST PIO CLR
2326 032372 7 004 20 0 00 002002 CONO PI,PIOSET+2 ;PERHAPS PI RESET OCCURED (NO IOB-23)
2327 032373 7 004 20 0 00 001000 CONO PI,PIOCLR ;THE FLOP CLEARED
2328 032374 7 004 34 0 00 000002 CONSO PI,2 ;WITH OUT 2 IOB BIT
2329 STOP ^
2330 032375 254 04 0 00 032376 HALT .+1
2331 032376 320 00 0 00 032377 JUMP .+1
2332 ^;SEE PI2 PRINT
2333 ^
2334 PIO 1^ CLEAN^
2335 032377 7 000 20 0 00 634440 CONO 634440
2336 032400 7 004 20 0 00 010000 CONO PI,10000
2337 ^
2338 032401 7 004 20 0 00 002001 CONO PI,PIOSET+1 ;PIO FAIL TO SET IF LIGHT OUT
2339 032402 7 004 34 0 00 000001 CONSO PI,1 ;OTHERWISE FAIL TO READ
2340 STOP ^
2341 032403 254 04 0 00 032404 HALT .+1
2342 032404 320 00 0 00 032405 JUMP .+1
2343 ^;STATUS SE P12-IOB1 PRINT
2344
2345 CLEAN ^
2346 032405 7 000 20 0 00 634440 CONO 634440
2347 032406 7 004 20 0 00 010000 CONO PI,10000
2348 ^;CHECK PIO CLEAR
2349 032407 7 004 20 0 00 002001 CONO PI,PIOSET+1 ;SET PIO
2350 032410 7 004 20 0 00 001001 CONO PI,PIOCLR+1 ;TRY TO CLEAR
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 25-7
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0063
2351 032411 7 004 30 0 00 000001 CONSZ PI,1 ;LIGHT=FAIL TO CLEAR PI2 PRINT
2352 STOP ^
2353 032412 254 04 0 00 032413 HALT .+1
2354 032413 320 00 0 00 032414 JUMP .+1
2355 ^;NO LIGHT=STATUS FAIL IOB1 PRINT
2356
2357 CLEAN ^
2358 032414 7 000 20 0 00 634440 CONO 634440
2359 032415 7 004 20 0 00 010000 CONO PI,10000
2360 ^;CHECK FOR PI RESET
2361 032416 7 004 20 0 00 002001 CONO PI,PIOSET+1 ;ABILITY TO CLEAR PIO FLAG
2362 032417 7 004 20 0 00 010000 CONO PI,10000 ;SEE PI2 PRINT, PI RESET
2363 032420 7 004 30 0 00 000001 CONSZ PI,1 ;TO PIO FLAGS
2364 STOP^
2365 032421 254 04 0 00 032422 HALT .+1
2366 032422 320 00 0 00 032423 JUMP .+1
2367 ^
2368
2369 CLEAN ^
2370 032423 7 000 20 0 00 634440 CONO 634440
2371 032424 7 004 20 0 00 010000 CONO PI,10000
2372 ^;TEST PIO SET
2373 032425 7 004 20 0 00 002000 CONO PI,PIOSET ;SEE PI2 PRINT
2374 032426 7 004 30 0 00 000001 CONSZ PI,1 ;IT SET FLOP WITHOUT
2375 STOP ^
2376 032427 254 04 0 00 032430 HALT .+1
2377 032430 320 00 0 00 032431 JUMP .+1
2378 ^;1 IOB BIT
2379
2380 CLEAN ^
2381 032431 7 000 20 0 00 634440 CONO 634440
2382 032432 7 004 20 0 00 010000 CONO PI,10000
2383 ^;TEST PIO CLR
2384 032433 7 004 20 0 00 002001 CONO PI,PIOSET+1 ;PERHAPS PI RESET OCCURED (NO IOB-23)
2385 032434 7 004 20 0 00 001000 CONO PI,PIOCLR ;THE FLOP CLEARED
2386 032435 7 004 34 0 00 000001 CONSO PI,1 ;WITH OUT 1 IOB BIT
2387 STOP ^
2388 032436 254 04 0 00 032437 HALT .+1
2389 032437 320 00 0 00 032440 JUMP .+1
2390 ^;SEE PI2 PRINT
2391 ^
2392 032440 MOD75: CLEAN^
2393 032440 7 000 20 0 00 634440 CONO 634440
2394 032441 7 004 20 0 00 010000 CONO PI,10000
2395 ^
2396 032442 MOD76: CLEAN^
2397 032442 7 000 20 0 00 634440 CONO 634440
2398 032443 7 004 20 0 00 010000 CONO PI,10000
2399 ^
2400 032444 7 004 20 0 00 002100 CONO PI,PIOSET+100 ;PI RESET OCCURED
2401 032445 7 004 20 0 00 000000 CONO PI,0 ;WITH OUT IOB-23
2402 032446 7 004 34 0 00 000100 CONSO PI,100 ;SEE PI1 PRINT
2403 STOP^
2404 032447 254 04 0 00 032450 HALT .+1
2405 032450 320 00 0 00 032451 JUMP .+1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 25-8
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0064
2406 ^
2407
2408 CLEAN ^;PI RESET OCCURED
2409
2410 032451 7 000 20 0 00 634440 CONO 634440
2411 032452 7 004 20 0 00 010000 CONO PI,10000
2412
2413 032453 7 004 20 0 00 002100 CONO PI,PIOSET+100 ;WITH OUT PI SEL
2414 032454 7 774 20 0 00 001000 CONO ME,1000 ;SEE PI1 PRINT
2415 032455 7 004 34 0 00 000100 CONSO PI,100
2416 STOP^
2417 032456 254 04 0 00 032457 HALT .+1
2418 032457 320 00 0 00 032460 JUMP .+1
2419 ^
2420
2421 CLEAN^
2422 032460 7 000 20 0 00 634440 CONO 634440
2423 032461 7 004 20 0 00 010000 CONO PI,10000
2424 ^
2425 032462 7 004 20 0 00 002100 CONO PI,PIOSET+100 ;CHECK SELECTION
2426 032463 7 774 20 0 00 001100 CONO ME,PIOCLR+100 ;ON CONO SETL. SEE
2427 032464 7 004 34 0 00 000100 CONSO PI,100 ;PI1 PRINT CONO ME
2428 STOP ^;SHOULD NOT EFFECT PI
2429
2430 032465 254 04 0 00 032466 HALT .+1
2431 032466 320 00 0 00 032467 JUMP .+1
2432
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 26
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0065
2433 032467 MOD77: CLEAN^
2434 032467 7 000 20 0 00 634440 CONO 634440
2435 032470 7 004 20 0 00 010000 CONO PI,10000
2436 ^
2437 032471 7 004 20 0 00 000200 CONO PI,ACT ;SET ACTIVE THEN
2438 032472 7 004 20 0 00 010000 CONO PI,10000 ;TRY TO CLEAR VIA PI RESET
2439 032473 7 004 30 0 00 000200 CONSZ PI,200 ;FAIL TO CLEAR SEE P11 PRINT
2440 STOP ^;THE PI ACT FLAG
2441
2442 032474 254 04 0 00 032475 HALT .+1
2443 032475 320 00 0 00 032476 JUMP .+1
2444
2445 CLEAN^
2446 032476 7 000 20 0 00 634440 CONO 634440
2447 032477 7 004 20 0 00 010000 CONO PI,10000
2448 ^
2449 032500 7 004 20 0 00 000200 CONO PI,ACT ;SET ACTIVE THEN
2450 032501 7 004 20 0 00 000400 CONO PI,400 ;TRY TO CLEAR VIA CONO
2451 032502 7 004 30 0 00 000200 CONSZ PI,200 ;AND BIT27 SEE PI1
2452 STOP ^;PRINT ACTIVE FLAG
2453
2454 032503 254 04 0 00 032504 HALT .+1
2455 032504 320 00 0 00 032505 JUMP .+1
2456
2457 CLEAN^
2458 032505 7 000 20 0 00 634440 CONO 634440
2459 032506 7 004 20 0 00 010000 CONO PI,10000
2460 ^
2461 032507 7 004 20 0 00 000200 CONO PI,ACT ;SEE ACT VIA CONO BIT 28
2462 032510 7 004 34 0 00 000200 CONSO PI,200 ;LIGHT=0 FAIL TO SET
2463 STOP ^;LIGHT=(1) FAIL TO READ PI1-IOB1
2464
2465 032511 254 04 0 00 032512 HALT .+1
2466 032512 320 00 0 00 032513 JUMP .+1
2467
2468 CLEAN^
2469 032513 7 000 20 0 00 634440 CONO 634440
2470 032514 7 004 20 0 00 010000 CONO PI,10000
2471 ^
2472 032515 7 004 20 0 00 000200 CONO PI,ACT ;SEE ABOVE
2473 032516 7 004 20 0 00 000200 CONO PI,ACT
2474 032517 7 004 34 0 00 000200 CONSO PI,200
2475 STOP ^;PI ACT FAIL
2476
2477 032520 254 04 0 00 032521 HALT .+1
2478 032521 320 00 0 00 032522 JUMP .+1
2479
2480
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 27
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0066
2481 DEFINE NOTPIR (A)<
2482 CLEAN ;ENABLE PRIORITY, EXPECT NO INTERRUPTS
2483 CONO PI,ACT ;CK PI REQ LEVEL (PI2 PRINT). THE
2484 CONSZ PI,A ;PIR (1) INPUT TO AND GATE OF PIH (0)
2485 STOP ;BOTTEM OF PAGE. ALSO PIR-FLOP
2486 >
2487 032522 MOD78: BLURB^
2488 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
2489 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
2490 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
2491 ;INSTRUCTION
2492 ^
2493 ;CHECK CHANNEL 1, PIR1 FLOP OR RI REQ1 LEVEL
2494 NOTPIR 40000^
2495 CLEAN ^
2496 032522 7 000 20 0 00 634440 CONO 634440
2497 032523 7 004 20 0 00 010000 CONO PI,10000
2498 ^;ENABLE PRIORITY, EXPECT NO INTERRUPTS
2499 032524 7 004 20 0 00 000200 CONO PI,ACT ;CK PI REQ LEVEL (PI2 PRINT). THE
2500 032525 7 004 30 0 00 040000 CONSZ PI,40000 ;PIR (1) INPUT TO AND GATE OF PIH (0)
2501 STOP ^
2502 032526 254 04 0 00 032527 HALT .+1
2503 032527 320 00 0 00 032530 JUMP .+1
2504 ^;BOTTEM OF PAGE. ALSO PIR-FLOP
2505 ^
2506 ;CHECK CHANNEL 2, PIR2 FLOP OR PI REQ2 LEVEL
2507 NOTPIR 20000^
2508 CLEAN ^
2509 032530 7 000 20 0 00 634440 CONO 634440
2510 032531 7 004 20 0 00 010000 CONO PI,10000
2511 ^;ENABLE PRIORITY, EXPECT NO INTERRUPTS
2512 032532 7 004 20 0 00 000200 CONO PI,ACT ;CK PI REQ LEVEL (PI2 PRINT). THE
2513 032533 7 004 30 0 00 020000 CONSZ PI,20000 ;PIR (1) INPUT TO AND GATE OF PIH (0)
2514 STOP ^
2515 032534 254 04 0 00 032535 HALT .+1
2516 032535 320 00 0 00 032536 JUMP .+1
2517 ^;BOTTEM OF PAGE. ALSO PIR-FLOP
2518 ^
2519 ;CHECK CHANNEL 3, PIR3 FLOP OR PI REQ3 LEVEL
2520 NOTPIR 10000^
2521 CLEAN ^
2522 032536 7 000 20 0 00 634440 CONO 634440
2523 032537 7 004 20 0 00 010000 CONO PI,10000
2524 ^;ENABLE PRIORITY, EXPECT NO INTERRUPTS
2525 032540 7 004 20 0 00 000200 CONO PI,ACT ;CK PI REQ LEVEL (PI2 PRINT). THE
2526 032541 7 004 30 0 00 010000 CONSZ PI,10000 ;PIR (1) INPUT TO AND GATE OF PIH (0)
2527 STOP ^
2528 032542 254 04 0 00 032543 HALT .+1
2529 032543 320 00 0 00 032544 JUMP .+1
2530 ^;BOTTEM OF PAGE. ALSO PIR-FLOP
2531 ^
2532 ;CHECK CHANNEL 4, PIR4 FLOP OR PI REQ4 LEVEL
2533 NOTPIR 4000^
2534 CLEAN ^
2535 032544 7 000 20 0 00 634440 CONO 634440
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 27-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0067
2536 032545 7 004 20 0 00 010000 CONO PI,10000
2537 ^;ENABLE PRIORITY, EXPECT NO INTERRUPTS
2538 032546 7 004 20 0 00 000200 CONO PI,ACT ;CK PI REQ LEVEL (PI2 PRINT). THE
2539 032547 7 004 30 0 00 004000 CONSZ PI,4000 ;PIR (1) INPUT TO AND GATE OF PIH (0)
2540 STOP ^
2541 032550 254 04 0 00 032551 HALT .+1
2542 032551 320 00 0 00 032552 JUMP .+1
2543 ^;BOTTEM OF PAGE. ALSO PIR-FLOP
2544 ^
2545 ;CHECK CHANNEL 5, PIR5 FLOP OR PI REQ5 LEVEL
2546 NOTPIR 2000^
2547 CLEAN ^
2548 032552 7 000 20 0 00 634440 CONO 634440
2549 032553 7 004 20 0 00 010000 CONO PI,10000
2550 ^;ENABLE PRIORITY, EXPECT NO INTERRUPTS
2551 032554 7 004 20 0 00 000200 CONO PI,ACT ;CK PI REQ LEVEL (PI2 PRINT). THE
2552 032555 7 004 30 0 00 002000 CONSZ PI,2000 ;PIR (1) INPUT TO AND GATE OF PIH (0)
2553 STOP ^
2554 032556 254 04 0 00 032557 HALT .+1
2555 032557 320 00 0 00 032560 JUMP .+1
2556 ^;BOTTEM OF PAGE. ALSO PIR-FLOP
2557 ^
2558 ;CHECK CHANNEL 6, PIR6 FLOP OR PI REQ6 LEVEL
2559 NOTPIR 1000^
2560 CLEAN ^
2561 032560 7 000 20 0 00 634440 CONO 634440
2562 032561 7 004 20 0 00 010000 CONO PI,10000
2563 ^;ENABLE PRIORITY, EXPECT NO INTERRUPTS
2564 032562 7 004 20 0 00 000200 CONO PI,ACT ;CK PI REQ LEVEL (PI2 PRINT). THE
2565 032563 7 004 30 0 00 001000 CONSZ PI,1000 ;PIR (1) INPUT TO AND GATE OF PIH (0)
2566 STOP ^
2567 032564 254 04 0 00 032565 HALT .+1
2568 032565 320 00 0 00 032566 JUMP .+1
2569 ^;BOTTEM OF PAGE. ALSO PIR-FLOP
2570 ^
2571 ;CHECK CHANNEL 7, PIR 7 FLOP OR PI REQ7 LEVEL
2572 NOTPIR 400^
2573 CLEAN ^
2574 032566 7 000 20 0 00 634440 CONO 634440
2575 032567 7 004 20 0 00 010000 CONO PI,10000
2576 ^;ENABLE PRIORITY, EXPECT NO INTERRUPTS
2577 032570 7 004 20 0 00 000200 CONO PI,ACT ;CK PI REQ LEVEL (PI2 PRINT). THE
2578 032571 7 004 30 0 00 000400 CONSZ PI,400 ;PIR (1) INPUT TO AND GATE OF PIH (0)
2579 STOP ^
2580 032572 254 04 0 00 032573 HALT .+1
2581 032573 320 00 0 00 032574 JUMP .+1
2582 ^;BOTTEM OF PAGE. ALSO PIR-FLOP
2583 ^
2584
2585 DEFINE NOTREQ (A,B)<
2586 CLEAN ;A TEST OF PI OK TO PREVENT INTERRUPT
2587 CONO PI,PIREQ+A ;ACTIVE CLEARED, REQUEST FLAG SET
2588 CONSZ PI,B ;INTR OCCURED PIOK INPUT, PIOK TO PI
2589 STOP ;REQ FAIL. SEE BOTTEM PI2 PRINT
2590 >
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 27-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0068
2591
2592 032574 MOD79: BLURB^
2593 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
2594 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
2595 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
2596 ;INSTRUCTION
2597 ^
2598 ;TEST PI ACT ABILITY TO PREVENT PI REQ1, INTERRUPT VIA ACTIVE
2599 NOTREQ 100,40000^
2600 CLEAN ^
2601 032574 7 000 20 0 00 634440 CONO 634440
2602 032575 7 004 20 0 00 010000 CONO PI,10000
2603 ^;100 TEST OF PI OK TO PREVENT INTERRUPT
2604 032576 7 004 20 0 00 004100 CONO PI,PIREQ+100 ;ACTIVE CLEARED, REQUEST FLAG SET
2605 032577 7 004 30 0 00 040000 CONSZ PI,40000 ;INTR OCCURED PIOK INPUT, PIOK TO PI
2606 STOP ^
2607 032600 254 04 0 00 032601 HALT .+1
2608 032601 320 00 0 00 032602 JUMP .+1
2609 ^;REQ FAIL. SEE BOTTEM PI2 PRINT
2610 ^
2611 ;TEST PIOK2 ABILITY TO PREVENT PI REQ2, INTERRUPT
2612 NOTREQ 40,20000^
2613 CLEAN ^
2614 032602 7 000 20 0 00 634440 CONO 634440
2615 032603 7 004 20 0 00 010000 CONO PI,10000
2616 ^;40 TEST OF PI OK TO PREVENT INTERRUPT
2617 032604 7 004 20 0 00 004040 CONO PI,PIREQ+40 ;ACTIVE CLEARED, REQUEST FLAG SET
2618 032605 7 004 30 0 00 020000 CONSZ PI,20000 ;INTR OCCURED PIOK INPUT, PIOK TO PI
2619 STOP ^
2620 032606 254 04 0 00 032607 HALT .+1
2621 032607 320 00 0 00 032610 JUMP .+1
2622 ^;REQ FAIL. SEE BOTTEM PI2 PRINT
2623 ^
2624 ;TEST PIOK3 ABILITY TO PREVENT PI REQ3, INTERRUPT
2625 NOTREQ 20,10000^
2626 CLEAN ^
2627 032610 7 000 20 0 00 634440 CONO 634440
2628 032611 7 004 20 0 00 010000 CONO PI,10000
2629 ^;20 TEST OF PI OK TO PREVENT INTERRUPT
2630 032612 7 004 20 0 00 004020 CONO PI,PIREQ+20 ;ACTIVE CLEARED, REQUEST FLAG SET
2631 032613 7 004 30 0 00 010000 CONSZ PI,10000 ;INTR OCCURED PIOK INPUT, PIOK TO PI
2632 STOP ^
2633 032614 254 04 0 00 032615 HALT .+1
2634 032615 320 00 0 00 032616 JUMP .+1
2635 ^;REQ FAIL. SEE BOTTEM PI2 PRINT
2636 ^
2637 ;TEST PIOK4 ABILITY TO PREVENT PI REQ4, INTERRUPT
2638 NOTREQ 10,4000^
2639 CLEAN ^
2640 032616 7 000 20 0 00 634440 CONO 634440
2641 032617 7 004 20 0 00 010000 CONO PI,10000
2642 ^;10 TEST OF PI OK TO PREVENT INTERRUPT
2643 032620 7 004 20 0 00 004010 CONO PI,PIREQ+10 ;ACTIVE CLEARED, REQUEST FLAG SET
2644 032621 7 004 30 0 00 004000 CONSZ PI,4000 ;INTR OCCURED PIOK INPUT, PIOK TO PI
2645 STOP ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 27-3
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0069
2646 032622 254 04 0 00 032623 HALT .+1
2647 032623 320 00 0 00 032624 JUMP .+1
2648 ^;REQ FAIL. SEE BOTTEM PI2 PRINT
2649 ^
2650 ;TEST PIOK5 ABILITY TO PREVENT PI REQ5, INTERRUPT
2651 NOTREQ 4,2000^
2652 CLEAN ^
2653 032624 7 000 20 0 00 634440 CONO 634440
2654 032625 7 004 20 0 00 010000 CONO PI,10000
2655 ^;4 TEST OF PI OK TO PREVENT INTERRUPT
2656 032626 7 004 20 0 00 004004 CONO PI,PIREQ+4 ;ACTIVE CLEARED, REQUEST FLAG SET
2657 032627 7 004 30 0 00 002000 CONSZ PI,2000 ;INTR OCCURED PIOK INPUT, PIOK TO PI
2658 STOP ^
2659 032630 254 04 0 00 032631 HALT .+1
2660 032631 320 00 0 00 032632 JUMP .+1
2661 ^;REQ FAIL. SEE BOTTEM PI2 PRINT
2662 ^
2663 ;TEST PIOK6 ABILITY TO PREVENT PI REQ6, INTERRUPT
2664 NOTREQ 2,1000^
2665 CLEAN ^
2666 032632 7 000 20 0 00 634440 CONO 634440
2667 032633 7 004 20 0 00 010000 CONO PI,10000
2668 ^;2 TEST OF PI OK TO PREVENT INTERRUPT
2669 032634 7 004 20 0 00 004002 CONO PI,PIREQ+2 ;ACTIVE CLEARED, REQUEST FLAG SET
2670 032635 7 004 30 0 00 001000 CONSZ PI,1000 ;INTR OCCURED PIOK INPUT, PIOK TO PI
2671 STOP ^
2672 032636 254 04 0 00 032637 HALT .+1
2673 032637 320 00 0 00 032640 JUMP .+1
2674 ^;REQ FAIL. SEE BOTTEM PI2 PRINT
2675 ^
2676 ;TEST PIOK7 ABILITY TO PREVENT PI REQ7, INTERRUPT
2677 NOTREQ 1,400^
2678 CLEAN ^
2679 032640 7 000 20 0 00 634440 CONO 634440
2680 032641 7 004 20 0 00 010000 CONO PI,10000
2681 ^;1 TEST OF PI OK TO PREVENT INTERRUPT
2682 032642 7 004 20 0 00 004001 CONO PI,PIREQ+1 ;ACTIVE CLEARED, REQUEST FLAG SET
2683 032643 7 004 30 0 00 000400 CONSZ PI,400 ;INTR OCCURED PIOK INPUT, PIOK TO PI
2684 STOP ^
2685 032644 254 04 0 00 032645 HALT .+1
2686 032645 320 00 0 00 032646 JUMP .+1
2687 ^;REQ FAIL. SEE BOTTEM PI2 PRINT
2688 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 28
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0070
2689
2690 DEFINE PIRCLR (A)<
2691 CLEAN
2692 CONO PI,PIREQ+A ;SET REQUEST FLOP BUT
2693 SETZ ;NOT ACTIVE THEN CLEAR
2694 CONO PI,10000+ACT ;REQUEST AND SET ACTIVE
2695 SKIPE ;PI RESET FAILED TO CLEAR
2696 STOP ;THE PIR FLAG.`SEE PI2 PRINT
2697 >
2698
2699 000100 ZZ=100 ;CHECK CLEAR TO PIR FLAGS
2700 REPEAT 7,<
2701 PIRCLR ZZ
2702 ZZ=ZZ/2>
2703
2704 PIRCLR ZZ^
2705 CLEAN^
2706 032646 7 000 20 0 00 634440 CONO 634440
2707 032647 7 004 20 0 00 010000 CONO PI,10000
2708 ^
2709 032650 7 004 20 0 00 004100 CONO PI,PIREQ+ZZ ;SET REQUEST FLOP BUT
2710 032651 400 00 0 00 000000 SETZ ;NOT ACTIVE THEN CLEAR
2711 032652 7 004 20 0 00 010200 CONO PI,10000+ACT ;REQUEST AND SET ACTIVE
2712 032653 332 00 0 00 000000 SKIPE ;PI RESET FAILED TO CLEAR
2713 STOP ^
2714 032654 254 04 0 00 032655 HALT .+1
2715 032655 320 00 0 00 032656 JUMP .+1
2716 ^;THE PIR FLAG.`SEE PI2 PRINT
2717 ^
2718 000040 ZZ=ZZ/2
2719
2720 PIRCLR ZZ^
2721 CLEAN^
2722 032656 7 000 20 0 00 634440 CONO 634440
2723 032657 7 004 20 0 00 010000 CONO PI,10000
2724 ^
2725 032660 7 004 20 0 00 004040 CONO PI,PIREQ+ZZ ;SET REQUEST FLOP BUT
2726 032661 400 00 0 00 000000 SETZ ;NOT ACTIVE THEN CLEAR
2727 032662 7 004 20 0 00 010200 CONO PI,10000+ACT ;REQUEST AND SET ACTIVE
2728 032663 332 00 0 00 000000 SKIPE ;PI RESET FAILED TO CLEAR
2729 STOP ^
2730 032664 254 04 0 00 032665 HALT .+1
2731 032665 320 00 0 00 032666 JUMP .+1
2732 ^;THE PIR FLAG.`SEE PI2 PRINT
2733 ^
2734 000020 ZZ=ZZ/2
2735
2736 PIRCLR ZZ^
2737 CLEAN^
2738 032666 7 000 20 0 00 634440 CONO 634440
2739 032667 7 004 20 0 00 010000 CONO PI,10000
2740 ^
2741 032670 7 004 20 0 00 004020 CONO PI,PIREQ+ZZ ;SET REQUEST FLOP BUT
2742 032671 400 00 0 00 000000 SETZ ;NOT ACTIVE THEN CLEAR
2743 032672 7 004 20 0 00 010200 CONO PI,10000+ACT ;REQUEST AND SET ACTIVE
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 28-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0071
2744 032673 332 00 0 00 000000 SKIPE ;PI RESET FAILED TO CLEAR
2745 STOP ^
2746 032674 254 04 0 00 032675 HALT .+1
2747 032675 320 00 0 00 032676 JUMP .+1
2748 ^;THE PIR FLAG.`SEE PI2 PRINT
2749 ^
2750 000010 ZZ=ZZ/2
2751
2752 PIRCLR ZZ^
2753 CLEAN^
2754 032676 7 000 20 0 00 634440 CONO 634440
2755 032677 7 004 20 0 00 010000 CONO PI,10000
2756 ^
2757 032700 7 004 20 0 00 004010 CONO PI,PIREQ+ZZ ;SET REQUEST FLOP BUT
2758 032701 400 00 0 00 000000 SETZ ;NOT ACTIVE THEN CLEAR
2759 032702 7 004 20 0 00 010200 CONO PI,10000+ACT ;REQUEST AND SET ACTIVE
2760 032703 332 00 0 00 000000 SKIPE ;PI RESET FAILED TO CLEAR
2761 STOP ^
2762 032704 254 04 0 00 032705 HALT .+1
2763 032705 320 00 0 00 032706 JUMP .+1
2764 ^;THE PIR FLAG.`SEE PI2 PRINT
2765 ^
2766 000004 ZZ=ZZ/2
2767
2768 PIRCLR ZZ^
2769 CLEAN^
2770 032706 7 000 20 0 00 634440 CONO 634440
2771 032707 7 004 20 0 00 010000 CONO PI,10000
2772 ^
2773 032710 7 004 20 0 00 004004 CONO PI,PIREQ+ZZ ;SET REQUEST FLOP BUT
2774 032711 400 00 0 00 000000 SETZ ;NOT ACTIVE THEN CLEAR
2775 032712 7 004 20 0 00 010200 CONO PI,10000+ACT ;REQUEST AND SET ACTIVE
2776 032713 332 00 0 00 000000 SKIPE ;PI RESET FAILED TO CLEAR
2777 STOP ^
2778 032714 254 04 0 00 032715 HALT .+1
2779 032715 320 00 0 00 032716 JUMP .+1
2780 ^;THE PIR FLAG.`SEE PI2 PRINT
2781 ^
2782 000002 ZZ=ZZ/2
2783
2784 PIRCLR ZZ^
2785 CLEAN^
2786 032716 7 000 20 0 00 634440 CONO 634440
2787 032717 7 004 20 0 00 010000 CONO PI,10000
2788 ^
2789 032720 7 004 20 0 00 004002 CONO PI,PIREQ+ZZ ;SET REQUEST FLOP BUT
2790 032721 400 00 0 00 000000 SETZ ;NOT ACTIVE THEN CLEAR
2791 032722 7 004 20 0 00 010200 CONO PI,10000+ACT ;REQUEST AND SET ACTIVE
2792 032723 332 00 0 00 000000 SKIPE ;PI RESET FAILED TO CLEAR
2793 STOP ^
2794 032724 254 04 0 00 032725 HALT .+1
2795 032725 320 00 0 00 032726 JUMP .+1
2796 ^;THE PIR FLAG.`SEE PI2 PRINT
2797 ^
2798 000001 ZZ=ZZ/2
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 28-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0072
2799
2800 PIRCLR ZZ^
2801 CLEAN^
2802 032726 7 000 20 0 00 634440 CONO 634440
2803 032727 7 004 20 0 00 010000 CONO PI,10000
2804 ^
2805 032730 7 004 20 0 00 004001 CONO PI,PIREQ+ZZ ;SET REQUEST FLOP BUT
2806 032731 400 00 0 00 000000 SETZ ;NOT ACTIVE THEN CLEAR
2807 032732 7 004 20 0 00 010200 CONO PI,10000+ACT ;REQUEST AND SET ACTIVE
2808 032733 332 00 0 00 000000 SKIPE ;PI RESET FAILED TO CLEAR
2809 STOP ^
2810 032734 254 04 0 00 032735 HALT .+1
2811 032735 320 00 0 00 032736 JUMP .+1
2812 ^;THE PIR FLAG.`SEE PI2 PRINT
2813 ^
2814 000000 ZZ=ZZ/2
2815
2816 DEFINE FILAC<
2817 MOVE 17,[MOVEI 17] ;FILL ACS WITH
2818 MOVEM 17,(17) ;MOVEI TO AC 0
2819 CAME 17,[MOVEI 0] ;THE CURRENT LOC
2820 SOJA 17,.-2
2821 MOVE 17,[MOVEI 17]
2822 >
2823
2824 FILAC^
2825 032736 200 17 0 00 036475 MOVE 17,[MOVEI 17] ;FILL ACS WITH
2826 032737 202 17 0 17 000000 MOVEM 17,(17) ;MOVEI TO AC 0
2827 032740 312 17 0 00 036476 CAME 17,[MOVEI 0] ;THE CURRENT LOC
2828 032741 364 17 0 00 032737 SOJA 17,.-2
2829 032742 200 17 0 00 036475 MOVE 17,[MOVEI 17]
2830 ^
2831
2832 CLEAN ^;CHECK PC+1 INHIBIT ON INTERRUPT
2833
2834 032743 7 000 20 0 00 634440 CONO 634440
2835 032744 7 004 20 0 00 010000 CONO PI,10000
2836
2837 032745 200 00 0 00 036476 MOVE [MOVEI]
2838 032746 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;CAUSE INTERRUPT
2839 032747 334 00 0 00 000000 SKIPA ;PC+1 INH ON PC1 PRINT FAIL
2840 STOP ^;SEE P1 CYC(1) INPUT
2841
2842 032750 254 04 0 00 032751 HALT .+1
2843 032751 320 00 0 00 032752 JUMP .+1
2844
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 29
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0073
2845 BLURB^
2846 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
2847 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
2848 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
2849 ;INSTRUCTION
2850 ^
2851 032752 MOD80: CLEAN^
2852 032752 7 000 20 0 00 634440 CONO 634440
2853 032753 7 004 20 0 00 010000 CONO PI,10000
2854 ^
2855 032754 200 00 0 00 036476 MOVE [MOVEI] ;IF LOC 0 EXECUTED C(0)=0
2856 032755 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;CAUSE AN INTERRUPT
2857 032756 336 00 0 00 000000 SKIPN 0 ;MA FM PICH (1) PULSE FAIL
2858 STOP ^;SEE MA1 PRINT
2859
2860 032757 254 04 0 00 032760 HALT .+1
2861 032760 320 00 0 00 032761 JUMP .+1
2862
2863 CLEAN^
2864 032761 7 000 20 0 00 634440 CONO 634440
2865 032762 7 004 20 0 00 010000 CONO PI,10000
2866 ^
2867 032763 200 00 0 00 036476 MOVE [MOVEI]
2868 032764 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;CAUSE INTERRUPT IF MA
2869 032765 306 00 0 00 000040 CAIN 40 ;34 SET FAIL C(0)=40
2870 STOP ^;SEE MA1 PRINT
2871
2872 032766 254 04 0 00 032767 HALT .+1
2873 032767 320 00 0 00 032770 JUMP .+1
2874
2875 CLEAN^
2876 032770 7 000 20 0 00 634440 CONO 634440
2877 032771 7 004 20 0 00 010000 CONO PI,10000
2878 ^
2879 032772 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;CAUSE INTERRUPT
2880 032773 306 00 0 00 000002 CAIN 2 ;MA 30 SET FAILED
2881 STOP ^;SEE MA1 PRINT
2882
2883 032774 254 04 0 00 032775 HALT .+1
2884 032775 320 00 0 00 032776 JUMP .+1
2885
2886 CLEAN^
2887 032776 7 000 20 0 00 634440 CONO 634440
2888 032777 7 004 20 0 00 010000 CONO PI,10000
2889 ^
2890 033000 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;CAUSE INTERRUPT
2891 033001 306 00 0 00 000046 CAIN 46 ;MA 33 SET OUCCRED ON CH1
2892 STOP ^;SEE MA1 PRINT
2893
2894 033002 254 04 0 00 033003 HALT .+1
2895 033003 320 00 0 00 033004 JUMP .+1
2896
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 30
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0074
2897 033004 MOD81: CLEAN^
2898 033004 7 000 20 0 00 634440 CONO 634440
2899 033005 7 004 20 0 00 010000 CONO PI,10000
2900 ^
2901 033006 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;CAUSE INTERRUPT
2902 033007 306 00 0 00 000052 CAIN 52 ;MA 32 SET OCCURED ON CH1
2903 STOP ^;SEE MA1 PRINT
2904
2905 033010 254 04 0 00 033011 HALT .+1
2906 033011 320 00 0 00 033012 JUMP .+1
2907
2908
2909 CLEAN^
2910 033012 7 000 20 0 00 634440 CONO 634440
2911 033013 7 004 20 0 00 010000 CONO PI,10000
2912 ^
2913 033014 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;CAUSE INTERRUPT
2914 033015 306 00 0 00 000043 CAIN 43 ;MA 35 SET OUCCURED ON CH1
2915 STOP ^;SEE MA1 PRINT
2916
2917 033016 254 04 0 00 033017 HALT .+1
2918 033017 320 00 0 00 033020 JUMP .+1
2919
2920
2921 CLEAN^
2922 033020 7 000 20 0 00 634440 CONO 634440
2923 033021 7 004 20 0 00 010000 CONO PI,10000
2924 ^
2925 033022 7 004 20 0 00 004240 CONO PI,ACT+PIREQ+40 ;CAUSE INTERRUPT
2926 033023 306 00 0 00 000040 CAIN 40 ;MA 33 SET FAILED ON CH2
2927 STOP ^;SEE MA1 PRINT
2928
2929 033024 254 04 0 00 033025 HALT .+1
2930 033025 320 00 0 00 033026 JUMP .+1
2931
2932
2933 CLEAN^
2934 033026 7 000 20 0 00 634440 CONO 634440
2935 033027 7 004 20 0 00 010000 CONO PI,10000
2936 ^
2937 033030 7 004 20 0 00 004220 CONO PI,ACT+PIREQ+20 ;CAUSE INTERRUPT
2938 033031 306 00 0 00 000040 CAIN 40 ;MA 32 SET FAILED ON CH4
2939 STOP ^;SEE MA1 PRINT
2940
2941 033032 254 04 0 00 033033 HALT .+1
2942 033033 320 00 0 00 033034 JUMP .+1
2943
2944
2945 CLEAN^
2946 033034 7 000 20 0 00 634440 CONO 634440
2947 033035 7 004 20 0 00 010000 CONO PI,10000
2948 ^
2949 033036 7 004 20 0 00 004240 CONO PI,ACT+PIREQ+40 ;CAUSE INTERRUPT
2950 033037 306 00 0 00 000046 CAIN 46 ;MA 34 SET OCCURED ON CH2
2951 STOP ^;SEE MA1 PRINT
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 30-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0075
2952
2953 033040 254 04 0 00 033041 HALT .+1
2954 033041 320 00 0 00 033042 JUMP .+1
2955
2956
2957 BLURB^
2958 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
2959 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
2960 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
2961 ;INSTRUCTION
2962 ^
2963 033042 MOD82: CLEAN ^;CHECK IF AN INTERRUPT OCCURES
2964
2965 033042 7 000 20 0 00 634440 CONO 634440
2966 033043 7 004 20 0 00 010000 CONO PI,10000
2967
2968 033044 400 00 0 00 000000 SETZ 0 ;C(0) FILLED BY XCT OF MOVEI
2969 033045 7 004 20 0 00 004377 CONO PI,ACT+PIREQ+177 ;ACTIVATE ALL INTERRUPTS
2970 033046 336 00 0 00 000000 SKIPN 0 ;CK PIR FM IOB [1] PI1 PRINT
2971 STOP ^;AND PIRQ LEVEL PI1 PRINT
2972
2973 033047 254 04 0 00 033050 HALT .+1
2974 033050 320 00 0 00 033051 JUMP .+1
2975
2976
2977 CLEAN^
2978 033051 7 000 20 0 00 634440 CONO 634440
2979 033052 7 004 20 0 00 010000 CONO PI,10000
2980 ^
2981 033053 400 00 0 00 000000 SETZ 0 ;ON INTERRUPT NO PI HOLDS
2982 033054 7 004 20 0 00 004377 CONO PI,ACT+PIREQ+177 ;WERE SET CHECK PIH
2983 033055 7 004 34 0 00 077400 CONSO PI,77400 ;FM PICHRQ PULSE ON
2984 STOP ^;PI1 PRINT
2985
2986 033056 254 04 0 00 033057 HALT .+1
2987 033057 320 00 0 00 033060 JUMP .+1
2988
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 31
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0076
2989 DEFINE PIHCLR (A,B)<
2990 CLEAN
2991 CONO PI,PIREQ+ACT+A ;CAUSE INTERRUPT TO SET HOLD
2992 CONO PI,10000 ;TRY TO CLEAR WITH PI RESET
2993 CONSZ PI,B ;FAIL TO CLEAR SEE PI2
2994 STOP
2995 >
2996
2997 000100 ZZ=100
2998 040000 YY=40000 ;CHECK RESET TO PIH FLOPS
2999 MOD83: REPEAT 7,<
3000 PIHCLR ZZ,YY
3001 ZZ=ZZ/2
3002 YY=YY/2
3003 >
3004
3005 PIHCLR ZZ,YY^
3006 CLEAN^
3007 033060 7 000 20 0 00 634440 CONO 634440
3008 033061 7 004 20 0 00 010000 CONO PI,10000
3009 ^
3010 033062 7 004 20 0 00 004300 CONO PI,PIREQ+ACT+ZZ ;CAUSE INTERRUPT TO SET HOLD
3011 033063 7 004 20 0 00 010000 CONO PI,10000 ;TRY TO CLEAR WITH PI RESET
3012 033064 7 004 30 0 00 040000 CONSZ PI,YY ;FAIL TO CLEAR SEE PI2
3013 STOP^
3014 033065 254 04 0 00 033066 HALT .+1
3015 033066 320 00 0 00 033067 JUMP .+1
3016 ^
3017 ^
3018 000040 ZZ=ZZ/2
3019 020000 YY=YY/2
3020
3021
3022 PIHCLR ZZ,YY^
3023 CLEAN^
3024 033067 7 000 20 0 00 634440 CONO 634440
3025 033070 7 004 20 0 00 010000 CONO PI,10000
3026 ^
3027 033071 7 004 20 0 00 004240 CONO PI,PIREQ+ACT+ZZ ;CAUSE INTERRUPT TO SET HOLD
3028 033072 7 004 20 0 00 010000 CONO PI,10000 ;TRY TO CLEAR WITH PI RESET
3029 033073 7 004 30 0 00 020000 CONSZ PI,YY ;FAIL TO CLEAR SEE PI2
3030 STOP^
3031 033074 254 04 0 00 033075 HALT .+1
3032 033075 320 00 0 00 033076 JUMP .+1
3033 ^
3034 ^
3035 000020 ZZ=ZZ/2
3036 010000 YY=YY/2
3037
3038
3039 PIHCLR ZZ,YY^
3040 CLEAN^
3041 033076 7 000 20 0 00 634440 CONO 634440
3042 033077 7 004 20 0 00 010000 CONO PI,10000
3043 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 31-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0077
3044 033100 7 004 20 0 00 004220 CONO PI,PIREQ+ACT+ZZ ;CAUSE INTERRUPT TO SET HOLD
3045 033101 7 004 20 0 00 010000 CONO PI,10000 ;TRY TO CLEAR WITH PI RESET
3046 033102 7 004 30 0 00 010000 CONSZ PI,YY ;FAIL TO CLEAR SEE PI2
3047 STOP^
3048 033103 254 04 0 00 033104 HALT .+1
3049 033104 320 00 0 00 033105 JUMP .+1
3050 ^
3051 ^
3052 000010 ZZ=ZZ/2
3053 004000 YY=YY/2
3054
3055
3056 PIHCLR ZZ,YY^
3057 CLEAN^
3058 033105 7 000 20 0 00 634440 CONO 634440
3059 033106 7 004 20 0 00 010000 CONO PI,10000
3060 ^
3061 033107 7 004 20 0 00 004210 CONO PI,PIREQ+ACT+ZZ ;CAUSE INTERRUPT TO SET HOLD
3062 033110 7 004 20 0 00 010000 CONO PI,10000 ;TRY TO CLEAR WITH PI RESET
3063 033111 7 004 30 0 00 004000 CONSZ PI,YY ;FAIL TO CLEAR SEE PI2
3064 STOP^
3065 033112 254 04 0 00 033113 HALT .+1
3066 033113 320 00 0 00 033114 JUMP .+1
3067 ^
3068 ^
3069 000004 ZZ=ZZ/2
3070 002000 YY=YY/2
3071
3072
3073 PIHCLR ZZ,YY^
3074 CLEAN^
3075 033114 7 000 20 0 00 634440 CONO 634440
3076 033115 7 004 20 0 00 010000 CONO PI,10000
3077 ^
3078 033116 7 004 20 0 00 004204 CONO PI,PIREQ+ACT+ZZ ;CAUSE INTERRUPT TO SET HOLD
3079 033117 7 004 20 0 00 010000 CONO PI,10000 ;TRY TO CLEAR WITH PI RESET
3080 033120 7 004 30 0 00 002000 CONSZ PI,YY ;FAIL TO CLEAR SEE PI2
3081 STOP^
3082 033121 254 04 0 00 033122 HALT .+1
3083 033122 320 00 0 00 033123 JUMP .+1
3084 ^
3085 ^
3086 000002 ZZ=ZZ/2
3087 001000 YY=YY/2
3088
3089
3090 PIHCLR ZZ,YY^
3091 CLEAN^
3092 033123 7 000 20 0 00 634440 CONO 634440
3093 033124 7 004 20 0 00 010000 CONO PI,10000
3094 ^
3095 033125 7 004 20 0 00 004202 CONO PI,PIREQ+ACT+ZZ ;CAUSE INTERRUPT TO SET HOLD
3096 033126 7 004 20 0 00 010000 CONO PI,10000 ;TRY TO CLEAR WITH PI RESET
3097 033127 7 004 30 0 00 001000 CONSZ PI,YY ;FAIL TO CLEAR SEE PI2
3098 STOP^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 31-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0078
3099 033130 254 04 0 00 033131 HALT .+1
3100 033131 320 00 0 00 033132 JUMP .+1
3101 ^
3102 ^
3103 000001 ZZ=ZZ/2
3104 000400 YY=YY/2
3105
3106
3107 PIHCLR ZZ,YY^
3108 CLEAN^
3109 033132 7 000 20 0 00 634440 CONO 634440
3110 033133 7 004 20 0 00 010000 CONO PI,10000
3111 ^
3112 033134 7 004 20 0 00 004201 CONO PI,PIREQ+ACT+ZZ ;CAUSE INTERRUPT TO SET HOLD
3113 033135 7 004 20 0 00 010000 CONO PI,10000 ;TRY TO CLEAR WITH PI RESET
3114 033136 7 004 30 0 00 000400 CONSZ PI,YY ;FAIL TO CLEAR SEE PI2
3115 STOP^
3116 033137 254 04 0 00 033140 HALT .+1
3117 033140 320 00 0 00 033141 JUMP .+1
3118 ^
3119 ^
3120 000000 ZZ=ZZ/2
3121 000200 YY=YY/2
3122
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 32
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0079
3123
3124
3125 BLURB^
3126 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
3127 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
3128 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
3129 ;INSTRUCTION
3130 ^
3131 DEFINE OFFPIR (A,B)<
3132 CLEAN
3133 CONO PI,PIREQ+ACT+A ;SETS PIH. THEN CLR
3134 JRST 10,.+1 ;PIR TURNED BACK ON
3135 CONSZ PI,B ;PIR TURNED BACK ON.PIH(1) CLR PIR
3136 STOP
3137 >
3138
3139 000100 ZZ=100
3140 040000 YY=40000 ;TEST THE RESET TO PIR
3141 MOD85: REPEAT 7,<
3142 OFFPIR ZZ,YY
3143 ZZ=ZZ/2
3144 YY=YY/2
3145 >
3146
3147 OFFPIR ZZ,YY^
3148 CLEAN^
3149 033141 7 000 20 0 00 634440 CONO 634440
3150 033142 7 004 20 0 00 010000 CONO PI,10000
3151 ^
3152 033143 7 004 20 0 00 004300 CONO PI,PIREQ+ACT+ZZ ;SETS PIH. THEN CLR
3153 033144 254 10 0 00 033145 JRST 10,.+1 ;PIR TURNED BACK ON
3154 033145 7 004 30 0 00 040000 CONSZ PI,YY ;PIR TURNED BACK ON.PIH(1) CLR PIR
3155 STOP^
3156 033146 254 04 0 00 033147 HALT .+1
3157 033147 320 00 0 00 033150 JUMP .+1
3158 ^
3159 ^
3160 000040 ZZ=ZZ/2
3161 020000 YY=YY/2
3162
3163
3164 OFFPIR ZZ,YY^
3165 CLEAN^
3166 033150 7 000 20 0 00 634440 CONO 634440
3167 033151 7 004 20 0 00 010000 CONO PI,10000
3168 ^
3169 033152 7 004 20 0 00 004240 CONO PI,PIREQ+ACT+ZZ ;SETS PIH. THEN CLR
3170 033153 254 10 0 00 033154 JRST 10,.+1 ;PIR TURNED BACK ON
3171 033154 7 004 30 0 00 020000 CONSZ PI,YY ;PIR TURNED BACK ON.PIH(1) CLR PIR
3172 STOP^
3173 033155 254 04 0 00 033156 HALT .+1
3174 033156 320 00 0 00 033157 JUMP .+1
3175 ^
3176 ^
3177 000020 ZZ=ZZ/2
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 32-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0080
3178 010000 YY=YY/2
3179
3180
3181 OFFPIR ZZ,YY^
3182 CLEAN^
3183 033157 7 000 20 0 00 634440 CONO 634440
3184 033160 7 004 20 0 00 010000 CONO PI,10000
3185 ^
3186 033161 7 004 20 0 00 004220 CONO PI,PIREQ+ACT+ZZ ;SETS PIH. THEN CLR
3187 033162 254 10 0 00 033163 JRST 10,.+1 ;PIR TURNED BACK ON
3188 033163 7 004 30 0 00 010000 CONSZ PI,YY ;PIR TURNED BACK ON.PIH(1) CLR PIR
3189 STOP^
3190 033164 254 04 0 00 033165 HALT .+1
3191 033165 320 00 0 00 033166 JUMP .+1
3192 ^
3193 ^
3194 000010 ZZ=ZZ/2
3195 004000 YY=YY/2
3196
3197
3198 OFFPIR ZZ,YY^
3199 CLEAN^
3200 033166 7 000 20 0 00 634440 CONO 634440
3201 033167 7 004 20 0 00 010000 CONO PI,10000
3202 ^
3203 033170 7 004 20 0 00 004210 CONO PI,PIREQ+ACT+ZZ ;SETS PIH. THEN CLR
3204 033171 254 10 0 00 033172 JRST 10,.+1 ;PIR TURNED BACK ON
3205 033172 7 004 30 0 00 004000 CONSZ PI,YY ;PIR TURNED BACK ON.PIH(1) CLR PIR
3206 STOP^
3207 033173 254 04 0 00 033174 HALT .+1
3208 033174 320 00 0 00 033175 JUMP .+1
3209 ^
3210 ^
3211 000004 ZZ=ZZ/2
3212 002000 YY=YY/2
3213
3214
3215 OFFPIR ZZ,YY^
3216 CLEAN^
3217 033175 7 000 20 0 00 634440 CONO 634440
3218 033176 7 004 20 0 00 010000 CONO PI,10000
3219 ^
3220 033177 7 004 20 0 00 004204 CONO PI,PIREQ+ACT+ZZ ;SETS PIH. THEN CLR
3221 033200 254 10 0 00 033201 JRST 10,.+1 ;PIR TURNED BACK ON
3222 033201 7 004 30 0 00 002000 CONSZ PI,YY ;PIR TURNED BACK ON.PIH(1) CLR PIR
3223 STOP^
3224 033202 254 04 0 00 033203 HALT .+1
3225 033203 320 00 0 00 033204 JUMP .+1
3226 ^
3227 ^
3228 000002 ZZ=ZZ/2
3229 001000 YY=YY/2
3230
3231
3232 OFFPIR ZZ,YY^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 32-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0081
3233 CLEAN^
3234 033204 7 000 20 0 00 634440 CONO 634440
3235 033205 7 004 20 0 00 010000 CONO PI,10000
3236 ^
3237 033206 7 004 20 0 00 004202 CONO PI,PIREQ+ACT+ZZ ;SETS PIH. THEN CLR
3238 033207 254 10 0 00 033210 JRST 10,.+1 ;PIR TURNED BACK ON
3239 033210 7 004 30 0 00 001000 CONSZ PI,YY ;PIR TURNED BACK ON.PIH(1) CLR PIR
3240 STOP^
3241 033211 254 04 0 00 033212 HALT .+1
3242 033212 320 00 0 00 033213 JUMP .+1
3243 ^
3244 ^
3245 000001 ZZ=ZZ/2
3246 000400 YY=YY/2
3247
3248
3249 OFFPIR ZZ,YY^
3250 CLEAN^
3251 033213 7 000 20 0 00 634440 CONO 634440
3252 033214 7 004 20 0 00 010000 CONO PI,10000
3253 ^
3254 033215 7 004 20 0 00 004201 CONO PI,PIREQ+ACT+ZZ ;SETS PIH. THEN CLR
3255 033216 254 10 0 00 033217 JRST 10,.+1 ;PIR TURNED BACK ON
3256 033217 7 004 30 0 00 000400 CONSZ PI,YY ;PIR TURNED BACK ON.PIH(1) CLR PIR
3257 STOP^
3258 033220 254 04 0 00 033221 HALT .+1
3259 033221 320 00 0 00 033222 JUMP .+1
3260 ^
3261 ^
3262 000000 ZZ=ZZ/2
3263 000200 YY=YY/2
3264
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 33
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0082
3265 DEFINE TSTREQ (A)<
3266 CLEAN ;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
3267 CONO PI,ACT+PIREQ+A ;INTERRUPT SETS PIH IF SECOND
3268 SETZ ;INTERRUPT OCCURED PIH (0)
3269 CONO PI,ACT+PIREQ+A ;FAILED TO INHIBIT PIREQ
3270 SKIPE ;SEE BOTTOM OF PI2 PRINT
3271 STOP
3272 >
3273
3274 BLURB^
3275 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
3276 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
3277 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
3278 ;INSTRUCTION
3279 ^
3280 000100 ZZ=100
3281 MOD86: REPEAT 7,<
3282 TSTREQ ZZ
3283 ZZ=ZZ/2
3284 >
3285
3286 TSTREQ ZZ^
3287 CLEAN ^
3288 033222 7 000 20 0 00 634440 CONO 634440
3289 033223 7 004 20 0 00 010000 CONO PI,10000
3290 ^;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
3291 033224 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+ZZ ;INTERRUPT SETS PIH IF SECOND
3292 033225 400 00 0 00 000000 SETZ ;INTERRUPT OCCURED PIH (0)
3293 033226 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+ZZ ;FAILED TO INHIBIT PIREQ
3294 033227 332 00 0 00 000000 SKIPE ;SEE BOTTOM OF PI2 PRINT
3295 STOP^
3296 033230 254 04 0 00 033231 HALT .+1
3297 033231 320 00 0 00 033232 JUMP .+1
3298 ^
3299 ^
3300 000040 ZZ=ZZ/2
3301
3302
3303 TSTREQ ZZ^
3304 CLEAN ^
3305 033232 7 000 20 0 00 634440 CONO 634440
3306 033233 7 004 20 0 00 010000 CONO PI,10000
3307 ^;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
3308 033234 7 004 20 0 00 004240 CONO PI,ACT+PIREQ+ZZ ;INTERRUPT SETS PIH IF SECOND
3309 033235 400 00 0 00 000000 SETZ ;INTERRUPT OCCURED PIH (0)
3310 033236 7 004 20 0 00 004240 CONO PI,ACT+PIREQ+ZZ ;FAILED TO INHIBIT PIREQ
3311 033237 332 00 0 00 000000 SKIPE ;SEE BOTTOM OF PI2 PRINT
3312 STOP^
3313 033240 254 04 0 00 033241 HALT .+1
3314 033241 320 00 0 00 033242 JUMP .+1
3315 ^
3316 ^
3317 000020 ZZ=ZZ/2
3318
3319
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 33-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0083
3320 TSTREQ ZZ^
3321 CLEAN ^
3322 033242 7 000 20 0 00 634440 CONO 634440
3323 033243 7 004 20 0 00 010000 CONO PI,10000
3324 ^;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
3325 033244 7 004 20 0 00 004220 CONO PI,ACT+PIREQ+ZZ ;INTERRUPT SETS PIH IF SECOND
3326 033245 400 00 0 00 000000 SETZ ;INTERRUPT OCCURED PIH (0)
3327 033246 7 004 20 0 00 004220 CONO PI,ACT+PIREQ+ZZ ;FAILED TO INHIBIT PIREQ
3328 033247 332 00 0 00 000000 SKIPE ;SEE BOTTOM OF PI2 PRINT
3329 STOP^
3330 033250 254 04 0 00 033251 HALT .+1
3331 033251 320 00 0 00 033252 JUMP .+1
3332 ^
3333 ^
3334 000010 ZZ=ZZ/2
3335
3336
3337 TSTREQ ZZ^
3338 CLEAN ^
3339 033252 7 000 20 0 00 634440 CONO 634440
3340 033253 7 004 20 0 00 010000 CONO PI,10000
3341 ^;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
3342 033254 7 004 20 0 00 004210 CONO PI,ACT+PIREQ+ZZ ;INTERRUPT SETS PIH IF SECOND
3343 033255 400 00 0 00 000000 SETZ ;INTERRUPT OCCURED PIH (0)
3344 033256 7 004 20 0 00 004210 CONO PI,ACT+PIREQ+ZZ ;FAILED TO INHIBIT PIREQ
3345 033257 332 00 0 00 000000 SKIPE ;SEE BOTTOM OF PI2 PRINT
3346 STOP^
3347 033260 254 04 0 00 033261 HALT .+1
3348 033261 320 00 0 00 033262 JUMP .+1
3349 ^
3350 ^
3351 000004 ZZ=ZZ/2
3352
3353
3354 TSTREQ ZZ^
3355 CLEAN ^
3356 033262 7 000 20 0 00 634440 CONO 634440
3357 033263 7 004 20 0 00 010000 CONO PI,10000
3358 ^;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
3359 033264 7 004 20 0 00 004204 CONO PI,ACT+PIREQ+ZZ ;INTERRUPT SETS PIH IF SECOND
3360 033265 400 00 0 00 000000 SETZ ;INTERRUPT OCCURED PIH (0)
3361 033266 7 004 20 0 00 004204 CONO PI,ACT+PIREQ+ZZ ;FAILED TO INHIBIT PIREQ
3362 033267 332 00 0 00 000000 SKIPE ;SEE BOTTOM OF PI2 PRINT
3363 STOP^
3364 033270 254 04 0 00 033271 HALT .+1
3365 033271 320 00 0 00 033272 JUMP .+1
3366 ^
3367 ^
3368 000002 ZZ=ZZ/2
3369
3370
3371 TSTREQ ZZ^
3372 CLEAN ^
3373 033272 7 000 20 0 00 634440 CONO 634440
3374 033273 7 004 20 0 00 010000 CONO PI,10000
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 33-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0084
3375 ^;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
3376 033274 7 004 20 0 00 004202 CONO PI,ACT+PIREQ+ZZ ;INTERRUPT SETS PIH IF SECOND
3377 033275 400 00 0 00 000000 SETZ ;INTERRUPT OCCURED PIH (0)
3378 033276 7 004 20 0 00 004202 CONO PI,ACT+PIREQ+ZZ ;FAILED TO INHIBIT PIREQ
3379 033277 332 00 0 00 000000 SKIPE ;SEE BOTTOM OF PI2 PRINT
3380 STOP^
3381 033300 254 04 0 00 033301 HALT .+1
3382 033301 320 00 0 00 033302 JUMP .+1
3383 ^
3384 ^
3385 000001 ZZ=ZZ/2
3386
3387
3388 TSTREQ ZZ^
3389 CLEAN ^
3390 033302 7 000 20 0 00 634440 CONO 634440
3391 033303 7 004 20 0 00 010000 CONO PI,10000
3392 ^;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
3393 033304 7 004 20 0 00 004201 CONO PI,ACT+PIREQ+ZZ ;INTERRUPT SETS PIH IF SECOND
3394 033305 400 00 0 00 000000 SETZ ;INTERRUPT OCCURED PIH (0)
3395 033306 7 004 20 0 00 004201 CONO PI,ACT+PIREQ+ZZ ;FAILED TO INHIBIT PIREQ
3396 033307 332 00 0 00 000000 SKIPE ;SEE BOTTOM OF PI2 PRINT
3397 STOP^
3398 033310 254 04 0 00 033311 HALT .+1
3399 033311 320 00 0 00 033312 JUMP .+1
3400 ^
3401 ^
3402 000000 ZZ=ZZ/2
3403
3404
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 34
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0085
3405 DEFINE PIHOK (A,B)<
3406 CLEAN
3407 CONO PI,ACT+PIREQ+A ;INTERRUPT SHOULD SET HOLD(PIH)
3408 SETZ ;IF SECOND INTERRUPT OCCURS PIH
3409 CONO PI,ACT+PIREQ+B ;FAILED TO PREVENT PIOK THUS
3410 SKIPE ;ALLOWING INTERRUPT. SEE BOTTOM
3411 STOP ;OF PI2 PRINT
3412 >
3413 BLURB^
3414 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
3415 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
3416 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
3417 ;INSTRUCTION
3418 ^
3419
3420 000100 ZZ=100
3421 000040 YY=40 ;TEST PRIORITY CHAIN
3422 MOD87: REPEAT 6,<
3423 PIHOK ZZ,YY
3424 ZZ=ZZ/2
3425 YY=YY/2
3426 >
3427
3428 PIHOK ZZ,YY^
3429 CLEAN^
3430 033312 7 000 20 0 00 634440 CONO 634440
3431 033313 7 004 20 0 00 010000 CONO PI,10000
3432 ^
3433 033314 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+ZZ ;INTERRUPT SHOULD SET HOLD(PIH)
3434 033315 400 00 0 00 000000 SETZ ;IF SECOND INTERRUPT OCCURS PIH
3435 033316 7 004 20 0 00 004240 CONO PI,ACT+PIREQ+YY ;FAILED TO PREVENT PIOK THUS
3436 033317 332 00 0 00 000000 SKIPE ;ALLOWING INTERRUPT. SEE BOTTOM
3437 STOP ^
3438 033320 254 04 0 00 033321 HALT .+1
3439 033321 320 00 0 00 033322 JUMP .+1
3440 ^;OF PI2 PRINT
3441 ^
3442 000040 ZZ=ZZ/2
3443 000020 YY=YY/2
3444
3445
3446 PIHOK ZZ,YY^
3447 CLEAN^
3448 033322 7 000 20 0 00 634440 CONO 634440
3449 033323 7 004 20 0 00 010000 CONO PI,10000
3450 ^
3451 033324 7 004 20 0 00 004240 CONO PI,ACT+PIREQ+ZZ ;INTERRUPT SHOULD SET HOLD(PIH)
3452 033325 400 00 0 00 000000 SETZ ;IF SECOND INTERRUPT OCCURS PIH
3453 033326 7 004 20 0 00 004220 CONO PI,ACT+PIREQ+YY ;FAILED TO PREVENT PIOK THUS
3454 033327 332 00 0 00 000000 SKIPE ;ALLOWING INTERRUPT. SEE BOTTOM
3455 STOP ^
3456 033330 254 04 0 00 033331 HALT .+1
3457 033331 320 00 0 00 033332 JUMP .+1
3458 ^;OF PI2 PRINT
3459 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 34-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0086
3460 000020 ZZ=ZZ/2
3461 000010 YY=YY/2
3462
3463
3464 PIHOK ZZ,YY^
3465 CLEAN^
3466 033332 7 000 20 0 00 634440 CONO 634440
3467 033333 7 004 20 0 00 010000 CONO PI,10000
3468 ^
3469 033334 7 004 20 0 00 004220 CONO PI,ACT+PIREQ+ZZ ;INTERRUPT SHOULD SET HOLD(PIH)
3470 033335 400 00 0 00 000000 SETZ ;IF SECOND INTERRUPT OCCURS PIH
3471 033336 7 004 20 0 00 004210 CONO PI,ACT+PIREQ+YY ;FAILED TO PREVENT PIOK THUS
3472 033337 332 00 0 00 000000 SKIPE ;ALLOWING INTERRUPT. SEE BOTTOM
3473 STOP ^
3474 033340 254 04 0 00 033341 HALT .+1
3475 033341 320 00 0 00 033342 JUMP .+1
3476 ^;OF PI2 PRINT
3477 ^
3478 000010 ZZ=ZZ/2
3479 000004 YY=YY/2
3480
3481
3482 PIHOK ZZ,YY^
3483 CLEAN^
3484 033342 7 000 20 0 00 634440 CONO 634440
3485 033343 7 004 20 0 00 010000 CONO PI,10000
3486 ^
3487 033344 7 004 20 0 00 004210 CONO PI,ACT+PIREQ+ZZ ;INTERRUPT SHOULD SET HOLD(PIH)
3488 033345 400 00 0 00 000000 SETZ ;IF SECOND INTERRUPT OCCURS PIH
3489 033346 7 004 20 0 00 004204 CONO PI,ACT+PIREQ+YY ;FAILED TO PREVENT PIOK THUS
3490 033347 332 00 0 00 000000 SKIPE ;ALLOWING INTERRUPT. SEE BOTTOM
3491 STOP ^
3492 033350 254 04 0 00 033351 HALT .+1
3493 033351 320 00 0 00 033352 JUMP .+1
3494 ^;OF PI2 PRINT
3495 ^
3496 000004 ZZ=ZZ/2
3497 000002 YY=YY/2
3498
3499
3500 PIHOK ZZ,YY^
3501 CLEAN^
3502 033352 7 000 20 0 00 634440 CONO 634440
3503 033353 7 004 20 0 00 010000 CONO PI,10000
3504 ^
3505 033354 7 004 20 0 00 004204 CONO PI,ACT+PIREQ+ZZ ;INTERRUPT SHOULD SET HOLD(PIH)
3506 033355 400 00 0 00 000000 SETZ ;IF SECOND INTERRUPT OCCURS PIH
3507 033356 7 004 20 0 00 004202 CONO PI,ACT+PIREQ+YY ;FAILED TO PREVENT PIOK THUS
3508 033357 332 00 0 00 000000 SKIPE ;ALLOWING INTERRUPT. SEE BOTTOM
3509 STOP ^
3510 033360 254 04 0 00 033361 HALT .+1
3511 033361 320 00 0 00 033362 JUMP .+1
3512 ^;OF PI2 PRINT
3513 ^
3514 000002 ZZ=ZZ/2
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 34-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0087
3515 000001 YY=YY/2
3516
3517
3518 PIHOK ZZ,YY^
3519 CLEAN^
3520 033362 7 000 20 0 00 634440 CONO 634440
3521 033363 7 004 20 0 00 010000 CONO PI,10000
3522 ^
3523 033364 7 004 20 0 00 004202 CONO PI,ACT+PIREQ+ZZ ;INTERRUPT SHOULD SET HOLD(PIH)
3524 033365 400 00 0 00 000000 SETZ ;IF SECOND INTERRUPT OCCURS PIH
3525 033366 7 004 20 0 00 004201 CONO PI,ACT+PIREQ+YY ;FAILED TO PREVENT PIOK THUS
3526 033367 332 00 0 00 000000 SKIPE ;ALLOWING INTERRUPT. SEE BOTTOM
3527 STOP ^
3528 033370 254 04 0 00 033371 HALT .+1
3529 033371 320 00 0 00 033372 JUMP .+1
3530 ^;OF PI2 PRINT
3531 ^
3532 000001 ZZ=ZZ/2
3533 000000 YY=YY/2
3534
3535
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 35
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0088
3536 DEFINE SETPIH (A,B)<
3537 CLEAN ;CHECK REQ AND PIH FLOPS
3538 CONO PI,ACT+PIREQ+A ;CAUSE INTERRUPT, SHOULD SET
3539 CONSO PI,B ;HOLD (PIH) SEE PI2 PRINT
3540 STOP ;BOTH PIR+PIH SHOULD BE SET
3541 >
3542 033372 MOD88: SETPIH 100,40000 ^;CH 1
3543
3544 CLEAN ^
3545 033372 7 000 20 0 00 634440 CONO 634440
3546 033373 7 004 20 0 00 010000 CONO PI,10000
3547 ^;CHECK REQ AND PIH FLOPS
3548 033374 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;CAUSE INTERRUPT, SHOULD SET
3549 033375 7 004 34 0 00 040000 CONSO PI,40000 ;HOLD (PIH) SEE PI2 PRINT
3550 STOP ^
3551 033376 254 04 0 00 033377 HALT .+1
3552 033377 320 00 0 00 033400 JUMP .+1
3553 ^;BOTH PIR+PIH SHOULD BE SET
3554
3555 SETPIH 40,20000 ^;CH 2
3556
3557 CLEAN ^
3558 033400 7 000 20 0 00 634440 CONO 634440
3559 033401 7 004 20 0 00 010000 CONO PI,10000
3560 ^;CHECK REQ AND PIH FLOPS
3561 033402 7 004 20 0 00 004240 CONO PI,ACT+PIREQ+40 ;CAUSE INTERRUPT, SHOULD SET
3562 033403 7 004 34 0 00 020000 CONSO PI,20000 ;HOLD (PIH) SEE PI2 PRINT
3563 STOP ^
3564 033404 254 04 0 00 033405 HALT .+1
3565 033405 320 00 0 00 033406 JUMP .+1
3566 ^;BOTH PIR+PIH SHOULD BE SET
3567
3568 CHANEL MOD90^
3569 033406 336 00 0 00 036672 SKIPN PI7SYS#
3570 033407 254 00 0 00 033446 JRST MOD90
3571 ^
3572 033410 MOD89: SETPIH 20,10000 ^;CH 3
3573
3574 CLEAN ^
3575 033410 7 000 20 0 00 634440 CONO 634440
3576 033411 7 004 20 0 00 010000 CONO PI,10000
3577 ^;CHECK REQ AND PIH FLOPS
3578 033412 7 004 20 0 00 004220 CONO PI,ACT+PIREQ+20 ;CAUSE INTERRUPT, SHOULD SET
3579 033413 7 004 34 0 00 010000 CONSO PI,10000 ;HOLD (PIH) SEE PI2 PRINT
3580 STOP ^
3581 033414 254 04 0 00 033415 HALT .+1
3582 033415 320 00 0 00 033416 JUMP .+1
3583 ^;BOTH PIR+PIH SHOULD BE SET
3584
3585 SETPIH 10,4000 ^;CH 4
3586
3587 CLEAN ^
3588 033416 7 000 20 0 00 634440 CONO 634440
3589 033417 7 004 20 0 00 010000 CONO PI,10000
3590 ^;CHECK REQ AND PIH FLOPS
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 35-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0089
3591 033420 7 004 20 0 00 004210 CONO PI,ACT+PIREQ+10 ;CAUSE INTERRUPT, SHOULD SET
3592 033421 7 004 34 0 00 004000 CONSO PI,4000 ;HOLD (PIH) SEE PI2 PRINT
3593 STOP ^
3594 033422 254 04 0 00 033423 HALT .+1
3595 033423 320 00 0 00 033424 JUMP .+1
3596 ^;BOTH PIR+PIH SHOULD BE SET
3597
3598 SETPIH 4,2000 ^;CH 5
3599
3600 CLEAN ^
3601 033424 7 000 20 0 00 634440 CONO 634440
3602 033425 7 004 20 0 00 010000 CONO PI,10000
3603 ^;CHECK REQ AND PIH FLOPS
3604 033426 7 004 20 0 00 004204 CONO PI,ACT+PIREQ+4 ;CAUSE INTERRUPT, SHOULD SET
3605 033427 7 004 34 0 00 002000 CONSO PI,2000 ;HOLD (PIH) SEE PI2 PRINT
3606 STOP ^
3607 033430 254 04 0 00 033431 HALT .+1
3608 033431 320 00 0 00 033432 JUMP .+1
3609 ^;BOTH PIR+PIH SHOULD BE SET
3610
3611 SETPIH 2,1000 ^;CH 6
3612
3613 CLEAN ^
3614 033432 7 000 20 0 00 634440 CONO 634440
3615 033433 7 004 20 0 00 010000 CONO PI,10000
3616 ^;CHECK REQ AND PIH FLOPS
3617 033434 7 004 20 0 00 004202 CONO PI,ACT+PIREQ+2 ;CAUSE INTERRUPT, SHOULD SET
3618 033435 7 004 34 0 00 001000 CONSO PI,1000 ;HOLD (PIH) SEE PI2 PRINT
3619 STOP ^
3620 033436 254 04 0 00 033437 HALT .+1
3621 033437 320 00 0 00 033440 JUMP .+1
3622 ^;BOTH PIR+PIH SHOULD BE SET
3623
3624 SETPIH 1,400 ^;CH 7
3625
3626 CLEAN ^
3627 033440 7 000 20 0 00 634440 CONO 634440
3628 033441 7 004 20 0 00 010000 CONO PI,10000
3629 ^;CHECK REQ AND PIH FLOPS
3630 033442 7 004 20 0 00 004201 CONO PI,ACT+PIREQ+1 ;CAUSE INTERRUPT, SHOULD SET
3631 033443 7 004 34 0 00 000400 CONSO PI,400 ;HOLD (PIH) SEE PI2 PRINT
3632 STOP ^
3633 033444 254 04 0 00 033445 HALT .+1
3634 033445 320 00 0 00 033446 JUMP .+1
3635 ^;BOTH PIR+PIH SHOULD BE SET
3636
3637 033446 MOD90: CLEAN^
3638 033446 7 000 20 0 00 634440 CONO 634440
3639 033447 7 004 20 0 00 010000 CONO PI,10000
3640 ^
3641
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 36
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0090
3642 DEFINE PIADDR (A,B)<
3643 CLEAN ;CHECK ABILITY TO INTERRUPT TO
3644 SETZ ;LOC 40-60 SHOULD SEE MOVEI
3645 CONO PI,ACT+PIREQ+A ;ACTIVATE AN INTERRUPT. IF C(0)=0
3646 CAIE B ;NO INTERRUPT OCCURED, C(0)=ADDR
3647 STOP ;OF INTERRUPT EXECUTED
3648 >
3649
3650 BLURB^
3651 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
3652 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
3653 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
3654 ;INSTRUCTION
3655 ^
3656 033450 MOD91: PIADDR 100,42 ^;CH 1 TO LOC 42
3657
3658 CLEAN ^
3659 033450 7 000 20 0 00 634440 CONO 634440
3660 033451 7 004 20 0 00 010000 CONO PI,10000
3661 ^;CHECK ABILITY TO INTERRUPT TO
3662 033452 400 00 0 00 000000 SETZ ;LOC 40-60 SHOULD SEE MOVEI
3663 033453 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;ACTIVATE AN INTERRUPT. IF C(0)=0
3664 033454 302 00 0 00 000042 CAIE 42 ;NO INTERRUPT OCCURED, C(0)=ADDR
3665 STOP ^
3666 033455 254 04 0 00 033456 HALT .+1
3667 033456 320 00 0 00 033457 JUMP .+1
3668 ^;OF INTERRUPT EXECUTED
3669
3670 PIADDR 40,44 ^;CH 2 TO LOC 44
3671
3672 CLEAN ^
3673 033457 7 000 20 0 00 634440 CONO 634440
3674 033460 7 004 20 0 00 010000 CONO PI,10000
3675 ^;CHECK ABILITY TO INTERRUPT TO
3676 033461 400 00 0 00 000000 SETZ ;LOC 40-60 SHOULD SEE MOVEI
3677 033462 7 004 20 0 00 004240 CONO PI,ACT+PIREQ+40 ;ACTIVATE AN INTERRUPT. IF C(0)=0
3678 033463 302 00 0 00 000044 CAIE 44 ;NO INTERRUPT OCCURED, C(0)=ADDR
3679 STOP ^
3680 033464 254 04 0 00 033465 HALT .+1
3681 033465 320 00 0 00 033466 JUMP .+1
3682 ^;OF INTERRUPT EXECUTED
3683
3684 CHANEL MOD93^
3685 033466 336 00 0 00 036672 SKIPN PI7SYS#
3686 033467 254 00 0 00 033533 JRST MOD93
3687 ^
3688 033470 MOD92: PIADDR 20,46 ^;CH 3 TO LOC 46
3689
3690 CLEAN ^
3691 033470 7 000 20 0 00 634440 CONO 634440
3692 033471 7 004 20 0 00 010000 CONO PI,10000
3693 ^;CHECK ABILITY TO INTERRUPT TO
3694 033472 400 00 0 00 000000 SETZ ;LOC 40-60 SHOULD SEE MOVEI
3695 033473 7 004 20 0 00 004220 CONO PI,ACT+PIREQ+20 ;ACTIVATE AN INTERRUPT. IF C(0)=0
3696 033474 302 00 0 00 000046 CAIE 46 ;NO INTERRUPT OCCURED, C(0)=ADDR
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 36-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0091
3697 STOP ^
3698 033475 254 04 0 00 033476 HALT .+1
3699 033476 320 00 0 00 033477 JUMP .+1
3700 ^;OF INTERRUPT EXECUTED
3701
3702 PIADDR 10,50 ^;CH 4 TO LOC 50
3703
3704 CLEAN ^
3705 033477 7 000 20 0 00 634440 CONO 634440
3706 033500 7 004 20 0 00 010000 CONO PI,10000
3707 ^;CHECK ABILITY TO INTERRUPT TO
3708 033501 400 00 0 00 000000 SETZ ;LOC 40-60 SHOULD SEE MOVEI
3709 033502 7 004 20 0 00 004210 CONO PI,ACT+PIREQ+10 ;ACTIVATE AN INTERRUPT. IF C(0)=0
3710 033503 302 00 0 00 000050 CAIE 50 ;NO INTERRUPT OCCURED, C(0)=ADDR
3711 STOP ^
3712 033504 254 04 0 00 033505 HALT .+1
3713 033505 320 00 0 00 033506 JUMP .+1
3714 ^;OF INTERRUPT EXECUTED
3715
3716 PIADDR 4,52 ^;CH 5 TO LOC 52
3717
3718 CLEAN ^
3719 033506 7 000 20 0 00 634440 CONO 634440
3720 033507 7 004 20 0 00 010000 CONO PI,10000
3721 ^;CHECK ABILITY TO INTERRUPT TO
3722 033510 400 00 0 00 000000 SETZ ;LOC 40-60 SHOULD SEE MOVEI
3723 033511 7 004 20 0 00 004204 CONO PI,ACT+PIREQ+4 ;ACTIVATE AN INTERRUPT. IF C(0)=0
3724 033512 302 00 0 00 000052 CAIE 52 ;NO INTERRUPT OCCURED, C(0)=ADDR
3725 STOP ^
3726 033513 254 04 0 00 033514 HALT .+1
3727 033514 320 00 0 00 033515 JUMP .+1
3728 ^;OF INTERRUPT EXECUTED
3729
3730 PIADDR 2,54 ^;CH 6 TO LOC 54
3731
3732 CLEAN ^
3733 033515 7 000 20 0 00 634440 CONO 634440
3734 033516 7 004 20 0 00 010000 CONO PI,10000
3735 ^;CHECK ABILITY TO INTERRUPT TO
3736 033517 400 00 0 00 000000 SETZ ;LOC 40-60 SHOULD SEE MOVEI
3737 033520 7 004 20 0 00 004202 CONO PI,ACT+PIREQ+2 ;ACTIVATE AN INTERRUPT. IF C(0)=0
3738 033521 302 00 0 00 000054 CAIE 54 ;NO INTERRUPT OCCURED, C(0)=ADDR
3739 STOP ^
3740 033522 254 04 0 00 033523 HALT .+1
3741 033523 320 00 0 00 033524 JUMP .+1
3742 ^;OF INTERRUPT EXECUTED
3743
3744 PIADDR 1,56 ^;CH 7 TO LOC 56
3745
3746 CLEAN ^
3747 033524 7 000 20 0 00 634440 CONO 634440
3748 033525 7 004 20 0 00 010000 CONO PI,10000
3749 ^;CHECK ABILITY TO INTERRUPT TO
3750 033526 400 00 0 00 000000 SETZ ;LOC 40-60 SHOULD SEE MOVEI
3751 033527 7 004 20 0 00 004201 CONO PI,ACT+PIREQ+1 ;ACTIVATE AN INTERRUPT. IF C(0)=0
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 36-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0092
3752 033530 302 00 0 00 000056 CAIE 56 ;NO INTERRUPT OCCURED, C(0)=ADDR
3753 STOP ^
3754 033531 254 04 0 00 033532 HALT .+1
3755 033532 320 00 0 00 033533 JUMP .+1
3756 ^;OF INTERRUPT EXECUTED
3757
3758
3759 033533 MOD93: CLEAN^
3760 033533 7 000 20 0 00 634440 CONO 634440
3761 033534 7 004 20 0 00 010000 CONO PI,10000
3762 ^
3763
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 37
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0093
3764 DEFINE TWOPIR (A,B)<
3765 CLEAN ;CK PIR(0) ABILITY TO PREVENT INTERRUPT
3766 SETZ ;LOWER CHANNEL SHOULD BE INHIBIT
3767 CONO PI,ACT+PIREQ+A ;TURN ON 2 PIR FLOPS. CHECK INT LOC
3768 CAIN B ;PIR (0) INPUT TO PIOK
3769 STOP
3770 >
3771 BLURB^
3772 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
3773 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
3774 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
3775 ;INSTRUCTION
3776 ^
3777 033535 MOD94: TWOPIR 100,46 ^;CH 1+2
3778
3779 CLEAN ^
3780 033535 7 000 20 0 00 634440 CONO 634440
3781 033536 7 004 20 0 00 010000 CONO PI,10000
3782 ^;CK PIR(0) ABILITY TO PREVENT INTERRUPT
3783 033537 400 00 0 00 000000 SETZ ;LOWER CHANNEL SHOULD BE INHIBIT
3784 033540 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;TURN ON 2 PIR FLOPS. CHECK INT LOC
3785 033541 306 00 0 00 000046 CAIN 46 ;PIR (0) INPUT TO PIOK
3786 STOP^
3787 033542 254 04 0 00 033543 HALT .+1
3788 033543 320 00 0 00 033544 JUMP .+1
3789 ^
3790
3791 TWOPIR 40,46 ^;CH 2+3
3792
3793 CLEAN ^
3794 033544 7 000 20 0 00 634440 CONO 634440
3795 033545 7 004 20 0 00 010000 CONO PI,10000
3796 ^;CK PIR(0) ABILITY TO PREVENT INTERRUPT
3797 033546 400 00 0 00 000000 SETZ ;LOWER CHANNEL SHOULD BE INHIBIT
3798 033547 7 004 20 0 00 004240 CONO PI,ACT+PIREQ+40 ;TURN ON 2 PIR FLOPS. CHECK INT LOC
3799 033550 306 00 0 00 000046 CAIN 46 ;PIR (0) INPUT TO PIOK
3800 STOP^
3801 033551 254 04 0 00 033552 HALT .+1
3802 033552 320 00 0 00 033553 JUMP .+1
3803 ^
3804
3805 CHANEL MOD96^
3806 033553 336 00 0 00 036672 SKIPN PI7SYS#
3807 033554 254 00 0 00 033611 JRST MOD96
3808 ^
3809 033555 MOD95: TWOPIR 20,56 ^;CH 3+4
3810
3811 CLEAN ^
3812 033555 7 000 20 0 00 634440 CONO 634440
3813 033556 7 004 20 0 00 010000 CONO PI,10000
3814 ^;CK PIR(0) ABILITY TO PREVENT INTERRUPT
3815 033557 400 00 0 00 000000 SETZ ;LOWER CHANNEL SHOULD BE INHIBIT
3816 033560 7 004 20 0 00 004220 CONO PI,ACT+PIREQ+20 ;TURN ON 2 PIR FLOPS. CHECK INT LOC
3817 033561 306 00 0 00 000056 CAIN 56 ;PIR (0) INPUT TO PIOK
3818 STOP^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 37-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0094
3819 033562 254 04 0 00 033563 HALT .+1
3820 033563 320 00 0 00 033564 JUMP .+1
3821 ^
3822
3823 TWOPIR 10,52 ^;CH 4+5
3824
3825 CLEAN ^
3826 033564 7 000 20 0 00 634440 CONO 634440
3827 033565 7 004 20 0 00 010000 CONO PI,10000
3828 ^;CK PIR(0) ABILITY TO PREVENT INTERRUPT
3829 033566 400 00 0 00 000000 SETZ ;LOWER CHANNEL SHOULD BE INHIBIT
3830 033567 7 004 20 0 00 004210 CONO PI,ACT+PIREQ+10 ;TURN ON 2 PIR FLOPS. CHECK INT LOC
3831 033570 306 00 0 00 000052 CAIN 52 ;PIR (0) INPUT TO PIOK
3832 STOP^
3833 033571 254 04 0 00 033572 HALT .+1
3834 033572 320 00 0 00 033573 JUMP .+1
3835 ^
3836
3837 TWOPIR 4,56 ^;CH 5+6
3838
3839 CLEAN ^
3840 033573 7 000 20 0 00 634440 CONO 634440
3841 033574 7 004 20 0 00 010000 CONO PI,10000
3842 ^;CK PIR(0) ABILITY TO PREVENT INTERRUPT
3843 033575 400 00 0 00 000000 SETZ ;LOWER CHANNEL SHOULD BE INHIBIT
3844 033576 7 004 20 0 00 004204 CONO PI,ACT+PIREQ+4 ;TURN ON 2 PIR FLOPS. CHECK INT LOC
3845 033577 306 00 0 00 000056 CAIN 56 ;PIR (0) INPUT TO PIOK
3846 STOP^
3847 033600 254 04 0 00 033601 HALT .+1
3848 033601 320 00 0 00 033602 JUMP .+1
3849 ^
3850
3851 TWOPIR 2,56 ^;CH 6+7
3852
3853 CLEAN ^
3854 033602 7 000 20 0 00 634440 CONO 634440
3855 033603 7 004 20 0 00 010000 CONO PI,10000
3856 ^;CK PIR(0) ABILITY TO PREVENT INTERRUPT
3857 033604 400 00 0 00 000000 SETZ ;LOWER CHANNEL SHOULD BE INHIBIT
3858 033605 7 004 20 0 00 004202 CONO PI,ACT+PIREQ+2 ;TURN ON 2 PIR FLOPS. CHECK INT LOC
3859 033606 306 00 0 00 000056 CAIN 56 ;PIR (0) INPUT TO PIOK
3860 STOP^
3861 033607 254 04 0 00 033610 HALT .+1
3862 033610 320 00 0 00 033611 JUMP .+1
3863 ^
3864
3865 033611 MOD96: CLEAN^
3866 033611 7 000 20 0 00 634440 CONO 634440
3867 033612 7 004 20 0 00 010000 CONO PI,10000
3868 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 38
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0095
3869 DEFINE MULPIR (A,B)<
3870 CLEAN
3871 SETZ ;TEST MULTI REQUEST BREAK ON
3872 CONO PI,ACT+PIREQ+A ;CORRECT CHANNEL TO CORRECT
3873 CAIE B ;LOC C(0)=INTERRUPTED ADDR
3874 STOP
3875 >
3876
3877 BLURB^
3878 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
3879 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
3880 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
3881 ;INSTRUCTION
3882 ^
3883 033613 MOD97: MULPIR 100,42^
3884 CLEAN^
3885 033613 7 000 20 0 00 634440 CONO 634440
3886 033614 7 004 20 0 00 010000 CONO PI,10000
3887 ^
3888 033615 400 00 0 00 000000 SETZ ;TEST MULTI REQUEST BREAK ON
3889 033616 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;CORRECT CHANNEL TO CORRECT
3890 033617 302 00 0 00 000042 CAIE 42 ;LOC C(0)=INTERRUPTED ADDR
3891 STOP^
3892 033620 254 04 0 00 033621 HALT .+1
3893 033621 320 00 0 00 033622 JUMP .+1
3894 ^
3895 ^
3896 MULPIR 40,44^
3897 CLEAN^
3898 033622 7 000 20 0 00 634440 CONO 634440
3899 033623 7 004 20 0 00 010000 CONO PI,10000
3900 ^
3901 033624 400 00 0 00 000000 SETZ ;TEST MULTI REQUEST BREAK ON
3902 033625 7 004 20 0 00 004240 CONO PI,ACT+PIREQ+40 ;CORRECT CHANNEL TO CORRECT
3903 033626 302 00 0 00 000044 CAIE 44 ;LOC C(0)=INTERRUPTED ADDR
3904 STOP^
3905 033627 254 04 0 00 033630 HALT .+1
3906 033630 320 00 0 00 033631 JUMP .+1
3907 ^
3908 ^
3909 CHANEL MOD99^
3910 033631 336 00 0 00 036672 SKIPN PI7SYS#
3911 033632 254 00 0 00 033676 JRST MOD99
3912 ^
3913 033633 MOD98: MULPIR 20,46^
3914 CLEAN^
3915 033633 7 000 20 0 00 634440 CONO 634440
3916 033634 7 004 20 0 00 010000 CONO PI,10000
3917 ^
3918 033635 400 00 0 00 000000 SETZ ;TEST MULTI REQUEST BREAK ON
3919 033636 7 004 20 0 00 004220 CONO PI,ACT+PIREQ+20 ;CORRECT CHANNEL TO CORRECT
3920 033637 302 00 0 00 000046 CAIE 46 ;LOC C(0)=INTERRUPTED ADDR
3921 STOP^
3922 033640 254 04 0 00 033641 HALT .+1
3923 033641 320 00 0 00 033642 JUMP .+1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 38-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0096
3924 ^
3925 ^
3926 MULPIR 10,50^
3927 CLEAN^
3928 033642 7 000 20 0 00 634440 CONO 634440
3929 033643 7 004 20 0 00 010000 CONO PI,10000
3930 ^
3931 033644 400 00 0 00 000000 SETZ ;TEST MULTI REQUEST BREAK ON
3932 033645 7 004 20 0 00 004210 CONO PI,ACT+PIREQ+10 ;CORRECT CHANNEL TO CORRECT
3933 033646 302 00 0 00 000050 CAIE 50 ;LOC C(0)=INTERRUPTED ADDR
3934 STOP^
3935 033647 254 04 0 00 033650 HALT .+1
3936 033650 320 00 0 00 033651 JUMP .+1
3937 ^
3938 ^
3939 MULPIR 4,52^
3940 CLEAN^
3941 033651 7 000 20 0 00 634440 CONO 634440
3942 033652 7 004 20 0 00 010000 CONO PI,10000
3943 ^
3944 033653 400 00 0 00 000000 SETZ ;TEST MULTI REQUEST BREAK ON
3945 033654 7 004 20 0 00 004204 CONO PI,ACT+PIREQ+4 ;CORRECT CHANNEL TO CORRECT
3946 033655 302 00 0 00 000052 CAIE 52 ;LOC C(0)=INTERRUPTED ADDR
3947 STOP^
3948 033656 254 04 0 00 033657 HALT .+1
3949 033657 320 00 0 00 033660 JUMP .+1
3950 ^
3951 ^
3952 MULPIR 2,54^
3953 CLEAN^
3954 033660 7 000 20 0 00 634440 CONO 634440
3955 033661 7 004 20 0 00 010000 CONO PI,10000
3956 ^
3957 033662 400 00 0 00 000000 SETZ ;TEST MULTI REQUEST BREAK ON
3958 033663 7 004 20 0 00 004202 CONO PI,ACT+PIREQ+2 ;CORRECT CHANNEL TO CORRECT
3959 033664 302 00 0 00 000054 CAIE 54 ;LOC C(0)=INTERRUPTED ADDR
3960 STOP^
3961 033665 254 04 0 00 033666 HALT .+1
3962 033666 320 00 0 00 033667 JUMP .+1
3963 ^
3964 ^
3965 MULPIR 1,56^
3966 CLEAN^
3967 033667 7 000 20 0 00 634440 CONO 634440
3968 033670 7 004 20 0 00 010000 CONO PI,10000
3969 ^
3970 033671 400 00 0 00 000000 SETZ ;TEST MULTI REQUEST BREAK ON
3971 033672 7 004 20 0 00 004201 CONO PI,ACT+PIREQ+1 ;CORRECT CHANNEL TO CORRECT
3972 033673 302 00 0 00 000056 CAIE 56 ;LOC C(0)=INTERRUPTED ADDR
3973 STOP^
3974 033674 254 04 0 00 033675 HALT .+1
3975 033675 320 00 0 00 033676 JUMP .+1
3976 ^
3977 ^
3978 033676 MOD99: CLEAN^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 38-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0097
3979 033676 7 000 20 0 00 634440 CONO 634440
3980 033677 7 004 20 0 00 010000 CONO PI,10000
3981 ^
3982
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 39
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0098
3983 DEFINE JENOK (A,B)<
3984 CLEAN
3985 CONO PI,ACT+PIREQ+A ;SET THE PIH FLOP THEN REMOVE
3986 CONO PI,DACT ;THE PIOK LEVELS VIA NO ACTIVE
3987 JRST 10,.+1 ;RELEASE INTERRUPT SHOULD NOT
3988 CONSO PI,B ;EFFECT PIH FLOP UNLESS AND
3989 STOP
3990 >
3991
3992 033700 MOD100: JENOK 100,40000 ^;PIH 1
3993
3994 CLEAN^
3995 033700 7 000 20 0 00 634440 CONO 634440
3996 033701 7 004 20 0 00 010000 CONO PI,10000
3997 ^
3998 033702 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;SET THE PIH FLOP THEN REMOVE
3999 033703 7 004 20 0 00 000400 CONO PI,DACT ;THE PIOK LEVELS VIA NO ACTIVE
4000 033704 254 10 0 00 033705 JRST 10,.+1 ;RELEASE INTERRUPT SHOULD NOT
4001 033705 7 004 34 0 00 040000 CONSO PI,40000 ;EFFECT PIH FLOP UNLESS AND
4002 STOP^
4003 033706 254 04 0 00 033707 HALT .+1
4004 033707 320 00 0 00 033710 JUMP .+1
4005 ^
4006
4007 JENOK 40,20000 ^;PIH 2
4008
4009 CLEAN^
4010 033710 7 000 20 0 00 634440 CONO 634440
4011 033711 7 004 20 0 00 010000 CONO PI,10000
4012 ^
4013 033712 7 004 20 0 00 004240 CONO PI,ACT+PIREQ+40 ;SET THE PIH FLOP THEN REMOVE
4014 033713 7 004 20 0 00 000400 CONO PI,DACT ;THE PIOK LEVELS VIA NO ACTIVE
4015 033714 254 10 0 00 033715 JRST 10,.+1 ;RELEASE INTERRUPT SHOULD NOT
4016 033715 7 004 34 0 00 020000 CONSO PI,20000 ;EFFECT PIH FLOP UNLESS AND
4017 STOP^
4018 033716 254 04 0 00 033717 HALT .+1
4019 033717 320 00 0 00 033720 JUMP .+1
4020 ^
4021
4022 CHANEL MOD102^
4023 033720 336 00 0 00 036672 SKIPN PI7SYS#
4024 033721 254 00 0 00 033772 JRST MOD102
4025 ^
4026 033722 MOD101: JENOK 20,10000 ^;PIH 3
4027
4028 CLEAN^
4029 033722 7 000 20 0 00 634440 CONO 634440
4030 033723 7 004 20 0 00 010000 CONO PI,10000
4031 ^
4032 033724 7 004 20 0 00 004220 CONO PI,ACT+PIREQ+20 ;SET THE PIH FLOP THEN REMOVE
4033 033725 7 004 20 0 00 000400 CONO PI,DACT ;THE PIOK LEVELS VIA NO ACTIVE
4034 033726 254 10 0 00 033727 JRST 10,.+1 ;RELEASE INTERRUPT SHOULD NOT
4035 033727 7 004 34 0 00 010000 CONSO PI,10000 ;EFFECT PIH FLOP UNLESS AND
4036 STOP^
4037 033730 254 04 0 00 033731 HALT .+1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 39-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0099
4038 033731 320 00 0 00 033732 JUMP .+1
4039 ^
4040
4041 JENOK 10,4000 ^;PIH 4
4042
4043 CLEAN^
4044 033732 7 000 20 0 00 634440 CONO 634440
4045 033733 7 004 20 0 00 010000 CONO PI,10000
4046 ^
4047 033734 7 004 20 0 00 004210 CONO PI,ACT+PIREQ+10 ;SET THE PIH FLOP THEN REMOVE
4048 033735 7 004 20 0 00 000400 CONO PI,DACT ;THE PIOK LEVELS VIA NO ACTIVE
4049 033736 254 10 0 00 033737 JRST 10,.+1 ;RELEASE INTERRUPT SHOULD NOT
4050 033737 7 004 34 0 00 004000 CONSO PI,4000 ;EFFECT PIH FLOP UNLESS AND
4051 STOP^
4052 033740 254 04 0 00 033741 HALT .+1
4053 033741 320 00 0 00 033742 JUMP .+1
4054 ^
4055
4056 JENOK 4,2000 ^;PIH 5
4057
4058 CLEAN^
4059 033742 7 000 20 0 00 634440 CONO 634440
4060 033743 7 004 20 0 00 010000 CONO PI,10000
4061 ^
4062 033744 7 004 20 0 00 004204 CONO PI,ACT+PIREQ+4 ;SET THE PIH FLOP THEN REMOVE
4063 033745 7 004 20 0 00 000400 CONO PI,DACT ;THE PIOK LEVELS VIA NO ACTIVE
4064 033746 254 10 0 00 033747 JRST 10,.+1 ;RELEASE INTERRUPT SHOULD NOT
4065 033747 7 004 34 0 00 002000 CONSO PI,2000 ;EFFECT PIH FLOP UNLESS AND
4066 STOP^
4067 033750 254 04 0 00 033751 HALT .+1
4068 033751 320 00 0 00 033752 JUMP .+1
4069 ^
4070
4071 JENOK 2,1000 ^;PIH 6
4072
4073 CLEAN^
4074 033752 7 000 20 0 00 634440 CONO 634440
4075 033753 7 004 20 0 00 010000 CONO PI,10000
4076 ^
4077 033754 7 004 20 0 00 004202 CONO PI,ACT+PIREQ+2 ;SET THE PIH FLOP THEN REMOVE
4078 033755 7 004 20 0 00 000400 CONO PI,DACT ;THE PIOK LEVELS VIA NO ACTIVE
4079 033756 254 10 0 00 033757 JRST 10,.+1 ;RELEASE INTERRUPT SHOULD NOT
4080 033757 7 004 34 0 00 001000 CONSO PI,1000 ;EFFECT PIH FLOP UNLESS AND
4081 STOP^
4082 033760 254 04 0 00 033761 HALT .+1
4083 033761 320 00 0 00 033762 JUMP .+1
4084 ^
4085
4086 JENOK 1,400 ^;PIH 7
4087
4088 CLEAN^
4089 033762 7 000 20 0 00 634440 CONO 634440
4090 033763 7 004 20 0 00 010000 CONO PI,10000
4091 ^
4092 033764 7 004 20 0 00 004201 CONO PI,ACT+PIREQ+1 ;SET THE PIH FLOP THEN REMOVE
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 39-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0100
4093 033765 7 004 20 0 00 000400 CONO PI,DACT ;THE PIOK LEVELS VIA NO ACTIVE
4094 033766 254 10 0 00 033767 JRST 10,.+1 ;RELEASE INTERRUPT SHOULD NOT
4095 033767 7 004 34 0 00 000400 CONSO PI,400 ;EFFECT PIH FLOP UNLESS AND
4096 STOP^
4097 033770 254 04 0 00 033771 HALT .+1
4098 033771 320 00 0 00 033772 JUMP .+1
4099 ^
4100
4101 033772 MOD102: CLEAN^
4102 033772 7 000 20 0 00 634440 CONO 634440
4103 033773 7 004 20 0 00 010000 CONO PI,10000
4104 ^
4105
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 40
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0101
4106 DEFINE ONEPIH (A,B)<
4107 CLEAN
4108 CONO PI,ACT+PIREQ+A ;CHECK FOR REDUNDANT
4109 CONSZ PI,B ;PIH FLAGS.SEE TOP PI2 PRINT
4110 STOP
4111 >
4112
4113 020000 WW=20000
4114 000100 ZZ=100
4115 037400 YY=37400
4116 MOD103: REPEAT 7,<
4117 ONEPIH ZZ,YY
4118 YY=YY+WW
4119 WW=WW/2
4120 ZZ=ZZ/2
4121 >
4122
4123 ONEPIH ZZ,YY^
4124 CLEAN^
4125 033774 7 000 20 0 00 634440 CONO 634440
4126 033775 7 004 20 0 00 010000 CONO PI,10000
4127 ^
4128 033776 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+ZZ ;CHECK FOR REDUNDANT
4129 033777 7 004 30 0 00 037400 CONSZ PI,YY ;PIH FLAGS.SEE TOP PI2 PRINT
4130 STOP^
4131 034000 254 04 0 00 034001 HALT .+1
4132 034001 320 00 0 00 034002 JUMP .+1
4133 ^
4134 ^
4135 057400 YY=YY+WW
4136 010000 WW=WW/2
4137 000040 ZZ=ZZ/2
4138
4139
4140 ONEPIH ZZ,YY^
4141 CLEAN^
4142 034002 7 000 20 0 00 634440 CONO 634440
4143 034003 7 004 20 0 00 010000 CONO PI,10000
4144 ^
4145 034004 7 004 20 0 00 004240 CONO PI,ACT+PIREQ+ZZ ;CHECK FOR REDUNDANT
4146 034005 7 004 30 0 00 057400 CONSZ PI,YY ;PIH FLAGS.SEE TOP PI2 PRINT
4147 STOP^
4148 034006 254 04 0 00 034007 HALT .+1
4149 034007 320 00 0 00 034010 JUMP .+1
4150 ^
4151 ^
4152 067400 YY=YY+WW
4153 004000 WW=WW/2
4154 000020 ZZ=ZZ/2
4155
4156
4157 ONEPIH ZZ,YY^
4158 CLEAN^
4159 034010 7 000 20 0 00 634440 CONO 634440
4160 034011 7 004 20 0 00 010000 CONO PI,10000
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 40-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0102
4161 ^
4162 034012 7 004 20 0 00 004220 CONO PI,ACT+PIREQ+ZZ ;CHECK FOR REDUNDANT
4163 034013 7 004 30 0 00 067400 CONSZ PI,YY ;PIH FLAGS.SEE TOP PI2 PRINT
4164 STOP^
4165 034014 254 04 0 00 034015 HALT .+1
4166 034015 320 00 0 00 034016 JUMP .+1
4167 ^
4168 ^
4169 073400 YY=YY+WW
4170 002000 WW=WW/2
4171 000010 ZZ=ZZ/2
4172
4173
4174 ONEPIH ZZ,YY^
4175 CLEAN^
4176 034016 7 000 20 0 00 634440 CONO 634440
4177 034017 7 004 20 0 00 010000 CONO PI,10000
4178 ^
4179 034020 7 004 20 0 00 004210 CONO PI,ACT+PIREQ+ZZ ;CHECK FOR REDUNDANT
4180 034021 7 004 30 0 00 073400 CONSZ PI,YY ;PIH FLAGS.SEE TOP PI2 PRINT
4181 STOP^
4182 034022 254 04 0 00 034023 HALT .+1
4183 034023 320 00 0 00 034024 JUMP .+1
4184 ^
4185 ^
4186 075400 YY=YY+WW
4187 001000 WW=WW/2
4188 000004 ZZ=ZZ/2
4189
4190
4191 ONEPIH ZZ,YY^
4192 CLEAN^
4193 034024 7 000 20 0 00 634440 CONO 634440
4194 034025 7 004 20 0 00 010000 CONO PI,10000
4195 ^
4196 034026 7 004 20 0 00 004204 CONO PI,ACT+PIREQ+ZZ ;CHECK FOR REDUNDANT
4197 034027 7 004 30 0 00 075400 CONSZ PI,YY ;PIH FLAGS.SEE TOP PI2 PRINT
4198 STOP^
4199 034030 254 04 0 00 034031 HALT .+1
4200 034031 320 00 0 00 034032 JUMP .+1
4201 ^
4202 ^
4203 076400 YY=YY+WW
4204 000400 WW=WW/2
4205 000002 ZZ=ZZ/2
4206
4207
4208 ONEPIH ZZ,YY^
4209 CLEAN^
4210 034032 7 000 20 0 00 634440 CONO 634440
4211 034033 7 004 20 0 00 010000 CONO PI,10000
4212 ^
4213 034034 7 004 20 0 00 004202 CONO PI,ACT+PIREQ+ZZ ;CHECK FOR REDUNDANT
4214 034035 7 004 30 0 00 076400 CONSZ PI,YY ;PIH FLAGS.SEE TOP PI2 PRINT
4215 STOP^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 40-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0103
4216 034036 254 04 0 00 034037 HALT .+1
4217 034037 320 00 0 00 034040 JUMP .+1
4218 ^
4219 ^
4220 077000 YY=YY+WW
4221 000200 WW=WW/2
4222 000001 ZZ=ZZ/2
4223
4224
4225 ONEPIH ZZ,YY^
4226 CLEAN^
4227 034040 7 000 20 0 00 634440 CONO 634440
4228 034041 7 004 20 0 00 010000 CONO PI,10000
4229 ^
4230 034042 7 004 20 0 00 004201 CONO PI,ACT+PIREQ+ZZ ;CHECK FOR REDUNDANT
4231 034043 7 004 30 0 00 077000 CONSZ PI,YY ;PIH FLAGS.SEE TOP PI2 PRINT
4232 STOP^
4233 034044 254 04 0 00 034045 HALT .+1
4234 034045 320 00 0 00 034046 JUMP .+1
4235 ^
4236 ^
4237 077200 YY=YY+WW
4238 000100 WW=WW/2
4239 000000 ZZ=ZZ/2
4240
4241
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 41
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0104
4242 DEFINE FASTPIH (A,B,C)<
4243 CLEAN
4244 CONO PI,ACT+PIREQ+B ;SET PIH AND PIH ON
4245 CONO PI,ACT+PIREQ+A ;NEXT HIGHER CHANNEL
4246 JRST 10,.+1 ;SHOULD RELEASE ONLY HIGH CH
4247 CONSO PI,C ;CHECK FOR FAST TURN OFF (PIH)
4248 STOP
4249 >
4250
4251 034046 MOD104: FASTPIH 100,40,20000^
4252 CLEAN^
4253 034046 7 000 20 0 00 634440 CONO 634440
4254 034047 7 004 20 0 00 010000 CONO PI,10000
4255 ^
4256 034050 7 004 20 0 00 004240 CONO PI,ACT+PIREQ+40 ;SET PIH AND PIH ON
4257 034051 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;NEXT HIGHER CHANNEL
4258 034052 254 10 0 00 034053 JRST 10,.+1 ;SHOULD RELEASE ONLY HIGH CH
4259 034053 7 004 34 0 00 020000 CONSO PI,20000 ;CHECK FOR FAST TURN OFF (PIH)
4260 STOP^
4261 034054 254 04 0 00 034055 HALT .+1
4262 034055 320 00 0 00 034056 JUMP .+1
4263 ^
4264 ^
4265 CHANEL MOD106^
4266 034056 336 00 0 00 036672 SKIPN PI7SYS#
4267 034057 254 00 0 00 034130 JRST MOD106
4268 ^
4269 034060 MOD105: FASTPIH 40,20,10000^
4270 CLEAN^
4271 034060 7 000 20 0 00 634440 CONO 634440
4272 034061 7 004 20 0 00 010000 CONO PI,10000
4273 ^
4274 034062 7 004 20 0 00 004220 CONO PI,ACT+PIREQ+20 ;SET PIH AND PIH ON
4275 034063 7 004 20 0 00 004240 CONO PI,ACT+PIREQ+40 ;NEXT HIGHER CHANNEL
4276 034064 254 10 0 00 034065 JRST 10,.+1 ;SHOULD RELEASE ONLY HIGH CH
4277 034065 7 004 34 0 00 010000 CONSO PI,10000 ;CHECK FOR FAST TURN OFF (PIH)
4278 STOP^
4279 034066 254 04 0 00 034067 HALT .+1
4280 034067 320 00 0 00 034070 JUMP .+1
4281 ^
4282 ^
4283 FASTPIH 20,10,4000^
4284 CLEAN^
4285 034070 7 000 20 0 00 634440 CONO 634440
4286 034071 7 004 20 0 00 010000 CONO PI,10000
4287 ^
4288 034072 7 004 20 0 00 004210 CONO PI,ACT+PIREQ+10 ;SET PIH AND PIH ON
4289 034073 7 004 20 0 00 004220 CONO PI,ACT+PIREQ+20 ;NEXT HIGHER CHANNEL
4290 034074 254 10 0 00 034075 JRST 10,.+1 ;SHOULD RELEASE ONLY HIGH CH
4291 034075 7 004 34 0 00 004000 CONSO PI,4000 ;CHECK FOR FAST TURN OFF (PIH)
4292 STOP^
4293 034076 254 04 0 00 034077 HALT .+1
4294 034077 320 00 0 00 034100 JUMP .+1
4295 ^
4296 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 41-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0105
4297 FASTPIH 10,4,2000^
4298 CLEAN^
4299 034100 7 000 20 0 00 634440 CONO 634440
4300 034101 7 004 20 0 00 010000 CONO PI,10000
4301 ^
4302 034102 7 004 20 0 00 004204 CONO PI,ACT+PIREQ+4 ;SET PIH AND PIH ON
4303 034103 7 004 20 0 00 004210 CONO PI,ACT+PIREQ+10 ;NEXT HIGHER CHANNEL
4304 034104 254 10 0 00 034105 JRST 10,.+1 ;SHOULD RELEASE ONLY HIGH CH
4305 034105 7 004 34 0 00 002000 CONSO PI,2000 ;CHECK FOR FAST TURN OFF (PIH)
4306 STOP^
4307 034106 254 04 0 00 034107 HALT .+1
4308 034107 320 00 0 00 034110 JUMP .+1
4309 ^
4310 ^
4311 FASTPIH 4,2,1000^
4312 CLEAN^
4313 034110 7 000 20 0 00 634440 CONO 634440
4314 034111 7 004 20 0 00 010000 CONO PI,10000
4315 ^
4316 034112 7 004 20 0 00 004202 CONO PI,ACT+PIREQ+2 ;SET PIH AND PIH ON
4317 034113 7 004 20 0 00 004204 CONO PI,ACT+PIREQ+4 ;NEXT HIGHER CHANNEL
4318 034114 254 10 0 00 034115 JRST 10,.+1 ;SHOULD RELEASE ONLY HIGH CH
4319 034115 7 004 34 0 00 001000 CONSO PI,1000 ;CHECK FOR FAST TURN OFF (PIH)
4320 STOP^
4321 034116 254 04 0 00 034117 HALT .+1
4322 034117 320 00 0 00 034120 JUMP .+1
4323 ^
4324 ^
4325 FASTPIH 2,1,400^
4326 CLEAN^
4327 034120 7 000 20 0 00 634440 CONO 634440
4328 034121 7 004 20 0 00 010000 CONO PI,10000
4329 ^
4330 034122 7 004 20 0 00 004201 CONO PI,ACT+PIREQ+1 ;SET PIH AND PIH ON
4331 034123 7 004 20 0 00 004202 CONO PI,ACT+PIREQ+2 ;NEXT HIGHER CHANNEL
4332 034124 254 10 0 00 034125 JRST 10,.+1 ;SHOULD RELEASE ONLY HIGH CH
4333 034125 7 004 34 0 00 000400 CONSO PI,400 ;CHECK FOR FAST TURN OFF (PIH)
4334 STOP^
4335 034126 254 04 0 00 034127 HALT .+1
4336 034127 320 00 0 00 034130 JUMP .+1
4337 ^
4338 ^
4339 034130 MOD106: CLEAN^
4340 034130 7 000 20 0 00 634440 CONO 634440
4341 034131 7 004 20 0 00 010000 CONO PI,10000
4342 ^
4343
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 42
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0106
4344 000100 ZZ=100
4345 040000 YY=40000
4346 MOD107: REPEAT 7,<
4347 CLEAN
4348 CONO PI,PIOSET+ACT+ZZ ;SET CHANNEL IOB SHOULD
4349 CONSZ PI,YY ;NOT HAVE DATA. CHECK AND
4350 STOP ;OF PIR STB, IOB PIRQ, PIO
4351 ZZ=ZZ/2 ;THE PIRQ INPUT. INTERRUPT NOT
4352 YY=YY/2 ;HAVE OCCURED. SEE PI2 PRINT>
4353
4354 CLEAN^
4355 034132 7 000 20 0 00 634440 CONO 634440
4356 034133 7 004 20 0 00 010000 CONO PI,10000
4357 ^
4358 034134 7 004 20 0 00 002300 CONO PI,PIOSET+ACT+ZZ ;SET CHANNEL IOB SHOULD
4359 034135 7 004 30 0 00 040000 CONSZ PI,YY ;NOT HAVE DATA. CHECK AND
4360 STOP ^
4361 034136 254 04 0 00 034137 HALT .+1
4362 034137 320 00 0 00 034140 JUMP .+1
4363 ^;OF PIR STB, IOB PIRQ, PIO
4364 000040 ZZ=ZZ/2 ;THE PIRQ INPUT. INTERRUPT NOT
4365 020000 YY=YY/2 ;HAVE OCCURED. SEE PI2 PRINT
4366
4367 CLEAN^
4368 034140 7 000 20 0 00 634440 CONO 634440
4369 034141 7 004 20 0 00 010000 CONO PI,10000
4370 ^
4371 034142 7 004 20 0 00 002240 CONO PI,PIOSET+ACT+ZZ ;SET CHANNEL IOB SHOULD
4372 034143 7 004 30 0 00 020000 CONSZ PI,YY ;NOT HAVE DATA. CHECK AND
4373 STOP ^
4374 034144 254 04 0 00 034145 HALT .+1
4375 034145 320 00 0 00 034146 JUMP .+1
4376 ^;OF PIR STB, IOB PIRQ, PIO
4377 000020 ZZ=ZZ/2 ;THE PIRQ INPUT. INTERRUPT NOT
4378 010000 YY=YY/2 ;HAVE OCCURED. SEE PI2 PRINT
4379
4380 CLEAN^
4381 034146 7 000 20 0 00 634440 CONO 634440
4382 034147 7 004 20 0 00 010000 CONO PI,10000
4383 ^
4384 034150 7 004 20 0 00 002220 CONO PI,PIOSET+ACT+ZZ ;SET CHANNEL IOB SHOULD
4385 034151 7 004 30 0 00 010000 CONSZ PI,YY ;NOT HAVE DATA. CHECK AND
4386 STOP ^
4387 034152 254 04 0 00 034153 HALT .+1
4388 034153 320 00 0 00 034154 JUMP .+1
4389 ^;OF PIR STB, IOB PIRQ, PIO
4390 000010 ZZ=ZZ/2 ;THE PIRQ INPUT. INTERRUPT NOT
4391 004000 YY=YY/2 ;HAVE OCCURED. SEE PI2 PRINT
4392
4393 CLEAN^
4394 034154 7 000 20 0 00 634440 CONO 634440
4395 034155 7 004 20 0 00 010000 CONO PI,10000
4396 ^
4397 034156 7 004 20 0 00 002210 CONO PI,PIOSET+ACT+ZZ ;SET CHANNEL IOB SHOULD
4398 034157 7 004 30 0 00 004000 CONSZ PI,YY ;NOT HAVE DATA. CHECK AND
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 42-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0107
4399 STOP ^
4400 034160 254 04 0 00 034161 HALT .+1
4401 034161 320 00 0 00 034162 JUMP .+1
4402 ^;OF PIR STB, IOB PIRQ, PIO
4403 000004 ZZ=ZZ/2 ;THE PIRQ INPUT. INTERRUPT NOT
4404 002000 YY=YY/2 ;HAVE OCCURED. SEE PI2 PRINT
4405
4406 CLEAN^
4407 034162 7 000 20 0 00 634440 CONO 634440
4408 034163 7 004 20 0 00 010000 CONO PI,10000
4409 ^
4410 034164 7 004 20 0 00 002204 CONO PI,PIOSET+ACT+ZZ ;SET CHANNEL IOB SHOULD
4411 034165 7 004 30 0 00 002000 CONSZ PI,YY ;NOT HAVE DATA. CHECK AND
4412 STOP ^
4413 034166 254 04 0 00 034167 HALT .+1
4414 034167 320 00 0 00 034170 JUMP .+1
4415 ^;OF PIR STB, IOB PIRQ, PIO
4416 000002 ZZ=ZZ/2 ;THE PIRQ INPUT. INTERRUPT NOT
4417 001000 YY=YY/2 ;HAVE OCCURED. SEE PI2 PRINT
4418
4419 CLEAN^
4420 034170 7 000 20 0 00 634440 CONO 634440
4421 034171 7 004 20 0 00 010000 CONO PI,10000
4422 ^
4423 034172 7 004 20 0 00 002202 CONO PI,PIOSET+ACT+ZZ ;SET CHANNEL IOB SHOULD
4424 034173 7 004 30 0 00 001000 CONSZ PI,YY ;NOT HAVE DATA. CHECK AND
4425 STOP ^
4426 034174 254 04 0 00 034175 HALT .+1
4427 034175 320 00 0 00 034176 JUMP .+1
4428 ^;OF PIR STB, IOB PIRQ, PIO
4429 000001 ZZ=ZZ/2 ;THE PIRQ INPUT. INTERRUPT NOT
4430 000400 YY=YY/2 ;HAVE OCCURED. SEE PI2 PRINT
4431
4432 CLEAN^
4433 034176 7 000 20 0 00 634440 CONO 634440
4434 034177 7 004 20 0 00 010000 CONO PI,10000
4435 ^
4436 034200 7 004 20 0 00 002201 CONO PI,PIOSET+ACT+ZZ ;SET CHANNEL IOB SHOULD
4437 034201 7 004 30 0 00 000400 CONSZ PI,YY ;NOT HAVE DATA. CHECK AND
4438 STOP ^
4439 034202 254 04 0 00 034203 HALT .+1
4440 034203 320 00 0 00 034204 JUMP .+1
4441 ^;OF PIR STB, IOB PIRQ, PIO
4442 000000 ZZ=ZZ/2 ;THE PIRQ INPUT. INTERRUPT NOT
4443 000200 YY=YY/2 ;HAVE OCCURED. SEE PI2 PRINT
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 43
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0108
4444
4445 DEFINE CPINTR (A)< ;PROVIDE AN INTERRUPT TO PI
4446 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4447 ADD ;AND OTHER SOURCES
4448 CONO 42220+A>
4449
4450 DEFINE IOBRQ (A,B,C)<
4451 CLEAN ;CLEAR THE WORLD EXCEPT CP
4452 CPINTR A
4453 CONO PI,PIOSET+ACT+B ;TURN ON CK FLOP TO ALLOW
4454 CONSO PI,C ;INTERRUPT. CK INPUT TO PIR FLOP
4455 STOP
4456 >
4457
4458 000001 ZZ=1
4459 040000 YY=40000
4460 MOD108: REPEAT 7,< ;TEST FOR NO INTERRUPT FROM BUSS
4461 CLEAN ;CLEAR WORLD
4462 CPINTR ZZ ;INTERRUPT TO BUSS INPUT TO PIR
4463 CONSZ PI,YY ;PIO=0 EXPECT NO INTERRUPT. SEE
4464 STOP
4465 ZZ=ZZ+1 ;IOB PIRQ,PIO(1), ON PI2 PRINT
4466 YY=YY/2
4467 >
4468 ;TEST FOR NO INTERRUPT FROM BUSS
4469 CLEAN ^
4470 034204 7 000 20 0 00 634440 CONO 634440
4471 034205 7 004 20 0 00 010000 CONO PI,10000
4472 ^;CLEAR WORLD
4473 CPINTR ZZ ^ ;PROVIDE AN INTERRUPT TO PI
4474 034206 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4475 034207 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4476 034210 7 000 20 0 00 042221 CONO 42220+ZZ^;INTERRUPT TO BUSS INPUT TO PIR
4477 034211 7 004 30 0 00 040000 CONSZ PI,YY ;PIO=0 EXPECT NO INTERRUPT. SEE
4478 STOP^
4479 034212 254 04 0 00 034213 HALT .+1
4480 034213 320 00 0 00 034214 JUMP .+1
4481 ^
4482 000002 ZZ=ZZ+1 ;IOB PIRQ,PIO(1), ON PI2 PRINT
4483 020000 YY=YY/2
4484
4485 ;TEST FOR NO INTERRUPT FROM BUSS
4486 CLEAN ^
4487 034214 7 000 20 0 00 634440 CONO 634440
4488 034215 7 004 20 0 00 010000 CONO PI,10000
4489 ^;CLEAR WORLD
4490 CPINTR ZZ ^ ;PROVIDE AN INTERRUPT TO PI
4491 034216 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4492 034217 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4493 034220 7 000 20 0 00 042222 CONO 42220+ZZ^;INTERRUPT TO BUSS INPUT TO PIR
4494 034221 7 004 30 0 00 020000 CONSZ PI,YY ;PIO=0 EXPECT NO INTERRUPT. SEE
4495 STOP^
4496 034222 254 04 0 00 034223 HALT .+1
4497 034223 320 00 0 00 034224 JUMP .+1
4498 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 43-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0109
4499 000003 ZZ=ZZ+1 ;IOB PIRQ,PIO(1), ON PI2 PRINT
4500 010000 YY=YY/2
4501
4502 ;TEST FOR NO INTERRUPT FROM BUSS
4503 CLEAN ^
4504 034224 7 000 20 0 00 634440 CONO 634440
4505 034225 7 004 20 0 00 010000 CONO PI,10000
4506 ^;CLEAR WORLD
4507 CPINTR ZZ ^ ;PROVIDE AN INTERRUPT TO PI
4508 034226 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4509 034227 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4510 034230 7 000 20 0 00 042223 CONO 42220+ZZ^;INTERRUPT TO BUSS INPUT TO PIR
4511 034231 7 004 30 0 00 010000 CONSZ PI,YY ;PIO=0 EXPECT NO INTERRUPT. SEE
4512 STOP^
4513 034232 254 04 0 00 034233 HALT .+1
4514 034233 320 00 0 00 034234 JUMP .+1
4515 ^
4516 000004 ZZ=ZZ+1 ;IOB PIRQ,PIO(1), ON PI2 PRINT
4517 004000 YY=YY/2
4518
4519 ;TEST FOR NO INTERRUPT FROM BUSS
4520 CLEAN ^
4521 034234 7 000 20 0 00 634440 CONO 634440
4522 034235 7 004 20 0 00 010000 CONO PI,10000
4523 ^;CLEAR WORLD
4524 CPINTR ZZ ^ ;PROVIDE AN INTERRUPT TO PI
4525 034236 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4526 034237 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4527 034240 7 000 20 0 00 042224 CONO 42220+ZZ^;INTERRUPT TO BUSS INPUT TO PIR
4528 034241 7 004 30 0 00 004000 CONSZ PI,YY ;PIO=0 EXPECT NO INTERRUPT. SEE
4529 STOP^
4530 034242 254 04 0 00 034243 HALT .+1
4531 034243 320 00 0 00 034244 JUMP .+1
4532 ^
4533 000005 ZZ=ZZ+1 ;IOB PIRQ,PIO(1), ON PI2 PRINT
4534 002000 YY=YY/2
4535
4536 ;TEST FOR NO INTERRUPT FROM BUSS
4537 CLEAN ^
4538 034244 7 000 20 0 00 634440 CONO 634440
4539 034245 7 004 20 0 00 010000 CONO PI,10000
4540 ^;CLEAR WORLD
4541 CPINTR ZZ ^ ;PROVIDE AN INTERRUPT TO PI
4542 034246 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4543 034247 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4544 034250 7 000 20 0 00 042225 CONO 42220+ZZ^;INTERRUPT TO BUSS INPUT TO PIR
4545 034251 7 004 30 0 00 002000 CONSZ PI,YY ;PIO=0 EXPECT NO INTERRUPT. SEE
4546 STOP^
4547 034252 254 04 0 00 034253 HALT .+1
4548 034253 320 00 0 00 034254 JUMP .+1
4549 ^
4550 000006 ZZ=ZZ+1 ;IOB PIRQ,PIO(1), ON PI2 PRINT
4551 001000 YY=YY/2
4552
4553 ;TEST FOR NO INTERRUPT FROM BUSS
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 43-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0110
4554 CLEAN ^
4555 034254 7 000 20 0 00 634440 CONO 634440
4556 034255 7 004 20 0 00 010000 CONO PI,10000
4557 ^;CLEAR WORLD
4558 CPINTR ZZ ^ ;PROVIDE AN INTERRUPT TO PI
4559 034256 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4560 034257 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4561 034260 7 000 20 0 00 042226 CONO 42220+ZZ^;INTERRUPT TO BUSS INPUT TO PIR
4562 034261 7 004 30 0 00 001000 CONSZ PI,YY ;PIO=0 EXPECT NO INTERRUPT. SEE
4563 STOP^
4564 034262 254 04 0 00 034263 HALT .+1
4565 034263 320 00 0 00 034264 JUMP .+1
4566 ^
4567 000007 ZZ=ZZ+1 ;IOB PIRQ,PIO(1), ON PI2 PRINT
4568 000400 YY=YY/2
4569
4570 ;TEST FOR NO INTERRUPT FROM BUSS
4571 CLEAN ^
4572 034264 7 000 20 0 00 634440 CONO 634440
4573 034265 7 004 20 0 00 010000 CONO PI,10000
4574 ^;CLEAR WORLD
4575 CPINTR ZZ ^ ;PROVIDE AN INTERRUPT TO PI
4576 034266 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4577 034267 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4578 034270 7 000 20 0 00 042227 CONO 42220+ZZ^;INTERRUPT TO BUSS INPUT TO PIR
4579 034271 7 004 30 0 00 000400 CONSZ PI,YY ;PIO=0 EXPECT NO INTERRUPT. SEE
4580 STOP^
4581 034272 254 04 0 00 034273 HALT .+1
4582 034273 320 00 0 00 034274 JUMP .+1
4583 ^
4584 000010 ZZ=ZZ+1 ;IOB PIRQ,PIO(1), ON PI2 PRINT
4585 000200 YY=YY/2
4586
4587
4588 034274 MOD109: IOBRQ 1,100,77400^
4589 CLEAN ^
4590 034274 7 000 20 0 00 634440 CONO 634440
4591 034275 7 004 20 0 00 010000 CONO PI,10000
4592 ^;CLEAR THE WORLD EXCEPT CP
4593 CPINTR 1^ ;PROVIDE AN INTERRUPT TO PI
4594 034276 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4595 034277 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4596 034300 7 000 20 0 00 042221 CONO 42220+1^
4597 034301 7 004 20 0 00 002300 CONO PI,PIOSET+ACT+100 ;TURN ON CK FLOP TO ALLOW
4598 034302 7 004 34 0 00 077400 CONSO PI,77400 ;INTERRUPT. CK INPUT TO PIR FLOP
4599 STOP^
4600 034303 254 04 0 00 034304 HALT .+1
4601 034304 320 00 0 00 034305 JUMP .+1
4602 ^
4603 ^
4604 IOBRQ 2,40,77400^
4605 CLEAN ^
4606 034305 7 000 20 0 00 634440 CONO 634440
4607 034306 7 004 20 0 00 010000 CONO PI,10000
4608 ^;CLEAR THE WORLD EXCEPT CP
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 43-3
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0111
4609 CPINTR 2^ ;PROVIDE AN INTERRUPT TO PI
4610 034307 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4611 034310 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4612 034311 7 000 20 0 00 042222 CONO 42220+2^
4613 034312 7 004 20 0 00 002240 CONO PI,PIOSET+ACT+40 ;TURN ON CK FLOP TO ALLOW
4614 034313 7 004 34 0 00 077400 CONSO PI,77400 ;INTERRUPT. CK INPUT TO PIR FLOP
4615 STOP^
4616 034314 254 04 0 00 034315 HALT .+1
4617 034315 320 00 0 00 034316 JUMP .+1
4618 ^
4619 ^
4620 CHANEL MOD111^
4621 034316 336 00 0 00 036672 SKIPN PI7SYS#
4622 034317 254 00 0 00 034375 JRST MOD111
4623 ^
4624 034320 MOD110: IOBRQ 3,20,77400^
4625 CLEAN ^
4626 034320 7 000 20 0 00 634440 CONO 634440
4627 034321 7 004 20 0 00 010000 CONO PI,10000
4628 ^;CLEAR THE WORLD EXCEPT CP
4629 CPINTR 3^ ;PROVIDE AN INTERRUPT TO PI
4630 034322 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4631 034323 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4632 034324 7 000 20 0 00 042223 CONO 42220+3^
4633 034325 7 004 20 0 00 002220 CONO PI,PIOSET+ACT+20 ;TURN ON CK FLOP TO ALLOW
4634 034326 7 004 34 0 00 077400 CONSO PI,77400 ;INTERRUPT. CK INPUT TO PIR FLOP
4635 STOP^
4636 034327 254 04 0 00 034330 HALT .+1
4637 034330 320 00 0 00 034331 JUMP .+1
4638 ^
4639 ^
4640 IOBRQ 4,10,77400^
4641 CLEAN ^
4642 034331 7 000 20 0 00 634440 CONO 634440
4643 034332 7 004 20 0 00 010000 CONO PI,10000
4644 ^;CLEAR THE WORLD EXCEPT CP
4645 CPINTR 4^ ;PROVIDE AN INTERRUPT TO PI
4646 034333 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4647 034334 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4648 034335 7 000 20 0 00 042224 CONO 42220+4^
4649 034336 7 004 20 0 00 002210 CONO PI,PIOSET+ACT+10 ;TURN ON CK FLOP TO ALLOW
4650 034337 7 004 34 0 00 077400 CONSO PI,77400 ;INTERRUPT. CK INPUT TO PIR FLOP
4651 STOP^
4652 034340 254 04 0 00 034341 HALT .+1
4653 034341 320 00 0 00 034342 JUMP .+1
4654 ^
4655 ^
4656 IOBRQ 5,4,77400^
4657 CLEAN ^
4658 034342 7 000 20 0 00 634440 CONO 634440
4659 034343 7 004 20 0 00 010000 CONO PI,10000
4660 ^;CLEAR THE WORLD EXCEPT CP
4661 CPINTR 5^ ;PROVIDE AN INTERRUPT TO PI
4662 034344 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4663 034345 270 00 0 00 000000 ADD ;AND OTHER SOURCES
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 43-4
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0112
4664 034346 7 000 20 0 00 042225 CONO 42220+5^
4665 034347 7 004 20 0 00 002204 CONO PI,PIOSET+ACT+4 ;TURN ON CK FLOP TO ALLOW
4666 034350 7 004 34 0 00 077400 CONSO PI,77400 ;INTERRUPT. CK INPUT TO PIR FLOP
4667 STOP^
4668 034351 254 04 0 00 034352 HALT .+1
4669 034352 320 00 0 00 034353 JUMP .+1
4670 ^
4671 ^
4672 IOBRQ 6,2,77400^
4673 CLEAN ^
4674 034353 7 000 20 0 00 634440 CONO 634440
4675 034354 7 004 20 0 00 010000 CONO PI,10000
4676 ^;CLEAR THE WORLD EXCEPT CP
4677 CPINTR 6^ ;PROVIDE AN INTERRUPT TO PI
4678 034355 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4679 034356 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4680 034357 7 000 20 0 00 042226 CONO 42220+6^
4681 034360 7 004 20 0 00 002202 CONO PI,PIOSET+ACT+2 ;TURN ON CK FLOP TO ALLOW
4682 034361 7 004 34 0 00 077400 CONSO PI,77400 ;INTERRUPT. CK INPUT TO PIR FLOP
4683 STOP^
4684 034362 254 04 0 00 034363 HALT .+1
4685 034363 320 00 0 00 034364 JUMP .+1
4686 ^
4687 ^
4688 IOBRQ 7,1,77400^
4689 CLEAN ^
4690 034364 7 000 20 0 00 634440 CONO 634440
4691 034365 7 004 20 0 00 010000 CONO PI,10000
4692 ^;CLEAR THE WORLD EXCEPT CP
4693 CPINTR 7^ ;PROVIDE AN INTERRUPT TO PI
4694 034366 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4695 034367 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4696 034370 7 000 20 0 00 042227 CONO 42220+7^
4697 034371 7 004 20 0 00 002201 CONO PI,PIOSET+ACT+1 ;TURN ON CK FLOP TO ALLOW
4698 034372 7 004 34 0 00 077400 CONSO PI,77400 ;INTERRUPT. CK INPUT TO PIR FLOP
4699 STOP^
4700 034373 254 04 0 00 034374 HALT .+1
4701 034374 320 00 0 00 034375 JUMP .+1
4702 ^
4703 ^
4704 034375 MOD111: CLEAN^
4705 034375 7 000 20 0 00 634440 CONO 634440
4706 034376 7 004 20 0 00 010000 CONO PI,10000
4707 ^
4708
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 44
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0113
4709 034377 MOD115: CLEAN ^;TEST CP FOR NO INTERRUPT
4710
4711 034377 7 000 20 0 00 634440 CONO 634440
4712 034400 7 004 20 0 00 010000 CONO PI,10000
4713
4714 034401 7 000 20 0 00 000001 CONO 1 ;ASSIGN A CHANNEL TO
4715 034402 7 004 20 0 00 002377 CONO PI,PIG0 ;PROCESSOR, ENABLE PI. IF
4716 034403 7 004 30 0 00 077400 CONSZ PI,77400 ;INTERRUPT PROCESS PUT BIT ON PI BUSS
4717 STOP ^;CHECK TOB IPRQ ON CPA PRINT
4718
4719 034404 254 04 0 00 034405 HALT .+1
4720 034405 320 00 0 00 034406 JUMP .+1
4721
4722
4723 BLURB^
4724 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
4725 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
4726 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
4727 ;INSTRUCTION
4728 ^
4729
4730 034406 MOD116: CLEAN^
4731 034406 7 000 20 0 00 634440 CONO 634440
4732 034407 7 004 20 0 00 010000 CONO PI,10000
4733 ^
4734 CPINTR 1 ^;ENABLE PROCESSOR INTERRUPT
4735 ;PROVIDE AN INTERRUPT TO PI
4736 034410 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4737 034411 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4738 034412 7 000 20 0 00 042221 CONO 42220+1
4739 034413 400 00 0 00 000000 SETZ
4740 034414 7 004 20 0 00 002377 CONO PI,PIG0 ;PROCESSOR DECODE TO PI BUSS
4741 034415 302 00 0 00 000042 CAIE 42 ;FAIL, SEE TOP RIGHT OF CPU
4742 STOP ^;PRINT C(0)=ADDR OF XCT INST
4743
4744 034416 254 04 0 00 034417 HALT .+1
4745 034417 320 00 0 00 034420 JUMP .+1
4746
4747
4748 034420 MOD117: CLEAN^
4749 034420 7 000 20 0 00 634440 CONO 634440
4750 034421 7 004 20 0 00 010000 CONO PI,10000
4751 ^
4752 CPINTR 2 ^;ENABLE PROCESSOR INTERRUPT
4753 ;PROVIDE AN INTERRUPT TO PI
4754 034422 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4755 034423 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4756 034424 7 000 20 0 00 042222 CONO 42220+2
4757 034425 400 00 0 00 000000 SETZ ;WILL BE FILLED BY ADDR OF XCT INST
4758 034426 7 004 20 0 00 002377 CONO PI,PIG0 ;ACTIVATE PI SYS
4759 034427 302 00 0 00 000044 CAIE 44 ;EXPECT CHANNEL 2
4760 STOP ^;IF C(0)=0 NO INTERRUPT. SEE CPA PRINT
4761
4762 034430 254 04 0 00 034431 HALT .+1
4763 034431 320 00 0 00 034432 JUMP .+1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 44-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0114
4764
4765 CHANEL MOD120^
4766 034432 336 00 0 00 036672 SKIPN PI7SYS#
4767 034433 254 00 0 00 034507 JRST MOD120
4768 ^
4769 034434 MOD118: CLEAN^
4770 034434 7 000 20 0 00 634440 CONO 634440
4771 034435 7 004 20 0 00 010000 CONO PI,10000
4772 ^
4773 CPINTR 4 ^;ENABLE PROCESSOR INTERRUPT
4774 ;PROVIDE AN INTERRUPT TO PI
4775 034436 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4776 034437 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4777 034440 7 000 20 0 00 042224 CONO 42220+4
4778 034441 400 00 0 00 000000 SETZ ;WILL BE FILL BY ADDR OF XCT INST
4779 034442 7 004 20 0 00 002377 CONO PI,PIG0 ;ACT PI SYS
4780 034443 302 00 0 00 000050 CAIE 50 ;EXPECT CHANNEL 4
4781 STOP ^;IF C(0)=0 NO INTERRUPT. SEE CPA PRINT
4782
4783 034444 254 04 0 00 034445 HALT .+1
4784 034445 320 00 0 00 034446 JUMP .+1
4785
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 45
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0115
4786
4787 BLURB^
4788 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
4789 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
4790 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
4791 ;INSTRUCTION
4792 ^
4793 034446 MOD119: CLEAN ^;ENABLE AN INTERRUPT ON CHANNEL 1-7
4794
4795 034446 7 000 20 0 00 634440 CONO 634440
4796 034447 7 004 20 0 00 010000 CONO PI,10000
4797
4798 CPINTR 7 ^;CHECK PROCESSOR INTERRUPT
4799 ;PROVIDE AN INTERRUPT TO PI
4800 034450 205 00 0 00 400000 MOVSI 400000 ;BUS FROM PROCESSOR VIA ARROV
4801 034451 270 00 0 00 000000 ADD ;AND OTHER SOURCES
4802 034452 7 000 20 0 00 042227 CONO 42220+7
4803 034453 7 004 20 0 00 002377 CONO PI,PIG0
4804 034454 302 00 0 00 000056 CAIE 56
4805 STOP ^;CH 7 FAIL TO INTERRUPT
4806
4807 034455 254 04 0 00 034456 HALT .+1
4808 034456 320 00 0 00 034457 JUMP .+1
4809
4810 034457 7 000 20 0 00 000006 CONO 6
4811 034460 302 00 0 00 000054 CAIE 54
4812 STOP ^;CH 6 FAIL TO INTERRUPT
4813
4814 034461 254 04 0 00 034462 HALT .+1
4815 034462 320 00 0 00 034463 JUMP .+1
4816
4817 034463 7 000 20 0 00 000005 CONO 5
4818 034464 302 00 0 00 000052 CAIE 52
4819 STOP ^;CH 5 FAIL TO INTERRUPT
4820
4821 034465 254 04 0 00 034466 HALT .+1
4822 034466 320 00 0 00 034467 JUMP .+1
4823
4824 034467 7 000 20 0 00 000004 CONO 4
4825 034470 302 00 0 00 000050 CAIE 50
4826 STOP ^;CH 4 FAIL TO INTERRUPT
4827
4828 034471 254 04 0 00 034472 HALT .+1
4829 034472 320 00 0 00 034473 JUMP .+1
4830
4831 034473 7 000 20 0 00 000003 CONO 3
4832 034474 302 00 0 00 000046 CAIE 46
4833 STOP ^;CH 3 FAIL TO INTERRUPT
4834
4835 034475 254 04 0 00 034476 HALT .+1
4836 034476 320 00 0 00 034477 JUMP .+1
4837
4838 034477 7 000 20 0 00 000002 CONO 2
4839 034500 302 00 0 00 000044 CAIE 44
4840 STOP ^;CH 2 FAIL TO INTERRUPT
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 45-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0116
4841
4842 034501 254 04 0 00 034502 HALT .+1
4843 034502 320 00 0 00 034503 JUMP .+1
4844
4845 034503 7 000 20 0 00 000001 CONO 1
4846 034504 302 00 0 00 000042 CAIE 42
4847 STOP ^;CH 1 FAIL TO INTERRUPT
4848
4849 034505 254 04 0 00 034506 HALT .+1
4850 034506 320 00 0 00 034507 JUMP .+1
4851
4852 034507 MOD120: CLEAN^
4853 034507 7 000 20 0 00 634440 CONO 634440
4854 034510 7 004 20 0 00 010000 CONO PI,10000
4855 ^
4856
4857 BLURB^
4858 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
4859 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
4860 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
4861 ;INSTRUCTION
4862 ^
4863 034511 MOD121: CLEAN^
4864 034511 7 000 20 0 00 634440 CONO 634440
4865 034512 7 004 20 0 00 010000 CONO PI,10000
4866 ^
4867 034513 400 00 0 00 000000 SETZ ;C(0) MODIFIED IF INTERRUPT
4868 034514 7 004 20 0 00 002377 CONO PI,PIG0 ;ENABLE PI
4869 034515 255 10 0 00 034516 JFCL 10,.+1 ;CLEAR AROV
4870 034516 7 000 20 0 00 000021 CONO 20+1 ;ENABLE AROV CH1
4871 034517 332 00 0 00 000000 SKIPE ;INTERRUPT OCCURED SEE CPA PRINT
4872 STOP ^;CPA AROV EN(1) AND GATE TO PIRQ
4873
4874 034520 254 04 0 00 034521 HALT .+1
4875 034521 320 00 0 00 034522 JUMP .+1
4876
4877
4878 034522 MOD122: CLEAN^
4879 034522 7 000 20 0 00 634440 CONO 634440
4880 034523 7 004 20 0 00 010000 CONO PI,10000
4881 ^
4882 034524 400 00 0 00 000000 SETZ
4883 034525 7 004 20 0 00 002377 CONO PI,PIG0
4884 034526 205 00 0 00 400000 MOVSI 400000
4885 034527 270 00 0 00 000000 ADD ;SET AROV
4886 034530 7 000 20 0 00 000001 CONO 1 ;AROV CNT NO ENABLE
4887 034531 332 00 0 00 000000 SKIPE ;INT OCCURED SEE CPU PRINT
4888 STOP^
4889 034532 254 04 0 00 034533 HALT .+1
4890 034533 320 00 0 00 034534 JUMP .+1
4891 ^
4892
4893 034534 MOD123: CLEAN^
4894 034534 7 000 20 0 00 634440 CONO 634440
4895 034535 7 004 20 0 00 010000 CONO PI,10000
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 45-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0117
4896 ^
4897 034536 400 00 0 00 000000 SETZ
4898 034537 7 004 20 0 00 002377 CONO PI,PIG0 ;ENABLE PI
4899 034540 205 00 0 00 400000 MOVSI 400000 ;SET AROV
4900 034541 270 00 0 00 000000 ADD ;FLOP
4901 034542 7 000 20 0 00 000021 CONO 21 ;FLOP AND AROV (EN)
4902 034543 302 00 0 00 000042 CAIE 42 ;NO INTERRUPT CHECK AND GATE
4903 STOP ^;TO PIRQ ON CPU PRINT
4904
4905 034544 254 04 0 00 034545 HALT .+1
4906 034545 320 00 0 00 034546 JUMP .+1
4907
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 46
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0118
4908
4909 034546 MOD124: CLEAN^
4910 034546 7 000 20 0 00 634440 CONO 634440
4911 034547 7 004 20 0 00 010000 CONO PI,10000
4912 ^
4913 034550 400 00 0 00 000000 SETZ
4914 034551 7 004 20 0 00 002377 CONO PI,PIG0 ;ENABLE PI
4915 034552 7 000 34 0 00 001000 CONSO 1000
4916 034553 254 00 0 00 034552 JRST .-1 ;WAIT IF CLK=0
4917 034554 7 000 20 0 00 002001 CONO 2001 ;SET CLOCK ENABLE
4918 034555 302 00 0 00 000042 CAIE 42 ;SHOULD INTERRUPT TO LOC 42
4919 STOP ^;SEE CPU PRINT AND CLK ENABLE
4920
4921 034556 254 04 0 00 034557 HALT .+1
4922 034557 320 00 0 00 034560 JUMP .+1
4923
4924
4925 BLURB^
4926 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
4927 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
4928 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
4929 ;INSTRUCTION
4930 ^
4931 034560 MOD125: CLEAN^
4932 034560 7 000 20 0 00 634440 CONO 634440
4933 034561 7 004 20 0 00 010000 CONO PI,10000
4934 ^
4935 034562 7 004 20 0 00 002377 CONO PI,PIG0 ;ENABLE PISYS
4936 034563 7 000 20 0 00 000001 CONO 1 ;TRY TO SET NONEX MEM
4937 034564 400 00 0 00 000000 SETZ ;NO INTERRUPT SET
4938 034565 310 00 0 00 777777 CAM -1 ;NONEX INPUT TO
4939 034566 302 00 0 00 000042 CAIE 42 ;PIRQ ON CPA
4940 STOP ^;PRINT
4941
4942 034567 254 04 0 00 034570 HALT .+1
4943 034570 320 00 0 00 034571 JUMP .+1
4944
4945
4946 034571 MOD127: CLEAN^
4947 034571 7 000 20 0 00 634440 CONO 634440
4948 034572 7 004 20 0 00 010000 CONO PI,10000
4949 ^
4950 034573 7 004 20 0 00 002377 CONO PI,PIG0 ;ENABLE PI
4951 034574 7 000 20 0 00 000001 CONO 1 ;CPU TO CHANNEL 1
4952 034575 474 00 0 00 000000 SETO ;SET THE
4953 034576 260 00 0 00 034577 PUSHJ .+1 ;PDL FLAG
4954 034577 302 00 0 00 000042 CAIE 42 ;IT FAILED TO INTERRUPT
4955 STOP ^;SEE ITS INPUT TO PIRQ ON CPA PRINT
4956
4957 034600 254 04 0 00 034601 HALT .+1
4958 034601 320 00 0 00 034602 JUMP .+1
4959
4960
4961 034602 MOD128: CLEAN^
4962 034602 7 000 20 0 00 634440 CONO 634440
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 46-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0119
4963 034603 7 004 20 0 00 010000 CONO PI,10000
4964 ^
4965 034604 7 004 20 0 00 002377 CONO PI,PIG0 ;ENABLE PI
4966 034605 7 000 20 0 00 000001 CONO 1
4967 034606 400 00 0 00 000000 SETZ
4968 034607 7 004 20 0 00 040000 CONO PI,40000 ;ENABLE PAR
4969 034610 332 00 0 00 000000 SKIPE ;INTERRUPT OCCURED
4970 STOP ^;CHECK CPU PIRQ INPUT
4971
4972 034611 254 04 0 00 034612 HALT .+1
4973 034612 320 00 0 00 034613 JUMP .+1
4974
4975
4976 034613 MOD129: CLEAN^
4977 034613 7 000 20 0 00 634440 CONO 634440
4978 034614 7 004 20 0 00 010000 CONO PI,10000
4979 ^
4980 034615 255 01 0 00 034616 JFCL 1,.+1 ;CLEAR FOV
4981 034616 7 004 20 0 00 002377 CONO PI,PIG0 ;ENABLE PI
4982 034617 400 00 0 00 000000 SETZ
4983 034620 7 004 20 0 00 000201 CONO PI,201 ;FOV ENABLE. INTERRUPT
4984 034621 332 00 0 00 000000 SKIPE ;OCCURED CK PIRQ INPUTS
4985 STOP ^;ON CPU PRINT
4986
4987 034622 254 04 0 00 034623 HALT .+1
4988 034623 320 00 0 00 034624 JUMP .+1
4989
4990
4991 034624 MOD130: CLEAN^
4992 034624 7 000 20 0 00 634440 CONO 634440
4993 034625 7 004 20 0 00 010000 CONO PI,10000
4994 ^
4995 SFLAG 40000 ^;SET FOV FLAG
4996
4997 034626 205 01 0 00 040000 MOVSI 1,40000
4998 034627 255 17 0 00 034630 JFCL 17,.+1
4999 034630 254 02 0 01 034631 JRST 2,.+1(1)
5000
5001 034631 400 00 0 00 000000 SETZ
5002 034632 7 004 20 0 00 002377 CONO PI,PIG0 ;ENABLE PI
5003 034633 7 000 20 0 00 000001 CONO 1 ;CH1 TO PROCESSOR
5004 034634 332 00 0 00 000000 SKIPE ;FOV ENABLE FAIL TO PREVENT
5005 STOP ^;INTERRUPT SEE CPU PRINT
5006
5007 034635 254 04 0 00 034636 HALT .+1
5008 034636 320 00 0 00 034637 JUMP .+1
5009
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 47
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0120
5010 BLURB^
5011 ;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
5012 ;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
5013 ;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
5014 ;INSTRUCTION
5015 ^
5016 034637 MOD131: CLEAN^
5017 034637 7 000 20 0 00 634440 CONO 634440
5018 034640 7 004 20 0 00 010000 CONO PI,10000
5019 ^
5020 SFLAG 40000 ^;SET FOV FLAG
5021
5022 034641 205 01 0 00 040000 MOVSI 1,40000
5023 034642 255 17 0 00 034643 JFCL 17,.+1
5024 034643 254 02 0 01 034644 JRST 2,.+1(1)
5025
5026 034644 7 004 20 0 00 002377 CONO PI,PIG0 ;ENABLE PI
5027 034645 400 00 0 00 000000 SETZ
5028 034646 7 000 20 0 00 000201 CONO 201 ;ENABLE FOV+CH1
5029 034647 302 00 0 00 000042 CAIE 42 ;FAIL TO INTERRUPT SEE
5030 STOP ^;PIRQ INPUTS ON CPA PRINT
5031
5032 034650 254 04 0 00 034651 HALT .+1
5033 034651 320 00 0 00 034652 JUMP .+1
5034
5035 034652 MOD132: CLEAN^
5036 034652 7 000 20 0 00 634440 CONO 634440
5037 034653 7 004 20 0 00 010000 CONO PI,10000
5038 ^
5039 034654 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;INTERRUPT
5040 REPEAT ^D10,
5041 < JRST .+1>
5042 034655 254 00 0 00 034656 JRST .+1
5043 034656 254 00 0 00 034657 JRST .+1
5044 034657 254 00 0 00 034660 JRST .+1
5045 034660 254 00 0 00 034661 JRST .+1
5046 034661 254 00 0 00 034662 JRST .+1
5047 034662 254 00 0 00 034663 JRST .+1
5048 034663 254 00 0 00 034664 JRST .+1
5049 034664 254 00 0 00 034665 JRST .+1
5050 034665 254 00 0 00 034666 JRST .+1
5051 034666 254 00 0 00 034667 JRST .+1
5052 034667 7 004 34 0 00 040000 CONSO PI,40000 ;PIH WAS RESET BY JRST (NO BIT 9)
5053 STOP ^;SEE PI RESTORE LOGIC ON PI1 PRINT
5054
5055 034670 254 04 0 00 034671 HALT .+1
5056 034671 320 00 0 00 034672 JUMP .+1
5057
5058 034672 MOD133: CLEAN^
5059 034672 7 000 20 0 00 634440 CONO 634440
5060 034673 7 004 20 0 00 010000 CONO PI,10000
5061 ^
5062 034674 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;INTERRUPT
5063 REPEAT ^D10,
5064 < CAI 10,0>
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 47-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0121
5065 034675 300 10 0 00 000000 CAI 10,0
5066 034676 300 10 0 00 000000 CAI 10,0
5067 034677 300 10 0 00 000000 CAI 10,0
5068 034700 300 10 0 00 000000 CAI 10,0
5069 034701 300 10 0 00 000000 CAI 10,0
5070 034702 300 10 0 00 000000 CAI 10,0
5071 034703 300 10 0 00 000000 CAI 10,0
5072 034704 300 10 0 00 000000 CAI 10,0
5073 034705 300 10 0 00 000000 CAI 10,0
5074 034706 300 10 0 00 000000 CAI 10,0
5075 034707 7 004 34 0 00 040000 CONSO PI,40000 ;PIH WAS RESET BY BIT9(NO JRST)
5076 STOP ^;SEE PI RESTORE LOGIC ON PI1 PRINT
5077
5078 034710 254 04 0 00 034711 HALT .+1
5079 034711 320 00 0 00 034712 JUMP .+1
5080
5081 034712 MOD134: CLEAN ^;TEST PI CYC(1) INPUT TO PI OV
5082
5083 034712 7 000 20 0 00 634440 CONO 634440
5084 034713 7 004 20 0 00 010000 CONO PI,10000
5085
5086 034714 474 00 0 00 000000 SETO ;PROVIDE ALL CONDITIONS TO SET
5087 034715 7 000 00 0 00 000000 BLKI ;PI OV EXCEPT PI CYC(1)
5088 034716 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;IF C(0)=43 REPLACE THE B137
5089 034717 302 00 0 00 000042 CAIE 42 ;AND GATE TO PI OV SEE
5090 STOP ^;PI1 PRINT
5091
5092 034720 254 04 0 00 034721 HALT .+1
5093 034721 320 00 0 00 034722 JUMP .+1
5094
5095 034722 MOD135: CLEAN^
5096 034722 7 000 20 0 00 634440 CONO 634440
5097 034723 7 004 20 0 00 010000 CONO PI,10000
5098 ^
5099 034724 200 00 0 00 036477 MOVE [BLKO ME,0] ;PUT A BLKI IN
5100 034725 202 00 0 00 000042 MOVEM 42 ;LOC 42
5101 034726 400 00 0 00 000000 SETZ ;PROVIDE FOR NO OVERFLOW
5102 034727 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;INTERRUPT. IF C(0)=43
5103 034730 306 00 0 00 000043 CAIN 43 ;AND GATE TO PIOU THE AD
5104 STOP ^;CRY0(1) INPUT FAILED. SEE PI1 PRINT
5105
5106 034731 254 04 0 00 034732 HALT .+1
5107 034732 320 00 0 00 034733 JUMP .+1
5108
5109 034733 254 00 0 00 034734 JRST MOD136
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 48
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0122
5110 ;HOLE LEFT FOR RELOCATION TEST
5111
5112
5113 034734 MOD136: CLEAN^
5114 034734 7 000 20 0 00 634440 CONO 634440
5115 034735 7 004 20 0 00 010000 CONO PI,10000
5116 ^
5117 034736 200 00 0 00 036500 MOVE [AOS] ;PUT AN AOS IN LOC 42
5118 034737 202 00 0 00 000042 MOVEM 42 ;PROVIDE ALL INPUTS TO
5119 034740 474 00 0 00 000000 SETO ;PIOU EXCEPT IOT BLK
5120 034741 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;CANT TEST GATE
5121 034742 332 00 0 00 000000 SKIPE ;THINK UNNECESSARY
5122 STOP ^;BUT DO IT ANYWAY
5123
5124 034743 254 04 0 00 034744 HALT .+1
5125 034744 320 00 0 00 034745 JUMP .+1
5126
5127
5128 034745 MOD137: CLEAN^
5129 034745 7 000 20 0 00 634440 CONO 634440
5130 034746 7 004 20 0 00 010000 CONO PI,10000
5131 ^
5132 034747 200 00 0 00 036477 MOVE [BLKO ME,0] ;SETUP A BLKO TO SET
5133 034750 202 00 0 00 000042 MOVEM 42 ;THE PI OV FLOP
5134 034751 474 00 0 00 000000 SETO
5135 034752 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;CAUSE FIRST INTERRUPT
5136 034753 400 00 0 00 000000 SETZ ;PI SHOULD SET AT THIS
5137 CLEAN ^;TIME, IF PI OV IS NOT
5138
5139 034754 7 000 20 0 00 634440 CONO 634440
5140 034755 7 004 20 0 00 010000 CONO PI,10000
5141
5142 034756 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;CLEARED AT ST1 NEXT INTERRUPT
5143 034757 306 00 0 00 000043 CAIN 43 ;WILL OCCUR AT LOC 43
5144 STOP ^;SET PI 1 PRINT.
5145
5146 034760 254 04 0 00 034761 HALT .+1
5147 034761 320 00 0 00 034762 JUMP .+1
5148
5149
5150 034762 MOD140: CLEAN^
5151 034762 7 000 20 0 00 634440 CONO 634440
5152 034763 7 004 20 0 00 010000 CONO PI,10000
5153 ^
5154 034764 200 00 0 00 036477 MOVE [BLKO ME,0] ;PUT A BLKO IN LOC 42
5155 034765 202 00 0 00 000042 MOVEM 42 ;WHEN EXECUTED THIS SHOULD
5156 034766 474 00 0 00 000000 SETO ;SET PIOV. IF PI OV IS NOT
5157 034767 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;CONNECTED TO MA REGISTER
5158 034770 405 00 0 00 777777 ANDI -1 ;42 WILL BE EXECUTED TWICE
5159 034771 306 00 0 00 000001 CAIN 1 ;SEE MA 35 SET AT IT0
5160 STOP ^;AND PI OV(1) ON MA1 PRINT
5161
5162 034772 254 04 0 00 034773 HALT .+1
5163 034773 320 00 0 00 034774 JUMP .+1
5164
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 48-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0123
5165
5166 034774 MOD141: CLEAN ^;CHECK BLKO NOT RESET PIH
5167
5168 034774 7 000 20 0 00 634440 CONO 634440
5169 034775 7 004 20 0 00 010000 CONO PI,10000
5170
5171 034776 200 00 0 00 036501 MOVE [MOVEI 42] ;RESTORE LOC 42
5172 034777 202 00 0 00 000042 MOVEM 42 ;TO MOVEI
5173 035000 7 004 20 0 00 004300 CONO PI,PIREQ+ACT+100 ;SET PIH VIA INTERRUPT
5174 035001 400 00 0 00 000000 SETZ ;IF PIH1(0) THEN PI CYC(1)
5175 035002 7 774 10 0 00 000000 BLKO ME,0 ;INPUT TO PI RESTORE FAILED
5176
5177 035003 300 00 0 00 000000 CAI
5178 035004 7 004 34 0 00 040000 CONSO PI,40000 ;SET PI1 PRINT
5179 STOP^
5180 035005 254 04 0 00 035006 HALT .+1
5181 035006 320 00 0 00 035007 JUMP .+1
5182 ^
5183
5184 035007 MOD142: CLEAN ^;CHECK PI RESTORE LOGIC
5185
5186 035007 7 000 20 0 00 634440 CONO 634440
5187 035010 7 004 20 0 00 010000 CONO PI,10000
5188
5189 035011 200 00 0 00 036502 MOVE [DATAO ME,0] ;DATAO AND PIOV SHOULD PRODUCE
5190 035012 202 00 0 00 000042 MOVEM 42 ;PI RESTORE. CHECK THIS INPUT
5191 035013 7 004 20 0 00 004300 CONO PI,PIREQ+ACT+100 ;TO PI RESTORE ON PI1 PRINT
5192 035014 7 004 30 0 00 040000 CONSZ PI,40000 ;ALSO CHECK PI CYC(1) INPUT
5193 STOP ^;ON SAME PAGE
5194
5195 035015 254 04 0 00 035016 HALT .+1
5196 035016 320 00 0 00 035017 JUMP .+1
5197
5198
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 49
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0124
5199 035017 MOD143: CLEAN^
5200 035017 7 000 20 0 00 634440 CONO 634440
5201 035020 7 004 20 0 00 010000 CONO PI,10000
5202 ^
5203 035021 200 00 0 00 036503 MOVE [DATAI ME,0] ;IF MACHINE HANGS OR
5204 035022 202 00 0 00 000042 MOVEM 42 ;PIH(1) CHECK DATAO/DATAI
5205 035023 7 004 20 0 00 004300 CONO PI,PIREQ+ACT+100 ;INPUT TO PRIORITY SYSTEM
5206 035024 7 004 30 0 00 040000 CONSZ PI,40000 ;SEE PI1 PRINT (LOWER LEFT)
5207 STOP^
5208 035025 254 04 0 00 035026 HALT .+1
5209 035026 320 00 0 00 035027 JUMP .+1
5210 ^
5211
5212 035027 MOD144: CLEAN^
5213 035027 7 000 20 0 00 634440 CONO 634440
5214 035030 7 004 20 0 00 010000 CONO PI,10000
5215 ^
5216 035031 200 00 0 00 036477 MOVE [BLKO ME,0] ;INTERRUPT TO A BLKO WHOS
5217 035032 202 00 0 00 000042 MOVEM 42 ;POINTER SHOULD SET PIOV. THE
5218 035033 474 00 0 00 000000 SETO ;INST AT LOC 43 A (MOVEI 43)
5219 035034 7 004 20 0 00 004300 CONO PI,PIREQ+ACT+100 ;SHOULD BE EXECUTED. CHECK
5220 035035 7 004 34 0 00 040000 CONSO PI,40000 ;PI OV AND ASSOCIATED LOGIC
5221 STOP ^;ON PI1 PRINT
5222
5223 035036 254 04 0 00 035037 HALT .+1
5224 035037 320 00 0 00 035040 JUMP .+1
5225
5226
5227 035040 MOD145: CLEAN^
5228 035040 7 000 20 0 00 634440 CONO 634440
5229 035041 7 004 20 0 00 010000 CONO PI,10000
5230 ^
5231 035042 200 00 0 00 036477 MOVE [BLKO ME,0] ;INTERRUPT TO A BLKO WHOS
5232 035043 202 00 0 00 000042 MOVEM 42 ;POINTER SHOULD SET PIOV. THE
5233 035044 474 00 0 00 000000 SETO ;INST AT LOC 43 A (MOVEI 43)
5234 035045 7 004 20 0 00 004300 CONO PI,PIREQ+ACT+100 ;SHOULD BE EXECUTED. CHECK
5235 035046 302 00 0 00 000043 CAIE 43 ;CHECK PI OV INPUT TO MA35
5236 STOP ^;SET ON MA1 PRINT
5237
5238 035047 254 04 0 00 035050 HALT .+1
5239 035050 320 00 0 00 035051 JUMP .+1
5240
5241
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 50
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0125
5242 035051 MOD147: CLEAN ^;TEST PI CYC(0) GET TO PIR STB
5243
5244 035051 7 000 20 0 00 634440 CONO 634440
5245 035052 7 004 20 0 00 010000 CONO PI,10000
5246
5247 035053 200 00 0 00 036477 MOVE [BLKO ME,0] ;PUT A BLKO WITH POINTER TO
5248 035054 202 00 0 00 000044 MOVEM 44 ;SET PI OV IN CHANNEL 2 BLKO
5249 035055 200 00 0 00 036504 MOVE [MOVEI 1,42] ;WILL SET NONEX MEM CAUSING
5250 035056 202 00 0 00 000042 MOVEM 42 ;INTERRUPT ON CH1 THE INSTRUCTION
5251 035057 561 00 0 00 777776 HRROI -2 ;AT LOC 45 MUST BE EXECUTED
5252 035060 7 004 20 0 00 002100 CONO PI,PIOSET+100
5253 035061 7 000 20 0 00 000001 CONO 1 ;OR PI CYC(0) GATE TO PIR STB FAILED
5254 035062 7 004 20 0 00 004240 CONO PI,PIREQ+ACT+40
5255 035063 302 00 0 00 000045 CAIE 45 ;AND OF MC RQ PULSE PICYC(0)
5256 STOP^
5257 035064 254 04 0 00 035065 HALT .+1
5258 035065 320 00 0 00 035066 JUMP .+1
5259 ^
5260 035066 302 01 0 00 000042 CAIE 1,42
5261 STOP ^;NONEX FAIL TO INTERRUPT CH1
5262
5263 035067 254 04 0 00 035070 HALT .+1
5264 035070 320 00 0 00 035071 JUMP .+1
5265
5266
5267 035071 MOD148: CLEAN ^;PUT A SKIPA IN THE
5268
5269 035071 7 000 20 0 00 634440 CONO 634440
5270 035072 7 004 20 0 00 010000 CONO PI,10000
5271
5272 035073 200 00 0 00 036505 MOVE [SKIPA] ;INTERRUPT SPOT
5273 035074 202 00 0 00 000042 MOVEM 42
5274 035075 7 004 20 0 00 004300 CONO PI,PIREQ+ACT+100
5275 STOP^
5276 035076 254 04 0 00 035077 HALT .+1
5277 035077 320 00 0 00 035100 JUMP .+1
5278 ^
5279
5280 035100 MOD149: CLEAN^
5281 035100 7 000 20 0 00 634440 CONO 634440
5282 035101 7 004 20 0 00 010000 CONO PI,10000
5283 ^
5284 035102 200 00 0 00 036506 MOVE [JSR .+4]
5285 035103 202 00 0 00 000042 MOVEM 42
5286 035104 7 004 20 0 00 004300 CONO PI,PIREQ+ACT+100
5287 STOP^
5288 035105 254 04 0 00 035106 HALT .+1
5289 035106 320 00 0 00 035107 JUMP .+1
5290 ^
5291 035107 000000 000000 0
5292
5293 035110 MOD150: CLEAN ^;INTERRUPT TO A PUSHJ
5294
5295 035110 7 000 20 0 00 634440 CONO 634440
5296 035111 7 004 20 0 00 010000 CONO PI,10000
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 50-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0126
5297
5298 035112 200 00 0 00 036507 MOVE [PUSHJ .+4]
5299 035113 202 00 0 00 000042 MOVEM 42
5300 035114 205 00 0 00 777777 MOVSI -1
5301 035115 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100
5302 035116 405 01 0 00 777777 ANDI 1,-1
5303 035117 302 01 0 00 035116 CAIE 1,.-1
5304 STOP ^;PC STORED INCORRECTLY
5305
5306 035120 254 04 0 00 035121 HALT .+1
5307 035121 320 00 0 00 035122 JUMP .+1
5308
5309 035122 302 00 0 00 000001 CAIE 1 ;THE PUSHJ
5310 STOP ^;POINTER WORD IN ERROR
5311
5312 035123 254 04 0 00 035124 HALT .+1
5313 035124 320 00 0 00 035125 JUMP .+1
5314
5315 CLEAN^
5316 035125 7 000 20 0 00 634440 CONO 634440
5317 035126 7 004 20 0 00 010000 CONO PI,10000
5318 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 51
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0127
5319 035127 MOD151: CLEAN^
5320 035127 7 000 20 0 00 634440 CONO 634440
5321 035130 7 004 20 0 00 010000 CONO PI,10000
5322 ^
5323 035131 200 00 0 00 036510 MOVE [MOVEI 43] ;TEST CLEAR MA ON INTERRUPT
5324 035132 202 00 0 00 000043 MOVEM 43
5325 035133 200 00 0 00 036511 MOVE [BLKO ME,4]
5326 035134 202 00 0 00 000042 MOVEM 42
5327 035135 477 00 0 00 000004 SETOB 4
5328 035136 541 04 0 00 000004 HRRI 4,4
5329 035137 7 004 20 0 00 004300 CONO PI,PIREQ+ACT+100
5330 035140 302 00 0 00 000043 CAIE 43
5331 STOP^
5332 035141 254 04 0 00 035142 HALT .+1
5333 035142 320 00 0 00 035143 JUMP .+1
5334 ^
5335
5336
5337 035143 402 00 0 00 000060 MOD152: SETZM 60 ;TEST TRAP TO 60
5338 035144 200 00 0 00 036512 MOVE [JSP MOD153] ;GO HERE IF TRAP TO 40
5339 035145 202 00 0 00 000041 MOVEM 41 ;ERROR
5340 035146 200 00 0 00 036513 MOVE [JSP MOD153+1]
5341 035147 202 00 0 00 000061 MOVEM 61 ;OK TRAP
5342 035150 100000 000000 XWD 100000,0 ;OP CODE 100-127
5343 STOP^
5344 035151 254 04 0 00 035152 HALT .+1
5345 035152 320 00 0 00 035153 JUMP .+1
5346 ^
5347 035153 MOD153: STOP^
5348 035153 254 04 0 00 035154 HALT .+1
5349 035154 320 00 0 00 035155 JUMP .+1
5350 ^
5351 035155 336 00 0 00 000060 SKIPN 60 ;NOTHING STORED IN C(60)
5352 STOP^
5353 035156 254 04 0 00 035157 HALT .+1
5354 035157 320 00 0 00 035160 JUMP .+1
5355 ^
5356
5357 035160 336 00 0 00 036674 MOD154: SKIPN USMOD# ;TEST RELOC IF SPECIFIED
5358 035161 254 00 0 00 036303 JRST MOD195
5359
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 52
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0128
5360 DEFINE UMON<
5361 CONO 634440 ;PREPARE TO TURN ON USER
5362 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5363 DATAO [XWD -1,0]>
5364
5365 DEFINE UMOFF<
5366 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5367 MOVEM 41 ;UUO. PROG RETURNS TO END
5368 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5369 >
5370
5371 DEFINE HOLD<
5372 JUMPA . ;MACH ERROR. HALT MAY TRAP
5373 JUMP .+1 ;SO WAITING FOR OPERATOR
5374 >
5375
5376 035162 254 02 1 00 036514 MOD160: JRST 2,@[XWD 0,.+1] ;CLEAR EX IOT USER, IF LIGHT
5377 035163 265 00 0 00 035164 JSP .+1 ;OUT FLAG TRANSFER TO AR FAIL
5378
5379 035164 603 00 0 00 004000 TLNE UMIOT ;BIT 6. OR FLOP FAIL TO CLEAR
5380 STOP^
5381 035165 254 04 0 00 035166 HALT .+1
5382 035166 320 00 0 00 035167 JUMP .+1
5383 ^
5384
5385 035167 254 02 1 00 036515 JRST 2,@[XWD UMIOT,.+1] ;SET THEN CLEAR EX IOT USER
5386 035170 254 02 1 00 036516 JRST 2,@[XWD 0,.+1] ;CK AND GATE ARF FLAGS FM BR (J),
5387 035171 265 00 0 00 035172 JSP .+1 ;BR6(0) FAIL TO CLEAR
5388
5389 035172 603 00 0 00 004000 TLNE UMIOT ;EX IOT USER ON EX PRINT
5390 STOP^
5391 035173 254 04 0 00 035174 HALT .+1
5392 035174 320 00 0 00 035175 JUMP .+1
5393 ^
5394
5395 035175 254 02 1 00 036517 JRST 2,@[XWD 0,.+1] ;CLEAR THEN SET EX IOT USER
5396 035176 254 02 1 00 036520 JRST 2,@[XWD UMIOT,.+1] ;IF LIGHT=1 FLAGS TO AR FAIL
5397 035177 265 00 0 00 035200 JSP .+1 ;IF LIGHT=0 FLOP FAIL TO SET. CK
5398 035200 607 00 0 00 004000 TLNN UMIOT ;BR6(1), EX USER(0), ARF FLAGS(J), EX PRINT
5399 STOP^
5400 035201 254 04 0 00 035202 HALT .+1
5401 035202 320 00 0 00 035203 JUMP .+1
5402 ^
5403
5404 035203 254 02 1 00 036521 JRST 2,@[XWD 0,.+1] ;CLEAR USER. IOB1 PRINT
5405 035204 7 000 30 0 00 100000 CONSZ 1B20 ;READ PROCESSOR STATUS
5406 STOP^
5407 035205 254 04 0 00 035206 HALT .+1
5408 035206 320 00 0 00 035207 JUMP .+1
5409 ^
5410
5411 035207 254 02 1 00 036522 JRST 2,@[XWD UMIOT,.+1] ;SET USER IOB1 PRINT
5412 035210 7 000 34 0 00 100000 CONSO 1B20 ;CPA STATUS FAIL
5413 STOP^
5414 035211 254 04 0 00 035212 HALT .+1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 52-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0129
5415 035212 320 00 0 00 035213 JUMP .+1
5416 ^
5417
5418 035213 MOD161: UMOFF^
5419 035213 200 00 0 00 036523 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5420 035214 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5421 035215 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5422 ^
5423 035216 603 00 0 00 010000 TLNE USERF ;FLAGS TO AR BIT5 (USER MODE) FAIL
5424 HOLD^
5425 035217 324 00 0 00 035217 JUMPA . ;MACH ERROR. HALT MAY TRAP
5426 035220 320 00 0 00 035221 JUMP .+1 ;SO WAITING FOR OPERATOR
5427 ^
5428
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 53
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0130
5429 ;TRY TO TURN ON USER MODE VIA RESTORE FLAGS THEN
5430 ;TURN OFF VIA UU0. SEE EX PRINT
5431
5432 035221 200 00 0 00 036524 MOD162: MOVE [JSP MD162A]
5433 035222 202 00 0 00 000041 MOVEM 41
5434 UMON^
5435 035223 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5436 035224 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5437 035225 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5438 035226 254 02 1 00 036526 JRST 2,@[XWD USERF+UMIOT,MD162B] ;ALSO PRIVI IO
5439
5440 035227 MD162A: HOLD ^ ;TRAP HERE, NO MEMORY ACCESS, USER MODE
5441
5442 035227 324 00 0 00 035227 JUMPA . ;MACH ERROR. HALT MAY TRAP
5443 035230 320 00 0 00 035231 JUMP .+1 ;SO WAITING FOR OPERATOR
5444
5445
5446 035231 MD162B: UMOFF^
5447 035231 200 00 0 00 036527 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5448 035232 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5449 035233 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5450 ^
5451 035234 607 00 0 00 010000 TLNN USERF ;JSP STORED FLAGS IN C(0)
5452 HOLD^
5453 035235 324 00 0 00 035235 JUMPA . ;MACH ERROR. HALT MAY TRAP
5454 035236 320 00 0 00 035237 JUMP .+1 ;SO WAITING FOR OPERATOR
5455 ^
5456
5457 ;TEST UUO TURN OFF OF USER MODE. PRIVI I/O ALLOWS
5458 ;IOT TO OCCUR IN CASE USER STILL ON. SEE EX PRINT
5459
5460 035237 MOD163: UMON^
5461 035237 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5462 035240 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5463 035241 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5464 035242 254 02 1 00 036530 JRST 2,@[XWD USERF+UMIOT,.+1]
5465 UMOFF^
5466 035243 200 00 0 00 036531 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5467 035244 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5468 035245 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5469 ^
5470 UMOFF^
5471 035246 200 00 0 00 036532 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5472 035247 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5473 035250 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5474 ^
5475 035251 603 00 0 00 010000 TLNE USERF ;FLAGS STORED VIA JSP AT 41
5476 HOLD^
5477 035252 324 00 0 00 035252 JUMPA . ;MACH ERROR. HALT MAY TRAP
5478 035253 320 00 0 00 035254 JUMP .+1 ;SO WAITING FOR OPERATOR
5479 ^
5480
5481 035254 MOD164: UMON^
5482 035254 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5483 035255 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 53-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0131
5484 035256 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5485 035257 254 02 1 00 036533 JRST 2,@[XWD USERF+UMIOT,.+1] ;SET USER+PRIV I/O
5486 035260 200 00 0 00 036534 MOVE [JUMPA .+3] ;SET RETURN FOR THE
5487 035261 202 00 0 00 000041 MOVEM 41 ;UUO. EX ILL OP SHOULD
5488 035262 040000 000000 XWD 40000,0 ;NOT TURN OFF USER FLAG
5489 035263 265 00 0 00 035264 JSP .+1 ;BECAUSE AR FM PC(J)(ET0)
5490 035264 607 00 0 00 010000 TLNN USERF ;PULSE IF NOT PRESENT. SEE EX
5491 HOLD^
5492 035265 324 00 0 00 035265 JUMPA . ;MACH ERROR. HALT MAY TRAP
5493 035266 320 00 0 00 035267 JUMP .+1 ;SO WAITING FOR OPERATOR
5494 ^
5495 UMOFF^
5496 035267 200 00 0 00 036535 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5497 035270 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5498 035271 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5499 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 54
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0132
5500
5501 ;PERFORM A UUO. THE PURPOSE OF THIS IS TO SET THE
5502 ;EX ILL OP FLOP. THE FLOP SHOULD BE CLEARED BY THE
5503 ;JSP AT 41. IF HOWEVER THIS DID NOT OCCUR, ANY
5504 ;STORE PC INSTRUCTION IN USER MODE WOULD CLEAR
5505 ;USER MODE. THIS TEST THEREFORE TEST THE CLEAR
5506 ;TO EX ILL OP VIA AR FM PC(J) (ET0) ON EX PRINT
5507
5508 035272 MOD165: UMOFF^
5509 035272 200 00 0 00 036536 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5510 035273 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5511 035274 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5512 ^
5513 UMON^
5514 035275 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5515 035276 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5516 035277 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5517 035300 254 02 1 00 036537 JRST 2,@[XWD USERF+UMIOT,.+1]
5518 035301 265 00 0 00 035302 JSP .+1 ;DONT FORGET FAIL TO CLEAR
5519 035302 265 00 0 00 035303 JSP .+1 ;MAY BE PHONEY SET EX ILL OP
5520 035303 607 00 0 00 010000 TLNN USERF ;OR PHONEY CLEAR EX-USER
5521 HOLD^
5522 035304 324 00 0 00 035304 JUMPA . ;MACH ERROR. HALT MAY TRAP
5523 035305 320 00 0 00 035306 JUMP .+1 ;SO WAITING FOR OPERATOR
5524 ^
5525 UMOFF^
5526 035306 200 00 0 00 036540 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5527 035307 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5528 035310 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5529 ^
5530
5531 035311 MOD166: UMOFF^
5532 035311 200 00 0 00 036541 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5533 035312 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5534 035313 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5535 ^
5536 UMON^
5537 035314 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5538 035315 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5539 035316 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5540 035317 254 01 0 00 035320 JRST 1,.+1 ;SET USER MODE VIA ET0
5541 035320 265 00 0 00 035321 JSP .+1 ;IR JRST, IR12(1). IT FAILED
5542 035321 607 00 0 00 010000 TLNN USERF ;REPLACE B135 ON EX PRINT
5543 HOLD^
5544 035322 324 00 0 00 035322 JUMPA . ;MACH ERROR. HALT MAY TRAP
5545 035323 320 00 0 00 035324 JUMP .+1 ;SO WAITING FOR OPERATOR
5546 ^
5547 UMOFF^
5548 035324 200 00 0 00 036542 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5549 035325 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5550 035326 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5551 ^
5552
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 55
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0133
5553 ;THIS TEST WILL TRY TO SET THE PRIV I/O BIT WHEN IN
5554 ;USER MODE. IF THE EX IOT USER FLOP SETS EX USER (0) INPUT
5555 ;TO THE FLAG FAILED SEE EX PRINT
5556
5557 035327 MOD167: UMON^
5558 035327 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5559 035330 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5560 035331 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5561 035332 254 02 1 00 036543 JRST 2,@[XWD USERF,.+1] ;SET USER
5562 035333 254 02 1 00 036544 JRST 2,@[XWD USERF+UMIOT,.+1] ;TRY TO SET PRIV I/O
5563 035334 265 00 0 00 035335 JSP .+1
5564 035335 603 00 0 00 004000 TLNE UMIOT
5565 HOLD^
5566 035336 324 00 0 00 035336 JUMPA . ;MACH ERROR. HALT MAY TRAP
5567 035337 320 00 0 00 035340 JUMP .+1 ;SO WAITING FOR OPERATOR
5568 ^
5569 UMOFF^
5570 035340 200 00 0 00 036545 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5571 035341 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5572 035342 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5573 ^
5574
5575 035343 MOD170: UMON^
5576 035343 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5577 035344 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5578 035345 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5579 035346 254 02 1 00 036546 JRST 2,@[XWD USERF,.+1] ;SET USER MODE
5580 035347 200 00 0 00 036547 MOVE [JSP .+4] ;SET TRAP RETURN
5581 035350 202 00 0 00 000041 MOVEM 41 ;1 PAST THE IOT INST
5582 035351 402 00 0 00 000040 SETZM 40 ;FAIL TO TRAP. EX ALLOW IOT
5583 035352 700000 000000 XWD 700000,0 ;ALLOWED THE IOT IN USER
5584 035353 336 00 0 00 000040 SKIPN 40 ;MODE. SEE EX PRINT
5585 HOLD^
5586 035354 324 00 0 00 035354 JUMPA . ;MACH ERROR. HALT MAY TRAP
5587 035355 320 00 0 00 035356 JUMP .+1 ;SO WAITING FOR OPERATOR
5588 ^
5589 UMOFF^
5590 035356 200 00 0 00 036550 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5591 035357 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5592 035360 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5593 ^
5594
5595 035361 MOD171: UMON^
5596 035361 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5597 035362 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5598 035363 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5599 035364 254 02 1 00 036551 JRST 2,@[XWD USERF+UMIOT,.+1] ;SET PRIVI+USER
5600 035365 200 00 0 00 036552 MOVE [JSP .+4] ;SET TRAP RETURN 1 PAST
5601 035366 202 00 0 00 000041 MOVEM 41 ;THE TRAP INST
5602 035367 403 00 0 00 000040 SETZB 40 ;THE EX IOT USER FLOP
5603 035370 700000 000000 XWD 700000,0 ;SHOULD ALLOW THE IOT
5604 035371 300 00 0 00 000000 CAI
5605 035372 332 00 0 00 000040 SKIPE 40 ;CHECK EX ALLOW IOT. EX PRINT
5606 HOLD^
5607 035373 324 00 0 00 035373 JUMPA . ;MACH ERROR. HALT MAY TRAP
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 55-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0134
5608 035374 320 00 0 00 035375 JUMP .+1 ;SO WAITING FOR OPERATOR
5609 ^
5610 UMOFF^
5611 035375 200 00 0 00 036553 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5612 035376 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5613 035377 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5614 ^
5615
5616 035400 MOD172: UMON^
5617 035400 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5618 035401 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5619 035402 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5620 035403 254 02 1 00 036554 JRST 2,@[XWD USERF+UMIOT,.+1] ;USER AND PRIV I/O
5621 035404 200 00 0 00 036555 MOVE [JSP .+3] ;THEN CAUSE A PI REQUEST
5622 035405 202 00 0 00 000042 MOVEM 42 ;PI CYC(1) SHOULD SET EX PI SYNC
5623 035406 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;WHICH SHOULD CLEAR EX USER
5624 035407 265 00 0 00 035410 JSP .+1 ;AT ET1 OF JSP AT 42. IT
5625 035410 603 00 0 00 010000 TLNE USERF ;FAILED. SEE EX PRINT
5626 HOLD^
5627 035411 324 00 0 00 035411 JUMPA . ;MACH ERROR. HALT MAY TRAP
5628 035412 320 00 0 00 035413 JUMP .+1 ;SO WAITING FOR OPERATOR
5629 ^
5630
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 56
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0135
5631 ;THIS TEST WILL INSURE THAT EX ILL OP IS CLEARED
5632 ;BY IOT BLK. THIS LOGIC IS NECESSARY FOR RETURNING TO
5633 ;THE PROPER RELOCATION WHEN A UUO IS INTERRUPTED AND
5634 ;MUST BE RE EXECUTED.
5635
5636
5637 035413 200 00 0 00 036556 MOD173: MOVE [JUMPA .+3]
5638 035414 202 00 0 00 000041 MOVEM 41
5639 035415 040000 000000 XWD 040000,0 ;PERHAPS TURN OFF USER MODE
5640 035416 400 00 0 00 000000 SETZ ;PREVIOUS UUO SET EX ILL OP
5641 035417 7 000 00 0 00 000000 BLKI ;THIS IOT SHOULD CLEAR IT
5642 035420 300 00 0 00 000000 CAI
5643 035421 254 02 1 00 036557 JRST 2,@[XWD USERF,.+1] ;NOW ENTER USER MODE IF
5644 035422 265 00 0 00 035423 JSP .+1 ;EX ILL OP SET JSP WILL CLEAR
5645 035423 265 00 0 00 035424 JSP .+1 ;EX USER FLAG. SEE EX PRINT
5646 035424 607 00 0 00 010000 TLNN USERF
5647 HOLD^
5648 035425 324 00 0 00 035425 JUMPA . ;MACH ERROR. HALT MAY TRAP
5649 035426 320 00 0 00 035427 JUMP .+1 ;SO WAITING FOR OPERATOR
5650 ^
5651 UMOFF^
5652 035427 200 00 0 00 036560 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5653 035430 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5654 035431 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5655 ^
5656
5657 035432 MOD174: UMON^
5658 035432 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5659 035433 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5660 035434 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5661 035435 254 02 1 00 036561 JRST 2,@[XWD USERF,.+1]
5662 035436 200 00 0 00 036562 MOVE [JSP .+4] ;SET RETURN
5663 035437 202 00 0 00 000041 MOVEM 41 ;SEE IR2 PRINT
5664 035440 402 00 0 00 000040 SETZM 40 ;IR JRST A IR10(1)
5665 035441 254 04 0 00 035441 HALT . ;THIS HALT SHOULD TRAP
5666 035442 336 00 0 00 000040 SKIPN 40 ;BUT DID NOT
5667 HOLD^
5668 035443 324 00 0 00 035443 JUMPA . ;MACH ERROR. HALT MAY TRAP
5669 035444 320 00 0 00 035445 JUMP .+1 ;SO WAITING FOR OPERATOR
5670 ^
5671 UMOFF^
5672 035445 200 00 0 00 036563 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5673 035446 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5674 035447 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5675 ^
5676
5677 035450 MOD175: UMON^
5678 035450 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5679 035451 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5680 035452 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5681 035453 254 02 1 00 036564 JRST 2,@[XWD USERF,.+1]
5682 035454 200 00 0 00 036565 MOVE [JSP .+4] ;SET RETURN
5683 035455 202 00 0 00 000041 MOVEM 41 ;SEE IR2 PRINT
5684 035456 402 00 0 00 000040 SETZM 40 ;THE ENABLE PI SHOULD
5685 035457 254 12 0 00 035460 JEN .+1 ;TRAP TO 40
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 56-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0136
5686 035460 336 00 0 00 000040 SKIPN 40 ;BUT DID NOT
5687 HOLD^
5688 035461 324 00 0 00 035461 JUMPA . ;MACH ERROR. HALT MAY TRAP
5689 035462 320 00 0 00 035463 JUMP .+1 ;SO WAITING FOR OPERATOR
5690 ^
5691 UMOFF^
5692 035463 200 00 0 00 036566 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5693 035464 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5694 035465 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5695 ^
5696
5697 035466 MOD176: UMON^
5698 035466 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5699 035467 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5700 035470 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5701 035471 254 02 1 00 036567 JRST 2,@[XWD USERF+UMIOT,.+1]
5702 035472 200 00 0 00 036570 MOVE [JSP .+4] ;SET PRIVI IO BIT
5703 035473 202 00 0 00 000041 MOVEM 41 ;THIS SHOULD PREVENT JRST IO,
5704 035474 402 00 0 00 000040 SETZM 40 ;FROM TRAPPING. SEE IR UUO
5705 035475 254 10 0 00 035476 JRST 10,.+1 ;ON IR2 PRINT
5706 035476 332 00 0 00 000040 SKIPE 40
5707 HOLD^
5708 035477 324 00 0 00 035477 JUMPA . ;MACH ERROR. HALT MAY TRAP
5709 035500 320 00 0 00 035501 JUMP .+1 ;SO WAITING FOR OPERATOR
5710 ^
5711 UMOFF^
5712 035501 200 00 0 00 036571 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5713 035502 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5714 035503 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5715 ^
5716
5717 035504 MOD177: UMON^
5718 035504 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5719 035505 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5720 035506 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5721 035507 254 01 0 00 035510 JRST 1,.+1 ;SEE IF JUST A PLAIN
5722 035510 200 00 0 00 036572 MOVE [JSP .+4] ;JRST WILL TRAP
5723 035511 202 00 0 00 000041 MOVEM 41 ;SEE IR2 PRINT FOR
5724 035512 402 00 0 00 000040 SETZM 40 ;DECODE IR-UUO
5725 035513 254 00 0 00 035514 JRST .+1
5726 035514 332 00 0 00 000040 SKIPE 40
5727 HOLD^
5728 035515 324 00 0 00 035515 JUMPA . ;MACH ERROR. HALT MAY TRAP
5729 035516 320 00 0 00 035517 JUMP .+1 ;SO WAITING FOR OPERATOR
5730 ^
5731 UMOFF^
5732 035517 200 00 0 00 036573 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5733 035520 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5734 035521 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5735 ^
5736
5737 035522 MOD178: UMON^
5738 035522 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5739 035523 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5740 035524 7 000 14 0 00 036525 DATAO [XWD -1,0]^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 56-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0137
5741 035525 254 01 0 00 035526 JRST 1,.+1 ;SEE IF IR 9+10 WITH OUT
5742 035526 200 00 0 00 036574 MOVE [JSP .+4] ;A JRST WILL TRAP
5743 035527 202 00 0 00 000041 MOVEM 41 ;SEE IR UUO ON IR-2 PRINT
5744 035530 402 00 0 00 000040 SETZM 40
5745 035531 255 14 0 00 035532 JFCL 14,.+1
5746 035532 332 00 0 00 000040 SKIPE 40
5747 HOLD^
5748 035533 324 00 0 00 035533 JUMPA . ;MACH ERROR. HALT MAY TRAP
5749 035534 320 00 0 00 035535 JUMP .+1 ;SO WAITING FOR OPERATOR
5750 ^
5751 UMOFF^
5752 035535 200 00 0 00 036575 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5753 035536 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5754 035537 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5755 ^
5756
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 57
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0138
5757 ;CHECK THAT AN IOT AT INTERRUPT LEVEL WILL NOT LOOK
5758 ;LIKE A UUO SEE IR-2 PRINT
5759
5760 035540 MOD179: UMON^
5761 035540 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5762 035541 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5763 035542 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5764 035543 7 000 20 0 00 000001 CONO 1
5765 035544 200 00 0 00 036576 MOVE [BLKI]
5766 035545 202 00 0 00 000042 MOVEM 42
5767 035546 200 00 0 00 036577 MOVE [JSP M179+1]
5768 035547 202 00 0 00 000041 MOVEM 41
5769 035550 403 00 0 00 000040 SETZB 40
5770 035551 200 00 0 00 036600 MOVE [JSP M179]
5771 035552 202 00 0 00 000043 MOVEM 43
5772 035553 474 00 0 00 000000 SETO
5773 035554 7 004 20 0 00 002300 CONO PI,ACT+PIOSET+100
5774 035555 254 01 0 00 035556 JRST 1,.+1
5775 035556 310 00 0 00 777777 CAM -1
5776 035557 332 00 0 00 000040 M179: SKIPE 40
5777 HOLD^
5778 035560 324 00 0 00 035560 JUMPA . ;MACH ERROR. HALT MAY TRAP
5779 035561 320 00 0 00 035562 JUMP .+1 ;SO WAITING FOR OPERATOR
5780 ^
5781 UMOFF^
5782 035562 200 00 0 00 036601 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
5783 035563 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
5784 035564 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
5785 ^
5786
5787 035565 MODXX1: UMON ^ ;TEST TRAP (60) TURN OFF OF
5788
5789 035565 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5790 035566 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5791 035567 7 000 14 0 00 036525 DATAO [XWD -1,0]
5792 035570 200 00 0 00 036602 MOVE [JSP .+5] ;USER MODE
5793 035571 202 00 0 00 000061 MOVEM 61
5794 035572 254 01 0 00 035573 JRST 1,.+1
5795 035573 100000 000000 XWD 100000,0 ;OP CODE 100
5796 HOLD ^ ;IT FAILED TO TRAP
5797
5798 035574 324 00 0 00 035574 JUMPA . ;MACH ERROR. HALT MAY TRAP
5799 035575 320 00 0 00 035576 JUMP .+1 ;SO WAITING FOR OPERATOR
5800
5801 035576 265 00 0 00 035577 JSP .+1 ;IT SHOULD ALSO
5802 035577 603 00 0 00 010000 TLNE USERF ;TURN OFF USER MODE
5803 HOLD^
5804 035600 324 00 0 00 035600 JUMPA . ;MACH ERROR. HALT MAY TRAP
5805 035601 320 00 0 00 035602 JUMP .+1 ;SO WAITING FOR OPERATOR
5806 ^
5807
5808 035602 MODXX2: UMON^
5809 035602 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5810 035603 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5811 035604 7 000 14 0 00 036525 DATAO [XWD -1,0]^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 57-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0139
5812 035605 200 00 0 00 036603 MOVE [JSP .+4] ;TEST IR TO C(40)
5813 035606 202 00 0 00 000041 MOVEM 41 ;FOR BITS 1,2,3
5814 035607 254 02 1 00 036604 JRST 2,@[XWD USERF,.+1]
5815 035610 700000 000000 XWD 700000,0 ;AN IOT
5816 035611 200 00 0 00 000040 MOVE 40
5817 035612 312 00 0 00 036576 CAME [XWD 700000,0]
5818 HOLD^
5819 035613 324 00 0 00 035613 JUMPA . ;MACH ERROR. HALT MAY TRAP
5820 035614 320 00 0 00 035615 JUMP .+1 ;SO WAITING FOR OPERATOR
5821 ^
5822
5823 035615 MOD180: UMON^
5824 035615 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5825 035616 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5826 035617 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5827 035620 7 000 14 0 00 036425 DATAO [0] ;GET RID OF PROTECT REG
5828
5829 035621 7 000 20 0 00 000001 CONO 1
5830 035622 7 004 20 0 00 002300 CONO PI,ACT+PIOSET+100
5831 035623 200 00 0 00 036605 MOVE [JSP M180]
5832 035624 202 00 0 00 000042 MOVEM 42
5833 035625 200 00 0 00 036605 MOVE [JSP .+4]
5834 035626 202 00 0 00 000041 MOVEM 41
5835 035627 254 02 1 00 036606 JRST 2,@[XWD USERF+UMIOT,.+1] ;ENABLE USER
5836 035630 324 00 0 00 035630 JUMPA . ;THIS INST SHOULD SET PROT
5837 035631 7 000 34 0 00 020000 M180: CONSO PROT ;HERE IF FLAG FAIL
5838 HOLD^
5839 035632 324 00 0 00 035632 JUMPA . ;MACH ERROR. HALT MAY TRAP
5840 035633 320 00 0 00 035634 JUMP .+1 ;SO WAITING FOR OPERATOR
5841 ^
5842 035634 7 000 30 0 00 010000 CONSZ NONEX ;NEVER NON EX WITH PROT
5843 HOLD^
5844 035635 324 00 0 00 035635 JUMPA . ;MACH ERROR. HALT MAY TRAP
5845 035636 320 00 0 00 035637 JUMP .+1 ;SO WAITING FOR OPERATOR
5846 ^
5847 035637 7 000 20 0 00 020000 CONO 1B22 ;FAIL TO CLEAR PROT
5848 035640 7 000 30 0 00 020000 CONSZ PROT ;FLAG SEE CPA PRINT
5849 HOLD^
5850 035641 324 00 0 00 035641 JUMPA . ;MACH ERROR. HALT MAY TRAP
5851 035642 320 00 0 00 035643 JUMP .+1 ;SO WAITING FOR OPERATOR
5852 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 58
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0140
5853
5854 DEFINE EXCT (A) <
5855 MOVE [JSP .+3] ;EXECUTE A UUO
5856 MOVEM 41 ;AND STORE FLAGS
5857 XWD A,0 ;IN AC0.
5858 >
5859 ;CHECK UUO 0 TRAPING TO EXEC MODE AND UUO 1-37
5860 ;NOT TRAPING TO EXEC MODE...1P19 ON EX CONTROL PRINT.
5861
5862 035643 MOD18A: UMON^
5863 035643 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5864 035644 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5865 035645 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5866 035646 254 02 1 00 036607 JRST 2,@[XWD USERF+UMIOT,.+1]
5867 EXCT 0^
5868 035647 200 00 0 00 036610 MOVE [JSP .+3] ;EXECUTE 0 UUO
5869 035650 202 00 0 00 000041 MOVEM 41 ;AND STORE FLAGS
5870 035651 000000 000000 XWD 0,0 ;IN AC0.
5871 ^
5872 EXCT 0^
5873 035652 200 00 0 00 036611 MOVE [JSP .+3] ;EXECUTE 0 UUO
5874 035653 202 00 0 00 000041 MOVEM 41 ;AND STORE FLAGS
5875 035654 000000 000000 XWD 0,0 ;IN AC0.
5876 ^
5877 035655 603 00 0 00 010000 TLNE USERF ;USER MODE ON?..CK 1P19 EX CONT PNT.
5878 HOLD^
5879 035656 324 00 0 00 035656 JUMPA . ;MACH ERROR. HALT MAY TRAP
5880 035657 320 00 0 00 035660 JUMP .+1 ;SO WAITING FOR OPERATOR
5881 ^
5882
5883 UMON^
5884 035660 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5885 035661 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5886 035662 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5887 035663 254 02 1 00 036612 JRST 2,@[XWD USERF+UMIOT,.+1]
5888 EXCT 1000^
5889 035664 200 00 0 00 036613 MOVE [JSP .+3] ;EXECUTE 1000 UUO
5890 035665 202 00 0 00 000041 MOVEM 41 ;AND STORE FLAGS
5891 035666 001000 000000 XWD 1000,0 ;IN AC0.
5892 ^
5893 035667 607 00 0 00 010000 TLNN USERF ;CK BIT 8 INPUT TO 1P19 EX CONTROL PRINT.
5894 HOLD^
5895 035670 324 00 0 00 035670 JUMPA . ;MACH ERROR. HALT MAY TRAP
5896 035671 320 00 0 00 035672 JUMP .+1 ;SO WAITING FOR OPERATOR
5897 ^
5898
5899
5900
5901 UMON^
5902 035672 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5903 035673 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5904 035674 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5905 035675 254 02 1 00 036614 JRST 2,@[XWD USERF+UMIOT,.+1]
5906 EXCT 2000^
5907 035676 200 00 0 00 036615 MOVE [JSP .+3] ;EXECUTE 2000 UUO
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 58-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0141
5908 035677 202 00 0 00 000041 MOVEM 41 ;AND STORE FLAGS
5909 035700 002000 000000 XWD 2000,0 ;IN AC0.
5910 ^
5911 035701 607 00 0 00 010000 TLNN USERF ;CK BIT 7 INPUT TO 1P19 EX CONTROL PNT.
5912 HOLD^
5913 035702 324 00 0 00 035702 JUMPA . ;MACH ERROR. HALT MAY TRAP
5914 035703 320 00 0 00 035704 JUMP .+1 ;SO WAITING FOR OPERATOR
5915 ^
5916
5917 UMON^
5918 035704 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5919 035705 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5920 035706 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5921 035707 254 02 1 00 036616 JRST 2,@[XWD USERF+UMIOT,.+1]
5922 EXCT 4000^
5923 035710 200 00 0 00 036617 MOVE [JSP .+3] ;EXECUTE 4000 UUO
5924 035711 202 00 0 00 000041 MOVEM 41 ;AND STORE FLAGS
5925 035712 004000 000000 XWD 4000,0 ;IN AC0.
5926 ^
5927 035713 607 00 0 00 010000 TLNN USERF ;CK BIT 6 INPUT TO 1P19 EX CONTROL PNT.
5928 HOLD^
5929 035714 324 00 0 00 035714 JUMPA . ;MACH ERROR. HALT MAY TRAP
5930 035715 320 00 0 00 035716 JUMP .+1 ;SO WAITING FOR OPERATOR
5931 ^
5932
5933 UMON^
5934 035716 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5935 035717 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5936 035720 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5937 035721 254 02 1 00 036620 JRST 2,@[XWD USERF+UMIOT,.+1]
5938 EXCT 10000^
5939 035722 200 00 0 00 036621 MOVE [JSP .+3] ;EXECUTE 10000 UUO
5940 035723 202 00 0 00 000041 MOVEM 41 ;AND STORE FLAGS
5941 035724 010000 000000 XWD 10000,0 ;IN AC0.
5942 ^
5943 035725 607 00 0 00 010000 TLNN USERF ;CK BIT 5 INPUT TO 1P19 EX CONTROL PNT.
5944 HOLD^
5945 035726 324 00 0 00 035726 JUMPA . ;MACH ERROR. HALT MAY TRAP
5946 035727 320 00 0 00 035730 JUMP .+1 ;SO WAITING FOR OPERATOR
5947 ^
5948
5949
5950 UMON^
5951 035730 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5952 035731 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5953 035732 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5954 035733 254 02 1 00 036622 JRST 2,@[XWD USERF+UMIOT,.+1]
5955 EXCT 20000^
5956 035734 200 00 0 00 036623 MOVE [JSP .+3] ;EXECUTE 20000 UUO
5957 035735 202 00 0 00 000041 MOVEM 41 ;AND STORE FLAGS
5958 035736 020000 000000 XWD 20000,0 ;IN AC0.
5959 ^
5960 035737 607 00 0 00 010000 TLNN USERF ;CK BIT 4 INPUT TO 1P19 EX CONTROL PNT.
5961 HOLD^
5962 035740 324 00 0 00 035740 JUMPA . ;MACH ERROR. HALT MAY TRAP
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 58-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0142
5963 035741 320 00 0 00 035742 JUMP .+1 ;SO WAITING FOR OPERATOR
5964 ^
5965
5966 UMON^
5967 035742 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
5968 035743 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
5969 035744 7 000 14 0 00 036525 DATAO [XWD -1,0]^
5970 035745 254 02 1 00 036624 JRST 2,@[XWD USERF,.+1]
5971 035746 200 00 0 00 036625 MOVE 0,[JSP .+3]
5972 035747 202 00 0 00 000041 MOVEM 0,41
5973 035750 700000 000000 XWD 700000,0 ;XCT AN IOT.
5974 035751 265 00 0 00 035752 JSP .+1 ;GET FLAGS.
5975 035752 603 00 0 00 010000 TLNE 0,USERF ;USER MODE STILL ON?
5976 HOLD ^ ;YES. CK EX NON REL UUO
5977
5978 035753 324 00 0 00 035753 JUMPA . ;MACH ERROR. HALT MAY TRAP
5979 035754 320 00 0 00 035755 JUMP .+1 ;SO WAITING FOR OPERATOR
5980
5981 ;EX PRINT.
5982
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 59
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0143
5983 035755 200 00 0 00 010040 MOD181: MOVE 10040 ;SAVE THESE LOC
5984 035756 336 00 0 00 035772 SKIPN SAV40
5985 035757 202 00 0 00 035772 MOVEM SAV40
5986 035760 200 00 0 00 010041 MOVE 10041
5987 035761 336 00 0 00 035773 SKIPN SAV41
5988 035762 202 00 0 00 035773 MOVEM SAV41
5989 035763 200 00 0 00 010042 MOVE 10042
5990 035764 336 00 0 00 035774 SKIPN SAV42
5991 035765 202 00 0 00 035774 MOVEM SAV42
5992 035766 200 00 0 00 010043 MOVE 10043
5993 035767 336 00 0 00 035775 SKIPN SAV43
5994 035770 202 00 0 00 035775 MOVEM SAV43
5995 035771 254 00 0 00 035776 JRST .+5
5996 035772 000000 000000 SAV40: 0
5997 035773 000000 000000 SAV41: 0
5998 035774 000000 000000 SAV42: 0
5999 035775 000000 000000 SAV43: 0
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 60
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0144
6000
6001 ;TEST THE SETTING OF PROTECT FLAG BY MOVING A
6002 ;TWO INST PROG TO AC 1+2 PROG IS CAM X AND UU0
6003 ;WITH TRAP SET TO REAL WORLD THE CAM SHOULD TEST
6004 ;THE PROT FLAG
6005
6006 002000 X=2000
6007
6008 DEFINE LAC (A)<
6009 UMON
6010 DATAO [0]
6011 MOVE 1,[CAM A]
6012 MOVSI 2,40000
6013
6014 CONO PI,ACT+PIOSET+100
6015 CONO 1
6016 MOVE [JSP .+5]
6017 MOVEM 42
6018 MOVE [JSP .+3]
6019 MOVEM 41 ;SET TRAP RETURN
6020 JRST 1,1 ;TURN ON USER MODE
6021 CONSO PROT ;THE PROT FLAG SHOULD BE SET
6022 HOLD
6023 CONSZ NONEX
6024 HOLD
6025 >
6026 MOD182: REPEAT 10,<
6027 LAC X
6028 X=X+X>
6029
6030 LAC X^
6031 UMON^
6032 035776 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
6033 035777 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
6034 036000 7 000 14 0 00 036525 DATAO [XWD -1,0]^
6035 036001 7 000 14 0 00 036425 DATAO [0]
6036 036002 200 01 0 00 036626 MOVE 1,[CAM X]
6037 036003 205 02 0 00 040000 MOVSI 2,40000
6038
6039 036004 7 004 20 0 00 002300 CONO PI,ACT+PIOSET+100
6040 036005 7 000 20 0 00 000001 CONO 1
6041 036006 200 00 0 00 036627 MOVE [JSP .+5]
6042 036007 202 00 0 00 000042 MOVEM 42
6043 036010 200 00 0 00 036627 MOVE [JSP .+3]
6044 036011 202 00 0 00 000041 MOVEM 41 ;SET TRAP RETURN
6045 036012 254 01 0 00 000001 JRST 1,1 ;TURN ON USER MODE
6046 036013 7 000 34 0 00 020000 CONSO PROT ;THE PROT FLAG SHOULD BE SET
6047 HOLD^
6048 036014 324 00 0 00 036014 JUMPA . ;MACH ERROR. HALT MAY TRAP
6049 036015 320 00 0 00 036016 JUMP .+1 ;SO WAITING FOR OPERATOR
6050 ^
6051 036016 7 000 30 0 00 010000 CONSZ NONEX
6052 HOLD^
6053 036017 324 00 0 00 036017 JUMPA . ;MACH ERROR. HALT MAY TRAP
6054 036020 320 00 0 00 036021 JUMP .+1 ;SO WAITING FOR OPERATOR
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 60-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0145
6055 ^
6056 ^
6057 004000 X=X+X
6058
6059 LAC X^
6060 UMON^
6061 036021 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
6062 036022 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
6063 036023 7 000 14 0 00 036525 DATAO [XWD -1,0]^
6064 036024 7 000 14 0 00 036425 DATAO [0]
6065 036025 200 01 0 00 036630 MOVE 1,[CAM X]
6066 036026 205 02 0 00 040000 MOVSI 2,40000
6067
6068 036027 7 004 20 0 00 002300 CONO PI,ACT+PIOSET+100
6069 036030 7 000 20 0 00 000001 CONO 1
6070 036031 200 00 0 00 036631 MOVE [JSP .+5]
6071 036032 202 00 0 00 000042 MOVEM 42
6072 036033 200 00 0 00 036631 MOVE [JSP .+3]
6073 036034 202 00 0 00 000041 MOVEM 41 ;SET TRAP RETURN
6074 036035 254 01 0 00 000001 JRST 1,1 ;TURN ON USER MODE
6075 036036 7 000 34 0 00 020000 CONSO PROT ;THE PROT FLAG SHOULD BE SET
6076 HOLD^
6077 036037 324 00 0 00 036037 JUMPA . ;MACH ERROR. HALT MAY TRAP
6078 036040 320 00 0 00 036041 JUMP .+1 ;SO WAITING FOR OPERATOR
6079 ^
6080 036041 7 000 30 0 00 010000 CONSZ NONEX
6081 HOLD^
6082 036042 324 00 0 00 036042 JUMPA . ;MACH ERROR. HALT MAY TRAP
6083 036043 320 00 0 00 036044 JUMP .+1 ;SO WAITING FOR OPERATOR
6084 ^
6085 ^
6086 010000 X=X+X
6087
6088 LAC X^
6089 UMON^
6090 036044 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
6091 036045 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
6092 036046 7 000 14 0 00 036525 DATAO [XWD -1,0]^
6093 036047 7 000 14 0 00 036425 DATAO [0]
6094 036050 200 01 0 00 036632 MOVE 1,[CAM X]
6095 036051 205 02 0 00 040000 MOVSI 2,40000
6096
6097 036052 7 004 20 0 00 002300 CONO PI,ACT+PIOSET+100
6098 036053 7 000 20 0 00 000001 CONO 1
6099 036054 200 00 0 00 036633 MOVE [JSP .+5]
6100 036055 202 00 0 00 000042 MOVEM 42
6101 036056 200 00 0 00 036633 MOVE [JSP .+3]
6102 036057 202 00 0 00 000041 MOVEM 41 ;SET TRAP RETURN
6103 036060 254 01 0 00 000001 JRST 1,1 ;TURN ON USER MODE
6104 036061 7 000 34 0 00 020000 CONSO PROT ;THE PROT FLAG SHOULD BE SET
6105 HOLD^
6106 036062 324 00 0 00 036062 JUMPA . ;MACH ERROR. HALT MAY TRAP
6107 036063 320 00 0 00 036064 JUMP .+1 ;SO WAITING FOR OPERATOR
6108 ^
6109 036064 7 000 30 0 00 010000 CONSZ NONEX
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 60-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0146
6110 HOLD^
6111 036065 324 00 0 00 036065 JUMPA . ;MACH ERROR. HALT MAY TRAP
6112 036066 320 00 0 00 036067 JUMP .+1 ;SO WAITING FOR OPERATOR
6113 ^
6114 ^
6115 020000 X=X+X
6116
6117 LAC X^
6118 UMON^
6119 036067 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
6120 036070 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
6121 036071 7 000 14 0 00 036525 DATAO [XWD -1,0]^
6122 036072 7 000 14 0 00 036425 DATAO [0]
6123 036073 200 01 0 00 036634 MOVE 1,[CAM X]
6124 036074 205 02 0 00 040000 MOVSI 2,40000
6125
6126 036075 7 004 20 0 00 002300 CONO PI,ACT+PIOSET+100
6127 036076 7 000 20 0 00 000001 CONO 1
6128 036077 200 00 0 00 036635 MOVE [JSP .+5]
6129 036100 202 00 0 00 000042 MOVEM 42
6130 036101 200 00 0 00 036635 MOVE [JSP .+3]
6131 036102 202 00 0 00 000041 MOVEM 41 ;SET TRAP RETURN
6132 036103 254 01 0 00 000001 JRST 1,1 ;TURN ON USER MODE
6133 036104 7 000 34 0 00 020000 CONSO PROT ;THE PROT FLAG SHOULD BE SET
6134 HOLD^
6135 036105 324 00 0 00 036105 JUMPA . ;MACH ERROR. HALT MAY TRAP
6136 036106 320 00 0 00 036107 JUMP .+1 ;SO WAITING FOR OPERATOR
6137 ^
6138 036107 7 000 30 0 00 010000 CONSZ NONEX
6139 HOLD^
6140 036110 324 00 0 00 036110 JUMPA . ;MACH ERROR. HALT MAY TRAP
6141 036111 320 00 0 00 036112 JUMP .+1 ;SO WAITING FOR OPERATOR
6142 ^
6143 ^
6144 040000 X=X+X
6145
6146 LAC X^
6147 UMON^
6148 036112 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
6149 036113 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
6150 036114 7 000 14 0 00 036525 DATAO [XWD -1,0]^
6151 036115 7 000 14 0 00 036425 DATAO [0]
6152 036116 200 01 0 00 036636 MOVE 1,[CAM X]
6153 036117 205 02 0 00 040000 MOVSI 2,40000
6154
6155 036120 7 004 20 0 00 002300 CONO PI,ACT+PIOSET+100
6156 036121 7 000 20 0 00 000001 CONO 1
6157 036122 200 00 0 00 036637 MOVE [JSP .+5]
6158 036123 202 00 0 00 000042 MOVEM 42
6159 036124 200 00 0 00 036637 MOVE [JSP .+3]
6160 036125 202 00 0 00 000041 MOVEM 41 ;SET TRAP RETURN
6161 036126 254 01 0 00 000001 JRST 1,1 ;TURN ON USER MODE
6162 036127 7 000 34 0 00 020000 CONSO PROT ;THE PROT FLAG SHOULD BE SET
6163 HOLD^
6164 036130 324 00 0 00 036130 JUMPA . ;MACH ERROR. HALT MAY TRAP
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 60-3
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0147
6165 036131 320 00 0 00 036132 JUMP .+1 ;SO WAITING FOR OPERATOR
6166 ^
6167 036132 7 000 30 0 00 010000 CONSZ NONEX
6168 HOLD^
6169 036133 324 00 0 00 036133 JUMPA . ;MACH ERROR. HALT MAY TRAP
6170 036134 320 00 0 00 036135 JUMP .+1 ;SO WAITING FOR OPERATOR
6171 ^
6172 ^
6173 100000 X=X+X
6174
6175 LAC X^
6176 UMON^
6177 036135 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
6178 036136 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
6179 036137 7 000 14 0 00 036525 DATAO [XWD -1,0]^
6180 036140 7 000 14 0 00 036425 DATAO [0]
6181 036141 200 01 0 00 036640 MOVE 1,[CAM X]
6182 036142 205 02 0 00 040000 MOVSI 2,40000
6183
6184 036143 7 004 20 0 00 002300 CONO PI,ACT+PIOSET+100
6185 036144 7 000 20 0 00 000001 CONO 1
6186 036145 200 00 0 00 036641 MOVE [JSP .+5]
6187 036146 202 00 0 00 000042 MOVEM 42
6188 036147 200 00 0 00 036641 MOVE [JSP .+3]
6189 036150 202 00 0 00 000041 MOVEM 41 ;SET TRAP RETURN
6190 036151 254 01 0 00 000001 JRST 1,1 ;TURN ON USER MODE
6191 036152 7 000 34 0 00 020000 CONSO PROT ;THE PROT FLAG SHOULD BE SET
6192 HOLD^
6193 036153 324 00 0 00 036153 JUMPA . ;MACH ERROR. HALT MAY TRAP
6194 036154 320 00 0 00 036155 JUMP .+1 ;SO WAITING FOR OPERATOR
6195 ^
6196 036155 7 000 30 0 00 010000 CONSZ NONEX
6197 HOLD^
6198 036156 324 00 0 00 036156 JUMPA . ;MACH ERROR. HALT MAY TRAP
6199 036157 320 00 0 00 036160 JUMP .+1 ;SO WAITING FOR OPERATOR
6200 ^
6201 ^
6202 200000 X=X+X
6203
6204 LAC X^
6205 UMON^
6206 036160 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
6207 036161 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
6208 036162 7 000 14 0 00 036525 DATAO [XWD -1,0]^
6209 036163 7 000 14 0 00 036425 DATAO [0]
6210 036164 200 01 0 00 036642 MOVE 1,[CAM X]
6211 036165 205 02 0 00 040000 MOVSI 2,40000
6212
6213 036166 7 004 20 0 00 002300 CONO PI,ACT+PIOSET+100
6214 036167 7 000 20 0 00 000001 CONO 1
6215 036170 200 00 0 00 036643 MOVE [JSP .+5]
6216 036171 202 00 0 00 000042 MOVEM 42
6217 036172 200 00 0 00 036643 MOVE [JSP .+3]
6218 036173 202 00 0 00 000041 MOVEM 41 ;SET TRAP RETURN
6219 036174 254 01 0 00 000001 JRST 1,1 ;TURN ON USER MODE
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 60-4
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0148
6220 036175 7 000 34 0 00 020000 CONSO PROT ;THE PROT FLAG SHOULD BE SET
6221 HOLD^
6222 036176 324 00 0 00 036176 JUMPA . ;MACH ERROR. HALT MAY TRAP
6223 036177 320 00 0 00 036200 JUMP .+1 ;SO WAITING FOR OPERATOR
6224 ^
6225 036200 7 000 30 0 00 010000 CONSZ NONEX
6226 HOLD^
6227 036201 324 00 0 00 036201 JUMPA . ;MACH ERROR. HALT MAY TRAP
6228 036202 320 00 0 00 036203 JUMP .+1 ;SO WAITING FOR OPERATOR
6229 ^
6230 ^
6231 400000 X=X+X
6232
6233 LAC X^
6234 UMON^
6235 036203 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
6236 036204 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
6237 036205 7 000 14 0 00 036525 DATAO [XWD -1,0]^
6238 036206 7 000 14 0 00 036425 DATAO [0]
6239 036207 200 01 0 00 036644 MOVE 1,[CAM X]
6240 036210 205 02 0 00 040000 MOVSI 2,40000
6241
6242 036211 7 004 20 0 00 002300 CONO PI,ACT+PIOSET+100
6243 036212 7 000 20 0 00 000001 CONO 1
6244 036213 200 00 0 00 036645 MOVE [JSP .+5]
6245 036214 202 00 0 00 000042 MOVEM 42
6246 036215 200 00 0 00 036645 MOVE [JSP .+3]
6247 036216 202 00 0 00 000041 MOVEM 41 ;SET TRAP RETURN
6248 036217 254 01 0 00 000001 JRST 1,1 ;TURN ON USER MODE
6249 036220 7 000 34 0 00 020000 CONSO PROT ;THE PROT FLAG SHOULD BE SET
6250 HOLD^
6251 036221 324 00 0 00 036221 JUMPA . ;MACH ERROR. HALT MAY TRAP
6252 036222 320 00 0 00 036223 JUMP .+1 ;SO WAITING FOR OPERATOR
6253 ^
6254 036223 7 000 30 0 00 010000 CONSZ NONEX
6255 HOLD^
6256 036224 324 00 0 00 036224 JUMPA . ;MACH ERROR. HALT MAY TRAP
6257 036225 320 00 0 00 036226 JUMP .+1 ;SO WAITING FOR OPERATOR
6258 ^
6259 ^
6260 000001 000000 X=X+X
6261
6262 036226 402 00 0 00 000040 MOD185: SETZM 40 ;TEST FOR TRAP TO REAL LOC 40
6263 036227 200 00 0 00 036646 MOVE [JSP MOD186-1] ;NOT RELOCATED 40
6264 036230 202 00 0 00 000041 MOVEM 41 ;SETUP TRAP FOR OK
6265 036231 7 000 14 0 00 036647 DATAO [XWD -1,10000]
6266 036232 200 00 0 00 036650 MOVE [JSP MOD186] ;SETUP TRAP FOR ERR
6267 036233 202 00 0 00 010041 MOVEM 10041
6268 036234 254 01 0 00 026235 JRST 1,.+1-10000 ;IF THE UUO TRAPS TO
6269 036235 040000 000000 XWD 40000,0 ;RELOCATED 40 PROG WILL HOLD
6270 036236 336 00 0 00 000040 SKIPN 40 ;AT THIS POINT
6271
6272 036237 MOD186: HOLD^
6273 036237 324 00 0 00 036237 JUMPA . ;MACH ERROR. HALT MAY TRAP
6274 036240 320 00 0 00 036241 JUMP .+1 ;SO WAITING FOR OPERATOR
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 60-5
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0149
6275 ^
6276 036241 265 00 0 00 036242 JSP .+1 ;IF USER MODE STILL ON
6277 036242 603 00 0 00 010000 TLNE USERF ;THEN WAIT HERE
6278 HOLD^
6279 036243 324 00 0 00 036243 JUMPA . ;MACH ERROR. HALT MAY TRAP
6280 036244 320 00 0 00 036245 JUMP .+1 ;SO WAITING FOR OPERATOR
6281 ^
6282
6283 ;TEST FOR INTERRUPT TO REAL PI (NOT RELOCATED)
6284 036245 MOD190: UMON^
6285 036245 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
6286 036246 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
6287 036247 7 000 14 0 00 036525 DATAO [XWD -1,0]^
6288 036250 200 00 0 00 036651 MOVE [JSP MOD191] ;SET ERROR PI RET
6289 036251 202 00 0 00 010042 MOVEM 10042
6290 036252 200 00 0 00 036652 MOVE [JSP MOD191+1] ;SET OK PI
6291 036253 202 00 0 00 000042 MOVEM 42
6292 036254 7 000 14 0 00 036647 DATAO [XWD -1,10000]
6293 036255 254 02 1 00 036653 JRST 2,@[XWD USERF+UMIOT,.+1-10000]
6294 036256 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100 ;SHOULD INTERRUPT
6295 HOLD^
6296 036257 324 00 0 00 036257 JUMPA . ;MACH ERROR. HALT MAY TRAP
6297 036260 320 00 0 00 036261 JUMP .+1 ;SO WAITING FOR OPERATOR
6298 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 61
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0150
6299 036261 MOD191: HOLD^
6300 036261 324 00 0 00 036261 JUMPA . ;MACH ERROR. HALT MAY TRAP
6301 036262 320 00 0 00 036263 JUMP .+1 ;SO WAITING FOR OPERATOR
6302 ^
6303 UMOFF^
6304 036263 200 00 0 00 036654 MOVE [JSP .+3] ;TURN OFF USER MODE VIA
6305 036264 202 00 0 00 000041 MOVEM 41 ;UUO. PROG RETURNS TO END
6306 036265 040000 000000 XWD 040000,0 ;OF MACRO. PC+FLAGS STORED .+1
6307 ^
6308 ;TEST FOR NOT RELOCATION OF AC'S
6309 036266 402 00 0 00 000005 MOD192: SETZM 5
6310 UMON^
6311 036267 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
6312 036270 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
6313 036271 7 000 14 0 00 036525 DATAO [XWD -1,0]^
6314 036272 200 00 0 00 036655 MOVE [JSP M192]
6315 036273 202 00 0 00 000041 MOVEM 41
6316 036274 7 000 14 0 00 036647 DATAO [XWD -1,10000]
6317 036275 254 01 0 00 026276 JRST 1,.+1-10000
6318 036276 201 05 0 00 012345 MOVEI 5,12345
6319 036277 040000 000000 XWD 040000,0 ;UUO TO TERM USER MODE
6320 036300 302 05 0 00 012345 M192: CAIE 5,12345
6321 HOLD^
6322 036301 324 00 0 00 036301 JUMPA . ;MACH ERROR. HALT MAY TRAP
6323 036302 320 00 0 00 036303 JUMP .+1 ;SO WAITING FOR OPERATOR
6324 ^
6325 036303 332 00 0 00 036670 MOD195: SKIPE FPTRAP ;SEE IF SWITCH SAYS FP
6326 036304 254 00 0 00 036315 JRST MOD196
6327 036305 200 00 0 00 036656 MOVE [JSP .+3] ;TEST THE ABILITY TO
6328 036306 202 00 0 00 000061 MOVEM 61 ;TRAP A FP INST
6329 036307 145 00 0 00 777777 FADRI -1 ;THIS INST SHOULD TRAP
6330 036310 200 02 0 00 036307 MOVE 2,.-1 ;FAIL TO TRAP PROPERLY
6331 036311 312 02 0 00 000060 CAME 2,60
6332 STOP^
6333 036312 254 04 0 00 036313 HALT .+1
6334 036313 320 00 0 00 036314 JUMP .+1
6335 ^
6336 036314 254 00 0 00 036414 JRST MOD197 ;WHAT ABOUT SWITCHS
6337 036315 200 00 0 00 036657 MOD196: MOVE [JSP .+4] ;TEST FOR FP NOT TRAP
6338 036316 402 00 0 00 000060 SETZM 60
6339 036317 202 00 0 00 000061 MOVEM 61 ;SET RETURN
6340 036320 145 00 0 00 777777 FADRI -1
6341 036321 332 00 0 00 000060 SKIPE 60 ;DOES MACH HAVE FP
6342 STOP^
6343 036322 254 04 0 00 036323 HALT .+1
6344 036323 320 00 0 00 036324 JUMP .+1
6345 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 62
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0151
6346 ;CHECK BYT7A SETING BYF6.
6347 036324 7 000 20 0 00 635550 MOD19X: CONO 635550 ;CLR THE WORLD.
6348 036325 200 00 0 00 036660 MOVE [JSP MOD19B]
6349 036326 202 00 0 00 000042 MOVEM 42 ;SETUP FOR INT ON CH # 1.
6350 036327 7 004 20 0 00 012300 CONO PI,12300 ;SETUP PI.
6351 036330 200 01 0 00 036351 MOVE 1,POINTR ;PUT POINTER INTO AC1.
6352 036331 7 000 20 0 00 001000 CONO 1000 ;CLR CLOCK FLAG.
6353 036332 7 000 34 0 00 001000 CONSO 1000 ;WAIT FOR
6354 036333 254 00 0 00 036332 JRST .-1 ;CLOCK FLAG.
6355 036334 7 000 20 0 00 003001 CONO 3001 ;SET INT ENABLE AND PI 35 AND CLR CLK FLG.
6356 036335 134 00 0 00 000001 ILDB 0,1 ;SHOULD STAY IN INDIRECT LOOP.
6357 036336 7 000 34 0 00 001000 MOD19B: CONSO 1000 ;CLK FLG INT?
6358 HOLD^
6359 036337 324 00 0 00 036337 JUMPA . ;MACH ERROR. HALT MAY TRAP
6360 036340 320 00 0 00 036341 JUMP .+1 ;SO WAITING FOR OPERATOR
6361 ^
6362 036341 607 00 0 00 020000 TLNN 0,20000 ;BYF6 FLAG SET? NO..CK BYT7A ON BYTE PRINT.
6363 HOLD^
6364 036342 324 00 0 00 036342 JUMPA . ;MACH ERROR. HALT MAY TRAP
6365 036343 320 00 0 00 036344 JUMP .+1 ;SO WAITING FOR OPERATOR
6366 ^
6367 036344 265 00 0 00 036345 JSP .+1 ;CAUSE ARLT FM FLAGS(J)A.
6368 036345 603 00 0 00 020000 TLNE 0,20000 ;CK BYTE PRINT.
6369 HOLD^
6370 036346 324 00 0 00 036346 JUMPA . ;MACH ERROR. HALT MAY TRAP
6371 036347 320 00 0 00 036350 JUMP .+1 ;SO WAITING FOR OPERATOR
6372 ^
6373
6374 036350 254 00 0 00 036414 JRST MOD197
6375
6376 036351 440720 000001 POINTR: XWD 440720,1
6377 ;CK TO SEE THAT UUO 0 TRAPS TO 141.
6378 036352 MOD200: UMON^
6379 036352 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
6380 036353 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
6381 036354 7 000 14 0 00 036525 DATAO [XWD -1,0]^
6382 036355 254 02 1 00 036661 JRST 2,@[XWD USERF+UMIOT,.+1]
6383 036356 200 00 0 00 036662 MOVE [JSP .+5]
6384 036357 202 00 0 00 000041 MOVEM 41
6385 036360 340 00 0 00 000000 AOJ
6386 036361 202 00 0 00 000141 MOVEM 141
6387 036362 000000 000000 0
6388 HOLD ^ ;UUO 0 TRAPED TO 40. CK 2L44 ON MA CONTROL PRINT.
6389
6390 036363 324 00 0 00 036363 JUMPA . ;MACH ERROR. HALT MAY TRAP
6391 036364 320 00 0 00 036365 JUMP .+1 ;SO WAITING FOR OPERATOR
6392
6393 036365 607 00 0 00 010000 TLNN USERF ;USER MODE GET CLR?..CK 1P19 ON EX CONT PNT.
6394 HOLD^
6395 036366 324 00 0 00 036366 JUMPA . ;MACH ERROR. HALT MAY TRAP
6396 036367 320 00 0 00 036370 JUMP .+1 ;SO WAITING FOR OPERATOR
6397 ^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 63
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0152
6398 ;CK TO SEE THAT UUO 37 TRAPS TO 41.
6399
6400 UMON^
6401 036370 7 000 20 0 00 634440 CONO 634440 ;PREPARE TO TURN ON USER
6402 036371 7 004 20 0 00 010000 CONO PI,10000 ;MODE. CL PI, IOB, RELOC
6403 036372 7 000 14 0 00 036525 DATAO [XWD -1,0]^
6404 036373 254 02 1 00 036663 JRST 2,@[XWD USERF + UMIOT, .+1]
6405 036374 200 00 0 00 036664 MOVE [JSP .+5]
6406 036375 202 00 0 00 000141 MOVEM 141
6407 036376 340 00 0 00 000000 AOJ
6408 036377 202 00 0 00 000041 MOVEM 41
6409 036400 037000 000000 037000000000
6410 HOLD ^ ;UUO 37 TRAPPED TO 141, CK 2L44 ON MA CONTROL PRINT
6411 .
6412
6413 036401 324 00 0 00 036401 JUMPA . ;MACH ERROR. HALT MAY TRAP
6414 036402 320 00 0 00 036403 JUMP .+1 ;SO WAITING FOR OPERATOR
6415
6416
6417
6418 ;CK TO SEE THAT AN INTERRUPT ON CH # 1 TRAPS TO 142.
6419
6420 036403 200 00 0 00 036665 MOVE [MOVEI 142]
6421 036404 202 00 0 00 000142 MOVEM 142
6422 036405 7 000 20 0 00 634440 CONO 634440 ;CLR THE WORLD.
6423 036406 400 00 0 00 000000 SETZ 0,
6424 036407 7 004 20 0 00 010000 CONO PI,10000 ;CLR PI.
6425 036410 7 004 20 0 00 004300 CONO PI,ACT+PIREQ+100;CAUSE INT.
6426 036411 302 00 0 00 000142 CAIE 0,142 ;CK 2K44 ON MA CONTROL PRINT.
6427 036412 254 04 0 00 000000 HALT
6428
6429 036413 476 00 0 00 036671 SETOM MATPOF ;SET FLG SO KNOW IN THIS ROUTINE.
6430
6431
6432 036414 254 00 0 00 030057 MOD197: JRST BEGEND ;REPEAT DIAGNOSTIC
6433
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 64
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0153
6434 ;DIAGNOSTIC STORAGE
6435
6436 036415 LIT
6437 036415 000001 000001
6438 036416 254 00 0 00 030737
6439 036417 015 012 077 105 130
6440 036420 105 103 040 115 117
6441 036421 104 105 040 104 111
6442 036422 101 107 116 117 123
6443 036423 124 111 103 040 117
6444 036424 116 114 131 015 012
6445 036425 000 000 000 000 000
6446 036426 000000 000001
6447 036427 000000 000002
6448 036430 265 02 0 00 030776
6449 036431 254 00 0 00 030776
6450 036432 265 00 0 00 030777
6451 036433 265 02 0 00 031006
6452 036434 254 00 0 00 031007
6453 036435 265 02 0 00 031017
6454 036436 265 00 0 00 031020
6455 036437 265 02 0 00 031026
6456 036440 265 02 0 00 031036
6457 036441 777777 777777
6458 036442 265 02 0 00 031046
6459 036443 265 02 0 00 031055
6460 036444 265 02 0 00 031064
6461 036445 265 02 0 00 031073
6462 036446 265 02 0 00 031102
6463 036447 265 02 0 00 031111
6464 036450 265 02 0 00 031120
6465 036451 265 02 0 00 031127
6466 036452 265 02 0 00 031136
6467 036453 265 02 0 00 031145
6468 036454 265 02 0 00 031154
6469 036455 265 02 0 00 031163
6470 036456 265 02 0 00 031172
6471 036457 265 02 0 00 031201
6472 036460 265 02 0 00 031210
6473 036461 265 02 0 00 031217
6474 036462 265 02 0 00 031227
6475 036463 077740 000000
6476 036464 265 02 0 00 031237
6477 036465 077740 777777
6478 036466 265 02 0 00 031247
6479 036467 265 02 0 00 031257
6480 036470 265 02 0 00 031274
6481 036471 123456 654321
6482 036472 400000 000000
6483 036473 201 00 0 00 000040
6484 036474 201 00 0 00 000057
6485 036475 201 00 0 00 000017
6486 036476 201 00 0 00 000000
6487 036477 7 177 2 0 00 000000
6488 036500 350 00 0 00 000000
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 64-1
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0154
6489 036501 201 00 0 00 000042
6490 036502 7 177 3 0 00 000000
6491 036503 7 177 1 0 00 000000
6492 036504 201 01 0 00 000042
6493 036505 334 00 0 00 000000
6494 036506 264 00 0 00 035106
6495 036507 260 00 0 00 035116
6496 036510 201 00 0 00 000043
6497 036511 7 177 2 0 00 000004
6498 036512 265 00 0 00 035153
6499 036513 265 00 0 00 035154
6500 036514 000000 035163
6501 036515 004000 035170
6502 036516 000000 035171
6503 036517 000000 035176
6504 036520 004000 035177
6505 036521 000000 035204
6506 036522 004000 035210
6507 036523 265 00 0 00 035216
6508 036524 265 00 0 00 035227
6509 036525 777777 000000
6510 036526 014000 035231
6511 036527 265 00 0 00 035234
6512 036530 014000 035243
6513 036531 265 00 0 00 035246
6514 036532 265 00 0 00 035251
6515 036533 014000 035260
6516 036534 324 00 0 00 035263
6517 036535 265 00 0 00 035272
6518 036536 265 00 0 00 035275
6519 036537 014000 035301
6520 036540 265 00 0 00 035311
6521 036541 265 00 0 00 035314
6522 036542 265 00 0 00 035327
6523 036543 010000 035333
6524 036544 014000 035334
6525 036545 265 00 0 00 035343
6526 036546 010000 035347
6527 036547 265 00 0 00 035353
6528 036550 265 00 0 00 035361
6529 036551 014000 035365
6530 036552 265 00 0 00 035371
6531 036553 265 00 0 00 035400
6532 036554 014000 035404
6533 036555 265 00 0 00 035407
6534 036556 324 00 0 00 035416
6535 036557 010000 035422
6536 036560 265 00 0 00 035432
6537 036561 010000 035436
6538 036562 265 00 0 00 035442
6539 036563 265 00 0 00 035450
6540 036564 010000 035454
6541 036565 265 00 0 00 035460
6542 036566 265 00 0 00 035466
6543 036567 014000 035472
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 64-2
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0155
6544 036570 265 00 0 00 035476
6545 036571 265 00 0 00 035504
6546 036572 265 00 0 00 035514
6547 036573 265 00 0 00 035522
6548 036574 265 00 0 00 035532
6549 036575 265 00 0 00 035540
6550 036576 7 000 0 0 00 000000
6551 036577 265 00 0 00 035560
6552 036600 265 00 0 00 035557
6553 036601 265 00 0 00 035565
6554 036602 265 00 0 00 035575
6555 036603 265 00 0 00 035611
6556 036604 010000 035610
6557 036605 265 00 0 00 035631
6558 036606 014000 035630
6559 036607 014000 035647
6560 036610 265 00 0 00 035652
6561 036611 265 00 0 00 035655
6562 036612 014000 035664
6563 036613 265 00 0 00 035667
6564 036614 014000 035676
6565 036615 265 00 0 00 035701
6566 036616 014000 035710
6567 036617 265 00 0 00 035713
6568 036620 014000 035722
6569 036621 265 00 0 00 035725
6570 036622 014000 035734
6571 036623 265 00 0 00 035737
6572 036624 010000 035746
6573 036625 265 00 0 00 035751
6574 036626 310 00 0 00 002000
6575 036627 265 00 0 00 036013
6576 036630 310 00 0 00 004000
6577 036631 265 00 0 00 036036
6578 036632 310 00 0 00 010000
6579 036633 265 00 0 00 036061
6580 036634 310 00 0 00 020000
6581 036635 265 00 0 00 036104
6582 036636 310 00 0 00 040000
6583 036637 265 00 0 00 036127
6584 036640 310 00 0 00 100000
6585 036641 265 00 0 00 036152
6586 036642 310 00 0 00 200000
6587 036643 265 00 0 00 036175
6588 036644 310 00 0 00 400000
6589 036645 265 00 0 00 036220
6590 036646 265 00 0 00 036236
6591 036647 777777 010000
6592 036650 265 00 0 00 036237
6593 036651 265 00 0 00 036261
6594 036652 265 00 0 00 036262
6595 036653 014000 026256
6596 036654 265 00 0 00 036266
6597 036655 265 00 0 00 036300
6598 036656 265 00 0 00 036310
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 64-3
DAKAHM MAC 19-JAN-77 17:39 DIAGNOSTIC SECTION SEQ 0156
6599 036657 265 00 0 00 036321
6600 036660 265 00 0 00 036336
6601 036661 014000 036356
6602 036662 265 00 0 00 036363
6603 036663 014000 036374
6604 036664 265 00 0 00 036401
6605 036665 201 00 0 00 000142
6606
6607 036667 VAR
6608
6609 036675 254 04 0 00 030000 LAST: JRST 4,BEGIN
6610
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2 MACRO %52(537) 17:47 19-JAN-77 PAGE 1
STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0157
6611 SUBTTL *STOR* RESERVED STORAGE, JAN 18,1977
6612
6613 ;PROGRAM LITERALS
6614
6615 XLIST
6616 IFNDEF $LPAPER,<LIST>
6617 036676 LIT
6618 LIST
6619 036676 000000 000000 ENDSLD: 0
6620
6621 IFDEF DEBUG,<
6622 PATCH: BLOCK DEBUG ;PATCHING AREA
6623 >
6624
6625 ;PROGRAM VARIABLES
6626 036677 VAR
6627
6628 IFDEF PGMEND,<
6629 036677 000000 000000 END: 0
6630 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 036700
CPU TIME USED 00:22.958
12K CORE USED
ABORT 127#
AC0 722# SEQ 0158
ACT 49# 2437 2449 2461 2472 2473 2499 2512 2525 2538 2551 2564 2577 2711
2727 2743 2759 2775 2791 2807 2838 2856 2868 2879 2890 2901 2913 2925
2937 2949 2969 2982 3010 3027 3044 3061 3078 3095 3112 3152 3169 3186
3203 3220 3237 3254 3291 3293 3308 3310 3325 3327 3342 3344 3359 3361
3376 3378 3393 3395 3433 3435 3451 3453 3469 3471 3487 3489 3505 3507
3523 3525 3548 3561 3578 3591 3604 3617 3630 3663 3677 3695 3709 3723
3737 3751 3784 3798 3816 3830 3844 3858 3889 3902 3919 3932 3945 3958
3971 3998 4013 4032 4047 4062 4077 4092 4128 4145 4162 4179 4196 4213
4230 4256 4257 4274 4275 4288 4289 4302 4303 4316 4317 4330 4331 4358
4371 4384 4397 4410 4423 4436 4597 4613 4633 4649 4665 4681 4697 5039
5062 5088 5102 5120 5135 5142 5157 5173 5191 5205 5219 5234 5254 5274
5286 5301 5329 5623 5773 5830 6039 6068 6097 6126 6155 6184 6213 6242
6294 6425
ALTMGO 481#
ANXM 395#
APR 819 820 821
AROV 395#
AROVU 395#
AST 596#
ATSIN 597#
BEGEND 477# 6432
BEGIN 341 342 408# 765 887 6609 6630
BEGIN1 424# 478
BELL 600#
BIS 395#
CCA 395#
CHAIN 147#
CHNOFF 395#
CHNON 395#
CLK 395#
CLKCLR 395#
CLKDIS 395#
CLKENB 395#
CLKU 395#
CLOCKF 463#
CNTLC 480#
COMMA 589#
CONSW 464#
CPOPJ 484#
CPOPJ1 482#
CPSAV 927# 927
CRLF 276 277 584#
CRLF2 280 281 586#
CRY0 395#
CRY1 395#
CSHFLG 643#
CSHMEM 644#
CYCL60 637#
DACT 36# 3999 4014 4033 4048 4063 4078 4093
DCK 395#
DDT 724#
DDTLNK 161# 422
DDTSRT 422# SEQ 0159
DEBUG 6621
DECVER 5# 11 26 443
DF22F 548#
DIAGMN 411#
DIAGNO 723#
DIAMON 725#
DING 133#
DOLLAR 603#
DONG11 726# 866 882
DSKUPD 448
DTE 730# 866 868 882 884
DTE0 731#
DTE1 732#
DTE2 733#
DTE3 734#
END 6629#
ENDFIX 717#
ENDSLD 6619#
ERMORE 497#
ERRPC 468#
ERRTLS 469#
ERSTOP 136#
EXCASB 73# 446
EXIOT 33# 395#
FOV 395#
FOVU 395#
FPTRAP 934# 934 6325
FRDLNK 159#
FSELNK 158#
FXU 395#
HYPEN 594#
INHCSH 144#
INHPAG 141#
INXM 395#
IOCLR 395#
ITERAT 72# 441
ITRCH1 501#
ITRCNT 441# 811 840 844 852 853 857
JOB41 395#
JOBAPR 395#
JOBCNI 395#
JOBDDT 395#
JOBFF 395#
JOBOPC 395#
JOBREL 395#
JOBREN 395#
JOBSA 395#
JOBSYM 395#
JOBTPC 395#
JOBUSY 395#
JOBUUO 395#
JOBVER 395#
KA10 395 SEQ 0160
KAHZ50 149#
KAIFLG 458#
KI10 395
KL10 395
KLFLG 459# 813 831 850
KLOLD 356
KLTYP 675# 812 823 865 867 881 883
LAST 6609#
LDLNK 160# 411 413
LFP 598#
LOOPER 135#
LUUO 395#
LUUO1 528 529
LUUO10 528 533
LUUO11 528 533
LUUO12 528 534
LUUO13 528 534
LUUO14 528 535
LUUO15 528 535
LUUO16 528 536
LUUO17 528 536
LUUO2 528 530
LUUO20 528 537
LUUO21 528 537
LUUO22 528 538
LUUO23 528 538
LUUO24 528 539
LUUO25 528 539
LUUO26 528 540
LUUO27 528 540
LUUO3 528 530
LUUO30 528 541
LUUO31 528 541
LUUO32 528 542
LUUO33 528 542
LUUO4 528 531
LUUO5 528 531
LUUO6 528 532
LUUO7 528 532
LUUOI 395#
M179 5767 5770 5776#
M180 5831 5837#
M192 6314 6320#
MAPNEW 549#
MARGIN 471#
MATPOF 918# 918 943# 943 6429
MCNVER 6# 11 26 443
MD162A 5432 5440#
MD162B 5438 5446#
ME 37# 1365 1366 1374 1375 1391 1392 1399 1400 1408 1418 1426 1433 2414
2426 5099 5132 5154 5175 5189 5203 5216 5231 5247 5325
MEMLOW 551#
MEMMAP 449 SEQ 0161
MEMSIZ 552#
MEMTOT 550#
MINUS 593#
MOD 919#
MOD1 951 956 959#
MOD10 1025#
MOD100 3992#
MOD101 4026#
MOD102 4024 4101#
MOD103 4116#
MOD104 4251#
MOD105 4269#
MOD106 4267 4339#
MOD107 4346#
MOD108 4460#
MOD109 4588#
MOD11 1027 1033#
MOD110 4624#
MOD111 4622 4704#
MOD115 4709#
MOD116 4730#
MOD117 4748#
MOD118 4769#
MOD119 4793#
MOD12 1040#
MOD120 4767 4852#
MOD121 4863#
MOD122 4878#
MOD123 4893#
MOD124 4909#
MOD125 4931#
MOD127 4946#
MOD128 4961#
MOD129 4976#
MOD13 1042 1047#
MOD130 4991#
MOD131 5016#
MOD132 5035#
MOD133 5058#
MOD134 5081#
MOD135 5095#
MOD136 5109 5113#
MOD137 5128#
MOD14 1053#
MOD140 5150#
MOD141 5166#
MOD142 5184#
MOD143 5199#
MOD144 5212#
MOD145 5227#
MOD147 5242#
MOD148 5267#
MOD149 5280# SEQ 0162
MOD15 1055 1060#
MOD150 5293#
MOD151 5319#
MOD152 5337#
MOD153 5338 5340 5347#
MOD154 5357#
MOD16 1066#
MOD160 5376#
MOD161 5418#
MOD162 5432#
MOD163 5460#
MOD164 5481#
MOD165 5508#
MOD166 5531#
MOD167 5557#
MOD17 1068 1073#
MOD170 5575#
MOD171 5595#
MOD172 5616#
MOD173 5637#
MOD174 5657#
MOD175 5677#
MOD176 5697#
MOD177 5717#
MOD178 5737#
MOD179 5760#
MOD18 1080#
MOD180 5823#
MOD181 5983#
MOD182 6026#
MOD185 6262#
MOD186 6263 6266 6272#
MOD18A 5862#
MOD19 1217#
MOD190 6284#
MOD191 6288 6290 6299#
MOD192 6309#
MOD195 5358 6325#
MOD196 6326 6337#
MOD197 6336 6374 6432#
MOD19A 1219 1224#
MOD19B 6348 6357#
MOD19X 6347#
MOD2 966#
MOD20 1230#
MOD200 944 6378#
MOD20A 1232 1237#
MOD21 1244#
MOD21A 1246 1251#
MOD22 1258#
MOD22A 1260 1265#
MOD23 1272#
MOD23A 1274 1279# SEQ 0163
MOD24 1287#
MOD24A 1289 1294#
MOD25 1301#
MOD26 1306#
MOD27 1308#
MOD28 1316 1323#
MOD29 1329#
MOD3 968 974#
MOD30 1338#
MOD31 1347#
MOD32 1356#
MOD33 1365#
MOD34 1374#
MOD35 1407#
MOD36 1417#
MOD37 1425#
MOD38 1432#
MOD39 1439#
MOD4 981#
MOD40 1448#
MOD41 1457#
MOD42 1466#
MOD43 1475#
MOD44 1484#
MOD45 1493#
MOD46 1502#
MOD47 1509#
MOD48 1515#
MOD5 983 987 990#
MOD50 1523#
MOD51 1552#
MOD52 1584#
MOD53 1616#
MOD54 1659#
MOD55 1698#
MOD56 1736#
MOD57 1771#
MOD58 1803#
MOD59 1841#
MOD6 997#
MOD60 1881#
MOD7 999 1004#
MOD70 1914#
MOD71 1967#
MOD72 1980#
MOD73 2097#
MOD74 2218#
MOD75 2099 2392#
MOD76 2396#
MOD77 2433#
MOD78 2487#
MOD79 2592#
MOD8 1011# SEQ 0164
MOD80 2851#
MOD81 2897#
MOD82 2963#
MOD83 2999#
MOD85 3141#
MOD86 3281#
MOD87 3422#
MOD88 3542#
MOD89 3572#
MOD9 1013 1019#
MOD90 3570 3637#
MOD91 3656#
MOD92 3688#
MOD93 3686 3759#
MOD94 3777#
MOD95 3809#
MOD96 3807 3865#
MOD97 3883#
MOD98 3913#
MOD99 3911 3978#
MODDVC 143#
MODDVL 341 341# 444
MODDVU 342 342# 445
MODLNK 162# 408
MODXX1 5787#
MODXX2 5808#
MONCTL 461# 860 931 932 938 939
MONFLG 460# 805
MONTEN 462# 810 846 875
MPVU 395#
NONEX 51# 5842 6051 6080 6109 6138 6167 6196 6225 6254
NOPNT 131#
NXMU 395#
OPRSEL 145#
OPTIME 563#
P 188 189 190 191 395# 483
PAG 395#
PALERS 137#
PARCLR 395#
PARDIS 395#
PAREA1 66# 439
PAREA2 67# 440
PAREA3 68# 437
PAREA4 69# 438
PAREA5 70# 450
PAREA6 71# 451
PAREA7 450#
PAREA8 451#
PARENB 395#
PARU 395#
PASCNT 465# 839
PDISF 560#
PDLOVU 395# SEQ 0165
PERIOD 590#
PFSTRT 417#
PGMEND 74# 6628
PGMNAM 442 892# 911
PI 852 928 1439 1842 1857 1858 1864 1865 1881 1882 1883 1889 1890 1891
1897 1898 1899 1905 1906 1908 1917 1919 1970 1972 1973 1982 1984 1985
1993 1995 1996 1997 2005 2007 2008 2009 2017 2019 2020 2028 2030 2031
2032 2040 2042 2043 2051 2053 2054 2055 2063 2065 2066 2067 2075 2077
2078 2086 2088 2089 2090 2103 2105 2106 2114 2116 2117 2118 2126 2128
2129 2130 2138 2140 2141 2149 2151 2152 2153 2161 2163 2164 2172 2174
2175 2176 2184 2186 2187 2188 2196 2198 2199 2207 2209 2210 2211 2220
2222 2223 2231 2233 2234 2235 2243 2245 2246 2247 2255 2257 2258 2266
2268 2269 2270 2278 2280 2281 2289 2291 2292 2293 2301 2303 2304 2305
2313 2315 2316 2324 2326 2327 2328 2336 2338 2339 2347 2349 2350 2351
2359 2361 2362 2363 2371 2373 2374 2382 2384 2385 2386 2394 2398 2400
2401 2402 2411 2413 2415 2423 2425 2427 2435 2437 2438 2439 2447 2449
2450 2451 2459 2461 2462 2470 2472 2473 2474 2497 2499 2500 2510 2512
2513 2523 2525 2526 2536 2538 2539 2549 2551 2552 2562 2564 2565 2575
2577 2578 2602 2604 2605 2615 2617 2618 2628 2630 2631 2641 2643 2644
2654 2656 2657 2667 2669 2670 2680 2682 2683 2707 2709 2711 2723 2725
2727 2739 2741 2743 2755 2757 2759 2771 2773 2775 2787 2789 2791 2803
2805 2807 2835 2838 2853 2856 2865 2868 2877 2879 2888 2890 2899 2901
2911 2913 2923 2925 2935 2937 2947 2949 2966 2969 2979 2982 2983 3008
3010 3011 3012 3025 3027 3028 3029 3042 3044 3045 3046 3059 3061 3062
3063 3076 3078 3079 3080 3093 3095 3096 3097 3110 3112 3113 3114 3150
3152 3154 3167 3169 3171 3184 3186 3188 3201 3203 3205 3218 3220 3222
3235 3237 3239 3252 3254 3256 3289 3291 3293 3306 3308 3310 3323 3325
3327 3340 3342 3344 3357 3359 3361 3374 3376 3378 3391 3393 3395 3431
3433 3435 3449 3451 3453 3467 3469 3471 3485 3487 3489 3503 3505 3507
3521 3523 3525 3546 3548 3549 3559 3561 3562 3576 3578 3579 3589 3591
3592 3602 3604 3605 3615 3617 3618 3628 3630 3631 3639 3660 3663 3674
3677 3692 3695 3706 3709 3720 3723 3734 3737 3748 3751 3761 3781 3784
3795 3798 3813 3816 3827 3830 3841 3844 3855 3858 3867 3886 3889 3899
3902 3916 3919 3929 3932 3942 3945 3955 3958 3968 3971 3980 3996 3998
3999 4001 4011 4013 4014 4016 4030 4032 4033 4035 4045 4047 4048 4050
4060 4062 4063 4065 4075 4077 4078 4080 4090 4092 4093 4095 4103 4126
4128 4129 4143 4145 4146 4160 4162 4163 4177 4179 4180 4194 4196 4197
4211 4213 4214 4228 4230 4231 4254 4256 4257 4259 4272 4274 4275 4277
4286 4288 4289 4291 4300 4302 4303 4305 4314 4316 4317 4319 4328 4330
4331 4333 4341 4356 4358 4359 4369 4371 4372 4382 4384 4385 4395 4397
4398 4408 4410 4411 4421 4423 4424 4434 4436 4437 4471 4477 4488 4494
4505 4511 4522 4528 4539 4545 4556 4562 4573 4579 4591 4597 4598 4607
4613 4614 4627 4633 4634 4643 4649 4650 4659 4665 4666 4675 4681 4682
4691 4697 4698 4706 4712 4715 4716 4732 4740 4750 4758 4771 4779 4796
4803 4854 4865 4868 4880 4883 4895 4898 4911 4914 4933 4935 4948 4950
4963 4965 4968 4978 4981 4983 4993 5002 5018 5026 5037 5039 5052 5060
5062 5075 5084 5088 5097 5102 5115 5120 5130 5135 5140 5142 5152 5157
5169 5173 5178 5187 5191 5192 5201 5205 5206 5214 5219 5220 5229 5234
5245 5252 5254 5270 5274 5282 5286 5296 5301 5317 5321 5329 5436 5462
5483 5515 5538 5559 5577 5597 5618 5623 5659 5679 5699 5719 5739 5762
5773 5790 5810 5825 5830 5864 5885 5903 5919 5935 5952 5968 6033 6039
6062 6068 6091 6097 6120 6126 6149 6155 6178 6184 6207 6213 6236 6242
6286 6294 6312 6350 6380 6402 6424 6425 SEQ 0166
PI7SYS 935# 935 2098# 2098 3569# 3569 3685# 3685 3806# 3806 3910# 3910 4023# 4023
4266# 4266 4621# 4621 4766# 4766
PICHN1 395#
PICHN2 395#
PICHN3 395#
PICHN4 395#
PICHN5 395#
PICHN6 395#
PICHN7 395#
PICHNA 395#
PICLR 395#
PIG0 38# 4715 4740 4758 4779 4803 4868 4883 4898 4914 4935 4950 4965 4981
5002 5026
PIH1 39#
PIH2 40#
PIH3 41#
PIH4 42#
PIH5 43#
PIH6 44#
PIH7 45#
PIOCLR 47# 1996 2031 2054 2089 2117 2152 2175 2210 2234 2269 2292 2327 2350
2385 2426
PIOFF 395#
PION 395#
PIOSET 46# 1972 1984 1995 2007 2019 2030 2042 2053 2065 2077 2088 2105 2116
2128 2140 2151 2163 2174 2186 2198 2209 2222 2233 2245 2257 2268 2280
2291 2303 2315 2326 2338 2349 2361 2373 2384 2400 2413 2425 4358 4371
4384 4397 4410 4423 4436 4597 4613 4633 4649 4665 4681 4697 5252 5773
5830 6039 6068 6097 6126 6155 6184 6213 6242
PIREQ 48# 2604 2617 2630 2643 2656 2669 2682 2709 2725 2741 2757 2773 2789
2805 2838 2856 2868 2879 2890 2901 2913 2925 2937 2949 2969 2982 3010
3027 3044 3061 3078 3095 3112 3152 3169 3186 3203 3220 3237 3254 3291
3293 3308 3310 3325 3327 3342 3344 3359 3361 3376 3378 3393 3395 3433
3435 3451 3453 3469 3471 3487 3489 3505 3507 3523 3525 3548 3561 3578
3591 3604 3617 3630 3663 3677 3695 3709 3723 3737 3751 3784 3798 3816
3830 3844 3858 3889 3902 3919 3932 3945 3958 3971 3998 4013 4032 4047
4062 4077 4092 4128 4145 4162 4179 4196 4213 4230 4256 4257 4274 4275
4288 4289 4302 4303 4316 4317 4330 4331 5039 5062 5088 5102 5120 5135
5142 5157 5173 5191 5205 5219 5234 5254 5274 5286 5301 5329 5623 6294
6425
PISAV 928# 928
PLIST 629# 629
PLISTE 629 631# 715
PLISTS 630#
PLUS 595#
PNTENB 559#
PNTEXT 438#
PNTFLG 558#
PNTINH 561#
PNTLPT 132#
PNTNAM 437#
PNTSPC 562#
POINTR 6351 6376# SEQ 0167
PROT 50# 5837 5848 6046 6075 6104 6133 6162 6191 6220 6249
PVPAGI 656#
PWFCLR 395#
QUEST 601#
RADIX 604#
RADLSC 606#
RADLSP 605#
RANDBS 439#
REENTR 419#
RELIAB 139#
REPT 395#
REPT1 395#
REPTU 517#
REQSET 395#
RESRT1 494#
RESRT2 495#
RETURN 426# 848 855 876
RSTART 128#
RTP 599#
RUNFLG 466#
SADR1 55# 415
SADR10 64# 431
SADR11 65# 432
SADR2 56# 417
SADR3 57# 419
SADR4 58#
SADR5 59# 480
SADR6 60# 481
SADR7 61# 428
SADR8 62# 429
SADR9 63# 430
SAV40 919 5984 5985 5996#
SAV41 921 5987 5988 5997#
SAV42 923 5990 5991 5998#
SAV43 925 5993 5994 5999#
SBINIT 201 425#
SCOPE 518#
SFSTRT 415#
SLASH 602#
SPACE 591#
SRTDDT 421#
ST 918#
START 55 56 57 58 59 60 61 62 63 64 65 409 808 817
832 836 905#
START1 428#
START2 429#
START3 430#
START4 431#
START5 432#
STARTA 424 834 845 854 861 871 910 917#
SUBLNK 163# 425
SWTEXR 440#
SYSEXR 413# SEQ 0168
TAB 592#
TESTPC 467#
TICKS 470#
TOTALS 129#
TTNBRF 650#
TTYFIL 566#
TTYSPD 567#
TXTINH 140#
UMIOT 52# 5379 5385 5389 5396 5398 5411 5438 5464 5485 5517 5562 5564 5599
5620 5701 5835 5866 5887 5905 5921 5937 5954 6293 6382 6404
USER 457# 801 804 806 807 841 905# 905 908 909
USERF 34# 395# 803 907 5423 5438 5451 5464 5475 5485 5490 5517 5520 5542
5561 5562 5579 5599 5620 5625 5643 5646 5661 5681 5701 5802 5814 5835
5866 5877 5887 5893 5905 5911 5921 5927 5937 5943 5954 5960 5970 5975
6277 6293 6382 6393 6404
USMOD 941# 941 5357# 5357
USRASB 447
USRCRF 576#
USRLFF 575#
UUODIS 529#
UUOEXT 485#
UUORTN 486#
UUOSKP 483#
WW 4113# 4135 4136 4136# 4152 4153 4153# 4169 4170 4170# 4186 4187 4187# 4203
4204 4204# 4220 4221 4221# 4237 4238 4238#
X 6006# 6036 6057 6057# 6065 6086 6086# 6094 6115 6115# 6123 6144 6144# 6152
6173 6173# 6181 6202 6202# 6210 6231 6231# 6239 6260 6260#
YY 2998# 3012 3019 3019# 3029 3036 3036# 3046 3053 3053# 3063 3070 3070# 3080
3087 3087# 3097 3104 3104# 3114 3121 3121# 3140# 3154 3161 3161# 3171 3178
3178# 3188 3195 3195# 3205 3212 3212# 3222 3229 3229# 3239 3246 3246# 3256
3263 3263# 3421# 3435 3443 3443# 3453 3461 3461# 3471 3479 3479# 3489 3497
3497# 3507 3515 3515# 3525 3533 3533# 4115# 4129 4135 4135# 4146 4152 4152#
4163 4169 4169# 4180 4186 4186# 4197 4203 4203# 4214 4220 4220# 4231 4237
4237# 4345# 4359 4365 4365# 4372 4378 4378# 4385 4391 4391# 4398 4404 4404#
4411 4417 4417# 4424 4430 4430# 4437 4443 4443# 4459# 4477 4483 4483# 4494
4500 4500# 4511 4517 4517# 4528 4534 4534# 4545 4551 4551# 4562 4568 4568#
4579 4585 4585#
ZZ 1079# 1092 1098 1098# 1105 1111 1111# 1118 1124 1124# 1131 1137 1137# 1144
1150 1150# 1157 1163 1163# 1170 1176 1176# 1183 1189 1189# 1196 1202 1202#
1209 1215 1215# 2699# 2709 2718 2718# 2725 2734 2734# 2741 2750 2750# 2757
2766 2766# 2773 2782 2782# 2789 2798 2798# 2805 2814 2814# 2997# 3010 3018
3018# 3027 3035 3035# 3044 3052 3052# 3061 3069 3069# 3078 3086 3086# 3095
3103 3103# 3112 3120 3120# 3139# 3152 3160 3160# 3169 3177 3177# 3186 3194
3194# 3203 3211 3211# 3220 3228 3228# 3237 3245 3245# 3254 3262 3262# 3280#
3291 3293 3300 3300# 3308 3310 3317 3317# 3325 3327 3334 3334# 3342 3344
3351 3351# 3359 3361 3368 3368# 3376 3378 3385 3385# 3393 3395 3402 3402#
3420# 3433 3442 3442# 3451 3460 3460# 3469 3478 3478# 3487 3496 3496# 3505
3514 3514# 3523 3532 3532# 4114# 4128 4137 4137# 4145 4154 4154# 4162 4171
4171# 4179 4188 4188# 4196 4205 4205# 4213 4222 4222# 4230 4239 4239# 4344#
4358 4364 4364# 4371 4377 4377# 4384 4390 4390# 4397 4403 4403# 4410 4416
4416# 4423 4429 4429# 4436 4442 4442# 4458# 4476 4482 4482# 4493 4499 4499#
4510 4516 4516# 4527 4533 4533# 4544 4550 4550# 4561 4567 4567# 4578 4584
4584# SEQ 0169
$$420 775#
$$421 776#
$$422 777#
$$423 778#
$$424 779#
$$425 780#
$$426 781#
$$427 782#
$$430 783#
$$431 784#
$$432 785#
$$433 786#
$$434 787#
$$435 788#
$$436 789#
$$437 790#
$$500 793#
$$501 794#
$$502 795#
$$503 796#
$$BEGI 761#
$$DTE0 827 866#
$$DTE1 828 868#
$$DTE2 829 882#
$$DTE3 830 884#
$$LOC 758# 797
$$MUUO 681#
$$OUTE 687#
$$STAR 761 762 801#
$$TAX1 699#
$$TAX2 700#
$$TOGG 693#
$$UUO 670#
$ACC0 508#
$BEGEN 770#
$BEND1 478#
$BEND2 479#
$CHRIN 569#
$CRLF 571#
$DDT 739#
$DEVCH 395#
$DSKUP 448#
$DTCHR 751#
$DTCI 745#
$DTCLK 744# 825
$DTCMD 748# 863 879
$DTF11 747#
$DTFLG 743# 824 864 869 880 885
$DTMTD 752#
$DTMTI 753#
$DTOPR 750# 826
$DTSEQ 749#
$DTSWR 755# SEQ 0170
$DTT11 746#
$DVCH1 395#
$DVOFF 565#
$EMODE 446#
$ENDFX 715# 716
$FFF 573#
$IBUF 621#
$INEXT 623#
$INNM 622#
$ITRHL 489#
$ITRX1 490#
$LPAPE 6616
$MMAP 449#
$MODVL 444#
$MODVU 445#
$OBUF 612#
$ONETM 472#
$OUTEX 614#
$OUTNM 613#
$PAPER 395
$PARER 496#
$PNAME 442#
$PSHER 500#
$PVER 443#
$RSRTX 492#
$RSRTY 493#
$SPAG1 512#
$SPB1 835 841#
$SPBEN 770 839#
$SPBEX 842 850#
$SPBKL 851 857#
$SPBUS 844#
$SPEC 767 834#
$SPKLD 858 875#
$START 409#
$STD 738# 765#
$STKIL 810#
$STKL 819#
$STL 740#
$STM 741# 767#
$SVAPR 510#
$SVPAG 511#
$SVPI 509#
$SVUPC 515#
$SVUUO 514#
$TABF 572#
$TTCHR 568#
$TWCNT 564#
$TYPNB 570#
$UMODE 447#
$UORTX 487#
$USRHL 491#
$UUOER 488# 529 SEQ 0171
$VTF 574#
%ACTFL 521#
%ACTUL 522#
%COREC 520#
%CORFL 519#
%DISCR 523#
%ERHI1 662#
%ERHI2 663#
%ERHI3 664#
.JB41 395#
.JBAPR 395#
.JBCNI 395#
.JBDDT 395#
.JBFF 395#
.JBOPC 395#
.JBREL 395#
.JBREN 395#
.JBSA 395#
.JBSYM 395#
.JBTPC 395#
.JBUSY 395#
.JBUUO 395#
.JBVER 395#
BLURB 1931# 2487 2592 2845 2957 3125 3274 3413 3650 3771 3877 4723 4787 4857
4925 5010 SEQ 0172
CFLUSH 312#
CHANEL 97# 2097 3568 3684 3805 3909 4022 4265 4620 4765
CINVAL 311#
CLEAN 113# 1914 1967 1980 1991 2003 2015 2026 2038 2049 2061 2073 2084 2101
2112 2124 2136 2147 2159 2170 2182 2194 2205 2218 2229 2241 2253 2264
2276 2287 2299 2311 2322 2334 2345 2357 2369 2380 2392 2396 2408 2421
2433 2445 2457 2468 2495 2508 2521 2534 2547 2560 2573 2600 2613 2626
2639 2652 2665 2678 2705 2721 2737 2753 2769 2785 2801 2832 2851 2863
2875 2886 2897 2909 2921 2933 2945 2963 2977 3006 3023 3040 3057 3074
3091 3108 3148 3165 3182 3199 3216 3233 3250 3287 3304 3321 3338 3355
3372 3389 3429 3447 3465 3483 3501 3519 3544 3557 3574 3587 3600 3613
3626 3637 3658 3672 3690 3704 3718 3732 3746 3759 3779 3793 3811 3825
3839 3853 3865 3884 3897 3914 3927 3940 3953 3966 3978 3994 4009 4028
4043 4058 4073 4088 4101 4124 4141 4158 4175 4192 4209 4226 4252 4270
4284 4298 4312 4326 4339 4354 4367 4380 4393 4406 4419 4432 4469 4486
4503 4520 4537 4554 4571 4589 4605 4625 4641 4657 4673 4689 4704 4709
4730 4748 4769 4793 4852 4863 4878 4893 4909 4931 4946 4961 4976 4991
5016 5035 5058 5081 5095 5113 5128 5137 5150 5166 5184 5199 5212 5227
5242 5267 5280 5293 5315 5319
CLOKOP 306#
CPINTR 4445# 4473 4490 4507 4524 4541 4558 4575 4593 4609 4629 4645 4661 4677
4693 4734 4752 4773 4798
CWRTBI 313#
DROPDV 273#
ENDUUO 319# 477
EOPUUO 320# 479
ERLOOP 364#
ERLP1 365#
ERLP2 366#
ERRHLT 208#
ERROR 373#
ERROR1 385#
ERUUO 363#
EXCT 5854# 5867 5872 5888 5906 5922 5938 5955
EXIT 847
FASTPI 4242# 4251 4269 4283 4297 4311 4325
FATAL 207#
FILAC 2816# 2824
FRD36 348#
FRD8 349#
FREAD 347#
FSELEC 346#
GET 191#
GO 188#
HALT 193# 498 775 777 778 782 796 887 915 962 977 993 1007 1021
1036 1049 1062 1075 1095 1108 1121 1134 1147 1160 1173 1186 1199 1212
1226 1240 1254 1268 1283 1297 1325 1334 1343 1352 1361 1370 1379 1387
1395 1403 1414 1422 1429 1436 1445 1453 1462 1471 1480 1489 1498 1506
1512 1520 1528 1535 1542 1549 1556 1564 1572 1580 1588 1596 1604 1612
1621 1630 1638 1646 1654 1665 1675 1684 1694 1704 1714 1723 1732 1741
1749 1756 1767 1777 1788 1799 1811 1819 1829 1837 1845 1853 1860 1867
1877 1885 1893 1901 1910 1923 1976 1987 1999 2011 2022 2034 2045 2057
2069 2080 2092 2108 2120 2132 2143 2155 2166 2178 2190 2201 2213 2225 SEQ 0173
2237 2249 2260 2272 2283 2295 2307 2318 2330 2341 2353 2365 2376 2388
2404 2417 2430 2442 2454 2465 2477 2502 2515 2528 2541 2554 2567 2580
2607 2620 2633 2646 2659 2672 2685 2714 2730 2746 2762 2778 2794 2810
2842 2860 2872 2883 2894 2905 2917 2929 2941 2953 2973 2986 3014 3031
3048 3065 3082 3099 3116 3156 3173 3190 3207 3224 3241 3258 3296 3313
3330 3347 3364 3381 3398 3438 3456 3474 3492 3510 3528 3551 3564 3581
3594 3607 3620 3633 3666 3680 3698 3712 3726 3740 3754 3787 3801 3819
3833 3847 3861 3892 3905 3922 3935 3948 3961 3974 4003 4018 4037 4052
4067 4082 4097 4131 4148 4165 4182 4199 4216 4233 4261 4279 4293 4307
4321 4335 4361 4374 4387 4400 4413 4426 4439 4479 4496 4513 4530 4547
4564 4581 4600 4616 4636 4652 4668 4684 4700 4719 4744 4762 4783 4807
4814 4821 4828 4835 4842 4849 4874 4889 4905 4921 4942 4957 4972 4987
5007 5032 5055 5078 5092 5106 5124 5146 5162 5180 5195 5208 5223 5238
5257 5263 5276 5288 5306 5312 5332 5344 5348 5353 5381 5391 5400 5407
5414 5665 6333 6343 6427
HOLD 5371# 5424 5440 5452 5476 5491 5521 5543 5565 5585 5606 5626 5647 5667
5687 5707 5727 5747 5777 5796 5803 5818 5838 5843 5849 5878 5894 5912
5928 5944 5961 5976 6047 6052 6076 6081 6105 6110 6134 6139 6163 6168
6192 6197 6221 6226 6250 6255 6272 6278 6295 6299 6321 6358 6363 6369
6388 6394 6410
IOBRQ 4450# 4588 4604 4624 4640 4656 4672 4688
JEN 195# 5685
JENOK 3983# 3992 4007 4026 4041 4056 4071 4086
JRSTF 194#
LAC 6008# 6030 6059 6088 6117 6146 6175 6204 6233
MAPADR 329#
MAPCNK 330#
MAPMEM 326#
MAPPNT 332#
MAPSET 331#
MEMSEG 328#
MEMZRO 327#
MODPCP 339#
MODPCU 338#
MTROP 307#
MULPIR 3869# 3883 3896 3913 3926 3939 3952 3965
NAME 9# 11
NOTPIR 2481# 2494 2507 2520 2533 2546 2559 2572
NOTREQ 2585# 2599 2612 2625 2638 2651 2664 2677
OFFPIR 3131# 3147 3164 3181 3198 3215 3232 3249
ONEPIH 4106# 4123 4140 4157 4174 4191 4208 4225
OUTSTR 912
PBELL 282#
PCRL 276#
PCRL2 280#
PCRL2F 281#
PCRLF 277#
PFORCE 284#
PGMINT 201#
PIADDR 3642# 3656 3670 3688 3702 3716 3730 3744
PIHCLR 2989# 3005 3022 3039 3056 3073 3090 3107
PIHOK 3405# 3428 3446 3464 3482 3500 3518
PIO 1938# 1980 2038 2101 2159 2218 2276 2334 SEQ 0174
PIRCLR 2690# 2704 2720 2736 2752 2768 2784 2800
PJRST 192#
PMSG 286#
PMSGF 289#
PNT1 242#
PNT11 256#
PNT11F 257#
PNT1F 243#
PNT2 244#
PNT2F 245#
PNT3 246#
PNT3F 247#
PNT4 248#
PNT4F 249#
PNT5 250#
PNT5F 251#
PNT6 252#
PNT6F 253#
PNT7 254#
PNT7F 255#
PNTA 228#
PNTADF 259#
PNTADR 258#
PNTAF 229#
PNTAL 230#
PNTALF 231#
PNTCHF 241#
PNTCHR 240#
PNTCI 238#
PNTCIF 239#
PNTCW 274#
PNTCWF 275#
PNTDCF 267#
PNTDEC 266#
PNTDS 268#
PNTDSF 269#
PNTHW 262#
PNTHWF 263#
PNTMGN 353#
PNTMSF 235#
PNTMSG 234#
PNTNM 270#
PNTOCF 265#
PNTOCS 264#
PNTOCT 260#
PNTOTF 261#
PNTSIX 271#
PNTSXF 272#
PSIXL 232#
PSIXLF 233#
PSIXM 236#
PSIXMF 237#
PSP 278# SEQ 0175
PSPF 279#
PUT 190#
REPTUO 367#
RETURN 104# 949 966 981 997 1011 1025 1040 1053 1066 1087 1100 1113 1126
1139 1152 1165 1178 1191 1204 1217 1230 1244 1258 1272 1287 1314
RTN 189# 485
S 119# 121 125 154 156 165 168 183 184 186 197 199 203 205
210 214 359 361 395 400 406 433 435 453 455 473 475 504
506 524 526 544 546 554 556 577 582 608 610 617 619 625
627 633 635 639 641 646 648 652 654 658 660 666 668 671
673 677 679 683 685 689 691 695 697 702 707 711 713
SETPIH 3536# 3542 3555 3572 3585 3598 3611 3624
SFLAG 89# 1308 4995 5020
SIXBTZ 295#
STOP 81# 960 975 991 1005 1020 1034 1048 1061 1074 1094 1107 1120 1133
1146 1159 1172 1185 1198 1211 1225 1239 1253 1267 1281 1296 1323 1333
1341 1350 1359 1368 1377 1385 1393 1402 1412 1421 1427 1435 1443 1452
1461 1470 1479 1488 1497 1505 1511 1518 1526 1534 1541 1548 1555 1563
1571 1579 1587 1595 1603 1611 1619 1628 1637 1645 1653 1663 1673 1683
1692 1702 1712 1722 1731 1739 1747 1754 1765 1775 1786 1797 1809 1817
1827 1835 1844 1852 1859 1866 1875 1884 1892 1900 1909 1921 1974 1986
1998 2010 2021 2033 2044 2056 2068 2079 2091 2107 2119 2131 2142 2154
2165 2177 2189 2200 2212 2224 2236 2248 2259 2271 2282 2294 2306 2317
2329 2340 2352 2364 2375 2387 2403 2416 2428 2440 2452 2463 2475 2501
2514 2527 2540 2553 2566 2579 2606 2619 2632 2645 2658 2671 2684 2713
2729 2745 2761 2777 2793 2809 2840 2858 2870 2881 2892 2903 2915 2927
2939 2951 2971 2984 3013 3030 3047 3064 3081 3098 3115 3155 3172 3189
3206 3223 3240 3257 3295 3312 3329 3346 3363 3380 3397 3437 3455 3473
3491 3509 3527 3550 3563 3580 3593 3606 3619 3632 3665 3679 3697 3711
3725 3739 3753 3786 3800 3818 3832 3846 3860 3891 3904 3921 3934 3947
3960 3973 4002 4017 4036 4051 4066 4081 4096 4130 4147 4164 4181 4198
4215 4232 4260 4278 4292 4306 4320 4334 4360 4373 4386 4399 4412 4425
4438 4478 4495 4512 4529 4546 4563 4580 4599 4615 4635 4651 4667 4683
4699 4717 4742 4760 4781 4805 4812 4819 4826 4833 4840 4847 4872 4888
4903 4919 4940 4955 4970 4985 5005 5030 5053 5076 5090 5104 5122 5144
5160 5179 5193 5207 5221 5236 5256 5261 5275 5287 5304 5310 5331 5343
5347 5352 5380 5390 5399 5406 5413 6332 6342
SWITCH 301#
TSTREQ 3265# 3286 3303 3320 3337 3354 3371 3388
TTALTM 223#
TTICHR 216#
TTICNV 221#
TTIDEC 220#
TTINO 218#
TTIOCT 219#
TTIYES 217#
TTLOOK 222#
TTSIXB 224#
TTYINP 225#
TWOPIR 3764# 3777 3791 3809 3823 3837 3851
UMOFF 5365# 5418 5446 5465 5470 5495 5508 5525 5531 5547 5569 5589 5610 5651
5671 5691 5711 5731 5751 5781 6303
UMON 5360# 5434 5460 5481 5513 5536 5557 5575 5595 5616 5657 5677 5697 5717 SEQ 0176
5737 5760 5787 5808 5823 5862 5883 5901 5917 5933 5950 5966 6031 6060