7091 lines
305 KiB
Text
7091 lines
305 KiB
Text
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
|