Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dskam.seq
There are no other files named dskam.seq in the archive.
;DSKAM
IDENTIFICATION
--------------
PRODUCT CODE: AH-E321A-DD
DIAGNOSTIC CODE: DSKAM
PRODUCT NAME: DSKAMA0 DECSYSTEM 2020 BASIC
INSTRUCTION DIAGNOSTIC (13)
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-DSKAM.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 DATA SWITCH FUNCTIONS
5.0 ERRORS
6.0 ITERATION COUNTER
7.0 CYCLE TIME
8.0 OPERATIONAL VARIATIONS
9.0 MISCELLANEOUS
10.0 LISTING
MAINDEC-10-DSKAM.TXT
PAGE 3 SEQ 0004
1.0 ABSTRACT
THIS DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC IS THE
THIRTEENTH IN A SERIES OF DECSYSTEM 2020 PROCESSOR DIAGNOSTICS.
THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR
AND MICRO-CODE BYTE, BLT, JFFO AND MISCELLANEOUS FUNCTIONS.
2.0 REQUIREMENTS
2.1 EQUIPMENT
A DECSYSTEM 2020 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY
CONSOLE PROCESSOR
CONSOLE TELETYPE
LOAD DEVICE
2.2 STORAGE
THE PROGRAM RUNS WITHIN 32K OF MEMORY.
2.3 PRELIMINARY PROGRAMS
PREVIOUS PROCESSOR DIAGNOSTICS
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
****** NOTE ******
THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM 2020 SUBROUTINE
PROGRAM BE RESIDENT IN THE DECSYSTEM 2020.
FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES.
MAINDEC-10-DSKAM.TXT
PAGE 4 SEQ 0005
3.2 STARTING PROCEDURE
A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO
4.0 DATA SWITCH FUNCTIONS).
RUN UNDER "SMMON".
THE FOLLOWING QUESTIONS WILL BE ASKED TO
SELECT THE OPERATIONAL SWITCHES:
TELETYPE SWITCH CONTROL ? 0,S OR Y (CR) -
IF THE OPERATOR TYPES "Y", THE FOLLOWING QUESTIONS
ARE ASKED AND THE OPERATOR RESPONDS BY TYPING
THE ANSWER AS SIX OCTAL DIGITS REPRESENTING
THE DESIRED SWITCH SETTINGS.
SPECIFY LH SWITCHES IN OCTAL-
SPECIFY RH SWITCHES IN OCTAL-
IF THE OPERATOR TYPES "0", ZERO'S ARE USED FOR
THE SWITCH SETTINGS.
IF THE OPERATOR TYPES "S", PREVIOUSLY SET SWITCHES
ARE USED. THIS IS ONLY VALID UPON RESTARTING
OF AN INTERRUPTED PROGRAM.
MAINDEC-10-DSKAM.TXT
PAGE 5 SEQ 0006
3.3 OPERATING PROCEDURE
A. TO THROUGHLY TEST ALL HARDWARE, ALL TEST CONTROL DATA
SWITCHES SHOULD BE SET TO 0.
B. WHEN DEBUGGING HARDWARE, SET SWITCHES TO 0. ALLOW THE
TELETYPE TO PRINT THE ERROR MESSAGES. THIS ALLOWS THE
PROGRAM TO RUN A COMPLETE PASS AND THEN THE ERROR MESSAGES
MAY BE CORRELATED TO QUICKLY DIAGNOSE THE FAILURE. IF A
HARDWARE PROBLEM IS SUCH THAT THE ERROR MESSAGES, AFTER THE
FIRST ONE, HAVE NO MEANING (FIRST ERROR CAUSES ALL FOLLOWING
TESTS TO FAIL) SET THE LOOP ON ERROR SWITCH AND RESTART THE
TEST FROM THE BEGINNING. THE FIRST FAILURE WILL THEN CAUSE
THE PROGRAM TO ENTER A LOOP SUITABLE FOR SCOPING.
THE ERROR MESSAGE USED IN CONJUNCTION WITH THE LISTING AND
SCOPING IF NECESSARY SHOULD ALLOW THE FAILING CONPONENT
TO BE ISOLATED AND REPLACED AND/OR REPAIRED.
C. WHEN TAKING MARGINS, SET DATA SWITCHES 'NOPNT' AND 'DING'.
THIS WILL INHIBIT PRINTOUT BUT WILL ALLOW THE TELETYPE
BELL TO BE RUNG WHEN A ERROR OCCURS. IF THE MARGIN OBTAINED
IS UNACCEPTABLE, THE OPERATOR MAY REVERT TO STANDARD SWITCH
SETTINGS FOR DEBUGGING PURPOSES.
D. ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING
ERRORS ON THE LINE PRINTER.
E. IN THE EVENT OF A PRINT ROUTINE FAILURE THE 'NOPNT' SWITCH
AND THE 'ERSTOP' SWITCH MAY BE SET TO INHIBIT PRINTOUT
BUT HALT THE PROGRAM POINTING TO THE ERROR.
MAINDEC-10-DSKAM.TXT
PAGE 6 SEQ 0007
4.0 DATA SWITCH FUNCTIONS
SWITCH STATE FUNCTION
------ ----- --------
0 ABORT 0 NORMAL OPERATION
1 ABORT AT END OF PASS
1 RSTART NOT USED
2 TOTALS NOT USED
3 NOPNT 0 NORMAL TYPEOUT
1 INHIBIT ALL PRINT/TYPEOUT
(EXCEPT FORCED)
4 PNTLPT 0 NORMAL OUTPUT TO TTY
1 PRINT ALL DATA ON LPT
(LOGICAL DEVICE, USER MODE)
5 DING 0 NO FUNCTION
1 RING TTY BELL ON ERROR
6 LOOPER 0 PROCEED TO NEXT TEST
1 ENTER SCOPE LOOP ON TEST ERROR
7 ERSTOP 0 NO FUNCTION
1 HALT ON TEST ERROR
8 PALERS 0 PRINT ONLY FIRST ERROR WHEN LOOPING
1 PRINT ALL ERRORS, EVEN IF SAME ERROR
9 RELIAB NOT USED
10 TXTINH 0 PRINT FULL ERROR MESSAGES.
1 INHIBIT COMMENT PORTION OF
ERROR MESSAGES.
11 INHPAG 0 ALLOW PAGING AND TRAP ENABLE
1 INHIBIT PAGING AND TRAPPING
12 MODDVC NOT USED
13 INHCSH 0 ALLOW CACHE USE
1 INHIBIT CACHE
MAINDEC-10-DSKAM.TXT
PAGE 7 SEQ 0008
5.0 ERRORS
ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THE ERROR
PRINTOUT CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, ERROR
NUMBER AND THE CONTENTS OF AN APPLICABLE AC.
THE PC VALUE IS USEFUL IN RELATING THE FAILURE TO THE LISTING.
THE ERROR NUMBER IS PROVIDED SUCH THAT AN ERROR DICTIONARY MAY
BE MADE AT SOME FUTURE DATE.
IF AN AUDIO INDICATION OF A CONTINUING ERROR IS DESIRED
THE 'DING' SWITCH MAY BE SET.
6.0 ITERATION COUNTER
THE ITERATION COUNT OF THE PROGRAM IS PRINTED BY THE
CONSOLE PROCESSOR.
7.0 CYCLE TIME
THE CYCLE TIME OF THE PROGRAM IS IN THE MILLISECOND RANGE AND
IS THEREFORE SUITABLE FOR TAKING MARGINS, VIBRATION TESTS,
ETC.
MAINDEC-10-DSKAM.TXT
PAGE 8 SEQ 0009
8.0 OPERATIONAL VARIATIONS
A. DIAGNOSTIC MONITOR
THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE
RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PROVIDE A
QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR AREA
OF THE PROCESSOR. CERTAIN PROCEDURES ARE USED WHEN THE
PROGRAM IS USED IN THIS MANNER. THEY ARE:
1. THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PROGRAM
AND STARTS IT AT LOCATION 30002.
2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MONITOR
CONTROL WORD.
LH = 0, STAND-ALONE OPERATION
-1, RUNNING UNDER DIAGNOSTIC MONITOR
RH = RIGHT HALF OF CONSOLE SWITCHES IF UNDER
DIAGNOSTIC MONITOR CONTROL.
B. USER MODE
TO OUTPUT THE PRINTED ERROR MESSAGES TO A USER SPECIFIED
DEVICE IN USER MODE, ASSIGN THE DESIRED OUTPUT DEVICE TO
DEVICE NAME 'DEV' AND SET SWITCH 'PNTLPT'. THE PHYSICAL
DEVICE USED CAN BE ANY DEVICE THAT CAN ACCEPT ASCII OUTPUT
FORMAT SUCH AS LPT, DSK, DTA, ETC. THE CORRESPONDING
OUTPUT FILE IS 'DSKAM.LPT'
EXAMPLE DEVICE ASSIGNMENT:
.ASSIGN DSK DEV
IN USER MODE THE PROGRAM WILL MAKE 1000(8) PASSES AND THEN
RETURN TO DIAMON COMMAND MODE.
MAINDEC-10-DSKAM.TXT
PAGE 9 SEQ 0010
8.0 OPERATIONAL VARIATIONS (CON'T)
THE OUTPUT FILE (IF USED) MAY THEN BE LISTED BY USING THE
NORMAL MONITOR COMMANDS (PRINT, LIST, TYPE, PIP, ETC.).
IF THE PROGRAM IS ABORTED BEFORE COMPLETION (BY ^C, ETC.) THE
OUTPUT FILE MAY BE CLOSED BY USING THE MONITOR 'REENTER'
COMMAND.
C. SYSTEM EXERCISER
START ADDRESS IS 30003. DATA SWITCHES ARE PRESTORED IN
'SWTEXR' LOC 30023.
9.0 MISCELLANEOUS
THE NON-EX-MEMORY AND PARITY STOP SWITCHES SHOULD BE RESET
(0). THESE ERRORS, ILLEGAL UUO'S AND OTHER ERRORS OF THIS
TYPE ARE HANDLED BY PRINTOUT ON THE TELETYPE.
10.0 LISTING
HISTORY FILE FOR DSKAM SEQ 0011
----------------------
---------------------------------------------------------------
CODE: MAINDEC-10-DSKAM
TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (13)
VERSION: 0.1
DATE: MARCH 1978
REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10.
---------------------------------------------------------------
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1
DSKAMT MAC 29-Mar-78 10:18 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0012
1 ;DSKAM
2
3 000000 MCNVER==0
4 000001 DECVER==1
5
6
7 XLIST
8 LIST
9 LALL
10
11 NAME \MCNVER,\DECVER^
12
13 TITLE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1
14 ^
15
16
17 ;BYTE, BLOCK TRANSFER, JFFO AND OTHER BASIC MISCELLANEOUS INSTRUCTIONS
18
19 ;COPYRIGHT 1978
20 ;DIGITAL EQUIPMENT CORPORATION
21 ;MARLBORO, MASS. 01752
22
23 ;JOHN R. KIRCHOFF
24
25 000137 LOC 137
26 000137 000000 000001 MCNVER,,DECVER
27
28 .DIRECTIVE .OKOVL
29 NOSYM
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 2
DSKAMT MAC 29-Mar-78 10:18 DIAGNOSTIC PARAMETERS SEQ 0013
30 SUBTTL DIAGNOSTIC PARAMETERS
31
32 ;OPERATOR DEFINITIONS
33
34 001000 000000 OPDEF ER1 [1B8]
35 002000 000000 OPDEF ER2 [2B8]
36 003000 000000 OPDEF ER3 [3B8]
37 004000 000000 OPDEF ER4 [4B8]
38 005000 000000 OPDEF ER5 [5B8]
39 006000 000000 OPDEF ER6 [6B8]
40 007000 000000 OPDEF ER7 [7B8]
41 010000 000000 OPDEF ER10 [10B8]
42 011000 000000 OPDEF ER11 [11B8]
43 012000 000000 OPDEF ER12 [12B8]
44 013000 000000 OPDEF ER13 [13B8]
45
46 040465 LUUO1=ERRMES
47 040465 LUUO2=ERRMES
48 040465 LUUO3=ERRMES
49 040465 LUUO4=ERRMES
50 040465 LUUO5=ERRMES
51 040465 LUUO6=ERRMES
52 040465 LUUO7=ERRMES
53 040465 LUUO10=ERRMES
54 040465 LUUO11=ERRMES
55 040465 LUUO12=ERRMES
56 040465 LUUO13=ERRMES
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 3
DSKAMT MAC 29-Mar-78 10:18 DIAGNOSTIC PARAMETERS SEQ 0014
57 ;SUBROUTINE ASSEMBLY DEFINITIONS
58
59 000040 DEBUG=40
60 000001 EXCASB=1
61 000001 USRASB=1
62 000001 PGMEND=1
63 000001 ERDIAG=1
64
65 ;SPECIAL FEATURE DEFINITIONS
66
67 030000 SADR1=BEGIN
68 030000 SADR2=BEGIN
69 030000 SADR3=BEGIN
70 030007 SADR4=SRTDDT
71 254000 030061 SADR5=JRST $BEND2
72 254000 030000 SADR6=JRST BEGIN
73 254000 030000 SADR7=JRST BEGIN
74 254000 030000 SADR8=JRST BEGIN
75 254000 030000 SADR9=JRST BEGIN
76 254000 030000 SADR10=JRST BEGIN
77 254000 030000 SADR11=JRST BEGIN
78
79 ;SPECIAL FEATURE PARAMETERS
80
81 000000 PAREA0=0
82 000000 PAREA1=0
83 000000 PAREA2=0
84 446353 415500 PAREA3=SIXBIT/DSKAM/
85 645560 000000 PAREA4=SIXBIT/TMP/
86 000000 PAREA5=0
87 000000 PAREA6=0
88 000001 ITERAT==1
89
90 ;MACROS
91
92 DEFINE SAVEAC (A,B)<
93 MOVEI AC+2,. ;SAVE TEST PC
94 MOVEM AC+2,TESTPC
95 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
96 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 4
DSKAMT MAC 29-Mar-78 10:18 DIAGNOSTIC PARAMETERS SEQ 0015
97 ;SPECIAL INSTRUCTIONS TO ASSEMBLER
98
99 IF1,<BYTBLK=14773> ;BYTBLK BEYOND AC RANGE FOR PASS 1
100 IF1,<BLTBLK=15000> ;BLTBLK BEYOND AC RANGE FOR PASS 1
101
102 ;MACROS
103
104 DEFINE GMOV (X1,DATA),<
105 IFLE <X1-20>,<
106 MOVE X1,[DATA] ;PRELOAD X1 WITH DATA>
107 IFG <X1-20>,<
108 MOVE AC+1,[DATA]
109 MOVEM AC+1,X1 ;PRELOAD X1 WITH DATA>>
110
111 DEFINE GCAM (X1,DATA),<
112 SN=SN+1
113 IFG <X1-20>,<
114 MOVE AC-1,X1
115 CAME AC-1,[DATA] ;IS C(X1) = DATA
116 IFIDN <DEST>,<X1>,<
117 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
118 IFDIF <DEST>,<X1>,<
119 ER2 AC-1,SN ;C(X1) WAS CLOBBERED>>
120 IFLE <X1-20>,<
121 CAME X1,[DATA] ;IS C(X1) = DATA
122 IFIDN <DEST>,<X1>,<
123 ER2 X1,SN ;DEST NOT LOADED CORRECTLY>
124 IFDIF <DEST>,<X1>,<
125 ER2 X1,SN ;C(X1) WAS CLOBBERED>>>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 5
DSKAMT MAC 29-Mar-78 10:18 DIAGNOSTIC PARAMETERS SEQ 0016
126 DEFINE BLTM1 (A1,C1,S1,D1,SC)<
127 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
128 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT
129 ;SOURCE DATA = SC
130
131 AC=C1
132 SAVEAC (1,1)
133 SN=A1
134 SRCE=S1 ;1ST LOC OF SOURCE = S1
135 DEST=D1 ;1ST LOC OF DESTINATION = D1
136 SIZ=1 ;BLOCK SIZE = 1 WORD
137
138 G'A1: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC
139 GMOV (SRCE-1,<252525252525>)
140 GMOV (SRCE,<SC>)
141 GMOV (SRCE+1,<770077007700>)
142 GMOV (DEST-1,<070707070707>)
143 GMOV (DEST,<123456765432>)
144 GMOV (DEST+1,<552255225522>)
145 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER
146 GCAM (SRCE-1,<252525252525>)
147 GCAM (SRCE,<SC>)
148 GCAM (SRCE+1,<770077007700>)
149 GCAM (DEST-1,<070707070707>)
150 GCAM (DEST,<SC>)
151 GCAM (DEST+1,<552255225522>)
152 JUMPL AC+2,G'A1 ;LOOP ON ERROR>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1
PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0017
153 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978
154
155 DEFINE S,<;*********************************************************************>
156
157 S^;*********************************************************************^
158 ;*DATA SWITCHES
159 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
160 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
161 S^;*********************************************************************^
162
163 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
164 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
165 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
166
167 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
168 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
169 010000 DING== 010000 ;RING BELL ON ERROR
170
171 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
172 002000 ERSTOP==002000 ;HALT ON TEST ERROR
173 001000 PALERS==001000 ;PRINT ALL ERRORS
174
175 000400 RELIAB==000400 ;RELIABILITY MODE
176 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
177 000100 INHPAG==000100 ;INHIBIT PAGING
178
179 000040 MODDVC==000040 ;MODIFY DEVICE CODE
180 000020 INHCSH==000020 ;INHIBIT CACHE
181 000010 OPRSEL==000010 ;OPERATOR SELECTION
182
183 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
184
185 ;SWITCH 16 RESERVED
186
187 ;SWITCH 17 RESERVED !!!
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 2
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0018
188 SUBTTL PROGRAM/SUBROUTINE PARAMETERS
189
190 S^;*********************************************************************^
191 ;*SPECIAL SUBPROGRAM LINKAGES
192 S^;*********************************************************************^
193
194 027772 FSELNK= 27772 ;FILE SELECT LINK
195 027773 FRDLNK= 27773 ;FILE READ LINK
196 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
197 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
198 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
199 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
200
201 S^;*********************************************************************^
202 ;*SPECIAL SUBROUTINE FATAL HALTS
203 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
204 S^;*********************************************************************^
205
206 ;ADDRESS TAG REASON
207 ;---------------------
208
209 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
210 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
211 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
212 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
213 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL
214 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET
215 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
216 ; 1017 EOPERR ;END OF PROGRAM ERROR
217 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
218
219 S^;*********************************************************************^
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 3
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0019
220 S^;*********************************************************************^
221 ;OPERATOR DEFINITIONS (NON-UUO'S)
222 S^;*********************************************************************^
223
224 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
225 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
226 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
227 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
228 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
229 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
230 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
231 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
232
233 S^;*********************************************************************^
234 ;*SUBROUTINE INITIALIZATION CALL
235 S^;*********************************************************************^
236
237 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
238
239 S^;*********************************************************************^
240 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
241 S^;*********************************************************************^
242
243 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
244 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
245
246 S^;*********************************************************************^
247 ;*TERMINAL INPUT UUO'S
248 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
249 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
250 S^;*********************************************************************^
251
252 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
253 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
254 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
255 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
256 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
257 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
258 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
259 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
260 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
261 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
262 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 4
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0020
263 ;*TERMINAL OUTPUT UUO'S.
264
265 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
266 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
267 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
268 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
269 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
270 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
271 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
272 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
273 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
274 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
275 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
276 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
277 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
278 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
279 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
280 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
281 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
282 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
283 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
284 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
285 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
286 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
287 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
288 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
289 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
290 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
291 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
292 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
293 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
294 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
295 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
296 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
297 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
298 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
299 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
300 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
301 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
302 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
303 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
304 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
305 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
306 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 5
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0021
307 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
308 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
309 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
310 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
311 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
312 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
313 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
314 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
315 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
316 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
317 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
318 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
319 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
320
321 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
322
323 DEFINE PMSG (ARG),<
324 PSIXM [SIXBIT\ARG'_\]>
325
326 DEFINE PMSGF (ARG),<
327 PSIXMF [SIXBIT\ARG'_\]>
328
329 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
330 ;* CONSERVES CORE OVER ASCIZ
331
332 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
333
334 ;*CONSOLE SWITCH INPUT UUO.
335 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
336 ;* USER MODE.
337
338 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
339
340 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
341 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
342
343 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK
344 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER
345
346 ;*KS-10 CACHE OPERATION UUO'S
347
348 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
349 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
350 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 6
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0022
351 ;*END OF PASS/PROGRAM UUOS
352
353 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
354 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
355
356 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
357 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
358
359 ;*MEMORY MANAGEMENT UUO'S
360 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
361 ;*ADDRESS CONVERSION, ETC...
362
363 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
364 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
365 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
366 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
367 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
368 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
369 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
370
371 ;*DEVICE CODE MODIFICATION UUO
372 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
373 ;*IOT'S TO A DIFFERENT DEVICE CODE.
374
375 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
376 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
377
378 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
379 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
380
381 ;*"DIAMON" FILE SELECTION AND READ UUOS
382
383 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
384 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
385 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
386 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
387
388 XLIST
389 IFNDEF EROLD,<LIST
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 7
PARAM KSM 28-Mar-78 11:27 ERROR HANDLING UUO DEFINITIONS SEQ 0023
390 SUBTTL ERROR HANDLING UUO DEFINITIONS
391
392 S^;*********************************************************************^
393 ;*ERROR HANDLER PARAMETERS
394 S^;*********************************************************************^
395
396 036000 000000 OPDEF ERUUO [36B8] ;ERROR CALL UUO
397 035000 000000 OPDEF ERLOOP [35B8] ;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
398 035040 000000 OPDEF ERLP1 [35B8!1B12] ;ERROR LOOP IF PC'S MATCH
399 035100 000000 OPDEF ERLP2 [35B8!2B12] ;ERROR LOOP IF ANY ERROR
400 034000 000000 OPDEF REPTUO [34B8] ;REPEAT LOOP UUO
401
402 ;*THE ERROR HANDLER MACROS
403
404 ;*A MACRO TO REPORT AN ERROR AND LOOP
405
406 DEFINE ERROR (ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
407 SALL
408 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
409 CORECT,,ACTUAL
410 [SIXBIT\D'_\],,ERR]
411 XALL
412 ERLOOP ADR ;IF ERROR, LOOP TO ADR
413 >
414
415 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP
416
417 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)<
418 SALL
419 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
420 CORECT,,ACTUAL
421 [SIXBIT\D'_\],,ERR]
422 XALL>
423
424 >;END OF EROLD CONDITIONAL
425
426 XLIST
427 LIST
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0024
428 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978
429
430 030000 LOC 30000
431
432 S^;*********************************************************************^
433 ;*PROGRAM STARTING ADDRESSES
434 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
435 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
436 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
437 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
438 S^;*********************************************************************^
439
440 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
441 030001 254 00 0 00 030622 $START: JRST START ;MODE CHECK STARTING ADDRESS
442
443 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
444
445 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
446
447 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
448
449 030005 254 00 0 00 030000 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
450
451 030006 254 00 0 00 030000 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
452
453 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
454 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
455
456 030010 254 00 0 00 030625 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
457 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
458 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
459
460 030013 254000 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
461 030014 254000 030000 START2: SADR8 ; "
462 030015 254000 030000 START3: SADR9 ; "
463 030016 254000 030000 START4: SADR10 ; "
464 030017 254000 030000 START5: SADR11 ; "
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 2
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0025
465 S^;*********************************************************************^
466 ;*PROGRAM FIXED PARAMETER AREA
467 S^;*********************************************************************^
468
469 030020 446353 415500 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
470 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
471 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER
472 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
473 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
474 030025 000000 030602 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
475 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
476 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
477 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
478 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
479 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
480 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
481 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
482 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
483 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
484
485 S^;*********************************************************************^
486 ;*PROGRAM VARIABLE PARAMETER AREA
487 S^;*********************************************************************^
488
489 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
490 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
491 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
492 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
493 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
494 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
495 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
496 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
497 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
498 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
499 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
500 030052 000000 000000 ERRPC: 0 ;ERROR PC
501 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
502 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
503 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
504 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 3
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0026
505 S^;*********************************************************************^
506 ;*SPECIAL PROGRAM DISPATCH ADDRESSES
507 S^;*********************************************************************^
508
509 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
510 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
511 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
512 030062 254000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
513 030063 254000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
514 030064 CPOPJ1: ;SKIP RETURN
515 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
516 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
517 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
518 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
519 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
520 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
521 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
522 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
523 030073 255 00 0 00 000000 $USRHL: JFCL ; "
524 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
525 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
526 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
527 030077 255 00 0 00 000000 RESRT2: JFCL ; "
528 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
529 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
530 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
531
532 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
533 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
534 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
535
536 S^;*********************************************************************^
537 ;*PROCESSOR CONTROL STORAGE
538 S^;*********************************************************************^
539
540 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
541 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
542 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
543 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
544 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
545
546 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
547 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
548
549 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
550 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
551 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
552 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
553 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
554 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
555 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 4
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0027
556 S^;*********************************************************************^
557 ;*UUO DISPATCH TABLE
558 S^;*********************************************************************^
559 XLIST
560 LIST
561 030124 040465 030070 UUODIS: LUUO1,,$UUOER
562 030125 040465 040465 LUUO3,,LUUO2
563 030126 040465 040465 LUUO5,,LUUO4
564 030127 040465 040465 LUUO7,,LUUO6
565 030130 040465 040465 LUUO11,,LUUO10
566 030131 040465 040465 LUUO13,,LUUO12
567 030132 030070 030070 LUUO15,,LUUO14
568 030133 030070 030070 LUUO17,,LUUO16
569 030134 030070 030070 LUUO21,,LUUO20
570 030135 030070 030070 LUUO23,,LUUO22
571 030136 030070 030070 LUUO25,,LUUO24
572 030137 030070 030070 LUUO27,,LUUO26
573 030140 030070 030070 LUUO31,,LUUO30
574 030141 030070 030070 LUUO33,,LUUO32
575
576 S^;*********************************************************************^
577 ;*MEMORY MANAGMENT STORAGE
578 S^;*********************************************************************^
579
580 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
581 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
582 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
583 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
584 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
585
586 S^;*********************************************************************^
587 ;*PRINT CONTROL STORAGE
588 S^;*********************************************************************^
589
590 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
591 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
592 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
593 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
594 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
595 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
596 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
597 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
598 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
599 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
600 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
601 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
602 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
603 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
604 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
605 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
606 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
607 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
608 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 5
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0028
609 S^;*********************************************************************^
610 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
611 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
612 ;* MOVEI NAME
613 ;* PNTA ;OR PNTAF
614 S^;*********************************************************************^
615
616 030242 CRLF: ASCII/
617 030242 015 012 000 000 000 /
618 030243 CRLF2: ASCII/
619
620 030243 015 012 015 012 000 /
621 030244 054 000 000 000 000 COMMA: ASCII/,/
622 030245 056 000 000 000 000 PERIOD: ASCII/./
623 030246 040 000 000 000 000 SPACE: ASCII/ /
624 030247 011 000 000 000 000 TAB: ASCII/ /
625 030250 MINUS:
626 030250 055 000 000 000 000 HYPEN: ASCII/-/
627 030251 053 000 000 000 000 PLUS: ASCII/+/
628 030252 052 000 000 000 000 AST: ASCII/*/
629 030253 100 000 000 000 000 ATSIN: ASCII/@/
630 030254 050 000 000 000 000 LFP: ASCII/(/
631 030255 051 000 000 000 000 RTP: ASCII/)/
632 030256 007 0000000000 BELL: BYTE (7) 007
633 030257 077 000 000 000 000 QUEST: ASCII/?/
634 030260 057 000 000 000 000 SLASH: ASCII!/!
635 030261 044 000 000 000 000 DOLLAR: ASCII/$/
636 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
637 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
638 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
639
640 S^;*********************************************************************^
641 ;*USER MODE OUTPUT FILE INFORMATION
642 S^;*********************************************************************^
643
644 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
645 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
646 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
647 030272 BLOCK 2
648
649 S^;*********************************************************************^
650 ;*DISK UPDATE MODE FILE INFORMATION
651 S^;*********************************************************************^
652
653 030274 $IBUF: BLOCK 3
654 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
655 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
656 030301 BLOCK 2
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 6
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0029
657 S^;*********************************************************************^
658 ;*PUSHDOWN LIST CONTROL INFORMATION
659 S^;*********************************************************************^
660
661 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
662 030304 PLISTS: BLOCK 200
663 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
664
665 S^;*********************************************************************^
666 ;*POWER LINE CLOCK FREQUENCY FLAG
667 S^;*********************************************************************^
668
669 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
670
671 S^;*********************************************************************^
672 ;*KL10 CACHE CONTROL FLAGS
673 S^;*********************************************************************^
674
675 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
676 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
677
678 S^;*********************************************************************^
679 ;*NUMBER INPUT DIGIT FLAG
680 S^;*********************************************************************^
681
682 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
683
684 S^;*********************************************************************^
685 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
686 S^;*********************************************************************^
687
688 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
689
690 S^;*********************************************************************^
691 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
692 S^;*********************************************************************^
693
694 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
695 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
696 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
697
698 S^;*********************************************************************^
699 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
700 S^;*********************************************************************^
701
702 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 7
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0030
703 S^;*********************************************************************^
704 ;*USER MODE MONITOR TYPE FLAG
705 S^;*********************************************************************^
706
707 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20
708
709 S^;*********************************************************************^
710 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
711 S^;*********************************************************************^
712
713 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
714
715 S^;*********************************************************************^
716 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
717 S^;*********************************************************************^
718
719 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
720
721 S^;*********************************************************************^
722 ;*"SWITCH" CALL USAGE CONTROL
723 S^;*********************************************************************^
724
725 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
726
727 S^;*********************************************************************^
728 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
729 S^;*********************************************************************^
730
731 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
732 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
733
734 S^;*********************************************************************^
735 ;*SM10 (KS-10) PROCESSOR TYPE FLAG
736 S^;*********************************************************************^
737
738 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10
739
740 S^;*********************************************************************^
741 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
742 S^;*********************************************************************^
743
744 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
745
746 S^;*********************************************************************^
747 ;*SPECIAL FUTURE EXPANSION ROOM
748 S^;*********************************************************************^
749
750 S^;*********************************************************************^
751 ;*END OF FIXED STORAGE
752 S^;*********************************************************************^
753
754 030577 LOC 30577
755 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1
DSKAM1 MAC 29-Mar-78 10:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0031
756 030600 037 05 0 00 000002 EXIT: DROPDV ;CLOSE LOGICAL OUTPUT FILE
757 030601 000000 030600 EXIT
758
759 030602 PGMNAM: ASCIZ %
760 030602 015 012 104 105 103 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC [DSKAM]
761 030603 123 131 123 124 105
762 030604 115 040 062 060 062
763 030605 060 040 102 101 123
764 030606 111 103 040 111 116
765 030607 123 124 122 125 103
766 030610 124 111 117 116 040
767 030611 104 111 101 107 116
768 030612 117 123 124 111 103
769 030613 040 133 104 123 113
770 030614 101 115 135 015 012 BYTE/BLT/JFFO/MISC
771 030615 102 131 124 105 057
772 030616 102 114 124 057 112
773 030617 106 106 117 057 115
774 030620 111 123 103 015 012 %
775 030621 000 000 000 000 000
776
777 ;INITIALIZE SUBROUTINES
778
779 030622 265 00 0 00 030011 START: PGMINT
780 030623 200 00 0 00 040653 MOVE [ASCIZ/AM/]
781 030624 202 00 0 00 040574 MOVEM TLET
782
783 030625 254 00 0 00 030626 STARTA: JRST PART1 ;GO PERFORM DIAGNOSTIC
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 2
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0032
784 SUBTTL PART IA - BYTE MANIPULATION
785
786
787 ;PART IA - BYTE LOGIC TESTS
788 ;INST-IBP
789 ;TEST ABILITY TO FCE PSE AND DECODE
790 ;PFIELD=14
791 ;SFIELD=6
792 ;BYTEWORD=0,-1
793 ;DESTAC=0
794 ;AN ERROR WILL OCCUR IF AC DIFFERS FROM 0
795 ;FOLLOWING IBP
796
797 000005 PART1: AC=5
798 SAVEAC (1,1)^
799 030626 201 07 0 00 030626 MOVEI AC+2,. ;SAVE TEST PC
800 030627 202 07 0 00 030051 MOVEM AC+2,TESTPC
801 030630 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
802 030631 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
803
804 030632 205 06 0 00 140600 G100: MOVSI AC+1,140600 ;SETUP PNTR WORD
805 030633 201 00 0 00 777777 MOVEI ,-1 ;SETUP BYTE WORD
806 030634 400 05 0 00 000000 SETZ AC, ;SETUP DEST AC
807 030635 133 00 0 00 000006 IBP ,<AC+1>&17 ;INC PNTR WORD
808 030636 332 00 0 00 000005 SKIPE AC&17 ;TEST AC DIFFERS FROM 0
809 030637 003 05 0 00 000101 ER3 AC,101 ;FCE PSE FAILED
810 030640 321 07 0 00 030632 JUMPL AC+2,G100 ;LOOP ON ERROR SWITCH
811
812 ;INST-IBP
813 ;TEST ABILITY TO INCREMENT BYTE PNTR
814 ;WITHOUT AFFECTING BYTE WORD
815 ;PFIELD=14
816 ;SFIELD=6
817 ;BYTE ADDRESS=AC0
818 ;AN ERROR WILL OCCUR IF C(AC0) DIFFERS
819 ;FROM ORIGINAL FOLLOWING IBP
820
821 000014 AC=14
822 SAVEAC (1,1)^
823 030641 201 16 0 00 030641 MOVEI AC+2,. ;SAVE TEST PC
824 030642 202 16 0 00 030051 MOVEM AC+2,TESTPC
825 030643 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
826 030644 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
827
828 030645 474 12 0 00 000000 G200: SETO AC-2, ;SETUP FOR COMPARISON
829 030646 205 15 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR WORD
830 030647 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0)
831 030650 133 00 0 00 000015 IBP ,<AC+1>&17 ;INC BYTE PNTR
832 030651 312 00 0 00 000012 CAME ,<AC-2>&17 ;TEST BYTE WORD
833 030652 012 00 0 00 000201 ER12 ,201 ;BYTE WORD FAILED
834 030653 321 16 0 00 030645 JUMPL AC+2,G200 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 3
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0033
835 ;INST-IBP
836 ;PFIELD=22
837 ;SFIELD=6
838 ;AN ERROR WILL OCCUR IF POINTER IS NOT INCREMENTED
839
840 000013 AC=13
841 SAVEAC (1,1)^
842 030654 201 15 0 00 030654 MOVEI AC+2,. ;SAVE TEST PC
843 030655 202 15 0 00 030051 MOVEM AC+2,TESTPC
844 030656 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
845 030657 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
846
847 030660 205 11 0 00 060600 G300: MOVSI AC-2,060600 ;SETUP FOR COMPARISON
848 030661 205 14 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR WORD
849 030662 133 00 0 00 000014 IBP ,<AC+1>&17 ;INCREMENT PNTR
850 030663 312 14 0 00 000011 CAME AC+1,<AC-2>&17 ;TEST PNTR INC
851 030664 005 14 0 00 000301 ER5 AC+1,301 ;POINTER FAILED
852 030665 321 15 0 00 030660 JUMPL AC+2,G300 ;LOOP ON ERROR SWITCH
853
854 ;INST - IBP
855 ;PFIELD=16
856 ;SFIELD=6
857
858 000012 AC=12
859 SAVEAC (1,1)^
860 030666 201 14 0 00 030666 MOVEI AC+2,. ;SAVE TEST PC
861 030667 202 14 0 00 030051 MOVEM AC+2,TESTPC
862 030670 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
863 030671 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
864
865 030672 205 10 0 00 100600 G400: MOVSI AC-2,100600 ;SETUP FOR COMPARISON
866 030673 205 13 0 00 160600 MOVSI AC+1,160600 ;SETUP PNTR
867 030674 133 00 0 00 000013 IBP ,<AC+1>&17 ;INCREMENT PNTR
868 030675 312 13 0 00 000010 CAME AC+1,<AC-2>&17 ;TEST PFIELD
869 030676 005 13 0 00 000401 ER5 AC+1,401 ;POINTER FAILED
870 030677 321 14 0 00 030672 JUMPL AC+2,G400 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 4
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0034
871 ;INST-IBP
872 ;TEST ABILITY TO TRANSFER INCREMENTED
873 ;PFIELD
874 ;TEST JAM-ZERO'S
875 ;PFIELD=77
876 ;SFIELD=1,2,4,10,20,40
877 ;TEST JAM-ONE'S
878 ;PFIELD=6,14,30,60,40
879 ;SFIELD=3,6,14,30,20
880
881 000010 AC=10
882 SAVEAC (1,1)^
883 030700 201 12 0 00 030700 MOVEI AC+2,. ;SAVE TEST PC
884 030701 202 12 0 00 030051 MOVEM AC+2,TESTPC
885 030702 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
886 030703 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
887
888 000600 SN=600
889 000040 ZZ=40
890 004000 YY=4000
891
892 G600: REPEAT ^D6,
893 <SN=SN+1
894 ZZ=ZZ+ZZ
895 YY=YY+YY
896 MOVSI AC-2,770000+ZZ-YY ;SETUP FOR COMPARISON
897 MOVSI AC+1,770000+ZZ ;SETUP PNTR WORD
898 IBP ,<AC+1>&17 ;INCREMENT BYTE PNTR
899 CAME AC+1,<AC-2>&17 ;TEST PFIELD
900 ER5 AC+1,SN ;BIT UNDER TEST FAILED
901 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
902 >
903 000601 SN=SN+1
904 000100 ZZ=ZZ+ZZ
905 010000 YY=YY+YY
906 030704 205 06 0 00 760100 MOVSI AC-2,770000+ZZ-YY ;SETUP FOR COMPARISON
907 030705 205 11 0 00 770100 MOVSI AC+1,770000+ZZ ;SETUP PNTR WORD
908 030706 133 00 0 00 000011 IBP ,<AC+1>&17 ;INCREMENT BYTE PNTR
909 030707 312 11 0 00 000006 CAME AC+1,<AC-2>&17 ;TEST PFIELD
910 030710 005 11 0 00 000601 ER5 AC+1,SN ;BIT UNDER TEST FAILED
911 030711 321 12 0 00 030704 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
912
913 000602 SN=SN+1
914 000200 ZZ=ZZ+ZZ
915 020000 YY=YY+YY
916 030712 205 06 0 00 750200 MOVSI AC-2,770000+ZZ-YY ;SETUP FOR COMPARISON
917 030713 205 11 0 00 770200 MOVSI AC+1,770000+ZZ ;SETUP PNTR WORD
918 030714 133 00 0 00 000011 IBP ,<AC+1>&17 ;INCREMENT BYTE PNTR
919 030715 312 11 0 00 000006 CAME AC+1,<AC-2>&17 ;TEST PFIELD
920 030716 005 11 0 00 000602 ER5 AC+1,SN ;BIT UNDER TEST FAILED
921 030717 321 12 0 00 030712 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
922
923 000603 SN=SN+1
924 000400 ZZ=ZZ+ZZ
925 040000 YY=YY+YY
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 4-1
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0035
926 030720 205 06 0 00 730400 MOVSI AC-2,770000+ZZ-YY ;SETUP FOR COMPARISON
927 030721 205 11 0 00 770400 MOVSI AC+1,770000+ZZ ;SETUP PNTR WORD
928 030722 133 00 0 00 000011 IBP ,<AC+1>&17 ;INCREMENT BYTE PNTR
929 030723 312 11 0 00 000006 CAME AC+1,<AC-2>&17 ;TEST PFIELD
930 030724 005 11 0 00 000603 ER5 AC+1,SN ;BIT UNDER TEST FAILED
931 030725 321 12 0 00 030720 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
932
933 000604 SN=SN+1
934 001000 ZZ=ZZ+ZZ
935 100000 YY=YY+YY
936 030726 205 06 0 00 671000 MOVSI AC-2,770000+ZZ-YY ;SETUP FOR COMPARISON
937 030727 205 11 0 00 771000 MOVSI AC+1,770000+ZZ ;SETUP PNTR WORD
938 030730 133 00 0 00 000011 IBP ,<AC+1>&17 ;INCREMENT BYTE PNTR
939 030731 312 11 0 00 000006 CAME AC+1,<AC-2>&17 ;TEST PFIELD
940 030732 005 11 0 00 000604 ER5 AC+1,SN ;BIT UNDER TEST FAILED
941 030733 321 12 0 00 030726 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
942
943 000605 SN=SN+1
944 002000 ZZ=ZZ+ZZ
945 200000 YY=YY+YY
946 030734 205 06 0 00 572000 MOVSI AC-2,770000+ZZ-YY ;SETUP FOR COMPARISON
947 030735 205 11 0 00 772000 MOVSI AC+1,770000+ZZ ;SETUP PNTR WORD
948 030736 133 00 0 00 000011 IBP ,<AC+1>&17 ;INCREMENT BYTE PNTR
949 030737 312 11 0 00 000006 CAME AC+1,<AC-2>&17 ;TEST PFIELD
950 030740 005 11 0 00 000605 ER5 AC+1,SN ;BIT UNDER TEST FAILED
951 030741 321 12 0 00 030734 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
952
953 000606 SN=SN+1
954 004000 ZZ=ZZ+ZZ
955 400000 YY=YY+YY
956 030742 205 06 0 00 374000 MOVSI AC-2,770000+ZZ-YY ;SETUP FOR COMPARISON
957 030743 205 11 0 00 774000 MOVSI AC+1,770000+ZZ ;SETUP PNTR WORD
958 030744 133 00 0 00 000011 IBP ,<AC+1>&17 ;INCREMENT BYTE PNTR
959 030745 312 11 0 00 000006 CAME AC+1,<AC-2>&17 ;TEST PFIELD
960 030746 005 11 0 00 000606 ER5 AC+1,SN ;BIT UNDER TEST FAILED
961 030747 321 12 0 00 030742 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
962
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 5
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0036
963 000011 AC=11
964 SAVEAC (1,1)^
965 030750 201 13 0 00 030750 MOVEI AC+2,. ;SAVE TEST PC
966 030751 202 13 0 00 030051 MOVEM AC+2,TESTPC
967 030752 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
968 030753 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
969
970 ;TEST AR1(1)
971 030754 205 07 0 00 202000 G700: MOVSI AC-2,202000 ;SETUP FOR COMPARISON
972 030755 205 12 0 00 402000 MOVSI AC+1,402000 ;SETUP PNTR WORD
973 030756 133 00 0 00 000012 IBP ,<AC+1>&17 ;INCREMENT PNTR
974 030757 312 12 0 00 000007 CAME AC+1,<AC-2>&17 ;TEST PFIELD
975 030760 005 12 0 00 000701 ER5 AC+1,701 ;POINTER FAILED TO INCREMENT CORRECTLY
976 030761 321 13 0 00 030754 JUMPL AC+2,G700 ;LOOP ON ERROR SWITCH
977
978 ;TEST AR2(1)
979 030762 205 07 0 00 303000 G1000: MOVSI AC-2,303000 ;SETUP FOR COMPARISON
980 030763 205 12 0 00 603000 MOVSI AC+1,603000 ;SETUP PNTR
981 030764 133 00 0 00 000012 IBP ,<AC+1>&17 ;INCREMENT PNTR
982 030765 312 12 0 00 000007 CAME AC+1,<AC-2>&17 ;TEST PFIELD
983 030766 005 12 0 00 001001 ER5 AC+1,1001 ;POINTER FAILED TO INCREMENT CORRECTLY
984 030767 321 13 0 00 030762 JUMPL AC+2,G1000 ;LOOP ON ERROR SWITCH
985
986 030770 205 07 0 00 141400 G1100: MOVSI AC-2,141400 ;SETUP FOR COMPARISON
987 030771 205 12 0 00 301400 MOVSI AC+1,301400 ;SETUP PNTR
988 030772 133 00 0 00 000012 IBP ,<AC+1>&17 ;INCREMENT PNTR
989 030773 312 12 0 00 000007 CAME AC+1,<AC-2>&17 ;TEST PFIELD
990 030774 005 12 0 00 001101 ER5 AC+1,1101 ;POINTER FAILED TO INCREMENT CORRECTLY
991 030775 321 13 0 00 030770 JUMPL AC+2,G1100 ;LOOP ON ERROR SWITCH
992
993 ;TEST AR4(1)
994 030776 205 07 0 00 060600 G1200: MOVSI AC-2,060600 ;SETUP FOR COMPARISON
995 030777 205 12 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR
996 031000 133 00 0 00 000012 IBP ,<AC+1>&17 ;INCREMENT PNTR
997 031001 312 12 0 00 000007 CAME AC+1,<AC-2>&17 ;TEST PFIELD
998 031002 005 12 0 00 001201 ER5 AC+1,1201 ;POINTER FAILED TO INCREMENT CORRECTLY
999 031003 321 13 0 00 030776 JUMPL AC+2,G1200 ;LOOP ON ERROR SWITCH
1000
1001 ;TEST AR5(1)
1002 031004 205 07 0 00 030300 G1300: MOVSI AC-2,030300 ;SETUP FOR COMPARISON
1003 031005 205 12 0 00 060300 MOVSI AC+1,060300 ;SETUP PNTR
1004 031006 133 00 0 00 000012 IBP ,<AC+1>&17 ;INCREMENT PNTR
1005 031007 312 12 0 00 000007 CAME AC+1,<AC-2>&17 ;TEST P FIELD
1006 031010 005 12 0 00 001301 ER5 AC+1,1301 ;POINTER FAILED TO INCREMENT CORRECTLY
1007 031011 321 13 0 00 031004 JUMPL AC+2,G1300 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 6
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0037
1008 ;INST-IBP
1009 ;PFIELD=5
1010 ;SFIELD=10
1011
1012 000005 AC=5
1013 SAVEAC (1,1)^
1014 031012 201 07 0 00 031012 MOVEI AC+2,. ;SAVE TEST PC
1015 031013 202 07 0 00 030051 MOVEM AC+2,TESTPC
1016 031014 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1017 031015 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1018
1019 031016 205 03 0 00 341000 G1400: MOVSI AC-2,341000 ;SETUP FOR COMPARISON
1020 031017 205 06 0 00 051000 MOVSI AC+1,051000 ;SETUP PNTR WORD
1021 031020 133 00 0 00 000006 IBP ,<AC+1>&17 ;INCREMENT PNPR
1022 031021 620 06 0 00 000001 TRZ AC+1,1 ;CREAR ADDRESS FIELD OF POINTER
1023 031022 312 06 0 00 000003 CAME AC+1,<AC-2>&17 ;TEST P FIELD
1024 031023 005 06 0 00 001401 ER5 AC+1,1401 ;POINTER FAILED
1025 031024 321 07 0 00 031016 JUMPL AC+2,G1400 ;LOOP ON ERROR SWITCH
1026 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 6-1
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0038
1027 ;INST - IBP
1028 ;TEST ABILITY TO TRANSFER PFIELD
1029 ;PRELIMINARY - TEST FOR PRESENCE
1030 ; OF PULSE
1031 ;PFIELD=16
1032 ;SFIELD=6
1033
1034 000005 AC=5
1035 SAVEAC (1,1)^
1036 031025 201 07 0 00 031025 MOVEI AC+2,. ;SAVE TEST PC
1037 031026 202 07 0 00 030051 MOVEM AC+2,TESTPC
1038 031027 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1039 031030 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1040
1041 031031 205 03 0 00 100600 G1500: MOVSI AC-2,100600 ;SETUP FOR COMPARISON
1042 031032 205 06 0 00 160600 MOVSI AC+1,160600 ;SETUP PNTR WORD
1043 031033 133 00 0 00 000006 IBP ,<AC+1>&17 ;INCREMENT BYTE PNTR
1044 031034 620 06 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35
1045 031035 312 06 0 00 000003 CAME AC+1,<AC-2>&17 ;TEST PFIELD
1046 031036 005 06 0 00 001501 ER5 AC+1,1501 ;POINTER FAILED
1047 031037 321 07 0 00 031031 JUMPL AC+2,G1500 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 7
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0039
1048 ;INST-IBP
1049 ;TEST ABILITY TO TRANSFER PFIELD
1050 ;TEST ABILITY TO SET INDIVIDUAL
1051 ;SC BITS 3-8
1052 ;PFIELD=1,2,4,10,20,40
1053 ;SFIELD=1,2,4,10,20,40
1054
1055 000014 AC=14
1056 SAVEAC (1,1)^
1057 031040 201 16 0 00 031040 MOVEI AC+2,. ;SAVE TEST PC
1058 031041 202 16 0 00 030051 MOVEM AC+2,TESTPC
1059 031042 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1060 031043 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1061 ;TEST SC BIT 8 SET
1062 031044 205 12 0 00 000100 G1600: MOVSI AC-2,000100 ;SETUP FOR COMPARISON
1063 031045 205 15 0 00 010100 MOVSI AC+1,010100 ;SETUP PNTR WORD
1064 031046 133 00 0 00 000015 IBP ,<AC+1>&17 ;INCREMENT BYTE PNTR
1065 031047 620 15 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35
1066 031050 312 15 0 00 000012 CAME AC+1,<AC-2>&17 ;TEST BIT 8
1067 031051 005 15 0 00 001601 ER5 AC+1,1601 ;POINTER FAILED
1068 031052 321 16 0 00 031044 JUMPL AC+2,G1600 ;LOOP ON ERROR SWITCH
1069
1070 ;TEST SC BIT 7 SET
1071 031053 205 12 0 00 000200 G1700: MOVSI AC-2,000200 ;SETUP FOR COMPARISON
1072 031054 205 15 0 00 020200 MOVSI AC+1,020200 ;SETUP PNTR WORD
1073 031055 133 00 0 00 000015 IBP ,<AC+1>&17 ;INCREMENT BYTE PNTR
1074 031056 620 15 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35
1075 031057 312 15 0 00 000012 CAME AC+1,<AC-2>&17 ;TEST BIT 7
1076 031060 005 15 0 00 001701 ER5 AC+1,1701 ;POINTER FAILED
1077 031061 321 16 0 00 031053 JUMPL AC+2,G1700 ;LOOP ON ERROR SWITCH
1078
1079 ;TEST SC BIT 6 SET
1080 031062 205 12 0 00 000400 G2000: MOVSI AC-2,000400 ;SETUP FOR COMPARISON
1081 031063 205 15 0 00 040400 MOVSI AC+1,040400 ;SETUP PNTR WORD
1082 031064 133 00 0 00 000015 IBP ,<AC+1>&17 ;INCREMENT BYTE PNTR
1083 031065 620 15 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35
1084 031066 312 15 0 00 000012 CAME AC+1,<AC-2>&17 ;TEST BIT 6
1085 031067 005 15 0 00 002001 ER5 AC+1,2001 ;POINTER FAILED
1086 031070 321 16 0 00 031062 JUMPL AC+2,G2000 ;LOOP ON ERROR SWITCH
1087
1088 ;TEST SC BIT 5 SET
1089 031071 205 12 0 00 001000 G2100: MOVSI AC-2,001000 ;SETUP FOR COMPARISON
1090 031072 205 15 0 00 101000 MOVSI AC+1,101000 ;SETUP PNTR WORD
1091 031073 133 00 0 00 000015 IBP ,<AC+1>&17 ;INCREMENT BYTE PNTR
1092 031074 620 15 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35
1093 031075 312 15 0 00 000012 CAME AC+1,<AC-2>&17 ;TEST BIT 5
1094 031076 005 15 0 00 002101 ER5 AC+1,2101 ;POINTER FAILED
1095 031077 321 16 0 00 031071 JUMPL AC+2,G2100 ;LOOP ON ERROR SWITCH
1096
1097 ;TEST SC BIT 4 SET
1098 031100 205 12 0 00 002000 G2200: MOVSI AC-2,002000 ;SETUP FOR COMPARISON
1099 031101 205 15 0 00 202000 MOVSI AC+1,202000 ;SETUP PNTR WORD
1100 031102 133 00 0 00 000015 IBP ,<AC+1>&17 ;INCREMENT BYTE PNTR
1101 031103 620 15 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35
1102 031104 312 15 0 00 000012 CAME AC+1,<AC-2>&17 ;TEST BIT 4
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 7-1
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0040
1103 031105 005 15 0 00 002201 ER5 AC+1,2201 ;POINTER FAILED
1104 031106 321 16 0 00 031100 JUMPL AC+2,G2200 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 8
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0041
1105 ;TEST SC BIT 3 SET
1106 031107 205 12 0 00 004000 G2300: MOVSI AC-2,004000 ;SETUP FOR COMPARISON
1107 031110 205 15 0 00 404000 MOVSI AC+1,404000 ;SETUP PNTR WORD
1108 031111 133 00 0 00 000015 IBP ,<AC+1>&17 ;INCREMENT BYTE PNTR
1109 031112 620 15 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35
1110 031113 312 15 0 00 000012 CAME AC+1,<AC-2>&17 ;TEST BIT 3
1111 031114 005 15 0 00 002301 ER5 AC+1,2301 ;POINTER FAILED
1112 031115 321 16 0 00 031107 JUMPL AC+2,G2300 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 9
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0042
1113 ;INST-IBP
1114 ;TEST ABILITY TO SET SC BITS 3,6
1115 ;PFIELD=6
1116 ;SFIELD=10
1117 ;FAILURE OF BIT 3 TO SET RESULTS IN A
1118 ;PFIELD=74
1119 ;FAILURE OF BIT 6 TO SET RESULTS IN
1120 ;A PFEILD=30
1121 ;SC BIT2 IS NOT TESTED-FAILURE TO SET
1122 ;BIT 2 RESULTS IN LOOPING
1123
1124 000013 AC=13
1125 SAVEAC (1,1)^
1126 031116 201 15 0 00 031116 MOVEI AC+2,. ;SAVE TEST PC
1127 031117 202 15 0 00 030051 MOVEM AC+2,TESTPC
1128 031120 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1129 031121 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1130
1131 031122 205 11 0 00 341000 G2400: MOVSI AC-2,341000 ;SETUP FOR COMPARISON
1132 031123 205 14 0 00 061000 MOVSI AC+1,061000 ;SETUP PNTR WORD
1133 031124 133 00 0 00 000014 IBP ,<AC+1>&17 ;INCREMENT PNTR
1134 031125 620 14 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35
1135 031126 312 14 0 00 000011 CAME AC+1,<AC-2>&17 ;TEST SC3 (1)
1136 031127 005 14 0 00 002401 ER5 AC+1,2401 ;POINTER FAILED
1137 031130 321 15 0 00 031122 JUMPL AC+2,G2400 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 10
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0043
1138 ;INST-IBP
1139 ;TEST ABILITY TO CLEAR INDIVIDUAL
1140 ;SC BITS
1141 ;PFIELD=20,10,2,1
1142 ;SFIELD=21,11,3,2
1143 ;FAILURE TO CLEAR SC BITS 4,5,7
1144 ;OR 8 RESULTS IN A PFIELD=43
1145 ;FAILURE TO CLEAR SC BITS 3 OR 6
1146 ;WILL NOT BE APPARENT
1147
1148 000011 AC=11
1149 SAVEAC (1,1)^
1150 031131 201 13 0 00 031131 MOVEI AC+2,. ;SAVE TEST PC
1151 031132 202 13 0 00 030051 MOVEM AC+2,TESTPC
1152 031133 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1153 031134 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1154
1155 ;TEST SC4 CLEARING
1156 031135 205 07 0 00 232100 G2600: MOVSI AC-2,232100 ;SETUP FOR COMPARISON
1157 031136 205 12 0 00 202100 MOVSI AC+1,202100 ;SETUP PNTR WORD
1158 031137 133 00 0 00 000012 IBP ,<AC+1>&17 ;INCREMENT PNTR
1159 031140 620 12 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35
1160 031141 312 12 0 00 000007 CAME AC+1,<AC-2>&17 ;TEST PFIELD=43
1161 031142 005 12 0 00 002601 ER5 AC+1,2601 ;POINTER FAILED
1162 031143 321 13 0 00 031135 JUMPL AC+2,G2600 ;LOOP ON ERROR SWITCH
1163
1164 ;TEST SC5 CLEARING
1165 031144 205 07 0 00 331100 G2700: MOVSI AC-2,331100 ;SETUP FOR COMPARISON
1166 031145 205 12 0 00 101100 MOVSI AC+1,101100 ;SETUP PNTR WORD
1167 031146 133 00 0 00 000012 IBP ,<AC+1>&17 ;INCREMENT PNTR
1168 031147 620 12 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35
1169 031150 312 12 0 00 000007 CAME AC+1,<AC-2>&17 ;TEST PFIELD=45
1170 031151 005 12 0 00 002701 ER5 AC+1,2701 ;POINTER FAILED
1171 031152 321 13 0 00 031144 JUMPL AC+2,G2700 ;LOOP ON ERROR SWITCH
1172
1173 ;TEST SC 7 CLEARING
1174 031153 205 07 0 00 410300 G3000: MOVSI AC-2,410300 ;SETUP FOR COMPARISON
1175 031154 205 12 0 00 020300 MOVSI AC+1,020300 ;SETUP PNTR
1176 031155 133 00 0 00 000012 IBP ,<AC+1>&17 ;INCREMENT PNTR
1177 031156 620 12 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35
1178 031157 312 12 0 00 000007 CAME AC+1,<AC-2>&17 ;TEST PFIELD=43
1179 031160 005 12 0 00 003001 ER5 AC+1,3001 ;POINTER FAILED
1180 031161 321 13 0 00 031153 JUMPL AC+2,G3000 ;LOOP ON ERROR SWITCH
1181
1182 ;TEST SC8 CLEARING
1183 031162 205 07 0 00 420200 G3100: MOVSI AC-2,420200 ;SETUP FOR COMPARISON
1184 031163 205 12 0 00 010200 MOVSI AC+1,010200 ;SETUP PNTR
1185 031164 133 00 0 00 000012 IBP ,<AC+1>&17 ;INCREMENT PNTR
1186 031165 620 12 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35
1187 031166 312 12 0 00 000007 CAME AC+1,<AC-2>&17 ;TEST PFIELD=43
1188 031167 005 12 0 00 003101 ER5 AC+1,3101 ;POINTER FAILED
1189 031170 321 13 0 00 031162 JUMPL AC+2,G3100 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 11
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0044
1190 ;INST-IBP
1191 ;TEST ABILITY TO INCREMENT ADDRESS
1192 ;FIELD OF PNTR WORD
1193 ;PFIELD=6
1194 ;SFIELD=10
1195 ;LOSS OF THE SFIELD AND AN ADDRESS=1
1196
1197 000012 AC=12
1198 SAVEAC (1,1)^
1199 031171 201 14 0 00 031171 MOVEI AC+2,. ;SAVE TEST PC
1200 031172 202 14 0 00 030051 MOVEM AC+2,TESTPC
1201 031173 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1202 031174 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1203
1204 031175 205 10 0 00 341000 G3200: MOVSI AC-2,341000 ;SETUP AC-2
1205 031176 340 10 0 00 031177 AOJ AC-2,.+1 ;FOR COMPARISON
1206 031177 205 13 0 00 061000 MOVSI AC+1,061000 ;SETUP PNTR WORD
1207 031200 133 00 0 00 000013 IBP ,<AC+1>&17 ;INC PNTR WORD
1208 031201 312 13 0 00 000010 CAME AC+1,<AC-2>&17 ;TEST FOR ERROR PNTR
1209 031202 005 13 0 00 003201 ER5 AC+1,3201 ;POINTER FAILED
1210 031203 321 14 0 00 031175 JUMPL AC+2,G3200 ;LOOP ON ERROR SWITCH
1211
1212 ;INST-IBP
1213 ;TEST ABILITY TO INCREMENT
1214 ;ADDRESS FIELD OF PNTR WORD
1215 ;PFIELD=6
1216 ;SFIELD=10
1217
1218 000011 AC=11
1219 SAVEAC (1,1)^
1220 031204 201 13 0 00 031204 MOVEI AC+2,. ;SAVE TEST PC
1221 031205 202 13 0 00 030051 MOVEM AC+2,TESTPC
1222 031206 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1223 031207 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1224
1225 031210 505 07 0 00 341000 G3300: HRLI AC-2,341000 ;SETUP AC-2 FOR
1226 031211 541 07 0 00 000012 HRRI AC-2,<AC+1>&17 ;COMPARISON
1227 031212 505 12 0 00 061000 HRLI AC+1,061000 ;SETUP BYTE
1228 031213 541 12 0 00 000011 HRRI AC+1,AC&17 ;PNTR WORD
1229 031214 133 00 0 00 000012 IBP ,<AC+1>&17 ;INCREMENT PNTR
1230 031215 312 12 0 00 000007 CAME AC+1,<AC-2>&17 ;TEST ADDRESS
1231 031216 005 12 0 00 003301 ER5 AC+1,3301 ;POINTER FAILED
1232 031217 321 13 0 00 031210 JUMPL AC+2,G3300 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 12
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0045
1233 ;INST-LDB
1234 ;TEST ABILITY TO FCE (2ND PART)
1235 ;FAILURE TO FCE RESULTS IN LOSS
1236 ;OF DATA WORD
1237 ;PFIELD=0
1238 ;SFIELD=6
1239 ;BYTE WORD=0,777777
1240 ;DEST AC=0
1241
1242 000014 AC=14
1243 SAVEAC (1,1)^
1244 031220 201 16 0 00 031220 MOVEI AC+2,. ;SAVE TEST PC
1245 031221 202 16 0 00 030051 MOVEM AC+2,TESTPC
1246 031222 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1247 031223 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1248
1249 031224 505 15 0 00 000600 G3400: HRLI AC+1,000600 ;SETUP BYTE
1250 031225 541 15 0 00 000005 HRRI AC+1,5 ;PNTR WORD
1251 031226 201 05 0 00 777777 MOVEI 5,-1 ;SETUP BYTE WORD
1252 031227 400 14 0 00 000000 SETZ AC, ;CLEAR DEST AC
1253 031230 135 14 0 00 000015 LDB AC,<AC+1>&17 ;LOAD BYTE
1254 031231 302 14 0 00 000077 CAIE AC,77 ;TEST DEST AC=0,,77
1255 031232 003 14 0 00 003401 ER3 AC,3401 ;AC FAILED
1256 031233 321 16 0 00 031224 JUMPL AC+2,G3400 ;LOOP ON ERROR SWITCH
1257
1258 ;INST-LDB
1259 ;P FIELD =14
1260 ;S FIELD =6
1261 ;BYTE WORD =-1
1262
1263 000011 AC=11
1264 SAVEAC (1,1)^
1265 031234 201 13 0 00 031234 MOVEI AC+2,. ;SAVE TEST PC
1266 031235 202 13 0 00 030051 MOVEM AC+2,TESTPC
1267 031236 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1268 031237 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1269
1270 031240 551 07 0 00 000077 G3500: HRRZI AC-2,77 ;SETUP FOR COMPARISON
1271 031241 205 12 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR
1272 031242 474 00 0 00 000000 SETO ;SETUP BYTE WORD
1273 031243 135 11 0 00 000012 LDB AC,<AC+1>&17 ;LOAD BYTE
1274 031244 312 11 0 00 000007 CAME AC,<AC-2>&17 ;TEST BYTE=0,,77
1275 031245 003 11 0 00 003501 ER3 AC,3501 ;AC FAILED
1276 031246 321 13 0 00 031240 JUMPL AC+2,G3500 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 13
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0046
1277 ;INST-LDB
1278 ;PFIELD=14
1279 ;SFIELD=6
1280 ;BYTE WORD = 777777
1281
1282 000006 AC=6
1283 SAVEAC (1,1)^
1284 031247 201 10 0 00 031247 MOVEI AC+2,. ;SAVE TEST PC
1285 031250 202 10 0 00 030051 MOVEM AC+2,TESTPC
1286 031251 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1287 031252 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1288
1289 031253 205 07 0 00 140600 G3600: MOVSI AC+1,140600 ;SETUP PNTR WORD
1290 031254 201 00 0 00 777777 MOVEI ,-1 ;SETUP BYTE WORD (AC0)
1291 031255 135 06 0 00 000007 LDB AC,<AC+1>&17 ;LOAD BYTE
1292 031256 302 06 0 00 000077 CAIE AC,77 ;TEST DEST AC
1293 031257 003 06 0 00 003601 ER3 AC,3601 ;AC FAILED
1294 031260 321 10 0 00 031253 JUMPL AC+2,G3600 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 14
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0047
1295 ;INST-LDB
1296 ;TEST ABILITY TO TRANSFER 2'S COMP
1297 ;SFIELD
1298 ;TEST ABILITY TO SET INDIVIDUAL
1299 ;BITS OF SC
1300 ;PFIELD=0
1301 ;SFIELD=40,20,10,4,2,1
1302 ;BYTE WORD=-1
1303
1304 000005 AC=5
1305 SAVEAC (1,1)^
1306 031261 201 07 0 00 031261 MOVEI AC+2,. ;SAVE TEST PC
1307 031262 202 07 0 00 030051 MOVEM AC+2,TESTPC
1308 031263 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1309 031264 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1310 ;TEST SC 1,2,3 SET
1311 031265 525 03 0 00 037777 G3700: HRLOI AC-2,37777 ;SETUP FOR COMPARISON
1312 031266 205 06 0 00 004000 MOVSI AC+1,4000 ;SETUP PNTR WORD
1313 031267 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0)
1314 031270 135 05 0 00 000006 LDB AC,<AC+1>&17 ;LOAD BYTE
1315 031271 312 05 0 00 000003 CAME AC,<AC-2>&17 ;TEST BYTE=37777,,777777
1316 031272 003 05 0 00 003701 ER3 AC,3701 ;AC FAILED
1317 031273 321 07 0 00 031265 JUMPL AC+2,G3700 ;LOOP ON ERROR SWITCH
1318
1319 ;TEST SC4 SET
1320 031274 551 03 0 00 177777 G4000: HRRZI AC-2,177777 ;SETUP FOR COMPARISON
1321 031275 205 06 0 00 002000 MOVSI AC+1,2000 ;SETUP PNTR WORD
1322 031276 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0)
1323 031277 135 05 0 00 000006 LDB AC,<AC+1>&17 ;LOAD BYTE
1324 031300 312 05 0 00 000003 CAME AC,<AC-2>&17 ;TEST BYTE=0,,177777
1325 031301 003 05 0 00 004001 ER3 AC,4001 ;AC FAILED
1326 031302 321 07 0 00 031274 JUMPL AC+2,G4000 ;LOOP ON ERROR SWITCH
1327
1328 ;TEST SC5 SET
1329 031303 201 03 0 00 000377 G4100: MOVEI AC-2,377 ;SETUP FOR COMPARISON
1330 031304 205 06 0 00 001000 MOVSI AC+1,1000 ;SETUP PNTR WORD
1331 031305 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0)
1332 031306 135 05 0 00 000006 LDB AC,<AC+1>&17 ;LOAD BYTE
1333 031307 312 05 0 00 000003 CAME AC,<AC-2>&17 ;TEST BYTE = 0,,377
1334 031310 003 05 0 00 004101 ER3 AC,4101 ;AC FAILED
1335 031311 321 07 0 00 031303 JUMPL AC+2,G4100 ;LOOP ON ERROR SWITCH
1336
1337 ;TEST SC6 SET
1338 031312 201 03 0 00 000017 G4200: MOVEI AC-2,17 ;SETUP FOR COMPARISON
1339 031313 205 06 0 00 000400 MOVSI AC+1,400 ;SETUP PNTR WORD
1340 031314 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0)
1341 031315 135 05 0 00 000006 LDB AC,<AC+1>&17 ;LOAD BYTE
1342 031316 312 05 0 00 000003 CAME AC,<AC-2>&17 ;TEST BYTE=0,,17
1343 031317 003 05 0 00 004201 ER3 AC,4201 ;AC FAILED
1344 031320 321 07 0 00 031312 JUMPL AC+2,G4200 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 15
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0048
1345 ;TEST SC 7 SET
1346 031321 201 03 0 00 000003 G4300: MOVEI AC-2,3 ;SETUP FOR COMPARISON
1347 031322 205 06 0 00 000200 MOVSI AC+1,200 ;SETUP PNTR WORD
1348 031323 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0)
1349 031324 135 05 0 00 000006 LDB AC,<AC+1>&17 ;LOAD BYTE
1350 031325 312 05 0 00 000003 CAME AC,<AC-2>&17 ;TEST BYTE=0,,3
1351 031326 003 05 0 00 004301 ER3 AC,4301 ;AC FAILED
1352 031327 321 07 0 00 031321 JUMPL AC+2,G4300 ;LOOP ON ERROR SWITCH
1353
1354 ;TEST SC 8 SET
1355 031330 201 03 0 00 000001 G4400: MOVEI AC-2,1 ;SETUP FOR COMPARISON
1356 031331 205 06 0 00 000100 MOVSI AC+1,100 ;SETUP PNTR WORD
1357 031332 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0)
1358 031333 135 05 0 00 000006 LDB AC,<AC+1>&17 ;LOAD BYTE
1359 031334 312 05 0 00 000003 CAME AC,<AC-2>&17 ;TEST BYTE=0,,1
1360 031335 003 05 0 00 004401 ER3 AC,4401 ;AC FAILED
1361 031336 321 07 0 00 031330 JUMPL AC+2,G4400 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 16
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0049
1362 ;INST-LDB
1363 ;PFIELD=6
1364 ;SFIELD=14
1365 ;BYTE WORD=000000007700
1366
1367 000014 AC=14
1368 SAVEAC (1,1)^
1369 031337 201 16 0 00 031337 MOVEI AC+2,. ;SAVE TEST PC
1370 031340 202 16 0 00 030051 MOVEM AC+2,TESTPC
1371 031341 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1372 031342 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1373
1374 031343 201 12 0 00 000077 G4600: MOVEI AC-2,77 ;SETUP FOR COMPARISON
1375 031344 205 15 0 00 061400 MOVSI AC+1,061400 ;SETUP PNTR WORD
1376 031345 201 00 0 00 007700 MOVEI ,7700 ;SETUP BYTE WORD
1377 031346 135 14 0 00 000015 LDB AC,<AC+1>&17 ;LOAD BYTE
1378 031347 312 14 0 00 000012 CAME AC,<AC-2>&17 ;TEST BYTE =77
1379 031350 003 14 0 00 004601 ER3 AC,4601 ;AC FAILED
1380 031351 321 16 0 00 031343 JUMPL AC+2,G4600 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 17
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0050
1381 ;INST-LDB
1382 ;PFIELD=6
1383 ;SFIELD=6
1384 ;BYTEWORD=-1
1385
1386 000013 AC=13
1387 SAVEAC (1,1)^
1388 031352 201 15 0 00 031352 MOVEI AC+2,. ;SAVE TEST PC
1389 031353 202 15 0 00 030051 MOVEM AC+2,TESTPC
1390 031354 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1391 031355 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1392
1393 031356 201 11 0 00 000077 G4700: MOVEI AC-2,77 ;SETUP FOR COMPARISON
1394 031357 205 14 0 00 060600 MOVSI AC+1,060600 ;SETUP PNTR
1395 031360 474 00 0 00 000000 SETO ;SETUP BYTE WORD
1396 031361 135 13 0 00 000014 LDB AC,<AC+1>&17 ;LOAD BYTE
1397 031362 312 13 0 00 000011 CAME AC,<AC-2>&17 ;TEST BYTE=0,,77
1398 031363 003 13 0 00 004701 ER3 AC,4701 ;AC FAILED
1399 031364 321 15 0 00 031356 JUMPL AC+2,G4700 ;LOOP ON ERROR SWITCH
1400
1401 ;INST-LDB
1402 ;TEST IR 134-7
1403 ;PFIELD=14
1404 ;SFIELD=6
1405 ;BYTE WORD=-1
1406 ;AN ERROR WILL OCCUR IF PC IS INCREMENTED
1407 ;TWICE DURING EXECUTION OF LDB
1408
1409 000010 AC=10
1410 SAVEAC (1,1)^
1411 031365 201 12 0 00 031365 MOVEI AC+2,. ;SAVE TEST PC
1412 031366 202 12 0 00 030051 MOVEM AC+2,TESTPC
1413 031367 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1414 031370 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1415
1416 031371 205 11 0 00 140600 G5000: MOVSI AC+1,140600 ;SETUP PNTR WORD
1417 031372 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0)
1418 031373 135 10 0 00 000011 LDB AC,<AC+1>&17 ;LOAD BYTE
1419 031374 254 00 0 00 031376 JRST ,.+2 ;PC+1 INH ASSERTED
1420 031375 003 10 0 00 005001 ER3 AC,5001 ;AC FAILED
1421 031376 321 12 0 00 031371 JUMPL AC+2,G5000 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 18
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0051
1422 ;INST-LDB
1423 ;TEST ABILITY TO CLEAR BYF6
1424 ;PFIELD=14
1425 ;SFIELD=6
1426 ;BYTE WORD=-1
1427 ;AN ERROR WILL OCCUR IF BYF6(1) WHEN STORED
1428 ;BY JSP
1429
1430 000007 AC=7
1431 SAVEAC (1,1)^
1432 031377 201 11 0 00 031377 MOVEI AC+2,. ;SAVE TEST PC
1433 031400 202 11 0 00 030051 MOVEM AC+2,TESTPC
1434 031401 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1435 031402 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1436
1437 031403 205 10 0 00 140600 G5100: MOVSI AC+1,140600 ;SETUP PNTR WORD
1438 031404 474 00 0 00 000000 SETO ;SETUP BYTE WORD
1439 031405 135 07 0 00 000010 LDB AC,<AC+1>&17 ;LOAD BYTE
1440 031406 265 07 0 00 031407 JSP AC,.+1 ;STORE FLAGS
1441 031407 603 07 0 00 020000 TLNE AC,020000 ;TEST BIT 4
1442 031410 003 07 0 00 005101 ER3 AC,5101 ;AC FAILED
1443 031411 321 11 0 00 031403 JUMPL AC+2,G5100 ;LOOP ON ERROR SWITCH
1444
1445 ;INST-LDB
1446 ;TEST ABILITY TO DEFER (INDIRECT) BYTE
1447 ;PNTR ADDRESS
1448 ;FAILURE TO INDIRECTLY ADDRESS BYTE
1449 ;PNTR RESULTS IN AN ERROR BYTE
1450 ;PFIELD=0
1451 ;SFIELD=6
1452 ;ERROR BYTE=14
1453 ;CORRECT BYTE=44
1454 ;AN ERROR WILL OCCUR IF DEST AC=14
1455 ;FOLLOWING LOAD BYTE INDIRECTLY ADDRESSED
1456
1457 000006 AC=6
1458 SAVEAC (1,1)^
1459 031412 201 10 0 00 031412 MOVEI AC+2,. ;SAVE TEST PC
1460 031413 202 10 0 00 030051 MOVEM AC+2,TESTPC
1461 031414 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1462 031415 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1463
1464 031416 205 07 0 00 000600 G5200: MOVSI AC+1,600 ;SETUP PNTR WORD
1465 031417 505 00 0 00 000600 HRLI ,600 ;SETUP INDIRECT ADDRESS
1466 031420 541 00 0 00 000014 HRRI ,14 ;PNTR WORD (AC0)
1467 031421 201 14 0 00 000044 MOVEI AC+6,44 ;SETUP CORR BYTE WORD
1468 031422 135 06 1 00 000007 LDB AC,@<AC+1>&17 ;LOAD BYTE INDIRECTLY
1469 031423 302 06 0 00 000044 CAIE AC,44 ;TEST FOR CORR BYTE
1470 031424 003 06 0 00 005201 ER3 AC,5201 ;INDIRECT ADDRESSING FAILED
1471 031425 321 10 0 00 031416 JUMPL AC+2,G5200 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 19
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0052
1472 ;INST-LDB
1473 ;TEST IR RT CLR AT6
1474 ;FURTHER TEST OF IR 134-7
1475 ;TEST ABILITY TO CLEAR IR BITS 13-17 FOLLOWING
1476 ;DEFERRING OR INDEXING OF BYTE PNTR ADDR
1477 ;PFIELD=6
1478 ;SFIELD=14
1479 ;CORR BYTE WORD=222222
1480 ;DEST AC=4
1481 ;AN ERROR WILL OCCUR IF DEST AC
1482 ;EQUALS 5555 FOLLOWING LOAD BYTE
1483
1484 000007 AC=7
1485 SAVEAC (1,1)^
1486 031426 201 11 0 00 031426 MOVEI AC+2,. ;SAVE TEST PC
1487 031427 202 11 0 00 030051 MOVEM AC+2,TESTPC
1488 031430 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1489 031431 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1490
1491 031432 205 14 0 00 061400 G5300: MOVSI AC+5,061400 ;SETUP INDEXED PNTR WORD
1492 031433 201 07 0 00 000004 MOVEI AC,4 ;SETUP INDEX AC
1493 031434 201 00 0 00 222222 MOVEI ,222222 ;SETUP CORR BYTE WORD
1494 031435 201 04 0 00 555555 MOVEI AC-3,555555 ;SETUP CORR BYTE WORD
1495 031436 135 07 0 07 000010 LDB AC,<AC+1>&17(AC) ;LOAD BYTE INDEXED
1496 031437 302 07 0 00 002222 CAIE AC,2222 ;TEST FOR CORR BYTE
1497 031440 003 07 0 00 005301 ER3 AC,5301 ;AC FAILED
1498 031441 321 11 0 00 031432 JUMPL AC+2,G5300 ;LOOP ON ERROR SWITCH
1499
1500 ;INST-LDB
1501 ;FURTHER TEST OF IR 134-7
1502 ;TEST ABILITY TO INDEX BYTE WORD ADDRESS
1503 ;P FIELD=0
1504 ;S FIELD=6
1505 ;FAILURE RESULTS IN IR14-17=0,
1506 ;NO INDEX, ERROR BYTE=55
1507
1508 000010 AC=10
1509 SAVEAC (1,1)^
1510 031442 201 12 0 00 031442 MOVEI AC+2,. ;SAVE TEST PC
1511 031443 202 12 0 00 030051 MOVEM AC+2,TESTPC
1512 031444 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1513 031445 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1514
1515 031446 505 11 0 00 000607 G5400: HRLI AC+1,000607 ;SETUP BYTE
1516 031447 541 11 0 00 000005 HRRI AC+1,5 ;PNTR WORD
1517 031450 201 07 0 00 000010 MOVEI 7,10 ;SETUP INDEX AC
1518 031451 201 05 0 00 000055 MOVEI 5,55 ;SETUP NON INDEX BYTE WORD
1519 031452 201 15 0 00 000077 MOVEI 15,77 ;SETUP INDEXED BYTE WORD
1520 031453 135 10 0 00 000011 LDB AC,<AC+1>&17 ;LOAD BYTE
1521 031454 302 10 0 00 000077 CAIE AC,77 ;TEST BYTE=0,,77
1522 031455 003 10 0 00 005401 ER3 AC,5401 ;AC FAILED
1523 031456 321 12 0 00 031446 JUMPL AC+2,G5400 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 20
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0053
1524 ;INST-LDB
1525 ;TEST ABILITY TO INDEX BYTE WORD ADDRESS
1526 ;P FIELD=0
1527 ;S FIELD=6
1528 ;FAILURE RESULTS IN A BYTE WORD
1529 ;ADDRESS EQUAL TO CONTENTS OF
1530 ;INDEX AC(=AC)
1531
1532 000010 AC=10
1533 SAVEAC (1,1)^
1534 031457 201 12 0 00 031457 MOVEI AC+2,. ;SAVE TEST PC
1535 031460 202 12 0 00 030051 MOVEM AC+2,TESTPC
1536 031461 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1537 031462 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1538
1539 031463 505 11 0 00 000607 G5500: HRLI AC+1,000607 ;SETUP BYTE
1540 031464 541 11 0 00 000005 HRRI AC+1,5 ;PNTR WORD
1541 031465 403 10 0 00 000005 SETZB AC,5 ;CLEAR DEST AC'S
1542 031466 201 07 0 00 000010 MOVEI 7,10 ;SETUP INDEX AC
1543 031467 201 15 0 00 000077 MOVEI 15,77 ;SETUP BYTE WORD
1544 031470 135 10 0 00 000011 LDB AC,<AC+1>&17 ;LOAD BYTE
1545 031471 302 10 0 00 000077 CAIE AC,77 ;TEST FOR BYTE
1546 031472 003 10 0 00 005501 ER3 AC,5501 ;AC FAILED
1547 031473 321 12 0 00 031463 JUMPL AC+2,G5500 ;LOOP ON ERROR SWITCH
1548
1549 ;INST-LDB
1550 ;TEST ABILITY TO INDEX BYTE WORD ADDRESS
1551 ;P FIELD=0
1552 ;S FIELD=6
1553 ;FAILURE RESULTS IN AN INDEX AC EQUAL
1554 ;TO INDEX AC+AC(AC7+AC10=AC17)
1555
1556 000010 AC=10
1557 SAVEAC (1,1)^
1558 031474 201 12 0 00 031474 MOVEI AC+2,. ;SAVE TEST PC
1559 031475 202 12 0 00 030051 MOVEM AC+2,TESTPC
1560 031476 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1561 031477 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1562
1563 031500 505 11 0 00 000607 G5600: HRLI AC+1,000607 ;SETUP BYTE
1564 031501 541 11 0 00 000005 HRRI AC+1,5 ;PNTR WORD
1565 031502 201 06 0 00 000010 MOVEI 6,10 ;SETUP INDEX AC
1566 031503 201 15 0 00 000015 MOVEI 15,15 ;SETUP BYTE WORD
1567 031504 201 16 0 00 000005 MOVEI 16,5 ;SETUP ERROR INDEX AC
1568 031505 201 14 0 00 000014 MOVEI 14,14 ;SETUP ERROR BYTE WORD
1569 031506 135 10 0 00 000011 LDB AC,<AC+1>&17 ;LOAD BYTE
1570 031507 302 10 0 00 000015 CAIE AC,15 ;TEST BYTE=15
1571 031510 003 10 0 00 005601 ER3 AC,5601 ;AC FAILED
1572 031511 321 12 0 00 031500 JUMPL AC+2,G5600 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 21
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0054
1573 ;INST-LDB
1574 ;TEST ABILITY TO INDEX BYTE WORD ADDRESS
1575 ;P FIELD=0
1576 ;S FIELD=6
1577 ;FAILURE RESULTS IN INDEXING BY C(AC0)
1578
1579 000010 AC=10
1580 SAVEAC (1,1)^
1581 031512 201 12 0 00 031512 MOVEI AC+2,. ;SAVE TEST PC
1582 031513 202 12 0 00 030051 MOVEM AC+2,TESTPC
1583 031514 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1584 031515 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1585
1586 031516 505 11 0 00 000607 G5700: HRLI AC+1,000607 ;SETUP BYTE
1587 031517 541 11 0 00 000005 HRRI AC+1,5 ;PNTR WORD
1588 031520 201 07 0 00 000010 MOVEI 7,10 ;SETUP INDEX AC
1589 031521 201 15 0 00 000015 MOVEI 15,15 ;SETUP BYTE WORD
1590 031522 201 00 0 00 000007 MOVEI ,7 ;SETUP ERROR INDEX AC
1591 031523 201 14 0 00 000033 MOVEI 14,33 ;SETUP ERROR BYTE WORD
1592 031524 135 10 0 00 000011 LDB AC,AC+1 ;LOAD BYTE
1593 031525 302 10 0 00 000015 CAIE AC,15 ;TEST BYTE=0,,15
1594 031526 003 10 0 00 005701 ER3 AC,5701 ;AC FAILED
1595 031527 321 12 0 00 031516 JUMPL AC+2,G5700 ;LOOP ON ERROR SWITCH
1596
1597 ;INST-ILDB
1598 ;TEST ABILITY TO ASSERT BYTE PTRINC
1599 ;P FIELD=16
1600 ;S FIELD=6
1601 ;FAILURE TO ASSERT MAY RESULT IN A HALT
1602 ;AT ET0
1603 ;AN ERROR WILL OCCUR IF PNTR WORD
1604 ;EQUALS ORIGINAL FOLLOWING ILDB
1605
1606 000005 AC=5
1607 SAVEAC (1,1)^
1608 031530 201 07 0 00 031530 MOVEI AC+2,. ;SAVE TEST PC
1609 031531 202 07 0 00 030051 MOVEM AC+2,TESTPC
1610 031532 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1611 031533 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1612
1613 031534 205 03 0 00 100600 G6000: MOVSI AC-2,100600 ;SETUP FOR COMPARISON
1614 031535 205 06 0 00 160600 MOVSI AC+1,160600 ;SETUP PNTR WORD
1615 031536 134 05 0 00 000006 ILDB AC,<AC+1>&17 ;INC AND LOAD BYTE
1616 031537 312 06 0 00 000003 CAME AC+1,<AC-2>&17 ;TEST PNTR=ORIGINAL
1617 031540 004 06 0 00 006001 ER4 AC+1,6001 ;PNTR FAILED TO INCREMENT
1618 031541 321 07 0 00 031534 JUMPL AC+2,G6000 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 22
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0055
1619
1620 ;INST-ILDB
1621 ;TEST LB BYTE LOAD
1622 ;TEST BYF5 SET
1623 ;P FIELD=22
1624 ;S FIELD=22
1625 ;BYTE WORD=000000777777
1626 ;FAILURE RESULTS IN A BYTE EQUAL
1627 ;TO BYTE WORD.
1628
1629 000014 AC=14
1630 SAVEAC (1,1)^
1631 031542 201 16 0 00 031542 MOVEI AC+2,. ;SAVE TEST PC
1632 031543 202 16 0 00 030051 MOVEM AC+2,TESTPC
1633 031544 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1634 031545 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1635
1636 031546 205 12 0 00 002200 G6100: MOVSI AC-2,002200 ;SETUP FOR COMPARISON
1637 031547 205 15 0 00 222200 MOVSI AC+1,222200 ;SETUP PNTR WORD
1638 031550 201 00 0 00 777777 MOVEI ,-1 ;SETUP BYTE WORD
1639 031551 134 14 0 00 000015 ILDB AC,<AC+1>&17 ;INC AND LOAD BYTE
1640 031552 312 00 0 00 000014 CAME ,AC ;TEST BYTE=000000777777
1641 031553 012 00 0 00 006101 ER12 ,6101 ;BYTE WORD FAILED
1642 031554 312 15 0 00 000012 CAME AC+1,<AC-2>&17 ;TEST PNTR WORD
1643 031555 005 15 0 00 006101 ER5 AC+1,6101 ;POINTER FAILED
1644 031556 321 16 0 00 031546 JUMPL AC+2,G6100 ;LOOP ON ERROR SWITCH
1645
1646 ;INST-ILDB
1647 ;P FIELD=22
1648 ;S FIELD=6
1649 ;BYTE WORD=0000007700000
1650 ;FAILURE RESULTS IN A BYTE
1651 ;=0
1652
1653 000013 AC=13
1654 SAVEAC (1,1)^
1655 031557 201 15 0 00 031557 MOVEI AC+2,. ;SAVE TEST PC
1656 031560 202 15 0 00 030051 MOVEM AC+2,TESTPC
1657 031561 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1658 031562 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1659
1660 031563 205 11 0 00 140600 G6200: MOVSI AC-2,140600 ;SETUP FOR COMPARISON
1661 031564 205 14 0 00 220600 MOVSI AC+1,220600 ;SETUP PNTR WORD
1662 031565 201 00 0 00 770000 MOVEI ,770000 ;SETUP BYTE WORD (AC0)
1663 031566 134 13 0 00 000014 ILDB AC,<AC+1>&17 ;INC AND LOAD BYTE
1664 031567 302 13 0 00 000077 CAIE AC,77 ;TEST BYTE
1665 031570 003 13 0 00 006201 ER3 AC,6201 ;AC FAILED
1666 031571 312 14 0 00 000011 CAME AC+1,<AC-2>&17 ;TEST PNTR WORD
1667 031572 005 14 0 00 006201 ER5 AC+1,6201 ;POINTER FAILED
1668 031573 321 15 0 00 031563 JUMPL AC+2,G6200 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 23
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0056
1669
1670 ;INST-DPB
1671 ;TEST ABILITY TO ASSERT BYF5 SET
1672 ;P FIELD
1673 ;P=14
1674 ;S=6
1675 ;BYTE WORD=000000000077
1676 ;DEST WORD=000000000000
1677
1678 000012 AC=12
1679 SAVEAC (1,1)^
1680 031574 201 14 0 00 031574 MOVEI AC+2,. ;SAVE TEST PC
1681 031575 202 14 0 00 030051 MOVEM AC+2,TESTPC
1682 031576 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1683 031577 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1684
1685 031600 201 10 0 00 770000 G6300: MOVEI AC-2,770000 ;SETUP FOR COMPARISON
1686 031601 205 13 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR WORD
1687 031602 201 12 0 00 000077 MOVEI AC,77 ;SETUP BYTE
1688 031603 400 00 0 00 000000 SETZ ;SETUP DEST WORD
1689 031604 137 12 0 00 000013 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
1690 031605 312 00 0 00 000010 CAME ,<AC-2>&17 ;TEST DEST=0,,770000
1691 031606 012 00 0 00 006301 ER12 ,6301 ;BYTE W0RD FAILED
1692 031607 321 14 0 00 031600 JUMPL AC+2,G6300 ;LOOP ON ERROR SWITCH
1693
1694 ;INST-DPB
1695 ;TEST ABILITY TO ASSERT DPBYTE DEP
1696 ;P FIELD=14
1697 ;S FIELD=6
1698 ;BYTE WORD=55
1699 ;DEST WORD=-1
1700 ;FAILURE OF MQ TO SHIFT RESULTS IN A
1701 ;DEPOSIT BYTE=777777777700
1702
1703 000007 AC=7
1704 SAVEAC (1,1)^
1705 031610 201 11 0 00 031610 MOVEI AC+2,. ;SAVE TEST PC
1706 031611 202 11 0 00 030051 MOVEM AC+2,TESTPC
1707 031612 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1708 031613 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1709
1710 031614 561 05 0 00 557777 G6400: HRROI AC-2,557777 ;SETUP AC-2 FOR COMPARISON
1711 031615 205 10 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR WORD
1712 031616 201 07 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
1713 031617 474 00 0 00 000000 SETO ;SETUP DEST WORD
1714 031620 137 07 0 00 000010 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
1715 031621 312 00 0 00 000005 CAME ,<AC-2>&17 ;TEST DEST=-1,,557777
1716 031622 012 00 0 00 006401 ER12 ,6401 ;BYTE WORD FAILED
1717 031623 321 11 0 00 031614 JUMPL AC+2,G6400 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 25
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0057
1718 ;INST-DPB
1719 ;TEST ABILITY TO AND MASK, BYTE
1720 ;P FIELD=14
1721 ;S FIELD=6
1722 ;BYTE WORD=5555
1723 ;DEST WORD=0
1724 ;FAILURE RESULTS IN A DEPOSIT
1725 ;BYTE=000055550000
1726
1727 000005 AC=5
1728 SAVEAC (1,1)^
1729 031624 201 07 0 00 031624 MOVEI AC+2,. ;SAVE TEST PC
1730 031625 202 07 0 00 030051 MOVEM AC+2,TESTPC
1731 031626 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1732 031627 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1733
1734 031630 551 03 0 00 550000 G7000: HRRZI AC-2,550000 ;SETUP AC-2 FOR COMPARISON
1735 031631 541 03 0 00 550000 HRRI AC-2,550000 ;FOR COMPARISON
1736 031632 205 06 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR WORD
1737 031633 201 05 0 00 005555 MOVEI AC,5555 ;SETUP BYTE WORD
1738 031634 400 00 0 00 000000 SETZ ;SETUP DEST WORD
1739 031635 137 05 0 00 000006 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
1740 031636 312 00 0 00 000003 CAME ,<AC-2>&17 ;TEST DEST WORD=0,,550000
1741 031637 012 00 0 00 007001 ER12 ,7001 ;BYTE WORD FAILED
1742 031640 321 07 0 00 031630 JUMPL AC+2,G7000 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 26
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0058
1743
1744 ;INST-DPB
1745 ;P FIELD = 6
1746 ;S FIELD = 14
1747 ;BYTE WORD=55
1748 ;DEST WORD = -1
1749 ;FAILURE OF ANY ONE RESULTS IN A
1750 ;BYTE = 777777 000077
1751
1752 000014 AC=14
1753 SAVEAC (1,1)^
1754 031641 201 16 0 00 031641 MOVEI AC+2,. ;SAVE TEST PC
1755 031642 202 16 0 00 030051 MOVEM AC+2,TESTPC
1756 031643 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1757 031644 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1758
1759 031645 561 12 0 00 005577 G7100: HRROI AC-2,5577 ;SETUP FOR COMPARISON
1760 031646 205 15 0 00 061400 MOVSI AC+1,061400 ;SETUP PNTR WORD
1761 031647 201 14 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
1762 031650 474 00 0 00 000000 SETO ;SETUP DEST WORD
1763 031651 137 14 0 00 000015 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
1764 031652 312 00 0 00 000012 CAME ,<AC-2>&17 ;TEST BYTE=777777 005577
1765 031653 012 00 0 00 007101 ER12 ,7101 ;BYTE WORD FAILED
1766 031654 321 16 0 00 031645 JUMPL AC+2,G7100 ;LOOP ON ERROR SWITCH
1767
1768 ;INST-DPB
1769 ;P FIELD=14
1770 ;S FIELD=6
1771 ;BYTE WORD=55
1772 ;DEST WORD=0
1773 ;FAILURE RESULTS IN A DEPOSIT
1774 ;BYTE=777777557777
1775
1776 000013 AC=13
1777 SAVEAC (1,1)^
1778 031655 201 15 0 00 031655 MOVEI AC+2,. ;SAVE TEST PC
1779 031656 202 15 0 00 030051 MOVEM AC+2,TESTPC
1780 031657 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1781 031660 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1782
1783 031661 551 11 0 00 550000 G7200: HRRZI AC-2,550000 ;SETUP FOR COMPARISON
1784 031662 205 14 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR WORD
1785 031663 201 13 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
1786 031664 400 00 0 00 000000 SETZ ;SETUP DEST WORD
1787 031665 137 13 0 00 000014 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
1788 031666 312 00 0 00 000011 CAME ,<AC-2>&17 ;TEST DEST WORD=0,,550000
1789 031667 012 00 0 00 007201 ER12 ,7201 ;BYTE WORD FAILED
1790 031670 321 15 0 00 031661 JUMPL AC+2,G7200 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 27
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0059
1791 ;INST-DBP
1792 ;P FIELD=22
1793 ;S FIELD=6
1794 ;BYTE WORD=5555
1795 ;DEST WORD=-1
1796 ;FAILURE RESULTS IN A DEPOSIT
1797 ;BYTE=005455777777
1798
1799 000011 AC=11
1800 SAVEAC (1,1)^
1801 031671 201 13 0 00 031671 MOVEI AC+2,. ;SAVE TEST PC
1802 031672 202 13 0 00 030051 MOVEM AC+2,TESTPC
1803 031673 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1804 031674 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1805
1806 031675 525 07 0 00 777755 G7400: HRLOI AC-2,777755 ;SETUP FOR COMPARISON
1807 031676 205 12 0 00 220600 MOVSI AC+1,220600 ;SETUP PNTR WORD
1808 031677 201 11 0 00 005555 MOVEI AC,5555 ;SETUP BYTE WORD
1809 031700 474 00 0 00 000000 SETO ;SETUP DEST WORD
1810 031701 137 11 0 00 000012 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
1811 031702 312 00 0 00 000007 CAME ,<AC-2>&17 ;TEST DEST WORD=777755,,-1
1812 031703 012 00 0 00 007401 ER12 ,7401 ;BYTE WORD FAILED
1813 031704 321 13 0 00 031675 JUMPL AC+2,G7400 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 28
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0060
1814 ;INST-DPB
1815 ;TEST ABILITY TO CLEAR BYF6
1816 ;P FIELD=14
1817 ;S FIELD=6
1818 ;BYTE WORD=55
1819 ;DEST WORD=0
1820 ;AN ERROR WILL OCCUR IF BYF6(1) WHEN
1821 ;STORED BY JSP
1822
1823 000007 AC=7
1824 SAVEAC (1,1)^
1825 031705 201 11 0 00 031705 MOVEI AC+2,. ;SAVE TEST PC
1826 031706 202 11 0 00 030051 MOVEM AC+2,TESTPC
1827 031707 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1828 031710 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1829
1830 031711 205 10 0 00 140600 G7600: MOVSI AC+1,140600 ;SETUP PNTR WORD
1831 031712 201 07 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
1832 031713 400 00 0 00 000000 SETZ ;SETUP DEST WORD
1833 031714 137 07 0 00 000010 DPB AC,<AC+1>&17 ;DEPOSIT BYTE
1834 031715 265 07 0 00 031716 JSP AC,.+1 ;STORE FLAGS
1835 031716 603 07 0 00 020000 TLNE AC,020000 ;TEST BIT 4
1836 031717 013 07 0 00 007601 ER13 AC,7601 ;BYF6 FAILED TO CLEAR
1837 031720 321 11 0 00 031711 JUMPL AC+2,G7600 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 29
DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0061
1838
1839 ;INST-IDPB
1840 ;TEST ABILITY TO ASSERT BYTE PTRINC
1841 ;TEST ABILITY TO ASSERT DB BYTE DEP
1842 ;FAILURE TO ASSERT BYTE PTR INC
1843 ;MAY CAUSE A HALT AT ET0
1844 ;FAILURE TO ASSERT DB BYTE DEP PREVENTS
1845 ;ARMQSHLT SCT3 (2ND PART)
1846 ;P FIELD=22
1847 ;S FIELD=6
1848 ;DEST WORD=0
1849 ;BYTE WORD=77
1850 ;AN ERROR WILL OCCUR IF BYTE PNTR
1851 ;WORD EQUALS ORIGINAL
1852 ;AN ERROR WILL OCCUR IF DEST WORD
1853 ;EQUALS BYTE WORD
1854
1855 000005 AC=5
1856 SAVEAC (1,1)^
1857 031721 201 07 0 00 031721 MOVEI AC+2,. ;SAVE TEST PC
1858 031722 202 07 0 00 030051 MOVEM AC+2,TESTPC
1859 031723 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1860 031724 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1861
1862 031725 205 03 0 00 140600 G7700: MOVSI AC-2,140600 ;SETUP FOR COMPARISON
1863 031726 205 06 0 00 220600 MOVSI AC+1,220600 ;SETUP PNTR WORD
1864 031727 201 05 0 00 000077 MOVEI AC,77 ;SETUP BYTE WORD
1865 031730 400 00 0 00 000000 SETZ ;SETUP DEST WORD (AC0)
1866 031731 136 05 0 00 000006 IDPB AC,<AC+1>&17 ;INC AND DEPOSIT BYTE
1867 031732 312 06 0 00 000003 CAME AC+1,<AC-2>&17 ;TEST FOR INCREMENTED PNTR
1868 031733 005 06 0 00 007701 ER5 AC+1,7701 ;BYTE PTR INC FAILED
1869 031734 302 00 0 00 770000 CAIE ,770000 ;TEST DEST WORD
1870 031735 012 00 0 00 007701 ER12 ,7701 ;DB BYTE DEP FAILED
1871 031736 321 07 0 00 031725 JUMPL AC+2,G7700 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 30
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0062
1872 SUBTTL PART IB-GENERAL BYTE TEST
1873
1874 ;PART IA- GENERAL BYTE TEST
1875
1876 ;INST-IBP
1877 ;DECREASING P FIELD
1878 ;P FIELD=22,20,16,14,12
1879 ;S FIELD=6
1880 ;RESULTANT P FIELDS=14,12,10,6,4
1881 ;AN ERROR WILL OCCUR ON AN
1882 ;INCORRECT INCREMENTED PNTR WORD
1883
1884 000005 AC=5
1885 SAVEAC (1,1)^
1886 031737 201 07 0 00 031737 MOVEI AC+2,. ;SAVE TEST PC
1887 031740 202 07 0 00 030051 MOVEM AC+2,TESTPC
1888 031741 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1889 031742 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1890
1891 010000 SN=10000
1892 160600 XX=160600
1893 240600 ZZ=240600
1894
1895 G10000: REPEAT ^D5, ;TEST IBP
1896 <SN=SN+1
1897 XX=XX-020000
1898 ZZ=ZZ-020000
1899 MOVSI AC-2,XX ;SETUP FOR COMPARISON
1900 MOVSI AC+1,ZZ ;SETUP PNTR WORD
1901 IBP ,<AC+1>&17 ;INC BYTE PNTR
1902 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
1903 ER5 AC+1,SN ;IBP FAILED
1904 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1905 >
1906 010001 SN=SN+1
1907 140600 XX=XX-020000
1908 220600 ZZ=ZZ-020000
1909 031743 205 03 0 00 140600 MOVSI AC-2,XX ;SETUP FOR COMPARISON
1910 031744 205 06 0 00 220600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
1911 031745 133 00 0 00 000006 IBP ,<AC+1>&17 ;INC BYTE PNTR
1912 031746 312 06 0 00 000003 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
1913 031747 005 06 0 00 010001 ER5 AC+1,SN ;IBP FAILED
1914 031750 321 07 0 00 031743 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1915
1916 010002 SN=SN+1
1917 120600 XX=XX-020000
1918 200600 ZZ=ZZ-020000
1919 031751 205 03 0 00 120600 MOVSI AC-2,XX ;SETUP FOR COMPARISON
1920 031752 205 06 0 00 200600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
1921 031753 133 00 0 00 000006 IBP ,<AC+1>&17 ;INC BYTE PNTR
1922 031754 312 06 0 00 000003 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
1923 031755 005 06 0 00 010002 ER5 AC+1,SN ;IBP FAILED
1924 031756 321 07 0 00 031751 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1925
1926 010003 SN=SN+1
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 30-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0063
1927 100600 XX=XX-020000
1928 160600 ZZ=ZZ-020000
1929 031757 205 03 0 00 100600 MOVSI AC-2,XX ;SETUP FOR COMPARISON
1930 031760 205 06 0 00 160600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
1931 031761 133 00 0 00 000006 IBP ,<AC+1>&17 ;INC BYTE PNTR
1932 031762 312 06 0 00 000003 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
1933 031763 005 06 0 00 010003 ER5 AC+1,SN ;IBP FAILED
1934 031764 321 07 0 00 031757 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1935
1936 010004 SN=SN+1
1937 060600 XX=XX-020000
1938 140600 ZZ=ZZ-020000
1939 031765 205 03 0 00 060600 MOVSI AC-2,XX ;SETUP FOR COMPARISON
1940 031766 205 06 0 00 140600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
1941 031767 133 00 0 00 000006 IBP ,<AC+1>&17 ;INC BYTE PNTR
1942 031770 312 06 0 00 000003 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
1943 031771 005 06 0 00 010004 ER5 AC+1,SN ;IBP FAILED
1944 031772 321 07 0 00 031765 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1945
1946 010005 SN=SN+1
1947 040600 XX=XX-020000
1948 120600 ZZ=ZZ-020000
1949 031773 205 03 0 00 040600 MOVSI AC-2,XX ;SETUP FOR COMPARISON
1950 031774 205 06 0 00 120600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
1951 031775 133 00 0 00 000006 IBP ,<AC+1>&17 ;INC BYTE PNTR
1952 031776 312 06 0 00 000003 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
1953 031777 005 06 0 00 010005 ER5 AC+1,SN ;IBP FAILED
1954 032000 321 07 0 00 031773 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1955
1956 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 30-2
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0064
1957 ;INST-IBP
1958 ;DECREASING S FIELD
1959 ;P FIELD=22
1960 ;S FIELD=14,12,10,6,4
1961 ;RESULTANT P FIELDS=6,10,12,14,16
1962 ;AN ERROR WILL OCCUR ON AN
1963 ;INCORRECT INCREMENTED PNTR WORD
1964
1965 000014 AC=14
1966 SAVEAC (1,1)^
1967 032001 201 16 0 00 032001 MOVEI AC+2,. ;SAVE TEST PC
1968 032002 202 16 0 00 030051 MOVEM AC+2,TESTPC
1969 032003 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1970 032004 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1971
1972 010100 SN=10100
1973 040000 XX=040000
1974 001600 WW=001600
1975 221600 ZZ=221600
1976
1977 G10100: REPEAT ^D5, ;TEST IBP
1978 <SN=SN+1
1979 XX=XX+020000
1980 WW=WW-000200
1981 ZZ=ZZ-000200
1982 MOVSI AC-2,XX+WW ;SETUP FOR COMPARISON
1983 MOVSI AC+1,ZZ ;SETUP PNTR WORD
1984 IBP ,<AC+1>&17 ;INC BYTE PNTR
1985 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
1986 ER5 AC+1,SN ;IBP FAILED
1987 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1988 >
1989 010101 SN=SN+1
1990 060000 XX=XX+020000
1991 001400 WW=WW-000200
1992 221400 ZZ=ZZ-000200
1993 032005 205 12 0 00 061400 MOVSI AC-2,XX+WW ;SETUP FOR COMPARISON
1994 032006 205 15 0 00 221400 MOVSI AC+1,ZZ ;SETUP PNTR WORD
1995 032007 133 00 0 00 000015 IBP ,<AC+1>&17 ;INC BYTE PNTR
1996 032010 312 15 0 00 000012 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
1997 032011 005 15 0 00 010101 ER5 AC+1,SN ;IBP FAILED
1998 032012 321 16 0 00 032005 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1999
2000 010102 SN=SN+1
2001 100000 XX=XX+020000
2002 001200 WW=WW-000200
2003 221200 ZZ=ZZ-000200
2004 032013 205 12 0 00 101200 MOVSI AC-2,XX+WW ;SETUP FOR COMPARISON
2005 032014 205 15 0 00 221200 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2006 032015 133 00 0 00 000015 IBP ,<AC+1>&17 ;INC BYTE PNTR
2007 032016 312 15 0 00 000012 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
2008 032017 005 15 0 00 010102 ER5 AC+1,SN ;IBP FAILED
2009 032020 321 16 0 00 032013 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
2010
2011 010103 SN=SN+1
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 30-3
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0065
2012 120000 XX=XX+020000
2013 001000 WW=WW-000200
2014 221000 ZZ=ZZ-000200
2015 032021 205 12 0 00 121000 MOVSI AC-2,XX+WW ;SETUP FOR COMPARISON
2016 032022 205 15 0 00 221000 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2017 032023 133 00 0 00 000015 IBP ,<AC+1>&17 ;INC BYTE PNTR
2018 032024 312 15 0 00 000012 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
2019 032025 005 15 0 00 010103 ER5 AC+1,SN ;IBP FAILED
2020 032026 321 16 0 00 032021 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
2021
2022 010104 SN=SN+1
2023 140000 XX=XX+020000
2024 000600 WW=WW-000200
2025 220600 ZZ=ZZ-000200
2026 032027 205 12 0 00 140600 MOVSI AC-2,XX+WW ;SETUP FOR COMPARISON
2027 032030 205 15 0 00 220600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2028 032031 133 00 0 00 000015 IBP ,<AC+1>&17 ;INC BYTE PNTR
2029 032032 312 15 0 00 000012 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
2030 032033 005 15 0 00 010104 ER5 AC+1,SN ;IBP FAILED
2031 032034 321 16 0 00 032027 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
2032
2033 010105 SN=SN+1
2034 160000 XX=XX+020000
2035 000400 WW=WW-000200
2036 220400 ZZ=ZZ-000200
2037 032035 205 12 0 00 160400 MOVSI AC-2,XX+WW ;SETUP FOR COMPARISON
2038 032036 205 15 0 00 220400 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2039 032037 133 00 0 00 000015 IBP ,<AC+1>&17 ;INC BYTE PNTR
2040 032040 312 15 0 00 000012 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
2041 032041 005 15 0 00 010105 ER5 AC+1,SN ;IBP FAILED
2042 032042 321 16 0 00 032035 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
2043
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 31
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0066
2044
2045 ;INST-IBP
2046 ;OVERFLOW AND INC ADDRESS
2047 ;P FIELD=0
2048 ;S FIELD=14,12,10,6,4
2049 ;RESULTANT P FIELDS=30,32,34,36,40
2050 ;ADDRESS FIELD INCREMENTED BY ONE
2051 ;AN ERROR WILL OCCUR ON AN INCORRECT
2052 ;INCREMENTED PNTR WORD
2053
2054 000013 AC=13
2055 SAVEAC (1,1)^
2056 032043 201 15 0 00 032043 MOVEI AC+2,. ;SAVE TEST PC
2057 032044 202 15 0 00 030051 MOVEM AC+2,TESTPC
2058 032045 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2059 032046 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2060
2061 010200 SN=10200
2062 260000 XX=260000
2063 001600 ZZ=001600
2064
2065 G10200: REPEAT ^D5, ;TEST IBP
2066 <SN=SN+1
2067 XX=XX+020000
2068 ZZ=ZZ-000200
2069 MOVSI AC-2,XX+ZZ ;SETUP AC-2
2070 AOJ AC-2, ;FOR COMPARISON
2071 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2072 IBP ,<AC+1>&17 ;INC BYTE PNTR
2073 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
2074 ER5 AC+1,SN ;IBP FAILED
2075 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2076 >
2077 010201 SN=SN+1
2078 300000 XX=XX+020000
2079 001400 ZZ=ZZ-000200
2080 032047 205 11 0 00 301400 MOVSI AC-2,XX+ZZ ;SETUP AC-2
2081 032050 340 11 0 00 000000 AOJ AC-2, ;FOR COMPARISON
2082 032051 205 14 0 00 001400 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2083 032052 133 00 0 00 000014 IBP ,<AC+1>&17 ;INC BYTE PNTR
2084 032053 312 14 0 00 000011 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
2085 032054 005 14 0 00 010201 ER5 AC+1,SN ;IBP FAILED
2086 032055 321 15 0 00 032047 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2087
2088 010202 SN=SN+1
2089 320000 XX=XX+020000
2090 001200 ZZ=ZZ-000200
2091 032056 205 11 0 00 321200 MOVSI AC-2,XX+ZZ ;SETUP AC-2
2092 032057 340 11 0 00 000000 AOJ AC-2, ;FOR COMPARISON
2093 032060 205 14 0 00 001200 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2094 032061 133 00 0 00 000014 IBP ,<AC+1>&17 ;INC BYTE PNTR
2095 032062 312 14 0 00 000011 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
2096 032063 005 14 0 00 010202 ER5 AC+1,SN ;IBP FAILED
2097 032064 321 15 0 00 032056 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2098
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 31-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0067
2099 010203 SN=SN+1
2100 340000 XX=XX+020000
2101 001000 ZZ=ZZ-000200
2102 032065 205 11 0 00 341000 MOVSI AC-2,XX+ZZ ;SETUP AC-2
2103 032066 340 11 0 00 000000 AOJ AC-2, ;FOR COMPARISON
2104 032067 205 14 0 00 001000 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2105 032070 133 00 0 00 000014 IBP ,<AC+1>&17 ;INC BYTE PNTR
2106 032071 312 14 0 00 000011 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
2107 032072 005 14 0 00 010203 ER5 AC+1,SN ;IBP FAILED
2108 032073 321 15 0 00 032065 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2109
2110 010204 SN=SN+1
2111 360000 XX=XX+020000
2112 000600 ZZ=ZZ-000200
2113 032074 205 11 0 00 360600 MOVSI AC-2,XX+ZZ ;SETUP AC-2
2114 032075 340 11 0 00 000000 AOJ AC-2, ;FOR COMPARISON
2115 032076 205 14 0 00 000600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2116 032077 133 00 0 00 000014 IBP ,<AC+1>&17 ;INC BYTE PNTR
2117 032100 312 14 0 00 000011 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
2118 032101 005 14 0 00 010204 ER5 AC+1,SN ;IBP FAILED
2119 032102 321 15 0 00 032074 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2120
2121 010205 SN=SN+1
2122 400000 XX=XX+020000
2123 000400 ZZ=ZZ-000200
2124 032103 205 11 0 00 400400 MOVSI AC-2,XX+ZZ ;SETUP AC-2
2125 032104 340 11 0 00 000000 AOJ AC-2, ;FOR COMPARISON
2126 032105 205 14 0 00 000400 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2127 032106 133 00 0 00 000014 IBP ,<AC+1>&17 ;INC BYTE PNTR
2128 032107 312 14 0 00 000011 CAME AC+1,<AC-2>&17 ;TEST INC PNTR
2129 032110 005 14 0 00 010205 ER5 AC+1,SN ;IBP FAILED
2130 032111 321 15 0 00 032103 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2131
2132 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 31-2
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0068
2133 ;INST-LDB
2134 ;INCREASING S FIELD
2135 ;P FIELD=22
2136 ;S FIELD=1,2,3,4,5
2137 ;BYTE WORD=777777000000
2138 ;AN ERROR WILL OCCUR IF AN
2139 ;IN CORRECT BYTE IS LOADED
2140 ;INTO AC
2141
2142 000012 AC=12
2143 SAVEAC (1,1)^
2144 032112 201 14 0 00 032112 MOVEI AC+2,. ;SAVE TEST PC
2145 032113 202 14 0 00 030051 MOVEM AC+2,TESTPC
2146 032114 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2147 032115 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2148
2149 010300 SN=10300
2150 220000 XX=220000
2151 000000 ZZ=0
2152
2153 G10300: REPEAT ^D5, ;TEST LDB
2154 <SN=SN+1
2155 XX=XX+000100
2156 ZZ=ZZ*2+1
2157 MOVSI AC+1,XX ;SETUP PNTR WORD
2158 HRLZI ,-1 ;SETUP BYTE WORD (AC0)
2159 LDB AC,<AC+1>&17 ;LOAD BYTE
2160 CAIE AC,ZZ ;TEST DEST AC
2161 ER3 AC,SN ;LDB FAILED
2162 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
2163 >
2164 010301 SN=SN+1
2165 220100 XX=XX+000100
2166 000001 ZZ=ZZ*2+1
2167 032116 205 13 0 00 220100 MOVSI AC+1,XX ;SETUP PNTR WORD
2168 032117 515 00 0 00 777777 HRLZI ,-1 ;SETUP BYTE WORD (AC0)
2169 032120 135 12 0 00 000013 LDB AC,<AC+1>&17 ;LOAD BYTE
2170 032121 302 12 0 00 000001 CAIE AC,ZZ ;TEST DEST AC
2171 032122 003 12 0 00 010301 ER3 AC,SN ;LDB FAILED
2172 032123 321 14 0 00 032116 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
2173
2174 010302 SN=SN+1
2175 220200 XX=XX+000100
2176 000003 ZZ=ZZ*2+1
2177 032124 205 13 0 00 220200 MOVSI AC+1,XX ;SETUP PNTR WORD
2178 032125 515 00 0 00 777777 HRLZI ,-1 ;SETUP BYTE WORD (AC0)
2179 032126 135 12 0 00 000013 LDB AC,<AC+1>&17 ;LOAD BYTE
2180 032127 302 12 0 00 000003 CAIE AC,ZZ ;TEST DEST AC
2181 032130 003 12 0 00 010302 ER3 AC,SN ;LDB FAILED
2182 032131 321 14 0 00 032124 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
2183
2184 010303 SN=SN+1
2185 220300 XX=XX+000100
2186 000007 ZZ=ZZ*2+1
2187 032132 205 13 0 00 220300 MOVSI AC+1,XX ;SETUP PNTR WORD
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 31-3
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0069
2188 032133 515 00 0 00 777777 HRLZI ,-1 ;SETUP BYTE WORD (AC0)
2189 032134 135 12 0 00 000013 LDB AC,<AC+1>&17 ;LOAD BYTE
2190 032135 302 12 0 00 000007 CAIE AC,ZZ ;TEST DEST AC
2191 032136 003 12 0 00 010303 ER3 AC,SN ;LDB FAILED
2192 032137 321 14 0 00 032132 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
2193
2194 010304 SN=SN+1
2195 220400 XX=XX+000100
2196 000017 ZZ=ZZ*2+1
2197 032140 205 13 0 00 220400 MOVSI AC+1,XX ;SETUP PNTR WORD
2198 032141 515 00 0 00 777777 HRLZI ,-1 ;SETUP BYTE WORD (AC0)
2199 032142 135 12 0 00 000013 LDB AC,<AC+1>&17 ;LOAD BYTE
2200 032143 302 12 0 00 000017 CAIE AC,ZZ ;TEST DEST AC
2201 032144 003 12 0 00 010304 ER3 AC,SN ;LDB FAILED
2202 032145 321 14 0 00 032140 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
2203
2204 010305 SN=SN+1
2205 220500 XX=XX+000100
2206 000037 ZZ=ZZ*2+1
2207 032146 205 13 0 00 220500 MOVSI AC+1,XX ;SETUP PNTR WORD
2208 032147 515 00 0 00 777777 HRLZI ,-1 ;SETUP BYTE WORD (AC0)
2209 032150 135 12 0 00 000013 LDB AC,<AC+1>&17 ;LOAD BYTE
2210 032151 302 12 0 00 000037 CAIE AC,ZZ ;TEST DEST AC
2211 032152 003 12 0 00 010305 ER3 AC,SN ;LDB FAILED
2212 032153 321 14 0 00 032146 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
2213
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 32
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0070
2214
2215 ;INST-LDB
2216 ;INCREASING BYTE WORD
2217 ;INCREASING P FIELD
2218 ;P FIELD=14,17,22,25,33
2219 ;S FIELD=3
2220 ;BYTE WORD=000000070000 SHIFTING
2221 ;LEFT BY 3
2222 ;AN ERROR WILL OCCUR IF DEST AC
2223 ;DIFFERS FROM 7
2224
2225 000011 AC=11
2226 SAVEAC (1,1)^
2227 032154 201 13 0 00 032154 MOVEI AC+2,. ;SAVE TEST PC
2228 032155 202 13 0 00 030051 MOVEM AC+2,TESTPC
2229 032156 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2230 032157 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2231
2232 010400 SN=10400
2233 000000 XX=0
2234 110300 ZZ=110300
2235
2236 G10400: REPEAT ^D5, ;TEST LDB
2237 <SN=SN+1
2238 XX=XX+3
2239 ZZ=ZZ+030000
2240 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2241 MOVEI ,7000 ;SETUP BYTE WORD
2242 ROT ,XX ;ROTATE LEFT BY 3
2243 LDB AC,<AC+1>&17 ;LOAD BYTE
2244 CAIE AC,7 ;TEST DEST AC=7
2245 ER3 AC,SN ;LDB FAILED
2246 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2247 >
2248 010401 SN=SN+1
2249 000003 XX=XX+3
2250 140300 ZZ=ZZ+030000
2251 032160 205 12 0 00 140300 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2252 032161 201 00 0 00 007000 MOVEI ,7000 ;SETUP BYTE WORD
2253 032162 241 00 0 00 000003 ROT ,XX ;ROTATE LEFT BY 3
2254 032163 135 11 0 00 000012 LDB AC,<AC+1>&17 ;LOAD BYTE
2255 032164 302 11 0 00 000007 CAIE AC,7 ;TEST DEST AC=7
2256 032165 003 11 0 00 010401 ER3 AC,SN ;LDB FAILED
2257 032166 321 13 0 00 032160 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2258
2259 010402 SN=SN+1
2260 000006 XX=XX+3
2261 170300 ZZ=ZZ+030000
2262 032167 205 12 0 00 170300 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2263 032170 201 00 0 00 007000 MOVEI ,7000 ;SETUP BYTE WORD
2264 032171 241 00 0 00 000006 ROT ,XX ;ROTATE LEFT BY 3
2265 032172 135 11 0 00 000012 LDB AC,<AC+1>&17 ;LOAD BYTE
2266 032173 302 11 0 00 000007 CAIE AC,7 ;TEST DEST AC=7
2267 032174 003 11 0 00 010402 ER3 AC,SN ;LDB FAILED
2268 032175 321 13 0 00 032167 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 32-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0071
2269
2270 010403 SN=SN+1
2271 000011 XX=XX+3
2272 220300 ZZ=ZZ+030000
2273 032176 205 12 0 00 220300 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2274 032177 201 00 0 00 007000 MOVEI ,7000 ;SETUP BYTE WORD
2275 032200 241 00 0 00 000011 ROT ,XX ;ROTATE LEFT BY 3
2276 032201 135 11 0 00 000012 LDB AC,<AC+1>&17 ;LOAD BYTE
2277 032202 302 11 0 00 000007 CAIE AC,7 ;TEST DEST AC=7
2278 032203 003 11 0 00 010403 ER3 AC,SN ;LDB FAILED
2279 032204 321 13 0 00 032176 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2280
2281 010404 SN=SN+1
2282 000014 XX=XX+3
2283 250300 ZZ=ZZ+030000
2284 032205 205 12 0 00 250300 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2285 032206 201 00 0 00 007000 MOVEI ,7000 ;SETUP BYTE WORD
2286 032207 241 00 0 00 000014 ROT ,XX ;ROTATE LEFT BY 3
2287 032210 135 11 0 00 000012 LDB AC,<AC+1>&17 ;LOAD BYTE
2288 032211 302 11 0 00 000007 CAIE AC,7 ;TEST DEST AC=7
2289 032212 003 11 0 00 010404 ER3 AC,SN ;LDB FAILED
2290 032213 321 13 0 00 032205 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2291
2292 010405 SN=SN+1
2293 000017 XX=XX+3
2294 300300 ZZ=ZZ+030000
2295 032214 205 12 0 00 300300 MOVSI AC+1,ZZ ;SETUP PNTR WORD
2296 032215 201 00 0 00 007000 MOVEI ,7000 ;SETUP BYTE WORD
2297 032216 241 00 0 00 000017 ROT ,XX ;ROTATE LEFT BY 3
2298 032217 135 11 0 00 000012 LDB AC,<AC+1>&17 ;LOAD BYTE
2299 032220 302 11 0 00 000007 CAIE AC,7 ;TEST DEST AC=7
2300 032221 003 11 0 00 010405 ER3 AC,SN ;LDB FAILED
2301 032222 321 13 0 00 032214 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2302
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 33
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0072
2303
2304 ;INST-LDB
2305 ;VARY BYTE ADDRESS
2306 ;P FIELD=22
2307 ;S FIELD=3
2308 ;BYTE WORD=AC NUMBER
2309 ;BYTE PNTR ADDR=AC 6,5,4,3,2
2310 ;AN ERROR WILL OCCUR IF C(DEST AC)
2311 ;DIFFERS FROM AC UNDER TEST
2312
2313 000007 AC=7
2314 SAVEAC (1,1)^
2315 032223 201 11 0 00 032223 MOVEI AC+2,. ;SAVE TEST PC
2316 032224 202 11 0 00 030051 MOVEM AC+2,TESTPC
2317 032225 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2318 032226 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2319
2320 010500 SN=10500
2321 000007 ZZ=7
2322
2323 G10500: REPEAT ^D5, ;TEST LOAD BYTE
2324 <SN=SN+1
2325 ZZ=ZZ-1
2326 HRLI AC+1,220300 ;SETUP BYTE
2327 HRRI AC+1,ZZ ;PNTR WORD
2328 MOVSI ZZ,ZZ ;SETUP BYTE WORD
2329 LDB AC,<AC+1>&17 ;LOAD BYTE
2330 CAIE AC,ZZ ;TEST DEST AC=AC NUMBER
2331 ER3 AC,SN ;LDB FAILED
2332 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2333 >
2334 010501 SN=SN+1
2335 000006 ZZ=ZZ-1
2336 032227 505 10 0 00 220300 HRLI AC+1,220300 ;SETUP BYTE
2337 032230 541 10 0 00 000006 HRRI AC+1,ZZ ;PNTR WORD
2338 032231 205 06 0 00 000006 MOVSI ZZ,ZZ ;SETUP BYTE WORD
2339 032232 135 07 0 00 000010 LDB AC,<AC+1>&17 ;LOAD BYTE
2340 032233 302 07 0 00 000006 CAIE AC,ZZ ;TEST DEST AC=AC NUMBER
2341 032234 003 07 0 00 010501 ER3 AC,SN ;LDB FAILED
2342 032235 321 11 0 00 032227 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2343
2344 010502 SN=SN+1
2345 000005 ZZ=ZZ-1
2346 032236 505 10 0 00 220300 HRLI AC+1,220300 ;SETUP BYTE
2347 032237 541 10 0 00 000005 HRRI AC+1,ZZ ;PNTR WORD
2348 032240 205 05 0 00 000005 MOVSI ZZ,ZZ ;SETUP BYTE WORD
2349 032241 135 07 0 00 000010 LDB AC,<AC+1>&17 ;LOAD BYTE
2350 032242 302 07 0 00 000005 CAIE AC,ZZ ;TEST DEST AC=AC NUMBER
2351 032243 003 07 0 00 010502 ER3 AC,SN ;LDB FAILED
2352 032244 321 11 0 00 032236 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2353
2354 010503 SN=SN+1
2355 000004 ZZ=ZZ-1
2356 032245 505 10 0 00 220300 HRLI AC+1,220300 ;SETUP BYTE
2357 032246 541 10 0 00 000004 HRRI AC+1,ZZ ;PNTR WORD
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 33-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0073
2358 032247 205 04 0 00 000004 MOVSI ZZ,ZZ ;SETUP BYTE WORD
2359 032250 135 07 0 00 000010 LDB AC,<AC+1>&17 ;LOAD BYTE
2360 032251 302 07 0 00 000004 CAIE AC,ZZ ;TEST DEST AC=AC NUMBER
2361 032252 003 07 0 00 010503 ER3 AC,SN ;LDB FAILED
2362 032253 321 11 0 00 032245 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2363
2364 010504 SN=SN+1
2365 000003 ZZ=ZZ-1
2366 032254 505 10 0 00 220300 HRLI AC+1,220300 ;SETUP BYTE
2367 032255 541 10 0 00 000003 HRRI AC+1,ZZ ;PNTR WORD
2368 032256 205 03 0 00 000003 MOVSI ZZ,ZZ ;SETUP BYTE WORD
2369 032257 135 07 0 00 000010 LDB AC,<AC+1>&17 ;LOAD BYTE
2370 032260 302 07 0 00 000003 CAIE AC,ZZ ;TEST DEST AC=AC NUMBER
2371 032261 003 07 0 00 010504 ER3 AC,SN ;LDB FAILED
2372 032262 321 11 0 00 032254 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2373
2374 010505 SN=SN+1
2375 000002 ZZ=ZZ-1
2376 032263 505 10 0 00 220300 HRLI AC+1,220300 ;SETUP BYTE
2377 032264 541 10 0 00 000002 HRRI AC+1,ZZ ;PNTR WORD
2378 032265 205 02 0 00 000002 MOVSI ZZ,ZZ ;SETUP BYTE WORD
2379 032266 135 07 0 00 000010 LDB AC,<AC+1>&17 ;LOAD BYTE
2380 032267 302 07 0 00 000002 CAIE AC,ZZ ;TEST DEST AC=AC NUMBER
2381 032270 003 07 0 00 010505 ER3 AC,SN ;LDB FAILED
2382 032271 321 11 0 00 032263 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2383
2384 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 33-2
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0074
2385 ;INST-LDB
2386 ;BYTE PNTR INDEXED
2387 ;P FIELD=0
2388 ;S FIELD=3
2389 ;BYTE WORD=PNTR WORD
2390 ;AN ERROR WILL OCCUR IF LOADED
2391 ;BYTE DIFFERS FROM CURRENT
2392 ;AC NUMBER
2393
2394 000010 AC=10
2395 SAVEAC (1,1)^
2396 032272 201 12 0 00 032272 MOVEI AC+2,. ;SAVE TEST PC
2397 032273 202 12 0 00 030051 MOVEM AC+2,TESTPC
2398 032274 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2399 032275 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2400
2401 010600 SN=10600
2402 000000 ZZ=0
2403
2404 G10600: REPEAT ^D5, ;TEST LDB INDEXED
2405 <SN=SN+1
2406 ZZ=ZZ+1
2407 MOVSI ,000300 ;SETUP NON IND PNTR WORD
2408 HRLI ZZ,000300 ;SETUP INDEXED
2409 HRRI ZZ,ZZ ;PNTR WORD
2410 LDB AC,(ZZ) ;LOAD BYTE INDEXED
2411 CAIE AC,ZZ ;TEST FOR AC NUMBER
2412 ER3 AC,SN ;LDB FAILED
2413 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2414 >
2415 010601 SN=SN+1
2416 000001 ZZ=ZZ+1
2417 032276 205 00 0 00 000300 MOVSI ,000300 ;SETUP NON IND PNTR WORD
2418 032277 505 01 0 00 000300 HRLI ZZ,000300 ;SETUP INDEXED
2419 032300 541 01 0 00 000001 HRRI ZZ,ZZ ;PNTR WORD
2420 032301 135 10 0 01 000000 LDB AC,(ZZ) ;LOAD BYTE INDEXED
2421 032302 302 10 0 00 000001 CAIE AC,ZZ ;TEST FOR AC NUMBER
2422 032303 003 10 0 00 010601 ER3 AC,SN ;LDB FAILED
2423 032304 321 12 0 00 032276 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2424
2425 010602 SN=SN+1
2426 000002 ZZ=ZZ+1
2427 032305 205 00 0 00 000300 MOVSI ,000300 ;SETUP NON IND PNTR WORD
2428 032306 505 02 0 00 000300 HRLI ZZ,000300 ;SETUP INDEXED
2429 032307 541 02 0 00 000002 HRRI ZZ,ZZ ;PNTR WORD
2430 032310 135 10 0 02 000000 LDB AC,(ZZ) ;LOAD BYTE INDEXED
2431 032311 302 10 0 00 000002 CAIE AC,ZZ ;TEST FOR AC NUMBER
2432 032312 003 10 0 00 010602 ER3 AC,SN ;LDB FAILED
2433 032313 321 12 0 00 032305 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2434
2435 010603 SN=SN+1
2436 000003 ZZ=ZZ+1
2437 032314 205 00 0 00 000300 MOVSI ,000300 ;SETUP NON IND PNTR WORD
2438 032315 505 03 0 00 000300 HRLI ZZ,000300 ;SETUP INDEXED
2439 032316 541 03 0 00 000003 HRRI ZZ,ZZ ;PNTR WORD
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 33-3
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0075
2440 032317 135 10 0 03 000000 LDB AC,(ZZ) ;LOAD BYTE INDEXED
2441 032320 302 10 0 00 000003 CAIE AC,ZZ ;TEST FOR AC NUMBER
2442 032321 003 10 0 00 010603 ER3 AC,SN ;LDB FAILED
2443 032322 321 12 0 00 032314 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2444
2445 010604 SN=SN+1
2446 000004 ZZ=ZZ+1
2447 032323 205 00 0 00 000300 MOVSI ,000300 ;SETUP NON IND PNTR WORD
2448 032324 505 04 0 00 000300 HRLI ZZ,000300 ;SETUP INDEXED
2449 032325 541 04 0 00 000004 HRRI ZZ,ZZ ;PNTR WORD
2450 032326 135 10 0 04 000000 LDB AC,(ZZ) ;LOAD BYTE INDEXED
2451 032327 302 10 0 00 000004 CAIE AC,ZZ ;TEST FOR AC NUMBER
2452 032330 003 10 0 00 010604 ER3 AC,SN ;LDB FAILED
2453 032331 321 12 0 00 032323 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2454
2455 010605 SN=SN+1
2456 000005 ZZ=ZZ+1
2457 032332 205 00 0 00 000300 MOVSI ,000300 ;SETUP NON IND PNTR WORD
2458 032333 505 05 0 00 000300 HRLI ZZ,000300 ;SETUP INDEXED
2459 032334 541 05 0 00 000005 HRRI ZZ,ZZ ;PNTR WORD
2460 032335 135 10 0 05 000000 LDB AC,(ZZ) ;LOAD BYTE INDEXED
2461 032336 302 10 0 00 000005 CAIE AC,ZZ ;TEST FOR AC NUMBER
2462 032337 003 10 0 00 010605 ER3 AC,SN ;LDB FAILED
2463 032340 321 12 0 00 032332 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2464
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 34
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0076
2465
2466 ;INST-LDB
2467 ;BYTE PNTR INDIRECTLY ADDRESSED
2468 ;P FIELD=0
2469 ;S FIELD=3
2470 ;BYTE WORD=PNTR WORD
2471 ;AN ERROR WILL OCCUR IF LOADED
2472 ;BYTE DIFFERS FROM CURRENT
2473 ;AC NUMBER
2474
2475 000007 AC=7
2476 SAVEAC (1,1)^
2477 032341 201 11 0 00 032341 MOVEI AC+2,. ;SAVE TEST PC
2478 032342 202 11 0 00 030051 MOVEM AC+2,TESTPC
2479 032343 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2480 032344 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2481
2482 010700 SN=10700
2483 000000 ZZ=0
2484
2485 G10700: REPEAT ^D5, ;TEST LDB INDIRECTLY ADDRESSED
2486 <SN=SN+1
2487 ZZ=ZZ+1
2488 MOVSI AC+1,440300 ;SETUP DIRECTLY ADDRESSED PNTR WORD
2489 HRRI AC+1,ZZ ;SETUP INDIRECT ADDRESS
2490 HRLI ZZ,000300 ;SETUP INDIRECTLY ADDRESSED
2491 HRRI ZZ,ZZ ;PNTR WORD
2492 SETZ ;SETUP DIRECTLY ADDRESSED BYTE WORD
2493 LDB AC,@<AC+1>&17 ;LOAD BYTE INDIRECTLY ADDRESSED
2494 CAIE AC,ZZ ;TEST FOR AC NUMBER
2495 ER3 AC,SN ;LDB INDIRECTLY ADDRESSED FAILED
2496 JUMPL AC+2,.-10 ;LOOP ON ERROR SWITCH
2497 >
2498 010701 SN=SN+1
2499 000001 ZZ=ZZ+1
2500 032345 205 10 0 00 440300 MOVSI AC+1,440300 ;SETUP DIRECTLY ADDRESSED PNTR WORD
2501 032346 541 10 0 00 000001 HRRI AC+1,ZZ ;SETUP INDIRECT ADDRESS
2502 032347 505 01 0 00 000300 HRLI ZZ,000300 ;SETUP INDIRECTLY ADDRESSED
2503 032350 541 01 0 00 000001 HRRI ZZ,ZZ ;PNTR WORD
2504 032351 400 00 0 00 000000 SETZ ;SETUP DIRECTLY ADDRESSED BYTE WORD
2505 032352 135 07 1 00 000010 LDB AC,@<AC+1>&17 ;LOAD BYTE INDIRECTLY ADDRESSED
2506 032353 302 07 0 00 000001 CAIE AC,ZZ ;TEST FOR AC NUMBER
2507 032354 003 07 0 00 010701 ER3 AC,SN ;LDB INDIRECTLY ADDRESSED FAILED
2508 032355 321 11 0 00 032345 JUMPL AC+2,.-10 ;LOOP ON ERROR SWITCH
2509
2510 010702 SN=SN+1
2511 000002 ZZ=ZZ+1
2512 032356 205 10 0 00 440300 MOVSI AC+1,440300 ;SETUP DIRECTLY ADDRESSED PNTR WORD
2513 032357 541 10 0 00 000002 HRRI AC+1,ZZ ;SETUP INDIRECT ADDRESS
2514 032360 505 02 0 00 000300 HRLI ZZ,000300 ;SETUP INDIRECTLY ADDRESSED
2515 032361 541 02 0 00 000002 HRRI ZZ,ZZ ;PNTR WORD
2516 032362 400 00 0 00 000000 SETZ ;SETUP DIRECTLY ADDRESSED BYTE WORD
2517 032363 135 07 1 00 000010 LDB AC,@<AC+1>&17 ;LOAD BYTE INDIRECTLY ADDRESSED
2518 032364 302 07 0 00 000002 CAIE AC,ZZ ;TEST FOR AC NUMBER
2519 032365 003 07 0 00 010702 ER3 AC,SN ;LDB INDIRECTLY ADDRESSED FAILED
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 34-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0077
2520 032366 321 11 0 00 032356 JUMPL AC+2,.-10 ;LOOP ON ERROR SWITCH
2521
2522 010703 SN=SN+1
2523 000003 ZZ=ZZ+1
2524 032367 205 10 0 00 440300 MOVSI AC+1,440300 ;SETUP DIRECTLY ADDRESSED PNTR WORD
2525 032370 541 10 0 00 000003 HRRI AC+1,ZZ ;SETUP INDIRECT ADDRESS
2526 032371 505 03 0 00 000300 HRLI ZZ,000300 ;SETUP INDIRECTLY ADDRESSED
2527 032372 541 03 0 00 000003 HRRI ZZ,ZZ ;PNTR WORD
2528 032373 400 00 0 00 000000 SETZ ;SETUP DIRECTLY ADDRESSED BYTE WORD
2529 032374 135 07 1 00 000010 LDB AC,@<AC+1>&17 ;LOAD BYTE INDIRECTLY ADDRESSED
2530 032375 302 07 0 00 000003 CAIE AC,ZZ ;TEST FOR AC NUMBER
2531 032376 003 07 0 00 010703 ER3 AC,SN ;LDB INDIRECTLY ADDRESSED FAILED
2532 032377 321 11 0 00 032367 JUMPL AC+2,.-10 ;LOOP ON ERROR SWITCH
2533
2534 010704 SN=SN+1
2535 000004 ZZ=ZZ+1
2536 032400 205 10 0 00 440300 MOVSI AC+1,440300 ;SETUP DIRECTLY ADDRESSED PNTR WORD
2537 032401 541 10 0 00 000004 HRRI AC+1,ZZ ;SETUP INDIRECT ADDRESS
2538 032402 505 04 0 00 000300 HRLI ZZ,000300 ;SETUP INDIRECTLY ADDRESSED
2539 032403 541 04 0 00 000004 HRRI ZZ,ZZ ;PNTR WORD
2540 032404 400 00 0 00 000000 SETZ ;SETUP DIRECTLY ADDRESSED BYTE WORD
2541 032405 135 07 1 00 000010 LDB AC,@<AC+1>&17 ;LOAD BYTE INDIRECTLY ADDRESSED
2542 032406 302 07 0 00 000004 CAIE AC,ZZ ;TEST FOR AC NUMBER
2543 032407 003 07 0 00 010704 ER3 AC,SN ;LDB INDIRECTLY ADDRESSED FAILED
2544 032410 321 11 0 00 032400 JUMPL AC+2,.-10 ;LOOP ON ERROR SWITCH
2545
2546 010705 SN=SN+1
2547 000005 ZZ=ZZ+1
2548 032411 205 10 0 00 440300 MOVSI AC+1,440300 ;SETUP DIRECTLY ADDRESSED PNTR WORD
2549 032412 541 10 0 00 000005 HRRI AC+1,ZZ ;SETUP INDIRECT ADDRESS
2550 032413 505 05 0 00 000300 HRLI ZZ,000300 ;SETUP INDIRECTLY ADDRESSED
2551 032414 541 05 0 00 000005 HRRI ZZ,ZZ ;PNTR WORD
2552 032415 400 00 0 00 000000 SETZ ;SETUP DIRECTLY ADDRESSED BYTE WORD
2553 032416 135 07 1 00 000010 LDB AC,@<AC+1>&17 ;LOAD BYTE INDIRECTLY ADDRESSED
2554 032417 302 07 0 00 000005 CAIE AC,ZZ ;TEST FOR AC NUMBER
2555 032420 003 07 0 00 010705 ER3 AC,SN ;LDB INDIRECTLY ADDRESSED FAILED
2556 032421 321 11 0 00 032411 JUMPL AC+2,.-10 ;LOOP ON ERROR SWITCH
2557
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 35
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0078
2558 ;INST-LDB
2559 ;PNTR INDEXED AND INDIRECTLY ADDRESSED
2560 ;P FIELD=0
2561 ;S FIELD=6
2562 ;PNTR WORD IS IN AC 12,13,14
2563 ;BYTE WORD=PNTR WORD
2564 ;LOADED BYTE SHOULD EQUAL
2565 ;12,13,14
2566
2567 000010 AC=10
2568 SAVEAC (1,1)^
2569 032422 201 12 0 00 032422 MOVEI AC+2,. ;SAVE TEST PC
2570 032423 202 12 0 00 030051 MOVEM AC+2,TESTPC
2571 032424 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2572 032425 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2573
2574 011000 SN=11000
2575 000003 VV=3
2576 000006 WW=6
2577 000011 XX=11
2578 000003 ZZ=3
2579
2580 G11000: REPEAT ^D3, ;TEST LDB INDEXED, INDIRECTLY ADDRESSED
2581 <SN=SN+1
2582 VV=VV+1
2583 WW=WW+1
2584 XX=XX+1
2585 ZZ=ZZ+1
2586 MOVEI VV,WW ;SETUP INDEX AC
2587 MOVEI WW,XX ;SETUP INDIRECT AC
2588 HRLI XX,000600 ;SETUP INDEXED AND
2589 HRRI XX,XX ;INDIRECT PNTR WORD
2590 LDB AC,@(ZZ) ;LOAD BYTE INDEXED, INDIRECTLY ADDRESSED
2591 CAIE AC,XX ;TEST LOAD BYTE=12,13,14
2592 ER3 AC,SN ;LDB INDEXED, INDIRECTLY ADDRESSEDD FAILED
2593 JUMPL AC+2,^D8 ;LOOP ON ERROR SWITCH
2594 >
2595 011001 SN=SN+1
2596 000004 VV=VV+1
2597 000007 WW=WW+1
2598 000012 XX=XX+1
2599 000004 ZZ=ZZ+1
2600 032426 201 04 0 00 000007 MOVEI VV,WW ;SETUP INDEX AC
2601 032427 201 07 0 00 000012 MOVEI WW,XX ;SETUP INDIRECT AC
2602 032430 505 12 0 00 000600 HRLI XX,000600 ;SETUP INDEXED AND
2603 032431 541 12 0 00 000012 HRRI XX,XX ;INDIRECT PNTR WORD
2604 032432 135 10 1 04 000000 LDB AC,@(ZZ) ;LOAD BYTE INDEXED, INDIRECTLY ADDRESSED
2605 032433 302 10 0 00 000012 CAIE AC,XX ;TEST LOAD BYTE=12,13,14
2606 032434 003 10 0 00 011001 ER3 AC,SN ;LDB INDEXED, INDIRECTLY ADDRESSEDD FAILED
2607 032435 321 12 0 00 000010 JUMPL AC+2,^D8 ;LOOP ON ERROR SWITCH
2608
2609 011002 SN=SN+1
2610 000005 VV=VV+1
2611 000010 WW=WW+1
2612 000013 XX=XX+1
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 35-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0079
2613 000005 ZZ=ZZ+1
2614 032436 201 05 0 00 000010 MOVEI VV,WW ;SETUP INDEX AC
2615 032437 201 10 0 00 000013 MOVEI WW,XX ;SETUP INDIRECT AC
2616 032440 505 13 0 00 000600 HRLI XX,000600 ;SETUP INDEXED AND
2617 032441 541 13 0 00 000013 HRRI XX,XX ;INDIRECT PNTR WORD
2618 032442 135 10 1 05 000000 LDB AC,@(ZZ) ;LOAD BYTE INDEXED, INDIRECTLY ADDRESSED
2619 032443 302 10 0 00 000013 CAIE AC,XX ;TEST LOAD BYTE=12,13,14
2620 032444 003 10 0 00 011002 ER3 AC,SN ;LDB INDEXED, INDIRECTLY ADDRESSEDD FAILED
2621 032445 321 12 0 00 000010 JUMPL AC+2,^D8 ;LOOP ON ERROR SWITCH
2622
2623 011003 SN=SN+1
2624 000006 VV=VV+1
2625 000011 WW=WW+1
2626 000014 XX=XX+1
2627 000006 ZZ=ZZ+1
2628 032446 201 06 0 00 000011 MOVEI VV,WW ;SETUP INDEX AC
2629 032447 201 11 0 00 000014 MOVEI WW,XX ;SETUP INDIRECT AC
2630 032450 505 14 0 00 000600 HRLI XX,000600 ;SETUP INDEXED AND
2631 032451 541 14 0 00 000014 HRRI XX,XX ;INDIRECT PNTR WORD
2632 032452 135 10 1 06 000000 LDB AC,@(ZZ) ;LOAD BYTE INDEXED, INDIRECTLY ADDRESSED
2633 032453 302 10 0 00 000014 CAIE AC,XX ;TEST LOAD BYTE=12,13,14
2634 032454 003 10 0 00 011003 ER3 AC,SN ;LDB INDEXED, INDIRECTLY ADDRESSEDD FAILED
2635 032455 321 12 0 00 000010 JUMPL AC+2,^D8 ;LOOP ON ERROR SWITCH
2636
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 36
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0080
2637
2638 ;INST-LDB
2639 ;INDEX BYTE ADDRESS
2640 ;P FIELD=0
2641 ;S FIELD=6
2642 ;INDEX AC=AC7
2643 ;BYTE WORD ADDRESS=AC 7,10,11,12,13
2644 ;AN ERROR WILL OCCUR IF LOADED BYTE
2645 ;DIFFERS CURRENT AC
2646
2647 000004 AC=4
2648 SAVEAC (1,1)^
2649 032456 201 06 0 00 032456 MOVEI AC+2,. ;SAVE TEST PC
2650 032457 202 06 0 00 030051 MOVEM AC+2,TESTPC
2651 032460 201 06 0 00 000006 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2652 032461 202 06 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2653
2654 011100 SN=11100
2655 000006 ZZ=6
2656
2657 G11100: REPEAT ^D5, ;TEST LDB BYTE ADDR INDEXED
2658 <SN=SN+1
2659 ZZ=ZZ+1
2660 MOVSI AC+1,000607 ;SETUP PNTR WORD
2661 MOVEI AC+3,ZZ ;SETUP INDEX AC
2662 MOVEI ZZ,ZZ ;SETUP BYTE WORD
2663 LDB AC,<AC+1>&17 ;LOAD BYTE
2664 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13
2665 ER3 AC,SN ;LDB FAILED
2666 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2667 >
2668 011101 SN=SN+1
2669 000007 ZZ=ZZ+1
2670 032462 205 05 0 00 000607 MOVSI AC+1,000607 ;SETUP PNTR WORD
2671 032463 201 07 0 00 000007 MOVEI AC+3,ZZ ;SETUP INDEX AC
2672 032464 201 07 0 00 000007 MOVEI ZZ,ZZ ;SETUP BYTE WORD
2673 032465 135 04 0 00 000005 LDB AC,<AC+1>&17 ;LOAD BYTE
2674 032466 302 04 0 00 000007 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13
2675 032467 003 04 0 00 011101 ER3 AC,SN ;LDB FAILED
2676 032470 321 06 0 00 032462 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2677
2678 011102 SN=SN+1
2679 000010 ZZ=ZZ+1
2680 032471 205 05 0 00 000607 MOVSI AC+1,000607 ;SETUP PNTR WORD
2681 032472 201 07 0 00 000010 MOVEI AC+3,ZZ ;SETUP INDEX AC
2682 032473 201 10 0 00 000010 MOVEI ZZ,ZZ ;SETUP BYTE WORD
2683 032474 135 04 0 00 000005 LDB AC,<AC+1>&17 ;LOAD BYTE
2684 032475 302 04 0 00 000010 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13
2685 032476 003 04 0 00 011102 ER3 AC,SN ;LDB FAILED
2686 032477 321 06 0 00 032471 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2687
2688 011103 SN=SN+1
2689 000011 ZZ=ZZ+1
2690 032500 205 05 0 00 000607 MOVSI AC+1,000607 ;SETUP PNTR WORD
2691 032501 201 07 0 00 000011 MOVEI AC+3,ZZ ;SETUP INDEX AC
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 36-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0081
2692 032502 201 11 0 00 000011 MOVEI ZZ,ZZ ;SETUP BYTE WORD
2693 032503 135 04 0 00 000005 LDB AC,<AC+1>&17 ;LOAD BYTE
2694 032504 302 04 0 00 000011 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13
2695 032505 003 04 0 00 011103 ER3 AC,SN ;LDB FAILED
2696 032506 321 06 0 00 032500 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2697
2698 011104 SN=SN+1
2699 000012 ZZ=ZZ+1
2700 032507 205 05 0 00 000607 MOVSI AC+1,000607 ;SETUP PNTR WORD
2701 032510 201 07 0 00 000012 MOVEI AC+3,ZZ ;SETUP INDEX AC
2702 032511 201 12 0 00 000012 MOVEI ZZ,ZZ ;SETUP BYTE WORD
2703 032512 135 04 0 00 000005 LDB AC,<AC+1>&17 ;LOAD BYTE
2704 032513 302 04 0 00 000012 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13
2705 032514 003 04 0 00 011104 ER3 AC,SN ;LDB FAILED
2706 032515 321 06 0 00 032507 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2707
2708 011105 SN=SN+1
2709 000013 ZZ=ZZ+1
2710 032516 205 05 0 00 000607 MOVSI AC+1,000607 ;SETUP PNTR WORD
2711 032517 201 07 0 00 000013 MOVEI AC+3,ZZ ;SETUP INDEX AC
2712 032520 201 13 0 00 000013 MOVEI ZZ,ZZ ;SETUP BYTE WORD
2713 032521 135 04 0 00 000005 LDB AC,<AC+1>&17 ;LOAD BYTE
2714 032522 302 04 0 00 000013 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13
2715 032523 003 04 0 00 011105 ER3 AC,SN ;LDB FAILED
2716 032524 321 06 0 00 032516 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2717
2718 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 36-2
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0082
2719 ;INST-LDB
2720 ;BYTE INDIRECTLY ADDRESSED
2721 ;P FIELD=0
2722 ;S FIELD=6
2723 ;BYTE WORD ADDRESS=AC7,10,11,12,13
2724 ;AN ERROR WILL OCCUR IF LOADED
2725 ;BYTE DIFFERS FROM CURRENT AC
2726
2727 000004 AC=4
2728 SAVEAC (1,1)^
2729 032525 201 06 0 00 032525 MOVEI AC+2,. ;SAVE TEST PC
2730 032526 202 06 0 00 030051 MOVEM AC+2,TESTPC
2731 032527 201 06 0 00 000006 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2732 032530 202 06 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2733
2734 011200 SN=11200
2735 000006 ZZ=6
2736
2737 G11200: REPEAT ^D5, ;TEST LDB, BYTE INDIRECTLY ADDRESSED
2738 <SN=SN+1
2739 ZZ=ZZ+1
2740 MOVSI AC+1,000620 ;SETUP PNTR WORD
2741 MOVEI ,ZZ ;SETUP DEFER ADDRESS
2742 MOVEI ZZ,ZZ ;SETUP BYTE WORD
2743 LDB AC,<AC+1>&17 ;LOAD BYTE
2744 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13
2745 ER3 AC,SN ;LDB FAILED
2746 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2747 >
2748 011201 SN=SN+1
2749 000007 ZZ=ZZ+1
2750 032531 205 05 0 00 000620 MOVSI AC+1,000620 ;SETUP PNTR WORD
2751 032532 201 00 0 00 000007 MOVEI ,ZZ ;SETUP DEFER ADDRESS
2752 032533 201 07 0 00 000007 MOVEI ZZ,ZZ ;SETUP BYTE WORD
2753 032534 135 04 0 00 000005 LDB AC,<AC+1>&17 ;LOAD BYTE
2754 032535 302 04 0 00 000007 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13
2755 032536 003 04 0 00 011201 ER3 AC,SN ;LDB FAILED
2756 032537 321 06 0 00 032531 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2757
2758 011202 SN=SN+1
2759 000010 ZZ=ZZ+1
2760 032540 205 05 0 00 000620 MOVSI AC+1,000620 ;SETUP PNTR WORD
2761 032541 201 00 0 00 000010 MOVEI ,ZZ ;SETUP DEFER ADDRESS
2762 032542 201 10 0 00 000010 MOVEI ZZ,ZZ ;SETUP BYTE WORD
2763 032543 135 04 0 00 000005 LDB AC,<AC+1>&17 ;LOAD BYTE
2764 032544 302 04 0 00 000010 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13
2765 032545 003 04 0 00 011202 ER3 AC,SN ;LDB FAILED
2766 032546 321 06 0 00 032540 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2767
2768 011203 SN=SN+1
2769 000011 ZZ=ZZ+1
2770 032547 205 05 0 00 000620 MOVSI AC+1,000620 ;SETUP PNTR WORD
2771 032550 201 00 0 00 000011 MOVEI ,ZZ ;SETUP DEFER ADDRESS
2772 032551 201 11 0 00 000011 MOVEI ZZ,ZZ ;SETUP BYTE WORD
2773 032552 135 04 0 00 000005 LDB AC,<AC+1>&17 ;LOAD BYTE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 36-3
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0083
2774 032553 302 04 0 00 000011 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13
2775 032554 003 04 0 00 011203 ER3 AC,SN ;LDB FAILED
2776 032555 321 06 0 00 032547 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2777
2778 011204 SN=SN+1
2779 000012 ZZ=ZZ+1
2780 032556 205 05 0 00 000620 MOVSI AC+1,000620 ;SETUP PNTR WORD
2781 032557 201 00 0 00 000012 MOVEI ,ZZ ;SETUP DEFER ADDRESS
2782 032560 201 12 0 00 000012 MOVEI ZZ,ZZ ;SETUP BYTE WORD
2783 032561 135 04 0 00 000005 LDB AC,<AC+1>&17 ;LOAD BYTE
2784 032562 302 04 0 00 000012 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13
2785 032563 003 04 0 00 011204 ER3 AC,SN ;LDB FAILED
2786 032564 321 06 0 00 032556 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2787
2788 011205 SN=SN+1
2789 000013 ZZ=ZZ+1
2790 032565 205 05 0 00 000620 MOVSI AC+1,000620 ;SETUP PNTR WORD
2791 032566 201 00 0 00 000013 MOVEI ,ZZ ;SETUP DEFER ADDRESS
2792 032567 201 13 0 00 000013 MOVEI ZZ,ZZ ;SETUP BYTE WORD
2793 032570 135 04 0 00 000005 LDB AC,<AC+1>&17 ;LOAD BYTE
2794 032571 302 04 0 00 000013 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13
2795 032572 003 04 0 00 011205 ER3 AC,SN ;LDB FAILED
2796 032573 321 06 0 00 032565 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2797
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 37
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0084
2798
2799 ;INST-LDB
2800 ;BYTE ADDRESS INDEXED AND INDIRECT
2801 ;P FIELD=0
2802 ;S FIELD=6
2803 ;BYTE ADDRESS=AC13,14,15
2804 ;BYTE WORD=13,14,15
2805 ;AN ERROR WILL OCCUR IF LOADED
2806 ;BYTE DIFFERS FROM CURRENT AC
2807
2808 000004 AC=4
2809 SAVEAC (1,1)^
2810 032574 201 06 0 00 032574 MOVEI AC+2,. ;SAVE TEST PC
2811 032575 202 06 0 00 030051 MOVEM AC+2,TESTPC
2812 032576 201 06 0 00 000006 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2813 032577 202 06 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2814
2815 011300 SN=11300
2816 000012 XX=12
2817 000007 ZZ=7
2818
2819 G11300: REPEAT ^D3, ;TEST LDB, BYTE ADDR INDEXED AND INDIRECT
2820 <SN=SN+1
2821 XX=XX+1
2822 ZZ=ZZ+1
2823 MOVSI AC+1,000627 ;SETUP PNTR WORD
2824 MOVEI AC+3,ZZ ;SETUP INDEX AC
2825 MOVEI ZZ,XX ;SETUP INDIRECT ADDR
2826 MOVEI XX,XX ;SETUP BYTE WORD
2827 LDB AC,<AC+1>&17 ;LOAD BYTE
2828 CAIE AC,XX ;TEST BYTE=13,14,15
2829 ER3 AC,SN ;LDB FAILED
2830 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
2831 >
2832 011301 SN=SN+1
2833 000013 XX=XX+1
2834 000010 ZZ=ZZ+1
2835 032600 205 05 0 00 000627 MOVSI AC+1,000627 ;SETUP PNTR WORD
2836 032601 201 07 0 00 000010 MOVEI AC+3,ZZ ;SETUP INDEX AC
2837 032602 201 10 0 00 000013 MOVEI ZZ,XX ;SETUP INDIRECT ADDR
2838 032603 201 13 0 00 000013 MOVEI XX,XX ;SETUP BYTE WORD
2839 032604 135 04 0 00 000005 LDB AC,<AC+1>&17 ;LOAD BYTE
2840 032605 302 04 0 00 000013 CAIE AC,XX ;TEST BYTE=13,14,15
2841 032606 003 04 0 00 011301 ER3 AC,SN ;LDB FAILED
2842 032607 321 06 0 00 032600 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
2843
2844 011302 SN=SN+1
2845 000014 XX=XX+1
2846 000011 ZZ=ZZ+1
2847 032610 205 05 0 00 000627 MOVSI AC+1,000627 ;SETUP PNTR WORD
2848 032611 201 07 0 00 000011 MOVEI AC+3,ZZ ;SETUP INDEX AC
2849 032612 201 11 0 00 000014 MOVEI ZZ,XX ;SETUP INDIRECT ADDR
2850 032613 201 14 0 00 000014 MOVEI XX,XX ;SETUP BYTE WORD
2851 032614 135 04 0 00 000005 LDB AC,<AC+1>&17 ;LOAD BYTE
2852 032615 302 04 0 00 000014 CAIE AC,XX ;TEST BYTE=13,14,15
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 37-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0085
2853 032616 003 04 0 00 011302 ER3 AC,SN ;LDB FAILED
2854 032617 321 06 0 00 032610 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
2855
2856 011303 SN=SN+1
2857 000015 XX=XX+1
2858 000012 ZZ=ZZ+1
2859 032620 205 05 0 00 000627 MOVSI AC+1,000627 ;SETUP PNTR WORD
2860 032621 201 07 0 00 000012 MOVEI AC+3,ZZ ;SETUP INDEX AC
2861 032622 201 12 0 00 000015 MOVEI ZZ,XX ;SETUP INDIRECT ADDR
2862 032623 201 15 0 00 000015 MOVEI XX,XX ;SETUP BYTE WORD
2863 032624 135 04 0 00 000005 LDB AC,<AC+1>&17 ;LOAD BYTE
2864 032625 302 04 0 00 000015 CAIE AC,XX ;TEST BYTE=13,14,15
2865 032626 003 04 0 00 011303 ER3 AC,SN ;LDB FAILED
2866 032627 321 06 0 00 032620 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
2867
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 38
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0086
2868
2869 ;INST-ILDB
2870 ;DECREASING P FIELD
2871 ;P FIELD=44,36,30,22,14
2872 ;S FIELD=6
2873 ;BYTE ADDRESS=AC0
2874 ;AN ERROR WILL OCCUR IF AC DIFFERS
2875 ;FROM 77
2876
2877 000005 AC=5
2878 SAVEAC (1,1)^
2879 032630 201 07 0 00 032630 MOVEI AC+2,. ;SAVE TEST PC
2880 032631 202 07 0 00 030051 MOVEM AC+2,TESTPC
2881 032632 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2882 032633 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2883
2884 011400 SN=11400
2885 520600 XX=520600
2886 000000 ZZ=0
2887
2888 G11400: REPEAT ^D5, ;TEST ILDB
2889 <SN=SN+1
2890 XX=XX-060000
2891 ZZ=ZZ-6
2892 MOVSI AC+1,XX ;SETUP PNTR WORD
2893 MOVEI ,77 ;SETUP BYTE WORD
2894 ROT ,ZZ ;ROTATE RIGHT
2895 ILDB AC,<AC+1>&17 ;INC AND LOAD BYTE
2896 CAIE AC,77 ;TEST AC=77
2897 ER3 AC,SN ;ILDB FAILED
2898 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2899 >
2900 011401 SN=SN+1
2901 440600 XX=XX-060000
2902 777777 777772 ZZ=ZZ-6
2903 032634 205 06 0 00 440600 MOVSI AC+1,XX ;SETUP PNTR WORD
2904 032635 201 00 0 00 000077 MOVEI ,77 ;SETUP BYTE WORD
2905 032636 241 00 0 00 777772 ROT ,ZZ ;ROTATE RIGHT
2906 032637 134 05 0 00 000006 ILDB AC,<AC+1>&17 ;INC AND LOAD BYTE
2907 032640 302 05 0 00 000077 CAIE AC,77 ;TEST AC=77
2908 032641 003 05 0 00 011401 ER3 AC,SN ;ILDB FAILED
2909 032642 321 07 0 00 032634 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2910
2911 011402 SN=SN+1
2912 360600 XX=XX-060000
2913 777777 777764 ZZ=ZZ-6
2914 032643 205 06 0 00 360600 MOVSI AC+1,XX ;SETUP PNTR WORD
2915 032644 201 00 0 00 000077 MOVEI ,77 ;SETUP BYTE WORD
2916 032645 241 00 0 00 777764 ROT ,ZZ ;ROTATE RIGHT
2917 032646 134 05 0 00 000006 ILDB AC,<AC+1>&17 ;INC AND LOAD BYTE
2918 032647 302 05 0 00 000077 CAIE AC,77 ;TEST AC=77
2919 032650 003 05 0 00 011402 ER3 AC,SN ;ILDB FAILED
2920 032651 321 07 0 00 032643 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2921
2922 011403 SN=SN+1
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 38-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0087
2923 300600 XX=XX-060000
2924 777777 777756 ZZ=ZZ-6
2925 032652 205 06 0 00 300600 MOVSI AC+1,XX ;SETUP PNTR WORD
2926 032653 201 00 0 00 000077 MOVEI ,77 ;SETUP BYTE WORD
2927 032654 241 00 0 00 777756 ROT ,ZZ ;ROTATE RIGHT
2928 032655 134 05 0 00 000006 ILDB AC,<AC+1>&17 ;INC AND LOAD BYTE
2929 032656 302 05 0 00 000077 CAIE AC,77 ;TEST AC=77
2930 032657 003 05 0 00 011403 ER3 AC,SN ;ILDB FAILED
2931 032660 321 07 0 00 032652 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2932
2933 011404 SN=SN+1
2934 220600 XX=XX-060000
2935 777777 777750 ZZ=ZZ-6
2936 032661 205 06 0 00 220600 MOVSI AC+1,XX ;SETUP PNTR WORD
2937 032662 201 00 0 00 000077 MOVEI ,77 ;SETUP BYTE WORD
2938 032663 241 00 0 00 777750 ROT ,ZZ ;ROTATE RIGHT
2939 032664 134 05 0 00 000006 ILDB AC,<AC+1>&17 ;INC AND LOAD BYTE
2940 032665 302 05 0 00 000077 CAIE AC,77 ;TEST AC=77
2941 032666 003 05 0 00 011404 ER3 AC,SN ;ILDB FAILED
2942 032667 321 07 0 00 032661 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2943
2944 011405 SN=SN+1
2945 140600 XX=XX-060000
2946 777777 777742 ZZ=ZZ-6
2947 032670 205 06 0 00 140600 MOVSI AC+1,XX ;SETUP PNTR WORD
2948 032671 201 00 0 00 000077 MOVEI ,77 ;SETUP BYTE WORD
2949 032672 241 00 0 00 777742 ROT ,ZZ ;ROTATE RIGHT
2950 032673 134 05 0 00 000006 ILDB AC,<AC+1>&17 ;INC AND LOAD BYTE
2951 032674 302 05 0 00 000077 CAIE AC,77 ;TEST AC=77
2952 032675 003 05 0 00 011405 ER3 AC,SN ;ILDB FAILED
2953 032676 321 07 0 00 032670 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2954
2955 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 38-2
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0088
2956 ;INST-ILDB
2957 ;INCREASING S FIELD
2958 ;CALCULATE NEW P FIELD, INCREMENT
2959 ;BYTE WORD ADDRESS
2960 ;P FIELD=0
2961 ;S FIELD=6,14,22,30,36
2962 ;AN ERROR WILL OCCUR IF AC
2963 ;DIFFERS FROM 77
2964
2965 000014 AC=14
2966 SAVEAC (1,1)^
2967 032677 201 16 0 00 032677 MOVEI AC+2,. ;SAVE TEST PC
2968 032700 202 16 0 00 030051 MOVEM AC+2,TESTPC
2969 032701 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2970 032702 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2971
2972 011500 SN=11500
2973 000000 XX=0
2974 000000 ZZ=0
2975
2976 G11500: REPEAT ^D5, ;TEST ILDB
2977 <SN=SN+1
2978 XX=XX+600
2979 ZZ=ZZ-6
2980 MOVSI AC+1,XX ;SETUP PNTR WORD
2981 MOVEI 1,77 ;SETUP BYTE WORD
2982 ROT 1,ZZ ;ROTATE RIGHT BYTE WORD
2983 ILDB AC,<AC+1>&17 ;INC AND LOAD BYTE
2984 CAIE AC,77 ;TEST AC=77
2985 ER3 AC,SN ;ILDB FAILED
2986 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2987 >
2988 011501 SN=SN+1
2989 000600 XX=XX+600
2990 777777 777772 ZZ=ZZ-6
2991 032703 205 15 0 00 000600 MOVSI AC+1,XX ;SETUP PNTR WORD
2992 032704 201 01 0 00 000077 MOVEI 1,77 ;SETUP BYTE WORD
2993 032705 241 01 0 00 777772 ROT 1,ZZ ;ROTATE RIGHT BYTE WORD
2994 032706 134 14 0 00 000015 ILDB AC,<AC+1>&17 ;INC AND LOAD BYTE
2995 032707 302 14 0 00 000077 CAIE AC,77 ;TEST AC=77
2996 032710 003 14 0 00 011501 ER3 AC,SN ;ILDB FAILED
2997 032711 321 16 0 00 032703 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2998
2999 011502 SN=SN+1
3000 001400 XX=XX+600
3001 777777 777764 ZZ=ZZ-6
3002 032712 205 15 0 00 001400 MOVSI AC+1,XX ;SETUP PNTR WORD
3003 032713 201 01 0 00 000077 MOVEI 1,77 ;SETUP BYTE WORD
3004 032714 241 01 0 00 777764 ROT 1,ZZ ;ROTATE RIGHT BYTE WORD
3005 032715 134 14 0 00 000015 ILDB AC,<AC+1>&17 ;INC AND LOAD BYTE
3006 032716 302 14 0 00 000077 CAIE AC,77 ;TEST AC=77
3007 032717 003 14 0 00 011502 ER3 AC,SN ;ILDB FAILED
3008 032720 321 16 0 00 032712 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3009
3010 011503 SN=SN+1
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 38-3
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0089
3011 002200 XX=XX+600
3012 777777 777756 ZZ=ZZ-6
3013 032721 205 15 0 00 002200 MOVSI AC+1,XX ;SETUP PNTR WORD
3014 032722 201 01 0 00 000077 MOVEI 1,77 ;SETUP BYTE WORD
3015 032723 241 01 0 00 777756 ROT 1,ZZ ;ROTATE RIGHT BYTE WORD
3016 032724 134 14 0 00 000015 ILDB AC,<AC+1>&17 ;INC AND LOAD BYTE
3017 032725 302 14 0 00 000077 CAIE AC,77 ;TEST AC=77
3018 032726 003 14 0 00 011503 ER3 AC,SN ;ILDB FAILED
3019 032727 321 16 0 00 032721 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3020
3021 011504 SN=SN+1
3022 003000 XX=XX+600
3023 777777 777750 ZZ=ZZ-6
3024 032730 205 15 0 00 003000 MOVSI AC+1,XX ;SETUP PNTR WORD
3025 032731 201 01 0 00 000077 MOVEI 1,77 ;SETUP BYTE WORD
3026 032732 241 01 0 00 777750 ROT 1,ZZ ;ROTATE RIGHT BYTE WORD
3027 032733 134 14 0 00 000015 ILDB AC,<AC+1>&17 ;INC AND LOAD BYTE
3028 032734 302 14 0 00 000077 CAIE AC,77 ;TEST AC=77
3029 032735 003 14 0 00 011504 ER3 AC,SN ;ILDB FAILED
3030 032736 321 16 0 00 032730 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3031
3032 011505 SN=SN+1
3033 003600 XX=XX+600
3034 777777 777742 ZZ=ZZ-6
3035 032737 205 15 0 00 003600 MOVSI AC+1,XX ;SETUP PNTR WORD
3036 032740 201 01 0 00 000077 MOVEI 1,77 ;SETUP BYTE WORD
3037 032741 241 01 0 00 777742 ROT 1,ZZ ;ROTATE RIGHT BYTE WORD
3038 032742 134 14 0 00 000015 ILDB AC,<AC+1>&17 ;INC AND LOAD BYTE
3039 032743 302 14 0 00 000077 CAIE AC,77 ;TEST AC=77
3040 032744 003 14 0 00 011505 ER3 AC,SN ;ILDB FAILED
3041 032745 321 16 0 00 032737 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3042
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 39
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0090
3043
3044 ;INST-ILDB
3045 ;TESTING SPECIAL POINTER
3046 ;WHICH SETS AC TO ZERO
3047 ;PFIELD=20 ORIG,64 AFTER
3048 ;SFIELD=60 ORIG,60 AFTER
3049 ;AN ERROR WILL OCCUR IF AC IS NOT ZEROED
3050
3051 206000 XX=206000
3052
3053 032746 205 15 0 00 206000 G11600: MOVSI AC+1,XX ;SETUP PNTR WORD
3054 032747 477 00 0 00 000001 SETOB 0,1 ;SETUP BYTE WORD
3055 032750 476 00 0 00 000014 SETOM AC ;SETUP AC FOR TEST
3056 032751 134 14 0 00 000015 ILDB AC,<AC+1>&17 ;THIS SHOULD ZERO AC
3057 032752 332 00 0 00 000014 SKIPE AC ;TEST AC=0
3058 032753 003 14 0 00 011601 ER3 AC,11601 ;ILDB FAILED
3059 032754 321 16 0 00 032746 JUMPL AC+2,G11600 ;LOOP ON ERROR SWITCH
3060 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 39-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0091
3061 ;INST-DPB
3062 ;INCREASING P FIELD
3063 ;P FIELD=6,14,22,30,36
3064 ;S FIELD=6
3065 ;BYTE WORD=55
3066 ;AN ERROR WILL OCCUR IF DPB
3067 ;FAILS TO DEPOSIT CORRECTLY
3068
3069 000013 AC=13
3070 SAVEAC (1,1)^
3071 032755 201 15 0 00 032755 MOVEI AC+2,. ;SAVE TEST PC
3072 032756 202 15 0 00 030051 MOVEM AC+2,TESTPC
3073 032757 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3074 032760 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3075
3076 011700 SN=11700
3077 000000 XX=0
3078 000600 ZZ=000600
3079
3080 G11700: REPEAT ^D5, ;TEST DPB
3081 <SN=SN+1
3082 XX=XX+6
3083 ZZ=ZZ+60000
3084 MOVEI AC-2,55 ;SETUP AC-2
3085 ROT AC-2,XX ;FOR COMPARISON
3086 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3087 SETZ ;SETUP DEST WORD
3088 MOVEI AC,55 ;SETUP BYTE WORD
3089 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
3090 CAME ,<AC-2>&17 ;TEST DEST WORD
3091 ER12 ,SN ;DPB FAILED
3092 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3093 >
3094 011701 SN=SN+1
3095 000006 XX=XX+6
3096 060600 ZZ=ZZ+60000
3097 032761 201 11 0 00 000055 MOVEI AC-2,55 ;SETUP AC-2
3098 032762 241 11 0 00 000006 ROT AC-2,XX ;FOR COMPARISON
3099 032763 205 14 0 00 060600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3100 032764 400 00 0 00 000000 SETZ ;SETUP DEST WORD
3101 032765 201 13 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
3102 032766 137 13 0 00 000014 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
3103 032767 312 00 0 00 000011 CAME ,<AC-2>&17 ;TEST DEST WORD
3104 032770 012 00 0 00 011701 ER12 ,SN ;DPB FAILED
3105 032771 321 15 0 00 032761 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3106
3107 011702 SN=SN+1
3108 000014 XX=XX+6
3109 140600 ZZ=ZZ+60000
3110 032772 201 11 0 00 000055 MOVEI AC-2,55 ;SETUP AC-2
3111 032773 241 11 0 00 000014 ROT AC-2,XX ;FOR COMPARISON
3112 032774 205 14 0 00 140600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3113 032775 400 00 0 00 000000 SETZ ;SETUP DEST WORD
3114 032776 201 13 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
3115 032777 137 13 0 00 000014 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 39-2
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0092
3116 033000 312 00 0 00 000011 CAME ,<AC-2>&17 ;TEST DEST WORD
3117 033001 012 00 0 00 011702 ER12 ,SN ;DPB FAILED
3118 033002 321 15 0 00 032772 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3119
3120 011703 SN=SN+1
3121 000022 XX=XX+6
3122 220600 ZZ=ZZ+60000
3123 033003 201 11 0 00 000055 MOVEI AC-2,55 ;SETUP AC-2
3124 033004 241 11 0 00 000022 ROT AC-2,XX ;FOR COMPARISON
3125 033005 205 14 0 00 220600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3126 033006 400 00 0 00 000000 SETZ ;SETUP DEST WORD
3127 033007 201 13 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
3128 033010 137 13 0 00 000014 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
3129 033011 312 00 0 00 000011 CAME ,<AC-2>&17 ;TEST DEST WORD
3130 033012 012 00 0 00 011703 ER12 ,SN ;DPB FAILED
3131 033013 321 15 0 00 033003 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3132
3133 011704 SN=SN+1
3134 000030 XX=XX+6
3135 300600 ZZ=ZZ+60000
3136 033014 201 11 0 00 000055 MOVEI AC-2,55 ;SETUP AC-2
3137 033015 241 11 0 00 000030 ROT AC-2,XX ;FOR COMPARISON
3138 033016 205 14 0 00 300600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3139 033017 400 00 0 00 000000 SETZ ;SETUP DEST WORD
3140 033020 201 13 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
3141 033021 137 13 0 00 000014 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
3142 033022 312 00 0 00 000011 CAME ,<AC-2>&17 ;TEST DEST WORD
3143 033023 012 00 0 00 011704 ER12 ,SN ;DPB FAILED
3144 033024 321 15 0 00 033014 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3145
3146 011705 SN=SN+1
3147 000036 XX=XX+6
3148 360600 ZZ=ZZ+60000
3149 033025 201 11 0 00 000055 MOVEI AC-2,55 ;SETUP AC-2
3150 033026 241 11 0 00 000036 ROT AC-2,XX ;FOR COMPARISON
3151 033027 205 14 0 00 360600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3152 033030 400 00 0 00 000000 SETZ ;SETUP DEST WORD
3153 033031 201 13 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
3154 033032 137 13 0 00 000014 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
3155 033033 312 00 0 00 000011 CAME ,<AC-2>&17 ;TEST DEST WORD
3156 033034 012 00 0 00 011705 ER12 ,SN ;DPB FAILED
3157 033035 321 15 0 00 033025 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3158
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 40
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0093
3159
3160 ;INST-DPB
3161 ;INCREASING P FIELD
3162 ;P FIELD = 0,6,14,22,30
3163 ;S FIELD = 6
3164 ;BYTE WORD=55 (SHIFTING LEFT 6 PLACES)
3165 ;AN ERROR WILL OCCUR IF DPB FAILS
3166 ;TO DEPOSIT CORRECTLY
3167
3168 000012 AC=12
3169 SAVEAC (1,1)^
3170 033036 201 14 0 00 033036 MOVEI AC+2,. ;SAVE TEST PC
3171 033037 202 14 0 00 030051 MOVEM AC+2,TESTPC
3172 033040 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3173 033041 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3174
3175 012000 SN=12000
3176 000000 XX=0
3177 777777 720000 ZZ=-60000
3178
3179 G12000: REPEAT ^D5, ;TEST DPB
3180 <SN=SN+1
3181 XX=XX+6
3182 ZZ=ZZ+060000
3183 IFE ZZ,<ZZ=000600>
3184 MOVSI AC-2,550000 ;SETUP AC=2
3185 ROT AC-2,XX ;FRO COMPARISON
3186 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3187 MOVEI AC,55 ;SETUP BYTE WORD
3188 SETZ ;SETUP DEST WORD
3189 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
3190 CAME ,<AC-2>&17 ;TEST DEST WORD
3191 ER12 ,SN ;DPB FAILED
3192 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3193 >
3194 012001 SN=SN+1
3195 000006 XX=XX+6
3196 000000 ZZ=ZZ+060000
3197 000600 IFE ZZ,<ZZ=000600>
3198 033042 205 10 0 00 550000 MOVSI AC-2,550000 ;SETUP AC=2
3199 033043 241 10 0 00 000006 ROT AC-2,XX ;FRO COMPARISON
3200 033044 205 13 0 00 000600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3201 033045 201 12 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
3202 033046 400 00 0 00 000000 SETZ ;SETUP DEST WORD
3203 033047 137 12 0 00 000013 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
3204 033050 312 00 0 00 000010 CAME ,<AC-2>&17 ;TEST DEST WORD
3205 033051 012 00 0 00 012001 ER12 ,SN ;DPB FAILED
3206 033052 321 14 0 00 033042 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3207
3208 012002 SN=SN+1
3209 000014 XX=XX+6
3210 060600 ZZ=ZZ+060000
3211 IFE ZZ,<ZZ=000600>
3212 033053 205 10 0 00 550000 MOVSI AC-2,550000 ;SETUP AC=2
3213 033054 241 10 0 00 000014 ROT AC-2,XX ;FRO COMPARISON
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 40-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0094
3214 033055 205 13 0 00 060600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3215 033056 201 12 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
3216 033057 400 00 0 00 000000 SETZ ;SETUP DEST WORD
3217 033060 137 12 0 00 000013 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
3218 033061 312 00 0 00 000010 CAME ,<AC-2>&17 ;TEST DEST WORD
3219 033062 012 00 0 00 012002 ER12 ,SN ;DPB FAILED
3220 033063 321 14 0 00 033053 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3221
3222 012003 SN=SN+1
3223 000022 XX=XX+6
3224 140600 ZZ=ZZ+060000
3225 IFE ZZ,<ZZ=000600>
3226 033064 205 10 0 00 550000 MOVSI AC-2,550000 ;SETUP AC=2
3227 033065 241 10 0 00 000022 ROT AC-2,XX ;FRO COMPARISON
3228 033066 205 13 0 00 140600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3229 033067 201 12 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
3230 033070 400 00 0 00 000000 SETZ ;SETUP DEST WORD
3231 033071 137 12 0 00 000013 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
3232 033072 312 00 0 00 000010 CAME ,<AC-2>&17 ;TEST DEST WORD
3233 033073 012 00 0 00 012003 ER12 ,SN ;DPB FAILED
3234 033074 321 14 0 00 033064 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3235
3236 012004 SN=SN+1
3237 000030 XX=XX+6
3238 220600 ZZ=ZZ+060000
3239 IFE ZZ,<ZZ=000600>
3240 033075 205 10 0 00 550000 MOVSI AC-2,550000 ;SETUP AC=2
3241 033076 241 10 0 00 000030 ROT AC-2,XX ;FRO COMPARISON
3242 033077 205 13 0 00 220600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3243 033100 201 12 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
3244 033101 400 00 0 00 000000 SETZ ;SETUP DEST WORD
3245 033102 137 12 0 00 000013 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
3246 033103 312 00 0 00 000010 CAME ,<AC-2>&17 ;TEST DEST WORD
3247 033104 012 00 0 00 012004 ER12 ,SN ;DPB FAILED
3248 033105 321 14 0 00 033075 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3249
3250 012005 SN=SN+1
3251 000036 XX=XX+6
3252 300600 ZZ=ZZ+060000
3253 IFE ZZ,<ZZ=000600>
3254 033106 205 10 0 00 550000 MOVSI AC-2,550000 ;SETUP AC=2
3255 033107 241 10 0 00 000036 ROT AC-2,XX ;FRO COMPARISON
3256 033110 205 13 0 00 300600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3257 033111 201 12 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
3258 033112 400 00 0 00 000000 SETZ ;SETUP DEST WORD
3259 033113 137 12 0 00 000013 DPB AC,<AC+1>&17 ;DEPOSIT BYTE (AC0)
3260 033114 312 00 0 00 000010 CAME ,<AC-2>&17 ;TEST DEST WORD
3261 033115 012 00 0 00 012005 ER12 ,SN ;DPB FAILED
3262 033116 321 14 0 00 033106 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3263
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 41
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0095
3264 ;INST-IDPB
3265 ;INCREASING S FIELD
3266 ;CALCULATE NEW P FIELD, INCREMENT
3267 ;BYTE WORD ADDRESS
3268 ;P FIELD=0
3269 ;S FIELD=6,14,22,30,36
3270 ;BYTE WORD=77
3271 ;AN ERROR WILL OCCUR IF IDPB FAILS
3272 ;TO DEPOSIT CORRECTLY
3273
3274 000011 AC=11
3275 SAVEAC (1,1)^
3276 033117 201 13 0 00 033117 MOVEI AC+2,. ;SAVE TEST PC
3277 033120 202 13 0 00 030051 MOVEM AC+2,TESTPC
3278 033121 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3279 033122 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3280
3281 012100 SN=12100
3282 000000 XX=0
3283 000000 ZZ=000000
3284
3285 G12100: REPEAT ^D5, ;TEST IDPB
3286 <SN=SN+1
3287 XX=XX-6
3288 ZZ=ZZ+600
3289 MOVEI AC-2,77 ;SETUP AC-2
3290 ROT AC-2,XX ;FOR COMPARISON
3291 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3292 MOVEI AC,77 ;SETUP BYTE WORD
3293 SETZ 1, ;SETUP DEST WORD
3294 IDPB AC,<AC+1>&17 ;INC AND DEPOSIT BYTE
3295 CAME 1,<AC-2>&17 ;TEST DEST WORD
3296 ER12 1,SN ;IDPB FAILED
3297 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3298 >
3299 012101 SN=SN+1
3300 777777 777772 XX=XX-6
3301 000600 ZZ=ZZ+600
3302 033123 201 07 0 00 000077 MOVEI AC-2,77 ;SETUP AC-2
3303 033124 241 07 0 00 777772 ROT AC-2,XX ;FOR COMPARISON
3304 033125 205 12 0 00 000600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3305 033126 201 11 0 00 000077 MOVEI AC,77 ;SETUP BYTE WORD
3306 033127 400 01 0 00 000000 SETZ 1, ;SETUP DEST WORD
3307 033130 136 11 0 00 000012 IDPB AC,<AC+1>&17 ;INC AND DEPOSIT BYTE
3308 033131 312 01 0 00 000007 CAME 1,<AC-2>&17 ;TEST DEST WORD
3309 033132 012 01 0 00 012101 ER12 1,SN ;IDPB FAILED
3310 033133 321 13 0 00 033123 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3311
3312 012102 SN=SN+1
3313 777777 777764 XX=XX-6
3314 001400 ZZ=ZZ+600
3315 033134 201 07 0 00 000077 MOVEI AC-2,77 ;SETUP AC-2
3316 033135 241 07 0 00 777764 ROT AC-2,XX ;FOR COMPARISON
3317 033136 205 12 0 00 001400 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3318 033137 201 11 0 00 000077 MOVEI AC,77 ;SETUP BYTE WORD
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 41-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0096
3319 033140 400 01 0 00 000000 SETZ 1, ;SETUP DEST WORD
3320 033141 136 11 0 00 000012 IDPB AC,<AC+1>&17 ;INC AND DEPOSIT BYTE
3321 033142 312 01 0 00 000007 CAME 1,<AC-2>&17 ;TEST DEST WORD
3322 033143 012 01 0 00 012102 ER12 1,SN ;IDPB FAILED
3323 033144 321 13 0 00 033134 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3324
3325 012103 SN=SN+1
3326 777777 777756 XX=XX-6
3327 002200 ZZ=ZZ+600
3328 033145 201 07 0 00 000077 MOVEI AC-2,77 ;SETUP AC-2
3329 033146 241 07 0 00 777756 ROT AC-2,XX ;FOR COMPARISON
3330 033147 205 12 0 00 002200 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3331 033150 201 11 0 00 000077 MOVEI AC,77 ;SETUP BYTE WORD
3332 033151 400 01 0 00 000000 SETZ 1, ;SETUP DEST WORD
3333 033152 136 11 0 00 000012 IDPB AC,<AC+1>&17 ;INC AND DEPOSIT BYTE
3334 033153 312 01 0 00 000007 CAME 1,<AC-2>&17 ;TEST DEST WORD
3335 033154 012 01 0 00 012103 ER12 1,SN ;IDPB FAILED
3336 033155 321 13 0 00 033145 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3337
3338 012104 SN=SN+1
3339 777777 777750 XX=XX-6
3340 003000 ZZ=ZZ+600
3341 033156 201 07 0 00 000077 MOVEI AC-2,77 ;SETUP AC-2
3342 033157 241 07 0 00 777750 ROT AC-2,XX ;FOR COMPARISON
3343 033160 205 12 0 00 003000 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3344 033161 201 11 0 00 000077 MOVEI AC,77 ;SETUP BYTE WORD
3345 033162 400 01 0 00 000000 SETZ 1, ;SETUP DEST WORD
3346 033163 136 11 0 00 000012 IDPB AC,<AC+1>&17 ;INC AND DEPOSIT BYTE
3347 033164 312 01 0 00 000007 CAME 1,<AC-2>&17 ;TEST DEST WORD
3348 033165 012 01 0 00 012104 ER12 1,SN ;IDPB FAILED
3349 033166 321 13 0 00 033156 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3350
3351 012105 SN=SN+1
3352 777777 777742 XX=XX-6
3353 003600 ZZ=ZZ+600
3354 033167 201 07 0 00 000077 MOVEI AC-2,77 ;SETUP AC-2
3355 033170 241 07 0 00 777742 ROT AC-2,XX ;FOR COMPARISON
3356 033171 205 12 0 00 003600 MOVSI AC+1,ZZ ;SETUP PNTR WORD
3357 033172 201 11 0 00 000077 MOVEI AC,77 ;SETUP BYTE WORD
3358 033173 400 01 0 00 000000 SETZ 1, ;SETUP DEST WORD
3359 033174 136 11 0 00 000012 IDPB AC,<AC+1>&17 ;INC AND DEPOSIT BYTE
3360 033175 312 01 0 00 000007 CAME 1,<AC-2>&17 ;TEST DEST WORD
3361 033176 012 01 0 00 012105 ER12 1,SN ;IDPB FAILED
3362 033177 321 13 0 00 033167 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3363
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 42
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0097
3364 ;INST-IDPB
3365 ;P FIELD=44
3366 ;S FIELD=6
3367 ;BYTE WORD=55
3368 ;DEST WORD=-1
3369 ;AN ERROR WILL OCCUR IF IDPB
3370 ;FAILS TO DEPOSIT CORRECTLY
3371
3372 000010 AC=10
3373 SAVEAC (1,1)^
3374 033200 201 12 0 00 033200 MOVEI AC+2,. ;SAVE TEST PC
3375 033201 202 12 0 00 030051 MOVEM AC+2,TESTPC
3376 033202 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3377 033203 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3378
3379 012200 SN=12200
3380 000000 ZZ=0
3381
3382 033204 205 11 0 00 440600 G12200: MOVSI AC+1,440600 ;SETUP PNPR WORD
3383 REPEAT ^D5, ;TEST IDPB
3384 <SN=SN+1
3385 ZZ=ZZ-6
3386 HRLI AC-2,-1 ;SETUP AC-2
3387 HRRI AC-2,-23 ;FOR COMPARISON
3388 ROT AC-2,ZZ ;ROTATE RIGHT BY 6
3389 MOVEI AC,55 ;SETUP BYTE WORD
3390 SETO ;SETUP DEST WORD (AC0)
3391 IDPB AC,<AC+1>&17 ;INC AND DEPOSIT BYTE
3392 CAME ,<AC-2>&17 ;TEST DEST WORD
3393 ER12 ,SN ;IDPB FAILED
3394 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3395 >
3396 012201 SN=SN+1
3397 777777 777772 ZZ=ZZ-6
3398 033205 505 06 0 00 777777 HRLI AC-2,-1 ;SETUP AC-2
3399 033206 541 06 0 00 777755 HRRI AC-2,-23 ;FOR COMPARISON
3400 033207 241 06 0 00 777772 ROT AC-2,ZZ ;ROTATE RIGHT BY 6
3401 033210 201 10 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
3402 033211 474 00 0 00 000000 SETO ;SETUP DEST WORD (AC0)
3403 033212 136 10 0 00 000011 IDPB AC,<AC+1>&17 ;INC AND DEPOSIT BYTE
3404 033213 312 00 0 00 000006 CAME ,<AC-2>&17 ;TEST DEST WORD
3405 033214 012 00 0 00 012201 ER12 ,SN ;IDPB FAILED
3406 033215 321 12 0 00 033205 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3407
3408 012202 SN=SN+1
3409 777777 777764 ZZ=ZZ-6
3410 033216 505 06 0 00 777777 HRLI AC-2,-1 ;SETUP AC-2
3411 033217 541 06 0 00 777755 HRRI AC-2,-23 ;FOR COMPARISON
3412 033220 241 06 0 00 777764 ROT AC-2,ZZ ;ROTATE RIGHT BY 6
3413 033221 201 10 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
3414 033222 474 00 0 00 000000 SETO ;SETUP DEST WORD (AC0)
3415 033223 136 10 0 00 000011 IDPB AC,<AC+1>&17 ;INC AND DEPOSIT BYTE
3416 033224 312 00 0 00 000006 CAME ,<AC-2>&17 ;TEST DEST WORD
3417 033225 012 00 0 00 012202 ER12 ,SN ;IDPB FAILED
3418 033226 321 12 0 00 033216 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 42-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0098
3419
3420 012203 SN=SN+1
3421 777777 777756 ZZ=ZZ-6
3422 033227 505 06 0 00 777777 HRLI AC-2,-1 ;SETUP AC-2
3423 033230 541 06 0 00 777755 HRRI AC-2,-23 ;FOR COMPARISON
3424 033231 241 06 0 00 777756 ROT AC-2,ZZ ;ROTATE RIGHT BY 6
3425 033232 201 10 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
3426 033233 474 00 0 00 000000 SETO ;SETUP DEST WORD (AC0)
3427 033234 136 10 0 00 000011 IDPB AC,<AC+1>&17 ;INC AND DEPOSIT BYTE
3428 033235 312 00 0 00 000006 CAME ,<AC-2>&17 ;TEST DEST WORD
3429 033236 012 00 0 00 012203 ER12 ,SN ;IDPB FAILED
3430 033237 321 12 0 00 033227 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3431
3432 012204 SN=SN+1
3433 777777 777750 ZZ=ZZ-6
3434 033240 505 06 0 00 777777 HRLI AC-2,-1 ;SETUP AC-2
3435 033241 541 06 0 00 777755 HRRI AC-2,-23 ;FOR COMPARISON
3436 033242 241 06 0 00 777750 ROT AC-2,ZZ ;ROTATE RIGHT BY 6
3437 033243 201 10 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
3438 033244 474 00 0 00 000000 SETO ;SETUP DEST WORD (AC0)
3439 033245 136 10 0 00 000011 IDPB AC,<AC+1>&17 ;INC AND DEPOSIT BYTE
3440 033246 312 00 0 00 000006 CAME ,<AC-2>&17 ;TEST DEST WORD
3441 033247 012 00 0 00 012204 ER12 ,SN ;IDPB FAILED
3442 033250 321 12 0 00 033240 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3443
3444 012205 SN=SN+1
3445 777777 777742 ZZ=ZZ-6
3446 033251 505 06 0 00 777777 HRLI AC-2,-1 ;SETUP AC-2
3447 033252 541 06 0 00 777755 HRRI AC-2,-23 ;FOR COMPARISON
3448 033253 241 06 0 00 777742 ROT AC-2,ZZ ;ROTATE RIGHT BY 6
3449 033254 201 10 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD
3450 033255 474 00 0 00 000000 SETO ;SETUP DEST WORD (AC0)
3451 033256 136 10 0 00 000011 IDPB AC,<AC+1>&17 ;INC AND DEPOSIT BYTE
3452 033257 312 00 0 00 000006 CAME ,<AC-2>&17 ;TEST DEST WORD
3453 033260 012 00 0 00 012205 ER12 ,SN ;IDPB FAILED
3454 033261 321 12 0 00 033251 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
3455
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 43
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0099
3456 ;INST-LDB-SPECIAL CASE-S GREATER THAN 44
3457 ;P FIELD=7
3458 ;S FIELD=60,40
3459 ;VERIFY THAT THE BYTE PROCESSED IS, AT MOST, 44 BITS IF S GREATER THAN 44
3460
3461 000013 AC=13
3462 SAVEAC (1,1)^
3463 033262 201 15 0 00 033262 MOVEI AC+2,. ;SAVE TEST PC
3464 033263 202 15 0 00 030051 MOVEM AC+2,TESTPC
3465 033264 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3466 033265 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3467
3468 012210 SN=12210
3469 100000 XX=100000
3470
3471 G12210: REPEAT 2, ;TEST LDB
3472 <SN=SN+1
3473 XX=XX-2000
3474 SETOB 0,2
3475 MOVE 1,[525252,,525377] ;SETUP BYTE WORD
3476 SETZM AC ;CLEAR DEST WORD
3477 MOVE AC+1,[XX,,1] ;SETUP POINTER
3478 LDB AC,<AC+1>&17 ;LOAD BYTE
3479 CAME AC,[002525,,252525] ;TEST DEST WORD
3480 ER3 AC,SN ;LDB FAILED
3481 CAME AC+1,[XX,,1] ;CHECK POINTER
3482 ER4 AC+1,SN ;POINTER WAS MODIFIED
3483 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
3484 >
3485 012211 SN=SN+1
3486 076000 XX=XX-2000
3487 033266 477 00 0 00 000002 SETOB 0,2
3488 033267 200 01 0 00 040654 MOVE 1,[525252,,525377] ;SETUP BYTE WORD
3489 033270 402 00 0 00 000013 SETZM AC ;CLEAR DEST WORD
3490 033271 200 14 0 00 040655 MOVE AC+1,[XX,,1] ;SETUP POINTER
3491 033272 135 13 0 00 000014 LDB AC,<AC+1>&17 ;LOAD BYTE
3492 033273 312 13 0 00 040656 CAME AC,[002525,,252525] ;TEST DEST WORD
3493 033274 003 13 0 00 012211 ER3 AC,SN ;LDB FAILED
3494 033275 312 14 0 00 040655 CAME AC+1,[XX,,1] ;CHECK POINTER
3495 033276 004 14 0 00 012211 ER4 AC+1,SN ;POINTER WAS MODIFIED
3496 033277 321 15 0 00 033266 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
3497
3498 012212 SN=SN+1
3499 074000 XX=XX-2000
3500 033300 477 00 0 00 000002 SETOB 0,2
3501 033301 200 01 0 00 040654 MOVE 1,[525252,,525377] ;SETUP BYTE WORD
3502 033302 402 00 0 00 000013 SETZM AC ;CLEAR DEST WORD
3503 033303 200 14 0 00 040657 MOVE AC+1,[XX,,1] ;SETUP POINTER
3504 033304 135 13 0 00 000014 LDB AC,<AC+1>&17 ;LOAD BYTE
3505 033305 312 13 0 00 040656 CAME AC,[002525,,252525] ;TEST DEST WORD
3506 033306 003 13 0 00 012212 ER3 AC,SN ;LDB FAILED
3507 033307 312 14 0 00 040657 CAME AC+1,[XX,,1] ;CHECK POINTER
3508 033310 004 14 0 00 012212 ER4 AC+1,SN ;POINTER WAS MODIFIED
3509 033311 321 15 0 00 033300 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
3510
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 43-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0100
3511 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 43-2
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0101
3512 ;INST-DPB-SPECIAL CASE-S GREATER THAN 44
3513 ;P FIELD=7
3514 ;S FIELD=60,40
3515 ;VERIFY THAT THE BYTE PROCESSED IS, AT MOST, 44 BITS IF S GREATER THAN 44
3516
3517 012220 SN=12220
3518 100000 XX=100000
3519
3520 G12220: REPEAT 2, ;TEST DPB
3521 <SN=SN+1
3522 XX=XX-2000
3523 SETOB 0,2
3524 MOVE 1,[707070,,707070] ;SETUP DEST WORD
3525 MOVE AC,[323232,,232323] ;SETUP BYTE WORD
3526 MOVE AC+1,[XX,,1] ;SETUP POINTER
3527 DPB AC,<AC+1>&17 ;DEPOSIT BYTE
3528 MOVEI AC-2,[ASCIZ/C(C(E)-1) FAILED/]
3529 MOVE AC-2,SPDES ;FAILURE DESCRIPTOR
3530 CAME 0,[-1,,-1] ;CHECK DEST WORD -1
3531 ER2 0,SN ;DPB FAILED
3532 CAME 1,[646446,,464670] ;CHECK DEST WORD
3533 ER12 1,SN ;DPB FAILED
3534 MOVEI AC-2,[ASCIZ/C(C(E)+1) FAILED/]
3535 MOVEM AC-2,SPDES ;FAILURE DSCRIPTOR
3536 CAME 2,[-1,,-1] ;CHECK DEST WORD +1
3537 ER2 2,SN ;DPB FAILED
3538 JUMPL AC+2,.-^D15 ;LOOP ON ERROR SWITCH
3539 >
3540 012221 SN=SN+1
3541 076000 XX=XX-2000
3542 033312 477 00 0 00 000002 SETOB 0,2
3543 033313 200 01 0 00 040660 MOVE 1,[707070,,707070] ;SETUP DEST WORD
3544 033314 200 13 0 00 040661 MOVE AC,[323232,,232323] ;SETUP BYTE WORD
3545 033315 200 14 0 00 040655 MOVE AC+1,[XX,,1] ;SETUP POINTER
3546 033316 137 13 0 00 000014 DPB AC,<AC+1>&17 ;DEPOSIT BYTE
3547 033317 201 11 0 00 040662 MOVEI AC-2,[ASCIZ/C(C(E)-1) FAILED/]
3548 033320 200 11 0 00 040577 MOVE AC-2,SPDES ;FAILURE DESCRIPTOR
3549 033321 312 00 0 00 040666 CAME 0,[-1,,-1] ;CHECK DEST WORD -1
3550 033322 002 00 0 00 012221 ER2 0,SN ;DPB FAILED
3551 033323 312 01 0 00 040667 CAME 1,[646446,,464670] ;CHECK DEST WORD
3552 033324 012 01 0 00 012221 ER12 1,SN ;DPB FAILED
3553 033325 201 11 0 00 040670 MOVEI AC-2,[ASCIZ/C(C(E)+1) FAILED/]
3554 033326 202 11 0 00 040577 MOVEM AC-2,SPDES ;FAILURE DSCRIPTOR
3555 033327 312 02 0 00 040666 CAME 2,[-1,,-1] ;CHECK DEST WORD +1
3556 033330 002 02 0 00 012221 ER2 2,SN ;DPB FAILED
3557 033331 321 15 0 00 033312 JUMPL AC+2,.-^D15 ;LOOP ON ERROR SWITCH
3558
3559 012222 SN=SN+1
3560 074000 XX=XX-2000
3561 033332 477 00 0 00 000002 SETOB 0,2
3562 033333 200 01 0 00 040660 MOVE 1,[707070,,707070] ;SETUP DEST WORD
3563 033334 200 13 0 00 040661 MOVE AC,[323232,,232323] ;SETUP BYTE WORD
3564 033335 200 14 0 00 040657 MOVE AC+1,[XX,,1] ;SETUP POINTER
3565 033336 137 13 0 00 000014 DPB AC,<AC+1>&17 ;DEPOSIT BYTE
3566 033337 201 11 0 00 040662 MOVEI AC-2,[ASCIZ/C(C(E)-1) FAILED/]
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 43-3
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0102
3567 033340 200 11 0 00 040577 MOVE AC-2,SPDES ;FAILURE DESCRIPTOR
3568 033341 312 00 0 00 040666 CAME 0,[-1,,-1] ;CHECK DEST WORD -1
3569 033342 002 00 0 00 012222 ER2 0,SN ;DPB FAILED
3570 033343 312 01 0 00 040667 CAME 1,[646446,,464670] ;CHECK DEST WORD
3571 033344 012 01 0 00 012222 ER12 1,SN ;DPB FAILED
3572 033345 201 11 0 00 040670 MOVEI AC-2,[ASCIZ/C(C(E)+1) FAILED/]
3573 033346 202 11 0 00 040577 MOVEM AC-2,SPDES ;FAILURE DSCRIPTOR
3574 033347 312 02 0 00 040666 CAME 2,[-1,,-1] ;CHECK DEST WORD +1
3575 033350 002 02 0 00 012222 ER2 2,SN ;DPB FAILED
3576 033351 321 15 0 00 033332 JUMPL AC+2,.-^D15 ;LOOP ON ERROR SWITCH
3577
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 44
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0103
3578 ;VERIFY THAT THE POINTER IS NOT INCREMENTED BY "ILDB" OR "IDPB" IF 'BIS'
3579 ;IS SET; AND THAT THE SECOND PART OF THE BYTE INSTRUCTION CLEARS 'BIS'
3580
3581 000013 AC=13
3582 SAVEAC (1,1)^
3583 033352 201 15 0 00 033352 MOVEI AC+2,. ;SAVE TEST PC
3584 033353 202 15 0 00 030051 MOVEM AC+2,TESTPC
3585 033354 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3586 033355 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3587
3588 033356 200 14 0 00 040674 G12300: MOVE AC+1,[220600,,AC-1] ;SETUP BYTE POINTER
3589 033357 200 13 0 00 040660 MOVE AC,[707070,,707070] ;SETUP AC
3590 033360 200 12 0 00 040675 MOVE AC-1,[112233,,445566] ;SETUP BYTE WORD
3591 033361 254 02 1 00 040676 JRSTF @[BIS,,.+1] ;SET 'BIS' FLAG
3592 033362 134 13 0 00 000014 ILDB AC,AC+1
3593 033363 265 11 0 00 033364 JSP AC-2,.+1 ;SAVE FLAGS
3594 033364 302 13 0 00 000033 CAIE AC,33 ;TEST DEST WORD
3595 033365 003 13 0 00 012301 ER3 AC,12301 ;INCORRECT BYTE WAS LOADED
3596 033366 312 14 0 00 040674 CAME AC+1,[220600,,AC-1] ;TEST POINTER
3597 033367 004 14 0 00 012301 ER4 AC+1,12301 ;POINTER WAS INCREMENTED
3598 033370 603 11 0 00 020000 TLNE AC-2,BIS ;EXAMINE 'BIS'
3599 033371 013 11 0 00 012301 ER13 AC-2,12301 ;'BIS' WAS NOT CLEARED
3600 033372 322 15 0 00 033356 JUMPE AC+2,G12300 ;LOOP ON ERROR SWITCH
3601
3602 033373 200 14 0 00 040674 G12400: MOVE AC+1,[220600,,AC-1] ;SET-UP BYTE POINTER
3603 033374 200 13 0 00 040660 MOVE AC,[707070,,707070] ;SET-UP AC
3604 033375 200 12 0 00 040675 MOVE AC-1,[112233,,445566] ;SETUP BYTE WORD
3605 033376 254 02 1 00 040677 JRSTF @[BIS,,.+1] ;SET 'BIS' FLAG
3606 033377 136 13 0 00 000014 IDPB AC,AC+1
3607 033400 265 11 0 00 033401 JSP AC-2,.+1 ;SAVE FLAGS
3608 033401 312 14 0 00 040674 CAME AC+1,[220600,,AC-1] ;TEST POINTER
3609 033402 004 14 0 00 012401 ER4 AC+1,12401 ;POINTER WAS INCREMENTED
3610 033403 312 12 0 00 040700 CAME AC-1,[112270,,445566] ;TEST BYTE WORD
3611 033404 012 12 0 00 012401 ER12 AC-1,12401 ;INCORRECT BYTE WAS DEPOSITED
3612 033405 603 11 0 00 020000 TLNE AC-2,BIS ;EXAMINE 'BIS'
3613 033406 013 11 0 00 012401 ER13 AC-2,12401 ;'BIS' WAS NOT CLEARED
3614 033407 321 15 0 00 033373 JUMPL AC+2,G12400 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 47
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0104
3615 ;MSCL BYTE TESTS - IBP
3616 ;VERIFY THAT IBP WORKS WHEN THE POINTER IS IN AN AC
3617
3618 000007 AC=7
3619 SAVEAC (1,1)^
3620 033410 201 11 0 00 033410 MOVEI AC+2,. ;SAVE TEST PC
3621 033411 202 11 0 00 030051 MOVEM AC+2,TESTPC
3622 033412 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3623 033413 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3624 033414 254 02 1 00 040701 JRSTF @[.+1] ;CLEAR ALL FLAGS
3625
3626 033415 205 05 0 00 170600 G12500: MOVSI AC-2,170600 ;SETUP POINTER
3627 033416 205 06 0 00 110600 MOVSI AC-1,110600 ;RESULT FOR COMPARISON
3628 033417 133 00 0 00 000005 IBP <AC-2>&17 ;*IBP SHOULD PLACE 110600,,0 INTO PTR
3629 033420 312 05 0 00 000006 CAME AC-2,<AC-1>&17 ;IS PTR = 110600,,0 ?
3630 033421 005 05 0 00 012501 ER5 AC-2,12501 ;POINTER FAILURE
3631 033422 321 11 0 00 033415 JUMPL AC+2,G12500 ;LOOP ON ERROR SWITCH
3632
3633 ;MSCL BYTE TESTS - IBP
3634 ;VERIFY THAT IBP WORKS WHEN THE POINTER IS IN CORE MEMORY
3635
3636 000006 AC=6
3637 SAVEAC (1,1)^
3638 033423 201 10 0 00 033423 MOVEI AC+2,. ;SAVE TEST PC
3639 033424 202 10 0 00 030051 MOVEM AC+2,TESTPC
3640 033425 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3641 033426 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3642 033427 254 02 1 00 040702 JRSTF @[.+1] ;CLEAR ALL FLAGS
3643
3644 033430 205 04 0 00 170600 G12510: MOVSI AC-2,170600
3645 033431 202 04 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER
3646 033432 205 04 0 00 110600 MOVSI AC-2,110600 ;RESULT FOR COMPARISON
3647 033433 400 05 0 00 000000 SETZ AC-1, ;INITIALIZE FOR RESULT
3648 033434 133 00 0 00 040073 IBP BYTBLK ;*IBP SHOULD PLACE 110600,,0 INTO PTR
3649 033435 200 05 0 00 040073 MOVE AC-1,BYTBLK
3650 033436 312 05 0 00 000004 CAME AC-1,<AC-2>&17 ;IS PTR = 110600,,0 ?
3651 033437 005 05 0 00 012511 ER5 AC-1,12511 ;POINTER FAILURE
3652 033440 321 10 0 00 033430 JUMPL AC+2,G12510 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 48
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0105
3653 ;MSCL BYTE TESTS - DPB
3654 ;VERIFY THAT DPB WORKS WHEN BOTH POINTER AND BYTE
3655 ;ARE IN AC'S
3656
3657 000005 AC=5
3658 SAVEAC (1,1)^
3659 033441 201 07 0 00 033441 MOVEI AC+2,. ;SAVE TEST PC
3660 033442 202 07 0 00 030051 MOVEM AC+2,TESTPC
3661 033443 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3662 033444 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3663 033445 254 02 1 00 040703 JRSTF @[.+1] ;CLEAR ALL FLAGS
3664
3665 033446 205 03 0 00 170600 G12600: MOVSI AC-2,170600 ;SETUP POINTER
3666 033447 541 03 0 00 000001 HRRI AC-2,<AC-4>&17
3667 033450 200 02 0 00 000003 MOVE AC-3,<AC-2>&17 ;POINTER FOR COMPARISON
3668 033451 200 01 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD
3669 033452 201 05 0 00 654321 MOVEI AC,654321 ;SETUP AC
3670 033453 200 04 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON
3671 033454 137 05 0 00 000003 DPB AC,<AC-2>&17 ;DPB SHOULD PLACE 230702.103700 INTO BYTE WORD
3672 033455 312 03 0 00 000002 CAME AC-2,<AC-3>&17 ;WAS POINTER MODIFIED ?
3673 033456 005 03 0 00 012601 ER5 AC-2,12601 ;FAILURE - POINTER WAS MODIFIED
3674 033457 302 05 0 00 654321 CAIE AC,654321 ;WAS AC MODIFIED?
3675 033460 003 05 0 00 012602 ER3 AC,12602 ;FAILURE - AC WAS MODIFIED
3676 033461 312 01 0 00 000004 CAME AC-4,<AC-1>&17 ;WAS BYTE DEPOSITED CORRECTLY?
3677 033462 012 01 0 00 012603 ER12 AC-4,12603 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY
3678 033463 321 07 0 00 033446 JUMPL AC+2,G12600 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 49
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0106
3679 ;MSCL BYTE TESTS - DPB
3680 ;VERIFY THAT DPB WORKS WHEN POINTER IS IN AN AC AND
3681 ;BYTE IS IN CORE MEMORY
3682
3683 000014 AC=14
3684 SAVEAC (1,1)^
3685 033464 201 16 0 00 033464 MOVEI AC+2,. ;SAVE TEST PC
3686 033465 202 16 0 00 030051 MOVEM AC+2,TESTPC
3687 033466 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3688 033467 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3689 033470 254 02 1 00 040706 JRSTF @[.+1] ;CLEAR ALL FLAGS
3690
3691 033471 205 12 0 00 170600 G12610: MOVSI AC-2,170600 ;SETUP POINTER
3692 033472 541 12 0 00 040073 HRRI AC-2,BYTBLK
3693 033473 200 11 0 00 000012 MOVE AC-3,<AC-2>&17 ;POINTER FOR COMPARISON
3694 033474 200 14 0 00 040704 MOVE AC,[230703,,603700] ;SETUP BYTE WORD
3695 033475 202 14 0 00 040073 MOVEM AC,BYTBLK
3696 033476 200 13 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON
3697 033477 201 14 0 00 654321 MOVEI AC,654321 ;SETUP AC
3698 033500 137 14 0 00 000012 DPB AC,<AC-2>&17 ;DPB SHOULD PLACE 230702,,103700 INTO BYTE WORD
3699 033501 312 12 0 00 000011 CAME AC-2,<AC-3>&17 ;WAS POINTER MODIFIED?
3700 033502 005 12 0 00 012611 ER5 AC-2,12611 ;FAILURE - POINTER WAS MODIFIED
3701 033503 302 14 0 00 654321 CAIE AC,654321 ;WAS AC MODIFIED?
3702 033504 003 14 0 00 012612 ER3 AC,12612 ;FAILURE - AC WAS MODIFIED
3703 033505 200 07 0 00 040073 MOVE AC-5,BYTBLK
3704 033506 312 13 0 00 040073 CAME AC-1,BYTBLK ;WAS BYTE DEPOSITED CORRECTLY?
3705 033507 012 07 0 00 012613 ER12 AC-5,12613 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY
3706 033510 321 16 0 00 033471 JUMPL AC+2,G12610 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 50
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0107
3707 ;MSCL BYTE TESTS - DPB
3708 ;VERIFY THAT DPB WORKS WHEN BYTE IS IN AN AC AND
3709 ;POINTER IS IN CORE MEMORY
3710
3711 000013 AC=13
3712 SAVEAC (1,1)^
3713 033511 201 15 0 00 033511 MOVEI AC+2,. ;SAVE TEST PC
3714 033512 202 15 0 00 030051 MOVEM AC+2,TESTPC
3715 033513 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3716 033514 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3717 033515 254 02 1 00 040707 JRSTF @[.+1] ;CLEAR ALL FLAGS
3718
3719 033516 205 11 0 00 170600 G12620: MOVSI AC-2,170600
3720 033517 541 11 0 00 000007 HRRI AC-2,<AC-4>&17 ;POINTER FOR COMPARISON
3721 033520 202 11 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER
3722 033521 200 07 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD
3723 033522 200 12 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON
3724 033523 201 13 0 00 654321 MOVEI AC,654321 ;SETUP AC
3725 033524 137 13 0 00 040073 DPB AC,BYTBLK ;DPB SHOULD PLACE 230702,,103700 INTO BYTE WORD
3726 033525 200 10 0 00 040073 MOVE AC-3,BYTBLK
3727 033526 312 11 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER MODIFIED?
3728 033527 005 10 0 00 012621 ER5 AC-3,12621 ;FAILURE - POINTER WAS MODIFIED
3729 033530 302 13 0 00 654321 CAIE AC,654321 ;WAS AC MODIFIED?
3730 033531 003 13 0 00 012622 ER3 AC,12622 ;FAILURE - AC WAS MODIFIED
3731 033532 312 07 0 00 000012 CAME AC-4,<AC-1>&17 ;WAS BYTE DEPOSITED CORRECTLY?
3732 033533 012 07 0 00 012523 ER12 AC-4,12523 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY
3733 033534 321 05 0 00 033516 JUMPL AC+12,G12620 ;LOOP ON ERROR SWITCH
3734
3735 ;MSCL BYTE TESTS - DPB
3736 ;VERIFY THAT DPB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY
3737
3738 000012 AC=12
3739 SAVEAC (1,1)^
3740 033535 201 14 0 00 033535 MOVEI AC+2,. ;SAVE TEST PC
3741 033536 202 14 0 00 030051 MOVEM AC+2,TESTPC
3742 033537 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3743 033540 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3744 033541 254 02 1 00 040710 JRSTF @[.+1] ;CLEAR ALL FLAGS
3745
3746 033542 205 10 0 00 170600 G12630: MOVSI AC-2,170600
3747 033543 541 10 0 00 040076 HRRI AC-2,BYTBLK+3 ;POINTER FOR COMPARISON
3748 033544 202 10 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER
3749 033545 200 06 0 00 040704 MOVE AC-4,[230703,,603700]
3750 033546 202 06 0 00 040076 MOVEM AC-4,BYTBLK+3 ;SETUP BYTE WORD
3751 033547 200 11 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON
3752 033550 201 12 0 00 654321 MOVEI AC,654321 ;SETUP AC
3753 033551 137 12 0 00 040073 DPB AC,BYTBLK ;DPB SHOULD PLACE 230702,,103700 INTO BYTE WORD
3754 033552 200 06 0 00 040073 MOVE AC-4,BYTBLK
3755 033553 312 10 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER MODIFIED?
3756 033554 005 06 0 00 012631 ER5 AC-4,12631 ;FAILURE - POINTER WAS MODIFIED
3757 033555 200 07 0 00 040076 MOVE AC-3,BYTBLK+3
3758 033556 312 11 0 00 040076 CAME AC-1,BYTBLK+3 ;WAS BYTE DEPOSITED CORRECTLY?
3759 033557 012 07 0 00 012632 ER12 AC-3,12632 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY
3760 033560 302 12 0 00 654321 CAIE AC,654321 ;WAS AC MODIFIED?
3761 033561 003 12 0 00 012633 ER3 AC,12633 ;FAILURE - AC WAS MODIFIED
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 50-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0108
3762 033562 321 14 0 00 033542 JUMPL AC+2,G12630 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 51
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0109
3763 ;MSCL BYTE TESTS - IDPB
3764 ;VERIFY THAT IDPB WORKS WHEN BOTH POINTER AND BYTE
3765 ;ARE IN AC'S
3766
3767 000011 AC=11
3768 SAVEAC (1,1)^
3769 033563 201 13 0 00 033563 MOVEI AC+2,. ;SAVE TEST PC
3770 033564 202 13 0 00 030051 MOVEM AC+2,TESTPC
3771 033565 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3772 033566 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3773 033567 254 02 1 00 040711 JRSTF @[.+1] ;CLEAR ALL FLAGS
3774
3775 033570 205 07 0 00 250600 G12700: MOVSI AC-2,250600 ;SETUP POINTER
3776 033571 541 07 0 00 000005 HRRI AC-2,<AC-4>&17
3777 033572 200 06 0 00 000007 MOVE AC-3,<AC-2>&17
3778 033573 505 06 0 00 170600 HRLI AC-3,170600 ;POINTER FOR COMPARISON
3779 033574 200 05 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD
3780 033575 201 11 0 00 654321 MOVEI AC,654321 ;SETUP AC
3781 033576 200 10 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON
3782 033577 136 11 0 00 000007 IDPB AC,<AC-2>&17 ;IDPB SHOULD PLACE 230702,,103700 INTO BYTE WORD
3783 033600 312 07 0 00 000006 CAME AC-2,<AC-3>&17 ;WAS POINTER INCREMENTED CORRECTLY
3784 033601 005 07 0 00 012701 ER5 AC-2,12701 ;FAILURE - POINTER NOT INCREMENTED CORRECTLY
3785 033602 302 11 0 00 654321 CAIE AC,654321 ;WAS AC MODIFIED
3786 033603 003 11 0 00 012700 ER3 AC,12700 ;FAILURE - AC WAS MODIFIED
3787 033604 312 05 0 00 000010 CAME AC-4,<AC-1>&17 ;WAS BYTE DEPOSITED CORRECTLY?
3788 033605 012 05 0 00 012703 ER12 AC-4,12703 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY
3789 033606 321 13 0 00 033570 JUMPL AC+2,G12700 ;LOOP ON ERROR SWITCH
3790
3791 ;MSCL BYTE TESTS - IDPB
3792 ;VERIFY THAT DPB WORKS WHEN POINTER IS IN AN AC AND
3793 ;BYTE IS IN CORE MEMORY
3794
3795 000010 AC=10
3796 SAVEAC (1,1)^
3797 033607 201 12 0 00 033607 MOVEI AC+2,. ;SAVE TEST PC
3798 033610 202 12 0 00 030051 MOVEM AC+2,TESTPC
3799 033611 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3800 033612 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3801 033613 254 02 1 00 040712 JRSTF @[.+1] ;CLEAR ALL FLAGS
3802
3803 033614 205 06 0 00 250600 G12710: MOVSI AC-2,250600 ;SETUP POINTER
3804 033615 541 06 0 00 040073 HRRI AC-2,BYTBLK
3805 033616 200 05 0 00 000006 MOVE AC-3,<AC-2>&17
3806 033617 505 05 0 00 170600 HRLI AC-3,170600 ;POINTER FOR COMPARISON
3807 033620 200 10 0 00 040704 MOVE AC,[230703,,603700] ;SETUP BYTE WORD
3808 033621 202 10 0 00 040073 MOVEM AC,BYTBLK
3809 033622 200 07 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON
3810 033623 201 10 0 00 654321 MOVEI AC,654321 ;SETUP AC
3811 033624 136 10 0 00 000006 IDPB AC,<AC-2>&17 ;IDPB SHOULD PLACE 230702,,103700 INTO
3812 ;BYTE WORD AND INCREMENT POINTER
3813 033625 312 06 0 00 000005 CAME AC-2,<AC-3>&17 ;WAS POINTER INCREMENTED CORRECTED
3814 033626 012 03 0 00 012713 ER12 AC-5,12713 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY
3815 033627 321 12 0 00 033614 JUMPL AC+2,G12710 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 52
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0110
3816 ;MSCL BYTE TESTS - IDPB
3817 ;VERIFY THAT IDPB WORKS WHEN BYTE IS IN AN AC AND
3818 ;POINTER IS IN CORE MEMORY
3819
3820 000007 AC=7
3821 SAVEAC (1,1)^
3822 033630 201 11 0 00 033630 MOVEI AC+2,. ;SAVE TEST PC
3823 033631 202 11 0 00 030051 MOVEM AC+2,TESTPC
3824 033632 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3825 033633 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3826
3827 033634 254 02 1 00 040713 JRSTF @[.+1] ;CLEAR ALL FLAGS
3828
3829 033635 205 05 0 00 250600 G12720: MOVSI AC-2,250600
3830 033636 541 05 0 00 000003 HRRI AC-2,<AC-4>&17
3831 033637 202 05 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER
3832 033640 505 05 0 00 170600 HRLI AC-2,170600 ;POINTER FOR COMPARISON
3833 033641 200 03 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD
3834 033642 200 06 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON
3835 033643 201 07 0 00 654321 MOVEI AC,654321 ;;SETUP AC
3836 033644 136 07 0 00 040073 IDPB AC,BYTBLK ;IDPB SHOULD PLACE 230702,,103700 INTO
3837 ;BYTE WORD AND INCREMENT POINTER
3838 033645 200 04 0 00 040073 MOVE AC-3,BYTBLK
3839 033646 312 05 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER INCREMENTED CORRECTLY
3840 033647 005 04 0 00 012721 ER5 AC-3,12721 ;FAILURE - POINTER WAS NOT INCREMENTED CORRECTLY
3841 033650 302 07 0 00 654321 CAIE AC,654321 ;WAS AC MODIFIED?
3842 033651 003 07 0 00 012722 ER3 AC,12722 ;FAILURE - AC WAS MODIFIED
3843 033652 312 03 0 00 000006 CAME AC-4,<AC-1>&17 ;WAS BYTE DEPOSITED CORRECTLY
3844 033653 012 03 0 00 012723 ER12 AC-4,12723 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY
3845 033654 321 11 0 00 033635 JUMPL AC+2,G12720 ;LOOP ON ERROR SWITCH
3846
3847 ;MSCL BYTE TESTS - IDPB
3848 ;VERIFY THAT IDPB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY
3849
3850 000006 AC=6
3851 SAVEAC (1,1)^
3852 033655 201 10 0 00 033655 MOVEI AC+2,. ;SAVE TEST PC
3853 033656 202 10 0 00 030051 MOVEM AC+2,TESTPC
3854 033657 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3855 033660 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3856 033661 254 02 1 00 040714 JRSTF @[.+1] ;CLEAR ALL FLAGS
3857
3858 033662 205 04 0 00 250600 G12730: MOVSI AC-2,250600
3859 033663 541 04 0 00 040076 HRRI AC-2,BYTBLK+3
3860 033664 202 04 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER
3861 033665 505 04 0 00 170600 HRLI AC-2,170600 ;POINTER FOR COMPARISON
3862 033666 200 02 0 00 040704 MOVE AC-4,[230703,,603700]
3863 033667 202 02 0 00 040076 MOVEM AC-4,BYTBLK+3 ;SETUP BYTE WORD
3864 033670 200 05 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON
3865 033671 201 06 0 00 654321 MOVEI AC,654321 ;SETUP AC
3866 033672 136 06 0 00 040073 IDPB AC,BYTBLK ;IDPB SHOULD PLACE 230702,,103700 INTO
3867 ;BYTE WORD AND INCREMENT POINTER
3868 033673 200 02 0 00 040073 MOVE AC-4,BYTBLK
3869 033674 312 04 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER MODIFIED?
3870 033675 005 02 0 00 012731 ER5 AC-4,12731 ;FAILURE - POINTER WAS MODIFIED
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 52-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0111
3871 033676 200 03 0 00 040076 MOVE AC-3,BYTBLK+3
3872 033677 312 05 0 00 040076 CAME AC-1,BYTBLK+3 ;WAS BYTE DEPOSITED CORRECTLY
3873 033700 012 03 0 00 012732 ER12 AC-3,12732 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY
3874 033701 302 06 0 00 654321 CAIE AC,654321 ;WAS AC MODIFIED
3875 033702 003 06 0 00 012733 ER3 AC,12733 ;FAILURE - AC WAS MODIFIED
3876 033703 321 10 0 00 033662 JUMPL AC+2,G12730 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 53
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0112
3877 ;MSCL BYTE TESTS - LDB
3878 ;VERIFY THAT LDB WORKS WHEN BOTH POINTER AND BYTE
3879 ;ARE IN AC'S
3880
3881 000005 AC=5
3882 SAVEAC (1,1)^
3883 033704 201 07 0 00 033704 MOVEI AC+2,. ;SAVE TEST PC
3884 033705 202 07 0 00 030051 MOVEM AC+2,TESTPC
3885 033706 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3886 033707 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3887 033710 254 02 1 00 040715 JRSTF @[.+1] ;CLEAR ALL FLAGS
3888
3889 033711 205 03 0 00 170600 G13000: MOVSI AC-2,170600 ;SETUP POINTER
3890 033712 541 03 0 00 000001 HRRI AC-2,<AC-4>&17
3891 033713 200 02 0 00 000003 MOVE AC-3,<AC-2>&17 ;POINTER FOR COMPARISON
3892 033714 200 01 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD
3893 033715 400 05 0 00 000000 SETZ AC, ;SETUP AC
3894 033716 200 04 0 00 000001 MOVE AC-1,<AC-4>&17 ;BYTE WORD FOR COMPARISON
3895 033717 135 05 0 00 000003 LDB AC,<AC-2>&17 ;LDB SHOULD PLACE 0,,36 INTO THE AC
3896 033720 312 03 0 00 000002 CAME AC-2,<AC-3>&17 ;WAS POINTER MODIFIED?
3897 033721 005 03 0 00 013001 ER5 AC-2,13001 ;FAILURE - POINTER WAS MODIFIED
3898 033722 302 05 0 00 000036 CAIE AC,36 ;WAS BYTE LOADED CORRECTLY?
3899 033723 003 05 0 00 013002 ER3 AC,13002 ;FAILURE - BYTE NOT LOADED CORRECTLY.
3900 033724 312 01 0 00 000004 CAME AC-4,<AC-1>&17 ;WAS BYTE WORD MODIFIED
3901 033725 012 01 0 00 013003 ER12 AC-4,13003 ;FAILURE - BYTE WORD WAS MODIFIED
3902 033726 321 07 0 00 033711 JUMPL AC+2,G13000 ;LOOP ON ERROR SWITCH
3903
3904 ;MSCL BYTE TESTS - LDB
3905 ;VERIFY THAT LDB WORKS WHEN POINTER IS IN AN AC AND
3906 ;BYTE IS IN CORE MEMORY
3907
3908 000014 AC=14
3909 SAVEAC (1,1)^
3910 033727 201 16 0 00 033727 MOVEI AC+2,. ;SAVE TEST PC
3911 033730 202 16 0 00 030051 MOVEM AC+2,TESTPC
3912 033731 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3913 033732 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3914 033733 254 02 1 00 040716 JRSTF @[.+1] ;CLEAR ALL FLAGS
3915
3916 033734 205 12 0 00 170600 G13010: MOVSI AC-2,170600 ;SETUP POINTER
3917 033735 541 12 0 00 040073 HRRI AC-2,BYTBLK
3918 033736 200 11 0 00 000012 MOVE AC-3,<AC-2>&17 ;POINTER FOR COMPARISON
3919 033737 200 13 0 00 040704 MOVE AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON
3920 033740 202 13 0 00 040073 MOVEM AC-1,BYTBLK ;SETUP BYTE WORD
3921 033741 400 14 0 00 000000 SETZ AC, ;SETUP AC
3922 033742 135 14 0 00 000012 LDB AC,<AC-2>&17 ;LDB SHOULD PLACE 0,,36 INTO THE AC
3923 033743 312 12 0 00 000011 CAME AC-2,<AC-3>&17 ;WAS POINTER MODIFIED?
3924 033744 005 12 0 00 013011 ER5 AC-2,13011 ;FAILURE - POINTER WAS MODIFIED
3925 033745 302 14 0 00 000036 CAIE AC,36 ;WAS BYTE LOADED CORRECTLY?
3926 033746 003 14 0 00 013012 ER3 AC,13012 ;FAILURE - BYTE NOT LOADED CORRECTLY
3927 033747 200 07 0 00 040073 MOVE AC-5,BYTBLK
3928 033750 312 13 0 00 040073 CAME AC-1,BYTBLK ;WAS BYTE WORD MODIFIED?
3929 033751 012 07 0 00 013013 ER12 AC-5,13013 ;FAILURE - BYTE WORD WAS MODIFIED
3930 033752 321 16 0 00 033734 JUMPL AC+2,G13010 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 54
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0113
3931 ;MSCL BYTE TESTS - LDB
3932 ;VERIFY THAT LDB WORKS WHEN BYTE IS IN AN AC AND
3933 ;POINTER IS IN CORE MEMORY.
3934
3935 000013 AC=13
3936 SAVEAC (1,1)^
3937 033753 201 15 0 00 033753 MOVEI AC+2,. ;SAVE TEST PC
3938 033754 202 15 0 00 030051 MOVEM AC+2,TESTPC
3939 033755 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3940 033756 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3941 033757 254 02 1 00 040717 JRSTF @[.+1] ;CLEAR ALL FLAGS
3942
3943 033760 205 11 0 00 170600 G13020: MOVSI AC-2,170600
3944 033761 541 11 0 00 000007 HRRI AC-2,<AC-4>&17 ;POINTER FOR COMPARISON
3945 033762 202 11 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER
3946 033763 200 07 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD
3947 033764 200 12 0 00 040704 MOVE AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON
3948 033765 400 13 0 00 000000 SETZ AC, ;SETUP AC
3949 033766 135 13 0 00 040073 LDB AC,BYTBLK ;LDB SHOULD PLACE 20,,36 INTO THE AC
3950 033767 200 10 0 00 040073 MOVE AC-3,BYTBLK
3951 033770 312 11 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER MODIFIED?
3952 033771 005 10 0 00 013021 ER5 AC-3,13021 ;FAILURE - POINTER WAS MODIFIED
3953 033772 302 13 0 00 000036 CAIE AC,36 ;WAS BYTE LOADED CORRECTLY?
3954 033773 003 13 0 00 013022 ER3 AC,13022 ;FAILURE - BYTE NOT LOADED CORRECTLY
3955 033774 312 07 0 00 000012 CAME AC-4,<AC-1>&17 ;WAS BYTE WORD MODIFIED?
3956 033775 012 07 0 00 013023 ER12 AC-4,13023 ;FAILURE - BYTE WORD WAS MODIFIED
3957 033776 321 15 0 00 033760 JUMPL AC+2,G13020 ;LOOP ON ERROR SWITCH
3958
3959 ;MSCL BYTE TESTS - LDB
3960 ;VERIFY THAT LDB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY.
3961
3962 000012 AC=12
3963 SAVEAC (1,1)^
3964 033777 201 14 0 00 033777 MOVEI AC+2,. ;SAVE TEST PC
3965 034000 202 14 0 00 030051 MOVEM AC+2,TESTPC
3966 034001 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3967 034002 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3968 034003 254 02 1 00 040720 JRSTF @[.+1] ;CLEAR ALL FLAGS
3969
3970 034004 205 10 0 00 170600 G13030: MOVSI AC-2,170600
3971 034005 541 10 0 00 040076 HRRI AC-2,BYTBLK+3 ;POINTER FOR COMPARISON
3972 034006 202 10 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER
3973 034007 200 06 0 00 040704 MOVE AC-4,[230703,,603700]
3974 034010 202 06 0 00 040076 MOVEM AC-4,BYTBLK+3 ;SETUP BYTE WORD
3975 034011 200 11 0 00 040704 MOVE AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON
3976 034012 400 12 0 00 000000 SETZ AC, ;SETUP AC
3977 034013 135 12 0 00 040073 LDB AC,BYTBLK ;LDB SHOULD PLACE 20,,36 INTO THE AC
3978 034014 200 06 0 00 040073 MOVE AC-4,BYTBLK
3979 034015 312 10 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER MODIFIED?
3980 034016 005 06 0 00 013031 ER5 AC-4,13031 ;FAILURE - POINTER WAS MODIFIED
3981 034017 200 07 0 00 040076 MOVE AC-3,BYTBLK+3
3982 034020 312 11 0 00 040076 CAME AC-1,BYTBLK+3 ;WAS BYTE WORD MODIFIED?
3983 034021 012 07 0 00 013032 ER12 AC-3,13032 ;FAILURE - BYTE WORD WAS MODIFIED
3984 034022 302 12 0 00 000036 CAIE AC,36 ;WAS BYTE LOADED CORRECTLY?
3985 034023 003 12 0 00 013033 ER3 AC,13033 ;FAILURE - BYTE NOT LOADED CORRECTLY
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 54-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0114
3986 034024 321 14 0 00 034004 JUMPL AC+2,G13030 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 55
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0115
3987 ;MSCL BYTE TESTS - ILDB
3988 ;VERIFY THAT ILDB WORKS WHEN BOTH POINTER AND BYTE
3989 ;ARE IN AC'S.
3990
3991 000011 AC=11
3992 SAVEAC (1,1)^
3993 034025 201 13 0 00 034025 MOVEI AC+2,. ;SAVE TEST PC
3994 034026 202 13 0 00 030051 MOVEM AC+2,TESTPC
3995 034027 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3996 034030 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3997 034031 254 02 1 00 040721 JRSTF @[.+1] ;CLEAR ALL FLAGS
3998
3999 034032 205 07 0 00 170600 G13100: MOVSI AC-2,170600 ;SETUP POINTER
4000 034033 541 07 0 00 000005 HRRI AC-2,<AC-4>&17
4001 034034 200 06 0 00 000007 MOVE AC-3,<AC-2>&17
4002 034035 505 06 0 00 110600 HRLI AC-3,110600 ;POINTER FOR COMPARISON
4003 034036 200 05 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD
4004 034037 400 11 0 00 000000 SETZ AC, ;SETUP AC
4005 034040 200 10 0 00 000005 MOVE AC-1,<AC-4>&17 ;BYTE WORD FOR COMPARISON
4006 034041 134 11 0 00 000007 ILDB AC,<AC-2>&17 ;ILDB SHOULD PLACE 0,,3 INTO THE AC
4007 ;AND INCREMENT POINTER
4008 034042 312 07 0 00 000006 CAME AC-2,<AC-3>&17 ;WAS POINTER INCREMENTED CORRECTLY?
4009 034043 005 07 0 00 003101 ER5 AC-2,3101 ;FAILURE - POINTER NOT INCREMENTED CORRECTLY
4010 034044 302 11 0 00 000003 CAIE AC,3 ;WAS BYTE LOADED CORRECTLY?
4011 034045 003 11 0 00 013102 ER3 AC,13102 ;FAILURE - BYTE NOT LOADED CORRECTLY
4012 034046 312 05 0 00 000010 CAME AC-4,<AC-1>&17 ;WAS BYTE WORD MODIFIED?
4013 034047 012 05 0 00 013103 ER12 AC-4,13103 ;FAILURE - BYTE WORD WAS MODIFIED
4014 034050 321 13 0 00 034032 JUMPL AC+2,G13100 ;LOOP ON ERROR SWITCH
4015
4016 ;MSCL BYTE TESTS - ILDB
4017 ;VERIFY THAT ILDB WORKS WHEN POINTER IS IN AN AC AND
4018 ;BYTE IS IN CORE MEMORY
4019
4020 000010 AC=10
4021 SAVEAC (1,1)^
4022 034051 201 12 0 00 034051 MOVEI AC+2,. ;SAVE TEST PC
4023 034052 202 12 0 00 030051 MOVEM AC+2,TESTPC
4024 034053 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4025 034054 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4026 034055 254 02 1 00 040722 JRSTF @[.+1] ;CLEAR ALL FLAGS
4027
4028 034056 205 06 0 00 170600 G13110: MOVSI AC-2,170600 ;SETUP POINTER
4029 034057 541 06 0 00 040073 HRRI AC-2,BYTBLK
4030 034060 200 05 0 00 000006 MOVE AC-3,<AC-2>&17
4031 034061 505 05 0 00 110600 HRLI AC-3,110600 ;POINTER FOR COMPARISON
4032 034062 200 07 0 00 040704 MOVE AC-1,[230703,,603700] ;BYTEWORD FOR COMPARISON
4033 034063 202 10 0 00 040073 MOVEM AC,BYTBLK ;SETUP BYTE WORD
4034 034064 400 10 0 00 000000 SETZ AC, ;SETUP AC
4035 034065 134 10 0 00 000006 ILDB AC,<AC-2>&17 ;ILDB SHOULD PLACE 0,,3 INTO THE AC
4036 ;AND INCREMENT POINTER
4037 034066 312 06 0 00 000005 CAME AC-2,<AC-3>&17 ;WAS POINTER INCREMENTED CORRECTLY?
4038 034067 005 06 0 00 013111 ER5 AC-2,13111 ;FAILURE - POINTER NOT INCREMENTED CORRECTLY
4039 034070 302 10 0 00 000003 CAIE AC,3 ;WAS BYTE LOADED CORRECTLY?
4040 034071 003 10 0 00 013012 ER3 AC,13012 ;FAILURE - BYTE NOT LOADED CORRECTLY
4041 034072 200 03 0 00 040073 MOVE AC-5,BYTBLK
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 55-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0116
4042 034073 312 07 0 00 040073 CAME AC-1,BYTBLK ;WAS BYTE WORD MODIFIED?
4043 034074 012 03 0 00 013113 ER12 AC-5,13113 ;FAILURE - BYTE WORD WAS MODIFIED
4044 034075 321 12 0 00 034056 JUMPL AC+2,G13110 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 56
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0117
4045 ;MSCL BYTE TESTS - ILDB
4046 ;VERIFY THAT ILDB WORKS WHEN BYTE IS IN AN AC AND
4047 ;POINTER IS IN CORE MEMORY
4048
4049 000007 AC=7
4050 SAVEAC (1,1)^
4051 034076 201 11 0 00 034076 MOVEI AC+2,. ;SAVE TEST PC
4052 034077 202 11 0 00 030051 MOVEM AC+2,TESTPC
4053 034100 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4054 034101 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4055 034102 254 02 1 00 040723 JRSTF @[.+1] ;CLEAR ALL FLAGS
4056
4057 034103 205 05 0 00 170600 G13120: MOVSI AC-2,170600
4058 034104 541 05 0 00 000003 HRRI AC-2,<AC-4>&17
4059 034105 202 05 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER
4060 034106 505 05 0 00 110600 HRLI AC-2,110600 ;POINTER FOR COMPARISON
4061 034107 200 03 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD
4062 034110 200 06 0 00 040704 MOVE AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON
4063 034111 400 00 0 00 000007 SETZ AC ;SETUP AC
4064 034112 134 07 0 00 040073 ILDB AC,BYTBLK ;ILDB SHOULD PLACE 0,,3 INTO THE AC
4065 ;AND INCREMENT POINTER
4066 034113 200 04 0 00 040073 MOVE AC-3,BYTBLK
4067 034114 312 05 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER INCREMENTED CORRECTLY?
4068 034115 005 04 0 00 013121 ER5 AC-3,13121 ;FAILURE - POINTER NOT INCREMENTED CORRECTLY
4069 034116 302 07 0 00 000003 CAIE AC,3 ;WAS BYTE LOADED CORRECTLY?
4070 034117 003 07 0 00 013122 ER3 AC,13122 ;FAILURE - BYTE NOT LOADED CORRECTLY
4071 034120 312 03 0 00 000006 CAME AC-4,<AC-1>&17 ;WAS BYTE WORD MODIFIED?
4072 034121 012 03 0 00 013123 ER12 AC-4,13123 ;FAILURE - BYTE WORD WAS MODIFIED
4073 034122 321 11 0 00 034103 JUMPL AC+2,G13120 ;LOOP ON ERROR SWITCH
4074
4075 ;MSCL BYTE TESTS - ILDB
4076 ;VERIFY THAT ILDB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY
4077
4078 000006 AC=6
4079 SAVEAC (1,1)^
4080 034123 201 10 0 00 034123 MOVEI AC+2,. ;SAVE TEST PC
4081 034124 202 10 0 00 030051 MOVEM AC+2,TESTPC
4082 034125 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4083 034126 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4084 034127 254 02 1 00 040724 JRSTF @[.+1] ;CLEAR ALL FLAGS
4085
4086 034130 205 04 0 00 170600 G13130: MOVSI AC-2,170600
4087 034131 541 04 0 00 040076 HRRI AC-2,BYTBLK+3
4088
4089 034132 202 04 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER
4090 034133 505 04 0 00 110600 HRLI AC-2,110600 ;POINTER FOR COMPARISON
4091 034134 200 02 0 00 040704 MOVE AC-4,[230703,,603700]
4092 034135 202 02 0 00 040076 MOVEM AC-4,BYTBLK+3 ;SETUP BYTE WORD
4093 034136 200 05 0 00 040704 MOVE AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON
4094 034137 400 06 0 00 000000 SETZ AC, ;SETUP AC
4095 034140 134 06 0 00 040073 ILDB AC,BYTBLK ;ILDB SHOULD PLACE 0,,3 INTO THE AC
4096 ;AND INCREMENT THE POINTER
4097 034141 200 02 0 00 040073 MOVE AC-4,BYTBLK
4098 034142 312 04 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER INCREMENTED CORRECTLY?
4099 034143 005 02 0 00 013131 ER5 AC-4,13131 ;FAILURE - POINTER NOT INCREMENTED CORRECTLY
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 56-1
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0118
4100 034144 200 03 0 00 040076 MOVE AC-3,BYTBLK+3
4101 034145 312 05 0 00 040076 CAME AC-1,BYTBLK+3 ;WAS BYTE WORD MODIFIED?
4102 034146 012 03 0 00 013132 ER12 AC-3,13132 ;FAILURE - BYTE WORD WAS MODIFIED
4103 034147 302 06 0 00 000003 CAIE AC,3 ;WAS BYTE LOADED CORRECTLY?
4104 034150 003 06 0 00 013133 ER3 AC,13133 ;FAILURE - BYTE NOT LOADED CORRECTLY
4105 034151 321 10 0 00 034130 JUMPL AC+2,G13130 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 57
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0119
4106 ;TEST LDB WHEN SIZE OF BYTE IS ZERO BITS
4107 ;THE AC SHOULD BE CLEARED
4108
4109 000005 AC=5
4110 SAVEAC (1,1)^
4111 034152 201 07 0 00 034152 MOVEI AC+2,. ;SAVE TEST PC
4112 034153 202 07 0 00 030051 MOVEM AC+2,TESTPC
4113 034154 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4114 034155 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4115 034156 254 02 1 00 040725 JRSTF @[.+1] ;CLEAR ALL FLAGS
4116
4117 034157 201 03 0 00 000001 G13200: MOVEI AC-2,<AC-4>&17 ;SETUP POINTER
4118 034160 474 05 0 00 000000 SETO AC, ;SETUP AC
4119 034161 551 01 0 00 000010 HRRZI AC-4,10 ;SETUP BYTE WORD
4120 034162 135 05 0 00 000001 LDB AC,<AC-4>&17 ;LDB SHOULD CLEAR THE AC
4121 034163 302 05 0 00 000000 CAIE AC,0 ;WAS AC CLEARED?
4122 034164 003 05 0 00 013201 ER3 AC,13201 ;FAILURE - AC WAS NOT CLEARED
4123 034165 302 03 0 00 000001 CAIE AC-2,<AC-4>&17 ;WAS POINTER MODIFIED?
4124 034166 005 03 0 00 013202 ER5 AC-2,13202 ;FAILURE - POINTER WAS MODIFIED
4125 034167 302 01 0 00 000010 CAIE AC-4,10 ;WAS BYTE WORD MODIFIED
4126 034170 012 01 0 00 013203 ER12 AC-4,13203 ;FAILURE - BYTE WORD WAS MODIFIED
4127 034171 321 07 0 00 034157 JUMPL AC+2,G13200 ;LOOP ON ERROR SWITCH
4128
4129 ;TEST ILDB WHEN SIZE OF BYTE IS ZERO BITS
4130 ;THE AC SHOULD BE CLEARED
4131
4132 000014 AC=14
4133 SAVEAC (1,1)^
4134 034172 201 16 0 00 034172 MOVEI AC+2,. ;SAVE TEST PC
4135 034173 202 16 0 00 030051 MOVEM AC+2,TESTPC
4136 034174 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4137 034175 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4138 034176 254 02 1 00 040726 JRSTF @[.+1] ;CLEAR ALL FLAGS
4139
4140 034177 201 12 0 00 000010 G13210: MOVEI AC-2,<AC-4>&17 ;SETUP POINTER
4141 034200 474 14 0 00 000000 SETO AC, ;SETUP AC
4142 034201 551 10 0 00 000010 HRRZI AC-4,10 ;SETUP BYTE WORD
4143 034202 134 14 0 00 000010 ILDB AC,<AC-4>&17 ;ILDB SHOULD CLEAR THE AC
4144 034203 302 14 0 00 000000 CAIE AC,0 ;WAS AC CLEARED
4145 034204 003 14 0 00 013211 ER3 AC,13211 ;FAILURE - AC WAS NOT CLEARED
4146 034205 302 12 0 00 000010 CAIE AC-2,<AC-4>&17 ;WAS POINTER MODIFIED
4147 034206 005 12 0 00 013212 ER5 AC-2,13212 ;FAILURE - POINTER WAS MODIFIED
4148 034207 302 10 0 00 000010 CAIE AC-4,10 ;WAS BYTE WORD MODIFIED?
4149 034210 012 10 0 00 013213 ER12 AC-4,13213 ;FAILURE - BYTE WORD WAS MODIFIED
4150 034211 321 16 0 00 034177 JUMPL AC+2,G13210 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 58
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0120
4151 ;TEST DPB WHEN SIZE OF BYTE IS ZERO BITS
4152 ;THE AC SHOULD NOT BE AFFECTED
4153
4154 000013 AC=13
4155 SAVEAC (1,1)^
4156 034212 201 15 0 00 034212 MOVEI AC+2,. ;SAVE TEST PC
4157 034213 202 15 0 00 030051 MOVEM AC+2,TESTPC
4158 034214 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4159 034215 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4160 034216 254 02 1 00 040727 JRSTF @[.+1] ;CLEAR ALL FLAGS
4161
4162 034217 201 11 0 00 000007 G13220: MOVEI AC-2,<AC-4>&17 ;SETUP POINTER
4163 034220 474 13 0 00 000000 SETO AC, ;SETUP AC
4164 034221 551 07 0 00 000010 HRRZI AC-4,10 ;SETUP BYTE WORD
4165 034222 137 13 0 00 000007 DPB AC,<AC-4>&17 ;DPB SHOULD NOT MODIFY ANYTHING
4166 034223 312 13 0 00 040666 CAME AC,[-1] ;WAS AC MODIFIED?
4167 034224 003 13 0 00 013221 ER3 AC,13221 ;FAILURE - AC WAS MODIFIED
4168 034225 302 11 0 00 000007 CAIE AC-2,<AC-4>&17 ;WAS POINTER MODIFIED?
4169 034226 005 11 0 00 013222 ER5 AC-2,13222 ;FAILURE - POINTER WAS MODIFIED
4170 034227 302 07 0 00 000010 CAIE AC-4,10 ;WAS BYTE WORD MODIFIED?
4171 034230 012 07 0 00 013223 ER12 AC-4,13223 ;FAILURE - BYTE WORD WAS MODIFIED
4172 034231 321 15 0 00 034217 JUMPL AC+2,G13220 ;LOOP ON ERROR SWITCH
4173
4174 ;TEST IDPB WHEN SIZE OF BYTE IS ZERO BITS
4175 ;TITE AC SHOULD NOT BE AFFECTED
4176
4177 000012 AC=12
4178 SAVEAC (1,1)^
4179 034232 201 14 0 00 034232 MOVEI AC+2,. ;SAVE TEST PC
4180 034233 202 14 0 00 030051 MOVEM AC+2,TESTPC
4181 034234 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4182 034235 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4183 034236 254 02 1 00 040730 JRSTF @[.+1] ;CLEAR ALL FLAGS
4184
4185 034237 201 10 0 00 000006 G13230: MOVEI AC-2,<AC-4>&17 ;SETUP POINTER
4186 034240 474 12 0 00 000000 SETO AC, ;SETUP AC
4187 034241 551 06 0 00 000010 HRRZI AC-4,10 ;SETUP BYTE WORD
4188 034242 136 12 0 00 000006 IDPB AC,<AC-4>&17 ;IDPB SHOULD NOT MODIFY ANYTHING
4189 034243 312 12 0 00 040666 CAME AC,[-1] ;WAS AC MODIFIED?
4190 034244 003 12 0 00 013231 ER3 AC,13231 ;FAILURE - AC WAS MODIFIED
4191 034245 302 10 0 00 000006 CAIE AC-2,<AC-4>&17 ;WAS POINTER MODIFIED
4192 034246 005 10 0 00 013232 ER5 AC-2,13232 ;FAILURE - POINTER WAS MODIFIED
4193 034247 302 06 0 00 000010 CAIE AC-4,10 ;WAS BYTE WORD MODIFIED
4194 034250 012 06 0 00 013233 ER12 AC-4,13233 ;FAILURE - BYTE WORD WAS MODIFIED
4195 034251 321 14 0 00 034237 JUMPL AC+2,G13230 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 59
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0121
4196 ;TEST IBP WHEN SIZE OF BYTE IS ZERO BITS
4197 ;THE AC SHOULD NOT BE AFFECTED
4198
4199 000011 AC=11
4200 SAVEAC (1,1)^
4201 034252 201 13 0 00 034252 MOVEI AC+2,. ;SAVE TEST PC
4202 034253 202 13 0 00 030051 MOVEM AC+2,TESTPC
4203 034254 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4204 034255 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4205 034256 254 02 1 00 040731 JRSTF @[.+1] ;CLEAR ALL FLAGS
4206
4207 034257 201 07 0 00 000005 G13240: MOVEI AC-2,<AC-4>&17 ;SETUP POINTER
4208 034260 474 11 0 00 000000 SETO AC, ;SETUP AC
4209 034261 551 05 0 00 000010 HRRZI AC-4,10 ;SETUP BYTE WORD
4210 034262 336 00 0 00 030041 SKIPN KLFLG
4211 034263 133 11 0 00 000005 IBP AC,<AC-4>&17 ;IBP SHOULD NOT MODIFY ANYTHING
4212 034264 332 00 0 00 030041 SKIPE KLFLG
4213 034265 133 00 0 00 000005 IBP 0,<AC-4>&17 ;KL10, DON'T DO ADJBP !
4214 034266 312 11 0 00 040666 CAME AC,[-1] ;WAS AC MODIFIED?
4215 034267 003 11 0 00 013241 ER3 AC,13241 ;FAILURE - AC WAS MODIFIED
4216 034270 302 07 0 00 000005 CAIE AC-2,<AC-4>&17 ;WASPOINTER MODIFIED?
4217 034271 005 07 0 00 013242 ER5 AC-2,13242 ;FAILURE - POINTER WAS MODIFIED
4218 034272 302 05 0 00 000010 CAIE AC-4,10 ;WAS BYTE WORD MODIFIED
4219 034273 012 05 0 00 013243 ER12 AC-4,13243 ;FAILURE - BYTE WORD WAS MODIFIED
4220 034274 321 13 0 00 034257 JUMPL AC+2,G13240 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 60
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0122
4221 ;TEST LDB WHEN SIZE OF BYTE IS ONE BIT
4222
4223 000010 AC=10
4224 SAVEAC (1,1)^
4225 034275 201 12 0 00 034275 MOVEI AC+2,. ;SAVE TEST PC
4226 034276 202 12 0 00 030051 MOVEM AC+2,TESTPC
4227 034277 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4228 034300 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4229 034301 254 02 1 00 040732 JRSTF @[.+1] ;CLEAR ALL FLAGS
4230
4231 034302 205 06 0 00 430100 G13300: MOVSI AC-2,430100
4232 034303 541 06 0 00 000004 HRRI AC-2,<AC-4>&17 ;SETUP POINTER
4233 034304 200 07 0 00 000006 MOVE AC-1,<AC-2>&17 ;POINTER FOR COMPARISON
4234 034305 561 10 0 00 000000 HRROI AC,0 ;SETUP AC
4235 034306 515 04 0 00 777777 HRLZI AC-4,-1 ;SETUP BYTE WORD
4236 034307 200 05 0 00 000004 MOVE AC-3,<AC-4>&17 ;BYTE OWRD FOR COMPARISON
4237 034310 135 10 0 00 000006 LDB AC,<AC-2>&17 ;LDB SHOULD PLACE 0,,1 INTO THE AC
4238 034311 302 10 0 00 000001 CAIE AC,1 ;LOOP ON ERROR SWITCH
4239 034312 003 10 0 00 013301 ER3 AC,13301 ;FAILURE - BYTE NOT LOADED CORRECTLY
4240 034313 312 06 0 00 000007 CAME AC-2,<AC-1>&17 ;WAS POINTER MODIFIED?
4241 034314 005 06 0 00 013302 ER5 AC-2,13302 ;FAILURE POINTER WAS MODIFIED
4242 034315 312 04 0 00 000005 CAME AC-4,<AC-3>&17 ;WAS BYTE WORD MODIFIED?
4243 034316 012 04 0 00 013303 ER12 AC-4,13303 ;FAILURE - BYTE OWRD WAS MODIFIED
4244 034317 321 12 0 00 034302 JUMPL AC+2,G13300 ;LOOP ON ERROR SWITCH
4245
4246 ;TEST LDB WHEN SIZE OF BYTE IS ONE BIT
4247
4248 000007 AC=7
4249 SAVEAC (1,1)^
4250 034320 201 11 0 00 034320 MOVEI AC+2,. ;SAVE TEST PC
4251 034321 202 11 0 00 030051 MOVEM AC+2,TESTPC
4252 034322 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4253 034323 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4254 034324 254 02 1 00 040733 JRSTF @[.+1] ;CLEAR ALL FLAGS
4255
4256 034325 205 05 0 00 000100 G13310: MOVSI AC-2,100
4257 034326 541 05 0 00 000003 HRRI AC-2,<AC-4>&17 ;SETUP POINTER
4258 034327 200 06 0 00 000005 MOVE AC-1,<AC-2>&17 ;POINTER FOR COMPARISON
4259 034330 561 07 0 00 000000 HRROI AC,0 ;SETUP AC
4260 034331 525 03 0 00 000000 HRLOI AC-4,0 ;SETUP BYTE WORD
4261 034332 200 04 0 00 000003 MOVE AC-3,<AC-4>&17 ;BYTE WORD FOR COMPARISON
4262 034333 135 07 0 00 000005 LDB AC,<AC-2>&17 ;LDB SHOULD PLACE 0,,1 INTO THE AC
4263 034334 302 07 0 00 000001 CAIE AC,1 ;LOOP ON ERROR SWITCH
4264 034335 003 07 0 00 013311 ER3 AC,13311 ;FAILURE - BYTE NOT LOADED CORRECTLY
4265 034336 312 05 0 00 000006 CAME AC-2,<AC-1>&17 ;WAS POINTER MODIFIED
4266 034337 005 05 0 00 013312 ER5 AC-2,13312 ;FAILURE - POINTER WAS MODIFIED
4267 034340 312 03 0 00 000004 CAME AC-4,<AC-3>&17 ;WAS BYTE WORD MODIFIED
4268 034341 012 03 0 00 013313 ER12 AC-4,13313 ;FAILURE - BYTE WORD WAS MODIFIED
4269 034342 321 11 0 00 034325 JUMPL AC+2,G13310 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 61
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0123
4270 ;TEST DPB WHEN SIZE OF BYTE IS ONE BIT
4271
4272 000006 AC=6
4273 SAVEAC (1,1)^
4274 034343 201 10 0 00 034343 MOVEI AC+2,. ;SAVE TEST PC
4275 034344 202 10 0 00 030051 MOVEM AC+2,TESTPC
4276 034345 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4277 034346 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4278 034347 254 02 1 00 040734 JRSTF @[.+1] ;CLEAR ALL FLAGS
4279
4280 034350 205 04 0 00 430100 G13320: MOVSI AC-2,430100
4281 034351 541 04 0 00 000002 HRRI AC-2,<AC-4>&17 ;SETUP POINTER
4282 034352 200 05 0 00 000004 MOVE AC-1,<AC-2>&17 ;POINTER FOR COMPARISON
4283 034353 561 06 0 00 000076 HRROI AC,76 ;SETUP AC
4284 034354 202 06 0 00 000001 MOVEM AC,<AC-5>&17 ;AC FOR COMPARISON
4285 034355 474 02 0 00 000000 SETO AC-4, ;SETUP BYTE WORD
4286 034356 200 03 0 00 040735 MOVE AC-3,[377777,,-1] ;BYTE WORD FOR COMPARISON
4287 034357 137 06 0 00 000004 DPB AC,<AC-2>&17 ;DPB SHOULD PLACE 377777,,-1 INTO BYTE WORD
4288 034360 312 06 0 00 000001 CAME AC,<AC-5>&17 ;WAS AC MODIFIED?
4289 034361 003 06 0 00 013321 ER3 AC,13321 ;FAILURE - AC WAS MODIFIED
4290 034362 312 04 0 00 000005 CAME AC-2,<AC-1>&17 ;WAS POINTER MODIFIED
4291 034363 005 04 0 00 013322 ER5 AC-2,13322 ;FAILURE - POINTER WAS MODIFIED
4292 034364 312 02 0 00 000003 CAME AC-4,<AC-3>&17 ;WAS BYTE DEPOSITED CORRECTLY
4293 034365 012 02 0 00 013323 ER12 AC-4,13323 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY
4294 034366 321 10 0 00 034350 JUMPL AC+2,G13320 ;LOOP ON ERROR SWITCH
4295
4296 ;TEST DPB WHEN SIZE OF BYTE IS ONE BIT
4297
4298 000005 AC=5
4299 SAVEAC (1,1)^
4300 034367 201 07 0 00 034367 MOVEI AC+2,. ;SAVE TEST PC
4301 034370 202 07 0 00 030051 MOVEM AC+2,TESTPC
4302 034371 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4303 034372 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4304 034373 254 02 1 00 040736 JRSTF @[.+1] ;CLEAR ALL FLAGS
4305
4306 034374 205 03 0 00 000100 G13330: MOVSI AC-2,100
4307 034375 541 03 0 00 000001 HRRI AC-2,<AC-4>&17 ;SETUP POINTER
4308 034376 200 04 0 00 000003 MOVE AC-1,<AC-2>&17 ;POINTER FOR COMPARISON
4309 034377 561 05 0 00 000076 HRROI AC,76 ;SETUP AC
4310 034400 202 05 0 00 000000 MOVEM AC,<AC-5>&17 ;AC FOR COMPARISON
4311 034401 474 01 0 00 000000 SETO AC-4, ;SETUP BYTE WORD
4312 034402 200 02 0 00 040737 MOVE AC-3,[-2] ;BYTE WORD FOR COMPARISON
4313 034403 137 05 0 00 000003 DPB AC,<AC-2>&17 ;DPB SHOULD PLACE -1,,-2 INTO BYTE WORD
4314 034404 312 05 0 00 000000 CAME AC,<AC-5>&17 ;WAS AC MODIFIED
4315 034405 003 05 0 00 013331 ER3 AC,13331 ;FAILURE - AC WAS MODIFIED
4316 034406 312 03 0 00 000004 CAME AC-2,<AC-1>&17 ;WAS POINTER MODIFIED
4317 034407 005 03 0 00 013332 ER5 AC-2,13332 ;FAILURE - POINTER WAS MODIFIED
4318 034410 312 01 0 00 000002 CAME AC-4,<AC-3>&17 ;WAS BYTE DEPOSITED CORRECTLY
4319 034411 012 01 0 00 013333 ER12 AC-4,13333 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY
4320 034412 321 07 0 00 034374 JUMPL AC+2,G13330 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 62
DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0124
4321 ;TEST IBP WHEN S IS GREATER THAN P AND THE ADDRESS FIELD OF THE POINTER IS 777777
4322 ;IBP SHOULD CAUSE THE ADDRESS FIELD TO CLEAR AND P SHOULD BECOME 44-S
4323
4324 000004 AC=4
4325 SAVEAC (1,1)^
4326 034413 201 06 0 00 034413 MOVEI AC+2,. ;SAVE TEST PC
4327 034414 202 06 0 00 030051 MOVEM AC+2,TESTPC
4328 034415 201 06 0 00 000006 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4329 034416 202 06 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4330 034417 254 02 1 00 040740 JRSTF @[.+1] ;CLEAR ALL FLAGS
4331
4332 034420 525 02 0 00 000100 G13400: HRLOI AC-2,000100 ;SETUP POINTER
4333 034421 515 01 0 00 430100 HRLZI AC-3,430100 ;RESULT FOR COMPARISON
4334 034422 133 00 0 00 000002 IBP <AC-2>&17 ;IBP SHOULD PLACE 430100,,0 INTO PTR
4335 034423 312 02 0 00 000001 CAME AC-2,<AC-3>&17 ;PASS IF POINTER UPATED CORRECTLY
4336 034424 005 02 0 00 013400 ER5 AC-2,13400 ;POINTER NOT UPDATED CORRECTLY
4337 034425 321 06 0 00 034420 JUMPL AC+2,G13400 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 63
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0125
4338 SUBTTL PART II - GENERAL BLOCK TRANSFER TEST
4339
4340 034426 201 00 0 00 040741 MOVEI [ASCIZ/BLT FAILED/]
4341 034427 202 00 0 00 040577 MOVEM SPDES ;INITIALIZE SPECIAL FAILURE DESCRIPTOR
4342
4343 ;VERFIY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ZEROS
4344 ;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
4345 ;AND WITHIN THE AC ADDRESS RANGE.
4346 000007 AC=7
4347 SAVEAC (1,1)^
4348 034430 201 11 0 00 034430 MOVEI AC+2,. ;SAVE TEST PC
4349 034431 202 11 0 00 030051 MOVEM AC+2,TESTPC
4350 034432 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4351 034433 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4352 022100 SN=22100
4353 000001 SRCE=<AC-6>&17 ;SOURCE BLOCK=AC-6
4354 000001 DEST=<AC-6>&17 ;DESTINATION BLOCK=AC-6
4355 000001 SIZ=1 ;BLOCK SIZE = 1 OWRD
4356
4357 034434 200 07 0 00 040744 G22100: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH ADR OF SRCE AND DEST
4358 034435 477 00 0 00 000002 SETOB SRCE-1,SRCE+1 ;PRELOAD SRCE-1 AND SRCE+1 WITH ONES
4359 034436 402 00 0 00 000001 SETZM SRCE ;LOAD SRCE WITH ZEROS
4360 034437 251 07 0 00 000001 BLT AC,DEST+SIZ-1 ;*BLT SHOULD CLEAR DEST BLOCK
4361 022101 SN=SN+1
4362 034440 312 00 0 00 040666 CAME DEST-1,[-1] ;WAS DEST-1 CLOBBERRED?
4363 034441 002 00 0 00 022101 ER2 DEST-1,SN ;DEST -1 WAS CLOBBERRED
4364 022102 SN=SN+1
4365 034442 332 00 0 00 000001 SKIPE DEST ;DID BLT LOAD DEST FROM SRCE?
4366 034443 002 01 0 00 022102 ER2 DEST,SN ;FAIL IF C(DEST) NON-ZERO
4367 022103 SN=SN+1
4368 034444 312 02 0 00 040666 CAME DEST+1,[-1] ;WAS DEST+1 CLOBBERRED?
4369 034445 002 02 0 00 022103 ER2 DEST+1,SN ;DEST +1 WAS CLOBBERRED
4370 034446 321 11 0 00 034434 JUMPL AC+2,G22100 ;LOOP ON ERROR SWITCH
4371 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 63-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0126
4372 ;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ONES
4373 ;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
4374 ;AND WITHIN THE AC ADDRESS RANGE.
4375 000014 AC=14
4376 SAVEAC (1,1)^
4377 034447 201 16 0 00 034447 MOVEI AC+2,. ;SAVE TEST PC
4378 034450 202 16 0 00 030051 MOVEM AC+2,TESTPC
4379 034451 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4380 034452 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4381 022200 SN=22200
4382 000006 SRCE=<AC-6>&17 ;SOURCE BLOCK = AC-6
4383 000006 DEST=<AC-6>&17 ;DESTINATION BLOCK = AC-6
4384 000001 SIZ=1 ;BLOCK = 1 WORD
4385
4386 034453 200 14 0 00 040745 G22200: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH ADR OF SRCE AND DEST
4387 034454 403 05 0 00 000007 SETZB SRCE-1,SRCE+1 ;PRELOAD SRCE-1 AND SRCE+1 WITH ZEROS
4388 034455 476 00 0 00 000006 SETOM SRCE ;LOAD SRCE WITH ONES
4389 034456 251 14 0 00 000006 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DEST WITH ONES
4390 022201 SN=SN+1
4391 034457 332 00 0 00 000005 SKIPE DEST-1 ;WAS DEST-1 CLOBBERRED?
4392 034460 002 05 0 00 022201 ER2 DEST-1,SN ;DEST-1 WAS CLOBBERRED
4393 022202 SN=SN+1
4394 034461 312 06 0 00 040666 CAME DEST,[-1] ;DID BLT LOAD DEST FROM SRCE?
4395 034462 002 06 0 00 022202 ER2 DEST,SN ;FAIL IF C(DEST) NOT ALL ONES
4396 022203 SN=SN+1
4397 034463 332 00 0 00 000007 SKIPE DEST+1 ;WAS DEST+1 CLOBBERRED?
4398 034464 002 07 0 00 022203 ER2 DEST+1,SN ;DEST+1 WAS CLOBBERRED
4399 034465 321 16 0 00 034453 JUMPL AC+2,G22200 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 64
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0127
4400 ;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF DATA
4401 ;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
4402 ;AND WITHIN THE AC ADDRESS RANGE.
4403
4404 000014 AC=14
4405 SAVEAC (1,1)^
4406 034466 201 16 0 00 034466 MOVEI AC+2,. ;SAVE TEST PC
4407 034467 202 16 0 00 030051 MOVEM AC+2,TESTPC
4408 034470 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4409 034471 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4410 022300 SN=22300
4411 000006 SRCE=<AC-6>&17 ;SOURCE BLOCK = AC-6
4412 000006 DEST=<AC-6>&17 ;DESTINATION BLOCK = AC-6
4413 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
4414
4415 034472 200 14 0 00 040745 G22300: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH ADR OF ARCE AND DEST
4416 034473 403 05 0 00 000007 SETZB SRCE-1,SRCE+1 ;CLEAR SRCE-1 AND SRCE+1
4417 034474 200 06 0 00 040704 MOVE SRCE,[230703,,603700] ;PRELOAD SOURCE BLOCK
4418 034475 251 14 0 00 000006 BLT AC,DEST+SIZ-1 ;*BLT SHOULD PLACE C(SRCE) INTO DEST
4419 022301 SN=SN+1
4420 034476 332 00 0 00 000005 SKIPE DEST-1 ;WAS DEST-1 CLOBBERRED?
4421 034477 002 05 0 00 022301 ER2 DEST-1,SN ;DEST-1 WAS CLOBBERRED
4422 022302 SN=SN+1
4423 034500 312 06 0 00 040704 CAME DEST,[230703,,603700] ;DID BLT LOAD DEST FROM SRCE
4424 034501 002 06 0 00 022302 ER2 DEST,SN ;FAIL IF C(DEST) NOT 230703,,603700
4425 022303 SN=SN+1
4426 034502 332 00 0 00 000007 SKIPE DEST+1 ;WAS DEST+1 CLOBBERRED?
4427 034503 002 07 0 00 022303 ER2 DEST+1,SN ;DEST+1 WAS CLOBBERRED
4428 034504 321 16 0 00 034472 JUMPL AC+2,G22300 ;LOOP ON ERROR SWITCH
4429 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 64-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0128
4430 ;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ZEROS
4431 ;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
4432 ;AND BEYOND THE AC ADDRESS RANGE.
4433 000014 AC=14
4434 SAVEAC (1,1)^
4435 034505 201 16 0 00 034505 MOVEI AC+2,. ;SAVE TEST PC
4436 034506 202 16 0 00 030051 MOVEM AC+2,TESTPC
4437 034507 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4438 034510 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4439 022400 SN=22400
4440 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK = BLTBLK+1
4441 040156 DEST=BLTBLK+1 ;DEST BLOCK = BLTBLK+1
4442 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
4443
4444 034511 200 14 0 00 040746 G22400: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH ADR OF SRCE AND DEST
4445 034512 476 00 0 00 040155 SETOM SRCE-1 ;PRELOAD SRCE-1 WITH ONES
4446 034513 402 00 0 00 040156 SETZM SRCE ;LOAD SRCE WITH ZEROS
4447 034514 476 00 0 00 040157 SETOM SRCE+1 ;PRELOAD SRCE+1 WITH ONES
4448 034515 251 14 0 00 040156 BLT AC,DEST+SIZ-1 ;*BLT SHOULD CLEAR DEST BLOCK
4449 022401 SN=SN+1
4450 034516 200 13 0 00 040155 MOVE AC-1,DEST-1
4451 034517 312 13 0 00 040666 CAME AC-1,[-1] ;WAS DEST-1 CLOBBERRED?
4452 034520 002 13 0 00 022401 ER2 AC-1,SN ;DEST-1 WAS CLOBBERRED
4453 022402 SN=SN+1
4454 034521 200 13 0 00 040156 MOVE AC-1,DEST
4455 034522 332 00 0 00 000013 SKIPE AC-1 ;DID BLT LOAD DEST FROM SRCE?
4456 034523 002 13 0 00 022402 ER2 AC-1,SN ;FAIL IF C(DEST) NOT ZERO
4457 022403 SN=SN+1
4458 034524 200 13 0 00 040157 MOVE AC-1,DEST+1
4459 034525 312 13 0 00 040666 CAME AC-1,[-1] ;WAS DEST+1 CLOBBERRED?
4460 034526 002 13 0 00 022403 ER2 AC-1,SN ;DEST+1 WAS CLOBBERRED
4461 034527 321 15 0 00 034511 JUMPL AC+1,G22400 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 65
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0129
4462 ;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ONES
4463 ;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
4464 ;AND BEYOND THE AC ADDRESS RANGE.
4465
4466 000013 AC=13
4467 SAVEAC (1,1)^
4468 034530 201 15 0 00 034530 MOVEI AC+2,. ;SAVE TEST PC
4469 034531 202 15 0 00 030051 MOVEM AC+2,TESTPC
4470 034532 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4471 034533 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4472 022500 SN=22500
4473 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK = BLTBLK+1
4474 040156 DEST=BLTBLK+1 ;DEST BLOCK = BLTBLK+1
4475 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
4476
4477 034534 200 13 0 00 040746 G22500: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH ADR OF SRCE AND DEST
4478 034535 402 00 0 00 040155 SETZM SRCE-1 ;PRELOAD SRCE-1 WITH ZEROS
4479 034536 476 00 0 00 040156 SETOM SRCE ;LOAD SRCE WITH ONES
4480 034537 402 00 0 00 040157 SETZM SRCE+1 ;PRELOAD SRCE+1 WITH ZEROS
4481 034540 251 13 0 00 040156 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DEST BLOCK WITH ONES
4482 022501 SN=SN+1
4483 034541 200 12 0 00 040155 MOVE AC-1,DEST-1
4484 034542 332 00 0 00 000012 SKIPE AC-1 ;WAS DEST-1 CLOBBERRED?
4485 034543 002 12 0 00 022501 ER2 AC-1,SN ;DEST-1 WAS CLOBBERRED
4486 022502 SN=SN+1
4487 034544 200 12 0 00 040156 MOVE AC-1,DEST
4488 034545 312 12 0 00 040666 CAME AC-1,[-1] ;DID BLT LOAD DEST FROM SRCE?
4489 034546 002 12 0 00 022502 ER2 AC-1,SN ;FAIL IF C(DEST) NOT ALL ONES
4490 022503 SN=SN+1
4491 034547 200 12 0 00 040157 MOVE AC-1,DEST+1
4492 034550 332 00 0 00 000012 SKIPE AC-1 ;WAS DEST+1 CLOBBERRED?
4493 034551 002 12 0 00 022503 ER2 AC-1,SN ;DEST+1 WAS CLOBBERRED
4494 034552 321 15 0 00 034534 JUMPL AC+2,G22500 ;LOOP ON ERROR SWITCH
4495 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 65-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0130
4496 ;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF DATA
4497 ;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME
4498 ;AND BEYOND THE AC ADDRESS RANGE.
4499
4500 000012 AC=12
4501 SAVEAC (1,1)^
4502 034553 201 14 0 00 034553 MOVEI AC+2,. ;SAVE TEST PC
4503 034554 202 14 0 00 030051 MOVEM AC+2,TESTPC
4504 034555 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4505 034556 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4506 022600 SN=22600
4507 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK = BLTBLK+1
4508 040156 DEST=BLTBLK+1 ;DEST BLOCK = BLTBLK+1
4509 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
4510
4511 034557 200 12 0 00 040746 G22600: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH ADR OF SRCE AND DEST
4512 034560 402 00 0 00 040155 SETZM SRCE-1 ;PRELOAD SRCE-1 WITH ZEROS
4513 034561 200 13 0 00 040704 MOVE AC+1,[230703,,603700] ;LOAD SRCE BLOCK
4514 034562 202 13 0 00 040156 MOVEM AC+1,SRCE
4515 034563 402 00 0 00 040157 SETZM SRCE+1 ;PRELOAD SRCE+1 WITH ZEROS
4516 034564 251 12 0 00 040156 BLT AC,DEST+SIZ-1 ;*BLT SHOULD PLACE C(SRCE) INTO DEST
4517 022601 SN=SN+1
4518 034565 200 11 0 00 040155 MOVE AC-1,DEST-1
4519 034566 332 00 0 00 000011 SKIPE AC-1 ;WAS DEST-1 CLOBBERRED?
4520 034567 002 11 0 00 022601 ER2 AC-1,SN ;DEST-1 WAS CLOBBERRED
4521 022602 SN=SN+1
4522 034570 200 11 0 00 040156 MOVE AC-1,DEST
4523 034571 312 11 0 00 040704 CAME AC-1,[230703,,603700] ;DID BLT LOAD DEST FROM SRCE?
4524 034572 002 11 0 00 022602 ER2 AC-1,SN ;FAIL IF C(DEST) NOT 230703,,603700
4525 022603 SN=SN+1
4526 034573 200 11 0 00 040157 MOVE AC-1,DEST+1
4527 034574 332 00 0 00 000011 SKIPE AC-1 ;WAS DEST+1 CLOBBERRED?
4528 034575 002 11 0 00 022603 ER2 AC-1,SN ;DEST+1 WAS CLOBBERRED
4529 034576 321 13 0 00 034557 JUMPL AC+1,G22600 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0131
4530 ;BOTH SOURCE AND DESTINATION BLOCKS HAVE AC ADDRESSES.
4531
4532 BLTM1 (22700,14,<<AC-6>&17>,<<AC-3>&17>,0)^
4533 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
4534 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT
4535 ;SOURCE DATA = 0
4536
4537 000014 AC=14
4538 SAVEAC (1,1)^
4539 034577 201 16 0 00 034577 MOVEI AC+2,. ;SAVE TEST PC
4540 034600 202 16 0 00 030051 MOVEM AC+2,TESTPC
4541 034601 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4542 034602 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4543 022700 SN=22700
4544 000006 SRCE=<AC-6>&17 ;1ST LOC OF SOURCE = <AC-6>&17
4545 000011 DEST=<AC-3>&17 ;1ST LOC OF DESTINATION = <AC-3>&17
4546 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
4547
4548 034603 200 14 0 00 040747 G22700: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC
4549 GMOV (SRCE-1,<252525252525>)^
4550 IFLE <SRCE-1-20>,<
4551 034604 200 05 0 00 040750 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525>
4552 IFG <SRCE-1-20>,<
4553 MOVE AC+1,[252525252525]
4554 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^
4555 GMOV (SRCE,<0>)^
4556 IFLE <SRCE-20>,<
4557 034605 200 06 0 00 040743 MOVE SRCE,[0] ;PRELOAD SRCE WITH 0>
4558 IFG <SRCE-20>,<
4559 MOVE AC+1,[0]
4560 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 0>^
4561 GMOV (SRCE+1,<770077007700>)^
4562 IFLE <SRCE+1-20>,<
4563 034606 200 07 0 00 040751 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700>
4564 IFG <SRCE+1-20>,<
4565 MOVE AC+1,[770077007700]
4566 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^
4567 GMOV (DEST-1,<070707070707>)^
4568 IFLE <DEST-1-20>,<
4569 034607 200 10 0 00 040752 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707>
4570 IFG <DEST-1-20>,<
4571 MOVE AC+1,[070707070707]
4572 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^
4573 GMOV (DEST,<123456765432>)^
4574 IFLE <DEST-20>,<
4575 034610 200 11 0 00 040753 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432>
4576 IFG <DEST-20>,<
4577 MOVE AC+1,[123456765432]
4578 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^
4579 GMOV (DEST+1,<552255225522>)^
4580 IFLE <DEST+1-20>,<
4581 034611 200 12 0 00 040754 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522>
4582 IFG <DEST+1-20>,<
4583 MOVE AC+1,[552255225522]
4584 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0132
4585 034612 251 14 0 00 000011 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER
4586 GCAM (SRCE-1,<252525252525>)^
4587 022701 SN=SN+1
4588 IFG <SRCE-1-20>,<
4589 MOVE AC-1,SRCE-1
4590 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525
4591 IFIDN <DEST>,<SRCE-1>,<
4592 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4593 IFDIF <DEST>,<SRCE-1>,<
4594 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>>
4595 IFLE <SRCE-1-20>,<
4596 034613 312 05 0 00 040750 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525
4597 IFIDN <DEST>,<SRCE-1>,<
4598 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY>
4599 IFDIF <DEST>,<SRCE-1>,<
4600 034614 002 05 0 00 022701 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^
4601 GCAM (SRCE,<0>)^
4602 022702 SN=SN+1
4603 IFG <SRCE-20>,<
4604 MOVE AC-1,SRCE
4605 CAME AC-1,[0] ;IS C(SRCE) = 0
4606 IFIDN <DEST>,<SRCE>,<
4607 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4608 IFDIF <DEST>,<SRCE>,<
4609 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>>
4610 IFLE <SRCE-20>,<
4611 034615 312 06 0 00 040743 CAME SRCE,[0] ;IS C(SRCE) = 0
4612 IFIDN <DEST>,<SRCE>,<
4613 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY>
4614 IFDIF <DEST>,<SRCE>,<
4615 034616 002 06 0 00 022702 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^
4616 GCAM (SRCE+1,<770077007700>)^
4617 022703 SN=SN+1
4618 IFG <SRCE+1-20>,<
4619 MOVE AC-1,SRCE+1
4620 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700
4621 IFIDN <DEST>,<SRCE+1>,<
4622 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4623 IFDIF <DEST>,<SRCE+1>,<
4624 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>>
4625 IFLE <SRCE+1-20>,<
4626 034617 312 07 0 00 040751 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700
4627 IFIDN <DEST>,<SRCE+1>,<
4628 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY>
4629 IFDIF <DEST>,<SRCE+1>,<
4630 034620 002 07 0 00 022703 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^
4631 GCAM (DEST-1,<070707070707>)^
4632 022704 SN=SN+1
4633 IFG <DEST-1-20>,<
4634 MOVE AC-1,DEST-1
4635 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707
4636 IFIDN <DEST>,<DEST-1>,<
4637 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4638 IFDIF <DEST>,<DEST-1>,<
4639 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-2
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0133
4640 IFLE <DEST-1-20>,<
4641 034621 312 10 0 00 040752 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707
4642 IFIDN <DEST>,<DEST-1>,<
4643 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY>
4644 IFDIF <DEST>,<DEST-1>,<
4645 034622 002 10 0 00 022704 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^
4646 GCAM (DEST,<0>)^
4647 022705 SN=SN+1
4648 IFG <DEST-20>,<
4649 MOVE AC-1,DEST
4650 CAME AC-1,[0] ;IS C(DEST) = 0
4651 IFIDN <DEST>,<DEST>,<
4652 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4653 IFDIF <DEST>,<DEST>,<
4654 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>>
4655 IFLE <DEST-20>,<
4656 034623 312 11 0 00 040743 CAME DEST,[0] ;IS C(DEST) = 0
4657 IFIDN <DEST>,<DEST>,<
4658 034624 002 11 0 00 022705 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY>
4659 IFDIF <DEST>,<DEST>,<
4660 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^
4661 GCAM (DEST+1,<552255225522>)^
4662 022706 SN=SN+1
4663 IFG <DEST+1-20>,<
4664 MOVE AC-1,DEST+1
4665 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522
4666 IFIDN <DEST>,<DEST+1>,<
4667 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4668 IFDIF <DEST>,<DEST+1>,<
4669 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>>
4670 IFLE <DEST+1-20>,<
4671 034625 312 12 0 00 040754 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522
4672 IFIDN <DEST>,<DEST+1>,<
4673 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY>
4674 IFDIF <DEST>,<DEST+1>,<
4675 034626 002 12 0 00 022706 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^
4676 034627 321 16 0 00 034603 JUMPL AC+2,G22700 ;LOOP ON ERROR^
4677 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-3
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0134
4678 ;BOTH SOURCE AND DESTINATION BLOCKS HAVE AC ADDRESSES.
4679
4680 BLTM1 (23000,13,<<AC-6>&17>,<<AC-3>&17>,-1)^
4681 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
4682 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT
4683 ;SOURCE DATA = -1
4684
4685 000013 AC=13
4686 SAVEAC (1,1)^
4687 034630 201 15 0 00 034630 MOVEI AC+2,. ;SAVE TEST PC
4688 034631 202 15 0 00 030051 MOVEM AC+2,TESTPC
4689 034632 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4690 034633 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4691 023000 SN=23000
4692 000005 SRCE=<AC-6>&17 ;1ST LOC OF SOURCE = <AC-6>&17
4693 000010 DEST=<AC-3>&17 ;1ST LOC OF DESTINATION = <AC-3>&17
4694 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
4695
4696 034634 200 13 0 00 040755 G23000: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC
4697 GMOV (SRCE-1,<252525252525>)^
4698 IFLE <SRCE-1-20>,<
4699 034635 200 04 0 00 040750 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525>
4700 IFG <SRCE-1-20>,<
4701 MOVE AC+1,[252525252525]
4702 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^
4703 GMOV (SRCE,<-1>)^
4704 IFLE <SRCE-20>,<
4705 034636 200 05 0 00 040666 MOVE SRCE,[-1] ;PRELOAD SRCE WITH -1>
4706 IFG <SRCE-20>,<
4707 MOVE AC+1,[-1]
4708 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH -1>^
4709 GMOV (SRCE+1,<770077007700>)^
4710 IFLE <SRCE+1-20>,<
4711 034637 200 06 0 00 040751 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700>
4712 IFG <SRCE+1-20>,<
4713 MOVE AC+1,[770077007700]
4714 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^
4715 GMOV (DEST-1,<070707070707>)^
4716 IFLE <DEST-1-20>,<
4717 034640 200 07 0 00 040752 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707>
4718 IFG <DEST-1-20>,<
4719 MOVE AC+1,[070707070707]
4720 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^
4721 GMOV (DEST,<123456765432>)^
4722 IFLE <DEST-20>,<
4723 034641 200 10 0 00 040753 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432>
4724 IFG <DEST-20>,<
4725 MOVE AC+1,[123456765432]
4726 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^
4727 GMOV (DEST+1,<552255225522>)^
4728 IFLE <DEST+1-20>,<
4729 034642 200 11 0 00 040754 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522>
4730 IFG <DEST+1-20>,<
4731 MOVE AC+1,[552255225522]
4732 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-4
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0135
4733 034643 251 13 0 00 000010 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER
4734 GCAM (SRCE-1,<252525252525>)^
4735 023001 SN=SN+1
4736 IFG <SRCE-1-20>,<
4737 MOVE AC-1,SRCE-1
4738 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525
4739 IFIDN <DEST>,<SRCE-1>,<
4740 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4741 IFDIF <DEST>,<SRCE-1>,<
4742 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>>
4743 IFLE <SRCE-1-20>,<
4744 034644 312 04 0 00 040750 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525
4745 IFIDN <DEST>,<SRCE-1>,<
4746 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY>
4747 IFDIF <DEST>,<SRCE-1>,<
4748 034645 002 04 0 00 023001 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^
4749 GCAM (SRCE,<-1>)^
4750 023002 SN=SN+1
4751 IFG <SRCE-20>,<
4752 MOVE AC-1,SRCE
4753 CAME AC-1,[-1] ;IS C(SRCE) = -1
4754 IFIDN <DEST>,<SRCE>,<
4755 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4756 IFDIF <DEST>,<SRCE>,<
4757 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>>
4758 IFLE <SRCE-20>,<
4759 034646 312 05 0 00 040666 CAME SRCE,[-1] ;IS C(SRCE) = -1
4760 IFIDN <DEST>,<SRCE>,<
4761 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY>
4762 IFDIF <DEST>,<SRCE>,<
4763 034647 002 05 0 00 023002 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^
4764 GCAM (SRCE+1,<770077007700>)^
4765 023003 SN=SN+1
4766 IFG <SRCE+1-20>,<
4767 MOVE AC-1,SRCE+1
4768 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700
4769 IFIDN <DEST>,<SRCE+1>,<
4770 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4771 IFDIF <DEST>,<SRCE+1>,<
4772 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>>
4773 IFLE <SRCE+1-20>,<
4774 034650 312 06 0 00 040751 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700
4775 IFIDN <DEST>,<SRCE+1>,<
4776 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY>
4777 IFDIF <DEST>,<SRCE+1>,<
4778 034651 002 06 0 00 023003 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^
4779 GCAM (DEST-1,<070707070707>)^
4780 023004 SN=SN+1
4781 IFG <DEST-1-20>,<
4782 MOVE AC-1,DEST-1
4783 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707
4784 IFIDN <DEST>,<DEST-1>,<
4785 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4786 IFDIF <DEST>,<DEST-1>,<
4787 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-5
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0136
4788 IFLE <DEST-1-20>,<
4789 034652 312 07 0 00 040752 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707
4790 IFIDN <DEST>,<DEST-1>,<
4791 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY>
4792 IFDIF <DEST>,<DEST-1>,<
4793 034653 002 07 0 00 023004 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^
4794 GCAM (DEST,<-1>)^
4795 023005 SN=SN+1
4796 IFG <DEST-20>,<
4797 MOVE AC-1,DEST
4798 CAME AC-1,[-1] ;IS C(DEST) = -1
4799 IFIDN <DEST>,<DEST>,<
4800 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4801 IFDIF <DEST>,<DEST>,<
4802 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>>
4803 IFLE <DEST-20>,<
4804 034654 312 10 0 00 040666 CAME DEST,[-1] ;IS C(DEST) = -1
4805 IFIDN <DEST>,<DEST>,<
4806 034655 002 10 0 00 023005 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY>
4807 IFDIF <DEST>,<DEST>,<
4808 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^
4809 GCAM (DEST+1,<552255225522>)^
4810 023006 SN=SN+1
4811 IFG <DEST+1-20>,<
4812 MOVE AC-1,DEST+1
4813 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522
4814 IFIDN <DEST>,<DEST+1>,<
4815 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4816 IFDIF <DEST>,<DEST+1>,<
4817 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>>
4818 IFLE <DEST+1-20>,<
4819 034656 312 11 0 00 040754 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522
4820 IFIDN <DEST>,<DEST+1>,<
4821 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY>
4822 IFDIF <DEST>,<DEST+1>,<
4823 034657 002 11 0 00 023006 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^
4824 034660 321 15 0 00 034634 JUMPL AC+2,G23000 ;LOOP ON ERROR^
4825 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-6
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0137
4826 ;BOTH SOURCE AND DESTINATION BLOCKS HAVE AC ADDRESSES.
4827
4828 BLTM1 (23100,12,<<AC-6>&17>,<<AC-3>&17>,<230703,,603700>)^
4829 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
4830 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT
4831 ;SOURCE DATA = 230703,,603700
4832
4833 000012 AC=12
4834 SAVEAC (1,1)^
4835 034661 201 14 0 00 034661 MOVEI AC+2,. ;SAVE TEST PC
4836 034662 202 14 0 00 030051 MOVEM AC+2,TESTPC
4837 034663 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4838 034664 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4839 023100 SN=23100
4840 000004 SRCE=<AC-6>&17 ;1ST LOC OF SOURCE = <AC-6>&17
4841 000007 DEST=<AC-3>&17 ;1ST LOC OF DESTINATION = <AC-3>&17
4842 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
4843
4844 034665 200 12 0 00 040756 G23100: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC
4845 GMOV (SRCE-1,<252525252525>)^
4846 IFLE <SRCE-1-20>,<
4847 034666 200 03 0 00 040750 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525>
4848 IFG <SRCE-1-20>,<
4849 MOVE AC+1,[252525252525]
4850 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^
4851 GMOV (SRCE,<230703,,603700>)^
4852 IFLE <SRCE-20>,<
4853 034667 200 04 0 00 040704 MOVE SRCE,[230703,,603700] ;PRELOAD SRCE WITH 230703,,603700>
4854 IFG <SRCE-20>,<
4855 MOVE AC+1,[230703,,603700]
4856 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 230703,,603700>^
4857 GMOV (SRCE+1,<770077007700>)^
4858 IFLE <SRCE+1-20>,<
4859 034670 200 05 0 00 040751 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700>
4860 IFG <SRCE+1-20>,<
4861 MOVE AC+1,[770077007700]
4862 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^
4863 GMOV (DEST-1,<070707070707>)^
4864 IFLE <DEST-1-20>,<
4865 034671 200 06 0 00 040752 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707>
4866 IFG <DEST-1-20>,<
4867 MOVE AC+1,[070707070707]
4868 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^
4869 GMOV (DEST,<123456765432>)^
4870 IFLE <DEST-20>,<
4871 034672 200 07 0 00 040753 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432>
4872 IFG <DEST-20>,<
4873 MOVE AC+1,[123456765432]
4874 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^
4875 GMOV (DEST+1,<552255225522>)^
4876 IFLE <DEST+1-20>,<
4877 034673 200 10 0 00 040754 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522>
4878 IFG <DEST+1-20>,<
4879 MOVE AC+1,[552255225522]
4880 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-7
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0138
4881 034674 251 12 0 00 000007 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER
4882 GCAM (SRCE-1,<252525252525>)^
4883 023101 SN=SN+1
4884 IFG <SRCE-1-20>,<
4885 MOVE AC-1,SRCE-1
4886 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525
4887 IFIDN <DEST>,<SRCE-1>,<
4888 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4889 IFDIF <DEST>,<SRCE-1>,<
4890 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>>
4891 IFLE <SRCE-1-20>,<
4892 034675 312 03 0 00 040750 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525
4893 IFIDN <DEST>,<SRCE-1>,<
4894 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY>
4895 IFDIF <DEST>,<SRCE-1>,<
4896 034676 002 03 0 00 023101 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^
4897 GCAM (SRCE,<230703,,603700>)^
4898 023102 SN=SN+1
4899 IFG <SRCE-20>,<
4900 MOVE AC-1,SRCE
4901 CAME AC-1,[230703,,603700] ;IS C(SRCE) = 230703,,603700
4902 IFIDN <DEST>,<SRCE>,<
4903 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4904 IFDIF <DEST>,<SRCE>,<
4905 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>>
4906 IFLE <SRCE-20>,<
4907 034677 312 04 0 00 040704 CAME SRCE,[230703,,603700] ;IS C(SRCE) = 230703,,603700
4908 IFIDN <DEST>,<SRCE>,<
4909 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY>
4910 IFDIF <DEST>,<SRCE>,<
4911 034700 002 04 0 00 023102 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^
4912 GCAM (SRCE+1,<770077007700>)^
4913 023103 SN=SN+1
4914 IFG <SRCE+1-20>,<
4915 MOVE AC-1,SRCE+1
4916 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700
4917 IFIDN <DEST>,<SRCE+1>,<
4918 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4919 IFDIF <DEST>,<SRCE+1>,<
4920 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>>
4921 IFLE <SRCE+1-20>,<
4922 034701 312 05 0 00 040751 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700
4923 IFIDN <DEST>,<SRCE+1>,<
4924 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY>
4925 IFDIF <DEST>,<SRCE+1>,<
4926 034702 002 05 0 00 023103 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^
4927 GCAM (DEST-1,<070707070707>)^
4928 023104 SN=SN+1
4929 IFG <DEST-1-20>,<
4930 MOVE AC-1,DEST-1
4931 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707
4932 IFIDN <DEST>,<DEST-1>,<
4933 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4934 IFDIF <DEST>,<DEST-1>,<
4935 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-8
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0139
4936 IFLE <DEST-1-20>,<
4937 034703 312 06 0 00 040752 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707
4938 IFIDN <DEST>,<DEST-1>,<
4939 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY>
4940 IFDIF <DEST>,<DEST-1>,<
4941 034704 002 06 0 00 023104 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^
4942 GCAM (DEST,<230703,,603700>)^
4943 023105 SN=SN+1
4944 IFG <DEST-20>,<
4945 MOVE AC-1,DEST
4946 CAME AC-1,[230703,,603700] ;IS C(DEST) = 230703,,603700
4947 IFIDN <DEST>,<DEST>,<
4948 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4949 IFDIF <DEST>,<DEST>,<
4950 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>>
4951 IFLE <DEST-20>,<
4952 034705 312 07 0 00 040704 CAME DEST,[230703,,603700] ;IS C(DEST) = 230703,,603700
4953 IFIDN <DEST>,<DEST>,<
4954 034706 002 07 0 00 023105 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY>
4955 IFDIF <DEST>,<DEST>,<
4956 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^
4957 GCAM (DEST+1,<552255225522>)^
4958 023106 SN=SN+1
4959 IFG <DEST+1-20>,<
4960 MOVE AC-1,DEST+1
4961 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522
4962 IFIDN <DEST>,<DEST+1>,<
4963 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
4964 IFDIF <DEST>,<DEST+1>,<
4965 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>>
4966 IFLE <DEST+1-20>,<
4967 034707 312 10 0 00 040754 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522
4968 IFIDN <DEST>,<DEST+1>,<
4969 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY>
4970 IFDIF <DEST>,<DEST+1>,<
4971 034710 002 10 0 00 023106 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^
4972 034711 321 14 0 00 034665 JUMPL AC+2,G23100 ;LOOP ON ERROR^
4973 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-9
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0140
4974 ;SOURCE BLOCK HAS AC ADDRESS, DESTINATION BLOCK HAS NON-AC ADDRESS
4975
4976 BLTM1 (23200,14,<<AC-6>&17>,<BLTBLK+4>,0)^
4977 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
4978 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT
4979 ;SOURCE DATA = 0
4980
4981 000014 AC=14
4982 SAVEAC (1,1)^
4983 034712 201 16 0 00 034712 MOVEI AC+2,. ;SAVE TEST PC
4984 034713 202 16 0 00 030051 MOVEM AC+2,TESTPC
4985 034714 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4986 034715 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4987 023200 SN=23200
4988 000006 SRCE=<AC-6>&17 ;1ST LOC OF SOURCE = <AC-6>&17
4989 040161 DEST=BLTBLK+4 ;1ST LOC OF DESTINATION = BLTBLK+4
4990 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
4991
4992 034716 200 14 0 00 040757 G23200: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC
4993 GMOV (SRCE-1,<252525252525>)^
4994 IFLE <SRCE-1-20>,<
4995 034717 200 05 0 00 040750 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525>
4996 IFG <SRCE-1-20>,<
4997 MOVE AC+1,[252525252525]
4998 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^
4999 GMOV (SRCE,<0>)^
5000 IFLE <SRCE-20>,<
5001 034720 200 06 0 00 040743 MOVE SRCE,[0] ;PRELOAD SRCE WITH 0>
5002 IFG <SRCE-20>,<
5003 MOVE AC+1,[0]
5004 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 0>^
5005 GMOV (SRCE+1,<770077007700>)^
5006 IFLE <SRCE+1-20>,<
5007 034721 200 07 0 00 040751 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700>
5008 IFG <SRCE+1-20>,<
5009 MOVE AC+1,[770077007700]
5010 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^
5011 GMOV (DEST-1,<070707070707>)^
5012 IFLE <DEST-1-20>,<
5013 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707>
5014 IFG <DEST-1-20>,<
5015 034722 200 15 0 00 040752 MOVE AC+1,[070707070707]
5016 034723 202 15 0 00 040160 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^
5017 GMOV (DEST,<123456765432>)^
5018 IFLE <DEST-20>,<
5019 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432>
5020 IFG <DEST-20>,<
5021 034724 200 15 0 00 040753 MOVE AC+1,[123456765432]
5022 034725 202 15 0 00 040161 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^
5023 GMOV (DEST+1,<552255225522>)^
5024 IFLE <DEST+1-20>,<
5025 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522>
5026 IFG <DEST+1-20>,<
5027 034726 200 15 0 00 040754 MOVE AC+1,[552255225522]
5028 034727 202 15 0 00 040162 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-10
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0141
5029 034730 251 14 0 00 040161 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER
5030 GCAM (SRCE-1,<252525252525>)^
5031 023201 SN=SN+1
5032 IFG <SRCE-1-20>,<
5033 MOVE AC-1,SRCE-1
5034 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525
5035 IFIDN <DEST>,<SRCE-1>,<
5036 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5037 IFDIF <DEST>,<SRCE-1>,<
5038 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>>
5039 IFLE <SRCE-1-20>,<
5040 034731 312 05 0 00 040750 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525
5041 IFIDN <DEST>,<SRCE-1>,<
5042 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY>
5043 IFDIF <DEST>,<SRCE-1>,<
5044 034732 002 05 0 00 023201 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^
5045 GCAM (SRCE,<0>)^
5046 023202 SN=SN+1
5047 IFG <SRCE-20>,<
5048 MOVE AC-1,SRCE
5049 CAME AC-1,[0] ;IS C(SRCE) = 0
5050 IFIDN <DEST>,<SRCE>,<
5051 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5052 IFDIF <DEST>,<SRCE>,<
5053 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>>
5054 IFLE <SRCE-20>,<
5055 034733 312 06 0 00 040743 CAME SRCE,[0] ;IS C(SRCE) = 0
5056 IFIDN <DEST>,<SRCE>,<
5057 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY>
5058 IFDIF <DEST>,<SRCE>,<
5059 034734 002 06 0 00 023202 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^
5060 GCAM (SRCE+1,<770077007700>)^
5061 023203 SN=SN+1
5062 IFG <SRCE+1-20>,<
5063 MOVE AC-1,SRCE+1
5064 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700
5065 IFIDN <DEST>,<SRCE+1>,<
5066 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5067 IFDIF <DEST>,<SRCE+1>,<
5068 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>>
5069 IFLE <SRCE+1-20>,<
5070 034735 312 07 0 00 040751 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700
5071 IFIDN <DEST>,<SRCE+1>,<
5072 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY>
5073 IFDIF <DEST>,<SRCE+1>,<
5074 034736 002 07 0 00 023203 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^
5075 GCAM (DEST-1,<070707070707>)^
5076 023204 SN=SN+1
5077 IFG <DEST-1-20>,<
5078 034737 200 13 0 00 040160 MOVE AC-1,DEST-1
5079 034740 312 13 0 00 040752 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707
5080 IFIDN <DEST>,<DEST-1>,<
5081 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5082 IFDIF <DEST>,<DEST-1>,<
5083 034741 002 13 0 00 023204 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-11
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0142
5084 IFLE <DEST-1-20>,<
5085 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707
5086 IFIDN <DEST>,<DEST-1>,<
5087 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY>
5088 IFDIF <DEST>,<DEST-1>,<
5089 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^
5090 GCAM (DEST,<0>)^
5091 023205 SN=SN+1
5092 IFG <DEST-20>,<
5093 034742 200 13 0 00 040161 MOVE AC-1,DEST
5094 034743 312 13 0 00 040743 CAME AC-1,[0] ;IS C(DEST) = 0
5095 IFIDN <DEST>,<DEST>,<
5096 034744 002 13 0 00 023205 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5097 IFDIF <DEST>,<DEST>,<
5098 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>>
5099 IFLE <DEST-20>,<
5100 CAME DEST,[0] ;IS C(DEST) = 0
5101 IFIDN <DEST>,<DEST>,<
5102 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY>
5103 IFDIF <DEST>,<DEST>,<
5104 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^
5105 GCAM (DEST+1,<552255225522>)^
5106 023206 SN=SN+1
5107 IFG <DEST+1-20>,<
5108 034745 200 13 0 00 040162 MOVE AC-1,DEST+1
5109 034746 312 13 0 00 040754 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522
5110 IFIDN <DEST>,<DEST+1>,<
5111 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5112 IFDIF <DEST>,<DEST+1>,<
5113 034747 002 13 0 00 023206 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>>
5114 IFLE <DEST+1-20>,<
5115 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522
5116 IFIDN <DEST>,<DEST+1>,<
5117 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY>
5118 IFDIF <DEST>,<DEST+1>,<
5119 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^
5120 034750 321 16 0 00 034716 JUMPL AC+2,G23200 ;LOOP ON ERROR^
5121 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-12
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0143
5122 ;SOURCE BLOCK HAS AC ADDRESS, DESTINATION BLOCK HAS NON-AC ADDRESS
5123
5124 BLTM1 (23300,13,<<AC-6>&17>,<BLTBLK+4>,-1)^
5125 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
5126 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT
5127 ;SOURCE DATA = -1
5128
5129 000013 AC=13
5130 SAVEAC (1,1)^
5131 034751 201 15 0 00 034751 MOVEI AC+2,. ;SAVE TEST PC
5132 034752 202 15 0 00 030051 MOVEM AC+2,TESTPC
5133 034753 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5134 034754 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5135 023300 SN=23300
5136 000005 SRCE=<AC-6>&17 ;1ST LOC OF SOURCE = <AC-6>&17
5137 040161 DEST=BLTBLK+4 ;1ST LOC OF DESTINATION = BLTBLK+4
5138 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
5139
5140 034755 200 13 0 00 040760 G23300: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC
5141 GMOV (SRCE-1,<252525252525>)^
5142 IFLE <SRCE-1-20>,<
5143 034756 200 04 0 00 040750 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525>
5144 IFG <SRCE-1-20>,<
5145 MOVE AC+1,[252525252525]
5146 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^
5147 GMOV (SRCE,<-1>)^
5148 IFLE <SRCE-20>,<
5149 034757 200 05 0 00 040666 MOVE SRCE,[-1] ;PRELOAD SRCE WITH -1>
5150 IFG <SRCE-20>,<
5151 MOVE AC+1,[-1]
5152 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH -1>^
5153 GMOV (SRCE+1,<770077007700>)^
5154 IFLE <SRCE+1-20>,<
5155 034760 200 06 0 00 040751 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700>
5156 IFG <SRCE+1-20>,<
5157 MOVE AC+1,[770077007700]
5158 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^
5159 GMOV (DEST-1,<070707070707>)^
5160 IFLE <DEST-1-20>,<
5161 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707>
5162 IFG <DEST-1-20>,<
5163 034761 200 14 0 00 040752 MOVE AC+1,[070707070707]
5164 034762 202 14 0 00 040160 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^
5165 GMOV (DEST,<123456765432>)^
5166 IFLE <DEST-20>,<
5167 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432>
5168 IFG <DEST-20>,<
5169 034763 200 14 0 00 040753 MOVE AC+1,[123456765432]
5170 034764 202 14 0 00 040161 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^
5171 GMOV (DEST+1,<552255225522>)^
5172 IFLE <DEST+1-20>,<
5173 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522>
5174 IFG <DEST+1-20>,<
5175 034765 200 14 0 00 040754 MOVE AC+1,[552255225522]
5176 034766 202 14 0 00 040162 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-13
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0144
5177 034767 251 13 0 00 040161 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER
5178 GCAM (SRCE-1,<252525252525>)^
5179 023301 SN=SN+1
5180 IFG <SRCE-1-20>,<
5181 MOVE AC-1,SRCE-1
5182 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525
5183 IFIDN <DEST>,<SRCE-1>,<
5184 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5185 IFDIF <DEST>,<SRCE-1>,<
5186 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>>
5187 IFLE <SRCE-1-20>,<
5188 034770 312 04 0 00 040750 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525
5189 IFIDN <DEST>,<SRCE-1>,<
5190 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY>
5191 IFDIF <DEST>,<SRCE-1>,<
5192 034771 002 04 0 00 023301 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^
5193 GCAM (SRCE,<-1>)^
5194 023302 SN=SN+1
5195 IFG <SRCE-20>,<
5196 MOVE AC-1,SRCE
5197 CAME AC-1,[-1] ;IS C(SRCE) = -1
5198 IFIDN <DEST>,<SRCE>,<
5199 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5200 IFDIF <DEST>,<SRCE>,<
5201 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>>
5202 IFLE <SRCE-20>,<
5203 034772 312 05 0 00 040666 CAME SRCE,[-1] ;IS C(SRCE) = -1
5204 IFIDN <DEST>,<SRCE>,<
5205 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY>
5206 IFDIF <DEST>,<SRCE>,<
5207 034773 002 05 0 00 023302 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^
5208 GCAM (SRCE+1,<770077007700>)^
5209 023303 SN=SN+1
5210 IFG <SRCE+1-20>,<
5211 MOVE AC-1,SRCE+1
5212 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700
5213 IFIDN <DEST>,<SRCE+1>,<
5214 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5215 IFDIF <DEST>,<SRCE+1>,<
5216 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>>
5217 IFLE <SRCE+1-20>,<
5218 034774 312 06 0 00 040751 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700
5219 IFIDN <DEST>,<SRCE+1>,<
5220 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY>
5221 IFDIF <DEST>,<SRCE+1>,<
5222 034775 002 06 0 00 023303 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^
5223 GCAM (DEST-1,<070707070707>)^
5224 023304 SN=SN+1
5225 IFG <DEST-1-20>,<
5226 034776 200 12 0 00 040160 MOVE AC-1,DEST-1
5227 034777 312 12 0 00 040752 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707
5228 IFIDN <DEST>,<DEST-1>,<
5229 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5230 IFDIF <DEST>,<DEST-1>,<
5231 035000 002 12 0 00 023304 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-14
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0145
5232 IFLE <DEST-1-20>,<
5233 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707
5234 IFIDN <DEST>,<DEST-1>,<
5235 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY>
5236 IFDIF <DEST>,<DEST-1>,<
5237 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^
5238 GCAM (DEST,<-1>)^
5239 023305 SN=SN+1
5240 IFG <DEST-20>,<
5241 035001 200 12 0 00 040161 MOVE AC-1,DEST
5242 035002 312 12 0 00 040666 CAME AC-1,[-1] ;IS C(DEST) = -1
5243 IFIDN <DEST>,<DEST>,<
5244 035003 002 12 0 00 023305 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5245 IFDIF <DEST>,<DEST>,<
5246 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>>
5247 IFLE <DEST-20>,<
5248 CAME DEST,[-1] ;IS C(DEST) = -1
5249 IFIDN <DEST>,<DEST>,<
5250 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY>
5251 IFDIF <DEST>,<DEST>,<
5252 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^
5253 GCAM (DEST+1,<552255225522>)^
5254 023306 SN=SN+1
5255 IFG <DEST+1-20>,<
5256 035004 200 12 0 00 040162 MOVE AC-1,DEST+1
5257 035005 312 12 0 00 040754 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522
5258 IFIDN <DEST>,<DEST+1>,<
5259 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5260 IFDIF <DEST>,<DEST+1>,<
5261 035006 002 12 0 00 023306 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>>
5262 IFLE <DEST+1-20>,<
5263 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522
5264 IFIDN <DEST>,<DEST+1>,<
5265 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY>
5266 IFDIF <DEST>,<DEST+1>,<
5267 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^
5268 035007 321 15 0 00 034755 JUMPL AC+2,G23300 ;LOOP ON ERROR^
5269 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-15
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0146
5270 ;SOURCE BLOCK HAS AC ADDRESS, DESTINATION BLOCK HAS NON-AC ADDRESS
5271
5272 BLTM1 (23400,12,<<AC-6>&17>,<BLTBLK+4>,<230703,,603700>)^
5273 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
5274 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT
5275 ;SOURCE DATA = 230703,,603700
5276
5277 000012 AC=12
5278 SAVEAC (1,1)^
5279 035010 201 14 0 00 035010 MOVEI AC+2,. ;SAVE TEST PC
5280 035011 202 14 0 00 030051 MOVEM AC+2,TESTPC
5281 035012 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5282 035013 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5283 023400 SN=23400
5284 000004 SRCE=<AC-6>&17 ;1ST LOC OF SOURCE = <AC-6>&17
5285 040161 DEST=BLTBLK+4 ;1ST LOC OF DESTINATION = BLTBLK+4
5286 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
5287
5288 035014 200 12 0 00 040761 G23400: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC
5289 GMOV (SRCE-1,<252525252525>)^
5290 IFLE <SRCE-1-20>,<
5291 035015 200 03 0 00 040750 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525>
5292 IFG <SRCE-1-20>,<
5293 MOVE AC+1,[252525252525]
5294 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^
5295 GMOV (SRCE,<230703,,603700>)^
5296 IFLE <SRCE-20>,<
5297 035016 200 04 0 00 040704 MOVE SRCE,[230703,,603700] ;PRELOAD SRCE WITH 230703,,603700>
5298 IFG <SRCE-20>,<
5299 MOVE AC+1,[230703,,603700]
5300 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 230703,,603700>^
5301 GMOV (SRCE+1,<770077007700>)^
5302 IFLE <SRCE+1-20>,<
5303 035017 200 05 0 00 040751 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700>
5304 IFG <SRCE+1-20>,<
5305 MOVE AC+1,[770077007700]
5306 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^
5307 GMOV (DEST-1,<070707070707>)^
5308 IFLE <DEST-1-20>,<
5309 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707>
5310 IFG <DEST-1-20>,<
5311 035020 200 13 0 00 040752 MOVE AC+1,[070707070707]
5312 035021 202 13 0 00 040160 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^
5313 GMOV (DEST,<123456765432>)^
5314 IFLE <DEST-20>,<
5315 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432>
5316 IFG <DEST-20>,<
5317 035022 200 13 0 00 040753 MOVE AC+1,[123456765432]
5318 035023 202 13 0 00 040161 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^
5319 GMOV (DEST+1,<552255225522>)^
5320 IFLE <DEST+1-20>,<
5321 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522>
5322 IFG <DEST+1-20>,<
5323 035024 200 13 0 00 040754 MOVE AC+1,[552255225522]
5324 035025 202 13 0 00 040162 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-16
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0147
5325 035026 251 12 0 00 040161 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER
5326 GCAM (SRCE-1,<252525252525>)^
5327 023401 SN=SN+1
5328 IFG <SRCE-1-20>,<
5329 MOVE AC-1,SRCE-1
5330 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525
5331 IFIDN <DEST>,<SRCE-1>,<
5332 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5333 IFDIF <DEST>,<SRCE-1>,<
5334 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>>
5335 IFLE <SRCE-1-20>,<
5336 035027 312 03 0 00 040750 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525
5337 IFIDN <DEST>,<SRCE-1>,<
5338 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY>
5339 IFDIF <DEST>,<SRCE-1>,<
5340 035030 002 03 0 00 023401 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^
5341 GCAM (SRCE,<230703,,603700>)^
5342 023402 SN=SN+1
5343 IFG <SRCE-20>,<
5344 MOVE AC-1,SRCE
5345 CAME AC-1,[230703,,603700] ;IS C(SRCE) = 230703,,603700
5346 IFIDN <DEST>,<SRCE>,<
5347 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5348 IFDIF <DEST>,<SRCE>,<
5349 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>>
5350 IFLE <SRCE-20>,<
5351 035031 312 04 0 00 040704 CAME SRCE,[230703,,603700] ;IS C(SRCE) = 230703,,603700
5352 IFIDN <DEST>,<SRCE>,<
5353 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY>
5354 IFDIF <DEST>,<SRCE>,<
5355 035032 002 04 0 00 023402 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^
5356 GCAM (SRCE+1,<770077007700>)^
5357 023403 SN=SN+1
5358 IFG <SRCE+1-20>,<
5359 MOVE AC-1,SRCE+1
5360 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700
5361 IFIDN <DEST>,<SRCE+1>,<
5362 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5363 IFDIF <DEST>,<SRCE+1>,<
5364 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>>
5365 IFLE <SRCE+1-20>,<
5366 035033 312 05 0 00 040751 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700
5367 IFIDN <DEST>,<SRCE+1>,<
5368 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY>
5369 IFDIF <DEST>,<SRCE+1>,<
5370 035034 002 05 0 00 023403 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^
5371 GCAM (DEST-1,<070707070707>)^
5372 023404 SN=SN+1
5373 IFG <DEST-1-20>,<
5374 035035 200 11 0 00 040160 MOVE AC-1,DEST-1
5375 035036 312 11 0 00 040752 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707
5376 IFIDN <DEST>,<DEST-1>,<
5377 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5378 IFDIF <DEST>,<DEST-1>,<
5379 035037 002 11 0 00 023404 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-17
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0148
5380 IFLE <DEST-1-20>,<
5381 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707
5382 IFIDN <DEST>,<DEST-1>,<
5383 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY>
5384 IFDIF <DEST>,<DEST-1>,<
5385 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^
5386 GCAM (DEST,<230703,,603700>)^
5387 023405 SN=SN+1
5388 IFG <DEST-20>,<
5389 035040 200 11 0 00 040161 MOVE AC-1,DEST
5390 035041 312 11 0 00 040704 CAME AC-1,[230703,,603700] ;IS C(DEST) = 230703,,603700
5391 IFIDN <DEST>,<DEST>,<
5392 035042 002 11 0 00 023405 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5393 IFDIF <DEST>,<DEST>,<
5394 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>>
5395 IFLE <DEST-20>,<
5396 CAME DEST,[230703,,603700] ;IS C(DEST) = 230703,,603700
5397 IFIDN <DEST>,<DEST>,<
5398 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY>
5399 IFDIF <DEST>,<DEST>,<
5400 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^
5401 GCAM (DEST+1,<552255225522>)^
5402 023406 SN=SN+1
5403 IFG <DEST+1-20>,<
5404 035043 200 11 0 00 040162 MOVE AC-1,DEST+1
5405 035044 312 11 0 00 040754 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522
5406 IFIDN <DEST>,<DEST+1>,<
5407 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5408 IFDIF <DEST>,<DEST+1>,<
5409 035045 002 11 0 00 023406 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>>
5410 IFLE <DEST+1-20>,<
5411 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522
5412 IFIDN <DEST>,<DEST+1>,<
5413 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY>
5414 IFDIF <DEST>,<DEST+1>,<
5415 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^
5416 035046 321 14 0 00 035014 JUMPL AC+2,G23400 ;LOOP ON ERROR^
5417 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-18
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0149
5418 ;BOTH SOURCE AND DESTINATION BLOCKS HAVE NON-AC ADDRESSES
5419
5420 BLTM1 (23500,11,<BLTBLK+1>,<BLTBLK+4>,0)^
5421 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
5422 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT
5423 ;SOURCE DATA = 0
5424
5425 000011 AC=11
5426 SAVEAC (1,1)^
5427 035047 201 13 0 00 035047 MOVEI AC+2,. ;SAVE TEST PC
5428 035050 202 13 0 00 030051 MOVEM AC+2,TESTPC
5429 035051 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5430 035052 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5431 023500 SN=23500
5432 040156 SRCE=BLTBLK+1 ;1ST LOC OF SOURCE = BLTBLK+1
5433 040161 DEST=BLTBLK+4 ;1ST LOC OF DESTINATION = BLTBLK+4
5434 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
5435
5436 035053 200 11 0 00 040762 G23500: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC
5437 GMOV (SRCE-1,<252525252525>)^
5438 IFLE <SRCE-1-20>,<
5439 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525>
5440 IFG <SRCE-1-20>,<
5441 035054 200 12 0 00 040750 MOVE AC+1,[252525252525]
5442 035055 202 12 0 00 040155 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^
5443 GMOV (SRCE,<0>)^
5444 IFLE <SRCE-20>,<
5445 MOVE SRCE,[0] ;PRELOAD SRCE WITH 0>
5446 IFG <SRCE-20>,<
5447 035056 200 12 0 00 040743 MOVE AC+1,[0]
5448 035057 202 12 0 00 040156 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 0>^
5449 GMOV (SRCE+1,<770077007700>)^
5450 IFLE <SRCE+1-20>,<
5451 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700>
5452 IFG <SRCE+1-20>,<
5453 035060 200 12 0 00 040751 MOVE AC+1,[770077007700]
5454 035061 202 12 0 00 040157 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^
5455 GMOV (DEST-1,<070707070707>)^
5456 IFLE <DEST-1-20>,<
5457 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707>
5458 IFG <DEST-1-20>,<
5459 035062 200 12 0 00 040752 MOVE AC+1,[070707070707]
5460 035063 202 12 0 00 040160 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^
5461 GMOV (DEST,<123456765432>)^
5462 IFLE <DEST-20>,<
5463 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432>
5464 IFG <DEST-20>,<
5465 035064 200 12 0 00 040753 MOVE AC+1,[123456765432]
5466 035065 202 12 0 00 040161 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^
5467 GMOV (DEST+1,<552255225522>)^
5468 IFLE <DEST+1-20>,<
5469 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522>
5470 IFG <DEST+1-20>,<
5471 035066 200 12 0 00 040754 MOVE AC+1,[552255225522]
5472 035067 202 12 0 00 040162 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-19
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0150
5473 035070 251 11 0 00 040161 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER
5474 GCAM (SRCE-1,<252525252525>)^
5475 023501 SN=SN+1
5476 IFG <SRCE-1-20>,<
5477 035071 200 10 0 00 040155 MOVE AC-1,SRCE-1
5478 035072 312 10 0 00 040750 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525
5479 IFIDN <DEST>,<SRCE-1>,<
5480 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5481 IFDIF <DEST>,<SRCE-1>,<
5482 035073 002 10 0 00 023501 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>>
5483 IFLE <SRCE-1-20>,<
5484 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525
5485 IFIDN <DEST>,<SRCE-1>,<
5486 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY>
5487 IFDIF <DEST>,<SRCE-1>,<
5488 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^
5489 GCAM (SRCE,<0>)^
5490 023502 SN=SN+1
5491 IFG <SRCE-20>,<
5492 035074 200 10 0 00 040156 MOVE AC-1,SRCE
5493 035075 312 10 0 00 040743 CAME AC-1,[0] ;IS C(SRCE) = 0
5494 IFIDN <DEST>,<SRCE>,<
5495 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5496 IFDIF <DEST>,<SRCE>,<
5497 035076 002 10 0 00 023502 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>>
5498 IFLE <SRCE-20>,<
5499 CAME SRCE,[0] ;IS C(SRCE) = 0
5500 IFIDN <DEST>,<SRCE>,<
5501 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY>
5502 IFDIF <DEST>,<SRCE>,<
5503 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^
5504 GCAM (SRCE+1,<770077007700>)^
5505 023503 SN=SN+1
5506 IFG <SRCE+1-20>,<
5507 035077 200 10 0 00 040157 MOVE AC-1,SRCE+1
5508 035100 312 10 0 00 040751 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700
5509 IFIDN <DEST>,<SRCE+1>,<
5510 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5511 IFDIF <DEST>,<SRCE+1>,<
5512 035101 002 10 0 00 023503 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>>
5513 IFLE <SRCE+1-20>,<
5514 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700
5515 IFIDN <DEST>,<SRCE+1>,<
5516 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY>
5517 IFDIF <DEST>,<SRCE+1>,<
5518 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^
5519 GCAM (DEST-1,<070707070707>)^
5520 023504 SN=SN+1
5521 IFG <DEST-1-20>,<
5522 035102 200 10 0 00 040160 MOVE AC-1,DEST-1
5523 035103 312 10 0 00 040752 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707
5524 IFIDN <DEST>,<DEST-1>,<
5525 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5526 IFDIF <DEST>,<DEST-1>,<
5527 035104 002 10 0 00 023504 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-20
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0151
5528 IFLE <DEST-1-20>,<
5529 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707
5530 IFIDN <DEST>,<DEST-1>,<
5531 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY>
5532 IFDIF <DEST>,<DEST-1>,<
5533 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^
5534 GCAM (DEST,<0>)^
5535 023505 SN=SN+1
5536 IFG <DEST-20>,<
5537 035105 200 10 0 00 040161 MOVE AC-1,DEST
5538 035106 312 10 0 00 040743 CAME AC-1,[0] ;IS C(DEST) = 0
5539 IFIDN <DEST>,<DEST>,<
5540 035107 002 10 0 00 023505 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5541 IFDIF <DEST>,<DEST>,<
5542 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>>
5543 IFLE <DEST-20>,<
5544 CAME DEST,[0] ;IS C(DEST) = 0
5545 IFIDN <DEST>,<DEST>,<
5546 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY>
5547 IFDIF <DEST>,<DEST>,<
5548 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^
5549 GCAM (DEST+1,<552255225522>)^
5550 023506 SN=SN+1
5551 IFG <DEST+1-20>,<
5552 035110 200 10 0 00 040162 MOVE AC-1,DEST+1
5553 035111 312 10 0 00 040754 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522
5554 IFIDN <DEST>,<DEST+1>,<
5555 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5556 IFDIF <DEST>,<DEST+1>,<
5557 035112 002 10 0 00 023506 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>>
5558 IFLE <DEST+1-20>,<
5559 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522
5560 IFIDN <DEST>,<DEST+1>,<
5561 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY>
5562 IFDIF <DEST>,<DEST+1>,<
5563 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^
5564 035113 321 13 0 00 035053 JUMPL AC+2,G23500 ;LOOP ON ERROR^
5565 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-21
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0152
5566 ;BOTH SOURCE AND DESTINATION BLOCKS HAVE NON-AC ADDRESSES
5567
5568 BLTM1 (23600,10,<BLTBLK+1>,<BLTBLK+4>,-1)^
5569 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
5570 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT
5571 ;SOURCE DATA = -1
5572
5573 000010 AC=10
5574 SAVEAC (1,1)^
5575 035114 201 12 0 00 035114 MOVEI AC+2,. ;SAVE TEST PC
5576 035115 202 12 0 00 030051 MOVEM AC+2,TESTPC
5577 035116 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5578 035117 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5579 023600 SN=23600
5580 040156 SRCE=BLTBLK+1 ;1ST LOC OF SOURCE = BLTBLK+1
5581 040161 DEST=BLTBLK+4 ;1ST LOC OF DESTINATION = BLTBLK+4
5582 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
5583
5584 035120 200 10 0 00 040762 G23600: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC
5585 GMOV (SRCE-1,<252525252525>)^
5586 IFLE <SRCE-1-20>,<
5587 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525>
5588 IFG <SRCE-1-20>,<
5589 035121 200 11 0 00 040750 MOVE AC+1,[252525252525]
5590 035122 202 11 0 00 040155 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^
5591 GMOV (SRCE,<-1>)^
5592 IFLE <SRCE-20>,<
5593 MOVE SRCE,[-1] ;PRELOAD SRCE WITH -1>
5594 IFG <SRCE-20>,<
5595 035123 200 11 0 00 040666 MOVE AC+1,[-1]
5596 035124 202 11 0 00 040156 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH -1>^
5597 GMOV (SRCE+1,<770077007700>)^
5598 IFLE <SRCE+1-20>,<
5599 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700>
5600 IFG <SRCE+1-20>,<
5601 035125 200 11 0 00 040751 MOVE AC+1,[770077007700]
5602 035126 202 11 0 00 040157 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^
5603 GMOV (DEST-1,<070707070707>)^
5604 IFLE <DEST-1-20>,<
5605 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707>
5606 IFG <DEST-1-20>,<
5607 035127 200 11 0 00 040752 MOVE AC+1,[070707070707]
5608 035130 202 11 0 00 040160 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^
5609 GMOV (DEST,<123456765432>)^
5610 IFLE <DEST-20>,<
5611 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432>
5612 IFG <DEST-20>,<
5613 035131 200 11 0 00 040753 MOVE AC+1,[123456765432]
5614 035132 202 11 0 00 040161 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^
5615 GMOV (DEST+1,<552255225522>)^
5616 IFLE <DEST+1-20>,<
5617 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522>
5618 IFG <DEST+1-20>,<
5619 035133 200 11 0 00 040754 MOVE AC+1,[552255225522]
5620 035134 202 11 0 00 040162 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-22
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0153
5621 035135 251 10 0 00 040161 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER
5622 GCAM (SRCE-1,<252525252525>)^
5623 023601 SN=SN+1
5624 IFG <SRCE-1-20>,<
5625 035136 200 07 0 00 040155 MOVE AC-1,SRCE-1
5626 035137 312 07 0 00 040750 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525
5627 IFIDN <DEST>,<SRCE-1>,<
5628 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5629 IFDIF <DEST>,<SRCE-1>,<
5630 035140 002 07 0 00 023601 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>>
5631 IFLE <SRCE-1-20>,<
5632 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525
5633 IFIDN <DEST>,<SRCE-1>,<
5634 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY>
5635 IFDIF <DEST>,<SRCE-1>,<
5636 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^
5637 GCAM (SRCE,<-1>)^
5638 023602 SN=SN+1
5639 IFG <SRCE-20>,<
5640 035141 200 07 0 00 040156 MOVE AC-1,SRCE
5641 035142 312 07 0 00 040666 CAME AC-1,[-1] ;IS C(SRCE) = -1
5642 IFIDN <DEST>,<SRCE>,<
5643 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5644 IFDIF <DEST>,<SRCE>,<
5645 035143 002 07 0 00 023602 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>>
5646 IFLE <SRCE-20>,<
5647 CAME SRCE,[-1] ;IS C(SRCE) = -1
5648 IFIDN <DEST>,<SRCE>,<
5649 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY>
5650 IFDIF <DEST>,<SRCE>,<
5651 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^
5652 GCAM (SRCE+1,<770077007700>)^
5653 023603 SN=SN+1
5654 IFG <SRCE+1-20>,<
5655 035144 200 07 0 00 040157 MOVE AC-1,SRCE+1
5656 035145 312 07 0 00 040751 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700
5657 IFIDN <DEST>,<SRCE+1>,<
5658 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5659 IFDIF <DEST>,<SRCE+1>,<
5660 035146 002 07 0 00 023603 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>>
5661 IFLE <SRCE+1-20>,<
5662 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700
5663 IFIDN <DEST>,<SRCE+1>,<
5664 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY>
5665 IFDIF <DEST>,<SRCE+1>,<
5666 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^
5667 GCAM (DEST-1,<070707070707>)^
5668 023604 SN=SN+1
5669 IFG <DEST-1-20>,<
5670 035147 200 07 0 00 040160 MOVE AC-1,DEST-1
5671 035150 312 07 0 00 040752 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707
5672 IFIDN <DEST>,<DEST-1>,<
5673 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5674 IFDIF <DEST>,<DEST-1>,<
5675 035151 002 07 0 00 023604 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-23
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0154
5676 IFLE <DEST-1-20>,<
5677 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707
5678 IFIDN <DEST>,<DEST-1>,<
5679 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY>
5680 IFDIF <DEST>,<DEST-1>,<
5681 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^
5682 GCAM (DEST,<-1>)^
5683 023605 SN=SN+1
5684 IFG <DEST-20>,<
5685 035152 200 07 0 00 040161 MOVE AC-1,DEST
5686 035153 312 07 0 00 040666 CAME AC-1,[-1] ;IS C(DEST) = -1
5687 IFIDN <DEST>,<DEST>,<
5688 035154 002 07 0 00 023605 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5689 IFDIF <DEST>,<DEST>,<
5690 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>>
5691 IFLE <DEST-20>,<
5692 CAME DEST,[-1] ;IS C(DEST) = -1
5693 IFIDN <DEST>,<DEST>,<
5694 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY>
5695 IFDIF <DEST>,<DEST>,<
5696 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^
5697 GCAM (DEST+1,<552255225522>)^
5698 023606 SN=SN+1
5699 IFG <DEST+1-20>,<
5700 035155 200 07 0 00 040162 MOVE AC-1,DEST+1
5701 035156 312 07 0 00 040754 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522
5702 IFIDN <DEST>,<DEST+1>,<
5703 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5704 IFDIF <DEST>,<DEST+1>,<
5705 035157 002 07 0 00 023606 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>>
5706 IFLE <DEST+1-20>,<
5707 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522
5708 IFIDN <DEST>,<DEST+1>,<
5709 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY>
5710 IFDIF <DEST>,<DEST+1>,<
5711 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^
5712 035160 321 12 0 00 035120 JUMPL AC+2,G23600 ;LOOP ON ERROR^
5713 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-24
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0155
5714 ;BOTH SOURCE AND DESTINATION BLOCKS HAVE NON-AC ADDRESSES
5715
5716 BLTM1 (23700,7,<BLTBLK+1>,<BLTBLK+4>,<230703,,603700>)^
5717 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
5718 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT
5719 ;SOURCE DATA = 230703,,603700
5720
5721 000007 AC=7
5722 SAVEAC (1,1)^
5723 035161 201 11 0 00 035161 MOVEI AC+2,. ;SAVE TEST PC
5724 035162 202 11 0 00 030051 MOVEM AC+2,TESTPC
5725 035163 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5726 035164 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5727 023700 SN=23700
5728 040156 SRCE=BLTBLK+1 ;1ST LOC OF SOURCE = BLTBLK+1
5729 040161 DEST=BLTBLK+4 ;1ST LOC OF DESTINATION = BLTBLK+4
5730 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
5731
5732 035165 200 07 0 00 040762 G23700: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC
5733 GMOV (SRCE-1,<252525252525>)^
5734 IFLE <SRCE-1-20>,<
5735 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525>
5736 IFG <SRCE-1-20>,<
5737 035166 200 10 0 00 040750 MOVE AC+1,[252525252525]
5738 035167 202 10 0 00 040155 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^
5739 GMOV (SRCE,<230703,,603700>)^
5740 IFLE <SRCE-20>,<
5741 MOVE SRCE,[230703,,603700] ;PRELOAD SRCE WITH 230703,,603700>
5742 IFG <SRCE-20>,<
5743 035170 200 10 0 00 040704 MOVE AC+1,[230703,,603700]
5744 035171 202 10 0 00 040156 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 230703,,603700>^
5745 GMOV (SRCE+1,<770077007700>)^
5746 IFLE <SRCE+1-20>,<
5747 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700>
5748 IFG <SRCE+1-20>,<
5749 035172 200 10 0 00 040751 MOVE AC+1,[770077007700]
5750 035173 202 10 0 00 040157 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^
5751 GMOV (DEST-1,<070707070707>)^
5752 IFLE <DEST-1-20>,<
5753 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707>
5754 IFG <DEST-1-20>,<
5755 035174 200 10 0 00 040752 MOVE AC+1,[070707070707]
5756 035175 202 10 0 00 040160 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^
5757 GMOV (DEST,<123456765432>)^
5758 IFLE <DEST-20>,<
5759 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432>
5760 IFG <DEST-20>,<
5761 035176 200 10 0 00 040753 MOVE AC+1,[123456765432]
5762 035177 202 10 0 00 040161 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^
5763 GMOV (DEST+1,<552255225522>)^
5764 IFLE <DEST+1-20>,<
5765 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522>
5766 IFG <DEST+1-20>,<
5767 035200 200 10 0 00 040754 MOVE AC+1,[552255225522]
5768 035201 202 10 0 00 040162 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-25
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0156
5769 035202 251 07 0 00 040161 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER
5770 GCAM (SRCE-1,<252525252525>)^
5771 023701 SN=SN+1
5772 IFG <SRCE-1-20>,<
5773 035203 200 06 0 00 040155 MOVE AC-1,SRCE-1
5774 035204 312 06 0 00 040750 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525
5775 IFIDN <DEST>,<SRCE-1>,<
5776 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5777 IFDIF <DEST>,<SRCE-1>,<
5778 035205 002 06 0 00 023701 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>>
5779 IFLE <SRCE-1-20>,<
5780 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525
5781 IFIDN <DEST>,<SRCE-1>,<
5782 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY>
5783 IFDIF <DEST>,<SRCE-1>,<
5784 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^
5785 GCAM (SRCE,<230703,,603700>)^
5786 023702 SN=SN+1
5787 IFG <SRCE-20>,<
5788 035206 200 06 0 00 040156 MOVE AC-1,SRCE
5789 035207 312 06 0 00 040704 CAME AC-1,[230703,,603700] ;IS C(SRCE) = 230703,,603700
5790 IFIDN <DEST>,<SRCE>,<
5791 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5792 IFDIF <DEST>,<SRCE>,<
5793 035210 002 06 0 00 023702 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>>
5794 IFLE <SRCE-20>,<
5795 CAME SRCE,[230703,,603700] ;IS C(SRCE) = 230703,,603700
5796 IFIDN <DEST>,<SRCE>,<
5797 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY>
5798 IFDIF <DEST>,<SRCE>,<
5799 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^
5800 GCAM (SRCE+1,<770077007700>)^
5801 023703 SN=SN+1
5802 IFG <SRCE+1-20>,<
5803 035211 200 06 0 00 040157 MOVE AC-1,SRCE+1
5804 035212 312 06 0 00 040751 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700
5805 IFIDN <DEST>,<SRCE+1>,<
5806 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5807 IFDIF <DEST>,<SRCE+1>,<
5808 035213 002 06 0 00 023703 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>>
5809 IFLE <SRCE+1-20>,<
5810 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700
5811 IFIDN <DEST>,<SRCE+1>,<
5812 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY>
5813 IFDIF <DEST>,<SRCE+1>,<
5814 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^
5815 GCAM (DEST-1,<070707070707>)^
5816 023704 SN=SN+1
5817 IFG <DEST-1-20>,<
5818 035214 200 06 0 00 040160 MOVE AC-1,DEST-1
5819 035215 312 06 0 00 040752 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707
5820 IFIDN <DEST>,<DEST-1>,<
5821 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5822 IFDIF <DEST>,<DEST-1>,<
5823 035216 002 06 0 00 023704 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-26
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0157
5824 IFLE <DEST-1-20>,<
5825 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707
5826 IFIDN <DEST>,<DEST-1>,<
5827 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY>
5828 IFDIF <DEST>,<DEST-1>,<
5829 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^
5830 GCAM (DEST,<230703,,603700>)^
5831 023705 SN=SN+1
5832 IFG <DEST-20>,<
5833 035217 200 06 0 00 040161 MOVE AC-1,DEST
5834 035220 312 06 0 00 040704 CAME AC-1,[230703,,603700] ;IS C(DEST) = 230703,,603700
5835 IFIDN <DEST>,<DEST>,<
5836 035221 002 06 0 00 023705 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5837 IFDIF <DEST>,<DEST>,<
5838 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>>
5839 IFLE <DEST-20>,<
5840 CAME DEST,[230703,,603700] ;IS C(DEST) = 230703,,603700
5841 IFIDN <DEST>,<DEST>,<
5842 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY>
5843 IFDIF <DEST>,<DEST>,<
5844 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^
5845 GCAM (DEST+1,<552255225522>)^
5846 023706 SN=SN+1
5847 IFG <DEST+1-20>,<
5848 035222 200 06 0 00 040162 MOVE AC-1,DEST+1
5849 035223 312 06 0 00 040754 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522
5850 IFIDN <DEST>,<DEST+1>,<
5851 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5852 IFDIF <DEST>,<DEST+1>,<
5853 035224 002 06 0 00 023706 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>>
5854 IFLE <DEST+1-20>,<
5855 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522
5856 IFIDN <DEST>,<DEST+1>,<
5857 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY>
5858 IFDIF <DEST>,<DEST+1>,<
5859 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^
5860 035225 321 11 0 00 035165 JUMPL AC+2,G23700 ;LOOP ON ERROR^
5861 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-27
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0158
5862 ;SOURCE BLOCK HAS NON-AC ADDRESS, DESTINATION BLOCK HAS AC ADDRESS
5863
5864 BLTM1 (24000,14,<BLTBLK+1>,<<AC-6>&17>,0)^
5865 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
5866 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT
5867 ;SOURCE DATA = 0
5868
5869 000014 AC=14
5870 SAVEAC (1,1)^
5871 035226 201 16 0 00 035226 MOVEI AC+2,. ;SAVE TEST PC
5872 035227 202 16 0 00 030051 MOVEM AC+2,TESTPC
5873 035230 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5874 035231 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5875 024000 SN=24000
5876 040156 SRCE=BLTBLK+1 ;1ST LOC OF SOURCE = BLTBLK+1
5877 000006 DEST=<AC-6>&17 ;1ST LOC OF DESTINATION = <AC-6>&17
5878 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
5879
5880 035232 200 14 0 00 040763 G24000: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC
5881 GMOV (SRCE-1,<252525252525>)^
5882 IFLE <SRCE-1-20>,<
5883 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525>
5884 IFG <SRCE-1-20>,<
5885 035233 200 15 0 00 040750 MOVE AC+1,[252525252525]
5886 035234 202 15 0 00 040155 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^
5887 GMOV (SRCE,<0>)^
5888 IFLE <SRCE-20>,<
5889 MOVE SRCE,[0] ;PRELOAD SRCE WITH 0>
5890 IFG <SRCE-20>,<
5891 035235 200 15 0 00 040743 MOVE AC+1,[0]
5892 035236 202 15 0 00 040156 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 0>^
5893 GMOV (SRCE+1,<770077007700>)^
5894 IFLE <SRCE+1-20>,<
5895 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700>
5896 IFG <SRCE+1-20>,<
5897 035237 200 15 0 00 040751 MOVE AC+1,[770077007700]
5898 035240 202 15 0 00 040157 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^
5899 GMOV (DEST-1,<070707070707>)^
5900 IFLE <DEST-1-20>,<
5901 035241 200 05 0 00 040752 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707>
5902 IFG <DEST-1-20>,<
5903 MOVE AC+1,[070707070707]
5904 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^
5905 GMOV (DEST,<123456765432>)^
5906 IFLE <DEST-20>,<
5907 035242 200 06 0 00 040753 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432>
5908 IFG <DEST-20>,<
5909 MOVE AC+1,[123456765432]
5910 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^
5911 GMOV (DEST+1,<552255225522>)^
5912 IFLE <DEST+1-20>,<
5913 035243 200 07 0 00 040754 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522>
5914 IFG <DEST+1-20>,<
5915 MOVE AC+1,[552255225522]
5916 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-28
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0159
5917 035244 251 14 0 00 000006 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER
5918 GCAM (SRCE-1,<252525252525>)^
5919 024001 SN=SN+1
5920 IFG <SRCE-1-20>,<
5921 035245 200 13 0 00 040155 MOVE AC-1,SRCE-1
5922 035246 312 13 0 00 040750 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525
5923 IFIDN <DEST>,<SRCE-1>,<
5924 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5925 IFDIF <DEST>,<SRCE-1>,<
5926 035247 002 13 0 00 024001 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>>
5927 IFLE <SRCE-1-20>,<
5928 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525
5929 IFIDN <DEST>,<SRCE-1>,<
5930 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY>
5931 IFDIF <DEST>,<SRCE-1>,<
5932 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^
5933 GCAM (SRCE,<0>)^
5934 024002 SN=SN+1
5935 IFG <SRCE-20>,<
5936 035250 200 13 0 00 040156 MOVE AC-1,SRCE
5937 035251 312 13 0 00 040743 CAME AC-1,[0] ;IS C(SRCE) = 0
5938 IFIDN <DEST>,<SRCE>,<
5939 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5940 IFDIF <DEST>,<SRCE>,<
5941 035252 002 13 0 00 024002 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>>
5942 IFLE <SRCE-20>,<
5943 CAME SRCE,[0] ;IS C(SRCE) = 0
5944 IFIDN <DEST>,<SRCE>,<
5945 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY>
5946 IFDIF <DEST>,<SRCE>,<
5947 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^
5948 GCAM (SRCE+1,<770077007700>)^
5949 024003 SN=SN+1
5950 IFG <SRCE+1-20>,<
5951 035253 200 13 0 00 040157 MOVE AC-1,SRCE+1
5952 035254 312 13 0 00 040751 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700
5953 IFIDN <DEST>,<SRCE+1>,<
5954 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5955 IFDIF <DEST>,<SRCE+1>,<
5956 035255 002 13 0 00 024003 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>>
5957 IFLE <SRCE+1-20>,<
5958 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700
5959 IFIDN <DEST>,<SRCE+1>,<
5960 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY>
5961 IFDIF <DEST>,<SRCE+1>,<
5962 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^
5963 GCAM (DEST-1,<070707070707>)^
5964 024004 SN=SN+1
5965 IFG <DEST-1-20>,<
5966 MOVE AC-1,DEST-1
5967 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707
5968 IFIDN <DEST>,<DEST-1>,<
5969 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5970 IFDIF <DEST>,<DEST-1>,<
5971 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-29
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0160
5972 IFLE <DEST-1-20>,<
5973 035256 312 05 0 00 040752 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707
5974 IFIDN <DEST>,<DEST-1>,<
5975 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY>
5976 IFDIF <DEST>,<DEST-1>,<
5977 035257 002 05 0 00 024004 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^
5978 GCAM (DEST,<0>)^
5979 024005 SN=SN+1
5980 IFG <DEST-20>,<
5981 MOVE AC-1,DEST
5982 CAME AC-1,[0] ;IS C(DEST) = 0
5983 IFIDN <DEST>,<DEST>,<
5984 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
5985 IFDIF <DEST>,<DEST>,<
5986 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>>
5987 IFLE <DEST-20>,<
5988 035260 312 06 0 00 040743 CAME DEST,[0] ;IS C(DEST) = 0
5989 IFIDN <DEST>,<DEST>,<
5990 035261 002 06 0 00 024005 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY>
5991 IFDIF <DEST>,<DEST>,<
5992 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^
5993 GCAM (DEST+1,<552255225522>)^
5994 024006 SN=SN+1
5995 IFG <DEST+1-20>,<
5996 MOVE AC-1,DEST+1
5997 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522
5998 IFIDN <DEST>,<DEST+1>,<
5999 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
6000 IFDIF <DEST>,<DEST+1>,<
6001 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>>
6002 IFLE <DEST+1-20>,<
6003 035262 312 07 0 00 040754 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522
6004 IFIDN <DEST>,<DEST+1>,<
6005 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY>
6006 IFDIF <DEST>,<DEST+1>,<
6007 035263 002 07 0 00 024006 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^
6008 035264 321 16 0 00 035232 JUMPL AC+2,G24000 ;LOOP ON ERROR^
6009 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-30
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0161
6010 ;SOURCE BLOCK HAS NON-AC ADDRESS, DESTINATION BLOCK HAS AC ADDRESS
6011
6012 BLTM1 (24100,13,<BLTBLK+1>,<<AC-6>&17>,-1)^
6013 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
6014 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT
6015 ;SOURCE DATA = -1
6016
6017 000013 AC=13
6018 SAVEAC (1,1)^
6019 035265 201 15 0 00 035265 MOVEI AC+2,. ;SAVE TEST PC
6020 035266 202 15 0 00 030051 MOVEM AC+2,TESTPC
6021 035267 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6022 035270 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6023 024100 SN=24100
6024 040156 SRCE=BLTBLK+1 ;1ST LOC OF SOURCE = BLTBLK+1
6025 000005 DEST=<AC-6>&17 ;1ST LOC OF DESTINATION = <AC-6>&17
6026 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
6027
6028 035271 200 13 0 00 040764 G24100: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC
6029 GMOV (SRCE-1,<252525252525>)^
6030 IFLE <SRCE-1-20>,<
6031 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525>
6032 IFG <SRCE-1-20>,<
6033 035272 200 14 0 00 040750 MOVE AC+1,[252525252525]
6034 035273 202 14 0 00 040155 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^
6035 GMOV (SRCE,<-1>)^
6036 IFLE <SRCE-20>,<
6037 MOVE SRCE,[-1] ;PRELOAD SRCE WITH -1>
6038 IFG <SRCE-20>,<
6039 035274 200 14 0 00 040666 MOVE AC+1,[-1]
6040 035275 202 14 0 00 040156 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH -1>^
6041 GMOV (SRCE+1,<770077007700>)^
6042 IFLE <SRCE+1-20>,<
6043 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700>
6044 IFG <SRCE+1-20>,<
6045 035276 200 14 0 00 040751 MOVE AC+1,[770077007700]
6046 035277 202 14 0 00 040157 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^
6047 GMOV (DEST-1,<070707070707>)^
6048 IFLE <DEST-1-20>,<
6049 035300 200 04 0 00 040752 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707>
6050 IFG <DEST-1-20>,<
6051 MOVE AC+1,[070707070707]
6052 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^
6053 GMOV (DEST,<123456765432>)^
6054 IFLE <DEST-20>,<
6055 035301 200 05 0 00 040753 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432>
6056 IFG <DEST-20>,<
6057 MOVE AC+1,[123456765432]
6058 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^
6059 GMOV (DEST+1,<552255225522>)^
6060 IFLE <DEST+1-20>,<
6061 035302 200 06 0 00 040754 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522>
6062 IFG <DEST+1-20>,<
6063 MOVE AC+1,[552255225522]
6064 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-31
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0162
6065 035303 251 13 0 00 000005 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER
6066 GCAM (SRCE-1,<252525252525>)^
6067 024101 SN=SN+1
6068 IFG <SRCE-1-20>,<
6069 035304 200 12 0 00 040155 MOVE AC-1,SRCE-1
6070 035305 312 12 0 00 040750 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525
6071 IFIDN <DEST>,<SRCE-1>,<
6072 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
6073 IFDIF <DEST>,<SRCE-1>,<
6074 035306 002 12 0 00 024101 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>>
6075 IFLE <SRCE-1-20>,<
6076 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525
6077 IFIDN <DEST>,<SRCE-1>,<
6078 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY>
6079 IFDIF <DEST>,<SRCE-1>,<
6080 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^
6081 GCAM (SRCE,<-1>)^
6082 024102 SN=SN+1
6083 IFG <SRCE-20>,<
6084 035307 200 12 0 00 040156 MOVE AC-1,SRCE
6085 035310 312 12 0 00 040666 CAME AC-1,[-1] ;IS C(SRCE) = -1
6086 IFIDN <DEST>,<SRCE>,<
6087 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
6088 IFDIF <DEST>,<SRCE>,<
6089 035311 002 12 0 00 024102 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>>
6090 IFLE <SRCE-20>,<
6091 CAME SRCE,[-1] ;IS C(SRCE) = -1
6092 IFIDN <DEST>,<SRCE>,<
6093 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY>
6094 IFDIF <DEST>,<SRCE>,<
6095 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^
6096 GCAM (SRCE+1,<770077007700>)^
6097 024103 SN=SN+1
6098 IFG <SRCE+1-20>,<
6099 035312 200 12 0 00 040157 MOVE AC-1,SRCE+1
6100 035313 312 12 0 00 040751 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700
6101 IFIDN <DEST>,<SRCE+1>,<
6102 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
6103 IFDIF <DEST>,<SRCE+1>,<
6104 035314 002 12 0 00 024103 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>>
6105 IFLE <SRCE+1-20>,<
6106 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700
6107 IFIDN <DEST>,<SRCE+1>,<
6108 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY>
6109 IFDIF <DEST>,<SRCE+1>,<
6110 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^
6111 GCAM (DEST-1,<070707070707>)^
6112 024104 SN=SN+1
6113 IFG <DEST-1-20>,<
6114 MOVE AC-1,DEST-1
6115 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707
6116 IFIDN <DEST>,<DEST-1>,<
6117 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
6118 IFDIF <DEST>,<DEST-1>,<
6119 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-32
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0163
6120 IFLE <DEST-1-20>,<
6121 035315 312 04 0 00 040752 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707
6122 IFIDN <DEST>,<DEST-1>,<
6123 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY>
6124 IFDIF <DEST>,<DEST-1>,<
6125 035316 002 04 0 00 024104 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^
6126 GCAM (DEST,<-1>)^
6127 024105 SN=SN+1
6128 IFG <DEST-20>,<
6129 MOVE AC-1,DEST
6130 CAME AC-1,[-1] ;IS C(DEST) = -1
6131 IFIDN <DEST>,<DEST>,<
6132 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
6133 IFDIF <DEST>,<DEST>,<
6134 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>>
6135 IFLE <DEST-20>,<
6136 035317 312 05 0 00 040666 CAME DEST,[-1] ;IS C(DEST) = -1
6137 IFIDN <DEST>,<DEST>,<
6138 035320 002 05 0 00 024105 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY>
6139 IFDIF <DEST>,<DEST>,<
6140 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^
6141 GCAM (DEST+1,<552255225522>)^
6142 024106 SN=SN+1
6143 IFG <DEST+1-20>,<
6144 MOVE AC-1,DEST+1
6145 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522
6146 IFIDN <DEST>,<DEST+1>,<
6147 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
6148 IFDIF <DEST>,<DEST+1>,<
6149 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>>
6150 IFLE <DEST+1-20>,<
6151 035321 312 06 0 00 040754 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522
6152 IFIDN <DEST>,<DEST+1>,<
6153 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY>
6154 IFDIF <DEST>,<DEST+1>,<
6155 035322 002 06 0 00 024106 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^
6156 035323 321 15 0 00 035271 JUMPL AC+2,G24100 ;LOOP ON ERROR^
6157 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-33
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0164
6158 ;SOURCE BLOCK HAS NON-AC ADDRESS, DESTINATION BLOCK HAS AC ADDRESS
6159
6160 BLTM1 (24200,12,<BLTBLK+1>,<<AC-6>&17>,<230703,,603700>)^
6161 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA
6162 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT
6163 ;SOURCE DATA = 230703,,603700
6164
6165 000012 AC=12
6166 SAVEAC (1,1)^
6167 035324 201 14 0 00 035324 MOVEI AC+2,. ;SAVE TEST PC
6168 035325 202 14 0 00 030051 MOVEM AC+2,TESTPC
6169 035326 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6170 035327 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6171 024200 SN=24200
6172 040156 SRCE=BLTBLK+1 ;1ST LOC OF SOURCE = BLTBLK+1
6173 000004 DEST=<AC-6>&17 ;1ST LOC OF DESTINATION = <AC-6>&17
6174 000001 SIZ=1 ;BLOCK SIZE = 1 WORD
6175
6176 035330 200 12 0 00 040765 G24200: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC
6177 GMOV (SRCE-1,<252525252525>)^
6178 IFLE <SRCE-1-20>,<
6179 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525>
6180 IFG <SRCE-1-20>,<
6181 035331 200 13 0 00 040750 MOVE AC+1,[252525252525]
6182 035332 202 13 0 00 040155 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^
6183 GMOV (SRCE,<230703,,603700>)^
6184 IFLE <SRCE-20>,<
6185 MOVE SRCE,[230703,,603700] ;PRELOAD SRCE WITH 230703,,603700>
6186 IFG <SRCE-20>,<
6187 035333 200 13 0 00 040704 MOVE AC+1,[230703,,603700]
6188 035334 202 13 0 00 040156 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 230703,,603700>^
6189 GMOV (SRCE+1,<770077007700>)^
6190 IFLE <SRCE+1-20>,<
6191 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700>
6192 IFG <SRCE+1-20>,<
6193 035335 200 13 0 00 040751 MOVE AC+1,[770077007700]
6194 035336 202 13 0 00 040157 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^
6195 GMOV (DEST-1,<070707070707>)^
6196 IFLE <DEST-1-20>,<
6197 035337 200 03 0 00 040752 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707>
6198 IFG <DEST-1-20>,<
6199 MOVE AC+1,[070707070707]
6200 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^
6201 GMOV (DEST,<123456765432>)^
6202 IFLE <DEST-20>,<
6203 035340 200 04 0 00 040753 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432>
6204 IFG <DEST-20>,<
6205 MOVE AC+1,[123456765432]
6206 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^
6207 GMOV (DEST+1,<552255225522>)^
6208 IFLE <DEST+1-20>,<
6209 035341 200 05 0 00 040754 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522>
6210 IFG <DEST+1-20>,<
6211 MOVE AC+1,[552255225522]
6212 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-34
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0165
6213 035342 251 12 0 00 000004 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER
6214 GCAM (SRCE-1,<252525252525>)^
6215 024201 SN=SN+1
6216 IFG <SRCE-1-20>,<
6217 035343 200 11 0 00 040155 MOVE AC-1,SRCE-1
6218 035344 312 11 0 00 040750 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525
6219 IFIDN <DEST>,<SRCE-1>,<
6220 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
6221 IFDIF <DEST>,<SRCE-1>,<
6222 035345 002 11 0 00 024201 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>>
6223 IFLE <SRCE-1-20>,<
6224 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525
6225 IFIDN <DEST>,<SRCE-1>,<
6226 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY>
6227 IFDIF <DEST>,<SRCE-1>,<
6228 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^
6229 GCAM (SRCE,<230703,,603700>)^
6230 024202 SN=SN+1
6231 IFG <SRCE-20>,<
6232 035346 200 11 0 00 040156 MOVE AC-1,SRCE
6233 035347 312 11 0 00 040704 CAME AC-1,[230703,,603700] ;IS C(SRCE) = 230703,,603700
6234 IFIDN <DEST>,<SRCE>,<
6235 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
6236 IFDIF <DEST>,<SRCE>,<
6237 035350 002 11 0 00 024202 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>>
6238 IFLE <SRCE-20>,<
6239 CAME SRCE,[230703,,603700] ;IS C(SRCE) = 230703,,603700
6240 IFIDN <DEST>,<SRCE>,<
6241 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY>
6242 IFDIF <DEST>,<SRCE>,<
6243 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^
6244 GCAM (SRCE+1,<770077007700>)^
6245 024203 SN=SN+1
6246 IFG <SRCE+1-20>,<
6247 035351 200 11 0 00 040157 MOVE AC-1,SRCE+1
6248 035352 312 11 0 00 040751 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700
6249 IFIDN <DEST>,<SRCE+1>,<
6250 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
6251 IFDIF <DEST>,<SRCE+1>,<
6252 035353 002 11 0 00 024203 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>>
6253 IFLE <SRCE+1-20>,<
6254 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700
6255 IFIDN <DEST>,<SRCE+1>,<
6256 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY>
6257 IFDIF <DEST>,<SRCE+1>,<
6258 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^
6259 GCAM (DEST-1,<070707070707>)^
6260 024204 SN=SN+1
6261 IFG <DEST-1-20>,<
6262 MOVE AC-1,DEST-1
6263 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707
6264 IFIDN <DEST>,<DEST-1>,<
6265 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
6266 IFDIF <DEST>,<DEST-1>,<
6267 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-35
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0166
6268 IFLE <DEST-1-20>,<
6269 035354 312 03 0 00 040752 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707
6270 IFIDN <DEST>,<DEST-1>,<
6271 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY>
6272 IFDIF <DEST>,<DEST-1>,<
6273 035355 002 03 0 00 024204 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^
6274 GCAM (DEST,<230703,,603700>)^
6275 024205 SN=SN+1
6276 IFG <DEST-20>,<
6277 MOVE AC-1,DEST
6278 CAME AC-1,[230703,,603700] ;IS C(DEST) = 230703,,603700
6279 IFIDN <DEST>,<DEST>,<
6280 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
6281 IFDIF <DEST>,<DEST>,<
6282 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>>
6283 IFLE <DEST-20>,<
6284 035356 312 04 0 00 040704 CAME DEST,[230703,,603700] ;IS C(DEST) = 230703,,603700
6285 IFIDN <DEST>,<DEST>,<
6286 035357 002 04 0 00 024205 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY>
6287 IFDIF <DEST>,<DEST>,<
6288 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^
6289 GCAM (DEST+1,<552255225522>)^
6290 024206 SN=SN+1
6291 IFG <DEST+1-20>,<
6292 MOVE AC-1,DEST+1
6293 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522
6294 IFIDN <DEST>,<DEST+1>,<
6295 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY>
6296 IFDIF <DEST>,<DEST+1>,<
6297 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>>
6298 IFLE <DEST+1-20>,<
6299 035360 312 05 0 00 040754 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522
6300 IFIDN <DEST>,<DEST+1>,<
6301 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY>
6302 IFDIF <DEST>,<DEST+1>,<
6303 035361 002 05 0 00 024206 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^
6304 035362 321 14 0 00 035330 JUMPL AC+2,G24200 ;LOOP ON ERROR^
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 67
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0167
6305 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
6306 ;- AC RANGE - ZEROS
6307
6308 000014 AC=14
6309 SAVEAC (1,1)^
6310 035363 201 16 0 00 035363 MOVEI AC+2,. ;SAVE TEST PC
6311 035364 202 16 0 00 030051 MOVEM AC+2,TESTPC
6312 035365 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6313 035366 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6314
6315 020100 SN=20100
6316 000004 SRCE=<AC-10>&17 ;SOURCE BLOCK STARTING ADDRESS=<AC-10>&17
6317 000004 DEST=<AC-10>&17 ;DESTINATION BLOCK STARTING ADDRESS=<AC-10>&17
6318 000005 SIZ=5 ;BLOCK SIZE=5 WORDS
6319
6320 035367 200 14 0 00 040766 G20100: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF SOURCE
6321 ;AND DESTINATION BLOCKS
6322 035370 477 03 0 00 000011 SETOB SRCE-1,SRCE+SIZ ;PRELOAD SOURCE BLOCK -1 AND LAST WORD OF
6323 ;SOURCE BLOCK +1 WITH ONES
6324 035371 403 04 0 00 000005 SETZB SRCE,SRCE+1 ;PRELOAD ALL WORDS OF SOURCE BLOCK WITH ZEROS
6325 035372 403 06 0 00 000007 SETZB SRCE+2,SRCE+3
6326 035373 402 00 0 00 000010 SETZM SRCE+4
6327 035374 251 14 0 00 000010 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
6328 020101 SN=SN+1
6329 035375 312 03 0 00 040666 CAME DEST-1,[-1,,-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION BLOCK
6330 ;CLOBBERED?
6331 035376 002 03 0 00 020101 ER2 DEST-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
6332 ;BLOCK WAS CLOBBERED?
6333 020102 SN=SN+1
6334 035377 332 00 0 00 000004 SKIPE DEST ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
6335 ;CORRECTLY FROM SOURCE?
6336 035400 002 04 0 00 020102 ER2 DEST,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
6337 ;CORRECTLY FROM SOURCE
6338 020103 SN=SN+1
6339 035401 332 00 0 00 000005 SKIPE DEST+1 ;WAS SECOND WORD OF DESTINATION BLOCK LOADED CORRECTLY
6340 ;FROM SOURCE?
6341 035402 002 05 0 00 020103 ER2 DEST+1,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
6342 ;CORRECTLY FROM SOURCE
6343 020104 SN=SN+1
6344 035403 332 00 0 00 000006 SKIPE DEST+2 ;WAS THIRD WORD OF DESTINATION BLOCK LOADED CORRECTLY
6345 ;FROM SOURCE?
6346 035404 002 06 0 00 020104 ER2 DEST+2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
6347 ;CORRECTLY FROM SOURCE
6348 020105 SN=SN+1
6349 035405 332 00 0 00 000007 SKIPE DEST+3 ;WAS FOURTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
6350 ;FROM SOURCE?
6351 035406 002 07 0 00 020105 ER2 DEST+3,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
6352 ;CORRECTLY FROM SOURCE
6353 020106 SN=SN+1
6354 035407 332 00 0 00 000010 SKIPE DEST+4 ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
6355 ;FROM SOURCE?
6356 035410 002 10 0 00 020106 ER2 DEST+4,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
6357 ;CORRECTLY FROM SOURCE
6358 020107 SN=SN+1
6359 035411 312 11 0 00 040666 CAME DEST+SIZ,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 67-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0168
6360 ;CLOBBERED?
6361 035412 002 11 0 00 020107 ER2 DEST+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
6362 ;BLOCK WAS CLOBBERED
6363 035413 321 16 0 00 035367 JUMPL AC+2,G20100 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 68
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0169
6364 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
6365 ;- AC RANGE - ONES
6366
6367 000014 AC=14
6368 SAVEAC (1,1)^
6369 035414 201 16 0 00 035414 MOVEI AC+2,. ;SAVE TEST PC
6370 035415 202 16 0 00 030051 MOVEM AC+2,TESTPC
6371 035416 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6372 035417 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6373
6374 020200 SN=20200
6375 000004 SRCE=<AC-10>&17 ;SOURCE BLOCK STARTING ADDRESS=<AC-10>&17
6376 000004 DEST=<AC-10>&17 ;DESTINATION BLOCK STARTING ADDRESS=<AC-10>&17
6377 000005 SIZ=5 ;BLOCK SIZE=5 WORDS
6378
6379 035420 200 14 0 00 040766 G20200: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF SOURCE
6380 ;AND DESTINATION BLOCKS
6381 035421 403 03 0 00 000011 SETZB SRCE-1,SRCE+SIZ ;PRELOAD SOURCE BLOCK -1 AND LAST WORD OF SOURCE
6382 ;BLOCK +1 WITH ZEROS
6383 035422 477 04 0 00 000005 SETOB SRCE,SRCE+1 ;PRELOAD ALL WORDS OF SOURCE BLOCK WITH ONES
6384 035423 477 06 0 00 000007 SETOB SRCE+2,SRCE+3
6385 035424 476 00 0 00 000010 SETOM SRCE+4
6386 035425 251 14 0 00 000010 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
6387 020201 SN=SN+1
6388 035426 332 00 0 00 000003 SKIPE DEST-1 ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION BLOCK
6389 ;CLOBBERED?
6390 035427 002 03 0 00 020201 ER2 DEST-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
6391 ;BLOCK WAS CLOBBERED?
6392 020202 SN=SN+1
6393 035430 312 04 0 00 040666 CAME DEST,[-1,,-1] ;WAS FIRST WORD OF DESTINATION BLOCK LOAED CORRECTLY
6394 ;FROM SOURCE?
6395 035431 002 04 0 00 020202 ER2 DEST,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
6396 ;CORRECTLY FROM SOURCE
6397 020203 SN=SN+1
6398 035432 312 05 0 00 040666 CAME DEST+1,[-1,,-1] ;WAS SECOND WORD OF DESTINATION BLOCK LOADED
6399 ;CORRECTLY FROM SOURCE?
6400 035433 002 05 0 00 020203 ER2 DEST+1,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
6401 ;CORRECTLY FROM SOURCE
6402 020204 SN=SN+1
6403 035434 312 06 0 00 040666 CAME DEST+2,[-1,,-1] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
6404 ;CORRECTLY FROM SOURCE?
6405 035435 002 06 0 00 020204 ER2 DEST+2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
6406 ;CORRECTLY FROM SOURCE
6407 020205 SN=SN+1
6408 035436 312 07 0 00 040666 CAME DEST+3,[-1,,-1] ;WAS FOURTH WORD OF DESTINATION BLOCK LOADED
6409 ;CORRECTLY FROM SOURCE?
6410 035437 002 07 0 00 020205 ER2 DEST+3,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
6411 ;CORRECTLY FROM SOURCE
6412 020206 SN=SN+1
6413 035440 312 10 0 00 040666 CAME DEST+4,[-1,,-1] ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED
6414 ;CORRECTLY FROM SOURCE?
6415 035441 002 10 0 00 020206 ER2 DEST+4,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
6416 ;CORRECTLY FROM SOURCE
6417 020207 SN=SN+1
6418 035442 332 00 0 00 000011 SKIPE DEST+SIZ ;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 68-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0170
6419 ;CLOBBERED?
6420 035443 002 11 0 00 020207 ER2 DEST+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
6421 ;BLOCK WAS CLOBBERED
6422 035444 321 16 0 00 035420 JUMPL AC+2,G20200 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 69
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0171
6423 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
6424 ;- AC RANGE - SINGLE PATTERN
6425
6426 000014 AC=14
6427 SAVEAC (1,1)^
6428 035445 201 16 0 00 035445 MOVEI AC+2,. ;SAVE TEST PC
6429 035446 202 16 0 00 030051 MOVEM AC+2,TESTPC
6430 035447 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6431 035450 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6432
6433 020300 SN=20300
6434 000004 SRCE=<AC-10>&17 ;SOURCE BLOCK STARTING ADDRESS=<AC-10>&17
6435 000004 DEST=<AC-10>&17 ;DESTINATION BLOCK STARTING ADDRESS=<AC-10>&17
6436 000005 SIZ=5 ;BLOCK SIZE=5 WORDS
6437
6438 035451 200 14 0 00 040766 G20300: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
6439 ;SOURCE AND DESTINATION BLOCKS
6440 035452 477 03 0 00 000011 SETOB SRCE-1,SRCE+SIZ ;PRELOAD SOURCE BLOCK -1 AND LAST WORD OF SOURCE
6441 ;BLOCK +1 WITH ONES
6442 035453 200 04 0 00 040704 MOVE SRCE,[230703,,603700] ;PRELOAD ALL WORDS OF SOURCE BLOCK WITH
6443 ;230703,,603700
6444 035454 200 05 0 00 040704 MOVE SRCE+1,[230703,,603700]
6445 035455 200 06 0 00 040704 MOVE SRCE+2,[230703,,603700]
6446 035456 200 07 0 00 040704 MOVE SRCE+3,[230703,,603700]
6447 035457 200 10 0 00 040704 MOVE SRCE+4,[230703,,603700]
6448 035460 251 14 0 00 000010 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
6449 020301 SN=SN+1
6450 035461 312 03 0 00 040666 CAME DEST-1,[-1,,-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
6451 ;BLOCK CLOBBERED?
6452 035462 002 03 0 00 020301 ER2 DEST-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
6453 ;BLOCK WAS CLOBBERED?
6454 020302 SN=SN+1
6455 035463 312 04 0 00 040704 CAME DEST,[230703,,603700] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
6456 ;CORRECTLY FROM SOURCE?
6457 035464 002 04 0 00 020302 ER2 DEST,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
6458 ;CORRECTLY FROM SOURCE
6459 020303 SN=SN+1
6460 035465 312 05 0 00 040704 CAME DEST+1,[230703,,603700] ;WAS SECOND WORD OF DESTINATION BLOCK
6461 ;LOADED CORRECTLY FROM SOURCE?
6462 035466 002 05 0 00 020303 ER2 DEST+1,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
6463 ;CORRECTLY FROM SOURCE
6464 020304 SN=SN+1
6465 035467 312 06 0 00 040704 CAME DEST+2,[230703,,603700] ;WAS THIRD WORD OF DESTINATION BLOCK
6466 ;LOADED CORRECTLY FROM SOURCE?
6467 035470 002 06 0 00 020304 ER2 DEST+2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
6468 ;CORRECTLY FROM SOURCE
6469 020305 SN=SN+1
6470 035471 312 07 0 00 040704 CAME DEST+3,[230703,,603700] ;WAS FOURTH WORD OF DESTINATION BLOCK
6471 ;LOADED CORRECTLY FROM SOURCE?
6472 035472 002 07 0 00 020305 ER2 DEST+3,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
6473 ;CORRECTLY FROM SOURCE
6474 020306 SN=SN+1
6475 035473 312 10 0 00 040704 CAME DEST+4,[230703,,603700] ;WAS FIFTH WORD OF DESTINATION BLOCK
6476 ;NOT LOADED CORRECTLY FROM SOURCE
6477 035474 002 10 0 00 020306 ER2 DEST+4,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 69-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0172
6478 ;CORRECTLY FROM SOURCE
6479 020307 SN=SN+1
6480 035475 312 11 0 00 040666 CAME DEST+SIZ,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
6481 ;BLOCK CLOBBERED?
6482 035476 002 11 0 00 020307 ER2 DEST+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
6483 ;BLOCK WAS CLOBBERED
6484 035477 321 16 0 00 035451 JUMPL AC+2,G20300 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 70
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0173
6485 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
6486 ;- AC RANGE - MULTIPLE PATTERN
6487
6488 000014 AC=14
6489 SAVEAC (1,1)^
6490 035500 201 16 0 00 035500 MOVEI AC+2,. ;SAVE TEST PC
6491 035501 202 16 0 00 030051 MOVEM AC+2,TESTPC
6492 035502 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6493 035503 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6494
6495 020400 SN=20400
6496 000004 SRCE=<AC-10>&17 ;SOURCE BLOCK STARTING ADDRESS=<AC-10>&17
6497 000004 DEST=<AC-10>&17 ;DESTINATION BLOCK STARTING ADDRESS=<AC-10>&17
6498 000005 SIZ=5 ;BLOCK SIZE=5 WORDS
6499
6500 035504 200 14 0 00 040766 G20400: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
6501 ;SOURCE AND DESTINATION BLOCKS
6502 035505 200 03 0 00 040704 MOVE SRCE-1,[230703,,603700] ;PRELOAD WORD PRECEEDING FIRST WORD
6503 ;OF SOURCE BLOCK WITH 230703,,603700
6504 035506 200 04 0 00 040750 MOVE SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH
6505 ;252525,,252525
6506 035507 200 05 0 00 040767 MOVE SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK
6507 ;WITH 146314,,631463
6508 035510 200 06 0 00 040752 MOVE SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK
6509 ;WITH 070707,,070707
6510 035511 200 07 0 00 040770 MOVE SRCE+3,[036074,,170360] ;PRELOAD FOURTH WORD OF SOURCE BLOCK
6511 ;WITH 036074,,170360
6512 035512 200 10 0 00 040771 MOVE SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK
6513 ;WITH 017407,,603701
6514 035513 200 11 0 00 040772 MOVE SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD
6515 ;OF SOURCE BLOCK WITH 007603,,607062
6516 035514 251 14 0 00 000010 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
6517 020401 SN=SN+1
6518 035515 312 03 0 00 040704 CAME DEST-1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
6519 ;BLOCK CLOBBERED?
6520 035516 002 03 0 00 020401 ER2 DEST-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
6521 ;BLOCK WAS CLOBBERED?
6522 020402 SN=SN+1
6523 035517 312 04 0 00 040750 CAME DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
6524 ;CORRECTLY FROM SOURCE?
6525 035520 002 04 0 00 020402 ER2 DEST,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
6526 ;CORRECTLY FROM SOURCE
6527 020403 SN=SN+1
6528 035521 312 05 0 00 040767 CAME DEST+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
6529 ;LOADED CORRECTLY FROM SOURCE?
6530 035522 002 05 0 00 020403 ER2 DEST+1,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
6531 ;CORRECTLY FROM SOURCE
6532 020404 SN=SN+1
6533 035523 312 06 0 00 040752 CAME DEST+2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK
6534 ;LOADED CORRECTLY FROM SOURCE?
6535 035524 002 06 0 00 020404 ER2 DEST+2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
6536 ;CORRECTLY FROM SOURCE
6537 020405 SN=SN+1
6538 035525 312 07 0 00 040770 CAME DEST+3,[036074,,170360] ;WAS FOURTH WORD OF DESTINATION BLOCK
6539 ;LOADED CORRECTLY FROM SOURCE?
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 70-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0174
6540 035526 002 07 0 00 020405 ER2 DEST+3,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
6541 ;CORRECTLY FROM SOURCE
6542 020406 SN=SN+1
6543 035527 312 10 0 00 040771 CAME DEST+4,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK
6544 ;LOADED CORRECTLY FROM SOURCE?
6545 035530 002 10 0 00 020406 ER2 DEST+4,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
6546 ;CORRECTLY FROM SOURCE
6547 020407 SN=SN+1
6548 035531 312 11 0 00 040772 CAME DEST+SIZ,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
6549 ;BLOCK CLOBBERED?
6550 035532 002 11 0 00 020407 ER2 DEST+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
6551 ;BLOCK WAS CLOBBERED
6552 035533 321 16 0 00 035504 JUMPL AC+2,G20400 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 71
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0175
6553 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
6554 ;- NON-AC RANGE - ZEROS
6555
6556 000013 AC=13
6557 SAVEAC (1,1)^
6558 035534 201 15 0 00 035534 MOVEI AC+2,. ;SAVE TEST PC
6559 035535 202 15 0 00 030051 MOVEM AC+2,TESTPC
6560 035536 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6561 035537 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6562
6563 020500 SN=20500
6564 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1
6565 040156 DEST=BLTBLK+1 ;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1
6566 000005 SIZ=5 ;BLOCK SIZE=5 WORDS
6567
6568 035540 200 13 0 00 040746 G20500: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
6569 ;SOURCE AND DESTINATION BLOCKS
6570 035541 476 00 0 00 040155 SETOM SRCE-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
6571 ;WITH ONES
6572 035542 402 00 0 00 040156 SETZM SRCE ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK WITH
6573 ;ZEROS
6574 035543 402 00 0 00 040157 SETZM SRCE+1
6575 035544 402 00 0 00 040160 SETZM SRCE+2
6576 035545 402 00 0 00 040161 SETZM SRCE+3
6577 035546 402 00 0 00 040162 SETZM SRCE+4
6578 035547 476 00 0 00 040163 SETOM SRCE+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
6579 ;WITH ONES
6580 035550 251 13 0 00 040162 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
6581 020501 SN=SN+1
6582 035551 200 11 0 00 040155 MOVE AC-2,DEST-1
6583 035552 312 11 0 00 040666 CAME AC-2,[-1,,-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
6584 ;BLOCK CLOBBERED?
6585 035553 002 11 0 00 020501 ER2 AC-2,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
6586 ;BLOCK WAS CLOBBERED?
6587 020502 SN=SN+1
6588 035554 200 11 0 00 040156 MOVE AC-2,DEST
6589 035555 332 00 0 00 000011 SKIPE <AC-2>&17 ;WAS FIRST WORD OF DESTINATION BLOCK LOADED CORRECTLY
6590 ;FROM SOURCE?
6591 035556 002 11 0 00 020502 ER2 AC-2,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
6592 ;CORRECTLY FROM SOURCE
6593 020503 SN=SN+1
6594 035557 200 11 0 00 040157 MOVE AC-2,DEST+1
6595 035560 332 00 0 00 000011 SKIPE <AC-2>&17 ;WAS SECOND WORD OF DESTINATION BLOCK LOADED CORRECTLY
6596 ;FROM SOURCE?
6597 035561 002 11 0 00 020503 ER2 AC-2,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
6598 ;CORRECTLY FROM SOURCE
6599 020504 SN=SN+1
6600 035562 200 11 0 00 040160 MOVE AC-2,DEST+2
6601 035563 332 00 0 00 000011 SKIPE <AC-2>&17 ;WAS THIRD WORD OF DESTINATION BLOCK LOADED CORRECTLY
6602 ;FROM SOURCE?
6603 035564 002 11 0 00 020504 ER2 AC-2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
6604 ;CORRECTLY FROM SOURCE
6605 020505 SN=SN+1
6606 035565 200 11 0 00 040161 MOVE AC-2,DEST+3
6607 035566 332 00 0 00 000011 SKIPE <AC-2>&17 ;WAS FOURTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 71-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0176
6608 ;FROM SOURCE?
6609 035567 002 11 0 00 020505 ER2 AC-2,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
6610 ;CORRECTLY FROM SOURCE
6611 020506 SN=SN+1
6612 035570 200 11 0 00 040162 MOVE AC-2,DEST+4
6613 035571 332 00 0 00 000011 SKIPE <AC-2>&17 ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
6614 ;FROM SOURCE?
6615 035572 002 11 0 00 020506 ER2 AC-2,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
6616 ;CORRECTLY FROM SOURCE
6617 020507 SN=SN+1
6618 035573 200 11 0 00 040163 MOVE AC-2,DEST+SIZ
6619 035574 312 11 0 00 040666 CAME AC-2,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
6620 ;CLOBBERED?
6621 035575 002 11 0 00 020507 ER2 AC-2,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
6622 ;WAS CLOBBERED
6623 035576 321 15 0 00 035540 JUMPL AC+2,G20500 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 72
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0177
6624 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
6625 ;- NON-AC RANGE - ONES
6626
6627 000012 AC=12
6628 SAVEAC (1,1)^
6629 035577 201 14 0 00 035577 MOVEI AC+2,. ;SAVE TEST PC
6630 035600 202 14 0 00 030051 MOVEM AC+2,TESTPC
6631 035601 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6632 035602 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6633
6634 020600 SN=20600
6635 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1
6636 040156 DEST=BLTBLK+1 ;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1
6637 000005 SIZ=5 ;BLOCK SIZE=5 WORDS
6638
6639 035603 200 12 0 00 040746 G20600: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
6640 ;SOURCE AND DESTINATION BLOCKS
6641 035604 402 00 0 00 040155 SETZM SRCE-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
6642 ;WITH ZEROS
6643 035605 476 00 0 00 040156 SETOM SRCE ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK WITH
6644 ;ONES
6645 035606 476 00 0 00 040157 SETOM SRCE+1
6646 035607 476 00 0 00 040160 SETOM SRCE+2
6647 035610 476 00 0 00 040161 SETOM SRCE+3
6648 035611 476 00 0 00 040162 SETOM SRCE+4
6649 035612 402 00 0 00 040163 SETZM SRCE+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
6650 ;WITH ZEROS
6651 035613 251 12 0 00 040162 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
6652 020601 SN=SN+1
6653 035614 200 10 0 00 040155 MOVE AC-2,DEST-1
6654 035615 332 00 0 00 000010 SKIPE <AC-2>&17 ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION BLOCK
6655 ;CLOBBERED?
6656 035616 002 10 0 00 020601 ER2 AC-2,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
6657 ;BLOCK WAS CLOBBERED?
6658 020602 SN=SN+1
6659 035617 200 10 0 00 040156 MOVE AC-2,DEST
6660 035620 312 10 0 00 040666 CAME AC-2,[-1,,-1] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED CORRECTLY
6661 ;FROM SOURCE?
6662 035621 002 10 0 00 020602 ER2 AC-2,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
6663 ;CORRECTLY FROM SOURCE
6664 020603 SN=SN+1
6665 035622 200 10 0 00 040157 MOVE AC-2,DEST+1
6666 035623 312 10 0 00 040666 CAME AC-2,[-1,,-1] ;WAS SECOND WORD OF DESTINATION BLOCK LOADED CORRECTLY
6667 ;FROM SOURCE?
6668 035624 002 10 0 00 020603 ER2 AC-2,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
6669 ;CORRECTLY FROM SOURCE
6670 020604 SN=SN+1
6671 035625 200 10 0 00 040160 MOVE AC-2,DEST+2
6672 035626 312 10 0 00 040666 CAME AC-2,[-1,,-1] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED CORRECTLY
6673 ;FROM SOURCE?
6674 035627 002 10 0 00 020604 ER2 AC-2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
6675 ;CORRECTLY FROM SOURCE
6676 020605 SN=SN+1
6677 035630 200 10 0 00 040161 MOVE AC-2,DEST+3
6678 035631 312 10 0 00 040666 CAME AC-2,[-1,,-1] ;WAS FOURTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 72-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0178
6679 ;FROM SOURCE?
6680 035632 002 10 0 00 020605 ER2 AC-2,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
6681 ;CORRECTLY FROM SOURCE
6682 020606 SN=SN+1
6683 035633 200 10 0 00 040162 MOVE AC-2,DEST+4
6684 035634 312 10 0 00 040666 CAME AC-2,[-1,,-1] ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED CORRECTLY
6685 ;FROM SOURCE?
6686 035635 002 10 0 00 020606 ER2 AC-2,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
6687 ;CORRECTLY FROM SOURCE
6688 020607 SN=SN+1
6689 035636 200 10 0 00 040163 MOVE AC-2,DEST+SIZ
6690 035637 332 00 0 00 000010 SKIPE <AC-2>&17 ;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
6691 ;CLOBBERED?
6692 035640 002 10 0 00 020607 ER2 AC-2,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
6693 ;WAS CLOBBERED
6694 035641 321 14 0 00 035603 JUMPL AC+2,G20600 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 73
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0179
6695 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
6696 ;- NON-AC RANGE - SINGLE PATTERN
6697
6698 000011 AC=11
6699 SAVEAC (1,1)^
6700 035642 201 13 0 00 035642 MOVEI AC+2,. ;SAVE TEST PC
6701 035643 202 13 0 00 030051 MOVEM AC+2,TESTPC
6702 035644 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6703 035645 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6704
6705 020700 SN=20700
6706 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1
6707 040156 DEST=BLTBLK+1 ;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1
6708 000005 SIZ=5 ;BLOCK SIZE=5 WORDS
6709
6710 035646 200 11 0 00 040746 G20700: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
6711 ;SOURCE AND DESTINATION BLOCKS
6712 035647 476 00 0 00 040155 SETOM SRCE-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
6713 ;WITH ONES
6714 035650 200 00 0 00 040704 MOVE [230703,,603700]
6715 035651 202 00 0 00 040156 MOVEM SRCE ;PRELOAD ALL WORDS OF SOURCE BLOCK WITH 230703,,603700
6716 035652 202 00 0 00 040157 MOVEM SRCE+1
6717 035653 202 00 0 00 040160 MOVEM SRCE+2
6718 035654 202 00 0 00 040161 MOVEM SRCE+3
6719 035655 202 00 0 00 040162 MOVEM SRCE+4
6720 035656 476 00 0 00 040163 SETOM SRCE+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
6721 ;WITH ONES
6722 035657 251 11 0 00 040162 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
6723 020701 SN=SN+1
6724 035660 200 07 0 00 040155 MOVE AC-2,DEST-1
6725 035661 312 07 0 00 040666 CAME AC-2,[-1,,-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
6726 ;BLOCK CLOBBERED?
6727 035662 002 07 0 00 020701 ER2 AC-2,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
6728 ;BLOCK WAS CLOBBERED?
6729 020702 SN=SN+1
6730 035663 200 07 0 00 040156 MOVE AC-2,DEST
6731 035664 312 07 0 00 040704 CAME AC-2,[230703,,603700] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
6732 ;CORRECTLY FROM SOURCE?
6733 035665 002 07 0 00 020702 ER2 AC-2,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
6734 ;CORRECTLY FROM SOURCE
6735 020703 SN=SN+1
6736 035666 200 07 0 00 040157 MOVE AC-2,DEST+1
6737 035667 312 07 0 00 040704 CAME AC-2,[230703,,603700] ;WAS SECOND WORD OF DESTINATION BLOCK
6738 ;LOADED CORRECTLY FROM SOURCE?
6739 035670 002 07 0 00 020703 ER2 AC-2,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
6740 ;CORRECTLY FROM SOURCE
6741 020704 SN=SN+1
6742 035671 200 07 0 00 040160 MOVE AC-2,DEST+2
6743 035672 312 07 0 00 040704 CAME AC-2,[230703,,603700] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
6744 ;CORRECTLY FROM SOURCE?
6745 035673 002 07 0 00 020704 ER2 AC-2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
6746 ;CORRECTLY FROM SOURCE
6747 020705 SN=SN+1
6748 035674 200 07 0 00 040161 MOVE AC-2,DEST+3
6749 035675 312 07 0 00 040704 CAME AC-2,[230703,,603700] ;WAS FOURTH WORD OF DESTINATION BLOCK
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 73-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0180
6750 ;LOADED CORRECTLY FROM SOURCE?
6751 035676 002 07 0 00 020705 ER2 AC-2,SN ;FOURTH WORD OF DESTINATION BLOCK NOT LOADED CORRECTLY
6752 ;FROM SOURCE
6753 020706 SN=SN+1
6754 035677 200 07 0 00 040162 MOVE AC-2,DEST+4
6755 035700 312 07 0 00 040704 CAME AC-2,[230703,,603700] ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED
6756 ;CORRECTLY FROM SOURCE?
6757 035701 002 07 0 00 020706 ER2 AC-2,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
6758 ;CORRECTLY FROM SOURCE
6759 020707 SN=SN+1
6760 035702 200 07 0 00 040163 MOVE AC-2,DEST+SIZ
6761 035703 312 07 0 00 040666 CAME AC-2,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
6762 ;CLOBBERED?
6763 035704 002 13 0 00 020707 ER2 AC+2,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
6764 ;WAS CLOBBERED
6765 035705 321 13 0 00 035646 JUMPL AC+2,G20700 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 74
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0181
6766 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS
6767 ;- NON-AC RANGE - MULTIPLE PATTERN
6768
6769 000010 AC=10
6770 SAVEAC (1,1)^
6771 035706 201 12 0 00 035706 MOVEI AC+2,. ;SAVE TEST PC
6772 035707 202 12 0 00 030051 MOVEM AC+2,TESTPC
6773 035710 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6774 035711 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6775
6776 021000 SN=21000
6777 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1
6778 040156 DEST=BLTBLK+1 ;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1
6779 000005 SIZ=5 ;BLOCK SIZE=5 WORDS
6780
6781 035712 200 10 0 00 040746 G21000: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
6782 ;SOURCE AND DESTINATION BLOCKS
6783 035713 200 00 0 00 040704 MOVE [230703,,603700]
6784 035714 202 00 0 00 040155 MOVEM SRCE-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
6785 ;WITH 230703,,603700
6786 035715 200 00 0 00 040750 MOVE [252525,,252525]
6787 035716 202 00 0 00 040156 MOVEM SRCE ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525
6788 035717 200 00 0 00 040767 MOVE [146314,,631463]
6789 035720 202 00 0 00 040157 MOVEM SRCE+1 ;PRELOAD SECOND WORD OF SOURCE BLOCK
6790 ;WITH 146314,,631463
6791 035721 200 00 0 00 040752 MOVE [070707,,070707]
6792 035722 202 00 0 00 040160 MOVEM SRCE+2 ;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707
6793 035723 200 00 0 00 040770 MOVE [036074,,170360]
6794 035724 202 00 0 00 040161 MOVEM SRCE+3 ;PRELOAD FOURTH WORD OF SOURCE BLOCK
6795 ;WITH 036074,,170360
6796 035725 200 00 0 00 040771 MOVE [017407,,603701]
6797 035726 202 00 0 00 040162 MOVEM SRCE+4 ;PRELOAD FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701
6798 035727 200 00 0 00 040772 MOVE [007603,,607062]
6799 035730 202 00 0 00 040163 MOVEM SRCE+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
6800 ;WITH 007603,,607062
6801 035731 251 10 0 00 040162 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
6802 021001 SN=SN+1
6803 035732 200 06 0 00 040155 MOVE AC-2,DEST-1
6804 035733 312 06 0 00 040704 CAME AC-2,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
6805 ;BLOCK CLOBBERED?
6806 035734 002 06 0 00 021001 ER2 AC-2,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
6807 ;BLOCK WAS CLOBBERED?
6808 021002 SN=SN+1
6809 035735 200 06 0 00 040156 MOVE AC-2,DEST
6810 035736 312 06 0 00 040750 CAME AC-2,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
6811 ;CORRECTLY FROM SOURCE?
6812 035737 002 06 0 00 021002 ER2 AC-2,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
6813 ;CORRECTLY FROM SOURCE
6814 021003 SN=SN+1
6815 035740 200 06 0 00 040157 MOVE AC-2,DEST+1
6816 035741 312 06 0 00 040767 CAME AC-2,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
6817 ;LOADED CORRECTLY FROM SOURCE?
6818 035742 002 06 0 00 021003 ER2 AC-2,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
6819 ;CORRECTLY FROM SOURCE
6820 021004 SN=SN+1
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 74-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0182
6821 035743 200 06 0 00 040160 MOVE AC-2,DEST+2
6822 035744 312 06 0 00 040752 CAME AC-2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
6823 ;CORRECTLY FROM SOURCE?
6824 035745 002 06 0 00 021004 ER2 AC-2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
6825 ;CORRECTLY FROM SOURCE
6826 021005 SN=SN+1
6827 035746 200 06 0 00 040161 MOVE AC-2,DEST+3
6828 035747 312 06 0 00 040770 CAME AC-2,[036074,,170360] ;WAS FOURTH WORD OF DESTINATION BLOCK
6829 ;LOADED CORRECTLY FROM SOURCE?
6830 035750 002 06 0 00 021005 ER2 AC-2,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
6831 ;CORRECTLY FROM SOURCE
6832 021006 SN=SN+1
6833 035751 200 06 0 00 040162 MOVE AC-2,DEST+4
6834 035752 312 06 0 00 040771 CAME AC-2,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED
6835 ;CORRECTLY FROM SOURCE?
6836 035753 002 06 0 00 021006 ER2 AC-2,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
6837 ;CORRECTLY FROM SOURCE
6838 021007 SN=SN+1
6839 035754 200 06 0 00 040163 MOVE AC-2,DEST+SIZ
6840 035755 312 06 0 00 040772 CAME AC-2,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
6841 ;BLOCK CLOBBERED?
6842 035756 002 06 0 00 021007 ER2 AC-2,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
6843 ;WAS CLOBBERED
6844 035757 321 12 0 00 035712 JUMPL AC+2,G21000 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 75
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0183
6845 ;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
6846 ;ADDRESS MINUS ONE - AC RANGE - MULTIPLE PATTERN
6847
6848 000014 AC=14
6849 SAVEAC (1,1)^
6850 035760 201 16 0 00 035760 MOVEI AC+2,. ;SAVE TEST PC
6851 035761 202 16 0 00 030051 MOVEM AC+2,TESTPC
6852 035762 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6853 035763 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6854
6855 021100 SN=21100
6856 000002 SRCE=<AC-12>&17 ;SOURCE BLOCK STARTING ADDRESS= <AC-12>&17
6857 000001 DEST=<AC-13>&17 ;DESTINATION BLOCK STARTING ADDRESS= <AC-13>&17
6858 000005 SIZ=5 ;BLOCK SIZE=5 WORDS
6859
6860 035764 200 14 0 00 040773 G21100: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
6861 ;SOURCE AND DESTINATION BLOCKS
6862 035765 476 00 0 00 000000 SETOM DEST-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION
6863 ;BLOCK WITH ONES
6864 035766 200 01 0 00 040704 MOVE DEST,[230703,,603700] ;PRELOAD FIRST WORD OF DESTINATION BLOCK
6865 ;WITH 230703,,603700
6866 035767 200 02 0 00 040750 MOVE SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH
6867 ;252525,,252525
6868 035770 200 03 0 00 040767 MOVE SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK
6869 ;WITH 146314,,631463
6870 035771 200 04 0 00 040752 MOVE SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK
6871 ;WITH 070707,,070707
6872 035772 200 05 0 00 040774 MOVE SRCE+3,[036074,,170630] ;PRELOAD FOURTH WORD OF SOURCE BLOCK
6873 ;WITH 036074,,170630
6874 035773 200 06 0 00 040771 MOVE SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK
6875 ;WITH 017407,,603701
6876 035774 200 07 0 00 040772 MOVE SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD
6877 ;OF SOURCE BLOCK WITH 007603,,607062
6878 035775 251 14 0 00 000005 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
6879 021101 SN=SN+1
6880 035776 312 00 0 00 040666 CAME DEST-1,[-1,,-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
6881 ;BLOCK CLOBBERED?
6882 035777 002 00 0 00 021101 ER2 DEST-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
6883 ;BLOCK WAS CLOBBERED?
6884 021102 SN=SN+1
6885 036000 312 01 0 00 040750 CAME DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
6886 ;CORRECTLY FROM SOURCE?
6887 036001 002 01 0 00 021102 ER2 DEST,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
6888 ;CORRECTLY FROM SOURCE
6889 021103 SN=SN+1
6890 036002 312 02 0 00 040767 CAME DEST+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
6891 ;LOADED CORRECTLY FROM SOURCE?
6892 036003 002 02 0 00 021103 ER2 DEST+1,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
6893 ;CORRECTLY FROM SOURCE
6894 021104 SN=SN+1
6895 036004 312 03 0 00 040752 CAME DEST+2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK
6896 ;LOADED CORRECTLY FROM SOURCE?
6897 036005 002 03 0 00 021104 ER2 DEST+2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
6898 ;CORRECTLY FROM SOURCE
6899
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 75-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0184
6900 021105 SN=SN+1
6901 036006 312 04 0 00 040774 CAME DEST+3,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION
6902 ;BLOCK LOADED CORRECTLY FROM SOURCE?
6903 036007 002 04 0 00 021105 ER2 DEST+3,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
6904 ;CORRECTLY FROM SOURCE
6905 021106 SN=SN+1
6906 036010 312 05 0 00 040771 CAME DEST+4,[017407,,603701] ;WAS LAST WORD OF DESTINATION BLOCK
6907 ;LOADED CORRECTLY FROM SOURCE?
6908 036011 002 05 0 00 021106 ER2 DEST+4,SN ;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
6909 ;CORRECTLY FROM SOURCE
6910 021107 SN=SN+1
6911 036012 312 06 0 00 040771 CAME DEST+SIZ,[017407,,603701] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
6912 ;BLOCK CLOBBERED?
6913 036013 002 06 0 00 021107 ER2 DEST+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
6914 ;BLOCK WAS CLOBBERED
6915 021110 SN=SN+1
6916 036014 312 07 0 00 040772 CAME SRCE+SIZ,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE
6917 ;BLOCK CLOBBERED?
6918 036015 002 07 0 00 021110 ER2 SRCE+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK
6919 ;WAS CLOBBERED
6920 036016 321 16 0 00 035764 JUMPL AC+2,G21100 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 76
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0185
6921 ;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
6922 ;ADDRESS MINUS ONE - NON-AC RANGE - MULTIPLE PATTERN
6923
6924 000006 AC=6
6925 SAVEAC (1,1)^
6926 036017 201 10 0 00 036017 MOVEI AC+2,. ;SAVE TEST PC
6927 036020 202 10 0 00 030051 MOVEM AC+2,TESTPC
6928 036021 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6929 036022 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6930
6931 021200 SN=21200
6932 040157 SRCE=BLTBLK+2 ;SOURCE BLOCK STARTING ADDRESS= BLTBLK+2
6933 040156 DEST=BLTBLK+1 ;DESTINATION BLOCK STARTING ADDRESS= BLTBLK+1
6934 000005 SIZ=5 ;BLOCK SIZE=5 WORDS
6935
6936 036023 200 06 0 00 040775 G21200: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
6937 ;SOURCE AND DESTINATION BLOCKS
6938 036024 476 00 0 00 040155 SETOM DEST-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION
6939 ;BLOCK WITH ONES
6940 036025 200 00 0 00 040704 MOVE [230703,,603700]
6941 036026 202 00 0 00 040156 MOVEM DEST ;PRELOAD FIRST WORD OF DESTINATION BLOCK
6942 ;WITH 230703,,603700
6943 036027 200 00 0 00 040750 MOVE [252525,,252525]
6944 036030 202 00 0 00 040157 MOVEM SRCE ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525
6945 036031 200 00 0 00 040767 MOVE [146314,,631463]
6946 036032 202 00 0 00 040160 MOVEM SRCE+1 ;PRELOAD SECOND WORD OF SOURCE BLOCK
6947 ;WITH 146314,,631463
6948 036033 200 00 0 00 040752 MOVE [070707,,070707]
6949 036034 202 00 0 00 040161 MOVEM SRCE+2 ;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707
6950 036035 200 00 0 00 040774 MOVE [036074,,170630]
6951 036036 202 00 0 00 040162 MOVEM SRCE+3 ;PRELOAD FOURTH WORD OF SOURCE BLOCK
6952 ;WITH 036074,,170630
6953 036037 200 00 0 00 040771 MOVE [017407,,603701]
6954 036040 202 00 0 00 040163 MOVEM SRCE+4 ;PRELOAD FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701
6955 036041 200 00 0 00 040772 MOVE [007603,,607062]
6956 036042 202 00 0 00 040164 MOVEM SRCE+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
6957 ;WITH 007603,,607062
6958 036043 251 06 0 00 040162 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 77
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0186
6959 ;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
6960 ;ADDRESS MINUS ONE - NON-AC RANGE - MULTIPLE PATTERN (CONTINUED)
6961
6962 021201 SN=SN+1
6963 036044 200 04 0 00 040155 MOVE AC-2,DEST-1
6964 036045 312 04 0 00 040666 CAME AC-2,[-1,,-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
6965 ;BLOCK CLOBBERED?
6966 036046 002 04 0 00 021201 ER2 AC-2,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
6967 ;BLOCK WAS CLOBBERED?
6968 021202 SN=SN+1
6969 036047 200 04 0 00 040156 MOVE AC-2,DEST
6970 036050 312 04 0 00 040750 CAME AC-2,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
6971 ;CORRECTLY FROM SOURCE?
6972 036051 002 04 0 00 021202 ER2 AC-2,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
6973 ;CORRECTLY FROM SOURCE
6974 021203 SN=SN+1
6975 036052 200 04 0 00 040157 MOVE AC-2,DEST+1
6976 036053 312 04 0 00 040767 CAME AC-2,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
6977 ;LOADED CORRECTLY FROM SOURCE?
6978 036054 002 04 0 00 021203 ER2 AC-2,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
6979 ;CORRECTLY FROM SOURCE
6980 021204 SN=SN+1
6981 036055 200 04 0 00 040160 MOVE AC-2,DEST+2
6982 036056 312 04 0 00 040752 CAME AC-2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
6983 ;CORRECTLY FROM SOURCE?
6984 036057 002 04 0 00 021204 ER2 AC-2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
6985 ;CORRECTLY FROM SOURCE
6986 021205 SN=SN+1
6987 036060 200 04 0 00 040161 MOVE AC-2,DEST+3
6988 036061 312 04 0 00 040774 CAME AC-2,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION BLOCK
6989 ;LOADED CORRECTLY FROM SOURCE?
6990 036062 002 04 0 00 021205 ER2 AC-2,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
6991 ;CORRECTLY FROM SOURCE
6992 021206 SN=SN+1
6993 036063 200 04 0 00 040162 MOVE AC-2,DEST+4
6994 036064 312 04 0 00 040771 CAME AC-2,[017407,,603701] ;WAS LAST WORD OF DESTINATION BLOCK LOADED
6995 ;CORRECTLY FROM SOURCE?
6996 036065 002 04 0 00 021206 ER2 AC-2,SN ;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
6997 ;CORRECTLY FROM SOURCE
6998 021207 SN=SN+1
6999 036066 200 04 0 00 040163 MOVE AC-2,DEST+SIZ
7000 036067 312 04 0 00 040771 CAME AC-2,[017407,,603701] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
7001 ;BLOCK CLOBBERED?
7002 036070 002 04 0 00 021207 ER2 AC-2,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
7003 ;WAS CLOBBERED
7004 021210 SN=SN+1
7005 036071 200 04 0 00 040164 MOVE AC-2,SRCE+SIZ
7006 036072 312 04 0 00 040772 CAME AC-2,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE
7007 ;BLOCK CLOBBERED?
7008 036073 002 04 0 00 021210 ER2 AC-2,SN ;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK WAS
7009 ;CLOBBERED
7010 036074 321 10 0 00 036023 JUMPL AC+2,G21200 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 78
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0187
7011 ;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
7012 ;ADDRESS PLUS ONE - AC RANGE - MULTIPLE PATTERN
7013
7014 000014 AC=14
7015 SAVEAC (1,1)^
7016 036075 201 16 0 00 036075 MOVEI AC+2,. ;SAVE TEST PC
7017 036076 202 16 0 00 030051 MOVEM AC+2,TESTPC
7018 036077 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7019 036100 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7020
7021 021300 SN=21300
7022 000001 SRCE=<AC-13>&17 ;SOURCE BLOCK STARTING ADDRESS= <AC-13>&17
7023 000002 DEST=<AC-12>&17 ;DESTINATION BLOCK STARTING ADDRESS= <AC-12>&17
7024 000005 SIZ=5 ;BLOCK SIZE=5 WORDS
7025
7026 036101 200 14 0 00 040776 G21300: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
7027 ;SOURCE AND DESTINATION BLOCKS
7028 036102 200 00 0 00 040704 MOVE SRCE-1,[230703,,603700] ;PRELOAD WORD PRECEEDING FIRST WORD
7029 ;OF SOURCE BLOCK WITH 230703,,603700
7030 036103 200 01 0 00 040750 MOVE SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH
7031 ;252525,,252525
7032 036104 200 02 0 00 040767 MOVE SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK
7033 ;WITH 146314,,631463
7034 036105 200 03 0 00 040752 MOVE SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK
7035 ;WITH 070707,,070707
7036 036106 200 04 0 00 040774 MOVE SRCE+3,[036074,,170630] ;PRELOAD FOURTH WORD OF SOURCE BLOCK
7037 ;WITH 036074,,170630
7038 036107 200 05 0 00 040771 MOVE SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK
7039 ;WITH 017407,,603701
7040 036110 200 06 0 00 040772 MOVE SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD
7041 ;OF SOURCE BLOCK WITH 007603,,607062
7042 036111 476 00 0 00 000007 SETOM DEST+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
7043 ;WITH ONES
7044 036112 251 14 0 00 000006 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
7045 021301 SN=SN+1
7046 036113 312 00 0 00 040704 CAME SRCE-1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE
7047 ;BLOCK CLOBBERED?
7048 036114 002 00 0 00 021301 ER2 SRCE-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
7049 ;WAS CLOBBERED
7050 021302 SN=SN+1
7051 036115 312 01 0 00 040750 CAME SRCE,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED
7052 036116 002 01 0 00 021302 ER2 SRCE,SN ;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED
7053 021303 SN=SN+1
7054 036117 312 02 0 00 040750 CAME DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
7055 ;CORRECTLY FROM SOURCE?
7056 036120 002 02 0 00 021303 ER2 DEST,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
7057 ;CORRECTLY FROM SOURCE
7058 021304 SN=SN+1
7059 036121 312 03 0 00 040750 CAME DEST+1,[252525,,252525] ;WAS SECOND WORD OF DESTINATION BLOCK
7060 ;LOADED CORRECTLY FROM SOURCE?
7061 036122 002 03 0 00 021304 ER2 DEST+1,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
7062 ;CORRECTLY FROM SOURCE
7063 021305 SN=SN+1
7064 036123 312 04 0 00 040750 CAME DEST+2,[252525,,252525] ;WAS THIRD WORD OF DESTINATION BLOCK
7065 ;LOADED CORRECTLY FROM SOURCE?
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 78-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0188
7066 036124 002 04 0 00 021305 ER2 DEST+2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
7067 ;CORRECTLY FROM SOURCE
7068 021306 SN=SN+1
7069 036125 312 05 0 00 040750 CAME DEST+3,[252525,,252525] ;WAS FOURTH WORD OF DESTINATION BLOCK
7070 ;LOADED CORRECTLY FROM SOURCE?
7071 036126 002 05 0 00 021306 ER2 DEST+3,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
7072 ;CORRECTLY FROM SOURCE
7073 021307 SN=SN+1
7074 036127 312 06 0 00 040750 CAME DEST+4,[252525,,252525] ;WAS LAST WORD OF DESTINATION BLOCK
7075 ;LOADED CORRECTLY FROM SOURCE?
7076 036130 002 06 0 00 021307 ER2 DEST+4,SN ;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
7077 ;CORRECTLY FROM SOURCE
7078 021310 SN=SN+1
7079 036131 312 07 0 00 040666 CAME DEST+SIZ,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
7080 ;BLOCK CLOBBERED?
7081 036132 002 07 0 00 021310 ER2 DEST+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
7082 ;BLOCK WAS CLOBBERED
7083 036133 321 16 0 00 036101 JUMPL AC+2,G21300 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 79
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0189
7084 ;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
7085 ;ADDRESS PLUS ONE - NON-AC RANGE - MULTIPLE PATTERN
7086
7087 000004 AC=4
7088 SAVEAC (1,1)^
7089 036134 201 06 0 00 036134 MOVEI AC+2,. ;SAVE TEST PC
7090 036135 202 06 0 00 030051 MOVEM AC+2,TESTPC
7091 036136 201 06 0 00 000006 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7092 036137 202 06 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7093
7094 021400 SN=21400
7095 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK STARTING ADDRESS= BLTBLK+1
7096 040157 DEST=BLTBLK+2 ;DESTINATION BLOCK STARTING ADDRESS= BLTBLK+2
7097 000005 SIZ=5 ;BLOCK SIZE=5 WORDS
7098
7099 036140 200 04 0 00 040777 G21400: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
7100 ;SOURCE AND DESTINATION BLOCKS
7101 036141 200 00 0 00 040704 MOVE [230703,,603700]
7102 036142 202 00 0 00 040155 MOVEM SRCE-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
7103 ;WITH 23703,,603700
7104 036143 200 00 0 00 040750 MOVE [252525,,252525]
7105 036144 202 00 0 00 040156 MOVEM SRCE ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525
7106 036145 200 00 0 00 041000 MOVE [146314,,146314]
7107 036146 202 00 0 00 040157 MOVEM SRCE+1 ;PRELOAD SECOND WORD OF SOURCE BLOCK
7108 ;WITH 146314,,631463
7109 036147 200 00 0 00 040752 MOVE [070707,,070707]
7110 036150 202 00 0 00 040160 MOVEM SRCE+2 ;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707
7111 036151 200 00 0 00 040774 MOVE [036074,,170630]
7112 036152 202 00 0 00 040161 MOVEM SRCE+3 ;PRELOAD FOURTH WORD OF SOURCE BLOCK
7113 ;WITH 036074,,170630
7114 036153 200 00 0 00 040771 MOVE [017407,,603701]
7115 036154 202 00 0 00 040162 MOVEM SRCE+4 ;PRELOAD FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701
7116 036155 200 00 0 00 040772 MOVE [007603,,607062]
7117 036156 202 00 0 00 040163 MOVEM SRCE+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
7118 ;WITH 007603,,607062
7119 036157 476 00 0 00 040164 SETOM DEST+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
7120 ;WITH ONES
7121 036160 251 04 0 00 040163 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 80
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0190
7122 ;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING
7123 ;ADDRESS PLUS ONE - NON-AC RANGE - MULTIPLE PATTERN (CONTINUED)
7124
7125 021401 SN=SN+1
7126 036161 200 02 0 00 040155 MOVE AC-2,SRCE-1
7127 036162 312 02 0 00 040704 CAME AC-2,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE
7128 ;BLOCK CLOBBERED?
7129 036163 002 02 0 00 021401 ER2 AC-2,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
7130 ;WAS CLOBBERED
7131 021402 SN=SN+1
7132 036164 200 02 0 00 040156 MOVE AC-2,SRCE
7133 036165 312 02 0 00 040750 CAME AC-2,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED
7134 036166 002 02 0 00 021402 ER2 AC-2,SN ;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED
7135 021403 SN=SN+1
7136 036167 200 02 0 00 040157 MOVE AC-2,DEST
7137 036170 312 02 0 00 040750 CAME AC-2,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
7138 ;CORRECTLY FROM SOURCE?
7139 036171 002 02 0 00 021403 ER2 AC-2,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
7140 ;CORRECTLY FROM SOURCE
7141 021404 SN=SN+1
7142 036172 200 02 0 00 040160 MOVE AC-2,DEST+1
7143 036173 312 02 0 00 040750 CAME AC-2,[252525,,252525] ;WAS SECOND WORD OF DESTINATION BLOCK
7144 ;LOADED CORRECTLY FROM SOURCE?
7145 036174 002 02 0 00 021404 ER2 AC-2,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
7146 ;CORRECTLY FROM SOURCE
7147 021405 SN=SN+1
7148 036175 200 02 0 00 040161 MOVE AC-2,DEST+2
7149 036176 312 02 0 00 040750 CAME AC-2,[252525,,252525] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
7150 ;CORRECTLY FROM SOURCE?
7151 036177 002 02 0 00 021405 ER2 AC-2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
7152 ;CORRECTLY FROM SOURCE
7153 021406 SN=SN+1
7154 036200 200 02 0 00 040162 MOVE AC-2,DEST+3
7155 036201 312 02 0 00 040750 CAME AC-2,[252525,,252525] ;WAS FOURTH WORD OF DESTINATION BLOCK
7156 ;LOADED CORRECTLY FROM SOURCE?
7157 036202 002 02 0 00 021406 ER2 AC-2,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
7158 ;CORRECTLY FROM SOURCE
7159 021407 SN=SN+1
7160 036203 200 02 0 00 040163 MOVE AC-2,DEST+4
7161 036204 312 02 0 00 040750 CAME AC-2,[252525,,252525] ;WAS LAST WORD OF DESTINATION BLOCK LOADED
7162 ;CORRECTLY FROM SOURCE?
7163 036205 002 02 0 00 021407 ER2 AC-2,SN ;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
7164 ;CORRECTLY FROM SOURCE
7165 021410 SN=SN+1
7166 036206 200 02 0 00 040164 MOVE AC-2,DEST+SIZ
7167 036207 312 02 0 00 040666 CAME AC-2,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
7168 ;CLOBBERED?
7169 036210 002 02 0 00 021410 ER2 AC-2,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
7170 ;WAS CLOBBERED
7171 036211 321 06 0 00 036140 JUMPL AC+2,G21400 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 81
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0191
7172 ;DO A BLT WHERE SOURCE BLOCK HAS AC ADDRESS AND DESTINATION BLOCK
7173 ;HAS NON-AC ADDRESS- MULTIPLE PATTERN
7174
7175 000014 AC=14
7176 SAVEAC (1,1)^
7177 036212 201 16 0 00 036212 MOVEI AC+2,. ;SAVE TEST PC
7178 036213 202 16 0 00 030051 MOVEM AC+2,TESTPC
7179 036214 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7180 036215 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7181
7182 021500 SN=21500
7183 000001 SRCE=<AC-13>&17 ;SOURCE BLOCK STARTING ADDRESS=<AC-13>&17
7184 040156 DEST=BLTBLK+1 ;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1
7185 000012 SIZ=^D10 ;BLOCK SIZE=10 WORDS
7186
7187 036216 200 14 0 00 041001 G21500: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
7188 ;SOURCE AND DESTINATION BLOCKS
7189 036217 200 00 0 00 040704 MOVE SRCE-1,[230703,,603700] ;PRELOAD WORD PRECEEDING FIRST WORD
7190 ;OF SOURCE BLOCK WITH 230703,,603700
7191 036220 200 01 0 00 040750 MOVE SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH
7192 ;252525,,252525
7193 036221 200 02 0 00 040767 MOVE SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK
7194 ;WITH 146314,,631463
7195 036222 200 03 0 00 040752 MOVE SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK
7196 ;WITH 070707,,070707
7197 036223 200 04 0 00 040774 MOVE SRCE+3,[036074,,170630] ;PRELOAD FOURTH WORD OF SOURCE BLOCK
7198 ;WITH 036074,,170630
7199 036224 200 05 0 00 040771 MOVE SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK
7200 ;WITH 017407,,603701
7201 036225 200 06 0 00 041002 MOVE SRCE+5,[007700,,770077] ;PRELOAD SIXTH WORD OF SOURCE BLOCK
7202 ;WITH 007700,,770077
7203 036226 200 07 0 00 041003 MOVE SRCE+6,[003760,,077401] ;PRELOAD SEVENTH WORD OF SOURCE BLOCK
7204 ;WITH 003760,,077401
7205 036227 200 10 0 00 041004 MOVE SRCE+7,[001774,,007760] ;PRELOAD EIGHTH WORD OF SOURCE BLOCK
7206 ;WITH 001774,,007760
7207 036230 200 11 0 00 041005 MOVE SRCE+^D8,[000777,,000777] ;PRELOAD NINTH WORD OF SOURCE BLOCK
7208 ;WITH 000777,,000777
7209 036231 200 12 0 00 041006 MOVE SRCE+^D9,[000377,,600077] ;PRELOAD TENTH WORD OF SOURCE BLOCK
7210 ;WITH 000377,,600077
7211 036232 200 13 0 00 040772 MOVE SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD
7212 ;OF SOURCE BLOCK WITH 007603,,607062
7213 036233 202 00 0 00 041145 MOVEM GSVAC0#
7214 036234 561 00 0 00 040155 HRROI DEST-1
7215 036235 202 00 0 00 040155 MOVEM DEST-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION
7216 ;BLOCK WITH DEST-1
7217 036236 561 00 0 00 040156 HRROI DEST
7218 036237 202 00 0 00 040156 MOVEM DEST ;PRELOAD FIRST WORD OF DESTINATION BLOCK WITH DEST
7219 036240 561 00 0 00 040157 HRROI DEST+1
7220 036241 202 00 0 00 040157 MOVEM DEST+1 ;PRELOAD SECOND WORD OF DESTINATION BLOCK WITH DEST+1
7221 036242 561 00 0 00 040160 HRROI DEST+2
7222 036243 202 00 0 00 040160 MOVEM DEST+2 ;PRELOAD THIRD WORD OF DESTINATION BLOCK WITH DEST+2
7223 036244 561 00 0 00 040161 HRROI DEST+3
7224 036245 202 00 0 00 040161 MOVEM DEST+3 ;PRELOAD FOURTH WORD OF DESTINATION BLOCK WITH DEST+3
7225 036246 561 00 0 00 040162 HRROI DEST+4
7226 036247 202 00 0 00 040162 MOVEM DEST+4 ;PRELOAD FIFTH WORD OF DESTINATION BLOCK WITH DEST+4
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 81-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0192
7227 036250 561 00 0 00 040163 HRROI DEST+5
7228 036251 202 00 0 00 040163 MOVEM DEST+5 ;PRELOAD SIXTH WORD OF DESTINATION BLOCK WITH DEST+5
7229 036252 561 00 0 00 040164 HRROI DEST+6
7230 036253 202 00 0 00 040164 MOVEM DEST+6 ;PRELOAD SEVENTH WORD OF DESTINATION BLOCK WITH DEST+6
7231 036254 561 00 0 00 040165 HRROI DEST+7
7232 036255 202 00 0 00 040165 MOVEM DEST+7 ;PRELOAD EIGHTH WORD OF DESTINATION BLOCK WITH DEST+7
7233 036256 561 00 0 00 040166 HRROI DEST+^D8
7234 036257 202 00 0 00 040166 MOVEM DEST+^D8 ;PRELOAD NINTH WORD OF DESTINATION BLOCK WITH DEST+8
7235 036260 561 00 0 00 040167 HRROI DEST+^D9
7236 036261 202 00 0 00 040167 MOVEM DEST+^D9 ;PRELOAD TENTH WORD OF DESTINATION BLOCK WITH DEST+9
7237 036262 561 00 0 00 040170 HRROI DEST+SIZ
7238 036263 202 00 0 00 040170 MOVEM DEST+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
7239 ;WITH DEST+SIZ
7240 036264 200 00 0 00 041145 MOVE GSVAC0
7241
7242 036265 251 14 0 00 040167 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 82
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0193
7243 ;DO A BLT WHERE SOURCE BLOCK HAS AC ADDRESS AND DESTINATION BLOCK
7244 ;HAS NON-AC ADDRESS- MULTIPLE PATTERN (CONTINUED)
7245
7246 021501 SN=SN+1
7247 036266 312 00 0 00 040704 CAME SRCE-1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE
7248 ;BLOCK CLOBBERED?
7249 036267 002 00 0 00 021501 ER2 SRCE-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
7250 ;WAS CLOBBERED
7251 021502 SN=SN+1
7252 036270 312 01 0 00 040750 CAME SRCE,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED
7253 036271 002 01 0 00 021502 ER2 SRCE,SN ;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED
7254 021503 SN=SN+1
7255 036272 312 02 0 00 040767 CAME SRCE+1,[146314,,631463] ;WAS SECOND WORD OF SOURCE BLOCK CLOBBERED?
7256 036273 002 02 0 00 021503 ER2 SRCE+1,SN ;FAIL IF SECOND WORD OF SOURCE BLOCK WAS CLOBBERED
7257 021504 SN=SN+1
7258 036274 312 03 0 00 040752 CAME SRCE+2,[070707,,070707] ;WAS THIRD WORD OF SOURCE BLOCK CLOBBERED?
7259 036275 002 03 0 00 021504 ER2 SRCE+2,SN ;FAIL IF THIRD WORD OF SOURCE BLOCK WAS CLOBBERED
7260 021505 SN=SN+1
7261 036276 312 04 0 00 040774 CAME SRCE+3,[036074,,170630] ;WAS FOURTH WORD OF SOURCE BLOCK CLOBBERED?
7262 036277 002 04 0 00 021505 ER2 SRCE+3,SN ;FAIL IF FOURTH WORD OF SOURCE BLOCK WAS CLOBBERED
7263 021506 SN=SN+1
7264 036300 312 05 0 00 040771 CAME SRCE+4,[017407,,603701] ;WAS FIFTH WORD OF SOURCE BLOCK CLOBBERED?
7265 036301 002 05 0 00 021506 ER2 SRCE+4,SN ;FAIL IF FIFTH WORD OF SOURCE BLOCK WAS CLOBBERED
7266 021507 SN=SN+1
7267 036302 312 06 0 00 041002 CAME SRCE+5,[007700,,770077] ;WAS SIXTH WORD OF SOURCE BLOCK CLOBBERED?
7268 036303 002 06 0 00 021507 ER2 SRCE+5,SN ;FAIL IF SIXTH WORD OF SOURCE BLOCK WAS CLOBBERED
7269 021510 SN=SN+1
7270 036304 312 07 0 00 041003 CAME SRCE+6,[003760,,077401] ;WAS SEVENTH WORD OF SOURCE BLOCK CLOBBERED?
7271 036305 002 07 0 00 021510 ER2 SRCE+6,SN ;FAIL IF SEVENTH WORD OF SOURCE BLOCK WAS CLOBBERED
7272 021511 SN=SN+1
7273 036306 312 10 0 00 041004 CAME SRCE+7,[001774,,007760] ;WAS EIGHTH WORD OF SOURCE BLOCK CLOBBERED?
7274 036307 002 10 0 00 021511 ER2 SRCE+7,SN ;FAIL IF EIGHTH WORD OF SOURCE BLOCK WAS CLOBBERED
7275 021512 SN=SN+1
7276 036310 312 11 0 00 041005 CAME SRCE+^D8,[000777,,000777] ;WAS NINTH WORD OF SOURCE BLOCK CLOBBERED?
7277 036311 002 11 0 00 021512 ER2 SRCE+^D8,SN ;FAIL IF NINTH WORD OF SOURCE BLOCK WAS CLOBBERED
7278 021513 SN=SN+1
7279 036312 312 12 0 00 041006 CAME SRCE+^D9,[000377,,600077] ;WAS LAST WORD OF SOURCE BLOCK CLOBBERED?
7280 036313 002 12 0 00 021513 ER2 SRCE+^D9,SN ;FAIL IF LAST WORD OF SOURCE BLOCK WAS CLOBBERED
7281 021514 SN=SN+1
7282 036314 312 13 0 00 040772 CAME SRCE+SIZ,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE
7283 ;BLOCK CLOBBERED?
7284 036315 002 13 0 00 021514 ER2 SRCE+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK
7285 ;WAS CLOBBERED
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 83
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0194
7286 ;DO A BLT WHERE SOURCE BLOCK HAS AC ADDRESS AND DESTINATION BLOCK
7287 ;HAS NON-AC ADDRESS- MULTIPLE PATTERN (CONTINUED)
7288
7289 021515 SN=SN+1
7290 036316 200 15 0 00 040155 MOVE AC+1,DEST-1
7291 036317 312 15 0 00 041007 CAME AC+1,[-1,,DEST-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
7292 ;BLOCK CLOBBERED?
7293 036320 002 15 0 00 021515 ER2 AC+1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
7294 ;BLOCK WAS CLOBBERED?
7295 021516 SN=SN+1
7296 036321 200 15 0 00 040156 MOVE AC+1,DEST
7297 036322 312 15 0 00 040750 CAME AC+1,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
7298 ;CORRECTLY FROM SOURCE?
7299 036323 002 15 0 00 021516 ER2 AC+1,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
7300 ;CORRECTLY FROM SOURCE
7301 021517 SN=SN+1
7302 036324 200 15 0 00 040157 MOVE AC+1,DEST+1
7303 036325 312 15 0 00 040767 CAME AC+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
7304 ;LOADED CORRECTLY FROM SOURCE?
7305 036326 002 15 0 00 021517 ER2 AC+1,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
7306 ;CORRECTLY FROM SOURCE
7307 021520 SN=SN+1
7308 036327 200 15 0 00 040160 MOVE AC+1,DEST+2
7309 036330 312 15 0 00 040752 CAME AC+1,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED
7310 ;CORRECTLY FROM SOURCE?
7311 036331 002 15 0 00 021520 ER2 AC+1,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
7312 ;CORRECTLY FROM SOURCE
7313 021521 SN=SN+1
7314 036332 200 15 0 00 040161 MOVE AC+1,DEST+3
7315 036333 312 15 0 00 040774 CAME AC+1,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION BLOCK
7316 ;LOADED CORRECTLY FROM SOURCE?
7317 036334 002 15 0 00 021521 ER2 AC+1,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
7318 ;CORRECTLY FROM SOURCE
7319 021522 SN=SN+1
7320 036335 200 15 0 00 040162 MOVE AC+1,DEST+4
7321 036336 312 15 0 00 040771 CAME AC+1,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK
7322 ;LOADED CORRECTLY FROM SOURCE?
7323 036337 002 15 0 00 021522 ER2 AC+1,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
7324 ;CORRECTLY FROM SOURCE
7325 021523 SN=SN+1
7326 036340 200 15 0 00 040163 MOVE AC+1,DEST+5
7327 036341 312 15 0 00 041002 CAME AC+1,[007700,,770077] ;WAS SIXTH WORD OF DESTINATION BLOCK LOADED
7328 ;CORRECTLY FROM SOURCE?
7329 036342 002 15 0 00 021523 ER2 AC+1,SN ;FAIL IF SIXTH WORD OF DESTINATION BLOCK NOT LOADED
7330 ;CORRECTLY FROM SOURCE
7331 021524 SN=SN+1
7332 036343 200 15 0 00 040164 MOVE AC+1,DEST+6
7333 036344 312 15 0 00 041003 CAME AC+1,[003760,,077401] ;WAS SEVENTH WORD OF DESTINATION BLOCK
7334 ;LOADED CORRECTLY FROM SOURCE?
7335 036345 002 15 0 00 021524 ER2 AC+1,SN ;FAIL IF SEVENTH WORD OF DESTINATION BLOCK NOT LOADED
7336 ;CORRECTLY FROM SOURCE
7337 021525 SN=SN+1
7338 036346 200 15 0 00 040165 MOVE AC+1,DEST+7
7339 036347 312 15 0 00 041004 CAME AC+1,[001774,,007760] ;WAS EIGHTH WORD OF DESTINATION BLOCK
7340 ;LOADED CORRECTLY FROM SOURCE?
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 83-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0195
7341 036350 002 15 0 00 021525 ER2 AC+1,SN ;FAIL IF EIGHTH WORD OF DESTINATION BLOCK NOT LOADED
7342 ;CORRECTLY FROM SOURCE
7343 021526 SN=SN+1
7344 036351 200 15 0 00 040166 MOVE AC+1,DEST+^D8
7345 036352 312 15 0 00 041005 CAME AC+1,[000777,,000777] ;WAS NINTH WORD OF DESTINATION BLOCK LOADED
7346 ;CORRECTLY FROM SOURCE?
7347 036353 002 15 0 00 021526 ER2 AC+1,SN ;FAIL IF NINTH WORD OF DESTINATION BLOCK NOT LOADED
7348 ;CORRECTLY FROM SOURCE
7349 021527 SN=SN+1
7350 036354 200 15 0 00 040167 MOVE AC+1,DEST+^D9
7351 036355 312 15 0 00 041006 CAME AC+1,[000377,,600077] ;WAS LAST WORD OF DESTINATION BLOCK LOADED
7352 ;CORRECTLY FROM SOURCE?
7353 036356 002 15 0 00 021527 ER2 AC+1,SN ;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
7354 ;CORRECTLY FROM SOURCE
7355 021530 SN=SN+1
7356 036357 200 15 0 00 040170 MOVE AC+1,DEST+SIZ
7357 036360 312 15 0 00 041010 CAME AC+1,[-1,,DEST+SIZ] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
7358 ;BLOCK CLOBBERED?
7359 036361 002 15 0 00 021530 ER2 AC+1,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK
7360 ;WAS CLOBBERED
7361 036362 321 16 0 00 036216 JUMPL AC+2,G21500 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 84
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0196
7362 ;DO A BLT WHERE SOURCE BLOCK HAS NON-AC ADDRESS AND DESTINATION BLOCK
7363 ;HAS AC ADDRESS - MULTIPLE PATTERN
7364
7365 000014 AC=14
7366 SAVEAC (1,1)^
7367 036363 201 16 0 00 036363 MOVEI AC+2,. ;SAVE TEST PC
7368 036364 202 16 0 00 030051 MOVEM AC+2,TESTPC
7369 036365 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7370 036366 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7371
7372 021600 SN=21600
7373 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK STARTING ADDRESS= BLTBLK+1
7374 000001 DEST=<AC-13>&17 ;DESTINATION BLOCK STARTING ADDRESS= <AC-13>&17
7375 000012 SIZ=^D10 ;BLOCK SIZE=10 WORDS
7376
7377 036367 200 14 0 00 041011 G21600: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF
7378 ;SOURCE AND DESTINATION BLOCKS
7379 036370 200 00 0 00 040704 MOVE [230703,,603700]
7380 036371 202 00 0 00 040155 MOVEM SRCE-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
7381 ;WITH 230703,,603700
7382 036372 200 00 0 00 040750 MOVE [252525,,252525]
7383 036373 202 00 0 00 040156 MOVEM SRCE ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525
7384 036374 200 00 0 00 040767 MOVE [146314,,631463]
7385 036375 202 00 0 00 040157 MOVEM SRCE+1 ;PRELOAD SECOND WORD OF SOURCE BLOCK
7386 ;WITH 146314,,631463
7387 036376 200 00 0 00 040752 MOVE [070707,,070707]
7388 036377 202 00 0 00 040160 MOVEM SRCE+2 ;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707
7389 036400 200 00 0 00 040774 MOVE [036074,,170630]
7390 036401 202 00 0 00 040161 MOVEM SRCE+3 ;PRELOAD FOURTH WORD OF SOURCE BLOCK
7391 ;WITH 036074,,170630
7392 036402 200 00 0 00 040771 MOVE [017407,,603701]
7393 036403 202 00 0 00 040162 MOVEM SRCE+4 ;PRELOAD
7394 ;FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701
7395 036404 200 00 0 00 041002 MOVE [007700,,770077]
7396 036405 202 00 0 00 040163 MOVEM SRCE+5 ;PRELOAD SIXTH WORD OF SOURCE BLOCK WITH 007700,,770077
7397 036406 200 00 0 00 041003 MOVE [003760,,077401]
7398 036407 202 00 0 00 040164 MOVEM SRCE+6 ;PRELOAD SEVENTH WORD OF SOURCE BLOCK
7399 ;WITH 003760,,077401
7400 036410 200 00 0 00 041004 MOVE [001774,,007760]
7401 036411 202 00 0 00 040165 MOVEM SRCE+7 ;PRELOAD EIGHTH WORD OF SOURCE BLOCK
7402 ;WITH 001774,,007760
7403 036412 200 00 0 00 041005 MOVE [000777,,000777]
7404 036413 202 00 0 00 040166 MOVEM SRCE+^D8 ;PRELOAD NINTH WORD OF SOURCE BLOCK WITH 000777,,000777
7405 036414 200 00 0 00 041006 MOVE [000377,,600077]
7406 036415 202 00 0 00 040167 MOVEM SRCE+^D9 ;PRELOAD TENTH WORD OF SOURCE BLOCK WITH 000377,,600077
7407 036416 200 00 0 00 040772 MOVE [007603,,607062]
7408 036417 202 00 0 00 040170 MOVEM SRCE+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK
7409 ;WITH 007603,,607062
7410 036420 561 00 0 00 000000 HRROI DEST-1,DEST-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION
7411 ;BLOCK WITH DEST-1
7412 036421 561 01 0 00 000001 HRROI DEST,DEST ;PRELOAD FIRST WORD OF DESTINATION BLOCK WITH DEST
7413 036422 561 02 0 00 000002 HRROI DEST+1,DEST+1 ;PRELOAD SECOND WORD OF DESTINATION BLOCK
7414 ;WITH DEST+1,DEST+1
7415 036423 561 03 0 00 000003 HRROI DEST+2,DEST+2 ;PRELOAD THIRD WORD OF DESTINATION BLOCK WITH DEST+2
7416 036424 561 04 0 00 000004 HRROI DEST+3,DEST+3 ;PRELOAD FOURTH WORD OF DESTINATION BLOCK WITH DEST+3
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 84-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0197
7417 036425 561 05 0 00 000005 HRROI DEST+4,DEST+4 ;PRELOAD FIFTH WORD OF DESTINATION BLOCK WITH DEST+4
7418 036426 561 06 0 00 000006 HRROI DEST+5,DEST+5 ;PRELOAD SIXTH WORD OF DESTINATION BLOCK WITH DEST+5
7419 036427 561 07 0 00 000007 HRROI DEST+6,DEST+6 ;PRELOAD SEVENTH WORD OF DESTINATION BLOCK WITH DEST+6
7420 036430 561 10 0 00 000010 HRROI DEST+7,DEST+7 ;PRELOAD EIGHTH WORD OF DESTINATION BLOCK WITH DEST+7
7421 036431 561 11 0 00 000011 HRROI DEST+^D8,DEST+^D8 ;PRELOAD NINTH WORD OF DESTINATION BLOCK WITH DEST+8
7422 036432 561 12 0 00 000012 HRROI DEST+^D9,DEST+^D9 ;PRELOAD TENTH WORD OF DESTINATION BLOCK WITH DEST+9
7423 036433 561 13 0 00 000013 HRROI DEST+SIZ,DEST+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION
7424 ;BLOCK WITH DEST+SIZ
7425 036434 251 14 0 00 000012 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 85
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0198
7426 ;DO A BLT WHERE SOURCE BLOCK HAS NON-AC ADDRESS AND DESTINATION BLOCK
7427 ;HAS AC ADDRESS - MULTIPLE PATTERN (CONTINUED)
7428
7429 021601 SN=SN+1
7430 036435 200 15 0 00 040155 MOVE AC+1,SRCE-1
7431 036436 312 15 0 00 040704 CAME AC+1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE
7432 ;BLOCK CLOBBERED?
7433 036437 002 15 0 00 021601 ER2 AC+1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK
7434 ;WAS CLOBBERED
7435 021602 SN=SN+1
7436 036440 200 15 0 00 040156 MOVE AC+1,SRCE
7437 036441 312 15 0 00 040750 CAME AC+1,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED
7438 036442 002 15 0 00 021602 ER2 AC+1,SN ;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED
7439 021603 SN=SN+1
7440 036443 200 15 0 00 040157 MOVE AC+1,SRCE+1
7441 036444 312 15 0 00 040767 CAME AC+1,[146314,,631463] ;WAS SECOND WORD OF SOURCE BLOCK CLOBBERED?
7442 036445 002 15 0 00 021603 ER2 AC+1,SN ;FAIL IF SECOND WORD OF SOURCE BLOCK WAS CLOBBERED
7443 021604 SN=SN+1
7444 036446 200 15 0 00 040160 MOVE AC+1,SRCE+2
7445 036447 312 15 0 00 040752 CAME AC+1,[070707,,070707] ;WAS THIRD WORD OF SOURCE BLOCK CLOBBERED?
7446 036450 002 15 0 00 021604 ER2 AC+1,SN ;FAIL IF THIRD WORD OF SOURCE BLOCK WAS CLOBBERED
7447 021605 SN=SN+1
7448 036451 200 15 0 00 040161 MOVE AC+1,SRCE+3
7449 036452 312 15 0 00 040774 CAME AC+1,[036074,,170630] ;WAS FOURTH WORD OF SOURCE BLOCK CLOBBERED?
7450 036453 002 15 0 00 021605 ER2 AC+1,SN ;FAIL IF FOURTH WORD OF SOURCE BLOCK WAS CLOBBERED
7451 021606 SN=SN+1
7452 036454 200 15 0 00 040162 MOVE AC+1,SRCE+4
7453 036455 312 15 0 00 040771 CAME AC+1,[017407,,603701] ;WAS FIFTH WORD OF SOURCE BLOCK CLOBBERED?
7454 036456 002 15 0 00 021606 ER2 AC+1,SN ;FAIL IF FIFTH WORD OF SOURCE BLOCK WAS CLOBBERED
7455 021607 SN=SN+1
7456 036457 200 15 0 00 040163 MOVE AC+1,SRCE+5
7457 036460 312 15 0 00 041002 CAME AC+1,[007700,,770077] ;WAS SIXTH WORD OF SOURCE BLOCK CLOBBERED?
7458 036461 002 15 0 00 021607 ER2 AC+1,SN ;FAIL IF SIXTH WORD OF SOURCE BLOCK WAS CLOBBERED
7459 021610 SN=SN+1
7460 036462 200 15 0 00 040164 MOVE AC+1,SRCE+6
7461 036463 312 15 0 00 041003 CAME AC+1,[003760,,077401] ;WAS SEVENTH WORD OF SOURCE BLOCK CLOBBERED?
7462 036464 002 15 0 00 021610 ER2 AC+1,SN ;FAIL IF SEVENTH WORD OF SOURCE BLOCK WAS CLOBBERED
7463 021611 SN=SN+1
7464 036465 200 15 0 00 040165 MOVE AC+1,SRCE+7
7465 036466 312 15 0 00 041004 CAME AC+1,[001774,,007760] ;WAS EIGHTH WORD OF SOURCE BLOCK CLOBBERED?
7466 036467 002 15 0 00 021611 ER2 AC+1,SN ;FAIL IF EIGTH WORD OF SOURCE BLOCK WAS CLOBBERED
7467 021612 SN=SN+1
7468 036470 200 15 0 00 040166 MOVE AC+1,SRCE+^D8
7469 036471 312 15 0 00 041005 CAME AC+1,[000777,,000777] ;WAS NINTH WORD OF SOURCE BLOCK CLOBBERED?
7470 036472 002 15 0 00 021612 ER2 AC+1,SN ;FAIL IF NINTH WORD OF SOURCE BLOCK WAS CLOBBERED
7471 021613 SN=SN+1
7472 036473 200 15 0 00 040167 MOVE AC+1,SRCE+^D9
7473 036474 312 15 0 00 041006 CAME AC+1,[000377,,600077] ;WAS LAST WORD OF SOURCE BLOCK CLOBBERED?
7474 036475 002 15 0 00 021613 ER2 AC+1,SN ;FAIL IF LAST WORD OF SOURCE BLOCK WAS CLOBBERED
7475 021614 SN=SN+1
7476 036476 200 15 0 00 040170 MOVE AC+1,SRCE+SIZ
7477 036477 312 15 0 00 040772 CAME AC+1,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE
7478 ;BLOCK CLOBBERED?
7479 036500 002 15 0 00 021614 ER2 AC+1,SN ;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK WAS
7480 ;CLOBBERED
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 86
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0199
7481 ;DO A BLT WHERE SOURCE BLOCK HAS NON-AC ADDRESS AND DESTINATION BLOCK
7482 ;HAS AC ADDRESS - MULTIPLE PATTERN (CONTINUED)
7483
7484 021615 SN=SN+1
7485 036501 312 00 0 00 041012 CAME DEST-1,[-1,,DEST-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION
7486 ;BLOCK CLOBBERED?
7487 036502 002 00 0 00 021615 ER2 DEST-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION
7488 ;BLOCK WAS CLOBBERED?
7489 021616 SN=SN+1
7490 036503 312 01 0 00 040750 CAME DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED
7491 ;CORRECTLY FROM SOURCE?
7492 036504 002 01 0 00 021616 ER2 DEST,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED
7493 ;CORRECTLY FROM SOURCE
7494 021617 SN=SN+1
7495 036505 312 02 0 00 040767 CAME DEST+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK
7496 ;LOADED CORRECTLY FROM SOURCE?
7497 036506 002 02 0 00 021617 ER2 DEST+1,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED
7498 ;CORRECTLY FROM SOURCE
7499 021620 SN=SN+1
7500 036507 312 03 0 00 040752 CAME DEST+2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK
7501 ;LOADED CORRECTLY FROM SOURCE?
7502 036510 002 03 0 00 021620 ER2 DEST+2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED
7503 ;CORRECTLY FROM SOURCE
7504 021621 SN=SN+1
7505 036511 312 04 0 00 040774 CAME DEST+3,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION BLOCK
7506 ;LOADED CORRECTLY FROM SOURCE?
7507 036512 002 04 0 00 021621 ER2 DEST+3,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED
7508 ;CORRECTLY FROM SOURCE
7509 021622 SN=SN+1
7510 036513 312 05 0 00 040771 CAME DEST+4,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK
7511 ;LOADED CORRECTLY FROM SOURCE?
7512 036514 002 05 0 00 021622 ER2 DEST+4,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED
7513 ;CORRECTLY FROM SOURCE
7514 021623 SN=SN+1
7515 036515 312 06 0 00 041002 CAME DEST+5,[007700,,770077] ;WAS SIXTH WORD OF DESTINATION BLOCK
7516 ;LOADED CORRECTLY FROM SOURCE?
7517 036516 002 06 0 00 021623 ER2 DEST+5,SN ;FAIL IF SIXTH WORD OF DESTINATION BLOCK NOT LOADED
7518 ;CORRECTLY FROM SOURCE
7519 021624 SN=SN+1
7520 036517 312 07 0 00 041003 CAME DEST+6,[003760,,077401] ;WAS SEVENTH WORD OF DESTINATION BLOCK
7521 ;LOADED CORRECTLY FROM SOURCE?
7522 036520 002 07 0 00 021624 ER2 DEST+6,SN ;FAIL IF SEVENTH WORD OF DESTINATION BLOCK NOT LOADED
7523 ;CORRECTLY FROM SOURCE
7524 021625 SN=SN+1
7525 036521 312 10 0 00 041004 CAME DEST+7,[001774,,007760] ;WAS EIGHTH WORD OF DESTINATION BLOCK
7526 ;LOADED CORRECTLY FROM SOURCE?
7527 036522 002 10 0 00 021625 ER2 DEST+7,SN ;FAIL IF EIGHTH WORD OF DESTINATION BLOCK NOT LOADED
7528 ;CORRECTLY FROM SOURCE
7529 021626 SN=SN+1
7530 036523 312 11 0 00 041005 CAME DEST+^D8,[000777,,000777] ;WAS NINTH WORD OF DESTINATION BLOCK
7531 ;LOADED CORRECTLY FROM SOURCE?
7532 036524 002 11 0 00 021626 ER2 DEST+^D8,SN ;FAIL IF NINTH WORD OF DESTINATION BLOCK NOT LOADED
7533 ;CORRECTLY FROM SOURCE
7534 021627 SN=SN+1
7535 036525 312 12 0 00 041006 CAME DEST+^D9,[000377,,600077] ;WAS LAST WORD OF DESTINATION BLOCK
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 86-1
DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0200
7536 ;LOADED CORRECTLY FROM SOURCE?
7537 036526 002 12 0 00 021627 ER2 DEST+^D9,SN ;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED
7538 ;CORRECTLY FROM SOURCE
7539 021630 SN=SN+1
7540 036527 312 13 0 00 041013 CAME DEST+SIZ,[-1,,DEST+SIZ] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION
7541 ;BLOCK CLOBBERED?
7542 036530 002 13 0 00 021630 ER2 DEST+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION
7543 ;BLOCK WAS CLOBBERED
7544 036531 321 16 0 00 036367 JUMPL AC+2,G21600 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 87
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0201
7545 SUBTTL PART III - GENERAL JFFO TEST
7546
7547 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0
7548
7549 030100 G30000: SN=30100
7550 777777 777777 AC=-1
7551
7552 036532 201 00 0 00 041014 MOVEI [ASCIZ/JFFO NO-JUMP FAILED/]
7553 036533 202 00 0 00 040577 MOVEM SPDES ;INITIALIZE SPECIAL FAILURE DESCRIPTOR
7554
7555 G30100: REPEAT ^D13,
7556 <;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
7557 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
7558
7559 SN=SN+1
7560 AC=<AC+1>&17
7561 SAVEAC (1,1)
7562
7563 SETZM AC ;CLEAR AC
7564 SETOM <AC+1>&17 ;INITIALIZE AC+1
7565 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
7566 JRST .+2 ;PASS IF JFFO DOES NOT JUMP
7567 ER2 AC,SN ;ERROR IF JFFO JUMPED
7568 SKIPE AC ;EXAMINE AC
7569 ER3 AC,SN ;C(AC) WAS CLOBBERED
7570 SKIPE <AC+1>&17 ;EXAMINE AC+1
7571 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED
7572 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
7573 >
7574 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
7575 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
7576
7577 030101 SN=SN+1
7578 000000 AC=<AC+1>&17
7579 SAVEAC (1,1)^
7580 036534 201 02 0 00 036534 MOVEI AC+2,. ;SAVE TEST PC
7581 036535 202 02 0 00 030051 MOVEM AC+2,TESTPC
7582 036536 201 02 0 00 000002 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7583 036537 202 02 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7584
7585 036540 402 00 0 00 000000 SETZM AC ;CLEAR AC
7586 036541 476 00 0 00 000001 SETOM <AC+1>&17 ;INITIALIZE AC+1
7587 036542 243 00 0 00 036544 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
7588 036543 254 00 0 00 036545 JRST .+2 ;PASS IF JFFO DOES NOT JUMP
7589 036544 002 00 0 00 030101 ER2 AC,SN ;ERROR IF JFFO JUMPED
7590 036545 332 00 0 00 000000 SKIPE AC ;EXAMINE AC
7591 036546 003 00 0 00 030101 ER3 AC,SN ;C(AC) WAS CLOBBERED
7592 036547 332 00 0 00 000001 SKIPE <AC+1>&17 ;EXAMINE AC+1
7593 036550 004 01 0 00 030101 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED
7594 036551 321 02 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
7595
7596 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
7597 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
7598
7599 030102 SN=SN+1
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 87-1
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0202
7600 000001 AC=<AC+1>&17
7601 SAVEAC (1,1)^
7602 036552 201 03 0 00 036552 MOVEI AC+2,. ;SAVE TEST PC
7603 036553 202 03 0 00 030051 MOVEM AC+2,TESTPC
7604 036554 201 03 0 00 000003 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7605 036555 202 03 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7606
7607 036556 402 00 0 00 000001 SETZM AC ;CLEAR AC
7608 036557 476 00 0 00 000002 SETOM <AC+1>&17 ;INITIALIZE AC+1
7609 036560 243 01 0 00 036562 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
7610 036561 254 00 0 00 036563 JRST .+2 ;PASS IF JFFO DOES NOT JUMP
7611 036562 002 01 0 00 030102 ER2 AC,SN ;ERROR IF JFFO JUMPED
7612 036563 332 00 0 00 000001 SKIPE AC ;EXAMINE AC
7613 036564 003 01 0 00 030102 ER3 AC,SN ;C(AC) WAS CLOBBERED
7614 036565 332 00 0 00 000002 SKIPE <AC+1>&17 ;EXAMINE AC+1
7615 036566 004 02 0 00 030102 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED
7616 036567 321 03 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
7617
7618 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
7619 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
7620
7621 030103 SN=SN+1
7622 000002 AC=<AC+1>&17
7623 SAVEAC (1,1)^
7624 036570 201 04 0 00 036570 MOVEI AC+2,. ;SAVE TEST PC
7625 036571 202 04 0 00 030051 MOVEM AC+2,TESTPC
7626 036572 201 04 0 00 000004 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7627 036573 202 04 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7628
7629 036574 402 00 0 00 000002 SETZM AC ;CLEAR AC
7630 036575 476 00 0 00 000003 SETOM <AC+1>&17 ;INITIALIZE AC+1
7631 036576 243 02 0 00 036600 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
7632 036577 254 00 0 00 036601 JRST .+2 ;PASS IF JFFO DOES NOT JUMP
7633 036600 002 02 0 00 030103 ER2 AC,SN ;ERROR IF JFFO JUMPED
7634 036601 332 00 0 00 000002 SKIPE AC ;EXAMINE AC
7635 036602 003 02 0 00 030103 ER3 AC,SN ;C(AC) WAS CLOBBERED
7636 036603 332 00 0 00 000003 SKIPE <AC+1>&17 ;EXAMINE AC+1
7637 036604 004 03 0 00 030103 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED
7638 036605 321 04 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
7639
7640 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
7641 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
7642
7643 030104 SN=SN+1
7644 000003 AC=<AC+1>&17
7645 SAVEAC (1,1)^
7646 036606 201 05 0 00 036606 MOVEI AC+2,. ;SAVE TEST PC
7647 036607 202 05 0 00 030051 MOVEM AC+2,TESTPC
7648 036610 201 05 0 00 000005 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7649 036611 202 05 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7650
7651 036612 402 00 0 00 000003 SETZM AC ;CLEAR AC
7652 036613 476 00 0 00 000004 SETOM <AC+1>&17 ;INITIALIZE AC+1
7653 036614 243 03 0 00 036616 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
7654 036615 254 00 0 00 036617 JRST .+2 ;PASS IF JFFO DOES NOT JUMP
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 87-2
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0203
7655 036616 002 03 0 00 030104 ER2 AC,SN ;ERROR IF JFFO JUMPED
7656 036617 332 00 0 00 000003 SKIPE AC ;EXAMINE AC
7657 036620 003 03 0 00 030104 ER3 AC,SN ;C(AC) WAS CLOBBERED
7658 036621 332 00 0 00 000004 SKIPE <AC+1>&17 ;EXAMINE AC+1
7659 036622 004 04 0 00 030104 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED
7660 036623 321 05 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
7661
7662 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
7663 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
7664
7665 030105 SN=SN+1
7666 000004 AC=<AC+1>&17
7667 SAVEAC (1,1)^
7668 036624 201 06 0 00 036624 MOVEI AC+2,. ;SAVE TEST PC
7669 036625 202 06 0 00 030051 MOVEM AC+2,TESTPC
7670 036626 201 06 0 00 000006 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7671 036627 202 06 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7672
7673 036630 402 00 0 00 000004 SETZM AC ;CLEAR AC
7674 036631 476 00 0 00 000005 SETOM <AC+1>&17 ;INITIALIZE AC+1
7675 036632 243 04 0 00 036634 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
7676 036633 254 00 0 00 036635 JRST .+2 ;PASS IF JFFO DOES NOT JUMP
7677 036634 002 04 0 00 030105 ER2 AC,SN ;ERROR IF JFFO JUMPED
7678 036635 332 00 0 00 000004 SKIPE AC ;EXAMINE AC
7679 036636 003 04 0 00 030105 ER3 AC,SN ;C(AC) WAS CLOBBERED
7680 036637 332 00 0 00 000005 SKIPE <AC+1>&17 ;EXAMINE AC+1
7681 036640 004 05 0 00 030105 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED
7682 036641 321 06 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
7683
7684 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
7685 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
7686
7687 030106 SN=SN+1
7688 000005 AC=<AC+1>&17
7689 SAVEAC (1,1)^
7690 036642 201 07 0 00 036642 MOVEI AC+2,. ;SAVE TEST PC
7691 036643 202 07 0 00 030051 MOVEM AC+2,TESTPC
7692 036644 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7693 036645 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7694
7695 036646 402 00 0 00 000005 SETZM AC ;CLEAR AC
7696 036647 476 00 0 00 000006 SETOM <AC+1>&17 ;INITIALIZE AC+1
7697 036650 243 05 0 00 036652 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
7698 036651 254 00 0 00 036653 JRST .+2 ;PASS IF JFFO DOES NOT JUMP
7699 036652 002 05 0 00 030106 ER2 AC,SN ;ERROR IF JFFO JUMPED
7700 036653 332 00 0 00 000005 SKIPE AC ;EXAMINE AC
7701 036654 003 05 0 00 030106 ER3 AC,SN ;C(AC) WAS CLOBBERED
7702 036655 332 00 0 00 000006 SKIPE <AC+1>&17 ;EXAMINE AC+1
7703 036656 004 06 0 00 030106 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED
7704 036657 321 07 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
7705
7706 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
7707 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
7708
7709 030107 SN=SN+1
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 87-3
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0204
7710 000006 AC=<AC+1>&17
7711 SAVEAC (1,1)^
7712 036660 201 10 0 00 036660 MOVEI AC+2,. ;SAVE TEST PC
7713 036661 202 10 0 00 030051 MOVEM AC+2,TESTPC
7714 036662 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7715 036663 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7716
7717 036664 402 00 0 00 000006 SETZM AC ;CLEAR AC
7718 036665 476 00 0 00 000007 SETOM <AC+1>&17 ;INITIALIZE AC+1
7719 036666 243 06 0 00 036670 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
7720 036667 254 00 0 00 036671 JRST .+2 ;PASS IF JFFO DOES NOT JUMP
7721 036670 002 06 0 00 030107 ER2 AC,SN ;ERROR IF JFFO JUMPED
7722 036671 332 00 0 00 000006 SKIPE AC ;EXAMINE AC
7723 036672 003 06 0 00 030107 ER3 AC,SN ;C(AC) WAS CLOBBERED
7724 036673 332 00 0 00 000007 SKIPE <AC+1>&17 ;EXAMINE AC+1
7725 036674 004 07 0 00 030107 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED
7726 036675 321 10 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
7727
7728 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
7729 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
7730
7731 030110 SN=SN+1
7732 000007 AC=<AC+1>&17
7733 SAVEAC (1,1)^
7734 036676 201 11 0 00 036676 MOVEI AC+2,. ;SAVE TEST PC
7735 036677 202 11 0 00 030051 MOVEM AC+2,TESTPC
7736 036700 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7737 036701 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7738
7739 036702 402 00 0 00 000007 SETZM AC ;CLEAR AC
7740 036703 476 00 0 00 000010 SETOM <AC+1>&17 ;INITIALIZE AC+1
7741 036704 243 07 0 00 036706 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
7742 036705 254 00 0 00 036707 JRST .+2 ;PASS IF JFFO DOES NOT JUMP
7743 036706 002 07 0 00 030110 ER2 AC,SN ;ERROR IF JFFO JUMPED
7744 036707 332 00 0 00 000007 SKIPE AC ;EXAMINE AC
7745 036710 003 07 0 00 030110 ER3 AC,SN ;C(AC) WAS CLOBBERED
7746 036711 332 00 0 00 000010 SKIPE <AC+1>&17 ;EXAMINE AC+1
7747 036712 004 10 0 00 030110 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED
7748 036713 321 11 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
7749
7750 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
7751 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
7752
7753 030111 SN=SN+1
7754 000010 AC=<AC+1>&17
7755 SAVEAC (1,1)^
7756 036714 201 12 0 00 036714 MOVEI AC+2,. ;SAVE TEST PC
7757 036715 202 12 0 00 030051 MOVEM AC+2,TESTPC
7758 036716 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7759 036717 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7760
7761 036720 402 00 0 00 000010 SETZM AC ;CLEAR AC
7762 036721 476 00 0 00 000011 SETOM <AC+1>&17 ;INITIALIZE AC+1
7763 036722 243 10 0 00 036724 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
7764 036723 254 00 0 00 036725 JRST .+2 ;PASS IF JFFO DOES NOT JUMP
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 87-4
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0205
7765 036724 002 10 0 00 030111 ER2 AC,SN ;ERROR IF JFFO JUMPED
7766 036725 332 00 0 00 000010 SKIPE AC ;EXAMINE AC
7767 036726 003 10 0 00 030111 ER3 AC,SN ;C(AC) WAS CLOBBERED
7768 036727 332 00 0 00 000011 SKIPE <AC+1>&17 ;EXAMINE AC+1
7769 036730 004 11 0 00 030111 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED
7770 036731 321 12 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
7771
7772 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
7773 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
7774
7775 030112 SN=SN+1
7776 000011 AC=<AC+1>&17
7777 SAVEAC (1,1)^
7778 036732 201 13 0 00 036732 MOVEI AC+2,. ;SAVE TEST PC
7779 036733 202 13 0 00 030051 MOVEM AC+2,TESTPC
7780 036734 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7781 036735 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7782
7783 036736 402 00 0 00 000011 SETZM AC ;CLEAR AC
7784 036737 476 00 0 00 000012 SETOM <AC+1>&17 ;INITIALIZE AC+1
7785 036740 243 11 0 00 036742 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
7786 036741 254 00 0 00 036743 JRST .+2 ;PASS IF JFFO DOES NOT JUMP
7787 036742 002 11 0 00 030112 ER2 AC,SN ;ERROR IF JFFO JUMPED
7788 036743 332 00 0 00 000011 SKIPE AC ;EXAMINE AC
7789 036744 003 11 0 00 030112 ER3 AC,SN ;C(AC) WAS CLOBBERED
7790 036745 332 00 0 00 000012 SKIPE <AC+1>&17 ;EXAMINE AC+1
7791 036746 004 12 0 00 030112 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED
7792 036747 321 13 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
7793
7794 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
7795 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
7796
7797 030113 SN=SN+1
7798 000012 AC=<AC+1>&17
7799 SAVEAC (1,1)^
7800 036750 201 14 0 00 036750 MOVEI AC+2,. ;SAVE TEST PC
7801 036751 202 14 0 00 030051 MOVEM AC+2,TESTPC
7802 036752 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7803 036753 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7804
7805 036754 402 00 0 00 000012 SETZM AC ;CLEAR AC
7806 036755 476 00 0 00 000013 SETOM <AC+1>&17 ;INITIALIZE AC+1
7807 036756 243 12 0 00 036760 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
7808 036757 254 00 0 00 036761 JRST .+2 ;PASS IF JFFO DOES NOT JUMP
7809 036760 002 12 0 00 030113 ER2 AC,SN ;ERROR IF JFFO JUMPED
7810 036761 332 00 0 00 000012 SKIPE AC ;EXAMINE AC
7811 036762 003 12 0 00 030113 ER3 AC,SN ;C(AC) WAS CLOBBERED
7812 036763 332 00 0 00 000013 SKIPE <AC+1>&17 ;EXAMINE AC+1
7813 036764 004 13 0 00 030113 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED
7814 036765 321 14 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
7815
7816 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
7817 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
7818
7819 030114 SN=SN+1
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 87-5
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0206
7820 000013 AC=<AC+1>&17
7821 SAVEAC (1,1)^
7822 036766 201 15 0 00 036766 MOVEI AC+2,. ;SAVE TEST PC
7823 036767 202 15 0 00 030051 MOVEM AC+2,TESTPC
7824 036770 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7825 036771 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7826
7827 036772 402 00 0 00 000013 SETZM AC ;CLEAR AC
7828 036773 476 00 0 00 000014 SETOM <AC+1>&17 ;INITIALIZE AC+1
7829 036774 243 13 0 00 036776 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
7830 036775 254 00 0 00 036777 JRST .+2 ;PASS IF JFFO DOES NOT JUMP
7831 036776 002 13 0 00 030114 ER2 AC,SN ;ERROR IF JFFO JUMPED
7832 036777 332 00 0 00 000013 SKIPE AC ;EXAMINE AC
7833 037000 003 13 0 00 030114 ER3 AC,SN ;C(AC) WAS CLOBBERED
7834 037001 332 00 0 00 000014 SKIPE <AC+1>&17 ;EXAMINE AC+1
7835 037002 004 14 0 00 030114 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED
7836 037003 321 15 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
7837
7838 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0.
7839 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
7840
7841 030115 SN=SN+1
7842 000014 AC=<AC+1>&17
7843 SAVEAC (1,1)^
7844 037004 201 16 0 00 037004 MOVEI AC+2,. ;SAVE TEST PC
7845 037005 202 16 0 00 030051 MOVEM AC+2,TESTPC
7846 037006 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7847 037007 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7848
7849 037010 402 00 0 00 000014 SETZM AC ;CLEAR AC
7850 037011 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
7851 037012 243 14 0 00 037014 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP
7852 037013 254 00 0 00 037015 JRST .+2 ;PASS IF JFFO DOES NOT JUMP
7853 037014 002 14 0 00 030115 ER2 AC,SN ;ERROR IF JFFO JUMPED
7854 037015 332 00 0 00 000014 SKIPE AC ;EXAMINE AC
7855 037016 003 14 0 00 030115 ER3 AC,SN ;C(AC) WAS CLOBBERED
7856 037017 332 00 0 00 000015 SKIPE <AC+1>&17 ;EXAMINE AC+1
7857 037020 004 15 0 00 030115 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED
7858 037021 321 16 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
7859
7860 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 87-6
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0207
7861 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
7862 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
7863
7864 037022 201 00 0 00 041020 MOVEI [ASCIZ/JFFO JUMP FAILED/]
7865 037023 202 00 0 00 040577 MOVEM SPDES ;INITIALIZE SPECIAL FAILURE DESCRIPTER
7866
7867 037024 477 14 0 00 000015 G30200: SETOB AC,<AC+1>&17 ;INITIALIZE AC AND AC+1
7868 037025 243 14 0 00 037027 JFFO AC,.+2
7869 037026 002 14 0 00 030201 ER2 AC,30201 ;ERROR IF JFFO DID NOT JUMP
7870 037027 312 14 0 00 040666 CAME AC,[-1,,-1] ;EXAMINE AC
7871 037030 003 14 0 00 030201 ER3 AC,30201 ;C(AC) WAS CLOBBERED
7872 037031 332 00 0 00 000015 SKIPE <AC+1>&17 ;EXAMINE AC+1
7873 037032 004 15 0 00 030201 ER4 AC+1,30201 ;C(AC+1) NOT = TO NO OF LEADING ZEROS IN AC
7874 037033 321 16 0 00 037024 JUMPL AC+2,G30200 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0208
7875 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
7876 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
7877 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
7878
7879 030300 SN=30300
7880 000001 000000 XX=1000000
7881 777777 777777 ZZ=-1
7882
7883 G30300: REPEAT ^D18,
7884 <;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
7885 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
7886 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
7887
7888 SN=SN+1
7889 XX=XX/2
7890 ZZ=ZZ+1
7891 MOVSI AC,XX ;INITIALIZE AC
7892 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
7893 SETOM <AC+1>&17 ;INITIALIZE AC+1
7894 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
7895 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
7896 CAME AC,<AC-2>&17 ;EXAMINE AC
7897 ER3 AC,SN ;C(AC) WAS CLOBBERED
7898 CAIE AC+1,ZZ ;EXAMINE AC+1
7899 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
7900 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
7901 >
7902 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
7903 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
7904 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
7905
7906 030301 SN=SN+1
7907 400000 XX=XX/2
7908 000000 ZZ=ZZ+1
7909 037034 205 14 0 00 400000 MOVSI AC,XX ;INITIALIZE AC
7910 037035 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
7911 037036 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
7912 037037 243 14 0 00 037041 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
7913 037040 002 14 0 00 030301 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
7914 037041 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
7915 037042 003 14 0 00 030301 ER3 AC,SN ;C(AC) WAS CLOBBERED
7916 037043 302 15 0 00 000000 CAIE AC+1,ZZ ;EXAMINE AC+1
7917 037044 004 15 0 00 030301 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
7918 037045 321 16 0 00 037034 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
7919
7920 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
7921 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
7922 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
7923
7924 030302 SN=SN+1
7925 200000 XX=XX/2
7926 000001 ZZ=ZZ+1
7927 037046 205 14 0 00 200000 MOVSI AC,XX ;INITIALIZE AC
7928 037047 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
7929 037050 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-1
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0209
7930 037051 243 14 0 00 037053 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
7931 037052 002 14 0 00 030302 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
7932 037053 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
7933 037054 003 14 0 00 030302 ER3 AC,SN ;C(AC) WAS CLOBBERED
7934 037055 302 15 0 00 000001 CAIE AC+1,ZZ ;EXAMINE AC+1
7935 037056 004 15 0 00 030302 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
7936 037057 321 16 0 00 037046 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
7937
7938 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
7939 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
7940 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
7941
7942 030303 SN=SN+1
7943 100000 XX=XX/2
7944 000002 ZZ=ZZ+1
7945 037060 205 14 0 00 100000 MOVSI AC,XX ;INITIALIZE AC
7946 037061 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
7947 037062 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
7948 037063 243 14 0 00 037065 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
7949 037064 002 14 0 00 030303 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
7950 037065 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
7951 037066 003 14 0 00 030303 ER3 AC,SN ;C(AC) WAS CLOBBERED
7952 037067 302 15 0 00 000002 CAIE AC+1,ZZ ;EXAMINE AC+1
7953 037070 004 15 0 00 030303 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
7954 037071 321 16 0 00 037060 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
7955
7956 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
7957 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
7958 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
7959
7960 030304 SN=SN+1
7961 040000 XX=XX/2
7962 000003 ZZ=ZZ+1
7963 037072 205 14 0 00 040000 MOVSI AC,XX ;INITIALIZE AC
7964 037073 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
7965 037074 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
7966 037075 243 14 0 00 037077 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
7967 037076 002 14 0 00 030304 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
7968 037077 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
7969 037100 003 14 0 00 030304 ER3 AC,SN ;C(AC) WAS CLOBBERED
7970 037101 302 15 0 00 000003 CAIE AC+1,ZZ ;EXAMINE AC+1
7971 037102 004 15 0 00 030304 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
7972 037103 321 16 0 00 037072 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
7973
7974 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
7975 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
7976 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
7977
7978 030305 SN=SN+1
7979 020000 XX=XX/2
7980 000004 ZZ=ZZ+1
7981 037104 205 14 0 00 020000 MOVSI AC,XX ;INITIALIZE AC
7982 037105 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
7983 037106 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
7984 037107 243 14 0 00 037111 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-2
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0210
7985 037110 002 14 0 00 030305 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
7986 037111 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
7987 037112 003 14 0 00 030305 ER3 AC,SN ;C(AC) WAS CLOBBERED
7988 037113 302 15 0 00 000004 CAIE AC+1,ZZ ;EXAMINE AC+1
7989 037114 004 15 0 00 030305 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
7990 037115 321 16 0 00 037104 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
7991
7992 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
7993 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
7994 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
7995
7996 030306 SN=SN+1
7997 010000 XX=XX/2
7998 000005 ZZ=ZZ+1
7999 037116 205 14 0 00 010000 MOVSI AC,XX ;INITIALIZE AC
8000 037117 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
8001 037120 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8002 037121 243 14 0 00 037123 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8003 037122 002 14 0 00 030306 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8004 037123 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8005 037124 003 14 0 00 030306 ER3 AC,SN ;C(AC) WAS CLOBBERED
8006 037125 302 15 0 00 000005 CAIE AC+1,ZZ ;EXAMINE AC+1
8007 037126 004 15 0 00 030306 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8008 037127 321 16 0 00 037116 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8009
8010 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8011 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8012 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8013
8014 030307 SN=SN+1
8015 004000 XX=XX/2
8016 000006 ZZ=ZZ+1
8017 037130 205 14 0 00 004000 MOVSI AC,XX ;INITIALIZE AC
8018 037131 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
8019 037132 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8020 037133 243 14 0 00 037135 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8021 037134 002 14 0 00 030307 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8022 037135 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8023 037136 003 14 0 00 030307 ER3 AC,SN ;C(AC) WAS CLOBBERED
8024 037137 302 15 0 00 000006 CAIE AC+1,ZZ ;EXAMINE AC+1
8025 037140 004 15 0 00 030307 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8026 037141 321 16 0 00 037130 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8027
8028 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8029 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8030 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8031
8032 030310 SN=SN+1
8033 002000 XX=XX/2
8034 000007 ZZ=ZZ+1
8035 037142 205 14 0 00 002000 MOVSI AC,XX ;INITIALIZE AC
8036 037143 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
8037 037144 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8038 037145 243 14 0 00 037147 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8039 037146 002 14 0 00 030310 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-3
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0211
8040 037147 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8041 037150 003 14 0 00 030310 ER3 AC,SN ;C(AC) WAS CLOBBERED
8042 037151 302 15 0 00 000007 CAIE AC+1,ZZ ;EXAMINE AC+1
8043 037152 004 15 0 00 030310 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8044 037153 321 16 0 00 037142 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8045
8046 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8047 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8048 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8049
8050 030311 SN=SN+1
8051 001000 XX=XX/2
8052 000010 ZZ=ZZ+1
8053 037154 205 14 0 00 001000 MOVSI AC,XX ;INITIALIZE AC
8054 037155 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
8055 037156 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8056 037157 243 14 0 00 037161 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8057 037160 002 14 0 00 030311 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8058 037161 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8059 037162 003 14 0 00 030311 ER3 AC,SN ;C(AC) WAS CLOBBERED
8060 037163 302 15 0 00 000010 CAIE AC+1,ZZ ;EXAMINE AC+1
8061 037164 004 15 0 00 030311 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8062 037165 321 16 0 00 037154 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8063
8064 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8065 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8066 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8067
8068 030312 SN=SN+1
8069 000400 XX=XX/2
8070 000011 ZZ=ZZ+1
8071 037166 205 14 0 00 000400 MOVSI AC,XX ;INITIALIZE AC
8072 037167 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
8073 037170 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8074 037171 243 14 0 00 037173 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8075 037172 002 14 0 00 030312 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8076 037173 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8077 037174 003 14 0 00 030312 ER3 AC,SN ;C(AC) WAS CLOBBERED
8078 037175 302 15 0 00 000011 CAIE AC+1,ZZ ;EXAMINE AC+1
8079 037176 004 15 0 00 030312 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8080 037177 321 16 0 00 037166 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8081
8082 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8083 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8084 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8085
8086 030313 SN=SN+1
8087 000200 XX=XX/2
8088 000012 ZZ=ZZ+1
8089 037200 205 14 0 00 000200 MOVSI AC,XX ;INITIALIZE AC
8090 037201 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
8091 037202 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8092 037203 243 14 0 00 037205 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8093 037204 002 14 0 00 030313 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8094 037205 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-4
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0212
8095 037206 003 14 0 00 030313 ER3 AC,SN ;C(AC) WAS CLOBBERED
8096 037207 302 15 0 00 000012 CAIE AC+1,ZZ ;EXAMINE AC+1
8097 037210 004 15 0 00 030313 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8098 037211 321 16 0 00 037200 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8099
8100 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8101 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8102 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8103
8104 030314 SN=SN+1
8105 000100 XX=XX/2
8106 000013 ZZ=ZZ+1
8107 037212 205 14 0 00 000100 MOVSI AC,XX ;INITIALIZE AC
8108 037213 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
8109 037214 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8110 037215 243 14 0 00 037217 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8111 037216 002 14 0 00 030314 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8112 037217 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8113 037220 003 14 0 00 030314 ER3 AC,SN ;C(AC) WAS CLOBBERED
8114 037221 302 15 0 00 000013 CAIE AC+1,ZZ ;EXAMINE AC+1
8115 037222 004 15 0 00 030314 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8116 037223 321 16 0 00 037212 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8117
8118 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8119 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8120 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8121
8122 030315 SN=SN+1
8123 000040 XX=XX/2
8124 000014 ZZ=ZZ+1
8125 037224 205 14 0 00 000040 MOVSI AC,XX ;INITIALIZE AC
8126 037225 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
8127 037226 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8128 037227 243 14 0 00 037231 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8129 037230 002 14 0 00 030315 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8130 037231 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8131 037232 003 14 0 00 030315 ER3 AC,SN ;C(AC) WAS CLOBBERED
8132 037233 302 15 0 00 000014 CAIE AC+1,ZZ ;EXAMINE AC+1
8133 037234 004 15 0 00 030315 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8134 037235 321 16 0 00 037224 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8135
8136 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8137 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8138 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8139
8140 030316 SN=SN+1
8141 000020 XX=XX/2
8142 000015 ZZ=ZZ+1
8143 037236 205 14 0 00 000020 MOVSI AC,XX ;INITIALIZE AC
8144 037237 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
8145 037240 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8146 037241 243 14 0 00 037243 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8147 037242 002 14 0 00 030316 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8148 037243 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8149 037244 003 14 0 00 030316 ER3 AC,SN ;C(AC) WAS CLOBBERED
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-5
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0213
8150 037245 302 15 0 00 000015 CAIE AC+1,ZZ ;EXAMINE AC+1
8151 037246 004 15 0 00 030316 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8152 037247 321 16 0 00 037236 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8153
8154 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8155 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8156 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8157
8158 030317 SN=SN+1
8159 000010 XX=XX/2
8160 000016 ZZ=ZZ+1
8161 037250 205 14 0 00 000010 MOVSI AC,XX ;INITIALIZE AC
8162 037251 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
8163 037252 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8164 037253 243 14 0 00 037255 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8165 037254 002 14 0 00 030317 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8166 037255 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8167 037256 003 14 0 00 030317 ER3 AC,SN ;C(AC) WAS CLOBBERED
8168 037257 302 15 0 00 000016 CAIE AC+1,ZZ ;EXAMINE AC+1
8169 037260 004 15 0 00 030317 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8170 037261 321 16 0 00 037250 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8171
8172 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8173 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8174 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8175
8176 030320 SN=SN+1
8177 000004 XX=XX/2
8178 000017 ZZ=ZZ+1
8179 037262 205 14 0 00 000004 MOVSI AC,XX ;INITIALIZE AC
8180 037263 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
8181 037264 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8182 037265 243 14 0 00 037267 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8183 037266 002 14 0 00 030320 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8184 037267 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8185 037270 003 14 0 00 030320 ER3 AC,SN ;C(AC) WAS CLOBBERED
8186 037271 302 15 0 00 000017 CAIE AC+1,ZZ ;EXAMINE AC+1
8187 037272 004 15 0 00 030320 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8188 037273 321 16 0 00 037262 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8189
8190 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8191 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8192 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8193
8194 030321 SN=SN+1
8195 000002 XX=XX/2
8196 000020 ZZ=ZZ+1
8197 037274 205 14 0 00 000002 MOVSI AC,XX ;INITIALIZE AC
8198 037275 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
8199 037276 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8200 037277 243 14 0 00 037301 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8201 037300 002 14 0 00 030321 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8202 037301 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8203 037302 003 14 0 00 030321 ER3 AC,SN ;C(AC) WAS CLOBBERED
8204 037303 302 15 0 00 000020 CAIE AC+1,ZZ ;EXAMINE AC+1
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-6
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0214
8205 037304 004 15 0 00 030321 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8206 037305 321 16 0 00 037274 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8207
8208 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8209 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8210 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8211
8212 030322 SN=SN+1
8213 000001 XX=XX/2
8214 000021 ZZ=ZZ+1
8215 037306 205 14 0 00 000001 MOVSI AC,XX ;INITIALIZE AC
8216 037307 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON
8217 037310 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8218 037311 243 14 0 00 037313 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8219 037312 002 14 0 00 030322 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8220 037313 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8221 037314 003 14 0 00 030322 ER3 AC,SN ;C(AC) WAS CLOBBERED
8222 037315 302 15 0 00 000021 CAIE AC+1,ZZ ;EXAMINE AC+1
8223 037316 004 15 0 00 030322 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8224 037317 321 16 0 00 037306 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8225
8226 PAGE
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-7
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0215
8227 030400 SN=30400
8228 000001 000000 XX=1000000
8229
8230 G30400: REPEAT ^D18,
8231 <;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8232 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8233 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8234
8235 SN=SN+1
8236 XX=XX/2
8237 ZZ=ZZ+1
8238 MOVEI AC,XX ;INITIALIZE AC
8239 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8240 SETOM <AC+1>&17 ;INITIALIZE AC+1
8241 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8242 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8243 CAME AC,<AC-2>&17 ;EXAMINE AC
8244 ER3 AC,SN ;C(AC) WAS CLOBBERED
8245 CAIE AC+1,ZZ ;EXAMINE AC+1
8246 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8247 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8248 >
8249 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8250 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8251 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8252
8253 030401 SN=SN+1
8254 400000 XX=XX/2
8255 000022 ZZ=ZZ+1
8256 037320 201 14 0 00 400000 MOVEI AC,XX ;INITIALIZE AC
8257 037321 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8258 037322 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8259 037323 243 14 0 00 037325 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8260 037324 002 14 0 00 030401 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8261 037325 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8262 037326 003 14 0 00 030401 ER3 AC,SN ;C(AC) WAS CLOBBERED
8263 037327 302 15 0 00 000022 CAIE AC+1,ZZ ;EXAMINE AC+1
8264 037330 004 15 0 00 030401 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8265 037331 321 16 0 00 037320 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8266
8267 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8268 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8269 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8270
8271 030402 SN=SN+1
8272 200000 XX=XX/2
8273 000023 ZZ=ZZ+1
8274 037332 201 14 0 00 200000 MOVEI AC,XX ;INITIALIZE AC
8275 037333 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8276 037334 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8277 037335 243 14 0 00 037337 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8278 037336 002 14 0 00 030402 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8279 037337 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8280 037340 003 14 0 00 030402 ER3 AC,SN ;C(AC) WAS CLOBBERED
8281 037341 302 15 0 00 000023 CAIE AC+1,ZZ ;EXAMINE AC+1
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-8
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0216
8282 037342 004 15 0 00 030402 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8283 037343 321 16 0 00 037332 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8284
8285 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8286 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8287 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8288
8289 030403 SN=SN+1
8290 100000 XX=XX/2
8291 000024 ZZ=ZZ+1
8292 037344 201 14 0 00 100000 MOVEI AC,XX ;INITIALIZE AC
8293 037345 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8294 037346 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8295 037347 243 14 0 00 037351 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8296 037350 002 14 0 00 030403 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8297 037351 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8298 037352 003 14 0 00 030403 ER3 AC,SN ;C(AC) WAS CLOBBERED
8299 037353 302 15 0 00 000024 CAIE AC+1,ZZ ;EXAMINE AC+1
8300 037354 004 15 0 00 030403 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8301 037355 321 16 0 00 037344 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8302
8303 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8304 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8305 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8306
8307 030404 SN=SN+1
8308 040000 XX=XX/2
8309 000025 ZZ=ZZ+1
8310 037356 201 14 0 00 040000 MOVEI AC,XX ;INITIALIZE AC
8311 037357 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8312 037360 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8313 037361 243 14 0 00 037363 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8314 037362 002 14 0 00 030404 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8315 037363 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8316 037364 003 14 0 00 030404 ER3 AC,SN ;C(AC) WAS CLOBBERED
8317 037365 302 15 0 00 000025 CAIE AC+1,ZZ ;EXAMINE AC+1
8318 037366 004 15 0 00 030404 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8319 037367 321 16 0 00 037356 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8320
8321 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8322 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8323 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8324
8325 030405 SN=SN+1
8326 020000 XX=XX/2
8327 000026 ZZ=ZZ+1
8328 037370 201 14 0 00 020000 MOVEI AC,XX ;INITIALIZE AC
8329 037371 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8330 037372 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8331 037373 243 14 0 00 037375 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8332 037374 002 14 0 00 030405 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8333 037375 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8334 037376 003 14 0 00 030405 ER3 AC,SN ;C(AC) WAS CLOBBERED
8335 037377 302 15 0 00 000026 CAIE AC+1,ZZ ;EXAMINE AC+1
8336 037400 004 15 0 00 030405 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-9
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0217
8337 037401 321 16 0 00 037370 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8338
8339 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8340 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8341 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8342
8343 030406 SN=SN+1
8344 010000 XX=XX/2
8345 000027 ZZ=ZZ+1
8346 037402 201 14 0 00 010000 MOVEI AC,XX ;INITIALIZE AC
8347 037403 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8348 037404 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8349 037405 243 14 0 00 037407 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8350 037406 002 14 0 00 030406 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8351 037407 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8352 037410 003 14 0 00 030406 ER3 AC,SN ;C(AC) WAS CLOBBERED
8353 037411 302 15 0 00 000027 CAIE AC+1,ZZ ;EXAMINE AC+1
8354 037412 004 15 0 00 030406 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8355 037413 321 16 0 00 037402 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8356
8357 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8358 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8359 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8360
8361 030407 SN=SN+1
8362 004000 XX=XX/2
8363 000030 ZZ=ZZ+1
8364 037414 201 14 0 00 004000 MOVEI AC,XX ;INITIALIZE AC
8365 037415 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8366 037416 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8367 037417 243 14 0 00 037421 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8368 037420 002 14 0 00 030407 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8369 037421 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8370 037422 003 14 0 00 030407 ER3 AC,SN ;C(AC) WAS CLOBBERED
8371 037423 302 15 0 00 000030 CAIE AC+1,ZZ ;EXAMINE AC+1
8372 037424 004 15 0 00 030407 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8373 037425 321 16 0 00 037414 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8374
8375 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8376 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8377 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8378
8379 030410 SN=SN+1
8380 002000 XX=XX/2
8381 000031 ZZ=ZZ+1
8382 037426 201 14 0 00 002000 MOVEI AC,XX ;INITIALIZE AC
8383 037427 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8384 037430 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8385 037431 243 14 0 00 037433 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8386 037432 002 14 0 00 030410 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8387 037433 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8388 037434 003 14 0 00 030410 ER3 AC,SN ;C(AC) WAS CLOBBERED
8389 037435 302 15 0 00 000031 CAIE AC+1,ZZ ;EXAMINE AC+1
8390 037436 004 15 0 00 030410 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8391 037437 321 16 0 00 037426 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-10
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0218
8392
8393 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8394 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8395 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8396
8397 030411 SN=SN+1
8398 001000 XX=XX/2
8399 000032 ZZ=ZZ+1
8400 037440 201 14 0 00 001000 MOVEI AC,XX ;INITIALIZE AC
8401 037441 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8402 037442 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8403 037443 243 14 0 00 037445 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8404 037444 002 14 0 00 030411 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8405 037445 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8406 037446 003 14 0 00 030411 ER3 AC,SN ;C(AC) WAS CLOBBERED
8407 037447 302 15 0 00 000032 CAIE AC+1,ZZ ;EXAMINE AC+1
8408 037450 004 15 0 00 030411 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8409 037451 321 16 0 00 037440 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8410
8411 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8412 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8413 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8414
8415 030412 SN=SN+1
8416 000400 XX=XX/2
8417 000033 ZZ=ZZ+1
8418 037452 201 14 0 00 000400 MOVEI AC,XX ;INITIALIZE AC
8419 037453 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8420 037454 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8421 037455 243 14 0 00 037457 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8422 037456 002 14 0 00 030412 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8423 037457 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8424 037460 003 14 0 00 030412 ER3 AC,SN ;C(AC) WAS CLOBBERED
8425 037461 302 15 0 00 000033 CAIE AC+1,ZZ ;EXAMINE AC+1
8426 037462 004 15 0 00 030412 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8427 037463 321 16 0 00 037452 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8428
8429 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8430 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8431 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8432
8433 030413 SN=SN+1
8434 000200 XX=XX/2
8435 000034 ZZ=ZZ+1
8436 037464 201 14 0 00 000200 MOVEI AC,XX ;INITIALIZE AC
8437 037465 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8438 037466 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8439 037467 243 14 0 00 037471 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8440 037470 002 14 0 00 030413 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8441 037471 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8442 037472 003 14 0 00 030413 ER3 AC,SN ;C(AC) WAS CLOBBERED
8443 037473 302 15 0 00 000034 CAIE AC+1,ZZ ;EXAMINE AC+1
8444 037474 004 15 0 00 030413 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8445 037475 321 16 0 00 037464 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8446
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-11
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0219
8447 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8448 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8449 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8450
8451 030414 SN=SN+1
8452 000100 XX=XX/2
8453 000035 ZZ=ZZ+1
8454 037476 201 14 0 00 000100 MOVEI AC,XX ;INITIALIZE AC
8455 037477 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8456 037500 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8457 037501 243 14 0 00 037503 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8458 037502 002 14 0 00 030414 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8459 037503 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8460 037504 003 14 0 00 030414 ER3 AC,SN ;C(AC) WAS CLOBBERED
8461 037505 302 15 0 00 000035 CAIE AC+1,ZZ ;EXAMINE AC+1
8462 037506 004 15 0 00 030414 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8463 037507 321 16 0 00 037476 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8464
8465 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8466 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8467 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8468
8469 030415 SN=SN+1
8470 000040 XX=XX/2
8471 000036 ZZ=ZZ+1
8472 037510 201 14 0 00 000040 MOVEI AC,XX ;INITIALIZE AC
8473 037511 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8474 037512 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8475 037513 243 14 0 00 037515 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8476 037514 002 14 0 00 030415 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8477 037515 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8478 037516 003 14 0 00 030415 ER3 AC,SN ;C(AC) WAS CLOBBERED
8479 037517 302 15 0 00 000036 CAIE AC+1,ZZ ;EXAMINE AC+1
8480 037520 004 15 0 00 030415 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8481 037521 321 16 0 00 037510 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8482
8483 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8484 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8485 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8486
8487 030416 SN=SN+1
8488 000020 XX=XX/2
8489 000037 ZZ=ZZ+1
8490 037522 201 14 0 00 000020 MOVEI AC,XX ;INITIALIZE AC
8491 037523 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8492 037524 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8493 037525 243 14 0 00 037527 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8494 037526 002 14 0 00 030416 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8495 037527 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8496 037530 003 14 0 00 030416 ER3 AC,SN ;C(AC) WAS CLOBBERED
8497 037531 302 15 0 00 000037 CAIE AC+1,ZZ ;EXAMINE AC+1
8498 037532 004 15 0 00 030416 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8499 037533 321 16 0 00 037522 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8500
8501 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-12
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0220
8502 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8503 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8504
8505 030417 SN=SN+1
8506 000010 XX=XX/2
8507 000040 ZZ=ZZ+1
8508 037534 201 14 0 00 000010 MOVEI AC,XX ;INITIALIZE AC
8509 037535 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8510 037536 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8511 037537 243 14 0 00 037541 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8512 037540 002 14 0 00 030417 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8513 037541 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8514 037542 003 14 0 00 030417 ER3 AC,SN ;C(AC) WAS CLOBBERED
8515 037543 302 15 0 00 000040 CAIE AC+1,ZZ ;EXAMINE AC+1
8516 037544 004 15 0 00 030417 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8517 037545 321 16 0 00 037534 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8518
8519 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8520 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8521 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8522
8523 030420 SN=SN+1
8524 000004 XX=XX/2
8525 000041 ZZ=ZZ+1
8526 037546 201 14 0 00 000004 MOVEI AC,XX ;INITIALIZE AC
8527 037547 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8528 037550 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8529 037551 243 14 0 00 037553 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8530 037552 002 14 0 00 030420 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8531 037553 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8532 037554 003 14 0 00 030420 ER3 AC,SN ;C(AC) WAS CLOBBERED
8533 037555 302 15 0 00 000041 CAIE AC+1,ZZ ;EXAMINE AC+1
8534 037556 004 15 0 00 030420 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8535 037557 321 16 0 00 037546 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8536
8537 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8538 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
8539 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8540
8541 030421 SN=SN+1
8542 000002 XX=XX/2
8543 000042 ZZ=ZZ+1
8544 037560 201 14 0 00 000002 MOVEI AC,XX ;INITIALIZE AC
8545 037561 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8546 037562 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8547 037563 243 14 0 00 037565 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8548 037564 002 14 0 00 030421 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8549 037565 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8550 037566 003 14 0 00 030421 ER3 AC,SN ;C(AC) WAS CLOBBERED
8551 037567 302 15 0 00 000042 CAIE AC+1,ZZ ;EXAMINE AC+1
8552 037570 004 15 0 00 030421 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8553 037571 321 16 0 00 037560 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8554
8555 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8556 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-13
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0221
8557 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO
8558
8559 030422 SN=SN+1
8560 000001 XX=XX/2
8561 000043 ZZ=ZZ+1
8562 037572 201 14 0 00 000001 MOVEI AC,XX ;INITIALIZE AC
8563 037573 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON
8564 037574 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8565 037575 243 14 0 00 037577 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP
8566 037576 002 14 0 00 030422 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8567 037577 312 14 0 00 000012 CAME AC,<AC-2>&17 ;EXAMINE AC
8568 037600 003 14 0 00 030422 ER3 AC,SN ;C(AC) WAS CLOBBERED
8569 037601 302 15 0 00 000043 CAIE AC+1,ZZ ;EXAMINE AC+1
8570 037602 004 15 0 00 030422 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC
8571 037603 321 16 0 00 037572 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8572
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 89
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0222
8573 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8574 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
8575 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
8576
8577 030500 SN=30500
8578 777777 777777 AC=-1
8579
8580 G30500: REPEAT ^D13,
8581 <;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8582 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
8583 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
8584
8585 SN=SN+1
8586 AC=<AC+1>&17
8587 SAVEAC (1,1)
8588
8589 MOVSI AC,(1B<^O<AC>>) ;INITIALIZE AC
8590 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON
8591 SETOM <AC+1>&17 ;INITIALIZE AC+1
8592 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
8593 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8594 CAME AC,GSVAC ;EXAMINE AC
8595 ER3 AC,SN ;C(AC) WAS CLOBBERED
8596 CAIE AC+1,AC ;EXAMINE AC+1
8597 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8598 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
8599 >
8600 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8601 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
8602 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
8603
8604 030501 SN=SN+1
8605 000000 AC=<AC+1>&17
8606 SAVEAC (1,1)^
8607 037604 201 02 0 00 037604 MOVEI AC+2,. ;SAVE TEST PC
8608 037605 202 02 0 00 030051 MOVEM AC+2,TESTPC
8609 037606 201 02 0 00 000002 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8610 037607 202 02 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8611
8612 037610 205 00 0 00 400000 MOVSI AC,(1B<^O<AC>>) ;INITIALIZE AC
8613 037611 202 00 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON
8614 037612 476 00 0 00 000001 SETOM <AC+1>&17 ;INITIALIZE AC+1
8615 037613 243 00 0 00 037615 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
8616 037614 002 00 0 00 030501 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8617 037615 312 00 0 00 041144 CAME AC,GSVAC ;EXAMINE AC
8618 037616 003 00 0 00 030501 ER3 AC,SN ;C(AC) WAS CLOBBERED
8619 037617 302 01 0 00 000000 CAIE AC+1,AC ;EXAMINE AC+1
8620 037620 004 01 0 00 030501 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8621 037621 321 02 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
8622
8623 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8624 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
8625 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
8626
8627 030502 SN=SN+1
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 89-1
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0223
8628 000001 AC=<AC+1>&17
8629 SAVEAC (1,1)^
8630 037622 201 03 0 00 037622 MOVEI AC+2,. ;SAVE TEST PC
8631 037623 202 03 0 00 030051 MOVEM AC+2,TESTPC
8632 037624 201 03 0 00 000003 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8633 037625 202 03 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8634
8635 037626 205 01 0 00 200000 MOVSI AC,(1B<^O<AC>>) ;INITIALIZE AC
8636 037627 202 01 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON
8637 037630 476 00 0 00 000002 SETOM <AC+1>&17 ;INITIALIZE AC+1
8638 037631 243 01 0 00 037633 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
8639 037632 002 01 0 00 030502 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8640 037633 312 01 0 00 041144 CAME AC,GSVAC ;EXAMINE AC
8641 037634 003 01 0 00 030502 ER3 AC,SN ;C(AC) WAS CLOBBERED
8642 037635 302 02 0 00 000001 CAIE AC+1,AC ;EXAMINE AC+1
8643 037636 004 02 0 00 030502 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8644 037637 321 03 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
8645
8646 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8647 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
8648 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
8649
8650 030503 SN=SN+1
8651 000002 AC=<AC+1>&17
8652 SAVEAC (1,1)^
8653 037640 201 04 0 00 037640 MOVEI AC+2,. ;SAVE TEST PC
8654 037641 202 04 0 00 030051 MOVEM AC+2,TESTPC
8655 037642 201 04 0 00 000004 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8656 037643 202 04 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8657
8658 037644 205 02 0 00 100000 MOVSI AC,(1B<^O<AC>>) ;INITIALIZE AC
8659 037645 202 02 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON
8660 037646 476 00 0 00 000003 SETOM <AC+1>&17 ;INITIALIZE AC+1
8661 037647 243 02 0 00 037651 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
8662 037650 002 02 0 00 030503 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8663 037651 312 02 0 00 041144 CAME AC,GSVAC ;EXAMINE AC
8664 037652 003 02 0 00 030503 ER3 AC,SN ;C(AC) WAS CLOBBERED
8665 037653 302 03 0 00 000002 CAIE AC+1,AC ;EXAMINE AC+1
8666 037654 004 03 0 00 030503 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8667 037655 321 04 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
8668
8669 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8670 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
8671 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
8672
8673 030504 SN=SN+1
8674 000003 AC=<AC+1>&17
8675 SAVEAC (1,1)^
8676 037656 201 05 0 00 037656 MOVEI AC+2,. ;SAVE TEST PC
8677 037657 202 05 0 00 030051 MOVEM AC+2,TESTPC
8678 037660 201 05 0 00 000005 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8679 037661 202 05 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8680
8681 037662 205 03 0 00 040000 MOVSI AC,(1B<^O<AC>>) ;INITIALIZE AC
8682 037663 202 03 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 89-2
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0224
8683 037664 476 00 0 00 000004 SETOM <AC+1>&17 ;INITIALIZE AC+1
8684 037665 243 03 0 00 037667 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
8685 037666 002 03 0 00 030504 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8686 037667 312 03 0 00 041144 CAME AC,GSVAC ;EXAMINE AC
8687 037670 003 03 0 00 030504 ER3 AC,SN ;C(AC) WAS CLOBBERED
8688 037671 302 04 0 00 000003 CAIE AC+1,AC ;EXAMINE AC+1
8689 037672 004 04 0 00 030504 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8690 037673 321 05 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
8691
8692 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8693 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
8694 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
8695
8696 030505 SN=SN+1
8697 000004 AC=<AC+1>&17
8698 SAVEAC (1,1)^
8699 037674 201 06 0 00 037674 MOVEI AC+2,. ;SAVE TEST PC
8700 037675 202 06 0 00 030051 MOVEM AC+2,TESTPC
8701 037676 201 06 0 00 000006 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8702 037677 202 06 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8703
8704 037700 205 04 0 00 020000 MOVSI AC,(1B<^O<AC>>) ;INITIALIZE AC
8705 037701 202 04 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON
8706 037702 476 00 0 00 000005 SETOM <AC+1>&17 ;INITIALIZE AC+1
8707 037703 243 04 0 00 037705 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
8708 037704 002 04 0 00 030505 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8709 037705 312 04 0 00 041144 CAME AC,GSVAC ;EXAMINE AC
8710 037706 003 04 0 00 030505 ER3 AC,SN ;C(AC) WAS CLOBBERED
8711 037707 302 05 0 00 000004 CAIE AC+1,AC ;EXAMINE AC+1
8712 037710 004 05 0 00 030505 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8713 037711 321 06 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
8714
8715 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8716 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
8717 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
8718
8719 030506 SN=SN+1
8720 000005 AC=<AC+1>&17
8721 SAVEAC (1,1)^
8722 037712 201 07 0 00 037712 MOVEI AC+2,. ;SAVE TEST PC
8723 037713 202 07 0 00 030051 MOVEM AC+2,TESTPC
8724 037714 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8725 037715 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8726
8727 037716 205 05 0 00 010000 MOVSI AC,(1B<^O<AC>>) ;INITIALIZE AC
8728 037717 202 05 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON
8729 037720 476 00 0 00 000006 SETOM <AC+1>&17 ;INITIALIZE AC+1
8730 037721 243 05 0 00 037723 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
8731 037722 002 05 0 00 030506 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8732 037723 312 05 0 00 041144 CAME AC,GSVAC ;EXAMINE AC
8733 037724 003 05 0 00 030506 ER3 AC,SN ;C(AC) WAS CLOBBERED
8734 037725 302 06 0 00 000005 CAIE AC+1,AC ;EXAMINE AC+1
8735 037726 004 06 0 00 030506 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8736 037727 321 07 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
8737
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 89-3
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0225
8738 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8739 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
8740 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
8741
8742 030507 SN=SN+1
8743 000006 AC=<AC+1>&17
8744 SAVEAC (1,1)^
8745 037730 201 10 0 00 037730 MOVEI AC+2,. ;SAVE TEST PC
8746 037731 202 10 0 00 030051 MOVEM AC+2,TESTPC
8747 037732 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8748 037733 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8749
8750 037734 205 06 0 00 004000 MOVSI AC,(1B<^O<AC>>) ;INITIALIZE AC
8751 037735 202 06 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON
8752 037736 476 00 0 00 000007 SETOM <AC+1>&17 ;INITIALIZE AC+1
8753 037737 243 06 0 00 037741 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
8754 037740 002 06 0 00 030507 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8755 037741 312 06 0 00 041144 CAME AC,GSVAC ;EXAMINE AC
8756 037742 003 06 0 00 030507 ER3 AC,SN ;C(AC) WAS CLOBBERED
8757 037743 302 07 0 00 000006 CAIE AC+1,AC ;EXAMINE AC+1
8758 037744 004 07 0 00 030507 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8759 037745 321 10 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
8760
8761 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8762 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
8763 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
8764
8765 030510 SN=SN+1
8766 000007 AC=<AC+1>&17
8767 SAVEAC (1,1)^
8768 037746 201 11 0 00 037746 MOVEI AC+2,. ;SAVE TEST PC
8769 037747 202 11 0 00 030051 MOVEM AC+2,TESTPC
8770 037750 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8771 037751 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8772
8773 037752 205 07 0 00 002000 MOVSI AC,(1B<^O<AC>>) ;INITIALIZE AC
8774 037753 202 07 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON
8775 037754 476 00 0 00 000010 SETOM <AC+1>&17 ;INITIALIZE AC+1
8776 037755 243 07 0 00 037757 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
8777 037756 002 07 0 00 030510 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8778 037757 312 07 0 00 041144 CAME AC,GSVAC ;EXAMINE AC
8779 037760 003 07 0 00 030510 ER3 AC,SN ;C(AC) WAS CLOBBERED
8780 037761 302 10 0 00 000007 CAIE AC+1,AC ;EXAMINE AC+1
8781 037762 004 10 0 00 030510 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8782 037763 321 11 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
8783
8784 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8785 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
8786 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
8787
8788 030511 SN=SN+1
8789 000010 AC=<AC+1>&17
8790 SAVEAC (1,1)^
8791 037764 201 12 0 00 037764 MOVEI AC+2,. ;SAVE TEST PC
8792 037765 202 12 0 00 030051 MOVEM AC+2,TESTPC
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 89-4
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0226
8793 037766 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8794 037767 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8795
8796 037770 205 10 0 00 001000 MOVSI AC,(1B<^O<AC>>) ;INITIALIZE AC
8797 037771 202 10 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON
8798 037772 476 00 0 00 000011 SETOM <AC+1>&17 ;INITIALIZE AC+1
8799 037773 243 10 0 00 037775 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
8800 037774 002 10 0 00 030511 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8801 037775 312 10 0 00 041144 CAME AC,GSVAC ;EXAMINE AC
8802 037776 003 10 0 00 030511 ER3 AC,SN ;C(AC) WAS CLOBBERED
8803 037777 302 11 0 00 000010 CAIE AC+1,AC ;EXAMINE AC+1
8804 040000 004 11 0 00 030511 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8805 040001 321 12 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
8806
8807 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8808 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
8809 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
8810
8811 030512 SN=SN+1
8812 000011 AC=<AC+1>&17
8813 SAVEAC (1,1)^
8814 040002 201 13 0 00 040002 MOVEI AC+2,. ;SAVE TEST PC
8815 040003 202 13 0 00 030051 MOVEM AC+2,TESTPC
8816 040004 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8817 040005 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8818
8819 040006 205 11 0 00 000400 MOVSI AC,(1B<^O<AC>>) ;INITIALIZE AC
8820 040007 202 11 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON
8821 040010 476 00 0 00 000012 SETOM <AC+1>&17 ;INITIALIZE AC+1
8822 040011 243 11 0 00 040013 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
8823 040012 002 11 0 00 030512 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8824 040013 312 11 0 00 041144 CAME AC,GSVAC ;EXAMINE AC
8825 040014 003 11 0 00 030512 ER3 AC,SN ;C(AC) WAS CLOBBERED
8826 040015 302 12 0 00 000011 CAIE AC+1,AC ;EXAMINE AC+1
8827 040016 004 12 0 00 030512 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8828 040017 321 13 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
8829
8830 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8831 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
8832 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
8833
8834 030513 SN=SN+1
8835 000012 AC=<AC+1>&17
8836 SAVEAC (1,1)^
8837 040020 201 14 0 00 040020 MOVEI AC+2,. ;SAVE TEST PC
8838 040021 202 14 0 00 030051 MOVEM AC+2,TESTPC
8839 040022 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8840 040023 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8841
8842 040024 205 12 0 00 000200 MOVSI AC,(1B<^O<AC>>) ;INITIALIZE AC
8843 040025 202 12 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON
8844 040026 476 00 0 00 000013 SETOM <AC+1>&17 ;INITIALIZE AC+1
8845 040027 243 12 0 00 040031 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
8846 040030 002 12 0 00 030513 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8847 040031 312 12 0 00 041144 CAME AC,GSVAC ;EXAMINE AC
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 89-5
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0227
8848 040032 003 12 0 00 030513 ER3 AC,SN ;C(AC) WAS CLOBBERED
8849 040033 302 13 0 00 000012 CAIE AC+1,AC ;EXAMINE AC+1
8850 040034 004 13 0 00 030513 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8851 040035 321 14 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
8852
8853 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8854 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
8855 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
8856
8857 030514 SN=SN+1
8858 000013 AC=<AC+1>&17
8859 SAVEAC (1,1)^
8860 040036 201 15 0 00 040036 MOVEI AC+2,. ;SAVE TEST PC
8861 040037 202 15 0 00 030051 MOVEM AC+2,TESTPC
8862 040040 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8863 040041 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8864
8865 040042 205 13 0 00 000100 MOVSI AC,(1B<^O<AC>>) ;INITIALIZE AC
8866 040043 202 13 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON
8867 040044 476 00 0 00 000014 SETOM <AC+1>&17 ;INITIALIZE AC+1
8868 040045 243 13 0 00 040047 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
8869 040046 002 13 0 00 030514 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8870 040047 312 13 0 00 041144 CAME AC,GSVAC ;EXAMINE AC
8871 040050 003 13 0 00 030514 ER3 AC,SN ;C(AC) WAS CLOBBERED
8872 040051 302 14 0 00 000013 CAIE AC+1,AC ;EXAMINE AC+1
8873 040052 004 14 0 00 030514 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8874 040053 321 15 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
8875
8876 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING
8877 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO.
8878 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC.
8879
8880 030515 SN=SN+1
8881 000014 AC=<AC+1>&17
8882 SAVEAC (1,1)^
8883 040054 201 16 0 00 040054 MOVEI AC+2,. ;SAVE TEST PC
8884 040055 202 16 0 00 030051 MOVEM AC+2,TESTPC
8885 040056 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8886 040057 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8887
8888 040060 205 14 0 00 000040 MOVSI AC,(1B<^O<AC>>) ;INITIALIZE AC
8889 040061 202 14 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON
8890 040062 476 00 0 00 000015 SETOM <AC+1>&17 ;INITIALIZE AC+1
8891 040063 243 14 0 00 040065 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP
8892 040064 002 14 0 00 030515 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP
8893 040065 312 14 0 00 041144 CAME AC,GSVAC ;EXAMINE AC
8894 040066 003 14 0 00 030515 ER3 AC,SN ;C(AC) WAS CLOBBERED
8895 040067 302 15 0 00 000014 CAIE AC+1,AC ;EXAMINE AC+1
8896 040070 004 15 0 00 030515 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC
8897 040071 321 16 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH
8898
8899
8900 040072 254 00 0 00 030057 LAST1: JRST BEGEND ;REPEAT DIAGNOSTIC
8901
8902 IF1,<PURGE BYTBLK>
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 89-6
DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0228
8903 040073 BYTBLK: BLOCK ^D50
8904
8905 IF1,<PURGE BLTBLK>
8906 040155 BLTBLK: BLOCK ^D200
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0229
8907 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978
8908
8909 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
8910
8911 040465 202 00 0 00 041151 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0
8912 040466 202 01 0 00 041152 MOVEM 1,%ERAC1# ;SAVE AC1
8913 040467 202 02 0 00 041153 MOVEM 2,%ERAC2# ;SAVE AC2
8914 040470 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS
8915 040471 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
8916 040472 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ?
8917 040473 350 00 0 00 041146 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT
8918 040474 200 00 0 00 041146 MOVE 0,MICNT
8919 040475 504 00 0 00 030114 HRL 0,$SVUPC
8920 040476 402 00 0 00 041147 SETZM PROCED# ;CLEAR PROCEED FLAG
8921 040477 037 10 0 00 000002 SWITCH
8922 040500 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ?
8923 040501 254 00 0 00 040613 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN
8924 040502 200 01 0 00 030113 MOVE 1,$SVUUO
8925 040503 242 01 0 00 777745 LSH 1,-^D27
8926 040504 202 01 0 00 041150 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER
8927 040505 200 00 0 00 041151 MOVE 0,%ERAC0
8928 040506 200 01 0 00 041152 MOVE 1,%ERAC1
8929 040507 335 00 1 00 041143 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ?
8930 040510 254 00 0 00 040645 JRST %ERRS4 ;NO, SEE IF PRINT ALL
8931 040511 402 00 0 00 041146 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT
8932 040512 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ?
8933 040513 254 00 0 00 040517 JRST .+4 ;NO, DON'T NEED TITLE
8934 040514 336 00 0 00 041154 SKIPN %ERFST# ;FIRST ERROR ?
8935 040515 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE
8936 040516 476 00 0 00 041154 SETOM %ERFST
8937 040517 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ?
8938 040520 254 00 0 00 040524 JRST .+4 ;YES
8939 PMSG <^TEST PASS COUNT = >^
8940 040521 037 02 0 00 041024 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^
8941 040522 200 00 0 00 030047 MOVE PASCNT
8942 040523 037 15 0 00 000000 PNTDEC
8943 PMSG <^PC = >^
8944 040524 037 02 0 00 041030 PSIXM [SIXBIT\^PC = _\]^
8945 040525 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
8946 040526 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE
8947 040527 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS
8948 XLIST
8949 IFDEF ERDIAG,<LIST
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 2
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0230
8950 ;DIAGNOSTIC FORMAT ERROR PRINTER
8951
8952 ;PRINT RESULT
8953
8954 040530 %ERMS2: PMSG <^RESULT = >^
8955 040530 037 02 0 00 041032 PSIXM [SIXBIT\^RESULT = _\]^
8956 040531 200 01 0 00 030113 MOVE 1,$SVUUO ;GET AC # OF UUO
8957 040532 242 01 0 00 777751 LSH 1,-27
8958 040533 405 01 0 00 000017 ANDI 1,17
8959 040534 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
8960 040535 307 01 0 00 000001 CAIG 1,1 ;IS AC # = TO SAVE AC ?
8961 040536 200 00 0 01 041151 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
8962 040537 037 13 0 00 000000 PNTHW ;PRINT C(AC)
8963
8964 040540 200 00 0 00 030046 MOVE CONSW
8965 040541 603 00 0 00 000200 TLNE TXTINH ;PRINT FAILURE DES AND FLT NBR ?
8966 040542 254 00 0 00 040611 JRST %ERMORE ;NO, RESTORE AC'S ETC.
8967
8968 ;PRINT FAILURE DESCRIPTOR
8969
8970 040543 200 01 0 00 041150 MOVE 1,%ACS1A ;GET UUO NUMBER
8971 040544 307 01 0 00 000001 CAIG 1,1 ;PRINT DESCRIPTOR ?
8972 040545 254 00 0 00 040551 JRST %ERMS3 ;NO, JUST PRINT FAULT NUMBER
8973 040546 037 00 0 00 030242 PCRL
8974 040547 200 00 0 01 040575 MOVE %FLTTB(1)
8975 040550 037 17 0 00 000000 PNTAL ;PRINT FAULT DESCRIPTOR
8976
8977 ;PRINT FAULT NUMBER
8978
8979 040551 %ERMS3: PMSG <^FAULT NUMBER = >^
8980 040551 037 02 0 00 041034 PSIXM [SIXBIT\^FAULT NUMBER = _\]^
8981 040552 201 00 0 00 040574 MOVEI TLET
8982 040553 037 00 0 00 000000 PNTA ;PRINT TEST LETTER
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 3
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0231
8983
8984 040554 550 00 0 00 030113 HRRZ $SVUUO
8985 040555 602 00 0 00 700000 TRNE 700000
8986 040556 254 00 0 00 040572 JRST %ER6X
8987 040557 602 00 0 00 070000 TRNE 070000
8988 040560 254 00 0 00 040570 JRST %ER5X
8989 040561 602 00 0 00 007000 TRNE 007000
8990 040562 254 00 0 00 040566 JRST %ER4X
8991 040563 037 03 0 00 000000 PNT3 ;PRINT FAULT NUMBER
8992 040564 037 00 0 00 030242 %ER7X: PCRL
8993 040565 254 00 0 00 040611 JRST %ERMORE
8994
8995 040566 037 04 0 00 000000 %ER4X: PNT4
8996 040567 254 00 0 00 040564 JRST %ER7X
8997 040570 037 05 0 00 000000 %ER5X: PNT5
8998 040571 254 00 0 00 040564 JRST %ER7X
8999 040572 037 06 0 00 000000 %ER6X: PNT6
9000 040573 254 00 0 00 040564 JRST %ER7X
9001
9002 ;FAILURE DESCRIPTORS
9003
9004 040574 000000 000000 TLET: 0 ;TEST LETTER
9005 040575 000000 000000 %FLTTB: 0 ;DESCRIPTOR TABLE
9006 040576 000000 040743 %NODES: [0] ;NO DESCRIPTOR
9007 040577 000000 040743 SPDES: [0] ;SPECIAL USER FAILURE DESCRIPTOR
9008 040600 000000 041037 $ACF: [ASCIZ/C(AC) FAILED/]
9009 040601 000000 041042 %AC1F: [ASCIZ/C(AC+1) FAILED/]
9010 040602 000000 041045 %EF: [ASCIZ/C(E) FAILED/]
9011 040603 000000 041050 %E1F: [ASCIZ/C(E+1) FAILED/]
9012 040604 000000 041053 %ARF: [ASCIZ/C(C(ACR)) FAILED/]
9013 040605 000000 041057 %AR1F: [ASCIZ/C(C(ACR+1)) FAILED/]
9014 040606 000000 041063 %ALF: [ASCIZ/C(C(ACL)) FAILED/]
9015 040607 000000 041067 %EEF: [ASCIZ/C(C(E)) FAILED/]
9016 040610 000000 041072 %FF: [ASCIZ/FLAG FAILED/]
9017 >
9018 XLIST
9019 LIST
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 8
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0232
9020 ;RESTORE AC'S AND RETURN OR HALT
9021
9022 040611 256 00 0 00 030101 %ERMORE:XCT ERMORE
9023 040612 037 10 0 00 000002 SWITCH
9024
9025 040613 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK
9026 040614 254 00 0 00 040620 JRST .+4 ;NONE
9027 040615 201 00 0 00 040620 MOVEI .+3 ;SAVE CONT ADDRESS
9028 040616 202 00 0 00 000130 MOVEM JOBOPC
9029 040617 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER
9030 040620 200 00 0 00 030046 MOVE CONSW
9031 040621 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ?
9032 040622 037 14 0 00 000004 ERRHLT ;YES
9033 040623 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ?
9034 040624 476 00 0 00 041147 SETOM PROCED ;NO, SET THE PROCEED FLAG
9035 040625 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ?
9036 040626 037 01 0 00 000007 PBELL ;YES, GO RING BELL
9037
9038 040627 200 02 0 00 041153 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S
9039 040630 200 01 0 00 041152 MOVE 1,%ERAC1
9040 040631 476 00 1 00 041143 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1
9041 040632 336 00 0 00 041147 SKIPN PROCED ;LOOP ON ERROR ?
9042 040633 254 00 0 00 040643 JRST %ERRS5 ;YES
9043 040634 350 00 1 00 041143 AOS @ERRLOP ;NO, INC C(ERR LOOP AC)
9044 040635 350 00 1 00 041143 AOS @ERRLOP ;SO IT ='S 1
9045 040636 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ?
9046 040637 254 00 0 00 040643 JRST %ERRS5 ;NO, CONTINUE PROGRAM
9047 040640 200 00 0 00 030053 MOVE 0,ERRTLS ;YES
9048 040641 301 00 0 00 000024 CAIL 0,^D20 ;PRINTED ALLOWED ERRORS ?
9049 040642 254 00 0 00 040651 JRST %ERRS6
9050
9051 040643 200 00 0 00 041151 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM
9052 040644 254 00 0 00 030065 JRST UUOEXT
9053
9054 040645 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW
9055 040646 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ?
9056 040647 254 00 0 00 040613 JRST %ERRS1 ;NO
9057 040650 254 00 0 00 040511 JRST %ERMS1 ;YES
9058
9059 040651 %ERRS6: PMSGF <^EXCEEDED ALLOWED ERRORS^>^
9060 040651 037 04 0 00 041075 PSIXMF [SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^
9061 040652 254 00 0 00 030061 JRST $BEND2
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0233
9062 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978
9063
9064 ;PROGRAM LITERALS
9065
9066 XLIST
9067 IFNDEF $LPAPER,<LIST>
9068 040653 LIT
9069 040653 101 115 000 000 000
9070 040654 525252 525377
9071 040655 076000 000001
9072 040656 002525 252525
9073 040657 074000 000001
9074 040660 707070 707070
9075 040661 323232 232323
9076 040662 103 050 103 050 105
9077 040663 051 055 061 051 040
9078 040664 106 101 111 114 105
9079 040665 104 000 000 000 000
9080 040666 777777 777777
9081 040667 646446 464670
9082 040670 103 050 103 050 105
9083 040671 051 053 061 051 040
9084 040672 106 101 111 114 105
9085 040673 104 000 000 000 000
9086 040674 220600 000012
9087 040675 112233 445566
9088 040676 020000 033362
9089 040677 020000 033377
9090 040700 112270 445566
9091 040701 000000 033415
9092 040702 000000 033430
9093 040703 000000 033446
9094 040704 230703 603700
9095 040705 230702 103700
9096 040706 000000 033471
9097 040707 000000 033516
9098 040710 000000 033542
9099 040711 000000 033570
9100 040712 000000 033614
9101 040713 000000 033635
9102 040714 000000 033662
9103 040715 000000 033711
9104 040716 000000 033734
9105 040717 000000 033760
9106 040720 000000 034004
9107 040721 000000 034032
9108 040722 000000 034056
9109 040723 000000 034103
9110 040724 000000 034130
9111 040725 000000 034157
9112 040726 000000 034177
9113 040727 000000 034217
9114 040730 000000 034237
9115 040731 000000 034257
9116 040732 000000 034302
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1-1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0234
9117 040733 000000 034325
9118 040734 000000 034350
9119 040735 377777 777777
9120 040736 000000 034374
9121 040737 777777 777776
9122 040740 000000 034420
9123 040741 102 114 124 040 106
9124 040742 101 111 114 105 104
9125 040743 000 000 000 000 000
9126 040744 000001 000001
9127 040745 000006 000006
9128 040746 040156 040156
9129 040747 000006 000011
9130 040750 252525 252525
9131 040751 770077 007700
9132 040752 070707 070707
9133 040753 123456 765432
9134 040754 552255 225522
9135 040755 000005 000010
9136 040756 000004 000007
9137 040757 000006 040161
9138 040760 000005 040161
9139 040761 000004 040161
9140 040762 040156 040161
9141 040763 040156 000006
9142 040764 040156 000005
9143 040765 040156 000004
9144 040766 000004 000004
9145 040767 146314 631463
9146 040770 036074 170360
9147 040771 017407 603701
9148 040772 007603 607062
9149 040773 000002 000001
9150 040774 036074 170630
9151 040775 040157 040156
9152 040776 000001 000002
9153 040777 040156 040157
9154 041000 146314 146314
9155 041001 000001 040156
9156 041002 007700 770077
9157 041003 003760 077401
9158 041004 001774 007760
9159 041005 000777 000777
9160 041006 000377 600077
9161 041007 777777 040155
9162 041010 777777 040170
9163 041011 040156 000001
9164 041012 777777 000000
9165 041013 777777 000013
9166 041014 112 106 106 117 040
9167 041015 116 117 055 112 125
9168 041016 115 120 040 106 101
9169 041017 111 114 105 104 000
9170 041020 112 106 106 117 040
9171 041021 112 125 115 120 040
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1-2
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0235
9172 041022 106 101 111 114 105
9173 041023 104 000 000 000 000
9174 041024 76 64 45 63 64 00
9175 041025 60 41 63 63 00 43
9176 041026 57 65 56 64 00 35
9177 041027 00 77 00 00 00 00
9178 041030 76 60 43 00 35 00
9179 041031 00 00 77 00 00 00
9180 041032 76 62 45 63 65 54
9181 041033 64 00 00 35 00 77
9182 041034 76 46 41 65 54 64
9183 041035 00 56 65 55 42 45
9184 041036 62 00 35 00 77 00
9185 041037 103 050 101 103 051
9186 041040 040 106 101 111 114
9187 041041 105 104 000 000 000
9188 041042 103 050 101 103 053
9189 041043 061 051 040 106 101
9190 041044 111 114 105 104 000
9191 041045 103 050 105 051 040
9192 041046 106 101 111 114 105
9193 041047 104 000 000 000 000
9194 041050 103 050 105 053 061
9195 041051 051 040 106 101 111
9196 041052 114 105 104 000 000
9197 041053 103 050 103 050 101
9198 041054 103 122 051 051 040
9199 041055 106 101 111 114 105
9200 041056 104 000 000 000 000
9201 041057 103 050 103 050 101
9202 041060 103 122 053 061 051
9203 041061 051 040 106 101 111
9204 041062 114 105 104 000 000
9205 041063 103 050 103 050 101
9206 041064 103 114 051 051 040
9207 041065 106 101 111 114 105
9208 041066 104 000 000 000 000
9209 041067 103 050 103 050 105
9210 041070 051 051 040 106 101
9211 041071 111 114 105 104 000
9212 041072 106 114 101 107 040
9213 041073 106 101 111 114 105
9214 041074 104 000 000 000 000
9215 041075 76 45 70 43 45 45
9216 041076 44 45 44 00 41 54
9217 041077 54 57 67 45 44 00
9218 041100 45 62 62 57 62 63
9219 041101 76 77 00 00 00 00
9220 LIST
9221 041102 000000 000000 ENDSLD: 0
9222
9223 IFDEF DEBUG,<
9224 041103 PATCH: BLOCK DEBUG ;PATCHING AREA
9225 >
9226
DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1-3
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0236
9227 ;PROGRAM VARIABLES
9228 041143 VAR
9229
9230 IFDEF PGMEND,<
9231 041155 000000 000000 END: 0
9232 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 041156
CPU TIME USED 00:28.901
22P CORE USED
ABORT 163#
AC 797# 799 800 801 802 804 806 807 808 809 810 821# 823 824 SEQ 0237
825 826 828 829 831 832 834 840# 842 843 844 845 847 848
849 850 851 852 858# 860 861 862 863 865 866 867 868 869
870 881# 883 884 885 886 906 907 908 909 910 911 916 917
918 919 920 921 926 927 928 929 930 931 936 937 938 939
940 941 946 947 948 949 950 951 956 957 958 959 960 961
963# 965 966 967 968 971 972 973 974 975 976 979 980 981
982 983 984 986 987 988 989 990 991 994 995 996 997 998
999 1002 1003 1004 1005 1006 1007 1012# 1014 1015 1016 1017 1019 1020
1021 1022 1023 1024 1025 1034# 1036 1037 1038 1039 1041 1042 1043 1044
1045 1046 1047 1055# 1057 1058 1059 1060 1062 1063 1064 1065 1066 1067
1068 1071 1072 1073 1074 1075 1076 1077 1080 1081 1082 1083 1084 1085
1086 1089 1090 1091 1092 1093 1094 1095 1098 1099 1100 1101 1102 1103
1104 1106 1107 1108 1109 1110 1111 1112 1124# 1126 1127 1128 1129 1131
1132 1133 1134 1135 1136 1137 1148# 1150 1151 1152 1153 1156 1157 1158
1159 1160 1161 1162 1165 1166 1167 1168 1169 1170 1171 1174 1175 1176
1177 1178 1179 1180 1183 1184 1185 1186 1187 1188 1189 1197# 1199 1200
1201 1202 1204 1205 1206 1207 1208 1209 1210 1218# 1220 1221 1222 1223
1225 1226 1227 1228 1229 1230 1231 1232 1242# 1244 1245 1246 1247 1249
1250 1252 1253 1254 1255 1256 1263# 1265 1266 1267 1268 1270 1271 1273
1274 1275 1276 1282# 1284 1285 1286 1287 1289 1291 1292 1293 1294 1304#
1306 1307 1308 1309 1311 1312 1314 1315 1316 1317 1320 1321 1323 1324
1325 1326 1329 1330 1332 1333 1334 1335 1338 1339 1341 1342 1343 1344
1346 1347 1349 1350 1351 1352 1355 1356 1358 1359 1360 1361 1367# 1369
1370 1371 1372 1374 1375 1377 1378 1379 1380 1386# 1388 1389 1390 1391
1393 1394 1396 1397 1398 1399 1409# 1411 1412 1413 1414 1416 1418 1420
1421 1430# 1432 1433 1434 1435 1437 1439 1440 1441 1442 1443 1457# 1459
1460 1461 1462 1464 1467 1468 1469 1470 1471 1484# 1486 1487 1488 1489
1491 1492 1494 1495 1496 1497 1498 1508# 1510 1511 1512 1513 1515 1516
1520 1521 1522 1523 1532# 1534 1535 1536 1537 1539 1540 1541 1544 1545
1546 1547 1556# 1558 1559 1560 1561 1563 1564 1569 1570 1571 1572 1579#
1581 1582 1583 1584 1586 1587 1592 1593 1594 1595 1606# 1608 1609 1610
1611 1613 1614 1615 1616 1617 1618 1629# 1631 1632 1633 1634 1636 1637
1639 1640 1642 1643 1644 1653# 1655 1656 1657 1658 1660 1661 1663 1664
1665 1666 1667 1668 1678# 1680 1681 1682 1683 1685 1686 1687 1689 1690
1692 1703# 1705 1706 1707 1708 1710 1711 1712 1714 1715 1717 1727# 1729
1730 1731 1732 1734 1735 1736 1737 1739 1740 1742 1752# 1754 1755 1756
1757 1759 1760 1761 1763 1764 1766 1776# 1778 1779 1780 1781 1783 1784
1785 1787 1788 1790 1799# 1801 1802 1803 1804 1806 1807 1808 1810 1811
1813 1823# 1825 1826 1827 1828 1830 1831 1833 1834 1835 1836 1837 1855#
1857 1858 1859 1860 1862 1863 1864 1866 1867 1868 1871 1884# 1886 1887
1888 1889 1909 1910 1911 1912 1913 1914 1919 1920 1921 1922 1923 1924
1929 1930 1931 1932 1933 1934 1939 1940 1941 1942 1943 1944 1949 1950
1951 1952 1953 1954 1965# 1967 1968 1969 1970 1993 1994 1995 1996 1997
1998 2004 2005 2006 2007 2008 2009 2015 2016 2017 2018 2019 2020 2026
2027 2028 2029 2030 2031 2037 2038 2039 2040 2041 2042 2054# 2056 2057
2058 2059 2080 2081 2082 2083 2084 2085 2086 2091 2092 2093 2094 2095
2096 2097 2102 2103 2104 2105 2106 2107 2108 2113 2114 2115 2116 2117
2118 2119 2124 2125 2126 2127 2128 2129 2130 2142# 2144 2145 2146 2147
2167 2169 2170 2171 2172 2177 2179 2180 2181 2182 2187 2189 2190 2191
2192 2197 2199 2200 2201 2202 2207 2209 2210 2211 2212 2225# 2227 2228
2229 2230 2251 2254 2255 2256 2257 2262 2265 2266 2267 2268 2273 2276
2277 2278 2279 2284 2287 2288 2289 2290 2295 2298 2299 2300 2301 2313#
2315 2316 2317 2318 2336 2337 2339 2340 2341 2342 2346 2347 2349 2350 SEQ 0238
2351 2352 2356 2357 2359 2360 2361 2362 2366 2367 2369 2370 2371 2372
2376 2377 2379 2380 2381 2382 2394# 2396 2397 2398 2399 2420 2421 2422
2423 2430 2431 2432 2433 2440 2441 2442 2443 2450 2451 2452 2453 2460
2461 2462 2463 2475# 2477 2478 2479 2480 2500 2501 2505 2506 2507 2508
2512 2513 2517 2518 2519 2520 2524 2525 2529 2530 2531 2532 2536 2537
2541 2542 2543 2544 2548 2549 2553 2554 2555 2556 2567# 2569 2570 2571
2572 2604 2605 2606 2607 2618 2619 2620 2621 2632 2633 2634 2635 2647#
2649 2650 2651 2652 2670 2671 2673 2674 2675 2676 2680 2681 2683 2684
2685 2686 2690 2691 2693 2694 2695 2696 2700 2701 2703 2704 2705 2706
2710 2711 2713 2714 2715 2716 2727# 2729 2730 2731 2732 2750 2753 2754
2755 2756 2760 2763 2764 2765 2766 2770 2773 2774 2775 2776 2780 2783
2784 2785 2786 2790 2793 2794 2795 2796 2808# 2810 2811 2812 2813 2835
2836 2839 2840 2841 2842 2847 2848 2851 2852 2853 2854 2859 2860 2863
2864 2865 2866 2877# 2879 2880 2881 2882 2903 2906 2907 2908 2909 2914
2917 2918 2919 2920 2925 2928 2929 2930 2931 2936 2939 2940 2941 2942
2947 2950 2951 2952 2953 2965# 2967 2968 2969 2970 2991 2994 2995 2996
2997 3002 3005 3006 3007 3008 3013 3016 3017 3018 3019 3024 3027 3028
3029 3030 3035 3038 3039 3040 3041 3053 3055 3056 3057 3058 3059 3069#
3071 3072 3073 3074 3097 3098 3099 3101 3102 3103 3105 3110 3111 3112
3114 3115 3116 3118 3123 3124 3125 3127 3128 3129 3131 3136 3137 3138
3140 3141 3142 3144 3149 3150 3151 3153 3154 3155 3157 3168# 3170 3171
3172 3173 3198 3199 3200 3201 3203 3204 3206 3212 3213 3214 3215 3217
3218 3220 3226 3227 3228 3229 3231 3232 3234 3240 3241 3242 3243 3245
3246 3248 3254 3255 3256 3257 3259 3260 3262 3274# 3276 3277 3278 3279
3302 3303 3304 3305 3307 3308 3310 3315 3316 3317 3318 3320 3321 3323
3328 3329 3330 3331 3333 3334 3336 3341 3342 3343 3344 3346 3347 3349
3354 3355 3356 3357 3359 3360 3362 3372# 3374 3375 3376 3377 3382 3398
3399 3400 3401 3403 3404 3406 3410 3411 3412 3413 3415 3416 3418 3422
3423 3424 3425 3427 3428 3430 3434 3435 3436 3437 3439 3440 3442 3446
3447 3448 3449 3451 3452 3454 3461# 3463 3464 3465 3466 3489 3490 3491
3492 3493 3494 3495 3496 3502 3503 3504 3505 3506 3507 3508 3509 3544
3545 3546 3547 3548 3553 3554 3557 3563 3564 3565 3566 3567 3572 3573
3576 3581# 3583 3584 3585 3586 3588 3589 3590 3592 3593 3594 3595 3596
3597 3598 3599 3600 3602 3603 3604 3606 3607 3608 3609 3610 3611 3612
3613 3614 3618# 3620 3621 3622 3623 3626 3627 3628 3629 3630 3631 3636#
3638 3639 3640 3641 3644 3645 3646 3647 3649 3650 3651 3652 3657# 3659
3660 3661 3662 3665 3666 3667 3668 3669 3670 3671 3672 3673 3674 3675
3676 3677 3678 3683# 3685 3686 3687 3688 3691 3692 3693 3694 3695 3696
3697 3698 3699 3700 3701 3702 3703 3704 3705 3706 3711# 3713 3714 3715
3716 3719 3720 3721 3722 3723 3724 3725 3726 3727 3728 3729 3730 3731
3732 3733 3738# 3740 3741 3742 3743 3746 3747 3748 3749 3750 3751 3752
3753 3754 3755 3756 3757 3758 3759 3760 3761 3762 3767# 3769 3770 3771
3772 3775 3776 3777 3778 3779 3780 3781 3782 3783 3784 3785 3786 3787
3788 3789 3795# 3797 3798 3799 3800 3803 3804 3805 3806 3807 3808 3809
3810 3811 3813 3814 3815 3820# 3822 3823 3824 3825 3829 3830 3831 3832
3833 3834 3835 3836 3838 3839 3840 3841 3842 3843 3844 3845 3850# 3852
3853 3854 3855 3858 3859 3860 3861 3862 3863 3864 3865 3866 3868 3869
3870 3871 3872 3873 3874 3875 3876 3881# 3883 3884 3885 3886 3889 3890
3891 3892 3893 3894 3895 3896 3897 3898 3899 3900 3901 3902 3908# 3910
3911 3912 3913 3916 3917 3918 3919 3920 3921 3922 3923 3924 3925 3926
3927 3928 3929 3930 3935# 3937 3938 3939 3940 3943 3944 3945 3946 3947
3948 3949 3950 3951 3952 3953 3954 3955 3956 3957 3962# 3964 3965 3966
3967 3970 3971 3972 3973 3974 3975 3976 3977 3978 3979 3980 3981 3982 SEQ 0239
3983 3984 3985 3986 3991# 3993 3994 3995 3996 3999 4000 4001 4002 4003
4004 4005 4006 4008 4009 4010 4011 4012 4013 4014 4020# 4022 4023 4024
4025 4028 4029 4030 4031 4032 4033 4034 4035 4037 4038 4039 4040 4041
4042 4043 4044 4049# 4051 4052 4053 4054 4057 4058 4059 4060 4061 4062
4063 4064 4066 4067 4068 4069 4070 4071 4072 4073 4078# 4080 4081 4082
4083 4086 4087 4089 4090 4091 4092 4093 4094 4095 4097 4098 4099 4100
4101 4102 4103 4104 4105 4109# 4111 4112 4113 4114 4117 4118 4119 4120
4121 4122 4123 4124 4125 4126 4127 4132# 4134 4135 4136 4137 4140 4141
4142 4143 4144 4145 4146 4147 4148 4149 4150 4154# 4156 4157 4158 4159
4162 4163 4164 4165 4166 4167 4168 4169 4170 4171 4172 4177# 4179 4180
4181 4182 4185 4186 4187 4188 4189 4190 4191 4192 4193 4194 4195 4199#
4201 4202 4203 4204 4207 4208 4209 4211 4213 4214 4215 4216 4217 4218
4219 4220 4223# 4225 4226 4227 4228 4231 4232 4233 4234 4235 4236 4237
4238 4239 4240 4241 4242 4243 4244 4248# 4250 4251 4252 4253 4256 4257
4258 4259 4260 4261 4262 4263 4264 4265 4266 4267 4268 4269 4272# 4274
4275 4276 4277 4280 4281 4282 4283 4284 4285 4286 4287 4288 4289 4290
4291 4292 4293 4294 4298# 4300 4301 4302 4303 4306 4307 4308 4309 4310
4311 4312 4313 4314 4315 4316 4317 4318 4319 4320 4324# 4326 4327 4328
4329 4332 4333 4334 4335 4336 4337 4346# 4348 4349 4350 4351 4353 4354
4357 4360 4370 4375# 4377 4378 4379 4380 4382 4383 4386 4389 4399 4404#
4406 4407 4408 4409 4411 4412 4415 4418 4428 4433# 4435 4436 4437 4438
4444 4448 4450 4451 4452 4454 4455 4456 4458 4459 4460 4461 4466# 4468
4469 4470 4471 4477 4481 4483 4484 4485 4487 4488 4489 4491 4492 4493
4494 4500# 4502 4503 4504 4505 4511 4513 4514 4516 4518 4519 4520 4522
4523 4524 4526 4527 4528 4529 4537# 4539 4540 4541 4542 4544 4545 4548
4585 4676 4685# 4687 4688 4689 4690 4692 4693 4696 4733 4824 4833# 4835
4836 4837 4838 4840 4841 4844 4881 4972 4981# 4983 4984 4985 4986 4988
4992 5015 5016 5021 5022 5027 5028 5029 5078 5079 5083 5093 5094 5096
5108 5109 5113 5120 5129# 5131 5132 5133 5134 5136 5140 5163 5164 5169
5170 5175 5176 5177 5226 5227 5231 5241 5242 5244 5256 5257 5261 5268
5277# 5279 5280 5281 5282 5284 5288 5311 5312 5317 5318 5323 5324 5325
5374 5375 5379 5389 5390 5392 5404 5405 5409 5416 5425# 5427 5428 5429
5430 5436 5441 5442 5447 5448 5453 5454 5459 5460 5465 5466 5471 5472
5473 5477 5478 5482 5492 5493 5497 5507 5508 5512 5522 5523 5527 5537
5538 5540 5552 5553 5557 5564 5573# 5575 5576 5577 5578 5584 5589 5590
5595 5596 5601 5602 5607 5608 5613 5614 5619 5620 5621 5625 5626 5630
5640 5641 5645 5655 5656 5660 5670 5671 5675 5685 5686 5688 5700 5701
5705 5712 5721# 5723 5724 5725 5726 5732 5737 5738 5743 5744 5749 5750
5755 5756 5761 5762 5767 5768 5769 5773 5774 5778 5788 5789 5793 5803
5804 5808 5818 5819 5823 5833 5834 5836 5848 5849 5853 5860 5869# 5871
5872 5873 5874 5877 5880 5885 5886 5891 5892 5897 5898 5917 5921 5922
5926 5936 5937 5941 5951 5952 5956 6008 6017# 6019 6020 6021 6022 6025
6028 6033 6034 6039 6040 6045 6046 6065 6069 6070 6074 6084 6085 6089
6099 6100 6104 6156 6165# 6167 6168 6169 6170 6173 6176 6181 6182 6187
6188 6193 6194 6213 6217 6218 6222 6232 6233 6237 6247 6248 6252 6304
6308# 6310 6311 6312 6313 6316 6317 6320 6327 6363 6367# 6369 6370 6371
6372 6375 6376 6379 6386 6422 6426# 6428 6429 6430 6431 6434 6435 6438
6448 6484 6488# 6490 6491 6492 6493 6496 6497 6500 6516 6552 6556# 6558
6559 6560 6561 6568 6580 6582 6583 6585 6588 6589 6591 6594 6595 6597
6600 6601 6603 6606 6607 6609 6612 6613 6615 6618 6619 6621 6623 6627#
6629 6630 6631 6632 6639 6651 6653 6654 6656 6659 6660 6662 6665 6666
6668 6671 6672 6674 6677 6678 6680 6683 6684 6686 6689 6690 6692 6694
6698# 6700 6701 6702 6703 6710 6722 6724 6725 6727 6730 6731 6733 6736 SEQ 0240
6737 6739 6742 6743 6745 6748 6749 6751 6754 6755 6757 6760 6761 6763
6765 6769# 6771 6772 6773 6774 6781 6801 6803 6804 6806 6809 6810 6812
6815 6816 6818 6821 6822 6824 6827 6828 6830 6833 6834 6836 6839 6840
6842 6844 6848# 6850 6851 6852 6853 6856 6857 6860 6878 6920 6924# 6926
6927 6928 6929 6936 6958 6963 6964 6966 6969 6970 6972 6975 6976 6978
6981 6982 6984 6987 6988 6990 6993 6994 6996 6999 7000 7002 7005 7006
7008 7010 7014# 7016 7017 7018 7019 7022 7023 7026 7044 7083 7087# 7089
7090 7091 7092 7099 7121 7126 7127 7129 7132 7133 7134 7136 7137 7139
7142 7143 7145 7148 7149 7151 7154 7155 7157 7160 7161 7163 7166 7167
7169 7171 7175# 7177 7178 7179 7180 7183 7187 7242 7290 7291 7293 7296
7297 7299 7302 7303 7305 7308 7309 7311 7314 7315 7317 7320 7321 7323
7326 7327 7329 7332 7333 7335 7338 7339 7341 7344 7345 7347 7350 7351
7353 7356 7357 7359 7361 7365# 7367 7368 7369 7370 7374 7377 7425 7430
7431 7433 7436 7437 7438 7440 7441 7442 7444 7445 7446 7448 7449 7450
7452 7453 7454 7456 7457 7458 7460 7461 7462 7464 7465 7466 7468 7469
7470 7472 7473 7474 7476 7477 7479 7544 7550# 7578 7578# 7580 7581 7582
7583 7585 7586 7587 7589 7590 7591 7592 7593 7594 7600 7600# 7602 7603
7604 7605 7607 7608 7609 7611 7612 7613 7614 7615 7616 7622 7622# 7624
7625 7626 7627 7629 7630 7631 7633 7634 7635 7636 7637 7638 7644 7644#
7646 7647 7648 7649 7651 7652 7653 7655 7656 7657 7658 7659 7660 7666
7666# 7668 7669 7670 7671 7673 7674 7675 7677 7678 7679 7680 7681 7682
7688 7688# 7690 7691 7692 7693 7695 7696 7697 7699 7700 7701 7702 7703
7704 7710 7710# 7712 7713 7714 7715 7717 7718 7719 7721 7722 7723 7724
7725 7726 7732 7732# 7734 7735 7736 7737 7739 7740 7741 7743 7744 7745
7746 7747 7748 7754 7754# 7756 7757 7758 7759 7761 7762 7763 7765 7766
7767 7768 7769 7770 7776 7776# 7778 7779 7780 7781 7783 7784 7785 7787
7788 7789 7790 7791 7792 7798 7798# 7800 7801 7802 7803 7805 7806 7807
7809 7810 7811 7812 7813 7814 7820 7820# 7822 7823 7824 7825 7827 7828
7829 7831 7832 7833 7834 7835 7836 7842 7842# 7844 7845 7846 7847 7849
7850 7851 7853 7854 7855 7856 7857 7858 7867 7868 7869 7870 7871 7872
7873 7874 7909 7910 7911 7912 7913 7914 7915 7916 7917 7918 7927 7928
7929 7930 7931 7932 7933 7934 7935 7936 7945 7946 7947 7948 7949 7950
7951 7952 7953 7954 7963 7964 7965 7966 7967 7968 7969 7970 7971 7972
7981 7982 7983 7984 7985 7986 7987 7988 7989 7990 7999 8000 8001 8002
8003 8004 8005 8006 8007 8008 8017 8018 8019 8020 8021 8022 8023 8024
8025 8026 8035 8036 8037 8038 8039 8040 8041 8042 8043 8044 8053 8054
8055 8056 8057 8058 8059 8060 8061 8062 8071 8072 8073 8074 8075 8076
8077 8078 8079 8080 8089 8090 8091 8092 8093 8094 8095 8096 8097 8098
8107 8108 8109 8110 8111 8112 8113 8114 8115 8116 8125 8126 8127 8128
8129 8130 8131 8132 8133 8134 8143 8144 8145 8146 8147 8148 8149 8150
8151 8152 8161 8162 8163 8164 8165 8166 8167 8168 8169 8170 8179 8180
8181 8182 8183 8184 8185 8186 8187 8188 8197 8198 8199 8200 8201 8202
8203 8204 8205 8206 8215 8216 8217 8218 8219 8220 8221 8222 8223 8224
8256 8257 8258 8259 8260 8261 8262 8263 8264 8265 8274 8275 8276 8277
8278 8279 8280 8281 8282 8283 8292 8293 8294 8295 8296 8297 8298 8299
8300 8301 8310 8311 8312 8313 8314 8315 8316 8317 8318 8319 8328 8329
8330 8331 8332 8333 8334 8335 8336 8337 8346 8347 8348 8349 8350 8351
8352 8353 8354 8355 8364 8365 8366 8367 8368 8369 8370 8371 8372 8373
8382 8383 8384 8385 8386 8387 8388 8389 8390 8391 8400 8401 8402 8403
8404 8405 8406 8407 8408 8409 8418 8419 8420 8421 8422 8423 8424 8425
8426 8427 8436 8437 8438 8439 8440 8441 8442 8443 8444 8445 8454 8455
8456 8457 8458 8459 8460 8461 8462 8463 8472 8473 8474 8475 8476 8477
8478 8479 8480 8481 8490 8491 8492 8493 8494 8495 8496 8497 8498 8499 SEQ 0241
8508 8509 8510 8511 8512 8513 8514 8515 8516 8517 8526 8527 8528 8529
8530 8531 8532 8533 8534 8535 8544 8545 8546 8547 8548 8549 8550 8551
8552 8553 8562 8563 8564 8565 8566 8567 8568 8569 8570 8571 8578# 8605
8605# 8607 8608 8609 8610 8612 8613 8614 8615 8616 8617 8618 8619 8620
8621 8628 8628# 8630 8631 8632 8633 8635 8636 8637 8638 8639 8640 8641
8642 8643 8644 8651 8651# 8653 8654 8655 8656 8658 8659 8660 8661 8662
8663 8664 8665 8666 8667 8674 8674# 8676 8677 8678 8679 8681 8682 8683
8684 8685 8686 8687 8688 8689 8690 8697 8697# 8699 8700 8701 8702 8704
8705 8706 8707 8708 8709 8710 8711 8712 8713 8720 8720# 8722 8723 8724
8725 8727 8728 8729 8730 8731 8732 8733 8734 8735 8736 8743 8743# 8745
8746 8747 8748 8750 8751 8752 8753 8754 8755 8756 8757 8758 8759 8766
8766# 8768 8769 8770 8771 8773 8774 8775 8776 8777 8778 8779 8780 8781
8782 8789 8789# 8791 8792 8793 8794 8796 8797 8798 8799 8800 8801 8802
8803 8804 8805 8812 8812# 8814 8815 8816 8817 8819 8820 8821 8822 8823
8824 8825 8826 8827 8828 8835 8835# 8837 8838 8839 8840 8842 8843 8844
8845 8846 8847 8848 8849 8850 8851 8858 8858# 8860 8861 8862 8863 8865
8866 8867 8868 8869 8870 8871 8872 8873 8874 8881 8881# 8883 8884 8885
8886 8888 8889 8890 8891 8892 8893 8894 8895 8896 8897
ALTMGO 513# 9029
AROV 427#
AROVTP 427#
AROVU 427#
AST 628#
ATSIN 629#
BEGEND 509# 8900
BEGIN 67 68 69 72 73 74 75 76 77 378 379 440# 9232
BEGIN1 456# 510
BELL 632#
BIS 427# 3591 3598 3605 3612
BLTBLK 4440 4441 4473 4474 4507 4508 4989 5137 5285 5432 5433 5580 5581 5728
5729 5876 6024 6172 6564 6565 6635 6636 6706 6707 6777 6778 6932 6933
7095 7096 7184 7373 8906#
BYTBLK 3645 3648 3649 3692 3695 3703 3704 3721 3725 3726 3727 3747 3748 3750
3753 3754 3755 3757 3758 3804 3808 3831 3836 3838 3839 3859 3860 3863
3866 3868 3869 3871 3872 3917 3920 3927 3928 3945 3949 3950 3951 3971
3972 3974 3977 3978 3979 3981 3982 4029 4033 4041 4042 4059 4064 4066
4067 4087 4089 4092 4095 4097 4098 4100 4101 8903#
CCA 427#
CHAIN 183#
CHNOFF 427#
CHNON 427#
CLKU 427#
CLOCKF 495#
CNTLC 512#
CNTRP 427#
COMMA 621#
CONSW 496# 8964 9030 9054
CPOPJ 516#
CPOPJ1 514#
CRLF 313 314 616#
CRLF2 317 318 618#
CRY0 427#
CRY1 427# SEQ 0242
CSHFLG 675#
CSHMEM 676#
CTRP 427#
CYCL60 669#
DCK 427#
DDTLNK 197# 454
DDTSRT 454#
DEBUG 59# 9223 9224
DECVER 4# 11 26 475
DEST 4354# 4357 4360 4362 4363 4365 4366 4368 4369 4383# 4386 4389 4391 4392
4394 4395 4397 4398 4412# 4415 4418 4420 4421 4423 4424 4426 4427 4441#
4444 4448 4450 4454 4458 4474# 4477 4481 4483 4487 4491 4508# 4511 4516
4518 4522 4526 4545# 4548 4568 4569 4570 4574 4575 4576 4580 4581 4582
4585 4633 4640 4641 4645 4648 4655 4656 4658 4663 4670 4671 4675 4693#
4696 4716 4717 4718 4722 4723 4724 4728 4729 4730 4733 4781 4788 4789
4793 4796 4803 4804 4806 4811 4818 4819 4823 4841# 4844 4864 4865 4866
4870 4871 4872 4876 4877 4878 4881 4929 4936 4937 4941 4944 4951 4952
4954 4959 4966 4967 4971 4989# 4992 5012 5014 5016 5018 5020 5022 5024
5026 5028 5029 5077 5078 5084 5092 5093 5099 5107 5108 5114 5137# 5140
5160 5162 5164 5166 5168 5170 5172 5174 5176 5177 5225 5226 5232 5240
5241 5247 5255 5256 5262 5285# 5288 5308 5310 5312 5314 5316 5318 5320
5322 5324 5325 5373 5374 5380 5388 5389 5395 5403 5404 5410 5433# 5436
5456 5458 5460 5462 5464 5466 5468 5470 5472 5473 5521 5522 5528 5536
5537 5543 5551 5552 5558 5581# 5584 5604 5606 5608 5610 5612 5614 5616
5618 5620 5621 5669 5670 5676 5684 5685 5691 5699 5700 5706 5729# 5732
5752 5754 5756 5758 5760 5762 5764 5766 5768 5769 5817 5818 5824 5832
5833 5839 5847 5848 5854 5877# 5880 5900 5901 5902 5906 5907 5908 5912
5913 5914 5917 5965 5972 5973 5977 5980 5987 5988 5990 5995 6002 6003
6007 6025# 6028 6048 6049 6050 6054 6055 6056 6060 6061 6062 6065 6113
6120 6121 6125 6128 6135 6136 6138 6143 6150 6151 6155 6173# 6176 6196
6197 6198 6202 6203 6204 6208 6209 6210 6213 6261 6268 6269 6273 6276
6283 6284 6286 6291 6298 6299 6303 6317# 6320 6327 6329 6331 6334 6336
6339 6341 6344 6346 6349 6351 6354 6356 6359 6361 6376# 6379 6386 6388
6390 6393 6395 6398 6400 6403 6405 6408 6410 6413 6415 6418 6420 6435#
6438 6448 6450 6452 6455 6457 6460 6462 6465 6467 6470 6472 6475 6477
6480 6482 6497# 6500 6516 6518 6520 6523 6525 6528 6530 6533 6535 6538
6540 6543 6545 6548 6550 6565# 6568 6580 6582 6588 6594 6600 6606 6612
6618 6636# 6639 6651 6653 6659 6665 6671 6677 6683 6689 6707# 6710 6722
6724 6730 6736 6742 6748 6754 6760 6778# 6781 6801 6803 6809 6815 6821
6827 6833 6839 6857# 6860 6862 6864 6878 6880 6882 6885 6887 6890 6892
6895 6897 6901 6903 6906 6908 6911 6913 6933# 6936 6938 6941 6958 6963
6969 6975 6981 6987 6993 6999 7023# 7026 7042 7044 7054 7056 7059 7061
7064 7066 7069 7071 7074 7076 7079 7081 7096# 7099 7119 7121 7136 7142
7148 7154 7160 7166 7184# 7187 7214 7215 7217 7218 7219 7220 7221 7222
7223 7224 7225 7226 7227 7228 7229 7230 7231 7232 7233 7234 7235 7236
7237 7238 7242 7290 7291 7296 7302 7308 7314 7320 7326 7332 7338 7344
7350 7356 7357 7374# 7377 7410 7412 7413 7415 7416 7417 7418 7419 7420
7421 7422 7423 7425 7485 7487 7490 7492 7495 7497 7500 7502 7505 7507
7510 7512 7515 7517 7520 7522 7525 7527 7530 7532 7535 7537 7540 7542
DF22F 580#
DIAGMN 443#
DING 169# 9035
DOLLAR 635# SEQ 0243
DSKUPD 480
EBIT0 427#
EBIT1 427#
EBIT10 427#
EBIT11 427#
EBIT12 427#
EBIT13 427#
EBIT14 427#
EBIT15 427#
EBIT2 427#
EBIT3 427#
EBIT4 427#
EBIT5 427#
EBIT6 427#
EBIT7 427#
EBIT8 427#
EBIT9 427#
END 9231#
ENDFIX 755#
ENDSLD 9221#
ERDIAG 63# 8949
ERMORE 529# 9022
EROLD 389
ERRELB 9019
ERRLOP 802# 802 826# 826 845# 845 863# 863 886# 886 968# 968 1017# 1017
1039# 1039 1060# 1060 1129# 1129 1153# 1153 1202# 1202 1223# 1223 1247# 1247
1268# 1268 1287# 1287 1309# 1309 1372# 1372 1391# 1391 1414# 1414 1435# 1435
1462# 1462 1489# 1489 1513# 1513 1537# 1537 1561# 1561 1584# 1584 1611# 1611
1634# 1634 1658# 1658 1683# 1683 1708# 1708 1732# 1732 1757# 1757 1781# 1781
1804# 1804 1828# 1828 1860# 1860 1889# 1889 1970# 1970 2059# 2059 2147# 2147
2230# 2230 2318# 2318 2399# 2399 2480# 2480 2572# 2572 2652# 2652 2732# 2732
2813# 2813 2882# 2882 2970# 2970 3074# 3074 3173# 3173 3279# 3279 3377# 3377
3466# 3466 3586# 3586 3623# 3623 3641# 3641 3662# 3662 3688# 3688 3716# 3716
3743# 3743 3772# 3772 3800# 3800 3825# 3825 3855# 3855 3886# 3886 3913# 3913
3940# 3940 3967# 3967 3996# 3996 4025# 4025 4054# 4054 4083# 4083 4114# 4114
4137# 4137 4159# 4159 4182# 4182 4204# 4204 4228# 4228 4253# 4253 4277# 4277
4303# 4303 4329# 4329 4351# 4351 4380# 4380 4409# 4409 4438# 4438 4471# 4471
4505# 4505 4542# 4542 4690# 4690 4838# 4838 4986# 4986 5134# 5134 5282# 5282
5430# 5430 5578# 5578 5726# 5726 5874# 5874 6022# 6022 6170# 6170 6313# 6313
6372# 6372 6431# 6431 6493# 6493 6561# 6561 6632# 6632 6703# 6703 6774# 6774
6853# 6853 6929# 6929 7019# 7019 7092# 7092 7180# 7180 7370# 7370 7583# 7583
7605# 7605 7627# 7627 7649# 7649 7671# 7671 7693# 7693 7715# 7715 7737# 7737
7759# 7759 7781# 7781 7803# 7803 7825# 7825 7847# 7847 8610# 8610 8633# 8633
8656# 8656 8679# 8679 8702# 8702 8725# 8725 8748# 8748 8771# 8771 8794# 8794
8817# 8817 8840# 8840 8863# 8863 8886# 8886 8929 9040 9043 9044
ERRMES 46 47 48 49 50 51 52 53 54 55 56 8911#
ERRPC 500# 8916 8946
ERRTLS 501# 8914 9047
ERSTOP 172# 9031
EXCASB 60# 478
EXIOT 427#
EXIT 756# 757
FOV 427# SEQ 0244
FOVU 427#
FRDLNK 195#
FSELNK 194#
FXU 427#
G100 804# 810
G1000 979# 984
G10000 1895#
G10100 1977#
G10200 2065#
G10300 2153#
G10400 2236#
G10500 2323#
G10600 2404#
G10700 2485#
G1100 986# 991
G11000 2580#
G11100 2657#
G11200 2737#
G11300 2819#
G11400 2888#
G11500 2976#
G11600 3053# 3059
G11700 3080#
G1200 994# 999
G12000 3179#
G12100 3285#
G12200 3382#
G12210 3471#
G12220 3520#
G12300 3588# 3600
G12400 3602# 3614
G12500 3626# 3631
G12510 3644# 3652
G12600 3665# 3678
G12610 3691# 3706
G12620 3719# 3733
G12630 3746# 3762
G12700 3775# 3789
G12710 3803# 3815
G12720 3829# 3845
G12730 3858# 3876
G1300 1002# 1007
G13000 3889# 3902
G13010 3916# 3930
G13020 3943# 3957
G13030 3970# 3986
G13100 3999# 4014
G13110 4028# 4044
G13120 4057# 4073
G13130 4086# 4105
G13200 4117# 4127
G13210 4140# 4150
G13220 4162# 4172 SEQ 0245
G13230 4185# 4195
G13240 4207# 4220
G13300 4231# 4244
G13310 4256# 4269
G13320 4280# 4294
G13330 4306# 4320
G13400 4332# 4337
G1400 1019# 1025
G1500 1041# 1047
G1600 1062# 1068
G1700 1071# 1077
G200 828# 834
G2000 1080# 1086
G20100 6320# 6363
G20200 6379# 6422
G20300 6438# 6484
G20400 6500# 6552
G20500 6568# 6623
G20600 6639# 6694
G20700 6710# 6765
G2100 1089# 1095
G21000 6781# 6844
G21100 6860# 6920
G21200 6936# 7010
G21300 7026# 7083
G21400 7099# 7171
G21500 7187# 7361
G21600 7377# 7544
G2200 1098# 1104
G22100 4357# 4370
G22200 4386# 4399
G22300 4415# 4428
G22400 4444# 4461
G22500 4477# 4494
G22600 4511# 4529
G22700 4548# 4676
G2300 1106# 1112
G23000 4696# 4824
G23100 4844# 4972
G23200 4992# 5120
G23300 5140# 5268
G23400 5288# 5416
G23500 5436# 5564
G23600 5584# 5712
G23700 5732# 5860
G2400 1131# 1137
G24000 5880# 6008
G24100 6028# 6156
G24200 6176# 6304
G2600 1156# 1162
G2700 1165# 1171
G300 847# 852
G3000 1174# 1180 SEQ 0246
G30000 7549#
G30100 7555#
G30200 7867# 7874
G30300 7883#
G30400 8230#
G30500 8580#
G3100 1183# 1189
G3200 1204# 1210
G3300 1225# 1232
G3400 1249# 1256
G3500 1270# 1276
G3600 1289# 1294
G3700 1311# 1317
G400 865# 870
G4000 1320# 1326
G4100 1329# 1335
G4200 1338# 1344
G4300 1346# 1352
G4400 1355# 1361
G4600 1374# 1380
G4700 1393# 1399
G5000 1416# 1421
G5100 1437# 1443
G5200 1464# 1471
G5300 1491# 1498
G5400 1515# 1523
G5500 1539# 1547
G5600 1563# 1572
G5700 1586# 1595
G600 892#
G6000 1613# 1618
G6100 1636# 1644
G6200 1660# 1668
G6300 1685# 1692
G6400 1710# 1717
G700 971# 976
G7000 1734# 1742
G7100 1759# 1766
G7200 1783# 1790
G7400 1806# 1813
G7600 1830# 1837
G7700 1862# 1871
GSVAC 8613# 8613 8617 8636# 8636 8640 8659# 8659 8663 8682# 8682 8686 8705# 8705
8709 8728# 8728 8732 8751# 8751 8755 8774# 8774 8778 8797# 8797 8801 8820#
8820 8824 8843# 8843 8847 8866# 8866 8870 8889# 8889 8893
GSVAC0 7213# 7213 7240
HYPEN 626#
INHCSH 180#
INHPAG 177#
IOCLR 427#
ITERAT 88# 473
ITRCH1 533#
ITRCNT 473# SEQ 0247
JOB41 427#
JOBAPR 427#
JOBCNI 427#
JOBDDT 427#
JOBFF 427#
JOBOPC 427# 9028
JOBREL 427#
JOBREN 427#
JOBSA 427#
JOBSYM 427#
JOBTPC 427#
JOBUSY 427#
JOBUUO 427#
JOBVER 427#
KAIFLG 490#
KLFLG 491# 4210 4212
KNTRP 427#
KTRP 427#
LACLK 427#
LACLKE 427#
LAPRAL 427#
LAPRP1 427#
LAPRP2 427#
LAPRP3 427#
LAPRP4 427#
LAPRP5 427#
LAPRP6 427#
LAPRP7 427#
LAST1 8900#
LCHNOF 427#
LCHNON 427#
LCNTXT 427#
LCNXER 427#
LCPAER 427#
LCPSFT 427#
LCPWRF 427#
LDATAF 427#
LDLNK 196# 443 445
LDNXER 427#
LDPAER 427#
LDPSFT 427#
LDPWRF 427#
LEBXMH 427#
LEBXML 427#
LENXER 427#
LEPAER 427#
LEPSFT 427#
LEPWRF 427#
LEUPFW 427#
LEXCMP 427#
LFLGCL 427#
LFLGDS 427#
LFLGEN 427# SEQ 0248
LFLGST 427#
LFP 630#
LINSTF 427#
LINT 427#
LIOCLR 427#
LLACBL 427#
LLDUSB 427#
LMBXMH 427#
LMBXML 427#
LNXMEN 427#
LNXMER 427#
LOOPER 171# 9033
LPAREN 427#
LPARER 427#
LPFWPC 427#
LPGFTR 427#
LPICH1 427#
LPICH2 427#
LPICH3 427#
LPICH4 427#
LPICH5 427#
LPICH6 427#
LPICH7 427#
LPICHA 427#
LPICLR 427#
LPIIP1 427#
LPIIP2 427#
LPIIP3 427#
LPIIP4 427#
LPIIP5 427#
LPIIP6 427#
LPIIP7 427#
LPIOFF 427#
LPION 427#
LPRCH1 427#
LPRCH2 427#
LPRCH3 427#
LPRCH4 427#
LPRCH5 427#
LPRCH6 427#
LPRCH7 427#
LPRFMH 427#
LPRFML 427#
LPSFT 427#
LPSFTE 427#
LPWRFE 427#
LPWRFL 427#
LREQSE 427#
LRQCLR 427#
LSECMO 427#
LSMODE 427#
LSNXER 427#
LSPAER 427# SEQ 0249
LSPSFT 427#
LSPWRF 427#
LTBASH 427#
LTBASL 427#
LTRPAE 427#
LTRPEN 427#
LUSCMP 427#
LUUO 427#
LUUO1 46# 560 561
LUUO10 53# 560 565
LUUO11 54# 560 565
LUUO12 55# 560 566
LUUO13 56# 560 566
LUUO14 560 567
LUUO15 560 567
LUUO16 560 568
LUUO17 560 568
LUUO2 47# 560 562
LUUO20 560 569
LUUO21 560 569
LUUO22 560 570
LUUO23 560 570
LUUO24 560 571
LUUO25 560 571
LUUO26 560 572
LUUO27 560 572
LUUO3 48# 560 562
LUUO30 560 573
LUUO31 560 573
LUUO32 560 574
LUUO33 560 574
LUUO4 49# 560 563
LUUO5 50# 560 563
LUUO6 51# 560 564
LUUO7 52# 560 564
LUUOI 427#
LWRITE 427#
MAPNEW 581#
MARGIN 503#
MCNVER 3# 11 26 475
MEMLOW 583#
MEMMAP 481
MEMSIZ 584#
MEMTOT 582#
MICNT 8917# 8917 8918 8931
MINUS 625#
MODDVC 179#
MODDVL 378 378# 476
MODDVU 379 379# 477
MODLNK 198# 440
MONCTL 493# 8932 9045
MONFLG 492#
MONTEN 494# SEQ 0250
MONTYP 707#
MPVU 427#
MUUO 427#
MUUOPC 427#
NOPNT 167# 8922
NXMU 427#
OPRSEL 181#
OPTIME 595#
P 224 225 226 227 427# 515
PAG 427#
PALERS 173# 9055
PAREA0 81#
PAREA1 82# 471
PAREA2 83# 472
PAREA3 84# 469
PAREA4 85# 470
PAREA5 86# 482
PAREA6 87# 483
PAREA7 482#
PAREA8 483#
PART1 783 797#
PARU 427#
PASCNT 497# 8937 8941
PATCH 9224#
PDISF 592#
PDLOVU 427#
PDOVTP 427#
PERIOD 622#
PFSTRT 449#
PGMEND 62# 9230
PGMNAM 474 759#
PICHN1 427#
PICHN2 427#
PICHN3 427#
PICHN4 427#
PICHN5 427#
PICHN6 427#
PICHN7 427#
PICHNA 427#
PICLR 427#
PIOFF 427#
PION 427#
PLIST 661# 661
PLISTE 661 663#
PLISTS 662#
PLUS 627#
PNTENB 591#
PNTEXT 470#
PNTFLG 590#
PNTINH 593#
PNTLPT 168#
PNTNAM 469#
PNTRP 427# SEQ 0251
PNTSPC 594#
PROCED 8920# 8920 9034 9041
PTRP 427#
PVPAGI 688#
QUEST 633#
RADIX 636#
RADLSC 638#
RADLSP 637#
RANDBS 471#
REENTR 451#
RELIAB 175#
REPT 427#
REPT1 427#
REPTU 549#
REQSET 427#
RESRT1 526#
RESRT2 527#
RETURN 458#
RSTART 164#
RTP 631#
RUNFLG 498#
SADR1 67# 447
SADR10 76# 463
SADR11 77# 464
SADR2 68# 449
SADR3 69# 451
SADR4 70#
SADR5 71# 512
SADR6 72# 513
SADR7 73# 460
SADR8 74# 461
SADR9 75# 462
SBINIT 237 457#
SCOPE 550#
SFSTRT 447#
SIZ 4355# 4360 4384# 4389 4413# 4418 4442# 4448 4475# 4481 4509# 4516 4546# 4585
4694# 4733 4842# 4881 4990# 5029 5138# 5177 5286# 5325 5434# 5473 5582# 5621
5730# 5769 5878# 5917 6026# 6065 6174# 6213 6318# 6322 6327 6359 6361 6377#
6381 6386 6418 6420 6436# 6440 6448 6480 6482 6498# 6514 6516 6548 6550
6566# 6578 6580 6618 6637# 6649 6651 6689 6708# 6720 6722 6760 6779# 6799
6801 6839 6858# 6876 6878 6911 6913 6916 6918 6934# 6956 6958 6999 7005
7024# 7040 7042 7044 7079 7081 7097# 7117 7119 7121 7166 7185# 7211 7237
7238 7242 7282 7284 7356 7357 7375# 7408 7423 7425 7476 7540 7542
SLASH 634#
SM10 738#
SN 888# 903 903# 910 913 913# 920 923 923# 930 933 933# 940 943
943# 950 953 953# 960 1891# 1906 1906# 1913 1916 1916# 1923 1926 1926#
1933 1936 1936# 1943 1946 1946# 1953 1972# 1989 1989# 1997 2000 2000# 2008
2011 2011# 2019 2022 2022# 2030 2033 2033# 2041 2061# 2077 2077# 2085 2088
2088# 2096 2099 2099# 2107 2110 2110# 2118 2121 2121# 2129 2149# 2164 2164#
2171 2174 2174# 2181 2184 2184# 2191 2194 2194# 2201 2204 2204# 2211 2232#
2248 2248# 2256 2259 2259# 2267 2270 2270# 2278 2281 2281# 2289 2292 2292#
2300 2320# 2334 2334# 2341 2344 2344# 2351 2354 2354# 2361 2364 2364# 2371 SEQ 0252
2374 2374# 2381 2401# 2415 2415# 2422 2425 2425# 2432 2435 2435# 2442 2445
2445# 2452 2455 2455# 2462 2482# 2498 2498# 2507 2510 2510# 2519 2522 2522#
2531 2534 2534# 2543 2546 2546# 2555 2574# 2595 2595# 2606 2609 2609# 2620
2623 2623# 2634 2654# 2668 2668# 2675 2678 2678# 2685 2688 2688# 2695 2698
2698# 2705 2708 2708# 2715 2734# 2748 2748# 2755 2758 2758# 2765 2768 2768#
2775 2778 2778# 2785 2788 2788# 2795 2815# 2832 2832# 2841 2844 2844# 2853
2856 2856# 2865 2884# 2900 2900# 2908 2911 2911# 2919 2922 2922# 2930 2933
2933# 2941 2944 2944# 2952 2972# 2988 2988# 2996 2999 2999# 3007 3010 3010#
3018 3021 3021# 3029 3032 3032# 3040 3076# 3094 3094# 3104 3107 3107# 3117
3120 3120# 3130 3133 3133# 3143 3146 3146# 3156 3175# 3194 3194# 3205 3208
3208# 3219 3222 3222# 3233 3236 3236# 3247 3250 3250# 3261 3281# 3299 3299#
3309 3312 3312# 3322 3325 3325# 3335 3338 3338# 3348 3351 3351# 3361 3379#
3396 3396# 3405 3408 3408# 3417 3420 3420# 3429 3432 3432# 3441 3444 3444#
3453 3468# 3485 3485# 3493 3495 3498 3498# 3506 3508 3517# 3540 3540# 3550
3552 3556 3559 3559# 3569 3571 3575 4352# 4361 4361# 4363 4364 4364# 4366
4367 4367# 4369 4381# 4390 4390# 4392 4393 4393# 4395 4396 4396# 4398 4410#
4419 4419# 4421 4422 4422# 4424 4425 4425# 4427 4439# 4449 4449# 4452 4453
4453# 4456 4457 4457# 4460 4472# 4482 4482# 4485 4486 4486# 4489 4490 4490#
4493 4506# 4517 4517# 4520 4521 4521# 4524 4525 4525# 4528 4543# 4587 4587#
4600 4602 4602# 4615 4617 4617# 4630 4632 4632# 4645 4647 4647# 4658 4662
4662# 4675 4691# 4735 4735# 4748 4750 4750# 4763 4765 4765# 4778 4780 4780#
4793 4795 4795# 4806 4810 4810# 4823 4839# 4883 4883# 4896 4898 4898# 4911
4913 4913# 4926 4928 4928# 4941 4943 4943# 4954 4958 4958# 4971 4987# 5031
5031# 5044 5046 5046# 5059 5061 5061# 5074 5076 5076# 5083 5091 5091# 5096
5106 5106# 5113 5135# 5179 5179# 5192 5194 5194# 5207 5209 5209# 5222 5224
5224# 5231 5239 5239# 5244 5254 5254# 5261 5283# 5327 5327# 5340 5342 5342#
5355 5357 5357# 5370 5372 5372# 5379 5387 5387# 5392 5402 5402# 5409 5431#
5475 5475# 5482 5490 5490# 5497 5505 5505# 5512 5520 5520# 5527 5535 5535#
5540 5550 5550# 5557 5579# 5623 5623# 5630 5638 5638# 5645 5653 5653# 5660
5668 5668# 5675 5683 5683# 5688 5698 5698# 5705 5727# 5771 5771# 5778 5786
5786# 5793 5801 5801# 5808 5816 5816# 5823 5831 5831# 5836 5846 5846# 5853
5875# 5919 5919# 5926 5934 5934# 5941 5949 5949# 5956 5964 5964# 5977 5979
5979# 5990 5994 5994# 6007 6023# 6067 6067# 6074 6082 6082# 6089 6097 6097#
6104 6112 6112# 6125 6127 6127# 6138 6142 6142# 6155 6171# 6215 6215# 6222
6230 6230# 6237 6245 6245# 6252 6260 6260# 6273 6275 6275# 6286 6290 6290#
6303 6315# 6328 6328# 6331 6333 6333# 6336 6338 6338# 6341 6343 6343# 6346
6348 6348# 6351 6353 6353# 6356 6358 6358# 6361 6374# 6387 6387# 6390 6392
6392# 6395 6397 6397# 6400 6402 6402# 6405 6407 6407# 6410 6412 6412# 6415
6417 6417# 6420 6433# 6449 6449# 6452 6454 6454# 6457 6459 6459# 6462 6464
6464# 6467 6469 6469# 6472 6474 6474# 6477 6479 6479# 6482 6495# 6517 6517#
6520 6522 6522# 6525 6527 6527# 6530 6532 6532# 6535 6537 6537# 6540 6542
6542# 6545 6547 6547# 6550 6563# 6581 6581# 6585 6587 6587# 6591 6593 6593#
6597 6599 6599# 6603 6605 6605# 6609 6611 6611# 6615 6617 6617# 6621 6634#
6652 6652# 6656 6658 6658# 6662 6664 6664# 6668 6670 6670# 6674 6676 6676#
6680 6682 6682# 6686 6688 6688# 6692 6705# 6723 6723# 6727 6729 6729# 6733
6735 6735# 6739 6741 6741# 6745 6747 6747# 6751 6753 6753# 6757 6759 6759#
6763 6776# 6802 6802# 6806 6808 6808# 6812 6814 6814# 6818 6820 6820# 6824
6826 6826# 6830 6832 6832# 6836 6838 6838# 6842 6855# 6879 6879# 6882 6884
6884# 6887 6889 6889# 6892 6894 6894# 6897 6900 6900# 6903 6905 6905# 6908
6910 6910# 6913 6915 6915# 6918 6931# 6962 6962# 6966 6968 6968# 6972 6974
6974# 6978 6980 6980# 6984 6986 6986# 6990 6992 6992# 6996 6998 6998# 7002
7004 7004# 7008 7021# 7045 7045# 7048 7050 7050# 7052 7053 7053# 7056 7058
7058# 7061 7063 7063# 7066 7068 7068# 7071 7073 7073# 7076 7078 7078# 7081 SEQ 0253
7094# 7125 7125# 7129 7131 7131# 7134 7135 7135# 7139 7141 7141# 7145 7147
7147# 7151 7153 7153# 7157 7159 7159# 7163 7165 7165# 7169 7182# 7246 7246#
7249 7251 7251# 7253 7254 7254# 7256 7257 7257# 7259 7260 7260# 7262 7263
7263# 7265 7266 7266# 7268 7269 7269# 7271 7272 7272# 7274 7275 7275# 7277
7278 7278# 7280 7281 7281# 7284 7289 7289# 7293 7295 7295# 7299 7301 7301#
7305 7307 7307# 7311 7313 7313# 7317 7319 7319# 7323 7325 7325# 7329 7331
7331# 7335 7337 7337# 7341 7343 7343# 7347 7349 7349# 7353 7355 7355# 7359
7372# 7429 7429# 7433 7435 7435# 7438 7439 7439# 7442 7443 7443# 7446 7447
7447# 7450 7451 7451# 7454 7455 7455# 7458 7459 7459# 7462 7463 7463# 7466
7467 7467# 7470 7471 7471# 7474 7475 7475# 7479 7484 7484# 7487 7489 7489#
7492 7494 7494# 7497 7499 7499# 7502 7504 7504# 7507 7509 7509# 7512 7514
7514# 7517 7519 7519# 7522 7524 7524# 7527 7529 7529# 7532 7534 7534# 7537
7539 7539# 7542 7549# 7577 7577# 7589 7591 7593 7599 7599# 7611 7613 7615
7621 7621# 7633 7635 7637 7643 7643# 7655 7657 7659 7665 7665# 7677 7679
7681 7687 7687# 7699 7701 7703 7709 7709# 7721 7723 7725 7731 7731# 7743
7745 7747 7753 7753# 7765 7767 7769 7775 7775# 7787 7789 7791 7797 7797#
7809 7811 7813 7819 7819# 7831 7833 7835 7841 7841# 7853 7855 7857 7879#
7906 7906# 7913 7915 7917 7924 7924# 7931 7933 7935 7942 7942# 7949 7951
7953 7960 7960# 7967 7969 7971 7978 7978# 7985 7987 7989 7996 7996# 8003
8005 8007 8014 8014# 8021 8023 8025 8032 8032# 8039 8041 8043 8050 8050#
8057 8059 8061 8068 8068# 8075 8077 8079 8086 8086# 8093 8095 8097 8104
8104# 8111 8113 8115 8122 8122# 8129 8131 8133 8140 8140# 8147 8149 8151
8158 8158# 8165 8167 8169 8176 8176# 8183 8185 8187 8194 8194# 8201 8203
8205 8212 8212# 8219 8221 8223 8227# 8253 8253# 8260 8262 8264 8271 8271#
8278 8280 8282 8289 8289# 8296 8298 8300 8307 8307# 8314 8316 8318 8325
8325# 8332 8334 8336 8343 8343# 8350 8352 8354 8361 8361# 8368 8370 8372
8379 8379# 8386 8388 8390 8397 8397# 8404 8406 8408 8415 8415# 8422 8424
8426 8433 8433# 8440 8442 8444 8451 8451# 8458 8460 8462 8469 8469# 8476
8478 8480 8487 8487# 8494 8496 8498 8505 8505# 8512 8514 8516 8523 8523#
8530 8532 8534 8541 8541# 8548 8550 8552 8559 8559# 8566 8568 8570 8577#
8604 8604# 8616 8618 8620 8627 8627# 8639 8641 8643 8650 8650# 8662 8664
8666 8673 8673# 8685 8687 8689 8696 8696# 8708 8710 8712 8719 8719# 8731
8733 8735 8742 8742# 8754 8756 8758 8765 8765# 8777 8779 8781 8788 8788#
8800 8802 8804 8811 8811# 8823 8825 8827 8834 8834# 8846 8848 8850 8857
8857# 8869 8871 8873 8880 8880# 8892 8894 8896
SNTRP 427#
SPACE 623#
SPDES 3548 3554 3567 3573 4341 7553 7865 9007#
SRCE 4353# 4357 4358 4359 4382# 4386 4387 4388 4411# 4415 4416 4417 4440# 4444
4445 4446 4447 4473# 4477 4478 4479 4480 4507# 4511 4512 4514 4515 4544#
4548 4550 4551 4552 4556 4557 4558 4562 4563 4564 4588 4595 4596 4600
4603 4610 4611 4615 4618 4625 4626 4630 4692# 4696 4698 4699 4700 4704
4705 4706 4710 4711 4712 4736 4743 4744 4748 4751 4758 4759 4763 4766
4773 4774 4778 4840# 4844 4846 4847 4848 4852 4853 4854 4858 4859 4860
4884 4891 4892 4896 4899 4906 4907 4911 4914 4921 4922 4926 4988# 4992
4994 4995 4996 5000 5001 5002 5006 5007 5008 5032 5039 5040 5044 5047
5054 5055 5059 5062 5069 5070 5074 5136# 5140 5142 5143 5144 5148 5149
5150 5154 5155 5156 5180 5187 5188 5192 5195 5202 5203 5207 5210 5217
5218 5222 5284# 5288 5290 5291 5292 5296 5297 5298 5302 5303 5304 5328
5335 5336 5340 5343 5350 5351 5355 5358 5365 5366 5370 5432# 5436 5438
5440 5442 5444 5446 5448 5450 5452 5454 5476 5477 5483 5491 5492 5498
5506 5507 5513 5580# 5584 5586 5588 5590 5592 5594 5596 5598 5600 5602
5624 5625 5631 5639 5640 5646 5654 5655 5661 5728# 5732 5734 5736 5738 SEQ 0254
5740 5742 5744 5746 5748 5750 5772 5773 5779 5787 5788 5794 5802 5803
5809 5876# 5880 5882 5884 5886 5888 5890 5892 5894 5896 5898 5920 5921
5927 5935 5936 5942 5950 5951 5957 6024# 6028 6030 6032 6034 6036 6038
6040 6042 6044 6046 6068 6069 6075 6083 6084 6090 6098 6099 6105 6172#
6176 6178 6180 6182 6184 6186 6188 6190 6192 6194 6216 6217 6223 6231
6232 6238 6246 6247 6253 6316# 6320 6322 6324 6325 6326 6375# 6379 6381
6383 6384 6385 6434# 6438 6440 6442 6444 6445 6446 6447 6496# 6500 6502
6504 6506 6508 6510 6512 6514 6564# 6568 6570 6572 6574 6575 6576 6577
6578 6635# 6639 6641 6643 6645 6646 6647 6648 6649 6706# 6710 6712 6715
6716 6717 6718 6719 6720 6777# 6781 6784 6787 6789 6792 6794 6797 6799
6856# 6860 6866 6868 6870 6872 6874 6876 6916 6918 6932# 6936 6944 6946
6949 6951 6954 6956 7005 7022# 7026 7028 7030 7032 7034 7036 7038 7040
7046 7048 7051 7052 7095# 7099 7102 7105 7107 7110 7112 7115 7117 7126
7132 7183# 7187 7189 7191 7193 7195 7197 7199 7201 7203 7205 7207 7209
7211 7247 7249 7252 7253 7255 7256 7258 7259 7261 7262 7264 7265 7267
7268 7270 7271 7273 7274 7276 7277 7279 7280 7282 7284 7373# 7377 7380
7383 7385 7388 7390 7393 7396 7398 7401 7404 7406 7408 7430 7436 7440
7444 7448 7452 7456 7460 7464 7468 7472 7476
SRTDDT 70 453#
START 441 779#
START1 460#
START2 461#
START3 462#
START4 463#
START5 464#
STARTA 456 783#
STRP 427#
SUBLNK 199# 457
SWPTAB 744#
SWTEXR 472#
SYSEXR 445#
TAB 624#
TESTPC 499# 800 824 843 861 884 966 1015 1037 1058 1127 1151 1200 1221
1245 1266 1285 1307 1370 1389 1412 1433 1460 1487 1511 1535 1559 1582
1609 1632 1656 1681 1706 1730 1755 1779 1802 1826 1858 1887 1968 2057
2145 2228 2316 2397 2478 2570 2650 2730 2811 2880 2968 3072 3171 3277
3375 3464 3584 3621 3639 3660 3686 3714 3741 3770 3798 3823 3853 3884
3911 3938 3965 3994 4023 4052 4081 4112 4135 4157 4180 4202 4226 4251
4275 4301 4327 4349 4378 4407 4436 4469 4503 4540 4688 4836 4984 5132
5280 5428 5576 5724 5872 6020 6168 6311 6370 6429 6491 6559 6630 6701
6772 6851 6927 7017 7090 7178 7368 7581 7603 7625 7647 7669 7691 7713
7735 7757 7779 7801 7823 7845 8608 8631 8654 8677 8700 8723 8746 8769
8792 8815 8838 8861 8884
TICKS 502#
TLET 781 8981 9004#
TN0 427#
TN1 427#
TOTALS 165#
TRP3TP 427#
TTNBRF 682#
TTYFIL 598#
TTYSPD 599#
TXTINH 176# 8965 SEQ 0255
UBAVEC 427#
USER 489#
USERF 427#
USRASB 61# 479
USRCRF 608#
USRLFF 607#
UUODIS 561#
UUOEXT 517# 9052
UUORTN 518#
UUOSKP 515#
VV 2575# 2596 2596# 2600 2610 2610# 2614 2624 2624# 2628
WW 1974# 1991 1991# 1993 2002 2002# 2004 2013 2013# 2015 2024 2024# 2026 2035
2035# 2037 2576# 2597 2597# 2600 2601 2611 2611# 2614 2615 2625 2625# 2628
2629
XX 1892# 1907 1907# 1909 1917 1917# 1919 1927 1927# 1929 1937 1937# 1939 1947
1947# 1949 1973# 1990 1990# 1993 2001 2001# 2004 2012 2012# 2015 2023 2023#
2026 2034 2034# 2037 2062# 2078 2078# 2080 2089 2089# 2091 2100 2100# 2102
2111 2111# 2113 2122 2122# 2124 2150# 2165 2165# 2167 2175 2175# 2177 2185
2185# 2187 2195 2195# 2197 2205 2205# 2207 2233# 2249 2249# 2253 2260 2260#
2264 2271 2271# 2275 2282 2282# 2286 2293 2293# 2297 2577# 2598 2598# 2601
2602 2603 2605 2612 2612# 2615 2616 2617 2619 2626 2626# 2629 2630 2631
2633 2816# 2833 2833# 2837 2838 2840 2845 2845# 2849 2850 2852 2857 2857#
2861 2862 2864 2885# 2901 2901# 2903 2912 2912# 2914 2923 2923# 2925 2934
2934# 2936 2945 2945# 2947 2973# 2989 2989# 2991 3000 3000# 3002 3011 3011#
3013 3022 3022# 3024 3033 3033# 3035 3051# 3053 3077# 3095 3095# 3098 3108
3108# 3111 3121 3121# 3124 3134 3134# 3137 3147 3147# 3150 3176# 3195 3195#
3199 3209 3209# 3213 3223 3223# 3227 3237 3237# 3241 3251 3251# 3255 3282#
3300 3300# 3303 3313 3313# 3316 3326 3326# 3329 3339 3339# 3342 3352 3352#
3355 3469# 3486 3486# 3490 3494 3499 3499# 3503 3507 3518# 3541 3541# 3545
3560 3560# 3564 7880# 7907 7907# 7909 7925 7925# 7927 7943 7943# 7945 7961
7961# 7963 7979 7979# 7981 7997 7997# 7999 8015 8015# 8017 8033 8033# 8035
8051 8051# 8053 8069 8069# 8071 8087 8087# 8089 8105 8105# 8107 8123 8123#
8125 8141 8141# 8143 8159 8159# 8161 8177 8177# 8179 8195 8195# 8197 8213
8213# 8215 8228# 8254 8254# 8256 8272 8272# 8274 8290 8290# 8292 8308 8308#
8310 8326 8326# 8328 8344 8344# 8346 8362 8362# 8364 8380 8380# 8382 8398
8398# 8400 8416 8416# 8418 8434 8434# 8436 8452 8452# 8454 8470 8470# 8472
8488 8488# 8490 8506 8506# 8508 8524 8524# 8526 8542 8542# 8544 8560 8560#
8562
YY 890# 905 905# 906 915 915# 916 925 925# 926 935 935# 936 945
945# 946 955 955# 956
ZZ 889# 904 904# 906 907 914 914# 916 917 924 924# 926 927 934
934# 936 937 944 944# 946 947 954 954# 956 957 1893# 1908 1908#
1910 1918 1918# 1920 1928 1928# 1930 1938 1938# 1940 1948 1948# 1950 1975#
1992 1992# 1994 2003 2003# 2005 2014 2014# 2016 2025 2025# 2027 2036 2036#
2038 2063# 2079 2079# 2080 2082 2090 2090# 2091 2093 2101 2101# 2102 2104
2112 2112# 2113 2115 2123 2123# 2124 2126 2151# 2166 2166# 2170 2176 2176#
2180 2186 2186# 2190 2196 2196# 2200 2206 2206# 2210 2234# 2250 2250# 2251
2261 2261# 2262 2272 2272# 2273 2283 2283# 2284 2294 2294# 2295 2321# 2335
2335# 2337 2338 2340 2345 2345# 2347 2348 2350 2355 2355# 2357 2358 2360
2365 2365# 2367 2368 2370 2375 2375# 2377 2378 2380 2402# 2416 2416# 2418
2419 2420 2421 2426 2426# 2428 2429 2430 2431 2436 2436# 2438 2439 2440
2441 2446 2446# 2448 2449 2450 2451 2456 2456# 2458 2459 2460 2461 2483#
2499 2499# 2501 2502 2503 2506 2511 2511# 2513 2514 2515 2518 2523 2523# SEQ 0256
2525 2526 2527 2530 2535 2535# 2537 2538 2539 2542 2547 2547# 2549 2550
2551 2554 2578# 2599 2599# 2604 2613 2613# 2618 2627 2627# 2632 2655# 2669
2669# 2671 2672 2674 2679 2679# 2681 2682 2684 2689 2689# 2691 2692 2694
2699 2699# 2701 2702 2704 2709 2709# 2711 2712 2714 2735# 2749 2749# 2751
2752 2754 2759 2759# 2761 2762 2764 2769 2769# 2771 2772 2774 2779 2779#
2781 2782 2784 2789 2789# 2791 2792 2794 2817# 2834 2834# 2836 2837 2846
2846# 2848 2849 2858 2858# 2860 2861 2886# 2902 2902# 2905 2913 2913# 2916
2924 2924# 2927 2935 2935# 2938 2946 2946# 2949 2974# 2990 2990# 2993 3001
3001# 3004 3012 3012# 3015 3023 3023# 3026 3034 3034# 3037 3078# 3096 3096#
3099 3109 3109# 3112 3122 3122# 3125 3135 3135# 3138 3148 3148# 3151 3177#
3196 3196# 3197 3197# 3200 3210 3210# 3211 3214 3224 3224# 3225 3228 3238
3238# 3239 3242 3252 3252# 3253 3256 3283# 3301 3301# 3304 3314 3314# 3317
3327 3327# 3330 3340 3340# 3343 3353 3353# 3356 3380# 3397 3397# 3400 3409
3409# 3412 3421 3421# 3424 3433 3433# 3436 3445 3445# 3448 7881# 7908 7908#
7916 7926 7926# 7934 7944 7944# 7952 7962 7962# 7970 7980 7980# 7988 7998
7998# 8006 8016 8016# 8024 8034 8034# 8042 8052 8052# 8060 8070 8070# 8078
8088 8088# 8096 8106 8106# 8114 8124 8124# 8132 8142 8142# 8150 8160 8160#
8168 8178 8178# 8186 8196 8196# 8204 8214 8214# 8222 8255 8255# 8263 8273
8273# 8281 8291 8291# 8299 8309 8309# 8317 8327 8327# 8335 8345 8345# 8353
8363 8363# 8371 8381 8381# 8389 8399 8399# 8407 8417 8417# 8425 8435 8435#
8443 8453 8453# 8461 8471 8471# 8479 8489 8489# 8497 8507 8507# 8515 8525
8525# 8533 8543 8543# 8551 8561 8561# 8569
$$MUUO 713#
$$OUTE 719#
$$TAX1 731#
$$TAX2 732#
$$TOGG 725#
$$UUO 702#
$ACC0 540#
$ACF 9008#
$BEND1 510#
$BEND2 71 511# 9061
$CHRIN 601#
$CRLF 603#
$DEVCH 427#
$DSKUP 480#
$DVOFF 597#
$EMODE 478#
$FFF 605#
$IBUF 653#
$INEXT 655#
$INNM 654#
$ITRHL 521#
$ITRX1 522#
$LPAPE 9067
$MMAP 481#
$MODVL 476#
$MODVU 477#
$OBUF 644#
$ONETM 504#
$OUTEX 646#
$OUTNM 645#
$PAPER 427 SEQ 0257
$PARER 528#
$PNAME 474#
$PSHER 532#
$PVER 475#
$RSRTX 524#
$RSRTY 525#
$SPAG1 544#
$START 441#
$SVAPR 542#
$SVPAG 543#
$SVPI 541#
$SVUPC 547# 8915 8919 8945
$SVUUO 546# 8924 8956 8984
$TABF 604#
$TTCHR 600#
$TWCNT 596#
$TYPNB 602#
$UMODE 479#
$UORTX 519#
$USRHL 523#
$UUOER 520# 561
$VTF 606#
%AC1F 9009#
%ACS1A 8926# 8926 8970
%ACTFL 553#
%ACTUL 554#
%ALF 9014#
%AR1F 9013#
%ARF 9012#
%COREC 552#
%CORFL 551#
%DISCR 555#
%E1F 9011#
%EEF 9015#
%EF 9010#
%ER4X 8990 8995#
%ER5X 8988 8997#
%ER6X 8986 8999#
%ER7X 8992# 8996 8998 9000
%ERAC0 8911# 8911 8927 8961 9051
%ERAC1 8912# 8912 8928 9039
%ERAC2 8913# 8913 9038
%ERFST 8934# 8934 8936
%ERHI1 694#
%ERHI2 695#
%ERHI3 696#
%ERMOR 8966 8993 9022#
%ERMS1 8931# 9057
%ERMS2 8954#
%ERMS3 8972 8979#
%ERRS1 8923 9025# 9056
%ERRS2 9038#
%ERRS4 8930 9054# SEQ 0258
%ERRS5 9042 9046 9051#
%ERRS6 9049 9059#
%FF 9016#
%FLTTB 8974 9005#
%NODES 9006#
.JB41 427#
.JBAPR 427#
.JBCNI 427#
.JBDDT 427#
.JBFF 427#
.JBOPC 427#
.JBREL 427#
.JBREN 427#
.JBSA 427#
.JBSYM 427#
.JBTPC 427#
.JBUSY 427#
.JBUUO 427#
.JBVER 427#
APRID 427#
BCIO 427# SEQ 0259
BCIOB 427#
BLTM1 126# 4532 4680 4828 4976 5124 5272 5420 5568 5716 5864 6012 6160
BSIO 427#
BSIOB 427#
CFLUSH 349#
CINVAL 348#
CLOKOP 343#
CLRPT 427#
CWRTBI 350#
DROPDV 310# 756
ENDUUO 356# 509
EOPUUO 357# 511
ER1 34#
ER10 41#
ER11 42#
ER12 43# 833 1641 1691 1716 1741 1765 1789 1812 1870 3104 3117 3130 3143
3156 3205 3219 3233 3247 3261 3309 3322 3335 3348 3361 3405 3417 3429
3441 3453 3552 3571 3611 3677 3705 3732 3759 3788 3814 3844 3873 3901
3929 3956 3983 4013 4043 4072 4102 4126 4149 4171 4194 4219 4243 4268
4293 4319
ER13 44# 1836 3599 3613
ER2 35# 3550 3556 3569 3575 4363 4366 4369 4392 4395 4398 4421 4424 4427
4452 4456 4460 4485 4489 4493 4520 4524 4528 4600 4615 4630 4645 4658
4675 4748 4763 4778 4793 4806 4823 4896 4911 4926 4941 4954 4971 5044
5059 5074 5083 5096 5113 5192 5207 5222 5231 5244 5261 5340 5355 5370
5379 5392 5409 5482 5497 5512 5527 5540 5557 5630 5645 5660 5675 5688
5705 5778 5793 5808 5823 5836 5853 5926 5941 5956 5977 5990 6007 6074
6089 6104 6125 6138 6155 6222 6237 6252 6273 6286 6303 6331 6336 6341
6346 6351 6356 6361 6390 6395 6400 6405 6410 6415 6420 6452 6457 6462
6467 6472 6477 6482 6520 6525 6530 6535 6540 6545 6550 6585 6591 6597
6603 6609 6615 6621 6656 6662 6668 6674 6680 6686 6692 6727 6733 6739
6745 6751 6757 6763 6806 6812 6818 6824 6830 6836 6842 6882 6887 6892
6897 6903 6908 6913 6918 6966 6972 6978 6984 6990 6996 7002 7008 7048
7052 7056 7061 7066 7071 7076 7081 7129 7134 7139 7145 7151 7157 7163
7169 7249 7253 7256 7259 7262 7265 7268 7271 7274 7277 7280 7284 7293
7299 7305 7311 7317 7323 7329 7335 7341 7347 7353 7359 7433 7438 7442
7446 7450 7454 7458 7462 7466 7470 7474 7479 7487 7492 7497 7502 7507
7512 7517 7522 7527 7532 7537 7542 7589 7611 7633 7655 7677 7699 7721
7743 7765 7787 7809 7831 7853 7869 7913 7931 7949 7967 7985 8003 8021
8039 8057 8075 8093 8111 8129 8147 8165 8183 8201 8219 8260 8278 8296
8314 8332 8350 8368 8386 8404 8422 8440 8458 8476 8494 8512 8530 8548
8566 8616 8639 8662 8685 8708 8731 8754 8777 8800 8823 8846 8869 8892
ER3 36# 809 1255 1275 1293 1316 1325 1334 1343 1351 1360 1379 1398 1420
1442 1470 1497 1522 1546 1571 1594 1665 2171 2181 2191 2201 2211 2256
2267 2278 2289 2300 2341 2351 2361 2371 2381 2422 2432 2442 2452 2462
2507 2519 2531 2543 2555 2606 2620 2634 2675 2685 2695 2705 2715 2755
2765 2775 2785 2795 2841 2853 2865 2908 2919 2930 2941 2952 2996 3007
3018 3029 3040 3058 3493 3506 3595 3675 3702 3730 3761 3786 3842 3875
3899 3926 3954 3985 4011 4040 4070 4104 4122 4145 4167 4190 4215 4239
4264 4289 4315 7591 7613 7635 7657 7679 7701 7723 7745 7767 7789 7811
7833 7855 7871 7915 7933 7951 7969 7987 8005 8023 8041 8059 8077 8095
8113 8131 8149 8167 8185 8203 8221 8262 8280 8298 8316 8334 8352 8370
8388 8406 8424 8442 8460 8478 8496 8514 8532 8550 8568 8618 8641 8664 SEQ 0260
8687 8710 8733 8756 8779 8802 8825 8848 8871 8894
ER4 37# 1617 3495 3508 3597 3609 7593 7615 7637 7659 7681 7703 7725 7747
7769 7791 7813 7835 7857 7873 7917 7935 7953 7971 7989 8007 8025 8043
8061 8079 8097 8115 8133 8151 8169 8187 8205 8223 8264 8282 8300 8318
8336 8354 8372 8390 8408 8426 8444 8462 8480 8498 8516 8534 8552 8570
8620 8643 8666 8689 8712 8735 8758 8781 8804 8827 8850 8873 8896
ER5 38# 851 869 910 920 930 940 950 960 975 983 990 998 1006
1024 1046 1067 1076 1085 1094 1103 1111 1136 1161 1170 1179 1188 1209
1231 1643 1667 1868 1913 1923 1933 1943 1953 1997 2008 2019 2030 2041
2085 2096 2107 2118 2129 3630 3651 3673 3700 3728 3756 3784 3840 3870
3897 3924 3952 3980 4009 4038 4068 4099 4124 4147 4169 4192 4217 4241
4266 4291 4317 4336
ER6 39#
ER7 40#
ERLOOP 397#
ERLP1 398#
ERLP2 399#
ERRHLT 244# 9032
ERROR 406#
ERROR1 417#
ERUUO 396#
FATAL 243#
FRD36 385#
FRD8 386#
FREAD 384#
FSELEC 383#
GCAM 111# 4586 4601 4616 4631 4646 4661 4734 4749 4764 4779 4794 4809 4882
4897 4912 4927 4942 4957 5030 5045 5060 5075 5090 5105 5178 5193 5208
5223 5238 5253 5326 5341 5356 5371 5386 5401 5474 5489 5504 5519 5534
5549 5622 5637 5652 5667 5682 5697 5770 5785 5800 5815 5830 5845 5918
5933 5948 5963 5978 5993 6066 6081 6096 6111 6126 6141 6214 6229 6244
6259 6274 6289
GET 227#
GMOV 104# 4549 4555 4561 4567 4573 4579 4697 4703 4709 4715 4721 4727 4845
4851 4857 4863 4869 4875 4993 4999 5005 5011 5017 5023 5141 5147 5153
5159 5165 5171 5289 5295 5301 5307 5313 5319 5437 5443 5449 5455 5461
5467 5585 5591 5597 5603 5609 5615 5733 5739 5745 5751 5757 5763 5881
5887 5893 5899 5905 5911 6029 6035 6041 6047 6053 6059 6177 6183 6189
6195 6201 6207
GO 224#
HALT 229# 530
JEN 231#
JRSTF 230# 3591 3605 3624 3642 3663 3689 3717 3744 3773 3801 3827 3856 3887
3914 3941 3968 3997 4026 4055 4084 4115 4138 4160 4183 4205 4229 4254
4278 4304 4330
MAPADR 366#
MAPCNK 367#
MAPMEM 363#
MAPPNT 369#
MAPSET 368#
MEMSEG 365#
MEMZRO 364#
MODPCP 376# SEQ 0261
MODPCU 375#
MTROP 344#
NAME 8# 11
PBELL 319# 9036
PCRL 313# 8973 8992
PCRL2 317#
PCRL2F 318#
PCRLF 314#
PFORCE 321#
PGMINT 237# 779
PJRST 228#
PMSG 323# 8939 8943 8954 8979
PMSGF 326# 9059
PNT1 279#
PNT11 293#
PNT11F 294#
PNT1F 280#
PNT2 281#
PNT2F 282#
PNT3 283# 8991
PNT3F 284#
PNT4 285# 8995
PNT4F 286#
PNT5 287# 8997
PNT5F 288#
PNT6 289# 8947 8999
PNT6F 290#
PNT7 291#
PNT7F 292#
PNTA 265# 8982
PNTADF 296#
PNTADR 295#
PNTAF 266#
PNTAL 267# 8975
PNTALF 268#
PNTCHF 278#
PNTCHR 277#
PNTCI 275#
PNTCIF 276#
PNTCW 311#
PNTCWF 312#
PNTDCF 304#
PNTDEC 303# 8942
PNTDS 305#
PNTDSF 306#
PNTHW 299# 8962
PNTHWF 300#
PNTMSF 272#
PNTMSG 271#
PNTNM 307# 8935
PNTOCF 302#
PNTOCS 301#
PNTOCT 297# SEQ 0262
PNTOTF 298#
PNTSIX 308#
PNTSXF 309#
PSIXL 269#
PSIXLF 270#
PSIXM 273# 8940 8944 8955 8980
PSIXMF 274# 9060
PSP 315#
PSPF 316#
PUT 226#
RDAPR 427#
RDCSB 427#
RDCSTM 427#
RDEBR 427#
RDHSB 427#
RDINT 427#
RDIO 427#
RDIOB 427#
RDPI 427#
RDPUR 427#
RDSPB 427#
RDTIM 427#
RDUBR 427#
REPTUO 400#
RTN 225# 517
S 155# 157 161 190 192 201 204 219 220 222 233 235 239 241
246 250 392 394 427 432 438 465 467 485 487 505 507 536
538 556 558 576 578 586 588 609 614 640 642 649 651 657
659 665 667 671 673 678 680 684 686 690 692 698 700 703
705 709 711 715 717 721 723 727 729 734 736 740 742 746
748 750 752
SAVEAC 92# 798 822 841 859 882 964 1013 1035 1056 1125 1149 1198 1219
1243 1264 1283 1305 1368 1387 1410 1431 1458 1485 1509 1533 1557 1580
1607 1630 1654 1679 1704 1728 1753 1777 1800 1824 1856 1885 1966 2055
2143 2226 2314 2395 2476 2568 2648 2728 2809 2878 2966 3070 3169 3275
3373 3462 3582 3619 3637 3658 3684 3712 3739 3768 3796 3821 3851 3882
3909 3936 3963 3992 4021 4050 4079 4110 4133 4155 4178 4200 4224 4249
4273 4299 4325 4347 4376 4405 4434 4467 4501 4538 4686 4834 4982 5130
5278 5426 5574 5722 5870 6018 6166 6309 6368 6427 6489 6557 6628 6699
6770 6849 6925 7015 7088 7176 7366 7579 7601 7623 7645 7667 7689 7711
7733 7755 7777 7799 7821 7843 8606 8629 8652 8675 8698 8721 8744 8767
8790 8813 8836 8859 8882
SIXBTZ 332#
SWITCH 338# 8921 9023
TIOE 427#
TIOEB 427#
TION 427#
TIONB 427#
TTALTM 259# 9025
TTICHR 252#
TTICLR 262#
TTICNV 257#
TTIDEC 256# SEQ 0263
TTINO 254#
TTIOCT 255#
TTIYES 253#
TTLOOK 258#
TTSIXB 260#
TTYINP 261#
WRAPR 427#
WRCSB 427#
WRCSTM 427#
WREBR 427#
WRHSB 427#
WRINT 427#
WRIO 427#
WRIOB 427#
WRPI 427#
WRPUR 427#
WRSPB 427#
WRTIM 427#
WRUBR 427#
ANDI 8958
AOJ 1205 2081 2092 2103 2114 2125 SEQ 0264
AOS 515 8914 8917 9043 9044
ASCII 616 618 621 622 623 624 626 627 628 629 630 631 633 634
635
ASCIZ 759 780 3547 3553 3566 3572 4340 7552 7864 9008 9009 9010 9011 9012
9013 9014 9015 9016
BLOCK 584 644 647 653 656 662 8903 8906 9224
BLT 4360 4389 4418 4448 4481 4516 4585 4733 4881 5029 5177 5325 5473 5621
5769 5917 6065 6213 6327 6386 6448 6516 6580 6651 6722 6801 6878 6958
7044 7121 7242 7425
BYTE 632
CAIE 1254 1292 1469 1496 1521 1545 1570 1593 1664 1869 2170 2180 2190 2200
2210 2255 2266 2277 2288 2299 2340 2350 2360 2370 2380 2421 2431 2441
2451 2461 2506 2518 2530 2542 2554 2605 2619 2633 2674 2684 2694 2704
2714 2754 2764 2774 2784 2794 2840 2852 2864 2907 2918 2929 2940 2951
2995 3006 3017 3028 3039 3594 3674 3701 3729 3760 3785 3841 3874 3898
3925 3953 3984 4010 4039 4069 4103 4121 4123 4125 4144 4146 4148 4168
4170 4191 4193 4216 4218 4238 4263 7916 7934 7952 7970 7988 8006 8024
8042 8060 8078 8096 8114 8132 8150 8168 8186 8204 8222 8263 8281 8299
8317 8335 8353 8371 8389 8407 8425 8443 8461 8479 8497 8515 8533 8551
8569 8619 8642 8665 8688 8711 8734 8757 8780 8803 8826 8849 8872 8895
CAIG 8960 8971
CAIL 9048
CAME 832 850 868 909 919 929 939 949 959 974 982 989 997 1005
1023 1045 1066 1075 1084 1093 1102 1110 1135 1160 1169 1178 1187 1208
1230 1274 1315 1324 1333 1342 1350 1359 1378 1397 1616 1640 1642 1666
1690 1715 1740 1764 1788 1811 1867 1912 1922 1932 1942 1952 1996 2007
2018 2029 2040 2084 2095 2106 2117 2128 3103 3116 3129 3142 3155 3204
3218 3232 3246 3260 3308 3321 3334 3347 3360 3404 3416 3428 3440 3452
3492 3494 3505 3507 3549 3551 3555 3568 3570 3574 3596 3608 3610 3629
3650 3672 3676 3699 3704 3727 3731 3755 3758 3783 3787 3813 3839 3843
3869 3872 3896 3900 3923 3928 3951 3955 3979 3982 4008 4012 4037 4042
4067 4071 4098 4101 4166 4189 4214 4240 4242 4265 4267 4288 4290 4292
4314 4316 4318 4335 4362 4368 4394 4423 4451 4459 4488 4523 4596 4611
4626 4641 4656 4671 4744 4759 4774 4789 4804 4819 4892 4907 4922 4937
4952 4967 5040 5055 5070 5079 5094 5109 5188 5203 5218 5227 5242 5257
5336 5351 5366 5375 5390 5405 5478 5493 5508 5523 5538 5553 5626 5641
5656 5671 5686 5701 5774 5789 5804 5819 5834 5849 5922 5937 5952 5973
5988 6003 6070 6085 6100 6121 6136 6151 6218 6233 6248 6269 6284 6299
6329 6359 6393 6398 6403 6408 6413 6450 6455 6460 6465 6470 6475 6480
6518 6523 6528 6533 6538 6543 6548 6583 6619 6660 6666 6672 6678 6684
6725 6731 6737 6743 6749 6755 6761 6804 6810 6816 6822 6828 6834 6840
6880 6885 6890 6895 6901 6906 6911 6916 6964 6970 6976 6982 6988 6994
7000 7006 7046 7051 7054 7059 7064 7069 7074 7079 7127 7133 7137 7143
7149 7155 7161 7167 7247 7252 7255 7258 7261 7264 7267 7270 7273 7276
7279 7282 7291 7297 7303 7309 7315 7321 7327 7333 7339 7345 7351 7357
7431 7437 7441 7445 7449 7453 7457 7461 7465 7469 7473 7477 7485 7490
7495 7500 7505 7510 7515 7520 7525 7530 7535 7540 7870 7914 7932 7950
7968 7986 8004 8022 8040 8058 8076 8094 8112 8130 8148 8166 8184 8202
8220 8261 8279 8297 8315 8333 8351 8369 8387 8405 8423 8441 8459 8477
8495 8513 8531 8549 8567 8617 8640 8663 8686 8709 8732 8755 8778 8801
8824 8847 8870 8893
CAMN 8916
DEFINE 8 92 104 111 126 155 323 326 332 406 417 SEQ 0265
DPB 1689 1714 1739 1763 1787 1810 1833 3102 3115 3128 3141 3154 3203 3217
3231 3245 3259 3546 3565 3671 3698 3725 3753 4165 4287 4313
END 9232
HRL 8919
HRLI 1225 1227 1249 1465 1515 1539 1563 1586 2336 2346 2356 2366 2376 2418
2428 2438 2448 2458 2502 2514 2526 2538 2550 2602 2616 2630 3398 3410
3422 3434 3446 3778 3806 3832 3861 4002 4031 4060 4090
HRLOI 1311 1806 4260 4332
HRLZI 2168 2178 2188 2198 2208 4235 4333
HRRI 1226 1228 1250 1466 1516 1540 1564 1587 1735 2337 2347 2357 2367 2377
2419 2429 2439 2449 2459 2501 2503 2513 2515 2525 2527 2537 2539 2549
2551 2603 2617 2631 3399 3411 3423 3435 3447 3666 3692 3720 3747 3776
3804 3830 3859 3890 3917 3944 3971 4000 4029 4058 4087 4232 4257 4281
4307
HRROI 1710 1759 4234 4259 4283 4309 7214 7217 7219 7221 7223 7225 7227 7229
7231 7233 7235 7237 7410 7412 7413 7415 7416 7417 7418 7419 7420 7421
7422 7423
HRRZ 8915 8945 8984
HRRZI 1270 1320 1734 1783 4119 4142 4164 4187 4209
IBP 807 831 849 867 908 918 928 938 948 958 973 981 988 996
1004 1021 1043 1064 1073 1082 1091 1100 1108 1133 1158 1167 1176 1185
1207 1229 1911 1921 1931 1941 1951 1995 2006 2017 2028 2039 2083 2094
2105 2116 2127 3628 3648 4211 4213 4334
IDPB 1866 3307 3320 3333 3346 3359 3403 3415 3427 3439 3451 3606 3782 3811
3836 3866 4188
IF1 99 100 8902 8905
IFDEF 427 478 479 480 481 8949 9019 9223 9230
IFDIF 4599 4614 4629 4644 4659 4674 4747 4762 4777 4792 4807 4822 4895 4910
4925 4940 4955 4970 5043 5058 5073 5082 5097 5112 5191 5206 5221 5230
5245 5260 5339 5354 5369 5378 5393 5408 5481 5496 5511 5526 5541 5556
5629 5644 5659 5674 5689 5704 5777 5792 5807 5822 5837 5852 5925 5940
5955 5976 5991 6006 6073 6088 6103 6124 6139 6154 6221 6236 6251 6272
6287 6302
IFE 3197 3211 3225 3239 3253
IFG 4552 4558 4564 4570 4576 4582 4588 4603 4618 4633 4648 4663 4700 4706
4712 4718 4724 4730 4736 4751 4766 4781 4796 4811 4848 4854 4860 4866
4872 4878 4884 4899 4914 4929 4944 4959 4996 5002 5008 5014 5020 5026
5032 5047 5062 5077 5092 5107 5144 5150 5156 5162 5168 5174 5180 5195
5210 5225 5240 5255 5292 5298 5304 5310 5316 5322 5328 5343 5358 5373
5388 5403 5440 5446 5452 5458 5464 5470 5476 5491 5506 5521 5536 5551
5588 5594 5600 5606 5612 5618 5624 5639 5654 5669 5684 5699 5736 5742
5748 5754 5760 5766 5772 5787 5802 5817 5832 5847 5884 5890 5896 5902
5908 5914 5920 5935 5950 5965 5980 5995 6032 6038 6044 6050 6056 6062
6068 6083 6098 6113 6128 6143 6180 6186 6192 6198 6204 6210 6216 6231
6246 6261 6276 6291
IFIDN 4597 4612 4627 4642 4657 4672 4745 4760 4775 4790 4805 4820 4893 4908
4923 4938 4953 4968 5041 5056 5071 5080 5095 5110 5189 5204 5219 5228
5243 5258 5337 5352 5367 5376 5391 5406 5479 5494 5509 5524 5539 5554
5627 5642 5657 5672 5687 5702 5775 5790 5805 5820 5835 5850 5923 5938
5953 5974 5989 6004 6071 6086 6101 6122 6137 6152 6219 6234 6249 6270
6285 6300
IFLE 4550 4556 4562 4568 4574 4580 4595 4610 4625 4640 4655 4670 4698 4704
4710 4716 4722 4728 4743 4758 4773 4788 4803 4818 4846 4852 4858 4864 SEQ 0266
4870 4876 4891 4906 4921 4936 4951 4966 4994 5000 5006 5012 5018 5024
5039 5054 5069 5084 5099 5114 5142 5148 5154 5160 5166 5172 5187 5202
5217 5232 5247 5262 5290 5296 5302 5308 5314 5320 5335 5350 5365 5380
5395 5410 5438 5444 5450 5456 5462 5468 5483 5498 5513 5528 5543 5558
5586 5592 5598 5604 5610 5616 5631 5646 5661 5676 5691 5706 5734 5740
5746 5752 5758 5764 5779 5794 5809 5824 5839 5854 5882 5888 5894 5900
5906 5912 5927 5942 5957 5972 5987 6002 6030 6036 6042 6048 6054 6060
6075 6090 6105 6120 6135 6150 6178 6184 6190 6196 6202 6208 6223 6238
6253 6268 6283 6298
IFNDEF 378 379 389 478 479 480 481 560 9067
ILDB 1615 1639 1663 2906 2917 2928 2939 2950 2994 3005 3016 3027 3038 3056
3592 4006 4035 4064 4095 4143
JFCL 518 519 520 521 522 523 524 525 526 527 528 529
JFFO 7587 7609 7631 7653 7675 7697 7719 7741 7763 7785 7807 7829 7851 7868
7912 7930 7948 7966 7984 8002 8020 8038 8056 8074 8092 8110 8128 8146
8164 8182 8200 8218 8259 8277 8295 8313 8331 8349 8367 8385 8403 8421
8439 8457 8475 8493 8511 8529 8547 8565 8615 8638 8661 8684 8707 8730
8753 8776 8799 8822 8845 8868 8891
JRST 71 72 73 74 75 76 77 228 229 230 231 440 441 443
445 447 449 451 454 456 457 510 783 1419 7588 7610 7632 7654
7676 7698 7720 7742 7764 7786 7808 7830 7852 8900 8923 8930 8933 8938
8966 8972 8986 8988 8990 8993 8996 8998 9000 9026 9029 9042 9046 9049
9052 9056 9057 9061
JSP 237 1440 1834 3593 3607
JUMPE 3600
JUMPL 810 834 852 870 911 921 931 941 951 961 976 984 991 999
1007 1025 1047 1068 1077 1086 1095 1104 1112 1137 1162 1171 1180 1189
1210 1232 1256 1276 1294 1317 1326 1335 1344 1352 1361 1380 1399 1421
1443 1471 1498 1523 1547 1572 1595 1618 1644 1668 1692 1717 1742 1766
1790 1813 1837 1871 1914 1924 1934 1944 1954 1998 2009 2020 2031 2042
2086 2097 2108 2119 2130 2172 2182 2192 2202 2212 2257 2268 2279 2290
2301 2342 2352 2362 2372 2382 2423 2433 2443 2453 2463 2508 2520 2532
2544 2556 2607 2621 2635 2676 2686 2696 2706 2716 2756 2766 2776 2786
2796 2842 2854 2866 2909 2920 2931 2942 2953 2997 3008 3019 3030 3041
3059 3105 3118 3131 3144 3157 3206 3220 3234 3248 3262 3310 3323 3336
3349 3362 3406 3418 3430 3442 3454 3496 3509 3557 3576 3614 3631 3652
3678 3706 3733 3762 3789 3815 3845 3876 3902 3930 3957 3986 4014 4044
4073 4105 4127 4150 4172 4195 4220 4244 4269 4294 4320 4337 4370 4399
4428 4461 4494 4529 4676 4824 4972 5120 5268 5416 5564 5712 5860 6008
6156 6304 6363 6422 6484 6552 6623 6694 6765 6844 6920 7010 7083 7171
7361 7544 7594 7616 7638 7660 7682 7704 7726 7748 7770 7792 7814 7836
7858 7874 7918 7936 7954 7972 7990 8008 8026 8044 8062 8080 8098 8116
8134 8152 8170 8188 8206 8224 8265 8283 8301 8319 8337 8355 8373 8391
8409 8427 8445 8463 8481 8499 8517 8535 8553 8571 8621 8644 8667 8690
8713 8736 8759 8782 8805 8828 8851 8874 8897
LALL 9
LDB 1253 1273 1291 1314 1323 1332 1341 1349 1358 1377 1396 1418 1439 1468
1495 1520 1544 1569 1592 2169 2179 2189 2199 2209 2254 2265 2276 2287
2298 2339 2349 2359 2369 2379 2420 2430 2440 2450 2460 2505 2517 2529
2541 2553 2604 2618 2632 2673 2683 2693 2703 2713 2753 2763 2773 2783
2793 2839 2851 2863 3491 3504 3895 3922 3949 3977 4120 4237 4262
LIST 8 389 427 560 8949 9019 9067 9220
LIT 9068 SEQ 0267
LOC 25 430 754
LSH 8925 8957
MOVE 780 3488 3490 3501 3503 3543 3544 3545 3548 3562 3563 3564 3567 3588
3589 3590 3602 3603 3604 3649 3667 3668 3670 3693 3694 3696 3703 3722
3723 3726 3749 3751 3754 3757 3777 3779 3781 3805 3807 3809 3833 3834
3838 3862 3864 3868 3871 3891 3892 3894 3918 3919 3927 3946 3947 3950
3973 3975 3978 3981 4001 4003 4005 4030 4032 4041 4061 4062 4066 4091
4093 4097 4100 4233 4236 4258 4261 4282 4286 4308 4312 4357 4386 4415
4417 4444 4450 4454 4458 4477 4483 4487 4491 4511 4513 4518 4522 4526
4548 4551 4557 4563 4569 4575 4581 4696 4699 4705 4711 4717 4723 4729
4844 4847 4853 4859 4865 4871 4877 4992 4995 5001 5007 5015 5021 5027
5078 5093 5108 5140 5143 5149 5155 5163 5169 5175 5226 5241 5256 5288
5291 5297 5303 5311 5317 5323 5374 5389 5404 5436 5441 5447 5453 5459
5465 5471 5477 5492 5507 5522 5537 5552 5584 5589 5595 5601 5607 5613
5619 5625 5640 5655 5670 5685 5700 5732 5737 5743 5749 5755 5761 5767
5773 5788 5803 5818 5833 5848 5880 5885 5891 5897 5901 5907 5913 5921
5936 5951 6028 6033 6039 6045 6049 6055 6061 6069 6084 6099 6176 6181
6187 6193 6197 6203 6209 6217 6232 6247 6320 6379 6438 6442 6444 6445
6446 6447 6500 6502 6504 6506 6508 6510 6512 6514 6568 6582 6588 6594
6600 6606 6612 6618 6639 6653 6659 6665 6671 6677 6683 6689 6710 6714
6724 6730 6736 6742 6748 6754 6760 6781 6783 6786 6788 6791 6793 6796
6798 6803 6809 6815 6821 6827 6833 6839 6860 6864 6866 6868 6870 6872
6874 6876 6936 6940 6943 6945 6948 6950 6953 6955 6963 6969 6975 6981
6987 6993 6999 7005 7026 7028 7030 7032 7034 7036 7038 7040 7099 7101
7104 7106 7109 7111 7114 7116 7126 7132 7136 7142 7148 7154 7160 7166
7187 7189 7191 7193 7195 7197 7199 7201 7203 7205 7207 7209 7211 7240
7290 7296 7302 7308 7314 7320 7326 7332 7338 7344 7350 7356 7377 7379
7382 7384 7387 7389 7392 7395 7397 7400 7403 7405 7407 7430 7436 7440
7444 7448 7452 7456 7460 7464 7468 7472 7476 7910 7928 7946 7964 7982
8000 8018 8036 8054 8072 8090 8108 8126 8144 8162 8180 8198 8216 8257
8275 8293 8311 8329 8347 8365 8383 8401 8419 8437 8455 8473 8491 8509
8527 8545 8563 8918 8924 8927 8928 8941 8956 8959 8961 8964 8970 8974
9030 9038 9039 9047 9051 9054
MOVEI 799 801 805 823 825 842 844 860 862 883 885 965 967 1014
1016 1036 1038 1057 1059 1126 1128 1150 1152 1199 1201 1220 1222 1244
1246 1251 1265 1267 1284 1286 1290 1306 1308 1329 1338 1346 1355 1369
1371 1374 1376 1388 1390 1393 1411 1413 1432 1434 1459 1461 1467 1486
1488 1492 1493 1494 1510 1512 1517 1518 1519 1534 1536 1542 1543 1558
1560 1565 1566 1567 1568 1581 1583 1588 1589 1590 1591 1608 1610 1631
1633 1638 1655 1657 1662 1680 1682 1685 1687 1705 1707 1712 1729 1731
1737 1754 1756 1761 1778 1780 1785 1801 1803 1808 1825 1827 1831 1857
1859 1864 1886 1888 1967 1969 2056 2058 2144 2146 2227 2229 2252 2263
2274 2285 2296 2315 2317 2396 2398 2477 2479 2569 2571 2600 2601 2614
2615 2628 2629 2649 2651 2671 2672 2681 2682 2691 2692 2701 2702 2711
2712 2729 2731 2751 2752 2761 2762 2771 2772 2781 2782 2791 2792 2810
2812 2836 2837 2838 2848 2849 2850 2860 2861 2862 2879 2881 2904 2915
2926 2937 2948 2967 2969 2992 3003 3014 3025 3036 3071 3073 3097 3101
3110 3114 3123 3127 3136 3140 3149 3153 3170 3172 3201 3215 3229 3243
3257 3276 3278 3302 3305 3315 3318 3328 3331 3341 3344 3354 3357 3374
3376 3401 3413 3425 3437 3449 3463 3465 3547 3553 3566 3572 3583 3585
3620 3622 3638 3640 3659 3661 3669 3685 3687 3697 3713 3715 3724 3740
3742 3752 3769 3771 3780 3797 3799 3810 3822 3824 3835 3852 3854 3865
3883 3885 3910 3912 3937 3939 3964 3966 3993 3995 4022 4024 4051 4053 SEQ 0268
4080 4082 4111 4113 4117 4134 4136 4140 4156 4158 4162 4179 4181 4185
4201 4203 4207 4225 4227 4250 4252 4274 4276 4300 4302 4326 4328 4340
4348 4350 4377 4379 4406 4408 4435 4437 4468 4470 4502 4504 4539 4541
4687 4689 4835 4837 4983 4985 5131 5133 5279 5281 5427 5429 5575 5577
5723 5725 5871 5873 6019 6021 6167 6169 6310 6312 6369 6371 6428 6430
6490 6492 6558 6560 6629 6631 6700 6702 6771 6773 6850 6852 6926 6928
7016 7018 7089 7091 7177 7179 7367 7369 7552 7580 7582 7602 7604 7624
7626 7646 7648 7668 7670 7690 7692 7712 7714 7734 7736 7756 7758 7778
7780 7800 7802 7822 7824 7844 7846 7864 8256 8274 8292 8310 8328 8346
8364 8382 8400 8418 8436 8454 8472 8490 8508 8526 8544 8562 8607 8609
8630 8632 8653 8655 8676 8678 8699 8701 8722 8724 8745 8747 8768 8770
8791 8793 8814 8816 8837 8839 8860 8862 8883 8885 8981 9027
MOVEM 781 800 802 824 826 843 845 861 863 884 886 966 968 1015
1017 1037 1039 1058 1060 1127 1129 1151 1153 1200 1202 1221 1223 1245
1247 1266 1268 1285 1287 1307 1309 1370 1372 1389 1391 1412 1414 1433
1435 1460 1462 1487 1489 1511 1513 1535 1537 1559 1561 1582 1584 1609
1611 1632 1634 1656 1658 1681 1683 1706 1708 1730 1732 1755 1757 1779
1781 1802 1804 1826 1828 1858 1860 1887 1889 1968 1970 2057 2059 2145
2147 2228 2230 2316 2318 2397 2399 2478 2480 2570 2572 2650 2652 2730
2732 2811 2813 2880 2882 2968 2970 3072 3074 3171 3173 3277 3279 3375
3377 3464 3466 3554 3573 3584 3586 3621 3623 3639 3641 3645 3660 3662
3686 3688 3695 3714 3716 3721 3741 3743 3748 3750 3770 3772 3798 3800
3808 3823 3825 3831 3853 3855 3860 3863 3884 3886 3911 3913 3920 3938
3940 3945 3965 3967 3972 3974 3994 3996 4023 4025 4033 4052 4054 4059
4081 4083 4089 4092 4112 4114 4135 4137 4157 4159 4180 4182 4202 4204
4226 4228 4251 4253 4275 4277 4284 4301 4303 4310 4327 4329 4341 4349
4351 4378 4380 4407 4409 4436 4438 4469 4471 4503 4505 4514 4540 4542
4688 4690 4836 4838 4984 4986 5016 5022 5028 5132 5134 5164 5170 5176
5280 5282 5312 5318 5324 5428 5430 5442 5448 5454 5460 5466 5472 5576
5578 5590 5596 5602 5608 5614 5620 5724 5726 5738 5744 5750 5756 5762
5768 5872 5874 5886 5892 5898 6020 6022 6034 6040 6046 6168 6170 6182
6188 6194 6311 6313 6370 6372 6429 6431 6491 6493 6559 6561 6630 6632
6701 6703 6715 6716 6717 6718 6719 6772 6774 6784 6787 6789 6792 6794
6797 6799 6851 6853 6927 6929 6941 6944 6946 6949 6951 6954 6956 7017
7019 7090 7092 7102 7105 7107 7110 7112 7115 7117 7178 7180 7213 7215
7218 7220 7222 7224 7226 7228 7230 7232 7234 7236 7238 7368 7370 7380
7383 7385 7388 7390 7393 7396 7398 7401 7404 7406 7408 7553 7581 7583
7603 7605 7625 7627 7647 7649 7669 7671 7691 7693 7713 7715 7735 7737
7757 7759 7779 7781 7801 7803 7823 7825 7845 7847 7865 8608 8610 8613
8631 8633 8636 8654 8656 8659 8677 8679 8682 8700 8702 8705 8723 8725
8728 8746 8748 8751 8769 8771 8774 8792 8794 8797 8815 8817 8820 8838
8840 8843 8861 8863 8866 8884 8886 8889 8911 8912 8913 8926 8946 9028
MOVSI 804 829 847 848 865 866 906 907 916 917 926 927 936 937
946 947 956 957 971 972 979 980 986 987 994 995 1002 1003
1019 1020 1041 1042 1062 1063 1071 1072 1080 1081 1089 1090 1098 1099
1106 1107 1131 1132 1156 1157 1165 1166 1174 1175 1183 1184 1204 1206
1271 1289 1312 1321 1330 1339 1347 1356 1375 1394 1416 1437 1464 1491
1613 1614 1636 1637 1660 1661 1686 1711 1736 1760 1784 1807 1830 1862
1863 1909 1910 1919 1920 1929 1930 1939 1940 1949 1950 1993 1994 2004
2005 2015 2016 2026 2027 2037 2038 2080 2082 2091 2093 2102 2104 2113
2115 2124 2126 2167 2177 2187 2197 2207 2251 2262 2273 2284 2295 2338
2348 2358 2368 2378 2417 2427 2437 2447 2457 2500 2512 2524 2536 2548
2670 2680 2690 2700 2710 2750 2760 2770 2780 2790 2835 2847 2859 2903 SEQ 0269
2914 2925 2936 2947 2991 3002 3013 3024 3035 3053 3099 3112 3125 3138
3151 3198 3200 3212 3214 3226 3228 3240 3242 3254 3256 3304 3317 3330
3343 3356 3382 3626 3627 3644 3646 3665 3691 3719 3746 3775 3803 3829
3858 3889 3916 3943 3970 3999 4028 4057 4086 4231 4256 4280 4306 7909
7927 7945 7963 7981 7999 8017 8035 8053 8071 8089 8107 8125 8143 8161
8179 8197 8215 8612 8635 8658 8681 8704 8727 8750 8773 8796 8819 8842
8865 8888
NOSYM 29
OPDEF 34 35 36 37 38 39 40 41 42 43 44 224 225 226
227 228 229 230 231 237 243 244 252 253 254 255 256 257
258 259 260 261 262 265 266 267 268 269 270 271 272 273
274 275 276 277 278 279 280 281 282 283 284 285 286 287
288 289 290 291 292 293 294 295 296 297 298 299 300 301
302 303 304 305 306 307 308 309 310 311 312 313 314 315
316 317 318 319 321 338 343 344 348 349 350 356 357 363
364 365 366 367 368 369 375 376 383 384 385 386 396 397
398 399 400 427
PAGE 1026 1956 2132 2384 2718 2955 3060 3511 4371 4429 4495 4677 4825 4973
5121 5269 5417 5565 5713 5861 6009 6157 7860 8226
POP 227
POPJ 225
PUSH 226
PUSHJ 224
REPEAT 892 1895 1977 2065 2153 2236 2323 2404 2485 2580 2657 2737 2819 2888
2976 3080 3179 3285 3383 3471 3520 7555 7883 8230 8580
ROT 2253 2264 2275 2286 2297 2905 2916 2927 2938 2949 2993 3004 3015 3026
3037 3098 3111 3124 3137 3150 3199 3213 3227 3241 3255 3303 3316 3329
3342 3355 3400 3412 3424 3436 3448
SETO 828 830 1272 1313 1322 1331 1340 1348 1357 1395 1417 1438 1713 1762
1809 3402 3414 3426 3438 3450 4118 4141 4163 4186 4208 4285 4311
SETOB 3054 3487 3500 3542 3561 4358 6322 6383 6384 6440 7867
SETOM 3055 4388 4445 4447 4479 6385 6570 6578 6643 6645 6646 6647 6648 6712
6720 6862 6938 7042 7119 7586 7608 7630 7652 7674 7696 7718 7740 7762
7784 7806 7828 7850 7911 7929 7947 7965 7983 8001 8019 8037 8055 8073
8091 8109 8127 8145 8163 8181 8199 8217 8258 8276 8294 8312 8330 8348
8366 8384 8402 8420 8438 8456 8474 8492 8510 8528 8546 8564 8614 8637
8660 8683 8706 8729 8752 8775 8798 8821 8844 8867 8890 8936 9034 9040
SETZ 806 1252 1688 1738 1786 1832 1865 2504 2516 2528 2540 2552 3100 3113
3126 3139 3152 3202 3216 3230 3244 3258 3306 3319 3332 3345 3358 3647
3893 3921 3948 3976 4004 4034 4063 4094
SETZB 1541 4387 4416 6324 6325 6381
SETZM 3489 3502 4359 4446 4478 4480 4512 4515 6326 6572 6574 6575 6576 6577
6641 6649 7585 7607 7629 7651 7673 7695 7717 7739 7761 7783 7805 7827
7849 8920 8931
SIXBIT 84 85 645 646 654 655 8940 8944 8955 8980 9060
SKIPE 808 3057 4212 4365 4391 4397 4420 4426 4455 4484 4492 4519 4527 6334
6339 6344 6349 6354 6388 6418 6589 6595 6601 6607 6613 6654 6690 7590
7592 7612 7614 7634 7636 7656 7658 7678 7680 7700 7702 7722 7724 7744
7746 7766 7768 7788 7790 7810 7812 7832 7834 7854 7856 7872
SKIPGE 8929
SKIPL 8932 9045
SKIPN 4210 8934 8937 9041
SUBTTL 30 153 188 390 427 428 784 1872 4338 7545 8907 9062 SEQ 0270
TITLE 13
TLNE 1441 1835 3598 3612 8922 8965 9031 9035
TLNN 9033 9055
TRNE 8985 8987 8989
TRZ 1022 1044 1065 1074 1083 1092 1101 1109 1134 1159 1168 1177 1186
VAR 9228
XCT 9022
XLIST 7 388 426 559 8948 9018 9066
.DIREC 28
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0271
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777
*030635 IBP 0,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 140600 000000
FINAL
C(E)= 060600 000000
----------
*030650 IBP 0,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 140600 000000
FINAL
C(E)= 060600 000000
----------
*030662 IBP 0,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 140600 000000
FINAL
C(E)= 060600 000000
----------
*030674 IBP 0,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 160600 000000
FINAL
C(E)= 100600 000000
----------
*030706 IBP 0,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 770100 000000
FINAL
C(E)= 760100 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0272
*030714 IBP 0,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 770200 000000
FINAL
C(E)= 750200 000000
----------
*030722 IBP 0,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 770400 000000
FINAL
C(E)= 730400 000000
----------
*030730 IBP 0,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 771000 000000
FINAL
C(E)= 671000 000000
----------
*030736 IBP 0,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 772000 000000
FINAL
C(E)= 572000 000000
----------
*030744 IBP 0,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 774000 000000
FINAL
C(E)= 374000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0273
*030756 IBP 0,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 402000 000000
FINAL
C(E)= 202000 000000
----------
*030764 IBP 0,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 603000 000000
FINAL
C(E)= 303000 000000
----------
*030772 IBP 0,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 301400 000000
FINAL
C(E)= 141400 000000
----------
*031000 IBP 0,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 140600 000000
FINAL
C(E)= 060600 000000
----------
*031006 IBP 0,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 060300 000000
FINAL
C(E)= 030300 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0274
*031020 IBP 0,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 051000 000000
FINAL
C(E)= 341000 000001
----------
*031033 IBP 0,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 160600 000000
FINAL
C(E)= 100600 000000
----------
*031046 IBP 0,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 010100 000000
FINAL
C(E)= 000100 000000
----------
*031055 IBP 0,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 020200 000000
FINAL
C(E)= 000200 000000
----------
*031064 IBP 0,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 040400 000000
FINAL
C(E)= 000400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0275
*031073 IBP 0,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 101000 000000
FINAL
C(E)= 001000 000000
----------
*031102 IBP 0,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 202000 000000
FINAL
C(E)= 002000 000000
----------
*031111 IBP 0,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 404000 000000
FINAL
C(E)= 004000 000000
----------
*031124 IBP 0,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 061000 000000
FINAL
C(E)= 341000 000001
----------
*031137 IBP 0,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 202100 000000
FINAL
C(E)= 232100 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0276
*031146 IBP 0,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 101100 000000
FINAL
C(E)= 331100 000001
----------
*031155 IBP 0,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 020300 000000
FINAL
C(E)= 410300 000001
----------
*031164 IBP 0,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 010200 000000
FINAL
C(E)= 420200 000001
----------
*031200 IBP 0,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 061000 000000
FINAL
C(E)= 341000 000001
----------
*031214 IBP 0,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 061000 000011
FINAL
C(E)= 341000 000012
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0277
*031230 LDB 14,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 000600 000005 C(C(E))= 000000 777777
FINAL
C(AC)= 000000 000077 C(E)= 000600 000005 C(C(E))= 000000 777777
----------
*031243 LDB 11,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 341000 000000 C(E)= 140600 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 777777 777777
----------
*031255 LDB 6,000007
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 100600 000000 C(E)= 140600 000000 C(C(E))= 000000 777777
FINAL
C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 000000 777777
----------
*031270 LDB 5,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 777777 C(E)= 004000 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 037777 777777 C(E)= 004000 000000 C(C(E))= 777777 777777
----------
*031277 LDB 5,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 037777 777777 C(E)= 002000 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 177777 C(E)= 002000 000000 C(C(E))= 777777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 8
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0278
*031306 LDB 5,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 177777 C(E)= 001000 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000377 C(E)= 001000 000000 C(C(E))= 777777 777777
----------
*031315 LDB 5,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000377 C(E)= 000400 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000017 C(E)= 000400 000000 C(C(E))= 777777 777777
----------
*031324 LDB 5,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000017 C(E)= 000200 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000003 C(E)= 000200 000000 C(C(E))= 777777 777777
----------
*031333 LDB 5,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000003 C(E)= 000100 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000001 C(E)= 000100 000000 C(C(E))= 777777 777777
----------
*031346 LDB 14,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 061400 000000 C(C(E))= 000000 007700
FINAL
C(AC)= 000000 000077 C(E)= 061400 000000 C(C(E))= 000000 007700
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 9
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0279
*031361 LDB 13,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000013 C(E)= 060600 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000077 C(E)= 060600 000000 C(C(E))= 777777 777777
----------
*031373 LDB 10,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000010 C(E)= 140600 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 777777 777777
----------
*031405 LDB 7,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000007 C(E)= 140600 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 777777 777777
----------
*031422 LDB 6,@000007
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000100 000000 C(E)= 000600 000014 C(C(E))= 000000 000044
FINAL
C(AC)= 000000 000044 C(E)= 000600 000014 C(C(E))= 000000 000044
----------
*031436 LDB 7,000010(7)
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000004 C(E)= 061400 000000 C(C(E))= 000000 222222
FINAL
C(AC)= 000000 002222 C(E)= 061400 000000 C(C(E))= 000000 222222
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 10
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0280
*031453 LDB 10,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000010 C(E)= 000607 000005 C(C(E))= 000000 000077
FINAL
C(AC)= 000000 000077 C(E)= 000607 000005 C(C(E))= 000000 000077
----------
*031470 LDB 10,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 000607 000005 C(C(E))= 000000 000077
FINAL
C(AC)= 000000 000077 C(E)= 000607 000005 C(C(E))= 000000 000077
----------
*031506 LDB 10,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 000607 000005 C(C(E))= 000000 000015
FINAL
C(AC)= 000000 000015 C(E)= 000607 000005 C(C(E))= 000000 000015
----------
*031524 LDB 10,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000015 C(E)= 000607 000005 C(C(E))= 000000 000015
FINAL
C(AC)= 000000 000015 C(E)= 000607 000005 C(C(E))= 000000 000015
----------
*031536 ILDB 5,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 160600 000000 C(C(E))= 000000 000007
FINAL
C(AC)= 000000 000000 C(E)= 100600 000000 C(C(E))= 000000 000007
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 11
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0281
*031551 ILDB 14,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000033 C(E)= 222200 000000 C(C(E))= 000000 777777
FINAL
C(AC)= 000000 777777 C(E)= 002200 000000 C(C(E))= 000000 777777
----------
*031566 ILDB 13,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 220600 000000 C(C(E))= 000000 770000
FINAL
C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 000000 770000
----------
*031604 DPB 12,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 000000 770000
----------
*031620 DPB 7,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 777777 557777
----------
*031635 DPB 5,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 005555 C(E)= 140600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 005555 C(E)= 140600 000000 C(C(E))= 000000 550000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 12
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0282
*031651 DPB 14,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 061400 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000055 C(E)= 061400 000000 C(C(E))= 777777 005577
----------
*031665 DPB 13,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 550000
----------
*031701 DPB 11,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 005555 C(E)= 220600 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 005555 C(E)= 220600 000000 C(C(E))= 777755 777777
----------
*031714 DPB 7,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 550000
----------
*031731 IDPB 5,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 220600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 000000 770000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 13
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0283
*031745 IBP 0,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 220600 000000
FINAL
C(E)= 140600 000000
----------
*031753 IBP 0,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 200600 000000
FINAL
C(E)= 120600 000000
----------
*031761 IBP 0,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 160600 000000
FINAL
C(E)= 100600 000000
----------
*031767 IBP 0,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 140600 000000
FINAL
C(E)= 060600 000000
----------
*031775 IBP 0,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 120600 000000
FINAL
C(E)= 040600 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 14
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0284
*032007 IBP 0,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 221400 000000
FINAL
C(E)= 061400 000000
----------
*032015 IBP 0,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 221200 000000
FINAL
C(E)= 101200 000000
----------
*032023 IBP 0,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 221000 000000
FINAL
C(E)= 121000 000000
----------
*032031 IBP 0,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 220600 000000
FINAL
C(E)= 140600 000000
----------
*032037 IBP 0,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 220400 000000
FINAL
C(E)= 160400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 15
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0285
*032052 IBP 0,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 001400 000000
FINAL
C(E)= 301400 000001
----------
*032061 IBP 0,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 001200 000000
FINAL
C(E)= 321200 000001
----------
*032070 IBP 0,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 001000 000000
FINAL
C(E)= 341000 000001
----------
*032077 IBP 0,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 000600 000000
FINAL
C(E)= 360600 000001
----------
*032106 IBP 0,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 000400 000000
FINAL
C(E)= 400400 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 16
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0286
*032120 LDB 12,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 160400 000000 C(E)= 220100 000000 C(C(E))= 777777 000000
FINAL
C(AC)= 000000 000001 C(E)= 220100 000000 C(C(E))= 777777 000000
----------
*032126 LDB 12,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 220200 000000 C(C(E))= 777777 000000
FINAL
C(AC)= 000000 000003 C(E)= 220200 000000 C(C(E))= 777777 000000
----------
*032134 LDB 12,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000003 C(E)= 220300 000000 C(C(E))= 777777 000000
FINAL
C(AC)= 000000 000007 C(E)= 220300 000000 C(C(E))= 777777 000000
----------
*032142 LDB 12,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000007 C(E)= 220400 000000 C(C(E))= 777777 000000
FINAL
C(AC)= 000000 000017 C(E)= 220400 000000 C(C(E))= 777777 000000
----------
*032150 LDB 12,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000017 C(E)= 220500 000000 C(C(E))= 777777 000000
FINAL
C(AC)= 000000 000037 C(E)= 220500 000000 C(C(E))= 777777 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 17
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0287
*032163 LDB 11,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400400 000001 C(E)= 140300 000000 C(C(E))= 000000 070000
FINAL
C(AC)= 000000 000007 C(E)= 140300 000000 C(C(E))= 000000 070000
----------
*032172 LDB 11,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000007 C(E)= 170300 000000 C(C(E))= 000000 700000
FINAL
C(AC)= 000000 000007 C(E)= 170300 000000 C(C(E))= 000000 700000
----------
*032201 LDB 11,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000007 C(E)= 220300 000000 C(C(E))= 000007 000000
FINAL
C(AC)= 000000 000007 C(E)= 220300 000000 C(C(E))= 000007 000000
----------
*032210 LDB 11,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000007 C(E)= 250300 000000 C(C(E))= 000070 000000
FINAL
C(AC)= 000000 000007 C(E)= 250300 000000 C(C(E))= 000070 000000
----------
*032217 LDB 11,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000007 C(E)= 300300 000000 C(C(E))= 000700 000000
FINAL
C(AC)= 000000 000007 C(E)= 300300 000000 C(C(E))= 000700 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 18
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0288
*032232 LDB 7,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000007 C(E)= 220300 000006 C(C(E))= 000006 000000
FINAL
C(AC)= 000000 000006 C(E)= 220300 000006 C(C(E))= 000006 000000
----------
*032241 LDB 7,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000006 C(E)= 220300 000005 C(C(E))= 000005 000000
FINAL
C(AC)= 000000 000005 C(E)= 220300 000005 C(C(E))= 000005 000000
----------
*032250 LDB 7,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000005 C(E)= 220300 000004 C(C(E))= 000004 000000
FINAL
C(AC)= 000000 000004 C(E)= 220300 000004 C(C(E))= 000004 000000
----------
*032257 LDB 7,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000004 C(E)= 220300 000003 C(C(E))= 000003 000000
FINAL
C(AC)= 000000 000003 C(E)= 220300 000003 C(C(E))= 000003 000000
----------
*032266 LDB 7,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000003 C(E)= 220300 000002 C(C(E))= 000002 000000
FINAL
C(AC)= 000000 000002 C(E)= 220300 000002 C(C(E))= 000002 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 19
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0289
*032301 LDB 10,000000(1)
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 220300 000002 C(E)= 000300 000001 C(C(E))= 000300 000001
FINAL
C(AC)= 000000 000001 C(E)= 000300 000001 C(C(E))= 000300 000001
----------
*032310 LDB 10,000000(2)
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 000300 000002 C(C(E))= 000300 000002
FINAL
C(AC)= 000000 000002 C(E)= 000300 000002 C(C(E))= 000300 000002
----------
*032317 LDB 10,000000(3)
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000002 C(E)= 000300 000003 C(C(E))= 000300 000003
FINAL
C(AC)= 000000 000003 C(E)= 000300 000003 C(C(E))= 000300 000003
----------
*032326 LDB 10,000000(4)
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000003 C(E)= 000300 000004 C(C(E))= 000300 000004
FINAL
C(AC)= 000000 000004 C(E)= 000300 000004 C(C(E))= 000300 000004
----------
*032335 LDB 10,000000(5)
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000004 C(E)= 000300 000005 C(C(E))= 000300 000005
FINAL
C(AC)= 000000 000005 C(E)= 000300 000005 C(C(E))= 000300 000005
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 20
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0290
*032352 LDB 7,@000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000002 C(E)= 000300 000001 C(C(E))= 000300 000001
FINAL
C(AC)= 000000 000001 C(E)= 000300 000001 C(C(E))= 000300 000001
----------
*032363 LDB 7,@000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 000300 000002 C(C(E))= 000300 000002
FINAL
C(AC)= 000000 000002 C(E)= 000300 000002 C(C(E))= 000300 000002
----------
*032374 LDB 7,@000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000002 C(E)= 000300 000003 C(C(E))= 000300 000003
FINAL
C(AC)= 000000 000003 C(E)= 000300 000003 C(C(E))= 000300 000003
----------
*032405 LDB 7,@000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000003 C(E)= 000300 000004 C(C(E))= 000300 000004
FINAL
C(AC)= 000000 000004 C(E)= 000300 000004 C(C(E))= 000300 000004
----------
*032416 LDB 7,@000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000004 C(E)= 000300 000005 C(C(E))= 000300 000005
FINAL
C(AC)= 000000 000005 C(E)= 000300 000005 C(C(E))= 000300 000005
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 21
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0291
*032432 LDB 10,@000000(4)
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 440300 000005 C(E)= 000600 000012 C(C(E))= 000600 000012
FINAL
C(AC)= 000000 000012 C(E)= 000600 000012 C(C(E))= 000600 000012
----------
*032442 LDB 10,@000000(5)
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000013 C(E)= 000600 000013 C(C(E))= 000600 000013
FINAL
C(AC)= 000000 000013 C(E)= 000600 000013 C(C(E))= 000600 000013
----------
*032452 LDB 10,@000000(6)
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000013 C(E)= 000600 000014 C(C(E))= 000600 000014
FINAL
C(AC)= 000000 000014 C(E)= 000600 000014 C(C(E))= 000600 000014
----------
*032465 LDB 4,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000007 C(E)= 000607 000000 C(C(E))= 000000 000007
FINAL
C(AC)= 000000 000007 C(E)= 000607 000000 C(C(E))= 000000 000007
----------
*032474 LDB 4,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000007 C(E)= 000607 000000 C(C(E))= 000000 000010
FINAL
C(AC)= 000000 000010 C(E)= 000607 000000 C(C(E))= 000000 000010
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 22
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0292
*032503 LDB 4,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000010 C(E)= 000607 000000 C(C(E))= 000000 000011
FINAL
C(AC)= 000000 000011 C(E)= 000607 000000 C(C(E))= 000000 000011
----------
*032512 LDB 4,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000011 C(E)= 000607 000000 C(C(E))= 000000 000012
FINAL
C(AC)= 000000 000012 C(E)= 000607 000000 C(C(E))= 000000 000012
----------
*032521 LDB 4,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000012 C(E)= 000607 000000 C(C(E))= 000000 000013
FINAL
C(AC)= 000000 000013 C(E)= 000607 000000 C(C(E))= 000000 000013
----------
*032534 LDB 4,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000013 C(E)= 000620 000000 C(C(E))= 000000 000007
FINAL
C(AC)= 000000 000007 C(E)= 000620 000000 C(C(E))= 000000 000007
----------
*032543 LDB 4,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000007 C(E)= 000620 000000 C(C(E))= 000000 000010
FINAL
C(AC)= 000000 000010 C(E)= 000620 000000 C(C(E))= 000000 000010
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 23
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0293
*032552 LDB 4,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000010 C(E)= 000620 000000 C(C(E))= 000000 000011
FINAL
C(AC)= 000000 000011 C(E)= 000620 000000 C(C(E))= 000000 000011
----------
*032561 LDB 4,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000011 C(E)= 000620 000000 C(C(E))= 000000 000012
FINAL
C(AC)= 000000 000012 C(E)= 000620 000000 C(C(E))= 000000 000012
----------
*032570 LDB 4,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000012 C(E)= 000620 000000 C(C(E))= 000000 000013
FINAL
C(AC)= 000000 000013 C(E)= 000620 000000 C(C(E))= 000000 000013
----------
*032604 LDB 4,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000013 C(E)= 000627 000000 C(C(E))= 000000 000013
FINAL
C(AC)= 000000 000013 C(E)= 000627 000000 C(C(E))= 000000 000013
----------
*032614 LDB 4,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000013 C(E)= 000627 000000 C(C(E))= 000000 000014
FINAL
C(AC)= 000000 000014 C(E)= 000627 000000 C(C(E))= 000000 000014
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 24
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0294
*032624 LDB 4,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000014 C(E)= 000627 000000 C(C(E))= 000000 000015
FINAL
C(AC)= 000000 000015 C(E)= 000627 000000 C(C(E))= 000000 000015
----------
*032637 ILDB 5,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000627 000000 C(E)= 440600 000000 C(C(E))= 770000 000000
FINAL
C(AC)= 000000 000077 C(E)= 360600 000000 C(C(E))= 770000 000000
----------
*032646 ILDB 5,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 360600 000000 C(C(E))= 007700 000000
FINAL
C(AC)= 000000 000077 C(E)= 300600 000000 C(C(E))= 007700 000000
----------
*032655 ILDB 5,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 300600 000000 C(C(E))= 000077 000000
FINAL
C(AC)= 000000 000077 C(E)= 220600 000000 C(C(E))= 000077 000000
----------
*032664 ILDB 5,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 220600 000000 C(C(E))= 000000 770000
FINAL
C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 000000 770000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 25
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0295
*032673 ILDB 5,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 000000 007700
FINAL
C(AC)= 000000 000077 C(E)= 060600 000000 C(C(E))= 000000 007700
----------
*032706 ILDB 14,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000014 C(E)= 000600 000000 C(C(E))= 770000 000000
FINAL
C(AC)= 000000 000077 C(E)= 360600 000001 C(C(E))= 770000 000000
----------
*032715 ILDB 14,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 001400 000000 C(C(E))= 007700 000000
FINAL
C(AC)= 000000 000077 C(E)= 301400 000001 C(C(E))= 007700 000000
----------
*032724 ILDB 14,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 002200 000000 C(C(E))= 000077 000000
FINAL
C(AC)= 000000 000077 C(E)= 222200 000001 C(C(E))= 000077 000000
----------
*032733 ILDB 14,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 003000 000000 C(C(E))= 000000 770000
FINAL
C(AC)= 000000 000077 C(E)= 143000 000001 C(C(E))= 000000 770000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 26
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0296
*032742 ILDB 14,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 003600 000000 C(C(E))= 000000 007700
FINAL
C(AC)= 000000 000077 C(E)= 063600 000001 C(C(E))= 000000 007700
----------
*032751 ILDB 14,000015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(E)= 206000 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000000 C(E)= 646000 000001 C(C(E))= 777777 777777
----------
*032766 DPB 13,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 060600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000055 C(E)= 060600 000000 C(C(E))= 000000 005500
----------
*032777 DPB 13,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 550000
----------
*033010 DPB 13,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 220600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000055 C(E)= 220600 000000 C(C(E))= 000055 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 27
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0297
*033021 DPB 13,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 300600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000055 C(E)= 300600 000000 C(C(E))= 005500 000000
----------
*033032 DPB 13,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 360600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000055 C(E)= 360600 000000 C(C(E))= 550000 000000
----------
*033047 DPB 12,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 000600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000055 C(E)= 000600 000000 C(C(E))= 000000 000055
----------
*033060 DPB 12,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 060600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000055 C(E)= 060600 000000 C(C(E))= 000000 005500
----------
*033071 DPB 12,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 550000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 28
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0298
*033102 DPB 12,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 220600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000055 C(E)= 220600 000000 C(C(E))= 000055 000000
----------
*033113 DPB 12,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 300600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000055 C(E)= 300600 000000 C(C(E))= 005500 000000
----------
*033130 IDPB 11,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 000600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000077 C(E)= 360600 000001 C(C(E))= 770000 000000
----------
*033141 IDPB 11,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 001400 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000077 C(E)= 301400 000001 C(C(E))= 007700 000000
----------
*033152 IDPB 11,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 002200 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000077 C(E)= 222200 000001 C(C(E))= 000077 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 29
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0299
*033163 IDPB 11,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 003000 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000077 C(E)= 143000 000001 C(C(E))= 000000 770000
----------
*033174 IDPB 11,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000077 C(E)= 003600 000000 C(C(E))= 000000 000000
FINAL
C(AC)= 000000 000077 C(E)= 063600 000001 C(C(E))= 000000 007700
----------
*033212 IDPB 10,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 440600 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000055 C(E)= 360600 000000 C(C(E))= 557777 777777
----------
*033223 IDPB 10,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 360600 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000055 C(E)= 300600 000000 C(C(E))= 775577 777777
----------
*033234 IDPB 10,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 300600 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000055 C(E)= 220600 000000 C(C(E))= 777755 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 30
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0300
*033245 IDPB 10,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 220600 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 777777 557777
----------
*033256 IDPB 10,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 777777 777777
FINAL
C(AC)= 000000 000055 C(E)= 060600 000000 C(C(E))= 777777 775577
----------
*033272 LDB 13,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 076000 000001 C(C(E))= 525252 525377
FINAL
C(AC)= 002525 252525 C(E)= 076000 000001 C(C(E))= 525252 525377
----------
*033304 LDB 13,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 074000 000001 C(C(E))= 525252 525377
FINAL
C(AC)= 002525 252525 C(E)= 074000 000001 C(C(E))= 525252 525377
----------
*033316 DPB 13,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 323232 232323 C(E)= 076000 000001 C(C(E))= 707070 707070
FINAL
C(AC)= 323232 232323 C(E)= 076000 000001 C(C(E))= 646446 464670
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 31
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0301
*033336 DPB 13,000014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 323232 232323 C(E)= 074000 000001 C(C(E))= 707070 707070
FINAL
C(AC)= 323232 232323 C(E)= 074000 000001 C(C(E))= 646446 464670
----------
*033362 ILDB 13,000014
FLAGS - INT/FINAL 020000 000000
INITIAL
C(AC)= 707070 707070 C(E)= 220600 000012 C(C(E))= 112233 445566
FINAL
C(AC)= 000000 000033 C(E)= 220600 000012 C(C(E))= 112233 445566
----------
*033377 IDPB 13,000014
FLAGS - INT/FINAL 020000 000000
INITIAL
C(AC)= 707070 707070 C(E)= 220600 000012 C(C(E))= 112233 445566
FINAL
C(AC)= 707070 707070 C(E)= 220600 000012 C(C(E))= 112270 445566
----------
*033417 IBP 0,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 170600 000000
FINAL
C(E)= 110600 000000
----------
*033434 IBP 0,040073
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 170600 000000
FINAL
C(E)= 110600 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 32
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0302
*033454 DPB 5,000003
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 654321 C(E)= 170600 000001 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 654321 C(E)= 170600 000001 C(C(E))= 230702 103700
----------
*033500 DPB 14,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 654321 C(E)= 170600 040073 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 654321 C(E)= 170600 040073 C(C(E))= 230702 103700
----------
*033524 DPB 13,040073
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 654321 C(E)= 170600 000007 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 654321 C(E)= 170600 000007 C(C(E))= 230702 103700
----------
*033551 DPB 12,040073
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 654321 C(E)= 170600 040076 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 654321 C(E)= 170600 040076 C(C(E))= 230702 103700
----------
*033577 IDPB 11,000007
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 654321 C(E)= 250600 000005 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 654321 C(E)= 170600 000005 C(C(E))= 230702 103700
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 33
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0303
*033624 IDPB 10,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 654321 C(E)= 250600 040073 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 654321 C(E)= 170600 040073 C(C(E))= 230702 103700
----------
*033644 IDPB 7,040073
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 654321 C(E)= 250600 000003 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 654321 C(E)= 170600 000003 C(C(E))= 230702 103700
----------
*033672 IDPB 6,040073
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 654321 C(E)= 250600 040076 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 654321 C(E)= 170600 040076 C(C(E))= 230702 103700
----------
*033717 LDB 5,000003
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 170600 000001 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 000036 C(E)= 170600 000001 C(C(E))= 230703 603700
----------
*033742 LDB 14,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 170600 040073 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 000036 C(E)= 170600 040073 C(C(E))= 230703 603700
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 34
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0304
*033766 LDB 13,040073
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 170600 000007 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 000036 C(E)= 170600 000007 C(C(E))= 230703 603700
----------
*034013 LDB 12,040073
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 170600 040076 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 000036 C(E)= 170600 040076 C(C(E))= 230703 603700
----------
*034041 ILDB 11,000007
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 170600 000005 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 000003 C(E)= 110600 000005 C(C(E))= 230703 603700
----------
*034065 ILDB 10,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 170600 040073 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 000003 C(E)= 110600 040073 C(C(E))= 230703 603700
----------
*034112 ILDB 7,040073
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 230703 603700 C(E)= 170600 000003 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 000003 C(E)= 110600 000003 C(C(E))= 230703 603700
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 35
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0305
*034140 ILDB 6,040073
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 170600 040076 C(C(E))= 230703 603700
FINAL
C(AC)= 000000 000003 C(E)= 110600 040076 C(C(E))= 230703 603700
----------
*034162 LDB 5,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(E)= 000000 000010 C(C(E))= 000000 000010
FINAL
C(AC)= 000000 000000 C(E)= 000000 000010 C(C(E))= 000000 000010
----------
*034202 ILDB 14,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(E)= 000000 000010 C(C(E))= 000000 000010
FINAL
C(AC)= 000000 000000 C(E)= 000000 000010 C(C(E))= 000000 000010
----------
*034222 DPB 13,000007
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(E)= 000000 000010 C(C(E))= 000000 000010
FINAL
C(AC)= 777777 777777 C(E)= 000000 000010 C(C(E))= 000000 000010
----------
*034242 IDPB 12,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(E)= 000000 000010 C(C(E))= 000000 000006
FINAL
C(AC)= 777777 777777 C(E)= 000000 000010 C(C(E))= 000000 000006
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 36
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0306
*034263 IBP 11,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 000000 000010
FINAL
C(E)= 000000 000010
----------
*034310 LDB 10,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 000000 C(E)= 430100 000004 C(C(E))= 777777 000000
FINAL
C(AC)= 000000 000001 C(E)= 430100 000004 C(C(E))= 777777 000000
----------
*034333 LDB 7,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 000000 C(E)= 000100 000003 C(C(E))= 000000 777777
FINAL
C(AC)= 000000 000001 C(E)= 000100 000003 C(C(E))= 000000 777777
----------
*034357 DPB 6,000004
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 000076 C(E)= 430100 000002 C(C(E))= 777777 777777
FINAL
C(AC)= 777777 000076 C(E)= 430100 000002 C(C(E))= 377777 777777
----------
*034403 DPB 5,000003
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 000076 C(E)= 000100 000001 C(C(E))= 777777 777777
FINAL
C(AC)= 777777 000076 C(E)= 000100 000001 C(C(E))= 777777 777776
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 37
DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0307
*034422 IBP 0,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(E)= 000100 777777
FINAL
C(E)= 430100 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0308
DSKAM 000000 000000 777000 000000 251000 000000 030000 777777
*034437 BLT 7,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000001 000001 E= 000000 000001
FINAL
C(AC)= 000001 000001
----------
*034456 BLT 14,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000006 000006 E= 000000 000006
FINAL
C(AC)= 000006 000006
----------
*034475 BLT 14,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000006 000006 E= 000000 000006
FINAL
C(AC)= 000006 000006
----------
*034515 BLT 14,040156
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040156 040156 E= 000000 040156
FINAL
C(AC)= 040156 040156
----------
*034540 BLT 13,040156
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040156 040156 E= 000000 040156
FINAL
C(AC)= 040156 040156
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2
DSKAM 000000 000000 777000 000000 251000 000000 030000 777777 SEQ 0309
*034564 BLT 12,040156
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040156 040156 E= 000000 040156
FINAL
C(AC)= 040156 040156
----------
*034612 BLT 14,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000006 000011 E= 000000 000011
FINAL
C(AC)= 000006 000011
----------
*034643 BLT 13,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000005 000010 E= 000000 000010
FINAL
C(AC)= 000005 000010
----------
*034674 BLT 12,000007
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000004 000007 E= 000000 000007
FINAL
C(AC)= 000004 000007
----------
*034730 BLT 14,040161
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000006 040161 E= 000000 040161
FINAL
C(AC)= 000006 040161
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3
DSKAM 000000 000000 777000 000000 251000 000000 030000 777777 SEQ 0310
*034767 BLT 13,040161
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000005 040161 E= 000000 040161
FINAL
C(AC)= 000005 040161
----------
*035026 BLT 12,040161
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000004 040161 E= 000000 040161
FINAL
C(AC)= 000004 040161
----------
*035070 BLT 11,040161
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040156 040161 E= 000000 040161
FINAL
C(AC)= 040156 040161
----------
*035135 BLT 10,040161
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040156 040161 E= 000000 040161
FINAL
C(AC)= 040156 040161
----------
*035202 BLT 7,040161
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040156 040161 E= 000000 040161
FINAL
C(AC)= 040156 040161
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4
DSKAM 000000 000000 777000 000000 251000 000000 030000 777777 SEQ 0311
*035244 BLT 14,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040156 000006 E= 000000 000006
FINAL
C(AC)= 040156 000006
----------
*035303 BLT 13,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040156 000005 E= 000000 000005
FINAL
C(AC)= 040156 000005
----------
*035342 BLT 12,000004
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040156 000004 E= 000000 000004
FINAL
C(AC)= 040156 000004
----------
*035374 BLT 14,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000004 000004 E= 000000 000010
FINAL
C(AC)= 000004 000004
----------
*035425 BLT 14,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000004 000004 E= 000000 000010
FINAL
C(AC)= 000004 000004
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5
DSKAM 000000 000000 777000 000000 251000 000000 030000 777777 SEQ 0312
*035460 BLT 14,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000004 000004 E= 000000 000010
FINAL
C(AC)= 000004 000004
----------
*035514 BLT 14,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000004 000004 E= 000000 000010
FINAL
C(AC)= 000004 000004
----------
*035550 BLT 13,040162
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040156 040156 E= 000000 040162
FINAL
C(AC)= 040156 040156
----------
*035613 BLT 12,040162
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040156 040156 E= 000000 040162
FINAL
C(AC)= 040156 040156
----------
*035657 BLT 11,040162
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040156 040156 E= 000000 040162
FINAL
C(AC)= 040156 040156
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6
DSKAM 000000 000000 777000 000000 251000 000000 030000 777777 SEQ 0313
*035731 BLT 10,040162
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040156 040156 E= 000000 040162
FINAL
C(AC)= 040156 040156
----------
*035775 BLT 14,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000002 000001 E= 000000 000005
FINAL
C(AC)= 000002 000001
----------
*036043 BLT 6,040162
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040157 040156 E= 000000 040162
FINAL
C(AC)= 040157 040156
----------
*036112 BLT 14,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000001 000002 E= 000000 000006
FINAL
C(AC)= 000001 000002
----------
*036160 BLT 4,040163
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040156 040157 E= 000000 040163
FINAL
C(AC)= 040156 040157
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7
DSKAM 000000 000000 777000 000000 251000 000000 030000 777777 SEQ 0314
*036265 BLT 14,040167
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000001 040156 E= 000000 040167
FINAL
C(AC)= 000001 040156
----------
*036434 BLT 14,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040156 000001 E= 000000 000012
FINAL
C(AC)= 040156 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0315
DSKAM 000000 000000 777000 000000 243000 000000 030000 777777
*036542 JFFO 0,036544
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*036560 JFFO 1,036562
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*036576 JFFO 2,036600
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*036614 JFFO 3,036616
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*036632 JFFO 4,036634
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2
DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0316
*036650 JFFO 5,036652
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*036666 JFFO 6,036670
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*036704 JFFO 7,036706
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*036722 JFFO 10,036724
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*036740 JFFO 11,036742
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3
DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0317
*036756 JFFO 12,036760
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*036774 JFFO 13,036776
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*037012 JFFO 14,037014
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*037025 JFFO 14,037027
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 000000
----------
*037037 JFFO 14,037041
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4
DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0318
*037051 JFFO 14,037053
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 200000 000000 C(AC+1)= 000000 000001
----------
*037063 JFFO 14,037065
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 100000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 100000 000000 C(AC+1)= 000000 000002
----------
*037075 JFFO 14,037077
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 040000 000000 C(AC+1)= 000000 000003
----------
*037107 JFFO 14,037111
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 020000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 020000 000000 C(AC+1)= 000000 000004
----------
*037121 JFFO 14,037123
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 010000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 010000 000000 C(AC+1)= 000000 000005
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5
DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0319
*037133 JFFO 14,037135
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 004000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 004000 000000 C(AC+1)= 000000 000006
----------
*037145 JFFO 14,037147
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 002000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 002000 000000 C(AC+1)= 000000 000007
----------
*037157 JFFO 14,037161
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 001000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 001000 000000 C(AC+1)= 000000 000010
----------
*037171 JFFO 14,037173
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000400 000000 C(AC+1)= 000000 000011
----------
*037203 JFFO 14,037205
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000200 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000200 000000 C(AC+1)= 000000 000012
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6
DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0320
*037215 JFFO 14,037217
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000100 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000100 000000 C(AC+1)= 000000 000013
----------
*037227 JFFO 14,037231
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000040 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000040 000000 C(AC+1)= 000000 000014
----------
*037241 JFFO 14,037243
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000020 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000020 000000 C(AC+1)= 000000 000015
----------
*037253 JFFO 14,037255
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000010 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000010 000000 C(AC+1)= 000000 000016
----------
*037265 JFFO 14,037267
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000004 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000004 000000 C(AC+1)= 000000 000017
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7
DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0321
*037277 JFFO 14,037301
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000002 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000002 000000 C(AC+1)= 000000 000020
----------
*037311 JFFO 14,037313
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000001 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000001 000000 C(AC+1)= 000000 000021
----------
*037323 JFFO 14,037325
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 400000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 400000 C(AC+1)= 000000 000022
----------
*037335 JFFO 14,037337
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 200000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 200000 C(AC+1)= 000000 000023
----------
*037347 JFFO 14,037351
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 100000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 100000 C(AC+1)= 000000 000024
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 8
DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0322
*037361 JFFO 14,037363
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 040000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 040000 C(AC+1)= 000000 000025
----------
*037373 JFFO 14,037375
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 020000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 020000 C(AC+1)= 000000 000026
----------
*037405 JFFO 14,037407
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 010000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 010000 C(AC+1)= 000000 000027
----------
*037417 JFFO 14,037421
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 004000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 004000 C(AC+1)= 000000 000030
----------
*037431 JFFO 14,037433
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 002000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 002000 C(AC+1)= 000000 000031
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 9
DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0323
*037443 JFFO 14,037445
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 001000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 001000 C(AC+1)= 000000 000032
----------
*037455 JFFO 14,037457
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000400 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000400 C(AC+1)= 000000 000033
----------
*037467 JFFO 14,037471
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000200 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000200 C(AC+1)= 000000 000034
----------
*037501 JFFO 14,037503
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000100 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000100 C(AC+1)= 000000 000035
----------
*037513 JFFO 14,037515
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000040 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000040 C(AC+1)= 000000 000036
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 10
DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0324
*037525 JFFO 14,037527
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000020 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000020 C(AC+1)= 000000 000037
----------
*037537 JFFO 14,037541
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000010 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000010 C(AC+1)= 000000 000040
----------
*037551 JFFO 14,037553
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000004 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000004 C(AC+1)= 000000 000041
----------
*037563 JFFO 14,037565
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000002 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000002 C(AC+1)= 000000 000042
----------
*037575 JFFO 14,037577
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(AC+1)= 777777 777777
FINAL
C(AC)= 000000 000001 C(AC+1)= 000000 000043
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 11
DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0325
*037613 JFFO 0,037615
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000
----------
*037631 JFFO 1,037633
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 200000 000000 C(AC+1)= 000000 000001
----------
*037647 JFFO 2,037651
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 100000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 100000 000000 C(AC+1)= 000000 000002
----------
*037665 JFFO 3,037667
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 040000 000000 C(AC+1)= 000000 000003
----------
*037703 JFFO 4,037705
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 020000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 020000 000000 C(AC+1)= 000000 000004
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 12
DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0326
*037721 JFFO 5,037723
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 010000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 010000 000000 C(AC+1)= 000000 000005
----------
*037737 JFFO 6,037741
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 004000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 004000 000000 C(AC+1)= 000000 000006
----------
*037755 JFFO 7,037757
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 002000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 002000 000000 C(AC+1)= 000000 000007
----------
*037773 JFFO 10,037775
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 001000 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 001000 000000 C(AC+1)= 000000 000010
----------
*040011 JFFO 11,040013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000400 000000 C(AC+1)= 000000 000011
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 13
DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0327
*040027 JFFO 12,040031
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000200 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000200 000000 C(AC+1)= 000000 000012
----------
*040045 JFFO 13,040047
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000100 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000100 000000 C(AC+1)= 000000 000013
----------
*040063 JFFO 14,040065
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000040 000000 C(AC+1)= 777777 777777
FINAL
C(AC)= 000040 000000 C(AC+1)= 000000 000014
----------