Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dakag.seq
There are no other files named dakag.seq in the archive.
MAINDEC-10-DAKAG.TXT
SEQ 0001
IDENTIFICATION
--------------
PRODUCT CODE: MAINDEC-10-DAKAG-B-D
PRODUCT NAME: DECSYSTEM10 PDP-10 KA10 BASIC
INSTRUCTION DIAGNOSTIC (7)
FUNCTION: PUSH, POP, XCT, BASIC SHIFT/ROTATE
VERSION: 0.2
DATE RELEASED: JANUARY 1977
MAINTAINED BY: DIAGNOSTIC ENGINEERING GROUP
AUTHOR: JOHN R. KIRCHOFF
COPYRIGHT(C) 1976,1977
DIGITAL EQUIPMENT CORPORATION
MARLBORO, MASS. 01752
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY
ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE,
OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
MADE AVAILABLE TO ANY OTHER PERSON EXECPT FOR USE ON SUCH SYSTEM
AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND
OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
MAINDEC-10-DAKAG.TXT
PAGE 2 SEQ 0002
TABLE OF CONTENTS
-----------------
1.0 ABSTRACT
2.0 REQUIREMENTS
2.1 EQUIPMENT
2.2 STORAGE
2.3 PRELIMINARY PROGRAMS
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
3.2 STARTING PROCEDURE
3.3 OPERATING PROCEDURE
4.0 ERRORS
5.0 ITERATION COUNTER
6.0 CYCLE TIME
7.0 OPERATIONAL VARIATIONS
8.0 MISCELLANEOUS
9.0 LISTING
MAINDEC-10-DAKAG.TXT
PAGE 3 SEQ 0003
1.0 ABSTRACT
THIS PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC IS THE
SEVENTH IN A SERIES OF PDP-10 KA10 PROCESSOR DIAGNOSTICS.
THE DIAGNOSTIC TESTS THE PUSH, POP, XCT AND BASIC
SHIFT ROTATE INSTRUCTIONS.
2.0 REQUIREMENTS
2.1 EQUIPMENT
A PDP-10 KA10 WITH A MINIMUM OF 32K OF MEMORY
PAPER TAPE READER
DECTAPE (OPTIONAL)
CONSOLE TELETYPE
2.2 STORAGE
THE PROGRAM RUNS WITHIN 32K OF MEMORY.
2.3 PRELIMINARY PROGRAMS
CONSOLE FUNCTIONS WORKING PROPERLY
PAPER TAPE OR DECTAPE READ-IN WORKING PROPERLY
PREVIOUS PROCESSOR DIAGNOSTICS
MAINDEC-10-DAKAG.TXT
PAGE 4 SEQ 0004
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
PAPER TAPE - HARDWARE READ-IN (READER DEVICE CODE 104)
DECTAPE - LOAD WITH DIAMON (DECTAPE DEVICE CODE 320)
3.2 STARTING PROCEDURE
STAND-ALONE STARTING ADDRESS IS 30000.
IF THE DIAGNOSTIC FAILS TO START CORRECTLY TRY STARTING AT THE
FIRST TEST INSTEAD OF AT THE BEGINNING OF THE CONTROL SEQUENCE.
(SEE LISTING).
3.3 OPERATING PROCEDURE
ONCE STARTED THE PROGRAM WILL CYCLE CONTINUALLY UNTIL STOPPED
OR AN ERROR OCCURS.
4.0 ERRORS
ERRORS ARE IN THE FORM OF HALT INSTRUCTIONS. THE LISTING
SHOULD BE CONSULTED TO DETERMINE THE CAUSE OF THE ERROR. A
NO OPERATION (JUMP) INSTRUCTION FOLLOWS EACH HALT. THIS
MAY BE USEFUL IN CONSTRUCTING A SCOPE LOOP TO CYCLE ON THE
FAILING INSTRUCTION.
5.0 ITERATION COUNTER
THE ITERATION COUNT OF THE PROGRAM IS DISPLAYED IN THE MEM-
ORY INDICATORS (MI). THIS COUNT IS A DECREMENTING COUNT AND
INITIALLY STARTS AT -1 IN STAND-ALONE OPERATION.
6.0 CYCLE TIME
THE CYCLE TIME OF THE PROGRAM IS IN THE MILLISECOND RANGE AND
IS THEREFORE SUITABLE FOR TAKING MARGINS, VIBRATION TESTS, ETC.
MAINDEC-10-DAKAG.TXT
PAGE 5 SEQ 0005
7.0 OPERATIONAL VARIATIONS
A. DIAGNOSTIC MONITOR
THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PRO-
VIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PRO-
VIDE A QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR
AREA OF THE PROCESSOR. CERTAIN PROCEDURES ARE USED WHEN
THE PROGRAM IS USED IN THIS MANNER. THEY ARE:
1. THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PRO-
GRAM AND STARTS IT AT LOCATION 30002.
2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MON-
ITOR CONTROL FLAG WORD.
B. USER MODE
THE PROGRAM WILL OPERATE IN USER MODE AND AS SUCH PROVIDES
ASSURANCE THAT THE PROCESSOR IS PERFORMING ALL FUNCTIONS
CORRECTLY. USER MODE STARTING ADDRESS IS 30000.
C. SYSTEM EXERCISER
STARTING ADDRESS IS 30003. NO DATA SWITCHES ARE USED BY
THIS PROGRAM.
8.0 MISCELLANEOUS
NONE
9.0 LISTING
THIS IS A HISTORY OF THE DEVELOPMENT OF MAINDEC-10-DAKAG
SEQ 0006
************************************************************************
PRODUCT CODE: MAINDEC-10-DAKAG
PRODUCT NAME: BASIC INSTRUCTION DIAGNOSTIC #7
DATE RELEASED: JANUARY 1977
VERSION: 0.2
UPDATE AUTHOR: JOHN R. KIRCHOFF
CHANGES MADE:
1. UPGRADE TO ALLOW COMPATABILITY WITH THE SUBROUTINE PACKAGE.
************************************************************************
ORIGINAL VERSION: 0.1
ORIGINAL AUTHOR: RICHARD MALISKA
ORIGINAL RELEASE: 16-MAR-72
************************************************************************
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 1
DAKAGT MAC 19-JAN-77 16:54 DIAGNOSTIC PARAMETERS SEQ 0007
1 ;DAKAG
2
3
4
5 000002 DECVER==2
6 000000 MCNVER==0
7
8 XLIST
9 LIST
10 LALL
11 NAME \MCNVER,\DECVER^
12
13 TITLE DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2
14 ^
15
16 ;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE
17 ;AND TO DETECT (SOLID) FAILURES IN THE FIELD.
18
19 ;COPYRIGHT 1972,1977
20 ;DIGITAL EQUIPMENT CORPORATION
21 ;MARLBORO, MASS. 01752
22
23 ;JOHN R. KIRCHOFF
24 ;DICK MALISKA
25
26 000137 LOC 137
27 000137 000000 000002 MCNVER,,DECVER
28
29 NOSYM
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 2
DAKAGT MAC 19-JAN-77 16:54 DIAGNOSTIC PARAMETERS SEQ 0008
30 SUBTTL DIAGNOSTIC PARAMETERS
31
32 ;PARAMETER DEFINITIONS
33 000001 EXCASB==1
34 000001 USRASB==1
35 000001 PGMEND==1
36 000100 DEBUG==100
37
38 ;FLAG DEFINITIONS
39 010000 USERF=10000 ;USER MODE FLAG
40
41
42 ;MACROS
43
44 ;SPECIAL FEATURE PARAMETERS
45
46 030712 SADR1=START
47 030712 SADR2=START
48 030712 SADR3=START
49 030712 SADR4=START
50 254000 030712 SADR5=JRST START
51 254000 030712 SADR6=JRST START
52 254000 030712 SADR7=JRST START
53 254000 030712 SADR8=JRST START
54 254000 030712 SADR9=JRST START
55 254000 030712 SADR10=JRST START
56 254000 030712 SADR11=JRST START
57
58 000000 PAREA0=0
59 000000 PAREA1=0
60 000000 PAREA2=0
61 444153 414700 PAREA3=SIXBIT/DAKAG/
62 645560 000000 PAREA4=SIXBIT/TMP/
63 000000 PAREA5=0
64 000000 PAREA6=0
65 001000 ITERAT==1000
66 000001 PGMEND==1
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 3
DAKAGT MAC 19-JAN-77 16:54 DIAGNOSTIC PARAMETERS SEQ 0009
67 SUBTTL DIAGNOSTIC PARAMETERS
68
69 ;ACCUMULATOR ASSIGNMENTS
70
71 ;CONTROL WORDS
72
73 400000 AROV=400000 ;ARITHMETIC OVERFLOW
74 200000 CRY0=200000 ;CARRY 0
75 100000 CRY1=100000 ;CARRY 1
76 040000 FOV=40000 ;FLOATING OVERFLOW
77 020000 BIS=20000 ;BYTE INTERRUPT
78 010000 USERF=10000 ;USER MODE FLAG
79 004000 EXIOT=4000 ;USER PRIV I/O FLAG
80 000100 FXU=100 ;FLOATING UNDERFLOW
81 000040 DCK=40 ;DIVIDE CHECK
82
83
84 ;MACROS
85
86 ; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1)
87 ; TO A (JUMPA X) TO CYCLE ON FAILING INSTRUCTION
88
89 DEFINE STOP (A)<
90 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
91 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
92 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
93 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
94 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1>
95
96 ; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET REQUESTED FLAG
97
98 DEFINE SFLAG (A)<
99 MOVSI 1,A
100 JFCL 17,.+1 ;RESET ALL FLAGS
101 JRST 2,.+1(1) ;SET A FLAG>
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 1
PARAM KLM 18-JAN-77 11:38 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977 SEQ 0010
102 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977
103
104 DEFINE S,<;*********************************************************************>
105
106 S^;*********************************************************************^
107 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
108 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
109 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
110 S^;*********************************************************************^
111
112 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
113 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
114 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
115
116 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
117 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
118 010000 DING== 010000 ;RING BELL ON ERROR
119
120 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
121 002000 ERSTOP==002000 ;HALT ON TEST ERROR
122 001000 PALERS==001000 ;PRINT ALL ERRORS
123
124 000400 RELIAB==000400 ;RELIABILITY MODE
125 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
126 000100 INHPAG==000100 ;INHIBIT PAGING
127
128 000040 MODDVC==000040 ;MODIFY DEVICE CODE
129 000020 INHCSH==000020 ;INHIBIT CACHE
130 000010 OPRSEL==000010 ;OPERATOR SELECTION
131
132 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
133
134 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER
135
136 ;SWITCH 17 RESERVED !!!
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 2
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0011
137 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977
138
139 S^;*********************************************************************^
140 ;*SPECIAL SUBPROGRAM LINKAGES
141 S^;*********************************************************************^
142
143 027772 FSELNK= 27772 ;FILE SELECT LINK
144 027773 FRDLNK= 27773 ;FILE READ LINK
145 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
146 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
147 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
148 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
149
150 S^;*********************************************************************^
151 ;*SPECIAL SUBROUTINE FATAL HALTS
152 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
153 S^;*********************************************************************^
154
155 ;ADDRESS TAG REASON
156 ;---------------------
157
158 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
159 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
160 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
161 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
162 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL
163 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
164 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
165 ; 1017 EOPERR ;END OF PROGRAM ERROR
166 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
167
168 S^;*********************************************************************^
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 3
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0012
169 S^;*********************************************************************^
170 ;OPERATOR DEFINITIONS (NON-UUO'S)
171 S^;*********************************************************************^
172
173 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
174 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
175 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
176 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
177 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
178 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
179 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
180 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
181
182 S^;*********************************************************************^
183 ;*SUBROUTINE INITIALIZATION CALL
184 S^;*********************************************************************^
185
186 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
187
188 S^;*********************************************************************^
189 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
190 S^;*********************************************************************^
191
192 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
193 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
194
195 S^;*********************************************************************^
196 ;*TERMINAL INPUT UUO'S
197 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
198 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
199 S^;*********************************************************************^
200
201 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
202 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
203 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
204 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
205 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
206 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
207 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
208 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
209 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
210 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 4
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0013
211 ;*TERMINAL OUTPUT UUO'S.
212
213 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
214 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
215 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
216 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
217 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
218 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
219 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
220 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
221 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
222 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
223 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
224 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
225 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
226 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
227 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
228 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
229 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
230 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
231 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
232 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
233 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
234 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
235 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
236 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
237 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
238 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
239 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
240 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
241 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
242 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
243 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
244 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
245 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
246 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
247 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
248 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
249 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
250 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
251 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
252 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
253 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
254 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
255 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
256 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
257 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
258 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
259 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
260 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
261 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
262 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
263 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
264 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
265 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 4-1
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0014
266 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
267 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
268
269 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
270
271 DEFINE PMSG (ARG),<
272 PSIXM [SIXBIT\ARG'_\]>
273
274 DEFINE PMSGF (ARG),<
275 PSIXMF [SIXBIT\ARG'_\]>
276
277 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
278 ;* CONSERVES CORE OVER ASCIZ
279
280 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
281
282 ;*CONSOLE SWITCH INPUT UUO.
283 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
284 ;* USER MODE.
285
286 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
287
288 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
289 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
290
291 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK
292 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER
293
294 ;*KL10 ONLY CACHE OPERATION UUO'S
295
296 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
297 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
298 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 5
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0015
299 ;*END OF PASS/PROGRAM UUOS
300
301 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
302 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
303
304 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
305 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
306
307 ;*MEMORY MANAGEMENT UUO'S
308 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
309 ;*ADDRESS CONVERSION, ETC...
310
311 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
312 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
313 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
314 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
315 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
316 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
317 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
318
319 ;*DEVICE CODE MODIFICATION UUO
320 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
321 ;*IOT'S TO A DIFFERENT DEVICE CODE.
322
323 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
324 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
325
326 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
327 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
328
329 ;*"DIAMON" FILE SELECTION AND READ UUOS
330
331 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
332 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
333 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
334 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
335
336 ;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
337
338 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE
339
340 XLIST
341 IFNDEF KLOLD,<LIST
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 6
PARAM KLM 18-JAN-77 11:38 ERROR HANDLING UUO DEFINITIONS, JAN 18,1977 SEQ 0016
342 SUBTTL ERROR HANDLING UUO DEFINITIONS, JAN 18,1977
343
344 S^;*********************************************************************^
345 ;*ERROR HANDLER PARAMETERS
346 S^;*********************************************************************^
347
348 036000 000000 OPDEF ERUUO [36B8] ;ERROR CALL UUO
349 035000 000000 OPDEF ERLOOP [35B8] ;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
350 035040 000000 OPDEF ERLP1 [35B8!1B12] ;ERROR LOOP IF PC'S MATCH
351 035100 000000 OPDEF ERLP2 [35B8!2B12] ;ERROR LOOP IF ANY ERROR
352 034000 000000 OPDEF REPTUO [34B8] ;REPEAT LOOP UUO
353
354 ;*THE ERROR HANDLER MACROS
355
356 ;*A MACRO TO REPORT AN ERROR AND LOOP
357
358 DEFINE ERROR (ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
359 SALL
360 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
361 CORECT,,ACTUAL
362 [SIXBIT\D'_\],,ERR]
363 XALL
364
365 ERLOOP ADR ;IF ERROR, LOOP TO ADR
366 >
367
368 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP
369
370 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)<
371 SALL
372 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
373 CORECT,,ACTUAL
374 [SIXBIT\D'_\],,ERR]
375 XALL >
376
377 >;END OF KLOLD CONDITIONAL
378
379 XLIST
380 LIST
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 1
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0017
381 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977
382
383 030000 LOC 30000
384
385 S^;*********************************************************************^
386 ;*PROGRAM STARTING ADDRESSES
387 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
388 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
389 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
390 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
391 S^;*********************************************************************^
392
393 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
394 030001 254 00 0 00 030712 $START: JRST START ;MODE CHECK STARTING ADDRESS
395
396 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
397
398 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
399
400 030004 254 00 0 00 030712 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
401
402 030005 254 00 0 00 030712 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
403
404 030006 254 00 0 00 030712 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
405
406 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
407 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
408
409 030010 254 00 0 00 030741 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
410 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
411 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
412
413 030013 254000 030712 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
414 030014 254000 030712 START2: SADR8 ; "
415 030015 254000 030712 START3: SADR9 ; "
416 030016 254000 030712 START4: SADR10 ; "
417 030017 254000 030712 START5: SADR11 ; "
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 2
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0018
418 S^;*********************************************************************^
419 ;*PROGRAM FIXED PARAMETER AREA
420 S^;*********************************************************************^
421
422 030020 444153 414700 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
423 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
424 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER
425 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
426 030024 000000 001000 ITRCNT: ITERAT ;PROGRAM ITERATIONS
427 030025 000000 030725 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
428 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
429 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
430 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
431 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
432 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
433 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
434 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
435 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
436 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
437
438 S^;*********************************************************************^
439 ;*PROGRAM VARIABLE PARAMETER AREA
440 S^;*********************************************************************^
441
442 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
443 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
444 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
445 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
446 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
447 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
448 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
449 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
450 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
451 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
452 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
453 030052 000000 000000 ERRPC: 0 ;ERROR PC
454 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
455 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
456 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
457 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 3
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0019
458 S^;*********************************************************************^
459 ;*SPECIAL PROGRAM DISPATCH ADDRESSES
460 S^;*********************************************************************^
461
462 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
463 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
464 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
465 030062 254000 030712 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
466 030063 254000 030712 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
467 030064 CPOPJ1: ;SKIP RETURN
468 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
469 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
470 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
471 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
472 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
473 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
474 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
475 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
476 030073 255 00 0 00 000000 $USRHL: JFCL ; "
477 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
478 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
479 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
480 030077 255 00 0 00 000000 RESRT2: JFCL ; "
481 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
482 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
483 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
484
485 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
486 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
487 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
488
489 S^;*********************************************************************^
490 ;*PROCESSOR CONTROL STORAGE
491 S^;*********************************************************************^
492
493 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
494 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
495 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
496 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
497 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
498
499 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
500 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
501
502 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
503 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
504 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
505 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
506 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
507 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
508 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 4
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0020
509 S^;*********************************************************************^
510 ;*UUO DISPATCH TABLE
511 S^;*********************************************************************^
512 XLIST
513 LIST
514 030124 030070 030070 UUODIS: LUUO1,,$UUOER
515 030125 030070 030070 LUUO3,,LUUO2
516 030126 030070 030070 LUUO5,,LUUO4
517 030127 030070 030070 LUUO7,,LUUO6
518 030130 030070 030070 LUUO11,,LUUO10
519 030131 030070 030070 LUUO13,,LUUO12
520 030132 030070 030070 LUUO15,,LUUO14
521 030133 030070 030070 LUUO17,,LUUO16
522 030134 030070 030070 LUUO21,,LUUO20
523 030135 030070 030070 LUUO23,,LUUO22
524 030136 030070 030070 LUUO25,,LUUO24
525 030137 030070 030070 LUUO27,,LUUO26
526 030140 030070 030070 LUUO31,,LUUO30
527 030141 030070 030070 LUUO33,,LUUO32
528
529 S^;*********************************************************************^
530 ;*MEMORY MANAGMENT STORAGE
531 S^;*********************************************************************^
532
533 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
534 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
535 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
536 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
537 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
538
539 S^;*********************************************************************^
540 ;*PRINT CONTROL STORAGE
541 S^;*********************************************************************^
542
543 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
544 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
545 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
546 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
547 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
548 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
549 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
550 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
551 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
552 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
553 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
554 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
555 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
556 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
557 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
558 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
559 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
560 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
561 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 5
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0021
562 S^;*********************************************************************^
563 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
564 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
565 ;* MOVEI NAME
566 ;* PNTA ;OR PNTAF
567 S^;*********************************************************************^
568
569 030242 CRLF: ASCII/
570 030242 015 012 000 000 000 /
571 030243 CRLF2: ASCII/
572
573 030243 015 012 015 012 000 /
574 030244 054 000 000 000 000 COMMA: ASCII/,/
575 030245 056 000 000 000 000 PERIOD: ASCII/./
576 030246 040 000 000 000 000 SPACE: ASCII/ /
577 030247 011 000 000 000 000 TAB: ASCII/ /
578 030250 MINUS:
579 030250 055 000 000 000 000 HYPEN: ASCII/-/
580 030251 053 000 000 000 000 PLUS: ASCII/+/
581 030252 052 000 000 000 000 AST: ASCII/*/
582 030253 100 000 000 000 000 ATSIN: ASCII/@/
583 030254 050 000 000 000 000 LFP: ASCII/(/
584 030255 051 000 000 000 000 RTP: ASCII/)/
585 030256 007 0000000000 BELL: BYTE (7) 007
586 030257 077 000 000 000 000 QUEST: ASCII/?/
587 030260 057 000 000 000 000 SLASH: ASCII!/!
588 030261 044 000 000 000 000 DOLLAR: ASCII/$/
589 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
590 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
591 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
592
593 S^;*********************************************************************^
594 ;*USER MODE OUTPUT FILE INFORMATION
595 S^;*********************************************************************^
596
597 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
598 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
599 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
600 030272 BLOCK 2
601
602 S^;*********************************************************************^
603 ;*DISK UPDATE MODE FILE INFORMATION
604 S^;*********************************************************************^
605
606 030274 $IBUF: BLOCK 3
607 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
608 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
609 030301 BLOCK 2
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 6
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0022
610 S^;*********************************************************************^
611 ;*PUSHDOWN LIST CONTROL INFORMATION
612 S^;*********************************************************************^
613
614 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
615 030304 PLISTS: BLOCK 200
616 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
617
618 S^;*********************************************************************^
619 ;*POWER LINE CLOCK FREQUENCY FLAG
620 S^;*********************************************************************^
621
622 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
623
624 S^;*********************************************************************^
625 ;*KL10 CACHE CONTROL FLAGS
626 S^;*********************************************************************^
627
628 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
629 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
630
631 S^;*********************************************************************^
632 ;*NUMBER INPUT DIGIT FLAG
633 S^;*********************************************************************^
634
635 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
636
637 S^;*********************************************************************^
638 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
639 S^;*********************************************************************^
640
641 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
642
643 S^;*********************************************************************^
644 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
645 S^;*********************************************************************^
646
647 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
648 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
649 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
650
651 S^;*********************************************************************^
652 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
653 S^;*********************************************************************^
654
655 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 7
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0023
656 S^;*********************************************************************^
657 ;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD
658 S^;*********************************************************************^
659
660 030516 000000 000000 KLTYP: 0
661
662 S^;*********************************************************************^
663 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
664 S^;*********************************************************************^
665
666 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
667
668 S^;*********************************************************************^
669 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
670 S^;*********************************************************************^
671
672 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
673
674 S^;*********************************************************************^
675 ;*"SWITCH" CALL USAGE CONTROL
676 S^;*********************************************************************^
677
678 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
679
680 S^;*********************************************************************^
681 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
682 S^;*********************************************************************^
683
684 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
685 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
686
687 S^;*********************************************************************^
688 ;*SPECIAL FUTURE EXPANSION ROOM
689 ;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF
690 ;*THIS BLOCK STATEMENT ACCORDINGLY. THIS MUST BE DONE
691 ;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE.
692 S^;*********************************************************************^
693
694 030524 BLOCK 53 ;HOPEFULLY THIS IS ENOUGH FOREVER
695
696 S^;*********************************************************************^
697 ;*END OF FIXED STORAGE
698 S^;*********************************************************************^
699
700 030577 $ENDFX=<PLISTE+100>&<777700>-1
701 030577 LOC $ENDFX
702 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 1
SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0024
703 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76
704
705 ;NEW DEFINITIONS USED BY THE KL10 SUBROUTINE PACKAGE
706
707 000000 AC0= 0
708 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS
709 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS
710 020000 DIAMON= 20000 ;PDP-10 DIAMON LOADER START ADDRESS
711 020000 DONG11= 1B22 ;11 DOORBELL (FROM THE 10)
712
713 ;DTE20 DEVICE CODES
714
715 000200 DTE== 200 ;DTE0
716 000204 DTE0== 204
717 000204 DTE1== 204
718 000210 DTE2== 210
719 000214 DTE3== 214
720
721 ;KL10 EPT COMMUNICATION AREA
722
723 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS
724 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS
725 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS
726 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS
727
728 000444 $DTFLG= 444 ;DTE20 OPERATION COMPLETE FLAG
729 000445 $DTCLK= 445 ;DTE20 CLOCK INTERRUPT FLAG
730 000446 $DTCI= 446 ;DTE20 CLOCK INTERRUPT INSTRUCTION
731 000447 $DTT11= 447 ;DTE20 10 TO 11 ARGUMENT
732 000450 $DTF11= 450 ;DTE20 11 TO 10 ARGUMENT
733 000451 $DTCMD= 451 ;DTE20 TO 11 COMMAND WORD
734 000452 $DTSEQ= 452 ;DTE20 OPERATION SEQUENCE NUMBER
735 000453 $DTOPR= 453 ;DTE20 OPERATIONAL DTE #
736 000454 $DTCHR= 454 ;DTE20 LAST TYPED CHARACTER
737 000455 $DTMTD= 455 ;DTE20 MONITOR TTY OUTPUT COMPLETE FLAG
738 000456 $DTMTI= 456 ;DTE20 MONITOR TTY INPUT FLAG
739
740 000457 $DTSWR= 457 ;DTE20 CONSOLE SWITCH REGISTER
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 2
SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0025
741 ;SPECIAL "FIXED" REASSIGNMENTS
742
743 030600 $$LOC=. ;SAVE CURRENT LOCATION
744
745 030000 LOC 30000
746 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START
747 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS
748
749 000440 LOC 440
750 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD"
751 000443 LOC 443
752 000443 254 00 0 00 030636 $STM: JRST $SPEC ;SIMPLE RUN CONTROL
753
754 030057 LOC 30057
755 030057 254 00 0 00 030641 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND"
756
757 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP
758
759 000420 LOC 420
760 000420 254 04 0 00 000420 $$420: HALT . ;KI10 PAGE FAIL
761 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW
762 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW
763 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3
764 000424 000000 000000 $$424: 0 ;MMUO
765 000425 000000 000000 $$425: 0 ;MMUO PC
766 000426 000000 000000 $$426: 0 ;KI10-PAGE FAIL, KL10-PROCESS CONTEXT
767 000427 254 04 0 00 000427 $$427: HALT .
768 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S
769 000431 000000 000427 $$431: 427
770 000432 000000 000427 $$432: 427
771 000433 000000 000427 $$433: 427
772 000434 000000 000427 $$434: 427
773 000435 000000 000427 $$435: 427
774 000436 000000 000427 $$436: 427
775 000437 000000 000427 $$437: 427
776
777 000500 LOC 500
778 000500 000000 000000 $$500: 0 ;KL10 PAGE FAIL WORD
779 000501 000000 000000 $$501: 0 ;KL10 PAGE FAIL PC
780 000502 000000 000503 $$502: 503 ;KL10 PAGE FAIL NEW PC
781 000503 254 04 0 00 000503 $$503: HALT .
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 3
SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0026
782 030600 LOC $$LOC ;RESET CURRENT LOCATION
783
784 ;SPECIAL STARTUP SEQUENCE
785
786 030600 402 00 0 00 030037 $$START:SETZM USER
787 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ?
788 030602 603 00 0 00 010000 TLNE 0,USERF
789 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD
790 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ?
791 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC
792 030606 332 00 0 00 030037 SKIPE USER
793 030607 254 00 0 00 030712 JRST START ;USER MODE, DON'T NEED CPU TYPE
794
795 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ?
796 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER
797 030612 402 00 0 00 030516 SETZM KLTYP
798 030613 402 00 0 00 030041 SETZM KLFLG ;ASSUME KI10
799 030614 200 01 0 00 032223 MOVE 1,[1,,1]
800 030615 251 01 0 00 000001 BLT 1,1 ;HOPE THIS WORKS
801 030616 316 01 0 00 032223 CAMN 1,[1,,1] ;IF AC NE 1,,1 AFTER BLT, KL10
802 030617 254 00 0 00 030712 JRST START ;KI10, NO ADDITIONAL SETUP
803
804 030620 7 000 20 0 00 010040 $STKL: CONO APR,10040 ;SET BBD NOT BIT
805 030621 7 000 24 0 00 000000 CONI APR,0
806 030622 7 000 20 0 00 020040 CONO APR,20040 ;CLEAR BBD NOT BIT
807 030623 606 00 0 00 000040 TRNN 0,40 ;IF SET, KL10
808 030624 350 00 0 00 030516 AOS KLTYP ;IF NOT, BBD
809 030625 402 00 0 00 000444 SETZM $DTFLG
810 030626 402 00 0 00 000445 SETZM $DTCLK
811 030627 200 00 0 00 000453 MOVE $DTOPR ;GET DTE #
812 030630 436 00 0 00 030670 ORM $$DTE0 ;INSERT IN DTE I/O INSTS
813 030631 436 00 0 00 030672 ORM $$DTE1
814 030632 436 00 0 00 030704 ORM $$DTE2
815 030633 436 00 0 00 030706 ORM $$DTE3
816 030634 476 00 0 00 030041 SETOM KLFLG ;SET KL10 CONTROL FLAG
817 030635 254 00 0 00 030712 JRST START
818
819 030636 200 00 0 00 032224 $SPEC: MOVE [JRST STARTA] ;SIMPLE RUN CONTROL
820 030637 202 00 0 00 030643 MOVEM $SPB1
821 030640 254 00 0 00 030712 JRST START
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 4
SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0027
822 ;SPECIAL "BEGEND" ROUTINE
823
824 030641 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT
825 030642 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT
826 030643 336 00 0 00 030037 $SPB1: SKIPN USER
827 030644 254 00 0 00 030652 JRST $SPBEX ;EXEC MODE
828
829 030645 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ?
830 030646 254 00 0 00 030741 JRST STARTA ;NO, KEEP RUNNING
831 030647 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ?
832 030650 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR
833 030651 254 00 1 00 030012 JRST @RETURN ;YES, RETURN TO "DIAMON"
834
835 030652 332 00 0 00 030041 $SPBEX: SKIPE KLFLG
836 030653 254 00 0 00 030660 JRST $SPBKL ;KL10 & EXEC
837 030654 7 004 14 0 00 030024 DATAO PI,ITRCNT ;KI10 & EXEC, DISPLAY ITER COUNT
838 030655 332 00 0 00 030024 SKIPE ITRCNT
839 030656 254 00 0 00 030741 JRST STARTA ;NOT COMPLETED YET
840 030657 254 00 1 00 030012 JRST @RETURN ;DONE
841
842 030660 336 00 0 00 030024 $SPBKL: SKIPN ITRCNT
843 030661 254 00 0 00 030676 JRST $SPKLD ;KL10, EXEC & COMPLETED
844
845 030662 335 00 0 00 030043 SKIPGE MONCTL
846 030663 254 00 0 00 030741 JRST STARTA ;"DIAMON" CONTROL
847 030664 201 00 0 00 000404 MOVEI 0,404 ;NOTIFY PDP-11 OF END OF PASS
848 030665 202 00 0 00 000451 MOVEM 0,$DTCMD
849 030666 402 00 0 00 000444 SETZM $DTFLG
850 030667 336 00 0 00 030516 SKIPN KLTYP
851 030670 7 200 20 0 00 020000 $$DTE0: CONO DTE,DONG11
852 030671 332 00 0 00 030516 SKIPE KLTYP
853 030672 7 200 20 0 00 010000 $$DTE1: CONO DTE,10000
854 030673 336 00 0 00 000444 SKIPN $DTFLG ;WAIT TILL 11 RESPONDS
855 030674 254 00 0 00 030673 JRST .-1
856 030675 254 00 0 00 030741 JRST STARTA ;KEEP RUNNING
857
858 ;SPECIAL KL10 COMPLETED ROUTINE
859
860 030676 332 00 0 00 030044 $SPKLD: SKIPE MONTEN
861 030677 254 00 1 00 030012 JRST @RETURN ;LOADED BY "DIAMON"
862
863 030700 201 00 0 00 000403 MOVEI 0,403 ;NOTIFY PDP-11 OF COMPLETION
864 030701 202 00 0 00 000451 MOVEM 0,$DTCMD
865 030702 402 00 0 00 000444 SETZM $DTFLG
866 030703 336 00 0 00 030516 SKIPN KLTYP
867 030704 7 200 20 0 00 020000 $$DTE2: CONO DTE,DONG11
868 030705 332 00 0 00 030516 SKIPE KLTYP
869 030706 7 200 20 0 00 010000 $$DTE3: CONO DTE,10000
870 030707 336 00 0 00 000444 SKIPN $DTFLG ;SHOULD NEVER HAPPEN
871 030710 254 00 0 00 030707 JRST .-1 ;11 NEVER RETURNS ON END OF PROGRAM
872 030711 254 04 0 00 030000 HALT BEGIN ;IF IT DOES, HALT.
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 1
DAKAGM MAC 19-JAN-77 17:37 DIAGNOSTIC SECTION SEQ 0028
873 SUBTTL DIAGNOSTIC SECTION
874
875 030712 402 00 0 00 030037 START: SETZM USER# ;CLEAR USER CONTROL WORD
876 030713 265 00 0 00 030714 JSP 0,.+1 ;GET FLAGS
877 030714 603 00 0 00 010000 TLNE USERF ;IN USER MODE?
878 030715 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD
879 030716 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE?
880 030717 402 00 0 00 030037 SETZM USER ;YES, CLEAR USER CONTROL WORD
881 030720 336 00 0 00 030037 SKIPN USER
882 030721 254 00 0 00 030741 JRST STARTA
883 030722 331 00 0 00 030043 SKIPL MONCTL
884 030723 051 03 0 00 030725 TTCALL 3,PGMNAM ;MENTION OUR NAME
885 030724 254 00 0 00 030741 JRST STARTA
886
887 030725 PGMNAM: ASCIZ/
888 030725 015 012 120 104 120 PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (7) [DAKAG]
889 030726 055 061 060 040 113
890 030727 111 061 060 040 102
891 030730 101 123 111 103 040
892 030731 111 116 123 124 122
893 030732 125 103 124 111 117
894 030733 116 040 104 111 101
895 030734 107 116 117 123 124
896 030735 111 103 040 050 067
897 030736 051 040 133 104 101
898 030737 113 101 107 135 015
899 030740 012 000 000 000 000 /
900
901 030741 254 00 0 00 030742 STARTA: JRST .+1
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 2
DAKAGM MAC 19-JAN-77 17:37 TEST OF PUSH INSTRUCTION SEQ 0029
902 SUBTTL TEST OF PUSH INSTRUCTION
903
904 ;**********
905
906 ;THIS TEST VERIFIES THAT PUSH DECODES CORRECTLY.
907 ;IF PUSH DECODES AS PUSHJ, THIS TEST FAILS.
908
909 030742 400 02 0 00 000000 C27200: SETZ 2, ;CLEAR AC
910 030743 261 02 0 00 030745 PUSH 2,.+2 ;*PUSH SHOULD NOT JUMP
911 030744 334 00 0 00 000000 SKIPA ;PASS IF PUSH DID NOT JUMP
912 STOP^
913 030745 254 04 0 00 030746 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
914 030746 324 00 0 00 030747 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
915 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
916 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
917 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
918
919 ;**********
920
921 ;THIS TEST VERIFIES THAT PUSH DOES NOT MODIFY C(E).
922 ;CLEAR E AND AC; THEN, EXECUTE PUSH.
923 ;CHECK E FOR ORIGINAL CONTENTS ,0.
924 ;PASS IF C(E)=0.
925
926 030747 403 00 0 00 000002 C27300: SETZB 2 ;CLEAR AC,E
927 030750 261 02 0 00 000000 PUSH 2, ;*PUSH SHOULD NOT ALTER C(E)
928 030751 332 00 0 00 000000 SKIPE ;PASS IF C(E)=0,,0
929 STOP^
930 030752 254 04 0 00 030753 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
931 030753 324 00 0 00 030754 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
932 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
933 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
934 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
935
936 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 3
DAKAGM MAC 19-JAN-77 17:37 TEST OF PUSH INSTRUCTION SEQ 0030
937 ;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC.
938 ;FIRST THE AC IS CLEARED; THEN PUSH IS EXECUTED.
939 ;THE AC IS CHECKED FOR 1,,1. IF C(AC)=1,,1, THIS TEST PASSES.
940
941 030754 400 02 0 00 000000 C27400: SETZ 2, ;CLEAR AC
942 030755 261 02 0 00 030756 PUSH 2,.+1 ;*PUSH SHOULD ADD 1,,1 TO C(AC)
943 030756 312 02 0 00 032223 CAME 2,[XWD 1,1] ;PASS IF C(AC)=1,,1
944 STOP^
945 030757 254 04 0 00 030760 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
946 030760 324 00 0 00 030761 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
947 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
948 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
949 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
950
951 ;**********
952
953 ;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC BEFORE MODIFYING C(C(AC-RIGHT)).
954 ;FIRST, THE AC AND AC0 ARE ZEROED; THEN PUSH IS EXECUTED.
955 ;C(C(AC-RIGHT)) [BEFORE AC UPDATING] (AC0) IS CHECKED FOR THE INITIAL VALUE, 0.
956 ;IF C(AC0)=0, THIS TEST PASSES
957
958 030761 403 00 0 00 000002 C27500: SETZB 2 ;CLEAR AC AND AC0
959 030762 261 02 0 00 032225 PUSH 2,[16541320] ;*PUSH SHOULD NOT MODIFY C(AC0)
960 030763 332 00 0 00 000000 SKIPE ;PASS IF C(AC0)=0
961 STOP^
962 030764 254 04 0 00 030765 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
963 030765 324 00 0 00 030766 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
964 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
965 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
966 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
967
968 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 4
DAKAGM MAC 19-JAN-77 17:37 TEST OF PUSH INSTRUCTION SEQ 0031
969 ;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC BEFORE MODIFYING C(C(AC-RIGHT)).
970 ;FIRST, THE AC AND AC0 ARE ZEROED; THEN PUSH IS EXECUTED.
971 ;C(C(AC-RIGHT)) [BEFORE AC UPDATING] (AC0) IS CHECKED FOR
972 ;IF C(AC0)IS NOT EQUAL TO E, THIS TEST PASSES
973
974 030766 403 01 0 00 000002 C27600: SETZB 1,2 ;CLEAR AC AND AC0
975 030767 261 02 0 00 030770 PUSH 2,.+1 ;*PUSH SHOULD NOT MODIFY C(AC0)
976 030770 306 00 0 00 030770 CAIN . ;FAIL IF C(AC0)=E
977 STOP^
978 030771 254 04 0 00 030772 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
979 030772 324 00 0 00 030773 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
980 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
981 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
982 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
983
984 ;**********
985
986 ;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC; THEN, MOVES C(E) INTO
987 ;THE LOCATION SPECIFIED BY C(AC-RIGHT). IN THIS CASE, AC AND THE LOCATION SPECIFIED
988 ;BY UPDATING C(AC-RIGHT) ARE CLEARED; THEN, PUSH IS EXECUTED WITH C(E)=-1,,-1.
989 ;THE LOCATION SPECIFIED BY C(AC-RIGHT) IS THEN CHECKED FOR -1,,-1, THE
990 ;ORIGINAL C(E). IF C(C(AC-RIGHT))=-1,,-1, THIS TEST PASSES.
991
992 030773 403 01 0 00 000002 C27700: SETZB 1,2 ;CLEAR AC, C(AC-RIGHT)
993 030774 261 02 0 00 032226 PUSH 2,[-1] ;*PUSH SHOULD PLACE -1,,-1 INTO AC1
994 030775 312 01 0 00 032226 CAME 1,[-1] ;PASS IF C(1)=-1,,-1
995 STOP^
996 030776 254 04 0 00 030777 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
997 030777 324 00 0 00 031000 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
998 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
999 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1000 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1001
1002 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 5
DAKAGM MAC 19-JAN-77 17:37 TEST OF PUSH INSTRUCTION SEQ 0032
1003 ;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC; THEN, MOVES C(E) INTO
1004 ;THE LOCATION SPECIFIED BY C(AC-RIGHT). IN THIS CASE, AC
1005 ;IS CLEARED; THEN, PUSH IS EXECUTED WITH C(E)=0.
1006 ;THE LOCATION SPECIFIED BY C(AC-RIGHT) IS THEN CHECKED FOR 0, THE
1007 ;ORIGINAL C(E). IF C(C(AC-RIGHT))=0, THIS TEST PASSES.
1008
1009 031000 402 00 0 00 000002 C30000: SETZM 2 ;CLEAR AC
1010 031001 261 02 0 00 032227 PUSH 2,[0] ;*PUSH SHOULD PLACE 0 INTO AC1
1011 031002 332 00 0 00 000001 SKIPE 1 ;PASS IF C(1)=0
1012 STOP^
1013 031003 254 04 0 00 031004 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1014 031004 324 00 0 00 031005 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1015 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1016 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1017 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1018
1019 ;**********
1020
1021 ;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC; THEN, MOVES C(E) INTO
1022 ;THE LOCATION SPECIFIED BY C(AC-RIGHT). IN THIS CASE,
1023 ;AC IS PRELOADED WITH 0,,-1, AND THE LOCATION SPECIFIED
1024 ;BY UPDATING C(AC-RIGHT) IS CLEARED; THEN, PUSH IS EXECUTED WITH C(E)=-1,,-1.
1025 ;THE LOCATION SPECIFIED BY C(AC-RIGHT) IS THEN CHECKED FOR -1,,-1, THE
1026 ;ORIGINAL C(E). IF C(C(AC-RIGHT))=-1,,-1, THIS TEST PASSES.
1027
1028 031005 201 02 0 00 777777 C30100: MOVEI 2,-1 ;PRELOAD AC WITH 0,,-1
1029 031006 400 00 0 00 000000 SETZ ;CLEAR AC, C(AC-RIGHT)
1030 031007 261 02 0 00 032226 PUSH 2,[-1] ;*PUSH SHOULD PLACE -1,,-1 INTO AC0
1031 031010 312 00 0 00 032226 CAME [-1] ;PASS IF C(0)=-1,,-1
1032 STOP^
1033 031011 254 04 0 00 031012 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1034 031012 324 00 0 00 031013 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1035 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1036 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1037 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1038
1039 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 6
DAKAGM MAC 19-JAN-77 17:37 TEST OF PUSH INSTRUCTION SEQ 0033
1040 ;THIS TEST VERIFIES THAT THERE IS A CARRY FROM AC BIT 18 TO BIT 17 OF THE AC ON PUSH.
1041 ;THE AC IS PRELOADED WITH 0,,-1; THEN PUSH IS EXECUTED. PUSH SHOULD ADD ONE TO BOTH
1042 ;HALVES OF THE AC, GENERATING A CARRY FROM BIT 18 TO BIT 17. IF A CARRY WAS GENERATED,
1043 ;THIS TEST PASSES.
1044
1045 031013 201 02 0 00 777777 C30101: MOVEI 2,-1 ;PRELOAD AC WITH 0,,-1
1046 031014 261 02 0 00 000000 PUSH 2,0 ;*PUSH SHOULD GENERATE A CARRY FROM BIT 18 TO BIT 17
1047 031015 312 02 0 00 032230 CAME 2,[2,,0] ;PASS IF C(AC)=2,,0 (CARRY WAS GENERATED)
1048 STOP^
1049 031016 254 04 0 00 031017 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1050 031017 324 00 0 00 031020 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1051 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1052 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1053 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1054
1055 ;*************
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 7
DAKAGM MAC 19-JAN-77 17:37 TEST OF PUSHJ INSTRUCTION SEQ 0034
1056 SUBTTL TEST OF PUSHJ INSTRUCTION
1057
1058 ;**********
1059
1060 ;THIS TEST VERIFIES THAT PUSHJ TRANSFERS CONTROL TO THE LOCATION ADDRESSED BY E.
1061 ;IF PUSHJ DOES NOT JUMP, THIS TEST FAILS
1062
1063 031020 C30200: SFLAG CRY0 ^;SETS CRY0 FLAG
1064
1065 031020 205 01 0 00 200000 MOVSI 1,CRY0
1066 031021 255 17 0 00 031022 JFCL 17,.+1 ;RESET ALL FLAGS
1067 031022 254 02 0 01 031023 JRST 2,.+1(1) ;SET CRY0 FLAG
1068 031023 400 00 0 00 000000 SETZ ;CLEAR AC
1069 031024 260 00 0 00 031026 PUSHJ .+2 ;*PUSHJ SHOULD JUMP TO LOCATION E
1070 STOP^
1071 031025 254 04 0 00 031026 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1072 031026 324 00 0 00 031027 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1073 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1074 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1075 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1076
1077 ;**********
1078
1079 ;THIS TEST VERIFIES THAT PUSHJ DOES NOT MODIFY C(PC) WHERE PC IS ONE GREATER
1080 ;THAN THE LOCATION OF THE PUSHJ INSTRUCTION.
1081 ;IF PUSHJ MODIFIES C(PC), THIS TEST FAILS
1082
1083 031027 C30300: SFLAG CRY0 ^;SET CRY0
1084
1085 031027 205 01 0 00 200000 MOVSI 1,CRY0
1086 031030 255 17 0 00 031031 JFCL 17,.+1 ;RESET ALL FLAGS
1087 031031 254 02 0 01 031032 JRST 2,.+1(1) ;SET CRY0 FLAG
1088 031032 403 01 0 00 031034 SETZB 1,.+2 ;CLEAR C(AC-RIGHT) AND C(PC)
1089 031033 260 00 0 00 031036 PUSHJ .+3 ;*PUSHJ SHOULD NOT MODIFY C(PC)
1090 031034 000000 000000 0 ;THIS LOCATION SHOULD NOT BE MODIFIED BY PUSHJ
1091 031035 310 00 0 00 000000 CAM ;PUSHJ SHOULD JUMP OVER THIS LOCATION
1092 031036 332 00 0 00 031034 SKIPE .-2 ;PASS IF PUSHJ DID NOT MODIFY C(PC)
1093 STOP^
1094 031037 254 04 0 00 031040 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1095 031040 324 00 0 00 031041 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1096 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1097 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1098 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1099
1100 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 8
DAKAGM MAC 19-JAN-77 17:37 TEST OF PUSHJ INSTRUCTION SEQ 0035
1101 ;THIS TEST VERIFIES THAT PUSHJ DOES NOT STORE IN E
1102 ;IF PUSHJ STORED IN E, THIS TEST FAILS
1103
1104 031041 C30400: SFLAG CRY0 ^;SET CRY0
1105
1106 031041 205 01 0 00 200000 MOVSI 1,CRY0
1107 031042 255 17 0 00 031043 JFCL 17,.+1 ;RESET ALL FLAGS
1108 031043 254 02 0 01 031044 JRST 2,.+1(1) ;SET CRY0 FLAG
1109 031044 403 00 0 00 000001 SETZB 1 ;CLEAR AC AND C(AC-RIGHT
1110 031045 260 00 0 00 031046 PUSHJ .+1 ;*PUSHJ SHOULD NOT STORE IN E
1111 031046 200 02 0 00 031046 MOVE 2,. ;SAVE C(E)
1112 031047 312 02 0 00 031046 CAME 2,.-1 ;FAIL IF PUSHJ STORED IN E
1113 STOP^
1114 031050 254 04 0 00 031051 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1115 031051 324 00 0 00 031052 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1116 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1117 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1118 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1119
1120 ;**********
1121
1122 ;THIS TEST VERIFIES THAT PUSHJ DOES NOT STORE IN LOC 0
1123 ;PUSHJ SHOULD STORE PC IN C(AC-RIGHT) - LOCATION 2.
1124 ;IF PUSHJ STORES IN LOCATION 0, THIS TEST FAILS
1125
1126 031052 201 02 0 00 000001 C30500: MOVEI 2,1 ;PRELOAD AC WITH 0,,1
1127 031053 400 00 0 00 000000 SETZ 0 ;CLEAR 0
1128 031054 260 02 0 00 031055 PUSHJ 2,.+1 ;*PUSHJ SHOULD NOT STORE IN LOCATION 0
1129 031055 332 00 0 00 000000 SKIPE ;FAIL IF PUSHJ STORED IN LOCATION 0
1130 STOP^
1131 031056 254 04 0 00 031057 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1132 031057 324 00 0 00 031060 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1133 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1134 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1135 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1136
1137 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 9
DAKAGM MAC 19-JAN-77 17:37 TEST OF PUSHJ INSTRUCTION SEQ 0036
1138 ;THIS TEST VERIFIES THAT PUSHJ STORES THE PC IN THE LOCATION SPECIFIED
1139 ;BY C(AC-RIGHT) AFTER INCREMENTING AC.
1140 ;IN THIS TEST, AC AND C(AC-RIGHT) ARE CLEARED; THEN, PUSHJ IS EXECUTED.
1141 ;C(C(AC-RIGHT))IS THEN COMPARED TO ZERO. IF C(C(AC-RIGHT)) IS NON-ZERO,
1142 ;A PC WAS STORED AND THIS TEST PASSES.
1143
1144 031060 403 00 0 00 000001 C30600: SETZB 1 ;CLEAR AC, C(AC-RIGHT)
1145 031061 260 00 0 00 031063 PUSHJ .+2 ;*PUSHJ SHOULD STORE PC IN RIGHT HALF OF C(AC-RIGHT)
1146 031062 254 04 0 00 031062 HALT . ;PUSHJ SHOULD JUMP OVER THIS INSTRUCTION
1147 031063 405 01 0 00 777777 ANDI 1,-1 ;SAVE C(C(AC-RIGHT))
1148 031064 306 01 0 00 031063 CAIN 1,.-1 ;FAIL IF PC WAS NOT STORED IN C(AC-RIGHT)
1149 STOP^
1150 031065 254 04 0 00 031066 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1151 031066 324 00 0 00 031067 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1152 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1153 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1154 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1155
1156 ;**********
1157
1158 ;THIS TEST VERIFIES THAT PUSHJ ADDS 1,,1 TO THE AC
1159 ;THE AC IS CLEARED AND PUSHJ IS EXECUTED
1160 ;AC IS CHECKED FOR 1,,1 IF C(AC)=1,,1, THIS TEST PASSES
1161
1162 031067 400 00 0 00 000000 C31000: SETZ ;CLEAR AC
1163 031070 260 00 0 00 031071 PUSHJ .+1 ;*PUSHJ SHOULD PLACE 1,,1 INTO THE AC
1164 031071 312 00 0 00 032223 CAME [1,,1] ;PASS IF C(AC)=1,,1
1165 STOP^
1166 031072 254 04 0 00 031073 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1167 031073 324 00 0 00 031074 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1168 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1169 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1170 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1171
1172 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 10
DAKAGM MAC 19-JAN-77 17:37 TEST OF PUSHJ INSTRUCTION SEQ 0037
1173 ;THIS TEST VERIFIES THAT PUSHJ STORES THE FLAGS IN LEFT HALF OF C(AC-RIGHT)
1174 ;FIRST, CRY0 IS SET AND AC AND C(AC-RIGHT) ARE CLEARED; THEN, PUSHJ IS EXECUTED.
1175 ;C(C(AC-RIGHT)) IS THEN CHECKED FOR CRY0. IF CRY0 IS SET, THIS TEST PASSES.
1176
1177 031074 C31100: SFLAG CRY0 ^;SET CRY0
1178
1179 031074 205 01 0 00 200000 MOVSI 1,CRY0
1180 031075 255 17 0 00 031076 JFCL 17,.+1 ;RESET ALL FLAGS
1181 031076 254 02 0 01 031077 JRST 2,.+1(1) ;SET CRY0 FLAG
1182 031077 403 00 0 00 000001 SETZB 1 ;CLEAR AC AND C(AC-RIGHT)
1183 031100 260 00 0 00 031101 PUSHJ .+1 ;*PUSHJ SHOULD STORE FLAGS IN LEFT HALF OF C(AC-RIGHT)
1184 031101 607 01 0 00 200000 TLNN 1,CRY0 ;PASS IF CRY0 STORED CORRECTLY
1185 STOP^
1186 031102 254 04 0 00 031103 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1187 031103 324 00 0 00 031104 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1188 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1189 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1190 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1191
1192 ;**********
1193
1194 ;THIS TEST VERIFIES THAT PUSHJ ADDS 1,,1 TO THE AC
1195 ;THE AC IS PRELOADED WITH 0,,1 AND PUSHJ IS EXECUTED
1196 ;AC IS CHECKED FOR 1,,2 IF C(AC)=1,,2, THIS TEST PASSES
1197
1198 031104 201 01 0 00 000001 C31400: MOVEI 1,1 ;PRELOAD AC WITH 0,,1
1199 031105 260 01 0 00 031107 PUSHJ 1,.+2 ;*PUSHJ SHOULD PLACE 1,,2 INTO THE AC
1200 031106 254 04 0 00 000000 HALT ;PUSHJ SHOULD JUMP OVER THIS INSTRUCTION
1201 031107 312 01 0 00 032231 CAME 1,[XWD 1,2] ;PASS IF AC WAS INCREMENTED CORRECTLY
1202 STOP^
1203 031110 254 04 0 00 031111 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1204 031111 324 00 0 00 031112 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1205 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1206 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1207 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1208
1209 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 11
DAKAGM MAC 19-JAN-77 17:37 TEST OF PUSHJ INSTRUCTION SEQ 0038
1210 ;THIS TEST VERIFIES THAT PUSHJ STORES THE PC IN RIGHT HALF OF C(AC-RIGHT)
1211 ;THIS TEST PASSES IF THE PC WAS STORED CORRECTLY.
1212
1213 031112 201 01 0 00 000001 C31500: MOVEI 1,1 ;PLACE 0,,1 INTO AC
1214 031113 260 01 0 00 031115 PUSHJ 1,.+2 ;*PUSHJ SHOULD STORE .+1 INTO RIGHT HALF OF C(AC-RIGHT)
1215 031114 254 04 0 00 000000 HALT ;PUSHJ SHOULD JUMP OVER THIS PC
1216 031115 405 02 0 00 777777 ANDI 2,-1 ;SAVE RIGHT HALF OF C(AC-RIGHT)
1217 031116 302 02 0 00 031114 CAIE 2,.-2 ;PASS IF PC STORED CORRECTLY
1218 STOP^
1219 031117 254 04 0 00 031120 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1220 031120 324 00 0 00 031121 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1221 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1222 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1223 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1224
1225 ;**********
1226
1227 ;THIS TEST VERIFIES THAT PUSHJ ALWAYS RESETS BIS.
1228 ;FIRST BIS IS SET; THEN PUSHJ IS EXECUTED. THE FLAGS ARE
1229 ;THEN SAVED AND CHECKED. IF BIS WAS RESET VIA PUSHJ, THIS TEST PASSES.
1230
1231 031121 C31501: SFLAG BIS ^;SET BIS
1232
1233 031121 205 01 0 00 020000 MOVSI 1,BIS
1234 031122 255 17 0 00 031123 JFCL 17,.+1 ;RESET ALL FLAGS
1235 031123 254 02 0 01 031124 JRST 2,.+1(1) ;SET BIS FLAG
1236 031124 400 00 0 00 000000 SETZ ;CLEAR AC
1237 031125 260 00 0 00 031126 PUSHJ .+1 ;*PUSHJ SHOULD RESET BIS
1238 031126 265 00 0 00 031127 JSP .+1 ;SAVE FLAGS
1239 031127 603 00 0 00 020000 TLNE BIS ;PASS IF BIS FLAG IS RESET
1240 STOP^
1241 031130 254 04 0 00 031131 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1242 031131 324 00 0 00 031132 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1243 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1244 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1245 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1246
1247 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 12
DAKAGM MAC 19-JAN-77 17:37 TEST OF PUSHJ INSTRUCTION SEQ 0039
1248 ;THIS TEST VERIFIES THAT THERE IS A CARRY FROM BIT18 TO BIT17 OF THE AC ON PUSHJ.
1249 ;THE AC IS PRELOADED WITH 0,,-1; THEN PUSHJ IS EXECUTED. PUSHJ SHOULD ADD ONE TO
1250 ;BOTH HALVES OF THE AC, GENERATING A CARRY FROM BIT18 TO BIT17. IF A
1251 ;CARRY WAS GENERATED, THE TEST PASSES.
1252
1253 031132 201 02 0 00 777777 C31502: MOVEI 2,-1 ;PRELOAD AC WITH 0,,-1
1254 031133 260 02 0 00 031134 PUSHJ 2,.+1 ;*PUSHJ SHOULD GENERATE A CARRY FROM BIT18 TO BIT17
1255 031134 312 02 0 00 032230 CAME 2,[2,,0] ;PASS IF C(AC)=2,,0 (CARRY WAS GENERATED)
1256 STOP^
1257 031135 254 04 0 00 031136 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1258 031136 324 00 0 00 031137 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1259 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1260 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1261 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1262
1263 ;****************
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 13
DAKAGM MAC 19-JAN-77 17:37 TEST OF POP INSTRUCTION SEQ 0040
1264 SUBTTL TEST OF POP INSTRUCTION
1265
1266 ;**********
1267
1268 ;THIS TEST VERIFIES THAT POP SUBTRACTS 1,,1 FROM THE AC
1269 ;THE AC IS PRELOADED WITH 1,,1; THEN, POP IS EXECUTED.
1270 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES.
1271
1272 031137 200 00 0 00 032223 C31600: MOVE [XWD 1,1] ;PRELOAD AC WITH 1,,1
1273 031140 262 00 0 00 000001 POP 1 ;*POP SHOULD SUBTRACT 1,,1 FROM THE AC
1274 031141 332 00 0 00 000000 SKIPE ;PASS IF AC WAS DECREMENTED CORRECTLY
1275 STOP^
1276 031142 254 04 0 00 031143 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1277 031143 324 00 0 00 031144 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1278 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1279 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1280 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1281
1282 ;**********
1283
1284 ;THIS TEST VERIFIES THAT POP SUBTRACTS 1,,1 FROM THE AC
1285 ;THE AC IS PRELOADED WITH 2,,2; THEN, POP IS EXECUTED.
1286 ;THE AC IS CHECKED FOR 1,,1. IF C(AC)=1,,1, THIS TEST PASSES.
1287
1288 031144 200 00 0 00 032232 C31700: MOVE [XWD 2,2] ;PRELOAD AC WITH E,,E WHERE E=2
1289 031145 201 02 0 00 000005 MOVEI 2,5 ;PRELOAD 2 WITH 0,,5
1290 031146 262 00 0 00 000002 POP 2 ;*POP SHOULD SUBTRACT 1,,1 FROM THE AC
1291 031147 312 00 0 00 032223 CAME [1,,1] ;PASS IF AC WAS DECREMENTED CORRECTLY
1292 STOP^
1293 031150 254 04 0 00 031151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1294 031151 324 00 0 00 031152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1295 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1296 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1297 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1298
1299 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 14
DAKAGM MAC 19-JAN-77 17:37 TEST OF POP INSTRUCTION SEQ 0041
1300 ;THIS TEST VERIFIES THAT POP STORES C(C(AC-RIGHT)) INTO E
1301 ;IN THIS CASE, AC=0 AND AC IS PRELOADED WITH 2,,2; E=2 AND IS PRELOADED WITH 0.
1302 ;POP IS THEN EXECUTED. POP SHOULD PLACE 0 INTO E. IF C(E)=0, THIS TEST PASSES.
1303
1304 031152 200 00 0 00 032232 C32300: MOVE [XWD 2,2] ;PRELOAD AC WITH 2,,2
1305 031153 402 00 0 00 000002 SETZM 2 ;CLEAR E AND C(AC-RIGHT)
1306 031154 262 00 0 00 000002 POP 2 ;*POP SHOULD PLACE 0 INTO E
1307 031155 332 00 0 00 000002 SKIPE 2 ;PASS IF C(E)=0
1308 STOP^
1309 031156 254 04 0 00 031157 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1310 031157 324 00 0 00 031160 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1311 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1312 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1313 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1314
1315 ;**********
1316
1317 ;THIS TEST VERIFIES THAT POP DOES NOT MODIFY C(C(AC-RIGHT)-1).
1318 ;THIS TEST FAILS IF C(C(AC-RIGHT)-1) IS MODIFIED BY POP.
1319
1320 031160 200 00 0 00 032232 C32400: MOVE [XWD 2,2] ;PRELOAD AC WITH 2,,2
1321 031161 201 02 0 00 000017 MOVEI 2,17 ;PRELOAD 2 WITH 0,,17
1322 031162 402 00 0 00 000001 SETZM 1 ;CLEAR C(C(AC-RIGHT)-1)
1323 031163 262 00 0 00 000002 POP 2 ;*POP SHOULD NOT MODIFY C(C(AC-RIGHT)-1)
1324 031164 332 00 0 00 000001 SKIPE 1 ;PASS IF C(C(AC-RIGHT)-1) WAS UNALTERED
1325 STOP^
1326 031165 254 04 0 00 031166 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1327 031166 324 00 0 00 031167 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1328 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1329 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1330 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1331
1332 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 15
DAKAGM MAC 19-JAN-77 17:37 TEST OF POP INSTRUCTION SEQ 0042
1333 ;THIS TEST VERIFIES THAT POP STORES C(C(AC-RIGHT)) INTO E.
1334 ;IN THIS CASE, AC IS PRELOADED WITH 2,,2 AND AC2 [C(AC-RIGHT)] IS PRELOADED WITH 0,,3.
1335 ;E IS CLEARED AND POP IS EXECUTED. E IS THEN CHECKED FOR 0,,3 [C(C(AC-RIGHT))] .
1336 ;IF C(E)=0,,3, THIS TEST PASSES.
1337
1338 031167 200 00 0 00 032232 C32500: MOVE [XWD 2,2] ;PRELOAD AC WITH 2,,2
1339 031170 201 02 0 00 000003 MOVEI 2,3 ;PRELOAD C(AC-RIGHT) WITH 0,,3
1340 031171 402 00 0 00 000003 SETZM 3 ;CLEAR E
1341 031172 262 00 0 00 000003 POP 3 ;*POP SHOULD PLACE 0,,3 INTO E
1342 031173 302 03 0 00 000003 CAIE 3,3 ;PASS IF C(E)=0,,3
1343 STOP^
1344 031174 254 04 0 00 031175 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1345 031175 324 00 0 00 031176 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1346 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1347 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1348 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1349
1350 ;**********
1351
1352 ;THIS TEST VERIFIES THAT POP STORES C(C(AC-RIGHT)) INTO E. IN THIS CASE,
1353 ;AC IS PRELOADED WITH 2,,2 AND AC2 [C(AC-RIGHT)] IS PRELOADED WITH 0,,17.
1354 ;E IS CLEARED AND POP IS EXECUTED. E IS THEN CHECKED FOR 0,,17 [C(C(AC-RIGHT))] .
1355 ;IF C(E)=0,,17, THIS TEST PASSES.
1356
1357 031176 402 00 0 00 000002 C32600: SETZM 2 ;CLEAR E
1358 031177 200 00 0 00 032232 MOVE [XWD 2,2] ;PRELOAD AC WITH 2,,2
1359 031200 201 02 0 00 000017 MOVEI 2,17 ;PRELOAD C(AC-RIGHT) WITH 0,,17
1360 031201 262 00 0 00 000002 POP 2 ;*POP SHOULD PLACE 0,,17 INTO E
1361 031202 302 02 0 00 000017 CAIE 2,17 ;PASS IF C(E)=0,,17
1362 STOP^
1363 031203 254 04 0 00 031204 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1364 031204 324 00 0 00 031205 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1365 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1366 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1367 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1368
1369 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 16
DAKAGM MAC 19-JAN-77 17:37 TEST OF POP INSTRUCTION SEQ 0043
1370 ;THIS TEST VERIFIES THAT POP STORES C(C(AC-RIGHT)) INTO E. IN THIS CASE,
1371 ;AC IS PRELOADED WITH 2,,2 AND AC2 [C(AC-RIGHT)] IS PRELOADED WITH -1,,-1.
1372 ;E IS CLEARED AND POP IS EXECUTED. E IS THEN CHECKED FOR -1,,-1 [C(C(AC-RIGHT))] .
1373 ;IF C(E)=0,,3, THIS TEST PASSES.
1374
1375 031205 200 00 0 00 032232 C33100: MOVE [XWD 2,2] ;PRELOAD AC WITH 2,,2
1376 031206 476 00 0 00 000002 SETOM 2 ;PRELOAD C(AC-RIGHT) WITH -1,,-1
1377 031207 402 00 0 00 000003 SETZM 3 ;CLEAR E
1378 031210 262 00 0 00 000003 POP 3 ;*POP SHOULD PLACE -1,,-1 INTO E
1379 031211 312 03 0 00 032226 CAME 3,[-1] ;PASS IF C(E)=-1,,-1
1380 STOP^
1381 031212 254 04 0 00 031213 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1382 031213 324 00 0 00 031214 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1383 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1384 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1385 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1386
1387 ;**********
1388
1389 ;THIS TEST VERIFIES THAT POP PLACES C(C(AC-RIGHT)) INTO E AND ADDS 1,,1 TO AC.
1390 ;IN THIS CASE, THE AC IS PRELOADED WITH 1,,17; E=1 AND E IS PRELOADED WITH 0;
1391 ;C(AC-RIGHT) IS PRELOADED WITH -1,,-1; AND POP IS EXECUTED. POP SHOULD PLACE -1,,-1
1392 ;INTO E AND 0,,16 INTO AC. IF AC AND E ARE UPDATED CORRECTLY, THIS TEST PASSES.
1393
1394 031214 200 00 0 00 032233 C33300: MOVE [XWD 1,17] ;PRELOAD AC WITH 1,,17
1395 031215 402 00 0 00 000001 SETZM 1 ;PRELOAD E WITH 0
1396 031216 476 00 0 00 000017 SETOM 17 ;PRELOAD C(AC-RIGHT) WITH 1,,1
1397 031217 262 00 0 00 000001 POP 1 ;*POP SHOULD PLACE -1,,-1 INTO E AND 0,,16 INTO AC
1398 031220 312 01 0 00 032226 CAME 1,[-1] ;PASS IF C(E)=-1,,-1
1399 STOP^
1400 031221 254 04 0 00 031222 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1401 031222 324 00 0 00 031223 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1402 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1403 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1404 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1405 031223 302 00 0 00 000016 C33310: CAIE 16 ;PASS IF C(AC)=0,,16
1406 STOP^
1407 031224 254 04 0 00 031225 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1408 031225 324 00 0 00 031226 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1409 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1410 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1411 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1412
1413 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 17
DAKAGM MAC 19-JAN-77 17:37 TEST OF POP INSTRUCTION SEQ 0044
1414 ;THIS TEST VERIFIES THAT POP PLACES C(C(AC-RIGHT)) INTO E AND ADDS 1,,1 TO AC
1415 ;IN THIS CASE, THE AC IS PRELOADED WITH -1,,0; E=17
1416 ;C(AC-RIGHT) IS PRELOADED WITH 0; AND POP IS EXECUTED. POP SHOULD PLACE 0
1417 ;INTO E. IF AC IS UPDATED CORRECTLY, THIS TEST PASSES.
1418
1419 031226 205 01 0 00 777777 C33400: MOVSI 1,-1 ;PRELOAD AC WITH -1,,0
1420 031227 400 00 0 00 000000 SETZ ;CLEAR C(AC-RIGHT)
1421 031230 262 01 0 00 000017 POP 1,17 ;*POP SHOULD PLACE 0 INTO E
1422 031231 332 00 0 00 000017 SKIPE 17 ;PASS IF C(E)=0
1423 STOP^
1424 031232 254 04 0 00 031233 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1425 031233 324 00 0 00 031234 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1426 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1427 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1428 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1429
1430 ;**********
1431
1432 ;THIS TEST VERIFIES THAT THERE IS A CARRY FROM BIT18 TO BIT17 OF THE AC ON POP.
1433 ;THE AC IS PRELOADED WITH 2,,0; THEN POP IS EXECUTED. POP SHOULD SUBTRACT ONE FROM
1434 ;BOTH HALVES OF THE AC, GENERATING A CARRY FROM BIT18 TO BIT17.
1435 ;IF A CARRY WAS GENERATED, THIS TEST PASSES.
1436
1437 031234 515 02 0 00 000002 C33401: HRLZI 2,2 ;PRELOAD AC WITH 2,,0
1438 031235 262 02 0 00 000000 POP 2,0 ;*POP SHOULD GENERATE A CARRY FROM BIT18 TO BIT17
1439 031236 302 02 0 00 777777 CAIE 2,-1 ;PASS IF C(AC) = 0,,-1 (CARRY WAS GENERATED)
1440 STOP^
1441 031237 254 04 0 00 031240 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1442 031240 324 00 0 00 031241 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1443 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1444 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1445 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1446
1447 ;************
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 18
DAKAGM MAC 19-JAN-77 17:37 TEST OF POPJ INSTRUCTION SEQ 0045
1448 SUBTTL TEST OF POPJ INSTRUCTION
1449
1450 ;**********
1451
1452 ;THIS TEST VERIFIES THAT POPJ JUMPS TO THE LOCATION ADDRESSED BY RIGHT HALF OF
1453 ;C(C(AC-RIGHT)) BEFORE POPJ DECREMENTED THE AC.
1454 ;THIS TEST PASSES IF POPJ JUMPS CORRECTLY.
1455
1456 031241 200 00 0 00 032223 C33500: MOVE [XWD 1,1] ;PRELOAD AC WITH 1,,1
1457 031242 201 01 0 00 031245 MOVEI 1,.+3 ;PRELOAD C(AC-RIGHT) WITH .+3
1458 031243 263 00 0 00 031245 POPJ .+2 ;*POPJ SHOULD JUMP TO LOCATION
1459 ;ADDRESSED BY C(C(AC-RIGHT))
1460 STOP^
1461 031244 254 04 0 00 031245 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1462 031245 324 00 0 00 031246 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1463 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1464 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1465 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1466
1467 ;**********
1468
1469 ;THIS TEST VERIFIES THAT POPJ SUBTRACTS 1,,1 FROM THE AC
1470 ;THIS AC IS PRELOADED WITH 1,,1; THEN,POPJ IS EXECUTED.
1471 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES.
1472
1473 031246 200 00 0 00 032223 C33600: MOVE [XWD 1,1] ;PRELOAD AC WITH 1,,1
1474 031247 201 01 0 00 031251 MOVEI 1,.+2 ;PRELOAD C(AC-NIGHT)WITH .+2
1475 031250 263 00 0 00 031251 POPJ .+1 ;*POPJ SHOULD SUBTRACT 1,,1 FROM AC
1476 031251 312 00 0 00 032227 CAME [0] ;PASS IF C(AC)=0
1477 STOP^
1478 031252 254 04 0 00 031253 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1479 031253 324 00 0 00 031254 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1480 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1481 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1482 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1483
1484 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 19
DAKAGM MAC 19-JAN-77 17:37 TEST OF POPJ INSTRUCTION SEQ 0046
1485 ;THIS TEST VERIFIES THAT POPJ JUMPS TO THE LOCATION ADDRESSED BY RIGHT HALF OF
1486 ;C(C(AC-RIGHT)) BEFORE POPJ DECREMENTED THE AC.
1487 ;THIS TEST PASSES IF POPJ JUMPS CORRECTLY.
1488
1489 031254 200 00 0 00 032223 C33700: MOVE [XWD 1,1] ;PRELOAD AC WITH 1,,1
1490 031255 201 01 0 00 031257 MOVEI 1,.+2 ;PRELOAD C(AC-RIGHT) WITH C33700+3
1491
1492 031256 263 00 0 00 031260 POPJ .+2 ;*POPJ SHOULD JUMP TO C33700+3
1493 031257 334 00 0 00 000000 SKIPA ;PASS IF POPJ JUMPED CORRECTLY
1494 STOP^
1495 031260 254 04 0 00 031261 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1496 031261 324 00 0 00 031262 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1497 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1498 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1499 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1500
1501 ;**********
1502
1503 ;THIS TEST VERIFIES THAT THERE IS A CARRY FROM BIT18 TO BIT17 OF THE AC ON POPJ.
1504 ;THE AC IS PRELOADED WITH 2,,0; THEN POPJ IS EXECUTED POPJ SHOULD SUBTRACT ONE FROM
1505 ;BOTH HALVES OF THE AC, GENERATING A CARRY FROM BIT18 TO BIT17.
1506 ;IF A CARRY WAS GENERATED, THIS TEST PASSES.
1507
1508 031262 515 02 0 00 000002 C33701: HRLZI 2,2 ;PRELOAD AC WITH 2,,0
1509 031263 201 00 0 00 031265 MOVEI 0,.+2 ;PRELOAD RH(AC) WITH C33701: +3
1510 031264 263 02 0 00 000000 POPJ 2,0 ;*POPJ SHOULD GENERATE A CARRY FROM BIT18 TO BIT17
1511 031265 302 02 0 00 777777 CAIE 2,-1 ;PASS IF C(AC)=0,,-1 (CARRY WAS GENERATED)
1512 STOP^
1513 031266 254 04 0 00 031267 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1514 031267 324 00 0 00 031270 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1515 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1516 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1517 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1518
1519 ;*************
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 20
DAKAGM MAC 19-JAN-77 17:37 XCT INSTRUCTION - ADDITIONAL TESTS SEQ 0047
1520 SUBTTL XCT INSTRUCTION - ADDITIONAL TESTS
1521
1522 ;**********
1523
1524 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A SKIP INSTRUCTION, THE SKIP IS RELATIVE
1525 ;TO THE LOCATION OF THE XCT.
1526
1527 031270 477 00 0 00 000001 C34000: SETOB 1
1528 031271 256 00 0 00 032234 XCT [CAME 0,1] ;*CAME SHOULD SKIP TO C34000+3
1529 STOP^
1530 031272 254 04 0 00 031273 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1531 031273 324 00 0 00 031274 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1532 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1533 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1534 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1535
1536 ;**********
1537
1538 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A SKIP INSTRUCTION, THE SKIP IS RELATIVE
1539 ;TO THE LOCATION OF THE XCT.
1540
1541 031274 477 00 0 00 000001 C34100: SETOB 1
1542 031275 256 00 0 00 032236 XCT [XCT[XCT[CAME 0,1]]] ;*CAME SHOULD SKIP TO C34100+3
1543 STOP^
1544 031276 254 04 0 00 031277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1545 031277 324 00 0 00 031300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1546 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1547 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1548 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1549
1550 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 21
DAKAGM MAC 19-JAN-77 17:37 XCT INSTRUCTION - ADDITIONAL TESTS SEQ 0048
1551 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A JUMP, PROGRAM FLOW IS ALTERED AS
1552 ;SPECIFIED BY THE JUMP.
1553
1554 031300 256 00 0 00 032237 C34200: XCT [JRST .+4] ;*JRST SHOULD JUMP TO C34200+4
1555
1556 031301 254 04 0 00 000000 HALT ;JRST SHOULD JUMP OVER THIS LOCATION
1557 031302 254 04 0 00 000000 HALT ;JRST SHOULD JUMP OVER THIS LOCATION
1558 STOP^
1559 031303 254 04 0 00 031304 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1560 031304 324 00 0 00 031305 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1561 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1562 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1563 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1564
1565 ;**********
1566
1567 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A JUMP, PROGRAM FLOW IS ALTERED AS
1568 ;SPECIFIED BY THE JUMP AND THAT WHEN THE PC IS SAVED IT CONTAINS AN
1569 ;ADDRESS ONE GREATER THAN THE LOCATION OF FIRST XCT OF THE CHAIN.
1570
1571 031305 402 00 0 00 000003 C34300: SETZM 3 ;CLEAR AC OF JSP
1572 031306 256 00 0 00 032242 XCT [XCT[XCT[JSP 3,.+3]]] ;*JSP SHOULD JUMP TO C34300+4 AND
1573 031307 254 04 0 00 000000 HALT ;THE SAVED PC SHOULD BE C 34300+2
1574 031310 254 04 0 00 000000 HALT ;PASS IF JSP JUMPED CORRECTLY
1575 031311 620 03 0 00 031307 TRZ 3,.-2 ;AND SAVED PC=C34300+2
1576 031312 602 03 0 00 777777 TRNE 3,-1
1577 STOP^
1578 031313 254 04 0 00 031314 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1579 031314 324 00 0 00 031315 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1580 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1581 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1582 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1583
1584 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 22
DAKAGM MAC 19-JAN-77 17:37 XCT INSTRUCTION - ADDITIONAL TESTS SEQ 0049
1585 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A SKIP INSTRUCTION, THE SKIP IS RELATIVE
1586 ;TO THE LOCATION OF THE XCT.
1587 ;IN THIS CASE, NO SKIP SHOULD OCCUR ;HENCE, THE INSTRUCTION
1588 ;FOLLOWING XCT SHOULD BE EXECUTED AFTER 'CAME' IS EXECUTED.
1589
1590 031315 403 00 0 00 000000 C34400: SETZB 0 ;SET-UP AC,E SO THAT
1591 031316 476 00 0 00 000001 SETOM 1 ;CAME WILL NOT SKIP
1592 031317 256 00 0 00 032234 XCT [CAME 0,1] ;*CAME SHOULD CAUSE EXECUTION
1593 ;OF INSTRUCTION FOLLOWING XCT
1594 031320 254 00 0 00 031322 JRST .+2 ;PASS IF THIS INSTRUCTION IS EXECUTED
1595 STOP^
1596 031321 254 04 0 00 031322 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1597 031322 324 00 0 00 031323 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1598 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1599 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1600 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1601
1602 ;**********
1603
1604 ;THIS TEST VERIFIES INDEXING FOR XCT OF AN ADD INSTRUCTION
1605 ;C(4)=10, AND C(6)=3, SO THE RESULT IN 6 (THE AC) SHOULD BE 16
1606 ;C(11)=13
1607
1608 031323 201 04 0 00 000010 C34500: MOVEI 4,10 ;PRELOAD INDEX REG WITH 10
1609 031324 201 11 0 00 000013 MOVEI 11,13 ;PRELOAD EFFECTIVE ADDRESS WITH 13
1610 031325 201 06 0 00 000003 MOVEI 6,3 ;PRELOAD AC WITH 3
1611 031326 256 00 0 00 032243 XCT [ADD 6,1(4)] ;*ADD SHOULD PLACE 16 IN AC
1612 031327 302 06 0 00 000016 CAIE 6,16 ;PASS IF C(AC)=16
1613 STOP^
1614 031330 254 04 0 00 031331 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1615 031331 324 00 0 00 031332 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1616 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1617 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1618 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1619
1620 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 23
DAKAGM MAC 19-JAN-77 17:37 XCT INSTRUCTION - ADDITIONAL TESTS SEQ 0050
1621 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A SKIP INSTRUCTION, THE SKIP IS RELATIVE
1622 ;TO THE LOCATION OF THE XCT
1623 ;IN THIS CASE, NO SKIP SHOULD OCCUR ;HENCE, THE INSTRUCTION
1624 ;FOLLOWING XCT SHOULD BE EXECUTED AFTER CAME IS EXECUTED.
1625
1626 031332 402 00 0 00 000002 C34600: SETZM 2 ;SETUP E SO THAT SKIPL WILL NOT SKIP
1627 031333 256 00 0 00 032244 XCT [SKIPL 1,2] ;*SKIPL SHOULD CAUSE INSTRUCTION
1628 ;OF FOLLOWING INSTRUCTION
1629 031334 254 00 0 00 031336 JRST .+2 ;PASS IF THIS INSTRUCTION IS EXECUTED.
1630 STOP^
1631 031335 254 04 0 00 031336 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1632 031336 324 00 0 00 031337 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1633 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1634 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1635 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1636 031337 332 00 0 00 000001 C34610: SKIPE 1 ;*SKIPE SHOULD SKIP BECAUSE XCT OF SKIPL
1637 ;PLACED 0 INTO AC1
1638 STOP^
1639 031340 254 04 0 00 031341 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1640 031341 324 00 0 00 031342 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1641 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1642 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1643 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1644
1645 ;**********
1646
1647 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A SKIP INSTRUCTION, THE SKIP IS RELATIVE
1648 ;TO THE LOCATION OF THE XCT.
1649
1650 031342 476 00 0 00 000006 C34700: SETOM 6 ;SETUP E SO THAT SKIPL WILL SKIP
1651 031343 256 00 0 00 032245 XCT [SKIPL 3,6] ;*SKIPL SHOULD SKIP TO C34700+3
1652 STOP^
1653 031344 254 04 0 00 031345 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1654 031345 324 00 0 00 031346 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1655 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1656 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1657 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1658 031346 331 00 0 00 000003 C34710: SKIPL 3 ;*SKIPE SHOULD SKIP BECAUSE XCT OF SKIPL
1659 ;PLACED 0 INTO AC1
1660 STOP^
1661 031347 254 04 0 00 031350 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1662 031350 324 00 0 00 031351 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1663 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1664 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1665 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1666
1667 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 24
DAKAGM MAC 19-JAN-77 17:37 XCT INSTRUCTION - ADDITIONAL TESTS SEQ 0051
1668 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A JUMP, PROGRAM FLOW IS ALTERED AS
1669 ;SPECIFIED BY THE JUMP.
1670 ;THIS TEST ALSO VERIFIES CORRECT UPDATING OF THE AC FOR AOBJN
1671
1672 031351 200 03 0 00 032246 C35000: MOVE 3,[-2,,5] ;SETUP AC SO THAT AOBJN WILL JUMP
1673 031352 256 00 0 00 032247 XCT [AOBJN 3,.+3] ;*JUMP SHOULD BE TO C35000+4
1674 031353 254 04 0 00 000000 HALT ;JUMP OVER THIS INSTRUCTION
1675 031354 254 04 0 00 000000 HALT ;JUMP OVER THIS INSTRUCTION
1676 031355 312 03 0 00 032250 CAME 3,[-1,,6] ;PASS IF C(AC)=-1,,6 AND AOBJN JUMPED
1677 STOP^
1678 031356 254 04 0 00 031357 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1679 031357 324 00 0 00 031360 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1680 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1681 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1682 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1683
1684 ;**********
1685
1686 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A JUMP, PROGRAM FLOW IS ALTERED AS
1687 ;SPECIFIED BY THE JUMP.
1688 ;THIS TEST ALSO VERIFIES CORRECT UPDATING OF THE AC FOR AOBJN
1689
1690 031360 200 03 0 00 032250 C35100: MOVE 3,[-1,,6] ;SETUP AC SO THAT AOBJN WILL NOT JUMP
1691 031361 256 00 0 00 032251 XCT [AOBJN 3,.+2] ;*AOBJN SHOULD NOT JUMP
1692 031362 312 03 0 00 032252 CAME 3,[0,,7] ;PASS IF AOBJN DID NOT JUMP AND C(AC)=0,,7
1693 STOP^
1694 031363 254 04 0 00 031364 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1695 031364 324 00 0 00 031365 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1696 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1697 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1698 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1699
1700 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 25
DAKAGM MAC 19-JAN-77 17:37 TEST XCT INSTRUCTION WITH INDIRECT ADDRESSING AND INDEXING SEQ 0052
1701 SUBTTL TEST XCT INSTRUCTION WITH INDIRECT ADDRESSING AND INDEXING
1702
1703 ;**********
1704
1705 ;THIS TEST VERIFIES THAT XCT WILL EXECUTE AN INSTRUCTION
1706 ;FROM AN INDIRECTLY ADDRESSED LOCATION
1707
1708 031365 403 00 0 00 000002 C35200: SETZB 2
1709 031366 254 00 0 00 031371 JRST .+3
1710 031367 000000 031370 .+1
1711 031370 476 00 0 00 000002 SETOM 2 ;THIS INSTRUCTION SHOULD BE EXECUTED
1712 031371 256 00 1 00 031367 XCT @.-2
1713 031372 312 02 0 00 032226 CAME 2,[-1,,-1] ;PASS IF 'SETOM 2' WAS EXECUTED
1714 STOP^
1715 031373 254 04 0 00 031374 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1716 031374 324 00 0 00 031375 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1717 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1718 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1719 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1720
1721 ;**********
1722
1723 ;THIS TEST VERIFIES THAT XCT WILL EXECUTE AN INSTRUCTION
1724 ;FROM AN INDEXED LOCATION
1725
1726 031375 201 04 0 00 031376 C35300: MOVEI 4,.+1
1727 031376 254 00 0 00 031400 JRST .+2
1728 031377 302 04 0 00 031376 CAIE 4,.-1 ;THIS INSTRUCTION SHOULD BE EXECUTED
1729 031400 256 00 0 04 000001 XCT 1(4)
1730 STOP ^;PASS IF 'CAIE 4,,-1' WAS EXECUTED
1731
1732 031401 254 04 0 00 031402 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1733 031402 324 00 0 00 031403 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1734 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1735 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1736 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1
1737
1738 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 26
DAKAGM MAC 19-JAN-77 17:37 TEST XCT INSTRUCTION WITH INDIRECT ADDRESSING AND INDEXING SEQ 0053
1739 ;THIS TEST VERIFIES THAT XCT WILL EXECUTE AN INSTRUCTION
1740 ;FROM AN INDIRECTLY ADDRESSED AND INDEXED LOCATION
1741
1742 031403 402 00 0 00 000005 C35400: SETZM 5
1743 031404 201 03 0 00 031407 MOVEI 3,.+3
1744 031405 254 00 0 00 031407 JRST .+2
1745 031406 201 05 0 00 031411 MOVEI 5,.+3
1746 031407 256 00 1 03 777777 XCT @-1(3)
1747 031410 254 00 0 00 031412 JRST .+2
1748 031411 476 00 0 00 000005 SETOM 5 ;THIS INSTRUCTION SHOULD BE EXECUTED
1749 031412 312 05 0 00 032226 CAME 5,[-1,,-1] ;PASS IF 'SETOM 5' WAS EXECUTED
1750 STOP^
1751 031413 254 04 0 00 031414 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1752 031414 324 00 0 00 031415 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1753 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1754 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1755 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1756
1757 ;**********
1758
1759 ;THIS TEST VERIFIES THAT XCT WILL EXECUTE AN INDIRECTLY ADDRESSED
1760 ;AND INDEXED INSTRUCTION
1761
1762 031415 402 00 0 00 000003 C35500: SETZM 3
1763 031416 201 10 0 00 000003 MOVEI 10,3
1764 031417 254 00 0 00 031424 JRST .+5
1765 031420 254 04 0 00 000000 HALT
1766 031421 254 04 0 00 000000 HALT
1767 031422 200 03 1 10 031420 MOVE 3,@.-2(10) ;THIS INSTRUCTION SHOULD BE EXECUTED
1768 031423 254 04 0 00 032253 HALT [0,,707070]
1769 031424 256 00 0 00 031422 XCT .-2
1770 031425 302 03 0 00 707070 CAIE 3,707070 ;PASS IF 'MOVE 3,@.-2(10)' WAS EXECUTED
1771 STOP^
1772 031426 254 04 0 00 031427 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1773 031427 324 00 0 00 031430 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1774 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1775 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1776 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1777
1778 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 27
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0054
1779 SUBTTL TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER
1780
1781 ;**********
1782
1783 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
1784 ;IN THIS CASE, 0,,0 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS
1785 ;SO THAT FINAL C(AC)=0,,0.
1786 ;C(AC+1) SHOULD NOT BE AFFECTED.
1787
1788 031430 200 00 0 00 032227 C35600: MOVE 0,[0,,0] ;PRELOAD AC WITH 0,,0
1789 031431 200 01 0 00 032254 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
1790 031432 241 00 0 00 777775 ROT 0,-3 ;*ROT SHOULD ROTATE 0,,0 RIGHT 3 BIT POSITIONS
1791 031433 312 00 0 00 032227 CAME 0,[0,,0] ;PASS IF C(AC)=0,,0
1792 STOP^
1793 031434 254 04 0 00 031435 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1794 031435 324 00 0 00 031436 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1795 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1796 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1797 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1798 031436 312 01 0 00 032254 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
1799 STOP^
1800 031437 254 04 0 00 031440 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1801 031440 324 00 0 00 031441 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1802 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1803 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1804 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1805
1806 ;**********
1807
1808 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
1809 ;IN THIS CASE, -1,,-1 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS
1810 ;SO THAT FINAL C(AC)=-1,,-1.
1811 ;C(AC+1) SHOULD NOT BE AFFECTED.
1812
1813 031441 200 00 0 00 032226 C35700: MOVE 0,[-1,,-1] ;PRELOAD AC WITH 0,,0
1814 031442 200 01 0 00 032254 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
1815 031443 241 00 0 00 777775 ROT 0,-3 ;*ROT SHOULD ROTATE -1,,-1 RIGHT 3 BIT POSITIONS
1816 031444 312 00 0 00 032226 CAME 0,[-1,,-1] ;PASS IF C(AC)=-1,,-1
1817 STOP^
1818 031445 254 04 0 00 031446 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1819 031446 324 00 0 00 031447 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1820 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1821 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1822 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1823 031447 312 01 0 00 032254 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
1824 STOP^
1825 031450 254 04 0 00 031451 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1826 031451 324 00 0 00 031452 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1827 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1828 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1829 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1830
1831 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 28
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0055
1832 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
1833 ;IN THIS CASE, 252525,,252525 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS
1834 ;SO THAT FINAL C(AC)=525252,,525252.
1835 ;C(AC+1) SHOULD NOT BE AFFECTED.
1836
1837 031452 200 00 0 00 032255 C36000: MOVE 0,[252525,,252525] ;PRELOAD AC WITH 252525,,252525
1838 031453 200 01 0 00 032254 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
1839 031454 241 00 0 00 777775 ROT 0,-3 ;*ROT SHOULD ROTATE 252525,,252525
1840 ;RIGHT 3 BIT POSITIONS
1841 031455 312 00 0 00 032256 CAME 0,[525252,,525252] ;PASS IF C(AC)=525252,,525252
1842 STOP^
1843 031456 254 04 0 00 031457 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1844 031457 324 00 0 00 031460 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1845 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1846 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1847 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1848 031460 312 01 0 00 032254 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
1849 STOP^
1850 031461 254 04 0 00 031462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1851 031462 324 00 0 00 031463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1852 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1853 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1854 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1855
1856 ;**********
1857
1858 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
1859 ;IN THIS CASE, 525252,,525252 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS
1860 ;SO THAT FINAL C(AC)=252525,,252525.
1861 ;C(AC+1) SHOULD NOT BE AFFECTED.
1862
1863 031463 200 00 0 00 032256 C36100: MOVE 0,[525252,,525252] ;PRELOAD AC WITH 525252,,525252
1864 031464 200 01 0 00 032254 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
1865 031465 241 00 0 00 777775 ROT 0,-3 ;*ROT SHOULD ROTATE 525252,,525252
1866 ;RIGHT 3 BIT POSITIONS
1867 031466 312 00 0 00 032255 CAME 0,[252525,,252525] ;PASS IF C(AC)=252525,,252525
1868 STOP^
1869 031467 254 04 0 00 031470 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1870 031470 324 00 0 00 031471 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1871 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1872 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1873 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1874 031471 312 01 0 00 032254 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
1875 STOP^
1876 031472 254 04 0 00 031473 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1877 031473 324 00 0 00 031474 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1878 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1879 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1880 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1881
1882 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 29
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0056
1883 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
1884 ;IN THIS CASE, 230703,,603700 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS
1885 ;SO THAT FINAL C(AC)=023070,,360370.
1886 ;C(AC+1) SHOULD NOT BE AFFECTED.
1887
1888 031474 200 00 0 00 032257 C36200: MOVE 0,[230703,,603700] ;PRELOAD AC WITH 230703,,603700
1889 031475 200 01 0 00 032254 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
1890 031476 241 00 0 00 777775 ROT 0,-3 ;*ROT SHOULD ROTATE 230703,,603700
1891 ;RIGHT 3 BIT POSITIONS
1892 031477 312 00 0 00 032260 CAME 0,[023070,,360370] ;PASS IF C(AC)=023070,,360370
1893 STOP^
1894 031500 254 04 0 00 031501 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1895 031501 324 00 0 00 031502 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1896 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1897 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1898 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1899 031502 312 01 0 00 032254 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
1900 STOP^
1901 031503 254 04 0 00 031504 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1902 031504 324 00 0 00 031505 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1903 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1904 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1905 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1906
1907 ;**********
1908
1909 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
1910 ;IN THIS CASE, 007603,,607062 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS
1911 ;SO THAT FINAL C(AC)=200760,,360706.
1912 ;C(AC+1) SHOULD NOT BE AFFECTED.
1913
1914 031505 200 00 0 00 032261 C36300: MOVE 0,[007603,,607062] ;PRELOAD AC WITH 007603,,607062
1915 031506 200 01 0 00 032254 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
1916 031507 241 00 0 00 777775 ROT 0,-3 ;*ROT SHOULD ROTATE 007603,,607062
1917 ;RIGHT 3 BIT POSITIONS
1918 031510 312 00 0 00 032262 CAME 0,[200760,,360706] ;PASS IF C(AC)=200760,,360706
1919 STOP^
1920 031511 254 04 0 00 031512 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1921 031512 324 00 0 00 031513 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1922 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1923 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1924 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1925 031513 312 01 0 00 032254 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
1926 STOP^
1927 031514 254 04 0 00 031515 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1928 031515 324 00 0 00 031516 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1929 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1930 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1931 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1932
1933 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 30
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0057
1934 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
1935 ;IN THIS CASE, 0,,0 SHOULD BE ROTATED LEFT 15 BIT POSITIONS
1936 ;SO THAT FINAL C(AC)=0,,0.
1937 ;C(AC+1) SHOULD NOT BE AFFECTED.
1938
1939 031516 200 02 0 00 032227 C36400: MOVE 2,[0,,0] ;PRELOAD AC WITH 0,,0
1940 031517 200 03 0 00 032254 MOVE 3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
1941 031520 241 02 0 00 000015 ROT 2,15 ;*ROT SHOULD ROTATE 0,,0 LEFT 15 BIT POSITIONS
1942 031521 312 02 0 00 032227 CAME 2,[0,,0] ;PASS IF C(AC)=0,,0
1943 STOP^
1944 031522 254 04 0 00 031523 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1945 031523 324 00 0 00 031524 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1946 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1947 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1948 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1949 031524 312 03 0 00 032254 CAME 3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
1950 STOP^
1951 031525 254 04 0 00 031526 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1952 031526 324 00 0 00 031527 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1953 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1954 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1955 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1956
1957 ;**********
1958
1959 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
1960 ;IN THIS CASE, -1,,-1 SHOULD BE ROTATED LEFT 15 BIT POSITIONS
1961 ;SO THAT FINAL C(AC)=-1,,-1.
1962 ;C(AC+1) SHOULD NOT BE AFFECTED.
1963
1964 031527 200 02 0 00 032226 C36500: MOVE 2,[-1,,-1] ;PRELOAD AC WITH -1,,-1
1965 031530 200 03 0 00 032254 MOVE 3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
1966 031531 241 02 0 00 000015 ROT 2,15 ;*ROT SHOULD ROTATE -1,,-1 LEFT 15 BIT POSITIONS
1967 031532 312 02 0 00 032226 CAME 2,[-1,,-1] ;PASS IF C(AC)=-1,,-1
1968 STOP^
1969 031533 254 04 0 00 031534 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1970 031534 324 00 0 00 031535 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1971 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1972 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1973 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1974 031535 312 03 0 00 032254 CAME 3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
1975 STOP^
1976 031536 254 04 0 00 031537 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1977 031537 324 00 0 00 031540 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1978 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1979 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1980 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1981
1982 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 31
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0058
1983 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
1984 ;IN THIS CASE, 252525,,252525 SHOULD BE ROTATED LEFT 15 BIT POSITIONS
1985 ;SO THAT FINAL C(AC)=525252,,525252.
1986 ;C(AC+1) SHOULD NOT BE AFFECTED.
1987
1988 031540 200 02 0 00 032255 C36600: MOVE 2,[252525,,252525] ;PRELOAD AC WITH 252525,,252525
1989 031541 200 03 0 00 032254 MOVE 3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
1990 031542 241 02 0 00 000015 ROT 2,15 ;*ROT SHOULD ROTATE 252525,,252525
1991 ;LEFT 15 BIT POSITIONS
1992 031543 312 02 0 00 032256 CAME 2,[525252,,525252] ;PASS IF C(AC)=525252,,525252
1993 STOP^
1994 031544 254 04 0 00 031545 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
1995 031545 324 00 0 00 031546 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
1996 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
1997 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
1998 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
1999 031546 312 03 0 00 032254 CAME 3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2000 STOP^
2001 031547 254 04 0 00 031550 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2002 031550 324 00 0 00 031551 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2003 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2004 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2005 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2006
2007 ;**********
2008
2009 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
2010 ;IN THIS CASE, 525252,,525252 SHOULD BE ROTATED LEFT 15 BIT POSITIONS
2011 ;SO THAT FINAL C(AC)=252525,,252525.
2012 ;C(AC+1) SHOULD NOT BE AFFECTED.
2013
2014 031551 200 02 0 00 032256 C36700: MOVE 2,[525252,,525252] ;PRELOAD AC WITH 525252,,525252
2015 031552 200 03 0 00 032254 MOVE 3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
2016 031553 241 02 0 00 000015 ROT 2,15 ;*ROT SHOULD ROTATE 525252,,525252
2017 ;LEFT 15 BIT POSITIONS
2018 031554 312 02 0 00 032255 CAME 2,[252525,,252525] ;PASS IF C(AC)=252525,,252525
2019 STOP^
2020 031555 254 04 0 00 031556 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2021 031556 324 00 0 00 031557 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2022 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2023 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2024 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2025 031557 312 03 0 00 032254 CAME 3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2026 STOP^
2027 031560 254 04 0 00 031561 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2028 031561 324 00 0 00 031562 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2029 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2030 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2031 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2032
2033 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 32
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0059
2034 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
2035 ;IN THIS CASE, 230703,,603700 SHOULD BE ROTATED LEFT 15 BIT POSITIONS
2036 ;SO THAT FINAL C(AC)074076,,004616.
2037 ;C(AC+1) SHOULD NOT BE AFFECTED.
2038
2039 031562 200 02 0 00 032257 C37000: MOVE 2,[230703,,603700] ;PRELOAD AC WITH 230703,,603700
2040 031563 200 03 0 00 032254 MOVE 3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
2041 031564 241 02 0 00 000015 ROT 2,15 ;*ROT SHOULD ROTATE 230703,,603700
2042 ;LEFT 15 BIT POSITIONS
2043 031565 312 02 0 00 032263 CAME 2,[074076,,004616] ;PASS IF C(AC)074076,,004616
2044 STOP^
2045 031566 254 04 0 00 031567 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2046 031567 324 00 0 00 031570 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2047 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2048 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2049 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2050 031570 312 03 0 00 032254 CAME 3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2051 STOP^
2052 031571 254 04 0 00 031572 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2053 031572 324 00 0 00 031573 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2054 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2055 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2056 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2057
2058 ;**********
2059
2060 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY.
2061 ;IN THIS CASE, 007603,,607062 SHOULD BE ROTATED LEFT 15 BIT POSITIONS
2062 ;SO THAT FINAL C(AC)074161,,440174.
2063 ;C(AC+1) SHOULD NOT BE AFFECTED.
2064
2065 031573 200 02 0 00 032261 C37100: MOVE 2,[007603,,607062] ;PRELOAD AC WITH 007603,,607062
2066 031574 200 03 0 00 032254 MOVE 3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
2067 031575 241 02 0 00 000015 ROT 2,15 ;*ROT SHOULD ROTATE 007603,,607062
2068 ;LEFT 15 BIT POSITIONS
2069 031576 312 02 0 00 032264 CAME 2,[074161,,440174] ;PASS IF C(AC)074161,,440174
2070 STOP^
2071 031577 254 04 0 00 031600 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2072 031600 324 00 0 00 031601 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2073 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2074 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2075 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2076 031601 312 03 0 00 032254 CAME 3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2077 STOP^
2078 031602 254 04 0 00 031603 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2079 031603 324 00 0 00 031604 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2080 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2081 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2082 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2083
2084 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 33
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0060
2085 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
2086 ;IN THIS CASE, 0,,0 0,,0 SHOULD BE ROTATED LEFT 3 BIT POSITIONS
2087 ;SO THAT FINAL C(AC)=0,,0 AND FINAL C(AC+1)=0,,0
2088
2089 031604 200 00 0 00 032227 C37200: MOVE 0,[0,,0] ;PRELOAD AC WITH 0,,0
2090 031605 200 01 0 00 032227 MOVE 1,[0,,0] ;PRELOAD AC+1 WITH 0,,0
2091 031606 245 00 0 00 000003 ROTC 0,3 ;*ROTC SHOULD ROTATE 0,,0 0,,0 LEFT 3 BIT POSITIONS
2092 031607 312 00 0 00 032227 CAME 0,[0,,0] ;PASS IF C(AC)=0,,0
2093 STOP^
2094 031610 254 04 0 00 031611 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2095 031611 324 00 0 00 031612 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2096 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2097 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2098 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2099 031612 312 01 0 00 032227 CAME 1,[0,,0] ;PASS IF C(AC+1)=0,,0
2100 STOP^
2101 031613 254 04 0 00 031614 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2102 031614 324 00 0 00 031615 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2103 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2104 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2105 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2106
2107 ;**********
2108
2109 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
2110 ;IN THIS CASE, -1,,-1 -1,,-1 SHOULD BE ROTATED LEFT 3 BIT POSITIONS
2111 ;SO THAT FINAL C(AC)=-1,,-1 AND FINAL C(AC+1)=-1,,-1
2112
2113 031615 200 00 0 00 032226 C37300: MOVE 0,[-1,,-1] ;PRELOAD AC WITH -1,,-1
2114 031616 200 01 0 00 032226 MOVE 1,[-1,,-1] ;PRELOAD AC+1 WITH -1,,-1
2115 031617 245 00 0 00 000003 ROTC 0,3 ;*ROTC SHOULD ROTATE -1,,-1
2116 ;-1,,-1 LEFT 3 BIT POSITIONS
2117 031620 312 00 0 00 032226 CAME 0,[-1,,-1] ;PASS IF C(AC)=-1,,-1
2118 STOP^
2119 031621 254 04 0 00 031622 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2120 031622 324 00 0 00 031623 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2121 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2122 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2123 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2124 031623 312 00 0 00 032226 CAME 0,[-1,,-1] ;PASS IF C(AC+1)=-1,,-1
2125 STOP^
2126 031624 254 04 0 00 031625 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2127 031625 324 00 0 00 031626 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2128 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2129 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2130 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2131
2132 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 34
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0061
2133 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
2134 ;IN THIS CASE, 252525,,252525 252525,,252525 SHOULD BE ROTATED LEFT 3 BIT POSITIONS
2135 ;SO THAT FINAL C(AC)=525252,,525252 AND FINAL C(AC+1)=525252,,525252
2136
2137 031626 200 00 0 00 032255 C37400: MOVE 0,[252525,,252525] ;PRELOAD AC WITH 252525,,252525
2138 031627 200 01 0 00 032255 MOVE 1,[252525,,252525] ;PRELOAD AC+1 WITH 252525,,252525
2139 031630 245 00 0 00 000003 ROTC 0,3 ;*ROTC SHOULD ROTATE 252525,,252525
2140 ;252525,,252525 LEFT 3 BIT POSITIONS
2141 031631 312 00 0 00 032256 CAME 0,[525252,,525252] ;PASS IF C(AC)=525252,,525252
2142 STOP^
2143 031632 254 04 0 00 031633 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2144 031633 324 00 0 00 031634 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2145 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2146 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2147 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2148 031634 312 01 0 00 032256 CAME 1,[525252,,525252] ;PASS IF C(AC+1)=525252,,525252
2149 STOP^
2150 031635 254 04 0 00 031636 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2151 031636 324 00 0 00 031637 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2152 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2153 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2154 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2155
2156 ;**********
2157
2158 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
2159 ;IN THIS CASE, 525252,,525252 525252,,525252 SHOULD BE ROTATED LEFT 3 BIT POSITIONS
2160 ;SO THAT FINAL C(AC)=252525,,252525 AND FINAL C(AC+1)=252525,,252525
2161
2162 031637 200 00 0 00 032256 C37500: MOVE 0,[525252,,525252] ;PRELOAD AC WITH 525252,,525252
2163 031640 200 01 0 00 032256 MOVE 1,[525252,,525252] ;PRELOAD AC+1 WITH 525252,,525252
2164 031641 245 00 0 00 000003 ROTC 0,3 ;*ROTC SHOULD ROTATE 525252,,525252
2165 ;525252,,525252 LEFT 3 BIT POSITIONS
2166 031642 312 00 0 00 032255 CAME 0,[252525,,252525] ;PASS IF C(AC)=252525,,252525
2167 STOP^
2168 031643 254 04 0 00 031644 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2169 031644 324 00 0 00 031645 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2170 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2171 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2172 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2173 031645 312 01 0 00 032255 CAME 1,[252525,,252525] ;PASS IF C(AC+1)=252525,,252525
2174 STOP^
2175 031646 254 04 0 00 031647 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2176 031647 324 00 0 00 031650 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2177 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2178 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2179 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2180
2181 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 35
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0062
2182 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
2183 ;IN THIS CASE, 230703,,603700 770037,,600377 SHOULD BE ROTATED LEFT 3 BIT POSITIONS
2184 ;SO THAT FINAL C(AC)=307036,,37007 AND FINAL C(AC+1)=700376,,003772
2185
2186 031650 200 00 0 00 032257 C37600: MOVE 0,[230703,,603700] ;PRELOAD AC WITH 230703,,603700
2187 031651 200 01 0 00 032265 MOVE 1,[770037,,600377] ;PRELOAD AC+1 WITH 770037,,600377
2188 031652 245 00 0 00 000003 ROTC 0,3 ;*ROTC SHOULD ROTATE 230703,,603700
2189 ;770037,,600377 LEFT 3 BIT POSITIONS
2190 031653 312 00 0 00 032266 CAME 0,[307036,,037007] ;PASS IF C(AC)=307036,,37007
2191 STOP^
2192 031654 254 04 0 00 031655 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2193 031655 324 00 0 00 031656 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2194 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2195 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2196 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2197 031656 312 01 0 00 032267 CAME 1,[700376,,003772] ;PASS IF C(AC+1)=700376,,003772
2198 STOP^
2199 031657 254 04 0 00 031660 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2200 031660 324 00 0 00 031661 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2201 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2202 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2203 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2204
2205 ;**********
2206
2207 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
2208 ;IN THIS CASE, 776003,,760077 007603,,607062 SHOULD BE ROTATED LEFT 3 BIT POSITIONS
2209 ;SO THAT FINAL C(AC)=760037,,600770 AND FINAL C(AC+1)=076036,,070627
2210
2211 031661 200 00 0 00 032270 C37700: MOVE 0,[776003,,760077] ;PRELOAD AC WITH 776003,,760077
2212 031662 200 01 0 00 032261 MOVE 1,[007603,,607062] ;PRELOAD AC+1 WITH 007603,,607062
2213 031663 245 00 0 00 000003 ROTC 0,3 ;*ROTC SHOULD ROTATE 776003,,760077
2214 ;007603,,607062 LEFT 3 BIT POSITIONS
2215 031664 312 00 0 00 032271 CAME 0,[760037,,600770] ;PASS IF C(AC)=076036,,070627
2216 STOP^
2217 031665 254 04 0 00 031666 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2218 031666 324 00 0 00 031667 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2219 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2220 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2221 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2222 031667 312 01 0 00 032272 CAME 1,[076036,,070627] ;PASS IF C(AC+1)=760037,,600770
2223 STOP^
2224 031670 254 04 0 00 031671 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2225 031671 324 00 0 00 031672 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2226 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2227 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2228 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2229
2230 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 36
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0063
2231 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
2232 ;IN THIS CASE, 0,,0 0,,0 SHOULD BE ROTATED LEFT 7 BIT POSITIONS
2233 ;SO THAT FINAL C(AC)=0,,0 AND FINAL C(AC+1)=0,,0
2234
2235 031672 200 00 0 00 032227 C40000: MOVE 0,[0,,0] ;PRELOAD AC WITH 0,,0
2236 031673 200 01 0 00 032227 MOVE 1,[0,,0] ;PRELOAD AC+1 WITH 0,,0
2237 031674 245 00 0 00 000007 ROTC 0,7 ;*ROTC SHOULD ROTATE 0,,0 0,,0 LEFT 7 BIT POSITIONS
2238 031675 312 00 0 00 032227 CAME 0,[0,,0] ;PASS IF C(AC)=0,,0
2239 STOP^
2240 031676 254 04 0 00 031677 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2241 031677 324 00 0 00 031700 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2242 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2243 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2244 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2245 031700 312 01 0 00 032227 CAME 1,[0,,0] ;PASS IF C(AC+1)=0,,0
2246 STOP^
2247 031701 254 04 0 00 031702 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2248 031702 324 00 0 00 031703 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2249 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2250 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2251 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2252
2253 ;**********
2254
2255 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
2256 ;IN THIS CASE, -1,,-1 -1,,-1 SHOULD BE ROTATED LEFT 7 BIT POSITIONS
2257 ;SO THAT FINAL C(AC)=-1,,-1 AND FINAL C(AC+1)=-1,,-1
2258
2259 031703 200 00 0 00 032226 C40100: MOVE 0,[-1,,-1] ;PRELOAD AC WITH -1,,-1
2260 031704 200 01 0 00 032226 MOVE 1,[-1,,-1] ;PRELOAD AC+1 WITH -1,,-1
2261 031705 245 00 0 00 000007 ROTC 0,7 ;*ROTC SHOULD ROTATE -1,,-1
2262 ;-1,,-1 LEFT 7 BIT POSITIONS
2263 031706 312 00 0 00 032226 CAME 0,[-1,,-1] ;PASS IF C(AC)=-1,,-1
2264 STOP^
2265 031707 254 04 0 00 031710 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2266 031710 324 00 0 00 031711 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2267 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2268 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2269 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2270 031711 312 01 0 00 032226 CAME 1,[-1,,-1] ;PASS IF C(AC+1)=-1,,-1
2271 STOP^
2272 031712 254 04 0 00 031713 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2273 031713 324 00 0 00 031714 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2274 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2275 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2276 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2277
2278 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 37
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0064
2279 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
2280 ;IN THIS CASE, 252525,,252525 252525,,252525 SHOULD BE ROTATED LEFT 7 BIT POSITIONS
2281 ;SO THAT FINAL C(AC)=525252,,525252 AND FINAL C(AC+1)=525252,,525252
2282
2283 031714 200 00 0 00 032255 C40200: MOVE 0,[252525,,252525] ;PRELOAD AC WITH 252525,,252525
2284 031715 200 01 0 00 032255 MOVE 1,[252525,,252525] ;PRELOAD AC+1 WITH 252525,,252525
2285 031716 245 00 0 00 000007 ROTC 0,7 ;*ROTC SHOULD ROTATE 252525,,252525
2286 ;252525,,252525 LEFT 7 BIT POSITIONS
2287 031717 312 00 0 00 032256 CAME 0,[525252,,525252] ;PASS IF C(AC)=525252,,525252
2288 STOP^
2289 031720 254 04 0 00 031721 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2290 031721 324 00 0 00 031722 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2291 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2292 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2293 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2294 031722 312 01 0 00 032256 CAME 1,[525252,,525252] ;PASS IF C(AC+1)=525252,,525252
2295 STOP^
2296 031723 254 04 0 00 031724 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2297 031724 324 00 0 00 031725 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2298 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2299 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2300 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2301
2302 ;**********
2303
2304 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
2305 ;IN THIS CASE, 525252,,525252 525252,,525252 SHOULD BE ROTATED LEFT 7 BIT POSITIONS
2306 ;SO THAT FINAL C(AC)=252525,,252525 AND FINAL C(AC+1)=252525,,252525
2307
2308 031725 200 00 0 00 032256 C40300: MOVE 0,[525252,,525252] ;PRELOAD AC WITH 525252,,525252
2309 031726 200 01 0 00 032256 MOVE 1,[525252,,525252] ;PRELOAD AC+1 WITH 525252,,525252
2310 031727 245 00 0 00 000007 ROTC 0,7 ;*ROTC SHOULD ROTATE 525252,,525252
2311 ;525252,,525252 LEFT 7 BIT POSITIONS
2312 031730 312 00 0 00 032255 CAME 0,[252525,,252525] ;PASS IF C(AC)=252525,,252525
2313 STOP^
2314 031731 254 04 0 00 031732 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2315 031732 324 00 0 00 031733 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2316 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2317 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2318 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2319 031733 312 01 0 00 032255 CAME 1,[252525,,252525] ;PASS IF C(AC+1)=252525,,252525
2320 STOP^
2321 031734 254 04 0 00 031735 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2322 031735 324 00 0 00 031736 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2323 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2324 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2325 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2326
2327 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 38
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0065
2328 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
2329 ;IN THIS CASE, 230703,,603700 770037,,600377 SHOULD BE ROTATED LEFT 7 BIT POSITIONS
2330 ;SO THAT FINAL C(AC)=160740,,760176 AND FINAL C(AC+1)=007740,,077646
2331
2332 031736 200 00 0 00 032257 C40400: MOVE 0,[230703,,603700] ;PRELOAD AC WITH 230703,,603700
2333 031737 200 01 0 00 032265 MOVE 1,[770037,,600377] ;PRELOAD AC+1 WITH 770037,,600377
2334 031740 245 00 0 00 000007 ROTC 0,7 ;*ROTC SHOULD ROTATE 230703,,603700
2335 ;770037,,600377 LEFT 7 BIT POSITIONS
2336 031741 312 00 0 00 032273 CAME 0,[160740,,760176] ;PASS IF C(AC)=160740,,760176
2337 STOP^
2338 031742 254 04 0 00 031743 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2339 031743 324 00 0 00 031744 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2340 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2341 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2342 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2343 031744 312 01 0 00 032274 CAME 1,[007740,,077646] ;PASS IF C(AC+1)=007740,,077646
2344 STOP^
2345 031745 254 04 0 00 031746 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2346 031746 324 00 0 00 031747 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2347 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2348 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2349 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2350
2351 ;**********
2352
2353 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY.
2354 ;IN THIS CASE, 776003,,760077 007603,,607063 SHOULD BE ROTATED LEFT 7 BIT POSITIONS
2355 ;SO THAT FINAL C(AC)=400774,,017610 AND FINAL C(AC+1)=740741,,614577
2356
2357 031747 200 00 0 00 032270 C40500: MOVE 0,[776003,,760077] ;PRELOAD AC WITH 776003,,760077
2358 031750 200 01 0 00 032261 MOVE 1,[007603,,607062] ;PRELOAD AC+1 WITH 007603,,607062
2359 031751 245 00 0 00 000007 ROTC 0,7 ;*ROTC SHOULD ROTATE 776003,,760077
2360 ;007603,,607062 LEFT 7 BIT POSITIONS
2361 031752 312 00 0 00 032275 CAME 0,[400774,,017601] ;PASS IF C(AC)=400774,,017601
2362 STOP^
2363 031753 254 04 0 00 031754 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2364 031754 324 00 0 00 031755 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2365 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2366 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2367 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2368 031755 312 01 0 00 032276 CAME 1,[740741,,614577] ;PASS IF C(AC+1)=740741,,614577
2369 STOP^
2370 031756 254 04 0 00 031757 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2371 031757 324 00 0 00 031760 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2372 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2373 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2374 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2375
2376 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 39
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0066
2377 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2378 ;IN THIS CASE, 0,,0 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
2379 ;SO THAT FINAL C(AC)=0,,0.
2380 ;C(AC+1) SHOULD NOT BE AFFECTED
2381
2382 031760 200 00 0 00 032227 C40600: MOVE 0,[0,,0] ;PRELOAD AC WITH 0,,0
2383 031761 200 01 0 00 032254 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
2384 031762 242 00 0 00 777745 LSH 0,-33 ;*LSH SHOULD LOGICALLY SHIFT 0,,0
2385 ;RIGHT 33 OCTAL BIT POSITIONS
2386 031763 312 00 0 00 032227 CAME 0,[0,,0] ;PASS IF C(AC)=0,,0
2387 STOP^
2388 031764 254 04 0 00 031765 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2389 031765 324 00 0 00 031766 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2390 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2391 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2392 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2393 031766 312 01 0 00 032254 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2394 STOP^
2395 031767 254 04 0 00 031770 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2396 031770 324 00 0 00 031771 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2397 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2398 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2399 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2400
2401 ;**********
2402
2403 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2404 ;IN -1,,-1 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
2405 ;SO THAT FINAL C(AC)=0,,777.
2406 ;C(AC+1) SHOULD NOT BE AFFECTED
2407
2408 031771 200 00 0 00 032226 C40700: MOVE 0,[-1,,-1] ;PRELOAD AC WITH -1,,-1
2409 031772 200 01 0 00 032254 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
2410 031773 242 00 0 00 777745 LSH 0,-33 ;*LSH SHOULD LOGICALLY SHIFT -1,,-1
2411 ;RIGHT 33 OCTAL BIT POSITIONS
2412 031774 312 00 0 00 032277 CAME 0,[0,777] ;PASS IF C(AC)=0,,777
2413 STOP^
2414 031775 254 04 0 00 031776 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2415 031776 324 00 0 00 031777 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2416 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2417 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2418 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2419 031777 312 01 0 00 032254 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2420 STOP^
2421 032000 254 04 0 00 032001 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2422 032001 324 00 0 00 032002 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2423 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2424 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2425 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2426
2427 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 40
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0067
2428 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2429 ;IN 252525,,252525 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
2430 ;SO THAT FINAL C(AC)=0,,252.
2431 ;C(AC+1) SHOULD NOT BE AFFECTED
2432
2433 032002 200 00 0 00 032255 C41000: MOVE 0,[252525,,252525] ;PRELOAD AC WITH 252525,,252525
2434 032003 200 01 0 00 032254 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
2435 032004 242 00 0 00 777745 LSH 0,-33 ;*LSH SHOULD LOGICALLY SHIFT 252525,,252525
2436 ;RIGHT 33 OCTAL BIT POSITIONS
2437 032005 312 00 0 00 032300 CAME 0,[0,,252] ;PASS IF C(AC)=0,,252
2438 STOP^
2439 032006 254 04 0 00 032007 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2440 032007 324 00 0 00 032010 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2441 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2442 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2443 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2444 032010 312 01 0 00 032254 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2445 STOP^
2446 032011 254 04 0 00 032012 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2447 032012 324 00 0 00 032013 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2448 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2449 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2450 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2451
2452 ;**********
2453
2454 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2455 ;IN THIS CASE, 525252,,525252 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
2456 ;SO THAT FINAL C(AC)=0,,525.
2457 ;C(AC+1) SHOULD NOT BE AFFECTED
2458
2459 032013 200 00 0 00 032256 C41100: MOVE 0,[525252,,525252] ;PRELOAD AC WITH 525252,,525252
2460 032014 200 01 0 00 032254 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
2461 032015 242 00 0 00 777745 LSH 0,-33 ;*LSH SHOULD LOGICALLY SHIFT 525252,,525252
2462 ;RIGHT 33 OCTAL BIT POSITIONS
2463 032016 312 00 0 00 032301 CAME 0,[0,,525] ;PASS IF C(AC)=0,,525
2464 STOP^
2465 032017 254 04 0 00 032020 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2466 032020 324 00 0 00 032021 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2467 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2468 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2469 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2470 032021 312 01 0 00 032254 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2471 STOP^
2472 032022 254 04 0 00 032023 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2473 032023 324 00 0 00 032024 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2474 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2475 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2476 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2477
2478 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 41
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0068
2479 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2480 ;IN THIS CASE, 230703,,603700 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
2481 ;SO THAT FINAL C(AC)=0,,230.
2482 ;C(AC+1) SHOULD NOT BE AFFECTED
2483
2484 032024 200 00 0 00 032257 C41200: MOVE 0,[230703,,603700] ;PRELOAD AC WITH 230703,,603700
2485 032025 200 01 0 00 032254 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
2486 032026 242 00 0 00 777745 LSH 0,-33 ;*LSH SHOULD LOGICALLY SHIFT 230703,,603700
2487 ;RIGHT 33 OCTAL BIT POSITIONS
2488 032027 312 00 0 00 032302 CAME 0,[0,,230] ;PASS IF C(AC)=230703,,603700
2489 STOP^
2490 032030 254 04 0 00 032031 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2491 032031 324 00 0 00 032032 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2492 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2493 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2494 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2495 032032 312 01 0 00 032254 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2496 STOP^
2497 032033 254 04 0 00 032034 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2498 032034 324 00 0 00 032035 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2499 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2500 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2501 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2502
2503 ;**********
2504
2505 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2506 ;IN THIS CASE, 007603,,607062 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
2507 ;SO THAT FINAL C(AC)=0,,7.
2508 ;C(AC+1) SHOULD NOT BE AFFECTED
2509
2510 032035 200 00 0 00 032261 C41300: MOVE 0,[007603,,607062] ;PRELOAD AC WITH 007603,,607062
2511 032036 200 01 0 00 032254 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060
2512 032037 242 00 0 00 777745 LSH 0,-33 ;*LSH SHOULD LOGICALLY SHIFT 007603,,6070062
2513 ;RIGHT 33 OCTAL BIT POSITIONS
2514 032040 312 00 0 00 032252 CAME 0,[0,,7] ;PASS IF C(AC)=0,,7
2515 STOP^
2516 032041 254 04 0 00 032042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2517 032042 324 00 0 00 032043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2518 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2519 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2520 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2521 032043 312 01 0 00 032254 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2522 STOP^
2523 032044 254 04 0 00 032045 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2524 032045 324 00 0 00 032046 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2525 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2526 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2527 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2528
2529 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 42
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0069
2530 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2531 ;IN THIS CASE, 0,,0 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS
2532 ;SO THAT FINAL C(AC)=0,,0.
2533 ;C(AC+1) SHOULD NOT BE AFFECTED
2534
2535 032046 200 01 0 00 032227 C41400: MOVE 1,[0,,0] ;PRELOAD AC WITH 0,,0
2536 032047 200 02 0 00 032254 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060
2537 032050 242 01 0 00 777751 LSH 1,-27 ;*LSH SHOULD LOGICALLY SHIFT 0,,0
2538 ;RIGHT 27 OCTAL BIT POSITIONS
2539 032051 312 01 0 00 032227 CAME 1,[0,,0] ;PASS IF C(AC)=0,,0
2540 STOP^
2541 032052 254 04 0 00 032053 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2542 032053 324 00 0 00 032054 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2543 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2544 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2545 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2546 032054 312 02 0 00 032254 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2547 STOP^
2548 032055 254 04 0 00 032056 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2549 032056 324 00 0 00 032057 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2550 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2551 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2552 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2553
2554 ;**********
2555
2556 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2557 ;IN THIS CASE, -1,,-1 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS
2558 ;SO THAT FINAL C(AC)=0,,17777.
2559 ;C(AC+1) SHOULD NOT BE AFFECTED
2560
2561 032057 200 01 0 00 032226 C41500: MOVE 1,[-1,,-1] ;PRELOAD AC WITH -1,,-1
2562 032060 200 02 0 00 032254 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060
2563 032061 242 01 0 00 777751 LSH 1,-27 ;*LSH SHOULD LOGICALLY SHIFT -1,,-1
2564 ;RIGHT 27 OCTAL BIT POSITIONS
2565 032062 312 01 0 00 032303 CAME 1,[0,,17777] ;PASS IF C(AC)=0,17777
2566 STOP^
2567 032063 254 04 0 00 032064 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2568 032064 324 00 0 00 032065 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2569 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2570 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2571 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2572 032065 312 02 0 00 032254 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2573 STOP^
2574 032066 254 04 0 00 032067 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2575 032067 324 00 0 00 032070 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2576 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2577 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2578 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2579
2580 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 43
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0070
2581 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2582 ;IN THIS CASE, 252525,,252525 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS
2583 ;SO THAT FINAL C(AC)=0,,5252.
2584 ;C(AC+1) SHOULD NOT BE AFFECTED
2585
2586 032070 200 01 0 00 032255 C41600: MOVE 1,[252525,,252525] ;PRELOAD AC WITH 252525,,252525
2587 032071 200 02 0 00 032254 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060
2588 032072 242 01 0 00 777751 LSH 1,-27 ;*LSH SHOULD LOGICALLY SHIFT 252525,,252525
2589 ;RIGHT 27 OCTAL BIT POSITIONS
2590 032073 312 01 0 00 032304 CAME 1,[0,,5252] ;PASS IF C(AC)=0,,5252
2591 STOP^
2592 032074 254 04 0 00 032075 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2593 032075 324 00 0 00 032076 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2594 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2595 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2596 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2597 032076 312 02 0 00 032254 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2598 STOP^
2599 032077 254 04 0 00 032100 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2600 032100 324 00 0 00 032101 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2601 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2602 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2603 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2604
2605 ;**********
2606
2607 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2608 ;IN THIS CASE, 525252,,525252 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS
2609 ;SO THAT FINAL C(AC)=0,,12525.
2610 ;C(AC+1) SHOULD NOT BE AFFECTED
2611
2612 032101 200 01 0 00 032256 C41700: MOVE 1,[525252,,525252] ;PRELOAD AC WITH 525252,,525252
2613 032102 200 02 0 00 032254 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060
2614 032103 242 01 0 00 777751 LSH 1,-27 ;*LSH SHOULD LOGICALLY SHIFT 525252,,525252
2615 ;RIGHT 27 OCTAL BIT POSITIONS
2616 032104 312 01 0 00 032305 CAME 1,[0,,12525] ;PASS IF C(AC)=0,,12525
2617 STOP^
2618 032105 254 04 0 00 032106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2619 032106 324 00 0 00 032107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2620 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2621 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2622 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2623 032107 312 02 0 00 032254 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2624 STOP^
2625 032110 254 04 0 00 032111 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2626 032111 324 00 0 00 032112 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2627 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2628 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2629 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2630
2631 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 44
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0071
2632 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2633 ;IN THIS CASE, 230703,602700 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS
2634 ;SO THAT FINAL C(AC)=0,,4616.
2635 ;C(AC+1) SHOULD NOT BE AFFECTED
2636
2637 032112 200 01 0 00 032257 C42000: MOVE 1,[230703,,603700] ;PRELOAD AC WITH 230703,603700
2638 032113 200 02 0 00 032254 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060
2639 032114 242 01 0 00 777751 LSH 1,-27 ;*LSH SHOULD LOGICALLY SHIFT 230703,,603700
2640 ;RIGHT 27 OCTAL BIT POSITIONS
2641 032115 312 01 0 00 032306 CAME 1,[0,,4616] ;PASS IF C(AC)=0,,4616
2642 STOP^
2643 032116 254 04 0 00 032117 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2644 032117 324 00 0 00 032120 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2645 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2646 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2647 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2648 032120 312 02 0 00 032254 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2649 STOP^
2650 032121 254 04 0 00 032122 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2651 032122 324 00 0 00 032123 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2652 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2653 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2654 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2655
2656 ;**********
2657
2658 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2659 ;IN THIS CASE, 007603,,607062 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS
2660 ;SO THAT FINAL C(AC)=0,,174.
2661 ;C(AC+1) SHOULD NOT BE AFFECTED
2662
2663 032123 200 01 0 00 032261 C42100: MOVE 1,[007603,,607062] ;PRELOAD AC WITH 007603,,607062
2664 032124 200 02 0 00 032254 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060
2665 032125 242 01 0 00 777751 LSH 1,-27 ;*LSH SHOULD LOGICALLY SHIFT 007603,,607062
2666 ;RIGHT 27 OCTAL BIT POSITIONS
2667 032126 312 01 0 00 032307 CAME 1,[0,,174] ;PASS IF C(AC)=0,,174
2668 STOP^
2669 032127 254 04 0 00 032130 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2670 032130 324 00 0 00 032131 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2671 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2672 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2673 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2674 032131 312 02 0 00 032254 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2675 STOP^
2676 032132 254 04 0 00 032133 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2677 032133 324 00 0 00 032134 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2678 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2679 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2680 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2681
2682 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 45
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0072
2683 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2684 ;IN THIS CASE, 0,,0 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
2685 ;SO THAT FINAL C(AC)=0,,0.
2686 ;C(AC+1) SHOULD NOT BE AFFECTED
2687
2688 032134 200 01 0 00 032227 C42200: MOVE 1,[0,0] ;PRELOAD AC WITH 0,,0
2689 032135 200 02 0 00 032254 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060
2690 032136 242 01 0 00 777745 LSH 1,-33 ;*LSH SHOULD LOGICALLY SHIFT 0,,0
2691 ;RIGHT 33 OCTAL BIT POSITIONS
2692 032137 312 01 0 00 032227 CAME 1,[0,,0] ;PASS IF C(AC)=0,,0
2693 STOP^
2694 032140 254 04 0 00 032141 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2695 032141 324 00 0 00 032142 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2696 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2697 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2698 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2699 032142 312 02 0 00 032254 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2700 STOP^
2701 032143 254 04 0 00 032144 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2702 032144 324 00 0 00 032145 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2703 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2704 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2705 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2706
2707 ;**********
2708
2709 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2710 ;IN THIS CASE, -1,,-1 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
2711 ;SO THAT FINAL C(AC)=0,,777.
2712 ;C(AC+1) SHOULD NOT BE AFFECTED
2713
2714 032145 200 01 0 00 032226 C42300: MOVE 1,[-1,,-1] ;PRELOAD AC WITH -1,,-1
2715 032146 200 02 0 00 032254 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060
2716 032147 242 01 0 00 777745 LSH 1,-33 ;*LSH SHOULD LOGICALLY SHIFT -1,,-1
2717 ;RIGHT 33 OCTAL BIT POSITIONS
2718 032150 312 01 0 00 032277 CAME 1,[0,,777] ;PASS IF C(AC)=0,,777
2719 STOP^
2720 032151 254 04 0 00 032152 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2721 032152 324 00 0 00 032153 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2722 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2723 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2724 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2725 032153 312 02 0 00 032254 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2726 STOP^
2727 032154 254 04 0 00 032155 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2728 032155 324 00 0 00 032156 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2729 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2730 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2731 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2732
2733 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 46
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0073
2734 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2735 ;IN THIS CASE, 252525,,252525 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
2736 ;SO THAT FINAL C(AC)=0,,252.
2737 ;C(AC+1) SHOULD NOT BE AFFECTED
2738
2739 032156 200 01 0 00 032255 C42400: MOVE 1,[252525,,252525] ;PRELOAD AC WITH 252525,,252525
2740 032157 200 02 0 00 032254 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060
2741 032160 242 01 0 00 777745 LSH 1,-33 ;*LSH SHOULD LOGICALLY SHIFT 252525,,252525
2742 ;RIGHT 33 OCTAL BIT POSITIONS
2743 032161 312 01 0 00 032300 CAME 1,[0,,252] ;PASS IF C(AC)=0,,252
2744 STOP^
2745 032162 254 04 0 00 032163 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2746 032163 324 00 0 00 032164 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2747 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2748 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2749 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2750 032164 312 02 0 00 032254 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2751 STOP^
2752 032165 254 04 0 00 032166 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2753 032166 324 00 0 00 032167 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2754 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2755 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2756 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2757
2758 ;**********
2759
2760 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2761 ;IN THIS CASE, 525252,,525252 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
2762 ;SO THAT FINAL C(AC)=0,,525.
2763 ;C(AC+1) SHOULD NOT BE AFFECTED
2764
2765 032167 200 01 0 00 032256 C42500: MOVE 1,[525252,,525252] ;PRELOAD AC WITH 525252,,525252
2766 032170 200 02 0 00 032254 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060
2767 032171 242 01 0 00 777745 LSH 1,-33 ;*LSH SHOULD LOGICALLY SHIFT 525252,,525252
2768 ;RIGHT 33 OCTAL BIT POSITIONS
2769 032172 312 01 0 00 032301 CAME 1,[0,,525] ;PASS IF C(AC)=0,525
2770 STOP^
2771 032173 254 04 0 00 032174 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2772 032174 324 00 0 00 032175 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2773 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2774 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2775 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2776 032175 312 02 0 00 032254 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2777 STOP^
2778 032176 254 04 0 00 032177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2779 032177 324 00 0 00 032200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2780 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2781 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2782 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2783
2784 ;**********
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 47
DAKAGM MAC 19-JAN-77 17:37 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0074
2785 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2786 ;IN THIS CASE, 230703,,603700 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
2787 ;SO THAT FINAL C(AC)=0,,230.
2788 ;C(AC+1) SHOULD NOT BE AFFECTED
2789
2790 032200 200 01 0 00 032257 C42600: MOVE 1,[230703,,603700] ;PRELOAD AC WITH 230703,,603700
2791 032201 200 02 0 00 032254 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060
2792 032202 242 01 0 00 777745 LSH 1,-33 ;*LSH SHOULD LOGICALLY SHIFT 230703,,603700
2793 ;RIGHT 33 OCTAL BIT POSITIONS
2794 032203 312 01 0 00 032302 CAME 1,[0,,230] ;PASS IF C(AC)=0,,230
2795 STOP^
2796 032204 254 04 0 00 032205 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2797 032205 324 00 0 00 032206 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2798 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2799 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2800 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2801 032206 312 02 0 00 032254 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2802 STOP^
2803 032207 254 04 0 00 032210 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2804 032210 324 00 0 00 032211 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2805 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2806 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2807 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2808
2809 ;**********
2810
2811 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY
2812 ;IN THIS CASE, 007603,,607062 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS
2813 ;SO THAT FINAL C(AC)=0,,7.
2814 ;C(AC+1) SHOULD NOT BE AFFECTED
2815
2816 032211 200 01 0 00 032261 C42700: MOVE 1,[007603,,607062] ;PRELOAD AC WITH 007603,,607062
2817 032212 200 02 0 00 032254 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060
2818 032213 242 01 0 00 777745 LSH 1,-33 ;*LSH SHOULD LOGICALLY SHIFT 007603,,607062
2819 ;RIGHT 33 OCTAL BIT POSITIONS
2820 032214 312 01 0 00 032252 CAME 1,[0,,7] ;PASS IF C(AC)=0,,7
2821 STOP^
2822 032215 254 04 0 00 032216 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2823 032216 324 00 0 00 032217 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2824 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2825 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2826 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2827 032217 312 02 0 00 032254 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED
2828 STOP^
2829 032220 254 04 0 00 032221 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
2830 032221 324 00 0 00 032222 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
2831 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
2832 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
2833 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
2834
2835 032222 254 00 0 00 030057 JRST BEGEND ;REPEAT TEST
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 1
STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0075
2836 SUBTTL *STOR* RESERVED STORAGE, JAN 18,1977
2837
2838 ;PROGRAM LITERALS
2839
2840 XLIST
2841 IFNDEF $LPAPER,<LIST>
2842 032223 LIT
2843 032223 000001 000001
2844 032224 254 00 0 00 030741
2845 032225 000016 541320
2846 032226 777777 777777
2847 032227 000000 000000
2848 032230 000002 000000
2849 032231 000001 000002
2850 032232 000002 000002
2851 032233 000001 000017
2852 032234 312 00 0 00 000001
2853 032235 256 00 0 00 032234
2854 032236 256 00 0 00 032235
2855 032237 254 00 0 00 031304
2856 032240 265 03 0 00 031311
2857 032241 256 00 0 00 032240
2858 032242 256 00 0 00 032241
2859 032243 270 06 0 04 000001
2860 032244 331 01 0 00 000002
2861 032245 331 03 0 00 000006
2862 032246 777776 000005
2863 032247 253 03 0 00 031355
2864 032250 777777 000006
2865 032251 253 03 0 00 031363
2866 032252 000000 000007
2867 032253 000000 707070
2868 032254 172737 405060
2869 032255 252525 252525
2870 032256 525252 525252
2871 032257 230703 603700
2872 032260 023070 360370
2873 032261 007603 607062
2874 032262 200760 360706
2875 032263 074076 004616
2876 032264 074161 440174
2877 032265 770037 600377
2878 032266 307036 037007
2879 032267 700376 003772
2880 032270 776003 760077
2881 032271 760037 600770
2882 032272 076036 070627
2883 032273 160740 760176
2884 032274 007740 077646
2885 032275 400774 017601
2886 032276 740741 614577
2887 032277 000000 000777
2888 032300 000000 000252
2889 032301 000000 000525
2890 032302 000000 000230
DAKAG PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (7) 0,2 MACRO %52(537) 10:20 20-JAN-77 PAGE 1-1
STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0076
2891 032303 000000 017777
2892 032304 000000 005252
2893 032305 000000 012525
2894 032306 000000 004616
2895 032307 000000 000174
2896 LIST
2897 032310 000000 000000 ENDSLD: 0
2898
2899 IFDEF DEBUG,<
2900 032311 PATCH: BLOCK DEBUG ;PATCHING AREA
2901 >
2902
2903 ;PROGRAM VARIABLES
2904 032411 VAR
2905
2906 IFDEF PGMEND,<
2907 032411 000000 000000 END: 0
2908 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 032412
CPU TIME USED 00:13.678
10K CORE USED
ABORT 112#
AC0 707# SEQ 0077
ALTMGO 466#
ANXM 380#
APR 804 805 806
AROV 73# 380#
AROVU 380#
AST 581#
ATSIN 582#
BEGEND 462# 2835
BEGIN 326 327 393# 750 872 2908
BEGIN1 409# 463
BELL 585#
BIS 77# 380# 1233 1239
C27200 909#
C27300 926#
C27400 941#
C27500 958#
C27600 974#
C27700 992#
C30000 1009#
C30100 1028#
C30101 1045#
C30200 1063#
C30300 1083#
C30400 1104#
C30500 1126#
C30600 1144#
C31000 1162#
C31100 1177#
C31400 1198#
C31500 1213#
C31501 1231#
C31502 1253#
C31600 1272#
C31700 1288#
C32300 1304#
C32400 1320#
C32500 1338#
C32600 1357#
C33100 1375#
C33300 1394#
C33310 1405#
C33400 1419#
C33401 1437#
C33500 1456#
C33600 1473#
C33700 1489#
C33701 1508#
C34000 1527#
C34100 1541#
C34200 1554#
C34300 1571#
C34400 1590#
C34500 1608# SEQ 0078
C34600 1626#
C34610 1636#
C34700 1650#
C34710 1658#
C35000 1672#
C35100 1690#
C35200 1708#
C35300 1726#
C35400 1742#
C35500 1762#
C35600 1788#
C35700 1813#
C36000 1837#
C36100 1863#
C36200 1888#
C36300 1914#
C36400 1939#
C36500 1964#
C36600 1988#
C36700 2014#
C37000 2039#
C37100 2065#
C37200 2089#
C37300 2113#
C37400 2137#
C37500 2162#
C37600 2186#
C37700 2211#
C40000 2235#
C40100 2259#
C40200 2283#
C40300 2308#
C40400 2332#
C40500 2357#
C40600 2382#
C40700 2408#
C41000 2433#
C41100 2459#
C41200 2484#
C41300 2510#
C41400 2535#
C41500 2561#
C41600 2586#
C41700 2612#
C42000 2637#
C42100 2663#
C42200 2688#
C42300 2714#
C42400 2739#
C42500 2765#
C42600 2790#
C42700 2816#
CCA 380# SEQ 0079
CHAIN 132#
CHNOFF 380#
CHNON 380#
CLK 380#
CLKCLR 380#
CLKDIS 380#
CLKENB 380#
CLKU 380#
CLOCKF 448#
CNTLC 465#
COMMA 574#
CONSW 449#
CPOPJ 469#
CPOPJ1 467#
CRLF 261 262 569#
CRLF2 265 266 571#
CRY0 74# 380# 1065 1085 1106 1179 1184
CRY1 75# 380#
CSHFLG 628#
CSHMEM 629#
CYCL60 622#
DCK 81# 380#
DDT 709#
DDTLNK 146# 407
DDTSRT 407#
DEBUG 36# 2899 2900
DECVER 5# 11 27 428
DF22F 533#
DIAGMN 396#
DIAGNO 708#
DIAMON 710#
DING 118#
DOLLAR 588#
DONG11 711# 851 867
DSKUPD 433
DTE 715# 851 853 867 869
DTE0 716#
DTE1 717#
DTE2 718#
DTE3 719#
END 2907#
ENDFIX 702#
ENDSLD 2897#
ERMORE 482#
ERRPC 453#
ERRTLS 454#
ERSTOP 121#
EXCASB 33# 431
EXIOT 79# 380#
FOV 76# 380#
FOVU 380#
FRDLNK 144#
FSELNK 143# SEQ 0080
FXU 80# 380#
HYPEN 579#
INHCSH 129#
INHPAG 126#
INXM 380#
IOCLR 380#
ITERAT 65# 426
ITRCH1 486#
ITRCNT 426# 796 825 829 837 838 842
JOB41 380#
JOBAPR 380#
JOBCNI 380#
JOBDDT 380#
JOBFF 380#
JOBOPC 380#
JOBREL 380#
JOBREN 380#
JOBSA 380#
JOBSYM 380#
JOBTPC 380#
JOBUSY 380#
JOBUUO 380#
JOBVER 380#
KA10 380
KAHZ50 134#
KAIFLG 443#
KI10 380
KL10 380
KLFLG 444# 798 816 835
KLOLD 341
KLTYP 660# 797 808 850 852 866 868
LDLNK 145# 396 398
LFP 583#
LOOPER 120#
LUUO 380#
LUUO1 513 514
LUUO10 513 518
LUUO11 513 518
LUUO12 513 519
LUUO13 513 519
LUUO14 513 520
LUUO15 513 520
LUUO16 513 521
LUUO17 513 521
LUUO2 513 515
LUUO20 513 522
LUUO21 513 522
LUUO22 513 523
LUUO23 513 523
LUUO24 513 524
LUUO25 513 524
LUUO26 513 525
LUUO27 513 525 SEQ 0081
LUUO3 513 515
LUUO30 513 526
LUUO31 513 526
LUUO32 513 527
LUUO33 513 527
LUUO4 513 516
LUUO5 513 516
LUUO6 513 517
LUUO7 513 517
LUUOI 380#
MAPNEW 534#
MARGIN 456#
MCNVER 6# 11 27 428
MEMLOW 536#
MEMMAP 434
MEMSIZ 537#
MEMTOT 535#
MINUS 578#
MODDVC 128#
MODDVL 326 326# 429
MODDVU 327 327# 430
MODLNK 147# 393
MONCTL 446# 845 883
MONFLG 445# 790 879
MONTEN 447# 795 831 860
MPVU 380#
NOPNT 116#
NXMU 380#
OPRSEL 130#
OPTIME 548#
P 173 174 175 176 380# 468
PAG 380#
PALERS 122#
PARCLR 380#
PARDIS 380#
PAREA0 58#
PAREA1 59# 424
PAREA2 60# 425
PAREA3 61# 422
PAREA4 62# 423
PAREA5 63# 435
PAREA6 64# 436
PAREA7 435#
PAREA8 436#
PARENB 380#
PARU 380#
PASCNT 450# 824
PATCH 2900#
PDISF 545#
PDLOVU 380#
PERIOD 575#
PFSTRT 402#
PGMEND 35# 66# 2906 SEQ 0082
PGMNAM 427 884 887#
PI 837
PICHN1 380#
PICHN2 380#
PICHN3 380#
PICHN4 380#
PICHN5 380#
PICHN6 380#
PICHN7 380#
PICHNA 380#
PICLR 380#
PIOFF 380#
PION 380#
PLIST 614# 614
PLISTE 614 616# 700
PLISTS 615#
PLUS 580#
PNTENB 544#
PNTEXT 423#
PNTFLG 543#
PNTINH 546#
PNTLPT 117#
PNTNAM 422#
PNTSPC 547#
PVPAGI 641#
PWFCLR 380#
QUEST 586#
RADIX 589#
RADLSC 591#
RADLSP 590#
RANDBS 424#
REENTR 404#
RELIAB 124#
REPT 380#
REPT1 380#
REPTU 502#
REQSET 380#
RESRT1 479#
RESRT2 480#
RETURN 411# 833 840 861
RSTART 113#
RTP 584#
RUNFLG 451#
SADR1 46# 400
SADR10 55# 416
SADR11 56# 417
SADR2 47# 402
SADR3 48# 404
SADR4 49#
SADR5 50# 465
SADR6 51# 466
SADR7 52# 413
SADR8 53# 414 SEQ 0083
SADR9 54# 415
SBINIT 186 410#
SCOPE 503#
SFSTRT 400#
SLASH 587#
SPACE 576#
SRTDDT 406#
START 46 47 48 49 50 51 52 53 54 55 56 394 793 802
817 821 875#
START1 413#
START2 414#
START3 415#
START4 416#
START5 417#
STARTA 409 819 830 839 846 856 882 885 901#
SUBLNK 148# 410
SWTEXR 425#
SYSEXR 398#
TAB 577#
TESTPC 452#
TICKS 455#
TOTALS 114#
TTNBRF 635#
TTYFIL 551#
TTYSPD 552#
TXTINH 125#
USER 442# 786 789 791 792 826 875# 875 878 880 881
USERF 39# 78# 380# 788 877
USRASB 34# 432
USRCRF 561#
USRLFF 560#
UUODIS 514#
UUOEXT 470#
UUORTN 471#
UUOSKP 468#
$$420 760#
$$421 761#
$$422 762#
$$423 763#
$$424 764#
$$425 765#
$$426 766#
$$427 767#
$$430 768#
$$431 769#
$$432 770#
$$433 771#
$$434 772#
$$435 773#
$$436 774#
$$437 775#
$$500 778#
$$501 779# SEQ 0084
$$502 780#
$$503 781#
$$BEGI 746#
$$DTE0 812 851#
$$DTE1 813 853#
$$DTE2 814 867#
$$DTE3 815 869#
$$LOC 743# 782
$$MUUO 666#
$$OUTE 672#
$$STAR 746 747 786#
$$TAX1 684#
$$TAX2 685#
$$TOGG 678#
$$UUO 655#
$ACC0 493#
$BEGEN 755#
$BEND1 463#
$BEND2 464#
$CHRIN 554#
$CRLF 556#
$DDT 724#
$DEVCH 380#
$DSKUP 433#
$DTCHR 736#
$DTCI 730#
$DTCLK 729# 810
$DTCMD 733# 848 864
$DTF11 732#
$DTFLG 728# 809 849 854 865 870
$DTMTD 737#
$DTMTI 738#
$DTOPR 735# 811
$DTSEQ 734#
$DTSWR 740#
$DTT11 731#
$DVCH1 380#
$DVOFF 550#
$EMODE 431#
$ENDFX 700# 701
$FFF 558#
$IBUF 606#
$INEXT 608#
$INNM 607#
$ITRHL 474#
$ITRX1 475#
$LPAPE 2841
$MMAP 434#
$MODVL 429#
$MODVU 430#
$OBUF 597#
$ONETM 457#
$OUTEX 599# SEQ 0085
$OUTNM 598#
$PAPER 380
$PARER 481#
$PNAME 427#
$PSHER 485#
$PVER 428#
$RSRTX 477#
$RSRTY 478#
$SPAG1 497#
$SPB1 820 826#
$SPBEN 755 824#
$SPBEX 827 835#
$SPBKL 836 842#
$SPBUS 829#
$SPEC 752 819#
$SPKLD 843 860#
$START 394#
$STD 723# 750#
$STKIL 795#
$STKL 804#
$STL 725#
$STM 726# 752#
$SVAPR 495#
$SVPAG 496#
$SVPI 494#
$SVUPC 500#
$SVUUO 499#
$TABF 557#
$TTCHR 553#
$TWCNT 549#
$TYPNB 555#
$UMODE 432#
$UORTX 472#
$USRHL 476#
$UUOER 473# 514
$VTF 559#
%ACTFL 506#
%ACTUL 507#
%COREC 505#
%CORFL 504#
%DISCR 508#
%ERHI1 647#
%ERHI2 648#
%ERHI3 649#
.JB41 380#
.JBAPR 380#
.JBCNI 380#
.JBDDT 380#
.JBFF 380#
.JBOPC 380#
.JBREL 380#
.JBREN 380#
.JBSA 380# SEQ 0086
.JBSYM 380#
.JBTPC 380#
.JBUSY 380#
.JBUUO 380#
.JBVER 380#
CFLUSH 297#
CINVAL 296# SEQ 0087
CLOKOP 291#
CWRTBI 298#
DROPDV 258#
ENDUUO 304# 462
EOPUUO 305# 464
ERLOOP 349#
ERLP1 350#
ERLP2 351#
ERRHLT 193#
ERROR 358#
ERROR1 370#
ERUUO 348#
EXIT 832
FATAL 192#
FRD36 333#
FRD8 334#
FREAD 332#
FSELEC 331#
GET 176#
GO 173#
HALT 178# 483 760 762 763 767 781 872 913 930 945 962 978 996
1013 1033 1049 1071 1094 1114 1131 1146 1150 1166 1186 1200 1203 1215
1219 1241 1257 1276 1293 1309 1326 1344 1363 1381 1400 1407 1424 1441
1461 1478 1495 1513 1530 1544 1556 1557 1559 1573 1574 1578 1596 1614
1631 1639 1653 1661 1674 1675 1678 1694 1715 1732 1751 1765 1766 1768
1772 1793 1800 1818 1825 1843 1850 1869 1876 1894 1901 1920 1927 1944
1951 1969 1976 1994 2001 2020 2027 2045 2052 2071 2078 2094 2101 2119
2126 2143 2150 2168 2175 2192 2199 2217 2224 2240 2247 2265 2272 2289
2296 2314 2321 2338 2345 2363 2370 2388 2395 2414 2421 2439 2446 2465
2472 2490 2497 2516 2523 2541 2548 2567 2574 2592 2599 2618 2625 2643
2650 2669 2676 2694 2701 2720 2727 2745 2752 2771 2778 2796 2803 2822
2829
JEN 180#
JRSTF 179#
MAPADR 314#
MAPCNK 315#
MAPMEM 311#
MAPPNT 317#
MAPSET 316#
MEMSEG 313#
MEMZRO 312#
MODPCP 324#
MODPCU 323#
MTROP 292#
NAME 9# 11
PBELL 267#
PCRL 261#
PCRL2 265#
PCRL2F 266#
PCRLF 262#
PFORCE 269#
PGMINT 186#
PJRST 177# SEQ 0088
PMSG 271#
PMSGF 274#
PNT1 227#
PNT11 241#
PNT11F 242#
PNT1F 228#
PNT2 229#
PNT2F 230#
PNT3 231#
PNT3F 232#
PNT4 233#
PNT4F 234#
PNT5 235#
PNT5F 236#
PNT6 237#
PNT6F 238#
PNT7 239#
PNT7F 240#
PNTA 213#
PNTADF 244#
PNTADR 243#
PNTAF 214#
PNTAL 215#
PNTALF 216#
PNTCHF 226#
PNTCHR 225#
PNTCI 223#
PNTCIF 224#
PNTCW 259#
PNTCWF 260#
PNTDCF 252#
PNTDEC 251#
PNTDS 253#
PNTDSF 254#
PNTHW 247#
PNTHWF 248#
PNTMGN 338#
PNTMSF 220#
PNTMSG 219#
PNTNM 255#
PNTOCF 250#
PNTOCS 249#
PNTOCT 245#
PNTOTF 246#
PNTSIX 256#
PNTSXF 257#
PSIXL 217#
PSIXLF 218#
PSIXM 221#
PSIXMF 222#
PSP 263#
PSPF 264#
PUT 175# SEQ 0089
REPTUO 352#
RTN 174# 470
S 104# 106 110 139 141 150 153 168 169 171 182 184 188 190
195 199 344 346 380 385 391 418 420 438 440 458 460 489
491 509 511 529 531 539 541 562 567 593 595 602 604 610
612 618 620 624 626 631 633 637 639 643 645 651 653 656
658 662 664 668 670 674 676 680 682 687 692 696 698
SFLAG 98# 1063 1083 1104 1177 1231
SIXBTZ 280#
STOP 89# 912 929 944 961 977 995 1012 1032 1048 1070 1093 1113 1130
1149 1165 1185 1202 1218 1240 1256 1275 1292 1308 1325 1343 1362 1380
1399 1406 1423 1440 1460 1477 1494 1512 1529 1543 1558 1577 1595 1613
1630 1638 1652 1660 1677 1693 1714 1730 1750 1771 1792 1799 1817 1824
1842 1849 1868 1875 1893 1900 1919 1926 1943 1950 1968 1975 1993 2000
2019 2026 2044 2051 2070 2077 2093 2100 2118 2125 2142 2149 2167 2174
2191 2198 2216 2223 2239 2246 2264 2271 2288 2295 2313 2320 2337 2344
2362 2369 2387 2394 2413 2420 2438 2445 2464 2471 2489 2496 2515 2522
2540 2547 2566 2573 2591 2598 2617 2624 2642 2649 2668 2675 2693 2700
2719 2726 2744 2751 2770 2777 2795 2802 2821 2828
SWITCH 286#
TTALTM 208#
TTICHR 201#
TTICNV 206#
TTIDEC 205#
TTINO 203#
TTIOCT 204#
TTIYES 202#
TTLOOK 207#
TTSIXB 209#
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 1
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0090
*030001 JRST 0,030600
INITIAL
C(AC)=000000 000000
C(E)=402000 030037
FINAL
C(E)=402000 030037
TIME PC MA SC FE AR MQ BR
IT0 030001 030001 0 0 254000030600 0 254000030600
IT1 030001 0 0 0 254000030600 0 254000030600
AT3 030001 0 0 0 000000030600 0 254000030600
AT6 030001 0 0 0 000000030600 0 254000030600
FT1A 030001 0 0 0 000000030600 0 254000030600
FT9 030002 0 0 0 000000030600 0 254000030600
ET0 0 030002 0 0 000000030600 0 254000030600
ST1A 0 030002 0 0 000000030600 0 254000030600
ST9 0 030002 0 0 000000030600 0 254000030600
*030600 SETZM 0,030037
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
C(E)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 0 0 0 0 402000030037 0 000000030037
IT1 0 0 0 0 402000030037 0 000000030037
AT3 0 0 0 0 000000030037 0 402000030037
AT6 0 030037 0 0 000000030037 0 402000030037
FT1A 0 030037 0 0 000000030037 0 000000030037
FT9 030601 030037 0 0 000000030037 0 000000030037
ET0 030601 030037 0 0 0 0 000000030037
ST6 030601 030037 0 0 0 0 000000030037
ST6A 030601 030037 0 0 0 0 000000030037
ST9 030601 030037 0 0 0 0 000000030037
*030601 JSP 0,030602
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000000 030602
TIME PC MA SC FE AR MQ BR
IT0 030601 030601 0 0 265000030602 0 000000030602
IT1 030601 0 0 0 265000030602 0 000000030602
AT3 030601 0 0 0 000000030602 0 265000030602
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 2
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0091
AT6 030601 030602 0 0 000000030602 0 265000030602
FT1A 030601 030602 0 0 000000030602 0 000000030602
FT9 030602 030602 0 0 000000030602 0 000000030602
ET0 030602 030602 0 0 000000030602 0 000000030602
ST1 030602 030602 0 0 000000030602 0 000000030602
ST2 030602 030602 0 0 000000030602 0 000000030602
ST9 030602 030602 0 0 000000030602 0 000000030602
*030602 TLNE 0,010000
INITIAL
C(AC)=000000 030602
FINAL
C(AC)=000000 030602
TIME PC MA SC FE AR MQ BR
IT0 030602 030602 0 0 603000010000 0 0
IT1 030602 0 0 0 603000010000 0 0
AT3 030602 0 0 0 000000010000 0 603000010000
AT6 030602 0 0 0 000000010000 0 603000010000
FT1A 030602 0 0 0 000000010000 0 000000010000
FT2 030602 0 0 0 0 0 000000010000
FT2RQ 030602 0 0 0 000000030602 0 000000010000
FT3 030602 0 0 0 000000030602 0 000000010000
FT9 030603 0 0 0 000000030602 0 000000010000
ET0 030603 0 0 0 030602000000 0 000000010000
ET1 030603 0 0 0 030602000000 0 0
ET2 030604 0 0 0 000000030602 0 0
ST1A 030604 0 0 0 000000030602 0 0
ST9 030604 0 0 0 000000030602 0 0
*030604 SKIPN 0,030042
INITIAL
C(AC)=000000 030602
C(E)=777777 777777
FINAL
C(AC)=000000 030602
TIME PC MA SC FE AR MQ BR
IT0 030604 030604 0 0 336000030042 0 777777777777
IT1 030604 0 0 0 336000030042 0 777777777777
AT3 030604 0 0 0 000000030042 0 336000030042
AT6 030604 030042 0 0 000000030042 0 336000030042
FT0 030604 030042 0 0 777777777777 0 336000030042
FT1A 030604 030042 0 0 777777777777 0 777777777777
FT9 030605 030042 0 0 777777777777 0 777777777777
ET0 030606 030042 0 0 777777777777 0 777777777777
ST1A 030606 030042 0 0 777777777777 0 777777777777
ST9 030606 030042 0 0 777777777777 0 777777777777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 3
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0092
*030606 SKIPE 0,030037
INITIAL
C(AC)=000000 030602
C(E)=000000 000000
FINAL
C(AC)=000000 030602
TIME PC MA SC FE AR MQ BR
IT0 030606 030606 0 0 332000030037 0 0
IT1 030606 0 0 0 332000030037 0 0
AT3 030606 0 0 0 000000030037 0 332000030037
AT6 030606 030037 0 0 000000030037 0 332000030037
FT0 030606 030037 0 0 0 0 332000030037
FT1A 030606 030037 0 0 0 0 0
FT9 030607 030037 0 0 0 0 0
ET0 030610 030037 0 0 0 0 0
ST1A 030610 030037 0 0 0 0 0
ST9 030610 030037 0 0 0 0 0
*030610 SKIPN 0,030044
INITIAL
C(AC)=000000 030602
C(E)=777777 777777
FINAL
C(AC)=000000 030602
TIME PC MA SC FE AR MQ BR
IT0 030610 030610 0 0 336000030044 0 777777777777
IT1 030610 0 0 0 336000030044 0 777777777777
AT3 030610 0 0 0 000000030044 0 336000030044
AT6 030610 030044 0 0 000000030044 0 336000030044
FT0 030610 030044 0 0 777777777777 0 336000030044
FT1A 030610 030044 0 0 777777777777 0 777777777777
FT9 030611 030044 0 0 777777777777 0 777777777777
ET0 030612 030044 0 0 777777777777 0 777777777777
ST1A 030612 030044 0 0 777777777777 0 777777777777
ST9 030612 030044 0 0 777777777777 0 777777777777
*030612 SETZM 0,030516
INITIAL
C(AC)=000000 030602
C(E)=000000 000000
FINAL
C(E)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 030612 030612 0 0 402000030516 0 000000030516
IT1 030612 0 0 0 402000030516 0 000000030516
AT3 030612 0 0 0 000000030516 0 402000030516
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 4
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0093
AT6 030612 030516 0 0 000000030516 0 402000030516
FT1A 030612 030516 0 0 000000030516 0 000000030516
FT9 030613 030516 0 0 000000030516 0 000000030516
ET0 030613 030516 0 0 0 0 000000030516
ST6 030613 030516 0 0 0 0 000000030516
ST6A 030613 030516 0 0 0 0 000000030516
ST9 030613 030516 0 0 0 0 000000030516
*030613 SETZM 0,030041
INITIAL
C(AC)=000000 030602
C(E)=000000 000000
FINAL
C(E)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 030613 030613 0 0 402000030041 0 000000030041
IT1 030613 0 0 0 402000030041 0 000000030041
AT3 030613 0 0 0 000000030041 0 402000030041
AT6 030613 030041 0 0 000000030041 0 402000030041
FT1A 030613 030041 0 0 000000030041 0 000000030041
FT9 030614 030041 0 0 000000030041 0 000000030041
ET0 030614 030041 0 0 0 0 000000030041
ST6 030614 030041 0 0 0 0 000000030041
ST6A 030614 030041 0 0 0 0 000000030041
ST9 030614 030041 0 0 0 0 000000030041
*030614 MOVE 1,032223
INITIAL
C(AC)=000000 000000
C(E)=000001 000001
FINAL
C(AC)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 030614 030614 0 0 200040032223 0 000001000001
IT1 030614 0 0 0 200040032223 0 000001000001
AT3 030614 0 0 0 000000032223 0 200040032223
AT6 030614 032223 0 0 000000032223 0 200040032223
FT0 030614 032223 0 0 000001000001 0 200040032223
FT1A 030614 032223 0 0 000001000001 0 000001000001
FT9 030615 032223 0 0 000001000001 0 000001000001
ET0 030615 032223 0 0 000001000001 0 000001000001
ST1 030615 032223 0 0 000001000001 0 000001000001
ST2 030615 032223 0 0 000001000001 0 000001000001
ST9 030615 032223 0 0 000001000001 0 000001000001
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 5
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0094
*030615 BLT 1,000001
INITIAL
C(AC)=000001 000001
FINAL
C(AC)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 030615 030615 0 0 251040000001 0 000000000001
IT1 030615 0 0 0 251040000001 0 000000000001
AT3 030615 0 0 0 000000000001 0 251040000001
AT6 030615 000001 0 0 000000000001 0 251040000001
FT1A 030615 000001 0 0 000000000001 0 000000000001
FT2 030615 000001 0 0 0 0 000000000001
FT2RQ 030615 000001 0 0 000001000001 0 000000000001
FT3 030615 000001 0 0 000001000001 0 000000000001
FT6 030615 000001 0 0 000001000001 0 000000000001
FT7 030615 000001 0 0 000001000001 000001000001 000000000001
FT4RQ 030615 000001 0 0 000001000001 000001000001 000000000001
FT4A 030615 000001 0 0 000001000001 000001000001 000000000001
FT9 030615 000001 0 0 000001000001 000001000001 000000000001
ET0 030615 000001 0 0 000001000001 000001000001 000000000001
ET1 030615 000001 0 0 000001000001 000001000001 000000000001
ET2 030615 000001 0 0 000001000001 000002000002 000000000001
BLTT1 030615 000001 0 0 000000000002 000002000002 000000000001
BLTT2 030616 000001 0 0 000000000002 000002000002 000000000001
ST9 030616 000001 0 0 000000000002 000002000002 000000000001
*030616 CAMN 1,032223
INITIAL
C(AC)=000001 000001
C(E)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 030616 030616 0 0 316040032223 0 000001000001
IT1 030616 0 0 0 316040032223 0 000001000001
AT3 030616 0 0 0 000000032223 0 316040032223
AT6 030616 032223 0 0 000000032223 0 316040032223
FT0 030616 032223 0 0 000001000001 0 316040032223
FT1A 030616 032223 0 0 000001000001 0 000001000001
FT2 030616 032223 0 0 0 0 000001000001
FT2RQ 030616 032223 0 0 000001000001 0 000001000001
FT3 030616 032223 0 0 000001000001 0 000001000001
FT9 030617 032223 0 0 000001000001 0 000001000001
ET0 030617 032223 0 0 0 0 000001000001
ST1A 030617 032223 0 0 0 0 000001000001
ST9 030617 032223 0 0 0 0 000001000001
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 6
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0095
*030617 JRST 0,030712
INITIAL
C(AC)=000000 030602
C(E)=402000 030037
FINAL
C(E)=402000 030037
TIME PC MA SC FE AR MQ BR
IT0 030617 030617 0 0 254000030712 0 254000030712
IT1 030617 0 0 0 254000030712 0 254000030712
AT3 030617 0 0 0 000000030712 0 254000030712
AT6 030617 030712 0 0 000000030712 0 254000030712
FT1A 030617 030712 0 0 000000030712 0 254000030712
FT9 030620 030712 0 0 000000030712 0 254000030712
ET0 030712 030620 0 0 000000030712 0 254000030712
ST1A 030712 030620 0 0 000000030712 0 254000030712
ST9 030712 030620 0 0 000000030712 0 254000030712
*030712 SETZM 0,030037
INITIAL
C(AC)=000000 030602
C(E)=000000 000000
FINAL
C(E)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 030712 030712 0 0 402000030037 0 000000030037
IT1 030712 0 0 0 402000030037 0 000000030037
AT3 030712 0 0 0 000000030037 0 402000030037
AT6 030712 030037 0 0 000000030037 0 402000030037
FT1A 030712 030037 0 0 000000030037 0 000000030037
FT9 030713 030037 0 0 000000030037 0 000000030037
ET0 030713 030037 0 0 0 0 000000030037
ST6 030713 030037 0 0 0 0 000000030037
ST6A 030713 030037 0 0 0 0 000000030037
ST9 030713 030037 0 0 0 0 000000030037
*030713 JSP 0,030714
INITIAL
C(AC)=000000 030602
FINAL
C(AC)=000000 030714
TIME PC MA SC FE AR MQ BR
IT0 030713 030713 0 0 265000030714 0 000000030714
IT1 030713 0 0 0 265000030714 0 000000030714
AT3 030713 0 0 0 000000030714 0 265000030714
AT6 030713 030714 0 0 000000030714 0 265000030714
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 7
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0096
FT1A 030713 030714 0 0 000000030714 0 000000030714
FT9 030714 030714 0 0 000000030714 0 000000030714
ET0 030714 030714 0 0 000000030714 0 000000030714
ST1 030714 030714 0 0 000000030714 0 000000030714
ST2 030714 030714 0 0 000000030714 0 000000030714
ST9 030714 030714 0 0 000000030714 0 000000030714
*030714 TLNE 0,010000
INITIAL
C(AC)=000000 030714
FINAL
C(AC)=000000 030714
TIME PC MA SC FE AR MQ BR
IT0 030714 030714 0 0 603000010000 0 0
IT1 030714 0 0 0 603000010000 0 0
AT3 030714 0 0 0 000000010000 0 603000010000
AT6 030714 0 0 0 000000010000 0 603000010000
FT1A 030714 0 0 0 000000010000 0 000000010000
FT2 030714 0 0 0 0 0 000000010000
FT2RQ 030714 0 0 0 000000030714 0 000000010000
FT3 030714 0 0 0 000000030714 0 000000010000
FT9 030715 0 0 0 000000030714 0 000000010000
ET0 030715 0 0 0 030714000000 0 000000010000
ET1 030715 0 0 0 030714000000 0 0
ET2 030716 0 0 0 000000030714 0 0
ST1A 030716 0 0 0 000000030714 0 0
ST9 030716 0 0 0 000000030714 0 0
*030716 SKIPN 0,030042
INITIAL
C(AC)=000000 030714
C(E)=777777 777777
FINAL
C(AC)=000000 030714
TIME PC MA SC FE AR MQ BR
IT0 030716 030716 0 0 336000030042 0 777777777777
IT1 030716 0 0 0 336000030042 0 777777777777
AT3 030716 0 0 0 000000030042 0 336000030042
AT6 030716 030042 0 0 000000030042 0 336000030042
FT0 030716 030042 0 0 777777777777 0 336000030042
FT1A 030716 030042 0 0 777777777777 0 777777777777
FT9 030717 030042 0 0 777777777777 0 777777777777
ET0 030720 030042 0 0 777777777777 0 777777777777
ST1A 030720 030042 0 0 777777777777 0 777777777777
ST9 030720 030042 0 0 777777777777 0 777777777777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 8
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0097
*030720 SKIPN 0,030037
INITIAL
C(AC)=000000 030714
C(E)=000000 000000
FINAL
C(AC)=000000 030714
TIME PC MA SC FE AR MQ BR
IT0 030720 030720 0 0 336000030037 0 0
IT1 030720 0 0 0 336000030037 0 0
AT3 030720 0 0 0 000000030037 0 336000030037
AT6 030720 030037 0 0 000000030037 0 336000030037
FT0 030720 030037 0 0 0 0 336000030037
FT1A 030720 030037 0 0 0 0 0
FT9 030721 030037 0 0 0 0 0
ET0 030721 030037 0 0 0 0 0
ST1A 030721 030037 0 0 0 0 0
ST9 030721 030037 0 0 0 0 0
*030721 JRST 0,030741
INITIAL
C(AC)=000000 030714
C(E)=254000 030742
FINAL
C(E)=254000 030742
TIME PC MA SC FE AR MQ BR
IT0 030721 030721 0 0 254000030741 0 254000030741
IT1 030721 0 0 0 254000030741 0 254000030741
AT3 030721 0 0 0 000000030741 0 254000030741
AT6 030721 030741 0 0 000000030741 0 254000030741
FT1A 030721 030741 0 0 000000030741 0 254000030741
FT9 030722 030741 0 0 000000030741 0 254000030741
ET0 030741 030722 0 0 000000030741 0 254000030741
ST1A 030741 030722 0 0 000000030741 0 254000030741
ST9 030741 030722 0 0 000000030741 0 254000030741
*030741 JRST 0,030742
INITIAL
C(AC)=000000 030714
C(E)=400100 000000
FINAL
C(E)=400100 000000
TIME PC MA SC FE AR MQ BR
IT0 030741 030741 0 0 254000030742 0 254000030742
IT1 030741 0 0 0 254000030742 0 254000030742
AT3 030741 0 0 0 000000030742 0 254000030742
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 9
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0098
AT6 030741 030742 0 0 000000030742 0 254000030742
FT1A 030741 030742 0 0 000000030742 0 254000030742
FT9 030742 030742 0 0 000000030742 0 254000030742
ET0 030742 030742 0 0 000000030742 0 254000030742
ST1A 030742 030742 0 0 000000030742 0 254000030742
ST9 030742 030742 0 0 000000030742 0 254000030742
*030742 SETZ 2,000000
INITIAL
C(AC)=000000 000000
C(E)=000000 030714
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 030742 030742 0 0 400100000000 0 0
IT1 030742 0 0 0 400100000000 0 0
AT3 030742 0 0 0 0 0 400100000000
AT6 030742 0 0 0 0 0 400100000000
FT1A 030742 0 0 0 0 0 0
FT9 030743 0 0 0 0 0 0
ET0 030743 0 0 0 0 0 0
ST1 030743 0 0 0 0 0 0
ST2 030743 0 0 0 0 0 0
ST9 030743 0 0 0 0 0 0
*030743 PUSH 2,030745
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000001 000001 C(C(ACR+1))=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 030743 030743 0 0 261100030745 0 254200030746
IT1 030743 0 0 0 261100030745 0 254200030746
AT3 030743 0 0 0 000000030745 0 261100030745
AT6 030743 030745 0 0 000000030745 0 261100030745
FT0 030743 030745 0 0 254200030746 0 261100030745
FT1A 030743 030745 0 0 254200030746 0 254200030746
FT2 030743 030745 0 0 0 0 254200030746
FT2RQ 030743 030745 0 0 0 0 254200030746
FT3 030743 030745 0 0 0 0 254200030746
FT9 030744 030745 0 0 0 0 254200030746
ET0 030744 030745 0 0 000001000001 0 254200030746
ET1 030744 000001 0 0 000001000001 0 254200030746
ST1 030744 000001 0 0 000001000001 0 254200030746
ST2 030744 000001 0 0 254200030746 0 254200030746
ST3 030744 000001 0 0 254200030746 0 254200030746
ST6 030744 000001 0 0 254200030746 0 254200030746
ST6A 030744 000001 0 0 254200030746 0 254200030746
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 10
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0099
ST9 030744 000001 0 0 254200030746 0 254200030746
*030744 SKIPA 0,000000
INITIAL
C(AC)=000000 030714
C(E)=000000 030714
FINAL
C(AC)=000000 030714
TIME PC MA SC FE AR MQ BR
IT0 030744 030744 0 0 334000000000 0 000000030714
IT1 030744 0 0 0 334000000000 0 000000030714
AT3 030744 0 0 0 0 0 334000000000
AT6 030744 0 0 0 0 0 334000000000
FT0 030744 0 0 0 000000030714 0 334000000000
FT1A 030744 0 0 0 000000030714 0 000000030714
FT9 030745 0 0 0 000000030714 0 000000030714
ET0 030746 0 0 0 000000030714 0 000000030714
ST1A 030746 0 0 0 000000030714 0 000000030714
ST9 030746 0 0 0 000000030714 0 000000030714
*030746 JUMPA 0,030747
INITIAL
C(AC)=000000 030714
FINAL
TIME PC MA SC FE AR MQ BR
IT0 030746 030746 0 0 324000030747 0 000000030747
IT1 030746 0 0 0 324000030747 0 000000030747
AT3 030746 0 0 0 000000030747 0 324000030747
AT6 030746 030747 0 0 000000030747 0 324000030747
FT1A 030746 030747 0 0 000000030747 0 000000030747
FT2 030746 030747 0 0 0 0 000000030747
FT2RQ 030746 030747 0 0 000000030714 0 000000030747
FT3 030746 030747 0 0 000000030714 0 000000030747
FT9 030747 030747 0 0 000000030714 0 000000030747
ET0 030747 030747 0 0 000000030714 0 000000030747
ST1A 030747 030747 0 0 000000030714 0 000000030747
ST9 030747 030747 0 0 000000030714 0 000000030747
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 11
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0100
*030747 SETZB 0,000002
INITIAL
C(AC)=000000 030714
C(E)=000001 000001
FINAL
C(AC)=000000 000000
C(E)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 030747 030747 0 0 403000000002 0 000000000002
IT1 030747 0 0 0 403000000002 0 000000000002
AT3 030747 0 0 0 000000000002 0 403000000002
AT6 030747 000002 0 0 000000000002 0 403000000002
FT1A 030747 000002 0 0 000000000002 0 000000000002
FT9 030750 000002 0 0 000000000002 0 000000000002
ET0 030750 000002 0 0 0 0 000000000002
ST1 030750 000002 0 0 0 0 000000000002
ST2 030750 000002 0 0 0 0 000000000002
ST6 030750 000002 0 0 0 0 000000000002
ST6A 030750 000002 0 0 0 0 000000000002
ST9 030750 000002 0 0 0 0 000000000002
*030750 PUSH 2,000000
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000001 000001 C(C(ACR+1))=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 030750 030750 0 0 261100000000 0 0
IT1 030750 0 0 0 261100000000 0 0
AT3 030750 0 0 0 0 0 261100000000
AT6 030750 0 0 0 0 0 261100000000
FT0 030750 0 0 0 0 0 261100000000
FT1A 030750 0 0 0 0 0 0
FT2 030750 0 0 0 0 0 0
FT2RQ 030750 0 0 0 0 0 0
FT3 030750 0 0 0 0 0 0
FT9 030751 0 0 0 0 0 0
ET0 030751 0 0 0 000001000001 0 0
ET1 030751 000001 0 0 000001000001 0 0
ST1 030751 000001 0 0 000001000001 0 0
ST2 030751 000001 0 0 0 0 0
ST3 030751 000001 0 0 0 0 0
ST6 030751 000001 0 0 0 0 0
ST6A 030751 000001 0 0 0 0 0
ST9 030751 000001 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 12
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0101
*030751 SKIPE 0,000000
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 030751 030751 0 0 332000000000 0 0
IT1 030751 0 0 0 332000000000 0 0
AT3 030751 0 0 0 0 0 332000000000
AT6 030751 0 0 0 0 0 332000000000
FT0 030751 0 0 0 0 0 332000000000
FT1A 030751 0 0 0 0 0 0
FT9 030752 0 0 0 0 0 0
ET0 030753 0 0 0 0 0 0
ST1A 030753 0 0 0 0 0 0
ST9 030753 0 0 0 0 0 0
*030753 JUMPA 0,030754
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 030753 030753 0 0 324000030754 0 000000030754
IT1 030753 0 0 0 324000030754 0 000000030754
AT3 030753 0 0 0 000000030754 0 324000030754
AT6 030753 030754 0 0 000000030754 0 324000030754
FT1A 030753 030754 0 0 000000030754 0 000000030754
FT2 030753 030754 0 0 0 0 000000030754
FT2RQ 030753 030754 0 0 0 0 000000030754
FT3 030753 030754 0 0 0 0 000000030754
FT9 030754 030754 0 0 0 0 000000030754
ET0 030754 030754 0 0 0 0 000000030754
ST1A 030754 030754 0 0 0 0 000000030754
ST9 030754 030754 0 0 0 0 000000030754
*030754 SETZ 2,000000
INITIAL
C(AC)=000001 000001
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 030754 030754 0 0 400100000000 0 0
IT1 030754 0 0 0 400100000000 0 0
AT3 030754 0 0 0 0 0 400100000000
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 13
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0102
AT6 030754 0 0 0 0 0 400100000000
FT1A 030754 0 0 0 0 0 0
FT9 030755 0 0 0 0 0 0
ET0 030755 0 0 0 0 0 0
ST1 030755 0 0 0 0 0 0
ST2 030755 0 0 0 0 0 0
ST9 030755 0 0 0 0 0 0
*030755 PUSH 2,030756
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000001 000001 C(C(ACR+1))=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 030755 030755 0 0 261100030756 0 312100032223
IT1 030755 0 0 0 261100030756 0 312100032223
AT3 030755 0 0 0 000000030756 0 261100030756
AT6 030755 030756 0 0 000000030756 0 261100030756
FT0 030755 030756 0 0 312100032223 0 261100030756
FT1A 030755 030756 0 0 312100032223 0 312100032223
FT2 030755 030756 0 0 0 0 312100032223
FT2RQ 030755 030756 0 0 0 0 312100032223
FT3 030755 030756 0 0 0 0 312100032223
FT9 030756 030756 0 0 0 0 312100032223
ET0 030756 030756 0 0 000001000001 0 312100032223
ET1 030756 000001 0 0 000001000001 0 312100032223
ST1 030756 000001 0 0 000001000001 0 312100032223
ST2 030756 000001 0 0 312100032223 0 312100032223
ST3 030756 000001 0 0 312100032223 0 312100032223
ST6 030756 000001 0 0 312100032223 0 312100032223
ST6A 030756 000001 0 0 312100032223 0 312100032223
ST9 030756 000001 0 0 312100032223 0 312100032223
*030756 CAME 2,032223
INITIAL
C(AC)=000001 000001
C(E)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 030756 030756 0 0 312100032223 0 000001000001
IT1 030756 0 0 0 312100032223 0 000001000001
AT3 030756 0 0 0 000000032223 0 312100032223
AT6 030756 032223 0 0 000000032223 0 312100032223
FT0 030756 032223 0 0 000001000001 0 312100032223
FT1A 030756 032223 0 0 000001000001 0 000001000001
FT2 030756 032223 0 0 0 0 000001000001
FT2RQ 030756 032223 0 0 000001000001 0 000001000001
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 14
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0103
FT3 030756 032223 0 0 000001000001 0 000001000001
FT9 030757 032223 0 0 000001000001 0 000001000001
ET0 030760 032223 0 0 0 0 000001000001
ST1A 030760 032223 0 0 0 0 000001000001
ST9 030760 032223 0 0 0 0 000001000001
*030760 JUMPA 0,030761
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 030760 030760 0 0 324000030761 0 000000030761
IT1 030760 0 0 0 324000030761 0 000000030761
AT3 030760 0 0 0 000000030761 0 324000030761
AT6 030760 030761 0 0 000000030761 0 324000030761
FT1A 030760 030761 0 0 000000030761 0 000000030761
FT2 030760 030761 0 0 0 0 000000030761
FT2RQ 030760 030761 0 0 0 0 000000030761
FT3 030760 030761 0 0 0 0 000000030761
FT9 030761 030761 0 0 0 0 000000030761
ET0 030761 030761 0 0 0 0 000000030761
ST1A 030761 030761 0 0 0 0 000000030761
ST9 030761 030761 0 0 0 0 000000030761
*030761 SETZB 0,000002
INITIAL
C(AC)=000000 000000
C(E)=000001 000001
FINAL
C(AC)=000000 000000
C(E)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 030761 030761 0 0 403000000002 0 000000000002
IT1 030761 0 0 0 403000000002 0 000000000002
AT3 030761 0 0 0 000000000002 0 403000000002
AT6 030761 000002 0 0 000000000002 0 403000000002
FT1A 030761 000002 0 0 000000000002 0 000000000002
FT9 030762 000002 0 0 000000000002 0 000000000002
ET0 030762 000002 0 0 0 0 000000000002
ST1 030762 000002 0 0 0 0 000000000002
ST2 030762 000002 0 0 0 0 000000000002
ST6 030762 000002 0 0 0 0 000000000002
ST6A 030762 000002 0 0 0 0 000000000002
ST9 030762 000002 0 0 0 0 000000000002
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 15
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0104
*030762 PUSH 2,032225
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000001 000001 C(C(ACR+1))=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 030762 030762 0 0 261100032225 0 000016541320
IT1 030762 0 0 0 261100032225 0 000016541320
AT3 030762 0 0 0 000000032225 0 261100032225
AT6 030762 032225 0 0 000000032225 0 261100032225
FT0 030762 032225 0 0 000016541320 0 261100032225
FT1A 030762 032225 0 0 000016541320 0 000016541320
FT2 030762 032225 0 0 0 0 000016541320
FT2RQ 030762 032225 0 0 0 0 000016541320
FT3 030762 032225 0 0 0 0 000016541320
FT9 030763 032225 0 0 0 0 000016541320
ET0 030763 032225 0 0 000001000001 0 000016541320
ET1 030763 000001 0 0 000001000001 0 000016541320
ST1 030763 000001 0 0 000001000001 0 000016541320
ST2 030763 000001 0 0 000016541320 0 000016541320
ST3 030763 000001 0 0 000016541320 0 000016541320
ST6 030763 000001 0 0 000016541320 0 000016541320
ST6A 030763 000001 0 0 000016541320 0 000016541320
ST9 030763 000001 0 0 000016541320 0 000016541320
*030763 SKIPE 0,000000
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 030763 030763 0 0 332000000000 0 0
IT1 030763 0 0 0 332000000000 0 0
AT3 030763 0 0 0 0 0 332000000000
AT6 030763 0 0 0 0 0 332000000000
FT0 030763 0 0 0 0 0 332000000000
FT1A 030763 0 0 0 0 0 0
FT9 030764 0 0 0 0 0 0
ET0 030765 0 0 0 0 0 0
ST1A 030765 0 0 0 0 0 0
ST9 030765 0 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 16
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0105
*030765 JUMPA 0,030766
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 030765 030765 0 0 324000030766 0 000000030766
IT1 030765 0 0 0 324000030766 0 000000030766
AT3 030765 0 0 0 000000030766 0 324000030766
AT6 030765 030766 0 0 000000030766 0 324000030766
FT1A 030765 030766 0 0 000000030766 0 000000030766
FT2 030765 030766 0 0 0 0 000000030766
FT2RQ 030765 030766 0 0 0 0 000000030766
FT3 030765 030766 0 0 0 0 000000030766
FT9 030766 030766 0 0 0 0 000000030766
ET0 030766 030766 0 0 0 0 000000030766
ST1A 030766 030766 0 0 0 0 000000030766
ST9 030766 030766 0 0 0 0 000000030766
*030766 SETZB 1,000002
INITIAL
C(AC)=000016 541320
C(E)=000001 000001
FINAL
C(AC)=000000 000000
C(E)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 030766 030766 0 0 403040000002 0 000000000002
IT1 030766 0 0 0 403040000002 0 000000000002
AT3 030766 0 0 0 000000000002 0 403040000002
AT6 030766 000002 0 0 000000000002 0 403040000002
FT1A 030766 000002 0 0 000000000002 0 000000000002
FT9 030767 000002 0 0 000000000002 0 000000000002
ET0 030767 000002 0 0 0 0 000000000002
ST1 030767 000002 0 0 0 0 000000000002
ST2 030767 000002 0 0 0 0 000000000002
ST6 030767 000002 0 0 0 0 000000000002
ST6A 030767 000002 0 0 0 0 000000000002
ST9 030767 000002 0 0 0 0 000000000002
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 17
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0106
*030767 PUSH 2,030770
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000001 000001 C(C(ACR+1))=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 030767 030767 0 0 261100030770 0 306000030770
IT1 030767 0 0 0 261100030770 0 306000030770
AT3 030767 0 0 0 000000030770 0 261100030770
AT6 030767 030770 0 0 000000030770 0 261100030770
FT0 030767 030770 0 0 306000030770 0 261100030770
FT1A 030767 030770 0 0 306000030770 0 306000030770
FT2 030767 030770 0 0 0 0 306000030770
FT2RQ 030767 030770 0 0 0 0 306000030770
FT3 030767 030770 0 0 0 0 306000030770
FT9 030770 030770 0 0 0 0 306000030770
ET0 030770 030770 0 0 000001000001 0 306000030770
ET1 030770 000001 0 0 000001000001 0 306000030770
ST1 030770 000001 0 0 000001000001 0 306000030770
ST2 030770 000001 0 0 306000030770 0 306000030770
ST3 030770 000001 0 0 306000030770 0 306000030770
ST6 030770 000001 0 0 306000030770 0 306000030770
ST6A 030770 000001 0 0 306000030770 0 306000030770
ST9 030770 000001 0 0 306000030770 0 306000030770
*030770 CAIN 0,030770
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 030770 030770 0 0 306000030770 0 000000030770
IT1 030770 0 0 0 306000030770 0 000000030770
AT3 030770 0 0 0 000000030770 0 306000030770
AT6 030770 030770 0 0 000000030770 0 306000030770
FT1A 030770 030770 0 0 000000030770 0 000000030770
FT2 030770 030770 0 0 0 0 000000030770
FT2RQ 030770 030770 0 0 0 0 000000030770
FT3 030770 030770 0 0 0 0 000000030770
FT9 030771 030770 0 0 0 0 000000030770
ET0 030772 030770 0 0 777777747010 0 000000030770
ST1A 030772 030770 0 0 777777747010 0 000000030770
ST9 030772 030770 0 0 777777747010 0 000000030770
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 18
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0107
*030772 JUMPA 0,030773
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 030772 030772 0 0 324000030773 0 000000030773
IT1 030772 0 0 0 324000030773 0 000000030773
AT3 030772 0 0 0 000000030773 0 324000030773
AT6 030772 030773 0 0 000000030773 0 324000030773
FT1A 030772 030773 0 0 000000030773 0 000000030773
FT2 030772 030773 0 0 0 0 000000030773
FT2RQ 030772 030773 0 0 0 0 000000030773
FT3 030772 030773 0 0 0 0 000000030773
FT9 030773 030773 0 0 0 0 000000030773
ET0 030773 030773 0 0 0 0 000000030773
ST1A 030773 030773 0 0 0 0 000000030773
ST9 030773 030773 0 0 0 0 000000030773
*030773 SETZB 1,000002
INITIAL
C(AC)=306000 030770
C(E)=000001 000001
FINAL
C(AC)=000000 000000
C(E)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 030773 030773 0 0 403040000002 0 000000000002
IT1 030773 0 0 0 403040000002 0 000000000002
AT3 030773 0 0 0 000000000002 0 403040000002
AT6 030773 000002 0 0 000000000002 0 403040000002
FT1A 030773 000002 0 0 000000000002 0 000000000002
FT9 030774 000002 0 0 000000000002 0 000000000002
ET0 030774 000002 0 0 0 0 000000000002
ST1 030774 000002 0 0 0 0 000000000002
ST2 030774 000002 0 0 0 0 000000000002
ST6 030774 000002 0 0 0 0 000000000002
ST6A 030774 000002 0 0 0 0 000000000002
ST9 030774 000002 0 0 0 0 000000000002
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 19
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0108
*030774 PUSH 2,032226
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000001 000001 C(C(ACR+1))=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 030774 030774 0 0 261100032226 0 777777777777
IT1 030774 0 0 0 261100032226 0 777777777777
AT3 030774 0 0 0 000000032226 0 261100032226
AT6 030774 032226 0 0 000000032226 0 261100032226
FT0 030774 032226 0 0 777777777777 0 261100032226
FT1A 030774 032226 0 0 777777777777 0 777777777777
FT2 030774 032226 0 0 0 0 777777777777
FT2RQ 030774 032226 0 0 0 0 777777777777
FT3 030774 032226 0 0 0 0 777777777777
FT9 030775 032226 0 0 0 0 777777777777
ET0 030775 032226 0 0 000001000001 0 777777777777
ET1 030775 000001 0 0 000001000001 0 777777777777
ST1 030775 000001 0 0 000001000001 0 777777777777
ST2 030775 000001 0 0 777777777777 0 777777777777
ST3 030775 000001 0 0 777777777777 0 777777777777
ST6 030775 000001 0 0 777777777777 0 777777777777
ST6A 030775 000001 0 0 777777777777 0 777777777777
ST9 030775 000001 0 0 777777777777 0 777777777777
*030775 CAME 1,032226
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 030775 030775 0 0 312040032226 0 777777777777
IT1 030775 0 0 0 312040032226 0 777777777777
AT3 030775 0 0 0 000000032226 0 312040032226
AT6 030775 032226 0 0 000000032226 0 312040032226
FT0 030775 032226 0 0 777777777777 0 312040032226
FT1A 030775 032226 0 0 777777777777 0 777777777777
FT2 030775 032226 0 0 0 0 777777777777
FT2RQ 030775 032226 0 0 777777777777 0 777777777777
FT3 030775 032226 0 0 777777777777 0 777777777777
FT9 030776 032226 0 0 777777777777 0 777777777777
ET0 030777 032226 0 0 0 0 777777777777
ST1A 030777 032226 0 0 0 0 777777777777
ST9 030777 032226 0 0 0 0 777777777777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 20
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0109
*030777 JUMPA 0,031000
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 030777 030777 0 0 324000031000 0 000000031000
IT1 030777 0 0 0 324000031000 0 000000031000
AT3 030777 0 0 0 000000031000 0 324000031000
AT6 030777 0 0 0 000000031000 0 324000031000
FT1A 030777 0 0 0 000000031000 0 000000031000
FT2 030777 0 0 0 0 0 000000031000
FT2RQ 030777 0 0 0 0 0 000000031000
FT3 030777 0 0 0 0 0 000000031000
FT9 0 0 0 0 0 0 000000031000
ET0 0 0 0 0 0 0 000000031000
ST1A 0 0 0 0 0 0 000000031000
ST9 0 0 0 0 0 0 000000031000
*031000 SETZM 0,000002
INITIAL
C(AC)=000000 000000
C(E)=000001 000001
FINAL
C(E)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 0 0 0 0 402000000002 0 000000000002
IT1 0 0 0 0 402000000002 0 000000000002
AT3 0 0 0 0 000000000002 0 402000000002
AT6 0 000002 0 0 000000000002 0 402000000002
FT1A 0 000002 0 0 000000000002 0 000000000002
FT9 031001 000002 0 0 000000000002 0 000000000002
ET0 031001 000002 0 0 0 0 000000000002
ST6 031001 000002 0 0 0 0 000000000002
ST6A 031001 000002 0 0 0 0 000000000002
ST9 031001 000002 0 0 0 0 000000000002
*031001 PUSH 2,032227
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000001 000001 C(C(ACR+1))=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031001 031001 0 0 261100032227 0 0
IT1 031001 0 0 0 261100032227 0 0
AT3 031001 0 0 0 000000032227 0 261100032227
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 21
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0110
AT6 031001 032227 0 0 000000032227 0 261100032227
FT0 031001 032227 0 0 0 0 261100032227
FT1A 031001 032227 0 0 0 0 0
FT2 031001 032227 0 0 0 0 0
FT2RQ 031001 032227 0 0 0 0 0
FT3 031001 032227 0 0 0 0 0
FT9 031002 032227 0 0 0 0 0
ET0 031002 032227 0 0 000001000001 0 0
ET1 031002 000001 0 0 000001000001 0 0
ST1 031002 000001 0 0 000001000001 0 0
ST2 031002 000001 0 0 0 0 0
ST3 031002 000001 0 0 0 0 0
ST6 031002 000001 0 0 0 0 0
ST6A 031002 000001 0 0 0 0 0
ST9 031002 000001 0 0 0 0 0
*031002 SKIPE 0,000001
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031002 031002 0 0 332000000001 0 0
IT1 031002 0 0 0 332000000001 0 0
AT3 031002 0 0 0 000000000001 0 332000000001
AT6 031002 000001 0 0 000000000001 0 332000000001
FT0 031002 000001 0 0 0 0 332000000001
FT1A 031002 000001 0 0 0 0 0
FT9 031003 000001 0 0 0 0 0
ET0 031004 000001 0 0 0 0 0
ST1A 031004 000001 0 0 0 0 0
ST9 031004 000001 0 0 0 0 0
*031004 JUMPA 0,031005
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031004 031004 0 0 324000031005 0 000000031005
IT1 031004 0 0 0 324000031005 0 000000031005
AT3 031004 0 0 0 000000031005 0 324000031005
AT6 031004 031005 0 0 000000031005 0 324000031005
FT1A 031004 031005 0 0 000000031005 0 000000031005
FT2 031004 031005 0 0 0 0 000000031005
FT2RQ 031004 031005 0 0 0 0 000000031005
FT3 031004 031005 0 0 0 0 000000031005
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 22
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0111
FT9 031005 031005 0 0 0 0 000000031005
ET0 031005 031005 0 0 0 0 000000031005
ST1A 031005 031005 0 0 0 0 000000031005
ST9 031005 031005 0 0 0 0 000000031005
*031005 MOVEI 2,777777
INITIAL
C(AC)=000001 000001
FINAL
C(AC)=000000 777777
TIME PC MA SC FE AR MQ BR
IT0 031005 031005 0 0 201100777777 0 000000777777
IT1 031005 0 0 0 201100777777 0 000000777777
AT3 031005 0 0 0 000000777777 0 201100777777
AT6 031005 777777 0 0 000000777777 0 201100777777
FT1A 031005 777777 0 0 000000777777 0 000000777777
FT9 031006 777777 0 0 000000777777 0 000000777777
ET0 031006 777777 0 0 000000777777 0 000000777777
ST1 031006 777777 0 0 000000777777 0 000000777777
ST2 031006 777777 0 0 000000777777 0 000000777777
ST9 031006 777777 0 0 000000777777 0 000000777777
*031006 SETZ 0,000000
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031006 031006 0 0 400000000000 0 0
IT1 031006 0 0 0 400000000000 0 0
AT3 031006 0 0 0 0 0 400000000000
AT6 031006 0 0 0 0 0 400000000000
FT1A 031006 0 0 0 0 0 0
FT9 031007 0 0 0 0 0 0
ET0 031007 0 0 0 0 0 0
ST1 031007 0 0 0 0 0 0
ST2 031007 0 0 0 0 0 0
ST9 031007 0 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 23
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0112
*031007 PUSH 2,032226
INITIAL
C(AC)=000000 777777
FINAL
C(AC)=000002 000000 C(C(ACR+1))=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031007 031007 0 0 261100032226 0 777777777777
IT1 031007 0 0 0 261100032226 0 777777777777
AT3 031007 0 0 0 000000032226 0 261100032226
AT6 031007 032226 0 0 000000032226 0 261100032226
FT0 031007 032226 0 0 777777777777 0 261100032226
FT1A 031007 032226 0 0 777777777777 0 777777777777
FT2 031007 032226 0 0 0 0 777777777777
FT2RQ 031007 032226 0 0 000000777777 0 777777777777
FT3 031007 032226 0 0 000000777777 0 777777777777
FT9 031010 032226 0 0 000000777777 0 777777777777
ET0 031010 032226 0 0 000002000000 0 777777777777
ET1 031010 0 0 0 000002000000 0 777777777777
ST1 031010 0 0 0 000002000000 0 777777777777
ST2 031010 0 0 0 777777777777 0 777777777777
ST3 031010 0 0 0 777777777777 0 777777777777
ST6 031010 0 0 0 777777777777 0 777777777777
ST6A 031010 0 0 0 777777777777 0 777777777777
ST9 031010 0 0 0 777777777777 0 777777777777
*031010 CAME 0,032226
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031010 031010 0 0 312000032226 0 777777777777
IT1 031010 0 0 0 312000032226 0 777777777777
AT3 031010 0 0 0 000000032226 0 312000032226
AT6 031010 032226 0 0 000000032226 0 312000032226
FT0 031010 032226 0 0 777777777777 0 312000032226
FT1A 031010 032226 0 0 777777777777 0 777777777777
FT2 031010 032226 0 0 0 0 777777777777
FT2RQ 031010 032226 0 0 777777777777 0 777777777777
FT3 031010 032226 0 0 777777777777 0 777777777777
FT9 031011 032226 0 0 777777777777 0 777777777777
ET0 031012 032226 0 0 0 0 777777777777
ST1A 031012 032226 0 0 0 0 777777777777
ST9 031012 032226 0 0 0 0 777777777777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 24
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0113
*031012 JUMPA 0,031013
INITIAL
C(AC)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031012 031012 0 0 324000031013 0 000000031013
IT1 031012 0 0 0 324000031013 0 000000031013
AT3 031012 0 0 0 000000031013 0 324000031013
AT6 031012 031013 0 0 000000031013 0 324000031013
FT1A 031012 031013 0 0 000000031013 0 000000031013
FT2 031012 031013 0 0 0 0 000000031013
FT2RQ 031012 031013 0 0 777777777777 0 000000031013
FT3 031012 031013 0 0 777777777777 0 000000031013
FT9 031013 031013 0 0 777777777777 0 000000031013
ET0 031013 031013 0 0 777777777777 0 000000031013
ST1A 031013 031013 0 0 777777777777 0 000000031013
ST9 031013 031013 0 0 777777777777 0 000000031013
*031013 MOVEI 2,777777
INITIAL
C(AC)=000002 000000
FINAL
C(AC)=000000 777777
TIME PC MA SC FE AR MQ BR
IT0 031013 031013 0 0 201100777777 0 000000777777
IT1 031013 0 0 0 201100777777 0 000000777777
AT3 031013 0 0 0 000000777777 0 201100777777
AT6 031013 777777 0 0 000000777777 0 201100777777
FT1A 031013 777777 0 0 000000777777 0 000000777777
FT9 031014 777777 0 0 000000777777 0 000000777777
ET0 031014 777777 0 0 000000777777 0 000000777777
ST1 031014 777777 0 0 000000777777 0 000000777777
ST2 031014 777777 0 0 000000777777 0 000000777777
ST9 031014 777777 0 0 000000777777 0 000000777777
*031014 PUSH 2,000000
INITIAL
C(AC)=000000 777777
FINAL
C(AC)=000002 000000 C(C(ACR+1))=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031014 031014 0 0 261100000000 0 777777777777
IT1 031014 0 0 0 261100000000 0 777777777777
AT3 031014 0 0 0 0 0 261100000000
AT6 031014 0 0 0 0 0 261100000000
FT0 031014 0 0 0 777777777777 0 261100000000
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 25
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0114
FT1A 031014 0 0 0 777777777777 0 777777777777
FT2 031014 0 0 0 0 0 777777777777
FT2RQ 031014 0 0 0 000000777777 0 777777777777
FT3 031014 0 0 0 000000777777 0 777777777777
FT9 031015 0 0 0 000000777777 0 777777777777
ET0 031015 0 0 0 000002000000 0 777777777777
ET1 031015 0 0 0 000002000000 0 777777777777
ST1 031015 0 0 0 000002000000 0 777777777777
ST2 031015 0 0 0 777777777777 0 777777777777
ST3 031015 0 0 0 777777777777 0 777777777777
ST6 031015 0 0 0 777777777777 0 777777777777
ST6A 031015 0 0 0 777777777777 0 777777777777
ST9 031015 0 0 0 777777777777 0 777777777777
*031015 CAME 2,032230
INITIAL
C(AC)=000002 000000
C(E)=000002 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031015 031015 0 0 312100032230 0 000002000000
IT1 031015 0 0 0 312100032230 0 000002000000
AT3 031015 0 0 0 000000032230 0 312100032230
AT6 031015 032230 0 0 000000032230 0 312100032230
FT0 031015 032230 0 0 000002000000 0 312100032230
FT1A 031015 032230 0 0 000002000000 0 000002000000
FT2 031015 032230 0 0 0 0 000002000000
FT2RQ 031015 032230 0 0 000002000000 0 000002000000
FT3 031015 032230 0 0 000002000000 0 000002000000
FT9 031016 032230 0 0 000002000000 0 000002000000
ET0 031017 032230 0 0 0 0 000002000000
ST1A 031017 032230 0 0 0 0 000002000000
ST9 031017 032230 0 0 0 0 000002000000
*031017 JUMPA 0,031020
INITIAL
C(AC)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031017 031017 0 0 324000031020 0 000000031020
IT1 031017 0 0 0 324000031020 0 000000031020
AT3 031017 0 0 0 000000031020 0 324000031020
AT6 031017 031020 0 0 000000031020 0 324000031020
FT1A 031017 031020 0 0 000000031020 0 000000031020
FT2 031017 031020 0 0 0 0 000000031020
FT2RQ 031017 031020 0 0 777777777777 0 000000031020
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 26
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0115
FT3 031017 031020 0 0 777777777777 0 000000031020
FT9 031020 031020 0 0 777777777777 0 000000031020
ET0 031020 031020 0 0 777777777777 0 000000031020
ST1A 031020 031020 0 0 777777777777 0 000000031020
ST9 031020 031020 0 0 777777777777 0 000000031020
*031020 MOVSI 1,200000
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=200000 000000
TIME PC MA SC FE AR MQ BR
IT0 031020 031020 0 0 205040200000 0 000000200000
IT1 031020 0 0 0 205040200000 0 000000200000
AT3 031020 0 0 0 000000200000 0 205040200000
AT6 031020 0 0 0 000000200000 0 205040200000
FT1A 031020 0 0 0 000000200000 0 000000200000
FT9 031021 0 0 0 000000200000 0 000000200000
ET0 031021 0 0 0 200000000000 0 000000200000
ST1 031021 0 0 0 200000000000 0 000000200000
ST2 031021 0 0 0 200000000000 0 000000200000
ST9 031021 0 0 0 200000000000 0 000000200000
*031021 JFCL 17,031022
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031021 031021 0 0 255740031022 0 000000031022
IT1 031021 0 0 0 255740031022 0 000000031022
AT3 031021 0 0 0 000000031022 0 255740031022
AT6 031021 031022 0 0 000000031022 0 255740031022
FT1A 031021 031022 0 0 000000031022 0 000000031022
FT9 031022 031022 0 0 000000031022 0 000000031022
ET0 031022 031022 0 0 000000031022 0 000000031022
ST1A 031022 031022 0 0 000000031022 0 000000031022
ST9 031022 031022 0 0 000000031022 0 000000031022
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 27
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0116
*031022 JRST 2,031023(1)
INITIAL
C(AC)=000002 000000
C(E)=400000 000000
FINAL
C(E)=400000 000000
TIME PC MA SC FE AR MQ BR
IT0 031022 031022 0 0 254101031023 0 200000031023
IT1 031022 0 0 0 254101031023 0 200000031023
AT1 031022 0 0 0 0 0 254101031023
AT2 031022 0 0 0 200000000000 0 254101031023
AT3 031022 0 0 0 000000031023 0 200000031023
AT6 031022 031023 0 0 000000031023 0 200000031023
FT1A 031022 031023 0 0 000000031023 0 200000031023
FT9 031023 031023 0 0 000000031023 0 200000031023
ET0 031023 031023 0 0 000000031023 0 200000031023
ST1A 031023 031023 0 0 000000031023 0 200000031023
ST9 031023 031023 0 0 000000031023 0 200000031023
*031023 SETZ 0,000000
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031023 031023 0 0 400000000000 0 0
IT1 031023 0 0 0 400000000000 0 0
AT3 031023 0 0 0 0 0 400000000000
AT6 031023 0 0 0 0 0 400000000000
FT1A 031023 0 0 0 0 0 0
FT9 031024 0 0 0 0 0 0
ET0 031024 0 0 0 0 0 0
ST1 031024 0 0 0 0 0 0
ST2 031024 0 0 0 0 0 0
ST9 031024 0 0 0 0 0 0
*031024 PUSHJ 0,031026
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000001 000001 C(C(ACR+1))=000002 000000
TIME PC MA SC FE AR MQ BR
IT0 031024 031024 0 0 260000031026 0 200000031025
IT1 031024 0 0 0 260000031026 0 200000031025
AT3 031024 0 0 0 000000031026 0 260000031026
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 28
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0117
AT6 031024 031026 0 0 000000031026 0 260000031026
FT1A 031024 031026 0 0 000000031026 0 000000031026
FT2 031024 031026 0 0 0 0 000000031026
FT2RQ 031024 031026 0 0 0 0 000000031026
FT3 031024 031026 0 0 0 0 000000031026
FT9 031025 031026 0 0 0 0 000000031026
ET0 031026 031026 0 0 200000031025 000001000001 000000031026
ET1 031026 031026 0 0 000001000001 000001000001 200000031025
ET2 031026 000001 0 0 000001000001 000001000001 200000031025
ST1 031026 000001 0 0 000001000001 000001000001 200000031025
ST2 031026 000001 0 0 200000031025 000001000001 200000031025
ST3 031026 000001 0 0 200000031025 000001000001 200000031025
ST6 031026 000001 0 0 200000031025 000001000001 200000031025
ST6A 031026 000001 0 0 200000031025 000001000001 200000031025
ST9 031026 000001 0 0 200000031025 000001000001 200000031025
*031026 JUMPA 0,031027
INITIAL
C(AC)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031026 031026 0 0 324000031027 0 000000031027
IT1 031026 0 0 0 324000031027 0 000000031027
AT3 031026 0 0 0 000000031027 0 324000031027
AT6 031026 031027 0 0 000000031027 0 324000031027
FT1A 031026 031027 0 0 000000031027 0 000000031027
FT2 031026 031027 0 0 0 0 000000031027
FT2RQ 031026 031027 0 0 000001000001 0 000000031027
FT3 031026 031027 0 0 000001000001 0 000000031027
FT9 031027 031027 0 0 000001000001 0 000000031027
ET0 031027 031027 0 0 000001000001 0 000000031027
ST1A 031027 031027 0 0 000001000001 0 000000031027
ST9 031027 031027 0 0 000001000001 0 000000031027
*031027 MOVSI 1,200000
INITIAL
C(AC)=200000 031025
FINAL
C(AC)=200000 000000
TIME PC MA SC FE AR MQ BR
IT0 031027 031027 0 0 205040200000 0 000000200000
IT1 031027 0 0 0 205040200000 0 000000200000
AT3 031027 0 0 0 000000200000 0 205040200000
AT6 031027 0 0 0 000000200000 0 205040200000
FT1A 031027 0 0 0 000000200000 0 000000200000
FT9 031030 0 0 0 000000200000 0 000000200000
ET0 031030 0 0 0 200000000000 0 000000200000
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 29
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0118
ST1 031030 0 0 0 200000000000 0 000000200000
ST2 031030 0 0 0 200000000000 0 000000200000
ST9 031030 0 0 0 200000000000 0 000000200000
*031030 JFCL 17,031031
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031030 031030 0 0 255740031031 0 000000031031
IT1 031030 0 0 0 255740031031 0 000000031031
AT3 031030 0 0 0 000000031031 0 255740031031
AT6 031030 031031 0 0 000000031031 0 255740031031
FT1A 031030 031031 0 0 000000031031 0 000000031031
FT9 031031 031031 0 0 000000031031 0 000000031031
ET0 031031 031031 0 0 000000031031 0 000000031031
ST1A 031031 031031 0 0 000000031031 0 000000031031
ST9 031031 031031 0 0 000000031031 0 000000031031
*031031 JRST 2,031032(1)
INITIAL
C(AC)=000002 000000
C(E)=403040 031034
FINAL
C(E)=403040 031034
TIME PC MA SC FE AR MQ BR
IT0 031031 031031 0 0 254101031032 0 200000031032
IT1 031031 0 0 0 254101031032 0 200000031032
AT1 031031 0 0 0 0 0 254101031032
AT2 031031 0 0 0 200000000000 0 254101031032
AT3 031031 0 0 0 000000031032 0 200000031032
AT6 031031 031032 0 0 000000031032 0 200000031032
FT1A 031031 031032 0 0 000000031032 0 200000031032
FT9 031032 031032 0 0 000000031032 0 200000031032
ET0 031032 031032 0 0 000000031032 0 200000031032
ST1A 031032 031032 0 0 000000031032 0 200000031032
ST9 031032 031032 0 0 000000031032 0 200000031032
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 30
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0119
*031032 SETZB 1,031034
INITIAL
C(AC)=200000 000000
C(E)=000000 000000
FINAL
C(AC)=000000 000000
C(E)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031032 031032 0 0 403040031034 0 000000031034
IT1 031032 0 0 0 403040031034 0 000000031034
AT3 031032 0 0 0 000000031034 0 403040031034
AT6 031032 031034 0 0 000000031034 0 403040031034
FT1A 031032 031034 0 0 000000031034 0 000000031034
FT9 031033 031034 0 0 000000031034 0 000000031034
ET0 031033 031034 0 0 0 0 000000031034
ST1 031033 031034 0 0 0 0 000000031034
ST2 031033 031034 0 0 0 0 000000031034
ST6 031033 031034 0 0 0 0 000000031034
ST6A 031033 031034 0 0 0 0 000000031034
ST9 031033 031034 0 0 0 0 000000031034
*031033 PUSHJ 0,031036
INITIAL
C(AC)=000001 000001
FINAL
C(AC)=000002 000002 C(C(ACR+1))=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031033 031033 0 0 260000031036 0 200000031034
IT1 031033 0 0 0 260000031036 0 200000031034
AT3 031033 0 0 0 000000031036 0 260000031036
AT6 031033 031036 0 0 000000031036 0 260000031036
FT1A 031033 031036 0 0 000000031036 0 000000031036
FT2 031033 031036 0 0 0 0 000000031036
FT2RQ 031033 031036 0 0 000001000001 0 000000031036
FT3 031033 031036 0 0 000001000001 0 000000031036
FT9 031034 031036 0 0 000001000001 0 000000031036
ET0 031036 031036 0 0 200000031034 000002000002 000000031036
ET1 031036 031036 0 0 000002000002 000002000002 200000031034
ET2 031036 000002 0 0 000002000002 000002000002 200000031034
ST1 031036 000002 0 0 000002000002 000002000002 200000031034
ST2 031036 000002 0 0 200000031034 000002000002 200000031034
ST3 031036 000002 0 0 200000031034 000002000002 200000031034
ST6 031036 000002 0 0 200000031034 000002000002 200000031034
ST6A 031036 000002 0 0 200000031034 000002000002 200000031034
ST9 031036 000002 0 0 200000031034 000002000002 200000031034
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 31
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0120
*031036 SKIPE 0,031034
INITIAL
C(AC)=000002 000002
C(E)=000000 000000
FINAL
C(AC)=000002 000002
TIME PC MA SC FE AR MQ BR
IT0 031036 031036 0 0 332000031034 0 0
IT1 031036 0 0 0 332000031034 0 0
AT3 031036 0 0 0 000000031034 0 332000031034
AT6 031036 031034 0 0 000000031034 0 332000031034
FT0 031036 031034 0 0 0 0 332000031034
FT1A 031036 031034 0 0 0 0 0
FT9 031037 031034 0 0 0 0 0
ET0 031040 031034 0 0 0 0 0
ST1A 031040 031034 0 0 0 0 0
ST9 031040 031034 0 0 0 0 0
*031040 JUMPA 0,031041
INITIAL
C(AC)=000002 000002
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031040 031040 0 0 324000031041 0 000000031041
IT1 031040 0 0 0 324000031041 0 000000031041
AT3 031040 0 0 0 000000031041 0 324000031041
AT6 031040 031041 0 0 000000031041 0 324000031041
FT1A 031040 031041 0 0 000000031041 0 000000031041
FT2 031040 031041 0 0 0 0 000000031041
FT2RQ 031040 031041 0 0 000002000002 0 000000031041
FT3 031040 031041 0 0 000002000002 0 000000031041
FT9 031041 031041 0 0 000002000002 0 000000031041
ET0 031041 031041 0 0 000002000002 0 000000031041
ST1A 031041 031041 0 0 000002000002 0 000000031041
ST9 031041 031041 0 0 000002000002 0 000000031041
*031041 MOVSI 1,200000
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=200000 000000
TIME PC MA SC FE AR MQ BR
IT0 031041 031041 0 0 205040200000 0 000000200000
IT1 031041 0 0 0 205040200000 0 000000200000
AT3 031041 0 0 0 000000200000 0 205040200000
AT6 031041 0 0 0 000000200000 0 205040200000
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 32
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0121
FT1A 031041 0 0 0 000000200000 0 000000200000
FT9 031042 0 0 0 000000200000 0 000000200000
ET0 031042 0 0 0 200000000000 0 000000200000
ST1 031042 0 0 0 200000000000 0 000000200000
ST2 031042 0 0 0 200000000000 0 000000200000
ST9 031042 0 0 0 200000000000 0 000000200000
*031042 JFCL 17,031043
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031042 031042 0 0 255740031043 0 000000031043
IT1 031042 0 0 0 255740031043 0 000000031043
AT3 031042 0 0 0 000000031043 0 255740031043
AT6 031042 031043 0 0 000000031043 0 255740031043
FT1A 031042 031043 0 0 000000031043 0 000000031043
FT9 031043 031043 0 0 000000031043 0 000000031043
ET0 031043 031043 0 0 000000031043 0 000000031043
ST1A 031043 031043 0 0 000000031043 0 000000031043
ST9 031043 031043 0 0 000000031043 0 000000031043
*031043 JRST 2,031044(1)
INITIAL
C(AC)=200000 031034
C(E)=403000 000001
FINAL
C(E)=403000 000001
TIME PC MA SC FE AR MQ BR
IT0 031043 031043 0 0 254101031044 0 200000031044
IT1 031043 0 0 0 254101031044 0 200000031044
AT1 031043 0 0 0 0 0 254101031044
AT2 031043 0 0 0 200000000000 0 254101031044
AT3 031043 0 0 0 000000031044 0 200000031044
AT6 031043 031044 0 0 000000031044 0 200000031044
FT1A 031043 031044 0 0 000000031044 0 200000031044
FT9 031044 031044 0 0 000000031044 0 200000031044
ET0 031044 031044 0 0 000000031044 0 200000031044
ST1A 031044 031044 0 0 000000031044 0 200000031044
ST9 031044 031044 0 0 000000031044 0 200000031044
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 33
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0122
*031044 SETZB 0,000001
INITIAL
C(AC)=000002 000002
C(E)=200000 000000
FINAL
C(AC)=000000 000000
C(E)=200000 000000
TIME PC MA SC FE AR MQ BR
IT0 031044 031044 0 0 403000000001 0 000000000001
IT1 031044 0 0 0 403000000001 0 000000000001
AT3 031044 0 0 0 000000000001 0 403000000001
AT6 031044 000001 0 0 000000000001 0 403000000001
FT1A 031044 000001 0 0 000000000001 0 000000000001
FT9 031045 000001 0 0 000000000001 0 000000000001
ET0 031045 000001 0 0 0 0 000000000001
ST1 031045 000001 0 0 0 0 000000000001
ST2 031045 000001 0 0 0 0 000000000001
ST6 031045 000001 0 0 0 0 000000000001
ST6A 031045 000001 0 0 0 0 000000000001
ST9 031045 000001 0 0 0 0 000000000001
*031045 PUSHJ 0,031046
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000001 000001 C(C(ACR+1))=200000 031034
TIME PC MA SC FE AR MQ BR
IT0 031045 031045 0 0 260000031046 0 200000031046
IT1 031045 0 0 0 260000031046 0 200000031046
AT3 031045 0 0 0 000000031046 0 260000031046
AT6 031045 031046 0 0 000000031046 0 260000031046
FT1A 031045 031046 0 0 000000031046 0 000000031046
FT2 031045 031046 0 0 0 0 000000031046
FT2RQ 031045 031046 0 0 0 0 000000031046
FT3 031045 031046 0 0 0 0 000000031046
FT9 031046 031046 0 0 0 0 000000031046
ET0 031046 031046 0 0 200000031046 000001000001 000000031046
ET1 031046 031046 0 0 000001000001 000001000001 200000031046
ET2 031046 000001 0 0 000001000001 000001000001 200000031046
ST1 031046 000001 0 0 000001000001 000001000001 200000031046
ST2 031046 000001 0 0 200000031046 000001000001 200000031046
ST3 031046 000001 0 0 200000031046 000001000001 200000031046
ST6 031046 000001 0 0 200000031046 000001000001 200000031046
ST6A 031046 000001 0 0 200000031046 000001000001 200000031046
ST9 031046 000001 0 0 200000031046 000001000001 200000031046
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 34
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0123
*031046 MOVE 2,031046
INITIAL
C(AC)=200000 031034
C(E)=200100 031046
FINAL
C(AC)=200100 031046
TIME PC MA SC FE AR MQ BR
IT0 031046 031046 0 0 200100031046 0 200100031046
IT1 031046 0 0 0 200100031046 0 200100031046
AT3 031046 0 0 0 000000031046 0 200100031046
AT6 031046 031046 0 0 000000031046 0 200100031046
FT0 031046 031046 0 0 200100031046 0 200100031046
FT1A 031046 031046 0 0 200100031046 0 200100031046
FT9 031047 031046 0 0 200100031046 0 200100031046
ET0 031047 031046 0 0 200100031046 0 200100031046
ST1 031047 031046 0 0 200100031046 0 200100031046
ST2 031047 031046 0 0 200100031046 0 200100031046
ST9 031047 031046 0 0 200100031046 0 200100031046
*031047 CAME 2,031046
INITIAL
C(AC)=200100 031046
C(E)=200100 031046
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031047 031047 0 0 312100031046 0 200100031046
IT1 031047 0 0 0 312100031046 0 200100031046
AT3 031047 0 0 0 000000031046 0 312100031046
AT6 031047 031046 0 0 000000031046 0 312100031046
FT0 031047 031046 0 0 200100031046 0 312100031046
FT1A 031047 031046 0 0 200100031046 0 200100031046
FT2 031047 031046 0 0 0 0 200100031046
FT2RQ 031047 031046 0 0 200100031046 0 200100031046
FT3 031047 031046 0 0 200100031046 0 200100031046
FT9 031050 031046 0 0 200100031046 0 200100031046
ET0 031051 031046 0 0 0 0 200100031046
ST1A 031051 031046 0 0 0 0 200100031046
ST9 031051 031046 0 0 0 0 200100031046
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 35
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0124
*031051 JUMPA 0,031052
INITIAL
C(AC)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031051 031051 0 0 324000031052 0 000000031052
IT1 031051 0 0 0 324000031052 0 000000031052
AT3 031051 0 0 0 000000031052 0 324000031052
AT6 031051 031052 0 0 000000031052 0 324000031052
FT1A 031051 031052 0 0 000000031052 0 000000031052
FT2 031051 031052 0 0 0 0 000000031052
FT2RQ 031051 031052 0 0 000001000001 0 000000031052
FT3 031051 031052 0 0 000001000001 0 000000031052
FT9 031052 031052 0 0 000001000001 0 000000031052
ET0 031052 031052 0 0 000001000001 0 000000031052
ST1A 031052 031052 0 0 000001000001 0 000000031052
ST9 031052 031052 0 0 000001000001 0 000000031052
*031052 MOVEI 2,000001
INITIAL
C(AC)=200100 031046
FINAL
C(AC)=000000 000001
TIME PC MA SC FE AR MQ BR
IT0 031052 031052 0 0 201100000001 0 000000000001
IT1 031052 0 0 0 201100000001 0 000000000001
AT3 031052 0 0 0 000000000001 0 201100000001
AT6 031052 000001 0 0 000000000001 0 201100000001
FT1A 031052 000001 0 0 000000000001 0 000000000001
FT9 031053 000001 0 0 000000000001 0 000000000001
ET0 031053 000001 0 0 000000000001 0 000000000001
ST1 031053 000001 0 0 000000000001 0 000000000001
ST2 031053 000001 0 0 000000000001 0 000000000001
ST9 031053 000001 0 0 000000000001 0 000000000001
*031053 SETZ 0,000000
INITIAL
C(AC)=000001 000001
C(E)=000001 000001
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031053 031053 0 0 400000000000 0 0
IT1 031053 0 0 0 400000000000 0 0
AT3 031053 0 0 0 0 0 400000000000
AT6 031053 0 0 0 0 0 400000000000
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 36
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0125
FT1A 031053 0 0 0 0 0 0
FT9 031054 0 0 0 0 0 0
ET0 031054 0 0 0 0 0 0
ST1 031054 0 0 0 0 0 0
ST2 031054 0 0 0 0 0 0
ST9 031054 0 0 0 0 0 0
*031054 PUSHJ 2,031055
INITIAL
C(AC)=000000 000001
FINAL
C(AC)=000001 000002 C(C(ACR+1))=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031054 031054 0 0 260100031055 0 200000031055
IT1 031054 0 0 0 260100031055 0 200000031055
AT3 031054 0 0 0 000000031055 0 260100031055
AT6 031054 031055 0 0 000000031055 0 260100031055
FT1A 031054 031055 0 0 000000031055 0 000000031055
FT2 031054 031055 0 0 0 0 000000031055
FT2RQ 031054 031055 0 0 000000000001 0 000000031055
FT3 031054 031055 0 0 000000000001 0 000000031055
FT9 031055 031055 0 0 000000000001 0 000000031055
ET0 031055 031055 0 0 200000031055 000001000002 000000031055
ET1 031055 031055 0 0 000001000002 000001000002 200000031055
ET2 031055 000002 0 0 000001000002 000001000002 200000031055
ST1 031055 000002 0 0 000001000002 000001000002 200000031055
ST2 031055 000002 0 0 200000031055 000001000002 200000031055
ST3 031055 000002 0 0 200000031055 000001000002 200000031055
ST6 031055 000002 0 0 200000031055 000001000002 200000031055
ST6A 031055 000002 0 0 200000031055 000001000002 200000031055
ST9 031055 000002 0 0 200000031055 000001000002 200000031055
*031055 SKIPE 0,000000
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031055 031055 0 0 332000000000 0 0
IT1 031055 0 0 0 332000000000 0 0
AT3 031055 0 0 0 0 0 332000000000
AT6 031055 0 0 0 0 0 332000000000
FT0 031055 0 0 0 0 0 332000000000
FT1A 031055 0 0 0 0 0 0
FT9 031056 0 0 0 0 0 0
ET0 031057 0 0 0 0 0 0
ST1A 031057 0 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 37
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0126
ST9 031057 0 0 0 0 0 0
*031057 JUMPA 0,031060
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031057 031057 0 0 324000031060 0 000000031060
IT1 031057 0 0 0 324000031060 0 000000031060
AT3 031057 0 0 0 000000031060 0 324000031060
AT6 031057 031060 0 0 000000031060 0 324000031060
FT1A 031057 031060 0 0 000000031060 0 000000031060
FT2 031057 031060 0 0 0 0 000000031060
FT2RQ 031057 031060 0 0 0 0 000000031060
FT3 031057 031060 0 0 0 0 000000031060
FT9 031060 031060 0 0 0 0 000000031060
ET0 031060 031060 0 0 0 0 000000031060
ST1A 031060 031060 0 0 0 0 000000031060
ST9 031060 031060 0 0 0 0 000000031060
*031060 SETZB 0,000001
INITIAL
C(AC)=000000 000000
C(E)=200000 031046
FINAL
C(AC)=000000 000000
C(E)=200000 031046
TIME PC MA SC FE AR MQ BR
IT0 031060 031060 0 0 403000000001 0 000000000001
IT1 031060 0 0 0 403000000001 0 000000000001
AT3 031060 0 0 0 000000000001 0 403000000001
AT6 031060 000001 0 0 000000000001 0 403000000001
FT1A 031060 000001 0 0 000000000001 0 000000000001
FT9 031061 000001 0 0 000000000001 0 000000000001
ET0 031061 000001 0 0 0 0 000000000001
ST1 031061 000001 0 0 0 0 000000000001
ST2 031061 000001 0 0 0 0 000000000001
ST6 031061 000001 0 0 0 0 000000000001
ST6A 031061 000001 0 0 0 0 000000000001
ST9 031061 000001 0 0 0 0 000000000001
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 38
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0127
*031061 PUSHJ 0,031063
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000001 000001 C(C(ACR+1))=200000 031055
TIME PC MA SC FE AR MQ BR
IT0 031061 031061 0 0 260000031063 0 200000031062
IT1 031061 0 0 0 260000031063 0 200000031062
AT3 031061 0 0 0 000000031063 0 260000031063
AT6 031061 031063 0 0 000000031063 0 260000031063
FT1A 031061 031063 0 0 000000031063 0 000000031063
FT2 031061 031063 0 0 0 0 000000031063
FT2RQ 031061 031063 0 0 0 0 000000031063
FT3 031061 031063 0 0 0 0 000000031063
FT9 031062 031063 0 0 0 0 000000031063
ET0 031063 031063 0 0 200000031062 000001000001 000000031063
ET1 031063 031063 0 0 000001000001 000001000001 200000031062
ET2 031063 000001 0 0 000001000001 000001000001 200000031062
ST1 031063 000001 0 0 000001000001 000001000001 200000031062
ST2 031063 000001 0 0 200000031062 000001000001 200000031062
ST3 031063 000001 0 0 200000031062 000001000001 200000031062
ST6 031063 000001 0 0 200000031062 000001000001 200000031062
ST6A 031063 000001 0 0 200000031062 000001000001 200000031062
ST9 031063 000001 0 0 200000031062 000001000001 200000031062
*031063 ANDI 1,777777
INITIAL
C(AC)=200000 031062
FINAL
C(AC)=000000 031062
TIME PC MA SC FE AR MQ BR
IT0 031063 031063 0 0 405040777777 0 000000777777
IT1 031063 0 0 0 405040777777 0 000000777777
AT3 031063 0 0 0 000000777777 0 405040777777
AT6 031063 777777 0 0 000000777777 0 405040777777
FT1A 031063 777777 0 0 000000777777 0 000000777777
FT2 031063 777777 0 0 0 0 000000777777
FT2RQ 031063 777777 0 0 200000031062 0 000000777777
FT3 031063 777777 0 0 200000031062 0 000000777777
FT9 031064 777777 0 0 200000031062 0 000000777777
ET0 031064 777777 0 0 000000031062 0 000000777777
ST1 031064 777777 0 0 000000031062 0 000000777777
ST2 031064 777777 0 0 000000031062 0 000000777777
ST9 031064 777777 0 0 000000031062 0 000000777777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 39
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0128
*031064 CAIN 1,031063
INITIAL
C(AC)=000000 031062
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031064 031064 0 0 306040031063 0 000000031063
IT1 031064 0 0 0 306040031063 0 000000031063
AT3 031064 0 0 0 000000031063 0 306040031063
AT6 031064 031063 0 0 000000031063 0 306040031063
FT1A 031064 031063 0 0 000000031063 0 000000031063
FT2 031064 031063 0 0 0 0 000000031063
FT2RQ 031064 031063 0 0 000000031062 0 000000031063
FT3 031064 031063 0 0 000000031062 0 000000031063
FT9 031065 031063 0 0 000000031062 0 000000031063
ET0 031066 031063 0 0 777777777777 0 000000031063
ST1A 031066 031063 0 0 777777777777 0 000000031063
ST9 031066 031063 0 0 777777777777 0 000000031063
*031066 JUMPA 0,031067
INITIAL
C(AC)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031066 031066 0 0 324000031067 0 000000031067
IT1 031066 0 0 0 324000031067 0 000000031067
AT3 031066 0 0 0 000000031067 0 324000031067
AT6 031066 031067 0 0 000000031067 0 324000031067
FT1A 031066 031067 0 0 000000031067 0 000000031067
FT2 031066 031067 0 0 0 0 000000031067
FT2RQ 031066 031067 0 0 000001000001 0 000000031067
FT3 031066 031067 0 0 000001000001 0 000000031067
FT9 031067 031067 0 0 000001000001 0 000000031067
ET0 031067 031067 0 0 000001000001 0 000000031067
ST1A 031067 031067 0 0 000001000001 0 000000031067
ST9 031067 031067 0 0 000001000001 0 000000031067
*031067 SETZ 0,000000
INITIAL
C(AC)=000001 000001
C(E)=000001 000001
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031067 031067 0 0 400000000000 0 0
IT1 031067 0 0 0 400000000000 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 40
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0129
AT3 031067 0 0 0 0 0 400000000000
AT6 031067 0 0 0 0 0 400000000000
FT1A 031067 0 0 0 0 0 0
FT9 031070 0 0 0 0 0 0
ET0 031070 0 0 0 0 0 0
ST1 031070 0 0 0 0 0 0
ST2 031070 0 0 0 0 0 0
ST9 031070 0 0 0 0 0 0
*031070 PUSHJ 0,031071
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000001 000001 C(C(ACR+1))=200000 031055
TIME PC MA SC FE AR MQ BR
IT0 031070 031070 0 0 260000031071 0 200000031071
IT1 031070 0 0 0 260000031071 0 200000031071
AT3 031070 0 0 0 000000031071 0 260000031071
AT6 031070 031071 0 0 000000031071 0 260000031071
FT1A 031070 031071 0 0 000000031071 0 000000031071
FT2 031070 031071 0 0 0 0 000000031071
FT2RQ 031070 031071 0 0 0 0 000000031071
FT3 031070 031071 0 0 0 0 000000031071
FT9 031071 031071 0 0 0 0 000000031071
ET0 031071 031071 0 0 200000031071 000001000001 000000031071
ET1 031071 031071 0 0 000001000001 000001000001 200000031071
ET2 031071 000001 0 0 000001000001 000001000001 200000031071
ST1 031071 000001 0 0 000001000001 000001000001 200000031071
ST2 031071 000001 0 0 200000031071 000001000001 200000031071
ST3 031071 000001 0 0 200000031071 000001000001 200000031071
ST6 031071 000001 0 0 200000031071 000001000001 200000031071
ST6A 031071 000001 0 0 200000031071 000001000001 200000031071
ST9 031071 000001 0 0 200000031071 000001000001 200000031071
*031071 CAME 0,032223
INITIAL
C(AC)=000001 000001
C(E)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031071 031071 0 0 312000032223 0 000001000001
IT1 031071 0 0 0 312000032223 0 000001000001
AT3 031071 0 0 0 000000032223 0 312000032223
AT6 031071 032223 0 0 000000032223 0 312000032223
FT0 031071 032223 0 0 000001000001 0 312000032223
FT1A 031071 032223 0 0 000001000001 0 000001000001
FT2 031071 032223 0 0 0 0 000001000001
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 41
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0130
FT2RQ 031071 032223 0 0 000001000001 0 000001000001
FT3 031071 032223 0 0 000001000001 0 000001000001
FT9 031072 032223 0 0 000001000001 0 000001000001
ET0 031073 032223 0 0 0 0 000001000001
ST1A 031073 032223 0 0 0 0 000001000001
ST9 031073 032223 0 0 0 0 000001000001
*031073 JUMPA 0,031074
INITIAL
C(AC)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031073 031073 0 0 324000031074 0 000000031074
IT1 031073 0 0 0 324000031074 0 000000031074
AT3 031073 0 0 0 000000031074 0 324000031074
AT6 031073 031074 0 0 000000031074 0 324000031074
FT1A 031073 031074 0 0 000000031074 0 000000031074
FT2 031073 031074 0 0 0 0 000000031074
FT2RQ 031073 031074 0 0 000001000001 0 000000031074
FT3 031073 031074 0 0 000001000001 0 000000031074
FT9 031074 031074 0 0 000001000001 0 000000031074
ET0 031074 031074 0 0 000001000001 0 000000031074
ST1A 031074 031074 0 0 000001000001 0 000000031074
ST9 031074 031074 0 0 000001000001 0 000000031074
*031074 MOVSI 1,200000
INITIAL
C(AC)=200000 031071
FINAL
C(AC)=200000 000000
TIME PC MA SC FE AR MQ BR
IT0 031074 031074 0 0 205040200000 0 000000200000
IT1 031074 0 0 0 205040200000 0 000000200000
AT3 031074 0 0 0 000000200000 0 205040200000
AT6 031074 0 0 0 000000200000 0 205040200000
FT1A 031074 0 0 0 000000200000 0 000000200000
FT9 031075 0 0 0 000000200000 0 000000200000
ET0 031075 0 0 0 200000000000 0 000000200000
ST1 031075 0 0 0 200000000000 0 000000200000
ST2 031075 0 0 0 200000000000 0 000000200000
ST9 031075 0 0 0 200000000000 0 000000200000
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 42
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0131
*031075 JFCL 17,031076
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031075 031075 0 0 255740031076 0 000000031076
IT1 031075 0 0 0 255740031076 0 000000031076
AT3 031075 0 0 0 000000031076 0 255740031076
AT6 031075 031076 0 0 000000031076 0 255740031076
FT1A 031075 031076 0 0 000000031076 0 000000031076
FT9 031076 031076 0 0 000000031076 0 000000031076
ET0 031076 031076 0 0 000000031076 0 000000031076
ST1A 031076 031076 0 0 000000031076 0 000000031076
ST9 031076 031076 0 0 000000031076 0 000000031076
*031076 JRST 2,031077(1)
INITIAL
C(AC)=200000 031055
C(E)=403000 000001
FINAL
C(E)=403000 000001
TIME PC MA SC FE AR MQ BR
IT0 031076 031076 0 0 254101031077 0 200000031077
IT1 031076 0 0 0 254101031077 0 200000031077
AT1 031076 0 0 0 0 0 254101031077
AT2 031076 0 0 0 200000000000 0 254101031077
AT3 031076 0 0 0 000000031077 0 200000031077
AT6 031076 031077 0 0 000000031077 0 200000031077
FT1A 031076 031077 0 0 000000031077 0 200000031077
FT9 031077 031077 0 0 000000031077 0 200000031077
ET0 031077 031077 0 0 000000031077 0 200000031077
ST1A 031077 031077 0 0 000000031077 0 200000031077
ST9 031077 031077 0 0 000000031077 0 200000031077
*031077 SETZB 0,000001
INITIAL
C(AC)=000001 000001
C(E)=200000 000000
FINAL
C(AC)=000000 000000
C(E)=200000 000000
TIME PC MA SC FE AR MQ BR
IT0 031077 031077 0 0 403000000001 0 000000000001
IT1 031077 0 0 0 403000000001 0 000000000001
AT3 031077 0 0 0 000000000001 0 403000000001
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 43
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0132
AT6 031077 000001 0 0 000000000001 0 403000000001
FT1A 031077 000001 0 0 000000000001 0 000000000001
FT9 0 000001 0 0 000000000001 0 000000000001
ET0 0 000001 0 0 0 0 000000000001
ST1 0 000001 0 0 0 0 000000000001
ST2 0 000001 0 0 0 0 000000000001
ST6 0 000001 0 0 0 0 000000000001
ST6A 0 000001 0 0 0 0 000000000001
ST9 0 000001 0 0 0 0 000000000001
*031100 PUSHJ 0,031101
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000001 000001 C(C(ACR+1))=200000 031055
TIME PC MA SC FE AR MQ BR
IT0 0 0 0 0 260000031101 0 200000031101
IT1 0 0 0 0 260000031101 0 200000031101
AT3 0 0 0 0 000000031101 0 260000031101
AT6 0 031101 0 0 000000031101 0 260000031101
FT1A 0 031101 0 0 000000031101 0 000000031101
FT2 0 031101 0 0 0 0 000000031101
FT2RQ 0 031101 0 0 0 0 000000031101
FT3 0 031101 0 0 0 0 000000031101
FT9 031101 031101 0 0 0 0 000000031101
ET0 031101 031101 0 0 200000031101 000001000001 000000031101
ET1 031101 031101 0 0 000001000001 000001000001 200000031101
ET2 031101 000001 0 0 000001000001 000001000001 200000031101
ST1 031101 000001 0 0 000001000001 000001000001 200000031101
ST2 031101 000001 0 0 200000031101 000001000001 200000031101
ST3 031101 000001 0 0 200000031101 000001000001 200000031101
ST6 031101 000001 0 0 200000031101 000001000001 200000031101
ST6A 031101 000001 0 0 200000031101 000001000001 200000031101
ST9 031101 000001 0 0 200000031101 000001000001 200000031101
*031101 TLNN 1,200000
INITIAL
C(AC)=200000 031101
FINAL
C(AC)=200000 031101
TIME PC MA SC FE AR MQ BR
IT0 031101 031101 0 0 607040200000 0 000000200000
IT1 031101 0 0 0 607040200000 0 000000200000
AT3 031101 0 0 0 000000200000 0 607040200000
AT6 031101 0 0 0 000000200000 0 607040200000
FT1A 031101 0 0 0 000000200000 0 000000200000
FT2 031101 0 0 0 0 0 000000200000
FT2RQ 031101 0 0 0 200000031101 0 000000200000
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 44
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0133
FT3 031101 0 0 0 200000031101 0 000000200000
FT9 031102 0 0 0 200000031101 0 000000200000
ET0 031102 0 0 0 031101200000 0 000000200000
ET1 031102 0 0 0 031101200000 0 000000200000
ET2 031103 0 0 0 200000031101 0 000000200000
ST1A 031103 0 0 0 200000031101 0 000000200000
ST9 031103 0 0 0 200000031101 0 000000200000
*031103 JUMPA 0,031104
INITIAL
C(AC)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031103 031103 0 0 324000031104 0 000000031104
IT1 031103 0 0 0 324000031104 0 000000031104
AT3 031103 0 0 0 000000031104 0 324000031104
AT6 031103 031104 0 0 000000031104 0 324000031104
FT1A 031103 031104 0 0 000000031104 0 000000031104
FT2 031103 031104 0 0 0 0 000000031104
FT2RQ 031103 031104 0 0 000001000001 0 000000031104
FT3 031103 031104 0 0 000001000001 0 000000031104
FT9 031104 031104 0 0 000001000001 0 000000031104
ET0 031104 031104 0 0 000001000001 0 000000031104
ST1A 031104 031104 0 0 000001000001 0 000000031104
ST9 031104 031104 0 0 000001000001 0 000000031104
*031104 MOVEI 1,000001
INITIAL
C(AC)=200000 031101
FINAL
C(AC)=000000 000001
TIME PC MA SC FE AR MQ BR
IT0 031104 031104 0 0 201040000001 0 000000000001
IT1 031104 0 0 0 201040000001 0 000000000001
AT3 031104 0 0 0 000000000001 0 201040000001
AT6 031104 000001 0 0 000000000001 0 201040000001
FT1A 031104 000001 0 0 000000000001 0 000000000001
FT9 031105 000001 0 0 000000000001 0 000000000001
ET0 031105 000001 0 0 000000000001 0 000000000001
ST1 031105 000001 0 0 000000000001 0 000000000001
ST2 031105 000001 0 0 000000000001 0 000000000001
ST9 031105 000001 0 0 000000000001 0 000000000001
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 45
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0134
*031105 PUSHJ 1,031107
INITIAL
C(AC)=000000 000001
FINAL
C(AC)=000001 000002 C(C(ACR+1))=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031105 031105 0 0 260040031107 0 200000031106
IT1 031105 0 0 0 260040031107 0 200000031106
AT3 031105 0 0 0 000000031107 0 260040031107
AT6 031105 031107 0 0 000000031107 0 260040031107
FT1A 031105 031107 0 0 000000031107 0 000000031107
FT2 031105 031107 0 0 0 0 000000031107
FT2RQ 031105 031107 0 0 000000000001 0 000000031107
FT3 031105 031107 0 0 000000000001 0 000000031107
FT9 031106 031107 0 0 000000000001 0 000000031107
ET0 031107 031107 0 0 200000031106 000001000002 000000031107
ET1 031107 031107 0 0 000001000002 000001000002 200000031106
ET2 031107 000002 0 0 000001000002 000001000002 200000031106
ST1 031107 000002 0 0 000001000002 000001000002 200000031106
ST2 031107 000002 0 0 200000031106 000001000002 200000031106
ST3 031107 000002 0 0 200000031106 000001000002 200000031106
ST6 031107 000002 0 0 200000031106 000001000002 200000031106
ST6A 031107 000002 0 0 200000031106 000001000002 200000031106
ST9 031107 000002 0 0 200000031106 000001000002 200000031106
*031107 CAME 1,032231
INITIAL
C(AC)=000001 000002
C(E)=000001 000002
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031107 031107 0 0 312040032231 0 000001000002
IT1 031107 0 0 0 312040032231 0 000001000002
AT3 031107 0 0 0 000000032231 0 312040032231
AT6 031107 032231 0 0 000000032231 0 312040032231
FT0 031107 032231 0 0 000001000002 0 312040032231
FT1A 031107 032231 0 0 000001000002 0 000001000002
FT2 031107 032231 0 0 0 0 000001000002
FT2RQ 031107 032231 0 0 000001000002 0 000001000002
FT3 031107 032231 0 0 000001000002 0 000001000002
FT9 031110 032231 0 0 000001000002 0 000001000002
ET0 031111 032231 0 0 0 0 000001000002
ST1A 031111 032231 0 0 0 0 000001000002
ST9 031111 032231 0 0 0 0 000001000002
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 46
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0135
*031111 JUMPA 0,031112
INITIAL
C(AC)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031111 031111 0 0 324000031112 0 000000031112
IT1 031111 0 0 0 324000031112 0 000000031112
AT3 031111 0 0 0 000000031112 0 324000031112
AT6 031111 031112 0 0 000000031112 0 324000031112
FT1A 031111 031112 0 0 000000031112 0 000000031112
FT2 031111 031112 0 0 0 0 000000031112
FT2RQ 031111 031112 0 0 000001000001 0 000000031112
FT3 031111 031112 0 0 000001000001 0 000000031112
FT9 031112 031112 0 0 000001000001 0 000000031112
ET0 031112 031112 0 0 000001000001 0 000000031112
ST1A 031112 031112 0 0 000001000001 0 000000031112
ST9 031112 031112 0 0 000001000001 0 000000031112
*031112 MOVEI 1,000001
INITIAL
C(AC)=000001 000002
FINAL
C(AC)=000000 000001
TIME PC MA SC FE AR MQ BR
IT0 031112 031112 0 0 201040000001 0 000000000001
IT1 031112 0 0 0 201040000001 0 000000000001
AT3 031112 0 0 0 000000000001 0 201040000001
AT6 031112 000001 0 0 000000000001 0 201040000001
FT1A 031112 000001 0 0 000000000001 0 000000000001
FT9 031113 000001 0 0 000000000001 0 000000000001
ET0 031113 000001 0 0 000000000001 0 000000000001
ST1 031113 000001 0 0 000000000001 0 000000000001
ST2 031113 000001 0 0 000000000001 0 000000000001
ST9 031113 000001 0 0 000000000001 0 000000000001
*031113 PUSHJ 1,031115
INITIAL
C(AC)=000000 000001
FINAL
C(AC)=000001 000002 C(C(ACR+1))=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031113 031113 0 0 260040031115 0 200000031114
IT1 031113 0 0 0 260040031115 0 200000031114
AT3 031113 0 0 0 000000031115 0 260040031115
AT6 031113 031115 0 0 000000031115 0 260040031115
FT1A 031113 031115 0 0 000000031115 0 000000031115
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 47
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0136
FT2 031113 031115 0 0 0 0 000000031115
FT2RQ 031113 031115 0 0 000000000001 0 000000031115
FT3 031113 031115 0 0 000000000001 0 000000031115
FT9 031114 031115 0 0 000000000001 0 000000031115
ET0 031115 031115 0 0 200000031114 000001000002 000000031115
ET1 031115 031115 0 0 000001000002 000001000002 200000031114
ET2 031115 000002 0 0 000001000002 000001000002 200000031114
ST1 031115 000002 0 0 000001000002 000001000002 200000031114
ST2 031115 000002 0 0 200000031114 000001000002 200000031114
ST3 031115 000002 0 0 200000031114 000001000002 200000031114
ST6 031115 000002 0 0 200000031114 000001000002 200000031114
ST6A 031115 000002 0 0 200000031114 000001000002 200000031114
ST9 031115 000002 0 0 200000031114 000001000002 200000031114
*031115 ANDI 2,777777
INITIAL
C(AC)=200000 031114
FINAL
C(AC)=000000 031114
TIME PC MA SC FE AR MQ BR
IT0 031115 031115 0 0 405100777777 0 000000777777
IT1 031115 0 0 0 405100777777 0 000000777777
AT3 031115 0 0 0 000000777777 0 405100777777
AT6 031115 777777 0 0 000000777777 0 405100777777
FT1A 031115 777777 0 0 000000777777 0 000000777777
FT2 031115 777777 0 0 0 0 000000777777
FT2RQ 031115 777777 0 0 200000031114 0 000000777777
FT3 031115 777777 0 0 200000031114 0 000000777777
FT9 031116 777777 0 0 200000031114 0 000000777777
ET0 031116 777777 0 0 000000031114 0 000000777777
ST1 031116 777777 0 0 000000031114 0 000000777777
ST2 031116 777777 0 0 000000031114 0 000000777777
ST9 031116 777777 0 0 000000031114 0 000000777777
*031116 CAIE 2,031114
INITIAL
C(AC)=000000 031114
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031116 031116 0 0 302100031114 0 000000031114
IT1 031116 0 0 0 302100031114 0 000000031114
AT3 031116 0 0 0 000000031114 0 302100031114
AT6 031116 031114 0 0 000000031114 0 302100031114
FT1A 031116 031114 0 0 000000031114 0 000000031114
FT2 031116 031114 0 0 0 0 000000031114
FT2RQ 031116 031114 0 0 000000031114 0 000000031114
FT3 031116 031114 0 0 000000031114 0 000000031114
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 48
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0137
FT9 031117 031114 0 0 000000031114 0 000000031114
ET0 031120 031114 0 0 0 0 000000031114
ST1A 031120 031114 0 0 0 0 000000031114
ST9 031120 031114 0 0 0 0 000000031114
*031120 JUMPA 0,031121
INITIAL
C(AC)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031120 031120 0 0 324000031121 0 000000031121
IT1 031120 0 0 0 324000031121 0 000000031121
AT3 031120 0 0 0 000000031121 0 324000031121
AT6 031120 031121 0 0 000000031121 0 324000031121
FT1A 031120 031121 0 0 000000031121 0 000000031121
FT2 031120 031121 0 0 0 0 000000031121
FT2RQ 031120 031121 0 0 000001000001 0 000000031121
FT3 031120 031121 0 0 000001000001 0 000000031121
FT9 031121 031121 0 0 000001000001 0 000000031121
ET0 031121 031121 0 0 000001000001 0 000000031121
ST1A 031121 031121 0 0 000001000001 0 000000031121
ST9 031121 031121 0 0 000001000001 0 000000031121
*031121 MOVSI 1,020000
INITIAL
C(AC)=000001 000002
FINAL
C(AC)=020000 000000
TIME PC MA SC FE AR MQ BR
IT0 031121 031121 0 0 205040020000 0 000000020000
IT1 031121 0 0 0 205040020000 0 000000020000
AT3 031121 0 0 0 000000020000 0 205040020000
AT6 031121 0 0 0 000000020000 0 205040020000
FT1A 031121 0 0 0 000000020000 0 000000020000
FT9 031122 0 0 0 000000020000 0 000000020000
ET0 031122 0 0 0 020000000000 0 000000020000
ST1 031122 0 0 0 020000000000 0 000000020000
ST2 031122 0 0 0 020000000000 0 000000020000
ST9 031122 0 0 0 020000000000 0 000000020000
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 49
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0138
*031122 JFCL 17,031123
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031122 031122 0 0 255740031123 0 000000031123
IT1 031122 0 0 0 255740031123 0 000000031123
AT3 031122 0 0 0 000000031123 0 255740031123
AT6 031122 031123 0 0 000000031123 0 255740031123
FT1A 031122 031123 0 0 000000031123 0 000000031123
FT9 031123 031123 0 0 000000031123 0 000000031123
ET0 031123 031123 0 0 000000031123 0 000000031123
ST1A 031123 031123 0 0 000000031123 0 000000031123
ST9 031123 031123 0 0 000000031123 0 000000031123
*031123 JRST 2,031124(1)
INITIAL
C(AC)=000000 031114
C(E)=400000 000000
FINAL
C(E)=400000 000000
TIME PC MA SC FE AR MQ BR
IT0 031123 031123 0 0 254101031124 0 020000031124
IT1 031123 0 0 0 254101031124 0 020000031124
AT1 031123 0 0 0 0 0 254101031124
AT2 031123 0 0 0 020000000000 0 254101031124
AT3 031123 0 0 0 000000031124 0 020000031124
AT6 031123 031124 0 0 000000031124 0 020000031124
FT1A 031123 031124 0 0 000000031124 0 020000031124
FT9 031124 031124 0 0 000000031124 0 020000031124
ET0 031124 031124 0 0 000000031124 0 020000031124
ST1A 031124 031124 0 0 000000031124 0 020000031124
ST9 031124 031124 0 0 000000031124 0 020000031124
*031124 SETZ 0,000000
INITIAL
C(AC)=000001 000001
C(E)=000001 000001
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031124 031124 0 0 400000000000 0 0
IT1 031124 0 0 0 400000000000 0 0
AT3 031124 0 0 0 0 0 400000000000
AT6 031124 0 0 0 0 0 400000000000
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 50
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0139
FT1A 031124 0 0 0 0 0 0
FT9 031125 0 0 0 0 0 0
ET0 031125 0 0 0 0 0 0
ST1 031125 0 0 0 0 0 0
ST2 031125 0 0 0 0 0 0
ST9 031125 0 0 0 0 0 0
*031125 PUSHJ 0,031126
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000001 000001 C(C(ACR+1))=000000 031114
TIME PC MA SC FE AR MQ BR
IT0 031125 031125 0 0 260000031126 0 020000031126
IT1 031125 0 0 0 260000031126 0 020000031126
AT3 031125 0 0 0 000000031126 0 260000031126
AT6 031125 031126 0 0 000000031126 0 260000031126
FT1A 031125 031126 0 0 000000031126 0 000000031126
FT2 031125 031126 0 0 0 0 000000031126
FT2RQ 031125 031126 0 0 0 0 000000031126
FT3 031125 031126 0 0 0 0 000000031126
FT9 031126 031126 0 0 0 0 000000031126
ET0 031126 031126 0 0 020000031126 000001000001 000000031126
ET1 031126 031126 0 0 000001000001 000001000001 020000031126
ET2 031126 000001 0 0 000001000001 000001000001 020000031126
ST1 031126 000001 0 0 000001000001 000001000001 020000031126
ST2 031126 000001 0 0 020000031126 000001000001 020000031126
ST3 031126 000001 0 0 020000031126 000001000001 020000031126
ST6 031126 000001 0 0 020000031126 000001000001 020000031126
ST6A 031126 000001 0 0 020000031126 000001000001 020000031126
ST9 031126 000001 0 0 020000031126 000001000001 020000031126
*031126 JSP 0,031127
INITIAL
C(AC)=000001 000001
FINAL
C(AC)=000000 031127
TIME PC MA SC FE AR MQ BR
IT0 031126 031126 0 0 265000031127 0 000000031127
IT1 031126 0 0 0 265000031127 0 000000031127
AT3 031126 0 0 0 000000031127 0 265000031127
AT6 031126 031127 0 0 000000031127 0 265000031127
FT1A 031126 031127 0 0 000000031127 0 000000031127
FT9 031127 031127 0 0 000000031127 0 000000031127
ET0 031127 031127 0 0 000000031127 0 000000031127
ST1 031127 031127 0 0 000000031127 0 000000031127
ST2 031127 031127 0 0 000000031127 0 000000031127
ST9 031127 031127 0 0 000000031127 0 000000031127
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 51
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0140
*031127 TLNE 0,020000
INITIAL
C(AC)=000000 031127
FINAL
C(AC)=000000 031127
TIME PC MA SC FE AR MQ BR
IT0 031127 031127 0 0 603000020000 0 0
IT1 031127 0 0 0 603000020000 0 0
AT3 031127 0 0 0 000000020000 0 603000020000
AT6 031127 0 0 0 000000020000 0 603000020000
FT1A 031127 0 0 0 000000020000 0 000000020000
FT2 031127 0 0 0 0 0 000000020000
FT2RQ 031127 0 0 0 000000031127 0 000000020000
FT3 031127 0 0 0 000000031127 0 000000020000
FT9 031130 0 0 0 000000031127 0 000000020000
ET0 031130 0 0 0 031127000000 0 000000020000
ET1 031130 0 0 0 031127000000 0 0
ET2 031131 0 0 0 000000031127 0 0
ST1A 031131 0 0 0 000000031127 0 0
ST9 031131 0 0 0 000000031127 0 0
*031131 JUMPA 0,031132
INITIAL
C(AC)=000000 031127
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031131 031131 0 0 324000031132 0 000000031132
IT1 031131 0 0 0 324000031132 0 000000031132
AT3 031131 0 0 0 000000031132 0 324000031132
AT6 031131 031132 0 0 000000031132 0 324000031132
FT1A 031131 031132 0 0 000000031132 0 000000031132
FT2 031131 031132 0 0 0 0 000000031132
FT2RQ 031131 031132 0 0 000000031127 0 000000031132
FT3 031131 031132 0 0 000000031127 0 000000031132
FT9 031132 031132 0 0 000000031127 0 000000031132
ET0 031132 031132 0 0 000000031127 0 000000031132
ST1A 031132 031132 0 0 000000031127 0 000000031132
ST9 031132 031132 0 0 000000031127 0 000000031132
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 52
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0141
*031132 MOVEI 2,777777
INITIAL
C(AC)=000000 031114
FINAL
C(AC)=000000 777777
TIME PC MA SC FE AR MQ BR
IT0 031132 031132 0 0 201100777777 0 000000777777
IT1 031132 0 0 0 201100777777 0 000000777777
AT3 031132 0 0 0 000000777777 0 201100777777
AT6 031132 777777 0 0 000000777777 0 201100777777
FT1A 031132 777777 0 0 000000777777 0 000000777777
FT9 031133 777777 0 0 000000777777 0 000000777777
ET0 031133 777777 0 0 000000777777 0 000000777777
ST1 031133 777777 0 0 000000777777 0 000000777777
ST2 031133 777777 0 0 000000777777 0 000000777777
ST9 031133 777777 0 0 000000777777 0 000000777777
*031133 PUSHJ 2,031134
INITIAL
C(AC)=000000 777777
FINAL
C(AC)=000002 000000 C(C(ACR+1))=020000 031126
TIME PC MA SC FE AR MQ BR
IT0 031133 031133 0 0 260100031134 0 000000031134
IT1 031133 0 0 0 260100031134 0 000000031134
AT3 031133 0 0 0 000000031134 0 260100031134
AT6 031133 031134 0 0 000000031134 0 260100031134
FT1A 031133 031134 0 0 000000031134 0 000000031134
FT2 031133 031134 0 0 0 0 000000031134
FT2RQ 031133 031134 0 0 000000777777 0 000000031134
FT3 031133 031134 0 0 000000777777 0 000000031134
FT9 031134 031134 0 0 000000777777 0 000000031134
ET0 031134 031134 0 0 000000031134 000002000000 000000031134
ET1 031134 031134 0 0 000002000000 000002000000 000000031134
ET2 031134 0 0 0 000002000000 000002000000 000000031134
ST1 031134 0 0 0 000002000000 000002000000 000000031134
ST2 031134 0 0 0 000000031134 000002000000 000000031134
ST3 031134 0 0 0 000000031134 000002000000 000000031134
ST6 031134 0 0 0 000000031134 000002000000 000000031134
ST6A 031134 0 0 0 000000031134 000002000000 000000031134
ST9 031134 0 0 0 000000031134 000002000000 000000031134
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 53
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0142
*031134 CAME 2,032230
INITIAL
C(AC)=000002 000000
C(E)=000002 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031134 031134 0 0 312100032230 0 000002000000
IT1 031134 0 0 0 312100032230 0 000002000000
AT3 031134 0 0 0 000000032230 0 312100032230
AT6 031134 032230 0 0 000000032230 0 312100032230
FT0 031134 032230 0 0 000002000000 0 312100032230
FT1A 031134 032230 0 0 000002000000 0 000002000000
FT2 031134 032230 0 0 0 0 000002000000
FT2RQ 031134 032230 0 0 000002000000 0 000002000000
FT3 031134 032230 0 0 000002000000 0 000002000000
FT9 031135 032230 0 0 000002000000 0 000002000000
ET0 031136 032230 0 0 0 0 000002000000
ST1A 031136 032230 0 0 0 0 000002000000
ST9 031136 032230 0 0 0 0 000002000000
*031136 JUMPA 0,031137
INITIAL
C(AC)=000000 031134
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031136 031136 0 0 324000031137 0 000000031137
IT1 031136 0 0 0 324000031137 0 000000031137
AT3 031136 0 0 0 000000031137 0 324000031137
AT6 031136 031137 0 0 000000031137 0 324000031137
FT1A 031136 031137 0 0 000000031137 0 000000031137
FT2 031136 031137 0 0 0 0 000000031137
FT2RQ 031136 031137 0 0 000000031134 0 000000031137
FT3 031136 031137 0 0 000000031134 0 000000031137
FT9 031137 031137 0 0 000000031134 0 000000031137
ET0 031137 031137 0 0 000000031134 0 000000031137
ST1A 031137 031137 0 0 000000031134 0 000000031137
ST9 031137 031137 0 0 000000031134 0 000000031137
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 54
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0143
*031137 MOVE 0,032223
INITIAL
C(AC)=000000 031134
C(E)=000001 000001
FINAL
C(AC)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 031137 031137 0 0 200000032223 0 000001000001
IT1 031137 0 0 0 200000032223 0 000001000001
AT3 031137 0 0 0 000000032223 0 200000032223
AT6 031137 032223 0 0 000000032223 0 200000032223
FT0 031137 032223 0 0 000001000001 0 200000032223
FT1A 031137 032223 0 0 000001000001 0 000001000001
FT9 031140 032223 0 0 000001000001 0 000001000001
ET0 031140 032223 0 0 000001000001 0 000001000001
ST1 031140 032223 0 0 000001000001 0 000001000001
ST2 031140 032223 0 0 000001000001 0 000001000001
ST9 031140 032223 0 0 000001000001 0 000001000001
*031140 POP 0,000001
INITIAL
C(AC)=000001 000001
FINAL
C(AC)=000000 000000 C(C(ACR)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 031140 031140 0 0 262000000001 0 020000031126
IT1 031140 0 0 0 262000000001 0 020000031126
AT3 031140 0 0 0 000000000001 0 262000000001
AT6 031140 000001 0 0 000000000001 0 262000000001
FT1A 031140 000001 0 0 000000000001 0 000000000001
FT2 031140 000001 0 0 0 0 000000000001
FT2RQ 031140 000001 0 0 000001000001 0 000000000001
FT3 031140 000001 0 0 000001000001 0 000000000001
FT7 031140 000001 0 0 020000031126 000001000001 000000000001
FT4RQ 031140 000001 0 0 020000031126 000001000001 000000000001
FT4A 031140 000001 0 0 000001000001 020000031126 000000000001
FT9 031141 000001 0 0 000001000001 020000031126 000000000001
ET0 031141 000001 0 0 020000031126 0 000000000001
ET1 031141 000001 0 0 000000000001 0 020000031126
ET2 031141 000001 0 0 0 0 020000031126
ST1 031141 000001 0 0 0 0 020000031126
ST2 031141 000001 0 0 020000031126 0 020000031126
ST3 031141 000001 0 0 020000031126 0 020000031126
ST6 031141 000001 0 0 020000031126 0 020000031126
ST6A 031141 000001 0 0 020000031126 0 020000031126
ST9 031141 000001 0 0 020000031126 0 020000031126
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 55
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0144
*031141 SKIPE 0,000000
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031141 031141 0 0 332000000000 0 0
IT1 031141 0 0 0 332000000000 0 0
AT3 031141 0 0 0 0 0 332000000000
AT6 031141 0 0 0 0 0 332000000000
FT0 031141 0 0 0 0 0 332000000000
FT1A 031141 0 0 0 0 0 0
FT9 031142 0 0 0 0 0 0
ET0 031143 0 0 0 0 0 0
ST1A 031143 0 0 0 0 0 0
ST9 031143 0 0 0 0 0 0
*031143 JUMPA 0,031144
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031143 031143 0 0 324000031144 0 000000031144
IT1 031143 0 0 0 324000031144 0 000000031144
AT3 031143 0 0 0 000000031144 0 324000031144
AT6 031143 031144 0 0 000000031144 0 324000031144
FT1A 031143 031144 0 0 000000031144 0 000000031144
FT2 031143 031144 0 0 0 0 000000031144
FT2RQ 031143 031144 0 0 0 0 000000031144
FT3 031143 031144 0 0 0 0 000000031144
FT9 031144 031144 0 0 0 0 000000031144
ET0 031144 031144 0 0 0 0 000000031144
ST1A 031144 031144 0 0 0 0 000000031144
ST9 031144 031144 0 0 0 0 000000031144
*031144 MOVE 0,032232
INITIAL
C(AC)=000000 000000
C(E)=000002 000002
FINAL
C(AC)=000002 000002
TIME PC MA SC FE AR MQ BR
IT0 031144 031144 0 0 200000032232 0 000002000002
IT1 031144 0 0 0 200000032232 0 000002000002
AT3 031144 0 0 0 000000032232 0 200000032232
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 56
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0145
AT6 031144 032232 0 0 000000032232 0 200000032232
FT0 031144 032232 0 0 000002000002 0 200000032232
FT1A 031144 032232 0 0 000002000002 0 000002000002
FT9 031145 032232 0 0 000002000002 0 000002000002
ET0 031145 032232 0 0 000002000002 0 000002000002
ST1 031145 032232 0 0 000002000002 0 000002000002
ST2 031145 032232 0 0 000002000002 0 000002000002
ST9 031145 032232 0 0 000002000002 0 000002000002
*031145 MOVEI 2,000005
INITIAL
C(AC)=000002 000000
FINAL
C(AC)=000000 000005
TIME PC MA SC FE AR MQ BR
IT0 031145 031145 0 0 201100000005 0 000000000005
IT1 031145 0 0 0 201100000005 0 000000000005
AT3 031145 0 0 0 000000000005 0 201100000005
AT6 031145 000005 0 0 000000000005 0 201100000005
FT1A 031145 000005 0 0 000000000005 0 000000000005
FT9 031146 000005 0 0 000000000005 0 000000000005
ET0 031146 000005 0 0 000000000005 0 000000000005
ST1 031146 000005 0 0 000000000005 0 000000000005
ST2 031146 000005 0 0 000000000005 0 000000000005
ST9 031146 000005 0 0 000000000005 0 000000000005
*031146 POP 0,000002
INITIAL
C(AC)=000002 000002
FINAL
C(AC)=000001 000001 C(C(ACR)=020000 031126
TIME PC MA SC FE AR MQ BR
IT0 031146 031146 0 0 262000000002 0 000000000005
IT1 031146 0 0 0 262000000002 0 000000000005
AT3 031146 0 0 0 000000000002 0 262000000002
AT6 031146 000002 0 0 000000000002 0 262000000002
FT1A 031146 000002 0 0 000000000002 0 000000000002
FT2 031146 000002 0 0 0 0 000000000002
FT2RQ 031146 000002 0 0 000002000002 0 000000000002
FT3 031146 000002 0 0 000002000002 0 000000000002
FT7 031146 000002 0 0 000000000005 000002000002 000000000002
FT4RQ 031146 000002 0 0 000000000005 000002000002 000000000002
FT4A 031146 000002 0 0 000002000002 000000000005 000000000002
FT9 031147 000002 0 0 000002000002 000000000005 000000000002
ET0 031147 000002 0 0 000000000005 000001000001 000000000002
ET1 031147 000002 0 0 000000000002 000001000001 000000000005
ET2 031147 000002 0 0 000001000001 000001000001 000000000005
ST1 031147 000002 0 0 000001000001 000001000001 000000000005
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 57
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0146
ST2 031147 000002 0 0 000000000005 000001000001 000000000005
ST3 031147 000002 0 0 000000000005 000001000001 000000000005
ST6 031147 000002 0 0 000000000005 000001000001 000000000005
ST6A 031147 000002 0 0 000000000005 000001000001 000000000005
ST9 031147 000002 0 0 000000000005 000001000001 000000000005
*031147 CAME 0,032223
INITIAL
C(AC)=000001 000001
C(E)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031147 031147 0 0 312000032223 0 000001000001
IT1 031147 0 0 0 312000032223 0 000001000001
AT3 031147 0 0 0 000000032223 0 312000032223
AT6 031147 032223 0 0 000000032223 0 312000032223
FT0 031147 032223 0 0 000001000001 0 312000032223
FT1A 031147 032223 0 0 000001000001 0 000001000001
FT2 031147 032223 0 0 0 0 000001000001
FT2RQ 031147 032223 0 0 000001000001 0 000001000001
FT3 031147 032223 0 0 000001000001 0 000001000001
FT9 031150 032223 0 0 000001000001 0 000001000001
ET0 031151 032223 0 0 0 0 000001000001
ST1A 031151 032223 0 0 0 0 000001000001
ST9 031151 032223 0 0 0 0 000001000001
*031151 JUMPA 0,031152
INITIAL
C(AC)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031151 031151 0 0 324000031152 0 000000031152
IT1 031151 0 0 0 324000031152 0 000000031152
AT3 031151 0 0 0 000000031152 0 324000031152
AT6 031151 031152 0 0 000000031152 0 324000031152
FT1A 031151 031152 0 0 000000031152 0 000000031152
FT2 031151 031152 0 0 0 0 000000031152
FT2RQ 031151 031152 0 0 000001000001 0 000000031152
FT3 031151 031152 0 0 000001000001 0 000000031152
FT9 031152 031152 0 0 000001000001 0 000000031152
ET0 031152 031152 0 0 000001000001 0 000000031152
ST1A 031152 031152 0 0 000001000001 0 000000031152
ST9 031152 031152 0 0 000001000001 0 000000031152
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 58
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0147
*031152 MOVE 0,032232
INITIAL
C(AC)=000001 000001
C(E)=000002 000002
FINAL
C(AC)=000002 000002
TIME PC MA SC FE AR MQ BR
IT0 031152 031152 0 0 200000032232 0 000002000002
IT1 031152 0 0 0 200000032232 0 000002000002
AT3 031152 0 0 0 000000032232 0 200000032232
AT6 031152 032232 0 0 000000032232 0 200000032232
FT0 031152 032232 0 0 000002000002 0 200000032232
FT1A 031152 032232 0 0 000002000002 0 000002000002
FT9 031153 032232 0 0 000002000002 0 000002000002
ET0 031153 032232 0 0 000002000002 0 000002000002
ST1 031153 032232 0 0 000002000002 0 000002000002
ST2 031153 032232 0 0 000002000002 0 000002000002
ST9 031153 032232 0 0 000002000002 0 000002000002
*031153 SETZM 0,000002
INITIAL
C(AC)=000002 000002
C(E)=000000 000005
FINAL
C(E)=000000 000005
TIME PC MA SC FE AR MQ BR
IT0 031153 031153 0 0 402000000002 0 000000000002
IT1 031153 0 0 0 402000000002 0 000000000002
AT3 031153 0 0 0 000000000002 0 402000000002
AT6 031153 000002 0 0 000000000002 0 402000000002
FT1A 031153 000002 0 0 000000000002 0 000000000002
FT9 031154 000002 0 0 000000000002 0 000000000002
ET0 031154 000002 0 0 0 0 000000000002
ST6 031154 000002 0 0 0 0 000000000002
ST6A 031154 000002 0 0 0 0 000000000002
ST9 031154 000002 0 0 0 0 000000000002
*031154 POP 0,000002
INITIAL
C(AC)=000002 000002
FINAL
C(AC)=000001 000001 C(C(ACR)=020000 031126
TIME PC MA SC FE AR MQ BR
IT0 031154 031154 0 0 262000000002 0 0
IT1 031154 0 0 0 262000000002 0 0
AT3 031154 0 0 0 000000000002 0 262000000002
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 59
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0148
AT6 031154 000002 0 0 000000000002 0 262000000002
FT1A 031154 000002 0 0 000000000002 0 000000000002
FT2 031154 000002 0 0 0 0 000000000002
FT2RQ 031154 000002 0 0 000002000002 0 000000000002
FT3 031154 000002 0 0 000002000002 0 000000000002
FT7 031154 000002 0 0 0 000002000002 000000000002
FT4RQ 031154 000002 0 0 0 000002000002 000000000002
FT4A 031154 000002 0 0 000002000002 0 000000000002
FT9 031155 000002 0 0 000002000002 0 000000000002
ET0 031155 000002 0 0 0 000001000001 000000000002
ET1 031155 000002 0 0 000000000002 000001000001 0
ET2 031155 000002 0 0 000001000001 000001000001 0
ST1 031155 000002 0 0 000001000001 000001000001 0
ST2 031155 000002 0 0 0 000001000001 0
ST3 031155 000002 0 0 0 000001000001 0
ST6 031155 000002 0 0 0 000001000001 0
ST6A 031155 000002 0 0 0 000001000001 0
ST9 031155 000002 0 0 0 000001000001 0
*031155 SKIPE 0,000002
INITIAL
C(AC)=000001 000001
C(E)=000000 000000
FINAL
C(AC)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 031155 031155 0 0 332000000002 0 0
IT1 031155 0 0 0 332000000002 0 0
AT3 031155 0 0 0 000000000002 0 332000000002
AT6 031155 000002 0 0 000000000002 0 332000000002
FT0 031155 000002 0 0 0 0 332000000002
FT1A 031155 000002 0 0 0 0 0
FT9 031156 000002 0 0 0 0 0
ET0 031157 000002 0 0 0 0 0
ST1A 031157 000002 0 0 0 0 0
ST9 031157 000002 0 0 0 0 0
*031157 JUMPA 0,031160
INITIAL
C(AC)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031157 031157 0 0 324000031160 0 000000031160
IT1 031157 0 0 0 324000031160 0 000000031160
AT3 031157 0 0 0 000000031160 0 324000031160
AT6 031157 031160 0 0 000000031160 0 324000031160
FT1A 031157 031160 0 0 000000031160 0 000000031160
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 60
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0149
FT2 031157 031160 0 0 0 0 000000031160
FT2RQ 031157 031160 0 0 000001000001 0 000000031160
FT3 031157 031160 0 0 000001000001 0 000000031160
FT9 031160 031160 0 0 000001000001 0 000000031160
ET0 031160 031160 0 0 000001000001 0 000000031160
ST1A 031160 031160 0 0 000001000001 0 000000031160
ST9 031160 031160 0 0 000001000001 0 000000031160
*031160 MOVE 0,032232
INITIAL
C(AC)=000001 000001
C(E)=000002 000002
FINAL
C(AC)=000002 000002
TIME PC MA SC FE AR MQ BR
IT0 031160 031160 0 0 200000032232 0 000002000002
IT1 031160 0 0 0 200000032232 0 000002000002
AT3 031160 0 0 0 000000032232 0 200000032232
AT6 031160 032232 0 0 000000032232 0 200000032232
FT0 031160 032232 0 0 000002000002 0 200000032232
FT1A 031160 032232 0 0 000002000002 0 000002000002
FT9 031161 032232 0 0 000002000002 0 000002000002
ET0 031161 032232 0 0 000002000002 0 000002000002
ST1 031161 032232 0 0 000002000002 0 000002000002
ST2 031161 032232 0 0 000002000002 0 000002000002
ST9 031161 032232 0 0 000002000002 0 000002000002
*031161 MOVEI 2,000017
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000000 000017
TIME PC MA SC FE AR MQ BR
IT0 031161 031161 0 0 201100000017 0 000000000017
IT1 031161 0 0 0 201100000017 0 000000000017
AT3 031161 0 0 0 000000000017 0 201100000017
AT6 031161 000017 0 0 000000000017 0 201100000017
FT1A 031161 000017 0 0 000000000017 0 000000000017
FT9 031162 000017 0 0 000000000017 0 000000000017
ET0 031162 000017 0 0 000000000017 0 000000000017
ST1 031162 000017 0 0 000000000017 0 000000000017
ST2 031162 000017 0 0 000000000017 0 000000000017
ST9 031162 000017 0 0 000000000017 0 000000000017
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 61
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0150
*031162 SETZM 0,000001
INITIAL
C(AC)=000002 000002
C(E)=020000 031126
FINAL
C(E)=020000 031126
TIME PC MA SC FE AR MQ BR
IT0 031162 031162 0 0 402000000001 0 000000000001
IT1 031162 0 0 0 402000000001 0 000000000001
AT3 031162 0 0 0 000000000001 0 402000000001
AT6 031162 000001 0 0 000000000001 0 402000000001
FT1A 031162 000001 0 0 000000000001 0 000000000001
FT9 031163 000001 0 0 000000000001 0 000000000001
ET0 031163 000001 0 0 0 0 000000000001
ST6 031163 000001 0 0 0 0 000000000001
ST6A 031163 000001 0 0 0 0 000000000001
ST9 031163 000001 0 0 0 0 000000000001
*031163 POP 0,000002
INITIAL
C(AC)=000002 000002
FINAL
C(AC)=000001 000001 C(C(ACR)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031163 031163 0 0 262000000002 0 000000000017
IT1 031163 0 0 0 262000000002 0 000000000017
AT3 031163 0 0 0 000000000002 0 262000000002
AT6 031163 000002 0 0 000000000002 0 262000000002
FT1A 031163 000002 0 0 000000000002 0 000000000002
FT2 031163 000002 0 0 0 0 000000000002
FT2RQ 031163 000002 0 0 000002000002 0 000000000002
FT3 031163 000002 0 0 000002000002 0 000000000002
FT7 031163 000002 0 0 000000000017 000002000002 000000000002
FT4RQ 031163 000002 0 0 000000000017 000002000002 000000000002
FT4A 031163 000002 0 0 000002000002 000000000017 000000000002
FT9 031164 000002 0 0 000002000002 000000000017 000000000002
ET0 031164 000002 0 0 000000000017 000001000001 000000000002
ET1 031164 000002 0 0 000000000002 000001000001 000000000017
ET2 031164 000002 0 0 000001000001 000001000001 000000000017
ST1 031164 000002 0 0 000001000001 000001000001 000000000017
ST2 031164 000002 0 0 000000000017 000001000001 000000000017
ST3 031164 000002 0 0 000000000017 000001000001 000000000017
ST6 031164 000002 0 0 000000000017 000001000001 000000000017
ST6A 031164 000002 0 0 000000000017 000001000001 000000000017
ST9 031164 000002 0 0 000000000017 000001000001 000000000017
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 62
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0151
*031164 SKIPE 0,000001
INITIAL
C(AC)=000001 000001
C(E)=000000 000000
FINAL
C(AC)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 031164 031164 0 0 332000000001 0 0
IT1 031164 0 0 0 332000000001 0 0
AT3 031164 0 0 0 000000000001 0 332000000001
AT6 031164 000001 0 0 000000000001 0 332000000001
FT0 031164 000001 0 0 0 0 332000000001
FT1A 031164 000001 0 0 0 0 0
FT9 031165 000001 0 0 0 0 0
ET0 031166 000001 0 0 0 0 0
ST1A 031166 000001 0 0 0 0 0
ST9 031166 000001 0 0 0 0 0
*031166 JUMPA 0,031167
INITIAL
C(AC)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031166 031166 0 0 324000031167 0 000000031167
IT1 031166 0 0 0 324000031167 0 000000031167
AT3 031166 0 0 0 000000031167 0 324000031167
AT6 031166 031167 0 0 000000031167 0 324000031167
FT1A 031166 031167 0 0 000000031167 0 000000031167
FT2 031166 031167 0 0 0 0 000000031167
FT2RQ 031166 031167 0 0 000001000001 0 000000031167
FT3 031166 031167 0 0 000001000001 0 000000031167
FT9 031167 031167 0 0 000001000001 0 000000031167
ET0 031167 031167 0 0 000001000001 0 000000031167
ST1A 031167 031167 0 0 000001000001 0 000000031167
ST9 031167 031167 0 0 000001000001 0 000000031167
*031167 MOVE 0,032232
INITIAL
C(AC)=000001 000001
C(E)=000002 000002
FINAL
C(AC)=000002 000002
TIME PC MA SC FE AR MQ BR
IT0 031167 031167 0 0 200000032232 0 000002000002
IT1 031167 0 0 0 200000032232 0 000002000002
AT3 031167 0 0 0 000000032232 0 200000032232
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 63
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0152
AT6 031167 032232 0 0 000000032232 0 200000032232
FT0 031167 032232 0 0 000002000002 0 200000032232
FT1A 031167 032232 0 0 000002000002 0 000002000002
FT9 031170 032232 0 0 000002000002 0 000002000002
ET0 031170 032232 0 0 000002000002 0 000002000002
ST1 031170 032232 0 0 000002000002 0 000002000002
ST2 031170 032232 0 0 000002000002 0 000002000002
ST9 031170 032232 0 0 000002000002 0 000002000002
*031170 MOVEI 2,000003
INITIAL
C(AC)=000000 000017
FINAL
C(AC)=000000 000003
TIME PC MA SC FE AR MQ BR
IT0 031170 031170 0 0 201100000003 0 000000000003
IT1 031170 0 0 0 201100000003 0 000000000003
AT3 031170 0 0 0 000000000003 0 201100000003
AT6 031170 000003 0 0 000000000003 0 201100000003
FT1A 031170 000003 0 0 000000000003 0 000000000003
FT9 031171 000003 0 0 000000000003 0 000000000003
ET0 031171 000003 0 0 000000000003 0 000000000003
ST1 031171 000003 0 0 000000000003 0 000000000003
ST2 031171 000003 0 0 000000000003 0 000000000003
ST9 031171 000003 0 0 000000000003 0 000000000003
*031171 SETZM 0,000003
INITIAL
C(AC)=000002 000002
C(E)=000000 000000
FINAL
C(E)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031171 031171 0 0 402000000003 0 000000000003
IT1 031171 0 0 0 402000000003 0 000000000003
AT3 031171 0 0 0 000000000003 0 402000000003
AT6 031171 000003 0 0 000000000003 0 402000000003
FT1A 031171 000003 0 0 000000000003 0 000000000003
FT9 031172 000003 0 0 000000000003 0 000000000003
ET0 031172 000003 0 0 0 0 000000000003
ST6 031172 000003 0 0 0 0 000000000003
ST6A 031172 000003 0 0 0 0 000000000003
ST9 031172 000003 0 0 0 0 000000000003
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 64
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0153
*031172 POP 0,000003
INITIAL
C(AC)=000002 000002
FINAL
C(AC)=000001 000001 C(C(ACR)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031172 031172 0 0 262000000003 0 000000000003
IT1 031172 0 0 0 262000000003 0 000000000003
AT3 031172 0 0 0 000000000003 0 262000000003
AT6 031172 000003 0 0 000000000003 0 262000000003
FT1A 031172 000003 0 0 000000000003 0 000000000003
FT2 031172 000003 0 0 0 0 000000000003
FT2RQ 031172 000003 0 0 000002000002 0 000000000003
FT3 031172 000003 0 0 000002000002 0 000000000003
FT7 031172 000002 0 0 000000000003 000002000002 000000000003
FT4RQ 031172 000002 0 0 000000000003 000002000002 000000000003
FT4A 031172 000002 0 0 000002000002 000000000003 000000000003
FT9 031173 000002 0 0 000002000002 000000000003 000000000003
ET0 031173 000002 0 0 000000000003 000001000001 000000000003
ET1 031173 000002 0 0 000000000003 000001000001 000000000003
ET2 031173 000003 0 0 000001000001 000001000001 000000000003
ST1 031173 000003 0 0 000001000001 000001000001 000000000003
ST2 031173 000003 0 0 000000000003 000001000001 000000000003
ST3 031173 000003 0 0 000000000003 000001000001 000000000003
ST6 031173 000003 0 0 000000000003 000001000001 000000000003
ST6A 031173 000003 0 0 000000000003 000001000001 000000000003
ST9 031173 000003 0 0 000000000003 000001000001 000000000003
*031173 CAIE 3,000003
INITIAL
C(AC)=000000 000003
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031173 031173 0 0 302140000003 0 000000000003
IT1 031173 0 0 0 302140000003 0 000000000003
AT3 031173 0 0 0 000000000003 0 302140000003
AT6 031173 000003 0 0 000000000003 0 302140000003
FT1A 031173 000003 0 0 000000000003 0 000000000003
FT2 031173 000003 0 0 0 0 000000000003
FT2RQ 031173 000003 0 0 000000000003 0 000000000003
FT3 031173 000003 0 0 000000000003 0 000000000003
FT9 031174 000003 0 0 000000000003 0 000000000003
ET0 031175 000003 0 0 0 0 000000000003
ST1A 031175 000003 0 0 0 0 000000000003
ST9 031175 000003 0 0 0 0 000000000003
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 65
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0154
*031175 JUMPA 0,031176
INITIAL
C(AC)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031175 031175 0 0 324000031176 0 000000031176
IT1 031175 0 0 0 324000031176 0 000000031176
AT3 031175 0 0 0 000000031176 0 324000031176
AT6 031175 031176 0 0 000000031176 0 324000031176
FT1A 031175 031176 0 0 000000031176 0 000000031176
FT2 031175 031176 0 0 0 0 000000031176
FT2RQ 031175 031176 0 0 000001000001 0 000000031176
FT3 031175 031176 0 0 000001000001 0 000000031176
FT9 031176 031176 0 0 000001000001 0 000000031176
ET0 031176 031176 0 0 000001000001 0 000000031176
ST1A 031176 031176 0 0 000001000001 0 000000031176
ST9 031176 031176 0 0 000001000001 0 000000031176
*031176 SETZM 0,000002
INITIAL
C(AC)=000001 000001
C(E)=000000 000003
FINAL
C(E)=000000 000003
TIME PC MA SC FE AR MQ BR
IT0 031176 031176 0 0 402000000002 0 000000000002
IT1 031176 0 0 0 402000000002 0 000000000002
AT3 031176 0 0 0 000000000002 0 402000000002
AT6 031176 000002 0 0 000000000002 0 402000000002
FT1A 031176 000002 0 0 000000000002 0 000000000002
FT9 031177 000002 0 0 000000000002 0 000000000002
ET0 031177 000002 0 0 0 0 000000000002
ST6 031177 000002 0 0 0 0 000000000002
ST6A 031177 000002 0 0 0 0 000000000002
ST9 031177 000002 0 0 0 0 000000000002
*031177 MOVE 0,032232
INITIAL
C(AC)=000001 000001
C(E)=000002 000002
FINAL
C(AC)=000002 000002
TIME PC MA SC FE AR MQ BR
IT0 031177 031177 0 0 200000032232 0 000002000002
IT1 031177 0 0 0 200000032232 0 000002000002
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 66
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0155
AT3 031177 0 0 0 000000032232 0 200000032232
AT6 031177 032232 0 0 000000032232 0 200000032232
FT0 031177 032232 0 0 000002000002 0 200000032232
FT1A 031177 032232 0 0 000002000002 0 000002000002
FT9 0 032232 0 0 000002000002 0 000002000002
ET0 0 032232 0 0 000002000002 0 000002000002
ST1 0 032232 0 0 000002000002 0 000002000002
ST2 0 032232 0 0 000002000002 0 000002000002
ST9 0 032232 0 0 000002000002 0 000002000002
*031200 MOVEI 2,000017
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000000 000017
TIME PC MA SC FE AR MQ BR
IT0 0 0 0 0 201100000017 0 000000000017
IT1 0 0 0 0 201100000017 0 000000000017
AT3 0 0 0 0 000000000017 0 201100000017
AT6 0 000017 0 0 000000000017 0 201100000017
FT1A 0 000017 0 0 000000000017 0 000000000017
FT9 031201 000017 0 0 000000000017 0 000000000017
ET0 031201 000017 0 0 000000000017 0 000000000017
ST1 031201 000017 0 0 000000000017 0 000000000017
ST2 031201 000017 0 0 000000000017 0 000000000017
ST9 031201 000017 0 0 000000000017 0 000000000017
*031201 POP 0,000002
INITIAL
C(AC)=000002 000002
FINAL
C(AC)=000001 000001 C(C(ACR)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031201 031201 0 0 262000000002 0 000000000017
IT1 031201 0 0 0 262000000002 0 000000000017
AT3 031201 0 0 0 000000000002 0 262000000002
AT6 031201 000002 0 0 000000000002 0 262000000002
FT1A 031201 000002 0 0 000000000002 0 000000000002
FT2 031201 000002 0 0 0 0 000000000002
FT2RQ 031201 000002 0 0 000002000002 0 000000000002
FT3 031201 000002 0 0 000002000002 0 000000000002
FT7 031201 000002 0 0 000000000017 000002000002 000000000002
FT4RQ 031201 000002 0 0 000000000017 000002000002 000000000002
FT4A 031201 000002 0 0 000002000002 000000000017 000000000002
FT9 031202 000002 0 0 000002000002 000000000017 000000000002
ET0 031202 000002 0 0 000000000017 000001000001 000000000002
ET1 031202 000002 0 0 000000000002 000001000001 000000000017
ET2 031202 000002 0 0 000001000001 000001000001 000000000017
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 67
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0156
ST1 031202 000002 0 0 000001000001 000001000001 000000000017
ST2 031202 000002 0 0 000000000017 000001000001 000000000017
ST3 031202 000002 0 0 000000000017 000001000001 000000000017
ST6 031202 000002 0 0 000000000017 000001000001 000000000017
ST6A 031202 000002 0 0 000000000017 000001000001 000000000017
ST9 031202 000002 0 0 000000000017 000001000001 000000000017
*031202 CAIE 2,000017
INITIAL
C(AC)=000000 000017
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031202 031202 0 0 302100000017 0 000000000017
IT1 031202 0 0 0 302100000017 0 000000000017
AT3 031202 0 0 0 000000000017 0 302100000017
AT6 031202 000017 0 0 000000000017 0 302100000017
FT1A 031202 000017 0 0 000000000017 0 000000000017
FT2 031202 000017 0 0 0 0 000000000017
FT2RQ 031202 000017 0 0 000000000017 0 000000000017
FT3 031202 000017 0 0 000000000017 0 000000000017
FT9 031203 000017 0 0 000000000017 0 000000000017
ET0 031204 000017 0 0 0 0 000000000017
ST1A 031204 000017 0 0 0 0 000000000017
ST9 031204 000017 0 0 0 0 000000000017
*031204 JUMPA 0,031205
INITIAL
C(AC)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031204 031204 0 0 324000031205 0 000000031205
IT1 031204 0 0 0 324000031205 0 000000031205
AT3 031204 0 0 0 000000031205 0 324000031205
AT6 031204 031205 0 0 000000031205 0 324000031205
FT1A 031204 031205 0 0 000000031205 0 000000031205
FT2 031204 031205 0 0 0 0 000000031205
FT2RQ 031204 031205 0 0 000001000001 0 000000031205
FT3 031204 031205 0 0 000001000001 0 000000031205
FT9 031205 031205 0 0 000001000001 0 000000031205
ET0 031205 031205 0 0 000001000001 0 000000031205
ST1A 031205 031205 0 0 000001000001 0 000000031205
ST9 031205 031205 0 0 000001000001 0 000000031205
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 68
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0157
*031205 MOVE 0,032232
INITIAL
C(AC)=000001 000001
C(E)=000002 000002
FINAL
C(AC)=000002 000002
TIME PC MA SC FE AR MQ BR
IT0 031205 031205 0 0 200000032232 0 000002000002
IT1 031205 0 0 0 200000032232 0 000002000002
AT3 031205 0 0 0 000000032232 0 200000032232
AT6 031205 032232 0 0 000000032232 0 200000032232
FT0 031205 032232 0 0 000002000002 0 200000032232
FT1A 031205 032232 0 0 000002000002 0 000002000002
FT9 031206 032232 0 0 000002000002 0 000002000002
ET0 031206 032232 0 0 000002000002 0 000002000002
ST1 031206 032232 0 0 000002000002 0 000002000002
ST2 031206 032232 0 0 000002000002 0 000002000002
ST9 031206 032232 0 0 000002000002 0 000002000002
*031206 SETOM 0,000002
INITIAL
C(AC)=000002 000002
C(E)=000000 000017
FINAL
C(E)=000000 000017
TIME PC MA SC FE AR MQ BR
IT0 031206 031206 0 0 476000000002 0 000000000002
IT1 031206 0 0 0 476000000002 0 000000000002
AT3 031206 0 0 0 000000000002 0 476000000002
AT6 031206 000002 0 0 000000000002 0 476000000002
FT1A 031206 000002 0 0 000000000002 0 000000000002
FT9 031207 000002 0 0 000000000002 0 000000000002
ET0 031207 000002 0 0 777777777777 0 000000000002
ST6 031207 000002 0 0 777777777777 0 000000000002
ST6A 031207 000002 0 0 777777777777 0 000000000002
ST9 031207 000002 0 0 777777777777 0 000000000002
*031207 SETZM 0,000003
INITIAL
C(AC)=000002 000002
C(E)=000000 000003
FINAL
C(E)=000000 000003
TIME PC MA SC FE AR MQ BR
IT0 031207 031207 0 0 402000000003 0 000000000003
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 69
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0158
IT1 031207 0 0 0 402000000003 0 000000000003
AT3 031207 0 0 0 000000000003 0 402000000003
AT6 031207 000003 0 0 000000000003 0 402000000003
FT1A 031207 000003 0 0 000000000003 0 000000000003
FT9 031210 000003 0 0 000000000003 0 000000000003
ET0 031210 000003 0 0 0 0 000000000003
ST6 031210 000003 0 0 0 0 000000000003
ST6A 031210 000003 0 0 0 0 000000000003
ST9 031210 000003 0 0 0 0 000000000003
*031210 POP 0,000003
INITIAL
C(AC)=000002 000002
FINAL
C(AC)=000001 000001 C(C(ACR)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031210 031210 0 0 262000000003 0 777777777777
IT1 031210 0 0 0 262000000003 0 777777777777
AT3 031210 0 0 0 000000000003 0 262000000003
AT6 031210 000003 0 0 000000000003 0 262000000003
FT1A 031210 000003 0 0 000000000003 0 000000000003
FT2 031210 000003 0 0 0 0 000000000003
FT2RQ 031210 000003 0 0 000002000002 0 000000000003
FT3 031210 000003 0 0 000002000002 0 000000000003
FT7 031210 000002 0 0 777777777777 000002000002 000000000003
FT4RQ 031210 000002 0 0 777777777777 000002000002 000000000003
FT4A 031210 000002 0 0 000002000002 777777777777 000000000003
FT9 031211 000002 0 0 000002000002 777777777777 000000000003
ET0 031211 000002 0 0 777777777777 000001000001 000000000003
ET1 031211 000002 0 0 000000000003 000001000001 777777777777
ET2 031211 000003 0 0 000001000001 000001000001 777777777777
ST1 031211 000003 0 0 000001000001 000001000001 777777777777
ST2 031211 000003 0 0 777777777777 000001000001 777777777777
ST3 031211 000003 0 0 777777777777 000001000001 777777777777
ST6 031211 000003 0 0 777777777777 000001000001 777777777777
ST6A 031211 000003 0 0 777777777777 000001000001 777777777777
ST9 031211 000003 0 0 777777777777 000001000001 777777777777
*031211 CAME 3,032226
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031211 031211 0 0 312140032226 0 777777777777
IT1 031211 0 0 0 312140032226 0 777777777777
AT3 031211 0 0 0 000000032226 0 312140032226
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 70
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0159
AT6 031211 032226 0 0 000000032226 0 312140032226
FT0 031211 032226 0 0 777777777777 0 312140032226
FT1A 031211 032226 0 0 777777777777 0 777777777777
FT2 031211 032226 0 0 0 0 777777777777
FT2RQ 031211 032226 0 0 777777777777 0 777777777777
FT3 031211 032226 0 0 777777777777 0 777777777777
FT9 031212 032226 0 0 777777777777 0 777777777777
ET0 031213 032226 0 0 0 0 777777777777
ST1A 031213 032226 0 0 0 0 777777777777
ST9 031213 032226 0 0 0 0 777777777777
*031213 JUMPA 0,031214
INITIAL
C(AC)=000001 000001
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031213 031213 0 0 324000031214 0 000000031214
IT1 031213 0 0 0 324000031214 0 000000031214
AT3 031213 0 0 0 000000031214 0 324000031214
AT6 031213 031214 0 0 000000031214 0 324000031214
FT1A 031213 031214 0 0 000000031214 0 000000031214
FT2 031213 031214 0 0 0 0 000000031214
FT2RQ 031213 031214 0 0 000001000001 0 000000031214
FT3 031213 031214 0 0 000001000001 0 000000031214
FT9 031214 031214 0 0 000001000001 0 000000031214
ET0 031214 031214 0 0 000001000001 0 000000031214
ST1A 031214 031214 0 0 000001000001 0 000000031214
ST9 031214 031214 0 0 000001000001 0 000000031214
*031214 MOVE 0,032233
INITIAL
C(AC)=000001 000001
C(E)=000001 000017
FINAL
C(AC)=000001 000017
TIME PC MA SC FE AR MQ BR
IT0 031214 031214 0 0 200000032233 0 000001000017
IT1 031214 0 0 0 200000032233 0 000001000017
AT3 031214 0 0 0 000000032233 0 200000032233
AT6 031214 032233 0 0 000000032233 0 200000032233
FT0 031214 032233 0 0 000001000017 0 200000032233
FT1A 031214 032233 0 0 000001000017 0 000001000017
FT9 031215 032233 0 0 000001000017 0 000001000017
ET0 031215 032233 0 0 000001000017 0 000001000017
ST1 031215 032233 0 0 000001000017 0 000001000017
ST2 031215 032233 0 0 000001000017 0 000001000017
ST9 031215 032233 0 0 000001000017 0 000001000017
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 71
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0160
*031215 SETZM 0,000001
INITIAL
C(AC)=000001 000017
C(E)=000000 000000
FINAL
C(E)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031215 031215 0 0 402000000001 0 000000000001
IT1 031215 0 0 0 402000000001 0 000000000001
AT3 031215 0 0 0 000000000001 0 402000000001
AT6 031215 000001 0 0 000000000001 0 402000000001
FT1A 031215 000001 0 0 000000000001 0 000000000001
FT9 031216 000001 0 0 000000000001 0 000000000001
ET0 031216 000001 0 0 0 0 000000000001
ST6 031216 000001 0 0 0 0 000000000001
ST6A 031216 000001 0 0 0 0 000000000001
ST9 031216 000001 0 0 0 0 000000000001
*031216 SETOM 0,000017
INITIAL
C(AC)=000001 000017
C(E)=000000 000000
FINAL
C(E)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031216 031216 0 0 476000000017 0 000000000017
IT1 031216 0 0 0 476000000017 0 000000000017
AT3 031216 0 0 0 000000000017 0 476000000017
AT6 031216 000017 0 0 000000000017 0 476000000017
FT1A 031216 000017 0 0 000000000017 0 000000000017
FT9 031217 000017 0 0 000000000017 0 000000000017
ET0 031217 000017 0 0 777777777777 0 000000000017
ST6 031217 000017 0 0 777777777777 0 000000000017
ST6A 031217 000017 0 0 777777777777 0 000000000017
ST9 031217 000017 0 0 777777777777 0 000000000017
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 72
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0161
*031217 POP 0,000001
INITIAL
C(AC)=000001 000017
FINAL
C(AC)=000000 000016 C(C(ACR)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031217 031217 0 0 262000000001 0 777777777777
IT1 031217 0 0 0 262000000001 0 777777777777
AT3 031217 0 0 0 000000000001 0 262000000001
AT6 031217 000001 0 0 000000000001 0 262000000001
FT1A 031217 000001 0 0 000000000001 0 000000000001
FT2 031217 000001 0 0 0 0 000000000001
FT2RQ 031217 000001 0 0 000001000017 0 000000000001
FT3 031217 000001 0 0 000001000017 0 000000000001
FT7 031217 000017 0 0 777777777777 000001000017 000000000001
FT4RQ 031217 000017 0 0 777777777777 000001000017 000000000001
FT4A 031217 000017 0 0 000001000017 777777777777 000000000001
FT9 031220 000017 0 0 000001000017 777777777777 000000000001
ET0 031220 000017 0 0 777777777777 000000000016 000000000001
ET1 031220 000017 0 0 000000000001 000000000016 777777777777
ET2 031220 000001 0 0 000000000016 000000000016 777777777777
ST1 031220 000001 0 0 000000000016 000000000016 777777777777
ST2 031220 000001 0 0 777777777777 000000000016 777777777777
ST3 031220 000001 0 0 777777777777 000000000016 777777777777
ST6 031220 000001 0 0 777777777777 000000000016 777777777777
ST6A 031220 000001 0 0 777777777777 000000000016 777777777777
ST9 031220 000001 0 0 777777777777 000000000016 777777777777
*031220 CAME 1,032226
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031220 031220 0 0 312040032226 0 777777777777
IT1 031220 0 0 0 312040032226 0 777777777777
AT3 031220 0 0 0 000000032226 0 312040032226
AT6 031220 032226 0 0 000000032226 0 312040032226
FT0 031220 032226 0 0 777777777777 0 312040032226
FT1A 031220 032226 0 0 777777777777 0 777777777777
FT2 031220 032226 0 0 0 0 777777777777
FT2RQ 031220 032226 0 0 777777777777 0 777777777777
FT3 031220 032226 0 0 777777777777 0 777777777777
FT9 031221 032226 0 0 777777777777 0 777777777777
ET0 031222 032226 0 0 0 0 777777777777
ST1A 031222 032226 0 0 0 0 777777777777
ST9 031222 032226 0 0 0 0 777777777777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 73
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0162
*031222 JUMPA 0,031223
INITIAL
C(AC)=000000 000016
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031222 031222 0 0 324000031223 0 000000031223
IT1 031222 0 0 0 324000031223 0 000000031223
AT3 031222 0 0 0 000000031223 0 324000031223
AT6 031222 031223 0 0 000000031223 0 324000031223
FT1A 031222 031223 0 0 000000031223 0 000000031223
FT2 031222 031223 0 0 0 0 000000031223
FT2RQ 031222 031223 0 0 000000000016 0 000000031223
FT3 031222 031223 0 0 000000000016 0 000000031223
FT9 031223 031223 0 0 000000000016 0 000000031223
ET0 031223 031223 0 0 000000000016 0 000000031223
ST1A 031223 031223 0 0 000000000016 0 000000031223
ST9 031223 031223 0 0 000000000016 0 000000031223
*031223 CAIE 0,000016
INITIAL
C(AC)=000000 000016
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031223 031223 0 0 302000000016 0 000000000016
IT1 031223 0 0 0 302000000016 0 000000000016
AT3 031223 0 0 0 000000000016 0 302000000016
AT6 031223 000016 0 0 000000000016 0 302000000016
FT1A 031223 000016 0 0 000000000016 0 000000000016
FT2 031223 000016 0 0 0 0 000000000016
FT2RQ 031223 000016 0 0 000000000016 0 000000000016
FT3 031223 000016 0 0 000000000016 0 000000000016
FT9 031224 000016 0 0 000000000016 0 000000000016
ET0 031225 000016 0 0 0 0 000000000016
ST1A 031225 000016 0 0 0 0 000000000016
ST9 031225 000016 0 0 0 0 000000000016
*031225 JUMPA 0,031226
INITIAL
C(AC)=000000 000016
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031225 031225 0 0 324000031226 0 000000031226
IT1 031225 0 0 0 324000031226 0 000000031226
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 74
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0163
AT3 031225 0 0 0 000000031226 0 324000031226
AT6 031225 031226 0 0 000000031226 0 324000031226
FT1A 031225 031226 0 0 000000031226 0 000000031226
FT2 031225 031226 0 0 0 0 000000031226
FT2RQ 031225 031226 0 0 000000000016 0 000000031226
FT3 031225 031226 0 0 000000000016 0 000000031226
FT9 031226 031226 0 0 000000000016 0 000000031226
ET0 031226 031226 0 0 000000000016 0 000000031226
ST1A 031226 031226 0 0 000000000016 0 000000031226
ST9 031226 031226 0 0 000000000016 0 000000031226
*031226 MOVSI 1,777777
INITIAL
C(AC)=777777 777777
FINAL
C(AC)=777777 000000
TIME PC MA SC FE AR MQ BR
IT0 031226 031226 0 0 205040777777 0 000000777777
IT1 031226 0 0 0 205040777777 0 000000777777
AT3 031226 0 0 0 000000777777 0 205040777777
AT6 031226 777777 0 0 000000777777 0 205040777777
FT1A 031226 777777 0 0 000000777777 0 000000777777
FT9 031227 777777 0 0 000000777777 0 000000777777
ET0 031227 777777 0 0 777777000000 0 000000777777
ST1 031227 777777 0 0 777777000000 0 000000777777
ST2 031227 777777 0 0 777777000000 0 000000777777
ST9 031227 777777 0 0 777777000000 0 000000777777
*031227 SETZ 0,000000
INITIAL
C(AC)=000000 000016
C(E)=000000 000016
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031227 031227 0 0 400000000000 0 0
IT1 031227 0 0 0 400000000000 0 0
AT3 031227 0 0 0 0 0 400000000000
AT6 031227 0 0 0 0 0 400000000000
FT1A 031227 0 0 0 0 0 0
FT9 031230 0 0 0 0 0 0
ET0 031230 0 0 0 0 0 0
ST1 031230 0 0 0 0 0 0
ST2 031230 0 0 0 0 0 0
ST9 031230 0 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 75
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0164
*031230 POP 1,000017
INITIAL
C(AC)=777777 000000
FINAL
C(AC)=777775 777777
TIME PC MA SC FE AR MQ BR
IT0 031230 031230 0 0 262040000017 0 0
IT1 031230 0 0 0 262040000017 0 0
AT3 031230 0 0 0 000000000017 0 262040000017
AT6 031230 000017 0 0 000000000017 0 262040000017
FT1A 031230 000017 0 0 000000000017 0 000000000017
FT2 031230 000017 0 0 0 0 000000000017
FT2RQ 031230 000017 0 0 777777000000 0 000000000017
FT3 031230 000017 0 0 777777000000 0 000000000017
FT7 031230 0 0 0 0 777777000000 000000000017
FT4RQ 031230 0 0 0 0 777777000000 000000000017
FT4A 031230 0 0 0 777777000000 0 000000000017
FT9 031231 0 0 0 777777000000 0 000000000017
ET0 031231 0 0 0 0 777775777777 000000000017
ET1 031231 0 0 0 000000000017 777775777777 0
ET2 031231 000017 0 0 777775777777 777775777777 0
ST1 031231 000017 0 0 777775777777 777775777777 0
ST2 031231 000017 0 0 0 777775777777 0
ST3 031231 000017 0 0 0 777775777777 0
ST6 031231 000017 0 0 0 777775777777 0
ST6A 031231 000017 0 0 0 777775777777 0
ST9 031231 000017 0 0 0 777775777777 0
*031231 SKIPE 0,000017
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031231 031231 0 0 332000000017 0 0
IT1 031231 0 0 0 332000000017 0 0
AT3 031231 0 0 0 000000000017 0 332000000017
AT6 031231 000017 0 0 000000000017 0 332000000017
FT0 031231 000017 0 0 0 0 332000000017
FT1A 031231 000017 0 0 0 0 0
FT9 031232 000017 0 0 0 0 0
ET0 031233 000017 0 0 0 0 0
ST1A 031233 000017 0 0 0 0 0
ST9 031233 000017 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 76
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0165
*031233 JUMPA 0,031234
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031233 031233 0 0 324000031234 0 000000031234
IT1 031233 0 0 0 324000031234 0 000000031234
AT3 031233 0 0 0 000000031234 0 324000031234
AT6 031233 031234 0 0 000000031234 0 324000031234
FT1A 031233 031234 0 0 000000031234 0 000000031234
FT2 031233 031234 0 0 0 0 000000031234
FT2RQ 031233 031234 0 0 0 0 000000031234
FT3 031233 031234 0 0 0 0 000000031234
FT9 031234 031234 0 0 0 0 000000031234
ET0 031234 031234 0 0 0 0 000000031234
ST1A 031234 031234 0 0 0 0 000000031234
ST9 031234 031234 0 0 0 0 000000031234
*031234 HRLZI 2,000002
INITIAL
C(AC)=777777 777777
FINAL
C(AC)=000002 000000
TIME PC MA SC FE AR MQ BR
IT0 031234 031234 0 0 515100000002 0 000000000002
IT1 031234 0 0 0 515100000002 0 000000000002
AT3 031234 0 0 0 000000000002 0 515100000002
AT6 031234 000002 0 0 000000000002 0 515100000002
FT1A 031234 000002 0 0 000000000002 0 000000000002
FT9 031235 000002 0 0 000000000002 0 000000000002
ET0 031235 000002 0 0 000002000000 0 000000000002
ST1 031235 000002 0 0 000002000000 0 000000000002
ST2 031235 000002 0 0 000002000000 0 000000000002
ST9 031235 000002 0 0 000002000000 0 000000000002
*031235 POP 2,000000
INITIAL
C(AC)=000002 000000
FINAL
C(AC)=000000 777777
TIME PC MA SC FE AR MQ BR
IT0 031235 031235 0 0 262100000000 0 0
IT1 031235 0 0 0 262100000000 0 0
AT3 031235 0 0 0 0 0 262100000000
AT6 031235 0 0 0 0 0 262100000000
FT1A 031235 0 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 77
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0166
FT2 031235 0 0 0 0 0 0
FT2RQ 031235 0 0 0 000002000000 0 0
FT3 031235 0 0 0 000002000000 0 0
FT7 031235 0 0 0 0 000002000000 0
FT4RQ 031235 0 0 0 0 000002000000 0
FT4A 031235 0 0 0 000002000000 0 0
FT9 031236 0 0 0 000002000000 0 0
ET0 031236 0 0 0 0 000000777777 0
ET1 031236 0 0 0 0 000000777777 0
ET2 031236 0 0 0 000000777777 000000777777 0
ST1 031236 0 0 0 000000777777 000000777777 0
ST2 031236 0 0 0 0 000000777777 0
ST3 031236 0 0 0 0 000000777777 0
ST6 031236 0 0 0 0 000000777777 0
ST6A 031236 0 0 0 0 000000777777 0
ST9 031236 0 0 0 0 000000777777 0
*031236 CAIE 2,777777
INITIAL
C(AC)=000000 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031236 031236 0 0 302100777777 0 000000777777
IT1 031236 0 0 0 302100777777 0 000000777777
AT3 031236 0 0 0 000000777777 0 302100777777
AT6 031236 777777 0 0 000000777777 0 302100777777
FT1A 031236 777777 0 0 000000777777 0 000000777777
FT2 031236 777777 0 0 0 0 000000777777
FT2RQ 031236 777777 0 0 000000777777 0 000000777777
FT3 031236 777777 0 0 000000777777 0 000000777777
FT9 031237 777777 0 0 000000777777 0 000000777777
ET0 031240 777777 0 0 0 0 000000777777
ST1A 031240 777777 0 0 0 0 000000777777
ST9 031240 777777 0 0 0 0 000000777777
*031240 JUMPA 0,031241
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031240 031240 0 0 324000031241 0 000000031241
IT1 031240 0 0 0 324000031241 0 000000031241
AT3 031240 0 0 0 000000031241 0 324000031241
AT6 031240 031241 0 0 000000031241 0 324000031241
FT1A 031240 031241 0 0 000000031241 0 000000031241
FT2 031240 031241 0 0 0 0 000000031241
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 78
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0167
FT2RQ 031240 031241 0 0 0 0 000000031241
FT3 031240 031241 0 0 0 0 000000031241
FT9 031241 031241 0 0 0 0 000000031241
ET0 031241 031241 0 0 0 0 000000031241
ST1A 031241 031241 0 0 0 0 000000031241
ST9 031241 031241 0 0 0 0 000000031241
*031241 MOVE 0,032223
INITIAL
C(AC)=000000 000000
C(E)=000001 000001
FINAL
C(AC)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 031241 031241 0 0 200000032223 0 000001000001
IT1 031241 0 0 0 200000032223 0 000001000001
AT3 031241 0 0 0 000000032223 0 200000032223
AT6 031241 032223 0 0 000000032223 0 200000032223
FT0 031241 032223 0 0 000001000001 0 200000032223
FT1A 031241 032223 0 0 000001000001 0 000001000001
FT9 031242 032223 0 0 000001000001 0 000001000001
ET0 031242 032223 0 0 000001000001 0 000001000001
ST1 031242 032223 0 0 000001000001 0 000001000001
ST2 031242 032223 0 0 000001000001 0 000001000001
ST9 031242 032223 0 0 000001000001 0 000001000001
*031242 MOVEI 1,031245
INITIAL
C(AC)=777775 777777
FINAL
C(AC)=000000 031245
TIME PC MA SC FE AR MQ BR
IT0 031242 031242 0 0 201040031245 0 000000031245
IT1 031242 0 0 0 201040031245 0 000000031245
AT3 031242 0 0 0 000000031245 0 201040031245
AT6 031242 031245 0 0 000000031245 0 201040031245
FT1A 031242 031245 0 0 000000031245 0 000000031245
FT9 031243 031245 0 0 000000031245 0 000000031245
ET0 031243 031245 0 0 000000031245 0 000000031245
ST1 031243 031245 0 0 000000031245 0 000000031245
ST2 031243 031245 0 0 000000031245 0 000000031245
ST9 031243 031245 0 0 000000031245 0 000000031245
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 79
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0168
*031243 POPJ 0,031245
INITIAL
C(AC)=000001 000001
FINAL
C(AC)=000000 000000 C(C(ACR)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 031243 031243 0 0 263000031245 0 000000031245
IT1 031243 0 0 0 263000031245 0 000000031245
AT3 031243 0 0 0 000000031245 0 263000031245
AT6 031243 031245 0 0 000000031245 0 263000031245
FT1A 031243 031245 0 0 000000031245 0 000000031245
FT2 031243 031245 0 0 0 0 000000031245
FT2RQ 031243 031245 0 0 000001000001 0 000000031245
FT3 031243 031245 0 0 000001000001 0 000000031245
FT7 031243 000001 0 0 000000031245 000001000001 000000031245
FT4RQ 031243 000001 0 0 000000031245 000001000001 000000031245
FT4A 031243 000001 0 0 000001000001 000000031245 000000031245
FT9 031244 000001 0 0 000001000001 000000031245 000000031245
ET0 031244 000001 0 0 000000031245 0 000000031245
ET1 031244 031245 0 0 0 0 000000031245
ET2 031245 031245 0 0 0 0 000000031245
ST1 031245 031245 0 0 0 0 000000031245
ST2 031245 031245 0 0 0 0 000000031245
ST9 031245 031245 0 0 0 0 000000031245
*031245 JUMPA 0,031246
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031245 031245 0 0 324000031246 0 000000031246
IT1 031245 0 0 0 324000031246 0 000000031246
AT3 031245 0 0 0 000000031246 0 324000031246
AT6 031245 031246 0 0 000000031246 0 324000031246
FT1A 031245 031246 0 0 000000031246 0 000000031246
FT2 031245 031246 0 0 0 0 000000031246
FT2RQ 031245 031246 0 0 0 0 000000031246
FT3 031245 031246 0 0 0 0 000000031246
FT9 031246 031246 0 0 0 0 000000031246
ET0 031246 031246 0 0 0 0 000000031246
ST1A 031246 031246 0 0 0 0 000000031246
ST9 031246 031246 0 0 0 0 000000031246
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 80
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0169
*031246 MOVE 0,032223
INITIAL
C(AC)=000000 000000
C(E)=000001 000001
FINAL
C(AC)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 031246 031246 0 0 200000032223 0 000001000001
IT1 031246 0 0 0 200000032223 0 000001000001
AT3 031246 0 0 0 000000032223 0 200000032223
AT6 031246 032223 0 0 000000032223 0 200000032223
FT0 031246 032223 0 0 000001000001 0 200000032223
FT1A 031246 032223 0 0 000001000001 0 000001000001
FT9 031247 032223 0 0 000001000001 0 000001000001
ET0 031247 032223 0 0 000001000001 0 000001000001
ST1 031247 032223 0 0 000001000001 0 000001000001
ST2 031247 032223 0 0 000001000001 0 000001000001
ST9 031247 032223 0 0 000001000001 0 000001000001
*031247 MOVEI 1,031251
INITIAL
C(AC)=000000 031245
FINAL
C(AC)=000000 031251
TIME PC MA SC FE AR MQ BR
IT0 031247 031247 0 0 201040031251 0 000000031251
IT1 031247 0 0 0 201040031251 0 000000031251
AT3 031247 0 0 0 000000031251 0 201040031251
AT6 031247 031251 0 0 000000031251 0 201040031251
FT1A 031247 031251 0 0 000000031251 0 000000031251
FT9 031250 031251 0 0 000000031251 0 000000031251
ET0 031250 031251 0 0 000000031251 0 000000031251
ST1 031250 031251 0 0 000000031251 0 000000031251
ST2 031250 031251 0 0 000000031251 0 000000031251
ST9 031250 031251 0 0 000000031251 0 000000031251
*031250 POPJ 0,031251
INITIAL
C(AC)=000001 000001
FINAL
C(AC)=000000 000000 C(C(ACR)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 031250 031250 0 0 263000031251 0 000000031251
IT1 031250 0 0 0 263000031251 0 000000031251
AT3 031250 0 0 0 000000031251 0 263000031251
AT6 031250 031251 0 0 000000031251 0 263000031251
FT1A 031250 031251 0 0 000000031251 0 000000031251
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 81
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0170
FT2 031250 031251 0 0 0 0 000000031251
FT2RQ 031250 031251 0 0 000001000001 0 000000031251
FT3 031250 031251 0 0 000001000001 0 000000031251
FT7 031250 000001 0 0 000000031251 000001000001 000000031251
FT4RQ 031250 000001 0 0 000000031251 000001000001 000000031251
FT4A 031250 000001 0 0 000001000001 000000031251 000000031251
FT9 031251 000001 0 0 000001000001 000000031251 000000031251
ET0 031251 000001 0 0 000000031251 0 000000031251
ET1 031251 031251 0 0 0 0 000000031251
ET2 031251 031251 0 0 0 0 000000031251
ST1 031251 031251 0 0 0 0 000000031251
ST2 031251 031251 0 0 0 0 000000031251
ST9 031251 031251 0 0 0 0 000000031251
*031251 CAME 0,032227
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031251 031251 0 0 312000032227 0 0
IT1 031251 0 0 0 312000032227 0 0
AT3 031251 0 0 0 000000032227 0 312000032227
AT6 031251 032227 0 0 000000032227 0 312000032227
FT0 031251 032227 0 0 0 0 312000032227
FT1A 031251 032227 0 0 0 0 0
FT2 031251 032227 0 0 0 0 0
FT2RQ 031251 032227 0 0 0 0 0
FT3 031251 032227 0 0 0 0 0
FT9 031252 032227 0 0 0 0 0
ET0 031253 032227 0 0 0 0 0
ST1A 031253 032227 0 0 0 0 0
ST9 031253 032227 0 0 0 0 0
*031253 JUMPA 0,031254
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031253 031253 0 0 324000031254 0 000000031254
IT1 031253 0 0 0 324000031254 0 000000031254
AT3 031253 0 0 0 000000031254 0 324000031254
AT6 031253 031254 0 0 000000031254 0 324000031254
FT1A 031253 031254 0 0 000000031254 0 000000031254
FT2 031253 031254 0 0 0 0 000000031254
FT2RQ 031253 031254 0 0 0 0 000000031254
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 82
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0171
FT3 031253 031254 0 0 0 0 000000031254
FT9 031254 031254 0 0 0 0 000000031254
ET0 031254 031254 0 0 0 0 000000031254
ST1A 031254 031254 0 0 0 0 000000031254
ST9 031254 031254 0 0 0 0 000000031254
*031254 MOVE 0,032223
INITIAL
C(AC)=000000 000000
C(E)=000001 000001
FINAL
C(AC)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 031254 031254 0 0 200000032223 0 000001000001
IT1 031254 0 0 0 200000032223 0 000001000001
AT3 031254 0 0 0 000000032223 0 200000032223
AT6 031254 032223 0 0 000000032223 0 200000032223
FT0 031254 032223 0 0 000001000001 0 200000032223
FT1A 031254 032223 0 0 000001000001 0 000001000001
FT9 031255 032223 0 0 000001000001 0 000001000001
ET0 031255 032223 0 0 000001000001 0 000001000001
ST1 031255 032223 0 0 000001000001 0 000001000001
ST2 031255 032223 0 0 000001000001 0 000001000001
ST9 031255 032223 0 0 000001000001 0 000001000001
*031255 MOVEI 1,031257
INITIAL
C(AC)=000000 031251
FINAL
C(AC)=000000 031257
TIME PC MA SC FE AR MQ BR
IT0 031255 031255 0 0 201040031257 0 000000031257
IT1 031255 0 0 0 201040031257 0 000000031257
AT3 031255 0 0 0 000000031257 0 201040031257
AT6 031255 031257 0 0 000000031257 0 201040031257
FT1A 031255 031257 0 0 000000031257 0 000000031257
FT9 031256 031257 0 0 000000031257 0 000000031257
ET0 031256 031257 0 0 000000031257 0 000000031257
ST1 031256 031257 0 0 000000031257 0 000000031257
ST2 031256 031257 0 0 000000031257 0 000000031257
ST9 031256 031257 0 0 000000031257 0 000000031257
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 83
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0172
*031256 POPJ 0,031260
INITIAL
C(AC)=000001 000001
FINAL
C(AC)=000000 000000 C(C(ACR)=000001 000001
TIME PC MA SC FE AR MQ BR
IT0 031256 031256 0 0 263000031260 0 000000031260
IT1 031256 0 0 0 263000031260 0 000000031260
AT3 031256 0 0 0 000000031260 0 263000031260
AT6 031256 031260 0 0 000000031260 0 263000031260
FT1A 031256 031260 0 0 000000031260 0 000000031260
FT2 031256 031260 0 0 0 0 000000031260
FT2RQ 031256 031260 0 0 000001000001 0 000000031260
FT3 031256 031260 0 0 000001000001 0 000000031260
FT7 031256 000001 0 0 000000031257 000001000001 000000031260
FT4RQ 031256 000001 0 0 000000031257 000001000001 000000031260
FT4A 031256 000001 0 0 000001000001 000000031257 000000031260
FT9 031257 000001 0 0 000001000001 000000031257 000000031260
ET0 031257 000001 0 0 000000031257 0 000000031260
ET1 031257 031257 0 0 0 0 000000031260
ET2 031257 031257 0 0 0 0 000000031260
ST1 031257 031257 0 0 0 0 000000031260
ST2 031257 031257 0 0 0 0 000000031260
ST9 031257 031257 0 0 0 0 000000031260
*031257 SKIPA 0,000000
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031257 031257 0 0 334000000000 0 0
IT1 031257 0 0 0 334000000000 0 0
AT3 031257 0 0 0 0 0 334000000000
AT6 031257 0 0 0 0 0 334000000000
FT0 031257 0 0 0 0 0 334000000000
FT1A 031257 0 0 0 0 0 0
FT9 031260 0 0 0 0 0 0
ET0 031261 0 0 0 0 0 0
ST1A 031261 0 0 0 0 0 0
ST9 031261 0 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 84
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0173
*031261 JUMPA 0,031262
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031261 031261 0 0 324000031262 0 000000031262
IT1 031261 0 0 0 324000031262 0 000000031262
AT3 031261 0 0 0 000000031262 0 324000031262
AT6 031261 031262 0 0 000000031262 0 324000031262
FT1A 031261 031262 0 0 000000031262 0 000000031262
FT2 031261 031262 0 0 0 0 000000031262
FT2RQ 031261 031262 0 0 0 0 000000031262
FT3 031261 031262 0 0 0 0 000000031262
FT9 031262 031262 0 0 0 0 000000031262
ET0 031262 031262 0 0 0 0 000000031262
ST1A 031262 031262 0 0 0 0 000000031262
ST9 031262 031262 0 0 0 0 000000031262
*031262 HRLZI 2,000002
INITIAL
C(AC)=000000 777777
FINAL
C(AC)=000002 000000
TIME PC MA SC FE AR MQ BR
IT0 031262 031262 0 0 515100000002 0 000000000002
IT1 031262 0 0 0 515100000002 0 000000000002
AT3 031262 0 0 0 000000000002 0 515100000002
AT6 031262 000002 0 0 000000000002 0 515100000002
FT1A 031262 000002 0 0 000000000002 0 000000000002
FT9 031263 000002 0 0 000000000002 0 000000000002
ET0 031263 000002 0 0 000002000000 0 000000000002
ST1 031263 000002 0 0 000002000000 0 000000000002
ST2 031263 000002 0 0 000002000000 0 000000000002
ST9 031263 000002 0 0 000002000000 0 000000000002
*031263 MOVEI 0,031265
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000000 031265
TIME PC MA SC FE AR MQ BR
IT0 031263 031263 0 0 201000031265 0 000000031265
IT1 031263 0 0 0 201000031265 0 000000031265
AT3 031263 0 0 0 000000031265 0 201000031265
AT6 031263 031265 0 0 000000031265 0 201000031265
FT1A 031263 031265 0 0 000000031265 0 000000031265
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 85
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0174
FT9 031264 031265 0 0 000000031265 0 000000031265
ET0 031264 031265 0 0 000000031265 0 000000031265
ST1 031264 031265 0 0 000000031265 0 000000031265
ST2 031264 031265 0 0 000000031265 0 000000031265
ST9 031264 031265 0 0 000000031265 0 000000031265
*031264 POPJ 2,000000
INITIAL
C(AC)=000002 000000
FINAL
C(AC)=000000 777777
TIME PC MA SC FE AR MQ BR
IT0 031264 031264 0 0 263100000000 0 0
IT1 031264 0 0 0 263100000000 0 0
AT3 031264 0 0 0 0 0 263100000000
AT6 031264 0 0 0 0 0 263100000000
FT1A 031264 0 0 0 0 0 0
FT2 031264 0 0 0 0 0 0
FT2RQ 031264 0 0 0 000002000000 0 0
FT3 031264 0 0 0 000002000000 0 0
FT7 031264 0 0 0 000000031265 000002000000 0
FT4RQ 031264 0 0 0 000000031265 000002000000 0
FT4A 031264 0 0 0 000002000000 000000031265 0
FT9 031265 0 0 0 000002000000 000000031265 0
ET0 031265 0 0 0 000000031265 000000777777 0
ET1 031265 031265 0 0 000000777777 000000777777 0
ET2 031265 031265 0 0 000000777777 000000777777 0
ST1 031265 031265 0 0 000000777777 000000777777 0
ST2 031265 031265 0 0 000000777777 000000777777 0
ST9 031265 031265 0 0 000000777777 000000777777 0
*031265 CAIE 2,777777
INITIAL
C(AC)=000000 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031265 031265 0 0 302100777777 0 000000777777
IT1 031265 0 0 0 302100777777 0 000000777777
AT3 031265 0 0 0 000000777777 0 302100777777
AT6 031265 777777 0 0 000000777777 0 302100777777
FT1A 031265 777777 0 0 000000777777 0 000000777777
FT2 031265 777777 0 0 0 0 000000777777
FT2RQ 031265 777777 0 0 000000777777 0 000000777777
FT3 031265 777777 0 0 000000777777 0 000000777777
FT9 031266 777777 0 0 000000777777 0 000000777777
ET0 031267 777777 0 0 0 0 000000777777
ST1A 031267 777777 0 0 0 0 000000777777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 86
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0175
ST9 031267 777777 0 0 0 0 000000777777
*031267 JUMPA 0,031270
INITIAL
C(AC)=000000 031265
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031267 031267 0 0 324000031270 0 000000031270
IT1 031267 0 0 0 324000031270 0 000000031270
AT3 031267 0 0 0 000000031270 0 324000031270
AT6 031267 031270 0 0 000000031270 0 324000031270
FT1A 031267 031270 0 0 000000031270 0 000000031270
FT2 031267 031270 0 0 0 0 000000031270
FT2RQ 031267 031270 0 0 000000031265 0 000000031270
FT3 031267 031270 0 0 000000031265 0 000000031270
FT9 031270 031270 0 0 000000031265 0 000000031270
ET0 031270 031270 0 0 000000031265 0 000000031270
ST1A 031270 031270 0 0 000000031265 0 000000031270
ST9 031270 031270 0 0 000000031265 0 000000031270
*031270 SETOB 0,000001
INITIAL
C(AC)=000000 031265
C(E)=000000 031257
FINAL
C(AC)=777777 777777
C(E)=000000 031257
TIME PC MA SC FE AR MQ BR
IT0 031270 031270 0 0 477000000001 0 000000000001
IT1 031270 0 0 0 477000000001 0 000000000001
AT3 031270 0 0 0 000000000001 0 477000000001
AT6 031270 000001 0 0 000000000001 0 477000000001
FT1A 031270 000001 0 0 000000000001 0 000000000001
FT9 031271 000001 0 0 000000000001 0 000000000001
ET0 031271 000001 0 0 777777777777 0 000000000001
ST1 031271 000001 0 0 777777777777 0 000000000001
ST2 031271 000001 0 0 777777777777 0 000000000001
ST6 031271 000001 0 0 777777777777 0 000000000001
ST6A 031271 000001 0 0 777777777777 0 000000000001
ST9 031271 000001 0 0 777777777777 0 000000000001
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 87
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0176
*031271 XCT 0,032234
TIME PC MA SC FE AR MQ BR
IT0 031271 032234 0 0 312000000001 0 000000032234
IT1 031271 0 0 0 312000000001 0 000000032234
AT3 031271 0 0 0 000000000001 0 312000000001
AT6 031271 000001 0 0 000000000001 0 312000000001
FT0 031271 000001 0 0 777777777777 0 312000000001
FT1A 031271 000001 0 0 777777777777 0 777777777777
FT2 031271 000001 0 0 0 0 777777777777
FT2RQ 031271 000001 0 0 777777777777 0 777777777777
FT3 031271 000001 0 0 777777777777 0 777777777777
FT9 031272 000001 0 0 777777777777 0 777777777777
ET0 031273 000001 0 0 0 0 777777777777
ST1A 031273 000001 0 0 0 0 777777777777
ST9 031273 000001 0 0 0 0 777777777777
*031273 JUMPA 0,031274
INITIAL
C(AC)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031273 031273 0 0 324000031274 0 000000031274
IT1 031273 0 0 0 324000031274 0 000000031274
AT3 031273 0 0 0 000000031274 0 324000031274
AT6 031273 031274 0 0 000000031274 0 324000031274
FT1A 031273 031274 0 0 000000031274 0 000000031274
FT2 031273 031274 0 0 0 0 000000031274
FT2RQ 031273 031274 0 0 777777777777 0 000000031274
FT3 031273 031274 0 0 777777777777 0 000000031274
FT9 031274 031274 0 0 777777777777 0 000000031274
ET0 031274 031274 0 0 777777777777 0 000000031274
ST1A 031274 031274 0 0 777777777777 0 000000031274
ST9 031274 031274 0 0 777777777777 0 000000031274
*031274 SETOB 0,000001
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
C(AC)=777777 777777
C(E)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 031274 031274 0 0 477000000001 0 000000000001
IT1 031274 0 0 0 477000000001 0 000000000001
AT3 031274 0 0 0 000000000001 0 477000000001
AT6 031274 000001 0 0 000000000001 0 477000000001
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 88
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0177
FT1A 031274 000001 0 0 000000000001 0 000000000001
FT9 031275 000001 0 0 000000000001 0 000000000001
ET0 031275 000001 0 0 777777777777 0 000000000001
ST1 031275 000001 0 0 777777777777 0 000000000001
ST2 031275 000001 0 0 777777777777 0 000000000001
ST6 031275 000001 0 0 777777777777 0 000000000001
ST6A 031275 000001 0 0 777777777777 0 000000000001
ST9 031275 000001 0 0 777777777777 0 000000000001
*031275 XCT 0,032236
TIME PC MA SC FE AR MQ BR
IT0 031275 032236 0 0 256000032235 0 000000032236
IT1 031275 0 0 0 256000032235 0 000000032236
AT3 031275 0 0 0 000000032235 0 256000032235
AT6 031275 032235 0 0 000000032235 0 256000032235
FT1A 031275 032235 0 0 000000032235 0 000000032235
FT9 031275 032235 0 0 000000032235 0 000000032235
ET0 031275 032235 0 0 000000032235 0 000000032235
ST1A 031275 032235 0 0 000000032235 0 000000032235
ST9 031275 032235 0 0 000000032235 0 000000032235
*031275 XCT 0,032236
TIME PC MA SC FE AR MQ BR
IT0 031275 032234 0 0 312000000001 0 000000032234
IT1 031275 0 0 0 312000000001 0 000000032234
AT3 031275 0 0 0 000000000001 0 312000000001
AT6 031275 000001 0 0 000000000001 0 312000000001
FT0 031275 000001 0 0 777777777777 0 312000000001
FT1A 031275 000001 0 0 777777777777 0 777777777777
FT2 031275 000001 0 0 0 0 777777777777
FT2RQ 031275 000001 0 0 777777777777 0 777777777777
FT3 031275 000001 0 0 777777777777 0 777777777777
FT9 031276 000001 0 0 777777777777 0 777777777777
ET0 031277 000001 0 0 0 0 777777777777
ST1A 031277 000001 0 0 0 0 777777777777
ST9 031277 000001 0 0 0 0 777777777777
*031277 JUMPA 0,031300
INITIAL
C(AC)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031277 031277 0 0 324000031300 0 000000031300
IT1 031277 0 0 0 324000031300 0 000000031300
AT3 031277 0 0 0 000000031300 0 324000031300
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 89
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0178
AT6 031277 0 0 0 000000031300 0 324000031300
FT1A 031277 0 0 0 000000031300 0 000000031300
FT2 031277 0 0 0 0 0 000000031300
FT2RQ 031277 0 0 0 777777777777 0 000000031300
FT3 031277 0 0 0 777777777777 0 000000031300
FT9 0 0 0 0 777777777777 0 000000031300
ET0 0 0 0 0 777777777777 0 000000031300
ST1A 0 0 0 0 777777777777 0 000000031300
ST9 0 0 0 0 777777777777 0 000000031300
*031300 XCT 0,032237
TIME PC MA SC FE AR MQ BR
IT0 0 032237 0 0 254000031304 0 000000032237
IT1 0 0 0 0 254000031304 0 000000032237
AT3 0 0 0 0 000000031304 0 254000031304
AT6 0 031304 0 0 000000031304 0 254000031304
FT1A 0 031304 0 0 000000031304 0 254000031304
FT9 031301 031304 0 0 000000031304 0 254000031304
ET0 031304 031301 0 0 000000031304 0 254000031304
ST1A 031304 031301 0 0 000000031304 0 254000031304
ST9 031304 031301 0 0 000000031304 0 254000031304
*031304 JUMPA 0,031305
INITIAL
C(AC)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031304 031304 0 0 324000031305 0 000000031305
IT1 031304 0 0 0 324000031305 0 000000031305
AT3 031304 0 0 0 000000031305 0 324000031305
AT6 031304 031305 0 0 000000031305 0 324000031305
FT1A 031304 031305 0 0 000000031305 0 000000031305
FT2 031304 031305 0 0 0 0 000000031305
FT2RQ 031304 031305 0 0 777777777777 0 000000031305
FT3 031304 031305 0 0 777777777777 0 000000031305
FT9 031305 031305 0 0 777777777777 0 000000031305
ET0 031305 031305 0 0 777777777777 0 000000031305
ST1A 031305 031305 0 0 777777777777 0 000000031305
ST9 031305 031305 0 0 777777777777 0 000000031305
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 90
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0179
*031305 SETZM 0,000003
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
C(E)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 031305 031305 0 0 402000000003 0 000000000003
IT1 031305 0 0 0 402000000003 0 000000000003
AT3 031305 0 0 0 000000000003 0 402000000003
AT6 031305 000003 0 0 000000000003 0 402000000003
FT1A 031305 000003 0 0 000000000003 0 000000000003
FT9 031306 000003 0 0 000000000003 0 000000000003
ET0 031306 000003 0 0 0 0 000000000003
ST6 031306 000003 0 0 0 0 000000000003
ST6A 031306 000003 0 0 0 0 000000000003
ST9 031306 000003 0 0 0 0 000000000003
*031306 XCT 0,032242
TIME PC MA SC FE AR MQ BR
IT0 031306 032242 0 0 256000032241 0 000000032242
IT1 031306 0 0 0 256000032241 0 000000032242
AT3 031306 0 0 0 000000032241 0 256000032241
AT6 031306 032241 0 0 000000032241 0 256000032241
FT1A 031306 032241 0 0 000000032241 0 000000032241
FT9 031306 032241 0 0 000000032241 0 000000032241
ET0 031306 032241 0 0 000000032241 0 000000032241
ST1A 031306 032241 0 0 000000032241 0 000000032241
ST9 031306 032241 0 0 000000032241 0 000000032241
*031306 XCT 0,032242
TIME PC MA SC FE AR MQ BR
IT0 031306 032240 0 0 265140031311 0 000000032240
IT1 031306 0 0 0 265140031311 0 000000032240
AT3 031306 0 0 0 000000031311 0 265140031311
AT6 031306 031311 0 0 000000031311 0 265140031311
FT1A 031306 031311 0 0 000000031311 0 000000031311
FT9 031307 031311 0 0 000000031311 0 000000031311
ET0 031311 031311 0 0 000000031307 0 000000031311
ST1 031311 031311 0 0 000000031307 0 000000031311
ST2 031311 031311 0 0 000000031307 0 000000031311
ST9 031311 031311 0 0 000000031307 0 000000031311
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 91
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0180
*031311 TRZ 3,031307
INITIAL
C(AC)=000000 031307
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031311 031311 0 0 620140031307 0 000000031307
IT1 031311 0 0 0 620140031307 0 000000031307
AT3 031311 0 0 0 000000031307 0 620140031307
AT6 031311 031307 0 0 000000031307 0 620140031307
FT1A 031311 031307 0 0 000000031307 0 000000031307
FT2 031311 031307 0 0 0 0 000000031307
FT2RQ 031311 031307 0 0 000000031307 0 000000031307
FT3 031311 031307 0 0 000000031307 0 000000031307
FT9 031312 031307 0 0 000000031307 0 000000031307
ET0 031312 031307 0 0 000000031307 0 000000031307
ET1 031312 031307 0 0 0 0 000000031307
ET2 031312 031307 0 0 0 0 000000031307
ST1 031312 031307 0 0 0 0 000000031307
ST2 031312 031307 0 0 0 0 000000031307
ST9 031312 031307 0 0 0 0 000000031307
*031312 TRNE 3,777777
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031312 031312 0 0 602140777777 0 0
IT1 031312 0 0 0 602140777777 0 0
AT3 031312 0 0 0 000000777777 0 602140777777
AT6 031312 777777 0 0 000000777777 0 602140777777
FT1A 031312 777777 0 0 000000777777 0 000000777777
FT2 031312 777777 0 0 0 0 000000777777
FT2RQ 031312 777777 0 0 0 0 000000777777
FT3 031312 777777 0 0 0 0 000000777777
FT9 031313 777777 0 0 0 0 000000777777
ET0 031313 777777 0 0 0 0 000000777777
ET1 031313 777777 0 0 0 0 0
ET2 031314 777777 0 0 0 0 0
ST1A 031314 777777 0 0 0 0 0
ST9 031314 777777 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 92
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0181
*031314 JUMPA 0,031315
INITIAL
C(AC)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031314 031314 0 0 324000031315 0 000000031315
IT1 031314 0 0 0 324000031315 0 000000031315
AT3 031314 0 0 0 000000031315 0 324000031315
AT6 031314 031315 0 0 000000031315 0 324000031315
FT1A 031314 031315 0 0 000000031315 0 000000031315
FT2 031314 031315 0 0 0 0 000000031315
FT2RQ 031314 031315 0 0 777777777777 0 000000031315
FT3 031314 031315 0 0 777777777777 0 000000031315
FT9 031315 031315 0 0 777777777777 0 000000031315
ET0 031315 031315 0 0 777777777777 0 000000031315
ST1A 031315 031315 0 0 777777777777 0 000000031315
ST9 031315 031315 0 0 777777777777 0 000000031315
*031315 SETZB 0,000000
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
C(AC)=000000 000000
C(E)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 031315 031315 0 0 403000000000 0 0
IT1 031315 0 0 0 403000000000 0 0
AT3 031315 0 0 0 0 0 403000000000
AT6 031315 0 0 0 0 0 403000000000
FT1A 031315 0 0 0 0 0 0
FT9 031316 0 0 0 0 0 0
ET0 031316 0 0 0 0 0 0
ST1 031316 0 0 0 0 0 0
ST2 031316 0 0 0 0 0 0
ST6 031316 0 0 0 0 0 0
ST6A 031316 0 0 0 0 0 0
ST9 031316 0 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 93
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0182
*031316 SETOM 0,000001
INITIAL
C(AC)=000000 000000
C(E)=777777 777777
FINAL
C(E)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 031316 031316 0 0 476000000001 0 000000000001
IT1 031316 0 0 0 476000000001 0 000000000001
AT3 031316 0 0 0 000000000001 0 476000000001
AT6 031316 000001 0 0 000000000001 0 476000000001
FT1A 031316 000001 0 0 000000000001 0 000000000001
FT9 031317 000001 0 0 000000000001 0 000000000001
ET0 031317 000001 0 0 777777777777 0 000000000001
ST6 031317 000001 0 0 777777777777 0 000000000001
ST6A 031317 000001 0 0 777777777777 0 000000000001
ST9 031317 000001 0 0 777777777777 0 000000000001
*031317 XCT 0,032234
TIME PC MA SC FE AR MQ BR
IT0 031317 032234 0 0 312000000001 0 000000032234
IT1 031317 0 0 0 312000000001 0 000000032234
AT3 031317 0 0 0 000000000001 0 312000000001
AT6 031317 000001 0 0 000000000001 0 312000000001
FT0 031317 000001 0 0 777777777777 0 312000000001
FT1A 031317 000001 0 0 777777777777 0 777777777777
FT2 031317 000001 0 0 0 0 777777777777
FT2RQ 031317 000001 0 0 0 0 777777777777
FT3 031317 000001 0 0 0 0 777777777777
FT9 031320 000001 0 0 0 0 777777777777
ET0 031320 000001 0 0 000000000001 0 777777777777
ST1A 031320 000001 0 0 000000000001 0 777777777777
ST9 031320 000001 0 0 000000000001 0 777777777777
*031320 JRST 0,031322
INITIAL
C(AC)=000000 000000
C(E)=324000 031323
FINAL
C(E)=324000 031323
TIME PC MA SC FE AR MQ BR
IT0 031320 031320 0 0 254000031322 0 254000031322
IT1 031320 0 0 0 254000031322 0 254000031322
AT3 031320 0 0 0 000000031322 0 254000031322
AT6 031320 031322 0 0 000000031322 0 254000031322
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 94
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0183
FT1A 031320 031322 0 0 000000031322 0 254000031322
FT9 031321 031322 0 0 000000031322 0 254000031322
ET0 031322 031321 0 0 000000031322 0 254000031322
ST1A 031322 031321 0 0 000000031322 0 254000031322
ST9 031322 031321 0 0 000000031322 0 254000031322
*031322 JUMPA 0,031323
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031322 031322 0 0 324000031323 0 000000031323
IT1 031322 0 0 0 324000031323 0 000000031323
AT3 031322 0 0 0 000000031323 0 324000031323
AT6 031322 031323 0 0 000000031323 0 324000031323
FT1A 031322 031323 0 0 000000031323 0 000000031323
FT2 031322 031323 0 0 0 0 000000031323
FT2RQ 031322 031323 0 0 0 0 000000031323
FT3 031322 031323 0 0 0 0 000000031323
FT9 031323 031323 0 0 0 0 000000031323
ET0 031323 031323 0 0 0 0 000000031323
ST1A 031323 031323 0 0 0 0 000000031323
ST9 031323 031323 0 0 0 0 000000031323
*031323 MOVEI 4,000010
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000000 000010
TIME PC MA SC FE AR MQ BR
IT0 031323 031323 0 0 201200000010 0 000000000010
IT1 031323 0 0 0 201200000010 0 000000000010
AT3 031323 0 0 0 000000000010 0 201200000010
AT6 031323 000010 0 0 000000000010 0 201200000010
FT1A 031323 000010 0 0 000000000010 0 000000000010
FT9 031324 000010 0 0 000000000010 0 000000000010
ET0 031324 000010 0 0 000000000010 0 000000000010
ST1 031324 000010 0 0 000000000010 0 000000000010
ST2 031324 000010 0 0 000000000010 0 000000000010
ST9 031324 000010 0 0 000000000010 0 000000000010
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 95
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0184
*031324 MOVEI 11,000013
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000000 000013
TIME PC MA SC FE AR MQ BR
IT0 031324 031324 0 0 201440000013 0 000000000013
IT1 031324 0 0 0 201440000013 0 000000000013
AT3 031324 0 0 0 000000000013 0 201440000013
AT6 031324 000013 0 0 000000000013 0 201440000013
FT1A 031324 000013 0 0 000000000013 0 000000000013
FT9 031325 000013 0 0 000000000013 0 000000000013
ET0 031325 000013 0 0 000000000013 0 000000000013
ST1 031325 000013 0 0 000000000013 0 000000000013
ST2 031325 000013 0 0 000000000013 0 000000000013
ST9 031325 000013 0 0 000000000013 0 000000000013
*031325 MOVEI 6,000003
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000000 000003
TIME PC MA SC FE AR MQ BR
IT0 031325 031325 0 0 201300000003 0 000000000003
IT1 031325 0 0 0 201300000003 0 000000000003
AT3 031325 0 0 0 000000000003 0 201300000003
AT6 031325 000003 0 0 000000000003 0 201300000003
FT1A 031325 000003 0 0 000000000003 0 000000000003
FT9 031326 000003 0 0 000000000003 0 000000000003
ET0 031326 000003 0 0 000000000003 0 000000000003
ST1 031326 000003 0 0 000000000003 0 000000000003
ST2 031326 000003 0 0 000000000003 0 000000000003
ST9 031326 000003 0 0 000000000003 0 000000000003
*031326 XCT 0,032243
TIME PC MA SC FE AR MQ BR
IT0 031326 032243 0 0 270304000001 0 000000032243
IT1 031326 0 0 0 270304000001 0 000000032243
AT1 031326 0 0 0 0 0 270304000001
AT2 031326 0 0 0 000000000010 0 270304000001
AT3 031326 0 0 0 000000000011 0 000000000011
AT6 031326 000011 0 0 000000000011 0 000000000011
FT0 031326 000011 0 0 000000000013 0 000000000011
FT1A 031326 000011 0 0 000000000013 0 000000000013
FT2 031326 000011 0 0 0 0 000000000013
FT2RQ 031326 000011 0 0 000000000003 0 000000000013
FT3 031326 000011 0 0 000000000003 0 000000000013
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 96
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0185
FT9 031327 000011 0 0 000000000003 0 000000000013
ET0 031327 000011 0 0 000000000016 0 000000000013
ST1 031327 000011 0 0 000000000016 0 000000000013
ST2 031327 000011 0 0 000000000016 0 000000000013
ST9 031327 000011 0 0 000000000016 0 000000000013
*031327 CAIE 6,000016
INITIAL
C(AC)=000000 000016
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031327 031327 0 0 302300000016 0 000000000016
IT1 031327 0 0 0 302300000016 0 000000000016
AT3 031327 0 0 0 000000000016 0 302300000016
AT6 031327 000016 0 0 000000000016 0 302300000016
FT1A 031327 000016 0 0 000000000016 0 000000000016
FT2 031327 000016 0 0 0 0 000000000016
FT2RQ 031327 000016 0 0 000000000016 0 000000000016
FT3 031327 000016 0 0 000000000016 0 000000000016
FT9 031330 000016 0 0 000000000016 0 000000000016
ET0 031331 000016 0 0 0 0 000000000016
ST1A 031331 000016 0 0 0 0 000000000016
ST9 031331 000016 0 0 0 0 000000000016
*031331 JUMPA 0,031332
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031331 031331 0 0 324000031332 0 000000031332
IT1 031331 0 0 0 324000031332 0 000000031332
AT3 031331 0 0 0 000000031332 0 324000031332
AT6 031331 031332 0 0 000000031332 0 324000031332
FT1A 031331 031332 0 0 000000031332 0 000000031332
FT2 031331 031332 0 0 0 0 000000031332
FT2RQ 031331 031332 0 0 0 0 000000031332
FT3 031331 031332 0 0 0 0 000000031332
FT9 031332 031332 0 0 0 0 000000031332
ET0 031332 031332 0 0 0 0 000000031332
ST1A 031332 031332 0 0 0 0 000000031332
ST9 031332 031332 0 0 0 0 000000031332
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 97
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0186
*031332 SETZM 0,000002
INITIAL
C(AC)=000000 000000
C(E)=000000 777777
FINAL
C(E)=000000 777777
TIME PC MA SC FE AR MQ BR
IT0 031332 031332 0 0 402000000002 0 000000000002
IT1 031332 0 0 0 402000000002 0 000000000002
AT3 031332 0 0 0 000000000002 0 402000000002
AT6 031332 000002 0 0 000000000002 0 402000000002
FT1A 031332 000002 0 0 000000000002 0 000000000002
FT9 031333 000002 0 0 000000000002 0 000000000002
ET0 031333 000002 0 0 0 0 000000000002
ST6 031333 000002 0 0 0 0 000000000002
ST6A 031333 000002 0 0 0 0 000000000002
ST9 031333 000002 0 0 0 0 000000000002
*031333 XCT 0,032244
TIME PC MA SC FE AR MQ BR
IT0 031333 032244 0 0 331040000002 0 000000032244
IT1 031333 0 0 0 331040000002 0 000000032244
AT3 031333 0 0 0 000000000002 0 331040000002
AT6 031333 000002 0 0 000000000002 0 331040000002
FT0 031333 000002 0 0 0 0 331040000002
FT1A 031333 000002 0 0 0 0 0
FT9 031334 000002 0 0 0 0 0
ET0 031334 000002 0 0 0 0 0
ST1 031334 000002 0 0 0 0 0
ST2 031334 000002 0 0 0 0 0
ST9 031334 000002 0 0 0 0 0
*031334 JRST 0,031336
INITIAL
C(AC)=000000 000000
C(E)=324000 031337
FINAL
C(E)=324000 031337
TIME PC MA SC FE AR MQ BR
IT0 031334 031334 0 0 254000031336 0 254000031336
IT1 031334 0 0 0 254000031336 0 254000031336
AT3 031334 0 0 0 000000031336 0 254000031336
AT6 031334 031336 0 0 000000031336 0 254000031336
FT1A 031334 031336 0 0 000000031336 0 254000031336
FT9 031335 031336 0 0 000000031336 0 254000031336
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 98
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0187
ET0 031336 031335 0 0 000000031336 0 254000031336
ST1A 031336 031335 0 0 000000031336 0 254000031336
ST9 031336 031335 0 0 000000031336 0 254000031336
*031336 JUMPA 0,031337
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031336 031336 0 0 324000031337 0 000000031337
IT1 031336 0 0 0 324000031337 0 000000031337
AT3 031336 0 0 0 000000031337 0 324000031337
AT6 031336 031337 0 0 000000031337 0 324000031337
FT1A 031336 031337 0 0 000000031337 0 000000031337
FT2 031336 031337 0 0 0 0 000000031337
FT2RQ 031336 031337 0 0 0 0 000000031337
FT3 031336 031337 0 0 0 0 000000031337
FT9 031337 031337 0 0 0 0 000000031337
ET0 031337 031337 0 0 0 0 000000031337
ST1A 031337 031337 0 0 0 0 000000031337
ST9 031337 031337 0 0 0 0 000000031337
*031337 SKIPE 0,000001
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031337 031337 0 0 332000000001 0 0
IT1 031337 0 0 0 332000000001 0 0
AT3 031337 0 0 0 000000000001 0 332000000001
AT6 031337 000001 0 0 000000000001 0 332000000001
FT0 031337 000001 0 0 0 0 332000000001
FT1A 031337 000001 0 0 0 0 0
FT9 031340 000001 0 0 0 0 0
ET0 031341 000001 0 0 0 0 0
ST1A 031341 000001 0 0 0 0 0
ST9 031341 000001 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 99
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0188
*031341 JUMPA 0,031342
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031341 031341 0 0 324000031342 0 000000031342
IT1 031341 0 0 0 324000031342 0 000000031342
AT3 031341 0 0 0 000000031342 0 324000031342
AT6 031341 031342 0 0 000000031342 0 324000031342
FT1A 031341 031342 0 0 000000031342 0 000000031342
FT2 031341 031342 0 0 0 0 000000031342
FT2RQ 031341 031342 0 0 0 0 000000031342
FT3 031341 031342 0 0 0 0 000000031342
FT9 031342 031342 0 0 0 0 000000031342
ET0 031342 031342 0 0 0 0 000000031342
ST1A 031342 031342 0 0 0 0 000000031342
ST9 031342 031342 0 0 0 0 000000031342
*031342 SETOM 0,000006
INITIAL
C(AC)=000000 000000
C(E)=000000 000016
FINAL
C(E)=000000 000016
TIME PC MA SC FE AR MQ BR
IT0 031342 031342 0 0 476000000006 0 000000000006
IT1 031342 0 0 0 476000000006 0 000000000006
AT3 031342 0 0 0 000000000006 0 476000000006
AT6 031342 000006 0 0 000000000006 0 476000000006
FT1A 031342 000006 0 0 000000000006 0 000000000006
FT9 031343 000006 0 0 000000000006 0 000000000006
ET0 031343 000006 0 0 777777777777 0 000000000006
ST6 031343 000006 0 0 777777777777 0 000000000006
ST6A 031343 000006 0 0 777777777777 0 000000000006
ST9 031343 000006 0 0 777777777777 0 000000000006
*031343 XCT 0,032245
TIME PC MA SC FE AR MQ BR
IT0 031343 032245 0 0 331140000006 0 000000032245
IT1 031343 0 0 0 331140000006 0 000000032245
AT3 031343 0 0 0 000000000006 0 331140000006
AT6 031343 000006 0 0 000000000006 0 331140000006
FT0 031343 000006 0 0 777777777777 0 331140000006
FT1A 031343 000006 0 0 777777777777 0 777777777777
FT9 031344 000006 0 0 777777777777 0 777777777777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 100
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0189
ET0 031345 000006 0 0 777777777777 0 777777777777
ST1 031345 000006 0 0 777777777777 0 777777777777
ST2 031345 000006 0 0 777777777777 0 777777777777
ST9 031345 000006 0 0 777777777777 0 777777777777
*031345 JUMPA 0,031346
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031345 031345 0 0 324000031346 0 000000031346
IT1 031345 0 0 0 324000031346 0 000000031346
AT3 031345 0 0 0 000000031346 0 324000031346
AT6 031345 031346 0 0 000000031346 0 324000031346
FT1A 031345 031346 0 0 000000031346 0 000000031346
FT2 031345 031346 0 0 0 0 000000031346
FT2RQ 031345 031346 0 0 0 0 000000031346
FT3 031345 031346 0 0 0 0 000000031346
FT9 031346 031346 0 0 0 0 000000031346
ET0 031346 031346 0 0 0 0 000000031346
ST1A 031346 031346 0 0 0 0 000000031346
ST9 031346 031346 0 0 0 0 000000031346
*031346 SKIPL 0,000003
INITIAL
C(AC)=000000 000000
C(E)=777777 777777
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031346 031346 0 0 331000000003 0 777777777777
IT1 031346 0 0 0 331000000003 0 777777777777
AT3 031346 0 0 0 000000000003 0 331000000003
AT6 031346 000003 0 0 000000000003 0 331000000003
FT0 031346 000003 0 0 777777777777 0 331000000003
FT1A 031346 000003 0 0 777777777777 0 777777777777
FT9 031347 000003 0 0 777777777777 0 777777777777
ET0 031350 000003 0 0 777777777777 0 777777777777
ST1A 031350 000003 0 0 777777777777 0 777777777777
ST9 031350 000003 0 0 777777777777 0 777777777777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 101
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0190
*031350 JUMPA 0,031351
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031350 031350 0 0 324000031351 0 000000031351
IT1 031350 0 0 0 324000031351 0 000000031351
AT3 031350 0 0 0 000000031351 0 324000031351
AT6 031350 031351 0 0 000000031351 0 324000031351
FT1A 031350 031351 0 0 000000031351 0 000000031351
FT2 031350 031351 0 0 0 0 000000031351
FT2RQ 031350 031351 0 0 0 0 000000031351
FT3 031350 031351 0 0 0 0 000000031351
FT9 031351 031351 0 0 0 0 000000031351
ET0 031351 031351 0 0 0 0 000000031351
ST1A 031351 031351 0 0 0 0 000000031351
ST9 031351 031351 0 0 0 0 000000031351
*031351 MOVE 3,032246
INITIAL
C(AC)=777777 777777
C(E)=777776 000005
FINAL
C(AC)=777776 000005
TIME PC MA SC FE AR MQ BR
IT0 031351 031351 0 0 200140032246 0 777776000005
IT1 031351 0 0 0 200140032246 0 777776000005
AT3 031351 0 0 0 000000032246 0 200140032246
AT6 031351 032246 0 0 000000032246 0 200140032246
FT0 031351 032246 0 0 777776000005 0 200140032246
FT1A 031351 032246 0 0 777776000005 0 777776000005
FT9 031352 032246 0 0 777776000005 0 777776000005
ET0 031352 032246 0 0 777776000005 0 777776000005
ST1 031352 032246 0 0 777776000005 0 777776000005
ST2 031352 032246 0 0 777776000005 0 777776000005
ST9 031352 032246 0 0 777776000005 0 777776000005
*031352 XCT 0,032247
TIME PC MA SC FE AR MQ BR
IT0 031352 032247 0 0 253140031355 0 000000032247
IT1 031352 0 0 0 253140031355 0 000000032247
AT3 031352 0 0 0 000000031355 0 253140031355
AT6 031352 031355 0 0 000000031355 0 253140031355
FT1A 031352 031355 0 0 000000031355 0 000000031355
FT2 031352 031355 0 0 0 0 000000031355
FT2RQ 031352 031355 0 0 777776000005 0 000000031355
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 102
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0191
FT3 031352 031355 0 0 777776000005 0 000000031355
FT9 031353 031355 0 0 777776000005 0 000000031355
ET0 031355 031355 0 0 777777000006 0 000000031355
ST1 031355 031355 0 0 777777000006 0 000000031355
ST2 031355 031355 0 0 777777000006 0 000000031355
ST9 031355 031355 0 0 777777000006 0 000000031355
*031355 CAME 3,032250
INITIAL
C(AC)=777777 000006
C(E)=777777 000006
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031355 031355 0 0 312140032250 0 777777000006
IT1 031355 0 0 0 312140032250 0 777777000006
AT3 031355 0 0 0 000000032250 0 312140032250
AT6 031355 032250 0 0 000000032250 0 312140032250
FT0 031355 032250 0 0 777777000006 0 312140032250
FT1A 031355 032250 0 0 777777000006 0 777777000006
FT2 031355 032250 0 0 0 0 777777000006
FT2RQ 031355 032250 0 0 777777000006 0 777777000006
FT3 031355 032250 0 0 777777000006 0 777777000006
FT9 031356 032250 0 0 777777000006 0 777777000006
ET0 031357 032250 0 0 0 0 777777000006
ST1A 031357 032250 0 0 0 0 777777000006
ST9 031357 032250 0 0 0 0 777777000006
*031357 JUMPA 0,031360
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031357 031357 0 0 324000031360 0 000000031360
IT1 031357 0 0 0 324000031360 0 000000031360
AT3 031357 0 0 0 000000031360 0 324000031360
AT6 031357 031360 0 0 000000031360 0 324000031360
FT1A 031357 031360 0 0 000000031360 0 000000031360
FT2 031357 031360 0 0 0 0 000000031360
FT2RQ 031357 031360 0 0 0 0 000000031360
FT3 031357 031360 0 0 0 0 000000031360
FT9 031360 031360 0 0 0 0 000000031360
ET0 031360 031360 0 0 0 0 000000031360
ST1A 031360 031360 0 0 0 0 000000031360
ST9 031360 031360 0 0 0 0 000000031360
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 103
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0192
*031360 MOVE 3,032250
INITIAL
C(AC)=777777 000006
C(E)=777777 000006
FINAL
C(AC)=777777 000006
TIME PC MA SC FE AR MQ BR
IT0 031360 031360 0 0 200140032250 0 777777000006
IT1 031360 0 0 0 200140032250 0 777777000006
AT3 031360 0 0 0 000000032250 0 200140032250
AT6 031360 032250 0 0 000000032250 0 200140032250
FT0 031360 032250 0 0 777777000006 0 200140032250
FT1A 031360 032250 0 0 777777000006 0 777777000006
FT9 031361 032250 0 0 777777000006 0 777777000006
ET0 031361 032250 0 0 777777000006 0 777777000006
ST1 031361 032250 0 0 777777000006 0 777777000006
ST2 031361 032250 0 0 777777000006 0 777777000006
ST9 031361 032250 0 0 777777000006 0 777777000006
*031361 XCT 0,032251
TIME PC MA SC FE AR MQ BR
IT0 031361 032251 0 0 253140031363 0 000000032251
IT1 031361 0 0 0 253140031363 0 000000032251
AT3 031361 0 0 0 000000031363 0 253140031363
AT6 031361 031363 0 0 000000031363 0 253140031363
FT1A 031361 031363 0 0 000000031363 0 000000031363
FT2 031361 031363 0 0 0 0 000000031363
FT2RQ 031361 031363 0 0 777777000006 0 000000031363
FT3 031361 031363 0 0 777777000006 0 000000031363
FT9 031362 031363 0 0 777777000006 0 000000031363
ET0 031362 031363 0 0 000000000007 0 000000031363
ST1 031362 031363 0 0 000000000007 0 000000031363
ST2 031362 031363 0 0 000000000007 0 000000031363
ST9 031362 031363 0 0 000000000007 0 000000031363
*031362 CAME 3,032252
INITIAL
C(AC)=000000 000007
C(E)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031362 031362 0 0 312140032252 0 000000000007
IT1 031362 0 0 0 312140032252 0 000000000007
AT3 031362 0 0 0 000000032252 0 312140032252
AT6 031362 032252 0 0 000000032252 0 312140032252
FT0 031362 032252 0 0 000000000007 0 312140032252
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 104
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0193
FT1A 031362 032252 0 0 000000000007 0 000000000007
FT2 031362 032252 0 0 0 0 000000000007
FT2RQ 031362 032252 0 0 000000000007 0 000000000007
FT3 031362 032252 0 0 000000000007 0 000000000007
FT9 031363 032252 0 0 000000000007 0 000000000007
ET0 031364 032252 0 0 0 0 000000000007
ST1A 031364 032252 0 0 0 0 000000000007
ST9 031364 032252 0 0 0 0 000000000007
*031364 JUMPA 0,031365
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031364 031364 0 0 324000031365 0 000000031365
IT1 031364 0 0 0 324000031365 0 000000031365
AT3 031364 0 0 0 000000031365 0 324000031365
AT6 031364 031365 0 0 000000031365 0 324000031365
FT1A 031364 031365 0 0 000000031365 0 000000031365
FT2 031364 031365 0 0 0 0 000000031365
FT2RQ 031364 031365 0 0 0 0 000000031365
FT3 031364 031365 0 0 0 0 000000031365
FT9 031365 031365 0 0 0 0 000000031365
ET0 031365 031365 0 0 0 0 000000031365
ST1A 031365 031365 0 0 0 0 000000031365
ST9 031365 031365 0 0 0 0 000000031365
*031365 SETZB 0,000002
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
C(AC)=000000 000000
C(E)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031365 031365 0 0 403000000002 0 000000000002
IT1 031365 0 0 0 403000000002 0 000000000002
AT3 031365 0 0 0 000000000002 0 403000000002
AT6 031365 000002 0 0 000000000002 0 403000000002
FT1A 031365 000002 0 0 000000000002 0 000000000002
FT9 031366 000002 0 0 000000000002 0 000000000002
ET0 031366 000002 0 0 0 0 000000000002
ST1 031366 000002 0 0 0 0 000000000002
ST2 031366 000002 0 0 0 0 000000000002
ST6 031366 000002 0 0 0 0 000000000002
ST6A 031366 000002 0 0 0 0 000000000002
ST9 031366 000002 0 0 0 0 000000000002
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 105
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0194
*031366 JRST 0,031371
INITIAL
C(AC)=000000 000000
C(E)=256020 031367
FINAL
C(E)=256020 031367
TIME PC MA SC FE AR MQ BR
IT0 031366 031366 0 0 254000031371 0 254000031371
IT1 031366 0 0 0 254000031371 0 254000031371
AT3 031366 0 0 0 000000031371 0 254000031371
AT6 031366 031371 0 0 000000031371 0 254000031371
FT1A 031366 031371 0 0 000000031371 0 254000031371
FT9 031367 031371 0 0 000000031371 0 254000031371
ET0 031371 031367 0 0 000000031371 0 254000031371
ST1A 031371 031367 0 0 000000031371 0 254000031371
ST9 031371 031367 0 0 000000031371 0 254000031371
*031371 XCT 0,@031367
TIME PC MA SC FE AR MQ BR
IT0 031371 031370 0 0 476000000002 0 000000031370
IT1 031371 0 0 0 476000000002 0 000000031370
AT3 031371 0 0 0 000000000002 0 476000000002
AT6 031371 000002 0 0 000000000002 0 476000000002
FT1A 031371 000002 0 0 000000000002 0 000000000002
FT9 031372 000002 0 0 000000000002 0 000000000002
ET0 031372 000002 0 0 777777777777 0 000000000002
ST6 031372 000002 0 0 777777777777 0 000000000002
ST6A 031372 000002 0 0 777777777777 0 000000000002
ST9 031372 000002 0 0 777777777777 0 000000000002
*031372 CAME 2,032226
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031372 031372 0 0 312100032226 0 777777777777
IT1 031372 0 0 0 312100032226 0 777777777777
AT3 031372 0 0 0 000000032226 0 312100032226
AT6 031372 032226 0 0 000000032226 0 312100032226
FT0 031372 032226 0 0 777777777777 0 312100032226
FT1A 031372 032226 0 0 777777777777 0 777777777777
FT2 031372 032226 0 0 0 0 777777777777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 106
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0195
FT2RQ 031372 032226 0 0 777777777777 0 777777777777
FT3 031372 032226 0 0 777777777777 0 777777777777
FT9 031373 032226 0 0 777777777777 0 777777777777
ET0 031374 032226 0 0 0 0 777777777777
ST1A 031374 032226 0 0 0 0 777777777777
ST9 031374 032226 0 0 0 0 777777777777
*031374 JUMPA 0,031375
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031374 031374 0 0 324000031375 0 000000031375
IT1 031374 0 0 0 324000031375 0 000000031375
AT3 031374 0 0 0 000000031375 0 324000031375
AT6 031374 031375 0 0 000000031375 0 324000031375
FT1A 031374 031375 0 0 000000031375 0 000000031375
FT2 031374 031375 0 0 0 0 000000031375
FT2RQ 031374 031375 0 0 0 0 000000031375
FT3 031374 031375 0 0 0 0 000000031375
FT9 031375 031375 0 0 0 0 000000031375
ET0 031375 031375 0 0 0 0 000000031375
ST1A 031375 031375 0 0 0 0 000000031375
ST9 031375 031375 0 0 0 0 000000031375
*031375 MOVEI 4,031376
INITIAL
C(AC)=000000 000010
FINAL
C(AC)=000000 031376
TIME PC MA SC FE AR MQ BR
IT0 031375 031375 0 0 201200031376 0 000000031376
IT1 031375 0 0 0 201200031376 0 000000031376
AT3 031375 0 0 0 000000031376 0 201200031376
AT6 031375 031376 0 0 000000031376 0 201200031376
FT1A 031375 031376 0 0 000000031376 0 000000031376
FT9 031376 031376 0 0 000000031376 0 000000031376
ET0 031376 031376 0 0 000000031376 0 000000031376
ST1 031376 031376 0 0 000000031376 0 000000031376
ST2 031376 031376 0 0 000000031376 0 000000031376
ST9 031376 031376 0 0 000000031376 0 000000031376
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 107
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0196
*031376 JRST 0,031400
INITIAL
C(AC)=000000 000000
C(E)=256004 000001
FINAL
C(E)=256004 000001
TIME PC MA SC FE AR MQ BR
IT0 031376 031376 0 0 254000031400 0 254000031400
IT1 031376 0 0 0 254000031400 0 254000031400
AT3 031376 0 0 0 000000031400 0 254000031400
AT6 031376 0 0 0 000000031400 0 254000031400
FT1A 031376 0 0 0 000000031400 0 254000031400
FT9 031377 0 0 0 000000031400 0 254000031400
ET0 0 031377 0 0 000000031400 0 254000031400
ST1A 0 031377 0 0 000000031400 0 254000031400
ST9 0 031377 0 0 000000031400 0 254000031400
*031400 XCT 0,000001(4)
TIME PC MA SC FE AR MQ BR
IT0 0 031377 0 0 302200031376 0 000000031377
IT1 0 0 0 0 302200031376 0 000000031377
AT3 0 0 0 0 000000031376 0 302200031376
AT6 0 031376 0 0 000000031376 0 302200031376
FT1A 0 031376 0 0 000000031376 0 000000031376
FT2 0 031376 0 0 0 0 000000031376
FT2RQ 0 031376 0 0 000000031376 0 000000031376
FT3 0 031376 0 0 000000031376 0 000000031376
FT9 031401 031376 0 0 000000031376 0 000000031376
ET0 031402 031376 0 0 0 0 000000031376
ST1A 031402 031376 0 0 0 0 000000031376
ST9 031402 031376 0 0 0 0 000000031376
*031402 JUMPA 0,031403
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031402 031402 0 0 324000031403 0 000000031403
IT1 031402 0 0 0 324000031403 0 000000031403
AT3 031402 0 0 0 000000031403 0 324000031403
AT6 031402 031403 0 0 000000031403 0 324000031403
FT1A 031402 031403 0 0 000000031403 0 000000031403
FT2 031402 031403 0 0 0 0 000000031403
FT2RQ 031402 031403 0 0 0 0 000000031403
FT3 031402 031403 0 0 0 0 000000031403
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 108
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0197
FT9 031403 031403 0 0 0 0 000000031403
ET0 031403 031403 0 0 0 0 000000031403
ST1A 031403 031403 0 0 0 0 000000031403
ST9 031403 031403 0 0 0 0 000000031403
*031403 SETZM 0,000005
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
C(E)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031403 031403 0 0 402000000005 0 000000000005
IT1 031403 0 0 0 402000000005 0 000000000005
AT3 031403 0 0 0 000000000005 0 402000000005
AT6 031403 000005 0 0 000000000005 0 402000000005
FT1A 031403 000005 0 0 000000000005 0 000000000005
FT9 031404 000005 0 0 000000000005 0 000000000005
ET0 031404 000005 0 0 0 0 000000000005
ST6 031404 000005 0 0 0 0 000000000005
ST6A 031404 000005 0 0 0 0 000000000005
ST9 031404 000005 0 0 0 0 000000000005
*031404 MOVEI 3,031407
INITIAL
C(AC)=000000 000007
FINAL
C(AC)=000000 031407
TIME PC MA SC FE AR MQ BR
IT0 031404 031404 0 0 201140031407 0 000000031407
IT1 031404 0 0 0 201140031407 0 000000031407
AT3 031404 0 0 0 000000031407 0 201140031407
AT6 031404 031407 0 0 000000031407 0 201140031407
FT1A 031404 031407 0 0 000000031407 0 000000031407
FT9 031405 031407 0 0 000000031407 0 000000031407
ET0 031405 031407 0 0 000000031407 0 000000031407
ST1 031405 031407 0 0 000000031407 0 000000031407
ST2 031405 031407 0 0 000000031407 0 000000031407
ST9 031405 031407 0 0 000000031407 0 000000031407
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 109
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0198
*031405 JRST 0,031407
INITIAL
C(AC)=000000 000000
C(E)=256023 777777
FINAL
C(E)=256023 777777
TIME PC MA SC FE AR MQ BR
IT0 031405 031405 0 0 254000031407 0 254000031407
IT1 031405 0 0 0 254000031407 0 254000031407
AT3 031405 0 0 0 000000031407 0 254000031407
AT6 031405 031407 0 0 000000031407 0 254000031407
FT1A 031405 031407 0 0 000000031407 0 254000031407
FT9 031406 031407 0 0 000000031407 0 254000031407
ET0 031407 031406 0 0 000000031407 0 254000031407
ST1A 031407 031406 0 0 000000031407 0 254000031407
ST9 031407 031406 0 0 000000031407 0 254000031407
*031407 XCT 0,@777777(3)
TIME PC MA SC FE AR MQ BR
IT0 031407 031411 0 0 476000000005 0 000000031411
IT1 031407 0 0 0 476000000005 0 000000031411
AT3 031407 0 0 0 000000000005 0 476000000005
AT6 031407 000005 0 0 000000000005 0 476000000005
FT1A 031407 000005 0 0 000000000005 0 000000000005
FT9 031410 000005 0 0 000000000005 0 000000000005
ET0 031410 000005 0 0 777777777777 0 000000000005
ST6 031410 000005 0 0 777777777777 0 000000000005
ST6A 031410 000005 0 0 777777777777 0 000000000005
ST9 031410 000005 0 0 777777777777 0 000000000005
*031410 JRST 0,031412
INITIAL
C(AC)=000000 000000
C(E)=312240 032226
FINAL
C(E)=312240 032226
TIME PC MA SC FE AR MQ BR
IT0 031410 031410 0 0 254000031412 0 254000031412
IT1 031410 0 0 0 254000031412 0 254000031412
AT3 031410 0 0 0 000000031412 0 254000031412
AT6 031410 031412 0 0 000000031412 0 254000031412
FT1A 031410 031412 0 0 000000031412 0 254000031412
FT9 031411 031412 0 0 000000031412 0 254000031412
ET0 031412 031411 0 0 000000031412 0 254000031412
ST1A 031412 031411 0 0 000000031412 0 254000031412
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 110
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0199
ST9 031412 031411 0 0 000000031412 0 254000031412
*031412 CAME 5,032226
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031412 031412 0 0 312240032226 0 777777777777
IT1 031412 0 0 0 312240032226 0 777777777777
AT3 031412 0 0 0 000000032226 0 312240032226
AT6 031412 032226 0 0 000000032226 0 312240032226
FT0 031412 032226 0 0 777777777777 0 312240032226
FT1A 031412 032226 0 0 777777777777 0 777777777777
FT2 031412 032226 0 0 0 0 777777777777
FT2RQ 031412 032226 0 0 777777777777 0 777777777777
FT3 031412 032226 0 0 777777777777 0 777777777777
FT9 031413 032226 0 0 777777777777 0 777777777777
ET0 031414 032226 0 0 0 0 777777777777
ST1A 031414 032226 0 0 0 0 777777777777
ST9 031414 032226 0 0 0 0 777777777777
*031414 JUMPA 0,031415
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031414 031414 0 0 324000031415 0 000000031415
IT1 031414 0 0 0 324000031415 0 000000031415
AT3 031414 0 0 0 000000031415 0 324000031415
AT6 031414 031415 0 0 000000031415 0 324000031415
FT1A 031414 031415 0 0 000000031415 0 000000031415
FT2 031414 031415 0 0 0 0 000000031415
FT2RQ 031414 031415 0 0 0 0 000000031415
FT3 031414 031415 0 0 0 0 000000031415
FT9 031415 031415 0 0 0 0 000000031415
ET0 031415 031415 0 0 0 0 000000031415
ST1A 031415 031415 0 0 0 0 000000031415
ST9 031415 031415 0 0 0 0 000000031415
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 111
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0200
*031415 SETZM 0,000003
INITIAL
C(AC)=000000 000000
C(E)=000000 031407
FINAL
C(E)=000000 031407
TIME PC MA SC FE AR MQ BR
IT0 031415 031415 0 0 402000000003 0 000000000003
IT1 031415 0 0 0 402000000003 0 000000000003
AT3 031415 0 0 0 000000000003 0 402000000003
AT6 031415 000003 0 0 000000000003 0 402000000003
FT1A 031415 000003 0 0 000000000003 0 000000000003
FT9 031416 000003 0 0 000000000003 0 000000000003
ET0 031416 000003 0 0 0 0 000000000003
ST6 031416 000003 0 0 0 0 000000000003
ST6A 031416 000003 0 0 0 0 000000000003
ST9 031416 000003 0 0 0 0 000000000003
*031416 MOVEI 10,000003
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000000 000003
TIME PC MA SC FE AR MQ BR
IT0 031416 031416 0 0 201400000003 0 000000000003
IT1 031416 0 0 0 201400000003 0 000000000003
AT3 031416 0 0 0 000000000003 0 201400000003
AT6 031416 000003 0 0 000000000003 0 201400000003
FT1A 031416 000003 0 0 000000000003 0 000000000003
FT9 031417 000003 0 0 000000000003 0 000000000003
ET0 031417 000003 0 0 000000000003 0 000000000003
ST1 031417 000003 0 0 000000000003 0 000000000003
ST2 031417 000003 0 0 000000000003 0 000000000003
ST9 031417 000003 0 0 000000000003 0 000000000003
*031417 JRST 0,031424
INITIAL
C(AC)=000000 000000
C(E)=256000 031422
FINAL
C(E)=256000 031422
TIME PC MA SC FE AR MQ BR
IT0 031417 031417 0 0 254000031424 0 254000031424
IT1 031417 0 0 0 254000031424 0 254000031424
AT3 031417 0 0 0 000000031424 0 254000031424
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 112
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0201
AT6 031417 031424 0 0 000000031424 0 254000031424
FT1A 031417 031424 0 0 000000031424 0 254000031424
FT9 031420 031424 0 0 000000031424 0 254000031424
ET0 031424 031420 0 0 000000031424 0 254000031424
ST1A 031424 031420 0 0 000000031424 0 254000031424
ST9 031424 031420 0 0 000000031424 0 254000031424
*031424 XCT 0,031422
TIME PC MA SC FE AR MQ BR
IT0 031424 031422 0 0 200170031420 0 000000031422
IT1 031424 0 0 0 200170031420 0 000000031422
AT1 031424 0 0 0 0 0 200170031420
AT2 031424 0 0 0 000000000003 0 200170031420
AT3 031424 0 0 0 000000031423 0 000000031423
AT4 031424 031423 0 0 254200032253 0 000000031423
IT1 031424 0 0 0 254200032253 0 000000031423
AT3 031424 0 0 0 000000032253 0 254200032253
AT6 031424 032253 0 0 000000032253 0 254200032253
FT0 031424 032253 0 0 000000707070 0 254200032253
FT1A 031424 032253 0 0 000000707070 0 000000707070
FT9 031425 032253 0 0 000000707070 0 000000707070
ET0 031425 032253 0 0 000000707070 0 000000707070
ST1 031425 032253 0 0 000000707070 0 000000707070
ST2 031425 032253 0 0 000000707070 0 000000707070
ST9 031425 032253 0 0 000000707070 0 000000707070
*031425 CAIE 3,707070
INITIAL
C(AC)=000000 707070
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031425 031425 0 0 302140707070 0 000000707070
IT1 031425 0 0 0 302140707070 0 000000707070
AT3 031425 0 0 0 000000707070 0 302140707070
AT6 031425 707070 0 0 000000707070 0 302140707070
FT1A 031425 707070 0 0 000000707070 0 000000707070
FT2 031425 707070 0 0 0 0 000000707070
FT2RQ 031425 707070 0 0 000000707070 0 000000707070
FT3 031425 707070 0 0 000000707070 0 000000707070
FT9 031426 707070 0 0 000000707070 0 000000707070
ET0 031427 707070 0 0 0 0 000000707070
ST1A 031427 707070 0 0 0 0 000000707070
ST9 031427 707070 0 0 0 0 000000707070
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 113
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0202
*031427 JUMPA 0,031430
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031427 031427 0 0 324000031430 0 000000031430
IT1 031427 0 0 0 324000031430 0 000000031430
AT3 031427 0 0 0 000000031430 0 324000031430
AT6 031427 031430 0 0 000000031430 0 324000031430
FT1A 031427 031430 0 0 000000031430 0 000000031430
FT2 031427 031430 0 0 0 0 000000031430
FT2RQ 031427 031430 0 0 0 0 000000031430
FT3 031427 031430 0 0 0 0 000000031430
FT9 031430 031430 0 0 0 0 000000031430
ET0 031430 031430 0 0 0 0 000000031430
ST1A 031430 031430 0 0 0 0 000000031430
ST9 031430 031430 0 0 0 0 000000031430
*031430 MOVE 0,032227
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031430 031430 0 0 200000032227 0 0
IT1 031430 0 0 0 200000032227 0 0
AT3 031430 0 0 0 000000032227 0 200000032227
AT6 031430 032227 0 0 000000032227 0 200000032227
FT0 031430 032227 0 0 0 0 200000032227
FT1A 031430 032227 0 0 0 0 0
FT9 031431 032227 0 0 0 0 0
ET0 031431 032227 0 0 0 0 0
ST1 031431 032227 0 0 0 0 0
ST2 031431 032227 0 0 0 0 0
ST9 031431 032227 0 0 0 0 0
*031431 MOVE 1,032254
INITIAL
C(AC)=000000 000000
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 031431 031431 0 0 200040032254 0 172737405060
IT1 031431 0 0 0 200040032254 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 114
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0203
AT3 031431 0 0 0 000000032254 0 200040032254
AT6 031431 032254 0 0 000000032254 0 200040032254
FT0 031431 032254 0 0 172737405060 0 200040032254
FT1A 031431 032254 0 0 172737405060 0 172737405060
FT9 031432 032254 0 0 172737405060 0 172737405060
ET0 031432 032254 0 0 172737405060 0 172737405060
ST1 031432 032254 0 0 172737405060 0 172737405060
ST2 031432 032254 0 0 172737405060 0 172737405060
ST9 031432 032254 0 0 172737405060 0 172737405060
*031432 ROT 0,777775
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031432 031432 0 0 241000777775 0 000000777775
IT1 031432 0 0 0 241000777775 0 000000777775
AT3 031432 0 0 0 000000777775 0 241000777775
AT6 031432 777775 0 0 000000777775 0 241000777775
FT1A 031432 777775 0 0 000000777775 0 000000777775
FT2 031432 777775 0 0 0 0 000000777775
FT2RQ 031432 777775 0 0 0 0 000000777775
FT3 031432 777775 0 0 0 0 000000777775
FT9 031433 777775 0 0 0 0 000000777775
ET0 031433 777775 775 0 0 0 000000777775
SCT0 031433 777775 775 0 0 0 000000777775
SCT3 031433 777775 776 0 0 0 000000777775
SCT3 031433 777775 777 0 0 0 000000777775
SCT3 031433 777775 0 0 0 0 000000777775
SCT4 031433 777775 0 0 0 0 000000777775
ST0 031433 777775 0 0 0 0 000000777775
ST1 031433 777775 0 0 0 0 000000777775
ST2 031433 777775 0 0 0 0 000000777775
ST9 031433 777775 0 0 0 0 000000777775
*031433 CAME 0,032227
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031433 031433 0 0 312000032227 0 0
IT1 031433 0 0 0 312000032227 0 0
AT3 031433 0 0 0 000000032227 0 312000032227
AT6 031433 032227 0 0 000000032227 0 312000032227
FT0 031433 032227 0 0 0 0 312000032227
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 115
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0204
FT1A 031433 032227 0 0 0 0 0
FT2 031433 032227 0 0 0 0 0
FT2RQ 031433 032227 0 0 0 0 0
FT3 031433 032227 0 0 0 0 0
FT9 031434 032227 0 0 0 0 0
ET0 031435 032227 0 0 0 0 0
ST1A 031435 032227 0 0 0 0 0
ST9 031435 032227 0 0 0 0 0
*031435 JUMPA 0,031436
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031435 031435 0 0 324000031436 0 000000031436
IT1 031435 0 0 0 324000031436 0 000000031436
AT3 031435 0 0 0 000000031436 0 324000031436
AT6 031435 031436 0 0 000000031436 0 324000031436
FT1A 031435 031436 0 0 000000031436 0 000000031436
FT2 031435 031436 0 0 0 0 000000031436
FT2RQ 031435 031436 0 0 0 0 000000031436
FT3 031435 031436 0 0 0 0 000000031436
FT9 031436 031436 0 0 0 0 000000031436
ET0 031436 031436 0 0 0 0 000000031436
ST1A 031436 031436 0 0 0 0 000000031436
ST9 031436 031436 0 0 0 0 000000031436
*031436 CAME 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031436 031436 0 0 312040032254 0 172737405060
IT1 031436 0 0 0 312040032254 0 172737405060
AT3 031436 0 0 0 000000032254 0 312040032254
AT6 031436 032254 0 0 000000032254 0 312040032254
FT0 031436 032254 0 0 172737405060 0 312040032254
FT1A 031436 032254 0 0 172737405060 0 172737405060
FT2 031436 032254 0 0 0 0 172737405060
FT2RQ 031436 032254 0 0 172737405060 0 172737405060
FT3 031436 032254 0 0 172737405060 0 172737405060
FT9 031437 032254 0 0 172737405060 0 172737405060
ET0 031440 032254 0 0 0 0 172737405060
ST1A 031440 032254 0 0 0 0 172737405060
ST9 031440 032254 0 0 0 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 116
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0205
*031440 JUMPA 0,031441
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031440 031440 0 0 324000031441 0 000000031441
IT1 031440 0 0 0 324000031441 0 000000031441
AT3 031440 0 0 0 000000031441 0 324000031441
AT6 031440 031441 0 0 000000031441 0 324000031441
FT1A 031440 031441 0 0 000000031441 0 000000031441
FT2 031440 031441 0 0 0 0 000000031441
FT2RQ 031440 031441 0 0 0 0 000000031441
FT3 031440 031441 0 0 0 0 000000031441
FT9 031441 031441 0 0 0 0 000000031441
ET0 031441 031441 0 0 0 0 000000031441
ST1A 031441 031441 0 0 0 0 000000031441
ST9 031441 031441 0 0 0 0 000000031441
*031441 MOVE 0,032226
INITIAL
C(AC)=000000 000000
C(E)=777777 777777
FINAL
C(AC)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 031441 031441 0 0 200000032226 0 777777777777
IT1 031441 0 0 0 200000032226 0 777777777777
AT3 031441 0 0 0 000000032226 0 200000032226
AT6 031441 032226 0 0 000000032226 0 200000032226
FT0 031441 032226 0 0 777777777777 0 200000032226
FT1A 031441 032226 0 0 777777777777 0 777777777777
FT9 031442 032226 0 0 777777777777 0 777777777777
ET0 031442 032226 0 0 777777777777 0 777777777777
ST1 031442 032226 0 0 777777777777 0 777777777777
ST2 031442 032226 0 0 777777777777 0 777777777777
ST9 031442 032226 0 0 777777777777 0 777777777777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 117
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0206
*031442 MOVE 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 031442 031442 0 0 200040032254 0 172737405060
IT1 031442 0 0 0 200040032254 0 172737405060
AT3 031442 0 0 0 000000032254 0 200040032254
AT6 031442 032254 0 0 000000032254 0 200040032254
FT0 031442 032254 0 0 172737405060 0 200040032254
FT1A 031442 032254 0 0 172737405060 0 172737405060
FT9 031443 032254 0 0 172737405060 0 172737405060
ET0 031443 032254 0 0 172737405060 0 172737405060
ST1 031443 032254 0 0 172737405060 0 172737405060
ST2 031443 032254 0 0 172737405060 0 172737405060
ST9 031443 032254 0 0 172737405060 0 172737405060
*031443 ROT 0,777775
INITIAL
C(AC)=777777 777777
FINAL
C(AC)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 031443 031443 0 0 241000777775 0 000000777775
IT1 031443 0 0 0 241000777775 0 000000777775
AT3 031443 0 0 0 000000777775 0 241000777775
AT6 031443 777775 0 0 000000777775 0 241000777775
FT1A 031443 777775 0 0 000000777775 0 000000777775
FT2 031443 777775 0 0 0 0 000000777775
FT2RQ 031443 777775 0 0 777777777777 0 000000777775
FT3 031443 777775 0 0 777777777777 0 000000777775
FT9 031444 777775 0 0 777777777777 0 000000777775
ET0 031444 777775 775 0 777777777777 0 000000777775
SCT0 031444 777775 775 0 777777777777 0 000000777775
SCT3 031444 777775 776 0 777777777777 0 000000777775
SCT3 031444 777775 777 0 777777777777 0 000000777775
SCT3 031444 777775 0 0 777777777777 0 000000777775
SCT4 031444 777775 0 0 777777777777 0 000000777775
ST0 031444 777775 0 0 777777777777 0 000000777775
ST1 031444 777775 0 0 777777777777 0 000000777775
ST2 031444 777775 0 0 777777777777 0 000000777775
ST9 031444 777775 0 0 777777777777 0 000000777775
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 118
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0207
*031444 CAME 0,032226
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031444 031444 0 0 312000032226 0 777777777777
IT1 031444 0 0 0 312000032226 0 777777777777
AT3 031444 0 0 0 000000032226 0 312000032226
AT6 031444 032226 0 0 000000032226 0 312000032226
FT0 031444 032226 0 0 777777777777 0 312000032226
FT1A 031444 032226 0 0 777777777777 0 777777777777
FT2 031444 032226 0 0 0 0 777777777777
FT2RQ 031444 032226 0 0 777777777777 0 777777777777
FT3 031444 032226 0 0 777777777777 0 777777777777
FT9 031445 032226 0 0 777777777777 0 777777777777
ET0 031446 032226 0 0 0 0 777777777777
ST1A 031446 032226 0 0 0 0 777777777777
ST9 031446 032226 0 0 0 0 777777777777
*031446 JUMPA 0,031447
INITIAL
C(AC)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031446 031446 0 0 324000031447 0 000000031447
IT1 031446 0 0 0 324000031447 0 000000031447
AT3 031446 0 0 0 000000031447 0 324000031447
AT6 031446 031447 0 0 000000031447 0 324000031447
FT1A 031446 031447 0 0 000000031447 0 000000031447
FT2 031446 031447 0 0 0 0 000000031447
FT2RQ 031446 031447 0 0 777777777777 0 000000031447
FT3 031446 031447 0 0 777777777777 0 000000031447
FT9 031447 031447 0 0 777777777777 0 000000031447
ET0 031447 031447 0 0 777777777777 0 000000031447
ST1A 031447 031447 0 0 777777777777 0 000000031447
ST9 031447 031447 0 0 777777777777 0 000000031447
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 119
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0208
*031447 CAME 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031447 031447 0 0 312040032254 0 172737405060
IT1 031447 0 0 0 312040032254 0 172737405060
AT3 031447 0 0 0 000000032254 0 312040032254
AT6 031447 032254 0 0 000000032254 0 312040032254
FT0 031447 032254 0 0 172737405060 0 312040032254
FT1A 031447 032254 0 0 172737405060 0 172737405060
FT2 031447 032254 0 0 0 0 172737405060
FT2RQ 031447 032254 0 0 172737405060 0 172737405060
FT3 031447 032254 0 0 172737405060 0 172737405060
FT9 031450 032254 0 0 172737405060 0 172737405060
ET0 031451 032254 0 0 0 0 172737405060
ST1A 031451 032254 0 0 0 0 172737405060
ST9 031451 032254 0 0 0 0 172737405060
*031451 JUMPA 0,031452
INITIAL
C(AC)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031451 031451 0 0 324000031452 0 000000031452
IT1 031451 0 0 0 324000031452 0 000000031452
AT3 031451 0 0 0 000000031452 0 324000031452
AT6 031451 031452 0 0 000000031452 0 324000031452
FT1A 031451 031452 0 0 000000031452 0 000000031452
FT2 031451 031452 0 0 0 0 000000031452
FT2RQ 031451 031452 0 0 777777777777 0 000000031452
FT3 031451 031452 0 0 777777777777 0 000000031452
FT9 031452 031452 0 0 777777777777 0 000000031452
ET0 031452 031452 0 0 777777777777 0 000000031452
ST1A 031452 031452 0 0 777777777777 0 000000031452
ST9 031452 031452 0 0 777777777777 0 000000031452
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 120
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0209
*031452 MOVE 0,032255
INITIAL
C(AC)=777777 777777
C(E)=252525 252525
FINAL
C(AC)=252525 252525
TIME PC MA SC FE AR MQ BR
IT0 031452 031452 0 0 200000032255 0 252525252525
IT1 031452 0 0 0 200000032255 0 252525252525
AT3 031452 0 0 0 000000032255 0 200000032255
AT6 031452 032255 0 0 000000032255 0 200000032255
FT0 031452 032255 0 0 252525252525 0 200000032255
FT1A 031452 032255 0 0 252525252525 0 252525252525
FT9 031453 032255 0 0 252525252525 0 252525252525
ET0 031453 032255 0 0 252525252525 0 252525252525
ST1 031453 032255 0 0 252525252525 0 252525252525
ST2 031453 032255 0 0 252525252525 0 252525252525
ST9 031453 032255 0 0 252525252525 0 252525252525
*031453 MOVE 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 031453 031453 0 0 200040032254 0 172737405060
IT1 031453 0 0 0 200040032254 0 172737405060
AT3 031453 0 0 0 000000032254 0 200040032254
AT6 031453 032254 0 0 000000032254 0 200040032254
FT0 031453 032254 0 0 172737405060 0 200040032254
FT1A 031453 032254 0 0 172737405060 0 172737405060
FT9 031454 032254 0 0 172737405060 0 172737405060
ET0 031454 032254 0 0 172737405060 0 172737405060
ST1 031454 032254 0 0 172737405060 0 172737405060
ST2 031454 032254 0 0 172737405060 0 172737405060
ST9 031454 032254 0 0 172737405060 0 172737405060
*031454 ROT 0,777775
INITIAL
C(AC)=252525 252525
FINAL
C(AC)=525252 525252
TIME PC MA SC FE AR MQ BR
IT0 031454 031454 0 0 241000777775 0 000000777775
IT1 031454 0 0 0 241000777775 0 000000777775
AT3 031454 0 0 0 000000777775 0 241000777775
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 121
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0210
AT6 031454 777775 0 0 000000777775 0 241000777775
FT1A 031454 777775 0 0 000000777775 0 000000777775
FT2 031454 777775 0 0 0 0 000000777775
FT2RQ 031454 777775 0 0 252525252525 0 000000777775
FT3 031454 777775 0 0 252525252525 0 000000777775
FT9 031455 777775 0 0 252525252525 0 000000777775
ET0 031455 777775 775 0 252525252525 0 000000777775
SCT0 031455 777775 775 0 252525252525 0 000000777775
SCT3 031455 777775 776 0 525252525252 0 000000777775
SCT3 031455 777775 777 0 252525252525 0 000000777775
SCT3 031455 777775 0 0 525252525252 0 000000777775
SCT4 031455 777775 0 0 525252525252 0 000000777775
ST0 031455 777775 0 0 525252525252 0 000000777775
ST1 031455 777775 0 0 525252525252 0 000000777775
ST2 031455 777775 0 0 525252525252 0 000000777775
ST9 031455 777775 0 0 525252525252 0 000000777775
*031455 CAME 0,032256
INITIAL
C(AC)=525252 525252
C(E)=525252 525252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031455 031455 0 0 312000032256 0 525252525252
IT1 031455 0 0 0 312000032256 0 525252525252
AT3 031455 0 0 0 000000032256 0 312000032256
AT6 031455 032256 0 0 000000032256 0 312000032256
FT0 031455 032256 0 0 525252525252 0 312000032256
FT1A 031455 032256 0 0 525252525252 0 525252525252
FT2 031455 032256 0 0 0 0 525252525252
FT2RQ 031455 032256 0 0 525252525252 0 525252525252
FT3 031455 032256 0 0 525252525252 0 525252525252
FT9 031456 032256 0 0 525252525252 0 525252525252
ET0 031457 032256 0 0 0 0 525252525252
ST1A 031457 032256 0 0 0 0 525252525252
ST9 031457 032256 0 0 0 0 525252525252
*031457 JUMPA 0,031460
INITIAL
C(AC)=525252 525252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031457 031457 0 0 324000031460 0 000000031460
IT1 031457 0 0 0 324000031460 0 000000031460
AT3 031457 0 0 0 000000031460 0 324000031460
AT6 031457 031460 0 0 000000031460 0 324000031460
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 122
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0211
FT1A 031457 031460 0 0 000000031460 0 000000031460
FT2 031457 031460 0 0 0 0 000000031460
FT2RQ 031457 031460 0 0 525252525252 0 000000031460
FT3 031457 031460 0 0 525252525252 0 000000031460
FT9 031460 031460 0 0 525252525252 0 000000031460
ET0 031460 031460 0 0 525252525252 0 000000031460
ST1A 031460 031460 0 0 525252525252 0 000000031460
ST9 031460 031460 0 0 525252525252 0 000000031460
*031460 CAME 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031460 031460 0 0 312040032254 0 172737405060
IT1 031460 0 0 0 312040032254 0 172737405060
AT3 031460 0 0 0 000000032254 0 312040032254
AT6 031460 032254 0 0 000000032254 0 312040032254
FT0 031460 032254 0 0 172737405060 0 312040032254
FT1A 031460 032254 0 0 172737405060 0 172737405060
FT2 031460 032254 0 0 0 0 172737405060
FT2RQ 031460 032254 0 0 172737405060 0 172737405060
FT3 031460 032254 0 0 172737405060 0 172737405060
FT9 031461 032254 0 0 172737405060 0 172737405060
ET0 031462 032254 0 0 0 0 172737405060
ST1A 031462 032254 0 0 0 0 172737405060
ST9 031462 032254 0 0 0 0 172737405060
*031462 JUMPA 0,031463
INITIAL
C(AC)=525252 525252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031462 031462 0 0 324000031463 0 000000031463
IT1 031462 0 0 0 324000031463 0 000000031463
AT3 031462 0 0 0 000000031463 0 324000031463
AT6 031462 031463 0 0 000000031463 0 324000031463
FT1A 031462 031463 0 0 000000031463 0 000000031463
FT2 031462 031463 0 0 0 0 000000031463
FT2RQ 031462 031463 0 0 525252525252 0 000000031463
FT3 031462 031463 0 0 525252525252 0 000000031463
FT9 031463 031463 0 0 525252525252 0 000000031463
ET0 031463 031463 0 0 525252525252 0 000000031463
ST1A 031463 031463 0 0 525252525252 0 000000031463
ST9 031463 031463 0 0 525252525252 0 000000031463
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 123
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0212
*031463 MOVE 0,032256
INITIAL
C(AC)=525252 525252
C(E)=525252 525252
FINAL
C(AC)=525252 525252
TIME PC MA SC FE AR MQ BR
IT0 031463 031463 0 0 200000032256 0 525252525252
IT1 031463 0 0 0 200000032256 0 525252525252
AT3 031463 0 0 0 000000032256 0 200000032256
AT6 031463 032256 0 0 000000032256 0 200000032256
FT0 031463 032256 0 0 525252525252 0 200000032256
FT1A 031463 032256 0 0 525252525252 0 525252525252
FT9 031464 032256 0 0 525252525252 0 525252525252
ET0 031464 032256 0 0 525252525252 0 525252525252
ST1 031464 032256 0 0 525252525252 0 525252525252
ST2 031464 032256 0 0 525252525252 0 525252525252
ST9 031464 032256 0 0 525252525252 0 525252525252
*031464 MOVE 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 031464 031464 0 0 200040032254 0 172737405060
IT1 031464 0 0 0 200040032254 0 172737405060
AT3 031464 0 0 0 000000032254 0 200040032254
AT6 031464 032254 0 0 000000032254 0 200040032254
FT0 031464 032254 0 0 172737405060 0 200040032254
FT1A 031464 032254 0 0 172737405060 0 172737405060
FT9 031465 032254 0 0 172737405060 0 172737405060
ET0 031465 032254 0 0 172737405060 0 172737405060
ST1 031465 032254 0 0 172737405060 0 172737405060
ST2 031465 032254 0 0 172737405060 0 172737405060
ST9 031465 032254 0 0 172737405060 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 124
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0213
*031465 ROT 0,777775
INITIAL
C(AC)=525252 525252
FINAL
C(AC)=252525 252525
TIME PC MA SC FE AR MQ BR
IT0 031465 031465 0 0 241000777775 0 000000777775
IT1 031465 0 0 0 241000777775 0 000000777775
AT3 031465 0 0 0 000000777775 0 241000777775
AT6 031465 777775 0 0 000000777775 0 241000777775
FT1A 031465 777775 0 0 000000777775 0 000000777775
FT2 031465 777775 0 0 0 0 000000777775
FT2RQ 031465 777775 0 0 525252525252 0 000000777775
FT3 031465 777775 0 0 525252525252 0 000000777775
FT9 031466 777775 0 0 525252525252 0 000000777775
ET0 031466 777775 775 0 525252525252 0 000000777775
SCT0 031466 777775 775 0 525252525252 0 000000777775
SCT3 031466 777775 776 0 252525252525 0 000000777775
SCT3 031466 777775 777 0 525252525252 0 000000777775
SCT3 031466 777775 0 0 252525252525 0 000000777775
SCT4 031466 777775 0 0 252525252525 0 000000777775
ST0 031466 777775 0 0 252525252525 0 000000777775
ST1 031466 777775 0 0 252525252525 0 000000777775
ST2 031466 777775 0 0 252525252525 0 000000777775
ST9 031466 777775 0 0 252525252525 0 000000777775
*031466 CAME 0,032255
INITIAL
C(AC)=252525 252525
C(E)=252525 252525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031466 031466 0 0 312000032255 0 252525252525
IT1 031466 0 0 0 312000032255 0 252525252525
AT3 031466 0 0 0 000000032255 0 312000032255
AT6 031466 032255 0 0 000000032255 0 312000032255
FT0 031466 032255 0 0 252525252525 0 312000032255
FT1A 031466 032255 0 0 252525252525 0 252525252525
FT2 031466 032255 0 0 0 0 252525252525
FT2RQ 031466 032255 0 0 252525252525 0 252525252525
FT3 031466 032255 0 0 252525252525 0 252525252525
FT9 031467 032255 0 0 252525252525 0 252525252525
ET0 031470 032255 0 0 0 0 252525252525
ST1A 031470 032255 0 0 0 0 252525252525
ST9 031470 032255 0 0 0 0 252525252525
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 125
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0214
*031470 JUMPA 0,031471
INITIAL
C(AC)=252525 252525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031470 031470 0 0 324000031471 0 000000031471
IT1 031470 0 0 0 324000031471 0 000000031471
AT3 031470 0 0 0 000000031471 0 324000031471
AT6 031470 031471 0 0 000000031471 0 324000031471
FT1A 031470 031471 0 0 000000031471 0 000000031471
FT2 031470 031471 0 0 0 0 000000031471
FT2RQ 031470 031471 0 0 252525252525 0 000000031471
FT3 031470 031471 0 0 252525252525 0 000000031471
FT9 031471 031471 0 0 252525252525 0 000000031471
ET0 031471 031471 0 0 252525252525 0 000000031471
ST1A 031471 031471 0 0 252525252525 0 000000031471
ST9 031471 031471 0 0 252525252525 0 000000031471
*031471 CAME 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031471 031471 0 0 312040032254 0 172737405060
IT1 031471 0 0 0 312040032254 0 172737405060
AT3 031471 0 0 0 000000032254 0 312040032254
AT6 031471 032254 0 0 000000032254 0 312040032254
FT0 031471 032254 0 0 172737405060 0 312040032254
FT1A 031471 032254 0 0 172737405060 0 172737405060
FT2 031471 032254 0 0 0 0 172737405060
FT2RQ 031471 032254 0 0 172737405060 0 172737405060
FT3 031471 032254 0 0 172737405060 0 172737405060
FT9 031472 032254 0 0 172737405060 0 172737405060
ET0 031473 032254 0 0 0 0 172737405060
ST1A 031473 032254 0 0 0 0 172737405060
ST9 031473 032254 0 0 0 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 126
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0215
*031473 JUMPA 0,031474
INITIAL
C(AC)=252525 252525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031473 031473 0 0 324000031474 0 000000031474
IT1 031473 0 0 0 324000031474 0 000000031474
AT3 031473 0 0 0 000000031474 0 324000031474
AT6 031473 031474 0 0 000000031474 0 324000031474
FT1A 031473 031474 0 0 000000031474 0 000000031474
FT2 031473 031474 0 0 0 0 000000031474
FT2RQ 031473 031474 0 0 252525252525 0 000000031474
FT3 031473 031474 0 0 252525252525 0 000000031474
FT9 031474 031474 0 0 252525252525 0 000000031474
ET0 031474 031474 0 0 252525252525 0 000000031474
ST1A 031474 031474 0 0 252525252525 0 000000031474
ST9 031474 031474 0 0 252525252525 0 000000031474
*031474 MOVE 0,032257
INITIAL
C(AC)=252525 252525
C(E)=230703 603700
FINAL
C(AC)=230703 603700
TIME PC MA SC FE AR MQ BR
IT0 031474 031474 0 0 200000032257 0 230703603700
IT1 031474 0 0 0 200000032257 0 230703603700
AT3 031474 0 0 0 000000032257 0 200000032257
AT6 031474 032257 0 0 000000032257 0 200000032257
FT0 031474 032257 0 0 230703603700 0 200000032257
FT1A 031474 032257 0 0 230703603700 0 230703603700
FT9 031475 032257 0 0 230703603700 0 230703603700
ET0 031475 032257 0 0 230703603700 0 230703603700
ST1 031475 032257 0 0 230703603700 0 230703603700
ST2 031475 032257 0 0 230703603700 0 230703603700
ST9 031475 032257 0 0 230703603700 0 230703603700
*031475 MOVE 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 031475 031475 0 0 200040032254 0 172737405060
IT1 031475 0 0 0 200040032254 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 127
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0216
AT3 031475 0 0 0 000000032254 0 200040032254
AT6 031475 032254 0 0 000000032254 0 200040032254
FT0 031475 032254 0 0 172737405060 0 200040032254
FT1A 031475 032254 0 0 172737405060 0 172737405060
FT9 031476 032254 0 0 172737405060 0 172737405060
ET0 031476 032254 0 0 172737405060 0 172737405060
ST1 031476 032254 0 0 172737405060 0 172737405060
ST2 031476 032254 0 0 172737405060 0 172737405060
ST9 031476 032254 0 0 172737405060 0 172737405060
*031476 ROT 0,777775
INITIAL
C(AC)=230703 603700
FINAL
C(AC)=023070 360370
TIME PC MA SC FE AR MQ BR
IT0 031476 031476 0 0 241000777775 0 000000777775
IT1 031476 0 0 0 241000777775 0 000000777775
AT3 031476 0 0 0 000000777775 0 241000777775
AT6 031476 777775 0 0 000000777775 0 241000777775
FT1A 031476 777775 0 0 000000777775 0 000000777775
FT2 031476 777775 0 0 0 0 000000777775
FT2RQ 031476 777775 0 0 230703603700 0 000000777775
FT3 031476 777775 0 0 230703603700 0 000000777775
FT9 031477 777775 0 0 230703603700 0 000000777775
ET0 031477 777775 775 0 230703603700 0 000000777775
SCT0 031477 777775 775 0 230703603700 0 000000777775
SCT3 031477 777775 776 0 114341701740 0 000000777775
SCT3 031477 777775 777 0 046160740760 0 000000777775
SCT3 031477 777775 0 0 023070360370 0 000000777775
SCT4 031477 777775 0 0 023070360370 0 000000777775
ST0 031477 777775 0 0 023070360370 0 000000777775
ST1 031477 777775 0 0 023070360370 0 000000777775
ST2 031477 777775 0 0 023070360370 0 000000777775
ST9 031477 777775 0 0 023070360370 0 000000777775
*031477 CAME 0,032260
INITIAL
C(AC)=023070 360370
C(E)=023070 360370
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031477 031477 0 0 312000032260 0 023070360370
IT1 031477 0 0 0 312000032260 0 023070360370
AT3 031477 0 0 0 000000032260 0 312000032260
AT6 031477 032260 0 0 000000032260 0 312000032260
FT0 031477 032260 0 0 023070360370 0 312000032260
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 128
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0217
FT1A 031477 032260 0 0 023070360370 0 023070360370
FT2 031477 032260 0 0 0 0 023070360370
FT2RQ 031477 032260 0 0 023070360370 0 023070360370
FT3 031477 032260 0 0 023070360370 0 023070360370
FT9 0 032260 0 0 023070360370 0 023070360370
ET0 031501 032260 0 0 0 0 023070360370
ST1A 031501 032260 0 0 0 0 023070360370
ST9 031501 032260 0 0 0 0 023070360370
*031501 JUMPA 0,031502
INITIAL
C(AC)=023070 360370
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031501 031501 0 0 324000031502 0 000000031502
IT1 031501 0 0 0 324000031502 0 000000031502
AT3 031501 0 0 0 000000031502 0 324000031502
AT6 031501 031502 0 0 000000031502 0 324000031502
FT1A 031501 031502 0 0 000000031502 0 000000031502
FT2 031501 031502 0 0 0 0 000000031502
FT2RQ 031501 031502 0 0 023070360370 0 000000031502
FT3 031501 031502 0 0 023070360370 0 000000031502
FT9 031502 031502 0 0 023070360370 0 000000031502
ET0 031502 031502 0 0 023070360370 0 000000031502
ST1A 031502 031502 0 0 023070360370 0 000000031502
ST9 031502 031502 0 0 023070360370 0 000000031502
*031502 CAME 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031502 031502 0 0 312040032254 0 172737405060
IT1 031502 0 0 0 312040032254 0 172737405060
AT3 031502 0 0 0 000000032254 0 312040032254
AT6 031502 032254 0 0 000000032254 0 312040032254
FT0 031502 032254 0 0 172737405060 0 312040032254
FT1A 031502 032254 0 0 172737405060 0 172737405060
FT2 031502 032254 0 0 0 0 172737405060
FT2RQ 031502 032254 0 0 172737405060 0 172737405060
FT3 031502 032254 0 0 172737405060 0 172737405060
FT9 031503 032254 0 0 172737405060 0 172737405060
ET0 031504 032254 0 0 0 0 172737405060
ST1A 031504 032254 0 0 0 0 172737405060
ST9 031504 032254 0 0 0 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 129
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0218
*031504 JUMPA 0,031505
INITIAL
C(AC)=023070 360370
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031504 031504 0 0 324000031505 0 000000031505
IT1 031504 0 0 0 324000031505 0 000000031505
AT3 031504 0 0 0 000000031505 0 324000031505
AT6 031504 031505 0 0 000000031505 0 324000031505
FT1A 031504 031505 0 0 000000031505 0 000000031505
FT2 031504 031505 0 0 0 0 000000031505
FT2RQ 031504 031505 0 0 023070360370 0 000000031505
FT3 031504 031505 0 0 023070360370 0 000000031505
FT9 031505 031505 0 0 023070360370 0 000000031505
ET0 031505 031505 0 0 023070360370 0 000000031505
ST1A 031505 031505 0 0 023070360370 0 000000031505
ST9 031505 031505 0 0 023070360370 0 000000031505
*031505 MOVE 0,032261
INITIAL
C(AC)=023070 360370
C(E)=007603 607062
FINAL
C(AC)=007603 607062
TIME PC MA SC FE AR MQ BR
IT0 031505 031505 0 0 200000032261 0 007603607062
IT1 031505 0 0 0 200000032261 0 007603607062
AT3 031505 0 0 0 000000032261 0 200000032261
AT6 031505 032261 0 0 000000032261 0 200000032261
FT0 031505 032261 0 0 007603607062 0 200000032261
FT1A 031505 032261 0 0 007603607062 0 007603607062
FT9 031506 032261 0 0 007603607062 0 007603607062
ET0 031506 032261 0 0 007603607062 0 007603607062
ST1 031506 032261 0 0 007603607062 0 007603607062
ST2 031506 032261 0 0 007603607062 0 007603607062
ST9 031506 032261 0 0 007603607062 0 007603607062
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 130
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0219
*031506 MOVE 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 031506 031506 0 0 200040032254 0 172737405060
IT1 031506 0 0 0 200040032254 0 172737405060
AT3 031506 0 0 0 000000032254 0 200040032254
AT6 031506 032254 0 0 000000032254 0 200040032254
FT0 031506 032254 0 0 172737405060 0 200040032254
FT1A 031506 032254 0 0 172737405060 0 172737405060
FT9 031507 032254 0 0 172737405060 0 172737405060
ET0 031507 032254 0 0 172737405060 0 172737405060
ST1 031507 032254 0 0 172737405060 0 172737405060
ST2 031507 032254 0 0 172737405060 0 172737405060
ST9 031507 032254 0 0 172737405060 0 172737405060
*031507 ROT 0,777775
INITIAL
C(AC)=007603 607062
FINAL
C(AC)=200760 360706
TIME PC MA SC FE AR MQ BR
IT0 031507 031507 0 0 241000777775 0 000000777775
IT1 031507 0 0 0 241000777775 0 000000777775
AT3 031507 0 0 0 000000777775 0 241000777775
AT6 031507 777775 0 0 000000777775 0 241000777775
FT1A 031507 777775 0 0 000000777775 0 000000777775
FT2 031507 777775 0 0 0 0 000000777775
FT2RQ 031507 777775 0 0 007603607062 0 000000777775
FT3 031507 777775 0 0 007603607062 0 000000777775
FT9 031510 777775 0 0 007603607062 0 000000777775
ET0 031510 777775 775 0 007603607062 0 000000777775
SCT0 031510 777775 775 0 007603607062 0 000000777775
SCT3 031510 777775 776 0 003701703431 0 000000777775
SCT3 031510 777775 777 0 401740741614 0 000000777775
SCT3 031510 777775 0 0 200760360706 0 000000777775
SCT4 031510 777775 0 0 200760360706 0 000000777775
ST0 031510 777775 0 0 200760360706 0 000000777775
ST1 031510 777775 0 0 200760360706 0 000000777775
ST2 031510 777775 0 0 200760360706 0 000000777775
ST9 031510 777775 0 0 200760360706 0 000000777775
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 131
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0220
*031510 CAME 0,032262
INITIAL
C(AC)=200760 360706
C(E)=200760 360706
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031510 031510 0 0 312000032262 0 200760360706
IT1 031510 0 0 0 312000032262 0 200760360706
AT3 031510 0 0 0 000000032262 0 312000032262
AT6 031510 032262 0 0 000000032262 0 312000032262
FT0 031510 032262 0 0 200760360706 0 312000032262
FT1A 031510 032262 0 0 200760360706 0 200760360706
FT2 031510 032262 0 0 0 0 200760360706
FT2RQ 031510 032262 0 0 200760360706 0 200760360706
FT3 031510 032262 0 0 200760360706 0 200760360706
FT9 031511 032262 0 0 200760360706 0 200760360706
ET0 031512 032262 0 0 0 0 200760360706
ST1A 031512 032262 0 0 0 0 200760360706
ST9 031512 032262 0 0 0 0 200760360706
*031512 JUMPA 0,031513
INITIAL
C(AC)=200760 360706
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031512 031512 0 0 324000031513 0 000000031513
IT1 031512 0 0 0 324000031513 0 000000031513
AT3 031512 0 0 0 000000031513 0 324000031513
AT6 031512 031513 0 0 000000031513 0 324000031513
FT1A 031512 031513 0 0 000000031513 0 000000031513
FT2 031512 031513 0 0 0 0 000000031513
FT2RQ 031512 031513 0 0 200760360706 0 000000031513
FT3 031512 031513 0 0 200760360706 0 000000031513
FT9 031513 031513 0 0 200760360706 0 000000031513
ET0 031513 031513 0 0 200760360706 0 000000031513
ST1A 031513 031513 0 0 200760360706 0 000000031513
ST9 031513 031513 0 0 200760360706 0 000000031513
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 132
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0221
*031513 CAME 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031513 031513 0 0 312040032254 0 172737405060
IT1 031513 0 0 0 312040032254 0 172737405060
AT3 031513 0 0 0 000000032254 0 312040032254
AT6 031513 032254 0 0 000000032254 0 312040032254
FT0 031513 032254 0 0 172737405060 0 312040032254
FT1A 031513 032254 0 0 172737405060 0 172737405060
FT2 031513 032254 0 0 0 0 172737405060
FT2RQ 031513 032254 0 0 172737405060 0 172737405060
FT3 031513 032254 0 0 172737405060 0 172737405060
FT9 031514 032254 0 0 172737405060 0 172737405060
ET0 031515 032254 0 0 0 0 172737405060
ST1A 031515 032254 0 0 0 0 172737405060
ST9 031515 032254 0 0 0 0 172737405060
*031515 JUMPA 0,031516
INITIAL
C(AC)=200760 360706
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031515 031515 0 0 324000031516 0 000000031516
IT1 031515 0 0 0 324000031516 0 000000031516
AT3 031515 0 0 0 000000031516 0 324000031516
AT6 031515 031516 0 0 000000031516 0 324000031516
FT1A 031515 031516 0 0 000000031516 0 000000031516
FT2 031515 031516 0 0 0 0 000000031516
FT2RQ 031515 031516 0 0 200760360706 0 000000031516
FT3 031515 031516 0 0 200760360706 0 000000031516
FT9 031516 031516 0 0 200760360706 0 000000031516
ET0 031516 031516 0 0 200760360706 0 000000031516
ST1A 031516 031516 0 0 200760360706 0 000000031516
ST9 031516 031516 0 0 200760360706 0 000000031516
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 133
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0222
*031516 MOVE 2,032227
INITIAL
C(AC)=777777 777777
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031516 031516 0 0 200100032227 0 0
IT1 031516 0 0 0 200100032227 0 0
AT3 031516 0 0 0 000000032227 0 200100032227
AT6 031516 032227 0 0 000000032227 0 200100032227
FT0 031516 032227 0 0 0 0 200100032227
FT1A 031516 032227 0 0 0 0 0
FT9 031517 032227 0 0 0 0 0
ET0 031517 032227 0 0 0 0 0
ST1 031517 032227 0 0 0 0 0
ST2 031517 032227 0 0 0 0 0
ST9 031517 032227 0 0 0 0 0
*031517 MOVE 3,032254
INITIAL
C(AC)=000000 707070
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 031517 031517 0 0 200140032254 0 172737405060
IT1 031517 0 0 0 200140032254 0 172737405060
AT3 031517 0 0 0 000000032254 0 200140032254
AT6 031517 032254 0 0 000000032254 0 200140032254
FT0 031517 032254 0 0 172737405060 0 200140032254
FT1A 031517 032254 0 0 172737405060 0 172737405060
FT9 031520 032254 0 0 172737405060 0 172737405060
ET0 031520 032254 0 0 172737405060 0 172737405060
ST1 031520 032254 0 0 172737405060 0 172737405060
ST2 031520 032254 0 0 172737405060 0 172737405060
ST9 031520 032254 0 0 172737405060 0 172737405060
*031520 ROT 2,000015
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031520 031520 0 0 241100000015 0 000000000015
IT1 031520 0 0 0 241100000015 0 000000000015
AT3 031520 0 0 0 000000000015 0 241100000015
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 134
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0223
AT6 031520 000015 0 0 000000000015 0 241100000015
FT1A 031520 000015 0 0 000000000015 0 000000000015
FT2 031520 000015 0 0 0 0 000000000015
FT2RQ 031520 000015 0 0 0 0 000000000015
FT3 031520 000015 0 0 0 0 000000000015
FT9 031521 000015 0 0 0 0 000000000015
ET0 031521 000015 015 0 0 0 000000000015
SRT1 031521 000015 763 0 0 0 000000000015
SCT0 031521 000015 763 0 0 0 000000000015
SCT3 031521 000015 764 0 0 0 000000000015
SCT3 031521 000015 765 0 0 0 000000000015
SCT3 031521 000015 766 0 0 0 000000000015
SCT3 031521 000015 767 0 0 0 000000000015
SCT3 031521 000015 0 0 0 0 000000000015
SCT3 031521 000015 771 0 0 0 000000000015
SCT3 031521 000015 772 0 0 0 000000000015
SCT3 031521 000015 773 0 0 0 000000000015
SCT3 031521 000015 774 0 0 0 000000000015
SCT3 031521 000015 775 0 0 0 000000000015
SCT3 031521 000015 776 0 0 0 000000000015
SCT3 031521 000015 777 0 0 0 000000000015
SCT3 031521 000015 0 0 0 0 000000000015
SCT4 031521 000015 0 0 0 0 000000000015
ST0 031521 000015 0 0 0 0 000000000015
ST1 031521 000015 0 0 0 0 000000000015
ST2 031521 000015 0 0 0 0 000000000015
ST9 031521 000015 0 0 0 0 000000000015
*031521 CAME 2,032227
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031521 031521 0 0 312100032227 0 0
IT1 031521 0 0 0 312100032227 0 0
AT3 031521 0 0 0 000000032227 0 312100032227
AT6 031521 032227 0 0 000000032227 0 312100032227
FT0 031521 032227 0 0 0 0 312100032227
FT1A 031521 032227 0 0 0 0 0
FT2 031521 032227 0 0 0 0 0
FT2RQ 031521 032227 0 0 0 0 0
FT3 031521 032227 0 0 0 0 0
FT9 031522 032227 0 0 0 0 0
ET0 031523 032227 0 0 0 0 0
ST1A 031523 032227 0 0 0 0 0
ST9 031523 032227 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 135
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0224
*031523 JUMPA 0,031524
INITIAL
C(AC)=200760 360706
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031523 031523 0 0 324000031524 0 000000031524
IT1 031523 0 0 0 324000031524 0 000000031524
AT3 031523 0 0 0 000000031524 0 324000031524
AT6 031523 031524 0 0 000000031524 0 324000031524
FT1A 031523 031524 0 0 000000031524 0 000000031524
FT2 031523 031524 0 0 0 0 000000031524
FT2RQ 031523 031524 0 0 200760360706 0 000000031524
FT3 031523 031524 0 0 200760360706 0 000000031524
FT9 031524 031524 0 0 200760360706 0 000000031524
ET0 031524 031524 0 0 200760360706 0 000000031524
ST1A 031524 031524 0 0 200760360706 0 000000031524
ST9 031524 031524 0 0 200760360706 0 000000031524
*031524 CAME 3,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031524 031524 0 0 312140032254 0 172737405060
IT1 031524 0 0 0 312140032254 0 172737405060
AT3 031524 0 0 0 000000032254 0 312140032254
AT6 031524 032254 0 0 000000032254 0 312140032254
FT0 031524 032254 0 0 172737405060 0 312140032254
FT1A 031524 032254 0 0 172737405060 0 172737405060
FT2 031524 032254 0 0 0 0 172737405060
FT2RQ 031524 032254 0 0 172737405060 0 172737405060
FT3 031524 032254 0 0 172737405060 0 172737405060
FT9 031525 032254 0 0 172737405060 0 172737405060
ET0 031526 032254 0 0 0 0 172737405060
ST1A 031526 032254 0 0 0 0 172737405060
ST9 031526 032254 0 0 0 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 136
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0225
*031526 JUMPA 0,031527
INITIAL
C(AC)=200760 360706
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031526 031526 0 0 324000031527 0 000000031527
IT1 031526 0 0 0 324000031527 0 000000031527
AT3 031526 0 0 0 000000031527 0 324000031527
AT6 031526 031527 0 0 000000031527 0 324000031527
FT1A 031526 031527 0 0 000000031527 0 000000031527
FT2 031526 031527 0 0 0 0 000000031527
FT2RQ 031526 031527 0 0 200760360706 0 000000031527
FT3 031526 031527 0 0 200760360706 0 000000031527
FT9 031527 031527 0 0 200760360706 0 000000031527
ET0 031527 031527 0 0 200760360706 0 000000031527
ST1A 031527 031527 0 0 200760360706 0 000000031527
ST9 031527 031527 0 0 200760360706 0 000000031527
*031527 MOVE 2,032226
INITIAL
C(AC)=000000 000000
C(E)=777777 777777
FINAL
C(AC)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 031527 031527 0 0 200100032226 0 777777777777
IT1 031527 0 0 0 200100032226 0 777777777777
AT3 031527 0 0 0 000000032226 0 200100032226
AT6 031527 032226 0 0 000000032226 0 200100032226
FT0 031527 032226 0 0 777777777777 0 200100032226
FT1A 031527 032226 0 0 777777777777 0 777777777777
FT9 031530 032226 0 0 777777777777 0 777777777777
ET0 031530 032226 0 0 777777777777 0 777777777777
ST1 031530 032226 0 0 777777777777 0 777777777777
ST2 031530 032226 0 0 777777777777 0 777777777777
ST9 031530 032226 0 0 777777777777 0 777777777777
*031530 MOVE 3,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 031530 031530 0 0 200140032254 0 172737405060
IT1 031530 0 0 0 200140032254 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 137
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0226
AT3 031530 0 0 0 000000032254 0 200140032254
AT6 031530 032254 0 0 000000032254 0 200140032254
FT0 031530 032254 0 0 172737405060 0 200140032254
FT1A 031530 032254 0 0 172737405060 0 172737405060
FT9 031531 032254 0 0 172737405060 0 172737405060
ET0 031531 032254 0 0 172737405060 0 172737405060
ST1 031531 032254 0 0 172737405060 0 172737405060
ST2 031531 032254 0 0 172737405060 0 172737405060
ST9 031531 032254 0 0 172737405060 0 172737405060
*031531 ROT 2,000015
INITIAL
C(AC)=777777 777777
FINAL
C(AC)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 031531 031531 0 0 241100000015 0 000000000015
IT1 031531 0 0 0 241100000015 0 000000000015
AT3 031531 0 0 0 000000000015 0 241100000015
AT6 031531 000015 0 0 000000000015 0 241100000015
FT1A 031531 000015 0 0 000000000015 0 000000000015
FT2 031531 000015 0 0 0 0 000000000015
FT2RQ 031531 000015 0 0 777777777777 0 000000000015
FT3 031531 000015 0 0 777777777777 0 000000000015
FT9 031532 000015 0 0 777777777777 0 000000000015
ET0 031532 000015 015 0 777777777777 0 000000000015
SRT1 031532 000015 763 0 777777777777 0 000000000015
SCT0 031532 000015 763 0 777777777777 0 000000000015
SCT3 031532 000015 764 0 777777777777 0 000000000015
SCT3 031532 000015 765 0 777777777777 0 000000000015
SCT3 031532 000015 766 0 777777777777 0 000000000015
SCT3 031532 000015 767 0 777777777777 0 000000000015
SCT3 031532 000015 0 0 777777777777 0 000000000015
SCT3 031532 000015 771 0 777777777777 0 000000000015
SCT3 031532 000015 772 0 777777777777 0 000000000015
SCT3 031532 000015 773 0 777777777777 0 000000000015
SCT3 031532 000015 774 0 777777777777 0 000000000015
SCT3 031532 000015 775 0 777777777777 0 000000000015
SCT3 031532 000015 776 0 777777777777 0 000000000015
SCT3 031532 000015 777 0 777777777777 0 000000000015
SCT3 031532 000015 0 0 777777777777 0 000000000015
SCT4 031532 000015 0 0 777777777777 0 000000000015
ST0 031532 000015 0 0 777777777777 0 000000000015
ST1 031532 000015 0 0 777777777777 0 000000000015
ST2 031532 000015 0 0 777777777777 0 000000000015
ST9 031532 000015 0 0 777777777777 0 000000000015
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 138
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0227
*031532 CAME 2,032226
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031532 031532 0 0 312100032226 0 777777777777
IT1 031532 0 0 0 312100032226 0 777777777777
AT3 031532 0 0 0 000000032226 0 312100032226
AT6 031532 032226 0 0 000000032226 0 312100032226
FT0 031532 032226 0 0 777777777777 0 312100032226
FT1A 031532 032226 0 0 777777777777 0 777777777777
FT2 031532 032226 0 0 0 0 777777777777
FT2RQ 031532 032226 0 0 777777777777 0 777777777777
FT3 031532 032226 0 0 777777777777 0 777777777777
FT9 031533 032226 0 0 777777777777 0 777777777777
ET0 031534 032226 0 0 0 0 777777777777
ST1A 031534 032226 0 0 0 0 777777777777
ST9 031534 032226 0 0 0 0 777777777777
*031534 JUMPA 0,031535
INITIAL
C(AC)=200760 360706
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031534 031534 0 0 324000031535 0 000000031535
IT1 031534 0 0 0 324000031535 0 000000031535
AT3 031534 0 0 0 000000031535 0 324000031535
AT6 031534 031535 0 0 000000031535 0 324000031535
FT1A 031534 031535 0 0 000000031535 0 000000031535
FT2 031534 031535 0 0 0 0 000000031535
FT2RQ 031534 031535 0 0 200760360706 0 000000031535
FT3 031534 031535 0 0 200760360706 0 000000031535
FT9 031535 031535 0 0 200760360706 0 000000031535
ET0 031535 031535 0 0 200760360706 0 000000031535
ST1A 031535 031535 0 0 200760360706 0 000000031535
ST9 031535 031535 0 0 200760360706 0 000000031535
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 139
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0228
*031535 CAME 3,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031535 031535 0 0 312140032254 0 172737405060
IT1 031535 0 0 0 312140032254 0 172737405060
AT3 031535 0 0 0 000000032254 0 312140032254
AT6 031535 032254 0 0 000000032254 0 312140032254
FT0 031535 032254 0 0 172737405060 0 312140032254
FT1A 031535 032254 0 0 172737405060 0 172737405060
FT2 031535 032254 0 0 0 0 172737405060
FT2RQ 031535 032254 0 0 172737405060 0 172737405060
FT3 031535 032254 0 0 172737405060 0 172737405060
FT9 031536 032254 0 0 172737405060 0 172737405060
ET0 031537 032254 0 0 0 0 172737405060
ST1A 031537 032254 0 0 0 0 172737405060
ST9 031537 032254 0 0 0 0 172737405060
*031537 JUMPA 0,031540
INITIAL
C(AC)=200760 360706
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031537 031537 0 0 324000031540 0 000000031540
IT1 031537 0 0 0 324000031540 0 000000031540
AT3 031537 0 0 0 000000031540 0 324000031540
AT6 031537 031540 0 0 000000031540 0 324000031540
FT1A 031537 031540 0 0 000000031540 0 000000031540
FT2 031537 031540 0 0 0 0 000000031540
FT2RQ 031537 031540 0 0 200760360706 0 000000031540
FT3 031537 031540 0 0 200760360706 0 000000031540
FT9 031540 031540 0 0 200760360706 0 000000031540
ET0 031540 031540 0 0 200760360706 0 000000031540
ST1A 031540 031540 0 0 200760360706 0 000000031540
ST9 031540 031540 0 0 200760360706 0 000000031540
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 140
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0229
*031540 MOVE 2,032255
INITIAL
C(AC)=777777 777777
C(E)=252525 252525
FINAL
C(AC)=252525 252525
TIME PC MA SC FE AR MQ BR
IT0 031540 031540 0 0 200100032255 0 252525252525
IT1 031540 0 0 0 200100032255 0 252525252525
AT3 031540 0 0 0 000000032255 0 200100032255
AT6 031540 032255 0 0 000000032255 0 200100032255
FT0 031540 032255 0 0 252525252525 0 200100032255
FT1A 031540 032255 0 0 252525252525 0 252525252525
FT9 031541 032255 0 0 252525252525 0 252525252525
ET0 031541 032255 0 0 252525252525 0 252525252525
ST1 031541 032255 0 0 252525252525 0 252525252525
ST2 031541 032255 0 0 252525252525 0 252525252525
ST9 031541 032255 0 0 252525252525 0 252525252525
*031541 MOVE 3,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 031541 031541 0 0 200140032254 0 172737405060
IT1 031541 0 0 0 200140032254 0 172737405060
AT3 031541 0 0 0 000000032254 0 200140032254
AT6 031541 032254 0 0 000000032254 0 200140032254
FT0 031541 032254 0 0 172737405060 0 200140032254
FT1A 031541 032254 0 0 172737405060 0 172737405060
FT9 031542 032254 0 0 172737405060 0 172737405060
ET0 031542 032254 0 0 172737405060 0 172737405060
ST1 031542 032254 0 0 172737405060 0 172737405060
ST2 031542 032254 0 0 172737405060 0 172737405060
ST9 031542 032254 0 0 172737405060 0 172737405060
*031542 ROT 2,000015
INITIAL
C(AC)=252525 252525
FINAL
C(AC)=525252 525252
TIME PC MA SC FE AR MQ BR
IT0 031542 031542 0 0 241100000015 0 000000000015
IT1 031542 0 0 0 241100000015 0 000000000015
AT3 031542 0 0 0 000000000015 0 241100000015
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 141
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0230
AT6 031542 000015 0 0 000000000015 0 241100000015
FT1A 031542 000015 0 0 000000000015 0 000000000015
FT2 031542 000015 0 0 0 0 000000000015
FT2RQ 031542 000015 0 0 252525252525 0 000000000015
FT3 031542 000015 0 0 252525252525 0 000000000015
FT9 031543 000015 0 0 252525252525 0 000000000015
ET0 031543 000015 015 0 252525252525 0 000000000015
SRT1 031543 000015 763 0 252525252525 0 000000000015
SCT0 031543 000015 763 0 252525252525 0 000000000015
SCT3 031543 000015 764 0 525252525252 0 000000000015
SCT3 031543 000015 765 0 252525252525 0 000000000015
SCT3 031543 000015 766 0 525252525252 0 000000000015
SCT3 031543 000015 767 0 252525252525 0 000000000015
SCT3 031543 000015 0 0 525252525252 0 000000000015
SCT3 031543 000015 771 0 252525252525 0 000000000015
SCT3 031543 000015 772 0 525252525252 0 000000000015
SCT3 031543 000015 773 0 252525252525 0 000000000015
SCT3 031543 000015 774 0 525252525252 0 000000000015
SCT3 031543 000015 775 0 252525252525 0 000000000015
SCT3 031543 000015 776 0 525252525252 0 000000000015
SCT3 031543 000015 777 0 252525252525 0 000000000015
SCT3 031543 000015 0 0 525252525252 0 000000000015
SCT4 031543 000015 0 0 525252525252 0 000000000015
ST0 031543 000015 0 0 525252525252 0 000000000015
ST1 031543 000015 0 0 525252525252 0 000000000015
ST2 031543 000015 0 0 525252525252 0 000000000015
ST9 031543 000015 0 0 525252525252 0 000000000015
*031543 CAME 2,032256
INITIAL
C(AC)=525252 525252
C(E)=525252 525252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031543 031543 0 0 312100032256 0 525252525252
IT1 031543 0 0 0 312100032256 0 525252525252
AT3 031543 0 0 0 000000032256 0 312100032256
AT6 031543 032256 0 0 000000032256 0 312100032256
FT0 031543 032256 0 0 525252525252 0 312100032256
FT1A 031543 032256 0 0 525252525252 0 525252525252
FT2 031543 032256 0 0 0 0 525252525252
FT2RQ 031543 032256 0 0 525252525252 0 525252525252
FT3 031543 032256 0 0 525252525252 0 525252525252
FT9 031544 032256 0 0 525252525252 0 525252525252
ET0 031545 032256 0 0 0 0 525252525252
ST1A 031545 032256 0 0 0 0 525252525252
ST9 031545 032256 0 0 0 0 525252525252
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 142
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0231
*031545 JUMPA 0,031546
INITIAL
C(AC)=200760 360706
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031545 031545 0 0 324000031546 0 000000031546
IT1 031545 0 0 0 324000031546 0 000000031546
AT3 031545 0 0 0 000000031546 0 324000031546
AT6 031545 031546 0 0 000000031546 0 324000031546
FT1A 031545 031546 0 0 000000031546 0 000000031546
FT2 031545 031546 0 0 0 0 000000031546
FT2RQ 031545 031546 0 0 200760360706 0 000000031546
FT3 031545 031546 0 0 200760360706 0 000000031546
FT9 031546 031546 0 0 200760360706 0 000000031546
ET0 031546 031546 0 0 200760360706 0 000000031546
ST1A 031546 031546 0 0 200760360706 0 000000031546
ST9 031546 031546 0 0 200760360706 0 000000031546
*031546 CAME 3,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031546 031546 0 0 312140032254 0 172737405060
IT1 031546 0 0 0 312140032254 0 172737405060
AT3 031546 0 0 0 000000032254 0 312140032254
AT6 031546 032254 0 0 000000032254 0 312140032254
FT0 031546 032254 0 0 172737405060 0 312140032254
FT1A 031546 032254 0 0 172737405060 0 172737405060
FT2 031546 032254 0 0 0 0 172737405060
FT2RQ 031546 032254 0 0 172737405060 0 172737405060
FT3 031546 032254 0 0 172737405060 0 172737405060
FT9 031547 032254 0 0 172737405060 0 172737405060
ET0 031550 032254 0 0 0 0 172737405060
ST1A 031550 032254 0 0 0 0 172737405060
ST9 031550 032254 0 0 0 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 143
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0232
*031550 JUMPA 0,031551
INITIAL
C(AC)=200760 360706
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031550 031550 0 0 324000031551 0 000000031551
IT1 031550 0 0 0 324000031551 0 000000031551
AT3 031550 0 0 0 000000031551 0 324000031551
AT6 031550 031551 0 0 000000031551 0 324000031551
FT1A 031550 031551 0 0 000000031551 0 000000031551
FT2 031550 031551 0 0 0 0 000000031551
FT2RQ 031550 031551 0 0 200760360706 0 000000031551
FT3 031550 031551 0 0 200760360706 0 000000031551
FT9 031551 031551 0 0 200760360706 0 000000031551
ET0 031551 031551 0 0 200760360706 0 000000031551
ST1A 031551 031551 0 0 200760360706 0 000000031551
ST9 031551 031551 0 0 200760360706 0 000000031551
*031551 MOVE 2,032256
INITIAL
C(AC)=525252 525252
C(E)=525252 525252
FINAL
C(AC)=525252 525252
TIME PC MA SC FE AR MQ BR
IT0 031551 031551 0 0 200100032256 0 525252525252
IT1 031551 0 0 0 200100032256 0 525252525252
AT3 031551 0 0 0 000000032256 0 200100032256
AT6 031551 032256 0 0 000000032256 0 200100032256
FT0 031551 032256 0 0 525252525252 0 200100032256
FT1A 031551 032256 0 0 525252525252 0 525252525252
FT9 031552 032256 0 0 525252525252 0 525252525252
ET0 031552 032256 0 0 525252525252 0 525252525252
ST1 031552 032256 0 0 525252525252 0 525252525252
ST2 031552 032256 0 0 525252525252 0 525252525252
ST9 031552 032256 0 0 525252525252 0 525252525252
*031552 MOVE 3,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 031552 031552 0 0 200140032254 0 172737405060
IT1 031552 0 0 0 200140032254 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 144
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0233
AT3 031552 0 0 0 000000032254 0 200140032254
AT6 031552 032254 0 0 000000032254 0 200140032254
FT0 031552 032254 0 0 172737405060 0 200140032254
FT1A 031552 032254 0 0 172737405060 0 172737405060
FT9 031553 032254 0 0 172737405060 0 172737405060
ET0 031553 032254 0 0 172737405060 0 172737405060
ST1 031553 032254 0 0 172737405060 0 172737405060
ST2 031553 032254 0 0 172737405060 0 172737405060
ST9 031553 032254 0 0 172737405060 0 172737405060
*031553 ROT 2,000015
INITIAL
C(AC)=525252 525252
FINAL
C(AC)=252525 252525
TIME PC MA SC FE AR MQ BR
IT0 031553 031553 0 0 241100000015 0 000000000015
IT1 031553 0 0 0 241100000015 0 000000000015
AT3 031553 0 0 0 000000000015 0 241100000015
AT6 031553 000015 0 0 000000000015 0 241100000015
FT1A 031553 000015 0 0 000000000015 0 000000000015
FT2 031553 000015 0 0 0 0 000000000015
FT2RQ 031553 000015 0 0 525252525252 0 000000000015
FT3 031553 000015 0 0 525252525252 0 000000000015
FT9 031554 000015 0 0 525252525252 0 000000000015
ET0 031554 000015 015 0 525252525252 0 000000000015
SRT1 031554 000015 763 0 525252525252 0 000000000015
SCT0 031554 000015 763 0 525252525252 0 000000000015
SCT3 031554 000015 764 0 252525252525 0 000000000015
SCT3 031554 000015 765 0 525252525252 0 000000000015
SCT3 031554 000015 766 0 252525252525 0 000000000015
SCT3 031554 000015 767 0 525252525252 0 000000000015
SCT3 031554 000015 0 0 252525252525 0 000000000015
SCT3 031554 000015 771 0 525252525252 0 000000000015
SCT3 031554 000015 772 0 252525252525 0 000000000015
SCT3 031554 000015 773 0 525252525252 0 000000000015
SCT3 031554 000015 774 0 252525252525 0 000000000015
SCT3 031554 000015 775 0 525252525252 0 000000000015
SCT3 031554 000015 776 0 252525252525 0 000000000015
SCT3 031554 000015 777 0 525252525252 0 000000000015
SCT3 031554 000015 0 0 252525252525 0 000000000015
SCT4 031554 000015 0 0 252525252525 0 000000000015
ST0 031554 000015 0 0 252525252525 0 000000000015
ST1 031554 000015 0 0 252525252525 0 000000000015
ST2 031554 000015 0 0 252525252525 0 000000000015
ST9 031554 000015 0 0 252525252525 0 000000000015
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 145
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0234
*031554 CAME 2,032255
INITIAL
C(AC)=252525 252525
C(E)=252525 252525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031554 031554 0 0 312100032255 0 252525252525
IT1 031554 0 0 0 312100032255 0 252525252525
AT3 031554 0 0 0 000000032255 0 312100032255
AT6 031554 032255 0 0 000000032255 0 312100032255
FT0 031554 032255 0 0 252525252525 0 312100032255
FT1A 031554 032255 0 0 252525252525 0 252525252525
FT2 031554 032255 0 0 0 0 252525252525
FT2RQ 031554 032255 0 0 252525252525 0 252525252525
FT3 031554 032255 0 0 252525252525 0 252525252525
FT9 031555 032255 0 0 252525252525 0 252525252525
ET0 031556 032255 0 0 0 0 252525252525
ST1A 031556 032255 0 0 0 0 252525252525
ST9 031556 032255 0 0 0 0 252525252525
*031556 JUMPA 0,031557
INITIAL
C(AC)=200760 360706
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031556 031556 0 0 324000031557 0 000000031557
IT1 031556 0 0 0 324000031557 0 000000031557
AT3 031556 0 0 0 000000031557 0 324000031557
AT6 031556 031557 0 0 000000031557 0 324000031557
FT1A 031556 031557 0 0 000000031557 0 000000031557
FT2 031556 031557 0 0 0 0 000000031557
FT2RQ 031556 031557 0 0 200760360706 0 000000031557
FT3 031556 031557 0 0 200760360706 0 000000031557
FT9 031557 031557 0 0 200760360706 0 000000031557
ET0 031557 031557 0 0 200760360706 0 000000031557
ST1A 031557 031557 0 0 200760360706 0 000000031557
ST9 031557 031557 0 0 200760360706 0 000000031557
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 146
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0235
*031557 CAME 3,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031557 031557 0 0 312140032254 0 172737405060
IT1 031557 0 0 0 312140032254 0 172737405060
AT3 031557 0 0 0 000000032254 0 312140032254
AT6 031557 032254 0 0 000000032254 0 312140032254
FT0 031557 032254 0 0 172737405060 0 312140032254
FT1A 031557 032254 0 0 172737405060 0 172737405060
FT2 031557 032254 0 0 0 0 172737405060
FT2RQ 031557 032254 0 0 172737405060 0 172737405060
FT3 031557 032254 0 0 172737405060 0 172737405060
FT9 031560 032254 0 0 172737405060 0 172737405060
ET0 031561 032254 0 0 0 0 172737405060
ST1A 031561 032254 0 0 0 0 172737405060
ST9 031561 032254 0 0 0 0 172737405060
*031561 JUMPA 0,031562
INITIAL
C(AC)=200760 360706
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031561 031561 0 0 324000031562 0 000000031562
IT1 031561 0 0 0 324000031562 0 000000031562
AT3 031561 0 0 0 000000031562 0 324000031562
AT6 031561 031562 0 0 000000031562 0 324000031562
FT1A 031561 031562 0 0 000000031562 0 000000031562
FT2 031561 031562 0 0 0 0 000000031562
FT2RQ 031561 031562 0 0 200760360706 0 000000031562
FT3 031561 031562 0 0 200760360706 0 000000031562
FT9 031562 031562 0 0 200760360706 0 000000031562
ET0 031562 031562 0 0 200760360706 0 000000031562
ST1A 031562 031562 0 0 200760360706 0 000000031562
ST9 031562 031562 0 0 200760360706 0 000000031562
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 147
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0236
*031562 MOVE 2,032257
INITIAL
C(AC)=252525 252525
C(E)=230703 603700
FINAL
C(AC)=230703 603700
TIME PC MA SC FE AR MQ BR
IT0 031562 031562 0 0 200100032257 0 230703603700
IT1 031562 0 0 0 200100032257 0 230703603700
AT3 031562 0 0 0 000000032257 0 200100032257
AT6 031562 032257 0 0 000000032257 0 200100032257
FT0 031562 032257 0 0 230703603700 0 200100032257
FT1A 031562 032257 0 0 230703603700 0 230703603700
FT9 031563 032257 0 0 230703603700 0 230703603700
ET0 031563 032257 0 0 230703603700 0 230703603700
ST1 031563 032257 0 0 230703603700 0 230703603700
ST2 031563 032257 0 0 230703603700 0 230703603700
ST9 031563 032257 0 0 230703603700 0 230703603700
*031563 MOVE 3,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 031563 031563 0 0 200140032254 0 172737405060
IT1 031563 0 0 0 200140032254 0 172737405060
AT3 031563 0 0 0 000000032254 0 200140032254
AT6 031563 032254 0 0 000000032254 0 200140032254
FT0 031563 032254 0 0 172737405060 0 200140032254
FT1A 031563 032254 0 0 172737405060 0 172737405060
FT9 031564 032254 0 0 172737405060 0 172737405060
ET0 031564 032254 0 0 172737405060 0 172737405060
ST1 031564 032254 0 0 172737405060 0 172737405060
ST2 031564 032254 0 0 172737405060 0 172737405060
ST9 031564 032254 0 0 172737405060 0 172737405060
*031564 ROT 2,000015
INITIAL
C(AC)=230703 603700
FINAL
C(AC)=074076 004616
TIME PC MA SC FE AR MQ BR
IT0 031564 031564 0 0 241100000015 0 000000000015
IT1 031564 0 0 0 241100000015 0 000000000015
AT3 031564 0 0 0 000000000015 0 241100000015
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 148
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0237
AT6 031564 000015 0 0 000000000015 0 241100000015
FT1A 031564 000015 0 0 000000000015 0 000000000015
FT2 031564 000015 0 0 0 0 000000000015
FT2RQ 031564 000015 0 0 230703603700 0 000000000015
FT3 031564 000015 0 0 230703603700 0 000000000015
FT9 031565 000015 0 0 230703603700 0 000000000015
ET0 031565 000015 015 0 230703603700 0 000000000015
SRT1 031565 000015 763 0 230703603700 0 000000000015
SCT0 031565 000015 763 0 230703603700 0 000000000015
SCT3 031565 000015 764 0 461607407600 0 000000000015
SCT3 031565 000015 765 0 143417017401 0 000000000015
SCT3 031565 000015 766 0 307036037002 0 000000000015
SCT3 031565 000015 767 0 616074076004 0 000000000015
SCT3 031565 000015 0 0 434170174011 0 000000000015
SCT3 031565 000015 771 0 070360370023 0 000000000015
SCT3 031565 000015 772 0 160740760046 0 000000000015
SCT3 031565 000015 773 0 341701740114 0 000000000015
SCT3 031565 000015 774 0 703603700230 0 000000000015
SCT3 031565 000015 775 0 607407600461 0 000000000015
SCT3 031565 000015 776 0 417017401143 0 000000000015
SCT3 031565 000015 777 0 036037002307 0 000000000015
SCT3 031565 000015 0 0 074076004616 0 000000000015
SCT4 031565 000015 0 0 074076004616 0 000000000015
ST0 031565 000015 0 0 074076004616 0 000000000015
ST1 031565 000015 0 0 074076004616 0 000000000015
ST2 031565 000015 0 0 074076004616 0 000000000015
ST9 031565 000015 0 0 074076004616 0 000000000015
*031565 CAME 2,032263
INITIAL
C(AC)=074076 004616
C(E)=074076 004616
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031565 031565 0 0 312100032263 0 074076004616
IT1 031565 0 0 0 312100032263 0 074076004616
AT3 031565 0 0 0 000000032263 0 312100032263
AT6 031565 032263 0 0 000000032263 0 312100032263
FT0 031565 032263 0 0 074076004616 0 312100032263
FT1A 031565 032263 0 0 074076004616 0 074076004616
FT2 031565 032263 0 0 0 0 074076004616
FT2RQ 031565 032263 0 0 074076004616 0 074076004616
FT3 031565 032263 0 0 074076004616 0 074076004616
FT9 031566 032263 0 0 074076004616 0 074076004616
ET0 031567 032263 0 0 0 0 074076004616
ST1A 031567 032263 0 0 0 0 074076004616
ST9 031567 032263 0 0 0 0 074076004616
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 149
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0238
*031567 JUMPA 0,031570
INITIAL
C(AC)=200760 360706
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031567 031567 0 0 324000031570 0 000000031570
IT1 031567 0 0 0 324000031570 0 000000031570
AT3 031567 0 0 0 000000031570 0 324000031570
AT6 031567 031570 0 0 000000031570 0 324000031570
FT1A 031567 031570 0 0 000000031570 0 000000031570
FT2 031567 031570 0 0 0 0 000000031570
FT2RQ 031567 031570 0 0 200760360706 0 000000031570
FT3 031567 031570 0 0 200760360706 0 000000031570
FT9 031570 031570 0 0 200760360706 0 000000031570
ET0 031570 031570 0 0 200760360706 0 000000031570
ST1A 031570 031570 0 0 200760360706 0 000000031570
ST9 031570 031570 0 0 200760360706 0 000000031570
*031570 CAME 3,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031570 031570 0 0 312140032254 0 172737405060
IT1 031570 0 0 0 312140032254 0 172737405060
AT3 031570 0 0 0 000000032254 0 312140032254
AT6 031570 032254 0 0 000000032254 0 312140032254
FT0 031570 032254 0 0 172737405060 0 312140032254
FT1A 031570 032254 0 0 172737405060 0 172737405060
FT2 031570 032254 0 0 0 0 172737405060
FT2RQ 031570 032254 0 0 172737405060 0 172737405060
FT3 031570 032254 0 0 172737405060 0 172737405060
FT9 031571 032254 0 0 172737405060 0 172737405060
ET0 031572 032254 0 0 0 0 172737405060
ST1A 031572 032254 0 0 0 0 172737405060
ST9 031572 032254 0 0 0 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 150
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0239
*031572 JUMPA 0,031573
INITIAL
C(AC)=200760 360706
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031572 031572 0 0 324000031573 0 000000031573
IT1 031572 0 0 0 324000031573 0 000000031573
AT3 031572 0 0 0 000000031573 0 324000031573
AT6 031572 031573 0 0 000000031573 0 324000031573
FT1A 031572 031573 0 0 000000031573 0 000000031573
FT2 031572 031573 0 0 0 0 000000031573
FT2RQ 031572 031573 0 0 200760360706 0 000000031573
FT3 031572 031573 0 0 200760360706 0 000000031573
FT9 031573 031573 0 0 200760360706 0 000000031573
ET0 031573 031573 0 0 200760360706 0 000000031573
ST1A 031573 031573 0 0 200760360706 0 000000031573
ST9 031573 031573 0 0 200760360706 0 000000031573
*031573 MOVE 2,032261
INITIAL
C(AC)=074076 004616
C(E)=007603 607062
FINAL
C(AC)=007603 607062
TIME PC MA SC FE AR MQ BR
IT0 031573 031573 0 0 200100032261 0 007603607062
IT1 031573 0 0 0 200100032261 0 007603607062
AT3 031573 0 0 0 000000032261 0 200100032261
AT6 031573 032261 0 0 000000032261 0 200100032261
FT0 031573 032261 0 0 007603607062 0 200100032261
FT1A 031573 032261 0 0 007603607062 0 007603607062
FT9 031574 032261 0 0 007603607062 0 007603607062
ET0 031574 032261 0 0 007603607062 0 007603607062
ST1 031574 032261 0 0 007603607062 0 007603607062
ST2 031574 032261 0 0 007603607062 0 007603607062
ST9 031574 032261 0 0 007603607062 0 007603607062
*031574 MOVE 3,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 031574 031574 0 0 200140032254 0 172737405060
IT1 031574 0 0 0 200140032254 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 151
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0240
AT3 031574 0 0 0 000000032254 0 200140032254
AT6 031574 032254 0 0 000000032254 0 200140032254
FT0 031574 032254 0 0 172737405060 0 200140032254
FT1A 031574 032254 0 0 172737405060 0 172737405060
FT9 031575 032254 0 0 172737405060 0 172737405060
ET0 031575 032254 0 0 172737405060 0 172737405060
ST1 031575 032254 0 0 172737405060 0 172737405060
ST2 031575 032254 0 0 172737405060 0 172737405060
ST9 031575 032254 0 0 172737405060 0 172737405060
*031575 ROT 2,000015
INITIAL
C(AC)=007603 607062
FINAL
C(AC)=074161 440174
TIME PC MA SC FE AR MQ BR
IT0 031575 031575 0 0 241100000015 0 000000000015
IT1 031575 0 0 0 241100000015 0 000000000015
AT3 031575 0 0 0 000000000015 0 241100000015
AT6 031575 000015 0 0 000000000015 0 241100000015
FT1A 031575 000015 0 0 000000000015 0 000000000015
FT2 031575 000015 0 0 0 0 000000000015
FT2RQ 031575 000015 0 0 007603607062 0 000000000015
FT3 031575 000015 0 0 007603607062 0 000000000015
FT9 031576 000015 0 0 007603607062 0 000000000015
ET0 031576 000015 015 0 007603607062 0 000000000015
SRT1 031576 000015 763 0 007603607062 0 000000000015
SCT0 031576 000015 763 0 007603607062 0 000000000015
SCT3 031576 000015 764 0 017407416144 0 000000000015
SCT3 031576 000015 765 0 037017034310 0 000000000015
SCT3 031576 000015 766 0 076036070620 0 000000000015
SCT3 031576 000015 767 0 174074161440 0 000000000015
SCT3 031576 000015 0 0 370170343100 0 000000000015
SCT3 031576 000015 771 0 760360706200 0 000000000015
SCT3 031576 000015 772 0 740741614401 0 000000000015
SCT3 031576 000015 773 0 701703431003 0 000000000015
SCT3 031576 000015 774 0 603607062007 0 000000000015
SCT3 031576 000015 775 0 407416144017 0 000000000015
SCT3 031576 000015 776 0 017034310037 0 000000000015
SCT3 031576 000015 777 0 036070620076 0 000000000015
SCT3 031576 000015 0 0 074161440174 0 000000000015
SCT4 031576 000015 0 0 074161440174 0 000000000015
ST0 031576 000015 0 0 074161440174 0 000000000015
ST1 031576 000015 0 0 074161440174 0 000000000015
ST2 031576 000015 0 0 074161440174 0 000000000015
ST9 031576 000015 0 0 074161440174 0 000000000015
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 152
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0241
*031576 CAME 2,032264
INITIAL
C(AC)=074161 440174
C(E)=074161 440174
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031576 031576 0 0 312100032264 0 074161440174
IT1 031576 0 0 0 312100032264 0 074161440174
AT3 031576 0 0 0 000000032264 0 312100032264
AT6 031576 032264 0 0 000000032264 0 312100032264
FT0 031576 032264 0 0 074161440174 0 312100032264
FT1A 031576 032264 0 0 074161440174 0 074161440174
FT2 031576 032264 0 0 0 0 074161440174
FT2RQ 031576 032264 0 0 074161440174 0 074161440174
FT3 031576 032264 0 0 074161440174 0 074161440174
FT9 031577 032264 0 0 074161440174 0 074161440174
ET0 0 032264 0 0 0 0 074161440174
ST1A 0 032264 0 0 0 0 074161440174
ST9 0 032264 0 0 0 0 074161440174
*031600 JUMPA 0,031601
INITIAL
C(AC)=200760 360706
FINAL
TIME PC MA SC FE AR MQ BR
IT0 0 0 0 0 324000031601 0 000000031601
IT1 0 0 0 0 324000031601 0 000000031601
AT3 0 0 0 0 000000031601 0 324000031601
AT6 0 031601 0 0 000000031601 0 324000031601
FT1A 0 031601 0 0 000000031601 0 000000031601
FT2 0 031601 0 0 0 0 000000031601
FT2RQ 0 031601 0 0 200760360706 0 000000031601
FT3 0 031601 0 0 200760360706 0 000000031601
FT9 031601 031601 0 0 200760360706 0 000000031601
ET0 031601 031601 0 0 200760360706 0 000000031601
ST1A 031601 031601 0 0 200760360706 0 000000031601
ST9 031601 031601 0 0 200760360706 0 000000031601
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 153
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0242
*031601 CAME 3,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031601 031601 0 0 312140032254 0 172737405060
IT1 031601 0 0 0 312140032254 0 172737405060
AT3 031601 0 0 0 000000032254 0 312140032254
AT6 031601 032254 0 0 000000032254 0 312140032254
FT0 031601 032254 0 0 172737405060 0 312140032254
FT1A 031601 032254 0 0 172737405060 0 172737405060
FT2 031601 032254 0 0 0 0 172737405060
FT2RQ 031601 032254 0 0 172737405060 0 172737405060
FT3 031601 032254 0 0 172737405060 0 172737405060
FT9 031602 032254 0 0 172737405060 0 172737405060
ET0 031603 032254 0 0 0 0 172737405060
ST1A 031603 032254 0 0 0 0 172737405060
ST9 031603 032254 0 0 0 0 172737405060
*031603 JUMPA 0,031604
INITIAL
C(AC)=200760 360706
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031603 031603 0 0 324000031604 0 000000031604
IT1 031603 0 0 0 324000031604 0 000000031604
AT3 031603 0 0 0 000000031604 0 324000031604
AT6 031603 031604 0 0 000000031604 0 324000031604
FT1A 031603 031604 0 0 000000031604 0 000000031604
FT2 031603 031604 0 0 0 0 000000031604
FT2RQ 031603 031604 0 0 200760360706 0 000000031604
FT3 031603 031604 0 0 200760360706 0 000000031604
FT9 031604 031604 0 0 200760360706 0 000000031604
ET0 031604 031604 0 0 200760360706 0 000000031604
ST1A 031604 031604 0 0 200760360706 0 000000031604
ST9 031604 031604 0 0 200760360706 0 000000031604
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 154
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0243
*031604 MOVE 0,032227
INITIAL
C(AC)=200760 360706
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031604 031604 0 0 200000032227 0 0
IT1 031604 0 0 0 200000032227 0 0
AT3 031604 0 0 0 000000032227 0 200000032227
AT6 031604 032227 0 0 000000032227 0 200000032227
FT0 031604 032227 0 0 0 0 200000032227
FT1A 031604 032227 0 0 0 0 0
FT9 031605 032227 0 0 0 0 0
ET0 031605 032227 0 0 0 0 0
ST1 031605 032227 0 0 0 0 0
ST2 031605 032227 0 0 0 0 0
ST9 031605 032227 0 0 0 0 0
*031605 MOVE 1,032227
INITIAL
C(AC)=172737 405060
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031605 031605 0 0 200040032227 0 0
IT1 031605 0 0 0 200040032227 0 0
AT3 031605 0 0 0 000000032227 0 200040032227
AT6 031605 032227 0 0 000000032227 0 200040032227
FT0 031605 032227 0 0 0 0 200040032227
FT1A 031605 032227 0 0 0 0 0
FT9 031606 032227 0 0 0 0 0
ET0 031606 032227 0 0 0 0 0
ST1 031606 032227 0 0 0 0 0
ST2 031606 032227 0 0 0 0 0
ST9 031606 032227 0 0 0 0 0
*031606 ROTC 0,000003
INITIAL
C(AC)=000000 000000 C(AC+1)=000000 000000
FINAL
C(AC)=000000 000000 C(AC+1)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031606 031606 0 0 245000000003 0 000000000003
IT1 031606 0 0 0 245000000003 0 000000000003
AT3 031606 0 0 0 000000000003 0 245000000003
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 155
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0244
AT6 031606 000003 0 0 000000000003 0 245000000003
FT1A 031606 000003 0 0 000000000003 0 000000000003
FT2 031606 000003 0 0 0 0 000000000003
FT2RQ 031606 000003 0 0 0 0 000000000003
FT3 031606 000003 0 0 0 0 000000000003
FT4 031606 000003 0 0 0 0 000000000003
FT4RQ 031606 000003 0 0 0 0 000000000003
FT4A 031606 000003 0 0 0 0 000000000003
FT9 031607 000003 0 0 0 0 000000000003
ET0 031607 000003 003 0 0 0 000000000003
SRT1 031607 000003 775 0 0 0 000000000003
SCT0 031607 000003 775 0 0 0 000000000003
SCT3 031607 000003 776 0 0 0 000000000003
SCT3 031607 000003 777 0 0 0 000000000003
SCT3 031607 000003 0 0 0 0 000000000003
SCT4 031607 000003 0 0 0 0 000000000003
ST0 031607 000003 0 0 0 0 000000000003
ST1 031607 000003 0 0 0 0 000000000003
ST2 031607 000003 0 0 0 0 000000000003
ST7 031607 000003 0 0 0 0 000000000003
ST8 031607 000003 0 0 0 0 000000000003
ST9 031607 000003 0 0 0 0 000000000003
*031607 CAME 0,032227
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031607 031607 0 0 312000032227 0 0
IT1 031607 0 0 0 312000032227 0 0
AT3 031607 0 0 0 000000032227 0 312000032227
AT6 031607 032227 0 0 000000032227 0 312000032227
FT0 031607 032227 0 0 0 0 312000032227
FT1A 031607 032227 0 0 0 0 0
FT2 031607 032227 0 0 0 0 0
FT2RQ 031607 032227 0 0 0 0 0
FT3 031607 032227 0 0 0 0 0
FT9 031610 032227 0 0 0 0 0
ET0 031611 032227 0 0 0 0 0
ST1A 031611 032227 0 0 0 0 0
ST9 031611 032227 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 156
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0245
*031611 JUMPA 0,031612
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031611 031611 0 0 324000031612 0 000000031612
IT1 031611 0 0 0 324000031612 0 000000031612
AT3 031611 0 0 0 000000031612 0 324000031612
AT6 031611 031612 0 0 000000031612 0 324000031612
FT1A 031611 031612 0 0 000000031612 0 000000031612
FT2 031611 031612 0 0 0 0 000000031612
FT2RQ 031611 031612 0 0 0 0 000000031612
FT3 031611 031612 0 0 0 0 000000031612
FT9 031612 031612 0 0 0 0 000000031612
ET0 031612 031612 0 0 0 0 000000031612
ST1A 031612 031612 0 0 0 0 000000031612
ST9 031612 031612 0 0 0 0 000000031612
*031612 CAME 1,032227
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031612 031612 0 0 312040032227 0 0
IT1 031612 0 0 0 312040032227 0 0
AT3 031612 0 0 0 000000032227 0 312040032227
AT6 031612 032227 0 0 000000032227 0 312040032227
FT0 031612 032227 0 0 0 0 312040032227
FT1A 031612 032227 0 0 0 0 0
FT2 031612 032227 0 0 0 0 0
FT2RQ 031612 032227 0 0 0 0 0
FT3 031612 032227 0 0 0 0 0
FT9 031613 032227 0 0 0 0 0
ET0 031614 032227 0 0 0 0 0
ST1A 031614 032227 0 0 0 0 0
ST9 031614 032227 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 157
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0246
*031614 JUMPA 0,031615
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031614 031614 0 0 324000031615 0 000000031615
IT1 031614 0 0 0 324000031615 0 000000031615
AT3 031614 0 0 0 000000031615 0 324000031615
AT6 031614 031615 0 0 000000031615 0 324000031615
FT1A 031614 031615 0 0 000000031615 0 000000031615
FT2 031614 031615 0 0 0 0 000000031615
FT2RQ 031614 031615 0 0 0 0 000000031615
FT3 031614 031615 0 0 0 0 000000031615
FT9 031615 031615 0 0 0 0 000000031615
ET0 031615 031615 0 0 0 0 000000031615
ST1A 031615 031615 0 0 0 0 000000031615
ST9 031615 031615 0 0 0 0 000000031615
*031615 MOVE 0,032226
INITIAL
C(AC)=000000 000000
C(E)=777777 777777
FINAL
C(AC)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 031615 031615 0 0 200000032226 0 777777777777
IT1 031615 0 0 0 200000032226 0 777777777777
AT3 031615 0 0 0 000000032226 0 200000032226
AT6 031615 032226 0 0 000000032226 0 200000032226
FT0 031615 032226 0 0 777777777777 0 200000032226
FT1A 031615 032226 0 0 777777777777 0 777777777777
FT9 031616 032226 0 0 777777777777 0 777777777777
ET0 031616 032226 0 0 777777777777 0 777777777777
ST1 031616 032226 0 0 777777777777 0 777777777777
ST2 031616 032226 0 0 777777777777 0 777777777777
ST9 031616 032226 0 0 777777777777 0 777777777777
*031616 MOVE 1,032226
INITIAL
C(AC)=000000 000000
C(E)=777777 777777
FINAL
C(AC)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 031616 031616 0 0 200040032226 0 777777777777
IT1 031616 0 0 0 200040032226 0 777777777777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 158
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0247
AT3 031616 0 0 0 000000032226 0 200040032226
AT6 031616 032226 0 0 000000032226 0 200040032226
FT0 031616 032226 0 0 777777777777 0 200040032226
FT1A 031616 032226 0 0 777777777777 0 777777777777
FT9 031617 032226 0 0 777777777777 0 777777777777
ET0 031617 032226 0 0 777777777777 0 777777777777
ST1 031617 032226 0 0 777777777777 0 777777777777
ST2 031617 032226 0 0 777777777777 0 777777777777
ST9 031617 032226 0 0 777777777777 0 777777777777
*031617 ROTC 0,000003
INITIAL
C(AC)=777777 777777 C(AC+1)=777777 777777
FINAL
C(AC)=777777 777777 C(AC+1)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 031617 031617 0 0 245000000003 0 000000000003
IT1 031617 0 0 0 245000000003 0 000000000003
AT3 031617 0 0 0 000000000003 0 245000000003
AT6 031617 000003 0 0 000000000003 0 245000000003
FT1A 031617 000003 0 0 000000000003 0 000000000003
FT2 031617 000003 0 0 0 0 000000000003
FT2RQ 031617 000003 0 0 777777777777 0 000000000003
FT3 031617 000003 0 0 777777777777 0 000000000003
FT4 031617 000003 0 0 0 777777777777 000000000003
FT4RQ 031617 000003 0 0 777777777777 777777777777 000000000003
FT4A 031617 000003 0 0 777777777777 777777777777 000000000003
FT9 031620 000003 0 0 777777777777 777777777777 000000000003
ET0 031620 000003 003 0 777777777777 777777777777 000000000003
SRT1 031620 000003 775 0 777777777777 777777777777 000000000003
SCT0 031620 000003 775 0 777777777777 777777777777 000000000003
SCT3 031620 000003 776 0 777777777777 777777777777 000000000003
SCT3 031620 000003 777 0 777777777777 777777777777 000000000003
SCT3 031620 000003 0 0 777777777777 777777777777 000000000003
SCT4 031620 000003 0 0 777777777777 777777777777 000000000003
ST0 031620 000003 0 0 777777777777 777777777777 000000000003
ST1 031620 000003 0 0 777777777777 777777777777 000000000003
ST2 031620 000003 0 0 777777777777 777777777777 000000000003
ST7 031620 000003 0 0 777777777777 777777777777 000000000003
ST8 031620 000003 0 0 777777777777 777777777777 000000000003
ST9 031620 000003 0 0 777777777777 777777777777 000000000003
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 159
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0248
*031620 CAME 0,032226
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031620 031620 0 0 312000032226 0 777777777777
IT1 031620 0 0 0 312000032226 0 777777777777
AT3 031620 0 0 0 000000032226 0 312000032226
AT6 031620 032226 0 0 000000032226 0 312000032226
FT0 031620 032226 0 0 777777777777 0 312000032226
FT1A 031620 032226 0 0 777777777777 0 777777777777
FT2 031620 032226 0 0 0 0 777777777777
FT2RQ 031620 032226 0 0 777777777777 0 777777777777
FT3 031620 032226 0 0 777777777777 0 777777777777
FT9 031621 032226 0 0 777777777777 0 777777777777
ET0 031622 032226 0 0 0 0 777777777777
ST1A 031622 032226 0 0 0 0 777777777777
ST9 031622 032226 0 0 0 0 777777777777
*031622 JUMPA 0,031623
INITIAL
C(AC)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031622 031622 0 0 324000031623 0 000000031623
IT1 031622 0 0 0 324000031623 0 000000031623
AT3 031622 0 0 0 000000031623 0 324000031623
AT6 031622 031623 0 0 000000031623 0 324000031623
FT1A 031622 031623 0 0 000000031623 0 000000031623
FT2 031622 031623 0 0 0 0 000000031623
FT2RQ 031622 031623 0 0 777777777777 0 000000031623
FT3 031622 031623 0 0 777777777777 0 000000031623
FT9 031623 031623 0 0 777777777777 0 000000031623
ET0 031623 031623 0 0 777777777777 0 000000031623
ST1A 031623 031623 0 0 777777777777 0 000000031623
ST9 031623 031623 0 0 777777777777 0 000000031623
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 160
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0249
*031623 CAME 0,032226
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031623 031623 0 0 312000032226 0 777777777777
IT1 031623 0 0 0 312000032226 0 777777777777
AT3 031623 0 0 0 000000032226 0 312000032226
AT6 031623 032226 0 0 000000032226 0 312000032226
FT0 031623 032226 0 0 777777777777 0 312000032226
FT1A 031623 032226 0 0 777777777777 0 777777777777
FT2 031623 032226 0 0 0 0 777777777777
FT2RQ 031623 032226 0 0 777777777777 0 777777777777
FT3 031623 032226 0 0 777777777777 0 777777777777
FT9 031624 032226 0 0 777777777777 0 777777777777
ET0 031625 032226 0 0 0 0 777777777777
ST1A 031625 032226 0 0 0 0 777777777777
ST9 031625 032226 0 0 0 0 777777777777
*031625 JUMPA 0,031626
INITIAL
C(AC)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031625 031625 0 0 324000031626 0 000000031626
IT1 031625 0 0 0 324000031626 0 000000031626
AT3 031625 0 0 0 000000031626 0 324000031626
AT6 031625 031626 0 0 000000031626 0 324000031626
FT1A 031625 031626 0 0 000000031626 0 000000031626
FT2 031625 031626 0 0 0 0 000000031626
FT2RQ 031625 031626 0 0 777777777777 0 000000031626
FT3 031625 031626 0 0 777777777777 0 000000031626
FT9 031626 031626 0 0 777777777777 0 000000031626
ET0 031626 031626 0 0 777777777777 0 000000031626
ST1A 031626 031626 0 0 777777777777 0 000000031626
ST9 031626 031626 0 0 777777777777 0 000000031626
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 161
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0250
*031626 MOVE 0,032255
INITIAL
C(AC)=777777 777777
C(E)=252525 252525
FINAL
C(AC)=252525 252525
TIME PC MA SC FE AR MQ BR
IT0 031626 031626 0 0 200000032255 0 252525252525
IT1 031626 0 0 0 200000032255 0 252525252525
AT3 031626 0 0 0 000000032255 0 200000032255
AT6 031626 032255 0 0 000000032255 0 200000032255
FT0 031626 032255 0 0 252525252525 0 200000032255
FT1A 031626 032255 0 0 252525252525 0 252525252525
FT9 031627 032255 0 0 252525252525 0 252525252525
ET0 031627 032255 0 0 252525252525 0 252525252525
ST1 031627 032255 0 0 252525252525 0 252525252525
ST2 031627 032255 0 0 252525252525 0 252525252525
ST9 031627 032255 0 0 252525252525 0 252525252525
*031627 MOVE 1,032255
INITIAL
C(AC)=777777 777777
C(E)=252525 252525
FINAL
C(AC)=252525 252525
TIME PC MA SC FE AR MQ BR
IT0 031627 031627 0 0 200040032255 0 252525252525
IT1 031627 0 0 0 200040032255 0 252525252525
AT3 031627 0 0 0 000000032255 0 200040032255
AT6 031627 032255 0 0 000000032255 0 200040032255
FT0 031627 032255 0 0 252525252525 0 200040032255
FT1A 031627 032255 0 0 252525252525 0 252525252525
FT9 031630 032255 0 0 252525252525 0 252525252525
ET0 031630 032255 0 0 252525252525 0 252525252525
ST1 031630 032255 0 0 252525252525 0 252525252525
ST2 031630 032255 0 0 252525252525 0 252525252525
ST9 031630 032255 0 0 252525252525 0 252525252525
*031630 ROTC 0,000003
INITIAL
C(AC)=252525 252525 C(AC+1)=252525 252525
FINAL
C(AC)=525252 525252 C(AC+1)=525252 525252
TIME PC MA SC FE AR MQ BR
IT0 031630 031630 0 0 245000000003 0 000000000003
IT1 031630 0 0 0 245000000003 0 000000000003
AT3 031630 0 0 0 000000000003 0 245000000003
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 162
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0251
AT6 031630 000003 0 0 000000000003 0 245000000003
FT1A 031630 000003 0 0 000000000003 0 000000000003
FT2 031630 000003 0 0 0 0 000000000003
FT2RQ 031630 000003 0 0 252525252525 0 000000000003
FT3 031630 000003 0 0 252525252525 0 000000000003
FT4 031630 000003 0 0 0 252525252525 000000000003
FT4RQ 031630 000003 0 0 252525252525 252525252525 000000000003
FT4A 031630 000003 0 0 252525252525 252525252525 000000000003
FT9 031631 000003 0 0 252525252525 252525252525 000000000003
ET0 031631 000003 003 0 252525252525 252525252525 000000000003
SRT1 031631 000003 775 0 252525252525 252525252525 000000000003
SCT0 031631 000003 775 0 252525252525 252525252525 000000000003
SCT3 031631 000003 776 0 525252525252 525252525252 000000000003
SCT3 031631 000003 777 0 252525252525 252525252525 000000000003
SCT3 031631 000003 0 0 525252525252 525252525252 000000000003
SCT4 031631 000003 0 0 525252525252 525252525252 000000000003
ST0 031631 000003 0 0 525252525252 525252525252 000000000003
ST1 031631 000003 0 0 525252525252 525252525252 000000000003
ST2 031631 000003 0 0 525252525252 525252525252 000000000003
ST7 031631 000003 0 0 525252525252 525252525252 000000000003
ST8 031631 000003 0 0 525252525252 525252525252 000000000003
ST9 031631 000003 0 0 525252525252 525252525252 000000000003
*031631 CAME 0,032256
INITIAL
C(AC)=525252 525252
C(E)=525252 525252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031631 031631 0 0 312000032256 0 525252525252
IT1 031631 0 0 0 312000032256 0 525252525252
AT3 031631 0 0 0 000000032256 0 312000032256
AT6 031631 032256 0 0 000000032256 0 312000032256
FT0 031631 032256 0 0 525252525252 0 312000032256
FT1A 031631 032256 0 0 525252525252 0 525252525252
FT2 031631 032256 0 0 0 0 525252525252
FT2RQ 031631 032256 0 0 525252525252 0 525252525252
FT3 031631 032256 0 0 525252525252 0 525252525252
FT9 031632 032256 0 0 525252525252 0 525252525252
ET0 031633 032256 0 0 0 0 525252525252
ST1A 031633 032256 0 0 0 0 525252525252
ST9 031633 032256 0 0 0 0 525252525252
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 163
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0252
*031633 JUMPA 0,031634
INITIAL
C(AC)=525252 525252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031633 031633 0 0 324000031634 0 000000031634
IT1 031633 0 0 0 324000031634 0 000000031634
AT3 031633 0 0 0 000000031634 0 324000031634
AT6 031633 031634 0 0 000000031634 0 324000031634
FT1A 031633 031634 0 0 000000031634 0 000000031634
FT2 031633 031634 0 0 0 0 000000031634
FT2RQ 031633 031634 0 0 525252525252 0 000000031634
FT3 031633 031634 0 0 525252525252 0 000000031634
FT9 031634 031634 0 0 525252525252 0 000000031634
ET0 031634 031634 0 0 525252525252 0 000000031634
ST1A 031634 031634 0 0 525252525252 0 000000031634
ST9 031634 031634 0 0 525252525252 0 000000031634
*031634 CAME 1,032256
INITIAL
C(AC)=525252 525252
C(E)=525252 525252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031634 031634 0 0 312040032256 0 525252525252
IT1 031634 0 0 0 312040032256 0 525252525252
AT3 031634 0 0 0 000000032256 0 312040032256
AT6 031634 032256 0 0 000000032256 0 312040032256
FT0 031634 032256 0 0 525252525252 0 312040032256
FT1A 031634 032256 0 0 525252525252 0 525252525252
FT2 031634 032256 0 0 0 0 525252525252
FT2RQ 031634 032256 0 0 525252525252 0 525252525252
FT3 031634 032256 0 0 525252525252 0 525252525252
FT9 031635 032256 0 0 525252525252 0 525252525252
ET0 031636 032256 0 0 0 0 525252525252
ST1A 031636 032256 0 0 0 0 525252525252
ST9 031636 032256 0 0 0 0 525252525252
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 164
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0253
*031636 JUMPA 0,031637
INITIAL
C(AC)=525252 525252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031636 031636 0 0 324000031637 0 000000031637
IT1 031636 0 0 0 324000031637 0 000000031637
AT3 031636 0 0 0 000000031637 0 324000031637
AT6 031636 031637 0 0 000000031637 0 324000031637
FT1A 031636 031637 0 0 000000031637 0 000000031637
FT2 031636 031637 0 0 0 0 000000031637
FT2RQ 031636 031637 0 0 525252525252 0 000000031637
FT3 031636 031637 0 0 525252525252 0 000000031637
FT9 031637 031637 0 0 525252525252 0 000000031637
ET0 031637 031637 0 0 525252525252 0 000000031637
ST1A 031637 031637 0 0 525252525252 0 000000031637
ST9 031637 031637 0 0 525252525252 0 000000031637
*031637 MOVE 0,032256
INITIAL
C(AC)=525252 525252
C(E)=525252 525252
FINAL
C(AC)=525252 525252
TIME PC MA SC FE AR MQ BR
IT0 031637 031637 0 0 200000032256 0 525252525252
IT1 031637 0 0 0 200000032256 0 525252525252
AT3 031637 0 0 0 000000032256 0 200000032256
AT6 031637 032256 0 0 000000032256 0 200000032256
FT0 031637 032256 0 0 525252525252 0 200000032256
FT1A 031637 032256 0 0 525252525252 0 525252525252
FT9 031640 032256 0 0 525252525252 0 525252525252
ET0 031640 032256 0 0 525252525252 0 525252525252
ST1 031640 032256 0 0 525252525252 0 525252525252
ST2 031640 032256 0 0 525252525252 0 525252525252
ST9 031640 032256 0 0 525252525252 0 525252525252
*031640 MOVE 1,032256
INITIAL
C(AC)=525252 525252
C(E)=525252 525252
FINAL
C(AC)=525252 525252
TIME PC MA SC FE AR MQ BR
IT0 031640 031640 0 0 200040032256 0 525252525252
IT1 031640 0 0 0 200040032256 0 525252525252
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 165
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0254
AT3 031640 0 0 0 000000032256 0 200040032256
AT6 031640 032256 0 0 000000032256 0 200040032256
FT0 031640 032256 0 0 525252525252 0 200040032256
FT1A 031640 032256 0 0 525252525252 0 525252525252
FT9 031641 032256 0 0 525252525252 0 525252525252
ET0 031641 032256 0 0 525252525252 0 525252525252
ST1 031641 032256 0 0 525252525252 0 525252525252
ST2 031641 032256 0 0 525252525252 0 525252525252
ST9 031641 032256 0 0 525252525252 0 525252525252
*031641 ROTC 0,000003
INITIAL
C(AC)=525252 525252 C(AC+1)=525252 525252
FINAL
C(AC)=252525 252525 C(AC+1)=252525 252525
TIME PC MA SC FE AR MQ BR
IT0 031641 031641 0 0 245000000003 0 000000000003
IT1 031641 0 0 0 245000000003 0 000000000003
AT3 031641 0 0 0 000000000003 0 245000000003
AT6 031641 000003 0 0 000000000003 0 245000000003
FT1A 031641 000003 0 0 000000000003 0 000000000003
FT2 031641 000003 0 0 0 0 000000000003
FT2RQ 031641 000003 0 0 525252525252 0 000000000003
FT3 031641 000003 0 0 525252525252 0 000000000003
FT4 031641 000003 0 0 0 525252525252 000000000003
FT4RQ 031641 000003 0 0 525252525252 525252525252 000000000003
FT4A 031641 000003 0 0 525252525252 525252525252 000000000003
FT9 031642 000003 0 0 525252525252 525252525252 000000000003
ET0 031642 000003 003 0 525252525252 525252525252 000000000003
SRT1 031642 000003 775 0 525252525252 525252525252 000000000003
SCT0 031642 000003 775 0 525252525252 525252525252 000000000003
SCT3 031642 000003 776 0 252525252525 252525252525 000000000003
SCT3 031642 000003 777 0 525252525252 525252525252 000000000003
SCT3 031642 000003 0 0 252525252525 252525252525 000000000003
SCT4 031642 000003 0 0 252525252525 252525252525 000000000003
ST0 031642 000003 0 0 252525252525 252525252525 000000000003
ST1 031642 000003 0 0 252525252525 252525252525 000000000003
ST2 031642 000003 0 0 252525252525 252525252525 000000000003
ST7 031642 000003 0 0 252525252525 252525252525 000000000003
ST8 031642 000003 0 0 252525252525 252525252525 000000000003
ST9 031642 000003 0 0 252525252525 252525252525 000000000003
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 166
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0255
*031642 CAME 0,032255
INITIAL
C(AC)=252525 252525
C(E)=252525 252525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031642 031642 0 0 312000032255 0 252525252525
IT1 031642 0 0 0 312000032255 0 252525252525
AT3 031642 0 0 0 000000032255 0 312000032255
AT6 031642 032255 0 0 000000032255 0 312000032255
FT0 031642 032255 0 0 252525252525 0 312000032255
FT1A 031642 032255 0 0 252525252525 0 252525252525
FT2 031642 032255 0 0 0 0 252525252525
FT2RQ 031642 032255 0 0 252525252525 0 252525252525
FT3 031642 032255 0 0 252525252525 0 252525252525
FT9 031643 032255 0 0 252525252525 0 252525252525
ET0 031644 032255 0 0 0 0 252525252525
ST1A 031644 032255 0 0 0 0 252525252525
ST9 031644 032255 0 0 0 0 252525252525
*031644 JUMPA 0,031645
INITIAL
C(AC)=252525 252525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031644 031644 0 0 324000031645 0 000000031645
IT1 031644 0 0 0 324000031645 0 000000031645
AT3 031644 0 0 0 000000031645 0 324000031645
AT6 031644 031645 0 0 000000031645 0 324000031645
FT1A 031644 031645 0 0 000000031645 0 000000031645
FT2 031644 031645 0 0 0 0 000000031645
FT2RQ 031644 031645 0 0 252525252525 0 000000031645
FT3 031644 031645 0 0 252525252525 0 000000031645
FT9 031645 031645 0 0 252525252525 0 000000031645
ET0 031645 031645 0 0 252525252525 0 000000031645
ST1A 031645 031645 0 0 252525252525 0 000000031645
ST9 031645 031645 0 0 252525252525 0 000000031645
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 167
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0256
*031645 CAME 1,032255
INITIAL
C(AC)=252525 252525
C(E)=252525 252525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031645 031645 0 0 312040032255 0 252525252525
IT1 031645 0 0 0 312040032255 0 252525252525
AT3 031645 0 0 0 000000032255 0 312040032255
AT6 031645 032255 0 0 000000032255 0 312040032255
FT0 031645 032255 0 0 252525252525 0 312040032255
FT1A 031645 032255 0 0 252525252525 0 252525252525
FT2 031645 032255 0 0 0 0 252525252525
FT2RQ 031645 032255 0 0 252525252525 0 252525252525
FT3 031645 032255 0 0 252525252525 0 252525252525
FT9 031646 032255 0 0 252525252525 0 252525252525
ET0 031647 032255 0 0 0 0 252525252525
ST1A 031647 032255 0 0 0 0 252525252525
ST9 031647 032255 0 0 0 0 252525252525
*031647 JUMPA 0,031650
INITIAL
C(AC)=252525 252525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031647 031647 0 0 324000031650 0 000000031650
IT1 031647 0 0 0 324000031650 0 000000031650
AT3 031647 0 0 0 000000031650 0 324000031650
AT6 031647 031650 0 0 000000031650 0 324000031650
FT1A 031647 031650 0 0 000000031650 0 000000031650
FT2 031647 031650 0 0 0 0 000000031650
FT2RQ 031647 031650 0 0 252525252525 0 000000031650
FT3 031647 031650 0 0 252525252525 0 000000031650
FT9 031650 031650 0 0 252525252525 0 000000031650
ET0 031650 031650 0 0 252525252525 0 000000031650
ST1A 031650 031650 0 0 252525252525 0 000000031650
ST9 031650 031650 0 0 252525252525 0 000000031650
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 168
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0257
*031650 MOVE 0,032257
INITIAL
C(AC)=252525 252525
C(E)=230703 603700
FINAL
C(AC)=230703 603700
TIME PC MA SC FE AR MQ BR
IT0 031650 031650 0 0 200000032257 0 230703603700
IT1 031650 0 0 0 200000032257 0 230703603700
AT3 031650 0 0 0 000000032257 0 200000032257
AT6 031650 032257 0 0 000000032257 0 200000032257
FT0 031650 032257 0 0 230703603700 0 200000032257
FT1A 031650 032257 0 0 230703603700 0 230703603700
FT9 031651 032257 0 0 230703603700 0 230703603700
ET0 031651 032257 0 0 230703603700 0 230703603700
ST1 031651 032257 0 0 230703603700 0 230703603700
ST2 031651 032257 0 0 230703603700 0 230703603700
ST9 031651 032257 0 0 230703603700 0 230703603700
*031651 MOVE 1,032265
INITIAL
C(AC)=252525 252525
C(E)=770037 600377
FINAL
C(AC)=770037 600377
TIME PC MA SC FE AR MQ BR
IT0 031651 031651 0 0 200040032265 0 770037600377
IT1 031651 0 0 0 200040032265 0 770037600377
AT3 031651 0 0 0 000000032265 0 200040032265
AT6 031651 032265 0 0 000000032265 0 200040032265
FT0 031651 032265 0 0 770037600377 0 200040032265
FT1A 031651 032265 0 0 770037600377 0 770037600377
FT9 031652 032265 0 0 770037600377 0 770037600377
ET0 031652 032265 0 0 770037600377 0 770037600377
ST1 031652 032265 0 0 770037600377 0 770037600377
ST2 031652 032265 0 0 770037600377 0 770037600377
ST9 031652 032265 0 0 770037600377 0 770037600377
*031652 ROTC 0,000003
INITIAL
C(AC)=230703 603700 C(AC+1)=770037 600377
FINAL
C(AC)=307036 037007 C(AC+1)=700376 003772
TIME PC MA SC FE AR MQ BR
IT0 031652 031652 0 0 245000000003 0 000000000003
IT1 031652 0 0 0 245000000003 0 000000000003
AT3 031652 0 0 0 000000000003 0 245000000003
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 169
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0258
AT6 031652 000003 0 0 000000000003 0 245000000003
FT1A 031652 000003 0 0 000000000003 0 000000000003
FT2 031652 000003 0 0 0 0 000000000003
FT2RQ 031652 000003 0 0 230703603700 0 000000000003
FT3 031652 000003 0 0 230703603700 0 000000000003
FT4 031652 000003 0 0 0 230703603700 000000000003
FT4RQ 031652 000003 0 0 770037600377 230703603700 000000000003
FT4A 031652 000003 0 0 230703603700 770037600377 000000000003
FT9 031653 000003 0 0 230703603700 770037600377 000000000003
ET0 031653 000003 003 0 230703603700 770037600377 000000000003
SRT1 031653 000003 775 0 230703603700 770037600377 000000000003
SCT0 031653 000003 775 0 230703603700 770037600377 000000000003
SCT3 031653 000003 776 0 461607407601 760077400776 000000000003
SCT3 031653 000003 777 0 143417017403 740177001775 000000000003
SCT3 031653 000003 0 0 307036037007 700376003772 000000000003
SCT4 031653 000003 0 0 307036037007 700376003772 000000000003
ST0 031653 000003 0 0 307036037007 700376003772 000000000003
ST1 031653 000003 0 0 307036037007 700376003772 000000000003
ST2 031653 000003 0 0 307036037007 700376003772 000000000003
ST7 031653 000003 0 0 700376003772 700376003772 000000000003
ST8 031653 000003 0 0 700376003772 700376003772 000000000003
ST9 031653 000003 0 0 700376003772 700376003772 000000000003
*031653 CAME 0,032266
INITIAL
C(AC)=307036 037007
C(E)=307036 037007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031653 031653 0 0 312000032266 0 307036037007
IT1 031653 0 0 0 312000032266 0 307036037007
AT3 031653 0 0 0 000000032266 0 312000032266
AT6 031653 032266 0 0 000000032266 0 312000032266
FT0 031653 032266 0 0 307036037007 0 312000032266
FT1A 031653 032266 0 0 307036037007 0 307036037007
FT2 031653 032266 0 0 0 0 307036037007
FT2RQ 031653 032266 0 0 307036037007 0 307036037007
FT3 031653 032266 0 0 307036037007 0 307036037007
FT9 031654 032266 0 0 307036037007 0 307036037007
ET0 031655 032266 0 0 0 0 307036037007
ST1A 031655 032266 0 0 0 0 307036037007
ST9 031655 032266 0 0 0 0 307036037007
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 170
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0259
*031655 JUMPA 0,031656
INITIAL
C(AC)=307036 037007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031655 031655 0 0 324000031656 0 000000031656
IT1 031655 0 0 0 324000031656 0 000000031656
AT3 031655 0 0 0 000000031656 0 324000031656
AT6 031655 031656 0 0 000000031656 0 324000031656
FT1A 031655 031656 0 0 000000031656 0 000000031656
FT2 031655 031656 0 0 0 0 000000031656
FT2RQ 031655 031656 0 0 307036037007 0 000000031656
FT3 031655 031656 0 0 307036037007 0 000000031656
FT9 031656 031656 0 0 307036037007 0 000000031656
ET0 031656 031656 0 0 307036037007 0 000000031656
ST1A 031656 031656 0 0 307036037007 0 000000031656
ST9 031656 031656 0 0 307036037007 0 000000031656
*031656 CAME 1,032267
INITIAL
C(AC)=700376 003772
C(E)=700376 003772
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031656 031656 0 0 312040032267 0 700376003772
IT1 031656 0 0 0 312040032267 0 700376003772
AT3 031656 0 0 0 000000032267 0 312040032267
AT6 031656 032267 0 0 000000032267 0 312040032267
FT0 031656 032267 0 0 700376003772 0 312040032267
FT1A 031656 032267 0 0 700376003772 0 700376003772
FT2 031656 032267 0 0 0 0 700376003772
FT2RQ 031656 032267 0 0 700376003772 0 700376003772
FT3 031656 032267 0 0 700376003772 0 700376003772
FT9 031657 032267 0 0 700376003772 0 700376003772
ET0 031660 032267 0 0 0 0 700376003772
ST1A 031660 032267 0 0 0 0 700376003772
ST9 031660 032267 0 0 0 0 700376003772
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 171
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0260
*031660 JUMPA 0,031661
INITIAL
C(AC)=307036 037007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031660 031660 0 0 324000031661 0 000000031661
IT1 031660 0 0 0 324000031661 0 000000031661
AT3 031660 0 0 0 000000031661 0 324000031661
AT6 031660 031661 0 0 000000031661 0 324000031661
FT1A 031660 031661 0 0 000000031661 0 000000031661
FT2 031660 031661 0 0 0 0 000000031661
FT2RQ 031660 031661 0 0 307036037007 0 000000031661
FT3 031660 031661 0 0 307036037007 0 000000031661
FT9 031661 031661 0 0 307036037007 0 000000031661
ET0 031661 031661 0 0 307036037007 0 000000031661
ST1A 031661 031661 0 0 307036037007 0 000000031661
ST9 031661 031661 0 0 307036037007 0 000000031661
*031661 MOVE 0,032270
INITIAL
C(AC)=307036 037007
C(E)=776003 760077
FINAL
C(AC)=776003 760077
TIME PC MA SC FE AR MQ BR
IT0 031661 031661 0 0 200000032270 0 776003760077
IT1 031661 0 0 0 200000032270 0 776003760077
AT3 031661 0 0 0 000000032270 0 200000032270
AT6 031661 032270 0 0 000000032270 0 200000032270
FT0 031661 032270 0 0 776003760077 0 200000032270
FT1A 031661 032270 0 0 776003760077 0 776003760077
FT9 031662 032270 0 0 776003760077 0 776003760077
ET0 031662 032270 0 0 776003760077 0 776003760077
ST1 031662 032270 0 0 776003760077 0 776003760077
ST2 031662 032270 0 0 776003760077 0 776003760077
ST9 031662 032270 0 0 776003760077 0 776003760077
*031662 MOVE 1,032261
INITIAL
C(AC)=700376 003772
C(E)=007603 607062
FINAL
C(AC)=007603 607062
TIME PC MA SC FE AR MQ BR
IT0 031662 031662 0 0 200040032261 0 007603607062
IT1 031662 0 0 0 200040032261 0 007603607062
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 172
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0261
AT3 031662 0 0 0 000000032261 0 200040032261
AT6 031662 032261 0 0 000000032261 0 200040032261
FT0 031662 032261 0 0 007603607062 0 200040032261
FT1A 031662 032261 0 0 007603607062 0 007603607062
FT9 031663 032261 0 0 007603607062 0 007603607062
ET0 031663 032261 0 0 007603607062 0 007603607062
ST1 031663 032261 0 0 007603607062 0 007603607062
ST2 031663 032261 0 0 007603607062 0 007603607062
ST9 031663 032261 0 0 007603607062 0 007603607062
*031663 ROTC 0,000003
INITIAL
C(AC)=776003 760077 C(AC+1)=007603 607062
FINAL
C(AC)=760037 600770 C(AC+1)=076036 070627
TIME PC MA SC FE AR MQ BR
IT0 031663 031663 0 0 245000000003 0 000000000003
IT1 031663 0 0 0 245000000003 0 000000000003
AT3 031663 0 0 0 000000000003 0 245000000003
AT6 031663 000003 0 0 000000000003 0 245000000003
FT1A 031663 000003 0 0 000000000003 0 000000000003
FT2 031663 000003 0 0 0 0 000000000003
FT2RQ 031663 000003 0 0 776003760077 0 000000000003
FT3 031663 000003 0 0 776003760077 0 000000000003
FT4 031663 000003 0 0 0 776003760077 000000000003
FT4RQ 031663 000003 0 0 007603607062 776003760077 000000000003
FT4A 031663 000003 0 0 776003760077 007603607062 000000000003
FT9 031664 000003 0 0 776003760077 007603607062 000000000003
ET0 031664 000003 003 0 776003760077 007603607062 000000000003
SRT1 031664 000003 775 0 776003760077 007603607062 000000000003
SCT0 031664 000003 775 0 776003760077 007603607062 000000000003
SCT3 031664 000003 776 0 774007740176 017407416145 000000000003
SCT3 031664 000003 777 0 770017700374 037017034313 000000000003
SCT3 031664 000003 0 0 760037600770 076036070627 000000000003
SCT4 031664 000003 0 0 760037600770 076036070627 000000000003
ST0 031664 000003 0 0 760037600770 076036070627 000000000003
ST1 031664 000003 0 0 760037600770 076036070627 000000000003
ST2 031664 000003 0 0 760037600770 076036070627 000000000003
ST7 031664 000003 0 0 076036070627 076036070627 000000000003
ST8 031664 000003 0 0 076036070627 076036070627 000000000003
ST9 031664 000003 0 0 076036070627 076036070627 000000000003
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 173
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0262
*031664 CAME 0,032271
INITIAL
C(AC)=760037 600770
C(E)=760037 600770
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031664 031664 0 0 312000032271 0 760037600770
IT1 031664 0 0 0 312000032271 0 760037600770
AT3 031664 0 0 0 000000032271 0 312000032271
AT6 031664 032271 0 0 000000032271 0 312000032271
FT0 031664 032271 0 0 760037600770 0 312000032271
FT1A 031664 032271 0 0 760037600770 0 760037600770
FT2 031664 032271 0 0 0 0 760037600770
FT2RQ 031664 032271 0 0 760037600770 0 760037600770
FT3 031664 032271 0 0 760037600770 0 760037600770
FT9 031665 032271 0 0 760037600770 0 760037600770
ET0 031666 032271 0 0 0 0 760037600770
ST1A 031666 032271 0 0 0 0 760037600770
ST9 031666 032271 0 0 0 0 760037600770
*031666 JUMPA 0,031667
INITIAL
C(AC)=760037 600770
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031666 031666 0 0 324000031667 0 000000031667
IT1 031666 0 0 0 324000031667 0 000000031667
AT3 031666 0 0 0 000000031667 0 324000031667
AT6 031666 031667 0 0 000000031667 0 324000031667
FT1A 031666 031667 0 0 000000031667 0 000000031667
FT2 031666 031667 0 0 0 0 000000031667
FT2RQ 031666 031667 0 0 760037600770 0 000000031667
FT3 031666 031667 0 0 760037600770 0 000000031667
FT9 031667 031667 0 0 760037600770 0 000000031667
ET0 031667 031667 0 0 760037600770 0 000000031667
ST1A 031667 031667 0 0 760037600770 0 000000031667
ST9 031667 031667 0 0 760037600770 0 000000031667
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 174
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0263
*031667 CAME 1,032272
INITIAL
C(AC)=076036 070627
C(E)=076036 070627
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031667 031667 0 0 312040032272 0 076036070627
IT1 031667 0 0 0 312040032272 0 076036070627
AT3 031667 0 0 0 000000032272 0 312040032272
AT6 031667 032272 0 0 000000032272 0 312040032272
FT0 031667 032272 0 0 076036070627 0 312040032272
FT1A 031667 032272 0 0 076036070627 0 076036070627
FT2 031667 032272 0 0 0 0 076036070627
FT2RQ 031667 032272 0 0 076036070627 0 076036070627
FT3 031667 032272 0 0 076036070627 0 076036070627
FT9 031670 032272 0 0 076036070627 0 076036070627
ET0 031671 032272 0 0 0 0 076036070627
ST1A 031671 032272 0 0 0 0 076036070627
ST9 031671 032272 0 0 0 0 076036070627
*031671 JUMPA 0,031672
INITIAL
C(AC)=760037 600770
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031671 031671 0 0 324000031672 0 000000031672
IT1 031671 0 0 0 324000031672 0 000000031672
AT3 031671 0 0 0 000000031672 0 324000031672
AT6 031671 031672 0 0 000000031672 0 324000031672
FT1A 031671 031672 0 0 000000031672 0 000000031672
FT2 031671 031672 0 0 0 0 000000031672
FT2RQ 031671 031672 0 0 760037600770 0 000000031672
FT3 031671 031672 0 0 760037600770 0 000000031672
FT9 031672 031672 0 0 760037600770 0 000000031672
ET0 031672 031672 0 0 760037600770 0 000000031672
ST1A 031672 031672 0 0 760037600770 0 000000031672
ST9 031672 031672 0 0 760037600770 0 000000031672
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 175
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0264
*031672 MOVE 0,032227
INITIAL
C(AC)=760037 600770
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031672 031672 0 0 200000032227 0 0
IT1 031672 0 0 0 200000032227 0 0
AT3 031672 0 0 0 000000032227 0 200000032227
AT6 031672 032227 0 0 000000032227 0 200000032227
FT0 031672 032227 0 0 0 0 200000032227
FT1A 031672 032227 0 0 0 0 0
FT9 031673 032227 0 0 0 0 0
ET0 031673 032227 0 0 0 0 0
ST1 031673 032227 0 0 0 0 0
ST2 031673 032227 0 0 0 0 0
ST9 031673 032227 0 0 0 0 0
*031673 MOVE 1,032227
INITIAL
C(AC)=076036 070627
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031673 031673 0 0 200040032227 0 0
IT1 031673 0 0 0 200040032227 0 0
AT3 031673 0 0 0 000000032227 0 200040032227
AT6 031673 032227 0 0 000000032227 0 200040032227
FT0 031673 032227 0 0 0 0 200040032227
FT1A 031673 032227 0 0 0 0 0
FT9 031674 032227 0 0 0 0 0
ET0 031674 032227 0 0 0 0 0
ST1 031674 032227 0 0 0 0 0
ST2 031674 032227 0 0 0 0 0
ST9 031674 032227 0 0 0 0 0
*031674 ROTC 0,000007
INITIAL
C(AC)=000000 000000 C(AC+1)=000000 000000
FINAL
C(AC)=000000 000000 C(AC+1)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031674 031674 0 0 245000000007 0 000000000007
IT1 031674 0 0 0 245000000007 0 000000000007
AT3 031674 0 0 0 000000000007 0 245000000007
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 176
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0265
AT6 031674 000007 0 0 000000000007 0 245000000007
FT1A 031674 000007 0 0 000000000007 0 000000000007
FT2 031674 000007 0 0 0 0 000000000007
FT2RQ 031674 000007 0 0 0 0 000000000007
FT3 031674 000007 0 0 0 0 000000000007
FT4 031674 000007 0 0 0 0 000000000007
FT4RQ 031674 000007 0 0 0 0 000000000007
FT4A 031674 000007 0 0 0 0 000000000007
FT9 031675 000007 0 0 0 0 000000000007
ET0 031675 000007 007 0 0 0 000000000007
SRT1 031675 000007 771 0 0 0 000000000007
SCT0 031675 000007 771 0 0 0 000000000007
SCT3 031675 000007 772 0 0 0 000000000007
SCT3 031675 000007 773 0 0 0 000000000007
SCT3 031675 000007 774 0 0 0 000000000007
SCT3 031675 000007 775 0 0 0 000000000007
SCT3 031675 000007 776 0 0 0 000000000007
SCT3 031675 000007 777 0 0 0 000000000007
SCT3 031675 000007 0 0 0 0 000000000007
SCT4 031675 000007 0 0 0 0 000000000007
ST0 031675 000007 0 0 0 0 000000000007
ST1 031675 000007 0 0 0 0 000000000007
ST2 031675 000007 0 0 0 0 000000000007
ST7 031675 000007 0 0 0 0 000000000007
ST8 031675 000007 0 0 0 0 000000000007
ST9 031675 000007 0 0 0 0 000000000007
*031675 CAME 0,032227
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031675 031675 0 0 312000032227 0 0
IT1 031675 0 0 0 312000032227 0 0
AT3 031675 0 0 0 000000032227 0 312000032227
AT6 031675 032227 0 0 000000032227 0 312000032227
FT0 031675 032227 0 0 0 0 312000032227
FT1A 031675 032227 0 0 0 0 0
FT2 031675 032227 0 0 0 0 0
FT2RQ 031675 032227 0 0 0 0 0
FT3 031675 032227 0 0 0 0 0
FT9 031676 032227 0 0 0 0 0
ET0 031677 032227 0 0 0 0 0
ST1A 031677 032227 0 0 0 0 0
ST9 031677 032227 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 177
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0266
*031677 JUMPA 0,031700
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031677 031677 0 0 324000031700 0 000000031700
IT1 031677 0 0 0 324000031700 0 000000031700
AT3 031677 0 0 0 000000031700 0 324000031700
AT6 031677 0 0 0 000000031700 0 324000031700
FT1A 031677 0 0 0 000000031700 0 000000031700
FT2 031677 0 0 0 0 0 000000031700
FT2RQ 031677 0 0 0 0 0 000000031700
FT3 031677 0 0 0 0 0 000000031700
FT9 0 0 0 0 0 0 000000031700
ET0 0 0 0 0 0 0 000000031700
ST1A 0 0 0 0 0 0 000000031700
ST9 0 0 0 0 0 0 000000031700
*031700 CAME 1,032227
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 0 0 0 0 312040032227 0 0
IT1 0 0 0 0 312040032227 0 0
AT3 0 0 0 0 000000032227 0 312040032227
AT6 0 032227 0 0 000000032227 0 312040032227
FT0 0 032227 0 0 0 0 312040032227
FT1A 0 032227 0 0 0 0 0
FT2 0 032227 0 0 0 0 0
FT2RQ 0 032227 0 0 0 0 0
FT3 0 032227 0 0 0 0 0
FT9 031701 032227 0 0 0 0 0
ET0 031702 032227 0 0 0 0 0
ST1A 031702 032227 0 0 0 0 0
ST9 031702 032227 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 178
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0267
*031702 JUMPA 0,031703
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031702 031702 0 0 324000031703 0 000000031703
IT1 031702 0 0 0 324000031703 0 000000031703
AT3 031702 0 0 0 000000031703 0 324000031703
AT6 031702 031703 0 0 000000031703 0 324000031703
FT1A 031702 031703 0 0 000000031703 0 000000031703
FT2 031702 031703 0 0 0 0 000000031703
FT2RQ 031702 031703 0 0 0 0 000000031703
FT3 031702 031703 0 0 0 0 000000031703
FT9 031703 031703 0 0 0 0 000000031703
ET0 031703 031703 0 0 0 0 000000031703
ST1A 031703 031703 0 0 0 0 000000031703
ST9 031703 031703 0 0 0 0 000000031703
*031703 MOVE 0,032226
INITIAL
C(AC)=000000 000000
C(E)=777777 777777
FINAL
C(AC)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 031703 031703 0 0 200000032226 0 777777777777
IT1 031703 0 0 0 200000032226 0 777777777777
AT3 031703 0 0 0 000000032226 0 200000032226
AT6 031703 032226 0 0 000000032226 0 200000032226
FT0 031703 032226 0 0 777777777777 0 200000032226
FT1A 031703 032226 0 0 777777777777 0 777777777777
FT9 031704 032226 0 0 777777777777 0 777777777777
ET0 031704 032226 0 0 777777777777 0 777777777777
ST1 031704 032226 0 0 777777777777 0 777777777777
ST2 031704 032226 0 0 777777777777 0 777777777777
ST9 031704 032226 0 0 777777777777 0 777777777777
*031704 MOVE 1,032226
INITIAL
C(AC)=000000 000000
C(E)=777777 777777
FINAL
C(AC)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 031704 031704 0 0 200040032226 0 777777777777
IT1 031704 0 0 0 200040032226 0 777777777777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 179
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0268
AT3 031704 0 0 0 000000032226 0 200040032226
AT6 031704 032226 0 0 000000032226 0 200040032226
FT0 031704 032226 0 0 777777777777 0 200040032226
FT1A 031704 032226 0 0 777777777777 0 777777777777
FT9 031705 032226 0 0 777777777777 0 777777777777
ET0 031705 032226 0 0 777777777777 0 777777777777
ST1 031705 032226 0 0 777777777777 0 777777777777
ST2 031705 032226 0 0 777777777777 0 777777777777
ST9 031705 032226 0 0 777777777777 0 777777777777
*031705 ROTC 0,000007
INITIAL
C(AC)=777777 777777 C(AC+1)=777777 777777
FINAL
C(AC)=777777 777777 C(AC+1)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 031705 031705 0 0 245000000007 0 000000000007
IT1 031705 0 0 0 245000000007 0 000000000007
AT3 031705 0 0 0 000000000007 0 245000000007
AT6 031705 000007 0 0 000000000007 0 245000000007
FT1A 031705 000007 0 0 000000000007 0 000000000007
FT2 031705 000007 0 0 0 0 000000000007
FT2RQ 031705 000007 0 0 777777777777 0 000000000007
FT3 031705 000007 0 0 777777777777 0 000000000007
FT4 031705 000007 0 0 0 777777777777 000000000007
FT4RQ 031705 000007 0 0 777777777777 777777777777 000000000007
FT4A 031705 000007 0 0 777777777777 777777777777 000000000007
FT9 031706 000007 0 0 777777777777 777777777777 000000000007
ET0 031706 000007 007 0 777777777777 777777777777 000000000007
SRT1 031706 000007 771 0 777777777777 777777777777 000000000007
SCT0 031706 000007 771 0 777777777777 777777777777 000000000007
SCT3 031706 000007 772 0 777777777777 777777777777 000000000007
SCT3 031706 000007 773 0 777777777777 777777777777 000000000007
SCT3 031706 000007 774 0 777777777777 777777777777 000000000007
SCT3 031706 000007 775 0 777777777777 777777777777 000000000007
SCT3 031706 000007 776 0 777777777777 777777777777 000000000007
SCT3 031706 000007 777 0 777777777777 777777777777 000000000007
SCT3 031706 000007 0 0 777777777777 777777777777 000000000007
SCT4 031706 000007 0 0 777777777777 777777777777 000000000007
ST0 031706 000007 0 0 777777777777 777777777777 000000000007
ST1 031706 000007 0 0 777777777777 777777777777 000000000007
ST2 031706 000007 0 0 777777777777 777777777777 000000000007
ST7 031706 000007 0 0 777777777777 777777777777 000000000007
ST8 031706 000007 0 0 777777777777 777777777777 000000000007
ST9 031706 000007 0 0 777777777777 777777777777 000000000007
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 180
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0269
*031706 CAME 0,032226
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031706 031706 0 0 312000032226 0 777777777777
IT1 031706 0 0 0 312000032226 0 777777777777
AT3 031706 0 0 0 000000032226 0 312000032226
AT6 031706 032226 0 0 000000032226 0 312000032226
FT0 031706 032226 0 0 777777777777 0 312000032226
FT1A 031706 032226 0 0 777777777777 0 777777777777
FT2 031706 032226 0 0 0 0 777777777777
FT2RQ 031706 032226 0 0 777777777777 0 777777777777
FT3 031706 032226 0 0 777777777777 0 777777777777
FT9 031707 032226 0 0 777777777777 0 777777777777
ET0 031710 032226 0 0 0 0 777777777777
ST1A 031710 032226 0 0 0 0 777777777777
ST9 031710 032226 0 0 0 0 777777777777
*031710 JUMPA 0,031711
INITIAL
C(AC)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031710 031710 0 0 324000031711 0 000000031711
IT1 031710 0 0 0 324000031711 0 000000031711
AT3 031710 0 0 0 000000031711 0 324000031711
AT6 031710 031711 0 0 000000031711 0 324000031711
FT1A 031710 031711 0 0 000000031711 0 000000031711
FT2 031710 031711 0 0 0 0 000000031711
FT2RQ 031710 031711 0 0 777777777777 0 000000031711
FT3 031710 031711 0 0 777777777777 0 000000031711
FT9 031711 031711 0 0 777777777777 0 000000031711
ET0 031711 031711 0 0 777777777777 0 000000031711
ST1A 031711 031711 0 0 777777777777 0 000000031711
ST9 031711 031711 0 0 777777777777 0 000000031711
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 181
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0270
*031711 CAME 1,032226
INITIAL
C(AC)=777777 777777
C(E)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031711 031711 0 0 312040032226 0 777777777777
IT1 031711 0 0 0 312040032226 0 777777777777
AT3 031711 0 0 0 000000032226 0 312040032226
AT6 031711 032226 0 0 000000032226 0 312040032226
FT0 031711 032226 0 0 777777777777 0 312040032226
FT1A 031711 032226 0 0 777777777777 0 777777777777
FT2 031711 032226 0 0 0 0 777777777777
FT2RQ 031711 032226 0 0 777777777777 0 777777777777
FT3 031711 032226 0 0 777777777777 0 777777777777
FT9 031712 032226 0 0 777777777777 0 777777777777
ET0 031713 032226 0 0 0 0 777777777777
ST1A 031713 032226 0 0 0 0 777777777777
ST9 031713 032226 0 0 0 0 777777777777
*031713 JUMPA 0,031714
INITIAL
C(AC)=777777 777777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031713 031713 0 0 324000031714 0 000000031714
IT1 031713 0 0 0 324000031714 0 000000031714
AT3 031713 0 0 0 000000031714 0 324000031714
AT6 031713 031714 0 0 000000031714 0 324000031714
FT1A 031713 031714 0 0 000000031714 0 000000031714
FT2 031713 031714 0 0 0 0 000000031714
FT2RQ 031713 031714 0 0 777777777777 0 000000031714
FT3 031713 031714 0 0 777777777777 0 000000031714
FT9 031714 031714 0 0 777777777777 0 000000031714
ET0 031714 031714 0 0 777777777777 0 000000031714
ST1A 031714 031714 0 0 777777777777 0 000000031714
ST9 031714 031714 0 0 777777777777 0 000000031714
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 182
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0271
*031714 MOVE 0,032255
INITIAL
C(AC)=777777 777777
C(E)=252525 252525
FINAL
C(AC)=252525 252525
TIME PC MA SC FE AR MQ BR
IT0 031714 031714 0 0 200000032255 0 252525252525
IT1 031714 0 0 0 200000032255 0 252525252525
AT3 031714 0 0 0 000000032255 0 200000032255
AT6 031714 032255 0 0 000000032255 0 200000032255
FT0 031714 032255 0 0 252525252525 0 200000032255
FT1A 031714 032255 0 0 252525252525 0 252525252525
FT9 031715 032255 0 0 252525252525 0 252525252525
ET0 031715 032255 0 0 252525252525 0 252525252525
ST1 031715 032255 0 0 252525252525 0 252525252525
ST2 031715 032255 0 0 252525252525 0 252525252525
ST9 031715 032255 0 0 252525252525 0 252525252525
*031715 MOVE 1,032255
INITIAL
C(AC)=777777 777777
C(E)=252525 252525
FINAL
C(AC)=252525 252525
TIME PC MA SC FE AR MQ BR
IT0 031715 031715 0 0 200040032255 0 252525252525
IT1 031715 0 0 0 200040032255 0 252525252525
AT3 031715 0 0 0 000000032255 0 200040032255
AT6 031715 032255 0 0 000000032255 0 200040032255
FT0 031715 032255 0 0 252525252525 0 200040032255
FT1A 031715 032255 0 0 252525252525 0 252525252525
FT9 031716 032255 0 0 252525252525 0 252525252525
ET0 031716 032255 0 0 252525252525 0 252525252525
ST1 031716 032255 0 0 252525252525 0 252525252525
ST2 031716 032255 0 0 252525252525 0 252525252525
ST9 031716 032255 0 0 252525252525 0 252525252525
*031716 ROTC 0,000007
INITIAL
C(AC)=252525 252525 C(AC+1)=252525 252525
FINAL
C(AC)=525252 525252 C(AC+1)=525252 525252
TIME PC MA SC FE AR MQ BR
IT0 031716 031716 0 0 245000000007 0 000000000007
IT1 031716 0 0 0 245000000007 0 000000000007
AT3 031716 0 0 0 000000000007 0 245000000007
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 183
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0272
AT6 031716 000007 0 0 000000000007 0 245000000007
FT1A 031716 000007 0 0 000000000007 0 000000000007
FT2 031716 000007 0 0 0 0 000000000007
FT2RQ 031716 000007 0 0 252525252525 0 000000000007
FT3 031716 000007 0 0 252525252525 0 000000000007
FT4 031716 000007 0 0 0 252525252525 000000000007
FT4RQ 031716 000007 0 0 252525252525 252525252525 000000000007
FT4A 031716 000007 0 0 252525252525 252525252525 000000000007
FT9 031717 000007 0 0 252525252525 252525252525 000000000007
ET0 031717 000007 007 0 252525252525 252525252525 000000000007
SRT1 031717 000007 771 0 252525252525 252525252525 000000000007
SCT0 031717 000007 771 0 252525252525 252525252525 000000000007
SCT3 031717 000007 772 0 525252525252 525252525252 000000000007
SCT3 031717 000007 773 0 252525252525 252525252525 000000000007
SCT3 031717 000007 774 0 525252525252 525252525252 000000000007
SCT3 031717 000007 775 0 252525252525 252525252525 000000000007
SCT3 031717 000007 776 0 525252525252 525252525252 000000000007
SCT3 031717 000007 777 0 252525252525 252525252525 000000000007
SCT3 031717 000007 0 0 525252525252 525252525252 000000000007
SCT4 031717 000007 0 0 525252525252 525252525252 000000000007
ST0 031717 000007 0 0 525252525252 525252525252 000000000007
ST1 031717 000007 0 0 525252525252 525252525252 000000000007
ST2 031717 000007 0 0 525252525252 525252525252 000000000007
ST7 031717 000007 0 0 525252525252 525252525252 000000000007
ST8 031717 000007 0 0 525252525252 525252525252 000000000007
ST9 031717 000007 0 0 525252525252 525252525252 000000000007
*031717 CAME 0,032256
INITIAL
C(AC)=525252 525252
C(E)=525252 525252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031717 031717 0 0 312000032256 0 525252525252
IT1 031717 0 0 0 312000032256 0 525252525252
AT3 031717 0 0 0 000000032256 0 312000032256
AT6 031717 032256 0 0 000000032256 0 312000032256
FT0 031717 032256 0 0 525252525252 0 312000032256
FT1A 031717 032256 0 0 525252525252 0 525252525252
FT2 031717 032256 0 0 0 0 525252525252
FT2RQ 031717 032256 0 0 525252525252 0 525252525252
FT3 031717 032256 0 0 525252525252 0 525252525252
FT9 031720 032256 0 0 525252525252 0 525252525252
ET0 031721 032256 0 0 0 0 525252525252
ST1A 031721 032256 0 0 0 0 525252525252
ST9 031721 032256 0 0 0 0 525252525252
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 184
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0273
*031721 JUMPA 0,031722
INITIAL
C(AC)=525252 525252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031721 031721 0 0 324000031722 0 000000031722
IT1 031721 0 0 0 324000031722 0 000000031722
AT3 031721 0 0 0 000000031722 0 324000031722
AT6 031721 031722 0 0 000000031722 0 324000031722
FT1A 031721 031722 0 0 000000031722 0 000000031722
FT2 031721 031722 0 0 0 0 000000031722
FT2RQ 031721 031722 0 0 525252525252 0 000000031722
FT3 031721 031722 0 0 525252525252 0 000000031722
FT9 031722 031722 0 0 525252525252 0 000000031722
ET0 031722 031722 0 0 525252525252 0 000000031722
ST1A 031722 031722 0 0 525252525252 0 000000031722
ST9 031722 031722 0 0 525252525252 0 000000031722
*031722 CAME 1,032256
INITIAL
C(AC)=525252 525252
C(E)=525252 525252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031722 031722 0 0 312040032256 0 525252525252
IT1 031722 0 0 0 312040032256 0 525252525252
AT3 031722 0 0 0 000000032256 0 312040032256
AT6 031722 032256 0 0 000000032256 0 312040032256
FT0 031722 032256 0 0 525252525252 0 312040032256
FT1A 031722 032256 0 0 525252525252 0 525252525252
FT2 031722 032256 0 0 0 0 525252525252
FT2RQ 031722 032256 0 0 525252525252 0 525252525252
FT3 031722 032256 0 0 525252525252 0 525252525252
FT9 031723 032256 0 0 525252525252 0 525252525252
ET0 031724 032256 0 0 0 0 525252525252
ST1A 031724 032256 0 0 0 0 525252525252
ST9 031724 032256 0 0 0 0 525252525252
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 185
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0274
*031724 JUMPA 0,031725
INITIAL
C(AC)=525252 525252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031724 031724 0 0 324000031725 0 000000031725
IT1 031724 0 0 0 324000031725 0 000000031725
AT3 031724 0 0 0 000000031725 0 324000031725
AT6 031724 031725 0 0 000000031725 0 324000031725
FT1A 031724 031725 0 0 000000031725 0 000000031725
FT2 031724 031725 0 0 0 0 000000031725
FT2RQ 031724 031725 0 0 525252525252 0 000000031725
FT3 031724 031725 0 0 525252525252 0 000000031725
FT9 031725 031725 0 0 525252525252 0 000000031725
ET0 031725 031725 0 0 525252525252 0 000000031725
ST1A 031725 031725 0 0 525252525252 0 000000031725
ST9 031725 031725 0 0 525252525252 0 000000031725
*031725 MOVE 0,032256
INITIAL
C(AC)=525252 525252
C(E)=525252 525252
FINAL
C(AC)=525252 525252
TIME PC MA SC FE AR MQ BR
IT0 031725 031725 0 0 200000032256 0 525252525252
IT1 031725 0 0 0 200000032256 0 525252525252
AT3 031725 0 0 0 000000032256 0 200000032256
AT6 031725 032256 0 0 000000032256 0 200000032256
FT0 031725 032256 0 0 525252525252 0 200000032256
FT1A 031725 032256 0 0 525252525252 0 525252525252
FT9 031726 032256 0 0 525252525252 0 525252525252
ET0 031726 032256 0 0 525252525252 0 525252525252
ST1 031726 032256 0 0 525252525252 0 525252525252
ST2 031726 032256 0 0 525252525252 0 525252525252
ST9 031726 032256 0 0 525252525252 0 525252525252
*031726 MOVE 1,032256
INITIAL
C(AC)=525252 525252
C(E)=525252 525252
FINAL
C(AC)=525252 525252
TIME PC MA SC FE AR MQ BR
IT0 031726 031726 0 0 200040032256 0 525252525252
IT1 031726 0 0 0 200040032256 0 525252525252
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 186
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0275
AT3 031726 0 0 0 000000032256 0 200040032256
AT6 031726 032256 0 0 000000032256 0 200040032256
FT0 031726 032256 0 0 525252525252 0 200040032256
FT1A 031726 032256 0 0 525252525252 0 525252525252
FT9 031727 032256 0 0 525252525252 0 525252525252
ET0 031727 032256 0 0 525252525252 0 525252525252
ST1 031727 032256 0 0 525252525252 0 525252525252
ST2 031727 032256 0 0 525252525252 0 525252525252
ST9 031727 032256 0 0 525252525252 0 525252525252
*031727 ROTC 0,000007
INITIAL
C(AC)=525252 525252 C(AC+1)=525252 525252
FINAL
C(AC)=252525 252525 C(AC+1)=252525 252525
TIME PC MA SC FE AR MQ BR
IT0 031727 031727 0 0 245000000007 0 000000000007
IT1 031727 0 0 0 245000000007 0 000000000007
AT3 031727 0 0 0 000000000007 0 245000000007
AT6 031727 000007 0 0 000000000007 0 245000000007
FT1A 031727 000007 0 0 000000000007 0 000000000007
FT2 031727 000007 0 0 0 0 000000000007
FT2RQ 031727 000007 0 0 525252525252 0 000000000007
FT3 031727 000007 0 0 525252525252 0 000000000007
FT4 031727 000007 0 0 0 525252525252 000000000007
FT4RQ 031727 000007 0 0 525252525252 525252525252 000000000007
FT4A 031727 000007 0 0 525252525252 525252525252 000000000007
FT9 031730 000007 0 0 525252525252 525252525252 000000000007
ET0 031730 000007 007 0 525252525252 525252525252 000000000007
SRT1 031730 000007 771 0 525252525252 525252525252 000000000007
SCT0 031730 000007 771 0 525252525252 525252525252 000000000007
SCT3 031730 000007 772 0 252525252525 252525252525 000000000007
SCT3 031730 000007 773 0 525252525252 525252525252 000000000007
SCT3 031730 000007 774 0 252525252525 252525252525 000000000007
SCT3 031730 000007 775 0 525252525252 525252525252 000000000007
SCT3 031730 000007 776 0 252525252525 252525252525 000000000007
SCT3 031730 000007 777 0 525252525252 525252525252 000000000007
SCT3 031730 000007 0 0 252525252525 252525252525 000000000007
SCT4 031730 000007 0 0 252525252525 252525252525 000000000007
ST0 031730 000007 0 0 252525252525 252525252525 000000000007
ST1 031730 000007 0 0 252525252525 252525252525 000000000007
ST2 031730 000007 0 0 252525252525 252525252525 000000000007
ST7 031730 000007 0 0 252525252525 252525252525 000000000007
ST8 031730 000007 0 0 252525252525 252525252525 000000000007
ST9 031730 000007 0 0 252525252525 252525252525 000000000007
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 187
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0276
*031730 CAME 0,032255
INITIAL
C(AC)=252525 252525
C(E)=252525 252525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031730 031730 0 0 312000032255 0 252525252525
IT1 031730 0 0 0 312000032255 0 252525252525
AT3 031730 0 0 0 000000032255 0 312000032255
AT6 031730 032255 0 0 000000032255 0 312000032255
FT0 031730 032255 0 0 252525252525 0 312000032255
FT1A 031730 032255 0 0 252525252525 0 252525252525
FT2 031730 032255 0 0 0 0 252525252525
FT2RQ 031730 032255 0 0 252525252525 0 252525252525
FT3 031730 032255 0 0 252525252525 0 252525252525
FT9 031731 032255 0 0 252525252525 0 252525252525
ET0 031732 032255 0 0 0 0 252525252525
ST1A 031732 032255 0 0 0 0 252525252525
ST9 031732 032255 0 0 0 0 252525252525
*031732 JUMPA 0,031733
INITIAL
C(AC)=252525 252525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031732 031732 0 0 324000031733 0 000000031733
IT1 031732 0 0 0 324000031733 0 000000031733
AT3 031732 0 0 0 000000031733 0 324000031733
AT6 031732 031733 0 0 000000031733 0 324000031733
FT1A 031732 031733 0 0 000000031733 0 000000031733
FT2 031732 031733 0 0 0 0 000000031733
FT2RQ 031732 031733 0 0 252525252525 0 000000031733
FT3 031732 031733 0 0 252525252525 0 000000031733
FT9 031733 031733 0 0 252525252525 0 000000031733
ET0 031733 031733 0 0 252525252525 0 000000031733
ST1A 031733 031733 0 0 252525252525 0 000000031733
ST9 031733 031733 0 0 252525252525 0 000000031733
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 188
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0277
*031733 CAME 1,032255
INITIAL
C(AC)=252525 252525
C(E)=252525 252525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031733 031733 0 0 312040032255 0 252525252525
IT1 031733 0 0 0 312040032255 0 252525252525
AT3 031733 0 0 0 000000032255 0 312040032255
AT6 031733 032255 0 0 000000032255 0 312040032255
FT0 031733 032255 0 0 252525252525 0 312040032255
FT1A 031733 032255 0 0 252525252525 0 252525252525
FT2 031733 032255 0 0 0 0 252525252525
FT2RQ 031733 032255 0 0 252525252525 0 252525252525
FT3 031733 032255 0 0 252525252525 0 252525252525
FT9 031734 032255 0 0 252525252525 0 252525252525
ET0 031735 032255 0 0 0 0 252525252525
ST1A 031735 032255 0 0 0 0 252525252525
ST9 031735 032255 0 0 0 0 252525252525
*031735 JUMPA 0,031736
INITIAL
C(AC)=252525 252525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031735 031735 0 0 324000031736 0 000000031736
IT1 031735 0 0 0 324000031736 0 000000031736
AT3 031735 0 0 0 000000031736 0 324000031736
AT6 031735 031736 0 0 000000031736 0 324000031736
FT1A 031735 031736 0 0 000000031736 0 000000031736
FT2 031735 031736 0 0 0 0 000000031736
FT2RQ 031735 031736 0 0 252525252525 0 000000031736
FT3 031735 031736 0 0 252525252525 0 000000031736
FT9 031736 031736 0 0 252525252525 0 000000031736
ET0 031736 031736 0 0 252525252525 0 000000031736
ST1A 031736 031736 0 0 252525252525 0 000000031736
ST9 031736 031736 0 0 252525252525 0 000000031736
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 189
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0278
*031736 MOVE 0,032257
INITIAL
C(AC)=252525 252525
C(E)=230703 603700
FINAL
C(AC)=230703 603700
TIME PC MA SC FE AR MQ BR
IT0 031736 031736 0 0 200000032257 0 230703603700
IT1 031736 0 0 0 200000032257 0 230703603700
AT3 031736 0 0 0 000000032257 0 200000032257
AT6 031736 032257 0 0 000000032257 0 200000032257
FT0 031736 032257 0 0 230703603700 0 200000032257
FT1A 031736 032257 0 0 230703603700 0 230703603700
FT9 031737 032257 0 0 230703603700 0 230703603700
ET0 031737 032257 0 0 230703603700 0 230703603700
ST1 031737 032257 0 0 230703603700 0 230703603700
ST2 031737 032257 0 0 230703603700 0 230703603700
ST9 031737 032257 0 0 230703603700 0 230703603700
*031737 MOVE 1,032265
INITIAL
C(AC)=252525 252525
C(E)=770037 600377
FINAL
C(AC)=770037 600377
TIME PC MA SC FE AR MQ BR
IT0 031737 031737 0 0 200040032265 0 770037600377
IT1 031737 0 0 0 200040032265 0 770037600377
AT3 031737 0 0 0 000000032265 0 200040032265
AT6 031737 032265 0 0 000000032265 0 200040032265
FT0 031737 032265 0 0 770037600377 0 200040032265
FT1A 031737 032265 0 0 770037600377 0 770037600377
FT9 031740 032265 0 0 770037600377 0 770037600377
ET0 031740 032265 0 0 770037600377 0 770037600377
ST1 031740 032265 0 0 770037600377 0 770037600377
ST2 031740 032265 0 0 770037600377 0 770037600377
ST9 031740 032265 0 0 770037600377 0 770037600377
*031740 ROTC 0,000007
INITIAL
C(AC)=230703 603700 C(AC+1)=770037 600377
FINAL
C(AC)=160740 760176 C(AC+1)=007740 077646
TIME PC MA SC FE AR MQ BR
IT0 031740 031740 0 0 245000000007 0 000000000007
IT1 031740 0 0 0 245000000007 0 000000000007
AT3 031740 0 0 0 000000000007 0 245000000007
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 190
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0279
AT6 031740 000007 0 0 000000000007 0 245000000007
FT1A 031740 000007 0 0 000000000007 0 000000000007
FT2 031740 000007 0 0 0 0 000000000007
FT2RQ 031740 000007 0 0 230703603700 0 000000000007
FT3 031740 000007 0 0 230703603700 0 000000000007
FT4 031740 000007 0 0 0 230703603700 000000000007
FT4RQ 031740 000007 0 0 770037600377 230703603700 000000000007
FT4A 031740 000007 0 0 230703603700 770037600377 000000000007
FT9 031741 000007 0 0 230703603700 770037600377 000000000007
ET0 031741 000007 007 0 230703603700 770037600377 000000000007
SRT1 031741 000007 771 0 230703603700 770037600377 000000000007
SCT0 031741 000007 771 0 230703603700 770037600377 000000000007
SCT3 031741 000007 772 0 461607407601 760077400776 000000000007
SCT3 031741 000007 773 0 143417017403 740177001775 000000000007
SCT3 031741 000007 774 0 307036037007 700376003772 000000000007
SCT3 031741 000007 775 0 616074076017 600774007764 000000000007
SCT3 031741 000007 776 0 434170174037 401770017751 000000000007
SCT3 031741 000007 777 0 070360370077 003760037723 000000000007
SCT3 031741 000007 0 0 160740760176 007740077646 000000000007
SCT4 031741 000007 0 0 160740760176 007740077646 000000000007
ST0 031741 000007 0 0 160740760176 007740077646 000000000007
ST1 031741 000007 0 0 160740760176 007740077646 000000000007
ST2 031741 000007 0 0 160740760176 007740077646 000000000007
ST7 031741 000007 0 0 007740077646 007740077646 000000000007
ST8 031741 000007 0 0 007740077646 007740077646 000000000007
ST9 031741 000007 0 0 007740077646 007740077646 000000000007
*031741 CAME 0,032273
INITIAL
C(AC)=160740 760176
C(E)=160740 760176
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031741 031741 0 0 312000032273 0 160740760176
IT1 031741 0 0 0 312000032273 0 160740760176
AT3 031741 0 0 0 000000032273 0 312000032273
AT6 031741 032273 0 0 000000032273 0 312000032273
FT0 031741 032273 0 0 160740760176 0 312000032273
FT1A 031741 032273 0 0 160740760176 0 160740760176
FT2 031741 032273 0 0 0 0 160740760176
FT2RQ 031741 032273 0 0 160740760176 0 160740760176
FT3 031741 032273 0 0 160740760176 0 160740760176
FT9 031742 032273 0 0 160740760176 0 160740760176
ET0 031743 032273 0 0 0 0 160740760176
ST1A 031743 032273 0 0 0 0 160740760176
ST9 031743 032273 0 0 0 0 160740760176
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 191
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0280
*031743 JUMPA 0,031744
INITIAL
C(AC)=160740 760176
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031743 031743 0 0 324000031744 0 000000031744
IT1 031743 0 0 0 324000031744 0 000000031744
AT3 031743 0 0 0 000000031744 0 324000031744
AT6 031743 031744 0 0 000000031744 0 324000031744
FT1A 031743 031744 0 0 000000031744 0 000000031744
FT2 031743 031744 0 0 0 0 000000031744
FT2RQ 031743 031744 0 0 160740760176 0 000000031744
FT3 031743 031744 0 0 160740760176 0 000000031744
FT9 031744 031744 0 0 160740760176 0 000000031744
ET0 031744 031744 0 0 160740760176 0 000000031744
ST1A 031744 031744 0 0 160740760176 0 000000031744
ST9 031744 031744 0 0 160740760176 0 000000031744
*031744 CAME 1,032274
INITIAL
C(AC)=007740 077646
C(E)=007740 077646
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031744 031744 0 0 312040032274 0 007740077646
IT1 031744 0 0 0 312040032274 0 007740077646
AT3 031744 0 0 0 000000032274 0 312040032274
AT6 031744 032274 0 0 000000032274 0 312040032274
FT0 031744 032274 0 0 007740077646 0 312040032274
FT1A 031744 032274 0 0 007740077646 0 007740077646
FT2 031744 032274 0 0 0 0 007740077646
FT2RQ 031744 032274 0 0 007740077646 0 007740077646
FT3 031744 032274 0 0 007740077646 0 007740077646
FT9 031745 032274 0 0 007740077646 0 007740077646
ET0 031746 032274 0 0 0 0 007740077646
ST1A 031746 032274 0 0 0 0 007740077646
ST9 031746 032274 0 0 0 0 007740077646
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 192
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0281
*031746 JUMPA 0,031747
INITIAL
C(AC)=160740 760176
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031746 031746 0 0 324000031747 0 000000031747
IT1 031746 0 0 0 324000031747 0 000000031747
AT3 031746 0 0 0 000000031747 0 324000031747
AT6 031746 031747 0 0 000000031747 0 324000031747
FT1A 031746 031747 0 0 000000031747 0 000000031747
FT2 031746 031747 0 0 0 0 000000031747
FT2RQ 031746 031747 0 0 160740760176 0 000000031747
FT3 031746 031747 0 0 160740760176 0 000000031747
FT9 031747 031747 0 0 160740760176 0 000000031747
ET0 031747 031747 0 0 160740760176 0 000000031747
ST1A 031747 031747 0 0 160740760176 0 000000031747
ST9 031747 031747 0 0 160740760176 0 000000031747
*031747 MOVE 0,032270
INITIAL
C(AC)=160740 760176
C(E)=776003 760077
FINAL
C(AC)=776003 760077
TIME PC MA SC FE AR MQ BR
IT0 031747 031747 0 0 200000032270 0 776003760077
IT1 031747 0 0 0 200000032270 0 776003760077
AT3 031747 0 0 0 000000032270 0 200000032270
AT6 031747 032270 0 0 000000032270 0 200000032270
FT0 031747 032270 0 0 776003760077 0 200000032270
FT1A 031747 032270 0 0 776003760077 0 776003760077
FT9 031750 032270 0 0 776003760077 0 776003760077
ET0 031750 032270 0 0 776003760077 0 776003760077
ST1 031750 032270 0 0 776003760077 0 776003760077
ST2 031750 032270 0 0 776003760077 0 776003760077
ST9 031750 032270 0 0 776003760077 0 776003760077
*031750 MOVE 1,032261
INITIAL
C(AC)=007740 077646
C(E)=007603 607062
FINAL
C(AC)=007603 607062
TIME PC MA SC FE AR MQ BR
IT0 031750 031750 0 0 200040032261 0 007603607062
IT1 031750 0 0 0 200040032261 0 007603607062
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 193
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0282
AT3 031750 0 0 0 000000032261 0 200040032261
AT6 031750 032261 0 0 000000032261 0 200040032261
FT0 031750 032261 0 0 007603607062 0 200040032261
FT1A 031750 032261 0 0 007603607062 0 007603607062
FT9 031751 032261 0 0 007603607062 0 007603607062
ET0 031751 032261 0 0 007603607062 0 007603607062
ST1 031751 032261 0 0 007603607062 0 007603607062
ST2 031751 032261 0 0 007603607062 0 007603607062
ST9 031751 032261 0 0 007603607062 0 007603607062
*031751 ROTC 0,000007
INITIAL
C(AC)=776003 760077 C(AC+1)=007603 607062
FINAL
C(AC)=400774 017601 C(AC+1)=740741 614577
TIME PC MA SC FE AR MQ BR
IT0 031751 031751 0 0 245000000007 0 000000000007
IT1 031751 0 0 0 245000000007 0 000000000007
AT3 031751 0 0 0 000000000007 0 245000000007
AT6 031751 000007 0 0 000000000007 0 245000000007
FT1A 031751 000007 0 0 000000000007 0 000000000007
FT2 031751 000007 0 0 0 0 000000000007
FT2RQ 031751 000007 0 0 776003760077 0 000000000007
FT3 031751 000007 0 0 776003760077 0 000000000007
FT4 031751 000007 0 0 0 776003760077 000000000007
FT4RQ 031751 000007 0 0 007603607062 776003760077 000000000007
FT4A 031751 000007 0 0 776003760077 007603607062 000000000007
FT9 031752 000007 0 0 776003760077 007603607062 000000000007
ET0 031752 000007 007 0 776003760077 007603607062 000000000007
SRT1 031752 000007 771 0 776003760077 007603607062 000000000007
SCT0 031752 000007 771 0 776003760077 007603607062 000000000007
SCT3 031752 000007 772 0 774007740176 017407416145 000000000007
SCT3 031752 000007 773 0 770017700374 037017034313 000000000007
SCT3 031752 000007 774 0 760037600770 076036070627 000000000007
SCT3 031752 000007 775 0 740077401760 174074161457 000000000007
SCT3 031752 000007 776 0 700177003740 370170343137 000000000007
SCT3 031752 000007 777 0 600376007700 760360706277 000000000007
SCT3 031752 000007 0 0 400774017601 740741614577 000000000007
SCT4 031752 000007 0 0 400774017601 740741614577 000000000007
ST0 031752 000007 0 0 400774017601 740741614577 000000000007
ST1 031752 000007 0 0 400774017601 740741614577 000000000007
ST2 031752 000007 0 0 400774017601 740741614577 000000000007
ST7 031752 000007 0 0 740741614577 740741614577 000000000007
ST8 031752 000007 0 0 740741614577 740741614577 000000000007
ST9 031752 000007 0 0 740741614577 740741614577 000000000007
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 194
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0283
*031752 CAME 0,032275
INITIAL
C(AC)=400774 017601
C(E)=400774 017601
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031752 031752 0 0 312000032275 0 400774017601
IT1 031752 0 0 0 312000032275 0 400774017601
AT3 031752 0 0 0 000000032275 0 312000032275
AT6 031752 032275 0 0 000000032275 0 312000032275
FT0 031752 032275 0 0 400774017601 0 312000032275
FT1A 031752 032275 0 0 400774017601 0 400774017601
FT2 031752 032275 0 0 0 0 400774017601
FT2RQ 031752 032275 0 0 400774017601 0 400774017601
FT3 031752 032275 0 0 400774017601 0 400774017601
FT9 031753 032275 0 0 400774017601 0 400774017601
ET0 031754 032275 0 0 0 0 400774017601
ST1A 031754 032275 0 0 0 0 400774017601
ST9 031754 032275 0 0 0 0 400774017601
*031754 JUMPA 0,031755
INITIAL
C(AC)=400774 017601
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031754 031754 0 0 324000031755 0 000000031755
IT1 031754 0 0 0 324000031755 0 000000031755
AT3 031754 0 0 0 000000031755 0 324000031755
AT6 031754 031755 0 0 000000031755 0 324000031755
FT1A 031754 031755 0 0 000000031755 0 000000031755
FT2 031754 031755 0 0 0 0 000000031755
FT2RQ 031754 031755 0 0 400774017601 0 000000031755
FT3 031754 031755 0 0 400774017601 0 000000031755
FT9 031755 031755 0 0 400774017601 0 000000031755
ET0 031755 031755 0 0 400774017601 0 000000031755
ST1A 031755 031755 0 0 400774017601 0 000000031755
ST9 031755 031755 0 0 400774017601 0 000000031755
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 195
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0284
*031755 CAME 1,032276
INITIAL
C(AC)=740741 614577
C(E)=740741 614577
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031755 031755 0 0 312040032276 0 740741614577
IT1 031755 0 0 0 312040032276 0 740741614577
AT3 031755 0 0 0 000000032276 0 312040032276
AT6 031755 032276 0 0 000000032276 0 312040032276
FT0 031755 032276 0 0 740741614577 0 312040032276
FT1A 031755 032276 0 0 740741614577 0 740741614577
FT2 031755 032276 0 0 0 0 740741614577
FT2RQ 031755 032276 0 0 740741614577 0 740741614577
FT3 031755 032276 0 0 740741614577 0 740741614577
FT9 031756 032276 0 0 740741614577 0 740741614577
ET0 031757 032276 0 0 0 0 740741614577
ST1A 031757 032276 0 0 0 0 740741614577
ST9 031757 032276 0 0 0 0 740741614577
*031757 JUMPA 0,031760
INITIAL
C(AC)=400774 017601
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031757 031757 0 0 324000031760 0 000000031760
IT1 031757 0 0 0 324000031760 0 000000031760
AT3 031757 0 0 0 000000031760 0 324000031760
AT6 031757 031760 0 0 000000031760 0 324000031760
FT1A 031757 031760 0 0 000000031760 0 000000031760
FT2 031757 031760 0 0 0 0 000000031760
FT2RQ 031757 031760 0 0 400774017601 0 000000031760
FT3 031757 031760 0 0 400774017601 0 000000031760
FT9 031760 031760 0 0 400774017601 0 000000031760
ET0 031760 031760 0 0 400774017601 0 000000031760
ST1A 031760 031760 0 0 400774017601 0 000000031760
ST9 031760 031760 0 0 400774017601 0 000000031760
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 196
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0285
*031760 MOVE 0,032227
INITIAL
C(AC)=400774 017601
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031760 031760 0 0 200000032227 0 0
IT1 031760 0 0 0 200000032227 0 0
AT3 031760 0 0 0 000000032227 0 200000032227
AT6 031760 032227 0 0 000000032227 0 200000032227
FT0 031760 032227 0 0 0 0 200000032227
FT1A 031760 032227 0 0 0 0 0
FT9 031761 032227 0 0 0 0 0
ET0 031761 032227 0 0 0 0 0
ST1 031761 032227 0 0 0 0 0
ST2 031761 032227 0 0 0 0 0
ST9 031761 032227 0 0 0 0 0
*031761 MOVE 1,032254
INITIAL
C(AC)=740741 614577
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 031761 031761 0 0 200040032254 0 172737405060
IT1 031761 0 0 0 200040032254 0 172737405060
AT3 031761 0 0 0 000000032254 0 200040032254
AT6 031761 032254 0 0 000000032254 0 200040032254
FT0 031761 032254 0 0 172737405060 0 200040032254
FT1A 031761 032254 0 0 172737405060 0 172737405060
FT9 031762 032254 0 0 172737405060 0 172737405060
ET0 031762 032254 0 0 172737405060 0 172737405060
ST1 031762 032254 0 0 172737405060 0 172737405060
ST2 031762 032254 0 0 172737405060 0 172737405060
ST9 031762 032254 0 0 172737405060 0 172737405060
*031762 LSH 0,777745
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 031762 031762 0 0 242000777745 0 000000777745
IT1 031762 0 0 0 242000777745 0 000000777745
AT3 031762 0 0 0 000000777745 0 242000777745
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 197
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0286
AT6 031762 777745 0 0 000000777745 0 242000777745
FT1A 031762 777745 0 0 000000777745 0 000000777745
FT2 031762 777745 0 0 0 0 000000777745
FT2RQ 031762 777745 0 0 0 0 000000777745
FT3 031762 777745 0 0 0 0 000000777745
FT9 031763 777745 0 0 0 0 000000777745
ET0 031763 777745 745 0 0 0 000000777745
SCT0 031763 777745 745 0 0 0 000000777745
SCT3 031763 777745 746 0 0 0 000000777745
SCT3 031763 777745 747 0 0 0 000000777745
SCT3 031763 777745 0 0 0 0 000000777745
SCT3 031763 777745 751 0 0 0 000000777745
SCT3 031763 777745 752 0 0 0 000000777745
SCT3 031763 777745 753 0 0 0 000000777745
SCT3 031763 777745 754 0 0 0 000000777745
SCT3 031763 777745 755 0 0 0 000000777745
SCT3 031763 777745 756 0 0 0 000000777745
SCT3 031763 777745 757 0 0 0 000000777745
SCT3 031763 777745 0 0 0 0 000000777745
SCT3 031763 777745 761 0 0 0 000000777745
SCT3 031763 777745 762 0 0 0 000000777745
SCT3 031763 777745 763 0 0 0 000000777745
SCT3 031763 777745 764 0 0 0 000000777745
SCT3 031763 777745 765 0 0 0 000000777745
SCT3 031763 777745 766 0 0 0 000000777745
SCT3 031763 777745 767 0 0 0 000000777745
SCT3 031763 777745 0 0 0 0 000000777745
SCT3 031763 777745 771 0 0 0 000000777745
SCT3 031763 777745 772 0 0 0 000000777745
SCT3 031763 777745 773 0 0 0 000000777745
SCT3 031763 777745 774 0 0 0 000000777745
SCT3 031763 777745 775 0 0 0 000000777745
SCT3 031763 777745 776 0 0 0 000000777745
SCT3 031763 777745 777 0 0 0 000000777745
SCT3 031763 777745 0 0 0 0 000000777745
SCT4 031763 777745 0 0 0 0 000000777745
ST0 031763 777745 0 0 0 0 000000777745
ST1 031763 777745 0 0 0 0 000000777745
ST2 031763 777745 0 0 0 0 000000777745
ST9 031763 777745 0 0 0 0 000000777745
*031763 CAME 0,032227
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031763 031763 0 0 312000032227 0 0
IT1 031763 0 0 0 312000032227 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 198
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0287
AT3 031763 0 0 0 000000032227 0 312000032227
AT6 031763 032227 0 0 000000032227 0 312000032227
FT0 031763 032227 0 0 0 0 312000032227
FT1A 031763 032227 0 0 0 0 0
FT2 031763 032227 0 0 0 0 0
FT2RQ 031763 032227 0 0 0 0 0
FT3 031763 032227 0 0 0 0 0
FT9 031764 032227 0 0 0 0 0
ET0 031765 032227 0 0 0 0 0
ST1A 031765 032227 0 0 0 0 0
ST9 031765 032227 0 0 0 0 0
*031765 JUMPA 0,031766
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031765 031765 0 0 324000031766 0 000000031766
IT1 031765 0 0 0 324000031766 0 000000031766
AT3 031765 0 0 0 000000031766 0 324000031766
AT6 031765 031766 0 0 000000031766 0 324000031766
FT1A 031765 031766 0 0 000000031766 0 000000031766
FT2 031765 031766 0 0 0 0 000000031766
FT2RQ 031765 031766 0 0 0 0 000000031766
FT3 031765 031766 0 0 0 0 000000031766
FT9 031766 031766 0 0 0 0 000000031766
ET0 031766 031766 0 0 0 0 000000031766
ST1A 031766 031766 0 0 0 0 000000031766
ST9 031766 031766 0 0 0 0 000000031766
*031766 CAME 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031766 031766 0 0 312040032254 0 172737405060
IT1 031766 0 0 0 312040032254 0 172737405060
AT3 031766 0 0 0 000000032254 0 312040032254
AT6 031766 032254 0 0 000000032254 0 312040032254
FT0 031766 032254 0 0 172737405060 0 312040032254
FT1A 031766 032254 0 0 172737405060 0 172737405060
FT2 031766 032254 0 0 0 0 172737405060
FT2RQ 031766 032254 0 0 172737405060 0 172737405060
FT3 031766 032254 0 0 172737405060 0 172737405060
FT9 031767 032254 0 0 172737405060 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 199
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0288
ET0 031770 032254 0 0 0 0 172737405060
ST1A 031770 032254 0 0 0 0 172737405060
ST9 031770 032254 0 0 0 0 172737405060
*031770 JUMPA 0,031771
INITIAL
C(AC)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031770 031770 0 0 324000031771 0 000000031771
IT1 031770 0 0 0 324000031771 0 000000031771
AT3 031770 0 0 0 000000031771 0 324000031771
AT6 031770 031771 0 0 000000031771 0 324000031771
FT1A 031770 031771 0 0 000000031771 0 000000031771
FT2 031770 031771 0 0 0 0 000000031771
FT2RQ 031770 031771 0 0 0 0 000000031771
FT3 031770 031771 0 0 0 0 000000031771
FT9 031771 031771 0 0 0 0 000000031771
ET0 031771 031771 0 0 0 0 000000031771
ST1A 031771 031771 0 0 0 0 000000031771
ST9 031771 031771 0 0 0 0 000000031771
*031771 MOVE 0,032226
INITIAL
C(AC)=000000 000000
C(E)=777777 777777
FINAL
C(AC)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 031771 031771 0 0 200000032226 0 777777777777
IT1 031771 0 0 0 200000032226 0 777777777777
AT3 031771 0 0 0 000000032226 0 200000032226
AT6 031771 032226 0 0 000000032226 0 200000032226
FT0 031771 032226 0 0 777777777777 0 200000032226
FT1A 031771 032226 0 0 777777777777 0 777777777777
FT9 031772 032226 0 0 777777777777 0 777777777777
ET0 031772 032226 0 0 777777777777 0 777777777777
ST1 031772 032226 0 0 777777777777 0 777777777777
ST2 031772 032226 0 0 777777777777 0 777777777777
ST9 031772 032226 0 0 777777777777 0 777777777777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 200
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0289
*031772 MOVE 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 031772 031772 0 0 200040032254 0 172737405060
IT1 031772 0 0 0 200040032254 0 172737405060
AT3 031772 0 0 0 000000032254 0 200040032254
AT6 031772 032254 0 0 000000032254 0 200040032254
FT0 031772 032254 0 0 172737405060 0 200040032254
FT1A 031772 032254 0 0 172737405060 0 172737405060
FT9 031773 032254 0 0 172737405060 0 172737405060
ET0 031773 032254 0 0 172737405060 0 172737405060
ST1 031773 032254 0 0 172737405060 0 172737405060
ST2 031773 032254 0 0 172737405060 0 172737405060
ST9 031773 032254 0 0 172737405060 0 172737405060
*031773 LSH 0,777745
INITIAL
C(AC)=777777 777777
FINAL
C(AC)=000000 000777
TIME PC MA SC FE AR MQ BR
IT0 031773 031773 0 0 242000777745 0 000000777745
IT1 031773 0 0 0 242000777745 0 000000777745
AT3 031773 0 0 0 000000777745 0 242000777745
AT6 031773 777745 0 0 000000777745 0 242000777745
FT1A 031773 777745 0 0 000000777745 0 000000777745
FT2 031773 777745 0 0 0 0 000000777745
FT2RQ 031773 777745 0 0 777777777777 0 000000777745
FT3 031773 777745 0 0 777777777777 0 000000777745
FT9 031774 777745 0 0 777777777777 0 000000777745
ET0 031774 777745 745 0 777777777777 0 000000777745
SCT0 031774 777745 745 0 777777777777 0 000000777745
SCT3 031774 777745 746 0 377777777777 0 000000777745
SCT3 031774 777745 747 0 177777777777 0 000000777745
SCT3 031774 777745 0 0 077777777777 0 000000777745
SCT3 031774 777745 751 0 037777777777 0 000000777745
SCT3 031774 777745 752 0 017777777777 0 000000777745
SCT3 031774 777745 753 0 007777777777 0 000000777745
SCT3 031774 777745 754 0 003777777777 0 000000777745
SCT3 031774 777745 755 0 001777777777 0 000000777745
SCT3 031774 777745 756 0 000777777777 0 000000777745
SCT3 031774 777745 757 0 000377777777 0 000000777745
SCT3 031774 777745 0 0 000177777777 0 000000777745
SCT3 031774 777745 761 0 000077777777 0 000000777745
SCT3 031774 777745 762 0 000037777777 0 000000777745
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 201
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0290
SCT3 031774 777745 763 0 000017777777 0 000000777745
SCT3 031774 777745 764 0 000007777777 0 000000777745
SCT3 031774 777745 765 0 000003777777 0 000000777745
SCT3 031774 777745 766 0 000001777777 0 000000777745
SCT3 031774 777745 767 0 000000777777 0 000000777745
SCT3 031774 777745 0 0 000000377777 0 000000777745
SCT3 031774 777745 771 0 000000177777 0 000000777745
SCT3 031774 777745 772 0 000000077777 0 000000777745
SCT3 031774 777745 773 0 000000037777 0 000000777745
SCT3 031774 777745 774 0 000000017777 0 000000777745
SCT3 031774 777745 775 0 000000007777 0 000000777745
SCT3 031774 777745 776 0 000000003777 0 000000777745
SCT3 031774 777745 777 0 000000001777 0 000000777745
SCT3 031774 777745 0 0 000000000777 0 000000777745
SCT4 031774 777745 0 0 000000000777 0 000000777745
ST0 031774 777745 0 0 000000000777 0 000000777745
ST1 031774 777745 0 0 000000000777 0 000000777745
ST2 031774 777745 0 0 000000000777 0 000000777745
ST9 031774 777745 0 0 000000000777 0 000000777745
*031774 CAME 0,032277
INITIAL
C(AC)=000000 000777
C(E)=000000 000777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031774 031774 0 0 312000032277 0 000000000777
IT1 031774 0 0 0 312000032277 0 000000000777
AT3 031774 0 0 0 000000032277 0 312000032277
AT6 031774 032277 0 0 000000032277 0 312000032277
FT0 031774 032277 0 0 000000000777 0 312000032277
FT1A 031774 032277 0 0 000000000777 0 000000000777
FT2 031774 032277 0 0 0 0 000000000777
FT2RQ 031774 032277 0 0 000000000777 0 000000000777
FT3 031774 032277 0 0 000000000777 0 000000000777
FT9 031775 032277 0 0 000000000777 0 000000000777
ET0 031776 032277 0 0 0 0 000000000777
ST1A 031776 032277 0 0 0 0 000000000777
ST9 031776 032277 0 0 0 0 000000000777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 202
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0291
*031776 JUMPA 0,031777
INITIAL
C(AC)=000000 000777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031776 031776 0 0 324000031777 0 000000031777
IT1 031776 0 0 0 324000031777 0 000000031777
AT3 031776 0 0 0 000000031777 0 324000031777
AT6 031776 031777 0 0 000000031777 0 324000031777
FT1A 031776 031777 0 0 000000031777 0 000000031777
FT2 031776 031777 0 0 0 0 000000031777
FT2RQ 031776 031777 0 0 000000000777 0 000000031777
FT3 031776 031777 0 0 000000000777 0 000000031777
FT9 031777 031777 0 0 000000000777 0 000000031777
ET0 031777 031777 0 0 000000000777 0 000000031777
ST1A 031777 031777 0 0 000000000777 0 000000031777
ST9 031777 031777 0 0 000000000777 0 000000031777
*031777 CAME 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 031777 031777 0 0 312040032254 0 172737405060
IT1 031777 0 0 0 312040032254 0 172737405060
AT3 031777 0 0 0 000000032254 0 312040032254
AT6 031777 032254 0 0 000000032254 0 312040032254
FT0 031777 032254 0 0 172737405060 0 312040032254
FT1A 031777 032254 0 0 172737405060 0 172737405060
FT2 031777 032254 0 0 0 0 172737405060
FT2RQ 031777 032254 0 0 172737405060 0 172737405060
FT3 031777 032254 0 0 172737405060 0 172737405060
FT9 0 032254 0 0 172737405060 0 172737405060
ET0 032001 032254 0 0 0 0 172737405060
ST1A 032001 032254 0 0 0 0 172737405060
ST9 032001 032254 0 0 0 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 203
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0292
*032001 JUMPA 0,032002
INITIAL
C(AC)=000000 000777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032001 032001 0 0 324000032002 0 000000032002
IT1 032001 0 0 0 324000032002 0 000000032002
AT3 032001 0 0 0 000000032002 0 324000032002
AT6 032001 032002 0 0 000000032002 0 324000032002
FT1A 032001 032002 0 0 000000032002 0 000000032002
FT2 032001 032002 0 0 0 0 000000032002
FT2RQ 032001 032002 0 0 000000000777 0 000000032002
FT3 032001 032002 0 0 000000000777 0 000000032002
FT9 032002 032002 0 0 000000000777 0 000000032002
ET0 032002 032002 0 0 000000000777 0 000000032002
ST1A 032002 032002 0 0 000000000777 0 000000032002
ST9 032002 032002 0 0 000000000777 0 000000032002
*032002 MOVE 0,032255
INITIAL
C(AC)=000000 000777
C(E)=252525 252525
FINAL
C(AC)=252525 252525
TIME PC MA SC FE AR MQ BR
IT0 032002 032002 0 0 200000032255 0 252525252525
IT1 032002 0 0 0 200000032255 0 252525252525
AT3 032002 0 0 0 000000032255 0 200000032255
AT6 032002 032255 0 0 000000032255 0 200000032255
FT0 032002 032255 0 0 252525252525 0 200000032255
FT1A 032002 032255 0 0 252525252525 0 252525252525
FT9 032003 032255 0 0 252525252525 0 252525252525
ET0 032003 032255 0 0 252525252525 0 252525252525
ST1 032003 032255 0 0 252525252525 0 252525252525
ST2 032003 032255 0 0 252525252525 0 252525252525
ST9 032003 032255 0 0 252525252525 0 252525252525
*032003 MOVE 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032003 032003 0 0 200040032254 0 172737405060
IT1 032003 0 0 0 200040032254 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 204
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0293
AT3 032003 0 0 0 000000032254 0 200040032254
AT6 032003 032254 0 0 000000032254 0 200040032254
FT0 032003 032254 0 0 172737405060 0 200040032254
FT1A 032003 032254 0 0 172737405060 0 172737405060
FT9 032004 032254 0 0 172737405060 0 172737405060
ET0 032004 032254 0 0 172737405060 0 172737405060
ST1 032004 032254 0 0 172737405060 0 172737405060
ST2 032004 032254 0 0 172737405060 0 172737405060
ST9 032004 032254 0 0 172737405060 0 172737405060
*032004 LSH 0,777745
INITIAL
C(AC)=252525 252525
FINAL
C(AC)=000000 000252
TIME PC MA SC FE AR MQ BR
IT0 032004 032004 0 0 242000777745 0 000000777745
IT1 032004 0 0 0 242000777745 0 000000777745
AT3 032004 0 0 0 000000777745 0 242000777745
AT6 032004 777745 0 0 000000777745 0 242000777745
FT1A 032004 777745 0 0 000000777745 0 000000777745
FT2 032004 777745 0 0 0 0 000000777745
FT2RQ 032004 777745 0 0 252525252525 0 000000777745
FT3 032004 777745 0 0 252525252525 0 000000777745
FT9 032005 777745 0 0 252525252525 0 000000777745
ET0 032005 777745 745 0 252525252525 0 000000777745
SCT0 032005 777745 745 0 252525252525 0 000000777745
SCT3 032005 777745 746 0 125252525252 0 000000777745
SCT3 032005 777745 747 0 052525252525 0 000000777745
SCT3 032005 777745 0 0 025252525252 0 000000777745
SCT3 032005 777745 751 0 012525252525 0 000000777745
SCT3 032005 777745 752 0 005252525252 0 000000777745
SCT3 032005 777745 753 0 002525252525 0 000000777745
SCT3 032005 777745 754 0 001252525252 0 000000777745
SCT3 032005 777745 755 0 000525252525 0 000000777745
SCT3 032005 777745 756 0 000252525252 0 000000777745
SCT3 032005 777745 757 0 000125252525 0 000000777745
SCT3 032005 777745 0 0 000052525252 0 000000777745
SCT3 032005 777745 761 0 000025252525 0 000000777745
SCT3 032005 777745 762 0 000012525252 0 000000777745
SCT3 032005 777745 763 0 000005252525 0 000000777745
SCT3 032005 777745 764 0 000002525252 0 000000777745
SCT3 032005 777745 765 0 000001252525 0 000000777745
SCT3 032005 777745 766 0 000000525252 0 000000777745
SCT3 032005 777745 767 0 000000252525 0 000000777745
SCT3 032005 777745 0 0 000000125252 0 000000777745
SCT3 032005 777745 771 0 000000052525 0 000000777745
SCT3 032005 777745 772 0 000000025252 0 000000777745
SCT3 032005 777745 773 0 000000012525 0 000000777745
SCT3 032005 777745 774 0 000000005252 0 000000777745
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 205
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0294
SCT3 032005 777745 775 0 000000002525 0 000000777745
SCT3 032005 777745 776 0 000000001252 0 000000777745
SCT3 032005 777745 777 0 000000000525 0 000000777745
SCT3 032005 777745 0 0 000000000252 0 000000777745
SCT4 032005 777745 0 0 000000000252 0 000000777745
ST0 032005 777745 0 0 000000000252 0 000000777745
ST1 032005 777745 0 0 000000000252 0 000000777745
ST2 032005 777745 0 0 000000000252 0 000000777745
ST9 032005 777745 0 0 000000000252 0 000000777745
*032005 CAME 0,032300
INITIAL
C(AC)=000000 000252
C(E)=000000 000252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032005 032005 0 0 312000032300 0 000000000252
IT1 032005 0 0 0 312000032300 0 000000000252
AT3 032005 0 0 0 000000032300 0 312000032300
AT6 032005 0 0 0 000000032300 0 312000032300
FT0 032005 0 0 0 000000000252 0 312000032300
FT1A 032005 0 0 0 000000000252 0 000000000252
FT2 032005 0 0 0 0 0 000000000252
FT2RQ 032005 0 0 0 000000000252 0 000000000252
FT3 032005 0 0 0 000000000252 0 000000000252
FT9 032006 0 0 0 000000000252 0 000000000252
ET0 032007 0 0 0 0 0 000000000252
ST1A 032007 0 0 0 0 0 000000000252
ST9 032007 0 0 0 0 0 000000000252
*032007 JUMPA 0,032010
INITIAL
C(AC)=000000 000252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032007 032007 0 0 324000032010 0 000000032010
IT1 032007 0 0 0 324000032010 0 000000032010
AT3 032007 0 0 0 000000032010 0 324000032010
AT6 032007 032010 0 0 000000032010 0 324000032010
FT1A 032007 032010 0 0 000000032010 0 000000032010
FT2 032007 032010 0 0 0 0 000000032010
FT2RQ 032007 032010 0 0 000000000252 0 000000032010
FT3 032007 032010 0 0 000000000252 0 000000032010
FT9 032010 032010 0 0 000000000252 0 000000032010
ET0 032010 032010 0 0 000000000252 0 000000032010
ST1A 032010 032010 0 0 000000000252 0 000000032010
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 206
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0295
ST9 032010 032010 0 0 000000000252 0 000000032010
*032010 CAME 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032010 032010 0 0 312040032254 0 172737405060
IT1 032010 0 0 0 312040032254 0 172737405060
AT3 032010 0 0 0 000000032254 0 312040032254
AT6 032010 032254 0 0 000000032254 0 312040032254
FT0 032010 032254 0 0 172737405060 0 312040032254
FT1A 032010 032254 0 0 172737405060 0 172737405060
FT2 032010 032254 0 0 0 0 172737405060
FT2RQ 032010 032254 0 0 172737405060 0 172737405060
FT3 032010 032254 0 0 172737405060 0 172737405060
FT9 032011 032254 0 0 172737405060 0 172737405060
ET0 032012 032254 0 0 0 0 172737405060
ST1A 032012 032254 0 0 0 0 172737405060
ST9 032012 032254 0 0 0 0 172737405060
*032012 JUMPA 0,032013
INITIAL
C(AC)=000000 000252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032012 032012 0 0 324000032013 0 000000032013
IT1 032012 0 0 0 324000032013 0 000000032013
AT3 032012 0 0 0 000000032013 0 324000032013
AT6 032012 032013 0 0 000000032013 0 324000032013
FT1A 032012 032013 0 0 000000032013 0 000000032013
FT2 032012 032013 0 0 0 0 000000032013
FT2RQ 032012 032013 0 0 000000000252 0 000000032013
FT3 032012 032013 0 0 000000000252 0 000000032013
FT9 032013 032013 0 0 000000000252 0 000000032013
ET0 032013 032013 0 0 000000000252 0 000000032013
ST1A 032013 032013 0 0 000000000252 0 000000032013
ST9 032013 032013 0 0 000000000252 0 000000032013
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 207
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0296
*032013 MOVE 0,032256
INITIAL
C(AC)=000000 000252
C(E)=525252 525252
FINAL
C(AC)=525252 525252
TIME PC MA SC FE AR MQ BR
IT0 032013 032013 0 0 200000032256 0 525252525252
IT1 032013 0 0 0 200000032256 0 525252525252
AT3 032013 0 0 0 000000032256 0 200000032256
AT6 032013 032256 0 0 000000032256 0 200000032256
FT0 032013 032256 0 0 525252525252 0 200000032256
FT1A 032013 032256 0 0 525252525252 0 525252525252
FT9 032014 032256 0 0 525252525252 0 525252525252
ET0 032014 032256 0 0 525252525252 0 525252525252
ST1 032014 032256 0 0 525252525252 0 525252525252
ST2 032014 032256 0 0 525252525252 0 525252525252
ST9 032014 032256 0 0 525252525252 0 525252525252
*032014 MOVE 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032014 032014 0 0 200040032254 0 172737405060
IT1 032014 0 0 0 200040032254 0 172737405060
AT3 032014 0 0 0 000000032254 0 200040032254
AT6 032014 032254 0 0 000000032254 0 200040032254
FT0 032014 032254 0 0 172737405060 0 200040032254
FT1A 032014 032254 0 0 172737405060 0 172737405060
FT9 032015 032254 0 0 172737405060 0 172737405060
ET0 032015 032254 0 0 172737405060 0 172737405060
ST1 032015 032254 0 0 172737405060 0 172737405060
ST2 032015 032254 0 0 172737405060 0 172737405060
ST9 032015 032254 0 0 172737405060 0 172737405060
*032015 LSH 0,777745
INITIAL
C(AC)=525252 525252
FINAL
C(AC)=000000 000525
TIME PC MA SC FE AR MQ BR
IT0 032015 032015 0 0 242000777745 0 000000777745
IT1 032015 0 0 0 242000777745 0 000000777745
AT3 032015 0 0 0 000000777745 0 242000777745
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 208
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0297
AT6 032015 777745 0 0 000000777745 0 242000777745
FT1A 032015 777745 0 0 000000777745 0 000000777745
FT2 032015 777745 0 0 0 0 000000777745
FT2RQ 032015 777745 0 0 525252525252 0 000000777745
FT3 032015 777745 0 0 525252525252 0 000000777745
FT9 032016 777745 0 0 525252525252 0 000000777745
ET0 032016 777745 745 0 525252525252 0 000000777745
SCT0 032016 777745 745 0 525252525252 0 000000777745
SCT3 032016 777745 746 0 252525252525 0 000000777745
SCT3 032016 777745 747 0 125252525252 0 000000777745
SCT3 032016 777745 0 0 052525252525 0 000000777745
SCT3 032016 777745 751 0 025252525252 0 000000777745
SCT3 032016 777745 752 0 012525252525 0 000000777745
SCT3 032016 777745 753 0 005252525252 0 000000777745
SCT3 032016 777745 754 0 002525252525 0 000000777745
SCT3 032016 777745 755 0 001252525252 0 000000777745
SCT3 032016 777745 756 0 000525252525 0 000000777745
SCT3 032016 777745 757 0 000252525252 0 000000777745
SCT3 032016 777745 0 0 000125252525 0 000000777745
SCT3 032016 777745 761 0 000052525252 0 000000777745
SCT3 032016 777745 762 0 000025252525 0 000000777745
SCT3 032016 777745 763 0 000012525252 0 000000777745
SCT3 032016 777745 764 0 000005252525 0 000000777745
SCT3 032016 777745 765 0 000002525252 0 000000777745
SCT3 032016 777745 766 0 000001252525 0 000000777745
SCT3 032016 777745 767 0 000000525252 0 000000777745
SCT3 032016 777745 0 0 000000252525 0 000000777745
SCT3 032016 777745 771 0 000000125252 0 000000777745
SCT3 032016 777745 772 0 000000052525 0 000000777745
SCT3 032016 777745 773 0 000000025252 0 000000777745
SCT3 032016 777745 774 0 000000012525 0 000000777745
SCT3 032016 777745 775 0 000000005252 0 000000777745
SCT3 032016 777745 776 0 000000002525 0 000000777745
SCT3 032016 777745 777 0 000000001252 0 000000777745
SCT3 032016 777745 0 0 000000000525 0 000000777745
SCT4 032016 777745 0 0 000000000525 0 000000777745
ST0 032016 777745 0 0 000000000525 0 000000777745
ST1 032016 777745 0 0 000000000525 0 000000777745
ST2 032016 777745 0 0 000000000525 0 000000777745
ST9 032016 777745 0 0 000000000525 0 000000777745
*032016 CAME 0,032301
INITIAL
C(AC)=000000 000525
C(E)=000000 000525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032016 032016 0 0 312000032301 0 000000000525
IT1 032016 0 0 0 312000032301 0 000000000525
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 209
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0298
AT3 032016 0 0 0 000000032301 0 312000032301
AT6 032016 032301 0 0 000000032301 0 312000032301
FT0 032016 032301 0 0 000000000525 0 312000032301
FT1A 032016 032301 0 0 000000000525 0 000000000525
FT2 032016 032301 0 0 0 0 000000000525
FT2RQ 032016 032301 0 0 000000000525 0 000000000525
FT3 032016 032301 0 0 000000000525 0 000000000525
FT9 032017 032301 0 0 000000000525 0 000000000525
ET0 032020 032301 0 0 0 0 000000000525
ST1A 032020 032301 0 0 0 0 000000000525
ST9 032020 032301 0 0 0 0 000000000525
*032020 JUMPA 0,032021
INITIAL
C(AC)=000000 000525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032020 032020 0 0 324000032021 0 000000032021
IT1 032020 0 0 0 324000032021 0 000000032021
AT3 032020 0 0 0 000000032021 0 324000032021
AT6 032020 032021 0 0 000000032021 0 324000032021
FT1A 032020 032021 0 0 000000032021 0 000000032021
FT2 032020 032021 0 0 0 0 000000032021
FT2RQ 032020 032021 0 0 000000000525 0 000000032021
FT3 032020 032021 0 0 000000000525 0 000000032021
FT9 032021 032021 0 0 000000000525 0 000000032021
ET0 032021 032021 0 0 000000000525 0 000000032021
ST1A 032021 032021 0 0 000000000525 0 000000032021
ST9 032021 032021 0 0 000000000525 0 000000032021
*032021 CAME 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032021 032021 0 0 312040032254 0 172737405060
IT1 032021 0 0 0 312040032254 0 172737405060
AT3 032021 0 0 0 000000032254 0 312040032254
AT6 032021 032254 0 0 000000032254 0 312040032254
FT0 032021 032254 0 0 172737405060 0 312040032254
FT1A 032021 032254 0 0 172737405060 0 172737405060
FT2 032021 032254 0 0 0 0 172737405060
FT2RQ 032021 032254 0 0 172737405060 0 172737405060
FT3 032021 032254 0 0 172737405060 0 172737405060
FT9 032022 032254 0 0 172737405060 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 210
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0299
ET0 032023 032254 0 0 0 0 172737405060
ST1A 032023 032254 0 0 0 0 172737405060
ST9 032023 032254 0 0 0 0 172737405060
*032023 JUMPA 0,032024
INITIAL
C(AC)=000000 000525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032023 032023 0 0 324000032024 0 000000032024
IT1 032023 0 0 0 324000032024 0 000000032024
AT3 032023 0 0 0 000000032024 0 324000032024
AT6 032023 032024 0 0 000000032024 0 324000032024
FT1A 032023 032024 0 0 000000032024 0 000000032024
FT2 032023 032024 0 0 0 0 000000032024
FT2RQ 032023 032024 0 0 000000000525 0 000000032024
FT3 032023 032024 0 0 000000000525 0 000000032024
FT9 032024 032024 0 0 000000000525 0 000000032024
ET0 032024 032024 0 0 000000000525 0 000000032024
ST1A 032024 032024 0 0 000000000525 0 000000032024
ST9 032024 032024 0 0 000000000525 0 000000032024
*032024 MOVE 0,032257
INITIAL
C(AC)=000000 000525
C(E)=230703 603700
FINAL
C(AC)=230703 603700
TIME PC MA SC FE AR MQ BR
IT0 032024 032024 0 0 200000032257 0 230703603700
IT1 032024 0 0 0 200000032257 0 230703603700
AT3 032024 0 0 0 000000032257 0 200000032257
AT6 032024 032257 0 0 000000032257 0 200000032257
FT0 032024 032257 0 0 230703603700 0 200000032257
FT1A 032024 032257 0 0 230703603700 0 230703603700
FT9 032025 032257 0 0 230703603700 0 230703603700
ET0 032025 032257 0 0 230703603700 0 230703603700
ST1 032025 032257 0 0 230703603700 0 230703603700
ST2 032025 032257 0 0 230703603700 0 230703603700
ST9 032025 032257 0 0 230703603700 0 230703603700
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 211
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0300
*032025 MOVE 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032025 032025 0 0 200040032254 0 172737405060
IT1 032025 0 0 0 200040032254 0 172737405060
AT3 032025 0 0 0 000000032254 0 200040032254
AT6 032025 032254 0 0 000000032254 0 200040032254
FT0 032025 032254 0 0 172737405060 0 200040032254
FT1A 032025 032254 0 0 172737405060 0 172737405060
FT9 032026 032254 0 0 172737405060 0 172737405060
ET0 032026 032254 0 0 172737405060 0 172737405060
ST1 032026 032254 0 0 172737405060 0 172737405060
ST2 032026 032254 0 0 172737405060 0 172737405060
ST9 032026 032254 0 0 172737405060 0 172737405060
*032026 LSH 0,777745
INITIAL
C(AC)=230703 603700
FINAL
C(AC)=000000 000230
TIME PC MA SC FE AR MQ BR
IT0 032026 032026 0 0 242000777745 0 000000777745
IT1 032026 0 0 0 242000777745 0 000000777745
AT3 032026 0 0 0 000000777745 0 242000777745
AT6 032026 777745 0 0 000000777745 0 242000777745
FT1A 032026 777745 0 0 000000777745 0 000000777745
FT2 032026 777745 0 0 0 0 000000777745
FT2RQ 032026 777745 0 0 230703603700 0 000000777745
FT3 032026 777745 0 0 230703603700 0 000000777745
FT9 032027 777745 0 0 230703603700 0 000000777745
ET0 032027 777745 745 0 230703603700 0 000000777745
SCT0 032027 777745 745 0 230703603700 0 000000777745
SCT3 032027 777745 746 0 114341701740 0 000000777745
SCT3 032027 777745 747 0 046160740760 0 000000777745
SCT3 032027 777745 0 0 023070360370 0 000000777745
SCT3 032027 777745 751 0 011434170174 0 000000777745
SCT3 032027 777745 752 0 004616074076 0 000000777745
SCT3 032027 777745 753 0 002307036037 0 000000777745
SCT3 032027 777745 754 0 001143417017 0 000000777745
SCT3 032027 777745 755 0 000461607407 0 000000777745
SCT3 032027 777745 756 0 000230703603 0 000000777745
SCT3 032027 777745 757 0 000114341701 0 000000777745
SCT3 032027 777745 0 0 000046160740 0 000000777745
SCT3 032027 777745 761 0 000023070360 0 000000777745
SCT3 032027 777745 762 0 000011434170 0 000000777745
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 212
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0301
SCT3 032027 777745 763 0 000004616074 0 000000777745
SCT3 032027 777745 764 0 000002307036 0 000000777745
SCT3 032027 777745 765 0 000001143417 0 000000777745
SCT3 032027 777745 766 0 000000461607 0 000000777745
SCT3 032027 777745 767 0 000000230703 0 000000777745
SCT3 032027 777745 0 0 000000114341 0 000000777745
SCT3 032027 777745 771 0 000000046160 0 000000777745
SCT3 032027 777745 772 0 000000023070 0 000000777745
SCT3 032027 777745 773 0 000000011434 0 000000777745
SCT3 032027 777745 774 0 000000004616 0 000000777745
SCT3 032027 777745 775 0 000000002307 0 000000777745
SCT3 032027 777745 776 0 000000001143 0 000000777745
SCT3 032027 777745 777 0 000000000461 0 000000777745
SCT3 032027 777745 0 0 000000000230 0 000000777745
SCT4 032027 777745 0 0 000000000230 0 000000777745
ST0 032027 777745 0 0 000000000230 0 000000777745
ST1 032027 777745 0 0 000000000230 0 000000777745
ST2 032027 777745 0 0 000000000230 0 000000777745
ST9 032027 777745 0 0 000000000230 0 000000777745
*032027 CAME 0,032302
INITIAL
C(AC)=000000 000230
C(E)=000000 000230
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032027 032027 0 0 312000032302 0 000000000230
IT1 032027 0 0 0 312000032302 0 000000000230
AT3 032027 0 0 0 000000032302 0 312000032302
AT6 032027 032302 0 0 000000032302 0 312000032302
FT0 032027 032302 0 0 000000000230 0 312000032302
FT1A 032027 032302 0 0 000000000230 0 000000000230
FT2 032027 032302 0 0 0 0 000000000230
FT2RQ 032027 032302 0 0 000000000230 0 000000000230
FT3 032027 032302 0 0 000000000230 0 000000000230
FT9 032030 032302 0 0 000000000230 0 000000000230
ET0 032031 032302 0 0 0 0 000000000230
ST1A 032031 032302 0 0 0 0 000000000230
ST9 032031 032302 0 0 0 0 000000000230
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 213
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0302
*032031 JUMPA 0,032032
INITIAL
C(AC)=000000 000230
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032031 032031 0 0 324000032032 0 000000032032
IT1 032031 0 0 0 324000032032 0 000000032032
AT3 032031 0 0 0 000000032032 0 324000032032
AT6 032031 032032 0 0 000000032032 0 324000032032
FT1A 032031 032032 0 0 000000032032 0 000000032032
FT2 032031 032032 0 0 0 0 000000032032
FT2RQ 032031 032032 0 0 000000000230 0 000000032032
FT3 032031 032032 0 0 000000000230 0 000000032032
FT9 032032 032032 0 0 000000000230 0 000000032032
ET0 032032 032032 0 0 000000000230 0 000000032032
ST1A 032032 032032 0 0 000000000230 0 000000032032
ST9 032032 032032 0 0 000000000230 0 000000032032
*032032 CAME 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032032 032032 0 0 312040032254 0 172737405060
IT1 032032 0 0 0 312040032254 0 172737405060
AT3 032032 0 0 0 000000032254 0 312040032254
AT6 032032 032254 0 0 000000032254 0 312040032254
FT0 032032 032254 0 0 172737405060 0 312040032254
FT1A 032032 032254 0 0 172737405060 0 172737405060
FT2 032032 032254 0 0 0 0 172737405060
FT2RQ 032032 032254 0 0 172737405060 0 172737405060
FT3 032032 032254 0 0 172737405060 0 172737405060
FT9 032033 032254 0 0 172737405060 0 172737405060
ET0 032034 032254 0 0 0 0 172737405060
ST1A 032034 032254 0 0 0 0 172737405060
ST9 032034 032254 0 0 0 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 214
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0303
*032034 JUMPA 0,032035
INITIAL
C(AC)=000000 000230
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032034 032034 0 0 324000032035 0 000000032035
IT1 032034 0 0 0 324000032035 0 000000032035
AT3 032034 0 0 0 000000032035 0 324000032035
AT6 032034 032035 0 0 000000032035 0 324000032035
FT1A 032034 032035 0 0 000000032035 0 000000032035
FT2 032034 032035 0 0 0 0 000000032035
FT2RQ 032034 032035 0 0 000000000230 0 000000032035
FT3 032034 032035 0 0 000000000230 0 000000032035
FT9 032035 032035 0 0 000000000230 0 000000032035
ET0 032035 032035 0 0 000000000230 0 000000032035
ST1A 032035 032035 0 0 000000000230 0 000000032035
ST9 032035 032035 0 0 000000000230 0 000000032035
*032035 MOVE 0,032261
INITIAL
C(AC)=000000 000230
C(E)=007603 607062
FINAL
C(AC)=007603 607062
TIME PC MA SC FE AR MQ BR
IT0 032035 032035 0 0 200000032261 0 007603607062
IT1 032035 0 0 0 200000032261 0 007603607062
AT3 032035 0 0 0 000000032261 0 200000032261
AT6 032035 032261 0 0 000000032261 0 200000032261
FT0 032035 032261 0 0 007603607062 0 200000032261
FT1A 032035 032261 0 0 007603607062 0 007603607062
FT9 032036 032261 0 0 007603607062 0 007603607062
ET0 032036 032261 0 0 007603607062 0 007603607062
ST1 032036 032261 0 0 007603607062 0 007603607062
ST2 032036 032261 0 0 007603607062 0 007603607062
ST9 032036 032261 0 0 007603607062 0 007603607062
*032036 MOVE 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032036 032036 0 0 200040032254 0 172737405060
IT1 032036 0 0 0 200040032254 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 215
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0304
AT3 032036 0 0 0 000000032254 0 200040032254
AT6 032036 032254 0 0 000000032254 0 200040032254
FT0 032036 032254 0 0 172737405060 0 200040032254
FT1A 032036 032254 0 0 172737405060 0 172737405060
FT9 032037 032254 0 0 172737405060 0 172737405060
ET0 032037 032254 0 0 172737405060 0 172737405060
ST1 032037 032254 0 0 172737405060 0 172737405060
ST2 032037 032254 0 0 172737405060 0 172737405060
ST9 032037 032254 0 0 172737405060 0 172737405060
*032037 LSH 0,777745
INITIAL
C(AC)=007603 607062
FINAL
C(AC)=000000 000007
TIME PC MA SC FE AR MQ BR
IT0 032037 032037 0 0 242000777745 0 000000777745
IT1 032037 0 0 0 242000777745 0 000000777745
AT3 032037 0 0 0 000000777745 0 242000777745
AT6 032037 777745 0 0 000000777745 0 242000777745
FT1A 032037 777745 0 0 000000777745 0 000000777745
FT2 032037 777745 0 0 0 0 000000777745
FT2RQ 032037 777745 0 0 007603607062 0 000000777745
FT3 032037 777745 0 0 007603607062 0 000000777745
FT9 032040 777745 0 0 007603607062 0 000000777745
ET0 032040 777745 745 0 007603607062 0 000000777745
SCT0 032040 777745 745 0 007603607062 0 000000777745
SCT3 032040 777745 746 0 003701703431 0 000000777745
SCT3 032040 777745 747 0 001740741614 0 000000777745
SCT3 032040 777745 0 0 000760360706 0 000000777745
SCT3 032040 777745 751 0 000370170343 0 000000777745
SCT3 032040 777745 752 0 000174074161 0 000000777745
SCT3 032040 777745 753 0 000076036070 0 000000777745
SCT3 032040 777745 754 0 000037017034 0 000000777745
SCT3 032040 777745 755 0 000017407416 0 000000777745
SCT3 032040 777745 756 0 000007603607 0 000000777745
SCT3 032040 777745 757 0 000003701703 0 000000777745
SCT3 032040 777745 0 0 000001740741 0 000000777745
SCT3 032040 777745 761 0 000000760360 0 000000777745
SCT3 032040 777745 762 0 000000370170 0 000000777745
SCT3 032040 777745 763 0 000000174074 0 000000777745
SCT3 032040 777745 764 0 000000076036 0 000000777745
SCT3 032040 777745 765 0 000000037017 0 000000777745
SCT3 032040 777745 766 0 000000017407 0 000000777745
SCT3 032040 777745 767 0 000000007603 0 000000777745
SCT3 032040 777745 0 0 000000003701 0 000000777745
SCT3 032040 777745 771 0 000000001740 0 000000777745
SCT3 032040 777745 772 0 000000000760 0 000000777745
SCT3 032040 777745 773 0 000000000370 0 000000777745
SCT3 032040 777745 774 0 000000000174 0 000000777745
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 216
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0305
SCT3 032040 777745 775 0 000000000076 0 000000777745
SCT3 032040 777745 776 0 000000000037 0 000000777745
SCT3 032040 777745 777 0 000000000017 0 000000777745
SCT3 032040 777745 0 0 000000000007 0 000000777745
SCT4 032040 777745 0 0 000000000007 0 000000777745
ST0 032040 777745 0 0 000000000007 0 000000777745
ST1 032040 777745 0 0 000000000007 0 000000777745
ST2 032040 777745 0 0 000000000007 0 000000777745
ST9 032040 777745 0 0 000000000007 0 000000777745
*032040 CAME 0,032252
INITIAL
C(AC)=000000 000007
C(E)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032040 032040 0 0 312000032252 0 000000000007
IT1 032040 0 0 0 312000032252 0 000000000007
AT3 032040 0 0 0 000000032252 0 312000032252
AT6 032040 032252 0 0 000000032252 0 312000032252
FT0 032040 032252 0 0 000000000007 0 312000032252
FT1A 032040 032252 0 0 000000000007 0 000000000007
FT2 032040 032252 0 0 0 0 000000000007
FT2RQ 032040 032252 0 0 000000000007 0 000000000007
FT3 032040 032252 0 0 000000000007 0 000000000007
FT9 032041 032252 0 0 000000000007 0 000000000007
ET0 032042 032252 0 0 0 0 000000000007
ST1A 032042 032252 0 0 0 0 000000000007
ST9 032042 032252 0 0 0 0 000000000007
*032042 JUMPA 0,032043
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032042 032042 0 0 324000032043 0 000000032043
IT1 032042 0 0 0 324000032043 0 000000032043
AT3 032042 0 0 0 000000032043 0 324000032043
AT6 032042 032043 0 0 000000032043 0 324000032043
FT1A 032042 032043 0 0 000000032043 0 000000032043
FT2 032042 032043 0 0 0 0 000000032043
FT2RQ 032042 032043 0 0 000000000007 0 000000032043
FT3 032042 032043 0 0 000000000007 0 000000032043
FT9 032043 032043 0 0 000000000007 0 000000032043
ET0 032043 032043 0 0 000000000007 0 000000032043
ST1A 032043 032043 0 0 000000000007 0 000000032043
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 217
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0306
ST9 032043 032043 0 0 000000000007 0 000000032043
*032043 CAME 1,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032043 032043 0 0 312040032254 0 172737405060
IT1 032043 0 0 0 312040032254 0 172737405060
AT3 032043 0 0 0 000000032254 0 312040032254
AT6 032043 032254 0 0 000000032254 0 312040032254
FT0 032043 032254 0 0 172737405060 0 312040032254
FT1A 032043 032254 0 0 172737405060 0 172737405060
FT2 032043 032254 0 0 0 0 172737405060
FT2RQ 032043 032254 0 0 172737405060 0 172737405060
FT3 032043 032254 0 0 172737405060 0 172737405060
FT9 032044 032254 0 0 172737405060 0 172737405060
ET0 032045 032254 0 0 0 0 172737405060
ST1A 032045 032254 0 0 0 0 172737405060
ST9 032045 032254 0 0 0 0 172737405060
*032045 JUMPA 0,032046
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032045 032045 0 0 324000032046 0 000000032046
IT1 032045 0 0 0 324000032046 0 000000032046
AT3 032045 0 0 0 000000032046 0 324000032046
AT6 032045 032046 0 0 000000032046 0 324000032046
FT1A 032045 032046 0 0 000000032046 0 000000032046
FT2 032045 032046 0 0 0 0 000000032046
FT2RQ 032045 032046 0 0 000000000007 0 000000032046
FT3 032045 032046 0 0 000000000007 0 000000032046
FT9 032046 032046 0 0 000000000007 0 000000032046
ET0 032046 032046 0 0 000000000007 0 000000032046
ST1A 032046 032046 0 0 000000000007 0 000000032046
ST9 032046 032046 0 0 000000000007 0 000000032046
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 218
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0307
*032046 MOVE 1,032227
INITIAL
C(AC)=172737 405060
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 032046 032046 0 0 200040032227 0 0
IT1 032046 0 0 0 200040032227 0 0
AT3 032046 0 0 0 000000032227 0 200040032227
AT6 032046 032227 0 0 000000032227 0 200040032227
FT0 032046 032227 0 0 0 0 200040032227
FT1A 032046 032227 0 0 0 0 0
FT9 032047 032227 0 0 0 0 0
ET0 032047 032227 0 0 0 0 0
ST1 032047 032227 0 0 0 0 0
ST2 032047 032227 0 0 0 0 0
ST9 032047 032227 0 0 0 0 0
*032047 MOVE 2,032254
INITIAL
C(AC)=074161 440174
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032047 032047 0 0 200100032254 0 172737405060
IT1 032047 0 0 0 200100032254 0 172737405060
AT3 032047 0 0 0 000000032254 0 200100032254
AT6 032047 032254 0 0 000000032254 0 200100032254
FT0 032047 032254 0 0 172737405060 0 200100032254
FT1A 032047 032254 0 0 172737405060 0 172737405060
FT9 032050 032254 0 0 172737405060 0 172737405060
ET0 032050 032254 0 0 172737405060 0 172737405060
ST1 032050 032254 0 0 172737405060 0 172737405060
ST2 032050 032254 0 0 172737405060 0 172737405060
ST9 032050 032254 0 0 172737405060 0 172737405060
*032050 LSH 1,777751
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 032050 032050 0 0 242040777751 0 000000777751
IT1 032050 0 0 0 242040777751 0 000000777751
AT3 032050 0 0 0 000000777751 0 242040777751
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 219
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0308
AT6 032050 777751 0 0 000000777751 0 242040777751
FT1A 032050 777751 0 0 000000777751 0 000000777751
FT2 032050 777751 0 0 0 0 000000777751
FT2RQ 032050 777751 0 0 0 0 000000777751
FT3 032050 777751 0 0 0 0 000000777751
FT9 032051 777751 0 0 0 0 000000777751
ET0 032051 777751 751 0 0 0 000000777751
SCT0 032051 777751 751 0 0 0 000000777751
SCT3 032051 777751 752 0 0 0 000000777751
SCT3 032051 777751 753 0 0 0 000000777751
SCT3 032051 777751 754 0 0 0 000000777751
SCT3 032051 777751 755 0 0 0 000000777751
SCT3 032051 777751 756 0 0 0 000000777751
SCT3 032051 777751 757 0 0 0 000000777751
SCT3 032051 777751 0 0 0 0 000000777751
SCT3 032051 777751 761 0 0 0 000000777751
SCT3 032051 777751 762 0 0 0 000000777751
SCT3 032051 777751 763 0 0 0 000000777751
SCT3 032051 777751 764 0 0 0 000000777751
SCT3 032051 777751 765 0 0 0 000000777751
SCT3 032051 777751 766 0 0 0 000000777751
SCT3 032051 777751 767 0 0 0 000000777751
SCT3 032051 777751 0 0 0 0 000000777751
SCT3 032051 777751 771 0 0 0 000000777751
SCT3 032051 777751 772 0 0 0 000000777751
SCT3 032051 777751 773 0 0 0 000000777751
SCT3 032051 777751 774 0 0 0 000000777751
SCT3 032051 777751 775 0 0 0 000000777751
SCT3 032051 777751 776 0 0 0 000000777751
SCT3 032051 777751 777 0 0 0 000000777751
SCT3 032051 777751 0 0 0 0 000000777751
SCT4 032051 777751 0 0 0 0 000000777751
ST0 032051 777751 0 0 0 0 000000777751
ST1 032051 777751 0 0 0 0 000000777751
ST2 032051 777751 0 0 0 0 000000777751
ST9 032051 777751 0 0 0 0 000000777751
*032051 CAME 1,032227
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032051 032051 0 0 312040032227 0 0
IT1 032051 0 0 0 312040032227 0 0
AT3 032051 0 0 0 000000032227 0 312040032227
AT6 032051 032227 0 0 000000032227 0 312040032227
FT0 032051 032227 0 0 0 0 312040032227
FT1A 032051 032227 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 220
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0309
FT2 032051 032227 0 0 0 0 0
FT2RQ 032051 032227 0 0 0 0 0
FT3 032051 032227 0 0 0 0 0
FT9 032052 032227 0 0 0 0 0
ET0 032053 032227 0 0 0 0 0
ST1A 032053 032227 0 0 0 0 0
ST9 032053 032227 0 0 0 0 0
*032053 JUMPA 0,032054
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032053 032053 0 0 324000032054 0 000000032054
IT1 032053 0 0 0 324000032054 0 000000032054
AT3 032053 0 0 0 000000032054 0 324000032054
AT6 032053 032054 0 0 000000032054 0 324000032054
FT1A 032053 032054 0 0 000000032054 0 000000032054
FT2 032053 032054 0 0 0 0 000000032054
FT2RQ 032053 032054 0 0 000000000007 0 000000032054
FT3 032053 032054 0 0 000000000007 0 000000032054
FT9 032054 032054 0 0 000000000007 0 000000032054
ET0 032054 032054 0 0 000000000007 0 000000032054
ST1A 032054 032054 0 0 000000000007 0 000000032054
ST9 032054 032054 0 0 000000000007 0 000000032054
*032054 CAME 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032054 032054 0 0 312100032254 0 172737405060
IT1 032054 0 0 0 312100032254 0 172737405060
AT3 032054 0 0 0 000000032254 0 312100032254
AT6 032054 032254 0 0 000000032254 0 312100032254
FT0 032054 032254 0 0 172737405060 0 312100032254
FT1A 032054 032254 0 0 172737405060 0 172737405060
FT2 032054 032254 0 0 0 0 172737405060
FT2RQ 032054 032254 0 0 172737405060 0 172737405060
FT3 032054 032254 0 0 172737405060 0 172737405060
FT9 032055 032254 0 0 172737405060 0 172737405060
ET0 032056 032254 0 0 0 0 172737405060
ST1A 032056 032254 0 0 0 0 172737405060
ST9 032056 032254 0 0 0 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 221
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0310
*032056 JUMPA 0,032057
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032056 032056 0 0 324000032057 0 000000032057
IT1 032056 0 0 0 324000032057 0 000000032057
AT3 032056 0 0 0 000000032057 0 324000032057
AT6 032056 032057 0 0 000000032057 0 324000032057
FT1A 032056 032057 0 0 000000032057 0 000000032057
FT2 032056 032057 0 0 0 0 000000032057
FT2RQ 032056 032057 0 0 000000000007 0 000000032057
FT3 032056 032057 0 0 000000000007 0 000000032057
FT9 032057 032057 0 0 000000000007 0 000000032057
ET0 032057 032057 0 0 000000000007 0 000000032057
ST1A 032057 032057 0 0 000000000007 0 000000032057
ST9 032057 032057 0 0 000000000007 0 000000032057
*032057 MOVE 1,032226
INITIAL
C(AC)=000000 000000
C(E)=777777 777777
FINAL
C(AC)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 032057 032057 0 0 200040032226 0 777777777777
IT1 032057 0 0 0 200040032226 0 777777777777
AT3 032057 0 0 0 000000032226 0 200040032226
AT6 032057 032226 0 0 000000032226 0 200040032226
FT0 032057 032226 0 0 777777777777 0 200040032226
FT1A 032057 032226 0 0 777777777777 0 777777777777
FT9 032060 032226 0 0 777777777777 0 777777777777
ET0 032060 032226 0 0 777777777777 0 777777777777
ST1 032060 032226 0 0 777777777777 0 777777777777
ST2 032060 032226 0 0 777777777777 0 777777777777
ST9 032060 032226 0 0 777777777777 0 777777777777
*032060 MOVE 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032060 032060 0 0 200100032254 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 222
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0311
IT1 032060 0 0 0 200100032254 0 172737405060
AT3 032060 0 0 0 000000032254 0 200100032254
AT6 032060 032254 0 0 000000032254 0 200100032254
FT0 032060 032254 0 0 172737405060 0 200100032254
FT1A 032060 032254 0 0 172737405060 0 172737405060
FT9 032061 032254 0 0 172737405060 0 172737405060
ET0 032061 032254 0 0 172737405060 0 172737405060
ST1 032061 032254 0 0 172737405060 0 172737405060
ST2 032061 032254 0 0 172737405060 0 172737405060
ST9 032061 032254 0 0 172737405060 0 172737405060
*032061 LSH 1,777751
INITIAL
C(AC)=777777 777777
FINAL
C(AC)=000000 017777
TIME PC MA SC FE AR MQ BR
IT0 032061 032061 0 0 242040777751 0 000000777751
IT1 032061 0 0 0 242040777751 0 000000777751
AT3 032061 0 0 0 000000777751 0 242040777751
AT6 032061 777751 0 0 000000777751 0 242040777751
FT1A 032061 777751 0 0 000000777751 0 000000777751
FT2 032061 777751 0 0 0 0 000000777751
FT2RQ 032061 777751 0 0 777777777777 0 000000777751
FT3 032061 777751 0 0 777777777777 0 000000777751
FT9 032062 777751 0 0 777777777777 0 000000777751
ET0 032062 777751 751 0 777777777777 0 000000777751
SCT0 032062 777751 751 0 777777777777 0 000000777751
SCT3 032062 777751 752 0 377777777777 0 000000777751
SCT3 032062 777751 753 0 177777777777 0 000000777751
SCT3 032062 777751 754 0 077777777777 0 000000777751
SCT3 032062 777751 755 0 037777777777 0 000000777751
SCT3 032062 777751 756 0 017777777777 0 000000777751
SCT3 032062 777751 757 0 007777777777 0 000000777751
SCT3 032062 777751 0 0 003777777777 0 000000777751
SCT3 032062 777751 761 0 001777777777 0 000000777751
SCT3 032062 777751 762 0 000777777777 0 000000777751
SCT3 032062 777751 763 0 000377777777 0 000000777751
SCT3 032062 777751 764 0 000177777777 0 000000777751
SCT3 032062 777751 765 0 000077777777 0 000000777751
SCT3 032062 777751 766 0 000037777777 0 000000777751
SCT3 032062 777751 767 0 000017777777 0 000000777751
SCT3 032062 777751 0 0 000007777777 0 000000777751
SCT3 032062 777751 771 0 000003777777 0 000000777751
SCT3 032062 777751 772 0 000001777777 0 000000777751
SCT3 032062 777751 773 0 000000777777 0 000000777751
SCT3 032062 777751 774 0 000000377777 0 000000777751
SCT3 032062 777751 775 0 000000177777 0 000000777751
SCT3 032062 777751 776 0 000000077777 0 000000777751
SCT3 032062 777751 777 0 000000037777 0 000000777751
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 223
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0312
SCT3 032062 777751 0 0 000000017777 0 000000777751
SCT4 032062 777751 0 0 000000017777 0 000000777751
ST0 032062 777751 0 0 000000017777 0 000000777751
ST1 032062 777751 0 0 000000017777 0 000000777751
ST2 032062 777751 0 0 000000017777 0 000000777751
ST9 032062 777751 0 0 000000017777 0 000000777751
*032062 CAME 1,032303
INITIAL
C(AC)=000000 017777
C(E)=000000 017777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032062 032062 0 0 312040032303 0 000000017777
IT1 032062 0 0 0 312040032303 0 000000017777
AT3 032062 0 0 0 000000032303 0 312040032303
AT6 032062 032303 0 0 000000032303 0 312040032303
FT0 032062 032303 0 0 000000017777 0 312040032303
FT1A 032062 032303 0 0 000000017777 0 000000017777
FT2 032062 032303 0 0 0 0 000000017777
FT2RQ 032062 032303 0 0 000000017777 0 000000017777
FT3 032062 032303 0 0 000000017777 0 000000017777
FT9 032063 032303 0 0 000000017777 0 000000017777
ET0 032064 032303 0 0 0 0 000000017777
ST1A 032064 032303 0 0 0 0 000000017777
ST9 032064 032303 0 0 0 0 000000017777
*032064 JUMPA 0,032065
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032064 032064 0 0 324000032065 0 000000032065
IT1 032064 0 0 0 324000032065 0 000000032065
AT3 032064 0 0 0 000000032065 0 324000032065
AT6 032064 032065 0 0 000000032065 0 324000032065
FT1A 032064 032065 0 0 000000032065 0 000000032065
FT2 032064 032065 0 0 0 0 000000032065
FT2RQ 032064 032065 0 0 000000000007 0 000000032065
FT3 032064 032065 0 0 000000000007 0 000000032065
FT9 032065 032065 0 0 000000000007 0 000000032065
ET0 032065 032065 0 0 000000000007 0 000000032065
ST1A 032065 032065 0 0 000000000007 0 000000032065
ST9 032065 032065 0 0 000000000007 0 000000032065
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 224
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0313
*032065 CAME 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032065 032065 0 0 312100032254 0 172737405060
IT1 032065 0 0 0 312100032254 0 172737405060
AT3 032065 0 0 0 000000032254 0 312100032254
AT6 032065 032254 0 0 000000032254 0 312100032254
FT0 032065 032254 0 0 172737405060 0 312100032254
FT1A 032065 032254 0 0 172737405060 0 172737405060
FT2 032065 032254 0 0 0 0 172737405060
FT2RQ 032065 032254 0 0 172737405060 0 172737405060
FT3 032065 032254 0 0 172737405060 0 172737405060
FT9 032066 032254 0 0 172737405060 0 172737405060
ET0 032067 032254 0 0 0 0 172737405060
ST1A 032067 032254 0 0 0 0 172737405060
ST9 032067 032254 0 0 0 0 172737405060
*032067 JUMPA 0,032070
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032067 032067 0 0 324000032070 0 000000032070
IT1 032067 0 0 0 324000032070 0 000000032070
AT3 032067 0 0 0 000000032070 0 324000032070
AT6 032067 032070 0 0 000000032070 0 324000032070
FT1A 032067 032070 0 0 000000032070 0 000000032070
FT2 032067 032070 0 0 0 0 000000032070
FT2RQ 032067 032070 0 0 000000000007 0 000000032070
FT3 032067 032070 0 0 000000000007 0 000000032070
FT9 032070 032070 0 0 000000000007 0 000000032070
ET0 032070 032070 0 0 000000000007 0 000000032070
ST1A 032070 032070 0 0 000000000007 0 000000032070
ST9 032070 032070 0 0 000000000007 0 000000032070
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 225
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0314
*032070 MOVE 1,032255
INITIAL
C(AC)=000000 017777
C(E)=252525 252525
FINAL
C(AC)=252525 252525
TIME PC MA SC FE AR MQ BR
IT0 032070 032070 0 0 200040032255 0 252525252525
IT1 032070 0 0 0 200040032255 0 252525252525
AT3 032070 0 0 0 000000032255 0 200040032255
AT6 032070 032255 0 0 000000032255 0 200040032255
FT0 032070 032255 0 0 252525252525 0 200040032255
FT1A 032070 032255 0 0 252525252525 0 252525252525
FT9 032071 032255 0 0 252525252525 0 252525252525
ET0 032071 032255 0 0 252525252525 0 252525252525
ST1 032071 032255 0 0 252525252525 0 252525252525
ST2 032071 032255 0 0 252525252525 0 252525252525
ST9 032071 032255 0 0 252525252525 0 252525252525
*032071 MOVE 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032071 032071 0 0 200100032254 0 172737405060
IT1 032071 0 0 0 200100032254 0 172737405060
AT3 032071 0 0 0 000000032254 0 200100032254
AT6 032071 032254 0 0 000000032254 0 200100032254
FT0 032071 032254 0 0 172737405060 0 200100032254
FT1A 032071 032254 0 0 172737405060 0 172737405060
FT9 032072 032254 0 0 172737405060 0 172737405060
ET0 032072 032254 0 0 172737405060 0 172737405060
ST1 032072 032254 0 0 172737405060 0 172737405060
ST2 032072 032254 0 0 172737405060 0 172737405060
ST9 032072 032254 0 0 172737405060 0 172737405060
*032072 LSH 1,777751
INITIAL
C(AC)=252525 252525
FINAL
C(AC)=000000 005252
TIME PC MA SC FE AR MQ BR
IT0 032072 032072 0 0 242040777751 0 000000777751
IT1 032072 0 0 0 242040777751 0 000000777751
AT3 032072 0 0 0 000000777751 0 242040777751
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 226
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0315
AT6 032072 777751 0 0 000000777751 0 242040777751
FT1A 032072 777751 0 0 000000777751 0 000000777751
FT2 032072 777751 0 0 0 0 000000777751
FT2RQ 032072 777751 0 0 252525252525 0 000000777751
FT3 032072 777751 0 0 252525252525 0 000000777751
FT9 032073 777751 0 0 252525252525 0 000000777751
ET0 032073 777751 751 0 252525252525 0 000000777751
SCT0 032073 777751 751 0 252525252525 0 000000777751
SCT3 032073 777751 752 0 125252525252 0 000000777751
SCT3 032073 777751 753 0 052525252525 0 000000777751
SCT3 032073 777751 754 0 025252525252 0 000000777751
SCT3 032073 777751 755 0 012525252525 0 000000777751
SCT3 032073 777751 756 0 005252525252 0 000000777751
SCT3 032073 777751 757 0 002525252525 0 000000777751
SCT3 032073 777751 0 0 001252525252 0 000000777751
SCT3 032073 777751 761 0 000525252525 0 000000777751
SCT3 032073 777751 762 0 000252525252 0 000000777751
SCT3 032073 777751 763 0 000125252525 0 000000777751
SCT3 032073 777751 764 0 000052525252 0 000000777751
SCT3 032073 777751 765 0 000025252525 0 000000777751
SCT3 032073 777751 766 0 000012525252 0 000000777751
SCT3 032073 777751 767 0 000005252525 0 000000777751
SCT3 032073 777751 0 0 000002525252 0 000000777751
SCT3 032073 777751 771 0 000001252525 0 000000777751
SCT3 032073 777751 772 0 000000525252 0 000000777751
SCT3 032073 777751 773 0 000000252525 0 000000777751
SCT3 032073 777751 774 0 000000125252 0 000000777751
SCT3 032073 777751 775 0 000000052525 0 000000777751
SCT3 032073 777751 776 0 000000025252 0 000000777751
SCT3 032073 777751 777 0 000000012525 0 000000777751
SCT3 032073 777751 0 0 000000005252 0 000000777751
SCT4 032073 777751 0 0 000000005252 0 000000777751
ST0 032073 777751 0 0 000000005252 0 000000777751
ST1 032073 777751 0 0 000000005252 0 000000777751
ST2 032073 777751 0 0 000000005252 0 000000777751
ST9 032073 777751 0 0 000000005252 0 000000777751
*032073 CAME 1,032304
INITIAL
C(AC)=000000 005252
C(E)=000000 005252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032073 032073 0 0 312040032304 0 000000005252
IT1 032073 0 0 0 312040032304 0 000000005252
AT3 032073 0 0 0 000000032304 0 312040032304
AT6 032073 032304 0 0 000000032304 0 312040032304
FT0 032073 032304 0 0 000000005252 0 312040032304
FT1A 032073 032304 0 0 000000005252 0 000000005252
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 227
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0316
FT2 032073 032304 0 0 0 0 000000005252
FT2RQ 032073 032304 0 0 000000005252 0 000000005252
FT3 032073 032304 0 0 000000005252 0 000000005252
FT9 032074 032304 0 0 000000005252 0 000000005252
ET0 032075 032304 0 0 0 0 000000005252
ST1A 032075 032304 0 0 0 0 000000005252
ST9 032075 032304 0 0 0 0 000000005252
*032075 JUMPA 0,032076
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032075 032075 0 0 324000032076 0 000000032076
IT1 032075 0 0 0 324000032076 0 000000032076
AT3 032075 0 0 0 000000032076 0 324000032076
AT6 032075 032076 0 0 000000032076 0 324000032076
FT1A 032075 032076 0 0 000000032076 0 000000032076
FT2 032075 032076 0 0 0 0 000000032076
FT2RQ 032075 032076 0 0 000000000007 0 000000032076
FT3 032075 032076 0 0 000000000007 0 000000032076
FT9 032076 032076 0 0 000000000007 0 000000032076
ET0 032076 032076 0 0 000000000007 0 000000032076
ST1A 032076 032076 0 0 000000000007 0 000000032076
ST9 032076 032076 0 0 000000000007 0 000000032076
*032076 CAME 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032076 032076 0 0 312100032254 0 172737405060
IT1 032076 0 0 0 312100032254 0 172737405060
AT3 032076 0 0 0 000000032254 0 312100032254
AT6 032076 032254 0 0 000000032254 0 312100032254
FT0 032076 032254 0 0 172737405060 0 312100032254
FT1A 032076 032254 0 0 172737405060 0 172737405060
FT2 032076 032254 0 0 0 0 172737405060
FT2RQ 032076 032254 0 0 172737405060 0 172737405060
FT3 032076 032254 0 0 172737405060 0 172737405060
FT9 032077 032254 0 0 172737405060 0 172737405060
ET0 0 032254 0 0 0 0 172737405060
ST1A 0 032254 0 0 0 0 172737405060
ST9 0 032254 0 0 0 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 228
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0317
*032100 JUMPA 0,032101
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 0 0 0 0 324000032101 0 000000032101
IT1 0 0 0 0 324000032101 0 000000032101
AT3 0 0 0 0 000000032101 0 324000032101
AT6 0 032101 0 0 000000032101 0 324000032101
FT1A 0 032101 0 0 000000032101 0 000000032101
FT2 0 032101 0 0 0 0 000000032101
FT2RQ 0 032101 0 0 000000000007 0 000000032101
FT3 0 032101 0 0 000000000007 0 000000032101
FT9 032101 032101 0 0 000000000007 0 000000032101
ET0 032101 032101 0 0 000000000007 0 000000032101
ST1A 032101 032101 0 0 000000000007 0 000000032101
ST9 032101 032101 0 0 000000000007 0 000000032101
*032101 MOVE 1,032256
INITIAL
C(AC)=000000 005252
C(E)=525252 525252
FINAL
C(AC)=525252 525252
TIME PC MA SC FE AR MQ BR
IT0 032101 032101 0 0 200040032256 0 525252525252
IT1 032101 0 0 0 200040032256 0 525252525252
AT3 032101 0 0 0 000000032256 0 200040032256
AT6 032101 032256 0 0 000000032256 0 200040032256
FT0 032101 032256 0 0 525252525252 0 200040032256
FT1A 032101 032256 0 0 525252525252 0 525252525252
FT9 032102 032256 0 0 525252525252 0 525252525252
ET0 032102 032256 0 0 525252525252 0 525252525252
ST1 032102 032256 0 0 525252525252 0 525252525252
ST2 032102 032256 0 0 525252525252 0 525252525252
ST9 032102 032256 0 0 525252525252 0 525252525252
*032102 MOVE 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032102 032102 0 0 200100032254 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 229
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0318
IT1 032102 0 0 0 200100032254 0 172737405060
AT3 032102 0 0 0 000000032254 0 200100032254
AT6 032102 032254 0 0 000000032254 0 200100032254
FT0 032102 032254 0 0 172737405060 0 200100032254
FT1A 032102 032254 0 0 172737405060 0 172737405060
FT9 032103 032254 0 0 172737405060 0 172737405060
ET0 032103 032254 0 0 172737405060 0 172737405060
ST1 032103 032254 0 0 172737405060 0 172737405060
ST2 032103 032254 0 0 172737405060 0 172737405060
ST9 032103 032254 0 0 172737405060 0 172737405060
*032103 LSH 1,777751
INITIAL
C(AC)=525252 525252
FINAL
C(AC)=000000 012525
TIME PC MA SC FE AR MQ BR
IT0 032103 032103 0 0 242040777751 0 000000777751
IT1 032103 0 0 0 242040777751 0 000000777751
AT3 032103 0 0 0 000000777751 0 242040777751
AT6 032103 777751 0 0 000000777751 0 242040777751
FT1A 032103 777751 0 0 000000777751 0 000000777751
FT2 032103 777751 0 0 0 0 000000777751
FT2RQ 032103 777751 0 0 525252525252 0 000000777751
FT3 032103 777751 0 0 525252525252 0 000000777751
FT9 032104 777751 0 0 525252525252 0 000000777751
ET0 032104 777751 751 0 525252525252 0 000000777751
SCT0 032104 777751 751 0 525252525252 0 000000777751
SCT3 032104 777751 752 0 252525252525 0 000000777751
SCT3 032104 777751 753 0 125252525252 0 000000777751
SCT3 032104 777751 754 0 052525252525 0 000000777751
SCT3 032104 777751 755 0 025252525252 0 000000777751
SCT3 032104 777751 756 0 012525252525 0 000000777751
SCT3 032104 777751 757 0 005252525252 0 000000777751
SCT3 032104 777751 0 0 002525252525 0 000000777751
SCT3 032104 777751 761 0 001252525252 0 000000777751
SCT3 032104 777751 762 0 000525252525 0 000000777751
SCT3 032104 777751 763 0 000252525252 0 000000777751
SCT3 032104 777751 764 0 000125252525 0 000000777751
SCT3 032104 777751 765 0 000052525252 0 000000777751
SCT3 032104 777751 766 0 000025252525 0 000000777751
SCT3 032104 777751 767 0 000012525252 0 000000777751
SCT3 032104 777751 0 0 000005252525 0 000000777751
SCT3 032104 777751 771 0 000002525252 0 000000777751
SCT3 032104 777751 772 0 000001252525 0 000000777751
SCT3 032104 777751 773 0 000000525252 0 000000777751
SCT3 032104 777751 774 0 000000252525 0 000000777751
SCT3 032104 777751 775 0 000000125252 0 000000777751
SCT3 032104 777751 776 0 000000052525 0 000000777751
SCT3 032104 777751 777 0 000000025252 0 000000777751
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 230
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0319
SCT3 032104 777751 0 0 000000012525 0 000000777751
SCT4 032104 777751 0 0 000000012525 0 000000777751
ST0 032104 777751 0 0 000000012525 0 000000777751
ST1 032104 777751 0 0 000000012525 0 000000777751
ST2 032104 777751 0 0 000000012525 0 000000777751
ST9 032104 777751 0 0 000000012525 0 000000777751
*032104 CAME 1,032305
INITIAL
C(AC)=000000 012525
C(E)=000000 012525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032104 032104 0 0 312040032305 0 000000012525
IT1 032104 0 0 0 312040032305 0 000000012525
AT3 032104 0 0 0 000000032305 0 312040032305
AT6 032104 032305 0 0 000000032305 0 312040032305
FT0 032104 032305 0 0 000000012525 0 312040032305
FT1A 032104 032305 0 0 000000012525 0 000000012525
FT2 032104 032305 0 0 0 0 000000012525
FT2RQ 032104 032305 0 0 000000012525 0 000000012525
FT3 032104 032305 0 0 000000012525 0 000000012525
FT9 032105 032305 0 0 000000012525 0 000000012525
ET0 032106 032305 0 0 0 0 000000012525
ST1A 032106 032305 0 0 0 0 000000012525
ST9 032106 032305 0 0 0 0 000000012525
*032106 JUMPA 0,032107
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032106 032106 0 0 324000032107 0 000000032107
IT1 032106 0 0 0 324000032107 0 000000032107
AT3 032106 0 0 0 000000032107 0 324000032107
AT6 032106 032107 0 0 000000032107 0 324000032107
FT1A 032106 032107 0 0 000000032107 0 000000032107
FT2 032106 032107 0 0 0 0 000000032107
FT2RQ 032106 032107 0 0 000000000007 0 000000032107
FT3 032106 032107 0 0 000000000007 0 000000032107
FT9 032107 032107 0 0 000000000007 0 000000032107
ET0 032107 032107 0 0 000000000007 0 000000032107
ST1A 032107 032107 0 0 000000000007 0 000000032107
ST9 032107 032107 0 0 000000000007 0 000000032107
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 231
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0320
*032107 CAME 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032107 032107 0 0 312100032254 0 172737405060
IT1 032107 0 0 0 312100032254 0 172737405060
AT3 032107 0 0 0 000000032254 0 312100032254
AT6 032107 032254 0 0 000000032254 0 312100032254
FT0 032107 032254 0 0 172737405060 0 312100032254
FT1A 032107 032254 0 0 172737405060 0 172737405060
FT2 032107 032254 0 0 0 0 172737405060
FT2RQ 032107 032254 0 0 172737405060 0 172737405060
FT3 032107 032254 0 0 172737405060 0 172737405060
FT9 032110 032254 0 0 172737405060 0 172737405060
ET0 032111 032254 0 0 0 0 172737405060
ST1A 032111 032254 0 0 0 0 172737405060
ST9 032111 032254 0 0 0 0 172737405060
*032111 JUMPA 0,032112
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032111 032111 0 0 324000032112 0 000000032112
IT1 032111 0 0 0 324000032112 0 000000032112
AT3 032111 0 0 0 000000032112 0 324000032112
AT6 032111 032112 0 0 000000032112 0 324000032112
FT1A 032111 032112 0 0 000000032112 0 000000032112
FT2 032111 032112 0 0 0 0 000000032112
FT2RQ 032111 032112 0 0 000000000007 0 000000032112
FT3 032111 032112 0 0 000000000007 0 000000032112
FT9 032112 032112 0 0 000000000007 0 000000032112
ET0 032112 032112 0 0 000000000007 0 000000032112
ST1A 032112 032112 0 0 000000000007 0 000000032112
ST9 032112 032112 0 0 000000000007 0 000000032112
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 232
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0321
*032112 MOVE 1,032257
INITIAL
C(AC)=000000 012525
C(E)=230703 603700
FINAL
C(AC)=230703 603700
TIME PC MA SC FE AR MQ BR
IT0 032112 032112 0 0 200040032257 0 230703603700
IT1 032112 0 0 0 200040032257 0 230703603700
AT3 032112 0 0 0 000000032257 0 200040032257
AT6 032112 032257 0 0 000000032257 0 200040032257
FT0 032112 032257 0 0 230703603700 0 200040032257
FT1A 032112 032257 0 0 230703603700 0 230703603700
FT9 032113 032257 0 0 230703603700 0 230703603700
ET0 032113 032257 0 0 230703603700 0 230703603700
ST1 032113 032257 0 0 230703603700 0 230703603700
ST2 032113 032257 0 0 230703603700 0 230703603700
ST9 032113 032257 0 0 230703603700 0 230703603700
*032113 MOVE 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032113 032113 0 0 200100032254 0 172737405060
IT1 032113 0 0 0 200100032254 0 172737405060
AT3 032113 0 0 0 000000032254 0 200100032254
AT6 032113 032254 0 0 000000032254 0 200100032254
FT0 032113 032254 0 0 172737405060 0 200100032254
FT1A 032113 032254 0 0 172737405060 0 172737405060
FT9 032114 032254 0 0 172737405060 0 172737405060
ET0 032114 032254 0 0 172737405060 0 172737405060
ST1 032114 032254 0 0 172737405060 0 172737405060
ST2 032114 032254 0 0 172737405060 0 172737405060
ST9 032114 032254 0 0 172737405060 0 172737405060
*032114 LSH 1,777751
INITIAL
C(AC)=230703 603700
FINAL
C(AC)=000000 004616
TIME PC MA SC FE AR MQ BR
IT0 032114 032114 0 0 242040777751 0 000000777751
IT1 032114 0 0 0 242040777751 0 000000777751
AT3 032114 0 0 0 000000777751 0 242040777751
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 233
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0322
AT6 032114 777751 0 0 000000777751 0 242040777751
FT1A 032114 777751 0 0 000000777751 0 000000777751
FT2 032114 777751 0 0 0 0 000000777751
FT2RQ 032114 777751 0 0 230703603700 0 000000777751
FT3 032114 777751 0 0 230703603700 0 000000777751
FT9 032115 777751 0 0 230703603700 0 000000777751
ET0 032115 777751 751 0 230703603700 0 000000777751
SCT0 032115 777751 751 0 230703603700 0 000000777751
SCT3 032115 777751 752 0 114341701740 0 000000777751
SCT3 032115 777751 753 0 046160740760 0 000000777751
SCT3 032115 777751 754 0 023070360370 0 000000777751
SCT3 032115 777751 755 0 011434170174 0 000000777751
SCT3 032115 777751 756 0 004616074076 0 000000777751
SCT3 032115 777751 757 0 002307036037 0 000000777751
SCT3 032115 777751 0 0 001143417017 0 000000777751
SCT3 032115 777751 761 0 000461607407 0 000000777751
SCT3 032115 777751 762 0 000230703603 0 000000777751
SCT3 032115 777751 763 0 000114341701 0 000000777751
SCT3 032115 777751 764 0 000046160740 0 000000777751
SCT3 032115 777751 765 0 000023070360 0 000000777751
SCT3 032115 777751 766 0 000011434170 0 000000777751
SCT3 032115 777751 767 0 000004616074 0 000000777751
SCT3 032115 777751 0 0 000002307036 0 000000777751
SCT3 032115 777751 771 0 000001143417 0 000000777751
SCT3 032115 777751 772 0 000000461607 0 000000777751
SCT3 032115 777751 773 0 000000230703 0 000000777751
SCT3 032115 777751 774 0 000000114341 0 000000777751
SCT3 032115 777751 775 0 000000046160 0 000000777751
SCT3 032115 777751 776 0 000000023070 0 000000777751
SCT3 032115 777751 777 0 000000011434 0 000000777751
SCT3 032115 777751 0 0 000000004616 0 000000777751
SCT4 032115 777751 0 0 000000004616 0 000000777751
ST0 032115 777751 0 0 000000004616 0 000000777751
ST1 032115 777751 0 0 000000004616 0 000000777751
ST2 032115 777751 0 0 000000004616 0 000000777751
ST9 032115 777751 0 0 000000004616 0 000000777751
*032115 CAME 1,032306
INITIAL
C(AC)=000000 004616
C(E)=000000 004616
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032115 032115 0 0 312040032306 0 000000004616
IT1 032115 0 0 0 312040032306 0 000000004616
AT3 032115 0 0 0 000000032306 0 312040032306
AT6 032115 032306 0 0 000000032306 0 312040032306
FT0 032115 032306 0 0 000000004616 0 312040032306
FT1A 032115 032306 0 0 000000004616 0 000000004616
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 234
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0323
FT2 032115 032306 0 0 0 0 000000004616
FT2RQ 032115 032306 0 0 000000004616 0 000000004616
FT3 032115 032306 0 0 000000004616 0 000000004616
FT9 032116 032306 0 0 000000004616 0 000000004616
ET0 032117 032306 0 0 0 0 000000004616
ST1A 032117 032306 0 0 0 0 000000004616
ST9 032117 032306 0 0 0 0 000000004616
*032117 JUMPA 0,032120
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032117 032117 0 0 324000032120 0 000000032120
IT1 032117 0 0 0 324000032120 0 000000032120
AT3 032117 0 0 0 000000032120 0 324000032120
AT6 032117 032120 0 0 000000032120 0 324000032120
FT1A 032117 032120 0 0 000000032120 0 000000032120
FT2 032117 032120 0 0 0 0 000000032120
FT2RQ 032117 032120 0 0 000000000007 0 000000032120
FT3 032117 032120 0 0 000000000007 0 000000032120
FT9 032120 032120 0 0 000000000007 0 000000032120
ET0 032120 032120 0 0 000000000007 0 000000032120
ST1A 032120 032120 0 0 000000000007 0 000000032120
ST9 032120 032120 0 0 000000000007 0 000000032120
*032120 CAME 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032120 032120 0 0 312100032254 0 172737405060
IT1 032120 0 0 0 312100032254 0 172737405060
AT3 032120 0 0 0 000000032254 0 312100032254
AT6 032120 032254 0 0 000000032254 0 312100032254
FT0 032120 032254 0 0 172737405060 0 312100032254
FT1A 032120 032254 0 0 172737405060 0 172737405060
FT2 032120 032254 0 0 0 0 172737405060
FT2RQ 032120 032254 0 0 172737405060 0 172737405060
FT3 032120 032254 0 0 172737405060 0 172737405060
FT9 032121 032254 0 0 172737405060 0 172737405060
ET0 032122 032254 0 0 0 0 172737405060
ST1A 032122 032254 0 0 0 0 172737405060
ST9 032122 032254 0 0 0 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 235
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0324
*032122 JUMPA 0,032123
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032122 032122 0 0 324000032123 0 000000032123
IT1 032122 0 0 0 324000032123 0 000000032123
AT3 032122 0 0 0 000000032123 0 324000032123
AT6 032122 032123 0 0 000000032123 0 324000032123
FT1A 032122 032123 0 0 000000032123 0 000000032123
FT2 032122 032123 0 0 0 0 000000032123
FT2RQ 032122 032123 0 0 000000000007 0 000000032123
FT3 032122 032123 0 0 000000000007 0 000000032123
FT9 032123 032123 0 0 000000000007 0 000000032123
ET0 032123 032123 0 0 000000000007 0 000000032123
ST1A 032123 032123 0 0 000000000007 0 000000032123
ST9 032123 032123 0 0 000000000007 0 000000032123
*032123 MOVE 1,032261
INITIAL
C(AC)=000000 004616
C(E)=007603 607062
FINAL
C(AC)=007603 607062
TIME PC MA SC FE AR MQ BR
IT0 032123 032123 0 0 200040032261 0 007603607062
IT1 032123 0 0 0 200040032261 0 007603607062
AT3 032123 0 0 0 000000032261 0 200040032261
AT6 032123 032261 0 0 000000032261 0 200040032261
FT0 032123 032261 0 0 007603607062 0 200040032261
FT1A 032123 032261 0 0 007603607062 0 007603607062
FT9 032124 032261 0 0 007603607062 0 007603607062
ET0 032124 032261 0 0 007603607062 0 007603607062
ST1 032124 032261 0 0 007603607062 0 007603607062
ST2 032124 032261 0 0 007603607062 0 007603607062
ST9 032124 032261 0 0 007603607062 0 007603607062
*032124 MOVE 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032124 032124 0 0 200100032254 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 236
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0325
IT1 032124 0 0 0 200100032254 0 172737405060
AT3 032124 0 0 0 000000032254 0 200100032254
AT6 032124 032254 0 0 000000032254 0 200100032254
FT0 032124 032254 0 0 172737405060 0 200100032254
FT1A 032124 032254 0 0 172737405060 0 172737405060
FT9 032125 032254 0 0 172737405060 0 172737405060
ET0 032125 032254 0 0 172737405060 0 172737405060
ST1 032125 032254 0 0 172737405060 0 172737405060
ST2 032125 032254 0 0 172737405060 0 172737405060
ST9 032125 032254 0 0 172737405060 0 172737405060
*032125 LSH 1,777751
INITIAL
C(AC)=007603 607062
FINAL
C(AC)=000000 000174
TIME PC MA SC FE AR MQ BR
IT0 032125 032125 0 0 242040777751 0 000000777751
IT1 032125 0 0 0 242040777751 0 000000777751
AT3 032125 0 0 0 000000777751 0 242040777751
AT6 032125 777751 0 0 000000777751 0 242040777751
FT1A 032125 777751 0 0 000000777751 0 000000777751
FT2 032125 777751 0 0 0 0 000000777751
FT2RQ 032125 777751 0 0 007603607062 0 000000777751
FT3 032125 777751 0 0 007603607062 0 000000777751
FT9 032126 777751 0 0 007603607062 0 000000777751
ET0 032126 777751 751 0 007603607062 0 000000777751
SCT0 032126 777751 751 0 007603607062 0 000000777751
SCT3 032126 777751 752 0 003701703431 0 000000777751
SCT3 032126 777751 753 0 001740741614 0 000000777751
SCT3 032126 777751 754 0 000760360706 0 000000777751
SCT3 032126 777751 755 0 000370170343 0 000000777751
SCT3 032126 777751 756 0 000174074161 0 000000777751
SCT3 032126 777751 757 0 000076036070 0 000000777751
SCT3 032126 777751 0 0 000037017034 0 000000777751
SCT3 032126 777751 761 0 000017407416 0 000000777751
SCT3 032126 777751 762 0 000007603607 0 000000777751
SCT3 032126 777751 763 0 000003701703 0 000000777751
SCT3 032126 777751 764 0 000001740741 0 000000777751
SCT3 032126 777751 765 0 000000760360 0 000000777751
SCT3 032126 777751 766 0 000000370170 0 000000777751
SCT3 032126 777751 767 0 000000174074 0 000000777751
SCT3 032126 777751 0 0 000000076036 0 000000777751
SCT3 032126 777751 771 0 000000037017 0 000000777751
SCT3 032126 777751 772 0 000000017407 0 000000777751
SCT3 032126 777751 773 0 000000007603 0 000000777751
SCT3 032126 777751 774 0 000000003701 0 000000777751
SCT3 032126 777751 775 0 000000001740 0 000000777751
SCT3 032126 777751 776 0 000000000760 0 000000777751
SCT3 032126 777751 777 0 000000000370 0 000000777751
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 237
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0326
SCT3 032126 777751 0 0 000000000174 0 000000777751
SCT4 032126 777751 0 0 000000000174 0 000000777751
ST0 032126 777751 0 0 000000000174 0 000000777751
ST1 032126 777751 0 0 000000000174 0 000000777751
ST2 032126 777751 0 0 000000000174 0 000000777751
ST9 032126 777751 0 0 000000000174 0 000000777751
*032126 CAME 1,032307
INITIAL
C(AC)=000000 000174
C(E)=000000 000174
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032126 032126 0 0 312040032307 0 000000000174
IT1 032126 0 0 0 312040032307 0 000000000174
AT3 032126 0 0 0 000000032307 0 312040032307
AT6 032126 032307 0 0 000000032307 0 312040032307
FT0 032126 032307 0 0 000000000174 0 312040032307
FT1A 032126 032307 0 0 000000000174 0 000000000174
FT2 032126 032307 0 0 0 0 000000000174
FT2RQ 032126 032307 0 0 000000000174 0 000000000174
FT3 032126 032307 0 0 000000000174 0 000000000174
FT9 032127 032307 0 0 000000000174 0 000000000174
ET0 032130 032307 0 0 0 0 000000000174
ST1A 032130 032307 0 0 0 0 000000000174
ST9 032130 032307 0 0 0 0 000000000174
*032130 JUMPA 0,032131
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032130 032130 0 0 324000032131 0 000000032131
IT1 032130 0 0 0 324000032131 0 000000032131
AT3 032130 0 0 0 000000032131 0 324000032131
AT6 032130 032131 0 0 000000032131 0 324000032131
FT1A 032130 032131 0 0 000000032131 0 000000032131
FT2 032130 032131 0 0 0 0 000000032131
FT2RQ 032130 032131 0 0 000000000007 0 000000032131
FT3 032130 032131 0 0 000000000007 0 000000032131
FT9 032131 032131 0 0 000000000007 0 000000032131
ET0 032131 032131 0 0 000000000007 0 000000032131
ST1A 032131 032131 0 0 000000000007 0 000000032131
ST9 032131 032131 0 0 000000000007 0 000000032131
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 238
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0327
*032131 CAME 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032131 032131 0 0 312100032254 0 172737405060
IT1 032131 0 0 0 312100032254 0 172737405060
AT3 032131 0 0 0 000000032254 0 312100032254
AT6 032131 032254 0 0 000000032254 0 312100032254
FT0 032131 032254 0 0 172737405060 0 312100032254
FT1A 032131 032254 0 0 172737405060 0 172737405060
FT2 032131 032254 0 0 0 0 172737405060
FT2RQ 032131 032254 0 0 172737405060 0 172737405060
FT3 032131 032254 0 0 172737405060 0 172737405060
FT9 032132 032254 0 0 172737405060 0 172737405060
ET0 032133 032254 0 0 0 0 172737405060
ST1A 032133 032254 0 0 0 0 172737405060
ST9 032133 032254 0 0 0 0 172737405060
*032133 JUMPA 0,032134
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032133 032133 0 0 324000032134 0 000000032134
IT1 032133 0 0 0 324000032134 0 000000032134
AT3 032133 0 0 0 000000032134 0 324000032134
AT6 032133 032134 0 0 000000032134 0 324000032134
FT1A 032133 032134 0 0 000000032134 0 000000032134
FT2 032133 032134 0 0 0 0 000000032134
FT2RQ 032133 032134 0 0 000000000007 0 000000032134
FT3 032133 032134 0 0 000000000007 0 000000032134
FT9 032134 032134 0 0 000000000007 0 000000032134
ET0 032134 032134 0 0 000000000007 0 000000032134
ST1A 032134 032134 0 0 000000000007 0 000000032134
ST9 032134 032134 0 0 000000000007 0 000000032134
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 239
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0328
*032134 MOVE 1,032227
INITIAL
C(AC)=000000 000174
C(E)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 032134 032134 0 0 200040032227 0 0
IT1 032134 0 0 0 200040032227 0 0
AT3 032134 0 0 0 000000032227 0 200040032227
AT6 032134 032227 0 0 000000032227 0 200040032227
FT0 032134 032227 0 0 0 0 200040032227
FT1A 032134 032227 0 0 0 0 0
FT9 032135 032227 0 0 0 0 0
ET0 032135 032227 0 0 0 0 0
ST1 032135 032227 0 0 0 0 0
ST2 032135 032227 0 0 0 0 0
ST9 032135 032227 0 0 0 0 0
*032135 MOVE 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032135 032135 0 0 200100032254 0 172737405060
IT1 032135 0 0 0 200100032254 0 172737405060
AT3 032135 0 0 0 000000032254 0 200100032254
AT6 032135 032254 0 0 000000032254 0 200100032254
FT0 032135 032254 0 0 172737405060 0 200100032254
FT1A 032135 032254 0 0 172737405060 0 172737405060
FT9 032136 032254 0 0 172737405060 0 172737405060
ET0 032136 032254 0 0 172737405060 0 172737405060
ST1 032136 032254 0 0 172737405060 0 172737405060
ST2 032136 032254 0 0 172737405060 0 172737405060
ST9 032136 032254 0 0 172737405060 0 172737405060
*032136 LSH 1,777745
INITIAL
C(AC)=000000 000000
FINAL
C(AC)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 032136 032136 0 0 242040777745 0 000000777745
IT1 032136 0 0 0 242040777745 0 000000777745
AT3 032136 0 0 0 000000777745 0 242040777745
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 240
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0329
AT6 032136 777745 0 0 000000777745 0 242040777745
FT1A 032136 777745 0 0 000000777745 0 000000777745
FT2 032136 777745 0 0 0 0 000000777745
FT2RQ 032136 777745 0 0 0 0 000000777745
FT3 032136 777745 0 0 0 0 000000777745
FT9 032137 777745 0 0 0 0 000000777745
ET0 032137 777745 745 0 0 0 000000777745
SCT0 032137 777745 745 0 0 0 000000777745
SCT3 032137 777745 746 0 0 0 000000777745
SCT3 032137 777745 747 0 0 0 000000777745
SCT3 032137 777745 0 0 0 0 000000777745
SCT3 032137 777745 751 0 0 0 000000777745
SCT3 032137 777745 752 0 0 0 000000777745
SCT3 032137 777745 753 0 0 0 000000777745
SCT3 032137 777745 754 0 0 0 000000777745
SCT3 032137 777745 755 0 0 0 000000777745
SCT3 032137 777745 756 0 0 0 000000777745
SCT3 032137 777745 757 0 0 0 000000777745
SCT3 032137 777745 0 0 0 0 000000777745
SCT3 032137 777745 761 0 0 0 000000777745
SCT3 032137 777745 762 0 0 0 000000777745
SCT3 032137 777745 763 0 0 0 000000777745
SCT3 032137 777745 764 0 0 0 000000777745
SCT3 032137 777745 765 0 0 0 000000777745
SCT3 032137 777745 766 0 0 0 000000777745
SCT3 032137 777745 767 0 0 0 000000777745
SCT3 032137 777745 0 0 0 0 000000777745
SCT3 032137 777745 771 0 0 0 000000777745
SCT3 032137 777745 772 0 0 0 000000777745
SCT3 032137 777745 773 0 0 0 000000777745
SCT3 032137 777745 774 0 0 0 000000777745
SCT3 032137 777745 775 0 0 0 000000777745
SCT3 032137 777745 776 0 0 0 000000777745
SCT3 032137 777745 777 0 0 0 000000777745
SCT3 032137 777745 0 0 0 0 000000777745
SCT4 032137 777745 0 0 0 0 000000777745
ST0 032137 777745 0 0 0 0 000000777745
ST1 032137 777745 0 0 0 0 000000777745
ST2 032137 777745 0 0 0 0 000000777745
ST9 032137 777745 0 0 0 0 000000777745
*032137 CAME 1,032227
INITIAL
C(AC)=000000 000000
C(E)=000000 000000
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032137 032137 0 0 312040032227 0 0
IT1 032137 0 0 0 312040032227 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 241
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0330
AT3 032137 0 0 0 000000032227 0 312040032227
AT6 032137 032227 0 0 000000032227 0 312040032227
FT0 032137 032227 0 0 0 0 312040032227
FT1A 032137 032227 0 0 0 0 0
FT2 032137 032227 0 0 0 0 0
FT2RQ 032137 032227 0 0 0 0 0
FT3 032137 032227 0 0 0 0 0
FT9 032140 032227 0 0 0 0 0
ET0 032141 032227 0 0 0 0 0
ST1A 032141 032227 0 0 0 0 0
ST9 032141 032227 0 0 0 0 0
*032141 JUMPA 0,032142
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032141 032141 0 0 324000032142 0 000000032142
IT1 032141 0 0 0 324000032142 0 000000032142
AT3 032141 0 0 0 000000032142 0 324000032142
AT6 032141 032142 0 0 000000032142 0 324000032142
FT1A 032141 032142 0 0 000000032142 0 000000032142
FT2 032141 032142 0 0 0 0 000000032142
FT2RQ 032141 032142 0 0 000000000007 0 000000032142
FT3 032141 032142 0 0 000000000007 0 000000032142
FT9 032142 032142 0 0 000000000007 0 000000032142
ET0 032142 032142 0 0 000000000007 0 000000032142
ST1A 032142 032142 0 0 000000000007 0 000000032142
ST9 032142 032142 0 0 000000000007 0 000000032142
*032142 CAME 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032142 032142 0 0 312100032254 0 172737405060
IT1 032142 0 0 0 312100032254 0 172737405060
AT3 032142 0 0 0 000000032254 0 312100032254
AT6 032142 032254 0 0 000000032254 0 312100032254
FT0 032142 032254 0 0 172737405060 0 312100032254
FT1A 032142 032254 0 0 172737405060 0 172737405060
FT2 032142 032254 0 0 0 0 172737405060
FT2RQ 032142 032254 0 0 172737405060 0 172737405060
FT3 032142 032254 0 0 172737405060 0 172737405060
FT9 032143 032254 0 0 172737405060 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 242
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0331
ET0 032144 032254 0 0 0 0 172737405060
ST1A 032144 032254 0 0 0 0 172737405060
ST9 032144 032254 0 0 0 0 172737405060
*032144 JUMPA 0,032145
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032144 032144 0 0 324000032145 0 000000032145
IT1 032144 0 0 0 324000032145 0 000000032145
AT3 032144 0 0 0 000000032145 0 324000032145
AT6 032144 032145 0 0 000000032145 0 324000032145
FT1A 032144 032145 0 0 000000032145 0 000000032145
FT2 032144 032145 0 0 0 0 000000032145
FT2RQ 032144 032145 0 0 000000000007 0 000000032145
FT3 032144 032145 0 0 000000000007 0 000000032145
FT9 032145 032145 0 0 000000000007 0 000000032145
ET0 032145 032145 0 0 000000000007 0 000000032145
ST1A 032145 032145 0 0 000000000007 0 000000032145
ST9 032145 032145 0 0 000000000007 0 000000032145
*032145 MOVE 1,032226
INITIAL
C(AC)=000000 000000
C(E)=777777 777777
FINAL
C(AC)=777777 777777
TIME PC MA SC FE AR MQ BR
IT0 032145 032145 0 0 200040032226 0 777777777777
IT1 032145 0 0 0 200040032226 0 777777777777
AT3 032145 0 0 0 000000032226 0 200040032226
AT6 032145 032226 0 0 000000032226 0 200040032226
FT0 032145 032226 0 0 777777777777 0 200040032226
FT1A 032145 032226 0 0 777777777777 0 777777777777
FT9 032146 032226 0 0 777777777777 0 777777777777
ET0 032146 032226 0 0 777777777777 0 777777777777
ST1 032146 032226 0 0 777777777777 0 777777777777
ST2 032146 032226 0 0 777777777777 0 777777777777
ST9 032146 032226 0 0 777777777777 0 777777777777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 243
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0332
*032146 MOVE 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032146 032146 0 0 200100032254 0 172737405060
IT1 032146 0 0 0 200100032254 0 172737405060
AT3 032146 0 0 0 000000032254 0 200100032254
AT6 032146 032254 0 0 000000032254 0 200100032254
FT0 032146 032254 0 0 172737405060 0 200100032254
FT1A 032146 032254 0 0 172737405060 0 172737405060
FT9 032147 032254 0 0 172737405060 0 172737405060
ET0 032147 032254 0 0 172737405060 0 172737405060
ST1 032147 032254 0 0 172737405060 0 172737405060
ST2 032147 032254 0 0 172737405060 0 172737405060
ST9 032147 032254 0 0 172737405060 0 172737405060
*032147 LSH 1,777745
INITIAL
C(AC)=777777 777777
FINAL
C(AC)=000000 000777
TIME PC MA SC FE AR MQ BR
IT0 032147 032147 0 0 242040777745 0 000000777745
IT1 032147 0 0 0 242040777745 0 000000777745
AT3 032147 0 0 0 000000777745 0 242040777745
AT6 032147 777745 0 0 000000777745 0 242040777745
FT1A 032147 777745 0 0 000000777745 0 000000777745
FT2 032147 777745 0 0 0 0 000000777745
FT2RQ 032147 777745 0 0 777777777777 0 000000777745
FT3 032147 777745 0 0 777777777777 0 000000777745
FT9 032150 777745 0 0 777777777777 0 000000777745
ET0 032150 777745 745 0 777777777777 0 000000777745
SCT0 032150 777745 745 0 777777777777 0 000000777745
SCT3 032150 777745 746 0 377777777777 0 000000777745
SCT3 032150 777745 747 0 177777777777 0 000000777745
SCT3 032150 777745 0 0 077777777777 0 000000777745
SCT3 032150 777745 751 0 037777777777 0 000000777745
SCT3 032150 777745 752 0 017777777777 0 000000777745
SCT3 032150 777745 753 0 007777777777 0 000000777745
SCT3 032150 777745 754 0 003777777777 0 000000777745
SCT3 032150 777745 755 0 001777777777 0 000000777745
SCT3 032150 777745 756 0 000777777777 0 000000777745
SCT3 032150 777745 757 0 000377777777 0 000000777745
SCT3 032150 777745 0 0 000177777777 0 000000777745
SCT3 032150 777745 761 0 000077777777 0 000000777745
SCT3 032150 777745 762 0 000037777777 0 000000777745
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 244
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0333
SCT3 032150 777745 763 0 000017777777 0 000000777745
SCT3 032150 777745 764 0 000007777777 0 000000777745
SCT3 032150 777745 765 0 000003777777 0 000000777745
SCT3 032150 777745 766 0 000001777777 0 000000777745
SCT3 032150 777745 767 0 000000777777 0 000000777745
SCT3 032150 777745 0 0 000000377777 0 000000777745
SCT3 032150 777745 771 0 000000177777 0 000000777745
SCT3 032150 777745 772 0 000000077777 0 000000777745
SCT3 032150 777745 773 0 000000037777 0 000000777745
SCT3 032150 777745 774 0 000000017777 0 000000777745
SCT3 032150 777745 775 0 000000007777 0 000000777745
SCT3 032150 777745 776 0 000000003777 0 000000777745
SCT3 032150 777745 777 0 000000001777 0 000000777745
SCT3 032150 777745 0 0 000000000777 0 000000777745
SCT4 032150 777745 0 0 000000000777 0 000000777745
ST0 032150 777745 0 0 000000000777 0 000000777745
ST1 032150 777745 0 0 000000000777 0 000000777745
ST2 032150 777745 0 0 000000000777 0 000000777745
ST9 032150 777745 0 0 000000000777 0 000000777745
*032150 CAME 1,032277
INITIAL
C(AC)=000000 000777
C(E)=000000 000777
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032150 032150 0 0 312040032277 0 000000000777
IT1 032150 0 0 0 312040032277 0 000000000777
AT3 032150 0 0 0 000000032277 0 312040032277
AT6 032150 032277 0 0 000000032277 0 312040032277
FT0 032150 032277 0 0 000000000777 0 312040032277
FT1A 032150 032277 0 0 000000000777 0 000000000777
FT2 032150 032277 0 0 0 0 000000000777
FT2RQ 032150 032277 0 0 000000000777 0 000000000777
FT3 032150 032277 0 0 000000000777 0 000000000777
FT9 032151 032277 0 0 000000000777 0 000000000777
ET0 032152 032277 0 0 0 0 000000000777
ST1A 032152 032277 0 0 0 0 000000000777
ST9 032152 032277 0 0 0 0 000000000777
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 245
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0334
*032152 JUMPA 0,032153
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032152 032152 0 0 324000032153 0 000000032153
IT1 032152 0 0 0 324000032153 0 000000032153
AT3 032152 0 0 0 000000032153 0 324000032153
AT6 032152 032153 0 0 000000032153 0 324000032153
FT1A 032152 032153 0 0 000000032153 0 000000032153
FT2 032152 032153 0 0 0 0 000000032153
FT2RQ 032152 032153 0 0 000000000007 0 000000032153
FT3 032152 032153 0 0 000000000007 0 000000032153
FT9 032153 032153 0 0 000000000007 0 000000032153
ET0 032153 032153 0 0 000000000007 0 000000032153
ST1A 032153 032153 0 0 000000000007 0 000000032153
ST9 032153 032153 0 0 000000000007 0 000000032153
*032153 CAME 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032153 032153 0 0 312100032254 0 172737405060
IT1 032153 0 0 0 312100032254 0 172737405060
AT3 032153 0 0 0 000000032254 0 312100032254
AT6 032153 032254 0 0 000000032254 0 312100032254
FT0 032153 032254 0 0 172737405060 0 312100032254
FT1A 032153 032254 0 0 172737405060 0 172737405060
FT2 032153 032254 0 0 0 0 172737405060
FT2RQ 032153 032254 0 0 172737405060 0 172737405060
FT3 032153 032254 0 0 172737405060 0 172737405060
FT9 032154 032254 0 0 172737405060 0 172737405060
ET0 032155 032254 0 0 0 0 172737405060
ST1A 032155 032254 0 0 0 0 172737405060
ST9 032155 032254 0 0 0 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 246
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0335
*032155 JUMPA 0,032156
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032155 032155 0 0 324000032156 0 000000032156
IT1 032155 0 0 0 324000032156 0 000000032156
AT3 032155 0 0 0 000000032156 0 324000032156
AT6 032155 032156 0 0 000000032156 0 324000032156
FT1A 032155 032156 0 0 000000032156 0 000000032156
FT2 032155 032156 0 0 0 0 000000032156
FT2RQ 032155 032156 0 0 000000000007 0 000000032156
FT3 032155 032156 0 0 000000000007 0 000000032156
FT9 032156 032156 0 0 000000000007 0 000000032156
ET0 032156 032156 0 0 000000000007 0 000000032156
ST1A 032156 032156 0 0 000000000007 0 000000032156
ST9 032156 032156 0 0 000000000007 0 000000032156
*032156 MOVE 1,032255
INITIAL
C(AC)=000000 000777
C(E)=252525 252525
FINAL
C(AC)=252525 252525
TIME PC MA SC FE AR MQ BR
IT0 032156 032156 0 0 200040032255 0 252525252525
IT1 032156 0 0 0 200040032255 0 252525252525
AT3 032156 0 0 0 000000032255 0 200040032255
AT6 032156 032255 0 0 000000032255 0 200040032255
FT0 032156 032255 0 0 252525252525 0 200040032255
FT1A 032156 032255 0 0 252525252525 0 252525252525
FT9 032157 032255 0 0 252525252525 0 252525252525
ET0 032157 032255 0 0 252525252525 0 252525252525
ST1 032157 032255 0 0 252525252525 0 252525252525
ST2 032157 032255 0 0 252525252525 0 252525252525
ST9 032157 032255 0 0 252525252525 0 252525252525
*032157 MOVE 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032157 032157 0 0 200100032254 0 172737405060
IT1 032157 0 0 0 200100032254 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 247
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0336
AT3 032157 0 0 0 000000032254 0 200100032254
AT6 032157 032254 0 0 000000032254 0 200100032254
FT0 032157 032254 0 0 172737405060 0 200100032254
FT1A 032157 032254 0 0 172737405060 0 172737405060
FT9 032160 032254 0 0 172737405060 0 172737405060
ET0 032160 032254 0 0 172737405060 0 172737405060
ST1 032160 032254 0 0 172737405060 0 172737405060
ST2 032160 032254 0 0 172737405060 0 172737405060
ST9 032160 032254 0 0 172737405060 0 172737405060
*032160 LSH 1,777745
INITIAL
C(AC)=252525 252525
FINAL
C(AC)=000000 000252
TIME PC MA SC FE AR MQ BR
IT0 032160 032160 0 0 242040777745 0 000000777745
IT1 032160 0 0 0 242040777745 0 000000777745
AT3 032160 0 0 0 000000777745 0 242040777745
AT6 032160 777745 0 0 000000777745 0 242040777745
FT1A 032160 777745 0 0 000000777745 0 000000777745
FT2 032160 777745 0 0 0 0 000000777745
FT2RQ 032160 777745 0 0 252525252525 0 000000777745
FT3 032160 777745 0 0 252525252525 0 000000777745
FT9 032161 777745 0 0 252525252525 0 000000777745
ET0 032161 777745 745 0 252525252525 0 000000777745
SCT0 032161 777745 745 0 252525252525 0 000000777745
SCT3 032161 777745 746 0 125252525252 0 000000777745
SCT3 032161 777745 747 0 052525252525 0 000000777745
SCT3 032161 777745 0 0 025252525252 0 000000777745
SCT3 032161 777745 751 0 012525252525 0 000000777745
SCT3 032161 777745 752 0 005252525252 0 000000777745
SCT3 032161 777745 753 0 002525252525 0 000000777745
SCT3 032161 777745 754 0 001252525252 0 000000777745
SCT3 032161 777745 755 0 000525252525 0 000000777745
SCT3 032161 777745 756 0 000252525252 0 000000777745
SCT3 032161 777745 757 0 000125252525 0 000000777745
SCT3 032161 777745 0 0 000052525252 0 000000777745
SCT3 032161 777745 761 0 000025252525 0 000000777745
SCT3 032161 777745 762 0 000012525252 0 000000777745
SCT3 032161 777745 763 0 000005252525 0 000000777745
SCT3 032161 777745 764 0 000002525252 0 000000777745
SCT3 032161 777745 765 0 000001252525 0 000000777745
SCT3 032161 777745 766 0 000000525252 0 000000777745
SCT3 032161 777745 767 0 000000252525 0 000000777745
SCT3 032161 777745 0 0 000000125252 0 000000777745
SCT3 032161 777745 771 0 000000052525 0 000000777745
SCT3 032161 777745 772 0 000000025252 0 000000777745
SCT3 032161 777745 773 0 000000012525 0 000000777745
SCT3 032161 777745 774 0 000000005252 0 000000777745
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 248
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0337
SCT3 032161 777745 775 0 000000002525 0 000000777745
SCT3 032161 777745 776 0 000000001252 0 000000777745
SCT3 032161 777745 777 0 000000000525 0 000000777745
SCT3 032161 777745 0 0 000000000252 0 000000777745
SCT4 032161 777745 0 0 000000000252 0 000000777745
ST0 032161 777745 0 0 000000000252 0 000000777745
ST1 032161 777745 0 0 000000000252 0 000000777745
ST2 032161 777745 0 0 000000000252 0 000000777745
ST9 032161 777745 0 0 000000000252 0 000000777745
*032161 CAME 1,032300
INITIAL
C(AC)=000000 000252
C(E)=000000 000252
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032161 032161 0 0 312040032300 0 000000000252
IT1 032161 0 0 0 312040032300 0 000000000252
AT3 032161 0 0 0 000000032300 0 312040032300
AT6 032161 0 0 0 000000032300 0 312040032300
FT0 032161 0 0 0 000000000252 0 312040032300
FT1A 032161 0 0 0 000000000252 0 000000000252
FT2 032161 0 0 0 0 0 000000000252
FT2RQ 032161 0 0 0 000000000252 0 000000000252
FT3 032161 0 0 0 000000000252 0 000000000252
FT9 032162 0 0 0 000000000252 0 000000000252
ET0 032163 0 0 0 0 0 000000000252
ST1A 032163 0 0 0 0 0 000000000252
ST9 032163 0 0 0 0 0 000000000252
*032163 JUMPA 0,032164
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032163 032163 0 0 324000032164 0 000000032164
IT1 032163 0 0 0 324000032164 0 000000032164
AT3 032163 0 0 0 000000032164 0 324000032164
AT6 032163 032164 0 0 000000032164 0 324000032164
FT1A 032163 032164 0 0 000000032164 0 000000032164
FT2 032163 032164 0 0 0 0 000000032164
FT2RQ 032163 032164 0 0 000000000007 0 000000032164
FT3 032163 032164 0 0 000000000007 0 000000032164
FT9 032164 032164 0 0 000000000007 0 000000032164
ET0 032164 032164 0 0 000000000007 0 000000032164
ST1A 032164 032164 0 0 000000000007 0 000000032164
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 249
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0338
ST9 032164 032164 0 0 000000000007 0 000000032164
*032164 CAME 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032164 032164 0 0 312100032254 0 172737405060
IT1 032164 0 0 0 312100032254 0 172737405060
AT3 032164 0 0 0 000000032254 0 312100032254
AT6 032164 032254 0 0 000000032254 0 312100032254
FT0 032164 032254 0 0 172737405060 0 312100032254
FT1A 032164 032254 0 0 172737405060 0 172737405060
FT2 032164 032254 0 0 0 0 172737405060
FT2RQ 032164 032254 0 0 172737405060 0 172737405060
FT3 032164 032254 0 0 172737405060 0 172737405060
FT9 032165 032254 0 0 172737405060 0 172737405060
ET0 032166 032254 0 0 0 0 172737405060
ST1A 032166 032254 0 0 0 0 172737405060
ST9 032166 032254 0 0 0 0 172737405060
*032166 JUMPA 0,032167
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032166 032166 0 0 324000032167 0 000000032167
IT1 032166 0 0 0 324000032167 0 000000032167
AT3 032166 0 0 0 000000032167 0 324000032167
AT6 032166 032167 0 0 000000032167 0 324000032167
FT1A 032166 032167 0 0 000000032167 0 000000032167
FT2 032166 032167 0 0 0 0 000000032167
FT2RQ 032166 032167 0 0 000000000007 0 000000032167
FT3 032166 032167 0 0 000000000007 0 000000032167
FT9 032167 032167 0 0 000000000007 0 000000032167
ET0 032167 032167 0 0 000000000007 0 000000032167
ST1A 032167 032167 0 0 000000000007 0 000000032167
ST9 032167 032167 0 0 000000000007 0 000000032167
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 250
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0339
*032167 MOVE 1,032256
INITIAL
C(AC)=000000 000252
C(E)=525252 525252
FINAL
C(AC)=525252 525252
TIME PC MA SC FE AR MQ BR
IT0 032167 032167 0 0 200040032256 0 525252525252
IT1 032167 0 0 0 200040032256 0 525252525252
AT3 032167 0 0 0 000000032256 0 200040032256
AT6 032167 032256 0 0 000000032256 0 200040032256
FT0 032167 032256 0 0 525252525252 0 200040032256
FT1A 032167 032256 0 0 525252525252 0 525252525252
FT9 032170 032256 0 0 525252525252 0 525252525252
ET0 032170 032256 0 0 525252525252 0 525252525252
ST1 032170 032256 0 0 525252525252 0 525252525252
ST2 032170 032256 0 0 525252525252 0 525252525252
ST9 032170 032256 0 0 525252525252 0 525252525252
*032170 MOVE 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032170 032170 0 0 200100032254 0 172737405060
IT1 032170 0 0 0 200100032254 0 172737405060
AT3 032170 0 0 0 000000032254 0 200100032254
AT6 032170 032254 0 0 000000032254 0 200100032254
FT0 032170 032254 0 0 172737405060 0 200100032254
FT1A 032170 032254 0 0 172737405060 0 172737405060
FT9 032171 032254 0 0 172737405060 0 172737405060
ET0 032171 032254 0 0 172737405060 0 172737405060
ST1 032171 032254 0 0 172737405060 0 172737405060
ST2 032171 032254 0 0 172737405060 0 172737405060
ST9 032171 032254 0 0 172737405060 0 172737405060
*032171 LSH 1,777745
INITIAL
C(AC)=525252 525252
FINAL
C(AC)=000000 000525
TIME PC MA SC FE AR MQ BR
IT0 032171 032171 0 0 242040777745 0 000000777745
IT1 032171 0 0 0 242040777745 0 000000777745
AT3 032171 0 0 0 000000777745 0 242040777745
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 251
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0340
AT6 032171 777745 0 0 000000777745 0 242040777745
FT1A 032171 777745 0 0 000000777745 0 000000777745
FT2 032171 777745 0 0 0 0 000000777745
FT2RQ 032171 777745 0 0 525252525252 0 000000777745
FT3 032171 777745 0 0 525252525252 0 000000777745
FT9 032172 777745 0 0 525252525252 0 000000777745
ET0 032172 777745 745 0 525252525252 0 000000777745
SCT0 032172 777745 745 0 525252525252 0 000000777745
SCT3 032172 777745 746 0 252525252525 0 000000777745
SCT3 032172 777745 747 0 125252525252 0 000000777745
SCT3 032172 777745 0 0 052525252525 0 000000777745
SCT3 032172 777745 751 0 025252525252 0 000000777745
SCT3 032172 777745 752 0 012525252525 0 000000777745
SCT3 032172 777745 753 0 005252525252 0 000000777745
SCT3 032172 777745 754 0 002525252525 0 000000777745
SCT3 032172 777745 755 0 001252525252 0 000000777745
SCT3 032172 777745 756 0 000525252525 0 000000777745
SCT3 032172 777745 757 0 000252525252 0 000000777745
SCT3 032172 777745 0 0 000125252525 0 000000777745
SCT3 032172 777745 761 0 000052525252 0 000000777745
SCT3 032172 777745 762 0 000025252525 0 000000777745
SCT3 032172 777745 763 0 000012525252 0 000000777745
SCT3 032172 777745 764 0 000005252525 0 000000777745
SCT3 032172 777745 765 0 000002525252 0 000000777745
SCT3 032172 777745 766 0 000001252525 0 000000777745
SCT3 032172 777745 767 0 000000525252 0 000000777745
SCT3 032172 777745 0 0 000000252525 0 000000777745
SCT3 032172 777745 771 0 000000125252 0 000000777745
SCT3 032172 777745 772 0 000000052525 0 000000777745
SCT3 032172 777745 773 0 000000025252 0 000000777745
SCT3 032172 777745 774 0 000000012525 0 000000777745
SCT3 032172 777745 775 0 000000005252 0 000000777745
SCT3 032172 777745 776 0 000000002525 0 000000777745
SCT3 032172 777745 777 0 000000001252 0 000000777745
SCT3 032172 777745 0 0 000000000525 0 000000777745
SCT4 032172 777745 0 0 000000000525 0 000000777745
ST0 032172 777745 0 0 000000000525 0 000000777745
ST1 032172 777745 0 0 000000000525 0 000000777745
ST2 032172 777745 0 0 000000000525 0 000000777745
ST9 032172 777745 0 0 000000000525 0 000000777745
*032172 CAME 1,032301
INITIAL
C(AC)=000000 000525
C(E)=000000 000525
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032172 032172 0 0 312040032301 0 000000000525
IT1 032172 0 0 0 312040032301 0 000000000525
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 252
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0341
AT3 032172 0 0 0 000000032301 0 312040032301
AT6 032172 032301 0 0 000000032301 0 312040032301
FT0 032172 032301 0 0 000000000525 0 312040032301
FT1A 032172 032301 0 0 000000000525 0 000000000525
FT2 032172 032301 0 0 0 0 000000000525
FT2RQ 032172 032301 0 0 000000000525 0 000000000525
FT3 032172 032301 0 0 000000000525 0 000000000525
FT9 032173 032301 0 0 000000000525 0 000000000525
ET0 032174 032301 0 0 0 0 000000000525
ST1A 032174 032301 0 0 0 0 000000000525
ST9 032174 032301 0 0 0 0 000000000525
*032174 JUMPA 0,032175
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032174 032174 0 0 324000032175 0 000000032175
IT1 032174 0 0 0 324000032175 0 000000032175
AT3 032174 0 0 0 000000032175 0 324000032175
AT6 032174 032175 0 0 000000032175 0 324000032175
FT1A 032174 032175 0 0 000000032175 0 000000032175
FT2 032174 032175 0 0 0 0 000000032175
FT2RQ 032174 032175 0 0 000000000007 0 000000032175
FT3 032174 032175 0 0 000000000007 0 000000032175
FT9 032175 032175 0 0 000000000007 0 000000032175
ET0 032175 032175 0 0 000000000007 0 000000032175
ST1A 032175 032175 0 0 000000000007 0 000000032175
ST9 032175 032175 0 0 000000000007 0 000000032175
*032175 CAME 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032175 032175 0 0 312100032254 0 172737405060
IT1 032175 0 0 0 312100032254 0 172737405060
AT3 032175 0 0 0 000000032254 0 312100032254
AT6 032175 032254 0 0 000000032254 0 312100032254
FT0 032175 032254 0 0 172737405060 0 312100032254
FT1A 032175 032254 0 0 172737405060 0 172737405060
FT2 032175 032254 0 0 0 0 172737405060
FT2RQ 032175 032254 0 0 172737405060 0 172737405060
FT3 032175 032254 0 0 172737405060 0 172737405060
FT9 032176 032254 0 0 172737405060 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 253
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0342
ET0 032177 032254 0 0 0 0 172737405060
ST1A 032177 032254 0 0 0 0 172737405060
ST9 032177 032254 0 0 0 0 172737405060
*032177 JUMPA 0,032200
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032177 032177 0 0 324000032200 0 000000032200
IT1 032177 0 0 0 324000032200 0 000000032200
AT3 032177 0 0 0 000000032200 0 324000032200
AT6 032177 0 0 0 000000032200 0 324000032200
FT1A 032177 0 0 0 000000032200 0 000000032200
FT2 032177 0 0 0 0 0 000000032200
FT2RQ 032177 0 0 0 000000000007 0 000000032200
FT3 032177 0 0 0 000000000007 0 000000032200
FT9 0 0 0 0 000000000007 0 000000032200
ET0 0 0 0 0 000000000007 0 000000032200
ST1A 0 0 0 0 000000000007 0 000000032200
ST9 0 0 0 0 000000000007 0 000000032200
*032200 MOVE 1,032257
INITIAL
C(AC)=000000 000525
C(E)=230703 603700
FINAL
C(AC)=230703 603700
TIME PC MA SC FE AR MQ BR
IT0 0 0 0 0 200040032257 0 230703603700
IT1 0 0 0 0 200040032257 0 230703603700
AT3 0 0 0 0 000000032257 0 200040032257
AT6 0 032257 0 0 000000032257 0 200040032257
FT0 0 032257 0 0 230703603700 0 200040032257
FT1A 0 032257 0 0 230703603700 0 230703603700
FT9 032201 032257 0 0 230703603700 0 230703603700
ET0 032201 032257 0 0 230703603700 0 230703603700
ST1 032201 032257 0 0 230703603700 0 230703603700
ST2 032201 032257 0 0 230703603700 0 230703603700
ST9 032201 032257 0 0 230703603700 0 230703603700
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 254
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0343
*032201 MOVE 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032201 032201 0 0 200100032254 0 172737405060
IT1 032201 0 0 0 200100032254 0 172737405060
AT3 032201 0 0 0 000000032254 0 200100032254
AT6 032201 032254 0 0 000000032254 0 200100032254
FT0 032201 032254 0 0 172737405060 0 200100032254
FT1A 032201 032254 0 0 172737405060 0 172737405060
FT9 032202 032254 0 0 172737405060 0 172737405060
ET0 032202 032254 0 0 172737405060 0 172737405060
ST1 032202 032254 0 0 172737405060 0 172737405060
ST2 032202 032254 0 0 172737405060 0 172737405060
ST9 032202 032254 0 0 172737405060 0 172737405060
*032202 LSH 1,777745
INITIAL
C(AC)=230703 603700
FINAL
C(AC)=000000 000230
TIME PC MA SC FE AR MQ BR
IT0 032202 032202 0 0 242040777745 0 000000777745
IT1 032202 0 0 0 242040777745 0 000000777745
AT3 032202 0 0 0 000000777745 0 242040777745
AT6 032202 777745 0 0 000000777745 0 242040777745
FT1A 032202 777745 0 0 000000777745 0 000000777745
FT2 032202 777745 0 0 0 0 000000777745
FT2RQ 032202 777745 0 0 230703603700 0 000000777745
FT3 032202 777745 0 0 230703603700 0 000000777745
FT9 032203 777745 0 0 230703603700 0 000000777745
ET0 032203 777745 745 0 230703603700 0 000000777745
SCT0 032203 777745 745 0 230703603700 0 000000777745
SCT3 032203 777745 746 0 114341701740 0 000000777745
SCT3 032203 777745 747 0 046160740760 0 000000777745
SCT3 032203 777745 0 0 023070360370 0 000000777745
SCT3 032203 777745 751 0 011434170174 0 000000777745
SCT3 032203 777745 752 0 004616074076 0 000000777745
SCT3 032203 777745 753 0 002307036037 0 000000777745
SCT3 032203 777745 754 0 001143417017 0 000000777745
SCT3 032203 777745 755 0 000461607407 0 000000777745
SCT3 032203 777745 756 0 000230703603 0 000000777745
SCT3 032203 777745 757 0 000114341701 0 000000777745
SCT3 032203 777745 0 0 000046160740 0 000000777745
SCT3 032203 777745 761 0 000023070360 0 000000777745
SCT3 032203 777745 762 0 000011434170 0 000000777745
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 255
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0344
SCT3 032203 777745 763 0 000004616074 0 000000777745
SCT3 032203 777745 764 0 000002307036 0 000000777745
SCT3 032203 777745 765 0 000001143417 0 000000777745
SCT3 032203 777745 766 0 000000461607 0 000000777745
SCT3 032203 777745 767 0 000000230703 0 000000777745
SCT3 032203 777745 0 0 000000114341 0 000000777745
SCT3 032203 777745 771 0 000000046160 0 000000777745
SCT3 032203 777745 772 0 000000023070 0 000000777745
SCT3 032203 777745 773 0 000000011434 0 000000777745
SCT3 032203 777745 774 0 000000004616 0 000000777745
SCT3 032203 777745 775 0 000000002307 0 000000777745
SCT3 032203 777745 776 0 000000001143 0 000000777745
SCT3 032203 777745 777 0 000000000461 0 000000777745
SCT3 032203 777745 0 0 000000000230 0 000000777745
SCT4 032203 777745 0 0 000000000230 0 000000777745
ST0 032203 777745 0 0 000000000230 0 000000777745
ST1 032203 777745 0 0 000000000230 0 000000777745
ST2 032203 777745 0 0 000000000230 0 000000777745
ST9 032203 777745 0 0 000000000230 0 000000777745
*032203 CAME 1,032302
INITIAL
C(AC)=000000 000230
C(E)=000000 000230
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032203 032203 0 0 312040032302 0 000000000230
IT1 032203 0 0 0 312040032302 0 000000000230
AT3 032203 0 0 0 000000032302 0 312040032302
AT6 032203 032302 0 0 000000032302 0 312040032302
FT0 032203 032302 0 0 000000000230 0 312040032302
FT1A 032203 032302 0 0 000000000230 0 000000000230
FT2 032203 032302 0 0 0 0 000000000230
FT2RQ 032203 032302 0 0 000000000230 0 000000000230
FT3 032203 032302 0 0 000000000230 0 000000000230
FT9 032204 032302 0 0 000000000230 0 000000000230
ET0 032205 032302 0 0 0 0 000000000230
ST1A 032205 032302 0 0 0 0 000000000230
ST9 032205 032302 0 0 0 0 000000000230
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 256
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0345
*032205 JUMPA 0,032206
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032205 032205 0 0 324000032206 0 000000032206
IT1 032205 0 0 0 324000032206 0 000000032206
AT3 032205 0 0 0 000000032206 0 324000032206
AT6 032205 032206 0 0 000000032206 0 324000032206
FT1A 032205 032206 0 0 000000032206 0 000000032206
FT2 032205 032206 0 0 0 0 000000032206
FT2RQ 032205 032206 0 0 000000000007 0 000000032206
FT3 032205 032206 0 0 000000000007 0 000000032206
FT9 032206 032206 0 0 000000000007 0 000000032206
ET0 032206 032206 0 0 000000000007 0 000000032206
ST1A 032206 032206 0 0 000000000007 0 000000032206
ST9 032206 032206 0 0 000000000007 0 000000032206
*032206 CAME 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032206 032206 0 0 312100032254 0 172737405060
IT1 032206 0 0 0 312100032254 0 172737405060
AT3 032206 0 0 0 000000032254 0 312100032254
AT6 032206 032254 0 0 000000032254 0 312100032254
FT0 032206 032254 0 0 172737405060 0 312100032254
FT1A 032206 032254 0 0 172737405060 0 172737405060
FT2 032206 032254 0 0 0 0 172737405060
FT2RQ 032206 032254 0 0 172737405060 0 172737405060
FT3 032206 032254 0 0 172737405060 0 172737405060
FT9 032207 032254 0 0 172737405060 0 172737405060
ET0 032210 032254 0 0 0 0 172737405060
ST1A 032210 032254 0 0 0 0 172737405060
ST9 032210 032254 0 0 0 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 257
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0346
*032210 JUMPA 0,032211
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032210 032210 0 0 324000032211 0 000000032211
IT1 032210 0 0 0 324000032211 0 000000032211
AT3 032210 0 0 0 000000032211 0 324000032211
AT6 032210 032211 0 0 000000032211 0 324000032211
FT1A 032210 032211 0 0 000000032211 0 000000032211
FT2 032210 032211 0 0 0 0 000000032211
FT2RQ 032210 032211 0 0 000000000007 0 000000032211
FT3 032210 032211 0 0 000000000007 0 000000032211
FT9 032211 032211 0 0 000000000007 0 000000032211
ET0 032211 032211 0 0 000000000007 0 000000032211
ST1A 032211 032211 0 0 000000000007 0 000000032211
ST9 032211 032211 0 0 000000000007 0 000000032211
*032211 MOVE 1,032261
INITIAL
C(AC)=000000 000230
C(E)=007603 607062
FINAL
C(AC)=007603 607062
TIME PC MA SC FE AR MQ BR
IT0 032211 032211 0 0 200040032261 0 007603607062
IT1 032211 0 0 0 200040032261 0 007603607062
AT3 032211 0 0 0 000000032261 0 200040032261
AT6 032211 032261 0 0 000000032261 0 200040032261
FT0 032211 032261 0 0 007603607062 0 200040032261
FT1A 032211 032261 0 0 007603607062 0 007603607062
FT9 032212 032261 0 0 007603607062 0 007603607062
ET0 032212 032261 0 0 007603607062 0 007603607062
ST1 032212 032261 0 0 007603607062 0 007603607062
ST2 032212 032261 0 0 007603607062 0 007603607062
ST9 032212 032261 0 0 007603607062 0 007603607062
*032212 MOVE 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
C(AC)=172737 405060
TIME PC MA SC FE AR MQ BR
IT0 032212 032212 0 0 200100032254 0 172737405060
IT1 032212 0 0 0 200100032254 0 172737405060
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 258
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0347
AT3 032212 0 0 0 000000032254 0 200100032254
AT6 032212 032254 0 0 000000032254 0 200100032254
FT0 032212 032254 0 0 172737405060 0 200100032254
FT1A 032212 032254 0 0 172737405060 0 172737405060
FT9 032213 032254 0 0 172737405060 0 172737405060
ET0 032213 032254 0 0 172737405060 0 172737405060
ST1 032213 032254 0 0 172737405060 0 172737405060
ST2 032213 032254 0 0 172737405060 0 172737405060
ST9 032213 032254 0 0 172737405060 0 172737405060
*032213 LSH 1,777745
INITIAL
C(AC)=007603 607062
FINAL
C(AC)=000000 000007
TIME PC MA SC FE AR MQ BR
IT0 032213 032213 0 0 242040777745 0 000000777745
IT1 032213 0 0 0 242040777745 0 000000777745
AT3 032213 0 0 0 000000777745 0 242040777745
AT6 032213 777745 0 0 000000777745 0 242040777745
FT1A 032213 777745 0 0 000000777745 0 000000777745
FT2 032213 777745 0 0 0 0 000000777745
FT2RQ 032213 777745 0 0 007603607062 0 000000777745
FT3 032213 777745 0 0 007603607062 0 000000777745
FT9 032214 777745 0 0 007603607062 0 000000777745
ET0 032214 777745 745 0 007603607062 0 000000777745
SCT0 032214 777745 745 0 007603607062 0 000000777745
SCT3 032214 777745 746 0 003701703431 0 000000777745
SCT3 032214 777745 747 0 001740741614 0 000000777745
SCT3 032214 777745 0 0 000760360706 0 000000777745
SCT3 032214 777745 751 0 000370170343 0 000000777745
SCT3 032214 777745 752 0 000174074161 0 000000777745
SCT3 032214 777745 753 0 000076036070 0 000000777745
SCT3 032214 777745 754 0 000037017034 0 000000777745
SCT3 032214 777745 755 0 000017407416 0 000000777745
SCT3 032214 777745 756 0 000007603607 0 000000777745
SCT3 032214 777745 757 0 000003701703 0 000000777745
SCT3 032214 777745 0 0 000001740741 0 000000777745
SCT3 032214 777745 761 0 000000760360 0 000000777745
SCT3 032214 777745 762 0 000000370170 0 000000777745
SCT3 032214 777745 763 0 000000174074 0 000000777745
SCT3 032214 777745 764 0 000000076036 0 000000777745
SCT3 032214 777745 765 0 000000037017 0 000000777745
SCT3 032214 777745 766 0 000000017407 0 000000777745
SCT3 032214 777745 767 0 000000007603 0 000000777745
SCT3 032214 777745 0 0 000000003701 0 000000777745
SCT3 032214 777745 771 0 000000001740 0 000000777745
SCT3 032214 777745 772 0 000000000760 0 000000777745
SCT3 032214 777745 773 0 000000000370 0 000000777745
SCT3 032214 777745 774 0 000000000174 0 000000777745
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 259
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0348
SCT3 032214 777745 775 0 000000000076 0 000000777745
SCT3 032214 777745 776 0 000000000037 0 000000777745
SCT3 032214 777745 777 0 000000000017 0 000000777745
SCT3 032214 777745 0 0 000000000007 0 000000777745
SCT4 032214 777745 0 0 000000000007 0 000000777745
ST0 032214 777745 0 0 000000000007 0 000000777745
ST1 032214 777745 0 0 000000000007 0 000000777745
ST2 032214 777745 0 0 000000000007 0 000000777745
ST9 032214 777745 0 0 000000000007 0 000000777745
*032214 CAME 1,032252
INITIAL
C(AC)=000000 000007
C(E)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032214 032214 0 0 312040032252 0 000000000007
IT1 032214 0 0 0 312040032252 0 000000000007
AT3 032214 0 0 0 000000032252 0 312040032252
AT6 032214 032252 0 0 000000032252 0 312040032252
FT0 032214 032252 0 0 000000000007 0 312040032252
FT1A 032214 032252 0 0 000000000007 0 000000000007
FT2 032214 032252 0 0 0 0 000000000007
FT2RQ 032214 032252 0 0 000000000007 0 000000000007
FT3 032214 032252 0 0 000000000007 0 000000000007
FT9 032215 032252 0 0 000000000007 0 000000000007
ET0 032216 032252 0 0 0 0 000000000007
ST1A 032216 032252 0 0 0 0 000000000007
ST9 032216 032252 0 0 0 0 000000000007
*032216 JUMPA 0,032217
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032216 032216 0 0 324000032217 0 000000032217
IT1 032216 0 0 0 324000032217 0 000000032217
AT3 032216 0 0 0 000000032217 0 324000032217
AT6 032216 032217 0 0 000000032217 0 324000032217
FT1A 032216 032217 0 0 000000032217 0 000000032217
FT2 032216 032217 0 0 0 0 000000032217
FT2RQ 032216 032217 0 0 000000000007 0 000000032217
FT3 032216 032217 0 0 000000000007 0 000000032217
FT9 032217 032217 0 0 000000000007 0 000000032217
ET0 032217 032217 0 0 000000000007 0 000000032217
ST1A 032217 032217 0 0 000000000007 0 000000032217
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 260
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0349
ST9 032217 032217 0 0 000000000007 0 000000032217
*032217 CAME 2,032254
INITIAL
C(AC)=172737 405060
C(E)=172737 405060
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032217 032217 0 0 312100032254 0 172737405060
IT1 032217 0 0 0 312100032254 0 172737405060
AT3 032217 0 0 0 000000032254 0 312100032254
AT6 032217 032254 0 0 000000032254 0 312100032254
FT0 032217 032254 0 0 172737405060 0 312100032254
FT1A 032217 032254 0 0 172737405060 0 172737405060
FT2 032217 032254 0 0 0 0 172737405060
FT2RQ 032217 032254 0 0 172737405060 0 172737405060
FT3 032217 032254 0 0 172737405060 0 172737405060
FT9 032220 032254 0 0 172737405060 0 172737405060
ET0 032221 032254 0 0 0 0 172737405060
ST1A 032221 032254 0 0 0 0 172737405060
ST9 032221 032254 0 0 0 0 172737405060
*032221 JUMPA 0,032222
INITIAL
C(AC)=000000 000007
FINAL
TIME PC MA SC FE AR MQ BR
IT0 032221 032221 0 0 324000032222 0 000000032222
IT1 032221 0 0 0 324000032222 0 000000032222
AT3 032221 0 0 0 000000032222 0 324000032222
AT6 032221 032222 0 0 000000032222 0 324000032222
FT1A 032221 032222 0 0 000000032222 0 000000032222
FT2 032221 032222 0 0 0 0 000000032222
FT2RQ 032221 032222 0 0 000000000007 0 000000032222
FT3 032221 032222 0 0 000000000007 0 000000032222
FT9 032222 032222 0 0 000000000007 0 000000032222
ET0 032222 032222 0 0 000000000007 0 000000032222
ST1A 032222 032222 0 0 000000000007 0 000000032222
ST9 032222 032222 0 0 000000000007 0 000000032222
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 261
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0350
*032222 JRST 0,030057
INITIAL
C(AC)=000000 000007
C(E)=254000 030641
FINAL
C(E)=254000 030641
TIME PC MA SC FE AR MQ BR
IT0 032222 032222 0 0 254000030057 0 254000030057
IT1 032222 0 0 0 254000030057 0 254000030057
AT3 032222 0 0 0 000000030057 0 254000030057
AT6 032222 030057 0 0 000000030057 0 254000030057
FT1A 032222 030057 0 0 000000030057 0 254000030057
FT9 032223 030057 0 0 000000030057 0 254000030057
ET0 030057 032223 0 0 000000030057 0 254000030057
ST1A 030057 032223 0 0 000000030057 0 254000030057
ST9 030057 032223 0 0 000000030057 0 254000030057
*030057 JRST 0,030641
INITIAL
C(AC)=000000 000007
C(E)=350000 030047
FINAL
C(E)=350000 030047
TIME PC MA SC FE AR MQ BR
IT0 030057 030057 0 0 254000030641 0 254000030641
IT1 030057 0 0 0 254000030641 0 254000030641
AT3 030057 0 0 0 000000030641 0 254000030641
AT6 030057 030641 0 0 000000030641 0 254000030641
FT1A 030057 030641 0 0 000000030641 0 254000030641
FT9 030060 030641 0 0 000000030641 0 254000030641
ET0 030641 030060 0 0 000000030641 0 254000030641
ST1A 030641 030060 0 0 000000030641 0 254000030641
ST9 030641 030060 0 0 000000030641 0 254000030641
*030641 AOS 0,030047
INITIAL
C(AC)=000000 000007
C(E)=000000 000000
FINAL
C(AC)=000000 000007
C(E)=000000 000000
TIME PC MA SC FE AR MQ BR
IT0 030641 030641 0 0 350000030047 0 0
IT1 030641 0 0 0 350000030047 0 0
AT3 030641 0 0 0 000000030047 0 350000030047
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 262
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0351
AT6 030641 030047 0 0 000000030047 0 350000030047
FT0 030641 030047 0 0 0 0 350000030047
FT1A 030641 030047 0 0 0 0 0
FT9 030642 030047 0 0 0 0 0
ET0 030642 030047 0 0 000000000001 0 0
ST5 030642 030047 0 0 000000000001 0 0
ST6A 030642 030047 0 0 000000000001 0 0
ST9 030642 030047 0 0 000000000001 0 0
*030642 SOS 0,030024
INITIAL
C(AC)=000000 000007
C(E)=000000 000001
FINAL
C(AC)=000000 000007
C(E)=000000 000001
TIME PC MA SC FE AR MQ BR
IT0 030642 030642 0 0 370000030024 0 000000000001
IT1 030642 0 0 0 370000030024 0 000000000001
AT3 030642 0 0 0 000000030024 0 370000030024
AT6 030642 030024 0 0 000000030024 0 370000030024
FT0 030642 030024 0 0 000000000001 0 370000030024
FT1A 030642 030024 0 0 000000000001 0 000000000001
FT9 030643 030024 0 0 000000000001 0 000000000001
ET0 030643 030024 0 0 0 0 000000000001
ST5 030643 030024 0 0 0 0 000000000001
ST6A 030643 030024 0 0 0 0 000000000001
ST9 030643 030024 0 0 0 0 000000000001
*030643 SKIPN 0,030037
INITIAL
C(AC)=000000 000007
C(E)=000000 000000
FINAL
C(AC)=000000 000007
TIME PC MA SC FE AR MQ BR
IT0 030643 030643 0 0 336000030037 0 0
IT1 030643 0 0 0 336000030037 0 0
AT3 030643 0 0 0 000000030037 0 336000030037
AT6 030643 030037 0 0 000000030037 0 336000030037
FT0 030643 030037 0 0 0 0 336000030037
FT1A 030643 030037 0 0 0 0 0
FT9 030644 030037 0 0 0 0 0
ET0 030644 030037 0 0 0 0 0
ST1A 030644 030037 0 0 0 0 0
ST9 030644 030037 0 0 0 0 0
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 263
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0352
*030644 JRST 0,030652
INITIAL
C(AC)=000000 000007
C(E)=332000 030041
FINAL
C(E)=332000 030041
TIME PC MA SC FE AR MQ BR
IT0 030644 030644 0 0 254000030652 0 254000030652
IT1 030644 0 0 0 254000030652 0 254000030652
AT3 030644 0 0 0 000000030652 0 254000030652
AT6 030644 030652 0 0 000000030652 0 254000030652
FT1A 030644 030652 0 0 000000030652 0 254000030652
FT9 030645 030652 0 0 000000030652 0 254000030652
ET0 030652 030645 0 0 000000030652 0 254000030652
ST1A 030652 030645 0 0 000000030652 0 254000030652
ST9 030652 030645 0 0 000000030652 0 254000030652
*030652 SKIPE 0,030041
INITIAL
C(AC)=000000 000007
C(E)=000000 000000
FINAL
C(AC)=000000 000007
TIME PC MA SC FE AR MQ BR
IT0 030652 030652 0 0 332000030041 0 0
IT1 030652 0 0 0 332000030041 0 0
AT3 030652 0 0 0 000000030041 0 332000030041
AT6 030652 030041 0 0 000000030041 0 332000030041
FT0 030652 030041 0 0 0 0 332000030041
FT1A 030652 030041 0 0 0 0 0
FT9 030653 030041 0 0 0 0 0
ET0 030654 030041 0 0 0 0 0
ST1A 030654 030041 0 0 0 0 0
ST9 030654 030041 0 0 0 0 0
*030654 DATAO 4,030024
TIME PC MA SC FE AR MQ BR
IT0 030654 030654 0 0 700540030024 0 000000030024
IT1 030654 0 0 0 700540030024 0 000000030024
AT3 030654 0 0 0 000000030024 0 700540030024
AT6 030654 030024 0 0 000000030024 0 700540030024
FT1A 030654 030024 0 0 000000030024 0 000000030024
FT2 030654 030024 0 0 0 0 000000030024
FT2RQ 030654 030024 0 0 0 0 000000030024
FT3 030654 030024 0 0 0 0 000000030024
FT9 030655 030024 0 0 0 0 000000030024
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 20-JAN-77 PAGE 264
DAKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0353
ST1 030655 030024 0 0 0 0 000000030024
ST2 030655 030024 0 0 0 0 000000030024
ST9 030655 030024 0 0 0 0 000000030024
*030655 SKIPE 0,030024
INITIAL
C(AC)=000000 000007
C(E)=000000 000000
FINAL
C(AC)=000000 000007
TIME PC MA SC FE AR MQ BR
IT0 030655 030655 0 0 332000030024 0 0
IT1 030655 0 0 0 332000030024 0 0
AT3 030655 0 0 0 000000030024 0 332000030024
AT6 030655 030024 0 0 000000030024 0 332000030024
FT0 030655 030024 0 0 0 0 332000030024
FT1A 030655 030024 0 0 0 0 0
FT9 030656 030024 0 0 0 0 0
ET0 030657 030024 0 0 0 0 0
ST1A 030657 030024 0 0 0 0 0
ST9 030657 030024 0 0 0 0 0
*030657 JRST 0,@030012
INITIAL
C(AC)=000000 000007
C(E)=000000 431100
FINAL
C(E)=000000 431100
TIME PC MA SC FE AR MQ BR
IT0 030657 030657 0 0 254020030012 0 000000431100
IT1 030657 0 0 0 254020030012 0 000000431100
AT3 030657 0 0 0 000000030012 0 254020030012
AT4 030657 030012 0 0 000000431100 0 254020030012
IT1 030657 0 0 0 000000431100 0 254020030012
AT3 030657 0 0 0 000000431100 0 000000431100
AT6 030657 0 0 0 000000431100 0 000000431100
FT1A 030657 0 0 0 000000431100 0 000000431100
FT9 030660 0 0 0 000000431100 0 000000431100
ET0 0 030660 0 0 000000431100 0 000000431100
ST1A 0 030660 0 0 000000431100 0 000000431100
ST9 0 030660 0 0 000000431100 0 000000431100