Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dskah.seq
There are no other files named dskah.seq in the archive.
;DSKAH
IDENTIFICATION
--------------
PRODUCT CODE: AH-E311A-DD
DIAGNOSTIC CODE: DSKAH
PRODUCT NAME: DSKAHA0 DECSYSTEM 2020 BASIC
INSTRUCTION DIAGNOSTIC (8)
VERSION: 0.1
DATE RELEASED: MARCH 1978
MAINTAINED BY: DIAGNOSTIC ENGINEERING
AUTHOR: JOHN R. KIRCHOFF
COPYRIGHT (C) 1978
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE
SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUIPMENT
CORPORATION.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
SUPPLIED BY DIGITAL EQUIPMENT CORPORATION.
MAINDEC-10-DSKAH.TXT
PAGE 2 SEQ 0003
TABLE OF CONTENTS
-----------------
1.0 ABSTRACT
2.0 REQUIREMENTS
2.1 EQUIPMENT
2.2 STORAGE
2.3 PRELIMINARY PROGRAMS
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
3.2 STARTING PROCEDURE
3.3 OPERATING PROCEDURE
4.0 ERRORS
5.0 ITERATION COUNTER
6.0 CYCLE TIME
7.0 OPERATIONAL VARIATIONS
8.0 MISCELLANEOUS
9.0 LISTING
MAINDEC-10-DSKAH.TXT
PAGE 3 SEQ 0004
1.0 ABSTRACT
THIS DECSYSTEM 2020 KS-10 BASIC INSTRUCTION DIAGNOSTIC IS
THE EIGTH IN A SERIES OF DECSYSTEM 2020 KS-10 PROCESSOR
DIAGNOSTICS. THE DIAGNOSTIC TESTS THE PI SYSTEM,
INTERRUPTS, LUUO'S AND INPUT/OUTPUT.
THE DIAGNOSTIC TESTS THE BASIC FUNCTIONALITY OF THE PROCESSOR
AND MICRO-CODE.
2.0 REQUIREMENTS
2.1 EQUIPMENT
A PDP-10 SM10 WITH A MINIMUM OF 32K OF MEMORY
CONSOLE PROCESSOR
CONSOLE TELETYPE
2.2 STORAGE
THE PROGRAM RUNS WITHIN 32K OF MEMORY.
2.3 PRELIMINARY PROGRAMS
CONSOLE FUNCTIONS WORKING PROPERLY
PREVIOUS PROCESSOR DIAGNOSTICS
MAINDEC-10-DSKAH.TXT
PAGE 4 SEQ 0005
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
LOAD VIA CONSOLE PROCESSOR
3.2 STARTING PROCEDURE
STAND-ALONE STARTING ADDRESS IS 30000.
IF THE DIAGNOSTIC FAILS TO START CORRECTLY TRY STARTING AT THE
FIRST TEST INSTEAD OF AT THE BEGINNING OF THE CONTROL SEQUENCE.
(SEE LISTING).
3.3 OPERATING PROCEDURE
ONCE STARTED THE PROGRAM WILL CYCLE CONTINUALLY UNTIL STOPPED
OR AN ERROR OCCURS.
4.0 ERRORS
ERRORS ARE IN THE FORM OF HALT INSTRUCTIONS. THE LISTING
SHOULD BE CONSULTED TO DETERMINE THE CAUSE OF THE ERROR. A
NO OPERATION (JUMP) INSTRUCTION FOLLOWS EACH HALT. THIS
MAY BE USEFUL IN CONSTRUCTING A SCOPE LOOP TO CYCLE ON THE
FAILING INSTRUCTION.
5.0 ITERATION COUNTER
THE ITERATION COUNT OF THE PROGRAM CAN BE DETERMINED BY
EXAMINING 30047 "PASCNT".
6.0 CYCLE TIME
THE CYCLE TIME OF THE PROGRAM IS IN THE MILLISECOND RANGE AND
IS THEREFORE SUITABLE FOR TAKING MARGINS, VIBRATION TESTS, ETC.
MAINDEC-10-DSKAH.TXT
PAGE 5 SEQ 0006
7.0 OPERATIONAL VARIATIONS
A. DIAGNOSTIC MONITOR
THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PRO-
VIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PRO-
VIDE A QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR
AREA OF THE PROCESSOR. CERTAIN PROCEDURES ARE USED WHEN
THE PROGRAM IS USED IN THIS MANNER. THEY ARE:
1. THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PRO-
GRAM AND STARTS IT AT LOCATION 30002.
2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MON-
ITOR CONTROL FLAG WORD.
B. USER MODE
THE PROGRAM WILL OPERATE IN USER MODE AND AS SUCH PROVIDES
ASSURANCE THAT THE PROCESSOR IS PERFORMING ALL FUNCTIONS
CORRECTLY. USER MODE STARTING ADDRESS IS 30000.
C. SYSTEM EXERCISER
STARTING ADDRESS IS 30003. NO DATA SWITCHES ARE USED BY
THIS PROGRAM.
8.0 MISCELLANEOUS
NONE
9.0 LISTING
HISTORY FILE FOR DSKAH SEQ 0007
----------------------
---------------------------------------------------------------
CODE: MAINDEC-10-DSKAH
TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (8)
VERSION: 0.1
DATE: MARCH 1978
REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10.
---------------------------------------------------------------
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1
DSKAHT MAC 31-Mar-78 10:59 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0008
1 ;DSKAH
2
3
4 000000 MCNVER==0
5 000001 DECVER==1
6
7
8 XLIST
9 LIST
10 LALL
11
12 NAME \MCNVER,\DECVER^
13
14 TITLE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1
15 ^
16
17 ;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE
18 ;AND TO DETECT (SOLID) FAILURES IN THE FIELD.
19
20 ;COPYRIGHT 1978
21 ;DIGITAL EQUIPMENT CORPORATION
22 ;MARLBORO, MASS. 01752
23
24 ;JOHN R. KIRCHOFF
25
26 000137 LOC 137
27 000137 000000 000001 MCNVER,,DECVER
28
29 NOSYM
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 2
DSKAHT MAC 31-Mar-78 10:59 DIAGNOSTIC PARAMETERS SEQ 0009
30 SUBTTL DIAGNOSTIC PARAMETERS
31
32 ;PARAMETER DEFINITIONS
33
34 000001 EXCASB==1
35 000001 PGMEND==1
36 000001 EROLD==1
37
38 ;FLAG DEFINITIONS
39
40 010000 USERF=10000 ;USER MODE FLAG
41
42
43 ;MACROS
44
45 ; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1)
46 ; TO A (JUMPA .-X) TO CYCLE ON FAILING INSTRUCTION
47
48 DEFINE STOP (A)<
49 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
50 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
51 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
52 ;IN THE SUBTEST) TO LOOP ON ERROR>
53
54 ; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET SELECTED FLAG
55
56 DEFINE SFLAG (A)<
57 MOVSI 1,A
58 JFCL 17,.+1 ;RESET ALL FLAGS
59 JRST 2,.+1(1) ;SET A FLAG>
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 3
DSKAHT MAC 31-Mar-78 10:59 DIAGNOSTIC PARAMETERS SEQ 0010
60 ;SPECIAL FEATURE PARAMETERS
61
62 030660 SADR1=STARTA
63 030660 SADR2=STARTA
64 030660 SADR3=STARTA
65 030660 SADR4=STARTA
66 254000 030660 SADR5=JRST STARTA
67 254000 030660 SADR6=JRST STARTA
68 254000 030660 SADR7=JRST STARTA
69 254000 030660 SADR8=JRST STARTA
70 254000 030660 SADR9=JRST STARTA
71 254000 030660 SADR10=JRST STARTA
72 254000 030660 SADR11=JRST STARTA
73
74 000000 PAREA0=0
75 000000 PAREA1=0
76 000000 PAREA2=0
77 446353 415000 PAREA3=SIXBIT/DSKAH/
78 645560 000000 PAREA4=SIXBIT/TMP/
79 000000 PAREA5=0
80 000000 PAREA6=0
81 000001 ITERAT==1
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1
PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0011
82 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978
83
84 DEFINE S,<;*********************************************************************>
85
86 S^;*********************************************************************^
87 ;*DATA SWITCHES
88 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
89 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
90 S^;*********************************************************************^
91
92 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
93 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
94 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
95
96 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
97 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
98 010000 DING== 010000 ;RING BELL ON ERROR
99
100 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
101 002000 ERSTOP==002000 ;HALT ON TEST ERROR
102 001000 PALERS==001000 ;PRINT ALL ERRORS
103
104 000400 RELIAB==000400 ;RELIABILITY MODE
105 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
106 000100 INHPAG==000100 ;INHIBIT PAGING
107
108 000040 MODDVC==000040 ;MODIFY DEVICE CODE
109 000020 INHCSH==000020 ;INHIBIT CACHE
110 000010 OPRSEL==000010 ;OPERATOR SELECTION
111
112 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
113
114 ;SWITCH 16 RESERVED
115
116 ;SWITCH 17 RESERVED !!!
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 2
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0012
117 SUBTTL PROGRAM/SUBROUTINE PARAMETERS
118
119 S^;*********************************************************************^
120 ;*SPECIAL SUBPROGRAM LINKAGES
121 S^;*********************************************************************^
122
123 027772 FSELNK= 27772 ;FILE SELECT LINK
124 027773 FRDLNK= 27773 ;FILE READ LINK
125 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
126 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
127 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
128 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
129
130 S^;*********************************************************************^
131 ;*SPECIAL SUBROUTINE FATAL HALTS
132 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
133 S^;*********************************************************************^
134
135 ;ADDRESS TAG REASON
136 ;---------------------
137
138 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
139 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
140 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
141 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
142 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL
143 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET
144 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
145 ; 1017 EOPERR ;END OF PROGRAM ERROR
146 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
147
148 S^;*********************************************************************^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 3
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0013
149 S^;*********************************************************************^
150 ;OPERATOR DEFINITIONS (NON-UUO'S)
151 S^;*********************************************************************^
152
153 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
154 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
155 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
156 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
157 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
158 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
159 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
160 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
161
162 S^;*********************************************************************^
163 ;*SUBROUTINE INITIALIZATION CALL
164 S^;*********************************************************************^
165
166 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
167
168 S^;*********************************************************************^
169 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
170 S^;*********************************************************************^
171
172 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
173 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
174
175 S^;*********************************************************************^
176 ;*TERMINAL INPUT UUO'S
177 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
178 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
179 S^;*********************************************************************^
180
181 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
182 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
183 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
184 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
185 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
186 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
187 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
188 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
189 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
190 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
191 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 4
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0014
192 ;*TERMINAL OUTPUT UUO'S.
193
194 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
195 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
196 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
197 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
198 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
199 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
200 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
201 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
202 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
203 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
204 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
205 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
206 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
207 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
208 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
209 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
210 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
211 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
212 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
213 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
214 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
215 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
216 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
217 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
218 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
219 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
220 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
221 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
222 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
223 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
224 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
225 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
226 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
227 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
228 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
229 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
230 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
231 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
232 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
233 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
234 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
235 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 5
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0015
236 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
237 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
238 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
239 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
240 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
241 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
242 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
243 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
244 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
245 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
246 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
247 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
248 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
249
250 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
251
252 DEFINE PMSG (ARG),<
253 PSIXM [SIXBIT\ARG'_\]>
254
255 DEFINE PMSGF (ARG),<
256 PSIXMF [SIXBIT\ARG'_\]>
257
258 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
259 ;* CONSERVES CORE OVER ASCIZ
260
261 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
262
263 ;*CONSOLE SWITCH INPUT UUO.
264 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
265 ;* USER MODE.
266
267 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
268
269 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
270 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
271
272 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK
273 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER
274
275 ;*KS-10 CACHE OPERATION UUO'S
276
277 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
278 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
279 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 6
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0016
280 ;*END OF PASS/PROGRAM UUOS
281
282 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
283 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
284
285 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
286 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
287
288 ;*MEMORY MANAGEMENT UUO'S
289 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
290 ;*ADDRESS CONVERSION, ETC...
291
292 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
293 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
294 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
295 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
296 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
297 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
298 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
299
300 ;*DEVICE CODE MODIFICATION UUO
301 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
302 ;*IOT'S TO A DIFFERENT DEVICE CODE.
303
304 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
305 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
306
307 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
308 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
309
310 ;*"DIAMON" FILE SELECTION AND READ UUOS
311
312 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
313 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
314 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
315 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
316
317 XLIST
318 LIST
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0017
319 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978
320
321 030000 LOC 30000
322
323 S^;*********************************************************************^
324 ;*PROGRAM STARTING ADDRESSES
325 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
326 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
327 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
328 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
329 S^;*********************************************************************^
330
331 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
332 030001 254 00 0 00 030631 $START: JRST START ;MODE CHECK STARTING ADDRESS
333
334 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
335
336 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
337
338 030004 254 00 0 00 030660 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
339
340 030005 254 00 0 00 030660 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
341
342 030006 254 00 0 00 030660 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
343
344 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
345 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
346
347 030010 254 00 0 00 030660 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
348 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
349 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
350
351 030013 254000 030660 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
352 030014 254000 030660 START2: SADR8 ; "
353 030015 254000 030660 START3: SADR9 ; "
354 030016 254000 030660 START4: SADR10 ; "
355 030017 254000 030660 START5: SADR11 ; "
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 2
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0018
356 S^;*********************************************************************^
357 ;*PROGRAM FIXED PARAMETER AREA
358 S^;*********************************************************************^
359
360 030020 446353 415000 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
361 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
362 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER
363 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
364 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
365 030025 000000 030644 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
366 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
367 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
368 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
369 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
370 030032 000000 000000 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
371 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
372 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
373 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
374 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
375
376 S^;*********************************************************************^
377 ;*PROGRAM VARIABLE PARAMETER AREA
378 S^;*********************************************************************^
379
380 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
381 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
382 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
383 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
384 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
385 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
386 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
387 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
388 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
389 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
390 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
391 030052 000000 000000 ERRPC: 0 ;ERROR PC
392 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
393 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
394 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
395 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 3
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0019
396 S^;*********************************************************************^
397 ;*SPECIAL PROGRAM DISPATCH ADDRESSES
398 S^;*********************************************************************^
399
400 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
401 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
402 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
403 030062 254000 030660 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
404 030063 254000 030660 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
405 030064 CPOPJ1: ;SKIP RETURN
406 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
407 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
408 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
409 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
410 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
411 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
412 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
413 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
414 030073 255 00 0 00 000000 $USRHL: JFCL ; "
415 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
416 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
417 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
418 030077 255 00 0 00 000000 RESRT2: JFCL ; "
419 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
420 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
421 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
422
423 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
424 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
425 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
426
427 S^;*********************************************************************^
428 ;*PROCESSOR CONTROL STORAGE
429 S^;*********************************************************************^
430
431 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
432 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
433 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
434 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
435 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
436
437 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
438 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
439
440 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
441 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
442 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
443 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
444 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
445 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
446 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 4
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0020
447 S^;*********************************************************************^
448 ;*UUO DISPATCH TABLE
449 S^;*********************************************************************^
450 XLIST
451 LIST
452 030124 030070 030070 UUODIS: LUUO1,,$UUOER
453 030125 030070 030070 LUUO3,,LUUO2
454 030126 030070 030070 LUUO5,,LUUO4
455 030127 030070 030070 LUUO7,,LUUO6
456 030130 030070 030070 LUUO11,,LUUO10
457 030131 030070 030070 LUUO13,,LUUO12
458 030132 030070 030070 LUUO15,,LUUO14
459 030133 030070 030070 LUUO17,,LUUO16
460 030134 030070 030070 LUUO21,,LUUO20
461 030135 030070 030070 LUUO23,,LUUO22
462 030136 030070 030070 LUUO25,,LUUO24
463 030137 030070 030070 LUUO27,,LUUO26
464 030140 030070 030070 LUUO31,,LUUO30
465 030141 030070 030070 LUUO33,,LUUO32
466
467 S^;*********************************************************************^
468 ;*MEMORY MANAGMENT STORAGE
469 S^;*********************************************************************^
470
471 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
472 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
473 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
474 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
475 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
476
477 S^;*********************************************************************^
478 ;*PRINT CONTROL STORAGE
479 S^;*********************************************************************^
480
481 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
482 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
483 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
484 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
485 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
486 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
487 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
488 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
489 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
490 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
491 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
492 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
493 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
494 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
495 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
496 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
497 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
498 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
499 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 5
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0021
500 S^;*********************************************************************^
501 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
502 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
503 ;* MOVEI NAME
504 ;* PNTA ;OR PNTAF
505 S^;*********************************************************************^
506
507 030242 CRLF: ASCII/
508 030242 015 012 000 000 000 /
509 030243 CRLF2: ASCII/
510
511 030243 015 012 015 012 000 /
512 030244 054 000 000 000 000 COMMA: ASCII/,/
513 030245 056 000 000 000 000 PERIOD: ASCII/./
514 030246 040 000 000 000 000 SPACE: ASCII/ /
515 030247 011 000 000 000 000 TAB: ASCII/ /
516 030250 MINUS:
517 030250 055 000 000 000 000 HYPEN: ASCII/-/
518 030251 053 000 000 000 000 PLUS: ASCII/+/
519 030252 052 000 000 000 000 AST: ASCII/*/
520 030253 100 000 000 000 000 ATSIN: ASCII/@/
521 030254 050 000 000 000 000 LFP: ASCII/(/
522 030255 051 000 000 000 000 RTP: ASCII/)/
523 030256 007 0000000000 BELL: BYTE (7) 007
524 030257 077 000 000 000 000 QUEST: ASCII/?/
525 030260 057 000 000 000 000 SLASH: ASCII!/!
526 030261 044 000 000 000 000 DOLLAR: ASCII/$/
527 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
528 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
529 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
530
531 S^;*********************************************************************^
532 ;*USER MODE OUTPUT FILE INFORMATION
533 S^;*********************************************************************^
534
535 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
536 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
537 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
538 030272 BLOCK 2
539
540 S^;*********************************************************************^
541 ;*DISK UPDATE MODE FILE INFORMATION
542 S^;*********************************************************************^
543
544 030274 $IBUF: BLOCK 3
545 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
546 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
547 030301 BLOCK 2
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 6
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0022
548 S^;*********************************************************************^
549 ;*PUSHDOWN LIST CONTROL INFORMATION
550 S^;*********************************************************************^
551
552 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
553 030304 PLISTS: BLOCK 200
554 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
555
556 S^;*********************************************************************^
557 ;*POWER LINE CLOCK FREQUENCY FLAG
558 S^;*********************************************************************^
559
560 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
561
562 S^;*********************************************************************^
563 ;*KL10 CACHE CONTROL FLAGS
564 S^;*********************************************************************^
565
566 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
567 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
568
569 S^;*********************************************************************^
570 ;*NUMBER INPUT DIGIT FLAG
571 S^;*********************************************************************^
572
573 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
574
575 S^;*********************************************************************^
576 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
577 S^;*********************************************************************^
578
579 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
580
581 S^;*********************************************************************^
582 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
583 S^;*********************************************************************^
584
585 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
586 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
587 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
588
589 S^;*********************************************************************^
590 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
591 S^;*********************************************************************^
592
593 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 7
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0023
594 S^;*********************************************************************^
595 ;*USER MODE MONITOR TYPE FLAG
596 S^;*********************************************************************^
597
598 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20
599
600 S^;*********************************************************************^
601 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
602 S^;*********************************************************************^
603
604 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
605
606 S^;*********************************************************************^
607 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
608 S^;*********************************************************************^
609
610 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
611
612 S^;*********************************************************************^
613 ;*"SWITCH" CALL USAGE CONTROL
614 S^;*********************************************************************^
615
616 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
617
618 S^;*********************************************************************^
619 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
620 S^;*********************************************************************^
621
622 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
623 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
624
625 S^;*********************************************************************^
626 ;*SM10 (KS-10) PROCESSOR TYPE FLAG
627 S^;*********************************************************************^
628
629 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10
630
631 S^;*********************************************************************^
632 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
633 S^;*********************************************************************^
634
635 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
636
637 S^;*********************************************************************^
638 ;*SPECIAL FUTURE EXPANSION ROOM
639 S^;*********************************************************************^
640
641 S^;*********************************************************************^
642 ;*END OF FIXED STORAGE
643 S^;*********************************************************************^
644
645 030577 LOC 30577
646 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1
SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0024
647 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978
648
649 000000 AC0= 0
650 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS
651 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS
652 020000 DIAMON= 20000 ;PDP-10 DIAGNOSTIC LOADER START ADDRESS
653
654 ;KS-10 EPT COMMUNICATION AREA
655
656 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS
657 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS
658 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS
659 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS
660
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 2
SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0025
661 ;SPECIAL "FIXED" REASSIGNMENTS
662
663 030600 $$LOC=. ;SAVE CURRENT LOCATION
664
665 030000 LOC 30000
666 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START
667 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS
668
669 000440 LOC 440
670 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD"
671
672 030057 LOC 30057
673 030057 254 00 0 00 030613 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND"
674
675 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP
676
677 000420 LOC 420
678 000420 254 04 0 00 000420 $$420: HALT .
679 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW
680 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW
681 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3
682 000424 000000 000000 $$424: 0 ;MMUO
683 000425 000000 000000 $$425: 0 ;MMUO PC
684 000426 000000 000000 $$426: 0 ;KS-10 PROCESS CONTEXT
685 000427 254 04 0 00 000427 $$427: HALT .
686 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S
687 000431 000000 000427 $$431: 427
688 000432 000000 000427 $$432: 427
689 000433 000000 000427 $$433: 427
690 000434 000000 000427 $$434: 427
691 000435 000000 000427 $$435: 427
692 000436 000000 000427 $$436: 427
693 000437 000000 000427 $$437: 427
694
695 000500 LOC 500
696 000500 000000 000000 $$500: 0 ;KS-10 PAGE FAIL WORD
697 000501 000000 000000 $$501: 0 ;KS-10 PAGE FAIL PC
698 000502 000000 000503 $$502: 503 ;KS-10 PAGE FAIL NEW PC
699 000503 254 04 0 00 000503 $$503: HALT .
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 3
SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0026
700 030600 LOC $$LOC ;RESET CURRENT LOCATION
701
702 ;SPECIAL STARTUP SEQUENCE
703
704 030600 402 00 0 00 030037 $$START:SETZM USER
705 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ?
706 030602 603 00 0 00 010000 TLNE 0,USERF
707 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD
708 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ?
709 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC
710 030606 332 00 0 00 030037 SKIPE USER
711 030607 254 00 0 00 030631 JRST START ;USER MODE, DON'T NEED CPU TYPE
712
713 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ?
714 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER
715 030612 254 00 0 00 030631 JRST START ;KS-10, NO ADDITIONAL SETUP
716
717 ;SPECIAL "BEGEND" ROUTINE
718
719 030613 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT
720 030614 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT
721 030615 336 00 0 00 030037 $SPB1: SKIPN USER
722 030616 254 00 0 00 030624 JRST $SPBEX ;EXEC MODE
723
724 030617 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ?
725 030620 254 00 0 00 030660 JRST STARTA ;NO, KEEP RUNNING
726 030621 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ?
727 030622 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR
728 030623 254 00 1 00 030012 JRST @RETURN ;YES, RETURN TO "DIAMON"
729
730 030624 332 00 0 00 030024 $SPBEX: SKIPE ITRCNT
731 030625 254 00 0 00 030660 JRST STARTA ;NOT COMPLETED YET
732 030626 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ?
733 030627 254 04 0 00 030000 HALT BEGIN ;NO, HALT AT BEGINNING
734 030630 254 00 1 00 030012 JRST @RETURN ;DONE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1
DSKAH1 MAC 31-Mar-78 11:13 DIAGNOSTIC SECTION SEQ 0027
735 SUBTTL DIAGNOSTIC SECTION
736
737 030631 402 00 0 00 030037 START: SETZM USER# ;CLEAR USER CONTROL WORD
738 030632 265 00 0 00 030633 JSP 0,.+1 ;GET FLAGS
739 030633 603 00 0 00 010000 TLNE USERF ;IN USER MODE?
740 030634 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD
741 030635 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE?
742 030636 402 00 0 00 030037 SETZM USER ;YES, CLEAR USER CONTROL WORD
743 030637 336 00 0 00 030037 SKIPN USER
744 030640 254 00 0 00 030660 JRST STARTA
745 030641 331 00 0 00 030043 SKIPL MONCTL
746 030642 051 03 0 00 030644 TTCALL 3,PGMNAM
747 030643 254 00 0 00 030660 JRST STARTA
748
749 030644 PGMNAM: ASCIZ/
750 030644 015 012 104 105 103 DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) [DSKAH]
751 030645 123 131 123 124 105
752 030646 115 055 062 060 062
753 030647 060 040 102 101 123
754 030650 111 103 040 111 116
755 030651 123 124 122 125 103
756 030652 124 111 117 116 040
757 030653 104 111 101 107 116
758 030654 117 123 124 111 103
759 030655 040 050 070 051 040
760 030656 133 104 123 113 101
761 030657 110 135 015 012 000 /
762
763 ;BASIC INSTRUCTION TEST (8)
764 ;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF
765 ;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES
766 ;IN THE FIELD.
767
768
769 030660 254 00 0 00 030661 STARTA: JRST .+1
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 2
DSKAH1 MAC 31-Mar-78 11:13 PI/IOT/APR DIAGNOSTIC SECTION SEQ 0028
770 SUBTTL PI/IOT/APR DIAGNOSTIC SECTION
771
772 030661 402 00 0 00 030037 BEGIOT: SETZM USER ;CLEAR USER CONTROL WORD
773 030662 265 00 0 00 030663 JSP 0,.+1 ;GET FLAGS
774 030663 603 00 0 00 010000 TLNE USERF ;IN USER MODE ?
775 030664 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD
776 030665 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ?
777 030666 402 00 0 00 030037 SETZM USER ;YES, CLEAR USER CONTROL WORD
778 030667 336 00 0 00 030037 SKIPN USER
779 030670 254 00 0 00 030672 JRST IOT0 ;RUN IOT TEST ONLY IN EXEC MODE
780
781 030671 254 00 0 00 030057 JRST BEGEND ;OTHERWISE START OVER
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 3
DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0029
782 SUBTTL MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS
783
784 LALL
785
786 ;OPERATOR DEFINITIONS
787
788 264000 040047 OPDEF TRPPI [JSR TRAPPI] ;FILL INTERRUPT LOCATIONS
789 264000 040032 OPDEF HALTPI [JSR HALTPI] ;FILL INT. LOC. WITH HALTS
790 264000 040021 OPDEF CLRTRP [JSR TRPCLR] ;CLEAR TRAPS
791
792 700200 261600 OPDEF CLRAPR [CONO APR,LIOCLR!LCNXER!LCPAER!LCPWRF!LDNXER!LDPAER!LDPWRF]
793 700600 031577 OPDEF CLRPI [CONO PI,LRQCLR!PICLR!CHNOFF!PIOFF!177]
794
795 ;MACROS
796
797 DEFINE BLURB <
798 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES
799 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0
800 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION
801 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS
802 >
803 DEFINE BLURB1 <
804 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT
805 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST.
806 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR
807 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT
808 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL
809 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT
810 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT.
811 >
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 4
DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0030
812 DEFINE WATINT<
813 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
814 SOJG 13,. ;AND WAIT>
815
816 DEFINE STOP2<
817 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
818 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.>
819
820 DEFINE TSET<
821 %X=. ;DEFINE %X TO SAVE
822 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
823 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT>
824
825 DEFINE TGET<
826 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
827 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
828 STOP2>
829
830 DEFINE TBOTH<
831 TGET
832 TSET>
833
834 DEFINE PINO (A,%NO)<
835 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE
836 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET.
837
838 TSET
839 %NO: CLRBTH
840 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS
841 WATINT
842 CONSZ PI,A ;CHECK WHY INT. IN PROGRESS IS SET.
843 STOP
844 TGET>
845
846 DEFINE PIYES (A,B,%YES)<
847 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE.
848 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS
849 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED
850
851 TSET
852 %YES: CLRBTH
853 CONO PI,REQSET+A ;SET CHANNEL REQUEST BUT NOT ACTIVE
854 WATINT
855 CONSZ PI,B ;CHECK WHY INT. IN PROGRESS IS SET.
856 STOP
857 TGET>
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 5
DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0031
858 DEFINE PIHCLR (A,B,%HCLR)<
859 ;CHECK THAT PICLR CLEARS THE HOLD FLOP
860
861 TSET
862 %HCLR: CLRBTH
863 CONO PI,REQSET+PION+A ;CAUSE INT. TO SET HOLD
864 WATINT
865 CONO PI,PICLR ;THEN CLEAR VIA PI RESET
866 CONSZ PI,B ;HOLD FLOP FAILED TO CLEAR.
867 STOP
868 TGET>
869
870 DEFINE PIONOF (A,%ONOF)<
871 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP
872 ;AND THAT AN INTERUPT DOES NOT OCCUR
873
874 BLURB1
875
876 TSET
877 %ONOF: CLRBTH
878 CONO PI,REQSET+A ;SET REQ. BUT NOT ACTIVE
879 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE
880 CONO PI,PICLR+A ;PI RESET FAILED TO CLEAR PIR FLAG.
881 WATINT
882 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.?
883 STOP
884 TGET>
885
886 DEFINE PIDIS (A,B,%PICHK)<
887 ;CHECK THAT A JEN WILL DISMISS INTERUPTS ON ALL CHANNELS
888
889 TSET
890 %PICHK: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION
891 MOVEM A ;INTO A
892 CONO PI,CHNON+PION+REQSET+B ;TURN ON PI AND REQEST ON CH B
893 WATINT
894 JRST .+4
895 0
896 CONO PI,CHNON+PION+LRQCLR+B ;TURN OF INTERRUPT REQUEST
897 JEN @.-2 ;DISMISS THE INTERRUPT
898 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET
899 STOP
900 TGET
901 CLRBTH>
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 6
DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0032
902 DEFINE PITEST (A,%PITST)<
903 ;TEST SETTING OF CHANNEL FLOP
904
905 TSET
906 %PITST: CLRBTH
907 CONO PI,CHNON+A ;PION FAILED TO SET
908 CONSO PI,A
909 STOP
910 TBOTH
911 CLRBTH
912 ;TEST CLEARING OF CHANNEL FLOP
913 CONO PI,CHNON+A ;CHECK PIO CLR
914 CONO PI,CHNOFF+A ;TURN OFF CHANNELS
915 CONSZ PI,A ;CHECK WHY FLOP NOT CLEAR
916 STOP
917 TBOTH
918 CLRBTH
919 ;CHECK RESETING OF PI SYSTEM
920 CONO PI,CHNON+A ;CHECK THAT PI RESET CLEARS
921 CONO PI,PICLR ;PI SYSTEM
922 CONSZ PI,A
923 STOP
924 TBOTH
925 CLRBTH
926 ;TEST THAT CONO ONLY SETS PION
927 CONO PI,CHNON ;TEST PIO SET
928 CONSZ PI,A ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT
929 STOP
930 TBOTH
931 CLRBTH
932 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE
933 CONO PI,CHNON+A ;TEST PIO CLR
934 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL
935 CONSO PI,A ;BE SET
936 STOP
937 TGET>
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 7
DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0033
938 DEFINE EXECUT<
939 ;FILL THE INTERRUPT LOCATIONS WITH "MOVEI'S"
940 MOVE 1,[MOVEI 42] ;STORE A MOVEI IN
941 MOVEM 1,(1) ;INTO 42-60
942 CAME 1,[MOVEI 57]
943 AOJA 1,.-2 ;LOOP>
944
945 DEFINE STOP<
946 HALT .+1 ;INSTRUCTION FAILED REPLACE
947 JRST .+1 ;WITH JRST BACK>
948
949 DEFINE STOP1<
950 HALT .+1 ;UUO FAILED TO STORE MA BITS
951 JRST .+1 ;INTO RIGHT HALF OF 40>
952
953 DEFINE XUUO (X,Y,%XUO)<
954 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
955 ;ARE CORRECT.
956
957 MLUUO==X ;THE UUO TO BE EXECUTED
958 TSET
959 %XUO: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
960 MOVEM 0,41 ;IN TO 41
961 X ;EXECUTE A UUO
962 HALT .+1 ;UUO DID NOT TRAP TO FORTY
963 MOVEI 2,.-1 ;GET UUO PC
964 ANDI 1,-1 ;MASK FLAGS OUT
965 CAME 1,2 ;PC CORRECT ?
966 HALT .+1 ;PC OF UUO NOT = TO PC STORED
967 MOVE 0,40 ;GET UUO !
968 CAME 0,[X!0] ;CORRECT UUO STORED IN 40?
969 SKIPA ;NO
970 JRST Y ;TESTS OK !
971 STOP1
972 TGET>
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 8
DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0034
973 DEFINE XUUOA (X,%UUPC,%XUPC0,%XUPC1)<
974
975 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
976
977 EFIELD==X ;"E" WE ARE TESTING FOR
978 TSET
979 %UUPC: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
980 MOVEM 41 ;INTO 41
981 1B8!X ;EXECUTE A UUO
982 %XUPC0: HALT .+1 ;UUO DIDN'T TRAP TO 40
983 MOVE 0,40 ;GET UUO
984 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
985 CAIE X ;MA BITS CORRECT?
986 %XUPC1: STOP1
987 TGET>
988
989 DEFINE CLRBTH<
990 CLRAPR
991 CLRPI>
992
993 DEFINE CLRBT1<
994 CLRAPR
995 CLRPI>
996
997 DEFINE TRAP (A,B)<
998 MOVE [A] ;SET TRAP INSTRUCTION
999 MOVEM B ;INTO TRAP LOCATION>
1000
1001 DEFINE STUCK<
1002 WATINT
1003 JRST . ;LOOP ON SELF>
1004
1005 DEFINE SBWAIT (A,%CLKUP)<
1006 %CLKUP: CONO APR,LEPSFT!LSPSFT!A
1007 STUCK> ;WAIT FOR ERRORS
1008
1009 DEFINE TRPCHK (%TPC)<
1010 %TPC: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
1011 JRST .+3 ;DONT IF STAND ALONE
1012 JRSTF @.+1 ;AND RESTORE THEM
1013 USERF,.+1 ;NEW PC AND FLAGS>
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 9
DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0035
1014 DEFINE XCHN2 (A,B,C)<
1015 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
1016 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
1017 ;IF ERROR OCCURS CHECK "PIN" PRINT
1018
1019 TRPCHK
1020 CLRBTH
1021 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
1022 MOVE [JSR A] ;SET UP FOR CORRECT
1023 MOVEM B ;INTERRUPT TRAP
1024 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
1025 CONO PI,REQSET!C ;REQUEST INTERRUPT ON TWO CHANNELS
1026 STUCK>
1027
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 10
DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0036
1028 DEFINE FMUUO (A,%FMTST,%NOFM),<
1029 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17
1030 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE
1031 ;CORRECT PC.
1032
1033 AC=A ;TESTED AC
1034
1035 TSET
1036 MOVE A,[XWD 1000,0] ;SET UP UUO INTO AC A TO EXECUTE
1037 MOVE 13,[JSP 11,%FMTST] ;SET UP UUO TRAP INSTRUCTION
1038 MOVEM 13,41 ;INTO LOCATION 41
1039 MOVE A+1,[JRST %NOFM] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP
1040 JRST A ;GO EXECUTE UUO
1041 %NOFM: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY
1042 JRST .+1 ;LOOP TO %FMUUO IF ERROR
1043 %FMTST: ANDI 11,-1 ;MASK FLAGS
1044 CAIE 11,A+1 ;PC STORED SHOULD = A +1
1045 STOP
1046 TGET>
1047
1048 DEFINE INDPI (A,B,%XX),<
1049 ;GET OURSELVES INTO A TIGHT INDIRECT LOOP.
1050 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT.
1051 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND
1052 ;WE WILL RETURN TO THE "JRST @." INSTRUCTION.
1053
1054 TSET
1055 MOVEI 10,^D10 ;TIMES TO DO THIS TEST
1056 MOVEM 10,COUNTX# ;STORE IT
1057 MOVE 10,[JSR %XX] ;INTERRUPT TRAP INSTRUCTION
1058 MOVEM 10,A ;STORE FOR INTERRUPT REQUEST
1059 CLRBT1
1060 CONO PI,2377 ;TURN ON PI AND CHANNELS
1061 CONO APR,LEPSFT!LSPSFT!B ;ENABLE AND SET ERRORS,ENABLE CH B
1062 JRST @. ;LOOP
1063 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP)
1064 %XX: 0
1065 TGET
1066 MOVE 1,%XX ;GET STORED PC
1067 ANDI 1,-1 ;MASK PC BITS
1068 CAIE 1,%XX-2 ;WAS CORRECT PC STORED?
1069 STOP
1070 SOSE COUNTX ;LOOP TEST
1071 JEN @1 ;DISMISS INTERRUPT
1072 CLRBTH>
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 11
DSKAH1 MAC 31-Mar-78 11:13 IOT TESTING SEQ 0037
1073 SUBTTL IOT TESTING
1074
1075 ;IF IOT HANGS - CHECK ARRT AND ARLT CLR
1076 ;AND OR AR SIGN SMEAR..
1077
1078 ;TEST THE IOT'S
1079 030672 IOTXXX:
1080
1081 030672 IOTXX:
1082 030672 700 20 00 00 261600 IOT0: CLRAPR ;CLEAR APR
1083 030673 700 14 0 00 031577 CLRPI ;CLEAR PI
1084 030674 7 000 20 0 00 060160 CONO APR,60160 ;DISABLE SOFT,CLK,8080
1085 030675 264 00 0 00 040216 JSR TRPSET ;FILL THE TRAP LOCATIONS
1086
1087 030676 200 01 0 00 040236 IOT2: MOVE 1,[123456654321] ;CHECK CONI STOR THE CONTENTS OF "E" NOT SET OR
1088 030677 7 000 24 0 00 000001 CONI 1 ;SAC INH NOT SET - CONTENTS OF LOC 1
1089 030700 316 01 0 00 040236 CAMN 1,[123456654321] ;NOT MODIFIED
1090 STOP^
1091 030701 254 04 0 00 030702 HALT .+1 ;INSTRUCTION FAILED REPLACE
1092 030702 254 00 0 00 030703 JRST .+1 ;WITH JRST BACK^
1093
1094 030703 474 00 0 00 000000 IOT3: SETO ;CHECK SAC INH FOR
1095 030704 7 000 24 0 00 000001 CONI 1 ;CONI LOC 0
1096 030705 312 00 0 00 040237 CAME [-1] ;MODIFIED
1097 STOP^
1098 030706 254 04 0 00 030707 HALT .+1 ;INSTRUCTION FAILED REPLACE
1099 030707 254 00 0 00 030710 JRST .+1 ;WITH JRST BACK^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 12
DSKAH1 MAC 31-Mar-78 11:13 IOT TESTING SEQ 0038
1100
1101 TSET^
1102 030710 %X=. ;DEFINE %X TO SAVE
1103 030710 201 00 0 00 030710 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1104 030711 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1105 030712 400 00 0 00 000000 IOT6: SETZ ;CONSZ FAILED TO SKIP
1106 030713 7 000 30 0 00 000000 CONSZ ;CHECK PC CLOCK ENABLE AND AD=0 ON IOT CONSZ
1107 STOP^
1108 030714 254 04 0 00 030715 HALT .+1 ;INSTRUCTION FAILED REPLACE
1109 030715 254 00 0 00 030716 JRST .+1 ;WITH JRST BACK^
1110
1111 030716 7 004 20 0 00 010000 IOT14: CONO PI,10000 ;CLR PI SYSTEM
1112 030717 7 000 20 0 00 000077 CONO 77 ;SET SOME CPA BITS
1113 030720 7 000 24 0 00 000000 CONI 0 ;IF FAILED EITHER CONO FAILED
1114 030721 336 00 0 00 000000 SKIPN 0 ;IO SET OR CONI FAILED READ
1115 STOP^
1116 030722 254 04 0 00 030723 HALT .+1 ;INSTRUCTION FAILED REPLACE
1117 030723 254 00 0 00 030724 JRST .+1 ;WITH JRST BACK^
1118 ;OR ARRT OR ARLT EN OR AR SIGN
1119 ;SMEAR OR CPA SELECT NOT ASSERTED
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 13
DSKAH1 MAC 31-Mar-78 11:13 TEST APR FLAGS SEQ 0039
1120 SUBTTL TEST APR FLAGS
1121
1122 030724 7 000 20 0 00 000000 IOT15: CONO ;APR CLOCK PIA FAILED EITHER
1123 030725 7 000 20 0 00 000001 CONO 1 ;TO SET OR BE READ
1124 030726 7 000 24 0 00 000000 CONI ;CHECK APR PIA 35 CLOCK
1125 030727 606 00 0 00 000001 TRNN 1
1126 STOP^
1127 030730 254 04 0 00 030731 HALT .+1 ;INSTRUCTION FAILED REPLACE
1128 030731 254 00 0 00 030732 JRST .+1 ;WITH JRST BACK^
1129
1130 030732 7 000 20 0 00 000000 IOT15A: CONO ;APR CLOCK PIA FAILED EITHER
1131 030733 7 000 20 0 00 000002 CONO 2 ;TO SET OR BE READ
1132 030734 7 000 24 0 00 000000 CONI ;CHECK APR PIA 34 CLOCK
1133 030735 606 00 0 00 000002 TRNN 2
1134 STOP^
1135 030736 254 04 0 00 030737 HALT .+1 ;INSTRUCTION FAILED REPLACE
1136 030737 254 00 0 00 030740 JRST .+1 ;WITH JRST BACK^
1137
1138 030740 7 000 20 0 00 000000 IOT16: CONO ;APR CLOCK PIA FAILED EITHER
1139 030741 7 000 20 0 00 000004 CONO 4 ;TO SET OR BE READ
1140 030742 7 000 24 0 00 000000 CONI ;CHECK APR PIA 33 CLOCK
1141 030743 606 00 0 00 000004 TRNN 4 ;
1142 STOP^
1143 030744 254 04 0 00 030745 HALT .+1 ;INSTRUCTION FAILED REPLACE
1144 030745 254 00 0 00 030746 JRST .+1 ;WITH JRST BACK^
1145
1146 030746 700 04 0 00 261600 IOT17: CLRAPR ;APR ERROR PIA FAILED EITHER
1147 030747 7 000 20 0 00 011000 CONO APR,LSPWRF ;TO SET OR BE READ
1148 030750 7 000 24 0 00 000000 CONI ;CHECK APR PIA 31 ERROR
1149 030751 606 00 0 00 001000 TRNN LPWRFL
1150 STOP^
1151 030752 254 04 0 00 030753 HALT .+1 ;INSTRUCTION FAILED REPLACE
1152 030753 254 00 0 00 030754 JRST .+1 ;WITH JRST BACK^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 14
DSKAH1 MAC 31-Mar-78 11:13 TEST APR FLAGS SEQ 0040
1153 030754 700 04 0 00 261600 IOT18: CLRAPR
1154 030755 7 000 20 0 00 010200 CONO APR,LSPAER
1155 030756 7 000 24 0 00 000000 CONI APR,
1156 030757 606 00 0 00 000200 TRNN LPARER
1157 STOP^
1158 030760 254 04 0 00 030761 HALT .+1 ;INSTRUCTION FAILED REPLACE
1159 030761 254 00 0 00 030762 JRST .+1 ;WITH JRST BACK^
1160 030762 700 04 0 00 261600 CLRAPR
1161 030763 7 000 20 0 00 010400 CONO APR,LSNXER
1162 030764 7 000 24 0 00 000000 CONI APR,
1163 030765 606 00 0 00 000400 TRNN LNXMER
1164 STOP^
1165 030766 254 04 0 00 030767 HALT .+1 ;INSTRUCTION FAILED REPLACE
1166 030767 254 00 0 00 030770 JRST .+1 ;WITH JRST BACK^
1167 030770 700 04 0 00 261600 CLRAPR
1168 030771 7 000 20 0 00 010100 CONO APR,LSPSFT
1169 030772 7 000 24 0 00 000000 CONI APR,
1170 030773 606 00 0 00 000100 TRNN LPSFTER
1171 STOP^
1172 030774 254 04 0 00 030775 HALT .+1 ;INSTRUCTION FAILED REPLACE
1173 030775 254 00 0 00 030776 JRST .+1 ;WITH JRST BACK^
1174 030776 700 04 0 00 261600 CLRAPR
1175
1176 030777 7 000 20 0 00 000001 IOT18A: CONO 1
1177 031000 7 000 20 0 00 000000 CONO
1178 031001 7 000 24 0 00 000000 CONI
1179 031002 602 00 0 00 000001 TRNE 1
1180 STOP^
1181 031003 254 04 0 00 031004 HALT .+1 ;INSTRUCTION FAILED REPLACE
1182 031004 254 00 0 00 031005 JRST .+1 ;WITH JRST BACK^
1183 031005 7 000 20 0 00 000002 IOT19: CONO 2 ;APR PIA 34 CLOCK
1184 031006 7 000 20 0 00 000000 CONO ;FAILED TO CLEAR
1185 031007 7 000 24 0 00 000000 CONI
1186 031010 602 00 0 00 000002 TRNE 2
1187 STOP^
1188 031011 254 04 0 00 031012 HALT .+1 ;INSTRUCTION FAILED REPLACE
1189 031012 254 00 0 00 031013 JRST .+1 ;WITH JRST BACK^
1190
1191 031013 7 000 20 0 00 000004 IOT20: CONO 4 ;APR PIA 33 CLOCK
1192 031014 7 000 20 0 00 000000 CONO ;FAILED TO CLEAR
1193 031015 7 000 24 0 00 000000 CONI
1194 031016 602 00 0 00 000004 TRNE 4
1195 STOP^
1196 031017 254 04 0 00 031020 HALT .+1 ;INSTRUCTION FAILED REPLACE
1197 031020 254 00 0 00 031021 JRST .+1 ;WITH JRST BACK^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 15
DSKAH1 MAC 31-Mar-78 11:13 TEST APR FLAGS SEQ 0041
1198 031021 7 000 20 0 00 011000 IOT22: CONO APR,LSPWRF ;APR PIA 31 ERROR
1199 031022 7 000 20 0 00 021000 CONO APR,LCPWRF ;FAILED TO CLEAR
1200 031023 7 000 24 0 00 000000 CONI
1201 031024 602 00 0 00 001000 TRNE LPWRFL
1202 STOP^
1203 031025 254 04 0 00 031026 HALT .+1 ;INSTRUCTION FAILED REPLACE
1204 031026 254 00 0 00 031027 JRST .+1 ;WITH JRST BACK^
1205
1206 031027 7 000 20 0 00 010200 CONO APR,LSPAER
1207 031030 7 000 20 0 00 020200 CONO APR,LCPAER
1208 031031 7 000 24 0 00 000000 CONI
1209 031032 602 00 0 00 000200 TRNE LPARER
1210 STOP^
1211 031033 254 04 0 00 031034 HALT .+1 ;INSTRUCTION FAILED REPLACE
1212 031034 254 00 0 00 031035 JRST .+1 ;WITH JRST BACK^
1213 031035 7 000 20 0 00 010400 CONO APR,LSNXER
1214 031036 7 000 20 0 00 020400 CONO APR,LCNXER
1215 031037 7 000 24 0 00 000000 CONI
1216 031040 602 00 0 00 000400 TRNE LNXMER
1217 STOP^
1218 031041 254 04 0 00 031042 HALT .+1 ;INSTRUCTION FAILED REPLACE
1219 031042 254 00 0 00 031043 JRST .+1 ;WITH JRST BACK^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 16
DSKAH1 MAC 31-Mar-78 11:13 TEST APR FLAGS SEQ 0042
1220 TBOTH^
1221 TGET^
1222 031043 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1223 031044 302 00 0 00 030710 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1224 STOP2^^
1225 031045 254 04 0 00 031046 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1226 031046 254 00 0 00 031047 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1227 TSET^^
1228 031047 %X=. ;DEFINE %X TO SAVE
1229 031047 201 00 0 00 031047 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1230 031050 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1231 031051 7 000 20 0 00 000007 IOT24: CONO 7 ;SET SOME FLAGS
1232 031052 7 000 34 0 00 000000 CONSO ;CONSO FAILED CK PC CLOCK ENABLE
1233 031053 334 00 0 00 000000 SKIPA ;INH
1234 STOP^
1235 031054 254 04 0 00 031055 HALT .+1 ;INSTRUCTION FAILED REPLACE
1236 031055 254 00 0 00 031056 JRST .+1 ;WITH JRST BACK^
1237
1238 TBOTH^
1239 TGET^
1240 031056 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1241 031057 302 00 0 00 031047 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1242 STOP2^^
1243 031060 254 04 0 00 031061 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1244 031061 254 00 0 00 031062 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1245 TSET^^
1246 031062 %X=. ;DEFINE %X TO SAVE
1247 031062 201 00 0 00 031062 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1248 031063 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1249 031064 7 000 20 0 00 000007 IOT25: CONO 7 ;SET SOME FLAGS
1250 031065 7 000 24 0 00 000000 CONI
1251 031066 606 00 0 00 000007 TRNN 7 ;CONSO FAILED CH PC CLOCK ENABLE
1252 STOP^
1253 031067 254 04 0 00 031070 HALT .+1 ;INSTRUCTION FAILED REPLACE
1254 031070 254 00 0 00 031071 JRST .+1 ;WITH JRST BACK^
1255
1256 TBOTH^
1257 TGET^
1258 031071 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1259 031072 302 00 0 00 031062 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1260 STOP2^^
1261 031073 254 04 0 00 031074 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1262 031074 254 00 0 00 031075 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1263 TSET^^
1264 031075 %X=. ;DEFINE %X TO SAVE
1265 031075 201 00 0 00 031075 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1266 031076 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1267 031077 7 000 20 0 00 000007 IOT26: CONO 7 ;CONSZ FAILED
1268 031100 7 000 24 0 00 000000 CONI
1269 031101 602 00 0 00 000007 TRNE 7 ;CK PC CLOCK ENABLE IF AD=0
1270 031102 334 00 0 00 000000 SKIPA ;AND IOT TIME
1271 STOP^
1272 031103 254 04 0 00 031104 HALT .+1 ;INSTRUCTION FAILED REPLACE
1273 031104 254 00 0 00 031105 JRST .+1 ;WITH JRST BACK^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 17
DSKAH1 MAC 31-Mar-78 11:13 TEST PI FLAGS SEQ 0043
1274 SUBTTL TEST PI FLAGS
1275
1276 031105 7 000 20 0 00 000007 IOT33B: CONO 7 ;CONO PI MODIFIED
1277 031106 7 004 20 0 00 000000 CONO PI,0 ;CPU AS A DEVICE
1278 031107 7 000 24 0 00 000000 CONI
1279 031110 606 00 0 00 000007 TRNN 7 ;CPA SELECT IS CONFUSED
1280 STOP^
1281 031111 254 04 0 00 031112 HALT .+1 ;INSTRUCTION FAILED REPLACE
1282 031112 254 00 0 00 031113 JRST .+1 ;WITH JRST BACK^
1283 031113 7 000 20 0 00 000000 CONO 0 ;RESET BITS
1284
1285 031114 7 004 20 0 00 000200 IOT34: CONO PI,200 ;CHK WHY PI ON
1286 031115 7 004 24 0 00 000000 CONI PI, ;FLOP NOT SET
1287 031116 606 00 0 00 000200 TRNN 200
1288 STOP^
1289 031117 254 04 0 00 031120 HALT .+1 ;INSTRUCTION FAILED REPLACE
1290 031120 254 00 0 00 031121 JRST .+1 ;WITH JRST BACK^
1291
1292 031121 7 004 20 0 00 000200 IOT35: CONO PI,200 ;CHK WHY PI ON
1293 031122 7 004 20 0 00 000400 CONO PI,400 ;NOT CLEARED
1294 031123 7 004 24 0 00 000000 CONI PI, ;
1295 031124 602 00 0 00 000200 TRNE 200
1296 STOP^
1297 031125 254 04 0 00 031126 HALT .+1 ;INSTRUCTION FAILED REPLACE
1298 031126 254 00 0 00 031127 JRST .+1 ;WITH JRST BACK^
1299
1300 031127 IOT36:
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 18
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0044
1301 SUBTTL BASIC PI SYSTEM TESTING
1302
1303 ;BEGIN TESTING THE PI SYSTEM
1304 BLURB^
1305 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES
1306 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0
1307 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION
1308 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS
1309 ^
1310 ;AND THE PROGRAM WILL HALT POINTING TO THE INTERUPTED ADRESS.
1311 031127 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
1312
1313
1314 031130 7 004 20 0 00 002001 IOT38: CONO PI,2001 ;PI CHANNEL 7
1315 031131 7 004 24 0 00 000000 CONI PI, ;FAILED TO SET
1316 031132 606 00 0 00 000001 TRNN 1 ;
1317 STOP^
1318 031133 254 04 0 00 031134 HALT .+1 ;INSTRUCTION FAILED REPLACE
1319 031134 254 00 0 00 031135 JRST .+1 ;WITH JRST BACK^
1320
1321 031135 7 004 20 0 00 002001 IOT39: CONO PI,2001 ;PI CHANNEL 7
1322 031136 7 004 20 0 00 001001 CONO PI,1001 ;FAILED TO CLEAR
1323 031137 7 004 24 0 00 000000 CONI PI,
1324 031140 602 00 0 00 000001 TRNE 1
1325 STOP^
1326 031141 254 04 0 00 031142 HALT .+1 ;INSTRUCTION FAILED REPLACE
1327 031142 254 00 0 00 031143 JRST .+1 ;WITH JRST BACK^
1328
1329 031143 7 004 20 0 00 002002 IOT40: CONO PI,2002 ;PI CHANNEL 6
1330 031144 7 004 24 0 00 000000 CONI PI, ;FAILED TO SET
1331 031145 606 00 0 00 000002 TRNN 2
1332 STOP^
1333 031146 254 04 0 00 031147 HALT .+1 ;INSTRUCTION FAILED REPLACE
1334 031147 254 00 0 00 031150 JRST .+1 ;WITH JRST BACK^
1335
1336 031150 7 004 20 0 00 002002 IOT41: CONO PI,2002 ;PI CHANNEL 6
1337 031151 7 004 20 0 00 001002 CONO PI,1002 ;FAILED TO CLEAR
1338 031152 7 004 24 0 00 000000 CONI PI,
1339 031153 602 00 0 00 000002 TRNE 2
1340 STOP^
1341 031154 254 04 0 00 031155 HALT .+1 ;INSTRUCTION FAILED REPLACE
1342 031155 254 00 0 00 031156 JRST .+1 ;WITH JRST BACK^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 19
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0045
1343 031156 7 004 20 0 00 002004 IOT42: CONO PI,2004 ;PI CHANNEL 5
1344 031157 7 004 24 0 00 000000 CONI PI, ;FAILED TO SET
1345 031160 606 00 0 00 000004 TRNN 4
1346 STOP^
1347 031161 254 04 0 00 031162 HALT .+1 ;INSTRUCTION FAILED REPLACE
1348 031162 254 00 0 00 031163 JRST .+1 ;WITH JRST BACK^
1349
1350 031163 7 004 20 0 00 002004 IOT43: CONO PI,2004 ;PI CHANNEL 5
1351 031164 7 004 20 0 00 001004 CONO PI,1004 ;FAILED TO CLEAR
1352 031165 7 004 24 0 00 000000 CONI PI,
1353 031166 602 00 0 00 000004 TRNE 4
1354 STOP^
1355 031167 254 04 0 00 031170 HALT .+1 ;INSTRUCTION FAILED REPLACE
1356 031170 254 00 0 00 031171 JRST .+1 ;WITH JRST BACK^
1357
1358 031171 7 004 20 0 00 002010 IOT44: CONO PI,2010 ;PI CHANNEL 4
1359 031172 7 004 24 0 00 000000 CONI PI, ;FAILED TO SET
1360 031173 606 00 0 00 000010 TRNN 10
1361 STOP^
1362 031174 254 04 0 00 031175 HALT .+1 ;INSTRUCTION FAILED REPLACE
1363 031175 254 00 0 00 031176 JRST .+1 ;WITH JRST BACK^
1364
1365 031176 7 004 20 0 00 002010 IOT45: CONO PI,2010 ;PI CHAN 4
1366 031177 7 004 20 0 00 001010 CONO PI,1010 ;FAILED TO CLEAR
1367 031200 7 004 24 0 00 000000 CONI PI,
1368 031201 602 00 0 00 000010 TRNE 10
1369 STOP^
1370 031202 254 04 0 00 031203 HALT .+1 ;INSTRUCTION FAILED REPLACE
1371 031203 254 00 0 00 031204 JRST .+1 ;WITH JRST BACK^
1372
1373 031204 7 004 20 0 00 002020 IOT46: CONO PI,2020 ;PI CHAN 3
1374 031205 7 004 24 0 00 000000 CONI PI, ;FAILED TO SET
1375 031206 606 00 0 00 000020 TRNN 20
1376 STOP^
1377 031207 254 04 0 00 031210 HALT .+1 ;INSTRUCTION FAILED REPLACE
1378 031210 254 00 0 00 031211 JRST .+1 ;WITH JRST BACK^
1379
1380 031211 7 004 20 0 00 002020 IOT47: CONO PI,2020 ;PI CHAN 3
1381 031212 7 004 20 0 00 001020 CONO PI,1020 ;FAILED TO CLEAR
1382 031213 7 004 24 0 00 000000 CONI PI,
1383 031214 602 00 0 00 000010 TRNE 10
1384 STOP^
1385 031215 254 04 0 00 031216 HALT .+1 ;INSTRUCTION FAILED REPLACE
1386 031216 254 00 0 00 031217 JRST .+1 ;WITH JRST BACK^
1387
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 20
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0046
1388 031217 7 004 20 0 00 002040 IOT48: CONO PI,2040 ;PI CHAN 2
1389 031220 7 004 24 0 00 000000 CONI PI, ;FAILED TO SET
1390 031221 606 00 0 00 000040 TRNN 40
1391 STOP^
1392 031222 254 04 0 00 031223 HALT .+1 ;INSTRUCTION FAILED REPLACE
1393 031223 254 00 0 00 031224 JRST .+1 ;WITH JRST BACK^
1394
1395 031224 7 004 20 0 00 002040 IOT49: CONO PI,2040 ;PI CHAN 2
1396 031225 7 004 20 0 00 001040 CONO PI,1040 ;FAILED TO CLR
1397 031226 7 004 24 0 00 000000 CONI PI,
1398 031227 602 00 0 00 000040 TRNE 40
1399 STOP^
1400 031230 254 04 0 00 031231 HALT .+1 ;INSTRUCTION FAILED REPLACE
1401 031231 254 00 0 00 031232 JRST .+1 ;WITH JRST BACK^
1402
1403 031232 7 004 20 0 00 002100 IOT50: CONO PI,2100 ;PI CHAN 1
1404 031233 7 004 24 0 00 000000 CONI PI, ;FAILED TO SET
1405 031234 606 00 0 00 000100 TRNN 100
1406 STOP^
1407 031235 254 04 0 00 031236 HALT .+1 ;INSTRUCTION FAILED REPLACE
1408 031236 254 00 0 00 031237 JRST .+1 ;WITH JRST BACK^
1409
1410 031237 7 004 20 0 00 002100 IOT51: CONO PI,2100 ;PI CHAN 1
1411 031240 7 004 20 0 00 001100 CONO PI,1100 ;FAILED TO CLEAR
1412 031241 7 004 24 0 00 000000 CONI PI,
1413 031242 602 00 0 00 000100 TRNE 100
1414 STOP^
1415 031243 254 04 0 00 031244 HALT .+1 ;INSTRUCTION FAILED REPLACE
1416 031244 254 00 0 00 031245 JRST .+1 ;WITH JRST BACK^
1417
1418 031245 255 00 0 00 000000 IOTXYZ: JFCL
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 21
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0047
1419 040000 X=40000
1420 BLURB^
1421 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES
1422 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0
1423 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION
1424 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS
1425 ^
1426 031246 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS
1427 PIOT00: REPEAT 7,
1428 < PINO X
1429 X=X_-1>
1430 PINO X^
1431 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE
1432 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET.
1433
1434 TSET^
1435 031247 %X=. ;DEFINE %X TO SAVE
1436 031247 201 00 0 00 031247 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1437 031250 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1438 031251 ..0001: CLRBTH^
1439 031251 700 04 0 00 261600 CLRAPR
1440 031252 700 14 0 00 031577 CLRPI^
1441 031253 7 004 20 0 00 000200 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS
1442 WATINT^
1443 031254 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1444 031255 367 13 0 00 031255 SOJG 13,. ;AND WAIT^
1445 031256 7 004 30 0 00 040000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET.
1446 STOP^
1447 031257 254 04 0 00 031260 HALT .+1 ;INSTRUCTION FAILED REPLACE
1448 031260 254 00 0 00 031261 JRST .+1 ;WITH JRST BACK^
1449 TGET^^
1450 031261 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1451 031262 302 00 0 00 031247 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1452 STOP2^^
1453 031263 254 04 0 00 031264 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1454 031264 254 00 0 00 031265 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1455 020000 X=X_-1
1456 PINO X^
1457 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE
1458 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET.
1459
1460 TSET^
1461 031265 %X=. ;DEFINE %X TO SAVE
1462 031265 201 00 0 00 031265 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1463 031266 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1464 031267 ..0002: CLRBTH^
1465 031267 700 04 0 00 261600 CLRAPR
1466 031270 700 14 0 00 031577 CLRPI^
1467 031271 7 004 20 0 00 000200 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS
1468 WATINT^
1469 031272 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1470 031273 367 13 0 00 031273 SOJG 13,. ;AND WAIT^
1471 031274 7 004 30 0 00 020000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET.
1472 STOP^
1473 031275 254 04 0 00 031276 HALT .+1 ;INSTRUCTION FAILED REPLACE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 21-1
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0048
1474 031276 254 00 0 00 031277 JRST .+1 ;WITH JRST BACK^
1475 TGET^^
1476 031277 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1477 031300 302 00 0 00 031265 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1478 STOP2^^
1479 031301 254 04 0 00 031302 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1480 031302 254 00 0 00 031303 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1481 010000 X=X_-1
1482 PINO X^
1483 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE
1484 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET.
1485
1486 TSET^
1487 031303 %X=. ;DEFINE %X TO SAVE
1488 031303 201 00 0 00 031303 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1489 031304 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1490 031305 ..0003: CLRBTH^
1491 031305 700 04 0 00 261600 CLRAPR
1492 031306 700 14 0 00 031577 CLRPI^
1493 031307 7 004 20 0 00 000200 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS
1494 WATINT^
1495 031310 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1496 031311 367 13 0 00 031311 SOJG 13,. ;AND WAIT^
1497 031312 7 004 30 0 00 010000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET.
1498 STOP^
1499 031313 254 04 0 00 031314 HALT .+1 ;INSTRUCTION FAILED REPLACE
1500 031314 254 00 0 00 031315 JRST .+1 ;WITH JRST BACK^
1501 TGET^^
1502 031315 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1503 031316 302 00 0 00 031303 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1504 STOP2^^
1505 031317 254 04 0 00 031320 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1506 031320 254 00 0 00 031321 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1507 004000 X=X_-1
1508 PINO X^
1509 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE
1510 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET.
1511
1512 TSET^
1513 031321 %X=. ;DEFINE %X TO SAVE
1514 031321 201 00 0 00 031321 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1515 031322 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1516 031323 ..0004: CLRBTH^
1517 031323 700 04 0 00 261600 CLRAPR
1518 031324 700 14 0 00 031577 CLRPI^
1519 031325 7 004 20 0 00 000200 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS
1520 WATINT^
1521 031326 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1522 031327 367 13 0 00 031327 SOJG 13,. ;AND WAIT^
1523 031330 7 004 30 0 00 004000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET.
1524 STOP^
1525 031331 254 04 0 00 031332 HALT .+1 ;INSTRUCTION FAILED REPLACE
1526 031332 254 00 0 00 031333 JRST .+1 ;WITH JRST BACK^
1527 TGET^^
1528 031333 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 21-2
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0049
1529 031334 302 00 0 00 031321 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1530 STOP2^^
1531 031335 254 04 0 00 031336 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1532 031336 254 00 0 00 031337 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1533 002000 X=X_-1
1534 PINO X^
1535 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE
1536 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET.
1537
1538 TSET^
1539 031337 %X=. ;DEFINE %X TO SAVE
1540 031337 201 00 0 00 031337 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1541 031340 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1542 031341 ..0005: CLRBTH^
1543 031341 700 04 0 00 261600 CLRAPR
1544 031342 700 14 0 00 031577 CLRPI^
1545 031343 7 004 20 0 00 000200 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS
1546 WATINT^
1547 031344 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1548 031345 367 13 0 00 031345 SOJG 13,. ;AND WAIT^
1549 031346 7 004 30 0 00 002000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET.
1550 STOP^
1551 031347 254 04 0 00 031350 HALT .+1 ;INSTRUCTION FAILED REPLACE
1552 031350 254 00 0 00 031351 JRST .+1 ;WITH JRST BACK^
1553 TGET^^
1554 031351 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1555 031352 302 00 0 00 031337 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1556 STOP2^^
1557 031353 254 04 0 00 031354 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1558 031354 254 00 0 00 031355 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1559 001000 X=X_-1
1560 PINO X^
1561 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE
1562 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET.
1563
1564 TSET^
1565 031355 %X=. ;DEFINE %X TO SAVE
1566 031355 201 00 0 00 031355 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1567 031356 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1568 031357 ..0006: CLRBTH^
1569 031357 700 04 0 00 261600 CLRAPR
1570 031360 700 14 0 00 031577 CLRPI^
1571 031361 7 004 20 0 00 000200 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS
1572 WATINT^
1573 031362 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1574 031363 367 13 0 00 031363 SOJG 13,. ;AND WAIT^
1575 031364 7 004 30 0 00 001000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET.
1576 STOP^
1577 031365 254 04 0 00 031366 HALT .+1 ;INSTRUCTION FAILED REPLACE
1578 031366 254 00 0 00 031367 JRST .+1 ;WITH JRST BACK^
1579 TGET^^
1580 031367 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1581 031370 302 00 0 00 031355 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1582 STOP2^^
1583 031371 254 04 0 00 031372 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 21-3
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0050
1584 031372 254 00 0 00 031373 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1585 000400 X=X_-1
1586 PINO X^
1587 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE
1588 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET.
1589
1590 TSET^
1591 031373 %X=. ;DEFINE %X TO SAVE
1592 031373 201 00 0 00 031373 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1593 031374 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1594 031375 ..0007: CLRBTH^
1595 031375 700 04 0 00 261600 CLRAPR
1596 031376 700 14 0 00 031577 CLRPI^
1597 031377 7 004 20 0 00 000200 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS
1598 WATINT^
1599 031400 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1600 031401 367 13 0 00 031401 SOJG 13,. ;AND WAIT^
1601 031402 7 004 30 0 00 000400 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET.
1602 STOP^
1603 031403 254 04 0 00 031404 HALT .+1 ;INSTRUCTION FAILED REPLACE
1604 031404 254 00 0 00 031405 JRST .+1 ;WITH JRST BACK^
1605 TGET^^
1606 031405 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1607 031406 302 00 0 00 031373 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1608 STOP2^^
1609 031407 254 04 0 00 031410 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1610 031410 254 00 0 00 031411 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1611 000200 X=X_-1
1612 031411 255 00 0 00 000000 JFCL
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 22
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0051
1613 BLURB^
1614 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES
1615 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0
1616 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION
1617 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS
1618 ^
1619
1620 031412 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS
1621 040000 X=40000
1622 000100 Y=100
1623 031413 PIOT01:
1624 REPEAT 7,<
1625 PIYES Y,X
1626 X=X_-1
1627 Y=Y_-1
1628 >
1629
1630 PIYES Y,X^
1631 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE.
1632 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS
1633 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED
1634
1635 TSET^
1636 031413 %X=. ;DEFINE %X TO SAVE
1637 031413 201 00 0 00 031413 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1638 031414 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1639 031415 ..0010: CLRBTH^
1640 031415 700 04 0 00 261600 CLRAPR
1641 031416 700 14 0 00 031577 CLRPI^
1642 031417 7 004 20 0 00 004100 CONO PI,REQSET+Y ;SET CHANNEL REQUEST BUT NOT ACTIVE
1643 WATINT^
1644 031420 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1645 031421 367 13 0 00 031421 SOJG 13,. ;AND WAIT^
1646 031422 7 004 30 0 00 040000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET.
1647 STOP^
1648 031423 254 04 0 00 031424 HALT .+1 ;INSTRUCTION FAILED REPLACE
1649 031424 254 00 0 00 031425 JRST .+1 ;WITH JRST BACK^
1650 TGET^^
1651 031425 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1652 031426 302 00 0 00 031413 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1653 STOP2^^
1654 031427 254 04 0 00 031430 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1655 031430 254 00 0 00 031431 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1656 020000 X=X_-1
1657 000040 Y=Y_-1
1658
1659
1660 PIYES Y,X^
1661 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE.
1662 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS
1663 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED
1664
1665 TSET^
1666 031431 %X=. ;DEFINE %X TO SAVE
1667 031431 201 00 0 00 031431 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 22-1
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0052
1668 031432 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1669 031433 ..0011: CLRBTH^
1670 031433 700 04 0 00 261600 CLRAPR
1671 031434 700 14 0 00 031577 CLRPI^
1672 031435 7 004 20 0 00 004040 CONO PI,REQSET+Y ;SET CHANNEL REQUEST BUT NOT ACTIVE
1673 WATINT^
1674 031436 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1675 031437 367 13 0 00 031437 SOJG 13,. ;AND WAIT^
1676 031440 7 004 30 0 00 020000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET.
1677 STOP^
1678 031441 254 04 0 00 031442 HALT .+1 ;INSTRUCTION FAILED REPLACE
1679 031442 254 00 0 00 031443 JRST .+1 ;WITH JRST BACK^
1680 TGET^^
1681 031443 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1682 031444 302 00 0 00 031431 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1683 STOP2^^
1684 031445 254 04 0 00 031446 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1685 031446 254 00 0 00 031447 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1686 010000 X=X_-1
1687 000020 Y=Y_-1
1688
1689
1690 PIYES Y,X^
1691 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE.
1692 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS
1693 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED
1694
1695 TSET^
1696 031447 %X=. ;DEFINE %X TO SAVE
1697 031447 201 00 0 00 031447 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1698 031450 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1699 031451 ..0012: CLRBTH^
1700 031451 700 04 0 00 261600 CLRAPR
1701 031452 700 14 0 00 031577 CLRPI^
1702 031453 7 004 20 0 00 004020 CONO PI,REQSET+Y ;SET CHANNEL REQUEST BUT NOT ACTIVE
1703 WATINT^
1704 031454 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1705 031455 367 13 0 00 031455 SOJG 13,. ;AND WAIT^
1706 031456 7 004 30 0 00 010000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET.
1707 STOP^
1708 031457 254 04 0 00 031460 HALT .+1 ;INSTRUCTION FAILED REPLACE
1709 031460 254 00 0 00 031461 JRST .+1 ;WITH JRST BACK^
1710 TGET^^
1711 031461 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1712 031462 302 00 0 00 031447 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1713 STOP2^^
1714 031463 254 04 0 00 031464 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1715 031464 254 00 0 00 031465 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1716 004000 X=X_-1
1717 000010 Y=Y_-1
1718
1719
1720 PIYES Y,X^
1721 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE.
1722 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 22-2
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0053
1723 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED
1724
1725 TSET^
1726 031465 %X=. ;DEFINE %X TO SAVE
1727 031465 201 00 0 00 031465 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1728 031466 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1729 031467 ..0013: CLRBTH^
1730 031467 700 04 0 00 261600 CLRAPR
1731 031470 700 14 0 00 031577 CLRPI^
1732 031471 7 004 20 0 00 004010 CONO PI,REQSET+Y ;SET CHANNEL REQUEST BUT NOT ACTIVE
1733 WATINT^
1734 031472 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1735 031473 367 13 0 00 031473 SOJG 13,. ;AND WAIT^
1736 031474 7 004 30 0 00 004000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET.
1737 STOP^
1738 031475 254 04 0 00 031476 HALT .+1 ;INSTRUCTION FAILED REPLACE
1739 031476 254 00 0 00 031477 JRST .+1 ;WITH JRST BACK^
1740 TGET^^
1741 031477 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1742 031500 302 00 0 00 031465 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1743 STOP2^^
1744 031501 254 04 0 00 031502 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1745 031502 254 00 0 00 031503 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1746 002000 X=X_-1
1747 000004 Y=Y_-1
1748
1749
1750 PIYES Y,X^
1751 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE.
1752 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS
1753 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED
1754
1755 TSET^
1756 031503 %X=. ;DEFINE %X TO SAVE
1757 031503 201 00 0 00 031503 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1758 031504 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1759 031505 ..0014: CLRBTH^
1760 031505 700 04 0 00 261600 CLRAPR
1761 031506 700 14 0 00 031577 CLRPI^
1762 031507 7 004 20 0 00 004004 CONO PI,REQSET+Y ;SET CHANNEL REQUEST BUT NOT ACTIVE
1763 WATINT^
1764 031510 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1765 031511 367 13 0 00 031511 SOJG 13,. ;AND WAIT^
1766 031512 7 004 30 0 00 002000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET.
1767 STOP^
1768 031513 254 04 0 00 031514 HALT .+1 ;INSTRUCTION FAILED REPLACE
1769 031514 254 00 0 00 031515 JRST .+1 ;WITH JRST BACK^
1770 TGET^^
1771 031515 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1772 031516 302 00 0 00 031503 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1773 STOP2^^
1774 031517 254 04 0 00 031520 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1775 031520 254 00 0 00 031521 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1776 001000 X=X_-1
1777 000002 Y=Y_-1
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 22-3
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0054
1778
1779
1780 PIYES Y,X^
1781 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE.
1782 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS
1783 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED
1784
1785 TSET^
1786 031521 %X=. ;DEFINE %X TO SAVE
1787 031521 201 00 0 00 031521 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1788 031522 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1789 031523 ..0015: CLRBTH^
1790 031523 700 04 0 00 261600 CLRAPR
1791 031524 700 14 0 00 031577 CLRPI^
1792 031525 7 004 20 0 00 004002 CONO PI,REQSET+Y ;SET CHANNEL REQUEST BUT NOT ACTIVE
1793 WATINT^
1794 031526 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1795 031527 367 13 0 00 031527 SOJG 13,. ;AND WAIT^
1796 031530 7 004 30 0 00 001000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET.
1797 STOP^
1798 031531 254 04 0 00 031532 HALT .+1 ;INSTRUCTION FAILED REPLACE
1799 031532 254 00 0 00 031533 JRST .+1 ;WITH JRST BACK^
1800 TGET^^
1801 031533 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1802 031534 302 00 0 00 031521 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1803 STOP2^^
1804 031535 254 04 0 00 031536 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1805 031536 254 00 0 00 031537 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1806 000400 X=X_-1
1807 000001 Y=Y_-1
1808
1809
1810 PIYES Y,X^
1811 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE.
1812 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS
1813 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED
1814
1815 TSET^
1816 031537 %X=. ;DEFINE %X TO SAVE
1817 031537 201 00 0 00 031537 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1818 031540 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1819 031541 ..0016: CLRBTH^
1820 031541 700 04 0 00 261600 CLRAPR
1821 031542 700 14 0 00 031577 CLRPI^
1822 031543 7 004 20 0 00 004001 CONO PI,REQSET+Y ;SET CHANNEL REQUEST BUT NOT ACTIVE
1823 WATINT^
1824 031544 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1825 031545 367 13 0 00 031545 SOJG 13,. ;AND WAIT^
1826 031546 7 004 30 0 00 000400 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET.
1827 STOP^
1828 031547 254 04 0 00 031550 HALT .+1 ;INSTRUCTION FAILED REPLACE
1829 031550 254 00 0 00 031551 JRST .+1 ;WITH JRST BACK^
1830 TGET^^
1831 031551 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1832 031552 302 00 0 00 031537 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 22-4
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0055
1833 STOP2^^
1834 031553 254 04 0 00 031554 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1835 031554 254 00 0 00 031555 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1836 000200 X=X_-1
1837 000000 Y=Y_-1
1838
1839 031555 255 00 0 00 000000 JFCL
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 23
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0056
1840 BLURB^
1841 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES
1842 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0
1843 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION
1844 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS
1845 ^
1846
1847 031556 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS
1848 000100 X=100
1849 031557 PIOT02:
1850 REPEAT 7,<
1851 PIONOF X
1852 X=X_-1
1853 >
1854
1855 PIONOF X^
1856 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP
1857 ;AND THAT AN INTERUPT DOES NOT OCCUR
1858
1859 BLURB1^
1860 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT
1861 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST.
1862 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR
1863 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT
1864 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL
1865 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT
1866 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT.
1867 ^
1868
1869 TSET^
1870 031557 %X=. ;DEFINE %X TO SAVE
1871 031557 201 00 0 00 031557 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1872 031560 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1873 031561 ..0017: CLRBTH^
1874 031561 700 04 0 00 261600 CLRAPR
1875 031562 700 14 0 00 031577 CLRPI^
1876 031563 7 004 20 0 00 004100 CONO PI,REQSET+X ;SET REQ. BUT NOT ACTIVE
1877 031564 400 00 0 00 000000 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE
1878 031565 7 004 20 0 00 010100 CONO PI,PICLR+X ;PI RESET FAILED TO CLEAR PIR FLAG.
1879 WATINT^
1880 031566 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1881 031567 367 13 0 00 031567 SOJG 13,. ;AND WAIT^
1882 031570 332 00 0 00 000000 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.?
1883 STOP^
1884 031571 254 04 0 00 031572 HALT .+1 ;INSTRUCTION FAILED REPLACE
1885 031572 254 00 0 00 031573 JRST .+1 ;WITH JRST BACK^
1886 TGET^^
1887 031573 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1888 031574 302 00 0 00 031557 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1889 STOP2^^
1890 031575 254 04 0 00 031576 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1891 031576 254 00 0 00 031577 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1892 000040 X=X_-1
1893
1894
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 23-1
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0057
1895 PIONOF X^
1896 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP
1897 ;AND THAT AN INTERUPT DOES NOT OCCUR
1898
1899 BLURB1^
1900 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT
1901 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST.
1902 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR
1903 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT
1904 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL
1905 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT
1906 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT.
1907 ^
1908
1909 TSET^
1910 031577 %X=. ;DEFINE %X TO SAVE
1911 031577 201 00 0 00 031577 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1912 031600 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1913 031601 ..0020: CLRBTH^
1914 031601 700 04 0 00 261600 CLRAPR
1915 031602 700 14 0 00 031577 CLRPI^
1916 031603 7 004 20 0 00 004040 CONO PI,REQSET+X ;SET REQ. BUT NOT ACTIVE
1917 031604 400 00 0 00 000000 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE
1918 031605 7 004 20 0 00 010040 CONO PI,PICLR+X ;PI RESET FAILED TO CLEAR PIR FLAG.
1919 WATINT^
1920 031606 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1921 031607 367 13 0 00 031607 SOJG 13,. ;AND WAIT^
1922 031610 332 00 0 00 000000 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.?
1923 STOP^
1924 031611 254 04 0 00 031612 HALT .+1 ;INSTRUCTION FAILED REPLACE
1925 031612 254 00 0 00 031613 JRST .+1 ;WITH JRST BACK^
1926 TGET^^
1927 031613 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1928 031614 302 00 0 00 031577 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1929 STOP2^^
1930 031615 254 04 0 00 031616 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1931 031616 254 00 0 00 031617 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1932 000020 X=X_-1
1933
1934
1935 PIONOF X^
1936 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP
1937 ;AND THAT AN INTERUPT DOES NOT OCCUR
1938
1939 BLURB1^
1940 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT
1941 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST.
1942 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR
1943 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT
1944 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL
1945 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT
1946 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT.
1947 ^
1948
1949 TSET^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 23-2
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0058
1950 031617 %X=. ;DEFINE %X TO SAVE
1951 031617 201 00 0 00 031617 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1952 031620 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1953 031621 ..0021: CLRBTH^
1954 031621 700 04 0 00 261600 CLRAPR
1955 031622 700 14 0 00 031577 CLRPI^
1956 031623 7 004 20 0 00 004020 CONO PI,REQSET+X ;SET REQ. BUT NOT ACTIVE
1957 031624 400 00 0 00 000000 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE
1958 031625 7 004 20 0 00 010020 CONO PI,PICLR+X ;PI RESET FAILED TO CLEAR PIR FLAG.
1959 WATINT^
1960 031626 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
1961 031627 367 13 0 00 031627 SOJG 13,. ;AND WAIT^
1962 031630 332 00 0 00 000000 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.?
1963 STOP^
1964 031631 254 04 0 00 031632 HALT .+1 ;INSTRUCTION FAILED REPLACE
1965 031632 254 00 0 00 031633 JRST .+1 ;WITH JRST BACK^
1966 TGET^^
1967 031633 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
1968 031634 302 00 0 00 031617 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
1969 STOP2^^
1970 031635 254 04 0 00 031636 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
1971 031636 254 00 0 00 031637 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
1972 000010 X=X_-1
1973
1974
1975 PIONOF X^
1976 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP
1977 ;AND THAT AN INTERUPT DOES NOT OCCUR
1978
1979 BLURB1^
1980 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT
1981 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST.
1982 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR
1983 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT
1984 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL
1985 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT
1986 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT.
1987 ^
1988
1989 TSET^
1990 031637 %X=. ;DEFINE %X TO SAVE
1991 031637 201 00 0 00 031637 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
1992 031640 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
1993 031641 ..0022: CLRBTH^
1994 031641 700 04 0 00 261600 CLRAPR
1995 031642 700 14 0 00 031577 CLRPI^
1996 031643 7 004 20 0 00 004010 CONO PI,REQSET+X ;SET REQ. BUT NOT ACTIVE
1997 031644 400 00 0 00 000000 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE
1998 031645 7 004 20 0 00 010010 CONO PI,PICLR+X ;PI RESET FAILED TO CLEAR PIR FLAG.
1999 WATINT^
2000 031646 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
2001 031647 367 13 0 00 031647 SOJG 13,. ;AND WAIT^
2002 031650 332 00 0 00 000000 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.?
2003 STOP^
2004 031651 254 04 0 00 031652 HALT .+1 ;INSTRUCTION FAILED REPLACE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 23-3
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0059
2005 031652 254 00 0 00 031653 JRST .+1 ;WITH JRST BACK^
2006 TGET^^
2007 031653 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2008 031654 302 00 0 00 031637 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2009 STOP2^^
2010 031655 254 04 0 00 031656 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2011 031656 254 00 0 00 031657 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2012 000004 X=X_-1
2013
2014
2015 PIONOF X^
2016 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP
2017 ;AND THAT AN INTERUPT DOES NOT OCCUR
2018
2019 BLURB1^
2020 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT
2021 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST.
2022 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR
2023 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT
2024 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL
2025 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT
2026 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT.
2027 ^
2028
2029 TSET^
2030 031657 %X=. ;DEFINE %X TO SAVE
2031 031657 201 00 0 00 031657 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2032 031660 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2033 031661 ..0023: CLRBTH^
2034 031661 700 04 0 00 261600 CLRAPR
2035 031662 700 14 0 00 031577 CLRPI^
2036 031663 7 004 20 0 00 004004 CONO PI,REQSET+X ;SET REQ. BUT NOT ACTIVE
2037 031664 400 00 0 00 000000 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE
2038 031665 7 004 20 0 00 010004 CONO PI,PICLR+X ;PI RESET FAILED TO CLEAR PIR FLAG.
2039 WATINT^
2040 031666 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
2041 031667 367 13 0 00 031667 SOJG 13,. ;AND WAIT^
2042 031670 332 00 0 00 000000 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.?
2043 STOP^
2044 031671 254 04 0 00 031672 HALT .+1 ;INSTRUCTION FAILED REPLACE
2045 031672 254 00 0 00 031673 JRST .+1 ;WITH JRST BACK^
2046 TGET^^
2047 031673 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2048 031674 302 00 0 00 031657 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2049 STOP2^^
2050 031675 254 04 0 00 031676 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2051 031676 254 00 0 00 031677 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2052 000002 X=X_-1
2053
2054
2055 PIONOF X^
2056 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP
2057 ;AND THAT AN INTERUPT DOES NOT OCCUR
2058
2059 BLURB1^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 23-4
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0060
2060 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT
2061 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST.
2062 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR
2063 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT
2064 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL
2065 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT
2066 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT.
2067 ^
2068
2069 TSET^
2070 031677 %X=. ;DEFINE %X TO SAVE
2071 031677 201 00 0 00 031677 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2072 031700 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2073 031701 ..0024: CLRBTH^
2074 031701 700 04 0 00 261600 CLRAPR
2075 031702 700 14 0 00 031577 CLRPI^
2076 031703 7 004 20 0 00 004002 CONO PI,REQSET+X ;SET REQ. BUT NOT ACTIVE
2077 031704 400 00 0 00 000000 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE
2078 031705 7 004 20 0 00 010002 CONO PI,PICLR+X ;PI RESET FAILED TO CLEAR PIR FLAG.
2079 WATINT^
2080 031706 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
2081 031707 367 13 0 00 031707 SOJG 13,. ;AND WAIT^
2082 031710 332 00 0 00 000000 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.?
2083 STOP^
2084 031711 254 04 0 00 031712 HALT .+1 ;INSTRUCTION FAILED REPLACE
2085 031712 254 00 0 00 031713 JRST .+1 ;WITH JRST BACK^
2086 TGET^^
2087 031713 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2088 031714 302 00 0 00 031677 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2089 STOP2^^
2090 031715 254 04 0 00 031716 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2091 031716 254 00 0 00 031717 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2092 000001 X=X_-1
2093
2094
2095 PIONOF X^
2096 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP
2097 ;AND THAT AN INTERUPT DOES NOT OCCUR
2098
2099 BLURB1^
2100 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT
2101 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST.
2102 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR
2103 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT
2104 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL
2105 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT
2106 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT.
2107 ^
2108
2109 TSET^
2110 031717 %X=. ;DEFINE %X TO SAVE
2111 031717 201 00 0 00 031717 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2112 031720 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2113 031721 ..0025: CLRBTH^
2114 031721 700 04 0 00 261600 CLRAPR
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 23-5
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0061
2115 031722 700 14 0 00 031577 CLRPI^
2116 031723 7 004 20 0 00 004001 CONO PI,REQSET+X ;SET REQ. BUT NOT ACTIVE
2117 031724 400 00 0 00 000000 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE
2118 031725 7 004 20 0 00 010001 CONO PI,PICLR+X ;PI RESET FAILED TO CLEAR PIR FLAG.
2119 WATINT^
2120 031726 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
2121 031727 367 13 0 00 031727 SOJG 13,. ;AND WAIT^
2122 031730 332 00 0 00 000000 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.?
2123 STOP^
2124 031731 254 04 0 00 031732 HALT .+1 ;INSTRUCTION FAILED REPLACE
2125 031732 254 00 0 00 031733 JRST .+1 ;WITH JRST BACK^
2126 TGET^^
2127 031733 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2128 031734 302 00 0 00 031717 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2129 STOP2^^
2130 031735 254 04 0 00 031736 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2131 031736 254 00 0 00 031737 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2132 000000 X=X_-1
2133
2134 031737 255 00 0 00 000000 JFCL
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0062
2135 BLURB^
2136 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES
2137 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0
2138 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION
2139 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS
2140 ^
2141 ;TEST THE SETTING AND CLEARING OF THE PI FLOPS WITHOUT CREATING INTERRUPTS
2142 ;THE TEST WILL HALT IF AN INTERRUPT OCCURS AND THE CHANNEL NUMBER OF THE
2143 ;INTERRUPT WILL BE STORED IN AC0
2144
2145
2146 031740 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
2147
2148 031741 BIGPI1: PITEST 100^
2149 ;TEST SETTING OF CHANNEL FLOP
2150
2151 TSET^
2152 031741 %X=. ;DEFINE %X TO SAVE
2153 031741 201 00 0 00 031741 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2154 031742 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2155 031743 ..0026: CLRBTH^
2156 031743 700 04 0 00 261600 CLRAPR
2157 031744 700 14 0 00 031577 CLRPI^
2158 031745 7 004 20 0 00 002100 CONO PI,CHNON+100 ;PION FAILED TO SET
2159 031746 7 004 34 0 00 000100 CONSO PI,100
2160 STOP^
2161 031747 254 04 0 00 031750 HALT .+1 ;INSTRUCTION FAILED REPLACE
2162 031750 254 00 0 00 031751 JRST .+1 ;WITH JRST BACK^
2163 TBOTH^
2164 TGET^
2165 031751 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2166 031752 302 00 0 00 031741 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2167 STOP2^^
2168 031753 254 04 0 00 031754 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2169 031754 254 00 0 00 031755 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2170 TSET^^
2171 031755 %X=. ;DEFINE %X TO SAVE
2172 031755 201 00 0 00 031755 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2173 031756 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2174 CLRBTH^
2175 031757 700 04 0 00 261600 CLRAPR
2176 031760 700 14 0 00 031577 CLRPI^
2177 ;TEST CLEARING OF CHANNEL FLOP
2178 031761 7 004 20 0 00 002100 CONO PI,CHNON+100 ;CHECK PIO CLR
2179 031762 7 004 20 0 00 001100 CONO PI,CHNOFF+100 ;TURN OFF CHANNELS
2180 031763 7 004 30 0 00 000100 CONSZ PI,100 ;CHECK WHY FLOP NOT CLEAR
2181 STOP^
2182 031764 254 04 0 00 031765 HALT .+1 ;INSTRUCTION FAILED REPLACE
2183 031765 254 00 0 00 031766 JRST .+1 ;WITH JRST BACK^
2184 TBOTH^
2185 TGET^
2186 031766 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2187 031767 302 00 0 00 031755 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2188 STOP2^^
2189 031770 254 04 0 00 031771 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-1
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0063
2190 031771 254 00 0 00 031772 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2191 TSET^^
2192 031772 %X=. ;DEFINE %X TO SAVE
2193 031772 201 00 0 00 031772 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2194 031773 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2195 CLRBTH^
2196 031774 700 04 0 00 261600 CLRAPR
2197 031775 700 14 0 00 031577 CLRPI^
2198 ;CHECK RESETING OF PI SYSTEM
2199 031776 7 004 20 0 00 002100 CONO PI,CHNON+100 ;CHECK THAT PI RESET CLEARS
2200 031777 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM
2201 032000 7 004 30 0 00 000100 CONSZ PI,100
2202 STOP^
2203 032001 254 04 0 00 032002 HALT .+1 ;INSTRUCTION FAILED REPLACE
2204 032002 254 00 0 00 032003 JRST .+1 ;WITH JRST BACK^
2205 TBOTH^
2206 TGET^
2207 032003 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2208 032004 302 00 0 00 031772 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2209 STOP2^^
2210 032005 254 04 0 00 032006 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2211 032006 254 00 0 00 032007 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2212 TSET^^
2213 032007 %X=. ;DEFINE %X TO SAVE
2214 032007 201 00 0 00 032007 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2215 032010 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2216 CLRBTH^
2217 032011 700 04 0 00 261600 CLRAPR
2218 032012 700 14 0 00 031577 CLRPI^
2219 ;TEST THAT CONO ONLY SETS PION
2220 032013 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET
2221 032014 7 004 30 0 00 000100 CONSZ PI,100 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT
2222 STOP^
2223 032015 254 04 0 00 032016 HALT .+1 ;INSTRUCTION FAILED REPLACE
2224 032016 254 00 0 00 032017 JRST .+1 ;WITH JRST BACK^
2225 TBOTH^
2226 TGET^
2227 032017 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2228 032020 302 00 0 00 032007 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2229 STOP2^^
2230 032021 254 04 0 00 032022 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2231 032022 254 00 0 00 032023 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2232 TSET^^
2233 032023 %X=. ;DEFINE %X TO SAVE
2234 032023 201 00 0 00 032023 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2235 032024 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2236 CLRBTH^
2237 032025 700 04 0 00 261600 CLRAPR
2238 032026 700 14 0 00 031577 CLRPI^
2239 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE
2240 032027 7 004 20 0 00 002100 CONO PI,CHNON+100 ;TEST PIO CLR
2241 032030 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL
2242 032031 7 004 34 0 00 000100 CONSO PI,100 ;BE SET
2243 STOP^
2244 032032 254 04 0 00 032033 HALT .+1 ;INSTRUCTION FAILED REPLACE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-2
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0064
2245 032033 254 00 0 00 032034 JRST .+1 ;WITH JRST BACK^
2246 TGET^^
2247 032034 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2248 032035 302 00 0 00 032023 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2249 STOP2^^
2250 032036 254 04 0 00 032037 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2251 032037 254 00 0 00 032040 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2252
2253 032040 BIGPI2: PITEST 40^
2254 ;TEST SETTING OF CHANNEL FLOP
2255
2256 TSET^
2257 032040 %X=. ;DEFINE %X TO SAVE
2258 032040 201 00 0 00 032040 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2259 032041 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2260 032042 ..0027: CLRBTH^
2261 032042 700 04 0 00 261600 CLRAPR
2262 032043 700 14 0 00 031577 CLRPI^
2263 032044 7 004 20 0 00 002040 CONO PI,CHNON+40 ;PION FAILED TO SET
2264 032045 7 004 34 0 00 000040 CONSO PI,40
2265 STOP^
2266 032046 254 04 0 00 032047 HALT .+1 ;INSTRUCTION FAILED REPLACE
2267 032047 254 00 0 00 032050 JRST .+1 ;WITH JRST BACK^
2268 TBOTH^
2269 TGET^
2270 032050 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2271 032051 302 00 0 00 032040 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2272 STOP2^^
2273 032052 254 04 0 00 032053 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2274 032053 254 00 0 00 032054 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2275 TSET^^
2276 032054 %X=. ;DEFINE %X TO SAVE
2277 032054 201 00 0 00 032054 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2278 032055 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2279 CLRBTH^
2280 032056 700 04 0 00 261600 CLRAPR
2281 032057 700 14 0 00 031577 CLRPI^
2282 ;TEST CLEARING OF CHANNEL FLOP
2283 032060 7 004 20 0 00 002040 CONO PI,CHNON+40 ;CHECK PIO CLR
2284 032061 7 004 20 0 00 001040 CONO PI,CHNOFF+40 ;TURN OFF CHANNELS
2285 032062 7 004 30 0 00 000040 CONSZ PI,40 ;CHECK WHY FLOP NOT CLEAR
2286 STOP^
2287 032063 254 04 0 00 032064 HALT .+1 ;INSTRUCTION FAILED REPLACE
2288 032064 254 00 0 00 032065 JRST .+1 ;WITH JRST BACK^
2289 TBOTH^
2290 TGET^
2291 032065 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2292 032066 302 00 0 00 032054 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2293 STOP2^^
2294 032067 254 04 0 00 032070 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2295 032070 254 00 0 00 032071 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2296 TSET^^
2297 032071 %X=. ;DEFINE %X TO SAVE
2298 032071 201 00 0 00 032071 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2299 032072 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-3
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0065
2300 CLRBTH^
2301 032073 700 04 0 00 261600 CLRAPR
2302 032074 700 14 0 00 031577 CLRPI^
2303 ;CHECK RESETING OF PI SYSTEM
2304 032075 7 004 20 0 00 002040 CONO PI,CHNON+40 ;CHECK THAT PI RESET CLEARS
2305 032076 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM
2306 032077 7 004 30 0 00 000040 CONSZ PI,40
2307 STOP^
2308 032100 254 04 0 00 032101 HALT .+1 ;INSTRUCTION FAILED REPLACE
2309 032101 254 00 0 00 032102 JRST .+1 ;WITH JRST BACK^
2310 TBOTH^
2311 TGET^
2312 032102 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2313 032103 302 00 0 00 032071 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2314 STOP2^^
2315 032104 254 04 0 00 032105 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2316 032105 254 00 0 00 032106 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2317 TSET^^
2318 032106 %X=. ;DEFINE %X TO SAVE
2319 032106 201 00 0 00 032106 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2320 032107 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2321 CLRBTH^
2322 032110 700 04 0 00 261600 CLRAPR
2323 032111 700 14 0 00 031577 CLRPI^
2324 ;TEST THAT CONO ONLY SETS PION
2325 032112 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET
2326 032113 7 004 30 0 00 000040 CONSZ PI,40 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT
2327 STOP^
2328 032114 254 04 0 00 032115 HALT .+1 ;INSTRUCTION FAILED REPLACE
2329 032115 254 00 0 00 032116 JRST .+1 ;WITH JRST BACK^
2330 TBOTH^
2331 TGET^
2332 032116 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2333 032117 302 00 0 00 032106 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2334 STOP2^^
2335 032120 254 04 0 00 032121 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2336 032121 254 00 0 00 032122 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2337 TSET^^
2338 032122 %X=. ;DEFINE %X TO SAVE
2339 032122 201 00 0 00 032122 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2340 032123 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2341 CLRBTH^
2342 032124 700 04 0 00 261600 CLRAPR
2343 032125 700 14 0 00 031577 CLRPI^
2344 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE
2345 032126 7 004 20 0 00 002040 CONO PI,CHNON+40 ;TEST PIO CLR
2346 032127 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL
2347 032130 7 004 34 0 00 000040 CONSO PI,40 ;BE SET
2348 STOP^
2349 032131 254 04 0 00 032132 HALT .+1 ;INSTRUCTION FAILED REPLACE
2350 032132 254 00 0 00 032133 JRST .+1 ;WITH JRST BACK^
2351 TGET^^
2352 032133 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2353 032134 302 00 0 00 032122 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2354 STOP2^^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-4
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0066
2355 032135 254 04 0 00 032136 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2356 032136 254 00 0 00 032137 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2357
2358 032137 BIGPI3: PITEST 20^
2359 ;TEST SETTING OF CHANNEL FLOP
2360
2361 TSET^
2362 032137 %X=. ;DEFINE %X TO SAVE
2363 032137 201 00 0 00 032137 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2364 032140 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2365 032141 ..0030: CLRBTH^
2366 032141 700 04 0 00 261600 CLRAPR
2367 032142 700 14 0 00 031577 CLRPI^
2368 032143 7 004 20 0 00 002020 CONO PI,CHNON+20 ;PION FAILED TO SET
2369 032144 7 004 34 0 00 000020 CONSO PI,20
2370 STOP^
2371 032145 254 04 0 00 032146 HALT .+1 ;INSTRUCTION FAILED REPLACE
2372 032146 254 00 0 00 032147 JRST .+1 ;WITH JRST BACK^
2373 TBOTH^
2374 TGET^
2375 032147 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2376 032150 302 00 0 00 032137 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2377 STOP2^^
2378 032151 254 04 0 00 032152 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2379 032152 254 00 0 00 032153 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2380 TSET^^
2381 032153 %X=. ;DEFINE %X TO SAVE
2382 032153 201 00 0 00 032153 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2383 032154 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2384 CLRBTH^
2385 032155 700 04 0 00 261600 CLRAPR
2386 032156 700 14 0 00 031577 CLRPI^
2387 ;TEST CLEARING OF CHANNEL FLOP
2388 032157 7 004 20 0 00 002020 CONO PI,CHNON+20 ;CHECK PIO CLR
2389 032160 7 004 20 0 00 001020 CONO PI,CHNOFF+20 ;TURN OFF CHANNELS
2390 032161 7 004 30 0 00 000020 CONSZ PI,20 ;CHECK WHY FLOP NOT CLEAR
2391 STOP^
2392 032162 254 04 0 00 032163 HALT .+1 ;INSTRUCTION FAILED REPLACE
2393 032163 254 00 0 00 032164 JRST .+1 ;WITH JRST BACK^
2394 TBOTH^
2395 TGET^
2396 032164 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2397 032165 302 00 0 00 032153 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2398 STOP2^^
2399 032166 254 04 0 00 032167 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2400 032167 254 00 0 00 032170 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2401 TSET^^
2402 032170 %X=. ;DEFINE %X TO SAVE
2403 032170 201 00 0 00 032170 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2404 032171 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2405 CLRBTH^
2406 032172 700 04 0 00 261600 CLRAPR
2407 032173 700 14 0 00 031577 CLRPI^
2408 ;CHECK RESETING OF PI SYSTEM
2409 032174 7 004 20 0 00 002020 CONO PI,CHNON+20 ;CHECK THAT PI RESET CLEARS
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-5
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0067
2410 032175 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM
2411 032176 7 004 30 0 00 000020 CONSZ PI,20
2412 STOP^
2413 032177 254 04 0 00 032200 HALT .+1 ;INSTRUCTION FAILED REPLACE
2414 032200 254 00 0 00 032201 JRST .+1 ;WITH JRST BACK^
2415 TBOTH^
2416 TGET^
2417 032201 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2418 032202 302 00 0 00 032170 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2419 STOP2^^
2420 032203 254 04 0 00 032204 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2421 032204 254 00 0 00 032205 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2422 TSET^^
2423 032205 %X=. ;DEFINE %X TO SAVE
2424 032205 201 00 0 00 032205 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2425 032206 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2426 CLRBTH^
2427 032207 700 04 0 00 261600 CLRAPR
2428 032210 700 14 0 00 031577 CLRPI^
2429 ;TEST THAT CONO ONLY SETS PION
2430 032211 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET
2431 032212 7 004 30 0 00 000020 CONSZ PI,20 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT
2432 STOP^
2433 032213 254 04 0 00 032214 HALT .+1 ;INSTRUCTION FAILED REPLACE
2434 032214 254 00 0 00 032215 JRST .+1 ;WITH JRST BACK^
2435 TBOTH^
2436 TGET^
2437 032215 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2438 032216 302 00 0 00 032205 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2439 STOP2^^
2440 032217 254 04 0 00 032220 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2441 032220 254 00 0 00 032221 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2442 TSET^^
2443 032221 %X=. ;DEFINE %X TO SAVE
2444 032221 201 00 0 00 032221 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2445 032222 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2446 CLRBTH^
2447 032223 700 04 0 00 261600 CLRAPR
2448 032224 700 14 0 00 031577 CLRPI^
2449 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE
2450 032225 7 004 20 0 00 002020 CONO PI,CHNON+20 ;TEST PIO CLR
2451 032226 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL
2452 032227 7 004 34 0 00 000020 CONSO PI,20 ;BE SET
2453 STOP^
2454 032230 254 04 0 00 032231 HALT .+1 ;INSTRUCTION FAILED REPLACE
2455 032231 254 00 0 00 032232 JRST .+1 ;WITH JRST BACK^
2456 TGET^^
2457 032232 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2458 032233 302 00 0 00 032221 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2459 STOP2^^
2460 032234 254 04 0 00 032235 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2461 032235 254 00 0 00 032236 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2462
2463 032236 BIGPI4: PITEST 10^
2464 ;TEST SETTING OF CHANNEL FLOP
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-6
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0068
2465
2466 TSET^
2467 032236 %X=. ;DEFINE %X TO SAVE
2468 032236 201 00 0 00 032236 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2469 032237 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2470 032240 ..0031: CLRBTH^
2471 032240 700 04 0 00 261600 CLRAPR
2472 032241 700 14 0 00 031577 CLRPI^
2473 032242 7 004 20 0 00 002010 CONO PI,CHNON+10 ;PION FAILED TO SET
2474 032243 7 004 34 0 00 000010 CONSO PI,10
2475 STOP^
2476 032244 254 04 0 00 032245 HALT .+1 ;INSTRUCTION FAILED REPLACE
2477 032245 254 00 0 00 032246 JRST .+1 ;WITH JRST BACK^
2478 TBOTH^
2479 TGET^
2480 032246 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2481 032247 302 00 0 00 032236 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2482 STOP2^^
2483 032250 254 04 0 00 032251 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2484 032251 254 00 0 00 032252 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2485 TSET^^
2486 032252 %X=. ;DEFINE %X TO SAVE
2487 032252 201 00 0 00 032252 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2488 032253 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2489 CLRBTH^
2490 032254 700 04 0 00 261600 CLRAPR
2491 032255 700 14 0 00 031577 CLRPI^
2492 ;TEST CLEARING OF CHANNEL FLOP
2493 032256 7 004 20 0 00 002010 CONO PI,CHNON+10 ;CHECK PIO CLR
2494 032257 7 004 20 0 00 001010 CONO PI,CHNOFF+10 ;TURN OFF CHANNELS
2495 032260 7 004 30 0 00 000010 CONSZ PI,10 ;CHECK WHY FLOP NOT CLEAR
2496 STOP^
2497 032261 254 04 0 00 032262 HALT .+1 ;INSTRUCTION FAILED REPLACE
2498 032262 254 00 0 00 032263 JRST .+1 ;WITH JRST BACK^
2499 TBOTH^
2500 TGET^
2501 032263 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2502 032264 302 00 0 00 032252 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2503 STOP2^^
2504 032265 254 04 0 00 032266 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2505 032266 254 00 0 00 032267 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2506 TSET^^
2507 032267 %X=. ;DEFINE %X TO SAVE
2508 032267 201 00 0 00 032267 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2509 032270 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2510 CLRBTH^
2511 032271 700 04 0 00 261600 CLRAPR
2512 032272 700 14 0 00 031577 CLRPI^
2513 ;CHECK RESETING OF PI SYSTEM
2514 032273 7 004 20 0 00 002010 CONO PI,CHNON+10 ;CHECK THAT PI RESET CLEARS
2515 032274 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM
2516 032275 7 004 30 0 00 000010 CONSZ PI,10
2517 STOP^
2518 032276 254 04 0 00 032277 HALT .+1 ;INSTRUCTION FAILED REPLACE
2519 032277 254 00 0 00 032300 JRST .+1 ;WITH JRST BACK^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-7
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0069
2520 TBOTH^
2521 TGET^
2522 032300 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2523 032301 302 00 0 00 032267 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2524 STOP2^^
2525 032302 254 04 0 00 032303 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2526 032303 254 00 0 00 032304 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2527 TSET^^
2528 032304 %X=. ;DEFINE %X TO SAVE
2529 032304 201 00 0 00 032304 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2530 032305 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2531 CLRBTH^
2532 032306 700 04 0 00 261600 CLRAPR
2533 032307 700 14 0 00 031577 CLRPI^
2534 ;TEST THAT CONO ONLY SETS PION
2535 032310 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET
2536 032311 7 004 30 0 00 000010 CONSZ PI,10 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT
2537 STOP^
2538 032312 254 04 0 00 032313 HALT .+1 ;INSTRUCTION FAILED REPLACE
2539 032313 254 00 0 00 032314 JRST .+1 ;WITH JRST BACK^
2540 TBOTH^
2541 TGET^
2542 032314 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2543 032315 302 00 0 00 032304 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2544 STOP2^^
2545 032316 254 04 0 00 032317 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2546 032317 254 00 0 00 032320 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2547 TSET^^
2548 032320 %X=. ;DEFINE %X TO SAVE
2549 032320 201 00 0 00 032320 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2550 032321 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2551 CLRBTH^
2552 032322 700 04 0 00 261600 CLRAPR
2553 032323 700 14 0 00 031577 CLRPI^
2554 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE
2555 032324 7 004 20 0 00 002010 CONO PI,CHNON+10 ;TEST PIO CLR
2556 032325 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL
2557 032326 7 004 34 0 00 000010 CONSO PI,10 ;BE SET
2558 STOP^
2559 032327 254 04 0 00 032330 HALT .+1 ;INSTRUCTION FAILED REPLACE
2560 032330 254 00 0 00 032331 JRST .+1 ;WITH JRST BACK^
2561 TGET^^
2562 032331 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2563 032332 302 00 0 00 032320 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2564 STOP2^^
2565 032333 254 04 0 00 032334 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2566 032334 254 00 0 00 032335 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2567
2568 032335 BIGPI5: PITEST 4^
2569 ;TEST SETTING OF CHANNEL FLOP
2570
2571 TSET^
2572 032335 %X=. ;DEFINE %X TO SAVE
2573 032335 201 00 0 00 032335 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2574 032336 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-8
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0070
2575 032337 ..0032: CLRBTH^
2576 032337 700 04 0 00 261600 CLRAPR
2577 032340 700 14 0 00 031577 CLRPI^
2578 032341 7 004 20 0 00 002004 CONO PI,CHNON+4 ;PION FAILED TO SET
2579 032342 7 004 34 0 00 000004 CONSO PI,4
2580 STOP^
2581 032343 254 04 0 00 032344 HALT .+1 ;INSTRUCTION FAILED REPLACE
2582 032344 254 00 0 00 032345 JRST .+1 ;WITH JRST BACK^
2583 TBOTH^
2584 TGET^
2585 032345 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2586 032346 302 00 0 00 032335 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2587 STOP2^^
2588 032347 254 04 0 00 032350 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2589 032350 254 00 0 00 032351 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2590 TSET^^
2591 032351 %X=. ;DEFINE %X TO SAVE
2592 032351 201 00 0 00 032351 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2593 032352 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2594 CLRBTH^
2595 032353 700 04 0 00 261600 CLRAPR
2596 032354 700 14 0 00 031577 CLRPI^
2597 ;TEST CLEARING OF CHANNEL FLOP
2598 032355 7 004 20 0 00 002004 CONO PI,CHNON+4 ;CHECK PIO CLR
2599 032356 7 004 20 0 00 001004 CONO PI,CHNOFF+4 ;TURN OFF CHANNELS
2600 032357 7 004 30 0 00 000004 CONSZ PI,4 ;CHECK WHY FLOP NOT CLEAR
2601 STOP^
2602 032360 254 04 0 00 032361 HALT .+1 ;INSTRUCTION FAILED REPLACE
2603 032361 254 00 0 00 032362 JRST .+1 ;WITH JRST BACK^
2604 TBOTH^
2605 TGET^
2606 032362 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2607 032363 302 00 0 00 032351 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2608 STOP2^^
2609 032364 254 04 0 00 032365 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2610 032365 254 00 0 00 032366 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2611 TSET^^
2612 032366 %X=. ;DEFINE %X TO SAVE
2613 032366 201 00 0 00 032366 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2614 032367 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2615 CLRBTH^
2616 032370 700 04 0 00 261600 CLRAPR
2617 032371 700 14 0 00 031577 CLRPI^
2618 ;CHECK RESETING OF PI SYSTEM
2619 032372 7 004 20 0 00 002004 CONO PI,CHNON+4 ;CHECK THAT PI RESET CLEARS
2620 032373 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM
2621 032374 7 004 30 0 00 000004 CONSZ PI,4
2622 STOP^
2623 032375 254 04 0 00 032376 HALT .+1 ;INSTRUCTION FAILED REPLACE
2624 032376 254 00 0 00 032377 JRST .+1 ;WITH JRST BACK^
2625 TBOTH^
2626 TGET^
2627 032377 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2628 032400 302 00 0 00 032366 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2629 STOP2^^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-9
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0071
2630 032401 254 04 0 00 032402 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2631 032402 254 00 0 00 032403 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2632 TSET^^
2633 032403 %X=. ;DEFINE %X TO SAVE
2634 032403 201 00 0 00 032403 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2635 032404 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2636 CLRBTH^
2637 032405 700 04 0 00 261600 CLRAPR
2638 032406 700 14 0 00 031577 CLRPI^
2639 ;TEST THAT CONO ONLY SETS PION
2640 032407 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET
2641 032410 7 004 30 0 00 000004 CONSZ PI,4 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT
2642 STOP^
2643 032411 254 04 0 00 032412 HALT .+1 ;INSTRUCTION FAILED REPLACE
2644 032412 254 00 0 00 032413 JRST .+1 ;WITH JRST BACK^
2645 TBOTH^
2646 TGET^
2647 032413 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2648 032414 302 00 0 00 032403 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2649 STOP2^^
2650 032415 254 04 0 00 032416 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2651 032416 254 00 0 00 032417 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2652 TSET^^
2653 032417 %X=. ;DEFINE %X TO SAVE
2654 032417 201 00 0 00 032417 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2655 032420 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2656 CLRBTH^
2657 032421 700 04 0 00 261600 CLRAPR
2658 032422 700 14 0 00 031577 CLRPI^
2659 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE
2660 032423 7 004 20 0 00 002004 CONO PI,CHNON+4 ;TEST PIO CLR
2661 032424 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL
2662 032425 7 004 34 0 00 000004 CONSO PI,4 ;BE SET
2663 STOP^
2664 032426 254 04 0 00 032427 HALT .+1 ;INSTRUCTION FAILED REPLACE
2665 032427 254 00 0 00 032430 JRST .+1 ;WITH JRST BACK^
2666 TGET^^
2667 032430 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2668 032431 302 00 0 00 032417 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2669 STOP2^^
2670 032432 254 04 0 00 032433 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2671 032433 254 00 0 00 032434 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2672
2673 032434 BIGPI6: PITEST 2^
2674 ;TEST SETTING OF CHANNEL FLOP
2675
2676 TSET^
2677 032434 %X=. ;DEFINE %X TO SAVE
2678 032434 201 00 0 00 032434 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2679 032435 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2680 032436 ..0033: CLRBTH^
2681 032436 700 04 0 00 261600 CLRAPR
2682 032437 700 14 0 00 031577 CLRPI^
2683 032440 7 004 20 0 00 002002 CONO PI,CHNON+2 ;PION FAILED TO SET
2684 032441 7 004 34 0 00 000002 CONSO PI,2
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-10
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0072
2685 STOP^
2686 032442 254 04 0 00 032443 HALT .+1 ;INSTRUCTION FAILED REPLACE
2687 032443 254 00 0 00 032444 JRST .+1 ;WITH JRST BACK^
2688 TBOTH^
2689 TGET^
2690 032444 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2691 032445 302 00 0 00 032434 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2692 STOP2^^
2693 032446 254 04 0 00 032447 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2694 032447 254 00 0 00 032450 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2695 TSET^^
2696 032450 %X=. ;DEFINE %X TO SAVE
2697 032450 201 00 0 00 032450 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2698 032451 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2699 CLRBTH^
2700 032452 700 04 0 00 261600 CLRAPR
2701 032453 700 14 0 00 031577 CLRPI^
2702 ;TEST CLEARING OF CHANNEL FLOP
2703 032454 7 004 20 0 00 002002 CONO PI,CHNON+2 ;CHECK PIO CLR
2704 032455 7 004 20 0 00 001002 CONO PI,CHNOFF+2 ;TURN OFF CHANNELS
2705 032456 7 004 30 0 00 000002 CONSZ PI,2 ;CHECK WHY FLOP NOT CLEAR
2706 STOP^
2707 032457 254 04 0 00 032460 HALT .+1 ;INSTRUCTION FAILED REPLACE
2708 032460 254 00 0 00 032461 JRST .+1 ;WITH JRST BACK^
2709 TBOTH^
2710 TGET^
2711 032461 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2712 032462 302 00 0 00 032450 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2713 STOP2^^
2714 032463 254 04 0 00 032464 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2715 032464 254 00 0 00 032465 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2716 TSET^^
2717 032465 %X=. ;DEFINE %X TO SAVE
2718 032465 201 00 0 00 032465 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2719 032466 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2720 CLRBTH^
2721 032467 700 04 0 00 261600 CLRAPR
2722 032470 700 14 0 00 031577 CLRPI^
2723 ;CHECK RESETING OF PI SYSTEM
2724 032471 7 004 20 0 00 002002 CONO PI,CHNON+2 ;CHECK THAT PI RESET CLEARS
2725 032472 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM
2726 032473 7 004 30 0 00 000002 CONSZ PI,2
2727 STOP^
2728 032474 254 04 0 00 032475 HALT .+1 ;INSTRUCTION FAILED REPLACE
2729 032475 254 00 0 00 032476 JRST .+1 ;WITH JRST BACK^
2730 TBOTH^
2731 TGET^
2732 032476 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2733 032477 302 00 0 00 032465 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2734 STOP2^^
2735 032500 254 04 0 00 032501 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2736 032501 254 00 0 00 032502 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2737 TSET^^
2738 032502 %X=. ;DEFINE %X TO SAVE
2739 032502 201 00 0 00 032502 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-11
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0073
2740 032503 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2741 CLRBTH^
2742 032504 700 04 0 00 261600 CLRAPR
2743 032505 700 14 0 00 031577 CLRPI^
2744 ;TEST THAT CONO ONLY SETS PION
2745 032506 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET
2746 032507 7 004 30 0 00 000002 CONSZ PI,2 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT
2747 STOP^
2748 032510 254 04 0 00 032511 HALT .+1 ;INSTRUCTION FAILED REPLACE
2749 032511 254 00 0 00 032512 JRST .+1 ;WITH JRST BACK^
2750 TBOTH^
2751 TGET^
2752 032512 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2753 032513 302 00 0 00 032502 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2754 STOP2^^
2755 032514 254 04 0 00 032515 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2756 032515 254 00 0 00 032516 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2757 TSET^^
2758 032516 %X=. ;DEFINE %X TO SAVE
2759 032516 201 00 0 00 032516 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2760 032517 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2761 CLRBTH^
2762 032520 700 04 0 00 261600 CLRAPR
2763 032521 700 14 0 00 031577 CLRPI^
2764 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE
2765 032522 7 004 20 0 00 002002 CONO PI,CHNON+2 ;TEST PIO CLR
2766 032523 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL
2767 032524 7 004 34 0 00 000002 CONSO PI,2 ;BE SET
2768 STOP^
2769 032525 254 04 0 00 032526 HALT .+1 ;INSTRUCTION FAILED REPLACE
2770 032526 254 00 0 00 032527 JRST .+1 ;WITH JRST BACK^
2771 TGET^^
2772 032527 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2773 032530 302 00 0 00 032516 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2774 STOP2^^
2775 032531 254 04 0 00 032532 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2776 032532 254 00 0 00 032533 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2777
2778 032533 BIGPI7: PITEST 1^
2779 ;TEST SETTING OF CHANNEL FLOP
2780
2781 TSET^
2782 032533 %X=. ;DEFINE %X TO SAVE
2783 032533 201 00 0 00 032533 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2784 032534 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2785 032535 ..0034: CLRBTH^
2786 032535 700 04 0 00 261600 CLRAPR
2787 032536 700 14 0 00 031577 CLRPI^
2788 032537 7 004 20 0 00 002001 CONO PI,CHNON+1 ;PION FAILED TO SET
2789 032540 7 004 34 0 00 000001 CONSO PI,1
2790 STOP^
2791 032541 254 04 0 00 032542 HALT .+1 ;INSTRUCTION FAILED REPLACE
2792 032542 254 00 0 00 032543 JRST .+1 ;WITH JRST BACK^
2793 TBOTH^
2794 TGET^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-12
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0074
2795 032543 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2796 032544 302 00 0 00 032533 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2797 STOP2^^
2798 032545 254 04 0 00 032546 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2799 032546 254 00 0 00 032547 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2800 TSET^^
2801 032547 %X=. ;DEFINE %X TO SAVE
2802 032547 201 00 0 00 032547 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2803 032550 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2804 CLRBTH^
2805 032551 700 04 0 00 261600 CLRAPR
2806 032552 700 14 0 00 031577 CLRPI^
2807 ;TEST CLEARING OF CHANNEL FLOP
2808 032553 7 004 20 0 00 002001 CONO PI,CHNON+1 ;CHECK PIO CLR
2809 032554 7 004 20 0 00 001001 CONO PI,CHNOFF+1 ;TURN OFF CHANNELS
2810 032555 7 004 30 0 00 000001 CONSZ PI,1 ;CHECK WHY FLOP NOT CLEAR
2811 STOP^
2812 032556 254 04 0 00 032557 HALT .+1 ;INSTRUCTION FAILED REPLACE
2813 032557 254 00 0 00 032560 JRST .+1 ;WITH JRST BACK^
2814 TBOTH^
2815 TGET^
2816 032560 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2817 032561 302 00 0 00 032547 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2818 STOP2^^
2819 032562 254 04 0 00 032563 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2820 032563 254 00 0 00 032564 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2821 TSET^^
2822 032564 %X=. ;DEFINE %X TO SAVE
2823 032564 201 00 0 00 032564 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2824 032565 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2825 CLRBTH^
2826 032566 700 04 0 00 261600 CLRAPR
2827 032567 700 14 0 00 031577 CLRPI^
2828 ;CHECK RESETING OF PI SYSTEM
2829 032570 7 004 20 0 00 002001 CONO PI,CHNON+1 ;CHECK THAT PI RESET CLEARS
2830 032571 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM
2831 032572 7 004 30 0 00 000001 CONSZ PI,1
2832 STOP^
2833 032573 254 04 0 00 032574 HALT .+1 ;INSTRUCTION FAILED REPLACE
2834 032574 254 00 0 00 032575 JRST .+1 ;WITH JRST BACK^
2835 TBOTH^
2836 TGET^
2837 032575 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2838 032576 302 00 0 00 032564 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2839 STOP2^^
2840 032577 254 04 0 00 032600 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2841 032600 254 00 0 00 032601 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2842 TSET^^
2843 032601 %X=. ;DEFINE %X TO SAVE
2844 032601 201 00 0 00 032601 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2845 032602 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2846 CLRBTH^
2847 032603 700 04 0 00 261600 CLRAPR
2848 032604 700 14 0 00 031577 CLRPI^
2849 ;TEST THAT CONO ONLY SETS PION
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-13
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0075
2850 032605 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET
2851 032606 7 004 30 0 00 000001 CONSZ PI,1 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT
2852 STOP^
2853 032607 254 04 0 00 032610 HALT .+1 ;INSTRUCTION FAILED REPLACE
2854 032610 254 00 0 00 032611 JRST .+1 ;WITH JRST BACK^
2855 TBOTH^
2856 TGET^
2857 032611 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2858 032612 302 00 0 00 032601 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2859 STOP2^^
2860 032613 254 04 0 00 032614 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2861 032614 254 00 0 00 032615 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2862 TSET^^
2863 032615 %X=. ;DEFINE %X TO SAVE
2864 032615 201 00 0 00 032615 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2865 032616 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2866 CLRBTH^
2867 032617 700 04 0 00 261600 CLRAPR
2868 032620 700 14 0 00 031577 CLRPI^
2869 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE
2870 032621 7 004 20 0 00 002001 CONO PI,CHNON+1 ;TEST PIO CLR
2871 032622 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL
2872 032623 7 004 34 0 00 000001 CONSO PI,1 ;BE SET
2873 STOP^
2874 032624 254 04 0 00 032625 HALT .+1 ;INSTRUCTION FAILED REPLACE
2875 032625 254 00 0 00 032626 JRST .+1 ;WITH JRST BACK^
2876 TGET^^
2877 032626 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2878 032627 302 00 0 00 032615 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2879 STOP2^^
2880 032630 254 04 0 00 032631 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2881 032631 254 00 0 00 032632 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2882
2883 032632 BIGPIX: PITEST 177^
2884 ;TEST SETTING OF CHANNEL FLOP
2885
2886 TSET^
2887 032632 %X=. ;DEFINE %X TO SAVE
2888 032632 201 00 0 00 032632 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2889 032633 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2890 032634 ..0035: CLRBTH^
2891 032634 700 04 0 00 261600 CLRAPR
2892 032635 700 14 0 00 031577 CLRPI^
2893 032636 7 004 20 0 00 002177 CONO PI,CHNON+177 ;PION FAILED TO SET
2894 032637 7 004 34 0 00 000177 CONSO PI,177
2895 STOP^
2896 032640 254 04 0 00 032641 HALT .+1 ;INSTRUCTION FAILED REPLACE
2897 032641 254 00 0 00 032642 JRST .+1 ;WITH JRST BACK^
2898 TBOTH^
2899 TGET^
2900 032642 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2901 032643 302 00 0 00 032632 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2902 STOP2^^
2903 032644 254 04 0 00 032645 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2904 032645 254 00 0 00 032646 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-14
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0076
2905 TSET^^
2906 032646 %X=. ;DEFINE %X TO SAVE
2907 032646 201 00 0 00 032646 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2908 032647 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2909 CLRBTH^
2910 032650 700 04 0 00 261600 CLRAPR
2911 032651 700 14 0 00 031577 CLRPI^
2912 ;TEST CLEARING OF CHANNEL FLOP
2913 032652 7 004 20 0 00 002177 CONO PI,CHNON+177 ;CHECK PIO CLR
2914 032653 7 004 20 0 00 001177 CONO PI,CHNOFF+177 ;TURN OFF CHANNELS
2915 032654 7 004 30 0 00 000177 CONSZ PI,177 ;CHECK WHY FLOP NOT CLEAR
2916 STOP^
2917 032655 254 04 0 00 032656 HALT .+1 ;INSTRUCTION FAILED REPLACE
2918 032656 254 00 0 00 032657 JRST .+1 ;WITH JRST BACK^
2919 TBOTH^
2920 TGET^
2921 032657 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2922 032660 302 00 0 00 032646 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2923 STOP2^^
2924 032661 254 04 0 00 032662 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2925 032662 254 00 0 00 032663 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2926 TSET^^
2927 032663 %X=. ;DEFINE %X TO SAVE
2928 032663 201 00 0 00 032663 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2929 032664 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2930 CLRBTH^
2931 032665 700 04 0 00 261600 CLRAPR
2932 032666 700 14 0 00 031577 CLRPI^
2933 ;CHECK RESETING OF PI SYSTEM
2934 032667 7 004 20 0 00 002177 CONO PI,CHNON+177 ;CHECK THAT PI RESET CLEARS
2935 032670 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM
2936 032671 7 004 30 0 00 000177 CONSZ PI,177
2937 STOP^
2938 032672 254 04 0 00 032673 HALT .+1 ;INSTRUCTION FAILED REPLACE
2939 032673 254 00 0 00 032674 JRST .+1 ;WITH JRST BACK^
2940 TBOTH^
2941 TGET^
2942 032674 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2943 032675 302 00 0 00 032663 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2944 STOP2^^
2945 032676 254 04 0 00 032677 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2946 032677 254 00 0 00 032700 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2947 TSET^^
2948 032700 %X=. ;DEFINE %X TO SAVE
2949 032700 201 00 0 00 032700 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2950 032701 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2951 CLRBTH^
2952 032702 700 04 0 00 261600 CLRAPR
2953 032703 700 14 0 00 031577 CLRPI^
2954 ;TEST THAT CONO ONLY SETS PION
2955 032704 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET
2956 032705 7 004 30 0 00 000177 CONSZ PI,177 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT
2957 STOP^
2958 032706 254 04 0 00 032707 HALT .+1 ;INSTRUCTION FAILED REPLACE
2959 032707 254 00 0 00 032710 JRST .+1 ;WITH JRST BACK^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-15
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0077
2960 TBOTH^
2961 TGET^
2962 032710 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2963 032711 302 00 0 00 032700 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2964 STOP2^^
2965 032712 254 04 0 00 032713 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2966 032713 254 00 0 00 032714 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2967 TSET^^
2968 032714 %X=. ;DEFINE %X TO SAVE
2969 032714 201 00 0 00 032714 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2970 032715 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2971 CLRBTH^
2972 032716 700 04 0 00 261600 CLRAPR
2973 032717 700 14 0 00 031577 CLRPI^
2974 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE
2975 032720 7 004 20 0 00 002177 CONO PI,CHNON+177 ;TEST PIO CLR
2976 032721 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL
2977 032722 7 004 34 0 00 000177 CONSO PI,177 ;BE SET
2978 STOP^
2979 032723 254 04 0 00 032724 HALT .+1 ;INSTRUCTION FAILED REPLACE
2980 032724 254 00 0 00 032725 JRST .+1 ;WITH JRST BACK^
2981 TGET^^
2982 032725 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
2983 032726 302 00 0 00 032714 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
2984 STOP2^^
2985 032727 254 04 0 00 032730 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
2986 032730 254 00 0 00 032731 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
2987
2988 032731 BIGPIY: PITEST 125^
2989 ;TEST SETTING OF CHANNEL FLOP
2990
2991 TSET^
2992 032731 %X=. ;DEFINE %X TO SAVE
2993 032731 201 00 0 00 032731 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
2994 032732 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
2995 032733 ..0036: CLRBTH^
2996 032733 700 04 0 00 261600 CLRAPR
2997 032734 700 14 0 00 031577 CLRPI^
2998 032735 7 004 20 0 00 002125 CONO PI,CHNON+125 ;PION FAILED TO SET
2999 032736 7 004 34 0 00 000125 CONSO PI,125
3000 STOP^
3001 032737 254 04 0 00 032740 HALT .+1 ;INSTRUCTION FAILED REPLACE
3002 032740 254 00 0 00 032741 JRST .+1 ;WITH JRST BACK^
3003 TBOTH^
3004 TGET^
3005 032741 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3006 032742 302 00 0 00 032731 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3007 STOP2^^
3008 032743 254 04 0 00 032744 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3009 032744 254 00 0 00 032745 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3010 TSET^^
3011 032745 %X=. ;DEFINE %X TO SAVE
3012 032745 201 00 0 00 032745 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3013 032746 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3014 CLRBTH^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-16
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0078
3015 032747 700 04 0 00 261600 CLRAPR
3016 032750 700 14 0 00 031577 CLRPI^
3017 ;TEST CLEARING OF CHANNEL FLOP
3018 032751 7 004 20 0 00 002125 CONO PI,CHNON+125 ;CHECK PIO CLR
3019 032752 7 004 20 0 00 001125 CONO PI,CHNOFF+125 ;TURN OFF CHANNELS
3020 032753 7 004 30 0 00 000125 CONSZ PI,125 ;CHECK WHY FLOP NOT CLEAR
3021 STOP^
3022 032754 254 04 0 00 032755 HALT .+1 ;INSTRUCTION FAILED REPLACE
3023 032755 254 00 0 00 032756 JRST .+1 ;WITH JRST BACK^
3024 TBOTH^
3025 TGET^
3026 032756 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3027 032757 302 00 0 00 032745 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3028 STOP2^^
3029 032760 254 04 0 00 032761 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3030 032761 254 00 0 00 032762 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3031 TSET^^
3032 032762 %X=. ;DEFINE %X TO SAVE
3033 032762 201 00 0 00 032762 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3034 032763 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3035 CLRBTH^
3036 032764 700 04 0 00 261600 CLRAPR
3037 032765 700 14 0 00 031577 CLRPI^
3038 ;CHECK RESETING OF PI SYSTEM
3039 032766 7 004 20 0 00 002125 CONO PI,CHNON+125 ;CHECK THAT PI RESET CLEARS
3040 032767 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM
3041 032770 7 004 30 0 00 000125 CONSZ PI,125
3042 STOP^
3043 032771 254 04 0 00 032772 HALT .+1 ;INSTRUCTION FAILED REPLACE
3044 032772 254 00 0 00 032773 JRST .+1 ;WITH JRST BACK^
3045 TBOTH^
3046 TGET^
3047 032773 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3048 032774 302 00 0 00 032762 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3049 STOP2^^
3050 032775 254 04 0 00 032776 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3051 032776 254 00 0 00 032777 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3052 TSET^^
3053 032777 %X=. ;DEFINE %X TO SAVE
3054 032777 201 00 0 00 032777 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3055 033000 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3056 CLRBTH^
3057 033001 700 04 0 00 261600 CLRAPR
3058 033002 700 14 0 00 031577 CLRPI^
3059 ;TEST THAT CONO ONLY SETS PION
3060 033003 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET
3061 033004 7 004 30 0 00 000125 CONSZ PI,125 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT
3062 STOP^
3063 033005 254 04 0 00 033006 HALT .+1 ;INSTRUCTION FAILED REPLACE
3064 033006 254 00 0 00 033007 JRST .+1 ;WITH JRST BACK^
3065 TBOTH^
3066 TGET^
3067 033007 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3068 033010 302 00 0 00 032777 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3069 STOP2^^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-17
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0079
3070 033011 254 04 0 00 033012 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3071 033012 254 00 0 00 033013 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3072 TSET^^
3073 033013 %X=. ;DEFINE %X TO SAVE
3074 033013 201 00 0 00 033013 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3075 033014 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3076 CLRBTH^
3077 033015 700 04 0 00 261600 CLRAPR
3078 033016 700 14 0 00 031577 CLRPI^
3079 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE
3080 033017 7 004 20 0 00 002125 CONO PI,CHNON+125 ;TEST PIO CLR
3081 033020 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL
3082 033021 7 004 34 0 00 000125 CONSO PI,125 ;BE SET
3083 STOP^
3084 033022 254 04 0 00 033023 HALT .+1 ;INSTRUCTION FAILED REPLACE
3085 033023 254 00 0 00 033024 JRST .+1 ;WITH JRST BACK^
3086 TGET^^
3087 033024 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3088 033025 302 00 0 00 033013 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3089 STOP2^^
3090 033026 254 04 0 00 033027 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3091 033027 254 00 0 00 033030 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3092
3093 033030 BIGPIZ: PITEST 52^
3094 ;TEST SETTING OF CHANNEL FLOP
3095
3096 TSET^
3097 033030 %X=. ;DEFINE %X TO SAVE
3098 033030 201 00 0 00 033030 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3099 033031 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3100 033032 ..0037: CLRBTH^
3101 033032 700 04 0 00 261600 CLRAPR
3102 033033 700 14 0 00 031577 CLRPI^
3103 033034 7 004 20 0 00 002052 CONO PI,CHNON+52 ;PION FAILED TO SET
3104 033035 7 004 34 0 00 000052 CONSO PI,52
3105 STOP^
3106 033036 254 04 0 00 033037 HALT .+1 ;INSTRUCTION FAILED REPLACE
3107 033037 254 00 0 00 033040 JRST .+1 ;WITH JRST BACK^
3108 TBOTH^
3109 TGET^
3110 033040 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3111 033041 302 00 0 00 033030 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3112 STOP2^^
3113 033042 254 04 0 00 033043 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3114 033043 254 00 0 00 033044 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3115 TSET^^
3116 033044 %X=. ;DEFINE %X TO SAVE
3117 033044 201 00 0 00 033044 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3118 033045 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3119 CLRBTH^
3120 033046 700 04 0 00 261600 CLRAPR
3121 033047 700 14 0 00 031577 CLRPI^
3122 ;TEST CLEARING OF CHANNEL FLOP
3123 033050 7 004 20 0 00 002052 CONO PI,CHNON+52 ;CHECK PIO CLR
3124 033051 7 004 20 0 00 001052 CONO PI,CHNOFF+52 ;TURN OFF CHANNELS
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-18
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0080
3125 033052 7 004 30 0 00 000052 CONSZ PI,52 ;CHECK WHY FLOP NOT CLEAR
3126 STOP^
3127 033053 254 04 0 00 033054 HALT .+1 ;INSTRUCTION FAILED REPLACE
3128 033054 254 00 0 00 033055 JRST .+1 ;WITH JRST BACK^
3129 TBOTH^
3130 TGET^
3131 033055 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3132 033056 302 00 0 00 033044 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3133 STOP2^^
3134 033057 254 04 0 00 033060 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3135 033060 254 00 0 00 033061 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3136 TSET^^
3137 033061 %X=. ;DEFINE %X TO SAVE
3138 033061 201 00 0 00 033061 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3139 033062 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3140 CLRBTH^
3141 033063 700 04 0 00 261600 CLRAPR
3142 033064 700 14 0 00 031577 CLRPI^
3143 ;CHECK RESETING OF PI SYSTEM
3144 033065 7 004 20 0 00 002052 CONO PI,CHNON+52 ;CHECK THAT PI RESET CLEARS
3145 033066 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM
3146 033067 7 004 30 0 00 000052 CONSZ PI,52
3147 STOP^
3148 033070 254 04 0 00 033071 HALT .+1 ;INSTRUCTION FAILED REPLACE
3149 033071 254 00 0 00 033072 JRST .+1 ;WITH JRST BACK^
3150 TBOTH^
3151 TGET^
3152 033072 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3153 033073 302 00 0 00 033061 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3154 STOP2^^
3155 033074 254 04 0 00 033075 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3156 033075 254 00 0 00 033076 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3157 TSET^^
3158 033076 %X=. ;DEFINE %X TO SAVE
3159 033076 201 00 0 00 033076 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3160 033077 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3161 CLRBTH^
3162 033100 700 04 0 00 261600 CLRAPR
3163 033101 700 14 0 00 031577 CLRPI^
3164 ;TEST THAT CONO ONLY SETS PION
3165 033102 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET
3166 033103 7 004 30 0 00 000052 CONSZ PI,52 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT
3167 STOP^
3168 033104 254 04 0 00 033105 HALT .+1 ;INSTRUCTION FAILED REPLACE
3169 033105 254 00 0 00 033106 JRST .+1 ;WITH JRST BACK^
3170 TBOTH^
3171 TGET^
3172 033106 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3173 033107 302 00 0 00 033076 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3174 STOP2^^
3175 033110 254 04 0 00 033111 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3176 033111 254 00 0 00 033112 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3177 TSET^^
3178 033112 %X=. ;DEFINE %X TO SAVE
3179 033112 201 00 0 00 033112 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-19
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0081
3180 033113 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3181 CLRBTH^
3182 033114 700 04 0 00 261600 CLRAPR
3183 033115 700 14 0 00 031577 CLRPI^
3184 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE
3185 033116 7 004 20 0 00 002052 CONO PI,CHNON+52 ;TEST PIO CLR
3186 033117 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL
3187 033120 7 004 34 0 00 000052 CONSO PI,52 ;BE SET
3188 STOP^
3189 033121 254 04 0 00 033122 HALT .+1 ;INSTRUCTION FAILED REPLACE
3190 033122 254 00 0 00 033123 JRST .+1 ;WITH JRST BACK^
3191 TGET^^
3192 033123 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3193 033124 302 00 0 00 033112 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3194 STOP2^^
3195 033125 254 04 0 00 033126 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3196 033126 254 00 0 00 033127 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3197
3198 033127 255 00 0 00 000000 JFCL
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 25
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0082
3199 BLURB^
3200 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES
3201 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0
3202 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION
3203 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS
3204 ^
3205 ;CHECK THE SETTING AND CLEARING OF THE HOLD FLOPS
3206
3207
3208 033130 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS
3209 040000 X=40000
3210 000100 Y=100
3211 PIOT03: REPEAT 7,<
3212 PIHCLR Y,X
3213 X=X_-1
3214 Y=Y_-1
3215 >
3216
3217 PIHCLR Y,X^
3218 ;CHECK THAT PICLR CLEARS THE HOLD FLOP
3219
3220 TSET^
3221 033131 %X=. ;DEFINE %X TO SAVE
3222 033131 201 00 0 00 033131 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3223 033132 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3224 033133 ..0040: CLRBTH^
3225 033133 700 04 0 00 261600 CLRAPR
3226 033134 700 14 0 00 031577 CLRPI^
3227 033135 7 004 20 0 00 004300 CONO PI,REQSET+PION+Y ;CAUSE INT. TO SET HOLD
3228 WATINT^
3229 033136 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3230 033137 367 13 0 00 033137 SOJG 13,. ;AND WAIT^
3231 033140 7 004 20 0 00 010000 CONO PI,PICLR ;THEN CLEAR VIA PI RESET
3232 033141 7 004 30 0 00 040000 CONSZ PI,X ;HOLD FLOP FAILED TO CLEAR.
3233 STOP^
3234 033142 254 04 0 00 033143 HALT .+1 ;INSTRUCTION FAILED REPLACE
3235 033143 254 00 0 00 033144 JRST .+1 ;WITH JRST BACK^
3236 TGET^^
3237 033144 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3238 033145 302 00 0 00 033131 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3239 STOP2^^
3240 033146 254 04 0 00 033147 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3241 033147 254 00 0 00 033150 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3242 020000 X=X_-1
3243 000040 Y=Y_-1
3244
3245
3246 PIHCLR Y,X^
3247 ;CHECK THAT PICLR CLEARS THE HOLD FLOP
3248
3249 TSET^
3250 033150 %X=. ;DEFINE %X TO SAVE
3251 033150 201 00 0 00 033150 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3252 033151 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3253 033152 ..0041: CLRBTH^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 25-1
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0083
3254 033152 700 04 0 00 261600 CLRAPR
3255 033153 700 14 0 00 031577 CLRPI^
3256 033154 7 004 20 0 00 004240 CONO PI,REQSET+PION+Y ;CAUSE INT. TO SET HOLD
3257 WATINT^
3258 033155 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3259 033156 367 13 0 00 033156 SOJG 13,. ;AND WAIT^
3260 033157 7 004 20 0 00 010000 CONO PI,PICLR ;THEN CLEAR VIA PI RESET
3261 033160 7 004 30 0 00 020000 CONSZ PI,X ;HOLD FLOP FAILED TO CLEAR.
3262 STOP^
3263 033161 254 04 0 00 033162 HALT .+1 ;INSTRUCTION FAILED REPLACE
3264 033162 254 00 0 00 033163 JRST .+1 ;WITH JRST BACK^
3265 TGET^^
3266 033163 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3267 033164 302 00 0 00 033150 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3268 STOP2^^
3269 033165 254 04 0 00 033166 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3270 033166 254 00 0 00 033167 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3271 010000 X=X_-1
3272 000020 Y=Y_-1
3273
3274
3275 PIHCLR Y,X^
3276 ;CHECK THAT PICLR CLEARS THE HOLD FLOP
3277
3278 TSET^
3279 033167 %X=. ;DEFINE %X TO SAVE
3280 033167 201 00 0 00 033167 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3281 033170 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3282 033171 ..0042: CLRBTH^
3283 033171 700 04 0 00 261600 CLRAPR
3284 033172 700 14 0 00 031577 CLRPI^
3285 033173 7 004 20 0 00 004220 CONO PI,REQSET+PION+Y ;CAUSE INT. TO SET HOLD
3286 WATINT^
3287 033174 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3288 033175 367 13 0 00 033175 SOJG 13,. ;AND WAIT^
3289 033176 7 004 20 0 00 010000 CONO PI,PICLR ;THEN CLEAR VIA PI RESET
3290 033177 7 004 30 0 00 010000 CONSZ PI,X ;HOLD FLOP FAILED TO CLEAR.
3291 STOP^
3292 033200 254 04 0 00 033201 HALT .+1 ;INSTRUCTION FAILED REPLACE
3293 033201 254 00 0 00 033202 JRST .+1 ;WITH JRST BACK^
3294 TGET^^
3295 033202 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3296 033203 302 00 0 00 033167 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3297 STOP2^^
3298 033204 254 04 0 00 033205 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3299 033205 254 00 0 00 033206 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3300 004000 X=X_-1
3301 000010 Y=Y_-1
3302
3303
3304 PIHCLR Y,X^
3305 ;CHECK THAT PICLR CLEARS THE HOLD FLOP
3306
3307 TSET^
3308 033206 %X=. ;DEFINE %X TO SAVE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 25-2
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0084
3309 033206 201 00 0 00 033206 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3310 033207 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3311 033210 ..0043: CLRBTH^
3312 033210 700 04 0 00 261600 CLRAPR
3313 033211 700 14 0 00 031577 CLRPI^
3314 033212 7 004 20 0 00 004210 CONO PI,REQSET+PION+Y ;CAUSE INT. TO SET HOLD
3315 WATINT^
3316 033213 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3317 033214 367 13 0 00 033214 SOJG 13,. ;AND WAIT^
3318 033215 7 004 20 0 00 010000 CONO PI,PICLR ;THEN CLEAR VIA PI RESET
3319 033216 7 004 30 0 00 004000 CONSZ PI,X ;HOLD FLOP FAILED TO CLEAR.
3320 STOP^
3321 033217 254 04 0 00 033220 HALT .+1 ;INSTRUCTION FAILED REPLACE
3322 033220 254 00 0 00 033221 JRST .+1 ;WITH JRST BACK^
3323 TGET^^
3324 033221 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3325 033222 302 00 0 00 033206 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3326 STOP2^^
3327 033223 254 04 0 00 033224 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3328 033224 254 00 0 00 033225 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3329 002000 X=X_-1
3330 000004 Y=Y_-1
3331
3332
3333 PIHCLR Y,X^
3334 ;CHECK THAT PICLR CLEARS THE HOLD FLOP
3335
3336 TSET^
3337 033225 %X=. ;DEFINE %X TO SAVE
3338 033225 201 00 0 00 033225 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3339 033226 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3340 033227 ..0044: CLRBTH^
3341 033227 700 04 0 00 261600 CLRAPR
3342 033230 700 14 0 00 031577 CLRPI^
3343 033231 7 004 20 0 00 004204 CONO PI,REQSET+PION+Y ;CAUSE INT. TO SET HOLD
3344 WATINT^
3345 033232 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3346 033233 367 13 0 00 033233 SOJG 13,. ;AND WAIT^
3347 033234 7 004 20 0 00 010000 CONO PI,PICLR ;THEN CLEAR VIA PI RESET
3348 033235 7 004 30 0 00 002000 CONSZ PI,X ;HOLD FLOP FAILED TO CLEAR.
3349 STOP^
3350 033236 254 04 0 00 033237 HALT .+1 ;INSTRUCTION FAILED REPLACE
3351 033237 254 00 0 00 033240 JRST .+1 ;WITH JRST BACK^
3352 TGET^^
3353 033240 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3354 033241 302 00 0 00 033225 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3355 STOP2^^
3356 033242 254 04 0 00 033243 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3357 033243 254 00 0 00 033244 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3358 001000 X=X_-1
3359 000002 Y=Y_-1
3360
3361
3362 PIHCLR Y,X^
3363 ;CHECK THAT PICLR CLEARS THE HOLD FLOP
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 25-3
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0085
3364
3365 TSET^
3366 033244 %X=. ;DEFINE %X TO SAVE
3367 033244 201 00 0 00 033244 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3368 033245 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3369 033246 ..0045: CLRBTH^
3370 033246 700 04 0 00 261600 CLRAPR
3371 033247 700 14 0 00 031577 CLRPI^
3372 033250 7 004 20 0 00 004202 CONO PI,REQSET+PION+Y ;CAUSE INT. TO SET HOLD
3373 WATINT^
3374 033251 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3375 033252 367 13 0 00 033252 SOJG 13,. ;AND WAIT^
3376 033253 7 004 20 0 00 010000 CONO PI,PICLR ;THEN CLEAR VIA PI RESET
3377 033254 7 004 30 0 00 001000 CONSZ PI,X ;HOLD FLOP FAILED TO CLEAR.
3378 STOP^
3379 033255 254 04 0 00 033256 HALT .+1 ;INSTRUCTION FAILED REPLACE
3380 033256 254 00 0 00 033257 JRST .+1 ;WITH JRST BACK^
3381 TGET^^
3382 033257 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3383 033260 302 00 0 00 033244 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3384 STOP2^^
3385 033261 254 04 0 00 033262 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3386 033262 254 00 0 00 033263 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3387 000400 X=X_-1
3388 000001 Y=Y_-1
3389
3390
3391 PIHCLR Y,X^
3392 ;CHECK THAT PICLR CLEARS THE HOLD FLOP
3393
3394 TSET^
3395 033263 %X=. ;DEFINE %X TO SAVE
3396 033263 201 00 0 00 033263 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3397 033264 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3398 033265 ..0046: CLRBTH^
3399 033265 700 04 0 00 261600 CLRAPR
3400 033266 700 14 0 00 031577 CLRPI^
3401 033267 7 004 20 0 00 004201 CONO PI,REQSET+PION+Y ;CAUSE INT. TO SET HOLD
3402 WATINT^
3403 033270 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3404 033271 367 13 0 00 033271 SOJG 13,. ;AND WAIT^
3405 033272 7 004 20 0 00 010000 CONO PI,PICLR ;THEN CLEAR VIA PI RESET
3406 033273 7 004 30 0 00 000400 CONSZ PI,X ;HOLD FLOP FAILED TO CLEAR.
3407 STOP^
3408 033274 254 04 0 00 033275 HALT .+1 ;INSTRUCTION FAILED REPLACE
3409 033275 254 00 0 00 033276 JRST .+1 ;WITH JRST BACK^
3410 TGET^^
3411 033276 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3412 033277 302 00 0 00 033263 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3413 STOP2^^
3414 033300 254 04 0 00 033301 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3415 033301 254 00 0 00 033302 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3416 000200 X=X_-1
3417 000000 Y=Y_-1
3418
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 25-4
DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0086
3419 033302 255 00 0 00 000000 JFCL
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 26
DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT TESTING WITH REAL INTERRUPTS SEQ 0087
3420 SUBTTL INTERRUPT TESTING WITH REAL INTERRUPTS
3421
3422 ;TEST PROPER TRAP WHEN INTERRUPTING ON EACH CHANNEL
3423 ;VIA THE CACHE SWEEP DONE FLAG--ILLEGAL TRAPS HALT--NO TRAP LOOPS
3424 ;THE HALT POINTS TO THE CHANNEL THOUGHT TO BE REQUESTED
3425
3426 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT
3427 033303 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3428 033304 700 14 0 00 031577 CLRPI
3429 033305 700 04 0 00 261600 CLRAPR
3430 033306 200 00 0 00 040240 MOVE [JSP UUO] ;SET TRAP TO HALT
3431 033307 202 00 0 00 000041 MOVEM 41 ;IN THE UUO TRAP LOCATION
3432 033310 200 00 0 00 040241 MOVE [JSR TRP0A] ;SET PROPER RECOVERY INST.
3433 033311 202 00 0 00 000042 MOVEM 42 ;INTO CH1 TRAP
3434 033312 7 004 20 0 00 002300 CONO PI,2300 ;TURN ON CHAN1
3435 033313 7 000 20 0 00 110401 CONO APR,LENXER!LSNXER!LAPRP1 ;CAUSE CACHE SWP DONE AND CHAN
3436 STUCK^
3437 WATINT^
3438 033314 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3439 033315 367 13 0 00 033315 SOJG 13,. ;AND WAIT^
3440 033316 254 00 0 00 033316 JRST . ;LOOP ON SELF^
3441 033317 000000 000000 TRP0A: 0
3442 TRPCHK^
3443 033320 332 00 0 00 030042 ..0047: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3444 033321 254 00 0 00 033324 JRST .+3 ;DONT IF STAND ALONE
3445 033322 254 02 1 00 033323 JRSTF @.+1 ;AND RESTORE THEM
3446 033323 000000 033324 USERF,.+1 ;NEW PC AND FLAGS^
3447 033324 700 14 0 00 031577 CLRPI
3448 033325 700 04 0 00 261600 CLRAPR
3449 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT
3450 ;TEST PROPER TRAP WHEN INTERRUPTING ON EACH CHANNEL
3451 ;VIA THE CACHE SWEEP DONE FLAG--ILLEGAL TRAPS HALT--NO TRAP LOOPS
3452 ;THE HALT POINTS TO THE CHANNEL THOUGHT TO BE REQUESTED
3453 033326 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3454 033327 200 00 0 00 040242 MOVE [JSR TRP1A] ;RECOVERY INSTRUCTION INTO
3455 033330 202 00 0 00 000044 MOVEM 44 ;PROPER CHAN TRAP (2)
3456 033331 7 004 20 0 00 002240 CONO PI,2240 ;TURN CHAN 2 ON
3457 033332 7 000 20 0 00 110102 CONO APR,LEPSFT!LSPSFT!LAPRP2 ;CAUSE CACHE SWP DONE AND CHN ON
3458 STUCK^
3459 WATINT^
3460 033333 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3461 033334 367 13 0 00 033334 SOJG 13,. ;AND WAIT^
3462 033335 254 00 0 00 033335 JRST . ;LOOP ON SELF^
3463 033336 000000 000000 TRP1A: 0
3464 TRPCHK^
3465 033337 332 00 0 00 030042 ..0050: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3466 033340 254 00 0 00 033343 JRST .+3 ;DONT IF STAND ALONE
3467 033341 254 02 1 00 033342 JRSTF @.+1 ;AND RESTORE THEM
3468 033342 000000 033343 USERF,.+1 ;NEW PC AND FLAGS^
3469 033343 700 14 0 00 031577 CLRPI
3470 033344 700 04 0 00 261600 CLRAPR
3471 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT
3472 ;TEST PROPER TRAP WHEN INTERRUPTING ON EACH CHANNEL
3473 ;VIA THE CACHE SWEEP DONE FLAG--ILLEGAL TRAPS HALT--NO TRAP LOOPS
3474 ;THE HALT POINTS TO THE CHANNEL THOUGHT TO BE REQUESTED
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 26-1
DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT TESTING WITH REAL INTERRUPTS SEQ 0088
3475 033345 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3476 033346 200 00 0 00 040243 MOVE [JSR TRP2A] ;RECOVERY INSTRUCTION
3477 033347 202 00 0 00 000046 MOVEM 46 ;INTO PROPER CHAN TRAP (3)
3478 033350 7 004 20 0 00 002220 CONO PI,2220 ;TURN CHAN 3 ON
3479 033351 7 000 20 0 00 110203 CONO APR,LEPAER!LSPAER!LAPRP3 ;CAUSE CACHE SWP DONE AND CHAN ON
3480 STUCK^
3481 WATINT^
3482 033352 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3483 033353 367 13 0 00 033353 SOJG 13,. ;AND WAIT^
3484 033354 254 00 0 00 033354 JRST . ;LOOP ON SELF^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 27
DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT TESTING WITH REAL INTERRUPTS SEQ 0089
3485 033355 000000 000000 TRP2A: 0
3486 TRPCHK^
3487 033356 332 00 0 00 030042 ..0051: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3488 033357 254 00 0 00 033362 JRST .+3 ;DONT IF STAND ALONE
3489 033360 254 02 1 00 033361 JRSTF @.+1 ;AND RESTORE THEM
3490 033361 000000 033362 USERF,.+1 ;NEW PC AND FLAGS^
3491 033362 700 14 0 00 031577 CLRPI
3492 033363 700 04 0 00 261600 CLRAPR
3493 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT
3494 ;TEST PROPER TRAP WHEN INTERRUPTING ON EACH CHANNEL
3495 ;VIA THE CACHE SWEEP DONE FLAG--ILLEGAL TRAPS HALT--NO TRAP LOOPS
3496 ;THE HALT POINTS TO THE CHANNEL THOUGHT TO BE REQUESTED
3497 033364 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3498 033365 200 00 0 00 040244 MOVE [JSR TRP3A] ;RECOVERY INSTRUCTION
3499 033366 202 00 0 00 000050 MOVEM 50 ;INTO PROPER CHAN TRAP (4)
3500 033367 7 004 20 0 00 002210 CONO PI,2210 ;TURN CHAN 4 ON
3501 033370 7 000 20 0 00 010104 CONO APR,LSPSFT!LSPSFT!LAPRP4 ;CAUSE CACHE SWP DONE AND CHAN ON
3502 STUCK^
3503 WATINT^
3504 033371 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3505 033372 367 13 0 00 033372 SOJG 13,. ;AND WAIT^
3506 033373 254 00 0 00 033373 JRST . ;LOOP ON SELF^
3507 033374 000000 000000 TRP3A: 0
3508 TRPCHK^
3509 033375 332 00 0 00 030042 ..0052: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3510 033376 254 00 0 00 033401 JRST .+3 ;DONT IF STAND ALONE
3511 033377 254 02 1 00 033400 JRSTF @.+1 ;AND RESTORE THEM
3512 033400 000000 033401 USERF,.+1 ;NEW PC AND FLAGS^
3513 033401 700 14 0 00 031577 CLRPI
3514 033402 700 04 0 00 261600 CLRAPR
3515 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT
3516 ;TEST PROPER TRAP WHEN INTERRUPTING ON EACH CHANNEL
3517 ;VIA THE CACHE SWEEP DONE FLAG--ILLEGAL TRAPS HALT--NO TRAP LOOPS
3518 ;THE HALT POINTS TO THE CHANNEL THOUGHT TO BE REQUESTED
3519 033403 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3520 033404 200 00 0 00 040245 MOVE [JSR TRP4A] ;RECOVERY INSTRUCTION
3521 033405 202 00 0 00 000052 MOVEM 52 ;INTO PROPER CHAN TRAP (5)
3522 033406 7 004 20 0 00 002204 CONO PI,2204 ;TURN CHAN 5 ON
3523 033407 7 000 20 0 00 110105 CONO APR,LEPSFT!LSPSFT!LAPRP5 ;CAUSE CACHE SWP DONE AND CHAN ON
3524 STUCK^
3525 WATINT^
3526 033410 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3527 033411 367 13 0 00 033411 SOJG 13,. ;AND WAIT^
3528 033412 254 00 0 00 033412 JRST . ;LOOP ON SELF^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 28
DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT TESTING WITH REAL INTERRUPTS SEQ 0090
3529 033413 000000 000000 TRP4A: 0
3530 TRPCHK^
3531 033414 332 00 0 00 030042 ..0053: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3532 033415 254 00 0 00 033420 JRST .+3 ;DONT IF STAND ALONE
3533 033416 254 02 1 00 033417 JRSTF @.+1 ;AND RESTORE THEM
3534 033417 000000 033420 USERF,.+1 ;NEW PC AND FLAGS^
3535 033420 700 14 0 00 031577 CLRPI
3536 033421 700 04 0 00 261600 CLRAPR
3537
3538 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT
3539 ;TEST PROPER TRAP WHEN INTERRUPTING ON EACH CHANNEL
3540 ;VIA THE CACHE SWEEP DONE FLAG--ILLEGAL TRAPS HALT--NO TRAP LOOPS
3541 ;THE HALT POINTS TO THE CHANNEL THOUGHT TO BE REQUESTED
3542 033422 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3543 033423 200 00 0 00 040246 MOVE [JSR TRP5A] ;RECOVERY INSTRUCTION
3544 033424 202 00 0 00 000054 MOVEM 54 ;INTO PROPER CHAN TRAP (6)
3545 033425 7 004 20 0 00 002202 CONO PI,2202 ;TURN CHAN 6 ON
3546 033426 7 000 20 0 00 111006 CONO APR,LEPWRF!LSPWRF!LAPRP6 ;CAUSE CACHE SWP DONE AND CHAN ON
3547 STUCK^
3548 WATINT^
3549 033427 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3550 033430 367 13 0 00 033430 SOJG 13,. ;AND WAIT^
3551 033431 254 00 0 00 033431 JRST . ;LOOP ON SELF^
3552 033432 000000 000000 TRP5A: 0
3553 TRPCHK^
3554 033433 332 00 0 00 030042 ..0054: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3555 033434 254 00 0 00 033437 JRST .+3 ;DONT IF STAND ALONE
3556 033435 254 02 1 00 033436 JRSTF @.+1 ;AND RESTORE THEM
3557 033436 000000 033437 USERF,.+1 ;NEW PC AND FLAGS^
3558 033437 700 14 0 00 031577 CLRPI
3559 033440 700 04 0 00 261600 CLRAPR
3560 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT
3561 ;TEST PROPER TRAP WHEN INTERRUPTING ON EACH CHANNEL
3562 ;VIA THE CACHE SWEEP DONE FLAG--ILLEGAL TRAPS HALT--NO TRAP LOOPS
3563 ;THE HALT POINTS TO THE CHANNEL THOUGHT TO BE REQUESTED
3564 033441 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3565 033442 200 00 0 00 040247 MOVE [JSR TRP6A] ;RECOVERY INSTRUCTION
3566 033443 202 00 0 00 000056 MOVEM 56 ;INTO PROPER CHAN TRAP (7)
3567 033444 7 004 20 0 00 002201 CONO PI,2201 ;TURN CHAN 7 ON
3568 033445 7 000 20 0 00 111007 CONO APR,LEPWRF!LSPWRF!LAPRP7 ;CASUE CACHE SWP DONE AND CHAN ON
3569 STUCK^
3570 WATINT^
3571 033446 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3572 033447 367 13 0 00 033447 SOJG 13,. ;AND WAIT^
3573 033450 254 00 0 00 033450 JRST . ;LOOP ON SELF^
3574 033451 000000 000000 TRP6A: 0
3575 TRPCHK^
3576 033452 332 00 0 00 030042 ..0055: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3577 033453 254 00 0 00 033456 JRST .+3 ;DONT IF STAND ALONE
3578 033454 254 02 1 00 033455 JRSTF @.+1 ;AND RESTORE THEM
3579 033455 000000 033456 USERF,.+1 ;NEW PC AND FLAGS^
3580
3581 033456 255 00 0 00 000000 JFCL
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 29
DSKAH1 MAC 31-Mar-78 11:13 INTERNAL INTERRUPT REQUEST TESTING SEQ 0091
3582 SUBTTL INTERNAL INTERRUPT REQUEST TESTING
3583
3584 ;CHECK THE ABILITY TO GENERATE PI REQUESTS VIA PROGRAM REQEST ON ALL
3585 ;CHANNELS.
3586 033457 265 00 0 00 033460 JSP .+1 ;GET FLAGS
3587 033460 603 00 0 00 010000 TLNE USERF ;USER MODE BIT ON
3588 033461 254 00 0 00 033462 JRST .+1 ;DONT DO IF USER MODE!
3589
3590 CLRBTH^
3591 033462 700 04 0 00 261600 CLRAPR
3592 033463 700 14 0 00 031577 CLRPI^
3593 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT
3594 033464 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3595 033465 700 14 0 00 031577 CLRPI
3596 033466 700 04 0 00 261600 CLRAPR
3597 TRAP <JSR CKI01>,42^
3598 033467 200 00 0 00 040250 MOVE [JSR CKI01] ;SET TRAP INSTRUCTION
3599 033470 202 00 0 00 000042 MOVEM 42 ;INTO TRAP LOCATION^
3600 033471 7 004 20 0 00 006300 CONO PI,6300 ;INTERRUPT ON CH1
3601 STUCK^
3602 WATINT^
3603 033472 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3604 033473 367 13 0 00 033473 SOJG 13,. ;AND WAIT^
3605 033474 254 00 0 00 033474 JRST . ;LOOP ON SELF^
3606 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT
3607 033475 000000 000000 CKI01: 0
3608 TRPCHK^
3609 033476 332 00 0 00 030042 ..0056: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3610 033477 254 00 0 00 033502 JRST .+3 ;DONT IF STAND ALONE
3611 033500 254 02 1 00 033501 JRSTF @.+1 ;AND RESTORE THEM
3612 033501 000000 033502 USERF,.+1 ;NEW PC AND FLAGS^
3613 033502 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3614 033503 700 14 0 00 031577 CLRPI
3615 033504 700 04 0 00 261600 CLRAPR
3616 TRAP <JSR CKI02>,44^
3617 033505 200 00 0 00 040251 MOVE [JSR CKI02] ;SET TRAP INSTRUCTION
3618 033506 202 00 0 00 000044 MOVEM 44 ;INTO TRAP LOCATION^
3619 033507 7 004 20 0 00 006240 CONO PI,6240 ;INTERRUPT ON CH 2
3620 STUCK^
3621 WATINT^
3622 033510 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3623 033511 367 13 0 00 033511 SOJG 13,. ;AND WAIT^
3624 033512 254 00 0 00 033512 JRST . ;LOOP ON SELF^
3625 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 30
DSKAH1 MAC 31-Mar-78 11:13 INTERNAL INTERRUPT REQUEST TESTING SEQ 0092
3626 033513 000000 000000 CKI02: 0
3627 TRPCHK^
3628 033514 332 00 0 00 030042 ..0057: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3629 033515 254 00 0 00 033520 JRST .+3 ;DONT IF STAND ALONE
3630 033516 254 02 1 00 033517 JRSTF @.+1 ;AND RESTORE THEM
3631 033517 000000 033520 USERF,.+1 ;NEW PC AND FLAGS^
3632 033520 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3633 033521 700 14 0 00 031577 CLRPI
3634 033522 700 04 0 00 261600 CLRAPR
3635 TRAP <JSR CKI03>,46^
3636 033523 200 00 0 00 040252 MOVE [JSR CKI03] ;SET TRAP INSTRUCTION
3637 033524 202 00 0 00 000046 MOVEM 46 ;INTO TRAP LOCATION^
3638 033525 7 004 20 0 00 006220 CONO PI,6220 ;INTERRUPT ON CH 3
3639 STUCK^
3640 WATINT^
3641 033526 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3642 033527 367 13 0 00 033527 SOJG 13,. ;AND WAIT^
3643 033530 254 00 0 00 033530 JRST . ;LOOP ON SELF^
3644 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 31
DSKAH1 MAC 31-Mar-78 11:13 INTERNAL INTERRUPT REQUEST TESTING SEQ 0093
3645 033531 000000 000000 CKI03: 0
3646 TRPCHK^
3647 033532 332 00 0 00 030042 ..0060: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3648 033533 254 00 0 00 033536 JRST .+3 ;DONT IF STAND ALONE
3649 033534 254 02 1 00 033535 JRSTF @.+1 ;AND RESTORE THEM
3650 033535 000000 033536 USERF,.+1 ;NEW PC AND FLAGS^
3651 033536 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3652 033537 700 14 0 00 031577 CLRPI
3653 033540 700 04 0 00 261600 CLRAPR
3654 TRAP <JSR CKI04>,50^
3655 033541 200 00 0 00 040253 MOVE [JSR CKI04] ;SET TRAP INSTRUCTION
3656 033542 202 00 0 00 000050 MOVEM 50 ;INTO TRAP LOCATION^
3657 033543 7 004 20 0 00 006210 CONO PI,6210 ;INTERRUPT ON CH 4
3658 STUCK^
3659 WATINT^
3660 033544 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3661 033545 367 13 0 00 033545 SOJG 13,. ;AND WAIT^
3662 033546 254 00 0 00 033546 JRST . ;LOOP ON SELF^
3663 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT
3664 033547 000000 000000 CKI04: 0
3665 TRPCHK^
3666 033550 332 00 0 00 030042 ..0061: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3667 033551 254 00 0 00 033554 JRST .+3 ;DONT IF STAND ALONE
3668 033552 254 02 1 00 033553 JRSTF @.+1 ;AND RESTORE THEM
3669 033553 000000 033554 USERF,.+1 ;NEW PC AND FLAGS^
3670 033554 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3671 033555 700 14 0 00 031577 CLRPI
3672 033556 700 04 0 00 261600 CLRAPR
3673 TRAP <JSR CKI05>,52^
3674 033557 200 00 0 00 040254 MOVE [JSR CKI05] ;SET TRAP INSTRUCTION
3675 033560 202 00 0 00 000052 MOVEM 52 ;INTO TRAP LOCATION^
3676 033561 7 004 20 0 00 006204 CONO PI,6204 ;INTERRUPT ON CH 5
3677 STUCK^
3678 WATINT^
3679 033562 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3680 033563 367 13 0 00 033563 SOJG 13,. ;AND WAIT^
3681 033564 254 00 0 00 033564 JRST . ;LOOP ON SELF^
3682 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT
3683 033565 000000 000000 CKI05: 0
3684 TRPCHK^
3685 033566 332 00 0 00 030042 ..0062: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3686 033567 254 00 0 00 033572 JRST .+3 ;DONT IF STAND ALONE
3687 033570 254 02 1 00 033571 JRSTF @.+1 ;AND RESTORE THEM
3688 033571 000000 033572 USERF,.+1 ;NEW PC AND FLAGS^
3689 033572 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3690 033573 700 14 0 00 031577 CLRPI
3691 033574 700 04 0 00 261600 CLRAPR
3692 TRAP <JSR CKI06>,54^
3693 033575 200 00 0 00 040255 MOVE [JSR CKI06] ;SET TRAP INSTRUCTION
3694 033576 202 00 0 00 000054 MOVEM 54 ;INTO TRAP LOCATION^
3695 033577 7 004 20 0 00 006202 CONO PI,6202 ;INTERRUPT ON CH 6
3696 STUCK^
3697 WATINT^
3698 033600 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3699 033601 367 13 0 00 033601 SOJG 13,. ;AND WAIT^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 31-1
DSKAH1 MAC 31-Mar-78 11:13 INTERNAL INTERRUPT REQUEST TESTING SEQ 0094
3700 033602 254 00 0 00 033602 JRST . ;LOOP ON SELF^
3701 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 32
DSKAH1 MAC 31-Mar-78 11:13 INTERNAL INTERRUPT REQUEST TESTING SEQ 0095
3702 033603 000000 000000 CKI06: 0
3703 TRPCHK^
3704 033604 332 00 0 00 030042 ..0063: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3705 033605 254 00 0 00 033610 JRST .+3 ;DONT IF STAND ALONE
3706 033606 254 02 1 00 033607 JRSTF @.+1 ;AND RESTORE THEM
3707 033607 000000 033610 USERF,.+1 ;NEW PC AND FLAGS^
3708 033610 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3709 033611 700 14 0 00 031577 CLRPI
3710 033612 700 04 0 00 261600 CLRAPR
3711 TRAP <JSR CKI07>,56^
3712 033613 200 00 0 00 040256 MOVE [JSR CKI07] ;SET TRAP INSTRUCTION
3713 033614 202 00 0 00 000056 MOVEM 56 ;INTO TRAP LOCATION^
3714 033615 7 004 20 0 00 006201 CONO PI,6201 ;INTERRUPT ON CH 7
3715 STUCK^
3716 WATINT^
3717 033616 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3718 033617 367 13 0 00 033617 SOJG 13,. ;AND WAIT^
3719 033620 254 00 0 00 033620 JRST . ;LOOP ON SELF^
3720 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT
3721 033621 000000 000000 CKI07: 0
3722 TRPCHK^
3723 033622 332 00 0 00 030042 ..0064: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3724 033623 254 00 0 00 033626 JRST .+3 ;DONT IF STAND ALONE
3725 033624 254 02 1 00 033625 JRSTF @.+1 ;AND RESTORE THEM
3726 033625 000000 033626 USERF,.+1 ;NEW PC AND FLAGS^
3727 033626 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3728 033627 264 00 0 00 040021 CLRTRP
3729 033630 700 14 0 00 031577 CLRPI
3730 033631 700 04 0 00 261600 CLRAPR
3731 033632 255 00 0 00 000000 JFCL
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 33
DSKAH1 MAC 31-Mar-78 11:13 PRIORITY TESTING SEQ 0096
3732 SUBTTL PRIORITY TESTING
3733 ;THIS TEST CHECKS TO SEE IF INTERRUPTS RECOGNIZE THE PROPER PRIORITY
3734 ;IMPROPER TRAPS WILL HALT - NO TRAPS WILL CAUSE PROGRAM TO HANG
3735 ;IF PROGRAM STUCK THEN REPLACE "JRST ." WITH JRST BACK TO MULT7
3736 ;IF PROGRAM HALTS THEN REPLACE "JSR" IN INTERRUPT LOCATION
3737 ;TO "JSR" TO ROUTINE WHICH CAUSED THE TRAP +1
3738 ;FOR EXAMPLE IF ROUTINE TRAPPED TO LOCATION '50' IN 50
3739 ;YOU WOULD PUT A JSR TO "MULTX ROUTINE+3
3740
3741 033633 MULTI: CLRBT1^
3742 033633 700 04 0 00 261600 CLRAPR
3743 033634 700 14 0 00 031577 CLRPI^
3744 033635 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3745 TRAP <JSR MULT6>,56^
3746 033636 200 00 0 00 040257 MOVE [JSR MULT6] ;SET TRAP INSTRUCTION
3747 033637 202 00 0 00 000056 MOVEM 56 ;INTO TRAP LOCATION^
3748 033640 7 004 20 0 00 002377 CONO PI,CHNON+PION+177 ;TURN ON PI SYSTEM
3749 SBWAIT 7^
3750 033641 7 000 20 0 00 110107 ..0065: CONO APR,LEPSFT!LSPSFT!7
3751 STUCK^^
3752 WATINT^
3753 033642 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3754 033643 367 13 0 00 033643 SOJG 13,. ;AND WAIT^
3755 033644 254 00 0 00 033644 JRST . ;LOOP ON SELF^
3756 033645 000000 000000 MULT6: 0
3757 TRPCHK^
3758 033646 332 00 0 00 030042 ..0066: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3759 033647 254 00 0 00 033652 JRST .+3 ;DONT IF STAND ALONE
3760 033650 254 02 1 00 033651 JRSTF @.+1 ;AND RESTORE THEM
3761 033651 000000 033652 USERF,.+1 ;NEW PC AND FLAGS^
3762 033652 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3763 TRAP <JSR MULT5>,54^
3764 033653 200 00 0 00 040260 MOVE [JSR MULT5] ;SET TRAP INSTRUCTION
3765 033654 202 00 0 00 000054 MOVEM 54 ;INTO TRAP LOCATION^
3766 033655 7 004 20 0 00 002377 CONO PI,CHNON+PION+177 ;TURN ON PI SYSTEM
3767 SBWAIT 6^
3768 033656 7 000 20 0 00 110106 ..0067: CONO APR,LEPSFT!LSPSFT!6
3769 STUCK^^
3770 WATINT^
3771 033657 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3772 033660 367 13 0 00 033660 SOJG 13,. ;AND WAIT^
3773 033661 254 00 0 00 033661 JRST . ;LOOP ON SELF^
3774 033662 000000 000000 MULT5: 0
3775 TRPCHK^
3776 033663 332 00 0 00 030042 ..0070: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3777 033664 254 00 0 00 033667 JRST .+3 ;DONT IF STAND ALONE
3778 033665 254 02 1 00 033666 JRSTF @.+1 ;AND RESTORE THEM
3779 033666 000000 033667 USERF,.+1 ;NEW PC AND FLAGS^
3780 033667 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3781 TRAP <JSR MULT4>,52^
3782 033670 200 00 0 00 040261 MOVE [JSR MULT4] ;SET TRAP INSTRUCTION
3783 033671 202 00 0 00 000052 MOVEM 52 ;INTO TRAP LOCATION^
3784 033672 7 004 20 0 00 002377 CONO PI,CHNON+PION+177 ;TURN ON PI SYSTEM
3785 SBWAIT 5^
3786 033673 7 000 20 0 00 110105 ..0071: CONO APR,LEPSFT!LSPSFT!5
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 33-1
DSKAH1 MAC 31-Mar-78 11:13 PRIORITY TESTING SEQ 0097
3787 STUCK^^
3788 WATINT^
3789 033674 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3790 033675 367 13 0 00 033675 SOJG 13,. ;AND WAIT^
3791 033676 254 00 0 00 033676 JRST . ;LOOP ON SELF^
3792 033677 000000 000000 MULT4: 0
3793 TRPCHK^
3794 033700 332 00 0 00 030042 ..0072: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3795 033701 254 00 0 00 033704 JRST .+3 ;DONT IF STAND ALONE
3796 033702 254 02 1 00 033703 JRSTF @.+1 ;AND RESTORE THEM
3797 033703 000000 033704 USERF,.+1 ;NEW PC AND FLAGS^
3798 033704 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3799 TRAP <JSR MULT3>,50^
3800 033705 200 00 0 00 040262 MOVE [JSR MULT3] ;SET TRAP INSTRUCTION
3801 033706 202 00 0 00 000050 MOVEM 50 ;INTO TRAP LOCATION^
3802 033707 7 004 20 0 00 002377 CONO PI,CHNON+PION+177 ;TURN ON PI SYSTEM
3803 SBWAIT 4^
3804 033710 7 000 20 0 00 110104 ..0073: CONO APR,LEPSFT!LSPSFT!4
3805 STUCK^^
3806 WATINT^
3807 033711 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3808 033712 367 13 0 00 033712 SOJG 13,. ;AND WAIT^
3809 033713 254 00 0 00 033713 JRST . ;LOOP ON SELF^
3810 033714 000000 000000 MULT3: 0
3811 TRPCHK^
3812 033715 332 00 0 00 030042 ..0074: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3813 033716 254 00 0 00 033721 JRST .+3 ;DONT IF STAND ALONE
3814 033717 254 02 1 00 033720 JRSTF @.+1 ;AND RESTORE THEM
3815 033720 000000 033721 USERF,.+1 ;NEW PC AND FLAGS^
3816 033721 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3817 TRAP <JSR MULT2>,46^
3818 033722 200 00 0 00 040263 MOVE [JSR MULT2] ;SET TRAP INSTRUCTION
3819 033723 202 00 0 00 000046 MOVEM 46 ;INTO TRAP LOCATION^
3820 033724 7 004 20 0 00 002377 CONO PI,CHNON+PION+177 ;TURN ON PI SYSTEM
3821 SBWAIT 3^
3822 033725 7 000 20 0 00 110103 ..0075: CONO APR,LEPSFT!LSPSFT!3
3823 STUCK^^
3824 WATINT^
3825 033726 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3826 033727 367 13 0 00 033727 SOJG 13,. ;AND WAIT^
3827 033730 254 00 0 00 033730 JRST . ;LOOP ON SELF^
3828 033731 000000 000000 MULT2: 0
3829 TRPCHK^
3830 033732 332 00 0 00 030042 ..0076: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3831 033733 254 00 0 00 033736 JRST .+3 ;DONT IF STAND ALONE
3832 033734 254 02 1 00 033735 JRSTF @.+1 ;AND RESTORE THEM
3833 033735 000000 033736 USERF,.+1 ;NEW PC AND FLAGS^
3834 033736 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3835 TRAP <JSR MULT1>,44^
3836 033737 200 00 0 00 040264 MOVE [JSR MULT1] ;SET TRAP INSTRUCTION
3837 033740 202 00 0 00 000044 MOVEM 44 ;INTO TRAP LOCATION^
3838 033741 7 004 20 0 00 002377 CONO PI,CHNON+PION+177 ;TURN ON PI SYSTEM
3839 SBWAIT 2^
3840 033742 7 000 20 0 00 110102 ..0077: CONO APR,LEPSFT!LSPSFT!2
3841 STUCK^^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 33-2
DSKAH1 MAC 31-Mar-78 11:13 PRIORITY TESTING SEQ 0098
3842 WATINT^
3843 033743 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3844 033744 367 13 0 00 033744 SOJG 13,. ;AND WAIT^
3845 033745 254 00 0 00 033745 JRST . ;LOOP ON SELF^
3846 033746 000000 000000 MULT1: 0
3847 TRPCHK^
3848 033747 332 00 0 00 030042 ..0100: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3849 033750 254 00 0 00 033753 JRST .+3 ;DONT IF STAND ALONE
3850 033751 254 02 1 00 033752 JRSTF @.+1 ;AND RESTORE THEM
3851 033752 000000 033753 USERF,.+1 ;NEW PC AND FLAGS^
3852 033753 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3853 TRAP <JSR MULT0>,42^
3854 033754 200 00 0 00 040265 MOVE [JSR MULT0] ;SET TRAP INSTRUCTION
3855 033755 202 00 0 00 000042 MOVEM 42 ;INTO TRAP LOCATION^
3856 033756 7 004 20 0 00 002377 CONO PI,CHNON+PION+177 ;TURN ON PI SYSTEM
3857 SBWAIT 1^
3858 033757 7 000 20 0 00 110101 ..0101: CONO APR,LEPSFT!LSPSFT!1
3859 STUCK^^
3860 WATINT^
3861 033760 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3862 033761 367 13 0 00 033761 SOJG 13,. ;AND WAIT^
3863 033762 254 00 0 00 033762 JRST . ;LOOP ON SELF^
3864 033763 000000 000000 MULT0: 0
3865 TRPCHK^
3866 033764 332 00 0 00 030042 ..0102: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3867 033765 254 00 0 00 033770 JRST .+3 ;DONT IF STAND ALONE
3868 033766 254 02 1 00 033767 JRSTF @.+1 ;AND RESTORE THEM
3869 033767 000000 033770 USERF,.+1 ;NEW PC AND FLAGS^
3870 033770 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3871 CLRBTH^
3872 033771 700 04 0 00 261600 CLRAPR
3873 033772 700 14 0 00 031577 CLRPI^
3874 033773 255 00 0 00 000000 JFCL
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34
DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0099
3875 SUBTTL DUAL REQUEST TESTING
3876 ;TEST THAT INTERRUPTING ON 2 CHANNELS AT ONCE TRAPS
3877 ;TO THE CORRECT TRAP. TEST IS DONE ON ALL POSSIBLE CHANNELS I.E.
3878 ;7,1 7,2 7,3 7,4 7,5 7,6 6,1 6,2...ETC
3879
3880
3881 033774 C2A: TSET^
3882 033774 %X=. ;DEFINE %X TO SAVE
3883 033774 201 00 0 00 033774 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3884 033775 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3885 XCHN2 C2B,42,101^
3886 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
3887 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
3888 ;IF ERROR OCCURS CHECK "PIN" PRINT
3889
3890 TRPCHK^
3891 033776 332 00 0 00 030042 ..0103: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3892 033777 254 00 0 00 034002 JRST .+3 ;DONT IF STAND ALONE
3893 034000 254 02 1 00 034001 JRSTF @.+1 ;AND RESTORE THEM
3894 034001 000000 034002 USERF,.+1 ;NEW PC AND FLAGS^
3895 CLRBTH^
3896 034002 700 04 0 00 261600 CLRAPR
3897 034003 700 14 0 00 031577 CLRPI^
3898 034004 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3899 034005 200 00 0 00 040266 MOVE [JSR C2B] ;SET UP FOR CORRECT
3900 034006 202 00 0 00 000042 MOVEM 42 ;INTERRUPT TRAP
3901 034007 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
3902 034010 7 004 20 0 00 004101 CONO PI,REQSET!101 ;REQUEST INTERRUPT ON TWO CHANNELS
3903 STUCK^^
3904 WATINT^
3905 034011 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3906 034012 367 13 0 00 034012 SOJG 13,. ;AND WAIT^
3907 034013 254 00 0 00 034013 JRST . ;LOOP ON SELF^
3908 034014 000000 000000 C2B: 0
3909 TBOTH^
3910 TGET^
3911 034015 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3912 034016 302 00 0 00 033774 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3913 STOP2^^
3914 034017 254 04 0 00 034020 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3915 034020 254 00 0 00 034021 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3916 TSET^^
3917 034021 %X=. ;DEFINE %X TO SAVE
3918 034021 201 00 0 00 034021 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3919 034022 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3920 XCHN2 C2C,44,41^
3921 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
3922 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
3923 ;IF ERROR OCCURS CHECK "PIN" PRINT
3924
3925 TRPCHK^
3926 034023 332 00 0 00 030042 ..0104: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3927 034024 254 00 0 00 034027 JRST .+3 ;DONT IF STAND ALONE
3928 034025 254 02 1 00 034026 JRSTF @.+1 ;AND RESTORE THEM
3929 034026 000000 034027 USERF,.+1 ;NEW PC AND FLAGS^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-1
DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0100
3930 CLRBTH^
3931 034027 700 04 0 00 261600 CLRAPR
3932 034030 700 14 0 00 031577 CLRPI^
3933 034031 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3934 034032 200 00 0 00 040267 MOVE [JSR C2C] ;SET UP FOR CORRECT
3935 034033 202 00 0 00 000044 MOVEM 44 ;INTERRUPT TRAP
3936 034034 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
3937 034035 7 004 20 0 00 004041 CONO PI,REQSET!41 ;REQUEST INTERRUPT ON TWO CHANNELS
3938 STUCK^^
3939 WATINT^
3940 034036 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3941 034037 367 13 0 00 034037 SOJG 13,. ;AND WAIT^
3942 034040 254 00 0 00 034040 JRST . ;LOOP ON SELF^
3943 034041 000000 000000 C2C: 0
3944 TBOTH^
3945 TGET^
3946 034042 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3947 034043 302 00 0 00 034021 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3948 STOP2^^
3949 034044 254 04 0 00 034045 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
3950 034045 254 00 0 00 034046 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3951 TSET^^
3952 034046 %X=. ;DEFINE %X TO SAVE
3953 034046 201 00 0 00 034046 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3954 034047 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3955 XCHN2 C2D,46,21^
3956 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
3957 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
3958 ;IF ERROR OCCURS CHECK "PIN" PRINT
3959
3960 TRPCHK^
3961 034050 332 00 0 00 030042 ..0105: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3962 034051 254 00 0 00 034054 JRST .+3 ;DONT IF STAND ALONE
3963 034052 254 02 1 00 034053 JRSTF @.+1 ;AND RESTORE THEM
3964 034053 000000 034054 USERF,.+1 ;NEW PC AND FLAGS^
3965 CLRBTH^
3966 034054 700 04 0 00 261600 CLRAPR
3967 034055 700 14 0 00 031577 CLRPI^
3968 034056 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
3969 034057 200 00 0 00 040270 MOVE [JSR C2D] ;SET UP FOR CORRECT
3970 034060 202 00 0 00 000046 MOVEM 46 ;INTERRUPT TRAP
3971 034061 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
3972 034062 7 004 20 0 00 004021 CONO PI,REQSET!21 ;REQUEST INTERRUPT ON TWO CHANNELS
3973 STUCK^^
3974 WATINT^
3975 034063 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
3976 034064 367 13 0 00 034064 SOJG 13,. ;AND WAIT^
3977 034065 254 00 0 00 034065 JRST . ;LOOP ON SELF^
3978 034066 000000 000000 C2D: 0
3979 TBOTH^
3980 TGET^
3981 034067 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
3982 034070 302 00 0 00 034046 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
3983 STOP2^^
3984 034071 254 04 0 00 034072 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-2
DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0101
3985 034072 254 00 0 00 034073 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
3986 TSET^^
3987 034073 %X=. ;DEFINE %X TO SAVE
3988 034073 201 00 0 00 034073 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
3989 034074 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
3990 XCHN2 C2E,50,11^
3991 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
3992 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
3993 ;IF ERROR OCCURS CHECK "PIN" PRINT
3994
3995 TRPCHK^
3996 034075 332 00 0 00 030042 ..0106: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
3997 034076 254 00 0 00 034101 JRST .+3 ;DONT IF STAND ALONE
3998 034077 254 02 1 00 034100 JRSTF @.+1 ;AND RESTORE THEM
3999 034100 000000 034101 USERF,.+1 ;NEW PC AND FLAGS^
4000 CLRBTH^
4001 034101 700 04 0 00 261600 CLRAPR
4002 034102 700 14 0 00 031577 CLRPI^
4003 034103 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4004 034104 200 00 0 00 040271 MOVE [JSR C2E] ;SET UP FOR CORRECT
4005 034105 202 00 0 00 000050 MOVEM 50 ;INTERRUPT TRAP
4006 034106 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4007 034107 7 004 20 0 00 004011 CONO PI,REQSET!11 ;REQUEST INTERRUPT ON TWO CHANNELS
4008 STUCK^^
4009 WATINT^
4010 034110 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4011 034111 367 13 0 00 034111 SOJG 13,. ;AND WAIT^
4012 034112 254 00 0 00 034112 JRST . ;LOOP ON SELF^
4013 034113 000000 000000 C2E: 0
4014 TBOTH^
4015 TGET^
4016 034114 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4017 034115 302 00 0 00 034073 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4018 STOP2^^
4019 034116 254 04 0 00 034117 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4020 034117 254 00 0 00 034120 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4021 TSET^^
4022 034120 %X=. ;DEFINE %X TO SAVE
4023 034120 201 00 0 00 034120 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4024 034121 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4025 XCHN2 C2F,52,5^
4026 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4027 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4028 ;IF ERROR OCCURS CHECK "PIN" PRINT
4029
4030 TRPCHK^
4031 034122 332 00 0 00 030042 ..0107: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4032 034123 254 00 0 00 034126 JRST .+3 ;DONT IF STAND ALONE
4033 034124 254 02 1 00 034125 JRSTF @.+1 ;AND RESTORE THEM
4034 034125 000000 034126 USERF,.+1 ;NEW PC AND FLAGS^
4035 CLRBTH^
4036 034126 700 04 0 00 261600 CLRAPR
4037 034127 700 14 0 00 031577 CLRPI^
4038 034130 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4039 034131 200 00 0 00 040272 MOVE [JSR C2F] ;SET UP FOR CORRECT
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-3
DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0102
4040 034132 202 00 0 00 000052 MOVEM 52 ;INTERRUPT TRAP
4041 034133 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4042 034134 7 004 20 0 00 004005 CONO PI,REQSET!5 ;REQUEST INTERRUPT ON TWO CHANNELS
4043 STUCK^^
4044 WATINT^
4045 034135 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4046 034136 367 13 0 00 034136 SOJG 13,. ;AND WAIT^
4047 034137 254 00 0 00 034137 JRST . ;LOOP ON SELF^
4048 034140 000000 000000 C2F: 0
4049 TBOTH^
4050 TGET^
4051 034141 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4052 034142 302 00 0 00 034120 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4053 STOP2^^
4054 034143 254 04 0 00 034144 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4055 034144 254 00 0 00 034145 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4056 TSET^^
4057 034145 %X=. ;DEFINE %X TO SAVE
4058 034145 201 00 0 00 034145 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4059 034146 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4060 XCHN2 C2G,54,3^
4061 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4062 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4063 ;IF ERROR OCCURS CHECK "PIN" PRINT
4064
4065 TRPCHK^
4066 034147 332 00 0 00 030042 ..0110: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4067 034150 254 00 0 00 034153 JRST .+3 ;DONT IF STAND ALONE
4068 034151 254 02 1 00 034152 JRSTF @.+1 ;AND RESTORE THEM
4069 034152 000000 034153 USERF,.+1 ;NEW PC AND FLAGS^
4070 CLRBTH^
4071 034153 700 04 0 00 261600 CLRAPR
4072 034154 700 14 0 00 031577 CLRPI^
4073 034155 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4074 034156 200 00 0 00 040273 MOVE [JSR C2G] ;SET UP FOR CORRECT
4075 034157 202 00 0 00 000054 MOVEM 54 ;INTERRUPT TRAP
4076 034160 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4077 034161 7 004 20 0 00 004003 CONO PI,REQSET!3 ;REQUEST INTERRUPT ON TWO CHANNELS
4078 STUCK^^
4079 WATINT^
4080 034162 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4081 034163 367 13 0 00 034163 SOJG 13,. ;AND WAIT^
4082 034164 254 00 0 00 034164 JRST . ;LOOP ON SELF^
4083 034165 000000 000000 C2G: 0
4084 TBOTH^
4085 TGET^
4086 034166 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4087 034167 302 00 0 00 034145 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4088 STOP2^^
4089 034170 254 04 0 00 034171 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4090 034171 254 00 0 00 034172 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4091 TSET^^
4092 034172 %X=. ;DEFINE %X TO SAVE
4093 034172 201 00 0 00 034172 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4094 034173 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-4
DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0103
4095 XCHN2 C2H,42,102^
4096 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4097 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4098 ;IF ERROR OCCURS CHECK "PIN" PRINT
4099
4100 TRPCHK^
4101 034174 332 00 0 00 030042 ..0111: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4102 034175 254 00 0 00 034200 JRST .+3 ;DONT IF STAND ALONE
4103 034176 254 02 1 00 034177 JRSTF @.+1 ;AND RESTORE THEM
4104 034177 000000 034200 USERF,.+1 ;NEW PC AND FLAGS^
4105 CLRBTH^
4106 034200 700 04 0 00 261600 CLRAPR
4107 034201 700 14 0 00 031577 CLRPI^
4108 034202 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4109 034203 200 00 0 00 040274 MOVE [JSR C2H] ;SET UP FOR CORRECT
4110 034204 202 00 0 00 000042 MOVEM 42 ;INTERRUPT TRAP
4111 034205 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4112 034206 7 004 20 0 00 004102 CONO PI,REQSET!102 ;REQUEST INTERRUPT ON TWO CHANNELS
4113 STUCK^^
4114 WATINT^
4115 034207 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4116 034210 367 13 0 00 034210 SOJG 13,. ;AND WAIT^
4117 034211 254 00 0 00 034211 JRST . ;LOOP ON SELF^
4118 034212 000000 000000 C2H: 0
4119 TBOTH^
4120 TGET^
4121 034213 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4122 034214 302 00 0 00 034172 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4123 STOP2^^
4124 034215 254 04 0 00 034216 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4125 034216 254 00 0 00 034217 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4126 TSET^^
4127 034217 %X=. ;DEFINE %X TO SAVE
4128 034217 201 00 0 00 034217 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4129 034220 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4130 XCHN2 C2I,44,42^
4131 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4132 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4133 ;IF ERROR OCCURS CHECK "PIN" PRINT
4134
4135 TRPCHK^
4136 034221 332 00 0 00 030042 ..0112: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4137 034222 254 00 0 00 034225 JRST .+3 ;DONT IF STAND ALONE
4138 034223 254 02 1 00 034224 JRSTF @.+1 ;AND RESTORE THEM
4139 034224 000000 034225 USERF,.+1 ;NEW PC AND FLAGS^
4140 CLRBTH^
4141 034225 700 04 0 00 261600 CLRAPR
4142 034226 700 14 0 00 031577 CLRPI^
4143 034227 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4144 034230 200 00 0 00 040275 MOVE [JSR C2I] ;SET UP FOR CORRECT
4145 034231 202 00 0 00 000044 MOVEM 44 ;INTERRUPT TRAP
4146 034232 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4147 034233 7 004 20 0 00 004042 CONO PI,REQSET!42 ;REQUEST INTERRUPT ON TWO CHANNELS
4148 STUCK^^
4149 WATINT^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-5
DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0104
4150 034234 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4151 034235 367 13 0 00 034235 SOJG 13,. ;AND WAIT^
4152 034236 254 00 0 00 034236 JRST . ;LOOP ON SELF^
4153 034237 000000 000000 C2I: 0
4154 TBOTH^
4155 TGET^
4156 034240 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4157 034241 302 00 0 00 034217 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4158 STOP2^^
4159 034242 254 04 0 00 034243 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4160 034243 254 00 0 00 034244 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4161 TSET^^
4162 034244 %X=. ;DEFINE %X TO SAVE
4163 034244 201 00 0 00 034244 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4164 034245 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4165 XCHN2 C2J,46,22^
4166 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4167 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4168 ;IF ERROR OCCURS CHECK "PIN" PRINT
4169
4170 TRPCHK^
4171 034246 332 00 0 00 030042 ..0113: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4172 034247 254 00 0 00 034252 JRST .+3 ;DONT IF STAND ALONE
4173 034250 254 02 1 00 034251 JRSTF @.+1 ;AND RESTORE THEM
4174 034251 000000 034252 USERF,.+1 ;NEW PC AND FLAGS^
4175 CLRBTH^
4176 034252 700 04 0 00 261600 CLRAPR
4177 034253 700 14 0 00 031577 CLRPI^
4178 034254 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4179 034255 200 00 0 00 040276 MOVE [JSR C2J] ;SET UP FOR CORRECT
4180 034256 202 00 0 00 000046 MOVEM 46 ;INTERRUPT TRAP
4181 034257 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4182 034260 7 004 20 0 00 004022 CONO PI,REQSET!22 ;REQUEST INTERRUPT ON TWO CHANNELS
4183 STUCK^^
4184 WATINT^
4185 034261 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4186 034262 367 13 0 00 034262 SOJG 13,. ;AND WAIT^
4187 034263 254 00 0 00 034263 JRST . ;LOOP ON SELF^
4188 034264 000000 000000 C2J: 0
4189 TBOTH^
4190 TGET^
4191 034265 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4192 034266 302 00 0 00 034244 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4193 STOP2^^
4194 034267 254 04 0 00 034270 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4195 034270 254 00 0 00 034271 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4196 TSET^^
4197 034271 %X=. ;DEFINE %X TO SAVE
4198 034271 201 00 0 00 034271 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4199 034272 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4200 XCHN2 C2K,50,12^
4201 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4202 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4203 ;IF ERROR OCCURS CHECK "PIN" PRINT
4204
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-6
DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0105
4205 TRPCHK^
4206 034273 332 00 0 00 030042 ..0114: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4207 034274 254 00 0 00 034277 JRST .+3 ;DONT IF STAND ALONE
4208 034275 254 02 1 00 034276 JRSTF @.+1 ;AND RESTORE THEM
4209 034276 000000 034277 USERF,.+1 ;NEW PC AND FLAGS^
4210 CLRBTH^
4211 034277 700 04 0 00 261600 CLRAPR
4212 034300 700 14 0 00 031577 CLRPI^
4213 034301 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4214 034302 200 00 0 00 040277 MOVE [JSR C2K] ;SET UP FOR CORRECT
4215 034303 202 00 0 00 000050 MOVEM 50 ;INTERRUPT TRAP
4216 034304 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4217 034305 7 004 20 0 00 004012 CONO PI,REQSET!12 ;REQUEST INTERRUPT ON TWO CHANNELS
4218 STUCK^^
4219 WATINT^
4220 034306 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4221 034307 367 13 0 00 034307 SOJG 13,. ;AND WAIT^
4222 034310 254 00 0 00 034310 JRST . ;LOOP ON SELF^
4223 034311 000000 000000 C2K: 0
4224 TBOTH^
4225 TGET^
4226 034312 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4227 034313 302 00 0 00 034271 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4228 STOP2^^
4229 034314 254 04 0 00 034315 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4230 034315 254 00 0 00 034316 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4231 TSET^^
4232 034316 %X=. ;DEFINE %X TO SAVE
4233 034316 201 00 0 00 034316 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4234 034317 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4235 XCHN2 C2L,52,6^
4236 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4237 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4238 ;IF ERROR OCCURS CHECK "PIN" PRINT
4239
4240 TRPCHK^
4241 034320 332 00 0 00 030042 ..0115: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4242 034321 254 00 0 00 034324 JRST .+3 ;DONT IF STAND ALONE
4243 034322 254 02 1 00 034323 JRSTF @.+1 ;AND RESTORE THEM
4244 034323 000000 034324 USERF,.+1 ;NEW PC AND FLAGS^
4245 CLRBTH^
4246 034324 700 04 0 00 261600 CLRAPR
4247 034325 700 14 0 00 031577 CLRPI^
4248 034326 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4249 034327 200 00 0 00 040300 MOVE [JSR C2L] ;SET UP FOR CORRECT
4250 034330 202 00 0 00 000052 MOVEM 52 ;INTERRUPT TRAP
4251 034331 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4252 034332 7 004 20 0 00 004006 CONO PI,REQSET!6 ;REQUEST INTERRUPT ON TWO CHANNELS
4253 STUCK^^
4254 WATINT^
4255 034333 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4256 034334 367 13 0 00 034334 SOJG 13,. ;AND WAIT^
4257 034335 254 00 0 00 034335 JRST . ;LOOP ON SELF^
4258 034336 000000 000000 C2L: 0
4259 TBOTH^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-7
DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0106
4260 TGET^
4261 034337 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4262 034340 302 00 0 00 034316 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4263 STOP2^^
4264 034341 254 04 0 00 034342 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4265 034342 254 00 0 00 034343 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4266 TSET^^
4267 034343 %X=. ;DEFINE %X TO SAVE
4268 034343 201 00 0 00 034343 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4269 034344 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4270 XCHN2 C2M,42,104^
4271 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4272 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4273 ;IF ERROR OCCURS CHECK "PIN" PRINT
4274
4275 TRPCHK^
4276 034345 332 00 0 00 030042 ..0116: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4277 034346 254 00 0 00 034351 JRST .+3 ;DONT IF STAND ALONE
4278 034347 254 02 1 00 034350 JRSTF @.+1 ;AND RESTORE THEM
4279 034350 000000 034351 USERF,.+1 ;NEW PC AND FLAGS^
4280 CLRBTH^
4281 034351 700 04 0 00 261600 CLRAPR
4282 034352 700 14 0 00 031577 CLRPI^
4283 034353 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4284 034354 200 00 0 00 040301 MOVE [JSR C2M] ;SET UP FOR CORRECT
4285 034355 202 00 0 00 000042 MOVEM 42 ;INTERRUPT TRAP
4286 034356 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4287 034357 7 004 20 0 00 004104 CONO PI,REQSET!104 ;REQUEST INTERRUPT ON TWO CHANNELS
4288 STUCK^^
4289 WATINT^
4290 034360 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4291 034361 367 13 0 00 034361 SOJG 13,. ;AND WAIT^
4292 034362 254 00 0 00 034362 JRST . ;LOOP ON SELF^
4293 034363 000000 000000 C2M: 0
4294 TBOTH^
4295 TGET^
4296 034364 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4297 034365 302 00 0 00 034343 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4298 STOP2^^
4299 034366 254 04 0 00 034367 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4300 034367 254 00 0 00 034370 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4301 TSET^^
4302 034370 %X=. ;DEFINE %X TO SAVE
4303 034370 201 00 0 00 034370 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4304 034371 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4305 XCHN2 C2N,44,44^
4306 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4307 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4308 ;IF ERROR OCCURS CHECK "PIN" PRINT
4309
4310 TRPCHK^
4311 034372 332 00 0 00 030042 ..0117: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4312 034373 254 00 0 00 034376 JRST .+3 ;DONT IF STAND ALONE
4313 034374 254 02 1 00 034375 JRSTF @.+1 ;AND RESTORE THEM
4314 034375 000000 034376 USERF,.+1 ;NEW PC AND FLAGS^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-8
DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0107
4315 CLRBTH^
4316 034376 700 04 0 00 261600 CLRAPR
4317 034377 700 14 0 00 031577 CLRPI^
4318 034400 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4319 034401 200 00 0 00 040302 MOVE [JSR C2N] ;SET UP FOR CORRECT
4320 034402 202 00 0 00 000044 MOVEM 44 ;INTERRUPT TRAP
4321 034403 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4322 034404 7 004 20 0 00 004044 CONO PI,REQSET!44 ;REQUEST INTERRUPT ON TWO CHANNELS
4323 STUCK^^
4324 WATINT^
4325 034405 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4326 034406 367 13 0 00 034406 SOJG 13,. ;AND WAIT^
4327 034407 254 00 0 00 034407 JRST . ;LOOP ON SELF^
4328 034410 000000 000000 C2N: 0
4329 TBOTH^
4330 TGET^
4331 034411 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4332 034412 302 00 0 00 034370 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4333 STOP2^^
4334 034413 254 04 0 00 034414 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4335 034414 254 00 0 00 034415 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4336 TSET^^
4337 034415 %X=. ;DEFINE %X TO SAVE
4338 034415 201 00 0 00 034415 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4339 034416 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4340 XCHN2 C2O,46,24^
4341 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4342 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4343 ;IF ERROR OCCURS CHECK "PIN" PRINT
4344
4345 TRPCHK^
4346 034417 332 00 0 00 030042 ..0120: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4347 034420 254 00 0 00 034423 JRST .+3 ;DONT IF STAND ALONE
4348 034421 254 02 1 00 034422 JRSTF @.+1 ;AND RESTORE THEM
4349 034422 000000 034423 USERF,.+1 ;NEW PC AND FLAGS^
4350 CLRBTH^
4351 034423 700 04 0 00 261600 CLRAPR
4352 034424 700 14 0 00 031577 CLRPI^
4353 034425 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4354 034426 200 00 0 00 040303 MOVE [JSR C2O] ;SET UP FOR CORRECT
4355 034427 202 00 0 00 000046 MOVEM 46 ;INTERRUPT TRAP
4356 034430 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4357 034431 7 004 20 0 00 004024 CONO PI,REQSET!24 ;REQUEST INTERRUPT ON TWO CHANNELS
4358 STUCK^^
4359 WATINT^
4360 034432 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4361 034433 367 13 0 00 034433 SOJG 13,. ;AND WAIT^
4362 034434 254 00 0 00 034434 JRST . ;LOOP ON SELF^
4363 034435 000000 000000 C2O: 0
4364 TBOTH^
4365 TGET^
4366 034436 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4367 034437 302 00 0 00 034415 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4368 STOP2^^
4369 034440 254 04 0 00 034441 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-9
DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0108
4370 034441 254 00 0 00 034442 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4371 TSET^^
4372 034442 %X=. ;DEFINE %X TO SAVE
4373 034442 201 00 0 00 034442 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4374 034443 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4375 XCHN2 C2P,50,14^
4376 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4377 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4378 ;IF ERROR OCCURS CHECK "PIN" PRINT
4379
4380 TRPCHK^
4381 034444 332 00 0 00 030042 ..0121: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4382 034445 254 00 0 00 034450 JRST .+3 ;DONT IF STAND ALONE
4383 034446 254 02 1 00 034447 JRSTF @.+1 ;AND RESTORE THEM
4384 034447 000000 034450 USERF,.+1 ;NEW PC AND FLAGS^
4385 CLRBTH^
4386 034450 700 04 0 00 261600 CLRAPR
4387 034451 700 14 0 00 031577 CLRPI^
4388 034452 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4389 034453 200 00 0 00 040304 MOVE [JSR C2P] ;SET UP FOR CORRECT
4390 034454 202 00 0 00 000050 MOVEM 50 ;INTERRUPT TRAP
4391 034455 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4392 034456 7 004 20 0 00 004014 CONO PI,REQSET!14 ;REQUEST INTERRUPT ON TWO CHANNELS
4393 STUCK^^
4394 WATINT^
4395 034457 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4396 034460 367 13 0 00 034460 SOJG 13,. ;AND WAIT^
4397 034461 254 00 0 00 034461 JRST . ;LOOP ON SELF^
4398 034462 000000 000000 C2P: 0
4399 TBOTH^
4400 TGET^
4401 034463 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4402 034464 302 00 0 00 034442 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4403 STOP2^^
4404 034465 254 04 0 00 034466 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4405 034466 254 00 0 00 034467 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4406 TSET^^
4407 034467 %X=. ;DEFINE %X TO SAVE
4408 034467 201 00 0 00 034467 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4409 034470 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4410 XCHN2 C2Q,42,110^
4411 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4412 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4413 ;IF ERROR OCCURS CHECK "PIN" PRINT
4414
4415 TRPCHK^
4416 034471 332 00 0 00 030042 ..0122: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4417 034472 254 00 0 00 034475 JRST .+3 ;DONT IF STAND ALONE
4418 034473 254 02 1 00 034474 JRSTF @.+1 ;AND RESTORE THEM
4419 034474 000000 034475 USERF,.+1 ;NEW PC AND FLAGS^
4420 CLRBTH^
4421 034475 700 04 0 00 261600 CLRAPR
4422 034476 700 14 0 00 031577 CLRPI^
4423 034477 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4424 034500 200 00 0 00 040305 MOVE [JSR C2Q] ;SET UP FOR CORRECT
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-10
DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0109
4425 034501 202 00 0 00 000042 MOVEM 42 ;INTERRUPT TRAP
4426 034502 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4427 034503 7 004 20 0 00 004110 CONO PI,REQSET!110 ;REQUEST INTERRUPT ON TWO CHANNELS
4428 STUCK^^
4429 WATINT^
4430 034504 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4431 034505 367 13 0 00 034505 SOJG 13,. ;AND WAIT^
4432 034506 254 00 0 00 034506 JRST . ;LOOP ON SELF^
4433 034507 000000 000000 C2Q: 0
4434 TBOTH^
4435 TGET^
4436 034510 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4437 034511 302 00 0 00 034467 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4438 STOP2^^
4439 034512 254 04 0 00 034513 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4440 034513 254 00 0 00 034514 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4441 TSET^^
4442 034514 %X=. ;DEFINE %X TO SAVE
4443 034514 201 00 0 00 034514 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4444 034515 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4445 XCHN2 C2R,44,50^
4446 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4447 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4448 ;IF ERROR OCCURS CHECK "PIN" PRINT
4449
4450 TRPCHK^
4451 034516 332 00 0 00 030042 ..0123: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4452 034517 254 00 0 00 034522 JRST .+3 ;DONT IF STAND ALONE
4453 034520 254 02 1 00 034521 JRSTF @.+1 ;AND RESTORE THEM
4454 034521 000000 034522 USERF,.+1 ;NEW PC AND FLAGS^
4455 CLRBTH^
4456 034522 700 04 0 00 261600 CLRAPR
4457 034523 700 14 0 00 031577 CLRPI^
4458 034524 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4459 034525 200 00 0 00 040306 MOVE [JSR C2R] ;SET UP FOR CORRECT
4460 034526 202 00 0 00 000044 MOVEM 44 ;INTERRUPT TRAP
4461 034527 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4462 034530 7 004 20 0 00 004050 CONO PI,REQSET!50 ;REQUEST INTERRUPT ON TWO CHANNELS
4463 STUCK^^
4464 WATINT^
4465 034531 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4466 034532 367 13 0 00 034532 SOJG 13,. ;AND WAIT^
4467 034533 254 00 0 00 034533 JRST . ;LOOP ON SELF^
4468 034534 000000 000000 C2R: 0
4469 TBOTH^
4470 TGET^
4471 034535 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4472 034536 302 00 0 00 034514 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4473 STOP2^^
4474 034537 254 04 0 00 034540 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4475 034540 254 00 0 00 034541 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4476 TSET^^
4477 034541 %X=. ;DEFINE %X TO SAVE
4478 034541 201 00 0 00 034541 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4479 034542 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-11
DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0110
4480 XCHN2 C2S,46,30^
4481 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4482 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4483 ;IF ERROR OCCURS CHECK "PIN" PRINT
4484
4485 TRPCHK^
4486 034543 332 00 0 00 030042 ..0124: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4487 034544 254 00 0 00 034547 JRST .+3 ;DONT IF STAND ALONE
4488 034545 254 02 1 00 034546 JRSTF @.+1 ;AND RESTORE THEM
4489 034546 000000 034547 USERF,.+1 ;NEW PC AND FLAGS^
4490 CLRBTH^
4491 034547 700 04 0 00 261600 CLRAPR
4492 034550 700 14 0 00 031577 CLRPI^
4493 034551 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4494 034552 200 00 0 00 040307 MOVE [JSR C2S] ;SET UP FOR CORRECT
4495 034553 202 00 0 00 000046 MOVEM 46 ;INTERRUPT TRAP
4496 034554 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4497 034555 7 004 20 0 00 004030 CONO PI,REQSET!30 ;REQUEST INTERRUPT ON TWO CHANNELS
4498 STUCK^^
4499 WATINT^
4500 034556 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4501 034557 367 13 0 00 034557 SOJG 13,. ;AND WAIT^
4502 034560 254 00 0 00 034560 JRST . ;LOOP ON SELF^
4503 034561 000000 000000 C2S: 0
4504 TBOTH^
4505 TGET^
4506 034562 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4507 034563 302 00 0 00 034541 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4508 STOP2^^
4509 034564 254 04 0 00 034565 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4510 034565 254 00 0 00 034566 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4511 TSET^^
4512 034566 %X=. ;DEFINE %X TO SAVE
4513 034566 201 00 0 00 034566 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4514 034567 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4515 XCHN2 C2T,42,120^
4516 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4517 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4518 ;IF ERROR OCCURS CHECK "PIN" PRINT
4519
4520 TRPCHK^
4521 034570 332 00 0 00 030042 ..0125: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4522 034571 254 00 0 00 034574 JRST .+3 ;DONT IF STAND ALONE
4523 034572 254 02 1 00 034573 JRSTF @.+1 ;AND RESTORE THEM
4524 034573 000000 034574 USERF,.+1 ;NEW PC AND FLAGS^
4525 CLRBTH^
4526 034574 700 04 0 00 261600 CLRAPR
4527 034575 700 14 0 00 031577 CLRPI^
4528 034576 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4529 034577 200 00 0 00 040310 MOVE [JSR C2T] ;SET UP FOR CORRECT
4530 034600 202 00 0 00 000042 MOVEM 42 ;INTERRUPT TRAP
4531 034601 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4532 034602 7 004 20 0 00 004120 CONO PI,REQSET!120 ;REQUEST INTERRUPT ON TWO CHANNELS
4533 STUCK^^
4534 WATINT^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-12
DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0111
4535 034603 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4536 034604 367 13 0 00 034604 SOJG 13,. ;AND WAIT^
4537 034605 254 00 0 00 034605 JRST . ;LOOP ON SELF^
4538 034606 000000 000000 C2T: 0
4539 TBOTH^
4540 TGET^
4541 034607 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4542 034610 302 00 0 00 034566 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4543 STOP2^^
4544 034611 254 04 0 00 034612 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4545 034612 254 00 0 00 034613 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4546 TSET^^
4547 034613 %X=. ;DEFINE %X TO SAVE
4548 034613 201 00 0 00 034613 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4549 034614 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4550 XCHN2 C2U,44,60^
4551 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4552 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4553 ;IF ERROR OCCURS CHECK "PIN" PRINT
4554
4555 TRPCHK^
4556 034615 332 00 0 00 030042 ..0126: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4557 034616 254 00 0 00 034621 JRST .+3 ;DONT IF STAND ALONE
4558 034617 254 02 1 00 034620 JRSTF @.+1 ;AND RESTORE THEM
4559 034620 000000 034621 USERF,.+1 ;NEW PC AND FLAGS^
4560 CLRBTH^
4561 034621 700 04 0 00 261600 CLRAPR
4562 034622 700 14 0 00 031577 CLRPI^
4563 034623 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4564 034624 200 00 0 00 040311 MOVE [JSR C2U] ;SET UP FOR CORRECT
4565 034625 202 00 0 00 000044 MOVEM 44 ;INTERRUPT TRAP
4566 034626 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4567 034627 7 004 20 0 00 004060 CONO PI,REQSET!60 ;REQUEST INTERRUPT ON TWO CHANNELS
4568 STUCK^^
4569 WATINT^
4570 034630 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4571 034631 367 13 0 00 034631 SOJG 13,. ;AND WAIT^
4572 034632 254 00 0 00 034632 JRST . ;LOOP ON SELF^
4573 034633 000000 000000 C2U: 0
4574 TBOTH^
4575 TGET^
4576 034634 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4577 034635 302 00 0 00 034613 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4578 STOP2^^
4579 034636 254 04 0 00 034637 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4580 034637 254 00 0 00 034640 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4581 TSET^^
4582 034640 %X=. ;DEFINE %X TO SAVE
4583 034640 201 00 0 00 034640 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4584 034641 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4585 XCHN2 C2V,42,140^
4586 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP
4587 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL.
4588 ;IF ERROR OCCURS CHECK "PIN" PRINT
4589
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-13
DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0112
4590 TRPCHK^
4591 034642 332 00 0 00 030042 ..0127: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR
4592 034643 254 00 0 00 034646 JRST .+3 ;DONT IF STAND ALONE
4593 034644 254 02 1 00 034645 JRSTF @.+1 ;AND RESTORE THEM
4594 034645 000000 034646 USERF,.+1 ;NEW PC AND FLAGS^
4595 CLRBTH^
4596 034646 700 04 0 00 261600 CLRAPR
4597 034647 700 14 0 00 031577 CLRPI^
4598 034650 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS
4599 034651 200 00 0 00 040312 MOVE [JSR C2V] ;SET UP FOR CORRECT
4600 034652 202 00 0 00 000042 MOVEM 42 ;INTERRUPT TRAP
4601 034653 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4602 034654 7 004 20 0 00 004140 CONO PI,REQSET!140 ;REQUEST INTERRUPT ON TWO CHANNELS
4603 STUCK^^
4604 WATINT^
4605 034655 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4606 034656 367 13 0 00 034656 SOJG 13,. ;AND WAIT^
4607 034657 254 00 0 00 034657 JRST . ;LOOP ON SELF^
4608 034660 255 00 0 00 000000 JFCL
4609 034661 000000 000000 C2V: 0
4610 TGET^
4611 034662 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4612 034663 302 00 0 00 034640 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4613 STOP2^^
4614 034664 254 04 0 00 034665 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4615 034665 254 00 0 00 034666 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4616 CLRBTH^
4617 034666 700 04 0 00 261600 CLRAPR
4618 034667 700 14 0 00 031577 CLRPI^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 35
DSKAH1 MAC 31-Mar-78 11:13 TEST THE ABILITY TO DISMISS INTERRUPTS SEQ 0113
4619 SUBTTL TEST THE ABILITY TO DISMISS INTERRUPTS
4620
4621 ;CHECK THAT "JEN" DISMISSES INTERRUPTS
4622
4623 000042 X=42
4624 000100 Z1=100
4625 JENDIS: REPEAT 7,<
4626 PIDIS X,Z1
4627 X=X+2
4628 Z1=Z1_-1
4629 >
4630
4631 PIDIS X,Z1^
4632 ;CHECK THAT X JEN WILL DISMISS INTERUPTS ON ALL CHANNELS
4633
4634 TSET^
4635 034670 %X=. ;DEFINE %X TO SAVE
4636 034670 201 00 0 00 034670 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4637 034671 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4638 034672 200 00 0 00 040313 ..0130: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION
4639 034673 202 00 0 00 000042 MOVEM X ;INTO X
4640 034674 7 004 20 0 00 006300 CONO PI,CHNON+PION+REQSET+Z1 ;TURN ON PI AND REQEST ON CH Z1
4641 WATINT^
4642 034675 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4643 034676 367 13 0 00 034676 SOJG 13,. ;AND WAIT^
4644 034677 254 00 0 00 034703 JRST .+4
4645 034700 000000 000000 0
4646 034701 7 004 20 0 00 022300 CONO PI,CHNON+PION+LRQCLR+Z1 ;TURN OF INTERRUPT REQUEST
4647 034702 254 12 1 00 034700 JEN @.-2 ;DISMISS THE INTERRUPT
4648 034703 7 004 30 0 00 077400 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET
4649 STOP^
4650 034704 254 04 0 00 034705 HALT .+1 ;INSTRUCTION FAILED REPLACE
4651 034705 254 00 0 00 034706 JRST .+1 ;WITH JRST BACK^
4652 TGET^
4653 034706 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4654 034707 302 00 0 00 034670 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4655 STOP2^^
4656 034710 254 04 0 00 034711 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4657 034711 254 00 0 00 034712 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4658 CLRBTH^^
4659 034712 700 04 0 00 261600 CLRAPR
4660 034713 700 14 0 00 031577 CLRPI^
4661 000044 X=X+2
4662 000040 Z1=Z1_-1
4663
4664
4665 PIDIS X,Z1^
4666 ;CHECK THAT X JEN WILL DISMISS INTERUPTS ON ALL CHANNELS
4667
4668 TSET^
4669 034714 %X=. ;DEFINE %X TO SAVE
4670 034714 201 00 0 00 034714 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4671 034715 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4672 034716 200 00 0 00 040314 ..0131: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION
4673 034717 202 00 0 00 000044 MOVEM X ;INTO X
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 35-1
DSKAH1 MAC 31-Mar-78 11:13 TEST THE ABILITY TO DISMISS INTERRUPTS SEQ 0114
4674 034720 7 004 20 0 00 006240 CONO PI,CHNON+PION+REQSET+Z1 ;TURN ON PI AND REQEST ON CH Z1
4675 WATINT^
4676 034721 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4677 034722 367 13 0 00 034722 SOJG 13,. ;AND WAIT^
4678 034723 254 00 0 00 034727 JRST .+4
4679 034724 000000 000000 0
4680 034725 7 004 20 0 00 022240 CONO PI,CHNON+PION+LRQCLR+Z1 ;TURN OF INTERRUPT REQUEST
4681 034726 254 12 1 00 034724 JEN @.-2 ;DISMISS THE INTERRUPT
4682 034727 7 004 30 0 00 077400 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET
4683 STOP^
4684 034730 254 04 0 00 034731 HALT .+1 ;INSTRUCTION FAILED REPLACE
4685 034731 254 00 0 00 034732 JRST .+1 ;WITH JRST BACK^
4686 TGET^
4687 034732 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4688 034733 302 00 0 00 034714 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4689 STOP2^^
4690 034734 254 04 0 00 034735 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4691 034735 254 00 0 00 034736 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4692 CLRBTH^^
4693 034736 700 04 0 00 261600 CLRAPR
4694 034737 700 14 0 00 031577 CLRPI^
4695 000046 X=X+2
4696 000020 Z1=Z1_-1
4697
4698
4699 PIDIS X,Z1^
4700 ;CHECK THAT X JEN WILL DISMISS INTERUPTS ON ALL CHANNELS
4701
4702 TSET^
4703 034740 %X=. ;DEFINE %X TO SAVE
4704 034740 201 00 0 00 034740 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4705 034741 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4706 034742 200 00 0 00 040315 ..0132: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION
4707 034743 202 00 0 00 000046 MOVEM X ;INTO X
4708 034744 7 004 20 0 00 006220 CONO PI,CHNON+PION+REQSET+Z1 ;TURN ON PI AND REQEST ON CH Z1
4709 WATINT^
4710 034745 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4711 034746 367 13 0 00 034746 SOJG 13,. ;AND WAIT^
4712 034747 254 00 0 00 034753 JRST .+4
4713 034750 000000 000000 0
4714 034751 7 004 20 0 00 022220 CONO PI,CHNON+PION+LRQCLR+Z1 ;TURN OF INTERRUPT REQUEST
4715 034752 254 12 1 00 034750 JEN @.-2 ;DISMISS THE INTERRUPT
4716 034753 7 004 30 0 00 077400 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET
4717 STOP^
4718 034754 254 04 0 00 034755 HALT .+1 ;INSTRUCTION FAILED REPLACE
4719 034755 254 00 0 00 034756 JRST .+1 ;WITH JRST BACK^
4720 TGET^
4721 034756 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4722 034757 302 00 0 00 034740 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4723 STOP2^^
4724 034760 254 04 0 00 034761 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4725 034761 254 00 0 00 034762 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4726 CLRBTH^^
4727 034762 700 04 0 00 261600 CLRAPR
4728 034763 700 14 0 00 031577 CLRPI^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 35-2
DSKAH1 MAC 31-Mar-78 11:13 TEST THE ABILITY TO DISMISS INTERRUPTS SEQ 0115
4729 000050 X=X+2
4730 000010 Z1=Z1_-1
4731
4732
4733 PIDIS X,Z1^
4734 ;CHECK THAT X JEN WILL DISMISS INTERUPTS ON ALL CHANNELS
4735
4736 TSET^
4737 034764 %X=. ;DEFINE %X TO SAVE
4738 034764 201 00 0 00 034764 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4739 034765 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4740 034766 200 00 0 00 040316 ..0133: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION
4741 034767 202 00 0 00 000050 MOVEM X ;INTO X
4742 034770 7 004 20 0 00 006210 CONO PI,CHNON+PION+REQSET+Z1 ;TURN ON PI AND REQEST ON CH Z1
4743 WATINT^
4744 034771 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4745 034772 367 13 0 00 034772 SOJG 13,. ;AND WAIT^
4746 034773 254 00 0 00 034777 JRST .+4
4747 034774 000000 000000 0
4748 034775 7 004 20 0 00 022210 CONO PI,CHNON+PION+LRQCLR+Z1 ;TURN OF INTERRUPT REQUEST
4749 034776 254 12 1 00 034774 JEN @.-2 ;DISMISS THE INTERRUPT
4750 034777 7 004 30 0 00 077400 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET
4751 STOP^
4752 035000 254 04 0 00 035001 HALT .+1 ;INSTRUCTION FAILED REPLACE
4753 035001 254 00 0 00 035002 JRST .+1 ;WITH JRST BACK^
4754 TGET^
4755 035002 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4756 035003 302 00 0 00 034764 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4757 STOP2^^
4758 035004 254 04 0 00 035005 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4759 035005 254 00 0 00 035006 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4760 CLRBTH^^
4761 035006 700 04 0 00 261600 CLRAPR
4762 035007 700 14 0 00 031577 CLRPI^
4763 000052 X=X+2
4764 000004 Z1=Z1_-1
4765
4766
4767 PIDIS X,Z1^
4768 ;CHECK THAT X JEN WILL DISMISS INTERUPTS ON ALL CHANNELS
4769
4770 TSET^
4771 035010 %X=. ;DEFINE %X TO SAVE
4772 035010 201 00 0 00 035010 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4773 035011 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4774 035012 200 00 0 00 040317 ..0134: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION
4775 035013 202 00 0 00 000052 MOVEM X ;INTO X
4776 035014 7 004 20 0 00 006204 CONO PI,CHNON+PION+REQSET+Z1 ;TURN ON PI AND REQEST ON CH Z1
4777 WATINT^
4778 035015 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4779 035016 367 13 0 00 035016 SOJG 13,. ;AND WAIT^
4780 035017 254 00 0 00 035023 JRST .+4
4781 035020 000000 000000 0
4782 035021 7 004 20 0 00 022204 CONO PI,CHNON+PION+LRQCLR+Z1 ;TURN OF INTERRUPT REQUEST
4783 035022 254 12 1 00 035020 JEN @.-2 ;DISMISS THE INTERRUPT
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 35-3
DSKAH1 MAC 31-Mar-78 11:13 TEST THE ABILITY TO DISMISS INTERRUPTS SEQ 0116
4784 035023 7 004 30 0 00 077400 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET
4785 STOP^
4786 035024 254 04 0 00 035025 HALT .+1 ;INSTRUCTION FAILED REPLACE
4787 035025 254 00 0 00 035026 JRST .+1 ;WITH JRST BACK^
4788 TGET^
4789 035026 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4790 035027 302 00 0 00 035010 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4791 STOP2^^
4792 035030 254 04 0 00 035031 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4793 035031 254 00 0 00 035032 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4794 CLRBTH^^
4795 035032 700 04 0 00 261600 CLRAPR
4796 035033 700 14 0 00 031577 CLRPI^
4797 000054 X=X+2
4798 000002 Z1=Z1_-1
4799
4800
4801 PIDIS X,Z1^
4802 ;CHECK THAT X JEN WILL DISMISS INTERUPTS ON ALL CHANNELS
4803
4804 TSET^
4805 035034 %X=. ;DEFINE %X TO SAVE
4806 035034 201 00 0 00 035034 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4807 035035 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4808 035036 200 00 0 00 040320 ..0135: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION
4809 035037 202 00 0 00 000054 MOVEM X ;INTO X
4810 035040 7 004 20 0 00 006202 CONO PI,CHNON+PION+REQSET+Z1 ;TURN ON PI AND REQEST ON CH Z1
4811 WATINT^
4812 035041 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4813 035042 367 13 0 00 035042 SOJG 13,. ;AND WAIT^
4814 035043 254 00 0 00 035047 JRST .+4
4815 035044 000000 000000 0
4816 035045 7 004 20 0 00 022202 CONO PI,CHNON+PION+LRQCLR+Z1 ;TURN OF INTERRUPT REQUEST
4817 035046 254 12 1 00 035044 JEN @.-2 ;DISMISS THE INTERRUPT
4818 035047 7 004 30 0 00 077400 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET
4819 STOP^
4820 035050 254 04 0 00 035051 HALT .+1 ;INSTRUCTION FAILED REPLACE
4821 035051 254 00 0 00 035052 JRST .+1 ;WITH JRST BACK^
4822 TGET^
4823 035052 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4824 035053 302 00 0 00 035034 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4825 STOP2^^
4826 035054 254 04 0 00 035055 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4827 035055 254 00 0 00 035056 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4828 CLRBTH^^
4829 035056 700 04 0 00 261600 CLRAPR
4830 035057 700 14 0 00 031577 CLRPI^
4831 000056 X=X+2
4832 000001 Z1=Z1_-1
4833
4834
4835 PIDIS X,Z1^
4836 ;CHECK THAT X JEN WILL DISMISS INTERUPTS ON ALL CHANNELS
4837
4838 TSET^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 35-4
DSKAH1 MAC 31-Mar-78 11:13 TEST THE ABILITY TO DISMISS INTERRUPTS SEQ 0117
4839 035060 %X=. ;DEFINE %X TO SAVE
4840 035060 201 00 0 00 035060 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
4841 035061 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
4842 035062 200 00 0 00 040321 ..0136: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION
4843 035063 202 00 0 00 000056 MOVEM X ;INTO X
4844 035064 7 004 20 0 00 006201 CONO PI,CHNON+PION+REQSET+Z1 ;TURN ON PI AND REQEST ON CH Z1
4845 WATINT^
4846 035065 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4847 035066 367 13 0 00 035066 SOJG 13,. ;AND WAIT^
4848 035067 254 00 0 00 035073 JRST .+4
4849 035070 000000 000000 0
4850 035071 7 004 20 0 00 022201 CONO PI,CHNON+PION+LRQCLR+Z1 ;TURN OF INTERRUPT REQUEST
4851 035072 254 12 1 00 035070 JEN @.-2 ;DISMISS THE INTERRUPT
4852 035073 7 004 30 0 00 077400 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET
4853 STOP^
4854 035074 254 04 0 00 035075 HALT .+1 ;INSTRUCTION FAILED REPLACE
4855 035075 254 00 0 00 035076 JRST .+1 ;WITH JRST BACK^
4856 TGET^
4857 035076 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
4858 035077 302 00 0 00 035060 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
4859 STOP2^^
4860 035100 254 04 0 00 035101 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
4861 035101 254 00 0 00 035102 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
4862 CLRBTH^^
4863 035102 700 04 0 00 261600 CLRAPR
4864 035103 700 14 0 00 031577 CLRPI^
4865 000060 X=X+2
4866 000000 Z1=Z1_-1
4867
4868 035104 255 00 0 00 000000 JFCL
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 36
DSKAH1 MAC 31-Mar-78 11:13 TICKLE THE INTERRUPT SYSTEM WITH THE APR SYSTEM SEQ 0118
4869 SUBTTL TICKLE THE INTERRUPT SYSTEM WITH THE APR SYSTEM
4870 ;TEST THAT THE APR SYSTEM WILL NOT CAUSE AN INTERRUPT WHEN ENABLED AND
4871 ;NO APR APR SYSTEM CHANNEL IS SET..
4872 BLURB^
4873 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES
4874 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0
4875 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION
4876 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS
4877 ^
4878 035105 CKCK0: CLRBTH^
4879 035105 700 04 0 00 261600 CLRAPR
4880 035106 700 14 0 00 031577 CLRPI^
4881 035107 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS
4882 035110 400 00 0 00 000000 SETZ ;CLEAR 0
4883 035111 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM
4884 CONO APR,LEPSFT!LSPSFT!LENXER!LSNXER!LEPWRF!LSPWRF!LEPAER!LSPAER ;ENABLE THE
4885 035112 7 000 20 0 00 111700 APR SYSTEM
4886 WATINT^
4887 035113 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4888 035114 367 13 0 00 035114 SOJG 13,. ;AND WAIT^
4889 035115 332 00 0 00 000000 SKIPE ;AC0=0
4890 STOP^
4891 035116 254 04 0 00 035117 HALT .+1 ;INSTRUCTION FAILED REPLACE
4892 035117 254 00 0 00 035120 JRST .+1 ;WITH JRST BACK^
4893
4894
4895 ;TEST THAT THE APR SYSTEM WILL NOT INTERRUPT WITHOUT APR SYSTEM ENABLE SET
4896 ;ON ALL CHANNELS
4897
4898 000001 X=1
4899 CKCK1: REPEAT 7,<
4900 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL
4901 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL
4902 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED
4903 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST.
4904 CLRBTH
4905 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS
4906 SETZ 0, ;INSURE ZERO AC0.
4907 CONO PI,PION!CHNON!177 ;ENABLE PI'S
4908 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY
4909 STEM AND SET CH X
4910 WATINT
4911 SKIPE ;AC0=0
4912 STOP
4913 X=X+1
4914 >
4915
4916 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL
4917 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL
4918 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED
4919 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST.
4920 CLRBTH^
4921 035120 700 04 0 00 261600 CLRAPR
4922 035121 700 14 0 00 031577 CLRPI^
4923 035122 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 36-1
DSKAH1 MAC 31-Mar-78 11:13 TICKLE THE INTERRUPT SYSTEM WITH THE APR SYSTEM SEQ 0119
4924 035123 400 00 0 00 000000 SETZ 0, ;INSURE ZERO AC0.
4925 035124 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;ENABLE PI'S
4926 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY
4927 035125 7 000 20 0 00 051701 STEM AND SET CH X
4928 WATINT^
4929 035126 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4930 035127 367 13 0 00 035127 SOJG 13,. ;AND WAIT^
4931 035130 332 00 0 00 000000 SKIPE ;AC0=0
4932 STOP^
4933 035131 254 04 0 00 035132 HALT .+1 ;INSTRUCTION FAILED REPLACE
4934 035132 254 00 0 00 035133 JRST .+1 ;WITH JRST BACK^
4935 000002 X=X+1
4936
4937
4938 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL
4939 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL
4940 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED
4941 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST.
4942 CLRBTH^
4943 035133 700 04 0 00 261600 CLRAPR
4944 035134 700 14 0 00 031577 CLRPI^
4945 035135 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS
4946 035136 400 00 0 00 000000 SETZ 0, ;INSURE ZERO AC0.
4947 035137 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;ENABLE PI'S
4948 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY
4949 035140 7 000 20 0 00 051702 STEM AND SET CH X
4950 WATINT^
4951 035141 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4952 035142 367 13 0 00 035142 SOJG 13,. ;AND WAIT^
4953 035143 332 00 0 00 000000 SKIPE ;AC0=0
4954 STOP^
4955 035144 254 04 0 00 035145 HALT .+1 ;INSTRUCTION FAILED REPLACE
4956 035145 254 00 0 00 035146 JRST .+1 ;WITH JRST BACK^
4957 000003 X=X+1
4958
4959
4960 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL
4961 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL
4962 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED
4963 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST.
4964 CLRBTH^
4965 035146 700 04 0 00 261600 CLRAPR
4966 035147 700 14 0 00 031577 CLRPI^
4967 035150 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS
4968 035151 400 00 0 00 000000 SETZ 0, ;INSURE ZERO AC0.
4969 035152 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;ENABLE PI'S
4970 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY
4971 035153 7 000 20 0 00 051703 STEM AND SET CH X
4972 WATINT^
4973 035154 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4974 035155 367 13 0 00 035155 SOJG 13,. ;AND WAIT^
4975 035156 332 00 0 00 000000 SKIPE ;AC0=0
4976 STOP^
4977 035157 254 04 0 00 035160 HALT .+1 ;INSTRUCTION FAILED REPLACE
4978 035160 254 00 0 00 035161 JRST .+1 ;WITH JRST BACK^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 36-2
DSKAH1 MAC 31-Mar-78 11:13 TICKLE THE INTERRUPT SYSTEM WITH THE APR SYSTEM SEQ 0120
4979 000004 X=X+1
4980
4981
4982 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL
4983 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL
4984 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED
4985 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST.
4986 CLRBTH^
4987 035161 700 04 0 00 261600 CLRAPR
4988 035162 700 14 0 00 031577 CLRPI^
4989 035163 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS
4990 035164 400 00 0 00 000000 SETZ 0, ;INSURE ZERO AC0.
4991 035165 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;ENABLE PI'S
4992 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY
4993 035166 7 000 20 0 00 051704 STEM AND SET CH X
4994 WATINT^
4995 035167 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
4996 035170 367 13 0 00 035170 SOJG 13,. ;AND WAIT^
4997 035171 332 00 0 00 000000 SKIPE ;AC0=0
4998 STOP^
4999 035172 254 04 0 00 035173 HALT .+1 ;INSTRUCTION FAILED REPLACE
5000 035173 254 00 0 00 035174 JRST .+1 ;WITH JRST BACK^
5001 000005 X=X+1
5002
5003
5004 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL
5005 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL
5006 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED
5007 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST.
5008 CLRBTH^
5009 035174 700 04 0 00 261600 CLRAPR
5010 035175 700 14 0 00 031577 CLRPI^
5011 035176 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS
5012 035177 400 00 0 00 000000 SETZ 0, ;INSURE ZERO AC0.
5013 035200 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;ENABLE PI'S
5014 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY
5015 035201 7 000 20 0 00 051705 STEM AND SET CH X
5016 WATINT^
5017 035202 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
5018 035203 367 13 0 00 035203 SOJG 13,. ;AND WAIT^
5019 035204 332 00 0 00 000000 SKIPE ;AC0=0
5020 STOP^
5021 035205 254 04 0 00 035206 HALT .+1 ;INSTRUCTION FAILED REPLACE
5022 035206 254 00 0 00 035207 JRST .+1 ;WITH JRST BACK^
5023 000006 X=X+1
5024
5025
5026 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL
5027 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL
5028 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED
5029 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST.
5030 CLRBTH^
5031 035207 700 04 0 00 261600 CLRAPR
5032 035210 700 14 0 00 031577 CLRPI^
5033 035211 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 36-3
DSKAH1 MAC 31-Mar-78 11:13 TICKLE THE INTERRUPT SYSTEM WITH THE APR SYSTEM SEQ 0121
5034 035212 400 00 0 00 000000 SETZ 0, ;INSURE ZERO AC0.
5035 035213 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;ENABLE PI'S
5036 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY
5037 035214 7 000 20 0 00 051706 STEM AND SET CH X
5038 WATINT^
5039 035215 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
5040 035216 367 13 0 00 035216 SOJG 13,. ;AND WAIT^
5041 035217 332 00 0 00 000000 SKIPE ;AC0=0
5042 STOP^
5043 035220 254 04 0 00 035221 HALT .+1 ;INSTRUCTION FAILED REPLACE
5044 035221 254 00 0 00 035222 JRST .+1 ;WITH JRST BACK^
5045 000007 X=X+1
5046
5047
5048 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL
5049 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL
5050 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED
5051 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST.
5052 CLRBTH^
5053 035222 700 04 0 00 261600 CLRAPR
5054 035223 700 14 0 00 031577 CLRPI^
5055 035224 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS
5056 035225 400 00 0 00 000000 SETZ 0, ;INSURE ZERO AC0.
5057 035226 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;ENABLE PI'S
5058 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY
5059 035227 7 000 20 0 00 051707 STEM AND SET CH X
5060 WATINT^
5061 035230 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT.
5062 035231 367 13 0 00 035231 SOJG 13,. ;AND WAIT^
5063 035232 332 00 0 00 000000 SKIPE ;AC0=0
5064 STOP^
5065 035233 254 04 0 00 035234 HALT .+1 ;INSTRUCTION FAILED REPLACE
5066 035234 254 00 0 00 035235 JRST .+1 ;WITH JRST BACK^
5067 000010 X=X+1
5068
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 37
DSKAH1 MAC 31-Mar-78 11:13 TEST VARIOUS RESETS SEQ 0122
5069 SUBTTL TEST VARIOUS RESETS
5070
5071 ;TRY TO RESET THE PI BITS VIA CONO RESET TO THE APR
5072
5073 035235 RESET1: CLRBTH^
5074 035235 700 04 0 00 261600 CLRAPR
5075 035236 700 14 0 00 031577 CLRPI^
5076 035237 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;TURN ON PI SYSTEM
5077 035240 7 000 20 0 00 200000 CONO APR,IOCLR ;RESET THE I/O BUS
5078 035241 7 004 24 0 00 000000 CONI PI,0
5079 035242 606 00 0 00 000377 TRNN 0,PION!177 ;ALL PI BITS SHOULD STILL BE SET
5080 STOP^
5081 035243 254 04 0 00 035244 HALT .+1 ;INSTRUCTION FAILED REPLACE
5082 035244 254 00 0 00 035245 JRST .+1 ;WITH JRST BACK^
5083
5084 ;TRY TO RESET THE APR WITH A RESET TO THE PI.
5085
5086 035245 RESET2: CLRBTH^
5087 035245 700 04 0 00 261600 CLRAPR
5088 035246 700 14 0 00 031577 CLRPI^
5089 035247 7 000 20 0 00 000007 CONO APR,7 ;SET CLOCK AND ERROR PIA'S
5090 035250 7 004 20 0 00 010000 CONO PI,PICLR ;CLEAR THE PI SYSTEM
5091 035251 7 000 24 0 00 000000 CONI APR,0
5092 035252 606 00 0 00 000007 TRNN 0,7 ;AND APR BITS SHOULD STILL BE SET
5093 STOP^
5094 035253 254 04 0 00 035254 HALT .+1 ;INSTRUCTION FAILED REPLACE
5095 035254 254 00 0 00 035255 JRST .+1 ;WITH JRST BACK^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 38
DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT OUT OF INDIRECT LOOP SEQ 0123
5096 SUBTTL INTERRUPT OUT OF INDIRECT LOOP
5097
5098 INDPI 42,1^
5099 ;GET OURSELVES INTO 42 TIGHT INDIRECT LOOP.
5100 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT.
5101 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND
5102 ;WE WILL RETURN TO THE "JRST @." INSTRUCTION.
5103
5104 TSET^
5105 035255 %X=. ;DEFINE %X TO SAVE
5106 035255 201 00 0 00 035255 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5107 035256 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5108 035257 201 10 0 00 000012 MOVEI 10,^D10 ;TIMES TO DO THIS TEST
5109 035260 202 10 0 00 040505 MOVEM 10,COUNTX# ;STORE IT
5110 035261 200 10 0 00 040322 MOVE 10,[JSR ..0137] ;INTERRUPT TRAP INSTRUCTION
5111 035262 202 10 0 00 000042 MOVEM 10,42 ;STORE FOR INTERRUPT REQUEST
5112 CLRBT1^
5113 035263 700 04 0 00 261600 CLRAPR
5114 035264 700 14 0 00 031577 CLRPI^
5115 035265 7 004 20 0 00 002377 CONO PI,2377 ;TURN ON PI AND CHANNELS
5116 035266 7 000 20 0 00 110101 CONO APR,LEPSFT!LSPSFT!1 ;ENABLE AND SET ERRORS,ENABLE CH 1
5117 035267 254 00 1 00 035267 JRST @. ;LOOP
5118 035270 254 04 0 00 035271 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP)
5119 035271 000000 000000 ..0137: 0
5120 TGET^
5121 035272 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5122 035273 302 00 0 00 035255 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5123 STOP2^^
5124 035274 254 04 0 00 035275 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5125 035275 254 00 0 00 035276 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5126 035276 200 01 0 00 035271 MOVE 1,..0137 ;GET STORED PC
5127 035277 405 01 0 00 777777 ANDI 1,-1 ;MASK PC BITS
5128 035300 302 01 0 00 035267 CAIE 1,..0137-2 ;WAS CORRECT PC STORED?
5129 STOP^
5130 035301 254 04 0 00 035302 HALT .+1 ;INSTRUCTION FAILED REPLACE
5131 035302 254 00 0 00 035303 JRST .+1 ;WITH JRST BACK^
5132 035303 372 00 0 00 040505 SOSE COUNTX ;LOOP TEST
5133 035304 254 12 1 00 000001 JEN @1 ;DISMISS INTERRUPT
5134 CLRBTH^^
5135 035305 700 04 0 00 261600 CLRAPR
5136 035306 700 14 0 00 031577 CLRPI^
5137
5138 INDPI 44,2^
5139 ;GET OURSELVES INTO 44 TIGHT INDIRECT LOOP.
5140 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT.
5141 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND
5142 ;WE WILL RETURN TO THE "JRST @." INSTRUCTION.
5143
5144 TSET^
5145 035307 %X=. ;DEFINE %X TO SAVE
5146 035307 201 00 0 00 035307 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5147 035310 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5148 035311 201 10 0 00 000012 MOVEI 10,^D10 ;TIMES TO DO THIS TEST
5149 035312 202 10 0 00 040505 MOVEM 10,COUNTX# ;STORE IT
5150 035313 200 10 0 00 040323 MOVE 10,[JSR ..0140] ;INTERRUPT TRAP INSTRUCTION
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 38-1
DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT OUT OF INDIRECT LOOP SEQ 0124
5151 035314 202 10 0 00 000044 MOVEM 10,44 ;STORE FOR INTERRUPT REQUEST
5152 CLRBT1^
5153 035315 700 04 0 00 261600 CLRAPR
5154 035316 700 14 0 00 031577 CLRPI^
5155 035317 7 004 20 0 00 002377 CONO PI,2377 ;TURN ON PI AND CHANNELS
5156 035320 7 000 20 0 00 110102 CONO APR,LEPSFT!LSPSFT!2 ;ENABLE AND SET ERRORS,ENABLE CH 2
5157 035321 254 00 1 00 035321 JRST @. ;LOOP
5158 035322 254 04 0 00 035323 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP)
5159 035323 000000 000000 ..0140: 0
5160 TGET^
5161 035324 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5162 035325 302 00 0 00 035307 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5163 STOP2^^
5164 035326 254 04 0 00 035327 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5165 035327 254 00 0 00 035330 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5166 035330 200 01 0 00 035323 MOVE 1,..0140 ;GET STORED PC
5167 035331 405 01 0 00 777777 ANDI 1,-1 ;MASK PC BITS
5168 035332 302 01 0 00 035321 CAIE 1,..0140-2 ;WAS CORRECT PC STORED?
5169 STOP^
5170 035333 254 04 0 00 035334 HALT .+1 ;INSTRUCTION FAILED REPLACE
5171 035334 254 00 0 00 035335 JRST .+1 ;WITH JRST BACK^
5172 035335 372 00 0 00 040505 SOSE COUNTX ;LOOP TEST
5173 035336 254 12 1 00 000001 JEN @1 ;DISMISS INTERRUPT
5174 CLRBTH^^
5175 035337 700 04 0 00 261600 CLRAPR
5176 035340 700 14 0 00 031577 CLRPI^
5177
5178 INDPI 46,3^
5179 ;GET OURSELVES INTO 46 TIGHT INDIRECT LOOP.
5180 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT.
5181 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND
5182 ;WE WILL RETURN TO THE "JRST @." INSTRUCTION.
5183
5184 TSET^
5185 035341 %X=. ;DEFINE %X TO SAVE
5186 035341 201 00 0 00 035341 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5187 035342 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5188 035343 201 10 0 00 000012 MOVEI 10,^D10 ;TIMES TO DO THIS TEST
5189 035344 202 10 0 00 040505 MOVEM 10,COUNTX# ;STORE IT
5190 035345 200 10 0 00 040324 MOVE 10,[JSR ..0141] ;INTERRUPT TRAP INSTRUCTION
5191 035346 202 10 0 00 000046 MOVEM 10,46 ;STORE FOR INTERRUPT REQUEST
5192 CLRBT1^
5193 035347 700 04 0 00 261600 CLRAPR
5194 035350 700 14 0 00 031577 CLRPI^
5195 035351 7 004 20 0 00 002377 CONO PI,2377 ;TURN ON PI AND CHANNELS
5196 035352 7 000 20 0 00 110103 CONO APR,LEPSFT!LSPSFT!3 ;ENABLE AND SET ERRORS,ENABLE CH 3
5197 035353 254 00 1 00 035353 JRST @. ;LOOP
5198 035354 254 04 0 00 035355 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP)
5199 035355 000000 000000 ..0141: 0
5200 TGET^
5201 035356 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5202 035357 302 00 0 00 035341 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5203 STOP2^^
5204 035360 254 04 0 00 035361 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5205 035361 254 00 0 00 035362 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 38-2
DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT OUT OF INDIRECT LOOP SEQ 0125
5206 035362 200 01 0 00 035355 MOVE 1,..0141 ;GET STORED PC
5207 035363 405 01 0 00 777777 ANDI 1,-1 ;MASK PC BITS
5208 035364 302 01 0 00 035353 CAIE 1,..0141-2 ;WAS CORRECT PC STORED?
5209 STOP^
5210 035365 254 04 0 00 035366 HALT .+1 ;INSTRUCTION FAILED REPLACE
5211 035366 254 00 0 00 035367 JRST .+1 ;WITH JRST BACK^
5212 035367 372 00 0 00 040505 SOSE COUNTX ;LOOP TEST
5213 035370 254 12 1 00 000001 JEN @1 ;DISMISS INTERRUPT
5214 CLRBTH^^
5215 035371 700 04 0 00 261600 CLRAPR
5216 035372 700 14 0 00 031577 CLRPI^
5217
5218 INDPI 50,4^
5219 ;GET OURSELVES INTO 50 TIGHT INDIRECT LOOP.
5220 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT.
5221 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND
5222 ;WE WILL RETURN TO THE "JRST @." INSTRUCTION.
5223
5224 TSET^
5225 035373 %X=. ;DEFINE %X TO SAVE
5226 035373 201 00 0 00 035373 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5227 035374 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5228 035375 201 10 0 00 000012 MOVEI 10,^D10 ;TIMES TO DO THIS TEST
5229 035376 202 10 0 00 040505 MOVEM 10,COUNTX# ;STORE IT
5230 035377 200 10 0 00 040325 MOVE 10,[JSR ..0142] ;INTERRUPT TRAP INSTRUCTION
5231 035400 202 10 0 00 000050 MOVEM 10,50 ;STORE FOR INTERRUPT REQUEST
5232 CLRBT1^
5233 035401 700 04 0 00 261600 CLRAPR
5234 035402 700 14 0 00 031577 CLRPI^
5235 035403 7 004 20 0 00 002377 CONO PI,2377 ;TURN ON PI AND CHANNELS
5236 035404 7 000 20 0 00 110104 CONO APR,LEPSFT!LSPSFT!4 ;ENABLE AND SET ERRORS,ENABLE CH 4
5237 035405 254 00 1 00 035405 JRST @. ;LOOP
5238 035406 254 04 0 00 035407 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP)
5239 035407 000000 000000 ..0142: 0
5240 TGET^
5241 035410 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5242 035411 302 00 0 00 035373 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5243 STOP2^^
5244 035412 254 04 0 00 035413 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5245 035413 254 00 0 00 035414 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5246 035414 200 01 0 00 035407 MOVE 1,..0142 ;GET STORED PC
5247 035415 405 01 0 00 777777 ANDI 1,-1 ;MASK PC BITS
5248 035416 302 01 0 00 035405 CAIE 1,..0142-2 ;WAS CORRECT PC STORED?
5249 STOP^
5250 035417 254 04 0 00 035420 HALT .+1 ;INSTRUCTION FAILED REPLACE
5251 035420 254 00 0 00 035421 JRST .+1 ;WITH JRST BACK^
5252 035421 372 00 0 00 040505 SOSE COUNTX ;LOOP TEST
5253 035422 254 12 1 00 000001 JEN @1 ;DISMISS INTERRUPT
5254 CLRBTH^^
5255 035423 700 04 0 00 261600 CLRAPR
5256 035424 700 14 0 00 031577 CLRPI^
5257
5258 INDPI 52,5^
5259 ;GET OURSELVES INTO 52 TIGHT INDIRECT LOOP.
5260 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT.
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 38-3
DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT OUT OF INDIRECT LOOP SEQ 0126
5261 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND
5262 ;WE WILL RETURN TO THE "JRST @." INSTRUCTION.
5263
5264 TSET^
5265 035425 %X=. ;DEFINE %X TO SAVE
5266 035425 201 00 0 00 035425 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5267 035426 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5268 035427 201 10 0 00 000012 MOVEI 10,^D10 ;TIMES TO DO THIS TEST
5269 035430 202 10 0 00 040505 MOVEM 10,COUNTX# ;STORE IT
5270 035431 200 10 0 00 040326 MOVE 10,[JSR ..0143] ;INTERRUPT TRAP INSTRUCTION
5271 035432 202 10 0 00 000052 MOVEM 10,52 ;STORE FOR INTERRUPT REQUEST
5272 CLRBT1^
5273 035433 700 04 0 00 261600 CLRAPR
5274 035434 700 14 0 00 031577 CLRPI^
5275 035435 7 004 20 0 00 002377 CONO PI,2377 ;TURN ON PI AND CHANNELS
5276 035436 7 000 20 0 00 110105 CONO APR,LEPSFT!LSPSFT!5 ;ENABLE AND SET ERRORS,ENABLE CH 5
5277 035437 254 00 1 00 035437 JRST @. ;LOOP
5278 035440 254 04 0 00 035441 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP)
5279 035441 000000 000000 ..0143: 0
5280 TGET^
5281 035442 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5282 035443 302 00 0 00 035425 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5283 STOP2^^
5284 035444 254 04 0 00 035445 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5285 035445 254 00 0 00 035446 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5286 035446 200 01 0 00 035441 MOVE 1,..0143 ;GET STORED PC
5287 035447 405 01 0 00 777777 ANDI 1,-1 ;MASK PC BITS
5288 035450 302 01 0 00 035437 CAIE 1,..0143-2 ;WAS CORRECT PC STORED?
5289 STOP^
5290 035451 254 04 0 00 035452 HALT .+1 ;INSTRUCTION FAILED REPLACE
5291 035452 254 00 0 00 035453 JRST .+1 ;WITH JRST BACK^
5292 035453 372 00 0 00 040505 SOSE COUNTX ;LOOP TEST
5293 035454 254 12 1 00 000001 JEN @1 ;DISMISS INTERRUPT
5294 CLRBTH^^
5295 035455 700 04 0 00 261600 CLRAPR
5296 035456 700 14 0 00 031577 CLRPI^
5297
5298 INDPI 54,6^
5299 ;GET OURSELVES INTO 54 TIGHT INDIRECT LOOP.
5300 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT.
5301 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND
5302 ;WE WILL RETURN TO THE "JRST @." INSTRUCTION.
5303
5304 TSET^
5305 035457 %X=. ;DEFINE %X TO SAVE
5306 035457 201 00 0 00 035457 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5307 035460 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5308 035461 201 10 0 00 000012 MOVEI 10,^D10 ;TIMES TO DO THIS TEST
5309 035462 202 10 0 00 040505 MOVEM 10,COUNTX# ;STORE IT
5310 035463 200 10 0 00 040327 MOVE 10,[JSR ..0144] ;INTERRUPT TRAP INSTRUCTION
5311 035464 202 10 0 00 000054 MOVEM 10,54 ;STORE FOR INTERRUPT REQUEST
5312 CLRBT1^
5313 035465 700 04 0 00 261600 CLRAPR
5314 035466 700 14 0 00 031577 CLRPI^
5315 035467 7 004 20 0 00 002377 CONO PI,2377 ;TURN ON PI AND CHANNELS
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 38-4
DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT OUT OF INDIRECT LOOP SEQ 0127
5316 035470 7 000 20 0 00 110106 CONO APR,LEPSFT!LSPSFT!6 ;ENABLE AND SET ERRORS,ENABLE CH 6
5317 035471 254 00 1 00 035471 JRST @. ;LOOP
5318 035472 254 04 0 00 035473 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP)
5319 035473 000000 000000 ..0144: 0
5320 TGET^
5321 035474 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5322 035475 302 00 0 00 035457 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5323 STOP2^^
5324 035476 254 04 0 00 035477 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5325 035477 254 00 0 00 035500 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5326 035500 200 01 0 00 035473 MOVE 1,..0144 ;GET STORED PC
5327 035501 405 01 0 00 777777 ANDI 1,-1 ;MASK PC BITS
5328 035502 302 01 0 00 035471 CAIE 1,..0144-2 ;WAS CORRECT PC STORED?
5329 STOP^
5330 035503 254 04 0 00 035504 HALT .+1 ;INSTRUCTION FAILED REPLACE
5331 035504 254 00 0 00 035505 JRST .+1 ;WITH JRST BACK^
5332 035505 372 00 0 00 040505 SOSE COUNTX ;LOOP TEST
5333 035506 254 12 1 00 000001 JEN @1 ;DISMISS INTERRUPT
5334 CLRBTH^^
5335 035507 700 04 0 00 261600 CLRAPR
5336 035510 700 14 0 00 031577 CLRPI^
5337
5338 INDPI 56,7^
5339 ;GET OURSELVES INTO 56 TIGHT INDIRECT LOOP.
5340 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT.
5341 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND
5342 ;WE WILL RETURN TO THE "JRST @." INSTRUCTION.
5343
5344 TSET^
5345 035511 %X=. ;DEFINE %X TO SAVE
5346 035511 201 00 0 00 035511 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5347 035512 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5348 035513 201 10 0 00 000012 MOVEI 10,^D10 ;TIMES TO DO THIS TEST
5349 035514 202 10 0 00 040505 MOVEM 10,COUNTX# ;STORE IT
5350 035515 200 10 0 00 040330 MOVE 10,[JSR ..0145] ;INTERRUPT TRAP INSTRUCTION
5351 035516 202 10 0 00 000056 MOVEM 10,56 ;STORE FOR INTERRUPT REQUEST
5352 CLRBT1^
5353 035517 700 04 0 00 261600 CLRAPR
5354 035520 700 14 0 00 031577 CLRPI^
5355 035521 7 004 20 0 00 002377 CONO PI,2377 ;TURN ON PI AND CHANNELS
5356 035522 7 000 20 0 00 110107 CONO APR,LEPSFT!LSPSFT!7 ;ENABLE AND SET ERRORS,ENABLE CH 7
5357 035523 254 00 1 00 035523 JRST @. ;LOOP
5358 035524 254 04 0 00 035525 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP)
5359 035525 000000 000000 ..0145: 0
5360 TGET^
5361 035526 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5362 035527 302 00 0 00 035511 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5363 STOP2^^
5364 035530 254 04 0 00 035531 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5365 035531 254 00 0 00 035532 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5366 035532 200 01 0 00 035525 MOVE 1,..0145 ;GET STORED PC
5367 035533 405 01 0 00 777777 ANDI 1,-1 ;MASK PC BITS
5368 035534 302 01 0 00 035523 CAIE 1,..0145-2 ;WAS CORRECT PC STORED?
5369 STOP^
5370 035535 254 04 0 00 035536 HALT .+1 ;INSTRUCTION FAILED REPLACE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 38-5
DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT OUT OF INDIRECT LOOP SEQ 0128
5371 035536 254 00 0 00 035537 JRST .+1 ;WITH JRST BACK^
5372 035537 372 00 0 00 040505 SOSE COUNTX ;LOOP TEST
5373 035540 254 12 1 00 000001 JEN @1 ;DISMISS INTERRUPT
5374 CLRBTH^^
5375 035541 700 04 0 00 261600 CLRAPR
5376 035542 700 14 0 00 031577 CLRPI^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0129
5377 SUBTTL LOCAL UUO TESTING (LUUO)
5378
5379 ;TEST UUO'S IN RANGE 1-37
5380 ;TEST TO SEE THAT UUO TRAPS CORRECTLY AND THAT PC
5381 ;OF UUO IS CORRECT AND THAT UUO STORED IN 40 IS ALSO CORRECT
5382 ;MONITOR UUO'S ARE NOT TESTED.
5383
5384 035543 UUO01: XUUO 1B8,UUO02^
5385 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5386 ;ARE CORRECT.
5387
5388 001000 000000 MLUUO==1B8 ;THE UUO TO BE EXECUTED
5389 TSET^
5390 035543 %X=. ;DEFINE %X TO SAVE
5391 035543 201 00 0 00 035543 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5392 035544 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5393 035545 200 00 0 00 040331 ..0146: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5394 035546 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5395 035547 001000 000000 1B8 ;EXECUTE A UUO
5396 035550 254 04 0 00 035551 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5397 035551 201 02 0 00 035550 MOVEI 2,.-1 ;GET UUO PC
5398 035552 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5399 035553 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5400 035554 254 04 0 00 035555 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5401 035555 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5402 035556 312 00 0 00 040332 CAME 0,[1B8!0] ;CORRECT UUO STORED IN 40?
5403 035557 334 00 0 00 000000 SKIPA ;NO
5404 035560 254 00 0 00 035567 JRST UUO02 ;TESTS OK !
5405 STOP1^
5406 035561 254 04 0 00 035562 HALT .+1 ;UUO FAILED TO STORE MA BITS
5407 035562 254 00 0 00 035563 JRST .+1 ;INTO RIGHT HALF OF 40^
5408 TGET^^
5409 035563 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5410 035564 302 00 0 00 035543 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5411 STOP2^^
5412 035565 254 04 0 00 035566 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5413 035566 254 00 0 00 035567 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5414 035567 UUO02: XUUO 2B8,UUO03^
5415 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5416 ;ARE CORRECT.
5417
5418 002000 000000 MLUUO==2B8 ;THE UUO TO BE EXECUTED
5419 TSET^
5420 035567 %X=. ;DEFINE %X TO SAVE
5421 035567 201 00 0 00 035567 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5422 035570 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5423 035571 200 00 0 00 040333 ..0147: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5424 035572 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5425 035573 002000 000000 2B8 ;EXECUTE A UUO
5426 035574 254 04 0 00 035575 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5427 035575 201 02 0 00 035574 MOVEI 2,.-1 ;GET UUO PC
5428 035576 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5429 035577 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5430 035600 254 04 0 00 035601 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5431 035601 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-1
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0130
5432 035602 312 00 0 00 040334 CAME 0,[2B8!0] ;CORRECT UUO STORED IN 40?
5433 035603 334 00 0 00 000000 SKIPA ;NO
5434 035604 254 00 0 00 035613 JRST UUO03 ;TESTS OK !
5435 STOP1^
5436 035605 254 04 0 00 035606 HALT .+1 ;UUO FAILED TO STORE MA BITS
5437 035606 254 00 0 00 035607 JRST .+1 ;INTO RIGHT HALF OF 40^
5438 TGET^^
5439 035607 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5440 035610 302 00 0 00 035567 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5441 STOP2^^
5442 035611 254 04 0 00 035612 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5443 035612 254 00 0 00 035613 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5444 035613 UUO03: XUUO 3B8,UUO04^
5445 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5446 ;ARE CORRECT.
5447
5448 003000 000000 MLUUO==3B8 ;THE UUO TO BE EXECUTED
5449 TSET^
5450 035613 %X=. ;DEFINE %X TO SAVE
5451 035613 201 00 0 00 035613 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5452 035614 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5453 035615 200 00 0 00 040335 ..0150: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5454 035616 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5455 035617 003000 000000 3B8 ;EXECUTE A UUO
5456 035620 254 04 0 00 035621 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5457 035621 201 02 0 00 035620 MOVEI 2,.-1 ;GET UUO PC
5458 035622 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5459 035623 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5460 035624 254 04 0 00 035625 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5461 035625 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5462 035626 312 00 0 00 040336 CAME 0,[3B8!0] ;CORRECT UUO STORED IN 40?
5463 035627 334 00 0 00 000000 SKIPA ;NO
5464 035630 254 00 0 00 035637 JRST UUO04 ;TESTS OK !
5465 STOP1^
5466 035631 254 04 0 00 035632 HALT .+1 ;UUO FAILED TO STORE MA BITS
5467 035632 254 00 0 00 035633 JRST .+1 ;INTO RIGHT HALF OF 40^
5468 TGET^^
5469 035633 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5470 035634 302 00 0 00 035613 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5471 STOP2^^
5472 035635 254 04 0 00 035636 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5473 035636 254 00 0 00 035637 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5474 035637 UUO04: XUUO 4B8,UUO05^
5475 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5476 ;ARE CORRECT.
5477
5478 004000 000000 MLUUO==4B8 ;THE UUO TO BE EXECUTED
5479 TSET^
5480 035637 %X=. ;DEFINE %X TO SAVE
5481 035637 201 00 0 00 035637 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5482 035640 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5483 035641 200 00 0 00 040337 ..0151: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5484 035642 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5485 035643 004000 000000 4B8 ;EXECUTE A UUO
5486 035644 254 04 0 00 035645 HALT .+1 ;UUO DID NOT TRAP TO FORTY
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-2
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0131
5487 035645 201 02 0 00 035644 MOVEI 2,.-1 ;GET UUO PC
5488 035646 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5489 035647 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5490 035650 254 04 0 00 035651 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5491 035651 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5492 035652 312 00 0 00 040340 CAME 0,[4B8!0] ;CORRECT UUO STORED IN 40?
5493 035653 334 00 0 00 000000 SKIPA ;NO
5494 035654 254 00 0 00 035663 JRST UUO05 ;TESTS OK !
5495 STOP1^
5496 035655 254 04 0 00 035656 HALT .+1 ;UUO FAILED TO STORE MA BITS
5497 035656 254 00 0 00 035657 JRST .+1 ;INTO RIGHT HALF OF 40^
5498 TGET^^
5499 035657 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5500 035660 302 00 0 00 035637 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5501 STOP2^^
5502 035661 254 04 0 00 035662 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5503 035662 254 00 0 00 035663 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5504 035663 UUO05: XUUO 5B8,UUO06^
5505 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5506 ;ARE CORRECT.
5507
5508 005000 000000 MLUUO==5B8 ;THE UUO TO BE EXECUTED
5509 TSET^
5510 035663 %X=. ;DEFINE %X TO SAVE
5511 035663 201 00 0 00 035663 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5512 035664 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5513 035665 200 00 0 00 040341 ..0152: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5514 035666 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5515 035667 005000 000000 5B8 ;EXECUTE A UUO
5516 035670 254 04 0 00 035671 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5517 035671 201 02 0 00 035670 MOVEI 2,.-1 ;GET UUO PC
5518 035672 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5519 035673 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5520 035674 254 04 0 00 035675 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5521 035675 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5522 035676 312 00 0 00 040342 CAME 0,[5B8!0] ;CORRECT UUO STORED IN 40?
5523 035677 334 00 0 00 000000 SKIPA ;NO
5524 035700 254 00 0 00 035707 JRST UUO06 ;TESTS OK !
5525 STOP1^
5526 035701 254 04 0 00 035702 HALT .+1 ;UUO FAILED TO STORE MA BITS
5527 035702 254 00 0 00 035703 JRST .+1 ;INTO RIGHT HALF OF 40^
5528 TGET^^
5529 035703 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5530 035704 302 00 0 00 035663 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5531 STOP2^^
5532 035705 254 04 0 00 035706 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5533 035706 254 00 0 00 035707 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5534 035707 UUO06: XUUO 6B8,UUO07^
5535 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5536 ;ARE CORRECT.
5537
5538 006000 000000 MLUUO==6B8 ;THE UUO TO BE EXECUTED
5539 TSET^
5540 035707 %X=. ;DEFINE %X TO SAVE
5541 035707 201 00 0 00 035707 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-3
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0132
5542 035710 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5543 035711 200 00 0 00 040343 ..0153: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5544 035712 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5545 035713 006000 000000 6B8 ;EXECUTE A UUO
5546 035714 254 04 0 00 035715 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5547 035715 201 02 0 00 035714 MOVEI 2,.-1 ;GET UUO PC
5548 035716 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5549 035717 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5550 035720 254 04 0 00 035721 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5551 035721 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5552 035722 312 00 0 00 040344 CAME 0,[6B8!0] ;CORRECT UUO STORED IN 40?
5553 035723 334 00 0 00 000000 SKIPA ;NO
5554 035724 254 00 0 00 035733 JRST UUO07 ;TESTS OK !
5555 STOP1^
5556 035725 254 04 0 00 035726 HALT .+1 ;UUO FAILED TO STORE MA BITS
5557 035726 254 00 0 00 035727 JRST .+1 ;INTO RIGHT HALF OF 40^
5558 TGET^^
5559 035727 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5560 035730 302 00 0 00 035707 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5561 STOP2^^
5562 035731 254 04 0 00 035732 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5563 035732 254 00 0 00 035733 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5564 035733 UUO07: XUUO 7B8,UUO10^
5565 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5566 ;ARE CORRECT.
5567
5568 007000 000000 MLUUO==7B8 ;THE UUO TO BE EXECUTED
5569 TSET^
5570 035733 %X=. ;DEFINE %X TO SAVE
5571 035733 201 00 0 00 035733 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5572 035734 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5573 035735 200 00 0 00 040345 ..0154: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5574 035736 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5575 035737 007000 000000 7B8 ;EXECUTE A UUO
5576 035740 254 04 0 00 035741 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5577 035741 201 02 0 00 035740 MOVEI 2,.-1 ;GET UUO PC
5578 035742 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5579 035743 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5580 035744 254 04 0 00 035745 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5581 035745 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5582 035746 312 00 0 00 040346 CAME 0,[7B8!0] ;CORRECT UUO STORED IN 40?
5583 035747 334 00 0 00 000000 SKIPA ;NO
5584 035750 254 00 0 00 035757 JRST UUO10 ;TESTS OK !
5585 STOP1^
5586 035751 254 04 0 00 035752 HALT .+1 ;UUO FAILED TO STORE MA BITS
5587 035752 254 00 0 00 035753 JRST .+1 ;INTO RIGHT HALF OF 40^
5588 TGET^^
5589 035753 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5590 035754 302 00 0 00 035733 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5591 STOP2^^
5592 035755 254 04 0 00 035756 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5593 035756 254 00 0 00 035757 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5594 035757 UUO10: XUUO 10B8,UUO11^
5595 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5596 ;ARE CORRECT.
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-4
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0133
5597
5598 010000 000000 MLUUO==10B8 ;THE UUO TO BE EXECUTED
5599 TSET^
5600 035757 %X=. ;DEFINE %X TO SAVE
5601 035757 201 00 0 00 035757 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5602 035760 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5603 035761 200 00 0 00 040347 ..0155: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5604 035762 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5605 035763 010000 000000 10B8 ;EXECUTE A UUO
5606 035764 254 04 0 00 035765 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5607 035765 201 02 0 00 035764 MOVEI 2,.-1 ;GET UUO PC
5608 035766 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5609 035767 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5610 035770 254 04 0 00 035771 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5611 035771 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5612 035772 312 00 0 00 040350 CAME 0,[10B8!0] ;CORRECT UUO STORED IN 40?
5613 035773 334 00 0 00 000000 SKIPA ;NO
5614 035774 254 00 0 00 036003 JRST UUO11 ;TESTS OK !
5615 STOP1^
5616 035775 254 04 0 00 035776 HALT .+1 ;UUO FAILED TO STORE MA BITS
5617 035776 254 00 0 00 035777 JRST .+1 ;INTO RIGHT HALF OF 40^
5618 TGET^^
5619 035777 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5620 036000 302 00 0 00 035757 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5621 STOP2^^
5622 036001 254 04 0 00 036002 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5623 036002 254 00 0 00 036003 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5624 036003 UUO11: XUUO 11B8,UUO12^
5625 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5626 ;ARE CORRECT.
5627
5628 011000 000000 MLUUO==11B8 ;THE UUO TO BE EXECUTED
5629 TSET^
5630 036003 %X=. ;DEFINE %X TO SAVE
5631 036003 201 00 0 00 036003 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5632 036004 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5633 036005 200 00 0 00 040351 ..0156: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5634 036006 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5635 036007 011000 000000 11B8 ;EXECUTE A UUO
5636 036010 254 04 0 00 036011 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5637 036011 201 02 0 00 036010 MOVEI 2,.-1 ;GET UUO PC
5638 036012 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5639 036013 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5640 036014 254 04 0 00 036015 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5641 036015 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5642 036016 312 00 0 00 040352 CAME 0,[11B8!0] ;CORRECT UUO STORED IN 40?
5643 036017 334 00 0 00 000000 SKIPA ;NO
5644 036020 254 00 0 00 036027 JRST UUO12 ;TESTS OK !
5645 STOP1^
5646 036021 254 04 0 00 036022 HALT .+1 ;UUO FAILED TO STORE MA BITS
5647 036022 254 00 0 00 036023 JRST .+1 ;INTO RIGHT HALF OF 40^
5648 TGET^^
5649 036023 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5650 036024 302 00 0 00 036003 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5651 STOP2^^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-5
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0134
5652 036025 254 04 0 00 036026 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5653 036026 254 00 0 00 036027 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5654 036027 UUO12: XUUO 12B8,UUO13^
5655 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5656 ;ARE CORRECT.
5657
5658 012000 000000 MLUUO==12B8 ;THE UUO TO BE EXECUTED
5659 TSET^
5660 036027 %X=. ;DEFINE %X TO SAVE
5661 036027 201 00 0 00 036027 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5662 036030 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5663 036031 200 00 0 00 040353 ..0157: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5664 036032 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5665 036033 012000 000000 12B8 ;EXECUTE A UUO
5666 036034 254 04 0 00 036035 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5667 036035 201 02 0 00 036034 MOVEI 2,.-1 ;GET UUO PC
5668 036036 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5669 036037 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5670 036040 254 04 0 00 036041 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5671 036041 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5672 036042 312 00 0 00 040354 CAME 0,[12B8!0] ;CORRECT UUO STORED IN 40?
5673 036043 334 00 0 00 000000 SKIPA ;NO
5674 036044 254 00 0 00 036053 JRST UUO13 ;TESTS OK !
5675 STOP1^
5676 036045 254 04 0 00 036046 HALT .+1 ;UUO FAILED TO STORE MA BITS
5677 036046 254 00 0 00 036047 JRST .+1 ;INTO RIGHT HALF OF 40^
5678 TGET^^
5679 036047 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5680 036050 302 00 0 00 036027 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5681 STOP2^^
5682 036051 254 04 0 00 036052 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5683 036052 254 00 0 00 036053 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5684 036053 UUO13: XUUO 13B8,UUO14^
5685 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5686 ;ARE CORRECT.
5687
5688 013000 000000 MLUUO==13B8 ;THE UUO TO BE EXECUTED
5689 TSET^
5690 036053 %X=. ;DEFINE %X TO SAVE
5691 036053 201 00 0 00 036053 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5692 036054 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5693 036055 200 00 0 00 040355 ..0160: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5694 036056 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5695 036057 013000 000000 13B8 ;EXECUTE A UUO
5696 036060 254 04 0 00 036061 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5697 036061 201 02 0 00 036060 MOVEI 2,.-1 ;GET UUO PC
5698 036062 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5699 036063 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5700 036064 254 04 0 00 036065 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5701 036065 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5702 036066 312 00 0 00 040356 CAME 0,[13B8!0] ;CORRECT UUO STORED IN 40?
5703 036067 334 00 0 00 000000 SKIPA ;NO
5704 036070 254 00 0 00 036077 JRST UUO14 ;TESTS OK !
5705 STOP1^
5706 036071 254 04 0 00 036072 HALT .+1 ;UUO FAILED TO STORE MA BITS
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-6
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0135
5707 036072 254 00 0 00 036073 JRST .+1 ;INTO RIGHT HALF OF 40^
5708 TGET^^
5709 036073 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5710 036074 302 00 0 00 036053 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5711 STOP2^^
5712 036075 254 04 0 00 036076 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5713 036076 254 00 0 00 036077 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5714 036077 UUO14: XUUO 14B8,UUO15^
5715 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5716 ;ARE CORRECT.
5717
5718 014000 000000 MLUUO==14B8 ;THE UUO TO BE EXECUTED
5719 TSET^
5720 036077 %X=. ;DEFINE %X TO SAVE
5721 036077 201 00 0 00 036077 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5722 036100 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5723 036101 200 00 0 00 040357 ..0161: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5724 036102 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5725 036103 014000 000000 14B8 ;EXECUTE A UUO
5726 036104 254 04 0 00 036105 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5727 036105 201 02 0 00 036104 MOVEI 2,.-1 ;GET UUO PC
5728 036106 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5729 036107 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5730 036110 254 04 0 00 036111 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5731 036111 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5732 036112 312 00 0 00 040360 CAME 0,[14B8!0] ;CORRECT UUO STORED IN 40?
5733 036113 334 00 0 00 000000 SKIPA ;NO
5734 036114 254 00 0 00 036123 JRST UUO15 ;TESTS OK !
5735 STOP1^
5736 036115 254 04 0 00 036116 HALT .+1 ;UUO FAILED TO STORE MA BITS
5737 036116 254 00 0 00 036117 JRST .+1 ;INTO RIGHT HALF OF 40^
5738 TGET^^
5739 036117 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5740 036120 302 00 0 00 036077 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5741 STOP2^^
5742 036121 254 04 0 00 036122 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5743 036122 254 00 0 00 036123 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5744 036123 UUO15: XUUO 15B8,UUO16^
5745 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5746 ;ARE CORRECT.
5747
5748 015000 000000 MLUUO==15B8 ;THE UUO TO BE EXECUTED
5749 TSET^
5750 036123 %X=. ;DEFINE %X TO SAVE
5751 036123 201 00 0 00 036123 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5752 036124 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5753 036125 200 00 0 00 040361 ..0162: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5754 036126 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5755 036127 015000 000000 15B8 ;EXECUTE A UUO
5756 036130 254 04 0 00 036131 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5757 036131 201 02 0 00 036130 MOVEI 2,.-1 ;GET UUO PC
5758 036132 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5759 036133 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5760 036134 254 04 0 00 036135 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5761 036135 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-7
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0136
5762 036136 312 00 0 00 040362 CAME 0,[15B8!0] ;CORRECT UUO STORED IN 40?
5763 036137 334 00 0 00 000000 SKIPA ;NO
5764 036140 254 00 0 00 036147 JRST UUO16 ;TESTS OK !
5765 STOP1^
5766 036141 254 04 0 00 036142 HALT .+1 ;UUO FAILED TO STORE MA BITS
5767 036142 254 00 0 00 036143 JRST .+1 ;INTO RIGHT HALF OF 40^
5768 TGET^^
5769 036143 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5770 036144 302 00 0 00 036123 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5771 STOP2^^
5772 036145 254 04 0 00 036146 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5773 036146 254 00 0 00 036147 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5774 036147 UUO16: XUUO 16B8,UUO17^
5775 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5776 ;ARE CORRECT.
5777
5778 016000 000000 MLUUO==16B8 ;THE UUO TO BE EXECUTED
5779 TSET^
5780 036147 %X=. ;DEFINE %X TO SAVE
5781 036147 201 00 0 00 036147 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5782 036150 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5783 036151 200 00 0 00 040363 ..0163: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5784 036152 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5785 036153 016000 000000 16B8 ;EXECUTE A UUO
5786 036154 254 04 0 00 036155 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5787 036155 201 02 0 00 036154 MOVEI 2,.-1 ;GET UUO PC
5788 036156 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5789 036157 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5790 036160 254 04 0 00 036161 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5791 036161 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5792 036162 312 00 0 00 040364 CAME 0,[16B8!0] ;CORRECT UUO STORED IN 40?
5793 036163 334 00 0 00 000000 SKIPA ;NO
5794 036164 254 00 0 00 036173 JRST UUO17 ;TESTS OK !
5795 STOP1^
5796 036165 254 04 0 00 036166 HALT .+1 ;UUO FAILED TO STORE MA BITS
5797 036166 254 00 0 00 036167 JRST .+1 ;INTO RIGHT HALF OF 40^
5798 TGET^^
5799 036167 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5800 036170 302 00 0 00 036147 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5801 STOP2^^
5802 036171 254 04 0 00 036172 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5803 036172 254 00 0 00 036173 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5804 036173 UUO17: XUUO 17B8,UUO20^
5805 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5806 ;ARE CORRECT.
5807
5808 017000 000000 MLUUO==17B8 ;THE UUO TO BE EXECUTED
5809 TSET^
5810 036173 %X=. ;DEFINE %X TO SAVE
5811 036173 201 00 0 00 036173 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5812 036174 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5813 036175 200 00 0 00 040365 ..0164: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5814 036176 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5815 036177 017000 000000 17B8 ;EXECUTE A UUO
5816 036200 254 04 0 00 036201 HALT .+1 ;UUO DID NOT TRAP TO FORTY
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-8
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0137
5817 036201 201 02 0 00 036200 MOVEI 2,.-1 ;GET UUO PC
5818 036202 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5819 036203 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5820 036204 254 04 0 00 036205 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5821 036205 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5822 036206 312 00 0 00 040366 CAME 0,[17B8!0] ;CORRECT UUO STORED IN 40?
5823 036207 334 00 0 00 000000 SKIPA ;NO
5824 036210 254 00 0 00 036217 JRST UUO20 ;TESTS OK !
5825 STOP1^
5826 036211 254 04 0 00 036212 HALT .+1 ;UUO FAILED TO STORE MA BITS
5827 036212 254 00 0 00 036213 JRST .+1 ;INTO RIGHT HALF OF 40^
5828 TGET^^
5829 036213 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5830 036214 302 00 0 00 036173 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5831 STOP2^^
5832 036215 254 04 0 00 036216 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5833 036216 254 00 0 00 036217 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5834 036217 UUO20: XUUO 20B8,UUO21^
5835 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5836 ;ARE CORRECT.
5837
5838 020000 000000 MLUUO==20B8 ;THE UUO TO BE EXECUTED
5839 TSET^
5840 036217 %X=. ;DEFINE %X TO SAVE
5841 036217 201 00 0 00 036217 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5842 036220 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5843 036221 200 00 0 00 040367 ..0165: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5844 036222 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5845 036223 020000 000000 20B8 ;EXECUTE A UUO
5846 036224 254 04 0 00 036225 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5847 036225 201 02 0 00 036224 MOVEI 2,.-1 ;GET UUO PC
5848 036226 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5849 036227 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5850 036230 254 04 0 00 036231 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5851 036231 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5852 036232 312 00 0 00 040370 CAME 0,[20B8!0] ;CORRECT UUO STORED IN 40?
5853 036233 334 00 0 00 000000 SKIPA ;NO
5854 036234 254 00 0 00 036243 JRST UUO21 ;TESTS OK !
5855 STOP1^
5856 036235 254 04 0 00 036236 HALT .+1 ;UUO FAILED TO STORE MA BITS
5857 036236 254 00 0 00 036237 JRST .+1 ;INTO RIGHT HALF OF 40^
5858 TGET^^
5859 036237 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5860 036240 302 00 0 00 036217 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5861 STOP2^^
5862 036241 254 04 0 00 036242 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5863 036242 254 00 0 00 036243 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5864 036243 UUO21: XUUO 21B8,UUO22^
5865 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5866 ;ARE CORRECT.
5867
5868 021000 000000 MLUUO==21B8 ;THE UUO TO BE EXECUTED
5869 TSET^
5870 036243 %X=. ;DEFINE %X TO SAVE
5871 036243 201 00 0 00 036243 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-9
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0138
5872 036244 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5873 036245 200 00 0 00 040371 ..0166: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5874 036246 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5875 036247 021000 000000 21B8 ;EXECUTE A UUO
5876 036250 254 04 0 00 036251 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5877 036251 201 02 0 00 036250 MOVEI 2,.-1 ;GET UUO PC
5878 036252 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5879 036253 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5880 036254 254 04 0 00 036255 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5881 036255 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5882 036256 312 00 0 00 040372 CAME 0,[21B8!0] ;CORRECT UUO STORED IN 40?
5883 036257 334 00 0 00 000000 SKIPA ;NO
5884 036260 254 00 0 00 036267 JRST UUO22 ;TESTS OK !
5885 STOP1^
5886 036261 254 04 0 00 036262 HALT .+1 ;UUO FAILED TO STORE MA BITS
5887 036262 254 00 0 00 036263 JRST .+1 ;INTO RIGHT HALF OF 40^
5888 TGET^^
5889 036263 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5890 036264 302 00 0 00 036243 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5891 STOP2^^
5892 036265 254 04 0 00 036266 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5893 036266 254 00 0 00 036267 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5894 036267 UUO22: XUUO 22B8,UUO23^
5895 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5896 ;ARE CORRECT.
5897
5898 022000 000000 MLUUO==22B8 ;THE UUO TO BE EXECUTED
5899 TSET^
5900 036267 %X=. ;DEFINE %X TO SAVE
5901 036267 201 00 0 00 036267 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5902 036270 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5903 036271 200 00 0 00 040373 ..0167: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5904 036272 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5905 036273 022000 000000 22B8 ;EXECUTE A UUO
5906 036274 254 04 0 00 036275 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5907 036275 201 02 0 00 036274 MOVEI 2,.-1 ;GET UUO PC
5908 036276 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5909 036277 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5910 036300 254 04 0 00 036301 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5911 036301 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5912 036302 312 00 0 00 040374 CAME 0,[22B8!0] ;CORRECT UUO STORED IN 40?
5913 036303 334 00 0 00 000000 SKIPA ;NO
5914 036304 254 00 0 00 036313 JRST UUO23 ;TESTS OK !
5915 STOP1^
5916 036305 254 04 0 00 036306 HALT .+1 ;UUO FAILED TO STORE MA BITS
5917 036306 254 00 0 00 036307 JRST .+1 ;INTO RIGHT HALF OF 40^
5918 TGET^^
5919 036307 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5920 036310 302 00 0 00 036267 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5921 STOP2^^
5922 036311 254 04 0 00 036312 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5923 036312 254 00 0 00 036313 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5924 036313 UUO23: XUUO 23B8,UUO24^
5925 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5926 ;ARE CORRECT.
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-10
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0139
5927
5928 023000 000000 MLUUO==23B8 ;THE UUO TO BE EXECUTED
5929 TSET^
5930 036313 %X=. ;DEFINE %X TO SAVE
5931 036313 201 00 0 00 036313 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5932 036314 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5933 036315 200 00 0 00 040375 ..0170: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5934 036316 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5935 036317 023000 000000 23B8 ;EXECUTE A UUO
5936 036320 254 04 0 00 036321 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5937 036321 201 02 0 00 036320 MOVEI 2,.-1 ;GET UUO PC
5938 036322 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5939 036323 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5940 036324 254 04 0 00 036325 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5941 036325 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5942 036326 312 00 0 00 040376 CAME 0,[23B8!0] ;CORRECT UUO STORED IN 40?
5943 036327 334 00 0 00 000000 SKIPA ;NO
5944 036330 254 00 0 00 036337 JRST UUO24 ;TESTS OK !
5945 STOP1^
5946 036331 254 04 0 00 036332 HALT .+1 ;UUO FAILED TO STORE MA BITS
5947 036332 254 00 0 00 036333 JRST .+1 ;INTO RIGHT HALF OF 40^
5948 TGET^^
5949 036333 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5950 036334 302 00 0 00 036313 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5951 STOP2^^
5952 036335 254 04 0 00 036336 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5953 036336 254 00 0 00 036337 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5954 036337 UUO24: XUUO 24B8,UUO25^
5955 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5956 ;ARE CORRECT.
5957
5958 024000 000000 MLUUO==24B8 ;THE UUO TO BE EXECUTED
5959 TSET^
5960 036337 %X=. ;DEFINE %X TO SAVE
5961 036337 201 00 0 00 036337 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5962 036340 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5963 036341 200 00 0 00 040377 ..0171: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5964 036342 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5965 036343 024000 000000 24B8 ;EXECUTE A UUO
5966 036344 254 04 0 00 036345 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5967 036345 201 02 0 00 036344 MOVEI 2,.-1 ;GET UUO PC
5968 036346 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5969 036347 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
5970 036350 254 04 0 00 036351 HALT .+1 ;PC OF UUO NOT = TO PC STORED
5971 036351 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
5972 036352 312 00 0 00 040400 CAME 0,[24B8!0] ;CORRECT UUO STORED IN 40?
5973 036353 334 00 0 00 000000 SKIPA ;NO
5974 036354 254 00 0 00 036363 JRST UUO25 ;TESTS OK !
5975 STOP1^
5976 036355 254 04 0 00 036356 HALT .+1 ;UUO FAILED TO STORE MA BITS
5977 036356 254 00 0 00 036357 JRST .+1 ;INTO RIGHT HALF OF 40^
5978 TGET^^
5979 036357 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
5980 036360 302 00 0 00 036337 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
5981 STOP2^^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-11
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0140
5982 036361 254 04 0 00 036362 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
5983 036362 254 00 0 00 036363 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
5984 036363 UUO25: XUUO 25B8,UUO26^
5985 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
5986 ;ARE CORRECT.
5987
5988 025000 000000 MLUUO==25B8 ;THE UUO TO BE EXECUTED
5989 TSET^
5990 036363 %X=. ;DEFINE %X TO SAVE
5991 036363 201 00 0 00 036363 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
5992 036364 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
5993 036365 200 00 0 00 040401 ..0172: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
5994 036366 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
5995 036367 025000 000000 25B8 ;EXECUTE A UUO
5996 036370 254 04 0 00 036371 HALT .+1 ;UUO DID NOT TRAP TO FORTY
5997 036371 201 02 0 00 036370 MOVEI 2,.-1 ;GET UUO PC
5998 036372 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
5999 036373 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
6000 036374 254 04 0 00 036375 HALT .+1 ;PC OF UUO NOT = TO PC STORED
6001 036375 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
6002 036376 312 00 0 00 040402 CAME 0,[25B8!0] ;CORRECT UUO STORED IN 40?
6003 036377 334 00 0 00 000000 SKIPA ;NO
6004 036400 254 00 0 00 036407 JRST UUO26 ;TESTS OK !
6005 STOP1^
6006 036401 254 04 0 00 036402 HALT .+1 ;UUO FAILED TO STORE MA BITS
6007 036402 254 00 0 00 036403 JRST .+1 ;INTO RIGHT HALF OF 40^
6008 TGET^^
6009 036403 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6010 036404 302 00 0 00 036363 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6011 STOP2^^
6012 036405 254 04 0 00 036406 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6013 036406 254 00 0 00 036407 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6014 036407 UUO26: XUUO 26B8,UUO27^
6015 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
6016 ;ARE CORRECT.
6017
6018 026000 000000 MLUUO==26B8 ;THE UUO TO BE EXECUTED
6019 TSET^
6020 036407 %X=. ;DEFINE %X TO SAVE
6021 036407 201 00 0 00 036407 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6022 036410 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6023 036411 200 00 0 00 040403 ..0173: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
6024 036412 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
6025 036413 026000 000000 26B8 ;EXECUTE A UUO
6026 036414 254 04 0 00 036415 HALT .+1 ;UUO DID NOT TRAP TO FORTY
6027 036415 201 02 0 00 036414 MOVEI 2,.-1 ;GET UUO PC
6028 036416 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
6029 036417 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
6030 036420 254 04 0 00 036421 HALT .+1 ;PC OF UUO NOT = TO PC STORED
6031 036421 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
6032 036422 312 00 0 00 040404 CAME 0,[26B8!0] ;CORRECT UUO STORED IN 40?
6033 036423 334 00 0 00 000000 SKIPA ;NO
6034 036424 254 00 0 00 036433 JRST UUO27 ;TESTS OK !
6035 STOP1^
6036 036425 254 04 0 00 036426 HALT .+1 ;UUO FAILED TO STORE MA BITS
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-12
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0141
6037 036426 254 00 0 00 036427 JRST .+1 ;INTO RIGHT HALF OF 40^
6038 TGET^^
6039 036427 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6040 036430 302 00 0 00 036407 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6041 STOP2^^
6042 036431 254 04 0 00 036432 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6043 036432 254 00 0 00 036433 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6044 036433 UUO27: XUUO 27B8,UUO30^
6045 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
6046 ;ARE CORRECT.
6047
6048 027000 000000 MLUUO==27B8 ;THE UUO TO BE EXECUTED
6049 TSET^
6050 036433 %X=. ;DEFINE %X TO SAVE
6051 036433 201 00 0 00 036433 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6052 036434 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6053 036435 200 00 0 00 040405 ..0174: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
6054 036436 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
6055 036437 027000 000000 27B8 ;EXECUTE A UUO
6056 036440 254 04 0 00 036441 HALT .+1 ;UUO DID NOT TRAP TO FORTY
6057 036441 201 02 0 00 036440 MOVEI 2,.-1 ;GET UUO PC
6058 036442 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
6059 036443 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
6060 036444 254 04 0 00 036445 HALT .+1 ;PC OF UUO NOT = TO PC STORED
6061 036445 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
6062 036446 312 00 0 00 040406 CAME 0,[27B8!0] ;CORRECT UUO STORED IN 40?
6063 036447 334 00 0 00 000000 SKIPA ;NO
6064 036450 254 00 0 00 036457 JRST UUO30 ;TESTS OK !
6065 STOP1^
6066 036451 254 04 0 00 036452 HALT .+1 ;UUO FAILED TO STORE MA BITS
6067 036452 254 00 0 00 036453 JRST .+1 ;INTO RIGHT HALF OF 40^
6068 TGET^^
6069 036453 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6070 036454 302 00 0 00 036433 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6071 STOP2^^
6072 036455 254 04 0 00 036456 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6073 036456 254 00 0 00 036457 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6074 036457 UUO30: XUUO 30B8,UUO31^
6075 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
6076 ;ARE CORRECT.
6077
6078 030000 000000 MLUUO==30B8 ;THE UUO TO BE EXECUTED
6079 TSET^
6080 036457 %X=. ;DEFINE %X TO SAVE
6081 036457 201 00 0 00 036457 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6082 036460 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6083 036461 200 00 0 00 040407 ..0175: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
6084 036462 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
6085 036463 030000 000000 30B8 ;EXECUTE A UUO
6086 036464 254 04 0 00 036465 HALT .+1 ;UUO DID NOT TRAP TO FORTY
6087 036465 201 02 0 00 036464 MOVEI 2,.-1 ;GET UUO PC
6088 036466 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
6089 036467 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
6090 036470 254 04 0 00 036471 HALT .+1 ;PC OF UUO NOT = TO PC STORED
6091 036471 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-13
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0142
6092 036472 312 00 0 00 040410 CAME 0,[30B8!0] ;CORRECT UUO STORED IN 40?
6093 036473 334 00 0 00 000000 SKIPA ;NO
6094 036474 254 00 0 00 036503 JRST UUO31 ;TESTS OK !
6095 STOP1^
6096 036475 254 04 0 00 036476 HALT .+1 ;UUO FAILED TO STORE MA BITS
6097 036476 254 00 0 00 036477 JRST .+1 ;INTO RIGHT HALF OF 40^
6098 TGET^^
6099 036477 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6100 036500 302 00 0 00 036457 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6101 STOP2^^
6102 036501 254 04 0 00 036502 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6103 036502 254 00 0 00 036503 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6104 036503 UUO31: XUUO 31B8,UUO32^
6105 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
6106 ;ARE CORRECT.
6107
6108 031000 000000 MLUUO==31B8 ;THE UUO TO BE EXECUTED
6109 TSET^
6110 036503 %X=. ;DEFINE %X TO SAVE
6111 036503 201 00 0 00 036503 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6112 036504 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6113 036505 200 00 0 00 040411 ..0176: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
6114 036506 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
6115 036507 031000 000000 31B8 ;EXECUTE A UUO
6116 036510 254 04 0 00 036511 HALT .+1 ;UUO DID NOT TRAP TO FORTY
6117 036511 201 02 0 00 036510 MOVEI 2,.-1 ;GET UUO PC
6118 036512 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
6119 036513 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
6120 036514 254 04 0 00 036515 HALT .+1 ;PC OF UUO NOT = TO PC STORED
6121 036515 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
6122 036516 312 00 0 00 040412 CAME 0,[31B8!0] ;CORRECT UUO STORED IN 40?
6123 036517 334 00 0 00 000000 SKIPA ;NO
6124 036520 254 00 0 00 036527 JRST UUO32 ;TESTS OK !
6125 STOP1^
6126 036521 254 04 0 00 036522 HALT .+1 ;UUO FAILED TO STORE MA BITS
6127 036522 254 00 0 00 036523 JRST .+1 ;INTO RIGHT HALF OF 40^
6128 TGET^^
6129 036523 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6130 036524 302 00 0 00 036503 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6131 STOP2^^
6132 036525 254 04 0 00 036526 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6133 036526 254 00 0 00 036527 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6134 036527 UUO32: XUUO 32B8,UUO33^
6135 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
6136 ;ARE CORRECT.
6137
6138 032000 000000 MLUUO==32B8 ;THE UUO TO BE EXECUTED
6139 TSET^
6140 036527 %X=. ;DEFINE %X TO SAVE
6141 036527 201 00 0 00 036527 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6142 036530 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6143 036531 200 00 0 00 040413 ..0177: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
6144 036532 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
6145 036533 032000 000000 32B8 ;EXECUTE A UUO
6146 036534 254 04 0 00 036535 HALT .+1 ;UUO DID NOT TRAP TO FORTY
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-14
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0143
6147 036535 201 02 0 00 036534 MOVEI 2,.-1 ;GET UUO PC
6148 036536 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
6149 036537 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
6150 036540 254 04 0 00 036541 HALT .+1 ;PC OF UUO NOT = TO PC STORED
6151 036541 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
6152 036542 312 00 0 00 040414 CAME 0,[32B8!0] ;CORRECT UUO STORED IN 40?
6153 036543 334 00 0 00 000000 SKIPA ;NO
6154 036544 254 00 0 00 036553 JRST UUO33 ;TESTS OK !
6155 STOP1^
6156 036545 254 04 0 00 036546 HALT .+1 ;UUO FAILED TO STORE MA BITS
6157 036546 254 00 0 00 036547 JRST .+1 ;INTO RIGHT HALF OF 40^
6158 TGET^^
6159 036547 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6160 036550 302 00 0 00 036527 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6161 STOP2^^
6162 036551 254 04 0 00 036552 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6163 036552 254 00 0 00 036553 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6164 036553 UUO33: XUUO 33B8,UUO34^
6165 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
6166 ;ARE CORRECT.
6167
6168 033000 000000 MLUUO==33B8 ;THE UUO TO BE EXECUTED
6169 TSET^
6170 036553 %X=. ;DEFINE %X TO SAVE
6171 036553 201 00 0 00 036553 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6172 036554 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6173 036555 200 00 0 00 040415 ..0200: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
6174 036556 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
6175 036557 033000 000000 33B8 ;EXECUTE A UUO
6176 036560 254 04 0 00 036561 HALT .+1 ;UUO DID NOT TRAP TO FORTY
6177 036561 201 02 0 00 036560 MOVEI 2,.-1 ;GET UUO PC
6178 036562 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
6179 036563 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
6180 036564 254 04 0 00 036565 HALT .+1 ;PC OF UUO NOT = TO PC STORED
6181 036565 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
6182 036566 312 00 0 00 040416 CAME 0,[33B8!0] ;CORRECT UUO STORED IN 40?
6183 036567 334 00 0 00 000000 SKIPA ;NO
6184 036570 254 00 0 00 036577 JRST UUO34 ;TESTS OK !
6185 STOP1^
6186 036571 254 04 0 00 036572 HALT .+1 ;UUO FAILED TO STORE MA BITS
6187 036572 254 00 0 00 036573 JRST .+1 ;INTO RIGHT HALF OF 40^
6188 TGET^^
6189 036573 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6190 036574 302 00 0 00 036553 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6191 STOP2^^
6192 036575 254 04 0 00 036576 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6193 036576 254 00 0 00 036577 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6194 036577 UUO34: XUUO 34B8,UUO35^
6195 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
6196 ;ARE CORRECT.
6197
6198 034000 000000 MLUUO==34B8 ;THE UUO TO BE EXECUTED
6199 TSET^
6200 036577 %X=. ;DEFINE %X TO SAVE
6201 036577 201 00 0 00 036577 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-15
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0144
6202 036600 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6203 036601 200 00 0 00 040417 ..0201: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
6204 036602 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
6205 036603 034000 000000 34B8 ;EXECUTE A UUO
6206 036604 254 04 0 00 036605 HALT .+1 ;UUO DID NOT TRAP TO FORTY
6207 036605 201 02 0 00 036604 MOVEI 2,.-1 ;GET UUO PC
6208 036606 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
6209 036607 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
6210 036610 254 04 0 00 036611 HALT .+1 ;PC OF UUO NOT = TO PC STORED
6211 036611 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
6212 036612 312 00 0 00 040420 CAME 0,[34B8!0] ;CORRECT UUO STORED IN 40?
6213 036613 334 00 0 00 000000 SKIPA ;NO
6214 036614 254 00 0 00 036623 JRST UUO35 ;TESTS OK !
6215 STOP1^
6216 036615 254 04 0 00 036616 HALT .+1 ;UUO FAILED TO STORE MA BITS
6217 036616 254 00 0 00 036617 JRST .+1 ;INTO RIGHT HALF OF 40^
6218 TGET^^
6219 036617 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6220 036620 302 00 0 00 036577 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6221 STOP2^^
6222 036621 254 04 0 00 036622 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6223 036622 254 00 0 00 036623 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6224 036623 UUO35: XUUO 35B8,UUO36^
6225 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
6226 ;ARE CORRECT.
6227
6228 035000 000000 MLUUO==35B8 ;THE UUO TO BE EXECUTED
6229 TSET^
6230 036623 %X=. ;DEFINE %X TO SAVE
6231 036623 201 00 0 00 036623 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6232 036624 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6233 036625 200 00 0 00 040421 ..0202: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
6234 036626 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
6235 036627 035000 000000 35B8 ;EXECUTE A UUO
6236 036630 254 04 0 00 036631 HALT .+1 ;UUO DID NOT TRAP TO FORTY
6237 036631 201 02 0 00 036630 MOVEI 2,.-1 ;GET UUO PC
6238 036632 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
6239 036633 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
6240 036634 254 04 0 00 036635 HALT .+1 ;PC OF UUO NOT = TO PC STORED
6241 036635 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
6242 036636 312 00 0 00 040422 CAME 0,[35B8!0] ;CORRECT UUO STORED IN 40?
6243 036637 334 00 0 00 000000 SKIPA ;NO
6244 036640 254 00 0 00 036647 JRST UUO36 ;TESTS OK !
6245 STOP1^
6246 036641 254 04 0 00 036642 HALT .+1 ;UUO FAILED TO STORE MA BITS
6247 036642 254 00 0 00 036643 JRST .+1 ;INTO RIGHT HALF OF 40^
6248 TGET^^
6249 036643 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6250 036644 302 00 0 00 036623 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6251 STOP2^^
6252 036645 254 04 0 00 036646 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6253 036646 254 00 0 00 036647 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6254 036647 UUO36: XUUO 36B8,UUO37^
6255 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
6256 ;ARE CORRECT.
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-16
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0145
6257
6258 036000 000000 MLUUO==36B8 ;THE UUO TO BE EXECUTED
6259 TSET^
6260 036647 %X=. ;DEFINE %X TO SAVE
6261 036647 201 00 0 00 036647 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6262 036650 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6263 036651 200 00 0 00 040423 ..0203: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
6264 036652 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
6265 036653 036000 000000 36B8 ;EXECUTE A UUO
6266 036654 254 04 0 00 036655 HALT .+1 ;UUO DID NOT TRAP TO FORTY
6267 036655 201 02 0 00 036654 MOVEI 2,.-1 ;GET UUO PC
6268 036656 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
6269 036657 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
6270 036660 254 04 0 00 036661 HALT .+1 ;PC OF UUO NOT = TO PC STORED
6271 036661 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
6272 036662 312 00 0 00 040424 CAME 0,[36B8!0] ;CORRECT UUO STORED IN 40?
6273 036663 334 00 0 00 000000 SKIPA ;NO
6274 036664 254 00 0 00 036673 JRST UUO37 ;TESTS OK !
6275 STOP1^
6276 036665 254 04 0 00 036666 HALT .+1 ;UUO FAILED TO STORE MA BITS
6277 036666 254 00 0 00 036667 JRST .+1 ;INTO RIGHT HALF OF 40^
6278 TGET^^
6279 036667 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6280 036670 302 00 0 00 036647 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6281 STOP2^^
6282 036671 254 04 0 00 036672 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6283 036672 254 00 0 00 036673 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6284 036673 UUO37: XUUO 37B8,UUOPC^
6285 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED
6286 ;ARE CORRECT.
6287
6288 037000 000000 MLUUO==37B8 ;THE UUO TO BE EXECUTED
6289 TSET^
6290 036673 %X=. ;DEFINE %X TO SAVE
6291 036673 201 00 0 00 036673 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6292 036674 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6293 036675 200 00 0 00 040425 ..0204: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION
6294 036676 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41
6295 036677 037000 000000 37B8 ;EXECUTE A UUO
6296 036700 254 04 0 00 036701 HALT .+1 ;UUO DID NOT TRAP TO FORTY
6297 036701 201 02 0 00 036700 MOVEI 2,.-1 ;GET UUO PC
6298 036702 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT
6299 036703 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ?
6300 036704 254 04 0 00 036705 HALT .+1 ;PC OF UUO NOT = TO PC STORED
6301 036705 200 00 0 00 000040 MOVE 0,40 ;GET UUO !
6302 036706 312 00 0 00 040426 CAME 0,[37B8!0] ;CORRECT UUO STORED IN 40?
6303 036707 334 00 0 00 000000 SKIPA ;NO
6304 036710 254 00 0 00 036720 JRST UUOPC ;TESTS OK !
6305 STOP1^
6306 036711 254 04 0 00 036712 HALT .+1 ;UUO FAILED TO STORE MA BITS
6307 036712 254 00 0 00 036713 JRST .+1 ;INTO RIGHT HALF OF 40^
6308 TGET^^
6309 036713 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6310 036714 302 00 0 00 036673 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6311 STOP2^^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-17
DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0146
6312 036715 254 04 0 00 036716 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6313 036716 254 00 0 00 036717 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6314
6315 036717 255 00 0 00 000000 JFCL
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40
DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0147
6316 SUBTTL TEST UUO STORING CORRECTLY
6317 ;TEST THE MA PORTION OF THE UUO TO SEE IF BITS 18-35 ARE STORED CORRECTLY
6318 ;ROUTINE ROTATES A BIT LEFT THROUGH THE MA OF THE UUO
6319 ;THEN DOES ALTERNATING PATTERN, ALL ONES AND ALL ZEROS
6320
6321 000001 X=1
6322 036720 UUOPC:
6323 036720 UUOPCA:
6324 REPEAT ^D18,<
6325 XUUOA X
6326 X=X_1
6327 >
6328
6329 XUUOA X^
6330
6331 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6332
6333 000001 EFIELD==X ;"E" WE ARE TESTING FOR
6334 TSET^
6335 036720 %X=. ;DEFINE %X TO SAVE
6336 036720 201 00 0 00 036720 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6337 036721 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6338 036722 200 00 0 00 040427 ..0205: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6339 036723 202 00 0 00 000041 MOVEM 41 ;INTO 41
6340 036724 001000 000001 1B8!X ;EXECUTE A UUO
6341 036725 254 04 0 00 036726 ..0206: HALT .+1 ;UUO DIDN'T TRAP TO 40
6342 036726 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6343 036727 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6344 036730 302 00 0 00 000001 CAIE X ;MA BITS CORRECT?
6345 036731 ..0207: STOP1^
6346 036731 254 04 0 00 036732 HALT .+1 ;UUO FAILED TO STORE MA BITS
6347 036732 254 00 0 00 036733 JRST .+1 ;INTO RIGHT HALF OF 40^
6348 TGET^^
6349 036733 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6350 036734 302 00 0 00 036720 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6351 STOP2^^
6352 036735 254 04 0 00 036736 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6353 036736 254 00 0 00 036737 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6354 000002 X=X_1
6355
6356
6357 XUUOA X^
6358
6359 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6360
6361 000002 EFIELD==X ;"E" WE ARE TESTING FOR
6362 TSET^
6363 036737 %X=. ;DEFINE %X TO SAVE
6364 036737 201 00 0 00 036737 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6365 036740 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6366 036741 200 00 0 00 040430 ..0210: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6367 036742 202 00 0 00 000041 MOVEM 41 ;INTO 41
6368 036743 001000 000002 1B8!X ;EXECUTE A UUO
6369 036744 254 04 0 00 036745 ..0211: HALT .+1 ;UUO DIDN'T TRAP TO 40
6370 036745 200 00 0 00 000040 MOVE 0,40 ;GET UUO
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-1
DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0148
6371 036746 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6372 036747 302 00 0 00 000002 CAIE X ;MA BITS CORRECT?
6373 036750 ..0212: STOP1^
6374 036750 254 04 0 00 036751 HALT .+1 ;UUO FAILED TO STORE MA BITS
6375 036751 254 00 0 00 036752 JRST .+1 ;INTO RIGHT HALF OF 40^
6376 TGET^^
6377 036752 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6378 036753 302 00 0 00 036737 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6379 STOP2^^
6380 036754 254 04 0 00 036755 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6381 036755 254 00 0 00 036756 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6382 000004 X=X_1
6383
6384
6385 XUUOA X^
6386
6387 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6388
6389 000004 EFIELD==X ;"E" WE ARE TESTING FOR
6390 TSET^
6391 036756 %X=. ;DEFINE %X TO SAVE
6392 036756 201 00 0 00 036756 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6393 036757 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6394 036760 200 00 0 00 040431 ..0213: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6395 036761 202 00 0 00 000041 MOVEM 41 ;INTO 41
6396 036762 001000 000004 1B8!X ;EXECUTE A UUO
6397 036763 254 04 0 00 036764 ..0214: HALT .+1 ;UUO DIDN'T TRAP TO 40
6398 036764 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6399 036765 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6400 036766 302 00 0 00 000004 CAIE X ;MA BITS CORRECT?
6401 036767 ..0215: STOP1^
6402 036767 254 04 0 00 036770 HALT .+1 ;UUO FAILED TO STORE MA BITS
6403 036770 254 00 0 00 036771 JRST .+1 ;INTO RIGHT HALF OF 40^
6404 TGET^^
6405 036771 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6406 036772 302 00 0 00 036756 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6407 STOP2^^
6408 036773 254 04 0 00 036774 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6409 036774 254 00 0 00 036775 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6410 000010 X=X_1
6411
6412
6413 XUUOA X^
6414
6415 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6416
6417 000010 EFIELD==X ;"E" WE ARE TESTING FOR
6418 TSET^
6419 036775 %X=. ;DEFINE %X TO SAVE
6420 036775 201 00 0 00 036775 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6421 036776 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6422 036777 200 00 0 00 040432 ..0216: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6423 037000 202 00 0 00 000041 MOVEM 41 ;INTO 41
6424 037001 001000 000010 1B8!X ;EXECUTE A UUO
6425 037002 254 04 0 00 037003 ..0217: HALT .+1 ;UUO DIDN'T TRAP TO 40
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-2
DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0149
6426 037003 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6427 037004 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6428 037005 302 00 0 00 000010 CAIE X ;MA BITS CORRECT?
6429 037006 ..0220: STOP1^
6430 037006 254 04 0 00 037007 HALT .+1 ;UUO FAILED TO STORE MA BITS
6431 037007 254 00 0 00 037010 JRST .+1 ;INTO RIGHT HALF OF 40^
6432 TGET^^
6433 037010 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6434 037011 302 00 0 00 036775 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6435 STOP2^^
6436 037012 254 04 0 00 037013 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6437 037013 254 00 0 00 037014 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6438 000020 X=X_1
6439
6440
6441 XUUOA X^
6442
6443 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6444
6445 000020 EFIELD==X ;"E" WE ARE TESTING FOR
6446 TSET^
6447 037014 %X=. ;DEFINE %X TO SAVE
6448 037014 201 00 0 00 037014 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6449 037015 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6450 037016 200 00 0 00 040433 ..0221: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6451 037017 202 00 0 00 000041 MOVEM 41 ;INTO 41
6452 037020 001000 000020 1B8!X ;EXECUTE A UUO
6453 037021 254 04 0 00 037022 ..0222: HALT .+1 ;UUO DIDN'T TRAP TO 40
6454 037022 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6455 037023 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6456 037024 302 00 0 00 000020 CAIE X ;MA BITS CORRECT?
6457 037025 ..0223: STOP1^
6458 037025 254 04 0 00 037026 HALT .+1 ;UUO FAILED TO STORE MA BITS
6459 037026 254 00 0 00 037027 JRST .+1 ;INTO RIGHT HALF OF 40^
6460 TGET^^
6461 037027 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6462 037030 302 00 0 00 037014 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6463 STOP2^^
6464 037031 254 04 0 00 037032 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6465 037032 254 00 0 00 037033 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6466 000040 X=X_1
6467
6468
6469 XUUOA X^
6470
6471 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6472
6473 000040 EFIELD==X ;"E" WE ARE TESTING FOR
6474 TSET^
6475 037033 %X=. ;DEFINE %X TO SAVE
6476 037033 201 00 0 00 037033 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6477 037034 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6478 037035 200 00 0 00 040434 ..0224: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6479 037036 202 00 0 00 000041 MOVEM 41 ;INTO 41
6480 037037 001000 000040 1B8!X ;EXECUTE A UUO
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-3
DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0150
6481 037040 254 04 0 00 037041 ..0225: HALT .+1 ;UUO DIDN'T TRAP TO 40
6482 037041 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6483 037042 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6484 037043 302 00 0 00 000040 CAIE X ;MA BITS CORRECT?
6485 037044 ..0226: STOP1^
6486 037044 254 04 0 00 037045 HALT .+1 ;UUO FAILED TO STORE MA BITS
6487 037045 254 00 0 00 037046 JRST .+1 ;INTO RIGHT HALF OF 40^
6488 TGET^^
6489 037046 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6490 037047 302 00 0 00 037033 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6491 STOP2^^
6492 037050 254 04 0 00 037051 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6493 037051 254 00 0 00 037052 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6494 000100 X=X_1
6495
6496
6497 XUUOA X^
6498
6499 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6500
6501 000100 EFIELD==X ;"E" WE ARE TESTING FOR
6502 TSET^
6503 037052 %X=. ;DEFINE %X TO SAVE
6504 037052 201 00 0 00 037052 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6505 037053 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6506 037054 200 00 0 00 040435 ..0227: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6507 037055 202 00 0 00 000041 MOVEM 41 ;INTO 41
6508 037056 001000 000100 1B8!X ;EXECUTE A UUO
6509 037057 254 04 0 00 037060 ..0230: HALT .+1 ;UUO DIDN'T TRAP TO 40
6510 037060 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6511 037061 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6512 037062 302 00 0 00 000100 CAIE X ;MA BITS CORRECT?
6513 037063 ..0231: STOP1^
6514 037063 254 04 0 00 037064 HALT .+1 ;UUO FAILED TO STORE MA BITS
6515 037064 254 00 0 00 037065 JRST .+1 ;INTO RIGHT HALF OF 40^
6516 TGET^^
6517 037065 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6518 037066 302 00 0 00 037052 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6519 STOP2^^
6520 037067 254 04 0 00 037070 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6521 037070 254 00 0 00 037071 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6522 000200 X=X_1
6523
6524
6525 XUUOA X^
6526
6527 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6528
6529 000200 EFIELD==X ;"E" WE ARE TESTING FOR
6530 TSET^
6531 037071 %X=. ;DEFINE %X TO SAVE
6532 037071 201 00 0 00 037071 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6533 037072 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6534 037073 200 00 0 00 040436 ..0232: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6535 037074 202 00 0 00 000041 MOVEM 41 ;INTO 41
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-4
DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0151
6536 037075 001000 000200 1B8!X ;EXECUTE A UUO
6537 037076 254 04 0 00 037077 ..0233: HALT .+1 ;UUO DIDN'T TRAP TO 40
6538 037077 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6539 037100 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6540 037101 302 00 0 00 000200 CAIE X ;MA BITS CORRECT?
6541 037102 ..0234: STOP1^
6542 037102 254 04 0 00 037103 HALT .+1 ;UUO FAILED TO STORE MA BITS
6543 037103 254 00 0 00 037104 JRST .+1 ;INTO RIGHT HALF OF 40^
6544 TGET^^
6545 037104 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6546 037105 302 00 0 00 037071 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6547 STOP2^^
6548 037106 254 04 0 00 037107 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6549 037107 254 00 0 00 037110 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6550 000400 X=X_1
6551
6552
6553 XUUOA X^
6554
6555 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6556
6557 000400 EFIELD==X ;"E" WE ARE TESTING FOR
6558 TSET^
6559 037110 %X=. ;DEFINE %X TO SAVE
6560 037110 201 00 0 00 037110 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6561 037111 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6562 037112 200 00 0 00 040437 ..0235: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6563 037113 202 00 0 00 000041 MOVEM 41 ;INTO 41
6564 037114 001000 000400 1B8!X ;EXECUTE A UUO
6565 037115 254 04 0 00 037116 ..0236: HALT .+1 ;UUO DIDN'T TRAP TO 40
6566 037116 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6567 037117 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6568 037120 302 00 0 00 000400 CAIE X ;MA BITS CORRECT?
6569 037121 ..0237: STOP1^
6570 037121 254 04 0 00 037122 HALT .+1 ;UUO FAILED TO STORE MA BITS
6571 037122 254 00 0 00 037123 JRST .+1 ;INTO RIGHT HALF OF 40^
6572 TGET^^
6573 037123 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6574 037124 302 00 0 00 037110 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6575 STOP2^^
6576 037125 254 04 0 00 037126 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6577 037126 254 00 0 00 037127 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6578 001000 X=X_1
6579
6580
6581 XUUOA X^
6582
6583 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6584
6585 001000 EFIELD==X ;"E" WE ARE TESTING FOR
6586 TSET^
6587 037127 %X=. ;DEFINE %X TO SAVE
6588 037127 201 00 0 00 037127 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6589 037130 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6590 037131 200 00 0 00 040440 ..0240: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-5
DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0152
6591 037132 202 00 0 00 000041 MOVEM 41 ;INTO 41
6592 037133 001000 001000 1B8!X ;EXECUTE A UUO
6593 037134 254 04 0 00 037135 ..0241: HALT .+1 ;UUO DIDN'T TRAP TO 40
6594 037135 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6595 037136 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6596 037137 302 00 0 00 001000 CAIE X ;MA BITS CORRECT?
6597 037140 ..0242: STOP1^
6598 037140 254 04 0 00 037141 HALT .+1 ;UUO FAILED TO STORE MA BITS
6599 037141 254 00 0 00 037142 JRST .+1 ;INTO RIGHT HALF OF 40^
6600 TGET^^
6601 037142 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6602 037143 302 00 0 00 037127 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6603 STOP2^^
6604 037144 254 04 0 00 037145 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6605 037145 254 00 0 00 037146 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6606 002000 X=X_1
6607
6608
6609 XUUOA X^
6610
6611 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6612
6613 002000 EFIELD==X ;"E" WE ARE TESTING FOR
6614 TSET^
6615 037146 %X=. ;DEFINE %X TO SAVE
6616 037146 201 00 0 00 037146 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6617 037147 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6618 037150 200 00 0 00 040441 ..0243: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6619 037151 202 00 0 00 000041 MOVEM 41 ;INTO 41
6620 037152 001000 002000 1B8!X ;EXECUTE A UUO
6621 037153 254 04 0 00 037154 ..0244: HALT .+1 ;UUO DIDN'T TRAP TO 40
6622 037154 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6623 037155 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6624 037156 302 00 0 00 002000 CAIE X ;MA BITS CORRECT?
6625 037157 ..0245: STOP1^
6626 037157 254 04 0 00 037160 HALT .+1 ;UUO FAILED TO STORE MA BITS
6627 037160 254 00 0 00 037161 JRST .+1 ;INTO RIGHT HALF OF 40^
6628 TGET^^
6629 037161 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6630 037162 302 00 0 00 037146 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6631 STOP2^^
6632 037163 254 04 0 00 037164 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6633 037164 254 00 0 00 037165 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6634 004000 X=X_1
6635
6636
6637 XUUOA X^
6638
6639 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6640
6641 004000 EFIELD==X ;"E" WE ARE TESTING FOR
6642 TSET^
6643 037165 %X=. ;DEFINE %X TO SAVE
6644 037165 201 00 0 00 037165 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6645 037166 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-6
DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0153
6646 037167 200 00 0 00 040442 ..0246: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6647 037170 202 00 0 00 000041 MOVEM 41 ;INTO 41
6648 037171 001000 004000 1B8!X ;EXECUTE A UUO
6649 037172 254 04 0 00 037173 ..0247: HALT .+1 ;UUO DIDN'T TRAP TO 40
6650 037173 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6651 037174 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6652 037175 302 00 0 00 004000 CAIE X ;MA BITS CORRECT?
6653 037176 ..0250: STOP1^
6654 037176 254 04 0 00 037177 HALT .+1 ;UUO FAILED TO STORE MA BITS
6655 037177 254 00 0 00 037200 JRST .+1 ;INTO RIGHT HALF OF 40^
6656 TGET^^
6657 037200 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6658 037201 302 00 0 00 037165 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6659 STOP2^^
6660 037202 254 04 0 00 037203 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6661 037203 254 00 0 00 037204 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6662 010000 X=X_1
6663
6664
6665 XUUOA X^
6666
6667 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6668
6669 010000 EFIELD==X ;"E" WE ARE TESTING FOR
6670 TSET^
6671 037204 %X=. ;DEFINE %X TO SAVE
6672 037204 201 00 0 00 037204 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6673 037205 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6674 037206 200 00 0 00 040443 ..0251: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6675 037207 202 00 0 00 000041 MOVEM 41 ;INTO 41
6676 037210 001000 010000 1B8!X ;EXECUTE A UUO
6677 037211 254 04 0 00 037212 ..0252: HALT .+1 ;UUO DIDN'T TRAP TO 40
6678 037212 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6679 037213 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6680 037214 302 00 0 00 010000 CAIE X ;MA BITS CORRECT?
6681 037215 ..0253: STOP1^
6682 037215 254 04 0 00 037216 HALT .+1 ;UUO FAILED TO STORE MA BITS
6683 037216 254 00 0 00 037217 JRST .+1 ;INTO RIGHT HALF OF 40^
6684 TGET^^
6685 037217 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6686 037220 302 00 0 00 037204 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6687 STOP2^^
6688 037221 254 04 0 00 037222 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6689 037222 254 00 0 00 037223 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6690 020000 X=X_1
6691
6692
6693 XUUOA X^
6694
6695 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6696
6697 020000 EFIELD==X ;"E" WE ARE TESTING FOR
6698 TSET^
6699 037223 %X=. ;DEFINE %X TO SAVE
6700 037223 201 00 0 00 037223 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-7
DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0154
6701 037224 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6702 037225 200 00 0 00 040444 ..0254: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6703 037226 202 00 0 00 000041 MOVEM 41 ;INTO 41
6704 037227 001000 020000 1B8!X ;EXECUTE A UUO
6705 037230 254 04 0 00 037231 ..0255: HALT .+1 ;UUO DIDN'T TRAP TO 40
6706 037231 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6707 037232 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6708 037233 302 00 0 00 020000 CAIE X ;MA BITS CORRECT?
6709 037234 ..0256: STOP1^
6710 037234 254 04 0 00 037235 HALT .+1 ;UUO FAILED TO STORE MA BITS
6711 037235 254 00 0 00 037236 JRST .+1 ;INTO RIGHT HALF OF 40^
6712 TGET^^
6713 037236 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6714 037237 302 00 0 00 037223 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6715 STOP2^^
6716 037240 254 04 0 00 037241 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6717 037241 254 00 0 00 037242 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6718 040000 X=X_1
6719
6720
6721 XUUOA X^
6722
6723 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6724
6725 040000 EFIELD==X ;"E" WE ARE TESTING FOR
6726 TSET^
6727 037242 %X=. ;DEFINE %X TO SAVE
6728 037242 201 00 0 00 037242 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6729 037243 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6730 037244 200 00 0 00 040445 ..0257: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6731 037245 202 00 0 00 000041 MOVEM 41 ;INTO 41
6732 037246 001000 040000 1B8!X ;EXECUTE A UUO
6733 037247 254 04 0 00 037250 ..0260: HALT .+1 ;UUO DIDN'T TRAP TO 40
6734 037250 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6735 037251 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6736 037252 302 00 0 00 040000 CAIE X ;MA BITS CORRECT?
6737 037253 ..0261: STOP1^
6738 037253 254 04 0 00 037254 HALT .+1 ;UUO FAILED TO STORE MA BITS
6739 037254 254 00 0 00 037255 JRST .+1 ;INTO RIGHT HALF OF 40^
6740 TGET^^
6741 037255 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6742 037256 302 00 0 00 037242 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6743 STOP2^^
6744 037257 254 04 0 00 037260 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6745 037260 254 00 0 00 037261 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6746 100000 X=X_1
6747
6748
6749 XUUOA X^
6750
6751 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6752
6753 100000 EFIELD==X ;"E" WE ARE TESTING FOR
6754 TSET^
6755 037261 %X=. ;DEFINE %X TO SAVE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-8
DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0155
6756 037261 201 00 0 00 037261 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6757 037262 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6758 037263 200 00 0 00 040446 ..0262: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6759 037264 202 00 0 00 000041 MOVEM 41 ;INTO 41
6760 037265 001000 100000 1B8!X ;EXECUTE A UUO
6761 037266 254 04 0 00 037267 ..0263: HALT .+1 ;UUO DIDN'T TRAP TO 40
6762 037267 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6763 037270 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6764 037271 302 00 0 00 100000 CAIE X ;MA BITS CORRECT?
6765 037272 ..0264: STOP1^
6766 037272 254 04 0 00 037273 HALT .+1 ;UUO FAILED TO STORE MA BITS
6767 037273 254 00 0 00 037274 JRST .+1 ;INTO RIGHT HALF OF 40^
6768 TGET^^
6769 037274 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6770 037275 302 00 0 00 037261 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6771 STOP2^^
6772 037276 254 04 0 00 037277 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6773 037277 254 00 0 00 037300 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6774 200000 X=X_1
6775
6776
6777 XUUOA X^
6778
6779 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6780
6781 200000 EFIELD==X ;"E" WE ARE TESTING FOR
6782 TSET^
6783 037300 %X=. ;DEFINE %X TO SAVE
6784 037300 201 00 0 00 037300 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6785 037301 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6786 037302 200 00 0 00 040447 ..0265: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6787 037303 202 00 0 00 000041 MOVEM 41 ;INTO 41
6788 037304 001000 200000 1B8!X ;EXECUTE A UUO
6789 037305 254 04 0 00 037306 ..0266: HALT .+1 ;UUO DIDN'T TRAP TO 40
6790 037306 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6791 037307 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6792 037310 302 00 0 00 200000 CAIE X ;MA BITS CORRECT?
6793 037311 ..0267: STOP1^
6794 037311 254 04 0 00 037312 HALT .+1 ;UUO FAILED TO STORE MA BITS
6795 037312 254 00 0 00 037313 JRST .+1 ;INTO RIGHT HALF OF 40^
6796 TGET^^
6797 037313 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6798 037314 302 00 0 00 037300 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6799 STOP2^^
6800 037315 254 04 0 00 037316 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6801 037316 254 00 0 00 037317 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6802 400000 X=X_1
6803
6804
6805 XUUOA X^
6806
6807 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6808
6809 400000 EFIELD==X ;"E" WE ARE TESTING FOR
6810 TSET^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-9
DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0156
6811 037317 %X=. ;DEFINE %X TO SAVE
6812 037317 201 00 0 00 037317 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6813 037320 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6814 037321 200 00 0 00 040450 ..0270: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6815 037322 202 00 0 00 000041 MOVEM 41 ;INTO 41
6816 037323 001000 400000 1B8!X ;EXECUTE A UUO
6817 037324 254 04 0 00 037325 ..0271: HALT .+1 ;UUO DIDN'T TRAP TO 40
6818 037325 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6819 037326 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6820 037327 302 00 0 00 400000 CAIE X ;MA BITS CORRECT?
6821 037330 ..0272: STOP1^
6822 037330 254 04 0 00 037331 HALT .+1 ;UUO FAILED TO STORE MA BITS
6823 037331 254 00 0 00 037332 JRST .+1 ;INTO RIGHT HALF OF 40^
6824 TGET^^
6825 037332 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6826 037333 302 00 0 00 037317 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6827 STOP2^^
6828 037334 254 04 0 00 037335 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6829 037335 254 00 0 00 037336 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6830 000001 000000 X=X_1
6831
6832 777777 X=777777
6833 XUUOA X^
6834
6835 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6836
6837 777777 EFIELD==X ;"E" WE ARE TESTING FOR
6838 TSET^
6839 037336 %X=. ;DEFINE %X TO SAVE
6840 037336 201 00 0 00 037336 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6841 037337 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6842 037340 200 00 0 00 040451 ..0273: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6843 037341 202 00 0 00 000041 MOVEM 41 ;INTO 41
6844 037342 001000 777777 1B8!X ;EXECUTE A UUO
6845 037343 254 04 0 00 037344 ..0274: HALT .+1 ;UUO DIDN'T TRAP TO 40
6846 037344 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6847 037345 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6848 037346 302 00 0 00 777777 CAIE X ;MA BITS CORRECT?
6849 037347 ..0275: STOP1^
6850 037347 254 04 0 00 037350 HALT .+1 ;UUO FAILED TO STORE MA BITS
6851 037350 254 00 0 00 037351 JRST .+1 ;INTO RIGHT HALF OF 40^
6852 TGET^^
6853 037351 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6854 037352 302 00 0 00 037336 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6855 STOP2^^
6856 037353 254 04 0 00 037354 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6857 037354 254 00 0 00 037355 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6858
6859 000000 X=0
6860 XUUOA X^
6861
6862 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6863
6864 000000 EFIELD==X ;"E" WE ARE TESTING FOR
6865 TSET^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-10
DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0157
6866 037355 %X=. ;DEFINE %X TO SAVE
6867 037355 201 00 0 00 037355 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6868 037356 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6869 037357 200 00 0 00 040452 ..0276: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6870 037360 202 00 0 00 000041 MOVEM 41 ;INTO 41
6871 037361 001000 000000 1B8!X ;EXECUTE A UUO
6872 037362 254 04 0 00 037363 ..0277: HALT .+1 ;UUO DIDN'T TRAP TO 40
6873 037363 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6874 037364 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6875 037365 302 00 0 00 000000 CAIE X ;MA BITS CORRECT?
6876 037366 ..0300: STOP1^
6877 037366 254 04 0 00 037367 HALT .+1 ;UUO FAILED TO STORE MA BITS
6878 037367 254 00 0 00 037370 JRST .+1 ;INTO RIGHT HALF OF 40^
6879 TGET^^
6880 037370 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6881 037371 302 00 0 00 037355 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6882 STOP2^^
6883 037372 254 04 0 00 037373 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6884 037373 254 00 0 00 037374 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6885
6886 252525 X=252525
6887 XUUOA X^
6888
6889 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6890
6891 252525 EFIELD==X ;"E" WE ARE TESTING FOR
6892 TSET^
6893 037374 %X=. ;DEFINE %X TO SAVE
6894 037374 201 00 0 00 037374 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6895 037375 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6896 037376 200 00 0 00 040453 ..0301: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6897 037377 202 00 0 00 000041 MOVEM 41 ;INTO 41
6898 037400 001000 252525 1B8!X ;EXECUTE A UUO
6899 037401 254 04 0 00 037402 ..0302: HALT .+1 ;UUO DIDN'T TRAP TO 40
6900 037402 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6901 037403 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6902 037404 302 00 0 00 252525 CAIE X ;MA BITS CORRECT?
6903 037405 ..0303: STOP1^
6904 037405 254 04 0 00 037406 HALT .+1 ;UUO FAILED TO STORE MA BITS
6905 037406 254 00 0 00 037407 JRST .+1 ;INTO RIGHT HALF OF 40^
6906 TGET^^
6907 037407 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6908 037410 302 00 0 00 037374 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6909 STOP2^^
6910 037411 254 04 0 00 037412 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6911 037412 254 00 0 00 037413 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6912
6913 525252 X=525252
6914 XUUOA X^
6915
6916 ;CHECK THE "E" OF THE UUO STORED IS CORRECT.
6917
6918 525252 EFIELD==X ;"E" WE ARE TESTING FOR
6919 TSET^
6920 037413 %X=. ;DEFINE %X TO SAVE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-11
DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0158
6921 037413 201 00 0 00 037413 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
6922 037414 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
6923 037415 200 00 0 00 040454 ..0304: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION
6924 037416 202 00 0 00 000041 MOVEM 41 ;INTO 41
6925 037417 001000 525252 1B8!X ;EXECUTE A UUO
6926 037420 254 04 0 00 037421 ..0305: HALT .+1 ;UUO DIDN'T TRAP TO 40
6927 037421 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6928 037422 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS
6929 037423 302 00 0 00 525252 CAIE X ;MA BITS CORRECT?
6930 037424 ..0306: STOP1^
6931 037424 254 04 0 00 037425 HALT .+1 ;UUO FAILED TO STORE MA BITS
6932 037425 254 00 0 00 037426 JRST .+1 ;INTO RIGHT HALF OF 40^
6933 TGET^^
6934 037426 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
6935 037427 302 00 0 00 037413 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
6936 STOP2^^
6937 037430 254 04 0 00 037431 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
6938 037431 254 00 0 00 037432 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
6939 000000 X=0
6940 037432 255 00 0 00 000000 JFCL
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 41
DSKAH1 MAC 31-Mar-78 11:13 TEST CLEARING OF INDEX AND INDIRECT BITS ON UUO SEQ 0159
6941 SUBTTL TEST CLEARING OF INDEX AND INDIRECT BITS ON UUO
6942
6943 ;TEST THAT THE INDEX BITS ARE CLEARED WHEN EXECUTING A UUO
6944
6945 037433 UUOIND: CLRBTH^
6946 037433 700 04 0 00 261600 CLRAPR
6947 037434 700 14 0 00 031577 CLRPI^
6948 037435 400 17 0 00 000000 SETZ 17, ;CLEAR INDEX FIELD
6949 037436 200 00 0 00 040455 MOVE [JRST .+4] ;SET UP UUO TRAP INSTR.
6950 037437 202 00 0 00 000041 MOVEM 41 ;INTO TRAP LOCATION
6951 037440 001017 000000 1B8!(17) ;EXECUTE A UUO WITH INDEXING
6952 037441 254 04 0 00 037442 HALT .+1 ;UUO DID NOT TRAP
6953 037442 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6954 037443 603 00 0 00 000017 TLNE 0,17 ;INDEX FIELD CLEAR?
6955 STOP^
6956 037444 254 04 0 00 037445 HALT .+1 ;INSTRUCTION FAILED REPLACE
6957 037445 254 00 0 00 037446 JRST .+1 ;WITH JRST BACK^
6958
6959 ;TEST THAT THE INDIRECT BIT IS CLEARED WHEN EXECUTING A UUO
6960
6961 037446 UUOINX: CLRBTH^
6962 037446 700 04 0 00 261600 CLRAPR
6963 037447 700 14 0 00 031577 CLRPI^
6964 037450 403 17 0 00 000000 SETZB 17,0 ;CLEAR INDEX FIELD
6965 037451 200 00 0 00 040456 MOVE [JRST .+4] ;SET UUO TRAP INSTR.
6966 037452 202 00 0 00 000041 MOVEM 41 ;INTO TRAP LOCATION
6967 037453 001020 000017 1B8!@17 ;EXECUTE A UUO WITH INDIRECTING
6968 037454 254 04 0 00 037455 HALT .+1 ;UUO DID NOT TRAP
6969 037455 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6970 037456 603 00 0 00 000020 TLNE 0,20 ;INDIRECT BIT CLEAR?
6971 STOP^
6972 037457 254 04 0 00 037460 HALT .+1 ;INSTRUCTION FAILED REPLACE
6973 037460 254 00 0 00 037461 JRST .+1 ;WITH JRST BACK^
6974
6975 ;TEST THAT BOTH INDEX AND INDIRECT BITS CLEAR WHEN EXECUTING A UUO
6976
6977 037461 UUOBTH: CLRBTH^
6978 037461 700 04 0 00 261600 CLRAPR
6979 037462 700 14 0 00 031577 CLRPI^
6980 037463 403 17 0 00 000000 SETZB 17,0 ;CLEAR INDEX FIELD
6981 037464 200 00 0 00 040457 MOVE [JRST .+4] ;SET UP TRAP INSTR.
6982 037465 202 00 0 00 000041 MOVEM 41 ;INTO TRAP LOCATION
6983 037466 001037 000017 1B8!@17(17) ;EXECUTE WITH INDIRECT AND INDEX
6984 037467 254 04 0 00 037470 HALT .+1 ;UUO DID NOT TRAP
6985 037470 200 00 0 00 000040 MOVE 0,40 ;GET UUO
6986 037471 603 00 0 00 000037 TLNE 0,37 ;INDIRECT OR INDEX BITS STILL SET?
6987 STOP^
6988 037472 254 04 0 00 037473 HALT .+1 ;INSTRUCTION FAILED REPLACE
6989 037473 254 00 0 00 037474 JRST .+1 ;WITH JRST BACK^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 42
DSKAH1 MAC 31-Mar-78 11:13 TEST UUOS OUT OF FAST MEMORY SEQ 0160
6990 SUBTTL TEST UUOS OUT OF FAST MEMORY
6991
6992 FMUUO 0^
6993 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17
6994 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE
6995 ;CORRECT PC.
6996
6997 000000 AC=0 ;TESTED AC
6998
6999 TSET^
7000 037474 %X=. ;DEFINE %X TO SAVE
7001 037474 201 00 0 00 037474 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
7002 037475 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
7003 037476 200 00 0 00 040332 MOVE 0,[XWD 1000,0] ;SET UP UUO INTO AC 0 TO EXECUTE
7004 037477 200 13 0 00 040460 MOVE 13,[JSP 11,..0307] ;SET UP UUO TRAP INSTRUCTION
7005 037500 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41
7006 037501 200 01 0 00 040461 MOVE 0+1,[JRST ..0310] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP
7007 037502 254 00 0 00 000000 JRST 0 ;GO EXECUTE UUO
7008 037503 254 04 0 00 037504 ..0310: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY
7009 037504 254 00 0 00 037505 JRST .+1 ;LOOP TO %FMUUO IF ERROR
7010 037505 405 11 0 00 777777 ..0307: ANDI 11,-1 ;MASK FLAGS
7011 037506 302 11 0 00 000001 CAIE 11,0+1 ;PC STORED SHOULD = 0 +1
7012 STOP^
7013 037507 254 04 0 00 037510 HALT .+1 ;INSTRUCTION FAILED REPLACE
7014 037510 254 00 0 00 037511 JRST .+1 ;WITH JRST BACK^
7015 TGET^^
7016 037511 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
7017 037512 302 00 0 00 037474 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
7018 STOP2^^
7019 037513 254 04 0 00 037514 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
7020 037514 254 00 0 00 037515 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
7021
7022 FMUUO 1^
7023 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17
7024 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE
7025 ;CORRECT PC.
7026
7027 000001 AC=1 ;TESTED AC
7028
7029 TSET^
7030 037515 %X=. ;DEFINE %X TO SAVE
7031 037515 201 00 0 00 037515 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
7032 037516 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
7033 037517 200 01 0 00 040332 MOVE 1,[XWD 1000,0] ;SET UP UUO INTO AC 1 TO EXECUTE
7034 037520 200 13 0 00 040462 MOVE 13,[JSP 11,..0311] ;SET UP UUO TRAP INSTRUCTION
7035 037521 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41
7036 037522 200 02 0 00 040463 MOVE 1+1,[JRST ..0312] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP
7037 037523 254 00 0 00 000001 JRST 1 ;GO EXECUTE UUO
7038 037524 254 04 0 00 037525 ..0312: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY
7039 037525 254 00 0 00 037526 JRST .+1 ;LOOP TO %FMUUO IF ERROR
7040 037526 405 11 0 00 777777 ..0311: ANDI 11,-1 ;MASK FLAGS
7041 037527 302 11 0 00 000002 CAIE 11,1+1 ;PC STORED SHOULD = 1 +1
7042 STOP^
7043 037530 254 04 0 00 037531 HALT .+1 ;INSTRUCTION FAILED REPLACE
7044 037531 254 00 0 00 037532 JRST .+1 ;WITH JRST BACK^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 42-1
DSKAH1 MAC 31-Mar-78 11:13 TEST UUOS OUT OF FAST MEMORY SEQ 0161
7045 TGET^^
7046 037532 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
7047 037533 302 00 0 00 037515 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
7048 STOP2^^
7049 037534 254 04 0 00 037535 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
7050 037535 254 00 0 00 037536 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
7051
7052 FMUUO 2^
7053 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17
7054 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE
7055 ;CORRECT PC.
7056
7057 000002 AC=2 ;TESTED AC
7058
7059 TSET^
7060 037536 %X=. ;DEFINE %X TO SAVE
7061 037536 201 00 0 00 037536 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
7062 037537 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
7063 037540 200 02 0 00 040332 MOVE 2,[XWD 1000,0] ;SET UP UUO INTO AC 2 TO EXECUTE
7064 037541 200 13 0 00 040464 MOVE 13,[JSP 11,..0313] ;SET UP UUO TRAP INSTRUCTION
7065 037542 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41
7066 037543 200 03 0 00 040465 MOVE 2+1,[JRST ..0314] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP
7067 037544 254 00 0 00 000002 JRST 2 ;GO EXECUTE UUO
7068 037545 254 04 0 00 037546 ..0314: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY
7069 037546 254 00 0 00 037547 JRST .+1 ;LOOP TO %FMUUO IF ERROR
7070 037547 405 11 0 00 777777 ..0313: ANDI 11,-1 ;MASK FLAGS
7071 037550 302 11 0 00 000003 CAIE 11,2+1 ;PC STORED SHOULD = 2 +1
7072 STOP^
7073 037551 254 04 0 00 037552 HALT .+1 ;INSTRUCTION FAILED REPLACE
7074 037552 254 00 0 00 037553 JRST .+1 ;WITH JRST BACK^
7075 TGET^^
7076 037553 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
7077 037554 302 00 0 00 037536 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
7078 STOP2^^
7079 037555 254 04 0 00 037556 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
7080 037556 254 00 0 00 037557 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
7081
7082 FMUUO 4^
7083 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17
7084 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE
7085 ;CORRECT PC.
7086
7087 000004 AC=4 ;TESTED AC
7088
7089 TSET^
7090 037557 %X=. ;DEFINE %X TO SAVE
7091 037557 201 00 0 00 037557 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
7092 037560 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
7093 037561 200 04 0 00 040332 MOVE 4,[XWD 1000,0] ;SET UP UUO INTO AC 4 TO EXECUTE
7094 037562 200 13 0 00 040466 MOVE 13,[JSP 11,..0315] ;SET UP UUO TRAP INSTRUCTION
7095 037563 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41
7096 037564 200 05 0 00 040467 MOVE 4+1,[JRST ..0316] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP
7097 037565 254 00 0 00 000004 JRST 4 ;GO EXECUTE UUO
7098 037566 254 04 0 00 037567 ..0316: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY
7099 037567 254 00 0 00 037570 JRST .+1 ;LOOP TO %FMUUO IF ERROR
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 42-2
DSKAH1 MAC 31-Mar-78 11:13 TEST UUOS OUT OF FAST MEMORY SEQ 0162
7100 037570 405 11 0 00 777777 ..0315: ANDI 11,-1 ;MASK FLAGS
7101 037571 302 11 0 00 000005 CAIE 11,4+1 ;PC STORED SHOULD = 4 +1
7102 STOP^
7103 037572 254 04 0 00 037573 HALT .+1 ;INSTRUCTION FAILED REPLACE
7104 037573 254 00 0 00 037574 JRST .+1 ;WITH JRST BACK^
7105 TGET^^
7106 037574 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
7107 037575 302 00 0 00 037557 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
7108 STOP2^^
7109 037576 254 04 0 00 037577 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
7110 037577 254 00 0 00 037600 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
7111
7112 FMUUO 5^
7113 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17
7114 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE
7115 ;CORRECT PC.
7116
7117 000005 AC=5 ;TESTED AC
7118
7119 TSET^
7120 037600 %X=. ;DEFINE %X TO SAVE
7121 037600 201 00 0 00 037600 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
7122 037601 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
7123 037602 200 05 0 00 040332 MOVE 5,[XWD 1000,0] ;SET UP UUO INTO AC 5 TO EXECUTE
7124 037603 200 13 0 00 040470 MOVE 13,[JSP 11,..0317] ;SET UP UUO TRAP INSTRUCTION
7125 037604 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41
7126 037605 200 06 0 00 040471 MOVE 5+1,[JRST ..0320] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP
7127 037606 254 00 0 00 000005 JRST 5 ;GO EXECUTE UUO
7128 037607 254 04 0 00 037610 ..0320: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY
7129 037610 254 00 0 00 037611 JRST .+1 ;LOOP TO %FMUUO IF ERROR
7130 037611 405 11 0 00 777777 ..0317: ANDI 11,-1 ;MASK FLAGS
7131 037612 302 11 0 00 000006 CAIE 11,5+1 ;PC STORED SHOULD = 5 +1
7132 STOP^
7133 037613 254 04 0 00 037614 HALT .+1 ;INSTRUCTION FAILED REPLACE
7134 037614 254 00 0 00 037615 JRST .+1 ;WITH JRST BACK^
7135 TGET^^
7136 037615 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
7137 037616 302 00 0 00 037600 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
7138 STOP2^^
7139 037617 254 04 0 00 037620 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
7140 037620 254 00 0 00 037621 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
7141
7142 FMUUO 10^
7143 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17
7144 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE
7145 ;CORRECT PC.
7146
7147 000010 AC=10 ;TESTED AC
7148
7149 TSET^
7150 037621 %X=. ;DEFINE %X TO SAVE
7151 037621 201 00 0 00 037621 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
7152 037622 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
7153 037623 200 10 0 00 040332 MOVE 10,[XWD 1000,0] ;SET UP UUO INTO AC 10 TO EXECUTE
7154 037624 200 13 0 00 040472 MOVE 13,[JSP 11,..0321] ;SET UP UUO TRAP INSTRUCTION
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 42-3
DSKAH1 MAC 31-Mar-78 11:13 TEST UUOS OUT OF FAST MEMORY SEQ 0163
7155 037625 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41
7156 037626 200 11 0 00 040473 MOVE 10+1,[JRST ..0322] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP
7157 037627 254 00 0 00 000010 JRST 10 ;GO EXECUTE UUO
7158 037630 254 04 0 00 037631 ..0322: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY
7159 037631 254 00 0 00 037632 JRST .+1 ;LOOP TO %FMUUO IF ERROR
7160 037632 405 11 0 00 777777 ..0321: ANDI 11,-1 ;MASK FLAGS
7161 037633 302 11 0 00 000011 CAIE 11,10+1 ;PC STORED SHOULD = 10 +1
7162 STOP^
7163 037634 254 04 0 00 037635 HALT .+1 ;INSTRUCTION FAILED REPLACE
7164 037635 254 00 0 00 037636 JRST .+1 ;WITH JRST BACK^
7165 TGET^^
7166 037636 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
7167 037637 302 00 0 00 037621 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
7168 STOP2^^
7169 037640 254 04 0 00 037641 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
7170 037641 254 00 0 00 037642 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
7171
7172 FMUUO 12^
7173 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17
7174 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE
7175 ;CORRECT PC.
7176
7177 000012 AC=12 ;TESTED AC
7178
7179 TSET^
7180 037642 %X=. ;DEFINE %X TO SAVE
7181 037642 201 00 0 00 037642 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
7182 037643 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
7183 037644 200 12 0 00 040332 MOVE 12,[XWD 1000,0] ;SET UP UUO INTO AC 12 TO EXECUTE
7184 037645 200 13 0 00 040474 MOVE 13,[JSP 11,..0323] ;SET UP UUO TRAP INSTRUCTION
7185 037646 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41
7186 037647 200 13 0 00 040475 MOVE 12+1,[JRST ..0324] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP
7187 037650 254 00 0 00 000012 JRST 12 ;GO EXECUTE UUO
7188 037651 254 04 0 00 037652 ..0324: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY
7189 037652 254 00 0 00 037653 JRST .+1 ;LOOP TO %FMUUO IF ERROR
7190 037653 405 11 0 00 777777 ..0323: ANDI 11,-1 ;MASK FLAGS
7191 037654 302 11 0 00 000013 CAIE 11,12+1 ;PC STORED SHOULD = 12 +1
7192 STOP^
7193 037655 254 04 0 00 037656 HALT .+1 ;INSTRUCTION FAILED REPLACE
7194 037656 254 00 0 00 037657 JRST .+1 ;WITH JRST BACK^
7195 TGET^^
7196 037657 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
7197 037660 302 00 0 00 037642 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
7198 STOP2^^
7199 037661 254 04 0 00 037662 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
7200 037662 254 00 0 00 037663 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
7201
7202 FMUUO 17^
7203 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17
7204 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE
7205 ;CORRECT PC.
7206
7207 000017 AC=17 ;TESTED AC
7208
7209 TSET^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 42-4
DSKAH1 MAC 31-Mar-78 11:13 TEST UUOS OUT OF FAST MEMORY SEQ 0164
7210 037663 %X=. ;DEFINE %X TO SAVE
7211 037663 201 00 0 00 037663 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
7212 037664 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
7213 037665 200 17 0 00 040332 MOVE 17,[XWD 1000,0] ;SET UP UUO INTO AC 17 TO EXECUTE
7214 037666 200 13 0 00 040476 MOVE 13,[JSP 11,..0325] ;SET UP UUO TRAP INSTRUCTION
7215 037667 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41
7216 037670 200 00 0 00 040477 MOVE 17+1,[JRST ..0326] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP
7217 037671 254 00 0 00 000017 JRST 17 ;GO EXECUTE UUO
7218 037672 254 04 0 00 037673 ..0326: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY
7219 037673 254 00 0 00 037674 JRST .+1 ;LOOP TO %FMUUO IF ERROR
7220 037674 405 11 0 00 777777 ..0325: ANDI 11,-1 ;MASK FLAGS
7221 037675 302 11 0 00 000020 CAIE 11,17+1 ;PC STORED SHOULD = 17 +1
7222 STOP^
7223 037676 254 04 0 00 037677 HALT .+1 ;INSTRUCTION FAILED REPLACE
7224 037677 254 00 0 00 037700 JRST .+1 ;WITH JRST BACK^
7225 TGET^^
7226 037700 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
7227 037701 302 00 0 00 037663 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
7228 STOP2^^
7229 037702 254 04 0 00 037703 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
7230 037703 254 00 0 00 037704 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 43
DSKAH1 MAC 31-Mar-78 11:13 SIMPLE MUUO TEST SEQ 0165
7231 SUBTTL SIMPLE MUUO TEST
7232 ;TEST MONITOR UUO "0" TO SEE IF IT TRAPS AT ALL
7233 ;TRAPPING TO 40 CAUSES IT TO HALT. TRAPPING TO SUPERVISOR KERNAL PUBLIC
7234 ;OR CONCEALED IS ALLOWED AND IS CONSIDERED CORRECT.
7235
7236 TSET^
7237 037704 %X=. ;DEFINE %X TO SAVE
7238 037704 201 00 0 00 037704 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
7239 037705 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
7240 037706 265 00 0 00 037707 JSP .+1 ;GET FLAGS
7241 037707 603 00 0 00 010000 TLNE USERF ;IF USER MODE THEN EXIT
7242 037710 254 00 0 00 037756 JRST USRIO0 ;SKIP IF USER MODE TO USER IO TEST
7243
7244 CLRBTH^
7245 037711 700 04 0 00 261600 CLRAPR
7246 037712 700 14 0 00 031577 CLRPI^
7247 037713 201 00 0 00 037736 XMUUO: MOVEI XMUPC ;SET UP A TRAP FOR MONITOR UUO
7248 037714 202 00 0 00 000430 MOVEM KNTRP ;INTO A POSSIBLE TRAP LOCATIONS
7249 037715 202 00 0 00 000431 MOVEM KTRP
7250 037716 202 00 0 00 000432 MOVEM SNTRP
7251 037717 202 00 0 00 000433 MOVEM STRP
7252 037720 202 00 0 00 000434 MOVEM CNTRP
7253 037721 202 00 0 00 000435 MOVEM CTRP
7254 037722 202 00 0 00 000436 MOVEM PNTRP
7255 037723 202 00 0 00 000437 MOVEM PTRP
7256 037724 476 00 0 00 000424 SETOM MUUO ;SET THE TRAP LOCATIONS
7257 037725 476 00 0 00 000425 SETOM MUUO+1 ;TO ENABLE CHECKING
7258 037726 200 00 0 00 040500 MOVE [JRST MUHLT] ;SET UP A LUUO TRAP HALT
7259 037727 202 00 0 00 000041 MOVEM 41
7260 037730 402 00 0 00 037731 SETZM .+1 ;MAKE A MUUO IN THE NEXT LOCATION
7261 037731 000000 000000 XMUUO0: 0 ;THIS IS A MONITOR UUO
7262 037732 254 04 0 00 037733 HALT .+1 ;THE UUO DIDN'T TRAP
7263 037733 254 04 0 00 037734 HALT .+1 ;MUUO SKIPPED?
7264 037734 254 04 0 00 037735 MUHLT: HALT .+1 ;UUO TRAPPED TO 40(DECODE AS LUUO?)
7265 037735 254 04 0 00 037736 HALT .+1 ;SPARE HALT
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 44
DSKAH1 MAC 31-Mar-78 11:13 SIMPLE MUUO TEST SEQ 0166
7266 037736 XMUPC: TGET^
7267 037736 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
7268 037737 302 00 0 00 037704 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
7269 STOP2^^
7270 037740 254 04 0 00 037741 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
7271 037741 254 00 0 00 037742 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
7272 037742 332 00 0 00 000424 SKIPE MUUO ;MON UUO "0" DIDN'T STORE A ZERO
7273 STOP^
7274 037743 254 04 0 00 037744 HALT .+1 ;INSTRUCTION FAILED REPLACE
7275 037744 254 00 0 00 037745 JRST .+1 ;WITH JRST BACK^
7276 037745 550 00 0 00 000425 HRRZ MUUO+1 ;GET THE STORED PC
7277 037746 302 00 0 00 037732 CAIE XMUUO0+1 ;DID WE STORE THE CORRECT PC?
7278 STOP^
7279 037747 254 04 0 00 037750 HALT .+1 ;INSTRUCTION FAILED REPLACE
7280 037750 254 00 0 00 037751 JRST .+1 ;WITH JRST BACK^
7281 037751 255 00 0 00 000000 JFCL
7282 TGET^
7283 037752 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
7284 037753 302 00 0 00 037704 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
7285 STOP2^^
7286 037754 254 04 0 00 037755 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
7287 037755 254 00 0 00 037756 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 45
DSKAH1 MAC 31-Mar-78 11:13 TEST THE USER IOT BIT SEQ 0167
7288 SUBTTL TEST THE USER IOT BIT
7289 ;CHECK CLEARING AND SETTING OF THE USER IOT BIT
7290
7291 037756 USRIO0: TSET^
7292 037756 %X=. ;DEFINE %X TO SAVE
7293 037756 201 00 0 00 037756 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
7294 037757 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
7295 CLRBTH^
7296 037760 700 04 0 00 261600 CLRAPR
7297 037761 700 14 0 00 031577 CLRPI^
7298 037762 336 00 0 00 030042 SKIPN MONFLG ;IN SPECIAL USER MODE?
7299 037763 254 00 0 00 040017 JRST ENDIT ;YES LOOP TEST
7300 037764 254 02 1 00 037765 JRSTF @.+1 ;CLEAR BITS
7301 037765 000000 037766 0,,.+1 ;PC AND FLAGS
7302 037766 265 00 0 00 037767 JSP .+1 ;CHECK WHY USER I/O FLAG IS SET
7303 037767 603 00 0 00 004000 TLNE EXIOT ;SHOULD BE CLEAR VIA JRSTF
7304 STOP^
7305 037770 254 04 0 00 037771 HALT .+1 ;INSTRUCTION FAILED REPLACE
7306 037771 254 00 0 00 037772 JRST .+1 ;WITH JRST BACK^
7307 TGET^
7308 037772 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
7309 037773 302 00 0 00 037756 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
7310 STOP2^^
7311 037774 254 04 0 00 037775 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
7312 037775 254 00 0 00 037776 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
7313 037776 336 00 0 00 030042 SKIPN MONFLG ;IN USER MODE?
7314 037777 254 00 0 00 040017 JRST ENDIT ;YES CANNOT SET USER IO FLAG
7315 ;IN USER MODE
7316
7317 040000 USRIO1: TSET^
7318 040000 %X=. ;DEFINE %X TO SAVE
7319 040000 201 00 0 00 040000 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER
7320 040001 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^
7321 CLRBTH^
7322 040002 700 04 0 00 261600 CLRAPR
7323 040003 700 14 0 00 031577 CLRPI^
7324 040004 400 00 0 00 000000 SETZ 0 ;CLEAR 0
7325 040005 200 01 0 00 040501 MOVE 1,[1B6!.+2] ;FLAGS AND PC
7326 040006 254 02 0 01 000000 JRSTF (1) ;USER I/O FLAG DID
7327 040007 265 00 0 00 040010 JSP .+1 ;NOT SET
7328 040010 607 00 0 00 004000 TLNN EXIOT ;CHECK WHY BIT IS NOT SET
7329 STOP^
7330 040011 254 04 0 00 040012 HALT .+1 ;INSTRUCTION FAILED REPLACE
7331 040012 254 00 0 00 040013 JRST .+1 ;WITH JRST BACK^
7332 TGET^
7333 040013 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE
7334 040014 302 00 0 00 040000 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE
7335 STOP2^^
7336 040015 254 04 0 00 040016 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE
7337 040016 254 00 0 00 040017 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^
7338
7339 040017 402 00 0 00 040506 ENDIT: SETZM TNUMB ;CLEAR TEST NUMBER FLAG
7340 040020 254 00 0 00 030057 JRST BEGEND ;GO TO BEG/END SEQUENCE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 46
DSKAH1 MAC 31-Mar-78 11:13 IOT/PI/APR SUBROUTINES SEQ 0168
7341 SUBTTL IOT/PI/APR SUBROUTINES
7342
7343 ;HERE ARE SOME USEFUL SUBROUTINES FOR THE DIAGNOSTIC
7344
7345 ;THIS ROUTINE CLEARS ALL THE TRAP LOCATIONS(42-56)
7346
7347 040021 000000 000000 TRPCLR: 0 ;FOR PC RETURN
7348 040022 202 15 0 00 040511 MOVEM 15,XAC15# ;SAVE AC15
7349 040023 201 15 0 00 000042 MOVEI 15,42
7350 040024 402 00 1 00 000015 SETZM @15 ;CLEAR LOCATION
7351 040025 271 15 0 00 000001 ADDI 15,1 ;BUMP POINTER
7352 040026 307 15 0 00 000056 CAIG 15,56 ;DONE LAST?
7353 040027 254 00 0 00 040024 JRST .-3 ;LOOP
7354 040030 200 15 0 00 040511 MOVE 15,XAC15 ;RESTORE AC15
7355 040031 254 00 1 00 040021 JRST @TRPCLR
7356
7357 ;THIS ROUTINE PUTS A JSR TO A HALT INTO EACH TRAP LOCATION (42-57)
7358
7359 040032 000000 000000 HALTPI: 0 ;FOR RETURN PC
7360 040033 202 00 0 00 040507 MOVEM 0,XAC0# ;SAVE AC0
7361 040034 202 01 0 00 040510 MOVEM 1,XAC1# ;SAVE AC1
7362 040035 200 00 0 00 040502 MOVE [JSR HLTCK] ;PUT JSR INTO EACH TRAP LOCATION
7363 040036 201 01 0 00 000042 MOVEI 1,42 ;IN CASE INCORRECT INTERRUPT
7364 040037 202 00 1 00 000001 MOVEM @1 ;STORE
7365 040040 271 00 0 00 000004 ADDI 4
7366 040041 271 01 0 00 000002 ADDI 1,2
7367 040042 305 01 0 00 000060 CAIGE 1,60 ;DONE?
7368 040043 254 00 0 00 040037 JRST .-4
7369 040044 200 00 0 00 040507 MOVE 0,XAC0 ;RESTORE AC0
7370 040045 200 01 0 00 040510 MOVE 1,XAC1 ;AND AC1
7371 040046 254 00 1 00 040032 JRST @HALTPI ;RETURN
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 47
DSKAH1 MAC 31-Mar-78 11:13 IOT/PI/APR SUBROUTINES SEQ 0169
7372 ;THIS ROUTINE PUTS A JSR INTO EACH INTERRUPT LOCATION WHICH WILL
7373 ;IGNORE INTERRUPTS..
7374
7375 040047 000000 000000 TRAPPI: 0 ;FOR JSR
7376 040050 202 00 0 00 040507 MOVEM 0,XAC0# ;SAVE AC0
7377 040051 202 01 0 00 040510 MOVEM 1,XAC1# ;SAVE AC1
7378 040052 200 00 0 00 040503 MOVE [JSR TRPFIL] ;SET UP TRAP INSTRUCTION
7379 040053 201 01 0 00 000042 MOVEI 1,42
7380 040054 202 00 1 00 000001 MOVEM @1
7381 040055 271 01 0 00 000002 ADDI 1,2
7382 040056 271 00 0 00 000004 ADDI 0,4 ;STORAGE POINTER
7383 040057 305 01 0 00 000060 CAIGE 1,60 ;DONE?
7384 040060 254 00 0 00 040054 JRST .-4 ;NO LOOP
7385 040061 200 00 0 00 040507 MOVE 0,XAC0 ;RESTORE AC0
7386 040062 200 01 0 00 040510 MOVE 1,XAC1 ;AND AC1
7387 040063 254 00 1 00 040047 JRST @TRAPPI ;RETURN
7388
7389 ;THIS ROUTINE PLACES THE VALUE OF THE CHANNEL WHICH INTERRUPTED INTO
7390 ;AC0. IT DOES NOTHING ELSE (IT EFFECTIVLY IGNORES THE INTERRUPT).
7391
7392 040064 000000 000000 TRPFIL: 0
7393 040065 200 01 0 00 040064 MOVE 1,.-1
7394 040066 201 00 0 00 000001 MOVEI 1 ;POINTER
7395 040067 254 00 0 00 040121 JRST TPEND
7396 040070 000000 000000 0
7397 040071 200 01 0 00 040070 MOVE 1,.-1
7398 040072 201 00 0 00 000002 MOVEI 2
7399 040073 254 00 0 00 040121 JRST TPEND
7400 040074 000000 000000 0
7401 040075 200 01 0 00 040074 MOVE 1,.-1
7402 040076 201 00 0 00 000003 MOVEI 3
7403 040077 254 00 0 00 040121 JRST TPEND
7404 040100 000000 000000 0
7405 040101 200 01 0 00 040100 MOVE 1,.-1
7406 040102 201 00 0 00 000004 MOVEI 4
7407 040103 254 00 0 00 040121 JRST TPEND
7408 040104 000000 000000 0
7409 040105 200 01 0 00 040104 MOVE 1,.-1
7410 040106 201 00 0 00 000005 MOVEI 5
7411 040107 254 00 0 00 040121 JRST TPEND
7412 040110 000000 000000 0
7413 040111 200 01 0 00 040110 MOVE 1,.-1
7414 040112 201 00 0 00 000006 MOVEI 6
7415 040113 254 00 0 00 040121 JRST TPEND
7416 040114 000000 000000 0
7417 040115 200 01 0 00 040114 MOVE 1,.-1
7418 040116 201 00 0 00 000007 MOVEI 7
7419 040117 254 00 0 00 040121 JRST TPEND
7420 040120 254 04 0 00 040121 HALT TPEND ;"JRST @" OR "JRSTF @" FAILS
7421
7422 040121 332 00 0 00 030042 TPEND: SKIPE MONFLG ;IN USER MODE?
7423 040122 254 00 1 00 000001 JRST @1 ;RETURN
7424 040123 254 02 1 00 000001 JRSTF @1 ;RESTORE FLAGS
7425 040124 254 04 0 00 040124 HALT . ;JRST @ OR JRSTF FAILS ?
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 48
DSKAH1 MAC 31-Mar-78 11:13 IOT/PI/APR SUBROUTINES SEQ 0170
7426 ;THIS ROUTINE PLACES THE VALUE OF THE CHANNEL WHICH INTERRUPTED
7427 ;INTO AC0. AFTER WHICH IT WILL HALT. THIS ROUTINE IS CALLED WHENEVER AN
7428 ;INTERRUPT OCCURS ON AN INCORRECT CHANNEL.
7429 040125 000000 000000 HLTCK: 0
7430 040126 200 01 0 00 040125 MOVE 1,.-1
7431 040127 201 00 0 00 000001 MOVEI 1
7432 040130 254 04 1 00 000001 HALT @1
7433 040131 000000 000000 0
7434 040132 200 01 0 00 040131 MOVE 1,.-1
7435 040133 201 00 0 00 000002 MOVEI 2
7436 040134 254 04 1 00 000001 HALT @1
7437 040135 000000 000000 0
7438 040136 200 01 0 00 040135 MOVE 1,.-1
7439 040137 201 00 0 00 000003 MOVEI 3
7440 040140 254 04 1 00 000001 HALT @1
7441 040141 000000 000000 0
7442 040142 200 01 0 00 040141 MOVE 1,.-1
7443 040143 201 00 0 00 000004 MOVEI 4
7444 040144 254 04 1 00 000001 HALT @1
7445 040145 000000 000000 0
7446 040146 200 01 0 00 040145 MOVE 1,.-1
7447 040147 201 00 0 00 000005 MOVEI 5
7448 040150 254 04 1 00 000001 HALT @1
7449 040151 000000 000000 0
7450 040152 200 01 0 00 040151 MOVE 1,.-1
7451 040153 201 00 0 00 000006 MOVEI 6
7452 040154 254 04 1 00 000001 HALT @1
7453 040155 000000 000000 0
7454 040156 200 01 0 00 040155 MOVE 1,.-1
7455 040157 201 00 0 00 000007 MOVEI 7
7456 040160 254 04 1 00 000007 HALT @7
7457 040161 000000 000000 0
7458 040162 200 01 0 00 040161 MOVE 1,.-1
7459 040163 474 00 0 00 000000 SETO 0
7460 040164 254 04 0 00 040164 HALT . ;SHOULD NEVER GET HERE
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 49
DSKAH1 MAC 31-Mar-78 11:13 IOT/PI/APR TRAP ROUTINES SEQ 0171
7461 SUBTTL IOT/PI/APR TRAP ROUTINES
7462
7463 ;HERE LIE THE VARIOUS TRAPS TRAPS HERE REPRESENT ERRORS
7464 ;NOT CHECKED IN THE DIAGNOSTIC. THE LISTING SHOWS THE CAUSE OF THE
7465 ;TRAP.
7466
7467 040165 254 04 0 00 040165 UUO: HALT . ;ERROR-UUO (LOC 0 HAS PC OF UUO)
7468 040166 254 04 1 00 000425 MACHTP: HALT @425 ;KERNAL NO TRAP
7469 040167 254 04 1 00 000425 HALT @425 ;KERNAL TRAP
7470 040170 254 04 1 00 000425 HALT @425 ;SUPERVISOR NO TRAP
7471 040171 254 04 1 00 000425 HALT @425 ;SUPERVISOR TRAP
7472 040172 254 04 1 00 000425 HALT @425 ;CONCEAL NO TRAP
7473 040173 254 04 1 00 000425 HALT @425 ;CONCEAL TRAP
7474 040174 254 04 1 00 000425 HALT @425 ;PUBLIC NO TRAP
7475 040175 254 04 1 00 000425 HALT @425 ;PUBLIC TRAP
7476
7477 040176 254 04 0 00 040176 TABLE: HALT . ;PAGE FAILURE TRAP
7478 040177 255 00 0 00 000000 JFCL ;IGNORE ARITHMETIC TRAPS
7479 040200 254 04 0 00 040200 HALT .
7480 040201 254 04 0 00 040201 HALT .
7481 040202 777777 777777 -1 ;IF UUO THEN NOT =O-1
7482 040203 777777 777777 -1
7483 040204 000000 000000 0
7484 040205 000000 000000 0
7485 040206 000000 040166 MACHTP
7486 040207 000000 040167 MACHTP+1
7487 040210 000000 040170 MACHTP+2
7488 040211 000000 040171 MACHTP+3
7489 040212 000000 040172 MACHTP+4
7490 040213 000000 040173 MACHTP+5
7491 040214 000000 040174 MACHTP+6
7492 040215 000000 040175 MACHTP+7
7493
7494 040216 000000 000000 TRPSET: 0 ;FOR JSR
7495 040217 202 00 0 00 040507 MOVEM 0,XAC0# ;SAVE AC0
7496 040220 202 01 0 00 040510 MOVEM 1,XAC1# ;SAVE AC1
7497 040221 202 16 0 00 040512 MOVEM 16,XAC16# ;SAVE AC16
7498 040222 201 00 0 00 040176 MOVEI 0,TABLE ;TRAP TABLE POINTER
7499 040223 201 01 0 00 000420 MOVEI 1,420 ;STORAGE ADRESS
7500 040224 200 16 1 00 000000 MOVE 16,@0 ;PUT TRAP WORD INTO
7501 040225 202 16 0 01 000000 MOVEM 16,(1) ;TRAP LOCATION
7502 040226 271 00 0 00 000001 ADDI 0,1 ;BUMP
7503 040227 271 01 0 00 000001 ADDI 1,1 ;POINTERS
7504 040230 302 01 0 00 000440 CAIE 1,440 ;DONE LAST
7505 040231 254 00 0 00 040224 JRST .-5 ;NO KEEP LOOPING
7506 040232 200 00 0 00 040507 MOVE 0,XAC0 ;RESTORE AC0
7507 040233 200 01 0 00 040510 MOVE 1,XAC1 ;AND AC1
7508 040234 200 16 0 00 040512 MOVE 16,XAC16 ;AND AC16
7509 040235 254 00 1 00 040216 JRST @TRPSET ;RETURN TO CALLER
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0172
7510 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978
7511
7512 ;PROGRAM LITERALS
7513
7514 XLIST
7515 IFNDEF $LPAPER,<LIST>
7516 040236 LIT
7517 040236 123456 654321
7518 040237 777777 777777
7519 040240 265 00 0 00 040165
7520 040241 264 00 0 00 033317
7521 040242 264 00 0 00 033336
7522 040243 264 00 0 00 033355
7523 040244 264 00 0 00 033374
7524 040245 264 00 0 00 033413
7525 040246 264 00 0 00 033432
7526 040247 264 00 0 00 033451
7527 040250 264 00 0 00 033475
7528 040251 264 00 0 00 033513
7529 040252 264 00 0 00 033531
7530 040253 264 00 0 00 033547
7531 040254 264 00 0 00 033565
7532 040255 264 00 0 00 033603
7533 040256 264 00 0 00 033621
7534 040257 264 00 0 00 033645
7535 040260 264 00 0 00 033662
7536 040261 264 00 0 00 033677
7537 040262 264 00 0 00 033714
7538 040263 264 00 0 00 033731
7539 040264 264 00 0 00 033746
7540 040265 264 00 0 00 033763
7541 040266 264 00 0 00 034014
7542 040267 264 00 0 00 034041
7543 040270 264 00 0 00 034066
7544 040271 264 00 0 00 034113
7545 040272 264 00 0 00 034140
7546 040273 264 00 0 00 034165
7547 040274 264 00 0 00 034212
7548 040275 264 00 0 00 034237
7549 040276 264 00 0 00 034264
7550 040277 264 00 0 00 034311
7551 040300 264 00 0 00 034336
7552 040301 264 00 0 00 034363
7553 040302 264 00 0 00 034410
7554 040303 264 00 0 00 034435
7555 040304 264 00 0 00 034462
7556 040305 264 00 0 00 034507
7557 040306 264 00 0 00 034534
7558 040307 264 00 0 00 034561
7559 040310 264 00 0 00 034606
7560 040311 264 00 0 00 034633
7561 040312 264 00 0 00 034661
7562 040313 264 00 0 00 034700
7563 040314 264 00 0 00 034724
7564 040315 264 00 0 00 034750
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1-1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0173
7565 040316 264 00 0 00 034774
7566 040317 264 00 0 00 035020
7567 040320 264 00 0 00 035044
7568 040321 264 00 0 00 035070
7569 040322 264 00 0 00 035271
7570 040323 264 00 0 00 035323
7571 040324 264 00 0 00 035355
7572 040325 264 00 0 00 035407
7573 040326 264 00 0 00 035441
7574 040327 264 00 0 00 035473
7575 040330 264 00 0 00 035525
7576 040331 265 01 0 00 035551
7577 040332 001000 000000
7578 040333 265 01 0 00 035575
7579 040334 002000 000000
7580 040335 265 01 0 00 035621
7581 040336 003000 000000
7582 040337 265 01 0 00 035645
7583 040340 004000 000000
7584 040341 265 01 0 00 035671
7585 040342 005000 000000
7586 040343 265 01 0 00 035715
7587 040344 006000 000000
7588 040345 265 01 0 00 035741
7589 040346 007000 000000
7590 040347 265 01 0 00 035765
7591 040350 010000 000000
7592 040351 265 01 0 00 036011
7593 040352 011000 000000
7594 040353 265 01 0 00 036035
7595 040354 012000 000000
7596 040355 265 01 0 00 036061
7597 040356 013000 000000
7598 040357 265 01 0 00 036105
7599 040360 014000 000000
7600 040361 265 01 0 00 036131
7601 040362 015000 000000
7602 040363 265 01 0 00 036155
7603 040364 016000 000000
7604 040365 265 01 0 00 036201
7605 040366 017000 000000
7606 040367 265 01 0 00 036225
7607 040370 020000 000000
7608 040371 265 01 0 00 036251
7609 040372 021000 000000
7610 040373 265 01 0 00 036275
7611 040374 022000 000000
7612 040375 265 01 0 00 036321
7613 040376 023000 000000
7614 040377 265 01 0 00 036345
7615 040400 024000 000000
7616 040401 265 01 0 00 036371
7617 040402 025000 000000
7618 040403 265 01 0 00 036415
7619 040404 026000 000000
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1-2
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0174
7620 040405 265 01 0 00 036441
7621 040406 027000 000000
7622 040407 265 01 0 00 036465
7623 040410 030000 000000
7624 040411 265 01 0 00 036511
7625 040412 031000 000000
7626 040413 265 01 0 00 036535
7627 040414 032000 000000
7628 040415 265 01 0 00 036561
7629 040416 033000 000000
7630 040417 265 01 0 00 036605
7631 040420 034000 000000
7632 040421 265 01 0 00 036631
7633 040422 035000 000000
7634 040423 265 01 0 00 036655
7635 040424 036000 000000
7636 040425 265 01 0 00 036701
7637 040426 037000 000000
7638 040427 254 00 0 00 036726
7639 040430 254 00 0 00 036745
7640 040431 254 00 0 00 036764
7641 040432 254 00 0 00 037003
7642 040433 254 00 0 00 037022
7643 040434 254 00 0 00 037041
7644 040435 254 00 0 00 037060
7645 040436 254 00 0 00 037077
7646 040437 254 00 0 00 037116
7647 040440 254 00 0 00 037135
7648 040441 254 00 0 00 037154
7649 040442 254 00 0 00 037173
7650 040443 254 00 0 00 037212
7651 040444 254 00 0 00 037231
7652 040445 254 00 0 00 037250
7653 040446 254 00 0 00 037267
7654 040447 254 00 0 00 037306
7655 040450 254 00 0 00 037325
7656 040451 254 00 0 00 037344
7657 040452 254 00 0 00 037363
7658 040453 254 00 0 00 037402
7659 040454 254 00 0 00 037421
7660 040455 254 00 0 00 037442
7661 040456 254 00 0 00 037455
7662 040457 254 00 0 00 037470
7663 040460 265 11 0 00 037505
7664 040461 254 00 0 00 037503
7665 040462 265 11 0 00 037526
7666 040463 254 00 0 00 037524
7667 040464 265 11 0 00 037547
7668 040465 254 00 0 00 037545
7669 040466 265 11 0 00 037570
7670 040467 254 00 0 00 037566
7671 040470 265 11 0 00 037611
7672 040471 254 00 0 00 037607
7673 040472 265 11 0 00 037632
7674 040473 254 00 0 00 037630
DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1-3
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0175
7675 040474 265 11 0 00 037653
7676 040475 254 00 0 00 037651
7677 040476 265 11 0 00 037674
7678 040477 254 00 0 00 037672
7679 040500 254 00 0 00 037734
7680 040501 004000 040007
7681 040502 264 00 0 00 040125
7682 040503 264 00 0 00 040064
7683 LIST
7684 040504 000000 000000 ENDSLD: 0
7685
7686 IFDEF DEBUG,<
7687 PATCH: BLOCK DEBUG ;PATCHING AREA
7688 >
7689
7690 ;PROGRAM VARIABLES
7691 040505 VAR
7692
7693 IFDEF PGMEND,<
7694 040513 000000 000000 END: 0
7695 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 040514
CPU TIME USED 00:24.977
26P CORE USED
ABORT 92#
AC 6997# 7027# 7057# 7087# 7117# 7147# 7177# 7207# SEQ 0176
AC0 649#
ALTMGO 404#
APR 792 1084 1147 1154 1155 1161 1162 1168 1169 1198 1199 1206 1207 1213
1214 3435 3457 3479 3501 3523 3546 3568 3750 3768 3786 3804 3822 3840
3858 4884 4926 4948 4970 4992 5014 5036 5058 5077 5089 5091 5116 5156
5196 5236 5276 5316 5356
AROV 318#
AROVTP 318#
AROVU 318#
AST 519#
ATSIN 520#
BEGEND 400# 781 7340
BEGIN 307 308 331# 670 733 7695
BEGIN1 347# 401
BEGIOT 772#
BELL 523#
BIGPI1 2148#
BIGPI2 2253#
BIGPI3 2358#
BIGPI4 2463#
BIGPI5 2568#
BIGPI6 2673#
BIGPI7 2778#
BIGPIX 2883#
BIGPIY 2988#
BIGPIZ 3093#
BIS 318#
C2A 3881#
C2B 3899 3908#
C2C 3934 3943#
C2D 3969 3978#
C2E 4004 4013#
C2F 4039 4048#
C2G 4074 4083#
C2H 4109 4118#
C2I 4144 4153#
C2J 4179 4188#
C2K 4214 4223#
C2L 4249 4258#
C2M 4284 4293#
C2N 4319 4328#
C2O 4354 4363#
C2P 4389 4398#
C2Q 4424 4433#
C2R 4459 4468#
C2S 4494 4503#
C2T 4529 4538#
C2U 4564 4573#
C2V 4599 4609#
CCA 318#
CHAIN 112#
CHNOFF 318# 793 2179 2241 2284 2346 2389 2451 2494 2556 2599 2661 2704 2766
2809 2871 2914 2976 3019 3081 3124 3186 SEQ 0177
CHNON 318# 2158 2178 2199 2220 2240 2263 2283 2304 2325 2345 2368 2388 2409
2430 2450 2473 2493 2514 2535 2555 2578 2598 2619 2640 2660 2683 2703
2724 2745 2765 2788 2808 2829 2850 2870 2893 2913 2934 2955 2975 2998
3018 3039 3060 3080 3103 3123 3144 3165 3185 3748 3766 3784 3802 3820
3838 3856 3901 3936 3971 4006 4041 4076 4111 4146 4181 4216 4251 4286
4321 4356 4391 4426 4461 4496 4531 4566 4601 4640 4646 4674 4680 4708
4714 4742 4748 4776 4782 4810 4816 4844 4850 4883 4925 4947 4969 4991
5013 5035 5057 5076
CKCK0 4878#
CKCK1 4899#
CKI01 3598 3607#
CKI02 3617 3626#
CKI03 3636 3645#
CKI04 3655 3664#
CKI05 3674 3683#
CKI06 3693 3702#
CKI07 3712 3721#
CLKU 318#
CLOCKF 386#
CNTLC 403#
CNTRP 318# 7252
COMMA 512#
CONSW 387#
COUNTX 5109# 5109 5132 5149# 5149 5172 5189# 5189 5212 5229# 5229 5252 5269# 5269
5292 5309# 5309 5332 5349# 5349 5372
CPOPJ 407#
CPOPJ1 405#
CRLF 242 243 507#
CRLF2 246 247 509#
CRY0 318#
CRY1 318#
CSHFLG 566#
CSHMEM 567#
CTRP 318# 7253
CYCL60 560#
DCK 318#
DDT 651#
DDTLNK 126# 345
DDTSRT 345#
DEBUG 7686
DECVER 5# 12 27 366
DF22F 471#
DIAGMN 334#
DIAGNO 650#
DIAMON 652#
DING 98#
DOLLAR 526#
DSKUPD 371
EBIT0 318#
EBIT1 318#
EBIT10 318#
EBIT11 318#
EBIT12 318# SEQ 0178
EBIT13 318#
EBIT14 318#
EBIT15 318#
EBIT2 318#
EBIT3 318#
EBIT4 318#
EBIT5 318#
EBIT6 318#
EBIT7 318#
EBIT8 318#
EBIT9 318#
EFIELD 6333# 6361# 6389# 6417# 6445# 6473# 6501# 6529# 6557# 6585# 6613# 6641# 6669# 6697#
6725# 6753# 6781# 6809# 6837# 6864# 6891# 6918#
END 7694#
ENDFIX 646#
ENDIT 7299 7314 7339#
ENDSLD 7684#
ERMORE 420#
EROLD 36# 318
ERRPC 391#
ERRTLS 392#
ERSTOP 101#
EXCASB 34# 369
EXIOT 318# 7303 7328
FOV 318#
FOVU 318#
FRDLNK 124#
FSELNK 123#
FXU 318#
HALTPI 789 789# 7359# 7371
HLTCK 7362 7429#
HYPEN 517#
INHCSH 109#
INHPAG 106#
IOCLR 318# 5077
IOT0 779 1082#
IOT14 1111#
IOT15 1122#
IOT15A 1130#
IOT16 1138#
IOT17 1146#
IOT18 1153#
IOT18A 1176#
IOT19 1183#
IOT2 1087#
IOT20 1191#
IOT22 1198#
IOT24 1231#
IOT25 1249#
IOT26 1267#
IOT3 1094#
IOT33B 1276#
IOT34 1285# SEQ 0179
IOT35 1292#
IOT36 1300#
IOT38 1314#
IOT39 1321#
IOT40 1329#
IOT41 1336#
IOT42 1343#
IOT43 1350#
IOT44 1358#
IOT45 1365#
IOT46 1373#
IOT47 1380#
IOT48 1388#
IOT49 1395#
IOT50 1403#
IOT51 1410#
IOT6 1105#
IOTXX 1081#
IOTXXX 1079#
IOTXYZ 1418#
ITERAT 81# 364
ITRCH1 424#
ITRCNT 364# 714 720 724 730
JENDIS 4625#
JOB41 318#
JOBAPR 318#
JOBCNI 318#
JOBDDT 318#
JOBFF 318#
JOBOPC 318#
JOBREL 318#
JOBREN 318#
JOBSA 318#
JOBSYM 318#
JOBTPC 318#
JOBUSY 318#
JOBUUO 318#
JOBVER 318#
KAIFLG 381#
KLFLG 382#
KNTRP 318# 7248
KTRP 318# 7249
LACLK 318#
LACLKE 318#
LAPRAL 318#
LAPRP1 318# 3435
LAPRP2 318# 3457
LAPRP3 318# 3479
LAPRP4 318# 3501
LAPRP5 318# 3523
LAPRP6 318# 3546
LAPRP7 318# 3568
LCHNOF 318# SEQ 0180
LCHNON 318#
LCNTXT 318#
LCNXER 318# 792 1214
LCPAER 318# 792 1207
LCPSFT 318#
LCPWRF 318# 792 1199
LDATAF 318#
LDLNK 125# 334 336
LDNXER 318# 792 4926 4948 4970 4992 5014 5036 5058
LDPAER 318# 792 4926 4948 4970 4992 5014 5036 5058
LDPSFT 318#
LDPWRF 318# 792 4926 4948 4970 4992 5014 5036 5058
LEBXMH 318#
LEBXML 318#
LENXER 318# 3435 4884
LEPAER 318# 3479 4884
LEPSFT 318# 3457 3523 3750 3768 3786 3804 3822 3840 3858 4884 5116 5156 5196
5236 5276 5316 5356
LEPWRF 318# 3546 3568 4884
LEUPFW 318#
LEXCMP 318#
LFLGCL 318#
LFLGDS 318#
LFLGEN 318#
LFLGST 318#
LFP 521#
LINSTF 318#
LINT 318#
LIOCLR 318# 792
LLACBL 318#
LLDUSB 318#
LMBXMH 318#
LMBXML 318#
LNXMEN 318#
LNXMER 318# 1163 1216
LOOPER 100#
LPAREN 318#
LPARER 318# 1156 1209
LPFWPC 318#
LPGFTR 318#
LPICH1 318#
LPICH2 318#
LPICH3 318#
LPICH4 318#
LPICH5 318#
LPICH6 318#
LPICH7 318#
LPICHA 318#
LPICLR 318#
LPIIP1 318#
LPIIP2 318#
LPIIP3 318#
LPIIP4 318# SEQ 0181
LPIIP5 318#
LPIIP6 318#
LPIIP7 318#
LPIOFF 318#
LPION 318#
LPRCH1 318#
LPRCH2 318#
LPRCH3 318#
LPRCH4 318#
LPRCH5 318#
LPRCH6 318#
LPRCH7 318#
LPRFMH 318#
LPRFML 318#
LPSFT 318#
LPSFTE 318# 1170
LPWRFE 318#
LPWRFL 318# 1149 1201
LREQSE 318#
LRQCLR 318# 793 4646 4680 4714 4748 4782 4816 4850
LSECMO 318#
LSMODE 318#
LSNXER 318# 1161 1213 3435 4884 4926 4948 4970 4992 5014 5036 5058
LSPAER 318# 1154 1206 3479 4884 4926 4948 4970 4992 5014 5036 5058
LSPSFT 318# 1168 3457 3501 3523 3750 3768 3786 3804 3822 3840 3858 4884 4926
4948 4970 4992 5014 5036 5058 5116 5156 5196 5236 5276 5316 5356
LSPWRF 318# 1147 1198 3546 3568 4884 4926 4948 4970 4992 5014 5036 5058
LTBASH 318#
LTBASL 318#
LTRPAE 318#
LTRPEN 318#
LUSCMP 318#
LUUO 318#
LUUO1 451 452
LUUO10 451 456
LUUO11 451 456
LUUO12 451 457
LUUO13 451 457
LUUO14 451 458
LUUO15 451 458
LUUO16 451 459
LUUO17 451 459
LUUO2 451 453
LUUO20 451 460
LUUO21 451 460
LUUO22 451 461
LUUO23 451 461
LUUO24 451 462
LUUO25 451 462
LUUO26 451 463
LUUO27 451 463
LUUO3 451 453
LUUO30 451 464 SEQ 0182
LUUO31 451 464
LUUO32 451 465
LUUO33 451 465
LUUO4 451 454
LUUO5 451 454
LUUO6 451 455
LUUO7 451 455
LUUOI 318#
LWRITE 318#
MACHTP 7468# 7485 7486 7487 7488 7489 7490 7491 7492
MAPNEW 472#
MARGIN 394#
MCNVER 4# 12 27 366
MEMLOW 474#
MEMMAP 372
MEMSIZ 475#
MEMTOT 473#
MINUS 516#
MLUUO 5388# 5418# 5448# 5478# 5508# 5538# 5568# 5598# 5628# 5658# 5688# 5718# 5748# 5778#
5808# 5838# 5868# 5898# 5928# 5958# 5988# 6018# 6048# 6078# 6108# 6138# 6168# 6198#
6228# 6258# 6288#
MODDVC 108#
MODDVL 307 307# 367
MODDVU 308 308# 368
MODLNK 127# 331
MONCTL 384# 745
MONFLG 383# 708 741 776 3443 3465 3487 3509 3531 3554 3576 3609 3628 3647
3666 3685 3704 3723 3758 3776 3794 3812 3830 3848 3866 3891 3926 3961
3996 4031 4066 4101 4136 4171 4206 4241 4276 4311 4346 4381 4416 4451
4486 4521 4556 4591 7298 7313 7422
MONTEN 385# 713 726 732
MONTYP 598#
MPVU 318#
MUHLT 7258 7264#
MULT0 3854 3864#
MULT1 3836 3846#
MULT2 3818 3828#
MULT3 3800 3810#
MULT4 3782 3792#
MULT5 3764 3774#
MULT6 3746 3756#
MULTI 3741#
MUUO 318# 7256 7257 7272 7276
MUUOPC 318#
NOPNT 96#
NXMU 318#
OPRSEL 110#
OPTIME 486#
P 153 154 155 156 318# 406
PAG 318#
PALERS 102#
PAREA0 74#
PAREA1 75# 362 SEQ 0183
PAREA2 76# 363
PAREA3 77# 360
PAREA4 78# 361
PAREA5 79# 373
PAREA6 80# 374
PAREA7 373#
PAREA8 374#
PARU 318#
PASCNT 388# 719
PDISF 483#
PDLOVU 318#
PDOVTP 318#
PERIOD 513#
PFSTRT 340#
PGMEND 35# 7693
PGMNAM 365 746 749#
PI 793 1111 1277 1285 1286 1292 1293 1294 1314 1315 1321 1322 1323 1329
1330 1336 1337 1338 1343 1344 1350 1351 1352 1358 1359 1365 1366 1367
1373 1374 1380 1381 1382 1388 1389 1395 1396 1397 1403 1404 1410 1411
1412 1441 1445 1467 1471 1493 1497 1519 1523 1545 1549 1571 1575 1597
1601 1642 1646 1672 1676 1702 1706 1732 1736 1762 1766 1792 1796 1822
1826 1876 1878 1916 1918 1956 1958 1996 1998 2036 2038 2076 2078 2116
2118 2158 2159 2178 2179 2180 2199 2200 2201 2220 2221 2240 2241 2242
2263 2264 2283 2284 2285 2304 2305 2306 2325 2326 2345 2346 2347 2368
2369 2388 2389 2390 2409 2410 2411 2430 2431 2450 2451 2452 2473 2474
2493 2494 2495 2514 2515 2516 2535 2536 2555 2556 2557 2578 2579 2598
2599 2600 2619 2620 2621 2640 2641 2660 2661 2662 2683 2684 2703 2704
2705 2724 2725 2726 2745 2746 2765 2766 2767 2788 2789 2808 2809 2810
2829 2830 2831 2850 2851 2870 2871 2872 2893 2894 2913 2914 2915 2934
2935 2936 2955 2956 2975 2976 2977 2998 2999 3018 3019 3020 3039 3040
3041 3060 3061 3080 3081 3082 3103 3104 3123 3124 3125 3144 3145 3146
3165 3166 3185 3186 3187 3227 3231 3232 3256 3260 3261 3285 3289 3290
3314 3318 3319 3343 3347 3348 3372 3376 3377 3401 3405 3406 3434 3456
3478 3500 3522 3545 3567 3600 3619 3638 3657 3676 3695 3714 3748 3766
3784 3802 3820 3838 3856 3901 3902 3936 3937 3971 3972 4006 4007 4041
4042 4076 4077 4111 4112 4146 4147 4181 4182 4216 4217 4251 4252 4286
4287 4321 4322 4356 4357 4391 4392 4426 4427 4461 4462 4496 4497 4531
4532 4566 4567 4601 4602 4640 4646 4648 4674 4680 4682 4708 4714 4716
4742 4748 4750 4776 4782 4784 4810 4816 4818 4844 4850 4852 4883 4925
4947 4969 4991 5013 5035 5057 5076 5078 5090 5115 5155 5195 5235 5275
5315 5355
PICHN1 318#
PICHN2 318#
PICHN3 318#
PICHN4 318#
PICHN5 318#
PICHN6 318#
PICHN7 318#
PICHNA 318#
PICLR 318# 793 1878 1918 1958 1998 2038 2078 2118 2200 2305 2410 2515 2620
2725 2830 2935 3040 3145 3231 3260 3289 3318 3347 3376 3405 5090
PIOFF 318# 793
PION 318# 1441 1467 1493 1519 1545 1571 1597 3227 3256 3285 3314 3343 3372 SEQ 0184
3401 3748 3766 3784 3802 3820 3838 3856 3901 3936 3971 4006 4041 4076
4111 4146 4181 4216 4251 4286 4321 4356 4391 4426 4461 4496 4531 4566
4601 4640 4646 4674 4680 4708 4714 4742 4748 4776 4782 4810 4816 4844
4850 4883 4925 4947 4969 4991 5013 5035 5057 5076 5079
PIOT00 1427#
PIOT01 1623#
PIOT02 1849#
PIOT03 3211#
PLIST 552# 552
PLISTE 552 554#
PLISTS 553#
PLUS 518#
PNTENB 482#
PNTEXT 361#
PNTFLG 481#
PNTINH 484#
PNTLPT 97#
PNTNAM 360#
PNTRP 318# 7254
PNTSPC 485#
PTRP 318# 7255
PVPAGI 579#
QUEST 524#
RADIX 527#
RADLSC 529#
RADLSP 528#
RANDBS 362#
REENTR 342#
RELIAB 104#
REPT 318#
REPT1 318#
REPTU 440#
REQSET 318# 1642 1672 1702 1732 1762 1792 1822 1876 1916 1956 1996 2036 2076
2116 3227 3256 3285 3314 3343 3372 3401 3902 3937 3972 4007 4042 4077
4112 4147 4182 4217 4252 4287 4322 4357 4392 4427 4462 4497 4532 4567
4602 4640 4674 4708 4742 4776 4810 4844
RESET1 5073#
RESET2 5086#
RESRT1 417#
RESRT2 418#
RETURN 349# 728 734
RSTART 93#
RTP 522#
RUNFLG 389#
SADR1 62# 338
SADR10 71# 354
SADR11 72# 355
SADR2 63# 340
SADR3 64# 342
SADR4 65#
SADR5 66# 403
SADR6 67# 404
SADR7 68# 351 SEQ 0185
SADR8 69# 352
SADR9 70# 353
SBINIT 166 348#
SCOPE 441#
SFSTRT 338#
SLASH 525#
SM10 629#
SNTRP 318# 7250
SPACE 514#
SRTDDT 344#
START 332 711 715 737#
START1 351#
START2 352#
START3 353#
START4 354#
START5 355#
STARTA 62 63 64 65 66 67 68 69 70 71 72 347 725 731
744 747 769#
STRP 318# 7251
SUBLNK 128# 348
SWPTAB 635#
SWTEXR 363#
SYSEXR 336#
TAB 515#
TABLE 7477# 7498
TESTPC 390#
TICKS 393#
TN0 318#
TN1 318#
TNUMB 1104# 1104 1222 1230# 1230 1240 1248# 1248 1258 1266# 1266 1437# 1437 1450
1463# 1463 1476 1489# 1489 1502 1515# 1515 1528 1541# 1541 1554 1567# 1567
1580 1593# 1593 1606 1638# 1638 1651 1668# 1668 1681 1698# 1698 1711 1728#
1728 1741 1758# 1758 1771 1788# 1788 1801 1818# 1818 1831 1872# 1872 1887
1912# 1912 1927 1952# 1952 1967 1992# 1992 2007 2032# 2032 2047 2072# 2072
2087 2112# 2112 2127 2154# 2154 2165 2173# 2173 2186 2194# 2194 2207 2215#
2215 2227 2235# 2235 2247 2259# 2259 2270 2278# 2278 2291 2299# 2299 2312
2320# 2320 2332 2340# 2340 2352 2364# 2364 2375 2383# 2383 2396 2404# 2404
2417 2425# 2425 2437 2445# 2445 2457 2469# 2469 2480 2488# 2488 2501 2509#
2509 2522 2530# 2530 2542 2550# 2550 2562 2574# 2574 2585 2593# 2593 2606
2614# 2614 2627 2635# 2635 2647 2655# 2655 2667 2679# 2679 2690 2698# 2698
2711 2719# 2719 2732 2740# 2740 2752 2760# 2760 2772 2784# 2784 2795 2803#
2803 2816 2824# 2824 2837 2845# 2845 2857 2865# 2865 2877 2889# 2889 2900
2908# 2908 2921 2929# 2929 2942 2950# 2950 2962 2970# 2970 2982 2994# 2994
3005 3013# 3013 3026 3034# 3034 3047 3055# 3055 3067 3075# 3075 3087 3099#
3099 3110 3118# 3118 3131 3139# 3139 3152 3160# 3160 3172 3180# 3180 3192
3223# 3223 3237 3252# 3252 3266 3281# 3281 3295 3310# 3310 3324 3339# 3339
3353 3368# 3368 3382 3397# 3397 3411 3884# 3884 3911 3919# 3919 3946 3954#
3954 3981 3989# 3989 4016 4024# 4024 4051 4059# 4059 4086 4094# 4094 4121
4129# 4129 4156 4164# 4164 4191 4199# 4199 4226 4234# 4234 4261 4269# 4269
4296 4304# 4304 4331 4339# 4339 4366 4374# 4374 4401 4409# 4409 4436 4444#
4444 4471 4479# 4479 4506 4514# 4514 4541 4549# 4549 4576 4584# 4584 4611
4637# 4637 4653 4671# 4671 4687 4705# 4705 4721 4739# 4739 4755 4773# 4773
4789 4807# 4807 4823 4841# 4841 4857 5107# 5107 5121 5147# 5147 5161 5187# SEQ 0186
5187 5201 5227# 5227 5241 5267# 5267 5281 5307# 5307 5321 5347# 5347 5361
5392# 5392 5409 5422# 5422 5439 5452# 5452 5469 5482# 5482 5499 5512# 5512
5529 5542# 5542 5559 5572# 5572 5589 5602# 5602 5619 5632# 5632 5649 5662#
5662 5679 5692# 5692 5709 5722# 5722 5739 5752# 5752 5769 5782# 5782 5799
5812# 5812 5829 5842# 5842 5859 5872# 5872 5889 5902# 5902 5919 5932# 5932
5949 5962# 5962 5979 5992# 5992 6009 6022# 6022 6039 6052# 6052 6069 6082#
6082 6099 6112# 6112 6129 6142# 6142 6159 6172# 6172 6189 6202# 6202 6219
6232# 6232 6249 6262# 6262 6279 6292# 6292 6309 6337# 6337 6349 6365# 6365
6377 6393# 6393 6405 6421# 6421 6433 6449# 6449 6461 6477# 6477 6489 6505#
6505 6517 6533# 6533 6545 6561# 6561 6573 6589# 6589 6601 6617# 6617 6629
6645# 6645 6657 6673# 6673 6685 6701# 6701 6713 6729# 6729 6741 6757# 6757
6769 6785# 6785 6797 6813# 6813 6825 6841# 6841 6853 6868# 6868 6880 6895#
6895 6907 6922# 6922 6934 7002# 7002 7016 7032# 7032 7046 7062# 7062 7076
7092# 7092 7106 7122# 7122 7136 7152# 7152 7166 7182# 7182 7196 7212# 7212
7226 7239# 7239 7267 7283 7294# 7294 7308 7320# 7320 7333 7339
TOTALS 94#
TPEND 7395 7399 7403 7407 7411 7415 7419 7420 7422#
TRAPPI 788 7375# 7387
TRP0A 3432 3441#
TRP1A 3454 3463#
TRP2A 3476 3485#
TRP3A 3498 3507#
TRP3TP 318#
TRP4A 3520 3529#
TRP5A 3543 3552#
TRP6A 3565 3574#
TRPCLR 790 7347# 7355
TRPFIL 7378 7392#
TRPSET 1085 7494# 7509
TTNBRF 573#
TTYFIL 489#
TTYSPD 490#
TXTINH 105#
UBAVEC 318#
USER 380# 704 707 709 710 721 737# 737 740 742 743 772 775 777
778
USERF 40# 318# 706 739 774 3446 3468 3490 3512 3534 3557 3579 3587 3612
3631 3650 3669 3688 3707 3726 3761 3779 3797 3815 3833 3851 3869 3894
3929 3964 3999 4034 4069 4104 4139 4174 4209 4244 4279 4314 4349 4384
4419 4454 4489 4524 4559 4594 7241
USRASB 370
USRCRF 499#
USRIO0 7242 7291#
USRIO1 7317#
USRLFF 498#
UUO 3430 7467#
UUO01 5384#
UUO02 5404 5414#
UUO03 5434 5444#
UUO04 5464 5474#
UUO05 5494 5504#
UUO06 5524 5534#
UUO07 5554 5564# SEQ 0187
UUO10 5584 5594#
UUO11 5614 5624#
UUO12 5644 5654#
UUO13 5674 5684#
UUO14 5704 5714#
UUO15 5734 5744#
UUO16 5764 5774#
UUO17 5794 5804#
UUO20 5824 5834#
UUO21 5854 5864#
UUO22 5884 5894#
UUO23 5914 5924#
UUO24 5944 5954#
UUO25 5974 5984#
UUO26 6004 6014#
UUO27 6034 6044#
UUO30 6064 6074#
UUO31 6094 6104#
UUO32 6124 6134#
UUO33 6154 6164#
UUO34 6184 6194#
UUO35 6214 6224#
UUO36 6244 6254#
UUO37 6274 6284#
UUOBTH 6977#
UUODIS 452#
UUOEXT 408#
UUOIND 6945#
UUOINX 6961#
UUOPC 6304 6322#
UUOPCA 6323#
UUORTN 409#
UUOSKP 406#
X 1419# 1445 1455 1455# 1471 1481 1481# 1497 1507 1507# 1523 1533 1533# 1549
1559 1559# 1575 1585 1585# 1601 1611 1611# 1621# 1646 1656 1656# 1676 1686
1686# 1706 1716 1716# 1736 1746 1746# 1766 1776 1776# 1796 1806 1806# 1826
1836 1836# 1848# 1876 1878 1892 1892# 1916 1918 1932 1932# 1956 1958 1972
1972# 1996 1998 2012 2012# 2036 2038 2052 2052# 2076 2078 2092 2092# 2116
2118 2132 2132# 3209# 3232 3242 3242# 3261 3271 3271# 3290 3300 3300# 3319
3329 3329# 3348 3358 3358# 3377 3387 3387# 3406 3416 3416# 4623# 4639 4661
4661# 4673 4695 4695# 4707 4729 4729# 4741 4763 4763# 4775 4797 4797# 4809
4831 4831# 4843 4865 4865# 4898# 4926 4935 4935# 4948 4957 4957# 4970 4979
4979# 4992 5001 5001# 5014 5023 5023# 5036 5045 5045# 5058 5067 5067# 6321#
6333 6340 6344 6354 6354# 6361 6368 6372 6382 6382# 6389 6396 6400 6410
6410# 6417 6424 6428 6438 6438# 6445 6452 6456 6466 6466# 6473 6480 6484
6494 6494# 6501 6508 6512 6522 6522# 6529 6536 6540 6550 6550# 6557 6564
6568 6578 6578# 6585 6592 6596 6606 6606# 6613 6620 6624 6634 6634# 6641
6648 6652 6662 6662# 6669 6676 6680 6690 6690# 6697 6704 6708 6718 6718#
6725 6732 6736 6746 6746# 6753 6760 6764 6774 6774# 6781 6788 6792 6802
6802# 6809 6816 6820 6830 6830# 6832# 6837 6844 6848 6859# 6864 6871 6875
6886# 6891 6898 6902 6913# 6918 6925 6929 6939#
XAC0 7360# 7360 7369 7376# 7376 7385 7495# 7495 7506
XAC1 7361# 7361 7370 7377# 7377 7386 7496# 7496 7507 SEQ 0188
XAC15 7348# 7348 7354
XAC16 7497# 7497 7508
XMUPC 7247 7266#
XMUUO 7247#
XMUUO0 7261# 7277
Y 1622# 1642 1657 1657# 1672 1687 1687# 1702 1717 1717# 1732 1747 1747# 1762
1777 1777# 1792 1807 1807# 1822 1837 1837# 3210# 3227 3243 3243# 3256 3272
3272# 3285 3301 3301# 3314 3330 3330# 3343 3359 3359# 3372 3388 3388# 3401
3417 3417#
Z1 4624# 4640 4646 4662 4662# 4674 4680 4696 4696# 4708 4714 4730 4730# 4742
4748 4764 4764# 4776 4782 4798 4798# 4810 4816 4832 4832# 4844 4850 4866
4866#
$$420 678#
$$421 679#
$$422 680#
$$423 681#
$$424 682#
$$425 683#
$$426 684#
$$427 685#
$$430 686#
$$431 687#
$$432 688#
$$433 689#
$$434 690#
$$435 691#
$$436 692#
$$437 693#
$$500 696#
$$501 697#
$$502 698#
$$503 699#
$$BEGI 666#
$$LOC 663# 700
$$MUUO 604#
$$OUTE 610#
$$STAR 666 667 704#
$$TAX1 622#
$$TAX2 623#
$$TOGG 616#
$$UUO 593#
$ACC0 431#
$BEGEN 673#
$BEND1 401#
$BEND2 402#
$CHRIN 492#
$CRLF 494#
$DDT 657#
$DEVCH 318#
$DSKUP 371#
$DVOFF 488#
$EMODE 369#
$FFF 496# SEQ 0189
$IBUF 544#
$INEXT 546#
$INNM 545#
$ITRHL 412#
$ITRX1 413#
$LPAPE 7515
$MMAP 372#
$MODVL 367#
$MODVU 368#
$OBUF 535#
$ONETM 395#
$OUTEX 537#
$OUTNM 536#
$PAPER 318
$PARER 419#
$PNAME 365#
$PSHER 423#
$PVER 366#
$RSRTX 415#
$RSRTY 416#
$SPAG1 435#
$SPB1 721#
$SPBEN 673 719#
$SPBEX 722 730#
$SPBUS 724#
$START 332#
$STD 656# 670#
$STKIL 713#
$STL 658#
$STM 659#
$SVAPR 433#
$SVPAG 434#
$SVPI 432#
$SVUPC 438#
$SVUUO 437#
$TABF 495#
$TTCHR 491#
$TWCNT 487#
$TYPNB 493#
$UMODE 370#
$UORTX 410#
$USRHL 414#
$UUOER 411# 452
$VTF 497#
%ACTFL 444#
%ACTUL 445#
%COREC 443#
%CORFL 442#
%DISCR 446#
%ERHI1 585#
%ERHI2 586#
%ERHI3 587#
%X 1102# 1103 1223 1228# 1229 1241 1246# 1247 1259 1264# 1265 1435# 1436 1451 SEQ 0190
1461# 1462 1477 1487# 1488 1503 1513# 1514 1529 1539# 1540 1555 1565# 1566
1581 1591# 1592 1607 1636# 1637 1652 1666# 1667 1682 1696# 1697 1712 1726#
1727 1742 1756# 1757 1772 1786# 1787 1802 1816# 1817 1832 1870# 1871 1888
1910# 1911 1928 1950# 1951 1968 1990# 1991 2008 2030# 2031 2048 2070# 2071
2088 2110# 2111 2128 2152# 2153 2166 2171# 2172 2187 2192# 2193 2208 2213#
2214 2228 2233# 2234 2248 2257# 2258 2271 2276# 2277 2292 2297# 2298 2313
2318# 2319 2333 2338# 2339 2353 2362# 2363 2376 2381# 2382 2397 2402# 2403
2418 2423# 2424 2438 2443# 2444 2458 2467# 2468 2481 2486# 2487 2502 2507#
2508 2523 2528# 2529 2543 2548# 2549 2563 2572# 2573 2586 2591# 2592 2607
2612# 2613 2628 2633# 2634 2648 2653# 2654 2668 2677# 2678 2691 2696# 2697
2712 2717# 2718 2733 2738# 2739 2753 2758# 2759 2773 2782# 2783 2796 2801#
2802 2817 2822# 2823 2838 2843# 2844 2858 2863# 2864 2878 2887# 2888 2901
2906# 2907 2922 2927# 2928 2943 2948# 2949 2963 2968# 2969 2983 2992# 2993
3006 3011# 3012 3027 3032# 3033 3048 3053# 3054 3068 3073# 3074 3088 3097#
3098 3111 3116# 3117 3132 3137# 3138 3153 3158# 3159 3173 3178# 3179 3193
3221# 3222 3238 3250# 3251 3267 3279# 3280 3296 3308# 3309 3325 3337# 3338
3354 3366# 3367 3383 3395# 3396 3412 3882# 3883 3912 3917# 3918 3947 3952#
3953 3982 3987# 3988 4017 4022# 4023 4052 4057# 4058 4087 4092# 4093 4122
4127# 4128 4157 4162# 4163 4192 4197# 4198 4227 4232# 4233 4262 4267# 4268
4297 4302# 4303 4332 4337# 4338 4367 4372# 4373 4402 4407# 4408 4437 4442#
4443 4472 4477# 4478 4507 4512# 4513 4542 4547# 4548 4577 4582# 4583 4612
4635# 4636 4654 4669# 4670 4688 4703# 4704 4722 4737# 4738 4756 4771# 4772
4790 4805# 4806 4824 4839# 4840 4858 5105# 5106 5122 5145# 5146 5162 5185#
5186 5202 5225# 5226 5242 5265# 5266 5282 5305# 5306 5322 5345# 5346 5362
5390# 5391 5410 5420# 5421 5440 5450# 5451 5470 5480# 5481 5500 5510# 5511
5530 5540# 5541 5560 5570# 5571 5590 5600# 5601 5620 5630# 5631 5650 5660#
5661 5680 5690# 5691 5710 5720# 5721 5740 5750# 5751 5770 5780# 5781 5800
5810# 5811 5830 5840# 5841 5860 5870# 5871 5890 5900# 5901 5920 5930# 5931
5950 5960# 5961 5980 5990# 5991 6010 6020# 6021 6040 6050# 6051 6070 6080#
6081 6100 6110# 6111 6130 6140# 6141 6160 6170# 6171 6190 6200# 6201 6220
6230# 6231 6250 6260# 6261 6280 6290# 6291 6310 6335# 6336 6350 6363# 6364
6378 6391# 6392 6406 6419# 6420 6434 6447# 6448 6462 6475# 6476 6490 6503#
6504 6518 6531# 6532 6546 6559# 6560 6574 6587# 6588 6602 6615# 6616 6630
6643# 6644 6658 6671# 6672 6686 6699# 6700 6714 6727# 6728 6742 6755# 6756
6770 6783# 6784 6798 6811# 6812 6826 6839# 6840 6854 6866# 6867 6881 6893#
6894 6908 6920# 6921 6935 7000# 7001 7017 7030# 7031 7047 7060# 7061 7077
7090# 7091 7107 7120# 7121 7137 7150# 7151 7167 7180# 7181 7197 7210# 7211
7227 7237# 7238 7268 7284 7292# 7293 7309 7318# 7319 7334
..0001 1438#
..0002 1464#
..0003 1490#
..0004 1516#
..0005 1542#
..0006 1568#
..0007 1594#
..0010 1639#
..0011 1669#
..0012 1699#
..0013 1729#
..0014 1759#
..0015 1789#
..0016 1819#
..0017 1873# SEQ 0191
..0020 1913#
..0021 1953#
..0022 1993#
..0023 2033#
..0024 2073#
..0025 2113#
..0026 2155#
..0027 2260#
..0030 2365#
..0031 2470#
..0032 2575#
..0033 2680#
..0034 2785#
..0035 2890#
..0036 2995#
..0037 3100#
..0040 3224#
..0041 3253#
..0042 3282#
..0043 3311#
..0044 3340#
..0045 3369#
..0046 3398#
..0047 3443#
..0050 3465#
..0051 3487#
..0052 3509#
..0053 3531#
..0054 3554#
..0055 3576#
..0056 3609#
..0057 3628#
..0060 3647#
..0061 3666#
..0062 3685#
..0063 3704#
..0064 3723#
..0065 3750#
..0066 3758#
..0067 3768#
..0070 3776#
..0071 3786#
..0072 3794#
..0073 3804#
..0074 3812#
..0075 3822#
..0076 3830#
..0077 3840#
..0100 3848#
..0101 3858#
..0102 3866#
..0103 3891#
..0104 3926# SEQ 0192
..0105 3961#
..0106 3996#
..0107 4031#
..0110 4066#
..0111 4101#
..0112 4136#
..0113 4171#
..0114 4206#
..0115 4241#
..0116 4276#
..0117 4311#
..0120 4346#
..0121 4381#
..0122 4416#
..0123 4451#
..0124 4486#
..0125 4521#
..0126 4556#
..0127 4591#
..0130 4638#
..0131 4672#
..0132 4706#
..0133 4740#
..0134 4774#
..0135 4808#
..0136 4842#
..0137 5110 5119# 5126 5128
..0140 5150 5159# 5166 5168
..0141 5190 5199# 5206 5208
..0142 5230 5239# 5246 5248
..0143 5270 5279# 5286 5288
..0144 5310 5319# 5326 5328
..0145 5350 5359# 5366 5368
..0146 5393#
..0147 5423#
..0150 5453#
..0151 5483#
..0152 5513#
..0153 5543#
..0154 5573#
..0155 5603#
..0156 5633#
..0157 5663#
..0160 5693#
..0161 5723#
..0162 5753#
..0163 5783#
..0164 5813#
..0165 5843#
..0166 5873#
..0167 5903#
..0170 5933#
..0171 5963# SEQ 0193
..0172 5993#
..0173 6023#
..0174 6053#
..0175 6083#
..0176 6113#
..0177 6143#
..0200 6173#
..0201 6203#
..0202 6233#
..0203 6263#
..0204 6293#
..0205 6338#
..0206 6341#
..0207 6345#
..0210 6366#
..0211 6369#
..0212 6373#
..0213 6394#
..0214 6397#
..0215 6401#
..0216 6422#
..0217 6425#
..0220 6429#
..0221 6450#
..0222 6453#
..0223 6457#
..0224 6478#
..0225 6481#
..0226 6485#
..0227 6506#
..0230 6509#
..0231 6513#
..0232 6534#
..0233 6537#
..0234 6541#
..0235 6562#
..0236 6565#
..0237 6569#
..0240 6590#
..0241 6593#
..0242 6597#
..0243 6618#
..0244 6621#
..0245 6625#
..0246 6646#
..0247 6649#
..0250 6653#
..0251 6674#
..0252 6677#
..0253 6681#
..0254 6702#
..0255 6705#
..0256 6709# SEQ 0194
..0257 6730#
..0260 6733#
..0261 6737#
..0262 6758#
..0263 6761#
..0264 6765#
..0265 6786#
..0266 6789#
..0267 6793#
..0270 6814#
..0271 6817#
..0272 6821#
..0273 6842#
..0274 6845#
..0275 6849#
..0276 6869#
..0277 6872#
..0300 6876#
..0301 6896#
..0302 6899#
..0303 6903#
..0304 6923#
..0305 6926#
..0306 6930#
..0307 7004 7010#
..0310 7006 7008#
..0311 7034 7040#
..0312 7036 7038#
..0313 7064 7070#
..0314 7066 7068#
..0315 7094 7100#
..0316 7096 7098#
..0317 7124 7130#
..0320 7126 7128#
..0321 7154 7160#
..0322 7156 7158#
..0323 7184 7190#
..0324 7186 7188#
..0325 7214 7220#
..0326 7216 7218#
.JB41 318#
.JBAPR 318#
.JBCNI 318#
.JBDDT 318#
.JBFF 318#
.JBOPC 318#
.JBREL 318#
.JBREN 318#
.JBSA 318#
.JBSYM 318#
.JBTPC 318#
.JBUSY 318#
.JBUUO 318# SEQ 0195
.JBVER 318#
APRID 318#
BCIO 318# SEQ 0196
BCIOB 318#
BLURB 797# 1304 1420 1613 1840 2135 3199 4872
BLURB1 803# 1859 1899 1939 1979 2019 2059 2099
BSIO 318#
BSIOB 318#
CFLUSH 278#
CINVAL 277#
CLOKOP 272#
CLRAPR 792# 1082 1146 1153 1160 1167 1174 1439 1465 1491 1517 1543 1569 1595
1640 1670 1700 1730 1760 1790 1820 1874 1914 1954 1994 2034 2074 2114
2156 2175 2196 2217 2237 2261 2280 2301 2322 2342 2366 2385 2406 2427
2447 2471 2490 2511 2532 2552 2576 2595 2616 2637 2657 2681 2700 2721
2742 2762 2786 2805 2826 2847 2867 2891 2910 2931 2952 2972 2996 3015
3036 3057 3077 3101 3120 3141 3162 3182 3225 3254 3283 3312 3341 3370
3399 3429 3448 3470 3492 3514 3536 3559 3591 3596 3615 3634 3653 3672
3691 3710 3730 3742 3872 3896 3931 3966 4001 4036 4071 4106 4141 4176
4211 4246 4281 4316 4351 4386 4421 4456 4491 4526 4561 4596 4617 4659
4693 4727 4761 4795 4829 4863 4879 4921 4943 4965 4987 5009 5031 5053
5074 5087 5113 5135 5153 5175 5193 5215 5233 5255 5273 5295 5313 5335
5353 5375 6946 6962 6978 7245 7296 7322
CLRBT1 993# 3741 5112 5152 5192 5232 5272 5312 5352
CLRBTH 989# 1438 1464 1490 1516 1542 1568 1594 1639 1669 1699 1729 1759 1789
1819 1873 1913 1953 1993 2033 2073 2113 2155 2174 2195 2216 2236 2260
2279 2300 2321 2341 2365 2384 2405 2426 2446 2470 2489 2510 2531 2551
2575 2594 2615 2636 2656 2680 2699 2720 2741 2761 2785 2804 2825 2846
2866 2890 2909 2930 2951 2971 2995 3014 3035 3056 3076 3100 3119 3140
3161 3181 3224 3253 3282 3311 3340 3369 3398 3590 3871 3895 3930 3965
4000 4035 4070 4105 4140 4175 4210 4245 4280 4315 4350 4385 4420 4455
4490 4525 4560 4595 4616 4658 4692 4726 4760 4794 4828 4862 4878 4920
4942 4964 4986 5008 5030 5052 5073 5086 5134 5174 5214 5254 5294 5334
5374 6945 6961 6977 7244 7295 7321
CLRPI 793# 1083 1440 1466 1492 1518 1544 1570 1596 1641 1671 1701 1731 1761
1791 1821 1875 1915 1955 1995 2035 2075 2115 2157 2176 2197 2218 2238
2262 2281 2302 2323 2343 2367 2386 2407 2428 2448 2472 2491 2512 2533
2553 2577 2596 2617 2638 2658 2682 2701 2722 2743 2763 2787 2806 2827
2848 2868 2892 2911 2932 2953 2973 2997 3016 3037 3058 3078 3102 3121
3142 3163 3183 3226 3255 3284 3313 3342 3371 3400 3428 3447 3469 3491
3513 3535 3558 3592 3595 3614 3633 3652 3671 3690 3709 3729 3743 3873
3897 3932 3967 4002 4037 4072 4107 4142 4177 4212 4247 4282 4317 4352
4387 4422 4457 4492 4527 4562 4597 4618 4660 4694 4728 4762 4796 4830
4864 4880 4922 4944 4966 4988 5010 5032 5054 5075 5088 5114 5136 5154
5176 5194 5216 5234 5256 5274 5296 5314 5336 5354 5376 6947 6963 6979
7246 7297 7323
CLRPT 318#
CLRTRP 790# 3728
CWRTBI 279#
DROPDV 239#
ENDUUO 285# 400
EOPUUO 286# 402
ERRHLT 173#
EXECUT 938#
EXIT 727
FATAL 172# SEQ 0197
FMUUO 1028# 6992 7022 7052 7082 7112 7142 7172 7202
FRD36 314#
FRD8 315#
FREAD 313#
FSELEC 312#
GET 156#
GO 153#
HALT 158# 421 678 680 681 685 699 733 1091 1098 1108 1116 1127 1135
1143 1151 1158 1165 1172 1181 1188 1196 1203 1211 1218 1225 1235 1243
1253 1261 1272 1281 1289 1297 1318 1326 1333 1341 1347 1355 1362 1370
1377 1385 1392 1400 1407 1415 1447 1453 1473 1479 1499 1505 1525 1531
1551 1557 1577 1583 1603 1609 1648 1654 1678 1684 1708 1714 1738 1744
1768 1774 1798 1804 1828 1834 1884 1890 1924 1930 1964 1970 2004 2010
2044 2050 2084 2090 2124 2130 2161 2168 2182 2189 2203 2210 2223 2230
2244 2250 2266 2273 2287 2294 2308 2315 2328 2335 2349 2355 2371 2378
2392 2399 2413 2420 2433 2440 2454 2460 2476 2483 2497 2504 2518 2525
2538 2545 2559 2565 2581 2588 2602 2609 2623 2630 2643 2650 2664 2670
2686 2693 2707 2714 2728 2735 2748 2755 2769 2775 2791 2798 2812 2819
2833 2840 2853 2860 2874 2880 2896 2903 2917 2924 2938 2945 2958 2965
2979 2985 3001 3008 3022 3029 3043 3050 3063 3070 3084 3090 3106 3113
3127 3134 3148 3155 3168 3175 3189 3195 3234 3240 3263 3269 3292 3298
3321 3327 3350 3356 3379 3385 3408 3414 3914 3949 3984 4019 4054 4089
4124 4159 4194 4229 4264 4299 4334 4369 4404 4439 4474 4509 4544 4579
4614 4650 4656 4684 4690 4718 4724 4752 4758 4786 4792 4820 4826 4854
4860 4891 4933 4955 4977 4999 5021 5043 5065 5081 5094 5118 5124 5130
5158 5164 5170 5198 5204 5210 5238 5244 5250 5278 5284 5290 5318 5324
5330 5358 5364 5370 5396 5400 5406 5412 5426 5430 5436 5442 5456 5460
5466 5472 5486 5490 5496 5502 5516 5520 5526 5532 5546 5550 5556 5562
5576 5580 5586 5592 5606 5610 5616 5622 5636 5640 5646 5652 5666 5670
5676 5682 5696 5700 5706 5712 5726 5730 5736 5742 5756 5760 5766 5772
5786 5790 5796 5802 5816 5820 5826 5832 5846 5850 5856 5862 5876 5880
5886 5892 5906 5910 5916 5922 5936 5940 5946 5952 5966 5970 5976 5982
5996 6000 6006 6012 6026 6030 6036 6042 6056 6060 6066 6072 6086 6090
6096 6102 6116 6120 6126 6132 6146 6150 6156 6162 6176 6180 6186 6192
6206 6210 6216 6222 6236 6240 6246 6252 6266 6270 6276 6282 6296 6300
6306 6312 6341 6346 6352 6369 6374 6380 6397 6402 6408 6425 6430 6436
6453 6458 6464 6481 6486 6492 6509 6514 6520 6537 6542 6548 6565 6570
6576 6593 6598 6604 6621 6626 6632 6649 6654 6660 6677 6682 6688 6705
6710 6716 6733 6738 6744 6761 6766 6772 6789 6794 6800 6817 6822 6828
6845 6850 6856 6872 6877 6883 6899 6904 6910 6926 6931 6937 6952 6956
6968 6972 6984 6988 7008 7013 7019 7038 7043 7049 7068 7073 7079 7098
7103 7109 7128 7133 7139 7158 7163 7169 7188 7193 7199 7218 7223 7229
7262 7263 7264 7265 7270 7274 7279 7286 7305 7311 7330 7336 7420 7425
7432 7436 7440 7444 7448 7452 7456 7460 7467 7468 7469 7470 7471 7472
7473 7474 7475 7477 7479 7480
HALTPI 789 1311 2146 3427 3453 3475 3497 3519 3542 3564 3594 3613 3632 3651
3670 3689 3708 3727 3744 3762 3780 3798 3816 3834 3852 3870 3898 3933
3968 4003 4038 4073 4108 4143 4178 4213 4248 4283 4318 4353 4388 4423
4458 4493 4528 4563 4598
INDPI 1048# 5098 5138 5178 5218 5258 5298 5338
JEN 160# 4647 4681 4715 4749 4783 4817 4851 5133 5173 5213 5253 5293 5333
5373
JRSTF 159# 3445 3467 3489 3511 3533 3556 3578 3611 3630 3649 3668 3687 3706 SEQ 0198
3725 3760 3778 3796 3814 3832 3850 3868 3893 3928 3963 3998 4033 4068
4103 4138 4173 4208 4243 4278 4313 4348 4383 4418 4453 4488 4523 4558
4593 7300 7326 7424
MAPADR 295#
MAPCNK 296#
MAPMEM 292#
MAPPNT 298#
MAPSET 297#
MEMSEG 294#
MEMZRO 293#
MODPCP 305#
MODPCU 304#
MTROP 273#
NAME 9# 12
PBELL 248#
PCRL 242#
PCRL2 246#
PCRL2F 247#
PCRLF 243#
PFORCE 250#
PGMINT 166#
PIDIS 886# 4631 4665 4699 4733 4767 4801 4835
PIHCLR 858# 3217 3246 3275 3304 3333 3362 3391
PINO 834# 1430 1456 1482 1508 1534 1560 1586
PIONOF 870# 1855 1895 1935 1975 2015 2055 2095
PITEST 902# 2148 2253 2358 2463 2568 2673 2778 2883 2988 3093
PIYES 846# 1630 1660 1690 1720 1750 1780 1810
PJRST 157#
PMSG 252#
PMSGF 255#
PNT1 208#
PNT11 222#
PNT11F 223#
PNT1F 209#
PNT2 210#
PNT2F 211#
PNT3 212#
PNT3F 213#
PNT4 214#
PNT4F 215#
PNT5 216#
PNT5F 217#
PNT6 218#
PNT6F 219#
PNT7 220#
PNT7F 221#
PNTA 194#
PNTADF 225#
PNTADR 224#
PNTAF 195#
PNTAL 196#
PNTALF 197#
PNTCHF 207# SEQ 0199
PNTCHR 206#
PNTCI 204#
PNTCIF 205#
PNTCW 240#
PNTCWF 241#
PNTDCF 233#
PNTDEC 232#
PNTDS 234#
PNTDSF 235#
PNTHW 228#
PNTHWF 229#
PNTMSF 201#
PNTMSG 200#
PNTNM 236#
PNTOCF 231#
PNTOCS 230#
PNTOCT 226#
PNTOTF 227#
PNTSIX 237#
PNTSXF 238#
PSIXL 198#
PSIXLF 199#
PSIXM 202#
PSIXMF 203#
PSP 244#
PSPF 245#
PUT 155#
RDAPR 318#
RDCSB 318#
RDCSTM 318#
RDEBR 318#
RDHSB 318#
RDINT 318#
RDIO 318#
RDIOB 318#
RDPI 318#
RDPUR 318#
RDSPB 318#
RDTIM 318#
RDUBR 318#
RTN 154# 408
S 84# 86 90 119 121 130 133 148 149 151 162 164 168 170
175 179 318 323 329 356 358 376 378 396 398 427 429 447
449 467 469 477 479 500 505 531 533 540 542 548 550 556
558 562 564 569 571 575 577 581 583 589 591 594 596 600
602 606 608 612 614 618 620 625 627 631 633 637 639 641
643
SBWAIT 1005# 3749 3767 3785 3803 3821 3839 3857
SFLAG 56#
SIXBTZ 261#
STOP 48# 945# 1090 1097 1107 1115 1126 1134 1142 1150 1157 1164 1171 1180
1187 1195 1202 1210 1217 1234 1252 1271 1280 1288 1296 1317 1325 1332
1340 1346 1354 1361 1369 1376 1384 1391 1399 1406 1414 1446 1472 1498 SEQ 0200
1524 1550 1576 1602 1647 1677 1707 1737 1767 1797 1827 1883 1923 1963
2003 2043 2083 2123 2160 2181 2202 2222 2243 2265 2286 2307 2327 2348
2370 2391 2412 2432 2453 2475 2496 2517 2537 2558 2580 2601 2622 2642
2663 2685 2706 2727 2747 2768 2790 2811 2832 2852 2873 2895 2916 2937
2957 2978 3000 3021 3042 3062 3083 3105 3126 3147 3167 3188 3233 3262
3291 3320 3349 3378 3407 4649 4683 4717 4751 4785 4819 4853 4890 4932
4954 4976 4998 5020 5042 5064 5080 5093 5129 5169 5209 5249 5289 5329
5369 6955 6971 6987 7012 7042 7072 7102 7132 7162 7192 7222 7273 7278
7304 7329
STOP1 949# 5405 5435 5465 5495 5525 5555 5585 5615 5645 5675 5705 5735 5765
5795 5825 5855 5885 5915 5945 5975 6005 6035 6065 6095 6125 6155 6185
6215 6245 6275 6305 6345 6373 6401 6429 6457 6485 6513 6541 6569 6597
6625 6653 6681 6709 6737 6765 6793 6821 6849 6876 6903 6930
STOP2 816# 1224 1242 1260 1452 1478 1504 1530 1556 1582 1608 1653 1683 1713
1743 1773 1803 1833 1889 1929 1969 2009 2049 2089 2129 2167 2188 2209
2229 2249 2272 2293 2314 2334 2354 2377 2398 2419 2439 2459 2482 2503
2524 2544 2564 2587 2608 2629 2649 2669 2692 2713 2734 2754 2774 2797
2818 2839 2859 2879 2902 2923 2944 2964 2984 3007 3028 3049 3069 3089
3112 3133 3154 3174 3194 3239 3268 3297 3326 3355 3384 3413 3913 3948
3983 4018 4053 4088 4123 4158 4193 4228 4263 4298 4333 4368 4403 4438
4473 4508 4543 4578 4613 4655 4689 4723 4757 4791 4825 4859 5123 5163
5203 5243 5283 5323 5363 5411 5441 5471 5501 5531 5561 5591 5621 5651
5681 5711 5741 5771 5801 5831 5861 5891 5921 5951 5981 6011 6041 6071
6101 6131 6161 6191 6221 6251 6281 6311 6351 6379 6407 6435 6463 6491
6519 6547 6575 6603 6631 6659 6687 6715 6743 6771 6799 6827 6855 6882
6909 6936 7018 7048 7078 7108 7138 7168 7198 7228 7269 7285 7310 7335
STUCK 1001# 3436 3458 3480 3502 3524 3547 3569 3601 3620 3639 3658 3677 3696
3715 3751 3769 3787 3805 3823 3841 3859 3903 3938 3973 4008 4043 4078
4113 4148 4183 4218 4253 4288 4323 4358 4393 4428 4463 4498 4533 4568
4603
SWITCH 267#
TBOTH 830# 1220 1238 1256 2163 2184 2205 2225 2268 2289 2310 2330 2373 2394
2415 2435 2478 2499 2520 2540 2583 2604 2625 2645 2688 2709 2730 2750
2793 2814 2835 2855 2898 2919 2940 2960 3003 3024 3045 3065 3108 3129
3150 3170 3909 3944 3979 4014 4049 4084 4119 4154 4189 4224 4259 4294
4329 4364 4399 4434 4469 4504 4539 4574
TGET 825# 1221 1239 1257 1449 1475 1501 1527 1553 1579 1605 1650 1680 1710
1740 1770 1800 1830 1886 1926 1966 2006 2046 2086 2126 2164 2185 2206
2226 2246 2269 2290 2311 2331 2351 2374 2395 2416 2436 2456 2479 2500
2521 2541 2561 2584 2605 2626 2646 2666 2689 2710 2731 2751 2771 2794
2815 2836 2856 2876 2899 2920 2941 2961 2981 3004 3025 3046 3066 3086
3109 3130 3151 3171 3191 3236 3265 3294 3323 3352 3381 3410 3910 3945
3980 4015 4050 4085 4120 4155 4190 4225 4260 4295 4330 4365 4400 4435
4470 4505 4540 4575 4610 4652 4686 4720 4754 4788 4822 4856 5120 5160
5200 5240 5280 5320 5360 5408 5438 5468 5498 5528 5558 5588 5618 5648
5678 5708 5738 5768 5798 5828 5858 5888 5918 5948 5978 6008 6038 6068
6098 6128 6158 6188 6218 6248 6278 6308 6348 6376 6404 6432 6460 6488
6516 6544 6572 6600 6628 6656 6684 6712 6740 6768 6796 6824 6852 6879
6906 6933 7015 7045 7075 7105 7135 7165 7195 7225 7266 7282 7307 7332
TIOE 318#
TIOEB 318#
TION 318#
TIONB 318# SEQ 0201
TRAP 997# 3597 3616 3635 3654 3673 3692 3711 3745 3763 3781 3799 3817 3835
3853
TRPCHK 1009# 3442 3464 3486 3508 3530 3553 3575 3608 3627 3646 3665 3684 3703
3722 3757 3775 3793 3811 3829 3847 3865 3890 3925 3960 3995 4030 4065
4100 4135 4170 4205 4240 4275 4310 4345 4380 4415 4450 4485 4520 4555
4590
TRPPI 788# 1426 1620 1847 3208 4881 4923 4945 4967 4989 5011 5033 5055
TSET 820# 1101 1227 1245 1263 1434 1460 1486 1512 1538 1564 1590 1635 1665
1695 1725 1755 1785 1815 1869 1909 1949 1989 2029 2069 2109 2151 2170
2191 2212 2232 2256 2275 2296 2317 2337 2361 2380 2401 2422 2442 2466
2485 2506 2527 2547 2571 2590 2611 2632 2652 2676 2695 2716 2737 2757
2781 2800 2821 2842 2862 2886 2905 2926 2947 2967 2991 3010 3031 3052
3072 3096 3115 3136 3157 3177 3220 3249 3278 3307 3336 3365 3394 3881
3916 3951 3986 4021 4056 4091 4126 4161 4196 4231 4266 4301 4336 4371
4406 4441 4476 4511 4546 4581 4634 4668 4702 4736 4770 4804 4838 5104
5144 5184 5224 5264 5304 5344 5389 5419 5449 5479 5509 5539 5569 5599
5629 5659 5689 5719 5749 5779 5809 5839 5869 5899 5929 5959 5989 6019
6049 6079 6109 6139 6169 6199 6229 6259 6289 6334 6362 6390 6418 6446
6474 6502 6530 6558 6586 6614 6642 6670 6698 6726 6754 6782 6810 6838
6865 6892 6919 6999 7029 7059 7089 7119 7149 7179 7209 7236 7291 7317
TTALTM 188#
TTICHR 181#
TTICLR 191#
TTICNV 186#
TTIDEC 185#
TTINO 183#
TTIOCT 184#
TTIYES 182#
TTLOOK 187#
TTSIXB 189#
TTYINP 190#
WATINT 812# 1442 1468 1494 1520 1546 1572 1598 1643 1673 1703 1733 1763 1793
1823 1879 1919 1959 1999 2039 2079 2119 3228 3257 3286 3315 3344 3373
3402 3437 3459 3481 3503 3525 3548 3570 3602 3621 3640 3659 3678 3697
3716 3752 3770 3788 3806 3824 3842 3860 3904 3939 3974 4009 4044 4079
4114 4149 4184 4219 4254 4289 4324 4359 4394 4429 4464 4499 4534 4569
4604 4641 4675 4709 4743 4777 4811 4845 4886 4928 4950 4972 4994 5016
5038 5060
WRAPR 318#
WRCSB 318#
WRCSTM 318#
WREBR 318#
WRHSB 318#
WRINT 318#
WRIO 318#
WRIOB 318#
WRPI 318#
WRPUR 318#
WRSPB 318#
WRTIM 318#
WRUBR 318#
XCHN2 1014# 3885 3920 3955 3990 4025 4060 4095 4130 4165 4200 4235 4270 4305
4340 4375 4410 4445 4480 4515 4550 4585 SEQ 0202
XUUO 953# 5384 5414 5444 5474 5504 5534 5564 5594 5624 5654 5684 5714 5744
5774 5804 5834 5864 5894 5924 5954 5984 6014 6044 6074 6104 6134 6164
6194 6224 6254 6284
XUUOA 973# 6329 6357 6385 6413 6441 6469 6497 6525 6553 6581 6609 6637 6665
6693 6721 6749 6777 6805 6833 6860 6887 6914
ADDI 7351 7365 7366 7381 7382 7502 7503
ANDI 5127 5167 5207 5247 5287 5327 5367 5398 5428 5458 5488 5518 5548 5578 SEQ 0203
5608 5638 5668 5698 5728 5758 5788 5818 5848 5878 5908 5938 5968 5998
6028 6058 6088 6118 6148 6178 6208 6238 6268 6298 6343 6371 6399 6427
6455 6483 6511 6539 6567 6595 6623 6651 6679 6707 6735 6763 6791 6819
6847 6874 6901 6928 7010 7040 7070 7100 7130 7160 7190 7220
AOS 406 719
ASCII 507 509 512 513 514 515 517 518 519 520 521 522 524 525
526
ASCIZ 749
BLOCK 475 535 538 544 547 553
BYTE 523
CAIE 1223 1241 1259 1451 1477 1503 1529 1555 1581 1607 1652 1682 1712 1742
1772 1802 1832 1888 1928 1968 2008 2048 2088 2128 2166 2187 2208 2228
2248 2271 2292 2313 2333 2353 2376 2397 2418 2438 2458 2481 2502 2523
2543 2563 2586 2607 2628 2648 2668 2691 2712 2733 2753 2773 2796 2817
2838 2858 2878 2901 2922 2943 2963 2983 3006 3027 3048 3068 3088 3111
3132 3153 3173 3193 3238 3267 3296 3325 3354 3383 3412 3912 3947 3982
4017 4052 4087 4122 4157 4192 4227 4262 4297 4332 4367 4402 4437 4472
4507 4542 4577 4612 4654 4688 4722 4756 4790 4824 4858 5122 5128 5162
5168 5202 5208 5242 5248 5282 5288 5322 5328 5362 5368 5410 5440 5470
5500 5530 5560 5590 5620 5650 5680 5710 5740 5770 5800 5830 5860 5890
5920 5950 5980 6010 6040 6070 6100 6130 6160 6190 6220 6250 6280 6310
6344 6350 6372 6378 6400 6406 6428 6434 6456 6462 6484 6490 6512 6518
6540 6546 6568 6574 6596 6602 6624 6630 6652 6658 6680 6686 6708 6714
6736 6742 6764 6770 6792 6798 6820 6826 6848 6854 6875 6881 6902 6908
6929 6935 7011 7017 7041 7047 7071 7077 7101 7107 7131 7137 7161 7167
7191 7197 7221 7227 7268 7277 7284 7309 7334 7504
CAIG 7352
CAIGE 7367 7383
CAME 1096 5399 5402 5429 5432 5459 5462 5489 5492 5519 5522 5549 5552 5579
5582 5609 5612 5639 5642 5669 5672 5699 5702 5729 5732 5759 5762 5789
5792 5819 5822 5849 5852 5879 5882 5909 5912 5939 5942 5969 5972 5999
6002 6029 6032 6059 6062 6089 6092 6119 6122 6149 6152 6179 6182 6209
6212 6239 6242 6269 6272 6299 6302
CAMN 1089
CONI 1088 1095 1113 1124 1132 1140 1148 1155 1162 1169 1178 1185 1193 1200
1208 1215 1250 1268 1278 1286 1294 1315 1323 1330 1338 1344 1352 1359
1367 1374 1382 1389 1397 1404 1412 5078 5091
CONO 792 793 1084 1111 1112 1122 1123 1130 1131 1138 1139 1147 1154 1161
1168 1176 1177 1183 1184 1191 1192 1198 1199 1206 1207 1213 1214 1231
1249 1267 1276 1277 1283 1285 1292 1293 1314 1321 1322 1329 1336 1337
1343 1350 1351 1358 1365 1366 1373 1380 1381 1388 1395 1396 1403 1410
1411 1441 1467 1493 1519 1545 1571 1597 1642 1672 1702 1732 1762 1792
1822 1876 1878 1916 1918 1956 1958 1996 1998 2036 2038 2076 2078 2116
2118 2158 2178 2179 2199 2200 2220 2240 2241 2263 2283 2284 2304 2305
2325 2345 2346 2368 2388 2389 2409 2410 2430 2450 2451 2473 2493 2494
2514 2515 2535 2555 2556 2578 2598 2599 2619 2620 2640 2660 2661 2683
2703 2704 2724 2725 2745 2765 2766 2788 2808 2809 2829 2830 2850 2870
2871 2893 2913 2914 2934 2935 2955 2975 2976 2998 3018 3019 3039 3040
3060 3080 3081 3103 3123 3124 3144 3145 3165 3185 3186 3227 3231 3256
3260 3285 3289 3314 3318 3343 3347 3372 3376 3401 3405 3434 3435 3456
3457 3478 3479 3500 3501 3522 3523 3545 3546 3567 3568 3600 3619 3638
3657 3676 3695 3714 3748 3750 3766 3768 3784 3786 3802 3804 3820 3822
3838 3840 3856 3858 3901 3902 3936 3937 3971 3972 4006 4007 4041 4042 SEQ 0204
4076 4077 4111 4112 4146 4147 4181 4182 4216 4217 4251 4252 4286 4287
4321 4322 4356 4357 4391 4392 4426 4427 4461 4462 4496 4497 4531 4532
4566 4567 4601 4602 4640 4646 4674 4680 4708 4714 4742 4748 4776 4782
4810 4816 4844 4850 4883 4884 4925 4926 4947 4948 4969 4970 4991 4992
5013 5014 5035 5036 5057 5058 5076 5077 5089 5090 5115 5116 5155 5156
5195 5196 5235 5236 5275 5276 5315 5316 5355 5356
CONSO 1232 2159 2242 2264 2347 2369 2452 2474 2557 2579 2662 2684 2767 2789
2872 2894 2977 2999 3082 3104 3187
CONSZ 1106 1445 1471 1497 1523 1549 1575 1601 1646 1676 1706 1736 1766 1796
1826 2180 2201 2221 2285 2306 2326 2390 2411 2431 2495 2516 2536 2600
2621 2641 2705 2726 2746 2810 2831 2851 2915 2936 2956 3020 3041 3061
3125 3146 3166 3232 3261 3290 3319 3348 3377 3406 4648 4682 4716 4750
4784 4818 4852
DEFINE 9 48 56 84 252 255 261 797 803 812 816 820 825 830
834 846 858 870 886 902 938 945 949 953 973 989 993 997
1001 1005 1009 1014 1028 1048
END 7695
HRRZ 7276
IFDEF 318 369 370 371 372 7686 7693
IFNDEF 307 308 318 369 370 371 372 451 7515
JFCL 409 410 411 412 413 414 415 416 417 418 419 420 679 1418
1612 1839 2134 3198 3419 3581 3731 3874 4608 4868 6315 6940 7281 7478
JRST 66 67 68 69 70 71 72 157 158 159 160 331 332 334
336 338 340 342 345 347 348 401 666 667 670 673 711 715
722 725 728 731 734 744 747 769 779 781 1092 1099 1109 1117
1128 1136 1144 1152 1159 1166 1173 1182 1189 1197 1204 1212 1219 1226
1236 1244 1254 1262 1273 1282 1290 1298 1319 1327 1334 1342 1348 1356
1363 1371 1378 1386 1393 1401 1408 1416 1448 1454 1474 1480 1500 1506
1526 1532 1552 1558 1578 1584 1604 1610 1649 1655 1679 1685 1709 1715
1739 1745 1769 1775 1799 1805 1829 1835 1885 1891 1925 1931 1965 1971
2005 2011 2045 2051 2085 2091 2125 2131 2162 2169 2183 2190 2204 2211
2224 2231 2245 2251 2267 2274 2288 2295 2309 2316 2329 2336 2350 2356
2372 2379 2393 2400 2414 2421 2434 2441 2455 2461 2477 2484 2498 2505
2519 2526 2539 2546 2560 2566 2582 2589 2603 2610 2624 2631 2644 2651
2665 2671 2687 2694 2708 2715 2729 2736 2749 2756 2770 2776 2792 2799
2813 2820 2834 2841 2854 2861 2875 2881 2897 2904 2918 2925 2939 2946
2959 2966 2980 2986 3002 3009 3023 3030 3044 3051 3064 3071 3085 3091
3107 3114 3128 3135 3149 3156 3169 3176 3190 3196 3235 3241 3264 3270
3293 3299 3322 3328 3351 3357 3380 3386 3409 3415 3440 3444 3462 3466
3484 3488 3506 3510 3528 3532 3551 3555 3573 3577 3588 3605 3610 3624
3629 3643 3648 3662 3667 3681 3686 3700 3705 3719 3724 3755 3759 3773
3777 3791 3795 3809 3813 3827 3831 3845 3849 3863 3867 3892 3907 3915
3927 3942 3950 3962 3977 3985 3997 4012 4020 4032 4047 4055 4067 4082
4090 4102 4117 4125 4137 4152 4160 4172 4187 4195 4207 4222 4230 4242
4257 4265 4277 4292 4300 4312 4327 4335 4347 4362 4370 4382 4397 4405
4417 4432 4440 4452 4467 4475 4487 4502 4510 4522 4537 4545 4557 4572
4580 4592 4607 4615 4644 4651 4657 4678 4685 4691 4712 4719 4725 4746
4753 4759 4780 4787 4793 4814 4821 4827 4848 4855 4861 4892 4934 4956
4978 5000 5022 5044 5066 5082 5095 5117 5125 5131 5157 5165 5171 5197
5205 5211 5237 5245 5251 5277 5285 5291 5317 5325 5331 5357 5365 5371
5404 5407 5413 5434 5437 5443 5464 5467 5473 5494 5497 5503 5524 5527
5533 5554 5557 5563 5584 5587 5593 5614 5617 5623 5644 5647 5653 5674
5677 5683 5704 5707 5713 5734 5737 5743 5764 5767 5773 5794 5797 5803 SEQ 0205
5824 5827 5833 5854 5857 5863 5884 5887 5893 5914 5917 5923 5944 5947
5953 5974 5977 5983 6004 6007 6013 6034 6037 6043 6064 6067 6073 6094
6097 6103 6124 6127 6133 6154 6157 6163 6184 6187 6193 6214 6217 6223
6244 6247 6253 6274 6277 6283 6304 6307 6313 6338 6347 6353 6366 6375
6381 6394 6403 6409 6422 6431 6437 6450 6459 6465 6478 6487 6493 6506
6515 6521 6534 6543 6549 6562 6571 6577 6590 6599 6605 6618 6627 6633
6646 6655 6661 6674 6683 6689 6702 6711 6717 6730 6739 6745 6758 6767
6773 6786 6795 6801 6814 6823 6829 6842 6851 6857 6869 6878 6884 6896
6905 6911 6923 6932 6938 6949 6957 6965 6973 6981 6989 7006 7007 7009
7014 7020 7036 7037 7039 7044 7050 7066 7067 7069 7074 7080 7096 7097
7099 7104 7110 7126 7127 7129 7134 7140 7156 7157 7159 7164 7170 7186
7187 7189 7194 7200 7216 7217 7219 7224 7230 7242 7258 7271 7275 7280
7287 7299 7306 7312 7314 7331 7337 7340 7353 7355 7368 7371 7384 7387
7395 7399 7403 7407 7411 7415 7419 7423 7505 7509
JSP 166 705 738 773 3430 3586 5393 5423 5453 5483 5513 5543 5573 5603
5633 5663 5693 5723 5753 5783 5813 5843 5873 5903 5933 5963 5993 6023
6053 6083 6113 6143 6173 6203 6233 6263 6293 7004 7034 7064 7094 7124
7154 7184 7214 7240 7302 7327
JSR 788 789 790 1085 3432 3454 3476 3498 3520 3543 3565 3598 3617 3636
3655 3674 3693 3712 3746 3764 3782 3800 3818 3836 3854 3899 3934 3969
4004 4039 4074 4109 4144 4179 4214 4249 4284 4319 4354 4389 4424 4459
4494 4529 4564 4599 4638 4672 4706 4740 4774 4808 4842 5110 5150 5190
5230 5270 5310 5350 7362 7378
LALL 10 784
LIST 9 318 451 7515 7683
LIT 7516
LOC 26 321 645 665 669 672 677 695 700
MOVE 1087 1222 1240 1258 1450 1476 1502 1528 1554 1580 1606 1651 1681 1711
1741 1771 1801 1831 1887 1927 1967 2007 2047 2087 2127 2165 2186 2207
2227 2247 2270 2291 2312 2332 2352 2375 2396 2417 2437 2457 2480 2501
2522 2542 2562 2585 2606 2627 2647 2667 2690 2711 2732 2752 2772 2795
2816 2837 2857 2877 2900 2921 2942 2962 2982 3005 3026 3047 3067 3087
3110 3131 3152 3172 3192 3237 3266 3295 3324 3353 3382 3411 3430 3432
3454 3476 3498 3520 3543 3565 3598 3617 3636 3655 3674 3693 3712 3746
3764 3782 3800 3818 3836 3854 3899 3911 3934 3946 3969 3981 4004 4016
4039 4051 4074 4086 4109 4121 4144 4156 4179 4191 4214 4226 4249 4261
4284 4296 4319 4331 4354 4366 4389 4401 4424 4436 4459 4471 4494 4506
4529 4541 4564 4576 4599 4611 4638 4653 4672 4687 4706 4721 4740 4755
4774 4789 4808 4823 4842 4857 5110 5121 5126 5150 5161 5166 5190 5201
5206 5230 5241 5246 5270 5281 5286 5310 5321 5326 5350 5361 5366 5393
5401 5409 5423 5431 5439 5453 5461 5469 5483 5491 5499 5513 5521 5529
5543 5551 5559 5573 5581 5589 5603 5611 5619 5633 5641 5649 5663 5671
5679 5693 5701 5709 5723 5731 5739 5753 5761 5769 5783 5791 5799 5813
5821 5829 5843 5851 5859 5873 5881 5889 5903 5911 5919 5933 5941 5949
5963 5971 5979 5993 6001 6009 6023 6031 6039 6053 6061 6069 6083 6091
6099 6113 6121 6129 6143 6151 6159 6173 6181 6189 6203 6211 6219 6233
6241 6249 6263 6271 6279 6293 6301 6309 6338 6342 6349 6366 6370 6377
6394 6398 6405 6422 6426 6433 6450 6454 6461 6478 6482 6489 6506 6510
6517 6534 6538 6545 6562 6566 6573 6590 6594 6601 6618 6622 6629 6646
6650 6657 6674 6678 6685 6702 6706 6713 6730 6734 6741 6758 6762 6769
6786 6790 6797 6814 6818 6825 6842 6846 6853 6869 6873 6880 6896 6900
6907 6923 6927 6934 6949 6953 6965 6969 6981 6985 7003 7004 7006 7016
7033 7034 7036 7046 7063 7064 7066 7076 7093 7094 7096 7106 7123 7124 SEQ 0206
7126 7136 7153 7154 7156 7166 7183 7184 7186 7196 7213 7214 7216 7226
7258 7267 7283 7308 7325 7333 7354 7362 7369 7370 7378 7385 7386 7393
7397 7401 7405 7409 7413 7417 7430 7434 7438 7442 7446 7450 7454 7458
7500 7506 7507 7508
MOVEI 1103 1229 1247 1265 1436 1443 1462 1469 1488 1495 1514 1521 1540 1547
1566 1573 1592 1599 1637 1644 1667 1674 1697 1704 1727 1734 1757 1764
1787 1794 1817 1824 1871 1880 1911 1920 1951 1960 1991 2000 2031 2040
2071 2080 2111 2120 2153 2172 2193 2214 2234 2258 2277 2298 2319 2339
2363 2382 2403 2424 2444 2468 2487 2508 2529 2549 2573 2592 2613 2634
2654 2678 2697 2718 2739 2759 2783 2802 2823 2844 2864 2888 2907 2928
2949 2969 2993 3012 3033 3054 3074 3098 3117 3138 3159 3179 3222 3229
3251 3258 3280 3287 3309 3316 3338 3345 3367 3374 3396 3403 3438 3460
3482 3504 3526 3549 3571 3603 3622 3641 3660 3679 3698 3717 3753 3771
3789 3807 3825 3843 3861 3883 3905 3918 3940 3953 3975 3988 4010 4023
4045 4058 4080 4093 4115 4128 4150 4163 4185 4198 4220 4233 4255 4268
4290 4303 4325 4338 4360 4373 4395 4408 4430 4443 4465 4478 4500 4513
4535 4548 4570 4583 4605 4636 4642 4670 4676 4704 4710 4738 4744 4772
4778 4806 4812 4840 4846 4887 4929 4951 4973 4995 5017 5039 5061 5106
5108 5146 5148 5186 5188 5226 5228 5266 5268 5306 5308 5346 5348 5391
5397 5421 5427 5451 5457 5481 5487 5511 5517 5541 5547 5571 5577 5601
5607 5631 5637 5661 5667 5691 5697 5721 5727 5751 5757 5781 5787 5811
5817 5841 5847 5871 5877 5901 5907 5931 5937 5961 5967 5991 5997 6021
6027 6051 6057 6081 6087 6111 6117 6141 6147 6171 6177 6201 6207 6231
6237 6261 6267 6291 6297 6336 6364 6392 6420 6448 6476 6504 6532 6560
6588 6616 6644 6672 6700 6728 6756 6784 6812 6840 6867 6894 6921 7001
7031 7061 7091 7121 7151 7181 7211 7238 7247 7293 7319 7349 7363 7379
7394 7398 7402 7406 7410 7414 7418 7431 7435 7439 7443 7447 7451 7455
7498 7499
MOVEM 1104 1230 1248 1266 1437 1463 1489 1515 1541 1567 1593 1638 1668 1698
1728 1758 1788 1818 1872 1912 1952 1992 2032 2072 2112 2154 2173 2194
2215 2235 2259 2278 2299 2320 2340 2364 2383 2404 2425 2445 2469 2488
2509 2530 2550 2574 2593 2614 2635 2655 2679 2698 2719 2740 2760 2784
2803 2824 2845 2865 2889 2908 2929 2950 2970 2994 3013 3034 3055 3075
3099 3118 3139 3160 3180 3223 3252 3281 3310 3339 3368 3397 3431 3433
3455 3477 3499 3521 3544 3566 3599 3618 3637 3656 3675 3694 3713 3747
3765 3783 3801 3819 3837 3855 3884 3900 3919 3935 3954 3970 3989 4005
4024 4040 4059 4075 4094 4110 4129 4145 4164 4180 4199 4215 4234 4250
4269 4285 4304 4320 4339 4355 4374 4390 4409 4425 4444 4460 4479 4495
4514 4530 4549 4565 4584 4600 4637 4639 4671 4673 4705 4707 4739 4741
4773 4775 4807 4809 4841 4843 5107 5109 5111 5147 5149 5151 5187 5189
5191 5227 5229 5231 5267 5269 5271 5307 5309 5311 5347 5349 5351 5392
5394 5422 5424 5452 5454 5482 5484 5512 5514 5542 5544 5572 5574 5602
5604 5632 5634 5662 5664 5692 5694 5722 5724 5752 5754 5782 5784 5812
5814 5842 5844 5872 5874 5902 5904 5932 5934 5962 5964 5992 5994 6022
6024 6052 6054 6082 6084 6112 6114 6142 6144 6172 6174 6202 6204 6232
6234 6262 6264 6292 6294 6337 6339 6365 6367 6393 6395 6421 6423 6449
6451 6477 6479 6505 6507 6533 6535 6561 6563 6589 6591 6617 6619 6645
6647 6673 6675 6701 6703 6729 6731 6757 6759 6785 6787 6813 6815 6841
6843 6868 6870 6895 6897 6922 6924 6950 6966 6982 7002 7005 7032 7035
7062 7065 7092 7095 7122 7125 7152 7155 7182 7185 7212 7215 7239 7248
7249 7250 7251 7252 7253 7254 7255 7259 7294 7320 7348 7360 7361 7364
7376 7377 7380 7495 7496 7497 7501
NOSYM 29 SEQ 0207
OPDEF 153 154 155 156 157 158 159 160 166 172 173 181 182 183
184 185 186 187 188 189 190 191 194 195 196 197 198 199
200 201 202 203 204 205 206 207 208 209 210 211 212 213
214 215 216 217 218 219 220 221 222 223 224 225 226 227
228 229 230 231 232 233 234 235 236 237 238 239 240 241
242 243 244 245 246 247 248 250 267 272 273 277 278 279
285 286 292 293 294 295 296 297 298 304 305 312 313 314
315 318 788 789 790 792 793
POP 156
POPJ 154
PUSH 155
PUSHJ 153
REPEAT 1427 1624 1850 3211 4625 4899 6324
SETO 1094 7459
SETOM 707 714 740 775 7256 7257
SETZ 1105 1877 1917 1957 1997 2037 2077 2117 4882 4924 4946 4968 4990 5012
5034 5056 6948 7324
SETZB 6964 6980
SETZM 704 709 737 742 772 777 7260 7339 7350
SIXBIT 77 78 536 537 545 546
SKIPA 1233 1270 5403 5433 5463 5493 5523 5553 5583 5613 5643 5673 5703 5733
5763 5793 5823 5853 5883 5913 5943 5973 6003 6033 6063 6093 6123 6153
6183 6213 6243 6273 6303
SKIPE 710 724 730 1882 1922 1962 2002 2042 2082 2122 3443 3465 3487 3509
3531 3554 3576 3609 3628 3647 3666 3685 3704 3723 3758 3776 3794 3812
3830 3848 3866 3891 3926 3961 3996 4031 4066 4101 4136 4171 4206 4241
4276 4311 4346 4381 4416 4451 4486 4521 4556 4591 4889 4931 4953 4975
4997 5019 5041 5063 7272 7422
SKIPL 745
SKIPN 708 713 721 726 732 741 743 776 778 1114 7298 7313
SOJG 1444 1470 1496 1522 1548 1574 1600 1645 1675 1705 1735 1765 1795 1825
1881 1921 1961 2001 2041 2081 2121 3230 3259 3288 3317 3346 3375 3404
3439 3461 3483 3505 3527 3550 3572 3604 3623 3642 3661 3680 3699 3718
3754 3772 3790 3808 3826 3844 3862 3906 3941 3976 4011 4046 4081 4116
4151 4186 4221 4256 4291 4326 4361 4396 4431 4466 4501 4536 4571 4606
4643 4677 4711 4745 4779 4813 4847 4888 4930 4952 4974 4996 5018 5040
5062
SOS 720
SOSE 5132 5172 5212 5252 5292 5332 5372
SUBTTL 30 82 117 318 319 647 735 770 782 1073 1120 1274 1301 3420
3582 3732 3875 4619 4869 5069 5096 5377 6316 6941 6990 7231 7288 7341
7461 7510
TITLE 14
TLNE 706 739 774 3587 6954 6970 6986 7241 7303
TLNN 7328
TRNE 1179 1186 1194 1201 1209 1216 1269 1295 1324 1339 1353 1368 1383 1398
1413
TRNN 1125 1133 1141 1149 1156 1163 1170 1251 1279 1287 1316 1331 1345 1360
1375 1390 1405 5079 5092
TTCALL 746
VAR 7691
XLIST 8 317 318 450 7514
XWD 7003 7033 7063 7093 7123 7153 7183 7213 SEQ 0208