diff --git a/apps/pdp10/tapes/diags/klad/dakaa/DAKAA.LST.txt b/apps/pdp10/tapes/diags/klad/dakaa/DAKAA.LST.txt new file mode 100644 index 000000000..7d3c940cd --- /dev/null +++ b/apps/pdp10/tapes/diags/klad/dakaa/DAKAA.LST.txt @@ -0,0 +1,10131 @@ +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1 +DAKAAT MAC 19-JAN-77 13:31 DIAGNOSTIC PARAMETERS SEQ 0007 + + 1 ;DAKAA + 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 DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 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 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 2 +DAKAAT MAC 19-JAN-77 13:31 DIAGNOSTIC PARAMETERS SEQ 0008 + + 30 SUBTTL DIAGNOSTIC PARAMETERS + 31 + 32 ;PARAMETER DEFINITIONS + 33 000001 EXCASB==1 + 34 000001 USRASB==1 + 35 000001 KA10==1 + 36 + 37 ;FLAG DEFINITIONS + 38 010000 USERF=10000 ;USER MODE FLAG + 39 + 40 + 41 ;MACROS + 42 + 43 ; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1) + 44 ; TO A (JUMPA .-X) TO CYCLE ON FAILING INSTRUCTION + 45 + 46 DEFINE STOP (A)< + 47 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 48 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 49 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 50 ;IN THE SUBTEST) TO LOOP ON ERROR> + 51 + 52 ;SPECIAL FEATURE PARAMETERS + 53 + 54 030742 SADR1=A00 + 55 030742 SADR2=A00 + 56 030742 SADR3=A00 + 57 030742 SADR4=A00 + 58 254000 030742 SADR5=JRST A00 + 59 254000 030742 SADR6=JRST A00 + 60 254000 030742 SADR7=JRST A00 + 61 254000 030742 SADR8=JRST A00 + 62 254000 030742 SADR9=JRST A00 + 63 254000 030742 SADR10=JRST A00 + 64 254000 030742 SADR11=JRST A00 + 65 + 66 000000 PAREA0=0 + 67 000000 PAREA1=0 + 68 000000 PAREA2=0 + 69 444153 414100 PAREA3=SIXBIT/DAKAA/ + 70 645560 000000 PAREA4=SIXBIT/TMP/ + 71 000000 PAREA5=0 + 72 000000 PAREA6=0 + 73 001000 ITERAT==1000 + 74 777777 777777 PGMEND==-1 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1 +PARAM KLM 18-JAN-77 11:38 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977 SEQ 0009 + + 75 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977 + 76 + 77 DEFINE S,<;*********************************************************************> + 78 + 79 S^;*********************************************************************^ + 80 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE) + 81 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE + 82 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS + 83 S^;*********************************************************************^ + 84 + 85 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION + 86 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS + 87 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE + 88 + 89 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) + 90 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) + 91 010000 DING== 010000 ;RING BELL ON ERROR + 92 + 93 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR + 94 002000 ERSTOP==002000 ;HALT ON TEST ERROR + 95 001000 PALERS==001000 ;PRINT ALL ERRORS + 96 + 97 000400 RELIAB==000400 ;RELIABILITY MODE + 98 000200 TXTINH==000200 ;INHIBIT ERROR TEXT + 99 000100 INHPAG==000100 ;INHIBIT PAGING + 100 + 101 000040 MODDVC==000040 ;MODIFY DEVICE CODE + 102 000020 INHCSH==000020 ;INHIBIT CACHE + 103 000010 OPRSEL==000010 ;OPERATOR SELECTION + 104 + 105 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH + 106 + 107 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER + 108 + 109 ;SWITCH 17 RESERVED !!! +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 2 +PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0010 + + 110 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 + 111 + 112 S^;*********************************************************************^ + 113 ;*SPECIAL SUBPROGRAM LINKAGES + 114 S^;*********************************************************************^ + 115 + 116 027772 FSELNK= 27772 ;FILE SELECT LINK + 117 027773 FRDLNK= 27773 ;FILE READ LINK + 118 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS + 119 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS + 120 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS + 121 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS + 122 + 123 S^;*********************************************************************^ + 124 ;*SPECIAL SUBROUTINE FATAL HALTS + 125 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE + 126 S^;*********************************************************************^ + 127 + 128 ;ADDRESS TAG REASON + 129 ;--------------------- + 130 + 131 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION + 132 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR + 133 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR + 134 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT + 135 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL + 136 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET + 137 ; 1016 CPIERR ;CPU INITIALIZATION ERROR + 138 ; 1017 EOPERR ;END OF PROGRAM ERROR + 139 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT + 140 + 141 S^;*********************************************************************^ +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 3 +PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0011 + + 142 S^;*********************************************************************^ + 143 ;OPERATOR DEFINITIONS (NON-UUO'S) + 144 S^;*********************************************************************^ + 145 + 146 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL + 147 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN + 148 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST + 149 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST + 150 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S + 151 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT + 152 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT + 153 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT + 154 + 155 S^;*********************************************************************^ + 156 ;*SUBROUTINE INITIALIZATION CALL + 157 S^;*********************************************************************^ + 158 + 159 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION + 160 + 161 S^;*********************************************************************^ + 162 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). + 163 S^;*********************************************************************^ + 164 + 165 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT + 166 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT + 167 + 168 S^;*********************************************************************^ + 169 ;*TERMINAL INPUT UUO'S + 170 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE + 171 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. + 172 S^;*********************************************************************^ + 173 + 174 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER + 175 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y + 176 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N + 177 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD + 178 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD + 179 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD + 180 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK + 181 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK + 182 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD + 183 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 4 +PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0012 + + 184 ;*TERMINAL OUTPUT UUO'S. + 185 + 186 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD + 187 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED + 188 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE + 189 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED + 190 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE + 191 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED + 192 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE + 193 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED + 194 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE + 195 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED + 196 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE + 197 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED + 198 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER + 199 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED + 200 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT + 201 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED + 202 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS + 203 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED + 204 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS + 205 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED + 206 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS + 207 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED + 208 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS + 209 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED + 210 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS + 211 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED + 212 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS + 213 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED + 214 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS + 215 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. + 216 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS + 217 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED + 218 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL + 219 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED + 220 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 + 221 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED + 222 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S + 223 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED + 224 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S + 225 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED + 226 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S + 227 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED + 228 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME + 229 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD + 230 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED + 231 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE + 232 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD + 233 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED + 234 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED + 235 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED + 236 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE + 237 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED + 238 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 4-1 +PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0013 + + 239 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED + 240 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL + 241 + 242 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE + 243 + 244 DEFINE PMSG (ARG),< + 245 PSIXM [SIXBIT\ARG'_\]> + 246 + 247 DEFINE PMSGF (ARG),< + 248 PSIXMF [SIXBIT\ARG'_\]> + 249 + 250 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING + 251 ;* CONSERVES CORE OVER ASCIZ + 252 + 253 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> + 254 + 255 ;*CONSOLE SWITCH INPUT UUO. + 256 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF + 257 ;* USER MODE. + 258 + 259 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES + 260 + 261 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION + 262 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. + 263 + 264 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK + 265 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER + 266 + 267 ;*KL10 ONLY CACHE OPERATION UUO'S + 268 + 269 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE + 270 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH + 271 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 5 +PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0014 + + 272 ;*END OF PASS/PROGRAM UUOS + 273 + 274 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, + 275 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. + 276 + 277 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS + 278 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO + 279 + 280 ;*MEMORY MANAGEMENT UUO'S + 281 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, + 282 ;*ADDRESS CONVERSION, ETC... + 283 + 284 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY + 285 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY + 286 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT + 287 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT + 288 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK + 289 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP + 290 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP + 291 + 292 ;*DEVICE CODE MODIFICATION UUO + 293 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO + 294 ;*IOT'S TO A DIFFERENT DEVICE CODE. + 295 + 296 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER + 297 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM + 298 + 299 030000 IFNDEF MODDVL, + 300 030000 IFNDEF MODDVU, + 301 + 302 ;*"DIAMON" FILE SELECTION AND READ UUOS + 303 + 304 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION + 305 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA + 306 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA + 307 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA + 308 + 309 ;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES + 310 + 311 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE + 312 + 313 XLIST + 314 IFNDEF KLOLD, + 340 + 341 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP + 342 + 343 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< + 344 SALL + 345 ERUUO FORMAT,[T,,[SIXBIT\F'_\] + 346 CORECT,,ACTUAL + 347 [SIXBIT\D'_\],,ERR] + 348 XALL > + 349 + 350 >;END OF KLOLD CONDITIONAL + 351 + 352 XLIST + 353 LIST +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1 +FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0016 + + 354 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 + 355 + 356 030000 LOC 30000 + 357 + 358 S^;*********************************************************************^ + 359 ;*PROGRAM STARTING ADDRESSES + 360 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS + 361 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE + 362 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER + 363 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. + 364 S^;*********************************************************************^ + 365 + 366 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START + 367 030001 254 00 0 00 030712 $START: JRST START ;MODE CHECK STARTING ADDRESS + 368 + 369 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START + 370 + 371 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START + 372 + 373 030004 254 00 0 00 030742 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START + 374 + 375 030005 254 00 0 00 030742 PFSTRT: JRST SADR2 ;POWER FAIL RESTART + 376 + 377 030006 254 00 0 00 030742 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) + 378 + 379 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" + 380 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START + 381 + 382 030010 254 00 0 00 030741 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) + 383 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE + 384 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE + 385 + 386 030013 254000 030742 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS + 387 030014 254000 030742 START2: SADR8 ; " + 388 030015 254000 030742 START3: SADR9 ; " + 389 030016 254000 030742 START4: SADR10 ; " + 390 030017 254000 030742 START5: SADR11 ; " +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 2 +FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0017 + + 391 S^;*********************************************************************^ + 392 ;*PROGRAM FIXED PARAMETER AREA + 393 S^;*********************************************************************^ + 394 + 395 030020 444153 414100 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME + 396 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION + 397 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER + 398 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES + 399 030024 000000 001000 ITRCNT: ITERAT ;PROGRAM ITERATIONS + 400 030025 000000 030725 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME + 401 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL + 402 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT + 403 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT + 404 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED + 405 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED + 406 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE + 407 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS + 408 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER + 409 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER + 410 + 411 S^;*********************************************************************^ + 412 ;*PROGRAM VARIABLE PARAMETER AREA + 413 S^;*********************************************************************^ + 414 + 415 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG + 416 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 + 417 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 + 418 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG + 419 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG + 420 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 + 421 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG + 422 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS + 423 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT + 424 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG + 425 030051 000000 000000 TESTPC: 0 ;SUBTEST PC + 426 030052 000000 000000 ERRPC: 0 ;ERROR PC + 427 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS + 428 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME + 429 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE + 430 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 3 +FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0018 + + 431 S^;*********************************************************************^ + 432 ;*SPECIAL PROGRAM DISPATCH ADDRESSES + 433 S^;*********************************************************************^ + 434 + 435 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS + 436 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM + 437 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN + 438 030062 254000 030742 CNTLC: SADR5 ;CONTROL C XFER ADDRESS + 439 030063 254000 030742 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS + 440 030064 CPOPJ1: ;SKIP RETURN + 441 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO + 442 030065 CPOPJ: ;NON-SKIP REGULAR RETURN + 443 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN + 444 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE + 445 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE + 446 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) + 447 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE + 448 030072 255 00 0 00 000000 $ITRX1: JFCL ; " + 449 030073 255 00 0 00 000000 $USRHL: JFCL ; " + 450 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE + 451 030075 255 00 0 00 000000 $RSRTY: JFCL ; " + 452 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) + 453 030077 255 00 0 00 000000 RESRT2: JFCL ; " + 454 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE + 455 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE + 456 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT + 457 + 458 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) + 459 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT + 460 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) + 461 + 462 S^;*********************************************************************^ + 463 ;*PROCESSOR CONTROL STORAGE + 464 S^;*********************************************************************^ + 465 + 466 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 + 467 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI + 468 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR + 469 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) + 470 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) + 471 + 472 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO + 473 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO + 474 + 475 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS + 476 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG + 477 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG + 478 030120 000000 000000 %COREC: 0 ; " CORRECT DATA + 479 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG + 480 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA + 481 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 4 +FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0019 + + 482 S^;*********************************************************************^ + 483 ;*UUO DISPATCH TABLE + 484 S^;*********************************************************************^ + 485 XLIST + 486 LIST + 487 030124 030070 030070 UUODIS: LUUO1,,$UUOER + 488 030125 030070 030070 LUUO3,,LUUO2 + 489 030126 030070 030070 LUUO5,,LUUO4 + 490 030127 030070 030070 LUUO7,,LUUO6 + 491 030130 030070 030070 LUUO11,,LUUO10 + 492 030131 030070 030070 LUUO13,,LUUO12 + 493 030132 030070 030070 LUUO15,,LUUO14 + 494 030133 030070 030070 LUUO17,,LUUO16 + 495 030134 030070 030070 LUUO21,,LUUO20 + 496 030135 030070 030070 LUUO23,,LUUO22 + 497 030136 030070 030070 LUUO25,,LUUO24 + 498 030137 030070 030070 LUUO27,,LUUO26 + 499 030140 030070 030070 LUUO31,,LUUO30 + 500 030141 030070 030070 LUUO33,,LUUO32 + 501 + 502 S^;*********************************************************************^ + 503 ;*MEMORY MANAGMENT STORAGE + 504 S^;*********************************************************************^ + 505 + 506 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT + 507 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING + 508 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) + 509 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY + 510 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE + 511 + 512 S^;*********************************************************************^ + 513 ;*PRINT CONTROL STORAGE + 514 S^;*********************************************************************^ + 515 + 516 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE + 517 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE + 518 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG + 519 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS + 520 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL + 521 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME + 522 030225 000000 000000 $TWCNT: 0 ;TIME WAITED + 523 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG + 524 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG + 525 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE + 526 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR + 527 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR + 528 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER + 529 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG + 530 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG + 531 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG + 532 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG + 533 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS + 534 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 5 +FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0020 + + 535 S^;*********************************************************************^ + 536 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED + 537 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: + 538 ;* MOVEI NAME + 539 ;* PNTA ;OR PNTAF + 540 S^;*********************************************************************^ + 541 + 542 030242 CRLF: ASCII/ + 543 030242 015 012 000 000 000 / + 544 030243 CRLF2: ASCII/ + 545 + 546 030243 015 012 015 012 000 / + 547 030244 054 000 000 000 000 COMMA: ASCII/,/ + 548 030245 056 000 000 000 000 PERIOD: ASCII/./ + 549 030246 040 000 000 000 000 SPACE: ASCII/ / + 550 030247 011 000 000 000 000 TAB: ASCII/ / + 551 030250 MINUS: + 552 030250 055 000 000 000 000 HYPEN: ASCII/-/ + 553 030251 053 000 000 000 000 PLUS: ASCII/+/ + 554 030252 052 000 000 000 000 AST: ASCII/*/ + 555 030253 100 000 000 000 000 ATSIN: ASCII/@/ + 556 030254 050 000 000 000 000 LFP: ASCII/(/ + 557 030255 051 000 000 000 000 RTP: ASCII/)/ + 558 030256 007 0000000000 BELL: BYTE (7) 007 + 559 030257 077 000 000 000 000 QUEST: ASCII/?/ + 560 030260 057 000 000 000 000 SLASH: ASCII!/! + 561 030261 044 000 000 000 000 DOLLAR: ASCII/$/ + 562 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX + 563 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR + 564 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT + 565 + 566 S^;*********************************************************************^ + 567 ;*USER MODE OUTPUT FILE INFORMATION + 568 S^;*********************************************************************^ + 569 + 570 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER + 571 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME + 572 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION + 573 030272 BLOCK 2 + 574 + 575 S^;*********************************************************************^ + 576 ;*DISK UPDATE MODE FILE INFORMATION + 577 S^;*********************************************************************^ + 578 + 579 030274 $IBUF: BLOCK 3 + 580 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ + 581 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ + 582 030301 BLOCK 2 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 6 +FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0021 + + 583 S^;*********************************************************************^ + 584 ;*PUSHDOWN LIST CONTROL INFORMATION + 585 S^;*********************************************************************^ + 586 + 587 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST + 588 030304 PLISTS: BLOCK 200 + 589 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST + 590 + 591 S^;*********************************************************************^ + 592 ;*POWER LINE CLOCK FREQUENCY FLAG + 593 S^;*********************************************************************^ + 594 + 595 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE + 596 + 597 S^;*********************************************************************^ + 598 ;*KL10 CACHE CONTROL FLAGS + 599 S^;*********************************************************************^ + 600 + 601 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 + 602 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 + 603 + 604 S^;*********************************************************************^ + 605 ;*NUMBER INPUT DIGIT FLAG + 606 S^;*********************************************************************^ + 607 + 608 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED + 609 + 610 S^;*********************************************************************^ + 611 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION + 612 S^;*********************************************************************^ + 613 + 614 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION + 615 + 616 S^;*********************************************************************^ + 617 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS + 618 S^;*********************************************************************^ + 619 + 620 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO + 621 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO + 622 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO + 623 + 624 S^;*********************************************************************^ + 625 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION + 626 S^;*********************************************************************^ + 627 + 628 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 7 +FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0022 + + 629 S^;*********************************************************************^ + 630 ;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD + 631 S^;*********************************************************************^ + 632 + 633 030516 000000 000000 KLTYP: 0 + 634 + 635 S^;*********************************************************************^ + 636 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION + 637 S^;*********************************************************************^ + 638 + 639 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER + 640 + 641 S^;*********************************************************************^ + 642 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION + 643 S^;*********************************************************************^ + 644 + 645 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR + 646 + 647 S^;*********************************************************************^ + 648 ;*"SWITCH" CALL USAGE CONTROL + 649 S^;*********************************************************************^ + 650 + 651 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES + 652 + 653 S^;*********************************************************************^ + 654 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS + 655 S^;*********************************************************************^ + 656 + 657 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL + 658 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL + 659 + 660 S^;*********************************************************************^ + 661 ;*SPECIAL FUTURE EXPANSION ROOM + 662 ;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF + 663 ;*THIS BLOCK STATEMENT ACCORDINGLY. THIS MUST BE DONE + 664 ;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE. + 665 S^;*********************************************************************^ + 666 + 667 030524 BLOCK 53 ;HOPEFULLY THIS IS ENOUGH FOREVER + 668 + 669 S^;*********************************************************************^ + 670 ;*END OF FIXED STORAGE + 671 S^;*********************************************************************^ + 672 + 673 030577 $ENDFX=&<777700>-1 + 674 030577 LOC $ENDFX + 675 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1 +SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0023 + + 676 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 + 677 + 678 ;NEW DEFINITIONS USED BY THE KL10 SUBROUTINE PACKAGE + 679 + 680 000000 AC0= 0 + 681 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS + 682 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS + 683 020000 DIAMON= 20000 ;PDP-10 DIAMON LOADER START ADDRESS + 684 020000 DONG11= 1B22 ;11 DOORBELL (FROM THE 10) + 685 + 686 ;DTE20 DEVICE CODES + 687 + 688 000200 DTE== 200 ;DTE0 + 689 000204 DTE0== 204 + 690 000204 DTE1== 204 + 691 000210 DTE2== 210 + 692 000214 DTE3== 214 + 693 + 694 ;KL10 EPT COMMUNICATION AREA + 695 + 696 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS + 697 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS + 698 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS + 699 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS + 700 + 701 000444 $DTFLG= 444 ;DTE20 OPERATION COMPLETE FLAG + 702 000445 $DTCLK= 445 ;DTE20 CLOCK INTERRUPT FLAG + 703 000446 $DTCI= 446 ;DTE20 CLOCK INTERRUPT INSTRUCTION + 704 000447 $DTT11= 447 ;DTE20 10 TO 11 ARGUMENT + 705 000450 $DTF11= 450 ;DTE20 11 TO 10 ARGUMENT + 706 000451 $DTCMD= 451 ;DTE20 TO 11 COMMAND WORD + 707 000452 $DTSEQ= 452 ;DTE20 OPERATION SEQUENCE NUMBER + 708 000453 $DTOPR= 453 ;DTE20 OPERATIONAL DTE # + 709 000454 $DTCHR= 454 ;DTE20 LAST TYPED CHARACTER + 710 000455 $DTMTD= 455 ;DTE20 MONITOR TTY OUTPUT COMPLETE FLAG + 711 000456 $DTMTI= 456 ;DTE20 MONITOR TTY INPUT FLAG + 712 + 713 000457 $DTSWR= 457 ;DTE20 CONSOLE SWITCH REGISTER +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 2 +SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0024 + + 714 ;SPECIAL "FIXED" REASSIGNMENTS + 715 + 716 030600 $$LOC=. ;SAVE CURRENT LOCATION + 717 + 718 030000 LOC 30000 + 719 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START + 720 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS + 721 + 722 000440 LOC 440 + 723 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD" + 724 000443 LOC 443 + 725 000443 254 00 0 00 030636 $STM: JRST $SPEC ;SIMPLE RUN CONTROL + 726 + 727 030057 LOC 30057 + 728 030057 254 00 0 00 030641 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND" + 729 + 730 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP + 731 + 732 000420 LOC 420 + 733 000420 254 04 0 00 000420 $$420: HALT . ;KI10 PAGE FAIL + 734 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW + 735 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW + 736 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3 + 737 000424 000000 000000 $$424: 0 ;MMUO + 738 000425 000000 000000 $$425: 0 ;MMUO PC + 739 000426 000000 000000 $$426: 0 ;KI10-PAGE FAIL, KL10-PROCESS CONTEXT + 740 000427 254 04 0 00 000427 $$427: HALT . + 741 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S + 742 000431 000000 000427 $$431: 427 + 743 000432 000000 000427 $$432: 427 + 744 000433 000000 000427 $$433: 427 + 745 000434 000000 000427 $$434: 427 + 746 000435 000000 000427 $$435: 427 + 747 000436 000000 000427 $$436: 427 + 748 000437 000000 000427 $$437: 427 + 749 + 750 000500 LOC 500 + 751 000500 000000 000000 $$500: 0 ;KL10 PAGE FAIL WORD + 752 000501 000000 000000 $$501: 0 ;KL10 PAGE FAIL PC + 753 000502 000000 000503 $$502: 503 ;KL10 PAGE FAIL NEW PC + 754 000503 254 04 0 00 000503 $$503: HALT . +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 3 +SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0025 + + 755 030600 LOC $$LOC ;RESET CURRENT LOCATION + 756 + 757 ;SPECIAL STARTUP SEQUENCE + 758 + 759 030600 402 00 0 00 030037 $$START:SETZM USER + 760 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ? + 761 030602 603 00 0 00 010000 TLNE 0,USERF + 762 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD + 763 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ? + 764 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC + 765 030606 332 00 0 00 030037 SKIPE USER + 766 030607 254 00 0 00 030712 JRST START ;USER MODE, DON'T NEED CPU TYPE + 767 + 768 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ? + 769 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER + 770 030612 402 00 0 00 030516 SETZM KLTYP + 771 030613 402 00 0 00 030041 SETZM KLFLG ;ASSUME KI10 + 772 030614 200 01 0 00 035060 MOVE 1,[1,,1] + 773 030615 251 01 0 00 000001 BLT 1,1 ;HOPE THIS WORKS + 774 030616 316 01 0 00 035060 CAMN 1,[1,,1] ;IF AC NE 1,,1 AFTER BLT, KL10 + 775 030617 254 00 0 00 030712 JRST START ;KI10, NO ADDITIONAL SETUP + 776 + 777 030620 7 000 20 0 00 010040 $STKL: CONO APR,10040 ;SET BBD NOT BIT + 778 030621 7 000 24 0 00 000000 CONI APR,0 + 779 030622 7 000 20 0 00 020040 CONO APR,20040 ;CLEAR BBD NOT BIT + 780 030623 606 00 0 00 000040 TRNN 0,40 ;IF SET, KL10 + 781 030624 350 00 0 00 030516 AOS KLTYP ;IF NOT, BBD + 782 030625 402 00 0 00 000444 SETZM $DTFLG + 783 030626 402 00 0 00 000445 SETZM $DTCLK + 784 030627 200 00 0 00 000453 MOVE $DTOPR ;GET DTE # + 785 030630 436 00 0 00 030670 ORM $$DTE0 ;INSERT IN DTE I/O INSTS + 786 030631 436 00 0 00 030672 ORM $$DTE1 + 787 030632 436 00 0 00 030704 ORM $$DTE2 + 788 030633 436 00 0 00 030706 ORM $$DTE3 + 789 030634 476 00 0 00 030041 SETOM KLFLG ;SET KL10 CONTROL FLAG + 790 030635 254 00 0 00 030712 JRST START + 791 + 792 030636 200 00 0 00 035061 $SPEC: MOVE [JRST STARTA] ;SIMPLE RUN CONTROL + 793 030637 202 00 0 00 030643 MOVEM $SPB1 + 794 030640 254 00 0 00 030712 JRST START +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 4 +SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0026 + + 795 ;SPECIAL "BEGEND" ROUTINE + 796 + 797 030641 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT + 798 030642 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT + 799 030643 336 00 0 00 030037 $SPB1: SKIPN USER + 800 030644 254 00 0 00 030652 JRST $SPBEX ;EXEC MODE + 801 + 802 030645 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ? + 803 030646 254 00 0 00 030741 JRST STARTA ;NO, KEEP RUNNING + 804 030647 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? + 805 030650 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR + 806 030651 254 00 1 00 030012 JRST @RETURN ;YES, RETURN TO "DIAMON" + 807 + 808 030652 332 00 0 00 030041 $SPBEX: SKIPE KLFLG + 809 030653 254 00 0 00 030660 JRST $SPBKL ;KL10 & EXEC + 810 030654 7 004 14 0 00 030024 DATAO PI,ITRCNT ;KI10 & EXEC, DISPLAY ITER COUNT + 811 030655 332 00 0 00 030024 SKIPE ITRCNT + 812 030656 254 00 0 00 030741 JRST STARTA ;NOT COMPLETED YET + 813 030657 254 00 1 00 030012 JRST @RETURN ;DONE + 814 + 815 030660 336 00 0 00 030024 $SPBKL: SKIPN ITRCNT + 816 030661 254 00 0 00 030676 JRST $SPKLD ;KL10, EXEC & COMPLETED + 817 + 818 030662 335 00 0 00 030043 SKIPGE MONCTL + 819 030663 254 00 0 00 030741 JRST STARTA ;"DIAMON" CONTROL + 820 030664 201 00 0 00 000404 MOVEI 0,404 ;NOTIFY PDP-11 OF END OF PASS + 821 030665 202 00 0 00 000451 MOVEM 0,$DTCMD + 822 030666 402 00 0 00 000444 SETZM $DTFLG + 823 030667 336 00 0 00 030516 SKIPN KLTYP + 824 030670 7 200 20 0 00 020000 $$DTE0: CONO DTE,DONG11 + 825 030671 332 00 0 00 030516 SKIPE KLTYP + 826 030672 7 200 20 0 00 010000 $$DTE1: CONO DTE,10000 + 827 030673 336 00 0 00 000444 SKIPN $DTFLG ;WAIT TILL 11 RESPONDS + 828 030674 254 00 0 00 030673 JRST .-1 + 829 030675 254 00 0 00 030741 JRST STARTA ;KEEP RUNNING + 830 + 831 ;SPECIAL KL10 COMPLETED ROUTINE + 832 + 833 030676 332 00 0 00 030044 $SPKLD: SKIPE MONTEN + 834 030677 254 00 1 00 030012 JRST @RETURN ;LOADED BY "DIAMON" + 835 + 836 030700 201 00 0 00 000403 MOVEI 0,403 ;NOTIFY PDP-11 OF COMPLETION + 837 030701 202 00 0 00 000451 MOVEM 0,$DTCMD + 838 030702 402 00 0 00 000444 SETZM $DTFLG + 839 030703 336 00 0 00 030516 SKIPN KLTYP + 840 030704 7 200 20 0 00 020000 $$DTE2: CONO DTE,DONG11 + 841 030705 332 00 0 00 030516 SKIPE KLTYP + 842 030706 7 200 20 0 00 010000 $$DTE3: CONO DTE,10000 + 843 030707 336 00 0 00 000444 SKIPN $DTFLG ;SHOULD NEVER HAPPEN + 844 030710 254 00 0 00 030707 JRST .-1 ;11 NEVER RETURNS ON END OF PROGRAM + 845 030711 254 04 0 00 030000 HALT BEGIN ;IF IT DOES, HALT. +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1 +DAKAAM MAC 19-JAN-77 13:42 DIAGNOSTIC SECTION SEQ 0027 + + 846 SUBTTL DIAGNOSTIC SECTION + 847 + 848 030712 402 00 0 00 030037 START: SETZM USER# ;CLEAR USER CONTROL WORD + 849 030713 265 00 0 00 030714 JSP 0,.+1 ;GET FLAGS + 850 030714 603 00 0 00 010000 TLNE USERF ;IN USER MODE? + 851 030715 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD + 852 030716 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE? + 853 030717 402 00 0 00 030037 SETZM USER ;YES, CLEAR USER CONTROL WORD + 854 030720 336 00 0 00 030037 SKIPN USER + 855 030721 254 00 0 00 030741 JRST STARTA + 856 030722 331 00 0 00 030043 SKIPL MONCTL + 857 030723 051 03 0 00 030725 TTCALL 3,PGMNAM ;MENTION OUR NAME + 858 030724 254 00 0 00 030741 JRST STARTA + 859 + 860 030725 PGMNAM: ASCIZ/ + 861 030725 015 012 120 104 120 PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) [DAKAA] + 862 030726 055 061 060 040 113 + 863 030727 101 061 060 040 102 + 864 030730 101 123 111 103 040 + 865 030731 111 116 123 124 122 + 866 030732 125 103 124 111 117 + 867 030733 116 040 104 111 101 + 868 030734 107 116 117 123 124 + 869 030735 111 103 040 050 061 + 870 030736 051 040 133 104 101 + 871 030737 113 101 101 135 015 + 872 030740 012 000 000 000 000 / + 873 + 874 ;BASIC INSTRUCTION TEST (3) + 875 ;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF + 876 ;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES + 877 ;IN THE FIELD. + 878 + 879 + 880 030741 254 00 0 00 030742 STARTA: JRST .+1 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 2 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0028 + + 881 SUBTTL TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS + 882 + 883 ;NOTE: AN "*" IN THE COMMENT FIELD OF AN INSTRUCTION INDICATES THAT IT IS THE TESTED + 884 ;INSTRUCTION. + 885 ;********** + 886 + 887 ;THIS TEST VERIFIES THAT SKIPA ALWAYS SKIPS THE NEXT INSTRUCTION + 888 + 889 030742 A00=. + 890 030742 334 00 0 00 000000 A12500: SKIPA ;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION + 891 030743 254 04 0 00 000000 HALT ;IF PROGRAM HALTS, SKIPA DID NOT SKIP + 892 + 893 ;IF PROGRAM HANGS UP ON SKIPA INSTRUCTION, CHECK AB PC EN [ABC], AB PC F/F [ABC], + 894 ;AB PC B [ABC OR AB], AB PC (FETCH) EN [ABC], IR SKIPS [IR3], IR SKIPX [IR1], + 895 ;IR 3XX [IR1], IR BITS 00 - 08 [IR1], F CYC ACT EN C [FI], FT6 F/F [F2], + 896 ;PC CLOCK EN [PCC], ET2 J F/F [E], PC CLK (ET2) EN [PCC], ADZ COND P [ADZ] AND + 897 ;ADZ COND R [ADZ], PC CLOCK A [PCC], PC CLOCK B [PCC] + 898 + 899 ;IF PROGRAM HALTED ON HALT INSTRUCTION, CHECK ST1 COND [ST2] + 900 + 901 ;********** + 902 + 903 ;THIS TEST VERIFIES THAT JUMP NEVER JUMPS + 904 + 905 030744 320 00 0 00 030745 A15000: JUMP .+1 ;*JUMP SHOULD NEVER JUMP + 906 030745 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF JUMP IS SUCCESSFUL + 907 030746 254 04 0 00 000000 HALT ;HALT IF JUMP FAILS + 908 + 909 ;IF PROGRAM HANGS UP ON JUMP .+1 INSTRUCTION, THE JUMP INSTRUCTION + 910 ;MAY HAVE FAILED. CHECK ST1 COND [ST2], ST INST FET ST1 EN [ST2], ET2 D F/F [E], + 911 ;IR JUMPS [IR1], IR JUMPX [IR1] + 912 + 913 ;********** + 914 ;THIS TEST VERIFIES THAT JUMP NEVER JUMPS + 915 + 916 030747 320 00 0 00 030751 A15100: JUMP .+2 ;*JUMP SHOULD NEVER JUMP + 917 030750 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF JUMP IS SUCCESSFUL + 918 030751 254 04 0 00 000000 HALT ;HALT IF JUMP FAILS + 919 + 920 ;AB PC EN [ABC] + 921 + 922 ;********** + 923 + 924 ;THIS TEST VERIFIES THAT JUMPA .+1 ALWAYS JUMPS TO THE NEXT INSTRUCTION + 925 + 926 030752 324 00 0 00 030753 A12700: JUMPA .+1 ;*JUMPA .+1 SHOULD NEVER JUMP + 927 030753 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF JUMPA IS SUCCESSFUL + 928 030754 254 04 0 00 000000 HALT ;HALT IF JUMPA .+1 FAILED + 929 + 930 ;********** + 931 + 932 ;THIS TEST VERIFIES THAT JUMPA JUMPS TO THE LOCATION SPECIFIED BY E WHEN E=.+2 + 933 + 934 030755 324 00 0 00 030757 A12600: JUMPA .+2 ;*JUMPA .+2 SHOULD ALWAYS SKIP THE NEXT INSTRUCTION + 935 030756 254 04 0 00 000000 HALT ;PROGRAM HALTS HERE IF JUMPA .+2 FAILS +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 2-1 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0029 + + 936 + 937 ;ST1 COND [ST2] + 938 + 939 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 3 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0030 + + 940 ;THIS TEST VERIFIES THAT SKIPA IS DATA INDEPENDENT. HENCE, IT ALWAYS SKIPS THE NEXT + 941 ;INSTRUCTION. + 942 ;THE MOVE [0] INSTRUCTION IS USED TO TEST THE DATA INDEPENDENCE OF SKIPA. + 943 + 944 030757 200 00 0 00 035062 A100: MOVE [0] ;PRESET LOCATION 0 TO ALL ZEROS + 945 030760 334 00 0 00 000000 SKIPA ;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION + 946 STOP^ + 947 030761 254 04 0 00 030762 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 948 030762 324 00 0 00 030763 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 949 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 950 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 951 + 952 ;********** + 953 ;THIS TEST INSURES THAT SKIPA IS DATA INDEPENDENT. HENCE, IT ALWAYS SKIPS THE NEXT + 954 ;INSTRUCTION. + 955 ;THE MOVE [-1] INSTRUCTION IS USED TO TEST THE DATA INDEPENDENCE OF SKIPA. + 956 + 957 030763 200 00 0 00 035063 A200: MOVE [-1] ;PRESET LOCATION 0 TO ALL ONES + 958 030764 334 00 0 00 000000 SKIPA ;*SKIPA SKOULD ALWAYS SKIP THE NEXT INSTRUCTION + 959 STOP^ + 960 030765 254 04 0 00 030766 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 961 030766 324 00 0 00 030767 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 962 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 963 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 964 + 965 ;COND P [ADZ] + 966 + 967 ;********** + 968 ;THIS TEST VERIFIES THAT SKIPGE SKIPS THE NEXT INSTRUCTION WHEN C(E) + 969 ;IS ALL ZEROS. THE MOVE INSTRUCTION IS USED TO LOAD E WITH ALL ZEROS. + 970 + 971 030767 200 00 0 00 035062 A300: MOVE [0] ;PRESET E TO ALL ZEROS + 972 030770 335 00 0 00 000000 SKIPGE ;*SKIPGE SHOULD SKIP THE NEXT INSTRUCTION + 973 STOP^ + 974 030771 254 04 0 00 030772 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 975 030772 324 00 0 00 030773 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 976 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 977 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 978 + 979 ;COND R [ADZ], AD00 S-A-1, AD AR + EN [ADAP], AD LT AR + EN [ADAP], + 980 ;AD RT AR + EN [ADAP], AD AR + EN C [ADAP], F CYC ACT EN A [F1] + 981 + 982 ;********** + 983 + 984 ;THIS TEST VERIFIES THAT SKIP IS DATA INDEPENDENT. HENCE, SKIP NEVER SKIPS. IT ALWAYS + 985 ;CONTINUES ON TO THE NEXT INSTRUCTION. + 986 + 987 030773 200 00 0 00 035063 A400: MOVE [-1] ;PRESET E TO ALL ONES + 988 030774 330 00 0 00 000000 SKIP ;*SKIP SHOULD NEVER SKIP THE NEXT INSTRUCTION + 989 030775 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES + 990 STOP^ + 991 030776 254 04 0 00 030777 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 992 030777 324 00 0 00 031000 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 993 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 994 ;IN THE SUBTEST) TO LOOP ON ERROR^ +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 3-1 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0031 + + 995 + 996 ;PC CHANGE [PCC], PC CHANGE A [PCC], SEE MEMORY CONTROL DWGS [MC1-4] + 997 + 998 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 4 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0032 + + 999 ;THIS TEST VERIFIES THAT SKIPGE WILL NOT SKIP THE NEXT INSTRUCTION WHEN C(E) IS + 1000 ;NEGATIVE. THE MOVE INSTRUCTION LOADS E WITH -1, A NEGATIVE NUMBER. + 1001 + 1002 031000 200 00 0 00 035063 A500: MOVE [-1] ;PRESET E WITH ALL ONES, A NEGATIVE NUMBER + 1003 031001 335 00 0 00 000000 SKIPGE ;*SKIPGE SHOULD NOT SKIP THE NEXT INSTRUCTION + 1004 031002 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES + 1005 STOP^ + 1006 031003 254 04 0 00 031004 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1007 031004 324 00 0 00 031005 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1008 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1009 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1010 + 1011 ;IF MOVE INSTRUCTION FAILED, CHECK MOVX-: FCE [F1], -IR XXXI [IR1], -IR XXXM [IR1], + 1012 ;IR HWTFWT [IR3], IR FWT [IR2], IR2XX [IR1] + 1013 + 1014 ;IF SKIPGE FAILED, CHECK SKIPX: FCE [F1] + 1015 + 1016 ;********** + 1017 + 1018 ;THIS TEST VERIFIES THAT SKIPN WILL NOT SKIP THE NEXT INSTRUCTION WHEN + 1019 ;C(E) IS ZERO. THE MOVE INSTRUCTION LOADS E WITH ALL ZEROS. + 1020 + 1021 031005 200 00 0 00 035062 A600: MOVE [0] ;PRESET E WITH ALL ZEROS + 1022 031006 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD NOT SKIP THE NEXT INSTRUCTION + 1023 031007 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES + 1024 STOP^ + 1025 031010 254 04 0 00 031011 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1026 031011 324 00 0 00 031012 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1027 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1028 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1029 + 1030 ;********** + 1031 + 1032 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT SHOULD SKIP + 1033 ;THE NEXT INSTRUCTION WHEN C(E) IS NON-ZERO. THE MOVE INSTRUCTION LOADS + 1034 ;E WITH -1, A NON-ZERO NUMBER. + 1035 + 1036 031012 200 00 0 00 035063 A700: MOVE [-1] ;PRESET E WITH ALL ONES, A NON-ZERO NUMBER + 1037 031013 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1038 STOP^ + 1039 031014 254 04 0 00 031015 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1040 031015 324 00 0 00 031016 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1041 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1042 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1043 + 1044 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 5 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0033 + + 1045 ;THIS TEST VERIFIES THAT SKIPE IS DATA DEPENDENT. HENCE, IT SHOULD NOT + 1046 ;SKIP THE NEXT INSTRUCTION WHEN C(E) IS NON-ZERO. THE MOVE INSTRUCTION LOADS E + 1047 ;WITH -1, A NON-ZERO NUMBER. + 1048 + 1049 031016 200 00 0 00 035063 A1000: MOVE [-1] ;PRESET E WITH ALL ONES, A NON-ZERO NUMBER + 1050 031017 332 00 0 00 000000 SKIPE ;*SKIPE SHOULD NOT SKIP THE NEXT INSTRUCTION + 1051 031020 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES + 1052 STOP^ + 1053 031021 254 04 0 00 031022 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1054 031022 324 00 0 00 031023 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1055 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1056 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1057 + 1058 ;********** + 1059 + 1060 ;THIS TEST VERIFIES THAT SKIPE IS DATA DEPENDENT. HENCE, IT SHOULD SKIP + 1061 ;THE NEXT INSTRUCTION WHEN C(E) IS ZERO. THE MOVE INSTRUCTION LOADS ALL + 1062 ;ZEROS INTO E. + 1063 + 1064 031023 200 00 0 00 035062 A1100: MOVE [0] ;PRESET E TO ALL ZEROS + 1065 031024 332 00 0 00 000000 SKIPE ;*SKIPE SHOULD SKIP THE NEXT INSTRUCTION + 1066 STOP^ + 1067 031025 254 04 0 00 031026 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1068 031026 324 00 0 00 031027 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1069 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1070 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1071 + 1072 ;********** + 1073 + 1074 ;THIS TEST VERIFIES THAT SKIP IS DATA INDEPENDENT. HENCE, IT NEVER SKIPS. IT ALWAYS + 1075 ;CONTINUES ON TO THE NEXT INSTRUCTION. + 1076 + 1077 031027 200 00 0 00 035062 A1200: MOVE [0] ;PRESET E TO ALL ZEROS + 1078 031030 330 00 0 00 000000 SKIP ;*SKIP SHOULD NEVER SKIP THE NEXT INSTRUCTION + 1079 031031 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES + 1080 STOP^ + 1081 031032 254 04 0 00 031033 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1082 031033 324 00 0 00 031034 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1083 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1084 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1085 + 1086 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 6 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0034 + + 1087 ;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT + 1088 ;INSTRUCTION WHEN C(E) IS NOT NEGATIVE. THE MOVE INSTRUCTION IS USED TO LOAD + 1089 ;E WITH ALL ZEROS, A NON-NEGATIVE NUMBER. + 1090 + 1091 031034 200 00 0 00 035062 A1300: MOVE [0] ;PRESET E T0 ZERO, A NON-NEGATIVE NUMBER + 1092 031035 331 00 0 00 000000 SKIPL ;*SKIPL SHOULD NOT SKIP THE NEXT INSTRUCTION + 1093 031036 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES + 1094 STOP^ + 1095 031037 254 04 0 00 031040 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1096 031040 324 00 0 00 031041 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1097 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1098 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1099 + 1100 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 7 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0035 + + 1101 ;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT + 1102 ;INSTRUCTION WHEN C(E) IS NEGATIVE. THE MOVE INSTRUCTION IS USED TO LOAD E WITH -1, + 1103 ;A NEGATIVE NUMBER. + 1104 + 1105 031041 200 00 0 00 035063 A1400: MOVE [-1] ;PRESET E TO -1, A NEGATIVE NUMBER + 1106 031042 331 00 0 00 000000 SKIPL ;*SKIPL SHOULD SKIP THE NEXT INSTRUCTION + 1107 STOP^ + 1108 031043 254 04 0 00 031044 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1109 031044 324 00 0 00 031045 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1110 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1111 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1112 + 1113 ;********** + 1114 + 1115 ;THIS TEST VERIFIES THAT SKIPG IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT + 1116 ;INSTRUCTION WHEN C(E) IS GREATER THAN ZERO. THE MOVE INSTRUCTION IS USED TO LOAD + 1117 ;E WITH A NON-ZERO POSITIVE NUMBER. + 1118 + 1119 031045 200 00 0 00 035064 A1500: MOVE [XWD 377777,-1] ;PRESET E TO 377777777777, A NON-ZERO POSITIVE NUMBER + 1120 031046 337 00 0 00 000000 SKIPG ;*SKIPG SHOULD SKIP THE NEXT INSTRUCTION + 1121 STOP^ + 1122 031047 254 04 0 00 031050 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1123 031050 324 00 0 00 031051 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1124 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1125 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1126 + 1127 ;********** + 1128 + 1129 ;THIS TEST VERIFIES THAT SKIPG IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT + 1130 ;INSTRUCTION WHEN C(E) IS NOT GREATER THAN ZERO. THE MOVE INSTRUCTION IS USED TO + 1131 ;LOAD E WITH -1, A NUMBER NOT GREATER THAN ZERO. + 1132 + 1133 031051 200 00 0 00 035063 A1600: MOVE [-1] ;PRESET E TO -1, A NEGATIVE NUMBER + 1134 031052 337 00 0 00 000000 SKIPG ;*SKIPG SHOULD NOT SKIP THE NEXT INSTRUCTION + 1135 031053 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES + 1136 STOP^ + 1137 031054 254 04 0 00 031055 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1138 031055 324 00 0 00 031056 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1139 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1140 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1141 + 1142 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 8 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0036 + + 1143 ;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT + 1144 ;INSTRUCTION WHEN C(E) IS NON-NEGATIVE. THE MOVE INSTRUCTION IS USED TO LOAD E WITH + 1145 ;377777777777, A NON-NEGATIVE NUMBER. + 1146 + 1147 031056 200 00 0 00 035064 A1700: MOVE [XWD 377777,-1] ;PRESET E TO 377777777777, A NON-NEGATIVE NUMBER + 1148 031057 331 00 0 00 000000 SKIPL ;*SKIPL SHOULD NOT SKIP THE NEXT INSTRUCTION + 1149 031060 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES + 1150 STOP^ + 1151 031061 254 04 0 00 031062 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1152 031062 324 00 0 00 031063 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1153 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1154 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1155 + 1156 ;********** + 1157 + 1158 ;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT + 1159 ;INSTRUCTION WHEN C(E) IS ZERO. THE MOVE INSTRUCTION LOADS E WITH ALL ZEROS. + 1160 + 1161 031063 200 00 0 00 035062 A2000: MOVE [0] ;PRESET E TO ALL ZEROS + 1162 031064 333 00 0 00 000000 SKIPLE ;*SKIPLE SHOULD SKIP THE NEXT INSTRUCTION + 1163 STOP^ + 1164 031065 254 04 0 00 031066 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1165 031066 324 00 0 00 031067 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1166 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1167 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1168 + 1169 ;********** + 1170 + 1171 ;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT + 1172 ;INSTRUCTION WHEN E CONTAINS A NEGATIVE NUMBER. THE MOVE INSTRUCTION IS USED TO LOAD + 1173 ;E WITH 400000000000, A NEGATIVE NUMBER. + 1174 + 1175 031067 200 00 0 00 035065 A2100: MOVE [XWD 400000,0] ;PRESET E TO 400000000000, A NEGATIVE NUMBER. + 1176 031070 333 00 0 00 000000 SKIPLE ;*SKIPLE SHOULD SKIP THE NEXT INSTRUCTION + 1177 STOP^ + 1178 031071 254 04 0 00 031072 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1179 031072 324 00 0 00 031073 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1180 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1181 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1182 + 1183 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 9 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0037 + + 1184 ;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT + 1185 ;INSTRUCTION WHEN E CONTAINS A POSITIVE NUMBER. THE MOVE INSTRUCTION LOADS + 1186 ;E WITH 377777777777, A POSITIVE NUMBER. + 1187 + 1188 031073 200 00 0 00 035064 A2200: MOVE [XWD 377777,-1] ;PRESET E TO 377777777777, A POSITIVE NUMBER + 1189 031074 333 00 0 00 000000 SKIPLE ;*SKIPLE SHOULD NOT SKIP THE NEXT INSTRUCTION + 1190 031075 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES + 1191 STOP^ + 1192 031076 254 04 0 00 031077 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1193 031077 324 00 0 00 031100 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1194 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1195 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1196 + 1197 ;********* +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 10 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0038 + + 1198 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT + 1199 ;INSTRUCTION ;WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO + 1200 ;LOAD 777000000000, A NON-ZERO NUMBER INTO E. + 1201 + 1202 031100 200 00 0 00 035066 A2300: MOVE [XWD 777000,0] ;PRESET E WITH 777000000000, A NON-ZERO NUMBER + 1203 031101 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1204 STOP^ + 1205 031102 254 04 0 00 031103 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1206 031103 324 00 0 00 031104 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1207 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1208 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1209 + 1210 ;********** + 1211 + 1212 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT + 1213 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO + 1214 ;LOAD A NON-ZERO NUMBER, 377000000 INTO E. + 1215 + 1216 031104 200 00 0 00 035067 A2400: MOVE [XWD 377,0] ;PRESET E TO 377000000, A NON ZERO NUMBER + 1217 031105 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1218 STOP^ + 1219 031106 254 04 0 00 031107 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1220 031107 324 00 0 00 031110 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1221 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1222 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1223 + 1224 ;********** + 1225 + 1226 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT + 1227 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO + 1228 ;LOAD E WITH A NON-ZERO NUMBER, 177000. + 1229 + 1230 031110 200 00 0 00 035070 A2500: MOVE [177000] ;PRESET E WITH 177000, A NON ZERO NUMBER + 1231 031111 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1232 STOP^ + 1233 031112 254 04 0 00 031113 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1234 031113 324 00 0 00 031114 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1235 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1236 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1237 + 1238 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 11 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0039 + + 1239 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT + 1240 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO + 1241 ;LOAD 777, A NON-ZERO NUMBER INTO E. + 1242 + 1243 031114 200 00 0 00 035071 A2600: MOVE [777] ;PRESET E WITH 777, A NON-ZERO NUMBER + 1244 031115 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1245 STOP^ + 1246 031116 254 04 0 00 031117 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1247 031117 324 00 0 00 031120 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1248 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1249 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1250 + 1251 ;********** + 1252 + 1253 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT + 1254 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO + 1255 ;LOAD E WITH 600000, A NON-ZERO NUMBER. + 1256 + 1257 031120 200 00 0 00 035072 A2700: MOVE [600000] ;PRESET E WITK 600000, A NON-ZERO NUMBER + 1258 031121 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1259 STOP^ + 1260 031122 254 04 0 00 031123 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1261 031123 324 00 0 00 031124 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1262 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1263 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1264 + 1265 ;********** + 1266 + 1267 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT + 1268 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO + 1269 ;LOAD E WITH 400000000, A NON-ZERO NUMBER. + 1270 + 1271 031124 200 00 0 00 035073 A3000: MOVE [XWD 400,000] ;PRESET E WITH 400000000, A NON-ZERO NUMBER + 1272 031125 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1273 STOP^ + 1274 031126 254 04 0 00 031127 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1275 031127 324 00 0 00 031130 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1276 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1277 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1278 + 1279 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0040 + + 1280 003100 SN=3100 + 1281 000000 ZZ=0 + 1282 + 1283 A3100: REPEAT ^D36, + 1284 <;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1285 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1286 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1287 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1288 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1289 + 1290 SN=SN+1 + 1291 ZZ=ZZ+ZZ + 1292 IFE ZZ, + 1293 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1294 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1295 STOP + 1296 + 1297 ;********** + 1298 > + 1299 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1300 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1301 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1302 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1303 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1304 + 1305 003101 SN=SN+1 + 1306 000000 ZZ=ZZ+ZZ + 1307 000001 IFE ZZ, + 1308 031130 200 00 0 00 035074 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1309 031131 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1310 STOP^ + 1311 031132 254 04 0 00 031133 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1312 031133 324 00 0 00 031134 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1313 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1314 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1315 + 1316 ;********** + 1317 + 1318 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1319 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1320 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1321 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1322 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1323 + 1324 003102 SN=SN+1 + 1325 000002 ZZ=ZZ+ZZ + 1326 IFE ZZ, + 1327 031134 200 00 0 00 035075 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1328 031135 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1329 STOP^ + 1330 031136 254 04 0 00 031137 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1331 031137 324 00 0 00 031140 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1332 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1333 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1334 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-1 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0041 + + 1335 ;********** + 1336 + 1337 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1338 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1339 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1340 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1341 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1342 + 1343 003103 SN=SN+1 + 1344 000004 ZZ=ZZ+ZZ + 1345 IFE ZZ, + 1346 031140 200 00 0 00 035076 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1347 031141 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1348 STOP^ + 1349 031142 254 04 0 00 031143 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1350 031143 324 00 0 00 031144 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1351 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1352 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1353 + 1354 ;********** + 1355 + 1356 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1357 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1358 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1359 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1360 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1361 + 1362 003104 SN=SN+1 + 1363 000010 ZZ=ZZ+ZZ + 1364 IFE ZZ, + 1365 031144 200 00 0 00 035077 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1366 031145 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1367 STOP^ + 1368 031146 254 04 0 00 031147 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1369 031147 324 00 0 00 031150 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1370 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1371 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1372 + 1373 ;********** + 1374 + 1375 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1376 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1377 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1378 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1379 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1380 + 1381 003105 SN=SN+1 + 1382 000020 ZZ=ZZ+ZZ + 1383 IFE ZZ, + 1384 031150 200 00 0 00 035100 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1385 031151 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1386 STOP^ + 1387 031152 254 04 0 00 031153 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1388 031153 324 00 0 00 031154 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1389 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-2 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0042 + + 1390 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1391 + 1392 ;********** + 1393 + 1394 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1395 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1396 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1397 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1398 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1399 + 1400 003106 SN=SN+1 + 1401 000040 ZZ=ZZ+ZZ + 1402 IFE ZZ, + 1403 031154 200 00 0 00 035101 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1404 031155 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1405 STOP^ + 1406 031156 254 04 0 00 031157 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1407 031157 324 00 0 00 031160 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1408 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1409 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1410 + 1411 ;********** + 1412 + 1413 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1414 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1415 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1416 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1417 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1418 + 1419 003107 SN=SN+1 + 1420 000100 ZZ=ZZ+ZZ + 1421 IFE ZZ, + 1422 031160 200 00 0 00 035102 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1423 031161 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1424 STOP^ + 1425 031162 254 04 0 00 031163 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1426 031163 324 00 0 00 031164 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1427 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1428 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1429 + 1430 ;********** + 1431 + 1432 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1433 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1434 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1435 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1436 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1437 + 1438 003110 SN=SN+1 + 1439 000200 ZZ=ZZ+ZZ + 1440 IFE ZZ, + 1441 031164 200 00 0 00 035103 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1442 031165 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1443 STOP^ + 1444 031166 254 04 0 00 031167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-3 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0043 + + 1445 031167 324 00 0 00 031170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1446 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1447 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1448 + 1449 ;********** + 1450 + 1451 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1452 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1453 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1454 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1455 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1456 + 1457 003111 SN=SN+1 + 1458 000400 ZZ=ZZ+ZZ + 1459 IFE ZZ, + 1460 031170 200 00 0 00 035104 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1461 031171 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1462 STOP^ + 1463 031172 254 04 0 00 031173 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1464 031173 324 00 0 00 031174 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1465 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1466 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1467 + 1468 ;********** + 1469 + 1470 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1471 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1472 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1473 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1474 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1475 + 1476 003112 SN=SN+1 + 1477 001000 ZZ=ZZ+ZZ + 1478 IFE ZZ, + 1479 031174 200 00 0 00 035105 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1480 031175 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1481 STOP^ + 1482 031176 254 04 0 00 031177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1483 031177 324 00 0 00 031200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1484 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1485 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1486 + 1487 ;********** + 1488 + 1489 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1490 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1491 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1492 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1493 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1494 + 1495 003113 SN=SN+1 + 1496 002000 ZZ=ZZ+ZZ + 1497 IFE ZZ, + 1498 031200 200 00 0 00 035106 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1499 031201 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-4 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0044 + + 1500 STOP^ + 1501 031202 254 04 0 00 031203 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1502 031203 324 00 0 00 031204 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1503 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1504 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1505 + 1506 ;********** + 1507 + 1508 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1509 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1510 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1511 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1512 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1513 + 1514 003114 SN=SN+1 + 1515 004000 ZZ=ZZ+ZZ + 1516 IFE ZZ, + 1517 031204 200 00 0 00 035107 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1518 031205 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1519 STOP^ + 1520 031206 254 04 0 00 031207 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1521 031207 324 00 0 00 031210 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1522 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1523 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1524 + 1525 ;********** + 1526 + 1527 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1528 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1529 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1530 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1531 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1532 + 1533 003115 SN=SN+1 + 1534 010000 ZZ=ZZ+ZZ + 1535 IFE ZZ, + 1536 031210 200 00 0 00 035110 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1537 031211 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1538 STOP^ + 1539 031212 254 04 0 00 031213 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1540 031213 324 00 0 00 031214 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1541 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1542 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1543 + 1544 ;********** + 1545 + 1546 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1547 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1548 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1549 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1550 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1551 + 1552 003116 SN=SN+1 + 1553 020000 ZZ=ZZ+ZZ + 1554 IFE ZZ, +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-5 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0045 + + 1555 031214 200 00 0 00 035111 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1556 031215 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1557 STOP^ + 1558 031216 254 04 0 00 031217 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1559 031217 324 00 0 00 031220 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1560 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1561 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1562 + 1563 ;********** + 1564 + 1565 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1566 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1567 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1568 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1569 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1570 + 1571 003117 SN=SN+1 + 1572 040000 ZZ=ZZ+ZZ + 1573 IFE ZZ, + 1574 031220 200 00 0 00 035112 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1575 031221 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1576 STOP^ + 1577 031222 254 04 0 00 031223 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1578 031223 324 00 0 00 031224 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1579 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1580 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1581 + 1582 ;********** + 1583 + 1584 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1585 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1586 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1587 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1588 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1589 + 1590 003120 SN=SN+1 + 1591 100000 ZZ=ZZ+ZZ + 1592 IFE ZZ, + 1593 031224 200 00 0 00 035113 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1594 031225 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1595 STOP^ + 1596 031226 254 04 0 00 031227 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1597 031227 324 00 0 00 031230 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1598 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1599 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1600 + 1601 ;********** + 1602 + 1603 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1604 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1605 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1606 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1607 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1608 + 1609 003121 SN=SN+1 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-6 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0046 + + 1610 200000 ZZ=ZZ+ZZ + 1611 IFE ZZ, + 1612 031230 200 00 0 00 035114 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1613 031231 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1614 STOP^ + 1615 031232 254 04 0 00 031233 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1616 031233 324 00 0 00 031234 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1617 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1618 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1619 + 1620 ;********** + 1621 + 1622 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1623 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1624 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1625 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1626 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1627 + 1628 003122 SN=SN+1 + 1629 400000 ZZ=ZZ+ZZ + 1630 IFE ZZ, + 1631 031234 200 00 0 00 035115 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1632 031235 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1633 STOP^ + 1634 031236 254 04 0 00 031237 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1635 031237 324 00 0 00 031240 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1636 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1637 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1638 + 1639 ;********** + 1640 + 1641 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1642 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1643 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1644 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1645 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1646 + 1647 003123 SN=SN+1 + 1648 000001 000000 ZZ=ZZ+ZZ + 1649 IFE ZZ, + 1650 031240 200 00 0 00 035116 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1651 031241 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1652 STOP^ + 1653 031242 254 04 0 00 031243 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1654 031243 324 00 0 00 031244 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1655 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1656 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1657 + 1658 ;********** + 1659 + 1660 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1661 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1662 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1663 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1664 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-7 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0047 + + 1665 + 1666 003124 SN=SN+1 + 1667 000002 000000 ZZ=ZZ+ZZ + 1668 IFE ZZ, + 1669 031244 200 00 0 00 035117 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1670 031245 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1671 STOP^ + 1672 031246 254 04 0 00 031247 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1673 031247 324 00 0 00 031250 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1674 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1675 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1676 + 1677 ;********** + 1678 + 1679 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1680 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1681 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1682 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1683 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1684 + 1685 003125 SN=SN+1 + 1686 000004 000000 ZZ=ZZ+ZZ + 1687 IFE ZZ, + 1688 031250 200 00 0 00 035120 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1689 031251 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1690 STOP^ + 1691 031252 254 04 0 00 031253 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1692 031253 324 00 0 00 031254 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1693 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1694 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1695 + 1696 ;********** + 1697 + 1698 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1699 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1700 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1701 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1702 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1703 + 1704 003126 SN=SN+1 + 1705 000010 000000 ZZ=ZZ+ZZ + 1706 IFE ZZ, + 1707 031254 200 00 0 00 035121 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1708 031255 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1709 STOP^ + 1710 031256 254 04 0 00 031257 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1711 031257 324 00 0 00 031260 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1712 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1713 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1714 + 1715 ;********** + 1716 + 1717 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1718 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1719 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-8 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0048 + + 1720 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1721 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1722 + 1723 003127 SN=SN+1 + 1724 000020 000000 ZZ=ZZ+ZZ + 1725 IFE ZZ, + 1726 031260 200 00 0 00 035122 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1727 031261 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1728 STOP^ + 1729 031262 254 04 0 00 031263 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1730 031263 324 00 0 00 031264 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1731 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1732 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1733 + 1734 ;********** + 1735 + 1736 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1737 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1738 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1739 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1740 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1741 + 1742 003130 SN=SN+1 + 1743 000040 000000 ZZ=ZZ+ZZ + 1744 IFE ZZ, + 1745 031264 200 00 0 00 035123 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1746 031265 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1747 STOP^ + 1748 031266 254 04 0 00 031267 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1749 031267 324 00 0 00 031270 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1750 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1751 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1752 + 1753 ;********** + 1754 + 1755 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1756 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1757 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1758 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1759 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1760 + 1761 003131 SN=SN+1 + 1762 000100 000000 ZZ=ZZ+ZZ + 1763 IFE ZZ, + 1764 031270 200 00 0 00 035124 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1765 031271 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1766 STOP^ + 1767 031272 254 04 0 00 031273 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1768 031273 324 00 0 00 031274 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1769 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1770 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1771 + 1772 ;********** + 1773 + 1774 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-9 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0049 + + 1775 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1776 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1777 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1778 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1779 + 1780 003132 SN=SN+1 + 1781 000200 000000 ZZ=ZZ+ZZ + 1782 IFE ZZ, + 1783 031274 200 00 0 00 035125 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1784 031275 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1785 STOP^ + 1786 031276 254 04 0 00 031277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1787 031277 324 00 0 00 031300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1788 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1789 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1790 + 1791 ;********** + 1792 + 1793 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1794 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1795 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1796 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1797 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1798 + 1799 003133 SN=SN+1 + 1800 000400 000000 ZZ=ZZ+ZZ + 1801 IFE ZZ, + 1802 031300 200 00 0 00 035073 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1803 031301 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1804 STOP^ + 1805 031302 254 04 0 00 031303 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1806 031303 324 00 0 00 031304 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1807 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1808 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1809 + 1810 ;********** + 1811 + 1812 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1813 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1814 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1815 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1816 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1817 + 1818 003134 SN=SN+1 + 1819 001000 000000 ZZ=ZZ+ZZ + 1820 IFE ZZ, + 1821 031304 200 00 0 00 035126 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1822 031305 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1823 STOP^ + 1824 031306 254 04 0 00 031307 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1825 031307 324 00 0 00 031310 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1826 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1827 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1828 + 1829 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-10 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0050 + + 1830 + 1831 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1832 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1833 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1834 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1835 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1836 + 1837 003135 SN=SN+1 + 1838 002000 000000 ZZ=ZZ+ZZ + 1839 IFE ZZ, + 1840 031310 200 00 0 00 035127 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1841 031311 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1842 STOP^ + 1843 031312 254 04 0 00 031313 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1844 031313 324 00 0 00 031314 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1845 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1846 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1847 + 1848 ;********** + 1849 + 1850 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1851 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1852 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1853 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1854 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1855 + 1856 003136 SN=SN+1 + 1857 004000 000000 ZZ=ZZ+ZZ + 1858 IFE ZZ, + 1859 031314 200 00 0 00 035130 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1860 031315 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1861 STOP^ + 1862 031316 254 04 0 00 031317 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1863 031317 324 00 0 00 031320 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1864 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1865 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1866 + 1867 ;********** + 1868 + 1869 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1870 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1871 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1872 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1873 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1874 + 1875 003137 SN=SN+1 + 1876 010000 000000 ZZ=ZZ+ZZ + 1877 IFE ZZ, + 1878 031320 200 00 0 00 035131 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1879 031321 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1880 STOP^ + 1881 031322 254 04 0 00 031323 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1882 031323 324 00 0 00 031324 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1883 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1884 ;IN THE SUBTEST) TO LOOP ON ERROR^ +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-11 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0051 + + 1885 + 1886 ;********** + 1887 + 1888 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1889 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1890 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1891 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1892 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1893 + 1894 003140 SN=SN+1 + 1895 020000 000000 ZZ=ZZ+ZZ + 1896 IFE ZZ, + 1897 031324 200 00 0 00 035132 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1898 031325 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1899 STOP^ + 1900 031326 254 04 0 00 031327 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1901 031327 324 00 0 00 031330 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1902 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1903 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1904 + 1905 ;********** + 1906 + 1907 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1908 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1909 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1910 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1911 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1912 + 1913 003141 SN=SN+1 + 1914 040000 000000 ZZ=ZZ+ZZ + 1915 IFE ZZ, + 1916 031330 200 00 0 00 035133 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1917 031331 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1918 STOP^ + 1919 031332 254 04 0 00 031333 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1920 031333 324 00 0 00 031334 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1921 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1922 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1923 + 1924 ;********** + 1925 + 1926 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1927 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1928 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1929 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1930 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1931 + 1932 003142 SN=SN+1 + 1933 100000 000000 ZZ=ZZ+ZZ + 1934 IFE ZZ, + 1935 031334 200 00 0 00 035134 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1936 031335 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1937 STOP^ + 1938 031336 254 04 0 00 031337 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1939 031337 324 00 0 00 031340 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-12 +DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0052 + + 1940 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1941 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1942 + 1943 ;********** + 1944 + 1945 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1946 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1947 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1948 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1949 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1950 + 1951 003143 SN=SN+1 + 1952 200000 000000 ZZ=ZZ+ZZ + 1953 IFE ZZ, + 1954 031340 200 00 0 00 035135 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1955 031341 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1956 STOP^ + 1957 031342 254 04 0 00 031343 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1958 031343 324 00 0 00 031344 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1959 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1960 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1961 + 1962 ;********** + 1963 + 1964 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST + 1965 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE + 1966 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO + 1967 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). + 1968 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. + 1969 + 1970 003144 SN=SN+1 + 1971 400000 000000 ZZ=ZZ+ZZ + 1972 IFE ZZ, + 1973 031344 200 00 0 00 035065 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO + 1974 031345 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION + 1975 STOP^ + 1976 031346 254 04 0 00 031347 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1977 031347 324 00 0 00 031350 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1978 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1979 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1980 + 1981 ;********** + 1982 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 13 +DAKAAM MAC 19-JAN-77 13:42 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0053 + + 1983 SUBTTL TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS + 1984 + 1985 ;THIS TEST VERIFIES THAT MOVEI LOADS E INTO THE AC. SKIPG IS USED TO CHECK THAT + 1986 ;THE AC WAS INDEED MODIFIED BY MOVEI. + 1987 + 1988 031350 201 00 0 00 035063 A3200: MOVEI [-1] ;*MOVEI SHOULD LOAD A POSITIVE NUMBER INTO AC0 + 1989 031351 337 00 0 00 000000 SKIPG ;SKIP HALT INSTRUCTION IF MOVEI LOADED AC CORRECTLY + 1990 STOP^ + 1991 031352 254 04 0 00 031353 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1992 031353 324 00 0 00 031354 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 1993 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 1994 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 1995 + 1996 ;IF PROGRAM HANGS UP ON MOVEI INSTRUCTION, CHECK AD FM +EN [ADFP], AD FM + EN A [ADFP], + 1997 ;AD FM + F/F [ADFP], F CYC ACT EN C [F1] + 1998 + 1999 ;********** + 2000 + 2001 ;THIS TEST VERIFIES THAT SKIPL IS SENSITIVE TO THE DATA IN E AND NOT SENSITIVE TO + 2002 ;THE DATA IN THE AC. HENCE, SKIPL WILL SKIP THE NEXT INSTRUCTION ONLY IF + 2003 ;C(E) IS LESS THAN ZERO. E IS SET TO -1, A NEGATIVE NUMBER; AND + 2004 ;THE AC IS SET TO 0 IN THIS TEST. THEREFORE SKIPL SHOULD SKIP. + 2005 + 2006 031354 200 00 0 00 035062 A3300: MOVE [0] ;SET THE AC TO ALL ZEROS + 2007 031355 331 00 0 00 035063 SKIPL [-1] ;*SKIPL SHOULD SKIP BECAUSE C(E) IS NEGATIVE + 2008 STOP^ + 2009 031356 254 04 0 00 031357 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2010 031357 324 00 0 00 031360 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2011 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2012 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2013 + 2014 ;********** + 2015 + 2016 ;THIS TEST VERIFIES THAT SKIPL IS SENSITIVE TO THE SIGN BIT IN E. SKIPL SHOULD + 2017 ;SKIP THE NEXT INSTRUCTION WHEN AND ONLY WHEN THE SIGN BIT IS SET. IN THIS + 2018 ;TEST, C(AC) IS PRESET TO ALL ZEROS, THEN SKIPL IS EXECUTED WITH C(E)=400000,,0. + 2019 ;A FAILURE UCCURS IF SKIPL DOES NOT SKIP. + 2020 + 2021 031360 200 00 0 00 035062 A13100: MOVE [0] ;SET THE AC TO ALL ZEROS + 2022 031361 331 00 0 00 035065 SKIPL [400000,,0] ;*SKIPL SHOULD SKIP BECAUSE C(E) IS NEGATIVE + 2023 STOP^ + 2024 031362 254 04 0 00 031363 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2025 031363 324 00 0 00 031364 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2026 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2027 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2028 + 2029 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 14 +DAKAAM MAC 19-JAN-77 13:42 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0054 + + 2030 ;THIS TEST VERIFIES THAT THE CAM INSTRUCTION DOES NOT MODIFY C(AC). THE AC IS + 2031 ;INITIALLY LOADED WITH ALL ZEROS; THEN CAM IS EXECUTED WITH C(E) NON-ZERO. + 2032 ;THE AC IS THEN CHECKED FOR ALL ZEROS. THIS TEST FAILS IF THE AC WAS MODIFIED BY CAM. + 2033 + 2034 031364 200 00 0 00 035062 A3400: MOVE [0] ;PRESET THE AC TO ALL ZEROS + 2035 031365 310 00 0 00 035136 CAM [1234] ;*CAM SHOULD NOT MODIFY THE AC + 2036 031366 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION SERVES AS A NO-OP. + 2037 ;IT IS A PROGRAM FILLER IN CASE CAM SKIPS.) + 2038 031367 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC WAS NOT MODIFIED BY CAM + 2039 STOP^ + 2040 031370 254 04 0 00 031371 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2041 031371 324 00 0 00 031372 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2042 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2043 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2044 + 2045 ;IF TEST HANGS ON CAM INSTRUCTION, AB PC EN [ABC], AB PC (FETCH) EN [ABC], + 2046 ;IR CAXX [IR3] + 2047 + 2048 ;IF TEST LOOPS ON CAM INSTRUCTION, MC INSTR FETCH EN [MC1], MC INST FET ET2 EN [MC1], + 2049 ;ET2 J F/F [E], IR CAXX [IR3] + 2050 + 2051 ;IF TEST HALTS AT HALT INSTRUCTION, SAC INH [ST2], IR CAXX [IR3], IR CAMX [IR1] + 2052 + 2053 ;********** + 2054 + 2055 ;THIS TEST VERIFIES THAT THE CAI INSTRUCTION DOES NOT MODIFY C(AC). THE AC IS + 2056 ;INITIALLY LOADED WITH ALL ZEROS; THEN CAI IS EXECUTED WITH E NON-ZERO. THE AC IS + 2057 ;THEN CHECKED FOR ALL ZEROS. THIS TEST FAILS IF THE AC WAS MODIFIED BY CAM. + 2058 + 2059 031372 200 00 0 00 035062 A3500: MOVE [0] ;PRESET THE AC TO ALL ZEROS + 2060 031373 300 00 0 00 035136 CAI [1234] ;*CAI SHOULD NOT MODIFY THE AC + 2061 031374 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A PROGRAM FILLER + 2062 ;IN CASE CAI MODIFIES THE AC. IT SERVES AS A NO-OP) + 2063 031375 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF CAI DID NOT MODIFY THE AC + 2064 STOP^ + 2065 031376 254 04 0 00 031377 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2066 031377 324 00 0 00 031400 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2067 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2068 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2069 + 2070 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 15 +DAKAAM MAC 19-JAN-77 13:42 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0055 + + 2071 ;THIS TEST VERIFIES THAT CAI DOES NOT MODIFY C(AC0) WHEN AN AC OTHER THAN AC0 IS + 2072 ;SPECIFIED BY THE CAI INSTRUCTION. + 2073 ;THIS IS THE FIRST TEST THAT USES AN AC OTHER THAN AC0. + 2074 ;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, THE CAI INSTRUCTION IS EXECUTED WITH + 2075 ;A NON-ZERO E. AC 0 IS THEN TESTED F0R ALL ZEROS. + 2076 + 2077 031400 200 00 0 00 035062 A3600: MOVE [0] ;LOAD AC0 WITH ALL ZEROS + 2078 031401 300 17 0 00 035136 CAI 17,[1234] ;*CAI SHOULD NOT MODIFY AC0 + 2079 031402 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE + 2080 ;CAI SKIPS THE NEXT INSTRUCTION. IT ACTS AS A NO-OP) + 2081 031403 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF C(AC0) WAS NOT MODIFIED + 2082 STOP^ + 2083 031404 254 04 0 00 031405 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2084 031405 324 00 0 00 031406 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2085 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2086 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2087 + 2088 ;********** + 2089 + 2090 ;THIS TEST VERIFIES THAT CAM DOES NOT MODIFY C(AC0) WHEN AN AC OTHER THAN AC0 IS + 2091 ;SPECIFIED BY THE CAM INSTRUCTION. + 2092 ;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, THE CAM INSTRUCTION IS EXECUTED WITH + 2093 ;A NON-ZERO E. AC 0 IS THEN TESTED F0R ALL ZEROS. + 2094 + 2095 031406 200 00 0 00 035062 A3700: MOVE [0] ;PRESET C(AC0) TO ALL ZEROS + 2096 031407 310 17 0 00 035136 CAM 17,[1234] ;*CAM SHOULD NOT MODIFY AC0 + 2097 031410 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE + 2098 ;CAM SKIPS THE NEXT INSTRUCTION. IT SERVES AS A NO-OP) + 2099 031411 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC0 WAS NOT MODIFIED BY CAM + 2100 STOP^ + 2101 031412 254 04 0 00 031413 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2102 031413 324 00 0 00 031414 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2103 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2104 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2105 + 2106 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 16 +DAKAAM MAC 19-JAN-77 13:42 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0056 + + 2107 ;THIS TEST VERIFIES THAT MOVE WILL PLACE C(E) INTO THE AC. AC, E AND C(E) ARE NON-ZERO + 2108 ;IN THIS TEST. THIS TEST PASSES IF FINAL C(AC) OF THE MOVE INSTRUCTION IS NON-ZERO. + 2109 + 2110 031414 200 01 0 00 035062 A4500: MOVE 1,[0] ;LOAD THE AC WITH ALL ZEROS + 2111 031415 200 01 0 00 035063 MOVE 1,[-1] ;*MOVE SHOULD PLACE ALL ONES IN THE AC + 2112 031416 336 00 0 00 000001 SKIPN 1 ;SKIP HALT INSTRUCTION IF MOVE MODIFIED THE AC + 2113 STOP^ + 2114 031417 254 04 0 00 031420 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2115 031420 324 00 0 00 031421 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2116 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2117 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2118 + 2119 ;********** + 2120 + 2121 ;THIS TEST VERIFIES THAT THE MOVE INSTRUCTION WILL PLACE C(E) INTO THE AC. + 2122 ;AC, E ARE NON-ZERO AND C(E)=0. + 2123 ;THIS TEST FAILS IF THE FINAL C(AC) IS NOT EQUAL TO ZERO, THE ORIGINAL C(E) + 2124 + 2125 031421 200 01 0 00 035062 A4600: MOVE 1,[0] ;*PLACE ALL ZEROS INTO THE AC + 2126 031422 332 00 0 00 000001 SKIPE 1 ;SKIP HALT INSTRUCTION IF MOVE PLACED ALL ZEROS INTO AC + 2127 STOP^ + 2128 031423 254 04 0 00 031424 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2129 031424 324 00 0 00 031425 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2130 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2131 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2132 + 2133 ;IF JUMP .+1 OF PREVIOUS TEST FAILED, CHECK JUMPS: AD FM + EN [ADFP], IR JUMPS [IR1], + 2134 ;IR JUMPX [IR1], AR AD EN [ARMA], AR AD EN A [ARMA], AR LT AD EN A [ARMA], + 2135 ;AR LT ADD EN B [ARMA], AR RT AD EN A [ARMA], + 2136 ;AR RT AD EN B [ARMA], AR A CLK INPUT [ARMA], + 2137 ;ET2 C F/F [E], AR AD ET2 EN [ARMA], AR AD BR (ET2) B [ARMA] + 2138 + 2139 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 17 +DAKAAM MAC 19-JAN-77 13:42 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0057 + + 2140 ;THIS TEST VERIFIES THAT SOS DOES NOT MODIFY C(AC) WHEN THE AC IS AC0. + 2141 ;FIRST, AC0 IS LOADED WITH ALL ZEROS AND E IS LOADED WITH A POSITIVE NUMBER; + 2142 ;THEN, SOS IS EXECUTED. SOS SHOULD SUBTRACT ONE FROM C((E) + 2143 ;AND EXECUTE THE NEXT INSTRUCTION. IT SHOULD NOT MODIFY AC0. + 2144 ;THE TEST PASSES IF AC0 WAS NOT MODIFIED. + 2145 + 2146 031425 200 00 0 00 035062 A4000: MOVE [0] ;PRESET AC0 TO ALL ZEROS + 2147 031426 200 07 0 00 035136 MOVE 7,[1234] ;PRESET E WITH A POSITIVE NUMBER + 2148 031427 370 00 0 00 000007 SOS 7 ;*SOS SHOULD NOT MODIFY C(AC0) + 2149 031430 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE + 2150 ;SOS SKIPS THE NEXT INSTRUCTION. IT SERVES AS A NO-OP) + 2151 031431 332 00 0 00 000000 SKIPE ;SKIP THE HALT INSTRUCTION IF C(AC0) WAS NOT MODIFIED + 2152 STOP^ + 2153 031432 254 04 0 00 031433 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2154 031433 324 00 0 00 031434 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2155 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2156 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2157 + 2158 ;********** + 2159 004100 SN=4100 + 2160 000000 AC=0 + 2161 + 2162 A4100: REPEAT 4, + 2163 <;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC + 2164 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. + 2165 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED + 2166 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE + 2167 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR + 2168 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. + 2169 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. + 2170 + 2171 SN=SN+1 + 2172 AC=AC+AC + 2173 IFE AC, + 2174 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS + 2175 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS + 2176 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC + 2177 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO + 2178 STOP + 2179 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP + 2180 STOP + 2181 + 2182 ;********** + 2183 > + 2184 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC + 2185 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. + 2186 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED + 2187 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE + 2188 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR + 2189 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. + 2190 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. + 2191 + 2192 004101 SN=SN+1 + 2193 000000 AC=AC+AC + 2194 000001 IFE AC, +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 17-1 +DAKAAM MAC 19-JAN-77 13:42 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0058 + + 2195 031434 200 00 0 00 035062 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS + 2196 031435 200 01 0 00 035062 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS + 2197 031436 330 01 0 00 035063 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC + 2198 031437 336 00 0 00 000001 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO + 2199 STOP^ + 2200 031440 254 04 0 00 031441 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2201 031441 324 00 0 00 031442 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2202 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2203 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2204 031442 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP + 2205 STOP^ + 2206 031443 254 04 0 00 031444 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2207 031444 324 00 0 00 031445 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2208 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2209 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2210 + 2211 ;********** + 2212 + 2213 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC + 2214 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. + 2215 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED + 2216 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE + 2217 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR + 2218 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. + 2219 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. + 2220 + 2221 004102 SN=SN+1 + 2222 000002 AC=AC+AC + 2223 IFE AC, + 2224 031445 200 00 0 00 035062 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS + 2225 031446 200 02 0 00 035062 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS + 2226 031447 330 02 0 00 035063 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC + 2227 031450 336 00 0 00 000002 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO + 2228 STOP^ + 2229 031451 254 04 0 00 031452 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2230 031452 324 00 0 00 031453 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2231 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2232 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2233 031453 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP + 2234 STOP^ + 2235 031454 254 04 0 00 031455 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2236 031455 324 00 0 00 031456 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2237 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2238 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2239 + 2240 ;********** + 2241 + 2242 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC + 2243 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. + 2244 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED + 2245 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE + 2246 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR + 2247 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. + 2248 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. + 2249 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 17-2 +DAKAAM MAC 19-JAN-77 13:42 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0059 + + 2250 004103 SN=SN+1 + 2251 000004 AC=AC+AC + 2252 IFE AC, + 2253 031456 200 00 0 00 035062 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS + 2254 031457 200 04 0 00 035062 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS + 2255 031460 330 04 0 00 035063 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC + 2256 031461 336 00 0 00 000004 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO + 2257 STOP^ + 2258 031462 254 04 0 00 031463 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2259 031463 324 00 0 00 031464 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2260 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2261 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2262 031464 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP + 2263 STOP^ + 2264 031465 254 04 0 00 031466 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2265 031466 324 00 0 00 031467 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2266 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2267 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2268 + 2269 ;********** + 2270 + 2271 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC + 2272 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. + 2273 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED + 2274 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE + 2275 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR + 2276 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. + 2277 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. + 2278 + 2279 004104 SN=SN+1 + 2280 000010 AC=AC+AC + 2281 IFE AC, + 2282 031467 200 00 0 00 035062 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS + 2283 031470 200 10 0 00 035062 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS + 2284 031471 330 10 0 00 035063 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC + 2285 031472 336 00 0 00 000010 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO + 2286 STOP^ + 2287 031473 254 04 0 00 031474 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2288 031474 324 00 0 00 031475 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2289 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2290 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2291 031475 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP + 2292 STOP^ + 2293 031476 254 04 0 00 031477 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2294 031477 324 00 0 00 031500 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2295 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2296 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2297 + 2298 ;********** + 2299 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 18 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0060 + + 2300 SUBTTL TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS + 2301 + 2302 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL NOT MODIFY THE CONTENTS OF AC0. + 2303 ;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, + 2304 ;THE SKIP INSTRUCTION IS EXECUTED WITH C(E)=-1 AND AC0. AC0 IS THEN TESTED FOR ALL + 2305 ;ZEROS. THE TEST FAILS IF AC0 WAS MODIFIED BY THE SKIP INSTRUCTION. + 2306 + 2307 031500 200 00 0 00 035062 A4200: MOVE [0] ;PRESET AC0 TO ALL ZEROS + 2308 031501 330 00 0 00 035063 SKIP [-1] ;*SKIP SHOULD NOT MODIFY AC0 + 2309 031502 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC0 WAS NOT MODIFIED BY SKIP + 2310 STOP^ + 2311 031503 254 04 0 00 031504 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2312 031504 324 00 0 00 031505 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2313 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2314 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2315 + 2316 ;AC=0: SAC INH, IR BIT 9, 10, 11 OR 12 S-A-1 + 2317 + 2318 ;********** + 2319 + 2320 ;THIS TEST VERIFIES THAT MOVSS DOES NOT MODIFY C(AC0) WHEN AC0 IS SPECIFIED AS THE AC. + 2321 ;FIRST, E IS LOADED WITH ALL ONES AND THE AC (AC0) + 2322 ;IS LOADED WITH ALL ZEROS; THEN, MOVSS IS EXECUTED. MOVSS SHOULD NOT MODIFY AC0. + 2323 ;AC0 IS THEN CHECKED TO INSURE THAT IT WAS NOT MODIFIED BY MOVSS. + 2324 + 2325 031505 200 07 0 00 035063 A4300: MOVE 7,[-1] ;LOAD E OF THE MOVSS INSTRUCTION WITH ALL ONES + 2326 031506 200 00 0 00 035062 MOVE [0] ;PRESET AC0 TO ALL ZEROS + 2327 031507 207 00 0 00 000007 MOVSS 7 ;*MOVSS SHOULD NOT MODIFY AC0 + 2328 031510 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC0 WAS INTACT + 2329 STOP^ + 2330 031511 254 04 0 00 031512 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2331 031512 324 00 0 00 031513 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2332 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2333 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2334 + 2335 ;MOVX & AC=0: SAC INH [ST2], IR XXXS [IR1] + 2336 + 2337 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 19 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0061 + + 2338 ;THIS TEST VERIFIES THAT HRRS DOES NOT MODIFY C(AC0) WHEN AC0 IS THE SPECIFIED AC. + 2339 ;FIRST, E IS LOADED WITH ALL ONES AND AC0 IS LOADED WITH ALL ZEROS; + 2340 ;THEN, HRRS IS EXECUTED WITH AC=AC0. AC0 IS THEN CHECKED FOR ALL ZEROS. + 2341 ;IF AC0 WAS MODIFIED BY THE HRRS INSTRUCTION, THE TEST FAIL. + 2342 + 2343 031513 200 07 0 00 035063 A4400: MOVE 7,[-1] ;PRESET E OF THE HRRS INSTRUCTION TO ALL ONES + 2344 031514 200 00 0 00 035062 MOVE [0] ;PRESET AC0 TO ALL ZEROS + 2345 031515 543 00 0 00 000007 HRRS 7 ;*HRRS SHOULD NOT MODIFY THE AC WHEN THE AC IS AC0 + 2346 031516 332 00 0 00 000000 SKIPE ;SKIP THE HALT INSTRUCTION IF AC0 WAS INTACT + 2347 STOP^ + 2348 031517 254 04 0 00 031520 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2349 031520 324 00 0 00 031521 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2350 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2351 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2352 + 2353 ;(HXXXS&AC=0): SAC INH [ST2], IR HWTFWT [IR3], IR XXXS [IR1], IR HWT [IR1], + 2354 ;IR BITS S-A-1 + 2355 + 2356 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 20 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0062 + + 2357 ;THIS TEST VERIFIES THAT THE JUMP INSTRUCTION DOES NOT MODIFY C(AC). + 2358 ;THE AC IS FIRST LOADED WITH ALL ZEROS; + 2359 ;THEN JUMP .+1 IS EXECUTED. THE AC IS THEN CHECKED TO INSURE THAT IT WAS NOT MODIFIED + 2360 ;BY JUMP. THE TEST FAILS IF THE AC WAS MODIFIED + 2361 + 2362 031521 200 00 0 00 035062 A4700: MOVE [0] ; PRESET THE AC TO ALL ZEROS + 2363 031522 320 00 0 00 031523 JUMP .+1 ;*JUMP SHOULD NOT MODIFY THE AC + 2364 031523 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC WAS INTACT + 2365 STOP^ + 2366 031524 254 04 0 00 031525 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2367 031525 324 00 0 00 031526 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2368 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2369 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2370 + 2371 ;********** + 2372 + 2373 ;THIS TEST VERIFIES THAT MOVS WILL NOT PICK UP ANY ONES WHEN SWAPPING A WORD + 2374 ;OF ALL ZEROS. FIRST, E IS LOADED WITH A WORD OF ALL ZEROS; + 2375 ;THEN, MOVS IS EXECUTED. THE AC IS THEN CHECKED TO INSURE THAT THE RESULT DOES NOT + 2376 ;CONTAIN ANY ONES. + 2377 + 2378 031526 200 00 0 00 035062 A5000: MOVE [0] ;PRESET E WITH ALL ZEROS + 2379 031527 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH AN AC 0F ALL ZEROS + 2380 031530 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF C(AC)=0 + 2381 STOP^ + 2382 031531 254 04 0 00 031532 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2383 031532 324 00 0 00 031533 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2384 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2385 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2386 + 2387 ;********** + 2388 + 2389 ;THIS TEST VERIFIES THAT A MOVS EXECUTED ON AN E CONTAINING A NON-ZERO NUMBER + 2390 ;RESULTS IN A NON-ZERO NUMBER IN THE AC. FIRST A NON-ZERO WORD + 2391 ;IS LOADED INTO E; THEN, MOVS IS EXECUTED. THE AC IS CHECKED FOR A NON-ZERO RESULT. + 2392 ;IF C(AC)=0, THE TEST FAILS. + 2393 + 2394 031533 200 00 0 00 035137 A5100: MOVE [XWD 0,-1] ;LOAD E WITH A NON-ZERO VALUE + 2395 031534 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT IN C(AC) NON-ZERO + 2396 031535 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF C(AC) OF MOVS IS NON-ZERO + 2397 STOP^ + 2398 031536 254 04 0 00 031537 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2399 031537 324 00 0 00 031540 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2400 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2401 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2402 + 2403 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 21 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0063 + + 2404 ;THIS TEST VERIFIES THAT A MOVS EXECUTED ON AN E CONTAINING A NON-ZERO NUMBER + 2405 ;RESULTS IN A NON-ZERO NUMBER IN THE AC. FIRST A NON-ZERO WORD + 2406 ;IS LOADED INTO E; THEN, MOVS IS EXECUTED. THE AC IS CHECKED FOR A NON-ZERO + 2407 ;RESULT. IF C(AC)=0, THE TEST FAILS. + 2408 + 2409 031540 200 00 0 00 035140 A5200: MOVE [XWD -1,0] ;LOAD E OF MOVS WITH A NON-ZERO NUMBER + 2410 031541 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH C(AC) NON-ZERO + 2411 031542 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF C(AC) OF MOVS IS NON-ZERO + 2412 STOP^ + 2413 031543 254 04 0 00 031544 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2414 031544 324 00 0 00 031545 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2415 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2416 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2417 + 2418 ;********** + 2419 + 2420 ;THIS TEST VERIFIES THAT THE MOVS INSTRUCTION SWAPS BITS 0 AND 188 OF E + 2421 ;AND STORES THEM IN THE AC UNLESS AR BIT 0 IS S-A-0. FIRST, A WORD + 2422 ;WITH BIT 0 SET TO A ONE AND BIT 18 CLEARED IS LOADED INTO E. THEN, MOVS + 2423 ;IS EXECUTED. THE AC IS THEN CHECKED FOR A 0 IN BIT 0, WHICH IS THE + 2424 ;CORRECT RESULT. + 2425 + 2426 031545 200 00 0 00 035140 A5300: MOVE [XWD -1,0] ;LOAD E OF MOVS WITH 777777000000 + 2427 031546 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH AC BIT 0 EQUAL TO 0 + 2428 031547 337 00 0 00 000000 SKIPG ;SKIP HALT INSTRUCTION IF BIT 0 OF AC IS 0 + 2429 STOP^ + 2430 031550 254 04 0 00 031551 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2431 031551 324 00 0 00 031552 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2432 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2433 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2434 + 2435 ;MOVSX: AR SWAP [ARMB], AR LT AR RT A [ARMB], AR LT AR RT B [ARMB], + 2436 ;AR RT AR LT A [ARMB], AR RT AR LT B [ARMB], ET2 A F/F [E], IR MOVSX [IR1], + 2437 ;IR MOV(E,S)X [IR1] + 2438 + 2439 ;********** + 2440 + 2441 ;THIS TEST VERIFIES THAT THE MOVS INSTRUCTION SWAPS BITS 0 AND 18 OF E AND + 2442 ;STORES THEM IN THE AC UNLESS AR BIT 0 IS S-A-1. FIRST, A WORD WITH BIT 0 + 2443 ;SET TO A ONE AND BIT 18 CLEARED IS LOADED INTO E. THEN, MOVS IS EXECUTED. + 2444 ;THE AC IS CHECKED FOR A ZERO IN BIT ZERO, WHICH IS THE CORRECT RESULT. + 2445 + 2446 031552 200 00 0 00 035137 A5400: MOVE [XWD 0,-1] ;LOAD E OF MOVS WITH 777777 + 2447 031553 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH BIT 0 OF THE AC SET + 2448 031554 331 00 0 00 000000 SKIPL ;PASS IF AC BIT 0 IS SET + 2449 STOP^ + 2450 031555 254 04 0 00 031556 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2451 031556 324 00 0 00 031557 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2452 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2453 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2454 + 2455 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0064 + + 2456 005500 SN=5500 + 2457 000000 ZZ=0 + 2458 + 2459 A5500: REPEAT ^D18, + 2460 <;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2461 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2462 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2463 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2464 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2465 SN=SN+1 + 2466 ZZ=ZZ+ZZ + 2467 IFE ZZ, + 2468 MOVE [0] ;CLEAR AC + 2469 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2470 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2471 STOP + 2472 + 2473 ;********** + 2474 > + 2475 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2476 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2477 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2478 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2479 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2480 005501 SN=SN+1 + 2481 000000 ZZ=ZZ+ZZ + 2482 000001 IFE ZZ, + 2483 031557 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2484 031560 204 00 0 00 035074 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2485 031561 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2486 STOP^ + 2487 031562 254 04 0 00 031563 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2488 031563 324 00 0 00 031564 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2489 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2490 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2491 + 2492 ;********** + 2493 + 2494 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2495 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2496 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2497 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2498 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2499 005502 SN=SN+1 + 2500 000002 ZZ=ZZ+ZZ + 2501 IFE ZZ, + 2502 031564 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2503 031565 204 00 0 00 035075 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2504 031566 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2505 STOP^ + 2506 031567 254 04 0 00 031570 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2507 031570 324 00 0 00 031571 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2508 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2509 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2510 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-1 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0065 + + 2511 ;********** + 2512 + 2513 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2514 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2515 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2516 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2517 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2518 005503 SN=SN+1 + 2519 000004 ZZ=ZZ+ZZ + 2520 IFE ZZ, + 2521 031571 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2522 031572 204 00 0 00 035076 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2523 031573 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2524 STOP^ + 2525 031574 254 04 0 00 031575 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2526 031575 324 00 0 00 031576 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2527 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2528 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2529 + 2530 ;********** + 2531 + 2532 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2533 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2534 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2535 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2536 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2537 005504 SN=SN+1 + 2538 000010 ZZ=ZZ+ZZ + 2539 IFE ZZ, + 2540 031576 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2541 031577 204 00 0 00 035077 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2542 031600 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2543 STOP^ + 2544 031601 254 04 0 00 031602 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2545 031602 324 00 0 00 031603 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2546 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2547 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2548 + 2549 ;********** + 2550 + 2551 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2552 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2553 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2554 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2555 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2556 005505 SN=SN+1 + 2557 000020 ZZ=ZZ+ZZ + 2558 IFE ZZ, + 2559 031603 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2560 031604 204 00 0 00 035100 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2561 031605 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2562 STOP^ + 2563 031606 254 04 0 00 031607 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2564 031607 324 00 0 00 031610 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2565 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-2 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0066 + + 2566 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2567 + 2568 ;********** + 2569 + 2570 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2571 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2572 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2573 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2574 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2575 005506 SN=SN+1 + 2576 000040 ZZ=ZZ+ZZ + 2577 IFE ZZ, + 2578 031610 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2579 031611 204 00 0 00 035101 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2580 031612 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2581 STOP^ + 2582 031613 254 04 0 00 031614 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2583 031614 324 00 0 00 031615 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2584 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2585 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2586 + 2587 ;********** + 2588 + 2589 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2590 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2591 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2592 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2593 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2594 005507 SN=SN+1 + 2595 000100 ZZ=ZZ+ZZ + 2596 IFE ZZ, + 2597 031615 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2598 031616 204 00 0 00 035102 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2599 031617 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2600 STOP^ + 2601 031620 254 04 0 00 031621 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2602 031621 324 00 0 00 031622 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2603 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2604 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2605 + 2606 ;********** + 2607 + 2608 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2609 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2610 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2611 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2612 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2613 005510 SN=SN+1 + 2614 000200 ZZ=ZZ+ZZ + 2615 IFE ZZ, + 2616 031622 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2617 031623 204 00 0 00 035103 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2618 031624 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2619 STOP^ + 2620 031625 254 04 0 00 031626 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-3 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0067 + + 2621 031626 324 00 0 00 031627 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2622 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2623 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2624 + 2625 ;********** + 2626 + 2627 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2628 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2629 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2630 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2631 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2632 005511 SN=SN+1 + 2633 000400 ZZ=ZZ+ZZ + 2634 IFE ZZ, + 2635 031627 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2636 031630 204 00 0 00 035104 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2637 031631 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2638 STOP^ + 2639 031632 254 04 0 00 031633 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2640 031633 324 00 0 00 031634 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2641 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2642 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2643 + 2644 ;********** + 2645 + 2646 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2647 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2648 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2649 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2650 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2651 005512 SN=SN+1 + 2652 001000 ZZ=ZZ+ZZ + 2653 IFE ZZ, + 2654 031634 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2655 031635 204 00 0 00 035105 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2656 031636 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2657 STOP^ + 2658 031637 254 04 0 00 031640 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2659 031640 324 00 0 00 031641 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2660 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2661 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2662 + 2663 ;********** + 2664 + 2665 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2666 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2667 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2668 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2669 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2670 005513 SN=SN+1 + 2671 002000 ZZ=ZZ+ZZ + 2672 IFE ZZ, + 2673 031641 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2674 031642 204 00 0 00 035106 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2675 031643 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-4 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0068 + + 2676 STOP^ + 2677 031644 254 04 0 00 031645 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2678 031645 324 00 0 00 031646 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2679 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2680 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2681 + 2682 ;********** + 2683 + 2684 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2685 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2686 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2687 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2688 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2689 005514 SN=SN+1 + 2690 004000 ZZ=ZZ+ZZ + 2691 IFE ZZ, + 2692 031646 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2693 031647 204 00 0 00 035107 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2694 031650 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2695 STOP^ + 2696 031651 254 04 0 00 031652 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2697 031652 324 00 0 00 031653 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2698 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2699 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2700 + 2701 ;********** + 2702 + 2703 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2704 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2705 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2706 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2707 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2708 005515 SN=SN+1 + 2709 010000 ZZ=ZZ+ZZ + 2710 IFE ZZ, + 2711 031653 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2712 031654 204 00 0 00 035110 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2713 031655 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2714 STOP^ + 2715 031656 254 04 0 00 031657 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2716 031657 324 00 0 00 031660 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2717 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2718 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2719 + 2720 ;********** + 2721 + 2722 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2723 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2724 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2725 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2726 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2727 005516 SN=SN+1 + 2728 020000 ZZ=ZZ+ZZ + 2729 IFE ZZ, + 2730 031660 200 00 0 00 035062 MOVE [0] ;CLEAR AC +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-5 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0069 + + 2731 031661 204 00 0 00 035111 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2732 031662 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2733 STOP^ + 2734 031663 254 04 0 00 031664 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2735 031664 324 00 0 00 031665 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2736 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2737 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2738 + 2739 ;********** + 2740 + 2741 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2742 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2743 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2744 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2745 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2746 005517 SN=SN+1 + 2747 040000 ZZ=ZZ+ZZ + 2748 IFE ZZ, + 2749 031665 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2750 031666 204 00 0 00 035112 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2751 031667 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2752 STOP^ + 2753 031670 254 04 0 00 031671 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2754 031671 324 00 0 00 031672 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2755 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2756 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2757 + 2758 ;********** + 2759 + 2760 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2761 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2762 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2763 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2764 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2765 005520 SN=SN+1 + 2766 100000 ZZ=ZZ+ZZ + 2767 IFE ZZ, + 2768 031672 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2769 031673 204 00 0 00 035113 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2770 031674 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2771 STOP^ + 2772 031675 254 04 0 00 031676 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2773 031676 324 00 0 00 031677 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2774 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2775 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2776 + 2777 ;********** + 2778 + 2779 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2780 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2781 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2782 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2783 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2784 005521 SN=SN+1 + 2785 200000 ZZ=ZZ+ZZ +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-6 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0070 + + 2786 IFE ZZ, + 2787 031677 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2788 031700 204 00 0 00 035114 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2789 031701 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2790 STOP^ + 2791 031702 254 04 0 00 031703 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2792 031703 324 00 0 00 031704 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2793 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2794 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2795 + 2796 ;********** + 2797 + 2798 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, + 2799 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. + 2800 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES + 2801 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT + 2802 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. + 2803 005522 SN=SN+1 + 2804 400000 ZZ=ZZ+ZZ + 2805 IFE ZZ, + 2806 031704 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2807 031705 204 00 0 00 035115 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2808 031706 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2809 STOP^ + 2810 031707 254 04 0 00 031710 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2811 031710 324 00 0 00 031711 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2812 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2813 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2814 + 2815 ;********** + 2816 + 2817 005600 SN=5600 + 2818 + 2819 A5600: REPEAT ^D18, + 2820 <;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 2821 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 2822 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 2823 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 2824 ;HALF OF THE AC IS TESTED WITH A 1. + 2825 + 2826 SN=SN+1 + 2827 ZZ=ZZ+ZZ + 2828 MOVE [0] ;CLEAR AC + 2829 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2830 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2831 STOP + 2832 + 2833 ;********** + 2834 > + 2835 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 2836 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 2837 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 2838 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 2839 ;HALF OF THE AC IS TESTED WITH A 1. + 2840 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-7 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0071 + + 2841 005601 SN=SN+1 + 2842 000001 000000 ZZ=ZZ+ZZ + 2843 031711 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2844 031712 204 00 0 00 035116 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2845 031713 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2846 STOP^ + 2847 031714 254 04 0 00 031715 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2848 031715 324 00 0 00 031716 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2849 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2850 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2851 + 2852 ;********** + 2853 + 2854 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 2855 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 2856 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 2857 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 2858 ;HALF OF THE AC IS TESTED WITH A 1. + 2859 + 2860 005602 SN=SN+1 + 2861 000002 000000 ZZ=ZZ+ZZ + 2862 031716 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2863 031717 204 00 0 00 035117 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2864 031720 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2865 STOP^ + 2866 031721 254 04 0 00 031722 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2867 031722 324 00 0 00 031723 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2868 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2869 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2870 + 2871 ;********** + 2872 + 2873 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 2874 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 2875 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 2876 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 2877 ;HALF OF THE AC IS TESTED WITH A 1. + 2878 + 2879 005603 SN=SN+1 + 2880 000004 000000 ZZ=ZZ+ZZ + 2881 031723 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2882 031724 204 00 0 00 035120 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2883 031725 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2884 STOP^ + 2885 031726 254 04 0 00 031727 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2886 031727 324 00 0 00 031730 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2887 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2888 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2889 + 2890 ;********** + 2891 + 2892 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 2893 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 2894 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 2895 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-8 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0072 + + 2896 ;HALF OF THE AC IS TESTED WITH A 1. + 2897 + 2898 005604 SN=SN+1 + 2899 000010 000000 ZZ=ZZ+ZZ + 2900 031730 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2901 031731 204 00 0 00 035121 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2902 031732 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2903 STOP^ + 2904 031733 254 04 0 00 031734 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2905 031734 324 00 0 00 031735 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2906 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2907 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2908 + 2909 ;********** + 2910 + 2911 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 2912 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 2913 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 2914 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 2915 ;HALF OF THE AC IS TESTED WITH A 1. + 2916 + 2917 005605 SN=SN+1 + 2918 000020 000000 ZZ=ZZ+ZZ + 2919 031735 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2920 031736 204 00 0 00 035122 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2921 031737 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2922 STOP^ + 2923 031740 254 04 0 00 031741 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2924 031741 324 00 0 00 031742 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2925 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2926 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2927 + 2928 ;********** + 2929 + 2930 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 2931 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 2932 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 2933 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 2934 ;HALF OF THE AC IS TESTED WITH A 1. + 2935 + 2936 005606 SN=SN+1 + 2937 000040 000000 ZZ=ZZ+ZZ + 2938 031742 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2939 031743 204 00 0 00 035123 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2940 031744 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2941 STOP^ + 2942 031745 254 04 0 00 031746 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2943 031746 324 00 0 00 031747 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2944 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2945 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2946 + 2947 ;********** + 2948 + 2949 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 2950 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-9 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0073 + + 2951 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 2952 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 2953 ;HALF OF THE AC IS TESTED WITH A 1. + 2954 + 2955 005607 SN=SN+1 + 2956 000100 000000 ZZ=ZZ+ZZ + 2957 031747 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2958 031750 204 00 0 00 035124 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2959 031751 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2960 STOP^ + 2961 031752 254 04 0 00 031753 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2962 031753 324 00 0 00 031754 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2963 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2964 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2965 + 2966 ;********** + 2967 + 2968 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 2969 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 2970 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 2971 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 2972 ;HALF OF THE AC IS TESTED WITH A 1. + 2973 + 2974 005610 SN=SN+1 + 2975 000200 000000 ZZ=ZZ+ZZ + 2976 031754 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2977 031755 204 00 0 00 035125 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2978 031756 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2979 STOP^ + 2980 031757 254 04 0 00 031760 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2981 031760 324 00 0 00 031761 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 2982 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 2983 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 2984 + 2985 ;********** + 2986 + 2987 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 2988 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 2989 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 2990 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 2991 ;HALF OF THE AC IS TESTED WITH A 1. + 2992 + 2993 005611 SN=SN+1 + 2994 000400 000000 ZZ=ZZ+ZZ + 2995 031761 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 2996 031762 204 00 0 00 035073 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 2997 031763 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 2998 STOP^ + 2999 031764 254 04 0 00 031765 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3000 031765 324 00 0 00 031766 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3001 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3002 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3003 + 3004 ;********** + 3005 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-10 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0074 + + 3006 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 3007 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 3008 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 3009 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 3010 ;HALF OF THE AC IS TESTED WITH A 1. + 3011 + 3012 005612 SN=SN+1 + 3013 001000 000000 ZZ=ZZ+ZZ + 3014 031766 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 3015 031767 204 00 0 00 035126 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 3016 031770 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 3017 STOP^ + 3018 031771 254 04 0 00 031772 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3019 031772 324 00 0 00 031773 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3020 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3021 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3022 + 3023 ;********** + 3024 + 3025 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 3026 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 3027 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 3028 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 3029 ;HALF OF THE AC IS TESTED WITH A 1. + 3030 + 3031 005613 SN=SN+1 + 3032 002000 000000 ZZ=ZZ+ZZ + 3033 031773 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 3034 031774 204 00 0 00 035127 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 3035 031775 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 3036 STOP^ + 3037 031776 254 04 0 00 031777 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3038 031777 324 00 0 00 032000 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3039 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3040 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3041 + 3042 ;********** + 3043 + 3044 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 3045 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 3046 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 3047 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 3048 ;HALF OF THE AC IS TESTED WITH A 1. + 3049 + 3050 005614 SN=SN+1 + 3051 004000 000000 ZZ=ZZ+ZZ + 3052 032000 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 3053 032001 204 00 0 00 035130 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 3054 032002 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 3055 STOP^ + 3056 032003 254 04 0 00 032004 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3057 032004 324 00 0 00 032005 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3058 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3059 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3060 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-11 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0075 + + 3061 ;********** + 3062 + 3063 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 3064 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 3065 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 3066 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 3067 ;HALF OF THE AC IS TESTED WITH A 1. + 3068 + 3069 005615 SN=SN+1 + 3070 010000 000000 ZZ=ZZ+ZZ + 3071 032005 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 3072 032006 204 00 0 00 035131 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 3073 032007 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 3074 STOP^ + 3075 032010 254 04 0 00 032011 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3076 032011 324 00 0 00 032012 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3077 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3078 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3079 + 3080 ;********** + 3081 + 3082 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 3083 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 3084 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 3085 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 3086 ;HALF OF THE AC IS TESTED WITH A 1. + 3087 + 3088 005616 SN=SN+1 + 3089 020000 000000 ZZ=ZZ+ZZ + 3090 032012 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 3091 032013 204 00 0 00 035132 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 3092 032014 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 3093 STOP^ + 3094 032015 254 04 0 00 032016 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3095 032016 324 00 0 00 032017 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3096 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3097 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3098 + 3099 ;********** + 3100 + 3101 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 3102 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 3103 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 3104 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 3105 ;HALF OF THE AC IS TESTED WITH A 1. + 3106 + 3107 005617 SN=SN+1 + 3108 040000 000000 ZZ=ZZ+ZZ + 3109 032017 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 3110 032020 204 00 0 00 035133 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 3111 032021 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 3112 STOP^ + 3113 032022 254 04 0 00 032023 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3114 032023 324 00 0 00 032024 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3115 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-12 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0076 + + 3116 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3117 + 3118 ;********** + 3119 + 3120 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 3121 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 3122 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 3123 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 3124 ;HALF OF THE AC IS TESTED WITH A 1. + 3125 + 3126 005620 SN=SN+1 + 3127 100000 000000 ZZ=ZZ+ZZ + 3128 032024 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 3129 032025 204 00 0 00 035134 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 3130 032026 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 3131 STOP^ + 3132 032027 254 04 0 00 032030 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3133 032030 324 00 0 00 032031 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3134 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3135 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3136 + 3137 ;********** + 3138 + 3139 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 3140 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 3141 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 3142 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 3143 ;HALF OF THE AC IS TESTED WITH A 1. + 3144 + 3145 005621 SN=SN+1 + 3146 200000 000000 ZZ=ZZ+ZZ + 3147 032031 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 3148 032032 204 00 0 00 035135 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 3149 032033 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 3150 STOP^ + 3151 032034 254 04 0 00 032035 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3152 032035 324 00 0 00 032036 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3153 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3154 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3155 + 3156 ;********** + 3157 + 3158 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL + 3159 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS + 3160 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS + 3161 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT + 3162 ;HALF OF THE AC IS TESTED WITH A 1. + 3163 + 3164 005622 SN=SN+1 + 3165 400000 000000 ZZ=ZZ+ZZ + 3166 032036 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 3167 032037 204 00 0 00 035065 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC + 3168 032040 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. + 3169 STOP^ + 3170 032041 254 04 0 00 032042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-13 +DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0077 + + 3171 032042 324 00 0 00 032043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3172 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3173 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3174 + 3175 ;********** + 3176 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 23 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0078 + + 3177 SUBTTL TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) + 3178 + 3179 ;THIS TEST VERIFIES THAT SETM LOADS AC FROM E. THE AC IS FIRST SET + 3180 ;TO ZERO; THEN, SETM IS EXECUTED WITH ALL ONES IN E. BIT 0 OF THE AC + 3181 ;IS THEN CHECKED FOR A 1. + 3182 + 3183 032043 200 00 0 00 035062 A5700: MOVE [0] ;PRELOAD AC WITH ALL ZEROS + 3184 032044 414 00 0 00 035063 SETM [-1] ;*SETM SHOULD LOAD AC WITH ALL ONES + 3185 032045 331 00 0 00 000000 SKIPL ;PASS TEST IF AC BIT 0 IS A ONE + 3186 STOP^ + 3187 032046 254 04 0 00 032047 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3188 032047 324 00 0 00 032050 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3189 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3190 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3191 ;FCE [F1], IR BOOLE [IR1], IRXX(0,5,12,17) [IR2] + 3192 + 3193 ;********** + 3194 + 3195 ;THIS TEST VERIFIES THAT SETM LOADS AC FROM E. THE AC IS FIRST SET TO + 3196 ;ALL ONES; THEN, SETM IS EXECUTED WITH ALL ZEROS IN E. THE AC IS CHECKED + 3197 ;FOR ALL ZEROS + 3198 + 3199 032050 200 00 0 00 035063 A6000: MOVE [-1] ;PRESET AC TO ALL ONES + 3200 032051 414 00 0 00 035062 SETM [0] ;*SETM SHOULD LOAD AC WITH ALL ONES + 3201 032052 332 00 0 00 000000 SKIPE ;PASSES TEST IF C(AC) = 0 + 3202 STOP^ + 3203 032053 254 04 0 00 032054 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3204 032054 324 00 0 00 032055 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3205 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3206 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3207 + 3208 ;AD AR + EN [ADAP], AD AR + EN C[ADAP], + 3209 ;F CYC ACT EN A[F1], IR BOOLE AD A +F[IR2], + 3210 ;IR BOOLE [IR1], IRXX(1-3,6,11,15,16) [IR2] + 3211 + 3212 ;********** + 3213 + 3214 ;THIS TEST VERIFIES THAT SETZ LOADS TH AC WITH ALL ZEROS. FIRST, A WORD + 3215 ;OF ALL ZEROS IS LOADED INTO THE AC VIA A MOVE INSTC. THEN, SETZ IS + 3216 ;EXECUTED. THE AC IS CHECKED FOR ALL ZEROS. + 3217 ;IF ANY BITS IN THE AC ARE SET, THE TEST FAILS. + 3218 + 3219 032055 200 00 0 00 035062 A6100: MOVE [0] ;RESET AC TO ALL ZEROS + 3220 032056 400 00 0 00 000000 SETZ ;*SETZ SHOULD CLEAR THE AC + 3221 032057 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC) = 0 + 3222 STOP^ + 3223 032060 254 04 0 00 032061 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3224 032061 324 00 0 00 032062 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3225 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3226 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3227 + 3228 ;AD MASK GEN EN [ADC1], AD MASK GEN F/F'S [ADC1] + 3229 ;AD MASK EN B; F CYC ACT EN B[F1]; IRXX00 [IR1]; + 3230 ;IR BOOLE [IR1] + 3231 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 23-1 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0079 + + 3232 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0080 + + 3233 ;THIS TEST VERIFIES THAT SETZ LOADS THE AC WITH ALL ZEROS. FIRST, + 3234 ;THE AC IS SET TO ALL ONES; THEN, SETZ IS EXECUTED. THE AC IS THEN + 3235 ;CHECKED FOR ALL ZEROS. IF ANY BITS IN THE AC ARE SET, THE TEST FAILS. + 3236 + 3237 032062 200 00 0 00 035063 A6200: MOVE [-1] ;PRESET AC TO ALL ONES + 3238 032063 400 00 0 00 032063 SETZ . ;*SETZ SHOULD CLEAR THE AC + 3239 032064 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC) = 0 + 3240 STOP^ + 3241 032065 254 04 0 00 032066 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3242 032066 324 00 0 00 032067 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3243 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3244 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3245 + 3246 ;AR AD EN [ARMA], AR AD ET2 EN [ARMA], IR BOOLE [IR] + 3247 + 3248 ;********** + 3249 + 3250 ;THIS TEST VERIFIES THAT THE AND INSTRUCTION OPERATING ON AN AC + 3251 ;CONTAINING ALL ZEROS AND AN E CONTAINING ALL ZEROS RESULTS IN AN AC + 3252 ;OF ALL ZEROS. THE AC AND E ARE THE SAME IN THIS TEST. + 3253 ;AC, E ARE LOADED WITH ZEROS; THEN, AND IS EXECUTED. THE AC IS THEN + 3254 ;CHECKED FOR ALL ZEROS. IF ANY BITS IN THE AC ARE SET BY THE AND INSTRUCTION, + 3255 ;THE TEST FAILS. + 3256 + 3257 + 3258 032067 200 00 0 00 035062 A6300: MOVE [0] ;PRESET AC, E TO ALL ZEROS + 3259 032070 404 00 0 00 000000 AND ;*AND SHOULD RESULT IN C(AC) = 0 + 3260 032071 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC) = 0 + 3261 STOP^ + 3262 032072 254 04 0 00 032073 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3263 032073 324 00 0 00 032074 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3264 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3265 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3266 + 3267 ;********** + 3268 006400 SN=6400 + 3269 000000 ZZ=0 + 3270 + 3271 A6400: REPEAT ^D36, + 3272 <;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3273 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3274 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3275 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3276 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3277 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3278 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3279 + 3280 SN=SN+1 + 3281 ZZ=ZZ+ZZ + 3282 IFE ZZ, + 3283 SETZ ;PRESET E TO ALL ZEROS + 3284 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3285 ;WHERE X VARIES FROM 0 THRU 35 + 3286 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3287 SKIPE 1 ;FAIL IF C(AC) NON-ZERO +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-1 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0081 + + 3288 STOP + 3289 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3290 STOP + 3291 ;********** + 3292 > + 3293 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3294 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3295 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3296 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3297 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3298 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3299 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3300 + 3301 006401 SN=SN+1 + 3302 000000 ZZ=ZZ+ZZ + 3303 000001 IFE ZZ, + 3304 032074 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3305 032075 200 01 0 00 035074 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3306 ;WHERE X VARIES FROM 0 THRU 35 + 3307 032076 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3308 032077 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3309 STOP^ + 3310 032100 254 04 0 00 032101 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3311 032101 324 00 0 00 032102 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3312 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3313 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3314 032102 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3315 STOP^ + 3316 032103 254 04 0 00 032104 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3317 032104 324 00 0 00 032105 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3318 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3319 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3320 ;********** + 3321 + 3322 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3323 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3324 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3325 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3326 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3327 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3328 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3329 + 3330 006402 SN=SN+1 + 3331 000002 ZZ=ZZ+ZZ + 3332 IFE ZZ, + 3333 032105 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3334 032106 200 01 0 00 035075 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3335 ;WHERE X VARIES FROM 0 THRU 35 + 3336 032107 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3337 032110 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3338 STOP^ + 3339 032111 254 04 0 00 032112 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3340 032112 324 00 0 00 032113 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3341 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3342 ;IN THE SUBTEST) TO LOOP ON ERROR^ +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-2 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0082 + + 3343 032113 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3344 STOP^ + 3345 032114 254 04 0 00 032115 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3346 032115 324 00 0 00 032116 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3347 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3348 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3349 ;********** + 3350 + 3351 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3352 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3353 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3354 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3355 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3356 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3357 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3358 + 3359 006403 SN=SN+1 + 3360 000004 ZZ=ZZ+ZZ + 3361 IFE ZZ, + 3362 032116 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3363 032117 200 01 0 00 035076 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3364 ;WHERE X VARIES FROM 0 THRU 35 + 3365 032120 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3366 032121 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3367 STOP^ + 3368 032122 254 04 0 00 032123 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3369 032123 324 00 0 00 032124 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3370 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3371 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3372 032124 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3373 STOP^ + 3374 032125 254 04 0 00 032126 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3375 032126 324 00 0 00 032127 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3376 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3377 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3378 ;********** + 3379 + 3380 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3381 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3382 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3383 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3384 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3385 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3386 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3387 + 3388 006404 SN=SN+1 + 3389 000010 ZZ=ZZ+ZZ + 3390 IFE ZZ, + 3391 032127 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3392 032130 200 01 0 00 035077 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3393 ;WHERE X VARIES FROM 0 THRU 35 + 3394 032131 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3395 032132 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3396 STOP^ + 3397 032133 254 04 0 00 032134 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-3 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0083 + + 3398 032134 324 00 0 00 032135 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3399 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3400 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3401 032135 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3402 STOP^ + 3403 032136 254 04 0 00 032137 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3404 032137 324 00 0 00 032140 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3405 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3406 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3407 ;********** + 3408 + 3409 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3410 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3411 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3412 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3413 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3414 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3415 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3416 + 3417 006405 SN=SN+1 + 3418 000020 ZZ=ZZ+ZZ + 3419 IFE ZZ, + 3420 032140 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3421 032141 200 01 0 00 035100 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3422 ;WHERE X VARIES FROM 0 THRU 35 + 3423 032142 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3424 032143 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3425 STOP^ + 3426 032144 254 04 0 00 032145 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3427 032145 324 00 0 00 032146 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3428 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3429 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3430 032146 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3431 STOP^ + 3432 032147 254 04 0 00 032150 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3433 032150 324 00 0 00 032151 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3434 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3435 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3436 ;********** + 3437 + 3438 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3439 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3440 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3441 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3442 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3443 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3444 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3445 + 3446 006406 SN=SN+1 + 3447 000040 ZZ=ZZ+ZZ + 3448 IFE ZZ, + 3449 032151 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3450 032152 200 01 0 00 035101 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3451 ;WHERE X VARIES FROM 0 THRU 35 + 3452 032153 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-4 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0084 + + 3453 032154 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3454 STOP^ + 3455 032155 254 04 0 00 032156 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3456 032156 324 00 0 00 032157 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3457 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3458 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3459 032157 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3460 STOP^ + 3461 032160 254 04 0 00 032161 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3462 032161 324 00 0 00 032162 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3463 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3464 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3465 ;********** + 3466 + 3467 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3468 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3469 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3470 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3471 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3472 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3473 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3474 + 3475 006407 SN=SN+1 + 3476 000100 ZZ=ZZ+ZZ + 3477 IFE ZZ, + 3478 032162 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3479 032163 200 01 0 00 035102 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3480 ;WHERE X VARIES FROM 0 THRU 35 + 3481 032164 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3482 032165 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3483 STOP^ + 3484 032166 254 04 0 00 032167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3485 032167 324 00 0 00 032170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3486 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3487 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3488 032170 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3489 STOP^ + 3490 032171 254 04 0 00 032172 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3491 032172 324 00 0 00 032173 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3492 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3493 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3494 ;********** + 3495 + 3496 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3497 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3498 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3499 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3500 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3501 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3502 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3503 + 3504 006410 SN=SN+1 + 3505 000200 ZZ=ZZ+ZZ + 3506 IFE ZZ, + 3507 032173 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-5 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0085 + + 3508 032174 200 01 0 00 035103 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3509 ;WHERE X VARIES FROM 0 THRU 35 + 3510 032175 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3511 032176 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3512 STOP^ + 3513 032177 254 04 0 00 032200 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3514 032200 324 00 0 00 032201 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3515 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3516 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3517 032201 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3518 STOP^ + 3519 032202 254 04 0 00 032203 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3520 032203 324 00 0 00 032204 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3521 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3522 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3523 ;********** + 3524 + 3525 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3526 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3527 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3528 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3529 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3530 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3531 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3532 + 3533 006411 SN=SN+1 + 3534 000400 ZZ=ZZ+ZZ + 3535 IFE ZZ, + 3536 032204 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3537 032205 200 01 0 00 035104 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3538 ;WHERE X VARIES FROM 0 THRU 35 + 3539 032206 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3540 032207 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3541 STOP^ + 3542 032210 254 04 0 00 032211 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3543 032211 324 00 0 00 032212 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3544 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3545 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3546 032212 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3547 STOP^ + 3548 032213 254 04 0 00 032214 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3549 032214 324 00 0 00 032215 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3550 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3551 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3552 ;********** + 3553 + 3554 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3555 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3556 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3557 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3558 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3559 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3560 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3561 + 3562 006412 SN=SN+1 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-6 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0086 + + 3563 001000 ZZ=ZZ+ZZ + 3564 IFE ZZ, + 3565 032215 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3566 032216 200 01 0 00 035105 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3567 ;WHERE X VARIES FROM 0 THRU 35 + 3568 032217 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3569 032220 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3570 STOP^ + 3571 032221 254 04 0 00 032222 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3572 032222 324 00 0 00 032223 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3573 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3574 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3575 032223 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3576 STOP^ + 3577 032224 254 04 0 00 032225 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3578 032225 324 00 0 00 032226 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3579 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3580 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3581 ;********** + 3582 + 3583 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3584 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3585 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3586 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3587 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3588 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3589 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3590 + 3591 006413 SN=SN+1 + 3592 002000 ZZ=ZZ+ZZ + 3593 IFE ZZ, + 3594 032226 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3595 032227 200 01 0 00 035106 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3596 ;WHERE X VARIES FROM 0 THRU 35 + 3597 032230 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3598 032231 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3599 STOP^ + 3600 032232 254 04 0 00 032233 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3601 032233 324 00 0 00 032234 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3602 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3603 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3604 032234 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3605 STOP^ + 3606 032235 254 04 0 00 032236 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3607 032236 324 00 0 00 032237 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3608 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3609 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3610 ;********** + 3611 + 3612 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3613 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3614 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3615 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3616 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3617 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-7 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0087 + + 3618 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3619 + 3620 006414 SN=SN+1 + 3621 004000 ZZ=ZZ+ZZ + 3622 IFE ZZ, + 3623 032237 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3624 032240 200 01 0 00 035107 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3625 ;WHERE X VARIES FROM 0 THRU 35 + 3626 032241 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3627 032242 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3628 STOP^ + 3629 032243 254 04 0 00 032244 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3630 032244 324 00 0 00 032245 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3631 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3632 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3633 032245 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3634 STOP^ + 3635 032246 254 04 0 00 032247 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3636 032247 324 00 0 00 032250 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3637 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3638 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3639 ;********** + 3640 + 3641 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3642 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3643 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3644 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3645 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3646 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3647 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3648 + 3649 006415 SN=SN+1 + 3650 010000 ZZ=ZZ+ZZ + 3651 IFE ZZ, + 3652 032250 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3653 032251 200 01 0 00 035110 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3654 ;WHERE X VARIES FROM 0 THRU 35 + 3655 032252 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3656 032253 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3657 STOP^ + 3658 032254 254 04 0 00 032255 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3659 032255 324 00 0 00 032256 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3660 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3661 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3662 032256 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3663 STOP^ + 3664 032257 254 04 0 00 032260 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3665 032260 324 00 0 00 032261 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3666 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3667 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3668 ;********** + 3669 + 3670 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3671 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3672 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-8 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0088 + + 3673 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3674 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3675 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3676 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3677 + 3678 006416 SN=SN+1 + 3679 020000 ZZ=ZZ+ZZ + 3680 IFE ZZ, + 3681 032261 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3682 032262 200 01 0 00 035111 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3683 ;WHERE X VARIES FROM 0 THRU 35 + 3684 032263 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3685 032264 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3686 STOP^ + 3687 032265 254 04 0 00 032266 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3688 032266 324 00 0 00 032267 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3689 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3690 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3691 032267 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3692 STOP^ + 3693 032270 254 04 0 00 032271 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3694 032271 324 00 0 00 032272 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3695 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3696 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3697 ;********** + 3698 + 3699 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3700 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3701 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3702 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3703 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3704 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3705 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3706 + 3707 006417 SN=SN+1 + 3708 040000 ZZ=ZZ+ZZ + 3709 IFE ZZ, + 3710 032272 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3711 032273 200 01 0 00 035112 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3712 ;WHERE X VARIES FROM 0 THRU 35 + 3713 032274 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3714 032275 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3715 STOP^ + 3716 032276 254 04 0 00 032277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3717 032277 324 00 0 00 032300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3718 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3719 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3720 032300 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3721 STOP^ + 3722 032301 254 04 0 00 032302 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3723 032302 324 00 0 00 032303 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3724 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3725 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3726 ;********** + 3727 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-9 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0089 + + 3728 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3729 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3730 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3731 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3732 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3733 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3734 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3735 + 3736 006420 SN=SN+1 + 3737 100000 ZZ=ZZ+ZZ + 3738 IFE ZZ, + 3739 032303 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3740 032304 200 01 0 00 035113 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3741 ;WHERE X VARIES FROM 0 THRU 35 + 3742 032305 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3743 032306 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3744 STOP^ + 3745 032307 254 04 0 00 032310 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3746 032310 324 00 0 00 032311 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3747 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3748 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3749 032311 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3750 STOP^ + 3751 032312 254 04 0 00 032313 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3752 032313 324 00 0 00 032314 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3753 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3754 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3755 ;********** + 3756 + 3757 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3758 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3759 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3760 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3761 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3762 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3763 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3764 + 3765 006421 SN=SN+1 + 3766 200000 ZZ=ZZ+ZZ + 3767 IFE ZZ, + 3768 032314 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3769 032315 200 01 0 00 035114 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3770 ;WHERE X VARIES FROM 0 THRU 35 + 3771 032316 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3772 032317 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3773 STOP^ + 3774 032320 254 04 0 00 032321 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3775 032321 324 00 0 00 032322 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3776 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3777 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3778 032322 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3779 STOP^ + 3780 032323 254 04 0 00 032324 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3781 032324 324 00 0 00 032325 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3782 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-10 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0090 + + 3783 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3784 ;********** + 3785 + 3786 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3787 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3788 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3789 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3790 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3791 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3792 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3793 + 3794 006422 SN=SN+1 + 3795 400000 ZZ=ZZ+ZZ + 3796 IFE ZZ, + 3797 032325 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3798 032326 200 01 0 00 035115 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3799 ;WHERE X VARIES FROM 0 THRU 35 + 3800 032327 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3801 032330 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3802 STOP^ + 3803 032331 254 04 0 00 032332 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3804 032332 324 00 0 00 032333 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3805 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3806 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3807 032333 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3808 STOP^ + 3809 032334 254 04 0 00 032335 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3810 032335 324 00 0 00 032336 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3811 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3812 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3813 ;********** + 3814 + 3815 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3816 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3817 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3818 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3819 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3820 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3821 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3822 + 3823 006423 SN=SN+1 + 3824 000001 000000 ZZ=ZZ+ZZ + 3825 IFE ZZ, + 3826 032336 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3827 032337 200 01 0 00 035116 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3828 ;WHERE X VARIES FROM 0 THRU 35 + 3829 032340 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3830 032341 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3831 STOP^ + 3832 032342 254 04 0 00 032343 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3833 032343 324 00 0 00 032344 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3834 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3835 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3836 032344 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3837 STOP^ +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-11 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0091 + + 3838 032345 254 04 0 00 032346 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3839 032346 324 00 0 00 032347 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3840 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3841 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3842 ;********** + 3843 + 3844 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3845 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3846 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3847 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3848 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3849 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3850 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3851 + 3852 006424 SN=SN+1 + 3853 000002 000000 ZZ=ZZ+ZZ + 3854 IFE ZZ, + 3855 032347 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3856 032350 200 01 0 00 035117 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3857 ;WHERE X VARIES FROM 0 THRU 35 + 3858 032351 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3859 032352 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3860 STOP^ + 3861 032353 254 04 0 00 032354 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3862 032354 324 00 0 00 032355 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3863 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3864 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3865 032355 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3866 STOP^ + 3867 032356 254 04 0 00 032357 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3868 032357 324 00 0 00 032360 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3869 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3870 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3871 ;********** + 3872 + 3873 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3874 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3875 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3876 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3877 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3878 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3879 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3880 + 3881 006425 SN=SN+1 + 3882 000004 000000 ZZ=ZZ+ZZ + 3883 IFE ZZ, + 3884 032360 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3885 032361 200 01 0 00 035120 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3886 ;WHERE X VARIES FROM 0 THRU 35 + 3887 032362 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3888 032363 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3889 STOP^ + 3890 032364 254 04 0 00 032365 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3891 032365 324 00 0 00 032366 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3892 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-12 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0092 + + 3893 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3894 032366 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3895 STOP^ + 3896 032367 254 04 0 00 032370 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3897 032370 324 00 0 00 032371 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3898 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3899 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3900 ;********** + 3901 + 3902 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3903 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3904 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3905 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3906 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3907 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3908 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3909 + 3910 006426 SN=SN+1 + 3911 000010 000000 ZZ=ZZ+ZZ + 3912 IFE ZZ, + 3913 032371 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3914 032372 200 01 0 00 035121 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3915 ;WHERE X VARIES FROM 0 THRU 35 + 3916 032373 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3917 032374 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3918 STOP^ + 3919 032375 254 04 0 00 032376 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3920 032376 324 00 0 00 032377 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3921 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3922 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3923 032377 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3924 STOP^ + 3925 032400 254 04 0 00 032401 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3926 032401 324 00 0 00 032402 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3927 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3928 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3929 ;********** + 3930 + 3931 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3932 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3933 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3934 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3935 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3936 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3937 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3938 + 3939 006427 SN=SN+1 + 3940 000020 000000 ZZ=ZZ+ZZ + 3941 IFE ZZ, + 3942 032402 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3943 032403 200 01 0 00 035122 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3944 ;WHERE X VARIES FROM 0 THRU 35 + 3945 032404 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3946 032405 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3947 STOP^ +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-13 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0093 + + 3948 032406 254 04 0 00 032407 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3949 032407 324 00 0 00 032410 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3950 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3951 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3952 032410 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3953 STOP^ + 3954 032411 254 04 0 00 032412 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3955 032412 324 00 0 00 032413 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3956 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3957 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3958 ;********** + 3959 + 3960 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3961 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3962 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3963 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3964 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3965 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3966 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3967 + 3968 006430 SN=SN+1 + 3969 000040 000000 ZZ=ZZ+ZZ + 3970 IFE ZZ, + 3971 032413 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 3972 032414 200 01 0 00 035123 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 3973 ;WHERE X VARIES FROM 0 THRU 35 + 3974 032415 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 3975 032416 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 3976 STOP^ + 3977 032417 254 04 0 00 032420 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3978 032420 324 00 0 00 032421 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3979 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3980 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3981 032421 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 3982 STOP^ + 3983 032422 254 04 0 00 032423 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3984 032423 324 00 0 00 032424 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 3985 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 3986 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 3987 ;********** + 3988 + 3989 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 3990 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 3991 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 3992 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 3993 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 3994 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 3995 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 3996 + 3997 006431 SN=SN+1 + 3998 000100 000000 ZZ=ZZ+ZZ + 3999 IFE ZZ, + 4000 032424 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 4001 032425 200 01 0 00 035124 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 4002 ;WHERE X VARIES FROM 0 THRU 35 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-14 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0094 + + 4003 032426 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 4004 032427 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 4005 STOP^ + 4006 032430 254 04 0 00 032431 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4007 032431 324 00 0 00 032432 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4008 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4009 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4010 032432 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 4011 STOP^ + 4012 032433 254 04 0 00 032434 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4013 032434 324 00 0 00 032435 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4014 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4015 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4016 ;********** + 4017 + 4018 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 4019 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 4020 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 4021 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 4022 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 4023 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 4024 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 4025 + 4026 006432 SN=SN+1 + 4027 000200 000000 ZZ=ZZ+ZZ + 4028 IFE ZZ, + 4029 032435 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 4030 032436 200 01 0 00 035125 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 4031 ;WHERE X VARIES FROM 0 THRU 35 + 4032 032437 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 4033 032440 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 4034 STOP^ + 4035 032441 254 04 0 00 032442 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4036 032442 324 00 0 00 032443 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4037 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4038 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4039 032443 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 4040 STOP^ + 4041 032444 254 04 0 00 032445 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4042 032445 324 00 0 00 032446 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4043 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4044 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4045 ;********** + 4046 + 4047 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 4048 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 4049 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 4050 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 4051 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 4052 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 4053 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 4054 + 4055 006433 SN=SN+1 + 4056 000400 000000 ZZ=ZZ+ZZ + 4057 IFE ZZ, +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-15 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0095 + + 4058 032446 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 4059 032447 200 01 0 00 035073 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 4060 ;WHERE X VARIES FROM 0 THRU 35 + 4061 032450 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 4062 032451 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 4063 STOP^ + 4064 032452 254 04 0 00 032453 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4065 032453 324 00 0 00 032454 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4066 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4067 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4068 032454 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 4069 STOP^ + 4070 032455 254 04 0 00 032456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4071 032456 324 00 0 00 032457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4072 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4073 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4074 ;********** + 4075 + 4076 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 4077 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 4078 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 4079 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 4080 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 4081 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 4082 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 4083 + 4084 006434 SN=SN+1 + 4085 001000 000000 ZZ=ZZ+ZZ + 4086 IFE ZZ, + 4087 032457 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 4088 032460 200 01 0 00 035126 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 4089 ;WHERE X VARIES FROM 0 THRU 35 + 4090 032461 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 4091 032462 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 4092 STOP^ + 4093 032463 254 04 0 00 032464 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4094 032464 324 00 0 00 032465 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4095 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4096 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4097 032465 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 4098 STOP^ + 4099 032466 254 04 0 00 032467 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4100 032467 324 00 0 00 032470 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4101 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4102 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4103 ;********** + 4104 + 4105 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 4106 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 4107 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 4108 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 4109 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 4110 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 4111 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 4112 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-16 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0096 + + 4113 006435 SN=SN+1 + 4114 002000 000000 ZZ=ZZ+ZZ + 4115 IFE ZZ, + 4116 032470 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 4117 032471 200 01 0 00 035127 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 4118 ;WHERE X VARIES FROM 0 THRU 35 + 4119 032472 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 4120 032473 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 4121 STOP^ + 4122 032474 254 04 0 00 032475 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4123 032475 324 00 0 00 032476 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4124 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4125 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4126 032476 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 4127 STOP^ + 4128 032477 254 04 0 00 032500 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4129 032500 324 00 0 00 032501 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4130 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4131 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4132 ;********** + 4133 + 4134 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 4135 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 4136 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 4137 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 4138 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 4139 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 4140 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 4141 + 4142 006436 SN=SN+1 + 4143 004000 000000 ZZ=ZZ+ZZ + 4144 IFE ZZ, + 4145 032501 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 4146 032502 200 01 0 00 035130 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 4147 ;WHERE X VARIES FROM 0 THRU 35 + 4148 032503 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 4149 032504 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 4150 STOP^ + 4151 032505 254 04 0 00 032506 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4152 032506 324 00 0 00 032507 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4153 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4154 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4155 032507 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 4156 STOP^ + 4157 032510 254 04 0 00 032511 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4158 032511 324 00 0 00 032512 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4159 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4160 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4161 ;********** + 4162 + 4163 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 4164 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 4165 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 4166 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 4167 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-17 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0097 + + 4168 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 4169 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 4170 + 4171 006437 SN=SN+1 + 4172 010000 000000 ZZ=ZZ+ZZ + 4173 IFE ZZ, + 4174 032512 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 4175 032513 200 01 0 00 035131 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 4176 ;WHERE X VARIES FROM 0 THRU 35 + 4177 032514 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 4178 032515 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 4179 STOP^ + 4180 032516 254 04 0 00 032517 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4181 032517 324 00 0 00 032520 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4182 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4183 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4184 032520 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 4185 STOP^ + 4186 032521 254 04 0 00 032522 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4187 032522 324 00 0 00 032523 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4188 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4189 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4190 ;********** + 4191 + 4192 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 4193 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 4194 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 4195 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 4196 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 4197 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 4198 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 4199 + 4200 006440 SN=SN+1 + 4201 020000 000000 ZZ=ZZ+ZZ + 4202 IFE ZZ, + 4203 032523 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 4204 032524 200 01 0 00 035132 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 4205 ;WHERE X VARIES FROM 0 THRU 35 + 4206 032525 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 4207 032526 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 4208 STOP^ + 4209 032527 254 04 0 00 032530 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4210 032530 324 00 0 00 032531 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4211 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4212 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4213 032531 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 4214 STOP^ + 4215 032532 254 04 0 00 032533 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4216 032533 324 00 0 00 032534 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4217 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4218 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4219 ;********** + 4220 + 4221 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 4222 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-18 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0098 + + 4223 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 4224 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 4225 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 4226 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 4227 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 4228 + 4229 006441 SN=SN+1 + 4230 040000 000000 ZZ=ZZ+ZZ + 4231 IFE ZZ, + 4232 032534 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 4233 032535 200 01 0 00 035133 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 4234 ;WHERE X VARIES FROM 0 THRU 35 + 4235 032536 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 4236 032537 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 4237 STOP^ + 4238 032540 254 04 0 00 032541 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4239 032541 324 00 0 00 032542 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4240 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4241 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4242 032542 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 4243 STOP^ + 4244 032543 254 04 0 00 032544 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4245 032544 324 00 0 00 032545 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4246 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4247 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4248 ;********** + 4249 + 4250 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 4251 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 4252 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 4253 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 4254 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 4255 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 4256 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 4257 + 4258 006442 SN=SN+1 + 4259 100000 000000 ZZ=ZZ+ZZ + 4260 IFE ZZ, + 4261 032545 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 4262 032546 200 01 0 00 035134 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 4263 ;WHERE X VARIES FROM 0 THRU 35 + 4264 032547 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 4265 032550 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 4266 STOP^ + 4267 032551 254 04 0 00 032552 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4268 032552 324 00 0 00 032553 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4269 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4270 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4271 032553 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 4272 STOP^ + 4273 032554 254 04 0 00 032555 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4274 032555 324 00 0 00 032556 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4275 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4276 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4277 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-19 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0099 + + 4278 + 4279 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 4280 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 4281 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 4282 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 4283 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 4284 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 4285 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 4286 + 4287 006443 SN=SN+1 + 4288 200000 000000 ZZ=ZZ+ZZ + 4289 IFE ZZ, + 4290 032556 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 4291 032557 200 01 0 00 035135 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 4292 ;WHERE X VARIES FROM 0 THRU 35 + 4293 032560 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 4294 032561 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 4295 STOP^ + 4296 032562 254 04 0 00 032563 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4297 032563 324 00 0 00 032564 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4298 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4299 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4300 032564 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 4301 STOP^ + 4302 032565 254 04 0 00 032566 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4303 032566 324 00 0 00 032567 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4304 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4305 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4306 ;********** + 4307 + 4308 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION + 4309 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH + 4310 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X + 4311 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. + 4312 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, + 4313 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS + 4314 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. + 4315 + 4316 006444 SN=SN+1 + 4317 400000 000000 ZZ=ZZ+ZZ + 4318 IFE ZZ, + 4319 032567 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS + 4320 032570 200 01 0 00 035065 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X + 4321 ;WHERE X VARIES FROM 0 THRU 35 + 4322 032571 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 + 4323 032572 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO + 4324 STOP^ + 4325 032573 254 04 0 00 032574 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4326 032574 324 00 0 00 032575 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4327 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4328 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4329 032575 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO + 4330 STOP^ + 4331 032576 254 04 0 00 032577 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4332 032577 324 00 0 00 032600 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-20 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0100 + + 4333 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4334 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4335 ;********** + 4336 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0101 + + 4337 006500 SN=6500 + 4338 000000 ZZ=0 + 4339 + 4340 A6500: REPEAT ^D36, + 4341 <;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4342 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4343 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4344 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4345 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4346 SN=SN+1 + 4347 ZZ=ZZ+ZZ + 4348 IFE ZZ, + 4349 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4350 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4351 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4352 ;C(AC) NONZERO + 4353 SKIPN ;PASS TEST IF C(AC) NONZERO + 4354 STOP + 4355 + 4356 ;********** + 4357 > + 4358 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4359 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4360 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4361 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4362 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4363 006501 SN=SN+1 + 4364 000000 ZZ=ZZ+ZZ + 4365 000001 IFE ZZ, + 4366 032600 200 00 0 00 035074 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4367 032601 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4368 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4369 ;C(AC) NONZERO + 4370 032602 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4371 STOP^ + 4372 032603 254 04 0 00 032604 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4373 032604 324 00 0 00 032605 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4374 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4375 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4376 + 4377 ;********** + 4378 + 4379 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4380 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4381 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4382 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4383 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4384 006502 SN=SN+1 + 4385 000002 ZZ=ZZ+ZZ + 4386 IFE ZZ, + 4387 032605 200 00 0 00 035075 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4388 032606 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4389 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4390 ;C(AC) NONZERO + 4391 032607 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-1 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0102 + + 4392 STOP^ + 4393 032610 254 04 0 00 032611 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4394 032611 324 00 0 00 032612 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4395 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4396 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4397 + 4398 ;********** + 4399 + 4400 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4401 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4402 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4403 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4404 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4405 006503 SN=SN+1 + 4406 000004 ZZ=ZZ+ZZ + 4407 IFE ZZ, + 4408 032612 200 00 0 00 035076 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4409 032613 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4410 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4411 ;C(AC) NONZERO + 4412 032614 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4413 STOP^ + 4414 032615 254 04 0 00 032616 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4415 032616 324 00 0 00 032617 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4416 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4417 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4418 + 4419 ;********** + 4420 + 4421 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4422 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4423 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4424 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4425 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4426 006504 SN=SN+1 + 4427 000010 ZZ=ZZ+ZZ + 4428 IFE ZZ, + 4429 032617 200 00 0 00 035077 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4430 032620 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4431 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4432 ;C(AC) NONZERO + 4433 032621 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4434 STOP^ + 4435 032622 254 04 0 00 032623 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4436 032623 324 00 0 00 032624 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4437 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4438 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4439 + 4440 ;********** + 4441 + 4442 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4443 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4444 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4445 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4446 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-2 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0103 + + 4447 006505 SN=SN+1 + 4448 000020 ZZ=ZZ+ZZ + 4449 IFE ZZ, + 4450 032624 200 00 0 00 035100 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4451 032625 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4452 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4453 ;C(AC) NONZERO + 4454 032626 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4455 STOP^ + 4456 032627 254 04 0 00 032630 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4457 032630 324 00 0 00 032631 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4458 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4459 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4460 + 4461 ;********** + 4462 + 4463 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4464 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4465 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4466 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4467 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4468 006506 SN=SN+1 + 4469 000040 ZZ=ZZ+ZZ + 4470 IFE ZZ, + 4471 032631 200 00 0 00 035101 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4472 032632 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4473 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4474 ;C(AC) NONZERO + 4475 032633 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4476 STOP^ + 4477 032634 254 04 0 00 032635 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4478 032635 324 00 0 00 032636 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4479 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4480 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4481 + 4482 ;********** + 4483 + 4484 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4485 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4486 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4487 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4488 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4489 006507 SN=SN+1 + 4490 000100 ZZ=ZZ+ZZ + 4491 IFE ZZ, + 4492 032636 200 00 0 00 035102 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4493 032637 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4494 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4495 ;C(AC) NONZERO + 4496 032640 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4497 STOP^ + 4498 032641 254 04 0 00 032642 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4499 032642 324 00 0 00 032643 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4500 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4501 ;IN THE SUBTEST) TO LOOP ON ERROR^ +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-3 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0104 + + 4502 + 4503 ;********** + 4504 + 4505 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4506 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4507 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4508 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4509 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4510 006510 SN=SN+1 + 4511 000200 ZZ=ZZ+ZZ + 4512 IFE ZZ, + 4513 032643 200 00 0 00 035103 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4514 032644 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4515 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4516 ;C(AC) NONZERO + 4517 032645 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4518 STOP^ + 4519 032646 254 04 0 00 032647 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4520 032647 324 00 0 00 032650 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4521 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4522 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4523 + 4524 ;********** + 4525 + 4526 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4527 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4528 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4529 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4530 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4531 006511 SN=SN+1 + 4532 000400 ZZ=ZZ+ZZ + 4533 IFE ZZ, + 4534 032650 200 00 0 00 035104 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4535 032651 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4536 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4537 ;C(AC) NONZERO + 4538 032652 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4539 STOP^ + 4540 032653 254 04 0 00 032654 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4541 032654 324 00 0 00 032655 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4542 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4543 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4544 + 4545 ;********** + 4546 + 4547 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4548 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4549 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4550 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4551 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4552 006512 SN=SN+1 + 4553 001000 ZZ=ZZ+ZZ + 4554 IFE ZZ, + 4555 032655 200 00 0 00 035105 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4556 032656 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-4 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0105 + + 4557 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4558 ;C(AC) NONZERO + 4559 032657 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4560 STOP^ + 4561 032660 254 04 0 00 032661 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4562 032661 324 00 0 00 032662 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4563 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4564 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4565 + 4566 ;********** + 4567 + 4568 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4569 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4570 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4571 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4572 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4573 006513 SN=SN+1 + 4574 002000 ZZ=ZZ+ZZ + 4575 IFE ZZ, + 4576 032662 200 00 0 00 035106 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4577 032663 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4578 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4579 ;C(AC) NONZERO + 4580 032664 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4581 STOP^ + 4582 032665 254 04 0 00 032666 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4583 032666 324 00 0 00 032667 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4584 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4585 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4586 + 4587 ;********** + 4588 + 4589 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4590 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4591 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4592 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4593 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4594 006514 SN=SN+1 + 4595 004000 ZZ=ZZ+ZZ + 4596 IFE ZZ, + 4597 032667 200 00 0 00 035107 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4598 032670 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4599 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4600 ;C(AC) NONZERO + 4601 032671 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4602 STOP^ + 4603 032672 254 04 0 00 032673 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4604 032673 324 00 0 00 032674 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4605 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4606 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4607 + 4608 ;********** + 4609 + 4610 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4611 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-5 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0106 + + 4612 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4613 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4614 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4615 006515 SN=SN+1 + 4616 010000 ZZ=ZZ+ZZ + 4617 IFE ZZ, + 4618 032674 200 00 0 00 035110 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4619 032675 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4620 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4621 ;C(AC) NONZERO + 4622 032676 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4623 STOP^ + 4624 032677 254 04 0 00 032700 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4625 032700 324 00 0 00 032701 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4626 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4627 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4628 + 4629 ;********** + 4630 + 4631 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4632 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4633 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4634 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4635 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4636 006516 SN=SN+1 + 4637 020000 ZZ=ZZ+ZZ + 4638 IFE ZZ, + 4639 032701 200 00 0 00 035111 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4640 032702 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4641 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4642 ;C(AC) NONZERO + 4643 032703 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4644 STOP^ + 4645 032704 254 04 0 00 032705 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4646 032705 324 00 0 00 032706 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4647 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4648 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4649 + 4650 ;********** + 4651 + 4652 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4653 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4654 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4655 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4656 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4657 006517 SN=SN+1 + 4658 040000 ZZ=ZZ+ZZ + 4659 IFE ZZ, + 4660 032706 200 00 0 00 035112 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4661 032707 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4662 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4663 ;C(AC) NONZERO + 4664 032710 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4665 STOP^ + 4666 032711 254 04 0 00 032712 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-6 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0107 + + 4667 032712 324 00 0 00 032713 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4668 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4669 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4670 + 4671 ;********** + 4672 + 4673 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4674 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4675 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4676 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4677 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4678 006520 SN=SN+1 + 4679 100000 ZZ=ZZ+ZZ + 4680 IFE ZZ, + 4681 032713 200 00 0 00 035113 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4682 032714 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4683 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4684 ;C(AC) NONZERO + 4685 032715 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4686 STOP^ + 4687 032716 254 04 0 00 032717 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4688 032717 324 00 0 00 032720 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4689 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4690 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4691 + 4692 ;********** + 4693 + 4694 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4695 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4696 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4697 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4698 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4699 006521 SN=SN+1 + 4700 200000 ZZ=ZZ+ZZ + 4701 IFE ZZ, + 4702 032720 200 00 0 00 035114 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4703 032721 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4704 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4705 ;C(AC) NONZERO + 4706 032722 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4707 STOP^ + 4708 032723 254 04 0 00 032724 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4709 032724 324 00 0 00 032725 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4710 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4711 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4712 + 4713 ;********** + 4714 + 4715 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4716 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4717 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4718 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4719 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4720 006522 SN=SN+1 + 4721 400000 ZZ=ZZ+ZZ +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-7 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0108 + + 4722 IFE ZZ, + 4723 032725 200 00 0 00 035115 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4724 032726 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4725 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4726 ;C(AC) NONZERO + 4727 032727 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4728 STOP^ + 4729 032730 254 04 0 00 032731 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4730 032731 324 00 0 00 032732 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4731 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4732 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4733 + 4734 ;********** + 4735 + 4736 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4737 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4738 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4739 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4740 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4741 006523 SN=SN+1 + 4742 000001 000000 ZZ=ZZ+ZZ + 4743 IFE ZZ, + 4744 032732 200 00 0 00 035116 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4745 032733 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4746 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4747 ;C(AC) NONZERO + 4748 032734 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4749 STOP^ + 4750 032735 254 04 0 00 032736 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4751 032736 324 00 0 00 032737 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4752 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4753 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4754 + 4755 ;********** + 4756 + 4757 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4758 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4759 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4760 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4761 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4762 006524 SN=SN+1 + 4763 000002 000000 ZZ=ZZ+ZZ + 4764 IFE ZZ, + 4765 032737 200 00 0 00 035117 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4766 032740 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4767 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4768 ;C(AC) NONZERO + 4769 032741 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4770 STOP^ + 4771 032742 254 04 0 00 032743 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4772 032743 324 00 0 00 032744 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4773 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4774 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4775 + 4776 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-8 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0109 + + 4777 + 4778 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4779 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4780 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4781 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4782 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4783 006525 SN=SN+1 + 4784 000004 000000 ZZ=ZZ+ZZ + 4785 IFE ZZ, + 4786 032744 200 00 0 00 035120 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4787 032745 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4788 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4789 ;C(AC) NONZERO + 4790 032746 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4791 STOP^ + 4792 032747 254 04 0 00 032750 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4793 032750 324 00 0 00 032751 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4794 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4795 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4796 + 4797 ;********** + 4798 + 4799 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4800 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4801 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4802 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4803 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4804 006526 SN=SN+1 + 4805 000010 000000 ZZ=ZZ+ZZ + 4806 IFE ZZ, + 4807 032751 200 00 0 00 035121 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4808 032752 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4809 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4810 ;C(AC) NONZERO + 4811 032753 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4812 STOP^ + 4813 032754 254 04 0 00 032755 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4814 032755 324 00 0 00 032756 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4815 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4816 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4817 + 4818 ;********** + 4819 + 4820 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4821 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4822 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4823 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4824 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4825 006527 SN=SN+1 + 4826 000020 000000 ZZ=ZZ+ZZ + 4827 IFE ZZ, + 4828 032756 200 00 0 00 035122 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4829 032757 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4830 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4831 ;C(AC) NONZERO +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-9 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0110 + + 4832 032760 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4833 STOP^ + 4834 032761 254 04 0 00 032762 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4835 032762 324 00 0 00 032763 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4836 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4837 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4838 + 4839 ;********** + 4840 + 4841 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4842 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4843 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4844 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4845 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4846 006530 SN=SN+1 + 4847 000040 000000 ZZ=ZZ+ZZ + 4848 IFE ZZ, + 4849 032763 200 00 0 00 035123 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4850 032764 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4851 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4852 ;C(AC) NONZERO + 4853 032765 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4854 STOP^ + 4855 032766 254 04 0 00 032767 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4856 032767 324 00 0 00 032770 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4857 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4858 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4859 + 4860 ;********** + 4861 + 4862 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4863 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4864 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4865 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4866 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4867 006531 SN=SN+1 + 4868 000100 000000 ZZ=ZZ+ZZ + 4869 IFE ZZ, + 4870 032770 200 00 0 00 035124 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4871 032771 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4872 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4873 ;C(AC) NONZERO + 4874 032772 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4875 STOP^ + 4876 032773 254 04 0 00 032774 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4877 032774 324 00 0 00 032775 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4878 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4879 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4880 + 4881 ;********** + 4882 + 4883 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4884 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4885 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4886 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-10 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0111 + + 4887 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4888 006532 SN=SN+1 + 4889 000200 000000 ZZ=ZZ+ZZ + 4890 IFE ZZ, + 4891 032775 200 00 0 00 035125 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4892 032776 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4893 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4894 ;C(AC) NONZERO + 4895 032777 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4896 STOP^ + 4897 033000 254 04 0 00 033001 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4898 033001 324 00 0 00 033002 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4899 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4900 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4901 + 4902 ;********** + 4903 + 4904 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4905 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4906 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4907 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4908 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4909 006533 SN=SN+1 + 4910 000400 000000 ZZ=ZZ+ZZ + 4911 IFE ZZ, + 4912 033002 200 00 0 00 035073 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4913 033003 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4914 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4915 ;C(AC) NONZERO + 4916 033004 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4917 STOP^ + 4918 033005 254 04 0 00 033006 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4919 033006 324 00 0 00 033007 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4920 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4921 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4922 + 4923 ;********** + 4924 + 4925 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4926 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4927 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4928 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4929 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4930 006534 SN=SN+1 + 4931 001000 000000 ZZ=ZZ+ZZ + 4932 IFE ZZ, + 4933 033007 200 00 0 00 035126 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4934 033010 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4935 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4936 ;C(AC) NONZERO + 4937 033011 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4938 STOP^ + 4939 033012 254 04 0 00 033013 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4940 033013 324 00 0 00 033014 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4941 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-11 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0112 + + 4942 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4943 + 4944 ;********** + 4945 + 4946 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4947 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4948 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4949 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4950 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4951 006535 SN=SN+1 + 4952 002000 000000 ZZ=ZZ+ZZ + 4953 IFE ZZ, + 4954 033014 200 00 0 00 035127 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4955 033015 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4956 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4957 ;C(AC) NONZERO + 4958 033016 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4959 STOP^ + 4960 033017 254 04 0 00 033020 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4961 033020 324 00 0 00 033021 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4962 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4963 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4964 + 4965 ;********** + 4966 + 4967 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4968 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4969 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4970 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4971 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4972 006536 SN=SN+1 + 4973 004000 000000 ZZ=ZZ+ZZ + 4974 IFE ZZ, + 4975 033021 200 00 0 00 035130 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 4976 033022 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4977 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4978 ;C(AC) NONZERO + 4979 033023 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 4980 STOP^ + 4981 033024 254 04 0 00 033025 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4982 033025 324 00 0 00 033026 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 4983 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 4984 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 4985 + 4986 ;********** + 4987 + 4988 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 4989 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 4990 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 4991 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 4992 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 4993 006537 SN=SN+1 + 4994 010000 000000 ZZ=ZZ+ZZ + 4995 IFE ZZ, + 4996 033026 200 00 0 00 035131 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-12 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0113 + + 4997 033027 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 4998 ;POSITION WITH ITSELF SHOULD RESULT WITH + 4999 ;C(AC) NONZERO + 5000 033030 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 5001 STOP^ + 5002 033031 254 04 0 00 033032 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5003 033032 324 00 0 00 033033 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5004 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5005 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5006 + 5007 ;********** + 5008 + 5009 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 5010 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 5011 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 5012 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 5013 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 5014 006540 SN=SN+1 + 5015 020000 000000 ZZ=ZZ+ZZ + 5016 IFE ZZ, + 5017 033033 200 00 0 00 035132 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 5018 033034 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 5019 ;POSITION WITH ITSELF SHOULD RESULT WITH + 5020 ;C(AC) NONZERO + 5021 033035 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 5022 STOP^ + 5023 033036 254 04 0 00 033037 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5024 033037 324 00 0 00 033040 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5025 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5026 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5027 + 5028 ;********** + 5029 + 5030 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 5031 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 5032 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 5033 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 5034 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 5035 006541 SN=SN+1 + 5036 040000 000000 ZZ=ZZ+ZZ + 5037 IFE ZZ, + 5038 033040 200 00 0 00 035133 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 5039 033041 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 5040 ;POSITION WITH ITSELF SHOULD RESULT WITH + 5041 ;C(AC) NONZERO + 5042 033042 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 5043 STOP^ + 5044 033043 254 04 0 00 033044 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5045 033044 324 00 0 00 033045 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5046 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5047 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5048 + 5049 ;********** + 5050 + 5051 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-13 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0114 + + 5052 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 5053 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 5054 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 5055 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 5056 006542 SN=SN+1 + 5057 100000 000000 ZZ=ZZ+ZZ + 5058 IFE ZZ, + 5059 033045 200 00 0 00 035134 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 5060 033046 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 5061 ;POSITION WITH ITSELF SHOULD RESULT WITH + 5062 ;C(AC) NONZERO + 5063 033047 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 5064 STOP^ + 5065 033050 254 04 0 00 033051 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5066 033051 324 00 0 00 033052 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5067 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5068 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5069 + 5070 ;********** + 5071 + 5072 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 5073 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 5074 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 5075 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 5076 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 5077 006543 SN=SN+1 + 5078 200000 000000 ZZ=ZZ+ZZ + 5079 IFE ZZ, + 5080 033052 200 00 0 00 035135 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 5081 033053 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 5082 ;POSITION WITH ITSELF SHOULD RESULT WITH + 5083 ;C(AC) NONZERO + 5084 033054 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 5085 STOP^ + 5086 033055 254 04 0 00 033056 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5087 033056 324 00 0 00 033057 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5088 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5089 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5090 + 5091 ;********** + 5092 + 5093 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF + 5094 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE + 5095 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS + 5096 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED + 5097 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. + 5098 006544 SN=SN+1 + 5099 400000 000000 ZZ=ZZ+ZZ + 5100 IFE ZZ, + 5101 033057 200 00 0 00 035065 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT + 5102 033060 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT + 5103 ;POSITION WITH ITSELF SHOULD RESULT WITH + 5104 ;C(AC) NONZERO + 5105 033061 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO + 5106 STOP^ +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-14 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0115 + + 5107 033062 254 04 0 00 033063 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5108 033063 324 00 0 00 033064 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5109 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5110 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5111 + 5112 ;********** + 5113 + 5114 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE + 5115 ;C(AC)=0 AND C(E)=0 AND E OUTSIDE OF THE AC RANGE IS ALL ZEROS IN THE AC. + 5116 ;FIRST, THE AC IS CLEARED; THEN, THE C(AC) IS ANDED WITH C(E) WHEN + 5117 ;E GREATER THAN 20 AND C(E)=0. THE RESULT SHOULD BE C(AC)=0. + 5118 ;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. + 5119 + 5120 033064 200 00 0 00 035062 A6600: MOVE [0] ;PRESET AC TO ALL ZEROS + 5121 033065 404 00 0 00 035062 AND [0] ;*AND OF TWO WORDS OF ALL ZEROS + 5122 ;SHOULD RESULT IN C(AC)=0 + 5123 033066 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 5124 STOP^ + 5125 033067 254 04 0 00 033070 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5126 033070 324 00 0 00 033071 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5127 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5128 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5129 + 5130 ;********** + 5131 + 5132 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(AC)=0 + 5133 ;AND C(E) IS ALL ONES IS AN AC CONTAINING ALL ZEROS. FIRST, THE AC IS + 5134 ;CLEARED; THEN THE C(AC) IS ANDED WITH AN E CONTAINING ALL ONES, WHERE + 5135 ;E IS BEYOND THE AC RANGE. THE RESULT SHOULD BE C(AC)=0. + 5136 ;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. + 5137 + 5138 033071 200 00 0 00 035062 A6700: MOVE [0] ;PRESET AC TO ALL ZEROS + 5139 033072 404 00 0 00 035063 AND [-1] ;*AND OF TWO WORDS WHERE C(AC)=0 SHOULD RESULT IN C(AC)=0 + 5140 033073 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 5141 STOP^ + 5142 033074 254 04 0 00 033075 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5143 033075 324 00 0 00 033076 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5144 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5145 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5146 + 5147 ;AD FM+EN [ADFP],AD FM+EN A [ADFP], + 5148 ;F CYC ACT EN C [F1],IR BOOLE AD FM+F [IR2], + 5149 ;IR BOOLE [IR1],IRXX(1,4,5,11,13,16) [IR2] + 5150 + 5151 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 26 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0116 + + 5152 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(E)=0 + 5153 ;AND C(AC) IS ALL ONES IS AN AC CONTAINING ALL ZEROS. FIRST, THE + 5154 ;AC IS SET TO ALL ONES; THEN, THE AC IS ANDED WITH AN E CONTAINING ALL + 5155 ;ZEROS, WHERE E IS BEYOND THE AC RANGE. THE RESULT SHOULD BE C(AC)=0. + 5156 ;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. + 5157 + 5158 033076 200 00 0 00 035063 A7000: MOVE [-1] ;PRESET AC TO ALL ONES + 5159 033077 404 00 0 00 035062 AND [0] ;*AND OF TWO WORDS WHERE C(E)=0 SHOULD RESULT IN C(AC)=0 + 5160 033100 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 5161 STOP^ + 5162 033101 254 04 0 00 033102 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5163 033102 324 00 0 00 033103 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5164 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5165 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5166 + 5167 ;********** + 5168 + 5169 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(E) IS + 5170 ;ALL ONES AND C(AC) IS ALL ONES IS AN AC CONTAINING ALL ONES. FIRST, THE + 5171 ;AC IS SET TO ALL ONES; THEN, C(AC) IS ANDED WITH AN E CONTAINING ALL + 5172 ;ONES. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5173 ;IF C(AC) IS ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. + 5174 + 5175 033103 200 00 0 00 035063 A7100: MOVE [-1] ;PRELOAD AC WITH ALL ONES + 5176 033104 404 00 0 00 035063 AND [-1] ;*AND OF TWO WORDS OF ALL ONES SHOULD + 5177 ;RESULT IN C(AC)=ALL ONES + 5178 033105 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) IS NON ZERO + 5179 STOP^ + 5180 033106 254 04 0 00 033107 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5181 033107 324 00 0 00 033110 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5182 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5183 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5184 + 5185 ;********** + 5186 + 5187 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5188 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHERE CONTENTS IS NON-ZERO. + 5189 ;FIRST, THE AC IS CLEARED, THEN, XOR IS EXECUTED WHERE C(E) IS NON-ZERO. + 5190 ;THE AC IS THEN CHECKED FOR NON-ZERO CONTENTS. + 5191 033110 200 00 0 00 035062 A7200: MOVE [0] ;CLEAR AC + 5192 033111 430 00 0 00 035141 XOR [707070707070] ;*XOR WITH C(AC)=0 AND C(E)=7070707070 SHOULD + 5193 ;RESTULT IN C(AC)=707070707070 + 5194 033112 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5195 STOP^ + 5196 033113 254 04 0 00 033114 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5197 033114 324 00 0 00 033115 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5198 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5199 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5200 + 5201 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0117 + + 5202 007300 SN=7300 + 5203 000000 ZZ=0 + 5204 + 5205 A7300: REPEAT ^D36, + 5206 <;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5207 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5208 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5209 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5210 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5211 SN=SN+1 + 5212 ZZ=ZZ+ZZ + 5213 IFE ZZ, + 5214 MOVE [0] ;CLEAR AC + 5215 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5216 ;RESULT IN C(AC) NONZERO + 5217 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5218 STOP + 5219 + 5220 ;********** + 5221 > + 5222 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5223 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5224 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5225 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5226 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5227 007301 SN=SN+1 + 5228 000000 ZZ=ZZ+ZZ + 5229 000001 IFE ZZ, + 5230 033115 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5231 033116 430 00 0 00 035074 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5232 ;RESULT IN C(AC) NONZERO + 5233 033117 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5234 STOP^ + 5235 033120 254 04 0 00 033121 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5236 033121 324 00 0 00 033122 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5237 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5238 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5239 + 5240 ;********** + 5241 + 5242 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5243 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5244 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5245 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5246 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5247 007302 SN=SN+1 + 5248 000002 ZZ=ZZ+ZZ + 5249 IFE ZZ, + 5250 033122 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5251 033123 430 00 0 00 035075 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5252 ;RESULT IN C(AC) NONZERO + 5253 033124 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5254 STOP^ + 5255 033125 254 04 0 00 033126 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5256 033126 324 00 0 00 033127 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-1 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0118 + + 5257 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5258 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5259 + 5260 ;********** + 5261 + 5262 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5263 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5264 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5265 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5266 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5267 007303 SN=SN+1 + 5268 000004 ZZ=ZZ+ZZ + 5269 IFE ZZ, + 5270 033127 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5271 033130 430 00 0 00 035076 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5272 ;RESULT IN C(AC) NONZERO + 5273 033131 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5274 STOP^ + 5275 033132 254 04 0 00 033133 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5276 033133 324 00 0 00 033134 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5277 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5278 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5279 + 5280 ;********** + 5281 + 5282 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5283 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5284 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5285 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5286 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5287 007304 SN=SN+1 + 5288 000010 ZZ=ZZ+ZZ + 5289 IFE ZZ, + 5290 033134 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5291 033135 430 00 0 00 035077 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5292 ;RESULT IN C(AC) NONZERO + 5293 033136 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5294 STOP^ + 5295 033137 254 04 0 00 033140 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5296 033140 324 00 0 00 033141 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5297 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5298 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5299 + 5300 ;********** + 5301 + 5302 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5303 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5304 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5305 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5306 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5307 007305 SN=SN+1 + 5308 000020 ZZ=ZZ+ZZ + 5309 IFE ZZ, + 5310 033141 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5311 033142 430 00 0 00 035100 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-2 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0119 + + 5312 ;RESULT IN C(AC) NONZERO + 5313 033143 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5314 STOP^ + 5315 033144 254 04 0 00 033145 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5316 033145 324 00 0 00 033146 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5317 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5318 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5319 + 5320 ;********** + 5321 + 5322 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5323 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5324 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5325 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5326 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5327 007306 SN=SN+1 + 5328 000040 ZZ=ZZ+ZZ + 5329 IFE ZZ, + 5330 033146 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5331 033147 430 00 0 00 035101 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5332 ;RESULT IN C(AC) NONZERO + 5333 033150 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5334 STOP^ + 5335 033151 254 04 0 00 033152 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5336 033152 324 00 0 00 033153 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5337 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5338 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5339 + 5340 ;********** + 5341 + 5342 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5343 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5344 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5345 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5346 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5347 007307 SN=SN+1 + 5348 000100 ZZ=ZZ+ZZ + 5349 IFE ZZ, + 5350 033153 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5351 033154 430 00 0 00 035102 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5352 ;RESULT IN C(AC) NONZERO + 5353 033155 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5354 STOP^ + 5355 033156 254 04 0 00 033157 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5356 033157 324 00 0 00 033160 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5357 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5358 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5359 + 5360 ;********** + 5361 + 5362 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5363 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5364 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5365 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5366 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-3 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0120 + + 5367 007310 SN=SN+1 + 5368 000200 ZZ=ZZ+ZZ + 5369 IFE ZZ, + 5370 033160 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5371 033161 430 00 0 00 035103 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5372 ;RESULT IN C(AC) NONZERO + 5373 033162 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5374 STOP^ + 5375 033163 254 04 0 00 033164 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5376 033164 324 00 0 00 033165 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5377 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5378 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5379 + 5380 ;********** + 5381 + 5382 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5383 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5384 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5385 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5386 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5387 007311 SN=SN+1 + 5388 000400 ZZ=ZZ+ZZ + 5389 IFE ZZ, + 5390 033165 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5391 033166 430 00 0 00 035104 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5392 ;RESULT IN C(AC) NONZERO + 5393 033167 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5394 STOP^ + 5395 033170 254 04 0 00 033171 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5396 033171 324 00 0 00 033172 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5397 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5398 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5399 + 5400 ;********** + 5401 + 5402 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5403 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5404 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5405 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5406 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5407 007312 SN=SN+1 + 5408 001000 ZZ=ZZ+ZZ + 5409 IFE ZZ, + 5410 033172 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5411 033173 430 00 0 00 035105 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5412 ;RESULT IN C(AC) NONZERO + 5413 033174 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5414 STOP^ + 5415 033175 254 04 0 00 033176 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5416 033176 324 00 0 00 033177 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5417 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5418 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5419 + 5420 ;********** + 5421 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-4 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0121 + + 5422 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5423 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5424 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5425 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5426 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5427 007313 SN=SN+1 + 5428 002000 ZZ=ZZ+ZZ + 5429 IFE ZZ, + 5430 033177 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5431 033200 430 00 0 00 035106 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5432 ;RESULT IN C(AC) NONZERO + 5433 033201 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5434 STOP^ + 5435 033202 254 04 0 00 033203 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5436 033203 324 00 0 00 033204 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5437 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5438 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5439 + 5440 ;********** + 5441 + 5442 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5443 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5444 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5445 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5446 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5447 007314 SN=SN+1 + 5448 004000 ZZ=ZZ+ZZ + 5449 IFE ZZ, + 5450 033204 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5451 033205 430 00 0 00 035107 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5452 ;RESULT IN C(AC) NONZERO + 5453 033206 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5454 STOP^ + 5455 033207 254 04 0 00 033210 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5456 033210 324 00 0 00 033211 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5457 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5458 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5459 + 5460 ;********** + 5461 + 5462 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5463 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5464 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5465 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5466 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5467 007315 SN=SN+1 + 5468 010000 ZZ=ZZ+ZZ + 5469 IFE ZZ, + 5470 033211 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5471 033212 430 00 0 00 035110 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5472 ;RESULT IN C(AC) NONZERO + 5473 033213 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5474 STOP^ + 5475 033214 254 04 0 00 033215 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5476 033215 324 00 0 00 033216 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-5 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0122 + + 5477 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5478 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5479 + 5480 ;********** + 5481 + 5482 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5483 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5484 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5485 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5486 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5487 007316 SN=SN+1 + 5488 020000 ZZ=ZZ+ZZ + 5489 IFE ZZ, + 5490 033216 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5491 033217 430 00 0 00 035111 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5492 ;RESULT IN C(AC) NONZERO + 5493 033220 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5494 STOP^ + 5495 033221 254 04 0 00 033222 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5496 033222 324 00 0 00 033223 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5497 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5498 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5499 + 5500 ;********** + 5501 + 5502 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5503 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5504 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5505 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5506 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5507 007317 SN=SN+1 + 5508 040000 ZZ=ZZ+ZZ + 5509 IFE ZZ, + 5510 033223 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5511 033224 430 00 0 00 035112 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5512 ;RESULT IN C(AC) NONZERO + 5513 033225 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5514 STOP^ + 5515 033226 254 04 0 00 033227 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5516 033227 324 00 0 00 033230 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5517 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5518 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5519 + 5520 ;********** + 5521 + 5522 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5523 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5524 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5525 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5526 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5527 007320 SN=SN+1 + 5528 100000 ZZ=ZZ+ZZ + 5529 IFE ZZ, + 5530 033230 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5531 033231 430 00 0 00 035113 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-6 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0123 + + 5532 ;RESULT IN C(AC) NONZERO + 5533 033232 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5534 STOP^ + 5535 033233 254 04 0 00 033234 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5536 033234 324 00 0 00 033235 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5537 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5538 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5539 + 5540 ;********** + 5541 + 5542 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5543 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5544 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5545 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5546 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5547 007321 SN=SN+1 + 5548 200000 ZZ=ZZ+ZZ + 5549 IFE ZZ, + 5550 033235 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5551 033236 430 00 0 00 035114 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5552 ;RESULT IN C(AC) NONZERO + 5553 033237 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5554 STOP^ + 5555 033240 254 04 0 00 033241 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5556 033241 324 00 0 00 033242 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5557 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5558 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5559 + 5560 ;********** + 5561 + 5562 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5563 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5564 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5565 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5566 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5567 007322 SN=SN+1 + 5568 400000 ZZ=ZZ+ZZ + 5569 IFE ZZ, + 5570 033242 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5571 033243 430 00 0 00 035115 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5572 ;RESULT IN C(AC) NONZERO + 5573 033244 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5574 STOP^ + 5575 033245 254 04 0 00 033246 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5576 033246 324 00 0 00 033247 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5577 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5578 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5579 + 5580 ;********** + 5581 + 5582 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5583 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5584 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5585 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5586 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-7 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0124 + + 5587 007323 SN=SN+1 + 5588 000001 000000 ZZ=ZZ+ZZ + 5589 IFE ZZ, + 5590 033247 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5591 033250 430 00 0 00 035116 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5592 ;RESULT IN C(AC) NONZERO + 5593 033251 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5594 STOP^ + 5595 033252 254 04 0 00 033253 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5596 033253 324 00 0 00 033254 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5597 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5598 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5599 + 5600 ;********** + 5601 + 5602 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5603 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5604 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5605 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5606 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5607 007324 SN=SN+1 + 5608 000002 000000 ZZ=ZZ+ZZ + 5609 IFE ZZ, + 5610 033254 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5611 033255 430 00 0 00 035117 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5612 ;RESULT IN C(AC) NONZERO + 5613 033256 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5614 STOP^ + 5615 033257 254 04 0 00 033260 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5616 033260 324 00 0 00 033261 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5617 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5618 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5619 + 5620 ;********** + 5621 + 5622 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5623 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5624 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5625 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5626 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5627 007325 SN=SN+1 + 5628 000004 000000 ZZ=ZZ+ZZ + 5629 IFE ZZ, + 5630 033261 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5631 033262 430 00 0 00 035120 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5632 ;RESULT IN C(AC) NONZERO + 5633 033263 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5634 STOP^ + 5635 033264 254 04 0 00 033265 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5636 033265 324 00 0 00 033266 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5637 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5638 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5639 + 5640 ;********** + 5641 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-8 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0125 + + 5642 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5643 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5644 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5645 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5646 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5647 007326 SN=SN+1 + 5648 000010 000000 ZZ=ZZ+ZZ + 5649 IFE ZZ, + 5650 033266 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5651 033267 430 00 0 00 035121 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5652 ;RESULT IN C(AC) NONZERO + 5653 033270 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5654 STOP^ + 5655 033271 254 04 0 00 033272 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5656 033272 324 00 0 00 033273 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5657 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5658 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5659 + 5660 ;********** + 5661 + 5662 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5663 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5664 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5665 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5666 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5667 007327 SN=SN+1 + 5668 000020 000000 ZZ=ZZ+ZZ + 5669 IFE ZZ, + 5670 033273 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5671 033274 430 00 0 00 035122 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5672 ;RESULT IN C(AC) NONZERO + 5673 033275 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5674 STOP^ + 5675 033276 254 04 0 00 033277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5676 033277 324 00 0 00 033300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5677 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5678 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5679 + 5680 ;********** + 5681 + 5682 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5683 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5684 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5685 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5686 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5687 007330 SN=SN+1 + 5688 000040 000000 ZZ=ZZ+ZZ + 5689 IFE ZZ, + 5690 033300 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5691 033301 430 00 0 00 035123 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5692 ;RESULT IN C(AC) NONZERO + 5693 033302 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5694 STOP^ + 5695 033303 254 04 0 00 033304 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5696 033304 324 00 0 00 033305 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-9 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0126 + + 5697 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5698 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5699 + 5700 ;********** + 5701 + 5702 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5703 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5704 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5705 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5706 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5707 007331 SN=SN+1 + 5708 000100 000000 ZZ=ZZ+ZZ + 5709 IFE ZZ, + 5710 033305 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5711 033306 430 00 0 00 035124 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5712 ;RESULT IN C(AC) NONZERO + 5713 033307 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5714 STOP^ + 5715 033310 254 04 0 00 033311 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5716 033311 324 00 0 00 033312 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5717 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5718 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5719 + 5720 ;********** + 5721 + 5722 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5723 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5724 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5725 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5726 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5727 007332 SN=SN+1 + 5728 000200 000000 ZZ=ZZ+ZZ + 5729 IFE ZZ, + 5730 033312 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5731 033313 430 00 0 00 035125 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5732 ;RESULT IN C(AC) NONZERO + 5733 033314 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5734 STOP^ + 5735 033315 254 04 0 00 033316 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5736 033316 324 00 0 00 033317 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5737 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5738 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5739 + 5740 ;********** + 5741 + 5742 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5743 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5744 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5745 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5746 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5747 007333 SN=SN+1 + 5748 000400 000000 ZZ=ZZ+ZZ + 5749 IFE ZZ, + 5750 033317 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5751 033320 430 00 0 00 035073 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-10 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0127 + + 5752 ;RESULT IN C(AC) NONZERO + 5753 033321 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5754 STOP^ + 5755 033322 254 04 0 00 033323 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5756 033323 324 00 0 00 033324 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5757 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5758 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5759 + 5760 ;********** + 5761 + 5762 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5763 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5764 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5765 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5766 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5767 007334 SN=SN+1 + 5768 001000 000000 ZZ=ZZ+ZZ + 5769 IFE ZZ, + 5770 033324 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5771 033325 430 00 0 00 035126 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5772 ;RESULT IN C(AC) NONZERO + 5773 033326 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5774 STOP^ + 5775 033327 254 04 0 00 033330 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5776 033330 324 00 0 00 033331 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5777 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5778 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5779 + 5780 ;********** + 5781 + 5782 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5783 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5784 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5785 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5786 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5787 007335 SN=SN+1 + 5788 002000 000000 ZZ=ZZ+ZZ + 5789 IFE ZZ, + 5790 033331 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5791 033332 430 00 0 00 035127 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5792 ;RESULT IN C(AC) NONZERO + 5793 033333 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5794 STOP^ + 5795 033334 254 04 0 00 033335 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5796 033335 324 00 0 00 033336 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5797 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5798 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5799 + 5800 ;********** + 5801 + 5802 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5803 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5804 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5805 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5806 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-11 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0128 + + 5807 007336 SN=SN+1 + 5808 004000 000000 ZZ=ZZ+ZZ + 5809 IFE ZZ, + 5810 033336 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5811 033337 430 00 0 00 035130 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5812 ;RESULT IN C(AC) NONZERO + 5813 033340 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5814 STOP^ + 5815 033341 254 04 0 00 033342 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5816 033342 324 00 0 00 033343 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5817 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5818 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5819 + 5820 ;********** + 5821 + 5822 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5823 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5824 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5825 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5826 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5827 007337 SN=SN+1 + 5828 010000 000000 ZZ=ZZ+ZZ + 5829 IFE ZZ, + 5830 033343 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5831 033344 430 00 0 00 035131 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5832 ;RESULT IN C(AC) NONZERO + 5833 033345 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5834 STOP^ + 5835 033346 254 04 0 00 033347 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5836 033347 324 00 0 00 033350 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5837 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5838 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5839 + 5840 ;********** + 5841 + 5842 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5843 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5844 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5845 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5846 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5847 007340 SN=SN+1 + 5848 020000 000000 ZZ=ZZ+ZZ + 5849 IFE ZZ, + 5850 033350 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5851 033351 430 00 0 00 035132 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5852 ;RESULT IN C(AC) NONZERO + 5853 033352 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5854 STOP^ + 5855 033353 254 04 0 00 033354 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5856 033354 324 00 0 00 033355 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5857 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5858 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5859 + 5860 ;********** + 5861 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-12 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0129 + + 5862 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5863 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5864 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5865 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5866 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5867 007341 SN=SN+1 + 5868 040000 000000 ZZ=ZZ+ZZ + 5869 IFE ZZ, + 5870 033355 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5871 033356 430 00 0 00 035133 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5872 ;RESULT IN C(AC) NONZERO + 5873 033357 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5874 STOP^ + 5875 033360 254 04 0 00 033361 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5876 033361 324 00 0 00 033362 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5877 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5878 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5879 + 5880 ;********** + 5881 + 5882 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5883 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5884 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5885 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5886 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5887 007342 SN=SN+1 + 5888 100000 000000 ZZ=ZZ+ZZ + 5889 IFE ZZ, + 5890 033362 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5891 033363 430 00 0 00 035134 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5892 ;RESULT IN C(AC) NONZERO + 5893 033364 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5894 STOP^ + 5895 033365 254 04 0 00 033366 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5896 033366 324 00 0 00 033367 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5897 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5898 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5899 + 5900 ;********** + 5901 + 5902 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5903 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5904 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5905 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5906 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5907 007343 SN=SN+1 + 5908 200000 000000 ZZ=ZZ+ZZ + 5909 IFE ZZ, + 5910 033367 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5911 033370 430 00 0 00 035135 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5912 ;RESULT IN C(AC) NONZERO + 5913 033371 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5914 STOP^ + 5915 033372 254 04 0 00 033373 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5916 033373 324 00 0 00 033374 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-13 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0130 + + 5917 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5918 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5919 + 5920 ;********** + 5921 + 5922 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5923 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5924 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED + 5925 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. + 5926 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5927 007344 SN=SN+1 + 5928 400000 000000 ZZ=ZZ+ZZ + 5929 IFE ZZ, + 5930 033374 200 00 0 00 035062 MOVE [0] ;CLEAR AC + 5931 033375 430 00 0 00 035065 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD + 5932 ;RESULT IN C(AC) NONZERO + 5933 033376 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5934 STOP^ + 5935 033377 254 04 0 00 033400 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5936 033400 324 00 0 00 033401 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5937 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5938 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5939 + 5940 ;********** + 5941 + 5942 007400 SN=7400 + 5943 000000 ZZ=0 + 5944 + 5945 A7400: REPEAT ^D36, + 5946 <;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5947 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5948 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 5949 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 5950 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5951 SN=SN+1 + 5952 ZZ=ZZ+ZZ + 5953 IFE ZZ, + 5954 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 5955 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 5956 ;RESULT IN C(AC) NON-ZERO + 5957 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5958 STOP + 5959 + 5960 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 5961 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 5962 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 5963 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 5964 + 5965 ;********** + 5966 > + 5967 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5968 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5969 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 5970 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 5971 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-14 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0131 + + 5972 007401 SN=SN+1 + 5973 000000 ZZ=ZZ+ZZ + 5974 000001 IFE ZZ, + 5975 033401 200 00 0 00 035074 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 5976 033402 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 5977 ;RESULT IN C(AC) NON-ZERO + 5978 033403 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 5979 STOP^ + 5980 033404 254 04 0 00 033405 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5981 033405 324 00 0 00 033406 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 5982 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 5983 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 5984 + 5985 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 5986 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 5987 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 5988 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 5989 + 5990 ;********** + 5991 + 5992 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 5993 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 5994 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 5995 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 5996 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 5997 007402 SN=SN+1 + 5998 000002 ZZ=ZZ+ZZ + 5999 IFE ZZ, + 6000 033406 200 00 0 00 035075 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6001 033407 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6002 ;RESULT IN C(AC) NON-ZERO + 6003 033410 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6004 STOP^ + 6005 033411 254 04 0 00 033412 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6006 033412 324 00 0 00 033413 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6007 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6008 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6009 + 6010 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6011 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6012 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6013 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6014 + 6015 ;********** + 6016 + 6017 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6018 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6019 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6020 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6021 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6022 007403 SN=SN+1 + 6023 000004 ZZ=ZZ+ZZ + 6024 IFE ZZ, + 6025 033413 200 00 0 00 035076 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6026 033414 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-15 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0132 + + 6027 ;RESULT IN C(AC) NON-ZERO + 6028 033415 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6029 STOP^ + 6030 033416 254 04 0 00 033417 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6031 033417 324 00 0 00 033420 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6032 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6033 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6034 + 6035 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6036 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6037 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6038 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6039 + 6040 ;********** + 6041 + 6042 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6043 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6044 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6045 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6046 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6047 007404 SN=SN+1 + 6048 000010 ZZ=ZZ+ZZ + 6049 IFE ZZ, + 6050 033420 200 00 0 00 035077 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6051 033421 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6052 ;RESULT IN C(AC) NON-ZERO + 6053 033422 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6054 STOP^ + 6055 033423 254 04 0 00 033424 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6056 033424 324 00 0 00 033425 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6057 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6058 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6059 + 6060 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6061 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6062 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6063 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6064 + 6065 ;********** + 6066 + 6067 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6068 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6069 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6070 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6071 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6072 007405 SN=SN+1 + 6073 000020 ZZ=ZZ+ZZ + 6074 IFE ZZ, + 6075 033425 200 00 0 00 035100 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6076 033426 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6077 ;RESULT IN C(AC) NON-ZERO + 6078 033427 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6079 STOP^ + 6080 033430 254 04 0 00 033431 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6081 033431 324 00 0 00 033432 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-16 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0133 + + 6082 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6083 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6084 + 6085 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6086 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6087 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6088 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6089 + 6090 ;********** + 6091 + 6092 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6093 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6094 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6095 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6096 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6097 007406 SN=SN+1 + 6098 000040 ZZ=ZZ+ZZ + 6099 IFE ZZ, + 6100 033432 200 00 0 00 035101 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6101 033433 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6102 ;RESULT IN C(AC) NON-ZERO + 6103 033434 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6104 STOP^ + 6105 033435 254 04 0 00 033436 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6106 033436 324 00 0 00 033437 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6107 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6108 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6109 + 6110 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6111 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6112 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6113 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6114 + 6115 ;********** + 6116 + 6117 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6118 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6119 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6120 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6121 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6122 007407 SN=SN+1 + 6123 000100 ZZ=ZZ+ZZ + 6124 IFE ZZ, + 6125 033437 200 00 0 00 035102 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6126 033440 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6127 ;RESULT IN C(AC) NON-ZERO + 6128 033441 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6129 STOP^ + 6130 033442 254 04 0 00 033443 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6131 033443 324 00 0 00 033444 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6132 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6133 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6134 + 6135 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6136 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-17 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0134 + + 6137 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6138 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6139 + 6140 ;********** + 6141 + 6142 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6143 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6144 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6145 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6146 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6147 007410 SN=SN+1 + 6148 000200 ZZ=ZZ+ZZ + 6149 IFE ZZ, + 6150 033444 200 00 0 00 035103 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6151 033445 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6152 ;RESULT IN C(AC) NON-ZERO + 6153 033446 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6154 STOP^ + 6155 033447 254 04 0 00 033450 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6156 033450 324 00 0 00 033451 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6157 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6158 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6159 + 6160 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6161 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6162 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6163 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6164 + 6165 ;********** + 6166 + 6167 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6168 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6169 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6170 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6171 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6172 007411 SN=SN+1 + 6173 000400 ZZ=ZZ+ZZ + 6174 IFE ZZ, + 6175 033451 200 00 0 00 035104 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6176 033452 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6177 ;RESULT IN C(AC) NON-ZERO + 6178 033453 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6179 STOP^ + 6180 033454 254 04 0 00 033455 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6181 033455 324 00 0 00 033456 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6182 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6183 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6184 + 6185 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6186 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6187 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6188 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6189 + 6190 ;********** + 6191 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-18 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0135 + + 6192 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6193 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6194 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6195 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6196 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6197 007412 SN=SN+1 + 6198 001000 ZZ=ZZ+ZZ + 6199 IFE ZZ, + 6200 033456 200 00 0 00 035105 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6201 033457 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6202 ;RESULT IN C(AC) NON-ZERO + 6203 033460 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6204 STOP^ + 6205 033461 254 04 0 00 033462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6206 033462 324 00 0 00 033463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6207 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6208 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6209 + 6210 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6211 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6212 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6213 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6214 + 6215 ;********** + 6216 + 6217 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6218 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6219 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6220 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6221 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6222 007413 SN=SN+1 + 6223 002000 ZZ=ZZ+ZZ + 6224 IFE ZZ, + 6225 033463 200 00 0 00 035106 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6226 033464 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6227 ;RESULT IN C(AC) NON-ZERO + 6228 033465 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6229 STOP^ + 6230 033466 254 04 0 00 033467 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6231 033467 324 00 0 00 033470 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6232 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6233 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6234 + 6235 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6236 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6237 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6238 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6239 + 6240 ;********** + 6241 + 6242 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6243 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6244 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6245 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6246 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-19 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0136 + + 6247 007414 SN=SN+1 + 6248 004000 ZZ=ZZ+ZZ + 6249 IFE ZZ, + 6250 033470 200 00 0 00 035107 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6251 033471 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6252 ;RESULT IN C(AC) NON-ZERO + 6253 033472 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6254 STOP^ + 6255 033473 254 04 0 00 033474 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6256 033474 324 00 0 00 033475 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6257 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6258 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6259 + 6260 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6261 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6262 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6263 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6264 + 6265 ;********** + 6266 + 6267 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6268 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6269 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6270 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6271 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6272 007415 SN=SN+1 + 6273 010000 ZZ=ZZ+ZZ + 6274 IFE ZZ, + 6275 033475 200 00 0 00 035110 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6276 033476 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6277 ;RESULT IN C(AC) NON-ZERO + 6278 033477 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6279 STOP^ + 6280 033500 254 04 0 00 033501 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6281 033501 324 00 0 00 033502 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6282 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6283 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6284 + 6285 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6286 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6287 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6288 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6289 + 6290 ;********** + 6291 + 6292 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6293 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6294 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6295 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6296 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6297 007416 SN=SN+1 + 6298 020000 ZZ=ZZ+ZZ + 6299 IFE ZZ, + 6300 033502 200 00 0 00 035111 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6301 033503 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-20 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0137 + + 6302 ;RESULT IN C(AC) NON-ZERO + 6303 033504 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6304 STOP^ + 6305 033505 254 04 0 00 033506 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6306 033506 324 00 0 00 033507 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6307 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6308 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6309 + 6310 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6311 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6312 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6313 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6314 + 6315 ;********** + 6316 + 6317 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6318 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6319 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6320 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6321 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6322 007417 SN=SN+1 + 6323 040000 ZZ=ZZ+ZZ + 6324 IFE ZZ, + 6325 033507 200 00 0 00 035112 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6326 033510 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6327 ;RESULT IN C(AC) NON-ZERO + 6328 033511 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6329 STOP^ + 6330 033512 254 04 0 00 033513 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6331 033513 324 00 0 00 033514 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6332 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6333 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6334 + 6335 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6336 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6337 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6338 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6339 + 6340 ;********** + 6341 + 6342 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6343 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6344 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6345 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6346 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6347 007420 SN=SN+1 + 6348 100000 ZZ=ZZ+ZZ + 6349 IFE ZZ, + 6350 033514 200 00 0 00 035113 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6351 033515 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6352 ;RESULT IN C(AC) NON-ZERO + 6353 033516 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6354 STOP^ + 6355 033517 254 04 0 00 033520 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6356 033520 324 00 0 00 033521 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-21 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0138 + + 6357 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6358 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6359 + 6360 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6361 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6362 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6363 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6364 + 6365 ;********** + 6366 + 6367 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6368 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6369 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6370 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6371 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6372 007421 SN=SN+1 + 6373 200000 ZZ=ZZ+ZZ + 6374 IFE ZZ, + 6375 033521 200 00 0 00 035114 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6376 033522 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6377 ;RESULT IN C(AC) NON-ZERO + 6378 033523 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6379 STOP^ + 6380 033524 254 04 0 00 033525 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6381 033525 324 00 0 00 033526 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6382 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6383 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6384 + 6385 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6386 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6387 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6388 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6389 + 6390 ;********** + 6391 + 6392 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6393 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6394 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6395 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6396 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6397 007422 SN=SN+1 + 6398 400000 ZZ=ZZ+ZZ + 6399 IFE ZZ, + 6400 033526 200 00 0 00 035115 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6401 033527 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6402 ;RESULT IN C(AC) NON-ZERO + 6403 033530 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6404 STOP^ + 6405 033531 254 04 0 00 033532 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6406 033532 324 00 0 00 033533 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6407 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6408 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6409 + 6410 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6411 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-22 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0139 + + 6412 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6413 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6414 + 6415 ;********** + 6416 + 6417 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6418 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6419 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6420 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6421 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6422 007423 SN=SN+1 + 6423 000001 000000 ZZ=ZZ+ZZ + 6424 IFE ZZ, + 6425 033533 200 00 0 00 035116 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6426 033534 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6427 ;RESULT IN C(AC) NON-ZERO + 6428 033535 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6429 STOP^ + 6430 033536 254 04 0 00 033537 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6431 033537 324 00 0 00 033540 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6432 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6433 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6434 + 6435 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6436 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6437 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6438 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6439 + 6440 ;********** + 6441 + 6442 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6443 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6444 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6445 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6446 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6447 007424 SN=SN+1 + 6448 000002 000000 ZZ=ZZ+ZZ + 6449 IFE ZZ, + 6450 033540 200 00 0 00 035117 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6451 033541 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6452 ;RESULT IN C(AC) NON-ZERO + 6453 033542 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6454 STOP^ + 6455 033543 254 04 0 00 033544 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6456 033544 324 00 0 00 033545 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6457 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6458 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6459 + 6460 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6461 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6462 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6463 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6464 + 6465 ;********** + 6466 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-23 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0140 + + 6467 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6468 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6469 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6470 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6471 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6472 007425 SN=SN+1 + 6473 000004 000000 ZZ=ZZ+ZZ + 6474 IFE ZZ, + 6475 033545 200 00 0 00 035120 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6476 033546 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6477 ;RESULT IN C(AC) NON-ZERO + 6478 033547 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6479 STOP^ + 6480 033550 254 04 0 00 033551 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6481 033551 324 00 0 00 033552 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6482 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6483 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6484 + 6485 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6486 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6487 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6488 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6489 + 6490 ;********** + 6491 + 6492 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6493 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6494 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6495 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6496 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6497 007426 SN=SN+1 + 6498 000010 000000 ZZ=ZZ+ZZ + 6499 IFE ZZ, + 6500 033552 200 00 0 00 035121 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6501 033553 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6502 ;RESULT IN C(AC) NON-ZERO + 6503 033554 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6504 STOP^ + 6505 033555 254 04 0 00 033556 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6506 033556 324 00 0 00 033557 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6507 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6508 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6509 + 6510 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6511 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6512 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6513 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6514 + 6515 ;********** + 6516 + 6517 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6518 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6519 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6520 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6521 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-24 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0141 + + 6522 007427 SN=SN+1 + 6523 000020 000000 ZZ=ZZ+ZZ + 6524 IFE ZZ, + 6525 033557 200 00 0 00 035122 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6526 033560 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6527 ;RESULT IN C(AC) NON-ZERO + 6528 033561 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6529 STOP^ + 6530 033562 254 04 0 00 033563 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6531 033563 324 00 0 00 033564 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6532 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6533 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6534 + 6535 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6536 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6537 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6538 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6539 + 6540 ;********** + 6541 + 6542 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6543 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6544 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6545 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6546 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6547 007430 SN=SN+1 + 6548 000040 000000 ZZ=ZZ+ZZ + 6549 IFE ZZ, + 6550 033564 200 00 0 00 035123 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6551 033565 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6552 ;RESULT IN C(AC) NON-ZERO + 6553 033566 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6554 STOP^ + 6555 033567 254 04 0 00 033570 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6556 033570 324 00 0 00 033571 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6557 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6558 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6559 + 6560 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6561 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6562 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6563 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6564 + 6565 ;********** + 6566 + 6567 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6568 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6569 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6570 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6571 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6572 007431 SN=SN+1 + 6573 000100 000000 ZZ=ZZ+ZZ + 6574 IFE ZZ, + 6575 033571 200 00 0 00 035124 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6576 033572 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-25 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0142 + + 6577 ;RESULT IN C(AC) NON-ZERO + 6578 033573 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6579 STOP^ + 6580 033574 254 04 0 00 033575 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6581 033575 324 00 0 00 033576 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6582 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6583 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6584 + 6585 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6586 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6587 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6588 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6589 + 6590 ;********** + 6591 + 6592 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6593 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6594 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6595 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6596 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6597 007432 SN=SN+1 + 6598 000200 000000 ZZ=ZZ+ZZ + 6599 IFE ZZ, + 6600 033576 200 00 0 00 035125 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6601 033577 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6602 ;RESULT IN C(AC) NON-ZERO + 6603 033600 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6604 STOP^ + 6605 033601 254 04 0 00 033602 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6606 033602 324 00 0 00 033603 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6607 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6608 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6609 + 6610 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6611 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6612 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6613 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6614 + 6615 ;********** + 6616 + 6617 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6618 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6619 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6620 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6621 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6622 007433 SN=SN+1 + 6623 000400 000000 ZZ=ZZ+ZZ + 6624 IFE ZZ, + 6625 033603 200 00 0 00 035073 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6626 033604 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6627 ;RESULT IN C(AC) NON-ZERO + 6628 033605 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6629 STOP^ + 6630 033606 254 04 0 00 033607 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6631 033607 324 00 0 00 033610 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-26 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0143 + + 6632 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6633 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6634 + 6635 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6636 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6637 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6638 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6639 + 6640 ;********** + 6641 + 6642 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6643 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6644 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6645 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6646 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6647 007434 SN=SN+1 + 6648 001000 000000 ZZ=ZZ+ZZ + 6649 IFE ZZ, + 6650 033610 200 00 0 00 035126 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6651 033611 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6652 ;RESULT IN C(AC) NON-ZERO + 6653 033612 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6654 STOP^ + 6655 033613 254 04 0 00 033614 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6656 033614 324 00 0 00 033615 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6657 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6658 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6659 + 6660 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6661 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6662 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6663 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6664 + 6665 ;********** + 6666 + 6667 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6668 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6669 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6670 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6671 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6672 007435 SN=SN+1 + 6673 002000 000000 ZZ=ZZ+ZZ + 6674 IFE ZZ, + 6675 033615 200 00 0 00 035127 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6676 033616 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6677 ;RESULT IN C(AC) NON-ZERO + 6678 033617 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6679 STOP^ + 6680 033620 254 04 0 00 033621 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6681 033621 324 00 0 00 033622 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6682 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6683 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6684 + 6685 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6686 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-27 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0144 + + 6687 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6688 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6689 + 6690 ;********** + 6691 + 6692 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6693 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6694 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6695 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6696 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6697 007436 SN=SN+1 + 6698 004000 000000 ZZ=ZZ+ZZ + 6699 IFE ZZ, + 6700 033622 200 00 0 00 035130 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6701 033623 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6702 ;RESULT IN C(AC) NON-ZERO + 6703 033624 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6704 STOP^ + 6705 033625 254 04 0 00 033626 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6706 033626 324 00 0 00 033627 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6707 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6708 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6709 + 6710 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6711 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6712 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6713 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6714 + 6715 ;********** + 6716 + 6717 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6718 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6719 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6720 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6721 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6722 007437 SN=SN+1 + 6723 010000 000000 ZZ=ZZ+ZZ + 6724 IFE ZZ, + 6725 033627 200 00 0 00 035131 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6726 033630 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6727 ;RESULT IN C(AC) NON-ZERO + 6728 033631 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6729 STOP^ + 6730 033632 254 04 0 00 033633 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6731 033633 324 00 0 00 033634 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6732 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6733 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6734 + 6735 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6736 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6737 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6738 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6739 + 6740 ;********** + 6741 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-28 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0145 + + 6742 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6743 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6744 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6745 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6746 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6747 007440 SN=SN+1 + 6748 020000 000000 ZZ=ZZ+ZZ + 6749 IFE ZZ, + 6750 033634 200 00 0 00 035132 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6751 033635 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6752 ;RESULT IN C(AC) NON-ZERO + 6753 033636 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6754 STOP^ + 6755 033637 254 04 0 00 033640 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6756 033640 324 00 0 00 033641 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6757 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6758 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6759 + 6760 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6761 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6762 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6763 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6764 + 6765 ;********** + 6766 + 6767 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6768 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6769 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6770 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6771 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6772 007441 SN=SN+1 + 6773 040000 000000 ZZ=ZZ+ZZ + 6774 IFE ZZ, + 6775 033641 200 00 0 00 035133 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6776 033642 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6777 ;RESULT IN C(AC) NON-ZERO + 6778 033643 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6779 STOP^ + 6780 033644 254 04 0 00 033645 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6781 033645 324 00 0 00 033646 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6782 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6783 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6784 + 6785 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6786 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6787 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6788 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6789 + 6790 ;********** + 6791 + 6792 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6793 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6794 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6795 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6796 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-29 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0146 + + 6797 007442 SN=SN+1 + 6798 100000 000000 ZZ=ZZ+ZZ + 6799 IFE ZZ, + 6800 033646 200 00 0 00 035134 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6801 033647 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6802 ;RESULT IN C(AC) NON-ZERO + 6803 033650 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6804 STOP^ + 6805 033651 254 04 0 00 033652 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6806 033652 324 00 0 00 033653 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6807 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6808 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6809 + 6810 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6811 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6812 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6813 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6814 + 6815 ;********** + 6816 + 6817 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6818 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6819 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6820 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6821 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6822 007443 SN=SN+1 + 6823 200000 000000 ZZ=ZZ+ZZ + 6824 IFE ZZ, + 6825 033653 200 00 0 00 035135 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6826 033654 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD + 6827 ;RESULT IN C(AC) NON-ZERO + 6828 033655 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6829 STOP^ + 6830 033656 254 04 0 00 033657 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6831 033657 324 00 0 00 033660 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6832 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6833 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6834 + 6835 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6836 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6837 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6838 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6839 + 6840 ;********** + 6841 + 6842 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE + 6843 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS + 6844 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE + 6845 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E + 6846 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. + 6847 007444 SN=SN+1 + 6848 400000 000000 ZZ=ZZ+ZZ + 6849 IFE ZZ, + 6850 033660 200 00 0 00 035065 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET + 6851 033661 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-30 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0147 + + 6852 ;RESULT IN C(AC) NON-ZERO + 6853 033662 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 6854 STOP^ + 6855 033663 254 04 0 00 033664 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6856 033664 324 00 0 00 033665 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6857 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6858 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6859 + 6860 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], + 6861 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], + 6862 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], + 6863 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] + 6864 + 6865 ;********** + 6866 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0148 + + 6867 007500 SN=7500 + 6868 000000 ZZ=0 + 6869 + 6870 A7500: REPEAT ^D36, + 6871 <;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 6872 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 6873 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 6874 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 6875 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 6876 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 6877 ;INDICATE AN ILLEGAL CARRY GENERATION. + 6878 SN=SN+1 + 6879 ZZ=ZZ+ZZ + 6880 IFE ZZ, + 6881 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 6882 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 6883 SKIPE ;PASS TEST IF C(AC)=0 + 6884 STOP + 6885 + 6886 ;********** + 6887 > + 6888 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 6889 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 6890 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 6891 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 6892 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 6893 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 6894 ;INDICATE AN ILLEGAL CARRY GENERATION. + 6895 007501 SN=SN+1 + 6896 000000 ZZ=ZZ+ZZ + 6897 000001 IFE ZZ, + 6898 033665 200 00 0 00 035074 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 6899 033666 430 00 0 00 035074 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 6900 033667 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 6901 STOP^ + 6902 033670 254 04 0 00 033671 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6903 033671 324 00 0 00 033672 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6904 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6905 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6906 + 6907 ;********** + 6908 + 6909 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 6910 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 6911 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 6912 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 6913 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 6914 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 6915 ;INDICATE AN ILLEGAL CARRY GENERATION. + 6916 007502 SN=SN+1 + 6917 000002 ZZ=ZZ+ZZ + 6918 IFE ZZ, + 6919 033672 200 00 0 00 035075 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 6920 033673 430 00 0 00 035075 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 6921 033674 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-1 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0149 + + 6922 STOP^ + 6923 033675 254 04 0 00 033676 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6924 033676 324 00 0 00 033677 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6925 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6926 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6927 + 6928 ;********** + 6929 + 6930 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 6931 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 6932 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 6933 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 6934 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 6935 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 6936 ;INDICATE AN ILLEGAL CARRY GENERATION. + 6937 007503 SN=SN+1 + 6938 000004 ZZ=ZZ+ZZ + 6939 IFE ZZ, + 6940 033677 200 00 0 00 035076 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 6941 033700 430 00 0 00 035076 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 6942 033701 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 6943 STOP^ + 6944 033702 254 04 0 00 033703 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6945 033703 324 00 0 00 033704 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6946 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6947 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6948 + 6949 ;********** + 6950 + 6951 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 6952 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 6953 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 6954 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 6955 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 6956 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 6957 ;INDICATE AN ILLEGAL CARRY GENERATION. + 6958 007504 SN=SN+1 + 6959 000010 ZZ=ZZ+ZZ + 6960 IFE ZZ, + 6961 033704 200 00 0 00 035077 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 6962 033705 430 00 0 00 035077 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 6963 033706 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 6964 STOP^ + 6965 033707 254 04 0 00 033710 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6966 033710 324 00 0 00 033711 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6967 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6968 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6969 + 6970 ;********** + 6971 + 6972 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 6973 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 6974 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 6975 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 6976 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-2 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0150 + + 6977 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 6978 ;INDICATE AN ILLEGAL CARRY GENERATION. + 6979 007505 SN=SN+1 + 6980 000020 ZZ=ZZ+ZZ + 6981 IFE ZZ, + 6982 033711 200 00 0 00 035100 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 6983 033712 430 00 0 00 035100 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 6984 033713 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 6985 STOP^ + 6986 033714 254 04 0 00 033715 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6987 033715 324 00 0 00 033716 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 6988 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 6989 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 6990 + 6991 ;********** + 6992 + 6993 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 6994 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 6995 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 6996 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 6997 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 6998 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 6999 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7000 007506 SN=SN+1 + 7001 000040 ZZ=ZZ+ZZ + 7002 IFE ZZ, + 7003 033716 200 00 0 00 035101 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7004 033717 430 00 0 00 035101 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7005 033720 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7006 STOP^ + 7007 033721 254 04 0 00 033722 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7008 033722 324 00 0 00 033723 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7009 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7010 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7011 + 7012 ;********** + 7013 + 7014 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7015 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7016 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7017 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7018 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7019 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7020 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7021 007507 SN=SN+1 + 7022 000100 ZZ=ZZ+ZZ + 7023 IFE ZZ, + 7024 033723 200 00 0 00 035102 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7025 033724 430 00 0 00 035102 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7026 033725 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7027 STOP^ + 7028 033726 254 04 0 00 033727 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7029 033727 324 00 0 00 033730 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7030 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7031 ;IN THE SUBTEST) TO LOOP ON ERROR^ +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-3 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0151 + + 7032 + 7033 ;********** + 7034 + 7035 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7036 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7037 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7038 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7039 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7040 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7041 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7042 007510 SN=SN+1 + 7043 000200 ZZ=ZZ+ZZ + 7044 IFE ZZ, + 7045 033730 200 00 0 00 035103 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7046 033731 430 00 0 00 035103 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7047 033732 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7048 STOP^ + 7049 033733 254 04 0 00 033734 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7050 033734 324 00 0 00 033735 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7051 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7052 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7053 + 7054 ;********** + 7055 + 7056 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7057 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7058 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7059 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7060 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7061 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7062 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7063 007511 SN=SN+1 + 7064 000400 ZZ=ZZ+ZZ + 7065 IFE ZZ, + 7066 033735 200 00 0 00 035104 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7067 033736 430 00 0 00 035104 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7068 033737 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7069 STOP^ + 7070 033740 254 04 0 00 033741 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7071 033741 324 00 0 00 033742 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7072 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7073 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7074 + 7075 ;********** + 7076 + 7077 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7078 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7079 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7080 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7081 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7082 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7083 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7084 007512 SN=SN+1 + 7085 001000 ZZ=ZZ+ZZ + 7086 IFE ZZ, +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-4 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0152 + + 7087 033742 200 00 0 00 035105 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7088 033743 430 00 0 00 035105 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7089 033744 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7090 STOP^ + 7091 033745 254 04 0 00 033746 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7092 033746 324 00 0 00 033747 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7093 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7094 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7095 + 7096 ;********** + 7097 + 7098 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7099 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7100 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7101 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7102 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7103 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7104 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7105 007513 SN=SN+1 + 7106 002000 ZZ=ZZ+ZZ + 7107 IFE ZZ, + 7108 033747 200 00 0 00 035106 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7109 033750 430 00 0 00 035106 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7110 033751 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7111 STOP^ + 7112 033752 254 04 0 00 033753 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7113 033753 324 00 0 00 033754 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7114 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7115 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7116 + 7117 ;********** + 7118 + 7119 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7120 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7121 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7122 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7123 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7124 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7125 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7126 007514 SN=SN+1 + 7127 004000 ZZ=ZZ+ZZ + 7128 IFE ZZ, + 7129 033754 200 00 0 00 035107 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7130 033755 430 00 0 00 035107 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7131 033756 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7132 STOP^ + 7133 033757 254 04 0 00 033760 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7134 033760 324 00 0 00 033761 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7135 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7136 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7137 + 7138 ;********** + 7139 + 7140 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7141 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-5 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0153 + + 7142 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7143 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7144 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7145 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7146 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7147 007515 SN=SN+1 + 7148 010000 ZZ=ZZ+ZZ + 7149 IFE ZZ, + 7150 033761 200 00 0 00 035110 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7151 033762 430 00 0 00 035110 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7152 033763 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7153 STOP^ + 7154 033764 254 04 0 00 033765 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7155 033765 324 00 0 00 033766 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7156 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7157 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7158 + 7159 ;********** + 7160 + 7161 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7162 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7163 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7164 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7165 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7166 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7167 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7168 007516 SN=SN+1 + 7169 020000 ZZ=ZZ+ZZ + 7170 IFE ZZ, + 7171 033766 200 00 0 00 035111 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7172 033767 430 00 0 00 035111 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7173 033770 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7174 STOP^ + 7175 033771 254 04 0 00 033772 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7176 033772 324 00 0 00 033773 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7177 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7178 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7179 + 7180 ;********** + 7181 + 7182 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7183 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7184 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7185 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7186 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7187 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7188 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7189 007517 SN=SN+1 + 7190 040000 ZZ=ZZ+ZZ + 7191 IFE ZZ, + 7192 033773 200 00 0 00 035112 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7193 033774 430 00 0 00 035112 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7194 033775 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7195 STOP^ + 7196 033776 254 04 0 00 033777 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-6 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0154 + + 7197 033777 324 00 0 00 034000 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7198 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7199 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7200 + 7201 ;********** + 7202 + 7203 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7204 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7205 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7206 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7207 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7208 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7209 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7210 007520 SN=SN+1 + 7211 100000 ZZ=ZZ+ZZ + 7212 IFE ZZ, + 7213 034000 200 00 0 00 035113 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7214 034001 430 00 0 00 035113 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7215 034002 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7216 STOP^ + 7217 034003 254 04 0 00 034004 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7218 034004 324 00 0 00 034005 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7219 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7220 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7221 + 7222 ;********** + 7223 + 7224 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7225 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7226 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7227 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7228 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7229 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7230 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7231 007521 SN=SN+1 + 7232 200000 ZZ=ZZ+ZZ + 7233 IFE ZZ, + 7234 034005 200 00 0 00 035114 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7235 034006 430 00 0 00 035114 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7236 034007 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7237 STOP^ + 7238 034010 254 04 0 00 034011 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7239 034011 324 00 0 00 034012 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7240 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7241 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7242 + 7243 ;********** + 7244 + 7245 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7246 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7247 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7248 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7249 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7250 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7251 ;INDICATE AN ILLEGAL CARRY GENERATION. +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-7 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0155 + + 7252 007522 SN=SN+1 + 7253 400000 ZZ=ZZ+ZZ + 7254 IFE ZZ, + 7255 034012 200 00 0 00 035115 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7256 034013 430 00 0 00 035115 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7257 034014 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7258 STOP^ + 7259 034015 254 04 0 00 034016 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7260 034016 324 00 0 00 034017 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7261 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7262 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7263 + 7264 ;********** + 7265 + 7266 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7267 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7268 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7269 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7270 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7271 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7272 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7273 007523 SN=SN+1 + 7274 000001 000000 ZZ=ZZ+ZZ + 7275 IFE ZZ, + 7276 034017 200 00 0 00 035116 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7277 034020 430 00 0 00 035116 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7278 034021 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7279 STOP^ + 7280 034022 254 04 0 00 034023 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7281 034023 324 00 0 00 034024 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7282 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7283 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7284 + 7285 ;********** + 7286 + 7287 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7288 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7289 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7290 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7291 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7292 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7293 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7294 007524 SN=SN+1 + 7295 000002 000000 ZZ=ZZ+ZZ + 7296 IFE ZZ, + 7297 034024 200 00 0 00 035117 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7298 034025 430 00 0 00 035117 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7299 034026 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7300 STOP^ + 7301 034027 254 04 0 00 034030 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7302 034030 324 00 0 00 034031 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7303 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7304 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7305 + 7306 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-8 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0156 + + 7307 + 7308 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7309 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7310 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7311 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7312 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7313 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7314 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7315 007525 SN=SN+1 + 7316 000004 000000 ZZ=ZZ+ZZ + 7317 IFE ZZ, + 7318 034031 200 00 0 00 035120 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7319 034032 430 00 0 00 035120 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7320 034033 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7321 STOP^ + 7322 034034 254 04 0 00 034035 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7323 034035 324 00 0 00 034036 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7324 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7325 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7326 + 7327 ;********** + 7328 + 7329 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7330 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7331 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7332 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7333 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7334 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7335 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7336 007526 SN=SN+1 + 7337 000010 000000 ZZ=ZZ+ZZ + 7338 IFE ZZ, + 7339 034036 200 00 0 00 035121 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7340 034037 430 00 0 00 035121 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7341 034040 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7342 STOP^ + 7343 034041 254 04 0 00 034042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7344 034042 324 00 0 00 034043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7345 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7346 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7347 + 7348 ;********** + 7349 + 7350 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7351 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7352 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7353 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7354 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7355 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7356 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7357 007527 SN=SN+1 + 7358 000020 000000 ZZ=ZZ+ZZ + 7359 IFE ZZ, + 7360 034043 200 00 0 00 035122 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7361 034044 430 00 0 00 035122 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-9 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0157 + + 7362 034045 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7363 STOP^ + 7364 034046 254 04 0 00 034047 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7365 034047 324 00 0 00 034050 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7366 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7367 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7368 + 7369 ;********** + 7370 + 7371 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7372 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7373 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7374 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7375 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7376 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7377 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7378 007530 SN=SN+1 + 7379 000040 000000 ZZ=ZZ+ZZ + 7380 IFE ZZ, + 7381 034050 200 00 0 00 035123 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7382 034051 430 00 0 00 035123 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7383 034052 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7384 STOP^ + 7385 034053 254 04 0 00 034054 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7386 034054 324 00 0 00 034055 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7387 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7388 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7389 + 7390 ;********** + 7391 + 7392 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7393 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7394 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7395 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7396 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7397 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7398 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7399 007531 SN=SN+1 + 7400 000100 000000 ZZ=ZZ+ZZ + 7401 IFE ZZ, + 7402 034055 200 00 0 00 035124 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7403 034056 430 00 0 00 035124 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7404 034057 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7405 STOP^ + 7406 034060 254 04 0 00 034061 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7407 034061 324 00 0 00 034062 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7408 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7409 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7410 + 7411 ;********** + 7412 + 7413 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7414 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7415 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7416 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-10 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0158 + + 7417 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7418 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7419 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7420 007532 SN=SN+1 + 7421 000200 000000 ZZ=ZZ+ZZ + 7422 IFE ZZ, + 7423 034062 200 00 0 00 035125 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7424 034063 430 00 0 00 035125 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7425 034064 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7426 STOP^ + 7427 034065 254 04 0 00 034066 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7428 034066 324 00 0 00 034067 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7429 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7430 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7431 + 7432 ;********** + 7433 + 7434 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7435 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7436 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7437 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7438 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7439 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7440 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7441 007533 SN=SN+1 + 7442 000400 000000 ZZ=ZZ+ZZ + 7443 IFE ZZ, + 7444 034067 200 00 0 00 035073 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7445 034070 430 00 0 00 035073 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7446 034071 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7447 STOP^ + 7448 034072 254 04 0 00 034073 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7449 034073 324 00 0 00 034074 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7450 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7451 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7452 + 7453 ;********** + 7454 + 7455 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7456 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7457 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7458 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7459 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7460 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7461 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7462 007534 SN=SN+1 + 7463 001000 000000 ZZ=ZZ+ZZ + 7464 IFE ZZ, + 7465 034074 200 00 0 00 035126 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7466 034075 430 00 0 00 035126 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7467 034076 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7468 STOP^ + 7469 034077 254 04 0 00 034100 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7470 034100 324 00 0 00 034101 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7471 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-11 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0159 + + 7472 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7473 + 7474 ;********** + 7475 + 7476 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7477 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7478 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7479 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7480 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7481 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7482 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7483 007535 SN=SN+1 + 7484 002000 000000 ZZ=ZZ+ZZ + 7485 IFE ZZ, + 7486 034101 200 00 0 00 035127 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7487 034102 430 00 0 00 035127 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7488 034103 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7489 STOP^ + 7490 034104 254 04 0 00 034105 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7491 034105 324 00 0 00 034106 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7492 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7493 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7494 + 7495 ;********** + 7496 + 7497 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7498 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7499 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7500 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7501 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7502 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7503 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7504 007536 SN=SN+1 + 7505 004000 000000 ZZ=ZZ+ZZ + 7506 IFE ZZ, + 7507 034106 200 00 0 00 035130 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7508 034107 430 00 0 00 035130 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7509 034110 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7510 STOP^ + 7511 034111 254 04 0 00 034112 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7512 034112 324 00 0 00 034113 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7513 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7514 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7515 + 7516 ;********** + 7517 + 7518 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7519 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7520 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7521 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7522 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7523 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7524 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7525 007537 SN=SN+1 + 7526 010000 000000 ZZ=ZZ+ZZ +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-12 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0160 + + 7527 IFE ZZ, + 7528 034113 200 00 0 00 035131 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7529 034114 430 00 0 00 035131 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7530 034115 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7531 STOP^ + 7532 034116 254 04 0 00 034117 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7533 034117 324 00 0 00 034120 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7534 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7535 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7536 + 7537 ;********** + 7538 + 7539 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7540 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7541 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7542 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7543 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7544 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7545 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7546 007540 SN=SN+1 + 7547 020000 000000 ZZ=ZZ+ZZ + 7548 IFE ZZ, + 7549 034120 200 00 0 00 035132 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7550 034121 430 00 0 00 035132 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7551 034122 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7552 STOP^ + 7553 034123 254 04 0 00 034124 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7554 034124 324 00 0 00 034125 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7555 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7556 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7557 + 7558 ;********** + 7559 + 7560 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7561 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7562 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7563 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7564 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7565 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7566 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7567 007541 SN=SN+1 + 7568 040000 000000 ZZ=ZZ+ZZ + 7569 IFE ZZ, + 7570 034125 200 00 0 00 035133 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7571 034126 430 00 0 00 035133 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7572 034127 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7573 STOP^ + 7574 034130 254 04 0 00 034131 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7575 034131 324 00 0 00 034132 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7576 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7577 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7578 + 7579 ;********** + 7580 + 7581 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-13 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0161 + + 7582 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7583 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7584 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7585 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7586 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7587 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7588 007542 SN=SN+1 + 7589 100000 000000 ZZ=ZZ+ZZ + 7590 IFE ZZ, + 7591 034132 200 00 0 00 035134 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7592 034133 430 00 0 00 035134 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7593 034134 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7594 STOP^ + 7595 034135 254 04 0 00 034136 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7596 034136 324 00 0 00 034137 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7597 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7598 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7599 + 7600 ;********** + 7601 + 7602 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7603 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7604 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7605 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7606 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7607 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7608 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7609 007543 SN=SN+1 + 7610 200000 000000 ZZ=ZZ+ZZ + 7611 IFE ZZ, + 7612 034137 200 00 0 00 035135 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7613 034140 430 00 0 00 035135 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7614 034141 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7615 STOP^ + 7616 034142 254 04 0 00 034143 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7617 034143 324 00 0 00 034144 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7618 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7619 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7620 + 7621 ;********** + 7622 + 7623 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION + 7624 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, + 7625 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT + 7626 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME + 7627 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST + 7628 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY + 7629 ;INDICATE AN ILLEGAL CARRY GENERATION. + 7630 007544 SN=SN+1 + 7631 400000 000000 ZZ=ZZ+ZZ + 7632 IFE ZZ, + 7633 034144 200 00 0 00 035065 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET + 7634 034145 430 00 0 00 035065 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 + 7635 034146 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7636 STOP^ +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-14 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0162 + + 7637 034147 254 04 0 00 034150 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7638 034150 324 00 0 00 034151 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7639 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7640 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7641 + 7642 ;********** + 7643 + 7644 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION WHERE + 7645 ;C(AC)=C(E)=0 IS AN AC CONTAINING ALL ZEROS; FIRST THE AC IS CLEARED; THEN + 7646 ;XOR IS EXECUTED WITH C(E)=0. THE RESULT IN THE AC IS CHECKED FOR ALL ZEROS + 7647 + 7648 034151 200 00 0 00 035062 A7600: MOVE [0] ;INITIALIZE AC TO ALL ZEROS + 7649 034152 430 00 0 00 035062 XOR [0] ;*XOR WITH C(AC)=C(E)=0 SHOULD RESULT INC(AC)=0 + 7650 034153 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7651 STOP^ + 7652 034154 254 04 0 00 034155 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7653 034155 324 00 0 00 034156 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7654 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7655 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7656 + 7657 ;********** + 7658 + 7659 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7660 ;C(AC)=0 AND C(E) ALL ONES IS AN AC CONTAINING ALL ZEROS SINCE + 7661 ;THE EQUIVALENCE FUNCTION SHOULD SET ONLY LIKE BITS. FIRST, THE AC + 7662 ;SHOULD BE CLEARED; THEN, EQV IS EXECUTED WITH E CONTAINING ALL ONES. + 7663 ;THE AC IS THEN CHECKED FOR ALL ZEROS + 7664 + 7665 034156 200 00 0 00 035062 A7700: MOVE [0] ;CLEAR THE AC + 7666 034157 444 00 0 00 035063 EQV [-1] ;*EQV WITH C(AC)=0 AND C(E) ALL ONES SHOULD + 7667 ;RESULT IN C(AC)=0 + 7668 034160 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 7669 STOP^ + 7670 034161 254 04 0 00 034162 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7671 034162 324 00 0 00 034163 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7672 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7673 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7674 + 7675 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0163 + + 7676 010000 SN=10000 + 7677 000000 ZZ=0 + 7678 + 7679 A10000: REPEAT ^D18, + 7680 <;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7681 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 7682 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 7683 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 7684 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 7685 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 7686 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 7687 SN=SN+1 + 7688 ZZ=ZZ+ZZ+1 + 7689 IFE , + 7690 MOVE [0] ;PRESET AC TO ALL ZEROS + 7691 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 7692 ;RESULT IN C(AC) NON-ZERO + 7693 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 7694 STOP + 7695 + 7696 ;********** + 7697 > + 7698 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7699 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 7700 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 7701 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 7702 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 7703 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 7704 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 7705 010001 SN=SN+1 + 7706 000001 ZZ=ZZ+ZZ+1 + 7707 777777 777776 IFE , + 7708 034163 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 7709 034164 444 00 0 00 035142 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 7710 ;RESULT IN C(AC) NON-ZERO + 7711 034165 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 7712 STOP^ + 7713 034166 254 04 0 00 034167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7714 034167 324 00 0 00 034170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7715 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7716 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7717 + 7718 ;********** + 7719 + 7720 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7721 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 7722 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 7723 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 7724 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 7725 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 7726 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 7727 010002 SN=SN+1 + 7728 777777 777775 ZZ=ZZ+ZZ+1 + 7729 IFE , + 7730 034170 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-1 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0164 + + 7731 034171 444 00 0 00 035143 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 7732 ;RESULT IN C(AC) NON-ZERO + 7733 034172 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 7734 STOP^ + 7735 034173 254 04 0 00 034174 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7736 034174 324 00 0 00 034175 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7737 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7738 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7739 + 7740 ;********** + 7741 + 7742 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7743 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 7744 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 7745 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 7746 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 7747 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 7748 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 7749 010003 SN=SN+1 + 7750 777777 777773 ZZ=ZZ+ZZ+1 + 7751 IFE , + 7752 034175 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 7753 034176 444 00 0 00 035144 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 7754 ;RESULT IN C(AC) NON-ZERO + 7755 034177 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 7756 STOP^ + 7757 034200 254 04 0 00 034201 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7758 034201 324 00 0 00 034202 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7759 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7760 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7761 + 7762 ;********** + 7763 + 7764 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7765 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 7766 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 7767 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 7768 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 7769 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 7770 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 7771 010004 SN=SN+1 + 7772 777777 777767 ZZ=ZZ+ZZ+1 + 7773 IFE , + 7774 034202 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 7775 034203 444 00 0 00 035145 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 7776 ;RESULT IN C(AC) NON-ZERO + 7777 034204 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 7778 STOP^ + 7779 034205 254 04 0 00 034206 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7780 034206 324 00 0 00 034207 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7781 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7782 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7783 + 7784 ;********** + 7785 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-2 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0165 + + 7786 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7787 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 7788 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 7789 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 7790 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 7791 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 7792 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 7793 010005 SN=SN+1 + 7794 777777 777757 ZZ=ZZ+ZZ+1 + 7795 IFE , + 7796 034207 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 7797 034210 444 00 0 00 035146 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 7798 ;RESULT IN C(AC) NON-ZERO + 7799 034211 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 7800 STOP^ + 7801 034212 254 04 0 00 034213 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7802 034213 324 00 0 00 034214 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7803 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7804 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7805 + 7806 ;********** + 7807 + 7808 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7809 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 7810 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 7811 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 7812 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 7813 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 7814 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 7815 010006 SN=SN+1 + 7816 777777 777737 ZZ=ZZ+ZZ+1 + 7817 IFE , + 7818 034214 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 7819 034215 444 00 0 00 035147 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 7820 ;RESULT IN C(AC) NON-ZERO + 7821 034216 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 7822 STOP^ + 7823 034217 254 04 0 00 034220 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7824 034220 324 00 0 00 034221 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7825 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7826 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7827 + 7828 ;********** + 7829 + 7830 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7831 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 7832 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 7833 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 7834 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 7835 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 7836 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 7837 010007 SN=SN+1 + 7838 777777 777677 ZZ=ZZ+ZZ+1 + 7839 IFE , + 7840 034221 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-3 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0166 + + 7841 034222 444 00 0 00 035150 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 7842 ;RESULT IN C(AC) NON-ZERO + 7843 034223 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 7844 STOP^ + 7845 034224 254 04 0 00 034225 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7846 034225 324 00 0 00 034226 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7847 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7848 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7849 + 7850 ;********** + 7851 + 7852 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7853 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 7854 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 7855 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 7856 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 7857 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 7858 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 7859 010010 SN=SN+1 + 7860 777777 777577 ZZ=ZZ+ZZ+1 + 7861 IFE , + 7862 034226 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 7863 034227 444 00 0 00 035151 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 7864 ;RESULT IN C(AC) NON-ZERO + 7865 034230 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 7866 STOP^ + 7867 034231 254 04 0 00 034232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7868 034232 324 00 0 00 034233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7869 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7870 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7871 + 7872 ;********** + 7873 + 7874 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7875 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 7876 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 7877 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 7878 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 7879 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 7880 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 7881 010011 SN=SN+1 + 7882 777777 777377 ZZ=ZZ+ZZ+1 + 7883 IFE , + 7884 034233 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 7885 034234 444 00 0 00 035152 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 7886 ;RESULT IN C(AC) NON-ZERO + 7887 034235 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 7888 STOP^ + 7889 034236 254 04 0 00 034237 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7890 034237 324 00 0 00 034240 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7891 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7892 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7893 + 7894 ;********** + 7895 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-4 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0167 + + 7896 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7897 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 7898 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 7899 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 7900 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 7901 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 7902 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 7903 010012 SN=SN+1 + 7904 777777 776777 ZZ=ZZ+ZZ+1 + 7905 IFE , + 7906 034240 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 7907 034241 444 00 0 00 035153 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 7908 ;RESULT IN C(AC) NON-ZERO + 7909 034242 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 7910 STOP^ + 7911 034243 254 04 0 00 034244 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7912 034244 324 00 0 00 034245 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7913 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7914 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7915 + 7916 ;********** + 7917 + 7918 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7919 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 7920 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 7921 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 7922 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 7923 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 7924 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 7925 010013 SN=SN+1 + 7926 777777 775777 ZZ=ZZ+ZZ+1 + 7927 IFE , + 7928 034245 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 7929 034246 444 00 0 00 035154 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 7930 ;RESULT IN C(AC) NON-ZERO + 7931 034247 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 7932 STOP^ + 7933 034250 254 04 0 00 034251 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7934 034251 324 00 0 00 034252 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7935 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7936 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7937 + 7938 ;********** + 7939 + 7940 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7941 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 7942 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 7943 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 7944 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 7945 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 7946 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 7947 010014 SN=SN+1 + 7948 777777 773777 ZZ=ZZ+ZZ+1 + 7949 IFE , + 7950 034252 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-5 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0168 + + 7951 034253 444 00 0 00 035155 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 7952 ;RESULT IN C(AC) NON-ZERO + 7953 034254 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 7954 STOP^ + 7955 034255 254 04 0 00 034256 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7956 034256 324 00 0 00 034257 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7957 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7958 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7959 + 7960 ;********** + 7961 + 7962 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7963 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 7964 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 7965 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 7966 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 7967 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 7968 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 7969 010015 SN=SN+1 + 7970 777777 767777 ZZ=ZZ+ZZ+1 + 7971 IFE , + 7972 034257 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 7973 034260 444 00 0 00 035156 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 7974 ;RESULT IN C(AC) NON-ZERO + 7975 034261 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 7976 STOP^ + 7977 034262 254 04 0 00 034263 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7978 034263 324 00 0 00 034264 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 7979 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 7980 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 7981 + 7982 ;********** + 7983 + 7984 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 7985 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 7986 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 7987 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 7988 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 7989 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 7990 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 7991 010016 SN=SN+1 + 7992 777777 757777 ZZ=ZZ+ZZ+1 + 7993 IFE , + 7994 034264 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 7995 034265 444 00 0 00 035157 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 7996 ;RESULT IN C(AC) NON-ZERO + 7997 034266 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 7998 STOP^ + 7999 034267 254 04 0 00 034270 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8000 034270 324 00 0 00 034271 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8001 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8002 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8003 + 8004 ;********** + 8005 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-6 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0169 + + 8006 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8007 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8008 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8009 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8010 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8011 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8012 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8013 010017 SN=SN+1 + 8014 777777 737777 ZZ=ZZ+ZZ+1 + 8015 IFE , + 8016 034271 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8017 034272 444 00 0 00 035160 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8018 ;RESULT IN C(AC) NON-ZERO + 8019 034273 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8020 STOP^ + 8021 034274 254 04 0 00 034275 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8022 034275 324 00 0 00 034276 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8023 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8024 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8025 + 8026 ;********** + 8027 + 8028 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8029 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8030 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8031 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8032 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8033 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8034 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8035 010020 SN=SN+1 + 8036 777777 677777 ZZ=ZZ+ZZ+1 + 8037 IFE , + 8038 034276 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8039 034277 444 00 0 00 035161 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8040 ;RESULT IN C(AC) NON-ZERO + 8041 034300 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8042 STOP^ + 8043 034301 254 04 0 00 034302 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8044 034302 324 00 0 00 034303 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8045 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8046 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8047 + 8048 ;********** + 8049 + 8050 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8051 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8052 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8053 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8054 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8055 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8056 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8057 010021 SN=SN+1 + 8058 777777 577777 ZZ=ZZ+ZZ+1 + 8059 IFE , + 8060 034303 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-7 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0170 + + 8061 034304 444 00 0 00 035162 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8062 ;RESULT IN C(AC) NON-ZERO + 8063 034305 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8064 STOP^ + 8065 034306 254 04 0 00 034307 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8066 034307 324 00 0 00 034310 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8067 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8068 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8069 + 8070 ;********** + 8071 + 8072 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8073 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8074 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8075 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8076 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8077 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8078 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8079 010022 SN=SN+1 + 8080 777777 377777 ZZ=ZZ+ZZ+1 + 8081 IFE , + 8082 034310 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8083 034311 444 00 0 00 035163 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8084 ;RESULT IN C(AC) NON-ZERO + 8085 034312 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8086 STOP^ + 8087 034313 254 04 0 00 034314 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8088 034314 324 00 0 00 034315 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8089 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8090 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8091 + 8092 ;********** + 8093 + 8094 010100 SN=10100 + 8095 000000 ZZ=0 + 8096 + 8097 A10100: REPEAT ^D18, + 8098 <;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8099 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8100 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8101 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8102 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8103 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8104 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8105 SN=SN+1 + 8106 ZZ=ZZ+ZZ+1 + 8107 IFE , + 8108 MOVE [0] ;PRESET AC TO ALL ZEROS + 8109 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8110 ;RESULT IN C(AC) NON-ZERO + 8111 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8112 STOP + 8113 + 8114 ;********** + 8115 > +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-8 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0171 + + 8116 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8117 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8118 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8119 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8120 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8121 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8122 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8123 010101 SN=SN+1 + 8124 000001 ZZ=ZZ+ZZ+1 + 8125 777777 777776 IFE , + 8126 034315 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8127 034316 444 00 0 00 035164 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8128 ;RESULT IN C(AC) NON-ZERO + 8129 034317 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8130 STOP^ + 8131 034320 254 04 0 00 034321 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8132 034321 324 00 0 00 034322 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8133 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8134 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8135 + 8136 ;********** + 8137 + 8138 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8139 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8140 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8141 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8142 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8143 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8144 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8145 010102 SN=SN+1 + 8146 777777 777775 ZZ=ZZ+ZZ+1 + 8147 IFE , + 8148 034322 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8149 034323 444 00 0 00 035165 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8150 ;RESULT IN C(AC) NON-ZERO + 8151 034324 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8152 STOP^ + 8153 034325 254 04 0 00 034326 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8154 034326 324 00 0 00 034327 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8155 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8156 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8157 + 8158 ;********** + 8159 + 8160 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8161 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8162 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8163 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8164 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8165 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8166 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8167 010103 SN=SN+1 + 8168 777777 777773 ZZ=ZZ+ZZ+1 + 8169 IFE , + 8170 034327 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-9 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0172 + + 8171 034330 444 00 0 00 035166 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8172 ;RESULT IN C(AC) NON-ZERO + 8173 034331 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8174 STOP^ + 8175 034332 254 04 0 00 034333 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8176 034333 324 00 0 00 034334 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8177 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8178 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8179 + 8180 ;********** + 8181 + 8182 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8183 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8184 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8185 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8186 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8187 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8188 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8189 010104 SN=SN+1 + 8190 777777 777767 ZZ=ZZ+ZZ+1 + 8191 IFE , + 8192 034334 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8193 034335 444 00 0 00 035167 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8194 ;RESULT IN C(AC) NON-ZERO + 8195 034336 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8196 STOP^ + 8197 034337 254 04 0 00 034340 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8198 034340 324 00 0 00 034341 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8199 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8200 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8201 + 8202 ;********** + 8203 + 8204 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8205 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8206 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8207 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8208 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8209 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8210 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8211 010105 SN=SN+1 + 8212 777777 777757 ZZ=ZZ+ZZ+1 + 8213 IFE , + 8214 034341 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8215 034342 444 00 0 00 035170 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8216 ;RESULT IN C(AC) NON-ZERO + 8217 034343 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8218 STOP^ + 8219 034344 254 04 0 00 034345 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8220 034345 324 00 0 00 034346 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8221 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8222 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8223 + 8224 ;********** + 8225 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-10 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0173 + + 8226 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8227 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8228 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8229 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8230 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8231 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8232 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8233 010106 SN=SN+1 + 8234 777777 777737 ZZ=ZZ+ZZ+1 + 8235 IFE , + 8236 034346 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8237 034347 444 00 0 00 035171 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8238 ;RESULT IN C(AC) NON-ZERO + 8239 034350 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8240 STOP^ + 8241 034351 254 04 0 00 034352 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8242 034352 324 00 0 00 034353 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8243 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8244 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8245 + 8246 ;********** + 8247 + 8248 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8249 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8250 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8251 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8252 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8253 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8254 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8255 010107 SN=SN+1 + 8256 777777 777677 ZZ=ZZ+ZZ+1 + 8257 IFE , + 8258 034353 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8259 034354 444 00 0 00 035172 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8260 ;RESULT IN C(AC) NON-ZERO + 8261 034355 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8262 STOP^ + 8263 034356 254 04 0 00 034357 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8264 034357 324 00 0 00 034360 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8265 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8266 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8267 + 8268 ;********** + 8269 + 8270 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8271 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8272 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8273 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8274 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8275 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8276 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8277 010110 SN=SN+1 + 8278 777777 777577 ZZ=ZZ+ZZ+1 + 8279 IFE , + 8280 034360 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-11 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0174 + + 8281 034361 444 00 0 00 035173 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8282 ;RESULT IN C(AC) NON-ZERO + 8283 034362 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8284 STOP^ + 8285 034363 254 04 0 00 034364 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8286 034364 324 00 0 00 034365 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8287 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8288 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8289 + 8290 ;********** + 8291 + 8292 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8293 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8294 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8295 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8296 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8297 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8298 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8299 010111 SN=SN+1 + 8300 777777 777377 ZZ=ZZ+ZZ+1 + 8301 IFE , + 8302 034365 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8303 034366 444 00 0 00 035174 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8304 ;RESULT IN C(AC) NON-ZERO + 8305 034367 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8306 STOP^ + 8307 034370 254 04 0 00 034371 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8308 034371 324 00 0 00 034372 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8309 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8310 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8311 + 8312 ;********** + 8313 + 8314 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8315 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8316 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8317 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8318 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8319 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8320 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8321 010112 SN=SN+1 + 8322 777777 776777 ZZ=ZZ+ZZ+1 + 8323 IFE , + 8324 034372 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8325 034373 444 00 0 00 035175 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8326 ;RESULT IN C(AC) NON-ZERO + 8327 034374 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8328 STOP^ + 8329 034375 254 04 0 00 034376 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8330 034376 324 00 0 00 034377 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8331 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8332 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8333 + 8334 ;********** + 8335 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-12 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0175 + + 8336 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8337 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8338 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8339 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8340 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8341 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8342 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8343 010113 SN=SN+1 + 8344 777777 775777 ZZ=ZZ+ZZ+1 + 8345 IFE , + 8346 034377 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8347 034400 444 00 0 00 035176 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8348 ;RESULT IN C(AC) NON-ZERO + 8349 034401 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8350 STOP^ + 8351 034402 254 04 0 00 034403 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8352 034403 324 00 0 00 034404 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8353 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8354 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8355 + 8356 ;********** + 8357 + 8358 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8359 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8360 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8361 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8362 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8363 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8364 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8365 010114 SN=SN+1 + 8366 777777 773777 ZZ=ZZ+ZZ+1 + 8367 IFE , + 8368 034404 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8369 034405 444 00 0 00 035177 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8370 ;RESULT IN C(AC) NON-ZERO + 8371 034406 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8372 STOP^ + 8373 034407 254 04 0 00 034410 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8374 034410 324 00 0 00 034411 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8375 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8376 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8377 + 8378 ;********** + 8379 + 8380 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8381 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8382 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8383 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8384 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8385 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8386 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8387 010115 SN=SN+1 + 8388 777777 767777 ZZ=ZZ+ZZ+1 + 8389 IFE , + 8390 034411 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-13 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0176 + + 8391 034412 444 00 0 00 035200 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8392 ;RESULT IN C(AC) NON-ZERO + 8393 034413 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8394 STOP^ + 8395 034414 254 04 0 00 034415 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8396 034415 324 00 0 00 034416 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8397 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8398 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8399 + 8400 ;********** + 8401 + 8402 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8403 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8404 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8405 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8406 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8407 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8408 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8409 010116 SN=SN+1 + 8410 777777 757777 ZZ=ZZ+ZZ+1 + 8411 IFE , + 8412 034416 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8413 034417 444 00 0 00 035201 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8414 ;RESULT IN C(AC) NON-ZERO + 8415 034420 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8416 STOP^ + 8417 034421 254 04 0 00 034422 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8418 034422 324 00 0 00 034423 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8419 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8420 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8421 + 8422 ;********** + 8423 + 8424 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8425 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8426 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8427 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8428 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8429 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8430 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8431 010117 SN=SN+1 + 8432 777777 737777 ZZ=ZZ+ZZ+1 + 8433 IFE , + 8434 034423 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8435 034424 444 00 0 00 035202 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8436 ;RESULT IN C(AC) NON-ZERO + 8437 034425 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8438 STOP^ + 8439 034426 254 04 0 00 034427 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8440 034427 324 00 0 00 034430 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8441 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8442 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8443 + 8444 ;********** + 8445 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-14 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0177 + + 8446 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8447 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8448 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8449 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8450 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8451 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8452 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8453 010120 SN=SN+1 + 8454 777777 677777 ZZ=ZZ+ZZ+1 + 8455 IFE , + 8456 034430 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8457 034431 444 00 0 00 035203 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8458 ;RESULT IN C(AC) NON-ZERO + 8459 034432 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8460 STOP^ + 8461 034433 254 04 0 00 034434 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8462 034434 324 00 0 00 034435 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8463 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8464 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8465 + 8466 ;********** + 8467 + 8468 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8469 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8470 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8471 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8472 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8473 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8474 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8475 010121 SN=SN+1 + 8476 777777 577777 ZZ=ZZ+ZZ+1 + 8477 IFE , + 8478 034435 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS + 8479 034436 444 00 0 00 035204 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8480 ;RESULT IN C(AC) NON-ZERO + 8481 034437 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8482 STOP^ + 8483 034440 254 04 0 00 034441 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8484 034441 324 00 0 00 034442 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8485 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8486 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8487 + 8488 ;********** + 8489 + 8490 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE + 8491 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN + 8492 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE + 8493 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT + 8494 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS + 8495 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE + 8496 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO + 8497 010122 SN=SN+1 + 8498 777777 377777 ZZ=ZZ+ZZ+1 + 8499 IFE , + 8500 034442 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-15 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0178 + + 8501 034443 444 00 0 00 035064 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD + 8502 ;RESULT IN C(AC) NON-ZERO + 8503 034444 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO + 8504 STOP^ + 8505 034445 254 04 0 00 034446 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8506 034446 324 00 0 00 034447 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8507 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8508 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8509 + 8510 ;********** + 8511 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 30 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0179 + + 8512 ;THIS TEST VERIFIES THAT THE RESULT OF AN AC CONTAINING ALL ZEROS + 8513 ;EQUIVALENCED WITH AN E CONTAINING ALL ZEROS IS AN AC CONTAINING ALL + 8514 ;ONES; AND FUTHERMORE, IF THIS AC CONTAINING ALL ONES IS EQUIVALANCED + 8515 ;WITH AN E CONTAINING ALL ZEROS, THE FINAL RESULT IN THE AC + 8516 ;SHOULD BE ALL ZEROS. FIRST, THE AC IS INITIALIZED TO ALL ZEROS, THEN, + 8517 ;THIS AC IS EQUIVALENCED TWICE WITH AN E CONTAINING ALL ZEROS. THE AC IS + 8518 ;THEN CHECKED FOR ALL ZEROS + 8519 + 8520 034447 200 00 0 00 035062 A10200: MOVE [0] ;CLEAR THE AC + 8521 034450 444 00 0 00 035062 EQV [0] ;*EQV SHOULD RESULT IN C(AC)=ALL ONES + 8522 034451 444 00 0 00 035062 EQV [0] ;*EQV SHOULD RESULT IN C(AC)=0 + 8523 034452 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8524 STOP^ + 8525 034453 254 04 0 00 034454 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8526 034454 324 00 0 00 034455 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8527 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8528 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8529 + 8530 ;********** + 8531 + 8532 ;THIS TEST VERIFIES THAT THE RESULT OF AN AC CONTAINING ALL ONES + 8533 ;EQUIVALENCED WITH AN E CONTAINING ALL ONES IS AN AC CONTAINING ALL ONES; + 8534 ;AND FUTHERMORE, IF THIS AC CONTAINING ALL ONES ISEQUIVALENCED WITH AN E + 8535 ;CONTAINING ALL ZEROS, THE FINAL RESULT IN THE AC SHOULD BE ALL ZEROS. + 8536 ;FIRST, THE AC IS INITIALIZED TO ALL ONES; THEN, THIS AC IS + 8537 ;EQUIVALENCED WITH AN E OF ALL ONES. NEXT, THIS SAME AC IS EQUIVALENCED + 8538 ;WITH AN E OF ALL ZEROS. THE AC IS THEN CHECKED FOR ALL ZEROS. + 8539 + 8540 034455 200 00 0 00 035063 A10300: MOVE [-1] ;SET C(AC) TO ALL ONES + 8541 034456 444 00 0 00 035063 EQV [-1] ;*EQV SHOULD RESULT IN C(AC) OF ALL ONES + 8542 034457 444 00 0 00 035062 EQV [0] ;*EQV SHOULD RESULT IN C(AC)=0 + 8543 034460 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8544 STOP^ + 8545 034461 254 04 0 00 034462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8546 034462 324 00 0 00 034463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8547 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8548 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8549 + 8550 ;********** +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0180 + + 8551 013000 SN=13000 + 8552 000000 ZZ=0 + 8553 + 8554 A13000: REPEAT ^D36, + 8555 <;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8556 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8557 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8558 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8559 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8560 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8561 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8562 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8563 SN=SN+1 + 8564 ZZ=ZZ+ZZ + 8565 IFE ZZ, + 8566 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8567 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8568 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8569 EQV [0] ;RESULTS IN C(AC)=0 + 8570 SKIPE ;PASS TEST IF C(AC)=0 + 8571 STOP + 8572 + 8573 ;********** + 8574 > + 8575 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8576 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8577 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8578 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8579 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8580 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8581 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8582 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8583 013001 SN=SN+1 + 8584 000000 ZZ=ZZ+ZZ + 8585 000001 IFE ZZ, + 8586 034463 200 00 0 00 035074 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8587 034464 404 00 0 00 035074 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8588 034465 444 00 0 00 035074 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8589 034466 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8590 034467 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8591 STOP^ + 8592 034470 254 04 0 00 034471 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8593 034471 324 00 0 00 034472 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8594 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8595 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8596 + 8597 ;********** + 8598 + 8599 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8600 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8601 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8602 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8603 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8604 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8605 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-1 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0181 + + 8606 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8607 013002 SN=SN+1 + 8608 000002 ZZ=ZZ+ZZ + 8609 IFE ZZ, + 8610 034472 200 00 0 00 035075 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8611 034473 404 00 0 00 035075 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8612 034474 444 00 0 00 035075 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8613 034475 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8614 034476 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8615 STOP^ + 8616 034477 254 04 0 00 034500 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8617 034500 324 00 0 00 034501 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8618 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8619 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8620 + 8621 ;********** + 8622 + 8623 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8624 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8625 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8626 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8627 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8628 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8629 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8630 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8631 013003 SN=SN+1 + 8632 000004 ZZ=ZZ+ZZ + 8633 IFE ZZ, + 8634 034501 200 00 0 00 035076 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8635 034502 404 00 0 00 035076 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8636 034503 444 00 0 00 035076 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8637 034504 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8638 034505 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8639 STOP^ + 8640 034506 254 04 0 00 034507 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8641 034507 324 00 0 00 034510 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8642 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8643 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8644 + 8645 ;********** + 8646 + 8647 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8648 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8649 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8650 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8651 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8652 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8653 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8654 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8655 013004 SN=SN+1 + 8656 000010 ZZ=ZZ+ZZ + 8657 IFE ZZ, + 8658 034510 200 00 0 00 035077 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8659 034511 404 00 0 00 035077 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8660 034512 444 00 0 00 035077 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-2 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0182 + + 8661 034513 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8662 034514 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8663 STOP^ + 8664 034515 254 04 0 00 034516 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8665 034516 324 00 0 00 034517 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8666 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8667 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8668 + 8669 ;********** + 8670 + 8671 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8672 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8673 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8674 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8675 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8676 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8677 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8678 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8679 013005 SN=SN+1 + 8680 000020 ZZ=ZZ+ZZ + 8681 IFE ZZ, + 8682 034517 200 00 0 00 035100 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8683 034520 404 00 0 00 035100 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8684 034521 444 00 0 00 035100 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8685 034522 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8686 034523 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8687 STOP^ + 8688 034524 254 04 0 00 034525 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8689 034525 324 00 0 00 034526 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8690 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8691 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8692 + 8693 ;********** + 8694 + 8695 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8696 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8697 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8698 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8699 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8700 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8701 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8702 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8703 013006 SN=SN+1 + 8704 000040 ZZ=ZZ+ZZ + 8705 IFE ZZ, + 8706 034526 200 00 0 00 035101 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8707 034527 404 00 0 00 035101 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8708 034530 444 00 0 00 035101 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8709 034531 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8710 034532 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8711 STOP^ + 8712 034533 254 04 0 00 034534 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8713 034534 324 00 0 00 034535 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8714 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8715 ;IN THE SUBTEST) TO LOOP ON ERROR^ +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-3 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0183 + + 8716 + 8717 ;********** + 8718 + 8719 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8720 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8721 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8722 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8723 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8724 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8725 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8726 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8727 013007 SN=SN+1 + 8728 000100 ZZ=ZZ+ZZ + 8729 IFE ZZ, + 8730 034535 200 00 0 00 035102 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8731 034536 404 00 0 00 035102 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8732 034537 444 00 0 00 035102 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8733 034540 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8734 034541 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8735 STOP^ + 8736 034542 254 04 0 00 034543 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8737 034543 324 00 0 00 034544 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8738 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8739 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8740 + 8741 ;********** + 8742 + 8743 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8744 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8745 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8746 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8747 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8748 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8749 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8750 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8751 013010 SN=SN+1 + 8752 000200 ZZ=ZZ+ZZ + 8753 IFE ZZ, + 8754 034544 200 00 0 00 035103 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8755 034545 404 00 0 00 035103 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8756 034546 444 00 0 00 035103 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8757 034547 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8758 034550 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8759 STOP^ + 8760 034551 254 04 0 00 034552 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8761 034552 324 00 0 00 034553 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8762 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8763 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8764 + 8765 ;********** + 8766 + 8767 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8768 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8769 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8770 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-4 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0184 + + 8771 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8772 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8773 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8774 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8775 013011 SN=SN+1 + 8776 000400 ZZ=ZZ+ZZ + 8777 IFE ZZ, + 8778 034553 200 00 0 00 035104 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8779 034554 404 00 0 00 035104 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8780 034555 444 00 0 00 035104 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8781 034556 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8782 034557 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8783 STOP^ + 8784 034560 254 04 0 00 034561 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8785 034561 324 00 0 00 034562 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8786 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8787 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8788 + 8789 ;********** + 8790 + 8791 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8792 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8793 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8794 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8795 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8796 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8797 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8798 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8799 013012 SN=SN+1 + 8800 001000 ZZ=ZZ+ZZ + 8801 IFE ZZ, + 8802 034562 200 00 0 00 035105 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8803 034563 404 00 0 00 035105 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8804 034564 444 00 0 00 035105 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8805 034565 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8806 034566 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8807 STOP^ + 8808 034567 254 04 0 00 034570 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8809 034570 324 00 0 00 034571 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8810 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8811 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8812 + 8813 ;********** + 8814 + 8815 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8816 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8817 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8818 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8819 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8820 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8821 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8822 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8823 013013 SN=SN+1 + 8824 002000 ZZ=ZZ+ZZ + 8825 IFE ZZ, +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-5 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0185 + + 8826 034571 200 00 0 00 035106 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8827 034572 404 00 0 00 035106 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8828 034573 444 00 0 00 035106 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8829 034574 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8830 034575 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8831 STOP^ + 8832 034576 254 04 0 00 034577 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8833 034577 324 00 0 00 034600 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8834 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8835 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8836 + 8837 ;********** + 8838 + 8839 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8840 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8841 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8842 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8843 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8844 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8845 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8846 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8847 013014 SN=SN+1 + 8848 004000 ZZ=ZZ+ZZ + 8849 IFE ZZ, + 8850 034600 200 00 0 00 035107 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8851 034601 404 00 0 00 035107 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8852 034602 444 00 0 00 035107 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8853 034603 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8854 034604 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8855 STOP^ + 8856 034605 254 04 0 00 034606 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8857 034606 324 00 0 00 034607 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8858 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8859 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8860 + 8861 ;********** + 8862 + 8863 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8864 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8865 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8866 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8867 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8868 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8869 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8870 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8871 013015 SN=SN+1 + 8872 010000 ZZ=ZZ+ZZ + 8873 IFE ZZ, + 8874 034607 200 00 0 00 035110 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8875 034610 404 00 0 00 035110 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8876 034611 444 00 0 00 035110 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8877 034612 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8878 034613 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8879 STOP^ + 8880 034614 254 04 0 00 034615 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-6 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0186 + + 8881 034615 324 00 0 00 034616 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8882 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8883 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8884 + 8885 ;********** + 8886 + 8887 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8888 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8889 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8890 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8891 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8892 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8893 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8894 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8895 013016 SN=SN+1 + 8896 020000 ZZ=ZZ+ZZ + 8897 IFE ZZ, + 8898 034616 200 00 0 00 035111 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8899 034617 404 00 0 00 035111 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8900 034620 444 00 0 00 035111 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8901 034621 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8902 034622 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8903 STOP^ + 8904 034623 254 04 0 00 034624 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8905 034624 324 00 0 00 034625 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8906 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8907 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8908 + 8909 ;********** + 8910 + 8911 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8912 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8913 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8914 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8915 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8916 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8917 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8918 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8919 013017 SN=SN+1 + 8920 040000 ZZ=ZZ+ZZ + 8921 IFE ZZ, + 8922 034625 200 00 0 00 035112 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8923 034626 404 00 0 00 035112 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8924 034627 444 00 0 00 035112 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8925 034630 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8926 034631 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8927 STOP^ + 8928 034632 254 04 0 00 034633 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8929 034633 324 00 0 00 034634 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8930 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8931 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8932 + 8933 ;********** + 8934 + 8935 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-7 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0187 + + 8936 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8937 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8938 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8939 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8940 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8941 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8942 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8943 013020 SN=SN+1 + 8944 100000 ZZ=ZZ+ZZ + 8945 IFE ZZ, + 8946 034634 200 00 0 00 035113 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8947 034635 404 00 0 00 035113 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8948 034636 444 00 0 00 035113 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8949 034637 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8950 034640 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8951 STOP^ + 8952 034641 254 04 0 00 034642 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8953 034642 324 00 0 00 034643 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8954 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8955 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8956 + 8957 ;********** + 8958 + 8959 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8960 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8961 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8962 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8963 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8964 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8965 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8966 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 8967 013021 SN=SN+1 + 8968 200000 ZZ=ZZ+ZZ + 8969 IFE ZZ, + 8970 034643 200 00 0 00 035114 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8971 034644 404 00 0 00 035114 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8972 034645 444 00 0 00 035114 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8973 034646 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8974 034647 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8975 STOP^ + 8976 034650 254 04 0 00 034651 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 8977 034651 324 00 0 00 034652 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 8978 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 8979 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 8980 + 8981 ;********** + 8982 + 8983 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 8984 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 8985 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 8986 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 8987 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 8988 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 8989 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 8990 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-8 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0188 + + 8991 013022 SN=SN+1 + 8992 400000 ZZ=ZZ+ZZ + 8993 IFE ZZ, + 8994 034652 200 00 0 00 035115 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 8995 034653 404 00 0 00 035115 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 8996 034654 444 00 0 00 035115 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 8997 034655 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 8998 034656 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 8999 STOP^ + 9000 034657 254 04 0 00 034660 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9001 034660 324 00 0 00 034661 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9002 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9003 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9004 + 9005 ;********** + 9006 + 9007 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9008 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9009 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9010 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9011 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9012 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9013 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9014 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9015 013023 SN=SN+1 + 9016 000001 000000 ZZ=ZZ+ZZ + 9017 IFE ZZ, + 9018 034661 200 00 0 00 035116 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9019 034662 404 00 0 00 035116 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9020 034663 444 00 0 00 035116 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9021 034664 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9022 034665 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9023 STOP^ + 9024 034666 254 04 0 00 034667 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9025 034667 324 00 0 00 034670 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9026 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9027 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9028 + 9029 ;********** + 9030 + 9031 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9032 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9033 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9034 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9035 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9036 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9037 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9038 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9039 013024 SN=SN+1 + 9040 000002 000000 ZZ=ZZ+ZZ + 9041 IFE ZZ, + 9042 034670 200 00 0 00 035117 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9043 034671 404 00 0 00 035117 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9044 034672 444 00 0 00 035117 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9045 034673 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-9 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0189 + + 9046 034674 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9047 STOP^ + 9048 034675 254 04 0 00 034676 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9049 034676 324 00 0 00 034677 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9050 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9051 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9052 + 9053 ;********** + 9054 + 9055 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9056 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9057 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9058 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9059 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9060 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9061 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9062 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9063 013025 SN=SN+1 + 9064 000004 000000 ZZ=ZZ+ZZ + 9065 IFE ZZ, + 9066 034677 200 00 0 00 035120 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9067 034700 404 00 0 00 035120 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9068 034701 444 00 0 00 035120 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9069 034702 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9070 034703 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9071 STOP^ + 9072 034704 254 04 0 00 034705 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9073 034705 324 00 0 00 034706 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9074 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9075 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9076 + 9077 ;********** + 9078 + 9079 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9080 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9081 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9082 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9083 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9084 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9085 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9086 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9087 013026 SN=SN+1 + 9088 000010 000000 ZZ=ZZ+ZZ + 9089 IFE ZZ, + 9090 034706 200 00 0 00 035121 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9091 034707 404 00 0 00 035121 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9092 034710 444 00 0 00 035121 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9093 034711 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9094 034712 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9095 STOP^ + 9096 034713 254 04 0 00 034714 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9097 034714 324 00 0 00 034715 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9098 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9099 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9100 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-10 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0190 + + 9101 ;********** + 9102 + 9103 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9104 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9105 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9106 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9107 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9108 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9109 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9110 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9111 013027 SN=SN+1 + 9112 000020 000000 ZZ=ZZ+ZZ + 9113 IFE ZZ, + 9114 034715 200 00 0 00 035122 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9115 034716 404 00 0 00 035122 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9116 034717 444 00 0 00 035122 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9117 034720 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9118 034721 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9119 STOP^ + 9120 034722 254 04 0 00 034723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9121 034723 324 00 0 00 034724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9122 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9123 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9124 + 9125 ;********** + 9126 + 9127 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9128 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9129 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9130 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9131 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9132 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9133 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9134 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9135 013030 SN=SN+1 + 9136 000040 000000 ZZ=ZZ+ZZ + 9137 IFE ZZ, + 9138 034724 200 00 0 00 035123 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9139 034725 404 00 0 00 035123 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9140 034726 444 00 0 00 035123 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9141 034727 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9142 034730 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9143 STOP^ + 9144 034731 254 04 0 00 034732 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9145 034732 324 00 0 00 034733 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9146 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9147 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9148 + 9149 ;********** + 9150 + 9151 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9152 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9153 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9154 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9155 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-11 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0191 + + 9156 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9157 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9158 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9159 013031 SN=SN+1 + 9160 000100 000000 ZZ=ZZ+ZZ + 9161 IFE ZZ, + 9162 034733 200 00 0 00 035124 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9163 034734 404 00 0 00 035124 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9164 034735 444 00 0 00 035124 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9165 034736 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9166 034737 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9167 STOP^ + 9168 034740 254 04 0 00 034741 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9169 034741 324 00 0 00 034742 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9170 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9171 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9172 + 9173 ;********** + 9174 + 9175 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9176 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9177 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9178 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9179 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9180 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9181 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9182 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9183 013032 SN=SN+1 + 9184 000200 000000 ZZ=ZZ+ZZ + 9185 IFE ZZ, + 9186 034742 200 00 0 00 035125 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9187 034743 404 00 0 00 035125 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9188 034744 444 00 0 00 035125 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9189 034745 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9190 034746 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9191 STOP^ + 9192 034747 254 04 0 00 034750 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9193 034750 324 00 0 00 034751 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9194 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9195 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9196 + 9197 ;********** + 9198 + 9199 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9200 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9201 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9202 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9203 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9204 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9205 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9206 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9207 013033 SN=SN+1 + 9208 000400 000000 ZZ=ZZ+ZZ + 9209 IFE ZZ, + 9210 034751 200 00 0 00 035073 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-12 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0192 + + 9211 034752 404 00 0 00 035073 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9212 034753 444 00 0 00 035073 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9213 034754 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9214 034755 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9215 STOP^ + 9216 034756 254 04 0 00 034757 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9217 034757 324 00 0 00 034760 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9218 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9219 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9220 + 9221 ;********** + 9222 + 9223 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9224 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9225 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9226 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9227 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9228 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9229 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9230 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9231 013034 SN=SN+1 + 9232 001000 000000 ZZ=ZZ+ZZ + 9233 IFE ZZ, + 9234 034760 200 00 0 00 035126 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9235 034761 404 00 0 00 035126 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9236 034762 444 00 0 00 035126 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9237 034763 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9238 034764 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9239 STOP^ + 9240 034765 254 04 0 00 034766 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9241 034766 324 00 0 00 034767 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9242 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9243 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9244 + 9245 ;********** + 9246 + 9247 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9248 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9249 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9250 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9251 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9252 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9253 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9254 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9255 013035 SN=SN+1 + 9256 002000 000000 ZZ=ZZ+ZZ + 9257 IFE ZZ, + 9258 034767 200 00 0 00 035127 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9259 034770 404 00 0 00 035127 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9260 034771 444 00 0 00 035127 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9261 034772 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9262 034773 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9263 STOP^ + 9264 034774 254 04 0 00 034775 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9265 034775 324 00 0 00 034776 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-13 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0193 + + 9266 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9267 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9268 + 9269 ;********** + 9270 + 9271 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9272 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9273 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9274 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9275 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9276 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9277 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9278 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9279 013036 SN=SN+1 + 9280 004000 000000 ZZ=ZZ+ZZ + 9281 IFE ZZ, + 9282 034776 200 00 0 00 035130 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9283 034777 404 00 0 00 035130 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9284 035000 444 00 0 00 035130 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9285 035001 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9286 035002 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9287 STOP^ + 9288 035003 254 04 0 00 035004 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9289 035004 324 00 0 00 035005 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9290 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9291 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9292 + 9293 ;********** + 9294 + 9295 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9296 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9297 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9298 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9299 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9300 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9301 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9302 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9303 013037 SN=SN+1 + 9304 010000 000000 ZZ=ZZ+ZZ + 9305 IFE ZZ, + 9306 035005 200 00 0 00 035131 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9307 035006 404 00 0 00 035131 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9308 035007 444 00 0 00 035131 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9309 035010 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9310 035011 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9311 STOP^ + 9312 035012 254 04 0 00 035013 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9313 035013 324 00 0 00 035014 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9314 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9315 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9316 + 9317 ;********** + 9318 + 9319 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9320 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-14 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0194 + + 9321 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9322 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9323 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9324 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9325 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9326 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9327 013040 SN=SN+1 + 9328 020000 000000 ZZ=ZZ+ZZ + 9329 IFE ZZ, + 9330 035014 200 00 0 00 035132 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9331 035015 404 00 0 00 035132 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9332 035016 444 00 0 00 035132 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9333 035017 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9334 035020 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9335 STOP^ + 9336 035021 254 04 0 00 035022 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9337 035022 324 00 0 00 035023 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9338 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9339 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9340 + 9341 ;********** + 9342 + 9343 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9344 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9345 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9346 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9347 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9348 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9349 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9350 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9351 013041 SN=SN+1 + 9352 040000 000000 ZZ=ZZ+ZZ + 9353 IFE ZZ, + 9354 035023 200 00 0 00 035133 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9355 035024 404 00 0 00 035133 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9356 035025 444 00 0 00 035133 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9357 035026 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9358 035027 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9359 STOP^ + 9360 035030 254 04 0 00 035031 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9361 035031 324 00 0 00 035032 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9362 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9363 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9364 + 9365 ;********** + 9366 + 9367 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9368 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9369 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9370 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9371 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9372 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9373 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9374 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9375 013042 SN=SN+1 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-15 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0195 + + 9376 100000 000000 ZZ=ZZ+ZZ + 9377 IFE ZZ, + 9378 035032 200 00 0 00 035134 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9379 035033 404 00 0 00 035134 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9380 035034 444 00 0 00 035134 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9381 035035 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9382 035036 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9383 STOP^ + 9384 035037 254 04 0 00 035040 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9385 035040 324 00 0 00 035041 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9386 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9387 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9388 + 9389 ;********** + 9390 + 9391 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9392 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9393 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9394 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9395 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9396 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9397 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9398 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9399 013043 SN=SN+1 + 9400 200000 000000 ZZ=ZZ+ZZ + 9401 IFE ZZ, + 9402 035041 200 00 0 00 035135 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9403 035042 404 00 0 00 035135 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9404 035043 444 00 0 00 035135 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9405 035044 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9406 035045 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 + 9407 STOP^ + 9408 035046 254 04 0 00 035047 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9409 035047 324 00 0 00 035050 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9410 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9411 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9412 + 9413 ;********** + 9414 + 9415 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. + 9416 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN + 9417 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). + 9418 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD + 9419 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, + 9420 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. + 9421 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO + 9422 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. + 9423 013044 SN=SN+1 + 9424 400000 000000 ZZ=ZZ+ZZ + 9425 IFE ZZ, + 9426 035050 200 00 0 00 035065 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT + 9427 035051 404 00 0 00 035065 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) + 9428 035052 444 00 0 00 035065 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES + 9429 035053 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 + 9430 035054 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-16 +DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0196 + + 9431 STOP^ + 9432 035055 254 04 0 00 035056 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 9433 035056 324 00 0 00 035057 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO + 9434 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION + 9435 ;IN THE SUBTEST) TO LOOP ON ERROR^ + 9436 + 9437 ;********** + 9438 + 9439 035057 254 00 0 00 030057 ENDXX: JRST BEGEND ;LOOP PROGRAM +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1 +STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0197 + + 9440 SUBTTL *STOR* RESERVED STORAGE, JAN 18,1977 + 9441 + 9442 ;PROGRAM LITERALS + 9443 + 9444 XLIST + 9445 IFNDEF $LPAPER, + 9446 035060 LIT + 9447 035060 000001 000001 + 9448 035061 254 00 0 00 030741 + 9449 035062 000000 000000 + 9450 035063 777777 777777 + 9451 035064 377777 777777 + 9452 035065 400000 000000 + 9453 035066 777000 000000 + 9454 035067 000377 000000 + 9455 035070 000000 177000 + 9456 035071 000000 000777 + 9457 035072 000000 600000 + 9458 035073 000400 000000 + 9459 035074 000000 000001 + 9460 035075 000000 000002 + 9461 035076 000000 000004 + 9462 035077 000000 000010 + 9463 035100 000000 000020 + 9464 035101 000000 000040 + 9465 035102 000000 000100 + 9466 035103 000000 000200 + 9467 035104 000000 000400 + 9468 035105 000000 001000 + 9469 035106 000000 002000 + 9470 035107 000000 004000 + 9471 035110 000000 010000 + 9472 035111 000000 020000 + 9473 035112 000000 040000 + 9474 035113 000000 100000 + 9475 035114 000000 200000 + 9476 035115 000000 400000 + 9477 035116 000001 000000 + 9478 035117 000002 000000 + 9479 035120 000004 000000 + 9480 035121 000010 000000 + 9481 035122 000020 000000 + 9482 035123 000040 000000 + 9483 035124 000100 000000 + 9484 035125 000200 000000 + 9485 035126 001000 000000 + 9486 035127 002000 000000 + 9487 035130 004000 000000 + 9488 035131 010000 000000 + 9489 035132 020000 000000 + 9490 035133 040000 000000 + 9491 035134 100000 000000 + 9492 035135 200000 000000 + 9493 035136 000000 001234 + 9494 035137 000000 777777 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1-1 +STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0198 + + 9495 035140 777777 000000 + 9496 035141 707070 707070 + 9497 035142 777777 777776 + 9498 035143 777777 777775 + 9499 035144 777777 777773 + 9500 035145 777777 777767 + 9501 035146 777777 777757 + 9502 035147 777777 777737 + 9503 035150 777777 777677 + 9504 035151 777777 777577 + 9505 035152 777777 777377 + 9506 035153 777777 776777 + 9507 035154 777777 775777 + 9508 035155 777777 773777 + 9509 035156 777777 767777 + 9510 035157 777777 757777 + 9511 035160 777777 737777 + 9512 035161 777777 677777 + 9513 035162 777777 577777 + 9514 035163 777777 377777 + 9515 035164 777776 777777 + 9516 035165 777775 777777 + 9517 035166 777773 777777 + 9518 035167 777767 777777 + 9519 035170 777757 777777 + 9520 035171 777737 777777 + 9521 035172 777677 777777 + 9522 035173 777577 777777 + 9523 035174 777377 777777 + 9524 035175 776777 777777 + 9525 035176 775777 777777 + 9526 035177 773777 777777 + 9527 035200 767777 777777 + 9528 035201 757777 777777 + 9529 035202 737777 777777 + 9530 035203 677777 777777 + 9531 035204 577777 777777 + 9532 LIST + 9533 035205 000000 000000 ENDSLD: 0 + 9534 + 9535 IFDEF DEBUG,< + 9536 PATCH: BLOCK DEBUG ;PATCHING AREA + 9537 > + 9538 + 9539 ;PROGRAM VARIABLES + 9540 035206 VAR + 9541 + 9542 IFDEF PGMEND,< + 9543 035206 000000 000000 END: 0 + 9544 030000 END BEGIN > + +NO ERRORS DETECTED + +PROGRAM BREAK IS 000000 +ABSLUTE BREAK IS 035207 +DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1-2 +STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0199 + +CPU TIME USED 00:40.863 + +11K CORE USED diff --git a/apps/pdp10/tapes/diags/klad/dakaa/DAKAA.MAC b/apps/pdp10/tapes/diags/klad/dakaa/DAKAA.MAC.txt similarity index 100% rename from apps/pdp10/tapes/diags/klad/dakaa/DAKAA.MAC rename to apps/pdp10/tapes/diags/klad/dakaa/DAKAA.MAC.txt diff --git a/apps/pdp10/tapes/diags/klad/dakaa/DAKAA.SEQ.txt b/apps/pdp10/tapes/diags/klad/dakaa/DAKAA.SEQ.txt deleted file mode 100644 index a28dc653f..000000000 --- a/apps/pdp10/tapes/diags/klad/dakaa/DAKAA.SEQ.txt +++ /dev/null @@ -1,50131 +0,0 @@ -MAINDEC-10-DAKAA - SEQ 0001 - - - - - - - IDENTIFICATION - -------------- - - PRODUCT CODE: MAINDEC-10-DAKAA-B-D - - PRODUCT NAME: DECSYSTEM10 PDP-10 KA10 BASIC - INSTRUCTION DIAGNOSTIC (1) - - FUNCTION: BASIC INSTRUCTIONS - - 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-DAKAA.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-DAKAA.TXT - PAGE 3 SEQ 0003 - - -1.0 ABSTRACT - - THIS PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC IS THE FIRST IN A - SERIES OF PDP-10 KA10 PROCESSOR DIAGNOSTICS. IT IS THE MOST - BASIC OF THE PROCESSOR DIAGNOSTICS. THIS DIAGNOSTIC - ASSUMES THE HALT INSTRUCTION AND THE COMPUTER CONSOLE - TO BE OPERATIVE. IT MAKES NO FURTHER ASSUMPTIONS EXCEPT - THAT IT IS LOADED INTO MEMORY CORRECTLY. - - THE DIAGNOSTIC TESTS SOME OF THE MOVE AND SKIP INSTRUCTIONS. - IT ALSO TESTS THE ADDERS AND OTHER LOGIC WITH AND, XOR, EQV, - AND ALL BOOLE 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 - MAINDEC-10-DAKAA.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-DAKAA.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-DAKAA - SEQ 0006 -************************************************************************ - -PRODUCT CODE: MAINDEC-10-DAKAA - -PRODUCT NAME: BASIC INSTRUCTION DIAGNOSTIC #1 - -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 - -************************************************************************ -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1 -DAKAAT MAC 19-JAN-77 13:31 DIAGNOSTIC PARAMETERS SEQ 0007 - - 1 ;DAKAA - 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 DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 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 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 2 -DAKAAT MAC 19-JAN-77 13:31 DIAGNOSTIC PARAMETERS SEQ 0008 - - 30 SUBTTL DIAGNOSTIC PARAMETERS - 31 - 32 ;PARAMETER DEFINITIONS - 33 000001 EXCASB==1 - 34 000001 USRASB==1 - 35 000001 KA10==1 - 36 - 37 ;FLAG DEFINITIONS - 38 010000 USERF=10000 ;USER MODE FLAG - 39 - 40 - 41 ;MACROS - 42 - 43 ; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1) - 44 ; TO A (JUMPA .-X) TO CYCLE ON FAILING INSTRUCTION - 45 - 46 DEFINE STOP (A)< - 47 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 48 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 49 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 50 ;IN THE SUBTEST) TO LOOP ON ERROR> - 51 - 52 ;SPECIAL FEATURE PARAMETERS - 53 - 54 030742 SADR1=A00 - 55 030742 SADR2=A00 - 56 030742 SADR3=A00 - 57 030742 SADR4=A00 - 58 254000 030742 SADR5=JRST A00 - 59 254000 030742 SADR6=JRST A00 - 60 254000 030742 SADR7=JRST A00 - 61 254000 030742 SADR8=JRST A00 - 62 254000 030742 SADR9=JRST A00 - 63 254000 030742 SADR10=JRST A00 - 64 254000 030742 SADR11=JRST A00 - 65 - 66 000000 PAREA0=0 - 67 000000 PAREA1=0 - 68 000000 PAREA2=0 - 69 444153 414100 PAREA3=SIXBIT/DAKAA/ - 70 645560 000000 PAREA4=SIXBIT/TMP/ - 71 000000 PAREA5=0 - 72 000000 PAREA6=0 - 73 001000 ITERAT==1000 - 74 777777 777777 PGMEND==-1 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1 -PARAM KLM 18-JAN-77 11:38 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977 SEQ 0009 - - 75 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977 - 76 - 77 DEFINE S,<;*********************************************************************> - 78 - 79 S^;*********************************************************************^ - 80 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE) - 81 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE - 82 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS - 83 S^;*********************************************************************^ - 84 - 85 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION - 86 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS - 87 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE - 88 - 89 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) - 90 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) - 91 010000 DING== 010000 ;RING BELL ON ERROR - 92 - 93 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR - 94 002000 ERSTOP==002000 ;HALT ON TEST ERROR - 95 001000 PALERS==001000 ;PRINT ALL ERRORS - 96 - 97 000400 RELIAB==000400 ;RELIABILITY MODE - 98 000200 TXTINH==000200 ;INHIBIT ERROR TEXT - 99 000100 INHPAG==000100 ;INHIBIT PAGING - 100 - 101 000040 MODDVC==000040 ;MODIFY DEVICE CODE - 102 000020 INHCSH==000020 ;INHIBIT CACHE - 103 000010 OPRSEL==000010 ;OPERATOR SELECTION - 104 - 105 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH - 106 - 107 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER - 108 - 109 ;SWITCH 17 RESERVED !!! -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 2 -PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0010 - - 110 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 - 111 - 112 S^;*********************************************************************^ - 113 ;*SPECIAL SUBPROGRAM LINKAGES - 114 S^;*********************************************************************^ - 115 - 116 027772 FSELNK= 27772 ;FILE SELECT LINK - 117 027773 FRDLNK= 27773 ;FILE READ LINK - 118 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS - 119 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS - 120 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS - 121 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS - 122 - 123 S^;*********************************************************************^ - 124 ;*SPECIAL SUBROUTINE FATAL HALTS - 125 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE - 126 S^;*********************************************************************^ - 127 - 128 ;ADDRESS TAG REASON - 129 ;--------------------- - 130 - 131 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION - 132 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR - 133 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR - 134 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT - 135 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL - 136 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET - 137 ; 1016 CPIERR ;CPU INITIALIZATION ERROR - 138 ; 1017 EOPERR ;END OF PROGRAM ERROR - 139 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT - 140 - 141 S^;*********************************************************************^ -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 3 -PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0011 - - 142 S^;*********************************************************************^ - 143 ;OPERATOR DEFINITIONS (NON-UUO'S) - 144 S^;*********************************************************************^ - 145 - 146 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL - 147 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN - 148 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST - 149 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST - 150 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S - 151 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT - 152 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT - 153 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT - 154 - 155 S^;*********************************************************************^ - 156 ;*SUBROUTINE INITIALIZATION CALL - 157 S^;*********************************************************************^ - 158 - 159 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION - 160 - 161 S^;*********************************************************************^ - 162 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). - 163 S^;*********************************************************************^ - 164 - 165 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT - 166 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT - 167 - 168 S^;*********************************************************************^ - 169 ;*TERMINAL INPUT UUO'S - 170 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE - 171 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. - 172 S^;*********************************************************************^ - 173 - 174 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER - 175 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y - 176 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N - 177 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD - 178 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD - 179 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD - 180 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK - 181 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK - 182 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD - 183 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 4 -PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0012 - - 184 ;*TERMINAL OUTPUT UUO'S. - 185 - 186 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD - 187 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED - 188 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE - 189 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED - 190 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE - 191 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED - 192 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE - 193 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED - 194 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE - 195 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED - 196 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE - 197 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED - 198 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER - 199 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED - 200 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT - 201 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED - 202 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS - 203 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED - 204 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS - 205 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED - 206 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS - 207 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED - 208 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS - 209 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED - 210 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS - 211 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED - 212 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS - 213 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED - 214 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS - 215 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. - 216 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS - 217 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED - 218 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL - 219 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED - 220 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 - 221 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED - 222 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S - 223 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED - 224 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S - 225 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED - 226 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S - 227 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED - 228 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME - 229 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD - 230 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED - 231 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE - 232 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD - 233 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED - 234 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED - 235 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED - 236 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE - 237 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED - 238 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 4-1 -PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0013 - - 239 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED - 240 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL - 241 - 242 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE - 243 - 244 DEFINE PMSG (ARG),< - 245 PSIXM [SIXBIT\ARG'_\]> - 246 - 247 DEFINE PMSGF (ARG),< - 248 PSIXMF [SIXBIT\ARG'_\]> - 249 - 250 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING - 251 ;* CONSERVES CORE OVER ASCIZ - 252 - 253 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> - 254 - 255 ;*CONSOLE SWITCH INPUT UUO. - 256 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF - 257 ;* USER MODE. - 258 - 259 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES - 260 - 261 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION - 262 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. - 263 - 264 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK - 265 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER - 266 - 267 ;*KL10 ONLY CACHE OPERATION UUO'S - 268 - 269 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE - 270 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH - 271 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 5 -PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0014 - - 272 ;*END OF PASS/PROGRAM UUOS - 273 - 274 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, - 275 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. - 276 - 277 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS - 278 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO - 279 - 280 ;*MEMORY MANAGEMENT UUO'S - 281 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, - 282 ;*ADDRESS CONVERSION, ETC... - 283 - 284 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY - 285 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY - 286 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT - 287 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT - 288 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK - 289 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP - 290 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP - 291 - 292 ;*DEVICE CODE MODIFICATION UUO - 293 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO - 294 ;*IOT'S TO A DIFFERENT DEVICE CODE. - 295 - 296 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER - 297 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM - 298 - 299 030000 IFNDEF MODDVL, - 300 030000 IFNDEF MODDVU, - 301 - 302 ;*"DIAMON" FILE SELECTION AND READ UUOS - 303 - 304 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION - 305 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA - 306 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA - 307 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA - 308 - 309 ;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES - 310 - 311 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE - 312 - 313 XLIST - 314 IFNDEF KLOLD, - 340 - 341 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP - 342 - 343 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< - 344 SALL - 345 ERUUO FORMAT,[T,,[SIXBIT\F'_\] - 346 CORECT,,ACTUAL - 347 [SIXBIT\D'_\],,ERR] - 348 XALL > - 349 - 350 >;END OF KLOLD CONDITIONAL - 351 - 352 XLIST - 353 LIST -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1 -FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0016 - - 354 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 - 355 - 356 030000 LOC 30000 - 357 - 358 S^;*********************************************************************^ - 359 ;*PROGRAM STARTING ADDRESSES - 360 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS - 361 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE - 362 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER - 363 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. - 364 S^;*********************************************************************^ - 365 - 366 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START - 367 030001 254 00 0 00 030712 $START: JRST START ;MODE CHECK STARTING ADDRESS - 368 - 369 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START - 370 - 371 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START - 372 - 373 030004 254 00 0 00 030742 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START - 374 - 375 030005 254 00 0 00 030742 PFSTRT: JRST SADR2 ;POWER FAIL RESTART - 376 - 377 030006 254 00 0 00 030742 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) - 378 - 379 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" - 380 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START - 381 - 382 030010 254 00 0 00 030741 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) - 383 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE - 384 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE - 385 - 386 030013 254000 030742 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS - 387 030014 254000 030742 START2: SADR8 ; " - 388 030015 254000 030742 START3: SADR9 ; " - 389 030016 254000 030742 START4: SADR10 ; " - 390 030017 254000 030742 START5: SADR11 ; " -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 2 -FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0017 - - 391 S^;*********************************************************************^ - 392 ;*PROGRAM FIXED PARAMETER AREA - 393 S^;*********************************************************************^ - 394 - 395 030020 444153 414100 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME - 396 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION - 397 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER - 398 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES - 399 030024 000000 001000 ITRCNT: ITERAT ;PROGRAM ITERATIONS - 400 030025 000000 030725 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME - 401 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL - 402 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT - 403 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT - 404 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED - 405 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED - 406 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE - 407 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS - 408 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER - 409 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER - 410 - 411 S^;*********************************************************************^ - 412 ;*PROGRAM VARIABLE PARAMETER AREA - 413 S^;*********************************************************************^ - 414 - 415 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG - 416 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 - 417 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 - 418 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG - 419 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG - 420 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 - 421 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG - 422 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS - 423 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT - 424 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG - 425 030051 000000 000000 TESTPC: 0 ;SUBTEST PC - 426 030052 000000 000000 ERRPC: 0 ;ERROR PC - 427 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS - 428 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME - 429 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE - 430 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 3 -FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0018 - - 431 S^;*********************************************************************^ - 432 ;*SPECIAL PROGRAM DISPATCH ADDRESSES - 433 S^;*********************************************************************^ - 434 - 435 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS - 436 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM - 437 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN - 438 030062 254000 030742 CNTLC: SADR5 ;CONTROL C XFER ADDRESS - 439 030063 254000 030742 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS - 440 030064 CPOPJ1: ;SKIP RETURN - 441 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO - 442 030065 CPOPJ: ;NON-SKIP REGULAR RETURN - 443 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN - 444 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE - 445 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE - 446 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) - 447 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE - 448 030072 255 00 0 00 000000 $ITRX1: JFCL ; " - 449 030073 255 00 0 00 000000 $USRHL: JFCL ; " - 450 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE - 451 030075 255 00 0 00 000000 $RSRTY: JFCL ; " - 452 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) - 453 030077 255 00 0 00 000000 RESRT2: JFCL ; " - 454 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE - 455 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE - 456 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT - 457 - 458 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) - 459 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT - 460 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) - 461 - 462 S^;*********************************************************************^ - 463 ;*PROCESSOR CONTROL STORAGE - 464 S^;*********************************************************************^ - 465 - 466 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 - 467 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI - 468 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR - 469 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) - 470 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) - 471 - 472 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO - 473 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO - 474 - 475 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS - 476 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG - 477 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG - 478 030120 000000 000000 %COREC: 0 ; " CORRECT DATA - 479 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG - 480 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA - 481 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 4 -FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0019 - - 482 S^;*********************************************************************^ - 483 ;*UUO DISPATCH TABLE - 484 S^;*********************************************************************^ - 485 XLIST - 486 LIST - 487 030124 030070 030070 UUODIS: LUUO1,,$UUOER - 488 030125 030070 030070 LUUO3,,LUUO2 - 489 030126 030070 030070 LUUO5,,LUUO4 - 490 030127 030070 030070 LUUO7,,LUUO6 - 491 030130 030070 030070 LUUO11,,LUUO10 - 492 030131 030070 030070 LUUO13,,LUUO12 - 493 030132 030070 030070 LUUO15,,LUUO14 - 494 030133 030070 030070 LUUO17,,LUUO16 - 495 030134 030070 030070 LUUO21,,LUUO20 - 496 030135 030070 030070 LUUO23,,LUUO22 - 497 030136 030070 030070 LUUO25,,LUUO24 - 498 030137 030070 030070 LUUO27,,LUUO26 - 499 030140 030070 030070 LUUO31,,LUUO30 - 500 030141 030070 030070 LUUO33,,LUUO32 - 501 - 502 S^;*********************************************************************^ - 503 ;*MEMORY MANAGMENT STORAGE - 504 S^;*********************************************************************^ - 505 - 506 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT - 507 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING - 508 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) - 509 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY - 510 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE - 511 - 512 S^;*********************************************************************^ - 513 ;*PRINT CONTROL STORAGE - 514 S^;*********************************************************************^ - 515 - 516 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE - 517 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE - 518 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG - 519 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS - 520 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL - 521 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME - 522 030225 000000 000000 $TWCNT: 0 ;TIME WAITED - 523 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG - 524 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG - 525 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE - 526 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR - 527 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR - 528 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER - 529 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG - 530 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG - 531 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG - 532 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG - 533 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS - 534 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 5 -FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0020 - - 535 S^;*********************************************************************^ - 536 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED - 537 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: - 538 ;* MOVEI NAME - 539 ;* PNTA ;OR PNTAF - 540 S^;*********************************************************************^ - 541 - 542 030242 CRLF: ASCII/ - 543 030242 015 012 000 000 000 / - 544 030243 CRLF2: ASCII/ - 545 - 546 030243 015 012 015 012 000 / - 547 030244 054 000 000 000 000 COMMA: ASCII/,/ - 548 030245 056 000 000 000 000 PERIOD: ASCII/./ - 549 030246 040 000 000 000 000 SPACE: ASCII/ / - 550 030247 011 000 000 000 000 TAB: ASCII/ / - 551 030250 MINUS: - 552 030250 055 000 000 000 000 HYPEN: ASCII/-/ - 553 030251 053 000 000 000 000 PLUS: ASCII/+/ - 554 030252 052 000 000 000 000 AST: ASCII/*/ - 555 030253 100 000 000 000 000 ATSIN: ASCII/@/ - 556 030254 050 000 000 000 000 LFP: ASCII/(/ - 557 030255 051 000 000 000 000 RTP: ASCII/)/ - 558 030256 007 0000000000 BELL: BYTE (7) 007 - 559 030257 077 000 000 000 000 QUEST: ASCII/?/ - 560 030260 057 000 000 000 000 SLASH: ASCII!/! - 561 030261 044 000 000 000 000 DOLLAR: ASCII/$/ - 562 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX - 563 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR - 564 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT - 565 - 566 S^;*********************************************************************^ - 567 ;*USER MODE OUTPUT FILE INFORMATION - 568 S^;*********************************************************************^ - 569 - 570 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER - 571 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME - 572 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION - 573 030272 BLOCK 2 - 574 - 575 S^;*********************************************************************^ - 576 ;*DISK UPDATE MODE FILE INFORMATION - 577 S^;*********************************************************************^ - 578 - 579 030274 $IBUF: BLOCK 3 - 580 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ - 581 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ - 582 030301 BLOCK 2 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 6 -FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0021 - - 583 S^;*********************************************************************^ - 584 ;*PUSHDOWN LIST CONTROL INFORMATION - 585 S^;*********************************************************************^ - 586 - 587 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST - 588 030304 PLISTS: BLOCK 200 - 589 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST - 590 - 591 S^;*********************************************************************^ - 592 ;*POWER LINE CLOCK FREQUENCY FLAG - 593 S^;*********************************************************************^ - 594 - 595 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE - 596 - 597 S^;*********************************************************************^ - 598 ;*KL10 CACHE CONTROL FLAGS - 599 S^;*********************************************************************^ - 600 - 601 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 - 602 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 - 603 - 604 S^;*********************************************************************^ - 605 ;*NUMBER INPUT DIGIT FLAG - 606 S^;*********************************************************************^ - 607 - 608 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED - 609 - 610 S^;*********************************************************************^ - 611 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION - 612 S^;*********************************************************************^ - 613 - 614 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION - 615 - 616 S^;*********************************************************************^ - 617 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS - 618 S^;*********************************************************************^ - 619 - 620 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO - 621 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO - 622 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO - 623 - 624 S^;*********************************************************************^ - 625 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION - 626 S^;*********************************************************************^ - 627 - 628 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 7 -FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0022 - - 629 S^;*********************************************************************^ - 630 ;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD - 631 S^;*********************************************************************^ - 632 - 633 030516 000000 000000 KLTYP: 0 - 634 - 635 S^;*********************************************************************^ - 636 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION - 637 S^;*********************************************************************^ - 638 - 639 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER - 640 - 641 S^;*********************************************************************^ - 642 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION - 643 S^;*********************************************************************^ - 644 - 645 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR - 646 - 647 S^;*********************************************************************^ - 648 ;*"SWITCH" CALL USAGE CONTROL - 649 S^;*********************************************************************^ - 650 - 651 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES - 652 - 653 S^;*********************************************************************^ - 654 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS - 655 S^;*********************************************************************^ - 656 - 657 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL - 658 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL - 659 - 660 S^;*********************************************************************^ - 661 ;*SPECIAL FUTURE EXPANSION ROOM - 662 ;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF - 663 ;*THIS BLOCK STATEMENT ACCORDINGLY. THIS MUST BE DONE - 664 ;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE. - 665 S^;*********************************************************************^ - 666 - 667 030524 BLOCK 53 ;HOPEFULLY THIS IS ENOUGH FOREVER - 668 - 669 S^;*********************************************************************^ - 670 ;*END OF FIXED STORAGE - 671 S^;*********************************************************************^ - 672 - 673 030577 $ENDFX=&<777700>-1 - 674 030577 LOC $ENDFX - 675 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1 -SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0023 - - 676 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 - 677 - 678 ;NEW DEFINITIONS USED BY THE KL10 SUBROUTINE PACKAGE - 679 - 680 000000 AC0= 0 - 681 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS - 682 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS - 683 020000 DIAMON= 20000 ;PDP-10 DIAMON LOADER START ADDRESS - 684 020000 DONG11= 1B22 ;11 DOORBELL (FROM THE 10) - 685 - 686 ;DTE20 DEVICE CODES - 687 - 688 000200 DTE== 200 ;DTE0 - 689 000204 DTE0== 204 - 690 000204 DTE1== 204 - 691 000210 DTE2== 210 - 692 000214 DTE3== 214 - 693 - 694 ;KL10 EPT COMMUNICATION AREA - 695 - 696 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS - 697 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS - 698 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS - 699 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS - 700 - 701 000444 $DTFLG= 444 ;DTE20 OPERATION COMPLETE FLAG - 702 000445 $DTCLK= 445 ;DTE20 CLOCK INTERRUPT FLAG - 703 000446 $DTCI= 446 ;DTE20 CLOCK INTERRUPT INSTRUCTION - 704 000447 $DTT11= 447 ;DTE20 10 TO 11 ARGUMENT - 705 000450 $DTF11= 450 ;DTE20 11 TO 10 ARGUMENT - 706 000451 $DTCMD= 451 ;DTE20 TO 11 COMMAND WORD - 707 000452 $DTSEQ= 452 ;DTE20 OPERATION SEQUENCE NUMBER - 708 000453 $DTOPR= 453 ;DTE20 OPERATIONAL DTE # - 709 000454 $DTCHR= 454 ;DTE20 LAST TYPED CHARACTER - 710 000455 $DTMTD= 455 ;DTE20 MONITOR TTY OUTPUT COMPLETE FLAG - 711 000456 $DTMTI= 456 ;DTE20 MONITOR TTY INPUT FLAG - 712 - 713 000457 $DTSWR= 457 ;DTE20 CONSOLE SWITCH REGISTER -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 2 -SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0024 - - 714 ;SPECIAL "FIXED" REASSIGNMENTS - 715 - 716 030600 $$LOC=. ;SAVE CURRENT LOCATION - 717 - 718 030000 LOC 30000 - 719 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START - 720 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS - 721 - 722 000440 LOC 440 - 723 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD" - 724 000443 LOC 443 - 725 000443 254 00 0 00 030636 $STM: JRST $SPEC ;SIMPLE RUN CONTROL - 726 - 727 030057 LOC 30057 - 728 030057 254 00 0 00 030641 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND" - 729 - 730 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP - 731 - 732 000420 LOC 420 - 733 000420 254 04 0 00 000420 $$420: HALT . ;KI10 PAGE FAIL - 734 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW - 735 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW - 736 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3 - 737 000424 000000 000000 $$424: 0 ;MMUO - 738 000425 000000 000000 $$425: 0 ;MMUO PC - 739 000426 000000 000000 $$426: 0 ;KI10-PAGE FAIL, KL10-PROCESS CONTEXT - 740 000427 254 04 0 00 000427 $$427: HALT . - 741 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S - 742 000431 000000 000427 $$431: 427 - 743 000432 000000 000427 $$432: 427 - 744 000433 000000 000427 $$433: 427 - 745 000434 000000 000427 $$434: 427 - 746 000435 000000 000427 $$435: 427 - 747 000436 000000 000427 $$436: 427 - 748 000437 000000 000427 $$437: 427 - 749 - 750 000500 LOC 500 - 751 000500 000000 000000 $$500: 0 ;KL10 PAGE FAIL WORD - 752 000501 000000 000000 $$501: 0 ;KL10 PAGE FAIL PC - 753 000502 000000 000503 $$502: 503 ;KL10 PAGE FAIL NEW PC - 754 000503 254 04 0 00 000503 $$503: HALT . -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 3 -SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0025 - - 755 030600 LOC $$LOC ;RESET CURRENT LOCATION - 756 - 757 ;SPECIAL STARTUP SEQUENCE - 758 - 759 030600 402 00 0 00 030037 $$START:SETZM USER - 760 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ? - 761 030602 603 00 0 00 010000 TLNE 0,USERF - 762 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD - 763 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ? - 764 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC - 765 030606 332 00 0 00 030037 SKIPE USER - 766 030607 254 00 0 00 030712 JRST START ;USER MODE, DON'T NEED CPU TYPE - 767 - 768 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ? - 769 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER - 770 030612 402 00 0 00 030516 SETZM KLTYP - 771 030613 402 00 0 00 030041 SETZM KLFLG ;ASSUME KI10 - 772 030614 200 01 0 00 035060 MOVE 1,[1,,1] - 773 030615 251 01 0 00 000001 BLT 1,1 ;HOPE THIS WORKS - 774 030616 316 01 0 00 035060 CAMN 1,[1,,1] ;IF AC NE 1,,1 AFTER BLT, KL10 - 775 030617 254 00 0 00 030712 JRST START ;KI10, NO ADDITIONAL SETUP - 776 - 777 030620 7 000 20 0 00 010040 $STKL: CONO APR,10040 ;SET BBD NOT BIT - 778 030621 7 000 24 0 00 000000 CONI APR,0 - 779 030622 7 000 20 0 00 020040 CONO APR,20040 ;CLEAR BBD NOT BIT - 780 030623 606 00 0 00 000040 TRNN 0,40 ;IF SET, KL10 - 781 030624 350 00 0 00 030516 AOS KLTYP ;IF NOT, BBD - 782 030625 402 00 0 00 000444 SETZM $DTFLG - 783 030626 402 00 0 00 000445 SETZM $DTCLK - 784 030627 200 00 0 00 000453 MOVE $DTOPR ;GET DTE # - 785 030630 436 00 0 00 030670 ORM $$DTE0 ;INSERT IN DTE I/O INSTS - 786 030631 436 00 0 00 030672 ORM $$DTE1 - 787 030632 436 00 0 00 030704 ORM $$DTE2 - 788 030633 436 00 0 00 030706 ORM $$DTE3 - 789 030634 476 00 0 00 030041 SETOM KLFLG ;SET KL10 CONTROL FLAG - 790 030635 254 00 0 00 030712 JRST START - 791 - 792 030636 200 00 0 00 035061 $SPEC: MOVE [JRST STARTA] ;SIMPLE RUN CONTROL - 793 030637 202 00 0 00 030643 MOVEM $SPB1 - 794 030640 254 00 0 00 030712 JRST START -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 4 -SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0026 - - 795 ;SPECIAL "BEGEND" ROUTINE - 796 - 797 030641 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT - 798 030642 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT - 799 030643 336 00 0 00 030037 $SPB1: SKIPN USER - 800 030644 254 00 0 00 030652 JRST $SPBEX ;EXEC MODE - 801 - 802 030645 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ? - 803 030646 254 00 0 00 030741 JRST STARTA ;NO, KEEP RUNNING - 804 030647 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? - 805 030650 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR - 806 030651 254 00 1 00 030012 JRST @RETURN ;YES, RETURN TO "DIAMON" - 807 - 808 030652 332 00 0 00 030041 $SPBEX: SKIPE KLFLG - 809 030653 254 00 0 00 030660 JRST $SPBKL ;KL10 & EXEC - 810 030654 7 004 14 0 00 030024 DATAO PI,ITRCNT ;KI10 & EXEC, DISPLAY ITER COUNT - 811 030655 332 00 0 00 030024 SKIPE ITRCNT - 812 030656 254 00 0 00 030741 JRST STARTA ;NOT COMPLETED YET - 813 030657 254 00 1 00 030012 JRST @RETURN ;DONE - 814 - 815 030660 336 00 0 00 030024 $SPBKL: SKIPN ITRCNT - 816 030661 254 00 0 00 030676 JRST $SPKLD ;KL10, EXEC & COMPLETED - 817 - 818 030662 335 00 0 00 030043 SKIPGE MONCTL - 819 030663 254 00 0 00 030741 JRST STARTA ;"DIAMON" CONTROL - 820 030664 201 00 0 00 000404 MOVEI 0,404 ;NOTIFY PDP-11 OF END OF PASS - 821 030665 202 00 0 00 000451 MOVEM 0,$DTCMD - 822 030666 402 00 0 00 000444 SETZM $DTFLG - 823 030667 336 00 0 00 030516 SKIPN KLTYP - 824 030670 7 200 20 0 00 020000 $$DTE0: CONO DTE,DONG11 - 825 030671 332 00 0 00 030516 SKIPE KLTYP - 826 030672 7 200 20 0 00 010000 $$DTE1: CONO DTE,10000 - 827 030673 336 00 0 00 000444 SKIPN $DTFLG ;WAIT TILL 11 RESPONDS - 828 030674 254 00 0 00 030673 JRST .-1 - 829 030675 254 00 0 00 030741 JRST STARTA ;KEEP RUNNING - 830 - 831 ;SPECIAL KL10 COMPLETED ROUTINE - 832 - 833 030676 332 00 0 00 030044 $SPKLD: SKIPE MONTEN - 834 030677 254 00 1 00 030012 JRST @RETURN ;LOADED BY "DIAMON" - 835 - 836 030700 201 00 0 00 000403 MOVEI 0,403 ;NOTIFY PDP-11 OF COMPLETION - 837 030701 202 00 0 00 000451 MOVEM 0,$DTCMD - 838 030702 402 00 0 00 000444 SETZM $DTFLG - 839 030703 336 00 0 00 030516 SKIPN KLTYP - 840 030704 7 200 20 0 00 020000 $$DTE2: CONO DTE,DONG11 - 841 030705 332 00 0 00 030516 SKIPE KLTYP - 842 030706 7 200 20 0 00 010000 $$DTE3: CONO DTE,10000 - 843 030707 336 00 0 00 000444 SKIPN $DTFLG ;SHOULD NEVER HAPPEN - 844 030710 254 00 0 00 030707 JRST .-1 ;11 NEVER RETURNS ON END OF PROGRAM - 845 030711 254 04 0 00 030000 HALT BEGIN ;IF IT DOES, HALT. -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1 -DAKAAM MAC 19-JAN-77 13:42 DIAGNOSTIC SECTION SEQ 0027 - - 846 SUBTTL DIAGNOSTIC SECTION - 847 - 848 030712 402 00 0 00 030037 START: SETZM USER# ;CLEAR USER CONTROL WORD - 849 030713 265 00 0 00 030714 JSP 0,.+1 ;GET FLAGS - 850 030714 603 00 0 00 010000 TLNE USERF ;IN USER MODE? - 851 030715 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD - 852 030716 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE? - 853 030717 402 00 0 00 030037 SETZM USER ;YES, CLEAR USER CONTROL WORD - 854 030720 336 00 0 00 030037 SKIPN USER - 855 030721 254 00 0 00 030741 JRST STARTA - 856 030722 331 00 0 00 030043 SKIPL MONCTL - 857 030723 051 03 0 00 030725 TTCALL 3,PGMNAM ;MENTION OUR NAME - 858 030724 254 00 0 00 030741 JRST STARTA - 859 - 860 030725 PGMNAM: ASCIZ/ - 861 030725 015 012 120 104 120 PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) [DAKAA] - 862 030726 055 061 060 040 113 - 863 030727 101 061 060 040 102 - 864 030730 101 123 111 103 040 - 865 030731 111 116 123 124 122 - 866 030732 125 103 124 111 117 - 867 030733 116 040 104 111 101 - 868 030734 107 116 117 123 124 - 869 030735 111 103 040 050 061 - 870 030736 051 040 133 104 101 - 871 030737 113 101 101 135 015 - 872 030740 012 000 000 000 000 / - 873 - 874 ;BASIC INSTRUCTION TEST (3) - 875 ;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF - 876 ;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES - 877 ;IN THE FIELD. - 878 - 879 - 880 030741 254 00 0 00 030742 STARTA: JRST .+1 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 2 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0028 - - 881 SUBTTL TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS - 882 - 883 ;NOTE: AN "*" IN THE COMMENT FIELD OF AN INSTRUCTION INDICATES THAT IT IS THE TESTED - 884 ;INSTRUCTION. - 885 ;********** - 886 - 887 ;THIS TEST VERIFIES THAT SKIPA ALWAYS SKIPS THE NEXT INSTRUCTION - 888 - 889 030742 A00=. - 890 030742 334 00 0 00 000000 A12500: SKIPA ;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION - 891 030743 254 04 0 00 000000 HALT ;IF PROGRAM HALTS, SKIPA DID NOT SKIP - 892 - 893 ;IF PROGRAM HANGS UP ON SKIPA INSTRUCTION, CHECK AB PC EN [ABC], AB PC F/F [ABC], - 894 ;AB PC B [ABC OR AB], AB PC (FETCH) EN [ABC], IR SKIPS [IR3], IR SKIPX [IR1], - 895 ;IR 3XX [IR1], IR BITS 00 - 08 [IR1], F CYC ACT EN C [FI], FT6 F/F [F2], - 896 ;PC CLOCK EN [PCC], ET2 J F/F [E], PC CLK (ET2) EN [PCC], ADZ COND P [ADZ] AND - 897 ;ADZ COND R [ADZ], PC CLOCK A [PCC], PC CLOCK B [PCC] - 898 - 899 ;IF PROGRAM HALTED ON HALT INSTRUCTION, CHECK ST1 COND [ST2] - 900 - 901 ;********** - 902 - 903 ;THIS TEST VERIFIES THAT JUMP NEVER JUMPS - 904 - 905 030744 320 00 0 00 030745 A15000: JUMP .+1 ;*JUMP SHOULD NEVER JUMP - 906 030745 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF JUMP IS SUCCESSFUL - 907 030746 254 04 0 00 000000 HALT ;HALT IF JUMP FAILS - 908 - 909 ;IF PROGRAM HANGS UP ON JUMP .+1 INSTRUCTION, THE JUMP INSTRUCTION - 910 ;MAY HAVE FAILED. CHECK ST1 COND [ST2], ST INST FET ST1 EN [ST2], ET2 D F/F [E], - 911 ;IR JUMPS [IR1], IR JUMPX [IR1] - 912 - 913 ;********** - 914 ;THIS TEST VERIFIES THAT JUMP NEVER JUMPS - 915 - 916 030747 320 00 0 00 030751 A15100: JUMP .+2 ;*JUMP SHOULD NEVER JUMP - 917 030750 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF JUMP IS SUCCESSFUL - 918 030751 254 04 0 00 000000 HALT ;HALT IF JUMP FAILS - 919 - 920 ;AB PC EN [ABC] - 921 - 922 ;********** - 923 - 924 ;THIS TEST VERIFIES THAT JUMPA .+1 ALWAYS JUMPS TO THE NEXT INSTRUCTION - 925 - 926 030752 324 00 0 00 030753 A12700: JUMPA .+1 ;*JUMPA .+1 SHOULD NEVER JUMP - 927 030753 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF JUMPA IS SUCCESSFUL - 928 030754 254 04 0 00 000000 HALT ;HALT IF JUMPA .+1 FAILED - 929 - 930 ;********** - 931 - 932 ;THIS TEST VERIFIES THAT JUMPA JUMPS TO THE LOCATION SPECIFIED BY E WHEN E=.+2 - 933 - 934 030755 324 00 0 00 030757 A12600: JUMPA .+2 ;*JUMPA .+2 SHOULD ALWAYS SKIP THE NEXT INSTRUCTION - 935 030756 254 04 0 00 000000 HALT ;PROGRAM HALTS HERE IF JUMPA .+2 FAILS -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 2-1 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0029 - - 936 - 937 ;ST1 COND [ST2] - 938 - 939 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 3 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0030 - - 940 ;THIS TEST VERIFIES THAT SKIPA IS DATA INDEPENDENT. HENCE, IT ALWAYS SKIPS THE NEXT - 941 ;INSTRUCTION. - 942 ;THE MOVE [0] INSTRUCTION IS USED TO TEST THE DATA INDEPENDENCE OF SKIPA. - 943 - 944 030757 200 00 0 00 035062 A100: MOVE [0] ;PRESET LOCATION 0 TO ALL ZEROS - 945 030760 334 00 0 00 000000 SKIPA ;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION - 946 STOP^ - 947 030761 254 04 0 00 030762 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 948 030762 324 00 0 00 030763 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 949 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 950 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 951 - 952 ;********** - 953 ;THIS TEST INSURES THAT SKIPA IS DATA INDEPENDENT. HENCE, IT ALWAYS SKIPS THE NEXT - 954 ;INSTRUCTION. - 955 ;THE MOVE [-1] INSTRUCTION IS USED TO TEST THE DATA INDEPENDENCE OF SKIPA. - 956 - 957 030763 200 00 0 00 035063 A200: MOVE [-1] ;PRESET LOCATION 0 TO ALL ONES - 958 030764 334 00 0 00 000000 SKIPA ;*SKIPA SKOULD ALWAYS SKIP THE NEXT INSTRUCTION - 959 STOP^ - 960 030765 254 04 0 00 030766 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 961 030766 324 00 0 00 030767 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 962 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 963 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 964 - 965 ;COND P [ADZ] - 966 - 967 ;********** - 968 ;THIS TEST VERIFIES THAT SKIPGE SKIPS THE NEXT INSTRUCTION WHEN C(E) - 969 ;IS ALL ZEROS. THE MOVE INSTRUCTION IS USED TO LOAD E WITH ALL ZEROS. - 970 - 971 030767 200 00 0 00 035062 A300: MOVE [0] ;PRESET E TO ALL ZEROS - 972 030770 335 00 0 00 000000 SKIPGE ;*SKIPGE SHOULD SKIP THE NEXT INSTRUCTION - 973 STOP^ - 974 030771 254 04 0 00 030772 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 975 030772 324 00 0 00 030773 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 976 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 977 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 978 - 979 ;COND R [ADZ], AD00 S-A-1, AD AR + EN [ADAP], AD LT AR + EN [ADAP], - 980 ;AD RT AR + EN [ADAP], AD AR + EN C [ADAP], F CYC ACT EN A [F1] - 981 - 982 ;********** - 983 - 984 ;THIS TEST VERIFIES THAT SKIP IS DATA INDEPENDENT. HENCE, SKIP NEVER SKIPS. IT ALWAYS - 985 ;CONTINUES ON TO THE NEXT INSTRUCTION. - 986 - 987 030773 200 00 0 00 035063 A400: MOVE [-1] ;PRESET E TO ALL ONES - 988 030774 330 00 0 00 000000 SKIP ;*SKIP SHOULD NEVER SKIP THE NEXT INSTRUCTION - 989 030775 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - 990 STOP^ - 991 030776 254 04 0 00 030777 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 992 030777 324 00 0 00 031000 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 993 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 994 ;IN THE SUBTEST) TO LOOP ON ERROR^ -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 3-1 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0031 - - 995 - 996 ;PC CHANGE [PCC], PC CHANGE A [PCC], SEE MEMORY CONTROL DWGS [MC1-4] - 997 - 998 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 4 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0032 - - 999 ;THIS TEST VERIFIES THAT SKIPGE WILL NOT SKIP THE NEXT INSTRUCTION WHEN C(E) IS - 1000 ;NEGATIVE. THE MOVE INSTRUCTION LOADS E WITH -1, A NEGATIVE NUMBER. - 1001 - 1002 031000 200 00 0 00 035063 A500: MOVE [-1] ;PRESET E WITH ALL ONES, A NEGATIVE NUMBER - 1003 031001 335 00 0 00 000000 SKIPGE ;*SKIPGE SHOULD NOT SKIP THE NEXT INSTRUCTION - 1004 031002 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - 1005 STOP^ - 1006 031003 254 04 0 00 031004 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1007 031004 324 00 0 00 031005 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1008 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1009 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1010 - 1011 ;IF MOVE INSTRUCTION FAILED, CHECK MOVX-: FCE [F1], -IR XXXI [IR1], -IR XXXM [IR1], - 1012 ;IR HWTFWT [IR3], IR FWT [IR2], IR2XX [IR1] - 1013 - 1014 ;IF SKIPGE FAILED, CHECK SKIPX: FCE [F1] - 1015 - 1016 ;********** - 1017 - 1018 ;THIS TEST VERIFIES THAT SKIPN WILL NOT SKIP THE NEXT INSTRUCTION WHEN - 1019 ;C(E) IS ZERO. THE MOVE INSTRUCTION LOADS E WITH ALL ZEROS. - 1020 - 1021 031005 200 00 0 00 035062 A600: MOVE [0] ;PRESET E WITH ALL ZEROS - 1022 031006 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD NOT SKIP THE NEXT INSTRUCTION - 1023 031007 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - 1024 STOP^ - 1025 031010 254 04 0 00 031011 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1026 031011 324 00 0 00 031012 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1027 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1028 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1029 - 1030 ;********** - 1031 - 1032 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT SHOULD SKIP - 1033 ;THE NEXT INSTRUCTION WHEN C(E) IS NON-ZERO. THE MOVE INSTRUCTION LOADS - 1034 ;E WITH -1, A NON-ZERO NUMBER. - 1035 - 1036 031012 200 00 0 00 035063 A700: MOVE [-1] ;PRESET E WITH ALL ONES, A NON-ZERO NUMBER - 1037 031013 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1038 STOP^ - 1039 031014 254 04 0 00 031015 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1040 031015 324 00 0 00 031016 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1041 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1042 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1043 - 1044 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 5 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0033 - - 1045 ;THIS TEST VERIFIES THAT SKIPE IS DATA DEPENDENT. HENCE, IT SHOULD NOT - 1046 ;SKIP THE NEXT INSTRUCTION WHEN C(E) IS NON-ZERO. THE MOVE INSTRUCTION LOADS E - 1047 ;WITH -1, A NON-ZERO NUMBER. - 1048 - 1049 031016 200 00 0 00 035063 A1000: MOVE [-1] ;PRESET E WITH ALL ONES, A NON-ZERO NUMBER - 1050 031017 332 00 0 00 000000 SKIPE ;*SKIPE SHOULD NOT SKIP THE NEXT INSTRUCTION - 1051 031020 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - 1052 STOP^ - 1053 031021 254 04 0 00 031022 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1054 031022 324 00 0 00 031023 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1055 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1056 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1057 - 1058 ;********** - 1059 - 1060 ;THIS TEST VERIFIES THAT SKIPE IS DATA DEPENDENT. HENCE, IT SHOULD SKIP - 1061 ;THE NEXT INSTRUCTION WHEN C(E) IS ZERO. THE MOVE INSTRUCTION LOADS ALL - 1062 ;ZEROS INTO E. - 1063 - 1064 031023 200 00 0 00 035062 A1100: MOVE [0] ;PRESET E TO ALL ZEROS - 1065 031024 332 00 0 00 000000 SKIPE ;*SKIPE SHOULD SKIP THE NEXT INSTRUCTION - 1066 STOP^ - 1067 031025 254 04 0 00 031026 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1068 031026 324 00 0 00 031027 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1069 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1070 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1071 - 1072 ;********** - 1073 - 1074 ;THIS TEST VERIFIES THAT SKIP IS DATA INDEPENDENT. HENCE, IT NEVER SKIPS. IT ALWAYS - 1075 ;CONTINUES ON TO THE NEXT INSTRUCTION. - 1076 - 1077 031027 200 00 0 00 035062 A1200: MOVE [0] ;PRESET E TO ALL ZEROS - 1078 031030 330 00 0 00 000000 SKIP ;*SKIP SHOULD NEVER SKIP THE NEXT INSTRUCTION - 1079 031031 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - 1080 STOP^ - 1081 031032 254 04 0 00 031033 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1082 031033 324 00 0 00 031034 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1083 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1084 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1085 - 1086 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 6 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0034 - - 1087 ;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT - 1088 ;INSTRUCTION WHEN C(E) IS NOT NEGATIVE. THE MOVE INSTRUCTION IS USED TO LOAD - 1089 ;E WITH ALL ZEROS, A NON-NEGATIVE NUMBER. - 1090 - 1091 031034 200 00 0 00 035062 A1300: MOVE [0] ;PRESET E T0 ZERO, A NON-NEGATIVE NUMBER - 1092 031035 331 00 0 00 000000 SKIPL ;*SKIPL SHOULD NOT SKIP THE NEXT INSTRUCTION - 1093 031036 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - 1094 STOP^ - 1095 031037 254 04 0 00 031040 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1096 031040 324 00 0 00 031041 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1097 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1098 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1099 - 1100 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 7 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0035 - - 1101 ;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT - 1102 ;INSTRUCTION WHEN C(E) IS NEGATIVE. THE MOVE INSTRUCTION IS USED TO LOAD E WITH -1, - 1103 ;A NEGATIVE NUMBER. - 1104 - 1105 031041 200 00 0 00 035063 A1400: MOVE [-1] ;PRESET E TO -1, A NEGATIVE NUMBER - 1106 031042 331 00 0 00 000000 SKIPL ;*SKIPL SHOULD SKIP THE NEXT INSTRUCTION - 1107 STOP^ - 1108 031043 254 04 0 00 031044 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1109 031044 324 00 0 00 031045 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1110 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1111 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1112 - 1113 ;********** - 1114 - 1115 ;THIS TEST VERIFIES THAT SKIPG IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT - 1116 ;INSTRUCTION WHEN C(E) IS GREATER THAN ZERO. THE MOVE INSTRUCTION IS USED TO LOAD - 1117 ;E WITH A NON-ZERO POSITIVE NUMBER. - 1118 - 1119 031045 200 00 0 00 035064 A1500: MOVE [XWD 377777,-1] ;PRESET E TO 377777777777, A NON-ZERO POSITIVE NUMBER - 1120 031046 337 00 0 00 000000 SKIPG ;*SKIPG SHOULD SKIP THE NEXT INSTRUCTION - 1121 STOP^ - 1122 031047 254 04 0 00 031050 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1123 031050 324 00 0 00 031051 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1124 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1125 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1126 - 1127 ;********** - 1128 - 1129 ;THIS TEST VERIFIES THAT SKIPG IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT - 1130 ;INSTRUCTION WHEN C(E) IS NOT GREATER THAN ZERO. THE MOVE INSTRUCTION IS USED TO - 1131 ;LOAD E WITH -1, A NUMBER NOT GREATER THAN ZERO. - 1132 - 1133 031051 200 00 0 00 035063 A1600: MOVE [-1] ;PRESET E TO -1, A NEGATIVE NUMBER - 1134 031052 337 00 0 00 000000 SKIPG ;*SKIPG SHOULD NOT SKIP THE NEXT INSTRUCTION - 1135 031053 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - 1136 STOP^ - 1137 031054 254 04 0 00 031055 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1138 031055 324 00 0 00 031056 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1139 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1140 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1141 - 1142 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 8 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0036 - - 1143 ;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT - 1144 ;INSTRUCTION WHEN C(E) IS NON-NEGATIVE. THE MOVE INSTRUCTION IS USED TO LOAD E WITH - 1145 ;377777777777, A NON-NEGATIVE NUMBER. - 1146 - 1147 031056 200 00 0 00 035064 A1700: MOVE [XWD 377777,-1] ;PRESET E TO 377777777777, A NON-NEGATIVE NUMBER - 1148 031057 331 00 0 00 000000 SKIPL ;*SKIPL SHOULD NOT SKIP THE NEXT INSTRUCTION - 1149 031060 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - 1150 STOP^ - 1151 031061 254 04 0 00 031062 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1152 031062 324 00 0 00 031063 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1153 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1154 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1155 - 1156 ;********** - 1157 - 1158 ;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT - 1159 ;INSTRUCTION WHEN C(E) IS ZERO. THE MOVE INSTRUCTION LOADS E WITH ALL ZEROS. - 1160 - 1161 031063 200 00 0 00 035062 A2000: MOVE [0] ;PRESET E TO ALL ZEROS - 1162 031064 333 00 0 00 000000 SKIPLE ;*SKIPLE SHOULD SKIP THE NEXT INSTRUCTION - 1163 STOP^ - 1164 031065 254 04 0 00 031066 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1165 031066 324 00 0 00 031067 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1166 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1167 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1168 - 1169 ;********** - 1170 - 1171 ;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT - 1172 ;INSTRUCTION WHEN E CONTAINS A NEGATIVE NUMBER. THE MOVE INSTRUCTION IS USED TO LOAD - 1173 ;E WITH 400000000000, A NEGATIVE NUMBER. - 1174 - 1175 031067 200 00 0 00 035065 A2100: MOVE [XWD 400000,0] ;PRESET E TO 400000000000, A NEGATIVE NUMBER. - 1176 031070 333 00 0 00 000000 SKIPLE ;*SKIPLE SHOULD SKIP THE NEXT INSTRUCTION - 1177 STOP^ - 1178 031071 254 04 0 00 031072 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1179 031072 324 00 0 00 031073 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1180 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1181 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1182 - 1183 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 9 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0037 - - 1184 ;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT - 1185 ;INSTRUCTION WHEN E CONTAINS A POSITIVE NUMBER. THE MOVE INSTRUCTION LOADS - 1186 ;E WITH 377777777777, A POSITIVE NUMBER. - 1187 - 1188 031073 200 00 0 00 035064 A2200: MOVE [XWD 377777,-1] ;PRESET E TO 377777777777, A POSITIVE NUMBER - 1189 031074 333 00 0 00 000000 SKIPLE ;*SKIPLE SHOULD NOT SKIP THE NEXT INSTRUCTION - 1190 031075 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - 1191 STOP^ - 1192 031076 254 04 0 00 031077 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1193 031077 324 00 0 00 031100 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1194 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1195 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1196 - 1197 ;********* -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 10 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0038 - - 1198 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT - 1199 ;INSTRUCTION ;WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO - 1200 ;LOAD 777000000000, A NON-ZERO NUMBER INTO E. - 1201 - 1202 031100 200 00 0 00 035066 A2300: MOVE [XWD 777000,0] ;PRESET E WITH 777000000000, A NON-ZERO NUMBER - 1203 031101 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1204 STOP^ - 1205 031102 254 04 0 00 031103 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1206 031103 324 00 0 00 031104 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1207 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1208 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1209 - 1210 ;********** - 1211 - 1212 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT - 1213 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO - 1214 ;LOAD A NON-ZERO NUMBER, 377000000 INTO E. - 1215 - 1216 031104 200 00 0 00 035067 A2400: MOVE [XWD 377,0] ;PRESET E TO 377000000, A NON ZERO NUMBER - 1217 031105 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1218 STOP^ - 1219 031106 254 04 0 00 031107 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1220 031107 324 00 0 00 031110 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1221 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1222 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1223 - 1224 ;********** - 1225 - 1226 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT - 1227 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO - 1228 ;LOAD E WITH A NON-ZERO NUMBER, 177000. - 1229 - 1230 031110 200 00 0 00 035070 A2500: MOVE [177000] ;PRESET E WITH 177000, A NON ZERO NUMBER - 1231 031111 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1232 STOP^ - 1233 031112 254 04 0 00 031113 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1234 031113 324 00 0 00 031114 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1235 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1236 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1237 - 1238 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 11 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0039 - - 1239 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT - 1240 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO - 1241 ;LOAD 777, A NON-ZERO NUMBER INTO E. - 1242 - 1243 031114 200 00 0 00 035071 A2600: MOVE [777] ;PRESET E WITH 777, A NON-ZERO NUMBER - 1244 031115 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1245 STOP^ - 1246 031116 254 04 0 00 031117 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1247 031117 324 00 0 00 031120 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1248 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1249 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1250 - 1251 ;********** - 1252 - 1253 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT - 1254 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO - 1255 ;LOAD E WITH 600000, A NON-ZERO NUMBER. - 1256 - 1257 031120 200 00 0 00 035072 A2700: MOVE [600000] ;PRESET E WITK 600000, A NON-ZERO NUMBER - 1258 031121 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1259 STOP^ - 1260 031122 254 04 0 00 031123 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1261 031123 324 00 0 00 031124 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1262 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1263 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1264 - 1265 ;********** - 1266 - 1267 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT - 1268 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO - 1269 ;LOAD E WITH 400000000, A NON-ZERO NUMBER. - 1270 - 1271 031124 200 00 0 00 035073 A3000: MOVE [XWD 400,000] ;PRESET E WITH 400000000, A NON-ZERO NUMBER - 1272 031125 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1273 STOP^ - 1274 031126 254 04 0 00 031127 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1275 031127 324 00 0 00 031130 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1276 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1277 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1278 - 1279 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0040 - - 1280 003100 SN=3100 - 1281 000000 ZZ=0 - 1282 - 1283 A3100: REPEAT ^D36, - 1284 <;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1285 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1286 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1287 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1288 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1289 - 1290 SN=SN+1 - 1291 ZZ=ZZ+ZZ - 1292 IFE ZZ, - 1293 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1294 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1295 STOP - 1296 - 1297 ;********** - 1298 > - 1299 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1300 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1301 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1302 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1303 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1304 - 1305 003101 SN=SN+1 - 1306 000000 ZZ=ZZ+ZZ - 1307 000001 IFE ZZ, - 1308 031130 200 00 0 00 035074 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1309 031131 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1310 STOP^ - 1311 031132 254 04 0 00 031133 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1312 031133 324 00 0 00 031134 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1313 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1314 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1315 - 1316 ;********** - 1317 - 1318 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1319 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1320 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1321 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1322 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1323 - 1324 003102 SN=SN+1 - 1325 000002 ZZ=ZZ+ZZ - 1326 IFE ZZ, - 1327 031134 200 00 0 00 035075 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1328 031135 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1329 STOP^ - 1330 031136 254 04 0 00 031137 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1331 031137 324 00 0 00 031140 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1332 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1333 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1334 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-1 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0041 - - 1335 ;********** - 1336 - 1337 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1338 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1339 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1340 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1341 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1342 - 1343 003103 SN=SN+1 - 1344 000004 ZZ=ZZ+ZZ - 1345 IFE ZZ, - 1346 031140 200 00 0 00 035076 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1347 031141 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1348 STOP^ - 1349 031142 254 04 0 00 031143 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1350 031143 324 00 0 00 031144 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1351 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1352 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1353 - 1354 ;********** - 1355 - 1356 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1357 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1358 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1359 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1360 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1361 - 1362 003104 SN=SN+1 - 1363 000010 ZZ=ZZ+ZZ - 1364 IFE ZZ, - 1365 031144 200 00 0 00 035077 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1366 031145 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1367 STOP^ - 1368 031146 254 04 0 00 031147 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1369 031147 324 00 0 00 031150 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1370 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1371 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1372 - 1373 ;********** - 1374 - 1375 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1376 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1377 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1378 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1379 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1380 - 1381 003105 SN=SN+1 - 1382 000020 ZZ=ZZ+ZZ - 1383 IFE ZZ, - 1384 031150 200 00 0 00 035100 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1385 031151 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1386 STOP^ - 1387 031152 254 04 0 00 031153 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1388 031153 324 00 0 00 031154 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1389 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-2 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0042 - - 1390 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1391 - 1392 ;********** - 1393 - 1394 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1395 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1396 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1397 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1398 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1399 - 1400 003106 SN=SN+1 - 1401 000040 ZZ=ZZ+ZZ - 1402 IFE ZZ, - 1403 031154 200 00 0 00 035101 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1404 031155 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1405 STOP^ - 1406 031156 254 04 0 00 031157 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1407 031157 324 00 0 00 031160 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1408 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1409 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1410 - 1411 ;********** - 1412 - 1413 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1414 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1415 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1416 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1417 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1418 - 1419 003107 SN=SN+1 - 1420 000100 ZZ=ZZ+ZZ - 1421 IFE ZZ, - 1422 031160 200 00 0 00 035102 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1423 031161 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1424 STOP^ - 1425 031162 254 04 0 00 031163 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1426 031163 324 00 0 00 031164 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1427 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1428 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1429 - 1430 ;********** - 1431 - 1432 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1433 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1434 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1435 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1436 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1437 - 1438 003110 SN=SN+1 - 1439 000200 ZZ=ZZ+ZZ - 1440 IFE ZZ, - 1441 031164 200 00 0 00 035103 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1442 031165 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1443 STOP^ - 1444 031166 254 04 0 00 031167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-3 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0043 - - 1445 031167 324 00 0 00 031170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1446 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1447 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1448 - 1449 ;********** - 1450 - 1451 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1452 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1453 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1454 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1455 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1456 - 1457 003111 SN=SN+1 - 1458 000400 ZZ=ZZ+ZZ - 1459 IFE ZZ, - 1460 031170 200 00 0 00 035104 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1461 031171 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1462 STOP^ - 1463 031172 254 04 0 00 031173 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1464 031173 324 00 0 00 031174 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1465 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1466 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1467 - 1468 ;********** - 1469 - 1470 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1471 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1472 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1473 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1474 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1475 - 1476 003112 SN=SN+1 - 1477 001000 ZZ=ZZ+ZZ - 1478 IFE ZZ, - 1479 031174 200 00 0 00 035105 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1480 031175 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1481 STOP^ - 1482 031176 254 04 0 00 031177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1483 031177 324 00 0 00 031200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1484 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1485 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1486 - 1487 ;********** - 1488 - 1489 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1490 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1491 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1492 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1493 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1494 - 1495 003113 SN=SN+1 - 1496 002000 ZZ=ZZ+ZZ - 1497 IFE ZZ, - 1498 031200 200 00 0 00 035106 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1499 031201 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-4 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0044 - - 1500 STOP^ - 1501 031202 254 04 0 00 031203 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1502 031203 324 00 0 00 031204 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1503 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1504 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1505 - 1506 ;********** - 1507 - 1508 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1509 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1510 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1511 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1512 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1513 - 1514 003114 SN=SN+1 - 1515 004000 ZZ=ZZ+ZZ - 1516 IFE ZZ, - 1517 031204 200 00 0 00 035107 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1518 031205 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1519 STOP^ - 1520 031206 254 04 0 00 031207 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1521 031207 324 00 0 00 031210 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1522 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1523 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1524 - 1525 ;********** - 1526 - 1527 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1528 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1529 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1530 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1531 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1532 - 1533 003115 SN=SN+1 - 1534 010000 ZZ=ZZ+ZZ - 1535 IFE ZZ, - 1536 031210 200 00 0 00 035110 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1537 031211 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1538 STOP^ - 1539 031212 254 04 0 00 031213 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1540 031213 324 00 0 00 031214 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1541 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1542 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1543 - 1544 ;********** - 1545 - 1546 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1547 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1548 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1549 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1550 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1551 - 1552 003116 SN=SN+1 - 1553 020000 ZZ=ZZ+ZZ - 1554 IFE ZZ, -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-5 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0045 - - 1555 031214 200 00 0 00 035111 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1556 031215 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1557 STOP^ - 1558 031216 254 04 0 00 031217 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1559 031217 324 00 0 00 031220 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1560 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1561 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1562 - 1563 ;********** - 1564 - 1565 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1566 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1567 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1568 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1569 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1570 - 1571 003117 SN=SN+1 - 1572 040000 ZZ=ZZ+ZZ - 1573 IFE ZZ, - 1574 031220 200 00 0 00 035112 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1575 031221 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1576 STOP^ - 1577 031222 254 04 0 00 031223 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1578 031223 324 00 0 00 031224 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1579 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1580 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1581 - 1582 ;********** - 1583 - 1584 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1585 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1586 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1587 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1588 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1589 - 1590 003120 SN=SN+1 - 1591 100000 ZZ=ZZ+ZZ - 1592 IFE ZZ, - 1593 031224 200 00 0 00 035113 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1594 031225 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1595 STOP^ - 1596 031226 254 04 0 00 031227 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1597 031227 324 00 0 00 031230 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1598 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1599 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1600 - 1601 ;********** - 1602 - 1603 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1604 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1605 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1606 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1607 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1608 - 1609 003121 SN=SN+1 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-6 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0046 - - 1610 200000 ZZ=ZZ+ZZ - 1611 IFE ZZ, - 1612 031230 200 00 0 00 035114 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1613 031231 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1614 STOP^ - 1615 031232 254 04 0 00 031233 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1616 031233 324 00 0 00 031234 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1617 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1618 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1619 - 1620 ;********** - 1621 - 1622 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1623 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1624 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1625 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1626 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1627 - 1628 003122 SN=SN+1 - 1629 400000 ZZ=ZZ+ZZ - 1630 IFE ZZ, - 1631 031234 200 00 0 00 035115 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1632 031235 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1633 STOP^ - 1634 031236 254 04 0 00 031237 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1635 031237 324 00 0 00 031240 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1636 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1637 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1638 - 1639 ;********** - 1640 - 1641 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1642 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1643 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1644 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1645 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1646 - 1647 003123 SN=SN+1 - 1648 000001 000000 ZZ=ZZ+ZZ - 1649 IFE ZZ, - 1650 031240 200 00 0 00 035116 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1651 031241 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1652 STOP^ - 1653 031242 254 04 0 00 031243 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1654 031243 324 00 0 00 031244 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1655 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1656 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1657 - 1658 ;********** - 1659 - 1660 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1661 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1662 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1663 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1664 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-7 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0047 - - 1665 - 1666 003124 SN=SN+1 - 1667 000002 000000 ZZ=ZZ+ZZ - 1668 IFE ZZ, - 1669 031244 200 00 0 00 035117 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1670 031245 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1671 STOP^ - 1672 031246 254 04 0 00 031247 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1673 031247 324 00 0 00 031250 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1674 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1675 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1676 - 1677 ;********** - 1678 - 1679 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1680 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1681 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1682 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1683 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1684 - 1685 003125 SN=SN+1 - 1686 000004 000000 ZZ=ZZ+ZZ - 1687 IFE ZZ, - 1688 031250 200 00 0 00 035120 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1689 031251 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1690 STOP^ - 1691 031252 254 04 0 00 031253 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1692 031253 324 00 0 00 031254 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1693 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1694 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1695 - 1696 ;********** - 1697 - 1698 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1699 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1700 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1701 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1702 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1703 - 1704 003126 SN=SN+1 - 1705 000010 000000 ZZ=ZZ+ZZ - 1706 IFE ZZ, - 1707 031254 200 00 0 00 035121 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1708 031255 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1709 STOP^ - 1710 031256 254 04 0 00 031257 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1711 031257 324 00 0 00 031260 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1712 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1713 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1714 - 1715 ;********** - 1716 - 1717 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1718 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1719 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-8 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0048 - - 1720 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1721 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1722 - 1723 003127 SN=SN+1 - 1724 000020 000000 ZZ=ZZ+ZZ - 1725 IFE ZZ, - 1726 031260 200 00 0 00 035122 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1727 031261 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1728 STOP^ - 1729 031262 254 04 0 00 031263 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1730 031263 324 00 0 00 031264 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1731 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1732 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1733 - 1734 ;********** - 1735 - 1736 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1737 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1738 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1739 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1740 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1741 - 1742 003130 SN=SN+1 - 1743 000040 000000 ZZ=ZZ+ZZ - 1744 IFE ZZ, - 1745 031264 200 00 0 00 035123 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1746 031265 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1747 STOP^ - 1748 031266 254 04 0 00 031267 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1749 031267 324 00 0 00 031270 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1750 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1751 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1752 - 1753 ;********** - 1754 - 1755 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1756 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1757 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1758 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1759 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1760 - 1761 003131 SN=SN+1 - 1762 000100 000000 ZZ=ZZ+ZZ - 1763 IFE ZZ, - 1764 031270 200 00 0 00 035124 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1765 031271 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1766 STOP^ - 1767 031272 254 04 0 00 031273 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1768 031273 324 00 0 00 031274 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1769 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1770 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1771 - 1772 ;********** - 1773 - 1774 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-9 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0049 - - 1775 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1776 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1777 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1778 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1779 - 1780 003132 SN=SN+1 - 1781 000200 000000 ZZ=ZZ+ZZ - 1782 IFE ZZ, - 1783 031274 200 00 0 00 035125 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1784 031275 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1785 STOP^ - 1786 031276 254 04 0 00 031277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1787 031277 324 00 0 00 031300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1788 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1789 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1790 - 1791 ;********** - 1792 - 1793 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1794 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1795 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1796 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1797 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1798 - 1799 003133 SN=SN+1 - 1800 000400 000000 ZZ=ZZ+ZZ - 1801 IFE ZZ, - 1802 031300 200 00 0 00 035073 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1803 031301 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1804 STOP^ - 1805 031302 254 04 0 00 031303 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1806 031303 324 00 0 00 031304 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1807 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1808 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1809 - 1810 ;********** - 1811 - 1812 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1813 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1814 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1815 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1816 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1817 - 1818 003134 SN=SN+1 - 1819 001000 000000 ZZ=ZZ+ZZ - 1820 IFE ZZ, - 1821 031304 200 00 0 00 035126 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1822 031305 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1823 STOP^ - 1824 031306 254 04 0 00 031307 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1825 031307 324 00 0 00 031310 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1826 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1827 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1828 - 1829 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-10 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0050 - - 1830 - 1831 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1832 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1833 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1834 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1835 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1836 - 1837 003135 SN=SN+1 - 1838 002000 000000 ZZ=ZZ+ZZ - 1839 IFE ZZ, - 1840 031310 200 00 0 00 035127 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1841 031311 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1842 STOP^ - 1843 031312 254 04 0 00 031313 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1844 031313 324 00 0 00 031314 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1845 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1846 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1847 - 1848 ;********** - 1849 - 1850 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1851 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1852 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1853 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1854 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1855 - 1856 003136 SN=SN+1 - 1857 004000 000000 ZZ=ZZ+ZZ - 1858 IFE ZZ, - 1859 031314 200 00 0 00 035130 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1860 031315 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1861 STOP^ - 1862 031316 254 04 0 00 031317 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1863 031317 324 00 0 00 031320 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1864 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1865 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1866 - 1867 ;********** - 1868 - 1869 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1870 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1871 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1872 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1873 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1874 - 1875 003137 SN=SN+1 - 1876 010000 000000 ZZ=ZZ+ZZ - 1877 IFE ZZ, - 1878 031320 200 00 0 00 035131 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1879 031321 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1880 STOP^ - 1881 031322 254 04 0 00 031323 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1882 031323 324 00 0 00 031324 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1883 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1884 ;IN THE SUBTEST) TO LOOP ON ERROR^ -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-11 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0051 - - 1885 - 1886 ;********** - 1887 - 1888 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1889 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1890 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1891 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1892 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1893 - 1894 003140 SN=SN+1 - 1895 020000 000000 ZZ=ZZ+ZZ - 1896 IFE ZZ, - 1897 031324 200 00 0 00 035132 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1898 031325 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1899 STOP^ - 1900 031326 254 04 0 00 031327 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1901 031327 324 00 0 00 031330 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1902 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1903 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1904 - 1905 ;********** - 1906 - 1907 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1908 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1909 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1910 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1911 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1912 - 1913 003141 SN=SN+1 - 1914 040000 000000 ZZ=ZZ+ZZ - 1915 IFE ZZ, - 1916 031330 200 00 0 00 035133 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1917 031331 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1918 STOP^ - 1919 031332 254 04 0 00 031333 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1920 031333 324 00 0 00 031334 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1921 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1922 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1923 - 1924 ;********** - 1925 - 1926 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1927 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1928 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1929 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1930 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1931 - 1932 003142 SN=SN+1 - 1933 100000 000000 ZZ=ZZ+ZZ - 1934 IFE ZZ, - 1935 031334 200 00 0 00 035134 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1936 031335 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1937 STOP^ - 1938 031336 254 04 0 00 031337 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1939 031337 324 00 0 00 031340 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 12-12 -DAKAAM MAC 19-JAN-77 13:42 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0052 - - 1940 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1941 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1942 - 1943 ;********** - 1944 - 1945 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1946 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1947 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1948 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1949 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1950 - 1951 003143 SN=SN+1 - 1952 200000 000000 ZZ=ZZ+ZZ - 1953 IFE ZZ, - 1954 031340 200 00 0 00 035135 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1955 031341 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1956 STOP^ - 1957 031342 254 04 0 00 031343 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1958 031343 324 00 0 00 031344 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1959 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1960 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1961 - 1962 ;********** - 1963 - 1964 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST - 1965 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE - 1966 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO - 1967 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). - 1968 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - 1969 - 1970 003144 SN=SN+1 - 1971 400000 000000 ZZ=ZZ+ZZ - 1972 IFE ZZ, - 1973 031344 200 00 0 00 035065 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - 1974 031345 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - 1975 STOP^ - 1976 031346 254 04 0 00 031347 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1977 031347 324 00 0 00 031350 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1978 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1979 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1980 - 1981 ;********** - 1982 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 13 -DAKAAM MAC 19-JAN-77 13:42 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0053 - - 1983 SUBTTL TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS - 1984 - 1985 ;THIS TEST VERIFIES THAT MOVEI LOADS E INTO THE AC. SKIPG IS USED TO CHECK THAT - 1986 ;THE AC WAS INDEED MODIFIED BY MOVEI. - 1987 - 1988 031350 201 00 0 00 035063 A3200: MOVEI [-1] ;*MOVEI SHOULD LOAD A POSITIVE NUMBER INTO AC0 - 1989 031351 337 00 0 00 000000 SKIPG ;SKIP HALT INSTRUCTION IF MOVEI LOADED AC CORRECTLY - 1990 STOP^ - 1991 031352 254 04 0 00 031353 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1992 031353 324 00 0 00 031354 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 1993 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 1994 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 1995 - 1996 ;IF PROGRAM HANGS UP ON MOVEI INSTRUCTION, CHECK AD FM +EN [ADFP], AD FM + EN A [ADFP], - 1997 ;AD FM + F/F [ADFP], F CYC ACT EN C [F1] - 1998 - 1999 ;********** - 2000 - 2001 ;THIS TEST VERIFIES THAT SKIPL IS SENSITIVE TO THE DATA IN E AND NOT SENSITIVE TO - 2002 ;THE DATA IN THE AC. HENCE, SKIPL WILL SKIP THE NEXT INSTRUCTION ONLY IF - 2003 ;C(E) IS LESS THAN ZERO. E IS SET TO -1, A NEGATIVE NUMBER; AND - 2004 ;THE AC IS SET TO 0 IN THIS TEST. THEREFORE SKIPL SHOULD SKIP. - 2005 - 2006 031354 200 00 0 00 035062 A3300: MOVE [0] ;SET THE AC TO ALL ZEROS - 2007 031355 331 00 0 00 035063 SKIPL [-1] ;*SKIPL SHOULD SKIP BECAUSE C(E) IS NEGATIVE - 2008 STOP^ - 2009 031356 254 04 0 00 031357 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2010 031357 324 00 0 00 031360 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2011 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2012 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2013 - 2014 ;********** - 2015 - 2016 ;THIS TEST VERIFIES THAT SKIPL IS SENSITIVE TO THE SIGN BIT IN E. SKIPL SHOULD - 2017 ;SKIP THE NEXT INSTRUCTION WHEN AND ONLY WHEN THE SIGN BIT IS SET. IN THIS - 2018 ;TEST, C(AC) IS PRESET TO ALL ZEROS, THEN SKIPL IS EXECUTED WITH C(E)=400000,,0. - 2019 ;A FAILURE UCCURS IF SKIPL DOES NOT SKIP. - 2020 - 2021 031360 200 00 0 00 035062 A13100: MOVE [0] ;SET THE AC TO ALL ZEROS - 2022 031361 331 00 0 00 035065 SKIPL [400000,,0] ;*SKIPL SHOULD SKIP BECAUSE C(E) IS NEGATIVE - 2023 STOP^ - 2024 031362 254 04 0 00 031363 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2025 031363 324 00 0 00 031364 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2026 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2027 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2028 - 2029 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 14 -DAKAAM MAC 19-JAN-77 13:42 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0054 - - 2030 ;THIS TEST VERIFIES THAT THE CAM INSTRUCTION DOES NOT MODIFY C(AC). THE AC IS - 2031 ;INITIALLY LOADED WITH ALL ZEROS; THEN CAM IS EXECUTED WITH C(E) NON-ZERO. - 2032 ;THE AC IS THEN CHECKED FOR ALL ZEROS. THIS TEST FAILS IF THE AC WAS MODIFIED BY CAM. - 2033 - 2034 031364 200 00 0 00 035062 A3400: MOVE [0] ;PRESET THE AC TO ALL ZEROS - 2035 031365 310 00 0 00 035136 CAM [1234] ;*CAM SHOULD NOT MODIFY THE AC - 2036 031366 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION SERVES AS A NO-OP. - 2037 ;IT IS A PROGRAM FILLER IN CASE CAM SKIPS.) - 2038 031367 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC WAS NOT MODIFIED BY CAM - 2039 STOP^ - 2040 031370 254 04 0 00 031371 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2041 031371 324 00 0 00 031372 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2042 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2043 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2044 - 2045 ;IF TEST HANGS ON CAM INSTRUCTION, AB PC EN [ABC], AB PC (FETCH) EN [ABC], - 2046 ;IR CAXX [IR3] - 2047 - 2048 ;IF TEST LOOPS ON CAM INSTRUCTION, MC INSTR FETCH EN [MC1], MC INST FET ET2 EN [MC1], - 2049 ;ET2 J F/F [E], IR CAXX [IR3] - 2050 - 2051 ;IF TEST HALTS AT HALT INSTRUCTION, SAC INH [ST2], IR CAXX [IR3], IR CAMX [IR1] - 2052 - 2053 ;********** - 2054 - 2055 ;THIS TEST VERIFIES THAT THE CAI INSTRUCTION DOES NOT MODIFY C(AC). THE AC IS - 2056 ;INITIALLY LOADED WITH ALL ZEROS; THEN CAI IS EXECUTED WITH E NON-ZERO. THE AC IS - 2057 ;THEN CHECKED FOR ALL ZEROS. THIS TEST FAILS IF THE AC WAS MODIFIED BY CAM. - 2058 - 2059 031372 200 00 0 00 035062 A3500: MOVE [0] ;PRESET THE AC TO ALL ZEROS - 2060 031373 300 00 0 00 035136 CAI [1234] ;*CAI SHOULD NOT MODIFY THE AC - 2061 031374 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A PROGRAM FILLER - 2062 ;IN CASE CAI MODIFIES THE AC. IT SERVES AS A NO-OP) - 2063 031375 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF CAI DID NOT MODIFY THE AC - 2064 STOP^ - 2065 031376 254 04 0 00 031377 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2066 031377 324 00 0 00 031400 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2067 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2068 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2069 - 2070 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 15 -DAKAAM MAC 19-JAN-77 13:42 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0055 - - 2071 ;THIS TEST VERIFIES THAT CAI DOES NOT MODIFY C(AC0) WHEN AN AC OTHER THAN AC0 IS - 2072 ;SPECIFIED BY THE CAI INSTRUCTION. - 2073 ;THIS IS THE FIRST TEST THAT USES AN AC OTHER THAN AC0. - 2074 ;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, THE CAI INSTRUCTION IS EXECUTED WITH - 2075 ;A NON-ZERO E. AC 0 IS THEN TESTED F0R ALL ZEROS. - 2076 - 2077 031400 200 00 0 00 035062 A3600: MOVE [0] ;LOAD AC0 WITH ALL ZEROS - 2078 031401 300 17 0 00 035136 CAI 17,[1234] ;*CAI SHOULD NOT MODIFY AC0 - 2079 031402 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE - 2080 ;CAI SKIPS THE NEXT INSTRUCTION. IT ACTS AS A NO-OP) - 2081 031403 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF C(AC0) WAS NOT MODIFIED - 2082 STOP^ - 2083 031404 254 04 0 00 031405 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2084 031405 324 00 0 00 031406 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2085 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2086 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2087 - 2088 ;********** - 2089 - 2090 ;THIS TEST VERIFIES THAT CAM DOES NOT MODIFY C(AC0) WHEN AN AC OTHER THAN AC0 IS - 2091 ;SPECIFIED BY THE CAM INSTRUCTION. - 2092 ;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, THE CAM INSTRUCTION IS EXECUTED WITH - 2093 ;A NON-ZERO E. AC 0 IS THEN TESTED F0R ALL ZEROS. - 2094 - 2095 031406 200 00 0 00 035062 A3700: MOVE [0] ;PRESET C(AC0) TO ALL ZEROS - 2096 031407 310 17 0 00 035136 CAM 17,[1234] ;*CAM SHOULD NOT MODIFY AC0 - 2097 031410 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE - 2098 ;CAM SKIPS THE NEXT INSTRUCTION. IT SERVES AS A NO-OP) - 2099 031411 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC0 WAS NOT MODIFIED BY CAM - 2100 STOP^ - 2101 031412 254 04 0 00 031413 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2102 031413 324 00 0 00 031414 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2103 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2104 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2105 - 2106 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 16 -DAKAAM MAC 19-JAN-77 13:42 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0056 - - 2107 ;THIS TEST VERIFIES THAT MOVE WILL PLACE C(E) INTO THE AC. AC, E AND C(E) ARE NON-ZERO - 2108 ;IN THIS TEST. THIS TEST PASSES IF FINAL C(AC) OF THE MOVE INSTRUCTION IS NON-ZERO. - 2109 - 2110 031414 200 01 0 00 035062 A4500: MOVE 1,[0] ;LOAD THE AC WITH ALL ZEROS - 2111 031415 200 01 0 00 035063 MOVE 1,[-1] ;*MOVE SHOULD PLACE ALL ONES IN THE AC - 2112 031416 336 00 0 00 000001 SKIPN 1 ;SKIP HALT INSTRUCTION IF MOVE MODIFIED THE AC - 2113 STOP^ - 2114 031417 254 04 0 00 031420 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2115 031420 324 00 0 00 031421 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2116 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2117 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2118 - 2119 ;********** - 2120 - 2121 ;THIS TEST VERIFIES THAT THE MOVE INSTRUCTION WILL PLACE C(E) INTO THE AC. - 2122 ;AC, E ARE NON-ZERO AND C(E)=0. - 2123 ;THIS TEST FAILS IF THE FINAL C(AC) IS NOT EQUAL TO ZERO, THE ORIGINAL C(E) - 2124 - 2125 031421 200 01 0 00 035062 A4600: MOVE 1,[0] ;*PLACE ALL ZEROS INTO THE AC - 2126 031422 332 00 0 00 000001 SKIPE 1 ;SKIP HALT INSTRUCTION IF MOVE PLACED ALL ZEROS INTO AC - 2127 STOP^ - 2128 031423 254 04 0 00 031424 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2129 031424 324 00 0 00 031425 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2130 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2131 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2132 - 2133 ;IF JUMP .+1 OF PREVIOUS TEST FAILED, CHECK JUMPS: AD FM + EN [ADFP], IR JUMPS [IR1], - 2134 ;IR JUMPX [IR1], AR AD EN [ARMA], AR AD EN A [ARMA], AR LT AD EN A [ARMA], - 2135 ;AR LT ADD EN B [ARMA], AR RT AD EN A [ARMA], - 2136 ;AR RT AD EN B [ARMA], AR A CLK INPUT [ARMA], - 2137 ;ET2 C F/F [E], AR AD ET2 EN [ARMA], AR AD BR (ET2) B [ARMA] - 2138 - 2139 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 17 -DAKAAM MAC 19-JAN-77 13:42 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0057 - - 2140 ;THIS TEST VERIFIES THAT SOS DOES NOT MODIFY C(AC) WHEN THE AC IS AC0. - 2141 ;FIRST, AC0 IS LOADED WITH ALL ZEROS AND E IS LOADED WITH A POSITIVE NUMBER; - 2142 ;THEN, SOS IS EXECUTED. SOS SHOULD SUBTRACT ONE FROM C((E) - 2143 ;AND EXECUTE THE NEXT INSTRUCTION. IT SHOULD NOT MODIFY AC0. - 2144 ;THE TEST PASSES IF AC0 WAS NOT MODIFIED. - 2145 - 2146 031425 200 00 0 00 035062 A4000: MOVE [0] ;PRESET AC0 TO ALL ZEROS - 2147 031426 200 07 0 00 035136 MOVE 7,[1234] ;PRESET E WITH A POSITIVE NUMBER - 2148 031427 370 00 0 00 000007 SOS 7 ;*SOS SHOULD NOT MODIFY C(AC0) - 2149 031430 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE - 2150 ;SOS SKIPS THE NEXT INSTRUCTION. IT SERVES AS A NO-OP) - 2151 031431 332 00 0 00 000000 SKIPE ;SKIP THE HALT INSTRUCTION IF C(AC0) WAS NOT MODIFIED - 2152 STOP^ - 2153 031432 254 04 0 00 031433 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2154 031433 324 00 0 00 031434 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2155 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2156 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2157 - 2158 ;********** - 2159 004100 SN=4100 - 2160 000000 AC=0 - 2161 - 2162 A4100: REPEAT 4, - 2163 <;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC - 2164 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. - 2165 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED - 2166 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE - 2167 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR - 2168 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. - 2169 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. - 2170 - 2171 SN=SN+1 - 2172 AC=AC+AC - 2173 IFE AC, - 2174 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS - 2175 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS - 2176 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC - 2177 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO - 2178 STOP - 2179 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP - 2180 STOP - 2181 - 2182 ;********** - 2183 > - 2184 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC - 2185 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. - 2186 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED - 2187 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE - 2188 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR - 2189 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. - 2190 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. - 2191 - 2192 004101 SN=SN+1 - 2193 000000 AC=AC+AC - 2194 000001 IFE AC, -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 17-1 -DAKAAM MAC 19-JAN-77 13:42 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0058 - - 2195 031434 200 00 0 00 035062 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS - 2196 031435 200 01 0 00 035062 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS - 2197 031436 330 01 0 00 035063 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC - 2198 031437 336 00 0 00 000001 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO - 2199 STOP^ - 2200 031440 254 04 0 00 031441 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2201 031441 324 00 0 00 031442 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2202 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2203 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2204 031442 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP - 2205 STOP^ - 2206 031443 254 04 0 00 031444 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2207 031444 324 00 0 00 031445 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2208 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2209 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2210 - 2211 ;********** - 2212 - 2213 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC - 2214 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. - 2215 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED - 2216 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE - 2217 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR - 2218 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. - 2219 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. - 2220 - 2221 004102 SN=SN+1 - 2222 000002 AC=AC+AC - 2223 IFE AC, - 2224 031445 200 00 0 00 035062 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS - 2225 031446 200 02 0 00 035062 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS - 2226 031447 330 02 0 00 035063 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC - 2227 031450 336 00 0 00 000002 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO - 2228 STOP^ - 2229 031451 254 04 0 00 031452 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2230 031452 324 00 0 00 031453 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2231 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2232 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2233 031453 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP - 2234 STOP^ - 2235 031454 254 04 0 00 031455 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2236 031455 324 00 0 00 031456 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2237 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2238 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2239 - 2240 ;********** - 2241 - 2242 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC - 2243 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. - 2244 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED - 2245 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE - 2246 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR - 2247 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. - 2248 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. - 2249 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 17-2 -DAKAAM MAC 19-JAN-77 13:42 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0059 - - 2250 004103 SN=SN+1 - 2251 000004 AC=AC+AC - 2252 IFE AC, - 2253 031456 200 00 0 00 035062 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS - 2254 031457 200 04 0 00 035062 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS - 2255 031460 330 04 0 00 035063 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC - 2256 031461 336 00 0 00 000004 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO - 2257 STOP^ - 2258 031462 254 04 0 00 031463 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2259 031463 324 00 0 00 031464 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2260 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2261 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2262 031464 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP - 2263 STOP^ - 2264 031465 254 04 0 00 031466 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2265 031466 324 00 0 00 031467 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2266 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2267 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2268 - 2269 ;********** - 2270 - 2271 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC - 2272 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. - 2273 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED - 2274 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE - 2275 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR - 2276 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. - 2277 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. - 2278 - 2279 004104 SN=SN+1 - 2280 000010 AC=AC+AC - 2281 IFE AC, - 2282 031467 200 00 0 00 035062 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS - 2283 031470 200 10 0 00 035062 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS - 2284 031471 330 10 0 00 035063 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC - 2285 031472 336 00 0 00 000010 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO - 2286 STOP^ - 2287 031473 254 04 0 00 031474 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2288 031474 324 00 0 00 031475 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2289 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2290 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2291 031475 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP - 2292 STOP^ - 2293 031476 254 04 0 00 031477 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2294 031477 324 00 0 00 031500 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2295 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2296 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2297 - 2298 ;********** - 2299 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 18 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0060 - - 2300 SUBTTL TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS - 2301 - 2302 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL NOT MODIFY THE CONTENTS OF AC0. - 2303 ;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, - 2304 ;THE SKIP INSTRUCTION IS EXECUTED WITH C(E)=-1 AND AC0. AC0 IS THEN TESTED FOR ALL - 2305 ;ZEROS. THE TEST FAILS IF AC0 WAS MODIFIED BY THE SKIP INSTRUCTION. - 2306 - 2307 031500 200 00 0 00 035062 A4200: MOVE [0] ;PRESET AC0 TO ALL ZEROS - 2308 031501 330 00 0 00 035063 SKIP [-1] ;*SKIP SHOULD NOT MODIFY AC0 - 2309 031502 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC0 WAS NOT MODIFIED BY SKIP - 2310 STOP^ - 2311 031503 254 04 0 00 031504 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2312 031504 324 00 0 00 031505 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2313 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2314 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2315 - 2316 ;AC=0: SAC INH, IR BIT 9, 10, 11 OR 12 S-A-1 - 2317 - 2318 ;********** - 2319 - 2320 ;THIS TEST VERIFIES THAT MOVSS DOES NOT MODIFY C(AC0) WHEN AC0 IS SPECIFIED AS THE AC. - 2321 ;FIRST, E IS LOADED WITH ALL ONES AND THE AC (AC0) - 2322 ;IS LOADED WITH ALL ZEROS; THEN, MOVSS IS EXECUTED. MOVSS SHOULD NOT MODIFY AC0. - 2323 ;AC0 IS THEN CHECKED TO INSURE THAT IT WAS NOT MODIFIED BY MOVSS. - 2324 - 2325 031505 200 07 0 00 035063 A4300: MOVE 7,[-1] ;LOAD E OF THE MOVSS INSTRUCTION WITH ALL ONES - 2326 031506 200 00 0 00 035062 MOVE [0] ;PRESET AC0 TO ALL ZEROS - 2327 031507 207 00 0 00 000007 MOVSS 7 ;*MOVSS SHOULD NOT MODIFY AC0 - 2328 031510 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC0 WAS INTACT - 2329 STOP^ - 2330 031511 254 04 0 00 031512 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2331 031512 324 00 0 00 031513 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2332 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2333 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2334 - 2335 ;MOVX & AC=0: SAC INH [ST2], IR XXXS [IR1] - 2336 - 2337 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 19 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0061 - - 2338 ;THIS TEST VERIFIES THAT HRRS DOES NOT MODIFY C(AC0) WHEN AC0 IS THE SPECIFIED AC. - 2339 ;FIRST, E IS LOADED WITH ALL ONES AND AC0 IS LOADED WITH ALL ZEROS; - 2340 ;THEN, HRRS IS EXECUTED WITH AC=AC0. AC0 IS THEN CHECKED FOR ALL ZEROS. - 2341 ;IF AC0 WAS MODIFIED BY THE HRRS INSTRUCTION, THE TEST FAIL. - 2342 - 2343 031513 200 07 0 00 035063 A4400: MOVE 7,[-1] ;PRESET E OF THE HRRS INSTRUCTION TO ALL ONES - 2344 031514 200 00 0 00 035062 MOVE [0] ;PRESET AC0 TO ALL ZEROS - 2345 031515 543 00 0 00 000007 HRRS 7 ;*HRRS SHOULD NOT MODIFY THE AC WHEN THE AC IS AC0 - 2346 031516 332 00 0 00 000000 SKIPE ;SKIP THE HALT INSTRUCTION IF AC0 WAS INTACT - 2347 STOP^ - 2348 031517 254 04 0 00 031520 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2349 031520 324 00 0 00 031521 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2350 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2351 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2352 - 2353 ;(HXXXS&AC=0): SAC INH [ST2], IR HWTFWT [IR3], IR XXXS [IR1], IR HWT [IR1], - 2354 ;IR BITS S-A-1 - 2355 - 2356 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 20 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0062 - - 2357 ;THIS TEST VERIFIES THAT THE JUMP INSTRUCTION DOES NOT MODIFY C(AC). - 2358 ;THE AC IS FIRST LOADED WITH ALL ZEROS; - 2359 ;THEN JUMP .+1 IS EXECUTED. THE AC IS THEN CHECKED TO INSURE THAT IT WAS NOT MODIFIED - 2360 ;BY JUMP. THE TEST FAILS IF THE AC WAS MODIFIED - 2361 - 2362 031521 200 00 0 00 035062 A4700: MOVE [0] ; PRESET THE AC TO ALL ZEROS - 2363 031522 320 00 0 00 031523 JUMP .+1 ;*JUMP SHOULD NOT MODIFY THE AC - 2364 031523 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC WAS INTACT - 2365 STOP^ - 2366 031524 254 04 0 00 031525 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2367 031525 324 00 0 00 031526 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2368 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2369 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2370 - 2371 ;********** - 2372 - 2373 ;THIS TEST VERIFIES THAT MOVS WILL NOT PICK UP ANY ONES WHEN SWAPPING A WORD - 2374 ;OF ALL ZEROS. FIRST, E IS LOADED WITH A WORD OF ALL ZEROS; - 2375 ;THEN, MOVS IS EXECUTED. THE AC IS THEN CHECKED TO INSURE THAT THE RESULT DOES NOT - 2376 ;CONTAIN ANY ONES. - 2377 - 2378 031526 200 00 0 00 035062 A5000: MOVE [0] ;PRESET E WITH ALL ZEROS - 2379 031527 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH AN AC 0F ALL ZEROS - 2380 031530 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF C(AC)=0 - 2381 STOP^ - 2382 031531 254 04 0 00 031532 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2383 031532 324 00 0 00 031533 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2384 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2385 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2386 - 2387 ;********** - 2388 - 2389 ;THIS TEST VERIFIES THAT A MOVS EXECUTED ON AN E CONTAINING A NON-ZERO NUMBER - 2390 ;RESULTS IN A NON-ZERO NUMBER IN THE AC. FIRST A NON-ZERO WORD - 2391 ;IS LOADED INTO E; THEN, MOVS IS EXECUTED. THE AC IS CHECKED FOR A NON-ZERO RESULT. - 2392 ;IF C(AC)=0, THE TEST FAILS. - 2393 - 2394 031533 200 00 0 00 035137 A5100: MOVE [XWD 0,-1] ;LOAD E WITH A NON-ZERO VALUE - 2395 031534 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT IN C(AC) NON-ZERO - 2396 031535 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF C(AC) OF MOVS IS NON-ZERO - 2397 STOP^ - 2398 031536 254 04 0 00 031537 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2399 031537 324 00 0 00 031540 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2400 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2401 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2402 - 2403 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 21 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0063 - - 2404 ;THIS TEST VERIFIES THAT A MOVS EXECUTED ON AN E CONTAINING A NON-ZERO NUMBER - 2405 ;RESULTS IN A NON-ZERO NUMBER IN THE AC. FIRST A NON-ZERO WORD - 2406 ;IS LOADED INTO E; THEN, MOVS IS EXECUTED. THE AC IS CHECKED FOR A NON-ZERO - 2407 ;RESULT. IF C(AC)=0, THE TEST FAILS. - 2408 - 2409 031540 200 00 0 00 035140 A5200: MOVE [XWD -1,0] ;LOAD E OF MOVS WITH A NON-ZERO NUMBER - 2410 031541 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH C(AC) NON-ZERO - 2411 031542 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF C(AC) OF MOVS IS NON-ZERO - 2412 STOP^ - 2413 031543 254 04 0 00 031544 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2414 031544 324 00 0 00 031545 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2415 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2416 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2417 - 2418 ;********** - 2419 - 2420 ;THIS TEST VERIFIES THAT THE MOVS INSTRUCTION SWAPS BITS 0 AND 188 OF E - 2421 ;AND STORES THEM IN THE AC UNLESS AR BIT 0 IS S-A-0. FIRST, A WORD - 2422 ;WITH BIT 0 SET TO A ONE AND BIT 18 CLEARED IS LOADED INTO E. THEN, MOVS - 2423 ;IS EXECUTED. THE AC IS THEN CHECKED FOR A 0 IN BIT 0, WHICH IS THE - 2424 ;CORRECT RESULT. - 2425 - 2426 031545 200 00 0 00 035140 A5300: MOVE [XWD -1,0] ;LOAD E OF MOVS WITH 777777000000 - 2427 031546 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH AC BIT 0 EQUAL TO 0 - 2428 031547 337 00 0 00 000000 SKIPG ;SKIP HALT INSTRUCTION IF BIT 0 OF AC IS 0 - 2429 STOP^ - 2430 031550 254 04 0 00 031551 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2431 031551 324 00 0 00 031552 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2432 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2433 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2434 - 2435 ;MOVSX: AR SWAP [ARMB], AR LT AR RT A [ARMB], AR LT AR RT B [ARMB], - 2436 ;AR RT AR LT A [ARMB], AR RT AR LT B [ARMB], ET2 A F/F [E], IR MOVSX [IR1], - 2437 ;IR MOV(E,S)X [IR1] - 2438 - 2439 ;********** - 2440 - 2441 ;THIS TEST VERIFIES THAT THE MOVS INSTRUCTION SWAPS BITS 0 AND 18 OF E AND - 2442 ;STORES THEM IN THE AC UNLESS AR BIT 0 IS S-A-1. FIRST, A WORD WITH BIT 0 - 2443 ;SET TO A ONE AND BIT 18 CLEARED IS LOADED INTO E. THEN, MOVS IS EXECUTED. - 2444 ;THE AC IS CHECKED FOR A ZERO IN BIT ZERO, WHICH IS THE CORRECT RESULT. - 2445 - 2446 031552 200 00 0 00 035137 A5400: MOVE [XWD 0,-1] ;LOAD E OF MOVS WITH 777777 - 2447 031553 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH BIT 0 OF THE AC SET - 2448 031554 331 00 0 00 000000 SKIPL ;PASS IF AC BIT 0 IS SET - 2449 STOP^ - 2450 031555 254 04 0 00 031556 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2451 031556 324 00 0 00 031557 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2452 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2453 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2454 - 2455 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0064 - - 2456 005500 SN=5500 - 2457 000000 ZZ=0 - 2458 - 2459 A5500: REPEAT ^D18, - 2460 <;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2461 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2462 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2463 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2464 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2465 SN=SN+1 - 2466 ZZ=ZZ+ZZ - 2467 IFE ZZ, - 2468 MOVE [0] ;CLEAR AC - 2469 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2470 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2471 STOP - 2472 - 2473 ;********** - 2474 > - 2475 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2476 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2477 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2478 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2479 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2480 005501 SN=SN+1 - 2481 000000 ZZ=ZZ+ZZ - 2482 000001 IFE ZZ, - 2483 031557 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2484 031560 204 00 0 00 035074 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2485 031561 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2486 STOP^ - 2487 031562 254 04 0 00 031563 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2488 031563 324 00 0 00 031564 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2489 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2490 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2491 - 2492 ;********** - 2493 - 2494 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2495 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2496 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2497 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2498 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2499 005502 SN=SN+1 - 2500 000002 ZZ=ZZ+ZZ - 2501 IFE ZZ, - 2502 031564 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2503 031565 204 00 0 00 035075 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2504 031566 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2505 STOP^ - 2506 031567 254 04 0 00 031570 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2507 031570 324 00 0 00 031571 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2508 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2509 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2510 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-1 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0065 - - 2511 ;********** - 2512 - 2513 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2514 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2515 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2516 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2517 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2518 005503 SN=SN+1 - 2519 000004 ZZ=ZZ+ZZ - 2520 IFE ZZ, - 2521 031571 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2522 031572 204 00 0 00 035076 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2523 031573 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2524 STOP^ - 2525 031574 254 04 0 00 031575 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2526 031575 324 00 0 00 031576 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2527 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2528 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2529 - 2530 ;********** - 2531 - 2532 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2533 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2534 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2535 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2536 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2537 005504 SN=SN+1 - 2538 000010 ZZ=ZZ+ZZ - 2539 IFE ZZ, - 2540 031576 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2541 031577 204 00 0 00 035077 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2542 031600 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2543 STOP^ - 2544 031601 254 04 0 00 031602 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2545 031602 324 00 0 00 031603 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2546 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2547 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2548 - 2549 ;********** - 2550 - 2551 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2552 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2553 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2554 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2555 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2556 005505 SN=SN+1 - 2557 000020 ZZ=ZZ+ZZ - 2558 IFE ZZ, - 2559 031603 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2560 031604 204 00 0 00 035100 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2561 031605 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2562 STOP^ - 2563 031606 254 04 0 00 031607 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2564 031607 324 00 0 00 031610 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2565 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-2 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0066 - - 2566 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2567 - 2568 ;********** - 2569 - 2570 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2571 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2572 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2573 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2574 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2575 005506 SN=SN+1 - 2576 000040 ZZ=ZZ+ZZ - 2577 IFE ZZ, - 2578 031610 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2579 031611 204 00 0 00 035101 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2580 031612 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2581 STOP^ - 2582 031613 254 04 0 00 031614 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2583 031614 324 00 0 00 031615 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2584 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2585 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2586 - 2587 ;********** - 2588 - 2589 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2590 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2591 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2592 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2593 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2594 005507 SN=SN+1 - 2595 000100 ZZ=ZZ+ZZ - 2596 IFE ZZ, - 2597 031615 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2598 031616 204 00 0 00 035102 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2599 031617 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2600 STOP^ - 2601 031620 254 04 0 00 031621 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2602 031621 324 00 0 00 031622 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2603 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2604 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2605 - 2606 ;********** - 2607 - 2608 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2609 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2610 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2611 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2612 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2613 005510 SN=SN+1 - 2614 000200 ZZ=ZZ+ZZ - 2615 IFE ZZ, - 2616 031622 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2617 031623 204 00 0 00 035103 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2618 031624 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2619 STOP^ - 2620 031625 254 04 0 00 031626 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-3 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0067 - - 2621 031626 324 00 0 00 031627 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2622 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2623 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2624 - 2625 ;********** - 2626 - 2627 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2628 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2629 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2630 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2631 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2632 005511 SN=SN+1 - 2633 000400 ZZ=ZZ+ZZ - 2634 IFE ZZ, - 2635 031627 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2636 031630 204 00 0 00 035104 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2637 031631 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2638 STOP^ - 2639 031632 254 04 0 00 031633 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2640 031633 324 00 0 00 031634 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2641 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2642 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2643 - 2644 ;********** - 2645 - 2646 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2647 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2648 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2649 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2650 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2651 005512 SN=SN+1 - 2652 001000 ZZ=ZZ+ZZ - 2653 IFE ZZ, - 2654 031634 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2655 031635 204 00 0 00 035105 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2656 031636 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2657 STOP^ - 2658 031637 254 04 0 00 031640 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2659 031640 324 00 0 00 031641 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2660 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2661 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2662 - 2663 ;********** - 2664 - 2665 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2666 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2667 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2668 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2669 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2670 005513 SN=SN+1 - 2671 002000 ZZ=ZZ+ZZ - 2672 IFE ZZ, - 2673 031641 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2674 031642 204 00 0 00 035106 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2675 031643 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-4 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0068 - - 2676 STOP^ - 2677 031644 254 04 0 00 031645 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2678 031645 324 00 0 00 031646 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2679 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2680 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2681 - 2682 ;********** - 2683 - 2684 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2685 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2686 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2687 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2688 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2689 005514 SN=SN+1 - 2690 004000 ZZ=ZZ+ZZ - 2691 IFE ZZ, - 2692 031646 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2693 031647 204 00 0 00 035107 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2694 031650 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2695 STOP^ - 2696 031651 254 04 0 00 031652 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2697 031652 324 00 0 00 031653 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2698 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2699 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2700 - 2701 ;********** - 2702 - 2703 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2704 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2705 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2706 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2707 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2708 005515 SN=SN+1 - 2709 010000 ZZ=ZZ+ZZ - 2710 IFE ZZ, - 2711 031653 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2712 031654 204 00 0 00 035110 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2713 031655 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2714 STOP^ - 2715 031656 254 04 0 00 031657 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2716 031657 324 00 0 00 031660 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2717 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2718 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2719 - 2720 ;********** - 2721 - 2722 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2723 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2724 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2725 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2726 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2727 005516 SN=SN+1 - 2728 020000 ZZ=ZZ+ZZ - 2729 IFE ZZ, - 2730 031660 200 00 0 00 035062 MOVE [0] ;CLEAR AC -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-5 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0069 - - 2731 031661 204 00 0 00 035111 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2732 031662 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2733 STOP^ - 2734 031663 254 04 0 00 031664 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2735 031664 324 00 0 00 031665 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2736 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2737 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2738 - 2739 ;********** - 2740 - 2741 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2742 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2743 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2744 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2745 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2746 005517 SN=SN+1 - 2747 040000 ZZ=ZZ+ZZ - 2748 IFE ZZ, - 2749 031665 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2750 031666 204 00 0 00 035112 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2751 031667 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2752 STOP^ - 2753 031670 254 04 0 00 031671 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2754 031671 324 00 0 00 031672 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2755 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2756 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2757 - 2758 ;********** - 2759 - 2760 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2761 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2762 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2763 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2764 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2765 005520 SN=SN+1 - 2766 100000 ZZ=ZZ+ZZ - 2767 IFE ZZ, - 2768 031672 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2769 031673 204 00 0 00 035113 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2770 031674 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2771 STOP^ - 2772 031675 254 04 0 00 031676 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2773 031676 324 00 0 00 031677 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2774 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2775 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2776 - 2777 ;********** - 2778 - 2779 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2780 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2781 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2782 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2783 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2784 005521 SN=SN+1 - 2785 200000 ZZ=ZZ+ZZ -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-6 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0070 - - 2786 IFE ZZ, - 2787 031677 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2788 031700 204 00 0 00 035114 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2789 031701 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2790 STOP^ - 2791 031702 254 04 0 00 031703 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2792 031703 324 00 0 00 031704 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2793 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2794 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2795 - 2796 ;********** - 2797 - 2798 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, - 2799 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. - 2800 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES - 2801 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT - 2802 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. - 2803 005522 SN=SN+1 - 2804 400000 ZZ=ZZ+ZZ - 2805 IFE ZZ, - 2806 031704 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2807 031705 204 00 0 00 035115 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2808 031706 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2809 STOP^ - 2810 031707 254 04 0 00 031710 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2811 031710 324 00 0 00 031711 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2812 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2813 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2814 - 2815 ;********** - 2816 - 2817 005600 SN=5600 - 2818 - 2819 A5600: REPEAT ^D18, - 2820 <;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 2821 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 2822 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 2823 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 2824 ;HALF OF THE AC IS TESTED WITH A 1. - 2825 - 2826 SN=SN+1 - 2827 ZZ=ZZ+ZZ - 2828 MOVE [0] ;CLEAR AC - 2829 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2830 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2831 STOP - 2832 - 2833 ;********** - 2834 > - 2835 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 2836 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 2837 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 2838 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 2839 ;HALF OF THE AC IS TESTED WITH A 1. - 2840 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-7 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0071 - - 2841 005601 SN=SN+1 - 2842 000001 000000 ZZ=ZZ+ZZ - 2843 031711 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2844 031712 204 00 0 00 035116 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2845 031713 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2846 STOP^ - 2847 031714 254 04 0 00 031715 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2848 031715 324 00 0 00 031716 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2849 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2850 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2851 - 2852 ;********** - 2853 - 2854 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 2855 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 2856 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 2857 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 2858 ;HALF OF THE AC IS TESTED WITH A 1. - 2859 - 2860 005602 SN=SN+1 - 2861 000002 000000 ZZ=ZZ+ZZ - 2862 031716 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2863 031717 204 00 0 00 035117 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2864 031720 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2865 STOP^ - 2866 031721 254 04 0 00 031722 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2867 031722 324 00 0 00 031723 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2868 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2869 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2870 - 2871 ;********** - 2872 - 2873 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 2874 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 2875 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 2876 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 2877 ;HALF OF THE AC IS TESTED WITH A 1. - 2878 - 2879 005603 SN=SN+1 - 2880 000004 000000 ZZ=ZZ+ZZ - 2881 031723 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2882 031724 204 00 0 00 035120 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2883 031725 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2884 STOP^ - 2885 031726 254 04 0 00 031727 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2886 031727 324 00 0 00 031730 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2887 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2888 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2889 - 2890 ;********** - 2891 - 2892 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 2893 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 2894 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 2895 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-8 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0072 - - 2896 ;HALF OF THE AC IS TESTED WITH A 1. - 2897 - 2898 005604 SN=SN+1 - 2899 000010 000000 ZZ=ZZ+ZZ - 2900 031730 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2901 031731 204 00 0 00 035121 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2902 031732 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2903 STOP^ - 2904 031733 254 04 0 00 031734 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2905 031734 324 00 0 00 031735 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2906 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2907 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2908 - 2909 ;********** - 2910 - 2911 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 2912 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 2913 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 2914 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 2915 ;HALF OF THE AC IS TESTED WITH A 1. - 2916 - 2917 005605 SN=SN+1 - 2918 000020 000000 ZZ=ZZ+ZZ - 2919 031735 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2920 031736 204 00 0 00 035122 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2921 031737 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2922 STOP^ - 2923 031740 254 04 0 00 031741 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2924 031741 324 00 0 00 031742 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2925 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2926 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2927 - 2928 ;********** - 2929 - 2930 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 2931 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 2932 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 2933 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 2934 ;HALF OF THE AC IS TESTED WITH A 1. - 2935 - 2936 005606 SN=SN+1 - 2937 000040 000000 ZZ=ZZ+ZZ - 2938 031742 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2939 031743 204 00 0 00 035123 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2940 031744 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2941 STOP^ - 2942 031745 254 04 0 00 031746 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2943 031746 324 00 0 00 031747 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2944 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2945 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2946 - 2947 ;********** - 2948 - 2949 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 2950 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-9 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0073 - - 2951 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 2952 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 2953 ;HALF OF THE AC IS TESTED WITH A 1. - 2954 - 2955 005607 SN=SN+1 - 2956 000100 000000 ZZ=ZZ+ZZ - 2957 031747 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2958 031750 204 00 0 00 035124 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2959 031751 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2960 STOP^ - 2961 031752 254 04 0 00 031753 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2962 031753 324 00 0 00 031754 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2963 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2964 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2965 - 2966 ;********** - 2967 - 2968 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 2969 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 2970 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 2971 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 2972 ;HALF OF THE AC IS TESTED WITH A 1. - 2973 - 2974 005610 SN=SN+1 - 2975 000200 000000 ZZ=ZZ+ZZ - 2976 031754 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2977 031755 204 00 0 00 035125 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2978 031756 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2979 STOP^ - 2980 031757 254 04 0 00 031760 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2981 031760 324 00 0 00 031761 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 2982 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 2983 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 2984 - 2985 ;********** - 2986 - 2987 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 2988 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 2989 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 2990 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 2991 ;HALF OF THE AC IS TESTED WITH A 1. - 2992 - 2993 005611 SN=SN+1 - 2994 000400 000000 ZZ=ZZ+ZZ - 2995 031761 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 2996 031762 204 00 0 00 035073 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 2997 031763 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 2998 STOP^ - 2999 031764 254 04 0 00 031765 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3000 031765 324 00 0 00 031766 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3001 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3002 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3003 - 3004 ;********** - 3005 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-10 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0074 - - 3006 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 3007 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 3008 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 3009 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 3010 ;HALF OF THE AC IS TESTED WITH A 1. - 3011 - 3012 005612 SN=SN+1 - 3013 001000 000000 ZZ=ZZ+ZZ - 3014 031766 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 3015 031767 204 00 0 00 035126 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 3016 031770 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 3017 STOP^ - 3018 031771 254 04 0 00 031772 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3019 031772 324 00 0 00 031773 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3020 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3021 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3022 - 3023 ;********** - 3024 - 3025 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 3026 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 3027 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 3028 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 3029 ;HALF OF THE AC IS TESTED WITH A 1. - 3030 - 3031 005613 SN=SN+1 - 3032 002000 000000 ZZ=ZZ+ZZ - 3033 031773 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 3034 031774 204 00 0 00 035127 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 3035 031775 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 3036 STOP^ - 3037 031776 254 04 0 00 031777 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3038 031777 324 00 0 00 032000 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3039 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3040 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3041 - 3042 ;********** - 3043 - 3044 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 3045 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 3046 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 3047 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 3048 ;HALF OF THE AC IS TESTED WITH A 1. - 3049 - 3050 005614 SN=SN+1 - 3051 004000 000000 ZZ=ZZ+ZZ - 3052 032000 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 3053 032001 204 00 0 00 035130 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 3054 032002 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 3055 STOP^ - 3056 032003 254 04 0 00 032004 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3057 032004 324 00 0 00 032005 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3058 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3059 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3060 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-11 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0075 - - 3061 ;********** - 3062 - 3063 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 3064 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 3065 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 3066 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 3067 ;HALF OF THE AC IS TESTED WITH A 1. - 3068 - 3069 005615 SN=SN+1 - 3070 010000 000000 ZZ=ZZ+ZZ - 3071 032005 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 3072 032006 204 00 0 00 035131 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 3073 032007 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 3074 STOP^ - 3075 032010 254 04 0 00 032011 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3076 032011 324 00 0 00 032012 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3077 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3078 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3079 - 3080 ;********** - 3081 - 3082 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 3083 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 3084 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 3085 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 3086 ;HALF OF THE AC IS TESTED WITH A 1. - 3087 - 3088 005616 SN=SN+1 - 3089 020000 000000 ZZ=ZZ+ZZ - 3090 032012 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 3091 032013 204 00 0 00 035132 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 3092 032014 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 3093 STOP^ - 3094 032015 254 04 0 00 032016 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3095 032016 324 00 0 00 032017 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3096 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3097 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3098 - 3099 ;********** - 3100 - 3101 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 3102 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 3103 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 3104 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 3105 ;HALF OF THE AC IS TESTED WITH A 1. - 3106 - 3107 005617 SN=SN+1 - 3108 040000 000000 ZZ=ZZ+ZZ - 3109 032017 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 3110 032020 204 00 0 00 035133 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 3111 032021 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 3112 STOP^ - 3113 032022 254 04 0 00 032023 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3114 032023 324 00 0 00 032024 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3115 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-12 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0076 - - 3116 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3117 - 3118 ;********** - 3119 - 3120 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 3121 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 3122 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 3123 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 3124 ;HALF OF THE AC IS TESTED WITH A 1. - 3125 - 3126 005620 SN=SN+1 - 3127 100000 000000 ZZ=ZZ+ZZ - 3128 032024 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 3129 032025 204 00 0 00 035134 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 3130 032026 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 3131 STOP^ - 3132 032027 254 04 0 00 032030 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3133 032030 324 00 0 00 032031 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3134 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3135 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3136 - 3137 ;********** - 3138 - 3139 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 3140 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 3141 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 3142 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 3143 ;HALF OF THE AC IS TESTED WITH A 1. - 3144 - 3145 005621 SN=SN+1 - 3146 200000 000000 ZZ=ZZ+ZZ - 3147 032031 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 3148 032032 204 00 0 00 035135 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 3149 032033 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 3150 STOP^ - 3151 032034 254 04 0 00 032035 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3152 032035 324 00 0 00 032036 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3153 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3154 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3155 - 3156 ;********** - 3157 - 3158 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL - 3159 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS - 3160 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS - 3161 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT - 3162 ;HALF OF THE AC IS TESTED WITH A 1. - 3163 - 3164 005622 SN=SN+1 - 3165 400000 000000 ZZ=ZZ+ZZ - 3166 032036 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 3167 032037 204 00 0 00 035065 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - 3168 032040 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - 3169 STOP^ - 3170 032041 254 04 0 00 032042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 22-13 -DAKAAM MAC 19-JAN-77 13:42 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0077 - - 3171 032042 324 00 0 00 032043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3172 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3173 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3174 - 3175 ;********** - 3176 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 23 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0078 - - 3177 SUBTTL TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) - 3178 - 3179 ;THIS TEST VERIFIES THAT SETM LOADS AC FROM E. THE AC IS FIRST SET - 3180 ;TO ZERO; THEN, SETM IS EXECUTED WITH ALL ONES IN E. BIT 0 OF THE AC - 3181 ;IS THEN CHECKED FOR A 1. - 3182 - 3183 032043 200 00 0 00 035062 A5700: MOVE [0] ;PRELOAD AC WITH ALL ZEROS - 3184 032044 414 00 0 00 035063 SETM [-1] ;*SETM SHOULD LOAD AC WITH ALL ONES - 3185 032045 331 00 0 00 000000 SKIPL ;PASS TEST IF AC BIT 0 IS A ONE - 3186 STOP^ - 3187 032046 254 04 0 00 032047 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3188 032047 324 00 0 00 032050 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3189 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3190 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3191 ;FCE [F1], IR BOOLE [IR1], IRXX(0,5,12,17) [IR2] - 3192 - 3193 ;********** - 3194 - 3195 ;THIS TEST VERIFIES THAT SETM LOADS AC FROM E. THE AC IS FIRST SET TO - 3196 ;ALL ONES; THEN, SETM IS EXECUTED WITH ALL ZEROS IN E. THE AC IS CHECKED - 3197 ;FOR ALL ZEROS - 3198 - 3199 032050 200 00 0 00 035063 A6000: MOVE [-1] ;PRESET AC TO ALL ONES - 3200 032051 414 00 0 00 035062 SETM [0] ;*SETM SHOULD LOAD AC WITH ALL ONES - 3201 032052 332 00 0 00 000000 SKIPE ;PASSES TEST IF C(AC) = 0 - 3202 STOP^ - 3203 032053 254 04 0 00 032054 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3204 032054 324 00 0 00 032055 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3205 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3206 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3207 - 3208 ;AD AR + EN [ADAP], AD AR + EN C[ADAP], - 3209 ;F CYC ACT EN A[F1], IR BOOLE AD A +F[IR2], - 3210 ;IR BOOLE [IR1], IRXX(1-3,6,11,15,16) [IR2] - 3211 - 3212 ;********** - 3213 - 3214 ;THIS TEST VERIFIES THAT SETZ LOADS TH AC WITH ALL ZEROS. FIRST, A WORD - 3215 ;OF ALL ZEROS IS LOADED INTO THE AC VIA A MOVE INSTC. THEN, SETZ IS - 3216 ;EXECUTED. THE AC IS CHECKED FOR ALL ZEROS. - 3217 ;IF ANY BITS IN THE AC ARE SET, THE TEST FAILS. - 3218 - 3219 032055 200 00 0 00 035062 A6100: MOVE [0] ;RESET AC TO ALL ZEROS - 3220 032056 400 00 0 00 000000 SETZ ;*SETZ SHOULD CLEAR THE AC - 3221 032057 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC) = 0 - 3222 STOP^ - 3223 032060 254 04 0 00 032061 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3224 032061 324 00 0 00 032062 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3225 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3226 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3227 - 3228 ;AD MASK GEN EN [ADC1], AD MASK GEN F/F'S [ADC1] - 3229 ;AD MASK EN B; F CYC ACT EN B[F1]; IRXX00 [IR1]; - 3230 ;IR BOOLE [IR1] - 3231 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 23-1 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0079 - - 3232 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0080 - - 3233 ;THIS TEST VERIFIES THAT SETZ LOADS THE AC WITH ALL ZEROS. FIRST, - 3234 ;THE AC IS SET TO ALL ONES; THEN, SETZ IS EXECUTED. THE AC IS THEN - 3235 ;CHECKED FOR ALL ZEROS. IF ANY BITS IN THE AC ARE SET, THE TEST FAILS. - 3236 - 3237 032062 200 00 0 00 035063 A6200: MOVE [-1] ;PRESET AC TO ALL ONES - 3238 032063 400 00 0 00 032063 SETZ . ;*SETZ SHOULD CLEAR THE AC - 3239 032064 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC) = 0 - 3240 STOP^ - 3241 032065 254 04 0 00 032066 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3242 032066 324 00 0 00 032067 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3243 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3244 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3245 - 3246 ;AR AD EN [ARMA], AR AD ET2 EN [ARMA], IR BOOLE [IR] - 3247 - 3248 ;********** - 3249 - 3250 ;THIS TEST VERIFIES THAT THE AND INSTRUCTION OPERATING ON AN AC - 3251 ;CONTAINING ALL ZEROS AND AN E CONTAINING ALL ZEROS RESULTS IN AN AC - 3252 ;OF ALL ZEROS. THE AC AND E ARE THE SAME IN THIS TEST. - 3253 ;AC, E ARE LOADED WITH ZEROS; THEN, AND IS EXECUTED. THE AC IS THEN - 3254 ;CHECKED FOR ALL ZEROS. IF ANY BITS IN THE AC ARE SET BY THE AND INSTRUCTION, - 3255 ;THE TEST FAILS. - 3256 - 3257 - 3258 032067 200 00 0 00 035062 A6300: MOVE [0] ;PRESET AC, E TO ALL ZEROS - 3259 032070 404 00 0 00 000000 AND ;*AND SHOULD RESULT IN C(AC) = 0 - 3260 032071 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC) = 0 - 3261 STOP^ - 3262 032072 254 04 0 00 032073 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3263 032073 324 00 0 00 032074 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3264 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3265 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3266 - 3267 ;********** - 3268 006400 SN=6400 - 3269 000000 ZZ=0 - 3270 - 3271 A6400: REPEAT ^D36, - 3272 <;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3273 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3274 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3275 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3276 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3277 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3278 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3279 - 3280 SN=SN+1 - 3281 ZZ=ZZ+ZZ - 3282 IFE ZZ, - 3283 SETZ ;PRESET E TO ALL ZEROS - 3284 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3285 ;WHERE X VARIES FROM 0 THRU 35 - 3286 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3287 SKIPE 1 ;FAIL IF C(AC) NON-ZERO -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-1 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0081 - - 3288 STOP - 3289 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3290 STOP - 3291 ;********** - 3292 > - 3293 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3294 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3295 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3296 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3297 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3298 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3299 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3300 - 3301 006401 SN=SN+1 - 3302 000000 ZZ=ZZ+ZZ - 3303 000001 IFE ZZ, - 3304 032074 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3305 032075 200 01 0 00 035074 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3306 ;WHERE X VARIES FROM 0 THRU 35 - 3307 032076 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3308 032077 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3309 STOP^ - 3310 032100 254 04 0 00 032101 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3311 032101 324 00 0 00 032102 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3312 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3313 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3314 032102 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3315 STOP^ - 3316 032103 254 04 0 00 032104 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3317 032104 324 00 0 00 032105 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3318 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3319 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3320 ;********** - 3321 - 3322 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3323 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3324 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3325 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3326 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3327 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3328 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3329 - 3330 006402 SN=SN+1 - 3331 000002 ZZ=ZZ+ZZ - 3332 IFE ZZ, - 3333 032105 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3334 032106 200 01 0 00 035075 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3335 ;WHERE X VARIES FROM 0 THRU 35 - 3336 032107 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3337 032110 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3338 STOP^ - 3339 032111 254 04 0 00 032112 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3340 032112 324 00 0 00 032113 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3341 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3342 ;IN THE SUBTEST) TO LOOP ON ERROR^ -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-2 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0082 - - 3343 032113 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3344 STOP^ - 3345 032114 254 04 0 00 032115 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3346 032115 324 00 0 00 032116 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3347 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3348 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3349 ;********** - 3350 - 3351 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3352 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3353 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3354 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3355 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3356 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3357 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3358 - 3359 006403 SN=SN+1 - 3360 000004 ZZ=ZZ+ZZ - 3361 IFE ZZ, - 3362 032116 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3363 032117 200 01 0 00 035076 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3364 ;WHERE X VARIES FROM 0 THRU 35 - 3365 032120 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3366 032121 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3367 STOP^ - 3368 032122 254 04 0 00 032123 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3369 032123 324 00 0 00 032124 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3370 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3371 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3372 032124 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3373 STOP^ - 3374 032125 254 04 0 00 032126 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3375 032126 324 00 0 00 032127 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3376 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3377 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3378 ;********** - 3379 - 3380 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3381 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3382 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3383 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3384 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3385 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3386 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3387 - 3388 006404 SN=SN+1 - 3389 000010 ZZ=ZZ+ZZ - 3390 IFE ZZ, - 3391 032127 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3392 032130 200 01 0 00 035077 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3393 ;WHERE X VARIES FROM 0 THRU 35 - 3394 032131 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3395 032132 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3396 STOP^ - 3397 032133 254 04 0 00 032134 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-3 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0083 - - 3398 032134 324 00 0 00 032135 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3399 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3400 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3401 032135 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3402 STOP^ - 3403 032136 254 04 0 00 032137 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3404 032137 324 00 0 00 032140 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3405 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3406 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3407 ;********** - 3408 - 3409 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3410 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3411 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3412 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3413 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3414 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3415 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3416 - 3417 006405 SN=SN+1 - 3418 000020 ZZ=ZZ+ZZ - 3419 IFE ZZ, - 3420 032140 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3421 032141 200 01 0 00 035100 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3422 ;WHERE X VARIES FROM 0 THRU 35 - 3423 032142 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3424 032143 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3425 STOP^ - 3426 032144 254 04 0 00 032145 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3427 032145 324 00 0 00 032146 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3428 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3429 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3430 032146 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3431 STOP^ - 3432 032147 254 04 0 00 032150 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3433 032150 324 00 0 00 032151 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3434 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3435 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3436 ;********** - 3437 - 3438 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3439 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3440 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3441 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3442 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3443 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3444 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3445 - 3446 006406 SN=SN+1 - 3447 000040 ZZ=ZZ+ZZ - 3448 IFE ZZ, - 3449 032151 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3450 032152 200 01 0 00 035101 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3451 ;WHERE X VARIES FROM 0 THRU 35 - 3452 032153 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-4 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0084 - - 3453 032154 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3454 STOP^ - 3455 032155 254 04 0 00 032156 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3456 032156 324 00 0 00 032157 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3457 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3458 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3459 032157 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3460 STOP^ - 3461 032160 254 04 0 00 032161 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3462 032161 324 00 0 00 032162 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3463 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3464 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3465 ;********** - 3466 - 3467 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3468 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3469 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3470 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3471 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3472 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3473 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3474 - 3475 006407 SN=SN+1 - 3476 000100 ZZ=ZZ+ZZ - 3477 IFE ZZ, - 3478 032162 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3479 032163 200 01 0 00 035102 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3480 ;WHERE X VARIES FROM 0 THRU 35 - 3481 032164 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3482 032165 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3483 STOP^ - 3484 032166 254 04 0 00 032167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3485 032167 324 00 0 00 032170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3486 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3487 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3488 032170 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3489 STOP^ - 3490 032171 254 04 0 00 032172 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3491 032172 324 00 0 00 032173 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3492 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3493 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3494 ;********** - 3495 - 3496 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3497 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3498 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3499 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3500 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3501 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3502 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3503 - 3504 006410 SN=SN+1 - 3505 000200 ZZ=ZZ+ZZ - 3506 IFE ZZ, - 3507 032173 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-5 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0085 - - 3508 032174 200 01 0 00 035103 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3509 ;WHERE X VARIES FROM 0 THRU 35 - 3510 032175 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3511 032176 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3512 STOP^ - 3513 032177 254 04 0 00 032200 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3514 032200 324 00 0 00 032201 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3515 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3516 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3517 032201 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3518 STOP^ - 3519 032202 254 04 0 00 032203 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3520 032203 324 00 0 00 032204 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3521 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3522 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3523 ;********** - 3524 - 3525 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3526 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3527 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3528 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3529 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3530 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3531 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3532 - 3533 006411 SN=SN+1 - 3534 000400 ZZ=ZZ+ZZ - 3535 IFE ZZ, - 3536 032204 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3537 032205 200 01 0 00 035104 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3538 ;WHERE X VARIES FROM 0 THRU 35 - 3539 032206 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3540 032207 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3541 STOP^ - 3542 032210 254 04 0 00 032211 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3543 032211 324 00 0 00 032212 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3544 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3545 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3546 032212 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3547 STOP^ - 3548 032213 254 04 0 00 032214 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3549 032214 324 00 0 00 032215 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3550 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3551 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3552 ;********** - 3553 - 3554 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3555 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3556 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3557 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3558 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3559 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3560 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3561 - 3562 006412 SN=SN+1 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-6 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0086 - - 3563 001000 ZZ=ZZ+ZZ - 3564 IFE ZZ, - 3565 032215 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3566 032216 200 01 0 00 035105 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3567 ;WHERE X VARIES FROM 0 THRU 35 - 3568 032217 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3569 032220 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3570 STOP^ - 3571 032221 254 04 0 00 032222 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3572 032222 324 00 0 00 032223 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3573 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3574 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3575 032223 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3576 STOP^ - 3577 032224 254 04 0 00 032225 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3578 032225 324 00 0 00 032226 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3579 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3580 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3581 ;********** - 3582 - 3583 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3584 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3585 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3586 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3587 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3588 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3589 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3590 - 3591 006413 SN=SN+1 - 3592 002000 ZZ=ZZ+ZZ - 3593 IFE ZZ, - 3594 032226 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3595 032227 200 01 0 00 035106 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3596 ;WHERE X VARIES FROM 0 THRU 35 - 3597 032230 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3598 032231 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3599 STOP^ - 3600 032232 254 04 0 00 032233 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3601 032233 324 00 0 00 032234 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3602 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3603 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3604 032234 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3605 STOP^ - 3606 032235 254 04 0 00 032236 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3607 032236 324 00 0 00 032237 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3608 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3609 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3610 ;********** - 3611 - 3612 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3613 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3614 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3615 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3616 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3617 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-7 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0087 - - 3618 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3619 - 3620 006414 SN=SN+1 - 3621 004000 ZZ=ZZ+ZZ - 3622 IFE ZZ, - 3623 032237 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3624 032240 200 01 0 00 035107 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3625 ;WHERE X VARIES FROM 0 THRU 35 - 3626 032241 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3627 032242 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3628 STOP^ - 3629 032243 254 04 0 00 032244 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3630 032244 324 00 0 00 032245 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3631 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3632 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3633 032245 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3634 STOP^ - 3635 032246 254 04 0 00 032247 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3636 032247 324 00 0 00 032250 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3637 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3638 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3639 ;********** - 3640 - 3641 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3642 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3643 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3644 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3645 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3646 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3647 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3648 - 3649 006415 SN=SN+1 - 3650 010000 ZZ=ZZ+ZZ - 3651 IFE ZZ, - 3652 032250 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3653 032251 200 01 0 00 035110 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3654 ;WHERE X VARIES FROM 0 THRU 35 - 3655 032252 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3656 032253 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3657 STOP^ - 3658 032254 254 04 0 00 032255 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3659 032255 324 00 0 00 032256 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3660 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3661 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3662 032256 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3663 STOP^ - 3664 032257 254 04 0 00 032260 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3665 032260 324 00 0 00 032261 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3666 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3667 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3668 ;********** - 3669 - 3670 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3671 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3672 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-8 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0088 - - 3673 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3674 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3675 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3676 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3677 - 3678 006416 SN=SN+1 - 3679 020000 ZZ=ZZ+ZZ - 3680 IFE ZZ, - 3681 032261 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3682 032262 200 01 0 00 035111 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3683 ;WHERE X VARIES FROM 0 THRU 35 - 3684 032263 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3685 032264 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3686 STOP^ - 3687 032265 254 04 0 00 032266 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3688 032266 324 00 0 00 032267 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3689 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3690 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3691 032267 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3692 STOP^ - 3693 032270 254 04 0 00 032271 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3694 032271 324 00 0 00 032272 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3695 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3696 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3697 ;********** - 3698 - 3699 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3700 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3701 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3702 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3703 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3704 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3705 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3706 - 3707 006417 SN=SN+1 - 3708 040000 ZZ=ZZ+ZZ - 3709 IFE ZZ, - 3710 032272 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3711 032273 200 01 0 00 035112 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3712 ;WHERE X VARIES FROM 0 THRU 35 - 3713 032274 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3714 032275 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3715 STOP^ - 3716 032276 254 04 0 00 032277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3717 032277 324 00 0 00 032300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3718 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3719 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3720 032300 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3721 STOP^ - 3722 032301 254 04 0 00 032302 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3723 032302 324 00 0 00 032303 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3724 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3725 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3726 ;********** - 3727 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-9 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0089 - - 3728 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3729 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3730 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3731 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3732 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3733 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3734 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3735 - 3736 006420 SN=SN+1 - 3737 100000 ZZ=ZZ+ZZ - 3738 IFE ZZ, - 3739 032303 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3740 032304 200 01 0 00 035113 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3741 ;WHERE X VARIES FROM 0 THRU 35 - 3742 032305 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3743 032306 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3744 STOP^ - 3745 032307 254 04 0 00 032310 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3746 032310 324 00 0 00 032311 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3747 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3748 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3749 032311 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3750 STOP^ - 3751 032312 254 04 0 00 032313 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3752 032313 324 00 0 00 032314 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3753 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3754 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3755 ;********** - 3756 - 3757 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3758 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3759 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3760 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3761 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3762 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3763 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3764 - 3765 006421 SN=SN+1 - 3766 200000 ZZ=ZZ+ZZ - 3767 IFE ZZ, - 3768 032314 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3769 032315 200 01 0 00 035114 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3770 ;WHERE X VARIES FROM 0 THRU 35 - 3771 032316 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3772 032317 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3773 STOP^ - 3774 032320 254 04 0 00 032321 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3775 032321 324 00 0 00 032322 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3776 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3777 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3778 032322 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3779 STOP^ - 3780 032323 254 04 0 00 032324 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3781 032324 324 00 0 00 032325 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3782 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-10 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0090 - - 3783 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3784 ;********** - 3785 - 3786 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3787 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3788 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3789 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3790 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3791 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3792 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3793 - 3794 006422 SN=SN+1 - 3795 400000 ZZ=ZZ+ZZ - 3796 IFE ZZ, - 3797 032325 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3798 032326 200 01 0 00 035115 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3799 ;WHERE X VARIES FROM 0 THRU 35 - 3800 032327 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3801 032330 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3802 STOP^ - 3803 032331 254 04 0 00 032332 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3804 032332 324 00 0 00 032333 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3805 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3806 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3807 032333 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3808 STOP^ - 3809 032334 254 04 0 00 032335 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3810 032335 324 00 0 00 032336 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3811 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3812 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3813 ;********** - 3814 - 3815 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3816 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3817 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3818 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3819 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3820 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3821 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3822 - 3823 006423 SN=SN+1 - 3824 000001 000000 ZZ=ZZ+ZZ - 3825 IFE ZZ, - 3826 032336 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3827 032337 200 01 0 00 035116 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3828 ;WHERE X VARIES FROM 0 THRU 35 - 3829 032340 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3830 032341 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3831 STOP^ - 3832 032342 254 04 0 00 032343 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3833 032343 324 00 0 00 032344 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3834 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3835 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3836 032344 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3837 STOP^ -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-11 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0091 - - 3838 032345 254 04 0 00 032346 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3839 032346 324 00 0 00 032347 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3840 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3841 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3842 ;********** - 3843 - 3844 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3845 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3846 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3847 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3848 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3849 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3850 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3851 - 3852 006424 SN=SN+1 - 3853 000002 000000 ZZ=ZZ+ZZ - 3854 IFE ZZ, - 3855 032347 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3856 032350 200 01 0 00 035117 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3857 ;WHERE X VARIES FROM 0 THRU 35 - 3858 032351 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3859 032352 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3860 STOP^ - 3861 032353 254 04 0 00 032354 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3862 032354 324 00 0 00 032355 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3863 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3864 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3865 032355 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3866 STOP^ - 3867 032356 254 04 0 00 032357 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3868 032357 324 00 0 00 032360 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3869 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3870 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3871 ;********** - 3872 - 3873 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3874 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3875 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3876 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3877 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3878 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3879 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3880 - 3881 006425 SN=SN+1 - 3882 000004 000000 ZZ=ZZ+ZZ - 3883 IFE ZZ, - 3884 032360 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3885 032361 200 01 0 00 035120 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3886 ;WHERE X VARIES FROM 0 THRU 35 - 3887 032362 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3888 032363 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3889 STOP^ - 3890 032364 254 04 0 00 032365 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3891 032365 324 00 0 00 032366 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3892 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-12 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0092 - - 3893 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3894 032366 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3895 STOP^ - 3896 032367 254 04 0 00 032370 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3897 032370 324 00 0 00 032371 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3898 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3899 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3900 ;********** - 3901 - 3902 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3903 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3904 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3905 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3906 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3907 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3908 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3909 - 3910 006426 SN=SN+1 - 3911 000010 000000 ZZ=ZZ+ZZ - 3912 IFE ZZ, - 3913 032371 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3914 032372 200 01 0 00 035121 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3915 ;WHERE X VARIES FROM 0 THRU 35 - 3916 032373 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3917 032374 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3918 STOP^ - 3919 032375 254 04 0 00 032376 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3920 032376 324 00 0 00 032377 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3921 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3922 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3923 032377 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3924 STOP^ - 3925 032400 254 04 0 00 032401 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3926 032401 324 00 0 00 032402 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3927 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3928 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3929 ;********** - 3930 - 3931 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3932 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3933 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3934 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3935 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3936 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3937 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3938 - 3939 006427 SN=SN+1 - 3940 000020 000000 ZZ=ZZ+ZZ - 3941 IFE ZZ, - 3942 032402 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3943 032403 200 01 0 00 035122 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3944 ;WHERE X VARIES FROM 0 THRU 35 - 3945 032404 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3946 032405 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3947 STOP^ -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-13 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0093 - - 3948 032406 254 04 0 00 032407 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3949 032407 324 00 0 00 032410 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3950 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3951 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3952 032410 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3953 STOP^ - 3954 032411 254 04 0 00 032412 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3955 032412 324 00 0 00 032413 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3956 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3957 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3958 ;********** - 3959 - 3960 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3961 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3962 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3963 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3964 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3965 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3966 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3967 - 3968 006430 SN=SN+1 - 3969 000040 000000 ZZ=ZZ+ZZ - 3970 IFE ZZ, - 3971 032413 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 3972 032414 200 01 0 00 035123 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 3973 ;WHERE X VARIES FROM 0 THRU 35 - 3974 032415 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 3975 032416 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 3976 STOP^ - 3977 032417 254 04 0 00 032420 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3978 032420 324 00 0 00 032421 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3979 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3980 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3981 032421 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 3982 STOP^ - 3983 032422 254 04 0 00 032423 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3984 032423 324 00 0 00 032424 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 3985 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 3986 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 3987 ;********** - 3988 - 3989 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 3990 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 3991 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 3992 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 3993 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 3994 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 3995 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 3996 - 3997 006431 SN=SN+1 - 3998 000100 000000 ZZ=ZZ+ZZ - 3999 IFE ZZ, - 4000 032424 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 4001 032425 200 01 0 00 035124 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 4002 ;WHERE X VARIES FROM 0 THRU 35 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-14 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0094 - - 4003 032426 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 4004 032427 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 4005 STOP^ - 4006 032430 254 04 0 00 032431 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4007 032431 324 00 0 00 032432 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4008 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4009 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4010 032432 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 4011 STOP^ - 4012 032433 254 04 0 00 032434 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4013 032434 324 00 0 00 032435 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4014 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4015 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4016 ;********** - 4017 - 4018 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 4019 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 4020 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 4021 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 4022 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 4023 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 4024 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 4025 - 4026 006432 SN=SN+1 - 4027 000200 000000 ZZ=ZZ+ZZ - 4028 IFE ZZ, - 4029 032435 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 4030 032436 200 01 0 00 035125 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 4031 ;WHERE X VARIES FROM 0 THRU 35 - 4032 032437 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 4033 032440 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 4034 STOP^ - 4035 032441 254 04 0 00 032442 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4036 032442 324 00 0 00 032443 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4037 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4038 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4039 032443 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 4040 STOP^ - 4041 032444 254 04 0 00 032445 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4042 032445 324 00 0 00 032446 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4043 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4044 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4045 ;********** - 4046 - 4047 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 4048 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 4049 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 4050 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 4051 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 4052 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 4053 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 4054 - 4055 006433 SN=SN+1 - 4056 000400 000000 ZZ=ZZ+ZZ - 4057 IFE ZZ, -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-15 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0095 - - 4058 032446 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 4059 032447 200 01 0 00 035073 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 4060 ;WHERE X VARIES FROM 0 THRU 35 - 4061 032450 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 4062 032451 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 4063 STOP^ - 4064 032452 254 04 0 00 032453 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4065 032453 324 00 0 00 032454 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4066 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4067 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4068 032454 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 4069 STOP^ - 4070 032455 254 04 0 00 032456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4071 032456 324 00 0 00 032457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4072 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4073 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4074 ;********** - 4075 - 4076 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 4077 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 4078 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 4079 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 4080 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 4081 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 4082 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 4083 - 4084 006434 SN=SN+1 - 4085 001000 000000 ZZ=ZZ+ZZ - 4086 IFE ZZ, - 4087 032457 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 4088 032460 200 01 0 00 035126 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 4089 ;WHERE X VARIES FROM 0 THRU 35 - 4090 032461 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 4091 032462 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 4092 STOP^ - 4093 032463 254 04 0 00 032464 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4094 032464 324 00 0 00 032465 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4095 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4096 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4097 032465 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 4098 STOP^ - 4099 032466 254 04 0 00 032467 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4100 032467 324 00 0 00 032470 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4101 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4102 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4103 ;********** - 4104 - 4105 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 4106 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 4107 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 4108 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 4109 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 4110 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 4111 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 4112 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-16 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0096 - - 4113 006435 SN=SN+1 - 4114 002000 000000 ZZ=ZZ+ZZ - 4115 IFE ZZ, - 4116 032470 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 4117 032471 200 01 0 00 035127 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 4118 ;WHERE X VARIES FROM 0 THRU 35 - 4119 032472 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 4120 032473 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 4121 STOP^ - 4122 032474 254 04 0 00 032475 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4123 032475 324 00 0 00 032476 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4124 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4125 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4126 032476 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 4127 STOP^ - 4128 032477 254 04 0 00 032500 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4129 032500 324 00 0 00 032501 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4130 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4131 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4132 ;********** - 4133 - 4134 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 4135 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 4136 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 4137 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 4138 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 4139 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 4140 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 4141 - 4142 006436 SN=SN+1 - 4143 004000 000000 ZZ=ZZ+ZZ - 4144 IFE ZZ, - 4145 032501 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 4146 032502 200 01 0 00 035130 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 4147 ;WHERE X VARIES FROM 0 THRU 35 - 4148 032503 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 4149 032504 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 4150 STOP^ - 4151 032505 254 04 0 00 032506 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4152 032506 324 00 0 00 032507 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4153 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4154 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4155 032507 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 4156 STOP^ - 4157 032510 254 04 0 00 032511 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4158 032511 324 00 0 00 032512 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4159 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4160 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4161 ;********** - 4162 - 4163 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 4164 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 4165 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 4166 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 4167 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-17 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0097 - - 4168 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 4169 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 4170 - 4171 006437 SN=SN+1 - 4172 010000 000000 ZZ=ZZ+ZZ - 4173 IFE ZZ, - 4174 032512 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 4175 032513 200 01 0 00 035131 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 4176 ;WHERE X VARIES FROM 0 THRU 35 - 4177 032514 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 4178 032515 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 4179 STOP^ - 4180 032516 254 04 0 00 032517 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4181 032517 324 00 0 00 032520 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4182 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4183 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4184 032520 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 4185 STOP^ - 4186 032521 254 04 0 00 032522 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4187 032522 324 00 0 00 032523 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4188 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4189 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4190 ;********** - 4191 - 4192 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 4193 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 4194 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 4195 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 4196 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 4197 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 4198 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 4199 - 4200 006440 SN=SN+1 - 4201 020000 000000 ZZ=ZZ+ZZ - 4202 IFE ZZ, - 4203 032523 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 4204 032524 200 01 0 00 035132 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 4205 ;WHERE X VARIES FROM 0 THRU 35 - 4206 032525 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 4207 032526 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 4208 STOP^ - 4209 032527 254 04 0 00 032530 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4210 032530 324 00 0 00 032531 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4211 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4212 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4213 032531 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 4214 STOP^ - 4215 032532 254 04 0 00 032533 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4216 032533 324 00 0 00 032534 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4217 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4218 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4219 ;********** - 4220 - 4221 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 4222 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-18 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0098 - - 4223 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 4224 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 4225 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 4226 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 4227 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 4228 - 4229 006441 SN=SN+1 - 4230 040000 000000 ZZ=ZZ+ZZ - 4231 IFE ZZ, - 4232 032534 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 4233 032535 200 01 0 00 035133 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 4234 ;WHERE X VARIES FROM 0 THRU 35 - 4235 032536 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 4236 032537 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 4237 STOP^ - 4238 032540 254 04 0 00 032541 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4239 032541 324 00 0 00 032542 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4240 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4241 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4242 032542 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 4243 STOP^ - 4244 032543 254 04 0 00 032544 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4245 032544 324 00 0 00 032545 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4246 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4247 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4248 ;********** - 4249 - 4250 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 4251 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 4252 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 4253 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 4254 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 4255 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 4256 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 4257 - 4258 006442 SN=SN+1 - 4259 100000 000000 ZZ=ZZ+ZZ - 4260 IFE ZZ, - 4261 032545 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 4262 032546 200 01 0 00 035134 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 4263 ;WHERE X VARIES FROM 0 THRU 35 - 4264 032547 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 4265 032550 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 4266 STOP^ - 4267 032551 254 04 0 00 032552 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4268 032552 324 00 0 00 032553 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4269 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4270 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4271 032553 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 4272 STOP^ - 4273 032554 254 04 0 00 032555 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4274 032555 324 00 0 00 032556 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4275 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4276 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4277 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-19 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0099 - - 4278 - 4279 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 4280 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 4281 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 4282 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 4283 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 4284 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 4285 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 4286 - 4287 006443 SN=SN+1 - 4288 200000 000000 ZZ=ZZ+ZZ - 4289 IFE ZZ, - 4290 032556 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 4291 032557 200 01 0 00 035135 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 4292 ;WHERE X VARIES FROM 0 THRU 35 - 4293 032560 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 4294 032561 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 4295 STOP^ - 4296 032562 254 04 0 00 032563 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4297 032563 324 00 0 00 032564 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4298 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4299 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4300 032564 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 4301 STOP^ - 4302 032565 254 04 0 00 032566 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4303 032566 324 00 0 00 032567 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4304 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4305 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4306 ;********** - 4307 - 4308 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION - 4309 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH - 4310 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X - 4311 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. - 4312 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, - 4313 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS - 4314 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - 4315 - 4316 006444 SN=SN+1 - 4317 400000 000000 ZZ=ZZ+ZZ - 4318 IFE ZZ, - 4319 032567 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS - 4320 032570 200 01 0 00 035065 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - 4321 ;WHERE X VARIES FROM 0 THRU 35 - 4322 032571 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - 4323 032572 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO - 4324 STOP^ - 4325 032573 254 04 0 00 032574 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4326 032574 324 00 0 00 032575 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4327 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4328 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4329 032575 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - 4330 STOP^ - 4331 032576 254 04 0 00 032577 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4332 032577 324 00 0 00 032600 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 24-20 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0100 - - 4333 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4334 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4335 ;********** - 4336 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0101 - - 4337 006500 SN=6500 - 4338 000000 ZZ=0 - 4339 - 4340 A6500: REPEAT ^D36, - 4341 <;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4342 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4343 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4344 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4345 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4346 SN=SN+1 - 4347 ZZ=ZZ+ZZ - 4348 IFE ZZ, - 4349 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4350 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4351 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4352 ;C(AC) NONZERO - 4353 SKIPN ;PASS TEST IF C(AC) NONZERO - 4354 STOP - 4355 - 4356 ;********** - 4357 > - 4358 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4359 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4360 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4361 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4362 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4363 006501 SN=SN+1 - 4364 000000 ZZ=ZZ+ZZ - 4365 000001 IFE ZZ, - 4366 032600 200 00 0 00 035074 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4367 032601 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4368 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4369 ;C(AC) NONZERO - 4370 032602 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4371 STOP^ - 4372 032603 254 04 0 00 032604 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4373 032604 324 00 0 00 032605 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4374 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4375 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4376 - 4377 ;********** - 4378 - 4379 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4380 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4381 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4382 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4383 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4384 006502 SN=SN+1 - 4385 000002 ZZ=ZZ+ZZ - 4386 IFE ZZ, - 4387 032605 200 00 0 00 035075 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4388 032606 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4389 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4390 ;C(AC) NONZERO - 4391 032607 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-1 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0102 - - 4392 STOP^ - 4393 032610 254 04 0 00 032611 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4394 032611 324 00 0 00 032612 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4395 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4396 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4397 - 4398 ;********** - 4399 - 4400 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4401 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4402 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4403 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4404 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4405 006503 SN=SN+1 - 4406 000004 ZZ=ZZ+ZZ - 4407 IFE ZZ, - 4408 032612 200 00 0 00 035076 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4409 032613 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4410 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4411 ;C(AC) NONZERO - 4412 032614 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4413 STOP^ - 4414 032615 254 04 0 00 032616 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4415 032616 324 00 0 00 032617 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4416 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4417 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4418 - 4419 ;********** - 4420 - 4421 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4422 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4423 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4424 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4425 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4426 006504 SN=SN+1 - 4427 000010 ZZ=ZZ+ZZ - 4428 IFE ZZ, - 4429 032617 200 00 0 00 035077 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4430 032620 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4431 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4432 ;C(AC) NONZERO - 4433 032621 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4434 STOP^ - 4435 032622 254 04 0 00 032623 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4436 032623 324 00 0 00 032624 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4437 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4438 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4439 - 4440 ;********** - 4441 - 4442 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4443 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4444 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4445 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4446 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-2 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0103 - - 4447 006505 SN=SN+1 - 4448 000020 ZZ=ZZ+ZZ - 4449 IFE ZZ, - 4450 032624 200 00 0 00 035100 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4451 032625 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4452 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4453 ;C(AC) NONZERO - 4454 032626 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4455 STOP^ - 4456 032627 254 04 0 00 032630 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4457 032630 324 00 0 00 032631 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4458 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4459 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4460 - 4461 ;********** - 4462 - 4463 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4464 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4465 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4466 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4467 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4468 006506 SN=SN+1 - 4469 000040 ZZ=ZZ+ZZ - 4470 IFE ZZ, - 4471 032631 200 00 0 00 035101 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4472 032632 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4473 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4474 ;C(AC) NONZERO - 4475 032633 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4476 STOP^ - 4477 032634 254 04 0 00 032635 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4478 032635 324 00 0 00 032636 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4479 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4480 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4481 - 4482 ;********** - 4483 - 4484 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4485 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4486 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4487 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4488 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4489 006507 SN=SN+1 - 4490 000100 ZZ=ZZ+ZZ - 4491 IFE ZZ, - 4492 032636 200 00 0 00 035102 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4493 032637 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4494 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4495 ;C(AC) NONZERO - 4496 032640 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4497 STOP^ - 4498 032641 254 04 0 00 032642 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4499 032642 324 00 0 00 032643 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4500 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4501 ;IN THE SUBTEST) TO LOOP ON ERROR^ -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-3 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0104 - - 4502 - 4503 ;********** - 4504 - 4505 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4506 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4507 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4508 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4509 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4510 006510 SN=SN+1 - 4511 000200 ZZ=ZZ+ZZ - 4512 IFE ZZ, - 4513 032643 200 00 0 00 035103 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4514 032644 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4515 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4516 ;C(AC) NONZERO - 4517 032645 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4518 STOP^ - 4519 032646 254 04 0 00 032647 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4520 032647 324 00 0 00 032650 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4521 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4522 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4523 - 4524 ;********** - 4525 - 4526 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4527 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4528 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4529 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4530 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4531 006511 SN=SN+1 - 4532 000400 ZZ=ZZ+ZZ - 4533 IFE ZZ, - 4534 032650 200 00 0 00 035104 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4535 032651 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4536 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4537 ;C(AC) NONZERO - 4538 032652 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4539 STOP^ - 4540 032653 254 04 0 00 032654 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4541 032654 324 00 0 00 032655 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4542 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4543 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4544 - 4545 ;********** - 4546 - 4547 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4548 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4549 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4550 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4551 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4552 006512 SN=SN+1 - 4553 001000 ZZ=ZZ+ZZ - 4554 IFE ZZ, - 4555 032655 200 00 0 00 035105 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4556 032656 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-4 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0105 - - 4557 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4558 ;C(AC) NONZERO - 4559 032657 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4560 STOP^ - 4561 032660 254 04 0 00 032661 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4562 032661 324 00 0 00 032662 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4563 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4564 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4565 - 4566 ;********** - 4567 - 4568 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4569 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4570 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4571 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4572 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4573 006513 SN=SN+1 - 4574 002000 ZZ=ZZ+ZZ - 4575 IFE ZZ, - 4576 032662 200 00 0 00 035106 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4577 032663 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4578 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4579 ;C(AC) NONZERO - 4580 032664 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4581 STOP^ - 4582 032665 254 04 0 00 032666 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4583 032666 324 00 0 00 032667 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4584 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4585 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4586 - 4587 ;********** - 4588 - 4589 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4590 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4591 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4592 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4593 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4594 006514 SN=SN+1 - 4595 004000 ZZ=ZZ+ZZ - 4596 IFE ZZ, - 4597 032667 200 00 0 00 035107 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4598 032670 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4599 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4600 ;C(AC) NONZERO - 4601 032671 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4602 STOP^ - 4603 032672 254 04 0 00 032673 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4604 032673 324 00 0 00 032674 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4605 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4606 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4607 - 4608 ;********** - 4609 - 4610 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4611 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-5 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0106 - - 4612 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4613 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4614 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4615 006515 SN=SN+1 - 4616 010000 ZZ=ZZ+ZZ - 4617 IFE ZZ, - 4618 032674 200 00 0 00 035110 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4619 032675 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4620 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4621 ;C(AC) NONZERO - 4622 032676 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4623 STOP^ - 4624 032677 254 04 0 00 032700 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4625 032700 324 00 0 00 032701 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4626 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4627 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4628 - 4629 ;********** - 4630 - 4631 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4632 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4633 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4634 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4635 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4636 006516 SN=SN+1 - 4637 020000 ZZ=ZZ+ZZ - 4638 IFE ZZ, - 4639 032701 200 00 0 00 035111 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4640 032702 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4641 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4642 ;C(AC) NONZERO - 4643 032703 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4644 STOP^ - 4645 032704 254 04 0 00 032705 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4646 032705 324 00 0 00 032706 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4647 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4648 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4649 - 4650 ;********** - 4651 - 4652 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4653 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4654 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4655 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4656 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4657 006517 SN=SN+1 - 4658 040000 ZZ=ZZ+ZZ - 4659 IFE ZZ, - 4660 032706 200 00 0 00 035112 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4661 032707 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4662 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4663 ;C(AC) NONZERO - 4664 032710 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4665 STOP^ - 4666 032711 254 04 0 00 032712 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-6 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0107 - - 4667 032712 324 00 0 00 032713 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4668 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4669 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4670 - 4671 ;********** - 4672 - 4673 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4674 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4675 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4676 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4677 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4678 006520 SN=SN+1 - 4679 100000 ZZ=ZZ+ZZ - 4680 IFE ZZ, - 4681 032713 200 00 0 00 035113 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4682 032714 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4683 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4684 ;C(AC) NONZERO - 4685 032715 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4686 STOP^ - 4687 032716 254 04 0 00 032717 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4688 032717 324 00 0 00 032720 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4689 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4690 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4691 - 4692 ;********** - 4693 - 4694 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4695 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4696 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4697 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4698 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4699 006521 SN=SN+1 - 4700 200000 ZZ=ZZ+ZZ - 4701 IFE ZZ, - 4702 032720 200 00 0 00 035114 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4703 032721 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4704 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4705 ;C(AC) NONZERO - 4706 032722 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4707 STOP^ - 4708 032723 254 04 0 00 032724 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4709 032724 324 00 0 00 032725 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4710 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4711 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4712 - 4713 ;********** - 4714 - 4715 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4716 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4717 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4718 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4719 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4720 006522 SN=SN+1 - 4721 400000 ZZ=ZZ+ZZ -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-7 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0108 - - 4722 IFE ZZ, - 4723 032725 200 00 0 00 035115 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4724 032726 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4725 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4726 ;C(AC) NONZERO - 4727 032727 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4728 STOP^ - 4729 032730 254 04 0 00 032731 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4730 032731 324 00 0 00 032732 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4731 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4732 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4733 - 4734 ;********** - 4735 - 4736 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4737 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4738 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4739 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4740 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4741 006523 SN=SN+1 - 4742 000001 000000 ZZ=ZZ+ZZ - 4743 IFE ZZ, - 4744 032732 200 00 0 00 035116 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4745 032733 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4746 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4747 ;C(AC) NONZERO - 4748 032734 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4749 STOP^ - 4750 032735 254 04 0 00 032736 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4751 032736 324 00 0 00 032737 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4752 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4753 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4754 - 4755 ;********** - 4756 - 4757 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4758 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4759 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4760 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4761 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4762 006524 SN=SN+1 - 4763 000002 000000 ZZ=ZZ+ZZ - 4764 IFE ZZ, - 4765 032737 200 00 0 00 035117 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4766 032740 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4767 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4768 ;C(AC) NONZERO - 4769 032741 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4770 STOP^ - 4771 032742 254 04 0 00 032743 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4772 032743 324 00 0 00 032744 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4773 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4774 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4775 - 4776 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-8 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0109 - - 4777 - 4778 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4779 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4780 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4781 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4782 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4783 006525 SN=SN+1 - 4784 000004 000000 ZZ=ZZ+ZZ - 4785 IFE ZZ, - 4786 032744 200 00 0 00 035120 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4787 032745 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4788 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4789 ;C(AC) NONZERO - 4790 032746 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4791 STOP^ - 4792 032747 254 04 0 00 032750 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4793 032750 324 00 0 00 032751 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4794 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4795 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4796 - 4797 ;********** - 4798 - 4799 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4800 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4801 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4802 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4803 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4804 006526 SN=SN+1 - 4805 000010 000000 ZZ=ZZ+ZZ - 4806 IFE ZZ, - 4807 032751 200 00 0 00 035121 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4808 032752 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4809 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4810 ;C(AC) NONZERO - 4811 032753 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4812 STOP^ - 4813 032754 254 04 0 00 032755 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4814 032755 324 00 0 00 032756 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4815 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4816 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4817 - 4818 ;********** - 4819 - 4820 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4821 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4822 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4823 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4824 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4825 006527 SN=SN+1 - 4826 000020 000000 ZZ=ZZ+ZZ - 4827 IFE ZZ, - 4828 032756 200 00 0 00 035122 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4829 032757 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4830 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4831 ;C(AC) NONZERO -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-9 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0110 - - 4832 032760 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4833 STOP^ - 4834 032761 254 04 0 00 032762 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4835 032762 324 00 0 00 032763 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4836 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4837 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4838 - 4839 ;********** - 4840 - 4841 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4842 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4843 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4844 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4845 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4846 006530 SN=SN+1 - 4847 000040 000000 ZZ=ZZ+ZZ - 4848 IFE ZZ, - 4849 032763 200 00 0 00 035123 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4850 032764 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4851 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4852 ;C(AC) NONZERO - 4853 032765 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4854 STOP^ - 4855 032766 254 04 0 00 032767 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4856 032767 324 00 0 00 032770 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4857 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4858 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4859 - 4860 ;********** - 4861 - 4862 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4863 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4864 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4865 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4866 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4867 006531 SN=SN+1 - 4868 000100 000000 ZZ=ZZ+ZZ - 4869 IFE ZZ, - 4870 032770 200 00 0 00 035124 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4871 032771 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4872 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4873 ;C(AC) NONZERO - 4874 032772 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4875 STOP^ - 4876 032773 254 04 0 00 032774 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4877 032774 324 00 0 00 032775 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4878 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4879 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4880 - 4881 ;********** - 4882 - 4883 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4884 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4885 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4886 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-10 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0111 - - 4887 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4888 006532 SN=SN+1 - 4889 000200 000000 ZZ=ZZ+ZZ - 4890 IFE ZZ, - 4891 032775 200 00 0 00 035125 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4892 032776 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4893 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4894 ;C(AC) NONZERO - 4895 032777 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4896 STOP^ - 4897 033000 254 04 0 00 033001 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4898 033001 324 00 0 00 033002 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4899 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4900 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4901 - 4902 ;********** - 4903 - 4904 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4905 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4906 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4907 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4908 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4909 006533 SN=SN+1 - 4910 000400 000000 ZZ=ZZ+ZZ - 4911 IFE ZZ, - 4912 033002 200 00 0 00 035073 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4913 033003 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4914 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4915 ;C(AC) NONZERO - 4916 033004 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4917 STOP^ - 4918 033005 254 04 0 00 033006 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4919 033006 324 00 0 00 033007 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4920 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4921 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4922 - 4923 ;********** - 4924 - 4925 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4926 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4927 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4928 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4929 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4930 006534 SN=SN+1 - 4931 001000 000000 ZZ=ZZ+ZZ - 4932 IFE ZZ, - 4933 033007 200 00 0 00 035126 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4934 033010 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4935 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4936 ;C(AC) NONZERO - 4937 033011 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4938 STOP^ - 4939 033012 254 04 0 00 033013 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4940 033013 324 00 0 00 033014 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4941 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-11 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0112 - - 4942 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4943 - 4944 ;********** - 4945 - 4946 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4947 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4948 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4949 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4950 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4951 006535 SN=SN+1 - 4952 002000 000000 ZZ=ZZ+ZZ - 4953 IFE ZZ, - 4954 033014 200 00 0 00 035127 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4955 033015 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4956 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4957 ;C(AC) NONZERO - 4958 033016 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4959 STOP^ - 4960 033017 254 04 0 00 033020 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4961 033020 324 00 0 00 033021 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4962 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4963 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4964 - 4965 ;********** - 4966 - 4967 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4968 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4969 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4970 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4971 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4972 006536 SN=SN+1 - 4973 004000 000000 ZZ=ZZ+ZZ - 4974 IFE ZZ, - 4975 033021 200 00 0 00 035130 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 4976 033022 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4977 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4978 ;C(AC) NONZERO - 4979 033023 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 4980 STOP^ - 4981 033024 254 04 0 00 033025 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4982 033025 324 00 0 00 033026 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 4983 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 4984 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 4985 - 4986 ;********** - 4987 - 4988 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 4989 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 4990 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 4991 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 4992 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 4993 006537 SN=SN+1 - 4994 010000 000000 ZZ=ZZ+ZZ - 4995 IFE ZZ, - 4996 033026 200 00 0 00 035131 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-12 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0113 - - 4997 033027 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 4998 ;POSITION WITH ITSELF SHOULD RESULT WITH - 4999 ;C(AC) NONZERO - 5000 033030 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 5001 STOP^ - 5002 033031 254 04 0 00 033032 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5003 033032 324 00 0 00 033033 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5004 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5005 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5006 - 5007 ;********** - 5008 - 5009 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 5010 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 5011 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 5012 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 5013 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 5014 006540 SN=SN+1 - 5015 020000 000000 ZZ=ZZ+ZZ - 5016 IFE ZZ, - 5017 033033 200 00 0 00 035132 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 5018 033034 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 5019 ;POSITION WITH ITSELF SHOULD RESULT WITH - 5020 ;C(AC) NONZERO - 5021 033035 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 5022 STOP^ - 5023 033036 254 04 0 00 033037 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5024 033037 324 00 0 00 033040 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5025 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5026 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5027 - 5028 ;********** - 5029 - 5030 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 5031 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 5032 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 5033 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 5034 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 5035 006541 SN=SN+1 - 5036 040000 000000 ZZ=ZZ+ZZ - 5037 IFE ZZ, - 5038 033040 200 00 0 00 035133 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 5039 033041 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 5040 ;POSITION WITH ITSELF SHOULD RESULT WITH - 5041 ;C(AC) NONZERO - 5042 033042 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 5043 STOP^ - 5044 033043 254 04 0 00 033044 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5045 033044 324 00 0 00 033045 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5046 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5047 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5048 - 5049 ;********** - 5050 - 5051 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-13 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0114 - - 5052 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 5053 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 5054 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 5055 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 5056 006542 SN=SN+1 - 5057 100000 000000 ZZ=ZZ+ZZ - 5058 IFE ZZ, - 5059 033045 200 00 0 00 035134 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 5060 033046 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 5061 ;POSITION WITH ITSELF SHOULD RESULT WITH - 5062 ;C(AC) NONZERO - 5063 033047 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 5064 STOP^ - 5065 033050 254 04 0 00 033051 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5066 033051 324 00 0 00 033052 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5067 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5068 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5069 - 5070 ;********** - 5071 - 5072 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 5073 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 5074 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 5075 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 5076 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 5077 006543 SN=SN+1 - 5078 200000 000000 ZZ=ZZ+ZZ - 5079 IFE ZZ, - 5080 033052 200 00 0 00 035135 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 5081 033053 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 5082 ;POSITION WITH ITSELF SHOULD RESULT WITH - 5083 ;C(AC) NONZERO - 5084 033054 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 5085 STOP^ - 5086 033055 254 04 0 00 033056 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5087 033056 324 00 0 00 033057 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5088 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5089 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5090 - 5091 ;********** - 5092 - 5093 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF - 5094 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE - 5095 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS - 5096 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED - 5097 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. - 5098 006544 SN=SN+1 - 5099 400000 000000 ZZ=ZZ+ZZ - 5100 IFE ZZ, - 5101 033057 200 00 0 00 035065 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - 5102 033060 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - 5103 ;POSITION WITH ITSELF SHOULD RESULT WITH - 5104 ;C(AC) NONZERO - 5105 033061 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO - 5106 STOP^ -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 25-14 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0115 - - 5107 033062 254 04 0 00 033063 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5108 033063 324 00 0 00 033064 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5109 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5110 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5111 - 5112 ;********** - 5113 - 5114 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE - 5115 ;C(AC)=0 AND C(E)=0 AND E OUTSIDE OF THE AC RANGE IS ALL ZEROS IN THE AC. - 5116 ;FIRST, THE AC IS CLEARED; THEN, THE C(AC) IS ANDED WITH C(E) WHEN - 5117 ;E GREATER THAN 20 AND C(E)=0. THE RESULT SHOULD BE C(AC)=0. - 5118 ;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. - 5119 - 5120 033064 200 00 0 00 035062 A6600: MOVE [0] ;PRESET AC TO ALL ZEROS - 5121 033065 404 00 0 00 035062 AND [0] ;*AND OF TWO WORDS OF ALL ZEROS - 5122 ;SHOULD RESULT IN C(AC)=0 - 5123 033066 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 5124 STOP^ - 5125 033067 254 04 0 00 033070 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5126 033070 324 00 0 00 033071 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5127 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5128 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5129 - 5130 ;********** - 5131 - 5132 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(AC)=0 - 5133 ;AND C(E) IS ALL ONES IS AN AC CONTAINING ALL ZEROS. FIRST, THE AC IS - 5134 ;CLEARED; THEN THE C(AC) IS ANDED WITH AN E CONTAINING ALL ONES, WHERE - 5135 ;E IS BEYOND THE AC RANGE. THE RESULT SHOULD BE C(AC)=0. - 5136 ;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. - 5137 - 5138 033071 200 00 0 00 035062 A6700: MOVE [0] ;PRESET AC TO ALL ZEROS - 5139 033072 404 00 0 00 035063 AND [-1] ;*AND OF TWO WORDS WHERE C(AC)=0 SHOULD RESULT IN C(AC)=0 - 5140 033073 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 5141 STOP^ - 5142 033074 254 04 0 00 033075 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5143 033075 324 00 0 00 033076 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5144 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5145 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5146 - 5147 ;AD FM+EN [ADFP],AD FM+EN A [ADFP], - 5148 ;F CYC ACT EN C [F1],IR BOOLE AD FM+F [IR2], - 5149 ;IR BOOLE [IR1],IRXX(1,4,5,11,13,16) [IR2] - 5150 - 5151 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 26 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0116 - - 5152 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(E)=0 - 5153 ;AND C(AC) IS ALL ONES IS AN AC CONTAINING ALL ZEROS. FIRST, THE - 5154 ;AC IS SET TO ALL ONES; THEN, THE AC IS ANDED WITH AN E CONTAINING ALL - 5155 ;ZEROS, WHERE E IS BEYOND THE AC RANGE. THE RESULT SHOULD BE C(AC)=0. - 5156 ;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. - 5157 - 5158 033076 200 00 0 00 035063 A7000: MOVE [-1] ;PRESET AC TO ALL ONES - 5159 033077 404 00 0 00 035062 AND [0] ;*AND OF TWO WORDS WHERE C(E)=0 SHOULD RESULT IN C(AC)=0 - 5160 033100 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 5161 STOP^ - 5162 033101 254 04 0 00 033102 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5163 033102 324 00 0 00 033103 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5164 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5165 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5166 - 5167 ;********** - 5168 - 5169 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(E) IS - 5170 ;ALL ONES AND C(AC) IS ALL ONES IS AN AC CONTAINING ALL ONES. FIRST, THE - 5171 ;AC IS SET TO ALL ONES; THEN, C(AC) IS ANDED WITH AN E CONTAINING ALL - 5172 ;ONES. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5173 ;IF C(AC) IS ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. - 5174 - 5175 033103 200 00 0 00 035063 A7100: MOVE [-1] ;PRELOAD AC WITH ALL ONES - 5176 033104 404 00 0 00 035063 AND [-1] ;*AND OF TWO WORDS OF ALL ONES SHOULD - 5177 ;RESULT IN C(AC)=ALL ONES - 5178 033105 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) IS NON ZERO - 5179 STOP^ - 5180 033106 254 04 0 00 033107 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5181 033107 324 00 0 00 033110 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5182 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5183 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5184 - 5185 ;********** - 5186 - 5187 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5188 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHERE CONTENTS IS NON-ZERO. - 5189 ;FIRST, THE AC IS CLEARED, THEN, XOR IS EXECUTED WHERE C(E) IS NON-ZERO. - 5190 ;THE AC IS THEN CHECKED FOR NON-ZERO CONTENTS. - 5191 033110 200 00 0 00 035062 A7200: MOVE [0] ;CLEAR AC - 5192 033111 430 00 0 00 035141 XOR [707070707070] ;*XOR WITH C(AC)=0 AND C(E)=7070707070 SHOULD - 5193 ;RESTULT IN C(AC)=707070707070 - 5194 033112 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5195 STOP^ - 5196 033113 254 04 0 00 033114 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5197 033114 324 00 0 00 033115 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5198 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5199 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5200 - 5201 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0117 - - 5202 007300 SN=7300 - 5203 000000 ZZ=0 - 5204 - 5205 A7300: REPEAT ^D36, - 5206 <;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5207 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5208 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5209 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5210 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5211 SN=SN+1 - 5212 ZZ=ZZ+ZZ - 5213 IFE ZZ, - 5214 MOVE [0] ;CLEAR AC - 5215 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5216 ;RESULT IN C(AC) NONZERO - 5217 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5218 STOP - 5219 - 5220 ;********** - 5221 > - 5222 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5223 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5224 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5225 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5226 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5227 007301 SN=SN+1 - 5228 000000 ZZ=ZZ+ZZ - 5229 000001 IFE ZZ, - 5230 033115 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5231 033116 430 00 0 00 035074 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5232 ;RESULT IN C(AC) NONZERO - 5233 033117 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5234 STOP^ - 5235 033120 254 04 0 00 033121 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5236 033121 324 00 0 00 033122 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5237 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5238 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5239 - 5240 ;********** - 5241 - 5242 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5243 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5244 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5245 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5246 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5247 007302 SN=SN+1 - 5248 000002 ZZ=ZZ+ZZ - 5249 IFE ZZ, - 5250 033122 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5251 033123 430 00 0 00 035075 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5252 ;RESULT IN C(AC) NONZERO - 5253 033124 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5254 STOP^ - 5255 033125 254 04 0 00 033126 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5256 033126 324 00 0 00 033127 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-1 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0118 - - 5257 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5258 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5259 - 5260 ;********** - 5261 - 5262 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5263 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5264 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5265 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5266 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5267 007303 SN=SN+1 - 5268 000004 ZZ=ZZ+ZZ - 5269 IFE ZZ, - 5270 033127 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5271 033130 430 00 0 00 035076 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5272 ;RESULT IN C(AC) NONZERO - 5273 033131 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5274 STOP^ - 5275 033132 254 04 0 00 033133 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5276 033133 324 00 0 00 033134 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5277 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5278 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5279 - 5280 ;********** - 5281 - 5282 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5283 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5284 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5285 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5286 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5287 007304 SN=SN+1 - 5288 000010 ZZ=ZZ+ZZ - 5289 IFE ZZ, - 5290 033134 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5291 033135 430 00 0 00 035077 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5292 ;RESULT IN C(AC) NONZERO - 5293 033136 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5294 STOP^ - 5295 033137 254 04 0 00 033140 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5296 033140 324 00 0 00 033141 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5297 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5298 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5299 - 5300 ;********** - 5301 - 5302 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5303 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5304 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5305 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5306 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5307 007305 SN=SN+1 - 5308 000020 ZZ=ZZ+ZZ - 5309 IFE ZZ, - 5310 033141 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5311 033142 430 00 0 00 035100 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-2 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0119 - - 5312 ;RESULT IN C(AC) NONZERO - 5313 033143 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5314 STOP^ - 5315 033144 254 04 0 00 033145 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5316 033145 324 00 0 00 033146 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5317 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5318 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5319 - 5320 ;********** - 5321 - 5322 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5323 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5324 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5325 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5326 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5327 007306 SN=SN+1 - 5328 000040 ZZ=ZZ+ZZ - 5329 IFE ZZ, - 5330 033146 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5331 033147 430 00 0 00 035101 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5332 ;RESULT IN C(AC) NONZERO - 5333 033150 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5334 STOP^ - 5335 033151 254 04 0 00 033152 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5336 033152 324 00 0 00 033153 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5337 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5338 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5339 - 5340 ;********** - 5341 - 5342 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5343 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5344 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5345 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5346 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5347 007307 SN=SN+1 - 5348 000100 ZZ=ZZ+ZZ - 5349 IFE ZZ, - 5350 033153 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5351 033154 430 00 0 00 035102 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5352 ;RESULT IN C(AC) NONZERO - 5353 033155 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5354 STOP^ - 5355 033156 254 04 0 00 033157 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5356 033157 324 00 0 00 033160 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5357 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5358 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5359 - 5360 ;********** - 5361 - 5362 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5363 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5364 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5365 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5366 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-3 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0120 - - 5367 007310 SN=SN+1 - 5368 000200 ZZ=ZZ+ZZ - 5369 IFE ZZ, - 5370 033160 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5371 033161 430 00 0 00 035103 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5372 ;RESULT IN C(AC) NONZERO - 5373 033162 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5374 STOP^ - 5375 033163 254 04 0 00 033164 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5376 033164 324 00 0 00 033165 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5377 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5378 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5379 - 5380 ;********** - 5381 - 5382 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5383 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5384 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5385 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5386 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5387 007311 SN=SN+1 - 5388 000400 ZZ=ZZ+ZZ - 5389 IFE ZZ, - 5390 033165 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5391 033166 430 00 0 00 035104 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5392 ;RESULT IN C(AC) NONZERO - 5393 033167 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5394 STOP^ - 5395 033170 254 04 0 00 033171 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5396 033171 324 00 0 00 033172 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5397 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5398 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5399 - 5400 ;********** - 5401 - 5402 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5403 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5404 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5405 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5406 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5407 007312 SN=SN+1 - 5408 001000 ZZ=ZZ+ZZ - 5409 IFE ZZ, - 5410 033172 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5411 033173 430 00 0 00 035105 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5412 ;RESULT IN C(AC) NONZERO - 5413 033174 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5414 STOP^ - 5415 033175 254 04 0 00 033176 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5416 033176 324 00 0 00 033177 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5417 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5418 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5419 - 5420 ;********** - 5421 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-4 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0121 - - 5422 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5423 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5424 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5425 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5426 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5427 007313 SN=SN+1 - 5428 002000 ZZ=ZZ+ZZ - 5429 IFE ZZ, - 5430 033177 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5431 033200 430 00 0 00 035106 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5432 ;RESULT IN C(AC) NONZERO - 5433 033201 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5434 STOP^ - 5435 033202 254 04 0 00 033203 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5436 033203 324 00 0 00 033204 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5437 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5438 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5439 - 5440 ;********** - 5441 - 5442 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5443 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5444 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5445 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5446 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5447 007314 SN=SN+1 - 5448 004000 ZZ=ZZ+ZZ - 5449 IFE ZZ, - 5450 033204 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5451 033205 430 00 0 00 035107 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5452 ;RESULT IN C(AC) NONZERO - 5453 033206 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5454 STOP^ - 5455 033207 254 04 0 00 033210 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5456 033210 324 00 0 00 033211 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5457 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5458 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5459 - 5460 ;********** - 5461 - 5462 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5463 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5464 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5465 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5466 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5467 007315 SN=SN+1 - 5468 010000 ZZ=ZZ+ZZ - 5469 IFE ZZ, - 5470 033211 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5471 033212 430 00 0 00 035110 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5472 ;RESULT IN C(AC) NONZERO - 5473 033213 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5474 STOP^ - 5475 033214 254 04 0 00 033215 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5476 033215 324 00 0 00 033216 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-5 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0122 - - 5477 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5478 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5479 - 5480 ;********** - 5481 - 5482 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5483 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5484 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5485 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5486 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5487 007316 SN=SN+1 - 5488 020000 ZZ=ZZ+ZZ - 5489 IFE ZZ, - 5490 033216 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5491 033217 430 00 0 00 035111 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5492 ;RESULT IN C(AC) NONZERO - 5493 033220 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5494 STOP^ - 5495 033221 254 04 0 00 033222 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5496 033222 324 00 0 00 033223 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5497 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5498 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5499 - 5500 ;********** - 5501 - 5502 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5503 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5504 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5505 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5506 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5507 007317 SN=SN+1 - 5508 040000 ZZ=ZZ+ZZ - 5509 IFE ZZ, - 5510 033223 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5511 033224 430 00 0 00 035112 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5512 ;RESULT IN C(AC) NONZERO - 5513 033225 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5514 STOP^ - 5515 033226 254 04 0 00 033227 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5516 033227 324 00 0 00 033230 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5517 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5518 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5519 - 5520 ;********** - 5521 - 5522 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5523 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5524 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5525 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5526 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5527 007320 SN=SN+1 - 5528 100000 ZZ=ZZ+ZZ - 5529 IFE ZZ, - 5530 033230 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5531 033231 430 00 0 00 035113 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-6 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0123 - - 5532 ;RESULT IN C(AC) NONZERO - 5533 033232 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5534 STOP^ - 5535 033233 254 04 0 00 033234 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5536 033234 324 00 0 00 033235 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5537 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5538 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5539 - 5540 ;********** - 5541 - 5542 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5543 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5544 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5545 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5546 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5547 007321 SN=SN+1 - 5548 200000 ZZ=ZZ+ZZ - 5549 IFE ZZ, - 5550 033235 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5551 033236 430 00 0 00 035114 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5552 ;RESULT IN C(AC) NONZERO - 5553 033237 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5554 STOP^ - 5555 033240 254 04 0 00 033241 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5556 033241 324 00 0 00 033242 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5557 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5558 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5559 - 5560 ;********** - 5561 - 5562 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5563 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5564 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5565 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5566 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5567 007322 SN=SN+1 - 5568 400000 ZZ=ZZ+ZZ - 5569 IFE ZZ, - 5570 033242 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5571 033243 430 00 0 00 035115 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5572 ;RESULT IN C(AC) NONZERO - 5573 033244 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5574 STOP^ - 5575 033245 254 04 0 00 033246 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5576 033246 324 00 0 00 033247 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5577 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5578 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5579 - 5580 ;********** - 5581 - 5582 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5583 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5584 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5585 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5586 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-7 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0124 - - 5587 007323 SN=SN+1 - 5588 000001 000000 ZZ=ZZ+ZZ - 5589 IFE ZZ, - 5590 033247 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5591 033250 430 00 0 00 035116 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5592 ;RESULT IN C(AC) NONZERO - 5593 033251 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5594 STOP^ - 5595 033252 254 04 0 00 033253 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5596 033253 324 00 0 00 033254 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5597 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5598 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5599 - 5600 ;********** - 5601 - 5602 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5603 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5604 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5605 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5606 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5607 007324 SN=SN+1 - 5608 000002 000000 ZZ=ZZ+ZZ - 5609 IFE ZZ, - 5610 033254 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5611 033255 430 00 0 00 035117 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5612 ;RESULT IN C(AC) NONZERO - 5613 033256 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5614 STOP^ - 5615 033257 254 04 0 00 033260 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5616 033260 324 00 0 00 033261 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5617 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5618 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5619 - 5620 ;********** - 5621 - 5622 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5623 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5624 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5625 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5626 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5627 007325 SN=SN+1 - 5628 000004 000000 ZZ=ZZ+ZZ - 5629 IFE ZZ, - 5630 033261 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5631 033262 430 00 0 00 035120 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5632 ;RESULT IN C(AC) NONZERO - 5633 033263 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5634 STOP^ - 5635 033264 254 04 0 00 033265 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5636 033265 324 00 0 00 033266 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5637 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5638 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5639 - 5640 ;********** - 5641 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-8 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0125 - - 5642 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5643 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5644 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5645 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5646 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5647 007326 SN=SN+1 - 5648 000010 000000 ZZ=ZZ+ZZ - 5649 IFE ZZ, - 5650 033266 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5651 033267 430 00 0 00 035121 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5652 ;RESULT IN C(AC) NONZERO - 5653 033270 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5654 STOP^ - 5655 033271 254 04 0 00 033272 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5656 033272 324 00 0 00 033273 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5657 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5658 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5659 - 5660 ;********** - 5661 - 5662 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5663 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5664 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5665 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5666 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5667 007327 SN=SN+1 - 5668 000020 000000 ZZ=ZZ+ZZ - 5669 IFE ZZ, - 5670 033273 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5671 033274 430 00 0 00 035122 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5672 ;RESULT IN C(AC) NONZERO - 5673 033275 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5674 STOP^ - 5675 033276 254 04 0 00 033277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5676 033277 324 00 0 00 033300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5677 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5678 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5679 - 5680 ;********** - 5681 - 5682 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5683 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5684 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5685 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5686 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5687 007330 SN=SN+1 - 5688 000040 000000 ZZ=ZZ+ZZ - 5689 IFE ZZ, - 5690 033300 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5691 033301 430 00 0 00 035123 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5692 ;RESULT IN C(AC) NONZERO - 5693 033302 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5694 STOP^ - 5695 033303 254 04 0 00 033304 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5696 033304 324 00 0 00 033305 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-9 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0126 - - 5697 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5698 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5699 - 5700 ;********** - 5701 - 5702 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5703 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5704 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5705 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5706 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5707 007331 SN=SN+1 - 5708 000100 000000 ZZ=ZZ+ZZ - 5709 IFE ZZ, - 5710 033305 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5711 033306 430 00 0 00 035124 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5712 ;RESULT IN C(AC) NONZERO - 5713 033307 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5714 STOP^ - 5715 033310 254 04 0 00 033311 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5716 033311 324 00 0 00 033312 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5717 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5718 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5719 - 5720 ;********** - 5721 - 5722 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5723 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5724 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5725 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5726 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5727 007332 SN=SN+1 - 5728 000200 000000 ZZ=ZZ+ZZ - 5729 IFE ZZ, - 5730 033312 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5731 033313 430 00 0 00 035125 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5732 ;RESULT IN C(AC) NONZERO - 5733 033314 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5734 STOP^ - 5735 033315 254 04 0 00 033316 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5736 033316 324 00 0 00 033317 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5737 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5738 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5739 - 5740 ;********** - 5741 - 5742 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5743 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5744 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5745 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5746 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5747 007333 SN=SN+1 - 5748 000400 000000 ZZ=ZZ+ZZ - 5749 IFE ZZ, - 5750 033317 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5751 033320 430 00 0 00 035073 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-10 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0127 - - 5752 ;RESULT IN C(AC) NONZERO - 5753 033321 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5754 STOP^ - 5755 033322 254 04 0 00 033323 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5756 033323 324 00 0 00 033324 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5757 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5758 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5759 - 5760 ;********** - 5761 - 5762 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5763 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5764 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5765 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5766 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5767 007334 SN=SN+1 - 5768 001000 000000 ZZ=ZZ+ZZ - 5769 IFE ZZ, - 5770 033324 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5771 033325 430 00 0 00 035126 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5772 ;RESULT IN C(AC) NONZERO - 5773 033326 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5774 STOP^ - 5775 033327 254 04 0 00 033330 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5776 033330 324 00 0 00 033331 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5777 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5778 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5779 - 5780 ;********** - 5781 - 5782 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5783 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5784 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5785 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5786 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5787 007335 SN=SN+1 - 5788 002000 000000 ZZ=ZZ+ZZ - 5789 IFE ZZ, - 5790 033331 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5791 033332 430 00 0 00 035127 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5792 ;RESULT IN C(AC) NONZERO - 5793 033333 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5794 STOP^ - 5795 033334 254 04 0 00 033335 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5796 033335 324 00 0 00 033336 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5797 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5798 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5799 - 5800 ;********** - 5801 - 5802 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5803 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5804 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5805 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5806 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-11 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0128 - - 5807 007336 SN=SN+1 - 5808 004000 000000 ZZ=ZZ+ZZ - 5809 IFE ZZ, - 5810 033336 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5811 033337 430 00 0 00 035130 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5812 ;RESULT IN C(AC) NONZERO - 5813 033340 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5814 STOP^ - 5815 033341 254 04 0 00 033342 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5816 033342 324 00 0 00 033343 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5817 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5818 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5819 - 5820 ;********** - 5821 - 5822 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5823 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5824 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5825 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5826 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5827 007337 SN=SN+1 - 5828 010000 000000 ZZ=ZZ+ZZ - 5829 IFE ZZ, - 5830 033343 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5831 033344 430 00 0 00 035131 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5832 ;RESULT IN C(AC) NONZERO - 5833 033345 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5834 STOP^ - 5835 033346 254 04 0 00 033347 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5836 033347 324 00 0 00 033350 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5837 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5838 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5839 - 5840 ;********** - 5841 - 5842 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5843 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5844 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5845 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5846 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5847 007340 SN=SN+1 - 5848 020000 000000 ZZ=ZZ+ZZ - 5849 IFE ZZ, - 5850 033350 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5851 033351 430 00 0 00 035132 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5852 ;RESULT IN C(AC) NONZERO - 5853 033352 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5854 STOP^ - 5855 033353 254 04 0 00 033354 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5856 033354 324 00 0 00 033355 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5857 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5858 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5859 - 5860 ;********** - 5861 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-12 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0129 - - 5862 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5863 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5864 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5865 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5866 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5867 007341 SN=SN+1 - 5868 040000 000000 ZZ=ZZ+ZZ - 5869 IFE ZZ, - 5870 033355 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5871 033356 430 00 0 00 035133 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5872 ;RESULT IN C(AC) NONZERO - 5873 033357 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5874 STOP^ - 5875 033360 254 04 0 00 033361 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5876 033361 324 00 0 00 033362 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5877 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5878 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5879 - 5880 ;********** - 5881 - 5882 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5883 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5884 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5885 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5886 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5887 007342 SN=SN+1 - 5888 100000 000000 ZZ=ZZ+ZZ - 5889 IFE ZZ, - 5890 033362 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5891 033363 430 00 0 00 035134 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5892 ;RESULT IN C(AC) NONZERO - 5893 033364 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5894 STOP^ - 5895 033365 254 04 0 00 033366 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5896 033366 324 00 0 00 033367 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5897 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5898 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5899 - 5900 ;********** - 5901 - 5902 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5903 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5904 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5905 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5906 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5907 007343 SN=SN+1 - 5908 200000 000000 ZZ=ZZ+ZZ - 5909 IFE ZZ, - 5910 033367 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5911 033370 430 00 0 00 035135 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5912 ;RESULT IN C(AC) NONZERO - 5913 033371 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5914 STOP^ - 5915 033372 254 04 0 00 033373 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5916 033373 324 00 0 00 033374 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-13 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0130 - - 5917 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5918 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5919 - 5920 ;********** - 5921 - 5922 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5923 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5924 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED - 5925 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. - 5926 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5927 007344 SN=SN+1 - 5928 400000 000000 ZZ=ZZ+ZZ - 5929 IFE ZZ, - 5930 033374 200 00 0 00 035062 MOVE [0] ;CLEAR AC - 5931 033375 430 00 0 00 035065 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - 5932 ;RESULT IN C(AC) NONZERO - 5933 033376 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5934 STOP^ - 5935 033377 254 04 0 00 033400 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5936 033400 324 00 0 00 033401 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5937 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5938 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5939 - 5940 ;********** - 5941 - 5942 007400 SN=7400 - 5943 000000 ZZ=0 - 5944 - 5945 A7400: REPEAT ^D36, - 5946 <;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5947 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5948 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 5949 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 5950 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5951 SN=SN+1 - 5952 ZZ=ZZ+ZZ - 5953 IFE ZZ, - 5954 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 5955 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 5956 ;RESULT IN C(AC) NON-ZERO - 5957 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5958 STOP - 5959 - 5960 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 5961 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 5962 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 5963 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 5964 - 5965 ;********** - 5966 > - 5967 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5968 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5969 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 5970 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 5971 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-14 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0131 - - 5972 007401 SN=SN+1 - 5973 000000 ZZ=ZZ+ZZ - 5974 000001 IFE ZZ, - 5975 033401 200 00 0 00 035074 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 5976 033402 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 5977 ;RESULT IN C(AC) NON-ZERO - 5978 033403 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 5979 STOP^ - 5980 033404 254 04 0 00 033405 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5981 033405 324 00 0 00 033406 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 5982 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 5983 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 5984 - 5985 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 5986 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 5987 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 5988 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 5989 - 5990 ;********** - 5991 - 5992 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 5993 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 5994 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 5995 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 5996 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 5997 007402 SN=SN+1 - 5998 000002 ZZ=ZZ+ZZ - 5999 IFE ZZ, - 6000 033406 200 00 0 00 035075 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6001 033407 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6002 ;RESULT IN C(AC) NON-ZERO - 6003 033410 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6004 STOP^ - 6005 033411 254 04 0 00 033412 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6006 033412 324 00 0 00 033413 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6007 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6008 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6009 - 6010 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6011 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6012 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6013 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6014 - 6015 ;********** - 6016 - 6017 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6018 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6019 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6020 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6021 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6022 007403 SN=SN+1 - 6023 000004 ZZ=ZZ+ZZ - 6024 IFE ZZ, - 6025 033413 200 00 0 00 035076 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6026 033414 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-15 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0132 - - 6027 ;RESULT IN C(AC) NON-ZERO - 6028 033415 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6029 STOP^ - 6030 033416 254 04 0 00 033417 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6031 033417 324 00 0 00 033420 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6032 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6033 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6034 - 6035 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6036 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6037 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6038 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6039 - 6040 ;********** - 6041 - 6042 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6043 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6044 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6045 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6046 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6047 007404 SN=SN+1 - 6048 000010 ZZ=ZZ+ZZ - 6049 IFE ZZ, - 6050 033420 200 00 0 00 035077 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6051 033421 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6052 ;RESULT IN C(AC) NON-ZERO - 6053 033422 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6054 STOP^ - 6055 033423 254 04 0 00 033424 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6056 033424 324 00 0 00 033425 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6057 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6058 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6059 - 6060 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6061 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6062 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6063 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6064 - 6065 ;********** - 6066 - 6067 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6068 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6069 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6070 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6071 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6072 007405 SN=SN+1 - 6073 000020 ZZ=ZZ+ZZ - 6074 IFE ZZ, - 6075 033425 200 00 0 00 035100 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6076 033426 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6077 ;RESULT IN C(AC) NON-ZERO - 6078 033427 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6079 STOP^ - 6080 033430 254 04 0 00 033431 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6081 033431 324 00 0 00 033432 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-16 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0133 - - 6082 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6083 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6084 - 6085 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6086 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6087 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6088 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6089 - 6090 ;********** - 6091 - 6092 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6093 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6094 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6095 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6096 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6097 007406 SN=SN+1 - 6098 000040 ZZ=ZZ+ZZ - 6099 IFE ZZ, - 6100 033432 200 00 0 00 035101 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6101 033433 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6102 ;RESULT IN C(AC) NON-ZERO - 6103 033434 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6104 STOP^ - 6105 033435 254 04 0 00 033436 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6106 033436 324 00 0 00 033437 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6107 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6108 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6109 - 6110 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6111 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6112 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6113 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6114 - 6115 ;********** - 6116 - 6117 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6118 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6119 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6120 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6121 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6122 007407 SN=SN+1 - 6123 000100 ZZ=ZZ+ZZ - 6124 IFE ZZ, - 6125 033437 200 00 0 00 035102 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6126 033440 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6127 ;RESULT IN C(AC) NON-ZERO - 6128 033441 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6129 STOP^ - 6130 033442 254 04 0 00 033443 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6131 033443 324 00 0 00 033444 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6132 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6133 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6134 - 6135 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6136 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-17 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0134 - - 6137 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6138 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6139 - 6140 ;********** - 6141 - 6142 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6143 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6144 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6145 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6146 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6147 007410 SN=SN+1 - 6148 000200 ZZ=ZZ+ZZ - 6149 IFE ZZ, - 6150 033444 200 00 0 00 035103 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6151 033445 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6152 ;RESULT IN C(AC) NON-ZERO - 6153 033446 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6154 STOP^ - 6155 033447 254 04 0 00 033450 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6156 033450 324 00 0 00 033451 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6157 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6158 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6159 - 6160 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6161 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6162 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6163 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6164 - 6165 ;********** - 6166 - 6167 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6168 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6169 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6170 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6171 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6172 007411 SN=SN+1 - 6173 000400 ZZ=ZZ+ZZ - 6174 IFE ZZ, - 6175 033451 200 00 0 00 035104 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6176 033452 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6177 ;RESULT IN C(AC) NON-ZERO - 6178 033453 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6179 STOP^ - 6180 033454 254 04 0 00 033455 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6181 033455 324 00 0 00 033456 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6182 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6183 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6184 - 6185 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6186 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6187 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6188 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6189 - 6190 ;********** - 6191 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-18 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0135 - - 6192 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6193 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6194 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6195 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6196 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6197 007412 SN=SN+1 - 6198 001000 ZZ=ZZ+ZZ - 6199 IFE ZZ, - 6200 033456 200 00 0 00 035105 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6201 033457 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6202 ;RESULT IN C(AC) NON-ZERO - 6203 033460 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6204 STOP^ - 6205 033461 254 04 0 00 033462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6206 033462 324 00 0 00 033463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6207 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6208 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6209 - 6210 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6211 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6212 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6213 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6214 - 6215 ;********** - 6216 - 6217 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6218 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6219 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6220 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6221 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6222 007413 SN=SN+1 - 6223 002000 ZZ=ZZ+ZZ - 6224 IFE ZZ, - 6225 033463 200 00 0 00 035106 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6226 033464 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6227 ;RESULT IN C(AC) NON-ZERO - 6228 033465 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6229 STOP^ - 6230 033466 254 04 0 00 033467 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6231 033467 324 00 0 00 033470 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6232 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6233 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6234 - 6235 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6236 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6237 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6238 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6239 - 6240 ;********** - 6241 - 6242 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6243 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6244 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6245 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6246 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-19 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0136 - - 6247 007414 SN=SN+1 - 6248 004000 ZZ=ZZ+ZZ - 6249 IFE ZZ, - 6250 033470 200 00 0 00 035107 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6251 033471 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6252 ;RESULT IN C(AC) NON-ZERO - 6253 033472 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6254 STOP^ - 6255 033473 254 04 0 00 033474 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6256 033474 324 00 0 00 033475 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6257 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6258 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6259 - 6260 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6261 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6262 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6263 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6264 - 6265 ;********** - 6266 - 6267 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6268 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6269 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6270 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6271 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6272 007415 SN=SN+1 - 6273 010000 ZZ=ZZ+ZZ - 6274 IFE ZZ, - 6275 033475 200 00 0 00 035110 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6276 033476 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6277 ;RESULT IN C(AC) NON-ZERO - 6278 033477 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6279 STOP^ - 6280 033500 254 04 0 00 033501 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6281 033501 324 00 0 00 033502 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6282 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6283 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6284 - 6285 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6286 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6287 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6288 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6289 - 6290 ;********** - 6291 - 6292 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6293 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6294 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6295 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6296 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6297 007416 SN=SN+1 - 6298 020000 ZZ=ZZ+ZZ - 6299 IFE ZZ, - 6300 033502 200 00 0 00 035111 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6301 033503 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-20 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0137 - - 6302 ;RESULT IN C(AC) NON-ZERO - 6303 033504 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6304 STOP^ - 6305 033505 254 04 0 00 033506 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6306 033506 324 00 0 00 033507 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6307 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6308 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6309 - 6310 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6311 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6312 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6313 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6314 - 6315 ;********** - 6316 - 6317 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6318 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6319 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6320 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6321 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6322 007417 SN=SN+1 - 6323 040000 ZZ=ZZ+ZZ - 6324 IFE ZZ, - 6325 033507 200 00 0 00 035112 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6326 033510 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6327 ;RESULT IN C(AC) NON-ZERO - 6328 033511 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6329 STOP^ - 6330 033512 254 04 0 00 033513 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6331 033513 324 00 0 00 033514 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6332 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6333 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6334 - 6335 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6336 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6337 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6338 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6339 - 6340 ;********** - 6341 - 6342 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6343 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6344 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6345 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6346 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6347 007420 SN=SN+1 - 6348 100000 ZZ=ZZ+ZZ - 6349 IFE ZZ, - 6350 033514 200 00 0 00 035113 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6351 033515 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6352 ;RESULT IN C(AC) NON-ZERO - 6353 033516 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6354 STOP^ - 6355 033517 254 04 0 00 033520 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6356 033520 324 00 0 00 033521 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-21 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0138 - - 6357 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6358 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6359 - 6360 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6361 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6362 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6363 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6364 - 6365 ;********** - 6366 - 6367 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6368 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6369 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6370 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6371 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6372 007421 SN=SN+1 - 6373 200000 ZZ=ZZ+ZZ - 6374 IFE ZZ, - 6375 033521 200 00 0 00 035114 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6376 033522 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6377 ;RESULT IN C(AC) NON-ZERO - 6378 033523 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6379 STOP^ - 6380 033524 254 04 0 00 033525 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6381 033525 324 00 0 00 033526 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6382 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6383 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6384 - 6385 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6386 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6387 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6388 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6389 - 6390 ;********** - 6391 - 6392 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6393 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6394 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6395 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6396 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6397 007422 SN=SN+1 - 6398 400000 ZZ=ZZ+ZZ - 6399 IFE ZZ, - 6400 033526 200 00 0 00 035115 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6401 033527 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6402 ;RESULT IN C(AC) NON-ZERO - 6403 033530 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6404 STOP^ - 6405 033531 254 04 0 00 033532 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6406 033532 324 00 0 00 033533 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6407 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6408 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6409 - 6410 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6411 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-22 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0139 - - 6412 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6413 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6414 - 6415 ;********** - 6416 - 6417 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6418 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6419 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6420 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6421 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6422 007423 SN=SN+1 - 6423 000001 000000 ZZ=ZZ+ZZ - 6424 IFE ZZ, - 6425 033533 200 00 0 00 035116 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6426 033534 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6427 ;RESULT IN C(AC) NON-ZERO - 6428 033535 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6429 STOP^ - 6430 033536 254 04 0 00 033537 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6431 033537 324 00 0 00 033540 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6432 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6433 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6434 - 6435 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6436 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6437 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6438 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6439 - 6440 ;********** - 6441 - 6442 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6443 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6444 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6445 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6446 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6447 007424 SN=SN+1 - 6448 000002 000000 ZZ=ZZ+ZZ - 6449 IFE ZZ, - 6450 033540 200 00 0 00 035117 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6451 033541 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6452 ;RESULT IN C(AC) NON-ZERO - 6453 033542 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6454 STOP^ - 6455 033543 254 04 0 00 033544 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6456 033544 324 00 0 00 033545 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6457 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6458 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6459 - 6460 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6461 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6462 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6463 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6464 - 6465 ;********** - 6466 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-23 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0140 - - 6467 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6468 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6469 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6470 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6471 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6472 007425 SN=SN+1 - 6473 000004 000000 ZZ=ZZ+ZZ - 6474 IFE ZZ, - 6475 033545 200 00 0 00 035120 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6476 033546 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6477 ;RESULT IN C(AC) NON-ZERO - 6478 033547 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6479 STOP^ - 6480 033550 254 04 0 00 033551 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6481 033551 324 00 0 00 033552 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6482 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6483 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6484 - 6485 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6486 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6487 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6488 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6489 - 6490 ;********** - 6491 - 6492 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6493 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6494 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6495 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6496 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6497 007426 SN=SN+1 - 6498 000010 000000 ZZ=ZZ+ZZ - 6499 IFE ZZ, - 6500 033552 200 00 0 00 035121 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6501 033553 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6502 ;RESULT IN C(AC) NON-ZERO - 6503 033554 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6504 STOP^ - 6505 033555 254 04 0 00 033556 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6506 033556 324 00 0 00 033557 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6507 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6508 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6509 - 6510 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6511 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6512 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6513 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6514 - 6515 ;********** - 6516 - 6517 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6518 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6519 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6520 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6521 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-24 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0141 - - 6522 007427 SN=SN+1 - 6523 000020 000000 ZZ=ZZ+ZZ - 6524 IFE ZZ, - 6525 033557 200 00 0 00 035122 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6526 033560 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6527 ;RESULT IN C(AC) NON-ZERO - 6528 033561 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6529 STOP^ - 6530 033562 254 04 0 00 033563 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6531 033563 324 00 0 00 033564 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6532 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6533 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6534 - 6535 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6536 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6537 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6538 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6539 - 6540 ;********** - 6541 - 6542 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6543 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6544 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6545 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6546 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6547 007430 SN=SN+1 - 6548 000040 000000 ZZ=ZZ+ZZ - 6549 IFE ZZ, - 6550 033564 200 00 0 00 035123 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6551 033565 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6552 ;RESULT IN C(AC) NON-ZERO - 6553 033566 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6554 STOP^ - 6555 033567 254 04 0 00 033570 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6556 033570 324 00 0 00 033571 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6557 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6558 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6559 - 6560 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6561 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6562 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6563 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6564 - 6565 ;********** - 6566 - 6567 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6568 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6569 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6570 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6571 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6572 007431 SN=SN+1 - 6573 000100 000000 ZZ=ZZ+ZZ - 6574 IFE ZZ, - 6575 033571 200 00 0 00 035124 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6576 033572 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-25 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0142 - - 6577 ;RESULT IN C(AC) NON-ZERO - 6578 033573 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6579 STOP^ - 6580 033574 254 04 0 00 033575 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6581 033575 324 00 0 00 033576 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6582 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6583 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6584 - 6585 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6586 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6587 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6588 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6589 - 6590 ;********** - 6591 - 6592 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6593 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6594 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6595 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6596 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6597 007432 SN=SN+1 - 6598 000200 000000 ZZ=ZZ+ZZ - 6599 IFE ZZ, - 6600 033576 200 00 0 00 035125 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6601 033577 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6602 ;RESULT IN C(AC) NON-ZERO - 6603 033600 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6604 STOP^ - 6605 033601 254 04 0 00 033602 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6606 033602 324 00 0 00 033603 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6607 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6608 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6609 - 6610 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6611 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6612 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6613 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6614 - 6615 ;********** - 6616 - 6617 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6618 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6619 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6620 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6621 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6622 007433 SN=SN+1 - 6623 000400 000000 ZZ=ZZ+ZZ - 6624 IFE ZZ, - 6625 033603 200 00 0 00 035073 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6626 033604 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6627 ;RESULT IN C(AC) NON-ZERO - 6628 033605 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6629 STOP^ - 6630 033606 254 04 0 00 033607 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6631 033607 324 00 0 00 033610 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-26 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0143 - - 6632 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6633 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6634 - 6635 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6636 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6637 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6638 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6639 - 6640 ;********** - 6641 - 6642 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6643 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6644 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6645 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6646 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6647 007434 SN=SN+1 - 6648 001000 000000 ZZ=ZZ+ZZ - 6649 IFE ZZ, - 6650 033610 200 00 0 00 035126 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6651 033611 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6652 ;RESULT IN C(AC) NON-ZERO - 6653 033612 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6654 STOP^ - 6655 033613 254 04 0 00 033614 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6656 033614 324 00 0 00 033615 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6657 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6658 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6659 - 6660 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6661 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6662 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6663 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6664 - 6665 ;********** - 6666 - 6667 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6668 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6669 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6670 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6671 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6672 007435 SN=SN+1 - 6673 002000 000000 ZZ=ZZ+ZZ - 6674 IFE ZZ, - 6675 033615 200 00 0 00 035127 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6676 033616 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6677 ;RESULT IN C(AC) NON-ZERO - 6678 033617 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6679 STOP^ - 6680 033620 254 04 0 00 033621 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6681 033621 324 00 0 00 033622 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6682 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6683 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6684 - 6685 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6686 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-27 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0144 - - 6687 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6688 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6689 - 6690 ;********** - 6691 - 6692 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6693 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6694 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6695 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6696 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6697 007436 SN=SN+1 - 6698 004000 000000 ZZ=ZZ+ZZ - 6699 IFE ZZ, - 6700 033622 200 00 0 00 035130 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6701 033623 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6702 ;RESULT IN C(AC) NON-ZERO - 6703 033624 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6704 STOP^ - 6705 033625 254 04 0 00 033626 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6706 033626 324 00 0 00 033627 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6707 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6708 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6709 - 6710 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6711 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6712 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6713 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6714 - 6715 ;********** - 6716 - 6717 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6718 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6719 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6720 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6721 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6722 007437 SN=SN+1 - 6723 010000 000000 ZZ=ZZ+ZZ - 6724 IFE ZZ, - 6725 033627 200 00 0 00 035131 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6726 033630 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6727 ;RESULT IN C(AC) NON-ZERO - 6728 033631 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6729 STOP^ - 6730 033632 254 04 0 00 033633 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6731 033633 324 00 0 00 033634 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6732 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6733 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6734 - 6735 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6736 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6737 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6738 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6739 - 6740 ;********** - 6741 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-28 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0145 - - 6742 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6743 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6744 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6745 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6746 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6747 007440 SN=SN+1 - 6748 020000 000000 ZZ=ZZ+ZZ - 6749 IFE ZZ, - 6750 033634 200 00 0 00 035132 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6751 033635 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6752 ;RESULT IN C(AC) NON-ZERO - 6753 033636 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6754 STOP^ - 6755 033637 254 04 0 00 033640 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6756 033640 324 00 0 00 033641 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6757 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6758 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6759 - 6760 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6761 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6762 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6763 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6764 - 6765 ;********** - 6766 - 6767 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6768 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6769 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6770 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6771 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6772 007441 SN=SN+1 - 6773 040000 000000 ZZ=ZZ+ZZ - 6774 IFE ZZ, - 6775 033641 200 00 0 00 035133 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6776 033642 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6777 ;RESULT IN C(AC) NON-ZERO - 6778 033643 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6779 STOP^ - 6780 033644 254 04 0 00 033645 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6781 033645 324 00 0 00 033646 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6782 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6783 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6784 - 6785 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6786 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6787 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6788 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6789 - 6790 ;********** - 6791 - 6792 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6793 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6794 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6795 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6796 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-29 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0146 - - 6797 007442 SN=SN+1 - 6798 100000 000000 ZZ=ZZ+ZZ - 6799 IFE ZZ, - 6800 033646 200 00 0 00 035134 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6801 033647 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6802 ;RESULT IN C(AC) NON-ZERO - 6803 033650 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6804 STOP^ - 6805 033651 254 04 0 00 033652 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6806 033652 324 00 0 00 033653 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6807 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6808 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6809 - 6810 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6811 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6812 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6813 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6814 - 6815 ;********** - 6816 - 6817 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6818 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6819 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6820 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6821 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6822 007443 SN=SN+1 - 6823 200000 000000 ZZ=ZZ+ZZ - 6824 IFE ZZ, - 6825 033653 200 00 0 00 035135 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6826 033654 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - 6827 ;RESULT IN C(AC) NON-ZERO - 6828 033655 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6829 STOP^ - 6830 033656 254 04 0 00 033657 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6831 033657 324 00 0 00 033660 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6832 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6833 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6834 - 6835 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6836 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6837 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6838 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6839 - 6840 ;********** - 6841 - 6842 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE - 6843 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS - 6844 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE - 6845 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E - 6846 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. - 6847 007444 SN=SN+1 - 6848 400000 000000 ZZ=ZZ+ZZ - 6849 IFE ZZ, - 6850 033660 200 00 0 00 035065 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - 6851 033661 430 00 0 00 035062 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 27-30 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0147 - - 6852 ;RESULT IN C(AC) NON-ZERO - 6853 033662 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 6854 STOP^ - 6855 033663 254 04 0 00 033664 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6856 033664 324 00 0 00 033665 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6857 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6858 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6859 - 6860 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], - 6861 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], - 6862 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], - 6863 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - 6864 - 6865 ;********** - 6866 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0148 - - 6867 007500 SN=7500 - 6868 000000 ZZ=0 - 6869 - 6870 A7500: REPEAT ^D36, - 6871 <;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 6872 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 6873 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 6874 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 6875 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 6876 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 6877 ;INDICATE AN ILLEGAL CARRY GENERATION. - 6878 SN=SN+1 - 6879 ZZ=ZZ+ZZ - 6880 IFE ZZ, - 6881 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 6882 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 6883 SKIPE ;PASS TEST IF C(AC)=0 - 6884 STOP - 6885 - 6886 ;********** - 6887 > - 6888 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 6889 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 6890 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 6891 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 6892 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 6893 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 6894 ;INDICATE AN ILLEGAL CARRY GENERATION. - 6895 007501 SN=SN+1 - 6896 000000 ZZ=ZZ+ZZ - 6897 000001 IFE ZZ, - 6898 033665 200 00 0 00 035074 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 6899 033666 430 00 0 00 035074 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 6900 033667 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 6901 STOP^ - 6902 033670 254 04 0 00 033671 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6903 033671 324 00 0 00 033672 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6904 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6905 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6906 - 6907 ;********** - 6908 - 6909 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 6910 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 6911 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 6912 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 6913 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 6914 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 6915 ;INDICATE AN ILLEGAL CARRY GENERATION. - 6916 007502 SN=SN+1 - 6917 000002 ZZ=ZZ+ZZ - 6918 IFE ZZ, - 6919 033672 200 00 0 00 035075 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 6920 033673 430 00 0 00 035075 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 6921 033674 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-1 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0149 - - 6922 STOP^ - 6923 033675 254 04 0 00 033676 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6924 033676 324 00 0 00 033677 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6925 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6926 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6927 - 6928 ;********** - 6929 - 6930 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 6931 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 6932 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 6933 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 6934 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 6935 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 6936 ;INDICATE AN ILLEGAL CARRY GENERATION. - 6937 007503 SN=SN+1 - 6938 000004 ZZ=ZZ+ZZ - 6939 IFE ZZ, - 6940 033677 200 00 0 00 035076 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 6941 033700 430 00 0 00 035076 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 6942 033701 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 6943 STOP^ - 6944 033702 254 04 0 00 033703 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6945 033703 324 00 0 00 033704 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6946 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6947 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6948 - 6949 ;********** - 6950 - 6951 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 6952 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 6953 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 6954 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 6955 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 6956 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 6957 ;INDICATE AN ILLEGAL CARRY GENERATION. - 6958 007504 SN=SN+1 - 6959 000010 ZZ=ZZ+ZZ - 6960 IFE ZZ, - 6961 033704 200 00 0 00 035077 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 6962 033705 430 00 0 00 035077 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 6963 033706 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 6964 STOP^ - 6965 033707 254 04 0 00 033710 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6966 033710 324 00 0 00 033711 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6967 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6968 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6969 - 6970 ;********** - 6971 - 6972 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 6973 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 6974 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 6975 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 6976 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-2 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0150 - - 6977 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 6978 ;INDICATE AN ILLEGAL CARRY GENERATION. - 6979 007505 SN=SN+1 - 6980 000020 ZZ=ZZ+ZZ - 6981 IFE ZZ, - 6982 033711 200 00 0 00 035100 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 6983 033712 430 00 0 00 035100 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 6984 033713 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 6985 STOP^ - 6986 033714 254 04 0 00 033715 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6987 033715 324 00 0 00 033716 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 6988 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 6989 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 6990 - 6991 ;********** - 6992 - 6993 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 6994 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 6995 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 6996 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 6997 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 6998 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 6999 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7000 007506 SN=SN+1 - 7001 000040 ZZ=ZZ+ZZ - 7002 IFE ZZ, - 7003 033716 200 00 0 00 035101 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7004 033717 430 00 0 00 035101 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7005 033720 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7006 STOP^ - 7007 033721 254 04 0 00 033722 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7008 033722 324 00 0 00 033723 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7009 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7010 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7011 - 7012 ;********** - 7013 - 7014 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7015 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7016 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7017 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7018 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7019 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7020 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7021 007507 SN=SN+1 - 7022 000100 ZZ=ZZ+ZZ - 7023 IFE ZZ, - 7024 033723 200 00 0 00 035102 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7025 033724 430 00 0 00 035102 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7026 033725 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7027 STOP^ - 7028 033726 254 04 0 00 033727 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7029 033727 324 00 0 00 033730 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7030 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7031 ;IN THE SUBTEST) TO LOOP ON ERROR^ -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-3 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0151 - - 7032 - 7033 ;********** - 7034 - 7035 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7036 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7037 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7038 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7039 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7040 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7041 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7042 007510 SN=SN+1 - 7043 000200 ZZ=ZZ+ZZ - 7044 IFE ZZ, - 7045 033730 200 00 0 00 035103 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7046 033731 430 00 0 00 035103 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7047 033732 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7048 STOP^ - 7049 033733 254 04 0 00 033734 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7050 033734 324 00 0 00 033735 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7051 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7052 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7053 - 7054 ;********** - 7055 - 7056 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7057 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7058 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7059 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7060 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7061 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7062 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7063 007511 SN=SN+1 - 7064 000400 ZZ=ZZ+ZZ - 7065 IFE ZZ, - 7066 033735 200 00 0 00 035104 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7067 033736 430 00 0 00 035104 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7068 033737 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7069 STOP^ - 7070 033740 254 04 0 00 033741 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7071 033741 324 00 0 00 033742 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7072 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7073 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7074 - 7075 ;********** - 7076 - 7077 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7078 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7079 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7080 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7081 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7082 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7083 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7084 007512 SN=SN+1 - 7085 001000 ZZ=ZZ+ZZ - 7086 IFE ZZ, -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-4 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0152 - - 7087 033742 200 00 0 00 035105 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7088 033743 430 00 0 00 035105 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7089 033744 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7090 STOP^ - 7091 033745 254 04 0 00 033746 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7092 033746 324 00 0 00 033747 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7093 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7094 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7095 - 7096 ;********** - 7097 - 7098 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7099 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7100 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7101 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7102 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7103 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7104 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7105 007513 SN=SN+1 - 7106 002000 ZZ=ZZ+ZZ - 7107 IFE ZZ, - 7108 033747 200 00 0 00 035106 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7109 033750 430 00 0 00 035106 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7110 033751 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7111 STOP^ - 7112 033752 254 04 0 00 033753 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7113 033753 324 00 0 00 033754 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7114 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7115 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7116 - 7117 ;********** - 7118 - 7119 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7120 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7121 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7122 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7123 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7124 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7125 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7126 007514 SN=SN+1 - 7127 004000 ZZ=ZZ+ZZ - 7128 IFE ZZ, - 7129 033754 200 00 0 00 035107 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7130 033755 430 00 0 00 035107 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7131 033756 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7132 STOP^ - 7133 033757 254 04 0 00 033760 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7134 033760 324 00 0 00 033761 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7135 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7136 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7137 - 7138 ;********** - 7139 - 7140 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7141 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-5 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0153 - - 7142 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7143 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7144 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7145 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7146 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7147 007515 SN=SN+1 - 7148 010000 ZZ=ZZ+ZZ - 7149 IFE ZZ, - 7150 033761 200 00 0 00 035110 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7151 033762 430 00 0 00 035110 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7152 033763 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7153 STOP^ - 7154 033764 254 04 0 00 033765 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7155 033765 324 00 0 00 033766 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7156 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7157 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7158 - 7159 ;********** - 7160 - 7161 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7162 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7163 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7164 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7165 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7166 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7167 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7168 007516 SN=SN+1 - 7169 020000 ZZ=ZZ+ZZ - 7170 IFE ZZ, - 7171 033766 200 00 0 00 035111 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7172 033767 430 00 0 00 035111 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7173 033770 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7174 STOP^ - 7175 033771 254 04 0 00 033772 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7176 033772 324 00 0 00 033773 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7177 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7178 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7179 - 7180 ;********** - 7181 - 7182 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7183 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7184 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7185 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7186 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7187 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7188 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7189 007517 SN=SN+1 - 7190 040000 ZZ=ZZ+ZZ - 7191 IFE ZZ, - 7192 033773 200 00 0 00 035112 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7193 033774 430 00 0 00 035112 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7194 033775 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7195 STOP^ - 7196 033776 254 04 0 00 033777 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-6 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0154 - - 7197 033777 324 00 0 00 034000 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7198 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7199 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7200 - 7201 ;********** - 7202 - 7203 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7204 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7205 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7206 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7207 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7208 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7209 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7210 007520 SN=SN+1 - 7211 100000 ZZ=ZZ+ZZ - 7212 IFE ZZ, - 7213 034000 200 00 0 00 035113 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7214 034001 430 00 0 00 035113 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7215 034002 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7216 STOP^ - 7217 034003 254 04 0 00 034004 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7218 034004 324 00 0 00 034005 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7219 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7220 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7221 - 7222 ;********** - 7223 - 7224 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7225 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7226 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7227 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7228 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7229 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7230 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7231 007521 SN=SN+1 - 7232 200000 ZZ=ZZ+ZZ - 7233 IFE ZZ, - 7234 034005 200 00 0 00 035114 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7235 034006 430 00 0 00 035114 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7236 034007 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7237 STOP^ - 7238 034010 254 04 0 00 034011 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7239 034011 324 00 0 00 034012 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7240 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7241 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7242 - 7243 ;********** - 7244 - 7245 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7246 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7247 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7248 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7249 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7250 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7251 ;INDICATE AN ILLEGAL CARRY GENERATION. -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-7 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0155 - - 7252 007522 SN=SN+1 - 7253 400000 ZZ=ZZ+ZZ - 7254 IFE ZZ, - 7255 034012 200 00 0 00 035115 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7256 034013 430 00 0 00 035115 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7257 034014 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7258 STOP^ - 7259 034015 254 04 0 00 034016 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7260 034016 324 00 0 00 034017 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7261 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7262 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7263 - 7264 ;********** - 7265 - 7266 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7267 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7268 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7269 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7270 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7271 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7272 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7273 007523 SN=SN+1 - 7274 000001 000000 ZZ=ZZ+ZZ - 7275 IFE ZZ, - 7276 034017 200 00 0 00 035116 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7277 034020 430 00 0 00 035116 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7278 034021 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7279 STOP^ - 7280 034022 254 04 0 00 034023 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7281 034023 324 00 0 00 034024 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7282 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7283 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7284 - 7285 ;********** - 7286 - 7287 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7288 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7289 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7290 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7291 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7292 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7293 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7294 007524 SN=SN+1 - 7295 000002 000000 ZZ=ZZ+ZZ - 7296 IFE ZZ, - 7297 034024 200 00 0 00 035117 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7298 034025 430 00 0 00 035117 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7299 034026 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7300 STOP^ - 7301 034027 254 04 0 00 034030 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7302 034030 324 00 0 00 034031 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7303 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7304 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7305 - 7306 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-8 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0156 - - 7307 - 7308 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7309 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7310 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7311 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7312 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7313 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7314 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7315 007525 SN=SN+1 - 7316 000004 000000 ZZ=ZZ+ZZ - 7317 IFE ZZ, - 7318 034031 200 00 0 00 035120 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7319 034032 430 00 0 00 035120 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7320 034033 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7321 STOP^ - 7322 034034 254 04 0 00 034035 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7323 034035 324 00 0 00 034036 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7324 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7325 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7326 - 7327 ;********** - 7328 - 7329 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7330 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7331 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7332 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7333 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7334 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7335 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7336 007526 SN=SN+1 - 7337 000010 000000 ZZ=ZZ+ZZ - 7338 IFE ZZ, - 7339 034036 200 00 0 00 035121 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7340 034037 430 00 0 00 035121 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7341 034040 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7342 STOP^ - 7343 034041 254 04 0 00 034042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7344 034042 324 00 0 00 034043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7345 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7346 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7347 - 7348 ;********** - 7349 - 7350 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7351 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7352 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7353 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7354 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7355 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7356 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7357 007527 SN=SN+1 - 7358 000020 000000 ZZ=ZZ+ZZ - 7359 IFE ZZ, - 7360 034043 200 00 0 00 035122 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7361 034044 430 00 0 00 035122 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-9 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0157 - - 7362 034045 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7363 STOP^ - 7364 034046 254 04 0 00 034047 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7365 034047 324 00 0 00 034050 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7366 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7367 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7368 - 7369 ;********** - 7370 - 7371 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7372 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7373 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7374 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7375 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7376 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7377 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7378 007530 SN=SN+1 - 7379 000040 000000 ZZ=ZZ+ZZ - 7380 IFE ZZ, - 7381 034050 200 00 0 00 035123 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7382 034051 430 00 0 00 035123 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7383 034052 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7384 STOP^ - 7385 034053 254 04 0 00 034054 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7386 034054 324 00 0 00 034055 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7387 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7388 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7389 - 7390 ;********** - 7391 - 7392 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7393 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7394 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7395 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7396 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7397 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7398 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7399 007531 SN=SN+1 - 7400 000100 000000 ZZ=ZZ+ZZ - 7401 IFE ZZ, - 7402 034055 200 00 0 00 035124 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7403 034056 430 00 0 00 035124 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7404 034057 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7405 STOP^ - 7406 034060 254 04 0 00 034061 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7407 034061 324 00 0 00 034062 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7408 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7409 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7410 - 7411 ;********** - 7412 - 7413 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7414 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7415 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7416 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-10 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0158 - - 7417 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7418 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7419 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7420 007532 SN=SN+1 - 7421 000200 000000 ZZ=ZZ+ZZ - 7422 IFE ZZ, - 7423 034062 200 00 0 00 035125 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7424 034063 430 00 0 00 035125 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7425 034064 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7426 STOP^ - 7427 034065 254 04 0 00 034066 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7428 034066 324 00 0 00 034067 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7429 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7430 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7431 - 7432 ;********** - 7433 - 7434 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7435 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7436 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7437 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7438 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7439 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7440 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7441 007533 SN=SN+1 - 7442 000400 000000 ZZ=ZZ+ZZ - 7443 IFE ZZ, - 7444 034067 200 00 0 00 035073 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7445 034070 430 00 0 00 035073 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7446 034071 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7447 STOP^ - 7448 034072 254 04 0 00 034073 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7449 034073 324 00 0 00 034074 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7450 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7451 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7452 - 7453 ;********** - 7454 - 7455 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7456 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7457 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7458 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7459 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7460 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7461 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7462 007534 SN=SN+1 - 7463 001000 000000 ZZ=ZZ+ZZ - 7464 IFE ZZ, - 7465 034074 200 00 0 00 035126 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7466 034075 430 00 0 00 035126 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7467 034076 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7468 STOP^ - 7469 034077 254 04 0 00 034100 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7470 034100 324 00 0 00 034101 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7471 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-11 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0159 - - 7472 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7473 - 7474 ;********** - 7475 - 7476 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7477 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7478 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7479 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7480 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7481 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7482 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7483 007535 SN=SN+1 - 7484 002000 000000 ZZ=ZZ+ZZ - 7485 IFE ZZ, - 7486 034101 200 00 0 00 035127 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7487 034102 430 00 0 00 035127 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7488 034103 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7489 STOP^ - 7490 034104 254 04 0 00 034105 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7491 034105 324 00 0 00 034106 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7492 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7493 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7494 - 7495 ;********** - 7496 - 7497 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7498 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7499 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7500 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7501 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7502 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7503 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7504 007536 SN=SN+1 - 7505 004000 000000 ZZ=ZZ+ZZ - 7506 IFE ZZ, - 7507 034106 200 00 0 00 035130 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7508 034107 430 00 0 00 035130 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7509 034110 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7510 STOP^ - 7511 034111 254 04 0 00 034112 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7512 034112 324 00 0 00 034113 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7513 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7514 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7515 - 7516 ;********** - 7517 - 7518 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7519 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7520 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7521 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7522 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7523 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7524 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7525 007537 SN=SN+1 - 7526 010000 000000 ZZ=ZZ+ZZ -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-12 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0160 - - 7527 IFE ZZ, - 7528 034113 200 00 0 00 035131 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7529 034114 430 00 0 00 035131 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7530 034115 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7531 STOP^ - 7532 034116 254 04 0 00 034117 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7533 034117 324 00 0 00 034120 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7534 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7535 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7536 - 7537 ;********** - 7538 - 7539 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7540 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7541 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7542 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7543 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7544 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7545 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7546 007540 SN=SN+1 - 7547 020000 000000 ZZ=ZZ+ZZ - 7548 IFE ZZ, - 7549 034120 200 00 0 00 035132 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7550 034121 430 00 0 00 035132 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7551 034122 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7552 STOP^ - 7553 034123 254 04 0 00 034124 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7554 034124 324 00 0 00 034125 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7555 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7556 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7557 - 7558 ;********** - 7559 - 7560 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7561 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7562 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7563 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7564 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7565 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7566 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7567 007541 SN=SN+1 - 7568 040000 000000 ZZ=ZZ+ZZ - 7569 IFE ZZ, - 7570 034125 200 00 0 00 035133 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7571 034126 430 00 0 00 035133 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7572 034127 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7573 STOP^ - 7574 034130 254 04 0 00 034131 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7575 034131 324 00 0 00 034132 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7576 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7577 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7578 - 7579 ;********** - 7580 - 7581 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-13 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0161 - - 7582 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7583 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7584 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7585 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7586 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7587 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7588 007542 SN=SN+1 - 7589 100000 000000 ZZ=ZZ+ZZ - 7590 IFE ZZ, - 7591 034132 200 00 0 00 035134 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7592 034133 430 00 0 00 035134 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7593 034134 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7594 STOP^ - 7595 034135 254 04 0 00 034136 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7596 034136 324 00 0 00 034137 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7597 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7598 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7599 - 7600 ;********** - 7601 - 7602 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7603 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7604 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7605 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7606 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7607 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7608 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7609 007543 SN=SN+1 - 7610 200000 000000 ZZ=ZZ+ZZ - 7611 IFE ZZ, - 7612 034137 200 00 0 00 035135 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7613 034140 430 00 0 00 035135 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7614 034141 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7615 STOP^ - 7616 034142 254 04 0 00 034143 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7617 034143 324 00 0 00 034144 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7618 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7619 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7620 - 7621 ;********** - 7622 - 7623 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION - 7624 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, - 7625 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT - 7626 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME - 7627 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST - 7628 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY - 7629 ;INDICATE AN ILLEGAL CARRY GENERATION. - 7630 007544 SN=SN+1 - 7631 400000 000000 ZZ=ZZ+ZZ - 7632 IFE ZZ, - 7633 034144 200 00 0 00 035065 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - 7634 034145 430 00 0 00 035065 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - 7635 034146 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7636 STOP^ -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 28-14 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0162 - - 7637 034147 254 04 0 00 034150 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7638 034150 324 00 0 00 034151 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7639 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7640 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7641 - 7642 ;********** - 7643 - 7644 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION WHERE - 7645 ;C(AC)=C(E)=0 IS AN AC CONTAINING ALL ZEROS; FIRST THE AC IS CLEARED; THEN - 7646 ;XOR IS EXECUTED WITH C(E)=0. THE RESULT IN THE AC IS CHECKED FOR ALL ZEROS - 7647 - 7648 034151 200 00 0 00 035062 A7600: MOVE [0] ;INITIALIZE AC TO ALL ZEROS - 7649 034152 430 00 0 00 035062 XOR [0] ;*XOR WITH C(AC)=C(E)=0 SHOULD RESULT INC(AC)=0 - 7650 034153 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7651 STOP^ - 7652 034154 254 04 0 00 034155 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7653 034155 324 00 0 00 034156 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7654 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7655 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7656 - 7657 ;********** - 7658 - 7659 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7660 ;C(AC)=0 AND C(E) ALL ONES IS AN AC CONTAINING ALL ZEROS SINCE - 7661 ;THE EQUIVALENCE FUNCTION SHOULD SET ONLY LIKE BITS. FIRST, THE AC - 7662 ;SHOULD BE CLEARED; THEN, EQV IS EXECUTED WITH E CONTAINING ALL ONES. - 7663 ;THE AC IS THEN CHECKED FOR ALL ZEROS - 7664 - 7665 034156 200 00 0 00 035062 A7700: MOVE [0] ;CLEAR THE AC - 7666 034157 444 00 0 00 035063 EQV [-1] ;*EQV WITH C(AC)=0 AND C(E) ALL ONES SHOULD - 7667 ;RESULT IN C(AC)=0 - 7668 034160 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 7669 STOP^ - 7670 034161 254 04 0 00 034162 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7671 034162 324 00 0 00 034163 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7672 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7673 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7674 - 7675 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0163 - - 7676 010000 SN=10000 - 7677 000000 ZZ=0 - 7678 - 7679 A10000: REPEAT ^D18, - 7680 <;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7681 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 7682 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 7683 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 7684 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 7685 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 7686 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 7687 SN=SN+1 - 7688 ZZ=ZZ+ZZ+1 - 7689 IFE , - 7690 MOVE [0] ;PRESET AC TO ALL ZEROS - 7691 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 7692 ;RESULT IN C(AC) NON-ZERO - 7693 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 7694 STOP - 7695 - 7696 ;********** - 7697 > - 7698 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7699 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 7700 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 7701 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 7702 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 7703 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 7704 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 7705 010001 SN=SN+1 - 7706 000001 ZZ=ZZ+ZZ+1 - 7707 777777 777776 IFE , - 7708 034163 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 7709 034164 444 00 0 00 035142 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 7710 ;RESULT IN C(AC) NON-ZERO - 7711 034165 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 7712 STOP^ - 7713 034166 254 04 0 00 034167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7714 034167 324 00 0 00 034170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7715 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7716 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7717 - 7718 ;********** - 7719 - 7720 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7721 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 7722 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 7723 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 7724 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 7725 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 7726 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 7727 010002 SN=SN+1 - 7728 777777 777775 ZZ=ZZ+ZZ+1 - 7729 IFE , - 7730 034170 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-1 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0164 - - 7731 034171 444 00 0 00 035143 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 7732 ;RESULT IN C(AC) NON-ZERO - 7733 034172 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 7734 STOP^ - 7735 034173 254 04 0 00 034174 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7736 034174 324 00 0 00 034175 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7737 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7738 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7739 - 7740 ;********** - 7741 - 7742 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7743 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 7744 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 7745 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 7746 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 7747 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 7748 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 7749 010003 SN=SN+1 - 7750 777777 777773 ZZ=ZZ+ZZ+1 - 7751 IFE , - 7752 034175 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 7753 034176 444 00 0 00 035144 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 7754 ;RESULT IN C(AC) NON-ZERO - 7755 034177 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 7756 STOP^ - 7757 034200 254 04 0 00 034201 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7758 034201 324 00 0 00 034202 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7759 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7760 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7761 - 7762 ;********** - 7763 - 7764 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7765 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 7766 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 7767 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 7768 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 7769 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 7770 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 7771 010004 SN=SN+1 - 7772 777777 777767 ZZ=ZZ+ZZ+1 - 7773 IFE , - 7774 034202 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 7775 034203 444 00 0 00 035145 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 7776 ;RESULT IN C(AC) NON-ZERO - 7777 034204 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 7778 STOP^ - 7779 034205 254 04 0 00 034206 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7780 034206 324 00 0 00 034207 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7781 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7782 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7783 - 7784 ;********** - 7785 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-2 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0165 - - 7786 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7787 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 7788 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 7789 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 7790 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 7791 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 7792 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 7793 010005 SN=SN+1 - 7794 777777 777757 ZZ=ZZ+ZZ+1 - 7795 IFE , - 7796 034207 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 7797 034210 444 00 0 00 035146 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 7798 ;RESULT IN C(AC) NON-ZERO - 7799 034211 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 7800 STOP^ - 7801 034212 254 04 0 00 034213 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7802 034213 324 00 0 00 034214 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7803 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7804 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7805 - 7806 ;********** - 7807 - 7808 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7809 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 7810 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 7811 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 7812 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 7813 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 7814 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 7815 010006 SN=SN+1 - 7816 777777 777737 ZZ=ZZ+ZZ+1 - 7817 IFE , - 7818 034214 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 7819 034215 444 00 0 00 035147 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 7820 ;RESULT IN C(AC) NON-ZERO - 7821 034216 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 7822 STOP^ - 7823 034217 254 04 0 00 034220 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7824 034220 324 00 0 00 034221 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7825 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7826 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7827 - 7828 ;********** - 7829 - 7830 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7831 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 7832 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 7833 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 7834 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 7835 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 7836 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 7837 010007 SN=SN+1 - 7838 777777 777677 ZZ=ZZ+ZZ+1 - 7839 IFE , - 7840 034221 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-3 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0166 - - 7841 034222 444 00 0 00 035150 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 7842 ;RESULT IN C(AC) NON-ZERO - 7843 034223 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 7844 STOP^ - 7845 034224 254 04 0 00 034225 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7846 034225 324 00 0 00 034226 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7847 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7848 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7849 - 7850 ;********** - 7851 - 7852 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7853 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 7854 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 7855 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 7856 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 7857 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 7858 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 7859 010010 SN=SN+1 - 7860 777777 777577 ZZ=ZZ+ZZ+1 - 7861 IFE , - 7862 034226 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 7863 034227 444 00 0 00 035151 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 7864 ;RESULT IN C(AC) NON-ZERO - 7865 034230 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 7866 STOP^ - 7867 034231 254 04 0 00 034232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7868 034232 324 00 0 00 034233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7869 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7870 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7871 - 7872 ;********** - 7873 - 7874 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7875 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 7876 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 7877 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 7878 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 7879 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 7880 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 7881 010011 SN=SN+1 - 7882 777777 777377 ZZ=ZZ+ZZ+1 - 7883 IFE , - 7884 034233 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 7885 034234 444 00 0 00 035152 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 7886 ;RESULT IN C(AC) NON-ZERO - 7887 034235 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 7888 STOP^ - 7889 034236 254 04 0 00 034237 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7890 034237 324 00 0 00 034240 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7891 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7892 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7893 - 7894 ;********** - 7895 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-4 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0167 - - 7896 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7897 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 7898 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 7899 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 7900 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 7901 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 7902 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 7903 010012 SN=SN+1 - 7904 777777 776777 ZZ=ZZ+ZZ+1 - 7905 IFE , - 7906 034240 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 7907 034241 444 00 0 00 035153 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 7908 ;RESULT IN C(AC) NON-ZERO - 7909 034242 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 7910 STOP^ - 7911 034243 254 04 0 00 034244 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7912 034244 324 00 0 00 034245 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7913 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7914 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7915 - 7916 ;********** - 7917 - 7918 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7919 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 7920 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 7921 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 7922 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 7923 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 7924 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 7925 010013 SN=SN+1 - 7926 777777 775777 ZZ=ZZ+ZZ+1 - 7927 IFE , - 7928 034245 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 7929 034246 444 00 0 00 035154 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 7930 ;RESULT IN C(AC) NON-ZERO - 7931 034247 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 7932 STOP^ - 7933 034250 254 04 0 00 034251 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7934 034251 324 00 0 00 034252 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7935 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7936 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7937 - 7938 ;********** - 7939 - 7940 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7941 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 7942 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 7943 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 7944 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 7945 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 7946 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 7947 010014 SN=SN+1 - 7948 777777 773777 ZZ=ZZ+ZZ+1 - 7949 IFE , - 7950 034252 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-5 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0168 - - 7951 034253 444 00 0 00 035155 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 7952 ;RESULT IN C(AC) NON-ZERO - 7953 034254 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 7954 STOP^ - 7955 034255 254 04 0 00 034256 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7956 034256 324 00 0 00 034257 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7957 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7958 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7959 - 7960 ;********** - 7961 - 7962 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7963 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 7964 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 7965 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 7966 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 7967 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 7968 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 7969 010015 SN=SN+1 - 7970 777777 767777 ZZ=ZZ+ZZ+1 - 7971 IFE , - 7972 034257 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 7973 034260 444 00 0 00 035156 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 7974 ;RESULT IN C(AC) NON-ZERO - 7975 034261 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 7976 STOP^ - 7977 034262 254 04 0 00 034263 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7978 034263 324 00 0 00 034264 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 7979 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 7980 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 7981 - 7982 ;********** - 7983 - 7984 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 7985 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 7986 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 7987 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 7988 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 7989 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 7990 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 7991 010016 SN=SN+1 - 7992 777777 757777 ZZ=ZZ+ZZ+1 - 7993 IFE , - 7994 034264 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 7995 034265 444 00 0 00 035157 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 7996 ;RESULT IN C(AC) NON-ZERO - 7997 034266 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 7998 STOP^ - 7999 034267 254 04 0 00 034270 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8000 034270 324 00 0 00 034271 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8001 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8002 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8003 - 8004 ;********** - 8005 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-6 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0169 - - 8006 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8007 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8008 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8009 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8010 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8011 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8012 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8013 010017 SN=SN+1 - 8014 777777 737777 ZZ=ZZ+ZZ+1 - 8015 IFE , - 8016 034271 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8017 034272 444 00 0 00 035160 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8018 ;RESULT IN C(AC) NON-ZERO - 8019 034273 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8020 STOP^ - 8021 034274 254 04 0 00 034275 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8022 034275 324 00 0 00 034276 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8023 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8024 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8025 - 8026 ;********** - 8027 - 8028 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8029 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8030 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8031 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8032 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8033 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8034 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8035 010020 SN=SN+1 - 8036 777777 677777 ZZ=ZZ+ZZ+1 - 8037 IFE , - 8038 034276 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8039 034277 444 00 0 00 035161 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8040 ;RESULT IN C(AC) NON-ZERO - 8041 034300 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8042 STOP^ - 8043 034301 254 04 0 00 034302 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8044 034302 324 00 0 00 034303 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8045 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8046 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8047 - 8048 ;********** - 8049 - 8050 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8051 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8052 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8053 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8054 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8055 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8056 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8057 010021 SN=SN+1 - 8058 777777 577777 ZZ=ZZ+ZZ+1 - 8059 IFE , - 8060 034303 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-7 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0170 - - 8061 034304 444 00 0 00 035162 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8062 ;RESULT IN C(AC) NON-ZERO - 8063 034305 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8064 STOP^ - 8065 034306 254 04 0 00 034307 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8066 034307 324 00 0 00 034310 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8067 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8068 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8069 - 8070 ;********** - 8071 - 8072 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8073 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8074 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8075 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8076 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8077 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8078 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8079 010022 SN=SN+1 - 8080 777777 377777 ZZ=ZZ+ZZ+1 - 8081 IFE , - 8082 034310 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8083 034311 444 00 0 00 035163 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8084 ;RESULT IN C(AC) NON-ZERO - 8085 034312 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8086 STOP^ - 8087 034313 254 04 0 00 034314 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8088 034314 324 00 0 00 034315 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8089 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8090 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8091 - 8092 ;********** - 8093 - 8094 010100 SN=10100 - 8095 000000 ZZ=0 - 8096 - 8097 A10100: REPEAT ^D18, - 8098 <;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8099 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8100 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8101 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8102 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8103 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8104 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8105 SN=SN+1 - 8106 ZZ=ZZ+ZZ+1 - 8107 IFE , - 8108 MOVE [0] ;PRESET AC TO ALL ZEROS - 8109 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8110 ;RESULT IN C(AC) NON-ZERO - 8111 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8112 STOP - 8113 - 8114 ;********** - 8115 > -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-8 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0171 - - 8116 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8117 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8118 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8119 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8120 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8121 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8122 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8123 010101 SN=SN+1 - 8124 000001 ZZ=ZZ+ZZ+1 - 8125 777777 777776 IFE , - 8126 034315 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8127 034316 444 00 0 00 035164 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8128 ;RESULT IN C(AC) NON-ZERO - 8129 034317 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8130 STOP^ - 8131 034320 254 04 0 00 034321 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8132 034321 324 00 0 00 034322 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8133 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8134 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8135 - 8136 ;********** - 8137 - 8138 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8139 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8140 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8141 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8142 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8143 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8144 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8145 010102 SN=SN+1 - 8146 777777 777775 ZZ=ZZ+ZZ+1 - 8147 IFE , - 8148 034322 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8149 034323 444 00 0 00 035165 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8150 ;RESULT IN C(AC) NON-ZERO - 8151 034324 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8152 STOP^ - 8153 034325 254 04 0 00 034326 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8154 034326 324 00 0 00 034327 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8155 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8156 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8157 - 8158 ;********** - 8159 - 8160 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8161 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8162 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8163 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8164 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8165 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8166 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8167 010103 SN=SN+1 - 8168 777777 777773 ZZ=ZZ+ZZ+1 - 8169 IFE , - 8170 034327 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-9 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0172 - - 8171 034330 444 00 0 00 035166 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8172 ;RESULT IN C(AC) NON-ZERO - 8173 034331 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8174 STOP^ - 8175 034332 254 04 0 00 034333 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8176 034333 324 00 0 00 034334 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8177 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8178 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8179 - 8180 ;********** - 8181 - 8182 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8183 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8184 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8185 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8186 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8187 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8188 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8189 010104 SN=SN+1 - 8190 777777 777767 ZZ=ZZ+ZZ+1 - 8191 IFE , - 8192 034334 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8193 034335 444 00 0 00 035167 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8194 ;RESULT IN C(AC) NON-ZERO - 8195 034336 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8196 STOP^ - 8197 034337 254 04 0 00 034340 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8198 034340 324 00 0 00 034341 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8199 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8200 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8201 - 8202 ;********** - 8203 - 8204 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8205 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8206 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8207 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8208 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8209 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8210 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8211 010105 SN=SN+1 - 8212 777777 777757 ZZ=ZZ+ZZ+1 - 8213 IFE , - 8214 034341 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8215 034342 444 00 0 00 035170 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8216 ;RESULT IN C(AC) NON-ZERO - 8217 034343 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8218 STOP^ - 8219 034344 254 04 0 00 034345 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8220 034345 324 00 0 00 034346 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8221 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8222 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8223 - 8224 ;********** - 8225 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-10 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0173 - - 8226 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8227 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8228 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8229 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8230 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8231 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8232 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8233 010106 SN=SN+1 - 8234 777777 777737 ZZ=ZZ+ZZ+1 - 8235 IFE , - 8236 034346 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8237 034347 444 00 0 00 035171 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8238 ;RESULT IN C(AC) NON-ZERO - 8239 034350 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8240 STOP^ - 8241 034351 254 04 0 00 034352 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8242 034352 324 00 0 00 034353 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8243 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8244 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8245 - 8246 ;********** - 8247 - 8248 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8249 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8250 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8251 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8252 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8253 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8254 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8255 010107 SN=SN+1 - 8256 777777 777677 ZZ=ZZ+ZZ+1 - 8257 IFE , - 8258 034353 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8259 034354 444 00 0 00 035172 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8260 ;RESULT IN C(AC) NON-ZERO - 8261 034355 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8262 STOP^ - 8263 034356 254 04 0 00 034357 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8264 034357 324 00 0 00 034360 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8265 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8266 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8267 - 8268 ;********** - 8269 - 8270 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8271 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8272 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8273 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8274 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8275 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8276 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8277 010110 SN=SN+1 - 8278 777777 777577 ZZ=ZZ+ZZ+1 - 8279 IFE , - 8280 034360 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-11 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0174 - - 8281 034361 444 00 0 00 035173 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8282 ;RESULT IN C(AC) NON-ZERO - 8283 034362 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8284 STOP^ - 8285 034363 254 04 0 00 034364 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8286 034364 324 00 0 00 034365 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8287 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8288 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8289 - 8290 ;********** - 8291 - 8292 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8293 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8294 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8295 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8296 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8297 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8298 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8299 010111 SN=SN+1 - 8300 777777 777377 ZZ=ZZ+ZZ+1 - 8301 IFE , - 8302 034365 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8303 034366 444 00 0 00 035174 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8304 ;RESULT IN C(AC) NON-ZERO - 8305 034367 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8306 STOP^ - 8307 034370 254 04 0 00 034371 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8308 034371 324 00 0 00 034372 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8309 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8310 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8311 - 8312 ;********** - 8313 - 8314 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8315 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8316 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8317 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8318 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8319 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8320 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8321 010112 SN=SN+1 - 8322 777777 776777 ZZ=ZZ+ZZ+1 - 8323 IFE , - 8324 034372 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8325 034373 444 00 0 00 035175 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8326 ;RESULT IN C(AC) NON-ZERO - 8327 034374 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8328 STOP^ - 8329 034375 254 04 0 00 034376 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8330 034376 324 00 0 00 034377 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8331 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8332 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8333 - 8334 ;********** - 8335 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-12 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0175 - - 8336 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8337 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8338 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8339 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8340 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8341 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8342 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8343 010113 SN=SN+1 - 8344 777777 775777 ZZ=ZZ+ZZ+1 - 8345 IFE , - 8346 034377 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8347 034400 444 00 0 00 035176 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8348 ;RESULT IN C(AC) NON-ZERO - 8349 034401 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8350 STOP^ - 8351 034402 254 04 0 00 034403 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8352 034403 324 00 0 00 034404 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8353 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8354 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8355 - 8356 ;********** - 8357 - 8358 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8359 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8360 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8361 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8362 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8363 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8364 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8365 010114 SN=SN+1 - 8366 777777 773777 ZZ=ZZ+ZZ+1 - 8367 IFE , - 8368 034404 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8369 034405 444 00 0 00 035177 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8370 ;RESULT IN C(AC) NON-ZERO - 8371 034406 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8372 STOP^ - 8373 034407 254 04 0 00 034410 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8374 034410 324 00 0 00 034411 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8375 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8376 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8377 - 8378 ;********** - 8379 - 8380 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8381 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8382 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8383 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8384 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8385 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8386 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8387 010115 SN=SN+1 - 8388 777777 767777 ZZ=ZZ+ZZ+1 - 8389 IFE , - 8390 034411 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-13 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0176 - - 8391 034412 444 00 0 00 035200 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8392 ;RESULT IN C(AC) NON-ZERO - 8393 034413 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8394 STOP^ - 8395 034414 254 04 0 00 034415 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8396 034415 324 00 0 00 034416 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8397 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8398 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8399 - 8400 ;********** - 8401 - 8402 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8403 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8404 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8405 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8406 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8407 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8408 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8409 010116 SN=SN+1 - 8410 777777 757777 ZZ=ZZ+ZZ+1 - 8411 IFE , - 8412 034416 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8413 034417 444 00 0 00 035201 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8414 ;RESULT IN C(AC) NON-ZERO - 8415 034420 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8416 STOP^ - 8417 034421 254 04 0 00 034422 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8418 034422 324 00 0 00 034423 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8419 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8420 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8421 - 8422 ;********** - 8423 - 8424 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8425 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8426 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8427 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8428 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8429 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8430 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8431 010117 SN=SN+1 - 8432 777777 737777 ZZ=ZZ+ZZ+1 - 8433 IFE , - 8434 034423 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8435 034424 444 00 0 00 035202 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8436 ;RESULT IN C(AC) NON-ZERO - 8437 034425 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8438 STOP^ - 8439 034426 254 04 0 00 034427 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8440 034427 324 00 0 00 034430 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8441 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8442 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8443 - 8444 ;********** - 8445 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-14 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0177 - - 8446 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8447 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8448 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8449 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8450 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8451 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8452 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8453 010120 SN=SN+1 - 8454 777777 677777 ZZ=ZZ+ZZ+1 - 8455 IFE , - 8456 034430 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8457 034431 444 00 0 00 035203 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8458 ;RESULT IN C(AC) NON-ZERO - 8459 034432 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8460 STOP^ - 8461 034433 254 04 0 00 034434 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8462 034434 324 00 0 00 034435 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8463 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8464 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8465 - 8466 ;********** - 8467 - 8468 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8469 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8470 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8471 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8472 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8473 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8474 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8475 010121 SN=SN+1 - 8476 777777 577777 ZZ=ZZ+ZZ+1 - 8477 IFE , - 8478 034435 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS - 8479 034436 444 00 0 00 035204 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8480 ;RESULT IN C(AC) NON-ZERO - 8481 034437 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8482 STOP^ - 8483 034440 254 04 0 00 034441 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8484 034441 324 00 0 00 034442 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8485 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8486 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8487 - 8488 ;********** - 8489 - 8490 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE - 8491 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN - 8492 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE - 8493 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT - 8494 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS - 8495 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE - 8496 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO - 8497 010122 SN=SN+1 - 8498 777777 377777 ZZ=ZZ+ZZ+1 - 8499 IFE , - 8500 034442 200 00 0 00 035062 MOVE [0] ;PRESET AC TO ALL ZEROS -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 29-15 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0178 - - 8501 034443 444 00 0 00 035064 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - 8502 ;RESULT IN C(AC) NON-ZERO - 8503 034444 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO - 8504 STOP^ - 8505 034445 254 04 0 00 034446 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8506 034446 324 00 0 00 034447 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8507 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8508 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8509 - 8510 ;********** - 8511 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 30 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0179 - - 8512 ;THIS TEST VERIFIES THAT THE RESULT OF AN AC CONTAINING ALL ZEROS - 8513 ;EQUIVALENCED WITH AN E CONTAINING ALL ZEROS IS AN AC CONTAINING ALL - 8514 ;ONES; AND FUTHERMORE, IF THIS AC CONTAINING ALL ONES IS EQUIVALANCED - 8515 ;WITH AN E CONTAINING ALL ZEROS, THE FINAL RESULT IN THE AC - 8516 ;SHOULD BE ALL ZEROS. FIRST, THE AC IS INITIALIZED TO ALL ZEROS, THEN, - 8517 ;THIS AC IS EQUIVALENCED TWICE WITH AN E CONTAINING ALL ZEROS. THE AC IS - 8518 ;THEN CHECKED FOR ALL ZEROS - 8519 - 8520 034447 200 00 0 00 035062 A10200: MOVE [0] ;CLEAR THE AC - 8521 034450 444 00 0 00 035062 EQV [0] ;*EQV SHOULD RESULT IN C(AC)=ALL ONES - 8522 034451 444 00 0 00 035062 EQV [0] ;*EQV SHOULD RESULT IN C(AC)=0 - 8523 034452 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8524 STOP^ - 8525 034453 254 04 0 00 034454 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8526 034454 324 00 0 00 034455 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8527 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8528 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8529 - 8530 ;********** - 8531 - 8532 ;THIS TEST VERIFIES THAT THE RESULT OF AN AC CONTAINING ALL ONES - 8533 ;EQUIVALENCED WITH AN E CONTAINING ALL ONES IS AN AC CONTAINING ALL ONES; - 8534 ;AND FUTHERMORE, IF THIS AC CONTAINING ALL ONES ISEQUIVALENCED WITH AN E - 8535 ;CONTAINING ALL ZEROS, THE FINAL RESULT IN THE AC SHOULD BE ALL ZEROS. - 8536 ;FIRST, THE AC IS INITIALIZED TO ALL ONES; THEN, THIS AC IS - 8537 ;EQUIVALENCED WITH AN E OF ALL ONES. NEXT, THIS SAME AC IS EQUIVALENCED - 8538 ;WITH AN E OF ALL ZEROS. THE AC IS THEN CHECKED FOR ALL ZEROS. - 8539 - 8540 034455 200 00 0 00 035063 A10300: MOVE [-1] ;SET C(AC) TO ALL ONES - 8541 034456 444 00 0 00 035063 EQV [-1] ;*EQV SHOULD RESULT IN C(AC) OF ALL ONES - 8542 034457 444 00 0 00 035062 EQV [0] ;*EQV SHOULD RESULT IN C(AC)=0 - 8543 034460 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8544 STOP^ - 8545 034461 254 04 0 00 034462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8546 034462 324 00 0 00 034463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8547 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8548 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8549 - 8550 ;********** -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0180 - - 8551 013000 SN=13000 - 8552 000000 ZZ=0 - 8553 - 8554 A13000: REPEAT ^D36, - 8555 <;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8556 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8557 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8558 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8559 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8560 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8561 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8562 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8563 SN=SN+1 - 8564 ZZ=ZZ+ZZ - 8565 IFE ZZ, - 8566 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8567 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8568 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8569 EQV [0] ;RESULTS IN C(AC)=0 - 8570 SKIPE ;PASS TEST IF C(AC)=0 - 8571 STOP - 8572 - 8573 ;********** - 8574 > - 8575 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8576 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8577 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8578 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8579 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8580 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8581 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8582 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8583 013001 SN=SN+1 - 8584 000000 ZZ=ZZ+ZZ - 8585 000001 IFE ZZ, - 8586 034463 200 00 0 00 035074 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8587 034464 404 00 0 00 035074 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8588 034465 444 00 0 00 035074 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8589 034466 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8590 034467 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8591 STOP^ - 8592 034470 254 04 0 00 034471 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8593 034471 324 00 0 00 034472 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8594 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8595 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8596 - 8597 ;********** - 8598 - 8599 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8600 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8601 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8602 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8603 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8604 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8605 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-1 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0181 - - 8606 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8607 013002 SN=SN+1 - 8608 000002 ZZ=ZZ+ZZ - 8609 IFE ZZ, - 8610 034472 200 00 0 00 035075 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8611 034473 404 00 0 00 035075 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8612 034474 444 00 0 00 035075 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8613 034475 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8614 034476 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8615 STOP^ - 8616 034477 254 04 0 00 034500 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8617 034500 324 00 0 00 034501 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8618 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8619 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8620 - 8621 ;********** - 8622 - 8623 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8624 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8625 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8626 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8627 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8628 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8629 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8630 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8631 013003 SN=SN+1 - 8632 000004 ZZ=ZZ+ZZ - 8633 IFE ZZ, - 8634 034501 200 00 0 00 035076 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8635 034502 404 00 0 00 035076 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8636 034503 444 00 0 00 035076 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8637 034504 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8638 034505 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8639 STOP^ - 8640 034506 254 04 0 00 034507 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8641 034507 324 00 0 00 034510 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8642 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8643 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8644 - 8645 ;********** - 8646 - 8647 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8648 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8649 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8650 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8651 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8652 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8653 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8654 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8655 013004 SN=SN+1 - 8656 000010 ZZ=ZZ+ZZ - 8657 IFE ZZ, - 8658 034510 200 00 0 00 035077 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8659 034511 404 00 0 00 035077 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8660 034512 444 00 0 00 035077 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-2 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0182 - - 8661 034513 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8662 034514 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8663 STOP^ - 8664 034515 254 04 0 00 034516 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8665 034516 324 00 0 00 034517 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8666 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8667 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8668 - 8669 ;********** - 8670 - 8671 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8672 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8673 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8674 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8675 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8676 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8677 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8678 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8679 013005 SN=SN+1 - 8680 000020 ZZ=ZZ+ZZ - 8681 IFE ZZ, - 8682 034517 200 00 0 00 035100 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8683 034520 404 00 0 00 035100 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8684 034521 444 00 0 00 035100 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8685 034522 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8686 034523 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8687 STOP^ - 8688 034524 254 04 0 00 034525 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8689 034525 324 00 0 00 034526 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8690 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8691 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8692 - 8693 ;********** - 8694 - 8695 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8696 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8697 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8698 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8699 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8700 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8701 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8702 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8703 013006 SN=SN+1 - 8704 000040 ZZ=ZZ+ZZ - 8705 IFE ZZ, - 8706 034526 200 00 0 00 035101 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8707 034527 404 00 0 00 035101 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8708 034530 444 00 0 00 035101 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8709 034531 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8710 034532 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8711 STOP^ - 8712 034533 254 04 0 00 034534 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8713 034534 324 00 0 00 034535 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8714 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8715 ;IN THE SUBTEST) TO LOOP ON ERROR^ -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-3 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0183 - - 8716 - 8717 ;********** - 8718 - 8719 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8720 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8721 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8722 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8723 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8724 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8725 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8726 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8727 013007 SN=SN+1 - 8728 000100 ZZ=ZZ+ZZ - 8729 IFE ZZ, - 8730 034535 200 00 0 00 035102 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8731 034536 404 00 0 00 035102 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8732 034537 444 00 0 00 035102 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8733 034540 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8734 034541 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8735 STOP^ - 8736 034542 254 04 0 00 034543 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8737 034543 324 00 0 00 034544 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8738 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8739 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8740 - 8741 ;********** - 8742 - 8743 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8744 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8745 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8746 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8747 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8748 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8749 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8750 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8751 013010 SN=SN+1 - 8752 000200 ZZ=ZZ+ZZ - 8753 IFE ZZ, - 8754 034544 200 00 0 00 035103 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8755 034545 404 00 0 00 035103 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8756 034546 444 00 0 00 035103 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8757 034547 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8758 034550 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8759 STOP^ - 8760 034551 254 04 0 00 034552 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8761 034552 324 00 0 00 034553 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8762 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8763 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8764 - 8765 ;********** - 8766 - 8767 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8768 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8769 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8770 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-4 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0184 - - 8771 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8772 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8773 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8774 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8775 013011 SN=SN+1 - 8776 000400 ZZ=ZZ+ZZ - 8777 IFE ZZ, - 8778 034553 200 00 0 00 035104 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8779 034554 404 00 0 00 035104 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8780 034555 444 00 0 00 035104 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8781 034556 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8782 034557 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8783 STOP^ - 8784 034560 254 04 0 00 034561 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8785 034561 324 00 0 00 034562 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8786 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8787 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8788 - 8789 ;********** - 8790 - 8791 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8792 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8793 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8794 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8795 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8796 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8797 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8798 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8799 013012 SN=SN+1 - 8800 001000 ZZ=ZZ+ZZ - 8801 IFE ZZ, - 8802 034562 200 00 0 00 035105 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8803 034563 404 00 0 00 035105 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8804 034564 444 00 0 00 035105 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8805 034565 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8806 034566 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8807 STOP^ - 8808 034567 254 04 0 00 034570 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8809 034570 324 00 0 00 034571 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8810 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8811 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8812 - 8813 ;********** - 8814 - 8815 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8816 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8817 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8818 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8819 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8820 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8821 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8822 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8823 013013 SN=SN+1 - 8824 002000 ZZ=ZZ+ZZ - 8825 IFE ZZ, -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-5 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0185 - - 8826 034571 200 00 0 00 035106 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8827 034572 404 00 0 00 035106 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8828 034573 444 00 0 00 035106 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8829 034574 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8830 034575 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8831 STOP^ - 8832 034576 254 04 0 00 034577 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8833 034577 324 00 0 00 034600 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8834 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8835 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8836 - 8837 ;********** - 8838 - 8839 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8840 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8841 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8842 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8843 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8844 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8845 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8846 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8847 013014 SN=SN+1 - 8848 004000 ZZ=ZZ+ZZ - 8849 IFE ZZ, - 8850 034600 200 00 0 00 035107 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8851 034601 404 00 0 00 035107 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8852 034602 444 00 0 00 035107 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8853 034603 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8854 034604 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8855 STOP^ - 8856 034605 254 04 0 00 034606 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8857 034606 324 00 0 00 034607 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8858 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8859 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8860 - 8861 ;********** - 8862 - 8863 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8864 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8865 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8866 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8867 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8868 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8869 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8870 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8871 013015 SN=SN+1 - 8872 010000 ZZ=ZZ+ZZ - 8873 IFE ZZ, - 8874 034607 200 00 0 00 035110 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8875 034610 404 00 0 00 035110 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8876 034611 444 00 0 00 035110 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8877 034612 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8878 034613 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8879 STOP^ - 8880 034614 254 04 0 00 034615 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-6 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0186 - - 8881 034615 324 00 0 00 034616 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8882 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8883 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8884 - 8885 ;********** - 8886 - 8887 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8888 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8889 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8890 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8891 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8892 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8893 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8894 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8895 013016 SN=SN+1 - 8896 020000 ZZ=ZZ+ZZ - 8897 IFE ZZ, - 8898 034616 200 00 0 00 035111 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8899 034617 404 00 0 00 035111 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8900 034620 444 00 0 00 035111 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8901 034621 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8902 034622 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8903 STOP^ - 8904 034623 254 04 0 00 034624 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8905 034624 324 00 0 00 034625 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8906 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8907 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8908 - 8909 ;********** - 8910 - 8911 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8912 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8913 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8914 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8915 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8916 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8917 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8918 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8919 013017 SN=SN+1 - 8920 040000 ZZ=ZZ+ZZ - 8921 IFE ZZ, - 8922 034625 200 00 0 00 035112 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8923 034626 404 00 0 00 035112 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8924 034627 444 00 0 00 035112 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8925 034630 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8926 034631 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8927 STOP^ - 8928 034632 254 04 0 00 034633 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8929 034633 324 00 0 00 034634 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8930 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8931 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8932 - 8933 ;********** - 8934 - 8935 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-7 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0187 - - 8936 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8937 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8938 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8939 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8940 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8941 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8942 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8943 013020 SN=SN+1 - 8944 100000 ZZ=ZZ+ZZ - 8945 IFE ZZ, - 8946 034634 200 00 0 00 035113 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8947 034635 404 00 0 00 035113 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8948 034636 444 00 0 00 035113 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8949 034637 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8950 034640 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8951 STOP^ - 8952 034641 254 04 0 00 034642 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8953 034642 324 00 0 00 034643 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8954 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8955 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8956 - 8957 ;********** - 8958 - 8959 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8960 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8961 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8962 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8963 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8964 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8965 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8966 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 8967 013021 SN=SN+1 - 8968 200000 ZZ=ZZ+ZZ - 8969 IFE ZZ, - 8970 034643 200 00 0 00 035114 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8971 034644 404 00 0 00 035114 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8972 034645 444 00 0 00 035114 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8973 034646 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8974 034647 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8975 STOP^ - 8976 034650 254 04 0 00 034651 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 8977 034651 324 00 0 00 034652 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 8978 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 8979 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 8980 - 8981 ;********** - 8982 - 8983 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 8984 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 8985 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 8986 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 8987 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 8988 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 8989 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 8990 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-8 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0188 - - 8991 013022 SN=SN+1 - 8992 400000 ZZ=ZZ+ZZ - 8993 IFE ZZ, - 8994 034652 200 00 0 00 035115 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 8995 034653 404 00 0 00 035115 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 8996 034654 444 00 0 00 035115 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 8997 034655 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 8998 034656 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 8999 STOP^ - 9000 034657 254 04 0 00 034660 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9001 034660 324 00 0 00 034661 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9002 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9003 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9004 - 9005 ;********** - 9006 - 9007 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9008 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9009 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9010 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9011 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9012 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9013 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9014 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9015 013023 SN=SN+1 - 9016 000001 000000 ZZ=ZZ+ZZ - 9017 IFE ZZ, - 9018 034661 200 00 0 00 035116 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9019 034662 404 00 0 00 035116 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9020 034663 444 00 0 00 035116 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9021 034664 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9022 034665 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9023 STOP^ - 9024 034666 254 04 0 00 034667 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9025 034667 324 00 0 00 034670 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9026 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9027 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9028 - 9029 ;********** - 9030 - 9031 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9032 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9033 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9034 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9035 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9036 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9037 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9038 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9039 013024 SN=SN+1 - 9040 000002 000000 ZZ=ZZ+ZZ - 9041 IFE ZZ, - 9042 034670 200 00 0 00 035117 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9043 034671 404 00 0 00 035117 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9044 034672 444 00 0 00 035117 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9045 034673 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-9 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0189 - - 9046 034674 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9047 STOP^ - 9048 034675 254 04 0 00 034676 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9049 034676 324 00 0 00 034677 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9050 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9051 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9052 - 9053 ;********** - 9054 - 9055 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9056 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9057 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9058 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9059 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9060 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9061 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9062 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9063 013025 SN=SN+1 - 9064 000004 000000 ZZ=ZZ+ZZ - 9065 IFE ZZ, - 9066 034677 200 00 0 00 035120 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9067 034700 404 00 0 00 035120 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9068 034701 444 00 0 00 035120 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9069 034702 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9070 034703 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9071 STOP^ - 9072 034704 254 04 0 00 034705 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9073 034705 324 00 0 00 034706 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9074 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9075 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9076 - 9077 ;********** - 9078 - 9079 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9080 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9081 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9082 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9083 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9084 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9085 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9086 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9087 013026 SN=SN+1 - 9088 000010 000000 ZZ=ZZ+ZZ - 9089 IFE ZZ, - 9090 034706 200 00 0 00 035121 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9091 034707 404 00 0 00 035121 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9092 034710 444 00 0 00 035121 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9093 034711 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9094 034712 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9095 STOP^ - 9096 034713 254 04 0 00 034714 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9097 034714 324 00 0 00 034715 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9098 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9099 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9100 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-10 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0190 - - 9101 ;********** - 9102 - 9103 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9104 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9105 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9106 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9107 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9108 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9109 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9110 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9111 013027 SN=SN+1 - 9112 000020 000000 ZZ=ZZ+ZZ - 9113 IFE ZZ, - 9114 034715 200 00 0 00 035122 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9115 034716 404 00 0 00 035122 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9116 034717 444 00 0 00 035122 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9117 034720 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9118 034721 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9119 STOP^ - 9120 034722 254 04 0 00 034723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9121 034723 324 00 0 00 034724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9122 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9123 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9124 - 9125 ;********** - 9126 - 9127 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9128 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9129 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9130 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9131 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9132 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9133 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9134 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9135 013030 SN=SN+1 - 9136 000040 000000 ZZ=ZZ+ZZ - 9137 IFE ZZ, - 9138 034724 200 00 0 00 035123 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9139 034725 404 00 0 00 035123 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9140 034726 444 00 0 00 035123 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9141 034727 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9142 034730 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9143 STOP^ - 9144 034731 254 04 0 00 034732 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9145 034732 324 00 0 00 034733 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9146 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9147 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9148 - 9149 ;********** - 9150 - 9151 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9152 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9153 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9154 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9155 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-11 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0191 - - 9156 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9157 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9158 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9159 013031 SN=SN+1 - 9160 000100 000000 ZZ=ZZ+ZZ - 9161 IFE ZZ, - 9162 034733 200 00 0 00 035124 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9163 034734 404 00 0 00 035124 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9164 034735 444 00 0 00 035124 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9165 034736 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9166 034737 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9167 STOP^ - 9168 034740 254 04 0 00 034741 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9169 034741 324 00 0 00 034742 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9170 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9171 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9172 - 9173 ;********** - 9174 - 9175 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9176 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9177 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9178 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9179 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9180 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9181 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9182 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9183 013032 SN=SN+1 - 9184 000200 000000 ZZ=ZZ+ZZ - 9185 IFE ZZ, - 9186 034742 200 00 0 00 035125 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9187 034743 404 00 0 00 035125 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9188 034744 444 00 0 00 035125 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9189 034745 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9190 034746 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9191 STOP^ - 9192 034747 254 04 0 00 034750 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9193 034750 324 00 0 00 034751 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9194 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9195 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9196 - 9197 ;********** - 9198 - 9199 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9200 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9201 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9202 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9203 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9204 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9205 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9206 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9207 013033 SN=SN+1 - 9208 000400 000000 ZZ=ZZ+ZZ - 9209 IFE ZZ, - 9210 034751 200 00 0 00 035073 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-12 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0192 - - 9211 034752 404 00 0 00 035073 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9212 034753 444 00 0 00 035073 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9213 034754 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9214 034755 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9215 STOP^ - 9216 034756 254 04 0 00 034757 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9217 034757 324 00 0 00 034760 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9218 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9219 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9220 - 9221 ;********** - 9222 - 9223 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9224 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9225 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9226 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9227 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9228 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9229 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9230 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9231 013034 SN=SN+1 - 9232 001000 000000 ZZ=ZZ+ZZ - 9233 IFE ZZ, - 9234 034760 200 00 0 00 035126 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9235 034761 404 00 0 00 035126 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9236 034762 444 00 0 00 035126 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9237 034763 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9238 034764 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9239 STOP^ - 9240 034765 254 04 0 00 034766 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9241 034766 324 00 0 00 034767 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9242 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9243 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9244 - 9245 ;********** - 9246 - 9247 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9248 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9249 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9250 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9251 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9252 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9253 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9254 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9255 013035 SN=SN+1 - 9256 002000 000000 ZZ=ZZ+ZZ - 9257 IFE ZZ, - 9258 034767 200 00 0 00 035127 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9259 034770 404 00 0 00 035127 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9260 034771 444 00 0 00 035127 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9261 034772 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9262 034773 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9263 STOP^ - 9264 034774 254 04 0 00 034775 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9265 034775 324 00 0 00 034776 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-13 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0193 - - 9266 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9267 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9268 - 9269 ;********** - 9270 - 9271 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9272 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9273 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9274 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9275 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9276 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9277 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9278 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9279 013036 SN=SN+1 - 9280 004000 000000 ZZ=ZZ+ZZ - 9281 IFE ZZ, - 9282 034776 200 00 0 00 035130 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9283 034777 404 00 0 00 035130 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9284 035000 444 00 0 00 035130 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9285 035001 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9286 035002 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9287 STOP^ - 9288 035003 254 04 0 00 035004 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9289 035004 324 00 0 00 035005 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9290 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9291 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9292 - 9293 ;********** - 9294 - 9295 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9296 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9297 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9298 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9299 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9300 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9301 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9302 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9303 013037 SN=SN+1 - 9304 010000 000000 ZZ=ZZ+ZZ - 9305 IFE ZZ, - 9306 035005 200 00 0 00 035131 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9307 035006 404 00 0 00 035131 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9308 035007 444 00 0 00 035131 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9309 035010 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9310 035011 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9311 STOP^ - 9312 035012 254 04 0 00 035013 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9313 035013 324 00 0 00 035014 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9314 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9315 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9316 - 9317 ;********** - 9318 - 9319 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9320 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-14 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0194 - - 9321 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9322 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9323 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9324 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9325 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9326 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9327 013040 SN=SN+1 - 9328 020000 000000 ZZ=ZZ+ZZ - 9329 IFE ZZ, - 9330 035014 200 00 0 00 035132 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9331 035015 404 00 0 00 035132 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9332 035016 444 00 0 00 035132 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9333 035017 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9334 035020 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9335 STOP^ - 9336 035021 254 04 0 00 035022 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9337 035022 324 00 0 00 035023 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9338 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9339 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9340 - 9341 ;********** - 9342 - 9343 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9344 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9345 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9346 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9347 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9348 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9349 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9350 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9351 013041 SN=SN+1 - 9352 040000 000000 ZZ=ZZ+ZZ - 9353 IFE ZZ, - 9354 035023 200 00 0 00 035133 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9355 035024 404 00 0 00 035133 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9356 035025 444 00 0 00 035133 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9357 035026 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9358 035027 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9359 STOP^ - 9360 035030 254 04 0 00 035031 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9361 035031 324 00 0 00 035032 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9362 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9363 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9364 - 9365 ;********** - 9366 - 9367 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9368 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9369 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9370 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9371 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9372 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9373 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9374 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9375 013042 SN=SN+1 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-15 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0195 - - 9376 100000 000000 ZZ=ZZ+ZZ - 9377 IFE ZZ, - 9378 035032 200 00 0 00 035134 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9379 035033 404 00 0 00 035134 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9380 035034 444 00 0 00 035134 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9381 035035 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9382 035036 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9383 STOP^ - 9384 035037 254 04 0 00 035040 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9385 035040 324 00 0 00 035041 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9386 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9387 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9388 - 9389 ;********** - 9390 - 9391 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9392 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9393 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9394 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9395 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9396 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9397 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9398 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9399 013043 SN=SN+1 - 9400 200000 000000 ZZ=ZZ+ZZ - 9401 IFE ZZ, - 9402 035041 200 00 0 00 035135 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9403 035042 404 00 0 00 035135 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9404 035043 444 00 0 00 035135 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9405 035044 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9406 035045 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 - 9407 STOP^ - 9408 035046 254 04 0 00 035047 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9409 035047 324 00 0 00 035050 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9410 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9411 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9412 - 9413 ;********** - 9414 - 9415 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. - 9416 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN - 9417 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). - 9418 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD - 9419 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, - 9420 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. - 9421 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO - 9422 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. - 9423 013044 SN=SN+1 - 9424 400000 000000 ZZ=ZZ+ZZ - 9425 IFE ZZ, - 9426 035050 200 00 0 00 035065 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - 9427 035051 404 00 0 00 035065 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - 9428 035052 444 00 0 00 035065 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - 9429 035053 444 00 0 00 035062 EQV [0] ;RESULTS IN C(AC)=0 - 9430 035054 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 31-16 -DAKAAM MAC 19-JAN-77 13:42 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0196 - - 9431 STOP^ - 9432 035055 254 04 0 00 035056 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 9433 035056 324 00 0 00 035057 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO - 9434 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION - 9435 ;IN THE SUBTEST) TO LOOP ON ERROR^ - 9436 - 9437 ;********** - 9438 - 9439 035057 254 00 0 00 030057 ENDXX: JRST BEGEND ;LOOP PROGRAM -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1 -STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0197 - - 9440 SUBTTL *STOR* RESERVED STORAGE, JAN 18,1977 - 9441 - 9442 ;PROGRAM LITERALS - 9443 - 9444 XLIST - 9445 IFNDEF $LPAPER, - 9446 035060 LIT - 9447 035060 000001 000001 - 9448 035061 254 00 0 00 030741 - 9449 035062 000000 000000 - 9450 035063 777777 777777 - 9451 035064 377777 777777 - 9452 035065 400000 000000 - 9453 035066 777000 000000 - 9454 035067 000377 000000 - 9455 035070 000000 177000 - 9456 035071 000000 000777 - 9457 035072 000000 600000 - 9458 035073 000400 000000 - 9459 035074 000000 000001 - 9460 035075 000000 000002 - 9461 035076 000000 000004 - 9462 035077 000000 000010 - 9463 035100 000000 000020 - 9464 035101 000000 000040 - 9465 035102 000000 000100 - 9466 035103 000000 000200 - 9467 035104 000000 000400 - 9468 035105 000000 001000 - 9469 035106 000000 002000 - 9470 035107 000000 004000 - 9471 035110 000000 010000 - 9472 035111 000000 020000 - 9473 035112 000000 040000 - 9474 035113 000000 100000 - 9475 035114 000000 200000 - 9476 035115 000000 400000 - 9477 035116 000001 000000 - 9478 035117 000002 000000 - 9479 035120 000004 000000 - 9480 035121 000010 000000 - 9481 035122 000020 000000 - 9482 035123 000040 000000 - 9483 035124 000100 000000 - 9484 035125 000200 000000 - 9485 035126 001000 000000 - 9486 035127 002000 000000 - 9487 035130 004000 000000 - 9488 035131 010000 000000 - 9489 035132 020000 000000 - 9490 035133 040000 000000 - 9491 035134 100000 000000 - 9492 035135 200000 000000 - 9493 035136 000000 001234 - 9494 035137 000000 777777 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1-1 -STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0198 - - 9495 035140 777777 000000 - 9496 035141 707070 707070 - 9497 035142 777777 777776 - 9498 035143 777777 777775 - 9499 035144 777777 777773 - 9500 035145 777777 777767 - 9501 035146 777777 777757 - 9502 035147 777777 777737 - 9503 035150 777777 777677 - 9504 035151 777777 777577 - 9505 035152 777777 777377 - 9506 035153 777777 776777 - 9507 035154 777777 775777 - 9508 035155 777777 773777 - 9509 035156 777777 767777 - 9510 035157 777777 757777 - 9511 035160 777777 737777 - 9512 035161 777777 677777 - 9513 035162 777777 577777 - 9514 035163 777777 377777 - 9515 035164 777776 777777 - 9516 035165 777775 777777 - 9517 035166 777773 777777 - 9518 035167 777767 777777 - 9519 035170 777757 777777 - 9520 035171 777737 777777 - 9521 035172 777677 777777 - 9522 035173 777577 777777 - 9523 035174 777377 777777 - 9524 035175 776777 777777 - 9525 035176 775777 777777 - 9526 035177 773777 777777 - 9527 035200 767777 777777 - 9528 035201 757777 777777 - 9529 035202 737777 777777 - 9530 035203 677777 777777 - 9531 035204 577777 777777 - 9532 LIST - 9533 035205 000000 000000 ENDSLD: 0 - 9534 - 9535 IFDEF DEBUG,< - 9536 PATCH: BLOCK DEBUG ;PATCHING AREA - 9537 > - 9538 - 9539 ;PROGRAM VARIABLES - 9540 035206 VAR - 9541 - 9542 IFDEF PGMEND,< - 9543 035206 000000 000000 END: 0 - 9544 030000 END BEGIN > - -NO ERRORS DETECTED - -PROGRAM BREAK IS 000000 -ABSLUTE BREAK IS 035207 -DAKAA PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) 0,2 MACRO %52(537) 13:54 19-JAN-77 PAGE 1-2 -STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0199 - -CPU TIME USED 00:40.863 - -11K CORE USED - -A00 54 55 56 57 58 59 60 61 62 63 64 889# -A100 944# SEQ 0200 -A1000 1049# -A10000 7679# -A10100 8097# -A10200 8520# -A10300 8540# -A1100 1064# -A1200 1077# -A12500 890# -A12600 934# -A12700 926# -A1300 1091# -A13000 8554# -A13100 2021# -A1400 1105# -A1500 1119# -A15000 905# -A15100 916# -A1600 1133# -A1700 1147# -A200 957# -A2000 1161# -A2100 1175# -A2200 1188# -A2300 1202# -A2400 1216# -A2500 1230# -A2600 1243# -A2700 1257# -A300 971# -A3000 1271# -A3100 1283# -A3200 1988# -A3300 2006# -A3400 2034# -A3500 2059# -A3600 2077# -A3700 2095# -A400 987# -A4000 2146# -A4100 2162# -A4200 2307# -A4300 2325# -A4400 2343# -A4500 2110# -A4600 2125# -A4700 2362# -A500 1002# -A5000 2378# -A5100 2394# -A5200 2409# -A5300 2426# -A5400 2446# -A5500 2459# SEQ 0201 -A5600 2819# -A5700 3183# -A600 1021# -A6000 3199# -A6100 3219# -A6200 3237# -A6300 3258# -A6400 3271# -A6500 4340# -A6600 5120# -A6700 5138# -A700 1036# -A7000 5158# -A7100 5175# -A7200 5191# -A7300 5205# -A7400 5945# -A7500 6870# -A7600 7648# -A7700 7665# -AABCLR 353# -AADRBK 353# -AAPRC1 353# -ABORT 85# -AC 2160# 2193 2193# 2194 2194# 2196 2197 2198 2222 2222# 2223 2225 2226 2227 - 2251 2251# 2252 2254 2255 2256 2280 2280# 2281 2283 2284 2285 -AC0 680# -AFOCLR 353# -AFODIS 353# -AFOENB 353# -AFOV 353# -ALTMGO 439# -AMPCLR 353# -AMPV 353# -ANXCLR 353# -ANXM 353# -AOVCLR 353# -AOVDIS 353# -AOVENB 353# -AOVFLO 353# -APAREN 353# -APARER 353# -APDCLR 353# -APDLOV 353# -APR 777 778 779 -APWRFL 353# -AROV 353# -AROVU 353# -AST 554# -ATRPOS 353# -ATSIN 555# -AUSRIO 353# -BEGEND 435# 9439 SEQ 0202 -BEGIN 299 300 366# 723 845 9544 -BEGIN1 382# 436 -BELL 558# -BIS 353# -CCA 353# -CHAIN 105# -CHNOFF 353# -CHNON 353# -CLK 353# -CLKCLR 353# -CLKDIS 353# -CLKENB 353# -CLKU 353# -CLOCKF 421# -CNTLC 438# -COMMA 547# -CONSW 422# -CPOPJ 442# -CPOPJ1 440# -CRLF 234 235 542# -CRLF2 238 239 544# -CRY0 353# -CRY1 353# -CSHFLG 601# -CSHMEM 602# -CYCL60 595# -DCK 353# -DDT 682# -DDTLNK 119# 380 -DDTSRT 380# -DEBUG 9535 -DECVER 5# 11 27 401 -DF22F 506# -DIAGMN 369# -DIAGNO 681# -DIAMON 683# -DING 91# -DOLLAR 561# -DONG11 684# 824 840 -DSKUPD 406 -DTE 688# 824 826 840 842 -DTE0 689# -DTE1 690# -DTE2 691# -DTE3 692# -END 9543# -ENDFIX 675# -ENDSLD 9533# -ENDXX 9439# -ERMORE 455# -ERRPC 426# -ERRTLS 427# -ERSTOP 94# SEQ 0203 -EXCASB 33# 404 -EXIOT 353# -FOV 353# -FOVU 353# -FRDLNK 117# -FSELNK 116# -FXU 353# -HYPEN 552# -INHCSH 102# -INHPAG 99# -INXM 353# -IOCLR 353# -ITERAT 73# 399 -ITRCH1 459# -ITRCNT 399# 769 798 802 810 811 815 -JOB41 353# -JOBAPR 353# -JOBCNI 353# -JOBDDT 353# -JOBFF 353# -JOBOPC 353# -JOBREL 353# -JOBREN 353# -JOBSA 353# -JOBSYM 353# -JOBTPC 353# -JOBUSY 353# -JOBUUO 353# -JOBVER 353# -KA10 35# 353 -KAHZ50 107# -KAIFLG 416# -KI10 353 -KL10 353 -KLFLG 417# 771 789 808 -KLOLD 314 -KLTYP 633# 770 781 823 825 839 841 -LDLNK 118# 369 371 -LFP 556# -LOOPER 93# -LUUO 353# -LUUO1 486 487 -LUUO10 486 491 -LUUO11 486 491 -LUUO12 486 492 -LUUO13 486 492 -LUUO14 486 493 -LUUO15 486 493 -LUUO16 486 494 -LUUO17 486 494 -LUUO2 486 488 -LUUO20 486 495 -LUUO21 486 495 SEQ 0204 -LUUO22 486 496 -LUUO23 486 496 -LUUO24 486 497 -LUUO25 486 497 -LUUO26 486 498 -LUUO27 486 498 -LUUO3 486 488 -LUUO30 486 499 -LUUO31 486 499 -LUUO32 486 500 -LUUO33 486 500 -LUUO4 486 489 -LUUO5 486 489 -LUUO6 486 490 -LUUO7 486 490 -LUUOI 353# -MAPNEW 507# -MARGIN 429# -MCNVER 6# 11 27 401 -MEMLOW 509# -MEMMAP 407 -MEMSIZ 510# -MEMTOT 508# -MINUS 551# -MODDVC 101# -MODDVL 299 299# 402 -MODDVU 300 300# 403 -MODLNK 120# 366 -MONCTL 419# 818 856 -MONFLG 418# 763 852 -MONTEN 420# 768 804 833 -MPVU 353# -NOPNT 89# -NXMU 353# -OPRSEL 103# -OPTIME 521# -P 146 147 148 149 353# 441 -PAG 353# -PALERS 95# -PARCLR 353# -PARDIS 353# -PAREA0 66# -PAREA1 67# 397 -PAREA2 68# 398 -PAREA3 69# 395 -PAREA4 70# 396 -PAREA5 71# 408 -PAREA6 72# 409 -PAREA7 408# -PAREA8 409# -PARENB 353# -PARU 353# -PASCNT 423# 797 SEQ 0205 -PDISF 518# -PDLOVU 353# -PERIOD 548# -PFSTRT 375# -PGMEND 74# 9542 -PGMNAM 400 857 860# -PI 810 -PICHN1 353# -PICHN2 353# -PICHN3 353# -PICHN4 353# -PICHN5 353# -PICHN6 353# -PICHN7 353# -PICHNA 353# -PICLR 353# -PIOFF 353# -PION 353# -PLIST 587# 587 -PLISTE 587 589# 673 -PLISTS 588# -PLUS 553# -PNTENB 517# -PNTEXT 396# -PNTFLG 516# -PNTINH 519# -PNTLPT 90# -PNTNAM 395# -PNTSPC 520# -PVPAGI 614# -PWFCLR 353# -QUEST 559# -RADIX 562# -RADLSC 564# -RADLSP 563# -RANDBS 397# -REENTR 377# -RELIAB 97# -REPT 353# -REPT1 353# -REPTU 475# -REQSET 353# -RESRT1 452# -RESRT2 453# -RETURN 384# 806 813 834 -RSTART 86# -RTP 557# -RUNFLG 424# -SADR1 54# 373 -SADR10 63# 389 -SADR11 64# 390 -SADR2 55# 375 -SADR3 56# 377 SEQ 0206 -SADR4 57# -SADR5 58# 438 -SADR6 59# 439 -SADR7 60# 386 -SADR8 61# 387 -SADR9 62# 388 -SBINIT 159 383# -SCOPE 476# -SFSTRT 373# -SLASH 560# -SN 1280# 1305 1305# 1324 1324# 1343 1343# 1362 1362# 1381 1381# 1400 1400# 1419 - 1419# 1438 1438# 1457 1457# 1476 1476# 1495 1495# 1514 1514# 1533 1533# 1552 - 1552# 1571 1571# 1590 1590# 1609 1609# 1628 1628# 1647 1647# 1666 1666# 1685 - 1685# 1704 1704# 1723 1723# 1742 1742# 1761 1761# 1780 1780# 1799 1799# 1818 - 1818# 1837 1837# 1856 1856# 1875 1875# 1894 1894# 1913 1913# 1932 1932# 1951 - 1951# 1970 1970# 2159# 2192 2192# 2221 2221# 2250 2250# 2279 2279# 2456# 2480 - 2480# 2499 2499# 2518 2518# 2537 2537# 2556 2556# 2575 2575# 2594 2594# 2613 - 2613# 2632 2632# 2651 2651# 2670 2670# 2689 2689# 2708 2708# 2727 2727# 2746 - 2746# 2765 2765# 2784 2784# 2803 2803# 2817# 2841 2841# 2860 2860# 2879 2879# - 2898 2898# 2917 2917# 2936 2936# 2955 2955# 2974 2974# 2993 2993# 3012 3012# - 3031 3031# 3050 3050# 3069 3069# 3088 3088# 3107 3107# 3126 3126# 3145 3145# - 3164 3164# 3268# 3301 3301# 3330 3330# 3359 3359# 3388 3388# 3417 3417# 3446 - 3446# 3475 3475# 3504 3504# 3533 3533# 3562 3562# 3591 3591# 3620 3620# 3649 - 3649# 3678 3678# 3707 3707# 3736 3736# 3765 3765# 3794 3794# 3823 3823# 3852 - 3852# 3881 3881# 3910 3910# 3939 3939# 3968 3968# 3997 3997# 4026 4026# 4055 - 4055# 4084 4084# 4113 4113# 4142 4142# 4171 4171# 4200 4200# 4229 4229# 4258 - 4258# 4287 4287# 4316 4316# 4337# 4363 4363# 4384 4384# 4405 4405# 4426 4426# - 4447 4447# 4468 4468# 4489 4489# 4510 4510# 4531 4531# 4552 4552# 4573 4573# - 4594 4594# 4615 4615# 4636 4636# 4657 4657# 4678 4678# 4699 4699# 4720 4720# - 4741 4741# 4762 4762# 4783 4783# 4804 4804# 4825 4825# 4846 4846# 4867 4867# - 4888 4888# 4909 4909# 4930 4930# 4951 4951# 4972 4972# 4993 4993# 5014 5014# - 5035 5035# 5056 5056# 5077 5077# 5098 5098# 5202# 5227 5227# 5247 5247# 5267 - 5267# 5287 5287# 5307 5307# 5327 5327# 5347 5347# 5367 5367# 5387 5387# 5407 - 5407# 5427 5427# 5447 5447# 5467 5467# 5487 5487# 5507 5507# 5527 5527# 5547 - 5547# 5567 5567# 5587 5587# 5607 5607# 5627 5627# 5647 5647# 5667 5667# 5687 - 5687# 5707 5707# 5727 5727# 5747 5747# 5767 5767# 5787 5787# 5807 5807# 5827 - 5827# 5847 5847# 5867 5867# 5887 5887# 5907 5907# 5927 5927# 5942# 5972 5972# - 5997 5997# 6022 6022# 6047 6047# 6072 6072# 6097 6097# 6122 6122# 6147 6147# - 6172 6172# 6197 6197# 6222 6222# 6247 6247# 6272 6272# 6297 6297# 6322 6322# - 6347 6347# 6372 6372# 6397 6397# 6422 6422# 6447 6447# 6472 6472# 6497 6497# - 6522 6522# 6547 6547# 6572 6572# 6597 6597# 6622 6622# 6647 6647# 6672 6672# - 6697 6697# 6722 6722# 6747 6747# 6772 6772# 6797 6797# 6822 6822# 6847 6847# - 6867# 6895 6895# 6916 6916# 6937 6937# 6958 6958# 6979 6979# 7000 7000# 7021 - 7021# 7042 7042# 7063 7063# 7084 7084# 7105 7105# 7126 7126# 7147 7147# 7168 - 7168# 7189 7189# 7210 7210# 7231 7231# 7252 7252# 7273 7273# 7294 7294# 7315 - 7315# 7336 7336# 7357 7357# 7378 7378# 7399 7399# 7420 7420# 7441 7441# 7462 - 7462# 7483 7483# 7504 7504# 7525 7525# 7546 7546# 7567 7567# 7588 7588# 7609 - 7609# 7630 7630# 7676# 7705 7705# 7727 7727# 7749 7749# 7771 7771# 7793 7793# - 7815 7815# 7837 7837# 7859 7859# 7881 7881# 7903 7903# 7925 7925# 7947 7947# - 7969 7969# 7991 7991# 8013 8013# 8035 8035# 8057 8057# 8079 8079# 8094# 8123 - 8123# 8145 8145# 8167 8167# 8189 8189# 8211 8211# 8233 8233# 8255 8255# 8277 - 8277# 8299 8299# 8321 8321# 8343 8343# 8365 8365# 8387 8387# 8409 8409# 8431 - 8431# 8453 8453# 8475 8475# 8497 8497# 8551# 8583 8583# 8607 8607# 8631 8631# SEQ 0207 - 8655 8655# 8679 8679# 8703 8703# 8727 8727# 8751 8751# 8775 8775# 8799 8799# - 8823 8823# 8847 8847# 8871 8871# 8895 8895# 8919 8919# 8943 8943# 8967 8967# - 8991 8991# 9015 9015# 9039 9039# 9063 9063# 9087 9087# 9111 9111# 9135 9135# - 9159 9159# 9183 9183# 9207 9207# 9231 9231# 9255 9255# 9279 9279# 9303 9303# - 9327 9327# 9351 9351# 9375 9375# 9399 9399# 9423 9423# -SPACE 549# -SRTDDT 379# -START 367 766 775 790 794 848# -START1 386# -START2 387# -START3 388# -START4 389# -START5 390# -STARTA 382 792 803 812 819 829 855 858 880# -SUBLNK 121# 383 -SWTEXR 398# -SYSEXR 371# -TAB 550# -TESTPC 425# -TICKS 428# -TOTALS 87# -TTNBRF 608# -TTYFIL 524# -TTYSPD 525# -TXTINH 98# -USER 415# 759 762 764 765 799 848# 848 851 853 854 -USERF 38# 353# 761 850 -USRASB 34# 405 -USRCRF 534# -USRLFF 533# -UUODIS 487# -UUOEXT 443# -UUORTN 444# -UUOSKP 441# -ZZ 1281# 1306 1306# 1307 1307# 1308 1325 1325# 1326 1327 1344 1344# 1345 1346 - 1363 1363# 1364 1365 1382 1382# 1383 1384 1401 1401# 1402 1403 1420 1420# - 1421 1422 1439 1439# 1440 1441 1458 1458# 1459 1460 1477 1477# 1478 1479 - 1496 1496# 1497 1498 1515 1515# 1516 1517 1534 1534# 1535 1536 1553 1553# - 1554 1555 1572 1572# 1573 1574 1591 1591# 1592 1593 1610 1610# 1611 1612 - 1629 1629# 1630 1631 1648 1648# 1649 1650 1667 1667# 1668 1669 1686 1686# - 1687 1688 1705 1705# 1706 1707 1724 1724# 1725 1726 1743 1743# 1744 1745 - 1762 1762# 1763 1764 1781 1781# 1782 1783 1800 1800# 1801 1802 1819 1819# - 1820 1821 1838 1838# 1839 1840 1857 1857# 1858 1859 1876 1876# 1877 1878 - 1895 1895# 1896 1897 1914 1914# 1915 1916 1933 1933# 1934 1935 1952 1952# - 1953 1954 1971 1971# 1972 1973 2457# 2481 2481# 2482 2482# 2484 2500 2500# - 2501 2503 2519 2519# 2520 2522 2538 2538# 2539 2541 2557 2557# 2558 2560 - 2576 2576# 2577 2579 2595 2595# 2596 2598 2614 2614# 2615 2617 2633 2633# - 2634 2636 2652 2652# 2653 2655 2671 2671# 2672 2674 2690 2690# 2691 2693 - 2709 2709# 2710 2712 2728 2728# 2729 2731 2747 2747# 2748 2750 2766 2766# - 2767 2769 2785 2785# 2786 2788 2804 2804# 2805 2807 2842 2842# 2844 2861 - 2861# 2863 2880 2880# 2882 2899 2899# 2901 2918 2918# 2920 2937 2937# 2939 - 2956 2956# 2958 2975 2975# 2977 2994 2994# 2996 3013 3013# 3015 3032 3032# - 3034 3051 3051# 3053 3070 3070# 3072 3089 3089# 3091 3108 3108# 3110 3127 SEQ 0208 - 3127# 3129 3146 3146# 3148 3165 3165# 3167 3269# 3302 3302# 3303 3303# 3305 - 3331 3331# 3332 3334 3360 3360# 3361 3363 3389 3389# 3390 3392 3418 3418# - 3419 3421 3447 3447# 3448 3450 3476 3476# 3477 3479 3505 3505# 3506 3508 - 3534 3534# 3535 3537 3563 3563# 3564 3566 3592 3592# 3593 3595 3621 3621# - 3622 3624 3650 3650# 3651 3653 3679 3679# 3680 3682 3708 3708# 3709 3711 - 3737 3737# 3738 3740 3766 3766# 3767 3769 3795 3795# 3796 3798 3824 3824# - 3825 3827 3853 3853# 3854 3856 3882 3882# 3883 3885 3911 3911# 3912 3914 - 3940 3940# 3941 3943 3969 3969# 3970 3972 3998 3998# 3999 4001 4027 4027# - 4028 4030 4056 4056# 4057 4059 4085 4085# 4086 4088 4114 4114# 4115 4117 - 4143 4143# 4144 4146 4172 4172# 4173 4175 4201 4201# 4202 4204 4230 4230# - 4231 4233 4259 4259# 4260 4262 4288 4288# 4289 4291 4317 4317# 4318 4320 - 4338# 4364 4364# 4365 4365# 4366 4385 4385# 4386 4387 4406 4406# 4407 4408 - 4427 4427# 4428 4429 4448 4448# 4449 4450 4469 4469# 4470 4471 4490 4490# - 4491 4492 4511 4511# 4512 4513 4532 4532# 4533 4534 4553 4553# 4554 4555 - 4574 4574# 4575 4576 4595 4595# 4596 4597 4616 4616# 4617 4618 4637 4637# - 4638 4639 4658 4658# 4659 4660 4679 4679# 4680 4681 4700 4700# 4701 4702 - 4721 4721# 4722 4723 4742 4742# 4743 4744 4763 4763# 4764 4765 4784 4784# - 4785 4786 4805 4805# 4806 4807 4826 4826# 4827 4828 4847 4847# 4848 4849 - 4868 4868# 4869 4870 4889 4889# 4890 4891 4910 4910# 4911 4912 4931 4931# - 4932 4933 4952 4952# 4953 4954 4973 4973# 4974 4975 4994 4994# 4995 4996 - 5015 5015# 5016 5017 5036 5036# 5037 5038 5057 5057# 5058 5059 5078 5078# - 5079 5080 5099 5099# 5100 5101 5203# 5228 5228# 5229 5229# 5231 5248 5248# - 5249 5251 5268 5268# 5269 5271 5288 5288# 5289 5291 5308 5308# 5309 5311 - 5328 5328# 5329 5331 5348 5348# 5349 5351 5368 5368# 5369 5371 5388 5388# - 5389 5391 5408 5408# 5409 5411 5428 5428# 5429 5431 5448 5448# 5449 5451 - 5468 5468# 5469 5471 5488 5488# 5489 5491 5508 5508# 5509 5511 5528 5528# - 5529 5531 5548 5548# 5549 5551 5568 5568# 5569 5571 5588 5588# 5589 5591 - 5608 5608# 5609 5611 5628 5628# 5629 5631 5648 5648# 5649 5651 5668 5668# - 5669 5671 5688 5688# 5689 5691 5708 5708# 5709 5711 5728 5728# 5729 5731 - 5748 5748# 5749 5751 5768 5768# 5769 5771 5788 5788# 5789 5791 5808 5808# - 5809 5811 5828 5828# 5829 5831 5848 5848# 5849 5851 5868 5868# 5869 5871 - 5888 5888# 5889 5891 5908 5908# 5909 5911 5928 5928# 5929 5931 5943# 5973 - 5973# 5974 5974# 5975 5998 5998# 5999 6000 6023 6023# 6024 6025 6048 6048# - 6049 6050 6073 6073# 6074 6075 6098 6098# 6099 6100 6123 6123# 6124 6125 - 6148 6148# 6149 6150 6173 6173# 6174 6175 6198 6198# 6199 6200 6223 6223# - 6224 6225 6248 6248# 6249 6250 6273 6273# 6274 6275 6298 6298# 6299 6300 - 6323 6323# 6324 6325 6348 6348# 6349 6350 6373 6373# 6374 6375 6398 6398# - 6399 6400 6423 6423# 6424 6425 6448 6448# 6449 6450 6473 6473# 6474 6475 - 6498 6498# 6499 6500 6523 6523# 6524 6525 6548 6548# 6549 6550 6573 6573# - 6574 6575 6598 6598# 6599 6600 6623 6623# 6624 6625 6648 6648# 6649 6650 - 6673 6673# 6674 6675 6698 6698# 6699 6700 6723 6723# 6724 6725 6748 6748# - 6749 6750 6773 6773# 6774 6775 6798 6798# 6799 6800 6823 6823# 6824 6825 - 6848 6848# 6849 6850 6868# 6896 6896# 6897 6897# 6898 6899 6917 6917# 6918 - 6919 6920 6938 6938# 6939 6940 6941 6959 6959# 6960 6961 6962 6980 6980# - 6981 6982 6983 7001 7001# 7002 7003 7004 7022 7022# 7023 7024 7025 7043 - 7043# 7044 7045 7046 7064 7064# 7065 7066 7067 7085 7085# 7086 7087 7088 - 7106 7106# 7107 7108 7109 7127 7127# 7128 7129 7130 7148 7148# 7149 7150 - 7151 7169 7169# 7170 7171 7172 7190 7190# 7191 7192 7193 7211 7211# 7212 - 7213 7214 7232 7232# 7233 7234 7235 7253 7253# 7254 7255 7256 7274 7274# - 7275 7276 7277 7295 7295# 7296 7297 7298 7316 7316# 7317 7318 7319 7337 - 7337# 7338 7339 7340 7358 7358# 7359 7360 7361 7379 7379# 7380 7381 7382 - 7400 7400# 7401 7402 7403 7421 7421# 7422 7423 7424 7442 7442# 7443 7444 - 7445 7463 7463# 7464 7465 7466 7484 7484# 7485 7486 7487 7505 7505# 7506 SEQ 0209 - 7507 7508 7526 7526# 7527 7528 7529 7547 7547# 7548 7549 7550 7568 7568# - 7569 7570 7571 7589 7589# 7590 7591 7592 7610 7610# 7611 7612 7613 7631 - 7631# 7632 7633 7634 7677# 7706 7706# 7707 7707# 7709 7728 7728# 7729 7731 - 7750 7750# 7751 7753 7772 7772# 7773 7775 7794 7794# 7795 7797 7816 7816# - 7817 7819 7838 7838# 7839 7841 7860 7860# 7861 7863 7882 7882# 7883 7885 - 7904 7904# 7905 7907 7926 7926# 7927 7929 7948 7948# 7949 7951 7970 7970# - 7971 7973 7992 7992# 7993 7995 8014 8014# 8015 8017 8036 8036# 8037 8039 - 8058 8058# 8059 8061 8080 8080# 8081 8083 8095# 8124 8124# 8125 8125# 8127 - 8146 8146# 8147 8149 8168 8168# 8169 8171 8190 8190# 8191 8193 8212 8212# - 8213 8215 8234 8234# 8235 8237 8256 8256# 8257 8259 8278 8278# 8279 8281 - 8300 8300# 8301 8303 8322 8322# 8323 8325 8344 8344# 8345 8347 8366 8366# - 8367 8369 8388 8388# 8389 8391 8410 8410# 8411 8413 8432 8432# 8433 8435 - 8454 8454# 8455 8457 8476 8476# 8477 8479 8498 8498# 8499 8501 8552# 8584 - 8584# 8585 8585# 8586 8587 8588 8608 8608# 8609 8610 8611 8612 8632 8632# - 8633 8634 8635 8636 8656 8656# 8657 8658 8659 8660 8680 8680# 8681 8682 - 8683 8684 8704 8704# 8705 8706 8707 8708 8728 8728# 8729 8730 8731 8732 - 8752 8752# 8753 8754 8755 8756 8776 8776# 8777 8778 8779 8780 8800 8800# - 8801 8802 8803 8804 8824 8824# 8825 8826 8827 8828 8848 8848# 8849 8850 - 8851 8852 8872 8872# 8873 8874 8875 8876 8896 8896# 8897 8898 8899 8900 - 8920 8920# 8921 8922 8923 8924 8944 8944# 8945 8946 8947 8948 8968 8968# - 8969 8970 8971 8972 8992 8992# 8993 8994 8995 8996 9016 9016# 9017 9018 - 9019 9020 9040 9040# 9041 9042 9043 9044 9064 9064# 9065 9066 9067 9068 - 9088 9088# 9089 9090 9091 9092 9112 9112# 9113 9114 9115 9116 9136 9136# - 9137 9138 9139 9140 9160 9160# 9161 9162 9163 9164 9184 9184# 9185 9186 - 9187 9188 9208 9208# 9209 9210 9211 9212 9232 9232# 9233 9234 9235 9236 - 9256 9256# 9257 9258 9259 9260 9280 9280# 9281 9282 9283 9284 9304 9304# - 9305 9306 9307 9308 9328 9328# 9329 9330 9331 9332 9352 9352# 9353 9354 - 9355 9356 9376 9376# 9377 9378 9379 9380 9400 9400# 9401 9402 9403 9404 - 9424 9424# 9425 9426 9427 9428 -$$420 733# -$$421 734# -$$422 735# -$$423 736# -$$424 737# -$$425 738# -$$426 739# -$$427 740# -$$430 741# -$$431 742# -$$432 743# -$$433 744# -$$434 745# -$$435 746# -$$436 747# -$$437 748# -$$500 751# -$$501 752# -$$502 753# -$$503 754# -$$BEGI 719# -$$DTE0 785 824# -$$DTE1 786 826# -$$DTE2 787 840# SEQ 0210 -$$DTE3 788 842# -$$LOC 716# 755 -$$MUUO 639# -$$OUTE 645# -$$STAR 719 720 759# -$$TAX1 657# -$$TAX2 658# -$$TOGG 651# -$$UUO 628# -$ACC0 466# -$BEGEN 728# -$BEND1 436# -$BEND2 437# -$CHRIN 527# -$CRLF 529# -$DDT 697# -$DEVCH 353# -$DSKUP 406# -$DTCHR 709# -$DTCI 703# -$DTCLK 702# 783 -$DTCMD 706# 821 837 -$DTF11 705# -$DTFLG 701# 782 822 827 838 843 -$DTMTD 710# -$DTMTI 711# -$DTOPR 708# 784 -$DTSEQ 707# -$DTSWR 713# -$DTT11 704# -$DVCH1 353# -$DVOFF 523# -$EMODE 404# -$ENDFX 673# 674 -$FFF 531# -$IBUF 579# -$INEXT 581# -$INNM 580# -$ITRHL 447# -$ITRX1 448# -$LPAPE 9445 -$MMAP 407# -$MODVL 402# -$MODVU 403# -$OBUF 570# -$ONETM 430# -$OUTEX 572# -$OUTNM 571# -$PAPER 353 -$PARER 454# -$PNAME 400# -$PSHER 458# -$PVER 401# SEQ 0211 -$RSRTX 450# -$RSRTY 451# -$SPAG1 470# -$SPB1 793 799# -$SPBEN 728 797# -$SPBEX 800 808# -$SPBKL 809 815# -$SPBUS 802# -$SPEC 725 792# -$SPKLD 816 833# -$START 367# -$STD 696# 723# -$STKIL 768# -$STKL 777# -$STL 698# -$STM 699# 725# -$SVAPR 468# -$SVPAG 469# -$SVPI 467# -$SVUPC 473# -$SVUUO 472# -$TABF 530# -$TTCHR 526# -$TWCNT 522# -$TYPNB 528# -$UMODE 405# -$UORTX 445# -$USRHL 449# -$UUOER 446# 487 -$VTF 532# -%ACTFL 479# -%ACTUL 480# -%COREC 478# -%CORFL 477# -%DISCR 481# -%ERHI1 620# -%ERHI2 621# -%ERHI3 622# -.JB41 353# -.JBAPR 353# -.JBCNI 353# -.JBDDT 353# -.JBFF 353# -.JBOPC 353# -.JBREL 353# -.JBREN 353# -.JBSA 353# -.JBSYM 353# -.JBTPC 353# -.JBUSY 353# -.JBUUO 353# -.JBVER 353# - SEQ 0212 -CFLUSH 270# -CINVAL 269# SEQ 0213 -CLOKOP 264# -CWRTBI 271# -DROPDV 231# -ENDUUO 277# 435 -EOPUUO 278# 437 -ERLOOP 322# -ERLP1 323# -ERLP2 324# -ERRHLT 166# -ERROR 331# -ERROR1 343# -ERUUO 321# -EXIT 805 -FATAL 165# -FRD36 306# -FRD8 307# -FREAD 305# -FSELEC 304# -GET 149# -GO 146# -HALT 151# 456 733 735 736 740 754 845 891 907 918 928 935 947 - 960 974 991 1006 1025 1039 1053 1067 1081 1095 1108 1122 1137 1151 - 1164 1178 1192 1205 1219 1233 1246 1260 1274 1311 1330 1349 1368 1387 - 1406 1425 1444 1463 1482 1501 1520 1539 1558 1577 1596 1615 1634 1653 - 1672 1691 1710 1729 1748 1767 1786 1805 1824 1843 1862 1881 1900 1919 - 1938 1957 1976 1991 2009 2024 2040 2065 2083 2101 2114 2128 2153 2200 - 2206 2229 2235 2258 2264 2287 2293 2311 2330 2348 2366 2382 2398 2413 - 2430 2450 2487 2506 2525 2544 2563 2582 2601 2620 2639 2658 2677 2696 - 2715 2734 2753 2772 2791 2810 2847 2866 2885 2904 2923 2942 2961 2980 - 2999 3018 3037 3056 3075 3094 3113 3132 3151 3170 3187 3203 3223 3241 - 3262 3310 3316 3339 3345 3368 3374 3397 3403 3426 3432 3455 3461 3484 - 3490 3513 3519 3542 3548 3571 3577 3600 3606 3629 3635 3658 3664 3687 - 3693 3716 3722 3745 3751 3774 3780 3803 3809 3832 3838 3861 3867 3890 - 3896 3919 3925 3948 3954 3977 3983 4006 4012 4035 4041 4064 4070 4093 - 4099 4122 4128 4151 4157 4180 4186 4209 4215 4238 4244 4267 4273 4296 - 4302 4325 4331 4372 4393 4414 4435 4456 4477 4498 4519 4540 4561 4582 - 4603 4624 4645 4666 4687 4708 4729 4750 4771 4792 4813 4834 4855 4876 - 4897 4918 4939 4960 4981 5002 5023 5044 5065 5086 5107 5125 5142 5162 - 5180 5196 5235 5255 5275 5295 5315 5335 5355 5375 5395 5415 5435 5455 - 5475 5495 5515 5535 5555 5575 5595 5615 5635 5655 5675 5695 5715 5735 - 5755 5775 5795 5815 5835 5855 5875 5895 5915 5935 5980 6005 6030 6055 - 6080 6105 6130 6155 6180 6205 6230 6255 6280 6305 6330 6355 6380 6405 - 6430 6455 6480 6505 6530 6555 6580 6605 6630 6655 6680 6705 6730 6755 - 6780 6805 6830 6855 6902 6923 6944 6965 6986 7007 7028 7049 7070 7091 - 7112 7133 7154 7175 7196 7217 7238 7259 7280 7301 7322 7343 7364 7385 - 7406 7427 7448 7469 7490 7511 7532 7553 7574 7595 7616 7637 7652 7670 - 7713 7735 7757 7779 7801 7823 7845 7867 7889 7911 7933 7955 7977 7999 - 8021 8043 8065 8087 8131 8153 8175 8197 8219 8241 8263 8285 8307 8329 - 8351 8373 8395 8417 8439 8461 8483 8505 8525 8545 8592 8616 8640 8664 - 8688 8712 8736 8760 8784 8808 8832 8856 8880 8904 8928 8952 8976 9000 - 9024 9048 9072 9096 9120 9144 9168 9192 9216 9240 9264 9288 9312 9336 - 9360 9384 9408 9432 -JEN 153# SEQ 0214 -JRSTF 152# -MAPADR 287# -MAPCNK 288# -MAPMEM 284# -MAPPNT 290# -MAPSET 289# -MEMSEG 286# -MEMZRO 285# -MODPCP 297# -MODPCU 296# -MTROP 265# -NAME 9# 11 -PBELL 240# -PCRL 234# -PCRL2 238# -PCRL2F 239# -PCRLF 235# -PFORCE 242# -PGMINT 159# -PJRST 150# -PMSG 244# -PMSGF 247# -PNT1 200# -PNT11 214# -PNT11F 215# -PNT1F 201# -PNT2 202# -PNT2F 203# -PNT3 204# -PNT3F 205# -PNT4 206# -PNT4F 207# -PNT5 208# -PNT5F 209# -PNT6 210# -PNT6F 211# -PNT7 212# -PNT7F 213# -PNTA 186# -PNTADF 217# -PNTADR 216# -PNTAF 187# -PNTAL 188# -PNTALF 189# -PNTCHF 199# -PNTCHR 198# -PNTCI 196# -PNTCIF 197# -PNTCW 232# -PNTCWF 233# -PNTDCF 225# -PNTDEC 224# -PNTDS 226# SEQ 0215 -PNTDSF 227# -PNTHW 220# -PNTHWF 221# -PNTMGN 311# -PNTMSF 193# -PNTMSG 192# -PNTNM 228# -PNTOCF 223# -PNTOCS 222# -PNTOCT 218# -PNTOTF 219# -PNTSIX 229# -PNTSXF 230# -PSIXL 190# -PSIXLF 191# -PSIXM 194# -PSIXMF 195# -PSP 236# -PSPF 237# -PUT 148# -REPTUO 325# -RTN 147# 443 -S 77# 79 83 112 114 123 126 141 142 144 155 157 161 163 - 168 172 317 319 353 358 364 391 393 411 413 431 433 462 - 464 482 484 502 504 512 514 535 540 566 568 575 577 583 - 585 591 593 597 599 604 606 610 612 616 618 624 626 629 - 631 635 637 641 643 647 649 653 655 660 665 669 671 -SIXBTZ 253# -STOP 46# 946 959 973 990 1005 1024 1038 1052 1066 1080 1094 1107 1121 - 1136 1150 1163 1177 1191 1204 1218 1232 1245 1259 1273 1310 1329 1348 - 1367 1386 1405 1424 1443 1462 1481 1500 1519 1538 1557 1576 1595 1614 - 1633 1652 1671 1690 1709 1728 1747 1766 1785 1804 1823 1842 1861 1880 - 1899 1918 1937 1956 1975 1990 2008 2023 2039 2064 2082 2100 2113 2127 - 2152 2199 2205 2228 2234 2257 2263 2286 2292 2310 2329 2347 2365 2381 - 2397 2412 2429 2449 2486 2505 2524 2543 2562 2581 2600 2619 2638 2657 - 2676 2695 2714 2733 2752 2771 2790 2809 2846 2865 2884 2903 2922 2941 - 2960 2979 2998 3017 3036 3055 3074 3093 3112 3131 3150 3169 3186 3202 - 3222 3240 3261 3309 3315 3338 3344 3367 3373 3396 3402 3425 3431 3454 - 3460 3483 3489 3512 3518 3541 3547 3570 3576 3599 3605 3628 3634 3657 - 3663 3686 3692 3715 3721 3744 3750 3773 3779 3802 3808 3831 3837 3860 - 3866 3889 3895 3918 3924 3947 3953 3976 3982 4005 4011 4034 4040 4063 - 4069 4092 4098 4121 4127 4150 4156 4179 4185 4208 4214 4237 4243 4266 - 4272 4295 4301 4324 4330 4371 4392 4413 4434 4455 4476 4497 4518 4539 - 4560 4581 4602 4623 4644 4665 4686 4707 4728 4749 4770 4791 4812 4833 - 4854 4875 4896 4917 4938 4959 4980 5001 5022 5043 5064 5085 5106 5124 - 5141 5161 5179 5195 5234 5254 5274 5294 5314 5334 5354 5374 5394 5414 - 5434 5454 5474 5494 5514 5534 5554 5574 5594 5614 5634 5654 5674 5694 - 5714 5734 5754 5774 5794 5814 5834 5854 5874 5894 5914 5934 5979 6004 - 6029 6054 6079 6104 6129 6154 6179 6204 6229 6254 6279 6304 6329 6354 - 6379 6404 6429 6454 6479 6504 6529 6554 6579 6604 6629 6654 6679 6704 - 6729 6754 6779 6804 6829 6854 6901 6922 6943 6964 6985 7006 7027 7048 - 7069 7090 7111 7132 7153 7174 7195 7216 7237 7258 7279 7300 7321 7342 - 7363 7384 7405 7426 7447 7468 7489 7510 7531 7552 7573 7594 7615 7636 SEQ 0216 - 7651 7669 7712 7734 7756 7778 7800 7822 7844 7866 7888 7910 7932 7954 - 7976 7998 8020 8042 8064 8086 8130 8152 8174 8196 8218 8240 8262 8284 - 8306 8328 8350 8372 8394 8416 8438 8460 8482 8504 8524 8544 8591 8615 - 8639 8663 8687 8711 8735 8759 8783 8807 8831 8855 8879 8903 8927 8951 - 8975 8999 9023 9047 9071 9095 9119 9143 9167 9191 9215 9239 9263 9287 - 9311 9335 9359 9383 9407 9431 -SWITCH 259# -TTALTM 181# -TTICHR 174# -TTICNV 179# -TTIDEC 178# -TTINO 176# -TTIOCT 177# -TTIYES 175# -TTLOOK 180# -TTSIXB 182# -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 1 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0217 - - -*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 19-JAN-77 PAGE 2 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0218 - -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 19-JAN-77 PAGE 3 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0219 - -*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 19-JAN-77 PAGE 4 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0220 - -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,035060 -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 200040035060 0 000001000001 -IT1 030614 0 0 0 200040035060 0 000001000001 -AT3 030614 0 0 0 000000035060 0 200040035060 -AT6 030614 035060 0 0 000000035060 0 200040035060 -FT0 030614 035060 0 0 000001000001 0 200040035060 -FT1A 030614 035060 0 0 000001000001 0 000001000001 -FT9 030615 035060 0 0 000001000001 0 000001000001 -ET0 030615 035060 0 0 000001000001 0 000001000001 -ST1 030615 035060 0 0 000001000001 0 000001000001 -ST2 030615 035060 0 0 000001000001 0 000001000001 -ST9 030615 035060 0 0 000001000001 0 000001000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 5 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0221 - -*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,035060 -INITIAL -C(AC)=000001 000001 -C(E)=000001 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 030616 030616 0 0 316040035060 0 000001000001 -IT1 030616 0 0 0 316040035060 0 000001000001 -AT3 030616 0 0 0 000000035060 0 316040035060 -AT6 030616 035060 0 0 000000035060 0 316040035060 -FT0 030616 035060 0 0 000001000001 0 316040035060 -FT1A 030616 035060 0 0 000001000001 0 000001000001 -FT2 030616 035060 0 0 0 0 000001000001 -FT2RQ 030616 035060 0 0 000001000001 0 000001000001 -FT3 030616 035060 0 0 000001000001 0 000001000001 -FT9 030617 035060 0 0 000001000001 0 000001000001 -ET0 030617 035060 0 0 0 0 000001000001 -ST1A 030617 035060 0 0 0 0 000001000001 -ST9 030617 035060 0 0 0 0 000001000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 6 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0222 - -*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 19-JAN-77 PAGE 7 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0223 - -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 19-JAN-77 PAGE 8 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0224 - -*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)=334000 000000 -FINAL - -C(E)=334000 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 19-JAN-77 PAGE 9 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0225 - -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 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 030742 030742 0 0 334000000000 0 000000030714 -IT1 030742 0 0 0 334000000000 0 000000030714 -AT3 030742 0 0 0 0 0 334000000000 -AT6 030742 0 0 0 0 0 334000000000 -FT0 030742 0 0 0 000000030714 0 334000000000 -FT1A 030742 0 0 0 000000030714 0 000000030714 -FT9 030743 0 0 0 000000030714 0 000000030714 -ET0 030744 0 0 0 000000030714 0 000000030714 -ST1A 030744 0 0 0 000000030714 0 000000030714 -ST9 030744 0 0 0 000000030714 0 000000030714 - - -*030744 JUMP 0,030745 -INITIAL -C(AC)=000000 030714 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 030744 030744 0 0 320000030745 0 000000030745 -IT1 030744 0 0 0 320000030745 0 000000030745 -AT3 030744 0 0 0 000000030745 0 320000030745 -AT6 030744 030745 0 0 000000030745 0 320000030745 -FT1A 030744 030745 0 0 000000030745 0 000000030745 -FT2 030744 030745 0 0 0 0 000000030745 -FT2RQ 030744 030745 0 0 000000030714 0 000000030745 -FT3 030744 030745 0 0 000000030714 0 000000030745 -FT9 030745 030745 0 0 000000030714 0 000000030745 -ET0 030745 030745 0 0 000000030714 0 000000030745 -ST1A 030745 030745 0 0 000000030714 0 000000030745 -ST9 030745 030745 0 0 000000030714 0 000000030745 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 10 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0226 - -*030745 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 030745 030745 0 0 334000000000 0 000000030714 -IT1 030745 0 0 0 334000000000 0 000000030714 -AT3 030745 0 0 0 0 0 334000000000 -AT6 030745 0 0 0 0 0 334000000000 -FT0 030745 0 0 0 000000030714 0 334000000000 -FT1A 030745 0 0 0 000000030714 0 000000030714 -FT9 030746 0 0 0 000000030714 0 000000030714 -ET0 030747 0 0 0 000000030714 0 000000030714 -ST1A 030747 0 0 0 000000030714 0 000000030714 -ST9 030747 0 0 0 000000030714 0 000000030714 - - -*030747 JUMP 0,030751 -INITIAL -C(AC)=000000 030714 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 030747 030747 0 0 320000030751 0 000000030751 -IT1 030747 0 0 0 320000030751 0 000000030751 -AT3 030747 0 0 0 000000030751 0 320000030751 -AT6 030747 030751 0 0 000000030751 0 320000030751 -FT1A 030747 030751 0 0 000000030751 0 000000030751 -FT2 030747 030751 0 0 0 0 000000030751 -FT2RQ 030747 030751 0 0 000000030714 0 000000030751 -FT3 030747 030751 0 0 000000030714 0 000000030751 -FT9 030750 030751 0 0 000000030714 0 000000030751 -ET0 030750 030751 0 0 000000030714 0 000000030751 -ST1A 030750 030751 0 0 000000030714 0 000000030751 -ST9 030750 030751 0 0 000000030714 0 000000030751 - - -*030750 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 030750 030750 0 0 334000000000 0 000000030714 -IT1 030750 0 0 0 334000000000 0 000000030714 -AT3 030750 0 0 0 0 0 334000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 11 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0227 - -AT6 030750 0 0 0 0 0 334000000000 -FT0 030750 0 0 0 000000030714 0 334000000000 -FT1A 030750 0 0 0 000000030714 0 000000030714 -FT9 030751 0 0 0 000000030714 0 000000030714 -ET0 030752 0 0 0 000000030714 0 000000030714 -ST1A 030752 0 0 0 000000030714 0 000000030714 -ST9 030752 0 0 0 000000030714 0 000000030714 - - -*030752 JUMPA 0,030753 -INITIAL -C(AC)=000000 030714 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 030752 030752 0 0 324000030753 0 000000030753 -IT1 030752 0 0 0 324000030753 0 000000030753 -AT3 030752 0 0 0 000000030753 0 324000030753 -AT6 030752 030753 0 0 000000030753 0 324000030753 -FT1A 030752 030753 0 0 000000030753 0 000000030753 -FT2 030752 030753 0 0 0 0 000000030753 -FT2RQ 030752 030753 0 0 000000030714 0 000000030753 -FT3 030752 030753 0 0 000000030714 0 000000030753 -FT9 030753 030753 0 0 000000030714 0 000000030753 -ET0 030753 030753 0 0 000000030714 0 000000030753 -ST1A 030753 030753 0 0 000000030714 0 000000030753 -ST9 030753 030753 0 0 000000030714 0 000000030753 - - -*030753 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 030753 030753 0 0 334000000000 0 000000030714 -IT1 030753 0 0 0 334000000000 0 000000030714 -AT3 030753 0 0 0 0 0 334000000000 -AT6 030753 0 0 0 0 0 334000000000 -FT0 030753 0 0 0 000000030714 0 334000000000 -FT1A 030753 0 0 0 000000030714 0 000000030714 -FT9 030754 0 0 0 000000030714 0 000000030714 -ET0 030755 0 0 0 000000030714 0 000000030714 -ST1A 030755 0 0 0 000000030714 0 000000030714 -ST9 030755 0 0 0 000000030714 0 000000030714 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 12 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0228 - -*030755 JUMPA 0,030757 -INITIAL -C(AC)=000000 030714 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 030755 030755 0 0 324000030757 0 000000030757 -IT1 030755 0 0 0 324000030757 0 000000030757 -AT3 030755 0 0 0 000000030757 0 324000030757 -AT6 030755 030757 0 0 000000030757 0 324000030757 -FT1A 030755 030757 0 0 000000030757 0 000000030757 -FT2 030755 030757 0 0 0 0 000000030757 -FT2RQ 030755 030757 0 0 000000030714 0 000000030757 -FT3 030755 030757 0 0 000000030714 0 000000030757 -FT9 030756 030757 0 0 000000030714 0 000000030757 -ET0 030757 030757 0 0 000000030714 0 000000030757 -ST1A 030757 030757 0 0 000000030714 0 000000030757 -ST9 030757 030757 0 0 000000030714 0 000000030757 - - -*030757 MOVE 0,035062 -INITIAL -C(AC)=000000 030714 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 030757 030757 0 0 200000035062 0 0 -IT1 030757 0 0 0 200000035062 0 0 -AT3 030757 0 0 0 000000035062 0 200000035062 -AT6 030757 035062 0 0 000000035062 0 200000035062 -FT0 030757 035062 0 0 0 0 200000035062 -FT1A 030757 035062 0 0 0 0 0 -FT9 030760 035062 0 0 0 0 0 -ET0 030760 035062 0 0 0 0 0 -ST1 030760 035062 0 0 0 0 0 -ST2 030760 035062 0 0 0 0 0 -ST9 030760 035062 0 0 0 0 0 - - -*030760 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 030760 030760 0 0 334000000000 0 0 -IT1 030760 0 0 0 334000000000 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 13 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0229 - -AT3 030760 0 0 0 0 0 334000000000 -AT6 030760 0 0 0 0 0 334000000000 -FT0 030760 0 0 0 0 0 334000000000 -FT1A 030760 0 0 0 0 0 0 -FT9 030761 0 0 0 0 0 0 -ET0 030762 0 0 0 0 0 0 -ST1A 030762 0 0 0 0 0 0 -ST9 030762 0 0 0 0 0 0 - - -*030762 JUMPA 0,030763 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 030762 030762 0 0 324000030763 0 000000030763 -IT1 030762 0 0 0 324000030763 0 000000030763 -AT3 030762 0 0 0 000000030763 0 324000030763 -AT6 030762 030763 0 0 000000030763 0 324000030763 -FT1A 030762 030763 0 0 000000030763 0 000000030763 -FT2 030762 030763 0 0 0 0 000000030763 -FT2RQ 030762 030763 0 0 0 0 000000030763 -FT3 030762 030763 0 0 0 0 000000030763 -FT9 030763 030763 0 0 0 0 000000030763 -ET0 030763 030763 0 0 0 0 000000030763 -ST1A 030763 030763 0 0 0 0 000000030763 -ST9 030763 030763 0 0 0 0 000000030763 - - -*030763 MOVE 0,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 030763 030763 0 0 200000035063 0 777777777777 -IT1 030763 0 0 0 200000035063 0 777777777777 -AT3 030763 0 0 0 000000035063 0 200000035063 -AT6 030763 035063 0 0 000000035063 0 200000035063 -FT0 030763 035063 0 0 777777777777 0 200000035063 -FT1A 030763 035063 0 0 777777777777 0 777777777777 -FT9 030764 035063 0 0 777777777777 0 777777777777 -ET0 030764 035063 0 0 777777777777 0 777777777777 -ST1 030764 035063 0 0 777777777777 0 777777777777 -ST2 030764 035063 0 0 777777777777 0 777777777777 -ST9 030764 035063 0 0 777777777777 0 777777777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 14 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0230 - -*030764 SKIPA 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 030764 030764 0 0 334000000000 0 777777777777 -IT1 030764 0 0 0 334000000000 0 777777777777 -AT3 030764 0 0 0 0 0 334000000000 -AT6 030764 0 0 0 0 0 334000000000 -FT0 030764 0 0 0 777777777777 0 334000000000 -FT1A 030764 0 0 0 777777777777 0 777777777777 -FT9 030765 0 0 0 777777777777 0 777777777777 -ET0 030766 0 0 0 777777777777 0 777777777777 -ST1A 030766 0 0 0 777777777777 0 777777777777 -ST9 030766 0 0 0 777777777777 0 777777777777 - - -*030766 JUMPA 0,030767 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 030766 030766 0 0 324000030767 0 000000030767 -IT1 030766 0 0 0 324000030767 0 000000030767 -AT3 030766 0 0 0 000000030767 0 324000030767 -AT6 030766 030767 0 0 000000030767 0 324000030767 -FT1A 030766 030767 0 0 000000030767 0 000000030767 -FT2 030766 030767 0 0 0 0 000000030767 -FT2RQ 030766 030767 0 0 777777777777 0 000000030767 -FT3 030766 030767 0 0 777777777777 0 000000030767 -FT9 030767 030767 0 0 777777777777 0 000000030767 -ET0 030767 030767 0 0 777777777777 0 000000030767 -ST1A 030767 030767 0 0 777777777777 0 000000030767 -ST9 030767 030767 0 0 777777777777 0 000000030767 - - -*030767 MOVE 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 030767 030767 0 0 200000035062 0 0 -IT1 030767 0 0 0 200000035062 0 0 -AT3 030767 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 15 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0231 - -AT6 030767 035062 0 0 000000035062 0 200000035062 -FT0 030767 035062 0 0 0 0 200000035062 -FT1A 030767 035062 0 0 0 0 0 -FT9 030770 035062 0 0 0 0 0 -ET0 030770 035062 0 0 0 0 0 -ST1 030770 035062 0 0 0 0 0 -ST2 030770 035062 0 0 0 0 0 -ST9 030770 035062 0 0 0 0 0 - - -*030770 SKIPGE 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 030770 030770 0 0 335000000000 0 0 -IT1 030770 0 0 0 335000000000 0 0 -AT3 030770 0 0 0 0 0 335000000000 -AT6 030770 0 0 0 0 0 335000000000 -FT0 030770 0 0 0 0 0 335000000000 -FT1A 030770 0 0 0 0 0 0 -FT9 030771 0 0 0 0 0 0 -ET0 030772 0 0 0 0 0 0 -ST1A 030772 0 0 0 0 0 0 -ST9 030772 0 0 0 0 0 0 - - -*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 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 16 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0232 - -*030773 MOVE 0,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 030773 030773 0 0 200000035063 0 777777777777 -IT1 030773 0 0 0 200000035063 0 777777777777 -AT3 030773 0 0 0 000000035063 0 200000035063 -AT6 030773 035063 0 0 000000035063 0 200000035063 -FT0 030773 035063 0 0 777777777777 0 200000035063 -FT1A 030773 035063 0 0 777777777777 0 777777777777 -FT9 030774 035063 0 0 777777777777 0 777777777777 -ET0 030774 035063 0 0 777777777777 0 777777777777 -ST1 030774 035063 0 0 777777777777 0 777777777777 -ST2 030774 035063 0 0 777777777777 0 777777777777 -ST9 030774 035063 0 0 777777777777 0 777777777777 - - -*030774 SKIP 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 030774 030774 0 0 330000000000 0 777777777777 -IT1 030774 0 0 0 330000000000 0 777777777777 -AT3 030774 0 0 0 0 0 330000000000 -AT6 030774 0 0 0 0 0 330000000000 -FT0 030774 0 0 0 777777777777 0 330000000000 -FT1A 030774 0 0 0 777777777777 0 777777777777 -FT9 030775 0 0 0 777777777777 0 777777777777 -ET0 030775 0 0 0 777777777777 0 777777777777 -ST1A 030775 0 0 0 777777777777 0 777777777777 -ST9 030775 0 0 0 777777777777 0 777777777777 - - -*030775 SKIPA 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 030775 030775 0 0 334000000000 0 777777777777 -IT1 030775 0 0 0 334000000000 0 777777777777 -AT3 030775 0 0 0 0 0 334000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 17 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0233 - -AT6 030775 0 0 0 0 0 334000000000 -FT0 030775 0 0 0 777777777777 0 334000000000 -FT1A 030775 0 0 0 777777777777 0 777777777777 -FT9 030776 0 0 0 777777777777 0 777777777777 -ET0 030777 0 0 0 777777777777 0 777777777777 -ST1A 030777 0 0 0 777777777777 0 777777777777 -ST9 030777 0 0 0 777777777777 0 777777777777 - - -*030777 JUMPA 0,031000 -INITIAL -C(AC)=777777 777777 -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 777777777777 0 000000031000 -FT3 030777 0 0 0 777777777777 0 000000031000 -FT9 0 0 0 0 777777777777 0 000000031000 -ET0 0 0 0 0 777777777777 0 000000031000 -ST1A 0 0 0 0 777777777777 0 000000031000 -ST9 0 0 0 0 777777777777 0 000000031000 - - -*031000 MOVE 0,035063 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 200000035063 0 777777777777 -IT1 0 0 0 0 200000035063 0 777777777777 -AT3 0 0 0 0 000000035063 0 200000035063 -AT6 0 035063 0 0 000000035063 0 200000035063 -FT0 0 035063 0 0 777777777777 0 200000035063 -FT1A 0 035063 0 0 777777777777 0 777777777777 -FT9 031001 035063 0 0 777777777777 0 777777777777 -ET0 031001 035063 0 0 777777777777 0 777777777777 -ST1 031001 035063 0 0 777777777777 0 777777777777 -ST2 031001 035063 0 0 777777777777 0 777777777777 -ST9 031001 035063 0 0 777777777777 0 777777777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 18 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0234 - -*031001 SKIPGE 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031001 031001 0 0 335000000000 0 777777777777 -IT1 031001 0 0 0 335000000000 0 777777777777 -AT3 031001 0 0 0 0 0 335000000000 -AT6 031001 0 0 0 0 0 335000000000 -FT0 031001 0 0 0 777777777777 0 335000000000 -FT1A 031001 0 0 0 777777777777 0 777777777777 -FT9 031002 0 0 0 777777777777 0 777777777777 -ET0 031002 0 0 0 777777777777 0 777777777777 -ST1A 031002 0 0 0 777777777777 0 777777777777 -ST9 031002 0 0 0 777777777777 0 777777777777 - - -*031002 SKIPA 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031002 031002 0 0 334000000000 0 777777777777 -IT1 031002 0 0 0 334000000000 0 777777777777 -AT3 031002 0 0 0 0 0 334000000000 -AT6 031002 0 0 0 0 0 334000000000 -FT0 031002 0 0 0 777777777777 0 334000000000 -FT1A 031002 0 0 0 777777777777 0 777777777777 -FT9 031003 0 0 0 777777777777 0 777777777777 -ET0 031004 0 0 0 777777777777 0 777777777777 -ST1A 031004 0 0 0 777777777777 0 777777777777 -ST9 031004 0 0 0 777777777777 0 777777777777 - - -*031004 JUMPA 0,031005 -INITIAL -C(AC)=777777 777777 -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 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 19 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0235 - -FT2 031004 031005 0 0 0 0 000000031005 -FT2RQ 031004 031005 0 0 777777777777 0 000000031005 -FT3 031004 031005 0 0 777777777777 0 000000031005 -FT9 031005 031005 0 0 777777777777 0 000000031005 -ET0 031005 031005 0 0 777777777777 0 000000031005 -ST1A 031005 031005 0 0 777777777777 0 000000031005 -ST9 031005 031005 0 0 777777777777 0 000000031005 - - -*031005 MOVE 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031005 031005 0 0 200000035062 0 0 -IT1 031005 0 0 0 200000035062 0 0 -AT3 031005 0 0 0 000000035062 0 200000035062 -AT6 031005 035062 0 0 000000035062 0 200000035062 -FT0 031005 035062 0 0 0 0 200000035062 -FT1A 031005 035062 0 0 0 0 0 -FT9 031006 035062 0 0 0 0 0 -ET0 031006 035062 0 0 0 0 0 -ST1 031006 035062 0 0 0 0 0 -ST2 031006 035062 0 0 0 0 0 -ST9 031006 035062 0 0 0 0 0 - - -*031006 SKIPN 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 336000000000 0 0 -IT1 031006 0 0 0 336000000000 0 0 -AT3 031006 0 0 0 0 0 336000000000 -AT6 031006 0 0 0 0 0 336000000000 -FT0 031006 0 0 0 0 0 336000000000 -FT1A 031006 0 0 0 0 0 0 -FT9 031007 0 0 0 0 0 0 -ET0 031007 0 0 0 0 0 0 -ST1A 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 19-JAN-77 PAGE 20 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0236 - -*031007 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 031007 031007 0 0 334000000000 0 0 -IT1 031007 0 0 0 334000000000 0 0 -AT3 031007 0 0 0 0 0 334000000000 -AT6 031007 0 0 0 0 0 334000000000 -FT0 031007 0 0 0 0 0 334000000000 -FT1A 031007 0 0 0 0 0 0 -FT9 031010 0 0 0 0 0 0 -ET0 031011 0 0 0 0 0 0 -ST1A 031011 0 0 0 0 0 0 -ST9 031011 0 0 0 0 0 0 - - -*031011 JUMPA 0,031012 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031011 031011 0 0 324000031012 0 000000031012 -IT1 031011 0 0 0 324000031012 0 000000031012 -AT3 031011 0 0 0 000000031012 0 324000031012 -AT6 031011 031012 0 0 000000031012 0 324000031012 -FT1A 031011 031012 0 0 000000031012 0 000000031012 -FT2 031011 031012 0 0 0 0 000000031012 -FT2RQ 031011 031012 0 0 0 0 000000031012 -FT3 031011 031012 0 0 0 0 000000031012 -FT9 031012 031012 0 0 0 0 000000031012 -ET0 031012 031012 0 0 0 0 000000031012 -ST1A 031012 031012 0 0 0 0 000000031012 -ST9 031012 031012 0 0 0 0 000000031012 - - -*031012 MOVE 0,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031012 031012 0 0 200000035063 0 777777777777 -IT1 031012 0 0 0 200000035063 0 777777777777 -AT3 031012 0 0 0 000000035063 0 200000035063 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 21 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0237 - -AT6 031012 035063 0 0 000000035063 0 200000035063 -FT0 031012 035063 0 0 777777777777 0 200000035063 -FT1A 031012 035063 0 0 777777777777 0 777777777777 -FT9 031013 035063 0 0 777777777777 0 777777777777 -ET0 031013 035063 0 0 777777777777 0 777777777777 -ST1 031013 035063 0 0 777777777777 0 777777777777 -ST2 031013 035063 0 0 777777777777 0 777777777777 -ST9 031013 035063 0 0 777777777777 0 777777777777 - - -*031013 SKIPN 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031013 031013 0 0 336000000000 0 777777777777 -IT1 031013 0 0 0 336000000000 0 777777777777 -AT3 031013 0 0 0 0 0 336000000000 -AT6 031013 0 0 0 0 0 336000000000 -FT0 031013 0 0 0 777777777777 0 336000000000 -FT1A 031013 0 0 0 777777777777 0 777777777777 -FT9 031014 0 0 0 777777777777 0 777777777777 -ET0 031015 0 0 0 777777777777 0 777777777777 -ST1A 031015 0 0 0 777777777777 0 777777777777 -ST9 031015 0 0 0 777777777777 0 777777777777 - - -*031015 JUMPA 0,031016 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031015 031015 0 0 324000031016 0 000000031016 -IT1 031015 0 0 0 324000031016 0 000000031016 -AT3 031015 0 0 0 000000031016 0 324000031016 -AT6 031015 031016 0 0 000000031016 0 324000031016 -FT1A 031015 031016 0 0 000000031016 0 000000031016 -FT2 031015 031016 0 0 0 0 000000031016 -FT2RQ 031015 031016 0 0 777777777777 0 000000031016 -FT3 031015 031016 0 0 777777777777 0 000000031016 -FT9 031016 031016 0 0 777777777777 0 000000031016 -ET0 031016 031016 0 0 777777777777 0 000000031016 -ST1A 031016 031016 0 0 777777777777 0 000000031016 -ST9 031016 031016 0 0 777777777777 0 000000031016 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 22 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0238 - -*031016 MOVE 0,035063 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031016 031016 0 0 200000035063 0 777777777777 -IT1 031016 0 0 0 200000035063 0 777777777777 -AT3 031016 0 0 0 000000035063 0 200000035063 -AT6 031016 035063 0 0 000000035063 0 200000035063 -FT0 031016 035063 0 0 777777777777 0 200000035063 -FT1A 031016 035063 0 0 777777777777 0 777777777777 -FT9 031017 035063 0 0 777777777777 0 777777777777 -ET0 031017 035063 0 0 777777777777 0 777777777777 -ST1 031017 035063 0 0 777777777777 0 777777777777 -ST2 031017 035063 0 0 777777777777 0 777777777777 -ST9 031017 035063 0 0 777777777777 0 777777777777 - - -*031017 SKIPE 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031017 031017 0 0 332000000000 0 777777777777 -IT1 031017 0 0 0 332000000000 0 777777777777 -AT3 031017 0 0 0 0 0 332000000000 -AT6 031017 0 0 0 0 0 332000000000 -FT0 031017 0 0 0 777777777777 0 332000000000 -FT1A 031017 0 0 0 777777777777 0 777777777777 -FT9 031020 0 0 0 777777777777 0 777777777777 -ET0 031020 0 0 0 777777777777 0 777777777777 -ST1A 031020 0 0 0 777777777777 0 777777777777 -ST9 031020 0 0 0 777777777777 0 777777777777 - - -*031020 SKIPA 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031020 031020 0 0 334000000000 0 777777777777 -IT1 031020 0 0 0 334000000000 0 777777777777 -AT3 031020 0 0 0 0 0 334000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 23 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0239 - -AT6 031020 0 0 0 0 0 334000000000 -FT0 031020 0 0 0 777777777777 0 334000000000 -FT1A 031020 0 0 0 777777777777 0 777777777777 -FT9 031021 0 0 0 777777777777 0 777777777777 -ET0 031022 0 0 0 777777777777 0 777777777777 -ST1A 031022 0 0 0 777777777777 0 777777777777 -ST9 031022 0 0 0 777777777777 0 777777777777 - - -*031022 JUMPA 0,031023 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031022 031022 0 0 324000031023 0 000000031023 -IT1 031022 0 0 0 324000031023 0 000000031023 -AT3 031022 0 0 0 000000031023 0 324000031023 -AT6 031022 031023 0 0 000000031023 0 324000031023 -FT1A 031022 031023 0 0 000000031023 0 000000031023 -FT2 031022 031023 0 0 0 0 000000031023 -FT2RQ 031022 031023 0 0 777777777777 0 000000031023 -FT3 031022 031023 0 0 777777777777 0 000000031023 -FT9 031023 031023 0 0 777777777777 0 000000031023 -ET0 031023 031023 0 0 777777777777 0 000000031023 -ST1A 031023 031023 0 0 777777777777 0 000000031023 -ST9 031023 031023 0 0 777777777777 0 000000031023 - - -*031023 MOVE 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031023 031023 0 0 200000035062 0 0 -IT1 031023 0 0 0 200000035062 0 0 -AT3 031023 0 0 0 000000035062 0 200000035062 -AT6 031023 035062 0 0 000000035062 0 200000035062 -FT0 031023 035062 0 0 0 0 200000035062 -FT1A 031023 035062 0 0 0 0 0 -FT9 031024 035062 0 0 0 0 0 -ET0 031024 035062 0 0 0 0 0 -ST1 031024 035062 0 0 0 0 0 -ST2 031024 035062 0 0 0 0 0 -ST9 031024 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 24 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0240 - -*031024 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 031024 031024 0 0 332000000000 0 0 -IT1 031024 0 0 0 332000000000 0 0 -AT3 031024 0 0 0 0 0 332000000000 -AT6 031024 0 0 0 0 0 332000000000 -FT0 031024 0 0 0 0 0 332000000000 -FT1A 031024 0 0 0 0 0 0 -FT9 031025 0 0 0 0 0 0 -ET0 031026 0 0 0 0 0 0 -ST1A 031026 0 0 0 0 0 0 -ST9 031026 0 0 0 0 0 0 - - -*031026 JUMPA 0,031027 -INITIAL -C(AC)=000000 000000 -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 0 0 000000031027 -FT3 031026 031027 0 0 0 0 000000031027 -FT9 031027 031027 0 0 0 0 000000031027 -ET0 031027 031027 0 0 0 0 000000031027 -ST1A 031027 031027 0 0 0 0 000000031027 -ST9 031027 031027 0 0 0 0 000000031027 - - -*031027 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031027 031027 0 0 200000035062 0 0 -IT1 031027 0 0 0 200000035062 0 0 -AT3 031027 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 25 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0241 - -AT6 031027 035062 0 0 000000035062 0 200000035062 -FT0 031027 035062 0 0 0 0 200000035062 -FT1A 031027 035062 0 0 0 0 0 -FT9 031030 035062 0 0 0 0 0 -ET0 031030 035062 0 0 0 0 0 -ST1 031030 035062 0 0 0 0 0 -ST2 031030 035062 0 0 0 0 0 -ST9 031030 035062 0 0 0 0 0 - - -*031030 SKIP 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 031030 031030 0 0 330000000000 0 0 -IT1 031030 0 0 0 330000000000 0 0 -AT3 031030 0 0 0 0 0 330000000000 -AT6 031030 0 0 0 0 0 330000000000 -FT0 031030 0 0 0 0 0 330000000000 -FT1A 031030 0 0 0 0 0 0 -FT9 031031 0 0 0 0 0 0 -ET0 031031 0 0 0 0 0 0 -ST1A 031031 0 0 0 0 0 0 -ST9 031031 0 0 0 0 0 0 - - -*031031 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 031031 031031 0 0 334000000000 0 0 -IT1 031031 0 0 0 334000000000 0 0 -AT3 031031 0 0 0 0 0 334000000000 -AT6 031031 0 0 0 0 0 334000000000 -FT0 031031 0 0 0 0 0 334000000000 -FT1A 031031 0 0 0 0 0 0 -FT9 031032 0 0 0 0 0 0 -ET0 031033 0 0 0 0 0 0 -ST1A 031033 0 0 0 0 0 0 -ST9 031033 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 26 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0242 - -*031033 JUMPA 0,031034 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031033 031033 0 0 324000031034 0 000000031034 -IT1 031033 0 0 0 324000031034 0 000000031034 -AT3 031033 0 0 0 000000031034 0 324000031034 -AT6 031033 031034 0 0 000000031034 0 324000031034 -FT1A 031033 031034 0 0 000000031034 0 000000031034 -FT2 031033 031034 0 0 0 0 000000031034 -FT2RQ 031033 031034 0 0 0 0 000000031034 -FT3 031033 031034 0 0 0 0 000000031034 -FT9 031034 031034 0 0 0 0 000000031034 -ET0 031034 031034 0 0 0 0 000000031034 -ST1A 031034 031034 0 0 0 0 000000031034 -ST9 031034 031034 0 0 0 0 000000031034 - - -*031034 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031034 031034 0 0 200000035062 0 0 -IT1 031034 0 0 0 200000035062 0 0 -AT3 031034 0 0 0 000000035062 0 200000035062 -AT6 031034 035062 0 0 000000035062 0 200000035062 -FT0 031034 035062 0 0 0 0 200000035062 -FT1A 031034 035062 0 0 0 0 0 -FT9 031035 035062 0 0 0 0 0 -ET0 031035 035062 0 0 0 0 0 -ST1 031035 035062 0 0 0 0 0 -ST2 031035 035062 0 0 0 0 0 -ST9 031035 035062 0 0 0 0 0 - - -*031035 SKIPL 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 031035 031035 0 0 331000000000 0 0 -IT1 031035 0 0 0 331000000000 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 27 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0243 - -AT3 031035 0 0 0 0 0 331000000000 -AT6 031035 0 0 0 0 0 331000000000 -FT0 031035 0 0 0 0 0 331000000000 -FT1A 031035 0 0 0 0 0 0 -FT9 031036 0 0 0 0 0 0 -ET0 031036 0 0 0 0 0 0 -ST1A 031036 0 0 0 0 0 0 -ST9 031036 0 0 0 0 0 0 - - -*031036 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 031036 031036 0 0 334000000000 0 0 -IT1 031036 0 0 0 334000000000 0 0 -AT3 031036 0 0 0 0 0 334000000000 -AT6 031036 0 0 0 0 0 334000000000 -FT0 031036 0 0 0 0 0 334000000000 -FT1A 031036 0 0 0 0 0 0 -FT9 031037 0 0 0 0 0 0 -ET0 031040 0 0 0 0 0 0 -ST1A 031040 0 0 0 0 0 0 -ST9 031040 0 0 0 0 0 0 - - -*031040 JUMPA 0,031041 -INITIAL -C(AC)=000000 000000 -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 0 0 000000031041 -FT3 031040 031041 0 0 0 0 000000031041 -FT9 031041 031041 0 0 0 0 000000031041 -ET0 031041 031041 0 0 0 0 000000031041 -ST1A 031041 031041 0 0 0 0 000000031041 -ST9 031041 031041 0 0 0 0 000000031041 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 28 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0244 - -*031041 MOVE 0,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031041 031041 0 0 200000035063 0 777777777777 -IT1 031041 0 0 0 200000035063 0 777777777777 -AT3 031041 0 0 0 000000035063 0 200000035063 -AT6 031041 035063 0 0 000000035063 0 200000035063 -FT0 031041 035063 0 0 777777777777 0 200000035063 -FT1A 031041 035063 0 0 777777777777 0 777777777777 -FT9 031042 035063 0 0 777777777777 0 777777777777 -ET0 031042 035063 0 0 777777777777 0 777777777777 -ST1 031042 035063 0 0 777777777777 0 777777777777 -ST2 031042 035063 0 0 777777777777 0 777777777777 -ST9 031042 035063 0 0 777777777777 0 777777777777 - - -*031042 SKIPL 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031042 031042 0 0 331000000000 0 777777777777 -IT1 031042 0 0 0 331000000000 0 777777777777 -AT3 031042 0 0 0 0 0 331000000000 -AT6 031042 0 0 0 0 0 331000000000 -FT0 031042 0 0 0 777777777777 0 331000000000 -FT1A 031042 0 0 0 777777777777 0 777777777777 -FT9 031043 0 0 0 777777777777 0 777777777777 -ET0 031044 0 0 0 777777777777 0 777777777777 -ST1A 031044 0 0 0 777777777777 0 777777777777 -ST9 031044 0 0 0 777777777777 0 777777777777 - - -*031044 JUMPA 0,031045 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031044 031044 0 0 324000031045 0 000000031045 -IT1 031044 0 0 0 324000031045 0 000000031045 -AT3 031044 0 0 0 000000031045 0 324000031045 -AT6 031044 031045 0 0 000000031045 0 324000031045 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 29 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0245 - -FT1A 031044 031045 0 0 000000031045 0 000000031045 -FT2 031044 031045 0 0 0 0 000000031045 -FT2RQ 031044 031045 0 0 777777777777 0 000000031045 -FT3 031044 031045 0 0 777777777777 0 000000031045 -FT9 031045 031045 0 0 777777777777 0 000000031045 -ET0 031045 031045 0 0 777777777777 0 000000031045 -ST1A 031045 031045 0 0 777777777777 0 000000031045 -ST9 031045 031045 0 0 777777777777 0 000000031045 - - -*031045 MOVE 0,035064 -INITIAL -C(AC)=777777 777777 -C(E)=377777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031045 031045 0 0 200000035064 0 377777777777 -IT1 031045 0 0 0 200000035064 0 377777777777 -AT3 031045 0 0 0 000000035064 0 200000035064 -AT6 031045 035064 0 0 000000035064 0 200000035064 -FT0 031045 035064 0 0 377777777777 0 200000035064 -FT1A 031045 035064 0 0 377777777777 0 377777777777 -FT9 031046 035064 0 0 377777777777 0 377777777777 -ET0 031046 035064 0 0 377777777777 0 377777777777 -ST1 031046 035064 0 0 377777777777 0 377777777777 -ST2 031046 035064 0 0 377777777777 0 377777777777 -ST9 031046 035064 0 0 377777777777 0 377777777777 - - -*031046 SKIPG 0,000000 -INITIAL -C(AC)=377777 777777 -C(E)=377777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031046 031046 0 0 337000000000 0 377777777777 -IT1 031046 0 0 0 337000000000 0 377777777777 -AT3 031046 0 0 0 0 0 337000000000 -AT6 031046 0 0 0 0 0 337000000000 -FT0 031046 0 0 0 377777777777 0 337000000000 -FT1A 031046 0 0 0 377777777777 0 377777777777 -FT9 031047 0 0 0 377777777777 0 377777777777 -ET0 031050 0 0 0 377777777777 0 377777777777 -ST1A 031050 0 0 0 377777777777 0 377777777777 -ST9 031050 0 0 0 377777777777 0 377777777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 30 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0246 - -*031050 JUMPA 0,031051 -INITIAL -C(AC)=377777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031050 031050 0 0 324000031051 0 000000031051 -IT1 031050 0 0 0 324000031051 0 000000031051 -AT3 031050 0 0 0 000000031051 0 324000031051 -AT6 031050 031051 0 0 000000031051 0 324000031051 -FT1A 031050 031051 0 0 000000031051 0 000000031051 -FT2 031050 031051 0 0 0 0 000000031051 -FT2RQ 031050 031051 0 0 377777777777 0 000000031051 -FT3 031050 031051 0 0 377777777777 0 000000031051 -FT9 031051 031051 0 0 377777777777 0 000000031051 -ET0 031051 031051 0 0 377777777777 0 000000031051 -ST1A 031051 031051 0 0 377777777777 0 000000031051 -ST9 031051 031051 0 0 377777777777 0 000000031051 - - -*031051 MOVE 0,035063 -INITIAL -C(AC)=377777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031051 031051 0 0 200000035063 0 777777777777 -IT1 031051 0 0 0 200000035063 0 777777777777 -AT3 031051 0 0 0 000000035063 0 200000035063 -AT6 031051 035063 0 0 000000035063 0 200000035063 -FT0 031051 035063 0 0 777777777777 0 200000035063 -FT1A 031051 035063 0 0 777777777777 0 777777777777 -FT9 031052 035063 0 0 777777777777 0 777777777777 -ET0 031052 035063 0 0 777777777777 0 777777777777 -ST1 031052 035063 0 0 777777777777 0 777777777777 -ST2 031052 035063 0 0 777777777777 0 777777777777 -ST9 031052 035063 0 0 777777777777 0 777777777777 - - -*031052 SKIPG 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031052 031052 0 0 337000000000 0 777777777777 -IT1 031052 0 0 0 337000000000 0 777777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 31 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0247 - -AT3 031052 0 0 0 0 0 337000000000 -AT6 031052 0 0 0 0 0 337000000000 -FT0 031052 0 0 0 777777777777 0 337000000000 -FT1A 031052 0 0 0 777777777777 0 777777777777 -FT9 031053 0 0 0 777777777777 0 777777777777 -ET0 031053 0 0 0 777777777777 0 777777777777 -ST1A 031053 0 0 0 777777777777 0 777777777777 -ST9 031053 0 0 0 777777777777 0 777777777777 - - -*031053 SKIPA 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031053 031053 0 0 334000000000 0 777777777777 -IT1 031053 0 0 0 334000000000 0 777777777777 -AT3 031053 0 0 0 0 0 334000000000 -AT6 031053 0 0 0 0 0 334000000000 -FT0 031053 0 0 0 777777777777 0 334000000000 -FT1A 031053 0 0 0 777777777777 0 777777777777 -FT9 031054 0 0 0 777777777777 0 777777777777 -ET0 031055 0 0 0 777777777777 0 777777777777 -ST1A 031055 0 0 0 777777777777 0 777777777777 -ST9 031055 0 0 0 777777777777 0 777777777777 - - -*031055 JUMPA 0,031056 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031055 031055 0 0 324000031056 0 000000031056 -IT1 031055 0 0 0 324000031056 0 000000031056 -AT3 031055 0 0 0 000000031056 0 324000031056 -AT6 031055 031056 0 0 000000031056 0 324000031056 -FT1A 031055 031056 0 0 000000031056 0 000000031056 -FT2 031055 031056 0 0 0 0 000000031056 -FT2RQ 031055 031056 0 0 777777777777 0 000000031056 -FT3 031055 031056 0 0 777777777777 0 000000031056 -FT9 031056 031056 0 0 777777777777 0 000000031056 -ET0 031056 031056 0 0 777777777777 0 000000031056 -ST1A 031056 031056 0 0 777777777777 0 000000031056 -ST9 031056 031056 0 0 777777777777 0 000000031056 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 32 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0248 - -*031056 MOVE 0,035064 -INITIAL -C(AC)=777777 777777 -C(E)=377777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031056 031056 0 0 200000035064 0 377777777777 -IT1 031056 0 0 0 200000035064 0 377777777777 -AT3 031056 0 0 0 000000035064 0 200000035064 -AT6 031056 035064 0 0 000000035064 0 200000035064 -FT0 031056 035064 0 0 377777777777 0 200000035064 -FT1A 031056 035064 0 0 377777777777 0 377777777777 -FT9 031057 035064 0 0 377777777777 0 377777777777 -ET0 031057 035064 0 0 377777777777 0 377777777777 -ST1 031057 035064 0 0 377777777777 0 377777777777 -ST2 031057 035064 0 0 377777777777 0 377777777777 -ST9 031057 035064 0 0 377777777777 0 377777777777 - - -*031057 SKIPL 0,000000 -INITIAL -C(AC)=377777 777777 -C(E)=377777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031057 031057 0 0 331000000000 0 377777777777 -IT1 031057 0 0 0 331000000000 0 377777777777 -AT3 031057 0 0 0 0 0 331000000000 -AT6 031057 0 0 0 0 0 331000000000 -FT0 031057 0 0 0 377777777777 0 331000000000 -FT1A 031057 0 0 0 377777777777 0 377777777777 -FT9 031060 0 0 0 377777777777 0 377777777777 -ET0 031060 0 0 0 377777777777 0 377777777777 -ST1A 031060 0 0 0 377777777777 0 377777777777 -ST9 031060 0 0 0 377777777777 0 377777777777 - - -*031060 SKIPA 0,000000 -INITIAL -C(AC)=377777 777777 -C(E)=377777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031060 031060 0 0 334000000000 0 377777777777 -IT1 031060 0 0 0 334000000000 0 377777777777 -AT3 031060 0 0 0 0 0 334000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 33 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0249 - -AT6 031060 0 0 0 0 0 334000000000 -FT0 031060 0 0 0 377777777777 0 334000000000 -FT1A 031060 0 0 0 377777777777 0 377777777777 -FT9 031061 0 0 0 377777777777 0 377777777777 -ET0 031062 0 0 0 377777777777 0 377777777777 -ST1A 031062 0 0 0 377777777777 0 377777777777 -ST9 031062 0 0 0 377777777777 0 377777777777 - - -*031062 JUMPA 0,031063 -INITIAL -C(AC)=377777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031062 031062 0 0 324000031063 0 000000031063 -IT1 031062 0 0 0 324000031063 0 000000031063 -AT3 031062 0 0 0 000000031063 0 324000031063 -AT6 031062 031063 0 0 000000031063 0 324000031063 -FT1A 031062 031063 0 0 000000031063 0 000000031063 -FT2 031062 031063 0 0 0 0 000000031063 -FT2RQ 031062 031063 0 0 377777777777 0 000000031063 -FT3 031062 031063 0 0 377777777777 0 000000031063 -FT9 031063 031063 0 0 377777777777 0 000000031063 -ET0 031063 031063 0 0 377777777777 0 000000031063 -ST1A 031063 031063 0 0 377777777777 0 000000031063 -ST9 031063 031063 0 0 377777777777 0 000000031063 - - -*031063 MOVE 0,035062 -INITIAL -C(AC)=377777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031063 031063 0 0 200000035062 0 0 -IT1 031063 0 0 0 200000035062 0 0 -AT3 031063 0 0 0 000000035062 0 200000035062 -AT6 031063 035062 0 0 000000035062 0 200000035062 -FT0 031063 035062 0 0 0 0 200000035062 -FT1A 031063 035062 0 0 0 0 0 -FT9 031064 035062 0 0 0 0 0 -ET0 031064 035062 0 0 0 0 0 -ST1 031064 035062 0 0 0 0 0 -ST2 031064 035062 0 0 0 0 0 -ST9 031064 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 34 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0250 - -*031064 SKIPLE 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 031064 031064 0 0 333000000000 0 0 -IT1 031064 0 0 0 333000000000 0 0 -AT3 031064 0 0 0 0 0 333000000000 -AT6 031064 0 0 0 0 0 333000000000 -FT0 031064 0 0 0 0 0 333000000000 -FT1A 031064 0 0 0 0 0 0 -FT9 031065 0 0 0 0 0 0 -ET0 031066 0 0 0 0 0 0 -ST1A 031066 0 0 0 0 0 0 -ST9 031066 0 0 0 0 0 0 - - -*031066 JUMPA 0,031067 -INITIAL -C(AC)=000000 000000 -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 0 0 000000031067 -FT3 031066 031067 0 0 0 0 000000031067 -FT9 031067 031067 0 0 0 0 000000031067 -ET0 031067 031067 0 0 0 0 000000031067 -ST1A 031067 031067 0 0 0 0 000000031067 -ST9 031067 031067 0 0 0 0 000000031067 - - -*031067 MOVE 0,035065 -INITIAL -C(AC)=000000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031067 031067 0 0 200000035065 0 400000000000 -IT1 031067 0 0 0 200000035065 0 400000000000 -AT3 031067 0 0 0 000000035065 0 200000035065 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 35 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0251 - -AT6 031067 035065 0 0 000000035065 0 200000035065 -FT0 031067 035065 0 0 400000000000 0 200000035065 -FT1A 031067 035065 0 0 400000000000 0 400000000000 -FT9 031070 035065 0 0 400000000000 0 400000000000 -ET0 031070 035065 0 0 400000000000 0 400000000000 -ST1 031070 035065 0 0 400000000000 0 400000000000 -ST2 031070 035065 0 0 400000000000 0 400000000000 -ST9 031070 035065 0 0 400000000000 0 400000000000 - - -*031070 SKIPLE 0,000000 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031070 031070 0 0 333000000000 0 400000000000 -IT1 031070 0 0 0 333000000000 0 400000000000 -AT3 031070 0 0 0 0 0 333000000000 -AT6 031070 0 0 0 0 0 333000000000 -FT0 031070 0 0 0 400000000000 0 333000000000 -FT1A 031070 0 0 0 400000000000 0 400000000000 -FT9 031071 0 0 0 400000000000 0 400000000000 -ET0 031072 0 0 0 400000000000 0 400000000000 -ST1A 031072 0 0 0 400000000000 0 400000000000 -ST9 031072 0 0 0 400000000000 0 400000000000 - - -*031072 JUMPA 0,031073 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031072 031072 0 0 324000031073 0 000000031073 -IT1 031072 0 0 0 324000031073 0 000000031073 -AT3 031072 0 0 0 000000031073 0 324000031073 -AT6 031072 031073 0 0 000000031073 0 324000031073 -FT1A 031072 031073 0 0 000000031073 0 000000031073 -FT2 031072 031073 0 0 0 0 000000031073 -FT2RQ 031072 031073 0 0 400000000000 0 000000031073 -FT3 031072 031073 0 0 400000000000 0 000000031073 -FT9 031073 031073 0 0 400000000000 0 000000031073 -ET0 031073 031073 0 0 400000000000 0 000000031073 -ST1A 031073 031073 0 0 400000000000 0 000000031073 -ST9 031073 031073 0 0 400000000000 0 000000031073 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 36 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0252 - -*031073 MOVE 0,035064 -INITIAL -C(AC)=400000 000000 -C(E)=377777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031073 031073 0 0 200000035064 0 377777777777 -IT1 031073 0 0 0 200000035064 0 377777777777 -AT3 031073 0 0 0 000000035064 0 200000035064 -AT6 031073 035064 0 0 000000035064 0 200000035064 -FT0 031073 035064 0 0 377777777777 0 200000035064 -FT1A 031073 035064 0 0 377777777777 0 377777777777 -FT9 031074 035064 0 0 377777777777 0 377777777777 -ET0 031074 035064 0 0 377777777777 0 377777777777 -ST1 031074 035064 0 0 377777777777 0 377777777777 -ST2 031074 035064 0 0 377777777777 0 377777777777 -ST9 031074 035064 0 0 377777777777 0 377777777777 - - -*031074 SKIPLE 0,000000 -INITIAL -C(AC)=377777 777777 -C(E)=377777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031074 031074 0 0 333000000000 0 377777777777 -IT1 031074 0 0 0 333000000000 0 377777777777 -AT3 031074 0 0 0 0 0 333000000000 -AT6 031074 0 0 0 0 0 333000000000 -FT0 031074 0 0 0 377777777777 0 333000000000 -FT1A 031074 0 0 0 377777777777 0 377777777777 -FT9 031075 0 0 0 377777777777 0 377777777777 -ET0 031075 0 0 0 377777777777 0 377777777777 -ST1A 031075 0 0 0 377777777777 0 377777777777 -ST9 031075 0 0 0 377777777777 0 377777777777 - - -*031075 SKIPA 0,000000 -INITIAL -C(AC)=377777 777777 -C(E)=377777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031075 031075 0 0 334000000000 0 377777777777 -IT1 031075 0 0 0 334000000000 0 377777777777 -AT3 031075 0 0 0 0 0 334000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 37 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0253 - -AT6 031075 0 0 0 0 0 334000000000 -FT0 031075 0 0 0 377777777777 0 334000000000 -FT1A 031075 0 0 0 377777777777 0 377777777777 -FT9 031076 0 0 0 377777777777 0 377777777777 -ET0 031077 0 0 0 377777777777 0 377777777777 -ST1A 031077 0 0 0 377777777777 0 377777777777 -ST9 031077 0 0 0 377777777777 0 377777777777 - - -*031077 JUMPA 0,031100 -INITIAL -C(AC)=377777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031077 031077 0 0 324000031100 0 000000031100 -IT1 031077 0 0 0 324000031100 0 000000031100 -AT3 031077 0 0 0 000000031100 0 324000031100 -AT6 031077 0 0 0 000000031100 0 324000031100 -FT1A 031077 0 0 0 000000031100 0 000000031100 -FT2 031077 0 0 0 0 0 000000031100 -FT2RQ 031077 0 0 0 377777777777 0 000000031100 -FT3 031077 0 0 0 377777777777 0 000000031100 -FT9 0 0 0 0 377777777777 0 000000031100 -ET0 0 0 0 0 377777777777 0 000000031100 -ST1A 0 0 0 0 377777777777 0 000000031100 -ST9 0 0 0 0 377777777777 0 000000031100 - - -*031100 MOVE 0,035066 -INITIAL -C(AC)=377777 777777 -C(E)=777000 000000 -FINAL -C(AC)=777000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 200000035066 0 777000000000 -IT1 0 0 0 0 200000035066 0 777000000000 -AT3 0 0 0 0 000000035066 0 200000035066 -AT6 0 035066 0 0 000000035066 0 200000035066 -FT0 0 035066 0 0 777000000000 0 200000035066 -FT1A 0 035066 0 0 777000000000 0 777000000000 -FT9 031101 035066 0 0 777000000000 0 777000000000 -ET0 031101 035066 0 0 777000000000 0 777000000000 -ST1 031101 035066 0 0 777000000000 0 777000000000 -ST2 031101 035066 0 0 777000000000 0 777000000000 -ST9 031101 035066 0 0 777000000000 0 777000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 38 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0254 - -*031101 SKIPN 0,000000 -INITIAL -C(AC)=777000 000000 -C(E)=777000 000000 -FINAL -C(AC)=777000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031101 031101 0 0 336000000000 0 777000000000 -IT1 031101 0 0 0 336000000000 0 777000000000 -AT3 031101 0 0 0 0 0 336000000000 -AT6 031101 0 0 0 0 0 336000000000 -FT0 031101 0 0 0 777000000000 0 336000000000 -FT1A 031101 0 0 0 777000000000 0 777000000000 -FT9 031102 0 0 0 777000000000 0 777000000000 -ET0 031103 0 0 0 777000000000 0 777000000000 -ST1A 031103 0 0 0 777000000000 0 777000000000 -ST9 031103 0 0 0 777000000000 0 777000000000 - - -*031103 JUMPA 0,031104 -INITIAL -C(AC)=777000 000000 -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 777000000000 0 000000031104 -FT3 031103 031104 0 0 777000000000 0 000000031104 -FT9 031104 031104 0 0 777000000000 0 000000031104 -ET0 031104 031104 0 0 777000000000 0 000000031104 -ST1A 031104 031104 0 0 777000000000 0 000000031104 -ST9 031104 031104 0 0 777000000000 0 000000031104 - - -*031104 MOVE 0,035067 -INITIAL -C(AC)=777000 000000 -C(E)=000377 000000 -FINAL -C(AC)=000377 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031104 031104 0 0 200000035067 0 000377000000 -IT1 031104 0 0 0 200000035067 0 000377000000 -AT3 031104 0 0 0 000000035067 0 200000035067 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 39 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0255 - -AT6 031104 035067 0 0 000000035067 0 200000035067 -FT0 031104 035067 0 0 000377000000 0 200000035067 -FT1A 031104 035067 0 0 000377000000 0 000377000000 -FT9 031105 035067 0 0 000377000000 0 000377000000 -ET0 031105 035067 0 0 000377000000 0 000377000000 -ST1 031105 035067 0 0 000377000000 0 000377000000 -ST2 031105 035067 0 0 000377000000 0 000377000000 -ST9 031105 035067 0 0 000377000000 0 000377000000 - - -*031105 SKIPN 0,000000 -INITIAL -C(AC)=000377 000000 -C(E)=000377 000000 -FINAL -C(AC)=000377 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031105 031105 0 0 336000000000 0 000377000000 -IT1 031105 0 0 0 336000000000 0 000377000000 -AT3 031105 0 0 0 0 0 336000000000 -AT6 031105 0 0 0 0 0 336000000000 -FT0 031105 0 0 0 000377000000 0 336000000000 -FT1A 031105 0 0 0 000377000000 0 000377000000 -FT9 031106 0 0 0 000377000000 0 000377000000 -ET0 031107 0 0 0 000377000000 0 000377000000 -ST1A 031107 0 0 0 000377000000 0 000377000000 -ST9 031107 0 0 0 000377000000 0 000377000000 - - -*031107 JUMPA 0,031110 -INITIAL -C(AC)=000377 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031107 031107 0 0 324000031110 0 000000031110 -IT1 031107 0 0 0 324000031110 0 000000031110 -AT3 031107 0 0 0 000000031110 0 324000031110 -AT6 031107 031110 0 0 000000031110 0 324000031110 -FT1A 031107 031110 0 0 000000031110 0 000000031110 -FT2 031107 031110 0 0 0 0 000000031110 -FT2RQ 031107 031110 0 0 000377000000 0 000000031110 -FT3 031107 031110 0 0 000377000000 0 000000031110 -FT9 031110 031110 0 0 000377000000 0 000000031110 -ET0 031110 031110 0 0 000377000000 0 000000031110 -ST1A 031110 031110 0 0 000377000000 0 000000031110 -ST9 031110 031110 0 0 000377000000 0 000000031110 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 40 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0256 - -*031110 MOVE 0,035070 -INITIAL -C(AC)=000377 000000 -C(E)=000000 177000 -FINAL -C(AC)=000000 177000 - -TIME PC MA SC FE AR MQ BR -IT0 031110 031110 0 0 200000035070 0 000000177000 -IT1 031110 0 0 0 200000035070 0 000000177000 -AT3 031110 0 0 0 000000035070 0 200000035070 -AT6 031110 035070 0 0 000000035070 0 200000035070 -FT0 031110 035070 0 0 000000177000 0 200000035070 -FT1A 031110 035070 0 0 000000177000 0 000000177000 -FT9 031111 035070 0 0 000000177000 0 000000177000 -ET0 031111 035070 0 0 000000177000 0 000000177000 -ST1 031111 035070 0 0 000000177000 0 000000177000 -ST2 031111 035070 0 0 000000177000 0 000000177000 -ST9 031111 035070 0 0 000000177000 0 000000177000 - - -*031111 SKIPN 0,000000 -INITIAL -C(AC)=000000 177000 -C(E)=000000 177000 -FINAL -C(AC)=000000 177000 - -TIME PC MA SC FE AR MQ BR -IT0 031111 031111 0 0 336000000000 0 000000177000 -IT1 031111 0 0 0 336000000000 0 000000177000 -AT3 031111 0 0 0 0 0 336000000000 -AT6 031111 0 0 0 0 0 336000000000 -FT0 031111 0 0 0 000000177000 0 336000000000 -FT1A 031111 0 0 0 000000177000 0 000000177000 -FT9 031112 0 0 0 000000177000 0 000000177000 -ET0 031113 0 0 0 000000177000 0 000000177000 -ST1A 031113 0 0 0 000000177000 0 000000177000 -ST9 031113 0 0 0 000000177000 0 000000177000 - - -*031113 JUMPA 0,031114 -INITIAL -C(AC)=000000 177000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031113 031113 0 0 324000031114 0 000000031114 -IT1 031113 0 0 0 324000031114 0 000000031114 -AT3 031113 0 0 0 000000031114 0 324000031114 -AT6 031113 031114 0 0 000000031114 0 324000031114 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 41 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0257 - -FT1A 031113 031114 0 0 000000031114 0 000000031114 -FT2 031113 031114 0 0 0 0 000000031114 -FT2RQ 031113 031114 0 0 000000177000 0 000000031114 -FT3 031113 031114 0 0 000000177000 0 000000031114 -FT9 031114 031114 0 0 000000177000 0 000000031114 -ET0 031114 031114 0 0 000000177000 0 000000031114 -ST1A 031114 031114 0 0 000000177000 0 000000031114 -ST9 031114 031114 0 0 000000177000 0 000000031114 - - -*031114 MOVE 0,035071 -INITIAL -C(AC)=000000 177000 -C(E)=000000 000777 -FINAL -C(AC)=000000 000777 - -TIME PC MA SC FE AR MQ BR -IT0 031114 031114 0 0 200000035071 0 000000000777 -IT1 031114 0 0 0 200000035071 0 000000000777 -AT3 031114 0 0 0 000000035071 0 200000035071 -AT6 031114 035071 0 0 000000035071 0 200000035071 -FT0 031114 035071 0 0 000000000777 0 200000035071 -FT1A 031114 035071 0 0 000000000777 0 000000000777 -FT9 031115 035071 0 0 000000000777 0 000000000777 -ET0 031115 035071 0 0 000000000777 0 000000000777 -ST1 031115 035071 0 0 000000000777 0 000000000777 -ST2 031115 035071 0 0 000000000777 0 000000000777 -ST9 031115 035071 0 0 000000000777 0 000000000777 - - -*031115 SKIPN 0,000000 -INITIAL -C(AC)=000000 000777 -C(E)=000000 000777 -FINAL -C(AC)=000000 000777 - -TIME PC MA SC FE AR MQ BR -IT0 031115 031115 0 0 336000000000 0 000000000777 -IT1 031115 0 0 0 336000000000 0 000000000777 -AT3 031115 0 0 0 0 0 336000000000 -AT6 031115 0 0 0 0 0 336000000000 -FT0 031115 0 0 0 000000000777 0 336000000000 -FT1A 031115 0 0 0 000000000777 0 000000000777 -FT9 031116 0 0 0 000000000777 0 000000000777 -ET0 031117 0 0 0 000000000777 0 000000000777 -ST1A 031117 0 0 0 000000000777 0 000000000777 -ST9 031117 0 0 0 000000000777 0 000000000777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 42 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0258 - -*031117 JUMPA 0,031120 -INITIAL -C(AC)=000000 000777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031117 031117 0 0 324000031120 0 000000031120 -IT1 031117 0 0 0 324000031120 0 000000031120 -AT3 031117 0 0 0 000000031120 0 324000031120 -AT6 031117 031120 0 0 000000031120 0 324000031120 -FT1A 031117 031120 0 0 000000031120 0 000000031120 -FT2 031117 031120 0 0 0 0 000000031120 -FT2RQ 031117 031120 0 0 000000000777 0 000000031120 -FT3 031117 031120 0 0 000000000777 0 000000031120 -FT9 031120 031120 0 0 000000000777 0 000000031120 -ET0 031120 031120 0 0 000000000777 0 000000031120 -ST1A 031120 031120 0 0 000000000777 0 000000031120 -ST9 031120 031120 0 0 000000000777 0 000000031120 - - -*031120 MOVE 0,035072 -INITIAL -C(AC)=000000 000777 -C(E)=000000 600000 -FINAL -C(AC)=000000 600000 - -TIME PC MA SC FE AR MQ BR -IT0 031120 031120 0 0 200000035072 0 000000600000 -IT1 031120 0 0 0 200000035072 0 000000600000 -AT3 031120 0 0 0 000000035072 0 200000035072 -AT6 031120 035072 0 0 000000035072 0 200000035072 -FT0 031120 035072 0 0 000000600000 0 200000035072 -FT1A 031120 035072 0 0 000000600000 0 000000600000 -FT9 031121 035072 0 0 000000600000 0 000000600000 -ET0 031121 035072 0 0 000000600000 0 000000600000 -ST1 031121 035072 0 0 000000600000 0 000000600000 -ST2 031121 035072 0 0 000000600000 0 000000600000 -ST9 031121 035072 0 0 000000600000 0 000000600000 - - -*031121 SKIPN 0,000000 -INITIAL -C(AC)=000000 600000 -C(E)=000000 600000 -FINAL -C(AC)=000000 600000 - -TIME PC MA SC FE AR MQ BR -IT0 031121 031121 0 0 336000000000 0 000000600000 -IT1 031121 0 0 0 336000000000 0 000000600000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 43 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0259 - -AT3 031121 0 0 0 0 0 336000000000 -AT6 031121 0 0 0 0 0 336000000000 -FT0 031121 0 0 0 000000600000 0 336000000000 -FT1A 031121 0 0 0 000000600000 0 000000600000 -FT9 031122 0 0 0 000000600000 0 000000600000 -ET0 031123 0 0 0 000000600000 0 000000600000 -ST1A 031123 0 0 0 000000600000 0 000000600000 -ST9 031123 0 0 0 000000600000 0 000000600000 - - -*031123 JUMPA 0,031124 -INITIAL -C(AC)=000000 600000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031123 031123 0 0 324000031124 0 000000031124 -IT1 031123 0 0 0 324000031124 0 000000031124 -AT3 031123 0 0 0 000000031124 0 324000031124 -AT6 031123 031124 0 0 000000031124 0 324000031124 -FT1A 031123 031124 0 0 000000031124 0 000000031124 -FT2 031123 031124 0 0 0 0 000000031124 -FT2RQ 031123 031124 0 0 000000600000 0 000000031124 -FT3 031123 031124 0 0 000000600000 0 000000031124 -FT9 031124 031124 0 0 000000600000 0 000000031124 -ET0 031124 031124 0 0 000000600000 0 000000031124 -ST1A 031124 031124 0 0 000000600000 0 000000031124 -ST9 031124 031124 0 0 000000600000 0 000000031124 - - -*031124 MOVE 0,035073 -INITIAL -C(AC)=000000 600000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031124 031124 0 0 200000035073 0 000400000000 -IT1 031124 0 0 0 200000035073 0 000400000000 -AT3 031124 0 0 0 000000035073 0 200000035073 -AT6 031124 035073 0 0 000000035073 0 200000035073 -FT0 031124 035073 0 0 000400000000 0 200000035073 -FT1A 031124 035073 0 0 000400000000 0 000400000000 -FT9 031125 035073 0 0 000400000000 0 000400000000 -ET0 031125 035073 0 0 000400000000 0 000400000000 -ST1 031125 035073 0 0 000400000000 0 000400000000 -ST2 031125 035073 0 0 000400000000 0 000400000000 -ST9 031125 035073 0 0 000400000000 0 000400000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 44 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0260 - -*031125 SKIPN 0,000000 -INITIAL -C(AC)=000400 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031125 031125 0 0 336000000000 0 000400000000 -IT1 031125 0 0 0 336000000000 0 000400000000 -AT3 031125 0 0 0 0 0 336000000000 -AT6 031125 0 0 0 0 0 336000000000 -FT0 031125 0 0 0 000400000000 0 336000000000 -FT1A 031125 0 0 0 000400000000 0 000400000000 -FT9 031126 0 0 0 000400000000 0 000400000000 -ET0 031127 0 0 0 000400000000 0 000400000000 -ST1A 031127 0 0 0 000400000000 0 000400000000 -ST9 031127 0 0 0 000400000000 0 000400000000 - - -*031127 JUMPA 0,031130 -INITIAL -C(AC)=000400 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031127 031127 0 0 324000031130 0 000000031130 -IT1 031127 0 0 0 324000031130 0 000000031130 -AT3 031127 0 0 0 000000031130 0 324000031130 -AT6 031127 031130 0 0 000000031130 0 324000031130 -FT1A 031127 031130 0 0 000000031130 0 000000031130 -FT2 031127 031130 0 0 0 0 000000031130 -FT2RQ 031127 031130 0 0 000400000000 0 000000031130 -FT3 031127 031130 0 0 000400000000 0 000000031130 -FT9 031130 031130 0 0 000400000000 0 000000031130 -ET0 031130 031130 0 0 000400000000 0 000000031130 -ST1A 031130 031130 0 0 000400000000 0 000000031130 -ST9 031130 031130 0 0 000400000000 0 000000031130 - - -*031130 MOVE 0,035074 -INITIAL -C(AC)=000400 000000 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031130 031130 0 0 200000035074 0 000000000001 -IT1 031130 0 0 0 200000035074 0 000000000001 -AT3 031130 0 0 0 000000035074 0 200000035074 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 45 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0261 - -AT6 031130 035074 0 0 000000035074 0 200000035074 -FT0 031130 035074 0 0 000000000001 0 200000035074 -FT1A 031130 035074 0 0 000000000001 0 000000000001 -FT9 031131 035074 0 0 000000000001 0 000000000001 -ET0 031131 035074 0 0 000000000001 0 000000000001 -ST1 031131 035074 0 0 000000000001 0 000000000001 -ST2 031131 035074 0 0 000000000001 0 000000000001 -ST9 031131 035074 0 0 000000000001 0 000000000001 - - -*031131 SKIPN 0,000000 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031131 031131 0 0 336000000000 0 000000000001 -IT1 031131 0 0 0 336000000000 0 000000000001 -AT3 031131 0 0 0 0 0 336000000000 -AT6 031131 0 0 0 0 0 336000000000 -FT0 031131 0 0 0 000000000001 0 336000000000 -FT1A 031131 0 0 0 000000000001 0 000000000001 -FT9 031132 0 0 0 000000000001 0 000000000001 -ET0 031133 0 0 0 000000000001 0 000000000001 -ST1A 031133 0 0 0 000000000001 0 000000000001 -ST9 031133 0 0 0 000000000001 0 000000000001 - - -*031133 JUMPA 0,031134 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031133 031133 0 0 324000031134 0 000000031134 -IT1 031133 0 0 0 324000031134 0 000000031134 -AT3 031133 0 0 0 000000031134 0 324000031134 -AT6 031133 031134 0 0 000000031134 0 324000031134 -FT1A 031133 031134 0 0 000000031134 0 000000031134 -FT2 031133 031134 0 0 0 0 000000031134 -FT2RQ 031133 031134 0 0 000000000001 0 000000031134 -FT3 031133 031134 0 0 000000000001 0 000000031134 -FT9 031134 031134 0 0 000000000001 0 000000031134 -ET0 031134 031134 0 0 000000000001 0 000000031134 -ST1A 031134 031134 0 0 000000000001 0 000000031134 -ST9 031134 031134 0 0 000000000001 0 000000031134 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 46 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0262 - -*031134 MOVE 0,035075 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 031134 031134 0 0 200000035075 0 000000000002 -IT1 031134 0 0 0 200000035075 0 000000000002 -AT3 031134 0 0 0 000000035075 0 200000035075 -AT6 031134 035075 0 0 000000035075 0 200000035075 -FT0 031134 035075 0 0 000000000002 0 200000035075 -FT1A 031134 035075 0 0 000000000002 0 000000000002 -FT9 031135 035075 0 0 000000000002 0 000000000002 -ET0 031135 035075 0 0 000000000002 0 000000000002 -ST1 031135 035075 0 0 000000000002 0 000000000002 -ST2 031135 035075 0 0 000000000002 0 000000000002 -ST9 031135 035075 0 0 000000000002 0 000000000002 - - -*031135 SKIPN 0,000000 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 031135 031135 0 0 336000000000 0 000000000002 -IT1 031135 0 0 0 336000000000 0 000000000002 -AT3 031135 0 0 0 0 0 336000000000 -AT6 031135 0 0 0 0 0 336000000000 -FT0 031135 0 0 0 000000000002 0 336000000000 -FT1A 031135 0 0 0 000000000002 0 000000000002 -FT9 031136 0 0 0 000000000002 0 000000000002 -ET0 031137 0 0 0 000000000002 0 000000000002 -ST1A 031137 0 0 0 000000000002 0 000000000002 -ST9 031137 0 0 0 000000000002 0 000000000002 - - -*031137 JUMPA 0,031140 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031137 031137 0 0 324000031140 0 000000031140 -IT1 031137 0 0 0 324000031140 0 000000031140 -AT3 031137 0 0 0 000000031140 0 324000031140 -AT6 031137 031140 0 0 000000031140 0 324000031140 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 47 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0263 - -FT1A 031137 031140 0 0 000000031140 0 000000031140 -FT2 031137 031140 0 0 0 0 000000031140 -FT2RQ 031137 031140 0 0 000000000002 0 000000031140 -FT3 031137 031140 0 0 000000000002 0 000000031140 -FT9 031140 031140 0 0 000000000002 0 000000031140 -ET0 031140 031140 0 0 000000000002 0 000000031140 -ST1A 031140 031140 0 0 000000000002 0 000000031140 -ST9 031140 031140 0 0 000000000002 0 000000031140 - - -*031140 MOVE 0,035076 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 031140 031140 0 0 200000035076 0 000000000004 -IT1 031140 0 0 0 200000035076 0 000000000004 -AT3 031140 0 0 0 000000035076 0 200000035076 -AT6 031140 035076 0 0 000000035076 0 200000035076 -FT0 031140 035076 0 0 000000000004 0 200000035076 -FT1A 031140 035076 0 0 000000000004 0 000000000004 -FT9 031141 035076 0 0 000000000004 0 000000000004 -ET0 031141 035076 0 0 000000000004 0 000000000004 -ST1 031141 035076 0 0 000000000004 0 000000000004 -ST2 031141 035076 0 0 000000000004 0 000000000004 -ST9 031141 035076 0 0 000000000004 0 000000000004 - - -*031141 SKIPN 0,000000 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 031141 031141 0 0 336000000000 0 000000000004 -IT1 031141 0 0 0 336000000000 0 000000000004 -AT3 031141 0 0 0 0 0 336000000000 -AT6 031141 0 0 0 0 0 336000000000 -FT0 031141 0 0 0 000000000004 0 336000000000 -FT1A 031141 0 0 0 000000000004 0 000000000004 -FT9 031142 0 0 0 000000000004 0 000000000004 -ET0 031143 0 0 0 000000000004 0 000000000004 -ST1A 031143 0 0 0 000000000004 0 000000000004 -ST9 031143 0 0 0 000000000004 0 000000000004 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 48 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0264 - -*031143 JUMPA 0,031144 -INITIAL -C(AC)=000000 000004 -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 000000000004 0 000000031144 -FT3 031143 031144 0 0 000000000004 0 000000031144 -FT9 031144 031144 0 0 000000000004 0 000000031144 -ET0 031144 031144 0 0 000000000004 0 000000031144 -ST1A 031144 031144 0 0 000000000004 0 000000031144 -ST9 031144 031144 0 0 000000000004 0 000000031144 - - -*031144 MOVE 0,035077 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 031144 031144 0 0 200000035077 0 000000000010 -IT1 031144 0 0 0 200000035077 0 000000000010 -AT3 031144 0 0 0 000000035077 0 200000035077 -AT6 031144 035077 0 0 000000035077 0 200000035077 -FT0 031144 035077 0 0 000000000010 0 200000035077 -FT1A 031144 035077 0 0 000000000010 0 000000000010 -FT9 031145 035077 0 0 000000000010 0 000000000010 -ET0 031145 035077 0 0 000000000010 0 000000000010 -ST1 031145 035077 0 0 000000000010 0 000000000010 -ST2 031145 035077 0 0 000000000010 0 000000000010 -ST9 031145 035077 0 0 000000000010 0 000000000010 - - -*031145 SKIPN 0,000000 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 031145 031145 0 0 336000000000 0 000000000010 -IT1 031145 0 0 0 336000000000 0 000000000010 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 49 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0265 - -AT3 031145 0 0 0 0 0 336000000000 -AT6 031145 0 0 0 0 0 336000000000 -FT0 031145 0 0 0 000000000010 0 336000000000 -FT1A 031145 0 0 0 000000000010 0 000000000010 -FT9 031146 0 0 0 000000000010 0 000000000010 -ET0 031147 0 0 0 000000000010 0 000000000010 -ST1A 031147 0 0 0 000000000010 0 000000000010 -ST9 031147 0 0 0 000000000010 0 000000000010 - - -*031147 JUMPA 0,031150 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031147 031147 0 0 324000031150 0 000000031150 -IT1 031147 0 0 0 324000031150 0 000000031150 -AT3 031147 0 0 0 000000031150 0 324000031150 -AT6 031147 031150 0 0 000000031150 0 324000031150 -FT1A 031147 031150 0 0 000000031150 0 000000031150 -FT2 031147 031150 0 0 0 0 000000031150 -FT2RQ 031147 031150 0 0 000000000010 0 000000031150 -FT3 031147 031150 0 0 000000000010 0 000000031150 -FT9 031150 031150 0 0 000000000010 0 000000031150 -ET0 031150 031150 0 0 000000000010 0 000000031150 -ST1A 031150 031150 0 0 000000000010 0 000000031150 -ST9 031150 031150 0 0 000000000010 0 000000031150 - - -*031150 MOVE 0,035100 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000020 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 031150 031150 0 0 200000035100 0 000000000020 -IT1 031150 0 0 0 200000035100 0 000000000020 -AT3 031150 0 0 0 000000035100 0 200000035100 -AT6 031150 0 0 0 000000035100 0 200000035100 -FT0 031150 0 0 0 000000000020 0 200000035100 -FT1A 031150 0 0 0 000000000020 0 000000000020 -FT9 031151 0 0 0 000000000020 0 000000000020 -ET0 031151 0 0 0 000000000020 0 000000000020 -ST1 031151 0 0 0 000000000020 0 000000000020 -ST2 031151 0 0 0 000000000020 0 000000000020 -ST9 031151 0 0 0 000000000020 0 000000000020 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 50 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0266 - -*031151 SKIPN 0,000000 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000020 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 031151 031151 0 0 336000000000 0 000000000020 -IT1 031151 0 0 0 336000000000 0 000000000020 -AT3 031151 0 0 0 0 0 336000000000 -AT6 031151 0 0 0 0 0 336000000000 -FT0 031151 0 0 0 000000000020 0 336000000000 -FT1A 031151 0 0 0 000000000020 0 000000000020 -FT9 031152 0 0 0 000000000020 0 000000000020 -ET0 031153 0 0 0 000000000020 0 000000000020 -ST1A 031153 0 0 0 000000000020 0 000000000020 -ST9 031153 0 0 0 000000000020 0 000000000020 - - -*031153 JUMPA 0,031154 -INITIAL -C(AC)=000000 000020 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031153 031153 0 0 324000031154 0 000000031154 -IT1 031153 0 0 0 324000031154 0 000000031154 -AT3 031153 0 0 0 000000031154 0 324000031154 -AT6 031153 031154 0 0 000000031154 0 324000031154 -FT1A 031153 031154 0 0 000000031154 0 000000031154 -FT2 031153 031154 0 0 0 0 000000031154 -FT2RQ 031153 031154 0 0 000000000020 0 000000031154 -FT3 031153 031154 0 0 000000000020 0 000000031154 -FT9 031154 031154 0 0 000000000020 0 000000031154 -ET0 031154 031154 0 0 000000000020 0 000000031154 -ST1A 031154 031154 0 0 000000000020 0 000000031154 -ST9 031154 031154 0 0 000000000020 0 000000031154 - - -*031154 MOVE 0,035101 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000040 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 031154 031154 0 0 200000035101 0 000000000040 -IT1 031154 0 0 0 200000035101 0 000000000040 -AT3 031154 0 0 0 000000035101 0 200000035101 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 51 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0267 - -AT6 031154 035101 0 0 000000035101 0 200000035101 -FT0 031154 035101 0 0 000000000040 0 200000035101 -FT1A 031154 035101 0 0 000000000040 0 000000000040 -FT9 031155 035101 0 0 000000000040 0 000000000040 -ET0 031155 035101 0 0 000000000040 0 000000000040 -ST1 031155 035101 0 0 000000000040 0 000000000040 -ST2 031155 035101 0 0 000000000040 0 000000000040 -ST9 031155 035101 0 0 000000000040 0 000000000040 - - -*031155 SKIPN 0,000000 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000040 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 031155 031155 0 0 336000000000 0 000000000040 -IT1 031155 0 0 0 336000000000 0 000000000040 -AT3 031155 0 0 0 0 0 336000000000 -AT6 031155 0 0 0 0 0 336000000000 -FT0 031155 0 0 0 000000000040 0 336000000000 -FT1A 031155 0 0 0 000000000040 0 000000000040 -FT9 031156 0 0 0 000000000040 0 000000000040 -ET0 031157 0 0 0 000000000040 0 000000000040 -ST1A 031157 0 0 0 000000000040 0 000000000040 -ST9 031157 0 0 0 000000000040 0 000000000040 - - -*031157 JUMPA 0,031160 -INITIAL -C(AC)=000000 000040 -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 -FT2 031157 031160 0 0 0 0 000000031160 -FT2RQ 031157 031160 0 0 000000000040 0 000000031160 -FT3 031157 031160 0 0 000000000040 0 000000031160 -FT9 031160 031160 0 0 000000000040 0 000000031160 -ET0 031160 031160 0 0 000000000040 0 000000031160 -ST1A 031160 031160 0 0 000000000040 0 000000031160 -ST9 031160 031160 0 0 000000000040 0 000000031160 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 52 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0268 - -*031160 MOVE 0,035102 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000100 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 031160 031160 0 0 200000035102 0 000000000100 -IT1 031160 0 0 0 200000035102 0 000000000100 -AT3 031160 0 0 0 000000035102 0 200000035102 -AT6 031160 035102 0 0 000000035102 0 200000035102 -FT0 031160 035102 0 0 000000000100 0 200000035102 -FT1A 031160 035102 0 0 000000000100 0 000000000100 -FT9 031161 035102 0 0 000000000100 0 000000000100 -ET0 031161 035102 0 0 000000000100 0 000000000100 -ST1 031161 035102 0 0 000000000100 0 000000000100 -ST2 031161 035102 0 0 000000000100 0 000000000100 -ST9 031161 035102 0 0 000000000100 0 000000000100 - - -*031161 SKIPN 0,000000 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000100 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 031161 031161 0 0 336000000000 0 000000000100 -IT1 031161 0 0 0 336000000000 0 000000000100 -AT3 031161 0 0 0 0 0 336000000000 -AT6 031161 0 0 0 0 0 336000000000 -FT0 031161 0 0 0 000000000100 0 336000000000 -FT1A 031161 0 0 0 000000000100 0 000000000100 -FT9 031162 0 0 0 000000000100 0 000000000100 -ET0 031163 0 0 0 000000000100 0 000000000100 -ST1A 031163 0 0 0 000000000100 0 000000000100 -ST9 031163 0 0 0 000000000100 0 000000000100 - - -*031163 JUMPA 0,031164 -INITIAL -C(AC)=000000 000100 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031163 031163 0 0 324000031164 0 000000031164 -IT1 031163 0 0 0 324000031164 0 000000031164 -AT3 031163 0 0 0 000000031164 0 324000031164 -AT6 031163 031164 0 0 000000031164 0 324000031164 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 53 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0269 - -FT1A 031163 031164 0 0 000000031164 0 000000031164 -FT2 031163 031164 0 0 0 0 000000031164 -FT2RQ 031163 031164 0 0 000000000100 0 000000031164 -FT3 031163 031164 0 0 000000000100 0 000000031164 -FT9 031164 031164 0 0 000000000100 0 000000031164 -ET0 031164 031164 0 0 000000000100 0 000000031164 -ST1A 031164 031164 0 0 000000000100 0 000000031164 -ST9 031164 031164 0 0 000000000100 0 000000031164 - - -*031164 MOVE 0,035103 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000200 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 031164 031164 0 0 200000035103 0 000000000200 -IT1 031164 0 0 0 200000035103 0 000000000200 -AT3 031164 0 0 0 000000035103 0 200000035103 -AT6 031164 035103 0 0 000000035103 0 200000035103 -FT0 031164 035103 0 0 000000000200 0 200000035103 -FT1A 031164 035103 0 0 000000000200 0 000000000200 -FT9 031165 035103 0 0 000000000200 0 000000000200 -ET0 031165 035103 0 0 000000000200 0 000000000200 -ST1 031165 035103 0 0 000000000200 0 000000000200 -ST2 031165 035103 0 0 000000000200 0 000000000200 -ST9 031165 035103 0 0 000000000200 0 000000000200 - - -*031165 SKIPN 0,000000 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000200 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 031165 031165 0 0 336000000000 0 000000000200 -IT1 031165 0 0 0 336000000000 0 000000000200 -AT3 031165 0 0 0 0 0 336000000000 -AT6 031165 0 0 0 0 0 336000000000 -FT0 031165 0 0 0 000000000200 0 336000000000 -FT1A 031165 0 0 0 000000000200 0 000000000200 -FT9 031166 0 0 0 000000000200 0 000000000200 -ET0 031167 0 0 0 000000000200 0 000000000200 -ST1A 031167 0 0 0 000000000200 0 000000000200 -ST9 031167 0 0 0 000000000200 0 000000000200 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 54 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0270 - -*031167 JUMPA 0,031170 -INITIAL -C(AC)=000000 000200 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031167 031167 0 0 324000031170 0 000000031170 -IT1 031167 0 0 0 324000031170 0 000000031170 -AT3 031167 0 0 0 000000031170 0 324000031170 -AT6 031167 031170 0 0 000000031170 0 324000031170 -FT1A 031167 031170 0 0 000000031170 0 000000031170 -FT2 031167 031170 0 0 0 0 000000031170 -FT2RQ 031167 031170 0 0 000000000200 0 000000031170 -FT3 031167 031170 0 0 000000000200 0 000000031170 -FT9 031170 031170 0 0 000000000200 0 000000031170 -ET0 031170 031170 0 0 000000000200 0 000000031170 -ST1A 031170 031170 0 0 000000000200 0 000000031170 -ST9 031170 031170 0 0 000000000200 0 000000031170 - - -*031170 MOVE 0,035104 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000400 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 031170 031170 0 0 200000035104 0 000000000400 -IT1 031170 0 0 0 200000035104 0 000000000400 -AT3 031170 0 0 0 000000035104 0 200000035104 -AT6 031170 035104 0 0 000000035104 0 200000035104 -FT0 031170 035104 0 0 000000000400 0 200000035104 -FT1A 031170 035104 0 0 000000000400 0 000000000400 -FT9 031171 035104 0 0 000000000400 0 000000000400 -ET0 031171 035104 0 0 000000000400 0 000000000400 -ST1 031171 035104 0 0 000000000400 0 000000000400 -ST2 031171 035104 0 0 000000000400 0 000000000400 -ST9 031171 035104 0 0 000000000400 0 000000000400 - - -*031171 SKIPN 0,000000 -INITIAL -C(AC)=000000 000400 -C(E)=000000 000400 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 031171 031171 0 0 336000000000 0 000000000400 -IT1 031171 0 0 0 336000000000 0 000000000400 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 55 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0271 - -AT3 031171 0 0 0 0 0 336000000000 -AT6 031171 0 0 0 0 0 336000000000 -FT0 031171 0 0 0 000000000400 0 336000000000 -FT1A 031171 0 0 0 000000000400 0 000000000400 -FT9 031172 0 0 0 000000000400 0 000000000400 -ET0 031173 0 0 0 000000000400 0 000000000400 -ST1A 031173 0 0 0 000000000400 0 000000000400 -ST9 031173 0 0 0 000000000400 0 000000000400 - - -*031173 JUMPA 0,031174 -INITIAL -C(AC)=000000 000400 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031173 031173 0 0 324000031174 0 000000031174 -IT1 031173 0 0 0 324000031174 0 000000031174 -AT3 031173 0 0 0 000000031174 0 324000031174 -AT6 031173 031174 0 0 000000031174 0 324000031174 -FT1A 031173 031174 0 0 000000031174 0 000000031174 -FT2 031173 031174 0 0 0 0 000000031174 -FT2RQ 031173 031174 0 0 000000000400 0 000000031174 -FT3 031173 031174 0 0 000000000400 0 000000031174 -FT9 031174 031174 0 0 000000000400 0 000000031174 -ET0 031174 031174 0 0 000000000400 0 000000031174 -ST1A 031174 031174 0 0 000000000400 0 000000031174 -ST9 031174 031174 0 0 000000000400 0 000000031174 - - -*031174 MOVE 0,035105 -INITIAL -C(AC)=000000 000400 -C(E)=000000 001000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 031174 031174 0 0 200000035105 0 000000001000 -IT1 031174 0 0 0 200000035105 0 000000001000 -AT3 031174 0 0 0 000000035105 0 200000035105 -AT6 031174 035105 0 0 000000035105 0 200000035105 -FT0 031174 035105 0 0 000000001000 0 200000035105 -FT1A 031174 035105 0 0 000000001000 0 000000001000 -FT9 031175 035105 0 0 000000001000 0 000000001000 -ET0 031175 035105 0 0 000000001000 0 000000001000 -ST1 031175 035105 0 0 000000001000 0 000000001000 -ST2 031175 035105 0 0 000000001000 0 000000001000 -ST9 031175 035105 0 0 000000001000 0 000000001000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 56 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0272 - -*031175 SKIPN 0,000000 -INITIAL -C(AC)=000000 001000 -C(E)=000000 001000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 031175 031175 0 0 336000000000 0 000000001000 -IT1 031175 0 0 0 336000000000 0 000000001000 -AT3 031175 0 0 0 0 0 336000000000 -AT6 031175 0 0 0 0 0 336000000000 -FT0 031175 0 0 0 000000001000 0 336000000000 -FT1A 031175 0 0 0 000000001000 0 000000001000 -FT9 031176 0 0 0 000000001000 0 000000001000 -ET0 031177 0 0 0 000000001000 0 000000001000 -ST1A 031177 0 0 0 000000001000 0 000000001000 -ST9 031177 0 0 0 000000001000 0 000000001000 - - -*031177 JUMPA 0,031200 -INITIAL -C(AC)=000000 001000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031177 031177 0 0 324000031200 0 000000031200 -IT1 031177 0 0 0 324000031200 0 000000031200 -AT3 031177 0 0 0 000000031200 0 324000031200 -AT6 031177 0 0 0 000000031200 0 324000031200 -FT1A 031177 0 0 0 000000031200 0 000000031200 -FT2 031177 0 0 0 0 0 000000031200 -FT2RQ 031177 0 0 0 000000001000 0 000000031200 -FT3 031177 0 0 0 000000001000 0 000000031200 -FT9 0 0 0 0 000000001000 0 000000031200 -ET0 0 0 0 0 000000001000 0 000000031200 -ST1A 0 0 0 0 000000001000 0 000000031200 -ST9 0 0 0 0 000000001000 0 000000031200 - - -*031200 MOVE 0,035106 -INITIAL -C(AC)=000000 001000 -C(E)=000000 002000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 200000035106 0 000000002000 -IT1 0 0 0 0 200000035106 0 000000002000 -AT3 0 0 0 0 000000035106 0 200000035106 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 57 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0273 - -AT6 0 035106 0 0 000000035106 0 200000035106 -FT0 0 035106 0 0 000000002000 0 200000035106 -FT1A 0 035106 0 0 000000002000 0 000000002000 -FT9 031201 035106 0 0 000000002000 0 000000002000 -ET0 031201 035106 0 0 000000002000 0 000000002000 -ST1 031201 035106 0 0 000000002000 0 000000002000 -ST2 031201 035106 0 0 000000002000 0 000000002000 -ST9 031201 035106 0 0 000000002000 0 000000002000 - - -*031201 SKIPN 0,000000 -INITIAL -C(AC)=000000 002000 -C(E)=000000 002000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 031201 031201 0 0 336000000000 0 000000002000 -IT1 031201 0 0 0 336000000000 0 000000002000 -AT3 031201 0 0 0 0 0 336000000000 -AT6 031201 0 0 0 0 0 336000000000 -FT0 031201 0 0 0 000000002000 0 336000000000 -FT1A 031201 0 0 0 000000002000 0 000000002000 -FT9 031202 0 0 0 000000002000 0 000000002000 -ET0 031203 0 0 0 000000002000 0 000000002000 -ST1A 031203 0 0 0 000000002000 0 000000002000 -ST9 031203 0 0 0 000000002000 0 000000002000 - - -*031203 JUMPA 0,031204 -INITIAL -C(AC)=000000 002000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031203 031203 0 0 324000031204 0 000000031204 -IT1 031203 0 0 0 324000031204 0 000000031204 -AT3 031203 0 0 0 000000031204 0 324000031204 -AT6 031203 031204 0 0 000000031204 0 324000031204 -FT1A 031203 031204 0 0 000000031204 0 000000031204 -FT2 031203 031204 0 0 0 0 000000031204 -FT2RQ 031203 031204 0 0 000000002000 0 000000031204 -FT3 031203 031204 0 0 000000002000 0 000000031204 -FT9 031204 031204 0 0 000000002000 0 000000031204 -ET0 031204 031204 0 0 000000002000 0 000000031204 -ST1A 031204 031204 0 0 000000002000 0 000000031204 -ST9 031204 031204 0 0 000000002000 0 000000031204 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 58 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0274 - -*031204 MOVE 0,035107 -INITIAL -C(AC)=000000 002000 -C(E)=000000 004000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 031204 031204 0 0 200000035107 0 000000004000 -IT1 031204 0 0 0 200000035107 0 000000004000 -AT3 031204 0 0 0 000000035107 0 200000035107 -AT6 031204 035107 0 0 000000035107 0 200000035107 -FT0 031204 035107 0 0 000000004000 0 200000035107 -FT1A 031204 035107 0 0 000000004000 0 000000004000 -FT9 031205 035107 0 0 000000004000 0 000000004000 -ET0 031205 035107 0 0 000000004000 0 000000004000 -ST1 031205 035107 0 0 000000004000 0 000000004000 -ST2 031205 035107 0 0 000000004000 0 000000004000 -ST9 031205 035107 0 0 000000004000 0 000000004000 - - -*031205 SKIPN 0,000000 -INITIAL -C(AC)=000000 004000 -C(E)=000000 004000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 031205 031205 0 0 336000000000 0 000000004000 -IT1 031205 0 0 0 336000000000 0 000000004000 -AT3 031205 0 0 0 0 0 336000000000 -AT6 031205 0 0 0 0 0 336000000000 -FT0 031205 0 0 0 000000004000 0 336000000000 -FT1A 031205 0 0 0 000000004000 0 000000004000 -FT9 031206 0 0 0 000000004000 0 000000004000 -ET0 031207 0 0 0 000000004000 0 000000004000 -ST1A 031207 0 0 0 000000004000 0 000000004000 -ST9 031207 0 0 0 000000004000 0 000000004000 - - -*031207 JUMPA 0,031210 -INITIAL -C(AC)=000000 004000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031207 031207 0 0 324000031210 0 000000031210 -IT1 031207 0 0 0 324000031210 0 000000031210 -AT3 031207 0 0 0 000000031210 0 324000031210 -AT6 031207 031210 0 0 000000031210 0 324000031210 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 59 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0275 - -FT1A 031207 031210 0 0 000000031210 0 000000031210 -FT2 031207 031210 0 0 0 0 000000031210 -FT2RQ 031207 031210 0 0 000000004000 0 000000031210 -FT3 031207 031210 0 0 000000004000 0 000000031210 -FT9 031210 031210 0 0 000000004000 0 000000031210 -ET0 031210 031210 0 0 000000004000 0 000000031210 -ST1A 031210 031210 0 0 000000004000 0 000000031210 -ST9 031210 031210 0 0 000000004000 0 000000031210 - - -*031210 MOVE 0,035110 -INITIAL -C(AC)=000000 004000 -C(E)=000000 010000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 031210 031210 0 0 200000035110 0 000000010000 -IT1 031210 0 0 0 200000035110 0 000000010000 -AT3 031210 0 0 0 000000035110 0 200000035110 -AT6 031210 035110 0 0 000000035110 0 200000035110 -FT0 031210 035110 0 0 000000010000 0 200000035110 -FT1A 031210 035110 0 0 000000010000 0 000000010000 -FT9 031211 035110 0 0 000000010000 0 000000010000 -ET0 031211 035110 0 0 000000010000 0 000000010000 -ST1 031211 035110 0 0 000000010000 0 000000010000 -ST2 031211 035110 0 0 000000010000 0 000000010000 -ST9 031211 035110 0 0 000000010000 0 000000010000 - - -*031211 SKIPN 0,000000 -INITIAL -C(AC)=000000 010000 -C(E)=000000 010000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 031211 031211 0 0 336000000000 0 000000010000 -IT1 031211 0 0 0 336000000000 0 000000010000 -AT3 031211 0 0 0 0 0 336000000000 -AT6 031211 0 0 0 0 0 336000000000 -FT0 031211 0 0 0 000000010000 0 336000000000 -FT1A 031211 0 0 0 000000010000 0 000000010000 -FT9 031212 0 0 0 000000010000 0 000000010000 -ET0 031213 0 0 0 000000010000 0 000000010000 -ST1A 031213 0 0 0 000000010000 0 000000010000 -ST9 031213 0 0 0 000000010000 0 000000010000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 60 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0276 - -*031213 JUMPA 0,031214 -INITIAL -C(AC)=000000 010000 -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 000000010000 0 000000031214 -FT3 031213 031214 0 0 000000010000 0 000000031214 -FT9 031214 031214 0 0 000000010000 0 000000031214 -ET0 031214 031214 0 0 000000010000 0 000000031214 -ST1A 031214 031214 0 0 000000010000 0 000000031214 -ST9 031214 031214 0 0 000000010000 0 000000031214 - - -*031214 MOVE 0,035111 -INITIAL -C(AC)=000000 010000 -C(E)=000000 020000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 031214 031214 0 0 200000035111 0 000000020000 -IT1 031214 0 0 0 200000035111 0 000000020000 -AT3 031214 0 0 0 000000035111 0 200000035111 -AT6 031214 035111 0 0 000000035111 0 200000035111 -FT0 031214 035111 0 0 000000020000 0 200000035111 -FT1A 031214 035111 0 0 000000020000 0 000000020000 -FT9 031215 035111 0 0 000000020000 0 000000020000 -ET0 031215 035111 0 0 000000020000 0 000000020000 -ST1 031215 035111 0 0 000000020000 0 000000020000 -ST2 031215 035111 0 0 000000020000 0 000000020000 -ST9 031215 035111 0 0 000000020000 0 000000020000 - - -*031215 SKIPN 0,000000 -INITIAL -C(AC)=000000 020000 -C(E)=000000 020000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 031215 031215 0 0 336000000000 0 000000020000 -IT1 031215 0 0 0 336000000000 0 000000020000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 61 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0277 - -AT3 031215 0 0 0 0 0 336000000000 -AT6 031215 0 0 0 0 0 336000000000 -FT0 031215 0 0 0 000000020000 0 336000000000 -FT1A 031215 0 0 0 000000020000 0 000000020000 -FT9 031216 0 0 0 000000020000 0 000000020000 -ET0 031217 0 0 0 000000020000 0 000000020000 -ST1A 031217 0 0 0 000000020000 0 000000020000 -ST9 031217 0 0 0 000000020000 0 000000020000 - - -*031217 JUMPA 0,031220 -INITIAL -C(AC)=000000 020000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031217 031217 0 0 324000031220 0 000000031220 -IT1 031217 0 0 0 324000031220 0 000000031220 -AT3 031217 0 0 0 000000031220 0 324000031220 -AT6 031217 031220 0 0 000000031220 0 324000031220 -FT1A 031217 031220 0 0 000000031220 0 000000031220 -FT2 031217 031220 0 0 0 0 000000031220 -FT2RQ 031217 031220 0 0 000000020000 0 000000031220 -FT3 031217 031220 0 0 000000020000 0 000000031220 -FT9 031220 031220 0 0 000000020000 0 000000031220 -ET0 031220 031220 0 0 000000020000 0 000000031220 -ST1A 031220 031220 0 0 000000020000 0 000000031220 -ST9 031220 031220 0 0 000000020000 0 000000031220 - - -*031220 MOVE 0,035112 -INITIAL -C(AC)=000000 020000 -C(E)=000000 040000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 031220 031220 0 0 200000035112 0 000000040000 -IT1 031220 0 0 0 200000035112 0 000000040000 -AT3 031220 0 0 0 000000035112 0 200000035112 -AT6 031220 035112 0 0 000000035112 0 200000035112 -FT0 031220 035112 0 0 000000040000 0 200000035112 -FT1A 031220 035112 0 0 000000040000 0 000000040000 -FT9 031221 035112 0 0 000000040000 0 000000040000 -ET0 031221 035112 0 0 000000040000 0 000000040000 -ST1 031221 035112 0 0 000000040000 0 000000040000 -ST2 031221 035112 0 0 000000040000 0 000000040000 -ST9 031221 035112 0 0 000000040000 0 000000040000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 62 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0278 - -*031221 SKIPN 0,000000 -INITIAL -C(AC)=000000 040000 -C(E)=000000 040000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 031221 031221 0 0 336000000000 0 000000040000 -IT1 031221 0 0 0 336000000000 0 000000040000 -AT3 031221 0 0 0 0 0 336000000000 -AT6 031221 0 0 0 0 0 336000000000 -FT0 031221 0 0 0 000000040000 0 336000000000 -FT1A 031221 0 0 0 000000040000 0 000000040000 -FT9 031222 0 0 0 000000040000 0 000000040000 -ET0 031223 0 0 0 000000040000 0 000000040000 -ST1A 031223 0 0 0 000000040000 0 000000040000 -ST9 031223 0 0 0 000000040000 0 000000040000 - - -*031223 JUMPA 0,031224 -INITIAL -C(AC)=000000 040000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031223 031223 0 0 324000031224 0 000000031224 -IT1 031223 0 0 0 324000031224 0 000000031224 -AT3 031223 0 0 0 000000031224 0 324000031224 -AT6 031223 031224 0 0 000000031224 0 324000031224 -FT1A 031223 031224 0 0 000000031224 0 000000031224 -FT2 031223 031224 0 0 0 0 000000031224 -FT2RQ 031223 031224 0 0 000000040000 0 000000031224 -FT3 031223 031224 0 0 000000040000 0 000000031224 -FT9 031224 031224 0 0 000000040000 0 000000031224 -ET0 031224 031224 0 0 000000040000 0 000000031224 -ST1A 031224 031224 0 0 000000040000 0 000000031224 -ST9 031224 031224 0 0 000000040000 0 000000031224 - - -*031224 MOVE 0,035113 -INITIAL -C(AC)=000000 040000 -C(E)=000000 100000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 031224 031224 0 0 200000035113 0 000000100000 -IT1 031224 0 0 0 200000035113 0 000000100000 -AT3 031224 0 0 0 000000035113 0 200000035113 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 63 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0279 - -AT6 031224 035113 0 0 000000035113 0 200000035113 -FT0 031224 035113 0 0 000000100000 0 200000035113 -FT1A 031224 035113 0 0 000000100000 0 000000100000 -FT9 031225 035113 0 0 000000100000 0 000000100000 -ET0 031225 035113 0 0 000000100000 0 000000100000 -ST1 031225 035113 0 0 000000100000 0 000000100000 -ST2 031225 035113 0 0 000000100000 0 000000100000 -ST9 031225 035113 0 0 000000100000 0 000000100000 - - -*031225 SKIPN 0,000000 -INITIAL -C(AC)=000000 100000 -C(E)=000000 100000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 031225 031225 0 0 336000000000 0 000000100000 -IT1 031225 0 0 0 336000000000 0 000000100000 -AT3 031225 0 0 0 0 0 336000000000 -AT6 031225 0 0 0 0 0 336000000000 -FT0 031225 0 0 0 000000100000 0 336000000000 -FT1A 031225 0 0 0 000000100000 0 000000100000 -FT9 031226 0 0 0 000000100000 0 000000100000 -ET0 031227 0 0 0 000000100000 0 000000100000 -ST1A 031227 0 0 0 000000100000 0 000000100000 -ST9 031227 0 0 0 000000100000 0 000000100000 - - -*031227 JUMPA 0,031230 -INITIAL -C(AC)=000000 100000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031227 031227 0 0 324000031230 0 000000031230 -IT1 031227 0 0 0 324000031230 0 000000031230 -AT3 031227 0 0 0 000000031230 0 324000031230 -AT6 031227 031230 0 0 000000031230 0 324000031230 -FT1A 031227 031230 0 0 000000031230 0 000000031230 -FT2 031227 031230 0 0 0 0 000000031230 -FT2RQ 031227 031230 0 0 000000100000 0 000000031230 -FT3 031227 031230 0 0 000000100000 0 000000031230 -FT9 031230 031230 0 0 000000100000 0 000000031230 -ET0 031230 031230 0 0 000000100000 0 000000031230 -ST1A 031230 031230 0 0 000000100000 0 000000031230 -ST9 031230 031230 0 0 000000100000 0 000000031230 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 64 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0280 - -*031230 MOVE 0,035114 -INITIAL -C(AC)=000000 100000 -C(E)=000000 200000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 031230 031230 0 0 200000035114 0 000000200000 -IT1 031230 0 0 0 200000035114 0 000000200000 -AT3 031230 0 0 0 000000035114 0 200000035114 -AT6 031230 035114 0 0 000000035114 0 200000035114 -FT0 031230 035114 0 0 000000200000 0 200000035114 -FT1A 031230 035114 0 0 000000200000 0 000000200000 -FT9 031231 035114 0 0 000000200000 0 000000200000 -ET0 031231 035114 0 0 000000200000 0 000000200000 -ST1 031231 035114 0 0 000000200000 0 000000200000 -ST2 031231 035114 0 0 000000200000 0 000000200000 -ST9 031231 035114 0 0 000000200000 0 000000200000 - - -*031231 SKIPN 0,000000 -INITIAL -C(AC)=000000 200000 -C(E)=000000 200000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 031231 031231 0 0 336000000000 0 000000200000 -IT1 031231 0 0 0 336000000000 0 000000200000 -AT3 031231 0 0 0 0 0 336000000000 -AT6 031231 0 0 0 0 0 336000000000 -FT0 031231 0 0 0 000000200000 0 336000000000 -FT1A 031231 0 0 0 000000200000 0 000000200000 -FT9 031232 0 0 0 000000200000 0 000000200000 -ET0 031233 0 0 0 000000200000 0 000000200000 -ST1A 031233 0 0 0 000000200000 0 000000200000 -ST9 031233 0 0 0 000000200000 0 000000200000 - - -*031233 JUMPA 0,031234 -INITIAL -C(AC)=000000 200000 -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 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 65 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0281 - -FT1A 031233 031234 0 0 000000031234 0 000000031234 -FT2 031233 031234 0 0 0 0 000000031234 -FT2RQ 031233 031234 0 0 000000200000 0 000000031234 -FT3 031233 031234 0 0 000000200000 0 000000031234 -FT9 031234 031234 0 0 000000200000 0 000000031234 -ET0 031234 031234 0 0 000000200000 0 000000031234 -ST1A 031234 031234 0 0 000000200000 0 000000031234 -ST9 031234 031234 0 0 000000200000 0 000000031234 - - -*031234 MOVE 0,035115 -INITIAL -C(AC)=000000 200000 -C(E)=000000 400000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 031234 031234 0 0 200000035115 0 000000400000 -IT1 031234 0 0 0 200000035115 0 000000400000 -AT3 031234 0 0 0 000000035115 0 200000035115 -AT6 031234 035115 0 0 000000035115 0 200000035115 -FT0 031234 035115 0 0 000000400000 0 200000035115 -FT1A 031234 035115 0 0 000000400000 0 000000400000 -FT9 031235 035115 0 0 000000400000 0 000000400000 -ET0 031235 035115 0 0 000000400000 0 000000400000 -ST1 031235 035115 0 0 000000400000 0 000000400000 -ST2 031235 035115 0 0 000000400000 0 000000400000 -ST9 031235 035115 0 0 000000400000 0 000000400000 - - -*031235 SKIPN 0,000000 -INITIAL -C(AC)=000000 400000 -C(E)=000000 400000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 031235 031235 0 0 336000000000 0 000000400000 -IT1 031235 0 0 0 336000000000 0 000000400000 -AT3 031235 0 0 0 0 0 336000000000 -AT6 031235 0 0 0 0 0 336000000000 -FT0 031235 0 0 0 000000400000 0 336000000000 -FT1A 031235 0 0 0 000000400000 0 000000400000 -FT9 031236 0 0 0 000000400000 0 000000400000 -ET0 031237 0 0 0 000000400000 0 000000400000 -ST1A 031237 0 0 0 000000400000 0 000000400000 -ST9 031237 0 0 0 000000400000 0 000000400000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 66 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0282 - -*031237 JUMPA 0,031240 -INITIAL -C(AC)=000000 400000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031237 031237 0 0 324000031240 0 000000031240 -IT1 031237 0 0 0 324000031240 0 000000031240 -AT3 031237 0 0 0 000000031240 0 324000031240 -AT6 031237 031240 0 0 000000031240 0 324000031240 -FT1A 031237 031240 0 0 000000031240 0 000000031240 -FT2 031237 031240 0 0 0 0 000000031240 -FT2RQ 031237 031240 0 0 000000400000 0 000000031240 -FT3 031237 031240 0 0 000000400000 0 000000031240 -FT9 031240 031240 0 0 000000400000 0 000000031240 -ET0 031240 031240 0 0 000000400000 0 000000031240 -ST1A 031240 031240 0 0 000000400000 0 000000031240 -ST9 031240 031240 0 0 000000400000 0 000000031240 - - -*031240 MOVE 0,035116 -INITIAL -C(AC)=000000 400000 -C(E)=000001 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031240 031240 0 0 200000035116 0 000001000000 -IT1 031240 0 0 0 200000035116 0 000001000000 -AT3 031240 0 0 0 000000035116 0 200000035116 -AT6 031240 035116 0 0 000000035116 0 200000035116 -FT0 031240 035116 0 0 000001000000 0 200000035116 -FT1A 031240 035116 0 0 000001000000 0 000001000000 -FT9 031241 035116 0 0 000001000000 0 000001000000 -ET0 031241 035116 0 0 000001000000 0 000001000000 -ST1 031241 035116 0 0 000001000000 0 000001000000 -ST2 031241 035116 0 0 000001000000 0 000001000000 -ST9 031241 035116 0 0 000001000000 0 000001000000 - - -*031241 SKIPN 0,000000 -INITIAL -C(AC)=000001 000000 -C(E)=000001 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031241 031241 0 0 336000000000 0 000001000000 -IT1 031241 0 0 0 336000000000 0 000001000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 67 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0283 - -AT3 031241 0 0 0 0 0 336000000000 -AT6 031241 0 0 0 0 0 336000000000 -FT0 031241 0 0 0 000001000000 0 336000000000 -FT1A 031241 0 0 0 000001000000 0 000001000000 -FT9 031242 0 0 0 000001000000 0 000001000000 -ET0 031243 0 0 0 000001000000 0 000001000000 -ST1A 031243 0 0 0 000001000000 0 000001000000 -ST9 031243 0 0 0 000001000000 0 000001000000 - - -*031243 JUMPA 0,031244 -INITIAL -C(AC)=000001 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031243 031243 0 0 324000031244 0 000000031244 -IT1 031243 0 0 0 324000031244 0 000000031244 -AT3 031243 0 0 0 000000031244 0 324000031244 -AT6 031243 031244 0 0 000000031244 0 324000031244 -FT1A 031243 031244 0 0 000000031244 0 000000031244 -FT2 031243 031244 0 0 0 0 000000031244 -FT2RQ 031243 031244 0 0 000001000000 0 000000031244 -FT3 031243 031244 0 0 000001000000 0 000000031244 -FT9 031244 031244 0 0 000001000000 0 000000031244 -ET0 031244 031244 0 0 000001000000 0 000000031244 -ST1A 031244 031244 0 0 000001000000 0 000000031244 -ST9 031244 031244 0 0 000001000000 0 000000031244 - - -*031244 MOVE 0,035117 -INITIAL -C(AC)=000001 000000 -C(E)=000002 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031244 031244 0 0 200000035117 0 000002000000 -IT1 031244 0 0 0 200000035117 0 000002000000 -AT3 031244 0 0 0 000000035117 0 200000035117 -AT6 031244 035117 0 0 000000035117 0 200000035117 -FT0 031244 035117 0 0 000002000000 0 200000035117 -FT1A 031244 035117 0 0 000002000000 0 000002000000 -FT9 031245 035117 0 0 000002000000 0 000002000000 -ET0 031245 035117 0 0 000002000000 0 000002000000 -ST1 031245 035117 0 0 000002000000 0 000002000000 -ST2 031245 035117 0 0 000002000000 0 000002000000 -ST9 031245 035117 0 0 000002000000 0 000002000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 68 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0284 - -*031245 SKIPN 0,000000 -INITIAL -C(AC)=000002 000000 -C(E)=000002 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031245 031245 0 0 336000000000 0 000002000000 -IT1 031245 0 0 0 336000000000 0 000002000000 -AT3 031245 0 0 0 0 0 336000000000 -AT6 031245 0 0 0 0 0 336000000000 -FT0 031245 0 0 0 000002000000 0 336000000000 -FT1A 031245 0 0 0 000002000000 0 000002000000 -FT9 031246 0 0 0 000002000000 0 000002000000 -ET0 031247 0 0 0 000002000000 0 000002000000 -ST1A 031247 0 0 0 000002000000 0 000002000000 -ST9 031247 0 0 0 000002000000 0 000002000000 - - -*031247 JUMPA 0,031250 -INITIAL -C(AC)=000002 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031247 031247 0 0 324000031250 0 000000031250 -IT1 031247 0 0 0 324000031250 0 000000031250 -AT3 031247 0 0 0 000000031250 0 324000031250 -AT6 031247 031250 0 0 000000031250 0 324000031250 -FT1A 031247 031250 0 0 000000031250 0 000000031250 -FT2 031247 031250 0 0 0 0 000000031250 -FT2RQ 031247 031250 0 0 000002000000 0 000000031250 -FT3 031247 031250 0 0 000002000000 0 000000031250 -FT9 031250 031250 0 0 000002000000 0 000000031250 -ET0 031250 031250 0 0 000002000000 0 000000031250 -ST1A 031250 031250 0 0 000002000000 0 000000031250 -ST9 031250 031250 0 0 000002000000 0 000000031250 - - -*031250 MOVE 0,035120 -INITIAL -C(AC)=000002 000000 -C(E)=000004 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031250 031250 0 0 200000035120 0 000004000000 -IT1 031250 0 0 0 200000035120 0 000004000000 -AT3 031250 0 0 0 000000035120 0 200000035120 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 69 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0285 - -AT6 031250 035120 0 0 000000035120 0 200000035120 -FT0 031250 035120 0 0 000004000000 0 200000035120 -FT1A 031250 035120 0 0 000004000000 0 000004000000 -FT9 031251 035120 0 0 000004000000 0 000004000000 -ET0 031251 035120 0 0 000004000000 0 000004000000 -ST1 031251 035120 0 0 000004000000 0 000004000000 -ST2 031251 035120 0 0 000004000000 0 000004000000 -ST9 031251 035120 0 0 000004000000 0 000004000000 - - -*031251 SKIPN 0,000000 -INITIAL -C(AC)=000004 000000 -C(E)=000004 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031251 031251 0 0 336000000000 0 000004000000 -IT1 031251 0 0 0 336000000000 0 000004000000 -AT3 031251 0 0 0 0 0 336000000000 -AT6 031251 0 0 0 0 0 336000000000 -FT0 031251 0 0 0 000004000000 0 336000000000 -FT1A 031251 0 0 0 000004000000 0 000004000000 -FT9 031252 0 0 0 000004000000 0 000004000000 -ET0 031253 0 0 0 000004000000 0 000004000000 -ST1A 031253 0 0 0 000004000000 0 000004000000 -ST9 031253 0 0 0 000004000000 0 000004000000 - - -*031253 JUMPA 0,031254 -INITIAL -C(AC)=000004 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 000004000000 0 000000031254 -FT3 031253 031254 0 0 000004000000 0 000000031254 -FT9 031254 031254 0 0 000004000000 0 000000031254 -ET0 031254 031254 0 0 000004000000 0 000000031254 -ST1A 031254 031254 0 0 000004000000 0 000000031254 -ST9 031254 031254 0 0 000004000000 0 000000031254 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 70 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0286 - -*031254 MOVE 0,035121 -INITIAL -C(AC)=000004 000000 -C(E)=000010 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031254 031254 0 0 200000035121 0 000010000000 -IT1 031254 0 0 0 200000035121 0 000010000000 -AT3 031254 0 0 0 000000035121 0 200000035121 -AT6 031254 035121 0 0 000000035121 0 200000035121 -FT0 031254 035121 0 0 000010000000 0 200000035121 -FT1A 031254 035121 0 0 000010000000 0 000010000000 -FT9 031255 035121 0 0 000010000000 0 000010000000 -ET0 031255 035121 0 0 000010000000 0 000010000000 -ST1 031255 035121 0 0 000010000000 0 000010000000 -ST2 031255 035121 0 0 000010000000 0 000010000000 -ST9 031255 035121 0 0 000010000000 0 000010000000 - - -*031255 SKIPN 0,000000 -INITIAL -C(AC)=000010 000000 -C(E)=000010 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031255 031255 0 0 336000000000 0 000010000000 -IT1 031255 0 0 0 336000000000 0 000010000000 -AT3 031255 0 0 0 0 0 336000000000 -AT6 031255 0 0 0 0 0 336000000000 -FT0 031255 0 0 0 000010000000 0 336000000000 -FT1A 031255 0 0 0 000010000000 0 000010000000 -FT9 031256 0 0 0 000010000000 0 000010000000 -ET0 031257 0 0 0 000010000000 0 000010000000 -ST1A 031257 0 0 0 000010000000 0 000010000000 -ST9 031257 0 0 0 000010000000 0 000010000000 - - -*031257 JUMPA 0,031260 -INITIAL -C(AC)=000010 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031257 031257 0 0 324000031260 0 000000031260 -IT1 031257 0 0 0 324000031260 0 000000031260 -AT3 031257 0 0 0 000000031260 0 324000031260 -AT6 031257 031260 0 0 000000031260 0 324000031260 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 71 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0287 - -FT1A 031257 031260 0 0 000000031260 0 000000031260 -FT2 031257 031260 0 0 0 0 000000031260 -FT2RQ 031257 031260 0 0 000010000000 0 000000031260 -FT3 031257 031260 0 0 000010000000 0 000000031260 -FT9 031260 031260 0 0 000010000000 0 000000031260 -ET0 031260 031260 0 0 000010000000 0 000000031260 -ST1A 031260 031260 0 0 000010000000 0 000000031260 -ST9 031260 031260 0 0 000010000000 0 000000031260 - - -*031260 MOVE 0,035122 -INITIAL -C(AC)=000010 000000 -C(E)=000020 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031260 031260 0 0 200000035122 0 000020000000 -IT1 031260 0 0 0 200000035122 0 000020000000 -AT3 031260 0 0 0 000000035122 0 200000035122 -AT6 031260 035122 0 0 000000035122 0 200000035122 -FT0 031260 035122 0 0 000020000000 0 200000035122 -FT1A 031260 035122 0 0 000020000000 0 000020000000 -FT9 031261 035122 0 0 000020000000 0 000020000000 -ET0 031261 035122 0 0 000020000000 0 000020000000 -ST1 031261 035122 0 0 000020000000 0 000020000000 -ST2 031261 035122 0 0 000020000000 0 000020000000 -ST9 031261 035122 0 0 000020000000 0 000020000000 - - -*031261 SKIPN 0,000000 -INITIAL -C(AC)=000020 000000 -C(E)=000020 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031261 031261 0 0 336000000000 0 000020000000 -IT1 031261 0 0 0 336000000000 0 000020000000 -AT3 031261 0 0 0 0 0 336000000000 -AT6 031261 0 0 0 0 0 336000000000 -FT0 031261 0 0 0 000020000000 0 336000000000 -FT1A 031261 0 0 0 000020000000 0 000020000000 -FT9 031262 0 0 0 000020000000 0 000020000000 -ET0 031263 0 0 0 000020000000 0 000020000000 -ST1A 031263 0 0 0 000020000000 0 000020000000 -ST9 031263 0 0 0 000020000000 0 000020000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 72 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0288 - -*031263 JUMPA 0,031264 -INITIAL -C(AC)=000020 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031263 031263 0 0 324000031264 0 000000031264 -IT1 031263 0 0 0 324000031264 0 000000031264 -AT3 031263 0 0 0 000000031264 0 324000031264 -AT6 031263 031264 0 0 000000031264 0 324000031264 -FT1A 031263 031264 0 0 000000031264 0 000000031264 -FT2 031263 031264 0 0 0 0 000000031264 -FT2RQ 031263 031264 0 0 000020000000 0 000000031264 -FT3 031263 031264 0 0 000020000000 0 000000031264 -FT9 031264 031264 0 0 000020000000 0 000000031264 -ET0 031264 031264 0 0 000020000000 0 000000031264 -ST1A 031264 031264 0 0 000020000000 0 000000031264 -ST9 031264 031264 0 0 000020000000 0 000000031264 - - -*031264 MOVE 0,035123 -INITIAL -C(AC)=000020 000000 -C(E)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031264 031264 0 0 200000035123 0 000040000000 -IT1 031264 0 0 0 200000035123 0 000040000000 -AT3 031264 0 0 0 000000035123 0 200000035123 -AT6 031264 035123 0 0 000000035123 0 200000035123 -FT0 031264 035123 0 0 000040000000 0 200000035123 -FT1A 031264 035123 0 0 000040000000 0 000040000000 -FT9 031265 035123 0 0 000040000000 0 000040000000 -ET0 031265 035123 0 0 000040000000 0 000040000000 -ST1 031265 035123 0 0 000040000000 0 000040000000 -ST2 031265 035123 0 0 000040000000 0 000040000000 -ST9 031265 035123 0 0 000040000000 0 000040000000 - - -*031265 SKIPN 0,000000 -INITIAL -C(AC)=000040 000000 -C(E)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031265 031265 0 0 336000000000 0 000040000000 -IT1 031265 0 0 0 336000000000 0 000040000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 73 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0289 - -AT3 031265 0 0 0 0 0 336000000000 -AT6 031265 0 0 0 0 0 336000000000 -FT0 031265 0 0 0 000040000000 0 336000000000 -FT1A 031265 0 0 0 000040000000 0 000040000000 -FT9 031266 0 0 0 000040000000 0 000040000000 -ET0 031267 0 0 0 000040000000 0 000040000000 -ST1A 031267 0 0 0 000040000000 0 000040000000 -ST9 031267 0 0 0 000040000000 0 000040000000 - - -*031267 JUMPA 0,031270 -INITIAL -C(AC)=000040 000000 -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 000040000000 0 000000031270 -FT3 031267 031270 0 0 000040000000 0 000000031270 -FT9 031270 031270 0 0 000040000000 0 000000031270 -ET0 031270 031270 0 0 000040000000 0 000000031270 -ST1A 031270 031270 0 0 000040000000 0 000000031270 -ST9 031270 031270 0 0 000040000000 0 000000031270 - - -*031270 MOVE 0,035124 -INITIAL -C(AC)=000040 000000 -C(E)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031270 031270 0 0 200000035124 0 000100000000 -IT1 031270 0 0 0 200000035124 0 000100000000 -AT3 031270 0 0 0 000000035124 0 200000035124 -AT6 031270 035124 0 0 000000035124 0 200000035124 -FT0 031270 035124 0 0 000100000000 0 200000035124 -FT1A 031270 035124 0 0 000100000000 0 000100000000 -FT9 031271 035124 0 0 000100000000 0 000100000000 -ET0 031271 035124 0 0 000100000000 0 000100000000 -ST1 031271 035124 0 0 000100000000 0 000100000000 -ST2 031271 035124 0 0 000100000000 0 000100000000 -ST9 031271 035124 0 0 000100000000 0 000100000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 74 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0290 - -*031271 SKIPN 0,000000 -INITIAL -C(AC)=000100 000000 -C(E)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031271 031271 0 0 336000000000 0 000100000000 -IT1 031271 0 0 0 336000000000 0 000100000000 -AT3 031271 0 0 0 0 0 336000000000 -AT6 031271 0 0 0 0 0 336000000000 -FT0 031271 0 0 0 000100000000 0 336000000000 -FT1A 031271 0 0 0 000100000000 0 000100000000 -FT9 031272 0 0 0 000100000000 0 000100000000 -ET0 031273 0 0 0 000100000000 0 000100000000 -ST1A 031273 0 0 0 000100000000 0 000100000000 -ST9 031273 0 0 0 000100000000 0 000100000000 - - -*031273 JUMPA 0,031274 -INITIAL -C(AC)=000100 000000 -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 000100000000 0 000000031274 -FT3 031273 031274 0 0 000100000000 0 000000031274 -FT9 031274 031274 0 0 000100000000 0 000000031274 -ET0 031274 031274 0 0 000100000000 0 000000031274 -ST1A 031274 031274 0 0 000100000000 0 000000031274 -ST9 031274 031274 0 0 000100000000 0 000000031274 - - -*031274 MOVE 0,035125 -INITIAL -C(AC)=000100 000000 -C(E)=000200 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031274 031274 0 0 200000035125 0 000200000000 -IT1 031274 0 0 0 200000035125 0 000200000000 -AT3 031274 0 0 0 000000035125 0 200000035125 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 75 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0291 - -AT6 031274 035125 0 0 000000035125 0 200000035125 -FT0 031274 035125 0 0 000200000000 0 200000035125 -FT1A 031274 035125 0 0 000200000000 0 000200000000 -FT9 031275 035125 0 0 000200000000 0 000200000000 -ET0 031275 035125 0 0 000200000000 0 000200000000 -ST1 031275 035125 0 0 000200000000 0 000200000000 -ST2 031275 035125 0 0 000200000000 0 000200000000 -ST9 031275 035125 0 0 000200000000 0 000200000000 - - -*031275 SKIPN 0,000000 -INITIAL -C(AC)=000200 000000 -C(E)=000200 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031275 031275 0 0 336000000000 0 000200000000 -IT1 031275 0 0 0 336000000000 0 000200000000 -AT3 031275 0 0 0 0 0 336000000000 -AT6 031275 0 0 0 0 0 336000000000 -FT0 031275 0 0 0 000200000000 0 336000000000 -FT1A 031275 0 0 0 000200000000 0 000200000000 -FT9 031276 0 0 0 000200000000 0 000200000000 -ET0 031277 0 0 0 000200000000 0 000200000000 -ST1A 031277 0 0 0 000200000000 0 000200000000 -ST9 031277 0 0 0 000200000000 0 000200000000 - - -*031277 JUMPA 0,031300 -INITIAL -C(AC)=000200 000000 -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 -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 000200000000 0 000000031300 -FT3 031277 0 0 0 000200000000 0 000000031300 -FT9 0 0 0 0 000200000000 0 000000031300 -ET0 0 0 0 0 000200000000 0 000000031300 -ST1A 0 0 0 0 000200000000 0 000000031300 -ST9 0 0 0 0 000200000000 0 000000031300 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 76 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0292 - -*031300 MOVE 0,035073 -INITIAL -C(AC)=000200 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 200000035073 0 000400000000 -IT1 0 0 0 0 200000035073 0 000400000000 -AT3 0 0 0 0 000000035073 0 200000035073 -AT6 0 035073 0 0 000000035073 0 200000035073 -FT0 0 035073 0 0 000400000000 0 200000035073 -FT1A 0 035073 0 0 000400000000 0 000400000000 -FT9 031301 035073 0 0 000400000000 0 000400000000 -ET0 031301 035073 0 0 000400000000 0 000400000000 -ST1 031301 035073 0 0 000400000000 0 000400000000 -ST2 031301 035073 0 0 000400000000 0 000400000000 -ST9 031301 035073 0 0 000400000000 0 000400000000 - - -*031301 SKIPN 0,000000 -INITIAL -C(AC)=000400 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031301 031301 0 0 336000000000 0 000400000000 -IT1 031301 0 0 0 336000000000 0 000400000000 -AT3 031301 0 0 0 0 0 336000000000 -AT6 031301 0 0 0 0 0 336000000000 -FT0 031301 0 0 0 000400000000 0 336000000000 -FT1A 031301 0 0 0 000400000000 0 000400000000 -FT9 031302 0 0 0 000400000000 0 000400000000 -ET0 031303 0 0 0 000400000000 0 000400000000 -ST1A 031303 0 0 0 000400000000 0 000400000000 -ST9 031303 0 0 0 000400000000 0 000400000000 - - -*031303 JUMPA 0,031304 -INITIAL -C(AC)=000400 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031303 031303 0 0 324000031304 0 000000031304 -IT1 031303 0 0 0 324000031304 0 000000031304 -AT3 031303 0 0 0 000000031304 0 324000031304 -AT6 031303 031304 0 0 000000031304 0 324000031304 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 77 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0293 - -FT1A 031303 031304 0 0 000000031304 0 000000031304 -FT2 031303 031304 0 0 0 0 000000031304 -FT2RQ 031303 031304 0 0 000400000000 0 000000031304 -FT3 031303 031304 0 0 000400000000 0 000000031304 -FT9 031304 031304 0 0 000400000000 0 000000031304 -ET0 031304 031304 0 0 000400000000 0 000000031304 -ST1A 031304 031304 0 0 000400000000 0 000000031304 -ST9 031304 031304 0 0 000400000000 0 000000031304 - - -*031304 MOVE 0,035126 -INITIAL -C(AC)=000400 000000 -C(E)=001000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031304 031304 0 0 200000035126 0 001000000000 -IT1 031304 0 0 0 200000035126 0 001000000000 -AT3 031304 0 0 0 000000035126 0 200000035126 -AT6 031304 035126 0 0 000000035126 0 200000035126 -FT0 031304 035126 0 0 001000000000 0 200000035126 -FT1A 031304 035126 0 0 001000000000 0 001000000000 -FT9 031305 035126 0 0 001000000000 0 001000000000 -ET0 031305 035126 0 0 001000000000 0 001000000000 -ST1 031305 035126 0 0 001000000000 0 001000000000 -ST2 031305 035126 0 0 001000000000 0 001000000000 -ST9 031305 035126 0 0 001000000000 0 001000000000 - - -*031305 SKIPN 0,000000 -INITIAL -C(AC)=001000 000000 -C(E)=001000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031305 031305 0 0 336000000000 0 001000000000 -IT1 031305 0 0 0 336000000000 0 001000000000 -AT3 031305 0 0 0 0 0 336000000000 -AT6 031305 0 0 0 0 0 336000000000 -FT0 031305 0 0 0 001000000000 0 336000000000 -FT1A 031305 0 0 0 001000000000 0 001000000000 -FT9 031306 0 0 0 001000000000 0 001000000000 -ET0 031307 0 0 0 001000000000 0 001000000000 -ST1A 031307 0 0 0 001000000000 0 001000000000 -ST9 031307 0 0 0 001000000000 0 001000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 78 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0294 - -*031307 JUMPA 0,031310 -INITIAL -C(AC)=001000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031307 031307 0 0 324000031310 0 000000031310 -IT1 031307 0 0 0 324000031310 0 000000031310 -AT3 031307 0 0 0 000000031310 0 324000031310 -AT6 031307 031310 0 0 000000031310 0 324000031310 -FT1A 031307 031310 0 0 000000031310 0 000000031310 -FT2 031307 031310 0 0 0 0 000000031310 -FT2RQ 031307 031310 0 0 001000000000 0 000000031310 -FT3 031307 031310 0 0 001000000000 0 000000031310 -FT9 031310 031310 0 0 001000000000 0 000000031310 -ET0 031310 031310 0 0 001000000000 0 000000031310 -ST1A 031310 031310 0 0 001000000000 0 000000031310 -ST9 031310 031310 0 0 001000000000 0 000000031310 - - -*031310 MOVE 0,035127 -INITIAL -C(AC)=001000 000000 -C(E)=002000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031310 031310 0 0 200000035127 0 002000000000 -IT1 031310 0 0 0 200000035127 0 002000000000 -AT3 031310 0 0 0 000000035127 0 200000035127 -AT6 031310 035127 0 0 000000035127 0 200000035127 -FT0 031310 035127 0 0 002000000000 0 200000035127 -FT1A 031310 035127 0 0 002000000000 0 002000000000 -FT9 031311 035127 0 0 002000000000 0 002000000000 -ET0 031311 035127 0 0 002000000000 0 002000000000 -ST1 031311 035127 0 0 002000000000 0 002000000000 -ST2 031311 035127 0 0 002000000000 0 002000000000 -ST9 031311 035127 0 0 002000000000 0 002000000000 - - -*031311 SKIPN 0,000000 -INITIAL -C(AC)=002000 000000 -C(E)=002000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031311 031311 0 0 336000000000 0 002000000000 -IT1 031311 0 0 0 336000000000 0 002000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 79 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0295 - -AT3 031311 0 0 0 0 0 336000000000 -AT6 031311 0 0 0 0 0 336000000000 -FT0 031311 0 0 0 002000000000 0 336000000000 -FT1A 031311 0 0 0 002000000000 0 002000000000 -FT9 031312 0 0 0 002000000000 0 002000000000 -ET0 031313 0 0 0 002000000000 0 002000000000 -ST1A 031313 0 0 0 002000000000 0 002000000000 -ST9 031313 0 0 0 002000000000 0 002000000000 - - -*031313 JUMPA 0,031314 -INITIAL -C(AC)=002000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031313 031313 0 0 324000031314 0 000000031314 -IT1 031313 0 0 0 324000031314 0 000000031314 -AT3 031313 0 0 0 000000031314 0 324000031314 -AT6 031313 031314 0 0 000000031314 0 324000031314 -FT1A 031313 031314 0 0 000000031314 0 000000031314 -FT2 031313 031314 0 0 0 0 000000031314 -FT2RQ 031313 031314 0 0 002000000000 0 000000031314 -FT3 031313 031314 0 0 002000000000 0 000000031314 -FT9 031314 031314 0 0 002000000000 0 000000031314 -ET0 031314 031314 0 0 002000000000 0 000000031314 -ST1A 031314 031314 0 0 002000000000 0 000000031314 -ST9 031314 031314 0 0 002000000000 0 000000031314 - - -*031314 MOVE 0,035130 -INITIAL -C(AC)=002000 000000 -C(E)=004000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031314 031314 0 0 200000035130 0 004000000000 -IT1 031314 0 0 0 200000035130 0 004000000000 -AT3 031314 0 0 0 000000035130 0 200000035130 -AT6 031314 035130 0 0 000000035130 0 200000035130 -FT0 031314 035130 0 0 004000000000 0 200000035130 -FT1A 031314 035130 0 0 004000000000 0 004000000000 -FT9 031315 035130 0 0 004000000000 0 004000000000 -ET0 031315 035130 0 0 004000000000 0 004000000000 -ST1 031315 035130 0 0 004000000000 0 004000000000 -ST2 031315 035130 0 0 004000000000 0 004000000000 -ST9 031315 035130 0 0 004000000000 0 004000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 80 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0296 - -*031315 SKIPN 0,000000 -INITIAL -C(AC)=004000 000000 -C(E)=004000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031315 031315 0 0 336000000000 0 004000000000 -IT1 031315 0 0 0 336000000000 0 004000000000 -AT3 031315 0 0 0 0 0 336000000000 -AT6 031315 0 0 0 0 0 336000000000 -FT0 031315 0 0 0 004000000000 0 336000000000 -FT1A 031315 0 0 0 004000000000 0 004000000000 -FT9 031316 0 0 0 004000000000 0 004000000000 -ET0 031317 0 0 0 004000000000 0 004000000000 -ST1A 031317 0 0 0 004000000000 0 004000000000 -ST9 031317 0 0 0 004000000000 0 004000000000 - - -*031317 JUMPA 0,031320 -INITIAL -C(AC)=004000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031317 031317 0 0 324000031320 0 000000031320 -IT1 031317 0 0 0 324000031320 0 000000031320 -AT3 031317 0 0 0 000000031320 0 324000031320 -AT6 031317 031320 0 0 000000031320 0 324000031320 -FT1A 031317 031320 0 0 000000031320 0 000000031320 -FT2 031317 031320 0 0 0 0 000000031320 -FT2RQ 031317 031320 0 0 004000000000 0 000000031320 -FT3 031317 031320 0 0 004000000000 0 000000031320 -FT9 031320 031320 0 0 004000000000 0 000000031320 -ET0 031320 031320 0 0 004000000000 0 000000031320 -ST1A 031320 031320 0 0 004000000000 0 000000031320 -ST9 031320 031320 0 0 004000000000 0 000000031320 - - -*031320 MOVE 0,035131 -INITIAL -C(AC)=004000 000000 -C(E)=010000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031320 031320 0 0 200000035131 0 010000000000 -IT1 031320 0 0 0 200000035131 0 010000000000 -AT3 031320 0 0 0 000000035131 0 200000035131 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 81 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0297 - -AT6 031320 035131 0 0 000000035131 0 200000035131 -FT0 031320 035131 0 0 010000000000 0 200000035131 -FT1A 031320 035131 0 0 010000000000 0 010000000000 -FT9 031321 035131 0 0 010000000000 0 010000000000 -ET0 031321 035131 0 0 010000000000 0 010000000000 -ST1 031321 035131 0 0 010000000000 0 010000000000 -ST2 031321 035131 0 0 010000000000 0 010000000000 -ST9 031321 035131 0 0 010000000000 0 010000000000 - - -*031321 SKIPN 0,000000 -INITIAL -C(AC)=010000 000000 -C(E)=010000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031321 031321 0 0 336000000000 0 010000000000 -IT1 031321 0 0 0 336000000000 0 010000000000 -AT3 031321 0 0 0 0 0 336000000000 -AT6 031321 0 0 0 0 0 336000000000 -FT0 031321 0 0 0 010000000000 0 336000000000 -FT1A 031321 0 0 0 010000000000 0 010000000000 -FT9 031322 0 0 0 010000000000 0 010000000000 -ET0 031323 0 0 0 010000000000 0 010000000000 -ST1A 031323 0 0 0 010000000000 0 010000000000 -ST9 031323 0 0 0 010000000000 0 010000000000 - - -*031323 JUMPA 0,031324 -INITIAL -C(AC)=010000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031323 031323 0 0 324000031324 0 000000031324 -IT1 031323 0 0 0 324000031324 0 000000031324 -AT3 031323 0 0 0 000000031324 0 324000031324 -AT6 031323 031324 0 0 000000031324 0 324000031324 -FT1A 031323 031324 0 0 000000031324 0 000000031324 -FT2 031323 031324 0 0 0 0 000000031324 -FT2RQ 031323 031324 0 0 010000000000 0 000000031324 -FT3 031323 031324 0 0 010000000000 0 000000031324 -FT9 031324 031324 0 0 010000000000 0 000000031324 -ET0 031324 031324 0 0 010000000000 0 000000031324 -ST1A 031324 031324 0 0 010000000000 0 000000031324 -ST9 031324 031324 0 0 010000000000 0 000000031324 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 82 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0298 - -*031324 MOVE 0,035132 -INITIAL -C(AC)=010000 000000 -C(E)=020000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031324 031324 0 0 200000035132 0 020000000000 -IT1 031324 0 0 0 200000035132 0 020000000000 -AT3 031324 0 0 0 000000035132 0 200000035132 -AT6 031324 035132 0 0 000000035132 0 200000035132 -FT0 031324 035132 0 0 020000000000 0 200000035132 -FT1A 031324 035132 0 0 020000000000 0 020000000000 -FT9 031325 035132 0 0 020000000000 0 020000000000 -ET0 031325 035132 0 0 020000000000 0 020000000000 -ST1 031325 035132 0 0 020000000000 0 020000000000 -ST2 031325 035132 0 0 020000000000 0 020000000000 -ST9 031325 035132 0 0 020000000000 0 020000000000 - - -*031325 SKIPN 0,000000 -INITIAL -C(AC)=020000 000000 -C(E)=020000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031325 031325 0 0 336000000000 0 020000000000 -IT1 031325 0 0 0 336000000000 0 020000000000 -AT3 031325 0 0 0 0 0 336000000000 -AT6 031325 0 0 0 0 0 336000000000 -FT0 031325 0 0 0 020000000000 0 336000000000 -FT1A 031325 0 0 0 020000000000 0 020000000000 -FT9 031326 0 0 0 020000000000 0 020000000000 -ET0 031327 0 0 0 020000000000 0 020000000000 -ST1A 031327 0 0 0 020000000000 0 020000000000 -ST9 031327 0 0 0 020000000000 0 020000000000 - - -*031327 JUMPA 0,031330 -INITIAL -C(AC)=020000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031327 031327 0 0 324000031330 0 000000031330 -IT1 031327 0 0 0 324000031330 0 000000031330 -AT3 031327 0 0 0 000000031330 0 324000031330 -AT6 031327 031330 0 0 000000031330 0 324000031330 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 83 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0299 - -FT1A 031327 031330 0 0 000000031330 0 000000031330 -FT2 031327 031330 0 0 0 0 000000031330 -FT2RQ 031327 031330 0 0 020000000000 0 000000031330 -FT3 031327 031330 0 0 020000000000 0 000000031330 -FT9 031330 031330 0 0 020000000000 0 000000031330 -ET0 031330 031330 0 0 020000000000 0 000000031330 -ST1A 031330 031330 0 0 020000000000 0 000000031330 -ST9 031330 031330 0 0 020000000000 0 000000031330 - - -*031330 MOVE 0,035133 -INITIAL -C(AC)=020000 000000 -C(E)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031330 031330 0 0 200000035133 0 040000000000 -IT1 031330 0 0 0 200000035133 0 040000000000 -AT3 031330 0 0 0 000000035133 0 200000035133 -AT6 031330 035133 0 0 000000035133 0 200000035133 -FT0 031330 035133 0 0 040000000000 0 200000035133 -FT1A 031330 035133 0 0 040000000000 0 040000000000 -FT9 031331 035133 0 0 040000000000 0 040000000000 -ET0 031331 035133 0 0 040000000000 0 040000000000 -ST1 031331 035133 0 0 040000000000 0 040000000000 -ST2 031331 035133 0 0 040000000000 0 040000000000 -ST9 031331 035133 0 0 040000000000 0 040000000000 - - -*031331 SKIPN 0,000000 -INITIAL -C(AC)=040000 000000 -C(E)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031331 031331 0 0 336000000000 0 040000000000 -IT1 031331 0 0 0 336000000000 0 040000000000 -AT3 031331 0 0 0 0 0 336000000000 -AT6 031331 0 0 0 0 0 336000000000 -FT0 031331 0 0 0 040000000000 0 336000000000 -FT1A 031331 0 0 0 040000000000 0 040000000000 -FT9 031332 0 0 0 040000000000 0 040000000000 -ET0 031333 0 0 0 040000000000 0 040000000000 -ST1A 031333 0 0 0 040000000000 0 040000000000 -ST9 031333 0 0 0 040000000000 0 040000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 84 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0300 - -*031333 JUMPA 0,031334 -INITIAL -C(AC)=040000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031333 031333 0 0 324000031334 0 000000031334 -IT1 031333 0 0 0 324000031334 0 000000031334 -AT3 031333 0 0 0 000000031334 0 324000031334 -AT6 031333 031334 0 0 000000031334 0 324000031334 -FT1A 031333 031334 0 0 000000031334 0 000000031334 -FT2 031333 031334 0 0 0 0 000000031334 -FT2RQ 031333 031334 0 0 040000000000 0 000000031334 -FT3 031333 031334 0 0 040000000000 0 000000031334 -FT9 031334 031334 0 0 040000000000 0 000000031334 -ET0 031334 031334 0 0 040000000000 0 000000031334 -ST1A 031334 031334 0 0 040000000000 0 000000031334 -ST9 031334 031334 0 0 040000000000 0 000000031334 - - -*031334 MOVE 0,035134 -INITIAL -C(AC)=040000 000000 -C(E)=100000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031334 031334 0 0 200000035134 0 100000000000 -IT1 031334 0 0 0 200000035134 0 100000000000 -AT3 031334 0 0 0 000000035134 0 200000035134 -AT6 031334 035134 0 0 000000035134 0 200000035134 -FT0 031334 035134 0 0 100000000000 0 200000035134 -FT1A 031334 035134 0 0 100000000000 0 100000000000 -FT9 031335 035134 0 0 100000000000 0 100000000000 -ET0 031335 035134 0 0 100000000000 0 100000000000 -ST1 031335 035134 0 0 100000000000 0 100000000000 -ST2 031335 035134 0 0 100000000000 0 100000000000 -ST9 031335 035134 0 0 100000000000 0 100000000000 - - -*031335 SKIPN 0,000000 -INITIAL -C(AC)=100000 000000 -C(E)=100000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031335 031335 0 0 336000000000 0 100000000000 -IT1 031335 0 0 0 336000000000 0 100000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 85 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0301 - -AT3 031335 0 0 0 0 0 336000000000 -AT6 031335 0 0 0 0 0 336000000000 -FT0 031335 0 0 0 100000000000 0 336000000000 -FT1A 031335 0 0 0 100000000000 0 100000000000 -FT9 031336 0 0 0 100000000000 0 100000000000 -ET0 031337 0 0 0 100000000000 0 100000000000 -ST1A 031337 0 0 0 100000000000 0 100000000000 -ST9 031337 0 0 0 100000000000 0 100000000000 - - -*031337 JUMPA 0,031340 -INITIAL -C(AC)=100000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031337 031337 0 0 324000031340 0 000000031340 -IT1 031337 0 0 0 324000031340 0 000000031340 -AT3 031337 0 0 0 000000031340 0 324000031340 -AT6 031337 031340 0 0 000000031340 0 324000031340 -FT1A 031337 031340 0 0 000000031340 0 000000031340 -FT2 031337 031340 0 0 0 0 000000031340 -FT2RQ 031337 031340 0 0 100000000000 0 000000031340 -FT3 031337 031340 0 0 100000000000 0 000000031340 -FT9 031340 031340 0 0 100000000000 0 000000031340 -ET0 031340 031340 0 0 100000000000 0 000000031340 -ST1A 031340 031340 0 0 100000000000 0 000000031340 -ST9 031340 031340 0 0 100000000000 0 000000031340 - - -*031340 MOVE 0,035135 -INITIAL -C(AC)=100000 000000 -C(E)=200000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031340 031340 0 0 200000035135 0 200000000000 -IT1 031340 0 0 0 200000035135 0 200000000000 -AT3 031340 0 0 0 000000035135 0 200000035135 -AT6 031340 035135 0 0 000000035135 0 200000035135 -FT0 031340 035135 0 0 200000000000 0 200000035135 -FT1A 031340 035135 0 0 200000000000 0 200000000000 -FT9 031341 035135 0 0 200000000000 0 200000000000 -ET0 031341 035135 0 0 200000000000 0 200000000000 -ST1 031341 035135 0 0 200000000000 0 200000000000 -ST2 031341 035135 0 0 200000000000 0 200000000000 -ST9 031341 035135 0 0 200000000000 0 200000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 86 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0302 - -*031341 SKIPN 0,000000 -INITIAL -C(AC)=200000 000000 -C(E)=200000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031341 031341 0 0 336000000000 0 200000000000 -IT1 031341 0 0 0 336000000000 0 200000000000 -AT3 031341 0 0 0 0 0 336000000000 -AT6 031341 0 0 0 0 0 336000000000 -FT0 031341 0 0 0 200000000000 0 336000000000 -FT1A 031341 0 0 0 200000000000 0 200000000000 -FT9 031342 0 0 0 200000000000 0 200000000000 -ET0 031343 0 0 0 200000000000 0 200000000000 -ST1A 031343 0 0 0 200000000000 0 200000000000 -ST9 031343 0 0 0 200000000000 0 200000000000 - - -*031343 JUMPA 0,031344 -INITIAL -C(AC)=200000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031343 031343 0 0 324000031344 0 000000031344 -IT1 031343 0 0 0 324000031344 0 000000031344 -AT3 031343 0 0 0 000000031344 0 324000031344 -AT6 031343 031344 0 0 000000031344 0 324000031344 -FT1A 031343 031344 0 0 000000031344 0 000000031344 -FT2 031343 031344 0 0 0 0 000000031344 -FT2RQ 031343 031344 0 0 200000000000 0 000000031344 -FT3 031343 031344 0 0 200000000000 0 000000031344 -FT9 031344 031344 0 0 200000000000 0 000000031344 -ET0 031344 031344 0 0 200000000000 0 000000031344 -ST1A 031344 031344 0 0 200000000000 0 000000031344 -ST9 031344 031344 0 0 200000000000 0 000000031344 - - -*031344 MOVE 0,035065 -INITIAL -C(AC)=200000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031344 031344 0 0 200000035065 0 400000000000 -IT1 031344 0 0 0 200000035065 0 400000000000 -AT3 031344 0 0 0 000000035065 0 200000035065 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 87 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0303 - -AT6 031344 035065 0 0 000000035065 0 200000035065 -FT0 031344 035065 0 0 400000000000 0 200000035065 -FT1A 031344 035065 0 0 400000000000 0 400000000000 -FT9 031345 035065 0 0 400000000000 0 400000000000 -ET0 031345 035065 0 0 400000000000 0 400000000000 -ST1 031345 035065 0 0 400000000000 0 400000000000 -ST2 031345 035065 0 0 400000000000 0 400000000000 -ST9 031345 035065 0 0 400000000000 0 400000000000 - - -*031345 SKIPN 0,000000 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031345 031345 0 0 336000000000 0 400000000000 -IT1 031345 0 0 0 336000000000 0 400000000000 -AT3 031345 0 0 0 0 0 336000000000 -AT6 031345 0 0 0 0 0 336000000000 -FT0 031345 0 0 0 400000000000 0 336000000000 -FT1A 031345 0 0 0 400000000000 0 400000000000 -FT9 031346 0 0 0 400000000000 0 400000000000 -ET0 031347 0 0 0 400000000000 0 400000000000 -ST1A 031347 0 0 0 400000000000 0 400000000000 -ST9 031347 0 0 0 400000000000 0 400000000000 - - -*031347 JUMPA 0,031350 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031347 031347 0 0 324000031350 0 000000031350 -IT1 031347 0 0 0 324000031350 0 000000031350 -AT3 031347 0 0 0 000000031350 0 324000031350 -AT6 031347 031350 0 0 000000031350 0 324000031350 -FT1A 031347 031350 0 0 000000031350 0 000000031350 -FT2 031347 031350 0 0 0 0 000000031350 -FT2RQ 031347 031350 0 0 400000000000 0 000000031350 -FT3 031347 031350 0 0 400000000000 0 000000031350 -FT9 031350 031350 0 0 400000000000 0 000000031350 -ET0 031350 031350 0 0 400000000000 0 000000031350 -ST1A 031350 031350 0 0 400000000000 0 000000031350 -ST9 031350 031350 0 0 400000000000 0 000000031350 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 88 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0304 - -*031350 MOVEI 0,035063 -INITIAL -C(AC)=400000 000000 -FINAL -C(AC)=000000 035063 - -TIME PC MA SC FE AR MQ BR -IT0 031350 031350 0 0 201000035063 0 000000035063 -IT1 031350 0 0 0 201000035063 0 000000035063 -AT3 031350 0 0 0 000000035063 0 201000035063 -AT6 031350 035063 0 0 000000035063 0 201000035063 -FT1A 031350 035063 0 0 000000035063 0 000000035063 -FT9 031351 035063 0 0 000000035063 0 000000035063 -ET0 031351 035063 0 0 000000035063 0 000000035063 -ST1 031351 035063 0 0 000000035063 0 000000035063 -ST2 031351 035063 0 0 000000035063 0 000000035063 -ST9 031351 035063 0 0 000000035063 0 000000035063 - - -*031351 SKIPG 0,000000 -INITIAL -C(AC)=000000 035063 -C(E)=000000 035063 -FINAL -C(AC)=000000 035063 - -TIME PC MA SC FE AR MQ BR -IT0 031351 031351 0 0 337000000000 0 000000035063 -IT1 031351 0 0 0 337000000000 0 000000035063 -AT3 031351 0 0 0 0 0 337000000000 -AT6 031351 0 0 0 0 0 337000000000 -FT0 031351 0 0 0 000000035063 0 337000000000 -FT1A 031351 0 0 0 000000035063 0 000000035063 -FT9 031352 0 0 0 000000035063 0 000000035063 -ET0 031353 0 0 0 000000035063 0 000000035063 -ST1A 031353 0 0 0 000000035063 0 000000035063 -ST9 031353 0 0 0 000000035063 0 000000035063 - - -*031353 JUMPA 0,031354 -INITIAL -C(AC)=000000 035063 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031353 031353 0 0 324000031354 0 000000031354 -IT1 031353 0 0 0 324000031354 0 000000031354 -AT3 031353 0 0 0 000000031354 0 324000031354 -AT6 031353 031354 0 0 000000031354 0 324000031354 -FT1A 031353 031354 0 0 000000031354 0 000000031354 -FT2 031353 031354 0 0 0 0 000000031354 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 89 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0305 - -FT2RQ 031353 031354 0 0 000000035063 0 000000031354 -FT3 031353 031354 0 0 000000035063 0 000000031354 -FT9 031354 031354 0 0 000000035063 0 000000031354 -ET0 031354 031354 0 0 000000035063 0 000000031354 -ST1A 031354 031354 0 0 000000035063 0 000000031354 -ST9 031354 031354 0 0 000000035063 0 000000031354 - - -*031354 MOVE 0,035062 -INITIAL -C(AC)=000000 035063 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031354 031354 0 0 200000035062 0 0 -IT1 031354 0 0 0 200000035062 0 0 -AT3 031354 0 0 0 000000035062 0 200000035062 -AT6 031354 035062 0 0 000000035062 0 200000035062 -FT0 031354 035062 0 0 0 0 200000035062 -FT1A 031354 035062 0 0 0 0 0 -FT9 031355 035062 0 0 0 0 0 -ET0 031355 035062 0 0 0 0 0 -ST1 031355 035062 0 0 0 0 0 -ST2 031355 035062 0 0 0 0 0 -ST9 031355 035062 0 0 0 0 0 - - -*031355 SKIPL 0,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031355 031355 0 0 331000035063 0 777777777777 -IT1 031355 0 0 0 331000035063 0 777777777777 -AT3 031355 0 0 0 000000035063 0 331000035063 -AT6 031355 035063 0 0 000000035063 0 331000035063 -FT0 031355 035063 0 0 777777777777 0 331000035063 -FT1A 031355 035063 0 0 777777777777 0 777777777777 -FT9 031356 035063 0 0 777777777777 0 777777777777 -ET0 031357 035063 0 0 777777777777 0 777777777777 -ST1A 031357 035063 0 0 777777777777 0 777777777777 -ST9 031357 035063 0 0 777777777777 0 777777777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 90 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0306 - -*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 - - -*031360 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031360 031360 0 0 200000035062 0 0 -IT1 031360 0 0 0 200000035062 0 0 -AT3 031360 0 0 0 000000035062 0 200000035062 -AT6 031360 035062 0 0 000000035062 0 200000035062 -FT0 031360 035062 0 0 0 0 200000035062 -FT1A 031360 035062 0 0 0 0 0 -FT9 031361 035062 0 0 0 0 0 -ET0 031361 035062 0 0 0 0 0 -ST1 031361 035062 0 0 0 0 0 -ST2 031361 035062 0 0 0 0 0 -ST9 031361 035062 0 0 0 0 0 - - -*031361 SKIPL 0,035065 -INITIAL -C(AC)=000000 000000 -C(E)=400000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031361 031361 0 0 331000035065 0 400000000000 -IT1 031361 0 0 0 331000035065 0 400000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 91 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0307 - -AT3 031361 0 0 0 000000035065 0 331000035065 -AT6 031361 035065 0 0 000000035065 0 331000035065 -FT0 031361 035065 0 0 400000000000 0 331000035065 -FT1A 031361 035065 0 0 400000000000 0 400000000000 -FT9 031362 035065 0 0 400000000000 0 400000000000 -ET0 031363 035065 0 0 400000000000 0 400000000000 -ST1A 031363 035065 0 0 400000000000 0 400000000000 -ST9 031363 035065 0 0 400000000000 0 400000000000 - - -*031363 JUMPA 0,031364 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031363 031363 0 0 324000031364 0 000000031364 -IT1 031363 0 0 0 324000031364 0 000000031364 -AT3 031363 0 0 0 000000031364 0 324000031364 -AT6 031363 031364 0 0 000000031364 0 324000031364 -FT1A 031363 031364 0 0 000000031364 0 000000031364 -FT2 031363 031364 0 0 0 0 000000031364 -FT2RQ 031363 031364 0 0 0 0 000000031364 -FT3 031363 031364 0 0 0 0 000000031364 -FT9 031364 031364 0 0 0 0 000000031364 -ET0 031364 031364 0 0 0 0 000000031364 -ST1A 031364 031364 0 0 0 0 000000031364 -ST9 031364 031364 0 0 0 0 000000031364 - - -*031364 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031364 031364 0 0 200000035062 0 0 -IT1 031364 0 0 0 200000035062 0 0 -AT3 031364 0 0 0 000000035062 0 200000035062 -AT6 031364 035062 0 0 000000035062 0 200000035062 -FT0 031364 035062 0 0 0 0 200000035062 -FT1A 031364 035062 0 0 0 0 0 -FT9 031365 035062 0 0 0 0 0 -ET0 031365 035062 0 0 0 0 0 -ST1 031365 035062 0 0 0 0 0 -ST2 031365 035062 0 0 0 0 0 -ST9 031365 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 92 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0308 - -*031365 CAM 0,035136 -INITIAL -C(AC)=000000 000000 -C(E)=000000 001234 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031365 031365 0 0 310000035136 0 000000001234 -IT1 031365 0 0 0 310000035136 0 000000001234 -AT3 031365 0 0 0 000000035136 0 310000035136 -AT6 031365 035136 0 0 000000035136 0 310000035136 -FT0 031365 035136 0 0 000000001234 0 310000035136 -FT1A 031365 035136 0 0 000000001234 0 000000001234 -FT2 031365 035136 0 0 0 0 000000001234 -FT2RQ 031365 035136 0 0 0 0 000000001234 -FT3 031365 035136 0 0 0 0 000000001234 -FT9 031366 035136 0 0 0 0 000000001234 -ET0 031366 035136 0 0 777777776544 0 000000001234 -ST1A 031366 035136 0 0 777777776544 0 000000001234 -ST9 031366 035136 0 0 777777776544 0 000000001234 - - -*031366 MOVE 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 031366 031366 0 0 200000000000 0 0 -IT1 031366 0 0 0 200000000000 0 0 -AT3 031366 0 0 0 0 0 200000000000 -AT6 031366 0 0 0 0 0 200000000000 -FT0 031366 0 0 0 0 0 200000000000 -FT1A 031366 0 0 0 0 0 0 -FT9 031367 0 0 0 0 0 0 -ET0 031367 0 0 0 0 0 0 -ST1 031367 0 0 0 0 0 0 -ST2 031367 0 0 0 0 0 0 -ST9 031367 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 93 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0309 - -*031367 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 031367 031367 0 0 332000000000 0 0 -IT1 031367 0 0 0 332000000000 0 0 -AT3 031367 0 0 0 0 0 332000000000 -AT6 031367 0 0 0 0 0 332000000000 -FT0 031367 0 0 0 0 0 332000000000 -FT1A 031367 0 0 0 0 0 0 -FT9 031370 0 0 0 0 0 0 -ET0 031371 0 0 0 0 0 0 -ST1A 031371 0 0 0 0 0 0 -ST9 031371 0 0 0 0 0 0 - - -*031371 JUMPA 0,031372 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031371 031371 0 0 324000031372 0 000000031372 -IT1 031371 0 0 0 324000031372 0 000000031372 -AT3 031371 0 0 0 000000031372 0 324000031372 -AT6 031371 031372 0 0 000000031372 0 324000031372 -FT1A 031371 031372 0 0 000000031372 0 000000031372 -FT2 031371 031372 0 0 0 0 000000031372 -FT2RQ 031371 031372 0 0 0 0 000000031372 -FT3 031371 031372 0 0 0 0 000000031372 -FT9 031372 031372 0 0 0 0 000000031372 -ET0 031372 031372 0 0 0 0 000000031372 -ST1A 031372 031372 0 0 0 0 000000031372 -ST9 031372 031372 0 0 0 0 000000031372 - - -*031372 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031372 031372 0 0 200000035062 0 0 -IT1 031372 0 0 0 200000035062 0 0 -AT3 031372 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 94 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0310 - -AT6 031372 035062 0 0 000000035062 0 200000035062 -FT0 031372 035062 0 0 0 0 200000035062 -FT1A 031372 035062 0 0 0 0 0 -FT9 031373 035062 0 0 0 0 0 -ET0 031373 035062 0 0 0 0 0 -ST1 031373 035062 0 0 0 0 0 -ST2 031373 035062 0 0 0 0 0 -ST9 031373 035062 0 0 0 0 0 - - -*031373 CAI 0,035136 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031373 031373 0 0 300000035136 0 000000035136 -IT1 031373 0 0 0 300000035136 0 000000035136 -AT3 031373 0 0 0 000000035136 0 300000035136 -AT6 031373 035136 0 0 000000035136 0 300000035136 -FT1A 031373 035136 0 0 000000035136 0 000000035136 -FT2 031373 035136 0 0 0 0 000000035136 -FT2RQ 031373 035136 0 0 0 0 000000035136 -FT3 031373 035136 0 0 0 0 000000035136 -FT9 031374 035136 0 0 0 0 000000035136 -ET0 031374 035136 0 0 777777742642 0 000000035136 -ST1A 031374 035136 0 0 777777742642 0 000000035136 -ST9 031374 035136 0 0 777777742642 0 000000035136 - - -*031374 MOVE 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 031374 031374 0 0 200000000000 0 0 -IT1 031374 0 0 0 200000000000 0 0 -AT3 031374 0 0 0 0 0 200000000000 -AT6 031374 0 0 0 0 0 200000000000 -FT0 031374 0 0 0 0 0 200000000000 -FT1A 031374 0 0 0 0 0 0 -FT9 031375 0 0 0 0 0 0 -ET0 031375 0 0 0 0 0 0 -ST1 031375 0 0 0 0 0 0 -ST2 031375 0 0 0 0 0 0 -ST9 031375 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 95 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0311 - -*031375 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 031375 031375 0 0 332000000000 0 0 -IT1 031375 0 0 0 332000000000 0 0 -AT3 031375 0 0 0 0 0 332000000000 -AT6 031375 0 0 0 0 0 332000000000 -FT0 031375 0 0 0 0 0 332000000000 -FT1A 031375 0 0 0 0 0 0 -FT9 031376 0 0 0 0 0 0 -ET0 031377 0 0 0 0 0 0 -ST1A 031377 0 0 0 0 0 0 -ST9 031377 0 0 0 0 0 0 - - -*031377 JUMPA 0,031400 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031377 031377 0 0 324000031400 0 000000031400 -IT1 031377 0 0 0 324000031400 0 000000031400 -AT3 031377 0 0 0 000000031400 0 324000031400 -AT6 031377 0 0 0 000000031400 0 324000031400 -FT1A 031377 0 0 0 000000031400 0 000000031400 -FT2 031377 0 0 0 0 0 000000031400 -FT2RQ 031377 0 0 0 0 0 000000031400 -FT3 031377 0 0 0 0 0 000000031400 -FT9 0 0 0 0 0 0 000000031400 -ET0 0 0 0 0 0 0 000000031400 -ST1A 0 0 0 0 0 0 000000031400 -ST9 0 0 0 0 0 0 000000031400 - - -*031400 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 200000035062 0 0 -IT1 0 0 0 0 200000035062 0 0 -AT3 0 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 96 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0312 - -AT6 0 035062 0 0 000000035062 0 200000035062 -FT0 0 035062 0 0 0 0 200000035062 -FT1A 0 035062 0 0 0 0 0 -FT9 031401 035062 0 0 0 0 0 -ET0 031401 035062 0 0 0 0 0 -ST1 031401 035062 0 0 0 0 0 -ST2 031401 035062 0 0 0 0 0 -ST9 031401 035062 0 0 0 0 0 - - -*031401 CAI 17,035136 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031401 031401 0 0 300740035136 0 000000035136 -IT1 031401 0 0 0 300740035136 0 000000035136 -AT3 031401 0 0 0 000000035136 0 300740035136 -AT6 031401 035136 0 0 000000035136 0 300740035136 -FT1A 031401 035136 0 0 000000035136 0 000000035136 -FT2 031401 035136 0 0 0 0 000000035136 -FT2RQ 031401 035136 0 0 0 0 000000035136 -FT3 031401 035136 0 0 0 0 000000035136 -FT9 031402 035136 0 0 0 0 000000035136 -ET0 031402 035136 0 0 777777742642 0 000000035136 -ST1A 031402 035136 0 0 777777742642 0 000000035136 -ST9 031402 035136 0 0 777777742642 0 000000035136 - - -*031402 MOVE 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 031402 031402 0 0 200000000000 0 0 -IT1 031402 0 0 0 200000000000 0 0 -AT3 031402 0 0 0 0 0 200000000000 -AT6 031402 0 0 0 0 0 200000000000 -FT0 031402 0 0 0 0 0 200000000000 -FT1A 031402 0 0 0 0 0 0 -FT9 031403 0 0 0 0 0 0 -ET0 031403 0 0 0 0 0 0 -ST1 031403 0 0 0 0 0 0 -ST2 031403 0 0 0 0 0 0 -ST9 031403 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 97 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0313 - -*031403 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 031403 031403 0 0 332000000000 0 0 -IT1 031403 0 0 0 332000000000 0 0 -AT3 031403 0 0 0 0 0 332000000000 -AT6 031403 0 0 0 0 0 332000000000 -FT0 031403 0 0 0 0 0 332000000000 -FT1A 031403 0 0 0 0 0 0 -FT9 031404 0 0 0 0 0 0 -ET0 031405 0 0 0 0 0 0 -ST1A 031405 0 0 0 0 0 0 -ST9 031405 0 0 0 0 0 0 - - -*031405 JUMPA 0,031406 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031405 031405 0 0 324000031406 0 000000031406 -IT1 031405 0 0 0 324000031406 0 000000031406 -AT3 031405 0 0 0 000000031406 0 324000031406 -AT6 031405 031406 0 0 000000031406 0 324000031406 -FT1A 031405 031406 0 0 000000031406 0 000000031406 -FT2 031405 031406 0 0 0 0 000000031406 -FT2RQ 031405 031406 0 0 0 0 000000031406 -FT3 031405 031406 0 0 0 0 000000031406 -FT9 031406 031406 0 0 0 0 000000031406 -ET0 031406 031406 0 0 0 0 000000031406 -ST1A 031406 031406 0 0 0 0 000000031406 -ST9 031406 031406 0 0 0 0 000000031406 - - -*031406 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031406 031406 0 0 200000035062 0 0 -IT1 031406 0 0 0 200000035062 0 0 -AT3 031406 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 98 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0314 - -AT6 031406 035062 0 0 000000035062 0 200000035062 -FT0 031406 035062 0 0 0 0 200000035062 -FT1A 031406 035062 0 0 0 0 0 -FT9 031407 035062 0 0 0 0 0 -ET0 031407 035062 0 0 0 0 0 -ST1 031407 035062 0 0 0 0 0 -ST2 031407 035062 0 0 0 0 0 -ST9 031407 035062 0 0 0 0 0 - - -*031407 CAM 17,035136 -INITIAL -C(AC)=000000 000000 -C(E)=000000 001234 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031407 031407 0 0 310740035136 0 000000001234 -IT1 031407 0 0 0 310740035136 0 000000001234 -AT3 031407 0 0 0 000000035136 0 310740035136 -AT6 031407 035136 0 0 000000035136 0 310740035136 -FT0 031407 035136 0 0 000000001234 0 310740035136 -FT1A 031407 035136 0 0 000000001234 0 000000001234 -FT2 031407 035136 0 0 0 0 000000001234 -FT2RQ 031407 035136 0 0 0 0 000000001234 -FT3 031407 035136 0 0 0 0 000000001234 -FT9 031410 035136 0 0 0 0 000000001234 -ET0 031410 035136 0 0 777777776544 0 000000001234 -ST1A 031410 035136 0 0 777777776544 0 000000001234 -ST9 031410 035136 0 0 777777776544 0 000000001234 - - -*031410 MOVE 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 031410 031410 0 0 200000000000 0 0 -IT1 031410 0 0 0 200000000000 0 0 -AT3 031410 0 0 0 0 0 200000000000 -AT6 031410 0 0 0 0 0 200000000000 -FT0 031410 0 0 0 0 0 200000000000 -FT1A 031410 0 0 0 0 0 0 -FT9 031411 0 0 0 0 0 0 -ET0 031411 0 0 0 0 0 0 -ST1 031411 0 0 0 0 0 0 -ST2 031411 0 0 0 0 0 0 -ST9 031411 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 99 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0315 - - - -*031411 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 031411 031411 0 0 332000000000 0 0 -IT1 031411 0 0 0 332000000000 0 0 -AT3 031411 0 0 0 0 0 332000000000 -AT6 031411 0 0 0 0 0 332000000000 -FT0 031411 0 0 0 0 0 332000000000 -FT1A 031411 0 0 0 0 0 0 -FT9 031412 0 0 0 0 0 0 -ET0 031413 0 0 0 0 0 0 -ST1A 031413 0 0 0 0 0 0 -ST9 031413 0 0 0 0 0 0 - - -*031413 JUMPA 0,031414 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031413 031413 0 0 324000031414 0 000000031414 -IT1 031413 0 0 0 324000031414 0 000000031414 -AT3 031413 0 0 0 000000031414 0 324000031414 -AT6 031413 031414 0 0 000000031414 0 324000031414 -FT1A 031413 031414 0 0 000000031414 0 000000031414 -FT2 031413 031414 0 0 0 0 000000031414 -FT2RQ 031413 031414 0 0 0 0 000000031414 -FT3 031413 031414 0 0 0 0 000000031414 -FT9 031414 031414 0 0 0 0 000000031414 -ET0 031414 031414 0 0 0 0 000000031414 -ST1A 031414 031414 0 0 0 0 000000031414 -ST9 031414 031414 0 0 0 0 000000031414 - - -*031414 MOVE 1,035062 -INITIAL -C(AC)=000001 000001 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031414 031414 0 0 200040035062 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 100 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0316 - -IT1 031414 0 0 0 200040035062 0 0 -AT3 031414 0 0 0 000000035062 0 200040035062 -AT6 031414 035062 0 0 000000035062 0 200040035062 -FT0 031414 035062 0 0 0 0 200040035062 -FT1A 031414 035062 0 0 0 0 0 -FT9 031415 035062 0 0 0 0 0 -ET0 031415 035062 0 0 0 0 0 -ST1 031415 035062 0 0 0 0 0 -ST2 031415 035062 0 0 0 0 0 -ST9 031415 035062 0 0 0 0 0 - - -*031415 MOVE 1,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031415 031415 0 0 200040035063 0 777777777777 -IT1 031415 0 0 0 200040035063 0 777777777777 -AT3 031415 0 0 0 000000035063 0 200040035063 -AT6 031415 035063 0 0 000000035063 0 200040035063 -FT0 031415 035063 0 0 777777777777 0 200040035063 -FT1A 031415 035063 0 0 777777777777 0 777777777777 -FT9 031416 035063 0 0 777777777777 0 777777777777 -ET0 031416 035063 0 0 777777777777 0 777777777777 -ST1 031416 035063 0 0 777777777777 0 777777777777 -ST2 031416 035063 0 0 777777777777 0 777777777777 -ST9 031416 035063 0 0 777777777777 0 777777777777 - - -*031416 SKIPN 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031416 031416 0 0 336000000001 0 777777777777 -IT1 031416 0 0 0 336000000001 0 777777777777 -AT3 031416 0 0 0 000000000001 0 336000000001 -AT6 031416 000001 0 0 000000000001 0 336000000001 -FT0 031416 000001 0 0 777777777777 0 336000000001 -FT1A 031416 000001 0 0 777777777777 0 777777777777 -FT9 031417 000001 0 0 777777777777 0 777777777777 -ET0 031420 000001 0 0 777777777777 0 777777777777 -ST1A 031420 000001 0 0 777777777777 0 777777777777 -ST9 031420 000001 0 0 777777777777 0 777777777777 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 101 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0317 - - -*031420 JUMPA 0,031421 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031420 031420 0 0 324000031421 0 000000031421 -IT1 031420 0 0 0 324000031421 0 000000031421 -AT3 031420 0 0 0 000000031421 0 324000031421 -AT6 031420 031421 0 0 000000031421 0 324000031421 -FT1A 031420 031421 0 0 000000031421 0 000000031421 -FT2 031420 031421 0 0 0 0 000000031421 -FT2RQ 031420 031421 0 0 0 0 000000031421 -FT3 031420 031421 0 0 0 0 000000031421 -FT9 031421 031421 0 0 0 0 000000031421 -ET0 031421 031421 0 0 0 0 000000031421 -ST1A 031421 031421 0 0 0 0 000000031421 -ST9 031421 031421 0 0 0 0 000000031421 - - -*031421 MOVE 1,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031421 031421 0 0 200040035062 0 0 -IT1 031421 0 0 0 200040035062 0 0 -AT3 031421 0 0 0 000000035062 0 200040035062 -AT6 031421 035062 0 0 000000035062 0 200040035062 -FT0 031421 035062 0 0 0 0 200040035062 -FT1A 031421 035062 0 0 0 0 0 -FT9 031422 035062 0 0 0 0 0 -ET0 031422 035062 0 0 0 0 0 -ST1 031422 035062 0 0 0 0 0 -ST2 031422 035062 0 0 0 0 0 -ST9 031422 035062 0 0 0 0 0 - - -*031422 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 031422 031422 0 0 332000000001 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 102 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0318 - -IT1 031422 0 0 0 332000000001 0 0 -AT3 031422 0 0 0 000000000001 0 332000000001 -AT6 031422 000001 0 0 000000000001 0 332000000001 -FT0 031422 000001 0 0 0 0 332000000001 -FT1A 031422 000001 0 0 0 0 0 -FT9 031423 000001 0 0 0 0 0 -ET0 031424 000001 0 0 0 0 0 -ST1A 031424 000001 0 0 0 0 0 -ST9 031424 000001 0 0 0 0 0 - - -*031424 JUMPA 0,031425 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031424 031424 0 0 324000031425 0 000000031425 -IT1 031424 0 0 0 324000031425 0 000000031425 -AT3 031424 0 0 0 000000031425 0 324000031425 -AT6 031424 031425 0 0 000000031425 0 324000031425 -FT1A 031424 031425 0 0 000000031425 0 000000031425 -FT2 031424 031425 0 0 0 0 000000031425 -FT2RQ 031424 031425 0 0 0 0 000000031425 -FT3 031424 031425 0 0 0 0 000000031425 -FT9 031425 031425 0 0 0 0 000000031425 -ET0 031425 031425 0 0 0 0 000000031425 -ST1A 031425 031425 0 0 0 0 000000031425 -ST9 031425 031425 0 0 0 0 000000031425 - - -*031425 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031425 031425 0 0 200000035062 0 0 -IT1 031425 0 0 0 200000035062 0 0 -AT3 031425 0 0 0 000000035062 0 200000035062 -AT6 031425 035062 0 0 000000035062 0 200000035062 -FT0 031425 035062 0 0 0 0 200000035062 -FT1A 031425 035062 0 0 0 0 0 -FT9 031426 035062 0 0 0 0 0 -ET0 031426 035062 0 0 0 0 0 -ST1 031426 035062 0 0 0 0 0 -ST2 031426 035062 0 0 0 0 0 -ST9 031426 035062 0 0 0 0 0 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 103 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0319 - - -*031426 MOVE 7,035136 -INITIAL -C(AC)=000000 000000 -C(E)=000000 001234 -FINAL -C(AC)=000000 001234 - -TIME PC MA SC FE AR MQ BR -IT0 031426 031426 0 0 200340035136 0 000000001234 -IT1 031426 0 0 0 200340035136 0 000000001234 -AT3 031426 0 0 0 000000035136 0 200340035136 -AT6 031426 035136 0 0 000000035136 0 200340035136 -FT0 031426 035136 0 0 000000001234 0 200340035136 -FT1A 031426 035136 0 0 000000001234 0 000000001234 -FT9 031427 035136 0 0 000000001234 0 000000001234 -ET0 031427 035136 0 0 000000001234 0 000000001234 -ST1 031427 035136 0 0 000000001234 0 000000001234 -ST2 031427 035136 0 0 000000001234 0 000000001234 -ST9 031427 035136 0 0 000000001234 0 000000001234 - - -*031427 SOS 0,000007 -INITIAL -C(AC)=000000 000000 -C(E)=000000 001234 -FINAL -C(AC)=000000 000000 -C(E)=000000 001234 - -TIME PC MA SC FE AR MQ BR -IT0 031427 031427 0 0 370000000007 0 000000001234 -IT1 031427 0 0 0 370000000007 0 000000001234 -AT3 031427 0 0 0 000000000007 0 370000000007 -AT6 031427 000007 0 0 000000000007 0 370000000007 -FT0 031427 000007 0 0 000000001234 0 370000000007 -FT1A 031427 000007 0 0 000000001234 0 000000001234 -FT9 031430 000007 0 0 000000001234 0 000000001234 -ET0 031430 000007 0 0 000000001233 0 000000001234 -ST5 031430 000007 0 0 000000001233 0 000000001234 -ST6A 031430 000007 0 0 000000001233 0 000000001234 -ST9 031430 000007 0 0 000000001233 0 000000001234 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 104 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0320 - -*031430 MOVE 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 031430 031430 0 0 200000000000 0 0 -IT1 031430 0 0 0 200000000000 0 0 -AT3 031430 0 0 0 0 0 200000000000 -AT6 031430 0 0 0 0 0 200000000000 -FT0 031430 0 0 0 0 0 200000000000 -FT1A 031430 0 0 0 0 0 0 -FT9 031431 0 0 0 0 0 0 -ET0 031431 0 0 0 0 0 0 -ST1 031431 0 0 0 0 0 0 -ST2 031431 0 0 0 0 0 0 -ST9 031431 0 0 0 0 0 0 - - -*031431 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 031431 031431 0 0 332000000000 0 0 -IT1 031431 0 0 0 332000000000 0 0 -AT3 031431 0 0 0 0 0 332000000000 -AT6 031431 0 0 0 0 0 332000000000 -FT0 031431 0 0 0 0 0 332000000000 -FT1A 031431 0 0 0 0 0 0 -FT9 031432 0 0 0 0 0 0 -ET0 031433 0 0 0 0 0 0 -ST1A 031433 0 0 0 0 0 0 -ST9 031433 0 0 0 0 0 0 - - -*031433 JUMPA 0,031434 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031433 031433 0 0 324000031434 0 000000031434 -IT1 031433 0 0 0 324000031434 0 000000031434 -AT3 031433 0 0 0 000000031434 0 324000031434 -AT6 031433 031434 0 0 000000031434 0 324000031434 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 105 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0321 - -FT1A 031433 031434 0 0 000000031434 0 000000031434 -FT2 031433 031434 0 0 0 0 000000031434 -FT2RQ 031433 031434 0 0 0 0 000000031434 -FT3 031433 031434 0 0 0 0 000000031434 -FT9 031434 031434 0 0 0 0 000000031434 -ET0 031434 031434 0 0 0 0 000000031434 -ST1A 031434 031434 0 0 0 0 000000031434 -ST9 031434 031434 0 0 0 0 000000031434 - - -*031434 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031434 031434 0 0 200000035062 0 0 -IT1 031434 0 0 0 200000035062 0 0 -AT3 031434 0 0 0 000000035062 0 200000035062 -AT6 031434 035062 0 0 000000035062 0 200000035062 -FT0 031434 035062 0 0 0 0 200000035062 -FT1A 031434 035062 0 0 0 0 0 -FT9 031435 035062 0 0 0 0 0 -ET0 031435 035062 0 0 0 0 0 -ST1 031435 035062 0 0 0 0 0 -ST2 031435 035062 0 0 0 0 0 -ST9 031435 035062 0 0 0 0 0 - - -*031435 MOVE 1,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031435 031435 0 0 200040035062 0 0 -IT1 031435 0 0 0 200040035062 0 0 -AT3 031435 0 0 0 000000035062 0 200040035062 -AT6 031435 035062 0 0 000000035062 0 200040035062 -FT0 031435 035062 0 0 0 0 200040035062 -FT1A 031435 035062 0 0 0 0 0 -FT9 031436 035062 0 0 0 0 0 -ET0 031436 035062 0 0 0 0 0 -ST1 031436 035062 0 0 0 0 0 -ST2 031436 035062 0 0 0 0 0 -ST9 031436 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 106 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0322 - -*031436 SKIP 1,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031436 031436 0 0 330040035063 0 777777777777 -IT1 031436 0 0 0 330040035063 0 777777777777 -AT3 031436 0 0 0 000000035063 0 330040035063 -AT6 031436 035063 0 0 000000035063 0 330040035063 -FT0 031436 035063 0 0 777777777777 0 330040035063 -FT1A 031436 035063 0 0 777777777777 0 777777777777 -FT9 031437 035063 0 0 777777777777 0 777777777777 -ET0 031437 035063 0 0 777777777777 0 777777777777 -ST1 031437 035063 0 0 777777777777 0 777777777777 -ST2 031437 035063 0 0 777777777777 0 777777777777 -ST9 031437 035063 0 0 777777777777 0 777777777777 - - -*031437 SKIPN 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031437 031437 0 0 336000000001 0 777777777777 -IT1 031437 0 0 0 336000000001 0 777777777777 -AT3 031437 0 0 0 000000000001 0 336000000001 -AT6 031437 000001 0 0 000000000001 0 336000000001 -FT0 031437 000001 0 0 777777777777 0 336000000001 -FT1A 031437 000001 0 0 777777777777 0 777777777777 -FT9 031440 000001 0 0 777777777777 0 777777777777 -ET0 031441 000001 0 0 777777777777 0 777777777777 -ST1A 031441 000001 0 0 777777777777 0 777777777777 -ST9 031441 000001 0 0 777777777777 0 777777777777 - - -*031441 JUMPA 0,031442 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031441 031441 0 0 324000031442 0 000000031442 -IT1 031441 0 0 0 324000031442 0 000000031442 -AT3 031441 0 0 0 000000031442 0 324000031442 -AT6 031441 031442 0 0 000000031442 0 324000031442 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 107 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0323 - -FT1A 031441 031442 0 0 000000031442 0 000000031442 -FT2 031441 031442 0 0 0 0 000000031442 -FT2RQ 031441 031442 0 0 0 0 000000031442 -FT3 031441 031442 0 0 0 0 000000031442 -FT9 031442 031442 0 0 0 0 000000031442 -ET0 031442 031442 0 0 0 0 000000031442 -ST1A 031442 031442 0 0 0 0 000000031442 -ST9 031442 031442 0 0 0 0 000000031442 - - -*031442 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 031442 031442 0 0 332000000000 0 0 -IT1 031442 0 0 0 332000000000 0 0 -AT3 031442 0 0 0 0 0 332000000000 -AT6 031442 0 0 0 0 0 332000000000 -FT0 031442 0 0 0 0 0 332000000000 -FT1A 031442 0 0 0 0 0 0 -FT9 031443 0 0 0 0 0 0 -ET0 031444 0 0 0 0 0 0 -ST1A 031444 0 0 0 0 0 0 -ST9 031444 0 0 0 0 0 0 - - -*031444 JUMPA 0,031445 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031444 031444 0 0 324000031445 0 000000031445 -IT1 031444 0 0 0 324000031445 0 000000031445 -AT3 031444 0 0 0 000000031445 0 324000031445 -AT6 031444 031445 0 0 000000031445 0 324000031445 -FT1A 031444 031445 0 0 000000031445 0 000000031445 -FT2 031444 031445 0 0 0 0 000000031445 -FT2RQ 031444 031445 0 0 0 0 000000031445 -FT3 031444 031445 0 0 0 0 000000031445 -FT9 031445 031445 0 0 0 0 000000031445 -ET0 031445 031445 0 0 0 0 000000031445 -ST1A 031445 031445 0 0 0 0 000000031445 -ST9 031445 031445 0 0 0 0 000000031445 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 108 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0324 - -*031445 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031445 031445 0 0 200000035062 0 0 -IT1 031445 0 0 0 200000035062 0 0 -AT3 031445 0 0 0 000000035062 0 200000035062 -AT6 031445 035062 0 0 000000035062 0 200000035062 -FT0 031445 035062 0 0 0 0 200000035062 -FT1A 031445 035062 0 0 0 0 0 -FT9 031446 035062 0 0 0 0 0 -ET0 031446 035062 0 0 0 0 0 -ST1 031446 035062 0 0 0 0 0 -ST2 031446 035062 0 0 0 0 0 -ST9 031446 035062 0 0 0 0 0 - - -*031446 MOVE 2,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031446 031446 0 0 200100035062 0 0 -IT1 031446 0 0 0 200100035062 0 0 -AT3 031446 0 0 0 000000035062 0 200100035062 -AT6 031446 035062 0 0 000000035062 0 200100035062 -FT0 031446 035062 0 0 0 0 200100035062 -FT1A 031446 035062 0 0 0 0 0 -FT9 031447 035062 0 0 0 0 0 -ET0 031447 035062 0 0 0 0 0 -ST1 031447 035062 0 0 0 0 0 -ST2 031447 035062 0 0 0 0 0 -ST9 031447 035062 0 0 0 0 0 - - -*031447 SKIP 2,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031447 031447 0 0 330100035063 0 777777777777 -IT1 031447 0 0 0 330100035063 0 777777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 109 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0325 - -AT3 031447 0 0 0 000000035063 0 330100035063 -AT6 031447 035063 0 0 000000035063 0 330100035063 -FT0 031447 035063 0 0 777777777777 0 330100035063 -FT1A 031447 035063 0 0 777777777777 0 777777777777 -FT9 031450 035063 0 0 777777777777 0 777777777777 -ET0 031450 035063 0 0 777777777777 0 777777777777 -ST1 031450 035063 0 0 777777777777 0 777777777777 -ST2 031450 035063 0 0 777777777777 0 777777777777 -ST9 031450 035063 0 0 777777777777 0 777777777777 - - -*031450 SKIPN 0,000002 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031450 031450 0 0 336000000002 0 777777777777 -IT1 031450 0 0 0 336000000002 0 777777777777 -AT3 031450 0 0 0 000000000002 0 336000000002 -AT6 031450 000002 0 0 000000000002 0 336000000002 -FT0 031450 000002 0 0 777777777777 0 336000000002 -FT1A 031450 000002 0 0 777777777777 0 777777777777 -FT9 031451 000002 0 0 777777777777 0 777777777777 -ET0 031452 000002 0 0 777777777777 0 777777777777 -ST1A 031452 000002 0 0 777777777777 0 777777777777 -ST9 031452 000002 0 0 777777777777 0 777777777777 - - -*031452 JUMPA 0,031453 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031452 031452 0 0 324000031453 0 000000031453 -IT1 031452 0 0 0 324000031453 0 000000031453 -AT3 031452 0 0 0 000000031453 0 324000031453 -AT6 031452 031453 0 0 000000031453 0 324000031453 -FT1A 031452 031453 0 0 000000031453 0 000000031453 -FT2 031452 031453 0 0 0 0 000000031453 -FT2RQ 031452 031453 0 0 0 0 000000031453 -FT3 031452 031453 0 0 0 0 000000031453 -FT9 031453 031453 0 0 0 0 000000031453 -ET0 031453 031453 0 0 0 0 000000031453 -ST1A 031453 031453 0 0 0 0 000000031453 -ST9 031453 031453 0 0 0 0 000000031453 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 110 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0326 - -*031453 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 031453 031453 0 0 332000000000 0 0 -IT1 031453 0 0 0 332000000000 0 0 -AT3 031453 0 0 0 0 0 332000000000 -AT6 031453 0 0 0 0 0 332000000000 -FT0 031453 0 0 0 0 0 332000000000 -FT1A 031453 0 0 0 0 0 0 -FT9 031454 0 0 0 0 0 0 -ET0 031455 0 0 0 0 0 0 -ST1A 031455 0 0 0 0 0 0 -ST9 031455 0 0 0 0 0 0 - - -*031455 JUMPA 0,031456 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031455 031455 0 0 324000031456 0 000000031456 -IT1 031455 0 0 0 324000031456 0 000000031456 -AT3 031455 0 0 0 000000031456 0 324000031456 -AT6 031455 031456 0 0 000000031456 0 324000031456 -FT1A 031455 031456 0 0 000000031456 0 000000031456 -FT2 031455 031456 0 0 0 0 000000031456 -FT2RQ 031455 031456 0 0 0 0 000000031456 -FT3 031455 031456 0 0 0 0 000000031456 -FT9 031456 031456 0 0 0 0 000000031456 -ET0 031456 031456 0 0 0 0 000000031456 -ST1A 031456 031456 0 0 0 0 000000031456 -ST9 031456 031456 0 0 0 0 000000031456 - - -*031456 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031456 031456 0 0 200000035062 0 0 -IT1 031456 0 0 0 200000035062 0 0 -AT3 031456 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 111 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0327 - -AT6 031456 035062 0 0 000000035062 0 200000035062 -FT0 031456 035062 0 0 0 0 200000035062 -FT1A 031456 035062 0 0 0 0 0 -FT9 031457 035062 0 0 0 0 0 -ET0 031457 035062 0 0 0 0 0 -ST1 031457 035062 0 0 0 0 0 -ST2 031457 035062 0 0 0 0 0 -ST9 031457 035062 0 0 0 0 0 - - -*031457 MOVE 4,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031457 031457 0 0 200200035062 0 0 -IT1 031457 0 0 0 200200035062 0 0 -AT3 031457 0 0 0 000000035062 0 200200035062 -AT6 031457 035062 0 0 000000035062 0 200200035062 -FT0 031457 035062 0 0 0 0 200200035062 -FT1A 031457 035062 0 0 0 0 0 -FT9 031460 035062 0 0 0 0 0 -ET0 031460 035062 0 0 0 0 0 -ST1 031460 035062 0 0 0 0 0 -ST2 031460 035062 0 0 0 0 0 -ST9 031460 035062 0 0 0 0 0 - - -*031460 SKIP 4,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031460 031460 0 0 330200035063 0 777777777777 -IT1 031460 0 0 0 330200035063 0 777777777777 -AT3 031460 0 0 0 000000035063 0 330200035063 -AT6 031460 035063 0 0 000000035063 0 330200035063 -FT0 031460 035063 0 0 777777777777 0 330200035063 -FT1A 031460 035063 0 0 777777777777 0 777777777777 -FT9 031461 035063 0 0 777777777777 0 777777777777 -ET0 031461 035063 0 0 777777777777 0 777777777777 -ST1 031461 035063 0 0 777777777777 0 777777777777 -ST2 031461 035063 0 0 777777777777 0 777777777777 -ST9 031461 035063 0 0 777777777777 0 777777777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 112 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0328 - -*031461 SKIPN 0,000004 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031461 031461 0 0 336000000004 0 777777777777 -IT1 031461 0 0 0 336000000004 0 777777777777 -AT3 031461 0 0 0 000000000004 0 336000000004 -AT6 031461 000004 0 0 000000000004 0 336000000004 -FT0 031461 000004 0 0 777777777777 0 336000000004 -FT1A 031461 000004 0 0 777777777777 0 777777777777 -FT9 031462 000004 0 0 777777777777 0 777777777777 -ET0 031463 000004 0 0 777777777777 0 777777777777 -ST1A 031463 000004 0 0 777777777777 0 777777777777 -ST9 031463 000004 0 0 777777777777 0 777777777777 - - -*031463 JUMPA 0,031464 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031463 031463 0 0 324000031464 0 000000031464 -IT1 031463 0 0 0 324000031464 0 000000031464 -AT3 031463 0 0 0 000000031464 0 324000031464 -AT6 031463 031464 0 0 000000031464 0 324000031464 -FT1A 031463 031464 0 0 000000031464 0 000000031464 -FT2 031463 031464 0 0 0 0 000000031464 -FT2RQ 031463 031464 0 0 0 0 000000031464 -FT3 031463 031464 0 0 0 0 000000031464 -FT9 031464 031464 0 0 0 0 000000031464 -ET0 031464 031464 0 0 0 0 000000031464 -ST1A 031464 031464 0 0 0 0 000000031464 -ST9 031464 031464 0 0 0 0 000000031464 - - -*031464 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 031464 031464 0 0 332000000000 0 0 -IT1 031464 0 0 0 332000000000 0 0 -AT3 031464 0 0 0 0 0 332000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 113 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0329 - -AT6 031464 0 0 0 0 0 332000000000 -FT0 031464 0 0 0 0 0 332000000000 -FT1A 031464 0 0 0 0 0 0 -FT9 031465 0 0 0 0 0 0 -ET0 031466 0 0 0 0 0 0 -ST1A 031466 0 0 0 0 0 0 -ST9 031466 0 0 0 0 0 0 - - -*031466 JUMPA 0,031467 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031466 031466 0 0 324000031467 0 000000031467 -IT1 031466 0 0 0 324000031467 0 000000031467 -AT3 031466 0 0 0 000000031467 0 324000031467 -AT6 031466 031467 0 0 000000031467 0 324000031467 -FT1A 031466 031467 0 0 000000031467 0 000000031467 -FT2 031466 031467 0 0 0 0 000000031467 -FT2RQ 031466 031467 0 0 0 0 000000031467 -FT3 031466 031467 0 0 0 0 000000031467 -FT9 031467 031467 0 0 0 0 000000031467 -ET0 031467 031467 0 0 0 0 000000031467 -ST1A 031467 031467 0 0 0 0 000000031467 -ST9 031467 031467 0 0 0 0 000000031467 - - -*031467 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031467 031467 0 0 200000035062 0 0 -IT1 031467 0 0 0 200000035062 0 0 -AT3 031467 0 0 0 000000035062 0 200000035062 -AT6 031467 035062 0 0 000000035062 0 200000035062 -FT0 031467 035062 0 0 0 0 200000035062 -FT1A 031467 035062 0 0 0 0 0 -FT9 031470 035062 0 0 0 0 0 -ET0 031470 035062 0 0 0 0 0 -ST1 031470 035062 0 0 0 0 0 -ST2 031470 035062 0 0 0 0 0 -ST9 031470 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 114 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0330 - -*031470 MOVE 10,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031470 031470 0 0 200400035062 0 0 -IT1 031470 0 0 0 200400035062 0 0 -AT3 031470 0 0 0 000000035062 0 200400035062 -AT6 031470 035062 0 0 000000035062 0 200400035062 -FT0 031470 035062 0 0 0 0 200400035062 -FT1A 031470 035062 0 0 0 0 0 -FT9 031471 035062 0 0 0 0 0 -ET0 031471 035062 0 0 0 0 0 -ST1 031471 035062 0 0 0 0 0 -ST2 031471 035062 0 0 0 0 0 -ST9 031471 035062 0 0 0 0 0 - - -*031471 SKIP 10,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031471 031471 0 0 330400035063 0 777777777777 -IT1 031471 0 0 0 330400035063 0 777777777777 -AT3 031471 0 0 0 000000035063 0 330400035063 -AT6 031471 035063 0 0 000000035063 0 330400035063 -FT0 031471 035063 0 0 777777777777 0 330400035063 -FT1A 031471 035063 0 0 777777777777 0 777777777777 -FT9 031472 035063 0 0 777777777777 0 777777777777 -ET0 031472 035063 0 0 777777777777 0 777777777777 -ST1 031472 035063 0 0 777777777777 0 777777777777 -ST2 031472 035063 0 0 777777777777 0 777777777777 -ST9 031472 035063 0 0 777777777777 0 777777777777 - - -*031472 SKIPN 0,000010 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031472 031472 0 0 336000000010 0 777777777777 -IT1 031472 0 0 0 336000000010 0 777777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 115 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0331 - -AT3 031472 0 0 0 000000000010 0 336000000010 -AT6 031472 000010 0 0 000000000010 0 336000000010 -FT0 031472 000010 0 0 777777777777 0 336000000010 -FT1A 031472 000010 0 0 777777777777 0 777777777777 -FT9 031473 000010 0 0 777777777777 0 777777777777 -ET0 031474 000010 0 0 777777777777 0 777777777777 -ST1A 031474 000010 0 0 777777777777 0 777777777777 -ST9 031474 000010 0 0 777777777777 0 777777777777 - - -*031474 JUMPA 0,031475 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031474 031474 0 0 324000031475 0 000000031475 -IT1 031474 0 0 0 324000031475 0 000000031475 -AT3 031474 0 0 0 000000031475 0 324000031475 -AT6 031474 031475 0 0 000000031475 0 324000031475 -FT1A 031474 031475 0 0 000000031475 0 000000031475 -FT2 031474 031475 0 0 0 0 000000031475 -FT2RQ 031474 031475 0 0 0 0 000000031475 -FT3 031474 031475 0 0 0 0 000000031475 -FT9 031475 031475 0 0 0 0 000000031475 -ET0 031475 031475 0 0 0 0 000000031475 -ST1A 031475 031475 0 0 0 0 000000031475 -ST9 031475 031475 0 0 0 0 000000031475 - - -*031475 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 031475 031475 0 0 332000000000 0 0 -IT1 031475 0 0 0 332000000000 0 0 -AT3 031475 0 0 0 0 0 332000000000 -AT6 031475 0 0 0 0 0 332000000000 -FT0 031475 0 0 0 0 0 332000000000 -FT1A 031475 0 0 0 0 0 0 -FT9 031476 0 0 0 0 0 0 -ET0 031477 0 0 0 0 0 0 -ST1A 031477 0 0 0 0 0 0 -ST9 031477 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 116 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0332 - -*031477 JUMPA 0,031500 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031477 031477 0 0 324000031500 0 000000031500 -IT1 031477 0 0 0 324000031500 0 000000031500 -AT3 031477 0 0 0 000000031500 0 324000031500 -AT6 031477 0 0 0 000000031500 0 324000031500 -FT1A 031477 0 0 0 000000031500 0 000000031500 -FT2 031477 0 0 0 0 0 000000031500 -FT2RQ 031477 0 0 0 0 0 000000031500 -FT3 031477 0 0 0 0 0 000000031500 -FT9 0 0 0 0 0 0 000000031500 -ET0 0 0 0 0 0 0 000000031500 -ST1A 0 0 0 0 0 0 000000031500 -ST9 0 0 0 0 0 0 000000031500 - - -*031500 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 200000035062 0 0 -IT1 0 0 0 0 200000035062 0 0 -AT3 0 0 0 0 000000035062 0 200000035062 -AT6 0 035062 0 0 000000035062 0 200000035062 -FT0 0 035062 0 0 0 0 200000035062 -FT1A 0 035062 0 0 0 0 0 -FT9 031501 035062 0 0 0 0 0 -ET0 031501 035062 0 0 0 0 0 -ST1 031501 035062 0 0 0 0 0 -ST2 031501 035062 0 0 0 0 0 -ST9 031501 035062 0 0 0 0 0 - - -*031501 SKIP 0,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031501 031501 0 0 330000035063 0 777777777777 -IT1 031501 0 0 0 330000035063 0 777777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 117 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0333 - -AT3 031501 0 0 0 000000035063 0 330000035063 -AT6 031501 035063 0 0 000000035063 0 330000035063 -FT0 031501 035063 0 0 777777777777 0 330000035063 -FT1A 031501 035063 0 0 777777777777 0 777777777777 -FT9 031502 035063 0 0 777777777777 0 777777777777 -ET0 031502 035063 0 0 777777777777 0 777777777777 -ST1A 031502 035063 0 0 777777777777 0 777777777777 -ST9 031502 035063 0 0 777777777777 0 777777777777 - - -*031502 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 031502 031502 0 0 332000000000 0 0 -IT1 031502 0 0 0 332000000000 0 0 -AT3 031502 0 0 0 0 0 332000000000 -AT6 031502 0 0 0 0 0 332000000000 -FT0 031502 0 0 0 0 0 332000000000 -FT1A 031502 0 0 0 0 0 0 -FT9 031503 0 0 0 0 0 0 -ET0 031504 0 0 0 0 0 0 -ST1A 031504 0 0 0 0 0 0 -ST9 031504 0 0 0 0 0 0 - - -*031504 JUMPA 0,031505 -INITIAL -C(AC)=000000 000000 -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 0 0 000000031505 -FT3 031504 031505 0 0 0 0 000000031505 -FT9 031505 031505 0 0 0 0 000000031505 -ET0 031505 031505 0 0 0 0 000000031505 -ST1A 031505 031505 0 0 0 0 000000031505 -ST9 031505 031505 0 0 0 0 000000031505 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 118 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0334 - -*031505 MOVE 7,035063 -INITIAL -C(AC)=000000 001233 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031505 031505 0 0 200340035063 0 777777777777 -IT1 031505 0 0 0 200340035063 0 777777777777 -AT3 031505 0 0 0 000000035063 0 200340035063 -AT6 031505 035063 0 0 000000035063 0 200340035063 -FT0 031505 035063 0 0 777777777777 0 200340035063 -FT1A 031505 035063 0 0 777777777777 0 777777777777 -FT9 031506 035063 0 0 777777777777 0 777777777777 -ET0 031506 035063 0 0 777777777777 0 777777777777 -ST1 031506 035063 0 0 777777777777 0 777777777777 -ST2 031506 035063 0 0 777777777777 0 777777777777 -ST9 031506 035063 0 0 777777777777 0 777777777777 - - -*031506 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031506 031506 0 0 200000035062 0 0 -IT1 031506 0 0 0 200000035062 0 0 -AT3 031506 0 0 0 000000035062 0 200000035062 -AT6 031506 035062 0 0 000000035062 0 200000035062 -FT0 031506 035062 0 0 0 0 200000035062 -FT1A 031506 035062 0 0 0 0 0 -FT9 031507 035062 0 0 0 0 0 -ET0 031507 035062 0 0 0 0 0 -ST1 031507 035062 0 0 0 0 0 -ST2 031507 035062 0 0 0 0 0 -ST9 031507 035062 0 0 0 0 0 - - -*031507 MOVSS 0,000007 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=000000 000000 -C(E)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031507 031507 0 0 207000000007 0 777777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 119 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0335 - -IT1 031507 0 0 0 207000000007 0 777777777777 -AT3 031507 0 0 0 000000000007 0 207000000007 -AT6 031507 000007 0 0 000000000007 0 207000000007 -FT0 031507 000007 0 0 777777777777 0 207000000007 -FT1A 031507 000007 0 0 777777777777 0 777777777777 -FT9 031510 000007 0 0 777777777777 0 777777777777 -ET0 031510 000007 0 0 777777777777 0 777777777777 -ST5 031510 000007 0 0 777777777777 0 777777777777 -ST6A 031510 000007 0 0 777777777777 0 777777777777 -ST9 031510 000007 0 0 777777777777 0 777777777777 - - -*031510 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 031510 031510 0 0 332000000000 0 0 -IT1 031510 0 0 0 332000000000 0 0 -AT3 031510 0 0 0 0 0 332000000000 -AT6 031510 0 0 0 0 0 332000000000 -FT0 031510 0 0 0 0 0 332000000000 -FT1A 031510 0 0 0 0 0 0 -FT9 031511 0 0 0 0 0 0 -ET0 031512 0 0 0 0 0 0 -ST1A 031512 0 0 0 0 0 0 -ST9 031512 0 0 0 0 0 0 - - -*031512 JUMPA 0,031513 -INITIAL -C(AC)=000000 000000 -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 0 0 000000031513 -FT3 031512 031513 0 0 0 0 000000031513 -FT9 031513 031513 0 0 0 0 000000031513 -ET0 031513 031513 0 0 0 0 000000031513 -ST1A 031513 031513 0 0 0 0 000000031513 -ST9 031513 031513 0 0 0 0 000000031513 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 120 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0336 - - -*031513 MOVE 7,035063 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031513 031513 0 0 200340035063 0 777777777777 -IT1 031513 0 0 0 200340035063 0 777777777777 -AT3 031513 0 0 0 000000035063 0 200340035063 -AT6 031513 035063 0 0 000000035063 0 200340035063 -FT0 031513 035063 0 0 777777777777 0 200340035063 -FT1A 031513 035063 0 0 777777777777 0 777777777777 -FT9 031514 035063 0 0 777777777777 0 777777777777 -ET0 031514 035063 0 0 777777777777 0 777777777777 -ST1 031514 035063 0 0 777777777777 0 777777777777 -ST2 031514 035063 0 0 777777777777 0 777777777777 -ST9 031514 035063 0 0 777777777777 0 777777777777 - - -*031514 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031514 031514 0 0 200000035062 0 0 -IT1 031514 0 0 0 200000035062 0 0 -AT3 031514 0 0 0 000000035062 0 200000035062 -AT6 031514 035062 0 0 000000035062 0 200000035062 -FT0 031514 035062 0 0 0 0 200000035062 -FT1A 031514 035062 0 0 0 0 0 -FT9 031515 035062 0 0 0 0 0 -ET0 031515 035062 0 0 0 0 0 -ST1 031515 035062 0 0 0 0 0 -ST2 031515 035062 0 0 0 0 0 -ST9 031515 035062 0 0 0 0 0 - - -*031515 HRRS 0,000007 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL - -C(E)=777777 777777 - -TIME PC MA SC FE AR MQ BR -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 121 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0337 - -IT0 031515 031515 0 0 543000000007 0 777777777777 -IT1 031515 0 0 0 543000000007 0 777777777777 -AT3 031515 0 0 0 000000000007 0 543000000007 -AT6 031515 000007 0 0 000000000007 0 543000000007 -FT0 031515 000007 0 0 777777777777 0 543000000007 -FT1A 031515 000007 0 0 777777777777 0 777777777777 -FT9 031516 000007 0 0 777777777777 0 777777777777 -ET0 031516 000007 0 0 777777777777 0 777777777777 -ST5 031516 000007 0 0 777777777777 0 777777777777 -ST6A 031516 000007 0 0 777777777777 0 777777777777 -ST9 031516 000007 0 0 777777777777 0 777777777777 - - -*031516 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 031516 031516 0 0 332000000000 0 0 -IT1 031516 0 0 0 332000000000 0 0 -AT3 031516 0 0 0 0 0 332000000000 -AT6 031516 0 0 0 0 0 332000000000 -FT0 031516 0 0 0 0 0 332000000000 -FT1A 031516 0 0 0 0 0 0 -FT9 031517 0 0 0 0 0 0 -ET0 031520 0 0 0 0 0 0 -ST1A 031520 0 0 0 0 0 0 -ST9 031520 0 0 0 0 0 0 - - -*031520 JUMPA 0,031521 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031520 031520 0 0 324000031521 0 000000031521 -IT1 031520 0 0 0 324000031521 0 000000031521 -AT3 031520 0 0 0 000000031521 0 324000031521 -AT6 031520 031521 0 0 000000031521 0 324000031521 -FT1A 031520 031521 0 0 000000031521 0 000000031521 -FT2 031520 031521 0 0 0 0 000000031521 -FT2RQ 031520 031521 0 0 0 0 000000031521 -FT3 031520 031521 0 0 0 0 000000031521 -FT9 031521 031521 0 0 0 0 000000031521 -ET0 031521 031521 0 0 0 0 000000031521 -ST1A 031521 031521 0 0 0 0 000000031521 -ST9 031521 031521 0 0 0 0 000000031521 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 122 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0338 - - - -*031521 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031521 031521 0 0 200000035062 0 0 -IT1 031521 0 0 0 200000035062 0 0 -AT3 031521 0 0 0 000000035062 0 200000035062 -AT6 031521 035062 0 0 000000035062 0 200000035062 -FT0 031521 035062 0 0 0 0 200000035062 -FT1A 031521 035062 0 0 0 0 0 -FT9 031522 035062 0 0 0 0 0 -ET0 031522 035062 0 0 0 0 0 -ST1 031522 035062 0 0 0 0 0 -ST2 031522 035062 0 0 0 0 0 -ST9 031522 035062 0 0 0 0 0 - - -*031522 JUMP 0,031523 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031522 031522 0 0 320000031523 0 000000031523 -IT1 031522 0 0 0 320000031523 0 000000031523 -AT3 031522 0 0 0 000000031523 0 320000031523 -AT6 031522 031523 0 0 000000031523 0 320000031523 -FT1A 031522 031523 0 0 000000031523 0 000000031523 -FT2 031522 031523 0 0 0 0 000000031523 -FT2RQ 031522 031523 0 0 0 0 000000031523 -FT3 031522 031523 0 0 0 0 000000031523 -FT9 031523 031523 0 0 0 0 000000031523 -ET0 031523 031523 0 0 0 0 000000031523 -ST1A 031523 031523 0 0 0 0 000000031523 -ST9 031523 031523 0 0 0 0 000000031523 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 123 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0339 - -*031523 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 031523 031523 0 0 332000000000 0 0 -IT1 031523 0 0 0 332000000000 0 0 -AT3 031523 0 0 0 0 0 332000000000 -AT6 031523 0 0 0 0 0 332000000000 -FT0 031523 0 0 0 0 0 332000000000 -FT1A 031523 0 0 0 0 0 0 -FT9 031524 0 0 0 0 0 0 -ET0 031525 0 0 0 0 0 0 -ST1A 031525 0 0 0 0 0 0 -ST9 031525 0 0 0 0 0 0 - - -*031525 JUMPA 0,031526 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031525 031525 0 0 324000031526 0 000000031526 -IT1 031525 0 0 0 324000031526 0 000000031526 -AT3 031525 0 0 0 000000031526 0 324000031526 -AT6 031525 031526 0 0 000000031526 0 324000031526 -FT1A 031525 031526 0 0 000000031526 0 000000031526 -FT2 031525 031526 0 0 0 0 000000031526 -FT2RQ 031525 031526 0 0 0 0 000000031526 -FT3 031525 031526 0 0 0 0 000000031526 -FT9 031526 031526 0 0 0 0 000000031526 -ET0 031526 031526 0 0 0 0 000000031526 -ST1A 031526 031526 0 0 0 0 000000031526 -ST9 031526 031526 0 0 0 0 000000031526 - - -*031526 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031526 031526 0 0 200000035062 0 0 -IT1 031526 0 0 0 200000035062 0 0 -AT3 031526 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 124 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0340 - -AT6 031526 035062 0 0 000000035062 0 200000035062 -FT0 031526 035062 0 0 0 0 200000035062 -FT1A 031526 035062 0 0 0 0 0 -FT9 031527 035062 0 0 0 0 0 -ET0 031527 035062 0 0 0 0 0 -ST1 031527 035062 0 0 0 0 0 -ST2 031527 035062 0 0 0 0 0 -ST9 031527 035062 0 0 0 0 0 - - -*031527 MOVS 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 031527 031527 0 0 204000000000 0 0 -IT1 031527 0 0 0 204000000000 0 0 -AT3 031527 0 0 0 0 0 204000000000 -AT6 031527 0 0 0 0 0 204000000000 -FT0 031527 0 0 0 0 0 204000000000 -FT1A 031527 0 0 0 0 0 0 -FT9 031530 0 0 0 0 0 0 -ET0 031530 0 0 0 0 0 0 -ST1 031530 0 0 0 0 0 0 -ST2 031530 0 0 0 0 0 0 -ST9 031530 0 0 0 0 0 0 - - -*031530 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 031530 031530 0 0 332000000000 0 0 -IT1 031530 0 0 0 332000000000 0 0 -AT3 031530 0 0 0 0 0 332000000000 -AT6 031530 0 0 0 0 0 332000000000 -FT0 031530 0 0 0 0 0 332000000000 -FT1A 031530 0 0 0 0 0 0 -FT9 031531 0 0 0 0 0 0 -ET0 031532 0 0 0 0 0 0 -ST1A 031532 0 0 0 0 0 0 -ST9 031532 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 125 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0341 - -*031532 JUMPA 0,031533 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031532 031532 0 0 324000031533 0 000000031533 -IT1 031532 0 0 0 324000031533 0 000000031533 -AT3 031532 0 0 0 000000031533 0 324000031533 -AT6 031532 031533 0 0 000000031533 0 324000031533 -FT1A 031532 031533 0 0 000000031533 0 000000031533 -FT2 031532 031533 0 0 0 0 000000031533 -FT2RQ 031532 031533 0 0 0 0 000000031533 -FT3 031532 031533 0 0 0 0 000000031533 -FT9 031533 031533 0 0 0 0 000000031533 -ET0 031533 031533 0 0 0 0 000000031533 -ST1A 031533 031533 0 0 0 0 000000031533 -ST9 031533 031533 0 0 0 0 000000031533 - - -*031533 MOVE 0,035137 -INITIAL -C(AC)=000000 000000 -C(E)=000000 777777 -FINAL -C(AC)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031533 031533 0 0 200000035137 0 000000777777 -IT1 031533 0 0 0 200000035137 0 000000777777 -AT3 031533 0 0 0 000000035137 0 200000035137 -AT6 031533 035137 0 0 000000035137 0 200000035137 -FT0 031533 035137 0 0 000000777777 0 200000035137 -FT1A 031533 035137 0 0 000000777777 0 000000777777 -FT9 031534 035137 0 0 000000777777 0 000000777777 -ET0 031534 035137 0 0 000000777777 0 000000777777 -ST1 031534 035137 0 0 000000777777 0 000000777777 -ST2 031534 035137 0 0 000000777777 0 000000777777 -ST9 031534 035137 0 0 000000777777 0 000000777777 - - -*031534 MOVS 0,000000 -INITIAL -C(AC)=000000 777777 -C(E)=000000 777777 -FINAL -C(AC)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031534 031534 0 0 204000000000 0 000000777777 -IT1 031534 0 0 0 204000000000 0 000000777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 126 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0342 - -AT3 031534 0 0 0 0 0 204000000000 -AT6 031534 0 0 0 0 0 204000000000 -FT0 031534 0 0 0 000000777777 0 204000000000 -FT1A 031534 0 0 0 000000777777 0 000000777777 -FT9 031535 0 0 0 000000777777 0 000000777777 -ET0 031535 0 0 0 777777000000 0 000000777777 -ST1 031535 0 0 0 777777000000 0 000000777777 -ST2 031535 0 0 0 777777000000 0 000000777777 -ST9 031535 0 0 0 777777000000 0 000000777777 - - -*031535 SKIPN 0,000000 -INITIAL -C(AC)=777777 000000 -C(E)=777777 000000 -FINAL -C(AC)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031535 031535 0 0 336000000000 0 777777000000 -IT1 031535 0 0 0 336000000000 0 777777000000 -AT3 031535 0 0 0 0 0 336000000000 -AT6 031535 0 0 0 0 0 336000000000 -FT0 031535 0 0 0 777777000000 0 336000000000 -FT1A 031535 0 0 0 777777000000 0 777777000000 -FT9 031536 0 0 0 777777000000 0 777777000000 -ET0 031537 0 0 0 777777000000 0 777777000000 -ST1A 031537 0 0 0 777777000000 0 777777000000 -ST9 031537 0 0 0 777777000000 0 777777000000 - - -*031537 JUMPA 0,031540 -INITIAL -C(AC)=777777 000000 -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 777777000000 0 000000031540 -FT3 031537 031540 0 0 777777000000 0 000000031540 -FT9 031540 031540 0 0 777777000000 0 000000031540 -ET0 031540 031540 0 0 777777000000 0 000000031540 -ST1A 031540 031540 0 0 777777000000 0 000000031540 -ST9 031540 031540 0 0 777777000000 0 000000031540 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 127 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0343 - -*031540 MOVE 0,035140 -INITIAL -C(AC)=777777 000000 -C(E)=777777 000000 -FINAL -C(AC)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031540 031540 0 0 200000035140 0 777777000000 -IT1 031540 0 0 0 200000035140 0 777777000000 -AT3 031540 0 0 0 000000035140 0 200000035140 -AT6 031540 035140 0 0 000000035140 0 200000035140 -FT0 031540 035140 0 0 777777000000 0 200000035140 -FT1A 031540 035140 0 0 777777000000 0 777777000000 -FT9 031541 035140 0 0 777777000000 0 777777000000 -ET0 031541 035140 0 0 777777000000 0 777777000000 -ST1 031541 035140 0 0 777777000000 0 777777000000 -ST2 031541 035140 0 0 777777000000 0 777777000000 -ST9 031541 035140 0 0 777777000000 0 777777000000 - - -*031541 MOVS 0,000000 -INITIAL -C(AC)=777777 000000 -C(E)=777777 000000 -FINAL -C(AC)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031541 031541 0 0 204000000000 0 777777000000 -IT1 031541 0 0 0 204000000000 0 777777000000 -AT3 031541 0 0 0 0 0 204000000000 -AT6 031541 0 0 0 0 0 204000000000 -FT0 031541 0 0 0 777777000000 0 204000000000 -FT1A 031541 0 0 0 777777000000 0 777777000000 -FT9 031542 0 0 0 777777000000 0 777777000000 -ET0 031542 0 0 0 000000777777 0 777777000000 -ST1 031542 0 0 0 000000777777 0 777777000000 -ST2 031542 0 0 0 000000777777 0 777777000000 -ST9 031542 0 0 0 000000777777 0 777777000000 - - -*031542 SKIPN 0,000000 -INITIAL -C(AC)=000000 777777 -C(E)=000000 777777 -FINAL -C(AC)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031542 031542 0 0 336000000000 0 000000777777 -IT1 031542 0 0 0 336000000000 0 000000777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 128 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0344 - -AT3 031542 0 0 0 0 0 336000000000 -AT6 031542 0 0 0 0 0 336000000000 -FT0 031542 0 0 0 000000777777 0 336000000000 -FT1A 031542 0 0 0 000000777777 0 000000777777 -FT9 031543 0 0 0 000000777777 0 000000777777 -ET0 031544 0 0 0 000000777777 0 000000777777 -ST1A 031544 0 0 0 000000777777 0 000000777777 -ST9 031544 0 0 0 000000777777 0 000000777777 - - -*031544 JUMPA 0,031545 -INITIAL -C(AC)=000000 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031544 031544 0 0 324000031545 0 000000031545 -IT1 031544 0 0 0 324000031545 0 000000031545 -AT3 031544 0 0 0 000000031545 0 324000031545 -AT6 031544 031545 0 0 000000031545 0 324000031545 -FT1A 031544 031545 0 0 000000031545 0 000000031545 -FT2 031544 031545 0 0 0 0 000000031545 -FT2RQ 031544 031545 0 0 000000777777 0 000000031545 -FT3 031544 031545 0 0 000000777777 0 000000031545 -FT9 031545 031545 0 0 000000777777 0 000000031545 -ET0 031545 031545 0 0 000000777777 0 000000031545 -ST1A 031545 031545 0 0 000000777777 0 000000031545 -ST9 031545 031545 0 0 000000777777 0 000000031545 - - -*031545 MOVE 0,035140 -INITIAL -C(AC)=000000 777777 -C(E)=777777 000000 -FINAL -C(AC)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031545 031545 0 0 200000035140 0 777777000000 -IT1 031545 0 0 0 200000035140 0 777777000000 -AT3 031545 0 0 0 000000035140 0 200000035140 -AT6 031545 035140 0 0 000000035140 0 200000035140 -FT0 031545 035140 0 0 777777000000 0 200000035140 -FT1A 031545 035140 0 0 777777000000 0 777777000000 -FT9 031546 035140 0 0 777777000000 0 777777000000 -ET0 031546 035140 0 0 777777000000 0 777777000000 -ST1 031546 035140 0 0 777777000000 0 777777000000 -ST2 031546 035140 0 0 777777000000 0 777777000000 -ST9 031546 035140 0 0 777777000000 0 777777000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 129 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0345 - -*031546 MOVS 0,000000 -INITIAL -C(AC)=777777 000000 -C(E)=777777 000000 -FINAL -C(AC)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031546 031546 0 0 204000000000 0 777777000000 -IT1 031546 0 0 0 204000000000 0 777777000000 -AT3 031546 0 0 0 0 0 204000000000 -AT6 031546 0 0 0 0 0 204000000000 -FT0 031546 0 0 0 777777000000 0 204000000000 -FT1A 031546 0 0 0 777777000000 0 777777000000 -FT9 031547 0 0 0 777777000000 0 777777000000 -ET0 031547 0 0 0 000000777777 0 777777000000 -ST1 031547 0 0 0 000000777777 0 777777000000 -ST2 031547 0 0 0 000000777777 0 777777000000 -ST9 031547 0 0 0 000000777777 0 777777000000 - - -*031547 SKIPG 0,000000 -INITIAL -C(AC)=000000 777777 -C(E)=000000 777777 -FINAL -C(AC)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031547 031547 0 0 337000000000 0 000000777777 -IT1 031547 0 0 0 337000000000 0 000000777777 -AT3 031547 0 0 0 0 0 337000000000 -AT6 031547 0 0 0 0 0 337000000000 -FT0 031547 0 0 0 000000777777 0 337000000000 -FT1A 031547 0 0 0 000000777777 0 000000777777 -FT9 031550 0 0 0 000000777777 0 000000777777 -ET0 031551 0 0 0 000000777777 0 000000777777 -ST1A 031551 0 0 0 000000777777 0 000000777777 -ST9 031551 0 0 0 000000777777 0 000000777777 - - -*031551 JUMPA 0,031552 -INITIAL -C(AC)=000000 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031551 031551 0 0 324000031552 0 000000031552 -IT1 031551 0 0 0 324000031552 0 000000031552 -AT3 031551 0 0 0 000000031552 0 324000031552 -AT6 031551 031552 0 0 000000031552 0 324000031552 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 130 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0346 - -FT1A 031551 031552 0 0 000000031552 0 000000031552 -FT2 031551 031552 0 0 0 0 000000031552 -FT2RQ 031551 031552 0 0 000000777777 0 000000031552 -FT3 031551 031552 0 0 000000777777 0 000000031552 -FT9 031552 031552 0 0 000000777777 0 000000031552 -ET0 031552 031552 0 0 000000777777 0 000000031552 -ST1A 031552 031552 0 0 000000777777 0 000000031552 -ST9 031552 031552 0 0 000000777777 0 000000031552 - - -*031552 MOVE 0,035137 -INITIAL -C(AC)=000000 777777 -C(E)=000000 777777 -FINAL -C(AC)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 031552 031552 0 0 200000035137 0 000000777777 -IT1 031552 0 0 0 200000035137 0 000000777777 -AT3 031552 0 0 0 000000035137 0 200000035137 -AT6 031552 035137 0 0 000000035137 0 200000035137 -FT0 031552 035137 0 0 000000777777 0 200000035137 -FT1A 031552 035137 0 0 000000777777 0 000000777777 -FT9 031553 035137 0 0 000000777777 0 000000777777 -ET0 031553 035137 0 0 000000777777 0 000000777777 -ST1 031553 035137 0 0 000000777777 0 000000777777 -ST2 031553 035137 0 0 000000777777 0 000000777777 -ST9 031553 035137 0 0 000000777777 0 000000777777 - - -*031553 MOVS 0,000000 -INITIAL -C(AC)=000000 777777 -C(E)=000000 777777 -FINAL -C(AC)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031553 031553 0 0 204000000000 0 000000777777 -IT1 031553 0 0 0 204000000000 0 000000777777 -AT3 031553 0 0 0 0 0 204000000000 -AT6 031553 0 0 0 0 0 204000000000 -FT0 031553 0 0 0 000000777777 0 204000000000 -FT1A 031553 0 0 0 000000777777 0 000000777777 -FT9 031554 0 0 0 000000777777 0 000000777777 -ET0 031554 0 0 0 777777000000 0 000000777777 -ST1 031554 0 0 0 777777000000 0 000000777777 -ST2 031554 0 0 0 777777000000 0 000000777777 -ST9 031554 0 0 0 777777000000 0 000000777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 131 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0347 - -*031554 SKIPL 0,000000 -INITIAL -C(AC)=777777 000000 -C(E)=777777 000000 -FINAL -C(AC)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031554 031554 0 0 331000000000 0 777777000000 -IT1 031554 0 0 0 331000000000 0 777777000000 -AT3 031554 0 0 0 0 0 331000000000 -AT6 031554 0 0 0 0 0 331000000000 -FT0 031554 0 0 0 777777000000 0 331000000000 -FT1A 031554 0 0 0 777777000000 0 777777000000 -FT9 031555 0 0 0 777777000000 0 777777000000 -ET0 031556 0 0 0 777777000000 0 777777000000 -ST1A 031556 0 0 0 777777000000 0 777777000000 -ST9 031556 0 0 0 777777000000 0 777777000000 - - -*031556 JUMPA 0,031557 -INITIAL -C(AC)=777777 000000 -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 777777000000 0 000000031557 -FT3 031556 031557 0 0 777777000000 0 000000031557 -FT9 031557 031557 0 0 777777000000 0 000000031557 -ET0 031557 031557 0 0 777777000000 0 000000031557 -ST1A 031557 031557 0 0 777777000000 0 000000031557 -ST9 031557 031557 0 0 777777000000 0 000000031557 - - -*031557 MOVE 0,035062 -INITIAL -C(AC)=777777 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031557 031557 0 0 200000035062 0 0 -IT1 031557 0 0 0 200000035062 0 0 -AT3 031557 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 132 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0348 - -AT6 031557 035062 0 0 000000035062 0 200000035062 -FT0 031557 035062 0 0 0 0 200000035062 -FT1A 031557 035062 0 0 0 0 0 -FT9 031560 035062 0 0 0 0 0 -ET0 031560 035062 0 0 0 0 0 -ST1 031560 035062 0 0 0 0 0 -ST2 031560 035062 0 0 0 0 0 -ST9 031560 035062 0 0 0 0 0 - - -*031560 MOVS 0,035074 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000001 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031560 031560 0 0 204000035074 0 000000000001 -IT1 031560 0 0 0 204000035074 0 000000000001 -AT3 031560 0 0 0 000000035074 0 204000035074 -AT6 031560 035074 0 0 000000035074 0 204000035074 -FT0 031560 035074 0 0 000000000001 0 204000035074 -FT1A 031560 035074 0 0 000000000001 0 000000000001 -FT9 031561 035074 0 0 000000000001 0 000000000001 -ET0 031561 035074 0 0 000001000000 0 000000000001 -ST1 031561 035074 0 0 000001000000 0 000000000001 -ST2 031561 035074 0 0 000001000000 0 000000000001 -ST9 031561 035074 0 0 000001000000 0 000000000001 - - -*031561 SKIPN 0,000000 -INITIAL -C(AC)=000001 000000 -C(E)=000001 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031561 031561 0 0 336000000000 0 000001000000 -IT1 031561 0 0 0 336000000000 0 000001000000 -AT3 031561 0 0 0 0 0 336000000000 -AT6 031561 0 0 0 0 0 336000000000 -FT0 031561 0 0 0 000001000000 0 336000000000 -FT1A 031561 0 0 0 000001000000 0 000001000000 -FT9 031562 0 0 0 000001000000 0 000001000000 -ET0 031563 0 0 0 000001000000 0 000001000000 -ST1A 031563 0 0 0 000001000000 0 000001000000 -ST9 031563 0 0 0 000001000000 0 000001000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 133 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0349 - -*031563 JUMPA 0,031564 -INITIAL -C(AC)=000001 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031563 031563 0 0 324000031564 0 000000031564 -IT1 031563 0 0 0 324000031564 0 000000031564 -AT3 031563 0 0 0 000000031564 0 324000031564 -AT6 031563 031564 0 0 000000031564 0 324000031564 -FT1A 031563 031564 0 0 000000031564 0 000000031564 -FT2 031563 031564 0 0 0 0 000000031564 -FT2RQ 031563 031564 0 0 000001000000 0 000000031564 -FT3 031563 031564 0 0 000001000000 0 000000031564 -FT9 031564 031564 0 0 000001000000 0 000000031564 -ET0 031564 031564 0 0 000001000000 0 000000031564 -ST1A 031564 031564 0 0 000001000000 0 000000031564 -ST9 031564 031564 0 0 000001000000 0 000000031564 - - -*031564 MOVE 0,035062 -INITIAL -C(AC)=000001 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031564 031564 0 0 200000035062 0 0 -IT1 031564 0 0 0 200000035062 0 0 -AT3 031564 0 0 0 000000035062 0 200000035062 -AT6 031564 035062 0 0 000000035062 0 200000035062 -FT0 031564 035062 0 0 0 0 200000035062 -FT1A 031564 035062 0 0 0 0 0 -FT9 031565 035062 0 0 0 0 0 -ET0 031565 035062 0 0 0 0 0 -ST1 031565 035062 0 0 0 0 0 -ST2 031565 035062 0 0 0 0 0 -ST9 031565 035062 0 0 0 0 0 - - -*031565 MOVS 0,035075 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000002 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031565 031565 0 0 204000035075 0 000000000002 -IT1 031565 0 0 0 204000035075 0 000000000002 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 134 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0350 - -AT3 031565 0 0 0 000000035075 0 204000035075 -AT6 031565 035075 0 0 000000035075 0 204000035075 -FT0 031565 035075 0 0 000000000002 0 204000035075 -FT1A 031565 035075 0 0 000000000002 0 000000000002 -FT9 031566 035075 0 0 000000000002 0 000000000002 -ET0 031566 035075 0 0 000002000000 0 000000000002 -ST1 031566 035075 0 0 000002000000 0 000000000002 -ST2 031566 035075 0 0 000002000000 0 000000000002 -ST9 031566 035075 0 0 000002000000 0 000000000002 - - -*031566 SKIPN 0,000000 -INITIAL -C(AC)=000002 000000 -C(E)=000002 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031566 031566 0 0 336000000000 0 000002000000 -IT1 031566 0 0 0 336000000000 0 000002000000 -AT3 031566 0 0 0 0 0 336000000000 -AT6 031566 0 0 0 0 0 336000000000 -FT0 031566 0 0 0 000002000000 0 336000000000 -FT1A 031566 0 0 0 000002000000 0 000002000000 -FT9 031567 0 0 0 000002000000 0 000002000000 -ET0 031570 0 0 0 000002000000 0 000002000000 -ST1A 031570 0 0 0 000002000000 0 000002000000 -ST9 031570 0 0 0 000002000000 0 000002000000 - - -*031570 JUMPA 0,031571 -INITIAL -C(AC)=000002 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031570 031570 0 0 324000031571 0 000000031571 -IT1 031570 0 0 0 324000031571 0 000000031571 -AT3 031570 0 0 0 000000031571 0 324000031571 -AT6 031570 031571 0 0 000000031571 0 324000031571 -FT1A 031570 031571 0 0 000000031571 0 000000031571 -FT2 031570 031571 0 0 0 0 000000031571 -FT2RQ 031570 031571 0 0 000002000000 0 000000031571 -FT3 031570 031571 0 0 000002000000 0 000000031571 -FT9 031571 031571 0 0 000002000000 0 000000031571 -ET0 031571 031571 0 0 000002000000 0 000000031571 -ST1A 031571 031571 0 0 000002000000 0 000000031571 -ST9 031571 031571 0 0 000002000000 0 000000031571 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 135 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0351 - -*031571 MOVE 0,035062 -INITIAL -C(AC)=000002 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031571 031571 0 0 200000035062 0 0 -IT1 031571 0 0 0 200000035062 0 0 -AT3 031571 0 0 0 000000035062 0 200000035062 -AT6 031571 035062 0 0 000000035062 0 200000035062 -FT0 031571 035062 0 0 0 0 200000035062 -FT1A 031571 035062 0 0 0 0 0 -FT9 031572 035062 0 0 0 0 0 -ET0 031572 035062 0 0 0 0 0 -ST1 031572 035062 0 0 0 0 0 -ST2 031572 035062 0 0 0 0 0 -ST9 031572 035062 0 0 0 0 0 - - -*031572 MOVS 0,035076 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000004 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031572 031572 0 0 204000035076 0 000000000004 -IT1 031572 0 0 0 204000035076 0 000000000004 -AT3 031572 0 0 0 000000035076 0 204000035076 -AT6 031572 035076 0 0 000000035076 0 204000035076 -FT0 031572 035076 0 0 000000000004 0 204000035076 -FT1A 031572 035076 0 0 000000000004 0 000000000004 -FT9 031573 035076 0 0 000000000004 0 000000000004 -ET0 031573 035076 0 0 000004000000 0 000000000004 -ST1 031573 035076 0 0 000004000000 0 000000000004 -ST2 031573 035076 0 0 000004000000 0 000000000004 -ST9 031573 035076 0 0 000004000000 0 000000000004 - - -*031573 SKIPN 0,000000 -INITIAL -C(AC)=000004 000000 -C(E)=000004 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031573 031573 0 0 336000000000 0 000004000000 -IT1 031573 0 0 0 336000000000 0 000004000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 136 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0352 - -AT3 031573 0 0 0 0 0 336000000000 -AT6 031573 0 0 0 0 0 336000000000 -FT0 031573 0 0 0 000004000000 0 336000000000 -FT1A 031573 0 0 0 000004000000 0 000004000000 -FT9 031574 0 0 0 000004000000 0 000004000000 -ET0 031575 0 0 0 000004000000 0 000004000000 -ST1A 031575 0 0 0 000004000000 0 000004000000 -ST9 031575 0 0 0 000004000000 0 000004000000 - - -*031575 JUMPA 0,031576 -INITIAL -C(AC)=000004 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031575 031575 0 0 324000031576 0 000000031576 -IT1 031575 0 0 0 324000031576 0 000000031576 -AT3 031575 0 0 0 000000031576 0 324000031576 -AT6 031575 031576 0 0 000000031576 0 324000031576 -FT1A 031575 031576 0 0 000000031576 0 000000031576 -FT2 031575 031576 0 0 0 0 000000031576 -FT2RQ 031575 031576 0 0 000004000000 0 000000031576 -FT3 031575 031576 0 0 000004000000 0 000000031576 -FT9 031576 031576 0 0 000004000000 0 000000031576 -ET0 031576 031576 0 0 000004000000 0 000000031576 -ST1A 031576 031576 0 0 000004000000 0 000000031576 -ST9 031576 031576 0 0 000004000000 0 000000031576 - - -*031576 MOVE 0,035062 -INITIAL -C(AC)=000004 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031576 031576 0 0 200000035062 0 0 -IT1 031576 0 0 0 200000035062 0 0 -AT3 031576 0 0 0 000000035062 0 200000035062 -AT6 031576 035062 0 0 000000035062 0 200000035062 -FT0 031576 035062 0 0 0 0 200000035062 -FT1A 031576 035062 0 0 0 0 0 -FT9 031577 035062 0 0 0 0 0 -ET0 031577 035062 0 0 0 0 0 -ST1 031577 035062 0 0 0 0 0 -ST2 031577 035062 0 0 0 0 0 -ST9 031577 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 137 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0353 - -*031577 MOVS 0,035077 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000010 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031577 031577 0 0 204000035077 0 000000000010 -IT1 031577 0 0 0 204000035077 0 000000000010 -AT3 031577 0 0 0 000000035077 0 204000035077 -AT6 031577 035077 0 0 000000035077 0 204000035077 -FT0 031577 035077 0 0 000000000010 0 204000035077 -FT1A 031577 035077 0 0 000000000010 0 000000000010 -FT9 0 035077 0 0 000000000010 0 000000000010 -ET0 0 035077 0 0 000010000000 0 000000000010 -ST1 0 035077 0 0 000010000000 0 000000000010 -ST2 0 035077 0 0 000010000000 0 000000000010 -ST9 0 035077 0 0 000010000000 0 000000000010 - - -*031600 SKIPN 0,000000 -INITIAL -C(AC)=000010 000000 -C(E)=000010 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 336000000000 0 000010000000 -IT1 0 0 0 0 336000000000 0 000010000000 -AT3 0 0 0 0 0 0 336000000000 -AT6 0 0 0 0 0 0 336000000000 -FT0 0 0 0 0 000010000000 0 336000000000 -FT1A 0 0 0 0 000010000000 0 000010000000 -FT9 031601 0 0 0 000010000000 0 000010000000 -ET0 031602 0 0 0 000010000000 0 000010000000 -ST1A 031602 0 0 0 000010000000 0 000010000000 -ST9 031602 0 0 0 000010000000 0 000010000000 - - -*031602 JUMPA 0,031603 -INITIAL -C(AC)=000010 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031602 031602 0 0 324000031603 0 000000031603 -IT1 031602 0 0 0 324000031603 0 000000031603 -AT3 031602 0 0 0 000000031603 0 324000031603 -AT6 031602 031603 0 0 000000031603 0 324000031603 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 138 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0354 - -FT1A 031602 031603 0 0 000000031603 0 000000031603 -FT2 031602 031603 0 0 0 0 000000031603 -FT2RQ 031602 031603 0 0 000010000000 0 000000031603 -FT3 031602 031603 0 0 000010000000 0 000000031603 -FT9 031603 031603 0 0 000010000000 0 000000031603 -ET0 031603 031603 0 0 000010000000 0 000000031603 -ST1A 031603 031603 0 0 000010000000 0 000000031603 -ST9 031603 031603 0 0 000010000000 0 000000031603 - - -*031603 MOVE 0,035062 -INITIAL -C(AC)=000010 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031603 031603 0 0 200000035062 0 0 -IT1 031603 0 0 0 200000035062 0 0 -AT3 031603 0 0 0 000000035062 0 200000035062 -AT6 031603 035062 0 0 000000035062 0 200000035062 -FT0 031603 035062 0 0 0 0 200000035062 -FT1A 031603 035062 0 0 0 0 0 -FT9 031604 035062 0 0 0 0 0 -ET0 031604 035062 0 0 0 0 0 -ST1 031604 035062 0 0 0 0 0 -ST2 031604 035062 0 0 0 0 0 -ST9 031604 035062 0 0 0 0 0 - - -*031604 MOVS 0,035100 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000020 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031604 031604 0 0 204000035100 0 000000000020 -IT1 031604 0 0 0 204000035100 0 000000000020 -AT3 031604 0 0 0 000000035100 0 204000035100 -AT6 031604 0 0 0 000000035100 0 204000035100 -FT0 031604 0 0 0 000000000020 0 204000035100 -FT1A 031604 0 0 0 000000000020 0 000000000020 -FT9 031605 0 0 0 000000000020 0 000000000020 -ET0 031605 0 0 0 000020000000 0 000000000020 -ST1 031605 0 0 0 000020000000 0 000000000020 -ST2 031605 0 0 0 000020000000 0 000000000020 -ST9 031605 0 0 0 000020000000 0 000000000020 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 139 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0355 - -*031605 SKIPN 0,000000 -INITIAL -C(AC)=000020 000000 -C(E)=000020 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031605 031605 0 0 336000000000 0 000020000000 -IT1 031605 0 0 0 336000000000 0 000020000000 -AT3 031605 0 0 0 0 0 336000000000 -AT6 031605 0 0 0 0 0 336000000000 -FT0 031605 0 0 0 000020000000 0 336000000000 -FT1A 031605 0 0 0 000020000000 0 000020000000 -FT9 031606 0 0 0 000020000000 0 000020000000 -ET0 031607 0 0 0 000020000000 0 000020000000 -ST1A 031607 0 0 0 000020000000 0 000020000000 -ST9 031607 0 0 0 000020000000 0 000020000000 - - -*031607 JUMPA 0,031610 -INITIAL -C(AC)=000020 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031607 031607 0 0 324000031610 0 000000031610 -IT1 031607 0 0 0 324000031610 0 000000031610 -AT3 031607 0 0 0 000000031610 0 324000031610 -AT6 031607 031610 0 0 000000031610 0 324000031610 -FT1A 031607 031610 0 0 000000031610 0 000000031610 -FT2 031607 031610 0 0 0 0 000000031610 -FT2RQ 031607 031610 0 0 000020000000 0 000000031610 -FT3 031607 031610 0 0 000020000000 0 000000031610 -FT9 031610 031610 0 0 000020000000 0 000000031610 -ET0 031610 031610 0 0 000020000000 0 000000031610 -ST1A 031610 031610 0 0 000020000000 0 000000031610 -ST9 031610 031610 0 0 000020000000 0 000000031610 - - -*031610 MOVE 0,035062 -INITIAL -C(AC)=000020 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031610 031610 0 0 200000035062 0 0 -IT1 031610 0 0 0 200000035062 0 0 -AT3 031610 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 140 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0356 - -AT6 031610 035062 0 0 000000035062 0 200000035062 -FT0 031610 035062 0 0 0 0 200000035062 -FT1A 031610 035062 0 0 0 0 0 -FT9 031611 035062 0 0 0 0 0 -ET0 031611 035062 0 0 0 0 0 -ST1 031611 035062 0 0 0 0 0 -ST2 031611 035062 0 0 0 0 0 -ST9 031611 035062 0 0 0 0 0 - - -*031611 MOVS 0,035101 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000040 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031611 031611 0 0 204000035101 0 000000000040 -IT1 031611 0 0 0 204000035101 0 000000000040 -AT3 031611 0 0 0 000000035101 0 204000035101 -AT6 031611 035101 0 0 000000035101 0 204000035101 -FT0 031611 035101 0 0 000000000040 0 204000035101 -FT1A 031611 035101 0 0 000000000040 0 000000000040 -FT9 031612 035101 0 0 000000000040 0 000000000040 -ET0 031612 035101 0 0 000040000000 0 000000000040 -ST1 031612 035101 0 0 000040000000 0 000000000040 -ST2 031612 035101 0 0 000040000000 0 000000000040 -ST9 031612 035101 0 0 000040000000 0 000000000040 - - -*031612 SKIPN 0,000000 -INITIAL -C(AC)=000040 000000 -C(E)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031612 031612 0 0 336000000000 0 000040000000 -IT1 031612 0 0 0 336000000000 0 000040000000 -AT3 031612 0 0 0 0 0 336000000000 -AT6 031612 0 0 0 0 0 336000000000 -FT0 031612 0 0 0 000040000000 0 336000000000 -FT1A 031612 0 0 0 000040000000 0 000040000000 -FT9 031613 0 0 0 000040000000 0 000040000000 -ET0 031614 0 0 0 000040000000 0 000040000000 -ST1A 031614 0 0 0 000040000000 0 000040000000 -ST9 031614 0 0 0 000040000000 0 000040000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 141 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0357 - -*031614 JUMPA 0,031615 -INITIAL -C(AC)=000040 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 000040000000 0 000000031615 -FT3 031614 031615 0 0 000040000000 0 000000031615 -FT9 031615 031615 0 0 000040000000 0 000000031615 -ET0 031615 031615 0 0 000040000000 0 000000031615 -ST1A 031615 031615 0 0 000040000000 0 000000031615 -ST9 031615 031615 0 0 000040000000 0 000000031615 - - -*031615 MOVE 0,035062 -INITIAL -C(AC)=000040 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031615 031615 0 0 200000035062 0 0 -IT1 031615 0 0 0 200000035062 0 0 -AT3 031615 0 0 0 000000035062 0 200000035062 -AT6 031615 035062 0 0 000000035062 0 200000035062 -FT0 031615 035062 0 0 0 0 200000035062 -FT1A 031615 035062 0 0 0 0 0 -FT9 031616 035062 0 0 0 0 0 -ET0 031616 035062 0 0 0 0 0 -ST1 031616 035062 0 0 0 0 0 -ST2 031616 035062 0 0 0 0 0 -ST9 031616 035062 0 0 0 0 0 - - -*031616 MOVS 0,035102 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000100 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031616 031616 0 0 204000035102 0 000000000100 -IT1 031616 0 0 0 204000035102 0 000000000100 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 142 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0358 - -AT3 031616 0 0 0 000000035102 0 204000035102 -AT6 031616 035102 0 0 000000035102 0 204000035102 -FT0 031616 035102 0 0 000000000100 0 204000035102 -FT1A 031616 035102 0 0 000000000100 0 000000000100 -FT9 031617 035102 0 0 000000000100 0 000000000100 -ET0 031617 035102 0 0 000100000000 0 000000000100 -ST1 031617 035102 0 0 000100000000 0 000000000100 -ST2 031617 035102 0 0 000100000000 0 000000000100 -ST9 031617 035102 0 0 000100000000 0 000000000100 - - -*031617 SKIPN 0,000000 -INITIAL -C(AC)=000100 000000 -C(E)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031617 031617 0 0 336000000000 0 000100000000 -IT1 031617 0 0 0 336000000000 0 000100000000 -AT3 031617 0 0 0 0 0 336000000000 -AT6 031617 0 0 0 0 0 336000000000 -FT0 031617 0 0 0 000100000000 0 336000000000 -FT1A 031617 0 0 0 000100000000 0 000100000000 -FT9 031620 0 0 0 000100000000 0 000100000000 -ET0 031621 0 0 0 000100000000 0 000100000000 -ST1A 031621 0 0 0 000100000000 0 000100000000 -ST9 031621 0 0 0 000100000000 0 000100000000 - - -*031621 JUMPA 0,031622 -INITIAL -C(AC)=000100 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031621 031621 0 0 324000031622 0 000000031622 -IT1 031621 0 0 0 324000031622 0 000000031622 -AT3 031621 0 0 0 000000031622 0 324000031622 -AT6 031621 031622 0 0 000000031622 0 324000031622 -FT1A 031621 031622 0 0 000000031622 0 000000031622 -FT2 031621 031622 0 0 0 0 000000031622 -FT2RQ 031621 031622 0 0 000100000000 0 000000031622 -FT3 031621 031622 0 0 000100000000 0 000000031622 -FT9 031622 031622 0 0 000100000000 0 000000031622 -ET0 031622 031622 0 0 000100000000 0 000000031622 -ST1A 031622 031622 0 0 000100000000 0 000000031622 -ST9 031622 031622 0 0 000100000000 0 000000031622 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 143 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0359 - -*031622 MOVE 0,035062 -INITIAL -C(AC)=000100 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031622 031622 0 0 200000035062 0 0 -IT1 031622 0 0 0 200000035062 0 0 -AT3 031622 0 0 0 000000035062 0 200000035062 -AT6 031622 035062 0 0 000000035062 0 200000035062 -FT0 031622 035062 0 0 0 0 200000035062 -FT1A 031622 035062 0 0 0 0 0 -FT9 031623 035062 0 0 0 0 0 -ET0 031623 035062 0 0 0 0 0 -ST1 031623 035062 0 0 0 0 0 -ST2 031623 035062 0 0 0 0 0 -ST9 031623 035062 0 0 0 0 0 - - -*031623 MOVS 0,035103 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000200 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031623 031623 0 0 204000035103 0 000000000200 -IT1 031623 0 0 0 204000035103 0 000000000200 -AT3 031623 0 0 0 000000035103 0 204000035103 -AT6 031623 035103 0 0 000000035103 0 204000035103 -FT0 031623 035103 0 0 000000000200 0 204000035103 -FT1A 031623 035103 0 0 000000000200 0 000000000200 -FT9 031624 035103 0 0 000000000200 0 000000000200 -ET0 031624 035103 0 0 000200000000 0 000000000200 -ST1 031624 035103 0 0 000200000000 0 000000000200 -ST2 031624 035103 0 0 000200000000 0 000000000200 -ST9 031624 035103 0 0 000200000000 0 000000000200 - - -*031624 SKIPN 0,000000 -INITIAL -C(AC)=000200 000000 -C(E)=000200 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031624 031624 0 0 336000000000 0 000200000000 -IT1 031624 0 0 0 336000000000 0 000200000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 144 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0360 - -AT3 031624 0 0 0 0 0 336000000000 -AT6 031624 0 0 0 0 0 336000000000 -FT0 031624 0 0 0 000200000000 0 336000000000 -FT1A 031624 0 0 0 000200000000 0 000200000000 -FT9 031625 0 0 0 000200000000 0 000200000000 -ET0 031626 0 0 0 000200000000 0 000200000000 -ST1A 031626 0 0 0 000200000000 0 000200000000 -ST9 031626 0 0 0 000200000000 0 000200000000 - - -*031626 JUMPA 0,031627 -INITIAL -C(AC)=000200 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031626 031626 0 0 324000031627 0 000000031627 -IT1 031626 0 0 0 324000031627 0 000000031627 -AT3 031626 0 0 0 000000031627 0 324000031627 -AT6 031626 031627 0 0 000000031627 0 324000031627 -FT1A 031626 031627 0 0 000000031627 0 000000031627 -FT2 031626 031627 0 0 0 0 000000031627 -FT2RQ 031626 031627 0 0 000200000000 0 000000031627 -FT3 031626 031627 0 0 000200000000 0 000000031627 -FT9 031627 031627 0 0 000200000000 0 000000031627 -ET0 031627 031627 0 0 000200000000 0 000000031627 -ST1A 031627 031627 0 0 000200000000 0 000000031627 -ST9 031627 031627 0 0 000200000000 0 000000031627 - - -*031627 MOVE 0,035062 -INITIAL -C(AC)=000200 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031627 031627 0 0 200000035062 0 0 -IT1 031627 0 0 0 200000035062 0 0 -AT3 031627 0 0 0 000000035062 0 200000035062 -AT6 031627 035062 0 0 000000035062 0 200000035062 -FT0 031627 035062 0 0 0 0 200000035062 -FT1A 031627 035062 0 0 0 0 0 -FT9 031630 035062 0 0 0 0 0 -ET0 031630 035062 0 0 0 0 0 -ST1 031630 035062 0 0 0 0 0 -ST2 031630 035062 0 0 0 0 0 -ST9 031630 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 145 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0361 - -*031630 MOVS 0,035104 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000400 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031630 031630 0 0 204000035104 0 000000000400 -IT1 031630 0 0 0 204000035104 0 000000000400 -AT3 031630 0 0 0 000000035104 0 204000035104 -AT6 031630 035104 0 0 000000035104 0 204000035104 -FT0 031630 035104 0 0 000000000400 0 204000035104 -FT1A 031630 035104 0 0 000000000400 0 000000000400 -FT9 031631 035104 0 0 000000000400 0 000000000400 -ET0 031631 035104 0 0 000400000000 0 000000000400 -ST1 031631 035104 0 0 000400000000 0 000000000400 -ST2 031631 035104 0 0 000400000000 0 000000000400 -ST9 031631 035104 0 0 000400000000 0 000000000400 - - -*031631 SKIPN 0,000000 -INITIAL -C(AC)=000400 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031631 031631 0 0 336000000000 0 000400000000 -IT1 031631 0 0 0 336000000000 0 000400000000 -AT3 031631 0 0 0 0 0 336000000000 -AT6 031631 0 0 0 0 0 336000000000 -FT0 031631 0 0 0 000400000000 0 336000000000 -FT1A 031631 0 0 0 000400000000 0 000400000000 -FT9 031632 0 0 0 000400000000 0 000400000000 -ET0 031633 0 0 0 000400000000 0 000400000000 -ST1A 031633 0 0 0 000400000000 0 000400000000 -ST9 031633 0 0 0 000400000000 0 000400000000 - - -*031633 JUMPA 0,031634 -INITIAL -C(AC)=000400 000000 -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 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 146 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0362 - -FT1A 031633 031634 0 0 000000031634 0 000000031634 -FT2 031633 031634 0 0 0 0 000000031634 -FT2RQ 031633 031634 0 0 000400000000 0 000000031634 -FT3 031633 031634 0 0 000400000000 0 000000031634 -FT9 031634 031634 0 0 000400000000 0 000000031634 -ET0 031634 031634 0 0 000400000000 0 000000031634 -ST1A 031634 031634 0 0 000400000000 0 000000031634 -ST9 031634 031634 0 0 000400000000 0 000000031634 - - -*031634 MOVE 0,035062 -INITIAL -C(AC)=000400 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031634 031634 0 0 200000035062 0 0 -IT1 031634 0 0 0 200000035062 0 0 -AT3 031634 0 0 0 000000035062 0 200000035062 -AT6 031634 035062 0 0 000000035062 0 200000035062 -FT0 031634 035062 0 0 0 0 200000035062 -FT1A 031634 035062 0 0 0 0 0 -FT9 031635 035062 0 0 0 0 0 -ET0 031635 035062 0 0 0 0 0 -ST1 031635 035062 0 0 0 0 0 -ST2 031635 035062 0 0 0 0 0 -ST9 031635 035062 0 0 0 0 0 - - -*031635 MOVS 0,035105 -INITIAL -C(AC)=000000 000000 -C(E)=000000 001000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031635 031635 0 0 204000035105 0 000000001000 -IT1 031635 0 0 0 204000035105 0 000000001000 -AT3 031635 0 0 0 000000035105 0 204000035105 -AT6 031635 035105 0 0 000000035105 0 204000035105 -FT0 031635 035105 0 0 000000001000 0 204000035105 -FT1A 031635 035105 0 0 000000001000 0 000000001000 -FT9 031636 035105 0 0 000000001000 0 000000001000 -ET0 031636 035105 0 0 001000000000 0 000000001000 -ST1 031636 035105 0 0 001000000000 0 000000001000 -ST2 031636 035105 0 0 001000000000 0 000000001000 -ST9 031636 035105 0 0 001000000000 0 000000001000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 147 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0363 - -*031636 SKIPN 0,000000 -INITIAL -C(AC)=001000 000000 -C(E)=001000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031636 031636 0 0 336000000000 0 001000000000 -IT1 031636 0 0 0 336000000000 0 001000000000 -AT3 031636 0 0 0 0 0 336000000000 -AT6 031636 0 0 0 0 0 336000000000 -FT0 031636 0 0 0 001000000000 0 336000000000 -FT1A 031636 0 0 0 001000000000 0 001000000000 -FT9 031637 0 0 0 001000000000 0 001000000000 -ET0 031640 0 0 0 001000000000 0 001000000000 -ST1A 031640 0 0 0 001000000000 0 001000000000 -ST9 031640 0 0 0 001000000000 0 001000000000 - - -*031640 JUMPA 0,031641 -INITIAL -C(AC)=001000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031640 031640 0 0 324000031641 0 000000031641 -IT1 031640 0 0 0 324000031641 0 000000031641 -AT3 031640 0 0 0 000000031641 0 324000031641 -AT6 031640 031641 0 0 000000031641 0 324000031641 -FT1A 031640 031641 0 0 000000031641 0 000000031641 -FT2 031640 031641 0 0 0 0 000000031641 -FT2RQ 031640 031641 0 0 001000000000 0 000000031641 -FT3 031640 031641 0 0 001000000000 0 000000031641 -FT9 031641 031641 0 0 001000000000 0 000000031641 -ET0 031641 031641 0 0 001000000000 0 000000031641 -ST1A 031641 031641 0 0 001000000000 0 000000031641 -ST9 031641 031641 0 0 001000000000 0 000000031641 - - -*031641 MOVE 0,035062 -INITIAL -C(AC)=001000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031641 031641 0 0 200000035062 0 0 -IT1 031641 0 0 0 200000035062 0 0 -AT3 031641 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 148 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0364 - -AT6 031641 035062 0 0 000000035062 0 200000035062 -FT0 031641 035062 0 0 0 0 200000035062 -FT1A 031641 035062 0 0 0 0 0 -FT9 031642 035062 0 0 0 0 0 -ET0 031642 035062 0 0 0 0 0 -ST1 031642 035062 0 0 0 0 0 -ST2 031642 035062 0 0 0 0 0 -ST9 031642 035062 0 0 0 0 0 - - -*031642 MOVS 0,035106 -INITIAL -C(AC)=000000 000000 -C(E)=000000 002000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031642 031642 0 0 204000035106 0 000000002000 -IT1 031642 0 0 0 204000035106 0 000000002000 -AT3 031642 0 0 0 000000035106 0 204000035106 -AT6 031642 035106 0 0 000000035106 0 204000035106 -FT0 031642 035106 0 0 000000002000 0 204000035106 -FT1A 031642 035106 0 0 000000002000 0 000000002000 -FT9 031643 035106 0 0 000000002000 0 000000002000 -ET0 031643 035106 0 0 002000000000 0 000000002000 -ST1 031643 035106 0 0 002000000000 0 000000002000 -ST2 031643 035106 0 0 002000000000 0 000000002000 -ST9 031643 035106 0 0 002000000000 0 000000002000 - - -*031643 SKIPN 0,000000 -INITIAL -C(AC)=002000 000000 -C(E)=002000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031643 031643 0 0 336000000000 0 002000000000 -IT1 031643 0 0 0 336000000000 0 002000000000 -AT3 031643 0 0 0 0 0 336000000000 -AT6 031643 0 0 0 0 0 336000000000 -FT0 031643 0 0 0 002000000000 0 336000000000 -FT1A 031643 0 0 0 002000000000 0 002000000000 -FT9 031644 0 0 0 002000000000 0 002000000000 -ET0 031645 0 0 0 002000000000 0 002000000000 -ST1A 031645 0 0 0 002000000000 0 002000000000 -ST9 031645 0 0 0 002000000000 0 002000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 149 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0365 - -*031645 JUMPA 0,031646 -INITIAL -C(AC)=002000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031645 031645 0 0 324000031646 0 000000031646 -IT1 031645 0 0 0 324000031646 0 000000031646 -AT3 031645 0 0 0 000000031646 0 324000031646 -AT6 031645 031646 0 0 000000031646 0 324000031646 -FT1A 031645 031646 0 0 000000031646 0 000000031646 -FT2 031645 031646 0 0 0 0 000000031646 -FT2RQ 031645 031646 0 0 002000000000 0 000000031646 -FT3 031645 031646 0 0 002000000000 0 000000031646 -FT9 031646 031646 0 0 002000000000 0 000000031646 -ET0 031646 031646 0 0 002000000000 0 000000031646 -ST1A 031646 031646 0 0 002000000000 0 000000031646 -ST9 031646 031646 0 0 002000000000 0 000000031646 - - -*031646 MOVE 0,035062 -INITIAL -C(AC)=002000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031646 031646 0 0 200000035062 0 0 -IT1 031646 0 0 0 200000035062 0 0 -AT3 031646 0 0 0 000000035062 0 200000035062 -AT6 031646 035062 0 0 000000035062 0 200000035062 -FT0 031646 035062 0 0 0 0 200000035062 -FT1A 031646 035062 0 0 0 0 0 -FT9 031647 035062 0 0 0 0 0 -ET0 031647 035062 0 0 0 0 0 -ST1 031647 035062 0 0 0 0 0 -ST2 031647 035062 0 0 0 0 0 -ST9 031647 035062 0 0 0 0 0 - - -*031647 MOVS 0,035107 -INITIAL -C(AC)=000000 000000 -C(E)=000000 004000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031647 031647 0 0 204000035107 0 000000004000 -IT1 031647 0 0 0 204000035107 0 000000004000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 150 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0366 - -AT3 031647 0 0 0 000000035107 0 204000035107 -AT6 031647 035107 0 0 000000035107 0 204000035107 -FT0 031647 035107 0 0 000000004000 0 204000035107 -FT1A 031647 035107 0 0 000000004000 0 000000004000 -FT9 031650 035107 0 0 000000004000 0 000000004000 -ET0 031650 035107 0 0 004000000000 0 000000004000 -ST1 031650 035107 0 0 004000000000 0 000000004000 -ST2 031650 035107 0 0 004000000000 0 000000004000 -ST9 031650 035107 0 0 004000000000 0 000000004000 - - -*031650 SKIPN 0,000000 -INITIAL -C(AC)=004000 000000 -C(E)=004000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031650 031650 0 0 336000000000 0 004000000000 -IT1 031650 0 0 0 336000000000 0 004000000000 -AT3 031650 0 0 0 0 0 336000000000 -AT6 031650 0 0 0 0 0 336000000000 -FT0 031650 0 0 0 004000000000 0 336000000000 -FT1A 031650 0 0 0 004000000000 0 004000000000 -FT9 031651 0 0 0 004000000000 0 004000000000 -ET0 031652 0 0 0 004000000000 0 004000000000 -ST1A 031652 0 0 0 004000000000 0 004000000000 -ST9 031652 0 0 0 004000000000 0 004000000000 - - -*031652 JUMPA 0,031653 -INITIAL -C(AC)=004000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031652 031652 0 0 324000031653 0 000000031653 -IT1 031652 0 0 0 324000031653 0 000000031653 -AT3 031652 0 0 0 000000031653 0 324000031653 -AT6 031652 031653 0 0 000000031653 0 324000031653 -FT1A 031652 031653 0 0 000000031653 0 000000031653 -FT2 031652 031653 0 0 0 0 000000031653 -FT2RQ 031652 031653 0 0 004000000000 0 000000031653 -FT3 031652 031653 0 0 004000000000 0 000000031653 -FT9 031653 031653 0 0 004000000000 0 000000031653 -ET0 031653 031653 0 0 004000000000 0 000000031653 -ST1A 031653 031653 0 0 004000000000 0 000000031653 -ST9 031653 031653 0 0 004000000000 0 000000031653 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 151 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0367 - -*031653 MOVE 0,035062 -INITIAL -C(AC)=004000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031653 031653 0 0 200000035062 0 0 -IT1 031653 0 0 0 200000035062 0 0 -AT3 031653 0 0 0 000000035062 0 200000035062 -AT6 031653 035062 0 0 000000035062 0 200000035062 -FT0 031653 035062 0 0 0 0 200000035062 -FT1A 031653 035062 0 0 0 0 0 -FT9 031654 035062 0 0 0 0 0 -ET0 031654 035062 0 0 0 0 0 -ST1 031654 035062 0 0 0 0 0 -ST2 031654 035062 0 0 0 0 0 -ST9 031654 035062 0 0 0 0 0 - - -*031654 MOVS 0,035110 -INITIAL -C(AC)=000000 000000 -C(E)=000000 010000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031654 031654 0 0 204000035110 0 000000010000 -IT1 031654 0 0 0 204000035110 0 000000010000 -AT3 031654 0 0 0 000000035110 0 204000035110 -AT6 031654 035110 0 0 000000035110 0 204000035110 -FT0 031654 035110 0 0 000000010000 0 204000035110 -FT1A 031654 035110 0 0 000000010000 0 000000010000 -FT9 031655 035110 0 0 000000010000 0 000000010000 -ET0 031655 035110 0 0 010000000000 0 000000010000 -ST1 031655 035110 0 0 010000000000 0 000000010000 -ST2 031655 035110 0 0 010000000000 0 000000010000 -ST9 031655 035110 0 0 010000000000 0 000000010000 - - -*031655 SKIPN 0,000000 -INITIAL -C(AC)=010000 000000 -C(E)=010000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031655 031655 0 0 336000000000 0 010000000000 -IT1 031655 0 0 0 336000000000 0 010000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 152 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0368 - -AT3 031655 0 0 0 0 0 336000000000 -AT6 031655 0 0 0 0 0 336000000000 -FT0 031655 0 0 0 010000000000 0 336000000000 -FT1A 031655 0 0 0 010000000000 0 010000000000 -FT9 031656 0 0 0 010000000000 0 010000000000 -ET0 031657 0 0 0 010000000000 0 010000000000 -ST1A 031657 0 0 0 010000000000 0 010000000000 -ST9 031657 0 0 0 010000000000 0 010000000000 - - -*031657 JUMPA 0,031660 -INITIAL -C(AC)=010000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031657 031657 0 0 324000031660 0 000000031660 -IT1 031657 0 0 0 324000031660 0 000000031660 -AT3 031657 0 0 0 000000031660 0 324000031660 -AT6 031657 031660 0 0 000000031660 0 324000031660 -FT1A 031657 031660 0 0 000000031660 0 000000031660 -FT2 031657 031660 0 0 0 0 000000031660 -FT2RQ 031657 031660 0 0 010000000000 0 000000031660 -FT3 031657 031660 0 0 010000000000 0 000000031660 -FT9 031660 031660 0 0 010000000000 0 000000031660 -ET0 031660 031660 0 0 010000000000 0 000000031660 -ST1A 031660 031660 0 0 010000000000 0 000000031660 -ST9 031660 031660 0 0 010000000000 0 000000031660 - - -*031660 MOVE 0,035062 -INITIAL -C(AC)=010000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031660 031660 0 0 200000035062 0 0 -IT1 031660 0 0 0 200000035062 0 0 -AT3 031660 0 0 0 000000035062 0 200000035062 -AT6 031660 035062 0 0 000000035062 0 200000035062 -FT0 031660 035062 0 0 0 0 200000035062 -FT1A 031660 035062 0 0 0 0 0 -FT9 031661 035062 0 0 0 0 0 -ET0 031661 035062 0 0 0 0 0 -ST1 031661 035062 0 0 0 0 0 -ST2 031661 035062 0 0 0 0 0 -ST9 031661 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 153 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0369 - -*031661 MOVS 0,035111 -INITIAL -C(AC)=000000 000000 -C(E)=000000 020000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031661 031661 0 0 204000035111 0 000000020000 -IT1 031661 0 0 0 204000035111 0 000000020000 -AT3 031661 0 0 0 000000035111 0 204000035111 -AT6 031661 035111 0 0 000000035111 0 204000035111 -FT0 031661 035111 0 0 000000020000 0 204000035111 -FT1A 031661 035111 0 0 000000020000 0 000000020000 -FT9 031662 035111 0 0 000000020000 0 000000020000 -ET0 031662 035111 0 0 020000000000 0 000000020000 -ST1 031662 035111 0 0 020000000000 0 000000020000 -ST2 031662 035111 0 0 020000000000 0 000000020000 -ST9 031662 035111 0 0 020000000000 0 000000020000 - - -*031662 SKIPN 0,000000 -INITIAL -C(AC)=020000 000000 -C(E)=020000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031662 031662 0 0 336000000000 0 020000000000 -IT1 031662 0 0 0 336000000000 0 020000000000 -AT3 031662 0 0 0 0 0 336000000000 -AT6 031662 0 0 0 0 0 336000000000 -FT0 031662 0 0 0 020000000000 0 336000000000 -FT1A 031662 0 0 0 020000000000 0 020000000000 -FT9 031663 0 0 0 020000000000 0 020000000000 -ET0 031664 0 0 0 020000000000 0 020000000000 -ST1A 031664 0 0 0 020000000000 0 020000000000 -ST9 031664 0 0 0 020000000000 0 020000000000 - - -*031664 JUMPA 0,031665 -INITIAL -C(AC)=020000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031664 031664 0 0 324000031665 0 000000031665 -IT1 031664 0 0 0 324000031665 0 000000031665 -AT3 031664 0 0 0 000000031665 0 324000031665 -AT6 031664 031665 0 0 000000031665 0 324000031665 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 154 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0370 - -FT1A 031664 031665 0 0 000000031665 0 000000031665 -FT2 031664 031665 0 0 0 0 000000031665 -FT2RQ 031664 031665 0 0 020000000000 0 000000031665 -FT3 031664 031665 0 0 020000000000 0 000000031665 -FT9 031665 031665 0 0 020000000000 0 000000031665 -ET0 031665 031665 0 0 020000000000 0 000000031665 -ST1A 031665 031665 0 0 020000000000 0 000000031665 -ST9 031665 031665 0 0 020000000000 0 000000031665 - - -*031665 MOVE 0,035062 -INITIAL -C(AC)=020000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031665 031665 0 0 200000035062 0 0 -IT1 031665 0 0 0 200000035062 0 0 -AT3 031665 0 0 0 000000035062 0 200000035062 -AT6 031665 035062 0 0 000000035062 0 200000035062 -FT0 031665 035062 0 0 0 0 200000035062 -FT1A 031665 035062 0 0 0 0 0 -FT9 031666 035062 0 0 0 0 0 -ET0 031666 035062 0 0 0 0 0 -ST1 031666 035062 0 0 0 0 0 -ST2 031666 035062 0 0 0 0 0 -ST9 031666 035062 0 0 0 0 0 - - -*031666 MOVS 0,035112 -INITIAL -C(AC)=000000 000000 -C(E)=000000 040000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031666 031666 0 0 204000035112 0 000000040000 -IT1 031666 0 0 0 204000035112 0 000000040000 -AT3 031666 0 0 0 000000035112 0 204000035112 -AT6 031666 035112 0 0 000000035112 0 204000035112 -FT0 031666 035112 0 0 000000040000 0 204000035112 -FT1A 031666 035112 0 0 000000040000 0 000000040000 -FT9 031667 035112 0 0 000000040000 0 000000040000 -ET0 031667 035112 0 0 040000000000 0 000000040000 -ST1 031667 035112 0 0 040000000000 0 000000040000 -ST2 031667 035112 0 0 040000000000 0 000000040000 -ST9 031667 035112 0 0 040000000000 0 000000040000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 155 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0371 - -*031667 SKIPN 0,000000 -INITIAL -C(AC)=040000 000000 -C(E)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031667 031667 0 0 336000000000 0 040000000000 -IT1 031667 0 0 0 336000000000 0 040000000000 -AT3 031667 0 0 0 0 0 336000000000 -AT6 031667 0 0 0 0 0 336000000000 -FT0 031667 0 0 0 040000000000 0 336000000000 -FT1A 031667 0 0 0 040000000000 0 040000000000 -FT9 031670 0 0 0 040000000000 0 040000000000 -ET0 031671 0 0 0 040000000000 0 040000000000 -ST1A 031671 0 0 0 040000000000 0 040000000000 -ST9 031671 0 0 0 040000000000 0 040000000000 - - -*031671 JUMPA 0,031672 -INITIAL -C(AC)=040000 000000 -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 040000000000 0 000000031672 -FT3 031671 031672 0 0 040000000000 0 000000031672 -FT9 031672 031672 0 0 040000000000 0 000000031672 -ET0 031672 031672 0 0 040000000000 0 000000031672 -ST1A 031672 031672 0 0 040000000000 0 000000031672 -ST9 031672 031672 0 0 040000000000 0 000000031672 - - -*031672 MOVE 0,035062 -INITIAL -C(AC)=040000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031672 031672 0 0 200000035062 0 0 -IT1 031672 0 0 0 200000035062 0 0 -AT3 031672 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 156 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0372 - -AT6 031672 035062 0 0 000000035062 0 200000035062 -FT0 031672 035062 0 0 0 0 200000035062 -FT1A 031672 035062 0 0 0 0 0 -FT9 031673 035062 0 0 0 0 0 -ET0 031673 035062 0 0 0 0 0 -ST1 031673 035062 0 0 0 0 0 -ST2 031673 035062 0 0 0 0 0 -ST9 031673 035062 0 0 0 0 0 - - -*031673 MOVS 0,035113 -INITIAL -C(AC)=000000 000000 -C(E)=000000 100000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031673 031673 0 0 204000035113 0 000000100000 -IT1 031673 0 0 0 204000035113 0 000000100000 -AT3 031673 0 0 0 000000035113 0 204000035113 -AT6 031673 035113 0 0 000000035113 0 204000035113 -FT0 031673 035113 0 0 000000100000 0 204000035113 -FT1A 031673 035113 0 0 000000100000 0 000000100000 -FT9 031674 035113 0 0 000000100000 0 000000100000 -ET0 031674 035113 0 0 100000000000 0 000000100000 -ST1 031674 035113 0 0 100000000000 0 000000100000 -ST2 031674 035113 0 0 100000000000 0 000000100000 -ST9 031674 035113 0 0 100000000000 0 000000100000 - - -*031674 SKIPN 0,000000 -INITIAL -C(AC)=100000 000000 -C(E)=100000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031674 031674 0 0 336000000000 0 100000000000 -IT1 031674 0 0 0 336000000000 0 100000000000 -AT3 031674 0 0 0 0 0 336000000000 -AT6 031674 0 0 0 0 0 336000000000 -FT0 031674 0 0 0 100000000000 0 336000000000 -FT1A 031674 0 0 0 100000000000 0 100000000000 -FT9 031675 0 0 0 100000000000 0 100000000000 -ET0 031676 0 0 0 100000000000 0 100000000000 -ST1A 031676 0 0 0 100000000000 0 100000000000 -ST9 031676 0 0 0 100000000000 0 100000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 157 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0373 - -*031676 JUMPA 0,031677 -INITIAL -C(AC)=100000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031676 031676 0 0 324000031677 0 000000031677 -IT1 031676 0 0 0 324000031677 0 000000031677 -AT3 031676 0 0 0 000000031677 0 324000031677 -AT6 031676 031677 0 0 000000031677 0 324000031677 -FT1A 031676 031677 0 0 000000031677 0 000000031677 -FT2 031676 031677 0 0 0 0 000000031677 -FT2RQ 031676 031677 0 0 100000000000 0 000000031677 -FT3 031676 031677 0 0 100000000000 0 000000031677 -FT9 031677 031677 0 0 100000000000 0 000000031677 -ET0 031677 031677 0 0 100000000000 0 000000031677 -ST1A 031677 031677 0 0 100000000000 0 000000031677 -ST9 031677 031677 0 0 100000000000 0 000000031677 - - -*031677 MOVE 0,035062 -INITIAL -C(AC)=100000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031677 031677 0 0 200000035062 0 0 -IT1 031677 0 0 0 200000035062 0 0 -AT3 031677 0 0 0 000000035062 0 200000035062 -AT6 031677 035062 0 0 000000035062 0 200000035062 -FT0 031677 035062 0 0 0 0 200000035062 -FT1A 031677 035062 0 0 0 0 0 -FT9 0 035062 0 0 0 0 0 -ET0 0 035062 0 0 0 0 0 -ST1 0 035062 0 0 0 0 0 -ST2 0 035062 0 0 0 0 0 -ST9 0 035062 0 0 0 0 0 - - -*031700 MOVS 0,035114 -INITIAL -C(AC)=000000 000000 -C(E)=000000 200000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 204000035114 0 000000200000 -IT1 0 0 0 0 204000035114 0 000000200000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 158 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0374 - -AT3 0 0 0 0 000000035114 0 204000035114 -AT6 0 035114 0 0 000000035114 0 204000035114 -FT0 0 035114 0 0 000000200000 0 204000035114 -FT1A 0 035114 0 0 000000200000 0 000000200000 -FT9 031701 035114 0 0 000000200000 0 000000200000 -ET0 031701 035114 0 0 200000000000 0 000000200000 -ST1 031701 035114 0 0 200000000000 0 000000200000 -ST2 031701 035114 0 0 200000000000 0 000000200000 -ST9 031701 035114 0 0 200000000000 0 000000200000 - - -*031701 SKIPN 0,000000 -INITIAL -C(AC)=200000 000000 -C(E)=200000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031701 031701 0 0 336000000000 0 200000000000 -IT1 031701 0 0 0 336000000000 0 200000000000 -AT3 031701 0 0 0 0 0 336000000000 -AT6 031701 0 0 0 0 0 336000000000 -FT0 031701 0 0 0 200000000000 0 336000000000 -FT1A 031701 0 0 0 200000000000 0 200000000000 -FT9 031702 0 0 0 200000000000 0 200000000000 -ET0 031703 0 0 0 200000000000 0 200000000000 -ST1A 031703 0 0 0 200000000000 0 200000000000 -ST9 031703 0 0 0 200000000000 0 200000000000 - - -*031703 JUMPA 0,031704 -INITIAL -C(AC)=200000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031703 031703 0 0 324000031704 0 000000031704 -IT1 031703 0 0 0 324000031704 0 000000031704 -AT3 031703 0 0 0 000000031704 0 324000031704 -AT6 031703 031704 0 0 000000031704 0 324000031704 -FT1A 031703 031704 0 0 000000031704 0 000000031704 -FT2 031703 031704 0 0 0 0 000000031704 -FT2RQ 031703 031704 0 0 200000000000 0 000000031704 -FT3 031703 031704 0 0 200000000000 0 000000031704 -FT9 031704 031704 0 0 200000000000 0 000000031704 -ET0 031704 031704 0 0 200000000000 0 000000031704 -ST1A 031704 031704 0 0 200000000000 0 000000031704 -ST9 031704 031704 0 0 200000000000 0 000000031704 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 159 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0375 - -*031704 MOVE 0,035062 -INITIAL -C(AC)=200000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031704 031704 0 0 200000035062 0 0 -IT1 031704 0 0 0 200000035062 0 0 -AT3 031704 0 0 0 000000035062 0 200000035062 -AT6 031704 035062 0 0 000000035062 0 200000035062 -FT0 031704 035062 0 0 0 0 200000035062 -FT1A 031704 035062 0 0 0 0 0 -FT9 031705 035062 0 0 0 0 0 -ET0 031705 035062 0 0 0 0 0 -ST1 031705 035062 0 0 0 0 0 -ST2 031705 035062 0 0 0 0 0 -ST9 031705 035062 0 0 0 0 0 - - -*031705 MOVS 0,035115 -INITIAL -C(AC)=000000 000000 -C(E)=000000 400000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031705 031705 0 0 204000035115 0 000000400000 -IT1 031705 0 0 0 204000035115 0 000000400000 -AT3 031705 0 0 0 000000035115 0 204000035115 -AT6 031705 035115 0 0 000000035115 0 204000035115 -FT0 031705 035115 0 0 000000400000 0 204000035115 -FT1A 031705 035115 0 0 000000400000 0 000000400000 -FT9 031706 035115 0 0 000000400000 0 000000400000 -ET0 031706 035115 0 0 400000000000 0 000000400000 -ST1 031706 035115 0 0 400000000000 0 000000400000 -ST2 031706 035115 0 0 400000000000 0 000000400000 -ST9 031706 035115 0 0 400000000000 0 000000400000 - - -*031706 SKIPN 0,000000 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031706 031706 0 0 336000000000 0 400000000000 -IT1 031706 0 0 0 336000000000 0 400000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 160 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0376 - -AT3 031706 0 0 0 0 0 336000000000 -AT6 031706 0 0 0 0 0 336000000000 -FT0 031706 0 0 0 400000000000 0 336000000000 -FT1A 031706 0 0 0 400000000000 0 400000000000 -FT9 031707 0 0 0 400000000000 0 400000000000 -ET0 031710 0 0 0 400000000000 0 400000000000 -ST1A 031710 0 0 0 400000000000 0 400000000000 -ST9 031710 0 0 0 400000000000 0 400000000000 - - -*031710 JUMPA 0,031711 -INITIAL -C(AC)=400000 000000 -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 400000000000 0 000000031711 -FT3 031710 031711 0 0 400000000000 0 000000031711 -FT9 031711 031711 0 0 400000000000 0 000000031711 -ET0 031711 031711 0 0 400000000000 0 000000031711 -ST1A 031711 031711 0 0 400000000000 0 000000031711 -ST9 031711 031711 0 0 400000000000 0 000000031711 - - -*031711 MOVE 0,035062 -INITIAL -C(AC)=400000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031711 031711 0 0 200000035062 0 0 -IT1 031711 0 0 0 200000035062 0 0 -AT3 031711 0 0 0 000000035062 0 200000035062 -AT6 031711 035062 0 0 000000035062 0 200000035062 -FT0 031711 035062 0 0 0 0 200000035062 -FT1A 031711 035062 0 0 0 0 0 -FT9 031712 035062 0 0 0 0 0 -ET0 031712 035062 0 0 0 0 0 -ST1 031712 035062 0 0 0 0 0 -ST2 031712 035062 0 0 0 0 0 -ST9 031712 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 161 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0377 - -*031712 MOVS 0,035116 -INITIAL -C(AC)=000000 000000 -C(E)=000001 000000 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031712 031712 0 0 204000035116 0 000001000000 -IT1 031712 0 0 0 204000035116 0 000001000000 -AT3 031712 0 0 0 000000035116 0 204000035116 -AT6 031712 035116 0 0 000000035116 0 204000035116 -FT0 031712 035116 0 0 000001000000 0 204000035116 -FT1A 031712 035116 0 0 000001000000 0 000001000000 -FT9 031713 035116 0 0 000001000000 0 000001000000 -ET0 031713 035116 0 0 000000000001 0 000001000000 -ST1 031713 035116 0 0 000000000001 0 000001000000 -ST2 031713 035116 0 0 000000000001 0 000001000000 -ST9 031713 035116 0 0 000000000001 0 000001000000 - - -*031713 SKIPN 0,000000 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031713 031713 0 0 336000000000 0 000000000001 -IT1 031713 0 0 0 336000000000 0 000000000001 -AT3 031713 0 0 0 0 0 336000000000 -AT6 031713 0 0 0 0 0 336000000000 -FT0 031713 0 0 0 000000000001 0 336000000000 -FT1A 031713 0 0 0 000000000001 0 000000000001 -FT9 031714 0 0 0 000000000001 0 000000000001 -ET0 031715 0 0 0 000000000001 0 000000000001 -ST1A 031715 0 0 0 000000000001 0 000000000001 -ST9 031715 0 0 0 000000000001 0 000000000001 - - -*031715 JUMPA 0,031716 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031715 031715 0 0 324000031716 0 000000031716 -IT1 031715 0 0 0 324000031716 0 000000031716 -AT3 031715 0 0 0 000000031716 0 324000031716 -AT6 031715 031716 0 0 000000031716 0 324000031716 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 162 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0378 - -FT1A 031715 031716 0 0 000000031716 0 000000031716 -FT2 031715 031716 0 0 0 0 000000031716 -FT2RQ 031715 031716 0 0 000000000001 0 000000031716 -FT3 031715 031716 0 0 000000000001 0 000000031716 -FT9 031716 031716 0 0 000000000001 0 000000031716 -ET0 031716 031716 0 0 000000000001 0 000000031716 -ST1A 031716 031716 0 0 000000000001 0 000000031716 -ST9 031716 031716 0 0 000000000001 0 000000031716 - - -*031716 MOVE 0,035062 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031716 031716 0 0 200000035062 0 0 -IT1 031716 0 0 0 200000035062 0 0 -AT3 031716 0 0 0 000000035062 0 200000035062 -AT6 031716 035062 0 0 000000035062 0 200000035062 -FT0 031716 035062 0 0 0 0 200000035062 -FT1A 031716 035062 0 0 0 0 0 -FT9 031717 035062 0 0 0 0 0 -ET0 031717 035062 0 0 0 0 0 -ST1 031717 035062 0 0 0 0 0 -ST2 031717 035062 0 0 0 0 0 -ST9 031717 035062 0 0 0 0 0 - - -*031717 MOVS 0,035117 -INITIAL -C(AC)=000000 000000 -C(E)=000002 000000 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 031717 031717 0 0 204000035117 0 000002000000 -IT1 031717 0 0 0 204000035117 0 000002000000 -AT3 031717 0 0 0 000000035117 0 204000035117 -AT6 031717 035117 0 0 000000035117 0 204000035117 -FT0 031717 035117 0 0 000002000000 0 204000035117 -FT1A 031717 035117 0 0 000002000000 0 000002000000 -FT9 031720 035117 0 0 000002000000 0 000002000000 -ET0 031720 035117 0 0 000000000002 0 000002000000 -ST1 031720 035117 0 0 000000000002 0 000002000000 -ST2 031720 035117 0 0 000000000002 0 000002000000 -ST9 031720 035117 0 0 000000000002 0 000002000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 163 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0379 - -*031720 SKIPN 0,000000 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 031720 031720 0 0 336000000000 0 000000000002 -IT1 031720 0 0 0 336000000000 0 000000000002 -AT3 031720 0 0 0 0 0 336000000000 -AT6 031720 0 0 0 0 0 336000000000 -FT0 031720 0 0 0 000000000002 0 336000000000 -FT1A 031720 0 0 0 000000000002 0 000000000002 -FT9 031721 0 0 0 000000000002 0 000000000002 -ET0 031722 0 0 0 000000000002 0 000000000002 -ST1A 031722 0 0 0 000000000002 0 000000000002 -ST9 031722 0 0 0 000000000002 0 000000000002 - - -*031722 JUMPA 0,031723 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031722 031722 0 0 324000031723 0 000000031723 -IT1 031722 0 0 0 324000031723 0 000000031723 -AT3 031722 0 0 0 000000031723 0 324000031723 -AT6 031722 031723 0 0 000000031723 0 324000031723 -FT1A 031722 031723 0 0 000000031723 0 000000031723 -FT2 031722 031723 0 0 0 0 000000031723 -FT2RQ 031722 031723 0 0 000000000002 0 000000031723 -FT3 031722 031723 0 0 000000000002 0 000000031723 -FT9 031723 031723 0 0 000000000002 0 000000031723 -ET0 031723 031723 0 0 000000000002 0 000000031723 -ST1A 031723 031723 0 0 000000000002 0 000000031723 -ST9 031723 031723 0 0 000000000002 0 000000031723 - - -*031723 MOVE 0,035062 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031723 031723 0 0 200000035062 0 0 -IT1 031723 0 0 0 200000035062 0 0 -AT3 031723 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 164 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0380 - -AT6 031723 035062 0 0 000000035062 0 200000035062 -FT0 031723 035062 0 0 0 0 200000035062 -FT1A 031723 035062 0 0 0 0 0 -FT9 031724 035062 0 0 0 0 0 -ET0 031724 035062 0 0 0 0 0 -ST1 031724 035062 0 0 0 0 0 -ST2 031724 035062 0 0 0 0 0 -ST9 031724 035062 0 0 0 0 0 - - -*031724 MOVS 0,035120 -INITIAL -C(AC)=000000 000000 -C(E)=000004 000000 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 031724 031724 0 0 204000035120 0 000004000000 -IT1 031724 0 0 0 204000035120 0 000004000000 -AT3 031724 0 0 0 000000035120 0 204000035120 -AT6 031724 035120 0 0 000000035120 0 204000035120 -FT0 031724 035120 0 0 000004000000 0 204000035120 -FT1A 031724 035120 0 0 000004000000 0 000004000000 -FT9 031725 035120 0 0 000004000000 0 000004000000 -ET0 031725 035120 0 0 000000000004 0 000004000000 -ST1 031725 035120 0 0 000000000004 0 000004000000 -ST2 031725 035120 0 0 000000000004 0 000004000000 -ST9 031725 035120 0 0 000000000004 0 000004000000 - - -*031725 SKIPN 0,000000 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 031725 031725 0 0 336000000000 0 000000000004 -IT1 031725 0 0 0 336000000000 0 000000000004 -AT3 031725 0 0 0 0 0 336000000000 -AT6 031725 0 0 0 0 0 336000000000 -FT0 031725 0 0 0 000000000004 0 336000000000 -FT1A 031725 0 0 0 000000000004 0 000000000004 -FT9 031726 0 0 0 000000000004 0 000000000004 -ET0 031727 0 0 0 000000000004 0 000000000004 -ST1A 031727 0 0 0 000000000004 0 000000000004 -ST9 031727 0 0 0 000000000004 0 000000000004 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 165 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0381 - -*031727 JUMPA 0,031730 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031727 031727 0 0 324000031730 0 000000031730 -IT1 031727 0 0 0 324000031730 0 000000031730 -AT3 031727 0 0 0 000000031730 0 324000031730 -AT6 031727 031730 0 0 000000031730 0 324000031730 -FT1A 031727 031730 0 0 000000031730 0 000000031730 -FT2 031727 031730 0 0 0 0 000000031730 -FT2RQ 031727 031730 0 0 000000000004 0 000000031730 -FT3 031727 031730 0 0 000000000004 0 000000031730 -FT9 031730 031730 0 0 000000000004 0 000000031730 -ET0 031730 031730 0 0 000000000004 0 000000031730 -ST1A 031730 031730 0 0 000000000004 0 000000031730 -ST9 031730 031730 0 0 000000000004 0 000000031730 - - -*031730 MOVE 0,035062 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031730 031730 0 0 200000035062 0 0 -IT1 031730 0 0 0 200000035062 0 0 -AT3 031730 0 0 0 000000035062 0 200000035062 -AT6 031730 035062 0 0 000000035062 0 200000035062 -FT0 031730 035062 0 0 0 0 200000035062 -FT1A 031730 035062 0 0 0 0 0 -FT9 031731 035062 0 0 0 0 0 -ET0 031731 035062 0 0 0 0 0 -ST1 031731 035062 0 0 0 0 0 -ST2 031731 035062 0 0 0 0 0 -ST9 031731 035062 0 0 0 0 0 - - -*031731 MOVS 0,035121 -INITIAL -C(AC)=000000 000000 -C(E)=000010 000000 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 031731 031731 0 0 204000035121 0 000010000000 -IT1 031731 0 0 0 204000035121 0 000010000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 166 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0382 - -AT3 031731 0 0 0 000000035121 0 204000035121 -AT6 031731 035121 0 0 000000035121 0 204000035121 -FT0 031731 035121 0 0 000010000000 0 204000035121 -FT1A 031731 035121 0 0 000010000000 0 000010000000 -FT9 031732 035121 0 0 000010000000 0 000010000000 -ET0 031732 035121 0 0 000000000010 0 000010000000 -ST1 031732 035121 0 0 000000000010 0 000010000000 -ST2 031732 035121 0 0 000000000010 0 000010000000 -ST9 031732 035121 0 0 000000000010 0 000010000000 - - -*031732 SKIPN 0,000000 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 031732 031732 0 0 336000000000 0 000000000010 -IT1 031732 0 0 0 336000000000 0 000000000010 -AT3 031732 0 0 0 0 0 336000000000 -AT6 031732 0 0 0 0 0 336000000000 -FT0 031732 0 0 0 000000000010 0 336000000000 -FT1A 031732 0 0 0 000000000010 0 000000000010 -FT9 031733 0 0 0 000000000010 0 000000000010 -ET0 031734 0 0 0 000000000010 0 000000000010 -ST1A 031734 0 0 0 000000000010 0 000000000010 -ST9 031734 0 0 0 000000000010 0 000000000010 - - -*031734 JUMPA 0,031735 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031734 031734 0 0 324000031735 0 000000031735 -IT1 031734 0 0 0 324000031735 0 000000031735 -AT3 031734 0 0 0 000000031735 0 324000031735 -AT6 031734 031735 0 0 000000031735 0 324000031735 -FT1A 031734 031735 0 0 000000031735 0 000000031735 -FT2 031734 031735 0 0 0 0 000000031735 -FT2RQ 031734 031735 0 0 000000000010 0 000000031735 -FT3 031734 031735 0 0 000000000010 0 000000031735 -FT9 031735 031735 0 0 000000000010 0 000000031735 -ET0 031735 031735 0 0 000000000010 0 000000031735 -ST1A 031735 031735 0 0 000000000010 0 000000031735 -ST9 031735 031735 0 0 000000000010 0 000000031735 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 167 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0383 - -*031735 MOVE 0,035062 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031735 031735 0 0 200000035062 0 0 -IT1 031735 0 0 0 200000035062 0 0 -AT3 031735 0 0 0 000000035062 0 200000035062 -AT6 031735 035062 0 0 000000035062 0 200000035062 -FT0 031735 035062 0 0 0 0 200000035062 -FT1A 031735 035062 0 0 0 0 0 -FT9 031736 035062 0 0 0 0 0 -ET0 031736 035062 0 0 0 0 0 -ST1 031736 035062 0 0 0 0 0 -ST2 031736 035062 0 0 0 0 0 -ST9 031736 035062 0 0 0 0 0 - - -*031736 MOVS 0,035122 -INITIAL -C(AC)=000000 000000 -C(E)=000020 000000 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 031736 031736 0 0 204000035122 0 000020000000 -IT1 031736 0 0 0 204000035122 0 000020000000 -AT3 031736 0 0 0 000000035122 0 204000035122 -AT6 031736 035122 0 0 000000035122 0 204000035122 -FT0 031736 035122 0 0 000020000000 0 204000035122 -FT1A 031736 035122 0 0 000020000000 0 000020000000 -FT9 031737 035122 0 0 000020000000 0 000020000000 -ET0 031737 035122 0 0 000000000020 0 000020000000 -ST1 031737 035122 0 0 000000000020 0 000020000000 -ST2 031737 035122 0 0 000000000020 0 000020000000 -ST9 031737 035122 0 0 000000000020 0 000020000000 - - -*031737 SKIPN 0,000000 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000020 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 031737 031737 0 0 336000000000 0 000000000020 -IT1 031737 0 0 0 336000000000 0 000000000020 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 168 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0384 - -AT3 031737 0 0 0 0 0 336000000000 -AT6 031737 0 0 0 0 0 336000000000 -FT0 031737 0 0 0 000000000020 0 336000000000 -FT1A 031737 0 0 0 000000000020 0 000000000020 -FT9 031740 0 0 0 000000000020 0 000000000020 -ET0 031741 0 0 0 000000000020 0 000000000020 -ST1A 031741 0 0 0 000000000020 0 000000000020 -ST9 031741 0 0 0 000000000020 0 000000000020 - - -*031741 JUMPA 0,031742 -INITIAL -C(AC)=000000 000020 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031741 031741 0 0 324000031742 0 000000031742 -IT1 031741 0 0 0 324000031742 0 000000031742 -AT3 031741 0 0 0 000000031742 0 324000031742 -AT6 031741 031742 0 0 000000031742 0 324000031742 -FT1A 031741 031742 0 0 000000031742 0 000000031742 -FT2 031741 031742 0 0 0 0 000000031742 -FT2RQ 031741 031742 0 0 000000000020 0 000000031742 -FT3 031741 031742 0 0 000000000020 0 000000031742 -FT9 031742 031742 0 0 000000000020 0 000000031742 -ET0 031742 031742 0 0 000000000020 0 000000031742 -ST1A 031742 031742 0 0 000000000020 0 000000031742 -ST9 031742 031742 0 0 000000000020 0 000000031742 - - -*031742 MOVE 0,035062 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031742 031742 0 0 200000035062 0 0 -IT1 031742 0 0 0 200000035062 0 0 -AT3 031742 0 0 0 000000035062 0 200000035062 -AT6 031742 035062 0 0 000000035062 0 200000035062 -FT0 031742 035062 0 0 0 0 200000035062 -FT1A 031742 035062 0 0 0 0 0 -FT9 031743 035062 0 0 0 0 0 -ET0 031743 035062 0 0 0 0 0 -ST1 031743 035062 0 0 0 0 0 -ST2 031743 035062 0 0 0 0 0 -ST9 031743 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 169 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0385 - -*031743 MOVS 0,035123 -INITIAL -C(AC)=000000 000000 -C(E)=000040 000000 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 031743 031743 0 0 204000035123 0 000040000000 -IT1 031743 0 0 0 204000035123 0 000040000000 -AT3 031743 0 0 0 000000035123 0 204000035123 -AT6 031743 035123 0 0 000000035123 0 204000035123 -FT0 031743 035123 0 0 000040000000 0 204000035123 -FT1A 031743 035123 0 0 000040000000 0 000040000000 -FT9 031744 035123 0 0 000040000000 0 000040000000 -ET0 031744 035123 0 0 000000000040 0 000040000000 -ST1 031744 035123 0 0 000000000040 0 000040000000 -ST2 031744 035123 0 0 000000000040 0 000040000000 -ST9 031744 035123 0 0 000000000040 0 000040000000 - - -*031744 SKIPN 0,000000 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000040 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 031744 031744 0 0 336000000000 0 000000000040 -IT1 031744 0 0 0 336000000000 0 000000000040 -AT3 031744 0 0 0 0 0 336000000000 -AT6 031744 0 0 0 0 0 336000000000 -FT0 031744 0 0 0 000000000040 0 336000000000 -FT1A 031744 0 0 0 000000000040 0 000000000040 -FT9 031745 0 0 0 000000000040 0 000000000040 -ET0 031746 0 0 0 000000000040 0 000000000040 -ST1A 031746 0 0 0 000000000040 0 000000000040 -ST9 031746 0 0 0 000000000040 0 000000000040 - - -*031746 JUMPA 0,031747 -INITIAL -C(AC)=000000 000040 -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 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 170 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0386 - -FT1A 031746 031747 0 0 000000031747 0 000000031747 -FT2 031746 031747 0 0 0 0 000000031747 -FT2RQ 031746 031747 0 0 000000000040 0 000000031747 -FT3 031746 031747 0 0 000000000040 0 000000031747 -FT9 031747 031747 0 0 000000000040 0 000000031747 -ET0 031747 031747 0 0 000000000040 0 000000031747 -ST1A 031747 031747 0 0 000000000040 0 000000031747 -ST9 031747 031747 0 0 000000000040 0 000000031747 - - -*031747 MOVE 0,035062 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031747 031747 0 0 200000035062 0 0 -IT1 031747 0 0 0 200000035062 0 0 -AT3 031747 0 0 0 000000035062 0 200000035062 -AT6 031747 035062 0 0 000000035062 0 200000035062 -FT0 031747 035062 0 0 0 0 200000035062 -FT1A 031747 035062 0 0 0 0 0 -FT9 031750 035062 0 0 0 0 0 -ET0 031750 035062 0 0 0 0 0 -ST1 031750 035062 0 0 0 0 0 -ST2 031750 035062 0 0 0 0 0 -ST9 031750 035062 0 0 0 0 0 - - -*031750 MOVS 0,035124 -INITIAL -C(AC)=000000 000000 -C(E)=000100 000000 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 031750 031750 0 0 204000035124 0 000100000000 -IT1 031750 0 0 0 204000035124 0 000100000000 -AT3 031750 0 0 0 000000035124 0 204000035124 -AT6 031750 035124 0 0 000000035124 0 204000035124 -FT0 031750 035124 0 0 000100000000 0 204000035124 -FT1A 031750 035124 0 0 000100000000 0 000100000000 -FT9 031751 035124 0 0 000100000000 0 000100000000 -ET0 031751 035124 0 0 000000000100 0 000100000000 -ST1 031751 035124 0 0 000000000100 0 000100000000 -ST2 031751 035124 0 0 000000000100 0 000100000000 -ST9 031751 035124 0 0 000000000100 0 000100000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 171 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0387 - -*031751 SKIPN 0,000000 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000100 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 031751 031751 0 0 336000000000 0 000000000100 -IT1 031751 0 0 0 336000000000 0 000000000100 -AT3 031751 0 0 0 0 0 336000000000 -AT6 031751 0 0 0 0 0 336000000000 -FT0 031751 0 0 0 000000000100 0 336000000000 -FT1A 031751 0 0 0 000000000100 0 000000000100 -FT9 031752 0 0 0 000000000100 0 000000000100 -ET0 031753 0 0 0 000000000100 0 000000000100 -ST1A 031753 0 0 0 000000000100 0 000000000100 -ST9 031753 0 0 0 000000000100 0 000000000100 - - -*031753 JUMPA 0,031754 -INITIAL -C(AC)=000000 000100 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031753 031753 0 0 324000031754 0 000000031754 -IT1 031753 0 0 0 324000031754 0 000000031754 -AT3 031753 0 0 0 000000031754 0 324000031754 -AT6 031753 031754 0 0 000000031754 0 324000031754 -FT1A 031753 031754 0 0 000000031754 0 000000031754 -FT2 031753 031754 0 0 0 0 000000031754 -FT2RQ 031753 031754 0 0 000000000100 0 000000031754 -FT3 031753 031754 0 0 000000000100 0 000000031754 -FT9 031754 031754 0 0 000000000100 0 000000031754 -ET0 031754 031754 0 0 000000000100 0 000000031754 -ST1A 031754 031754 0 0 000000000100 0 000000031754 -ST9 031754 031754 0 0 000000000100 0 000000031754 - - -*031754 MOVE 0,035062 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031754 031754 0 0 200000035062 0 0 -IT1 031754 0 0 0 200000035062 0 0 -AT3 031754 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 172 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0388 - -AT6 031754 035062 0 0 000000035062 0 200000035062 -FT0 031754 035062 0 0 0 0 200000035062 -FT1A 031754 035062 0 0 0 0 0 -FT9 031755 035062 0 0 0 0 0 -ET0 031755 035062 0 0 0 0 0 -ST1 031755 035062 0 0 0 0 0 -ST2 031755 035062 0 0 0 0 0 -ST9 031755 035062 0 0 0 0 0 - - -*031755 MOVS 0,035125 -INITIAL -C(AC)=000000 000000 -C(E)=000200 000000 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 031755 031755 0 0 204000035125 0 000200000000 -IT1 031755 0 0 0 204000035125 0 000200000000 -AT3 031755 0 0 0 000000035125 0 204000035125 -AT6 031755 035125 0 0 000000035125 0 204000035125 -FT0 031755 035125 0 0 000200000000 0 204000035125 -FT1A 031755 035125 0 0 000200000000 0 000200000000 -FT9 031756 035125 0 0 000200000000 0 000200000000 -ET0 031756 035125 0 0 000000000200 0 000200000000 -ST1 031756 035125 0 0 000000000200 0 000200000000 -ST2 031756 035125 0 0 000000000200 0 000200000000 -ST9 031756 035125 0 0 000000000200 0 000200000000 - - -*031756 SKIPN 0,000000 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000200 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 031756 031756 0 0 336000000000 0 000000000200 -IT1 031756 0 0 0 336000000000 0 000000000200 -AT3 031756 0 0 0 0 0 336000000000 -AT6 031756 0 0 0 0 0 336000000000 -FT0 031756 0 0 0 000000000200 0 336000000000 -FT1A 031756 0 0 0 000000000200 0 000000000200 -FT9 031757 0 0 0 000000000200 0 000000000200 -ET0 031760 0 0 0 000000000200 0 000000000200 -ST1A 031760 0 0 0 000000000200 0 000000000200 -ST9 031760 0 0 0 000000000200 0 000000000200 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 173 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0389 - -*031760 JUMPA 0,031761 -INITIAL -C(AC)=000000 000200 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031760 031760 0 0 324000031761 0 000000031761 -IT1 031760 0 0 0 324000031761 0 000000031761 -AT3 031760 0 0 0 000000031761 0 324000031761 -AT6 031760 031761 0 0 000000031761 0 324000031761 -FT1A 031760 031761 0 0 000000031761 0 000000031761 -FT2 031760 031761 0 0 0 0 000000031761 -FT2RQ 031760 031761 0 0 000000000200 0 000000031761 -FT3 031760 031761 0 0 000000000200 0 000000031761 -FT9 031761 031761 0 0 000000000200 0 000000031761 -ET0 031761 031761 0 0 000000000200 0 000000031761 -ST1A 031761 031761 0 0 000000000200 0 000000031761 -ST9 031761 031761 0 0 000000000200 0 000000031761 - - -*031761 MOVE 0,035062 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031761 031761 0 0 200000035062 0 0 -IT1 031761 0 0 0 200000035062 0 0 -AT3 031761 0 0 0 000000035062 0 200000035062 -AT6 031761 035062 0 0 000000035062 0 200000035062 -FT0 031761 035062 0 0 0 0 200000035062 -FT1A 031761 035062 0 0 0 0 0 -FT9 031762 035062 0 0 0 0 0 -ET0 031762 035062 0 0 0 0 0 -ST1 031762 035062 0 0 0 0 0 -ST2 031762 035062 0 0 0 0 0 -ST9 031762 035062 0 0 0 0 0 - - -*031762 MOVS 0,035073 -INITIAL -C(AC)=000000 000000 -C(E)=000400 000000 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 031762 031762 0 0 204000035073 0 000400000000 -IT1 031762 0 0 0 204000035073 0 000400000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 174 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0390 - -AT3 031762 0 0 0 000000035073 0 204000035073 -AT6 031762 035073 0 0 000000035073 0 204000035073 -FT0 031762 035073 0 0 000400000000 0 204000035073 -FT1A 031762 035073 0 0 000400000000 0 000400000000 -FT9 031763 035073 0 0 000400000000 0 000400000000 -ET0 031763 035073 0 0 000000000400 0 000400000000 -ST1 031763 035073 0 0 000000000400 0 000400000000 -ST2 031763 035073 0 0 000000000400 0 000400000000 -ST9 031763 035073 0 0 000000000400 0 000400000000 - - -*031763 SKIPN 0,000000 -INITIAL -C(AC)=000000 000400 -C(E)=000000 000400 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 031763 031763 0 0 336000000000 0 000000000400 -IT1 031763 0 0 0 336000000000 0 000000000400 -AT3 031763 0 0 0 0 0 336000000000 -AT6 031763 0 0 0 0 0 336000000000 -FT0 031763 0 0 0 000000000400 0 336000000000 -FT1A 031763 0 0 0 000000000400 0 000000000400 -FT9 031764 0 0 0 000000000400 0 000000000400 -ET0 031765 0 0 0 000000000400 0 000000000400 -ST1A 031765 0 0 0 000000000400 0 000000000400 -ST9 031765 0 0 0 000000000400 0 000000000400 - - -*031765 JUMPA 0,031766 -INITIAL -C(AC)=000000 000400 -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 000000000400 0 000000031766 -FT3 031765 031766 0 0 000000000400 0 000000031766 -FT9 031766 031766 0 0 000000000400 0 000000031766 -ET0 031766 031766 0 0 000000000400 0 000000031766 -ST1A 031766 031766 0 0 000000000400 0 000000031766 -ST9 031766 031766 0 0 000000000400 0 000000031766 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 175 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0391 - -*031766 MOVE 0,035062 -INITIAL -C(AC)=000000 000400 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031766 031766 0 0 200000035062 0 0 -IT1 031766 0 0 0 200000035062 0 0 -AT3 031766 0 0 0 000000035062 0 200000035062 -AT6 031766 035062 0 0 000000035062 0 200000035062 -FT0 031766 035062 0 0 0 0 200000035062 -FT1A 031766 035062 0 0 0 0 0 -FT9 031767 035062 0 0 0 0 0 -ET0 031767 035062 0 0 0 0 0 -ST1 031767 035062 0 0 0 0 0 -ST2 031767 035062 0 0 0 0 0 -ST9 031767 035062 0 0 0 0 0 - - -*031767 MOVS 0,035126 -INITIAL -C(AC)=000000 000000 -C(E)=001000 000000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 031767 031767 0 0 204000035126 0 001000000000 -IT1 031767 0 0 0 204000035126 0 001000000000 -AT3 031767 0 0 0 000000035126 0 204000035126 -AT6 031767 035126 0 0 000000035126 0 204000035126 -FT0 031767 035126 0 0 001000000000 0 204000035126 -FT1A 031767 035126 0 0 001000000000 0 001000000000 -FT9 031770 035126 0 0 001000000000 0 001000000000 -ET0 031770 035126 0 0 000000001000 0 001000000000 -ST1 031770 035126 0 0 000000001000 0 001000000000 -ST2 031770 035126 0 0 000000001000 0 001000000000 -ST9 031770 035126 0 0 000000001000 0 001000000000 - - -*031770 SKIPN 0,000000 -INITIAL -C(AC)=000000 001000 -C(E)=000000 001000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 031770 031770 0 0 336000000000 0 000000001000 -IT1 031770 0 0 0 336000000000 0 000000001000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 176 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0392 - -AT3 031770 0 0 0 0 0 336000000000 -AT6 031770 0 0 0 0 0 336000000000 -FT0 031770 0 0 0 000000001000 0 336000000000 -FT1A 031770 0 0 0 000000001000 0 000000001000 -FT9 031771 0 0 0 000000001000 0 000000001000 -ET0 031772 0 0 0 000000001000 0 000000001000 -ST1A 031772 0 0 0 000000001000 0 000000001000 -ST9 031772 0 0 0 000000001000 0 000000001000 - - -*031772 JUMPA 0,031773 -INITIAL -C(AC)=000000 001000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031772 031772 0 0 324000031773 0 000000031773 -IT1 031772 0 0 0 324000031773 0 000000031773 -AT3 031772 0 0 0 000000031773 0 324000031773 -AT6 031772 031773 0 0 000000031773 0 324000031773 -FT1A 031772 031773 0 0 000000031773 0 000000031773 -FT2 031772 031773 0 0 0 0 000000031773 -FT2RQ 031772 031773 0 0 000000001000 0 000000031773 -FT3 031772 031773 0 0 000000001000 0 000000031773 -FT9 031773 031773 0 0 000000001000 0 000000031773 -ET0 031773 031773 0 0 000000001000 0 000000031773 -ST1A 031773 031773 0 0 000000001000 0 000000031773 -ST9 031773 031773 0 0 000000001000 0 000000031773 - - -*031773 MOVE 0,035062 -INITIAL -C(AC)=000000 001000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031773 031773 0 0 200000035062 0 0 -IT1 031773 0 0 0 200000035062 0 0 -AT3 031773 0 0 0 000000035062 0 200000035062 -AT6 031773 035062 0 0 000000035062 0 200000035062 -FT0 031773 035062 0 0 0 0 200000035062 -FT1A 031773 035062 0 0 0 0 0 -FT9 031774 035062 0 0 0 0 0 -ET0 031774 035062 0 0 0 0 0 -ST1 031774 035062 0 0 0 0 0 -ST2 031774 035062 0 0 0 0 0 -ST9 031774 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 177 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0393 - -*031774 MOVS 0,035127 -INITIAL -C(AC)=000000 000000 -C(E)=002000 000000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 031774 031774 0 0 204000035127 0 002000000000 -IT1 031774 0 0 0 204000035127 0 002000000000 -AT3 031774 0 0 0 000000035127 0 204000035127 -AT6 031774 035127 0 0 000000035127 0 204000035127 -FT0 031774 035127 0 0 002000000000 0 204000035127 -FT1A 031774 035127 0 0 002000000000 0 002000000000 -FT9 031775 035127 0 0 002000000000 0 002000000000 -ET0 031775 035127 0 0 000000002000 0 002000000000 -ST1 031775 035127 0 0 000000002000 0 002000000000 -ST2 031775 035127 0 0 000000002000 0 002000000000 -ST9 031775 035127 0 0 000000002000 0 002000000000 - - -*031775 SKIPN 0,000000 -INITIAL -C(AC)=000000 002000 -C(E)=000000 002000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 031775 031775 0 0 336000000000 0 000000002000 -IT1 031775 0 0 0 336000000000 0 000000002000 -AT3 031775 0 0 0 0 0 336000000000 -AT6 031775 0 0 0 0 0 336000000000 -FT0 031775 0 0 0 000000002000 0 336000000000 -FT1A 031775 0 0 0 000000002000 0 000000002000 -FT9 031776 0 0 0 000000002000 0 000000002000 -ET0 031777 0 0 0 000000002000 0 000000002000 -ST1A 031777 0 0 0 000000002000 0 000000002000 -ST9 031777 0 0 0 000000002000 0 000000002000 - - -*031777 JUMPA 0,032000 -INITIAL -C(AC)=000000 002000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031777 031777 0 0 324000032000 0 000000032000 -IT1 031777 0 0 0 324000032000 0 000000032000 -AT3 031777 0 0 0 000000032000 0 324000032000 -AT6 031777 0 0 0 000000032000 0 324000032000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 178 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0394 - -FT1A 031777 0 0 0 000000032000 0 000000032000 -FT2 031777 0 0 0 0 0 000000032000 -FT2RQ 031777 0 0 0 000000002000 0 000000032000 -FT3 031777 0 0 0 000000002000 0 000000032000 -FT9 0 0 0 0 000000002000 0 000000032000 -ET0 0 0 0 0 000000002000 0 000000032000 -ST1A 0 0 0 0 000000002000 0 000000032000 -ST9 0 0 0 0 000000002000 0 000000032000 - - -*032000 MOVE 0,035062 -INITIAL -C(AC)=000000 002000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 200000035062 0 0 -IT1 0 0 0 0 200000035062 0 0 -AT3 0 0 0 0 000000035062 0 200000035062 -AT6 0 035062 0 0 000000035062 0 200000035062 -FT0 0 035062 0 0 0 0 200000035062 -FT1A 0 035062 0 0 0 0 0 -FT9 032001 035062 0 0 0 0 0 -ET0 032001 035062 0 0 0 0 0 -ST1 032001 035062 0 0 0 0 0 -ST2 032001 035062 0 0 0 0 0 -ST9 032001 035062 0 0 0 0 0 - - -*032001 MOVS 0,035130 -INITIAL -C(AC)=000000 000000 -C(E)=004000 000000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 032001 032001 0 0 204000035130 0 004000000000 -IT1 032001 0 0 0 204000035130 0 004000000000 -AT3 032001 0 0 0 000000035130 0 204000035130 -AT6 032001 035130 0 0 000000035130 0 204000035130 -FT0 032001 035130 0 0 004000000000 0 204000035130 -FT1A 032001 035130 0 0 004000000000 0 004000000000 -FT9 032002 035130 0 0 004000000000 0 004000000000 -ET0 032002 035130 0 0 000000004000 0 004000000000 -ST1 032002 035130 0 0 000000004000 0 004000000000 -ST2 032002 035130 0 0 000000004000 0 004000000000 -ST9 032002 035130 0 0 000000004000 0 004000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 179 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0395 - -*032002 SKIPN 0,000000 -INITIAL -C(AC)=000000 004000 -C(E)=000000 004000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 032002 032002 0 0 336000000000 0 000000004000 -IT1 032002 0 0 0 336000000000 0 000000004000 -AT3 032002 0 0 0 0 0 336000000000 -AT6 032002 0 0 0 0 0 336000000000 -FT0 032002 0 0 0 000000004000 0 336000000000 -FT1A 032002 0 0 0 000000004000 0 000000004000 -FT9 032003 0 0 0 000000004000 0 000000004000 -ET0 032004 0 0 0 000000004000 0 000000004000 -ST1A 032004 0 0 0 000000004000 0 000000004000 -ST9 032004 0 0 0 000000004000 0 000000004000 - - -*032004 JUMPA 0,032005 -INITIAL -C(AC)=000000 004000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032004 032004 0 0 324000032005 0 000000032005 -IT1 032004 0 0 0 324000032005 0 000000032005 -AT3 032004 0 0 0 000000032005 0 324000032005 -AT6 032004 032005 0 0 000000032005 0 324000032005 -FT1A 032004 032005 0 0 000000032005 0 000000032005 -FT2 032004 032005 0 0 0 0 000000032005 -FT2RQ 032004 032005 0 0 000000004000 0 000000032005 -FT3 032004 032005 0 0 000000004000 0 000000032005 -FT9 032005 032005 0 0 000000004000 0 000000032005 -ET0 032005 032005 0 0 000000004000 0 000000032005 -ST1A 032005 032005 0 0 000000004000 0 000000032005 -ST9 032005 032005 0 0 000000004000 0 000000032005 - - -*032005 MOVE 0,035062 -INITIAL -C(AC)=000000 004000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032005 032005 0 0 200000035062 0 0 -IT1 032005 0 0 0 200000035062 0 0 -AT3 032005 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 180 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0396 - -AT6 032005 035062 0 0 000000035062 0 200000035062 -FT0 032005 035062 0 0 0 0 200000035062 -FT1A 032005 035062 0 0 0 0 0 -FT9 032006 035062 0 0 0 0 0 -ET0 032006 035062 0 0 0 0 0 -ST1 032006 035062 0 0 0 0 0 -ST2 032006 035062 0 0 0 0 0 -ST9 032006 035062 0 0 0 0 0 - - -*032006 MOVS 0,035131 -INITIAL -C(AC)=000000 000000 -C(E)=010000 000000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 032006 032006 0 0 204000035131 0 010000000000 -IT1 032006 0 0 0 204000035131 0 010000000000 -AT3 032006 0 0 0 000000035131 0 204000035131 -AT6 032006 035131 0 0 000000035131 0 204000035131 -FT0 032006 035131 0 0 010000000000 0 204000035131 -FT1A 032006 035131 0 0 010000000000 0 010000000000 -FT9 032007 035131 0 0 010000000000 0 010000000000 -ET0 032007 035131 0 0 000000010000 0 010000000000 -ST1 032007 035131 0 0 000000010000 0 010000000000 -ST2 032007 035131 0 0 000000010000 0 010000000000 -ST9 032007 035131 0 0 000000010000 0 010000000000 - - -*032007 SKIPN 0,000000 -INITIAL -C(AC)=000000 010000 -C(E)=000000 010000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 032007 032007 0 0 336000000000 0 000000010000 -IT1 032007 0 0 0 336000000000 0 000000010000 -AT3 032007 0 0 0 0 0 336000000000 -AT6 032007 0 0 0 0 0 336000000000 -FT0 032007 0 0 0 000000010000 0 336000000000 -FT1A 032007 0 0 0 000000010000 0 000000010000 -FT9 032010 0 0 0 000000010000 0 000000010000 -ET0 032011 0 0 0 000000010000 0 000000010000 -ST1A 032011 0 0 0 000000010000 0 000000010000 -ST9 032011 0 0 0 000000010000 0 000000010000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 181 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0397 - -*032011 JUMPA 0,032012 -INITIAL -C(AC)=000000 010000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032011 032011 0 0 324000032012 0 000000032012 -IT1 032011 0 0 0 324000032012 0 000000032012 -AT3 032011 0 0 0 000000032012 0 324000032012 -AT6 032011 032012 0 0 000000032012 0 324000032012 -FT1A 032011 032012 0 0 000000032012 0 000000032012 -FT2 032011 032012 0 0 0 0 000000032012 -FT2RQ 032011 032012 0 0 000000010000 0 000000032012 -FT3 032011 032012 0 0 000000010000 0 000000032012 -FT9 032012 032012 0 0 000000010000 0 000000032012 -ET0 032012 032012 0 0 000000010000 0 000000032012 -ST1A 032012 032012 0 0 000000010000 0 000000032012 -ST9 032012 032012 0 0 000000010000 0 000000032012 - - -*032012 MOVE 0,035062 -INITIAL -C(AC)=000000 010000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032012 032012 0 0 200000035062 0 0 -IT1 032012 0 0 0 200000035062 0 0 -AT3 032012 0 0 0 000000035062 0 200000035062 -AT6 032012 035062 0 0 000000035062 0 200000035062 -FT0 032012 035062 0 0 0 0 200000035062 -FT1A 032012 035062 0 0 0 0 0 -FT9 032013 035062 0 0 0 0 0 -ET0 032013 035062 0 0 0 0 0 -ST1 032013 035062 0 0 0 0 0 -ST2 032013 035062 0 0 0 0 0 -ST9 032013 035062 0 0 0 0 0 - - -*032013 MOVS 0,035132 -INITIAL -C(AC)=000000 000000 -C(E)=020000 000000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 032013 032013 0 0 204000035132 0 020000000000 -IT1 032013 0 0 0 204000035132 0 020000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 182 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0398 - -AT3 032013 0 0 0 000000035132 0 204000035132 -AT6 032013 035132 0 0 000000035132 0 204000035132 -FT0 032013 035132 0 0 020000000000 0 204000035132 -FT1A 032013 035132 0 0 020000000000 0 020000000000 -FT9 032014 035132 0 0 020000000000 0 020000000000 -ET0 032014 035132 0 0 000000020000 0 020000000000 -ST1 032014 035132 0 0 000000020000 0 020000000000 -ST2 032014 035132 0 0 000000020000 0 020000000000 -ST9 032014 035132 0 0 000000020000 0 020000000000 - - -*032014 SKIPN 0,000000 -INITIAL -C(AC)=000000 020000 -C(E)=000000 020000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 032014 032014 0 0 336000000000 0 000000020000 -IT1 032014 0 0 0 336000000000 0 000000020000 -AT3 032014 0 0 0 0 0 336000000000 -AT6 032014 0 0 0 0 0 336000000000 -FT0 032014 0 0 0 000000020000 0 336000000000 -FT1A 032014 0 0 0 000000020000 0 000000020000 -FT9 032015 0 0 0 000000020000 0 000000020000 -ET0 032016 0 0 0 000000020000 0 000000020000 -ST1A 032016 0 0 0 000000020000 0 000000020000 -ST9 032016 0 0 0 000000020000 0 000000020000 - - -*032016 JUMPA 0,032017 -INITIAL -C(AC)=000000 020000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032016 032016 0 0 324000032017 0 000000032017 -IT1 032016 0 0 0 324000032017 0 000000032017 -AT3 032016 0 0 0 000000032017 0 324000032017 -AT6 032016 032017 0 0 000000032017 0 324000032017 -FT1A 032016 032017 0 0 000000032017 0 000000032017 -FT2 032016 032017 0 0 0 0 000000032017 -FT2RQ 032016 032017 0 0 000000020000 0 000000032017 -FT3 032016 032017 0 0 000000020000 0 000000032017 -FT9 032017 032017 0 0 000000020000 0 000000032017 -ET0 032017 032017 0 0 000000020000 0 000000032017 -ST1A 032017 032017 0 0 000000020000 0 000000032017 -ST9 032017 032017 0 0 000000020000 0 000000032017 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 183 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0399 - -*032017 MOVE 0,035062 -INITIAL -C(AC)=000000 020000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032017 032017 0 0 200000035062 0 0 -IT1 032017 0 0 0 200000035062 0 0 -AT3 032017 0 0 0 000000035062 0 200000035062 -AT6 032017 035062 0 0 000000035062 0 200000035062 -FT0 032017 035062 0 0 0 0 200000035062 -FT1A 032017 035062 0 0 0 0 0 -FT9 032020 035062 0 0 0 0 0 -ET0 032020 035062 0 0 0 0 0 -ST1 032020 035062 0 0 0 0 0 -ST2 032020 035062 0 0 0 0 0 -ST9 032020 035062 0 0 0 0 0 - - -*032020 MOVS 0,035133 -INITIAL -C(AC)=000000 000000 -C(E)=040000 000000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 032020 032020 0 0 204000035133 0 040000000000 -IT1 032020 0 0 0 204000035133 0 040000000000 -AT3 032020 0 0 0 000000035133 0 204000035133 -AT6 032020 035133 0 0 000000035133 0 204000035133 -FT0 032020 035133 0 0 040000000000 0 204000035133 -FT1A 032020 035133 0 0 040000000000 0 040000000000 -FT9 032021 035133 0 0 040000000000 0 040000000000 -ET0 032021 035133 0 0 000000040000 0 040000000000 -ST1 032021 035133 0 0 000000040000 0 040000000000 -ST2 032021 035133 0 0 000000040000 0 040000000000 -ST9 032021 035133 0 0 000000040000 0 040000000000 - - -*032021 SKIPN 0,000000 -INITIAL -C(AC)=000000 040000 -C(E)=000000 040000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 032021 032021 0 0 336000000000 0 000000040000 -IT1 032021 0 0 0 336000000000 0 000000040000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 184 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0400 - -AT3 032021 0 0 0 0 0 336000000000 -AT6 032021 0 0 0 0 0 336000000000 -FT0 032021 0 0 0 000000040000 0 336000000000 -FT1A 032021 0 0 0 000000040000 0 000000040000 -FT9 032022 0 0 0 000000040000 0 000000040000 -ET0 032023 0 0 0 000000040000 0 000000040000 -ST1A 032023 0 0 0 000000040000 0 000000040000 -ST9 032023 0 0 0 000000040000 0 000000040000 - - -*032023 JUMPA 0,032024 -INITIAL -C(AC)=000000 040000 -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 000000040000 0 000000032024 -FT3 032023 032024 0 0 000000040000 0 000000032024 -FT9 032024 032024 0 0 000000040000 0 000000032024 -ET0 032024 032024 0 0 000000040000 0 000000032024 -ST1A 032024 032024 0 0 000000040000 0 000000032024 -ST9 032024 032024 0 0 000000040000 0 000000032024 - - -*032024 MOVE 0,035062 -INITIAL -C(AC)=000000 040000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032024 032024 0 0 200000035062 0 0 -IT1 032024 0 0 0 200000035062 0 0 -AT3 032024 0 0 0 000000035062 0 200000035062 -AT6 032024 035062 0 0 000000035062 0 200000035062 -FT0 032024 035062 0 0 0 0 200000035062 -FT1A 032024 035062 0 0 0 0 0 -FT9 032025 035062 0 0 0 0 0 -ET0 032025 035062 0 0 0 0 0 -ST1 032025 035062 0 0 0 0 0 -ST2 032025 035062 0 0 0 0 0 -ST9 032025 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 185 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0401 - -*032025 MOVS 0,035134 -INITIAL -C(AC)=000000 000000 -C(E)=100000 000000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 032025 032025 0 0 204000035134 0 100000000000 -IT1 032025 0 0 0 204000035134 0 100000000000 -AT3 032025 0 0 0 000000035134 0 204000035134 -AT6 032025 035134 0 0 000000035134 0 204000035134 -FT0 032025 035134 0 0 100000000000 0 204000035134 -FT1A 032025 035134 0 0 100000000000 0 100000000000 -FT9 032026 035134 0 0 100000000000 0 100000000000 -ET0 032026 035134 0 0 000000100000 0 100000000000 -ST1 032026 035134 0 0 000000100000 0 100000000000 -ST2 032026 035134 0 0 000000100000 0 100000000000 -ST9 032026 035134 0 0 000000100000 0 100000000000 - - -*032026 SKIPN 0,000000 -INITIAL -C(AC)=000000 100000 -C(E)=000000 100000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 032026 032026 0 0 336000000000 0 000000100000 -IT1 032026 0 0 0 336000000000 0 000000100000 -AT3 032026 0 0 0 0 0 336000000000 -AT6 032026 0 0 0 0 0 336000000000 -FT0 032026 0 0 0 000000100000 0 336000000000 -FT1A 032026 0 0 0 000000100000 0 000000100000 -FT9 032027 0 0 0 000000100000 0 000000100000 -ET0 032030 0 0 0 000000100000 0 000000100000 -ST1A 032030 0 0 0 000000100000 0 000000100000 -ST9 032030 0 0 0 000000100000 0 000000100000 - - -*032030 JUMPA 0,032031 -INITIAL -C(AC)=000000 100000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032030 032030 0 0 324000032031 0 000000032031 -IT1 032030 0 0 0 324000032031 0 000000032031 -AT3 032030 0 0 0 000000032031 0 324000032031 -AT6 032030 032031 0 0 000000032031 0 324000032031 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 186 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0402 - -FT1A 032030 032031 0 0 000000032031 0 000000032031 -FT2 032030 032031 0 0 0 0 000000032031 -FT2RQ 032030 032031 0 0 000000100000 0 000000032031 -FT3 032030 032031 0 0 000000100000 0 000000032031 -FT9 032031 032031 0 0 000000100000 0 000000032031 -ET0 032031 032031 0 0 000000100000 0 000000032031 -ST1A 032031 032031 0 0 000000100000 0 000000032031 -ST9 032031 032031 0 0 000000100000 0 000000032031 - - -*032031 MOVE 0,035062 -INITIAL -C(AC)=000000 100000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032031 032031 0 0 200000035062 0 0 -IT1 032031 0 0 0 200000035062 0 0 -AT3 032031 0 0 0 000000035062 0 200000035062 -AT6 032031 035062 0 0 000000035062 0 200000035062 -FT0 032031 035062 0 0 0 0 200000035062 -FT1A 032031 035062 0 0 0 0 0 -FT9 032032 035062 0 0 0 0 0 -ET0 032032 035062 0 0 0 0 0 -ST1 032032 035062 0 0 0 0 0 -ST2 032032 035062 0 0 0 0 0 -ST9 032032 035062 0 0 0 0 0 - - -*032032 MOVS 0,035135 -INITIAL -C(AC)=000000 000000 -C(E)=200000 000000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 032032 032032 0 0 204000035135 0 200000000000 -IT1 032032 0 0 0 204000035135 0 200000000000 -AT3 032032 0 0 0 000000035135 0 204000035135 -AT6 032032 035135 0 0 000000035135 0 204000035135 -FT0 032032 035135 0 0 200000000000 0 204000035135 -FT1A 032032 035135 0 0 200000000000 0 200000000000 -FT9 032033 035135 0 0 200000000000 0 200000000000 -ET0 032033 035135 0 0 000000200000 0 200000000000 -ST1 032033 035135 0 0 000000200000 0 200000000000 -ST2 032033 035135 0 0 000000200000 0 200000000000 -ST9 032033 035135 0 0 000000200000 0 200000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 187 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0403 - -*032033 SKIPN 0,000000 -INITIAL -C(AC)=000000 200000 -C(E)=000000 200000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 032033 032033 0 0 336000000000 0 000000200000 -IT1 032033 0 0 0 336000000000 0 000000200000 -AT3 032033 0 0 0 0 0 336000000000 -AT6 032033 0 0 0 0 0 336000000000 -FT0 032033 0 0 0 000000200000 0 336000000000 -FT1A 032033 0 0 0 000000200000 0 000000200000 -FT9 032034 0 0 0 000000200000 0 000000200000 -ET0 032035 0 0 0 000000200000 0 000000200000 -ST1A 032035 0 0 0 000000200000 0 000000200000 -ST9 032035 0 0 0 000000200000 0 000000200000 - - -*032035 JUMPA 0,032036 -INITIAL -C(AC)=000000 200000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032035 032035 0 0 324000032036 0 000000032036 -IT1 032035 0 0 0 324000032036 0 000000032036 -AT3 032035 0 0 0 000000032036 0 324000032036 -AT6 032035 032036 0 0 000000032036 0 324000032036 -FT1A 032035 032036 0 0 000000032036 0 000000032036 -FT2 032035 032036 0 0 0 0 000000032036 -FT2RQ 032035 032036 0 0 000000200000 0 000000032036 -FT3 032035 032036 0 0 000000200000 0 000000032036 -FT9 032036 032036 0 0 000000200000 0 000000032036 -ET0 032036 032036 0 0 000000200000 0 000000032036 -ST1A 032036 032036 0 0 000000200000 0 000000032036 -ST9 032036 032036 0 0 000000200000 0 000000032036 - - -*032036 MOVE 0,035062 -INITIAL -C(AC)=000000 200000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032036 032036 0 0 200000035062 0 0 -IT1 032036 0 0 0 200000035062 0 0 -AT3 032036 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 188 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0404 - -AT6 032036 035062 0 0 000000035062 0 200000035062 -FT0 032036 035062 0 0 0 0 200000035062 -FT1A 032036 035062 0 0 0 0 0 -FT9 032037 035062 0 0 0 0 0 -ET0 032037 035062 0 0 0 0 0 -ST1 032037 035062 0 0 0 0 0 -ST2 032037 035062 0 0 0 0 0 -ST9 032037 035062 0 0 0 0 0 - - -*032037 MOVS 0,035065 -INITIAL -C(AC)=000000 000000 -C(E)=400000 000000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 032037 032037 0 0 204000035065 0 400000000000 -IT1 032037 0 0 0 204000035065 0 400000000000 -AT3 032037 0 0 0 000000035065 0 204000035065 -AT6 032037 035065 0 0 000000035065 0 204000035065 -FT0 032037 035065 0 0 400000000000 0 204000035065 -FT1A 032037 035065 0 0 400000000000 0 400000000000 -FT9 032040 035065 0 0 400000000000 0 400000000000 -ET0 032040 035065 0 0 000000400000 0 400000000000 -ST1 032040 035065 0 0 000000400000 0 400000000000 -ST2 032040 035065 0 0 000000400000 0 400000000000 -ST9 032040 035065 0 0 000000400000 0 400000000000 - - -*032040 SKIPN 0,000000 -INITIAL -C(AC)=000000 400000 -C(E)=000000 400000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 032040 032040 0 0 336000000000 0 000000400000 -IT1 032040 0 0 0 336000000000 0 000000400000 -AT3 032040 0 0 0 0 0 336000000000 -AT6 032040 0 0 0 0 0 336000000000 -FT0 032040 0 0 0 000000400000 0 336000000000 -FT1A 032040 0 0 0 000000400000 0 000000400000 -FT9 032041 0 0 0 000000400000 0 000000400000 -ET0 032042 0 0 0 000000400000 0 000000400000 -ST1A 032042 0 0 0 000000400000 0 000000400000 -ST9 032042 0 0 0 000000400000 0 000000400000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 189 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0405 - -*032042 JUMPA 0,032043 -INITIAL -C(AC)=000000 400000 -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 000000400000 0 000000032043 -FT3 032042 032043 0 0 000000400000 0 000000032043 -FT9 032043 032043 0 0 000000400000 0 000000032043 -ET0 032043 032043 0 0 000000400000 0 000000032043 -ST1A 032043 032043 0 0 000000400000 0 000000032043 -ST9 032043 032043 0 0 000000400000 0 000000032043 - - -*032043 MOVE 0,035062 -INITIAL -C(AC)=000000 400000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032043 032043 0 0 200000035062 0 0 -IT1 032043 0 0 0 200000035062 0 0 -AT3 032043 0 0 0 000000035062 0 200000035062 -AT6 032043 035062 0 0 000000035062 0 200000035062 -FT0 032043 035062 0 0 0 0 200000035062 -FT1A 032043 035062 0 0 0 0 0 -FT9 032044 035062 0 0 0 0 0 -ET0 032044 035062 0 0 0 0 0 -ST1 032044 035062 0 0 0 0 0 -ST2 032044 035062 0 0 0 0 0 -ST9 032044 035062 0 0 0 0 0 - - -*032044 SETM 0,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032044 032044 0 0 414000035063 0 777777777777 -IT1 032044 0 0 0 414000035063 0 777777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 190 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0406 - -AT3 032044 0 0 0 000000035063 0 414000035063 -AT6 032044 035063 0 0 000000035063 0 414000035063 -FT0 032044 035063 0 0 777777777777 0 414000035063 -FT1A 032044 035063 0 0 777777777777 0 777777777777 -FT9 032045 035063 0 0 777777777777 0 777777777777 -ET0 032045 035063 0 0 777777777777 0 777777777777 -ST1 032045 035063 0 0 777777777777 0 777777777777 -ST2 032045 035063 0 0 777777777777 0 777777777777 -ST9 032045 035063 0 0 777777777777 0 777777777777 - - -*032045 SKIPL 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032045 032045 0 0 331000000000 0 777777777777 -IT1 032045 0 0 0 331000000000 0 777777777777 -AT3 032045 0 0 0 0 0 331000000000 -AT6 032045 0 0 0 0 0 331000000000 -FT0 032045 0 0 0 777777777777 0 331000000000 -FT1A 032045 0 0 0 777777777777 0 777777777777 -FT9 032046 0 0 0 777777777777 0 777777777777 -ET0 032047 0 0 0 777777777777 0 777777777777 -ST1A 032047 0 0 0 777777777777 0 777777777777 -ST9 032047 0 0 0 777777777777 0 777777777777 - - -*032047 JUMPA 0,032050 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032047 032047 0 0 324000032050 0 000000032050 -IT1 032047 0 0 0 324000032050 0 000000032050 -AT3 032047 0 0 0 000000032050 0 324000032050 -AT6 032047 032050 0 0 000000032050 0 324000032050 -FT1A 032047 032050 0 0 000000032050 0 000000032050 -FT2 032047 032050 0 0 0 0 000000032050 -FT2RQ 032047 032050 0 0 777777777777 0 000000032050 -FT3 032047 032050 0 0 777777777777 0 000000032050 -FT9 032050 032050 0 0 777777777777 0 000000032050 -ET0 032050 032050 0 0 777777777777 0 000000032050 -ST1A 032050 032050 0 0 777777777777 0 000000032050 -ST9 032050 032050 0 0 777777777777 0 000000032050 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 191 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0407 - -*032050 MOVE 0,035063 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032050 032050 0 0 200000035063 0 777777777777 -IT1 032050 0 0 0 200000035063 0 777777777777 -AT3 032050 0 0 0 000000035063 0 200000035063 -AT6 032050 035063 0 0 000000035063 0 200000035063 -FT0 032050 035063 0 0 777777777777 0 200000035063 -FT1A 032050 035063 0 0 777777777777 0 777777777777 -FT9 032051 035063 0 0 777777777777 0 777777777777 -ET0 032051 035063 0 0 777777777777 0 777777777777 -ST1 032051 035063 0 0 777777777777 0 777777777777 -ST2 032051 035063 0 0 777777777777 0 777777777777 -ST9 032051 035063 0 0 777777777777 0 777777777777 - - -*032051 SETM 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032051 032051 0 0 414000035062 0 0 -IT1 032051 0 0 0 414000035062 0 0 -AT3 032051 0 0 0 000000035062 0 414000035062 -AT6 032051 035062 0 0 000000035062 0 414000035062 -FT0 032051 035062 0 0 0 0 414000035062 -FT1A 032051 035062 0 0 0 0 0 -FT9 032052 035062 0 0 0 0 0 -ET0 032052 035062 0 0 0 0 0 -ST1 032052 035062 0 0 0 0 0 -ST2 032052 035062 0 0 0 0 0 -ST9 032052 035062 0 0 0 0 0 - - -*032052 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 032052 032052 0 0 332000000000 0 0 -IT1 032052 0 0 0 332000000000 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 192 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0408 - -AT3 032052 0 0 0 0 0 332000000000 -AT6 032052 0 0 0 0 0 332000000000 -FT0 032052 0 0 0 0 0 332000000000 -FT1A 032052 0 0 0 0 0 0 -FT9 032053 0 0 0 0 0 0 -ET0 032054 0 0 0 0 0 0 -ST1A 032054 0 0 0 0 0 0 -ST9 032054 0 0 0 0 0 0 - - -*032054 JUMPA 0,032055 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032054 032054 0 0 324000032055 0 000000032055 -IT1 032054 0 0 0 324000032055 0 000000032055 -AT3 032054 0 0 0 000000032055 0 324000032055 -AT6 032054 032055 0 0 000000032055 0 324000032055 -FT1A 032054 032055 0 0 000000032055 0 000000032055 -FT2 032054 032055 0 0 0 0 000000032055 -FT2RQ 032054 032055 0 0 0 0 000000032055 -FT3 032054 032055 0 0 0 0 000000032055 -FT9 032055 032055 0 0 0 0 000000032055 -ET0 032055 032055 0 0 0 0 000000032055 -ST1A 032055 032055 0 0 0 0 000000032055 -ST9 032055 032055 0 0 0 0 000000032055 - - -*032055 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032055 032055 0 0 200000035062 0 0 -IT1 032055 0 0 0 200000035062 0 0 -AT3 032055 0 0 0 000000035062 0 200000035062 -AT6 032055 035062 0 0 000000035062 0 200000035062 -FT0 032055 035062 0 0 0 0 200000035062 -FT1A 032055 035062 0 0 0 0 0 -FT9 032056 035062 0 0 0 0 0 -ET0 032056 035062 0 0 0 0 0 -ST1 032056 035062 0 0 0 0 0 -ST2 032056 035062 0 0 0 0 0 -ST9 032056 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 193 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0409 - -*032056 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 032056 032056 0 0 400000000000 0 0 -IT1 032056 0 0 0 400000000000 0 0 -AT3 032056 0 0 0 0 0 400000000000 -AT6 032056 0 0 0 0 0 400000000000 -FT1A 032056 0 0 0 0 0 0 -FT9 032057 0 0 0 0 0 0 -ET0 032057 0 0 0 0 0 0 -ST1 032057 0 0 0 0 0 0 -ST2 032057 0 0 0 0 0 0 -ST9 032057 0 0 0 0 0 0 - - -*032057 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 032057 032057 0 0 332000000000 0 0 -IT1 032057 0 0 0 332000000000 0 0 -AT3 032057 0 0 0 0 0 332000000000 -AT6 032057 0 0 0 0 0 332000000000 -FT0 032057 0 0 0 0 0 332000000000 -FT1A 032057 0 0 0 0 0 0 -FT9 032060 0 0 0 0 0 0 -ET0 032061 0 0 0 0 0 0 -ST1A 032061 0 0 0 0 0 0 -ST9 032061 0 0 0 0 0 0 - - -*032061 JUMPA 0,032062 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032061 032061 0 0 324000032062 0 000000032062 -IT1 032061 0 0 0 324000032062 0 000000032062 -AT3 032061 0 0 0 000000032062 0 324000032062 -AT6 032061 032062 0 0 000000032062 0 324000032062 -FT1A 032061 032062 0 0 000000032062 0 000000032062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 194 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0410 - -FT2 032061 032062 0 0 0 0 000000032062 -FT2RQ 032061 032062 0 0 0 0 000000032062 -FT3 032061 032062 0 0 0 0 000000032062 -FT9 032062 032062 0 0 0 0 000000032062 -ET0 032062 032062 0 0 0 0 000000032062 -ST1A 032062 032062 0 0 0 0 000000032062 -ST9 032062 032062 0 0 0 0 000000032062 - - -*032062 MOVE 0,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032062 032062 0 0 200000035063 0 777777777777 -IT1 032062 0 0 0 200000035063 0 777777777777 -AT3 032062 0 0 0 000000035063 0 200000035063 -AT6 032062 035063 0 0 000000035063 0 200000035063 -FT0 032062 035063 0 0 777777777777 0 200000035063 -FT1A 032062 035063 0 0 777777777777 0 777777777777 -FT9 032063 035063 0 0 777777777777 0 777777777777 -ET0 032063 035063 0 0 777777777777 0 777777777777 -ST1 032063 035063 0 0 777777777777 0 777777777777 -ST2 032063 035063 0 0 777777777777 0 777777777777 -ST9 032063 035063 0 0 777777777777 0 777777777777 - - -*032063 SETZ 0,032063 -INITIAL -C(AC)=777777 777777 -C(E)=400000 032063 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032063 032063 0 0 400000032063 0 000000032063 -IT1 032063 0 0 0 400000032063 0 000000032063 -AT3 032063 0 0 0 000000032063 0 400000032063 -AT6 032063 032063 0 0 000000032063 0 400000032063 -FT1A 032063 032063 0 0 000000032063 0 000000032063 -FT9 032064 032063 0 0 000000032063 0 000000032063 -ET0 032064 032063 0 0 0 0 000000032063 -ST1 032064 032063 0 0 0 0 000000032063 -ST2 032064 032063 0 0 0 0 000000032063 -ST9 032064 032063 0 0 0 0 000000032063 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 195 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0411 - -*032064 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 032064 032064 0 0 332000000000 0 0 -IT1 032064 0 0 0 332000000000 0 0 -AT3 032064 0 0 0 0 0 332000000000 -AT6 032064 0 0 0 0 0 332000000000 -FT0 032064 0 0 0 0 0 332000000000 -FT1A 032064 0 0 0 0 0 0 -FT9 032065 0 0 0 0 0 0 -ET0 032066 0 0 0 0 0 0 -ST1A 032066 0 0 0 0 0 0 -ST9 032066 0 0 0 0 0 0 - - -*032066 JUMPA 0,032067 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032066 032066 0 0 324000032067 0 000000032067 -IT1 032066 0 0 0 324000032067 0 000000032067 -AT3 032066 0 0 0 000000032067 0 324000032067 -AT6 032066 032067 0 0 000000032067 0 324000032067 -FT1A 032066 032067 0 0 000000032067 0 000000032067 -FT2 032066 032067 0 0 0 0 000000032067 -FT2RQ 032066 032067 0 0 0 0 000000032067 -FT3 032066 032067 0 0 0 0 000000032067 -FT9 032067 032067 0 0 0 0 000000032067 -ET0 032067 032067 0 0 0 0 000000032067 -ST1A 032067 032067 0 0 0 0 000000032067 -ST9 032067 032067 0 0 0 0 000000032067 - - -*032067 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032067 032067 0 0 200000035062 0 0 -IT1 032067 0 0 0 200000035062 0 0 -AT3 032067 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 196 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0412 - -AT6 032067 035062 0 0 000000035062 0 200000035062 -FT0 032067 035062 0 0 0 0 200000035062 -FT1A 032067 035062 0 0 0 0 0 -FT9 032070 035062 0 0 0 0 0 -ET0 032070 035062 0 0 0 0 0 -ST1 032070 035062 0 0 0 0 0 -ST2 032070 035062 0 0 0 0 0 -ST9 032070 035062 0 0 0 0 0 - - -*032070 AND 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 032070 032070 0 0 404000000000 0 0 -IT1 032070 0 0 0 404000000000 0 0 -AT3 032070 0 0 0 0 0 404000000000 -AT6 032070 0 0 0 0 0 404000000000 -FT0 032070 0 0 0 0 0 404000000000 -FT1A 032070 0 0 0 0 0 0 -FT2 032070 0 0 0 0 0 0 -FT2RQ 032070 0 0 0 0 0 0 -FT3 032070 0 0 0 0 0 0 -FT9 032071 0 0 0 0 0 0 -ET0 032071 0 0 0 0 0 0 -ST1 032071 0 0 0 0 0 0 -ST2 032071 0 0 0 0 0 0 -ST9 032071 0 0 0 0 0 0 - - -*032071 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 032071 032071 0 0 332000000000 0 0 -IT1 032071 0 0 0 332000000000 0 0 -AT3 032071 0 0 0 0 0 332000000000 -AT6 032071 0 0 0 0 0 332000000000 -FT0 032071 0 0 0 0 0 332000000000 -FT1A 032071 0 0 0 0 0 0 -FT9 032072 0 0 0 0 0 0 -ET0 032073 0 0 0 0 0 0 -ST1A 032073 0 0 0 0 0 0 -ST9 032073 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 197 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0413 - - - -*032073 JUMPA 0,032074 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032073 032073 0 0 324000032074 0 000000032074 -IT1 032073 0 0 0 324000032074 0 000000032074 -AT3 032073 0 0 0 000000032074 0 324000032074 -AT6 032073 032074 0 0 000000032074 0 324000032074 -FT1A 032073 032074 0 0 000000032074 0 000000032074 -FT2 032073 032074 0 0 0 0 000000032074 -FT2RQ 032073 032074 0 0 0 0 000000032074 -FT3 032073 032074 0 0 0 0 000000032074 -FT9 032074 032074 0 0 0 0 000000032074 -ET0 032074 032074 0 0 0 0 000000032074 -ST1A 032074 032074 0 0 0 0 000000032074 -ST9 032074 032074 0 0 0 0 000000032074 - - -*032074 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 032074 032074 0 0 400000000000 0 0 -IT1 032074 0 0 0 400000000000 0 0 -AT3 032074 0 0 0 0 0 400000000000 -AT6 032074 0 0 0 0 0 400000000000 -FT1A 032074 0 0 0 0 0 0 -FT9 032075 0 0 0 0 0 0 -ET0 032075 0 0 0 0 0 0 -ST1 032075 0 0 0 0 0 0 -ST2 032075 0 0 0 0 0 0 -ST9 032075 0 0 0 0 0 0 - - -*032075 MOVE 1,035074 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032075 032075 0 0 200040035074 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 198 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0414 - -IT1 032075 0 0 0 200040035074 0 000000000001 -AT3 032075 0 0 0 000000035074 0 200040035074 -AT6 032075 035074 0 0 000000035074 0 200040035074 -FT0 032075 035074 0 0 000000000001 0 200040035074 -FT1A 032075 035074 0 0 000000000001 0 000000000001 -FT9 032076 035074 0 0 000000000001 0 000000000001 -ET0 032076 035074 0 0 000000000001 0 000000000001 -ST1 032076 035074 0 0 000000000001 0 000000000001 -ST2 032076 035074 0 0 000000000001 0 000000000001 -ST9 032076 035074 0 0 000000000001 0 000000000001 - - -*032076 AND 1,000000 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032076 032076 0 0 404040000000 0 0 -IT1 032076 0 0 0 404040000000 0 0 -AT3 032076 0 0 0 0 0 404040000000 -AT6 032076 0 0 0 0 0 404040000000 -FT0 032076 0 0 0 0 0 404040000000 -FT1A 032076 0 0 0 0 0 0 -FT2 032076 0 0 0 0 0 0 -FT2RQ 032076 0 0 0 000000000001 0 0 -FT3 032076 0 0 0 000000000001 0 0 -FT9 032077 0 0 0 000000000001 0 0 -ET0 032077 0 0 0 0 0 0 -ST1 032077 0 0 0 0 0 0 -ST2 032077 0 0 0 0 0 0 -ST9 032077 0 0 0 0 0 0 - - -*032077 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 032077 032077 0 0 332000000001 0 0 -IT1 032077 0 0 0 332000000001 0 0 -AT3 032077 0 0 0 000000000001 0 332000000001 -AT6 032077 000001 0 0 000000000001 0 332000000001 -FT0 032077 000001 0 0 0 0 332000000001 -FT1A 032077 000001 0 0 0 0 0 -FT9 0 000001 0 0 0 0 0 -ET0 032101 000001 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 199 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0415 - -ST1A 032101 000001 0 0 0 0 0 -ST9 032101 000001 0 0 0 0 0 - - -*032101 JUMPA 0,032102 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032101 032101 0 0 324000032102 0 000000032102 -IT1 032101 0 0 0 324000032102 0 000000032102 -AT3 032101 0 0 0 000000032102 0 324000032102 -AT6 032101 032102 0 0 000000032102 0 324000032102 -FT1A 032101 032102 0 0 000000032102 0 000000032102 -FT2 032101 032102 0 0 0 0 000000032102 -FT2RQ 032101 032102 0 0 0 0 000000032102 -FT3 032101 032102 0 0 0 0 000000032102 -FT9 032102 032102 0 0 0 0 000000032102 -ET0 032102 032102 0 0 0 0 000000032102 -ST1A 032102 032102 0 0 0 0 000000032102 -ST9 032102 032102 0 0 0 0 000000032102 - - -*032102 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 032102 032102 0 0 332000000000 0 0 -IT1 032102 0 0 0 332000000000 0 0 -AT3 032102 0 0 0 0 0 332000000000 -AT6 032102 0 0 0 0 0 332000000000 -FT0 032102 0 0 0 0 0 332000000000 -FT1A 032102 0 0 0 0 0 0 -FT9 032103 0 0 0 0 0 0 -ET0 032104 0 0 0 0 0 0 -ST1A 032104 0 0 0 0 0 0 -ST9 032104 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 200 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0416 - -*032104 JUMPA 0,032105 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032104 032104 0 0 324000032105 0 000000032105 -IT1 032104 0 0 0 324000032105 0 000000032105 -AT3 032104 0 0 0 000000032105 0 324000032105 -AT6 032104 032105 0 0 000000032105 0 324000032105 -FT1A 032104 032105 0 0 000000032105 0 000000032105 -FT2 032104 032105 0 0 0 0 000000032105 -FT2RQ 032104 032105 0 0 0 0 000000032105 -FT3 032104 032105 0 0 0 0 000000032105 -FT9 032105 032105 0 0 0 0 000000032105 -ET0 032105 032105 0 0 0 0 000000032105 -ST1A 032105 032105 0 0 0 0 000000032105 -ST9 032105 032105 0 0 0 0 000000032105 - - -*032105 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 032105 032105 0 0 400000000000 0 0 -IT1 032105 0 0 0 400000000000 0 0 -AT3 032105 0 0 0 0 0 400000000000 -AT6 032105 0 0 0 0 0 400000000000 -FT1A 032105 0 0 0 0 0 0 -FT9 032106 0 0 0 0 0 0 -ET0 032106 0 0 0 0 0 0 -ST1 032106 0 0 0 0 0 0 -ST2 032106 0 0 0 0 0 0 -ST9 032106 0 0 0 0 0 0 - - -*032106 MOVE 1,035075 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 032106 032106 0 0 200040035075 0 000000000002 -IT1 032106 0 0 0 200040035075 0 000000000002 -AT3 032106 0 0 0 000000035075 0 200040035075 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 201 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0417 - -AT6 032106 035075 0 0 000000035075 0 200040035075 -FT0 032106 035075 0 0 000000000002 0 200040035075 -FT1A 032106 035075 0 0 000000000002 0 000000000002 -FT9 032107 035075 0 0 000000000002 0 000000000002 -ET0 032107 035075 0 0 000000000002 0 000000000002 -ST1 032107 035075 0 0 000000000002 0 000000000002 -ST2 032107 035075 0 0 000000000002 0 000000000002 -ST9 032107 035075 0 0 000000000002 0 000000000002 - - -*032107 AND 1,000000 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032107 032107 0 0 404040000000 0 0 -IT1 032107 0 0 0 404040000000 0 0 -AT3 032107 0 0 0 0 0 404040000000 -AT6 032107 0 0 0 0 0 404040000000 -FT0 032107 0 0 0 0 0 404040000000 -FT1A 032107 0 0 0 0 0 0 -FT2 032107 0 0 0 0 0 0 -FT2RQ 032107 0 0 0 000000000002 0 0 -FT3 032107 0 0 0 000000000002 0 0 -FT9 032110 0 0 0 000000000002 0 0 -ET0 032110 0 0 0 0 0 0 -ST1 032110 0 0 0 0 0 0 -ST2 032110 0 0 0 0 0 0 -ST9 032110 0 0 0 0 0 0 - - -*032110 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 032110 032110 0 0 332000000001 0 0 -IT1 032110 0 0 0 332000000001 0 0 -AT3 032110 0 0 0 000000000001 0 332000000001 -AT6 032110 000001 0 0 000000000001 0 332000000001 -FT0 032110 000001 0 0 0 0 332000000001 -FT1A 032110 000001 0 0 0 0 0 -FT9 032111 000001 0 0 0 0 0 -ET0 032112 000001 0 0 0 0 0 -ST1A 032112 000001 0 0 0 0 0 -ST9 032112 000001 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 202 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0418 - - - -*032112 JUMPA 0,032113 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032112 032112 0 0 324000032113 0 000000032113 -IT1 032112 0 0 0 324000032113 0 000000032113 -AT3 032112 0 0 0 000000032113 0 324000032113 -AT6 032112 032113 0 0 000000032113 0 324000032113 -FT1A 032112 032113 0 0 000000032113 0 000000032113 -FT2 032112 032113 0 0 0 0 000000032113 -FT2RQ 032112 032113 0 0 0 0 000000032113 -FT3 032112 032113 0 0 0 0 000000032113 -FT9 032113 032113 0 0 0 0 000000032113 -ET0 032113 032113 0 0 0 0 000000032113 -ST1A 032113 032113 0 0 0 0 000000032113 -ST9 032113 032113 0 0 0 0 000000032113 - - -*032113 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 032113 032113 0 0 332000000000 0 0 -IT1 032113 0 0 0 332000000000 0 0 -AT3 032113 0 0 0 0 0 332000000000 -AT6 032113 0 0 0 0 0 332000000000 -FT0 032113 0 0 0 0 0 332000000000 -FT1A 032113 0 0 0 0 0 0 -FT9 032114 0 0 0 0 0 0 -ET0 032115 0 0 0 0 0 0 -ST1A 032115 0 0 0 0 0 0 -ST9 032115 0 0 0 0 0 0 - - -*032115 JUMPA 0,032116 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032115 032115 0 0 324000032116 0 000000032116 -IT1 032115 0 0 0 324000032116 0 000000032116 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 203 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0419 - -AT3 032115 0 0 0 000000032116 0 324000032116 -AT6 032115 032116 0 0 000000032116 0 324000032116 -FT1A 032115 032116 0 0 000000032116 0 000000032116 -FT2 032115 032116 0 0 0 0 000000032116 -FT2RQ 032115 032116 0 0 0 0 000000032116 -FT3 032115 032116 0 0 0 0 000000032116 -FT9 032116 032116 0 0 0 0 000000032116 -ET0 032116 032116 0 0 0 0 000000032116 -ST1A 032116 032116 0 0 0 0 000000032116 -ST9 032116 032116 0 0 0 0 000000032116 - - -*032116 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 032116 032116 0 0 400000000000 0 0 -IT1 032116 0 0 0 400000000000 0 0 -AT3 032116 0 0 0 0 0 400000000000 -AT6 032116 0 0 0 0 0 400000000000 -FT1A 032116 0 0 0 0 0 0 -FT9 032117 0 0 0 0 0 0 -ET0 032117 0 0 0 0 0 0 -ST1 032117 0 0 0 0 0 0 -ST2 032117 0 0 0 0 0 0 -ST9 032117 0 0 0 0 0 0 - - -*032117 MOVE 1,035076 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 032117 032117 0 0 200040035076 0 000000000004 -IT1 032117 0 0 0 200040035076 0 000000000004 -AT3 032117 0 0 0 000000035076 0 200040035076 -AT6 032117 035076 0 0 000000035076 0 200040035076 -FT0 032117 035076 0 0 000000000004 0 200040035076 -FT1A 032117 035076 0 0 000000000004 0 000000000004 -FT9 032120 035076 0 0 000000000004 0 000000000004 -ET0 032120 035076 0 0 000000000004 0 000000000004 -ST1 032120 035076 0 0 000000000004 0 000000000004 -ST2 032120 035076 0 0 000000000004 0 000000000004 -ST9 032120 035076 0 0 000000000004 0 000000000004 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 204 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0420 - - -*032120 AND 1,000000 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032120 032120 0 0 404040000000 0 0 -IT1 032120 0 0 0 404040000000 0 0 -AT3 032120 0 0 0 0 0 404040000000 -AT6 032120 0 0 0 0 0 404040000000 -FT0 032120 0 0 0 0 0 404040000000 -FT1A 032120 0 0 0 0 0 0 -FT2 032120 0 0 0 0 0 0 -FT2RQ 032120 0 0 0 000000000004 0 0 -FT3 032120 0 0 0 000000000004 0 0 -FT9 032121 0 0 0 000000000004 0 0 -ET0 032121 0 0 0 0 0 0 -ST1 032121 0 0 0 0 0 0 -ST2 032121 0 0 0 0 0 0 -ST9 032121 0 0 0 0 0 0 - - -*032121 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 032121 032121 0 0 332000000001 0 0 -IT1 032121 0 0 0 332000000001 0 0 -AT3 032121 0 0 0 000000000001 0 332000000001 -AT6 032121 000001 0 0 000000000001 0 332000000001 -FT0 032121 000001 0 0 0 0 332000000001 -FT1A 032121 000001 0 0 0 0 0 -FT9 032122 000001 0 0 0 0 0 -ET0 032123 000001 0 0 0 0 0 -ST1A 032123 000001 0 0 0 0 0 -ST9 032123 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 205 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0421 - -*032123 JUMPA 0,032124 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032123 032123 0 0 324000032124 0 000000032124 -IT1 032123 0 0 0 324000032124 0 000000032124 -AT3 032123 0 0 0 000000032124 0 324000032124 -AT6 032123 032124 0 0 000000032124 0 324000032124 -FT1A 032123 032124 0 0 000000032124 0 000000032124 -FT2 032123 032124 0 0 0 0 000000032124 -FT2RQ 032123 032124 0 0 0 0 000000032124 -FT3 032123 032124 0 0 0 0 000000032124 -FT9 032124 032124 0 0 0 0 000000032124 -ET0 032124 032124 0 0 0 0 000000032124 -ST1A 032124 032124 0 0 0 0 000000032124 -ST9 032124 032124 0 0 0 0 000000032124 - - -*032124 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 032124 032124 0 0 332000000000 0 0 -IT1 032124 0 0 0 332000000000 0 0 -AT3 032124 0 0 0 0 0 332000000000 -AT6 032124 0 0 0 0 0 332000000000 -FT0 032124 0 0 0 0 0 332000000000 -FT1A 032124 0 0 0 0 0 0 -FT9 032125 0 0 0 0 0 0 -ET0 032126 0 0 0 0 0 0 -ST1A 032126 0 0 0 0 0 0 -ST9 032126 0 0 0 0 0 0 - - -*032126 JUMPA 0,032127 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032126 032126 0 0 324000032127 0 000000032127 -IT1 032126 0 0 0 324000032127 0 000000032127 -AT3 032126 0 0 0 000000032127 0 324000032127 -AT6 032126 032127 0 0 000000032127 0 324000032127 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 206 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0422 - -FT1A 032126 032127 0 0 000000032127 0 000000032127 -FT2 032126 032127 0 0 0 0 000000032127 -FT2RQ 032126 032127 0 0 0 0 000000032127 -FT3 032126 032127 0 0 0 0 000000032127 -FT9 032127 032127 0 0 0 0 000000032127 -ET0 032127 032127 0 0 0 0 000000032127 -ST1A 032127 032127 0 0 0 0 000000032127 -ST9 032127 032127 0 0 0 0 000000032127 - - -*032127 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 032127 032127 0 0 400000000000 0 0 -IT1 032127 0 0 0 400000000000 0 0 -AT3 032127 0 0 0 0 0 400000000000 -AT6 032127 0 0 0 0 0 400000000000 -FT1A 032127 0 0 0 0 0 0 -FT9 032130 0 0 0 0 0 0 -ET0 032130 0 0 0 0 0 0 -ST1 032130 0 0 0 0 0 0 -ST2 032130 0 0 0 0 0 0 -ST9 032130 0 0 0 0 0 0 - - -*032130 MOVE 1,035077 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 032130 032130 0 0 200040035077 0 000000000010 -IT1 032130 0 0 0 200040035077 0 000000000010 -AT3 032130 0 0 0 000000035077 0 200040035077 -AT6 032130 035077 0 0 000000035077 0 200040035077 -FT0 032130 035077 0 0 000000000010 0 200040035077 -FT1A 032130 035077 0 0 000000000010 0 000000000010 -FT9 032131 035077 0 0 000000000010 0 000000000010 -ET0 032131 035077 0 0 000000000010 0 000000000010 -ST1 032131 035077 0 0 000000000010 0 000000000010 -ST2 032131 035077 0 0 000000000010 0 000000000010 -ST9 032131 035077 0 0 000000000010 0 000000000010 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 207 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0423 - -*032131 AND 1,000000 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032131 032131 0 0 404040000000 0 0 -IT1 032131 0 0 0 404040000000 0 0 -AT3 032131 0 0 0 0 0 404040000000 -AT6 032131 0 0 0 0 0 404040000000 -FT0 032131 0 0 0 0 0 404040000000 -FT1A 032131 0 0 0 0 0 0 -FT2 032131 0 0 0 0 0 0 -FT2RQ 032131 0 0 0 000000000010 0 0 -FT3 032131 0 0 0 000000000010 0 0 -FT9 032132 0 0 0 000000000010 0 0 -ET0 032132 0 0 0 0 0 0 -ST1 032132 0 0 0 0 0 0 -ST2 032132 0 0 0 0 0 0 -ST9 032132 0 0 0 0 0 0 - - -*032132 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 032132 032132 0 0 332000000001 0 0 -IT1 032132 0 0 0 332000000001 0 0 -AT3 032132 0 0 0 000000000001 0 332000000001 -AT6 032132 000001 0 0 000000000001 0 332000000001 -FT0 032132 000001 0 0 0 0 332000000001 -FT1A 032132 000001 0 0 0 0 0 -FT9 032133 000001 0 0 0 0 0 -ET0 032134 000001 0 0 0 0 0 -ST1A 032134 000001 0 0 0 0 0 -ST9 032134 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 208 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0424 - -*032134 JUMPA 0,032135 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032134 032134 0 0 324000032135 0 000000032135 -IT1 032134 0 0 0 324000032135 0 000000032135 -AT3 032134 0 0 0 000000032135 0 324000032135 -AT6 032134 032135 0 0 000000032135 0 324000032135 -FT1A 032134 032135 0 0 000000032135 0 000000032135 -FT2 032134 032135 0 0 0 0 000000032135 -FT2RQ 032134 032135 0 0 0 0 000000032135 -FT3 032134 032135 0 0 0 0 000000032135 -FT9 032135 032135 0 0 0 0 000000032135 -ET0 032135 032135 0 0 0 0 000000032135 -ST1A 032135 032135 0 0 0 0 000000032135 -ST9 032135 032135 0 0 0 0 000000032135 - - -*032135 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 032135 032135 0 0 332000000000 0 0 -IT1 032135 0 0 0 332000000000 0 0 -AT3 032135 0 0 0 0 0 332000000000 -AT6 032135 0 0 0 0 0 332000000000 -FT0 032135 0 0 0 0 0 332000000000 -FT1A 032135 0 0 0 0 0 0 -FT9 032136 0 0 0 0 0 0 -ET0 032137 0 0 0 0 0 0 -ST1A 032137 0 0 0 0 0 0 -ST9 032137 0 0 0 0 0 0 - - -*032137 JUMPA 0,032140 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032137 032137 0 0 324000032140 0 000000032140 -IT1 032137 0 0 0 324000032140 0 000000032140 -AT3 032137 0 0 0 000000032140 0 324000032140 -AT6 032137 032140 0 0 000000032140 0 324000032140 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 209 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0425 - -FT1A 032137 032140 0 0 000000032140 0 000000032140 -FT2 032137 032140 0 0 0 0 000000032140 -FT2RQ 032137 032140 0 0 0 0 000000032140 -FT3 032137 032140 0 0 0 0 000000032140 -FT9 032140 032140 0 0 0 0 000000032140 -ET0 032140 032140 0 0 0 0 000000032140 -ST1A 032140 032140 0 0 0 0 000000032140 -ST9 032140 032140 0 0 0 0 000000032140 - - -*032140 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 032140 032140 0 0 400000000000 0 0 -IT1 032140 0 0 0 400000000000 0 0 -AT3 032140 0 0 0 0 0 400000000000 -AT6 032140 0 0 0 0 0 400000000000 -FT1A 032140 0 0 0 0 0 0 -FT9 032141 0 0 0 0 0 0 -ET0 032141 0 0 0 0 0 0 -ST1 032141 0 0 0 0 0 0 -ST2 032141 0 0 0 0 0 0 -ST9 032141 0 0 0 0 0 0 - - -*032141 MOVE 1,035100 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000020 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 032141 032141 0 0 200040035100 0 000000000020 -IT1 032141 0 0 0 200040035100 0 000000000020 -AT3 032141 0 0 0 000000035100 0 200040035100 -AT6 032141 0 0 0 000000035100 0 200040035100 -FT0 032141 0 0 0 000000000020 0 200040035100 -FT1A 032141 0 0 0 000000000020 0 000000000020 -FT9 032142 0 0 0 000000000020 0 000000000020 -ET0 032142 0 0 0 000000000020 0 000000000020 -ST1 032142 0 0 0 000000000020 0 000000000020 -ST2 032142 0 0 0 000000000020 0 000000000020 -ST9 032142 0 0 0 000000000020 0 000000000020 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 210 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0426 - -*032142 AND 1,000000 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032142 032142 0 0 404040000000 0 0 -IT1 032142 0 0 0 404040000000 0 0 -AT3 032142 0 0 0 0 0 404040000000 -AT6 032142 0 0 0 0 0 404040000000 -FT0 032142 0 0 0 0 0 404040000000 -FT1A 032142 0 0 0 0 0 0 -FT2 032142 0 0 0 0 0 0 -FT2RQ 032142 0 0 0 000000000020 0 0 -FT3 032142 0 0 0 000000000020 0 0 -FT9 032143 0 0 0 000000000020 0 0 -ET0 032143 0 0 0 0 0 0 -ST1 032143 0 0 0 0 0 0 -ST2 032143 0 0 0 0 0 0 -ST9 032143 0 0 0 0 0 0 - - -*032143 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 032143 032143 0 0 332000000001 0 0 -IT1 032143 0 0 0 332000000001 0 0 -AT3 032143 0 0 0 000000000001 0 332000000001 -AT6 032143 000001 0 0 000000000001 0 332000000001 -FT0 032143 000001 0 0 0 0 332000000001 -FT1A 032143 000001 0 0 0 0 0 -FT9 032144 000001 0 0 0 0 0 -ET0 032145 000001 0 0 0 0 0 -ST1A 032145 000001 0 0 0 0 0 -ST9 032145 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 211 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0427 - -*032145 JUMPA 0,032146 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032145 032145 0 0 324000032146 0 000000032146 -IT1 032145 0 0 0 324000032146 0 000000032146 -AT3 032145 0 0 0 000000032146 0 324000032146 -AT6 032145 032146 0 0 000000032146 0 324000032146 -FT1A 032145 032146 0 0 000000032146 0 000000032146 -FT2 032145 032146 0 0 0 0 000000032146 -FT2RQ 032145 032146 0 0 0 0 000000032146 -FT3 032145 032146 0 0 0 0 000000032146 -FT9 032146 032146 0 0 0 0 000000032146 -ET0 032146 032146 0 0 0 0 000000032146 -ST1A 032146 032146 0 0 0 0 000000032146 -ST9 032146 032146 0 0 0 0 000000032146 - - -*032146 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 032146 032146 0 0 332000000000 0 0 -IT1 032146 0 0 0 332000000000 0 0 -AT3 032146 0 0 0 0 0 332000000000 -AT6 032146 0 0 0 0 0 332000000000 -FT0 032146 0 0 0 0 0 332000000000 -FT1A 032146 0 0 0 0 0 0 -FT9 032147 0 0 0 0 0 0 -ET0 032150 0 0 0 0 0 0 -ST1A 032150 0 0 0 0 0 0 -ST9 032150 0 0 0 0 0 0 - - -*032150 JUMPA 0,032151 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032150 032150 0 0 324000032151 0 000000032151 -IT1 032150 0 0 0 324000032151 0 000000032151 -AT3 032150 0 0 0 000000032151 0 324000032151 -AT6 032150 032151 0 0 000000032151 0 324000032151 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 212 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0428 - -FT1A 032150 032151 0 0 000000032151 0 000000032151 -FT2 032150 032151 0 0 0 0 000000032151 -FT2RQ 032150 032151 0 0 0 0 000000032151 -FT3 032150 032151 0 0 0 0 000000032151 -FT9 032151 032151 0 0 0 0 000000032151 -ET0 032151 032151 0 0 0 0 000000032151 -ST1A 032151 032151 0 0 0 0 000000032151 -ST9 032151 032151 0 0 0 0 000000032151 - - -*032151 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 032151 032151 0 0 400000000000 0 0 -IT1 032151 0 0 0 400000000000 0 0 -AT3 032151 0 0 0 0 0 400000000000 -AT6 032151 0 0 0 0 0 400000000000 -FT1A 032151 0 0 0 0 0 0 -FT9 032152 0 0 0 0 0 0 -ET0 032152 0 0 0 0 0 0 -ST1 032152 0 0 0 0 0 0 -ST2 032152 0 0 0 0 0 0 -ST9 032152 0 0 0 0 0 0 - - -*032152 MOVE 1,035101 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000040 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 032152 032152 0 0 200040035101 0 000000000040 -IT1 032152 0 0 0 200040035101 0 000000000040 -AT3 032152 0 0 0 000000035101 0 200040035101 -AT6 032152 035101 0 0 000000035101 0 200040035101 -FT0 032152 035101 0 0 000000000040 0 200040035101 -FT1A 032152 035101 0 0 000000000040 0 000000000040 -FT9 032153 035101 0 0 000000000040 0 000000000040 -ET0 032153 035101 0 0 000000000040 0 000000000040 -ST1 032153 035101 0 0 000000000040 0 000000000040 -ST2 032153 035101 0 0 000000000040 0 000000000040 -ST9 032153 035101 0 0 000000000040 0 000000000040 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 213 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0429 - -*032153 AND 1,000000 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032153 032153 0 0 404040000000 0 0 -IT1 032153 0 0 0 404040000000 0 0 -AT3 032153 0 0 0 0 0 404040000000 -AT6 032153 0 0 0 0 0 404040000000 -FT0 032153 0 0 0 0 0 404040000000 -FT1A 032153 0 0 0 0 0 0 -FT2 032153 0 0 0 0 0 0 -FT2RQ 032153 0 0 0 000000000040 0 0 -FT3 032153 0 0 0 000000000040 0 0 -FT9 032154 0 0 0 000000000040 0 0 -ET0 032154 0 0 0 0 0 0 -ST1 032154 0 0 0 0 0 0 -ST2 032154 0 0 0 0 0 0 -ST9 032154 0 0 0 0 0 0 - - -*032154 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 032154 032154 0 0 332000000001 0 0 -IT1 032154 0 0 0 332000000001 0 0 -AT3 032154 0 0 0 000000000001 0 332000000001 -AT6 032154 000001 0 0 000000000001 0 332000000001 -FT0 032154 000001 0 0 0 0 332000000001 -FT1A 032154 000001 0 0 0 0 0 -FT9 032155 000001 0 0 0 0 0 -ET0 032156 000001 0 0 0 0 0 -ST1A 032156 000001 0 0 0 0 0 -ST9 032156 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 214 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0430 - -*032156 JUMPA 0,032157 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032156 032156 0 0 324000032157 0 000000032157 -IT1 032156 0 0 0 324000032157 0 000000032157 -AT3 032156 0 0 0 000000032157 0 324000032157 -AT6 032156 032157 0 0 000000032157 0 324000032157 -FT1A 032156 032157 0 0 000000032157 0 000000032157 -FT2 032156 032157 0 0 0 0 000000032157 -FT2RQ 032156 032157 0 0 0 0 000000032157 -FT3 032156 032157 0 0 0 0 000000032157 -FT9 032157 032157 0 0 0 0 000000032157 -ET0 032157 032157 0 0 0 0 000000032157 -ST1A 032157 032157 0 0 0 0 000000032157 -ST9 032157 032157 0 0 0 0 000000032157 - - -*032157 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 032157 032157 0 0 332000000000 0 0 -IT1 032157 0 0 0 332000000000 0 0 -AT3 032157 0 0 0 0 0 332000000000 -AT6 032157 0 0 0 0 0 332000000000 -FT0 032157 0 0 0 0 0 332000000000 -FT1A 032157 0 0 0 0 0 0 -FT9 032160 0 0 0 0 0 0 -ET0 032161 0 0 0 0 0 0 -ST1A 032161 0 0 0 0 0 0 -ST9 032161 0 0 0 0 0 0 - - -*032161 JUMPA 0,032162 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032161 032161 0 0 324000032162 0 000000032162 -IT1 032161 0 0 0 324000032162 0 000000032162 -AT3 032161 0 0 0 000000032162 0 324000032162 -AT6 032161 032162 0 0 000000032162 0 324000032162 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 215 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0431 - -FT1A 032161 032162 0 0 000000032162 0 000000032162 -FT2 032161 032162 0 0 0 0 000000032162 -FT2RQ 032161 032162 0 0 0 0 000000032162 -FT3 032161 032162 0 0 0 0 000000032162 -FT9 032162 032162 0 0 0 0 000000032162 -ET0 032162 032162 0 0 0 0 000000032162 -ST1A 032162 032162 0 0 0 0 000000032162 -ST9 032162 032162 0 0 0 0 000000032162 - - -*032162 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 032162 032162 0 0 400000000000 0 0 -IT1 032162 0 0 0 400000000000 0 0 -AT3 032162 0 0 0 0 0 400000000000 -AT6 032162 0 0 0 0 0 400000000000 -FT1A 032162 0 0 0 0 0 0 -FT9 032163 0 0 0 0 0 0 -ET0 032163 0 0 0 0 0 0 -ST1 032163 0 0 0 0 0 0 -ST2 032163 0 0 0 0 0 0 -ST9 032163 0 0 0 0 0 0 - - -*032163 MOVE 1,035102 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000100 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 032163 032163 0 0 200040035102 0 000000000100 -IT1 032163 0 0 0 200040035102 0 000000000100 -AT3 032163 0 0 0 000000035102 0 200040035102 -AT6 032163 035102 0 0 000000035102 0 200040035102 -FT0 032163 035102 0 0 000000000100 0 200040035102 -FT1A 032163 035102 0 0 000000000100 0 000000000100 -FT9 032164 035102 0 0 000000000100 0 000000000100 -ET0 032164 035102 0 0 000000000100 0 000000000100 -ST1 032164 035102 0 0 000000000100 0 000000000100 -ST2 032164 035102 0 0 000000000100 0 000000000100 -ST9 032164 035102 0 0 000000000100 0 000000000100 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 216 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0432 - -*032164 AND 1,000000 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032164 032164 0 0 404040000000 0 0 -IT1 032164 0 0 0 404040000000 0 0 -AT3 032164 0 0 0 0 0 404040000000 -AT6 032164 0 0 0 0 0 404040000000 -FT0 032164 0 0 0 0 0 404040000000 -FT1A 032164 0 0 0 0 0 0 -FT2 032164 0 0 0 0 0 0 -FT2RQ 032164 0 0 0 000000000100 0 0 -FT3 032164 0 0 0 000000000100 0 0 -FT9 032165 0 0 0 000000000100 0 0 -ET0 032165 0 0 0 0 0 0 -ST1 032165 0 0 0 0 0 0 -ST2 032165 0 0 0 0 0 0 -ST9 032165 0 0 0 0 0 0 - - -*032165 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 032165 032165 0 0 332000000001 0 0 -IT1 032165 0 0 0 332000000001 0 0 -AT3 032165 0 0 0 000000000001 0 332000000001 -AT6 032165 000001 0 0 000000000001 0 332000000001 -FT0 032165 000001 0 0 0 0 332000000001 -FT1A 032165 000001 0 0 0 0 0 -FT9 032166 000001 0 0 0 0 0 -ET0 032167 000001 0 0 0 0 0 -ST1A 032167 000001 0 0 0 0 0 -ST9 032167 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 217 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0433 - -*032167 JUMPA 0,032170 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032167 032167 0 0 324000032170 0 000000032170 -IT1 032167 0 0 0 324000032170 0 000000032170 -AT3 032167 0 0 0 000000032170 0 324000032170 -AT6 032167 032170 0 0 000000032170 0 324000032170 -FT1A 032167 032170 0 0 000000032170 0 000000032170 -FT2 032167 032170 0 0 0 0 000000032170 -FT2RQ 032167 032170 0 0 0 0 000000032170 -FT3 032167 032170 0 0 0 0 000000032170 -FT9 032170 032170 0 0 0 0 000000032170 -ET0 032170 032170 0 0 0 0 000000032170 -ST1A 032170 032170 0 0 0 0 000000032170 -ST9 032170 032170 0 0 0 0 000000032170 - - -*032170 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 032170 032170 0 0 332000000000 0 0 -IT1 032170 0 0 0 332000000000 0 0 -AT3 032170 0 0 0 0 0 332000000000 -AT6 032170 0 0 0 0 0 332000000000 -FT0 032170 0 0 0 0 0 332000000000 -FT1A 032170 0 0 0 0 0 0 -FT9 032171 0 0 0 0 0 0 -ET0 032172 0 0 0 0 0 0 -ST1A 032172 0 0 0 0 0 0 -ST9 032172 0 0 0 0 0 0 - - -*032172 JUMPA 0,032173 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032172 032172 0 0 324000032173 0 000000032173 -IT1 032172 0 0 0 324000032173 0 000000032173 -AT3 032172 0 0 0 000000032173 0 324000032173 -AT6 032172 032173 0 0 000000032173 0 324000032173 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 218 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0434 - -FT1A 032172 032173 0 0 000000032173 0 000000032173 -FT2 032172 032173 0 0 0 0 000000032173 -FT2RQ 032172 032173 0 0 0 0 000000032173 -FT3 032172 032173 0 0 0 0 000000032173 -FT9 032173 032173 0 0 0 0 000000032173 -ET0 032173 032173 0 0 0 0 000000032173 -ST1A 032173 032173 0 0 0 0 000000032173 -ST9 032173 032173 0 0 0 0 000000032173 - - -*032173 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 032173 032173 0 0 400000000000 0 0 -IT1 032173 0 0 0 400000000000 0 0 -AT3 032173 0 0 0 0 0 400000000000 -AT6 032173 0 0 0 0 0 400000000000 -FT1A 032173 0 0 0 0 0 0 -FT9 032174 0 0 0 0 0 0 -ET0 032174 0 0 0 0 0 0 -ST1 032174 0 0 0 0 0 0 -ST2 032174 0 0 0 0 0 0 -ST9 032174 0 0 0 0 0 0 - - -*032174 MOVE 1,035103 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000200 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 032174 032174 0 0 200040035103 0 000000000200 -IT1 032174 0 0 0 200040035103 0 000000000200 -AT3 032174 0 0 0 000000035103 0 200040035103 -AT6 032174 035103 0 0 000000035103 0 200040035103 -FT0 032174 035103 0 0 000000000200 0 200040035103 -FT1A 032174 035103 0 0 000000000200 0 000000000200 -FT9 032175 035103 0 0 000000000200 0 000000000200 -ET0 032175 035103 0 0 000000000200 0 000000000200 -ST1 032175 035103 0 0 000000000200 0 000000000200 -ST2 032175 035103 0 0 000000000200 0 000000000200 -ST9 032175 035103 0 0 000000000200 0 000000000200 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 219 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0435 - -*032175 AND 1,000000 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032175 032175 0 0 404040000000 0 0 -IT1 032175 0 0 0 404040000000 0 0 -AT3 032175 0 0 0 0 0 404040000000 -AT6 032175 0 0 0 0 0 404040000000 -FT0 032175 0 0 0 0 0 404040000000 -FT1A 032175 0 0 0 0 0 0 -FT2 032175 0 0 0 0 0 0 -FT2RQ 032175 0 0 0 000000000200 0 0 -FT3 032175 0 0 0 000000000200 0 0 -FT9 032176 0 0 0 000000000200 0 0 -ET0 032176 0 0 0 0 0 0 -ST1 032176 0 0 0 0 0 0 -ST2 032176 0 0 0 0 0 0 -ST9 032176 0 0 0 0 0 0 - - -*032176 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 032176 032176 0 0 332000000001 0 0 -IT1 032176 0 0 0 332000000001 0 0 -AT3 032176 0 0 0 000000000001 0 332000000001 -AT6 032176 000001 0 0 000000000001 0 332000000001 -FT0 032176 000001 0 0 0 0 332000000001 -FT1A 032176 000001 0 0 0 0 0 -FT9 032177 000001 0 0 0 0 0 -ET0 0 000001 0 0 0 0 0 -ST1A 0 000001 0 0 0 0 0 -ST9 0 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 220 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0436 - -*032200 JUMPA 0,032201 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 324000032201 0 000000032201 -IT1 0 0 0 0 324000032201 0 000000032201 -AT3 0 0 0 0 000000032201 0 324000032201 -AT6 0 032201 0 0 000000032201 0 324000032201 -FT1A 0 032201 0 0 000000032201 0 000000032201 -FT2 0 032201 0 0 0 0 000000032201 -FT2RQ 0 032201 0 0 0 0 000000032201 -FT3 0 032201 0 0 0 0 000000032201 -FT9 032201 032201 0 0 0 0 000000032201 -ET0 032201 032201 0 0 0 0 000000032201 -ST1A 032201 032201 0 0 0 0 000000032201 -ST9 032201 032201 0 0 0 0 000000032201 - - -*032201 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 032201 032201 0 0 332000000000 0 0 -IT1 032201 0 0 0 332000000000 0 0 -AT3 032201 0 0 0 0 0 332000000000 -AT6 032201 0 0 0 0 0 332000000000 -FT0 032201 0 0 0 0 0 332000000000 -FT1A 032201 0 0 0 0 0 0 -FT9 032202 0 0 0 0 0 0 -ET0 032203 0 0 0 0 0 0 -ST1A 032203 0 0 0 0 0 0 -ST9 032203 0 0 0 0 0 0 - - -*032203 JUMPA 0,032204 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032203 032203 0 0 324000032204 0 000000032204 -IT1 032203 0 0 0 324000032204 0 000000032204 -AT3 032203 0 0 0 000000032204 0 324000032204 -AT6 032203 032204 0 0 000000032204 0 324000032204 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 221 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0437 - -FT1A 032203 032204 0 0 000000032204 0 000000032204 -FT2 032203 032204 0 0 0 0 000000032204 -FT2RQ 032203 032204 0 0 0 0 000000032204 -FT3 032203 032204 0 0 0 0 000000032204 -FT9 032204 032204 0 0 0 0 000000032204 -ET0 032204 032204 0 0 0 0 000000032204 -ST1A 032204 032204 0 0 0 0 000000032204 -ST9 032204 032204 0 0 0 0 000000032204 - - -*032204 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 032204 032204 0 0 400000000000 0 0 -IT1 032204 0 0 0 400000000000 0 0 -AT3 032204 0 0 0 0 0 400000000000 -AT6 032204 0 0 0 0 0 400000000000 -FT1A 032204 0 0 0 0 0 0 -FT9 032205 0 0 0 0 0 0 -ET0 032205 0 0 0 0 0 0 -ST1 032205 0 0 0 0 0 0 -ST2 032205 0 0 0 0 0 0 -ST9 032205 0 0 0 0 0 0 - - -*032205 MOVE 1,035104 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000400 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 032205 032205 0 0 200040035104 0 000000000400 -IT1 032205 0 0 0 200040035104 0 000000000400 -AT3 032205 0 0 0 000000035104 0 200040035104 -AT6 032205 035104 0 0 000000035104 0 200040035104 -FT0 032205 035104 0 0 000000000400 0 200040035104 -FT1A 032205 035104 0 0 000000000400 0 000000000400 -FT9 032206 035104 0 0 000000000400 0 000000000400 -ET0 032206 035104 0 0 000000000400 0 000000000400 -ST1 032206 035104 0 0 000000000400 0 000000000400 -ST2 032206 035104 0 0 000000000400 0 000000000400 -ST9 032206 035104 0 0 000000000400 0 000000000400 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 222 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0438 - -*032206 AND 1,000000 -INITIAL -C(AC)=000000 000400 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032206 032206 0 0 404040000000 0 0 -IT1 032206 0 0 0 404040000000 0 0 -AT3 032206 0 0 0 0 0 404040000000 -AT6 032206 0 0 0 0 0 404040000000 -FT0 032206 0 0 0 0 0 404040000000 -FT1A 032206 0 0 0 0 0 0 -FT2 032206 0 0 0 0 0 0 -FT2RQ 032206 0 0 0 000000000400 0 0 -FT3 032206 0 0 0 000000000400 0 0 -FT9 032207 0 0 0 000000000400 0 0 -ET0 032207 0 0 0 0 0 0 -ST1 032207 0 0 0 0 0 0 -ST2 032207 0 0 0 0 0 0 -ST9 032207 0 0 0 0 0 0 - - -*032207 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 032207 032207 0 0 332000000001 0 0 -IT1 032207 0 0 0 332000000001 0 0 -AT3 032207 0 0 0 000000000001 0 332000000001 -AT6 032207 000001 0 0 000000000001 0 332000000001 -FT0 032207 000001 0 0 0 0 332000000001 -FT1A 032207 000001 0 0 0 0 0 -FT9 032210 000001 0 0 0 0 0 -ET0 032211 000001 0 0 0 0 0 -ST1A 032211 000001 0 0 0 0 0 -ST9 032211 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 223 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0439 - -*032211 JUMPA 0,032212 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032211 032211 0 0 324000032212 0 000000032212 -IT1 032211 0 0 0 324000032212 0 000000032212 -AT3 032211 0 0 0 000000032212 0 324000032212 -AT6 032211 032212 0 0 000000032212 0 324000032212 -FT1A 032211 032212 0 0 000000032212 0 000000032212 -FT2 032211 032212 0 0 0 0 000000032212 -FT2RQ 032211 032212 0 0 0 0 000000032212 -FT3 032211 032212 0 0 0 0 000000032212 -FT9 032212 032212 0 0 0 0 000000032212 -ET0 032212 032212 0 0 0 0 000000032212 -ST1A 032212 032212 0 0 0 0 000000032212 -ST9 032212 032212 0 0 0 0 000000032212 - - -*032212 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 032212 032212 0 0 332000000000 0 0 -IT1 032212 0 0 0 332000000000 0 0 -AT3 032212 0 0 0 0 0 332000000000 -AT6 032212 0 0 0 0 0 332000000000 -FT0 032212 0 0 0 0 0 332000000000 -FT1A 032212 0 0 0 0 0 0 -FT9 032213 0 0 0 0 0 0 -ET0 032214 0 0 0 0 0 0 -ST1A 032214 0 0 0 0 0 0 -ST9 032214 0 0 0 0 0 0 - - -*032214 JUMPA 0,032215 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032214 032214 0 0 324000032215 0 000000032215 -IT1 032214 0 0 0 324000032215 0 000000032215 -AT3 032214 0 0 0 000000032215 0 324000032215 -AT6 032214 032215 0 0 000000032215 0 324000032215 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 224 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0440 - -FT1A 032214 032215 0 0 000000032215 0 000000032215 -FT2 032214 032215 0 0 0 0 000000032215 -FT2RQ 032214 032215 0 0 0 0 000000032215 -FT3 032214 032215 0 0 0 0 000000032215 -FT9 032215 032215 0 0 0 0 000000032215 -ET0 032215 032215 0 0 0 0 000000032215 -ST1A 032215 032215 0 0 0 0 000000032215 -ST9 032215 032215 0 0 0 0 000000032215 - - -*032215 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 032215 032215 0 0 400000000000 0 0 -IT1 032215 0 0 0 400000000000 0 0 -AT3 032215 0 0 0 0 0 400000000000 -AT6 032215 0 0 0 0 0 400000000000 -FT1A 032215 0 0 0 0 0 0 -FT9 032216 0 0 0 0 0 0 -ET0 032216 0 0 0 0 0 0 -ST1 032216 0 0 0 0 0 0 -ST2 032216 0 0 0 0 0 0 -ST9 032216 0 0 0 0 0 0 - - -*032216 MOVE 1,035105 -INITIAL -C(AC)=000000 000000 -C(E)=000000 001000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 032216 032216 0 0 200040035105 0 000000001000 -IT1 032216 0 0 0 200040035105 0 000000001000 -AT3 032216 0 0 0 000000035105 0 200040035105 -AT6 032216 035105 0 0 000000035105 0 200040035105 -FT0 032216 035105 0 0 000000001000 0 200040035105 -FT1A 032216 035105 0 0 000000001000 0 000000001000 -FT9 032217 035105 0 0 000000001000 0 000000001000 -ET0 032217 035105 0 0 000000001000 0 000000001000 -ST1 032217 035105 0 0 000000001000 0 000000001000 -ST2 032217 035105 0 0 000000001000 0 000000001000 -ST9 032217 035105 0 0 000000001000 0 000000001000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 225 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0441 - -*032217 AND 1,000000 -INITIAL -C(AC)=000000 001000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032217 032217 0 0 404040000000 0 0 -IT1 032217 0 0 0 404040000000 0 0 -AT3 032217 0 0 0 0 0 404040000000 -AT6 032217 0 0 0 0 0 404040000000 -FT0 032217 0 0 0 0 0 404040000000 -FT1A 032217 0 0 0 0 0 0 -FT2 032217 0 0 0 0 0 0 -FT2RQ 032217 0 0 0 000000001000 0 0 -FT3 032217 0 0 0 000000001000 0 0 -FT9 032220 0 0 0 000000001000 0 0 -ET0 032220 0 0 0 0 0 0 -ST1 032220 0 0 0 0 0 0 -ST2 032220 0 0 0 0 0 0 -ST9 032220 0 0 0 0 0 0 - - -*032220 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 032220 032220 0 0 332000000001 0 0 -IT1 032220 0 0 0 332000000001 0 0 -AT3 032220 0 0 0 000000000001 0 332000000001 -AT6 032220 000001 0 0 000000000001 0 332000000001 -FT0 032220 000001 0 0 0 0 332000000001 -FT1A 032220 000001 0 0 0 0 0 -FT9 032221 000001 0 0 0 0 0 -ET0 032222 000001 0 0 0 0 0 -ST1A 032222 000001 0 0 0 0 0 -ST9 032222 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 226 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0442 - -*032222 JUMPA 0,032223 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032222 032222 0 0 324000032223 0 000000032223 -IT1 032222 0 0 0 324000032223 0 000000032223 -AT3 032222 0 0 0 000000032223 0 324000032223 -AT6 032222 032223 0 0 000000032223 0 324000032223 -FT1A 032222 032223 0 0 000000032223 0 000000032223 -FT2 032222 032223 0 0 0 0 000000032223 -FT2RQ 032222 032223 0 0 0 0 000000032223 -FT3 032222 032223 0 0 0 0 000000032223 -FT9 032223 032223 0 0 0 0 000000032223 -ET0 032223 032223 0 0 0 0 000000032223 -ST1A 032223 032223 0 0 0 0 000000032223 -ST9 032223 032223 0 0 0 0 000000032223 - - -*032223 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 032223 032223 0 0 332000000000 0 0 -IT1 032223 0 0 0 332000000000 0 0 -AT3 032223 0 0 0 0 0 332000000000 -AT6 032223 0 0 0 0 0 332000000000 -FT0 032223 0 0 0 0 0 332000000000 -FT1A 032223 0 0 0 0 0 0 -FT9 032224 0 0 0 0 0 0 -ET0 032225 0 0 0 0 0 0 -ST1A 032225 0 0 0 0 0 0 -ST9 032225 0 0 0 0 0 0 - - -*032225 JUMPA 0,032226 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032225 032225 0 0 324000032226 0 000000032226 -IT1 032225 0 0 0 324000032226 0 000000032226 -AT3 032225 0 0 0 000000032226 0 324000032226 -AT6 032225 032226 0 0 000000032226 0 324000032226 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 227 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0443 - -FT1A 032225 032226 0 0 000000032226 0 000000032226 -FT2 032225 032226 0 0 0 0 000000032226 -FT2RQ 032225 032226 0 0 0 0 000000032226 -FT3 032225 032226 0 0 0 0 000000032226 -FT9 032226 032226 0 0 0 0 000000032226 -ET0 032226 032226 0 0 0 0 000000032226 -ST1A 032226 032226 0 0 0 0 000000032226 -ST9 032226 032226 0 0 0 0 000000032226 - - -*032226 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 032226 032226 0 0 400000000000 0 0 -IT1 032226 0 0 0 400000000000 0 0 -AT3 032226 0 0 0 0 0 400000000000 -AT6 032226 0 0 0 0 0 400000000000 -FT1A 032226 0 0 0 0 0 0 -FT9 032227 0 0 0 0 0 0 -ET0 032227 0 0 0 0 0 0 -ST1 032227 0 0 0 0 0 0 -ST2 032227 0 0 0 0 0 0 -ST9 032227 0 0 0 0 0 0 - - -*032227 MOVE 1,035106 -INITIAL -C(AC)=000000 000000 -C(E)=000000 002000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 032227 032227 0 0 200040035106 0 000000002000 -IT1 032227 0 0 0 200040035106 0 000000002000 -AT3 032227 0 0 0 000000035106 0 200040035106 -AT6 032227 035106 0 0 000000035106 0 200040035106 -FT0 032227 035106 0 0 000000002000 0 200040035106 -FT1A 032227 035106 0 0 000000002000 0 000000002000 -FT9 032230 035106 0 0 000000002000 0 000000002000 -ET0 032230 035106 0 0 000000002000 0 000000002000 -ST1 032230 035106 0 0 000000002000 0 000000002000 -ST2 032230 035106 0 0 000000002000 0 000000002000 -ST9 032230 035106 0 0 000000002000 0 000000002000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 228 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0444 - -*032230 AND 1,000000 -INITIAL -C(AC)=000000 002000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032230 032230 0 0 404040000000 0 0 -IT1 032230 0 0 0 404040000000 0 0 -AT3 032230 0 0 0 0 0 404040000000 -AT6 032230 0 0 0 0 0 404040000000 -FT0 032230 0 0 0 0 0 404040000000 -FT1A 032230 0 0 0 0 0 0 -FT2 032230 0 0 0 0 0 0 -FT2RQ 032230 0 0 0 000000002000 0 0 -FT3 032230 0 0 0 000000002000 0 0 -FT9 032231 0 0 0 000000002000 0 0 -ET0 032231 0 0 0 0 0 0 -ST1 032231 0 0 0 0 0 0 -ST2 032231 0 0 0 0 0 0 -ST9 032231 0 0 0 0 0 0 - - -*032231 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 032231 032231 0 0 332000000001 0 0 -IT1 032231 0 0 0 332000000001 0 0 -AT3 032231 0 0 0 000000000001 0 332000000001 -AT6 032231 000001 0 0 000000000001 0 332000000001 -FT0 032231 000001 0 0 0 0 332000000001 -FT1A 032231 000001 0 0 0 0 0 -FT9 032232 000001 0 0 0 0 0 -ET0 032233 000001 0 0 0 0 0 -ST1A 032233 000001 0 0 0 0 0 -ST9 032233 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 229 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0445 - -*032233 JUMPA 0,032234 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032233 032233 0 0 324000032234 0 000000032234 -IT1 032233 0 0 0 324000032234 0 000000032234 -AT3 032233 0 0 0 000000032234 0 324000032234 -AT6 032233 032234 0 0 000000032234 0 324000032234 -FT1A 032233 032234 0 0 000000032234 0 000000032234 -FT2 032233 032234 0 0 0 0 000000032234 -FT2RQ 032233 032234 0 0 0 0 000000032234 -FT3 032233 032234 0 0 0 0 000000032234 -FT9 032234 032234 0 0 0 0 000000032234 -ET0 032234 032234 0 0 0 0 000000032234 -ST1A 032234 032234 0 0 0 0 000000032234 -ST9 032234 032234 0 0 0 0 000000032234 - - -*032234 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 032234 032234 0 0 332000000000 0 0 -IT1 032234 0 0 0 332000000000 0 0 -AT3 032234 0 0 0 0 0 332000000000 -AT6 032234 0 0 0 0 0 332000000000 -FT0 032234 0 0 0 0 0 332000000000 -FT1A 032234 0 0 0 0 0 0 -FT9 032235 0 0 0 0 0 0 -ET0 032236 0 0 0 0 0 0 -ST1A 032236 0 0 0 0 0 0 -ST9 032236 0 0 0 0 0 0 - - -*032236 JUMPA 0,032237 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032236 032236 0 0 324000032237 0 000000032237 -IT1 032236 0 0 0 324000032237 0 000000032237 -AT3 032236 0 0 0 000000032237 0 324000032237 -AT6 032236 032237 0 0 000000032237 0 324000032237 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 230 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0446 - -FT1A 032236 032237 0 0 000000032237 0 000000032237 -FT2 032236 032237 0 0 0 0 000000032237 -FT2RQ 032236 032237 0 0 0 0 000000032237 -FT3 032236 032237 0 0 0 0 000000032237 -FT9 032237 032237 0 0 0 0 000000032237 -ET0 032237 032237 0 0 0 0 000000032237 -ST1A 032237 032237 0 0 0 0 000000032237 -ST9 032237 032237 0 0 0 0 000000032237 - - -*032237 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 032237 032237 0 0 400000000000 0 0 -IT1 032237 0 0 0 400000000000 0 0 -AT3 032237 0 0 0 0 0 400000000000 -AT6 032237 0 0 0 0 0 400000000000 -FT1A 032237 0 0 0 0 0 0 -FT9 032240 0 0 0 0 0 0 -ET0 032240 0 0 0 0 0 0 -ST1 032240 0 0 0 0 0 0 -ST2 032240 0 0 0 0 0 0 -ST9 032240 0 0 0 0 0 0 - - -*032240 MOVE 1,035107 -INITIAL -C(AC)=000000 000000 -C(E)=000000 004000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 032240 032240 0 0 200040035107 0 000000004000 -IT1 032240 0 0 0 200040035107 0 000000004000 -AT3 032240 0 0 0 000000035107 0 200040035107 -AT6 032240 035107 0 0 000000035107 0 200040035107 -FT0 032240 035107 0 0 000000004000 0 200040035107 -FT1A 032240 035107 0 0 000000004000 0 000000004000 -FT9 032241 035107 0 0 000000004000 0 000000004000 -ET0 032241 035107 0 0 000000004000 0 000000004000 -ST1 032241 035107 0 0 000000004000 0 000000004000 -ST2 032241 035107 0 0 000000004000 0 000000004000 -ST9 032241 035107 0 0 000000004000 0 000000004000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 231 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0447 - -*032241 AND 1,000000 -INITIAL -C(AC)=000000 004000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032241 032241 0 0 404040000000 0 0 -IT1 032241 0 0 0 404040000000 0 0 -AT3 032241 0 0 0 0 0 404040000000 -AT6 032241 0 0 0 0 0 404040000000 -FT0 032241 0 0 0 0 0 404040000000 -FT1A 032241 0 0 0 0 0 0 -FT2 032241 0 0 0 0 0 0 -FT2RQ 032241 0 0 0 000000004000 0 0 -FT3 032241 0 0 0 000000004000 0 0 -FT9 032242 0 0 0 000000004000 0 0 -ET0 032242 0 0 0 0 0 0 -ST1 032242 0 0 0 0 0 0 -ST2 032242 0 0 0 0 0 0 -ST9 032242 0 0 0 0 0 0 - - -*032242 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 032242 032242 0 0 332000000001 0 0 -IT1 032242 0 0 0 332000000001 0 0 -AT3 032242 0 0 0 000000000001 0 332000000001 -AT6 032242 000001 0 0 000000000001 0 332000000001 -FT0 032242 000001 0 0 0 0 332000000001 -FT1A 032242 000001 0 0 0 0 0 -FT9 032243 000001 0 0 0 0 0 -ET0 032244 000001 0 0 0 0 0 -ST1A 032244 000001 0 0 0 0 0 -ST9 032244 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 232 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0448 - -*032244 JUMPA 0,032245 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032244 032244 0 0 324000032245 0 000000032245 -IT1 032244 0 0 0 324000032245 0 000000032245 -AT3 032244 0 0 0 000000032245 0 324000032245 -AT6 032244 032245 0 0 000000032245 0 324000032245 -FT1A 032244 032245 0 0 000000032245 0 000000032245 -FT2 032244 032245 0 0 0 0 000000032245 -FT2RQ 032244 032245 0 0 0 0 000000032245 -FT3 032244 032245 0 0 0 0 000000032245 -FT9 032245 032245 0 0 0 0 000000032245 -ET0 032245 032245 0 0 0 0 000000032245 -ST1A 032245 032245 0 0 0 0 000000032245 -ST9 032245 032245 0 0 0 0 000000032245 - - -*032245 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 032245 032245 0 0 332000000000 0 0 -IT1 032245 0 0 0 332000000000 0 0 -AT3 032245 0 0 0 0 0 332000000000 -AT6 032245 0 0 0 0 0 332000000000 -FT0 032245 0 0 0 0 0 332000000000 -FT1A 032245 0 0 0 0 0 0 -FT9 032246 0 0 0 0 0 0 -ET0 032247 0 0 0 0 0 0 -ST1A 032247 0 0 0 0 0 0 -ST9 032247 0 0 0 0 0 0 - - -*032247 JUMPA 0,032250 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032247 032247 0 0 324000032250 0 000000032250 -IT1 032247 0 0 0 324000032250 0 000000032250 -AT3 032247 0 0 0 000000032250 0 324000032250 -AT6 032247 032250 0 0 000000032250 0 324000032250 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 233 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0449 - -FT1A 032247 032250 0 0 000000032250 0 000000032250 -FT2 032247 032250 0 0 0 0 000000032250 -FT2RQ 032247 032250 0 0 0 0 000000032250 -FT3 032247 032250 0 0 0 0 000000032250 -FT9 032250 032250 0 0 0 0 000000032250 -ET0 032250 032250 0 0 0 0 000000032250 -ST1A 032250 032250 0 0 0 0 000000032250 -ST9 032250 032250 0 0 0 0 000000032250 - - -*032250 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 032250 032250 0 0 400000000000 0 0 -IT1 032250 0 0 0 400000000000 0 0 -AT3 032250 0 0 0 0 0 400000000000 -AT6 032250 0 0 0 0 0 400000000000 -FT1A 032250 0 0 0 0 0 0 -FT9 032251 0 0 0 0 0 0 -ET0 032251 0 0 0 0 0 0 -ST1 032251 0 0 0 0 0 0 -ST2 032251 0 0 0 0 0 0 -ST9 032251 0 0 0 0 0 0 - - -*032251 MOVE 1,035110 -INITIAL -C(AC)=000000 000000 -C(E)=000000 010000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 032251 032251 0 0 200040035110 0 000000010000 -IT1 032251 0 0 0 200040035110 0 000000010000 -AT3 032251 0 0 0 000000035110 0 200040035110 -AT6 032251 035110 0 0 000000035110 0 200040035110 -FT0 032251 035110 0 0 000000010000 0 200040035110 -FT1A 032251 035110 0 0 000000010000 0 000000010000 -FT9 032252 035110 0 0 000000010000 0 000000010000 -ET0 032252 035110 0 0 000000010000 0 000000010000 -ST1 032252 035110 0 0 000000010000 0 000000010000 -ST2 032252 035110 0 0 000000010000 0 000000010000 -ST9 032252 035110 0 0 000000010000 0 000000010000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 234 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0450 - -*032252 AND 1,000000 -INITIAL -C(AC)=000000 010000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032252 032252 0 0 404040000000 0 0 -IT1 032252 0 0 0 404040000000 0 0 -AT3 032252 0 0 0 0 0 404040000000 -AT6 032252 0 0 0 0 0 404040000000 -FT0 032252 0 0 0 0 0 404040000000 -FT1A 032252 0 0 0 0 0 0 -FT2 032252 0 0 0 0 0 0 -FT2RQ 032252 0 0 0 000000010000 0 0 -FT3 032252 0 0 0 000000010000 0 0 -FT9 032253 0 0 0 000000010000 0 0 -ET0 032253 0 0 0 0 0 0 -ST1 032253 0 0 0 0 0 0 -ST2 032253 0 0 0 0 0 0 -ST9 032253 0 0 0 0 0 0 - - -*032253 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 032253 032253 0 0 332000000001 0 0 -IT1 032253 0 0 0 332000000001 0 0 -AT3 032253 0 0 0 000000000001 0 332000000001 -AT6 032253 000001 0 0 000000000001 0 332000000001 -FT0 032253 000001 0 0 0 0 332000000001 -FT1A 032253 000001 0 0 0 0 0 -FT9 032254 000001 0 0 0 0 0 -ET0 032255 000001 0 0 0 0 0 -ST1A 032255 000001 0 0 0 0 0 -ST9 032255 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 235 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0451 - -*032255 JUMPA 0,032256 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032255 032255 0 0 324000032256 0 000000032256 -IT1 032255 0 0 0 324000032256 0 000000032256 -AT3 032255 0 0 0 000000032256 0 324000032256 -AT6 032255 032256 0 0 000000032256 0 324000032256 -FT1A 032255 032256 0 0 000000032256 0 000000032256 -FT2 032255 032256 0 0 0 0 000000032256 -FT2RQ 032255 032256 0 0 0 0 000000032256 -FT3 032255 032256 0 0 0 0 000000032256 -FT9 032256 032256 0 0 0 0 000000032256 -ET0 032256 032256 0 0 0 0 000000032256 -ST1A 032256 032256 0 0 0 0 000000032256 -ST9 032256 032256 0 0 0 0 000000032256 - - -*032256 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 032256 032256 0 0 332000000000 0 0 -IT1 032256 0 0 0 332000000000 0 0 -AT3 032256 0 0 0 0 0 332000000000 -AT6 032256 0 0 0 0 0 332000000000 -FT0 032256 0 0 0 0 0 332000000000 -FT1A 032256 0 0 0 0 0 0 -FT9 032257 0 0 0 0 0 0 -ET0 032260 0 0 0 0 0 0 -ST1A 032260 0 0 0 0 0 0 -ST9 032260 0 0 0 0 0 0 - - -*032260 JUMPA 0,032261 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032260 032260 0 0 324000032261 0 000000032261 -IT1 032260 0 0 0 324000032261 0 000000032261 -AT3 032260 0 0 0 000000032261 0 324000032261 -AT6 032260 032261 0 0 000000032261 0 324000032261 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 236 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0452 - -FT1A 032260 032261 0 0 000000032261 0 000000032261 -FT2 032260 032261 0 0 0 0 000000032261 -FT2RQ 032260 032261 0 0 0 0 000000032261 -FT3 032260 032261 0 0 0 0 000000032261 -FT9 032261 032261 0 0 0 0 000000032261 -ET0 032261 032261 0 0 0 0 000000032261 -ST1A 032261 032261 0 0 0 0 000000032261 -ST9 032261 032261 0 0 0 0 000000032261 - - -*032261 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 032261 032261 0 0 400000000000 0 0 -IT1 032261 0 0 0 400000000000 0 0 -AT3 032261 0 0 0 0 0 400000000000 -AT6 032261 0 0 0 0 0 400000000000 -FT1A 032261 0 0 0 0 0 0 -FT9 032262 0 0 0 0 0 0 -ET0 032262 0 0 0 0 0 0 -ST1 032262 0 0 0 0 0 0 -ST2 032262 0 0 0 0 0 0 -ST9 032262 0 0 0 0 0 0 - - -*032262 MOVE 1,035111 -INITIAL -C(AC)=000000 000000 -C(E)=000000 020000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 032262 032262 0 0 200040035111 0 000000020000 -IT1 032262 0 0 0 200040035111 0 000000020000 -AT3 032262 0 0 0 000000035111 0 200040035111 -AT6 032262 035111 0 0 000000035111 0 200040035111 -FT0 032262 035111 0 0 000000020000 0 200040035111 -FT1A 032262 035111 0 0 000000020000 0 000000020000 -FT9 032263 035111 0 0 000000020000 0 000000020000 -ET0 032263 035111 0 0 000000020000 0 000000020000 -ST1 032263 035111 0 0 000000020000 0 000000020000 -ST2 032263 035111 0 0 000000020000 0 000000020000 -ST9 032263 035111 0 0 000000020000 0 000000020000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 237 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0453 - -*032263 AND 1,000000 -INITIAL -C(AC)=000000 020000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032263 032263 0 0 404040000000 0 0 -IT1 032263 0 0 0 404040000000 0 0 -AT3 032263 0 0 0 0 0 404040000000 -AT6 032263 0 0 0 0 0 404040000000 -FT0 032263 0 0 0 0 0 404040000000 -FT1A 032263 0 0 0 0 0 0 -FT2 032263 0 0 0 0 0 0 -FT2RQ 032263 0 0 0 000000020000 0 0 -FT3 032263 0 0 0 000000020000 0 0 -FT9 032264 0 0 0 000000020000 0 0 -ET0 032264 0 0 0 0 0 0 -ST1 032264 0 0 0 0 0 0 -ST2 032264 0 0 0 0 0 0 -ST9 032264 0 0 0 0 0 0 - - -*032264 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 032264 032264 0 0 332000000001 0 0 -IT1 032264 0 0 0 332000000001 0 0 -AT3 032264 0 0 0 000000000001 0 332000000001 -AT6 032264 000001 0 0 000000000001 0 332000000001 -FT0 032264 000001 0 0 0 0 332000000001 -FT1A 032264 000001 0 0 0 0 0 -FT9 032265 000001 0 0 0 0 0 -ET0 032266 000001 0 0 0 0 0 -ST1A 032266 000001 0 0 0 0 0 -ST9 032266 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 238 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0454 - -*032266 JUMPA 0,032267 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032266 032266 0 0 324000032267 0 000000032267 -IT1 032266 0 0 0 324000032267 0 000000032267 -AT3 032266 0 0 0 000000032267 0 324000032267 -AT6 032266 032267 0 0 000000032267 0 324000032267 -FT1A 032266 032267 0 0 000000032267 0 000000032267 -FT2 032266 032267 0 0 0 0 000000032267 -FT2RQ 032266 032267 0 0 0 0 000000032267 -FT3 032266 032267 0 0 0 0 000000032267 -FT9 032267 032267 0 0 0 0 000000032267 -ET0 032267 032267 0 0 0 0 000000032267 -ST1A 032267 032267 0 0 0 0 000000032267 -ST9 032267 032267 0 0 0 0 000000032267 - - -*032267 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 032267 032267 0 0 332000000000 0 0 -IT1 032267 0 0 0 332000000000 0 0 -AT3 032267 0 0 0 0 0 332000000000 -AT6 032267 0 0 0 0 0 332000000000 -FT0 032267 0 0 0 0 0 332000000000 -FT1A 032267 0 0 0 0 0 0 -FT9 032270 0 0 0 0 0 0 -ET0 032271 0 0 0 0 0 0 -ST1A 032271 0 0 0 0 0 0 -ST9 032271 0 0 0 0 0 0 - - -*032271 JUMPA 0,032272 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032271 032271 0 0 324000032272 0 000000032272 -IT1 032271 0 0 0 324000032272 0 000000032272 -AT3 032271 0 0 0 000000032272 0 324000032272 -AT6 032271 032272 0 0 000000032272 0 324000032272 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 239 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0455 - -FT1A 032271 032272 0 0 000000032272 0 000000032272 -FT2 032271 032272 0 0 0 0 000000032272 -FT2RQ 032271 032272 0 0 0 0 000000032272 -FT3 032271 032272 0 0 0 0 000000032272 -FT9 032272 032272 0 0 0 0 000000032272 -ET0 032272 032272 0 0 0 0 000000032272 -ST1A 032272 032272 0 0 0 0 000000032272 -ST9 032272 032272 0 0 0 0 000000032272 - - -*032272 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 032272 032272 0 0 400000000000 0 0 -IT1 032272 0 0 0 400000000000 0 0 -AT3 032272 0 0 0 0 0 400000000000 -AT6 032272 0 0 0 0 0 400000000000 -FT1A 032272 0 0 0 0 0 0 -FT9 032273 0 0 0 0 0 0 -ET0 032273 0 0 0 0 0 0 -ST1 032273 0 0 0 0 0 0 -ST2 032273 0 0 0 0 0 0 -ST9 032273 0 0 0 0 0 0 - - -*032273 MOVE 1,035112 -INITIAL -C(AC)=000000 000000 -C(E)=000000 040000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 032273 032273 0 0 200040035112 0 000000040000 -IT1 032273 0 0 0 200040035112 0 000000040000 -AT3 032273 0 0 0 000000035112 0 200040035112 -AT6 032273 035112 0 0 000000035112 0 200040035112 -FT0 032273 035112 0 0 000000040000 0 200040035112 -FT1A 032273 035112 0 0 000000040000 0 000000040000 -FT9 032274 035112 0 0 000000040000 0 000000040000 -ET0 032274 035112 0 0 000000040000 0 000000040000 -ST1 032274 035112 0 0 000000040000 0 000000040000 -ST2 032274 035112 0 0 000000040000 0 000000040000 -ST9 032274 035112 0 0 000000040000 0 000000040000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 240 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0456 - -*032274 AND 1,000000 -INITIAL -C(AC)=000000 040000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032274 032274 0 0 404040000000 0 0 -IT1 032274 0 0 0 404040000000 0 0 -AT3 032274 0 0 0 0 0 404040000000 -AT6 032274 0 0 0 0 0 404040000000 -FT0 032274 0 0 0 0 0 404040000000 -FT1A 032274 0 0 0 0 0 0 -FT2 032274 0 0 0 0 0 0 -FT2RQ 032274 0 0 0 000000040000 0 0 -FT3 032274 0 0 0 000000040000 0 0 -FT9 032275 0 0 0 000000040000 0 0 -ET0 032275 0 0 0 0 0 0 -ST1 032275 0 0 0 0 0 0 -ST2 032275 0 0 0 0 0 0 -ST9 032275 0 0 0 0 0 0 - - -*032275 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 032275 032275 0 0 332000000001 0 0 -IT1 032275 0 0 0 332000000001 0 0 -AT3 032275 0 0 0 000000000001 0 332000000001 -AT6 032275 000001 0 0 000000000001 0 332000000001 -FT0 032275 000001 0 0 0 0 332000000001 -FT1A 032275 000001 0 0 0 0 0 -FT9 032276 000001 0 0 0 0 0 -ET0 032277 000001 0 0 0 0 0 -ST1A 032277 000001 0 0 0 0 0 -ST9 032277 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 241 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0457 - -*032277 JUMPA 0,032300 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032277 032277 0 0 324000032300 0 000000032300 -IT1 032277 0 0 0 324000032300 0 000000032300 -AT3 032277 0 0 0 000000032300 0 324000032300 -AT6 032277 0 0 0 000000032300 0 324000032300 -FT1A 032277 0 0 0 000000032300 0 000000032300 -FT2 032277 0 0 0 0 0 000000032300 -FT2RQ 032277 0 0 0 0 0 000000032300 -FT3 032277 0 0 0 0 0 000000032300 -FT9 0 0 0 0 0 0 000000032300 -ET0 0 0 0 0 0 0 000000032300 -ST1A 0 0 0 0 0 0 000000032300 -ST9 0 0 0 0 0 0 000000032300 - - -*032300 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 0 0 0 0 332000000000 0 0 -IT1 0 0 0 0 332000000000 0 0 -AT3 0 0 0 0 0 0 332000000000 -AT6 0 0 0 0 0 0 332000000000 -FT0 0 0 0 0 0 0 332000000000 -FT1A 0 0 0 0 0 0 0 -FT9 032301 0 0 0 0 0 0 -ET0 032302 0 0 0 0 0 0 -ST1A 032302 0 0 0 0 0 0 -ST9 032302 0 0 0 0 0 0 - - -*032302 JUMPA 0,032303 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032302 032302 0 0 324000032303 0 000000032303 -IT1 032302 0 0 0 324000032303 0 000000032303 -AT3 032302 0 0 0 000000032303 0 324000032303 -AT6 032302 032303 0 0 000000032303 0 324000032303 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 242 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0458 - -FT1A 032302 032303 0 0 000000032303 0 000000032303 -FT2 032302 032303 0 0 0 0 000000032303 -FT2RQ 032302 032303 0 0 0 0 000000032303 -FT3 032302 032303 0 0 0 0 000000032303 -FT9 032303 032303 0 0 0 0 000000032303 -ET0 032303 032303 0 0 0 0 000000032303 -ST1A 032303 032303 0 0 0 0 000000032303 -ST9 032303 032303 0 0 0 0 000000032303 - - -*032303 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 032303 032303 0 0 400000000000 0 0 -IT1 032303 0 0 0 400000000000 0 0 -AT3 032303 0 0 0 0 0 400000000000 -AT6 032303 0 0 0 0 0 400000000000 -FT1A 032303 0 0 0 0 0 0 -FT9 032304 0 0 0 0 0 0 -ET0 032304 0 0 0 0 0 0 -ST1 032304 0 0 0 0 0 0 -ST2 032304 0 0 0 0 0 0 -ST9 032304 0 0 0 0 0 0 - - -*032304 MOVE 1,035113 -INITIAL -C(AC)=000000 000000 -C(E)=000000 100000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 032304 032304 0 0 200040035113 0 000000100000 -IT1 032304 0 0 0 200040035113 0 000000100000 -AT3 032304 0 0 0 000000035113 0 200040035113 -AT6 032304 035113 0 0 000000035113 0 200040035113 -FT0 032304 035113 0 0 000000100000 0 200040035113 -FT1A 032304 035113 0 0 000000100000 0 000000100000 -FT9 032305 035113 0 0 000000100000 0 000000100000 -ET0 032305 035113 0 0 000000100000 0 000000100000 -ST1 032305 035113 0 0 000000100000 0 000000100000 -ST2 032305 035113 0 0 000000100000 0 000000100000 -ST9 032305 035113 0 0 000000100000 0 000000100000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 243 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0459 - -*032305 AND 1,000000 -INITIAL -C(AC)=000000 100000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032305 032305 0 0 404040000000 0 0 -IT1 032305 0 0 0 404040000000 0 0 -AT3 032305 0 0 0 0 0 404040000000 -AT6 032305 0 0 0 0 0 404040000000 -FT0 032305 0 0 0 0 0 404040000000 -FT1A 032305 0 0 0 0 0 0 -FT2 032305 0 0 0 0 0 0 -FT2RQ 032305 0 0 0 000000100000 0 0 -FT3 032305 0 0 0 000000100000 0 0 -FT9 032306 0 0 0 000000100000 0 0 -ET0 032306 0 0 0 0 0 0 -ST1 032306 0 0 0 0 0 0 -ST2 032306 0 0 0 0 0 0 -ST9 032306 0 0 0 0 0 0 - - -*032306 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 032306 032306 0 0 332000000001 0 0 -IT1 032306 0 0 0 332000000001 0 0 -AT3 032306 0 0 0 000000000001 0 332000000001 -AT6 032306 000001 0 0 000000000001 0 332000000001 -FT0 032306 000001 0 0 0 0 332000000001 -FT1A 032306 000001 0 0 0 0 0 -FT9 032307 000001 0 0 0 0 0 -ET0 032310 000001 0 0 0 0 0 -ST1A 032310 000001 0 0 0 0 0 -ST9 032310 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 244 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0460 - -*032310 JUMPA 0,032311 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032310 032310 0 0 324000032311 0 000000032311 -IT1 032310 0 0 0 324000032311 0 000000032311 -AT3 032310 0 0 0 000000032311 0 324000032311 -AT6 032310 032311 0 0 000000032311 0 324000032311 -FT1A 032310 032311 0 0 000000032311 0 000000032311 -FT2 032310 032311 0 0 0 0 000000032311 -FT2RQ 032310 032311 0 0 0 0 000000032311 -FT3 032310 032311 0 0 0 0 000000032311 -FT9 032311 032311 0 0 0 0 000000032311 -ET0 032311 032311 0 0 0 0 000000032311 -ST1A 032311 032311 0 0 0 0 000000032311 -ST9 032311 032311 0 0 0 0 000000032311 - - -*032311 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 032311 032311 0 0 332000000000 0 0 -IT1 032311 0 0 0 332000000000 0 0 -AT3 032311 0 0 0 0 0 332000000000 -AT6 032311 0 0 0 0 0 332000000000 -FT0 032311 0 0 0 0 0 332000000000 -FT1A 032311 0 0 0 0 0 0 -FT9 032312 0 0 0 0 0 0 -ET0 032313 0 0 0 0 0 0 -ST1A 032313 0 0 0 0 0 0 -ST9 032313 0 0 0 0 0 0 - - -*032313 JUMPA 0,032314 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032313 032313 0 0 324000032314 0 000000032314 -IT1 032313 0 0 0 324000032314 0 000000032314 -AT3 032313 0 0 0 000000032314 0 324000032314 -AT6 032313 032314 0 0 000000032314 0 324000032314 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 245 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0461 - -FT1A 032313 032314 0 0 000000032314 0 000000032314 -FT2 032313 032314 0 0 0 0 000000032314 -FT2RQ 032313 032314 0 0 0 0 000000032314 -FT3 032313 032314 0 0 0 0 000000032314 -FT9 032314 032314 0 0 0 0 000000032314 -ET0 032314 032314 0 0 0 0 000000032314 -ST1A 032314 032314 0 0 0 0 000000032314 -ST9 032314 032314 0 0 0 0 000000032314 - - -*032314 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 032314 032314 0 0 400000000000 0 0 -IT1 032314 0 0 0 400000000000 0 0 -AT3 032314 0 0 0 0 0 400000000000 -AT6 032314 0 0 0 0 0 400000000000 -FT1A 032314 0 0 0 0 0 0 -FT9 032315 0 0 0 0 0 0 -ET0 032315 0 0 0 0 0 0 -ST1 032315 0 0 0 0 0 0 -ST2 032315 0 0 0 0 0 0 -ST9 032315 0 0 0 0 0 0 - - -*032315 MOVE 1,035114 -INITIAL -C(AC)=000000 000000 -C(E)=000000 200000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 032315 032315 0 0 200040035114 0 000000200000 -IT1 032315 0 0 0 200040035114 0 000000200000 -AT3 032315 0 0 0 000000035114 0 200040035114 -AT6 032315 035114 0 0 000000035114 0 200040035114 -FT0 032315 035114 0 0 000000200000 0 200040035114 -FT1A 032315 035114 0 0 000000200000 0 000000200000 -FT9 032316 035114 0 0 000000200000 0 000000200000 -ET0 032316 035114 0 0 000000200000 0 000000200000 -ST1 032316 035114 0 0 000000200000 0 000000200000 -ST2 032316 035114 0 0 000000200000 0 000000200000 -ST9 032316 035114 0 0 000000200000 0 000000200000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 246 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0462 - -*032316 AND 1,000000 -INITIAL -C(AC)=000000 200000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032316 032316 0 0 404040000000 0 0 -IT1 032316 0 0 0 404040000000 0 0 -AT3 032316 0 0 0 0 0 404040000000 -AT6 032316 0 0 0 0 0 404040000000 -FT0 032316 0 0 0 0 0 404040000000 -FT1A 032316 0 0 0 0 0 0 -FT2 032316 0 0 0 0 0 0 -FT2RQ 032316 0 0 0 000000200000 0 0 -FT3 032316 0 0 0 000000200000 0 0 -FT9 032317 0 0 0 000000200000 0 0 -ET0 032317 0 0 0 0 0 0 -ST1 032317 0 0 0 0 0 0 -ST2 032317 0 0 0 0 0 0 -ST9 032317 0 0 0 0 0 0 - - -*032317 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 032317 032317 0 0 332000000001 0 0 -IT1 032317 0 0 0 332000000001 0 0 -AT3 032317 0 0 0 000000000001 0 332000000001 -AT6 032317 000001 0 0 000000000001 0 332000000001 -FT0 032317 000001 0 0 0 0 332000000001 -FT1A 032317 000001 0 0 0 0 0 -FT9 032320 000001 0 0 0 0 0 -ET0 032321 000001 0 0 0 0 0 -ST1A 032321 000001 0 0 0 0 0 -ST9 032321 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 247 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0463 - -*032321 JUMPA 0,032322 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032321 032321 0 0 324000032322 0 000000032322 -IT1 032321 0 0 0 324000032322 0 000000032322 -AT3 032321 0 0 0 000000032322 0 324000032322 -AT6 032321 032322 0 0 000000032322 0 324000032322 -FT1A 032321 032322 0 0 000000032322 0 000000032322 -FT2 032321 032322 0 0 0 0 000000032322 -FT2RQ 032321 032322 0 0 0 0 000000032322 -FT3 032321 032322 0 0 0 0 000000032322 -FT9 032322 032322 0 0 0 0 000000032322 -ET0 032322 032322 0 0 0 0 000000032322 -ST1A 032322 032322 0 0 0 0 000000032322 -ST9 032322 032322 0 0 0 0 000000032322 - - -*032322 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 032322 032322 0 0 332000000000 0 0 -IT1 032322 0 0 0 332000000000 0 0 -AT3 032322 0 0 0 0 0 332000000000 -AT6 032322 0 0 0 0 0 332000000000 -FT0 032322 0 0 0 0 0 332000000000 -FT1A 032322 0 0 0 0 0 0 -FT9 032323 0 0 0 0 0 0 -ET0 032324 0 0 0 0 0 0 -ST1A 032324 0 0 0 0 0 0 -ST9 032324 0 0 0 0 0 0 - - -*032324 JUMPA 0,032325 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032324 032324 0 0 324000032325 0 000000032325 -IT1 032324 0 0 0 324000032325 0 000000032325 -AT3 032324 0 0 0 000000032325 0 324000032325 -AT6 032324 032325 0 0 000000032325 0 324000032325 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 248 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0464 - -FT1A 032324 032325 0 0 000000032325 0 000000032325 -FT2 032324 032325 0 0 0 0 000000032325 -FT2RQ 032324 032325 0 0 0 0 000000032325 -FT3 032324 032325 0 0 0 0 000000032325 -FT9 032325 032325 0 0 0 0 000000032325 -ET0 032325 032325 0 0 0 0 000000032325 -ST1A 032325 032325 0 0 0 0 000000032325 -ST9 032325 032325 0 0 0 0 000000032325 - - -*032325 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 032325 032325 0 0 400000000000 0 0 -IT1 032325 0 0 0 400000000000 0 0 -AT3 032325 0 0 0 0 0 400000000000 -AT6 032325 0 0 0 0 0 400000000000 -FT1A 032325 0 0 0 0 0 0 -FT9 032326 0 0 0 0 0 0 -ET0 032326 0 0 0 0 0 0 -ST1 032326 0 0 0 0 0 0 -ST2 032326 0 0 0 0 0 0 -ST9 032326 0 0 0 0 0 0 - - -*032326 MOVE 1,035115 -INITIAL -C(AC)=000000 000000 -C(E)=000000 400000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 032326 032326 0 0 200040035115 0 000000400000 -IT1 032326 0 0 0 200040035115 0 000000400000 -AT3 032326 0 0 0 000000035115 0 200040035115 -AT6 032326 035115 0 0 000000035115 0 200040035115 -FT0 032326 035115 0 0 000000400000 0 200040035115 -FT1A 032326 035115 0 0 000000400000 0 000000400000 -FT9 032327 035115 0 0 000000400000 0 000000400000 -ET0 032327 035115 0 0 000000400000 0 000000400000 -ST1 032327 035115 0 0 000000400000 0 000000400000 -ST2 032327 035115 0 0 000000400000 0 000000400000 -ST9 032327 035115 0 0 000000400000 0 000000400000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 249 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0465 - -*032327 AND 1,000000 -INITIAL -C(AC)=000000 400000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032327 032327 0 0 404040000000 0 0 -IT1 032327 0 0 0 404040000000 0 0 -AT3 032327 0 0 0 0 0 404040000000 -AT6 032327 0 0 0 0 0 404040000000 -FT0 032327 0 0 0 0 0 404040000000 -FT1A 032327 0 0 0 0 0 0 -FT2 032327 0 0 0 0 0 0 -FT2RQ 032327 0 0 0 000000400000 0 0 -FT3 032327 0 0 0 000000400000 0 0 -FT9 032330 0 0 0 000000400000 0 0 -ET0 032330 0 0 0 0 0 0 -ST1 032330 0 0 0 0 0 0 -ST2 032330 0 0 0 0 0 0 -ST9 032330 0 0 0 0 0 0 - - -*032330 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 032330 032330 0 0 332000000001 0 0 -IT1 032330 0 0 0 332000000001 0 0 -AT3 032330 0 0 0 000000000001 0 332000000001 -AT6 032330 000001 0 0 000000000001 0 332000000001 -FT0 032330 000001 0 0 0 0 332000000001 -FT1A 032330 000001 0 0 0 0 0 -FT9 032331 000001 0 0 0 0 0 -ET0 032332 000001 0 0 0 0 0 -ST1A 032332 000001 0 0 0 0 0 -ST9 032332 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 250 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0466 - -*032332 JUMPA 0,032333 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032332 032332 0 0 324000032333 0 000000032333 -IT1 032332 0 0 0 324000032333 0 000000032333 -AT3 032332 0 0 0 000000032333 0 324000032333 -AT6 032332 032333 0 0 000000032333 0 324000032333 -FT1A 032332 032333 0 0 000000032333 0 000000032333 -FT2 032332 032333 0 0 0 0 000000032333 -FT2RQ 032332 032333 0 0 0 0 000000032333 -FT3 032332 032333 0 0 0 0 000000032333 -FT9 032333 032333 0 0 0 0 000000032333 -ET0 032333 032333 0 0 0 0 000000032333 -ST1A 032333 032333 0 0 0 0 000000032333 -ST9 032333 032333 0 0 0 0 000000032333 - - -*032333 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 032333 032333 0 0 332000000000 0 0 -IT1 032333 0 0 0 332000000000 0 0 -AT3 032333 0 0 0 0 0 332000000000 -AT6 032333 0 0 0 0 0 332000000000 -FT0 032333 0 0 0 0 0 332000000000 -FT1A 032333 0 0 0 0 0 0 -FT9 032334 0 0 0 0 0 0 -ET0 032335 0 0 0 0 0 0 -ST1A 032335 0 0 0 0 0 0 -ST9 032335 0 0 0 0 0 0 - - -*032335 JUMPA 0,032336 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032335 032335 0 0 324000032336 0 000000032336 -IT1 032335 0 0 0 324000032336 0 000000032336 -AT3 032335 0 0 0 000000032336 0 324000032336 -AT6 032335 032336 0 0 000000032336 0 324000032336 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 251 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0467 - -FT1A 032335 032336 0 0 000000032336 0 000000032336 -FT2 032335 032336 0 0 0 0 000000032336 -FT2RQ 032335 032336 0 0 0 0 000000032336 -FT3 032335 032336 0 0 0 0 000000032336 -FT9 032336 032336 0 0 0 0 000000032336 -ET0 032336 032336 0 0 0 0 000000032336 -ST1A 032336 032336 0 0 0 0 000000032336 -ST9 032336 032336 0 0 0 0 000000032336 - - -*032336 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 032336 032336 0 0 400000000000 0 0 -IT1 032336 0 0 0 400000000000 0 0 -AT3 032336 0 0 0 0 0 400000000000 -AT6 032336 0 0 0 0 0 400000000000 -FT1A 032336 0 0 0 0 0 0 -FT9 032337 0 0 0 0 0 0 -ET0 032337 0 0 0 0 0 0 -ST1 032337 0 0 0 0 0 0 -ST2 032337 0 0 0 0 0 0 -ST9 032337 0 0 0 0 0 0 - - -*032337 MOVE 1,035116 -INITIAL -C(AC)=000000 000000 -C(E)=000001 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032337 032337 0 0 200040035116 0 000001000000 -IT1 032337 0 0 0 200040035116 0 000001000000 -AT3 032337 0 0 0 000000035116 0 200040035116 -AT6 032337 035116 0 0 000000035116 0 200040035116 -FT0 032337 035116 0 0 000001000000 0 200040035116 -FT1A 032337 035116 0 0 000001000000 0 000001000000 -FT9 032340 035116 0 0 000001000000 0 000001000000 -ET0 032340 035116 0 0 000001000000 0 000001000000 -ST1 032340 035116 0 0 000001000000 0 000001000000 -ST2 032340 035116 0 0 000001000000 0 000001000000 -ST9 032340 035116 0 0 000001000000 0 000001000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 252 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0468 - -*032340 AND 1,000000 -INITIAL -C(AC)=000001 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032340 032340 0 0 404040000000 0 0 -IT1 032340 0 0 0 404040000000 0 0 -AT3 032340 0 0 0 0 0 404040000000 -AT6 032340 0 0 0 0 0 404040000000 -FT0 032340 0 0 0 0 0 404040000000 -FT1A 032340 0 0 0 0 0 0 -FT2 032340 0 0 0 0 0 0 -FT2RQ 032340 0 0 0 000001000000 0 0 -FT3 032340 0 0 0 000001000000 0 0 -FT9 032341 0 0 0 000001000000 0 0 -ET0 032341 0 0 0 0 0 0 -ST1 032341 0 0 0 0 0 0 -ST2 032341 0 0 0 0 0 0 -ST9 032341 0 0 0 0 0 0 - - -*032341 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 032341 032341 0 0 332000000001 0 0 -IT1 032341 0 0 0 332000000001 0 0 -AT3 032341 0 0 0 000000000001 0 332000000001 -AT6 032341 000001 0 0 000000000001 0 332000000001 -FT0 032341 000001 0 0 0 0 332000000001 -FT1A 032341 000001 0 0 0 0 0 -FT9 032342 000001 0 0 0 0 0 -ET0 032343 000001 0 0 0 0 0 -ST1A 032343 000001 0 0 0 0 0 -ST9 032343 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 253 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0469 - -*032343 JUMPA 0,032344 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032343 032343 0 0 324000032344 0 000000032344 -IT1 032343 0 0 0 324000032344 0 000000032344 -AT3 032343 0 0 0 000000032344 0 324000032344 -AT6 032343 032344 0 0 000000032344 0 324000032344 -FT1A 032343 032344 0 0 000000032344 0 000000032344 -FT2 032343 032344 0 0 0 0 000000032344 -FT2RQ 032343 032344 0 0 0 0 000000032344 -FT3 032343 032344 0 0 0 0 000000032344 -FT9 032344 032344 0 0 0 0 000000032344 -ET0 032344 032344 0 0 0 0 000000032344 -ST1A 032344 032344 0 0 0 0 000000032344 -ST9 032344 032344 0 0 0 0 000000032344 - - -*032344 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 032344 032344 0 0 332000000000 0 0 -IT1 032344 0 0 0 332000000000 0 0 -AT3 032344 0 0 0 0 0 332000000000 -AT6 032344 0 0 0 0 0 332000000000 -FT0 032344 0 0 0 0 0 332000000000 -FT1A 032344 0 0 0 0 0 0 -FT9 032345 0 0 0 0 0 0 -ET0 032346 0 0 0 0 0 0 -ST1A 032346 0 0 0 0 0 0 -ST9 032346 0 0 0 0 0 0 - - -*032346 JUMPA 0,032347 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032346 032346 0 0 324000032347 0 000000032347 -IT1 032346 0 0 0 324000032347 0 000000032347 -AT3 032346 0 0 0 000000032347 0 324000032347 -AT6 032346 032347 0 0 000000032347 0 324000032347 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 254 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0470 - -FT1A 032346 032347 0 0 000000032347 0 000000032347 -FT2 032346 032347 0 0 0 0 000000032347 -FT2RQ 032346 032347 0 0 0 0 000000032347 -FT3 032346 032347 0 0 0 0 000000032347 -FT9 032347 032347 0 0 0 0 000000032347 -ET0 032347 032347 0 0 0 0 000000032347 -ST1A 032347 032347 0 0 0 0 000000032347 -ST9 032347 032347 0 0 0 0 000000032347 - - -*032347 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 032347 032347 0 0 400000000000 0 0 -IT1 032347 0 0 0 400000000000 0 0 -AT3 032347 0 0 0 0 0 400000000000 -AT6 032347 0 0 0 0 0 400000000000 -FT1A 032347 0 0 0 0 0 0 -FT9 032350 0 0 0 0 0 0 -ET0 032350 0 0 0 0 0 0 -ST1 032350 0 0 0 0 0 0 -ST2 032350 0 0 0 0 0 0 -ST9 032350 0 0 0 0 0 0 - - -*032350 MOVE 1,035117 -INITIAL -C(AC)=000000 000000 -C(E)=000002 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032350 032350 0 0 200040035117 0 000002000000 -IT1 032350 0 0 0 200040035117 0 000002000000 -AT3 032350 0 0 0 000000035117 0 200040035117 -AT6 032350 035117 0 0 000000035117 0 200040035117 -FT0 032350 035117 0 0 000002000000 0 200040035117 -FT1A 032350 035117 0 0 000002000000 0 000002000000 -FT9 032351 035117 0 0 000002000000 0 000002000000 -ET0 032351 035117 0 0 000002000000 0 000002000000 -ST1 032351 035117 0 0 000002000000 0 000002000000 -ST2 032351 035117 0 0 000002000000 0 000002000000 -ST9 032351 035117 0 0 000002000000 0 000002000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 255 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0471 - -*032351 AND 1,000000 -INITIAL -C(AC)=000002 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032351 032351 0 0 404040000000 0 0 -IT1 032351 0 0 0 404040000000 0 0 -AT3 032351 0 0 0 0 0 404040000000 -AT6 032351 0 0 0 0 0 404040000000 -FT0 032351 0 0 0 0 0 404040000000 -FT1A 032351 0 0 0 0 0 0 -FT2 032351 0 0 0 0 0 0 -FT2RQ 032351 0 0 0 000002000000 0 0 -FT3 032351 0 0 0 000002000000 0 0 -FT9 032352 0 0 0 000002000000 0 0 -ET0 032352 0 0 0 0 0 0 -ST1 032352 0 0 0 0 0 0 -ST2 032352 0 0 0 0 0 0 -ST9 032352 0 0 0 0 0 0 - - -*032352 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 032352 032352 0 0 332000000001 0 0 -IT1 032352 0 0 0 332000000001 0 0 -AT3 032352 0 0 0 000000000001 0 332000000001 -AT6 032352 000001 0 0 000000000001 0 332000000001 -FT0 032352 000001 0 0 0 0 332000000001 -FT1A 032352 000001 0 0 0 0 0 -FT9 032353 000001 0 0 0 0 0 -ET0 032354 000001 0 0 0 0 0 -ST1A 032354 000001 0 0 0 0 0 -ST9 032354 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 256 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0472 - -*032354 JUMPA 0,032355 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032354 032354 0 0 324000032355 0 000000032355 -IT1 032354 0 0 0 324000032355 0 000000032355 -AT3 032354 0 0 0 000000032355 0 324000032355 -AT6 032354 032355 0 0 000000032355 0 324000032355 -FT1A 032354 032355 0 0 000000032355 0 000000032355 -FT2 032354 032355 0 0 0 0 000000032355 -FT2RQ 032354 032355 0 0 0 0 000000032355 -FT3 032354 032355 0 0 0 0 000000032355 -FT9 032355 032355 0 0 0 0 000000032355 -ET0 032355 032355 0 0 0 0 000000032355 -ST1A 032355 032355 0 0 0 0 000000032355 -ST9 032355 032355 0 0 0 0 000000032355 - - -*032355 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 032355 032355 0 0 332000000000 0 0 -IT1 032355 0 0 0 332000000000 0 0 -AT3 032355 0 0 0 0 0 332000000000 -AT6 032355 0 0 0 0 0 332000000000 -FT0 032355 0 0 0 0 0 332000000000 -FT1A 032355 0 0 0 0 0 0 -FT9 032356 0 0 0 0 0 0 -ET0 032357 0 0 0 0 0 0 -ST1A 032357 0 0 0 0 0 0 -ST9 032357 0 0 0 0 0 0 - - -*032357 JUMPA 0,032360 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032357 032357 0 0 324000032360 0 000000032360 -IT1 032357 0 0 0 324000032360 0 000000032360 -AT3 032357 0 0 0 000000032360 0 324000032360 -AT6 032357 032360 0 0 000000032360 0 324000032360 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 257 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0473 - -FT1A 032357 032360 0 0 000000032360 0 000000032360 -FT2 032357 032360 0 0 0 0 000000032360 -FT2RQ 032357 032360 0 0 0 0 000000032360 -FT3 032357 032360 0 0 0 0 000000032360 -FT9 032360 032360 0 0 0 0 000000032360 -ET0 032360 032360 0 0 0 0 000000032360 -ST1A 032360 032360 0 0 0 0 000000032360 -ST9 032360 032360 0 0 0 0 000000032360 - - -*032360 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 032360 032360 0 0 400000000000 0 0 -IT1 032360 0 0 0 400000000000 0 0 -AT3 032360 0 0 0 0 0 400000000000 -AT6 032360 0 0 0 0 0 400000000000 -FT1A 032360 0 0 0 0 0 0 -FT9 032361 0 0 0 0 0 0 -ET0 032361 0 0 0 0 0 0 -ST1 032361 0 0 0 0 0 0 -ST2 032361 0 0 0 0 0 0 -ST9 032361 0 0 0 0 0 0 - - -*032361 MOVE 1,035120 -INITIAL -C(AC)=000000 000000 -C(E)=000004 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032361 032361 0 0 200040035120 0 000004000000 -IT1 032361 0 0 0 200040035120 0 000004000000 -AT3 032361 0 0 0 000000035120 0 200040035120 -AT6 032361 035120 0 0 000000035120 0 200040035120 -FT0 032361 035120 0 0 000004000000 0 200040035120 -FT1A 032361 035120 0 0 000004000000 0 000004000000 -FT9 032362 035120 0 0 000004000000 0 000004000000 -ET0 032362 035120 0 0 000004000000 0 000004000000 -ST1 032362 035120 0 0 000004000000 0 000004000000 -ST2 032362 035120 0 0 000004000000 0 000004000000 -ST9 032362 035120 0 0 000004000000 0 000004000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 258 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0474 - -*032362 AND 1,000000 -INITIAL -C(AC)=000004 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032362 032362 0 0 404040000000 0 0 -IT1 032362 0 0 0 404040000000 0 0 -AT3 032362 0 0 0 0 0 404040000000 -AT6 032362 0 0 0 0 0 404040000000 -FT0 032362 0 0 0 0 0 404040000000 -FT1A 032362 0 0 0 0 0 0 -FT2 032362 0 0 0 0 0 0 -FT2RQ 032362 0 0 0 000004000000 0 0 -FT3 032362 0 0 0 000004000000 0 0 -FT9 032363 0 0 0 000004000000 0 0 -ET0 032363 0 0 0 0 0 0 -ST1 032363 0 0 0 0 0 0 -ST2 032363 0 0 0 0 0 0 -ST9 032363 0 0 0 0 0 0 - - -*032363 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 032363 032363 0 0 332000000001 0 0 -IT1 032363 0 0 0 332000000001 0 0 -AT3 032363 0 0 0 000000000001 0 332000000001 -AT6 032363 000001 0 0 000000000001 0 332000000001 -FT0 032363 000001 0 0 0 0 332000000001 -FT1A 032363 000001 0 0 0 0 0 -FT9 032364 000001 0 0 0 0 0 -ET0 032365 000001 0 0 0 0 0 -ST1A 032365 000001 0 0 0 0 0 -ST9 032365 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 259 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0475 - -*032365 JUMPA 0,032366 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032365 032365 0 0 324000032366 0 000000032366 -IT1 032365 0 0 0 324000032366 0 000000032366 -AT3 032365 0 0 0 000000032366 0 324000032366 -AT6 032365 032366 0 0 000000032366 0 324000032366 -FT1A 032365 032366 0 0 000000032366 0 000000032366 -FT2 032365 032366 0 0 0 0 000000032366 -FT2RQ 032365 032366 0 0 0 0 000000032366 -FT3 032365 032366 0 0 0 0 000000032366 -FT9 032366 032366 0 0 0 0 000000032366 -ET0 032366 032366 0 0 0 0 000000032366 -ST1A 032366 032366 0 0 0 0 000000032366 -ST9 032366 032366 0 0 0 0 000000032366 - - -*032366 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 032366 032366 0 0 332000000000 0 0 -IT1 032366 0 0 0 332000000000 0 0 -AT3 032366 0 0 0 0 0 332000000000 -AT6 032366 0 0 0 0 0 332000000000 -FT0 032366 0 0 0 0 0 332000000000 -FT1A 032366 0 0 0 0 0 0 -FT9 032367 0 0 0 0 0 0 -ET0 032370 0 0 0 0 0 0 -ST1A 032370 0 0 0 0 0 0 -ST9 032370 0 0 0 0 0 0 - - -*032370 JUMPA 0,032371 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032370 032370 0 0 324000032371 0 000000032371 -IT1 032370 0 0 0 324000032371 0 000000032371 -AT3 032370 0 0 0 000000032371 0 324000032371 -AT6 032370 032371 0 0 000000032371 0 324000032371 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 260 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0476 - -FT1A 032370 032371 0 0 000000032371 0 000000032371 -FT2 032370 032371 0 0 0 0 000000032371 -FT2RQ 032370 032371 0 0 0 0 000000032371 -FT3 032370 032371 0 0 0 0 000000032371 -FT9 032371 032371 0 0 0 0 000000032371 -ET0 032371 032371 0 0 0 0 000000032371 -ST1A 032371 032371 0 0 0 0 000000032371 -ST9 032371 032371 0 0 0 0 000000032371 - - -*032371 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 032371 032371 0 0 400000000000 0 0 -IT1 032371 0 0 0 400000000000 0 0 -AT3 032371 0 0 0 0 0 400000000000 -AT6 032371 0 0 0 0 0 400000000000 -FT1A 032371 0 0 0 0 0 0 -FT9 032372 0 0 0 0 0 0 -ET0 032372 0 0 0 0 0 0 -ST1 032372 0 0 0 0 0 0 -ST2 032372 0 0 0 0 0 0 -ST9 032372 0 0 0 0 0 0 - - -*032372 MOVE 1,035121 -INITIAL -C(AC)=000000 000000 -C(E)=000010 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032372 032372 0 0 200040035121 0 000010000000 -IT1 032372 0 0 0 200040035121 0 000010000000 -AT3 032372 0 0 0 000000035121 0 200040035121 -AT6 032372 035121 0 0 000000035121 0 200040035121 -FT0 032372 035121 0 0 000010000000 0 200040035121 -FT1A 032372 035121 0 0 000010000000 0 000010000000 -FT9 032373 035121 0 0 000010000000 0 000010000000 -ET0 032373 035121 0 0 000010000000 0 000010000000 -ST1 032373 035121 0 0 000010000000 0 000010000000 -ST2 032373 035121 0 0 000010000000 0 000010000000 -ST9 032373 035121 0 0 000010000000 0 000010000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 261 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0477 - -*032373 AND 1,000000 -INITIAL -C(AC)=000010 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032373 032373 0 0 404040000000 0 0 -IT1 032373 0 0 0 404040000000 0 0 -AT3 032373 0 0 0 0 0 404040000000 -AT6 032373 0 0 0 0 0 404040000000 -FT0 032373 0 0 0 0 0 404040000000 -FT1A 032373 0 0 0 0 0 0 -FT2 032373 0 0 0 0 0 0 -FT2RQ 032373 0 0 0 000010000000 0 0 -FT3 032373 0 0 0 000010000000 0 0 -FT9 032374 0 0 0 000010000000 0 0 -ET0 032374 0 0 0 0 0 0 -ST1 032374 0 0 0 0 0 0 -ST2 032374 0 0 0 0 0 0 -ST9 032374 0 0 0 0 0 0 - - -*032374 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 032374 032374 0 0 332000000001 0 0 -IT1 032374 0 0 0 332000000001 0 0 -AT3 032374 0 0 0 000000000001 0 332000000001 -AT6 032374 000001 0 0 000000000001 0 332000000001 -FT0 032374 000001 0 0 0 0 332000000001 -FT1A 032374 000001 0 0 0 0 0 -FT9 032375 000001 0 0 0 0 0 -ET0 032376 000001 0 0 0 0 0 -ST1A 032376 000001 0 0 0 0 0 -ST9 032376 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 262 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0478 - -*032376 JUMPA 0,032377 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032376 032376 0 0 324000032377 0 000000032377 -IT1 032376 0 0 0 324000032377 0 000000032377 -AT3 032376 0 0 0 000000032377 0 324000032377 -AT6 032376 032377 0 0 000000032377 0 324000032377 -FT1A 032376 032377 0 0 000000032377 0 000000032377 -FT2 032376 032377 0 0 0 0 000000032377 -FT2RQ 032376 032377 0 0 0 0 000000032377 -FT3 032376 032377 0 0 0 0 000000032377 -FT9 032377 032377 0 0 0 0 000000032377 -ET0 032377 032377 0 0 0 0 000000032377 -ST1A 032377 032377 0 0 0 0 000000032377 -ST9 032377 032377 0 0 0 0 000000032377 - - -*032377 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 032377 032377 0 0 332000000000 0 0 -IT1 032377 0 0 0 332000000000 0 0 -AT3 032377 0 0 0 0 0 332000000000 -AT6 032377 0 0 0 0 0 332000000000 -FT0 032377 0 0 0 0 0 332000000000 -FT1A 032377 0 0 0 0 0 0 -FT9 0 0 0 0 0 0 0 -ET0 032401 0 0 0 0 0 0 -ST1A 032401 0 0 0 0 0 0 -ST9 032401 0 0 0 0 0 0 - - -*032401 JUMPA 0,032402 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032401 032401 0 0 324000032402 0 000000032402 -IT1 032401 0 0 0 324000032402 0 000000032402 -AT3 032401 0 0 0 000000032402 0 324000032402 -AT6 032401 032402 0 0 000000032402 0 324000032402 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 263 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0479 - -FT1A 032401 032402 0 0 000000032402 0 000000032402 -FT2 032401 032402 0 0 0 0 000000032402 -FT2RQ 032401 032402 0 0 0 0 000000032402 -FT3 032401 032402 0 0 0 0 000000032402 -FT9 032402 032402 0 0 0 0 000000032402 -ET0 032402 032402 0 0 0 0 000000032402 -ST1A 032402 032402 0 0 0 0 000000032402 -ST9 032402 032402 0 0 0 0 000000032402 - - -*032402 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 032402 032402 0 0 400000000000 0 0 -IT1 032402 0 0 0 400000000000 0 0 -AT3 032402 0 0 0 0 0 400000000000 -AT6 032402 0 0 0 0 0 400000000000 -FT1A 032402 0 0 0 0 0 0 -FT9 032403 0 0 0 0 0 0 -ET0 032403 0 0 0 0 0 0 -ST1 032403 0 0 0 0 0 0 -ST2 032403 0 0 0 0 0 0 -ST9 032403 0 0 0 0 0 0 - - -*032403 MOVE 1,035122 -INITIAL -C(AC)=000000 000000 -C(E)=000020 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032403 032403 0 0 200040035122 0 000020000000 -IT1 032403 0 0 0 200040035122 0 000020000000 -AT3 032403 0 0 0 000000035122 0 200040035122 -AT6 032403 035122 0 0 000000035122 0 200040035122 -FT0 032403 035122 0 0 000020000000 0 200040035122 -FT1A 032403 035122 0 0 000020000000 0 000020000000 -FT9 032404 035122 0 0 000020000000 0 000020000000 -ET0 032404 035122 0 0 000020000000 0 000020000000 -ST1 032404 035122 0 0 000020000000 0 000020000000 -ST2 032404 035122 0 0 000020000000 0 000020000000 -ST9 032404 035122 0 0 000020000000 0 000020000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 264 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0480 - -*032404 AND 1,000000 -INITIAL -C(AC)=000020 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032404 032404 0 0 404040000000 0 0 -IT1 032404 0 0 0 404040000000 0 0 -AT3 032404 0 0 0 0 0 404040000000 -AT6 032404 0 0 0 0 0 404040000000 -FT0 032404 0 0 0 0 0 404040000000 -FT1A 032404 0 0 0 0 0 0 -FT2 032404 0 0 0 0 0 0 -FT2RQ 032404 0 0 0 000020000000 0 0 -FT3 032404 0 0 0 000020000000 0 0 -FT9 032405 0 0 0 000020000000 0 0 -ET0 032405 0 0 0 0 0 0 -ST1 032405 0 0 0 0 0 0 -ST2 032405 0 0 0 0 0 0 -ST9 032405 0 0 0 0 0 0 - - -*032405 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 032405 032405 0 0 332000000001 0 0 -IT1 032405 0 0 0 332000000001 0 0 -AT3 032405 0 0 0 000000000001 0 332000000001 -AT6 032405 000001 0 0 000000000001 0 332000000001 -FT0 032405 000001 0 0 0 0 332000000001 -FT1A 032405 000001 0 0 0 0 0 -FT9 032406 000001 0 0 0 0 0 -ET0 032407 000001 0 0 0 0 0 -ST1A 032407 000001 0 0 0 0 0 -ST9 032407 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 265 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0481 - -*032407 JUMPA 0,032410 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032407 032407 0 0 324000032410 0 000000032410 -IT1 032407 0 0 0 324000032410 0 000000032410 -AT3 032407 0 0 0 000000032410 0 324000032410 -AT6 032407 032410 0 0 000000032410 0 324000032410 -FT1A 032407 032410 0 0 000000032410 0 000000032410 -FT2 032407 032410 0 0 0 0 000000032410 -FT2RQ 032407 032410 0 0 0 0 000000032410 -FT3 032407 032410 0 0 0 0 000000032410 -FT9 032410 032410 0 0 0 0 000000032410 -ET0 032410 032410 0 0 0 0 000000032410 -ST1A 032410 032410 0 0 0 0 000000032410 -ST9 032410 032410 0 0 0 0 000000032410 - - -*032410 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 032410 032410 0 0 332000000000 0 0 -IT1 032410 0 0 0 332000000000 0 0 -AT3 032410 0 0 0 0 0 332000000000 -AT6 032410 0 0 0 0 0 332000000000 -FT0 032410 0 0 0 0 0 332000000000 -FT1A 032410 0 0 0 0 0 0 -FT9 032411 0 0 0 0 0 0 -ET0 032412 0 0 0 0 0 0 -ST1A 032412 0 0 0 0 0 0 -ST9 032412 0 0 0 0 0 0 - - -*032412 JUMPA 0,032413 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032412 032412 0 0 324000032413 0 000000032413 -IT1 032412 0 0 0 324000032413 0 000000032413 -AT3 032412 0 0 0 000000032413 0 324000032413 -AT6 032412 032413 0 0 000000032413 0 324000032413 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 266 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0482 - -FT1A 032412 032413 0 0 000000032413 0 000000032413 -FT2 032412 032413 0 0 0 0 000000032413 -FT2RQ 032412 032413 0 0 0 0 000000032413 -FT3 032412 032413 0 0 0 0 000000032413 -FT9 032413 032413 0 0 0 0 000000032413 -ET0 032413 032413 0 0 0 0 000000032413 -ST1A 032413 032413 0 0 0 0 000000032413 -ST9 032413 032413 0 0 0 0 000000032413 - - -*032413 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 032413 032413 0 0 400000000000 0 0 -IT1 032413 0 0 0 400000000000 0 0 -AT3 032413 0 0 0 0 0 400000000000 -AT6 032413 0 0 0 0 0 400000000000 -FT1A 032413 0 0 0 0 0 0 -FT9 032414 0 0 0 0 0 0 -ET0 032414 0 0 0 0 0 0 -ST1 032414 0 0 0 0 0 0 -ST2 032414 0 0 0 0 0 0 -ST9 032414 0 0 0 0 0 0 - - -*032414 MOVE 1,035123 -INITIAL -C(AC)=000000 000000 -C(E)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032414 032414 0 0 200040035123 0 000040000000 -IT1 032414 0 0 0 200040035123 0 000040000000 -AT3 032414 0 0 0 000000035123 0 200040035123 -AT6 032414 035123 0 0 000000035123 0 200040035123 -FT0 032414 035123 0 0 000040000000 0 200040035123 -FT1A 032414 035123 0 0 000040000000 0 000040000000 -FT9 032415 035123 0 0 000040000000 0 000040000000 -ET0 032415 035123 0 0 000040000000 0 000040000000 -ST1 032415 035123 0 0 000040000000 0 000040000000 -ST2 032415 035123 0 0 000040000000 0 000040000000 -ST9 032415 035123 0 0 000040000000 0 000040000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 267 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0483 - -*032415 AND 1,000000 -INITIAL -C(AC)=000040 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032415 032415 0 0 404040000000 0 0 -IT1 032415 0 0 0 404040000000 0 0 -AT3 032415 0 0 0 0 0 404040000000 -AT6 032415 0 0 0 0 0 404040000000 -FT0 032415 0 0 0 0 0 404040000000 -FT1A 032415 0 0 0 0 0 0 -FT2 032415 0 0 0 0 0 0 -FT2RQ 032415 0 0 0 000040000000 0 0 -FT3 032415 0 0 0 000040000000 0 0 -FT9 032416 0 0 0 000040000000 0 0 -ET0 032416 0 0 0 0 0 0 -ST1 032416 0 0 0 0 0 0 -ST2 032416 0 0 0 0 0 0 -ST9 032416 0 0 0 0 0 0 - - -*032416 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 032416 032416 0 0 332000000001 0 0 -IT1 032416 0 0 0 332000000001 0 0 -AT3 032416 0 0 0 000000000001 0 332000000001 -AT6 032416 000001 0 0 000000000001 0 332000000001 -FT0 032416 000001 0 0 0 0 332000000001 -FT1A 032416 000001 0 0 0 0 0 -FT9 032417 000001 0 0 0 0 0 -ET0 032420 000001 0 0 0 0 0 -ST1A 032420 000001 0 0 0 0 0 -ST9 032420 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 268 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0484 - -*032420 JUMPA 0,032421 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032420 032420 0 0 324000032421 0 000000032421 -IT1 032420 0 0 0 324000032421 0 000000032421 -AT3 032420 0 0 0 000000032421 0 324000032421 -AT6 032420 032421 0 0 000000032421 0 324000032421 -FT1A 032420 032421 0 0 000000032421 0 000000032421 -FT2 032420 032421 0 0 0 0 000000032421 -FT2RQ 032420 032421 0 0 0 0 000000032421 -FT3 032420 032421 0 0 0 0 000000032421 -FT9 032421 032421 0 0 0 0 000000032421 -ET0 032421 032421 0 0 0 0 000000032421 -ST1A 032421 032421 0 0 0 0 000000032421 -ST9 032421 032421 0 0 0 0 000000032421 - - -*032421 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 032421 032421 0 0 332000000000 0 0 -IT1 032421 0 0 0 332000000000 0 0 -AT3 032421 0 0 0 0 0 332000000000 -AT6 032421 0 0 0 0 0 332000000000 -FT0 032421 0 0 0 0 0 332000000000 -FT1A 032421 0 0 0 0 0 0 -FT9 032422 0 0 0 0 0 0 -ET0 032423 0 0 0 0 0 0 -ST1A 032423 0 0 0 0 0 0 -ST9 032423 0 0 0 0 0 0 - - -*032423 JUMPA 0,032424 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032423 032423 0 0 324000032424 0 000000032424 -IT1 032423 0 0 0 324000032424 0 000000032424 -AT3 032423 0 0 0 000000032424 0 324000032424 -AT6 032423 032424 0 0 000000032424 0 324000032424 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 269 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0485 - -FT1A 032423 032424 0 0 000000032424 0 000000032424 -FT2 032423 032424 0 0 0 0 000000032424 -FT2RQ 032423 032424 0 0 0 0 000000032424 -FT3 032423 032424 0 0 0 0 000000032424 -FT9 032424 032424 0 0 0 0 000000032424 -ET0 032424 032424 0 0 0 0 000000032424 -ST1A 032424 032424 0 0 0 0 000000032424 -ST9 032424 032424 0 0 0 0 000000032424 - - -*032424 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 032424 032424 0 0 400000000000 0 0 -IT1 032424 0 0 0 400000000000 0 0 -AT3 032424 0 0 0 0 0 400000000000 -AT6 032424 0 0 0 0 0 400000000000 -FT1A 032424 0 0 0 0 0 0 -FT9 032425 0 0 0 0 0 0 -ET0 032425 0 0 0 0 0 0 -ST1 032425 0 0 0 0 0 0 -ST2 032425 0 0 0 0 0 0 -ST9 032425 0 0 0 0 0 0 - - -*032425 MOVE 1,035124 -INITIAL -C(AC)=000000 000000 -C(E)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032425 032425 0 0 200040035124 0 000100000000 -IT1 032425 0 0 0 200040035124 0 000100000000 -AT3 032425 0 0 0 000000035124 0 200040035124 -AT6 032425 035124 0 0 000000035124 0 200040035124 -FT0 032425 035124 0 0 000100000000 0 200040035124 -FT1A 032425 035124 0 0 000100000000 0 000100000000 -FT9 032426 035124 0 0 000100000000 0 000100000000 -ET0 032426 035124 0 0 000100000000 0 000100000000 -ST1 032426 035124 0 0 000100000000 0 000100000000 -ST2 032426 035124 0 0 000100000000 0 000100000000 -ST9 032426 035124 0 0 000100000000 0 000100000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 270 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0486 - -*032426 AND 1,000000 -INITIAL -C(AC)=000100 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032426 032426 0 0 404040000000 0 0 -IT1 032426 0 0 0 404040000000 0 0 -AT3 032426 0 0 0 0 0 404040000000 -AT6 032426 0 0 0 0 0 404040000000 -FT0 032426 0 0 0 0 0 404040000000 -FT1A 032426 0 0 0 0 0 0 -FT2 032426 0 0 0 0 0 0 -FT2RQ 032426 0 0 0 000100000000 0 0 -FT3 032426 0 0 0 000100000000 0 0 -FT9 032427 0 0 0 000100000000 0 0 -ET0 032427 0 0 0 0 0 0 -ST1 032427 0 0 0 0 0 0 -ST2 032427 0 0 0 0 0 0 -ST9 032427 0 0 0 0 0 0 - - -*032427 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 032427 032427 0 0 332000000001 0 0 -IT1 032427 0 0 0 332000000001 0 0 -AT3 032427 0 0 0 000000000001 0 332000000001 -AT6 032427 000001 0 0 000000000001 0 332000000001 -FT0 032427 000001 0 0 0 0 332000000001 -FT1A 032427 000001 0 0 0 0 0 -FT9 032430 000001 0 0 0 0 0 -ET0 032431 000001 0 0 0 0 0 -ST1A 032431 000001 0 0 0 0 0 -ST9 032431 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 271 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0487 - -*032431 JUMPA 0,032432 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032431 032431 0 0 324000032432 0 000000032432 -IT1 032431 0 0 0 324000032432 0 000000032432 -AT3 032431 0 0 0 000000032432 0 324000032432 -AT6 032431 032432 0 0 000000032432 0 324000032432 -FT1A 032431 032432 0 0 000000032432 0 000000032432 -FT2 032431 032432 0 0 0 0 000000032432 -FT2RQ 032431 032432 0 0 0 0 000000032432 -FT3 032431 032432 0 0 0 0 000000032432 -FT9 032432 032432 0 0 0 0 000000032432 -ET0 032432 032432 0 0 0 0 000000032432 -ST1A 032432 032432 0 0 0 0 000000032432 -ST9 032432 032432 0 0 0 0 000000032432 - - -*032432 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 032432 032432 0 0 332000000000 0 0 -IT1 032432 0 0 0 332000000000 0 0 -AT3 032432 0 0 0 0 0 332000000000 -AT6 032432 0 0 0 0 0 332000000000 -FT0 032432 0 0 0 0 0 332000000000 -FT1A 032432 0 0 0 0 0 0 -FT9 032433 0 0 0 0 0 0 -ET0 032434 0 0 0 0 0 0 -ST1A 032434 0 0 0 0 0 0 -ST9 032434 0 0 0 0 0 0 - - -*032434 JUMPA 0,032435 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032434 032434 0 0 324000032435 0 000000032435 -IT1 032434 0 0 0 324000032435 0 000000032435 -AT3 032434 0 0 0 000000032435 0 324000032435 -AT6 032434 032435 0 0 000000032435 0 324000032435 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 272 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0488 - -FT1A 032434 032435 0 0 000000032435 0 000000032435 -FT2 032434 032435 0 0 0 0 000000032435 -FT2RQ 032434 032435 0 0 0 0 000000032435 -FT3 032434 032435 0 0 0 0 000000032435 -FT9 032435 032435 0 0 0 0 000000032435 -ET0 032435 032435 0 0 0 0 000000032435 -ST1A 032435 032435 0 0 0 0 000000032435 -ST9 032435 032435 0 0 0 0 000000032435 - - -*032435 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 032435 032435 0 0 400000000000 0 0 -IT1 032435 0 0 0 400000000000 0 0 -AT3 032435 0 0 0 0 0 400000000000 -AT6 032435 0 0 0 0 0 400000000000 -FT1A 032435 0 0 0 0 0 0 -FT9 032436 0 0 0 0 0 0 -ET0 032436 0 0 0 0 0 0 -ST1 032436 0 0 0 0 0 0 -ST2 032436 0 0 0 0 0 0 -ST9 032436 0 0 0 0 0 0 - - -*032436 MOVE 1,035125 -INITIAL -C(AC)=000000 000000 -C(E)=000200 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032436 032436 0 0 200040035125 0 000200000000 -IT1 032436 0 0 0 200040035125 0 000200000000 -AT3 032436 0 0 0 000000035125 0 200040035125 -AT6 032436 035125 0 0 000000035125 0 200040035125 -FT0 032436 035125 0 0 000200000000 0 200040035125 -FT1A 032436 035125 0 0 000200000000 0 000200000000 -FT9 032437 035125 0 0 000200000000 0 000200000000 -ET0 032437 035125 0 0 000200000000 0 000200000000 -ST1 032437 035125 0 0 000200000000 0 000200000000 -ST2 032437 035125 0 0 000200000000 0 000200000000 -ST9 032437 035125 0 0 000200000000 0 000200000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 273 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0489 - -*032437 AND 1,000000 -INITIAL -C(AC)=000200 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032437 032437 0 0 404040000000 0 0 -IT1 032437 0 0 0 404040000000 0 0 -AT3 032437 0 0 0 0 0 404040000000 -AT6 032437 0 0 0 0 0 404040000000 -FT0 032437 0 0 0 0 0 404040000000 -FT1A 032437 0 0 0 0 0 0 -FT2 032437 0 0 0 0 0 0 -FT2RQ 032437 0 0 0 000200000000 0 0 -FT3 032437 0 0 0 000200000000 0 0 -FT9 032440 0 0 0 000200000000 0 0 -ET0 032440 0 0 0 0 0 0 -ST1 032440 0 0 0 0 0 0 -ST2 032440 0 0 0 0 0 0 -ST9 032440 0 0 0 0 0 0 - - -*032440 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 032440 032440 0 0 332000000001 0 0 -IT1 032440 0 0 0 332000000001 0 0 -AT3 032440 0 0 0 000000000001 0 332000000001 -AT6 032440 000001 0 0 000000000001 0 332000000001 -FT0 032440 000001 0 0 0 0 332000000001 -FT1A 032440 000001 0 0 0 0 0 -FT9 032441 000001 0 0 0 0 0 -ET0 032442 000001 0 0 0 0 0 -ST1A 032442 000001 0 0 0 0 0 -ST9 032442 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 274 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0490 - -*032442 JUMPA 0,032443 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032442 032442 0 0 324000032443 0 000000032443 -IT1 032442 0 0 0 324000032443 0 000000032443 -AT3 032442 0 0 0 000000032443 0 324000032443 -AT6 032442 032443 0 0 000000032443 0 324000032443 -FT1A 032442 032443 0 0 000000032443 0 000000032443 -FT2 032442 032443 0 0 0 0 000000032443 -FT2RQ 032442 032443 0 0 0 0 000000032443 -FT3 032442 032443 0 0 0 0 000000032443 -FT9 032443 032443 0 0 0 0 000000032443 -ET0 032443 032443 0 0 0 0 000000032443 -ST1A 032443 032443 0 0 0 0 000000032443 -ST9 032443 032443 0 0 0 0 000000032443 - - -*032443 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 032443 032443 0 0 332000000000 0 0 -IT1 032443 0 0 0 332000000000 0 0 -AT3 032443 0 0 0 0 0 332000000000 -AT6 032443 0 0 0 0 0 332000000000 -FT0 032443 0 0 0 0 0 332000000000 -FT1A 032443 0 0 0 0 0 0 -FT9 032444 0 0 0 0 0 0 -ET0 032445 0 0 0 0 0 0 -ST1A 032445 0 0 0 0 0 0 -ST9 032445 0 0 0 0 0 0 - - -*032445 JUMPA 0,032446 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032445 032445 0 0 324000032446 0 000000032446 -IT1 032445 0 0 0 324000032446 0 000000032446 -AT3 032445 0 0 0 000000032446 0 324000032446 -AT6 032445 032446 0 0 000000032446 0 324000032446 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 275 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0491 - -FT1A 032445 032446 0 0 000000032446 0 000000032446 -FT2 032445 032446 0 0 0 0 000000032446 -FT2RQ 032445 032446 0 0 0 0 000000032446 -FT3 032445 032446 0 0 0 0 000000032446 -FT9 032446 032446 0 0 0 0 000000032446 -ET0 032446 032446 0 0 0 0 000000032446 -ST1A 032446 032446 0 0 0 0 000000032446 -ST9 032446 032446 0 0 0 0 000000032446 - - -*032446 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 032446 032446 0 0 400000000000 0 0 -IT1 032446 0 0 0 400000000000 0 0 -AT3 032446 0 0 0 0 0 400000000000 -AT6 032446 0 0 0 0 0 400000000000 -FT1A 032446 0 0 0 0 0 0 -FT9 032447 0 0 0 0 0 0 -ET0 032447 0 0 0 0 0 0 -ST1 032447 0 0 0 0 0 0 -ST2 032447 0 0 0 0 0 0 -ST9 032447 0 0 0 0 0 0 - - -*032447 MOVE 1,035073 -INITIAL -C(AC)=000000 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032447 032447 0 0 200040035073 0 000400000000 -IT1 032447 0 0 0 200040035073 0 000400000000 -AT3 032447 0 0 0 000000035073 0 200040035073 -AT6 032447 035073 0 0 000000035073 0 200040035073 -FT0 032447 035073 0 0 000400000000 0 200040035073 -FT1A 032447 035073 0 0 000400000000 0 000400000000 -FT9 032450 035073 0 0 000400000000 0 000400000000 -ET0 032450 035073 0 0 000400000000 0 000400000000 -ST1 032450 035073 0 0 000400000000 0 000400000000 -ST2 032450 035073 0 0 000400000000 0 000400000000 -ST9 032450 035073 0 0 000400000000 0 000400000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 276 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0492 - -*032450 AND 1,000000 -INITIAL -C(AC)=000400 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032450 032450 0 0 404040000000 0 0 -IT1 032450 0 0 0 404040000000 0 0 -AT3 032450 0 0 0 0 0 404040000000 -AT6 032450 0 0 0 0 0 404040000000 -FT0 032450 0 0 0 0 0 404040000000 -FT1A 032450 0 0 0 0 0 0 -FT2 032450 0 0 0 0 0 0 -FT2RQ 032450 0 0 0 000400000000 0 0 -FT3 032450 0 0 0 000400000000 0 0 -FT9 032451 0 0 0 000400000000 0 0 -ET0 032451 0 0 0 0 0 0 -ST1 032451 0 0 0 0 0 0 -ST2 032451 0 0 0 0 0 0 -ST9 032451 0 0 0 0 0 0 - - -*032451 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 032451 032451 0 0 332000000001 0 0 -IT1 032451 0 0 0 332000000001 0 0 -AT3 032451 0 0 0 000000000001 0 332000000001 -AT6 032451 000001 0 0 000000000001 0 332000000001 -FT0 032451 000001 0 0 0 0 332000000001 -FT1A 032451 000001 0 0 0 0 0 -FT9 032452 000001 0 0 0 0 0 -ET0 032453 000001 0 0 0 0 0 -ST1A 032453 000001 0 0 0 0 0 -ST9 032453 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 277 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0493 - -*032453 JUMPA 0,032454 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032453 032453 0 0 324000032454 0 000000032454 -IT1 032453 0 0 0 324000032454 0 000000032454 -AT3 032453 0 0 0 000000032454 0 324000032454 -AT6 032453 032454 0 0 000000032454 0 324000032454 -FT1A 032453 032454 0 0 000000032454 0 000000032454 -FT2 032453 032454 0 0 0 0 000000032454 -FT2RQ 032453 032454 0 0 0 0 000000032454 -FT3 032453 032454 0 0 0 0 000000032454 -FT9 032454 032454 0 0 0 0 000000032454 -ET0 032454 032454 0 0 0 0 000000032454 -ST1A 032454 032454 0 0 0 0 000000032454 -ST9 032454 032454 0 0 0 0 000000032454 - - -*032454 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 032454 032454 0 0 332000000000 0 0 -IT1 032454 0 0 0 332000000000 0 0 -AT3 032454 0 0 0 0 0 332000000000 -AT6 032454 0 0 0 0 0 332000000000 -FT0 032454 0 0 0 0 0 332000000000 -FT1A 032454 0 0 0 0 0 0 -FT9 032455 0 0 0 0 0 0 -ET0 032456 0 0 0 0 0 0 -ST1A 032456 0 0 0 0 0 0 -ST9 032456 0 0 0 0 0 0 - - -*032456 JUMPA 0,032457 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032456 032456 0 0 324000032457 0 000000032457 -IT1 032456 0 0 0 324000032457 0 000000032457 -AT3 032456 0 0 0 000000032457 0 324000032457 -AT6 032456 032457 0 0 000000032457 0 324000032457 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 278 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0494 - -FT1A 032456 032457 0 0 000000032457 0 000000032457 -FT2 032456 032457 0 0 0 0 000000032457 -FT2RQ 032456 032457 0 0 0 0 000000032457 -FT3 032456 032457 0 0 0 0 000000032457 -FT9 032457 032457 0 0 0 0 000000032457 -ET0 032457 032457 0 0 0 0 000000032457 -ST1A 032457 032457 0 0 0 0 000000032457 -ST9 032457 032457 0 0 0 0 000000032457 - - -*032457 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 032457 032457 0 0 400000000000 0 0 -IT1 032457 0 0 0 400000000000 0 0 -AT3 032457 0 0 0 0 0 400000000000 -AT6 032457 0 0 0 0 0 400000000000 -FT1A 032457 0 0 0 0 0 0 -FT9 032460 0 0 0 0 0 0 -ET0 032460 0 0 0 0 0 0 -ST1 032460 0 0 0 0 0 0 -ST2 032460 0 0 0 0 0 0 -ST9 032460 0 0 0 0 0 0 - - -*032460 MOVE 1,035126 -INITIAL -C(AC)=000000 000000 -C(E)=001000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032460 032460 0 0 200040035126 0 001000000000 -IT1 032460 0 0 0 200040035126 0 001000000000 -AT3 032460 0 0 0 000000035126 0 200040035126 -AT6 032460 035126 0 0 000000035126 0 200040035126 -FT0 032460 035126 0 0 001000000000 0 200040035126 -FT1A 032460 035126 0 0 001000000000 0 001000000000 -FT9 032461 035126 0 0 001000000000 0 001000000000 -ET0 032461 035126 0 0 001000000000 0 001000000000 -ST1 032461 035126 0 0 001000000000 0 001000000000 -ST2 032461 035126 0 0 001000000000 0 001000000000 -ST9 032461 035126 0 0 001000000000 0 001000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 279 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0495 - -*032461 AND 1,000000 -INITIAL -C(AC)=001000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032461 032461 0 0 404040000000 0 0 -IT1 032461 0 0 0 404040000000 0 0 -AT3 032461 0 0 0 0 0 404040000000 -AT6 032461 0 0 0 0 0 404040000000 -FT0 032461 0 0 0 0 0 404040000000 -FT1A 032461 0 0 0 0 0 0 -FT2 032461 0 0 0 0 0 0 -FT2RQ 032461 0 0 0 001000000000 0 0 -FT3 032461 0 0 0 001000000000 0 0 -FT9 032462 0 0 0 001000000000 0 0 -ET0 032462 0 0 0 0 0 0 -ST1 032462 0 0 0 0 0 0 -ST2 032462 0 0 0 0 0 0 -ST9 032462 0 0 0 0 0 0 - - -*032462 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 032462 032462 0 0 332000000001 0 0 -IT1 032462 0 0 0 332000000001 0 0 -AT3 032462 0 0 0 000000000001 0 332000000001 -AT6 032462 000001 0 0 000000000001 0 332000000001 -FT0 032462 000001 0 0 0 0 332000000001 -FT1A 032462 000001 0 0 0 0 0 -FT9 032463 000001 0 0 0 0 0 -ET0 032464 000001 0 0 0 0 0 -ST1A 032464 000001 0 0 0 0 0 -ST9 032464 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 280 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0496 - -*032464 JUMPA 0,032465 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032464 032464 0 0 324000032465 0 000000032465 -IT1 032464 0 0 0 324000032465 0 000000032465 -AT3 032464 0 0 0 000000032465 0 324000032465 -AT6 032464 032465 0 0 000000032465 0 324000032465 -FT1A 032464 032465 0 0 000000032465 0 000000032465 -FT2 032464 032465 0 0 0 0 000000032465 -FT2RQ 032464 032465 0 0 0 0 000000032465 -FT3 032464 032465 0 0 0 0 000000032465 -FT9 032465 032465 0 0 0 0 000000032465 -ET0 032465 032465 0 0 0 0 000000032465 -ST1A 032465 032465 0 0 0 0 000000032465 -ST9 032465 032465 0 0 0 0 000000032465 - - -*032465 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 032465 032465 0 0 332000000000 0 0 -IT1 032465 0 0 0 332000000000 0 0 -AT3 032465 0 0 0 0 0 332000000000 -AT6 032465 0 0 0 0 0 332000000000 -FT0 032465 0 0 0 0 0 332000000000 -FT1A 032465 0 0 0 0 0 0 -FT9 032466 0 0 0 0 0 0 -ET0 032467 0 0 0 0 0 0 -ST1A 032467 0 0 0 0 0 0 -ST9 032467 0 0 0 0 0 0 - - -*032467 JUMPA 0,032470 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032467 032467 0 0 324000032470 0 000000032470 -IT1 032467 0 0 0 324000032470 0 000000032470 -AT3 032467 0 0 0 000000032470 0 324000032470 -AT6 032467 032470 0 0 000000032470 0 324000032470 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 281 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0497 - -FT1A 032467 032470 0 0 000000032470 0 000000032470 -FT2 032467 032470 0 0 0 0 000000032470 -FT2RQ 032467 032470 0 0 0 0 000000032470 -FT3 032467 032470 0 0 0 0 000000032470 -FT9 032470 032470 0 0 0 0 000000032470 -ET0 032470 032470 0 0 0 0 000000032470 -ST1A 032470 032470 0 0 0 0 000000032470 -ST9 032470 032470 0 0 0 0 000000032470 - - -*032470 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 032470 032470 0 0 400000000000 0 0 -IT1 032470 0 0 0 400000000000 0 0 -AT3 032470 0 0 0 0 0 400000000000 -AT6 032470 0 0 0 0 0 400000000000 -FT1A 032470 0 0 0 0 0 0 -FT9 032471 0 0 0 0 0 0 -ET0 032471 0 0 0 0 0 0 -ST1 032471 0 0 0 0 0 0 -ST2 032471 0 0 0 0 0 0 -ST9 032471 0 0 0 0 0 0 - - -*032471 MOVE 1,035127 -INITIAL -C(AC)=000000 000000 -C(E)=002000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032471 032471 0 0 200040035127 0 002000000000 -IT1 032471 0 0 0 200040035127 0 002000000000 -AT3 032471 0 0 0 000000035127 0 200040035127 -AT6 032471 035127 0 0 000000035127 0 200040035127 -FT0 032471 035127 0 0 002000000000 0 200040035127 -FT1A 032471 035127 0 0 002000000000 0 002000000000 -FT9 032472 035127 0 0 002000000000 0 002000000000 -ET0 032472 035127 0 0 002000000000 0 002000000000 -ST1 032472 035127 0 0 002000000000 0 002000000000 -ST2 032472 035127 0 0 002000000000 0 002000000000 -ST9 032472 035127 0 0 002000000000 0 002000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 282 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0498 - -*032472 AND 1,000000 -INITIAL -C(AC)=002000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032472 032472 0 0 404040000000 0 0 -IT1 032472 0 0 0 404040000000 0 0 -AT3 032472 0 0 0 0 0 404040000000 -AT6 032472 0 0 0 0 0 404040000000 -FT0 032472 0 0 0 0 0 404040000000 -FT1A 032472 0 0 0 0 0 0 -FT2 032472 0 0 0 0 0 0 -FT2RQ 032472 0 0 0 002000000000 0 0 -FT3 032472 0 0 0 002000000000 0 0 -FT9 032473 0 0 0 002000000000 0 0 -ET0 032473 0 0 0 0 0 0 -ST1 032473 0 0 0 0 0 0 -ST2 032473 0 0 0 0 0 0 -ST9 032473 0 0 0 0 0 0 - - -*032473 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 032473 032473 0 0 332000000001 0 0 -IT1 032473 0 0 0 332000000001 0 0 -AT3 032473 0 0 0 000000000001 0 332000000001 -AT6 032473 000001 0 0 000000000001 0 332000000001 -FT0 032473 000001 0 0 0 0 332000000001 -FT1A 032473 000001 0 0 0 0 0 -FT9 032474 000001 0 0 0 0 0 -ET0 032475 000001 0 0 0 0 0 -ST1A 032475 000001 0 0 0 0 0 -ST9 032475 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 283 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0499 - -*032475 JUMPA 0,032476 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032475 032475 0 0 324000032476 0 000000032476 -IT1 032475 0 0 0 324000032476 0 000000032476 -AT3 032475 0 0 0 000000032476 0 324000032476 -AT6 032475 032476 0 0 000000032476 0 324000032476 -FT1A 032475 032476 0 0 000000032476 0 000000032476 -FT2 032475 032476 0 0 0 0 000000032476 -FT2RQ 032475 032476 0 0 0 0 000000032476 -FT3 032475 032476 0 0 0 0 000000032476 -FT9 032476 032476 0 0 0 0 000000032476 -ET0 032476 032476 0 0 0 0 000000032476 -ST1A 032476 032476 0 0 0 0 000000032476 -ST9 032476 032476 0 0 0 0 000000032476 - - -*032476 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 032476 032476 0 0 332000000000 0 0 -IT1 032476 0 0 0 332000000000 0 0 -AT3 032476 0 0 0 0 0 332000000000 -AT6 032476 0 0 0 0 0 332000000000 -FT0 032476 0 0 0 0 0 332000000000 -FT1A 032476 0 0 0 0 0 0 -FT9 032477 0 0 0 0 0 0 -ET0 0 0 0 0 0 0 0 -ST1A 0 0 0 0 0 0 0 -ST9 0 0 0 0 0 0 0 - - -*032500 JUMPA 0,032501 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 324000032501 0 000000032501 -IT1 0 0 0 0 324000032501 0 000000032501 -AT3 0 0 0 0 000000032501 0 324000032501 -AT6 0 032501 0 0 000000032501 0 324000032501 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 284 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0500 - -FT1A 0 032501 0 0 000000032501 0 000000032501 -FT2 0 032501 0 0 0 0 000000032501 -FT2RQ 0 032501 0 0 0 0 000000032501 -FT3 0 032501 0 0 0 0 000000032501 -FT9 032501 032501 0 0 0 0 000000032501 -ET0 032501 032501 0 0 0 0 000000032501 -ST1A 032501 032501 0 0 0 0 000000032501 -ST9 032501 032501 0 0 0 0 000000032501 - - -*032501 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 032501 032501 0 0 400000000000 0 0 -IT1 032501 0 0 0 400000000000 0 0 -AT3 032501 0 0 0 0 0 400000000000 -AT6 032501 0 0 0 0 0 400000000000 -FT1A 032501 0 0 0 0 0 0 -FT9 032502 0 0 0 0 0 0 -ET0 032502 0 0 0 0 0 0 -ST1 032502 0 0 0 0 0 0 -ST2 032502 0 0 0 0 0 0 -ST9 032502 0 0 0 0 0 0 - - -*032502 MOVE 1,035130 -INITIAL -C(AC)=000000 000000 -C(E)=004000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032502 032502 0 0 200040035130 0 004000000000 -IT1 032502 0 0 0 200040035130 0 004000000000 -AT3 032502 0 0 0 000000035130 0 200040035130 -AT6 032502 035130 0 0 000000035130 0 200040035130 -FT0 032502 035130 0 0 004000000000 0 200040035130 -FT1A 032502 035130 0 0 004000000000 0 004000000000 -FT9 032503 035130 0 0 004000000000 0 004000000000 -ET0 032503 035130 0 0 004000000000 0 004000000000 -ST1 032503 035130 0 0 004000000000 0 004000000000 -ST2 032503 035130 0 0 004000000000 0 004000000000 -ST9 032503 035130 0 0 004000000000 0 004000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 285 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0501 - -*032503 AND 1,000000 -INITIAL -C(AC)=004000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032503 032503 0 0 404040000000 0 0 -IT1 032503 0 0 0 404040000000 0 0 -AT3 032503 0 0 0 0 0 404040000000 -AT6 032503 0 0 0 0 0 404040000000 -FT0 032503 0 0 0 0 0 404040000000 -FT1A 032503 0 0 0 0 0 0 -FT2 032503 0 0 0 0 0 0 -FT2RQ 032503 0 0 0 004000000000 0 0 -FT3 032503 0 0 0 004000000000 0 0 -FT9 032504 0 0 0 004000000000 0 0 -ET0 032504 0 0 0 0 0 0 -ST1 032504 0 0 0 0 0 0 -ST2 032504 0 0 0 0 0 0 -ST9 032504 0 0 0 0 0 0 - - -*032504 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 032504 032504 0 0 332000000001 0 0 -IT1 032504 0 0 0 332000000001 0 0 -AT3 032504 0 0 0 000000000001 0 332000000001 -AT6 032504 000001 0 0 000000000001 0 332000000001 -FT0 032504 000001 0 0 0 0 332000000001 -FT1A 032504 000001 0 0 0 0 0 -FT9 032505 000001 0 0 0 0 0 -ET0 032506 000001 0 0 0 0 0 -ST1A 032506 000001 0 0 0 0 0 -ST9 032506 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 286 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0502 - -*032506 JUMPA 0,032507 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032506 032506 0 0 324000032507 0 000000032507 -IT1 032506 0 0 0 324000032507 0 000000032507 -AT3 032506 0 0 0 000000032507 0 324000032507 -AT6 032506 032507 0 0 000000032507 0 324000032507 -FT1A 032506 032507 0 0 000000032507 0 000000032507 -FT2 032506 032507 0 0 0 0 000000032507 -FT2RQ 032506 032507 0 0 0 0 000000032507 -FT3 032506 032507 0 0 0 0 000000032507 -FT9 032507 032507 0 0 0 0 000000032507 -ET0 032507 032507 0 0 0 0 000000032507 -ST1A 032507 032507 0 0 0 0 000000032507 -ST9 032507 032507 0 0 0 0 000000032507 - - -*032507 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 032507 032507 0 0 332000000000 0 0 -IT1 032507 0 0 0 332000000000 0 0 -AT3 032507 0 0 0 0 0 332000000000 -AT6 032507 0 0 0 0 0 332000000000 -FT0 032507 0 0 0 0 0 332000000000 -FT1A 032507 0 0 0 0 0 0 -FT9 032510 0 0 0 0 0 0 -ET0 032511 0 0 0 0 0 0 -ST1A 032511 0 0 0 0 0 0 -ST9 032511 0 0 0 0 0 0 - - -*032511 JUMPA 0,032512 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032511 032511 0 0 324000032512 0 000000032512 -IT1 032511 0 0 0 324000032512 0 000000032512 -AT3 032511 0 0 0 000000032512 0 324000032512 -AT6 032511 032512 0 0 000000032512 0 324000032512 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 287 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0503 - -FT1A 032511 032512 0 0 000000032512 0 000000032512 -FT2 032511 032512 0 0 0 0 000000032512 -FT2RQ 032511 032512 0 0 0 0 000000032512 -FT3 032511 032512 0 0 0 0 000000032512 -FT9 032512 032512 0 0 0 0 000000032512 -ET0 032512 032512 0 0 0 0 000000032512 -ST1A 032512 032512 0 0 0 0 000000032512 -ST9 032512 032512 0 0 0 0 000000032512 - - -*032512 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 032512 032512 0 0 400000000000 0 0 -IT1 032512 0 0 0 400000000000 0 0 -AT3 032512 0 0 0 0 0 400000000000 -AT6 032512 0 0 0 0 0 400000000000 -FT1A 032512 0 0 0 0 0 0 -FT9 032513 0 0 0 0 0 0 -ET0 032513 0 0 0 0 0 0 -ST1 032513 0 0 0 0 0 0 -ST2 032513 0 0 0 0 0 0 -ST9 032513 0 0 0 0 0 0 - - -*032513 MOVE 1,035131 -INITIAL -C(AC)=000000 000000 -C(E)=010000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032513 032513 0 0 200040035131 0 010000000000 -IT1 032513 0 0 0 200040035131 0 010000000000 -AT3 032513 0 0 0 000000035131 0 200040035131 -AT6 032513 035131 0 0 000000035131 0 200040035131 -FT0 032513 035131 0 0 010000000000 0 200040035131 -FT1A 032513 035131 0 0 010000000000 0 010000000000 -FT9 032514 035131 0 0 010000000000 0 010000000000 -ET0 032514 035131 0 0 010000000000 0 010000000000 -ST1 032514 035131 0 0 010000000000 0 010000000000 -ST2 032514 035131 0 0 010000000000 0 010000000000 -ST9 032514 035131 0 0 010000000000 0 010000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 288 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0504 - -*032514 AND 1,000000 -INITIAL -C(AC)=010000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032514 032514 0 0 404040000000 0 0 -IT1 032514 0 0 0 404040000000 0 0 -AT3 032514 0 0 0 0 0 404040000000 -AT6 032514 0 0 0 0 0 404040000000 -FT0 032514 0 0 0 0 0 404040000000 -FT1A 032514 0 0 0 0 0 0 -FT2 032514 0 0 0 0 0 0 -FT2RQ 032514 0 0 0 010000000000 0 0 -FT3 032514 0 0 0 010000000000 0 0 -FT9 032515 0 0 0 010000000000 0 0 -ET0 032515 0 0 0 0 0 0 -ST1 032515 0 0 0 0 0 0 -ST2 032515 0 0 0 0 0 0 -ST9 032515 0 0 0 0 0 0 - - -*032515 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 032515 032515 0 0 332000000001 0 0 -IT1 032515 0 0 0 332000000001 0 0 -AT3 032515 0 0 0 000000000001 0 332000000001 -AT6 032515 000001 0 0 000000000001 0 332000000001 -FT0 032515 000001 0 0 0 0 332000000001 -FT1A 032515 000001 0 0 0 0 0 -FT9 032516 000001 0 0 0 0 0 -ET0 032517 000001 0 0 0 0 0 -ST1A 032517 000001 0 0 0 0 0 -ST9 032517 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 289 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0505 - -*032517 JUMPA 0,032520 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032517 032517 0 0 324000032520 0 000000032520 -IT1 032517 0 0 0 324000032520 0 000000032520 -AT3 032517 0 0 0 000000032520 0 324000032520 -AT6 032517 032520 0 0 000000032520 0 324000032520 -FT1A 032517 032520 0 0 000000032520 0 000000032520 -FT2 032517 032520 0 0 0 0 000000032520 -FT2RQ 032517 032520 0 0 0 0 000000032520 -FT3 032517 032520 0 0 0 0 000000032520 -FT9 032520 032520 0 0 0 0 000000032520 -ET0 032520 032520 0 0 0 0 000000032520 -ST1A 032520 032520 0 0 0 0 000000032520 -ST9 032520 032520 0 0 0 0 000000032520 - - -*032520 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 032520 032520 0 0 332000000000 0 0 -IT1 032520 0 0 0 332000000000 0 0 -AT3 032520 0 0 0 0 0 332000000000 -AT6 032520 0 0 0 0 0 332000000000 -FT0 032520 0 0 0 0 0 332000000000 -FT1A 032520 0 0 0 0 0 0 -FT9 032521 0 0 0 0 0 0 -ET0 032522 0 0 0 0 0 0 -ST1A 032522 0 0 0 0 0 0 -ST9 032522 0 0 0 0 0 0 - - -*032522 JUMPA 0,032523 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032522 032522 0 0 324000032523 0 000000032523 -IT1 032522 0 0 0 324000032523 0 000000032523 -AT3 032522 0 0 0 000000032523 0 324000032523 -AT6 032522 032523 0 0 000000032523 0 324000032523 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 290 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0506 - -FT1A 032522 032523 0 0 000000032523 0 000000032523 -FT2 032522 032523 0 0 0 0 000000032523 -FT2RQ 032522 032523 0 0 0 0 000000032523 -FT3 032522 032523 0 0 0 0 000000032523 -FT9 032523 032523 0 0 0 0 000000032523 -ET0 032523 032523 0 0 0 0 000000032523 -ST1A 032523 032523 0 0 0 0 000000032523 -ST9 032523 032523 0 0 0 0 000000032523 - - -*032523 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 032523 032523 0 0 400000000000 0 0 -IT1 032523 0 0 0 400000000000 0 0 -AT3 032523 0 0 0 0 0 400000000000 -AT6 032523 0 0 0 0 0 400000000000 -FT1A 032523 0 0 0 0 0 0 -FT9 032524 0 0 0 0 0 0 -ET0 032524 0 0 0 0 0 0 -ST1 032524 0 0 0 0 0 0 -ST2 032524 0 0 0 0 0 0 -ST9 032524 0 0 0 0 0 0 - - -*032524 MOVE 1,035132 -INITIAL -C(AC)=000000 000000 -C(E)=020000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032524 032524 0 0 200040035132 0 020000000000 -IT1 032524 0 0 0 200040035132 0 020000000000 -AT3 032524 0 0 0 000000035132 0 200040035132 -AT6 032524 035132 0 0 000000035132 0 200040035132 -FT0 032524 035132 0 0 020000000000 0 200040035132 -FT1A 032524 035132 0 0 020000000000 0 020000000000 -FT9 032525 035132 0 0 020000000000 0 020000000000 -ET0 032525 035132 0 0 020000000000 0 020000000000 -ST1 032525 035132 0 0 020000000000 0 020000000000 -ST2 032525 035132 0 0 020000000000 0 020000000000 -ST9 032525 035132 0 0 020000000000 0 020000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 291 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0507 - -*032525 AND 1,000000 -INITIAL -C(AC)=020000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032525 032525 0 0 404040000000 0 0 -IT1 032525 0 0 0 404040000000 0 0 -AT3 032525 0 0 0 0 0 404040000000 -AT6 032525 0 0 0 0 0 404040000000 -FT0 032525 0 0 0 0 0 404040000000 -FT1A 032525 0 0 0 0 0 0 -FT2 032525 0 0 0 0 0 0 -FT2RQ 032525 0 0 0 020000000000 0 0 -FT3 032525 0 0 0 020000000000 0 0 -FT9 032526 0 0 0 020000000000 0 0 -ET0 032526 0 0 0 0 0 0 -ST1 032526 0 0 0 0 0 0 -ST2 032526 0 0 0 0 0 0 -ST9 032526 0 0 0 0 0 0 - - -*032526 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 032526 032526 0 0 332000000001 0 0 -IT1 032526 0 0 0 332000000001 0 0 -AT3 032526 0 0 0 000000000001 0 332000000001 -AT6 032526 000001 0 0 000000000001 0 332000000001 -FT0 032526 000001 0 0 0 0 332000000001 -FT1A 032526 000001 0 0 0 0 0 -FT9 032527 000001 0 0 0 0 0 -ET0 032530 000001 0 0 0 0 0 -ST1A 032530 000001 0 0 0 0 0 -ST9 032530 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 292 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0508 - -*032530 JUMPA 0,032531 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032530 032530 0 0 324000032531 0 000000032531 -IT1 032530 0 0 0 324000032531 0 000000032531 -AT3 032530 0 0 0 000000032531 0 324000032531 -AT6 032530 032531 0 0 000000032531 0 324000032531 -FT1A 032530 032531 0 0 000000032531 0 000000032531 -FT2 032530 032531 0 0 0 0 000000032531 -FT2RQ 032530 032531 0 0 0 0 000000032531 -FT3 032530 032531 0 0 0 0 000000032531 -FT9 032531 032531 0 0 0 0 000000032531 -ET0 032531 032531 0 0 0 0 000000032531 -ST1A 032531 032531 0 0 0 0 000000032531 -ST9 032531 032531 0 0 0 0 000000032531 - - -*032531 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 032531 032531 0 0 332000000000 0 0 -IT1 032531 0 0 0 332000000000 0 0 -AT3 032531 0 0 0 0 0 332000000000 -AT6 032531 0 0 0 0 0 332000000000 -FT0 032531 0 0 0 0 0 332000000000 -FT1A 032531 0 0 0 0 0 0 -FT9 032532 0 0 0 0 0 0 -ET0 032533 0 0 0 0 0 0 -ST1A 032533 0 0 0 0 0 0 -ST9 032533 0 0 0 0 0 0 - - -*032533 JUMPA 0,032534 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032533 032533 0 0 324000032534 0 000000032534 -IT1 032533 0 0 0 324000032534 0 000000032534 -AT3 032533 0 0 0 000000032534 0 324000032534 -AT6 032533 032534 0 0 000000032534 0 324000032534 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 293 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0509 - -FT1A 032533 032534 0 0 000000032534 0 000000032534 -FT2 032533 032534 0 0 0 0 000000032534 -FT2RQ 032533 032534 0 0 0 0 000000032534 -FT3 032533 032534 0 0 0 0 000000032534 -FT9 032534 032534 0 0 0 0 000000032534 -ET0 032534 032534 0 0 0 0 000000032534 -ST1A 032534 032534 0 0 0 0 000000032534 -ST9 032534 032534 0 0 0 0 000000032534 - - -*032534 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 032534 032534 0 0 400000000000 0 0 -IT1 032534 0 0 0 400000000000 0 0 -AT3 032534 0 0 0 0 0 400000000000 -AT6 032534 0 0 0 0 0 400000000000 -FT1A 032534 0 0 0 0 0 0 -FT9 032535 0 0 0 0 0 0 -ET0 032535 0 0 0 0 0 0 -ST1 032535 0 0 0 0 0 0 -ST2 032535 0 0 0 0 0 0 -ST9 032535 0 0 0 0 0 0 - - -*032535 MOVE 1,035133 -INITIAL -C(AC)=000000 000000 -C(E)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032535 032535 0 0 200040035133 0 040000000000 -IT1 032535 0 0 0 200040035133 0 040000000000 -AT3 032535 0 0 0 000000035133 0 200040035133 -AT6 032535 035133 0 0 000000035133 0 200040035133 -FT0 032535 035133 0 0 040000000000 0 200040035133 -FT1A 032535 035133 0 0 040000000000 0 040000000000 -FT9 032536 035133 0 0 040000000000 0 040000000000 -ET0 032536 035133 0 0 040000000000 0 040000000000 -ST1 032536 035133 0 0 040000000000 0 040000000000 -ST2 032536 035133 0 0 040000000000 0 040000000000 -ST9 032536 035133 0 0 040000000000 0 040000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 294 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0510 - -*032536 AND 1,000000 -INITIAL -C(AC)=040000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032536 032536 0 0 404040000000 0 0 -IT1 032536 0 0 0 404040000000 0 0 -AT3 032536 0 0 0 0 0 404040000000 -AT6 032536 0 0 0 0 0 404040000000 -FT0 032536 0 0 0 0 0 404040000000 -FT1A 032536 0 0 0 0 0 0 -FT2 032536 0 0 0 0 0 0 -FT2RQ 032536 0 0 0 040000000000 0 0 -FT3 032536 0 0 0 040000000000 0 0 -FT9 032537 0 0 0 040000000000 0 0 -ET0 032537 0 0 0 0 0 0 -ST1 032537 0 0 0 0 0 0 -ST2 032537 0 0 0 0 0 0 -ST9 032537 0 0 0 0 0 0 - - -*032537 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 032537 032537 0 0 332000000001 0 0 -IT1 032537 0 0 0 332000000001 0 0 -AT3 032537 0 0 0 000000000001 0 332000000001 -AT6 032537 000001 0 0 000000000001 0 332000000001 -FT0 032537 000001 0 0 0 0 332000000001 -FT1A 032537 000001 0 0 0 0 0 -FT9 032540 000001 0 0 0 0 0 -ET0 032541 000001 0 0 0 0 0 -ST1A 032541 000001 0 0 0 0 0 -ST9 032541 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 295 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0511 - -*032541 JUMPA 0,032542 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032541 032541 0 0 324000032542 0 000000032542 -IT1 032541 0 0 0 324000032542 0 000000032542 -AT3 032541 0 0 0 000000032542 0 324000032542 -AT6 032541 032542 0 0 000000032542 0 324000032542 -FT1A 032541 032542 0 0 000000032542 0 000000032542 -FT2 032541 032542 0 0 0 0 000000032542 -FT2RQ 032541 032542 0 0 0 0 000000032542 -FT3 032541 032542 0 0 0 0 000000032542 -FT9 032542 032542 0 0 0 0 000000032542 -ET0 032542 032542 0 0 0 0 000000032542 -ST1A 032542 032542 0 0 0 0 000000032542 -ST9 032542 032542 0 0 0 0 000000032542 - - -*032542 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 032542 032542 0 0 332000000000 0 0 -IT1 032542 0 0 0 332000000000 0 0 -AT3 032542 0 0 0 0 0 332000000000 -AT6 032542 0 0 0 0 0 332000000000 -FT0 032542 0 0 0 0 0 332000000000 -FT1A 032542 0 0 0 0 0 0 -FT9 032543 0 0 0 0 0 0 -ET0 032544 0 0 0 0 0 0 -ST1A 032544 0 0 0 0 0 0 -ST9 032544 0 0 0 0 0 0 - - -*032544 JUMPA 0,032545 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032544 032544 0 0 324000032545 0 000000032545 -IT1 032544 0 0 0 324000032545 0 000000032545 -AT3 032544 0 0 0 000000032545 0 324000032545 -AT6 032544 032545 0 0 000000032545 0 324000032545 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 296 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0512 - -FT1A 032544 032545 0 0 000000032545 0 000000032545 -FT2 032544 032545 0 0 0 0 000000032545 -FT2RQ 032544 032545 0 0 0 0 000000032545 -FT3 032544 032545 0 0 0 0 000000032545 -FT9 032545 032545 0 0 0 0 000000032545 -ET0 032545 032545 0 0 0 0 000000032545 -ST1A 032545 032545 0 0 0 0 000000032545 -ST9 032545 032545 0 0 0 0 000000032545 - - -*032545 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 032545 032545 0 0 400000000000 0 0 -IT1 032545 0 0 0 400000000000 0 0 -AT3 032545 0 0 0 0 0 400000000000 -AT6 032545 0 0 0 0 0 400000000000 -FT1A 032545 0 0 0 0 0 0 -FT9 032546 0 0 0 0 0 0 -ET0 032546 0 0 0 0 0 0 -ST1 032546 0 0 0 0 0 0 -ST2 032546 0 0 0 0 0 0 -ST9 032546 0 0 0 0 0 0 - - -*032546 MOVE 1,035134 -INITIAL -C(AC)=000000 000000 -C(E)=100000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032546 032546 0 0 200040035134 0 100000000000 -IT1 032546 0 0 0 200040035134 0 100000000000 -AT3 032546 0 0 0 000000035134 0 200040035134 -AT6 032546 035134 0 0 000000035134 0 200040035134 -FT0 032546 035134 0 0 100000000000 0 200040035134 -FT1A 032546 035134 0 0 100000000000 0 100000000000 -FT9 032547 035134 0 0 100000000000 0 100000000000 -ET0 032547 035134 0 0 100000000000 0 100000000000 -ST1 032547 035134 0 0 100000000000 0 100000000000 -ST2 032547 035134 0 0 100000000000 0 100000000000 -ST9 032547 035134 0 0 100000000000 0 100000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 297 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0513 - -*032547 AND 1,000000 -INITIAL -C(AC)=100000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032547 032547 0 0 404040000000 0 0 -IT1 032547 0 0 0 404040000000 0 0 -AT3 032547 0 0 0 0 0 404040000000 -AT6 032547 0 0 0 0 0 404040000000 -FT0 032547 0 0 0 0 0 404040000000 -FT1A 032547 0 0 0 0 0 0 -FT2 032547 0 0 0 0 0 0 -FT2RQ 032547 0 0 0 100000000000 0 0 -FT3 032547 0 0 0 100000000000 0 0 -FT9 032550 0 0 0 100000000000 0 0 -ET0 032550 0 0 0 0 0 0 -ST1 032550 0 0 0 0 0 0 -ST2 032550 0 0 0 0 0 0 -ST9 032550 0 0 0 0 0 0 - - -*032550 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 032550 032550 0 0 332000000001 0 0 -IT1 032550 0 0 0 332000000001 0 0 -AT3 032550 0 0 0 000000000001 0 332000000001 -AT6 032550 000001 0 0 000000000001 0 332000000001 -FT0 032550 000001 0 0 0 0 332000000001 -FT1A 032550 000001 0 0 0 0 0 -FT9 032551 000001 0 0 0 0 0 -ET0 032552 000001 0 0 0 0 0 -ST1A 032552 000001 0 0 0 0 0 -ST9 032552 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 298 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0514 - -*032552 JUMPA 0,032553 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032552 032552 0 0 324000032553 0 000000032553 -IT1 032552 0 0 0 324000032553 0 000000032553 -AT3 032552 0 0 0 000000032553 0 324000032553 -AT6 032552 032553 0 0 000000032553 0 324000032553 -FT1A 032552 032553 0 0 000000032553 0 000000032553 -FT2 032552 032553 0 0 0 0 000000032553 -FT2RQ 032552 032553 0 0 0 0 000000032553 -FT3 032552 032553 0 0 0 0 000000032553 -FT9 032553 032553 0 0 0 0 000000032553 -ET0 032553 032553 0 0 0 0 000000032553 -ST1A 032553 032553 0 0 0 0 000000032553 -ST9 032553 032553 0 0 0 0 000000032553 - - -*032553 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 032553 032553 0 0 332000000000 0 0 -IT1 032553 0 0 0 332000000000 0 0 -AT3 032553 0 0 0 0 0 332000000000 -AT6 032553 0 0 0 0 0 332000000000 -FT0 032553 0 0 0 0 0 332000000000 -FT1A 032553 0 0 0 0 0 0 -FT9 032554 0 0 0 0 0 0 -ET0 032555 0 0 0 0 0 0 -ST1A 032555 0 0 0 0 0 0 -ST9 032555 0 0 0 0 0 0 - - -*032555 JUMPA 0,032556 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032555 032555 0 0 324000032556 0 000000032556 -IT1 032555 0 0 0 324000032556 0 000000032556 -AT3 032555 0 0 0 000000032556 0 324000032556 -AT6 032555 032556 0 0 000000032556 0 324000032556 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 299 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0515 - -FT1A 032555 032556 0 0 000000032556 0 000000032556 -FT2 032555 032556 0 0 0 0 000000032556 -FT2RQ 032555 032556 0 0 0 0 000000032556 -FT3 032555 032556 0 0 0 0 000000032556 -FT9 032556 032556 0 0 0 0 000000032556 -ET0 032556 032556 0 0 0 0 000000032556 -ST1A 032556 032556 0 0 0 0 000000032556 -ST9 032556 032556 0 0 0 0 000000032556 - - -*032556 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 032556 032556 0 0 400000000000 0 0 -IT1 032556 0 0 0 400000000000 0 0 -AT3 032556 0 0 0 0 0 400000000000 -AT6 032556 0 0 0 0 0 400000000000 -FT1A 032556 0 0 0 0 0 0 -FT9 032557 0 0 0 0 0 0 -ET0 032557 0 0 0 0 0 0 -ST1 032557 0 0 0 0 0 0 -ST2 032557 0 0 0 0 0 0 -ST9 032557 0 0 0 0 0 0 - - -*032557 MOVE 1,035135 -INITIAL -C(AC)=000000 000000 -C(E)=200000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032557 032557 0 0 200040035135 0 200000000000 -IT1 032557 0 0 0 200040035135 0 200000000000 -AT3 032557 0 0 0 000000035135 0 200040035135 -AT6 032557 035135 0 0 000000035135 0 200040035135 -FT0 032557 035135 0 0 200000000000 0 200040035135 -FT1A 032557 035135 0 0 200000000000 0 200000000000 -FT9 032560 035135 0 0 200000000000 0 200000000000 -ET0 032560 035135 0 0 200000000000 0 200000000000 -ST1 032560 035135 0 0 200000000000 0 200000000000 -ST2 032560 035135 0 0 200000000000 0 200000000000 -ST9 032560 035135 0 0 200000000000 0 200000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 300 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0516 - -*032560 AND 1,000000 -INITIAL -C(AC)=200000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032560 032560 0 0 404040000000 0 0 -IT1 032560 0 0 0 404040000000 0 0 -AT3 032560 0 0 0 0 0 404040000000 -AT6 032560 0 0 0 0 0 404040000000 -FT0 032560 0 0 0 0 0 404040000000 -FT1A 032560 0 0 0 0 0 0 -FT2 032560 0 0 0 0 0 0 -FT2RQ 032560 0 0 0 200000000000 0 0 -FT3 032560 0 0 0 200000000000 0 0 -FT9 032561 0 0 0 200000000000 0 0 -ET0 032561 0 0 0 0 0 0 -ST1 032561 0 0 0 0 0 0 -ST2 032561 0 0 0 0 0 0 -ST9 032561 0 0 0 0 0 0 - - -*032561 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 032561 032561 0 0 332000000001 0 0 -IT1 032561 0 0 0 332000000001 0 0 -AT3 032561 0 0 0 000000000001 0 332000000001 -AT6 032561 000001 0 0 000000000001 0 332000000001 -FT0 032561 000001 0 0 0 0 332000000001 -FT1A 032561 000001 0 0 0 0 0 -FT9 032562 000001 0 0 0 0 0 -ET0 032563 000001 0 0 0 0 0 -ST1A 032563 000001 0 0 0 0 0 -ST9 032563 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 301 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0517 - -*032563 JUMPA 0,032564 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032563 032563 0 0 324000032564 0 000000032564 -IT1 032563 0 0 0 324000032564 0 000000032564 -AT3 032563 0 0 0 000000032564 0 324000032564 -AT6 032563 032564 0 0 000000032564 0 324000032564 -FT1A 032563 032564 0 0 000000032564 0 000000032564 -FT2 032563 032564 0 0 0 0 000000032564 -FT2RQ 032563 032564 0 0 0 0 000000032564 -FT3 032563 032564 0 0 0 0 000000032564 -FT9 032564 032564 0 0 0 0 000000032564 -ET0 032564 032564 0 0 0 0 000000032564 -ST1A 032564 032564 0 0 0 0 000000032564 -ST9 032564 032564 0 0 0 0 000000032564 - - -*032564 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 032564 032564 0 0 332000000000 0 0 -IT1 032564 0 0 0 332000000000 0 0 -AT3 032564 0 0 0 0 0 332000000000 -AT6 032564 0 0 0 0 0 332000000000 -FT0 032564 0 0 0 0 0 332000000000 -FT1A 032564 0 0 0 0 0 0 -FT9 032565 0 0 0 0 0 0 -ET0 032566 0 0 0 0 0 0 -ST1A 032566 0 0 0 0 0 0 -ST9 032566 0 0 0 0 0 0 - - -*032566 JUMPA 0,032567 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032566 032566 0 0 324000032567 0 000000032567 -IT1 032566 0 0 0 324000032567 0 000000032567 -AT3 032566 0 0 0 000000032567 0 324000032567 -AT6 032566 032567 0 0 000000032567 0 324000032567 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 302 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0518 - -FT1A 032566 032567 0 0 000000032567 0 000000032567 -FT2 032566 032567 0 0 0 0 000000032567 -FT2RQ 032566 032567 0 0 0 0 000000032567 -FT3 032566 032567 0 0 0 0 000000032567 -FT9 032567 032567 0 0 0 0 000000032567 -ET0 032567 032567 0 0 0 0 000000032567 -ST1A 032567 032567 0 0 0 0 000000032567 -ST9 032567 032567 0 0 0 0 000000032567 - - -*032567 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 032567 032567 0 0 400000000000 0 0 -IT1 032567 0 0 0 400000000000 0 0 -AT3 032567 0 0 0 0 0 400000000000 -AT6 032567 0 0 0 0 0 400000000000 -FT1A 032567 0 0 0 0 0 0 -FT9 032570 0 0 0 0 0 0 -ET0 032570 0 0 0 0 0 0 -ST1 032570 0 0 0 0 0 0 -ST2 032570 0 0 0 0 0 0 -ST9 032570 0 0 0 0 0 0 - - -*032570 MOVE 1,035065 -INITIAL -C(AC)=000000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032570 032570 0 0 200040035065 0 400000000000 -IT1 032570 0 0 0 200040035065 0 400000000000 -AT3 032570 0 0 0 000000035065 0 200040035065 -AT6 032570 035065 0 0 000000035065 0 200040035065 -FT0 032570 035065 0 0 400000000000 0 200040035065 -FT1A 032570 035065 0 0 400000000000 0 400000000000 -FT9 032571 035065 0 0 400000000000 0 400000000000 -ET0 032571 035065 0 0 400000000000 0 400000000000 -ST1 032571 035065 0 0 400000000000 0 400000000000 -ST2 032571 035065 0 0 400000000000 0 400000000000 -ST9 032571 035065 0 0 400000000000 0 400000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 303 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0519 - -*032571 AND 1,000000 -INITIAL -C(AC)=400000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032571 032571 0 0 404040000000 0 0 -IT1 032571 0 0 0 404040000000 0 0 -AT3 032571 0 0 0 0 0 404040000000 -AT6 032571 0 0 0 0 0 404040000000 -FT0 032571 0 0 0 0 0 404040000000 -FT1A 032571 0 0 0 0 0 0 -FT2 032571 0 0 0 0 0 0 -FT2RQ 032571 0 0 0 400000000000 0 0 -FT3 032571 0 0 0 400000000000 0 0 -FT9 032572 0 0 0 400000000000 0 0 -ET0 032572 0 0 0 0 0 0 -ST1 032572 0 0 0 0 0 0 -ST2 032572 0 0 0 0 0 0 -ST9 032572 0 0 0 0 0 0 - - -*032572 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 032572 032572 0 0 332000000001 0 0 -IT1 032572 0 0 0 332000000001 0 0 -AT3 032572 0 0 0 000000000001 0 332000000001 -AT6 032572 000001 0 0 000000000001 0 332000000001 -FT0 032572 000001 0 0 0 0 332000000001 -FT1A 032572 000001 0 0 0 0 0 -FT9 032573 000001 0 0 0 0 0 -ET0 032574 000001 0 0 0 0 0 -ST1A 032574 000001 0 0 0 0 0 -ST9 032574 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 304 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0520 - -*032574 JUMPA 0,032575 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032574 032574 0 0 324000032575 0 000000032575 -IT1 032574 0 0 0 324000032575 0 000000032575 -AT3 032574 0 0 0 000000032575 0 324000032575 -AT6 032574 032575 0 0 000000032575 0 324000032575 -FT1A 032574 032575 0 0 000000032575 0 000000032575 -FT2 032574 032575 0 0 0 0 000000032575 -FT2RQ 032574 032575 0 0 0 0 000000032575 -FT3 032574 032575 0 0 0 0 000000032575 -FT9 032575 032575 0 0 0 0 000000032575 -ET0 032575 032575 0 0 0 0 000000032575 -ST1A 032575 032575 0 0 0 0 000000032575 -ST9 032575 032575 0 0 0 0 000000032575 - - -*032575 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 032575 032575 0 0 332000000000 0 0 -IT1 032575 0 0 0 332000000000 0 0 -AT3 032575 0 0 0 0 0 332000000000 -AT6 032575 0 0 0 0 0 332000000000 -FT0 032575 0 0 0 0 0 332000000000 -FT1A 032575 0 0 0 0 0 0 -FT9 032576 0 0 0 0 0 0 -ET0 032577 0 0 0 0 0 0 -ST1A 032577 0 0 0 0 0 0 -ST9 032577 0 0 0 0 0 0 - - -*032577 JUMPA 0,032600 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032577 032577 0 0 324000032600 0 000000032600 -IT1 032577 0 0 0 324000032600 0 000000032600 -AT3 032577 0 0 0 000000032600 0 324000032600 -AT6 032577 0 0 0 000000032600 0 324000032600 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 305 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0521 - -FT1A 032577 0 0 0 000000032600 0 000000032600 -FT2 032577 0 0 0 0 0 000000032600 -FT2RQ 032577 0 0 0 0 0 000000032600 -FT3 032577 0 0 0 0 0 000000032600 -FT9 0 0 0 0 0 0 000000032600 -ET0 0 0 0 0 0 0 000000032600 -ST1A 0 0 0 0 0 0 000000032600 -ST9 0 0 0 0 0 0 000000032600 - - -*032600 MOVE 0,035074 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 200000035074 0 000000000001 -IT1 0 0 0 0 200000035074 0 000000000001 -AT3 0 0 0 0 000000035074 0 200000035074 -AT6 0 035074 0 0 000000035074 0 200000035074 -FT0 0 035074 0 0 000000000001 0 200000035074 -FT1A 0 035074 0 0 000000000001 0 000000000001 -FT9 032601 035074 0 0 000000000001 0 000000000001 -ET0 032601 035074 0 0 000000000001 0 000000000001 -ST1 032601 035074 0 0 000000000001 0 000000000001 -ST2 032601 035074 0 0 000000000001 0 000000000001 -ST9 032601 035074 0 0 000000000001 0 000000000001 - - -*032601 AND 0,000000 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032601 032601 0 0 404000000000 0 000000000001 -IT1 032601 0 0 0 404000000000 0 000000000001 -AT3 032601 0 0 0 0 0 404000000000 -AT6 032601 0 0 0 0 0 404000000000 -FT0 032601 0 0 0 000000000001 0 404000000000 -FT1A 032601 0 0 0 000000000001 0 000000000001 -FT2 032601 0 0 0 0 0 000000000001 -FT2RQ 032601 0 0 0 000000000001 0 000000000001 -FT3 032601 0 0 0 000000000001 0 000000000001 -FT9 032602 0 0 0 000000000001 0 000000000001 -ET0 032602 0 0 0 000000000001 0 000000000001 -ST1 032602 0 0 0 000000000001 0 000000000001 -ST2 032602 0 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 306 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0522 - -ST9 032602 0 0 0 000000000001 0 000000000001 - - -*032602 SKIPN 0,000000 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032602 032602 0 0 336000000000 0 000000000001 -IT1 032602 0 0 0 336000000000 0 000000000001 -AT3 032602 0 0 0 0 0 336000000000 -AT6 032602 0 0 0 0 0 336000000000 -FT0 032602 0 0 0 000000000001 0 336000000000 -FT1A 032602 0 0 0 000000000001 0 000000000001 -FT9 032603 0 0 0 000000000001 0 000000000001 -ET0 032604 0 0 0 000000000001 0 000000000001 -ST1A 032604 0 0 0 000000000001 0 000000000001 -ST9 032604 0 0 0 000000000001 0 000000000001 - - -*032604 JUMPA 0,032605 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032604 032604 0 0 324000032605 0 000000032605 -IT1 032604 0 0 0 324000032605 0 000000032605 -AT3 032604 0 0 0 000000032605 0 324000032605 -AT6 032604 032605 0 0 000000032605 0 324000032605 -FT1A 032604 032605 0 0 000000032605 0 000000032605 -FT2 032604 032605 0 0 0 0 000000032605 -FT2RQ 032604 032605 0 0 000000000001 0 000000032605 -FT3 032604 032605 0 0 000000000001 0 000000032605 -FT9 032605 032605 0 0 000000000001 0 000000032605 -ET0 032605 032605 0 0 000000000001 0 000000032605 -ST1A 032605 032605 0 0 000000000001 0 000000032605 -ST9 032605 032605 0 0 000000000001 0 000000032605 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 307 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0523 - -*032605 MOVE 0,035075 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 032605 032605 0 0 200000035075 0 000000000002 -IT1 032605 0 0 0 200000035075 0 000000000002 -AT3 032605 0 0 0 000000035075 0 200000035075 -AT6 032605 035075 0 0 000000035075 0 200000035075 -FT0 032605 035075 0 0 000000000002 0 200000035075 -FT1A 032605 035075 0 0 000000000002 0 000000000002 -FT9 032606 035075 0 0 000000000002 0 000000000002 -ET0 032606 035075 0 0 000000000002 0 000000000002 -ST1 032606 035075 0 0 000000000002 0 000000000002 -ST2 032606 035075 0 0 000000000002 0 000000000002 -ST9 032606 035075 0 0 000000000002 0 000000000002 - - -*032606 AND 0,000000 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 032606 032606 0 0 404000000000 0 000000000002 -IT1 032606 0 0 0 404000000000 0 000000000002 -AT3 032606 0 0 0 0 0 404000000000 -AT6 032606 0 0 0 0 0 404000000000 -FT0 032606 0 0 0 000000000002 0 404000000000 -FT1A 032606 0 0 0 000000000002 0 000000000002 -FT2 032606 0 0 0 0 0 000000000002 -FT2RQ 032606 0 0 0 000000000002 0 000000000002 -FT3 032606 0 0 0 000000000002 0 000000000002 -FT9 032607 0 0 0 000000000002 0 000000000002 -ET0 032607 0 0 0 000000000002 0 000000000002 -ST1 032607 0 0 0 000000000002 0 000000000002 -ST2 032607 0 0 0 000000000002 0 000000000002 -ST9 032607 0 0 0 000000000002 0 000000000002 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 308 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0524 - -*032607 SKIPN 0,000000 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 032607 032607 0 0 336000000000 0 000000000002 -IT1 032607 0 0 0 336000000000 0 000000000002 -AT3 032607 0 0 0 0 0 336000000000 -AT6 032607 0 0 0 0 0 336000000000 -FT0 032607 0 0 0 000000000002 0 336000000000 -FT1A 032607 0 0 0 000000000002 0 000000000002 -FT9 032610 0 0 0 000000000002 0 000000000002 -ET0 032611 0 0 0 000000000002 0 000000000002 -ST1A 032611 0 0 0 000000000002 0 000000000002 -ST9 032611 0 0 0 000000000002 0 000000000002 - - -*032611 JUMPA 0,032612 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032611 032611 0 0 324000032612 0 000000032612 -IT1 032611 0 0 0 324000032612 0 000000032612 -AT3 032611 0 0 0 000000032612 0 324000032612 -AT6 032611 032612 0 0 000000032612 0 324000032612 -FT1A 032611 032612 0 0 000000032612 0 000000032612 -FT2 032611 032612 0 0 0 0 000000032612 -FT2RQ 032611 032612 0 0 000000000002 0 000000032612 -FT3 032611 032612 0 0 000000000002 0 000000032612 -FT9 032612 032612 0 0 000000000002 0 000000032612 -ET0 032612 032612 0 0 000000000002 0 000000032612 -ST1A 032612 032612 0 0 000000000002 0 000000032612 -ST9 032612 032612 0 0 000000000002 0 000000032612 - - -*032612 MOVE 0,035076 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 032612 032612 0 0 200000035076 0 000000000004 -IT1 032612 0 0 0 200000035076 0 000000000004 -AT3 032612 0 0 0 000000035076 0 200000035076 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 309 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0525 - -AT6 032612 035076 0 0 000000035076 0 200000035076 -FT0 032612 035076 0 0 000000000004 0 200000035076 -FT1A 032612 035076 0 0 000000000004 0 000000000004 -FT9 032613 035076 0 0 000000000004 0 000000000004 -ET0 032613 035076 0 0 000000000004 0 000000000004 -ST1 032613 035076 0 0 000000000004 0 000000000004 -ST2 032613 035076 0 0 000000000004 0 000000000004 -ST9 032613 035076 0 0 000000000004 0 000000000004 - - -*032613 AND 0,000000 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 032613 032613 0 0 404000000000 0 000000000004 -IT1 032613 0 0 0 404000000000 0 000000000004 -AT3 032613 0 0 0 0 0 404000000000 -AT6 032613 0 0 0 0 0 404000000000 -FT0 032613 0 0 0 000000000004 0 404000000000 -FT1A 032613 0 0 0 000000000004 0 000000000004 -FT2 032613 0 0 0 0 0 000000000004 -FT2RQ 032613 0 0 0 000000000004 0 000000000004 -FT3 032613 0 0 0 000000000004 0 000000000004 -FT9 032614 0 0 0 000000000004 0 000000000004 -ET0 032614 0 0 0 000000000004 0 000000000004 -ST1 032614 0 0 0 000000000004 0 000000000004 -ST2 032614 0 0 0 000000000004 0 000000000004 -ST9 032614 0 0 0 000000000004 0 000000000004 - - -*032614 SKIPN 0,000000 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 032614 032614 0 0 336000000000 0 000000000004 -IT1 032614 0 0 0 336000000000 0 000000000004 -AT3 032614 0 0 0 0 0 336000000000 -AT6 032614 0 0 0 0 0 336000000000 -FT0 032614 0 0 0 000000000004 0 336000000000 -FT1A 032614 0 0 0 000000000004 0 000000000004 -FT9 032615 0 0 0 000000000004 0 000000000004 -ET0 032616 0 0 0 000000000004 0 000000000004 -ST1A 032616 0 0 0 000000000004 0 000000000004 -ST9 032616 0 0 0 000000000004 0 000000000004 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 310 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0526 - - - -*032616 JUMPA 0,032617 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032616 032616 0 0 324000032617 0 000000032617 -IT1 032616 0 0 0 324000032617 0 000000032617 -AT3 032616 0 0 0 000000032617 0 324000032617 -AT6 032616 032617 0 0 000000032617 0 324000032617 -FT1A 032616 032617 0 0 000000032617 0 000000032617 -FT2 032616 032617 0 0 0 0 000000032617 -FT2RQ 032616 032617 0 0 000000000004 0 000000032617 -FT3 032616 032617 0 0 000000000004 0 000000032617 -FT9 032617 032617 0 0 000000000004 0 000000032617 -ET0 032617 032617 0 0 000000000004 0 000000032617 -ST1A 032617 032617 0 0 000000000004 0 000000032617 -ST9 032617 032617 0 0 000000000004 0 000000032617 - - -*032617 MOVE 0,035077 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 032617 032617 0 0 200000035077 0 000000000010 -IT1 032617 0 0 0 200000035077 0 000000000010 -AT3 032617 0 0 0 000000035077 0 200000035077 -AT6 032617 035077 0 0 000000035077 0 200000035077 -FT0 032617 035077 0 0 000000000010 0 200000035077 -FT1A 032617 035077 0 0 000000000010 0 000000000010 -FT9 032620 035077 0 0 000000000010 0 000000000010 -ET0 032620 035077 0 0 000000000010 0 000000000010 -ST1 032620 035077 0 0 000000000010 0 000000000010 -ST2 032620 035077 0 0 000000000010 0 000000000010 -ST9 032620 035077 0 0 000000000010 0 000000000010 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 311 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0527 - -*032620 AND 0,000000 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 032620 032620 0 0 404000000000 0 000000000010 -IT1 032620 0 0 0 404000000000 0 000000000010 -AT3 032620 0 0 0 0 0 404000000000 -AT6 032620 0 0 0 0 0 404000000000 -FT0 032620 0 0 0 000000000010 0 404000000000 -FT1A 032620 0 0 0 000000000010 0 000000000010 -FT2 032620 0 0 0 0 0 000000000010 -FT2RQ 032620 0 0 0 000000000010 0 000000000010 -FT3 032620 0 0 0 000000000010 0 000000000010 -FT9 032621 0 0 0 000000000010 0 000000000010 -ET0 032621 0 0 0 000000000010 0 000000000010 -ST1 032621 0 0 0 000000000010 0 000000000010 -ST2 032621 0 0 0 000000000010 0 000000000010 -ST9 032621 0 0 0 000000000010 0 000000000010 - - -*032621 SKIPN 0,000000 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 032621 032621 0 0 336000000000 0 000000000010 -IT1 032621 0 0 0 336000000000 0 000000000010 -AT3 032621 0 0 0 0 0 336000000000 -AT6 032621 0 0 0 0 0 336000000000 -FT0 032621 0 0 0 000000000010 0 336000000000 -FT1A 032621 0 0 0 000000000010 0 000000000010 -FT9 032622 0 0 0 000000000010 0 000000000010 -ET0 032623 0 0 0 000000000010 0 000000000010 -ST1A 032623 0 0 0 000000000010 0 000000000010 -ST9 032623 0 0 0 000000000010 0 000000000010 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 312 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0528 - -*032623 JUMPA 0,032624 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032623 032623 0 0 324000032624 0 000000032624 -IT1 032623 0 0 0 324000032624 0 000000032624 -AT3 032623 0 0 0 000000032624 0 324000032624 -AT6 032623 032624 0 0 000000032624 0 324000032624 -FT1A 032623 032624 0 0 000000032624 0 000000032624 -FT2 032623 032624 0 0 0 0 000000032624 -FT2RQ 032623 032624 0 0 000000000010 0 000000032624 -FT3 032623 032624 0 0 000000000010 0 000000032624 -FT9 032624 032624 0 0 000000000010 0 000000032624 -ET0 032624 032624 0 0 000000000010 0 000000032624 -ST1A 032624 032624 0 0 000000000010 0 000000032624 -ST9 032624 032624 0 0 000000000010 0 000000032624 - - -*032624 MOVE 0,035100 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000020 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 032624 032624 0 0 200000035100 0 000000000020 -IT1 032624 0 0 0 200000035100 0 000000000020 -AT3 032624 0 0 0 000000035100 0 200000035100 -AT6 032624 0 0 0 000000035100 0 200000035100 -FT0 032624 0 0 0 000000000020 0 200000035100 -FT1A 032624 0 0 0 000000000020 0 000000000020 -FT9 032625 0 0 0 000000000020 0 000000000020 -ET0 032625 0 0 0 000000000020 0 000000000020 -ST1 032625 0 0 0 000000000020 0 000000000020 -ST2 032625 0 0 0 000000000020 0 000000000020 -ST9 032625 0 0 0 000000000020 0 000000000020 - - -*032625 AND 0,000000 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000020 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 032625 032625 0 0 404000000000 0 000000000020 -IT1 032625 0 0 0 404000000000 0 000000000020 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 313 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0529 - -AT3 032625 0 0 0 0 0 404000000000 -AT6 032625 0 0 0 0 0 404000000000 -FT0 032625 0 0 0 000000000020 0 404000000000 -FT1A 032625 0 0 0 000000000020 0 000000000020 -FT2 032625 0 0 0 0 0 000000000020 -FT2RQ 032625 0 0 0 000000000020 0 000000000020 -FT3 032625 0 0 0 000000000020 0 000000000020 -FT9 032626 0 0 0 000000000020 0 000000000020 -ET0 032626 0 0 0 000000000020 0 000000000020 -ST1 032626 0 0 0 000000000020 0 000000000020 -ST2 032626 0 0 0 000000000020 0 000000000020 -ST9 032626 0 0 0 000000000020 0 000000000020 - - -*032626 SKIPN 0,000000 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000020 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 032626 032626 0 0 336000000000 0 000000000020 -IT1 032626 0 0 0 336000000000 0 000000000020 -AT3 032626 0 0 0 0 0 336000000000 -AT6 032626 0 0 0 0 0 336000000000 -FT0 032626 0 0 0 000000000020 0 336000000000 -FT1A 032626 0 0 0 000000000020 0 000000000020 -FT9 032627 0 0 0 000000000020 0 000000000020 -ET0 032630 0 0 0 000000000020 0 000000000020 -ST1A 032630 0 0 0 000000000020 0 000000000020 -ST9 032630 0 0 0 000000000020 0 000000000020 - - -*032630 JUMPA 0,032631 -INITIAL -C(AC)=000000 000020 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032630 032630 0 0 324000032631 0 000000032631 -IT1 032630 0 0 0 324000032631 0 000000032631 -AT3 032630 0 0 0 000000032631 0 324000032631 -AT6 032630 032631 0 0 000000032631 0 324000032631 -FT1A 032630 032631 0 0 000000032631 0 000000032631 -FT2 032630 032631 0 0 0 0 000000032631 -FT2RQ 032630 032631 0 0 000000000020 0 000000032631 -FT3 032630 032631 0 0 000000000020 0 000000032631 -FT9 032631 032631 0 0 000000000020 0 000000032631 -ET0 032631 032631 0 0 000000000020 0 000000032631 -ST1A 032631 032631 0 0 000000000020 0 000000032631 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 314 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0530 - -ST9 032631 032631 0 0 000000000020 0 000000032631 - - -*032631 MOVE 0,035101 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000040 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 032631 032631 0 0 200000035101 0 000000000040 -IT1 032631 0 0 0 200000035101 0 000000000040 -AT3 032631 0 0 0 000000035101 0 200000035101 -AT6 032631 035101 0 0 000000035101 0 200000035101 -FT0 032631 035101 0 0 000000000040 0 200000035101 -FT1A 032631 035101 0 0 000000000040 0 000000000040 -FT9 032632 035101 0 0 000000000040 0 000000000040 -ET0 032632 035101 0 0 000000000040 0 000000000040 -ST1 032632 035101 0 0 000000000040 0 000000000040 -ST2 032632 035101 0 0 000000000040 0 000000000040 -ST9 032632 035101 0 0 000000000040 0 000000000040 - - -*032632 AND 0,000000 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000040 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 032632 032632 0 0 404000000000 0 000000000040 -IT1 032632 0 0 0 404000000000 0 000000000040 -AT3 032632 0 0 0 0 0 404000000000 -AT6 032632 0 0 0 0 0 404000000000 -FT0 032632 0 0 0 000000000040 0 404000000000 -FT1A 032632 0 0 0 000000000040 0 000000000040 -FT2 032632 0 0 0 0 0 000000000040 -FT2RQ 032632 0 0 0 000000000040 0 000000000040 -FT3 032632 0 0 0 000000000040 0 000000000040 -FT9 032633 0 0 0 000000000040 0 000000000040 -ET0 032633 0 0 0 000000000040 0 000000000040 -ST1 032633 0 0 0 000000000040 0 000000000040 -ST2 032633 0 0 0 000000000040 0 000000000040 -ST9 032633 0 0 0 000000000040 0 000000000040 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 315 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0531 - -*032633 SKIPN 0,000000 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000040 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 032633 032633 0 0 336000000000 0 000000000040 -IT1 032633 0 0 0 336000000000 0 000000000040 -AT3 032633 0 0 0 0 0 336000000000 -AT6 032633 0 0 0 0 0 336000000000 -FT0 032633 0 0 0 000000000040 0 336000000000 -FT1A 032633 0 0 0 000000000040 0 000000000040 -FT9 032634 0 0 0 000000000040 0 000000000040 -ET0 032635 0 0 0 000000000040 0 000000000040 -ST1A 032635 0 0 0 000000000040 0 000000000040 -ST9 032635 0 0 0 000000000040 0 000000000040 - - -*032635 JUMPA 0,032636 -INITIAL -C(AC)=000000 000040 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032635 032635 0 0 324000032636 0 000000032636 -IT1 032635 0 0 0 324000032636 0 000000032636 -AT3 032635 0 0 0 000000032636 0 324000032636 -AT6 032635 032636 0 0 000000032636 0 324000032636 -FT1A 032635 032636 0 0 000000032636 0 000000032636 -FT2 032635 032636 0 0 0 0 000000032636 -FT2RQ 032635 032636 0 0 000000000040 0 000000032636 -FT3 032635 032636 0 0 000000000040 0 000000032636 -FT9 032636 032636 0 0 000000000040 0 000000032636 -ET0 032636 032636 0 0 000000000040 0 000000032636 -ST1A 032636 032636 0 0 000000000040 0 000000032636 -ST9 032636 032636 0 0 000000000040 0 000000032636 - - -*032636 MOVE 0,035102 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000100 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 032636 032636 0 0 200000035102 0 000000000100 -IT1 032636 0 0 0 200000035102 0 000000000100 -AT3 032636 0 0 0 000000035102 0 200000035102 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 316 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0532 - -AT6 032636 035102 0 0 000000035102 0 200000035102 -FT0 032636 035102 0 0 000000000100 0 200000035102 -FT1A 032636 035102 0 0 000000000100 0 000000000100 -FT9 032637 035102 0 0 000000000100 0 000000000100 -ET0 032637 035102 0 0 000000000100 0 000000000100 -ST1 032637 035102 0 0 000000000100 0 000000000100 -ST2 032637 035102 0 0 000000000100 0 000000000100 -ST9 032637 035102 0 0 000000000100 0 000000000100 - - -*032637 AND 0,000000 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000100 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 032637 032637 0 0 404000000000 0 000000000100 -IT1 032637 0 0 0 404000000000 0 000000000100 -AT3 032637 0 0 0 0 0 404000000000 -AT6 032637 0 0 0 0 0 404000000000 -FT0 032637 0 0 0 000000000100 0 404000000000 -FT1A 032637 0 0 0 000000000100 0 000000000100 -FT2 032637 0 0 0 0 0 000000000100 -FT2RQ 032637 0 0 0 000000000100 0 000000000100 -FT3 032637 0 0 0 000000000100 0 000000000100 -FT9 032640 0 0 0 000000000100 0 000000000100 -ET0 032640 0 0 0 000000000100 0 000000000100 -ST1 032640 0 0 0 000000000100 0 000000000100 -ST2 032640 0 0 0 000000000100 0 000000000100 -ST9 032640 0 0 0 000000000100 0 000000000100 - - -*032640 SKIPN 0,000000 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000100 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 032640 032640 0 0 336000000000 0 000000000100 -IT1 032640 0 0 0 336000000000 0 000000000100 -AT3 032640 0 0 0 0 0 336000000000 -AT6 032640 0 0 0 0 0 336000000000 -FT0 032640 0 0 0 000000000100 0 336000000000 -FT1A 032640 0 0 0 000000000100 0 000000000100 -FT9 032641 0 0 0 000000000100 0 000000000100 -ET0 032642 0 0 0 000000000100 0 000000000100 -ST1A 032642 0 0 0 000000000100 0 000000000100 -ST9 032642 0 0 0 000000000100 0 000000000100 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 317 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0533 - - - -*032642 JUMPA 0,032643 -INITIAL -C(AC)=000000 000100 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032642 032642 0 0 324000032643 0 000000032643 -IT1 032642 0 0 0 324000032643 0 000000032643 -AT3 032642 0 0 0 000000032643 0 324000032643 -AT6 032642 032643 0 0 000000032643 0 324000032643 -FT1A 032642 032643 0 0 000000032643 0 000000032643 -FT2 032642 032643 0 0 0 0 000000032643 -FT2RQ 032642 032643 0 0 000000000100 0 000000032643 -FT3 032642 032643 0 0 000000000100 0 000000032643 -FT9 032643 032643 0 0 000000000100 0 000000032643 -ET0 032643 032643 0 0 000000000100 0 000000032643 -ST1A 032643 032643 0 0 000000000100 0 000000032643 -ST9 032643 032643 0 0 000000000100 0 000000032643 - - -*032643 MOVE 0,035103 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000200 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 032643 032643 0 0 200000035103 0 000000000200 -IT1 032643 0 0 0 200000035103 0 000000000200 -AT3 032643 0 0 0 000000035103 0 200000035103 -AT6 032643 035103 0 0 000000035103 0 200000035103 -FT0 032643 035103 0 0 000000000200 0 200000035103 -FT1A 032643 035103 0 0 000000000200 0 000000000200 -FT9 032644 035103 0 0 000000000200 0 000000000200 -ET0 032644 035103 0 0 000000000200 0 000000000200 -ST1 032644 035103 0 0 000000000200 0 000000000200 -ST2 032644 035103 0 0 000000000200 0 000000000200 -ST9 032644 035103 0 0 000000000200 0 000000000200 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 318 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0534 - -*032644 AND 0,000000 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000200 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 032644 032644 0 0 404000000000 0 000000000200 -IT1 032644 0 0 0 404000000000 0 000000000200 -AT3 032644 0 0 0 0 0 404000000000 -AT6 032644 0 0 0 0 0 404000000000 -FT0 032644 0 0 0 000000000200 0 404000000000 -FT1A 032644 0 0 0 000000000200 0 000000000200 -FT2 032644 0 0 0 0 0 000000000200 -FT2RQ 032644 0 0 0 000000000200 0 000000000200 -FT3 032644 0 0 0 000000000200 0 000000000200 -FT9 032645 0 0 0 000000000200 0 000000000200 -ET0 032645 0 0 0 000000000200 0 000000000200 -ST1 032645 0 0 0 000000000200 0 000000000200 -ST2 032645 0 0 0 000000000200 0 000000000200 -ST9 032645 0 0 0 000000000200 0 000000000200 - - -*032645 SKIPN 0,000000 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000200 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 032645 032645 0 0 336000000000 0 000000000200 -IT1 032645 0 0 0 336000000000 0 000000000200 -AT3 032645 0 0 0 0 0 336000000000 -AT6 032645 0 0 0 0 0 336000000000 -FT0 032645 0 0 0 000000000200 0 336000000000 -FT1A 032645 0 0 0 000000000200 0 000000000200 -FT9 032646 0 0 0 000000000200 0 000000000200 -ET0 032647 0 0 0 000000000200 0 000000000200 -ST1A 032647 0 0 0 000000000200 0 000000000200 -ST9 032647 0 0 0 000000000200 0 000000000200 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 319 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0535 - -*032647 JUMPA 0,032650 -INITIAL -C(AC)=000000 000200 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032647 032647 0 0 324000032650 0 000000032650 -IT1 032647 0 0 0 324000032650 0 000000032650 -AT3 032647 0 0 0 000000032650 0 324000032650 -AT6 032647 032650 0 0 000000032650 0 324000032650 -FT1A 032647 032650 0 0 000000032650 0 000000032650 -FT2 032647 032650 0 0 0 0 000000032650 -FT2RQ 032647 032650 0 0 000000000200 0 000000032650 -FT3 032647 032650 0 0 000000000200 0 000000032650 -FT9 032650 032650 0 0 000000000200 0 000000032650 -ET0 032650 032650 0 0 000000000200 0 000000032650 -ST1A 032650 032650 0 0 000000000200 0 000000032650 -ST9 032650 032650 0 0 000000000200 0 000000032650 - - -*032650 MOVE 0,035104 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000400 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 032650 032650 0 0 200000035104 0 000000000400 -IT1 032650 0 0 0 200000035104 0 000000000400 -AT3 032650 0 0 0 000000035104 0 200000035104 -AT6 032650 035104 0 0 000000035104 0 200000035104 -FT0 032650 035104 0 0 000000000400 0 200000035104 -FT1A 032650 035104 0 0 000000000400 0 000000000400 -FT9 032651 035104 0 0 000000000400 0 000000000400 -ET0 032651 035104 0 0 000000000400 0 000000000400 -ST1 032651 035104 0 0 000000000400 0 000000000400 -ST2 032651 035104 0 0 000000000400 0 000000000400 -ST9 032651 035104 0 0 000000000400 0 000000000400 - - -*032651 AND 0,000000 -INITIAL -C(AC)=000000 000400 -C(E)=000000 000400 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 032651 032651 0 0 404000000000 0 000000000400 -IT1 032651 0 0 0 404000000000 0 000000000400 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 320 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0536 - -AT3 032651 0 0 0 0 0 404000000000 -AT6 032651 0 0 0 0 0 404000000000 -FT0 032651 0 0 0 000000000400 0 404000000000 -FT1A 032651 0 0 0 000000000400 0 000000000400 -FT2 032651 0 0 0 0 0 000000000400 -FT2RQ 032651 0 0 0 000000000400 0 000000000400 -FT3 032651 0 0 0 000000000400 0 000000000400 -FT9 032652 0 0 0 000000000400 0 000000000400 -ET0 032652 0 0 0 000000000400 0 000000000400 -ST1 032652 0 0 0 000000000400 0 000000000400 -ST2 032652 0 0 0 000000000400 0 000000000400 -ST9 032652 0 0 0 000000000400 0 000000000400 - - -*032652 SKIPN 0,000000 -INITIAL -C(AC)=000000 000400 -C(E)=000000 000400 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 032652 032652 0 0 336000000000 0 000000000400 -IT1 032652 0 0 0 336000000000 0 000000000400 -AT3 032652 0 0 0 0 0 336000000000 -AT6 032652 0 0 0 0 0 336000000000 -FT0 032652 0 0 0 000000000400 0 336000000000 -FT1A 032652 0 0 0 000000000400 0 000000000400 -FT9 032653 0 0 0 000000000400 0 000000000400 -ET0 032654 0 0 0 000000000400 0 000000000400 -ST1A 032654 0 0 0 000000000400 0 000000000400 -ST9 032654 0 0 0 000000000400 0 000000000400 - - -*032654 JUMPA 0,032655 -INITIAL -C(AC)=000000 000400 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032654 032654 0 0 324000032655 0 000000032655 -IT1 032654 0 0 0 324000032655 0 000000032655 -AT3 032654 0 0 0 000000032655 0 324000032655 -AT6 032654 032655 0 0 000000032655 0 324000032655 -FT1A 032654 032655 0 0 000000032655 0 000000032655 -FT2 032654 032655 0 0 0 0 000000032655 -FT2RQ 032654 032655 0 0 000000000400 0 000000032655 -FT3 032654 032655 0 0 000000000400 0 000000032655 -FT9 032655 032655 0 0 000000000400 0 000000032655 -ET0 032655 032655 0 0 000000000400 0 000000032655 -ST1A 032655 032655 0 0 000000000400 0 000000032655 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 321 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0537 - -ST9 032655 032655 0 0 000000000400 0 000000032655 - - -*032655 MOVE 0,035105 -INITIAL -C(AC)=000000 000400 -C(E)=000000 001000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 032655 032655 0 0 200000035105 0 000000001000 -IT1 032655 0 0 0 200000035105 0 000000001000 -AT3 032655 0 0 0 000000035105 0 200000035105 -AT6 032655 035105 0 0 000000035105 0 200000035105 -FT0 032655 035105 0 0 000000001000 0 200000035105 -FT1A 032655 035105 0 0 000000001000 0 000000001000 -FT9 032656 035105 0 0 000000001000 0 000000001000 -ET0 032656 035105 0 0 000000001000 0 000000001000 -ST1 032656 035105 0 0 000000001000 0 000000001000 -ST2 032656 035105 0 0 000000001000 0 000000001000 -ST9 032656 035105 0 0 000000001000 0 000000001000 - - -*032656 AND 0,000000 -INITIAL -C(AC)=000000 001000 -C(E)=000000 001000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 032656 032656 0 0 404000000000 0 000000001000 -IT1 032656 0 0 0 404000000000 0 000000001000 -AT3 032656 0 0 0 0 0 404000000000 -AT6 032656 0 0 0 0 0 404000000000 -FT0 032656 0 0 0 000000001000 0 404000000000 -FT1A 032656 0 0 0 000000001000 0 000000001000 -FT2 032656 0 0 0 0 0 000000001000 -FT2RQ 032656 0 0 0 000000001000 0 000000001000 -FT3 032656 0 0 0 000000001000 0 000000001000 -FT9 032657 0 0 0 000000001000 0 000000001000 -ET0 032657 0 0 0 000000001000 0 000000001000 -ST1 032657 0 0 0 000000001000 0 000000001000 -ST2 032657 0 0 0 000000001000 0 000000001000 -ST9 032657 0 0 0 000000001000 0 000000001000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 322 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0538 - -*032657 SKIPN 0,000000 -INITIAL -C(AC)=000000 001000 -C(E)=000000 001000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 032657 032657 0 0 336000000000 0 000000001000 -IT1 032657 0 0 0 336000000000 0 000000001000 -AT3 032657 0 0 0 0 0 336000000000 -AT6 032657 0 0 0 0 0 336000000000 -FT0 032657 0 0 0 000000001000 0 336000000000 -FT1A 032657 0 0 0 000000001000 0 000000001000 -FT9 032660 0 0 0 000000001000 0 000000001000 -ET0 032661 0 0 0 000000001000 0 000000001000 -ST1A 032661 0 0 0 000000001000 0 000000001000 -ST9 032661 0 0 0 000000001000 0 000000001000 - - -*032661 JUMPA 0,032662 -INITIAL -C(AC)=000000 001000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032661 032661 0 0 324000032662 0 000000032662 -IT1 032661 0 0 0 324000032662 0 000000032662 -AT3 032661 0 0 0 000000032662 0 324000032662 -AT6 032661 032662 0 0 000000032662 0 324000032662 -FT1A 032661 032662 0 0 000000032662 0 000000032662 -FT2 032661 032662 0 0 0 0 000000032662 -FT2RQ 032661 032662 0 0 000000001000 0 000000032662 -FT3 032661 032662 0 0 000000001000 0 000000032662 -FT9 032662 032662 0 0 000000001000 0 000000032662 -ET0 032662 032662 0 0 000000001000 0 000000032662 -ST1A 032662 032662 0 0 000000001000 0 000000032662 -ST9 032662 032662 0 0 000000001000 0 000000032662 - - -*032662 MOVE 0,035106 -INITIAL -C(AC)=000000 001000 -C(E)=000000 002000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 032662 032662 0 0 200000035106 0 000000002000 -IT1 032662 0 0 0 200000035106 0 000000002000 -AT3 032662 0 0 0 000000035106 0 200000035106 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 323 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0539 - -AT6 032662 035106 0 0 000000035106 0 200000035106 -FT0 032662 035106 0 0 000000002000 0 200000035106 -FT1A 032662 035106 0 0 000000002000 0 000000002000 -FT9 032663 035106 0 0 000000002000 0 000000002000 -ET0 032663 035106 0 0 000000002000 0 000000002000 -ST1 032663 035106 0 0 000000002000 0 000000002000 -ST2 032663 035106 0 0 000000002000 0 000000002000 -ST9 032663 035106 0 0 000000002000 0 000000002000 - - -*032663 AND 0,000000 -INITIAL -C(AC)=000000 002000 -C(E)=000000 002000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 032663 032663 0 0 404000000000 0 000000002000 -IT1 032663 0 0 0 404000000000 0 000000002000 -AT3 032663 0 0 0 0 0 404000000000 -AT6 032663 0 0 0 0 0 404000000000 -FT0 032663 0 0 0 000000002000 0 404000000000 -FT1A 032663 0 0 0 000000002000 0 000000002000 -FT2 032663 0 0 0 0 0 000000002000 -FT2RQ 032663 0 0 0 000000002000 0 000000002000 -FT3 032663 0 0 0 000000002000 0 000000002000 -FT9 032664 0 0 0 000000002000 0 000000002000 -ET0 032664 0 0 0 000000002000 0 000000002000 -ST1 032664 0 0 0 000000002000 0 000000002000 -ST2 032664 0 0 0 000000002000 0 000000002000 -ST9 032664 0 0 0 000000002000 0 000000002000 - - -*032664 SKIPN 0,000000 -INITIAL -C(AC)=000000 002000 -C(E)=000000 002000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 032664 032664 0 0 336000000000 0 000000002000 -IT1 032664 0 0 0 336000000000 0 000000002000 -AT3 032664 0 0 0 0 0 336000000000 -AT6 032664 0 0 0 0 0 336000000000 -FT0 032664 0 0 0 000000002000 0 336000000000 -FT1A 032664 0 0 0 000000002000 0 000000002000 -FT9 032665 0 0 0 000000002000 0 000000002000 -ET0 032666 0 0 0 000000002000 0 000000002000 -ST1A 032666 0 0 0 000000002000 0 000000002000 -ST9 032666 0 0 0 000000002000 0 000000002000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 324 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0540 - - - -*032666 JUMPA 0,032667 -INITIAL -C(AC)=000000 002000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032666 032666 0 0 324000032667 0 000000032667 -IT1 032666 0 0 0 324000032667 0 000000032667 -AT3 032666 0 0 0 000000032667 0 324000032667 -AT6 032666 032667 0 0 000000032667 0 324000032667 -FT1A 032666 032667 0 0 000000032667 0 000000032667 -FT2 032666 032667 0 0 0 0 000000032667 -FT2RQ 032666 032667 0 0 000000002000 0 000000032667 -FT3 032666 032667 0 0 000000002000 0 000000032667 -FT9 032667 032667 0 0 000000002000 0 000000032667 -ET0 032667 032667 0 0 000000002000 0 000000032667 -ST1A 032667 032667 0 0 000000002000 0 000000032667 -ST9 032667 032667 0 0 000000002000 0 000000032667 - - -*032667 MOVE 0,035107 -INITIAL -C(AC)=000000 002000 -C(E)=000000 004000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 032667 032667 0 0 200000035107 0 000000004000 -IT1 032667 0 0 0 200000035107 0 000000004000 -AT3 032667 0 0 0 000000035107 0 200000035107 -AT6 032667 035107 0 0 000000035107 0 200000035107 -FT0 032667 035107 0 0 000000004000 0 200000035107 -FT1A 032667 035107 0 0 000000004000 0 000000004000 -FT9 032670 035107 0 0 000000004000 0 000000004000 -ET0 032670 035107 0 0 000000004000 0 000000004000 -ST1 032670 035107 0 0 000000004000 0 000000004000 -ST2 032670 035107 0 0 000000004000 0 000000004000 -ST9 032670 035107 0 0 000000004000 0 000000004000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 325 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0541 - -*032670 AND 0,000000 -INITIAL -C(AC)=000000 004000 -C(E)=000000 004000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 032670 032670 0 0 404000000000 0 000000004000 -IT1 032670 0 0 0 404000000000 0 000000004000 -AT3 032670 0 0 0 0 0 404000000000 -AT6 032670 0 0 0 0 0 404000000000 -FT0 032670 0 0 0 000000004000 0 404000000000 -FT1A 032670 0 0 0 000000004000 0 000000004000 -FT2 032670 0 0 0 0 0 000000004000 -FT2RQ 032670 0 0 0 000000004000 0 000000004000 -FT3 032670 0 0 0 000000004000 0 000000004000 -FT9 032671 0 0 0 000000004000 0 000000004000 -ET0 032671 0 0 0 000000004000 0 000000004000 -ST1 032671 0 0 0 000000004000 0 000000004000 -ST2 032671 0 0 0 000000004000 0 000000004000 -ST9 032671 0 0 0 000000004000 0 000000004000 - - -*032671 SKIPN 0,000000 -INITIAL -C(AC)=000000 004000 -C(E)=000000 004000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 032671 032671 0 0 336000000000 0 000000004000 -IT1 032671 0 0 0 336000000000 0 000000004000 -AT3 032671 0 0 0 0 0 336000000000 -AT6 032671 0 0 0 0 0 336000000000 -FT0 032671 0 0 0 000000004000 0 336000000000 -FT1A 032671 0 0 0 000000004000 0 000000004000 -FT9 032672 0 0 0 000000004000 0 000000004000 -ET0 032673 0 0 0 000000004000 0 000000004000 -ST1A 032673 0 0 0 000000004000 0 000000004000 -ST9 032673 0 0 0 000000004000 0 000000004000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 326 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0542 - -*032673 JUMPA 0,032674 -INITIAL -C(AC)=000000 004000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032673 032673 0 0 324000032674 0 000000032674 -IT1 032673 0 0 0 324000032674 0 000000032674 -AT3 032673 0 0 0 000000032674 0 324000032674 -AT6 032673 032674 0 0 000000032674 0 324000032674 -FT1A 032673 032674 0 0 000000032674 0 000000032674 -FT2 032673 032674 0 0 0 0 000000032674 -FT2RQ 032673 032674 0 0 000000004000 0 000000032674 -FT3 032673 032674 0 0 000000004000 0 000000032674 -FT9 032674 032674 0 0 000000004000 0 000000032674 -ET0 032674 032674 0 0 000000004000 0 000000032674 -ST1A 032674 032674 0 0 000000004000 0 000000032674 -ST9 032674 032674 0 0 000000004000 0 000000032674 - - -*032674 MOVE 0,035110 -INITIAL -C(AC)=000000 004000 -C(E)=000000 010000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 032674 032674 0 0 200000035110 0 000000010000 -IT1 032674 0 0 0 200000035110 0 000000010000 -AT3 032674 0 0 0 000000035110 0 200000035110 -AT6 032674 035110 0 0 000000035110 0 200000035110 -FT0 032674 035110 0 0 000000010000 0 200000035110 -FT1A 032674 035110 0 0 000000010000 0 000000010000 -FT9 032675 035110 0 0 000000010000 0 000000010000 -ET0 032675 035110 0 0 000000010000 0 000000010000 -ST1 032675 035110 0 0 000000010000 0 000000010000 -ST2 032675 035110 0 0 000000010000 0 000000010000 -ST9 032675 035110 0 0 000000010000 0 000000010000 - - -*032675 AND 0,000000 -INITIAL -C(AC)=000000 010000 -C(E)=000000 010000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 032675 032675 0 0 404000000000 0 000000010000 -IT1 032675 0 0 0 404000000000 0 000000010000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 327 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0543 - -AT3 032675 0 0 0 0 0 404000000000 -AT6 032675 0 0 0 0 0 404000000000 -FT0 032675 0 0 0 000000010000 0 404000000000 -FT1A 032675 0 0 0 000000010000 0 000000010000 -FT2 032675 0 0 0 0 0 000000010000 -FT2RQ 032675 0 0 0 000000010000 0 000000010000 -FT3 032675 0 0 0 000000010000 0 000000010000 -FT9 032676 0 0 0 000000010000 0 000000010000 -ET0 032676 0 0 0 000000010000 0 000000010000 -ST1 032676 0 0 0 000000010000 0 000000010000 -ST2 032676 0 0 0 000000010000 0 000000010000 -ST9 032676 0 0 0 000000010000 0 000000010000 - - -*032676 SKIPN 0,000000 -INITIAL -C(AC)=000000 010000 -C(E)=000000 010000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 032676 032676 0 0 336000000000 0 000000010000 -IT1 032676 0 0 0 336000000000 0 000000010000 -AT3 032676 0 0 0 0 0 336000000000 -AT6 032676 0 0 0 0 0 336000000000 -FT0 032676 0 0 0 000000010000 0 336000000000 -FT1A 032676 0 0 0 000000010000 0 000000010000 -FT9 032677 0 0 0 000000010000 0 000000010000 -ET0 0 0 0 0 000000010000 0 000000010000 -ST1A 0 0 0 0 000000010000 0 000000010000 -ST9 0 0 0 0 000000010000 0 000000010000 - - -*032700 JUMPA 0,032701 -INITIAL -C(AC)=000000 010000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 324000032701 0 000000032701 -IT1 0 0 0 0 324000032701 0 000000032701 -AT3 0 0 0 0 000000032701 0 324000032701 -AT6 0 032701 0 0 000000032701 0 324000032701 -FT1A 0 032701 0 0 000000032701 0 000000032701 -FT2 0 032701 0 0 0 0 000000032701 -FT2RQ 0 032701 0 0 000000010000 0 000000032701 -FT3 0 032701 0 0 000000010000 0 000000032701 -FT9 032701 032701 0 0 000000010000 0 000000032701 -ET0 032701 032701 0 0 000000010000 0 000000032701 -ST1A 032701 032701 0 0 000000010000 0 000000032701 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 328 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0544 - -ST9 032701 032701 0 0 000000010000 0 000000032701 - - -*032701 MOVE 0,035111 -INITIAL -C(AC)=000000 010000 -C(E)=000000 020000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 032701 032701 0 0 200000035111 0 000000020000 -IT1 032701 0 0 0 200000035111 0 000000020000 -AT3 032701 0 0 0 000000035111 0 200000035111 -AT6 032701 035111 0 0 000000035111 0 200000035111 -FT0 032701 035111 0 0 000000020000 0 200000035111 -FT1A 032701 035111 0 0 000000020000 0 000000020000 -FT9 032702 035111 0 0 000000020000 0 000000020000 -ET0 032702 035111 0 0 000000020000 0 000000020000 -ST1 032702 035111 0 0 000000020000 0 000000020000 -ST2 032702 035111 0 0 000000020000 0 000000020000 -ST9 032702 035111 0 0 000000020000 0 000000020000 - - -*032702 AND 0,000000 -INITIAL -C(AC)=000000 020000 -C(E)=000000 020000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 032702 032702 0 0 404000000000 0 000000020000 -IT1 032702 0 0 0 404000000000 0 000000020000 -AT3 032702 0 0 0 0 0 404000000000 -AT6 032702 0 0 0 0 0 404000000000 -FT0 032702 0 0 0 000000020000 0 404000000000 -FT1A 032702 0 0 0 000000020000 0 000000020000 -FT2 032702 0 0 0 0 0 000000020000 -FT2RQ 032702 0 0 0 000000020000 0 000000020000 -FT3 032702 0 0 0 000000020000 0 000000020000 -FT9 032703 0 0 0 000000020000 0 000000020000 -ET0 032703 0 0 0 000000020000 0 000000020000 -ST1 032703 0 0 0 000000020000 0 000000020000 -ST2 032703 0 0 0 000000020000 0 000000020000 -ST9 032703 0 0 0 000000020000 0 000000020000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 329 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0545 - -*032703 SKIPN 0,000000 -INITIAL -C(AC)=000000 020000 -C(E)=000000 020000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 032703 032703 0 0 336000000000 0 000000020000 -IT1 032703 0 0 0 336000000000 0 000000020000 -AT3 032703 0 0 0 0 0 336000000000 -AT6 032703 0 0 0 0 0 336000000000 -FT0 032703 0 0 0 000000020000 0 336000000000 -FT1A 032703 0 0 0 000000020000 0 000000020000 -FT9 032704 0 0 0 000000020000 0 000000020000 -ET0 032705 0 0 0 000000020000 0 000000020000 -ST1A 032705 0 0 0 000000020000 0 000000020000 -ST9 032705 0 0 0 000000020000 0 000000020000 - - -*032705 JUMPA 0,032706 -INITIAL -C(AC)=000000 020000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032705 032705 0 0 324000032706 0 000000032706 -IT1 032705 0 0 0 324000032706 0 000000032706 -AT3 032705 0 0 0 000000032706 0 324000032706 -AT6 032705 032706 0 0 000000032706 0 324000032706 -FT1A 032705 032706 0 0 000000032706 0 000000032706 -FT2 032705 032706 0 0 0 0 000000032706 -FT2RQ 032705 032706 0 0 000000020000 0 000000032706 -FT3 032705 032706 0 0 000000020000 0 000000032706 -FT9 032706 032706 0 0 000000020000 0 000000032706 -ET0 032706 032706 0 0 000000020000 0 000000032706 -ST1A 032706 032706 0 0 000000020000 0 000000032706 -ST9 032706 032706 0 0 000000020000 0 000000032706 - - -*032706 MOVE 0,035112 -INITIAL -C(AC)=000000 020000 -C(E)=000000 040000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 032706 032706 0 0 200000035112 0 000000040000 -IT1 032706 0 0 0 200000035112 0 000000040000 -AT3 032706 0 0 0 000000035112 0 200000035112 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 330 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0546 - -AT6 032706 035112 0 0 000000035112 0 200000035112 -FT0 032706 035112 0 0 000000040000 0 200000035112 -FT1A 032706 035112 0 0 000000040000 0 000000040000 -FT9 032707 035112 0 0 000000040000 0 000000040000 -ET0 032707 035112 0 0 000000040000 0 000000040000 -ST1 032707 035112 0 0 000000040000 0 000000040000 -ST2 032707 035112 0 0 000000040000 0 000000040000 -ST9 032707 035112 0 0 000000040000 0 000000040000 - - -*032707 AND 0,000000 -INITIAL -C(AC)=000000 040000 -C(E)=000000 040000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 032707 032707 0 0 404000000000 0 000000040000 -IT1 032707 0 0 0 404000000000 0 000000040000 -AT3 032707 0 0 0 0 0 404000000000 -AT6 032707 0 0 0 0 0 404000000000 -FT0 032707 0 0 0 000000040000 0 404000000000 -FT1A 032707 0 0 0 000000040000 0 000000040000 -FT2 032707 0 0 0 0 0 000000040000 -FT2RQ 032707 0 0 0 000000040000 0 000000040000 -FT3 032707 0 0 0 000000040000 0 000000040000 -FT9 032710 0 0 0 000000040000 0 000000040000 -ET0 032710 0 0 0 000000040000 0 000000040000 -ST1 032710 0 0 0 000000040000 0 000000040000 -ST2 032710 0 0 0 000000040000 0 000000040000 -ST9 032710 0 0 0 000000040000 0 000000040000 - - -*032710 SKIPN 0,000000 -INITIAL -C(AC)=000000 040000 -C(E)=000000 040000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 032710 032710 0 0 336000000000 0 000000040000 -IT1 032710 0 0 0 336000000000 0 000000040000 -AT3 032710 0 0 0 0 0 336000000000 -AT6 032710 0 0 0 0 0 336000000000 -FT0 032710 0 0 0 000000040000 0 336000000000 -FT1A 032710 0 0 0 000000040000 0 000000040000 -FT9 032711 0 0 0 000000040000 0 000000040000 -ET0 032712 0 0 0 000000040000 0 000000040000 -ST1A 032712 0 0 0 000000040000 0 000000040000 -ST9 032712 0 0 0 000000040000 0 000000040000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 331 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0547 - - - -*032712 JUMPA 0,032713 -INITIAL -C(AC)=000000 040000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032712 032712 0 0 324000032713 0 000000032713 -IT1 032712 0 0 0 324000032713 0 000000032713 -AT3 032712 0 0 0 000000032713 0 324000032713 -AT6 032712 032713 0 0 000000032713 0 324000032713 -FT1A 032712 032713 0 0 000000032713 0 000000032713 -FT2 032712 032713 0 0 0 0 000000032713 -FT2RQ 032712 032713 0 0 000000040000 0 000000032713 -FT3 032712 032713 0 0 000000040000 0 000000032713 -FT9 032713 032713 0 0 000000040000 0 000000032713 -ET0 032713 032713 0 0 000000040000 0 000000032713 -ST1A 032713 032713 0 0 000000040000 0 000000032713 -ST9 032713 032713 0 0 000000040000 0 000000032713 - - -*032713 MOVE 0,035113 -INITIAL -C(AC)=000000 040000 -C(E)=000000 100000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 032713 032713 0 0 200000035113 0 000000100000 -IT1 032713 0 0 0 200000035113 0 000000100000 -AT3 032713 0 0 0 000000035113 0 200000035113 -AT6 032713 035113 0 0 000000035113 0 200000035113 -FT0 032713 035113 0 0 000000100000 0 200000035113 -FT1A 032713 035113 0 0 000000100000 0 000000100000 -FT9 032714 035113 0 0 000000100000 0 000000100000 -ET0 032714 035113 0 0 000000100000 0 000000100000 -ST1 032714 035113 0 0 000000100000 0 000000100000 -ST2 032714 035113 0 0 000000100000 0 000000100000 -ST9 032714 035113 0 0 000000100000 0 000000100000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 332 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0548 - -*032714 AND 0,000000 -INITIAL -C(AC)=000000 100000 -C(E)=000000 100000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 032714 032714 0 0 404000000000 0 000000100000 -IT1 032714 0 0 0 404000000000 0 000000100000 -AT3 032714 0 0 0 0 0 404000000000 -AT6 032714 0 0 0 0 0 404000000000 -FT0 032714 0 0 0 000000100000 0 404000000000 -FT1A 032714 0 0 0 000000100000 0 000000100000 -FT2 032714 0 0 0 0 0 000000100000 -FT2RQ 032714 0 0 0 000000100000 0 000000100000 -FT3 032714 0 0 0 000000100000 0 000000100000 -FT9 032715 0 0 0 000000100000 0 000000100000 -ET0 032715 0 0 0 000000100000 0 000000100000 -ST1 032715 0 0 0 000000100000 0 000000100000 -ST2 032715 0 0 0 000000100000 0 000000100000 -ST9 032715 0 0 0 000000100000 0 000000100000 - - -*032715 SKIPN 0,000000 -INITIAL -C(AC)=000000 100000 -C(E)=000000 100000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 032715 032715 0 0 336000000000 0 000000100000 -IT1 032715 0 0 0 336000000000 0 000000100000 -AT3 032715 0 0 0 0 0 336000000000 -AT6 032715 0 0 0 0 0 336000000000 -FT0 032715 0 0 0 000000100000 0 336000000000 -FT1A 032715 0 0 0 000000100000 0 000000100000 -FT9 032716 0 0 0 000000100000 0 000000100000 -ET0 032717 0 0 0 000000100000 0 000000100000 -ST1A 032717 0 0 0 000000100000 0 000000100000 -ST9 032717 0 0 0 000000100000 0 000000100000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 333 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0549 - -*032717 JUMPA 0,032720 -INITIAL -C(AC)=000000 100000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032717 032717 0 0 324000032720 0 000000032720 -IT1 032717 0 0 0 324000032720 0 000000032720 -AT3 032717 0 0 0 000000032720 0 324000032720 -AT6 032717 032720 0 0 000000032720 0 324000032720 -FT1A 032717 032720 0 0 000000032720 0 000000032720 -FT2 032717 032720 0 0 0 0 000000032720 -FT2RQ 032717 032720 0 0 000000100000 0 000000032720 -FT3 032717 032720 0 0 000000100000 0 000000032720 -FT9 032720 032720 0 0 000000100000 0 000000032720 -ET0 032720 032720 0 0 000000100000 0 000000032720 -ST1A 032720 032720 0 0 000000100000 0 000000032720 -ST9 032720 032720 0 0 000000100000 0 000000032720 - - -*032720 MOVE 0,035114 -INITIAL -C(AC)=000000 100000 -C(E)=000000 200000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 032720 032720 0 0 200000035114 0 000000200000 -IT1 032720 0 0 0 200000035114 0 000000200000 -AT3 032720 0 0 0 000000035114 0 200000035114 -AT6 032720 035114 0 0 000000035114 0 200000035114 -FT0 032720 035114 0 0 000000200000 0 200000035114 -FT1A 032720 035114 0 0 000000200000 0 000000200000 -FT9 032721 035114 0 0 000000200000 0 000000200000 -ET0 032721 035114 0 0 000000200000 0 000000200000 -ST1 032721 035114 0 0 000000200000 0 000000200000 -ST2 032721 035114 0 0 000000200000 0 000000200000 -ST9 032721 035114 0 0 000000200000 0 000000200000 - - -*032721 AND 0,000000 -INITIAL -C(AC)=000000 200000 -C(E)=000000 200000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 032721 032721 0 0 404000000000 0 000000200000 -IT1 032721 0 0 0 404000000000 0 000000200000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 334 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0550 - -AT3 032721 0 0 0 0 0 404000000000 -AT6 032721 0 0 0 0 0 404000000000 -FT0 032721 0 0 0 000000200000 0 404000000000 -FT1A 032721 0 0 0 000000200000 0 000000200000 -FT2 032721 0 0 0 0 0 000000200000 -FT2RQ 032721 0 0 0 000000200000 0 000000200000 -FT3 032721 0 0 0 000000200000 0 000000200000 -FT9 032722 0 0 0 000000200000 0 000000200000 -ET0 032722 0 0 0 000000200000 0 000000200000 -ST1 032722 0 0 0 000000200000 0 000000200000 -ST2 032722 0 0 0 000000200000 0 000000200000 -ST9 032722 0 0 0 000000200000 0 000000200000 - - -*032722 SKIPN 0,000000 -INITIAL -C(AC)=000000 200000 -C(E)=000000 200000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 032722 032722 0 0 336000000000 0 000000200000 -IT1 032722 0 0 0 336000000000 0 000000200000 -AT3 032722 0 0 0 0 0 336000000000 -AT6 032722 0 0 0 0 0 336000000000 -FT0 032722 0 0 0 000000200000 0 336000000000 -FT1A 032722 0 0 0 000000200000 0 000000200000 -FT9 032723 0 0 0 000000200000 0 000000200000 -ET0 032724 0 0 0 000000200000 0 000000200000 -ST1A 032724 0 0 0 000000200000 0 000000200000 -ST9 032724 0 0 0 000000200000 0 000000200000 - - -*032724 JUMPA 0,032725 -INITIAL -C(AC)=000000 200000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032724 032724 0 0 324000032725 0 000000032725 -IT1 032724 0 0 0 324000032725 0 000000032725 -AT3 032724 0 0 0 000000032725 0 324000032725 -AT6 032724 032725 0 0 000000032725 0 324000032725 -FT1A 032724 032725 0 0 000000032725 0 000000032725 -FT2 032724 032725 0 0 0 0 000000032725 -FT2RQ 032724 032725 0 0 000000200000 0 000000032725 -FT3 032724 032725 0 0 000000200000 0 000000032725 -FT9 032725 032725 0 0 000000200000 0 000000032725 -ET0 032725 032725 0 0 000000200000 0 000000032725 -ST1A 032725 032725 0 0 000000200000 0 000000032725 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 335 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0551 - -ST9 032725 032725 0 0 000000200000 0 000000032725 - - -*032725 MOVE 0,035115 -INITIAL -C(AC)=000000 200000 -C(E)=000000 400000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 032725 032725 0 0 200000035115 0 000000400000 -IT1 032725 0 0 0 200000035115 0 000000400000 -AT3 032725 0 0 0 000000035115 0 200000035115 -AT6 032725 035115 0 0 000000035115 0 200000035115 -FT0 032725 035115 0 0 000000400000 0 200000035115 -FT1A 032725 035115 0 0 000000400000 0 000000400000 -FT9 032726 035115 0 0 000000400000 0 000000400000 -ET0 032726 035115 0 0 000000400000 0 000000400000 -ST1 032726 035115 0 0 000000400000 0 000000400000 -ST2 032726 035115 0 0 000000400000 0 000000400000 -ST9 032726 035115 0 0 000000400000 0 000000400000 - - -*032726 AND 0,000000 -INITIAL -C(AC)=000000 400000 -C(E)=000000 400000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 032726 032726 0 0 404000000000 0 000000400000 -IT1 032726 0 0 0 404000000000 0 000000400000 -AT3 032726 0 0 0 0 0 404000000000 -AT6 032726 0 0 0 0 0 404000000000 -FT0 032726 0 0 0 000000400000 0 404000000000 -FT1A 032726 0 0 0 000000400000 0 000000400000 -FT2 032726 0 0 0 0 0 000000400000 -FT2RQ 032726 0 0 0 000000400000 0 000000400000 -FT3 032726 0 0 0 000000400000 0 000000400000 -FT9 032727 0 0 0 000000400000 0 000000400000 -ET0 032727 0 0 0 000000400000 0 000000400000 -ST1 032727 0 0 0 000000400000 0 000000400000 -ST2 032727 0 0 0 000000400000 0 000000400000 -ST9 032727 0 0 0 000000400000 0 000000400000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 336 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0552 - -*032727 SKIPN 0,000000 -INITIAL -C(AC)=000000 400000 -C(E)=000000 400000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 032727 032727 0 0 336000000000 0 000000400000 -IT1 032727 0 0 0 336000000000 0 000000400000 -AT3 032727 0 0 0 0 0 336000000000 -AT6 032727 0 0 0 0 0 336000000000 -FT0 032727 0 0 0 000000400000 0 336000000000 -FT1A 032727 0 0 0 000000400000 0 000000400000 -FT9 032730 0 0 0 000000400000 0 000000400000 -ET0 032731 0 0 0 000000400000 0 000000400000 -ST1A 032731 0 0 0 000000400000 0 000000400000 -ST9 032731 0 0 0 000000400000 0 000000400000 - - -*032731 JUMPA 0,032732 -INITIAL -C(AC)=000000 400000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032731 032731 0 0 324000032732 0 000000032732 -IT1 032731 0 0 0 324000032732 0 000000032732 -AT3 032731 0 0 0 000000032732 0 324000032732 -AT6 032731 032732 0 0 000000032732 0 324000032732 -FT1A 032731 032732 0 0 000000032732 0 000000032732 -FT2 032731 032732 0 0 0 0 000000032732 -FT2RQ 032731 032732 0 0 000000400000 0 000000032732 -FT3 032731 032732 0 0 000000400000 0 000000032732 -FT9 032732 032732 0 0 000000400000 0 000000032732 -ET0 032732 032732 0 0 000000400000 0 000000032732 -ST1A 032732 032732 0 0 000000400000 0 000000032732 -ST9 032732 032732 0 0 000000400000 0 000000032732 - - -*032732 MOVE 0,035116 -INITIAL -C(AC)=000000 400000 -C(E)=000001 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032732 032732 0 0 200000035116 0 000001000000 -IT1 032732 0 0 0 200000035116 0 000001000000 -AT3 032732 0 0 0 000000035116 0 200000035116 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 337 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0553 - -AT6 032732 035116 0 0 000000035116 0 200000035116 -FT0 032732 035116 0 0 000001000000 0 200000035116 -FT1A 032732 035116 0 0 000001000000 0 000001000000 -FT9 032733 035116 0 0 000001000000 0 000001000000 -ET0 032733 035116 0 0 000001000000 0 000001000000 -ST1 032733 035116 0 0 000001000000 0 000001000000 -ST2 032733 035116 0 0 000001000000 0 000001000000 -ST9 032733 035116 0 0 000001000000 0 000001000000 - - -*032733 AND 0,000000 -INITIAL -C(AC)=000001 000000 -C(E)=000001 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032733 032733 0 0 404000000000 0 000001000000 -IT1 032733 0 0 0 404000000000 0 000001000000 -AT3 032733 0 0 0 0 0 404000000000 -AT6 032733 0 0 0 0 0 404000000000 -FT0 032733 0 0 0 000001000000 0 404000000000 -FT1A 032733 0 0 0 000001000000 0 000001000000 -FT2 032733 0 0 0 0 0 000001000000 -FT2RQ 032733 0 0 0 000001000000 0 000001000000 -FT3 032733 0 0 0 000001000000 0 000001000000 -FT9 032734 0 0 0 000001000000 0 000001000000 -ET0 032734 0 0 0 000001000000 0 000001000000 -ST1 032734 0 0 0 000001000000 0 000001000000 -ST2 032734 0 0 0 000001000000 0 000001000000 -ST9 032734 0 0 0 000001000000 0 000001000000 - - -*032734 SKIPN 0,000000 -INITIAL -C(AC)=000001 000000 -C(E)=000001 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032734 032734 0 0 336000000000 0 000001000000 -IT1 032734 0 0 0 336000000000 0 000001000000 -AT3 032734 0 0 0 0 0 336000000000 -AT6 032734 0 0 0 0 0 336000000000 -FT0 032734 0 0 0 000001000000 0 336000000000 -FT1A 032734 0 0 0 000001000000 0 000001000000 -FT9 032735 0 0 0 000001000000 0 000001000000 -ET0 032736 0 0 0 000001000000 0 000001000000 -ST1A 032736 0 0 0 000001000000 0 000001000000 -ST9 032736 0 0 0 000001000000 0 000001000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 338 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0554 - - - -*032736 JUMPA 0,032737 -INITIAL -C(AC)=000001 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032736 032736 0 0 324000032737 0 000000032737 -IT1 032736 0 0 0 324000032737 0 000000032737 -AT3 032736 0 0 0 000000032737 0 324000032737 -AT6 032736 032737 0 0 000000032737 0 324000032737 -FT1A 032736 032737 0 0 000000032737 0 000000032737 -FT2 032736 032737 0 0 0 0 000000032737 -FT2RQ 032736 032737 0 0 000001000000 0 000000032737 -FT3 032736 032737 0 0 000001000000 0 000000032737 -FT9 032737 032737 0 0 000001000000 0 000000032737 -ET0 032737 032737 0 0 000001000000 0 000000032737 -ST1A 032737 032737 0 0 000001000000 0 000000032737 -ST9 032737 032737 0 0 000001000000 0 000000032737 - - -*032737 MOVE 0,035117 -INITIAL -C(AC)=000001 000000 -C(E)=000002 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032737 032737 0 0 200000035117 0 000002000000 -IT1 032737 0 0 0 200000035117 0 000002000000 -AT3 032737 0 0 0 000000035117 0 200000035117 -AT6 032737 035117 0 0 000000035117 0 200000035117 -FT0 032737 035117 0 0 000002000000 0 200000035117 -FT1A 032737 035117 0 0 000002000000 0 000002000000 -FT9 032740 035117 0 0 000002000000 0 000002000000 -ET0 032740 035117 0 0 000002000000 0 000002000000 -ST1 032740 035117 0 0 000002000000 0 000002000000 -ST2 032740 035117 0 0 000002000000 0 000002000000 -ST9 032740 035117 0 0 000002000000 0 000002000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 339 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0555 - -*032740 AND 0,000000 -INITIAL -C(AC)=000002 000000 -C(E)=000002 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032740 032740 0 0 404000000000 0 000002000000 -IT1 032740 0 0 0 404000000000 0 000002000000 -AT3 032740 0 0 0 0 0 404000000000 -AT6 032740 0 0 0 0 0 404000000000 -FT0 032740 0 0 0 000002000000 0 404000000000 -FT1A 032740 0 0 0 000002000000 0 000002000000 -FT2 032740 0 0 0 0 0 000002000000 -FT2RQ 032740 0 0 0 000002000000 0 000002000000 -FT3 032740 0 0 0 000002000000 0 000002000000 -FT9 032741 0 0 0 000002000000 0 000002000000 -ET0 032741 0 0 0 000002000000 0 000002000000 -ST1 032741 0 0 0 000002000000 0 000002000000 -ST2 032741 0 0 0 000002000000 0 000002000000 -ST9 032741 0 0 0 000002000000 0 000002000000 - - -*032741 SKIPN 0,000000 -INITIAL -C(AC)=000002 000000 -C(E)=000002 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032741 032741 0 0 336000000000 0 000002000000 -IT1 032741 0 0 0 336000000000 0 000002000000 -AT3 032741 0 0 0 0 0 336000000000 -AT6 032741 0 0 0 0 0 336000000000 -FT0 032741 0 0 0 000002000000 0 336000000000 -FT1A 032741 0 0 0 000002000000 0 000002000000 -FT9 032742 0 0 0 000002000000 0 000002000000 -ET0 032743 0 0 0 000002000000 0 000002000000 -ST1A 032743 0 0 0 000002000000 0 000002000000 -ST9 032743 0 0 0 000002000000 0 000002000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 340 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0556 - -*032743 JUMPA 0,032744 -INITIAL -C(AC)=000002 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032743 032743 0 0 324000032744 0 000000032744 -IT1 032743 0 0 0 324000032744 0 000000032744 -AT3 032743 0 0 0 000000032744 0 324000032744 -AT6 032743 032744 0 0 000000032744 0 324000032744 -FT1A 032743 032744 0 0 000000032744 0 000000032744 -FT2 032743 032744 0 0 0 0 000000032744 -FT2RQ 032743 032744 0 0 000002000000 0 000000032744 -FT3 032743 032744 0 0 000002000000 0 000000032744 -FT9 032744 032744 0 0 000002000000 0 000000032744 -ET0 032744 032744 0 0 000002000000 0 000000032744 -ST1A 032744 032744 0 0 000002000000 0 000000032744 -ST9 032744 032744 0 0 000002000000 0 000000032744 - - -*032744 MOVE 0,035120 -INITIAL -C(AC)=000002 000000 -C(E)=000004 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032744 032744 0 0 200000035120 0 000004000000 -IT1 032744 0 0 0 200000035120 0 000004000000 -AT3 032744 0 0 0 000000035120 0 200000035120 -AT6 032744 035120 0 0 000000035120 0 200000035120 -FT0 032744 035120 0 0 000004000000 0 200000035120 -FT1A 032744 035120 0 0 000004000000 0 000004000000 -FT9 032745 035120 0 0 000004000000 0 000004000000 -ET0 032745 035120 0 0 000004000000 0 000004000000 -ST1 032745 035120 0 0 000004000000 0 000004000000 -ST2 032745 035120 0 0 000004000000 0 000004000000 -ST9 032745 035120 0 0 000004000000 0 000004000000 - - -*032745 AND 0,000000 -INITIAL -C(AC)=000004 000000 -C(E)=000004 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032745 032745 0 0 404000000000 0 000004000000 -IT1 032745 0 0 0 404000000000 0 000004000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 341 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0557 - -AT3 032745 0 0 0 0 0 404000000000 -AT6 032745 0 0 0 0 0 404000000000 -FT0 032745 0 0 0 000004000000 0 404000000000 -FT1A 032745 0 0 0 000004000000 0 000004000000 -FT2 032745 0 0 0 0 0 000004000000 -FT2RQ 032745 0 0 0 000004000000 0 000004000000 -FT3 032745 0 0 0 000004000000 0 000004000000 -FT9 032746 0 0 0 000004000000 0 000004000000 -ET0 032746 0 0 0 000004000000 0 000004000000 -ST1 032746 0 0 0 000004000000 0 000004000000 -ST2 032746 0 0 0 000004000000 0 000004000000 -ST9 032746 0 0 0 000004000000 0 000004000000 - - -*032746 SKIPN 0,000000 -INITIAL -C(AC)=000004 000000 -C(E)=000004 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032746 032746 0 0 336000000000 0 000004000000 -IT1 032746 0 0 0 336000000000 0 000004000000 -AT3 032746 0 0 0 0 0 336000000000 -AT6 032746 0 0 0 0 0 336000000000 -FT0 032746 0 0 0 000004000000 0 336000000000 -FT1A 032746 0 0 0 000004000000 0 000004000000 -FT9 032747 0 0 0 000004000000 0 000004000000 -ET0 032750 0 0 0 000004000000 0 000004000000 -ST1A 032750 0 0 0 000004000000 0 000004000000 -ST9 032750 0 0 0 000004000000 0 000004000000 - - -*032750 JUMPA 0,032751 -INITIAL -C(AC)=000004 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032750 032750 0 0 324000032751 0 000000032751 -IT1 032750 0 0 0 324000032751 0 000000032751 -AT3 032750 0 0 0 000000032751 0 324000032751 -AT6 032750 032751 0 0 000000032751 0 324000032751 -FT1A 032750 032751 0 0 000000032751 0 000000032751 -FT2 032750 032751 0 0 0 0 000000032751 -FT2RQ 032750 032751 0 0 000004000000 0 000000032751 -FT3 032750 032751 0 0 000004000000 0 000000032751 -FT9 032751 032751 0 0 000004000000 0 000000032751 -ET0 032751 032751 0 0 000004000000 0 000000032751 -ST1A 032751 032751 0 0 000004000000 0 000000032751 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 342 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0558 - -ST9 032751 032751 0 0 000004000000 0 000000032751 - - -*032751 MOVE 0,035121 -INITIAL -C(AC)=000004 000000 -C(E)=000010 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032751 032751 0 0 200000035121 0 000010000000 -IT1 032751 0 0 0 200000035121 0 000010000000 -AT3 032751 0 0 0 000000035121 0 200000035121 -AT6 032751 035121 0 0 000000035121 0 200000035121 -FT0 032751 035121 0 0 000010000000 0 200000035121 -FT1A 032751 035121 0 0 000010000000 0 000010000000 -FT9 032752 035121 0 0 000010000000 0 000010000000 -ET0 032752 035121 0 0 000010000000 0 000010000000 -ST1 032752 035121 0 0 000010000000 0 000010000000 -ST2 032752 035121 0 0 000010000000 0 000010000000 -ST9 032752 035121 0 0 000010000000 0 000010000000 - - -*032752 AND 0,000000 -INITIAL -C(AC)=000010 000000 -C(E)=000010 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032752 032752 0 0 404000000000 0 000010000000 -IT1 032752 0 0 0 404000000000 0 000010000000 -AT3 032752 0 0 0 0 0 404000000000 -AT6 032752 0 0 0 0 0 404000000000 -FT0 032752 0 0 0 000010000000 0 404000000000 -FT1A 032752 0 0 0 000010000000 0 000010000000 -FT2 032752 0 0 0 0 0 000010000000 -FT2RQ 032752 0 0 0 000010000000 0 000010000000 -FT3 032752 0 0 0 000010000000 0 000010000000 -FT9 032753 0 0 0 000010000000 0 000010000000 -ET0 032753 0 0 0 000010000000 0 000010000000 -ST1 032753 0 0 0 000010000000 0 000010000000 -ST2 032753 0 0 0 000010000000 0 000010000000 -ST9 032753 0 0 0 000010000000 0 000010000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 343 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0559 - -*032753 SKIPN 0,000000 -INITIAL -C(AC)=000010 000000 -C(E)=000010 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032753 032753 0 0 336000000000 0 000010000000 -IT1 032753 0 0 0 336000000000 0 000010000000 -AT3 032753 0 0 0 0 0 336000000000 -AT6 032753 0 0 0 0 0 336000000000 -FT0 032753 0 0 0 000010000000 0 336000000000 -FT1A 032753 0 0 0 000010000000 0 000010000000 -FT9 032754 0 0 0 000010000000 0 000010000000 -ET0 032755 0 0 0 000010000000 0 000010000000 -ST1A 032755 0 0 0 000010000000 0 000010000000 -ST9 032755 0 0 0 000010000000 0 000010000000 - - -*032755 JUMPA 0,032756 -INITIAL -C(AC)=000010 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032755 032755 0 0 324000032756 0 000000032756 -IT1 032755 0 0 0 324000032756 0 000000032756 -AT3 032755 0 0 0 000000032756 0 324000032756 -AT6 032755 032756 0 0 000000032756 0 324000032756 -FT1A 032755 032756 0 0 000000032756 0 000000032756 -FT2 032755 032756 0 0 0 0 000000032756 -FT2RQ 032755 032756 0 0 000010000000 0 000000032756 -FT3 032755 032756 0 0 000010000000 0 000000032756 -FT9 032756 032756 0 0 000010000000 0 000000032756 -ET0 032756 032756 0 0 000010000000 0 000000032756 -ST1A 032756 032756 0 0 000010000000 0 000000032756 -ST9 032756 032756 0 0 000010000000 0 000000032756 - - -*032756 MOVE 0,035122 -INITIAL -C(AC)=000010 000000 -C(E)=000020 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032756 032756 0 0 200000035122 0 000020000000 -IT1 032756 0 0 0 200000035122 0 000020000000 -AT3 032756 0 0 0 000000035122 0 200000035122 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 344 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0560 - -AT6 032756 035122 0 0 000000035122 0 200000035122 -FT0 032756 035122 0 0 000020000000 0 200000035122 -FT1A 032756 035122 0 0 000020000000 0 000020000000 -FT9 032757 035122 0 0 000020000000 0 000020000000 -ET0 032757 035122 0 0 000020000000 0 000020000000 -ST1 032757 035122 0 0 000020000000 0 000020000000 -ST2 032757 035122 0 0 000020000000 0 000020000000 -ST9 032757 035122 0 0 000020000000 0 000020000000 - - -*032757 AND 0,000000 -INITIAL -C(AC)=000020 000000 -C(E)=000020 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032757 032757 0 0 404000000000 0 000020000000 -IT1 032757 0 0 0 404000000000 0 000020000000 -AT3 032757 0 0 0 0 0 404000000000 -AT6 032757 0 0 0 0 0 404000000000 -FT0 032757 0 0 0 000020000000 0 404000000000 -FT1A 032757 0 0 0 000020000000 0 000020000000 -FT2 032757 0 0 0 0 0 000020000000 -FT2RQ 032757 0 0 0 000020000000 0 000020000000 -FT3 032757 0 0 0 000020000000 0 000020000000 -FT9 032760 0 0 0 000020000000 0 000020000000 -ET0 032760 0 0 0 000020000000 0 000020000000 -ST1 032760 0 0 0 000020000000 0 000020000000 -ST2 032760 0 0 0 000020000000 0 000020000000 -ST9 032760 0 0 0 000020000000 0 000020000000 - - -*032760 SKIPN 0,000000 -INITIAL -C(AC)=000020 000000 -C(E)=000020 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032760 032760 0 0 336000000000 0 000020000000 -IT1 032760 0 0 0 336000000000 0 000020000000 -AT3 032760 0 0 0 0 0 336000000000 -AT6 032760 0 0 0 0 0 336000000000 -FT0 032760 0 0 0 000020000000 0 336000000000 -FT1A 032760 0 0 0 000020000000 0 000020000000 -FT9 032761 0 0 0 000020000000 0 000020000000 -ET0 032762 0 0 0 000020000000 0 000020000000 -ST1A 032762 0 0 0 000020000000 0 000020000000 -ST9 032762 0 0 0 000020000000 0 000020000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 345 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0561 - - - -*032762 JUMPA 0,032763 -INITIAL -C(AC)=000020 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032762 032762 0 0 324000032763 0 000000032763 -IT1 032762 0 0 0 324000032763 0 000000032763 -AT3 032762 0 0 0 000000032763 0 324000032763 -AT6 032762 032763 0 0 000000032763 0 324000032763 -FT1A 032762 032763 0 0 000000032763 0 000000032763 -FT2 032762 032763 0 0 0 0 000000032763 -FT2RQ 032762 032763 0 0 000020000000 0 000000032763 -FT3 032762 032763 0 0 000020000000 0 000000032763 -FT9 032763 032763 0 0 000020000000 0 000000032763 -ET0 032763 032763 0 0 000020000000 0 000000032763 -ST1A 032763 032763 0 0 000020000000 0 000000032763 -ST9 032763 032763 0 0 000020000000 0 000000032763 - - -*032763 MOVE 0,035123 -INITIAL -C(AC)=000020 000000 -C(E)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032763 032763 0 0 200000035123 0 000040000000 -IT1 032763 0 0 0 200000035123 0 000040000000 -AT3 032763 0 0 0 000000035123 0 200000035123 -AT6 032763 035123 0 0 000000035123 0 200000035123 -FT0 032763 035123 0 0 000040000000 0 200000035123 -FT1A 032763 035123 0 0 000040000000 0 000040000000 -FT9 032764 035123 0 0 000040000000 0 000040000000 -ET0 032764 035123 0 0 000040000000 0 000040000000 -ST1 032764 035123 0 0 000040000000 0 000040000000 -ST2 032764 035123 0 0 000040000000 0 000040000000 -ST9 032764 035123 0 0 000040000000 0 000040000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 346 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0562 - -*032764 AND 0,000000 -INITIAL -C(AC)=000040 000000 -C(E)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032764 032764 0 0 404000000000 0 000040000000 -IT1 032764 0 0 0 404000000000 0 000040000000 -AT3 032764 0 0 0 0 0 404000000000 -AT6 032764 0 0 0 0 0 404000000000 -FT0 032764 0 0 0 000040000000 0 404000000000 -FT1A 032764 0 0 0 000040000000 0 000040000000 -FT2 032764 0 0 0 0 0 000040000000 -FT2RQ 032764 0 0 0 000040000000 0 000040000000 -FT3 032764 0 0 0 000040000000 0 000040000000 -FT9 032765 0 0 0 000040000000 0 000040000000 -ET0 032765 0 0 0 000040000000 0 000040000000 -ST1 032765 0 0 0 000040000000 0 000040000000 -ST2 032765 0 0 0 000040000000 0 000040000000 -ST9 032765 0 0 0 000040000000 0 000040000000 - - -*032765 SKIPN 0,000000 -INITIAL -C(AC)=000040 000000 -C(E)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032765 032765 0 0 336000000000 0 000040000000 -IT1 032765 0 0 0 336000000000 0 000040000000 -AT3 032765 0 0 0 0 0 336000000000 -AT6 032765 0 0 0 0 0 336000000000 -FT0 032765 0 0 0 000040000000 0 336000000000 -FT1A 032765 0 0 0 000040000000 0 000040000000 -FT9 032766 0 0 0 000040000000 0 000040000000 -ET0 032767 0 0 0 000040000000 0 000040000000 -ST1A 032767 0 0 0 000040000000 0 000040000000 -ST9 032767 0 0 0 000040000000 0 000040000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 347 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0563 - -*032767 JUMPA 0,032770 -INITIAL -C(AC)=000040 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032767 032767 0 0 324000032770 0 000000032770 -IT1 032767 0 0 0 324000032770 0 000000032770 -AT3 032767 0 0 0 000000032770 0 324000032770 -AT6 032767 032770 0 0 000000032770 0 324000032770 -FT1A 032767 032770 0 0 000000032770 0 000000032770 -FT2 032767 032770 0 0 0 0 000000032770 -FT2RQ 032767 032770 0 0 000040000000 0 000000032770 -FT3 032767 032770 0 0 000040000000 0 000000032770 -FT9 032770 032770 0 0 000040000000 0 000000032770 -ET0 032770 032770 0 0 000040000000 0 000000032770 -ST1A 032770 032770 0 0 000040000000 0 000000032770 -ST9 032770 032770 0 0 000040000000 0 000000032770 - - -*032770 MOVE 0,035124 -INITIAL -C(AC)=000040 000000 -C(E)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032770 032770 0 0 200000035124 0 000100000000 -IT1 032770 0 0 0 200000035124 0 000100000000 -AT3 032770 0 0 0 000000035124 0 200000035124 -AT6 032770 035124 0 0 000000035124 0 200000035124 -FT0 032770 035124 0 0 000100000000 0 200000035124 -FT1A 032770 035124 0 0 000100000000 0 000100000000 -FT9 032771 035124 0 0 000100000000 0 000100000000 -ET0 032771 035124 0 0 000100000000 0 000100000000 -ST1 032771 035124 0 0 000100000000 0 000100000000 -ST2 032771 035124 0 0 000100000000 0 000100000000 -ST9 032771 035124 0 0 000100000000 0 000100000000 - - -*032771 AND 0,000000 -INITIAL -C(AC)=000100 000000 -C(E)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032771 032771 0 0 404000000000 0 000100000000 -IT1 032771 0 0 0 404000000000 0 000100000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 348 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0564 - -AT3 032771 0 0 0 0 0 404000000000 -AT6 032771 0 0 0 0 0 404000000000 -FT0 032771 0 0 0 000100000000 0 404000000000 -FT1A 032771 0 0 0 000100000000 0 000100000000 -FT2 032771 0 0 0 0 0 000100000000 -FT2RQ 032771 0 0 0 000100000000 0 000100000000 -FT3 032771 0 0 0 000100000000 0 000100000000 -FT9 032772 0 0 0 000100000000 0 000100000000 -ET0 032772 0 0 0 000100000000 0 000100000000 -ST1 032772 0 0 0 000100000000 0 000100000000 -ST2 032772 0 0 0 000100000000 0 000100000000 -ST9 032772 0 0 0 000100000000 0 000100000000 - - -*032772 SKIPN 0,000000 -INITIAL -C(AC)=000100 000000 -C(E)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032772 032772 0 0 336000000000 0 000100000000 -IT1 032772 0 0 0 336000000000 0 000100000000 -AT3 032772 0 0 0 0 0 336000000000 -AT6 032772 0 0 0 0 0 336000000000 -FT0 032772 0 0 0 000100000000 0 336000000000 -FT1A 032772 0 0 0 000100000000 0 000100000000 -FT9 032773 0 0 0 000100000000 0 000100000000 -ET0 032774 0 0 0 000100000000 0 000100000000 -ST1A 032774 0 0 0 000100000000 0 000100000000 -ST9 032774 0 0 0 000100000000 0 000100000000 - - -*032774 JUMPA 0,032775 -INITIAL -C(AC)=000100 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032774 032774 0 0 324000032775 0 000000032775 -IT1 032774 0 0 0 324000032775 0 000000032775 -AT3 032774 0 0 0 000000032775 0 324000032775 -AT6 032774 032775 0 0 000000032775 0 324000032775 -FT1A 032774 032775 0 0 000000032775 0 000000032775 -FT2 032774 032775 0 0 0 0 000000032775 -FT2RQ 032774 032775 0 0 000100000000 0 000000032775 -FT3 032774 032775 0 0 000100000000 0 000000032775 -FT9 032775 032775 0 0 000100000000 0 000000032775 -ET0 032775 032775 0 0 000100000000 0 000000032775 -ST1A 032775 032775 0 0 000100000000 0 000000032775 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 349 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0565 - -ST9 032775 032775 0 0 000100000000 0 000000032775 - - -*032775 MOVE 0,035125 -INITIAL -C(AC)=000100 000000 -C(E)=000200 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032775 032775 0 0 200000035125 0 000200000000 -IT1 032775 0 0 0 200000035125 0 000200000000 -AT3 032775 0 0 0 000000035125 0 200000035125 -AT6 032775 035125 0 0 000000035125 0 200000035125 -FT0 032775 035125 0 0 000200000000 0 200000035125 -FT1A 032775 035125 0 0 000200000000 0 000200000000 -FT9 032776 035125 0 0 000200000000 0 000200000000 -ET0 032776 035125 0 0 000200000000 0 000200000000 -ST1 032776 035125 0 0 000200000000 0 000200000000 -ST2 032776 035125 0 0 000200000000 0 000200000000 -ST9 032776 035125 0 0 000200000000 0 000200000000 - - -*032776 AND 0,000000 -INITIAL -C(AC)=000200 000000 -C(E)=000200 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032776 032776 0 0 404000000000 0 000200000000 -IT1 032776 0 0 0 404000000000 0 000200000000 -AT3 032776 0 0 0 0 0 404000000000 -AT6 032776 0 0 0 0 0 404000000000 -FT0 032776 0 0 0 000200000000 0 404000000000 -FT1A 032776 0 0 0 000200000000 0 000200000000 -FT2 032776 0 0 0 0 0 000200000000 -FT2RQ 032776 0 0 0 000200000000 0 000200000000 -FT3 032776 0 0 0 000200000000 0 000200000000 -FT9 032777 0 0 0 000200000000 0 000200000000 -ET0 032777 0 0 0 000200000000 0 000200000000 -ST1 032777 0 0 0 000200000000 0 000200000000 -ST2 032777 0 0 0 000200000000 0 000200000000 -ST9 032777 0 0 0 000200000000 0 000200000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 350 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0566 - -*032777 SKIPN 0,000000 -INITIAL -C(AC)=000200 000000 -C(E)=000200 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032777 032777 0 0 336000000000 0 000200000000 -IT1 032777 0 0 0 336000000000 0 000200000000 -AT3 032777 0 0 0 0 0 336000000000 -AT6 032777 0 0 0 0 0 336000000000 -FT0 032777 0 0 0 000200000000 0 336000000000 -FT1A 032777 0 0 0 000200000000 0 000200000000 -FT9 0 0 0 0 000200000000 0 000200000000 -ET0 033001 0 0 0 000200000000 0 000200000000 -ST1A 033001 0 0 0 000200000000 0 000200000000 -ST9 033001 0 0 0 000200000000 0 000200000000 - - -*033001 JUMPA 0,033002 -INITIAL -C(AC)=000200 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033001 033001 0 0 324000033002 0 000000033002 -IT1 033001 0 0 0 324000033002 0 000000033002 -AT3 033001 0 0 0 000000033002 0 324000033002 -AT6 033001 033002 0 0 000000033002 0 324000033002 -FT1A 033001 033002 0 0 000000033002 0 000000033002 -FT2 033001 033002 0 0 0 0 000000033002 -FT2RQ 033001 033002 0 0 000200000000 0 000000033002 -FT3 033001 033002 0 0 000200000000 0 000000033002 -FT9 033002 033002 0 0 000200000000 0 000000033002 -ET0 033002 033002 0 0 000200000000 0 000000033002 -ST1A 033002 033002 0 0 000200000000 0 000000033002 -ST9 033002 033002 0 0 000200000000 0 000000033002 - - -*033002 MOVE 0,035073 -INITIAL -C(AC)=000200 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033002 033002 0 0 200000035073 0 000400000000 -IT1 033002 0 0 0 200000035073 0 000400000000 -AT3 033002 0 0 0 000000035073 0 200000035073 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 351 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0567 - -AT6 033002 035073 0 0 000000035073 0 200000035073 -FT0 033002 035073 0 0 000400000000 0 200000035073 -FT1A 033002 035073 0 0 000400000000 0 000400000000 -FT9 033003 035073 0 0 000400000000 0 000400000000 -ET0 033003 035073 0 0 000400000000 0 000400000000 -ST1 033003 035073 0 0 000400000000 0 000400000000 -ST2 033003 035073 0 0 000400000000 0 000400000000 -ST9 033003 035073 0 0 000400000000 0 000400000000 - - -*033003 AND 0,000000 -INITIAL -C(AC)=000400 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033003 033003 0 0 404000000000 0 000400000000 -IT1 033003 0 0 0 404000000000 0 000400000000 -AT3 033003 0 0 0 0 0 404000000000 -AT6 033003 0 0 0 0 0 404000000000 -FT0 033003 0 0 0 000400000000 0 404000000000 -FT1A 033003 0 0 0 000400000000 0 000400000000 -FT2 033003 0 0 0 0 0 000400000000 -FT2RQ 033003 0 0 0 000400000000 0 000400000000 -FT3 033003 0 0 0 000400000000 0 000400000000 -FT9 033004 0 0 0 000400000000 0 000400000000 -ET0 033004 0 0 0 000400000000 0 000400000000 -ST1 033004 0 0 0 000400000000 0 000400000000 -ST2 033004 0 0 0 000400000000 0 000400000000 -ST9 033004 0 0 0 000400000000 0 000400000000 - - -*033004 SKIPN 0,000000 -INITIAL -C(AC)=000400 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033004 033004 0 0 336000000000 0 000400000000 -IT1 033004 0 0 0 336000000000 0 000400000000 -AT3 033004 0 0 0 0 0 336000000000 -AT6 033004 0 0 0 0 0 336000000000 -FT0 033004 0 0 0 000400000000 0 336000000000 -FT1A 033004 0 0 0 000400000000 0 000400000000 -FT9 033005 0 0 0 000400000000 0 000400000000 -ET0 033006 0 0 0 000400000000 0 000400000000 -ST1A 033006 0 0 0 000400000000 0 000400000000 -ST9 033006 0 0 0 000400000000 0 000400000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 352 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0568 - - - -*033006 JUMPA 0,033007 -INITIAL -C(AC)=000400 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033006 033006 0 0 324000033007 0 000000033007 -IT1 033006 0 0 0 324000033007 0 000000033007 -AT3 033006 0 0 0 000000033007 0 324000033007 -AT6 033006 033007 0 0 000000033007 0 324000033007 -FT1A 033006 033007 0 0 000000033007 0 000000033007 -FT2 033006 033007 0 0 0 0 000000033007 -FT2RQ 033006 033007 0 0 000400000000 0 000000033007 -FT3 033006 033007 0 0 000400000000 0 000000033007 -FT9 033007 033007 0 0 000400000000 0 000000033007 -ET0 033007 033007 0 0 000400000000 0 000000033007 -ST1A 033007 033007 0 0 000400000000 0 000000033007 -ST9 033007 033007 0 0 000400000000 0 000000033007 - - -*033007 MOVE 0,035126 -INITIAL -C(AC)=000400 000000 -C(E)=001000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033007 033007 0 0 200000035126 0 001000000000 -IT1 033007 0 0 0 200000035126 0 001000000000 -AT3 033007 0 0 0 000000035126 0 200000035126 -AT6 033007 035126 0 0 000000035126 0 200000035126 -FT0 033007 035126 0 0 001000000000 0 200000035126 -FT1A 033007 035126 0 0 001000000000 0 001000000000 -FT9 033010 035126 0 0 001000000000 0 001000000000 -ET0 033010 035126 0 0 001000000000 0 001000000000 -ST1 033010 035126 0 0 001000000000 0 001000000000 -ST2 033010 035126 0 0 001000000000 0 001000000000 -ST9 033010 035126 0 0 001000000000 0 001000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 353 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0569 - -*033010 AND 0,000000 -INITIAL -C(AC)=001000 000000 -C(E)=001000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033010 033010 0 0 404000000000 0 001000000000 -IT1 033010 0 0 0 404000000000 0 001000000000 -AT3 033010 0 0 0 0 0 404000000000 -AT6 033010 0 0 0 0 0 404000000000 -FT0 033010 0 0 0 001000000000 0 404000000000 -FT1A 033010 0 0 0 001000000000 0 001000000000 -FT2 033010 0 0 0 0 0 001000000000 -FT2RQ 033010 0 0 0 001000000000 0 001000000000 -FT3 033010 0 0 0 001000000000 0 001000000000 -FT9 033011 0 0 0 001000000000 0 001000000000 -ET0 033011 0 0 0 001000000000 0 001000000000 -ST1 033011 0 0 0 001000000000 0 001000000000 -ST2 033011 0 0 0 001000000000 0 001000000000 -ST9 033011 0 0 0 001000000000 0 001000000000 - - -*033011 SKIPN 0,000000 -INITIAL -C(AC)=001000 000000 -C(E)=001000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033011 033011 0 0 336000000000 0 001000000000 -IT1 033011 0 0 0 336000000000 0 001000000000 -AT3 033011 0 0 0 0 0 336000000000 -AT6 033011 0 0 0 0 0 336000000000 -FT0 033011 0 0 0 001000000000 0 336000000000 -FT1A 033011 0 0 0 001000000000 0 001000000000 -FT9 033012 0 0 0 001000000000 0 001000000000 -ET0 033013 0 0 0 001000000000 0 001000000000 -ST1A 033013 0 0 0 001000000000 0 001000000000 -ST9 033013 0 0 0 001000000000 0 001000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 354 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0570 - -*033013 JUMPA 0,033014 -INITIAL -C(AC)=001000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033013 033013 0 0 324000033014 0 000000033014 -IT1 033013 0 0 0 324000033014 0 000000033014 -AT3 033013 0 0 0 000000033014 0 324000033014 -AT6 033013 033014 0 0 000000033014 0 324000033014 -FT1A 033013 033014 0 0 000000033014 0 000000033014 -FT2 033013 033014 0 0 0 0 000000033014 -FT2RQ 033013 033014 0 0 001000000000 0 000000033014 -FT3 033013 033014 0 0 001000000000 0 000000033014 -FT9 033014 033014 0 0 001000000000 0 000000033014 -ET0 033014 033014 0 0 001000000000 0 000000033014 -ST1A 033014 033014 0 0 001000000000 0 000000033014 -ST9 033014 033014 0 0 001000000000 0 000000033014 - - -*033014 MOVE 0,035127 -INITIAL -C(AC)=001000 000000 -C(E)=002000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033014 033014 0 0 200000035127 0 002000000000 -IT1 033014 0 0 0 200000035127 0 002000000000 -AT3 033014 0 0 0 000000035127 0 200000035127 -AT6 033014 035127 0 0 000000035127 0 200000035127 -FT0 033014 035127 0 0 002000000000 0 200000035127 -FT1A 033014 035127 0 0 002000000000 0 002000000000 -FT9 033015 035127 0 0 002000000000 0 002000000000 -ET0 033015 035127 0 0 002000000000 0 002000000000 -ST1 033015 035127 0 0 002000000000 0 002000000000 -ST2 033015 035127 0 0 002000000000 0 002000000000 -ST9 033015 035127 0 0 002000000000 0 002000000000 - - -*033015 AND 0,000000 -INITIAL -C(AC)=002000 000000 -C(E)=002000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033015 033015 0 0 404000000000 0 002000000000 -IT1 033015 0 0 0 404000000000 0 002000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 355 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0571 - -AT3 033015 0 0 0 0 0 404000000000 -AT6 033015 0 0 0 0 0 404000000000 -FT0 033015 0 0 0 002000000000 0 404000000000 -FT1A 033015 0 0 0 002000000000 0 002000000000 -FT2 033015 0 0 0 0 0 002000000000 -FT2RQ 033015 0 0 0 002000000000 0 002000000000 -FT3 033015 0 0 0 002000000000 0 002000000000 -FT9 033016 0 0 0 002000000000 0 002000000000 -ET0 033016 0 0 0 002000000000 0 002000000000 -ST1 033016 0 0 0 002000000000 0 002000000000 -ST2 033016 0 0 0 002000000000 0 002000000000 -ST9 033016 0 0 0 002000000000 0 002000000000 - - -*033016 SKIPN 0,000000 -INITIAL -C(AC)=002000 000000 -C(E)=002000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033016 033016 0 0 336000000000 0 002000000000 -IT1 033016 0 0 0 336000000000 0 002000000000 -AT3 033016 0 0 0 0 0 336000000000 -AT6 033016 0 0 0 0 0 336000000000 -FT0 033016 0 0 0 002000000000 0 336000000000 -FT1A 033016 0 0 0 002000000000 0 002000000000 -FT9 033017 0 0 0 002000000000 0 002000000000 -ET0 033020 0 0 0 002000000000 0 002000000000 -ST1A 033020 0 0 0 002000000000 0 002000000000 -ST9 033020 0 0 0 002000000000 0 002000000000 - - -*033020 JUMPA 0,033021 -INITIAL -C(AC)=002000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033020 033020 0 0 324000033021 0 000000033021 -IT1 033020 0 0 0 324000033021 0 000000033021 -AT3 033020 0 0 0 000000033021 0 324000033021 -AT6 033020 033021 0 0 000000033021 0 324000033021 -FT1A 033020 033021 0 0 000000033021 0 000000033021 -FT2 033020 033021 0 0 0 0 000000033021 -FT2RQ 033020 033021 0 0 002000000000 0 000000033021 -FT3 033020 033021 0 0 002000000000 0 000000033021 -FT9 033021 033021 0 0 002000000000 0 000000033021 -ET0 033021 033021 0 0 002000000000 0 000000033021 -ST1A 033021 033021 0 0 002000000000 0 000000033021 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 356 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0572 - -ST9 033021 033021 0 0 002000000000 0 000000033021 - - -*033021 MOVE 0,035130 -INITIAL -C(AC)=002000 000000 -C(E)=004000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033021 033021 0 0 200000035130 0 004000000000 -IT1 033021 0 0 0 200000035130 0 004000000000 -AT3 033021 0 0 0 000000035130 0 200000035130 -AT6 033021 035130 0 0 000000035130 0 200000035130 -FT0 033021 035130 0 0 004000000000 0 200000035130 -FT1A 033021 035130 0 0 004000000000 0 004000000000 -FT9 033022 035130 0 0 004000000000 0 004000000000 -ET0 033022 035130 0 0 004000000000 0 004000000000 -ST1 033022 035130 0 0 004000000000 0 004000000000 -ST2 033022 035130 0 0 004000000000 0 004000000000 -ST9 033022 035130 0 0 004000000000 0 004000000000 - - -*033022 AND 0,000000 -INITIAL -C(AC)=004000 000000 -C(E)=004000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033022 033022 0 0 404000000000 0 004000000000 -IT1 033022 0 0 0 404000000000 0 004000000000 -AT3 033022 0 0 0 0 0 404000000000 -AT6 033022 0 0 0 0 0 404000000000 -FT0 033022 0 0 0 004000000000 0 404000000000 -FT1A 033022 0 0 0 004000000000 0 004000000000 -FT2 033022 0 0 0 0 0 004000000000 -FT2RQ 033022 0 0 0 004000000000 0 004000000000 -FT3 033022 0 0 0 004000000000 0 004000000000 -FT9 033023 0 0 0 004000000000 0 004000000000 -ET0 033023 0 0 0 004000000000 0 004000000000 -ST1 033023 0 0 0 004000000000 0 004000000000 -ST2 033023 0 0 0 004000000000 0 004000000000 -ST9 033023 0 0 0 004000000000 0 004000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 357 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0573 - -*033023 SKIPN 0,000000 -INITIAL -C(AC)=004000 000000 -C(E)=004000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033023 033023 0 0 336000000000 0 004000000000 -IT1 033023 0 0 0 336000000000 0 004000000000 -AT3 033023 0 0 0 0 0 336000000000 -AT6 033023 0 0 0 0 0 336000000000 -FT0 033023 0 0 0 004000000000 0 336000000000 -FT1A 033023 0 0 0 004000000000 0 004000000000 -FT9 033024 0 0 0 004000000000 0 004000000000 -ET0 033025 0 0 0 004000000000 0 004000000000 -ST1A 033025 0 0 0 004000000000 0 004000000000 -ST9 033025 0 0 0 004000000000 0 004000000000 - - -*033025 JUMPA 0,033026 -INITIAL -C(AC)=004000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033025 033025 0 0 324000033026 0 000000033026 -IT1 033025 0 0 0 324000033026 0 000000033026 -AT3 033025 0 0 0 000000033026 0 324000033026 -AT6 033025 033026 0 0 000000033026 0 324000033026 -FT1A 033025 033026 0 0 000000033026 0 000000033026 -FT2 033025 033026 0 0 0 0 000000033026 -FT2RQ 033025 033026 0 0 004000000000 0 000000033026 -FT3 033025 033026 0 0 004000000000 0 000000033026 -FT9 033026 033026 0 0 004000000000 0 000000033026 -ET0 033026 033026 0 0 004000000000 0 000000033026 -ST1A 033026 033026 0 0 004000000000 0 000000033026 -ST9 033026 033026 0 0 004000000000 0 000000033026 - - -*033026 MOVE 0,035131 -INITIAL -C(AC)=004000 000000 -C(E)=010000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033026 033026 0 0 200000035131 0 010000000000 -IT1 033026 0 0 0 200000035131 0 010000000000 -AT3 033026 0 0 0 000000035131 0 200000035131 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 358 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0574 - -AT6 033026 035131 0 0 000000035131 0 200000035131 -FT0 033026 035131 0 0 010000000000 0 200000035131 -FT1A 033026 035131 0 0 010000000000 0 010000000000 -FT9 033027 035131 0 0 010000000000 0 010000000000 -ET0 033027 035131 0 0 010000000000 0 010000000000 -ST1 033027 035131 0 0 010000000000 0 010000000000 -ST2 033027 035131 0 0 010000000000 0 010000000000 -ST9 033027 035131 0 0 010000000000 0 010000000000 - - -*033027 AND 0,000000 -INITIAL -C(AC)=010000 000000 -C(E)=010000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033027 033027 0 0 404000000000 0 010000000000 -IT1 033027 0 0 0 404000000000 0 010000000000 -AT3 033027 0 0 0 0 0 404000000000 -AT6 033027 0 0 0 0 0 404000000000 -FT0 033027 0 0 0 010000000000 0 404000000000 -FT1A 033027 0 0 0 010000000000 0 010000000000 -FT2 033027 0 0 0 0 0 010000000000 -FT2RQ 033027 0 0 0 010000000000 0 010000000000 -FT3 033027 0 0 0 010000000000 0 010000000000 -FT9 033030 0 0 0 010000000000 0 010000000000 -ET0 033030 0 0 0 010000000000 0 010000000000 -ST1 033030 0 0 0 010000000000 0 010000000000 -ST2 033030 0 0 0 010000000000 0 010000000000 -ST9 033030 0 0 0 010000000000 0 010000000000 - - -*033030 SKIPN 0,000000 -INITIAL -C(AC)=010000 000000 -C(E)=010000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033030 033030 0 0 336000000000 0 010000000000 -IT1 033030 0 0 0 336000000000 0 010000000000 -AT3 033030 0 0 0 0 0 336000000000 -AT6 033030 0 0 0 0 0 336000000000 -FT0 033030 0 0 0 010000000000 0 336000000000 -FT1A 033030 0 0 0 010000000000 0 010000000000 -FT9 033031 0 0 0 010000000000 0 010000000000 -ET0 033032 0 0 0 010000000000 0 010000000000 -ST1A 033032 0 0 0 010000000000 0 010000000000 -ST9 033032 0 0 0 010000000000 0 010000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 359 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0575 - - - -*033032 JUMPA 0,033033 -INITIAL -C(AC)=010000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033032 033032 0 0 324000033033 0 000000033033 -IT1 033032 0 0 0 324000033033 0 000000033033 -AT3 033032 0 0 0 000000033033 0 324000033033 -AT6 033032 033033 0 0 000000033033 0 324000033033 -FT1A 033032 033033 0 0 000000033033 0 000000033033 -FT2 033032 033033 0 0 0 0 000000033033 -FT2RQ 033032 033033 0 0 010000000000 0 000000033033 -FT3 033032 033033 0 0 010000000000 0 000000033033 -FT9 033033 033033 0 0 010000000000 0 000000033033 -ET0 033033 033033 0 0 010000000000 0 000000033033 -ST1A 033033 033033 0 0 010000000000 0 000000033033 -ST9 033033 033033 0 0 010000000000 0 000000033033 - - -*033033 MOVE 0,035132 -INITIAL -C(AC)=010000 000000 -C(E)=020000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033033 033033 0 0 200000035132 0 020000000000 -IT1 033033 0 0 0 200000035132 0 020000000000 -AT3 033033 0 0 0 000000035132 0 200000035132 -AT6 033033 035132 0 0 000000035132 0 200000035132 -FT0 033033 035132 0 0 020000000000 0 200000035132 -FT1A 033033 035132 0 0 020000000000 0 020000000000 -FT9 033034 035132 0 0 020000000000 0 020000000000 -ET0 033034 035132 0 0 020000000000 0 020000000000 -ST1 033034 035132 0 0 020000000000 0 020000000000 -ST2 033034 035132 0 0 020000000000 0 020000000000 -ST9 033034 035132 0 0 020000000000 0 020000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 360 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0576 - -*033034 AND 0,000000 -INITIAL -C(AC)=020000 000000 -C(E)=020000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033034 033034 0 0 404000000000 0 020000000000 -IT1 033034 0 0 0 404000000000 0 020000000000 -AT3 033034 0 0 0 0 0 404000000000 -AT6 033034 0 0 0 0 0 404000000000 -FT0 033034 0 0 0 020000000000 0 404000000000 -FT1A 033034 0 0 0 020000000000 0 020000000000 -FT2 033034 0 0 0 0 0 020000000000 -FT2RQ 033034 0 0 0 020000000000 0 020000000000 -FT3 033034 0 0 0 020000000000 0 020000000000 -FT9 033035 0 0 0 020000000000 0 020000000000 -ET0 033035 0 0 0 020000000000 0 020000000000 -ST1 033035 0 0 0 020000000000 0 020000000000 -ST2 033035 0 0 0 020000000000 0 020000000000 -ST9 033035 0 0 0 020000000000 0 020000000000 - - -*033035 SKIPN 0,000000 -INITIAL -C(AC)=020000 000000 -C(E)=020000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033035 033035 0 0 336000000000 0 020000000000 -IT1 033035 0 0 0 336000000000 0 020000000000 -AT3 033035 0 0 0 0 0 336000000000 -AT6 033035 0 0 0 0 0 336000000000 -FT0 033035 0 0 0 020000000000 0 336000000000 -FT1A 033035 0 0 0 020000000000 0 020000000000 -FT9 033036 0 0 0 020000000000 0 020000000000 -ET0 033037 0 0 0 020000000000 0 020000000000 -ST1A 033037 0 0 0 020000000000 0 020000000000 -ST9 033037 0 0 0 020000000000 0 020000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 361 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0577 - -*033037 JUMPA 0,033040 -INITIAL -C(AC)=020000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033037 033037 0 0 324000033040 0 000000033040 -IT1 033037 0 0 0 324000033040 0 000000033040 -AT3 033037 0 0 0 000000033040 0 324000033040 -AT6 033037 033040 0 0 000000033040 0 324000033040 -FT1A 033037 033040 0 0 000000033040 0 000000033040 -FT2 033037 033040 0 0 0 0 000000033040 -FT2RQ 033037 033040 0 0 020000000000 0 000000033040 -FT3 033037 033040 0 0 020000000000 0 000000033040 -FT9 033040 033040 0 0 020000000000 0 000000033040 -ET0 033040 033040 0 0 020000000000 0 000000033040 -ST1A 033040 033040 0 0 020000000000 0 000000033040 -ST9 033040 033040 0 0 020000000000 0 000000033040 - - -*033040 MOVE 0,035133 -INITIAL -C(AC)=020000 000000 -C(E)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033040 033040 0 0 200000035133 0 040000000000 -IT1 033040 0 0 0 200000035133 0 040000000000 -AT3 033040 0 0 0 000000035133 0 200000035133 -AT6 033040 035133 0 0 000000035133 0 200000035133 -FT0 033040 035133 0 0 040000000000 0 200000035133 -FT1A 033040 035133 0 0 040000000000 0 040000000000 -FT9 033041 035133 0 0 040000000000 0 040000000000 -ET0 033041 035133 0 0 040000000000 0 040000000000 -ST1 033041 035133 0 0 040000000000 0 040000000000 -ST2 033041 035133 0 0 040000000000 0 040000000000 -ST9 033041 035133 0 0 040000000000 0 040000000000 - - -*033041 AND 0,000000 -INITIAL -C(AC)=040000 000000 -C(E)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033041 033041 0 0 404000000000 0 040000000000 -IT1 033041 0 0 0 404000000000 0 040000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 362 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0578 - -AT3 033041 0 0 0 0 0 404000000000 -AT6 033041 0 0 0 0 0 404000000000 -FT0 033041 0 0 0 040000000000 0 404000000000 -FT1A 033041 0 0 0 040000000000 0 040000000000 -FT2 033041 0 0 0 0 0 040000000000 -FT2RQ 033041 0 0 0 040000000000 0 040000000000 -FT3 033041 0 0 0 040000000000 0 040000000000 -FT9 033042 0 0 0 040000000000 0 040000000000 -ET0 033042 0 0 0 040000000000 0 040000000000 -ST1 033042 0 0 0 040000000000 0 040000000000 -ST2 033042 0 0 0 040000000000 0 040000000000 -ST9 033042 0 0 0 040000000000 0 040000000000 - - -*033042 SKIPN 0,000000 -INITIAL -C(AC)=040000 000000 -C(E)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033042 033042 0 0 336000000000 0 040000000000 -IT1 033042 0 0 0 336000000000 0 040000000000 -AT3 033042 0 0 0 0 0 336000000000 -AT6 033042 0 0 0 0 0 336000000000 -FT0 033042 0 0 0 040000000000 0 336000000000 -FT1A 033042 0 0 0 040000000000 0 040000000000 -FT9 033043 0 0 0 040000000000 0 040000000000 -ET0 033044 0 0 0 040000000000 0 040000000000 -ST1A 033044 0 0 0 040000000000 0 040000000000 -ST9 033044 0 0 0 040000000000 0 040000000000 - - -*033044 JUMPA 0,033045 -INITIAL -C(AC)=040000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033044 033044 0 0 324000033045 0 000000033045 -IT1 033044 0 0 0 324000033045 0 000000033045 -AT3 033044 0 0 0 000000033045 0 324000033045 -AT6 033044 033045 0 0 000000033045 0 324000033045 -FT1A 033044 033045 0 0 000000033045 0 000000033045 -FT2 033044 033045 0 0 0 0 000000033045 -FT2RQ 033044 033045 0 0 040000000000 0 000000033045 -FT3 033044 033045 0 0 040000000000 0 000000033045 -FT9 033045 033045 0 0 040000000000 0 000000033045 -ET0 033045 033045 0 0 040000000000 0 000000033045 -ST1A 033045 033045 0 0 040000000000 0 000000033045 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 363 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0579 - -ST9 033045 033045 0 0 040000000000 0 000000033045 - - -*033045 MOVE 0,035134 -INITIAL -C(AC)=040000 000000 -C(E)=100000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033045 033045 0 0 200000035134 0 100000000000 -IT1 033045 0 0 0 200000035134 0 100000000000 -AT3 033045 0 0 0 000000035134 0 200000035134 -AT6 033045 035134 0 0 000000035134 0 200000035134 -FT0 033045 035134 0 0 100000000000 0 200000035134 -FT1A 033045 035134 0 0 100000000000 0 100000000000 -FT9 033046 035134 0 0 100000000000 0 100000000000 -ET0 033046 035134 0 0 100000000000 0 100000000000 -ST1 033046 035134 0 0 100000000000 0 100000000000 -ST2 033046 035134 0 0 100000000000 0 100000000000 -ST9 033046 035134 0 0 100000000000 0 100000000000 - - -*033046 AND 0,000000 -INITIAL -C(AC)=100000 000000 -C(E)=100000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033046 033046 0 0 404000000000 0 100000000000 -IT1 033046 0 0 0 404000000000 0 100000000000 -AT3 033046 0 0 0 0 0 404000000000 -AT6 033046 0 0 0 0 0 404000000000 -FT0 033046 0 0 0 100000000000 0 404000000000 -FT1A 033046 0 0 0 100000000000 0 100000000000 -FT2 033046 0 0 0 0 0 100000000000 -FT2RQ 033046 0 0 0 100000000000 0 100000000000 -FT3 033046 0 0 0 100000000000 0 100000000000 -FT9 033047 0 0 0 100000000000 0 100000000000 -ET0 033047 0 0 0 100000000000 0 100000000000 -ST1 033047 0 0 0 100000000000 0 100000000000 -ST2 033047 0 0 0 100000000000 0 100000000000 -ST9 033047 0 0 0 100000000000 0 100000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 364 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0580 - -*033047 SKIPN 0,000000 -INITIAL -C(AC)=100000 000000 -C(E)=100000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033047 033047 0 0 336000000000 0 100000000000 -IT1 033047 0 0 0 336000000000 0 100000000000 -AT3 033047 0 0 0 0 0 336000000000 -AT6 033047 0 0 0 0 0 336000000000 -FT0 033047 0 0 0 100000000000 0 336000000000 -FT1A 033047 0 0 0 100000000000 0 100000000000 -FT9 033050 0 0 0 100000000000 0 100000000000 -ET0 033051 0 0 0 100000000000 0 100000000000 -ST1A 033051 0 0 0 100000000000 0 100000000000 -ST9 033051 0 0 0 100000000000 0 100000000000 - - -*033051 JUMPA 0,033052 -INITIAL -C(AC)=100000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033051 033051 0 0 324000033052 0 000000033052 -IT1 033051 0 0 0 324000033052 0 000000033052 -AT3 033051 0 0 0 000000033052 0 324000033052 -AT6 033051 033052 0 0 000000033052 0 324000033052 -FT1A 033051 033052 0 0 000000033052 0 000000033052 -FT2 033051 033052 0 0 0 0 000000033052 -FT2RQ 033051 033052 0 0 100000000000 0 000000033052 -FT3 033051 033052 0 0 100000000000 0 000000033052 -FT9 033052 033052 0 0 100000000000 0 000000033052 -ET0 033052 033052 0 0 100000000000 0 000000033052 -ST1A 033052 033052 0 0 100000000000 0 000000033052 -ST9 033052 033052 0 0 100000000000 0 000000033052 - - -*033052 MOVE 0,035135 -INITIAL -C(AC)=100000 000000 -C(E)=200000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033052 033052 0 0 200000035135 0 200000000000 -IT1 033052 0 0 0 200000035135 0 200000000000 -AT3 033052 0 0 0 000000035135 0 200000035135 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 365 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0581 - -AT6 033052 035135 0 0 000000035135 0 200000035135 -FT0 033052 035135 0 0 200000000000 0 200000035135 -FT1A 033052 035135 0 0 200000000000 0 200000000000 -FT9 033053 035135 0 0 200000000000 0 200000000000 -ET0 033053 035135 0 0 200000000000 0 200000000000 -ST1 033053 035135 0 0 200000000000 0 200000000000 -ST2 033053 035135 0 0 200000000000 0 200000000000 -ST9 033053 035135 0 0 200000000000 0 200000000000 - - -*033053 AND 0,000000 -INITIAL -C(AC)=200000 000000 -C(E)=200000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033053 033053 0 0 404000000000 0 200000000000 -IT1 033053 0 0 0 404000000000 0 200000000000 -AT3 033053 0 0 0 0 0 404000000000 -AT6 033053 0 0 0 0 0 404000000000 -FT0 033053 0 0 0 200000000000 0 404000000000 -FT1A 033053 0 0 0 200000000000 0 200000000000 -FT2 033053 0 0 0 0 0 200000000000 -FT2RQ 033053 0 0 0 200000000000 0 200000000000 -FT3 033053 0 0 0 200000000000 0 200000000000 -FT9 033054 0 0 0 200000000000 0 200000000000 -ET0 033054 0 0 0 200000000000 0 200000000000 -ST1 033054 0 0 0 200000000000 0 200000000000 -ST2 033054 0 0 0 200000000000 0 200000000000 -ST9 033054 0 0 0 200000000000 0 200000000000 - - -*033054 SKIPN 0,000000 -INITIAL -C(AC)=200000 000000 -C(E)=200000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033054 033054 0 0 336000000000 0 200000000000 -IT1 033054 0 0 0 336000000000 0 200000000000 -AT3 033054 0 0 0 0 0 336000000000 -AT6 033054 0 0 0 0 0 336000000000 -FT0 033054 0 0 0 200000000000 0 336000000000 -FT1A 033054 0 0 0 200000000000 0 200000000000 -FT9 033055 0 0 0 200000000000 0 200000000000 -ET0 033056 0 0 0 200000000000 0 200000000000 -ST1A 033056 0 0 0 200000000000 0 200000000000 -ST9 033056 0 0 0 200000000000 0 200000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 366 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0582 - - - -*033056 JUMPA 0,033057 -INITIAL -C(AC)=200000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033056 033056 0 0 324000033057 0 000000033057 -IT1 033056 0 0 0 324000033057 0 000000033057 -AT3 033056 0 0 0 000000033057 0 324000033057 -AT6 033056 033057 0 0 000000033057 0 324000033057 -FT1A 033056 033057 0 0 000000033057 0 000000033057 -FT2 033056 033057 0 0 0 0 000000033057 -FT2RQ 033056 033057 0 0 200000000000 0 000000033057 -FT3 033056 033057 0 0 200000000000 0 000000033057 -FT9 033057 033057 0 0 200000000000 0 000000033057 -ET0 033057 033057 0 0 200000000000 0 000000033057 -ST1A 033057 033057 0 0 200000000000 0 000000033057 -ST9 033057 033057 0 0 200000000000 0 000000033057 - - -*033057 MOVE 0,035065 -INITIAL -C(AC)=200000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033057 033057 0 0 200000035065 0 400000000000 -IT1 033057 0 0 0 200000035065 0 400000000000 -AT3 033057 0 0 0 000000035065 0 200000035065 -AT6 033057 035065 0 0 000000035065 0 200000035065 -FT0 033057 035065 0 0 400000000000 0 200000035065 -FT1A 033057 035065 0 0 400000000000 0 400000000000 -FT9 033060 035065 0 0 400000000000 0 400000000000 -ET0 033060 035065 0 0 400000000000 0 400000000000 -ST1 033060 035065 0 0 400000000000 0 400000000000 -ST2 033060 035065 0 0 400000000000 0 400000000000 -ST9 033060 035065 0 0 400000000000 0 400000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 367 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0583 - -*033060 AND 0,000000 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033060 033060 0 0 404000000000 0 400000000000 -IT1 033060 0 0 0 404000000000 0 400000000000 -AT3 033060 0 0 0 0 0 404000000000 -AT6 033060 0 0 0 0 0 404000000000 -FT0 033060 0 0 0 400000000000 0 404000000000 -FT1A 033060 0 0 0 400000000000 0 400000000000 -FT2 033060 0 0 0 0 0 400000000000 -FT2RQ 033060 0 0 0 400000000000 0 400000000000 -FT3 033060 0 0 0 400000000000 0 400000000000 -FT9 033061 0 0 0 400000000000 0 400000000000 -ET0 033061 0 0 0 400000000000 0 400000000000 -ST1 033061 0 0 0 400000000000 0 400000000000 -ST2 033061 0 0 0 400000000000 0 400000000000 -ST9 033061 0 0 0 400000000000 0 400000000000 - - -*033061 SKIPN 0,000000 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033061 033061 0 0 336000000000 0 400000000000 -IT1 033061 0 0 0 336000000000 0 400000000000 -AT3 033061 0 0 0 0 0 336000000000 -AT6 033061 0 0 0 0 0 336000000000 -FT0 033061 0 0 0 400000000000 0 336000000000 -FT1A 033061 0 0 0 400000000000 0 400000000000 -FT9 033062 0 0 0 400000000000 0 400000000000 -ET0 033063 0 0 0 400000000000 0 400000000000 -ST1A 033063 0 0 0 400000000000 0 400000000000 -ST9 033063 0 0 0 400000000000 0 400000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 368 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0584 - -*033063 JUMPA 0,033064 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033063 033063 0 0 324000033064 0 000000033064 -IT1 033063 0 0 0 324000033064 0 000000033064 -AT3 033063 0 0 0 000000033064 0 324000033064 -AT6 033063 033064 0 0 000000033064 0 324000033064 -FT1A 033063 033064 0 0 000000033064 0 000000033064 -FT2 033063 033064 0 0 0 0 000000033064 -FT2RQ 033063 033064 0 0 400000000000 0 000000033064 -FT3 033063 033064 0 0 400000000000 0 000000033064 -FT9 033064 033064 0 0 400000000000 0 000000033064 -ET0 033064 033064 0 0 400000000000 0 000000033064 -ST1A 033064 033064 0 0 400000000000 0 000000033064 -ST9 033064 033064 0 0 400000000000 0 000000033064 - - -*033064 MOVE 0,035062 -INITIAL -C(AC)=400000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033064 033064 0 0 200000035062 0 0 -IT1 033064 0 0 0 200000035062 0 0 -AT3 033064 0 0 0 000000035062 0 200000035062 -AT6 033064 035062 0 0 000000035062 0 200000035062 -FT0 033064 035062 0 0 0 0 200000035062 -FT1A 033064 035062 0 0 0 0 0 -FT9 033065 035062 0 0 0 0 0 -ET0 033065 035062 0 0 0 0 0 -ST1 033065 035062 0 0 0 0 0 -ST2 033065 035062 0 0 0 0 0 -ST9 033065 035062 0 0 0 0 0 - - -*033065 AND 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033065 033065 0 0 404000035062 0 0 -IT1 033065 0 0 0 404000035062 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 369 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0585 - -AT3 033065 0 0 0 000000035062 0 404000035062 -AT6 033065 035062 0 0 000000035062 0 404000035062 -FT0 033065 035062 0 0 0 0 404000035062 -FT1A 033065 035062 0 0 0 0 0 -FT2 033065 035062 0 0 0 0 0 -FT2RQ 033065 035062 0 0 0 0 0 -FT3 033065 035062 0 0 0 0 0 -FT9 033066 035062 0 0 0 0 0 -ET0 033066 035062 0 0 0 0 0 -ST1 033066 035062 0 0 0 0 0 -ST2 033066 035062 0 0 0 0 0 -ST9 033066 035062 0 0 0 0 0 - - -*033066 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 033066 033066 0 0 332000000000 0 0 -IT1 033066 0 0 0 332000000000 0 0 -AT3 033066 0 0 0 0 0 332000000000 -AT6 033066 0 0 0 0 0 332000000000 -FT0 033066 0 0 0 0 0 332000000000 -FT1A 033066 0 0 0 0 0 0 -FT9 033067 0 0 0 0 0 0 -ET0 033070 0 0 0 0 0 0 -ST1A 033070 0 0 0 0 0 0 -ST9 033070 0 0 0 0 0 0 - - -*033070 JUMPA 0,033071 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033070 033070 0 0 324000033071 0 000000033071 -IT1 033070 0 0 0 324000033071 0 000000033071 -AT3 033070 0 0 0 000000033071 0 324000033071 -AT6 033070 033071 0 0 000000033071 0 324000033071 -FT1A 033070 033071 0 0 000000033071 0 000000033071 -FT2 033070 033071 0 0 0 0 000000033071 -FT2RQ 033070 033071 0 0 0 0 000000033071 -FT3 033070 033071 0 0 0 0 000000033071 -FT9 033071 033071 0 0 0 0 000000033071 -ET0 033071 033071 0 0 0 0 000000033071 -ST1A 033071 033071 0 0 0 0 000000033071 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 370 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0586 - -ST9 033071 033071 0 0 0 0 000000033071 - - -*033071 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033071 033071 0 0 200000035062 0 0 -IT1 033071 0 0 0 200000035062 0 0 -AT3 033071 0 0 0 000000035062 0 200000035062 -AT6 033071 035062 0 0 000000035062 0 200000035062 -FT0 033071 035062 0 0 0 0 200000035062 -FT1A 033071 035062 0 0 0 0 0 -FT9 033072 035062 0 0 0 0 0 -ET0 033072 035062 0 0 0 0 0 -ST1 033072 035062 0 0 0 0 0 -ST2 033072 035062 0 0 0 0 0 -ST9 033072 035062 0 0 0 0 0 - - -*033072 AND 0,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033072 033072 0 0 404000035063 0 777777777777 -IT1 033072 0 0 0 404000035063 0 777777777777 -AT3 033072 0 0 0 000000035063 0 404000035063 -AT6 033072 035063 0 0 000000035063 0 404000035063 -FT0 033072 035063 0 0 777777777777 0 404000035063 -FT1A 033072 035063 0 0 777777777777 0 777777777777 -FT2 033072 035063 0 0 0 0 777777777777 -FT2RQ 033072 035063 0 0 0 0 777777777777 -FT3 033072 035063 0 0 0 0 777777777777 -FT9 033073 035063 0 0 0 0 777777777777 -ET0 033073 035063 0 0 0 0 777777777777 -ST1 033073 035063 0 0 0 0 777777777777 -ST2 033073 035063 0 0 0 0 777777777777 -ST9 033073 035063 0 0 0 0 777777777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 371 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0587 - -*033073 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 033073 033073 0 0 332000000000 0 0 -IT1 033073 0 0 0 332000000000 0 0 -AT3 033073 0 0 0 0 0 332000000000 -AT6 033073 0 0 0 0 0 332000000000 -FT0 033073 0 0 0 0 0 332000000000 -FT1A 033073 0 0 0 0 0 0 -FT9 033074 0 0 0 0 0 0 -ET0 033075 0 0 0 0 0 0 -ST1A 033075 0 0 0 0 0 0 -ST9 033075 0 0 0 0 0 0 - - -*033075 JUMPA 0,033076 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033075 033075 0 0 324000033076 0 000000033076 -IT1 033075 0 0 0 324000033076 0 000000033076 -AT3 033075 0 0 0 000000033076 0 324000033076 -AT6 033075 033076 0 0 000000033076 0 324000033076 -FT1A 033075 033076 0 0 000000033076 0 000000033076 -FT2 033075 033076 0 0 0 0 000000033076 -FT2RQ 033075 033076 0 0 0 0 000000033076 -FT3 033075 033076 0 0 0 0 000000033076 -FT9 033076 033076 0 0 0 0 000000033076 -ET0 033076 033076 0 0 0 0 000000033076 -ST1A 033076 033076 0 0 0 0 000000033076 -ST9 033076 033076 0 0 0 0 000000033076 - - -*033076 MOVE 0,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033076 033076 0 0 200000035063 0 777777777777 -IT1 033076 0 0 0 200000035063 0 777777777777 -AT3 033076 0 0 0 000000035063 0 200000035063 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 372 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0588 - -AT6 033076 035063 0 0 000000035063 0 200000035063 -FT0 033076 035063 0 0 777777777777 0 200000035063 -FT1A 033076 035063 0 0 777777777777 0 777777777777 -FT9 033077 035063 0 0 777777777777 0 777777777777 -ET0 033077 035063 0 0 777777777777 0 777777777777 -ST1 033077 035063 0 0 777777777777 0 777777777777 -ST2 033077 035063 0 0 777777777777 0 777777777777 -ST9 033077 035063 0 0 777777777777 0 777777777777 - - -*033077 AND 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033077 033077 0 0 404000035062 0 0 -IT1 033077 0 0 0 404000035062 0 0 -AT3 033077 0 0 0 000000035062 0 404000035062 -AT6 033077 035062 0 0 000000035062 0 404000035062 -FT0 033077 035062 0 0 0 0 404000035062 -FT1A 033077 035062 0 0 0 0 0 -FT2 033077 035062 0 0 0 0 0 -FT2RQ 033077 035062 0 0 777777777777 0 0 -FT3 033077 035062 0 0 777777777777 0 0 -FT9 0 035062 0 0 777777777777 0 0 -ET0 0 035062 0 0 0 0 0 -ST1 0 035062 0 0 0 0 0 -ST2 0 035062 0 0 0 0 0 -ST9 0 035062 0 0 0 0 0 - - -*033100 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 0 0 0 0 332000000000 0 0 -IT1 0 0 0 0 332000000000 0 0 -AT3 0 0 0 0 0 0 332000000000 -AT6 0 0 0 0 0 0 332000000000 -FT0 0 0 0 0 0 0 332000000000 -FT1A 0 0 0 0 0 0 0 -FT9 033101 0 0 0 0 0 0 -ET0 033102 0 0 0 0 0 0 -ST1A 033102 0 0 0 0 0 0 -ST9 033102 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 373 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0589 - - - -*033102 JUMPA 0,033103 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033102 033102 0 0 324000033103 0 000000033103 -IT1 033102 0 0 0 324000033103 0 000000033103 -AT3 033102 0 0 0 000000033103 0 324000033103 -AT6 033102 033103 0 0 000000033103 0 324000033103 -FT1A 033102 033103 0 0 000000033103 0 000000033103 -FT2 033102 033103 0 0 0 0 000000033103 -FT2RQ 033102 033103 0 0 0 0 000000033103 -FT3 033102 033103 0 0 0 0 000000033103 -FT9 033103 033103 0 0 0 0 000000033103 -ET0 033103 033103 0 0 0 0 000000033103 -ST1A 033103 033103 0 0 0 0 000000033103 -ST9 033103 033103 0 0 0 0 000000033103 - - -*033103 MOVE 0,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033103 033103 0 0 200000035063 0 777777777777 -IT1 033103 0 0 0 200000035063 0 777777777777 -AT3 033103 0 0 0 000000035063 0 200000035063 -AT6 033103 035063 0 0 000000035063 0 200000035063 -FT0 033103 035063 0 0 777777777777 0 200000035063 -FT1A 033103 035063 0 0 777777777777 0 777777777777 -FT9 033104 035063 0 0 777777777777 0 777777777777 -ET0 033104 035063 0 0 777777777777 0 777777777777 -ST1 033104 035063 0 0 777777777777 0 777777777777 -ST2 033104 035063 0 0 777777777777 0 777777777777 -ST9 033104 035063 0 0 777777777777 0 777777777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 374 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0590 - -*033104 AND 0,035063 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033104 033104 0 0 404000035063 0 777777777777 -IT1 033104 0 0 0 404000035063 0 777777777777 -AT3 033104 0 0 0 000000035063 0 404000035063 -AT6 033104 035063 0 0 000000035063 0 404000035063 -FT0 033104 035063 0 0 777777777777 0 404000035063 -FT1A 033104 035063 0 0 777777777777 0 777777777777 -FT2 033104 035063 0 0 0 0 777777777777 -FT2RQ 033104 035063 0 0 777777777777 0 777777777777 -FT3 033104 035063 0 0 777777777777 0 777777777777 -FT9 033105 035063 0 0 777777777777 0 777777777777 -ET0 033105 035063 0 0 777777777777 0 777777777777 -ST1 033105 035063 0 0 777777777777 0 777777777777 -ST2 033105 035063 0 0 777777777777 0 777777777777 -ST9 033105 035063 0 0 777777777777 0 777777777777 - - -*033105 SKIPN 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033105 033105 0 0 336000000000 0 777777777777 -IT1 033105 0 0 0 336000000000 0 777777777777 -AT3 033105 0 0 0 0 0 336000000000 -AT6 033105 0 0 0 0 0 336000000000 -FT0 033105 0 0 0 777777777777 0 336000000000 -FT1A 033105 0 0 0 777777777777 0 777777777777 -FT9 033106 0 0 0 777777777777 0 777777777777 -ET0 033107 0 0 0 777777777777 0 777777777777 -ST1A 033107 0 0 0 777777777777 0 777777777777 -ST9 033107 0 0 0 777777777777 0 777777777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 375 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0591 - -*033107 JUMPA 0,033110 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033107 033107 0 0 324000033110 0 000000033110 -IT1 033107 0 0 0 324000033110 0 000000033110 -AT3 033107 0 0 0 000000033110 0 324000033110 -AT6 033107 033110 0 0 000000033110 0 324000033110 -FT1A 033107 033110 0 0 000000033110 0 000000033110 -FT2 033107 033110 0 0 0 0 000000033110 -FT2RQ 033107 033110 0 0 777777777777 0 000000033110 -FT3 033107 033110 0 0 777777777777 0 000000033110 -FT9 033110 033110 0 0 777777777777 0 000000033110 -ET0 033110 033110 0 0 777777777777 0 000000033110 -ST1A 033110 033110 0 0 777777777777 0 000000033110 -ST9 033110 033110 0 0 777777777777 0 000000033110 - - -*033110 MOVE 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033110 033110 0 0 200000035062 0 0 -IT1 033110 0 0 0 200000035062 0 0 -AT3 033110 0 0 0 000000035062 0 200000035062 -AT6 033110 035062 0 0 000000035062 0 200000035062 -FT0 033110 035062 0 0 0 0 200000035062 -FT1A 033110 035062 0 0 0 0 0 -FT9 033111 035062 0 0 0 0 0 -ET0 033111 035062 0 0 0 0 0 -ST1 033111 035062 0 0 0 0 0 -ST2 033111 035062 0 0 0 0 0 -ST9 033111 035062 0 0 0 0 0 - - -*033111 XOR 0,035141 -INITIAL -C(AC)=000000 000000 -C(E)=707070 707070 -FINAL -C(AC)=707070 707070 - -TIME PC MA SC FE AR MQ BR -IT0 033111 033111 0 0 430000035141 0 707070707070 -IT1 033111 0 0 0 430000035141 0 707070707070 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 376 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0592 - -AT3 033111 0 0 0 000000035141 0 430000035141 -AT6 033111 035141 0 0 000000035141 0 430000035141 -FT0 033111 035141 0 0 707070707070 0 430000035141 -FT1A 033111 035141 0 0 707070707070 0 707070707070 -FT2 033111 035141 0 0 0 0 707070707070 -FT2RQ 033111 035141 0 0 0 0 707070707070 -FT3 033111 035141 0 0 0 0 707070707070 -FT9 033112 035141 0 0 0 0 707070707070 -ET0 033112 035141 0 0 707070707070 0 707070707070 -ST1 033112 035141 0 0 707070707070 0 707070707070 -ST2 033112 035141 0 0 707070707070 0 707070707070 -ST9 033112 035141 0 0 707070707070 0 707070707070 - - -*033112 SKIPN 0,000000 -INITIAL -C(AC)=707070 707070 -C(E)=707070 707070 -FINAL -C(AC)=707070 707070 - -TIME PC MA SC FE AR MQ BR -IT0 033112 033112 0 0 336000000000 0 707070707070 -IT1 033112 0 0 0 336000000000 0 707070707070 -AT3 033112 0 0 0 0 0 336000000000 -AT6 033112 0 0 0 0 0 336000000000 -FT0 033112 0 0 0 707070707070 0 336000000000 -FT1A 033112 0 0 0 707070707070 0 707070707070 -FT9 033113 0 0 0 707070707070 0 707070707070 -ET0 033114 0 0 0 707070707070 0 707070707070 -ST1A 033114 0 0 0 707070707070 0 707070707070 -ST9 033114 0 0 0 707070707070 0 707070707070 - - -*033114 JUMPA 0,033115 -INITIAL -C(AC)=707070 707070 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033114 033114 0 0 324000033115 0 000000033115 -IT1 033114 0 0 0 324000033115 0 000000033115 -AT3 033114 0 0 0 000000033115 0 324000033115 -AT6 033114 033115 0 0 000000033115 0 324000033115 -FT1A 033114 033115 0 0 000000033115 0 000000033115 -FT2 033114 033115 0 0 0 0 000000033115 -FT2RQ 033114 033115 0 0 707070707070 0 000000033115 -FT3 033114 033115 0 0 707070707070 0 000000033115 -FT9 033115 033115 0 0 707070707070 0 000000033115 -ET0 033115 033115 0 0 707070707070 0 000000033115 -ST1A 033115 033115 0 0 707070707070 0 000000033115 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 377 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0593 - -ST9 033115 033115 0 0 707070707070 0 000000033115 - - -*033115 MOVE 0,035062 -INITIAL -C(AC)=707070 707070 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033115 033115 0 0 200000035062 0 0 -IT1 033115 0 0 0 200000035062 0 0 -AT3 033115 0 0 0 000000035062 0 200000035062 -AT6 033115 035062 0 0 000000035062 0 200000035062 -FT0 033115 035062 0 0 0 0 200000035062 -FT1A 033115 035062 0 0 0 0 0 -FT9 033116 035062 0 0 0 0 0 -ET0 033116 035062 0 0 0 0 0 -ST1 033116 035062 0 0 0 0 0 -ST2 033116 035062 0 0 0 0 0 -ST9 033116 035062 0 0 0 0 0 - - -*033116 XOR 0,035074 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033116 033116 0 0 430000035074 0 000000000001 -IT1 033116 0 0 0 430000035074 0 000000000001 -AT3 033116 0 0 0 000000035074 0 430000035074 -AT6 033116 035074 0 0 000000035074 0 430000035074 -FT0 033116 035074 0 0 000000000001 0 430000035074 -FT1A 033116 035074 0 0 000000000001 0 000000000001 -FT2 033116 035074 0 0 0 0 000000000001 -FT2RQ 033116 035074 0 0 0 0 000000000001 -FT3 033116 035074 0 0 0 0 000000000001 -FT9 033117 035074 0 0 0 0 000000000001 -ET0 033117 035074 0 0 000000000001 0 000000000001 -ST1 033117 035074 0 0 000000000001 0 000000000001 -ST2 033117 035074 0 0 000000000001 0 000000000001 -ST9 033117 035074 0 0 000000000001 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 378 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0594 - -*033117 SKIPN 0,000000 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033117 033117 0 0 336000000000 0 000000000001 -IT1 033117 0 0 0 336000000000 0 000000000001 -AT3 033117 0 0 0 0 0 336000000000 -AT6 033117 0 0 0 0 0 336000000000 -FT0 033117 0 0 0 000000000001 0 336000000000 -FT1A 033117 0 0 0 000000000001 0 000000000001 -FT9 033120 0 0 0 000000000001 0 000000000001 -ET0 033121 0 0 0 000000000001 0 000000000001 -ST1A 033121 0 0 0 000000000001 0 000000000001 -ST9 033121 0 0 0 000000000001 0 000000000001 - - -*033121 JUMPA 0,033122 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033121 033121 0 0 324000033122 0 000000033122 -IT1 033121 0 0 0 324000033122 0 000000033122 -AT3 033121 0 0 0 000000033122 0 324000033122 -AT6 033121 033122 0 0 000000033122 0 324000033122 -FT1A 033121 033122 0 0 000000033122 0 000000033122 -FT2 033121 033122 0 0 0 0 000000033122 -FT2RQ 033121 033122 0 0 000000000001 0 000000033122 -FT3 033121 033122 0 0 000000000001 0 000000033122 -FT9 033122 033122 0 0 000000000001 0 000000033122 -ET0 033122 033122 0 0 000000000001 0 000000033122 -ST1A 033122 033122 0 0 000000000001 0 000000033122 -ST9 033122 033122 0 0 000000000001 0 000000033122 - - -*033122 MOVE 0,035062 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033122 033122 0 0 200000035062 0 0 -IT1 033122 0 0 0 200000035062 0 0 -AT3 033122 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 379 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0595 - -AT6 033122 035062 0 0 000000035062 0 200000035062 -FT0 033122 035062 0 0 0 0 200000035062 -FT1A 033122 035062 0 0 0 0 0 -FT9 033123 035062 0 0 0 0 0 -ET0 033123 035062 0 0 0 0 0 -ST1 033123 035062 0 0 0 0 0 -ST2 033123 035062 0 0 0 0 0 -ST9 033123 035062 0 0 0 0 0 - - -*033123 XOR 0,035075 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 033123 033123 0 0 430000035075 0 000000000002 -IT1 033123 0 0 0 430000035075 0 000000000002 -AT3 033123 0 0 0 000000035075 0 430000035075 -AT6 033123 035075 0 0 000000035075 0 430000035075 -FT0 033123 035075 0 0 000000000002 0 430000035075 -FT1A 033123 035075 0 0 000000000002 0 000000000002 -FT2 033123 035075 0 0 0 0 000000000002 -FT2RQ 033123 035075 0 0 0 0 000000000002 -FT3 033123 035075 0 0 0 0 000000000002 -FT9 033124 035075 0 0 0 0 000000000002 -ET0 033124 035075 0 0 000000000002 0 000000000002 -ST1 033124 035075 0 0 000000000002 0 000000000002 -ST2 033124 035075 0 0 000000000002 0 000000000002 -ST9 033124 035075 0 0 000000000002 0 000000000002 - - -*033124 SKIPN 0,000000 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 033124 033124 0 0 336000000000 0 000000000002 -IT1 033124 0 0 0 336000000000 0 000000000002 -AT3 033124 0 0 0 0 0 336000000000 -AT6 033124 0 0 0 0 0 336000000000 -FT0 033124 0 0 0 000000000002 0 336000000000 -FT1A 033124 0 0 0 000000000002 0 000000000002 -FT9 033125 0 0 0 000000000002 0 000000000002 -ET0 033126 0 0 0 000000000002 0 000000000002 -ST1A 033126 0 0 0 000000000002 0 000000000002 -ST9 033126 0 0 0 000000000002 0 000000000002 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 380 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0596 - - - -*033126 JUMPA 0,033127 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033126 033126 0 0 324000033127 0 000000033127 -IT1 033126 0 0 0 324000033127 0 000000033127 -AT3 033126 0 0 0 000000033127 0 324000033127 -AT6 033126 033127 0 0 000000033127 0 324000033127 -FT1A 033126 033127 0 0 000000033127 0 000000033127 -FT2 033126 033127 0 0 0 0 000000033127 -FT2RQ 033126 033127 0 0 000000000002 0 000000033127 -FT3 033126 033127 0 0 000000000002 0 000000033127 -FT9 033127 033127 0 0 000000000002 0 000000033127 -ET0 033127 033127 0 0 000000000002 0 000000033127 -ST1A 033127 033127 0 0 000000000002 0 000000033127 -ST9 033127 033127 0 0 000000000002 0 000000033127 - - -*033127 MOVE 0,035062 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033127 033127 0 0 200000035062 0 0 -IT1 033127 0 0 0 200000035062 0 0 -AT3 033127 0 0 0 000000035062 0 200000035062 -AT6 033127 035062 0 0 000000035062 0 200000035062 -FT0 033127 035062 0 0 0 0 200000035062 -FT1A 033127 035062 0 0 0 0 0 -FT9 033130 035062 0 0 0 0 0 -ET0 033130 035062 0 0 0 0 0 -ST1 033130 035062 0 0 0 0 0 -ST2 033130 035062 0 0 0 0 0 -ST9 033130 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 381 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0597 - -*033130 XOR 0,035076 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 033130 033130 0 0 430000035076 0 000000000004 -IT1 033130 0 0 0 430000035076 0 000000000004 -AT3 033130 0 0 0 000000035076 0 430000035076 -AT6 033130 035076 0 0 000000035076 0 430000035076 -FT0 033130 035076 0 0 000000000004 0 430000035076 -FT1A 033130 035076 0 0 000000000004 0 000000000004 -FT2 033130 035076 0 0 0 0 000000000004 -FT2RQ 033130 035076 0 0 0 0 000000000004 -FT3 033130 035076 0 0 0 0 000000000004 -FT9 033131 035076 0 0 0 0 000000000004 -ET0 033131 035076 0 0 000000000004 0 000000000004 -ST1 033131 035076 0 0 000000000004 0 000000000004 -ST2 033131 035076 0 0 000000000004 0 000000000004 -ST9 033131 035076 0 0 000000000004 0 000000000004 - - -*033131 SKIPN 0,000000 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 033131 033131 0 0 336000000000 0 000000000004 -IT1 033131 0 0 0 336000000000 0 000000000004 -AT3 033131 0 0 0 0 0 336000000000 -AT6 033131 0 0 0 0 0 336000000000 -FT0 033131 0 0 0 000000000004 0 336000000000 -FT1A 033131 0 0 0 000000000004 0 000000000004 -FT9 033132 0 0 0 000000000004 0 000000000004 -ET0 033133 0 0 0 000000000004 0 000000000004 -ST1A 033133 0 0 0 000000000004 0 000000000004 -ST9 033133 0 0 0 000000000004 0 000000000004 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 382 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0598 - -*033133 JUMPA 0,033134 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033133 033133 0 0 324000033134 0 000000033134 -IT1 033133 0 0 0 324000033134 0 000000033134 -AT3 033133 0 0 0 000000033134 0 324000033134 -AT6 033133 033134 0 0 000000033134 0 324000033134 -FT1A 033133 033134 0 0 000000033134 0 000000033134 -FT2 033133 033134 0 0 0 0 000000033134 -FT2RQ 033133 033134 0 0 000000000004 0 000000033134 -FT3 033133 033134 0 0 000000000004 0 000000033134 -FT9 033134 033134 0 0 000000000004 0 000000033134 -ET0 033134 033134 0 0 000000000004 0 000000033134 -ST1A 033134 033134 0 0 000000000004 0 000000033134 -ST9 033134 033134 0 0 000000000004 0 000000033134 - - -*033134 MOVE 0,035062 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033134 033134 0 0 200000035062 0 0 -IT1 033134 0 0 0 200000035062 0 0 -AT3 033134 0 0 0 000000035062 0 200000035062 -AT6 033134 035062 0 0 000000035062 0 200000035062 -FT0 033134 035062 0 0 0 0 200000035062 -FT1A 033134 035062 0 0 0 0 0 -FT9 033135 035062 0 0 0 0 0 -ET0 033135 035062 0 0 0 0 0 -ST1 033135 035062 0 0 0 0 0 -ST2 033135 035062 0 0 0 0 0 -ST9 033135 035062 0 0 0 0 0 - - -*033135 XOR 0,035077 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 033135 033135 0 0 430000035077 0 000000000010 -IT1 033135 0 0 0 430000035077 0 000000000010 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 383 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0599 - -AT3 033135 0 0 0 000000035077 0 430000035077 -AT6 033135 035077 0 0 000000035077 0 430000035077 -FT0 033135 035077 0 0 000000000010 0 430000035077 -FT1A 033135 035077 0 0 000000000010 0 000000000010 -FT2 033135 035077 0 0 0 0 000000000010 -FT2RQ 033135 035077 0 0 0 0 000000000010 -FT3 033135 035077 0 0 0 0 000000000010 -FT9 033136 035077 0 0 0 0 000000000010 -ET0 033136 035077 0 0 000000000010 0 000000000010 -ST1 033136 035077 0 0 000000000010 0 000000000010 -ST2 033136 035077 0 0 000000000010 0 000000000010 -ST9 033136 035077 0 0 000000000010 0 000000000010 - - -*033136 SKIPN 0,000000 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 033136 033136 0 0 336000000000 0 000000000010 -IT1 033136 0 0 0 336000000000 0 000000000010 -AT3 033136 0 0 0 0 0 336000000000 -AT6 033136 0 0 0 0 0 336000000000 -FT0 033136 0 0 0 000000000010 0 336000000000 -FT1A 033136 0 0 0 000000000010 0 000000000010 -FT9 033137 0 0 0 000000000010 0 000000000010 -ET0 033140 0 0 0 000000000010 0 000000000010 -ST1A 033140 0 0 0 000000000010 0 000000000010 -ST9 033140 0 0 0 000000000010 0 000000000010 - - -*033140 JUMPA 0,033141 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033140 033140 0 0 324000033141 0 000000033141 -IT1 033140 0 0 0 324000033141 0 000000033141 -AT3 033140 0 0 0 000000033141 0 324000033141 -AT6 033140 033141 0 0 000000033141 0 324000033141 -FT1A 033140 033141 0 0 000000033141 0 000000033141 -FT2 033140 033141 0 0 0 0 000000033141 -FT2RQ 033140 033141 0 0 000000000010 0 000000033141 -FT3 033140 033141 0 0 000000000010 0 000000033141 -FT9 033141 033141 0 0 000000000010 0 000000033141 -ET0 033141 033141 0 0 000000000010 0 000000033141 -ST1A 033141 033141 0 0 000000000010 0 000000033141 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 384 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0600 - -ST9 033141 033141 0 0 000000000010 0 000000033141 - - -*033141 MOVE 0,035062 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033141 033141 0 0 200000035062 0 0 -IT1 033141 0 0 0 200000035062 0 0 -AT3 033141 0 0 0 000000035062 0 200000035062 -AT6 033141 035062 0 0 000000035062 0 200000035062 -FT0 033141 035062 0 0 0 0 200000035062 -FT1A 033141 035062 0 0 0 0 0 -FT9 033142 035062 0 0 0 0 0 -ET0 033142 035062 0 0 0 0 0 -ST1 033142 035062 0 0 0 0 0 -ST2 033142 035062 0 0 0 0 0 -ST9 033142 035062 0 0 0 0 0 - - -*033142 XOR 0,035100 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000020 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 033142 033142 0 0 430000035100 0 000000000020 -IT1 033142 0 0 0 430000035100 0 000000000020 -AT3 033142 0 0 0 000000035100 0 430000035100 -AT6 033142 0 0 0 000000035100 0 430000035100 -FT0 033142 0 0 0 000000000020 0 430000035100 -FT1A 033142 0 0 0 000000000020 0 000000000020 -FT2 033142 0 0 0 0 0 000000000020 -FT2RQ 033142 0 0 0 0 0 000000000020 -FT3 033142 0 0 0 0 0 000000000020 -FT9 033143 0 0 0 0 0 000000000020 -ET0 033143 0 0 0 000000000020 0 000000000020 -ST1 033143 0 0 0 000000000020 0 000000000020 -ST2 033143 0 0 0 000000000020 0 000000000020 -ST9 033143 0 0 0 000000000020 0 000000000020 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 385 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0601 - -*033143 SKIPN 0,000000 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000020 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 033143 033143 0 0 336000000000 0 000000000020 -IT1 033143 0 0 0 336000000000 0 000000000020 -AT3 033143 0 0 0 0 0 336000000000 -AT6 033143 0 0 0 0 0 336000000000 -FT0 033143 0 0 0 000000000020 0 336000000000 -FT1A 033143 0 0 0 000000000020 0 000000000020 -FT9 033144 0 0 0 000000000020 0 000000000020 -ET0 033145 0 0 0 000000000020 0 000000000020 -ST1A 033145 0 0 0 000000000020 0 000000000020 -ST9 033145 0 0 0 000000000020 0 000000000020 - - -*033145 JUMPA 0,033146 -INITIAL -C(AC)=000000 000020 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033145 033145 0 0 324000033146 0 000000033146 -IT1 033145 0 0 0 324000033146 0 000000033146 -AT3 033145 0 0 0 000000033146 0 324000033146 -AT6 033145 033146 0 0 000000033146 0 324000033146 -FT1A 033145 033146 0 0 000000033146 0 000000033146 -FT2 033145 033146 0 0 0 0 000000033146 -FT2RQ 033145 033146 0 0 000000000020 0 000000033146 -FT3 033145 033146 0 0 000000000020 0 000000033146 -FT9 033146 033146 0 0 000000000020 0 000000033146 -ET0 033146 033146 0 0 000000000020 0 000000033146 -ST1A 033146 033146 0 0 000000000020 0 000000033146 -ST9 033146 033146 0 0 000000000020 0 000000033146 - - -*033146 MOVE 0,035062 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033146 033146 0 0 200000035062 0 0 -IT1 033146 0 0 0 200000035062 0 0 -AT3 033146 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 386 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0602 - -AT6 033146 035062 0 0 000000035062 0 200000035062 -FT0 033146 035062 0 0 0 0 200000035062 -FT1A 033146 035062 0 0 0 0 0 -FT9 033147 035062 0 0 0 0 0 -ET0 033147 035062 0 0 0 0 0 -ST1 033147 035062 0 0 0 0 0 -ST2 033147 035062 0 0 0 0 0 -ST9 033147 035062 0 0 0 0 0 - - -*033147 XOR 0,035101 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000040 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 033147 033147 0 0 430000035101 0 000000000040 -IT1 033147 0 0 0 430000035101 0 000000000040 -AT3 033147 0 0 0 000000035101 0 430000035101 -AT6 033147 035101 0 0 000000035101 0 430000035101 -FT0 033147 035101 0 0 000000000040 0 430000035101 -FT1A 033147 035101 0 0 000000000040 0 000000000040 -FT2 033147 035101 0 0 0 0 000000000040 -FT2RQ 033147 035101 0 0 0 0 000000000040 -FT3 033147 035101 0 0 0 0 000000000040 -FT9 033150 035101 0 0 0 0 000000000040 -ET0 033150 035101 0 0 000000000040 0 000000000040 -ST1 033150 035101 0 0 000000000040 0 000000000040 -ST2 033150 035101 0 0 000000000040 0 000000000040 -ST9 033150 035101 0 0 000000000040 0 000000000040 - - -*033150 SKIPN 0,000000 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000040 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 033150 033150 0 0 336000000000 0 000000000040 -IT1 033150 0 0 0 336000000000 0 000000000040 -AT3 033150 0 0 0 0 0 336000000000 -AT6 033150 0 0 0 0 0 336000000000 -FT0 033150 0 0 0 000000000040 0 336000000000 -FT1A 033150 0 0 0 000000000040 0 000000000040 -FT9 033151 0 0 0 000000000040 0 000000000040 -ET0 033152 0 0 0 000000000040 0 000000000040 -ST1A 033152 0 0 0 000000000040 0 000000000040 -ST9 033152 0 0 0 000000000040 0 000000000040 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 387 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0603 - - - -*033152 JUMPA 0,033153 -INITIAL -C(AC)=000000 000040 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033152 033152 0 0 324000033153 0 000000033153 -IT1 033152 0 0 0 324000033153 0 000000033153 -AT3 033152 0 0 0 000000033153 0 324000033153 -AT6 033152 033153 0 0 000000033153 0 324000033153 -FT1A 033152 033153 0 0 000000033153 0 000000033153 -FT2 033152 033153 0 0 0 0 000000033153 -FT2RQ 033152 033153 0 0 000000000040 0 000000033153 -FT3 033152 033153 0 0 000000000040 0 000000033153 -FT9 033153 033153 0 0 000000000040 0 000000033153 -ET0 033153 033153 0 0 000000000040 0 000000033153 -ST1A 033153 033153 0 0 000000000040 0 000000033153 -ST9 033153 033153 0 0 000000000040 0 000000033153 - - -*033153 MOVE 0,035062 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033153 033153 0 0 200000035062 0 0 -IT1 033153 0 0 0 200000035062 0 0 -AT3 033153 0 0 0 000000035062 0 200000035062 -AT6 033153 035062 0 0 000000035062 0 200000035062 -FT0 033153 035062 0 0 0 0 200000035062 -FT1A 033153 035062 0 0 0 0 0 -FT9 033154 035062 0 0 0 0 0 -ET0 033154 035062 0 0 0 0 0 -ST1 033154 035062 0 0 0 0 0 -ST2 033154 035062 0 0 0 0 0 -ST9 033154 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 388 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0604 - -*033154 XOR 0,035102 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000100 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 033154 033154 0 0 430000035102 0 000000000100 -IT1 033154 0 0 0 430000035102 0 000000000100 -AT3 033154 0 0 0 000000035102 0 430000035102 -AT6 033154 035102 0 0 000000035102 0 430000035102 -FT0 033154 035102 0 0 000000000100 0 430000035102 -FT1A 033154 035102 0 0 000000000100 0 000000000100 -FT2 033154 035102 0 0 0 0 000000000100 -FT2RQ 033154 035102 0 0 0 0 000000000100 -FT3 033154 035102 0 0 0 0 000000000100 -FT9 033155 035102 0 0 0 0 000000000100 -ET0 033155 035102 0 0 000000000100 0 000000000100 -ST1 033155 035102 0 0 000000000100 0 000000000100 -ST2 033155 035102 0 0 000000000100 0 000000000100 -ST9 033155 035102 0 0 000000000100 0 000000000100 - - -*033155 SKIPN 0,000000 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000100 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 033155 033155 0 0 336000000000 0 000000000100 -IT1 033155 0 0 0 336000000000 0 000000000100 -AT3 033155 0 0 0 0 0 336000000000 -AT6 033155 0 0 0 0 0 336000000000 -FT0 033155 0 0 0 000000000100 0 336000000000 -FT1A 033155 0 0 0 000000000100 0 000000000100 -FT9 033156 0 0 0 000000000100 0 000000000100 -ET0 033157 0 0 0 000000000100 0 000000000100 -ST1A 033157 0 0 0 000000000100 0 000000000100 -ST9 033157 0 0 0 000000000100 0 000000000100 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 389 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0605 - -*033157 JUMPA 0,033160 -INITIAL -C(AC)=000000 000100 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033157 033157 0 0 324000033160 0 000000033160 -IT1 033157 0 0 0 324000033160 0 000000033160 -AT3 033157 0 0 0 000000033160 0 324000033160 -AT6 033157 033160 0 0 000000033160 0 324000033160 -FT1A 033157 033160 0 0 000000033160 0 000000033160 -FT2 033157 033160 0 0 0 0 000000033160 -FT2RQ 033157 033160 0 0 000000000100 0 000000033160 -FT3 033157 033160 0 0 000000000100 0 000000033160 -FT9 033160 033160 0 0 000000000100 0 000000033160 -ET0 033160 033160 0 0 000000000100 0 000000033160 -ST1A 033160 033160 0 0 000000000100 0 000000033160 -ST9 033160 033160 0 0 000000000100 0 000000033160 - - -*033160 MOVE 0,035062 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033160 033160 0 0 200000035062 0 0 -IT1 033160 0 0 0 200000035062 0 0 -AT3 033160 0 0 0 000000035062 0 200000035062 -AT6 033160 035062 0 0 000000035062 0 200000035062 -FT0 033160 035062 0 0 0 0 200000035062 -FT1A 033160 035062 0 0 0 0 0 -FT9 033161 035062 0 0 0 0 0 -ET0 033161 035062 0 0 0 0 0 -ST1 033161 035062 0 0 0 0 0 -ST2 033161 035062 0 0 0 0 0 -ST9 033161 035062 0 0 0 0 0 - - -*033161 XOR 0,035103 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000200 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 033161 033161 0 0 430000035103 0 000000000200 -IT1 033161 0 0 0 430000035103 0 000000000200 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 390 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0606 - -AT3 033161 0 0 0 000000035103 0 430000035103 -AT6 033161 035103 0 0 000000035103 0 430000035103 -FT0 033161 035103 0 0 000000000200 0 430000035103 -FT1A 033161 035103 0 0 000000000200 0 000000000200 -FT2 033161 035103 0 0 0 0 000000000200 -FT2RQ 033161 035103 0 0 0 0 000000000200 -FT3 033161 035103 0 0 0 0 000000000200 -FT9 033162 035103 0 0 0 0 000000000200 -ET0 033162 035103 0 0 000000000200 0 000000000200 -ST1 033162 035103 0 0 000000000200 0 000000000200 -ST2 033162 035103 0 0 000000000200 0 000000000200 -ST9 033162 035103 0 0 000000000200 0 000000000200 - - -*033162 SKIPN 0,000000 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000200 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 033162 033162 0 0 336000000000 0 000000000200 -IT1 033162 0 0 0 336000000000 0 000000000200 -AT3 033162 0 0 0 0 0 336000000000 -AT6 033162 0 0 0 0 0 336000000000 -FT0 033162 0 0 0 000000000200 0 336000000000 -FT1A 033162 0 0 0 000000000200 0 000000000200 -FT9 033163 0 0 0 000000000200 0 000000000200 -ET0 033164 0 0 0 000000000200 0 000000000200 -ST1A 033164 0 0 0 000000000200 0 000000000200 -ST9 033164 0 0 0 000000000200 0 000000000200 - - -*033164 JUMPA 0,033165 -INITIAL -C(AC)=000000 000200 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033164 033164 0 0 324000033165 0 000000033165 -IT1 033164 0 0 0 324000033165 0 000000033165 -AT3 033164 0 0 0 000000033165 0 324000033165 -AT6 033164 033165 0 0 000000033165 0 324000033165 -FT1A 033164 033165 0 0 000000033165 0 000000033165 -FT2 033164 033165 0 0 0 0 000000033165 -FT2RQ 033164 033165 0 0 000000000200 0 000000033165 -FT3 033164 033165 0 0 000000000200 0 000000033165 -FT9 033165 033165 0 0 000000000200 0 000000033165 -ET0 033165 033165 0 0 000000000200 0 000000033165 -ST1A 033165 033165 0 0 000000000200 0 000000033165 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 391 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0607 - -ST9 033165 033165 0 0 000000000200 0 000000033165 - - -*033165 MOVE 0,035062 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033165 033165 0 0 200000035062 0 0 -IT1 033165 0 0 0 200000035062 0 0 -AT3 033165 0 0 0 000000035062 0 200000035062 -AT6 033165 035062 0 0 000000035062 0 200000035062 -FT0 033165 035062 0 0 0 0 200000035062 -FT1A 033165 035062 0 0 0 0 0 -FT9 033166 035062 0 0 0 0 0 -ET0 033166 035062 0 0 0 0 0 -ST1 033166 035062 0 0 0 0 0 -ST2 033166 035062 0 0 0 0 0 -ST9 033166 035062 0 0 0 0 0 - - -*033166 XOR 0,035104 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000400 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 033166 033166 0 0 430000035104 0 000000000400 -IT1 033166 0 0 0 430000035104 0 000000000400 -AT3 033166 0 0 0 000000035104 0 430000035104 -AT6 033166 035104 0 0 000000035104 0 430000035104 -FT0 033166 035104 0 0 000000000400 0 430000035104 -FT1A 033166 035104 0 0 000000000400 0 000000000400 -FT2 033166 035104 0 0 0 0 000000000400 -FT2RQ 033166 035104 0 0 0 0 000000000400 -FT3 033166 035104 0 0 0 0 000000000400 -FT9 033167 035104 0 0 0 0 000000000400 -ET0 033167 035104 0 0 000000000400 0 000000000400 -ST1 033167 035104 0 0 000000000400 0 000000000400 -ST2 033167 035104 0 0 000000000400 0 000000000400 -ST9 033167 035104 0 0 000000000400 0 000000000400 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 392 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0608 - -*033167 SKIPN 0,000000 -INITIAL -C(AC)=000000 000400 -C(E)=000000 000400 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 033167 033167 0 0 336000000000 0 000000000400 -IT1 033167 0 0 0 336000000000 0 000000000400 -AT3 033167 0 0 0 0 0 336000000000 -AT6 033167 0 0 0 0 0 336000000000 -FT0 033167 0 0 0 000000000400 0 336000000000 -FT1A 033167 0 0 0 000000000400 0 000000000400 -FT9 033170 0 0 0 000000000400 0 000000000400 -ET0 033171 0 0 0 000000000400 0 000000000400 -ST1A 033171 0 0 0 000000000400 0 000000000400 -ST9 033171 0 0 0 000000000400 0 000000000400 - - -*033171 JUMPA 0,033172 -INITIAL -C(AC)=000000 000400 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033171 033171 0 0 324000033172 0 000000033172 -IT1 033171 0 0 0 324000033172 0 000000033172 -AT3 033171 0 0 0 000000033172 0 324000033172 -AT6 033171 033172 0 0 000000033172 0 324000033172 -FT1A 033171 033172 0 0 000000033172 0 000000033172 -FT2 033171 033172 0 0 0 0 000000033172 -FT2RQ 033171 033172 0 0 000000000400 0 000000033172 -FT3 033171 033172 0 0 000000000400 0 000000033172 -FT9 033172 033172 0 0 000000000400 0 000000033172 -ET0 033172 033172 0 0 000000000400 0 000000033172 -ST1A 033172 033172 0 0 000000000400 0 000000033172 -ST9 033172 033172 0 0 000000000400 0 000000033172 - - -*033172 MOVE 0,035062 -INITIAL -C(AC)=000000 000400 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033172 033172 0 0 200000035062 0 0 -IT1 033172 0 0 0 200000035062 0 0 -AT3 033172 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 393 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0609 - -AT6 033172 035062 0 0 000000035062 0 200000035062 -FT0 033172 035062 0 0 0 0 200000035062 -FT1A 033172 035062 0 0 0 0 0 -FT9 033173 035062 0 0 0 0 0 -ET0 033173 035062 0 0 0 0 0 -ST1 033173 035062 0 0 0 0 0 -ST2 033173 035062 0 0 0 0 0 -ST9 033173 035062 0 0 0 0 0 - - -*033173 XOR 0,035105 -INITIAL -C(AC)=000000 000000 -C(E)=000000 001000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 033173 033173 0 0 430000035105 0 000000001000 -IT1 033173 0 0 0 430000035105 0 000000001000 -AT3 033173 0 0 0 000000035105 0 430000035105 -AT6 033173 035105 0 0 000000035105 0 430000035105 -FT0 033173 035105 0 0 000000001000 0 430000035105 -FT1A 033173 035105 0 0 000000001000 0 000000001000 -FT2 033173 035105 0 0 0 0 000000001000 -FT2RQ 033173 035105 0 0 0 0 000000001000 -FT3 033173 035105 0 0 0 0 000000001000 -FT9 033174 035105 0 0 0 0 000000001000 -ET0 033174 035105 0 0 000000001000 0 000000001000 -ST1 033174 035105 0 0 000000001000 0 000000001000 -ST2 033174 035105 0 0 000000001000 0 000000001000 -ST9 033174 035105 0 0 000000001000 0 000000001000 - - -*033174 SKIPN 0,000000 -INITIAL -C(AC)=000000 001000 -C(E)=000000 001000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 033174 033174 0 0 336000000000 0 000000001000 -IT1 033174 0 0 0 336000000000 0 000000001000 -AT3 033174 0 0 0 0 0 336000000000 -AT6 033174 0 0 0 0 0 336000000000 -FT0 033174 0 0 0 000000001000 0 336000000000 -FT1A 033174 0 0 0 000000001000 0 000000001000 -FT9 033175 0 0 0 000000001000 0 000000001000 -ET0 033176 0 0 0 000000001000 0 000000001000 -ST1A 033176 0 0 0 000000001000 0 000000001000 -ST9 033176 0 0 0 000000001000 0 000000001000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 394 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0610 - - - -*033176 JUMPA 0,033177 -INITIAL -C(AC)=000000 001000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033176 033176 0 0 324000033177 0 000000033177 -IT1 033176 0 0 0 324000033177 0 000000033177 -AT3 033176 0 0 0 000000033177 0 324000033177 -AT6 033176 033177 0 0 000000033177 0 324000033177 -FT1A 033176 033177 0 0 000000033177 0 000000033177 -FT2 033176 033177 0 0 0 0 000000033177 -FT2RQ 033176 033177 0 0 000000001000 0 000000033177 -FT3 033176 033177 0 0 000000001000 0 000000033177 -FT9 033177 033177 0 0 000000001000 0 000000033177 -ET0 033177 033177 0 0 000000001000 0 000000033177 -ST1A 033177 033177 0 0 000000001000 0 000000033177 -ST9 033177 033177 0 0 000000001000 0 000000033177 - - -*033177 MOVE 0,035062 -INITIAL -C(AC)=000000 001000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033177 033177 0 0 200000035062 0 0 -IT1 033177 0 0 0 200000035062 0 0 -AT3 033177 0 0 0 000000035062 0 200000035062 -AT6 033177 035062 0 0 000000035062 0 200000035062 -FT0 033177 035062 0 0 0 0 200000035062 -FT1A 033177 035062 0 0 0 0 0 -FT9 0 035062 0 0 0 0 0 -ET0 0 035062 0 0 0 0 0 -ST1 0 035062 0 0 0 0 0 -ST2 0 035062 0 0 0 0 0 -ST9 0 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 395 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0611 - -*033200 XOR 0,035106 -INITIAL -C(AC)=000000 000000 -C(E)=000000 002000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 430000035106 0 000000002000 -IT1 0 0 0 0 430000035106 0 000000002000 -AT3 0 0 0 0 000000035106 0 430000035106 -AT6 0 035106 0 0 000000035106 0 430000035106 -FT0 0 035106 0 0 000000002000 0 430000035106 -FT1A 0 035106 0 0 000000002000 0 000000002000 -FT2 0 035106 0 0 0 0 000000002000 -FT2RQ 0 035106 0 0 0 0 000000002000 -FT3 0 035106 0 0 0 0 000000002000 -FT9 033201 035106 0 0 0 0 000000002000 -ET0 033201 035106 0 0 000000002000 0 000000002000 -ST1 033201 035106 0 0 000000002000 0 000000002000 -ST2 033201 035106 0 0 000000002000 0 000000002000 -ST9 033201 035106 0 0 000000002000 0 000000002000 - - -*033201 SKIPN 0,000000 -INITIAL -C(AC)=000000 002000 -C(E)=000000 002000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 033201 033201 0 0 336000000000 0 000000002000 -IT1 033201 0 0 0 336000000000 0 000000002000 -AT3 033201 0 0 0 0 0 336000000000 -AT6 033201 0 0 0 0 0 336000000000 -FT0 033201 0 0 0 000000002000 0 336000000000 -FT1A 033201 0 0 0 000000002000 0 000000002000 -FT9 033202 0 0 0 000000002000 0 000000002000 -ET0 033203 0 0 0 000000002000 0 000000002000 -ST1A 033203 0 0 0 000000002000 0 000000002000 -ST9 033203 0 0 0 000000002000 0 000000002000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 396 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0612 - -*033203 JUMPA 0,033204 -INITIAL -C(AC)=000000 002000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033203 033203 0 0 324000033204 0 000000033204 -IT1 033203 0 0 0 324000033204 0 000000033204 -AT3 033203 0 0 0 000000033204 0 324000033204 -AT6 033203 033204 0 0 000000033204 0 324000033204 -FT1A 033203 033204 0 0 000000033204 0 000000033204 -FT2 033203 033204 0 0 0 0 000000033204 -FT2RQ 033203 033204 0 0 000000002000 0 000000033204 -FT3 033203 033204 0 0 000000002000 0 000000033204 -FT9 033204 033204 0 0 000000002000 0 000000033204 -ET0 033204 033204 0 0 000000002000 0 000000033204 -ST1A 033204 033204 0 0 000000002000 0 000000033204 -ST9 033204 033204 0 0 000000002000 0 000000033204 - - -*033204 MOVE 0,035062 -INITIAL -C(AC)=000000 002000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033204 033204 0 0 200000035062 0 0 -IT1 033204 0 0 0 200000035062 0 0 -AT3 033204 0 0 0 000000035062 0 200000035062 -AT6 033204 035062 0 0 000000035062 0 200000035062 -FT0 033204 035062 0 0 0 0 200000035062 -FT1A 033204 035062 0 0 0 0 0 -FT9 033205 035062 0 0 0 0 0 -ET0 033205 035062 0 0 0 0 0 -ST1 033205 035062 0 0 0 0 0 -ST2 033205 035062 0 0 0 0 0 -ST9 033205 035062 0 0 0 0 0 - - -*033205 XOR 0,035107 -INITIAL -C(AC)=000000 000000 -C(E)=000000 004000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 033205 033205 0 0 430000035107 0 000000004000 -IT1 033205 0 0 0 430000035107 0 000000004000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 397 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0613 - -AT3 033205 0 0 0 000000035107 0 430000035107 -AT6 033205 035107 0 0 000000035107 0 430000035107 -FT0 033205 035107 0 0 000000004000 0 430000035107 -FT1A 033205 035107 0 0 000000004000 0 000000004000 -FT2 033205 035107 0 0 0 0 000000004000 -FT2RQ 033205 035107 0 0 0 0 000000004000 -FT3 033205 035107 0 0 0 0 000000004000 -FT9 033206 035107 0 0 0 0 000000004000 -ET0 033206 035107 0 0 000000004000 0 000000004000 -ST1 033206 035107 0 0 000000004000 0 000000004000 -ST2 033206 035107 0 0 000000004000 0 000000004000 -ST9 033206 035107 0 0 000000004000 0 000000004000 - - -*033206 SKIPN 0,000000 -INITIAL -C(AC)=000000 004000 -C(E)=000000 004000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 033206 033206 0 0 336000000000 0 000000004000 -IT1 033206 0 0 0 336000000000 0 000000004000 -AT3 033206 0 0 0 0 0 336000000000 -AT6 033206 0 0 0 0 0 336000000000 -FT0 033206 0 0 0 000000004000 0 336000000000 -FT1A 033206 0 0 0 000000004000 0 000000004000 -FT9 033207 0 0 0 000000004000 0 000000004000 -ET0 033210 0 0 0 000000004000 0 000000004000 -ST1A 033210 0 0 0 000000004000 0 000000004000 -ST9 033210 0 0 0 000000004000 0 000000004000 - - -*033210 JUMPA 0,033211 -INITIAL -C(AC)=000000 004000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033210 033210 0 0 324000033211 0 000000033211 -IT1 033210 0 0 0 324000033211 0 000000033211 -AT3 033210 0 0 0 000000033211 0 324000033211 -AT6 033210 033211 0 0 000000033211 0 324000033211 -FT1A 033210 033211 0 0 000000033211 0 000000033211 -FT2 033210 033211 0 0 0 0 000000033211 -FT2RQ 033210 033211 0 0 000000004000 0 000000033211 -FT3 033210 033211 0 0 000000004000 0 000000033211 -FT9 033211 033211 0 0 000000004000 0 000000033211 -ET0 033211 033211 0 0 000000004000 0 000000033211 -ST1A 033211 033211 0 0 000000004000 0 000000033211 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 398 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0614 - -ST9 033211 033211 0 0 000000004000 0 000000033211 - - -*033211 MOVE 0,035062 -INITIAL -C(AC)=000000 004000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033211 033211 0 0 200000035062 0 0 -IT1 033211 0 0 0 200000035062 0 0 -AT3 033211 0 0 0 000000035062 0 200000035062 -AT6 033211 035062 0 0 000000035062 0 200000035062 -FT0 033211 035062 0 0 0 0 200000035062 -FT1A 033211 035062 0 0 0 0 0 -FT9 033212 035062 0 0 0 0 0 -ET0 033212 035062 0 0 0 0 0 -ST1 033212 035062 0 0 0 0 0 -ST2 033212 035062 0 0 0 0 0 -ST9 033212 035062 0 0 0 0 0 - - -*033212 XOR 0,035110 -INITIAL -C(AC)=000000 000000 -C(E)=000000 010000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 033212 033212 0 0 430000035110 0 000000010000 -IT1 033212 0 0 0 430000035110 0 000000010000 -AT3 033212 0 0 0 000000035110 0 430000035110 -AT6 033212 035110 0 0 000000035110 0 430000035110 -FT0 033212 035110 0 0 000000010000 0 430000035110 -FT1A 033212 035110 0 0 000000010000 0 000000010000 -FT2 033212 035110 0 0 0 0 000000010000 -FT2RQ 033212 035110 0 0 0 0 000000010000 -FT3 033212 035110 0 0 0 0 000000010000 -FT9 033213 035110 0 0 0 0 000000010000 -ET0 033213 035110 0 0 000000010000 0 000000010000 -ST1 033213 035110 0 0 000000010000 0 000000010000 -ST2 033213 035110 0 0 000000010000 0 000000010000 -ST9 033213 035110 0 0 000000010000 0 000000010000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 399 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0615 - -*033213 SKIPN 0,000000 -INITIAL -C(AC)=000000 010000 -C(E)=000000 010000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 033213 033213 0 0 336000000000 0 000000010000 -IT1 033213 0 0 0 336000000000 0 000000010000 -AT3 033213 0 0 0 0 0 336000000000 -AT6 033213 0 0 0 0 0 336000000000 -FT0 033213 0 0 0 000000010000 0 336000000000 -FT1A 033213 0 0 0 000000010000 0 000000010000 -FT9 033214 0 0 0 000000010000 0 000000010000 -ET0 033215 0 0 0 000000010000 0 000000010000 -ST1A 033215 0 0 0 000000010000 0 000000010000 -ST9 033215 0 0 0 000000010000 0 000000010000 - - -*033215 JUMPA 0,033216 -INITIAL -C(AC)=000000 010000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033215 033215 0 0 324000033216 0 000000033216 -IT1 033215 0 0 0 324000033216 0 000000033216 -AT3 033215 0 0 0 000000033216 0 324000033216 -AT6 033215 033216 0 0 000000033216 0 324000033216 -FT1A 033215 033216 0 0 000000033216 0 000000033216 -FT2 033215 033216 0 0 0 0 000000033216 -FT2RQ 033215 033216 0 0 000000010000 0 000000033216 -FT3 033215 033216 0 0 000000010000 0 000000033216 -FT9 033216 033216 0 0 000000010000 0 000000033216 -ET0 033216 033216 0 0 000000010000 0 000000033216 -ST1A 033216 033216 0 0 000000010000 0 000000033216 -ST9 033216 033216 0 0 000000010000 0 000000033216 - - -*033216 MOVE 0,035062 -INITIAL -C(AC)=000000 010000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033216 033216 0 0 200000035062 0 0 -IT1 033216 0 0 0 200000035062 0 0 -AT3 033216 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 400 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0616 - -AT6 033216 035062 0 0 000000035062 0 200000035062 -FT0 033216 035062 0 0 0 0 200000035062 -FT1A 033216 035062 0 0 0 0 0 -FT9 033217 035062 0 0 0 0 0 -ET0 033217 035062 0 0 0 0 0 -ST1 033217 035062 0 0 0 0 0 -ST2 033217 035062 0 0 0 0 0 -ST9 033217 035062 0 0 0 0 0 - - -*033217 XOR 0,035111 -INITIAL -C(AC)=000000 000000 -C(E)=000000 020000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 033217 033217 0 0 430000035111 0 000000020000 -IT1 033217 0 0 0 430000035111 0 000000020000 -AT3 033217 0 0 0 000000035111 0 430000035111 -AT6 033217 035111 0 0 000000035111 0 430000035111 -FT0 033217 035111 0 0 000000020000 0 430000035111 -FT1A 033217 035111 0 0 000000020000 0 000000020000 -FT2 033217 035111 0 0 0 0 000000020000 -FT2RQ 033217 035111 0 0 0 0 000000020000 -FT3 033217 035111 0 0 0 0 000000020000 -FT9 033220 035111 0 0 0 0 000000020000 -ET0 033220 035111 0 0 000000020000 0 000000020000 -ST1 033220 035111 0 0 000000020000 0 000000020000 -ST2 033220 035111 0 0 000000020000 0 000000020000 -ST9 033220 035111 0 0 000000020000 0 000000020000 - - -*033220 SKIPN 0,000000 -INITIAL -C(AC)=000000 020000 -C(E)=000000 020000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 033220 033220 0 0 336000000000 0 000000020000 -IT1 033220 0 0 0 336000000000 0 000000020000 -AT3 033220 0 0 0 0 0 336000000000 -AT6 033220 0 0 0 0 0 336000000000 -FT0 033220 0 0 0 000000020000 0 336000000000 -FT1A 033220 0 0 0 000000020000 0 000000020000 -FT9 033221 0 0 0 000000020000 0 000000020000 -ET0 033222 0 0 0 000000020000 0 000000020000 -ST1A 033222 0 0 0 000000020000 0 000000020000 -ST9 033222 0 0 0 000000020000 0 000000020000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 401 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0617 - - - -*033222 JUMPA 0,033223 -INITIAL -C(AC)=000000 020000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033222 033222 0 0 324000033223 0 000000033223 -IT1 033222 0 0 0 324000033223 0 000000033223 -AT3 033222 0 0 0 000000033223 0 324000033223 -AT6 033222 033223 0 0 000000033223 0 324000033223 -FT1A 033222 033223 0 0 000000033223 0 000000033223 -FT2 033222 033223 0 0 0 0 000000033223 -FT2RQ 033222 033223 0 0 000000020000 0 000000033223 -FT3 033222 033223 0 0 000000020000 0 000000033223 -FT9 033223 033223 0 0 000000020000 0 000000033223 -ET0 033223 033223 0 0 000000020000 0 000000033223 -ST1A 033223 033223 0 0 000000020000 0 000000033223 -ST9 033223 033223 0 0 000000020000 0 000000033223 - - -*033223 MOVE 0,035062 -INITIAL -C(AC)=000000 020000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033223 033223 0 0 200000035062 0 0 -IT1 033223 0 0 0 200000035062 0 0 -AT3 033223 0 0 0 000000035062 0 200000035062 -AT6 033223 035062 0 0 000000035062 0 200000035062 -FT0 033223 035062 0 0 0 0 200000035062 -FT1A 033223 035062 0 0 0 0 0 -FT9 033224 035062 0 0 0 0 0 -ET0 033224 035062 0 0 0 0 0 -ST1 033224 035062 0 0 0 0 0 -ST2 033224 035062 0 0 0 0 0 -ST9 033224 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 402 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0618 - -*033224 XOR 0,035112 -INITIAL -C(AC)=000000 000000 -C(E)=000000 040000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 033224 033224 0 0 430000035112 0 000000040000 -IT1 033224 0 0 0 430000035112 0 000000040000 -AT3 033224 0 0 0 000000035112 0 430000035112 -AT6 033224 035112 0 0 000000035112 0 430000035112 -FT0 033224 035112 0 0 000000040000 0 430000035112 -FT1A 033224 035112 0 0 000000040000 0 000000040000 -FT2 033224 035112 0 0 0 0 000000040000 -FT2RQ 033224 035112 0 0 0 0 000000040000 -FT3 033224 035112 0 0 0 0 000000040000 -FT9 033225 035112 0 0 0 0 000000040000 -ET0 033225 035112 0 0 000000040000 0 000000040000 -ST1 033225 035112 0 0 000000040000 0 000000040000 -ST2 033225 035112 0 0 000000040000 0 000000040000 -ST9 033225 035112 0 0 000000040000 0 000000040000 - - -*033225 SKIPN 0,000000 -INITIAL -C(AC)=000000 040000 -C(E)=000000 040000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 033225 033225 0 0 336000000000 0 000000040000 -IT1 033225 0 0 0 336000000000 0 000000040000 -AT3 033225 0 0 0 0 0 336000000000 -AT6 033225 0 0 0 0 0 336000000000 -FT0 033225 0 0 0 000000040000 0 336000000000 -FT1A 033225 0 0 0 000000040000 0 000000040000 -FT9 033226 0 0 0 000000040000 0 000000040000 -ET0 033227 0 0 0 000000040000 0 000000040000 -ST1A 033227 0 0 0 000000040000 0 000000040000 -ST9 033227 0 0 0 000000040000 0 000000040000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 403 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0619 - -*033227 JUMPA 0,033230 -INITIAL -C(AC)=000000 040000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033227 033227 0 0 324000033230 0 000000033230 -IT1 033227 0 0 0 324000033230 0 000000033230 -AT3 033227 0 0 0 000000033230 0 324000033230 -AT6 033227 033230 0 0 000000033230 0 324000033230 -FT1A 033227 033230 0 0 000000033230 0 000000033230 -FT2 033227 033230 0 0 0 0 000000033230 -FT2RQ 033227 033230 0 0 000000040000 0 000000033230 -FT3 033227 033230 0 0 000000040000 0 000000033230 -FT9 033230 033230 0 0 000000040000 0 000000033230 -ET0 033230 033230 0 0 000000040000 0 000000033230 -ST1A 033230 033230 0 0 000000040000 0 000000033230 -ST9 033230 033230 0 0 000000040000 0 000000033230 - - -*033230 MOVE 0,035062 -INITIAL -C(AC)=000000 040000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033230 033230 0 0 200000035062 0 0 -IT1 033230 0 0 0 200000035062 0 0 -AT3 033230 0 0 0 000000035062 0 200000035062 -AT6 033230 035062 0 0 000000035062 0 200000035062 -FT0 033230 035062 0 0 0 0 200000035062 -FT1A 033230 035062 0 0 0 0 0 -FT9 033231 035062 0 0 0 0 0 -ET0 033231 035062 0 0 0 0 0 -ST1 033231 035062 0 0 0 0 0 -ST2 033231 035062 0 0 0 0 0 -ST9 033231 035062 0 0 0 0 0 - - -*033231 XOR 0,035113 -INITIAL -C(AC)=000000 000000 -C(E)=000000 100000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 033231 033231 0 0 430000035113 0 000000100000 -IT1 033231 0 0 0 430000035113 0 000000100000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 404 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0620 - -AT3 033231 0 0 0 000000035113 0 430000035113 -AT6 033231 035113 0 0 000000035113 0 430000035113 -FT0 033231 035113 0 0 000000100000 0 430000035113 -FT1A 033231 035113 0 0 000000100000 0 000000100000 -FT2 033231 035113 0 0 0 0 000000100000 -FT2RQ 033231 035113 0 0 0 0 000000100000 -FT3 033231 035113 0 0 0 0 000000100000 -FT9 033232 035113 0 0 0 0 000000100000 -ET0 033232 035113 0 0 000000100000 0 000000100000 -ST1 033232 035113 0 0 000000100000 0 000000100000 -ST2 033232 035113 0 0 000000100000 0 000000100000 -ST9 033232 035113 0 0 000000100000 0 000000100000 - - -*033232 SKIPN 0,000000 -INITIAL -C(AC)=000000 100000 -C(E)=000000 100000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 033232 033232 0 0 336000000000 0 000000100000 -IT1 033232 0 0 0 336000000000 0 000000100000 -AT3 033232 0 0 0 0 0 336000000000 -AT6 033232 0 0 0 0 0 336000000000 -FT0 033232 0 0 0 000000100000 0 336000000000 -FT1A 033232 0 0 0 000000100000 0 000000100000 -FT9 033233 0 0 0 000000100000 0 000000100000 -ET0 033234 0 0 0 000000100000 0 000000100000 -ST1A 033234 0 0 0 000000100000 0 000000100000 -ST9 033234 0 0 0 000000100000 0 000000100000 - - -*033234 JUMPA 0,033235 -INITIAL -C(AC)=000000 100000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033234 033234 0 0 324000033235 0 000000033235 -IT1 033234 0 0 0 324000033235 0 000000033235 -AT3 033234 0 0 0 000000033235 0 324000033235 -AT6 033234 033235 0 0 000000033235 0 324000033235 -FT1A 033234 033235 0 0 000000033235 0 000000033235 -FT2 033234 033235 0 0 0 0 000000033235 -FT2RQ 033234 033235 0 0 000000100000 0 000000033235 -FT3 033234 033235 0 0 000000100000 0 000000033235 -FT9 033235 033235 0 0 000000100000 0 000000033235 -ET0 033235 033235 0 0 000000100000 0 000000033235 -ST1A 033235 033235 0 0 000000100000 0 000000033235 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 405 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0621 - -ST9 033235 033235 0 0 000000100000 0 000000033235 - - -*033235 MOVE 0,035062 -INITIAL -C(AC)=000000 100000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033235 033235 0 0 200000035062 0 0 -IT1 033235 0 0 0 200000035062 0 0 -AT3 033235 0 0 0 000000035062 0 200000035062 -AT6 033235 035062 0 0 000000035062 0 200000035062 -FT0 033235 035062 0 0 0 0 200000035062 -FT1A 033235 035062 0 0 0 0 0 -FT9 033236 035062 0 0 0 0 0 -ET0 033236 035062 0 0 0 0 0 -ST1 033236 035062 0 0 0 0 0 -ST2 033236 035062 0 0 0 0 0 -ST9 033236 035062 0 0 0 0 0 - - -*033236 XOR 0,035114 -INITIAL -C(AC)=000000 000000 -C(E)=000000 200000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 033236 033236 0 0 430000035114 0 000000200000 -IT1 033236 0 0 0 430000035114 0 000000200000 -AT3 033236 0 0 0 000000035114 0 430000035114 -AT6 033236 035114 0 0 000000035114 0 430000035114 -FT0 033236 035114 0 0 000000200000 0 430000035114 -FT1A 033236 035114 0 0 000000200000 0 000000200000 -FT2 033236 035114 0 0 0 0 000000200000 -FT2RQ 033236 035114 0 0 0 0 000000200000 -FT3 033236 035114 0 0 0 0 000000200000 -FT9 033237 035114 0 0 0 0 000000200000 -ET0 033237 035114 0 0 000000200000 0 000000200000 -ST1 033237 035114 0 0 000000200000 0 000000200000 -ST2 033237 035114 0 0 000000200000 0 000000200000 -ST9 033237 035114 0 0 000000200000 0 000000200000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 406 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0622 - -*033237 SKIPN 0,000000 -INITIAL -C(AC)=000000 200000 -C(E)=000000 200000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 033237 033237 0 0 336000000000 0 000000200000 -IT1 033237 0 0 0 336000000000 0 000000200000 -AT3 033237 0 0 0 0 0 336000000000 -AT6 033237 0 0 0 0 0 336000000000 -FT0 033237 0 0 0 000000200000 0 336000000000 -FT1A 033237 0 0 0 000000200000 0 000000200000 -FT9 033240 0 0 0 000000200000 0 000000200000 -ET0 033241 0 0 0 000000200000 0 000000200000 -ST1A 033241 0 0 0 000000200000 0 000000200000 -ST9 033241 0 0 0 000000200000 0 000000200000 - - -*033241 JUMPA 0,033242 -INITIAL -C(AC)=000000 200000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033241 033241 0 0 324000033242 0 000000033242 -IT1 033241 0 0 0 324000033242 0 000000033242 -AT3 033241 0 0 0 000000033242 0 324000033242 -AT6 033241 033242 0 0 000000033242 0 324000033242 -FT1A 033241 033242 0 0 000000033242 0 000000033242 -FT2 033241 033242 0 0 0 0 000000033242 -FT2RQ 033241 033242 0 0 000000200000 0 000000033242 -FT3 033241 033242 0 0 000000200000 0 000000033242 -FT9 033242 033242 0 0 000000200000 0 000000033242 -ET0 033242 033242 0 0 000000200000 0 000000033242 -ST1A 033242 033242 0 0 000000200000 0 000000033242 -ST9 033242 033242 0 0 000000200000 0 000000033242 - - -*033242 MOVE 0,035062 -INITIAL -C(AC)=000000 200000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033242 033242 0 0 200000035062 0 0 -IT1 033242 0 0 0 200000035062 0 0 -AT3 033242 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 407 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0623 - -AT6 033242 035062 0 0 000000035062 0 200000035062 -FT0 033242 035062 0 0 0 0 200000035062 -FT1A 033242 035062 0 0 0 0 0 -FT9 033243 035062 0 0 0 0 0 -ET0 033243 035062 0 0 0 0 0 -ST1 033243 035062 0 0 0 0 0 -ST2 033243 035062 0 0 0 0 0 -ST9 033243 035062 0 0 0 0 0 - - -*033243 XOR 0,035115 -INITIAL -C(AC)=000000 000000 -C(E)=000000 400000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 033243 033243 0 0 430000035115 0 000000400000 -IT1 033243 0 0 0 430000035115 0 000000400000 -AT3 033243 0 0 0 000000035115 0 430000035115 -AT6 033243 035115 0 0 000000035115 0 430000035115 -FT0 033243 035115 0 0 000000400000 0 430000035115 -FT1A 033243 035115 0 0 000000400000 0 000000400000 -FT2 033243 035115 0 0 0 0 000000400000 -FT2RQ 033243 035115 0 0 0 0 000000400000 -FT3 033243 035115 0 0 0 0 000000400000 -FT9 033244 035115 0 0 0 0 000000400000 -ET0 033244 035115 0 0 000000400000 0 000000400000 -ST1 033244 035115 0 0 000000400000 0 000000400000 -ST2 033244 035115 0 0 000000400000 0 000000400000 -ST9 033244 035115 0 0 000000400000 0 000000400000 - - -*033244 SKIPN 0,000000 -INITIAL -C(AC)=000000 400000 -C(E)=000000 400000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 033244 033244 0 0 336000000000 0 000000400000 -IT1 033244 0 0 0 336000000000 0 000000400000 -AT3 033244 0 0 0 0 0 336000000000 -AT6 033244 0 0 0 0 0 336000000000 -FT0 033244 0 0 0 000000400000 0 336000000000 -FT1A 033244 0 0 0 000000400000 0 000000400000 -FT9 033245 0 0 0 000000400000 0 000000400000 -ET0 033246 0 0 0 000000400000 0 000000400000 -ST1A 033246 0 0 0 000000400000 0 000000400000 -ST9 033246 0 0 0 000000400000 0 000000400000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 408 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0624 - - - -*033246 JUMPA 0,033247 -INITIAL -C(AC)=000000 400000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033246 033246 0 0 324000033247 0 000000033247 -IT1 033246 0 0 0 324000033247 0 000000033247 -AT3 033246 0 0 0 000000033247 0 324000033247 -AT6 033246 033247 0 0 000000033247 0 324000033247 -FT1A 033246 033247 0 0 000000033247 0 000000033247 -FT2 033246 033247 0 0 0 0 000000033247 -FT2RQ 033246 033247 0 0 000000400000 0 000000033247 -FT3 033246 033247 0 0 000000400000 0 000000033247 -FT9 033247 033247 0 0 000000400000 0 000000033247 -ET0 033247 033247 0 0 000000400000 0 000000033247 -ST1A 033247 033247 0 0 000000400000 0 000000033247 -ST9 033247 033247 0 0 000000400000 0 000000033247 - - -*033247 MOVE 0,035062 -INITIAL -C(AC)=000000 400000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033247 033247 0 0 200000035062 0 0 -IT1 033247 0 0 0 200000035062 0 0 -AT3 033247 0 0 0 000000035062 0 200000035062 -AT6 033247 035062 0 0 000000035062 0 200000035062 -FT0 033247 035062 0 0 0 0 200000035062 -FT1A 033247 035062 0 0 0 0 0 -FT9 033250 035062 0 0 0 0 0 -ET0 033250 035062 0 0 0 0 0 -ST1 033250 035062 0 0 0 0 0 -ST2 033250 035062 0 0 0 0 0 -ST9 033250 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 409 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0625 - -*033250 XOR 0,035116 -INITIAL -C(AC)=000000 000000 -C(E)=000001 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033250 033250 0 0 430000035116 0 000001000000 -IT1 033250 0 0 0 430000035116 0 000001000000 -AT3 033250 0 0 0 000000035116 0 430000035116 -AT6 033250 035116 0 0 000000035116 0 430000035116 -FT0 033250 035116 0 0 000001000000 0 430000035116 -FT1A 033250 035116 0 0 000001000000 0 000001000000 -FT2 033250 035116 0 0 0 0 000001000000 -FT2RQ 033250 035116 0 0 0 0 000001000000 -FT3 033250 035116 0 0 0 0 000001000000 -FT9 033251 035116 0 0 0 0 000001000000 -ET0 033251 035116 0 0 000001000000 0 000001000000 -ST1 033251 035116 0 0 000001000000 0 000001000000 -ST2 033251 035116 0 0 000001000000 0 000001000000 -ST9 033251 035116 0 0 000001000000 0 000001000000 - - -*033251 SKIPN 0,000000 -INITIAL -C(AC)=000001 000000 -C(E)=000001 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033251 033251 0 0 336000000000 0 000001000000 -IT1 033251 0 0 0 336000000000 0 000001000000 -AT3 033251 0 0 0 0 0 336000000000 -AT6 033251 0 0 0 0 0 336000000000 -FT0 033251 0 0 0 000001000000 0 336000000000 -FT1A 033251 0 0 0 000001000000 0 000001000000 -FT9 033252 0 0 0 000001000000 0 000001000000 -ET0 033253 0 0 0 000001000000 0 000001000000 -ST1A 033253 0 0 0 000001000000 0 000001000000 -ST9 033253 0 0 0 000001000000 0 000001000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 410 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0626 - -*033253 JUMPA 0,033254 -INITIAL -C(AC)=000001 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033253 033253 0 0 324000033254 0 000000033254 -IT1 033253 0 0 0 324000033254 0 000000033254 -AT3 033253 0 0 0 000000033254 0 324000033254 -AT6 033253 033254 0 0 000000033254 0 324000033254 -FT1A 033253 033254 0 0 000000033254 0 000000033254 -FT2 033253 033254 0 0 0 0 000000033254 -FT2RQ 033253 033254 0 0 000001000000 0 000000033254 -FT3 033253 033254 0 0 000001000000 0 000000033254 -FT9 033254 033254 0 0 000001000000 0 000000033254 -ET0 033254 033254 0 0 000001000000 0 000000033254 -ST1A 033254 033254 0 0 000001000000 0 000000033254 -ST9 033254 033254 0 0 000001000000 0 000000033254 - - -*033254 MOVE 0,035062 -INITIAL -C(AC)=000001 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033254 033254 0 0 200000035062 0 0 -IT1 033254 0 0 0 200000035062 0 0 -AT3 033254 0 0 0 000000035062 0 200000035062 -AT6 033254 035062 0 0 000000035062 0 200000035062 -FT0 033254 035062 0 0 0 0 200000035062 -FT1A 033254 035062 0 0 0 0 0 -FT9 033255 035062 0 0 0 0 0 -ET0 033255 035062 0 0 0 0 0 -ST1 033255 035062 0 0 0 0 0 -ST2 033255 035062 0 0 0 0 0 -ST9 033255 035062 0 0 0 0 0 - - -*033255 XOR 0,035117 -INITIAL -C(AC)=000000 000000 -C(E)=000002 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033255 033255 0 0 430000035117 0 000002000000 -IT1 033255 0 0 0 430000035117 0 000002000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 411 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0627 - -AT3 033255 0 0 0 000000035117 0 430000035117 -AT6 033255 035117 0 0 000000035117 0 430000035117 -FT0 033255 035117 0 0 000002000000 0 430000035117 -FT1A 033255 035117 0 0 000002000000 0 000002000000 -FT2 033255 035117 0 0 0 0 000002000000 -FT2RQ 033255 035117 0 0 0 0 000002000000 -FT3 033255 035117 0 0 0 0 000002000000 -FT9 033256 035117 0 0 0 0 000002000000 -ET0 033256 035117 0 0 000002000000 0 000002000000 -ST1 033256 035117 0 0 000002000000 0 000002000000 -ST2 033256 035117 0 0 000002000000 0 000002000000 -ST9 033256 035117 0 0 000002000000 0 000002000000 - - -*033256 SKIPN 0,000000 -INITIAL -C(AC)=000002 000000 -C(E)=000002 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033256 033256 0 0 336000000000 0 000002000000 -IT1 033256 0 0 0 336000000000 0 000002000000 -AT3 033256 0 0 0 0 0 336000000000 -AT6 033256 0 0 0 0 0 336000000000 -FT0 033256 0 0 0 000002000000 0 336000000000 -FT1A 033256 0 0 0 000002000000 0 000002000000 -FT9 033257 0 0 0 000002000000 0 000002000000 -ET0 033260 0 0 0 000002000000 0 000002000000 -ST1A 033260 0 0 0 000002000000 0 000002000000 -ST9 033260 0 0 0 000002000000 0 000002000000 - - -*033260 JUMPA 0,033261 -INITIAL -C(AC)=000002 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033260 033260 0 0 324000033261 0 000000033261 -IT1 033260 0 0 0 324000033261 0 000000033261 -AT3 033260 0 0 0 000000033261 0 324000033261 -AT6 033260 033261 0 0 000000033261 0 324000033261 -FT1A 033260 033261 0 0 000000033261 0 000000033261 -FT2 033260 033261 0 0 0 0 000000033261 -FT2RQ 033260 033261 0 0 000002000000 0 000000033261 -FT3 033260 033261 0 0 000002000000 0 000000033261 -FT9 033261 033261 0 0 000002000000 0 000000033261 -ET0 033261 033261 0 0 000002000000 0 000000033261 -ST1A 033261 033261 0 0 000002000000 0 000000033261 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 412 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0628 - -ST9 033261 033261 0 0 000002000000 0 000000033261 - - -*033261 MOVE 0,035062 -INITIAL -C(AC)=000002 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033261 033261 0 0 200000035062 0 0 -IT1 033261 0 0 0 200000035062 0 0 -AT3 033261 0 0 0 000000035062 0 200000035062 -AT6 033261 035062 0 0 000000035062 0 200000035062 -FT0 033261 035062 0 0 0 0 200000035062 -FT1A 033261 035062 0 0 0 0 0 -FT9 033262 035062 0 0 0 0 0 -ET0 033262 035062 0 0 0 0 0 -ST1 033262 035062 0 0 0 0 0 -ST2 033262 035062 0 0 0 0 0 -ST9 033262 035062 0 0 0 0 0 - - -*033262 XOR 0,035120 -INITIAL -C(AC)=000000 000000 -C(E)=000004 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033262 033262 0 0 430000035120 0 000004000000 -IT1 033262 0 0 0 430000035120 0 000004000000 -AT3 033262 0 0 0 000000035120 0 430000035120 -AT6 033262 035120 0 0 000000035120 0 430000035120 -FT0 033262 035120 0 0 000004000000 0 430000035120 -FT1A 033262 035120 0 0 000004000000 0 000004000000 -FT2 033262 035120 0 0 0 0 000004000000 -FT2RQ 033262 035120 0 0 0 0 000004000000 -FT3 033262 035120 0 0 0 0 000004000000 -FT9 033263 035120 0 0 0 0 000004000000 -ET0 033263 035120 0 0 000004000000 0 000004000000 -ST1 033263 035120 0 0 000004000000 0 000004000000 -ST2 033263 035120 0 0 000004000000 0 000004000000 -ST9 033263 035120 0 0 000004000000 0 000004000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 413 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0629 - -*033263 SKIPN 0,000000 -INITIAL -C(AC)=000004 000000 -C(E)=000004 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033263 033263 0 0 336000000000 0 000004000000 -IT1 033263 0 0 0 336000000000 0 000004000000 -AT3 033263 0 0 0 0 0 336000000000 -AT6 033263 0 0 0 0 0 336000000000 -FT0 033263 0 0 0 000004000000 0 336000000000 -FT1A 033263 0 0 0 000004000000 0 000004000000 -FT9 033264 0 0 0 000004000000 0 000004000000 -ET0 033265 0 0 0 000004000000 0 000004000000 -ST1A 033265 0 0 0 000004000000 0 000004000000 -ST9 033265 0 0 0 000004000000 0 000004000000 - - -*033265 JUMPA 0,033266 -INITIAL -C(AC)=000004 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033265 033265 0 0 324000033266 0 000000033266 -IT1 033265 0 0 0 324000033266 0 000000033266 -AT3 033265 0 0 0 000000033266 0 324000033266 -AT6 033265 033266 0 0 000000033266 0 324000033266 -FT1A 033265 033266 0 0 000000033266 0 000000033266 -FT2 033265 033266 0 0 0 0 000000033266 -FT2RQ 033265 033266 0 0 000004000000 0 000000033266 -FT3 033265 033266 0 0 000004000000 0 000000033266 -FT9 033266 033266 0 0 000004000000 0 000000033266 -ET0 033266 033266 0 0 000004000000 0 000000033266 -ST1A 033266 033266 0 0 000004000000 0 000000033266 -ST9 033266 033266 0 0 000004000000 0 000000033266 - - -*033266 MOVE 0,035062 -INITIAL -C(AC)=000004 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033266 033266 0 0 200000035062 0 0 -IT1 033266 0 0 0 200000035062 0 0 -AT3 033266 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 414 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0630 - -AT6 033266 035062 0 0 000000035062 0 200000035062 -FT0 033266 035062 0 0 0 0 200000035062 -FT1A 033266 035062 0 0 0 0 0 -FT9 033267 035062 0 0 0 0 0 -ET0 033267 035062 0 0 0 0 0 -ST1 033267 035062 0 0 0 0 0 -ST2 033267 035062 0 0 0 0 0 -ST9 033267 035062 0 0 0 0 0 - - -*033267 XOR 0,035121 -INITIAL -C(AC)=000000 000000 -C(E)=000010 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033267 033267 0 0 430000035121 0 000010000000 -IT1 033267 0 0 0 430000035121 0 000010000000 -AT3 033267 0 0 0 000000035121 0 430000035121 -AT6 033267 035121 0 0 000000035121 0 430000035121 -FT0 033267 035121 0 0 000010000000 0 430000035121 -FT1A 033267 035121 0 0 000010000000 0 000010000000 -FT2 033267 035121 0 0 0 0 000010000000 -FT2RQ 033267 035121 0 0 0 0 000010000000 -FT3 033267 035121 0 0 0 0 000010000000 -FT9 033270 035121 0 0 0 0 000010000000 -ET0 033270 035121 0 0 000010000000 0 000010000000 -ST1 033270 035121 0 0 000010000000 0 000010000000 -ST2 033270 035121 0 0 000010000000 0 000010000000 -ST9 033270 035121 0 0 000010000000 0 000010000000 - - -*033270 SKIPN 0,000000 -INITIAL -C(AC)=000010 000000 -C(E)=000010 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033270 033270 0 0 336000000000 0 000010000000 -IT1 033270 0 0 0 336000000000 0 000010000000 -AT3 033270 0 0 0 0 0 336000000000 -AT6 033270 0 0 0 0 0 336000000000 -FT0 033270 0 0 0 000010000000 0 336000000000 -FT1A 033270 0 0 0 000010000000 0 000010000000 -FT9 033271 0 0 0 000010000000 0 000010000000 -ET0 033272 0 0 0 000010000000 0 000010000000 -ST1A 033272 0 0 0 000010000000 0 000010000000 -ST9 033272 0 0 0 000010000000 0 000010000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 415 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0631 - - - -*033272 JUMPA 0,033273 -INITIAL -C(AC)=000010 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033272 033272 0 0 324000033273 0 000000033273 -IT1 033272 0 0 0 324000033273 0 000000033273 -AT3 033272 0 0 0 000000033273 0 324000033273 -AT6 033272 033273 0 0 000000033273 0 324000033273 -FT1A 033272 033273 0 0 000000033273 0 000000033273 -FT2 033272 033273 0 0 0 0 000000033273 -FT2RQ 033272 033273 0 0 000010000000 0 000000033273 -FT3 033272 033273 0 0 000010000000 0 000000033273 -FT9 033273 033273 0 0 000010000000 0 000000033273 -ET0 033273 033273 0 0 000010000000 0 000000033273 -ST1A 033273 033273 0 0 000010000000 0 000000033273 -ST9 033273 033273 0 0 000010000000 0 000000033273 - - -*033273 MOVE 0,035062 -INITIAL -C(AC)=000010 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033273 033273 0 0 200000035062 0 0 -IT1 033273 0 0 0 200000035062 0 0 -AT3 033273 0 0 0 000000035062 0 200000035062 -AT6 033273 035062 0 0 000000035062 0 200000035062 -FT0 033273 035062 0 0 0 0 200000035062 -FT1A 033273 035062 0 0 0 0 0 -FT9 033274 035062 0 0 0 0 0 -ET0 033274 035062 0 0 0 0 0 -ST1 033274 035062 0 0 0 0 0 -ST2 033274 035062 0 0 0 0 0 -ST9 033274 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 416 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0632 - -*033274 XOR 0,035122 -INITIAL -C(AC)=000000 000000 -C(E)=000020 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033274 033274 0 0 430000035122 0 000020000000 -IT1 033274 0 0 0 430000035122 0 000020000000 -AT3 033274 0 0 0 000000035122 0 430000035122 -AT6 033274 035122 0 0 000000035122 0 430000035122 -FT0 033274 035122 0 0 000020000000 0 430000035122 -FT1A 033274 035122 0 0 000020000000 0 000020000000 -FT2 033274 035122 0 0 0 0 000020000000 -FT2RQ 033274 035122 0 0 0 0 000020000000 -FT3 033274 035122 0 0 0 0 000020000000 -FT9 033275 035122 0 0 0 0 000020000000 -ET0 033275 035122 0 0 000020000000 0 000020000000 -ST1 033275 035122 0 0 000020000000 0 000020000000 -ST2 033275 035122 0 0 000020000000 0 000020000000 -ST9 033275 035122 0 0 000020000000 0 000020000000 - - -*033275 SKIPN 0,000000 -INITIAL -C(AC)=000020 000000 -C(E)=000020 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033275 033275 0 0 336000000000 0 000020000000 -IT1 033275 0 0 0 336000000000 0 000020000000 -AT3 033275 0 0 0 0 0 336000000000 -AT6 033275 0 0 0 0 0 336000000000 -FT0 033275 0 0 0 000020000000 0 336000000000 -FT1A 033275 0 0 0 000020000000 0 000020000000 -FT9 033276 0 0 0 000020000000 0 000020000000 -ET0 033277 0 0 0 000020000000 0 000020000000 -ST1A 033277 0 0 0 000020000000 0 000020000000 -ST9 033277 0 0 0 000020000000 0 000020000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 417 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0633 - -*033277 JUMPA 0,033300 -INITIAL -C(AC)=000020 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033277 033277 0 0 324000033300 0 000000033300 -IT1 033277 0 0 0 324000033300 0 000000033300 -AT3 033277 0 0 0 000000033300 0 324000033300 -AT6 033277 0 0 0 000000033300 0 324000033300 -FT1A 033277 0 0 0 000000033300 0 000000033300 -FT2 033277 0 0 0 0 0 000000033300 -FT2RQ 033277 0 0 0 000020000000 0 000000033300 -FT3 033277 0 0 0 000020000000 0 000000033300 -FT9 0 0 0 0 000020000000 0 000000033300 -ET0 0 0 0 0 000020000000 0 000000033300 -ST1A 0 0 0 0 000020000000 0 000000033300 -ST9 0 0 0 0 000020000000 0 000000033300 - - -*033300 MOVE 0,035062 -INITIAL -C(AC)=000020 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 200000035062 0 0 -IT1 0 0 0 0 200000035062 0 0 -AT3 0 0 0 0 000000035062 0 200000035062 -AT6 0 035062 0 0 000000035062 0 200000035062 -FT0 0 035062 0 0 0 0 200000035062 -FT1A 0 035062 0 0 0 0 0 -FT9 033301 035062 0 0 0 0 0 -ET0 033301 035062 0 0 0 0 0 -ST1 033301 035062 0 0 0 0 0 -ST2 033301 035062 0 0 0 0 0 -ST9 033301 035062 0 0 0 0 0 - - -*033301 XOR 0,035123 -INITIAL -C(AC)=000000 000000 -C(E)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033301 033301 0 0 430000035123 0 000040000000 -IT1 033301 0 0 0 430000035123 0 000040000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 418 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0634 - -AT3 033301 0 0 0 000000035123 0 430000035123 -AT6 033301 035123 0 0 000000035123 0 430000035123 -FT0 033301 035123 0 0 000040000000 0 430000035123 -FT1A 033301 035123 0 0 000040000000 0 000040000000 -FT2 033301 035123 0 0 0 0 000040000000 -FT2RQ 033301 035123 0 0 0 0 000040000000 -FT3 033301 035123 0 0 0 0 000040000000 -FT9 033302 035123 0 0 0 0 000040000000 -ET0 033302 035123 0 0 000040000000 0 000040000000 -ST1 033302 035123 0 0 000040000000 0 000040000000 -ST2 033302 035123 0 0 000040000000 0 000040000000 -ST9 033302 035123 0 0 000040000000 0 000040000000 - - -*033302 SKIPN 0,000000 -INITIAL -C(AC)=000040 000000 -C(E)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033302 033302 0 0 336000000000 0 000040000000 -IT1 033302 0 0 0 336000000000 0 000040000000 -AT3 033302 0 0 0 0 0 336000000000 -AT6 033302 0 0 0 0 0 336000000000 -FT0 033302 0 0 0 000040000000 0 336000000000 -FT1A 033302 0 0 0 000040000000 0 000040000000 -FT9 033303 0 0 0 000040000000 0 000040000000 -ET0 033304 0 0 0 000040000000 0 000040000000 -ST1A 033304 0 0 0 000040000000 0 000040000000 -ST9 033304 0 0 0 000040000000 0 000040000000 - - -*033304 JUMPA 0,033305 -INITIAL -C(AC)=000040 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033304 033304 0 0 324000033305 0 000000033305 -IT1 033304 0 0 0 324000033305 0 000000033305 -AT3 033304 0 0 0 000000033305 0 324000033305 -AT6 033304 033305 0 0 000000033305 0 324000033305 -FT1A 033304 033305 0 0 000000033305 0 000000033305 -FT2 033304 033305 0 0 0 0 000000033305 -FT2RQ 033304 033305 0 0 000040000000 0 000000033305 -FT3 033304 033305 0 0 000040000000 0 000000033305 -FT9 033305 033305 0 0 000040000000 0 000000033305 -ET0 033305 033305 0 0 000040000000 0 000000033305 -ST1A 033305 033305 0 0 000040000000 0 000000033305 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 419 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0635 - -ST9 033305 033305 0 0 000040000000 0 000000033305 - - -*033305 MOVE 0,035062 -INITIAL -C(AC)=000040 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033305 033305 0 0 200000035062 0 0 -IT1 033305 0 0 0 200000035062 0 0 -AT3 033305 0 0 0 000000035062 0 200000035062 -AT6 033305 035062 0 0 000000035062 0 200000035062 -FT0 033305 035062 0 0 0 0 200000035062 -FT1A 033305 035062 0 0 0 0 0 -FT9 033306 035062 0 0 0 0 0 -ET0 033306 035062 0 0 0 0 0 -ST1 033306 035062 0 0 0 0 0 -ST2 033306 035062 0 0 0 0 0 -ST9 033306 035062 0 0 0 0 0 - - -*033306 XOR 0,035124 -INITIAL -C(AC)=000000 000000 -C(E)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033306 033306 0 0 430000035124 0 000100000000 -IT1 033306 0 0 0 430000035124 0 000100000000 -AT3 033306 0 0 0 000000035124 0 430000035124 -AT6 033306 035124 0 0 000000035124 0 430000035124 -FT0 033306 035124 0 0 000100000000 0 430000035124 -FT1A 033306 035124 0 0 000100000000 0 000100000000 -FT2 033306 035124 0 0 0 0 000100000000 -FT2RQ 033306 035124 0 0 0 0 000100000000 -FT3 033306 035124 0 0 0 0 000100000000 -FT9 033307 035124 0 0 0 0 000100000000 -ET0 033307 035124 0 0 000100000000 0 000100000000 -ST1 033307 035124 0 0 000100000000 0 000100000000 -ST2 033307 035124 0 0 000100000000 0 000100000000 -ST9 033307 035124 0 0 000100000000 0 000100000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 420 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0636 - -*033307 SKIPN 0,000000 -INITIAL -C(AC)=000100 000000 -C(E)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033307 033307 0 0 336000000000 0 000100000000 -IT1 033307 0 0 0 336000000000 0 000100000000 -AT3 033307 0 0 0 0 0 336000000000 -AT6 033307 0 0 0 0 0 336000000000 -FT0 033307 0 0 0 000100000000 0 336000000000 -FT1A 033307 0 0 0 000100000000 0 000100000000 -FT9 033310 0 0 0 000100000000 0 000100000000 -ET0 033311 0 0 0 000100000000 0 000100000000 -ST1A 033311 0 0 0 000100000000 0 000100000000 -ST9 033311 0 0 0 000100000000 0 000100000000 - - -*033311 JUMPA 0,033312 -INITIAL -C(AC)=000100 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033311 033311 0 0 324000033312 0 000000033312 -IT1 033311 0 0 0 324000033312 0 000000033312 -AT3 033311 0 0 0 000000033312 0 324000033312 -AT6 033311 033312 0 0 000000033312 0 324000033312 -FT1A 033311 033312 0 0 000000033312 0 000000033312 -FT2 033311 033312 0 0 0 0 000000033312 -FT2RQ 033311 033312 0 0 000100000000 0 000000033312 -FT3 033311 033312 0 0 000100000000 0 000000033312 -FT9 033312 033312 0 0 000100000000 0 000000033312 -ET0 033312 033312 0 0 000100000000 0 000000033312 -ST1A 033312 033312 0 0 000100000000 0 000000033312 -ST9 033312 033312 0 0 000100000000 0 000000033312 - - -*033312 MOVE 0,035062 -INITIAL -C(AC)=000100 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033312 033312 0 0 200000035062 0 0 -IT1 033312 0 0 0 200000035062 0 0 -AT3 033312 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 421 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0637 - -AT6 033312 035062 0 0 000000035062 0 200000035062 -FT0 033312 035062 0 0 0 0 200000035062 -FT1A 033312 035062 0 0 0 0 0 -FT9 033313 035062 0 0 0 0 0 -ET0 033313 035062 0 0 0 0 0 -ST1 033313 035062 0 0 0 0 0 -ST2 033313 035062 0 0 0 0 0 -ST9 033313 035062 0 0 0 0 0 - - -*033313 XOR 0,035125 -INITIAL -C(AC)=000000 000000 -C(E)=000200 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033313 033313 0 0 430000035125 0 000200000000 -IT1 033313 0 0 0 430000035125 0 000200000000 -AT3 033313 0 0 0 000000035125 0 430000035125 -AT6 033313 035125 0 0 000000035125 0 430000035125 -FT0 033313 035125 0 0 000200000000 0 430000035125 -FT1A 033313 035125 0 0 000200000000 0 000200000000 -FT2 033313 035125 0 0 0 0 000200000000 -FT2RQ 033313 035125 0 0 0 0 000200000000 -FT3 033313 035125 0 0 0 0 000200000000 -FT9 033314 035125 0 0 0 0 000200000000 -ET0 033314 035125 0 0 000200000000 0 000200000000 -ST1 033314 035125 0 0 000200000000 0 000200000000 -ST2 033314 035125 0 0 000200000000 0 000200000000 -ST9 033314 035125 0 0 000200000000 0 000200000000 - - -*033314 SKIPN 0,000000 -INITIAL -C(AC)=000200 000000 -C(E)=000200 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033314 033314 0 0 336000000000 0 000200000000 -IT1 033314 0 0 0 336000000000 0 000200000000 -AT3 033314 0 0 0 0 0 336000000000 -AT6 033314 0 0 0 0 0 336000000000 -FT0 033314 0 0 0 000200000000 0 336000000000 -FT1A 033314 0 0 0 000200000000 0 000200000000 -FT9 033315 0 0 0 000200000000 0 000200000000 -ET0 033316 0 0 0 000200000000 0 000200000000 -ST1A 033316 0 0 0 000200000000 0 000200000000 -ST9 033316 0 0 0 000200000000 0 000200000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 422 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0638 - - - -*033316 JUMPA 0,033317 -INITIAL -C(AC)=000200 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033316 033316 0 0 324000033317 0 000000033317 -IT1 033316 0 0 0 324000033317 0 000000033317 -AT3 033316 0 0 0 000000033317 0 324000033317 -AT6 033316 033317 0 0 000000033317 0 324000033317 -FT1A 033316 033317 0 0 000000033317 0 000000033317 -FT2 033316 033317 0 0 0 0 000000033317 -FT2RQ 033316 033317 0 0 000200000000 0 000000033317 -FT3 033316 033317 0 0 000200000000 0 000000033317 -FT9 033317 033317 0 0 000200000000 0 000000033317 -ET0 033317 033317 0 0 000200000000 0 000000033317 -ST1A 033317 033317 0 0 000200000000 0 000000033317 -ST9 033317 033317 0 0 000200000000 0 000000033317 - - -*033317 MOVE 0,035062 -INITIAL -C(AC)=000200 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033317 033317 0 0 200000035062 0 0 -IT1 033317 0 0 0 200000035062 0 0 -AT3 033317 0 0 0 000000035062 0 200000035062 -AT6 033317 035062 0 0 000000035062 0 200000035062 -FT0 033317 035062 0 0 0 0 200000035062 -FT1A 033317 035062 0 0 0 0 0 -FT9 033320 035062 0 0 0 0 0 -ET0 033320 035062 0 0 0 0 0 -ST1 033320 035062 0 0 0 0 0 -ST2 033320 035062 0 0 0 0 0 -ST9 033320 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 423 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0639 - -*033320 XOR 0,035073 -INITIAL -C(AC)=000000 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033320 033320 0 0 430000035073 0 000400000000 -IT1 033320 0 0 0 430000035073 0 000400000000 -AT3 033320 0 0 0 000000035073 0 430000035073 -AT6 033320 035073 0 0 000000035073 0 430000035073 -FT0 033320 035073 0 0 000400000000 0 430000035073 -FT1A 033320 035073 0 0 000400000000 0 000400000000 -FT2 033320 035073 0 0 0 0 000400000000 -FT2RQ 033320 035073 0 0 0 0 000400000000 -FT3 033320 035073 0 0 0 0 000400000000 -FT9 033321 035073 0 0 0 0 000400000000 -ET0 033321 035073 0 0 000400000000 0 000400000000 -ST1 033321 035073 0 0 000400000000 0 000400000000 -ST2 033321 035073 0 0 000400000000 0 000400000000 -ST9 033321 035073 0 0 000400000000 0 000400000000 - - -*033321 SKIPN 0,000000 -INITIAL -C(AC)=000400 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033321 033321 0 0 336000000000 0 000400000000 -IT1 033321 0 0 0 336000000000 0 000400000000 -AT3 033321 0 0 0 0 0 336000000000 -AT6 033321 0 0 0 0 0 336000000000 -FT0 033321 0 0 0 000400000000 0 336000000000 -FT1A 033321 0 0 0 000400000000 0 000400000000 -FT9 033322 0 0 0 000400000000 0 000400000000 -ET0 033323 0 0 0 000400000000 0 000400000000 -ST1A 033323 0 0 0 000400000000 0 000400000000 -ST9 033323 0 0 0 000400000000 0 000400000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 424 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0640 - -*033323 JUMPA 0,033324 -INITIAL -C(AC)=000400 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033323 033323 0 0 324000033324 0 000000033324 -IT1 033323 0 0 0 324000033324 0 000000033324 -AT3 033323 0 0 0 000000033324 0 324000033324 -AT6 033323 033324 0 0 000000033324 0 324000033324 -FT1A 033323 033324 0 0 000000033324 0 000000033324 -FT2 033323 033324 0 0 0 0 000000033324 -FT2RQ 033323 033324 0 0 000400000000 0 000000033324 -FT3 033323 033324 0 0 000400000000 0 000000033324 -FT9 033324 033324 0 0 000400000000 0 000000033324 -ET0 033324 033324 0 0 000400000000 0 000000033324 -ST1A 033324 033324 0 0 000400000000 0 000000033324 -ST9 033324 033324 0 0 000400000000 0 000000033324 - - -*033324 MOVE 0,035062 -INITIAL -C(AC)=000400 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033324 033324 0 0 200000035062 0 0 -IT1 033324 0 0 0 200000035062 0 0 -AT3 033324 0 0 0 000000035062 0 200000035062 -AT6 033324 035062 0 0 000000035062 0 200000035062 -FT0 033324 035062 0 0 0 0 200000035062 -FT1A 033324 035062 0 0 0 0 0 -FT9 033325 035062 0 0 0 0 0 -ET0 033325 035062 0 0 0 0 0 -ST1 033325 035062 0 0 0 0 0 -ST2 033325 035062 0 0 0 0 0 -ST9 033325 035062 0 0 0 0 0 - - -*033325 XOR 0,035126 -INITIAL -C(AC)=000000 000000 -C(E)=001000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033325 033325 0 0 430000035126 0 001000000000 -IT1 033325 0 0 0 430000035126 0 001000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 425 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0641 - -AT3 033325 0 0 0 000000035126 0 430000035126 -AT6 033325 035126 0 0 000000035126 0 430000035126 -FT0 033325 035126 0 0 001000000000 0 430000035126 -FT1A 033325 035126 0 0 001000000000 0 001000000000 -FT2 033325 035126 0 0 0 0 001000000000 -FT2RQ 033325 035126 0 0 0 0 001000000000 -FT3 033325 035126 0 0 0 0 001000000000 -FT9 033326 035126 0 0 0 0 001000000000 -ET0 033326 035126 0 0 001000000000 0 001000000000 -ST1 033326 035126 0 0 001000000000 0 001000000000 -ST2 033326 035126 0 0 001000000000 0 001000000000 -ST9 033326 035126 0 0 001000000000 0 001000000000 - - -*033326 SKIPN 0,000000 -INITIAL -C(AC)=001000 000000 -C(E)=001000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033326 033326 0 0 336000000000 0 001000000000 -IT1 033326 0 0 0 336000000000 0 001000000000 -AT3 033326 0 0 0 0 0 336000000000 -AT6 033326 0 0 0 0 0 336000000000 -FT0 033326 0 0 0 001000000000 0 336000000000 -FT1A 033326 0 0 0 001000000000 0 001000000000 -FT9 033327 0 0 0 001000000000 0 001000000000 -ET0 033330 0 0 0 001000000000 0 001000000000 -ST1A 033330 0 0 0 001000000000 0 001000000000 -ST9 033330 0 0 0 001000000000 0 001000000000 - - -*033330 JUMPA 0,033331 -INITIAL -C(AC)=001000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033330 033330 0 0 324000033331 0 000000033331 -IT1 033330 0 0 0 324000033331 0 000000033331 -AT3 033330 0 0 0 000000033331 0 324000033331 -AT6 033330 033331 0 0 000000033331 0 324000033331 -FT1A 033330 033331 0 0 000000033331 0 000000033331 -FT2 033330 033331 0 0 0 0 000000033331 -FT2RQ 033330 033331 0 0 001000000000 0 000000033331 -FT3 033330 033331 0 0 001000000000 0 000000033331 -FT9 033331 033331 0 0 001000000000 0 000000033331 -ET0 033331 033331 0 0 001000000000 0 000000033331 -ST1A 033331 033331 0 0 001000000000 0 000000033331 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 426 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0642 - -ST9 033331 033331 0 0 001000000000 0 000000033331 - - -*033331 MOVE 0,035062 -INITIAL -C(AC)=001000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033331 033331 0 0 200000035062 0 0 -IT1 033331 0 0 0 200000035062 0 0 -AT3 033331 0 0 0 000000035062 0 200000035062 -AT6 033331 035062 0 0 000000035062 0 200000035062 -FT0 033331 035062 0 0 0 0 200000035062 -FT1A 033331 035062 0 0 0 0 0 -FT9 033332 035062 0 0 0 0 0 -ET0 033332 035062 0 0 0 0 0 -ST1 033332 035062 0 0 0 0 0 -ST2 033332 035062 0 0 0 0 0 -ST9 033332 035062 0 0 0 0 0 - - -*033332 XOR 0,035127 -INITIAL -C(AC)=000000 000000 -C(E)=002000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033332 033332 0 0 430000035127 0 002000000000 -IT1 033332 0 0 0 430000035127 0 002000000000 -AT3 033332 0 0 0 000000035127 0 430000035127 -AT6 033332 035127 0 0 000000035127 0 430000035127 -FT0 033332 035127 0 0 002000000000 0 430000035127 -FT1A 033332 035127 0 0 002000000000 0 002000000000 -FT2 033332 035127 0 0 0 0 002000000000 -FT2RQ 033332 035127 0 0 0 0 002000000000 -FT3 033332 035127 0 0 0 0 002000000000 -FT9 033333 035127 0 0 0 0 002000000000 -ET0 033333 035127 0 0 002000000000 0 002000000000 -ST1 033333 035127 0 0 002000000000 0 002000000000 -ST2 033333 035127 0 0 002000000000 0 002000000000 -ST9 033333 035127 0 0 002000000000 0 002000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 427 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0643 - -*033333 SKIPN 0,000000 -INITIAL -C(AC)=002000 000000 -C(E)=002000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033333 033333 0 0 336000000000 0 002000000000 -IT1 033333 0 0 0 336000000000 0 002000000000 -AT3 033333 0 0 0 0 0 336000000000 -AT6 033333 0 0 0 0 0 336000000000 -FT0 033333 0 0 0 002000000000 0 336000000000 -FT1A 033333 0 0 0 002000000000 0 002000000000 -FT9 033334 0 0 0 002000000000 0 002000000000 -ET0 033335 0 0 0 002000000000 0 002000000000 -ST1A 033335 0 0 0 002000000000 0 002000000000 -ST9 033335 0 0 0 002000000000 0 002000000000 - - -*033335 JUMPA 0,033336 -INITIAL -C(AC)=002000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033335 033335 0 0 324000033336 0 000000033336 -IT1 033335 0 0 0 324000033336 0 000000033336 -AT3 033335 0 0 0 000000033336 0 324000033336 -AT6 033335 033336 0 0 000000033336 0 324000033336 -FT1A 033335 033336 0 0 000000033336 0 000000033336 -FT2 033335 033336 0 0 0 0 000000033336 -FT2RQ 033335 033336 0 0 002000000000 0 000000033336 -FT3 033335 033336 0 0 002000000000 0 000000033336 -FT9 033336 033336 0 0 002000000000 0 000000033336 -ET0 033336 033336 0 0 002000000000 0 000000033336 -ST1A 033336 033336 0 0 002000000000 0 000000033336 -ST9 033336 033336 0 0 002000000000 0 000000033336 - - -*033336 MOVE 0,035062 -INITIAL -C(AC)=002000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033336 033336 0 0 200000035062 0 0 -IT1 033336 0 0 0 200000035062 0 0 -AT3 033336 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 428 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0644 - -AT6 033336 035062 0 0 000000035062 0 200000035062 -FT0 033336 035062 0 0 0 0 200000035062 -FT1A 033336 035062 0 0 0 0 0 -FT9 033337 035062 0 0 0 0 0 -ET0 033337 035062 0 0 0 0 0 -ST1 033337 035062 0 0 0 0 0 -ST2 033337 035062 0 0 0 0 0 -ST9 033337 035062 0 0 0 0 0 - - -*033337 XOR 0,035130 -INITIAL -C(AC)=000000 000000 -C(E)=004000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033337 033337 0 0 430000035130 0 004000000000 -IT1 033337 0 0 0 430000035130 0 004000000000 -AT3 033337 0 0 0 000000035130 0 430000035130 -AT6 033337 035130 0 0 000000035130 0 430000035130 -FT0 033337 035130 0 0 004000000000 0 430000035130 -FT1A 033337 035130 0 0 004000000000 0 004000000000 -FT2 033337 035130 0 0 0 0 004000000000 -FT2RQ 033337 035130 0 0 0 0 004000000000 -FT3 033337 035130 0 0 0 0 004000000000 -FT9 033340 035130 0 0 0 0 004000000000 -ET0 033340 035130 0 0 004000000000 0 004000000000 -ST1 033340 035130 0 0 004000000000 0 004000000000 -ST2 033340 035130 0 0 004000000000 0 004000000000 -ST9 033340 035130 0 0 004000000000 0 004000000000 - - -*033340 SKIPN 0,000000 -INITIAL -C(AC)=004000 000000 -C(E)=004000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033340 033340 0 0 336000000000 0 004000000000 -IT1 033340 0 0 0 336000000000 0 004000000000 -AT3 033340 0 0 0 0 0 336000000000 -AT6 033340 0 0 0 0 0 336000000000 -FT0 033340 0 0 0 004000000000 0 336000000000 -FT1A 033340 0 0 0 004000000000 0 004000000000 -FT9 033341 0 0 0 004000000000 0 004000000000 -ET0 033342 0 0 0 004000000000 0 004000000000 -ST1A 033342 0 0 0 004000000000 0 004000000000 -ST9 033342 0 0 0 004000000000 0 004000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 429 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0645 - - - -*033342 JUMPA 0,033343 -INITIAL -C(AC)=004000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033342 033342 0 0 324000033343 0 000000033343 -IT1 033342 0 0 0 324000033343 0 000000033343 -AT3 033342 0 0 0 000000033343 0 324000033343 -AT6 033342 033343 0 0 000000033343 0 324000033343 -FT1A 033342 033343 0 0 000000033343 0 000000033343 -FT2 033342 033343 0 0 0 0 000000033343 -FT2RQ 033342 033343 0 0 004000000000 0 000000033343 -FT3 033342 033343 0 0 004000000000 0 000000033343 -FT9 033343 033343 0 0 004000000000 0 000000033343 -ET0 033343 033343 0 0 004000000000 0 000000033343 -ST1A 033343 033343 0 0 004000000000 0 000000033343 -ST9 033343 033343 0 0 004000000000 0 000000033343 - - -*033343 MOVE 0,035062 -INITIAL -C(AC)=004000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033343 033343 0 0 200000035062 0 0 -IT1 033343 0 0 0 200000035062 0 0 -AT3 033343 0 0 0 000000035062 0 200000035062 -AT6 033343 035062 0 0 000000035062 0 200000035062 -FT0 033343 035062 0 0 0 0 200000035062 -FT1A 033343 035062 0 0 0 0 0 -FT9 033344 035062 0 0 0 0 0 -ET0 033344 035062 0 0 0 0 0 -ST1 033344 035062 0 0 0 0 0 -ST2 033344 035062 0 0 0 0 0 -ST9 033344 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 430 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0646 - -*033344 XOR 0,035131 -INITIAL -C(AC)=000000 000000 -C(E)=010000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033344 033344 0 0 430000035131 0 010000000000 -IT1 033344 0 0 0 430000035131 0 010000000000 -AT3 033344 0 0 0 000000035131 0 430000035131 -AT6 033344 035131 0 0 000000035131 0 430000035131 -FT0 033344 035131 0 0 010000000000 0 430000035131 -FT1A 033344 035131 0 0 010000000000 0 010000000000 -FT2 033344 035131 0 0 0 0 010000000000 -FT2RQ 033344 035131 0 0 0 0 010000000000 -FT3 033344 035131 0 0 0 0 010000000000 -FT9 033345 035131 0 0 0 0 010000000000 -ET0 033345 035131 0 0 010000000000 0 010000000000 -ST1 033345 035131 0 0 010000000000 0 010000000000 -ST2 033345 035131 0 0 010000000000 0 010000000000 -ST9 033345 035131 0 0 010000000000 0 010000000000 - - -*033345 SKIPN 0,000000 -INITIAL -C(AC)=010000 000000 -C(E)=010000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033345 033345 0 0 336000000000 0 010000000000 -IT1 033345 0 0 0 336000000000 0 010000000000 -AT3 033345 0 0 0 0 0 336000000000 -AT6 033345 0 0 0 0 0 336000000000 -FT0 033345 0 0 0 010000000000 0 336000000000 -FT1A 033345 0 0 0 010000000000 0 010000000000 -FT9 033346 0 0 0 010000000000 0 010000000000 -ET0 033347 0 0 0 010000000000 0 010000000000 -ST1A 033347 0 0 0 010000000000 0 010000000000 -ST9 033347 0 0 0 010000000000 0 010000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 431 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0647 - -*033347 JUMPA 0,033350 -INITIAL -C(AC)=010000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033347 033347 0 0 324000033350 0 000000033350 -IT1 033347 0 0 0 324000033350 0 000000033350 -AT3 033347 0 0 0 000000033350 0 324000033350 -AT6 033347 033350 0 0 000000033350 0 324000033350 -FT1A 033347 033350 0 0 000000033350 0 000000033350 -FT2 033347 033350 0 0 0 0 000000033350 -FT2RQ 033347 033350 0 0 010000000000 0 000000033350 -FT3 033347 033350 0 0 010000000000 0 000000033350 -FT9 033350 033350 0 0 010000000000 0 000000033350 -ET0 033350 033350 0 0 010000000000 0 000000033350 -ST1A 033350 033350 0 0 010000000000 0 000000033350 -ST9 033350 033350 0 0 010000000000 0 000000033350 - - -*033350 MOVE 0,035062 -INITIAL -C(AC)=010000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033350 033350 0 0 200000035062 0 0 -IT1 033350 0 0 0 200000035062 0 0 -AT3 033350 0 0 0 000000035062 0 200000035062 -AT6 033350 035062 0 0 000000035062 0 200000035062 -FT0 033350 035062 0 0 0 0 200000035062 -FT1A 033350 035062 0 0 0 0 0 -FT9 033351 035062 0 0 0 0 0 -ET0 033351 035062 0 0 0 0 0 -ST1 033351 035062 0 0 0 0 0 -ST2 033351 035062 0 0 0 0 0 -ST9 033351 035062 0 0 0 0 0 - - -*033351 XOR 0,035132 -INITIAL -C(AC)=000000 000000 -C(E)=020000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033351 033351 0 0 430000035132 0 020000000000 -IT1 033351 0 0 0 430000035132 0 020000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 432 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0648 - -AT3 033351 0 0 0 000000035132 0 430000035132 -AT6 033351 035132 0 0 000000035132 0 430000035132 -FT0 033351 035132 0 0 020000000000 0 430000035132 -FT1A 033351 035132 0 0 020000000000 0 020000000000 -FT2 033351 035132 0 0 0 0 020000000000 -FT2RQ 033351 035132 0 0 0 0 020000000000 -FT3 033351 035132 0 0 0 0 020000000000 -FT9 033352 035132 0 0 0 0 020000000000 -ET0 033352 035132 0 0 020000000000 0 020000000000 -ST1 033352 035132 0 0 020000000000 0 020000000000 -ST2 033352 035132 0 0 020000000000 0 020000000000 -ST9 033352 035132 0 0 020000000000 0 020000000000 - - -*033352 SKIPN 0,000000 -INITIAL -C(AC)=020000 000000 -C(E)=020000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033352 033352 0 0 336000000000 0 020000000000 -IT1 033352 0 0 0 336000000000 0 020000000000 -AT3 033352 0 0 0 0 0 336000000000 -AT6 033352 0 0 0 0 0 336000000000 -FT0 033352 0 0 0 020000000000 0 336000000000 -FT1A 033352 0 0 0 020000000000 0 020000000000 -FT9 033353 0 0 0 020000000000 0 020000000000 -ET0 033354 0 0 0 020000000000 0 020000000000 -ST1A 033354 0 0 0 020000000000 0 020000000000 -ST9 033354 0 0 0 020000000000 0 020000000000 - - -*033354 JUMPA 0,033355 -INITIAL -C(AC)=020000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033354 033354 0 0 324000033355 0 000000033355 -IT1 033354 0 0 0 324000033355 0 000000033355 -AT3 033354 0 0 0 000000033355 0 324000033355 -AT6 033354 033355 0 0 000000033355 0 324000033355 -FT1A 033354 033355 0 0 000000033355 0 000000033355 -FT2 033354 033355 0 0 0 0 000000033355 -FT2RQ 033354 033355 0 0 020000000000 0 000000033355 -FT3 033354 033355 0 0 020000000000 0 000000033355 -FT9 033355 033355 0 0 020000000000 0 000000033355 -ET0 033355 033355 0 0 020000000000 0 000000033355 -ST1A 033355 033355 0 0 020000000000 0 000000033355 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 433 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0649 - -ST9 033355 033355 0 0 020000000000 0 000000033355 - - -*033355 MOVE 0,035062 -INITIAL -C(AC)=020000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033355 033355 0 0 200000035062 0 0 -IT1 033355 0 0 0 200000035062 0 0 -AT3 033355 0 0 0 000000035062 0 200000035062 -AT6 033355 035062 0 0 000000035062 0 200000035062 -FT0 033355 035062 0 0 0 0 200000035062 -FT1A 033355 035062 0 0 0 0 0 -FT9 033356 035062 0 0 0 0 0 -ET0 033356 035062 0 0 0 0 0 -ST1 033356 035062 0 0 0 0 0 -ST2 033356 035062 0 0 0 0 0 -ST9 033356 035062 0 0 0 0 0 - - -*033356 XOR 0,035133 -INITIAL -C(AC)=000000 000000 -C(E)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033356 033356 0 0 430000035133 0 040000000000 -IT1 033356 0 0 0 430000035133 0 040000000000 -AT3 033356 0 0 0 000000035133 0 430000035133 -AT6 033356 035133 0 0 000000035133 0 430000035133 -FT0 033356 035133 0 0 040000000000 0 430000035133 -FT1A 033356 035133 0 0 040000000000 0 040000000000 -FT2 033356 035133 0 0 0 0 040000000000 -FT2RQ 033356 035133 0 0 0 0 040000000000 -FT3 033356 035133 0 0 0 0 040000000000 -FT9 033357 035133 0 0 0 0 040000000000 -ET0 033357 035133 0 0 040000000000 0 040000000000 -ST1 033357 035133 0 0 040000000000 0 040000000000 -ST2 033357 035133 0 0 040000000000 0 040000000000 -ST9 033357 035133 0 0 040000000000 0 040000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 434 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0650 - -*033357 SKIPN 0,000000 -INITIAL -C(AC)=040000 000000 -C(E)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033357 033357 0 0 336000000000 0 040000000000 -IT1 033357 0 0 0 336000000000 0 040000000000 -AT3 033357 0 0 0 0 0 336000000000 -AT6 033357 0 0 0 0 0 336000000000 -FT0 033357 0 0 0 040000000000 0 336000000000 -FT1A 033357 0 0 0 040000000000 0 040000000000 -FT9 033360 0 0 0 040000000000 0 040000000000 -ET0 033361 0 0 0 040000000000 0 040000000000 -ST1A 033361 0 0 0 040000000000 0 040000000000 -ST9 033361 0 0 0 040000000000 0 040000000000 - - -*033361 JUMPA 0,033362 -INITIAL -C(AC)=040000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033361 033361 0 0 324000033362 0 000000033362 -IT1 033361 0 0 0 324000033362 0 000000033362 -AT3 033361 0 0 0 000000033362 0 324000033362 -AT6 033361 033362 0 0 000000033362 0 324000033362 -FT1A 033361 033362 0 0 000000033362 0 000000033362 -FT2 033361 033362 0 0 0 0 000000033362 -FT2RQ 033361 033362 0 0 040000000000 0 000000033362 -FT3 033361 033362 0 0 040000000000 0 000000033362 -FT9 033362 033362 0 0 040000000000 0 000000033362 -ET0 033362 033362 0 0 040000000000 0 000000033362 -ST1A 033362 033362 0 0 040000000000 0 000000033362 -ST9 033362 033362 0 0 040000000000 0 000000033362 - - -*033362 MOVE 0,035062 -INITIAL -C(AC)=040000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033362 033362 0 0 200000035062 0 0 -IT1 033362 0 0 0 200000035062 0 0 -AT3 033362 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 435 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0651 - -AT6 033362 035062 0 0 000000035062 0 200000035062 -FT0 033362 035062 0 0 0 0 200000035062 -FT1A 033362 035062 0 0 0 0 0 -FT9 033363 035062 0 0 0 0 0 -ET0 033363 035062 0 0 0 0 0 -ST1 033363 035062 0 0 0 0 0 -ST2 033363 035062 0 0 0 0 0 -ST9 033363 035062 0 0 0 0 0 - - -*033363 XOR 0,035134 -INITIAL -C(AC)=000000 000000 -C(E)=100000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033363 033363 0 0 430000035134 0 100000000000 -IT1 033363 0 0 0 430000035134 0 100000000000 -AT3 033363 0 0 0 000000035134 0 430000035134 -AT6 033363 035134 0 0 000000035134 0 430000035134 -FT0 033363 035134 0 0 100000000000 0 430000035134 -FT1A 033363 035134 0 0 100000000000 0 100000000000 -FT2 033363 035134 0 0 0 0 100000000000 -FT2RQ 033363 035134 0 0 0 0 100000000000 -FT3 033363 035134 0 0 0 0 100000000000 -FT9 033364 035134 0 0 0 0 100000000000 -ET0 033364 035134 0 0 100000000000 0 100000000000 -ST1 033364 035134 0 0 100000000000 0 100000000000 -ST2 033364 035134 0 0 100000000000 0 100000000000 -ST9 033364 035134 0 0 100000000000 0 100000000000 - - -*033364 SKIPN 0,000000 -INITIAL -C(AC)=100000 000000 -C(E)=100000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033364 033364 0 0 336000000000 0 100000000000 -IT1 033364 0 0 0 336000000000 0 100000000000 -AT3 033364 0 0 0 0 0 336000000000 -AT6 033364 0 0 0 0 0 336000000000 -FT0 033364 0 0 0 100000000000 0 336000000000 -FT1A 033364 0 0 0 100000000000 0 100000000000 -FT9 033365 0 0 0 100000000000 0 100000000000 -ET0 033366 0 0 0 100000000000 0 100000000000 -ST1A 033366 0 0 0 100000000000 0 100000000000 -ST9 033366 0 0 0 100000000000 0 100000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 436 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0652 - - - -*033366 JUMPA 0,033367 -INITIAL -C(AC)=100000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033366 033366 0 0 324000033367 0 000000033367 -IT1 033366 0 0 0 324000033367 0 000000033367 -AT3 033366 0 0 0 000000033367 0 324000033367 -AT6 033366 033367 0 0 000000033367 0 324000033367 -FT1A 033366 033367 0 0 000000033367 0 000000033367 -FT2 033366 033367 0 0 0 0 000000033367 -FT2RQ 033366 033367 0 0 100000000000 0 000000033367 -FT3 033366 033367 0 0 100000000000 0 000000033367 -FT9 033367 033367 0 0 100000000000 0 000000033367 -ET0 033367 033367 0 0 100000000000 0 000000033367 -ST1A 033367 033367 0 0 100000000000 0 000000033367 -ST9 033367 033367 0 0 100000000000 0 000000033367 - - -*033367 MOVE 0,035062 -INITIAL -C(AC)=100000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033367 033367 0 0 200000035062 0 0 -IT1 033367 0 0 0 200000035062 0 0 -AT3 033367 0 0 0 000000035062 0 200000035062 -AT6 033367 035062 0 0 000000035062 0 200000035062 -FT0 033367 035062 0 0 0 0 200000035062 -FT1A 033367 035062 0 0 0 0 0 -FT9 033370 035062 0 0 0 0 0 -ET0 033370 035062 0 0 0 0 0 -ST1 033370 035062 0 0 0 0 0 -ST2 033370 035062 0 0 0 0 0 -ST9 033370 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 437 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0653 - -*033370 XOR 0,035135 -INITIAL -C(AC)=000000 000000 -C(E)=200000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033370 033370 0 0 430000035135 0 200000000000 -IT1 033370 0 0 0 430000035135 0 200000000000 -AT3 033370 0 0 0 000000035135 0 430000035135 -AT6 033370 035135 0 0 000000035135 0 430000035135 -FT0 033370 035135 0 0 200000000000 0 430000035135 -FT1A 033370 035135 0 0 200000000000 0 200000000000 -FT2 033370 035135 0 0 0 0 200000000000 -FT2RQ 033370 035135 0 0 0 0 200000000000 -FT3 033370 035135 0 0 0 0 200000000000 -FT9 033371 035135 0 0 0 0 200000000000 -ET0 033371 035135 0 0 200000000000 0 200000000000 -ST1 033371 035135 0 0 200000000000 0 200000000000 -ST2 033371 035135 0 0 200000000000 0 200000000000 -ST9 033371 035135 0 0 200000000000 0 200000000000 - - -*033371 SKIPN 0,000000 -INITIAL -C(AC)=200000 000000 -C(E)=200000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033371 033371 0 0 336000000000 0 200000000000 -IT1 033371 0 0 0 336000000000 0 200000000000 -AT3 033371 0 0 0 0 0 336000000000 -AT6 033371 0 0 0 0 0 336000000000 -FT0 033371 0 0 0 200000000000 0 336000000000 -FT1A 033371 0 0 0 200000000000 0 200000000000 -FT9 033372 0 0 0 200000000000 0 200000000000 -ET0 033373 0 0 0 200000000000 0 200000000000 -ST1A 033373 0 0 0 200000000000 0 200000000000 -ST9 033373 0 0 0 200000000000 0 200000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 438 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0654 - -*033373 JUMPA 0,033374 -INITIAL -C(AC)=200000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033373 033373 0 0 324000033374 0 000000033374 -IT1 033373 0 0 0 324000033374 0 000000033374 -AT3 033373 0 0 0 000000033374 0 324000033374 -AT6 033373 033374 0 0 000000033374 0 324000033374 -FT1A 033373 033374 0 0 000000033374 0 000000033374 -FT2 033373 033374 0 0 0 0 000000033374 -FT2RQ 033373 033374 0 0 200000000000 0 000000033374 -FT3 033373 033374 0 0 200000000000 0 000000033374 -FT9 033374 033374 0 0 200000000000 0 000000033374 -ET0 033374 033374 0 0 200000000000 0 000000033374 -ST1A 033374 033374 0 0 200000000000 0 000000033374 -ST9 033374 033374 0 0 200000000000 0 000000033374 - - -*033374 MOVE 0,035062 -INITIAL -C(AC)=200000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033374 033374 0 0 200000035062 0 0 -IT1 033374 0 0 0 200000035062 0 0 -AT3 033374 0 0 0 000000035062 0 200000035062 -AT6 033374 035062 0 0 000000035062 0 200000035062 -FT0 033374 035062 0 0 0 0 200000035062 -FT1A 033374 035062 0 0 0 0 0 -FT9 033375 035062 0 0 0 0 0 -ET0 033375 035062 0 0 0 0 0 -ST1 033375 035062 0 0 0 0 0 -ST2 033375 035062 0 0 0 0 0 -ST9 033375 035062 0 0 0 0 0 - - -*033375 XOR 0,035065 -INITIAL -C(AC)=000000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033375 033375 0 0 430000035065 0 400000000000 -IT1 033375 0 0 0 430000035065 0 400000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 439 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0655 - -AT3 033375 0 0 0 000000035065 0 430000035065 -AT6 033375 035065 0 0 000000035065 0 430000035065 -FT0 033375 035065 0 0 400000000000 0 430000035065 -FT1A 033375 035065 0 0 400000000000 0 400000000000 -FT2 033375 035065 0 0 0 0 400000000000 -FT2RQ 033375 035065 0 0 0 0 400000000000 -FT3 033375 035065 0 0 0 0 400000000000 -FT9 033376 035065 0 0 0 0 400000000000 -ET0 033376 035065 0 0 400000000000 0 400000000000 -ST1 033376 035065 0 0 400000000000 0 400000000000 -ST2 033376 035065 0 0 400000000000 0 400000000000 -ST9 033376 035065 0 0 400000000000 0 400000000000 - - -*033376 SKIPN 0,000000 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033376 033376 0 0 336000000000 0 400000000000 -IT1 033376 0 0 0 336000000000 0 400000000000 -AT3 033376 0 0 0 0 0 336000000000 -AT6 033376 0 0 0 0 0 336000000000 -FT0 033376 0 0 0 400000000000 0 336000000000 -FT1A 033376 0 0 0 400000000000 0 400000000000 -FT9 033377 0 0 0 400000000000 0 400000000000 -ET0 0 0 0 0 400000000000 0 400000000000 -ST1A 0 0 0 0 400000000000 0 400000000000 -ST9 0 0 0 0 400000000000 0 400000000000 - - -*033400 JUMPA 0,033401 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 324000033401 0 000000033401 -IT1 0 0 0 0 324000033401 0 000000033401 -AT3 0 0 0 0 000000033401 0 324000033401 -AT6 0 033401 0 0 000000033401 0 324000033401 -FT1A 0 033401 0 0 000000033401 0 000000033401 -FT2 0 033401 0 0 0 0 000000033401 -FT2RQ 0 033401 0 0 400000000000 0 000000033401 -FT3 0 033401 0 0 400000000000 0 000000033401 -FT9 033401 033401 0 0 400000000000 0 000000033401 -ET0 033401 033401 0 0 400000000000 0 000000033401 -ST1A 033401 033401 0 0 400000000000 0 000000033401 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 440 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0656 - -ST9 033401 033401 0 0 400000000000 0 000000033401 - - -*033401 MOVE 0,035074 -INITIAL -C(AC)=400000 000000 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033401 033401 0 0 200000035074 0 000000000001 -IT1 033401 0 0 0 200000035074 0 000000000001 -AT3 033401 0 0 0 000000035074 0 200000035074 -AT6 033401 035074 0 0 000000035074 0 200000035074 -FT0 033401 035074 0 0 000000000001 0 200000035074 -FT1A 033401 035074 0 0 000000000001 0 000000000001 -FT9 033402 035074 0 0 000000000001 0 000000000001 -ET0 033402 035074 0 0 000000000001 0 000000000001 -ST1 033402 035074 0 0 000000000001 0 000000000001 -ST2 033402 035074 0 0 000000000001 0 000000000001 -ST9 033402 035074 0 0 000000000001 0 000000000001 - - -*033402 XOR 0,035062 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000000 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033402 033402 0 0 430000035062 0 0 -IT1 033402 0 0 0 430000035062 0 0 -AT3 033402 0 0 0 000000035062 0 430000035062 -AT6 033402 035062 0 0 000000035062 0 430000035062 -FT0 033402 035062 0 0 0 0 430000035062 -FT1A 033402 035062 0 0 0 0 0 -FT2 033402 035062 0 0 0 0 0 -FT2RQ 033402 035062 0 0 000000000001 0 0 -FT3 033402 035062 0 0 000000000001 0 0 -FT9 033403 035062 0 0 000000000001 0 0 -ET0 033403 035062 0 0 000000000001 0 0 -ST1 033403 035062 0 0 000000000001 0 0 -ST2 033403 035062 0 0 000000000001 0 0 -ST9 033403 035062 0 0 000000000001 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 441 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0657 - -*033403 SKIPN 0,000000 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033403 033403 0 0 336000000000 0 000000000001 -IT1 033403 0 0 0 336000000000 0 000000000001 -AT3 033403 0 0 0 0 0 336000000000 -AT6 033403 0 0 0 0 0 336000000000 -FT0 033403 0 0 0 000000000001 0 336000000000 -FT1A 033403 0 0 0 000000000001 0 000000000001 -FT9 033404 0 0 0 000000000001 0 000000000001 -ET0 033405 0 0 0 000000000001 0 000000000001 -ST1A 033405 0 0 0 000000000001 0 000000000001 -ST9 033405 0 0 0 000000000001 0 000000000001 - - -*033405 JUMPA 0,033406 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033405 033405 0 0 324000033406 0 000000033406 -IT1 033405 0 0 0 324000033406 0 000000033406 -AT3 033405 0 0 0 000000033406 0 324000033406 -AT6 033405 033406 0 0 000000033406 0 324000033406 -FT1A 033405 033406 0 0 000000033406 0 000000033406 -FT2 033405 033406 0 0 0 0 000000033406 -FT2RQ 033405 033406 0 0 000000000001 0 000000033406 -FT3 033405 033406 0 0 000000000001 0 000000033406 -FT9 033406 033406 0 0 000000000001 0 000000033406 -ET0 033406 033406 0 0 000000000001 0 000000033406 -ST1A 033406 033406 0 0 000000000001 0 000000033406 -ST9 033406 033406 0 0 000000000001 0 000000033406 - - -*033406 MOVE 0,035075 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 033406 033406 0 0 200000035075 0 000000000002 -IT1 033406 0 0 0 200000035075 0 000000000002 -AT3 033406 0 0 0 000000035075 0 200000035075 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 442 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0658 - -AT6 033406 035075 0 0 000000035075 0 200000035075 -FT0 033406 035075 0 0 000000000002 0 200000035075 -FT1A 033406 035075 0 0 000000000002 0 000000000002 -FT9 033407 035075 0 0 000000000002 0 000000000002 -ET0 033407 035075 0 0 000000000002 0 000000000002 -ST1 033407 035075 0 0 000000000002 0 000000000002 -ST2 033407 035075 0 0 000000000002 0 000000000002 -ST9 033407 035075 0 0 000000000002 0 000000000002 - - -*033407 XOR 0,035062 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000000 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 033407 033407 0 0 430000035062 0 0 -IT1 033407 0 0 0 430000035062 0 0 -AT3 033407 0 0 0 000000035062 0 430000035062 -AT6 033407 035062 0 0 000000035062 0 430000035062 -FT0 033407 035062 0 0 0 0 430000035062 -FT1A 033407 035062 0 0 0 0 0 -FT2 033407 035062 0 0 0 0 0 -FT2RQ 033407 035062 0 0 000000000002 0 0 -FT3 033407 035062 0 0 000000000002 0 0 -FT9 033410 035062 0 0 000000000002 0 0 -ET0 033410 035062 0 0 000000000002 0 0 -ST1 033410 035062 0 0 000000000002 0 0 -ST2 033410 035062 0 0 000000000002 0 0 -ST9 033410 035062 0 0 000000000002 0 0 - - -*033410 SKIPN 0,000000 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 033410 033410 0 0 336000000000 0 000000000002 -IT1 033410 0 0 0 336000000000 0 000000000002 -AT3 033410 0 0 0 0 0 336000000000 -AT6 033410 0 0 0 0 0 336000000000 -FT0 033410 0 0 0 000000000002 0 336000000000 -FT1A 033410 0 0 0 000000000002 0 000000000002 -FT9 033411 0 0 0 000000000002 0 000000000002 -ET0 033412 0 0 0 000000000002 0 000000000002 -ST1A 033412 0 0 0 000000000002 0 000000000002 -ST9 033412 0 0 0 000000000002 0 000000000002 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 443 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0659 - - - -*033412 JUMPA 0,033413 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033412 033412 0 0 324000033413 0 000000033413 -IT1 033412 0 0 0 324000033413 0 000000033413 -AT3 033412 0 0 0 000000033413 0 324000033413 -AT6 033412 033413 0 0 000000033413 0 324000033413 -FT1A 033412 033413 0 0 000000033413 0 000000033413 -FT2 033412 033413 0 0 0 0 000000033413 -FT2RQ 033412 033413 0 0 000000000002 0 000000033413 -FT3 033412 033413 0 0 000000000002 0 000000033413 -FT9 033413 033413 0 0 000000000002 0 000000033413 -ET0 033413 033413 0 0 000000000002 0 000000033413 -ST1A 033413 033413 0 0 000000000002 0 000000033413 -ST9 033413 033413 0 0 000000000002 0 000000033413 - - -*033413 MOVE 0,035076 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 033413 033413 0 0 200000035076 0 000000000004 -IT1 033413 0 0 0 200000035076 0 000000000004 -AT3 033413 0 0 0 000000035076 0 200000035076 -AT6 033413 035076 0 0 000000035076 0 200000035076 -FT0 033413 035076 0 0 000000000004 0 200000035076 -FT1A 033413 035076 0 0 000000000004 0 000000000004 -FT9 033414 035076 0 0 000000000004 0 000000000004 -ET0 033414 035076 0 0 000000000004 0 000000000004 -ST1 033414 035076 0 0 000000000004 0 000000000004 -ST2 033414 035076 0 0 000000000004 0 000000000004 -ST9 033414 035076 0 0 000000000004 0 000000000004 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 444 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0660 - -*033414 XOR 0,035062 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000000 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 033414 033414 0 0 430000035062 0 0 -IT1 033414 0 0 0 430000035062 0 0 -AT3 033414 0 0 0 000000035062 0 430000035062 -AT6 033414 035062 0 0 000000035062 0 430000035062 -FT0 033414 035062 0 0 0 0 430000035062 -FT1A 033414 035062 0 0 0 0 0 -FT2 033414 035062 0 0 0 0 0 -FT2RQ 033414 035062 0 0 000000000004 0 0 -FT3 033414 035062 0 0 000000000004 0 0 -FT9 033415 035062 0 0 000000000004 0 0 -ET0 033415 035062 0 0 000000000004 0 0 -ST1 033415 035062 0 0 000000000004 0 0 -ST2 033415 035062 0 0 000000000004 0 0 -ST9 033415 035062 0 0 000000000004 0 0 - - -*033415 SKIPN 0,000000 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 033415 033415 0 0 336000000000 0 000000000004 -IT1 033415 0 0 0 336000000000 0 000000000004 -AT3 033415 0 0 0 0 0 336000000000 -AT6 033415 0 0 0 0 0 336000000000 -FT0 033415 0 0 0 000000000004 0 336000000000 -FT1A 033415 0 0 0 000000000004 0 000000000004 -FT9 033416 0 0 0 000000000004 0 000000000004 -ET0 033417 0 0 0 000000000004 0 000000000004 -ST1A 033417 0 0 0 000000000004 0 000000000004 -ST9 033417 0 0 0 000000000004 0 000000000004 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 445 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0661 - -*033417 JUMPA 0,033420 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033417 033417 0 0 324000033420 0 000000033420 -IT1 033417 0 0 0 324000033420 0 000000033420 -AT3 033417 0 0 0 000000033420 0 324000033420 -AT6 033417 033420 0 0 000000033420 0 324000033420 -FT1A 033417 033420 0 0 000000033420 0 000000033420 -FT2 033417 033420 0 0 0 0 000000033420 -FT2RQ 033417 033420 0 0 000000000004 0 000000033420 -FT3 033417 033420 0 0 000000000004 0 000000033420 -FT9 033420 033420 0 0 000000000004 0 000000033420 -ET0 033420 033420 0 0 000000000004 0 000000033420 -ST1A 033420 033420 0 0 000000000004 0 000000033420 -ST9 033420 033420 0 0 000000000004 0 000000033420 - - -*033420 MOVE 0,035077 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 033420 033420 0 0 200000035077 0 000000000010 -IT1 033420 0 0 0 200000035077 0 000000000010 -AT3 033420 0 0 0 000000035077 0 200000035077 -AT6 033420 035077 0 0 000000035077 0 200000035077 -FT0 033420 035077 0 0 000000000010 0 200000035077 -FT1A 033420 035077 0 0 000000000010 0 000000000010 -FT9 033421 035077 0 0 000000000010 0 000000000010 -ET0 033421 035077 0 0 000000000010 0 000000000010 -ST1 033421 035077 0 0 000000000010 0 000000000010 -ST2 033421 035077 0 0 000000000010 0 000000000010 -ST9 033421 035077 0 0 000000000010 0 000000000010 - - -*033421 XOR 0,035062 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000000 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 033421 033421 0 0 430000035062 0 0 -IT1 033421 0 0 0 430000035062 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 446 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0662 - -AT3 033421 0 0 0 000000035062 0 430000035062 -AT6 033421 035062 0 0 000000035062 0 430000035062 -FT0 033421 035062 0 0 0 0 430000035062 -FT1A 033421 035062 0 0 0 0 0 -FT2 033421 035062 0 0 0 0 0 -FT2RQ 033421 035062 0 0 000000000010 0 0 -FT3 033421 035062 0 0 000000000010 0 0 -FT9 033422 035062 0 0 000000000010 0 0 -ET0 033422 035062 0 0 000000000010 0 0 -ST1 033422 035062 0 0 000000000010 0 0 -ST2 033422 035062 0 0 000000000010 0 0 -ST9 033422 035062 0 0 000000000010 0 0 - - -*033422 SKIPN 0,000000 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 033422 033422 0 0 336000000000 0 000000000010 -IT1 033422 0 0 0 336000000000 0 000000000010 -AT3 033422 0 0 0 0 0 336000000000 -AT6 033422 0 0 0 0 0 336000000000 -FT0 033422 0 0 0 000000000010 0 336000000000 -FT1A 033422 0 0 0 000000000010 0 000000000010 -FT9 033423 0 0 0 000000000010 0 000000000010 -ET0 033424 0 0 0 000000000010 0 000000000010 -ST1A 033424 0 0 0 000000000010 0 000000000010 -ST9 033424 0 0 0 000000000010 0 000000000010 - - -*033424 JUMPA 0,033425 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033424 033424 0 0 324000033425 0 000000033425 -IT1 033424 0 0 0 324000033425 0 000000033425 -AT3 033424 0 0 0 000000033425 0 324000033425 -AT6 033424 033425 0 0 000000033425 0 324000033425 -FT1A 033424 033425 0 0 000000033425 0 000000033425 -FT2 033424 033425 0 0 0 0 000000033425 -FT2RQ 033424 033425 0 0 000000000010 0 000000033425 -FT3 033424 033425 0 0 000000000010 0 000000033425 -FT9 033425 033425 0 0 000000000010 0 000000033425 -ET0 033425 033425 0 0 000000000010 0 000000033425 -ST1A 033425 033425 0 0 000000000010 0 000000033425 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 447 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0663 - -ST9 033425 033425 0 0 000000000010 0 000000033425 - - -*033425 MOVE 0,035100 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000020 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 033425 033425 0 0 200000035100 0 000000000020 -IT1 033425 0 0 0 200000035100 0 000000000020 -AT3 033425 0 0 0 000000035100 0 200000035100 -AT6 033425 0 0 0 000000035100 0 200000035100 -FT0 033425 0 0 0 000000000020 0 200000035100 -FT1A 033425 0 0 0 000000000020 0 000000000020 -FT9 033426 0 0 0 000000000020 0 000000000020 -ET0 033426 0 0 0 000000000020 0 000000000020 -ST1 033426 0 0 0 000000000020 0 000000000020 -ST2 033426 0 0 0 000000000020 0 000000000020 -ST9 033426 0 0 0 000000000020 0 000000000020 - - -*033426 XOR 0,035062 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000000 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 033426 033426 0 0 430000035062 0 0 -IT1 033426 0 0 0 430000035062 0 0 -AT3 033426 0 0 0 000000035062 0 430000035062 -AT6 033426 035062 0 0 000000035062 0 430000035062 -FT0 033426 035062 0 0 0 0 430000035062 -FT1A 033426 035062 0 0 0 0 0 -FT2 033426 035062 0 0 0 0 0 -FT2RQ 033426 035062 0 0 000000000020 0 0 -FT3 033426 035062 0 0 000000000020 0 0 -FT9 033427 035062 0 0 000000000020 0 0 -ET0 033427 035062 0 0 000000000020 0 0 -ST1 033427 035062 0 0 000000000020 0 0 -ST2 033427 035062 0 0 000000000020 0 0 -ST9 033427 035062 0 0 000000000020 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 448 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0664 - -*033427 SKIPN 0,000000 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000020 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 033427 033427 0 0 336000000000 0 000000000020 -IT1 033427 0 0 0 336000000000 0 000000000020 -AT3 033427 0 0 0 0 0 336000000000 -AT6 033427 0 0 0 0 0 336000000000 -FT0 033427 0 0 0 000000000020 0 336000000000 -FT1A 033427 0 0 0 000000000020 0 000000000020 -FT9 033430 0 0 0 000000000020 0 000000000020 -ET0 033431 0 0 0 000000000020 0 000000000020 -ST1A 033431 0 0 0 000000000020 0 000000000020 -ST9 033431 0 0 0 000000000020 0 000000000020 - - -*033431 JUMPA 0,033432 -INITIAL -C(AC)=000000 000020 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033431 033431 0 0 324000033432 0 000000033432 -IT1 033431 0 0 0 324000033432 0 000000033432 -AT3 033431 0 0 0 000000033432 0 324000033432 -AT6 033431 033432 0 0 000000033432 0 324000033432 -FT1A 033431 033432 0 0 000000033432 0 000000033432 -FT2 033431 033432 0 0 0 0 000000033432 -FT2RQ 033431 033432 0 0 000000000020 0 000000033432 -FT3 033431 033432 0 0 000000000020 0 000000033432 -FT9 033432 033432 0 0 000000000020 0 000000033432 -ET0 033432 033432 0 0 000000000020 0 000000033432 -ST1A 033432 033432 0 0 000000000020 0 000000033432 -ST9 033432 033432 0 0 000000000020 0 000000033432 - - -*033432 MOVE 0,035101 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000040 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 033432 033432 0 0 200000035101 0 000000000040 -IT1 033432 0 0 0 200000035101 0 000000000040 -AT3 033432 0 0 0 000000035101 0 200000035101 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 449 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0665 - -AT6 033432 035101 0 0 000000035101 0 200000035101 -FT0 033432 035101 0 0 000000000040 0 200000035101 -FT1A 033432 035101 0 0 000000000040 0 000000000040 -FT9 033433 035101 0 0 000000000040 0 000000000040 -ET0 033433 035101 0 0 000000000040 0 000000000040 -ST1 033433 035101 0 0 000000000040 0 000000000040 -ST2 033433 035101 0 0 000000000040 0 000000000040 -ST9 033433 035101 0 0 000000000040 0 000000000040 - - -*033433 XOR 0,035062 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000000 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 033433 033433 0 0 430000035062 0 0 -IT1 033433 0 0 0 430000035062 0 0 -AT3 033433 0 0 0 000000035062 0 430000035062 -AT6 033433 035062 0 0 000000035062 0 430000035062 -FT0 033433 035062 0 0 0 0 430000035062 -FT1A 033433 035062 0 0 0 0 0 -FT2 033433 035062 0 0 0 0 0 -FT2RQ 033433 035062 0 0 000000000040 0 0 -FT3 033433 035062 0 0 000000000040 0 0 -FT9 033434 035062 0 0 000000000040 0 0 -ET0 033434 035062 0 0 000000000040 0 0 -ST1 033434 035062 0 0 000000000040 0 0 -ST2 033434 035062 0 0 000000000040 0 0 -ST9 033434 035062 0 0 000000000040 0 0 - - -*033434 SKIPN 0,000000 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000040 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 033434 033434 0 0 336000000000 0 000000000040 -IT1 033434 0 0 0 336000000000 0 000000000040 -AT3 033434 0 0 0 0 0 336000000000 -AT6 033434 0 0 0 0 0 336000000000 -FT0 033434 0 0 0 000000000040 0 336000000000 -FT1A 033434 0 0 0 000000000040 0 000000000040 -FT9 033435 0 0 0 000000000040 0 000000000040 -ET0 033436 0 0 0 000000000040 0 000000000040 -ST1A 033436 0 0 0 000000000040 0 000000000040 -ST9 033436 0 0 0 000000000040 0 000000000040 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 450 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0666 - - - -*033436 JUMPA 0,033437 -INITIAL -C(AC)=000000 000040 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033436 033436 0 0 324000033437 0 000000033437 -IT1 033436 0 0 0 324000033437 0 000000033437 -AT3 033436 0 0 0 000000033437 0 324000033437 -AT6 033436 033437 0 0 000000033437 0 324000033437 -FT1A 033436 033437 0 0 000000033437 0 000000033437 -FT2 033436 033437 0 0 0 0 000000033437 -FT2RQ 033436 033437 0 0 000000000040 0 000000033437 -FT3 033436 033437 0 0 000000000040 0 000000033437 -FT9 033437 033437 0 0 000000000040 0 000000033437 -ET0 033437 033437 0 0 000000000040 0 000000033437 -ST1A 033437 033437 0 0 000000000040 0 000000033437 -ST9 033437 033437 0 0 000000000040 0 000000033437 - - -*033437 MOVE 0,035102 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000100 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 033437 033437 0 0 200000035102 0 000000000100 -IT1 033437 0 0 0 200000035102 0 000000000100 -AT3 033437 0 0 0 000000035102 0 200000035102 -AT6 033437 035102 0 0 000000035102 0 200000035102 -FT0 033437 035102 0 0 000000000100 0 200000035102 -FT1A 033437 035102 0 0 000000000100 0 000000000100 -FT9 033440 035102 0 0 000000000100 0 000000000100 -ET0 033440 035102 0 0 000000000100 0 000000000100 -ST1 033440 035102 0 0 000000000100 0 000000000100 -ST2 033440 035102 0 0 000000000100 0 000000000100 -ST9 033440 035102 0 0 000000000100 0 000000000100 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 451 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0667 - -*033440 XOR 0,035062 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000000 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 033440 033440 0 0 430000035062 0 0 -IT1 033440 0 0 0 430000035062 0 0 -AT3 033440 0 0 0 000000035062 0 430000035062 -AT6 033440 035062 0 0 000000035062 0 430000035062 -FT0 033440 035062 0 0 0 0 430000035062 -FT1A 033440 035062 0 0 0 0 0 -FT2 033440 035062 0 0 0 0 0 -FT2RQ 033440 035062 0 0 000000000100 0 0 -FT3 033440 035062 0 0 000000000100 0 0 -FT9 033441 035062 0 0 000000000100 0 0 -ET0 033441 035062 0 0 000000000100 0 0 -ST1 033441 035062 0 0 000000000100 0 0 -ST2 033441 035062 0 0 000000000100 0 0 -ST9 033441 035062 0 0 000000000100 0 0 - - -*033441 SKIPN 0,000000 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000100 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 033441 033441 0 0 336000000000 0 000000000100 -IT1 033441 0 0 0 336000000000 0 000000000100 -AT3 033441 0 0 0 0 0 336000000000 -AT6 033441 0 0 0 0 0 336000000000 -FT0 033441 0 0 0 000000000100 0 336000000000 -FT1A 033441 0 0 0 000000000100 0 000000000100 -FT9 033442 0 0 0 000000000100 0 000000000100 -ET0 033443 0 0 0 000000000100 0 000000000100 -ST1A 033443 0 0 0 000000000100 0 000000000100 -ST9 033443 0 0 0 000000000100 0 000000000100 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 452 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0668 - -*033443 JUMPA 0,033444 -INITIAL -C(AC)=000000 000100 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033443 033443 0 0 324000033444 0 000000033444 -IT1 033443 0 0 0 324000033444 0 000000033444 -AT3 033443 0 0 0 000000033444 0 324000033444 -AT6 033443 033444 0 0 000000033444 0 324000033444 -FT1A 033443 033444 0 0 000000033444 0 000000033444 -FT2 033443 033444 0 0 0 0 000000033444 -FT2RQ 033443 033444 0 0 000000000100 0 000000033444 -FT3 033443 033444 0 0 000000000100 0 000000033444 -FT9 033444 033444 0 0 000000000100 0 000000033444 -ET0 033444 033444 0 0 000000000100 0 000000033444 -ST1A 033444 033444 0 0 000000000100 0 000000033444 -ST9 033444 033444 0 0 000000000100 0 000000033444 - - -*033444 MOVE 0,035103 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000200 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 033444 033444 0 0 200000035103 0 000000000200 -IT1 033444 0 0 0 200000035103 0 000000000200 -AT3 033444 0 0 0 000000035103 0 200000035103 -AT6 033444 035103 0 0 000000035103 0 200000035103 -FT0 033444 035103 0 0 000000000200 0 200000035103 -FT1A 033444 035103 0 0 000000000200 0 000000000200 -FT9 033445 035103 0 0 000000000200 0 000000000200 -ET0 033445 035103 0 0 000000000200 0 000000000200 -ST1 033445 035103 0 0 000000000200 0 000000000200 -ST2 033445 035103 0 0 000000000200 0 000000000200 -ST9 033445 035103 0 0 000000000200 0 000000000200 - - -*033445 XOR 0,035062 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000000 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 033445 033445 0 0 430000035062 0 0 -IT1 033445 0 0 0 430000035062 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 453 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0669 - -AT3 033445 0 0 0 000000035062 0 430000035062 -AT6 033445 035062 0 0 000000035062 0 430000035062 -FT0 033445 035062 0 0 0 0 430000035062 -FT1A 033445 035062 0 0 0 0 0 -FT2 033445 035062 0 0 0 0 0 -FT2RQ 033445 035062 0 0 000000000200 0 0 -FT3 033445 035062 0 0 000000000200 0 0 -FT9 033446 035062 0 0 000000000200 0 0 -ET0 033446 035062 0 0 000000000200 0 0 -ST1 033446 035062 0 0 000000000200 0 0 -ST2 033446 035062 0 0 000000000200 0 0 -ST9 033446 035062 0 0 000000000200 0 0 - - -*033446 SKIPN 0,000000 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000200 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 033446 033446 0 0 336000000000 0 000000000200 -IT1 033446 0 0 0 336000000000 0 000000000200 -AT3 033446 0 0 0 0 0 336000000000 -AT6 033446 0 0 0 0 0 336000000000 -FT0 033446 0 0 0 000000000200 0 336000000000 -FT1A 033446 0 0 0 000000000200 0 000000000200 -FT9 033447 0 0 0 000000000200 0 000000000200 -ET0 033450 0 0 0 000000000200 0 000000000200 -ST1A 033450 0 0 0 000000000200 0 000000000200 -ST9 033450 0 0 0 000000000200 0 000000000200 - - -*033450 JUMPA 0,033451 -INITIAL -C(AC)=000000 000200 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033450 033450 0 0 324000033451 0 000000033451 -IT1 033450 0 0 0 324000033451 0 000000033451 -AT3 033450 0 0 0 000000033451 0 324000033451 -AT6 033450 033451 0 0 000000033451 0 324000033451 -FT1A 033450 033451 0 0 000000033451 0 000000033451 -FT2 033450 033451 0 0 0 0 000000033451 -FT2RQ 033450 033451 0 0 000000000200 0 000000033451 -FT3 033450 033451 0 0 000000000200 0 000000033451 -FT9 033451 033451 0 0 000000000200 0 000000033451 -ET0 033451 033451 0 0 000000000200 0 000000033451 -ST1A 033451 033451 0 0 000000000200 0 000000033451 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 454 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0670 - -ST9 033451 033451 0 0 000000000200 0 000000033451 - - -*033451 MOVE 0,035104 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000400 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 033451 033451 0 0 200000035104 0 000000000400 -IT1 033451 0 0 0 200000035104 0 000000000400 -AT3 033451 0 0 0 000000035104 0 200000035104 -AT6 033451 035104 0 0 000000035104 0 200000035104 -FT0 033451 035104 0 0 000000000400 0 200000035104 -FT1A 033451 035104 0 0 000000000400 0 000000000400 -FT9 033452 035104 0 0 000000000400 0 000000000400 -ET0 033452 035104 0 0 000000000400 0 000000000400 -ST1 033452 035104 0 0 000000000400 0 000000000400 -ST2 033452 035104 0 0 000000000400 0 000000000400 -ST9 033452 035104 0 0 000000000400 0 000000000400 - - -*033452 XOR 0,035062 -INITIAL -C(AC)=000000 000400 -C(E)=000000 000000 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 033452 033452 0 0 430000035062 0 0 -IT1 033452 0 0 0 430000035062 0 0 -AT3 033452 0 0 0 000000035062 0 430000035062 -AT6 033452 035062 0 0 000000035062 0 430000035062 -FT0 033452 035062 0 0 0 0 430000035062 -FT1A 033452 035062 0 0 0 0 0 -FT2 033452 035062 0 0 0 0 0 -FT2RQ 033452 035062 0 0 000000000400 0 0 -FT3 033452 035062 0 0 000000000400 0 0 -FT9 033453 035062 0 0 000000000400 0 0 -ET0 033453 035062 0 0 000000000400 0 0 -ST1 033453 035062 0 0 000000000400 0 0 -ST2 033453 035062 0 0 000000000400 0 0 -ST9 033453 035062 0 0 000000000400 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 455 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0671 - -*033453 SKIPN 0,000000 -INITIAL -C(AC)=000000 000400 -C(E)=000000 000400 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 033453 033453 0 0 336000000000 0 000000000400 -IT1 033453 0 0 0 336000000000 0 000000000400 -AT3 033453 0 0 0 0 0 336000000000 -AT6 033453 0 0 0 0 0 336000000000 -FT0 033453 0 0 0 000000000400 0 336000000000 -FT1A 033453 0 0 0 000000000400 0 000000000400 -FT9 033454 0 0 0 000000000400 0 000000000400 -ET0 033455 0 0 0 000000000400 0 000000000400 -ST1A 033455 0 0 0 000000000400 0 000000000400 -ST9 033455 0 0 0 000000000400 0 000000000400 - - -*033455 JUMPA 0,033456 -INITIAL -C(AC)=000000 000400 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033455 033455 0 0 324000033456 0 000000033456 -IT1 033455 0 0 0 324000033456 0 000000033456 -AT3 033455 0 0 0 000000033456 0 324000033456 -AT6 033455 033456 0 0 000000033456 0 324000033456 -FT1A 033455 033456 0 0 000000033456 0 000000033456 -FT2 033455 033456 0 0 0 0 000000033456 -FT2RQ 033455 033456 0 0 000000000400 0 000000033456 -FT3 033455 033456 0 0 000000000400 0 000000033456 -FT9 033456 033456 0 0 000000000400 0 000000033456 -ET0 033456 033456 0 0 000000000400 0 000000033456 -ST1A 033456 033456 0 0 000000000400 0 000000033456 -ST9 033456 033456 0 0 000000000400 0 000000033456 - - -*033456 MOVE 0,035105 -INITIAL -C(AC)=000000 000400 -C(E)=000000 001000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 033456 033456 0 0 200000035105 0 000000001000 -IT1 033456 0 0 0 200000035105 0 000000001000 -AT3 033456 0 0 0 000000035105 0 200000035105 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 456 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0672 - -AT6 033456 035105 0 0 000000035105 0 200000035105 -FT0 033456 035105 0 0 000000001000 0 200000035105 -FT1A 033456 035105 0 0 000000001000 0 000000001000 -FT9 033457 035105 0 0 000000001000 0 000000001000 -ET0 033457 035105 0 0 000000001000 0 000000001000 -ST1 033457 035105 0 0 000000001000 0 000000001000 -ST2 033457 035105 0 0 000000001000 0 000000001000 -ST9 033457 035105 0 0 000000001000 0 000000001000 - - -*033457 XOR 0,035062 -INITIAL -C(AC)=000000 001000 -C(E)=000000 000000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 033457 033457 0 0 430000035062 0 0 -IT1 033457 0 0 0 430000035062 0 0 -AT3 033457 0 0 0 000000035062 0 430000035062 -AT6 033457 035062 0 0 000000035062 0 430000035062 -FT0 033457 035062 0 0 0 0 430000035062 -FT1A 033457 035062 0 0 0 0 0 -FT2 033457 035062 0 0 0 0 0 -FT2RQ 033457 035062 0 0 000000001000 0 0 -FT3 033457 035062 0 0 000000001000 0 0 -FT9 033460 035062 0 0 000000001000 0 0 -ET0 033460 035062 0 0 000000001000 0 0 -ST1 033460 035062 0 0 000000001000 0 0 -ST2 033460 035062 0 0 000000001000 0 0 -ST9 033460 035062 0 0 000000001000 0 0 - - -*033460 SKIPN 0,000000 -INITIAL -C(AC)=000000 001000 -C(E)=000000 001000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 033460 033460 0 0 336000000000 0 000000001000 -IT1 033460 0 0 0 336000000000 0 000000001000 -AT3 033460 0 0 0 0 0 336000000000 -AT6 033460 0 0 0 0 0 336000000000 -FT0 033460 0 0 0 000000001000 0 336000000000 -FT1A 033460 0 0 0 000000001000 0 000000001000 -FT9 033461 0 0 0 000000001000 0 000000001000 -ET0 033462 0 0 0 000000001000 0 000000001000 -ST1A 033462 0 0 0 000000001000 0 000000001000 -ST9 033462 0 0 0 000000001000 0 000000001000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 457 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0673 - - - -*033462 JUMPA 0,033463 -INITIAL -C(AC)=000000 001000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033462 033462 0 0 324000033463 0 000000033463 -IT1 033462 0 0 0 324000033463 0 000000033463 -AT3 033462 0 0 0 000000033463 0 324000033463 -AT6 033462 033463 0 0 000000033463 0 324000033463 -FT1A 033462 033463 0 0 000000033463 0 000000033463 -FT2 033462 033463 0 0 0 0 000000033463 -FT2RQ 033462 033463 0 0 000000001000 0 000000033463 -FT3 033462 033463 0 0 000000001000 0 000000033463 -FT9 033463 033463 0 0 000000001000 0 000000033463 -ET0 033463 033463 0 0 000000001000 0 000000033463 -ST1A 033463 033463 0 0 000000001000 0 000000033463 -ST9 033463 033463 0 0 000000001000 0 000000033463 - - -*033463 MOVE 0,035106 -INITIAL -C(AC)=000000 001000 -C(E)=000000 002000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 033463 033463 0 0 200000035106 0 000000002000 -IT1 033463 0 0 0 200000035106 0 000000002000 -AT3 033463 0 0 0 000000035106 0 200000035106 -AT6 033463 035106 0 0 000000035106 0 200000035106 -FT0 033463 035106 0 0 000000002000 0 200000035106 -FT1A 033463 035106 0 0 000000002000 0 000000002000 -FT9 033464 035106 0 0 000000002000 0 000000002000 -ET0 033464 035106 0 0 000000002000 0 000000002000 -ST1 033464 035106 0 0 000000002000 0 000000002000 -ST2 033464 035106 0 0 000000002000 0 000000002000 -ST9 033464 035106 0 0 000000002000 0 000000002000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 458 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0674 - -*033464 XOR 0,035062 -INITIAL -C(AC)=000000 002000 -C(E)=000000 000000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 033464 033464 0 0 430000035062 0 0 -IT1 033464 0 0 0 430000035062 0 0 -AT3 033464 0 0 0 000000035062 0 430000035062 -AT6 033464 035062 0 0 000000035062 0 430000035062 -FT0 033464 035062 0 0 0 0 430000035062 -FT1A 033464 035062 0 0 0 0 0 -FT2 033464 035062 0 0 0 0 0 -FT2RQ 033464 035062 0 0 000000002000 0 0 -FT3 033464 035062 0 0 000000002000 0 0 -FT9 033465 035062 0 0 000000002000 0 0 -ET0 033465 035062 0 0 000000002000 0 0 -ST1 033465 035062 0 0 000000002000 0 0 -ST2 033465 035062 0 0 000000002000 0 0 -ST9 033465 035062 0 0 000000002000 0 0 - - -*033465 SKIPN 0,000000 -INITIAL -C(AC)=000000 002000 -C(E)=000000 002000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 033465 033465 0 0 336000000000 0 000000002000 -IT1 033465 0 0 0 336000000000 0 000000002000 -AT3 033465 0 0 0 0 0 336000000000 -AT6 033465 0 0 0 0 0 336000000000 -FT0 033465 0 0 0 000000002000 0 336000000000 -FT1A 033465 0 0 0 000000002000 0 000000002000 -FT9 033466 0 0 0 000000002000 0 000000002000 -ET0 033467 0 0 0 000000002000 0 000000002000 -ST1A 033467 0 0 0 000000002000 0 000000002000 -ST9 033467 0 0 0 000000002000 0 000000002000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 459 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0675 - -*033467 JUMPA 0,033470 -INITIAL -C(AC)=000000 002000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033467 033467 0 0 324000033470 0 000000033470 -IT1 033467 0 0 0 324000033470 0 000000033470 -AT3 033467 0 0 0 000000033470 0 324000033470 -AT6 033467 033470 0 0 000000033470 0 324000033470 -FT1A 033467 033470 0 0 000000033470 0 000000033470 -FT2 033467 033470 0 0 0 0 000000033470 -FT2RQ 033467 033470 0 0 000000002000 0 000000033470 -FT3 033467 033470 0 0 000000002000 0 000000033470 -FT9 033470 033470 0 0 000000002000 0 000000033470 -ET0 033470 033470 0 0 000000002000 0 000000033470 -ST1A 033470 033470 0 0 000000002000 0 000000033470 -ST9 033470 033470 0 0 000000002000 0 000000033470 - - -*033470 MOVE 0,035107 -INITIAL -C(AC)=000000 002000 -C(E)=000000 004000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 033470 033470 0 0 200000035107 0 000000004000 -IT1 033470 0 0 0 200000035107 0 000000004000 -AT3 033470 0 0 0 000000035107 0 200000035107 -AT6 033470 035107 0 0 000000035107 0 200000035107 -FT0 033470 035107 0 0 000000004000 0 200000035107 -FT1A 033470 035107 0 0 000000004000 0 000000004000 -FT9 033471 035107 0 0 000000004000 0 000000004000 -ET0 033471 035107 0 0 000000004000 0 000000004000 -ST1 033471 035107 0 0 000000004000 0 000000004000 -ST2 033471 035107 0 0 000000004000 0 000000004000 -ST9 033471 035107 0 0 000000004000 0 000000004000 - - -*033471 XOR 0,035062 -INITIAL -C(AC)=000000 004000 -C(E)=000000 000000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 033471 033471 0 0 430000035062 0 0 -IT1 033471 0 0 0 430000035062 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 460 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0676 - -AT3 033471 0 0 0 000000035062 0 430000035062 -AT6 033471 035062 0 0 000000035062 0 430000035062 -FT0 033471 035062 0 0 0 0 430000035062 -FT1A 033471 035062 0 0 0 0 0 -FT2 033471 035062 0 0 0 0 0 -FT2RQ 033471 035062 0 0 000000004000 0 0 -FT3 033471 035062 0 0 000000004000 0 0 -FT9 033472 035062 0 0 000000004000 0 0 -ET0 033472 035062 0 0 000000004000 0 0 -ST1 033472 035062 0 0 000000004000 0 0 -ST2 033472 035062 0 0 000000004000 0 0 -ST9 033472 035062 0 0 000000004000 0 0 - - -*033472 SKIPN 0,000000 -INITIAL -C(AC)=000000 004000 -C(E)=000000 004000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 033472 033472 0 0 336000000000 0 000000004000 -IT1 033472 0 0 0 336000000000 0 000000004000 -AT3 033472 0 0 0 0 0 336000000000 -AT6 033472 0 0 0 0 0 336000000000 -FT0 033472 0 0 0 000000004000 0 336000000000 -FT1A 033472 0 0 0 000000004000 0 000000004000 -FT9 033473 0 0 0 000000004000 0 000000004000 -ET0 033474 0 0 0 000000004000 0 000000004000 -ST1A 033474 0 0 0 000000004000 0 000000004000 -ST9 033474 0 0 0 000000004000 0 000000004000 - - -*033474 JUMPA 0,033475 -INITIAL -C(AC)=000000 004000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033474 033474 0 0 324000033475 0 000000033475 -IT1 033474 0 0 0 324000033475 0 000000033475 -AT3 033474 0 0 0 000000033475 0 324000033475 -AT6 033474 033475 0 0 000000033475 0 324000033475 -FT1A 033474 033475 0 0 000000033475 0 000000033475 -FT2 033474 033475 0 0 0 0 000000033475 -FT2RQ 033474 033475 0 0 000000004000 0 000000033475 -FT3 033474 033475 0 0 000000004000 0 000000033475 -FT9 033475 033475 0 0 000000004000 0 000000033475 -ET0 033475 033475 0 0 000000004000 0 000000033475 -ST1A 033475 033475 0 0 000000004000 0 000000033475 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 461 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0677 - -ST9 033475 033475 0 0 000000004000 0 000000033475 - - -*033475 MOVE 0,035110 -INITIAL -C(AC)=000000 004000 -C(E)=000000 010000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 033475 033475 0 0 200000035110 0 000000010000 -IT1 033475 0 0 0 200000035110 0 000000010000 -AT3 033475 0 0 0 000000035110 0 200000035110 -AT6 033475 035110 0 0 000000035110 0 200000035110 -FT0 033475 035110 0 0 000000010000 0 200000035110 -FT1A 033475 035110 0 0 000000010000 0 000000010000 -FT9 033476 035110 0 0 000000010000 0 000000010000 -ET0 033476 035110 0 0 000000010000 0 000000010000 -ST1 033476 035110 0 0 000000010000 0 000000010000 -ST2 033476 035110 0 0 000000010000 0 000000010000 -ST9 033476 035110 0 0 000000010000 0 000000010000 - - -*033476 XOR 0,035062 -INITIAL -C(AC)=000000 010000 -C(E)=000000 000000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 033476 033476 0 0 430000035062 0 0 -IT1 033476 0 0 0 430000035062 0 0 -AT3 033476 0 0 0 000000035062 0 430000035062 -AT6 033476 035062 0 0 000000035062 0 430000035062 -FT0 033476 035062 0 0 0 0 430000035062 -FT1A 033476 035062 0 0 0 0 0 -FT2 033476 035062 0 0 0 0 0 -FT2RQ 033476 035062 0 0 000000010000 0 0 -FT3 033476 035062 0 0 000000010000 0 0 -FT9 033477 035062 0 0 000000010000 0 0 -ET0 033477 035062 0 0 000000010000 0 0 -ST1 033477 035062 0 0 000000010000 0 0 -ST2 033477 035062 0 0 000000010000 0 0 -ST9 033477 035062 0 0 000000010000 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 462 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0678 - -*033477 SKIPN 0,000000 -INITIAL -C(AC)=000000 010000 -C(E)=000000 010000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 033477 033477 0 0 336000000000 0 000000010000 -IT1 033477 0 0 0 336000000000 0 000000010000 -AT3 033477 0 0 0 0 0 336000000000 -AT6 033477 0 0 0 0 0 336000000000 -FT0 033477 0 0 0 000000010000 0 336000000000 -FT1A 033477 0 0 0 000000010000 0 000000010000 -FT9 0 0 0 0 000000010000 0 000000010000 -ET0 033501 0 0 0 000000010000 0 000000010000 -ST1A 033501 0 0 0 000000010000 0 000000010000 -ST9 033501 0 0 0 000000010000 0 000000010000 - - -*033501 JUMPA 0,033502 -INITIAL -C(AC)=000000 010000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033501 033501 0 0 324000033502 0 000000033502 -IT1 033501 0 0 0 324000033502 0 000000033502 -AT3 033501 0 0 0 000000033502 0 324000033502 -AT6 033501 033502 0 0 000000033502 0 324000033502 -FT1A 033501 033502 0 0 000000033502 0 000000033502 -FT2 033501 033502 0 0 0 0 000000033502 -FT2RQ 033501 033502 0 0 000000010000 0 000000033502 -FT3 033501 033502 0 0 000000010000 0 000000033502 -FT9 033502 033502 0 0 000000010000 0 000000033502 -ET0 033502 033502 0 0 000000010000 0 000000033502 -ST1A 033502 033502 0 0 000000010000 0 000000033502 -ST9 033502 033502 0 0 000000010000 0 000000033502 - - -*033502 MOVE 0,035111 -INITIAL -C(AC)=000000 010000 -C(E)=000000 020000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 033502 033502 0 0 200000035111 0 000000020000 -IT1 033502 0 0 0 200000035111 0 000000020000 -AT3 033502 0 0 0 000000035111 0 200000035111 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 463 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0679 - -AT6 033502 035111 0 0 000000035111 0 200000035111 -FT0 033502 035111 0 0 000000020000 0 200000035111 -FT1A 033502 035111 0 0 000000020000 0 000000020000 -FT9 033503 035111 0 0 000000020000 0 000000020000 -ET0 033503 035111 0 0 000000020000 0 000000020000 -ST1 033503 035111 0 0 000000020000 0 000000020000 -ST2 033503 035111 0 0 000000020000 0 000000020000 -ST9 033503 035111 0 0 000000020000 0 000000020000 - - -*033503 XOR 0,035062 -INITIAL -C(AC)=000000 020000 -C(E)=000000 000000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 033503 033503 0 0 430000035062 0 0 -IT1 033503 0 0 0 430000035062 0 0 -AT3 033503 0 0 0 000000035062 0 430000035062 -AT6 033503 035062 0 0 000000035062 0 430000035062 -FT0 033503 035062 0 0 0 0 430000035062 -FT1A 033503 035062 0 0 0 0 0 -FT2 033503 035062 0 0 0 0 0 -FT2RQ 033503 035062 0 0 000000020000 0 0 -FT3 033503 035062 0 0 000000020000 0 0 -FT9 033504 035062 0 0 000000020000 0 0 -ET0 033504 035062 0 0 000000020000 0 0 -ST1 033504 035062 0 0 000000020000 0 0 -ST2 033504 035062 0 0 000000020000 0 0 -ST9 033504 035062 0 0 000000020000 0 0 - - -*033504 SKIPN 0,000000 -INITIAL -C(AC)=000000 020000 -C(E)=000000 020000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 033504 033504 0 0 336000000000 0 000000020000 -IT1 033504 0 0 0 336000000000 0 000000020000 -AT3 033504 0 0 0 0 0 336000000000 -AT6 033504 0 0 0 0 0 336000000000 -FT0 033504 0 0 0 000000020000 0 336000000000 -FT1A 033504 0 0 0 000000020000 0 000000020000 -FT9 033505 0 0 0 000000020000 0 000000020000 -ET0 033506 0 0 0 000000020000 0 000000020000 -ST1A 033506 0 0 0 000000020000 0 000000020000 -ST9 033506 0 0 0 000000020000 0 000000020000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 464 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0680 - - - -*033506 JUMPA 0,033507 -INITIAL -C(AC)=000000 020000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033506 033506 0 0 324000033507 0 000000033507 -IT1 033506 0 0 0 324000033507 0 000000033507 -AT3 033506 0 0 0 000000033507 0 324000033507 -AT6 033506 033507 0 0 000000033507 0 324000033507 -FT1A 033506 033507 0 0 000000033507 0 000000033507 -FT2 033506 033507 0 0 0 0 000000033507 -FT2RQ 033506 033507 0 0 000000020000 0 000000033507 -FT3 033506 033507 0 0 000000020000 0 000000033507 -FT9 033507 033507 0 0 000000020000 0 000000033507 -ET0 033507 033507 0 0 000000020000 0 000000033507 -ST1A 033507 033507 0 0 000000020000 0 000000033507 -ST9 033507 033507 0 0 000000020000 0 000000033507 - - -*033507 MOVE 0,035112 -INITIAL -C(AC)=000000 020000 -C(E)=000000 040000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 033507 033507 0 0 200000035112 0 000000040000 -IT1 033507 0 0 0 200000035112 0 000000040000 -AT3 033507 0 0 0 000000035112 0 200000035112 -AT6 033507 035112 0 0 000000035112 0 200000035112 -FT0 033507 035112 0 0 000000040000 0 200000035112 -FT1A 033507 035112 0 0 000000040000 0 000000040000 -FT9 033510 035112 0 0 000000040000 0 000000040000 -ET0 033510 035112 0 0 000000040000 0 000000040000 -ST1 033510 035112 0 0 000000040000 0 000000040000 -ST2 033510 035112 0 0 000000040000 0 000000040000 -ST9 033510 035112 0 0 000000040000 0 000000040000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 465 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0681 - -*033510 XOR 0,035062 -INITIAL -C(AC)=000000 040000 -C(E)=000000 000000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 033510 033510 0 0 430000035062 0 0 -IT1 033510 0 0 0 430000035062 0 0 -AT3 033510 0 0 0 000000035062 0 430000035062 -AT6 033510 035062 0 0 000000035062 0 430000035062 -FT0 033510 035062 0 0 0 0 430000035062 -FT1A 033510 035062 0 0 0 0 0 -FT2 033510 035062 0 0 0 0 0 -FT2RQ 033510 035062 0 0 000000040000 0 0 -FT3 033510 035062 0 0 000000040000 0 0 -FT9 033511 035062 0 0 000000040000 0 0 -ET0 033511 035062 0 0 000000040000 0 0 -ST1 033511 035062 0 0 000000040000 0 0 -ST2 033511 035062 0 0 000000040000 0 0 -ST9 033511 035062 0 0 000000040000 0 0 - - -*033511 SKIPN 0,000000 -INITIAL -C(AC)=000000 040000 -C(E)=000000 040000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 033511 033511 0 0 336000000000 0 000000040000 -IT1 033511 0 0 0 336000000000 0 000000040000 -AT3 033511 0 0 0 0 0 336000000000 -AT6 033511 0 0 0 0 0 336000000000 -FT0 033511 0 0 0 000000040000 0 336000000000 -FT1A 033511 0 0 0 000000040000 0 000000040000 -FT9 033512 0 0 0 000000040000 0 000000040000 -ET0 033513 0 0 0 000000040000 0 000000040000 -ST1A 033513 0 0 0 000000040000 0 000000040000 -ST9 033513 0 0 0 000000040000 0 000000040000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 466 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0682 - -*033513 JUMPA 0,033514 -INITIAL -C(AC)=000000 040000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033513 033513 0 0 324000033514 0 000000033514 -IT1 033513 0 0 0 324000033514 0 000000033514 -AT3 033513 0 0 0 000000033514 0 324000033514 -AT6 033513 033514 0 0 000000033514 0 324000033514 -FT1A 033513 033514 0 0 000000033514 0 000000033514 -FT2 033513 033514 0 0 0 0 000000033514 -FT2RQ 033513 033514 0 0 000000040000 0 000000033514 -FT3 033513 033514 0 0 000000040000 0 000000033514 -FT9 033514 033514 0 0 000000040000 0 000000033514 -ET0 033514 033514 0 0 000000040000 0 000000033514 -ST1A 033514 033514 0 0 000000040000 0 000000033514 -ST9 033514 033514 0 0 000000040000 0 000000033514 - - -*033514 MOVE 0,035113 -INITIAL -C(AC)=000000 040000 -C(E)=000000 100000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 033514 033514 0 0 200000035113 0 000000100000 -IT1 033514 0 0 0 200000035113 0 000000100000 -AT3 033514 0 0 0 000000035113 0 200000035113 -AT6 033514 035113 0 0 000000035113 0 200000035113 -FT0 033514 035113 0 0 000000100000 0 200000035113 -FT1A 033514 035113 0 0 000000100000 0 000000100000 -FT9 033515 035113 0 0 000000100000 0 000000100000 -ET0 033515 035113 0 0 000000100000 0 000000100000 -ST1 033515 035113 0 0 000000100000 0 000000100000 -ST2 033515 035113 0 0 000000100000 0 000000100000 -ST9 033515 035113 0 0 000000100000 0 000000100000 - - -*033515 XOR 0,035062 -INITIAL -C(AC)=000000 100000 -C(E)=000000 000000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 033515 033515 0 0 430000035062 0 0 -IT1 033515 0 0 0 430000035062 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 467 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0683 - -AT3 033515 0 0 0 000000035062 0 430000035062 -AT6 033515 035062 0 0 000000035062 0 430000035062 -FT0 033515 035062 0 0 0 0 430000035062 -FT1A 033515 035062 0 0 0 0 0 -FT2 033515 035062 0 0 0 0 0 -FT2RQ 033515 035062 0 0 000000100000 0 0 -FT3 033515 035062 0 0 000000100000 0 0 -FT9 033516 035062 0 0 000000100000 0 0 -ET0 033516 035062 0 0 000000100000 0 0 -ST1 033516 035062 0 0 000000100000 0 0 -ST2 033516 035062 0 0 000000100000 0 0 -ST9 033516 035062 0 0 000000100000 0 0 - - -*033516 SKIPN 0,000000 -INITIAL -C(AC)=000000 100000 -C(E)=000000 100000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 033516 033516 0 0 336000000000 0 000000100000 -IT1 033516 0 0 0 336000000000 0 000000100000 -AT3 033516 0 0 0 0 0 336000000000 -AT6 033516 0 0 0 0 0 336000000000 -FT0 033516 0 0 0 000000100000 0 336000000000 -FT1A 033516 0 0 0 000000100000 0 000000100000 -FT9 033517 0 0 0 000000100000 0 000000100000 -ET0 033520 0 0 0 000000100000 0 000000100000 -ST1A 033520 0 0 0 000000100000 0 000000100000 -ST9 033520 0 0 0 000000100000 0 000000100000 - - -*033520 JUMPA 0,033521 -INITIAL -C(AC)=000000 100000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033520 033520 0 0 324000033521 0 000000033521 -IT1 033520 0 0 0 324000033521 0 000000033521 -AT3 033520 0 0 0 000000033521 0 324000033521 -AT6 033520 033521 0 0 000000033521 0 324000033521 -FT1A 033520 033521 0 0 000000033521 0 000000033521 -FT2 033520 033521 0 0 0 0 000000033521 -FT2RQ 033520 033521 0 0 000000100000 0 000000033521 -FT3 033520 033521 0 0 000000100000 0 000000033521 -FT9 033521 033521 0 0 000000100000 0 000000033521 -ET0 033521 033521 0 0 000000100000 0 000000033521 -ST1A 033521 033521 0 0 000000100000 0 000000033521 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 468 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0684 - -ST9 033521 033521 0 0 000000100000 0 000000033521 - - -*033521 MOVE 0,035114 -INITIAL -C(AC)=000000 100000 -C(E)=000000 200000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 033521 033521 0 0 200000035114 0 000000200000 -IT1 033521 0 0 0 200000035114 0 000000200000 -AT3 033521 0 0 0 000000035114 0 200000035114 -AT6 033521 035114 0 0 000000035114 0 200000035114 -FT0 033521 035114 0 0 000000200000 0 200000035114 -FT1A 033521 035114 0 0 000000200000 0 000000200000 -FT9 033522 035114 0 0 000000200000 0 000000200000 -ET0 033522 035114 0 0 000000200000 0 000000200000 -ST1 033522 035114 0 0 000000200000 0 000000200000 -ST2 033522 035114 0 0 000000200000 0 000000200000 -ST9 033522 035114 0 0 000000200000 0 000000200000 - - -*033522 XOR 0,035062 -INITIAL -C(AC)=000000 200000 -C(E)=000000 000000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 033522 033522 0 0 430000035062 0 0 -IT1 033522 0 0 0 430000035062 0 0 -AT3 033522 0 0 0 000000035062 0 430000035062 -AT6 033522 035062 0 0 000000035062 0 430000035062 -FT0 033522 035062 0 0 0 0 430000035062 -FT1A 033522 035062 0 0 0 0 0 -FT2 033522 035062 0 0 0 0 0 -FT2RQ 033522 035062 0 0 000000200000 0 0 -FT3 033522 035062 0 0 000000200000 0 0 -FT9 033523 035062 0 0 000000200000 0 0 -ET0 033523 035062 0 0 000000200000 0 0 -ST1 033523 035062 0 0 000000200000 0 0 -ST2 033523 035062 0 0 000000200000 0 0 -ST9 033523 035062 0 0 000000200000 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 469 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0685 - -*033523 SKIPN 0,000000 -INITIAL -C(AC)=000000 200000 -C(E)=000000 200000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 033523 033523 0 0 336000000000 0 000000200000 -IT1 033523 0 0 0 336000000000 0 000000200000 -AT3 033523 0 0 0 0 0 336000000000 -AT6 033523 0 0 0 0 0 336000000000 -FT0 033523 0 0 0 000000200000 0 336000000000 -FT1A 033523 0 0 0 000000200000 0 000000200000 -FT9 033524 0 0 0 000000200000 0 000000200000 -ET0 033525 0 0 0 000000200000 0 000000200000 -ST1A 033525 0 0 0 000000200000 0 000000200000 -ST9 033525 0 0 0 000000200000 0 000000200000 - - -*033525 JUMPA 0,033526 -INITIAL -C(AC)=000000 200000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033525 033525 0 0 324000033526 0 000000033526 -IT1 033525 0 0 0 324000033526 0 000000033526 -AT3 033525 0 0 0 000000033526 0 324000033526 -AT6 033525 033526 0 0 000000033526 0 324000033526 -FT1A 033525 033526 0 0 000000033526 0 000000033526 -FT2 033525 033526 0 0 0 0 000000033526 -FT2RQ 033525 033526 0 0 000000200000 0 000000033526 -FT3 033525 033526 0 0 000000200000 0 000000033526 -FT9 033526 033526 0 0 000000200000 0 000000033526 -ET0 033526 033526 0 0 000000200000 0 000000033526 -ST1A 033526 033526 0 0 000000200000 0 000000033526 -ST9 033526 033526 0 0 000000200000 0 000000033526 - - -*033526 MOVE 0,035115 -INITIAL -C(AC)=000000 200000 -C(E)=000000 400000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 033526 033526 0 0 200000035115 0 000000400000 -IT1 033526 0 0 0 200000035115 0 000000400000 -AT3 033526 0 0 0 000000035115 0 200000035115 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 470 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0686 - -AT6 033526 035115 0 0 000000035115 0 200000035115 -FT0 033526 035115 0 0 000000400000 0 200000035115 -FT1A 033526 035115 0 0 000000400000 0 000000400000 -FT9 033527 035115 0 0 000000400000 0 000000400000 -ET0 033527 035115 0 0 000000400000 0 000000400000 -ST1 033527 035115 0 0 000000400000 0 000000400000 -ST2 033527 035115 0 0 000000400000 0 000000400000 -ST9 033527 035115 0 0 000000400000 0 000000400000 - - -*033527 XOR 0,035062 -INITIAL -C(AC)=000000 400000 -C(E)=000000 000000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 033527 033527 0 0 430000035062 0 0 -IT1 033527 0 0 0 430000035062 0 0 -AT3 033527 0 0 0 000000035062 0 430000035062 -AT6 033527 035062 0 0 000000035062 0 430000035062 -FT0 033527 035062 0 0 0 0 430000035062 -FT1A 033527 035062 0 0 0 0 0 -FT2 033527 035062 0 0 0 0 0 -FT2RQ 033527 035062 0 0 000000400000 0 0 -FT3 033527 035062 0 0 000000400000 0 0 -FT9 033530 035062 0 0 000000400000 0 0 -ET0 033530 035062 0 0 000000400000 0 0 -ST1 033530 035062 0 0 000000400000 0 0 -ST2 033530 035062 0 0 000000400000 0 0 -ST9 033530 035062 0 0 000000400000 0 0 - - -*033530 SKIPN 0,000000 -INITIAL -C(AC)=000000 400000 -C(E)=000000 400000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 033530 033530 0 0 336000000000 0 000000400000 -IT1 033530 0 0 0 336000000000 0 000000400000 -AT3 033530 0 0 0 0 0 336000000000 -AT6 033530 0 0 0 0 0 336000000000 -FT0 033530 0 0 0 000000400000 0 336000000000 -FT1A 033530 0 0 0 000000400000 0 000000400000 -FT9 033531 0 0 0 000000400000 0 000000400000 -ET0 033532 0 0 0 000000400000 0 000000400000 -ST1A 033532 0 0 0 000000400000 0 000000400000 -ST9 033532 0 0 0 000000400000 0 000000400000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 471 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0687 - - - -*033532 JUMPA 0,033533 -INITIAL -C(AC)=000000 400000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033532 033532 0 0 324000033533 0 000000033533 -IT1 033532 0 0 0 324000033533 0 000000033533 -AT3 033532 0 0 0 000000033533 0 324000033533 -AT6 033532 033533 0 0 000000033533 0 324000033533 -FT1A 033532 033533 0 0 000000033533 0 000000033533 -FT2 033532 033533 0 0 0 0 000000033533 -FT2RQ 033532 033533 0 0 000000400000 0 000000033533 -FT3 033532 033533 0 0 000000400000 0 000000033533 -FT9 033533 033533 0 0 000000400000 0 000000033533 -ET0 033533 033533 0 0 000000400000 0 000000033533 -ST1A 033533 033533 0 0 000000400000 0 000000033533 -ST9 033533 033533 0 0 000000400000 0 000000033533 - - -*033533 MOVE 0,035116 -INITIAL -C(AC)=000000 400000 -C(E)=000001 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033533 033533 0 0 200000035116 0 000001000000 -IT1 033533 0 0 0 200000035116 0 000001000000 -AT3 033533 0 0 0 000000035116 0 200000035116 -AT6 033533 035116 0 0 000000035116 0 200000035116 -FT0 033533 035116 0 0 000001000000 0 200000035116 -FT1A 033533 035116 0 0 000001000000 0 000001000000 -FT9 033534 035116 0 0 000001000000 0 000001000000 -ET0 033534 035116 0 0 000001000000 0 000001000000 -ST1 033534 035116 0 0 000001000000 0 000001000000 -ST2 033534 035116 0 0 000001000000 0 000001000000 -ST9 033534 035116 0 0 000001000000 0 000001000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 472 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0688 - -*033534 XOR 0,035062 -INITIAL -C(AC)=000001 000000 -C(E)=000000 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033534 033534 0 0 430000035062 0 0 -IT1 033534 0 0 0 430000035062 0 0 -AT3 033534 0 0 0 000000035062 0 430000035062 -AT6 033534 035062 0 0 000000035062 0 430000035062 -FT0 033534 035062 0 0 0 0 430000035062 -FT1A 033534 035062 0 0 0 0 0 -FT2 033534 035062 0 0 0 0 0 -FT2RQ 033534 035062 0 0 000001000000 0 0 -FT3 033534 035062 0 0 000001000000 0 0 -FT9 033535 035062 0 0 000001000000 0 0 -ET0 033535 035062 0 0 000001000000 0 0 -ST1 033535 035062 0 0 000001000000 0 0 -ST2 033535 035062 0 0 000001000000 0 0 -ST9 033535 035062 0 0 000001000000 0 0 - - -*033535 SKIPN 0,000000 -INITIAL -C(AC)=000001 000000 -C(E)=000001 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033535 033535 0 0 336000000000 0 000001000000 -IT1 033535 0 0 0 336000000000 0 000001000000 -AT3 033535 0 0 0 0 0 336000000000 -AT6 033535 0 0 0 0 0 336000000000 -FT0 033535 0 0 0 000001000000 0 336000000000 -FT1A 033535 0 0 0 000001000000 0 000001000000 -FT9 033536 0 0 0 000001000000 0 000001000000 -ET0 033537 0 0 0 000001000000 0 000001000000 -ST1A 033537 0 0 0 000001000000 0 000001000000 -ST9 033537 0 0 0 000001000000 0 000001000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 473 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0689 - -*033537 JUMPA 0,033540 -INITIAL -C(AC)=000001 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033537 033537 0 0 324000033540 0 000000033540 -IT1 033537 0 0 0 324000033540 0 000000033540 -AT3 033537 0 0 0 000000033540 0 324000033540 -AT6 033537 033540 0 0 000000033540 0 324000033540 -FT1A 033537 033540 0 0 000000033540 0 000000033540 -FT2 033537 033540 0 0 0 0 000000033540 -FT2RQ 033537 033540 0 0 000001000000 0 000000033540 -FT3 033537 033540 0 0 000001000000 0 000000033540 -FT9 033540 033540 0 0 000001000000 0 000000033540 -ET0 033540 033540 0 0 000001000000 0 000000033540 -ST1A 033540 033540 0 0 000001000000 0 000000033540 -ST9 033540 033540 0 0 000001000000 0 000000033540 - - -*033540 MOVE 0,035117 -INITIAL -C(AC)=000001 000000 -C(E)=000002 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033540 033540 0 0 200000035117 0 000002000000 -IT1 033540 0 0 0 200000035117 0 000002000000 -AT3 033540 0 0 0 000000035117 0 200000035117 -AT6 033540 035117 0 0 000000035117 0 200000035117 -FT0 033540 035117 0 0 000002000000 0 200000035117 -FT1A 033540 035117 0 0 000002000000 0 000002000000 -FT9 033541 035117 0 0 000002000000 0 000002000000 -ET0 033541 035117 0 0 000002000000 0 000002000000 -ST1 033541 035117 0 0 000002000000 0 000002000000 -ST2 033541 035117 0 0 000002000000 0 000002000000 -ST9 033541 035117 0 0 000002000000 0 000002000000 - - -*033541 XOR 0,035062 -INITIAL -C(AC)=000002 000000 -C(E)=000000 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033541 033541 0 0 430000035062 0 0 -IT1 033541 0 0 0 430000035062 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 474 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0690 - -AT3 033541 0 0 0 000000035062 0 430000035062 -AT6 033541 035062 0 0 000000035062 0 430000035062 -FT0 033541 035062 0 0 0 0 430000035062 -FT1A 033541 035062 0 0 0 0 0 -FT2 033541 035062 0 0 0 0 0 -FT2RQ 033541 035062 0 0 000002000000 0 0 -FT3 033541 035062 0 0 000002000000 0 0 -FT9 033542 035062 0 0 000002000000 0 0 -ET0 033542 035062 0 0 000002000000 0 0 -ST1 033542 035062 0 0 000002000000 0 0 -ST2 033542 035062 0 0 000002000000 0 0 -ST9 033542 035062 0 0 000002000000 0 0 - - -*033542 SKIPN 0,000000 -INITIAL -C(AC)=000002 000000 -C(E)=000002 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033542 033542 0 0 336000000000 0 000002000000 -IT1 033542 0 0 0 336000000000 0 000002000000 -AT3 033542 0 0 0 0 0 336000000000 -AT6 033542 0 0 0 0 0 336000000000 -FT0 033542 0 0 0 000002000000 0 336000000000 -FT1A 033542 0 0 0 000002000000 0 000002000000 -FT9 033543 0 0 0 000002000000 0 000002000000 -ET0 033544 0 0 0 000002000000 0 000002000000 -ST1A 033544 0 0 0 000002000000 0 000002000000 -ST9 033544 0 0 0 000002000000 0 000002000000 - - -*033544 JUMPA 0,033545 -INITIAL -C(AC)=000002 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033544 033544 0 0 324000033545 0 000000033545 -IT1 033544 0 0 0 324000033545 0 000000033545 -AT3 033544 0 0 0 000000033545 0 324000033545 -AT6 033544 033545 0 0 000000033545 0 324000033545 -FT1A 033544 033545 0 0 000000033545 0 000000033545 -FT2 033544 033545 0 0 0 0 000000033545 -FT2RQ 033544 033545 0 0 000002000000 0 000000033545 -FT3 033544 033545 0 0 000002000000 0 000000033545 -FT9 033545 033545 0 0 000002000000 0 000000033545 -ET0 033545 033545 0 0 000002000000 0 000000033545 -ST1A 033545 033545 0 0 000002000000 0 000000033545 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 475 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0691 - -ST9 033545 033545 0 0 000002000000 0 000000033545 - - -*033545 MOVE 0,035120 -INITIAL -C(AC)=000002 000000 -C(E)=000004 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033545 033545 0 0 200000035120 0 000004000000 -IT1 033545 0 0 0 200000035120 0 000004000000 -AT3 033545 0 0 0 000000035120 0 200000035120 -AT6 033545 035120 0 0 000000035120 0 200000035120 -FT0 033545 035120 0 0 000004000000 0 200000035120 -FT1A 033545 035120 0 0 000004000000 0 000004000000 -FT9 033546 035120 0 0 000004000000 0 000004000000 -ET0 033546 035120 0 0 000004000000 0 000004000000 -ST1 033546 035120 0 0 000004000000 0 000004000000 -ST2 033546 035120 0 0 000004000000 0 000004000000 -ST9 033546 035120 0 0 000004000000 0 000004000000 - - -*033546 XOR 0,035062 -INITIAL -C(AC)=000004 000000 -C(E)=000000 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033546 033546 0 0 430000035062 0 0 -IT1 033546 0 0 0 430000035062 0 0 -AT3 033546 0 0 0 000000035062 0 430000035062 -AT6 033546 035062 0 0 000000035062 0 430000035062 -FT0 033546 035062 0 0 0 0 430000035062 -FT1A 033546 035062 0 0 0 0 0 -FT2 033546 035062 0 0 0 0 0 -FT2RQ 033546 035062 0 0 000004000000 0 0 -FT3 033546 035062 0 0 000004000000 0 0 -FT9 033547 035062 0 0 000004000000 0 0 -ET0 033547 035062 0 0 000004000000 0 0 -ST1 033547 035062 0 0 000004000000 0 0 -ST2 033547 035062 0 0 000004000000 0 0 -ST9 033547 035062 0 0 000004000000 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 476 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0692 - -*033547 SKIPN 0,000000 -INITIAL -C(AC)=000004 000000 -C(E)=000004 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033547 033547 0 0 336000000000 0 000004000000 -IT1 033547 0 0 0 336000000000 0 000004000000 -AT3 033547 0 0 0 0 0 336000000000 -AT6 033547 0 0 0 0 0 336000000000 -FT0 033547 0 0 0 000004000000 0 336000000000 -FT1A 033547 0 0 0 000004000000 0 000004000000 -FT9 033550 0 0 0 000004000000 0 000004000000 -ET0 033551 0 0 0 000004000000 0 000004000000 -ST1A 033551 0 0 0 000004000000 0 000004000000 -ST9 033551 0 0 0 000004000000 0 000004000000 - - -*033551 JUMPA 0,033552 -INITIAL -C(AC)=000004 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033551 033551 0 0 324000033552 0 000000033552 -IT1 033551 0 0 0 324000033552 0 000000033552 -AT3 033551 0 0 0 000000033552 0 324000033552 -AT6 033551 033552 0 0 000000033552 0 324000033552 -FT1A 033551 033552 0 0 000000033552 0 000000033552 -FT2 033551 033552 0 0 0 0 000000033552 -FT2RQ 033551 033552 0 0 000004000000 0 000000033552 -FT3 033551 033552 0 0 000004000000 0 000000033552 -FT9 033552 033552 0 0 000004000000 0 000000033552 -ET0 033552 033552 0 0 000004000000 0 000000033552 -ST1A 033552 033552 0 0 000004000000 0 000000033552 -ST9 033552 033552 0 0 000004000000 0 000000033552 - - -*033552 MOVE 0,035121 -INITIAL -C(AC)=000004 000000 -C(E)=000010 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033552 033552 0 0 200000035121 0 000010000000 -IT1 033552 0 0 0 200000035121 0 000010000000 -AT3 033552 0 0 0 000000035121 0 200000035121 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 477 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0693 - -AT6 033552 035121 0 0 000000035121 0 200000035121 -FT0 033552 035121 0 0 000010000000 0 200000035121 -FT1A 033552 035121 0 0 000010000000 0 000010000000 -FT9 033553 035121 0 0 000010000000 0 000010000000 -ET0 033553 035121 0 0 000010000000 0 000010000000 -ST1 033553 035121 0 0 000010000000 0 000010000000 -ST2 033553 035121 0 0 000010000000 0 000010000000 -ST9 033553 035121 0 0 000010000000 0 000010000000 - - -*033553 XOR 0,035062 -INITIAL -C(AC)=000010 000000 -C(E)=000000 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033553 033553 0 0 430000035062 0 0 -IT1 033553 0 0 0 430000035062 0 0 -AT3 033553 0 0 0 000000035062 0 430000035062 -AT6 033553 035062 0 0 000000035062 0 430000035062 -FT0 033553 035062 0 0 0 0 430000035062 -FT1A 033553 035062 0 0 0 0 0 -FT2 033553 035062 0 0 0 0 0 -FT2RQ 033553 035062 0 0 000010000000 0 0 -FT3 033553 035062 0 0 000010000000 0 0 -FT9 033554 035062 0 0 000010000000 0 0 -ET0 033554 035062 0 0 000010000000 0 0 -ST1 033554 035062 0 0 000010000000 0 0 -ST2 033554 035062 0 0 000010000000 0 0 -ST9 033554 035062 0 0 000010000000 0 0 - - -*033554 SKIPN 0,000000 -INITIAL -C(AC)=000010 000000 -C(E)=000010 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033554 033554 0 0 336000000000 0 000010000000 -IT1 033554 0 0 0 336000000000 0 000010000000 -AT3 033554 0 0 0 0 0 336000000000 -AT6 033554 0 0 0 0 0 336000000000 -FT0 033554 0 0 0 000010000000 0 336000000000 -FT1A 033554 0 0 0 000010000000 0 000010000000 -FT9 033555 0 0 0 000010000000 0 000010000000 -ET0 033556 0 0 0 000010000000 0 000010000000 -ST1A 033556 0 0 0 000010000000 0 000010000000 -ST9 033556 0 0 0 000010000000 0 000010000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 478 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0694 - - - -*033556 JUMPA 0,033557 -INITIAL -C(AC)=000010 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033556 033556 0 0 324000033557 0 000000033557 -IT1 033556 0 0 0 324000033557 0 000000033557 -AT3 033556 0 0 0 000000033557 0 324000033557 -AT6 033556 033557 0 0 000000033557 0 324000033557 -FT1A 033556 033557 0 0 000000033557 0 000000033557 -FT2 033556 033557 0 0 0 0 000000033557 -FT2RQ 033556 033557 0 0 000010000000 0 000000033557 -FT3 033556 033557 0 0 000010000000 0 000000033557 -FT9 033557 033557 0 0 000010000000 0 000000033557 -ET0 033557 033557 0 0 000010000000 0 000000033557 -ST1A 033557 033557 0 0 000010000000 0 000000033557 -ST9 033557 033557 0 0 000010000000 0 000000033557 - - -*033557 MOVE 0,035122 -INITIAL -C(AC)=000010 000000 -C(E)=000020 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033557 033557 0 0 200000035122 0 000020000000 -IT1 033557 0 0 0 200000035122 0 000020000000 -AT3 033557 0 0 0 000000035122 0 200000035122 -AT6 033557 035122 0 0 000000035122 0 200000035122 -FT0 033557 035122 0 0 000020000000 0 200000035122 -FT1A 033557 035122 0 0 000020000000 0 000020000000 -FT9 033560 035122 0 0 000020000000 0 000020000000 -ET0 033560 035122 0 0 000020000000 0 000020000000 -ST1 033560 035122 0 0 000020000000 0 000020000000 -ST2 033560 035122 0 0 000020000000 0 000020000000 -ST9 033560 035122 0 0 000020000000 0 000020000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 479 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0695 - -*033560 XOR 0,035062 -INITIAL -C(AC)=000020 000000 -C(E)=000000 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033560 033560 0 0 430000035062 0 0 -IT1 033560 0 0 0 430000035062 0 0 -AT3 033560 0 0 0 000000035062 0 430000035062 -AT6 033560 035062 0 0 000000035062 0 430000035062 -FT0 033560 035062 0 0 0 0 430000035062 -FT1A 033560 035062 0 0 0 0 0 -FT2 033560 035062 0 0 0 0 0 -FT2RQ 033560 035062 0 0 000020000000 0 0 -FT3 033560 035062 0 0 000020000000 0 0 -FT9 033561 035062 0 0 000020000000 0 0 -ET0 033561 035062 0 0 000020000000 0 0 -ST1 033561 035062 0 0 000020000000 0 0 -ST2 033561 035062 0 0 000020000000 0 0 -ST9 033561 035062 0 0 000020000000 0 0 - - -*033561 SKIPN 0,000000 -INITIAL -C(AC)=000020 000000 -C(E)=000020 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033561 033561 0 0 336000000000 0 000020000000 -IT1 033561 0 0 0 336000000000 0 000020000000 -AT3 033561 0 0 0 0 0 336000000000 -AT6 033561 0 0 0 0 0 336000000000 -FT0 033561 0 0 0 000020000000 0 336000000000 -FT1A 033561 0 0 0 000020000000 0 000020000000 -FT9 033562 0 0 0 000020000000 0 000020000000 -ET0 033563 0 0 0 000020000000 0 000020000000 -ST1A 033563 0 0 0 000020000000 0 000020000000 -ST9 033563 0 0 0 000020000000 0 000020000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 480 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0696 - -*033563 JUMPA 0,033564 -INITIAL -C(AC)=000020 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033563 033563 0 0 324000033564 0 000000033564 -IT1 033563 0 0 0 324000033564 0 000000033564 -AT3 033563 0 0 0 000000033564 0 324000033564 -AT6 033563 033564 0 0 000000033564 0 324000033564 -FT1A 033563 033564 0 0 000000033564 0 000000033564 -FT2 033563 033564 0 0 0 0 000000033564 -FT2RQ 033563 033564 0 0 000020000000 0 000000033564 -FT3 033563 033564 0 0 000020000000 0 000000033564 -FT9 033564 033564 0 0 000020000000 0 000000033564 -ET0 033564 033564 0 0 000020000000 0 000000033564 -ST1A 033564 033564 0 0 000020000000 0 000000033564 -ST9 033564 033564 0 0 000020000000 0 000000033564 - - -*033564 MOVE 0,035123 -INITIAL -C(AC)=000020 000000 -C(E)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033564 033564 0 0 200000035123 0 000040000000 -IT1 033564 0 0 0 200000035123 0 000040000000 -AT3 033564 0 0 0 000000035123 0 200000035123 -AT6 033564 035123 0 0 000000035123 0 200000035123 -FT0 033564 035123 0 0 000040000000 0 200000035123 -FT1A 033564 035123 0 0 000040000000 0 000040000000 -FT9 033565 035123 0 0 000040000000 0 000040000000 -ET0 033565 035123 0 0 000040000000 0 000040000000 -ST1 033565 035123 0 0 000040000000 0 000040000000 -ST2 033565 035123 0 0 000040000000 0 000040000000 -ST9 033565 035123 0 0 000040000000 0 000040000000 - - -*033565 XOR 0,035062 -INITIAL -C(AC)=000040 000000 -C(E)=000000 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033565 033565 0 0 430000035062 0 0 -IT1 033565 0 0 0 430000035062 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 481 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0697 - -AT3 033565 0 0 0 000000035062 0 430000035062 -AT6 033565 035062 0 0 000000035062 0 430000035062 -FT0 033565 035062 0 0 0 0 430000035062 -FT1A 033565 035062 0 0 0 0 0 -FT2 033565 035062 0 0 0 0 0 -FT2RQ 033565 035062 0 0 000040000000 0 0 -FT3 033565 035062 0 0 000040000000 0 0 -FT9 033566 035062 0 0 000040000000 0 0 -ET0 033566 035062 0 0 000040000000 0 0 -ST1 033566 035062 0 0 000040000000 0 0 -ST2 033566 035062 0 0 000040000000 0 0 -ST9 033566 035062 0 0 000040000000 0 0 - - -*033566 SKIPN 0,000000 -INITIAL -C(AC)=000040 000000 -C(E)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033566 033566 0 0 336000000000 0 000040000000 -IT1 033566 0 0 0 336000000000 0 000040000000 -AT3 033566 0 0 0 0 0 336000000000 -AT6 033566 0 0 0 0 0 336000000000 -FT0 033566 0 0 0 000040000000 0 336000000000 -FT1A 033566 0 0 0 000040000000 0 000040000000 -FT9 033567 0 0 0 000040000000 0 000040000000 -ET0 033570 0 0 0 000040000000 0 000040000000 -ST1A 033570 0 0 0 000040000000 0 000040000000 -ST9 033570 0 0 0 000040000000 0 000040000000 - - -*033570 JUMPA 0,033571 -INITIAL -C(AC)=000040 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033570 033570 0 0 324000033571 0 000000033571 -IT1 033570 0 0 0 324000033571 0 000000033571 -AT3 033570 0 0 0 000000033571 0 324000033571 -AT6 033570 033571 0 0 000000033571 0 324000033571 -FT1A 033570 033571 0 0 000000033571 0 000000033571 -FT2 033570 033571 0 0 0 0 000000033571 -FT2RQ 033570 033571 0 0 000040000000 0 000000033571 -FT3 033570 033571 0 0 000040000000 0 000000033571 -FT9 033571 033571 0 0 000040000000 0 000000033571 -ET0 033571 033571 0 0 000040000000 0 000000033571 -ST1A 033571 033571 0 0 000040000000 0 000000033571 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 482 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0698 - -ST9 033571 033571 0 0 000040000000 0 000000033571 - - -*033571 MOVE 0,035124 -INITIAL -C(AC)=000040 000000 -C(E)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033571 033571 0 0 200000035124 0 000100000000 -IT1 033571 0 0 0 200000035124 0 000100000000 -AT3 033571 0 0 0 000000035124 0 200000035124 -AT6 033571 035124 0 0 000000035124 0 200000035124 -FT0 033571 035124 0 0 000100000000 0 200000035124 -FT1A 033571 035124 0 0 000100000000 0 000100000000 -FT9 033572 035124 0 0 000100000000 0 000100000000 -ET0 033572 035124 0 0 000100000000 0 000100000000 -ST1 033572 035124 0 0 000100000000 0 000100000000 -ST2 033572 035124 0 0 000100000000 0 000100000000 -ST9 033572 035124 0 0 000100000000 0 000100000000 - - -*033572 XOR 0,035062 -INITIAL -C(AC)=000100 000000 -C(E)=000000 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033572 033572 0 0 430000035062 0 0 -IT1 033572 0 0 0 430000035062 0 0 -AT3 033572 0 0 0 000000035062 0 430000035062 -AT6 033572 035062 0 0 000000035062 0 430000035062 -FT0 033572 035062 0 0 0 0 430000035062 -FT1A 033572 035062 0 0 0 0 0 -FT2 033572 035062 0 0 0 0 0 -FT2RQ 033572 035062 0 0 000100000000 0 0 -FT3 033572 035062 0 0 000100000000 0 0 -FT9 033573 035062 0 0 000100000000 0 0 -ET0 033573 035062 0 0 000100000000 0 0 -ST1 033573 035062 0 0 000100000000 0 0 -ST2 033573 035062 0 0 000100000000 0 0 -ST9 033573 035062 0 0 000100000000 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 483 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0699 - -*033573 SKIPN 0,000000 -INITIAL -C(AC)=000100 000000 -C(E)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033573 033573 0 0 336000000000 0 000100000000 -IT1 033573 0 0 0 336000000000 0 000100000000 -AT3 033573 0 0 0 0 0 336000000000 -AT6 033573 0 0 0 0 0 336000000000 -FT0 033573 0 0 0 000100000000 0 336000000000 -FT1A 033573 0 0 0 000100000000 0 000100000000 -FT9 033574 0 0 0 000100000000 0 000100000000 -ET0 033575 0 0 0 000100000000 0 000100000000 -ST1A 033575 0 0 0 000100000000 0 000100000000 -ST9 033575 0 0 0 000100000000 0 000100000000 - - -*033575 JUMPA 0,033576 -INITIAL -C(AC)=000100 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033575 033575 0 0 324000033576 0 000000033576 -IT1 033575 0 0 0 324000033576 0 000000033576 -AT3 033575 0 0 0 000000033576 0 324000033576 -AT6 033575 033576 0 0 000000033576 0 324000033576 -FT1A 033575 033576 0 0 000000033576 0 000000033576 -FT2 033575 033576 0 0 0 0 000000033576 -FT2RQ 033575 033576 0 0 000100000000 0 000000033576 -FT3 033575 033576 0 0 000100000000 0 000000033576 -FT9 033576 033576 0 0 000100000000 0 000000033576 -ET0 033576 033576 0 0 000100000000 0 000000033576 -ST1A 033576 033576 0 0 000100000000 0 000000033576 -ST9 033576 033576 0 0 000100000000 0 000000033576 - - -*033576 MOVE 0,035125 -INITIAL -C(AC)=000100 000000 -C(E)=000200 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033576 033576 0 0 200000035125 0 000200000000 -IT1 033576 0 0 0 200000035125 0 000200000000 -AT3 033576 0 0 0 000000035125 0 200000035125 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 484 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0700 - -AT6 033576 035125 0 0 000000035125 0 200000035125 -FT0 033576 035125 0 0 000200000000 0 200000035125 -FT1A 033576 035125 0 0 000200000000 0 000200000000 -FT9 033577 035125 0 0 000200000000 0 000200000000 -ET0 033577 035125 0 0 000200000000 0 000200000000 -ST1 033577 035125 0 0 000200000000 0 000200000000 -ST2 033577 035125 0 0 000200000000 0 000200000000 -ST9 033577 035125 0 0 000200000000 0 000200000000 - - -*033577 XOR 0,035062 -INITIAL -C(AC)=000200 000000 -C(E)=000000 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033577 033577 0 0 430000035062 0 0 -IT1 033577 0 0 0 430000035062 0 0 -AT3 033577 0 0 0 000000035062 0 430000035062 -AT6 033577 035062 0 0 000000035062 0 430000035062 -FT0 033577 035062 0 0 0 0 430000035062 -FT1A 033577 035062 0 0 0 0 0 -FT2 033577 035062 0 0 0 0 0 -FT2RQ 033577 035062 0 0 000200000000 0 0 -FT3 033577 035062 0 0 000200000000 0 0 -FT9 0 035062 0 0 000200000000 0 0 -ET0 0 035062 0 0 000200000000 0 0 -ST1 0 035062 0 0 000200000000 0 0 -ST2 0 035062 0 0 000200000000 0 0 -ST9 0 035062 0 0 000200000000 0 0 - - -*033600 SKIPN 0,000000 -INITIAL -C(AC)=000200 000000 -C(E)=000200 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 336000000000 0 000200000000 -IT1 0 0 0 0 336000000000 0 000200000000 -AT3 0 0 0 0 0 0 336000000000 -AT6 0 0 0 0 0 0 336000000000 -FT0 0 0 0 0 000200000000 0 336000000000 -FT1A 0 0 0 0 000200000000 0 000200000000 -FT9 033601 0 0 0 000200000000 0 000200000000 -ET0 033602 0 0 0 000200000000 0 000200000000 -ST1A 033602 0 0 0 000200000000 0 000200000000 -ST9 033602 0 0 0 000200000000 0 000200000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 485 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0701 - - - -*033602 JUMPA 0,033603 -INITIAL -C(AC)=000200 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033602 033602 0 0 324000033603 0 000000033603 -IT1 033602 0 0 0 324000033603 0 000000033603 -AT3 033602 0 0 0 000000033603 0 324000033603 -AT6 033602 033603 0 0 000000033603 0 324000033603 -FT1A 033602 033603 0 0 000000033603 0 000000033603 -FT2 033602 033603 0 0 0 0 000000033603 -FT2RQ 033602 033603 0 0 000200000000 0 000000033603 -FT3 033602 033603 0 0 000200000000 0 000000033603 -FT9 033603 033603 0 0 000200000000 0 000000033603 -ET0 033603 033603 0 0 000200000000 0 000000033603 -ST1A 033603 033603 0 0 000200000000 0 000000033603 -ST9 033603 033603 0 0 000200000000 0 000000033603 - - -*033603 MOVE 0,035073 -INITIAL -C(AC)=000200 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033603 033603 0 0 200000035073 0 000400000000 -IT1 033603 0 0 0 200000035073 0 000400000000 -AT3 033603 0 0 0 000000035073 0 200000035073 -AT6 033603 035073 0 0 000000035073 0 200000035073 -FT0 033603 035073 0 0 000400000000 0 200000035073 -FT1A 033603 035073 0 0 000400000000 0 000400000000 -FT9 033604 035073 0 0 000400000000 0 000400000000 -ET0 033604 035073 0 0 000400000000 0 000400000000 -ST1 033604 035073 0 0 000400000000 0 000400000000 -ST2 033604 035073 0 0 000400000000 0 000400000000 -ST9 033604 035073 0 0 000400000000 0 000400000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 486 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0702 - -*033604 XOR 0,035062 -INITIAL -C(AC)=000400 000000 -C(E)=000000 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033604 033604 0 0 430000035062 0 0 -IT1 033604 0 0 0 430000035062 0 0 -AT3 033604 0 0 0 000000035062 0 430000035062 -AT6 033604 035062 0 0 000000035062 0 430000035062 -FT0 033604 035062 0 0 0 0 430000035062 -FT1A 033604 035062 0 0 0 0 0 -FT2 033604 035062 0 0 0 0 0 -FT2RQ 033604 035062 0 0 000400000000 0 0 -FT3 033604 035062 0 0 000400000000 0 0 -FT9 033605 035062 0 0 000400000000 0 0 -ET0 033605 035062 0 0 000400000000 0 0 -ST1 033605 035062 0 0 000400000000 0 0 -ST2 033605 035062 0 0 000400000000 0 0 -ST9 033605 035062 0 0 000400000000 0 0 - - -*033605 SKIPN 0,000000 -INITIAL -C(AC)=000400 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033605 033605 0 0 336000000000 0 000400000000 -IT1 033605 0 0 0 336000000000 0 000400000000 -AT3 033605 0 0 0 0 0 336000000000 -AT6 033605 0 0 0 0 0 336000000000 -FT0 033605 0 0 0 000400000000 0 336000000000 -FT1A 033605 0 0 0 000400000000 0 000400000000 -FT9 033606 0 0 0 000400000000 0 000400000000 -ET0 033607 0 0 0 000400000000 0 000400000000 -ST1A 033607 0 0 0 000400000000 0 000400000000 -ST9 033607 0 0 0 000400000000 0 000400000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 487 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0703 - -*033607 JUMPA 0,033610 -INITIAL -C(AC)=000400 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033607 033607 0 0 324000033610 0 000000033610 -IT1 033607 0 0 0 324000033610 0 000000033610 -AT3 033607 0 0 0 000000033610 0 324000033610 -AT6 033607 033610 0 0 000000033610 0 324000033610 -FT1A 033607 033610 0 0 000000033610 0 000000033610 -FT2 033607 033610 0 0 0 0 000000033610 -FT2RQ 033607 033610 0 0 000400000000 0 000000033610 -FT3 033607 033610 0 0 000400000000 0 000000033610 -FT9 033610 033610 0 0 000400000000 0 000000033610 -ET0 033610 033610 0 0 000400000000 0 000000033610 -ST1A 033610 033610 0 0 000400000000 0 000000033610 -ST9 033610 033610 0 0 000400000000 0 000000033610 - - -*033610 MOVE 0,035126 -INITIAL -C(AC)=000400 000000 -C(E)=001000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033610 033610 0 0 200000035126 0 001000000000 -IT1 033610 0 0 0 200000035126 0 001000000000 -AT3 033610 0 0 0 000000035126 0 200000035126 -AT6 033610 035126 0 0 000000035126 0 200000035126 -FT0 033610 035126 0 0 001000000000 0 200000035126 -FT1A 033610 035126 0 0 001000000000 0 001000000000 -FT9 033611 035126 0 0 001000000000 0 001000000000 -ET0 033611 035126 0 0 001000000000 0 001000000000 -ST1 033611 035126 0 0 001000000000 0 001000000000 -ST2 033611 035126 0 0 001000000000 0 001000000000 -ST9 033611 035126 0 0 001000000000 0 001000000000 - - -*033611 XOR 0,035062 -INITIAL -C(AC)=001000 000000 -C(E)=000000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033611 033611 0 0 430000035062 0 0 -IT1 033611 0 0 0 430000035062 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 488 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0704 - -AT3 033611 0 0 0 000000035062 0 430000035062 -AT6 033611 035062 0 0 000000035062 0 430000035062 -FT0 033611 035062 0 0 0 0 430000035062 -FT1A 033611 035062 0 0 0 0 0 -FT2 033611 035062 0 0 0 0 0 -FT2RQ 033611 035062 0 0 001000000000 0 0 -FT3 033611 035062 0 0 001000000000 0 0 -FT9 033612 035062 0 0 001000000000 0 0 -ET0 033612 035062 0 0 001000000000 0 0 -ST1 033612 035062 0 0 001000000000 0 0 -ST2 033612 035062 0 0 001000000000 0 0 -ST9 033612 035062 0 0 001000000000 0 0 - - -*033612 SKIPN 0,000000 -INITIAL -C(AC)=001000 000000 -C(E)=001000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033612 033612 0 0 336000000000 0 001000000000 -IT1 033612 0 0 0 336000000000 0 001000000000 -AT3 033612 0 0 0 0 0 336000000000 -AT6 033612 0 0 0 0 0 336000000000 -FT0 033612 0 0 0 001000000000 0 336000000000 -FT1A 033612 0 0 0 001000000000 0 001000000000 -FT9 033613 0 0 0 001000000000 0 001000000000 -ET0 033614 0 0 0 001000000000 0 001000000000 -ST1A 033614 0 0 0 001000000000 0 001000000000 -ST9 033614 0 0 0 001000000000 0 001000000000 - - -*033614 JUMPA 0,033615 -INITIAL -C(AC)=001000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033614 033614 0 0 324000033615 0 000000033615 -IT1 033614 0 0 0 324000033615 0 000000033615 -AT3 033614 0 0 0 000000033615 0 324000033615 -AT6 033614 033615 0 0 000000033615 0 324000033615 -FT1A 033614 033615 0 0 000000033615 0 000000033615 -FT2 033614 033615 0 0 0 0 000000033615 -FT2RQ 033614 033615 0 0 001000000000 0 000000033615 -FT3 033614 033615 0 0 001000000000 0 000000033615 -FT9 033615 033615 0 0 001000000000 0 000000033615 -ET0 033615 033615 0 0 001000000000 0 000000033615 -ST1A 033615 033615 0 0 001000000000 0 000000033615 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 489 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0705 - -ST9 033615 033615 0 0 001000000000 0 000000033615 - - -*033615 MOVE 0,035127 -INITIAL -C(AC)=001000 000000 -C(E)=002000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033615 033615 0 0 200000035127 0 002000000000 -IT1 033615 0 0 0 200000035127 0 002000000000 -AT3 033615 0 0 0 000000035127 0 200000035127 -AT6 033615 035127 0 0 000000035127 0 200000035127 -FT0 033615 035127 0 0 002000000000 0 200000035127 -FT1A 033615 035127 0 0 002000000000 0 002000000000 -FT9 033616 035127 0 0 002000000000 0 002000000000 -ET0 033616 035127 0 0 002000000000 0 002000000000 -ST1 033616 035127 0 0 002000000000 0 002000000000 -ST2 033616 035127 0 0 002000000000 0 002000000000 -ST9 033616 035127 0 0 002000000000 0 002000000000 - - -*033616 XOR 0,035062 -INITIAL -C(AC)=002000 000000 -C(E)=000000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033616 033616 0 0 430000035062 0 0 -IT1 033616 0 0 0 430000035062 0 0 -AT3 033616 0 0 0 000000035062 0 430000035062 -AT6 033616 035062 0 0 000000035062 0 430000035062 -FT0 033616 035062 0 0 0 0 430000035062 -FT1A 033616 035062 0 0 0 0 0 -FT2 033616 035062 0 0 0 0 0 -FT2RQ 033616 035062 0 0 002000000000 0 0 -FT3 033616 035062 0 0 002000000000 0 0 -FT9 033617 035062 0 0 002000000000 0 0 -ET0 033617 035062 0 0 002000000000 0 0 -ST1 033617 035062 0 0 002000000000 0 0 -ST2 033617 035062 0 0 002000000000 0 0 -ST9 033617 035062 0 0 002000000000 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 490 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0706 - -*033617 SKIPN 0,000000 -INITIAL -C(AC)=002000 000000 -C(E)=002000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033617 033617 0 0 336000000000 0 002000000000 -IT1 033617 0 0 0 336000000000 0 002000000000 -AT3 033617 0 0 0 0 0 336000000000 -AT6 033617 0 0 0 0 0 336000000000 -FT0 033617 0 0 0 002000000000 0 336000000000 -FT1A 033617 0 0 0 002000000000 0 002000000000 -FT9 033620 0 0 0 002000000000 0 002000000000 -ET0 033621 0 0 0 002000000000 0 002000000000 -ST1A 033621 0 0 0 002000000000 0 002000000000 -ST9 033621 0 0 0 002000000000 0 002000000000 - - -*033621 JUMPA 0,033622 -INITIAL -C(AC)=002000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033621 033621 0 0 324000033622 0 000000033622 -IT1 033621 0 0 0 324000033622 0 000000033622 -AT3 033621 0 0 0 000000033622 0 324000033622 -AT6 033621 033622 0 0 000000033622 0 324000033622 -FT1A 033621 033622 0 0 000000033622 0 000000033622 -FT2 033621 033622 0 0 0 0 000000033622 -FT2RQ 033621 033622 0 0 002000000000 0 000000033622 -FT3 033621 033622 0 0 002000000000 0 000000033622 -FT9 033622 033622 0 0 002000000000 0 000000033622 -ET0 033622 033622 0 0 002000000000 0 000000033622 -ST1A 033622 033622 0 0 002000000000 0 000000033622 -ST9 033622 033622 0 0 002000000000 0 000000033622 - - -*033622 MOVE 0,035130 -INITIAL -C(AC)=002000 000000 -C(E)=004000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033622 033622 0 0 200000035130 0 004000000000 -IT1 033622 0 0 0 200000035130 0 004000000000 -AT3 033622 0 0 0 000000035130 0 200000035130 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 491 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0707 - -AT6 033622 035130 0 0 000000035130 0 200000035130 -FT0 033622 035130 0 0 004000000000 0 200000035130 -FT1A 033622 035130 0 0 004000000000 0 004000000000 -FT9 033623 035130 0 0 004000000000 0 004000000000 -ET0 033623 035130 0 0 004000000000 0 004000000000 -ST1 033623 035130 0 0 004000000000 0 004000000000 -ST2 033623 035130 0 0 004000000000 0 004000000000 -ST9 033623 035130 0 0 004000000000 0 004000000000 - - -*033623 XOR 0,035062 -INITIAL -C(AC)=004000 000000 -C(E)=000000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033623 033623 0 0 430000035062 0 0 -IT1 033623 0 0 0 430000035062 0 0 -AT3 033623 0 0 0 000000035062 0 430000035062 -AT6 033623 035062 0 0 000000035062 0 430000035062 -FT0 033623 035062 0 0 0 0 430000035062 -FT1A 033623 035062 0 0 0 0 0 -FT2 033623 035062 0 0 0 0 0 -FT2RQ 033623 035062 0 0 004000000000 0 0 -FT3 033623 035062 0 0 004000000000 0 0 -FT9 033624 035062 0 0 004000000000 0 0 -ET0 033624 035062 0 0 004000000000 0 0 -ST1 033624 035062 0 0 004000000000 0 0 -ST2 033624 035062 0 0 004000000000 0 0 -ST9 033624 035062 0 0 004000000000 0 0 - - -*033624 SKIPN 0,000000 -INITIAL -C(AC)=004000 000000 -C(E)=004000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033624 033624 0 0 336000000000 0 004000000000 -IT1 033624 0 0 0 336000000000 0 004000000000 -AT3 033624 0 0 0 0 0 336000000000 -AT6 033624 0 0 0 0 0 336000000000 -FT0 033624 0 0 0 004000000000 0 336000000000 -FT1A 033624 0 0 0 004000000000 0 004000000000 -FT9 033625 0 0 0 004000000000 0 004000000000 -ET0 033626 0 0 0 004000000000 0 004000000000 -ST1A 033626 0 0 0 004000000000 0 004000000000 -ST9 033626 0 0 0 004000000000 0 004000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 492 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0708 - - - -*033626 JUMPA 0,033627 -INITIAL -C(AC)=004000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033626 033626 0 0 324000033627 0 000000033627 -IT1 033626 0 0 0 324000033627 0 000000033627 -AT3 033626 0 0 0 000000033627 0 324000033627 -AT6 033626 033627 0 0 000000033627 0 324000033627 -FT1A 033626 033627 0 0 000000033627 0 000000033627 -FT2 033626 033627 0 0 0 0 000000033627 -FT2RQ 033626 033627 0 0 004000000000 0 000000033627 -FT3 033626 033627 0 0 004000000000 0 000000033627 -FT9 033627 033627 0 0 004000000000 0 000000033627 -ET0 033627 033627 0 0 004000000000 0 000000033627 -ST1A 033627 033627 0 0 004000000000 0 000000033627 -ST9 033627 033627 0 0 004000000000 0 000000033627 - - -*033627 MOVE 0,035131 -INITIAL -C(AC)=004000 000000 -C(E)=010000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033627 033627 0 0 200000035131 0 010000000000 -IT1 033627 0 0 0 200000035131 0 010000000000 -AT3 033627 0 0 0 000000035131 0 200000035131 -AT6 033627 035131 0 0 000000035131 0 200000035131 -FT0 033627 035131 0 0 010000000000 0 200000035131 -FT1A 033627 035131 0 0 010000000000 0 010000000000 -FT9 033630 035131 0 0 010000000000 0 010000000000 -ET0 033630 035131 0 0 010000000000 0 010000000000 -ST1 033630 035131 0 0 010000000000 0 010000000000 -ST2 033630 035131 0 0 010000000000 0 010000000000 -ST9 033630 035131 0 0 010000000000 0 010000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 493 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0709 - -*033630 XOR 0,035062 -INITIAL -C(AC)=010000 000000 -C(E)=000000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033630 033630 0 0 430000035062 0 0 -IT1 033630 0 0 0 430000035062 0 0 -AT3 033630 0 0 0 000000035062 0 430000035062 -AT6 033630 035062 0 0 000000035062 0 430000035062 -FT0 033630 035062 0 0 0 0 430000035062 -FT1A 033630 035062 0 0 0 0 0 -FT2 033630 035062 0 0 0 0 0 -FT2RQ 033630 035062 0 0 010000000000 0 0 -FT3 033630 035062 0 0 010000000000 0 0 -FT9 033631 035062 0 0 010000000000 0 0 -ET0 033631 035062 0 0 010000000000 0 0 -ST1 033631 035062 0 0 010000000000 0 0 -ST2 033631 035062 0 0 010000000000 0 0 -ST9 033631 035062 0 0 010000000000 0 0 - - -*033631 SKIPN 0,000000 -INITIAL -C(AC)=010000 000000 -C(E)=010000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033631 033631 0 0 336000000000 0 010000000000 -IT1 033631 0 0 0 336000000000 0 010000000000 -AT3 033631 0 0 0 0 0 336000000000 -AT6 033631 0 0 0 0 0 336000000000 -FT0 033631 0 0 0 010000000000 0 336000000000 -FT1A 033631 0 0 0 010000000000 0 010000000000 -FT9 033632 0 0 0 010000000000 0 010000000000 -ET0 033633 0 0 0 010000000000 0 010000000000 -ST1A 033633 0 0 0 010000000000 0 010000000000 -ST9 033633 0 0 0 010000000000 0 010000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 494 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0710 - -*033633 JUMPA 0,033634 -INITIAL -C(AC)=010000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033633 033633 0 0 324000033634 0 000000033634 -IT1 033633 0 0 0 324000033634 0 000000033634 -AT3 033633 0 0 0 000000033634 0 324000033634 -AT6 033633 033634 0 0 000000033634 0 324000033634 -FT1A 033633 033634 0 0 000000033634 0 000000033634 -FT2 033633 033634 0 0 0 0 000000033634 -FT2RQ 033633 033634 0 0 010000000000 0 000000033634 -FT3 033633 033634 0 0 010000000000 0 000000033634 -FT9 033634 033634 0 0 010000000000 0 000000033634 -ET0 033634 033634 0 0 010000000000 0 000000033634 -ST1A 033634 033634 0 0 010000000000 0 000000033634 -ST9 033634 033634 0 0 010000000000 0 000000033634 - - -*033634 MOVE 0,035132 -INITIAL -C(AC)=010000 000000 -C(E)=020000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033634 033634 0 0 200000035132 0 020000000000 -IT1 033634 0 0 0 200000035132 0 020000000000 -AT3 033634 0 0 0 000000035132 0 200000035132 -AT6 033634 035132 0 0 000000035132 0 200000035132 -FT0 033634 035132 0 0 020000000000 0 200000035132 -FT1A 033634 035132 0 0 020000000000 0 020000000000 -FT9 033635 035132 0 0 020000000000 0 020000000000 -ET0 033635 035132 0 0 020000000000 0 020000000000 -ST1 033635 035132 0 0 020000000000 0 020000000000 -ST2 033635 035132 0 0 020000000000 0 020000000000 -ST9 033635 035132 0 0 020000000000 0 020000000000 - - -*033635 XOR 0,035062 -INITIAL -C(AC)=020000 000000 -C(E)=000000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033635 033635 0 0 430000035062 0 0 -IT1 033635 0 0 0 430000035062 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 495 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0711 - -AT3 033635 0 0 0 000000035062 0 430000035062 -AT6 033635 035062 0 0 000000035062 0 430000035062 -FT0 033635 035062 0 0 0 0 430000035062 -FT1A 033635 035062 0 0 0 0 0 -FT2 033635 035062 0 0 0 0 0 -FT2RQ 033635 035062 0 0 020000000000 0 0 -FT3 033635 035062 0 0 020000000000 0 0 -FT9 033636 035062 0 0 020000000000 0 0 -ET0 033636 035062 0 0 020000000000 0 0 -ST1 033636 035062 0 0 020000000000 0 0 -ST2 033636 035062 0 0 020000000000 0 0 -ST9 033636 035062 0 0 020000000000 0 0 - - -*033636 SKIPN 0,000000 -INITIAL -C(AC)=020000 000000 -C(E)=020000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033636 033636 0 0 336000000000 0 020000000000 -IT1 033636 0 0 0 336000000000 0 020000000000 -AT3 033636 0 0 0 0 0 336000000000 -AT6 033636 0 0 0 0 0 336000000000 -FT0 033636 0 0 0 020000000000 0 336000000000 -FT1A 033636 0 0 0 020000000000 0 020000000000 -FT9 033637 0 0 0 020000000000 0 020000000000 -ET0 033640 0 0 0 020000000000 0 020000000000 -ST1A 033640 0 0 0 020000000000 0 020000000000 -ST9 033640 0 0 0 020000000000 0 020000000000 - - -*033640 JUMPA 0,033641 -INITIAL -C(AC)=020000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033640 033640 0 0 324000033641 0 000000033641 -IT1 033640 0 0 0 324000033641 0 000000033641 -AT3 033640 0 0 0 000000033641 0 324000033641 -AT6 033640 033641 0 0 000000033641 0 324000033641 -FT1A 033640 033641 0 0 000000033641 0 000000033641 -FT2 033640 033641 0 0 0 0 000000033641 -FT2RQ 033640 033641 0 0 020000000000 0 000000033641 -FT3 033640 033641 0 0 020000000000 0 000000033641 -FT9 033641 033641 0 0 020000000000 0 000000033641 -ET0 033641 033641 0 0 020000000000 0 000000033641 -ST1A 033641 033641 0 0 020000000000 0 000000033641 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 496 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0712 - -ST9 033641 033641 0 0 020000000000 0 000000033641 - - -*033641 MOVE 0,035133 -INITIAL -C(AC)=020000 000000 -C(E)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033641 033641 0 0 200000035133 0 040000000000 -IT1 033641 0 0 0 200000035133 0 040000000000 -AT3 033641 0 0 0 000000035133 0 200000035133 -AT6 033641 035133 0 0 000000035133 0 200000035133 -FT0 033641 035133 0 0 040000000000 0 200000035133 -FT1A 033641 035133 0 0 040000000000 0 040000000000 -FT9 033642 035133 0 0 040000000000 0 040000000000 -ET0 033642 035133 0 0 040000000000 0 040000000000 -ST1 033642 035133 0 0 040000000000 0 040000000000 -ST2 033642 035133 0 0 040000000000 0 040000000000 -ST9 033642 035133 0 0 040000000000 0 040000000000 - - -*033642 XOR 0,035062 -INITIAL -C(AC)=040000 000000 -C(E)=000000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033642 033642 0 0 430000035062 0 0 -IT1 033642 0 0 0 430000035062 0 0 -AT3 033642 0 0 0 000000035062 0 430000035062 -AT6 033642 035062 0 0 000000035062 0 430000035062 -FT0 033642 035062 0 0 0 0 430000035062 -FT1A 033642 035062 0 0 0 0 0 -FT2 033642 035062 0 0 0 0 0 -FT2RQ 033642 035062 0 0 040000000000 0 0 -FT3 033642 035062 0 0 040000000000 0 0 -FT9 033643 035062 0 0 040000000000 0 0 -ET0 033643 035062 0 0 040000000000 0 0 -ST1 033643 035062 0 0 040000000000 0 0 -ST2 033643 035062 0 0 040000000000 0 0 -ST9 033643 035062 0 0 040000000000 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 497 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0713 - -*033643 SKIPN 0,000000 -INITIAL -C(AC)=040000 000000 -C(E)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033643 033643 0 0 336000000000 0 040000000000 -IT1 033643 0 0 0 336000000000 0 040000000000 -AT3 033643 0 0 0 0 0 336000000000 -AT6 033643 0 0 0 0 0 336000000000 -FT0 033643 0 0 0 040000000000 0 336000000000 -FT1A 033643 0 0 0 040000000000 0 040000000000 -FT9 033644 0 0 0 040000000000 0 040000000000 -ET0 033645 0 0 0 040000000000 0 040000000000 -ST1A 033645 0 0 0 040000000000 0 040000000000 -ST9 033645 0 0 0 040000000000 0 040000000000 - - -*033645 JUMPA 0,033646 -INITIAL -C(AC)=040000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033645 033645 0 0 324000033646 0 000000033646 -IT1 033645 0 0 0 324000033646 0 000000033646 -AT3 033645 0 0 0 000000033646 0 324000033646 -AT6 033645 033646 0 0 000000033646 0 324000033646 -FT1A 033645 033646 0 0 000000033646 0 000000033646 -FT2 033645 033646 0 0 0 0 000000033646 -FT2RQ 033645 033646 0 0 040000000000 0 000000033646 -FT3 033645 033646 0 0 040000000000 0 000000033646 -FT9 033646 033646 0 0 040000000000 0 000000033646 -ET0 033646 033646 0 0 040000000000 0 000000033646 -ST1A 033646 033646 0 0 040000000000 0 000000033646 -ST9 033646 033646 0 0 040000000000 0 000000033646 - - -*033646 MOVE 0,035134 -INITIAL -C(AC)=040000 000000 -C(E)=100000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033646 033646 0 0 200000035134 0 100000000000 -IT1 033646 0 0 0 200000035134 0 100000000000 -AT3 033646 0 0 0 000000035134 0 200000035134 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 498 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0714 - -AT6 033646 035134 0 0 000000035134 0 200000035134 -FT0 033646 035134 0 0 100000000000 0 200000035134 -FT1A 033646 035134 0 0 100000000000 0 100000000000 -FT9 033647 035134 0 0 100000000000 0 100000000000 -ET0 033647 035134 0 0 100000000000 0 100000000000 -ST1 033647 035134 0 0 100000000000 0 100000000000 -ST2 033647 035134 0 0 100000000000 0 100000000000 -ST9 033647 035134 0 0 100000000000 0 100000000000 - - -*033647 XOR 0,035062 -INITIAL -C(AC)=100000 000000 -C(E)=000000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033647 033647 0 0 430000035062 0 0 -IT1 033647 0 0 0 430000035062 0 0 -AT3 033647 0 0 0 000000035062 0 430000035062 -AT6 033647 035062 0 0 000000035062 0 430000035062 -FT0 033647 035062 0 0 0 0 430000035062 -FT1A 033647 035062 0 0 0 0 0 -FT2 033647 035062 0 0 0 0 0 -FT2RQ 033647 035062 0 0 100000000000 0 0 -FT3 033647 035062 0 0 100000000000 0 0 -FT9 033650 035062 0 0 100000000000 0 0 -ET0 033650 035062 0 0 100000000000 0 0 -ST1 033650 035062 0 0 100000000000 0 0 -ST2 033650 035062 0 0 100000000000 0 0 -ST9 033650 035062 0 0 100000000000 0 0 - - -*033650 SKIPN 0,000000 -INITIAL -C(AC)=100000 000000 -C(E)=100000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033650 033650 0 0 336000000000 0 100000000000 -IT1 033650 0 0 0 336000000000 0 100000000000 -AT3 033650 0 0 0 0 0 336000000000 -AT6 033650 0 0 0 0 0 336000000000 -FT0 033650 0 0 0 100000000000 0 336000000000 -FT1A 033650 0 0 0 100000000000 0 100000000000 -FT9 033651 0 0 0 100000000000 0 100000000000 -ET0 033652 0 0 0 100000000000 0 100000000000 -ST1A 033652 0 0 0 100000000000 0 100000000000 -ST9 033652 0 0 0 100000000000 0 100000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 499 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0715 - - - -*033652 JUMPA 0,033653 -INITIAL -C(AC)=100000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033652 033652 0 0 324000033653 0 000000033653 -IT1 033652 0 0 0 324000033653 0 000000033653 -AT3 033652 0 0 0 000000033653 0 324000033653 -AT6 033652 033653 0 0 000000033653 0 324000033653 -FT1A 033652 033653 0 0 000000033653 0 000000033653 -FT2 033652 033653 0 0 0 0 000000033653 -FT2RQ 033652 033653 0 0 100000000000 0 000000033653 -FT3 033652 033653 0 0 100000000000 0 000000033653 -FT9 033653 033653 0 0 100000000000 0 000000033653 -ET0 033653 033653 0 0 100000000000 0 000000033653 -ST1A 033653 033653 0 0 100000000000 0 000000033653 -ST9 033653 033653 0 0 100000000000 0 000000033653 - - -*033653 MOVE 0,035135 -INITIAL -C(AC)=100000 000000 -C(E)=200000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033653 033653 0 0 200000035135 0 200000000000 -IT1 033653 0 0 0 200000035135 0 200000000000 -AT3 033653 0 0 0 000000035135 0 200000035135 -AT6 033653 035135 0 0 000000035135 0 200000035135 -FT0 033653 035135 0 0 200000000000 0 200000035135 -FT1A 033653 035135 0 0 200000000000 0 200000000000 -FT9 033654 035135 0 0 200000000000 0 200000000000 -ET0 033654 035135 0 0 200000000000 0 200000000000 -ST1 033654 035135 0 0 200000000000 0 200000000000 -ST2 033654 035135 0 0 200000000000 0 200000000000 -ST9 033654 035135 0 0 200000000000 0 200000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 500 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0716 - -*033654 XOR 0,035062 -INITIAL -C(AC)=200000 000000 -C(E)=000000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033654 033654 0 0 430000035062 0 0 -IT1 033654 0 0 0 430000035062 0 0 -AT3 033654 0 0 0 000000035062 0 430000035062 -AT6 033654 035062 0 0 000000035062 0 430000035062 -FT0 033654 035062 0 0 0 0 430000035062 -FT1A 033654 035062 0 0 0 0 0 -FT2 033654 035062 0 0 0 0 0 -FT2RQ 033654 035062 0 0 200000000000 0 0 -FT3 033654 035062 0 0 200000000000 0 0 -FT9 033655 035062 0 0 200000000000 0 0 -ET0 033655 035062 0 0 200000000000 0 0 -ST1 033655 035062 0 0 200000000000 0 0 -ST2 033655 035062 0 0 200000000000 0 0 -ST9 033655 035062 0 0 200000000000 0 0 - - -*033655 SKIPN 0,000000 -INITIAL -C(AC)=200000 000000 -C(E)=200000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033655 033655 0 0 336000000000 0 200000000000 -IT1 033655 0 0 0 336000000000 0 200000000000 -AT3 033655 0 0 0 0 0 336000000000 -AT6 033655 0 0 0 0 0 336000000000 -FT0 033655 0 0 0 200000000000 0 336000000000 -FT1A 033655 0 0 0 200000000000 0 200000000000 -FT9 033656 0 0 0 200000000000 0 200000000000 -ET0 033657 0 0 0 200000000000 0 200000000000 -ST1A 033657 0 0 0 200000000000 0 200000000000 -ST9 033657 0 0 0 200000000000 0 200000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 501 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0717 - -*033657 JUMPA 0,033660 -INITIAL -C(AC)=200000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033657 033657 0 0 324000033660 0 000000033660 -IT1 033657 0 0 0 324000033660 0 000000033660 -AT3 033657 0 0 0 000000033660 0 324000033660 -AT6 033657 033660 0 0 000000033660 0 324000033660 -FT1A 033657 033660 0 0 000000033660 0 000000033660 -FT2 033657 033660 0 0 0 0 000000033660 -FT2RQ 033657 033660 0 0 200000000000 0 000000033660 -FT3 033657 033660 0 0 200000000000 0 000000033660 -FT9 033660 033660 0 0 200000000000 0 000000033660 -ET0 033660 033660 0 0 200000000000 0 000000033660 -ST1A 033660 033660 0 0 200000000000 0 000000033660 -ST9 033660 033660 0 0 200000000000 0 000000033660 - - -*033660 MOVE 0,035065 -INITIAL -C(AC)=200000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033660 033660 0 0 200000035065 0 400000000000 -IT1 033660 0 0 0 200000035065 0 400000000000 -AT3 033660 0 0 0 000000035065 0 200000035065 -AT6 033660 035065 0 0 000000035065 0 200000035065 -FT0 033660 035065 0 0 400000000000 0 200000035065 -FT1A 033660 035065 0 0 400000000000 0 400000000000 -FT9 033661 035065 0 0 400000000000 0 400000000000 -ET0 033661 035065 0 0 400000000000 0 400000000000 -ST1 033661 035065 0 0 400000000000 0 400000000000 -ST2 033661 035065 0 0 400000000000 0 400000000000 -ST9 033661 035065 0 0 400000000000 0 400000000000 - - -*033661 XOR 0,035062 -INITIAL -C(AC)=400000 000000 -C(E)=000000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033661 033661 0 0 430000035062 0 0 -IT1 033661 0 0 0 430000035062 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 502 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0718 - -AT3 033661 0 0 0 000000035062 0 430000035062 -AT6 033661 035062 0 0 000000035062 0 430000035062 -FT0 033661 035062 0 0 0 0 430000035062 -FT1A 033661 035062 0 0 0 0 0 -FT2 033661 035062 0 0 0 0 0 -FT2RQ 033661 035062 0 0 400000000000 0 0 -FT3 033661 035062 0 0 400000000000 0 0 -FT9 033662 035062 0 0 400000000000 0 0 -ET0 033662 035062 0 0 400000000000 0 0 -ST1 033662 035062 0 0 400000000000 0 0 -ST2 033662 035062 0 0 400000000000 0 0 -ST9 033662 035062 0 0 400000000000 0 0 - - -*033662 SKIPN 0,000000 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033662 033662 0 0 336000000000 0 400000000000 -IT1 033662 0 0 0 336000000000 0 400000000000 -AT3 033662 0 0 0 0 0 336000000000 -AT6 033662 0 0 0 0 0 336000000000 -FT0 033662 0 0 0 400000000000 0 336000000000 -FT1A 033662 0 0 0 400000000000 0 400000000000 -FT9 033663 0 0 0 400000000000 0 400000000000 -ET0 033664 0 0 0 400000000000 0 400000000000 -ST1A 033664 0 0 0 400000000000 0 400000000000 -ST9 033664 0 0 0 400000000000 0 400000000000 - - -*033664 JUMPA 0,033665 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033664 033664 0 0 324000033665 0 000000033665 -IT1 033664 0 0 0 324000033665 0 000000033665 -AT3 033664 0 0 0 000000033665 0 324000033665 -AT6 033664 033665 0 0 000000033665 0 324000033665 -FT1A 033664 033665 0 0 000000033665 0 000000033665 -FT2 033664 033665 0 0 0 0 000000033665 -FT2RQ 033664 033665 0 0 400000000000 0 000000033665 -FT3 033664 033665 0 0 400000000000 0 000000033665 -FT9 033665 033665 0 0 400000000000 0 000000033665 -ET0 033665 033665 0 0 400000000000 0 000000033665 -ST1A 033665 033665 0 0 400000000000 0 000000033665 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 503 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0719 - -ST9 033665 033665 0 0 400000000000 0 000000033665 - - -*033665 MOVE 0,035074 -INITIAL -C(AC)=400000 000000 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033665 033665 0 0 200000035074 0 000000000001 -IT1 033665 0 0 0 200000035074 0 000000000001 -AT3 033665 0 0 0 000000035074 0 200000035074 -AT6 033665 035074 0 0 000000035074 0 200000035074 -FT0 033665 035074 0 0 000000000001 0 200000035074 -FT1A 033665 035074 0 0 000000000001 0 000000000001 -FT9 033666 035074 0 0 000000000001 0 000000000001 -ET0 033666 035074 0 0 000000000001 0 000000000001 -ST1 033666 035074 0 0 000000000001 0 000000000001 -ST2 033666 035074 0 0 000000000001 0 000000000001 -ST9 033666 035074 0 0 000000000001 0 000000000001 - - -*033666 XOR 0,035074 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033666 033666 0 0 430000035074 0 000000000001 -IT1 033666 0 0 0 430000035074 0 000000000001 -AT3 033666 0 0 0 000000035074 0 430000035074 -AT6 033666 035074 0 0 000000035074 0 430000035074 -FT0 033666 035074 0 0 000000000001 0 430000035074 -FT1A 033666 035074 0 0 000000000001 0 000000000001 -FT2 033666 035074 0 0 0 0 000000000001 -FT2RQ 033666 035074 0 0 000000000001 0 000000000001 -FT3 033666 035074 0 0 000000000001 0 000000000001 -FT9 033667 035074 0 0 000000000001 0 000000000001 -ET0 033667 035074 0 0 0 0 000000000001 -ST1 033667 035074 0 0 0 0 000000000001 -ST2 033667 035074 0 0 0 0 000000000001 -ST9 033667 035074 0 0 0 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 504 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0720 - -*033667 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 033667 033667 0 0 332000000000 0 0 -IT1 033667 0 0 0 332000000000 0 0 -AT3 033667 0 0 0 0 0 332000000000 -AT6 033667 0 0 0 0 0 332000000000 -FT0 033667 0 0 0 0 0 332000000000 -FT1A 033667 0 0 0 0 0 0 -FT9 033670 0 0 0 0 0 0 -ET0 033671 0 0 0 0 0 0 -ST1A 033671 0 0 0 0 0 0 -ST9 033671 0 0 0 0 0 0 - - -*033671 JUMPA 0,033672 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033671 033671 0 0 324000033672 0 000000033672 -IT1 033671 0 0 0 324000033672 0 000000033672 -AT3 033671 0 0 0 000000033672 0 324000033672 -AT6 033671 033672 0 0 000000033672 0 324000033672 -FT1A 033671 033672 0 0 000000033672 0 000000033672 -FT2 033671 033672 0 0 0 0 000000033672 -FT2RQ 033671 033672 0 0 0 0 000000033672 -FT3 033671 033672 0 0 0 0 000000033672 -FT9 033672 033672 0 0 0 0 000000033672 -ET0 033672 033672 0 0 0 0 000000033672 -ST1A 033672 033672 0 0 0 0 000000033672 -ST9 033672 033672 0 0 0 0 000000033672 - - -*033672 MOVE 0,035075 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 033672 033672 0 0 200000035075 0 000000000002 -IT1 033672 0 0 0 200000035075 0 000000000002 -AT3 033672 0 0 0 000000035075 0 200000035075 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 505 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0721 - -AT6 033672 035075 0 0 000000035075 0 200000035075 -FT0 033672 035075 0 0 000000000002 0 200000035075 -FT1A 033672 035075 0 0 000000000002 0 000000000002 -FT9 033673 035075 0 0 000000000002 0 000000000002 -ET0 033673 035075 0 0 000000000002 0 000000000002 -ST1 033673 035075 0 0 000000000002 0 000000000002 -ST2 033673 035075 0 0 000000000002 0 000000000002 -ST9 033673 035075 0 0 000000000002 0 000000000002 - - -*033673 XOR 0,035075 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000002 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033673 033673 0 0 430000035075 0 000000000002 -IT1 033673 0 0 0 430000035075 0 000000000002 -AT3 033673 0 0 0 000000035075 0 430000035075 -AT6 033673 035075 0 0 000000035075 0 430000035075 -FT0 033673 035075 0 0 000000000002 0 430000035075 -FT1A 033673 035075 0 0 000000000002 0 000000000002 -FT2 033673 035075 0 0 0 0 000000000002 -FT2RQ 033673 035075 0 0 000000000002 0 000000000002 -FT3 033673 035075 0 0 000000000002 0 000000000002 -FT9 033674 035075 0 0 000000000002 0 000000000002 -ET0 033674 035075 0 0 0 0 000000000002 -ST1 033674 035075 0 0 0 0 000000000002 -ST2 033674 035075 0 0 0 0 000000000002 -ST9 033674 035075 0 0 0 0 000000000002 - - -*033674 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 033674 033674 0 0 332000000000 0 0 -IT1 033674 0 0 0 332000000000 0 0 -AT3 033674 0 0 0 0 0 332000000000 -AT6 033674 0 0 0 0 0 332000000000 -FT0 033674 0 0 0 0 0 332000000000 -FT1A 033674 0 0 0 0 0 0 -FT9 033675 0 0 0 0 0 0 -ET0 033676 0 0 0 0 0 0 -ST1A 033676 0 0 0 0 0 0 -ST9 033676 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 506 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0722 - - - -*033676 JUMPA 0,033677 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033676 033676 0 0 324000033677 0 000000033677 -IT1 033676 0 0 0 324000033677 0 000000033677 -AT3 033676 0 0 0 000000033677 0 324000033677 -AT6 033676 033677 0 0 000000033677 0 324000033677 -FT1A 033676 033677 0 0 000000033677 0 000000033677 -FT2 033676 033677 0 0 0 0 000000033677 -FT2RQ 033676 033677 0 0 0 0 000000033677 -FT3 033676 033677 0 0 0 0 000000033677 -FT9 033677 033677 0 0 0 0 000000033677 -ET0 033677 033677 0 0 0 0 000000033677 -ST1A 033677 033677 0 0 0 0 000000033677 -ST9 033677 033677 0 0 0 0 000000033677 - - -*033677 MOVE 0,035076 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 033677 033677 0 0 200000035076 0 000000000004 -IT1 033677 0 0 0 200000035076 0 000000000004 -AT3 033677 0 0 0 000000035076 0 200000035076 -AT6 033677 035076 0 0 000000035076 0 200000035076 -FT0 033677 035076 0 0 000000000004 0 200000035076 -FT1A 033677 035076 0 0 000000000004 0 000000000004 -FT9 0 035076 0 0 000000000004 0 000000000004 -ET0 0 035076 0 0 000000000004 0 000000000004 -ST1 0 035076 0 0 000000000004 0 000000000004 -ST2 0 035076 0 0 000000000004 0 000000000004 -ST9 0 035076 0 0 000000000004 0 000000000004 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 507 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0723 - -*033700 XOR 0,035076 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000004 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 430000035076 0 000000000004 -IT1 0 0 0 0 430000035076 0 000000000004 -AT3 0 0 0 0 000000035076 0 430000035076 -AT6 0 035076 0 0 000000035076 0 430000035076 -FT0 0 035076 0 0 000000000004 0 430000035076 -FT1A 0 035076 0 0 000000000004 0 000000000004 -FT2 0 035076 0 0 0 0 000000000004 -FT2RQ 0 035076 0 0 000000000004 0 000000000004 -FT3 0 035076 0 0 000000000004 0 000000000004 -FT9 033701 035076 0 0 000000000004 0 000000000004 -ET0 033701 035076 0 0 0 0 000000000004 -ST1 033701 035076 0 0 0 0 000000000004 -ST2 033701 035076 0 0 0 0 000000000004 -ST9 033701 035076 0 0 0 0 000000000004 - - -*033701 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 033701 033701 0 0 332000000000 0 0 -IT1 033701 0 0 0 332000000000 0 0 -AT3 033701 0 0 0 0 0 332000000000 -AT6 033701 0 0 0 0 0 332000000000 -FT0 033701 0 0 0 0 0 332000000000 -FT1A 033701 0 0 0 0 0 0 -FT9 033702 0 0 0 0 0 0 -ET0 033703 0 0 0 0 0 0 -ST1A 033703 0 0 0 0 0 0 -ST9 033703 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 508 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0724 - -*033703 JUMPA 0,033704 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033703 033703 0 0 324000033704 0 000000033704 -IT1 033703 0 0 0 324000033704 0 000000033704 -AT3 033703 0 0 0 000000033704 0 324000033704 -AT6 033703 033704 0 0 000000033704 0 324000033704 -FT1A 033703 033704 0 0 000000033704 0 000000033704 -FT2 033703 033704 0 0 0 0 000000033704 -FT2RQ 033703 033704 0 0 0 0 000000033704 -FT3 033703 033704 0 0 0 0 000000033704 -FT9 033704 033704 0 0 0 0 000000033704 -ET0 033704 033704 0 0 0 0 000000033704 -ST1A 033704 033704 0 0 0 0 000000033704 -ST9 033704 033704 0 0 0 0 000000033704 - - -*033704 MOVE 0,035077 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 033704 033704 0 0 200000035077 0 000000000010 -IT1 033704 0 0 0 200000035077 0 000000000010 -AT3 033704 0 0 0 000000035077 0 200000035077 -AT6 033704 035077 0 0 000000035077 0 200000035077 -FT0 033704 035077 0 0 000000000010 0 200000035077 -FT1A 033704 035077 0 0 000000000010 0 000000000010 -FT9 033705 035077 0 0 000000000010 0 000000000010 -ET0 033705 035077 0 0 000000000010 0 000000000010 -ST1 033705 035077 0 0 000000000010 0 000000000010 -ST2 033705 035077 0 0 000000000010 0 000000000010 -ST9 033705 035077 0 0 000000000010 0 000000000010 - - -*033705 XOR 0,035077 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000010 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033705 033705 0 0 430000035077 0 000000000010 -IT1 033705 0 0 0 430000035077 0 000000000010 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 509 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0725 - -AT3 033705 0 0 0 000000035077 0 430000035077 -AT6 033705 035077 0 0 000000035077 0 430000035077 -FT0 033705 035077 0 0 000000000010 0 430000035077 -FT1A 033705 035077 0 0 000000000010 0 000000000010 -FT2 033705 035077 0 0 0 0 000000000010 -FT2RQ 033705 035077 0 0 000000000010 0 000000000010 -FT3 033705 035077 0 0 000000000010 0 000000000010 -FT9 033706 035077 0 0 000000000010 0 000000000010 -ET0 033706 035077 0 0 0 0 000000000010 -ST1 033706 035077 0 0 0 0 000000000010 -ST2 033706 035077 0 0 0 0 000000000010 -ST9 033706 035077 0 0 0 0 000000000010 - - -*033706 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 033706 033706 0 0 332000000000 0 0 -IT1 033706 0 0 0 332000000000 0 0 -AT3 033706 0 0 0 0 0 332000000000 -AT6 033706 0 0 0 0 0 332000000000 -FT0 033706 0 0 0 0 0 332000000000 -FT1A 033706 0 0 0 0 0 0 -FT9 033707 0 0 0 0 0 0 -ET0 033710 0 0 0 0 0 0 -ST1A 033710 0 0 0 0 0 0 -ST9 033710 0 0 0 0 0 0 - - -*033710 JUMPA 0,033711 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033710 033710 0 0 324000033711 0 000000033711 -IT1 033710 0 0 0 324000033711 0 000000033711 -AT3 033710 0 0 0 000000033711 0 324000033711 -AT6 033710 033711 0 0 000000033711 0 324000033711 -FT1A 033710 033711 0 0 000000033711 0 000000033711 -FT2 033710 033711 0 0 0 0 000000033711 -FT2RQ 033710 033711 0 0 0 0 000000033711 -FT3 033710 033711 0 0 0 0 000000033711 -FT9 033711 033711 0 0 0 0 000000033711 -ET0 033711 033711 0 0 0 0 000000033711 -ST1A 033711 033711 0 0 0 0 000000033711 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 510 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0726 - -ST9 033711 033711 0 0 0 0 000000033711 - - -*033711 MOVE 0,035100 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000020 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 033711 033711 0 0 200000035100 0 000000000020 -IT1 033711 0 0 0 200000035100 0 000000000020 -AT3 033711 0 0 0 000000035100 0 200000035100 -AT6 033711 0 0 0 000000035100 0 200000035100 -FT0 033711 0 0 0 000000000020 0 200000035100 -FT1A 033711 0 0 0 000000000020 0 000000000020 -FT9 033712 0 0 0 000000000020 0 000000000020 -ET0 033712 0 0 0 000000000020 0 000000000020 -ST1 033712 0 0 0 000000000020 0 000000000020 -ST2 033712 0 0 0 000000000020 0 000000000020 -ST9 033712 0 0 0 000000000020 0 000000000020 - - -*033712 XOR 0,035100 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000020 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033712 033712 0 0 430000035100 0 000000000020 -IT1 033712 0 0 0 430000035100 0 000000000020 -AT3 033712 0 0 0 000000035100 0 430000035100 -AT6 033712 0 0 0 000000035100 0 430000035100 -FT0 033712 0 0 0 000000000020 0 430000035100 -FT1A 033712 0 0 0 000000000020 0 000000000020 -FT2 033712 0 0 0 0 0 000000000020 -FT2RQ 033712 0 0 0 000000000020 0 000000000020 -FT3 033712 0 0 0 000000000020 0 000000000020 -FT9 033713 0 0 0 000000000020 0 000000000020 -ET0 033713 0 0 0 0 0 000000000020 -ST1 033713 0 0 0 0 0 000000000020 -ST2 033713 0 0 0 0 0 000000000020 -ST9 033713 0 0 0 0 0 000000000020 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 511 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0727 - -*033713 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 033713 033713 0 0 332000000000 0 0 -IT1 033713 0 0 0 332000000000 0 0 -AT3 033713 0 0 0 0 0 332000000000 -AT6 033713 0 0 0 0 0 332000000000 -FT0 033713 0 0 0 0 0 332000000000 -FT1A 033713 0 0 0 0 0 0 -FT9 033714 0 0 0 0 0 0 -ET0 033715 0 0 0 0 0 0 -ST1A 033715 0 0 0 0 0 0 -ST9 033715 0 0 0 0 0 0 - - -*033715 JUMPA 0,033716 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033715 033715 0 0 324000033716 0 000000033716 -IT1 033715 0 0 0 324000033716 0 000000033716 -AT3 033715 0 0 0 000000033716 0 324000033716 -AT6 033715 033716 0 0 000000033716 0 324000033716 -FT1A 033715 033716 0 0 000000033716 0 000000033716 -FT2 033715 033716 0 0 0 0 000000033716 -FT2RQ 033715 033716 0 0 0 0 000000033716 -FT3 033715 033716 0 0 0 0 000000033716 -FT9 033716 033716 0 0 0 0 000000033716 -ET0 033716 033716 0 0 0 0 000000033716 -ST1A 033716 033716 0 0 0 0 000000033716 -ST9 033716 033716 0 0 0 0 000000033716 - - -*033716 MOVE 0,035101 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000040 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 033716 033716 0 0 200000035101 0 000000000040 -IT1 033716 0 0 0 200000035101 0 000000000040 -AT3 033716 0 0 0 000000035101 0 200000035101 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 512 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0728 - -AT6 033716 035101 0 0 000000035101 0 200000035101 -FT0 033716 035101 0 0 000000000040 0 200000035101 -FT1A 033716 035101 0 0 000000000040 0 000000000040 -FT9 033717 035101 0 0 000000000040 0 000000000040 -ET0 033717 035101 0 0 000000000040 0 000000000040 -ST1 033717 035101 0 0 000000000040 0 000000000040 -ST2 033717 035101 0 0 000000000040 0 000000000040 -ST9 033717 035101 0 0 000000000040 0 000000000040 - - -*033717 XOR 0,035101 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000040 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033717 033717 0 0 430000035101 0 000000000040 -IT1 033717 0 0 0 430000035101 0 000000000040 -AT3 033717 0 0 0 000000035101 0 430000035101 -AT6 033717 035101 0 0 000000035101 0 430000035101 -FT0 033717 035101 0 0 000000000040 0 430000035101 -FT1A 033717 035101 0 0 000000000040 0 000000000040 -FT2 033717 035101 0 0 0 0 000000000040 -FT2RQ 033717 035101 0 0 000000000040 0 000000000040 -FT3 033717 035101 0 0 000000000040 0 000000000040 -FT9 033720 035101 0 0 000000000040 0 000000000040 -ET0 033720 035101 0 0 0 0 000000000040 -ST1 033720 035101 0 0 0 0 000000000040 -ST2 033720 035101 0 0 0 0 000000000040 -ST9 033720 035101 0 0 0 0 000000000040 - - -*033720 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 033720 033720 0 0 332000000000 0 0 -IT1 033720 0 0 0 332000000000 0 0 -AT3 033720 0 0 0 0 0 332000000000 -AT6 033720 0 0 0 0 0 332000000000 -FT0 033720 0 0 0 0 0 332000000000 -FT1A 033720 0 0 0 0 0 0 -FT9 033721 0 0 0 0 0 0 -ET0 033722 0 0 0 0 0 0 -ST1A 033722 0 0 0 0 0 0 -ST9 033722 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 513 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0729 - - - -*033722 JUMPA 0,033723 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033722 033722 0 0 324000033723 0 000000033723 -IT1 033722 0 0 0 324000033723 0 000000033723 -AT3 033722 0 0 0 000000033723 0 324000033723 -AT6 033722 033723 0 0 000000033723 0 324000033723 -FT1A 033722 033723 0 0 000000033723 0 000000033723 -FT2 033722 033723 0 0 0 0 000000033723 -FT2RQ 033722 033723 0 0 0 0 000000033723 -FT3 033722 033723 0 0 0 0 000000033723 -FT9 033723 033723 0 0 0 0 000000033723 -ET0 033723 033723 0 0 0 0 000000033723 -ST1A 033723 033723 0 0 0 0 000000033723 -ST9 033723 033723 0 0 0 0 000000033723 - - -*033723 MOVE 0,035102 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000100 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 033723 033723 0 0 200000035102 0 000000000100 -IT1 033723 0 0 0 200000035102 0 000000000100 -AT3 033723 0 0 0 000000035102 0 200000035102 -AT6 033723 035102 0 0 000000035102 0 200000035102 -FT0 033723 035102 0 0 000000000100 0 200000035102 -FT1A 033723 035102 0 0 000000000100 0 000000000100 -FT9 033724 035102 0 0 000000000100 0 000000000100 -ET0 033724 035102 0 0 000000000100 0 000000000100 -ST1 033724 035102 0 0 000000000100 0 000000000100 -ST2 033724 035102 0 0 000000000100 0 000000000100 -ST9 033724 035102 0 0 000000000100 0 000000000100 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 514 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0730 - -*033724 XOR 0,035102 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000100 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033724 033724 0 0 430000035102 0 000000000100 -IT1 033724 0 0 0 430000035102 0 000000000100 -AT3 033724 0 0 0 000000035102 0 430000035102 -AT6 033724 035102 0 0 000000035102 0 430000035102 -FT0 033724 035102 0 0 000000000100 0 430000035102 -FT1A 033724 035102 0 0 000000000100 0 000000000100 -FT2 033724 035102 0 0 0 0 000000000100 -FT2RQ 033724 035102 0 0 000000000100 0 000000000100 -FT3 033724 035102 0 0 000000000100 0 000000000100 -FT9 033725 035102 0 0 000000000100 0 000000000100 -ET0 033725 035102 0 0 0 0 000000000100 -ST1 033725 035102 0 0 0 0 000000000100 -ST2 033725 035102 0 0 0 0 000000000100 -ST9 033725 035102 0 0 0 0 000000000100 - - -*033725 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 033725 033725 0 0 332000000000 0 0 -IT1 033725 0 0 0 332000000000 0 0 -AT3 033725 0 0 0 0 0 332000000000 -AT6 033725 0 0 0 0 0 332000000000 -FT0 033725 0 0 0 0 0 332000000000 -FT1A 033725 0 0 0 0 0 0 -FT9 033726 0 0 0 0 0 0 -ET0 033727 0 0 0 0 0 0 -ST1A 033727 0 0 0 0 0 0 -ST9 033727 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 515 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0731 - -*033727 JUMPA 0,033730 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033727 033727 0 0 324000033730 0 000000033730 -IT1 033727 0 0 0 324000033730 0 000000033730 -AT3 033727 0 0 0 000000033730 0 324000033730 -AT6 033727 033730 0 0 000000033730 0 324000033730 -FT1A 033727 033730 0 0 000000033730 0 000000033730 -FT2 033727 033730 0 0 0 0 000000033730 -FT2RQ 033727 033730 0 0 0 0 000000033730 -FT3 033727 033730 0 0 0 0 000000033730 -FT9 033730 033730 0 0 0 0 000000033730 -ET0 033730 033730 0 0 0 0 000000033730 -ST1A 033730 033730 0 0 0 0 000000033730 -ST9 033730 033730 0 0 0 0 000000033730 - - -*033730 MOVE 0,035103 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000200 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 033730 033730 0 0 200000035103 0 000000000200 -IT1 033730 0 0 0 200000035103 0 000000000200 -AT3 033730 0 0 0 000000035103 0 200000035103 -AT6 033730 035103 0 0 000000035103 0 200000035103 -FT0 033730 035103 0 0 000000000200 0 200000035103 -FT1A 033730 035103 0 0 000000000200 0 000000000200 -FT9 033731 035103 0 0 000000000200 0 000000000200 -ET0 033731 035103 0 0 000000000200 0 000000000200 -ST1 033731 035103 0 0 000000000200 0 000000000200 -ST2 033731 035103 0 0 000000000200 0 000000000200 -ST9 033731 035103 0 0 000000000200 0 000000000200 - - -*033731 XOR 0,035103 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000200 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033731 033731 0 0 430000035103 0 000000000200 -IT1 033731 0 0 0 430000035103 0 000000000200 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 516 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0732 - -AT3 033731 0 0 0 000000035103 0 430000035103 -AT6 033731 035103 0 0 000000035103 0 430000035103 -FT0 033731 035103 0 0 000000000200 0 430000035103 -FT1A 033731 035103 0 0 000000000200 0 000000000200 -FT2 033731 035103 0 0 0 0 000000000200 -FT2RQ 033731 035103 0 0 000000000200 0 000000000200 -FT3 033731 035103 0 0 000000000200 0 000000000200 -FT9 033732 035103 0 0 000000000200 0 000000000200 -ET0 033732 035103 0 0 0 0 000000000200 -ST1 033732 035103 0 0 0 0 000000000200 -ST2 033732 035103 0 0 0 0 000000000200 -ST9 033732 035103 0 0 0 0 000000000200 - - -*033732 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 033732 033732 0 0 332000000000 0 0 -IT1 033732 0 0 0 332000000000 0 0 -AT3 033732 0 0 0 0 0 332000000000 -AT6 033732 0 0 0 0 0 332000000000 -FT0 033732 0 0 0 0 0 332000000000 -FT1A 033732 0 0 0 0 0 0 -FT9 033733 0 0 0 0 0 0 -ET0 033734 0 0 0 0 0 0 -ST1A 033734 0 0 0 0 0 0 -ST9 033734 0 0 0 0 0 0 - - -*033734 JUMPA 0,033735 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033734 033734 0 0 324000033735 0 000000033735 -IT1 033734 0 0 0 324000033735 0 000000033735 -AT3 033734 0 0 0 000000033735 0 324000033735 -AT6 033734 033735 0 0 000000033735 0 324000033735 -FT1A 033734 033735 0 0 000000033735 0 000000033735 -FT2 033734 033735 0 0 0 0 000000033735 -FT2RQ 033734 033735 0 0 0 0 000000033735 -FT3 033734 033735 0 0 0 0 000000033735 -FT9 033735 033735 0 0 0 0 000000033735 -ET0 033735 033735 0 0 0 0 000000033735 -ST1A 033735 033735 0 0 0 0 000000033735 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 517 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0733 - -ST9 033735 033735 0 0 0 0 000000033735 - - -*033735 MOVE 0,035104 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000400 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 033735 033735 0 0 200000035104 0 000000000400 -IT1 033735 0 0 0 200000035104 0 000000000400 -AT3 033735 0 0 0 000000035104 0 200000035104 -AT6 033735 035104 0 0 000000035104 0 200000035104 -FT0 033735 035104 0 0 000000000400 0 200000035104 -FT1A 033735 035104 0 0 000000000400 0 000000000400 -FT9 033736 035104 0 0 000000000400 0 000000000400 -ET0 033736 035104 0 0 000000000400 0 000000000400 -ST1 033736 035104 0 0 000000000400 0 000000000400 -ST2 033736 035104 0 0 000000000400 0 000000000400 -ST9 033736 035104 0 0 000000000400 0 000000000400 - - -*033736 XOR 0,035104 -INITIAL -C(AC)=000000 000400 -C(E)=000000 000400 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033736 033736 0 0 430000035104 0 000000000400 -IT1 033736 0 0 0 430000035104 0 000000000400 -AT3 033736 0 0 0 000000035104 0 430000035104 -AT6 033736 035104 0 0 000000035104 0 430000035104 -FT0 033736 035104 0 0 000000000400 0 430000035104 -FT1A 033736 035104 0 0 000000000400 0 000000000400 -FT2 033736 035104 0 0 0 0 000000000400 -FT2RQ 033736 035104 0 0 000000000400 0 000000000400 -FT3 033736 035104 0 0 000000000400 0 000000000400 -FT9 033737 035104 0 0 000000000400 0 000000000400 -ET0 033737 035104 0 0 0 0 000000000400 -ST1 033737 035104 0 0 0 0 000000000400 -ST2 033737 035104 0 0 0 0 000000000400 -ST9 033737 035104 0 0 0 0 000000000400 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 518 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0734 - -*033737 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 033737 033737 0 0 332000000000 0 0 -IT1 033737 0 0 0 332000000000 0 0 -AT3 033737 0 0 0 0 0 332000000000 -AT6 033737 0 0 0 0 0 332000000000 -FT0 033737 0 0 0 0 0 332000000000 -FT1A 033737 0 0 0 0 0 0 -FT9 033740 0 0 0 0 0 0 -ET0 033741 0 0 0 0 0 0 -ST1A 033741 0 0 0 0 0 0 -ST9 033741 0 0 0 0 0 0 - - -*033741 JUMPA 0,033742 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033741 033741 0 0 324000033742 0 000000033742 -IT1 033741 0 0 0 324000033742 0 000000033742 -AT3 033741 0 0 0 000000033742 0 324000033742 -AT6 033741 033742 0 0 000000033742 0 324000033742 -FT1A 033741 033742 0 0 000000033742 0 000000033742 -FT2 033741 033742 0 0 0 0 000000033742 -FT2RQ 033741 033742 0 0 0 0 000000033742 -FT3 033741 033742 0 0 0 0 000000033742 -FT9 033742 033742 0 0 0 0 000000033742 -ET0 033742 033742 0 0 0 0 000000033742 -ST1A 033742 033742 0 0 0 0 000000033742 -ST9 033742 033742 0 0 0 0 000000033742 - - -*033742 MOVE 0,035105 -INITIAL -C(AC)=000000 000000 -C(E)=000000 001000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 033742 033742 0 0 200000035105 0 000000001000 -IT1 033742 0 0 0 200000035105 0 000000001000 -AT3 033742 0 0 0 000000035105 0 200000035105 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 519 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0735 - -AT6 033742 035105 0 0 000000035105 0 200000035105 -FT0 033742 035105 0 0 000000001000 0 200000035105 -FT1A 033742 035105 0 0 000000001000 0 000000001000 -FT9 033743 035105 0 0 000000001000 0 000000001000 -ET0 033743 035105 0 0 000000001000 0 000000001000 -ST1 033743 035105 0 0 000000001000 0 000000001000 -ST2 033743 035105 0 0 000000001000 0 000000001000 -ST9 033743 035105 0 0 000000001000 0 000000001000 - - -*033743 XOR 0,035105 -INITIAL -C(AC)=000000 001000 -C(E)=000000 001000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033743 033743 0 0 430000035105 0 000000001000 -IT1 033743 0 0 0 430000035105 0 000000001000 -AT3 033743 0 0 0 000000035105 0 430000035105 -AT6 033743 035105 0 0 000000035105 0 430000035105 -FT0 033743 035105 0 0 000000001000 0 430000035105 -FT1A 033743 035105 0 0 000000001000 0 000000001000 -FT2 033743 035105 0 0 0 0 000000001000 -FT2RQ 033743 035105 0 0 000000001000 0 000000001000 -FT3 033743 035105 0 0 000000001000 0 000000001000 -FT9 033744 035105 0 0 000000001000 0 000000001000 -ET0 033744 035105 0 0 0 0 000000001000 -ST1 033744 035105 0 0 0 0 000000001000 -ST2 033744 035105 0 0 0 0 000000001000 -ST9 033744 035105 0 0 0 0 000000001000 - - -*033744 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 033744 033744 0 0 332000000000 0 0 -IT1 033744 0 0 0 332000000000 0 0 -AT3 033744 0 0 0 0 0 332000000000 -AT6 033744 0 0 0 0 0 332000000000 -FT0 033744 0 0 0 0 0 332000000000 -FT1A 033744 0 0 0 0 0 0 -FT9 033745 0 0 0 0 0 0 -ET0 033746 0 0 0 0 0 0 -ST1A 033746 0 0 0 0 0 0 -ST9 033746 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 520 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0736 - - - -*033746 JUMPA 0,033747 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033746 033746 0 0 324000033747 0 000000033747 -IT1 033746 0 0 0 324000033747 0 000000033747 -AT3 033746 0 0 0 000000033747 0 324000033747 -AT6 033746 033747 0 0 000000033747 0 324000033747 -FT1A 033746 033747 0 0 000000033747 0 000000033747 -FT2 033746 033747 0 0 0 0 000000033747 -FT2RQ 033746 033747 0 0 0 0 000000033747 -FT3 033746 033747 0 0 0 0 000000033747 -FT9 033747 033747 0 0 0 0 000000033747 -ET0 033747 033747 0 0 0 0 000000033747 -ST1A 033747 033747 0 0 0 0 000000033747 -ST9 033747 033747 0 0 0 0 000000033747 - - -*033747 MOVE 0,035106 -INITIAL -C(AC)=000000 000000 -C(E)=000000 002000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 033747 033747 0 0 200000035106 0 000000002000 -IT1 033747 0 0 0 200000035106 0 000000002000 -AT3 033747 0 0 0 000000035106 0 200000035106 -AT6 033747 035106 0 0 000000035106 0 200000035106 -FT0 033747 035106 0 0 000000002000 0 200000035106 -FT1A 033747 035106 0 0 000000002000 0 000000002000 -FT9 033750 035106 0 0 000000002000 0 000000002000 -ET0 033750 035106 0 0 000000002000 0 000000002000 -ST1 033750 035106 0 0 000000002000 0 000000002000 -ST2 033750 035106 0 0 000000002000 0 000000002000 -ST9 033750 035106 0 0 000000002000 0 000000002000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 521 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0737 - -*033750 XOR 0,035106 -INITIAL -C(AC)=000000 002000 -C(E)=000000 002000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033750 033750 0 0 430000035106 0 000000002000 -IT1 033750 0 0 0 430000035106 0 000000002000 -AT3 033750 0 0 0 000000035106 0 430000035106 -AT6 033750 035106 0 0 000000035106 0 430000035106 -FT0 033750 035106 0 0 000000002000 0 430000035106 -FT1A 033750 035106 0 0 000000002000 0 000000002000 -FT2 033750 035106 0 0 0 0 000000002000 -FT2RQ 033750 035106 0 0 000000002000 0 000000002000 -FT3 033750 035106 0 0 000000002000 0 000000002000 -FT9 033751 035106 0 0 000000002000 0 000000002000 -ET0 033751 035106 0 0 0 0 000000002000 -ST1 033751 035106 0 0 0 0 000000002000 -ST2 033751 035106 0 0 0 0 000000002000 -ST9 033751 035106 0 0 0 0 000000002000 - - -*033751 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 033751 033751 0 0 332000000000 0 0 -IT1 033751 0 0 0 332000000000 0 0 -AT3 033751 0 0 0 0 0 332000000000 -AT6 033751 0 0 0 0 0 332000000000 -FT0 033751 0 0 0 0 0 332000000000 -FT1A 033751 0 0 0 0 0 0 -FT9 033752 0 0 0 0 0 0 -ET0 033753 0 0 0 0 0 0 -ST1A 033753 0 0 0 0 0 0 -ST9 033753 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 522 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0738 - -*033753 JUMPA 0,033754 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033753 033753 0 0 324000033754 0 000000033754 -IT1 033753 0 0 0 324000033754 0 000000033754 -AT3 033753 0 0 0 000000033754 0 324000033754 -AT6 033753 033754 0 0 000000033754 0 324000033754 -FT1A 033753 033754 0 0 000000033754 0 000000033754 -FT2 033753 033754 0 0 0 0 000000033754 -FT2RQ 033753 033754 0 0 0 0 000000033754 -FT3 033753 033754 0 0 0 0 000000033754 -FT9 033754 033754 0 0 0 0 000000033754 -ET0 033754 033754 0 0 0 0 000000033754 -ST1A 033754 033754 0 0 0 0 000000033754 -ST9 033754 033754 0 0 0 0 000000033754 - - -*033754 MOVE 0,035107 -INITIAL -C(AC)=000000 000000 -C(E)=000000 004000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 033754 033754 0 0 200000035107 0 000000004000 -IT1 033754 0 0 0 200000035107 0 000000004000 -AT3 033754 0 0 0 000000035107 0 200000035107 -AT6 033754 035107 0 0 000000035107 0 200000035107 -FT0 033754 035107 0 0 000000004000 0 200000035107 -FT1A 033754 035107 0 0 000000004000 0 000000004000 -FT9 033755 035107 0 0 000000004000 0 000000004000 -ET0 033755 035107 0 0 000000004000 0 000000004000 -ST1 033755 035107 0 0 000000004000 0 000000004000 -ST2 033755 035107 0 0 000000004000 0 000000004000 -ST9 033755 035107 0 0 000000004000 0 000000004000 - - -*033755 XOR 0,035107 -INITIAL -C(AC)=000000 004000 -C(E)=000000 004000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033755 033755 0 0 430000035107 0 000000004000 -IT1 033755 0 0 0 430000035107 0 000000004000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 523 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0739 - -AT3 033755 0 0 0 000000035107 0 430000035107 -AT6 033755 035107 0 0 000000035107 0 430000035107 -FT0 033755 035107 0 0 000000004000 0 430000035107 -FT1A 033755 035107 0 0 000000004000 0 000000004000 -FT2 033755 035107 0 0 0 0 000000004000 -FT2RQ 033755 035107 0 0 000000004000 0 000000004000 -FT3 033755 035107 0 0 000000004000 0 000000004000 -FT9 033756 035107 0 0 000000004000 0 000000004000 -ET0 033756 035107 0 0 0 0 000000004000 -ST1 033756 035107 0 0 0 0 000000004000 -ST2 033756 035107 0 0 0 0 000000004000 -ST9 033756 035107 0 0 0 0 000000004000 - - -*033756 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 033756 033756 0 0 332000000000 0 0 -IT1 033756 0 0 0 332000000000 0 0 -AT3 033756 0 0 0 0 0 332000000000 -AT6 033756 0 0 0 0 0 332000000000 -FT0 033756 0 0 0 0 0 332000000000 -FT1A 033756 0 0 0 0 0 0 -FT9 033757 0 0 0 0 0 0 -ET0 033760 0 0 0 0 0 0 -ST1A 033760 0 0 0 0 0 0 -ST9 033760 0 0 0 0 0 0 - - -*033760 JUMPA 0,033761 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033760 033760 0 0 324000033761 0 000000033761 -IT1 033760 0 0 0 324000033761 0 000000033761 -AT3 033760 0 0 0 000000033761 0 324000033761 -AT6 033760 033761 0 0 000000033761 0 324000033761 -FT1A 033760 033761 0 0 000000033761 0 000000033761 -FT2 033760 033761 0 0 0 0 000000033761 -FT2RQ 033760 033761 0 0 0 0 000000033761 -FT3 033760 033761 0 0 0 0 000000033761 -FT9 033761 033761 0 0 0 0 000000033761 -ET0 033761 033761 0 0 0 0 000000033761 -ST1A 033761 033761 0 0 0 0 000000033761 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 524 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0740 - -ST9 033761 033761 0 0 0 0 000000033761 - - -*033761 MOVE 0,035110 -INITIAL -C(AC)=000000 000000 -C(E)=000000 010000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 033761 033761 0 0 200000035110 0 000000010000 -IT1 033761 0 0 0 200000035110 0 000000010000 -AT3 033761 0 0 0 000000035110 0 200000035110 -AT6 033761 035110 0 0 000000035110 0 200000035110 -FT0 033761 035110 0 0 000000010000 0 200000035110 -FT1A 033761 035110 0 0 000000010000 0 000000010000 -FT9 033762 035110 0 0 000000010000 0 000000010000 -ET0 033762 035110 0 0 000000010000 0 000000010000 -ST1 033762 035110 0 0 000000010000 0 000000010000 -ST2 033762 035110 0 0 000000010000 0 000000010000 -ST9 033762 035110 0 0 000000010000 0 000000010000 - - -*033762 XOR 0,035110 -INITIAL -C(AC)=000000 010000 -C(E)=000000 010000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033762 033762 0 0 430000035110 0 000000010000 -IT1 033762 0 0 0 430000035110 0 000000010000 -AT3 033762 0 0 0 000000035110 0 430000035110 -AT6 033762 035110 0 0 000000035110 0 430000035110 -FT0 033762 035110 0 0 000000010000 0 430000035110 -FT1A 033762 035110 0 0 000000010000 0 000000010000 -FT2 033762 035110 0 0 0 0 000000010000 -FT2RQ 033762 035110 0 0 000000010000 0 000000010000 -FT3 033762 035110 0 0 000000010000 0 000000010000 -FT9 033763 035110 0 0 000000010000 0 000000010000 -ET0 033763 035110 0 0 0 0 000000010000 -ST1 033763 035110 0 0 0 0 000000010000 -ST2 033763 035110 0 0 0 0 000000010000 -ST9 033763 035110 0 0 0 0 000000010000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 525 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0741 - -*033763 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 033763 033763 0 0 332000000000 0 0 -IT1 033763 0 0 0 332000000000 0 0 -AT3 033763 0 0 0 0 0 332000000000 -AT6 033763 0 0 0 0 0 332000000000 -FT0 033763 0 0 0 0 0 332000000000 -FT1A 033763 0 0 0 0 0 0 -FT9 033764 0 0 0 0 0 0 -ET0 033765 0 0 0 0 0 0 -ST1A 033765 0 0 0 0 0 0 -ST9 033765 0 0 0 0 0 0 - - -*033765 JUMPA 0,033766 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033765 033765 0 0 324000033766 0 000000033766 -IT1 033765 0 0 0 324000033766 0 000000033766 -AT3 033765 0 0 0 000000033766 0 324000033766 -AT6 033765 033766 0 0 000000033766 0 324000033766 -FT1A 033765 033766 0 0 000000033766 0 000000033766 -FT2 033765 033766 0 0 0 0 000000033766 -FT2RQ 033765 033766 0 0 0 0 000000033766 -FT3 033765 033766 0 0 0 0 000000033766 -FT9 033766 033766 0 0 0 0 000000033766 -ET0 033766 033766 0 0 0 0 000000033766 -ST1A 033766 033766 0 0 0 0 000000033766 -ST9 033766 033766 0 0 0 0 000000033766 - - -*033766 MOVE 0,035111 -INITIAL -C(AC)=000000 000000 -C(E)=000000 020000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 033766 033766 0 0 200000035111 0 000000020000 -IT1 033766 0 0 0 200000035111 0 000000020000 -AT3 033766 0 0 0 000000035111 0 200000035111 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 526 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0742 - -AT6 033766 035111 0 0 000000035111 0 200000035111 -FT0 033766 035111 0 0 000000020000 0 200000035111 -FT1A 033766 035111 0 0 000000020000 0 000000020000 -FT9 033767 035111 0 0 000000020000 0 000000020000 -ET0 033767 035111 0 0 000000020000 0 000000020000 -ST1 033767 035111 0 0 000000020000 0 000000020000 -ST2 033767 035111 0 0 000000020000 0 000000020000 -ST9 033767 035111 0 0 000000020000 0 000000020000 - - -*033767 XOR 0,035111 -INITIAL -C(AC)=000000 020000 -C(E)=000000 020000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033767 033767 0 0 430000035111 0 000000020000 -IT1 033767 0 0 0 430000035111 0 000000020000 -AT3 033767 0 0 0 000000035111 0 430000035111 -AT6 033767 035111 0 0 000000035111 0 430000035111 -FT0 033767 035111 0 0 000000020000 0 430000035111 -FT1A 033767 035111 0 0 000000020000 0 000000020000 -FT2 033767 035111 0 0 0 0 000000020000 -FT2RQ 033767 035111 0 0 000000020000 0 000000020000 -FT3 033767 035111 0 0 000000020000 0 000000020000 -FT9 033770 035111 0 0 000000020000 0 000000020000 -ET0 033770 035111 0 0 0 0 000000020000 -ST1 033770 035111 0 0 0 0 000000020000 -ST2 033770 035111 0 0 0 0 000000020000 -ST9 033770 035111 0 0 0 0 000000020000 - - -*033770 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 033770 033770 0 0 332000000000 0 0 -IT1 033770 0 0 0 332000000000 0 0 -AT3 033770 0 0 0 0 0 332000000000 -AT6 033770 0 0 0 0 0 332000000000 -FT0 033770 0 0 0 0 0 332000000000 -FT1A 033770 0 0 0 0 0 0 -FT9 033771 0 0 0 0 0 0 -ET0 033772 0 0 0 0 0 0 -ST1A 033772 0 0 0 0 0 0 -ST9 033772 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 527 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0743 - - - -*033772 JUMPA 0,033773 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033772 033772 0 0 324000033773 0 000000033773 -IT1 033772 0 0 0 324000033773 0 000000033773 -AT3 033772 0 0 0 000000033773 0 324000033773 -AT6 033772 033773 0 0 000000033773 0 324000033773 -FT1A 033772 033773 0 0 000000033773 0 000000033773 -FT2 033772 033773 0 0 0 0 000000033773 -FT2RQ 033772 033773 0 0 0 0 000000033773 -FT3 033772 033773 0 0 0 0 000000033773 -FT9 033773 033773 0 0 0 0 000000033773 -ET0 033773 033773 0 0 0 0 000000033773 -ST1A 033773 033773 0 0 0 0 000000033773 -ST9 033773 033773 0 0 0 0 000000033773 - - -*033773 MOVE 0,035112 -INITIAL -C(AC)=000000 000000 -C(E)=000000 040000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 033773 033773 0 0 200000035112 0 000000040000 -IT1 033773 0 0 0 200000035112 0 000000040000 -AT3 033773 0 0 0 000000035112 0 200000035112 -AT6 033773 035112 0 0 000000035112 0 200000035112 -FT0 033773 035112 0 0 000000040000 0 200000035112 -FT1A 033773 035112 0 0 000000040000 0 000000040000 -FT9 033774 035112 0 0 000000040000 0 000000040000 -ET0 033774 035112 0 0 000000040000 0 000000040000 -ST1 033774 035112 0 0 000000040000 0 000000040000 -ST2 033774 035112 0 0 000000040000 0 000000040000 -ST9 033774 035112 0 0 000000040000 0 000000040000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 528 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0744 - -*033774 XOR 0,035112 -INITIAL -C(AC)=000000 040000 -C(E)=000000 040000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033774 033774 0 0 430000035112 0 000000040000 -IT1 033774 0 0 0 430000035112 0 000000040000 -AT3 033774 0 0 0 000000035112 0 430000035112 -AT6 033774 035112 0 0 000000035112 0 430000035112 -FT0 033774 035112 0 0 000000040000 0 430000035112 -FT1A 033774 035112 0 0 000000040000 0 000000040000 -FT2 033774 035112 0 0 0 0 000000040000 -FT2RQ 033774 035112 0 0 000000040000 0 000000040000 -FT3 033774 035112 0 0 000000040000 0 000000040000 -FT9 033775 035112 0 0 000000040000 0 000000040000 -ET0 033775 035112 0 0 0 0 000000040000 -ST1 033775 035112 0 0 0 0 000000040000 -ST2 033775 035112 0 0 0 0 000000040000 -ST9 033775 035112 0 0 0 0 000000040000 - - -*033775 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 033775 033775 0 0 332000000000 0 0 -IT1 033775 0 0 0 332000000000 0 0 -AT3 033775 0 0 0 0 0 332000000000 -AT6 033775 0 0 0 0 0 332000000000 -FT0 033775 0 0 0 0 0 332000000000 -FT1A 033775 0 0 0 0 0 0 -FT9 033776 0 0 0 0 0 0 -ET0 033777 0 0 0 0 0 0 -ST1A 033777 0 0 0 0 0 0 -ST9 033777 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 529 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0745 - -*033777 JUMPA 0,034000 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033777 033777 0 0 324000034000 0 000000034000 -IT1 033777 0 0 0 324000034000 0 000000034000 -AT3 033777 0 0 0 000000034000 0 324000034000 -AT6 033777 0 0 0 000000034000 0 324000034000 -FT1A 033777 0 0 0 000000034000 0 000000034000 -FT2 033777 0 0 0 0 0 000000034000 -FT2RQ 033777 0 0 0 0 0 000000034000 -FT3 033777 0 0 0 0 0 000000034000 -FT9 0 0 0 0 0 0 000000034000 -ET0 0 0 0 0 0 0 000000034000 -ST1A 0 0 0 0 0 0 000000034000 -ST9 0 0 0 0 0 0 000000034000 - - -*034000 MOVE 0,035113 -INITIAL -C(AC)=000000 000000 -C(E)=000000 100000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 200000035113 0 000000100000 -IT1 0 0 0 0 200000035113 0 000000100000 -AT3 0 0 0 0 000000035113 0 200000035113 -AT6 0 035113 0 0 000000035113 0 200000035113 -FT0 0 035113 0 0 000000100000 0 200000035113 -FT1A 0 035113 0 0 000000100000 0 000000100000 -FT9 034001 035113 0 0 000000100000 0 000000100000 -ET0 034001 035113 0 0 000000100000 0 000000100000 -ST1 034001 035113 0 0 000000100000 0 000000100000 -ST2 034001 035113 0 0 000000100000 0 000000100000 -ST9 034001 035113 0 0 000000100000 0 000000100000 - - -*034001 XOR 0,035113 -INITIAL -C(AC)=000000 100000 -C(E)=000000 100000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034001 034001 0 0 430000035113 0 000000100000 -IT1 034001 0 0 0 430000035113 0 000000100000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 530 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0746 - -AT3 034001 0 0 0 000000035113 0 430000035113 -AT6 034001 035113 0 0 000000035113 0 430000035113 -FT0 034001 035113 0 0 000000100000 0 430000035113 -FT1A 034001 035113 0 0 000000100000 0 000000100000 -FT2 034001 035113 0 0 0 0 000000100000 -FT2RQ 034001 035113 0 0 000000100000 0 000000100000 -FT3 034001 035113 0 0 000000100000 0 000000100000 -FT9 034002 035113 0 0 000000100000 0 000000100000 -ET0 034002 035113 0 0 0 0 000000100000 -ST1 034002 035113 0 0 0 0 000000100000 -ST2 034002 035113 0 0 0 0 000000100000 -ST9 034002 035113 0 0 0 0 000000100000 - - -*034002 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 034002 034002 0 0 332000000000 0 0 -IT1 034002 0 0 0 332000000000 0 0 -AT3 034002 0 0 0 0 0 332000000000 -AT6 034002 0 0 0 0 0 332000000000 -FT0 034002 0 0 0 0 0 332000000000 -FT1A 034002 0 0 0 0 0 0 -FT9 034003 0 0 0 0 0 0 -ET0 034004 0 0 0 0 0 0 -ST1A 034004 0 0 0 0 0 0 -ST9 034004 0 0 0 0 0 0 - - -*034004 JUMPA 0,034005 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034004 034004 0 0 324000034005 0 000000034005 -IT1 034004 0 0 0 324000034005 0 000000034005 -AT3 034004 0 0 0 000000034005 0 324000034005 -AT6 034004 034005 0 0 000000034005 0 324000034005 -FT1A 034004 034005 0 0 000000034005 0 000000034005 -FT2 034004 034005 0 0 0 0 000000034005 -FT2RQ 034004 034005 0 0 0 0 000000034005 -FT3 034004 034005 0 0 0 0 000000034005 -FT9 034005 034005 0 0 0 0 000000034005 -ET0 034005 034005 0 0 0 0 000000034005 -ST1A 034005 034005 0 0 0 0 000000034005 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 531 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0747 - -ST9 034005 034005 0 0 0 0 000000034005 - - -*034005 MOVE 0,035114 -INITIAL -C(AC)=000000 000000 -C(E)=000000 200000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 034005 034005 0 0 200000035114 0 000000200000 -IT1 034005 0 0 0 200000035114 0 000000200000 -AT3 034005 0 0 0 000000035114 0 200000035114 -AT6 034005 035114 0 0 000000035114 0 200000035114 -FT0 034005 035114 0 0 000000200000 0 200000035114 -FT1A 034005 035114 0 0 000000200000 0 000000200000 -FT9 034006 035114 0 0 000000200000 0 000000200000 -ET0 034006 035114 0 0 000000200000 0 000000200000 -ST1 034006 035114 0 0 000000200000 0 000000200000 -ST2 034006 035114 0 0 000000200000 0 000000200000 -ST9 034006 035114 0 0 000000200000 0 000000200000 - - -*034006 XOR 0,035114 -INITIAL -C(AC)=000000 200000 -C(E)=000000 200000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034006 034006 0 0 430000035114 0 000000200000 -IT1 034006 0 0 0 430000035114 0 000000200000 -AT3 034006 0 0 0 000000035114 0 430000035114 -AT6 034006 035114 0 0 000000035114 0 430000035114 -FT0 034006 035114 0 0 000000200000 0 430000035114 -FT1A 034006 035114 0 0 000000200000 0 000000200000 -FT2 034006 035114 0 0 0 0 000000200000 -FT2RQ 034006 035114 0 0 000000200000 0 000000200000 -FT3 034006 035114 0 0 000000200000 0 000000200000 -FT9 034007 035114 0 0 000000200000 0 000000200000 -ET0 034007 035114 0 0 0 0 000000200000 -ST1 034007 035114 0 0 0 0 000000200000 -ST2 034007 035114 0 0 0 0 000000200000 -ST9 034007 035114 0 0 0 0 000000200000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 532 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0748 - -*034007 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 034007 034007 0 0 332000000000 0 0 -IT1 034007 0 0 0 332000000000 0 0 -AT3 034007 0 0 0 0 0 332000000000 -AT6 034007 0 0 0 0 0 332000000000 -FT0 034007 0 0 0 0 0 332000000000 -FT1A 034007 0 0 0 0 0 0 -FT9 034010 0 0 0 0 0 0 -ET0 034011 0 0 0 0 0 0 -ST1A 034011 0 0 0 0 0 0 -ST9 034011 0 0 0 0 0 0 - - -*034011 JUMPA 0,034012 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034011 034011 0 0 324000034012 0 000000034012 -IT1 034011 0 0 0 324000034012 0 000000034012 -AT3 034011 0 0 0 000000034012 0 324000034012 -AT6 034011 034012 0 0 000000034012 0 324000034012 -FT1A 034011 034012 0 0 000000034012 0 000000034012 -FT2 034011 034012 0 0 0 0 000000034012 -FT2RQ 034011 034012 0 0 0 0 000000034012 -FT3 034011 034012 0 0 0 0 000000034012 -FT9 034012 034012 0 0 0 0 000000034012 -ET0 034012 034012 0 0 0 0 000000034012 -ST1A 034012 034012 0 0 0 0 000000034012 -ST9 034012 034012 0 0 0 0 000000034012 - - -*034012 MOVE 0,035115 -INITIAL -C(AC)=000000 000000 -C(E)=000000 400000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 034012 034012 0 0 200000035115 0 000000400000 -IT1 034012 0 0 0 200000035115 0 000000400000 -AT3 034012 0 0 0 000000035115 0 200000035115 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 533 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0749 - -AT6 034012 035115 0 0 000000035115 0 200000035115 -FT0 034012 035115 0 0 000000400000 0 200000035115 -FT1A 034012 035115 0 0 000000400000 0 000000400000 -FT9 034013 035115 0 0 000000400000 0 000000400000 -ET0 034013 035115 0 0 000000400000 0 000000400000 -ST1 034013 035115 0 0 000000400000 0 000000400000 -ST2 034013 035115 0 0 000000400000 0 000000400000 -ST9 034013 035115 0 0 000000400000 0 000000400000 - - -*034013 XOR 0,035115 -INITIAL -C(AC)=000000 400000 -C(E)=000000 400000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034013 034013 0 0 430000035115 0 000000400000 -IT1 034013 0 0 0 430000035115 0 000000400000 -AT3 034013 0 0 0 000000035115 0 430000035115 -AT6 034013 035115 0 0 000000035115 0 430000035115 -FT0 034013 035115 0 0 000000400000 0 430000035115 -FT1A 034013 035115 0 0 000000400000 0 000000400000 -FT2 034013 035115 0 0 0 0 000000400000 -FT2RQ 034013 035115 0 0 000000400000 0 000000400000 -FT3 034013 035115 0 0 000000400000 0 000000400000 -FT9 034014 035115 0 0 000000400000 0 000000400000 -ET0 034014 035115 0 0 0 0 000000400000 -ST1 034014 035115 0 0 0 0 000000400000 -ST2 034014 035115 0 0 0 0 000000400000 -ST9 034014 035115 0 0 0 0 000000400000 - - -*034014 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 034014 034014 0 0 332000000000 0 0 -IT1 034014 0 0 0 332000000000 0 0 -AT3 034014 0 0 0 0 0 332000000000 -AT6 034014 0 0 0 0 0 332000000000 -FT0 034014 0 0 0 0 0 332000000000 -FT1A 034014 0 0 0 0 0 0 -FT9 034015 0 0 0 0 0 0 -ET0 034016 0 0 0 0 0 0 -ST1A 034016 0 0 0 0 0 0 -ST9 034016 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 534 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0750 - - - -*034016 JUMPA 0,034017 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034016 034016 0 0 324000034017 0 000000034017 -IT1 034016 0 0 0 324000034017 0 000000034017 -AT3 034016 0 0 0 000000034017 0 324000034017 -AT6 034016 034017 0 0 000000034017 0 324000034017 -FT1A 034016 034017 0 0 000000034017 0 000000034017 -FT2 034016 034017 0 0 0 0 000000034017 -FT2RQ 034016 034017 0 0 0 0 000000034017 -FT3 034016 034017 0 0 0 0 000000034017 -FT9 034017 034017 0 0 0 0 000000034017 -ET0 034017 034017 0 0 0 0 000000034017 -ST1A 034017 034017 0 0 0 0 000000034017 -ST9 034017 034017 0 0 0 0 000000034017 - - -*034017 MOVE 0,035116 -INITIAL -C(AC)=000000 000000 -C(E)=000001 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034017 034017 0 0 200000035116 0 000001000000 -IT1 034017 0 0 0 200000035116 0 000001000000 -AT3 034017 0 0 0 000000035116 0 200000035116 -AT6 034017 035116 0 0 000000035116 0 200000035116 -FT0 034017 035116 0 0 000001000000 0 200000035116 -FT1A 034017 035116 0 0 000001000000 0 000001000000 -FT9 034020 035116 0 0 000001000000 0 000001000000 -ET0 034020 035116 0 0 000001000000 0 000001000000 -ST1 034020 035116 0 0 000001000000 0 000001000000 -ST2 034020 035116 0 0 000001000000 0 000001000000 -ST9 034020 035116 0 0 000001000000 0 000001000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 535 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0751 - -*034020 XOR 0,035116 -INITIAL -C(AC)=000001 000000 -C(E)=000001 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034020 034020 0 0 430000035116 0 000001000000 -IT1 034020 0 0 0 430000035116 0 000001000000 -AT3 034020 0 0 0 000000035116 0 430000035116 -AT6 034020 035116 0 0 000000035116 0 430000035116 -FT0 034020 035116 0 0 000001000000 0 430000035116 -FT1A 034020 035116 0 0 000001000000 0 000001000000 -FT2 034020 035116 0 0 0 0 000001000000 -FT2RQ 034020 035116 0 0 000001000000 0 000001000000 -FT3 034020 035116 0 0 000001000000 0 000001000000 -FT9 034021 035116 0 0 000001000000 0 000001000000 -ET0 034021 035116 0 0 0 0 000001000000 -ST1 034021 035116 0 0 0 0 000001000000 -ST2 034021 035116 0 0 0 0 000001000000 -ST9 034021 035116 0 0 0 0 000001000000 - - -*034021 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 034021 034021 0 0 332000000000 0 0 -IT1 034021 0 0 0 332000000000 0 0 -AT3 034021 0 0 0 0 0 332000000000 -AT6 034021 0 0 0 0 0 332000000000 -FT0 034021 0 0 0 0 0 332000000000 -FT1A 034021 0 0 0 0 0 0 -FT9 034022 0 0 0 0 0 0 -ET0 034023 0 0 0 0 0 0 -ST1A 034023 0 0 0 0 0 0 -ST9 034023 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 536 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0752 - -*034023 JUMPA 0,034024 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034023 034023 0 0 324000034024 0 000000034024 -IT1 034023 0 0 0 324000034024 0 000000034024 -AT3 034023 0 0 0 000000034024 0 324000034024 -AT6 034023 034024 0 0 000000034024 0 324000034024 -FT1A 034023 034024 0 0 000000034024 0 000000034024 -FT2 034023 034024 0 0 0 0 000000034024 -FT2RQ 034023 034024 0 0 0 0 000000034024 -FT3 034023 034024 0 0 0 0 000000034024 -FT9 034024 034024 0 0 0 0 000000034024 -ET0 034024 034024 0 0 0 0 000000034024 -ST1A 034024 034024 0 0 0 0 000000034024 -ST9 034024 034024 0 0 0 0 000000034024 - - -*034024 MOVE 0,035117 -INITIAL -C(AC)=000000 000000 -C(E)=000002 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034024 034024 0 0 200000035117 0 000002000000 -IT1 034024 0 0 0 200000035117 0 000002000000 -AT3 034024 0 0 0 000000035117 0 200000035117 -AT6 034024 035117 0 0 000000035117 0 200000035117 -FT0 034024 035117 0 0 000002000000 0 200000035117 -FT1A 034024 035117 0 0 000002000000 0 000002000000 -FT9 034025 035117 0 0 000002000000 0 000002000000 -ET0 034025 035117 0 0 000002000000 0 000002000000 -ST1 034025 035117 0 0 000002000000 0 000002000000 -ST2 034025 035117 0 0 000002000000 0 000002000000 -ST9 034025 035117 0 0 000002000000 0 000002000000 - - -*034025 XOR 0,035117 -INITIAL -C(AC)=000002 000000 -C(E)=000002 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034025 034025 0 0 430000035117 0 000002000000 -IT1 034025 0 0 0 430000035117 0 000002000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 537 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0753 - -AT3 034025 0 0 0 000000035117 0 430000035117 -AT6 034025 035117 0 0 000000035117 0 430000035117 -FT0 034025 035117 0 0 000002000000 0 430000035117 -FT1A 034025 035117 0 0 000002000000 0 000002000000 -FT2 034025 035117 0 0 0 0 000002000000 -FT2RQ 034025 035117 0 0 000002000000 0 000002000000 -FT3 034025 035117 0 0 000002000000 0 000002000000 -FT9 034026 035117 0 0 000002000000 0 000002000000 -ET0 034026 035117 0 0 0 0 000002000000 -ST1 034026 035117 0 0 0 0 000002000000 -ST2 034026 035117 0 0 0 0 000002000000 -ST9 034026 035117 0 0 0 0 000002000000 - - -*034026 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 034026 034026 0 0 332000000000 0 0 -IT1 034026 0 0 0 332000000000 0 0 -AT3 034026 0 0 0 0 0 332000000000 -AT6 034026 0 0 0 0 0 332000000000 -FT0 034026 0 0 0 0 0 332000000000 -FT1A 034026 0 0 0 0 0 0 -FT9 034027 0 0 0 0 0 0 -ET0 034030 0 0 0 0 0 0 -ST1A 034030 0 0 0 0 0 0 -ST9 034030 0 0 0 0 0 0 - - -*034030 JUMPA 0,034031 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034030 034030 0 0 324000034031 0 000000034031 -IT1 034030 0 0 0 324000034031 0 000000034031 -AT3 034030 0 0 0 000000034031 0 324000034031 -AT6 034030 034031 0 0 000000034031 0 324000034031 -FT1A 034030 034031 0 0 000000034031 0 000000034031 -FT2 034030 034031 0 0 0 0 000000034031 -FT2RQ 034030 034031 0 0 0 0 000000034031 -FT3 034030 034031 0 0 0 0 000000034031 -FT9 034031 034031 0 0 0 0 000000034031 -ET0 034031 034031 0 0 0 0 000000034031 -ST1A 034031 034031 0 0 0 0 000000034031 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 538 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0754 - -ST9 034031 034031 0 0 0 0 000000034031 - - -*034031 MOVE 0,035120 -INITIAL -C(AC)=000000 000000 -C(E)=000004 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034031 034031 0 0 200000035120 0 000004000000 -IT1 034031 0 0 0 200000035120 0 000004000000 -AT3 034031 0 0 0 000000035120 0 200000035120 -AT6 034031 035120 0 0 000000035120 0 200000035120 -FT0 034031 035120 0 0 000004000000 0 200000035120 -FT1A 034031 035120 0 0 000004000000 0 000004000000 -FT9 034032 035120 0 0 000004000000 0 000004000000 -ET0 034032 035120 0 0 000004000000 0 000004000000 -ST1 034032 035120 0 0 000004000000 0 000004000000 -ST2 034032 035120 0 0 000004000000 0 000004000000 -ST9 034032 035120 0 0 000004000000 0 000004000000 - - -*034032 XOR 0,035120 -INITIAL -C(AC)=000004 000000 -C(E)=000004 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034032 034032 0 0 430000035120 0 000004000000 -IT1 034032 0 0 0 430000035120 0 000004000000 -AT3 034032 0 0 0 000000035120 0 430000035120 -AT6 034032 035120 0 0 000000035120 0 430000035120 -FT0 034032 035120 0 0 000004000000 0 430000035120 -FT1A 034032 035120 0 0 000004000000 0 000004000000 -FT2 034032 035120 0 0 0 0 000004000000 -FT2RQ 034032 035120 0 0 000004000000 0 000004000000 -FT3 034032 035120 0 0 000004000000 0 000004000000 -FT9 034033 035120 0 0 000004000000 0 000004000000 -ET0 034033 035120 0 0 0 0 000004000000 -ST1 034033 035120 0 0 0 0 000004000000 -ST2 034033 035120 0 0 0 0 000004000000 -ST9 034033 035120 0 0 0 0 000004000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 539 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0755 - -*034033 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 034033 034033 0 0 332000000000 0 0 -IT1 034033 0 0 0 332000000000 0 0 -AT3 034033 0 0 0 0 0 332000000000 -AT6 034033 0 0 0 0 0 332000000000 -FT0 034033 0 0 0 0 0 332000000000 -FT1A 034033 0 0 0 0 0 0 -FT9 034034 0 0 0 0 0 0 -ET0 034035 0 0 0 0 0 0 -ST1A 034035 0 0 0 0 0 0 -ST9 034035 0 0 0 0 0 0 - - -*034035 JUMPA 0,034036 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034035 034035 0 0 324000034036 0 000000034036 -IT1 034035 0 0 0 324000034036 0 000000034036 -AT3 034035 0 0 0 000000034036 0 324000034036 -AT6 034035 034036 0 0 000000034036 0 324000034036 -FT1A 034035 034036 0 0 000000034036 0 000000034036 -FT2 034035 034036 0 0 0 0 000000034036 -FT2RQ 034035 034036 0 0 0 0 000000034036 -FT3 034035 034036 0 0 0 0 000000034036 -FT9 034036 034036 0 0 0 0 000000034036 -ET0 034036 034036 0 0 0 0 000000034036 -ST1A 034036 034036 0 0 0 0 000000034036 -ST9 034036 034036 0 0 0 0 000000034036 - - -*034036 MOVE 0,035121 -INITIAL -C(AC)=000000 000000 -C(E)=000010 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034036 034036 0 0 200000035121 0 000010000000 -IT1 034036 0 0 0 200000035121 0 000010000000 -AT3 034036 0 0 0 000000035121 0 200000035121 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 540 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0756 - -AT6 034036 035121 0 0 000000035121 0 200000035121 -FT0 034036 035121 0 0 000010000000 0 200000035121 -FT1A 034036 035121 0 0 000010000000 0 000010000000 -FT9 034037 035121 0 0 000010000000 0 000010000000 -ET0 034037 035121 0 0 000010000000 0 000010000000 -ST1 034037 035121 0 0 000010000000 0 000010000000 -ST2 034037 035121 0 0 000010000000 0 000010000000 -ST9 034037 035121 0 0 000010000000 0 000010000000 - - -*034037 XOR 0,035121 -INITIAL -C(AC)=000010 000000 -C(E)=000010 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034037 034037 0 0 430000035121 0 000010000000 -IT1 034037 0 0 0 430000035121 0 000010000000 -AT3 034037 0 0 0 000000035121 0 430000035121 -AT6 034037 035121 0 0 000000035121 0 430000035121 -FT0 034037 035121 0 0 000010000000 0 430000035121 -FT1A 034037 035121 0 0 000010000000 0 000010000000 -FT2 034037 035121 0 0 0 0 000010000000 -FT2RQ 034037 035121 0 0 000010000000 0 000010000000 -FT3 034037 035121 0 0 000010000000 0 000010000000 -FT9 034040 035121 0 0 000010000000 0 000010000000 -ET0 034040 035121 0 0 0 0 000010000000 -ST1 034040 035121 0 0 0 0 000010000000 -ST2 034040 035121 0 0 0 0 000010000000 -ST9 034040 035121 0 0 0 0 000010000000 - - -*034040 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 034040 034040 0 0 332000000000 0 0 -IT1 034040 0 0 0 332000000000 0 0 -AT3 034040 0 0 0 0 0 332000000000 -AT6 034040 0 0 0 0 0 332000000000 -FT0 034040 0 0 0 0 0 332000000000 -FT1A 034040 0 0 0 0 0 0 -FT9 034041 0 0 0 0 0 0 -ET0 034042 0 0 0 0 0 0 -ST1A 034042 0 0 0 0 0 0 -ST9 034042 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 541 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0757 - - - -*034042 JUMPA 0,034043 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034042 034042 0 0 324000034043 0 000000034043 -IT1 034042 0 0 0 324000034043 0 000000034043 -AT3 034042 0 0 0 000000034043 0 324000034043 -AT6 034042 034043 0 0 000000034043 0 324000034043 -FT1A 034042 034043 0 0 000000034043 0 000000034043 -FT2 034042 034043 0 0 0 0 000000034043 -FT2RQ 034042 034043 0 0 0 0 000000034043 -FT3 034042 034043 0 0 0 0 000000034043 -FT9 034043 034043 0 0 0 0 000000034043 -ET0 034043 034043 0 0 0 0 000000034043 -ST1A 034043 034043 0 0 0 0 000000034043 -ST9 034043 034043 0 0 0 0 000000034043 - - -*034043 MOVE 0,035122 -INITIAL -C(AC)=000000 000000 -C(E)=000020 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034043 034043 0 0 200000035122 0 000020000000 -IT1 034043 0 0 0 200000035122 0 000020000000 -AT3 034043 0 0 0 000000035122 0 200000035122 -AT6 034043 035122 0 0 000000035122 0 200000035122 -FT0 034043 035122 0 0 000020000000 0 200000035122 -FT1A 034043 035122 0 0 000020000000 0 000020000000 -FT9 034044 035122 0 0 000020000000 0 000020000000 -ET0 034044 035122 0 0 000020000000 0 000020000000 -ST1 034044 035122 0 0 000020000000 0 000020000000 -ST2 034044 035122 0 0 000020000000 0 000020000000 -ST9 034044 035122 0 0 000020000000 0 000020000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 542 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0758 - -*034044 XOR 0,035122 -INITIAL -C(AC)=000020 000000 -C(E)=000020 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034044 034044 0 0 430000035122 0 000020000000 -IT1 034044 0 0 0 430000035122 0 000020000000 -AT3 034044 0 0 0 000000035122 0 430000035122 -AT6 034044 035122 0 0 000000035122 0 430000035122 -FT0 034044 035122 0 0 000020000000 0 430000035122 -FT1A 034044 035122 0 0 000020000000 0 000020000000 -FT2 034044 035122 0 0 0 0 000020000000 -FT2RQ 034044 035122 0 0 000020000000 0 000020000000 -FT3 034044 035122 0 0 000020000000 0 000020000000 -FT9 034045 035122 0 0 000020000000 0 000020000000 -ET0 034045 035122 0 0 0 0 000020000000 -ST1 034045 035122 0 0 0 0 000020000000 -ST2 034045 035122 0 0 0 0 000020000000 -ST9 034045 035122 0 0 0 0 000020000000 - - -*034045 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 034045 034045 0 0 332000000000 0 0 -IT1 034045 0 0 0 332000000000 0 0 -AT3 034045 0 0 0 0 0 332000000000 -AT6 034045 0 0 0 0 0 332000000000 -FT0 034045 0 0 0 0 0 332000000000 -FT1A 034045 0 0 0 0 0 0 -FT9 034046 0 0 0 0 0 0 -ET0 034047 0 0 0 0 0 0 -ST1A 034047 0 0 0 0 0 0 -ST9 034047 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 543 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0759 - -*034047 JUMPA 0,034050 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034047 034047 0 0 324000034050 0 000000034050 -IT1 034047 0 0 0 324000034050 0 000000034050 -AT3 034047 0 0 0 000000034050 0 324000034050 -AT6 034047 034050 0 0 000000034050 0 324000034050 -FT1A 034047 034050 0 0 000000034050 0 000000034050 -FT2 034047 034050 0 0 0 0 000000034050 -FT2RQ 034047 034050 0 0 0 0 000000034050 -FT3 034047 034050 0 0 0 0 000000034050 -FT9 034050 034050 0 0 0 0 000000034050 -ET0 034050 034050 0 0 0 0 000000034050 -ST1A 034050 034050 0 0 0 0 000000034050 -ST9 034050 034050 0 0 0 0 000000034050 - - -*034050 MOVE 0,035123 -INITIAL -C(AC)=000000 000000 -C(E)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034050 034050 0 0 200000035123 0 000040000000 -IT1 034050 0 0 0 200000035123 0 000040000000 -AT3 034050 0 0 0 000000035123 0 200000035123 -AT6 034050 035123 0 0 000000035123 0 200000035123 -FT0 034050 035123 0 0 000040000000 0 200000035123 -FT1A 034050 035123 0 0 000040000000 0 000040000000 -FT9 034051 035123 0 0 000040000000 0 000040000000 -ET0 034051 035123 0 0 000040000000 0 000040000000 -ST1 034051 035123 0 0 000040000000 0 000040000000 -ST2 034051 035123 0 0 000040000000 0 000040000000 -ST9 034051 035123 0 0 000040000000 0 000040000000 - - -*034051 XOR 0,035123 -INITIAL -C(AC)=000040 000000 -C(E)=000040 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034051 034051 0 0 430000035123 0 000040000000 -IT1 034051 0 0 0 430000035123 0 000040000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 544 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0760 - -AT3 034051 0 0 0 000000035123 0 430000035123 -AT6 034051 035123 0 0 000000035123 0 430000035123 -FT0 034051 035123 0 0 000040000000 0 430000035123 -FT1A 034051 035123 0 0 000040000000 0 000040000000 -FT2 034051 035123 0 0 0 0 000040000000 -FT2RQ 034051 035123 0 0 000040000000 0 000040000000 -FT3 034051 035123 0 0 000040000000 0 000040000000 -FT9 034052 035123 0 0 000040000000 0 000040000000 -ET0 034052 035123 0 0 0 0 000040000000 -ST1 034052 035123 0 0 0 0 000040000000 -ST2 034052 035123 0 0 0 0 000040000000 -ST9 034052 035123 0 0 0 0 000040000000 - - -*034052 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 034052 034052 0 0 332000000000 0 0 -IT1 034052 0 0 0 332000000000 0 0 -AT3 034052 0 0 0 0 0 332000000000 -AT6 034052 0 0 0 0 0 332000000000 -FT0 034052 0 0 0 0 0 332000000000 -FT1A 034052 0 0 0 0 0 0 -FT9 034053 0 0 0 0 0 0 -ET0 034054 0 0 0 0 0 0 -ST1A 034054 0 0 0 0 0 0 -ST9 034054 0 0 0 0 0 0 - - -*034054 JUMPA 0,034055 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034054 034054 0 0 324000034055 0 000000034055 -IT1 034054 0 0 0 324000034055 0 000000034055 -AT3 034054 0 0 0 000000034055 0 324000034055 -AT6 034054 034055 0 0 000000034055 0 324000034055 -FT1A 034054 034055 0 0 000000034055 0 000000034055 -FT2 034054 034055 0 0 0 0 000000034055 -FT2RQ 034054 034055 0 0 0 0 000000034055 -FT3 034054 034055 0 0 0 0 000000034055 -FT9 034055 034055 0 0 0 0 000000034055 -ET0 034055 034055 0 0 0 0 000000034055 -ST1A 034055 034055 0 0 0 0 000000034055 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 545 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0761 - -ST9 034055 034055 0 0 0 0 000000034055 - - -*034055 MOVE 0,035124 -INITIAL -C(AC)=000000 000000 -C(E)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034055 034055 0 0 200000035124 0 000100000000 -IT1 034055 0 0 0 200000035124 0 000100000000 -AT3 034055 0 0 0 000000035124 0 200000035124 -AT6 034055 035124 0 0 000000035124 0 200000035124 -FT0 034055 035124 0 0 000100000000 0 200000035124 -FT1A 034055 035124 0 0 000100000000 0 000100000000 -FT9 034056 035124 0 0 000100000000 0 000100000000 -ET0 034056 035124 0 0 000100000000 0 000100000000 -ST1 034056 035124 0 0 000100000000 0 000100000000 -ST2 034056 035124 0 0 000100000000 0 000100000000 -ST9 034056 035124 0 0 000100000000 0 000100000000 - - -*034056 XOR 0,035124 -INITIAL -C(AC)=000100 000000 -C(E)=000100 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034056 034056 0 0 430000035124 0 000100000000 -IT1 034056 0 0 0 430000035124 0 000100000000 -AT3 034056 0 0 0 000000035124 0 430000035124 -AT6 034056 035124 0 0 000000035124 0 430000035124 -FT0 034056 035124 0 0 000100000000 0 430000035124 -FT1A 034056 035124 0 0 000100000000 0 000100000000 -FT2 034056 035124 0 0 0 0 000100000000 -FT2RQ 034056 035124 0 0 000100000000 0 000100000000 -FT3 034056 035124 0 0 000100000000 0 000100000000 -FT9 034057 035124 0 0 000100000000 0 000100000000 -ET0 034057 035124 0 0 0 0 000100000000 -ST1 034057 035124 0 0 0 0 000100000000 -ST2 034057 035124 0 0 0 0 000100000000 -ST9 034057 035124 0 0 0 0 000100000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 546 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0762 - -*034057 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 034057 034057 0 0 332000000000 0 0 -IT1 034057 0 0 0 332000000000 0 0 -AT3 034057 0 0 0 0 0 332000000000 -AT6 034057 0 0 0 0 0 332000000000 -FT0 034057 0 0 0 0 0 332000000000 -FT1A 034057 0 0 0 0 0 0 -FT9 034060 0 0 0 0 0 0 -ET0 034061 0 0 0 0 0 0 -ST1A 034061 0 0 0 0 0 0 -ST9 034061 0 0 0 0 0 0 - - -*034061 JUMPA 0,034062 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034061 034061 0 0 324000034062 0 000000034062 -IT1 034061 0 0 0 324000034062 0 000000034062 -AT3 034061 0 0 0 000000034062 0 324000034062 -AT6 034061 034062 0 0 000000034062 0 324000034062 -FT1A 034061 034062 0 0 000000034062 0 000000034062 -FT2 034061 034062 0 0 0 0 000000034062 -FT2RQ 034061 034062 0 0 0 0 000000034062 -FT3 034061 034062 0 0 0 0 000000034062 -FT9 034062 034062 0 0 0 0 000000034062 -ET0 034062 034062 0 0 0 0 000000034062 -ST1A 034062 034062 0 0 0 0 000000034062 -ST9 034062 034062 0 0 0 0 000000034062 - - -*034062 MOVE 0,035125 -INITIAL -C(AC)=000000 000000 -C(E)=000200 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034062 034062 0 0 200000035125 0 000200000000 -IT1 034062 0 0 0 200000035125 0 000200000000 -AT3 034062 0 0 0 000000035125 0 200000035125 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 547 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0763 - -AT6 034062 035125 0 0 000000035125 0 200000035125 -FT0 034062 035125 0 0 000200000000 0 200000035125 -FT1A 034062 035125 0 0 000200000000 0 000200000000 -FT9 034063 035125 0 0 000200000000 0 000200000000 -ET0 034063 035125 0 0 000200000000 0 000200000000 -ST1 034063 035125 0 0 000200000000 0 000200000000 -ST2 034063 035125 0 0 000200000000 0 000200000000 -ST9 034063 035125 0 0 000200000000 0 000200000000 - - -*034063 XOR 0,035125 -INITIAL -C(AC)=000200 000000 -C(E)=000200 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034063 034063 0 0 430000035125 0 000200000000 -IT1 034063 0 0 0 430000035125 0 000200000000 -AT3 034063 0 0 0 000000035125 0 430000035125 -AT6 034063 035125 0 0 000000035125 0 430000035125 -FT0 034063 035125 0 0 000200000000 0 430000035125 -FT1A 034063 035125 0 0 000200000000 0 000200000000 -FT2 034063 035125 0 0 0 0 000200000000 -FT2RQ 034063 035125 0 0 000200000000 0 000200000000 -FT3 034063 035125 0 0 000200000000 0 000200000000 -FT9 034064 035125 0 0 000200000000 0 000200000000 -ET0 034064 035125 0 0 0 0 000200000000 -ST1 034064 035125 0 0 0 0 000200000000 -ST2 034064 035125 0 0 0 0 000200000000 -ST9 034064 035125 0 0 0 0 000200000000 - - -*034064 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 034064 034064 0 0 332000000000 0 0 -IT1 034064 0 0 0 332000000000 0 0 -AT3 034064 0 0 0 0 0 332000000000 -AT6 034064 0 0 0 0 0 332000000000 -FT0 034064 0 0 0 0 0 332000000000 -FT1A 034064 0 0 0 0 0 0 -FT9 034065 0 0 0 0 0 0 -ET0 034066 0 0 0 0 0 0 -ST1A 034066 0 0 0 0 0 0 -ST9 034066 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 548 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0764 - - - -*034066 JUMPA 0,034067 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034066 034066 0 0 324000034067 0 000000034067 -IT1 034066 0 0 0 324000034067 0 000000034067 -AT3 034066 0 0 0 000000034067 0 324000034067 -AT6 034066 034067 0 0 000000034067 0 324000034067 -FT1A 034066 034067 0 0 000000034067 0 000000034067 -FT2 034066 034067 0 0 0 0 000000034067 -FT2RQ 034066 034067 0 0 0 0 000000034067 -FT3 034066 034067 0 0 0 0 000000034067 -FT9 034067 034067 0 0 0 0 000000034067 -ET0 034067 034067 0 0 0 0 000000034067 -ST1A 034067 034067 0 0 0 0 000000034067 -ST9 034067 034067 0 0 0 0 000000034067 - - -*034067 MOVE 0,035073 -INITIAL -C(AC)=000000 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034067 034067 0 0 200000035073 0 000400000000 -IT1 034067 0 0 0 200000035073 0 000400000000 -AT3 034067 0 0 0 000000035073 0 200000035073 -AT6 034067 035073 0 0 000000035073 0 200000035073 -FT0 034067 035073 0 0 000400000000 0 200000035073 -FT1A 034067 035073 0 0 000400000000 0 000400000000 -FT9 034070 035073 0 0 000400000000 0 000400000000 -ET0 034070 035073 0 0 000400000000 0 000400000000 -ST1 034070 035073 0 0 000400000000 0 000400000000 -ST2 034070 035073 0 0 000400000000 0 000400000000 -ST9 034070 035073 0 0 000400000000 0 000400000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 549 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0765 - -*034070 XOR 0,035073 -INITIAL -C(AC)=000400 000000 -C(E)=000400 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034070 034070 0 0 430000035073 0 000400000000 -IT1 034070 0 0 0 430000035073 0 000400000000 -AT3 034070 0 0 0 000000035073 0 430000035073 -AT6 034070 035073 0 0 000000035073 0 430000035073 -FT0 034070 035073 0 0 000400000000 0 430000035073 -FT1A 034070 035073 0 0 000400000000 0 000400000000 -FT2 034070 035073 0 0 0 0 000400000000 -FT2RQ 034070 035073 0 0 000400000000 0 000400000000 -FT3 034070 035073 0 0 000400000000 0 000400000000 -FT9 034071 035073 0 0 000400000000 0 000400000000 -ET0 034071 035073 0 0 0 0 000400000000 -ST1 034071 035073 0 0 0 0 000400000000 -ST2 034071 035073 0 0 0 0 000400000000 -ST9 034071 035073 0 0 0 0 000400000000 - - -*034071 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 034071 034071 0 0 332000000000 0 0 -IT1 034071 0 0 0 332000000000 0 0 -AT3 034071 0 0 0 0 0 332000000000 -AT6 034071 0 0 0 0 0 332000000000 -FT0 034071 0 0 0 0 0 332000000000 -FT1A 034071 0 0 0 0 0 0 -FT9 034072 0 0 0 0 0 0 -ET0 034073 0 0 0 0 0 0 -ST1A 034073 0 0 0 0 0 0 -ST9 034073 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 550 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0766 - -*034073 JUMPA 0,034074 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034073 034073 0 0 324000034074 0 000000034074 -IT1 034073 0 0 0 324000034074 0 000000034074 -AT3 034073 0 0 0 000000034074 0 324000034074 -AT6 034073 034074 0 0 000000034074 0 324000034074 -FT1A 034073 034074 0 0 000000034074 0 000000034074 -FT2 034073 034074 0 0 0 0 000000034074 -FT2RQ 034073 034074 0 0 0 0 000000034074 -FT3 034073 034074 0 0 0 0 000000034074 -FT9 034074 034074 0 0 0 0 000000034074 -ET0 034074 034074 0 0 0 0 000000034074 -ST1A 034074 034074 0 0 0 0 000000034074 -ST9 034074 034074 0 0 0 0 000000034074 - - -*034074 MOVE 0,035126 -INITIAL -C(AC)=000000 000000 -C(E)=001000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034074 034074 0 0 200000035126 0 001000000000 -IT1 034074 0 0 0 200000035126 0 001000000000 -AT3 034074 0 0 0 000000035126 0 200000035126 -AT6 034074 035126 0 0 000000035126 0 200000035126 -FT0 034074 035126 0 0 001000000000 0 200000035126 -FT1A 034074 035126 0 0 001000000000 0 001000000000 -FT9 034075 035126 0 0 001000000000 0 001000000000 -ET0 034075 035126 0 0 001000000000 0 001000000000 -ST1 034075 035126 0 0 001000000000 0 001000000000 -ST2 034075 035126 0 0 001000000000 0 001000000000 -ST9 034075 035126 0 0 001000000000 0 001000000000 - - -*034075 XOR 0,035126 -INITIAL -C(AC)=001000 000000 -C(E)=001000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034075 034075 0 0 430000035126 0 001000000000 -IT1 034075 0 0 0 430000035126 0 001000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 551 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0767 - -AT3 034075 0 0 0 000000035126 0 430000035126 -AT6 034075 035126 0 0 000000035126 0 430000035126 -FT0 034075 035126 0 0 001000000000 0 430000035126 -FT1A 034075 035126 0 0 001000000000 0 001000000000 -FT2 034075 035126 0 0 0 0 001000000000 -FT2RQ 034075 035126 0 0 001000000000 0 001000000000 -FT3 034075 035126 0 0 001000000000 0 001000000000 -FT9 034076 035126 0 0 001000000000 0 001000000000 -ET0 034076 035126 0 0 0 0 001000000000 -ST1 034076 035126 0 0 0 0 001000000000 -ST2 034076 035126 0 0 0 0 001000000000 -ST9 034076 035126 0 0 0 0 001000000000 - - -*034076 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 034076 034076 0 0 332000000000 0 0 -IT1 034076 0 0 0 332000000000 0 0 -AT3 034076 0 0 0 0 0 332000000000 -AT6 034076 0 0 0 0 0 332000000000 -FT0 034076 0 0 0 0 0 332000000000 -FT1A 034076 0 0 0 0 0 0 -FT9 034077 0 0 0 0 0 0 -ET0 0 0 0 0 0 0 0 -ST1A 0 0 0 0 0 0 0 -ST9 0 0 0 0 0 0 0 - - -*034100 JUMPA 0,034101 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 324000034101 0 000000034101 -IT1 0 0 0 0 324000034101 0 000000034101 -AT3 0 0 0 0 000000034101 0 324000034101 -AT6 0 034101 0 0 000000034101 0 324000034101 -FT1A 0 034101 0 0 000000034101 0 000000034101 -FT2 0 034101 0 0 0 0 000000034101 -FT2RQ 0 034101 0 0 0 0 000000034101 -FT3 0 034101 0 0 0 0 000000034101 -FT9 034101 034101 0 0 0 0 000000034101 -ET0 034101 034101 0 0 0 0 000000034101 -ST1A 034101 034101 0 0 0 0 000000034101 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 552 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0768 - -ST9 034101 034101 0 0 0 0 000000034101 - - -*034101 MOVE 0,035127 -INITIAL -C(AC)=000000 000000 -C(E)=002000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034101 034101 0 0 200000035127 0 002000000000 -IT1 034101 0 0 0 200000035127 0 002000000000 -AT3 034101 0 0 0 000000035127 0 200000035127 -AT6 034101 035127 0 0 000000035127 0 200000035127 -FT0 034101 035127 0 0 002000000000 0 200000035127 -FT1A 034101 035127 0 0 002000000000 0 002000000000 -FT9 034102 035127 0 0 002000000000 0 002000000000 -ET0 034102 035127 0 0 002000000000 0 002000000000 -ST1 034102 035127 0 0 002000000000 0 002000000000 -ST2 034102 035127 0 0 002000000000 0 002000000000 -ST9 034102 035127 0 0 002000000000 0 002000000000 - - -*034102 XOR 0,035127 -INITIAL -C(AC)=002000 000000 -C(E)=002000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034102 034102 0 0 430000035127 0 002000000000 -IT1 034102 0 0 0 430000035127 0 002000000000 -AT3 034102 0 0 0 000000035127 0 430000035127 -AT6 034102 035127 0 0 000000035127 0 430000035127 -FT0 034102 035127 0 0 002000000000 0 430000035127 -FT1A 034102 035127 0 0 002000000000 0 002000000000 -FT2 034102 035127 0 0 0 0 002000000000 -FT2RQ 034102 035127 0 0 002000000000 0 002000000000 -FT3 034102 035127 0 0 002000000000 0 002000000000 -FT9 034103 035127 0 0 002000000000 0 002000000000 -ET0 034103 035127 0 0 0 0 002000000000 -ST1 034103 035127 0 0 0 0 002000000000 -ST2 034103 035127 0 0 0 0 002000000000 -ST9 034103 035127 0 0 0 0 002000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 553 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0769 - -*034103 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 034103 034103 0 0 332000000000 0 0 -IT1 034103 0 0 0 332000000000 0 0 -AT3 034103 0 0 0 0 0 332000000000 -AT6 034103 0 0 0 0 0 332000000000 -FT0 034103 0 0 0 0 0 332000000000 -FT1A 034103 0 0 0 0 0 0 -FT9 034104 0 0 0 0 0 0 -ET0 034105 0 0 0 0 0 0 -ST1A 034105 0 0 0 0 0 0 -ST9 034105 0 0 0 0 0 0 - - -*034105 JUMPA 0,034106 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034105 034105 0 0 324000034106 0 000000034106 -IT1 034105 0 0 0 324000034106 0 000000034106 -AT3 034105 0 0 0 000000034106 0 324000034106 -AT6 034105 034106 0 0 000000034106 0 324000034106 -FT1A 034105 034106 0 0 000000034106 0 000000034106 -FT2 034105 034106 0 0 0 0 000000034106 -FT2RQ 034105 034106 0 0 0 0 000000034106 -FT3 034105 034106 0 0 0 0 000000034106 -FT9 034106 034106 0 0 0 0 000000034106 -ET0 034106 034106 0 0 0 0 000000034106 -ST1A 034106 034106 0 0 0 0 000000034106 -ST9 034106 034106 0 0 0 0 000000034106 - - -*034106 MOVE 0,035130 -INITIAL -C(AC)=000000 000000 -C(E)=004000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034106 034106 0 0 200000035130 0 004000000000 -IT1 034106 0 0 0 200000035130 0 004000000000 -AT3 034106 0 0 0 000000035130 0 200000035130 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 554 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0770 - -AT6 034106 035130 0 0 000000035130 0 200000035130 -FT0 034106 035130 0 0 004000000000 0 200000035130 -FT1A 034106 035130 0 0 004000000000 0 004000000000 -FT9 034107 035130 0 0 004000000000 0 004000000000 -ET0 034107 035130 0 0 004000000000 0 004000000000 -ST1 034107 035130 0 0 004000000000 0 004000000000 -ST2 034107 035130 0 0 004000000000 0 004000000000 -ST9 034107 035130 0 0 004000000000 0 004000000000 - - -*034107 XOR 0,035130 -INITIAL -C(AC)=004000 000000 -C(E)=004000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034107 034107 0 0 430000035130 0 004000000000 -IT1 034107 0 0 0 430000035130 0 004000000000 -AT3 034107 0 0 0 000000035130 0 430000035130 -AT6 034107 035130 0 0 000000035130 0 430000035130 -FT0 034107 035130 0 0 004000000000 0 430000035130 -FT1A 034107 035130 0 0 004000000000 0 004000000000 -FT2 034107 035130 0 0 0 0 004000000000 -FT2RQ 034107 035130 0 0 004000000000 0 004000000000 -FT3 034107 035130 0 0 004000000000 0 004000000000 -FT9 034110 035130 0 0 004000000000 0 004000000000 -ET0 034110 035130 0 0 0 0 004000000000 -ST1 034110 035130 0 0 0 0 004000000000 -ST2 034110 035130 0 0 0 0 004000000000 -ST9 034110 035130 0 0 0 0 004000000000 - - -*034110 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 034110 034110 0 0 332000000000 0 0 -IT1 034110 0 0 0 332000000000 0 0 -AT3 034110 0 0 0 0 0 332000000000 -AT6 034110 0 0 0 0 0 332000000000 -FT0 034110 0 0 0 0 0 332000000000 -FT1A 034110 0 0 0 0 0 0 -FT9 034111 0 0 0 0 0 0 -ET0 034112 0 0 0 0 0 0 -ST1A 034112 0 0 0 0 0 0 -ST9 034112 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 555 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0771 - - - -*034112 JUMPA 0,034113 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034112 034112 0 0 324000034113 0 000000034113 -IT1 034112 0 0 0 324000034113 0 000000034113 -AT3 034112 0 0 0 000000034113 0 324000034113 -AT6 034112 034113 0 0 000000034113 0 324000034113 -FT1A 034112 034113 0 0 000000034113 0 000000034113 -FT2 034112 034113 0 0 0 0 000000034113 -FT2RQ 034112 034113 0 0 0 0 000000034113 -FT3 034112 034113 0 0 0 0 000000034113 -FT9 034113 034113 0 0 0 0 000000034113 -ET0 034113 034113 0 0 0 0 000000034113 -ST1A 034113 034113 0 0 0 0 000000034113 -ST9 034113 034113 0 0 0 0 000000034113 - - -*034113 MOVE 0,035131 -INITIAL -C(AC)=000000 000000 -C(E)=010000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034113 034113 0 0 200000035131 0 010000000000 -IT1 034113 0 0 0 200000035131 0 010000000000 -AT3 034113 0 0 0 000000035131 0 200000035131 -AT6 034113 035131 0 0 000000035131 0 200000035131 -FT0 034113 035131 0 0 010000000000 0 200000035131 -FT1A 034113 035131 0 0 010000000000 0 010000000000 -FT9 034114 035131 0 0 010000000000 0 010000000000 -ET0 034114 035131 0 0 010000000000 0 010000000000 -ST1 034114 035131 0 0 010000000000 0 010000000000 -ST2 034114 035131 0 0 010000000000 0 010000000000 -ST9 034114 035131 0 0 010000000000 0 010000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 556 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0772 - -*034114 XOR 0,035131 -INITIAL -C(AC)=010000 000000 -C(E)=010000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034114 034114 0 0 430000035131 0 010000000000 -IT1 034114 0 0 0 430000035131 0 010000000000 -AT3 034114 0 0 0 000000035131 0 430000035131 -AT6 034114 035131 0 0 000000035131 0 430000035131 -FT0 034114 035131 0 0 010000000000 0 430000035131 -FT1A 034114 035131 0 0 010000000000 0 010000000000 -FT2 034114 035131 0 0 0 0 010000000000 -FT2RQ 034114 035131 0 0 010000000000 0 010000000000 -FT3 034114 035131 0 0 010000000000 0 010000000000 -FT9 034115 035131 0 0 010000000000 0 010000000000 -ET0 034115 035131 0 0 0 0 010000000000 -ST1 034115 035131 0 0 0 0 010000000000 -ST2 034115 035131 0 0 0 0 010000000000 -ST9 034115 035131 0 0 0 0 010000000000 - - -*034115 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 034115 034115 0 0 332000000000 0 0 -IT1 034115 0 0 0 332000000000 0 0 -AT3 034115 0 0 0 0 0 332000000000 -AT6 034115 0 0 0 0 0 332000000000 -FT0 034115 0 0 0 0 0 332000000000 -FT1A 034115 0 0 0 0 0 0 -FT9 034116 0 0 0 0 0 0 -ET0 034117 0 0 0 0 0 0 -ST1A 034117 0 0 0 0 0 0 -ST9 034117 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 557 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0773 - -*034117 JUMPA 0,034120 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034117 034117 0 0 324000034120 0 000000034120 -IT1 034117 0 0 0 324000034120 0 000000034120 -AT3 034117 0 0 0 000000034120 0 324000034120 -AT6 034117 034120 0 0 000000034120 0 324000034120 -FT1A 034117 034120 0 0 000000034120 0 000000034120 -FT2 034117 034120 0 0 0 0 000000034120 -FT2RQ 034117 034120 0 0 0 0 000000034120 -FT3 034117 034120 0 0 0 0 000000034120 -FT9 034120 034120 0 0 0 0 000000034120 -ET0 034120 034120 0 0 0 0 000000034120 -ST1A 034120 034120 0 0 0 0 000000034120 -ST9 034120 034120 0 0 0 0 000000034120 - - -*034120 MOVE 0,035132 -INITIAL -C(AC)=000000 000000 -C(E)=020000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034120 034120 0 0 200000035132 0 020000000000 -IT1 034120 0 0 0 200000035132 0 020000000000 -AT3 034120 0 0 0 000000035132 0 200000035132 -AT6 034120 035132 0 0 000000035132 0 200000035132 -FT0 034120 035132 0 0 020000000000 0 200000035132 -FT1A 034120 035132 0 0 020000000000 0 020000000000 -FT9 034121 035132 0 0 020000000000 0 020000000000 -ET0 034121 035132 0 0 020000000000 0 020000000000 -ST1 034121 035132 0 0 020000000000 0 020000000000 -ST2 034121 035132 0 0 020000000000 0 020000000000 -ST9 034121 035132 0 0 020000000000 0 020000000000 - - -*034121 XOR 0,035132 -INITIAL -C(AC)=020000 000000 -C(E)=020000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034121 034121 0 0 430000035132 0 020000000000 -IT1 034121 0 0 0 430000035132 0 020000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 558 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0774 - -AT3 034121 0 0 0 000000035132 0 430000035132 -AT6 034121 035132 0 0 000000035132 0 430000035132 -FT0 034121 035132 0 0 020000000000 0 430000035132 -FT1A 034121 035132 0 0 020000000000 0 020000000000 -FT2 034121 035132 0 0 0 0 020000000000 -FT2RQ 034121 035132 0 0 020000000000 0 020000000000 -FT3 034121 035132 0 0 020000000000 0 020000000000 -FT9 034122 035132 0 0 020000000000 0 020000000000 -ET0 034122 035132 0 0 0 0 020000000000 -ST1 034122 035132 0 0 0 0 020000000000 -ST2 034122 035132 0 0 0 0 020000000000 -ST9 034122 035132 0 0 0 0 020000000000 - - -*034122 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 034122 034122 0 0 332000000000 0 0 -IT1 034122 0 0 0 332000000000 0 0 -AT3 034122 0 0 0 0 0 332000000000 -AT6 034122 0 0 0 0 0 332000000000 -FT0 034122 0 0 0 0 0 332000000000 -FT1A 034122 0 0 0 0 0 0 -FT9 034123 0 0 0 0 0 0 -ET0 034124 0 0 0 0 0 0 -ST1A 034124 0 0 0 0 0 0 -ST9 034124 0 0 0 0 0 0 - - -*034124 JUMPA 0,034125 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034124 034124 0 0 324000034125 0 000000034125 -IT1 034124 0 0 0 324000034125 0 000000034125 -AT3 034124 0 0 0 000000034125 0 324000034125 -AT6 034124 034125 0 0 000000034125 0 324000034125 -FT1A 034124 034125 0 0 000000034125 0 000000034125 -FT2 034124 034125 0 0 0 0 000000034125 -FT2RQ 034124 034125 0 0 0 0 000000034125 -FT3 034124 034125 0 0 0 0 000000034125 -FT9 034125 034125 0 0 0 0 000000034125 -ET0 034125 034125 0 0 0 0 000000034125 -ST1A 034125 034125 0 0 0 0 000000034125 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 559 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0775 - -ST9 034125 034125 0 0 0 0 000000034125 - - -*034125 MOVE 0,035133 -INITIAL -C(AC)=000000 000000 -C(E)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034125 034125 0 0 200000035133 0 040000000000 -IT1 034125 0 0 0 200000035133 0 040000000000 -AT3 034125 0 0 0 000000035133 0 200000035133 -AT6 034125 035133 0 0 000000035133 0 200000035133 -FT0 034125 035133 0 0 040000000000 0 200000035133 -FT1A 034125 035133 0 0 040000000000 0 040000000000 -FT9 034126 035133 0 0 040000000000 0 040000000000 -ET0 034126 035133 0 0 040000000000 0 040000000000 -ST1 034126 035133 0 0 040000000000 0 040000000000 -ST2 034126 035133 0 0 040000000000 0 040000000000 -ST9 034126 035133 0 0 040000000000 0 040000000000 - - -*034126 XOR 0,035133 -INITIAL -C(AC)=040000 000000 -C(E)=040000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034126 034126 0 0 430000035133 0 040000000000 -IT1 034126 0 0 0 430000035133 0 040000000000 -AT3 034126 0 0 0 000000035133 0 430000035133 -AT6 034126 035133 0 0 000000035133 0 430000035133 -FT0 034126 035133 0 0 040000000000 0 430000035133 -FT1A 034126 035133 0 0 040000000000 0 040000000000 -FT2 034126 035133 0 0 0 0 040000000000 -FT2RQ 034126 035133 0 0 040000000000 0 040000000000 -FT3 034126 035133 0 0 040000000000 0 040000000000 -FT9 034127 035133 0 0 040000000000 0 040000000000 -ET0 034127 035133 0 0 0 0 040000000000 -ST1 034127 035133 0 0 0 0 040000000000 -ST2 034127 035133 0 0 0 0 040000000000 -ST9 034127 035133 0 0 0 0 040000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 560 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0776 - -*034127 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 034127 034127 0 0 332000000000 0 0 -IT1 034127 0 0 0 332000000000 0 0 -AT3 034127 0 0 0 0 0 332000000000 -AT6 034127 0 0 0 0 0 332000000000 -FT0 034127 0 0 0 0 0 332000000000 -FT1A 034127 0 0 0 0 0 0 -FT9 034130 0 0 0 0 0 0 -ET0 034131 0 0 0 0 0 0 -ST1A 034131 0 0 0 0 0 0 -ST9 034131 0 0 0 0 0 0 - - -*034131 JUMPA 0,034132 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034131 034131 0 0 324000034132 0 000000034132 -IT1 034131 0 0 0 324000034132 0 000000034132 -AT3 034131 0 0 0 000000034132 0 324000034132 -AT6 034131 034132 0 0 000000034132 0 324000034132 -FT1A 034131 034132 0 0 000000034132 0 000000034132 -FT2 034131 034132 0 0 0 0 000000034132 -FT2RQ 034131 034132 0 0 0 0 000000034132 -FT3 034131 034132 0 0 0 0 000000034132 -FT9 034132 034132 0 0 0 0 000000034132 -ET0 034132 034132 0 0 0 0 000000034132 -ST1A 034132 034132 0 0 0 0 000000034132 -ST9 034132 034132 0 0 0 0 000000034132 - - -*034132 MOVE 0,035134 -INITIAL -C(AC)=000000 000000 -C(E)=100000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034132 034132 0 0 200000035134 0 100000000000 -IT1 034132 0 0 0 200000035134 0 100000000000 -AT3 034132 0 0 0 000000035134 0 200000035134 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 561 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0777 - -AT6 034132 035134 0 0 000000035134 0 200000035134 -FT0 034132 035134 0 0 100000000000 0 200000035134 -FT1A 034132 035134 0 0 100000000000 0 100000000000 -FT9 034133 035134 0 0 100000000000 0 100000000000 -ET0 034133 035134 0 0 100000000000 0 100000000000 -ST1 034133 035134 0 0 100000000000 0 100000000000 -ST2 034133 035134 0 0 100000000000 0 100000000000 -ST9 034133 035134 0 0 100000000000 0 100000000000 - - -*034133 XOR 0,035134 -INITIAL -C(AC)=100000 000000 -C(E)=100000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034133 034133 0 0 430000035134 0 100000000000 -IT1 034133 0 0 0 430000035134 0 100000000000 -AT3 034133 0 0 0 000000035134 0 430000035134 -AT6 034133 035134 0 0 000000035134 0 430000035134 -FT0 034133 035134 0 0 100000000000 0 430000035134 -FT1A 034133 035134 0 0 100000000000 0 100000000000 -FT2 034133 035134 0 0 0 0 100000000000 -FT2RQ 034133 035134 0 0 100000000000 0 100000000000 -FT3 034133 035134 0 0 100000000000 0 100000000000 -FT9 034134 035134 0 0 100000000000 0 100000000000 -ET0 034134 035134 0 0 0 0 100000000000 -ST1 034134 035134 0 0 0 0 100000000000 -ST2 034134 035134 0 0 0 0 100000000000 -ST9 034134 035134 0 0 0 0 100000000000 - - -*034134 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 034134 034134 0 0 332000000000 0 0 -IT1 034134 0 0 0 332000000000 0 0 -AT3 034134 0 0 0 0 0 332000000000 -AT6 034134 0 0 0 0 0 332000000000 -FT0 034134 0 0 0 0 0 332000000000 -FT1A 034134 0 0 0 0 0 0 -FT9 034135 0 0 0 0 0 0 -ET0 034136 0 0 0 0 0 0 -ST1A 034136 0 0 0 0 0 0 -ST9 034136 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 562 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0778 - - - -*034136 JUMPA 0,034137 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034136 034136 0 0 324000034137 0 000000034137 -IT1 034136 0 0 0 324000034137 0 000000034137 -AT3 034136 0 0 0 000000034137 0 324000034137 -AT6 034136 034137 0 0 000000034137 0 324000034137 -FT1A 034136 034137 0 0 000000034137 0 000000034137 -FT2 034136 034137 0 0 0 0 000000034137 -FT2RQ 034136 034137 0 0 0 0 000000034137 -FT3 034136 034137 0 0 0 0 000000034137 -FT9 034137 034137 0 0 0 0 000000034137 -ET0 034137 034137 0 0 0 0 000000034137 -ST1A 034137 034137 0 0 0 0 000000034137 -ST9 034137 034137 0 0 0 0 000000034137 - - -*034137 MOVE 0,035135 -INITIAL -C(AC)=000000 000000 -C(E)=200000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034137 034137 0 0 200000035135 0 200000000000 -IT1 034137 0 0 0 200000035135 0 200000000000 -AT3 034137 0 0 0 000000035135 0 200000035135 -AT6 034137 035135 0 0 000000035135 0 200000035135 -FT0 034137 035135 0 0 200000000000 0 200000035135 -FT1A 034137 035135 0 0 200000000000 0 200000000000 -FT9 034140 035135 0 0 200000000000 0 200000000000 -ET0 034140 035135 0 0 200000000000 0 200000000000 -ST1 034140 035135 0 0 200000000000 0 200000000000 -ST2 034140 035135 0 0 200000000000 0 200000000000 -ST9 034140 035135 0 0 200000000000 0 200000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 563 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0779 - -*034140 XOR 0,035135 -INITIAL -C(AC)=200000 000000 -C(E)=200000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034140 034140 0 0 430000035135 0 200000000000 -IT1 034140 0 0 0 430000035135 0 200000000000 -AT3 034140 0 0 0 000000035135 0 430000035135 -AT6 034140 035135 0 0 000000035135 0 430000035135 -FT0 034140 035135 0 0 200000000000 0 430000035135 -FT1A 034140 035135 0 0 200000000000 0 200000000000 -FT2 034140 035135 0 0 0 0 200000000000 -FT2RQ 034140 035135 0 0 200000000000 0 200000000000 -FT3 034140 035135 0 0 200000000000 0 200000000000 -FT9 034141 035135 0 0 200000000000 0 200000000000 -ET0 034141 035135 0 0 0 0 200000000000 -ST1 034141 035135 0 0 0 0 200000000000 -ST2 034141 035135 0 0 0 0 200000000000 -ST9 034141 035135 0 0 0 0 200000000000 - - -*034141 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 034141 034141 0 0 332000000000 0 0 -IT1 034141 0 0 0 332000000000 0 0 -AT3 034141 0 0 0 0 0 332000000000 -AT6 034141 0 0 0 0 0 332000000000 -FT0 034141 0 0 0 0 0 332000000000 -FT1A 034141 0 0 0 0 0 0 -FT9 034142 0 0 0 0 0 0 -ET0 034143 0 0 0 0 0 0 -ST1A 034143 0 0 0 0 0 0 -ST9 034143 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 564 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0780 - -*034143 JUMPA 0,034144 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034143 034143 0 0 324000034144 0 000000034144 -IT1 034143 0 0 0 324000034144 0 000000034144 -AT3 034143 0 0 0 000000034144 0 324000034144 -AT6 034143 034144 0 0 000000034144 0 324000034144 -FT1A 034143 034144 0 0 000000034144 0 000000034144 -FT2 034143 034144 0 0 0 0 000000034144 -FT2RQ 034143 034144 0 0 0 0 000000034144 -FT3 034143 034144 0 0 0 0 000000034144 -FT9 034144 034144 0 0 0 0 000000034144 -ET0 034144 034144 0 0 0 0 000000034144 -ST1A 034144 034144 0 0 0 0 000000034144 -ST9 034144 034144 0 0 0 0 000000034144 - - -*034144 MOVE 0,035065 -INITIAL -C(AC)=000000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034144 034144 0 0 200000035065 0 400000000000 -IT1 034144 0 0 0 200000035065 0 400000000000 -AT3 034144 0 0 0 000000035065 0 200000035065 -AT6 034144 035065 0 0 000000035065 0 200000035065 -FT0 034144 035065 0 0 400000000000 0 200000035065 -FT1A 034144 035065 0 0 400000000000 0 400000000000 -FT9 034145 035065 0 0 400000000000 0 400000000000 -ET0 034145 035065 0 0 400000000000 0 400000000000 -ST1 034145 035065 0 0 400000000000 0 400000000000 -ST2 034145 035065 0 0 400000000000 0 400000000000 -ST9 034145 035065 0 0 400000000000 0 400000000000 - - -*034145 XOR 0,035065 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034145 034145 0 0 430000035065 0 400000000000 -IT1 034145 0 0 0 430000035065 0 400000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 565 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0781 - -AT3 034145 0 0 0 000000035065 0 430000035065 -AT6 034145 035065 0 0 000000035065 0 430000035065 -FT0 034145 035065 0 0 400000000000 0 430000035065 -FT1A 034145 035065 0 0 400000000000 0 400000000000 -FT2 034145 035065 0 0 0 0 400000000000 -FT2RQ 034145 035065 0 0 400000000000 0 400000000000 -FT3 034145 035065 0 0 400000000000 0 400000000000 -FT9 034146 035065 0 0 400000000000 0 400000000000 -ET0 034146 035065 0 0 0 0 400000000000 -ST1 034146 035065 0 0 0 0 400000000000 -ST2 034146 035065 0 0 0 0 400000000000 -ST9 034146 035065 0 0 0 0 400000000000 - - -*034146 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 034146 034146 0 0 332000000000 0 0 -IT1 034146 0 0 0 332000000000 0 0 -AT3 034146 0 0 0 0 0 332000000000 -AT6 034146 0 0 0 0 0 332000000000 -FT0 034146 0 0 0 0 0 332000000000 -FT1A 034146 0 0 0 0 0 0 -FT9 034147 0 0 0 0 0 0 -ET0 034150 0 0 0 0 0 0 -ST1A 034150 0 0 0 0 0 0 -ST9 034150 0 0 0 0 0 0 - - -*034150 JUMPA 0,034151 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034150 034150 0 0 324000034151 0 000000034151 -IT1 034150 0 0 0 324000034151 0 000000034151 -AT3 034150 0 0 0 000000034151 0 324000034151 -AT6 034150 034151 0 0 000000034151 0 324000034151 -FT1A 034150 034151 0 0 000000034151 0 000000034151 -FT2 034150 034151 0 0 0 0 000000034151 -FT2RQ 034150 034151 0 0 0 0 000000034151 -FT3 034150 034151 0 0 0 0 000000034151 -FT9 034151 034151 0 0 0 0 000000034151 -ET0 034151 034151 0 0 0 0 000000034151 -ST1A 034151 034151 0 0 0 0 000000034151 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 566 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0782 - -ST9 034151 034151 0 0 0 0 000000034151 - - -*034151 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034151 034151 0 0 200000035062 0 0 -IT1 034151 0 0 0 200000035062 0 0 -AT3 034151 0 0 0 000000035062 0 200000035062 -AT6 034151 035062 0 0 000000035062 0 200000035062 -FT0 034151 035062 0 0 0 0 200000035062 -FT1A 034151 035062 0 0 0 0 0 -FT9 034152 035062 0 0 0 0 0 -ET0 034152 035062 0 0 0 0 0 -ST1 034152 035062 0 0 0 0 0 -ST2 034152 035062 0 0 0 0 0 -ST9 034152 035062 0 0 0 0 0 - - -*034152 XOR 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034152 034152 0 0 430000035062 0 0 -IT1 034152 0 0 0 430000035062 0 0 -AT3 034152 0 0 0 000000035062 0 430000035062 -AT6 034152 035062 0 0 000000035062 0 430000035062 -FT0 034152 035062 0 0 0 0 430000035062 -FT1A 034152 035062 0 0 0 0 0 -FT2 034152 035062 0 0 0 0 0 -FT2RQ 034152 035062 0 0 0 0 0 -FT3 034152 035062 0 0 0 0 0 -FT9 034153 035062 0 0 0 0 0 -ET0 034153 035062 0 0 0 0 0 -ST1 034153 035062 0 0 0 0 0 -ST2 034153 035062 0 0 0 0 0 -ST9 034153 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 567 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0783 - -*034153 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 034153 034153 0 0 332000000000 0 0 -IT1 034153 0 0 0 332000000000 0 0 -AT3 034153 0 0 0 0 0 332000000000 -AT6 034153 0 0 0 0 0 332000000000 -FT0 034153 0 0 0 0 0 332000000000 -FT1A 034153 0 0 0 0 0 0 -FT9 034154 0 0 0 0 0 0 -ET0 034155 0 0 0 0 0 0 -ST1A 034155 0 0 0 0 0 0 -ST9 034155 0 0 0 0 0 0 - - -*034155 JUMPA 0,034156 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034155 034155 0 0 324000034156 0 000000034156 -IT1 034155 0 0 0 324000034156 0 000000034156 -AT3 034155 0 0 0 000000034156 0 324000034156 -AT6 034155 034156 0 0 000000034156 0 324000034156 -FT1A 034155 034156 0 0 000000034156 0 000000034156 -FT2 034155 034156 0 0 0 0 000000034156 -FT2RQ 034155 034156 0 0 0 0 000000034156 -FT3 034155 034156 0 0 0 0 000000034156 -FT9 034156 034156 0 0 0 0 000000034156 -ET0 034156 034156 0 0 0 0 000000034156 -ST1A 034156 034156 0 0 0 0 000000034156 -ST9 034156 034156 0 0 0 0 000000034156 - - -*034156 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034156 034156 0 0 200000035062 0 0 -IT1 034156 0 0 0 200000035062 0 0 -AT3 034156 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 568 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0784 - -AT6 034156 035062 0 0 000000035062 0 200000035062 -FT0 034156 035062 0 0 0 0 200000035062 -FT1A 034156 035062 0 0 0 0 0 -FT9 034157 035062 0 0 0 0 0 -ET0 034157 035062 0 0 0 0 0 -ST1 034157 035062 0 0 0 0 0 -ST2 034157 035062 0 0 0 0 0 -ST9 034157 035062 0 0 0 0 0 - - -*034157 EQV 0,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034157 034157 0 0 444000035063 0 777777777777 -IT1 034157 0 0 0 444000035063 0 777777777777 -AT3 034157 0 0 0 000000035063 0 444000035063 -AT6 034157 035063 0 0 000000035063 0 444000035063 -FT0 034157 035063 0 0 777777777777 0 444000035063 -FT1A 034157 035063 0 0 777777777777 0 777777777777 -FT2 034157 035063 0 0 0 0 777777777777 -FT2RQ 034157 035063 0 0 0 0 777777777777 -FT3 034157 035063 0 0 0 0 777777777777 -FT9 034160 035063 0 0 0 0 777777777777 -ET0 034160 035063 0 0 0 0 777777777777 -ST1 034160 035063 0 0 0 0 777777777777 -ST2 034160 035063 0 0 0 0 777777777777 -ST9 034160 035063 0 0 0 0 777777777777 - - -*034160 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 034160 034160 0 0 332000000000 0 0 -IT1 034160 0 0 0 332000000000 0 0 -AT3 034160 0 0 0 0 0 332000000000 -AT6 034160 0 0 0 0 0 332000000000 -FT0 034160 0 0 0 0 0 332000000000 -FT1A 034160 0 0 0 0 0 0 -FT9 034161 0 0 0 0 0 0 -ET0 034162 0 0 0 0 0 0 -ST1A 034162 0 0 0 0 0 0 -ST9 034162 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 569 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0785 - - - -*034162 JUMPA 0,034163 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034162 034162 0 0 324000034163 0 000000034163 -IT1 034162 0 0 0 324000034163 0 000000034163 -AT3 034162 0 0 0 000000034163 0 324000034163 -AT6 034162 034163 0 0 000000034163 0 324000034163 -FT1A 034162 034163 0 0 000000034163 0 000000034163 -FT2 034162 034163 0 0 0 0 000000034163 -FT2RQ 034162 034163 0 0 0 0 000000034163 -FT3 034162 034163 0 0 0 0 000000034163 -FT9 034163 034163 0 0 0 0 000000034163 -ET0 034163 034163 0 0 0 0 000000034163 -ST1A 034163 034163 0 0 0 0 000000034163 -ST9 034163 034163 0 0 0 0 000000034163 - - -*034163 MOVE 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034163 034163 0 0 200000035062 0 0 -IT1 034163 0 0 0 200000035062 0 0 -AT3 034163 0 0 0 000000035062 0 200000035062 -AT6 034163 035062 0 0 000000035062 0 200000035062 -FT0 034163 035062 0 0 0 0 200000035062 -FT1A 034163 035062 0 0 0 0 0 -FT9 034164 035062 0 0 0 0 0 -ET0 034164 035062 0 0 0 0 0 -ST1 034164 035062 0 0 0 0 0 -ST2 034164 035062 0 0 0 0 0 -ST9 034164 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 570 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0786 - -*034164 EQV 0,035142 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777776 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 034164 034164 0 0 444000035142 0 777777777776 -IT1 034164 0 0 0 444000035142 0 777777777776 -AT3 034164 0 0 0 000000035142 0 444000035142 -AT6 034164 035142 0 0 000000035142 0 444000035142 -FT0 034164 035142 0 0 777777777776 0 444000035142 -FT1A 034164 035142 0 0 777777777776 0 777777777776 -FT2 034164 035142 0 0 0 0 777777777776 -FT2RQ 034164 035142 0 0 0 0 777777777776 -FT3 034164 035142 0 0 0 0 777777777776 -FT9 034165 035142 0 0 0 0 777777777776 -ET0 034165 035142 0 0 000000000001 0 777777777776 -ST1 034165 035142 0 0 000000000001 0 777777777776 -ST2 034165 035142 0 0 000000000001 0 777777777776 -ST9 034165 035142 0 0 000000000001 0 777777777776 - - -*034165 SKIPN 0,000000 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 034165 034165 0 0 336000000000 0 000000000001 -IT1 034165 0 0 0 336000000000 0 000000000001 -AT3 034165 0 0 0 0 0 336000000000 -AT6 034165 0 0 0 0 0 336000000000 -FT0 034165 0 0 0 000000000001 0 336000000000 -FT1A 034165 0 0 0 000000000001 0 000000000001 -FT9 034166 0 0 0 000000000001 0 000000000001 -ET0 034167 0 0 0 000000000001 0 000000000001 -ST1A 034167 0 0 0 000000000001 0 000000000001 -ST9 034167 0 0 0 000000000001 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 571 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0787 - -*034167 JUMPA 0,034170 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034167 034167 0 0 324000034170 0 000000034170 -IT1 034167 0 0 0 324000034170 0 000000034170 -AT3 034167 0 0 0 000000034170 0 324000034170 -AT6 034167 034170 0 0 000000034170 0 324000034170 -FT1A 034167 034170 0 0 000000034170 0 000000034170 -FT2 034167 034170 0 0 0 0 000000034170 -FT2RQ 034167 034170 0 0 000000000001 0 000000034170 -FT3 034167 034170 0 0 000000000001 0 000000034170 -FT9 034170 034170 0 0 000000000001 0 000000034170 -ET0 034170 034170 0 0 000000000001 0 000000034170 -ST1A 034170 034170 0 0 000000000001 0 000000034170 -ST9 034170 034170 0 0 000000000001 0 000000034170 - - -*034170 MOVE 0,035062 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034170 034170 0 0 200000035062 0 0 -IT1 034170 0 0 0 200000035062 0 0 -AT3 034170 0 0 0 000000035062 0 200000035062 -AT6 034170 035062 0 0 000000035062 0 200000035062 -FT0 034170 035062 0 0 0 0 200000035062 -FT1A 034170 035062 0 0 0 0 0 -FT9 034171 035062 0 0 0 0 0 -ET0 034171 035062 0 0 0 0 0 -ST1 034171 035062 0 0 0 0 0 -ST2 034171 035062 0 0 0 0 0 -ST9 034171 035062 0 0 0 0 0 - - -*034171 EQV 0,035143 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777775 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 034171 034171 0 0 444000035143 0 777777777775 -IT1 034171 0 0 0 444000035143 0 777777777775 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 572 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0788 - -AT3 034171 0 0 0 000000035143 0 444000035143 -AT6 034171 035143 0 0 000000035143 0 444000035143 -FT0 034171 035143 0 0 777777777775 0 444000035143 -FT1A 034171 035143 0 0 777777777775 0 777777777775 -FT2 034171 035143 0 0 0 0 777777777775 -FT2RQ 034171 035143 0 0 0 0 777777777775 -FT3 034171 035143 0 0 0 0 777777777775 -FT9 034172 035143 0 0 0 0 777777777775 -ET0 034172 035143 0 0 000000000002 0 777777777775 -ST1 034172 035143 0 0 000000000002 0 777777777775 -ST2 034172 035143 0 0 000000000002 0 777777777775 -ST9 034172 035143 0 0 000000000002 0 777777777775 - - -*034172 SKIPN 0,000000 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 034172 034172 0 0 336000000000 0 000000000002 -IT1 034172 0 0 0 336000000000 0 000000000002 -AT3 034172 0 0 0 0 0 336000000000 -AT6 034172 0 0 0 0 0 336000000000 -FT0 034172 0 0 0 000000000002 0 336000000000 -FT1A 034172 0 0 0 000000000002 0 000000000002 -FT9 034173 0 0 0 000000000002 0 000000000002 -ET0 034174 0 0 0 000000000002 0 000000000002 -ST1A 034174 0 0 0 000000000002 0 000000000002 -ST9 034174 0 0 0 000000000002 0 000000000002 - - -*034174 JUMPA 0,034175 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034174 034174 0 0 324000034175 0 000000034175 -IT1 034174 0 0 0 324000034175 0 000000034175 -AT3 034174 0 0 0 000000034175 0 324000034175 -AT6 034174 034175 0 0 000000034175 0 324000034175 -FT1A 034174 034175 0 0 000000034175 0 000000034175 -FT2 034174 034175 0 0 0 0 000000034175 -FT2RQ 034174 034175 0 0 000000000002 0 000000034175 -FT3 034174 034175 0 0 000000000002 0 000000034175 -FT9 034175 034175 0 0 000000000002 0 000000034175 -ET0 034175 034175 0 0 000000000002 0 000000034175 -ST1A 034175 034175 0 0 000000000002 0 000000034175 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 573 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0789 - -ST9 034175 034175 0 0 000000000002 0 000000034175 - - -*034175 MOVE 0,035062 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034175 034175 0 0 200000035062 0 0 -IT1 034175 0 0 0 200000035062 0 0 -AT3 034175 0 0 0 000000035062 0 200000035062 -AT6 034175 035062 0 0 000000035062 0 200000035062 -FT0 034175 035062 0 0 0 0 200000035062 -FT1A 034175 035062 0 0 0 0 0 -FT9 034176 035062 0 0 0 0 0 -ET0 034176 035062 0 0 0 0 0 -ST1 034176 035062 0 0 0 0 0 -ST2 034176 035062 0 0 0 0 0 -ST9 034176 035062 0 0 0 0 0 - - -*034176 EQV 0,035144 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777773 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 034176 034176 0 0 444000035144 0 777777777773 -IT1 034176 0 0 0 444000035144 0 777777777773 -AT3 034176 0 0 0 000000035144 0 444000035144 -AT6 034176 035144 0 0 000000035144 0 444000035144 -FT0 034176 035144 0 0 777777777773 0 444000035144 -FT1A 034176 035144 0 0 777777777773 0 777777777773 -FT2 034176 035144 0 0 0 0 777777777773 -FT2RQ 034176 035144 0 0 0 0 777777777773 -FT3 034176 035144 0 0 0 0 777777777773 -FT9 034177 035144 0 0 0 0 777777777773 -ET0 034177 035144 0 0 000000000004 0 777777777773 -ST1 034177 035144 0 0 000000000004 0 777777777773 -ST2 034177 035144 0 0 000000000004 0 777777777773 -ST9 034177 035144 0 0 000000000004 0 777777777773 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 574 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0790 - -*034177 SKIPN 0,000000 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 034177 034177 0 0 336000000000 0 000000000004 -IT1 034177 0 0 0 336000000000 0 000000000004 -AT3 034177 0 0 0 0 0 336000000000 -AT6 034177 0 0 0 0 0 336000000000 -FT0 034177 0 0 0 000000000004 0 336000000000 -FT1A 034177 0 0 0 000000000004 0 000000000004 -FT9 0 0 0 0 000000000004 0 000000000004 -ET0 034201 0 0 0 000000000004 0 000000000004 -ST1A 034201 0 0 0 000000000004 0 000000000004 -ST9 034201 0 0 0 000000000004 0 000000000004 - - -*034201 JUMPA 0,034202 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034201 034201 0 0 324000034202 0 000000034202 -IT1 034201 0 0 0 324000034202 0 000000034202 -AT3 034201 0 0 0 000000034202 0 324000034202 -AT6 034201 034202 0 0 000000034202 0 324000034202 -FT1A 034201 034202 0 0 000000034202 0 000000034202 -FT2 034201 034202 0 0 0 0 000000034202 -FT2RQ 034201 034202 0 0 000000000004 0 000000034202 -FT3 034201 034202 0 0 000000000004 0 000000034202 -FT9 034202 034202 0 0 000000000004 0 000000034202 -ET0 034202 034202 0 0 000000000004 0 000000034202 -ST1A 034202 034202 0 0 000000000004 0 000000034202 -ST9 034202 034202 0 0 000000000004 0 000000034202 - - -*034202 MOVE 0,035062 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034202 034202 0 0 200000035062 0 0 -IT1 034202 0 0 0 200000035062 0 0 -AT3 034202 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 575 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0791 - -AT6 034202 035062 0 0 000000035062 0 200000035062 -FT0 034202 035062 0 0 0 0 200000035062 -FT1A 034202 035062 0 0 0 0 0 -FT9 034203 035062 0 0 0 0 0 -ET0 034203 035062 0 0 0 0 0 -ST1 034203 035062 0 0 0 0 0 -ST2 034203 035062 0 0 0 0 0 -ST9 034203 035062 0 0 0 0 0 - - -*034203 EQV 0,035145 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777767 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 034203 034203 0 0 444000035145 0 777777777767 -IT1 034203 0 0 0 444000035145 0 777777777767 -AT3 034203 0 0 0 000000035145 0 444000035145 -AT6 034203 035145 0 0 000000035145 0 444000035145 -FT0 034203 035145 0 0 777777777767 0 444000035145 -FT1A 034203 035145 0 0 777777777767 0 777777777767 -FT2 034203 035145 0 0 0 0 777777777767 -FT2RQ 034203 035145 0 0 0 0 777777777767 -FT3 034203 035145 0 0 0 0 777777777767 -FT9 034204 035145 0 0 0 0 777777777767 -ET0 034204 035145 0 0 000000000010 0 777777777767 -ST1 034204 035145 0 0 000000000010 0 777777777767 -ST2 034204 035145 0 0 000000000010 0 777777777767 -ST9 034204 035145 0 0 000000000010 0 777777777767 - - -*034204 SKIPN 0,000000 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 034204 034204 0 0 336000000000 0 000000000010 -IT1 034204 0 0 0 336000000000 0 000000000010 -AT3 034204 0 0 0 0 0 336000000000 -AT6 034204 0 0 0 0 0 336000000000 -FT0 034204 0 0 0 000000000010 0 336000000000 -FT1A 034204 0 0 0 000000000010 0 000000000010 -FT9 034205 0 0 0 000000000010 0 000000000010 -ET0 034206 0 0 0 000000000010 0 000000000010 -ST1A 034206 0 0 0 000000000010 0 000000000010 -ST9 034206 0 0 0 000000000010 0 000000000010 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 576 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0792 - - - -*034206 JUMPA 0,034207 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034206 034206 0 0 324000034207 0 000000034207 -IT1 034206 0 0 0 324000034207 0 000000034207 -AT3 034206 0 0 0 000000034207 0 324000034207 -AT6 034206 034207 0 0 000000034207 0 324000034207 -FT1A 034206 034207 0 0 000000034207 0 000000034207 -FT2 034206 034207 0 0 0 0 000000034207 -FT2RQ 034206 034207 0 0 000000000010 0 000000034207 -FT3 034206 034207 0 0 000000000010 0 000000034207 -FT9 034207 034207 0 0 000000000010 0 000000034207 -ET0 034207 034207 0 0 000000000010 0 000000034207 -ST1A 034207 034207 0 0 000000000010 0 000000034207 -ST9 034207 034207 0 0 000000000010 0 000000034207 - - -*034207 MOVE 0,035062 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034207 034207 0 0 200000035062 0 0 -IT1 034207 0 0 0 200000035062 0 0 -AT3 034207 0 0 0 000000035062 0 200000035062 -AT6 034207 035062 0 0 000000035062 0 200000035062 -FT0 034207 035062 0 0 0 0 200000035062 -FT1A 034207 035062 0 0 0 0 0 -FT9 034210 035062 0 0 0 0 0 -ET0 034210 035062 0 0 0 0 0 -ST1 034210 035062 0 0 0 0 0 -ST2 034210 035062 0 0 0 0 0 -ST9 034210 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 577 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0793 - -*034210 EQV 0,035146 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777757 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 034210 034210 0 0 444000035146 0 777777777757 -IT1 034210 0 0 0 444000035146 0 777777777757 -AT3 034210 0 0 0 000000035146 0 444000035146 -AT6 034210 035146 0 0 000000035146 0 444000035146 -FT0 034210 035146 0 0 777777777757 0 444000035146 -FT1A 034210 035146 0 0 777777777757 0 777777777757 -FT2 034210 035146 0 0 0 0 777777777757 -FT2RQ 034210 035146 0 0 0 0 777777777757 -FT3 034210 035146 0 0 0 0 777777777757 -FT9 034211 035146 0 0 0 0 777777777757 -ET0 034211 035146 0 0 000000000020 0 777777777757 -ST1 034211 035146 0 0 000000000020 0 777777777757 -ST2 034211 035146 0 0 000000000020 0 777777777757 -ST9 034211 035146 0 0 000000000020 0 777777777757 - - -*034211 SKIPN 0,000000 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000020 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 034211 034211 0 0 336000000000 0 000000000020 -IT1 034211 0 0 0 336000000000 0 000000000020 -AT3 034211 0 0 0 0 0 336000000000 -AT6 034211 0 0 0 0 0 336000000000 -FT0 034211 0 0 0 000000000020 0 336000000000 -FT1A 034211 0 0 0 000000000020 0 000000000020 -FT9 034212 0 0 0 000000000020 0 000000000020 -ET0 034213 0 0 0 000000000020 0 000000000020 -ST1A 034213 0 0 0 000000000020 0 000000000020 -ST9 034213 0 0 0 000000000020 0 000000000020 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 578 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0794 - -*034213 JUMPA 0,034214 -INITIAL -C(AC)=000000 000020 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034213 034213 0 0 324000034214 0 000000034214 -IT1 034213 0 0 0 324000034214 0 000000034214 -AT3 034213 0 0 0 000000034214 0 324000034214 -AT6 034213 034214 0 0 000000034214 0 324000034214 -FT1A 034213 034214 0 0 000000034214 0 000000034214 -FT2 034213 034214 0 0 0 0 000000034214 -FT2RQ 034213 034214 0 0 000000000020 0 000000034214 -FT3 034213 034214 0 0 000000000020 0 000000034214 -FT9 034214 034214 0 0 000000000020 0 000000034214 -ET0 034214 034214 0 0 000000000020 0 000000034214 -ST1A 034214 034214 0 0 000000000020 0 000000034214 -ST9 034214 034214 0 0 000000000020 0 000000034214 - - -*034214 MOVE 0,035062 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034214 034214 0 0 200000035062 0 0 -IT1 034214 0 0 0 200000035062 0 0 -AT3 034214 0 0 0 000000035062 0 200000035062 -AT6 034214 035062 0 0 000000035062 0 200000035062 -FT0 034214 035062 0 0 0 0 200000035062 -FT1A 034214 035062 0 0 0 0 0 -FT9 034215 035062 0 0 0 0 0 -ET0 034215 035062 0 0 0 0 0 -ST1 034215 035062 0 0 0 0 0 -ST2 034215 035062 0 0 0 0 0 -ST9 034215 035062 0 0 0 0 0 - - -*034215 EQV 0,035147 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777737 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 034215 034215 0 0 444000035147 0 777777777737 -IT1 034215 0 0 0 444000035147 0 777777777737 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 579 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0795 - -AT3 034215 0 0 0 000000035147 0 444000035147 -AT6 034215 035147 0 0 000000035147 0 444000035147 -FT0 034215 035147 0 0 777777777737 0 444000035147 -FT1A 034215 035147 0 0 777777777737 0 777777777737 -FT2 034215 035147 0 0 0 0 777777777737 -FT2RQ 034215 035147 0 0 0 0 777777777737 -FT3 034215 035147 0 0 0 0 777777777737 -FT9 034216 035147 0 0 0 0 777777777737 -ET0 034216 035147 0 0 000000000040 0 777777777737 -ST1 034216 035147 0 0 000000000040 0 777777777737 -ST2 034216 035147 0 0 000000000040 0 777777777737 -ST9 034216 035147 0 0 000000000040 0 777777777737 - - -*034216 SKIPN 0,000000 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000040 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 034216 034216 0 0 336000000000 0 000000000040 -IT1 034216 0 0 0 336000000000 0 000000000040 -AT3 034216 0 0 0 0 0 336000000000 -AT6 034216 0 0 0 0 0 336000000000 -FT0 034216 0 0 0 000000000040 0 336000000000 -FT1A 034216 0 0 0 000000000040 0 000000000040 -FT9 034217 0 0 0 000000000040 0 000000000040 -ET0 034220 0 0 0 000000000040 0 000000000040 -ST1A 034220 0 0 0 000000000040 0 000000000040 -ST9 034220 0 0 0 000000000040 0 000000000040 - - -*034220 JUMPA 0,034221 -INITIAL -C(AC)=000000 000040 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034220 034220 0 0 324000034221 0 000000034221 -IT1 034220 0 0 0 324000034221 0 000000034221 -AT3 034220 0 0 0 000000034221 0 324000034221 -AT6 034220 034221 0 0 000000034221 0 324000034221 -FT1A 034220 034221 0 0 000000034221 0 000000034221 -FT2 034220 034221 0 0 0 0 000000034221 -FT2RQ 034220 034221 0 0 000000000040 0 000000034221 -FT3 034220 034221 0 0 000000000040 0 000000034221 -FT9 034221 034221 0 0 000000000040 0 000000034221 -ET0 034221 034221 0 0 000000000040 0 000000034221 -ST1A 034221 034221 0 0 000000000040 0 000000034221 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 580 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0796 - -ST9 034221 034221 0 0 000000000040 0 000000034221 - - -*034221 MOVE 0,035062 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034221 034221 0 0 200000035062 0 0 -IT1 034221 0 0 0 200000035062 0 0 -AT3 034221 0 0 0 000000035062 0 200000035062 -AT6 034221 035062 0 0 000000035062 0 200000035062 -FT0 034221 035062 0 0 0 0 200000035062 -FT1A 034221 035062 0 0 0 0 0 -FT9 034222 035062 0 0 0 0 0 -ET0 034222 035062 0 0 0 0 0 -ST1 034222 035062 0 0 0 0 0 -ST2 034222 035062 0 0 0 0 0 -ST9 034222 035062 0 0 0 0 0 - - -*034222 EQV 0,035150 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777677 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 034222 034222 0 0 444000035150 0 777777777677 -IT1 034222 0 0 0 444000035150 0 777777777677 -AT3 034222 0 0 0 000000035150 0 444000035150 -AT6 034222 035150 0 0 000000035150 0 444000035150 -FT0 034222 035150 0 0 777777777677 0 444000035150 -FT1A 034222 035150 0 0 777777777677 0 777777777677 -FT2 034222 035150 0 0 0 0 777777777677 -FT2RQ 034222 035150 0 0 0 0 777777777677 -FT3 034222 035150 0 0 0 0 777777777677 -FT9 034223 035150 0 0 0 0 777777777677 -ET0 034223 035150 0 0 000000000100 0 777777777677 -ST1 034223 035150 0 0 000000000100 0 777777777677 -ST2 034223 035150 0 0 000000000100 0 777777777677 -ST9 034223 035150 0 0 000000000100 0 777777777677 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 581 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0797 - -*034223 SKIPN 0,000000 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000100 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 034223 034223 0 0 336000000000 0 000000000100 -IT1 034223 0 0 0 336000000000 0 000000000100 -AT3 034223 0 0 0 0 0 336000000000 -AT6 034223 0 0 0 0 0 336000000000 -FT0 034223 0 0 0 000000000100 0 336000000000 -FT1A 034223 0 0 0 000000000100 0 000000000100 -FT9 034224 0 0 0 000000000100 0 000000000100 -ET0 034225 0 0 0 000000000100 0 000000000100 -ST1A 034225 0 0 0 000000000100 0 000000000100 -ST9 034225 0 0 0 000000000100 0 000000000100 - - -*034225 JUMPA 0,034226 -INITIAL -C(AC)=000000 000100 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034225 034225 0 0 324000034226 0 000000034226 -IT1 034225 0 0 0 324000034226 0 000000034226 -AT3 034225 0 0 0 000000034226 0 324000034226 -AT6 034225 034226 0 0 000000034226 0 324000034226 -FT1A 034225 034226 0 0 000000034226 0 000000034226 -FT2 034225 034226 0 0 0 0 000000034226 -FT2RQ 034225 034226 0 0 000000000100 0 000000034226 -FT3 034225 034226 0 0 000000000100 0 000000034226 -FT9 034226 034226 0 0 000000000100 0 000000034226 -ET0 034226 034226 0 0 000000000100 0 000000034226 -ST1A 034226 034226 0 0 000000000100 0 000000034226 -ST9 034226 034226 0 0 000000000100 0 000000034226 - - -*034226 MOVE 0,035062 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034226 034226 0 0 200000035062 0 0 -IT1 034226 0 0 0 200000035062 0 0 -AT3 034226 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 582 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0798 - -AT6 034226 035062 0 0 000000035062 0 200000035062 -FT0 034226 035062 0 0 0 0 200000035062 -FT1A 034226 035062 0 0 0 0 0 -FT9 034227 035062 0 0 0 0 0 -ET0 034227 035062 0 0 0 0 0 -ST1 034227 035062 0 0 0 0 0 -ST2 034227 035062 0 0 0 0 0 -ST9 034227 035062 0 0 0 0 0 - - -*034227 EQV 0,035151 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777577 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 034227 034227 0 0 444000035151 0 777777777577 -IT1 034227 0 0 0 444000035151 0 777777777577 -AT3 034227 0 0 0 000000035151 0 444000035151 -AT6 034227 035151 0 0 000000035151 0 444000035151 -FT0 034227 035151 0 0 777777777577 0 444000035151 -FT1A 034227 035151 0 0 777777777577 0 777777777577 -FT2 034227 035151 0 0 0 0 777777777577 -FT2RQ 034227 035151 0 0 0 0 777777777577 -FT3 034227 035151 0 0 0 0 777777777577 -FT9 034230 035151 0 0 0 0 777777777577 -ET0 034230 035151 0 0 000000000200 0 777777777577 -ST1 034230 035151 0 0 000000000200 0 777777777577 -ST2 034230 035151 0 0 000000000200 0 777777777577 -ST9 034230 035151 0 0 000000000200 0 777777777577 - - -*034230 SKIPN 0,000000 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000200 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 034230 034230 0 0 336000000000 0 000000000200 -IT1 034230 0 0 0 336000000000 0 000000000200 -AT3 034230 0 0 0 0 0 336000000000 -AT6 034230 0 0 0 0 0 336000000000 -FT0 034230 0 0 0 000000000200 0 336000000000 -FT1A 034230 0 0 0 000000000200 0 000000000200 -FT9 034231 0 0 0 000000000200 0 000000000200 -ET0 034232 0 0 0 000000000200 0 000000000200 -ST1A 034232 0 0 0 000000000200 0 000000000200 -ST9 034232 0 0 0 000000000200 0 000000000200 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 583 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0799 - - - -*034232 JUMPA 0,034233 -INITIAL -C(AC)=000000 000200 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034232 034232 0 0 324000034233 0 000000034233 -IT1 034232 0 0 0 324000034233 0 000000034233 -AT3 034232 0 0 0 000000034233 0 324000034233 -AT6 034232 034233 0 0 000000034233 0 324000034233 -FT1A 034232 034233 0 0 000000034233 0 000000034233 -FT2 034232 034233 0 0 0 0 000000034233 -FT2RQ 034232 034233 0 0 000000000200 0 000000034233 -FT3 034232 034233 0 0 000000000200 0 000000034233 -FT9 034233 034233 0 0 000000000200 0 000000034233 -ET0 034233 034233 0 0 000000000200 0 000000034233 -ST1A 034233 034233 0 0 000000000200 0 000000034233 -ST9 034233 034233 0 0 000000000200 0 000000034233 - - -*034233 MOVE 0,035062 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034233 034233 0 0 200000035062 0 0 -IT1 034233 0 0 0 200000035062 0 0 -AT3 034233 0 0 0 000000035062 0 200000035062 -AT6 034233 035062 0 0 000000035062 0 200000035062 -FT0 034233 035062 0 0 0 0 200000035062 -FT1A 034233 035062 0 0 0 0 0 -FT9 034234 035062 0 0 0 0 0 -ET0 034234 035062 0 0 0 0 0 -ST1 034234 035062 0 0 0 0 0 -ST2 034234 035062 0 0 0 0 0 -ST9 034234 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 584 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0800 - -*034234 EQV 0,035152 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777377 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 034234 034234 0 0 444000035152 0 777777777377 -IT1 034234 0 0 0 444000035152 0 777777777377 -AT3 034234 0 0 0 000000035152 0 444000035152 -AT6 034234 035152 0 0 000000035152 0 444000035152 -FT0 034234 035152 0 0 777777777377 0 444000035152 -FT1A 034234 035152 0 0 777777777377 0 777777777377 -FT2 034234 035152 0 0 0 0 777777777377 -FT2RQ 034234 035152 0 0 0 0 777777777377 -FT3 034234 035152 0 0 0 0 777777777377 -FT9 034235 035152 0 0 0 0 777777777377 -ET0 034235 035152 0 0 000000000400 0 777777777377 -ST1 034235 035152 0 0 000000000400 0 777777777377 -ST2 034235 035152 0 0 000000000400 0 777777777377 -ST9 034235 035152 0 0 000000000400 0 777777777377 - - -*034235 SKIPN 0,000000 -INITIAL -C(AC)=000000 000400 -C(E)=000000 000400 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 034235 034235 0 0 336000000000 0 000000000400 -IT1 034235 0 0 0 336000000000 0 000000000400 -AT3 034235 0 0 0 0 0 336000000000 -AT6 034235 0 0 0 0 0 336000000000 -FT0 034235 0 0 0 000000000400 0 336000000000 -FT1A 034235 0 0 0 000000000400 0 000000000400 -FT9 034236 0 0 0 000000000400 0 000000000400 -ET0 034237 0 0 0 000000000400 0 000000000400 -ST1A 034237 0 0 0 000000000400 0 000000000400 -ST9 034237 0 0 0 000000000400 0 000000000400 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 585 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0801 - -*034237 JUMPA 0,034240 -INITIAL -C(AC)=000000 000400 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034237 034237 0 0 324000034240 0 000000034240 -IT1 034237 0 0 0 324000034240 0 000000034240 -AT3 034237 0 0 0 000000034240 0 324000034240 -AT6 034237 034240 0 0 000000034240 0 324000034240 -FT1A 034237 034240 0 0 000000034240 0 000000034240 -FT2 034237 034240 0 0 0 0 000000034240 -FT2RQ 034237 034240 0 0 000000000400 0 000000034240 -FT3 034237 034240 0 0 000000000400 0 000000034240 -FT9 034240 034240 0 0 000000000400 0 000000034240 -ET0 034240 034240 0 0 000000000400 0 000000034240 -ST1A 034240 034240 0 0 000000000400 0 000000034240 -ST9 034240 034240 0 0 000000000400 0 000000034240 - - -*034240 MOVE 0,035062 -INITIAL -C(AC)=000000 000400 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034240 034240 0 0 200000035062 0 0 -IT1 034240 0 0 0 200000035062 0 0 -AT3 034240 0 0 0 000000035062 0 200000035062 -AT6 034240 035062 0 0 000000035062 0 200000035062 -FT0 034240 035062 0 0 0 0 200000035062 -FT1A 034240 035062 0 0 0 0 0 -FT9 034241 035062 0 0 0 0 0 -ET0 034241 035062 0 0 0 0 0 -ST1 034241 035062 0 0 0 0 0 -ST2 034241 035062 0 0 0 0 0 -ST9 034241 035062 0 0 0 0 0 - - -*034241 EQV 0,035153 -INITIAL -C(AC)=000000 000000 -C(E)=777777 776777 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 034241 034241 0 0 444000035153 0 777777776777 -IT1 034241 0 0 0 444000035153 0 777777776777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 586 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0802 - -AT3 034241 0 0 0 000000035153 0 444000035153 -AT6 034241 035153 0 0 000000035153 0 444000035153 -FT0 034241 035153 0 0 777777776777 0 444000035153 -FT1A 034241 035153 0 0 777777776777 0 777777776777 -FT2 034241 035153 0 0 0 0 777777776777 -FT2RQ 034241 035153 0 0 0 0 777777776777 -FT3 034241 035153 0 0 0 0 777777776777 -FT9 034242 035153 0 0 0 0 777777776777 -ET0 034242 035153 0 0 000000001000 0 777777776777 -ST1 034242 035153 0 0 000000001000 0 777777776777 -ST2 034242 035153 0 0 000000001000 0 777777776777 -ST9 034242 035153 0 0 000000001000 0 777777776777 - - -*034242 SKIPN 0,000000 -INITIAL -C(AC)=000000 001000 -C(E)=000000 001000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 034242 034242 0 0 336000000000 0 000000001000 -IT1 034242 0 0 0 336000000000 0 000000001000 -AT3 034242 0 0 0 0 0 336000000000 -AT6 034242 0 0 0 0 0 336000000000 -FT0 034242 0 0 0 000000001000 0 336000000000 -FT1A 034242 0 0 0 000000001000 0 000000001000 -FT9 034243 0 0 0 000000001000 0 000000001000 -ET0 034244 0 0 0 000000001000 0 000000001000 -ST1A 034244 0 0 0 000000001000 0 000000001000 -ST9 034244 0 0 0 000000001000 0 000000001000 - - -*034244 JUMPA 0,034245 -INITIAL -C(AC)=000000 001000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034244 034244 0 0 324000034245 0 000000034245 -IT1 034244 0 0 0 324000034245 0 000000034245 -AT3 034244 0 0 0 000000034245 0 324000034245 -AT6 034244 034245 0 0 000000034245 0 324000034245 -FT1A 034244 034245 0 0 000000034245 0 000000034245 -FT2 034244 034245 0 0 0 0 000000034245 -FT2RQ 034244 034245 0 0 000000001000 0 000000034245 -FT3 034244 034245 0 0 000000001000 0 000000034245 -FT9 034245 034245 0 0 000000001000 0 000000034245 -ET0 034245 034245 0 0 000000001000 0 000000034245 -ST1A 034245 034245 0 0 000000001000 0 000000034245 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 587 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0803 - -ST9 034245 034245 0 0 000000001000 0 000000034245 - - -*034245 MOVE 0,035062 -INITIAL -C(AC)=000000 001000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034245 034245 0 0 200000035062 0 0 -IT1 034245 0 0 0 200000035062 0 0 -AT3 034245 0 0 0 000000035062 0 200000035062 -AT6 034245 035062 0 0 000000035062 0 200000035062 -FT0 034245 035062 0 0 0 0 200000035062 -FT1A 034245 035062 0 0 0 0 0 -FT9 034246 035062 0 0 0 0 0 -ET0 034246 035062 0 0 0 0 0 -ST1 034246 035062 0 0 0 0 0 -ST2 034246 035062 0 0 0 0 0 -ST9 034246 035062 0 0 0 0 0 - - -*034246 EQV 0,035154 -INITIAL -C(AC)=000000 000000 -C(E)=777777 775777 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 034246 034246 0 0 444000035154 0 777777775777 -IT1 034246 0 0 0 444000035154 0 777777775777 -AT3 034246 0 0 0 000000035154 0 444000035154 -AT6 034246 035154 0 0 000000035154 0 444000035154 -FT0 034246 035154 0 0 777777775777 0 444000035154 -FT1A 034246 035154 0 0 777777775777 0 777777775777 -FT2 034246 035154 0 0 0 0 777777775777 -FT2RQ 034246 035154 0 0 0 0 777777775777 -FT3 034246 035154 0 0 0 0 777777775777 -FT9 034247 035154 0 0 0 0 777777775777 -ET0 034247 035154 0 0 000000002000 0 777777775777 -ST1 034247 035154 0 0 000000002000 0 777777775777 -ST2 034247 035154 0 0 000000002000 0 777777775777 -ST9 034247 035154 0 0 000000002000 0 777777775777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 588 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0804 - -*034247 SKIPN 0,000000 -INITIAL -C(AC)=000000 002000 -C(E)=000000 002000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 034247 034247 0 0 336000000000 0 000000002000 -IT1 034247 0 0 0 336000000000 0 000000002000 -AT3 034247 0 0 0 0 0 336000000000 -AT6 034247 0 0 0 0 0 336000000000 -FT0 034247 0 0 0 000000002000 0 336000000000 -FT1A 034247 0 0 0 000000002000 0 000000002000 -FT9 034250 0 0 0 000000002000 0 000000002000 -ET0 034251 0 0 0 000000002000 0 000000002000 -ST1A 034251 0 0 0 000000002000 0 000000002000 -ST9 034251 0 0 0 000000002000 0 000000002000 - - -*034251 JUMPA 0,034252 -INITIAL -C(AC)=000000 002000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034251 034251 0 0 324000034252 0 000000034252 -IT1 034251 0 0 0 324000034252 0 000000034252 -AT3 034251 0 0 0 000000034252 0 324000034252 -AT6 034251 034252 0 0 000000034252 0 324000034252 -FT1A 034251 034252 0 0 000000034252 0 000000034252 -FT2 034251 034252 0 0 0 0 000000034252 -FT2RQ 034251 034252 0 0 000000002000 0 000000034252 -FT3 034251 034252 0 0 000000002000 0 000000034252 -FT9 034252 034252 0 0 000000002000 0 000000034252 -ET0 034252 034252 0 0 000000002000 0 000000034252 -ST1A 034252 034252 0 0 000000002000 0 000000034252 -ST9 034252 034252 0 0 000000002000 0 000000034252 - - -*034252 MOVE 0,035062 -INITIAL -C(AC)=000000 002000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034252 034252 0 0 200000035062 0 0 -IT1 034252 0 0 0 200000035062 0 0 -AT3 034252 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 589 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0805 - -AT6 034252 035062 0 0 000000035062 0 200000035062 -FT0 034252 035062 0 0 0 0 200000035062 -FT1A 034252 035062 0 0 0 0 0 -FT9 034253 035062 0 0 0 0 0 -ET0 034253 035062 0 0 0 0 0 -ST1 034253 035062 0 0 0 0 0 -ST2 034253 035062 0 0 0 0 0 -ST9 034253 035062 0 0 0 0 0 - - -*034253 EQV 0,035155 -INITIAL -C(AC)=000000 000000 -C(E)=777777 773777 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 034253 034253 0 0 444000035155 0 777777773777 -IT1 034253 0 0 0 444000035155 0 777777773777 -AT3 034253 0 0 0 000000035155 0 444000035155 -AT6 034253 035155 0 0 000000035155 0 444000035155 -FT0 034253 035155 0 0 777777773777 0 444000035155 -FT1A 034253 035155 0 0 777777773777 0 777777773777 -FT2 034253 035155 0 0 0 0 777777773777 -FT2RQ 034253 035155 0 0 0 0 777777773777 -FT3 034253 035155 0 0 0 0 777777773777 -FT9 034254 035155 0 0 0 0 777777773777 -ET0 034254 035155 0 0 000000004000 0 777777773777 -ST1 034254 035155 0 0 000000004000 0 777777773777 -ST2 034254 035155 0 0 000000004000 0 777777773777 -ST9 034254 035155 0 0 000000004000 0 777777773777 - - -*034254 SKIPN 0,000000 -INITIAL -C(AC)=000000 004000 -C(E)=000000 004000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 034254 034254 0 0 336000000000 0 000000004000 -IT1 034254 0 0 0 336000000000 0 000000004000 -AT3 034254 0 0 0 0 0 336000000000 -AT6 034254 0 0 0 0 0 336000000000 -FT0 034254 0 0 0 000000004000 0 336000000000 -FT1A 034254 0 0 0 000000004000 0 000000004000 -FT9 034255 0 0 0 000000004000 0 000000004000 -ET0 034256 0 0 0 000000004000 0 000000004000 -ST1A 034256 0 0 0 000000004000 0 000000004000 -ST9 034256 0 0 0 000000004000 0 000000004000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 590 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0806 - - - -*034256 JUMPA 0,034257 -INITIAL -C(AC)=000000 004000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034256 034256 0 0 324000034257 0 000000034257 -IT1 034256 0 0 0 324000034257 0 000000034257 -AT3 034256 0 0 0 000000034257 0 324000034257 -AT6 034256 034257 0 0 000000034257 0 324000034257 -FT1A 034256 034257 0 0 000000034257 0 000000034257 -FT2 034256 034257 0 0 0 0 000000034257 -FT2RQ 034256 034257 0 0 000000004000 0 000000034257 -FT3 034256 034257 0 0 000000004000 0 000000034257 -FT9 034257 034257 0 0 000000004000 0 000000034257 -ET0 034257 034257 0 0 000000004000 0 000000034257 -ST1A 034257 034257 0 0 000000004000 0 000000034257 -ST9 034257 034257 0 0 000000004000 0 000000034257 - - -*034257 MOVE 0,035062 -INITIAL -C(AC)=000000 004000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034257 034257 0 0 200000035062 0 0 -IT1 034257 0 0 0 200000035062 0 0 -AT3 034257 0 0 0 000000035062 0 200000035062 -AT6 034257 035062 0 0 000000035062 0 200000035062 -FT0 034257 035062 0 0 0 0 200000035062 -FT1A 034257 035062 0 0 0 0 0 -FT9 034260 035062 0 0 0 0 0 -ET0 034260 035062 0 0 0 0 0 -ST1 034260 035062 0 0 0 0 0 -ST2 034260 035062 0 0 0 0 0 -ST9 034260 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 591 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0807 - -*034260 EQV 0,035156 -INITIAL -C(AC)=000000 000000 -C(E)=777777 767777 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 034260 034260 0 0 444000035156 0 777777767777 -IT1 034260 0 0 0 444000035156 0 777777767777 -AT3 034260 0 0 0 000000035156 0 444000035156 -AT6 034260 035156 0 0 000000035156 0 444000035156 -FT0 034260 035156 0 0 777777767777 0 444000035156 -FT1A 034260 035156 0 0 777777767777 0 777777767777 -FT2 034260 035156 0 0 0 0 777777767777 -FT2RQ 034260 035156 0 0 0 0 777777767777 -FT3 034260 035156 0 0 0 0 777777767777 -FT9 034261 035156 0 0 0 0 777777767777 -ET0 034261 035156 0 0 000000010000 0 777777767777 -ST1 034261 035156 0 0 000000010000 0 777777767777 -ST2 034261 035156 0 0 000000010000 0 777777767777 -ST9 034261 035156 0 0 000000010000 0 777777767777 - - -*034261 SKIPN 0,000000 -INITIAL -C(AC)=000000 010000 -C(E)=000000 010000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 034261 034261 0 0 336000000000 0 000000010000 -IT1 034261 0 0 0 336000000000 0 000000010000 -AT3 034261 0 0 0 0 0 336000000000 -AT6 034261 0 0 0 0 0 336000000000 -FT0 034261 0 0 0 000000010000 0 336000000000 -FT1A 034261 0 0 0 000000010000 0 000000010000 -FT9 034262 0 0 0 000000010000 0 000000010000 -ET0 034263 0 0 0 000000010000 0 000000010000 -ST1A 034263 0 0 0 000000010000 0 000000010000 -ST9 034263 0 0 0 000000010000 0 000000010000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 592 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0808 - -*034263 JUMPA 0,034264 -INITIAL -C(AC)=000000 010000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034263 034263 0 0 324000034264 0 000000034264 -IT1 034263 0 0 0 324000034264 0 000000034264 -AT3 034263 0 0 0 000000034264 0 324000034264 -AT6 034263 034264 0 0 000000034264 0 324000034264 -FT1A 034263 034264 0 0 000000034264 0 000000034264 -FT2 034263 034264 0 0 0 0 000000034264 -FT2RQ 034263 034264 0 0 000000010000 0 000000034264 -FT3 034263 034264 0 0 000000010000 0 000000034264 -FT9 034264 034264 0 0 000000010000 0 000000034264 -ET0 034264 034264 0 0 000000010000 0 000000034264 -ST1A 034264 034264 0 0 000000010000 0 000000034264 -ST9 034264 034264 0 0 000000010000 0 000000034264 - - -*034264 MOVE 0,035062 -INITIAL -C(AC)=000000 010000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034264 034264 0 0 200000035062 0 0 -IT1 034264 0 0 0 200000035062 0 0 -AT3 034264 0 0 0 000000035062 0 200000035062 -AT6 034264 035062 0 0 000000035062 0 200000035062 -FT0 034264 035062 0 0 0 0 200000035062 -FT1A 034264 035062 0 0 0 0 0 -FT9 034265 035062 0 0 0 0 0 -ET0 034265 035062 0 0 0 0 0 -ST1 034265 035062 0 0 0 0 0 -ST2 034265 035062 0 0 0 0 0 -ST9 034265 035062 0 0 0 0 0 - - -*034265 EQV 0,035157 -INITIAL -C(AC)=000000 000000 -C(E)=777777 757777 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 034265 034265 0 0 444000035157 0 777777757777 -IT1 034265 0 0 0 444000035157 0 777777757777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 593 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0809 - -AT3 034265 0 0 0 000000035157 0 444000035157 -AT6 034265 035157 0 0 000000035157 0 444000035157 -FT0 034265 035157 0 0 777777757777 0 444000035157 -FT1A 034265 035157 0 0 777777757777 0 777777757777 -FT2 034265 035157 0 0 0 0 777777757777 -FT2RQ 034265 035157 0 0 0 0 777777757777 -FT3 034265 035157 0 0 0 0 777777757777 -FT9 034266 035157 0 0 0 0 777777757777 -ET0 034266 035157 0 0 000000020000 0 777777757777 -ST1 034266 035157 0 0 000000020000 0 777777757777 -ST2 034266 035157 0 0 000000020000 0 777777757777 -ST9 034266 035157 0 0 000000020000 0 777777757777 - - -*034266 SKIPN 0,000000 -INITIAL -C(AC)=000000 020000 -C(E)=000000 020000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 034266 034266 0 0 336000000000 0 000000020000 -IT1 034266 0 0 0 336000000000 0 000000020000 -AT3 034266 0 0 0 0 0 336000000000 -AT6 034266 0 0 0 0 0 336000000000 -FT0 034266 0 0 0 000000020000 0 336000000000 -FT1A 034266 0 0 0 000000020000 0 000000020000 -FT9 034267 0 0 0 000000020000 0 000000020000 -ET0 034270 0 0 0 000000020000 0 000000020000 -ST1A 034270 0 0 0 000000020000 0 000000020000 -ST9 034270 0 0 0 000000020000 0 000000020000 - - -*034270 JUMPA 0,034271 -INITIAL -C(AC)=000000 020000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034270 034270 0 0 324000034271 0 000000034271 -IT1 034270 0 0 0 324000034271 0 000000034271 -AT3 034270 0 0 0 000000034271 0 324000034271 -AT6 034270 034271 0 0 000000034271 0 324000034271 -FT1A 034270 034271 0 0 000000034271 0 000000034271 -FT2 034270 034271 0 0 0 0 000000034271 -FT2RQ 034270 034271 0 0 000000020000 0 000000034271 -FT3 034270 034271 0 0 000000020000 0 000000034271 -FT9 034271 034271 0 0 000000020000 0 000000034271 -ET0 034271 034271 0 0 000000020000 0 000000034271 -ST1A 034271 034271 0 0 000000020000 0 000000034271 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 594 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0810 - -ST9 034271 034271 0 0 000000020000 0 000000034271 - - -*034271 MOVE 0,035062 -INITIAL -C(AC)=000000 020000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034271 034271 0 0 200000035062 0 0 -IT1 034271 0 0 0 200000035062 0 0 -AT3 034271 0 0 0 000000035062 0 200000035062 -AT6 034271 035062 0 0 000000035062 0 200000035062 -FT0 034271 035062 0 0 0 0 200000035062 -FT1A 034271 035062 0 0 0 0 0 -FT9 034272 035062 0 0 0 0 0 -ET0 034272 035062 0 0 0 0 0 -ST1 034272 035062 0 0 0 0 0 -ST2 034272 035062 0 0 0 0 0 -ST9 034272 035062 0 0 0 0 0 - - -*034272 EQV 0,035160 -INITIAL -C(AC)=000000 000000 -C(E)=777777 737777 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 034272 034272 0 0 444000035160 0 777777737777 -IT1 034272 0 0 0 444000035160 0 777777737777 -AT3 034272 0 0 0 000000035160 0 444000035160 -AT6 034272 035160 0 0 000000035160 0 444000035160 -FT0 034272 035160 0 0 777777737777 0 444000035160 -FT1A 034272 035160 0 0 777777737777 0 777777737777 -FT2 034272 035160 0 0 0 0 777777737777 -FT2RQ 034272 035160 0 0 0 0 777777737777 -FT3 034272 035160 0 0 0 0 777777737777 -FT9 034273 035160 0 0 0 0 777777737777 -ET0 034273 035160 0 0 000000040000 0 777777737777 -ST1 034273 035160 0 0 000000040000 0 777777737777 -ST2 034273 035160 0 0 000000040000 0 777777737777 -ST9 034273 035160 0 0 000000040000 0 777777737777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 595 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0811 - -*034273 SKIPN 0,000000 -INITIAL -C(AC)=000000 040000 -C(E)=000000 040000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 034273 034273 0 0 336000000000 0 000000040000 -IT1 034273 0 0 0 336000000000 0 000000040000 -AT3 034273 0 0 0 0 0 336000000000 -AT6 034273 0 0 0 0 0 336000000000 -FT0 034273 0 0 0 000000040000 0 336000000000 -FT1A 034273 0 0 0 000000040000 0 000000040000 -FT9 034274 0 0 0 000000040000 0 000000040000 -ET0 034275 0 0 0 000000040000 0 000000040000 -ST1A 034275 0 0 0 000000040000 0 000000040000 -ST9 034275 0 0 0 000000040000 0 000000040000 - - -*034275 JUMPA 0,034276 -INITIAL -C(AC)=000000 040000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034275 034275 0 0 324000034276 0 000000034276 -IT1 034275 0 0 0 324000034276 0 000000034276 -AT3 034275 0 0 0 000000034276 0 324000034276 -AT6 034275 034276 0 0 000000034276 0 324000034276 -FT1A 034275 034276 0 0 000000034276 0 000000034276 -FT2 034275 034276 0 0 0 0 000000034276 -FT2RQ 034275 034276 0 0 000000040000 0 000000034276 -FT3 034275 034276 0 0 000000040000 0 000000034276 -FT9 034276 034276 0 0 000000040000 0 000000034276 -ET0 034276 034276 0 0 000000040000 0 000000034276 -ST1A 034276 034276 0 0 000000040000 0 000000034276 -ST9 034276 034276 0 0 000000040000 0 000000034276 - - -*034276 MOVE 0,035062 -INITIAL -C(AC)=000000 040000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034276 034276 0 0 200000035062 0 0 -IT1 034276 0 0 0 200000035062 0 0 -AT3 034276 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 596 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0812 - -AT6 034276 035062 0 0 000000035062 0 200000035062 -FT0 034276 035062 0 0 0 0 200000035062 -FT1A 034276 035062 0 0 0 0 0 -FT9 034277 035062 0 0 0 0 0 -ET0 034277 035062 0 0 0 0 0 -ST1 034277 035062 0 0 0 0 0 -ST2 034277 035062 0 0 0 0 0 -ST9 034277 035062 0 0 0 0 0 - - -*034277 EQV 0,035161 -INITIAL -C(AC)=000000 000000 -C(E)=777777 677777 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 034277 034277 0 0 444000035161 0 777777677777 -IT1 034277 0 0 0 444000035161 0 777777677777 -AT3 034277 0 0 0 000000035161 0 444000035161 -AT6 034277 035161 0 0 000000035161 0 444000035161 -FT0 034277 035161 0 0 777777677777 0 444000035161 -FT1A 034277 035161 0 0 777777677777 0 777777677777 -FT2 034277 035161 0 0 0 0 777777677777 -FT2RQ 034277 035161 0 0 0 0 777777677777 -FT3 034277 035161 0 0 0 0 777777677777 -FT9 0 035161 0 0 0 0 777777677777 -ET0 0 035161 0 0 000000100000 0 777777677777 -ST1 0 035161 0 0 000000100000 0 777777677777 -ST2 0 035161 0 0 000000100000 0 777777677777 -ST9 0 035161 0 0 000000100000 0 777777677777 - - -*034300 SKIPN 0,000000 -INITIAL -C(AC)=000000 100000 -C(E)=000000 100000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 336000000000 0 000000100000 -IT1 0 0 0 0 336000000000 0 000000100000 -AT3 0 0 0 0 0 0 336000000000 -AT6 0 0 0 0 0 0 336000000000 -FT0 0 0 0 0 000000100000 0 336000000000 -FT1A 0 0 0 0 000000100000 0 000000100000 -FT9 034301 0 0 0 000000100000 0 000000100000 -ET0 034302 0 0 0 000000100000 0 000000100000 -ST1A 034302 0 0 0 000000100000 0 000000100000 -ST9 034302 0 0 0 000000100000 0 000000100000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 597 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0813 - - - -*034302 JUMPA 0,034303 -INITIAL -C(AC)=000000 100000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034302 034302 0 0 324000034303 0 000000034303 -IT1 034302 0 0 0 324000034303 0 000000034303 -AT3 034302 0 0 0 000000034303 0 324000034303 -AT6 034302 034303 0 0 000000034303 0 324000034303 -FT1A 034302 034303 0 0 000000034303 0 000000034303 -FT2 034302 034303 0 0 0 0 000000034303 -FT2RQ 034302 034303 0 0 000000100000 0 000000034303 -FT3 034302 034303 0 0 000000100000 0 000000034303 -FT9 034303 034303 0 0 000000100000 0 000000034303 -ET0 034303 034303 0 0 000000100000 0 000000034303 -ST1A 034303 034303 0 0 000000100000 0 000000034303 -ST9 034303 034303 0 0 000000100000 0 000000034303 - - -*034303 MOVE 0,035062 -INITIAL -C(AC)=000000 100000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034303 034303 0 0 200000035062 0 0 -IT1 034303 0 0 0 200000035062 0 0 -AT3 034303 0 0 0 000000035062 0 200000035062 -AT6 034303 035062 0 0 000000035062 0 200000035062 -FT0 034303 035062 0 0 0 0 200000035062 -FT1A 034303 035062 0 0 0 0 0 -FT9 034304 035062 0 0 0 0 0 -ET0 034304 035062 0 0 0 0 0 -ST1 034304 035062 0 0 0 0 0 -ST2 034304 035062 0 0 0 0 0 -ST9 034304 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 598 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0814 - -*034304 EQV 0,035162 -INITIAL -C(AC)=000000 000000 -C(E)=777777 577777 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 034304 034304 0 0 444000035162 0 777777577777 -IT1 034304 0 0 0 444000035162 0 777777577777 -AT3 034304 0 0 0 000000035162 0 444000035162 -AT6 034304 035162 0 0 000000035162 0 444000035162 -FT0 034304 035162 0 0 777777577777 0 444000035162 -FT1A 034304 035162 0 0 777777577777 0 777777577777 -FT2 034304 035162 0 0 0 0 777777577777 -FT2RQ 034304 035162 0 0 0 0 777777577777 -FT3 034304 035162 0 0 0 0 777777577777 -FT9 034305 035162 0 0 0 0 777777577777 -ET0 034305 035162 0 0 000000200000 0 777777577777 -ST1 034305 035162 0 0 000000200000 0 777777577777 -ST2 034305 035162 0 0 000000200000 0 777777577777 -ST9 034305 035162 0 0 000000200000 0 777777577777 - - -*034305 SKIPN 0,000000 -INITIAL -C(AC)=000000 200000 -C(E)=000000 200000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 034305 034305 0 0 336000000000 0 000000200000 -IT1 034305 0 0 0 336000000000 0 000000200000 -AT3 034305 0 0 0 0 0 336000000000 -AT6 034305 0 0 0 0 0 336000000000 -FT0 034305 0 0 0 000000200000 0 336000000000 -FT1A 034305 0 0 0 000000200000 0 000000200000 -FT9 034306 0 0 0 000000200000 0 000000200000 -ET0 034307 0 0 0 000000200000 0 000000200000 -ST1A 034307 0 0 0 000000200000 0 000000200000 -ST9 034307 0 0 0 000000200000 0 000000200000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 599 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0815 - -*034307 JUMPA 0,034310 -INITIAL -C(AC)=000000 200000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034307 034307 0 0 324000034310 0 000000034310 -IT1 034307 0 0 0 324000034310 0 000000034310 -AT3 034307 0 0 0 000000034310 0 324000034310 -AT6 034307 034310 0 0 000000034310 0 324000034310 -FT1A 034307 034310 0 0 000000034310 0 000000034310 -FT2 034307 034310 0 0 0 0 000000034310 -FT2RQ 034307 034310 0 0 000000200000 0 000000034310 -FT3 034307 034310 0 0 000000200000 0 000000034310 -FT9 034310 034310 0 0 000000200000 0 000000034310 -ET0 034310 034310 0 0 000000200000 0 000000034310 -ST1A 034310 034310 0 0 000000200000 0 000000034310 -ST9 034310 034310 0 0 000000200000 0 000000034310 - - -*034310 MOVE 0,035062 -INITIAL -C(AC)=000000 200000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034310 034310 0 0 200000035062 0 0 -IT1 034310 0 0 0 200000035062 0 0 -AT3 034310 0 0 0 000000035062 0 200000035062 -AT6 034310 035062 0 0 000000035062 0 200000035062 -FT0 034310 035062 0 0 0 0 200000035062 -FT1A 034310 035062 0 0 0 0 0 -FT9 034311 035062 0 0 0 0 0 -ET0 034311 035062 0 0 0 0 0 -ST1 034311 035062 0 0 0 0 0 -ST2 034311 035062 0 0 0 0 0 -ST9 034311 035062 0 0 0 0 0 - - -*034311 EQV 0,035163 -INITIAL -C(AC)=000000 000000 -C(E)=777777 377777 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 034311 034311 0 0 444000035163 0 777777377777 -IT1 034311 0 0 0 444000035163 0 777777377777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 600 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0816 - -AT3 034311 0 0 0 000000035163 0 444000035163 -AT6 034311 035163 0 0 000000035163 0 444000035163 -FT0 034311 035163 0 0 777777377777 0 444000035163 -FT1A 034311 035163 0 0 777777377777 0 777777377777 -FT2 034311 035163 0 0 0 0 777777377777 -FT2RQ 034311 035163 0 0 0 0 777777377777 -FT3 034311 035163 0 0 0 0 777777377777 -FT9 034312 035163 0 0 0 0 777777377777 -ET0 034312 035163 0 0 000000400000 0 777777377777 -ST1 034312 035163 0 0 000000400000 0 777777377777 -ST2 034312 035163 0 0 000000400000 0 777777377777 -ST9 034312 035163 0 0 000000400000 0 777777377777 - - -*034312 SKIPN 0,000000 -INITIAL -C(AC)=000000 400000 -C(E)=000000 400000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 034312 034312 0 0 336000000000 0 000000400000 -IT1 034312 0 0 0 336000000000 0 000000400000 -AT3 034312 0 0 0 0 0 336000000000 -AT6 034312 0 0 0 0 0 336000000000 -FT0 034312 0 0 0 000000400000 0 336000000000 -FT1A 034312 0 0 0 000000400000 0 000000400000 -FT9 034313 0 0 0 000000400000 0 000000400000 -ET0 034314 0 0 0 000000400000 0 000000400000 -ST1A 034314 0 0 0 000000400000 0 000000400000 -ST9 034314 0 0 0 000000400000 0 000000400000 - - -*034314 JUMPA 0,034315 -INITIAL -C(AC)=000000 400000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034314 034314 0 0 324000034315 0 000000034315 -IT1 034314 0 0 0 324000034315 0 000000034315 -AT3 034314 0 0 0 000000034315 0 324000034315 -AT6 034314 034315 0 0 000000034315 0 324000034315 -FT1A 034314 034315 0 0 000000034315 0 000000034315 -FT2 034314 034315 0 0 0 0 000000034315 -FT2RQ 034314 034315 0 0 000000400000 0 000000034315 -FT3 034314 034315 0 0 000000400000 0 000000034315 -FT9 034315 034315 0 0 000000400000 0 000000034315 -ET0 034315 034315 0 0 000000400000 0 000000034315 -ST1A 034315 034315 0 0 000000400000 0 000000034315 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 601 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0817 - -ST9 034315 034315 0 0 000000400000 0 000000034315 - - -*034315 MOVE 0,035062 -INITIAL -C(AC)=000000 400000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034315 034315 0 0 200000035062 0 0 -IT1 034315 0 0 0 200000035062 0 0 -AT3 034315 0 0 0 000000035062 0 200000035062 -AT6 034315 035062 0 0 000000035062 0 200000035062 -FT0 034315 035062 0 0 0 0 200000035062 -FT1A 034315 035062 0 0 0 0 0 -FT9 034316 035062 0 0 0 0 0 -ET0 034316 035062 0 0 0 0 0 -ST1 034316 035062 0 0 0 0 0 -ST2 034316 035062 0 0 0 0 0 -ST9 034316 035062 0 0 0 0 0 - - -*034316 EQV 0,035164 -INITIAL -C(AC)=000000 000000 -C(E)=777776 777777 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034316 034316 0 0 444000035164 0 777776777777 -IT1 034316 0 0 0 444000035164 0 777776777777 -AT3 034316 0 0 0 000000035164 0 444000035164 -AT6 034316 035164 0 0 000000035164 0 444000035164 -FT0 034316 035164 0 0 777776777777 0 444000035164 -FT1A 034316 035164 0 0 777776777777 0 777776777777 -FT2 034316 035164 0 0 0 0 777776777777 -FT2RQ 034316 035164 0 0 0 0 777776777777 -FT3 034316 035164 0 0 0 0 777776777777 -FT9 034317 035164 0 0 0 0 777776777777 -ET0 034317 035164 0 0 000001000000 0 777776777777 -ST1 034317 035164 0 0 000001000000 0 777776777777 -ST2 034317 035164 0 0 000001000000 0 777776777777 -ST9 034317 035164 0 0 000001000000 0 777776777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 602 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0818 - -*034317 SKIPN 0,000000 -INITIAL -C(AC)=000001 000000 -C(E)=000001 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034317 034317 0 0 336000000000 0 000001000000 -IT1 034317 0 0 0 336000000000 0 000001000000 -AT3 034317 0 0 0 0 0 336000000000 -AT6 034317 0 0 0 0 0 336000000000 -FT0 034317 0 0 0 000001000000 0 336000000000 -FT1A 034317 0 0 0 000001000000 0 000001000000 -FT9 034320 0 0 0 000001000000 0 000001000000 -ET0 034321 0 0 0 000001000000 0 000001000000 -ST1A 034321 0 0 0 000001000000 0 000001000000 -ST9 034321 0 0 0 000001000000 0 000001000000 - - -*034321 JUMPA 0,034322 -INITIAL -C(AC)=000001 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034321 034321 0 0 324000034322 0 000000034322 -IT1 034321 0 0 0 324000034322 0 000000034322 -AT3 034321 0 0 0 000000034322 0 324000034322 -AT6 034321 034322 0 0 000000034322 0 324000034322 -FT1A 034321 034322 0 0 000000034322 0 000000034322 -FT2 034321 034322 0 0 0 0 000000034322 -FT2RQ 034321 034322 0 0 000001000000 0 000000034322 -FT3 034321 034322 0 0 000001000000 0 000000034322 -FT9 034322 034322 0 0 000001000000 0 000000034322 -ET0 034322 034322 0 0 000001000000 0 000000034322 -ST1A 034322 034322 0 0 000001000000 0 000000034322 -ST9 034322 034322 0 0 000001000000 0 000000034322 - - -*034322 MOVE 0,035062 -INITIAL -C(AC)=000001 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034322 034322 0 0 200000035062 0 0 -IT1 034322 0 0 0 200000035062 0 0 -AT3 034322 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 603 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0819 - -AT6 034322 035062 0 0 000000035062 0 200000035062 -FT0 034322 035062 0 0 0 0 200000035062 -FT1A 034322 035062 0 0 0 0 0 -FT9 034323 035062 0 0 0 0 0 -ET0 034323 035062 0 0 0 0 0 -ST1 034323 035062 0 0 0 0 0 -ST2 034323 035062 0 0 0 0 0 -ST9 034323 035062 0 0 0 0 0 - - -*034323 EQV 0,035165 -INITIAL -C(AC)=000000 000000 -C(E)=777775 777777 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034323 034323 0 0 444000035165 0 777775777777 -IT1 034323 0 0 0 444000035165 0 777775777777 -AT3 034323 0 0 0 000000035165 0 444000035165 -AT6 034323 035165 0 0 000000035165 0 444000035165 -FT0 034323 035165 0 0 777775777777 0 444000035165 -FT1A 034323 035165 0 0 777775777777 0 777775777777 -FT2 034323 035165 0 0 0 0 777775777777 -FT2RQ 034323 035165 0 0 0 0 777775777777 -FT3 034323 035165 0 0 0 0 777775777777 -FT9 034324 035165 0 0 0 0 777775777777 -ET0 034324 035165 0 0 000002000000 0 777775777777 -ST1 034324 035165 0 0 000002000000 0 777775777777 -ST2 034324 035165 0 0 000002000000 0 777775777777 -ST9 034324 035165 0 0 000002000000 0 777775777777 - - -*034324 SKIPN 0,000000 -INITIAL -C(AC)=000002 000000 -C(E)=000002 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034324 034324 0 0 336000000000 0 000002000000 -IT1 034324 0 0 0 336000000000 0 000002000000 -AT3 034324 0 0 0 0 0 336000000000 -AT6 034324 0 0 0 0 0 336000000000 -FT0 034324 0 0 0 000002000000 0 336000000000 -FT1A 034324 0 0 0 000002000000 0 000002000000 -FT9 034325 0 0 0 000002000000 0 000002000000 -ET0 034326 0 0 0 000002000000 0 000002000000 -ST1A 034326 0 0 0 000002000000 0 000002000000 -ST9 034326 0 0 0 000002000000 0 000002000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 604 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0820 - - - -*034326 JUMPA 0,034327 -INITIAL -C(AC)=000002 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034326 034326 0 0 324000034327 0 000000034327 -IT1 034326 0 0 0 324000034327 0 000000034327 -AT3 034326 0 0 0 000000034327 0 324000034327 -AT6 034326 034327 0 0 000000034327 0 324000034327 -FT1A 034326 034327 0 0 000000034327 0 000000034327 -FT2 034326 034327 0 0 0 0 000000034327 -FT2RQ 034326 034327 0 0 000002000000 0 000000034327 -FT3 034326 034327 0 0 000002000000 0 000000034327 -FT9 034327 034327 0 0 000002000000 0 000000034327 -ET0 034327 034327 0 0 000002000000 0 000000034327 -ST1A 034327 034327 0 0 000002000000 0 000000034327 -ST9 034327 034327 0 0 000002000000 0 000000034327 - - -*034327 MOVE 0,035062 -INITIAL -C(AC)=000002 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034327 034327 0 0 200000035062 0 0 -IT1 034327 0 0 0 200000035062 0 0 -AT3 034327 0 0 0 000000035062 0 200000035062 -AT6 034327 035062 0 0 000000035062 0 200000035062 -FT0 034327 035062 0 0 0 0 200000035062 -FT1A 034327 035062 0 0 0 0 0 -FT9 034330 035062 0 0 0 0 0 -ET0 034330 035062 0 0 0 0 0 -ST1 034330 035062 0 0 0 0 0 -ST2 034330 035062 0 0 0 0 0 -ST9 034330 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 605 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0821 - -*034330 EQV 0,035166 -INITIAL -C(AC)=000000 000000 -C(E)=777773 777777 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034330 034330 0 0 444000035166 0 777773777777 -IT1 034330 0 0 0 444000035166 0 777773777777 -AT3 034330 0 0 0 000000035166 0 444000035166 -AT6 034330 035166 0 0 000000035166 0 444000035166 -FT0 034330 035166 0 0 777773777777 0 444000035166 -FT1A 034330 035166 0 0 777773777777 0 777773777777 -FT2 034330 035166 0 0 0 0 777773777777 -FT2RQ 034330 035166 0 0 0 0 777773777777 -FT3 034330 035166 0 0 0 0 777773777777 -FT9 034331 035166 0 0 0 0 777773777777 -ET0 034331 035166 0 0 000004000000 0 777773777777 -ST1 034331 035166 0 0 000004000000 0 777773777777 -ST2 034331 035166 0 0 000004000000 0 777773777777 -ST9 034331 035166 0 0 000004000000 0 777773777777 - - -*034331 SKIPN 0,000000 -INITIAL -C(AC)=000004 000000 -C(E)=000004 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034331 034331 0 0 336000000000 0 000004000000 -IT1 034331 0 0 0 336000000000 0 000004000000 -AT3 034331 0 0 0 0 0 336000000000 -AT6 034331 0 0 0 0 0 336000000000 -FT0 034331 0 0 0 000004000000 0 336000000000 -FT1A 034331 0 0 0 000004000000 0 000004000000 -FT9 034332 0 0 0 000004000000 0 000004000000 -ET0 034333 0 0 0 000004000000 0 000004000000 -ST1A 034333 0 0 0 000004000000 0 000004000000 -ST9 034333 0 0 0 000004000000 0 000004000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 606 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0822 - -*034333 JUMPA 0,034334 -INITIAL -C(AC)=000004 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034333 034333 0 0 324000034334 0 000000034334 -IT1 034333 0 0 0 324000034334 0 000000034334 -AT3 034333 0 0 0 000000034334 0 324000034334 -AT6 034333 034334 0 0 000000034334 0 324000034334 -FT1A 034333 034334 0 0 000000034334 0 000000034334 -FT2 034333 034334 0 0 0 0 000000034334 -FT2RQ 034333 034334 0 0 000004000000 0 000000034334 -FT3 034333 034334 0 0 000004000000 0 000000034334 -FT9 034334 034334 0 0 000004000000 0 000000034334 -ET0 034334 034334 0 0 000004000000 0 000000034334 -ST1A 034334 034334 0 0 000004000000 0 000000034334 -ST9 034334 034334 0 0 000004000000 0 000000034334 - - -*034334 MOVE 0,035062 -INITIAL -C(AC)=000004 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034334 034334 0 0 200000035062 0 0 -IT1 034334 0 0 0 200000035062 0 0 -AT3 034334 0 0 0 000000035062 0 200000035062 -AT6 034334 035062 0 0 000000035062 0 200000035062 -FT0 034334 035062 0 0 0 0 200000035062 -FT1A 034334 035062 0 0 0 0 0 -FT9 034335 035062 0 0 0 0 0 -ET0 034335 035062 0 0 0 0 0 -ST1 034335 035062 0 0 0 0 0 -ST2 034335 035062 0 0 0 0 0 -ST9 034335 035062 0 0 0 0 0 - - -*034335 EQV 0,035167 -INITIAL -C(AC)=000000 000000 -C(E)=777767 777777 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034335 034335 0 0 444000035167 0 777767777777 -IT1 034335 0 0 0 444000035167 0 777767777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 607 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0823 - -AT3 034335 0 0 0 000000035167 0 444000035167 -AT6 034335 035167 0 0 000000035167 0 444000035167 -FT0 034335 035167 0 0 777767777777 0 444000035167 -FT1A 034335 035167 0 0 777767777777 0 777767777777 -FT2 034335 035167 0 0 0 0 777767777777 -FT2RQ 034335 035167 0 0 0 0 777767777777 -FT3 034335 035167 0 0 0 0 777767777777 -FT9 034336 035167 0 0 0 0 777767777777 -ET0 034336 035167 0 0 000010000000 0 777767777777 -ST1 034336 035167 0 0 000010000000 0 777767777777 -ST2 034336 035167 0 0 000010000000 0 777767777777 -ST9 034336 035167 0 0 000010000000 0 777767777777 - - -*034336 SKIPN 0,000000 -INITIAL -C(AC)=000010 000000 -C(E)=000010 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034336 034336 0 0 336000000000 0 000010000000 -IT1 034336 0 0 0 336000000000 0 000010000000 -AT3 034336 0 0 0 0 0 336000000000 -AT6 034336 0 0 0 0 0 336000000000 -FT0 034336 0 0 0 000010000000 0 336000000000 -FT1A 034336 0 0 0 000010000000 0 000010000000 -FT9 034337 0 0 0 000010000000 0 000010000000 -ET0 034340 0 0 0 000010000000 0 000010000000 -ST1A 034340 0 0 0 000010000000 0 000010000000 -ST9 034340 0 0 0 000010000000 0 000010000000 - - -*034340 JUMPA 0,034341 -INITIAL -C(AC)=000010 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034340 034340 0 0 324000034341 0 000000034341 -IT1 034340 0 0 0 324000034341 0 000000034341 -AT3 034340 0 0 0 000000034341 0 324000034341 -AT6 034340 034341 0 0 000000034341 0 324000034341 -FT1A 034340 034341 0 0 000000034341 0 000000034341 -FT2 034340 034341 0 0 0 0 000000034341 -FT2RQ 034340 034341 0 0 000010000000 0 000000034341 -FT3 034340 034341 0 0 000010000000 0 000000034341 -FT9 034341 034341 0 0 000010000000 0 000000034341 -ET0 034341 034341 0 0 000010000000 0 000000034341 -ST1A 034341 034341 0 0 000010000000 0 000000034341 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 608 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0824 - -ST9 034341 034341 0 0 000010000000 0 000000034341 - - -*034341 MOVE 0,035062 -INITIAL -C(AC)=000010 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034341 034341 0 0 200000035062 0 0 -IT1 034341 0 0 0 200000035062 0 0 -AT3 034341 0 0 0 000000035062 0 200000035062 -AT6 034341 035062 0 0 000000035062 0 200000035062 -FT0 034341 035062 0 0 0 0 200000035062 -FT1A 034341 035062 0 0 0 0 0 -FT9 034342 035062 0 0 0 0 0 -ET0 034342 035062 0 0 0 0 0 -ST1 034342 035062 0 0 0 0 0 -ST2 034342 035062 0 0 0 0 0 -ST9 034342 035062 0 0 0 0 0 - - -*034342 EQV 0,035170 -INITIAL -C(AC)=000000 000000 -C(E)=777757 777777 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034342 034342 0 0 444000035170 0 777757777777 -IT1 034342 0 0 0 444000035170 0 777757777777 -AT3 034342 0 0 0 000000035170 0 444000035170 -AT6 034342 035170 0 0 000000035170 0 444000035170 -FT0 034342 035170 0 0 777757777777 0 444000035170 -FT1A 034342 035170 0 0 777757777777 0 777757777777 -FT2 034342 035170 0 0 0 0 777757777777 -FT2RQ 034342 035170 0 0 0 0 777757777777 -FT3 034342 035170 0 0 0 0 777757777777 -FT9 034343 035170 0 0 0 0 777757777777 -ET0 034343 035170 0 0 000020000000 0 777757777777 -ST1 034343 035170 0 0 000020000000 0 777757777777 -ST2 034343 035170 0 0 000020000000 0 777757777777 -ST9 034343 035170 0 0 000020000000 0 777757777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 609 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0825 - -*034343 SKIPN 0,000000 -INITIAL -C(AC)=000020 000000 -C(E)=000020 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034343 034343 0 0 336000000000 0 000020000000 -IT1 034343 0 0 0 336000000000 0 000020000000 -AT3 034343 0 0 0 0 0 336000000000 -AT6 034343 0 0 0 0 0 336000000000 -FT0 034343 0 0 0 000020000000 0 336000000000 -FT1A 034343 0 0 0 000020000000 0 000020000000 -FT9 034344 0 0 0 000020000000 0 000020000000 -ET0 034345 0 0 0 000020000000 0 000020000000 -ST1A 034345 0 0 0 000020000000 0 000020000000 -ST9 034345 0 0 0 000020000000 0 000020000000 - - -*034345 JUMPA 0,034346 -INITIAL -C(AC)=000020 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034345 034345 0 0 324000034346 0 000000034346 -IT1 034345 0 0 0 324000034346 0 000000034346 -AT3 034345 0 0 0 000000034346 0 324000034346 -AT6 034345 034346 0 0 000000034346 0 324000034346 -FT1A 034345 034346 0 0 000000034346 0 000000034346 -FT2 034345 034346 0 0 0 0 000000034346 -FT2RQ 034345 034346 0 0 000020000000 0 000000034346 -FT3 034345 034346 0 0 000020000000 0 000000034346 -FT9 034346 034346 0 0 000020000000 0 000000034346 -ET0 034346 034346 0 0 000020000000 0 000000034346 -ST1A 034346 034346 0 0 000020000000 0 000000034346 -ST9 034346 034346 0 0 000020000000 0 000000034346 - - -*034346 MOVE 0,035062 -INITIAL -C(AC)=000020 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034346 034346 0 0 200000035062 0 0 -IT1 034346 0 0 0 200000035062 0 0 -AT3 034346 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 610 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0826 - -AT6 034346 035062 0 0 000000035062 0 200000035062 -FT0 034346 035062 0 0 0 0 200000035062 -FT1A 034346 035062 0 0 0 0 0 -FT9 034347 035062 0 0 0 0 0 -ET0 034347 035062 0 0 0 0 0 -ST1 034347 035062 0 0 0 0 0 -ST2 034347 035062 0 0 0 0 0 -ST9 034347 035062 0 0 0 0 0 - - -*034347 EQV 0,035171 -INITIAL -C(AC)=000000 000000 -C(E)=777737 777777 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034347 034347 0 0 444000035171 0 777737777777 -IT1 034347 0 0 0 444000035171 0 777737777777 -AT3 034347 0 0 0 000000035171 0 444000035171 -AT6 034347 035171 0 0 000000035171 0 444000035171 -FT0 034347 035171 0 0 777737777777 0 444000035171 -FT1A 034347 035171 0 0 777737777777 0 777737777777 -FT2 034347 035171 0 0 0 0 777737777777 -FT2RQ 034347 035171 0 0 0 0 777737777777 -FT3 034347 035171 0 0 0 0 777737777777 -FT9 034350 035171 0 0 0 0 777737777777 -ET0 034350 035171 0 0 000040000000 0 777737777777 -ST1 034350 035171 0 0 000040000000 0 777737777777 -ST2 034350 035171 0 0 000040000000 0 777737777777 -ST9 034350 035171 0 0 000040000000 0 777737777777 - - -*034350 SKIPN 0,000000 -INITIAL -C(AC)=000040 000000 -C(E)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034350 034350 0 0 336000000000 0 000040000000 -IT1 034350 0 0 0 336000000000 0 000040000000 -AT3 034350 0 0 0 0 0 336000000000 -AT6 034350 0 0 0 0 0 336000000000 -FT0 034350 0 0 0 000040000000 0 336000000000 -FT1A 034350 0 0 0 000040000000 0 000040000000 -FT9 034351 0 0 0 000040000000 0 000040000000 -ET0 034352 0 0 0 000040000000 0 000040000000 -ST1A 034352 0 0 0 000040000000 0 000040000000 -ST9 034352 0 0 0 000040000000 0 000040000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 611 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0827 - - - -*034352 JUMPA 0,034353 -INITIAL -C(AC)=000040 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034352 034352 0 0 324000034353 0 000000034353 -IT1 034352 0 0 0 324000034353 0 000000034353 -AT3 034352 0 0 0 000000034353 0 324000034353 -AT6 034352 034353 0 0 000000034353 0 324000034353 -FT1A 034352 034353 0 0 000000034353 0 000000034353 -FT2 034352 034353 0 0 0 0 000000034353 -FT2RQ 034352 034353 0 0 000040000000 0 000000034353 -FT3 034352 034353 0 0 000040000000 0 000000034353 -FT9 034353 034353 0 0 000040000000 0 000000034353 -ET0 034353 034353 0 0 000040000000 0 000000034353 -ST1A 034353 034353 0 0 000040000000 0 000000034353 -ST9 034353 034353 0 0 000040000000 0 000000034353 - - -*034353 MOVE 0,035062 -INITIAL -C(AC)=000040 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034353 034353 0 0 200000035062 0 0 -IT1 034353 0 0 0 200000035062 0 0 -AT3 034353 0 0 0 000000035062 0 200000035062 -AT6 034353 035062 0 0 000000035062 0 200000035062 -FT0 034353 035062 0 0 0 0 200000035062 -FT1A 034353 035062 0 0 0 0 0 -FT9 034354 035062 0 0 0 0 0 -ET0 034354 035062 0 0 0 0 0 -ST1 034354 035062 0 0 0 0 0 -ST2 034354 035062 0 0 0 0 0 -ST9 034354 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 612 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0828 - -*034354 EQV 0,035172 -INITIAL -C(AC)=000000 000000 -C(E)=777677 777777 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034354 034354 0 0 444000035172 0 777677777777 -IT1 034354 0 0 0 444000035172 0 777677777777 -AT3 034354 0 0 0 000000035172 0 444000035172 -AT6 034354 035172 0 0 000000035172 0 444000035172 -FT0 034354 035172 0 0 777677777777 0 444000035172 -FT1A 034354 035172 0 0 777677777777 0 777677777777 -FT2 034354 035172 0 0 0 0 777677777777 -FT2RQ 034354 035172 0 0 0 0 777677777777 -FT3 034354 035172 0 0 0 0 777677777777 -FT9 034355 035172 0 0 0 0 777677777777 -ET0 034355 035172 0 0 000100000000 0 777677777777 -ST1 034355 035172 0 0 000100000000 0 777677777777 -ST2 034355 035172 0 0 000100000000 0 777677777777 -ST9 034355 035172 0 0 000100000000 0 777677777777 - - -*034355 SKIPN 0,000000 -INITIAL -C(AC)=000100 000000 -C(E)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034355 034355 0 0 336000000000 0 000100000000 -IT1 034355 0 0 0 336000000000 0 000100000000 -AT3 034355 0 0 0 0 0 336000000000 -AT6 034355 0 0 0 0 0 336000000000 -FT0 034355 0 0 0 000100000000 0 336000000000 -FT1A 034355 0 0 0 000100000000 0 000100000000 -FT9 034356 0 0 0 000100000000 0 000100000000 -ET0 034357 0 0 0 000100000000 0 000100000000 -ST1A 034357 0 0 0 000100000000 0 000100000000 -ST9 034357 0 0 0 000100000000 0 000100000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 613 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0829 - -*034357 JUMPA 0,034360 -INITIAL -C(AC)=000100 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034357 034357 0 0 324000034360 0 000000034360 -IT1 034357 0 0 0 324000034360 0 000000034360 -AT3 034357 0 0 0 000000034360 0 324000034360 -AT6 034357 034360 0 0 000000034360 0 324000034360 -FT1A 034357 034360 0 0 000000034360 0 000000034360 -FT2 034357 034360 0 0 0 0 000000034360 -FT2RQ 034357 034360 0 0 000100000000 0 000000034360 -FT3 034357 034360 0 0 000100000000 0 000000034360 -FT9 034360 034360 0 0 000100000000 0 000000034360 -ET0 034360 034360 0 0 000100000000 0 000000034360 -ST1A 034360 034360 0 0 000100000000 0 000000034360 -ST9 034360 034360 0 0 000100000000 0 000000034360 - - -*034360 MOVE 0,035062 -INITIAL -C(AC)=000100 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034360 034360 0 0 200000035062 0 0 -IT1 034360 0 0 0 200000035062 0 0 -AT3 034360 0 0 0 000000035062 0 200000035062 -AT6 034360 035062 0 0 000000035062 0 200000035062 -FT0 034360 035062 0 0 0 0 200000035062 -FT1A 034360 035062 0 0 0 0 0 -FT9 034361 035062 0 0 0 0 0 -ET0 034361 035062 0 0 0 0 0 -ST1 034361 035062 0 0 0 0 0 -ST2 034361 035062 0 0 0 0 0 -ST9 034361 035062 0 0 0 0 0 - - -*034361 EQV 0,035173 -INITIAL -C(AC)=000000 000000 -C(E)=777577 777777 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034361 034361 0 0 444000035173 0 777577777777 -IT1 034361 0 0 0 444000035173 0 777577777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 614 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0830 - -AT3 034361 0 0 0 000000035173 0 444000035173 -AT6 034361 035173 0 0 000000035173 0 444000035173 -FT0 034361 035173 0 0 777577777777 0 444000035173 -FT1A 034361 035173 0 0 777577777777 0 777577777777 -FT2 034361 035173 0 0 0 0 777577777777 -FT2RQ 034361 035173 0 0 0 0 777577777777 -FT3 034361 035173 0 0 0 0 777577777777 -FT9 034362 035173 0 0 0 0 777577777777 -ET0 034362 035173 0 0 000200000000 0 777577777777 -ST1 034362 035173 0 0 000200000000 0 777577777777 -ST2 034362 035173 0 0 000200000000 0 777577777777 -ST9 034362 035173 0 0 000200000000 0 777577777777 - - -*034362 SKIPN 0,000000 -INITIAL -C(AC)=000200 000000 -C(E)=000200 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034362 034362 0 0 336000000000 0 000200000000 -IT1 034362 0 0 0 336000000000 0 000200000000 -AT3 034362 0 0 0 0 0 336000000000 -AT6 034362 0 0 0 0 0 336000000000 -FT0 034362 0 0 0 000200000000 0 336000000000 -FT1A 034362 0 0 0 000200000000 0 000200000000 -FT9 034363 0 0 0 000200000000 0 000200000000 -ET0 034364 0 0 0 000200000000 0 000200000000 -ST1A 034364 0 0 0 000200000000 0 000200000000 -ST9 034364 0 0 0 000200000000 0 000200000000 - - -*034364 JUMPA 0,034365 -INITIAL -C(AC)=000200 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034364 034364 0 0 324000034365 0 000000034365 -IT1 034364 0 0 0 324000034365 0 000000034365 -AT3 034364 0 0 0 000000034365 0 324000034365 -AT6 034364 034365 0 0 000000034365 0 324000034365 -FT1A 034364 034365 0 0 000000034365 0 000000034365 -FT2 034364 034365 0 0 0 0 000000034365 -FT2RQ 034364 034365 0 0 000200000000 0 000000034365 -FT3 034364 034365 0 0 000200000000 0 000000034365 -FT9 034365 034365 0 0 000200000000 0 000000034365 -ET0 034365 034365 0 0 000200000000 0 000000034365 -ST1A 034365 034365 0 0 000200000000 0 000000034365 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 615 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0831 - -ST9 034365 034365 0 0 000200000000 0 000000034365 - - -*034365 MOVE 0,035062 -INITIAL -C(AC)=000200 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034365 034365 0 0 200000035062 0 0 -IT1 034365 0 0 0 200000035062 0 0 -AT3 034365 0 0 0 000000035062 0 200000035062 -AT6 034365 035062 0 0 000000035062 0 200000035062 -FT0 034365 035062 0 0 0 0 200000035062 -FT1A 034365 035062 0 0 0 0 0 -FT9 034366 035062 0 0 0 0 0 -ET0 034366 035062 0 0 0 0 0 -ST1 034366 035062 0 0 0 0 0 -ST2 034366 035062 0 0 0 0 0 -ST9 034366 035062 0 0 0 0 0 - - -*034366 EQV 0,035174 -INITIAL -C(AC)=000000 000000 -C(E)=777377 777777 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034366 034366 0 0 444000035174 0 777377777777 -IT1 034366 0 0 0 444000035174 0 777377777777 -AT3 034366 0 0 0 000000035174 0 444000035174 -AT6 034366 035174 0 0 000000035174 0 444000035174 -FT0 034366 035174 0 0 777377777777 0 444000035174 -FT1A 034366 035174 0 0 777377777777 0 777377777777 -FT2 034366 035174 0 0 0 0 777377777777 -FT2RQ 034366 035174 0 0 0 0 777377777777 -FT3 034366 035174 0 0 0 0 777377777777 -FT9 034367 035174 0 0 0 0 777377777777 -ET0 034367 035174 0 0 000400000000 0 777377777777 -ST1 034367 035174 0 0 000400000000 0 777377777777 -ST2 034367 035174 0 0 000400000000 0 777377777777 -ST9 034367 035174 0 0 000400000000 0 777377777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 616 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0832 - -*034367 SKIPN 0,000000 -INITIAL -C(AC)=000400 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034367 034367 0 0 336000000000 0 000400000000 -IT1 034367 0 0 0 336000000000 0 000400000000 -AT3 034367 0 0 0 0 0 336000000000 -AT6 034367 0 0 0 0 0 336000000000 -FT0 034367 0 0 0 000400000000 0 336000000000 -FT1A 034367 0 0 0 000400000000 0 000400000000 -FT9 034370 0 0 0 000400000000 0 000400000000 -ET0 034371 0 0 0 000400000000 0 000400000000 -ST1A 034371 0 0 0 000400000000 0 000400000000 -ST9 034371 0 0 0 000400000000 0 000400000000 - - -*034371 JUMPA 0,034372 -INITIAL -C(AC)=000400 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034371 034371 0 0 324000034372 0 000000034372 -IT1 034371 0 0 0 324000034372 0 000000034372 -AT3 034371 0 0 0 000000034372 0 324000034372 -AT6 034371 034372 0 0 000000034372 0 324000034372 -FT1A 034371 034372 0 0 000000034372 0 000000034372 -FT2 034371 034372 0 0 0 0 000000034372 -FT2RQ 034371 034372 0 0 000400000000 0 000000034372 -FT3 034371 034372 0 0 000400000000 0 000000034372 -FT9 034372 034372 0 0 000400000000 0 000000034372 -ET0 034372 034372 0 0 000400000000 0 000000034372 -ST1A 034372 034372 0 0 000400000000 0 000000034372 -ST9 034372 034372 0 0 000400000000 0 000000034372 - - -*034372 MOVE 0,035062 -INITIAL -C(AC)=000400 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034372 034372 0 0 200000035062 0 0 -IT1 034372 0 0 0 200000035062 0 0 -AT3 034372 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 617 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0833 - -AT6 034372 035062 0 0 000000035062 0 200000035062 -FT0 034372 035062 0 0 0 0 200000035062 -FT1A 034372 035062 0 0 0 0 0 -FT9 034373 035062 0 0 0 0 0 -ET0 034373 035062 0 0 0 0 0 -ST1 034373 035062 0 0 0 0 0 -ST2 034373 035062 0 0 0 0 0 -ST9 034373 035062 0 0 0 0 0 - - -*034373 EQV 0,035175 -INITIAL -C(AC)=000000 000000 -C(E)=776777 777777 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034373 034373 0 0 444000035175 0 776777777777 -IT1 034373 0 0 0 444000035175 0 776777777777 -AT3 034373 0 0 0 000000035175 0 444000035175 -AT6 034373 035175 0 0 000000035175 0 444000035175 -FT0 034373 035175 0 0 776777777777 0 444000035175 -FT1A 034373 035175 0 0 776777777777 0 776777777777 -FT2 034373 035175 0 0 0 0 776777777777 -FT2RQ 034373 035175 0 0 0 0 776777777777 -FT3 034373 035175 0 0 0 0 776777777777 -FT9 034374 035175 0 0 0 0 776777777777 -ET0 034374 035175 0 0 001000000000 0 776777777777 -ST1 034374 035175 0 0 001000000000 0 776777777777 -ST2 034374 035175 0 0 001000000000 0 776777777777 -ST9 034374 035175 0 0 001000000000 0 776777777777 - - -*034374 SKIPN 0,000000 -INITIAL -C(AC)=001000 000000 -C(E)=001000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034374 034374 0 0 336000000000 0 001000000000 -IT1 034374 0 0 0 336000000000 0 001000000000 -AT3 034374 0 0 0 0 0 336000000000 -AT6 034374 0 0 0 0 0 336000000000 -FT0 034374 0 0 0 001000000000 0 336000000000 -FT1A 034374 0 0 0 001000000000 0 001000000000 -FT9 034375 0 0 0 001000000000 0 001000000000 -ET0 034376 0 0 0 001000000000 0 001000000000 -ST1A 034376 0 0 0 001000000000 0 001000000000 -ST9 034376 0 0 0 001000000000 0 001000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 618 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0834 - - - -*034376 JUMPA 0,034377 -INITIAL -C(AC)=001000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034376 034376 0 0 324000034377 0 000000034377 -IT1 034376 0 0 0 324000034377 0 000000034377 -AT3 034376 0 0 0 000000034377 0 324000034377 -AT6 034376 034377 0 0 000000034377 0 324000034377 -FT1A 034376 034377 0 0 000000034377 0 000000034377 -FT2 034376 034377 0 0 0 0 000000034377 -FT2RQ 034376 034377 0 0 001000000000 0 000000034377 -FT3 034376 034377 0 0 001000000000 0 000000034377 -FT9 034377 034377 0 0 001000000000 0 000000034377 -ET0 034377 034377 0 0 001000000000 0 000000034377 -ST1A 034377 034377 0 0 001000000000 0 000000034377 -ST9 034377 034377 0 0 001000000000 0 000000034377 - - -*034377 MOVE 0,035062 -INITIAL -C(AC)=001000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034377 034377 0 0 200000035062 0 0 -IT1 034377 0 0 0 200000035062 0 0 -AT3 034377 0 0 0 000000035062 0 200000035062 -AT6 034377 035062 0 0 000000035062 0 200000035062 -FT0 034377 035062 0 0 0 0 200000035062 -FT1A 034377 035062 0 0 0 0 0 -FT9 0 035062 0 0 0 0 0 -ET0 0 035062 0 0 0 0 0 -ST1 0 035062 0 0 0 0 0 -ST2 0 035062 0 0 0 0 0 -ST9 0 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 619 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0835 - -*034400 EQV 0,035176 -INITIAL -C(AC)=000000 000000 -C(E)=775777 777777 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 444000035176 0 775777777777 -IT1 0 0 0 0 444000035176 0 775777777777 -AT3 0 0 0 0 000000035176 0 444000035176 -AT6 0 035176 0 0 000000035176 0 444000035176 -FT0 0 035176 0 0 775777777777 0 444000035176 -FT1A 0 035176 0 0 775777777777 0 775777777777 -FT2 0 035176 0 0 0 0 775777777777 -FT2RQ 0 035176 0 0 0 0 775777777777 -FT3 0 035176 0 0 0 0 775777777777 -FT9 034401 035176 0 0 0 0 775777777777 -ET0 034401 035176 0 0 002000000000 0 775777777777 -ST1 034401 035176 0 0 002000000000 0 775777777777 -ST2 034401 035176 0 0 002000000000 0 775777777777 -ST9 034401 035176 0 0 002000000000 0 775777777777 - - -*034401 SKIPN 0,000000 -INITIAL -C(AC)=002000 000000 -C(E)=002000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034401 034401 0 0 336000000000 0 002000000000 -IT1 034401 0 0 0 336000000000 0 002000000000 -AT3 034401 0 0 0 0 0 336000000000 -AT6 034401 0 0 0 0 0 336000000000 -FT0 034401 0 0 0 002000000000 0 336000000000 -FT1A 034401 0 0 0 002000000000 0 002000000000 -FT9 034402 0 0 0 002000000000 0 002000000000 -ET0 034403 0 0 0 002000000000 0 002000000000 -ST1A 034403 0 0 0 002000000000 0 002000000000 -ST9 034403 0 0 0 002000000000 0 002000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 620 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0836 - -*034403 JUMPA 0,034404 -INITIAL -C(AC)=002000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034403 034403 0 0 324000034404 0 000000034404 -IT1 034403 0 0 0 324000034404 0 000000034404 -AT3 034403 0 0 0 000000034404 0 324000034404 -AT6 034403 034404 0 0 000000034404 0 324000034404 -FT1A 034403 034404 0 0 000000034404 0 000000034404 -FT2 034403 034404 0 0 0 0 000000034404 -FT2RQ 034403 034404 0 0 002000000000 0 000000034404 -FT3 034403 034404 0 0 002000000000 0 000000034404 -FT9 034404 034404 0 0 002000000000 0 000000034404 -ET0 034404 034404 0 0 002000000000 0 000000034404 -ST1A 034404 034404 0 0 002000000000 0 000000034404 -ST9 034404 034404 0 0 002000000000 0 000000034404 - - -*034404 MOVE 0,035062 -INITIAL -C(AC)=002000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034404 034404 0 0 200000035062 0 0 -IT1 034404 0 0 0 200000035062 0 0 -AT3 034404 0 0 0 000000035062 0 200000035062 -AT6 034404 035062 0 0 000000035062 0 200000035062 -FT0 034404 035062 0 0 0 0 200000035062 -FT1A 034404 035062 0 0 0 0 0 -FT9 034405 035062 0 0 0 0 0 -ET0 034405 035062 0 0 0 0 0 -ST1 034405 035062 0 0 0 0 0 -ST2 034405 035062 0 0 0 0 0 -ST9 034405 035062 0 0 0 0 0 - - -*034405 EQV 0,035177 -INITIAL -C(AC)=000000 000000 -C(E)=773777 777777 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034405 034405 0 0 444000035177 0 773777777777 -IT1 034405 0 0 0 444000035177 0 773777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 621 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0837 - -AT3 034405 0 0 0 000000035177 0 444000035177 -AT6 034405 035177 0 0 000000035177 0 444000035177 -FT0 034405 035177 0 0 773777777777 0 444000035177 -FT1A 034405 035177 0 0 773777777777 0 773777777777 -FT2 034405 035177 0 0 0 0 773777777777 -FT2RQ 034405 035177 0 0 0 0 773777777777 -FT3 034405 035177 0 0 0 0 773777777777 -FT9 034406 035177 0 0 0 0 773777777777 -ET0 034406 035177 0 0 004000000000 0 773777777777 -ST1 034406 035177 0 0 004000000000 0 773777777777 -ST2 034406 035177 0 0 004000000000 0 773777777777 -ST9 034406 035177 0 0 004000000000 0 773777777777 - - -*034406 SKIPN 0,000000 -INITIAL -C(AC)=004000 000000 -C(E)=004000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034406 034406 0 0 336000000000 0 004000000000 -IT1 034406 0 0 0 336000000000 0 004000000000 -AT3 034406 0 0 0 0 0 336000000000 -AT6 034406 0 0 0 0 0 336000000000 -FT0 034406 0 0 0 004000000000 0 336000000000 -FT1A 034406 0 0 0 004000000000 0 004000000000 -FT9 034407 0 0 0 004000000000 0 004000000000 -ET0 034410 0 0 0 004000000000 0 004000000000 -ST1A 034410 0 0 0 004000000000 0 004000000000 -ST9 034410 0 0 0 004000000000 0 004000000000 - - -*034410 JUMPA 0,034411 -INITIAL -C(AC)=004000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034410 034410 0 0 324000034411 0 000000034411 -IT1 034410 0 0 0 324000034411 0 000000034411 -AT3 034410 0 0 0 000000034411 0 324000034411 -AT6 034410 034411 0 0 000000034411 0 324000034411 -FT1A 034410 034411 0 0 000000034411 0 000000034411 -FT2 034410 034411 0 0 0 0 000000034411 -FT2RQ 034410 034411 0 0 004000000000 0 000000034411 -FT3 034410 034411 0 0 004000000000 0 000000034411 -FT9 034411 034411 0 0 004000000000 0 000000034411 -ET0 034411 034411 0 0 004000000000 0 000000034411 -ST1A 034411 034411 0 0 004000000000 0 000000034411 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 622 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0838 - -ST9 034411 034411 0 0 004000000000 0 000000034411 - - -*034411 MOVE 0,035062 -INITIAL -C(AC)=004000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034411 034411 0 0 200000035062 0 0 -IT1 034411 0 0 0 200000035062 0 0 -AT3 034411 0 0 0 000000035062 0 200000035062 -AT6 034411 035062 0 0 000000035062 0 200000035062 -FT0 034411 035062 0 0 0 0 200000035062 -FT1A 034411 035062 0 0 0 0 0 -FT9 034412 035062 0 0 0 0 0 -ET0 034412 035062 0 0 0 0 0 -ST1 034412 035062 0 0 0 0 0 -ST2 034412 035062 0 0 0 0 0 -ST9 034412 035062 0 0 0 0 0 - - -*034412 EQV 0,035200 -INITIAL -C(AC)=000000 000000 -C(E)=767777 777777 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034412 034412 0 0 444000035200 0 767777777777 -IT1 034412 0 0 0 444000035200 0 767777777777 -AT3 034412 0 0 0 000000035200 0 444000035200 -AT6 034412 0 0 0 000000035200 0 444000035200 -FT0 034412 0 0 0 767777777777 0 444000035200 -FT1A 034412 0 0 0 767777777777 0 767777777777 -FT2 034412 0 0 0 0 0 767777777777 -FT2RQ 034412 0 0 0 0 0 767777777777 -FT3 034412 0 0 0 0 0 767777777777 -FT9 034413 0 0 0 0 0 767777777777 -ET0 034413 0 0 0 010000000000 0 767777777777 -ST1 034413 0 0 0 010000000000 0 767777777777 -ST2 034413 0 0 0 010000000000 0 767777777777 -ST9 034413 0 0 0 010000000000 0 767777777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 623 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0839 - -*034413 SKIPN 0,000000 -INITIAL -C(AC)=010000 000000 -C(E)=010000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034413 034413 0 0 336000000000 0 010000000000 -IT1 034413 0 0 0 336000000000 0 010000000000 -AT3 034413 0 0 0 0 0 336000000000 -AT6 034413 0 0 0 0 0 336000000000 -FT0 034413 0 0 0 010000000000 0 336000000000 -FT1A 034413 0 0 0 010000000000 0 010000000000 -FT9 034414 0 0 0 010000000000 0 010000000000 -ET0 034415 0 0 0 010000000000 0 010000000000 -ST1A 034415 0 0 0 010000000000 0 010000000000 -ST9 034415 0 0 0 010000000000 0 010000000000 - - -*034415 JUMPA 0,034416 -INITIAL -C(AC)=010000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034415 034415 0 0 324000034416 0 000000034416 -IT1 034415 0 0 0 324000034416 0 000000034416 -AT3 034415 0 0 0 000000034416 0 324000034416 -AT6 034415 034416 0 0 000000034416 0 324000034416 -FT1A 034415 034416 0 0 000000034416 0 000000034416 -FT2 034415 034416 0 0 0 0 000000034416 -FT2RQ 034415 034416 0 0 010000000000 0 000000034416 -FT3 034415 034416 0 0 010000000000 0 000000034416 -FT9 034416 034416 0 0 010000000000 0 000000034416 -ET0 034416 034416 0 0 010000000000 0 000000034416 -ST1A 034416 034416 0 0 010000000000 0 000000034416 -ST9 034416 034416 0 0 010000000000 0 000000034416 - - -*034416 MOVE 0,035062 -INITIAL -C(AC)=010000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034416 034416 0 0 200000035062 0 0 -IT1 034416 0 0 0 200000035062 0 0 -AT3 034416 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 624 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0840 - -AT6 034416 035062 0 0 000000035062 0 200000035062 -FT0 034416 035062 0 0 0 0 200000035062 -FT1A 034416 035062 0 0 0 0 0 -FT9 034417 035062 0 0 0 0 0 -ET0 034417 035062 0 0 0 0 0 -ST1 034417 035062 0 0 0 0 0 -ST2 034417 035062 0 0 0 0 0 -ST9 034417 035062 0 0 0 0 0 - - -*034417 EQV 0,035201 -INITIAL -C(AC)=000000 000000 -C(E)=757777 777777 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034417 034417 0 0 444000035201 0 757777777777 -IT1 034417 0 0 0 444000035201 0 757777777777 -AT3 034417 0 0 0 000000035201 0 444000035201 -AT6 034417 035201 0 0 000000035201 0 444000035201 -FT0 034417 035201 0 0 757777777777 0 444000035201 -FT1A 034417 035201 0 0 757777777777 0 757777777777 -FT2 034417 035201 0 0 0 0 757777777777 -FT2RQ 034417 035201 0 0 0 0 757777777777 -FT3 034417 035201 0 0 0 0 757777777777 -FT9 034420 035201 0 0 0 0 757777777777 -ET0 034420 035201 0 0 020000000000 0 757777777777 -ST1 034420 035201 0 0 020000000000 0 757777777777 -ST2 034420 035201 0 0 020000000000 0 757777777777 -ST9 034420 035201 0 0 020000000000 0 757777777777 - - -*034420 SKIPN 0,000000 -INITIAL -C(AC)=020000 000000 -C(E)=020000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034420 034420 0 0 336000000000 0 020000000000 -IT1 034420 0 0 0 336000000000 0 020000000000 -AT3 034420 0 0 0 0 0 336000000000 -AT6 034420 0 0 0 0 0 336000000000 -FT0 034420 0 0 0 020000000000 0 336000000000 -FT1A 034420 0 0 0 020000000000 0 020000000000 -FT9 034421 0 0 0 020000000000 0 020000000000 -ET0 034422 0 0 0 020000000000 0 020000000000 -ST1A 034422 0 0 0 020000000000 0 020000000000 -ST9 034422 0 0 0 020000000000 0 020000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 625 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0841 - - - -*034422 JUMPA 0,034423 -INITIAL -C(AC)=020000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034422 034422 0 0 324000034423 0 000000034423 -IT1 034422 0 0 0 324000034423 0 000000034423 -AT3 034422 0 0 0 000000034423 0 324000034423 -AT6 034422 034423 0 0 000000034423 0 324000034423 -FT1A 034422 034423 0 0 000000034423 0 000000034423 -FT2 034422 034423 0 0 0 0 000000034423 -FT2RQ 034422 034423 0 0 020000000000 0 000000034423 -FT3 034422 034423 0 0 020000000000 0 000000034423 -FT9 034423 034423 0 0 020000000000 0 000000034423 -ET0 034423 034423 0 0 020000000000 0 000000034423 -ST1A 034423 034423 0 0 020000000000 0 000000034423 -ST9 034423 034423 0 0 020000000000 0 000000034423 - - -*034423 MOVE 0,035062 -INITIAL -C(AC)=020000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034423 034423 0 0 200000035062 0 0 -IT1 034423 0 0 0 200000035062 0 0 -AT3 034423 0 0 0 000000035062 0 200000035062 -AT6 034423 035062 0 0 000000035062 0 200000035062 -FT0 034423 035062 0 0 0 0 200000035062 -FT1A 034423 035062 0 0 0 0 0 -FT9 034424 035062 0 0 0 0 0 -ET0 034424 035062 0 0 0 0 0 -ST1 034424 035062 0 0 0 0 0 -ST2 034424 035062 0 0 0 0 0 -ST9 034424 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 626 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0842 - -*034424 EQV 0,035202 -INITIAL -C(AC)=000000 000000 -C(E)=737777 777777 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034424 034424 0 0 444000035202 0 737777777777 -IT1 034424 0 0 0 444000035202 0 737777777777 -AT3 034424 0 0 0 000000035202 0 444000035202 -AT6 034424 035202 0 0 000000035202 0 444000035202 -FT0 034424 035202 0 0 737777777777 0 444000035202 -FT1A 034424 035202 0 0 737777777777 0 737777777777 -FT2 034424 035202 0 0 0 0 737777777777 -FT2RQ 034424 035202 0 0 0 0 737777777777 -FT3 034424 035202 0 0 0 0 737777777777 -FT9 034425 035202 0 0 0 0 737777777777 -ET0 034425 035202 0 0 040000000000 0 737777777777 -ST1 034425 035202 0 0 040000000000 0 737777777777 -ST2 034425 035202 0 0 040000000000 0 737777777777 -ST9 034425 035202 0 0 040000000000 0 737777777777 - - -*034425 SKIPN 0,000000 -INITIAL -C(AC)=040000 000000 -C(E)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034425 034425 0 0 336000000000 0 040000000000 -IT1 034425 0 0 0 336000000000 0 040000000000 -AT3 034425 0 0 0 0 0 336000000000 -AT6 034425 0 0 0 0 0 336000000000 -FT0 034425 0 0 0 040000000000 0 336000000000 -FT1A 034425 0 0 0 040000000000 0 040000000000 -FT9 034426 0 0 0 040000000000 0 040000000000 -ET0 034427 0 0 0 040000000000 0 040000000000 -ST1A 034427 0 0 0 040000000000 0 040000000000 -ST9 034427 0 0 0 040000000000 0 040000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 627 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0843 - -*034427 JUMPA 0,034430 -INITIAL -C(AC)=040000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034427 034427 0 0 324000034430 0 000000034430 -IT1 034427 0 0 0 324000034430 0 000000034430 -AT3 034427 0 0 0 000000034430 0 324000034430 -AT6 034427 034430 0 0 000000034430 0 324000034430 -FT1A 034427 034430 0 0 000000034430 0 000000034430 -FT2 034427 034430 0 0 0 0 000000034430 -FT2RQ 034427 034430 0 0 040000000000 0 000000034430 -FT3 034427 034430 0 0 040000000000 0 000000034430 -FT9 034430 034430 0 0 040000000000 0 000000034430 -ET0 034430 034430 0 0 040000000000 0 000000034430 -ST1A 034430 034430 0 0 040000000000 0 000000034430 -ST9 034430 034430 0 0 040000000000 0 000000034430 - - -*034430 MOVE 0,035062 -INITIAL -C(AC)=040000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034430 034430 0 0 200000035062 0 0 -IT1 034430 0 0 0 200000035062 0 0 -AT3 034430 0 0 0 000000035062 0 200000035062 -AT6 034430 035062 0 0 000000035062 0 200000035062 -FT0 034430 035062 0 0 0 0 200000035062 -FT1A 034430 035062 0 0 0 0 0 -FT9 034431 035062 0 0 0 0 0 -ET0 034431 035062 0 0 0 0 0 -ST1 034431 035062 0 0 0 0 0 -ST2 034431 035062 0 0 0 0 0 -ST9 034431 035062 0 0 0 0 0 - - -*034431 EQV 0,035203 -INITIAL -C(AC)=000000 000000 -C(E)=677777 777777 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034431 034431 0 0 444000035203 0 677777777777 -IT1 034431 0 0 0 444000035203 0 677777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 628 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0844 - -AT3 034431 0 0 0 000000035203 0 444000035203 -AT6 034431 035203 0 0 000000035203 0 444000035203 -FT0 034431 035203 0 0 677777777777 0 444000035203 -FT1A 034431 035203 0 0 677777777777 0 677777777777 -FT2 034431 035203 0 0 0 0 677777777777 -FT2RQ 034431 035203 0 0 0 0 677777777777 -FT3 034431 035203 0 0 0 0 677777777777 -FT9 034432 035203 0 0 0 0 677777777777 -ET0 034432 035203 0 0 100000000000 0 677777777777 -ST1 034432 035203 0 0 100000000000 0 677777777777 -ST2 034432 035203 0 0 100000000000 0 677777777777 -ST9 034432 035203 0 0 100000000000 0 677777777777 - - -*034432 SKIPN 0,000000 -INITIAL -C(AC)=100000 000000 -C(E)=100000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034432 034432 0 0 336000000000 0 100000000000 -IT1 034432 0 0 0 336000000000 0 100000000000 -AT3 034432 0 0 0 0 0 336000000000 -AT6 034432 0 0 0 0 0 336000000000 -FT0 034432 0 0 0 100000000000 0 336000000000 -FT1A 034432 0 0 0 100000000000 0 100000000000 -FT9 034433 0 0 0 100000000000 0 100000000000 -ET0 034434 0 0 0 100000000000 0 100000000000 -ST1A 034434 0 0 0 100000000000 0 100000000000 -ST9 034434 0 0 0 100000000000 0 100000000000 - - -*034434 JUMPA 0,034435 -INITIAL -C(AC)=100000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034434 034434 0 0 324000034435 0 000000034435 -IT1 034434 0 0 0 324000034435 0 000000034435 -AT3 034434 0 0 0 000000034435 0 324000034435 -AT6 034434 034435 0 0 000000034435 0 324000034435 -FT1A 034434 034435 0 0 000000034435 0 000000034435 -FT2 034434 034435 0 0 0 0 000000034435 -FT2RQ 034434 034435 0 0 100000000000 0 000000034435 -FT3 034434 034435 0 0 100000000000 0 000000034435 -FT9 034435 034435 0 0 100000000000 0 000000034435 -ET0 034435 034435 0 0 100000000000 0 000000034435 -ST1A 034435 034435 0 0 100000000000 0 000000034435 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 629 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0845 - -ST9 034435 034435 0 0 100000000000 0 000000034435 - - -*034435 MOVE 0,035062 -INITIAL -C(AC)=100000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034435 034435 0 0 200000035062 0 0 -IT1 034435 0 0 0 200000035062 0 0 -AT3 034435 0 0 0 000000035062 0 200000035062 -AT6 034435 035062 0 0 000000035062 0 200000035062 -FT0 034435 035062 0 0 0 0 200000035062 -FT1A 034435 035062 0 0 0 0 0 -FT9 034436 035062 0 0 0 0 0 -ET0 034436 035062 0 0 0 0 0 -ST1 034436 035062 0 0 0 0 0 -ST2 034436 035062 0 0 0 0 0 -ST9 034436 035062 0 0 0 0 0 - - -*034436 EQV 0,035204 -INITIAL -C(AC)=000000 000000 -C(E)=577777 777777 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034436 034436 0 0 444000035204 0 577777777777 -IT1 034436 0 0 0 444000035204 0 577777777777 -AT3 034436 0 0 0 000000035204 0 444000035204 -AT6 034436 035204 0 0 000000035204 0 444000035204 -FT0 034436 035204 0 0 577777777777 0 444000035204 -FT1A 034436 035204 0 0 577777777777 0 577777777777 -FT2 034436 035204 0 0 0 0 577777777777 -FT2RQ 034436 035204 0 0 0 0 577777777777 -FT3 034436 035204 0 0 0 0 577777777777 -FT9 034437 035204 0 0 0 0 577777777777 -ET0 034437 035204 0 0 200000000000 0 577777777777 -ST1 034437 035204 0 0 200000000000 0 577777777777 -ST2 034437 035204 0 0 200000000000 0 577777777777 -ST9 034437 035204 0 0 200000000000 0 577777777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 630 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0846 - -*034437 SKIPN 0,000000 -INITIAL -C(AC)=200000 000000 -C(E)=200000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034437 034437 0 0 336000000000 0 200000000000 -IT1 034437 0 0 0 336000000000 0 200000000000 -AT3 034437 0 0 0 0 0 336000000000 -AT6 034437 0 0 0 0 0 336000000000 -FT0 034437 0 0 0 200000000000 0 336000000000 -FT1A 034437 0 0 0 200000000000 0 200000000000 -FT9 034440 0 0 0 200000000000 0 200000000000 -ET0 034441 0 0 0 200000000000 0 200000000000 -ST1A 034441 0 0 0 200000000000 0 200000000000 -ST9 034441 0 0 0 200000000000 0 200000000000 - - -*034441 JUMPA 0,034442 -INITIAL -C(AC)=200000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034441 034441 0 0 324000034442 0 000000034442 -IT1 034441 0 0 0 324000034442 0 000000034442 -AT3 034441 0 0 0 000000034442 0 324000034442 -AT6 034441 034442 0 0 000000034442 0 324000034442 -FT1A 034441 034442 0 0 000000034442 0 000000034442 -FT2 034441 034442 0 0 0 0 000000034442 -FT2RQ 034441 034442 0 0 200000000000 0 000000034442 -FT3 034441 034442 0 0 200000000000 0 000000034442 -FT9 034442 034442 0 0 200000000000 0 000000034442 -ET0 034442 034442 0 0 200000000000 0 000000034442 -ST1A 034442 034442 0 0 200000000000 0 000000034442 -ST9 034442 034442 0 0 200000000000 0 000000034442 - - -*034442 MOVE 0,035062 -INITIAL -C(AC)=200000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034442 034442 0 0 200000035062 0 0 -IT1 034442 0 0 0 200000035062 0 0 -AT3 034442 0 0 0 000000035062 0 200000035062 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 631 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0847 - -AT6 034442 035062 0 0 000000035062 0 200000035062 -FT0 034442 035062 0 0 0 0 200000035062 -FT1A 034442 035062 0 0 0 0 0 -FT9 034443 035062 0 0 0 0 0 -ET0 034443 035062 0 0 0 0 0 -ST1 034443 035062 0 0 0 0 0 -ST2 034443 035062 0 0 0 0 0 -ST9 034443 035062 0 0 0 0 0 - - -*034443 EQV 0,035064 -INITIAL -C(AC)=000000 000000 -C(E)=377777 777777 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034443 034443 0 0 444000035064 0 377777777777 -IT1 034443 0 0 0 444000035064 0 377777777777 -AT3 034443 0 0 0 000000035064 0 444000035064 -AT6 034443 035064 0 0 000000035064 0 444000035064 -FT0 034443 035064 0 0 377777777777 0 444000035064 -FT1A 034443 035064 0 0 377777777777 0 377777777777 -FT2 034443 035064 0 0 0 0 377777777777 -FT2RQ 034443 035064 0 0 0 0 377777777777 -FT3 034443 035064 0 0 0 0 377777777777 -FT9 034444 035064 0 0 0 0 377777777777 -ET0 034444 035064 0 0 400000000000 0 377777777777 -ST1 034444 035064 0 0 400000000000 0 377777777777 -ST2 034444 035064 0 0 400000000000 0 377777777777 -ST9 034444 035064 0 0 400000000000 0 377777777777 - - -*034444 SKIPN 0,000000 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034444 034444 0 0 336000000000 0 400000000000 -IT1 034444 0 0 0 336000000000 0 400000000000 -AT3 034444 0 0 0 0 0 336000000000 -AT6 034444 0 0 0 0 0 336000000000 -FT0 034444 0 0 0 400000000000 0 336000000000 -FT1A 034444 0 0 0 400000000000 0 400000000000 -FT9 034445 0 0 0 400000000000 0 400000000000 -ET0 034446 0 0 0 400000000000 0 400000000000 -ST1A 034446 0 0 0 400000000000 0 400000000000 -ST9 034446 0 0 0 400000000000 0 400000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 632 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0848 - - - -*034446 JUMPA 0,034447 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034446 034446 0 0 324000034447 0 000000034447 -IT1 034446 0 0 0 324000034447 0 000000034447 -AT3 034446 0 0 0 000000034447 0 324000034447 -AT6 034446 034447 0 0 000000034447 0 324000034447 -FT1A 034446 034447 0 0 000000034447 0 000000034447 -FT2 034446 034447 0 0 0 0 000000034447 -FT2RQ 034446 034447 0 0 400000000000 0 000000034447 -FT3 034446 034447 0 0 400000000000 0 000000034447 -FT9 034447 034447 0 0 400000000000 0 000000034447 -ET0 034447 034447 0 0 400000000000 0 000000034447 -ST1A 034447 034447 0 0 400000000000 0 000000034447 -ST9 034447 034447 0 0 400000000000 0 000000034447 - - -*034447 MOVE 0,035062 -INITIAL -C(AC)=400000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034447 034447 0 0 200000035062 0 0 -IT1 034447 0 0 0 200000035062 0 0 -AT3 034447 0 0 0 000000035062 0 200000035062 -AT6 034447 035062 0 0 000000035062 0 200000035062 -FT0 034447 035062 0 0 0 0 200000035062 -FT1A 034447 035062 0 0 0 0 0 -FT9 034450 035062 0 0 0 0 0 -ET0 034450 035062 0 0 0 0 0 -ST1 034450 035062 0 0 0 0 0 -ST2 034450 035062 0 0 0 0 0 -ST9 034450 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 633 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0849 - -*034450 EQV 0,035062 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034450 034450 0 0 444000035062 0 0 -IT1 034450 0 0 0 444000035062 0 0 -AT3 034450 0 0 0 000000035062 0 444000035062 -AT6 034450 035062 0 0 000000035062 0 444000035062 -FT0 034450 035062 0 0 0 0 444000035062 -FT1A 034450 035062 0 0 0 0 0 -FT2 034450 035062 0 0 0 0 0 -FT2RQ 034450 035062 0 0 0 0 0 -FT3 034450 035062 0 0 0 0 0 -FT9 034451 035062 0 0 0 0 0 -ET0 034451 035062 0 0 777777777777 0 0 -ST1 034451 035062 0 0 777777777777 0 0 -ST2 034451 035062 0 0 777777777777 0 0 -ST9 034451 035062 0 0 777777777777 0 0 - - -*034451 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034451 034451 0 0 444000035062 0 0 -IT1 034451 0 0 0 444000035062 0 0 -AT3 034451 0 0 0 000000035062 0 444000035062 -AT6 034451 035062 0 0 000000035062 0 444000035062 -FT0 034451 035062 0 0 0 0 444000035062 -FT1A 034451 035062 0 0 0 0 0 -FT2 034451 035062 0 0 0 0 0 -FT2RQ 034451 035062 0 0 777777777777 0 0 -FT3 034451 035062 0 0 777777777777 0 0 -FT9 034452 035062 0 0 777777777777 0 0 -ET0 034452 035062 0 0 0 0 0 -ST1 034452 035062 0 0 0 0 0 -ST2 034452 035062 0 0 0 0 0 -ST9 034452 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 634 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0850 - -*034452 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 034452 034452 0 0 332000000000 0 0 -IT1 034452 0 0 0 332000000000 0 0 -AT3 034452 0 0 0 0 0 332000000000 -AT6 034452 0 0 0 0 0 332000000000 -FT0 034452 0 0 0 0 0 332000000000 -FT1A 034452 0 0 0 0 0 0 -FT9 034453 0 0 0 0 0 0 -ET0 034454 0 0 0 0 0 0 -ST1A 034454 0 0 0 0 0 0 -ST9 034454 0 0 0 0 0 0 - - -*034454 JUMPA 0,034455 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034454 034454 0 0 324000034455 0 000000034455 -IT1 034454 0 0 0 324000034455 0 000000034455 -AT3 034454 0 0 0 000000034455 0 324000034455 -AT6 034454 034455 0 0 000000034455 0 324000034455 -FT1A 034454 034455 0 0 000000034455 0 000000034455 -FT2 034454 034455 0 0 0 0 000000034455 -FT2RQ 034454 034455 0 0 0 0 000000034455 -FT3 034454 034455 0 0 0 0 000000034455 -FT9 034455 034455 0 0 0 0 000000034455 -ET0 034455 034455 0 0 0 0 000000034455 -ST1A 034455 034455 0 0 0 0 000000034455 -ST9 034455 034455 0 0 0 0 000000034455 - - -*034455 MOVE 0,035063 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034455 034455 0 0 200000035063 0 777777777777 -IT1 034455 0 0 0 200000035063 0 777777777777 -AT3 034455 0 0 0 000000035063 0 200000035063 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 635 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0851 - -AT6 034455 035063 0 0 000000035063 0 200000035063 -FT0 034455 035063 0 0 777777777777 0 200000035063 -FT1A 034455 035063 0 0 777777777777 0 777777777777 -FT9 034456 035063 0 0 777777777777 0 777777777777 -ET0 034456 035063 0 0 777777777777 0 777777777777 -ST1 034456 035063 0 0 777777777777 0 777777777777 -ST2 034456 035063 0 0 777777777777 0 777777777777 -ST9 034456 035063 0 0 777777777777 0 777777777777 - - -*034456 EQV 0,035063 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034456 034456 0 0 444000035063 0 777777777777 -IT1 034456 0 0 0 444000035063 0 777777777777 -AT3 034456 0 0 0 000000035063 0 444000035063 -AT6 034456 035063 0 0 000000035063 0 444000035063 -FT0 034456 035063 0 0 777777777777 0 444000035063 -FT1A 034456 035063 0 0 777777777777 0 777777777777 -FT2 034456 035063 0 0 0 0 777777777777 -FT2RQ 034456 035063 0 0 777777777777 0 777777777777 -FT3 034456 035063 0 0 777777777777 0 777777777777 -FT9 034457 035063 0 0 777777777777 0 777777777777 -ET0 034457 035063 0 0 777777777777 0 777777777777 -ST1 034457 035063 0 0 777777777777 0 777777777777 -ST2 034457 035063 0 0 777777777777 0 777777777777 -ST9 034457 035063 0 0 777777777777 0 777777777777 - - -*034457 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034457 034457 0 0 444000035062 0 0 -IT1 034457 0 0 0 444000035062 0 0 -AT3 034457 0 0 0 000000035062 0 444000035062 -AT6 034457 035062 0 0 000000035062 0 444000035062 -FT0 034457 035062 0 0 0 0 444000035062 -FT1A 034457 035062 0 0 0 0 0 -FT2 034457 035062 0 0 0 0 0 -FT2RQ 034457 035062 0 0 777777777777 0 0 -FT3 034457 035062 0 0 777777777777 0 0 -FT9 034460 035062 0 0 777777777777 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 636 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0852 - -ET0 034460 035062 0 0 0 0 0 -ST1 034460 035062 0 0 0 0 0 -ST2 034460 035062 0 0 0 0 0 -ST9 034460 035062 0 0 0 0 0 - - -*034460 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 034460 034460 0 0 332000000000 0 0 -IT1 034460 0 0 0 332000000000 0 0 -AT3 034460 0 0 0 0 0 332000000000 -AT6 034460 0 0 0 0 0 332000000000 -FT0 034460 0 0 0 0 0 332000000000 -FT1A 034460 0 0 0 0 0 0 -FT9 034461 0 0 0 0 0 0 -ET0 034462 0 0 0 0 0 0 -ST1A 034462 0 0 0 0 0 0 -ST9 034462 0 0 0 0 0 0 - - -*034462 JUMPA 0,034463 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034462 034462 0 0 324000034463 0 000000034463 -IT1 034462 0 0 0 324000034463 0 000000034463 -AT3 034462 0 0 0 000000034463 0 324000034463 -AT6 034462 034463 0 0 000000034463 0 324000034463 -FT1A 034462 034463 0 0 000000034463 0 000000034463 -FT2 034462 034463 0 0 0 0 000000034463 -FT2RQ 034462 034463 0 0 0 0 000000034463 -FT3 034462 034463 0 0 0 0 000000034463 -FT9 034463 034463 0 0 0 0 000000034463 -ET0 034463 034463 0 0 0 0 000000034463 -ST1A 034463 034463 0 0 0 0 000000034463 -ST9 034463 034463 0 0 0 0 000000034463 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 637 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0853 - -*034463 MOVE 0,035074 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 034463 034463 0 0 200000035074 0 000000000001 -IT1 034463 0 0 0 200000035074 0 000000000001 -AT3 034463 0 0 0 000000035074 0 200000035074 -AT6 034463 035074 0 0 000000035074 0 200000035074 -FT0 034463 035074 0 0 000000000001 0 200000035074 -FT1A 034463 035074 0 0 000000000001 0 000000000001 -FT9 034464 035074 0 0 000000000001 0 000000000001 -ET0 034464 035074 0 0 000000000001 0 000000000001 -ST1 034464 035074 0 0 000000000001 0 000000000001 -ST2 034464 035074 0 0 000000000001 0 000000000001 -ST9 034464 035074 0 0 000000000001 0 000000000001 - - -*034464 AND 0,035074 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 034464 034464 0 0 404000035074 0 000000000001 -IT1 034464 0 0 0 404000035074 0 000000000001 -AT3 034464 0 0 0 000000035074 0 404000035074 -AT6 034464 035074 0 0 000000035074 0 404000035074 -FT0 034464 035074 0 0 000000000001 0 404000035074 -FT1A 034464 035074 0 0 000000000001 0 000000000001 -FT2 034464 035074 0 0 0 0 000000000001 -FT2RQ 034464 035074 0 0 000000000001 0 000000000001 -FT3 034464 035074 0 0 000000000001 0 000000000001 -FT9 034465 035074 0 0 000000000001 0 000000000001 -ET0 034465 035074 0 0 000000000001 0 000000000001 -ST1 034465 035074 0 0 000000000001 0 000000000001 -ST2 034465 035074 0 0 000000000001 0 000000000001 -ST9 034465 035074 0 0 000000000001 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 638 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0854 - -*034465 EQV 0,035074 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034465 034465 0 0 444000035074 0 000000000001 -IT1 034465 0 0 0 444000035074 0 000000000001 -AT3 034465 0 0 0 000000035074 0 444000035074 -AT6 034465 035074 0 0 000000035074 0 444000035074 -FT0 034465 035074 0 0 000000000001 0 444000035074 -FT1A 034465 035074 0 0 000000000001 0 000000000001 -FT2 034465 035074 0 0 0 0 000000000001 -FT2RQ 034465 035074 0 0 000000000001 0 000000000001 -FT3 034465 035074 0 0 000000000001 0 000000000001 -FT9 034466 035074 0 0 000000000001 0 000000000001 -ET0 034466 035074 0 0 777777777777 0 000000000001 -ST1 034466 035074 0 0 777777777777 0 000000000001 -ST2 034466 035074 0 0 777777777777 0 000000000001 -ST9 034466 035074 0 0 777777777777 0 000000000001 - - -*034466 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034466 034466 0 0 444000035062 0 0 -IT1 034466 0 0 0 444000035062 0 0 -AT3 034466 0 0 0 000000035062 0 444000035062 -AT6 034466 035062 0 0 000000035062 0 444000035062 -FT0 034466 035062 0 0 0 0 444000035062 -FT1A 034466 035062 0 0 0 0 0 -FT2 034466 035062 0 0 0 0 0 -FT2RQ 034466 035062 0 0 777777777777 0 0 -FT3 034466 035062 0 0 777777777777 0 0 -FT9 034467 035062 0 0 777777777777 0 0 -ET0 034467 035062 0 0 0 0 0 -ST1 034467 035062 0 0 0 0 0 -ST2 034467 035062 0 0 0 0 0 -ST9 034467 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 639 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0855 - -*034467 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 034467 034467 0 0 332000000000 0 0 -IT1 034467 0 0 0 332000000000 0 0 -AT3 034467 0 0 0 0 0 332000000000 -AT6 034467 0 0 0 0 0 332000000000 -FT0 034467 0 0 0 0 0 332000000000 -FT1A 034467 0 0 0 0 0 0 -FT9 034470 0 0 0 0 0 0 -ET0 034471 0 0 0 0 0 0 -ST1A 034471 0 0 0 0 0 0 -ST9 034471 0 0 0 0 0 0 - - -*034471 JUMPA 0,034472 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034471 034471 0 0 324000034472 0 000000034472 -IT1 034471 0 0 0 324000034472 0 000000034472 -AT3 034471 0 0 0 000000034472 0 324000034472 -AT6 034471 034472 0 0 000000034472 0 324000034472 -FT1A 034471 034472 0 0 000000034472 0 000000034472 -FT2 034471 034472 0 0 0 0 000000034472 -FT2RQ 034471 034472 0 0 0 0 000000034472 -FT3 034471 034472 0 0 0 0 000000034472 -FT9 034472 034472 0 0 0 0 000000034472 -ET0 034472 034472 0 0 0 0 000000034472 -ST1A 034472 034472 0 0 0 0 000000034472 -ST9 034472 034472 0 0 0 0 000000034472 - - -*034472 MOVE 0,035075 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 034472 034472 0 0 200000035075 0 000000000002 -IT1 034472 0 0 0 200000035075 0 000000000002 -AT3 034472 0 0 0 000000035075 0 200000035075 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 640 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0856 - -AT6 034472 035075 0 0 000000035075 0 200000035075 -FT0 034472 035075 0 0 000000000002 0 200000035075 -FT1A 034472 035075 0 0 000000000002 0 000000000002 -FT9 034473 035075 0 0 000000000002 0 000000000002 -ET0 034473 035075 0 0 000000000002 0 000000000002 -ST1 034473 035075 0 0 000000000002 0 000000000002 -ST2 034473 035075 0 0 000000000002 0 000000000002 -ST9 034473 035075 0 0 000000000002 0 000000000002 - - -*034473 AND 0,035075 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 034473 034473 0 0 404000035075 0 000000000002 -IT1 034473 0 0 0 404000035075 0 000000000002 -AT3 034473 0 0 0 000000035075 0 404000035075 -AT6 034473 035075 0 0 000000035075 0 404000035075 -FT0 034473 035075 0 0 000000000002 0 404000035075 -FT1A 034473 035075 0 0 000000000002 0 000000000002 -FT2 034473 035075 0 0 0 0 000000000002 -FT2RQ 034473 035075 0 0 000000000002 0 000000000002 -FT3 034473 035075 0 0 000000000002 0 000000000002 -FT9 034474 035075 0 0 000000000002 0 000000000002 -ET0 034474 035075 0 0 000000000002 0 000000000002 -ST1 034474 035075 0 0 000000000002 0 000000000002 -ST2 034474 035075 0 0 000000000002 0 000000000002 -ST9 034474 035075 0 0 000000000002 0 000000000002 - - -*034474 EQV 0,035075 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000002 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034474 034474 0 0 444000035075 0 000000000002 -IT1 034474 0 0 0 444000035075 0 000000000002 -AT3 034474 0 0 0 000000035075 0 444000035075 -AT6 034474 035075 0 0 000000035075 0 444000035075 -FT0 034474 035075 0 0 000000000002 0 444000035075 -FT1A 034474 035075 0 0 000000000002 0 000000000002 -FT2 034474 035075 0 0 0 0 000000000002 -FT2RQ 034474 035075 0 0 000000000002 0 000000000002 -FT3 034474 035075 0 0 000000000002 0 000000000002 -FT9 034475 035075 0 0 000000000002 0 000000000002 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 641 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0857 - -ET0 034475 035075 0 0 777777777777 0 000000000002 -ST1 034475 035075 0 0 777777777777 0 000000000002 -ST2 034475 035075 0 0 777777777777 0 000000000002 -ST9 034475 035075 0 0 777777777777 0 000000000002 - - -*034475 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034475 034475 0 0 444000035062 0 0 -IT1 034475 0 0 0 444000035062 0 0 -AT3 034475 0 0 0 000000035062 0 444000035062 -AT6 034475 035062 0 0 000000035062 0 444000035062 -FT0 034475 035062 0 0 0 0 444000035062 -FT1A 034475 035062 0 0 0 0 0 -FT2 034475 035062 0 0 0 0 0 -FT2RQ 034475 035062 0 0 777777777777 0 0 -FT3 034475 035062 0 0 777777777777 0 0 -FT9 034476 035062 0 0 777777777777 0 0 -ET0 034476 035062 0 0 0 0 0 -ST1 034476 035062 0 0 0 0 0 -ST2 034476 035062 0 0 0 0 0 -ST9 034476 035062 0 0 0 0 0 - - -*034476 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 034476 034476 0 0 332000000000 0 0 -IT1 034476 0 0 0 332000000000 0 0 -AT3 034476 0 0 0 0 0 332000000000 -AT6 034476 0 0 0 0 0 332000000000 -FT0 034476 0 0 0 0 0 332000000000 -FT1A 034476 0 0 0 0 0 0 -FT9 034477 0 0 0 0 0 0 -ET0 0 0 0 0 0 0 0 -ST1A 0 0 0 0 0 0 0 -ST9 0 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 642 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0858 - -*034500 JUMPA 0,034501 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 324000034501 0 000000034501 -IT1 0 0 0 0 324000034501 0 000000034501 -AT3 0 0 0 0 000000034501 0 324000034501 -AT6 0 034501 0 0 000000034501 0 324000034501 -FT1A 0 034501 0 0 000000034501 0 000000034501 -FT2 0 034501 0 0 0 0 000000034501 -FT2RQ 0 034501 0 0 0 0 000000034501 -FT3 0 034501 0 0 0 0 000000034501 -FT9 034501 034501 0 0 0 0 000000034501 -ET0 034501 034501 0 0 0 0 000000034501 -ST1A 034501 034501 0 0 0 0 000000034501 -ST9 034501 034501 0 0 0 0 000000034501 - - -*034501 MOVE 0,035076 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 034501 034501 0 0 200000035076 0 000000000004 -IT1 034501 0 0 0 200000035076 0 000000000004 -AT3 034501 0 0 0 000000035076 0 200000035076 -AT6 034501 035076 0 0 000000035076 0 200000035076 -FT0 034501 035076 0 0 000000000004 0 200000035076 -FT1A 034501 035076 0 0 000000000004 0 000000000004 -FT9 034502 035076 0 0 000000000004 0 000000000004 -ET0 034502 035076 0 0 000000000004 0 000000000004 -ST1 034502 035076 0 0 000000000004 0 000000000004 -ST2 034502 035076 0 0 000000000004 0 000000000004 -ST9 034502 035076 0 0 000000000004 0 000000000004 - - -*034502 AND 0,035076 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 034502 034502 0 0 404000035076 0 000000000004 -IT1 034502 0 0 0 404000035076 0 000000000004 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 643 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0859 - -AT3 034502 0 0 0 000000035076 0 404000035076 -AT6 034502 035076 0 0 000000035076 0 404000035076 -FT0 034502 035076 0 0 000000000004 0 404000035076 -FT1A 034502 035076 0 0 000000000004 0 000000000004 -FT2 034502 035076 0 0 0 0 000000000004 -FT2RQ 034502 035076 0 0 000000000004 0 000000000004 -FT3 034502 035076 0 0 000000000004 0 000000000004 -FT9 034503 035076 0 0 000000000004 0 000000000004 -ET0 034503 035076 0 0 000000000004 0 000000000004 -ST1 034503 035076 0 0 000000000004 0 000000000004 -ST2 034503 035076 0 0 000000000004 0 000000000004 -ST9 034503 035076 0 0 000000000004 0 000000000004 - - -*034503 EQV 0,035076 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000004 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034503 034503 0 0 444000035076 0 000000000004 -IT1 034503 0 0 0 444000035076 0 000000000004 -AT3 034503 0 0 0 000000035076 0 444000035076 -AT6 034503 035076 0 0 000000035076 0 444000035076 -FT0 034503 035076 0 0 000000000004 0 444000035076 -FT1A 034503 035076 0 0 000000000004 0 000000000004 -FT2 034503 035076 0 0 0 0 000000000004 -FT2RQ 034503 035076 0 0 000000000004 0 000000000004 -FT3 034503 035076 0 0 000000000004 0 000000000004 -FT9 034504 035076 0 0 000000000004 0 000000000004 -ET0 034504 035076 0 0 777777777777 0 000000000004 -ST1 034504 035076 0 0 777777777777 0 000000000004 -ST2 034504 035076 0 0 777777777777 0 000000000004 -ST9 034504 035076 0 0 777777777777 0 000000000004 - - -*034504 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034504 034504 0 0 444000035062 0 0 -IT1 034504 0 0 0 444000035062 0 0 -AT3 034504 0 0 0 000000035062 0 444000035062 -AT6 034504 035062 0 0 000000035062 0 444000035062 -FT0 034504 035062 0 0 0 0 444000035062 -FT1A 034504 035062 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 644 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0860 - -FT2 034504 035062 0 0 0 0 0 -FT2RQ 034504 035062 0 0 777777777777 0 0 -FT3 034504 035062 0 0 777777777777 0 0 -FT9 034505 035062 0 0 777777777777 0 0 -ET0 034505 035062 0 0 0 0 0 -ST1 034505 035062 0 0 0 0 0 -ST2 034505 035062 0 0 0 0 0 -ST9 034505 035062 0 0 0 0 0 - - -*034505 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 034505 034505 0 0 332000000000 0 0 -IT1 034505 0 0 0 332000000000 0 0 -AT3 034505 0 0 0 0 0 332000000000 -AT6 034505 0 0 0 0 0 332000000000 -FT0 034505 0 0 0 0 0 332000000000 -FT1A 034505 0 0 0 0 0 0 -FT9 034506 0 0 0 0 0 0 -ET0 034507 0 0 0 0 0 0 -ST1A 034507 0 0 0 0 0 0 -ST9 034507 0 0 0 0 0 0 - - -*034507 JUMPA 0,034510 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034507 034507 0 0 324000034510 0 000000034510 -IT1 034507 0 0 0 324000034510 0 000000034510 -AT3 034507 0 0 0 000000034510 0 324000034510 -AT6 034507 034510 0 0 000000034510 0 324000034510 -FT1A 034507 034510 0 0 000000034510 0 000000034510 -FT2 034507 034510 0 0 0 0 000000034510 -FT2RQ 034507 034510 0 0 0 0 000000034510 -FT3 034507 034510 0 0 0 0 000000034510 -FT9 034510 034510 0 0 0 0 000000034510 -ET0 034510 034510 0 0 0 0 000000034510 -ST1A 034510 034510 0 0 0 0 000000034510 -ST9 034510 034510 0 0 0 0 000000034510 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 645 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0861 - -*034510 MOVE 0,035077 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 034510 034510 0 0 200000035077 0 000000000010 -IT1 034510 0 0 0 200000035077 0 000000000010 -AT3 034510 0 0 0 000000035077 0 200000035077 -AT6 034510 035077 0 0 000000035077 0 200000035077 -FT0 034510 035077 0 0 000000000010 0 200000035077 -FT1A 034510 035077 0 0 000000000010 0 000000000010 -FT9 034511 035077 0 0 000000000010 0 000000000010 -ET0 034511 035077 0 0 000000000010 0 000000000010 -ST1 034511 035077 0 0 000000000010 0 000000000010 -ST2 034511 035077 0 0 000000000010 0 000000000010 -ST9 034511 035077 0 0 000000000010 0 000000000010 - - -*034511 AND 0,035077 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 034511 034511 0 0 404000035077 0 000000000010 -IT1 034511 0 0 0 404000035077 0 000000000010 -AT3 034511 0 0 0 000000035077 0 404000035077 -AT6 034511 035077 0 0 000000035077 0 404000035077 -FT0 034511 035077 0 0 000000000010 0 404000035077 -FT1A 034511 035077 0 0 000000000010 0 000000000010 -FT2 034511 035077 0 0 0 0 000000000010 -FT2RQ 034511 035077 0 0 000000000010 0 000000000010 -FT3 034511 035077 0 0 000000000010 0 000000000010 -FT9 034512 035077 0 0 000000000010 0 000000000010 -ET0 034512 035077 0 0 000000000010 0 000000000010 -ST1 034512 035077 0 0 000000000010 0 000000000010 -ST2 034512 035077 0 0 000000000010 0 000000000010 -ST9 034512 035077 0 0 000000000010 0 000000000010 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 646 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0862 - -*034512 EQV 0,035077 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000010 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034512 034512 0 0 444000035077 0 000000000010 -IT1 034512 0 0 0 444000035077 0 000000000010 -AT3 034512 0 0 0 000000035077 0 444000035077 -AT6 034512 035077 0 0 000000035077 0 444000035077 -FT0 034512 035077 0 0 000000000010 0 444000035077 -FT1A 034512 035077 0 0 000000000010 0 000000000010 -FT2 034512 035077 0 0 0 0 000000000010 -FT2RQ 034512 035077 0 0 000000000010 0 000000000010 -FT3 034512 035077 0 0 000000000010 0 000000000010 -FT9 034513 035077 0 0 000000000010 0 000000000010 -ET0 034513 035077 0 0 777777777777 0 000000000010 -ST1 034513 035077 0 0 777777777777 0 000000000010 -ST2 034513 035077 0 0 777777777777 0 000000000010 -ST9 034513 035077 0 0 777777777777 0 000000000010 - - -*034513 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034513 034513 0 0 444000035062 0 0 -IT1 034513 0 0 0 444000035062 0 0 -AT3 034513 0 0 0 000000035062 0 444000035062 -AT6 034513 035062 0 0 000000035062 0 444000035062 -FT0 034513 035062 0 0 0 0 444000035062 -FT1A 034513 035062 0 0 0 0 0 -FT2 034513 035062 0 0 0 0 0 -FT2RQ 034513 035062 0 0 777777777777 0 0 -FT3 034513 035062 0 0 777777777777 0 0 -FT9 034514 035062 0 0 777777777777 0 0 -ET0 034514 035062 0 0 0 0 0 -ST1 034514 035062 0 0 0 0 0 -ST2 034514 035062 0 0 0 0 0 -ST9 034514 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 647 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0863 - -*034514 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 034514 034514 0 0 332000000000 0 0 -IT1 034514 0 0 0 332000000000 0 0 -AT3 034514 0 0 0 0 0 332000000000 -AT6 034514 0 0 0 0 0 332000000000 -FT0 034514 0 0 0 0 0 332000000000 -FT1A 034514 0 0 0 0 0 0 -FT9 034515 0 0 0 0 0 0 -ET0 034516 0 0 0 0 0 0 -ST1A 034516 0 0 0 0 0 0 -ST9 034516 0 0 0 0 0 0 - - -*034516 JUMPA 0,034517 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034516 034516 0 0 324000034517 0 000000034517 -IT1 034516 0 0 0 324000034517 0 000000034517 -AT3 034516 0 0 0 000000034517 0 324000034517 -AT6 034516 034517 0 0 000000034517 0 324000034517 -FT1A 034516 034517 0 0 000000034517 0 000000034517 -FT2 034516 034517 0 0 0 0 000000034517 -FT2RQ 034516 034517 0 0 0 0 000000034517 -FT3 034516 034517 0 0 0 0 000000034517 -FT9 034517 034517 0 0 0 0 000000034517 -ET0 034517 034517 0 0 0 0 000000034517 -ST1A 034517 034517 0 0 0 0 000000034517 -ST9 034517 034517 0 0 0 0 000000034517 - - -*034517 MOVE 0,035100 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000020 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 034517 034517 0 0 200000035100 0 000000000020 -IT1 034517 0 0 0 200000035100 0 000000000020 -AT3 034517 0 0 0 000000035100 0 200000035100 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 648 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0864 - -AT6 034517 0 0 0 000000035100 0 200000035100 -FT0 034517 0 0 0 000000000020 0 200000035100 -FT1A 034517 0 0 0 000000000020 0 000000000020 -FT9 034520 0 0 0 000000000020 0 000000000020 -ET0 034520 0 0 0 000000000020 0 000000000020 -ST1 034520 0 0 0 000000000020 0 000000000020 -ST2 034520 0 0 0 000000000020 0 000000000020 -ST9 034520 0 0 0 000000000020 0 000000000020 - - -*034520 AND 0,035100 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000020 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 034520 034520 0 0 404000035100 0 000000000020 -IT1 034520 0 0 0 404000035100 0 000000000020 -AT3 034520 0 0 0 000000035100 0 404000035100 -AT6 034520 0 0 0 000000035100 0 404000035100 -FT0 034520 0 0 0 000000000020 0 404000035100 -FT1A 034520 0 0 0 000000000020 0 000000000020 -FT2 034520 0 0 0 0 0 000000000020 -FT2RQ 034520 0 0 0 000000000020 0 000000000020 -FT3 034520 0 0 0 000000000020 0 000000000020 -FT9 034521 0 0 0 000000000020 0 000000000020 -ET0 034521 0 0 0 000000000020 0 000000000020 -ST1 034521 0 0 0 000000000020 0 000000000020 -ST2 034521 0 0 0 000000000020 0 000000000020 -ST9 034521 0 0 0 000000000020 0 000000000020 - - -*034521 EQV 0,035100 -INITIAL -C(AC)=000000 000020 -C(E)=000000 000020 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034521 034521 0 0 444000035100 0 000000000020 -IT1 034521 0 0 0 444000035100 0 000000000020 -AT3 034521 0 0 0 000000035100 0 444000035100 -AT6 034521 0 0 0 000000035100 0 444000035100 -FT0 034521 0 0 0 000000000020 0 444000035100 -FT1A 034521 0 0 0 000000000020 0 000000000020 -FT2 034521 0 0 0 0 0 000000000020 -FT2RQ 034521 0 0 0 000000000020 0 000000000020 -FT3 034521 0 0 0 000000000020 0 000000000020 -FT9 034522 0 0 0 000000000020 0 000000000020 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 649 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0865 - -ET0 034522 0 0 0 777777777777 0 000000000020 -ST1 034522 0 0 0 777777777777 0 000000000020 -ST2 034522 0 0 0 777777777777 0 000000000020 -ST9 034522 0 0 0 777777777777 0 000000000020 - - -*034522 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034522 034522 0 0 444000035062 0 0 -IT1 034522 0 0 0 444000035062 0 0 -AT3 034522 0 0 0 000000035062 0 444000035062 -AT6 034522 035062 0 0 000000035062 0 444000035062 -FT0 034522 035062 0 0 0 0 444000035062 -FT1A 034522 035062 0 0 0 0 0 -FT2 034522 035062 0 0 0 0 0 -FT2RQ 034522 035062 0 0 777777777777 0 0 -FT3 034522 035062 0 0 777777777777 0 0 -FT9 034523 035062 0 0 777777777777 0 0 -ET0 034523 035062 0 0 0 0 0 -ST1 034523 035062 0 0 0 0 0 -ST2 034523 035062 0 0 0 0 0 -ST9 034523 035062 0 0 0 0 0 - - -*034523 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 034523 034523 0 0 332000000000 0 0 -IT1 034523 0 0 0 332000000000 0 0 -AT3 034523 0 0 0 0 0 332000000000 -AT6 034523 0 0 0 0 0 332000000000 -FT0 034523 0 0 0 0 0 332000000000 -FT1A 034523 0 0 0 0 0 0 -FT9 034524 0 0 0 0 0 0 -ET0 034525 0 0 0 0 0 0 -ST1A 034525 0 0 0 0 0 0 -ST9 034525 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 650 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0866 - -*034525 JUMPA 0,034526 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034525 034525 0 0 324000034526 0 000000034526 -IT1 034525 0 0 0 324000034526 0 000000034526 -AT3 034525 0 0 0 000000034526 0 324000034526 -AT6 034525 034526 0 0 000000034526 0 324000034526 -FT1A 034525 034526 0 0 000000034526 0 000000034526 -FT2 034525 034526 0 0 0 0 000000034526 -FT2RQ 034525 034526 0 0 0 0 000000034526 -FT3 034525 034526 0 0 0 0 000000034526 -FT9 034526 034526 0 0 0 0 000000034526 -ET0 034526 034526 0 0 0 0 000000034526 -ST1A 034526 034526 0 0 0 0 000000034526 -ST9 034526 034526 0 0 0 0 000000034526 - - -*034526 MOVE 0,035101 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000040 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 034526 034526 0 0 200000035101 0 000000000040 -IT1 034526 0 0 0 200000035101 0 000000000040 -AT3 034526 0 0 0 000000035101 0 200000035101 -AT6 034526 035101 0 0 000000035101 0 200000035101 -FT0 034526 035101 0 0 000000000040 0 200000035101 -FT1A 034526 035101 0 0 000000000040 0 000000000040 -FT9 034527 035101 0 0 000000000040 0 000000000040 -ET0 034527 035101 0 0 000000000040 0 000000000040 -ST1 034527 035101 0 0 000000000040 0 000000000040 -ST2 034527 035101 0 0 000000000040 0 000000000040 -ST9 034527 035101 0 0 000000000040 0 000000000040 - - -*034527 AND 0,035101 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000040 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 034527 034527 0 0 404000035101 0 000000000040 -IT1 034527 0 0 0 404000035101 0 000000000040 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 651 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0867 - -AT3 034527 0 0 0 000000035101 0 404000035101 -AT6 034527 035101 0 0 000000035101 0 404000035101 -FT0 034527 035101 0 0 000000000040 0 404000035101 -FT1A 034527 035101 0 0 000000000040 0 000000000040 -FT2 034527 035101 0 0 0 0 000000000040 -FT2RQ 034527 035101 0 0 000000000040 0 000000000040 -FT3 034527 035101 0 0 000000000040 0 000000000040 -FT9 034530 035101 0 0 000000000040 0 000000000040 -ET0 034530 035101 0 0 000000000040 0 000000000040 -ST1 034530 035101 0 0 000000000040 0 000000000040 -ST2 034530 035101 0 0 000000000040 0 000000000040 -ST9 034530 035101 0 0 000000000040 0 000000000040 - - -*034530 EQV 0,035101 -INITIAL -C(AC)=000000 000040 -C(E)=000000 000040 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034530 034530 0 0 444000035101 0 000000000040 -IT1 034530 0 0 0 444000035101 0 000000000040 -AT3 034530 0 0 0 000000035101 0 444000035101 -AT6 034530 035101 0 0 000000035101 0 444000035101 -FT0 034530 035101 0 0 000000000040 0 444000035101 -FT1A 034530 035101 0 0 000000000040 0 000000000040 -FT2 034530 035101 0 0 0 0 000000000040 -FT2RQ 034530 035101 0 0 000000000040 0 000000000040 -FT3 034530 035101 0 0 000000000040 0 000000000040 -FT9 034531 035101 0 0 000000000040 0 000000000040 -ET0 034531 035101 0 0 777777777777 0 000000000040 -ST1 034531 035101 0 0 777777777777 0 000000000040 -ST2 034531 035101 0 0 777777777777 0 000000000040 -ST9 034531 035101 0 0 777777777777 0 000000000040 - - -*034531 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034531 034531 0 0 444000035062 0 0 -IT1 034531 0 0 0 444000035062 0 0 -AT3 034531 0 0 0 000000035062 0 444000035062 -AT6 034531 035062 0 0 000000035062 0 444000035062 -FT0 034531 035062 0 0 0 0 444000035062 -FT1A 034531 035062 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 652 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0868 - -FT2 034531 035062 0 0 0 0 0 -FT2RQ 034531 035062 0 0 777777777777 0 0 -FT3 034531 035062 0 0 777777777777 0 0 -FT9 034532 035062 0 0 777777777777 0 0 -ET0 034532 035062 0 0 0 0 0 -ST1 034532 035062 0 0 0 0 0 -ST2 034532 035062 0 0 0 0 0 -ST9 034532 035062 0 0 0 0 0 - - -*034532 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 034532 034532 0 0 332000000000 0 0 -IT1 034532 0 0 0 332000000000 0 0 -AT3 034532 0 0 0 0 0 332000000000 -AT6 034532 0 0 0 0 0 332000000000 -FT0 034532 0 0 0 0 0 332000000000 -FT1A 034532 0 0 0 0 0 0 -FT9 034533 0 0 0 0 0 0 -ET0 034534 0 0 0 0 0 0 -ST1A 034534 0 0 0 0 0 0 -ST9 034534 0 0 0 0 0 0 - - -*034534 JUMPA 0,034535 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034534 034534 0 0 324000034535 0 000000034535 -IT1 034534 0 0 0 324000034535 0 000000034535 -AT3 034534 0 0 0 000000034535 0 324000034535 -AT6 034534 034535 0 0 000000034535 0 324000034535 -FT1A 034534 034535 0 0 000000034535 0 000000034535 -FT2 034534 034535 0 0 0 0 000000034535 -FT2RQ 034534 034535 0 0 0 0 000000034535 -FT3 034534 034535 0 0 0 0 000000034535 -FT9 034535 034535 0 0 0 0 000000034535 -ET0 034535 034535 0 0 0 0 000000034535 -ST1A 034535 034535 0 0 0 0 000000034535 -ST9 034535 034535 0 0 0 0 000000034535 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 653 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0869 - -*034535 MOVE 0,035102 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000100 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 034535 034535 0 0 200000035102 0 000000000100 -IT1 034535 0 0 0 200000035102 0 000000000100 -AT3 034535 0 0 0 000000035102 0 200000035102 -AT6 034535 035102 0 0 000000035102 0 200000035102 -FT0 034535 035102 0 0 000000000100 0 200000035102 -FT1A 034535 035102 0 0 000000000100 0 000000000100 -FT9 034536 035102 0 0 000000000100 0 000000000100 -ET0 034536 035102 0 0 000000000100 0 000000000100 -ST1 034536 035102 0 0 000000000100 0 000000000100 -ST2 034536 035102 0 0 000000000100 0 000000000100 -ST9 034536 035102 0 0 000000000100 0 000000000100 - - -*034536 AND 0,035102 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000100 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 034536 034536 0 0 404000035102 0 000000000100 -IT1 034536 0 0 0 404000035102 0 000000000100 -AT3 034536 0 0 0 000000035102 0 404000035102 -AT6 034536 035102 0 0 000000035102 0 404000035102 -FT0 034536 035102 0 0 000000000100 0 404000035102 -FT1A 034536 035102 0 0 000000000100 0 000000000100 -FT2 034536 035102 0 0 0 0 000000000100 -FT2RQ 034536 035102 0 0 000000000100 0 000000000100 -FT3 034536 035102 0 0 000000000100 0 000000000100 -FT9 034537 035102 0 0 000000000100 0 000000000100 -ET0 034537 035102 0 0 000000000100 0 000000000100 -ST1 034537 035102 0 0 000000000100 0 000000000100 -ST2 034537 035102 0 0 000000000100 0 000000000100 -ST9 034537 035102 0 0 000000000100 0 000000000100 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 654 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0870 - -*034537 EQV 0,035102 -INITIAL -C(AC)=000000 000100 -C(E)=000000 000100 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034537 034537 0 0 444000035102 0 000000000100 -IT1 034537 0 0 0 444000035102 0 000000000100 -AT3 034537 0 0 0 000000035102 0 444000035102 -AT6 034537 035102 0 0 000000035102 0 444000035102 -FT0 034537 035102 0 0 000000000100 0 444000035102 -FT1A 034537 035102 0 0 000000000100 0 000000000100 -FT2 034537 035102 0 0 0 0 000000000100 -FT2RQ 034537 035102 0 0 000000000100 0 000000000100 -FT3 034537 035102 0 0 000000000100 0 000000000100 -FT9 034540 035102 0 0 000000000100 0 000000000100 -ET0 034540 035102 0 0 777777777777 0 000000000100 -ST1 034540 035102 0 0 777777777777 0 000000000100 -ST2 034540 035102 0 0 777777777777 0 000000000100 -ST9 034540 035102 0 0 777777777777 0 000000000100 - - -*034540 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034540 034540 0 0 444000035062 0 0 -IT1 034540 0 0 0 444000035062 0 0 -AT3 034540 0 0 0 000000035062 0 444000035062 -AT6 034540 035062 0 0 000000035062 0 444000035062 -FT0 034540 035062 0 0 0 0 444000035062 -FT1A 034540 035062 0 0 0 0 0 -FT2 034540 035062 0 0 0 0 0 -FT2RQ 034540 035062 0 0 777777777777 0 0 -FT3 034540 035062 0 0 777777777777 0 0 -FT9 034541 035062 0 0 777777777777 0 0 -ET0 034541 035062 0 0 0 0 0 -ST1 034541 035062 0 0 0 0 0 -ST2 034541 035062 0 0 0 0 0 -ST9 034541 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 655 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0871 - -*034541 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 034541 034541 0 0 332000000000 0 0 -IT1 034541 0 0 0 332000000000 0 0 -AT3 034541 0 0 0 0 0 332000000000 -AT6 034541 0 0 0 0 0 332000000000 -FT0 034541 0 0 0 0 0 332000000000 -FT1A 034541 0 0 0 0 0 0 -FT9 034542 0 0 0 0 0 0 -ET0 034543 0 0 0 0 0 0 -ST1A 034543 0 0 0 0 0 0 -ST9 034543 0 0 0 0 0 0 - - -*034543 JUMPA 0,034544 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034543 034543 0 0 324000034544 0 000000034544 -IT1 034543 0 0 0 324000034544 0 000000034544 -AT3 034543 0 0 0 000000034544 0 324000034544 -AT6 034543 034544 0 0 000000034544 0 324000034544 -FT1A 034543 034544 0 0 000000034544 0 000000034544 -FT2 034543 034544 0 0 0 0 000000034544 -FT2RQ 034543 034544 0 0 0 0 000000034544 -FT3 034543 034544 0 0 0 0 000000034544 -FT9 034544 034544 0 0 0 0 000000034544 -ET0 034544 034544 0 0 0 0 000000034544 -ST1A 034544 034544 0 0 0 0 000000034544 -ST9 034544 034544 0 0 0 0 000000034544 - - -*034544 MOVE 0,035103 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000200 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 034544 034544 0 0 200000035103 0 000000000200 -IT1 034544 0 0 0 200000035103 0 000000000200 -AT3 034544 0 0 0 000000035103 0 200000035103 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 656 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0872 - -AT6 034544 035103 0 0 000000035103 0 200000035103 -FT0 034544 035103 0 0 000000000200 0 200000035103 -FT1A 034544 035103 0 0 000000000200 0 000000000200 -FT9 034545 035103 0 0 000000000200 0 000000000200 -ET0 034545 035103 0 0 000000000200 0 000000000200 -ST1 034545 035103 0 0 000000000200 0 000000000200 -ST2 034545 035103 0 0 000000000200 0 000000000200 -ST9 034545 035103 0 0 000000000200 0 000000000200 - - -*034545 AND 0,035103 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000200 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 034545 034545 0 0 404000035103 0 000000000200 -IT1 034545 0 0 0 404000035103 0 000000000200 -AT3 034545 0 0 0 000000035103 0 404000035103 -AT6 034545 035103 0 0 000000035103 0 404000035103 -FT0 034545 035103 0 0 000000000200 0 404000035103 -FT1A 034545 035103 0 0 000000000200 0 000000000200 -FT2 034545 035103 0 0 0 0 000000000200 -FT2RQ 034545 035103 0 0 000000000200 0 000000000200 -FT3 034545 035103 0 0 000000000200 0 000000000200 -FT9 034546 035103 0 0 000000000200 0 000000000200 -ET0 034546 035103 0 0 000000000200 0 000000000200 -ST1 034546 035103 0 0 000000000200 0 000000000200 -ST2 034546 035103 0 0 000000000200 0 000000000200 -ST9 034546 035103 0 0 000000000200 0 000000000200 - - -*034546 EQV 0,035103 -INITIAL -C(AC)=000000 000200 -C(E)=000000 000200 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034546 034546 0 0 444000035103 0 000000000200 -IT1 034546 0 0 0 444000035103 0 000000000200 -AT3 034546 0 0 0 000000035103 0 444000035103 -AT6 034546 035103 0 0 000000035103 0 444000035103 -FT0 034546 035103 0 0 000000000200 0 444000035103 -FT1A 034546 035103 0 0 000000000200 0 000000000200 -FT2 034546 035103 0 0 0 0 000000000200 -FT2RQ 034546 035103 0 0 000000000200 0 000000000200 -FT3 034546 035103 0 0 000000000200 0 000000000200 -FT9 034547 035103 0 0 000000000200 0 000000000200 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 657 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0873 - -ET0 034547 035103 0 0 777777777777 0 000000000200 -ST1 034547 035103 0 0 777777777777 0 000000000200 -ST2 034547 035103 0 0 777777777777 0 000000000200 -ST9 034547 035103 0 0 777777777777 0 000000000200 - - -*034547 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034547 034547 0 0 444000035062 0 0 -IT1 034547 0 0 0 444000035062 0 0 -AT3 034547 0 0 0 000000035062 0 444000035062 -AT6 034547 035062 0 0 000000035062 0 444000035062 -FT0 034547 035062 0 0 0 0 444000035062 -FT1A 034547 035062 0 0 0 0 0 -FT2 034547 035062 0 0 0 0 0 -FT2RQ 034547 035062 0 0 777777777777 0 0 -FT3 034547 035062 0 0 777777777777 0 0 -FT9 034550 035062 0 0 777777777777 0 0 -ET0 034550 035062 0 0 0 0 0 -ST1 034550 035062 0 0 0 0 0 -ST2 034550 035062 0 0 0 0 0 -ST9 034550 035062 0 0 0 0 0 - - -*034550 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 034550 034550 0 0 332000000000 0 0 -IT1 034550 0 0 0 332000000000 0 0 -AT3 034550 0 0 0 0 0 332000000000 -AT6 034550 0 0 0 0 0 332000000000 -FT0 034550 0 0 0 0 0 332000000000 -FT1A 034550 0 0 0 0 0 0 -FT9 034551 0 0 0 0 0 0 -ET0 034552 0 0 0 0 0 0 -ST1A 034552 0 0 0 0 0 0 -ST9 034552 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 658 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0874 - -*034552 JUMPA 0,034553 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034552 034552 0 0 324000034553 0 000000034553 -IT1 034552 0 0 0 324000034553 0 000000034553 -AT3 034552 0 0 0 000000034553 0 324000034553 -AT6 034552 034553 0 0 000000034553 0 324000034553 -FT1A 034552 034553 0 0 000000034553 0 000000034553 -FT2 034552 034553 0 0 0 0 000000034553 -FT2RQ 034552 034553 0 0 0 0 000000034553 -FT3 034552 034553 0 0 0 0 000000034553 -FT9 034553 034553 0 0 0 0 000000034553 -ET0 034553 034553 0 0 0 0 000000034553 -ST1A 034553 034553 0 0 0 0 000000034553 -ST9 034553 034553 0 0 0 0 000000034553 - - -*034553 MOVE 0,035104 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000400 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 034553 034553 0 0 200000035104 0 000000000400 -IT1 034553 0 0 0 200000035104 0 000000000400 -AT3 034553 0 0 0 000000035104 0 200000035104 -AT6 034553 035104 0 0 000000035104 0 200000035104 -FT0 034553 035104 0 0 000000000400 0 200000035104 -FT1A 034553 035104 0 0 000000000400 0 000000000400 -FT9 034554 035104 0 0 000000000400 0 000000000400 -ET0 034554 035104 0 0 000000000400 0 000000000400 -ST1 034554 035104 0 0 000000000400 0 000000000400 -ST2 034554 035104 0 0 000000000400 0 000000000400 -ST9 034554 035104 0 0 000000000400 0 000000000400 - - -*034554 AND 0,035104 -INITIAL -C(AC)=000000 000400 -C(E)=000000 000400 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 034554 034554 0 0 404000035104 0 000000000400 -IT1 034554 0 0 0 404000035104 0 000000000400 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 659 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0875 - -AT3 034554 0 0 0 000000035104 0 404000035104 -AT6 034554 035104 0 0 000000035104 0 404000035104 -FT0 034554 035104 0 0 000000000400 0 404000035104 -FT1A 034554 035104 0 0 000000000400 0 000000000400 -FT2 034554 035104 0 0 0 0 000000000400 -FT2RQ 034554 035104 0 0 000000000400 0 000000000400 -FT3 034554 035104 0 0 000000000400 0 000000000400 -FT9 034555 035104 0 0 000000000400 0 000000000400 -ET0 034555 035104 0 0 000000000400 0 000000000400 -ST1 034555 035104 0 0 000000000400 0 000000000400 -ST2 034555 035104 0 0 000000000400 0 000000000400 -ST9 034555 035104 0 0 000000000400 0 000000000400 - - -*034555 EQV 0,035104 -INITIAL -C(AC)=000000 000400 -C(E)=000000 000400 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034555 034555 0 0 444000035104 0 000000000400 -IT1 034555 0 0 0 444000035104 0 000000000400 -AT3 034555 0 0 0 000000035104 0 444000035104 -AT6 034555 035104 0 0 000000035104 0 444000035104 -FT0 034555 035104 0 0 000000000400 0 444000035104 -FT1A 034555 035104 0 0 000000000400 0 000000000400 -FT2 034555 035104 0 0 0 0 000000000400 -FT2RQ 034555 035104 0 0 000000000400 0 000000000400 -FT3 034555 035104 0 0 000000000400 0 000000000400 -FT9 034556 035104 0 0 000000000400 0 000000000400 -ET0 034556 035104 0 0 777777777777 0 000000000400 -ST1 034556 035104 0 0 777777777777 0 000000000400 -ST2 034556 035104 0 0 777777777777 0 000000000400 -ST9 034556 035104 0 0 777777777777 0 000000000400 - - -*034556 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034556 034556 0 0 444000035062 0 0 -IT1 034556 0 0 0 444000035062 0 0 -AT3 034556 0 0 0 000000035062 0 444000035062 -AT6 034556 035062 0 0 000000035062 0 444000035062 -FT0 034556 035062 0 0 0 0 444000035062 -FT1A 034556 035062 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 660 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0876 - -FT2 034556 035062 0 0 0 0 0 -FT2RQ 034556 035062 0 0 777777777777 0 0 -FT3 034556 035062 0 0 777777777777 0 0 -FT9 034557 035062 0 0 777777777777 0 0 -ET0 034557 035062 0 0 0 0 0 -ST1 034557 035062 0 0 0 0 0 -ST2 034557 035062 0 0 0 0 0 -ST9 034557 035062 0 0 0 0 0 - - -*034557 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 034557 034557 0 0 332000000000 0 0 -IT1 034557 0 0 0 332000000000 0 0 -AT3 034557 0 0 0 0 0 332000000000 -AT6 034557 0 0 0 0 0 332000000000 -FT0 034557 0 0 0 0 0 332000000000 -FT1A 034557 0 0 0 0 0 0 -FT9 034560 0 0 0 0 0 0 -ET0 034561 0 0 0 0 0 0 -ST1A 034561 0 0 0 0 0 0 -ST9 034561 0 0 0 0 0 0 - - -*034561 JUMPA 0,034562 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034561 034561 0 0 324000034562 0 000000034562 -IT1 034561 0 0 0 324000034562 0 000000034562 -AT3 034561 0 0 0 000000034562 0 324000034562 -AT6 034561 034562 0 0 000000034562 0 324000034562 -FT1A 034561 034562 0 0 000000034562 0 000000034562 -FT2 034561 034562 0 0 0 0 000000034562 -FT2RQ 034561 034562 0 0 0 0 000000034562 -FT3 034561 034562 0 0 0 0 000000034562 -FT9 034562 034562 0 0 0 0 000000034562 -ET0 034562 034562 0 0 0 0 000000034562 -ST1A 034562 034562 0 0 0 0 000000034562 -ST9 034562 034562 0 0 0 0 000000034562 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 661 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0877 - -*034562 MOVE 0,035105 -INITIAL -C(AC)=000000 000000 -C(E)=000000 001000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 034562 034562 0 0 200000035105 0 000000001000 -IT1 034562 0 0 0 200000035105 0 000000001000 -AT3 034562 0 0 0 000000035105 0 200000035105 -AT6 034562 035105 0 0 000000035105 0 200000035105 -FT0 034562 035105 0 0 000000001000 0 200000035105 -FT1A 034562 035105 0 0 000000001000 0 000000001000 -FT9 034563 035105 0 0 000000001000 0 000000001000 -ET0 034563 035105 0 0 000000001000 0 000000001000 -ST1 034563 035105 0 0 000000001000 0 000000001000 -ST2 034563 035105 0 0 000000001000 0 000000001000 -ST9 034563 035105 0 0 000000001000 0 000000001000 - - -*034563 AND 0,035105 -INITIAL -C(AC)=000000 001000 -C(E)=000000 001000 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 034563 034563 0 0 404000035105 0 000000001000 -IT1 034563 0 0 0 404000035105 0 000000001000 -AT3 034563 0 0 0 000000035105 0 404000035105 -AT6 034563 035105 0 0 000000035105 0 404000035105 -FT0 034563 035105 0 0 000000001000 0 404000035105 -FT1A 034563 035105 0 0 000000001000 0 000000001000 -FT2 034563 035105 0 0 0 0 000000001000 -FT2RQ 034563 035105 0 0 000000001000 0 000000001000 -FT3 034563 035105 0 0 000000001000 0 000000001000 -FT9 034564 035105 0 0 000000001000 0 000000001000 -ET0 034564 035105 0 0 000000001000 0 000000001000 -ST1 034564 035105 0 0 000000001000 0 000000001000 -ST2 034564 035105 0 0 000000001000 0 000000001000 -ST9 034564 035105 0 0 000000001000 0 000000001000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 662 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0878 - -*034564 EQV 0,035105 -INITIAL -C(AC)=000000 001000 -C(E)=000000 001000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034564 034564 0 0 444000035105 0 000000001000 -IT1 034564 0 0 0 444000035105 0 000000001000 -AT3 034564 0 0 0 000000035105 0 444000035105 -AT6 034564 035105 0 0 000000035105 0 444000035105 -FT0 034564 035105 0 0 000000001000 0 444000035105 -FT1A 034564 035105 0 0 000000001000 0 000000001000 -FT2 034564 035105 0 0 0 0 000000001000 -FT2RQ 034564 035105 0 0 000000001000 0 000000001000 -FT3 034564 035105 0 0 000000001000 0 000000001000 -FT9 034565 035105 0 0 000000001000 0 000000001000 -ET0 034565 035105 0 0 777777777777 0 000000001000 -ST1 034565 035105 0 0 777777777777 0 000000001000 -ST2 034565 035105 0 0 777777777777 0 000000001000 -ST9 034565 035105 0 0 777777777777 0 000000001000 - - -*034565 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034565 034565 0 0 444000035062 0 0 -IT1 034565 0 0 0 444000035062 0 0 -AT3 034565 0 0 0 000000035062 0 444000035062 -AT6 034565 035062 0 0 000000035062 0 444000035062 -FT0 034565 035062 0 0 0 0 444000035062 -FT1A 034565 035062 0 0 0 0 0 -FT2 034565 035062 0 0 0 0 0 -FT2RQ 034565 035062 0 0 777777777777 0 0 -FT3 034565 035062 0 0 777777777777 0 0 -FT9 034566 035062 0 0 777777777777 0 0 -ET0 034566 035062 0 0 0 0 0 -ST1 034566 035062 0 0 0 0 0 -ST2 034566 035062 0 0 0 0 0 -ST9 034566 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 663 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0879 - -*034566 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 034566 034566 0 0 332000000000 0 0 -IT1 034566 0 0 0 332000000000 0 0 -AT3 034566 0 0 0 0 0 332000000000 -AT6 034566 0 0 0 0 0 332000000000 -FT0 034566 0 0 0 0 0 332000000000 -FT1A 034566 0 0 0 0 0 0 -FT9 034567 0 0 0 0 0 0 -ET0 034570 0 0 0 0 0 0 -ST1A 034570 0 0 0 0 0 0 -ST9 034570 0 0 0 0 0 0 - - -*034570 JUMPA 0,034571 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034570 034570 0 0 324000034571 0 000000034571 -IT1 034570 0 0 0 324000034571 0 000000034571 -AT3 034570 0 0 0 000000034571 0 324000034571 -AT6 034570 034571 0 0 000000034571 0 324000034571 -FT1A 034570 034571 0 0 000000034571 0 000000034571 -FT2 034570 034571 0 0 0 0 000000034571 -FT2RQ 034570 034571 0 0 0 0 000000034571 -FT3 034570 034571 0 0 0 0 000000034571 -FT9 034571 034571 0 0 0 0 000000034571 -ET0 034571 034571 0 0 0 0 000000034571 -ST1A 034571 034571 0 0 0 0 000000034571 -ST9 034571 034571 0 0 0 0 000000034571 - - -*034571 MOVE 0,035106 -INITIAL -C(AC)=000000 000000 -C(E)=000000 002000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 034571 034571 0 0 200000035106 0 000000002000 -IT1 034571 0 0 0 200000035106 0 000000002000 -AT3 034571 0 0 0 000000035106 0 200000035106 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 664 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0880 - -AT6 034571 035106 0 0 000000035106 0 200000035106 -FT0 034571 035106 0 0 000000002000 0 200000035106 -FT1A 034571 035106 0 0 000000002000 0 000000002000 -FT9 034572 035106 0 0 000000002000 0 000000002000 -ET0 034572 035106 0 0 000000002000 0 000000002000 -ST1 034572 035106 0 0 000000002000 0 000000002000 -ST2 034572 035106 0 0 000000002000 0 000000002000 -ST9 034572 035106 0 0 000000002000 0 000000002000 - - -*034572 AND 0,035106 -INITIAL -C(AC)=000000 002000 -C(E)=000000 002000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 034572 034572 0 0 404000035106 0 000000002000 -IT1 034572 0 0 0 404000035106 0 000000002000 -AT3 034572 0 0 0 000000035106 0 404000035106 -AT6 034572 035106 0 0 000000035106 0 404000035106 -FT0 034572 035106 0 0 000000002000 0 404000035106 -FT1A 034572 035106 0 0 000000002000 0 000000002000 -FT2 034572 035106 0 0 0 0 000000002000 -FT2RQ 034572 035106 0 0 000000002000 0 000000002000 -FT3 034572 035106 0 0 000000002000 0 000000002000 -FT9 034573 035106 0 0 000000002000 0 000000002000 -ET0 034573 035106 0 0 000000002000 0 000000002000 -ST1 034573 035106 0 0 000000002000 0 000000002000 -ST2 034573 035106 0 0 000000002000 0 000000002000 -ST9 034573 035106 0 0 000000002000 0 000000002000 - - -*034573 EQV 0,035106 -INITIAL -C(AC)=000000 002000 -C(E)=000000 002000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034573 034573 0 0 444000035106 0 000000002000 -IT1 034573 0 0 0 444000035106 0 000000002000 -AT3 034573 0 0 0 000000035106 0 444000035106 -AT6 034573 035106 0 0 000000035106 0 444000035106 -FT0 034573 035106 0 0 000000002000 0 444000035106 -FT1A 034573 035106 0 0 000000002000 0 000000002000 -FT2 034573 035106 0 0 0 0 000000002000 -FT2RQ 034573 035106 0 0 000000002000 0 000000002000 -FT3 034573 035106 0 0 000000002000 0 000000002000 -FT9 034574 035106 0 0 000000002000 0 000000002000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 665 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0881 - -ET0 034574 035106 0 0 777777777777 0 000000002000 -ST1 034574 035106 0 0 777777777777 0 000000002000 -ST2 034574 035106 0 0 777777777777 0 000000002000 -ST9 034574 035106 0 0 777777777777 0 000000002000 - - -*034574 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034574 034574 0 0 444000035062 0 0 -IT1 034574 0 0 0 444000035062 0 0 -AT3 034574 0 0 0 000000035062 0 444000035062 -AT6 034574 035062 0 0 000000035062 0 444000035062 -FT0 034574 035062 0 0 0 0 444000035062 -FT1A 034574 035062 0 0 0 0 0 -FT2 034574 035062 0 0 0 0 0 -FT2RQ 034574 035062 0 0 777777777777 0 0 -FT3 034574 035062 0 0 777777777777 0 0 -FT9 034575 035062 0 0 777777777777 0 0 -ET0 034575 035062 0 0 0 0 0 -ST1 034575 035062 0 0 0 0 0 -ST2 034575 035062 0 0 0 0 0 -ST9 034575 035062 0 0 0 0 0 - - -*034575 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 034575 034575 0 0 332000000000 0 0 -IT1 034575 0 0 0 332000000000 0 0 -AT3 034575 0 0 0 0 0 332000000000 -AT6 034575 0 0 0 0 0 332000000000 -FT0 034575 0 0 0 0 0 332000000000 -FT1A 034575 0 0 0 0 0 0 -FT9 034576 0 0 0 0 0 0 -ET0 034577 0 0 0 0 0 0 -ST1A 034577 0 0 0 0 0 0 -ST9 034577 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 666 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0882 - -*034577 JUMPA 0,034600 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034577 034577 0 0 324000034600 0 000000034600 -IT1 034577 0 0 0 324000034600 0 000000034600 -AT3 034577 0 0 0 000000034600 0 324000034600 -AT6 034577 0 0 0 000000034600 0 324000034600 -FT1A 034577 0 0 0 000000034600 0 000000034600 -FT2 034577 0 0 0 0 0 000000034600 -FT2RQ 034577 0 0 0 0 0 000000034600 -FT3 034577 0 0 0 0 0 000000034600 -FT9 0 0 0 0 0 0 000000034600 -ET0 0 0 0 0 0 0 000000034600 -ST1A 0 0 0 0 0 0 000000034600 -ST9 0 0 0 0 0 0 000000034600 - - -*034600 MOVE 0,035107 -INITIAL -C(AC)=000000 000000 -C(E)=000000 004000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 200000035107 0 000000004000 -IT1 0 0 0 0 200000035107 0 000000004000 -AT3 0 0 0 0 000000035107 0 200000035107 -AT6 0 035107 0 0 000000035107 0 200000035107 -FT0 0 035107 0 0 000000004000 0 200000035107 -FT1A 0 035107 0 0 000000004000 0 000000004000 -FT9 034601 035107 0 0 000000004000 0 000000004000 -ET0 034601 035107 0 0 000000004000 0 000000004000 -ST1 034601 035107 0 0 000000004000 0 000000004000 -ST2 034601 035107 0 0 000000004000 0 000000004000 -ST9 034601 035107 0 0 000000004000 0 000000004000 - - -*034601 AND 0,035107 -INITIAL -C(AC)=000000 004000 -C(E)=000000 004000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 034601 034601 0 0 404000035107 0 000000004000 -IT1 034601 0 0 0 404000035107 0 000000004000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 667 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0883 - -AT3 034601 0 0 0 000000035107 0 404000035107 -AT6 034601 035107 0 0 000000035107 0 404000035107 -FT0 034601 035107 0 0 000000004000 0 404000035107 -FT1A 034601 035107 0 0 000000004000 0 000000004000 -FT2 034601 035107 0 0 0 0 000000004000 -FT2RQ 034601 035107 0 0 000000004000 0 000000004000 -FT3 034601 035107 0 0 000000004000 0 000000004000 -FT9 034602 035107 0 0 000000004000 0 000000004000 -ET0 034602 035107 0 0 000000004000 0 000000004000 -ST1 034602 035107 0 0 000000004000 0 000000004000 -ST2 034602 035107 0 0 000000004000 0 000000004000 -ST9 034602 035107 0 0 000000004000 0 000000004000 - - -*034602 EQV 0,035107 -INITIAL -C(AC)=000000 004000 -C(E)=000000 004000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034602 034602 0 0 444000035107 0 000000004000 -IT1 034602 0 0 0 444000035107 0 000000004000 -AT3 034602 0 0 0 000000035107 0 444000035107 -AT6 034602 035107 0 0 000000035107 0 444000035107 -FT0 034602 035107 0 0 000000004000 0 444000035107 -FT1A 034602 035107 0 0 000000004000 0 000000004000 -FT2 034602 035107 0 0 0 0 000000004000 -FT2RQ 034602 035107 0 0 000000004000 0 000000004000 -FT3 034602 035107 0 0 000000004000 0 000000004000 -FT9 034603 035107 0 0 000000004000 0 000000004000 -ET0 034603 035107 0 0 777777777777 0 000000004000 -ST1 034603 035107 0 0 777777777777 0 000000004000 -ST2 034603 035107 0 0 777777777777 0 000000004000 -ST9 034603 035107 0 0 777777777777 0 000000004000 - - -*034603 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034603 034603 0 0 444000035062 0 0 -IT1 034603 0 0 0 444000035062 0 0 -AT3 034603 0 0 0 000000035062 0 444000035062 -AT6 034603 035062 0 0 000000035062 0 444000035062 -FT0 034603 035062 0 0 0 0 444000035062 -FT1A 034603 035062 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 668 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0884 - -FT2 034603 035062 0 0 0 0 0 -FT2RQ 034603 035062 0 0 777777777777 0 0 -FT3 034603 035062 0 0 777777777777 0 0 -FT9 034604 035062 0 0 777777777777 0 0 -ET0 034604 035062 0 0 0 0 0 -ST1 034604 035062 0 0 0 0 0 -ST2 034604 035062 0 0 0 0 0 -ST9 034604 035062 0 0 0 0 0 - - -*034604 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 034604 034604 0 0 332000000000 0 0 -IT1 034604 0 0 0 332000000000 0 0 -AT3 034604 0 0 0 0 0 332000000000 -AT6 034604 0 0 0 0 0 332000000000 -FT0 034604 0 0 0 0 0 332000000000 -FT1A 034604 0 0 0 0 0 0 -FT9 034605 0 0 0 0 0 0 -ET0 034606 0 0 0 0 0 0 -ST1A 034606 0 0 0 0 0 0 -ST9 034606 0 0 0 0 0 0 - - -*034606 JUMPA 0,034607 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034606 034606 0 0 324000034607 0 000000034607 -IT1 034606 0 0 0 324000034607 0 000000034607 -AT3 034606 0 0 0 000000034607 0 324000034607 -AT6 034606 034607 0 0 000000034607 0 324000034607 -FT1A 034606 034607 0 0 000000034607 0 000000034607 -FT2 034606 034607 0 0 0 0 000000034607 -FT2RQ 034606 034607 0 0 0 0 000000034607 -FT3 034606 034607 0 0 0 0 000000034607 -FT9 034607 034607 0 0 0 0 000000034607 -ET0 034607 034607 0 0 0 0 000000034607 -ST1A 034607 034607 0 0 0 0 000000034607 -ST9 034607 034607 0 0 0 0 000000034607 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 669 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0885 - -*034607 MOVE 0,035110 -INITIAL -C(AC)=000000 000000 -C(E)=000000 010000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 034607 034607 0 0 200000035110 0 000000010000 -IT1 034607 0 0 0 200000035110 0 000000010000 -AT3 034607 0 0 0 000000035110 0 200000035110 -AT6 034607 035110 0 0 000000035110 0 200000035110 -FT0 034607 035110 0 0 000000010000 0 200000035110 -FT1A 034607 035110 0 0 000000010000 0 000000010000 -FT9 034610 035110 0 0 000000010000 0 000000010000 -ET0 034610 035110 0 0 000000010000 0 000000010000 -ST1 034610 035110 0 0 000000010000 0 000000010000 -ST2 034610 035110 0 0 000000010000 0 000000010000 -ST9 034610 035110 0 0 000000010000 0 000000010000 - - -*034610 AND 0,035110 -INITIAL -C(AC)=000000 010000 -C(E)=000000 010000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 034610 034610 0 0 404000035110 0 000000010000 -IT1 034610 0 0 0 404000035110 0 000000010000 -AT3 034610 0 0 0 000000035110 0 404000035110 -AT6 034610 035110 0 0 000000035110 0 404000035110 -FT0 034610 035110 0 0 000000010000 0 404000035110 -FT1A 034610 035110 0 0 000000010000 0 000000010000 -FT2 034610 035110 0 0 0 0 000000010000 -FT2RQ 034610 035110 0 0 000000010000 0 000000010000 -FT3 034610 035110 0 0 000000010000 0 000000010000 -FT9 034611 035110 0 0 000000010000 0 000000010000 -ET0 034611 035110 0 0 000000010000 0 000000010000 -ST1 034611 035110 0 0 000000010000 0 000000010000 -ST2 034611 035110 0 0 000000010000 0 000000010000 -ST9 034611 035110 0 0 000000010000 0 000000010000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 670 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0886 - -*034611 EQV 0,035110 -INITIAL -C(AC)=000000 010000 -C(E)=000000 010000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034611 034611 0 0 444000035110 0 000000010000 -IT1 034611 0 0 0 444000035110 0 000000010000 -AT3 034611 0 0 0 000000035110 0 444000035110 -AT6 034611 035110 0 0 000000035110 0 444000035110 -FT0 034611 035110 0 0 000000010000 0 444000035110 -FT1A 034611 035110 0 0 000000010000 0 000000010000 -FT2 034611 035110 0 0 0 0 000000010000 -FT2RQ 034611 035110 0 0 000000010000 0 000000010000 -FT3 034611 035110 0 0 000000010000 0 000000010000 -FT9 034612 035110 0 0 000000010000 0 000000010000 -ET0 034612 035110 0 0 777777777777 0 000000010000 -ST1 034612 035110 0 0 777777777777 0 000000010000 -ST2 034612 035110 0 0 777777777777 0 000000010000 -ST9 034612 035110 0 0 777777777777 0 000000010000 - - -*034612 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034612 034612 0 0 444000035062 0 0 -IT1 034612 0 0 0 444000035062 0 0 -AT3 034612 0 0 0 000000035062 0 444000035062 -AT6 034612 035062 0 0 000000035062 0 444000035062 -FT0 034612 035062 0 0 0 0 444000035062 -FT1A 034612 035062 0 0 0 0 0 -FT2 034612 035062 0 0 0 0 0 -FT2RQ 034612 035062 0 0 777777777777 0 0 -FT3 034612 035062 0 0 777777777777 0 0 -FT9 034613 035062 0 0 777777777777 0 0 -ET0 034613 035062 0 0 0 0 0 -ST1 034613 035062 0 0 0 0 0 -ST2 034613 035062 0 0 0 0 0 -ST9 034613 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 671 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0887 - -*034613 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 034613 034613 0 0 332000000000 0 0 -IT1 034613 0 0 0 332000000000 0 0 -AT3 034613 0 0 0 0 0 332000000000 -AT6 034613 0 0 0 0 0 332000000000 -FT0 034613 0 0 0 0 0 332000000000 -FT1A 034613 0 0 0 0 0 0 -FT9 034614 0 0 0 0 0 0 -ET0 034615 0 0 0 0 0 0 -ST1A 034615 0 0 0 0 0 0 -ST9 034615 0 0 0 0 0 0 - - -*034615 JUMPA 0,034616 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034615 034615 0 0 324000034616 0 000000034616 -IT1 034615 0 0 0 324000034616 0 000000034616 -AT3 034615 0 0 0 000000034616 0 324000034616 -AT6 034615 034616 0 0 000000034616 0 324000034616 -FT1A 034615 034616 0 0 000000034616 0 000000034616 -FT2 034615 034616 0 0 0 0 000000034616 -FT2RQ 034615 034616 0 0 0 0 000000034616 -FT3 034615 034616 0 0 0 0 000000034616 -FT9 034616 034616 0 0 0 0 000000034616 -ET0 034616 034616 0 0 0 0 000000034616 -ST1A 034616 034616 0 0 0 0 000000034616 -ST9 034616 034616 0 0 0 0 000000034616 - - -*034616 MOVE 0,035111 -INITIAL -C(AC)=000000 000000 -C(E)=000000 020000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 034616 034616 0 0 200000035111 0 000000020000 -IT1 034616 0 0 0 200000035111 0 000000020000 -AT3 034616 0 0 0 000000035111 0 200000035111 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 672 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0888 - -AT6 034616 035111 0 0 000000035111 0 200000035111 -FT0 034616 035111 0 0 000000020000 0 200000035111 -FT1A 034616 035111 0 0 000000020000 0 000000020000 -FT9 034617 035111 0 0 000000020000 0 000000020000 -ET0 034617 035111 0 0 000000020000 0 000000020000 -ST1 034617 035111 0 0 000000020000 0 000000020000 -ST2 034617 035111 0 0 000000020000 0 000000020000 -ST9 034617 035111 0 0 000000020000 0 000000020000 - - -*034617 AND 0,035111 -INITIAL -C(AC)=000000 020000 -C(E)=000000 020000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 034617 034617 0 0 404000035111 0 000000020000 -IT1 034617 0 0 0 404000035111 0 000000020000 -AT3 034617 0 0 0 000000035111 0 404000035111 -AT6 034617 035111 0 0 000000035111 0 404000035111 -FT0 034617 035111 0 0 000000020000 0 404000035111 -FT1A 034617 035111 0 0 000000020000 0 000000020000 -FT2 034617 035111 0 0 0 0 000000020000 -FT2RQ 034617 035111 0 0 000000020000 0 000000020000 -FT3 034617 035111 0 0 000000020000 0 000000020000 -FT9 034620 035111 0 0 000000020000 0 000000020000 -ET0 034620 035111 0 0 000000020000 0 000000020000 -ST1 034620 035111 0 0 000000020000 0 000000020000 -ST2 034620 035111 0 0 000000020000 0 000000020000 -ST9 034620 035111 0 0 000000020000 0 000000020000 - - -*034620 EQV 0,035111 -INITIAL -C(AC)=000000 020000 -C(E)=000000 020000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034620 034620 0 0 444000035111 0 000000020000 -IT1 034620 0 0 0 444000035111 0 000000020000 -AT3 034620 0 0 0 000000035111 0 444000035111 -AT6 034620 035111 0 0 000000035111 0 444000035111 -FT0 034620 035111 0 0 000000020000 0 444000035111 -FT1A 034620 035111 0 0 000000020000 0 000000020000 -FT2 034620 035111 0 0 0 0 000000020000 -FT2RQ 034620 035111 0 0 000000020000 0 000000020000 -FT3 034620 035111 0 0 000000020000 0 000000020000 -FT9 034621 035111 0 0 000000020000 0 000000020000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 673 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0889 - -ET0 034621 035111 0 0 777777777777 0 000000020000 -ST1 034621 035111 0 0 777777777777 0 000000020000 -ST2 034621 035111 0 0 777777777777 0 000000020000 -ST9 034621 035111 0 0 777777777777 0 000000020000 - - -*034621 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034621 034621 0 0 444000035062 0 0 -IT1 034621 0 0 0 444000035062 0 0 -AT3 034621 0 0 0 000000035062 0 444000035062 -AT6 034621 035062 0 0 000000035062 0 444000035062 -FT0 034621 035062 0 0 0 0 444000035062 -FT1A 034621 035062 0 0 0 0 0 -FT2 034621 035062 0 0 0 0 0 -FT2RQ 034621 035062 0 0 777777777777 0 0 -FT3 034621 035062 0 0 777777777777 0 0 -FT9 034622 035062 0 0 777777777777 0 0 -ET0 034622 035062 0 0 0 0 0 -ST1 034622 035062 0 0 0 0 0 -ST2 034622 035062 0 0 0 0 0 -ST9 034622 035062 0 0 0 0 0 - - -*034622 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 034622 034622 0 0 332000000000 0 0 -IT1 034622 0 0 0 332000000000 0 0 -AT3 034622 0 0 0 0 0 332000000000 -AT6 034622 0 0 0 0 0 332000000000 -FT0 034622 0 0 0 0 0 332000000000 -FT1A 034622 0 0 0 0 0 0 -FT9 034623 0 0 0 0 0 0 -ET0 034624 0 0 0 0 0 0 -ST1A 034624 0 0 0 0 0 0 -ST9 034624 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 674 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0890 - -*034624 JUMPA 0,034625 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034624 034624 0 0 324000034625 0 000000034625 -IT1 034624 0 0 0 324000034625 0 000000034625 -AT3 034624 0 0 0 000000034625 0 324000034625 -AT6 034624 034625 0 0 000000034625 0 324000034625 -FT1A 034624 034625 0 0 000000034625 0 000000034625 -FT2 034624 034625 0 0 0 0 000000034625 -FT2RQ 034624 034625 0 0 0 0 000000034625 -FT3 034624 034625 0 0 0 0 000000034625 -FT9 034625 034625 0 0 0 0 000000034625 -ET0 034625 034625 0 0 0 0 000000034625 -ST1A 034625 034625 0 0 0 0 000000034625 -ST9 034625 034625 0 0 0 0 000000034625 - - -*034625 MOVE 0,035112 -INITIAL -C(AC)=000000 000000 -C(E)=000000 040000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 034625 034625 0 0 200000035112 0 000000040000 -IT1 034625 0 0 0 200000035112 0 000000040000 -AT3 034625 0 0 0 000000035112 0 200000035112 -AT6 034625 035112 0 0 000000035112 0 200000035112 -FT0 034625 035112 0 0 000000040000 0 200000035112 -FT1A 034625 035112 0 0 000000040000 0 000000040000 -FT9 034626 035112 0 0 000000040000 0 000000040000 -ET0 034626 035112 0 0 000000040000 0 000000040000 -ST1 034626 035112 0 0 000000040000 0 000000040000 -ST2 034626 035112 0 0 000000040000 0 000000040000 -ST9 034626 035112 0 0 000000040000 0 000000040000 - - -*034626 AND 0,035112 -INITIAL -C(AC)=000000 040000 -C(E)=000000 040000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 034626 034626 0 0 404000035112 0 000000040000 -IT1 034626 0 0 0 404000035112 0 000000040000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 675 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0891 - -AT3 034626 0 0 0 000000035112 0 404000035112 -AT6 034626 035112 0 0 000000035112 0 404000035112 -FT0 034626 035112 0 0 000000040000 0 404000035112 -FT1A 034626 035112 0 0 000000040000 0 000000040000 -FT2 034626 035112 0 0 0 0 000000040000 -FT2RQ 034626 035112 0 0 000000040000 0 000000040000 -FT3 034626 035112 0 0 000000040000 0 000000040000 -FT9 034627 035112 0 0 000000040000 0 000000040000 -ET0 034627 035112 0 0 000000040000 0 000000040000 -ST1 034627 035112 0 0 000000040000 0 000000040000 -ST2 034627 035112 0 0 000000040000 0 000000040000 -ST9 034627 035112 0 0 000000040000 0 000000040000 - - -*034627 EQV 0,035112 -INITIAL -C(AC)=000000 040000 -C(E)=000000 040000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034627 034627 0 0 444000035112 0 000000040000 -IT1 034627 0 0 0 444000035112 0 000000040000 -AT3 034627 0 0 0 000000035112 0 444000035112 -AT6 034627 035112 0 0 000000035112 0 444000035112 -FT0 034627 035112 0 0 000000040000 0 444000035112 -FT1A 034627 035112 0 0 000000040000 0 000000040000 -FT2 034627 035112 0 0 0 0 000000040000 -FT2RQ 034627 035112 0 0 000000040000 0 000000040000 -FT3 034627 035112 0 0 000000040000 0 000000040000 -FT9 034630 035112 0 0 000000040000 0 000000040000 -ET0 034630 035112 0 0 777777777777 0 000000040000 -ST1 034630 035112 0 0 777777777777 0 000000040000 -ST2 034630 035112 0 0 777777777777 0 000000040000 -ST9 034630 035112 0 0 777777777777 0 000000040000 - - -*034630 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034630 034630 0 0 444000035062 0 0 -IT1 034630 0 0 0 444000035062 0 0 -AT3 034630 0 0 0 000000035062 0 444000035062 -AT6 034630 035062 0 0 000000035062 0 444000035062 -FT0 034630 035062 0 0 0 0 444000035062 -FT1A 034630 035062 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 676 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0892 - -FT2 034630 035062 0 0 0 0 0 -FT2RQ 034630 035062 0 0 777777777777 0 0 -FT3 034630 035062 0 0 777777777777 0 0 -FT9 034631 035062 0 0 777777777777 0 0 -ET0 034631 035062 0 0 0 0 0 -ST1 034631 035062 0 0 0 0 0 -ST2 034631 035062 0 0 0 0 0 -ST9 034631 035062 0 0 0 0 0 - - -*034631 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 034631 034631 0 0 332000000000 0 0 -IT1 034631 0 0 0 332000000000 0 0 -AT3 034631 0 0 0 0 0 332000000000 -AT6 034631 0 0 0 0 0 332000000000 -FT0 034631 0 0 0 0 0 332000000000 -FT1A 034631 0 0 0 0 0 0 -FT9 034632 0 0 0 0 0 0 -ET0 034633 0 0 0 0 0 0 -ST1A 034633 0 0 0 0 0 0 -ST9 034633 0 0 0 0 0 0 - - -*034633 JUMPA 0,034634 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034633 034633 0 0 324000034634 0 000000034634 -IT1 034633 0 0 0 324000034634 0 000000034634 -AT3 034633 0 0 0 000000034634 0 324000034634 -AT6 034633 034634 0 0 000000034634 0 324000034634 -FT1A 034633 034634 0 0 000000034634 0 000000034634 -FT2 034633 034634 0 0 0 0 000000034634 -FT2RQ 034633 034634 0 0 0 0 000000034634 -FT3 034633 034634 0 0 0 0 000000034634 -FT9 034634 034634 0 0 0 0 000000034634 -ET0 034634 034634 0 0 0 0 000000034634 -ST1A 034634 034634 0 0 0 0 000000034634 -ST9 034634 034634 0 0 0 0 000000034634 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 677 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0893 - -*034634 MOVE 0,035113 -INITIAL -C(AC)=000000 000000 -C(E)=000000 100000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 034634 034634 0 0 200000035113 0 000000100000 -IT1 034634 0 0 0 200000035113 0 000000100000 -AT3 034634 0 0 0 000000035113 0 200000035113 -AT6 034634 035113 0 0 000000035113 0 200000035113 -FT0 034634 035113 0 0 000000100000 0 200000035113 -FT1A 034634 035113 0 0 000000100000 0 000000100000 -FT9 034635 035113 0 0 000000100000 0 000000100000 -ET0 034635 035113 0 0 000000100000 0 000000100000 -ST1 034635 035113 0 0 000000100000 0 000000100000 -ST2 034635 035113 0 0 000000100000 0 000000100000 -ST9 034635 035113 0 0 000000100000 0 000000100000 - - -*034635 AND 0,035113 -INITIAL -C(AC)=000000 100000 -C(E)=000000 100000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 034635 034635 0 0 404000035113 0 000000100000 -IT1 034635 0 0 0 404000035113 0 000000100000 -AT3 034635 0 0 0 000000035113 0 404000035113 -AT6 034635 035113 0 0 000000035113 0 404000035113 -FT0 034635 035113 0 0 000000100000 0 404000035113 -FT1A 034635 035113 0 0 000000100000 0 000000100000 -FT2 034635 035113 0 0 0 0 000000100000 -FT2RQ 034635 035113 0 0 000000100000 0 000000100000 -FT3 034635 035113 0 0 000000100000 0 000000100000 -FT9 034636 035113 0 0 000000100000 0 000000100000 -ET0 034636 035113 0 0 000000100000 0 000000100000 -ST1 034636 035113 0 0 000000100000 0 000000100000 -ST2 034636 035113 0 0 000000100000 0 000000100000 -ST9 034636 035113 0 0 000000100000 0 000000100000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 678 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0894 - -*034636 EQV 0,035113 -INITIAL -C(AC)=000000 100000 -C(E)=000000 100000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034636 034636 0 0 444000035113 0 000000100000 -IT1 034636 0 0 0 444000035113 0 000000100000 -AT3 034636 0 0 0 000000035113 0 444000035113 -AT6 034636 035113 0 0 000000035113 0 444000035113 -FT0 034636 035113 0 0 000000100000 0 444000035113 -FT1A 034636 035113 0 0 000000100000 0 000000100000 -FT2 034636 035113 0 0 0 0 000000100000 -FT2RQ 034636 035113 0 0 000000100000 0 000000100000 -FT3 034636 035113 0 0 000000100000 0 000000100000 -FT9 034637 035113 0 0 000000100000 0 000000100000 -ET0 034637 035113 0 0 777777777777 0 000000100000 -ST1 034637 035113 0 0 777777777777 0 000000100000 -ST2 034637 035113 0 0 777777777777 0 000000100000 -ST9 034637 035113 0 0 777777777777 0 000000100000 - - -*034637 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034637 034637 0 0 444000035062 0 0 -IT1 034637 0 0 0 444000035062 0 0 -AT3 034637 0 0 0 000000035062 0 444000035062 -AT6 034637 035062 0 0 000000035062 0 444000035062 -FT0 034637 035062 0 0 0 0 444000035062 -FT1A 034637 035062 0 0 0 0 0 -FT2 034637 035062 0 0 0 0 0 -FT2RQ 034637 035062 0 0 777777777777 0 0 -FT3 034637 035062 0 0 777777777777 0 0 -FT9 034640 035062 0 0 777777777777 0 0 -ET0 034640 035062 0 0 0 0 0 -ST1 034640 035062 0 0 0 0 0 -ST2 034640 035062 0 0 0 0 0 -ST9 034640 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 679 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0895 - -*034640 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 034640 034640 0 0 332000000000 0 0 -IT1 034640 0 0 0 332000000000 0 0 -AT3 034640 0 0 0 0 0 332000000000 -AT6 034640 0 0 0 0 0 332000000000 -FT0 034640 0 0 0 0 0 332000000000 -FT1A 034640 0 0 0 0 0 0 -FT9 034641 0 0 0 0 0 0 -ET0 034642 0 0 0 0 0 0 -ST1A 034642 0 0 0 0 0 0 -ST9 034642 0 0 0 0 0 0 - - -*034642 JUMPA 0,034643 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034642 034642 0 0 324000034643 0 000000034643 -IT1 034642 0 0 0 324000034643 0 000000034643 -AT3 034642 0 0 0 000000034643 0 324000034643 -AT6 034642 034643 0 0 000000034643 0 324000034643 -FT1A 034642 034643 0 0 000000034643 0 000000034643 -FT2 034642 034643 0 0 0 0 000000034643 -FT2RQ 034642 034643 0 0 0 0 000000034643 -FT3 034642 034643 0 0 0 0 000000034643 -FT9 034643 034643 0 0 0 0 000000034643 -ET0 034643 034643 0 0 0 0 000000034643 -ST1A 034643 034643 0 0 0 0 000000034643 -ST9 034643 034643 0 0 0 0 000000034643 - - -*034643 MOVE 0,035114 -INITIAL -C(AC)=000000 000000 -C(E)=000000 200000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 034643 034643 0 0 200000035114 0 000000200000 -IT1 034643 0 0 0 200000035114 0 000000200000 -AT3 034643 0 0 0 000000035114 0 200000035114 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 680 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0896 - -AT6 034643 035114 0 0 000000035114 0 200000035114 -FT0 034643 035114 0 0 000000200000 0 200000035114 -FT1A 034643 035114 0 0 000000200000 0 000000200000 -FT9 034644 035114 0 0 000000200000 0 000000200000 -ET0 034644 035114 0 0 000000200000 0 000000200000 -ST1 034644 035114 0 0 000000200000 0 000000200000 -ST2 034644 035114 0 0 000000200000 0 000000200000 -ST9 034644 035114 0 0 000000200000 0 000000200000 - - -*034644 AND 0,035114 -INITIAL -C(AC)=000000 200000 -C(E)=000000 200000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 034644 034644 0 0 404000035114 0 000000200000 -IT1 034644 0 0 0 404000035114 0 000000200000 -AT3 034644 0 0 0 000000035114 0 404000035114 -AT6 034644 035114 0 0 000000035114 0 404000035114 -FT0 034644 035114 0 0 000000200000 0 404000035114 -FT1A 034644 035114 0 0 000000200000 0 000000200000 -FT2 034644 035114 0 0 0 0 000000200000 -FT2RQ 034644 035114 0 0 000000200000 0 000000200000 -FT3 034644 035114 0 0 000000200000 0 000000200000 -FT9 034645 035114 0 0 000000200000 0 000000200000 -ET0 034645 035114 0 0 000000200000 0 000000200000 -ST1 034645 035114 0 0 000000200000 0 000000200000 -ST2 034645 035114 0 0 000000200000 0 000000200000 -ST9 034645 035114 0 0 000000200000 0 000000200000 - - -*034645 EQV 0,035114 -INITIAL -C(AC)=000000 200000 -C(E)=000000 200000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034645 034645 0 0 444000035114 0 000000200000 -IT1 034645 0 0 0 444000035114 0 000000200000 -AT3 034645 0 0 0 000000035114 0 444000035114 -AT6 034645 035114 0 0 000000035114 0 444000035114 -FT0 034645 035114 0 0 000000200000 0 444000035114 -FT1A 034645 035114 0 0 000000200000 0 000000200000 -FT2 034645 035114 0 0 0 0 000000200000 -FT2RQ 034645 035114 0 0 000000200000 0 000000200000 -FT3 034645 035114 0 0 000000200000 0 000000200000 -FT9 034646 035114 0 0 000000200000 0 000000200000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 681 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0897 - -ET0 034646 035114 0 0 777777777777 0 000000200000 -ST1 034646 035114 0 0 777777777777 0 000000200000 -ST2 034646 035114 0 0 777777777777 0 000000200000 -ST9 034646 035114 0 0 777777777777 0 000000200000 - - -*034646 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034646 034646 0 0 444000035062 0 0 -IT1 034646 0 0 0 444000035062 0 0 -AT3 034646 0 0 0 000000035062 0 444000035062 -AT6 034646 035062 0 0 000000035062 0 444000035062 -FT0 034646 035062 0 0 0 0 444000035062 -FT1A 034646 035062 0 0 0 0 0 -FT2 034646 035062 0 0 0 0 0 -FT2RQ 034646 035062 0 0 777777777777 0 0 -FT3 034646 035062 0 0 777777777777 0 0 -FT9 034647 035062 0 0 777777777777 0 0 -ET0 034647 035062 0 0 0 0 0 -ST1 034647 035062 0 0 0 0 0 -ST2 034647 035062 0 0 0 0 0 -ST9 034647 035062 0 0 0 0 0 - - -*034647 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 034647 034647 0 0 332000000000 0 0 -IT1 034647 0 0 0 332000000000 0 0 -AT3 034647 0 0 0 0 0 332000000000 -AT6 034647 0 0 0 0 0 332000000000 -FT0 034647 0 0 0 0 0 332000000000 -FT1A 034647 0 0 0 0 0 0 -FT9 034650 0 0 0 0 0 0 -ET0 034651 0 0 0 0 0 0 -ST1A 034651 0 0 0 0 0 0 -ST9 034651 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 682 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0898 - -*034651 JUMPA 0,034652 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034651 034651 0 0 324000034652 0 000000034652 -IT1 034651 0 0 0 324000034652 0 000000034652 -AT3 034651 0 0 0 000000034652 0 324000034652 -AT6 034651 034652 0 0 000000034652 0 324000034652 -FT1A 034651 034652 0 0 000000034652 0 000000034652 -FT2 034651 034652 0 0 0 0 000000034652 -FT2RQ 034651 034652 0 0 0 0 000000034652 -FT3 034651 034652 0 0 0 0 000000034652 -FT9 034652 034652 0 0 0 0 000000034652 -ET0 034652 034652 0 0 0 0 000000034652 -ST1A 034652 034652 0 0 0 0 000000034652 -ST9 034652 034652 0 0 0 0 000000034652 - - -*034652 MOVE 0,035115 -INITIAL -C(AC)=000000 000000 -C(E)=000000 400000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 034652 034652 0 0 200000035115 0 000000400000 -IT1 034652 0 0 0 200000035115 0 000000400000 -AT3 034652 0 0 0 000000035115 0 200000035115 -AT6 034652 035115 0 0 000000035115 0 200000035115 -FT0 034652 035115 0 0 000000400000 0 200000035115 -FT1A 034652 035115 0 0 000000400000 0 000000400000 -FT9 034653 035115 0 0 000000400000 0 000000400000 -ET0 034653 035115 0 0 000000400000 0 000000400000 -ST1 034653 035115 0 0 000000400000 0 000000400000 -ST2 034653 035115 0 0 000000400000 0 000000400000 -ST9 034653 035115 0 0 000000400000 0 000000400000 - - -*034653 AND 0,035115 -INITIAL -C(AC)=000000 400000 -C(E)=000000 400000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 034653 034653 0 0 404000035115 0 000000400000 -IT1 034653 0 0 0 404000035115 0 000000400000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 683 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0899 - -AT3 034653 0 0 0 000000035115 0 404000035115 -AT6 034653 035115 0 0 000000035115 0 404000035115 -FT0 034653 035115 0 0 000000400000 0 404000035115 -FT1A 034653 035115 0 0 000000400000 0 000000400000 -FT2 034653 035115 0 0 0 0 000000400000 -FT2RQ 034653 035115 0 0 000000400000 0 000000400000 -FT3 034653 035115 0 0 000000400000 0 000000400000 -FT9 034654 035115 0 0 000000400000 0 000000400000 -ET0 034654 035115 0 0 000000400000 0 000000400000 -ST1 034654 035115 0 0 000000400000 0 000000400000 -ST2 034654 035115 0 0 000000400000 0 000000400000 -ST9 034654 035115 0 0 000000400000 0 000000400000 - - -*034654 EQV 0,035115 -INITIAL -C(AC)=000000 400000 -C(E)=000000 400000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034654 034654 0 0 444000035115 0 000000400000 -IT1 034654 0 0 0 444000035115 0 000000400000 -AT3 034654 0 0 0 000000035115 0 444000035115 -AT6 034654 035115 0 0 000000035115 0 444000035115 -FT0 034654 035115 0 0 000000400000 0 444000035115 -FT1A 034654 035115 0 0 000000400000 0 000000400000 -FT2 034654 035115 0 0 0 0 000000400000 -FT2RQ 034654 035115 0 0 000000400000 0 000000400000 -FT3 034654 035115 0 0 000000400000 0 000000400000 -FT9 034655 035115 0 0 000000400000 0 000000400000 -ET0 034655 035115 0 0 777777777777 0 000000400000 -ST1 034655 035115 0 0 777777777777 0 000000400000 -ST2 034655 035115 0 0 777777777777 0 000000400000 -ST9 034655 035115 0 0 777777777777 0 000000400000 - - -*034655 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034655 034655 0 0 444000035062 0 0 -IT1 034655 0 0 0 444000035062 0 0 -AT3 034655 0 0 0 000000035062 0 444000035062 -AT6 034655 035062 0 0 000000035062 0 444000035062 -FT0 034655 035062 0 0 0 0 444000035062 -FT1A 034655 035062 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 684 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0900 - -FT2 034655 035062 0 0 0 0 0 -FT2RQ 034655 035062 0 0 777777777777 0 0 -FT3 034655 035062 0 0 777777777777 0 0 -FT9 034656 035062 0 0 777777777777 0 0 -ET0 034656 035062 0 0 0 0 0 -ST1 034656 035062 0 0 0 0 0 -ST2 034656 035062 0 0 0 0 0 -ST9 034656 035062 0 0 0 0 0 - - -*034656 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 034656 034656 0 0 332000000000 0 0 -IT1 034656 0 0 0 332000000000 0 0 -AT3 034656 0 0 0 0 0 332000000000 -AT6 034656 0 0 0 0 0 332000000000 -FT0 034656 0 0 0 0 0 332000000000 -FT1A 034656 0 0 0 0 0 0 -FT9 034657 0 0 0 0 0 0 -ET0 034660 0 0 0 0 0 0 -ST1A 034660 0 0 0 0 0 0 -ST9 034660 0 0 0 0 0 0 - - -*034660 JUMPA 0,034661 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034660 034660 0 0 324000034661 0 000000034661 -IT1 034660 0 0 0 324000034661 0 000000034661 -AT3 034660 0 0 0 000000034661 0 324000034661 -AT6 034660 034661 0 0 000000034661 0 324000034661 -FT1A 034660 034661 0 0 000000034661 0 000000034661 -FT2 034660 034661 0 0 0 0 000000034661 -FT2RQ 034660 034661 0 0 0 0 000000034661 -FT3 034660 034661 0 0 0 0 000000034661 -FT9 034661 034661 0 0 0 0 000000034661 -ET0 034661 034661 0 0 0 0 000000034661 -ST1A 034661 034661 0 0 0 0 000000034661 -ST9 034661 034661 0 0 0 0 000000034661 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 685 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0901 - -*034661 MOVE 0,035116 -INITIAL -C(AC)=000000 000000 -C(E)=000001 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034661 034661 0 0 200000035116 0 000001000000 -IT1 034661 0 0 0 200000035116 0 000001000000 -AT3 034661 0 0 0 000000035116 0 200000035116 -AT6 034661 035116 0 0 000000035116 0 200000035116 -FT0 034661 035116 0 0 000001000000 0 200000035116 -FT1A 034661 035116 0 0 000001000000 0 000001000000 -FT9 034662 035116 0 0 000001000000 0 000001000000 -ET0 034662 035116 0 0 000001000000 0 000001000000 -ST1 034662 035116 0 0 000001000000 0 000001000000 -ST2 034662 035116 0 0 000001000000 0 000001000000 -ST9 034662 035116 0 0 000001000000 0 000001000000 - - -*034662 AND 0,035116 -INITIAL -C(AC)=000001 000000 -C(E)=000001 000000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034662 034662 0 0 404000035116 0 000001000000 -IT1 034662 0 0 0 404000035116 0 000001000000 -AT3 034662 0 0 0 000000035116 0 404000035116 -AT6 034662 035116 0 0 000000035116 0 404000035116 -FT0 034662 035116 0 0 000001000000 0 404000035116 -FT1A 034662 035116 0 0 000001000000 0 000001000000 -FT2 034662 035116 0 0 0 0 000001000000 -FT2RQ 034662 035116 0 0 000001000000 0 000001000000 -FT3 034662 035116 0 0 000001000000 0 000001000000 -FT9 034663 035116 0 0 000001000000 0 000001000000 -ET0 034663 035116 0 0 000001000000 0 000001000000 -ST1 034663 035116 0 0 000001000000 0 000001000000 -ST2 034663 035116 0 0 000001000000 0 000001000000 -ST9 034663 035116 0 0 000001000000 0 000001000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 686 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0902 - -*034663 EQV 0,035116 -INITIAL -C(AC)=000001 000000 -C(E)=000001 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034663 034663 0 0 444000035116 0 000001000000 -IT1 034663 0 0 0 444000035116 0 000001000000 -AT3 034663 0 0 0 000000035116 0 444000035116 -AT6 034663 035116 0 0 000000035116 0 444000035116 -FT0 034663 035116 0 0 000001000000 0 444000035116 -FT1A 034663 035116 0 0 000001000000 0 000001000000 -FT2 034663 035116 0 0 0 0 000001000000 -FT2RQ 034663 035116 0 0 000001000000 0 000001000000 -FT3 034663 035116 0 0 000001000000 0 000001000000 -FT9 034664 035116 0 0 000001000000 0 000001000000 -ET0 034664 035116 0 0 777777777777 0 000001000000 -ST1 034664 035116 0 0 777777777777 0 000001000000 -ST2 034664 035116 0 0 777777777777 0 000001000000 -ST9 034664 035116 0 0 777777777777 0 000001000000 - - -*034664 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034664 034664 0 0 444000035062 0 0 -IT1 034664 0 0 0 444000035062 0 0 -AT3 034664 0 0 0 000000035062 0 444000035062 -AT6 034664 035062 0 0 000000035062 0 444000035062 -FT0 034664 035062 0 0 0 0 444000035062 -FT1A 034664 035062 0 0 0 0 0 -FT2 034664 035062 0 0 0 0 0 -FT2RQ 034664 035062 0 0 777777777777 0 0 -FT3 034664 035062 0 0 777777777777 0 0 -FT9 034665 035062 0 0 777777777777 0 0 -ET0 034665 035062 0 0 0 0 0 -ST1 034665 035062 0 0 0 0 0 -ST2 034665 035062 0 0 0 0 0 -ST9 034665 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 687 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0903 - -*034665 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 034665 034665 0 0 332000000000 0 0 -IT1 034665 0 0 0 332000000000 0 0 -AT3 034665 0 0 0 0 0 332000000000 -AT6 034665 0 0 0 0 0 332000000000 -FT0 034665 0 0 0 0 0 332000000000 -FT1A 034665 0 0 0 0 0 0 -FT9 034666 0 0 0 0 0 0 -ET0 034667 0 0 0 0 0 0 -ST1A 034667 0 0 0 0 0 0 -ST9 034667 0 0 0 0 0 0 - - -*034667 JUMPA 0,034670 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034667 034667 0 0 324000034670 0 000000034670 -IT1 034667 0 0 0 324000034670 0 000000034670 -AT3 034667 0 0 0 000000034670 0 324000034670 -AT6 034667 034670 0 0 000000034670 0 324000034670 -FT1A 034667 034670 0 0 000000034670 0 000000034670 -FT2 034667 034670 0 0 0 0 000000034670 -FT2RQ 034667 034670 0 0 0 0 000000034670 -FT3 034667 034670 0 0 0 0 000000034670 -FT9 034670 034670 0 0 0 0 000000034670 -ET0 034670 034670 0 0 0 0 000000034670 -ST1A 034670 034670 0 0 0 0 000000034670 -ST9 034670 034670 0 0 0 0 000000034670 - - -*034670 MOVE 0,035117 -INITIAL -C(AC)=000000 000000 -C(E)=000002 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034670 034670 0 0 200000035117 0 000002000000 -IT1 034670 0 0 0 200000035117 0 000002000000 -AT3 034670 0 0 0 000000035117 0 200000035117 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 688 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0904 - -AT6 034670 035117 0 0 000000035117 0 200000035117 -FT0 034670 035117 0 0 000002000000 0 200000035117 -FT1A 034670 035117 0 0 000002000000 0 000002000000 -FT9 034671 035117 0 0 000002000000 0 000002000000 -ET0 034671 035117 0 0 000002000000 0 000002000000 -ST1 034671 035117 0 0 000002000000 0 000002000000 -ST2 034671 035117 0 0 000002000000 0 000002000000 -ST9 034671 035117 0 0 000002000000 0 000002000000 - - -*034671 AND 0,035117 -INITIAL -C(AC)=000002 000000 -C(E)=000002 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034671 034671 0 0 404000035117 0 000002000000 -IT1 034671 0 0 0 404000035117 0 000002000000 -AT3 034671 0 0 0 000000035117 0 404000035117 -AT6 034671 035117 0 0 000000035117 0 404000035117 -FT0 034671 035117 0 0 000002000000 0 404000035117 -FT1A 034671 035117 0 0 000002000000 0 000002000000 -FT2 034671 035117 0 0 0 0 000002000000 -FT2RQ 034671 035117 0 0 000002000000 0 000002000000 -FT3 034671 035117 0 0 000002000000 0 000002000000 -FT9 034672 035117 0 0 000002000000 0 000002000000 -ET0 034672 035117 0 0 000002000000 0 000002000000 -ST1 034672 035117 0 0 000002000000 0 000002000000 -ST2 034672 035117 0 0 000002000000 0 000002000000 -ST9 034672 035117 0 0 000002000000 0 000002000000 - - -*034672 EQV 0,035117 -INITIAL -C(AC)=000002 000000 -C(E)=000002 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034672 034672 0 0 444000035117 0 000002000000 -IT1 034672 0 0 0 444000035117 0 000002000000 -AT3 034672 0 0 0 000000035117 0 444000035117 -AT6 034672 035117 0 0 000000035117 0 444000035117 -FT0 034672 035117 0 0 000002000000 0 444000035117 -FT1A 034672 035117 0 0 000002000000 0 000002000000 -FT2 034672 035117 0 0 0 0 000002000000 -FT2RQ 034672 035117 0 0 000002000000 0 000002000000 -FT3 034672 035117 0 0 000002000000 0 000002000000 -FT9 034673 035117 0 0 000002000000 0 000002000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 689 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0905 - -ET0 034673 035117 0 0 777777777777 0 000002000000 -ST1 034673 035117 0 0 777777777777 0 000002000000 -ST2 034673 035117 0 0 777777777777 0 000002000000 -ST9 034673 035117 0 0 777777777777 0 000002000000 - - -*034673 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034673 034673 0 0 444000035062 0 0 -IT1 034673 0 0 0 444000035062 0 0 -AT3 034673 0 0 0 000000035062 0 444000035062 -AT6 034673 035062 0 0 000000035062 0 444000035062 -FT0 034673 035062 0 0 0 0 444000035062 -FT1A 034673 035062 0 0 0 0 0 -FT2 034673 035062 0 0 0 0 0 -FT2RQ 034673 035062 0 0 777777777777 0 0 -FT3 034673 035062 0 0 777777777777 0 0 -FT9 034674 035062 0 0 777777777777 0 0 -ET0 034674 035062 0 0 0 0 0 -ST1 034674 035062 0 0 0 0 0 -ST2 034674 035062 0 0 0 0 0 -ST9 034674 035062 0 0 0 0 0 - - -*034674 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 034674 034674 0 0 332000000000 0 0 -IT1 034674 0 0 0 332000000000 0 0 -AT3 034674 0 0 0 0 0 332000000000 -AT6 034674 0 0 0 0 0 332000000000 -FT0 034674 0 0 0 0 0 332000000000 -FT1A 034674 0 0 0 0 0 0 -FT9 034675 0 0 0 0 0 0 -ET0 034676 0 0 0 0 0 0 -ST1A 034676 0 0 0 0 0 0 -ST9 034676 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 690 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0906 - -*034676 JUMPA 0,034677 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034676 034676 0 0 324000034677 0 000000034677 -IT1 034676 0 0 0 324000034677 0 000000034677 -AT3 034676 0 0 0 000000034677 0 324000034677 -AT6 034676 034677 0 0 000000034677 0 324000034677 -FT1A 034676 034677 0 0 000000034677 0 000000034677 -FT2 034676 034677 0 0 0 0 000000034677 -FT2RQ 034676 034677 0 0 0 0 000000034677 -FT3 034676 034677 0 0 0 0 000000034677 -FT9 034677 034677 0 0 0 0 000000034677 -ET0 034677 034677 0 0 0 0 000000034677 -ST1A 034677 034677 0 0 0 0 000000034677 -ST9 034677 034677 0 0 0 0 000000034677 - - -*034677 MOVE 0,035120 -INITIAL -C(AC)=000000 000000 -C(E)=000004 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034677 034677 0 0 200000035120 0 000004000000 -IT1 034677 0 0 0 200000035120 0 000004000000 -AT3 034677 0 0 0 000000035120 0 200000035120 -AT6 034677 035120 0 0 000000035120 0 200000035120 -FT0 034677 035120 0 0 000004000000 0 200000035120 -FT1A 034677 035120 0 0 000004000000 0 000004000000 -FT9 0 035120 0 0 000004000000 0 000004000000 -ET0 0 035120 0 0 000004000000 0 000004000000 -ST1 0 035120 0 0 000004000000 0 000004000000 -ST2 0 035120 0 0 000004000000 0 000004000000 -ST9 0 035120 0 0 000004000000 0 000004000000 - - -*034700 AND 0,035120 -INITIAL -C(AC)=000004 000000 -C(E)=000004 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 404000035120 0 000004000000 -IT1 0 0 0 0 404000035120 0 000004000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 691 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0907 - -AT3 0 0 0 0 000000035120 0 404000035120 -AT6 0 035120 0 0 000000035120 0 404000035120 -FT0 0 035120 0 0 000004000000 0 404000035120 -FT1A 0 035120 0 0 000004000000 0 000004000000 -FT2 0 035120 0 0 0 0 000004000000 -FT2RQ 0 035120 0 0 000004000000 0 000004000000 -FT3 0 035120 0 0 000004000000 0 000004000000 -FT9 034701 035120 0 0 000004000000 0 000004000000 -ET0 034701 035120 0 0 000004000000 0 000004000000 -ST1 034701 035120 0 0 000004000000 0 000004000000 -ST2 034701 035120 0 0 000004000000 0 000004000000 -ST9 034701 035120 0 0 000004000000 0 000004000000 - - -*034701 EQV 0,035120 -INITIAL -C(AC)=000004 000000 -C(E)=000004 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034701 034701 0 0 444000035120 0 000004000000 -IT1 034701 0 0 0 444000035120 0 000004000000 -AT3 034701 0 0 0 000000035120 0 444000035120 -AT6 034701 035120 0 0 000000035120 0 444000035120 -FT0 034701 035120 0 0 000004000000 0 444000035120 -FT1A 034701 035120 0 0 000004000000 0 000004000000 -FT2 034701 035120 0 0 0 0 000004000000 -FT2RQ 034701 035120 0 0 000004000000 0 000004000000 -FT3 034701 035120 0 0 000004000000 0 000004000000 -FT9 034702 035120 0 0 000004000000 0 000004000000 -ET0 034702 035120 0 0 777777777777 0 000004000000 -ST1 034702 035120 0 0 777777777777 0 000004000000 -ST2 034702 035120 0 0 777777777777 0 000004000000 -ST9 034702 035120 0 0 777777777777 0 000004000000 - - -*034702 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034702 034702 0 0 444000035062 0 0 -IT1 034702 0 0 0 444000035062 0 0 -AT3 034702 0 0 0 000000035062 0 444000035062 -AT6 034702 035062 0 0 000000035062 0 444000035062 -FT0 034702 035062 0 0 0 0 444000035062 -FT1A 034702 035062 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 692 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0908 - -FT2 034702 035062 0 0 0 0 0 -FT2RQ 034702 035062 0 0 777777777777 0 0 -FT3 034702 035062 0 0 777777777777 0 0 -FT9 034703 035062 0 0 777777777777 0 0 -ET0 034703 035062 0 0 0 0 0 -ST1 034703 035062 0 0 0 0 0 -ST2 034703 035062 0 0 0 0 0 -ST9 034703 035062 0 0 0 0 0 - - -*034703 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 034703 034703 0 0 332000000000 0 0 -IT1 034703 0 0 0 332000000000 0 0 -AT3 034703 0 0 0 0 0 332000000000 -AT6 034703 0 0 0 0 0 332000000000 -FT0 034703 0 0 0 0 0 332000000000 -FT1A 034703 0 0 0 0 0 0 -FT9 034704 0 0 0 0 0 0 -ET0 034705 0 0 0 0 0 0 -ST1A 034705 0 0 0 0 0 0 -ST9 034705 0 0 0 0 0 0 - - -*034705 JUMPA 0,034706 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034705 034705 0 0 324000034706 0 000000034706 -IT1 034705 0 0 0 324000034706 0 000000034706 -AT3 034705 0 0 0 000000034706 0 324000034706 -AT6 034705 034706 0 0 000000034706 0 324000034706 -FT1A 034705 034706 0 0 000000034706 0 000000034706 -FT2 034705 034706 0 0 0 0 000000034706 -FT2RQ 034705 034706 0 0 0 0 000000034706 -FT3 034705 034706 0 0 0 0 000000034706 -FT9 034706 034706 0 0 0 0 000000034706 -ET0 034706 034706 0 0 0 0 000000034706 -ST1A 034706 034706 0 0 0 0 000000034706 -ST9 034706 034706 0 0 0 0 000000034706 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 693 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0909 - -*034706 MOVE 0,035121 -INITIAL -C(AC)=000000 000000 -C(E)=000010 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034706 034706 0 0 200000035121 0 000010000000 -IT1 034706 0 0 0 200000035121 0 000010000000 -AT3 034706 0 0 0 000000035121 0 200000035121 -AT6 034706 035121 0 0 000000035121 0 200000035121 -FT0 034706 035121 0 0 000010000000 0 200000035121 -FT1A 034706 035121 0 0 000010000000 0 000010000000 -FT9 034707 035121 0 0 000010000000 0 000010000000 -ET0 034707 035121 0 0 000010000000 0 000010000000 -ST1 034707 035121 0 0 000010000000 0 000010000000 -ST2 034707 035121 0 0 000010000000 0 000010000000 -ST9 034707 035121 0 0 000010000000 0 000010000000 - - -*034707 AND 0,035121 -INITIAL -C(AC)=000010 000000 -C(E)=000010 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034707 034707 0 0 404000035121 0 000010000000 -IT1 034707 0 0 0 404000035121 0 000010000000 -AT3 034707 0 0 0 000000035121 0 404000035121 -AT6 034707 035121 0 0 000000035121 0 404000035121 -FT0 034707 035121 0 0 000010000000 0 404000035121 -FT1A 034707 035121 0 0 000010000000 0 000010000000 -FT2 034707 035121 0 0 0 0 000010000000 -FT2RQ 034707 035121 0 0 000010000000 0 000010000000 -FT3 034707 035121 0 0 000010000000 0 000010000000 -FT9 034710 035121 0 0 000010000000 0 000010000000 -ET0 034710 035121 0 0 000010000000 0 000010000000 -ST1 034710 035121 0 0 000010000000 0 000010000000 -ST2 034710 035121 0 0 000010000000 0 000010000000 -ST9 034710 035121 0 0 000010000000 0 000010000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 694 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0910 - -*034710 EQV 0,035121 -INITIAL -C(AC)=000010 000000 -C(E)=000010 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034710 034710 0 0 444000035121 0 000010000000 -IT1 034710 0 0 0 444000035121 0 000010000000 -AT3 034710 0 0 0 000000035121 0 444000035121 -AT6 034710 035121 0 0 000000035121 0 444000035121 -FT0 034710 035121 0 0 000010000000 0 444000035121 -FT1A 034710 035121 0 0 000010000000 0 000010000000 -FT2 034710 035121 0 0 0 0 000010000000 -FT2RQ 034710 035121 0 0 000010000000 0 000010000000 -FT3 034710 035121 0 0 000010000000 0 000010000000 -FT9 034711 035121 0 0 000010000000 0 000010000000 -ET0 034711 035121 0 0 777777777777 0 000010000000 -ST1 034711 035121 0 0 777777777777 0 000010000000 -ST2 034711 035121 0 0 777777777777 0 000010000000 -ST9 034711 035121 0 0 777777777777 0 000010000000 - - -*034711 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034711 034711 0 0 444000035062 0 0 -IT1 034711 0 0 0 444000035062 0 0 -AT3 034711 0 0 0 000000035062 0 444000035062 -AT6 034711 035062 0 0 000000035062 0 444000035062 -FT0 034711 035062 0 0 0 0 444000035062 -FT1A 034711 035062 0 0 0 0 0 -FT2 034711 035062 0 0 0 0 0 -FT2RQ 034711 035062 0 0 777777777777 0 0 -FT3 034711 035062 0 0 777777777777 0 0 -FT9 034712 035062 0 0 777777777777 0 0 -ET0 034712 035062 0 0 0 0 0 -ST1 034712 035062 0 0 0 0 0 -ST2 034712 035062 0 0 0 0 0 -ST9 034712 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 695 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0911 - -*034712 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 034712 034712 0 0 332000000000 0 0 -IT1 034712 0 0 0 332000000000 0 0 -AT3 034712 0 0 0 0 0 332000000000 -AT6 034712 0 0 0 0 0 332000000000 -FT0 034712 0 0 0 0 0 332000000000 -FT1A 034712 0 0 0 0 0 0 -FT9 034713 0 0 0 0 0 0 -ET0 034714 0 0 0 0 0 0 -ST1A 034714 0 0 0 0 0 0 -ST9 034714 0 0 0 0 0 0 - - -*034714 JUMPA 0,034715 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034714 034714 0 0 324000034715 0 000000034715 -IT1 034714 0 0 0 324000034715 0 000000034715 -AT3 034714 0 0 0 000000034715 0 324000034715 -AT6 034714 034715 0 0 000000034715 0 324000034715 -FT1A 034714 034715 0 0 000000034715 0 000000034715 -FT2 034714 034715 0 0 0 0 000000034715 -FT2RQ 034714 034715 0 0 0 0 000000034715 -FT3 034714 034715 0 0 0 0 000000034715 -FT9 034715 034715 0 0 0 0 000000034715 -ET0 034715 034715 0 0 0 0 000000034715 -ST1A 034715 034715 0 0 0 0 000000034715 -ST9 034715 034715 0 0 0 0 000000034715 - - -*034715 MOVE 0,035122 -INITIAL -C(AC)=000000 000000 -C(E)=000020 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034715 034715 0 0 200000035122 0 000020000000 -IT1 034715 0 0 0 200000035122 0 000020000000 -AT3 034715 0 0 0 000000035122 0 200000035122 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 696 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0912 - -AT6 034715 035122 0 0 000000035122 0 200000035122 -FT0 034715 035122 0 0 000020000000 0 200000035122 -FT1A 034715 035122 0 0 000020000000 0 000020000000 -FT9 034716 035122 0 0 000020000000 0 000020000000 -ET0 034716 035122 0 0 000020000000 0 000020000000 -ST1 034716 035122 0 0 000020000000 0 000020000000 -ST2 034716 035122 0 0 000020000000 0 000020000000 -ST9 034716 035122 0 0 000020000000 0 000020000000 - - -*034716 AND 0,035122 -INITIAL -C(AC)=000020 000000 -C(E)=000020 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034716 034716 0 0 404000035122 0 000020000000 -IT1 034716 0 0 0 404000035122 0 000020000000 -AT3 034716 0 0 0 000000035122 0 404000035122 -AT6 034716 035122 0 0 000000035122 0 404000035122 -FT0 034716 035122 0 0 000020000000 0 404000035122 -FT1A 034716 035122 0 0 000020000000 0 000020000000 -FT2 034716 035122 0 0 0 0 000020000000 -FT2RQ 034716 035122 0 0 000020000000 0 000020000000 -FT3 034716 035122 0 0 000020000000 0 000020000000 -FT9 034717 035122 0 0 000020000000 0 000020000000 -ET0 034717 035122 0 0 000020000000 0 000020000000 -ST1 034717 035122 0 0 000020000000 0 000020000000 -ST2 034717 035122 0 0 000020000000 0 000020000000 -ST9 034717 035122 0 0 000020000000 0 000020000000 - - -*034717 EQV 0,035122 -INITIAL -C(AC)=000020 000000 -C(E)=000020 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034717 034717 0 0 444000035122 0 000020000000 -IT1 034717 0 0 0 444000035122 0 000020000000 -AT3 034717 0 0 0 000000035122 0 444000035122 -AT6 034717 035122 0 0 000000035122 0 444000035122 -FT0 034717 035122 0 0 000020000000 0 444000035122 -FT1A 034717 035122 0 0 000020000000 0 000020000000 -FT2 034717 035122 0 0 0 0 000020000000 -FT2RQ 034717 035122 0 0 000020000000 0 000020000000 -FT3 034717 035122 0 0 000020000000 0 000020000000 -FT9 034720 035122 0 0 000020000000 0 000020000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 697 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0913 - -ET0 034720 035122 0 0 777777777777 0 000020000000 -ST1 034720 035122 0 0 777777777777 0 000020000000 -ST2 034720 035122 0 0 777777777777 0 000020000000 -ST9 034720 035122 0 0 777777777777 0 000020000000 - - -*034720 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034720 034720 0 0 444000035062 0 0 -IT1 034720 0 0 0 444000035062 0 0 -AT3 034720 0 0 0 000000035062 0 444000035062 -AT6 034720 035062 0 0 000000035062 0 444000035062 -FT0 034720 035062 0 0 0 0 444000035062 -FT1A 034720 035062 0 0 0 0 0 -FT2 034720 035062 0 0 0 0 0 -FT2RQ 034720 035062 0 0 777777777777 0 0 -FT3 034720 035062 0 0 777777777777 0 0 -FT9 034721 035062 0 0 777777777777 0 0 -ET0 034721 035062 0 0 0 0 0 -ST1 034721 035062 0 0 0 0 0 -ST2 034721 035062 0 0 0 0 0 -ST9 034721 035062 0 0 0 0 0 - - -*034721 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 034721 034721 0 0 332000000000 0 0 -IT1 034721 0 0 0 332000000000 0 0 -AT3 034721 0 0 0 0 0 332000000000 -AT6 034721 0 0 0 0 0 332000000000 -FT0 034721 0 0 0 0 0 332000000000 -FT1A 034721 0 0 0 0 0 0 -FT9 034722 0 0 0 0 0 0 -ET0 034723 0 0 0 0 0 0 -ST1A 034723 0 0 0 0 0 0 -ST9 034723 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 698 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0914 - -*034723 JUMPA 0,034724 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034723 034723 0 0 324000034724 0 000000034724 -IT1 034723 0 0 0 324000034724 0 000000034724 -AT3 034723 0 0 0 000000034724 0 324000034724 -AT6 034723 034724 0 0 000000034724 0 324000034724 -FT1A 034723 034724 0 0 000000034724 0 000000034724 -FT2 034723 034724 0 0 0 0 000000034724 -FT2RQ 034723 034724 0 0 0 0 000000034724 -FT3 034723 034724 0 0 0 0 000000034724 -FT9 034724 034724 0 0 0 0 000000034724 -ET0 034724 034724 0 0 0 0 000000034724 -ST1A 034724 034724 0 0 0 0 000000034724 -ST9 034724 034724 0 0 0 0 000000034724 - - -*034724 MOVE 0,035123 -INITIAL -C(AC)=000000 000000 -C(E)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034724 034724 0 0 200000035123 0 000040000000 -IT1 034724 0 0 0 200000035123 0 000040000000 -AT3 034724 0 0 0 000000035123 0 200000035123 -AT6 034724 035123 0 0 000000035123 0 200000035123 -FT0 034724 035123 0 0 000040000000 0 200000035123 -FT1A 034724 035123 0 0 000040000000 0 000040000000 -FT9 034725 035123 0 0 000040000000 0 000040000000 -ET0 034725 035123 0 0 000040000000 0 000040000000 -ST1 034725 035123 0 0 000040000000 0 000040000000 -ST2 034725 035123 0 0 000040000000 0 000040000000 -ST9 034725 035123 0 0 000040000000 0 000040000000 - - -*034725 AND 0,035123 -INITIAL -C(AC)=000040 000000 -C(E)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034725 034725 0 0 404000035123 0 000040000000 -IT1 034725 0 0 0 404000035123 0 000040000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 699 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0915 - -AT3 034725 0 0 0 000000035123 0 404000035123 -AT6 034725 035123 0 0 000000035123 0 404000035123 -FT0 034725 035123 0 0 000040000000 0 404000035123 -FT1A 034725 035123 0 0 000040000000 0 000040000000 -FT2 034725 035123 0 0 0 0 000040000000 -FT2RQ 034725 035123 0 0 000040000000 0 000040000000 -FT3 034725 035123 0 0 000040000000 0 000040000000 -FT9 034726 035123 0 0 000040000000 0 000040000000 -ET0 034726 035123 0 0 000040000000 0 000040000000 -ST1 034726 035123 0 0 000040000000 0 000040000000 -ST2 034726 035123 0 0 000040000000 0 000040000000 -ST9 034726 035123 0 0 000040000000 0 000040000000 - - -*034726 EQV 0,035123 -INITIAL -C(AC)=000040 000000 -C(E)=000040 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034726 034726 0 0 444000035123 0 000040000000 -IT1 034726 0 0 0 444000035123 0 000040000000 -AT3 034726 0 0 0 000000035123 0 444000035123 -AT6 034726 035123 0 0 000000035123 0 444000035123 -FT0 034726 035123 0 0 000040000000 0 444000035123 -FT1A 034726 035123 0 0 000040000000 0 000040000000 -FT2 034726 035123 0 0 0 0 000040000000 -FT2RQ 034726 035123 0 0 000040000000 0 000040000000 -FT3 034726 035123 0 0 000040000000 0 000040000000 -FT9 034727 035123 0 0 000040000000 0 000040000000 -ET0 034727 035123 0 0 777777777777 0 000040000000 -ST1 034727 035123 0 0 777777777777 0 000040000000 -ST2 034727 035123 0 0 777777777777 0 000040000000 -ST9 034727 035123 0 0 777777777777 0 000040000000 - - -*034727 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034727 034727 0 0 444000035062 0 0 -IT1 034727 0 0 0 444000035062 0 0 -AT3 034727 0 0 0 000000035062 0 444000035062 -AT6 034727 035062 0 0 000000035062 0 444000035062 -FT0 034727 035062 0 0 0 0 444000035062 -FT1A 034727 035062 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 700 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0916 - -FT2 034727 035062 0 0 0 0 0 -FT2RQ 034727 035062 0 0 777777777777 0 0 -FT3 034727 035062 0 0 777777777777 0 0 -FT9 034730 035062 0 0 777777777777 0 0 -ET0 034730 035062 0 0 0 0 0 -ST1 034730 035062 0 0 0 0 0 -ST2 034730 035062 0 0 0 0 0 -ST9 034730 035062 0 0 0 0 0 - - -*034730 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 034730 034730 0 0 332000000000 0 0 -IT1 034730 0 0 0 332000000000 0 0 -AT3 034730 0 0 0 0 0 332000000000 -AT6 034730 0 0 0 0 0 332000000000 -FT0 034730 0 0 0 0 0 332000000000 -FT1A 034730 0 0 0 0 0 0 -FT9 034731 0 0 0 0 0 0 -ET0 034732 0 0 0 0 0 0 -ST1A 034732 0 0 0 0 0 0 -ST9 034732 0 0 0 0 0 0 - - -*034732 JUMPA 0,034733 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034732 034732 0 0 324000034733 0 000000034733 -IT1 034732 0 0 0 324000034733 0 000000034733 -AT3 034732 0 0 0 000000034733 0 324000034733 -AT6 034732 034733 0 0 000000034733 0 324000034733 -FT1A 034732 034733 0 0 000000034733 0 000000034733 -FT2 034732 034733 0 0 0 0 000000034733 -FT2RQ 034732 034733 0 0 0 0 000000034733 -FT3 034732 034733 0 0 0 0 000000034733 -FT9 034733 034733 0 0 0 0 000000034733 -ET0 034733 034733 0 0 0 0 000000034733 -ST1A 034733 034733 0 0 0 0 000000034733 -ST9 034733 034733 0 0 0 0 000000034733 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 701 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0917 - -*034733 MOVE 0,035124 -INITIAL -C(AC)=000000 000000 -C(E)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034733 034733 0 0 200000035124 0 000100000000 -IT1 034733 0 0 0 200000035124 0 000100000000 -AT3 034733 0 0 0 000000035124 0 200000035124 -AT6 034733 035124 0 0 000000035124 0 200000035124 -FT0 034733 035124 0 0 000100000000 0 200000035124 -FT1A 034733 035124 0 0 000100000000 0 000100000000 -FT9 034734 035124 0 0 000100000000 0 000100000000 -ET0 034734 035124 0 0 000100000000 0 000100000000 -ST1 034734 035124 0 0 000100000000 0 000100000000 -ST2 034734 035124 0 0 000100000000 0 000100000000 -ST9 034734 035124 0 0 000100000000 0 000100000000 - - -*034734 AND 0,035124 -INITIAL -C(AC)=000100 000000 -C(E)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034734 034734 0 0 404000035124 0 000100000000 -IT1 034734 0 0 0 404000035124 0 000100000000 -AT3 034734 0 0 0 000000035124 0 404000035124 -AT6 034734 035124 0 0 000000035124 0 404000035124 -FT0 034734 035124 0 0 000100000000 0 404000035124 -FT1A 034734 035124 0 0 000100000000 0 000100000000 -FT2 034734 035124 0 0 0 0 000100000000 -FT2RQ 034734 035124 0 0 000100000000 0 000100000000 -FT3 034734 035124 0 0 000100000000 0 000100000000 -FT9 034735 035124 0 0 000100000000 0 000100000000 -ET0 034735 035124 0 0 000100000000 0 000100000000 -ST1 034735 035124 0 0 000100000000 0 000100000000 -ST2 034735 035124 0 0 000100000000 0 000100000000 -ST9 034735 035124 0 0 000100000000 0 000100000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 702 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0918 - -*034735 EQV 0,035124 -INITIAL -C(AC)=000100 000000 -C(E)=000100 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034735 034735 0 0 444000035124 0 000100000000 -IT1 034735 0 0 0 444000035124 0 000100000000 -AT3 034735 0 0 0 000000035124 0 444000035124 -AT6 034735 035124 0 0 000000035124 0 444000035124 -FT0 034735 035124 0 0 000100000000 0 444000035124 -FT1A 034735 035124 0 0 000100000000 0 000100000000 -FT2 034735 035124 0 0 0 0 000100000000 -FT2RQ 034735 035124 0 0 000100000000 0 000100000000 -FT3 034735 035124 0 0 000100000000 0 000100000000 -FT9 034736 035124 0 0 000100000000 0 000100000000 -ET0 034736 035124 0 0 777777777777 0 000100000000 -ST1 034736 035124 0 0 777777777777 0 000100000000 -ST2 034736 035124 0 0 777777777777 0 000100000000 -ST9 034736 035124 0 0 777777777777 0 000100000000 - - -*034736 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034736 034736 0 0 444000035062 0 0 -IT1 034736 0 0 0 444000035062 0 0 -AT3 034736 0 0 0 000000035062 0 444000035062 -AT6 034736 035062 0 0 000000035062 0 444000035062 -FT0 034736 035062 0 0 0 0 444000035062 -FT1A 034736 035062 0 0 0 0 0 -FT2 034736 035062 0 0 0 0 0 -FT2RQ 034736 035062 0 0 777777777777 0 0 -FT3 034736 035062 0 0 777777777777 0 0 -FT9 034737 035062 0 0 777777777777 0 0 -ET0 034737 035062 0 0 0 0 0 -ST1 034737 035062 0 0 0 0 0 -ST2 034737 035062 0 0 0 0 0 -ST9 034737 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 703 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0919 - -*034737 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 034737 034737 0 0 332000000000 0 0 -IT1 034737 0 0 0 332000000000 0 0 -AT3 034737 0 0 0 0 0 332000000000 -AT6 034737 0 0 0 0 0 332000000000 -FT0 034737 0 0 0 0 0 332000000000 -FT1A 034737 0 0 0 0 0 0 -FT9 034740 0 0 0 0 0 0 -ET0 034741 0 0 0 0 0 0 -ST1A 034741 0 0 0 0 0 0 -ST9 034741 0 0 0 0 0 0 - - -*034741 JUMPA 0,034742 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034741 034741 0 0 324000034742 0 000000034742 -IT1 034741 0 0 0 324000034742 0 000000034742 -AT3 034741 0 0 0 000000034742 0 324000034742 -AT6 034741 034742 0 0 000000034742 0 324000034742 -FT1A 034741 034742 0 0 000000034742 0 000000034742 -FT2 034741 034742 0 0 0 0 000000034742 -FT2RQ 034741 034742 0 0 0 0 000000034742 -FT3 034741 034742 0 0 0 0 000000034742 -FT9 034742 034742 0 0 0 0 000000034742 -ET0 034742 034742 0 0 0 0 000000034742 -ST1A 034742 034742 0 0 0 0 000000034742 -ST9 034742 034742 0 0 0 0 000000034742 - - -*034742 MOVE 0,035125 -INITIAL -C(AC)=000000 000000 -C(E)=000200 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034742 034742 0 0 200000035125 0 000200000000 -IT1 034742 0 0 0 200000035125 0 000200000000 -AT3 034742 0 0 0 000000035125 0 200000035125 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 704 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0920 - -AT6 034742 035125 0 0 000000035125 0 200000035125 -FT0 034742 035125 0 0 000200000000 0 200000035125 -FT1A 034742 035125 0 0 000200000000 0 000200000000 -FT9 034743 035125 0 0 000200000000 0 000200000000 -ET0 034743 035125 0 0 000200000000 0 000200000000 -ST1 034743 035125 0 0 000200000000 0 000200000000 -ST2 034743 035125 0 0 000200000000 0 000200000000 -ST9 034743 035125 0 0 000200000000 0 000200000000 - - -*034743 AND 0,035125 -INITIAL -C(AC)=000200 000000 -C(E)=000200 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034743 034743 0 0 404000035125 0 000200000000 -IT1 034743 0 0 0 404000035125 0 000200000000 -AT3 034743 0 0 0 000000035125 0 404000035125 -AT6 034743 035125 0 0 000000035125 0 404000035125 -FT0 034743 035125 0 0 000200000000 0 404000035125 -FT1A 034743 035125 0 0 000200000000 0 000200000000 -FT2 034743 035125 0 0 0 0 000200000000 -FT2RQ 034743 035125 0 0 000200000000 0 000200000000 -FT3 034743 035125 0 0 000200000000 0 000200000000 -FT9 034744 035125 0 0 000200000000 0 000200000000 -ET0 034744 035125 0 0 000200000000 0 000200000000 -ST1 034744 035125 0 0 000200000000 0 000200000000 -ST2 034744 035125 0 0 000200000000 0 000200000000 -ST9 034744 035125 0 0 000200000000 0 000200000000 - - -*034744 EQV 0,035125 -INITIAL -C(AC)=000200 000000 -C(E)=000200 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034744 034744 0 0 444000035125 0 000200000000 -IT1 034744 0 0 0 444000035125 0 000200000000 -AT3 034744 0 0 0 000000035125 0 444000035125 -AT6 034744 035125 0 0 000000035125 0 444000035125 -FT0 034744 035125 0 0 000200000000 0 444000035125 -FT1A 034744 035125 0 0 000200000000 0 000200000000 -FT2 034744 035125 0 0 0 0 000200000000 -FT2RQ 034744 035125 0 0 000200000000 0 000200000000 -FT3 034744 035125 0 0 000200000000 0 000200000000 -FT9 034745 035125 0 0 000200000000 0 000200000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 705 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0921 - -ET0 034745 035125 0 0 777777777777 0 000200000000 -ST1 034745 035125 0 0 777777777777 0 000200000000 -ST2 034745 035125 0 0 777777777777 0 000200000000 -ST9 034745 035125 0 0 777777777777 0 000200000000 - - -*034745 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034745 034745 0 0 444000035062 0 0 -IT1 034745 0 0 0 444000035062 0 0 -AT3 034745 0 0 0 000000035062 0 444000035062 -AT6 034745 035062 0 0 000000035062 0 444000035062 -FT0 034745 035062 0 0 0 0 444000035062 -FT1A 034745 035062 0 0 0 0 0 -FT2 034745 035062 0 0 0 0 0 -FT2RQ 034745 035062 0 0 777777777777 0 0 -FT3 034745 035062 0 0 777777777777 0 0 -FT9 034746 035062 0 0 777777777777 0 0 -ET0 034746 035062 0 0 0 0 0 -ST1 034746 035062 0 0 0 0 0 -ST2 034746 035062 0 0 0 0 0 -ST9 034746 035062 0 0 0 0 0 - - -*034746 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 034746 034746 0 0 332000000000 0 0 -IT1 034746 0 0 0 332000000000 0 0 -AT3 034746 0 0 0 0 0 332000000000 -AT6 034746 0 0 0 0 0 332000000000 -FT0 034746 0 0 0 0 0 332000000000 -FT1A 034746 0 0 0 0 0 0 -FT9 034747 0 0 0 0 0 0 -ET0 034750 0 0 0 0 0 0 -ST1A 034750 0 0 0 0 0 0 -ST9 034750 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 706 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0922 - -*034750 JUMPA 0,034751 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034750 034750 0 0 324000034751 0 000000034751 -IT1 034750 0 0 0 324000034751 0 000000034751 -AT3 034750 0 0 0 000000034751 0 324000034751 -AT6 034750 034751 0 0 000000034751 0 324000034751 -FT1A 034750 034751 0 0 000000034751 0 000000034751 -FT2 034750 034751 0 0 0 0 000000034751 -FT2RQ 034750 034751 0 0 0 0 000000034751 -FT3 034750 034751 0 0 0 0 000000034751 -FT9 034751 034751 0 0 0 0 000000034751 -ET0 034751 034751 0 0 0 0 000000034751 -ST1A 034751 034751 0 0 0 0 000000034751 -ST9 034751 034751 0 0 0 0 000000034751 - - -*034751 MOVE 0,035073 -INITIAL -C(AC)=000000 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034751 034751 0 0 200000035073 0 000400000000 -IT1 034751 0 0 0 200000035073 0 000400000000 -AT3 034751 0 0 0 000000035073 0 200000035073 -AT6 034751 035073 0 0 000000035073 0 200000035073 -FT0 034751 035073 0 0 000400000000 0 200000035073 -FT1A 034751 035073 0 0 000400000000 0 000400000000 -FT9 034752 035073 0 0 000400000000 0 000400000000 -ET0 034752 035073 0 0 000400000000 0 000400000000 -ST1 034752 035073 0 0 000400000000 0 000400000000 -ST2 034752 035073 0 0 000400000000 0 000400000000 -ST9 034752 035073 0 0 000400000000 0 000400000000 - - -*034752 AND 0,035073 -INITIAL -C(AC)=000400 000000 -C(E)=000400 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034752 034752 0 0 404000035073 0 000400000000 -IT1 034752 0 0 0 404000035073 0 000400000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 707 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0923 - -AT3 034752 0 0 0 000000035073 0 404000035073 -AT6 034752 035073 0 0 000000035073 0 404000035073 -FT0 034752 035073 0 0 000400000000 0 404000035073 -FT1A 034752 035073 0 0 000400000000 0 000400000000 -FT2 034752 035073 0 0 0 0 000400000000 -FT2RQ 034752 035073 0 0 000400000000 0 000400000000 -FT3 034752 035073 0 0 000400000000 0 000400000000 -FT9 034753 035073 0 0 000400000000 0 000400000000 -ET0 034753 035073 0 0 000400000000 0 000400000000 -ST1 034753 035073 0 0 000400000000 0 000400000000 -ST2 034753 035073 0 0 000400000000 0 000400000000 -ST9 034753 035073 0 0 000400000000 0 000400000000 - - -*034753 EQV 0,035073 -INITIAL -C(AC)=000400 000000 -C(E)=000400 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034753 034753 0 0 444000035073 0 000400000000 -IT1 034753 0 0 0 444000035073 0 000400000000 -AT3 034753 0 0 0 000000035073 0 444000035073 -AT6 034753 035073 0 0 000000035073 0 444000035073 -FT0 034753 035073 0 0 000400000000 0 444000035073 -FT1A 034753 035073 0 0 000400000000 0 000400000000 -FT2 034753 035073 0 0 0 0 000400000000 -FT2RQ 034753 035073 0 0 000400000000 0 000400000000 -FT3 034753 035073 0 0 000400000000 0 000400000000 -FT9 034754 035073 0 0 000400000000 0 000400000000 -ET0 034754 035073 0 0 777777777777 0 000400000000 -ST1 034754 035073 0 0 777777777777 0 000400000000 -ST2 034754 035073 0 0 777777777777 0 000400000000 -ST9 034754 035073 0 0 777777777777 0 000400000000 - - -*034754 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034754 034754 0 0 444000035062 0 0 -IT1 034754 0 0 0 444000035062 0 0 -AT3 034754 0 0 0 000000035062 0 444000035062 -AT6 034754 035062 0 0 000000035062 0 444000035062 -FT0 034754 035062 0 0 0 0 444000035062 -FT1A 034754 035062 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 708 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0924 - -FT2 034754 035062 0 0 0 0 0 -FT2RQ 034754 035062 0 0 777777777777 0 0 -FT3 034754 035062 0 0 777777777777 0 0 -FT9 034755 035062 0 0 777777777777 0 0 -ET0 034755 035062 0 0 0 0 0 -ST1 034755 035062 0 0 0 0 0 -ST2 034755 035062 0 0 0 0 0 -ST9 034755 035062 0 0 0 0 0 - - -*034755 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 034755 034755 0 0 332000000000 0 0 -IT1 034755 0 0 0 332000000000 0 0 -AT3 034755 0 0 0 0 0 332000000000 -AT6 034755 0 0 0 0 0 332000000000 -FT0 034755 0 0 0 0 0 332000000000 -FT1A 034755 0 0 0 0 0 0 -FT9 034756 0 0 0 0 0 0 -ET0 034757 0 0 0 0 0 0 -ST1A 034757 0 0 0 0 0 0 -ST9 034757 0 0 0 0 0 0 - - -*034757 JUMPA 0,034760 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034757 034757 0 0 324000034760 0 000000034760 -IT1 034757 0 0 0 324000034760 0 000000034760 -AT3 034757 0 0 0 000000034760 0 324000034760 -AT6 034757 034760 0 0 000000034760 0 324000034760 -FT1A 034757 034760 0 0 000000034760 0 000000034760 -FT2 034757 034760 0 0 0 0 000000034760 -FT2RQ 034757 034760 0 0 0 0 000000034760 -FT3 034757 034760 0 0 0 0 000000034760 -FT9 034760 034760 0 0 0 0 000000034760 -ET0 034760 034760 0 0 0 0 000000034760 -ST1A 034760 034760 0 0 0 0 000000034760 -ST9 034760 034760 0 0 0 0 000000034760 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 709 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0925 - -*034760 MOVE 0,035126 -INITIAL -C(AC)=000000 000000 -C(E)=001000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034760 034760 0 0 200000035126 0 001000000000 -IT1 034760 0 0 0 200000035126 0 001000000000 -AT3 034760 0 0 0 000000035126 0 200000035126 -AT6 034760 035126 0 0 000000035126 0 200000035126 -FT0 034760 035126 0 0 001000000000 0 200000035126 -FT1A 034760 035126 0 0 001000000000 0 001000000000 -FT9 034761 035126 0 0 001000000000 0 001000000000 -ET0 034761 035126 0 0 001000000000 0 001000000000 -ST1 034761 035126 0 0 001000000000 0 001000000000 -ST2 034761 035126 0 0 001000000000 0 001000000000 -ST9 034761 035126 0 0 001000000000 0 001000000000 - - -*034761 AND 0,035126 -INITIAL -C(AC)=001000 000000 -C(E)=001000 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034761 034761 0 0 404000035126 0 001000000000 -IT1 034761 0 0 0 404000035126 0 001000000000 -AT3 034761 0 0 0 000000035126 0 404000035126 -AT6 034761 035126 0 0 000000035126 0 404000035126 -FT0 034761 035126 0 0 001000000000 0 404000035126 -FT1A 034761 035126 0 0 001000000000 0 001000000000 -FT2 034761 035126 0 0 0 0 001000000000 -FT2RQ 034761 035126 0 0 001000000000 0 001000000000 -FT3 034761 035126 0 0 001000000000 0 001000000000 -FT9 034762 035126 0 0 001000000000 0 001000000000 -ET0 034762 035126 0 0 001000000000 0 001000000000 -ST1 034762 035126 0 0 001000000000 0 001000000000 -ST2 034762 035126 0 0 001000000000 0 001000000000 -ST9 034762 035126 0 0 001000000000 0 001000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 710 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0926 - -*034762 EQV 0,035126 -INITIAL -C(AC)=001000 000000 -C(E)=001000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034762 034762 0 0 444000035126 0 001000000000 -IT1 034762 0 0 0 444000035126 0 001000000000 -AT3 034762 0 0 0 000000035126 0 444000035126 -AT6 034762 035126 0 0 000000035126 0 444000035126 -FT0 034762 035126 0 0 001000000000 0 444000035126 -FT1A 034762 035126 0 0 001000000000 0 001000000000 -FT2 034762 035126 0 0 0 0 001000000000 -FT2RQ 034762 035126 0 0 001000000000 0 001000000000 -FT3 034762 035126 0 0 001000000000 0 001000000000 -FT9 034763 035126 0 0 001000000000 0 001000000000 -ET0 034763 035126 0 0 777777777777 0 001000000000 -ST1 034763 035126 0 0 777777777777 0 001000000000 -ST2 034763 035126 0 0 777777777777 0 001000000000 -ST9 034763 035126 0 0 777777777777 0 001000000000 - - -*034763 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034763 034763 0 0 444000035062 0 0 -IT1 034763 0 0 0 444000035062 0 0 -AT3 034763 0 0 0 000000035062 0 444000035062 -AT6 034763 035062 0 0 000000035062 0 444000035062 -FT0 034763 035062 0 0 0 0 444000035062 -FT1A 034763 035062 0 0 0 0 0 -FT2 034763 035062 0 0 0 0 0 -FT2RQ 034763 035062 0 0 777777777777 0 0 -FT3 034763 035062 0 0 777777777777 0 0 -FT9 034764 035062 0 0 777777777777 0 0 -ET0 034764 035062 0 0 0 0 0 -ST1 034764 035062 0 0 0 0 0 -ST2 034764 035062 0 0 0 0 0 -ST9 034764 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 711 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0927 - -*034764 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 034764 034764 0 0 332000000000 0 0 -IT1 034764 0 0 0 332000000000 0 0 -AT3 034764 0 0 0 0 0 332000000000 -AT6 034764 0 0 0 0 0 332000000000 -FT0 034764 0 0 0 0 0 332000000000 -FT1A 034764 0 0 0 0 0 0 -FT9 034765 0 0 0 0 0 0 -ET0 034766 0 0 0 0 0 0 -ST1A 034766 0 0 0 0 0 0 -ST9 034766 0 0 0 0 0 0 - - -*034766 JUMPA 0,034767 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034766 034766 0 0 324000034767 0 000000034767 -IT1 034766 0 0 0 324000034767 0 000000034767 -AT3 034766 0 0 0 000000034767 0 324000034767 -AT6 034766 034767 0 0 000000034767 0 324000034767 -FT1A 034766 034767 0 0 000000034767 0 000000034767 -FT2 034766 034767 0 0 0 0 000000034767 -FT2RQ 034766 034767 0 0 0 0 000000034767 -FT3 034766 034767 0 0 0 0 000000034767 -FT9 034767 034767 0 0 0 0 000000034767 -ET0 034767 034767 0 0 0 0 000000034767 -ST1A 034767 034767 0 0 0 0 000000034767 -ST9 034767 034767 0 0 0 0 000000034767 - - -*034767 MOVE 0,035127 -INITIAL -C(AC)=000000 000000 -C(E)=002000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034767 034767 0 0 200000035127 0 002000000000 -IT1 034767 0 0 0 200000035127 0 002000000000 -AT3 034767 0 0 0 000000035127 0 200000035127 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 712 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0928 - -AT6 034767 035127 0 0 000000035127 0 200000035127 -FT0 034767 035127 0 0 002000000000 0 200000035127 -FT1A 034767 035127 0 0 002000000000 0 002000000000 -FT9 034770 035127 0 0 002000000000 0 002000000000 -ET0 034770 035127 0 0 002000000000 0 002000000000 -ST1 034770 035127 0 0 002000000000 0 002000000000 -ST2 034770 035127 0 0 002000000000 0 002000000000 -ST9 034770 035127 0 0 002000000000 0 002000000000 - - -*034770 AND 0,035127 -INITIAL -C(AC)=002000 000000 -C(E)=002000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034770 034770 0 0 404000035127 0 002000000000 -IT1 034770 0 0 0 404000035127 0 002000000000 -AT3 034770 0 0 0 000000035127 0 404000035127 -AT6 034770 035127 0 0 000000035127 0 404000035127 -FT0 034770 035127 0 0 002000000000 0 404000035127 -FT1A 034770 035127 0 0 002000000000 0 002000000000 -FT2 034770 035127 0 0 0 0 002000000000 -FT2RQ 034770 035127 0 0 002000000000 0 002000000000 -FT3 034770 035127 0 0 002000000000 0 002000000000 -FT9 034771 035127 0 0 002000000000 0 002000000000 -ET0 034771 035127 0 0 002000000000 0 002000000000 -ST1 034771 035127 0 0 002000000000 0 002000000000 -ST2 034771 035127 0 0 002000000000 0 002000000000 -ST9 034771 035127 0 0 002000000000 0 002000000000 - - -*034771 EQV 0,035127 -INITIAL -C(AC)=002000 000000 -C(E)=002000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034771 034771 0 0 444000035127 0 002000000000 -IT1 034771 0 0 0 444000035127 0 002000000000 -AT3 034771 0 0 0 000000035127 0 444000035127 -AT6 034771 035127 0 0 000000035127 0 444000035127 -FT0 034771 035127 0 0 002000000000 0 444000035127 -FT1A 034771 035127 0 0 002000000000 0 002000000000 -FT2 034771 035127 0 0 0 0 002000000000 -FT2RQ 034771 035127 0 0 002000000000 0 002000000000 -FT3 034771 035127 0 0 002000000000 0 002000000000 -FT9 034772 035127 0 0 002000000000 0 002000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 713 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0929 - -ET0 034772 035127 0 0 777777777777 0 002000000000 -ST1 034772 035127 0 0 777777777777 0 002000000000 -ST2 034772 035127 0 0 777777777777 0 002000000000 -ST9 034772 035127 0 0 777777777777 0 002000000000 - - -*034772 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034772 034772 0 0 444000035062 0 0 -IT1 034772 0 0 0 444000035062 0 0 -AT3 034772 0 0 0 000000035062 0 444000035062 -AT6 034772 035062 0 0 000000035062 0 444000035062 -FT0 034772 035062 0 0 0 0 444000035062 -FT1A 034772 035062 0 0 0 0 0 -FT2 034772 035062 0 0 0 0 0 -FT2RQ 034772 035062 0 0 777777777777 0 0 -FT3 034772 035062 0 0 777777777777 0 0 -FT9 034773 035062 0 0 777777777777 0 0 -ET0 034773 035062 0 0 0 0 0 -ST1 034773 035062 0 0 0 0 0 -ST2 034773 035062 0 0 0 0 0 -ST9 034773 035062 0 0 0 0 0 - - -*034773 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 034773 034773 0 0 332000000000 0 0 -IT1 034773 0 0 0 332000000000 0 0 -AT3 034773 0 0 0 0 0 332000000000 -AT6 034773 0 0 0 0 0 332000000000 -FT0 034773 0 0 0 0 0 332000000000 -FT1A 034773 0 0 0 0 0 0 -FT9 034774 0 0 0 0 0 0 -ET0 034775 0 0 0 0 0 0 -ST1A 034775 0 0 0 0 0 0 -ST9 034775 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 714 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0930 - -*034775 JUMPA 0,034776 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034775 034775 0 0 324000034776 0 000000034776 -IT1 034775 0 0 0 324000034776 0 000000034776 -AT3 034775 0 0 0 000000034776 0 324000034776 -AT6 034775 034776 0 0 000000034776 0 324000034776 -FT1A 034775 034776 0 0 000000034776 0 000000034776 -FT2 034775 034776 0 0 0 0 000000034776 -FT2RQ 034775 034776 0 0 0 0 000000034776 -FT3 034775 034776 0 0 0 0 000000034776 -FT9 034776 034776 0 0 0 0 000000034776 -ET0 034776 034776 0 0 0 0 000000034776 -ST1A 034776 034776 0 0 0 0 000000034776 -ST9 034776 034776 0 0 0 0 000000034776 - - -*034776 MOVE 0,035130 -INITIAL -C(AC)=000000 000000 -C(E)=004000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034776 034776 0 0 200000035130 0 004000000000 -IT1 034776 0 0 0 200000035130 0 004000000000 -AT3 034776 0 0 0 000000035130 0 200000035130 -AT6 034776 035130 0 0 000000035130 0 200000035130 -FT0 034776 035130 0 0 004000000000 0 200000035130 -FT1A 034776 035130 0 0 004000000000 0 004000000000 -FT9 034777 035130 0 0 004000000000 0 004000000000 -ET0 034777 035130 0 0 004000000000 0 004000000000 -ST1 034777 035130 0 0 004000000000 0 004000000000 -ST2 034777 035130 0 0 004000000000 0 004000000000 -ST9 034777 035130 0 0 004000000000 0 004000000000 - - -*034777 AND 0,035130 -INITIAL -C(AC)=004000 000000 -C(E)=004000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034777 034777 0 0 404000035130 0 004000000000 -IT1 034777 0 0 0 404000035130 0 004000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 715 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0931 - -AT3 034777 0 0 0 000000035130 0 404000035130 -AT6 034777 035130 0 0 000000035130 0 404000035130 -FT0 034777 035130 0 0 004000000000 0 404000035130 -FT1A 034777 035130 0 0 004000000000 0 004000000000 -FT2 034777 035130 0 0 0 0 004000000000 -FT2RQ 034777 035130 0 0 004000000000 0 004000000000 -FT3 034777 035130 0 0 004000000000 0 004000000000 -FT9 0 035130 0 0 004000000000 0 004000000000 -ET0 0 035130 0 0 004000000000 0 004000000000 -ST1 0 035130 0 0 004000000000 0 004000000000 -ST2 0 035130 0 0 004000000000 0 004000000000 -ST9 0 035130 0 0 004000000000 0 004000000000 - - -*035000 EQV 0,035130 -INITIAL -C(AC)=004000 000000 -C(E)=004000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 444000035130 0 004000000000 -IT1 0 0 0 0 444000035130 0 004000000000 -AT3 0 0 0 0 000000035130 0 444000035130 -AT6 0 035130 0 0 000000035130 0 444000035130 -FT0 0 035130 0 0 004000000000 0 444000035130 -FT1A 0 035130 0 0 004000000000 0 004000000000 -FT2 0 035130 0 0 0 0 004000000000 -FT2RQ 0 035130 0 0 004000000000 0 004000000000 -FT3 0 035130 0 0 004000000000 0 004000000000 -FT9 035001 035130 0 0 004000000000 0 004000000000 -ET0 035001 035130 0 0 777777777777 0 004000000000 -ST1 035001 035130 0 0 777777777777 0 004000000000 -ST2 035001 035130 0 0 777777777777 0 004000000000 -ST9 035001 035130 0 0 777777777777 0 004000000000 - - -*035001 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035001 035001 0 0 444000035062 0 0 -IT1 035001 0 0 0 444000035062 0 0 -AT3 035001 0 0 0 000000035062 0 444000035062 -AT6 035001 035062 0 0 000000035062 0 444000035062 -FT0 035001 035062 0 0 0 0 444000035062 -FT1A 035001 035062 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 716 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0932 - -FT2 035001 035062 0 0 0 0 0 -FT2RQ 035001 035062 0 0 777777777777 0 0 -FT3 035001 035062 0 0 777777777777 0 0 -FT9 035002 035062 0 0 777777777777 0 0 -ET0 035002 035062 0 0 0 0 0 -ST1 035002 035062 0 0 0 0 0 -ST2 035002 035062 0 0 0 0 0 -ST9 035002 035062 0 0 0 0 0 - - -*035002 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 035002 035002 0 0 332000000000 0 0 -IT1 035002 0 0 0 332000000000 0 0 -AT3 035002 0 0 0 0 0 332000000000 -AT6 035002 0 0 0 0 0 332000000000 -FT0 035002 0 0 0 0 0 332000000000 -FT1A 035002 0 0 0 0 0 0 -FT9 035003 0 0 0 0 0 0 -ET0 035004 0 0 0 0 0 0 -ST1A 035004 0 0 0 0 0 0 -ST9 035004 0 0 0 0 0 0 - - -*035004 JUMPA 0,035005 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 035004 035004 0 0 324000035005 0 000000035005 -IT1 035004 0 0 0 324000035005 0 000000035005 -AT3 035004 0 0 0 000000035005 0 324000035005 -AT6 035004 035005 0 0 000000035005 0 324000035005 -FT1A 035004 035005 0 0 000000035005 0 000000035005 -FT2 035004 035005 0 0 0 0 000000035005 -FT2RQ 035004 035005 0 0 0 0 000000035005 -FT3 035004 035005 0 0 0 0 000000035005 -FT9 035005 035005 0 0 0 0 000000035005 -ET0 035005 035005 0 0 0 0 000000035005 -ST1A 035005 035005 0 0 0 0 000000035005 -ST9 035005 035005 0 0 0 0 000000035005 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 717 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0933 - -*035005 MOVE 0,035131 -INITIAL -C(AC)=000000 000000 -C(E)=010000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035005 035005 0 0 200000035131 0 010000000000 -IT1 035005 0 0 0 200000035131 0 010000000000 -AT3 035005 0 0 0 000000035131 0 200000035131 -AT6 035005 035131 0 0 000000035131 0 200000035131 -FT0 035005 035131 0 0 010000000000 0 200000035131 -FT1A 035005 035131 0 0 010000000000 0 010000000000 -FT9 035006 035131 0 0 010000000000 0 010000000000 -ET0 035006 035131 0 0 010000000000 0 010000000000 -ST1 035006 035131 0 0 010000000000 0 010000000000 -ST2 035006 035131 0 0 010000000000 0 010000000000 -ST9 035006 035131 0 0 010000000000 0 010000000000 - - -*035006 AND 0,035131 -INITIAL -C(AC)=010000 000000 -C(E)=010000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035006 035006 0 0 404000035131 0 010000000000 -IT1 035006 0 0 0 404000035131 0 010000000000 -AT3 035006 0 0 0 000000035131 0 404000035131 -AT6 035006 035131 0 0 000000035131 0 404000035131 -FT0 035006 035131 0 0 010000000000 0 404000035131 -FT1A 035006 035131 0 0 010000000000 0 010000000000 -FT2 035006 035131 0 0 0 0 010000000000 -FT2RQ 035006 035131 0 0 010000000000 0 010000000000 -FT3 035006 035131 0 0 010000000000 0 010000000000 -FT9 035007 035131 0 0 010000000000 0 010000000000 -ET0 035007 035131 0 0 010000000000 0 010000000000 -ST1 035007 035131 0 0 010000000000 0 010000000000 -ST2 035007 035131 0 0 010000000000 0 010000000000 -ST9 035007 035131 0 0 010000000000 0 010000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 718 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0934 - -*035007 EQV 0,035131 -INITIAL -C(AC)=010000 000000 -C(E)=010000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 035007 035007 0 0 444000035131 0 010000000000 -IT1 035007 0 0 0 444000035131 0 010000000000 -AT3 035007 0 0 0 000000035131 0 444000035131 -AT6 035007 035131 0 0 000000035131 0 444000035131 -FT0 035007 035131 0 0 010000000000 0 444000035131 -FT1A 035007 035131 0 0 010000000000 0 010000000000 -FT2 035007 035131 0 0 0 0 010000000000 -FT2RQ 035007 035131 0 0 010000000000 0 010000000000 -FT3 035007 035131 0 0 010000000000 0 010000000000 -FT9 035010 035131 0 0 010000000000 0 010000000000 -ET0 035010 035131 0 0 777777777777 0 010000000000 -ST1 035010 035131 0 0 777777777777 0 010000000000 -ST2 035010 035131 0 0 777777777777 0 010000000000 -ST9 035010 035131 0 0 777777777777 0 010000000000 - - -*035010 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035010 035010 0 0 444000035062 0 0 -IT1 035010 0 0 0 444000035062 0 0 -AT3 035010 0 0 0 000000035062 0 444000035062 -AT6 035010 035062 0 0 000000035062 0 444000035062 -FT0 035010 035062 0 0 0 0 444000035062 -FT1A 035010 035062 0 0 0 0 0 -FT2 035010 035062 0 0 0 0 0 -FT2RQ 035010 035062 0 0 777777777777 0 0 -FT3 035010 035062 0 0 777777777777 0 0 -FT9 035011 035062 0 0 777777777777 0 0 -ET0 035011 035062 0 0 0 0 0 -ST1 035011 035062 0 0 0 0 0 -ST2 035011 035062 0 0 0 0 0 -ST9 035011 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 719 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0935 - -*035011 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 035011 035011 0 0 332000000000 0 0 -IT1 035011 0 0 0 332000000000 0 0 -AT3 035011 0 0 0 0 0 332000000000 -AT6 035011 0 0 0 0 0 332000000000 -FT0 035011 0 0 0 0 0 332000000000 -FT1A 035011 0 0 0 0 0 0 -FT9 035012 0 0 0 0 0 0 -ET0 035013 0 0 0 0 0 0 -ST1A 035013 0 0 0 0 0 0 -ST9 035013 0 0 0 0 0 0 - - -*035013 JUMPA 0,035014 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 035013 035013 0 0 324000035014 0 000000035014 -IT1 035013 0 0 0 324000035014 0 000000035014 -AT3 035013 0 0 0 000000035014 0 324000035014 -AT6 035013 035014 0 0 000000035014 0 324000035014 -FT1A 035013 035014 0 0 000000035014 0 000000035014 -FT2 035013 035014 0 0 0 0 000000035014 -FT2RQ 035013 035014 0 0 0 0 000000035014 -FT3 035013 035014 0 0 0 0 000000035014 -FT9 035014 035014 0 0 0 0 000000035014 -ET0 035014 035014 0 0 0 0 000000035014 -ST1A 035014 035014 0 0 0 0 000000035014 -ST9 035014 035014 0 0 0 0 000000035014 - - -*035014 MOVE 0,035132 -INITIAL -C(AC)=000000 000000 -C(E)=020000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035014 035014 0 0 200000035132 0 020000000000 -IT1 035014 0 0 0 200000035132 0 020000000000 -AT3 035014 0 0 0 000000035132 0 200000035132 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 720 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0936 - -AT6 035014 035132 0 0 000000035132 0 200000035132 -FT0 035014 035132 0 0 020000000000 0 200000035132 -FT1A 035014 035132 0 0 020000000000 0 020000000000 -FT9 035015 035132 0 0 020000000000 0 020000000000 -ET0 035015 035132 0 0 020000000000 0 020000000000 -ST1 035015 035132 0 0 020000000000 0 020000000000 -ST2 035015 035132 0 0 020000000000 0 020000000000 -ST9 035015 035132 0 0 020000000000 0 020000000000 - - -*035015 AND 0,035132 -INITIAL -C(AC)=020000 000000 -C(E)=020000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035015 035015 0 0 404000035132 0 020000000000 -IT1 035015 0 0 0 404000035132 0 020000000000 -AT3 035015 0 0 0 000000035132 0 404000035132 -AT6 035015 035132 0 0 000000035132 0 404000035132 -FT0 035015 035132 0 0 020000000000 0 404000035132 -FT1A 035015 035132 0 0 020000000000 0 020000000000 -FT2 035015 035132 0 0 0 0 020000000000 -FT2RQ 035015 035132 0 0 020000000000 0 020000000000 -FT3 035015 035132 0 0 020000000000 0 020000000000 -FT9 035016 035132 0 0 020000000000 0 020000000000 -ET0 035016 035132 0 0 020000000000 0 020000000000 -ST1 035016 035132 0 0 020000000000 0 020000000000 -ST2 035016 035132 0 0 020000000000 0 020000000000 -ST9 035016 035132 0 0 020000000000 0 020000000000 - - -*035016 EQV 0,035132 -INITIAL -C(AC)=020000 000000 -C(E)=020000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 035016 035016 0 0 444000035132 0 020000000000 -IT1 035016 0 0 0 444000035132 0 020000000000 -AT3 035016 0 0 0 000000035132 0 444000035132 -AT6 035016 035132 0 0 000000035132 0 444000035132 -FT0 035016 035132 0 0 020000000000 0 444000035132 -FT1A 035016 035132 0 0 020000000000 0 020000000000 -FT2 035016 035132 0 0 0 0 020000000000 -FT2RQ 035016 035132 0 0 020000000000 0 020000000000 -FT3 035016 035132 0 0 020000000000 0 020000000000 -FT9 035017 035132 0 0 020000000000 0 020000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 721 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0937 - -ET0 035017 035132 0 0 777777777777 0 020000000000 -ST1 035017 035132 0 0 777777777777 0 020000000000 -ST2 035017 035132 0 0 777777777777 0 020000000000 -ST9 035017 035132 0 0 777777777777 0 020000000000 - - -*035017 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035017 035017 0 0 444000035062 0 0 -IT1 035017 0 0 0 444000035062 0 0 -AT3 035017 0 0 0 000000035062 0 444000035062 -AT6 035017 035062 0 0 000000035062 0 444000035062 -FT0 035017 035062 0 0 0 0 444000035062 -FT1A 035017 035062 0 0 0 0 0 -FT2 035017 035062 0 0 0 0 0 -FT2RQ 035017 035062 0 0 777777777777 0 0 -FT3 035017 035062 0 0 777777777777 0 0 -FT9 035020 035062 0 0 777777777777 0 0 -ET0 035020 035062 0 0 0 0 0 -ST1 035020 035062 0 0 0 0 0 -ST2 035020 035062 0 0 0 0 0 -ST9 035020 035062 0 0 0 0 0 - - -*035020 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 035020 035020 0 0 332000000000 0 0 -IT1 035020 0 0 0 332000000000 0 0 -AT3 035020 0 0 0 0 0 332000000000 -AT6 035020 0 0 0 0 0 332000000000 -FT0 035020 0 0 0 0 0 332000000000 -FT1A 035020 0 0 0 0 0 0 -FT9 035021 0 0 0 0 0 0 -ET0 035022 0 0 0 0 0 0 -ST1A 035022 0 0 0 0 0 0 -ST9 035022 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 722 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0938 - -*035022 JUMPA 0,035023 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 035022 035022 0 0 324000035023 0 000000035023 -IT1 035022 0 0 0 324000035023 0 000000035023 -AT3 035022 0 0 0 000000035023 0 324000035023 -AT6 035022 035023 0 0 000000035023 0 324000035023 -FT1A 035022 035023 0 0 000000035023 0 000000035023 -FT2 035022 035023 0 0 0 0 000000035023 -FT2RQ 035022 035023 0 0 0 0 000000035023 -FT3 035022 035023 0 0 0 0 000000035023 -FT9 035023 035023 0 0 0 0 000000035023 -ET0 035023 035023 0 0 0 0 000000035023 -ST1A 035023 035023 0 0 0 0 000000035023 -ST9 035023 035023 0 0 0 0 000000035023 - - -*035023 MOVE 0,035133 -INITIAL -C(AC)=000000 000000 -C(E)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035023 035023 0 0 200000035133 0 040000000000 -IT1 035023 0 0 0 200000035133 0 040000000000 -AT3 035023 0 0 0 000000035133 0 200000035133 -AT6 035023 035133 0 0 000000035133 0 200000035133 -FT0 035023 035133 0 0 040000000000 0 200000035133 -FT1A 035023 035133 0 0 040000000000 0 040000000000 -FT9 035024 035133 0 0 040000000000 0 040000000000 -ET0 035024 035133 0 0 040000000000 0 040000000000 -ST1 035024 035133 0 0 040000000000 0 040000000000 -ST2 035024 035133 0 0 040000000000 0 040000000000 -ST9 035024 035133 0 0 040000000000 0 040000000000 - - -*035024 AND 0,035133 -INITIAL -C(AC)=040000 000000 -C(E)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035024 035024 0 0 404000035133 0 040000000000 -IT1 035024 0 0 0 404000035133 0 040000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 723 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0939 - -AT3 035024 0 0 0 000000035133 0 404000035133 -AT6 035024 035133 0 0 000000035133 0 404000035133 -FT0 035024 035133 0 0 040000000000 0 404000035133 -FT1A 035024 035133 0 0 040000000000 0 040000000000 -FT2 035024 035133 0 0 0 0 040000000000 -FT2RQ 035024 035133 0 0 040000000000 0 040000000000 -FT3 035024 035133 0 0 040000000000 0 040000000000 -FT9 035025 035133 0 0 040000000000 0 040000000000 -ET0 035025 035133 0 0 040000000000 0 040000000000 -ST1 035025 035133 0 0 040000000000 0 040000000000 -ST2 035025 035133 0 0 040000000000 0 040000000000 -ST9 035025 035133 0 0 040000000000 0 040000000000 - - -*035025 EQV 0,035133 -INITIAL -C(AC)=040000 000000 -C(E)=040000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 035025 035025 0 0 444000035133 0 040000000000 -IT1 035025 0 0 0 444000035133 0 040000000000 -AT3 035025 0 0 0 000000035133 0 444000035133 -AT6 035025 035133 0 0 000000035133 0 444000035133 -FT0 035025 035133 0 0 040000000000 0 444000035133 -FT1A 035025 035133 0 0 040000000000 0 040000000000 -FT2 035025 035133 0 0 0 0 040000000000 -FT2RQ 035025 035133 0 0 040000000000 0 040000000000 -FT3 035025 035133 0 0 040000000000 0 040000000000 -FT9 035026 035133 0 0 040000000000 0 040000000000 -ET0 035026 035133 0 0 777777777777 0 040000000000 -ST1 035026 035133 0 0 777777777777 0 040000000000 -ST2 035026 035133 0 0 777777777777 0 040000000000 -ST9 035026 035133 0 0 777777777777 0 040000000000 - - -*035026 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035026 035026 0 0 444000035062 0 0 -IT1 035026 0 0 0 444000035062 0 0 -AT3 035026 0 0 0 000000035062 0 444000035062 -AT6 035026 035062 0 0 000000035062 0 444000035062 -FT0 035026 035062 0 0 0 0 444000035062 -FT1A 035026 035062 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 724 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0940 - -FT2 035026 035062 0 0 0 0 0 -FT2RQ 035026 035062 0 0 777777777777 0 0 -FT3 035026 035062 0 0 777777777777 0 0 -FT9 035027 035062 0 0 777777777777 0 0 -ET0 035027 035062 0 0 0 0 0 -ST1 035027 035062 0 0 0 0 0 -ST2 035027 035062 0 0 0 0 0 -ST9 035027 035062 0 0 0 0 0 - - -*035027 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 035027 035027 0 0 332000000000 0 0 -IT1 035027 0 0 0 332000000000 0 0 -AT3 035027 0 0 0 0 0 332000000000 -AT6 035027 0 0 0 0 0 332000000000 -FT0 035027 0 0 0 0 0 332000000000 -FT1A 035027 0 0 0 0 0 0 -FT9 035030 0 0 0 0 0 0 -ET0 035031 0 0 0 0 0 0 -ST1A 035031 0 0 0 0 0 0 -ST9 035031 0 0 0 0 0 0 - - -*035031 JUMPA 0,035032 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 035031 035031 0 0 324000035032 0 000000035032 -IT1 035031 0 0 0 324000035032 0 000000035032 -AT3 035031 0 0 0 000000035032 0 324000035032 -AT6 035031 035032 0 0 000000035032 0 324000035032 -FT1A 035031 035032 0 0 000000035032 0 000000035032 -FT2 035031 035032 0 0 0 0 000000035032 -FT2RQ 035031 035032 0 0 0 0 000000035032 -FT3 035031 035032 0 0 0 0 000000035032 -FT9 035032 035032 0 0 0 0 000000035032 -ET0 035032 035032 0 0 0 0 000000035032 -ST1A 035032 035032 0 0 0 0 000000035032 -ST9 035032 035032 0 0 0 0 000000035032 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 725 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0941 - -*035032 MOVE 0,035134 -INITIAL -C(AC)=000000 000000 -C(E)=100000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035032 035032 0 0 200000035134 0 100000000000 -IT1 035032 0 0 0 200000035134 0 100000000000 -AT3 035032 0 0 0 000000035134 0 200000035134 -AT6 035032 035134 0 0 000000035134 0 200000035134 -FT0 035032 035134 0 0 100000000000 0 200000035134 -FT1A 035032 035134 0 0 100000000000 0 100000000000 -FT9 035033 035134 0 0 100000000000 0 100000000000 -ET0 035033 035134 0 0 100000000000 0 100000000000 -ST1 035033 035134 0 0 100000000000 0 100000000000 -ST2 035033 035134 0 0 100000000000 0 100000000000 -ST9 035033 035134 0 0 100000000000 0 100000000000 - - -*035033 AND 0,035134 -INITIAL -C(AC)=100000 000000 -C(E)=100000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035033 035033 0 0 404000035134 0 100000000000 -IT1 035033 0 0 0 404000035134 0 100000000000 -AT3 035033 0 0 0 000000035134 0 404000035134 -AT6 035033 035134 0 0 000000035134 0 404000035134 -FT0 035033 035134 0 0 100000000000 0 404000035134 -FT1A 035033 035134 0 0 100000000000 0 100000000000 -FT2 035033 035134 0 0 0 0 100000000000 -FT2RQ 035033 035134 0 0 100000000000 0 100000000000 -FT3 035033 035134 0 0 100000000000 0 100000000000 -FT9 035034 035134 0 0 100000000000 0 100000000000 -ET0 035034 035134 0 0 100000000000 0 100000000000 -ST1 035034 035134 0 0 100000000000 0 100000000000 -ST2 035034 035134 0 0 100000000000 0 100000000000 -ST9 035034 035134 0 0 100000000000 0 100000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 726 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0942 - -*035034 EQV 0,035134 -INITIAL -C(AC)=100000 000000 -C(E)=100000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 035034 035034 0 0 444000035134 0 100000000000 -IT1 035034 0 0 0 444000035134 0 100000000000 -AT3 035034 0 0 0 000000035134 0 444000035134 -AT6 035034 035134 0 0 000000035134 0 444000035134 -FT0 035034 035134 0 0 100000000000 0 444000035134 -FT1A 035034 035134 0 0 100000000000 0 100000000000 -FT2 035034 035134 0 0 0 0 100000000000 -FT2RQ 035034 035134 0 0 100000000000 0 100000000000 -FT3 035034 035134 0 0 100000000000 0 100000000000 -FT9 035035 035134 0 0 100000000000 0 100000000000 -ET0 035035 035134 0 0 777777777777 0 100000000000 -ST1 035035 035134 0 0 777777777777 0 100000000000 -ST2 035035 035134 0 0 777777777777 0 100000000000 -ST9 035035 035134 0 0 777777777777 0 100000000000 - - -*035035 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035035 035035 0 0 444000035062 0 0 -IT1 035035 0 0 0 444000035062 0 0 -AT3 035035 0 0 0 000000035062 0 444000035062 -AT6 035035 035062 0 0 000000035062 0 444000035062 -FT0 035035 035062 0 0 0 0 444000035062 -FT1A 035035 035062 0 0 0 0 0 -FT2 035035 035062 0 0 0 0 0 -FT2RQ 035035 035062 0 0 777777777777 0 0 -FT3 035035 035062 0 0 777777777777 0 0 -FT9 035036 035062 0 0 777777777777 0 0 -ET0 035036 035062 0 0 0 0 0 -ST1 035036 035062 0 0 0 0 0 -ST2 035036 035062 0 0 0 0 0 -ST9 035036 035062 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 727 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0943 - -*035036 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 035036 035036 0 0 332000000000 0 0 -IT1 035036 0 0 0 332000000000 0 0 -AT3 035036 0 0 0 0 0 332000000000 -AT6 035036 0 0 0 0 0 332000000000 -FT0 035036 0 0 0 0 0 332000000000 -FT1A 035036 0 0 0 0 0 0 -FT9 035037 0 0 0 0 0 0 -ET0 035040 0 0 0 0 0 0 -ST1A 035040 0 0 0 0 0 0 -ST9 035040 0 0 0 0 0 0 - - -*035040 JUMPA 0,035041 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 035040 035040 0 0 324000035041 0 000000035041 -IT1 035040 0 0 0 324000035041 0 000000035041 -AT3 035040 0 0 0 000000035041 0 324000035041 -AT6 035040 035041 0 0 000000035041 0 324000035041 -FT1A 035040 035041 0 0 000000035041 0 000000035041 -FT2 035040 035041 0 0 0 0 000000035041 -FT2RQ 035040 035041 0 0 0 0 000000035041 -FT3 035040 035041 0 0 0 0 000000035041 -FT9 035041 035041 0 0 0 0 000000035041 -ET0 035041 035041 0 0 0 0 000000035041 -ST1A 035041 035041 0 0 0 0 000000035041 -ST9 035041 035041 0 0 0 0 000000035041 - - -*035041 MOVE 0,035135 -INITIAL -C(AC)=000000 000000 -C(E)=200000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035041 035041 0 0 200000035135 0 200000000000 -IT1 035041 0 0 0 200000035135 0 200000000000 -AT3 035041 0 0 0 000000035135 0 200000035135 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 728 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0944 - -AT6 035041 035135 0 0 000000035135 0 200000035135 -FT0 035041 035135 0 0 200000000000 0 200000035135 -FT1A 035041 035135 0 0 200000000000 0 200000000000 -FT9 035042 035135 0 0 200000000000 0 200000000000 -ET0 035042 035135 0 0 200000000000 0 200000000000 -ST1 035042 035135 0 0 200000000000 0 200000000000 -ST2 035042 035135 0 0 200000000000 0 200000000000 -ST9 035042 035135 0 0 200000000000 0 200000000000 - - -*035042 AND 0,035135 -INITIAL -C(AC)=200000 000000 -C(E)=200000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035042 035042 0 0 404000035135 0 200000000000 -IT1 035042 0 0 0 404000035135 0 200000000000 -AT3 035042 0 0 0 000000035135 0 404000035135 -AT6 035042 035135 0 0 000000035135 0 404000035135 -FT0 035042 035135 0 0 200000000000 0 404000035135 -FT1A 035042 035135 0 0 200000000000 0 200000000000 -FT2 035042 035135 0 0 0 0 200000000000 -FT2RQ 035042 035135 0 0 200000000000 0 200000000000 -FT3 035042 035135 0 0 200000000000 0 200000000000 -FT9 035043 035135 0 0 200000000000 0 200000000000 -ET0 035043 035135 0 0 200000000000 0 200000000000 -ST1 035043 035135 0 0 200000000000 0 200000000000 -ST2 035043 035135 0 0 200000000000 0 200000000000 -ST9 035043 035135 0 0 200000000000 0 200000000000 - - -*035043 EQV 0,035135 -INITIAL -C(AC)=200000 000000 -C(E)=200000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 035043 035043 0 0 444000035135 0 200000000000 -IT1 035043 0 0 0 444000035135 0 200000000000 -AT3 035043 0 0 0 000000035135 0 444000035135 -AT6 035043 035135 0 0 000000035135 0 444000035135 -FT0 035043 035135 0 0 200000000000 0 444000035135 -FT1A 035043 035135 0 0 200000000000 0 200000000000 -FT2 035043 035135 0 0 0 0 200000000000 -FT2RQ 035043 035135 0 0 200000000000 0 200000000000 -FT3 035043 035135 0 0 200000000000 0 200000000000 -FT9 035044 035135 0 0 200000000000 0 200000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 729 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0945 - -ET0 035044 035135 0 0 777777777777 0 200000000000 -ST1 035044 035135 0 0 777777777777 0 200000000000 -ST2 035044 035135 0 0 777777777777 0 200000000000 -ST9 035044 035135 0 0 777777777777 0 200000000000 - - -*035044 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035044 035044 0 0 444000035062 0 0 -IT1 035044 0 0 0 444000035062 0 0 -AT3 035044 0 0 0 000000035062 0 444000035062 -AT6 035044 035062 0 0 000000035062 0 444000035062 -FT0 035044 035062 0 0 0 0 444000035062 -FT1A 035044 035062 0 0 0 0 0 -FT2 035044 035062 0 0 0 0 0 -FT2RQ 035044 035062 0 0 777777777777 0 0 -FT3 035044 035062 0 0 777777777777 0 0 -FT9 035045 035062 0 0 777777777777 0 0 -ET0 035045 035062 0 0 0 0 0 -ST1 035045 035062 0 0 0 0 0 -ST2 035045 035062 0 0 0 0 0 -ST9 035045 035062 0 0 0 0 0 - - -*035045 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 035045 035045 0 0 332000000000 0 0 -IT1 035045 0 0 0 332000000000 0 0 -AT3 035045 0 0 0 0 0 332000000000 -AT6 035045 0 0 0 0 0 332000000000 -FT0 035045 0 0 0 0 0 332000000000 -FT1A 035045 0 0 0 0 0 0 -FT9 035046 0 0 0 0 0 0 -ET0 035047 0 0 0 0 0 0 -ST1A 035047 0 0 0 0 0 0 -ST9 035047 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 730 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0946 - -*035047 JUMPA 0,035050 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 035047 035047 0 0 324000035050 0 000000035050 -IT1 035047 0 0 0 324000035050 0 000000035050 -AT3 035047 0 0 0 000000035050 0 324000035050 -AT6 035047 035050 0 0 000000035050 0 324000035050 -FT1A 035047 035050 0 0 000000035050 0 000000035050 -FT2 035047 035050 0 0 0 0 000000035050 -FT2RQ 035047 035050 0 0 0 0 000000035050 -FT3 035047 035050 0 0 0 0 000000035050 -FT9 035050 035050 0 0 0 0 000000035050 -ET0 035050 035050 0 0 0 0 000000035050 -ST1A 035050 035050 0 0 0 0 000000035050 -ST9 035050 035050 0 0 0 0 000000035050 - - -*035050 MOVE 0,035065 -INITIAL -C(AC)=000000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035050 035050 0 0 200000035065 0 400000000000 -IT1 035050 0 0 0 200000035065 0 400000000000 -AT3 035050 0 0 0 000000035065 0 200000035065 -AT6 035050 035065 0 0 000000035065 0 200000035065 -FT0 035050 035065 0 0 400000000000 0 200000035065 -FT1A 035050 035065 0 0 400000000000 0 400000000000 -FT9 035051 035065 0 0 400000000000 0 400000000000 -ET0 035051 035065 0 0 400000000000 0 400000000000 -ST1 035051 035065 0 0 400000000000 0 400000000000 -ST2 035051 035065 0 0 400000000000 0 400000000000 -ST9 035051 035065 0 0 400000000000 0 400000000000 - - -*035051 AND 0,035065 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035051 035051 0 0 404000035065 0 400000000000 -IT1 035051 0 0 0 404000035065 0 400000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 731 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0947 - -AT3 035051 0 0 0 000000035065 0 404000035065 -AT6 035051 035065 0 0 000000035065 0 404000035065 -FT0 035051 035065 0 0 400000000000 0 404000035065 -FT1A 035051 035065 0 0 400000000000 0 400000000000 -FT2 035051 035065 0 0 0 0 400000000000 -FT2RQ 035051 035065 0 0 400000000000 0 400000000000 -FT3 035051 035065 0 0 400000000000 0 400000000000 -FT9 035052 035065 0 0 400000000000 0 400000000000 -ET0 035052 035065 0 0 400000000000 0 400000000000 -ST1 035052 035065 0 0 400000000000 0 400000000000 -ST2 035052 035065 0 0 400000000000 0 400000000000 -ST9 035052 035065 0 0 400000000000 0 400000000000 - - -*035052 EQV 0,035065 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 035052 035052 0 0 444000035065 0 400000000000 -IT1 035052 0 0 0 444000035065 0 400000000000 -AT3 035052 0 0 0 000000035065 0 444000035065 -AT6 035052 035065 0 0 000000035065 0 444000035065 -FT0 035052 035065 0 0 400000000000 0 444000035065 -FT1A 035052 035065 0 0 400000000000 0 400000000000 -FT2 035052 035065 0 0 0 0 400000000000 -FT2RQ 035052 035065 0 0 400000000000 0 400000000000 -FT3 035052 035065 0 0 400000000000 0 400000000000 -FT9 035053 035065 0 0 400000000000 0 400000000000 -ET0 035053 035065 0 0 777777777777 0 400000000000 -ST1 035053 035065 0 0 777777777777 0 400000000000 -ST2 035053 035065 0 0 777777777777 0 400000000000 -ST9 035053 035065 0 0 777777777777 0 400000000000 - - -*035053 EQV 0,035062 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 035053 035053 0 0 444000035062 0 0 -IT1 035053 0 0 0 444000035062 0 0 -AT3 035053 0 0 0 000000035062 0 444000035062 -AT6 035053 035062 0 0 000000035062 0 444000035062 -FT0 035053 035062 0 0 0 0 444000035062 -FT1A 035053 035062 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 732 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0948 - -FT2 035053 035062 0 0 0 0 0 -FT2RQ 035053 035062 0 0 777777777777 0 0 -FT3 035053 035062 0 0 777777777777 0 0 -FT9 035054 035062 0 0 777777777777 0 0 -ET0 035054 035062 0 0 0 0 0 -ST1 035054 035062 0 0 0 0 0 -ST2 035054 035062 0 0 0 0 0 -ST9 035054 035062 0 0 0 0 0 - - -*035054 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 035054 035054 0 0 332000000000 0 0 -IT1 035054 0 0 0 332000000000 0 0 -AT3 035054 0 0 0 0 0 332000000000 -AT6 035054 0 0 0 0 0 332000000000 -FT0 035054 0 0 0 0 0 332000000000 -FT1A 035054 0 0 0 0 0 0 -FT9 035055 0 0 0 0 0 0 -ET0 035056 0 0 0 0 0 0 -ST1A 035056 0 0 0 0 0 0 -ST9 035056 0 0 0 0 0 0 - - -*035056 JUMPA 0,035057 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 035056 035056 0 0 324000035057 0 000000035057 -IT1 035056 0 0 0 324000035057 0 000000035057 -AT3 035056 0 0 0 000000035057 0 324000035057 -AT6 035056 035057 0 0 000000035057 0 324000035057 -FT1A 035056 035057 0 0 000000035057 0 000000035057 -FT2 035056 035057 0 0 0 0 000000035057 -FT2RQ 035056 035057 0 0 0 0 000000035057 -FT3 035056 035057 0 0 0 0 000000035057 -FT9 035057 035057 0 0 0 0 000000035057 -ET0 035057 035057 0 0 0 0 000000035057 -ST1A 035057 035057 0 0 0 0 000000035057 -ST9 035057 035057 0 0 0 0 000000035057 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 733 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0949 - -*035057 JRST 0,030057 -INITIAL -C(AC)=000000 000000 -C(E)=254000 030641 -FINAL - -C(E)=254000 030641 - -TIME PC MA SC FE AR MQ BR -IT0 035057 035057 0 0 254000030057 0 254000030057 -IT1 035057 0 0 0 254000030057 0 254000030057 -AT3 035057 0 0 0 000000030057 0 254000030057 -AT6 035057 030057 0 0 000000030057 0 254000030057 -FT1A 035057 030057 0 0 000000030057 0 254000030057 -FT9 035060 030057 0 0 000000030057 0 254000030057 -ET0 030057 035060 0 0 000000030057 0 254000030057 -ST1A 030057 035060 0 0 000000030057 0 254000030057 -ST9 030057 035060 0 0 000000030057 0 254000030057 - - -*030057 JRST 0,030641 -INITIAL -C(AC)=000000 000000 -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 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 -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 19-JAN-77 PAGE 734 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0950 - -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 000000 -C(E)=000000 000001 -FINAL -C(AC)=000000 000000 -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 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -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 19-JAN-77 PAGE 735 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0951 - -*030644 JRST 0,030652 -INITIAL -C(AC)=000000 000000 -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 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -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 19-JAN-77 PAGE 736 -DAKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0952 - -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 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -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 000000 -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 - diff --git a/apps/pdp10/tapes/diags/klad/dakaa/README.md b/apps/pdp10/tapes/diags/klad/dakaa/README.md index f25681992..99435fbbc 100644 --- a/apps/pdp10/tapes/diags/klad/dakaa/README.md +++ b/apps/pdp10/tapes/diags/klad/dakaa/README.md @@ -7,20 +7,23 @@ machines: type: pdp10 config: /devices/pdp10/machine/ka10/test/debugger/machine.xml debugger: true + commands: a 30724 /apps/pdp10/tapes/diags/klad/dakaa/TEST.MAC --- PDP-10 KA10 Basic Instruction Diagnostic #1 ------------------------------------------- The *PDP-10 KA10 Basic Instruction Diagnostic #1* (MAINDEC-10-DAKAA-B-D) test code has been extracted from -[DAKAA.MAC](DAKAA.MAC) [[original file](http://pdp-10.trailing-edge.com/klad_sources/01/klad.sources/dakaam.mac.html)] +[DAKAA.MAC](DAKAA.MAC.txt) [[original](http://pdp-10.trailing-edge.com/klad_sources/01/klad.sources/dakaam.mac.html)] for use with the [PDP-10 Test Machine with Debugger](/devices/pdp10/machine/ka10/test/debugger/) below. Resources for this test include: -- [DAKAA.TXT](#dakaatxt) -- [DAKAA.MAC](#dakaamac) -- [DAKAA.SEQ](#dakaaseq) +- [Instructions](#dakaatxt) +- [History](#dakaahst) +- [Source Code](#dakaamac) [[file](DAKAA.MAC.txt)] +- [MACRO-10 Listing](#dakaalst) [[file](DAKAA.LST.txt)] +- [Additional Information](#dakaaseq) {% include machine.html id="testka10" %} @@ -31,8 +34,8 @@ This command: a 30724 /apps/pdp10/tapes/diags/klad/dakaa/TEST.MAC -will automatically read the [TEST.MAC](TEST.MAC) source file (a slightly modified copy of [DAKAA.MAC](DAKAA.MAC)), assemble it, -and then load the binary output at the specified address. +will automatically read the [TEST.MAC](TEST.MAC.txt) source file (a slightly modified copy of [DAKAA.MAC](DAKAA.MAC.txt)), +assemble it, and then load the binary output at the specified address. --- @@ -237,1055 +240,55 @@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ``` -DAKAA.MAC +DAKAA.HST --------- ``` -SUBTTL DIAGNOSTIC SECTION + THIS IS A HISTORY OF THE DEVELOPMENT OF MAINDEC-10-DAKAA -START: SETZM USER# ;CLEAR USER CONTROL WORD - JSP 0,.+1 ;GET FLAGS - TLNE USERF ;IN USER MODE? - SETOM USER ;YES, SET USER CONTROL WORD - SKIPN MONFLG ;SPECIAL USER MODE? - SETZM USER ;YES, CLEAR USER CONTROL WORD - SKIPN USER - JRST STARTA - SKIPL MONCTL - TTCALL 3,PGMNAM ;MENTION OUR NAME - JRST STARTA +************************************************************************ -PGMNAM: ASCIZ/ -PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (1) [DAKAA] -/ +PRODUCT CODE: MAINDEC-10-DAKAA -;BASIC INSTRUCTION TEST (3) -;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF -;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES -;IN THE FIELD. +PRODUCT NAME: BASIC INSTRUCTION DIAGNOSTIC #1 +DATE RELEASED: JANUARY 1977 -STARTA: JRST .+1 -SUBTTL TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS +VERSION: 0.2 -;NOTE: AN "*" IN THE COMMENT FIELD OF AN INSTRUCTION INDICATES THAT IT IS THE TESTED -;INSTRUCTION. -;********** +UPDATE AUTHOR: JOHN R. KIRCHOFF -;THIS TEST VERIFIES THAT SKIPA ALWAYS SKIPS THE NEXT INSTRUCTION +CHANGES MADE: -A00=. -A12500: SKIPA ;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION - HALT ;IF PROGRAM HALTS, SKIPA DID NOT SKIP + 1. UPGRADE TO ALLOW COMPATABILITY WITH THE SUBROUTINE PACKAGE. -;IF PROGRAM HANGS UP ON SKIPA INSTRUCTION, CHECK AB PC EN [ABC], AB PC F/F [ABC], -;AB PC B [ABC OR AB], AB PC (FETCH) EN [ABC], IR SKIPS [IR3], IR SKIPX [IR1], -;IR 3XX [IR1], IR BITS 00 - 08 [IR1], F CYC ACT EN C [FI], FT6 F/F [F2], -;PC CLOCK EN [PCC], ET2 J F/F [E], PC CLK (ET2) EN [PCC], ADZ COND P [ADZ] AND -;ADZ COND R [ADZ], PC CLOCK A [PCC], PC CLOCK B [PCC] +************************************************************************ -;IF PROGRAM HALTED ON HALT INSTRUCTION, CHECK ST1 COND [ST2] +ORIGINAL VERSION: 0.1 -;********** +ORIGINAL AUTHOR: RICHARD MALISKA -;THIS TEST VERIFIES THAT JUMP NEVER JUMPS - -A15000: JUMP .+1 ;*JUMP SHOULD NEVER JUMP - SKIPA ;SKIP HALT INSTRUCTION IF JUMP IS SUCCESSFUL - HALT ;HALT IF JUMP FAILS - -;IF PROGRAM HANGS UP ON JUMP .+1 INSTRUCTION, THE JUMP INSTRUCTION -;MAY HAVE FAILED. CHECK ST1 COND [ST2], ST INST FET ST1 EN [ST2], ET2 D F/F [E], -;IR JUMPS [IR1], IR JUMPX [IR1] - -;********** -;THIS TEST VERIFIES THAT JUMP NEVER JUMPS - -A15100: JUMP .+2 ;*JUMP SHOULD NEVER JUMP - SKIPA ;SKIP HALT INSTRUCTION IF JUMP IS SUCCESSFUL - HALT ;HALT IF JUMP FAILS - -;AB PC EN [ABC] - -;********** - -;THIS TEST VERIFIES THAT JUMPA .+1 ALWAYS JUMPS TO THE NEXT INSTRUCTION - -A12700: JUMPA .+1 ;*JUMPA .+1 SHOULD NEVER JUMP - SKIPA ;SKIP HALT INSTRUCTION IF JUMPA IS SUCCESSFUL - HALT ;HALT IF JUMPA .+1 FAILED - -;********** - -;THIS TEST VERIFIES THAT JUMPA JUMPS TO THE LOCATION SPECIFIED BY E WHEN E=.+2 - -A12600: JUMPA .+2 ;*JUMPA .+2 SHOULD ALWAYS SKIP THE NEXT INSTRUCTION - HALT ;PROGRAM HALTS HERE IF JUMPA .+2 FAILS - -;ST1 COND [ST2] - -;********** -;THIS TEST VERIFIES THAT SKIPA IS DATA INDEPENDENT. HENCE, IT ALWAYS SKIPS THE NEXT -;INSTRUCTION. -;THE MOVE [0] INSTRUCTION IS USED TO TEST THE DATA INDEPENDENCE OF SKIPA. - -A100: MOVE [0] ;PRESET LOCATION 0 TO ALL ZEROS - SKIPA ;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION - STOP - -;********** -;THIS TEST INSURES THAT SKIPA IS DATA INDEPENDENT. HENCE, IT ALWAYS SKIPS THE NEXT -;INSTRUCTION. -;THE MOVE [-1] INSTRUCTION IS USED TO TEST THE DATA INDEPENDENCE OF SKIPA. - -A200: MOVE [-1] ;PRESET LOCATION 0 TO ALL ONES - SKIPA ;*SKIPA SKOULD ALWAYS SKIP THE NEXT INSTRUCTION - STOP - -;COND P [ADZ] - -;********** -;THIS TEST VERIFIES THAT SKIPGE SKIPS THE NEXT INSTRUCTION WHEN C(E) -;IS ALL ZEROS. THE MOVE INSTRUCTION IS USED TO LOAD E WITH ALL ZEROS. - -A300: MOVE [0] ;PRESET E TO ALL ZEROS - SKIPGE ;*SKIPGE SHOULD SKIP THE NEXT INSTRUCTION - STOP - -;COND R [ADZ], AD00 S-A-1, AD AR + EN [ADAP], AD LT AR + EN [ADAP], -;AD RT AR + EN [ADAP], AD AR + EN C [ADAP], F CYC ACT EN A [F1] - -;********** - -;THIS TEST VERIFIES THAT SKIP IS DATA INDEPENDENT. HENCE, SKIP NEVER SKIPS. IT ALWAYS -;CONTINUES ON TO THE NEXT INSTRUCTION. - -A400: MOVE [-1] ;PRESET E TO ALL ONES - SKIP ;*SKIP SHOULD NEVER SKIP THE NEXT INSTRUCTION - SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - STOP - -;PC CHANGE [PCC], PC CHANGE A [PCC], SEE MEMORY CONTROL DWGS [MC1-4] - -;********** -;THIS TEST VERIFIES THAT SKIPGE WILL NOT SKIP THE NEXT INSTRUCTION WHEN C(E) IS -;NEGATIVE. THE MOVE INSTRUCTION LOADS E WITH -1, A NEGATIVE NUMBER. - -A500: MOVE [-1] ;PRESET E WITH ALL ONES, A NEGATIVE NUMBER - SKIPGE ;*SKIPGE SHOULD NOT SKIP THE NEXT INSTRUCTION - SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - STOP - -;IF MOVE INSTRUCTION FAILED, CHECK MOVX-: FCE [F1], -IR XXXI [IR1], -IR XXXM [IR1], -;IR HWTFWT [IR3], IR FWT [IR2], IR2XX [IR1] - -;IF SKIPGE FAILED, CHECK SKIPX: FCE [F1] - -;********** - -;THIS TEST VERIFIES THAT SKIPN WILL NOT SKIP THE NEXT INSTRUCTION WHEN -;C(E) IS ZERO. THE MOVE INSTRUCTION LOADS E WITH ALL ZEROS. - -A600: MOVE [0] ;PRESET E WITH ALL ZEROS - SKIPN ;*SKIPN SHOULD NOT SKIP THE NEXT INSTRUCTION - SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - STOP - -;********** - -;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT SHOULD SKIP -;THE NEXT INSTRUCTION WHEN C(E) IS NON-ZERO. THE MOVE INSTRUCTION LOADS -;E WITH -1, A NON-ZERO NUMBER. - -A700: MOVE [-1] ;PRESET E WITH ALL ONES, A NON-ZERO NUMBER - SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - STOP - -;********** -;THIS TEST VERIFIES THAT SKIPE IS DATA DEPENDENT. HENCE, IT SHOULD NOT -;SKIP THE NEXT INSTRUCTION WHEN C(E) IS NON-ZERO. THE MOVE INSTRUCTION LOADS E -;WITH -1, A NON-ZERO NUMBER. - -A1000: MOVE [-1] ;PRESET E WITH ALL ONES, A NON-ZERO NUMBER - SKIPE ;*SKIPE SHOULD NOT SKIP THE NEXT INSTRUCTION - SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - STOP - -;********** - -;THIS TEST VERIFIES THAT SKIPE IS DATA DEPENDENT. HENCE, IT SHOULD SKIP -;THE NEXT INSTRUCTION WHEN C(E) IS ZERO. THE MOVE INSTRUCTION LOADS ALL -;ZEROS INTO E. - -A1100: MOVE [0] ;PRESET E TO ALL ZEROS - SKIPE ;*SKIPE SHOULD SKIP THE NEXT INSTRUCTION - STOP - -;********** - -;THIS TEST VERIFIES THAT SKIP IS DATA INDEPENDENT. HENCE, IT NEVER SKIPS. IT ALWAYS -;CONTINUES ON TO THE NEXT INSTRUCTION. - -A1200: MOVE [0] ;PRESET E TO ALL ZEROS - SKIP ;*SKIP SHOULD NEVER SKIP THE NEXT INSTRUCTION - SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - STOP - -;********** -;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT -;INSTRUCTION WHEN C(E) IS NOT NEGATIVE. THE MOVE INSTRUCTION IS USED TO LOAD -;E WITH ALL ZEROS, A NON-NEGATIVE NUMBER. - -A1300: MOVE [0] ;PRESET E T0 ZERO, A NON-NEGATIVE NUMBER - SKIPL ;*SKIPL SHOULD NOT SKIP THE NEXT INSTRUCTION - SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - STOP - -;********** -;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT -;INSTRUCTION WHEN C(E) IS NEGATIVE. THE MOVE INSTRUCTION IS USED TO LOAD E WITH -1, -;A NEGATIVE NUMBER. - -A1400: MOVE [-1] ;PRESET E TO -1, A NEGATIVE NUMBER - SKIPL ;*SKIPL SHOULD SKIP THE NEXT INSTRUCTION - STOP - -;********** - -;THIS TEST VERIFIES THAT SKIPG IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT -;INSTRUCTION WHEN C(E) IS GREATER THAN ZERO. THE MOVE INSTRUCTION IS USED TO LOAD -;E WITH A NON-ZERO POSITIVE NUMBER. - -A1500: MOVE [XWD 377777,-1] ;PRESET E TO 377777777777, A NON-ZERO POSITIVE NUMBER - SKIPG ;*SKIPG SHOULD SKIP THE NEXT INSTRUCTION - STOP - -;********** - -;THIS TEST VERIFIES THAT SKIPG IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT -;INSTRUCTION WHEN C(E) IS NOT GREATER THAN ZERO. THE MOVE INSTRUCTION IS USED TO -;LOAD E WITH -1, A NUMBER NOT GREATER THAN ZERO. - -A1600: MOVE [-1] ;PRESET E TO -1, A NEGATIVE NUMBER - SKIPG ;*SKIPG SHOULD NOT SKIP THE NEXT INSTRUCTION - SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - STOP - -;********** -;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT -;INSTRUCTION WHEN C(E) IS NON-NEGATIVE. THE MOVE INSTRUCTION IS USED TO LOAD E WITH -;377777777777, A NON-NEGATIVE NUMBER. - -A1700: MOVE [XWD 377777,-1] ;PRESET E TO 377777777777, A NON-NEGATIVE NUMBER - SKIPL ;*SKIPL SHOULD NOT SKIP THE NEXT INSTRUCTION - SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - STOP - -;********** - -;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT -;INSTRUCTION WHEN C(E) IS ZERO. THE MOVE INSTRUCTION LOADS E WITH ALL ZEROS. - -A2000: MOVE [0] ;PRESET E TO ALL ZEROS - SKIPLE ;*SKIPLE SHOULD SKIP THE NEXT INSTRUCTION - STOP - -;********** - -;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT -;INSTRUCTION WHEN E CONTAINS A NEGATIVE NUMBER. THE MOVE INSTRUCTION IS USED TO LOAD -;E WITH 400000000000, A NEGATIVE NUMBER. - -A2100: MOVE [XWD 400000,0] ;PRESET E TO 400000000000, A NEGATIVE NUMBER. - SKIPLE ;*SKIPLE SHOULD SKIP THE NEXT INSTRUCTION - STOP - -;********** -;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT -;INSTRUCTION WHEN E CONTAINS A POSITIVE NUMBER. THE MOVE INSTRUCTION LOADS -;E WITH 377777777777, A POSITIVE NUMBER. - -A2200: MOVE [XWD 377777,-1] ;PRESET E TO 377777777777, A POSITIVE NUMBER - SKIPLE ;*SKIPLE SHOULD NOT SKIP THE NEXT INSTRUCTION - SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES - STOP - -;********* -;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT -;INSTRUCTION ;WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO -;LOAD 777000000000, A NON-ZERO NUMBER INTO E. - -A2300: MOVE [XWD 777000,0] ;PRESET E WITH 777000000000, A NON-ZERO NUMBER - SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - STOP - -;********** - -;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT -;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO -;LOAD A NON-ZERO NUMBER, 377000000 INTO E. - -A2400: MOVE [XWD 377,0] ;PRESET E TO 377000000, A NON ZERO NUMBER - SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - STOP - -;********** - -;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT -;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO -;LOAD E WITH A NON-ZERO NUMBER, 177000. - -A2500: MOVE [177000] ;PRESET E WITH 177000, A NON ZERO NUMBER - SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - STOP - -;********** -;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT -;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO -;LOAD 777, A NON-ZERO NUMBER INTO E. - -A2600: MOVE [777] ;PRESET E WITH 777, A NON-ZERO NUMBER - SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - STOP - -;********** - -;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT -;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO -;LOAD E WITH 600000, A NON-ZERO NUMBER. - -A2700: MOVE [600000] ;PRESET E WITK 600000, A NON-ZERO NUMBER - SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - STOP - -;********** - -;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT -;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO -;LOAD E WITH 400000000, A NON-ZERO NUMBER. - -A3000: MOVE [XWD 400,000] ;PRESET E WITH 400000000, A NON-ZERO NUMBER - SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - STOP - -;********** -SN=3100 - ZZ=0 - -A3100: REPEAT ^D36, -<;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST -;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE -;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO -;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). -;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. - -SN=SN+1 - ZZ=ZZ+ZZ - IFE ZZ, - MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO - SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION - STOP - -;********** -> -SUBTTL TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS - -;THIS TEST VERIFIES THAT MOVEI LOADS E INTO THE AC. SKIPG IS USED TO CHECK THAT -;THE AC WAS INDEED MODIFIED BY MOVEI. - -A3200: MOVEI [-1] ;*MOVEI SHOULD LOAD A POSITIVE NUMBER INTO AC0 - SKIPG ;SKIP HALT INSTRUCTION IF MOVEI LOADED AC CORRECTLY - STOP - -;IF PROGRAM HANGS UP ON MOVEI INSTRUCTION, CHECK AD FM +EN [ADFP], AD FM + EN A [ADFP], -;AD FM + F/F [ADFP], F CYC ACT EN C [F1] - -;********** - -;THIS TEST VERIFIES THAT SKIPL IS SENSITIVE TO THE DATA IN E AND NOT SENSITIVE TO -;THE DATA IN THE AC. HENCE, SKIPL WILL SKIP THE NEXT INSTRUCTION ONLY IF -;C(E) IS LESS THAN ZERO. E IS SET TO -1, A NEGATIVE NUMBER; AND -;THE AC IS SET TO 0 IN THIS TEST. THEREFORE SKIPL SHOULD SKIP. - -A3300: MOVE [0] ;SET THE AC TO ALL ZEROS - SKIPL [-1] ;*SKIPL SHOULD SKIP BECAUSE C(E) IS NEGATIVE - STOP - -;********** - -;THIS TEST VERIFIES THAT SKIPL IS SENSITIVE TO THE SIGN BIT IN E. SKIPL SHOULD -;SKIP THE NEXT INSTRUCTION WHEN AND ONLY WHEN THE SIGN BIT IS SET. IN THIS -;TEST, C(AC) IS PRESET TO ALL ZEROS, THEN SKIPL IS EXECUTED WITH C(E)=400000,,0. -;A FAILURE UCCURS IF SKIPL DOES NOT SKIP. - -A13100: MOVE [0] ;SET THE AC TO ALL ZEROS - SKIPL [400000,,0] ;*SKIPL SHOULD SKIP BECAUSE C(E) IS NEGATIVE - STOP - -;********** -;THIS TEST VERIFIES THAT THE CAM INSTRUCTION DOES NOT MODIFY C(AC). THE AC IS -;INITIALLY LOADED WITH ALL ZEROS; THEN CAM IS EXECUTED WITH C(E) NON-ZERO. -;THE AC IS THEN CHECKED FOR ALL ZEROS. THIS TEST FAILS IF THE AC WAS MODIFIED BY CAM. - -A3400: MOVE [0] ;PRESET THE AC TO ALL ZEROS - CAM [1234] ;*CAM SHOULD NOT MODIFY THE AC - MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION SERVES AS A NO-OP. - ;IT IS A PROGRAM FILLER IN CASE CAM SKIPS.) - SKIPE ;SKIP HALT INSTRUCTION IF AC WAS NOT MODIFIED BY CAM - STOP - -;IF TEST HANGS ON CAM INSTRUCTION, AB PC EN [ABC], AB PC (FETCH) EN [ABC], -;IR CAXX [IR3] - -;IF TEST LOOPS ON CAM INSTRUCTION, MC INSTR FETCH EN [MC1], MC INST FET ET2 EN [MC1], -;ET2 J F/F [E], IR CAXX [IR3] - -;IF TEST HALTS AT HALT INSTRUCTION, SAC INH [ST2], IR CAXX [IR3], IR CAMX [IR1] - -;********** - -;THIS TEST VERIFIES THAT THE CAI INSTRUCTION DOES NOT MODIFY C(AC). THE AC IS -;INITIALLY LOADED WITH ALL ZEROS; THEN CAI IS EXECUTED WITH E NON-ZERO. THE AC IS -;THEN CHECKED FOR ALL ZEROS. THIS TEST FAILS IF THE AC WAS MODIFIED BY CAM. - -A3500: MOVE [0] ;PRESET THE AC TO ALL ZEROS - CAI [1234] ;*CAI SHOULD NOT MODIFY THE AC - MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A PROGRAM FILLER - ;IN CASE CAI MODIFIES THE AC. IT SERVES AS A NO-OP) - SKIPE ;SKIP HALT INSTRUCTION IF CAI DID NOT MODIFY THE AC - STOP - -;********** -;THIS TEST VERIFIES THAT CAI DOES NOT MODIFY C(AC0) WHEN AN AC OTHER THAN AC0 IS -;SPECIFIED BY THE CAI INSTRUCTION. -;THIS IS THE FIRST TEST THAT USES AN AC OTHER THAN AC0. -;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, THE CAI INSTRUCTION IS EXECUTED WITH -;A NON-ZERO E. AC 0 IS THEN TESTED F0R ALL ZEROS. - -A3600: MOVE [0] ;LOAD AC0 WITH ALL ZEROS - CAI 17,[1234] ;*CAI SHOULD NOT MODIFY AC0 - MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE - ;CAI SKIPS THE NEXT INSTRUCTION. IT ACTS AS A NO-OP) - SKIPE ;SKIP HALT INSTRUCTION IF C(AC0) WAS NOT MODIFIED - STOP - -;********** - -;THIS TEST VERIFIES THAT CAM DOES NOT MODIFY C(AC0) WHEN AN AC OTHER THAN AC0 IS -;SPECIFIED BY THE CAM INSTRUCTION. -;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, THE CAM INSTRUCTION IS EXECUTED WITH -;A NON-ZERO E. AC 0 IS THEN TESTED F0R ALL ZEROS. - -A3700: MOVE [0] ;PRESET C(AC0) TO ALL ZEROS - CAM 17,[1234] ;*CAM SHOULD NOT MODIFY AC0 - MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE - ;CAM SKIPS THE NEXT INSTRUCTION. IT SERVES AS A NO-OP) - SKIPE ;SKIP HALT INSTRUCTION IF AC0 WAS NOT MODIFIED BY CAM - STOP - -;********** -;THIS TEST VERIFIES THAT MOVE WILL PLACE C(E) INTO THE AC. AC, E AND C(E) ARE NON-ZERO -;IN THIS TEST. THIS TEST PASSES IF FINAL C(AC) OF THE MOVE INSTRUCTION IS NON-ZERO. - -A4500: MOVE 1,[0] ;LOAD THE AC WITH ALL ZEROS - MOVE 1,[-1] ;*MOVE SHOULD PLACE ALL ONES IN THE AC - SKIPN 1 ;SKIP HALT INSTRUCTION IF MOVE MODIFIED THE AC - STOP - -;********** - -;THIS TEST VERIFIES THAT THE MOVE INSTRUCTION WILL PLACE C(E) INTO THE AC. -;AC, E ARE NON-ZERO AND C(E)=0. -;THIS TEST FAILS IF THE FINAL C(AC) IS NOT EQUAL TO ZERO, THE ORIGINAL C(E) - -A4600: MOVE 1,[0] ;*PLACE ALL ZEROS INTO THE AC - SKIPE 1 ;SKIP HALT INSTRUCTION IF MOVE PLACED ALL ZEROS INTO AC - STOP - -;IF JUMP .+1 OF PREVIOUS TEST FAILED, CHECK JUMPS: AD FM + EN [ADFP], IR JUMPS [IR1], -;IR JUMPX [IR1], AR AD EN [ARMA], AR AD EN A [ARMA], AR LT AD EN A [ARMA], -;AR LT ADD EN B [ARMA], AR RT AD EN A [ARMA], -;AR RT AD EN B [ARMA], AR A CLK INPUT [ARMA], -;ET2 C F/F [E], AR AD ET2 EN [ARMA], AR AD BR (ET2) B [ARMA] - -;********** -;THIS TEST VERIFIES THAT SOS DOES NOT MODIFY C(AC) WHEN THE AC IS AC0. -;FIRST, AC0 IS LOADED WITH ALL ZEROS AND E IS LOADED WITH A POSITIVE NUMBER; -;THEN, SOS IS EXECUTED. SOS SHOULD SUBTRACT ONE FROM C((E) -;AND EXECUTE THE NEXT INSTRUCTION. IT SHOULD NOT MODIFY AC0. -;THE TEST PASSES IF AC0 WAS NOT MODIFIED. - -A4000: MOVE [0] ;PRESET AC0 TO ALL ZEROS - MOVE 7,[1234] ;PRESET E WITH A POSITIVE NUMBER - SOS 7 ;*SOS SHOULD NOT MODIFY C(AC0) - MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE - ;SOS SKIPS THE NEXT INSTRUCTION. IT SERVES AS A NO-OP) - SKIPE ;SKIP THE HALT INSTRUCTION IF C(AC0) WAS NOT MODIFIED - STOP - -;********** -SN=4100 - AC=0 - -A4100: REPEAT 4, -<;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC -;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. -;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED -;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE -;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR -;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. -;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. - -SN=SN+1 - AC=AC+AC - IFE AC, - MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS - MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS - SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC - SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO - STOP - SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP - STOP - -;********** -> -SUBTTL TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS - -;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL NOT MODIFY THE CONTENTS OF AC0. -;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, -;THE SKIP INSTRUCTION IS EXECUTED WITH C(E)=-1 AND AC0. AC0 IS THEN TESTED FOR ALL -;ZEROS. THE TEST FAILS IF AC0 WAS MODIFIED BY THE SKIP INSTRUCTION. - -A4200: MOVE [0] ;PRESET AC0 TO ALL ZEROS - SKIP [-1] ;*SKIP SHOULD NOT MODIFY AC0 - SKIPE ;SKIP HALT INSTRUCTION IF AC0 WAS NOT MODIFIED BY SKIP - STOP - -;AC=0: SAC INH, IR BIT 9, 10, 11 OR 12 S-A-1 - -;********** - -;THIS TEST VERIFIES THAT MOVSS DOES NOT MODIFY C(AC0) WHEN AC0 IS SPECIFIED AS THE AC. -;FIRST, E IS LOADED WITH ALL ONES AND THE AC (AC0) -;IS LOADED WITH ALL ZEROS; THEN, MOVSS IS EXECUTED. MOVSS SHOULD NOT MODIFY AC0. -;AC0 IS THEN CHECKED TO INSURE THAT IT WAS NOT MODIFIED BY MOVSS. - -A4300: MOVE 7,[-1] ;LOAD E OF THE MOVSS INSTRUCTION WITH ALL ONES - MOVE [0] ;PRESET AC0 TO ALL ZEROS - MOVSS 7 ;*MOVSS SHOULD NOT MODIFY AC0 - SKIPE ;SKIP HALT INSTRUCTION IF AC0 WAS INTACT - STOP - -;MOVX & AC=0: SAC INH [ST2], IR XXXS [IR1] - -;********** -;THIS TEST VERIFIES THAT HRRS DOES NOT MODIFY C(AC0) WHEN AC0 IS THE SPECIFIED AC. -;FIRST, E IS LOADED WITH ALL ONES AND AC0 IS LOADED WITH ALL ZEROS; -;THEN, HRRS IS EXECUTED WITH AC=AC0. AC0 IS THEN CHECKED FOR ALL ZEROS. -;IF AC0 WAS MODIFIED BY THE HRRS INSTRUCTION, THE TEST FAIL. - -A4400: MOVE 7,[-1] ;PRESET E OF THE HRRS INSTRUCTION TO ALL ONES - MOVE [0] ;PRESET AC0 TO ALL ZEROS - HRRS 7 ;*HRRS SHOULD NOT MODIFY THE AC WHEN THE AC IS AC0 - SKIPE ;SKIP THE HALT INSTRUCTION IF AC0 WAS INTACT - STOP - -;(HXXXS&AC=0): SAC INH [ST2], IR HWTFWT [IR3], IR XXXS [IR1], IR HWT [IR1], -;IR BITS S-A-1 - -;********** -;THIS TEST VERIFIES THAT THE JUMP INSTRUCTION DOES NOT MODIFY C(AC). -;THE AC IS FIRST LOADED WITH ALL ZEROS; -;THEN JUMP .+1 IS EXECUTED. THE AC IS THEN CHECKED TO INSURE THAT IT WAS NOT MODIFIED -;BY JUMP. THE TEST FAILS IF THE AC WAS MODIFIED - -A4700: MOVE [0] ; PRESET THE AC TO ALL ZEROS - JUMP .+1 ;*JUMP SHOULD NOT MODIFY THE AC - SKIPE ;SKIP HALT INSTRUCTION IF AC WAS INTACT - STOP - -;********** - -;THIS TEST VERIFIES THAT MOVS WILL NOT PICK UP ANY ONES WHEN SWAPPING A WORD -;OF ALL ZEROS. FIRST, E IS LOADED WITH A WORD OF ALL ZEROS; -;THEN, MOVS IS EXECUTED. THE AC IS THEN CHECKED TO INSURE THAT THE RESULT DOES NOT -;CONTAIN ANY ONES. - -A5000: MOVE [0] ;PRESET E WITH ALL ZEROS - MOVS ;*MOVS SHOULD RESULT WITH AN AC 0F ALL ZEROS - SKIPE ;SKIP HALT INSTRUCTION IF C(AC)=0 - STOP - -;********** - -;THIS TEST VERIFIES THAT A MOVS EXECUTED ON AN E CONTAINING A NON-ZERO NUMBER -;RESULTS IN A NON-ZERO NUMBER IN THE AC. FIRST A NON-ZERO WORD -;IS LOADED INTO E; THEN, MOVS IS EXECUTED. THE AC IS CHECKED FOR A NON-ZERO RESULT. -;IF C(AC)=0, THE TEST FAILS. - -A5100: MOVE [XWD 0,-1] ;LOAD E WITH A NON-ZERO VALUE - MOVS ;*MOVS SHOULD RESULT IN C(AC) NON-ZERO - SKIPN ;SKIP HALT INSTRUCTION IF C(AC) OF MOVS IS NON-ZERO - STOP - -;********** -;THIS TEST VERIFIES THAT A MOVS EXECUTED ON AN E CONTAINING A NON-ZERO NUMBER -;RESULTS IN A NON-ZERO NUMBER IN THE AC. FIRST A NON-ZERO WORD -;IS LOADED INTO E; THEN, MOVS IS EXECUTED. THE AC IS CHECKED FOR A NON-ZERO -;RESULT. IF C(AC)=0, THE TEST FAILS. - -A5200: MOVE [XWD -1,0] ;LOAD E OF MOVS WITH A NON-ZERO NUMBER - MOVS ;*MOVS SHOULD RESULT WITH C(AC) NON-ZERO - SKIPN ;SKIP HALT INSTRUCTION IF C(AC) OF MOVS IS NON-ZERO - STOP - -;********** - -;THIS TEST VERIFIES THAT THE MOVS INSTRUCTION SWAPS BITS 0 AND 188 OF E -;AND STORES THEM IN THE AC UNLESS AR BIT 0 IS S-A-0. FIRST, A WORD -;WITH BIT 0 SET TO A ONE AND BIT 18 CLEARED IS LOADED INTO E. THEN, MOVS -;IS EXECUTED. THE AC IS THEN CHECKED FOR A 0 IN BIT 0, WHICH IS THE -;CORRECT RESULT. - -A5300: MOVE [XWD -1,0] ;LOAD E OF MOVS WITH 777777000000 - MOVS ;*MOVS SHOULD RESULT WITH AC BIT 0 EQUAL TO 0 - SKIPG ;SKIP HALT INSTRUCTION IF BIT 0 OF AC IS 0 - STOP - -;MOVSX: AR SWAP [ARMB], AR LT AR RT A [ARMB], AR LT AR RT B [ARMB], -;AR RT AR LT A [ARMB], AR RT AR LT B [ARMB], ET2 A F/F [E], IR MOVSX [IR1], -;IR MOV(E,S)X [IR1] - -;********** - -;THIS TEST VERIFIES THAT THE MOVS INSTRUCTION SWAPS BITS 0 AND 18 OF E AND -;STORES THEM IN THE AC UNLESS AR BIT 0 IS S-A-1. FIRST, A WORD WITH BIT 0 -;SET TO A ONE AND BIT 18 CLEARED IS LOADED INTO E. THEN, MOVS IS EXECUTED. -;THE AC IS CHECKED FOR A ZERO IN BIT ZERO, WHICH IS THE CORRECT RESULT. - -A5400: MOVE [XWD 0,-1] ;LOAD E OF MOVS WITH 777777 - MOVS ;*MOVS SHOULD RESULT WITH BIT 0 OF THE AC SET - SKIPL ;PASS IF AC BIT 0 IS SET - STOP - -;********** -SN=5500 - ZZ=0 - -A5500: REPEAT ^D18, -<;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, -;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. -;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES -;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT -;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. -SN=SN+1 - ZZ=ZZ+ZZ - IFE ZZ, - MOVE [0] ;CLEAR AC - MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - STOP - -;********** -> -SN=5600 - -A5600: REPEAT ^D18, -<;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL -;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS -;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS -;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT -;HALF OF THE AC IS TESTED WITH A 1. - -SN=SN+1 - ZZ=ZZ+ZZ - MOVE [0] ;CLEAR AC - MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC - SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. - STOP - -;********** -> -SUBTTL TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) - -;THIS TEST VERIFIES THAT SETM LOADS AC FROM E. THE AC IS FIRST SET -;TO ZERO; THEN, SETM IS EXECUTED WITH ALL ONES IN E. BIT 0 OF THE AC -;IS THEN CHECKED FOR A 1. - -A5700: MOVE [0] ;PRELOAD AC WITH ALL ZEROS - SETM [-1] ;*SETM SHOULD LOAD AC WITH ALL ONES - SKIPL ;PASS TEST IF AC BIT 0 IS A ONE - STOP -;FCE [F1], IR BOOLE [IR1], IRXX(0,5,12,17) [IR2] - -;********** - -;THIS TEST VERIFIES THAT SETM LOADS AC FROM E. THE AC IS FIRST SET TO -;ALL ONES; THEN, SETM IS EXECUTED WITH ALL ZEROS IN E. THE AC IS CHECKED -;FOR ALL ZEROS - -A6000: MOVE [-1] ;PRESET AC TO ALL ONES - SETM [0] ;*SETM SHOULD LOAD AC WITH ALL ONES - SKIPE ;PASSES TEST IF C(AC) = 0 - STOP - -;AD AR + EN [ADAP], AD AR + EN C[ADAP], -;F CYC ACT EN A[F1], IR BOOLE AD A +F[IR2], -;IR BOOLE [IR1], IRXX(1-3,6,11,15,16) [IR2] - -;********** - -;THIS TEST VERIFIES THAT SETZ LOADS TH AC WITH ALL ZEROS. FIRST, A WORD -;OF ALL ZEROS IS LOADED INTO THE AC VIA A MOVE INSTC. THEN, SETZ IS -;EXECUTED. THE AC IS CHECKED FOR ALL ZEROS. -;IF ANY BITS IN THE AC ARE SET, THE TEST FAILS. - -A6100: MOVE [0] ;RESET AC TO ALL ZEROS - SETZ ;*SETZ SHOULD CLEAR THE AC - SKIPE ;PASS TEST IF C(AC) = 0 - STOP - -;AD MASK GEN EN [ADC1], AD MASK GEN F/F'S [ADC1] -;AD MASK EN B; F CYC ACT EN B[F1]; IRXX00 [IR1]; -;IR BOOLE [IR1] - -;********** -;THIS TEST VERIFIES THAT SETZ LOADS THE AC WITH ALL ZEROS. FIRST, -;THE AC IS SET TO ALL ONES; THEN, SETZ IS EXECUTED. THE AC IS THEN -;CHECKED FOR ALL ZEROS. IF ANY BITS IN THE AC ARE SET, THE TEST FAILS. - -A6200: MOVE [-1] ;PRESET AC TO ALL ONES - SETZ . ;*SETZ SHOULD CLEAR THE AC - SKIPE ;PASS TEST IF C(AC) = 0 - STOP - -;AR AD EN [ARMA], AR AD ET2 EN [ARMA], IR BOOLE [IR] - -;********** - -;THIS TEST VERIFIES THAT THE AND INSTRUCTION OPERATING ON AN AC -;CONTAINING ALL ZEROS AND AN E CONTAINING ALL ZEROS RESULTS IN AN AC -;OF ALL ZEROS. THE AC AND E ARE THE SAME IN THIS TEST. -;AC, E ARE LOADED WITH ZEROS; THEN, AND IS EXECUTED. THE AC IS THEN -;CHECKED FOR ALL ZEROS. IF ANY BITS IN THE AC ARE SET BY THE AND INSTRUCTION, -;THE TEST FAILS. - - -A6300: MOVE [0] ;PRESET AC, E TO ALL ZEROS - AND ;*AND SHOULD RESULT IN C(AC) = 0 - SKIPE ;PASS TEST IF C(AC) = 0 - STOP - -;********** -SN=6400 - ZZ=0 - -A6400: REPEAT ^D36, -<;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION -;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH -;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X -;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. -;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, -;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS -;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. - -SN=SN+1 - ZZ=ZZ+ZZ - IFE ZZ, - SETZ ;PRESET E TO ALL ZEROS - MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X - ;WHERE X VARIES FROM 0 THRU 35 - AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 - SKIPE 1 ;FAIL IF C(AC) NON-ZERO - STOP - SKIPE 0 ;FAIL IF C(0) IS NON-ZERO - STOP -;********** -> -SN=6500 - ZZ=0 - -A6500: REPEAT ^D36, -<;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF -;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE -;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS -;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED -;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. -SN=SN+1 - ZZ=ZZ+ZZ - IFE ZZ, - MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT - AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT - ;POSITION WITH ITSELF SHOULD RESULT WITH - ;C(AC) NONZERO - SKIPN ;PASS TEST IF C(AC) NONZERO - STOP - -;********** -> -;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE -;C(AC)=0 AND C(E)=0 AND E OUTSIDE OF THE AC RANGE IS ALL ZEROS IN THE AC. -;FIRST, THE AC IS CLEARED; THEN, THE C(AC) IS ANDED WITH C(E) WHEN -;E GREATER THAN 20 AND C(E)=0. THE RESULT SHOULD BE C(AC)=0. -;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. - -A6600: MOVE [0] ;PRESET AC TO ALL ZEROS - AND [0] ;*AND OF TWO WORDS OF ALL ZEROS - ;SHOULD RESULT IN C(AC)=0 - SKIPE ;PASS TEST IF C(AC)=0 - STOP - -;********** - -;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(AC)=0 -;AND C(E) IS ALL ONES IS AN AC CONTAINING ALL ZEROS. FIRST, THE AC IS -;CLEARED; THEN THE C(AC) IS ANDED WITH AN E CONTAINING ALL ONES, WHERE -;E IS BEYOND THE AC RANGE. THE RESULT SHOULD BE C(AC)=0. -;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. - -A6700: MOVE [0] ;PRESET AC TO ALL ZEROS - AND [-1] ;*AND OF TWO WORDS WHERE C(AC)=0 SHOULD RESULT IN C(AC)=0 - SKIPE ;PASS TEST IF C(AC)=0 - STOP - -;AD FM+EN [ADFP],AD FM+EN A [ADFP], -;F CYC ACT EN C [F1],IR BOOLE AD FM+F [IR2], -;IR BOOLE [IR1],IRXX(1,4,5,11,13,16) [IR2] - -;********** -;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(E)=0 -;AND C(AC) IS ALL ONES IS AN AC CONTAINING ALL ZEROS. FIRST, THE -;AC IS SET TO ALL ONES; THEN, THE AC IS ANDED WITH AN E CONTAINING ALL -;ZEROS, WHERE E IS BEYOND THE AC RANGE. THE RESULT SHOULD BE C(AC)=0. -;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. - -A7000: MOVE [-1] ;PRESET AC TO ALL ONES - AND [0] ;*AND OF TWO WORDS WHERE C(E)=0 SHOULD RESULT IN C(AC)=0 - SKIPE ;PASS TEST IF C(AC)=0 - STOP - -;********** - -;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(E) IS -;ALL ONES AND C(AC) IS ALL ONES IS AN AC CONTAINING ALL ONES. FIRST, THE -;AC IS SET TO ALL ONES; THEN, C(AC) IS ANDED WITH AN E CONTAINING ALL -;ONES. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. -;IF C(AC) IS ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. - -A7100: MOVE [-1] ;PRELOAD AC WITH ALL ONES - AND [-1] ;*AND OF TWO WORDS OF ALL ONES SHOULD - ;RESULT IN C(AC)=ALL ONES - SKIPN ;PASS TEST IF C(AC) IS NON ZERO - STOP - -;********** - -;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE -;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHERE CONTENTS IS NON-ZERO. -;FIRST, THE AC IS CLEARED, THEN, XOR IS EXECUTED WHERE C(E) IS NON-ZERO. -;THE AC IS THEN CHECKED FOR NON-ZERO CONTENTS. -A7200: MOVE [0] ;CLEAR AC - XOR [707070707070] ;*XOR WITH C(AC)=0 AND C(E)=7070707070 SHOULD - ;RESTULT IN C(AC)=707070707070 - SKIPN ;PASS TEST IF C(AC) NON-ZERO - STOP - -;********** -SN=7300 - ZZ=0 - -A7300: REPEAT ^D36, -<;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE -;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS -;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED -;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. -;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. -SN=SN+1 - ZZ=ZZ+ZZ - IFE ZZ, - MOVE [0] ;CLEAR AC - XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD - ;RESULT IN C(AC) NONZERO - SKIPN ;PASS TEST IF C(AC) NON-ZERO - STOP - -;********** -> -SN=7400 - ZZ=0 - -A7400: REPEAT ^D36, -<;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE -;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS -;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE -;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E -;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. -SN=SN+1 - ZZ=ZZ+ZZ - IFE ZZ, - MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET - XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD - ;RESULT IN C(AC) NON-ZERO - SKIPN ;PASS TEST IF C(AC) NON-ZERO - STOP - -;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], -;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], -;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], -;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] - -;********** -> -SN=7500 - ZZ=0 - -A7500: REPEAT ^D36, -<;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION -;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, -;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT -;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME -;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST -;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY -;INDICATE AN ILLEGAL CARRY GENERATION. -SN=SN+1 - ZZ=ZZ+ZZ - IFE ZZ, - MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET - XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 - SKIPE ;PASS TEST IF C(AC)=0 - STOP - -;********** -> -;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION WHERE -;C(AC)=C(E)=0 IS AN AC CONTAINING ALL ZEROS; FIRST THE AC IS CLEARED; THEN -;XOR IS EXECUTED WITH C(E)=0. THE RESULT IN THE AC IS CHECKED FOR ALL ZEROS - -A7600: MOVE [0] ;INITIALIZE AC TO ALL ZEROS - XOR [0] ;*XOR WITH C(AC)=C(E)=0 SHOULD RESULT INC(AC)=0 - SKIPE ;PASS TEST IF C(AC)=0 - STOP - -;********** - -;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE -;C(AC)=0 AND C(E) ALL ONES IS AN AC CONTAINING ALL ZEROS SINCE -;THE EQUIVALENCE FUNCTION SHOULD SET ONLY LIKE BITS. FIRST, THE AC -;SHOULD BE CLEARED; THEN, EQV IS EXECUTED WITH E CONTAINING ALL ONES. -;THE AC IS THEN CHECKED FOR ALL ZEROS - -A7700: MOVE [0] ;CLEAR THE AC - EQV [-1] ;*EQV WITH C(AC)=0 AND C(E) ALL ONES SHOULD - ;RESULT IN C(AC)=0 - SKIPE ;PASS TEST IF C(AC)=0 - STOP - -;********** -SN=10000 - ZZ=0 - -A10000: REPEAT ^D18, -<;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE -;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN -;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE -;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT -;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS -;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE -;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO -SN=SN+1 - ZZ=ZZ+ZZ+1 - IFE , - MOVE [0] ;PRESET AC TO ALL ZEROS - EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - ;RESULT IN C(AC) NON-ZERO - SKIPN ;PASS TEST IF C(AC) NON-ZERO - STOP - -;********** -> -SN=10100 - ZZ=0 - -A10100: REPEAT ^D18, -<;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE -;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN -;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE -;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT -;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS -;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE -;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO -SN=SN+1 - ZZ=ZZ+ZZ+1 - IFE , - MOVE [0] ;PRESET AC TO ALL ZEROS - EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD - ;RESULT IN C(AC) NON-ZERO - SKIPN ;PASS TEST IF C(AC) NON-ZERO - STOP - -;********** -> -;THIS TEST VERIFIES THAT THE RESULT OF AN AC CONTAINING ALL ZEROS -;EQUIVALENCED WITH AN E CONTAINING ALL ZEROS IS AN AC CONTAINING ALL -;ONES; AND FUTHERMORE, IF THIS AC CONTAINING ALL ONES IS EQUIVALANCED -;WITH AN E CONTAINING ALL ZEROS, THE FINAL RESULT IN THE AC -;SHOULD BE ALL ZEROS. FIRST, THE AC IS INITIALIZED TO ALL ZEROS, THEN, -;THIS AC IS EQUIVALENCED TWICE WITH AN E CONTAINING ALL ZEROS. THE AC IS -;THEN CHECKED FOR ALL ZEROS - -A10200: MOVE [0] ;CLEAR THE AC - EQV [0] ;*EQV SHOULD RESULT IN C(AC)=ALL ONES - EQV [0] ;*EQV SHOULD RESULT IN C(AC)=0 - SKIPE ;PASS TEST IF C(AC)=0 - STOP - -;********** - -;THIS TEST VERIFIES THAT THE RESULT OF AN AC CONTAINING ALL ONES -;EQUIVALENCED WITH AN E CONTAINING ALL ONES IS AN AC CONTAINING ALL ONES; -;AND FUTHERMORE, IF THIS AC CONTAINING ALL ONES ISEQUIVALENCED WITH AN E -;CONTAINING ALL ZEROS, THE FINAL RESULT IN THE AC SHOULD BE ALL ZEROS. -;FIRST, THE AC IS INITIALIZED TO ALL ONES; THEN, THIS AC IS -;EQUIVALENCED WITH AN E OF ALL ONES. NEXT, THIS SAME AC IS EQUIVALENCED -;WITH AN E OF ALL ZEROS. THE AC IS THEN CHECKED FOR ALL ZEROS. - -A10300: MOVE [-1] ;SET C(AC) TO ALL ONES - EQV [-1] ;*EQV SHOULD RESULT IN C(AC) OF ALL ONES - EQV [0] ;*EQV SHOULD RESULT IN C(AC)=0 - SKIPE ;PASS TEST IF C(AC)=0 - STOP - -;********** -SN=13000 - ZZ=0 - -A13000: REPEAT ^D36, -<;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. -;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN -;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). -;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD -;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, -;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. -;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO -;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. -SN=SN+1 - ZZ=ZZ+ZZ - IFE ZZ, - MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT - AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) - EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES - EQV [0] ;RESULTS IN C(AC)=0 - SKIPE ;PASS TEST IF C(AC)=0 - STOP - -;********** -> -ENDXX: JRST BEGEND ;LOOP PROGRAM +ORIGINAL RELEASE: 16-MAR-72 +************************************************************************ ``` +DAKAA.MAC +--------- + +{% highlight text %} +{% include_relative DAKAA.MAC.txt %} +{% endhighlight %} + +DAKAA.LST +--------- + +{% highlight text %} +{% include_relative DAKAA.LST.txt %} +{% endhighlight %} + DAKAA.SEQ --------- -To view the contents of **DAKAA.SEQ** (a combination of [DAKAA.TXT](#dakaatxt), a MACRO-10 assembly listing, and run data), -click [here](DAKAA.SEQ.txt). +To view the contents of **DAKAA.SEQ**, the source of all the above information, click +[here](http://archive.pcjs.org/apps/pdp10/tapes/diags/klad/dakaa/DAKAA.SEQ.txt). diff --git a/apps/pdp10/tapes/diags/klad/dakaa/TEST.MAC b/apps/pdp10/tapes/diags/klad/dakaa/TEST.MAC.txt similarity index 100% rename from apps/pdp10/tapes/diags/klad/dakaa/TEST.MAC rename to apps/pdp10/tapes/diags/klad/dakaa/TEST.MAC.txt diff --git a/apps/pdp10/tapes/diags/klad/dakad/DAKAD.LST.txt b/apps/pdp10/tapes/diags/klad/dakad/DAKAD.LST.txt new file mode 100644 index 000000000..283dfbeec --- /dev/null +++ b/apps/pdp10/tapes/diags/klad/dakad/DAKAD.LST.txt @@ -0,0 +1,7993 @@ +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 1 +DAKADT MAC 19-JAN-77 13:37 DIAGNOSTIC PARAMETERS SEQ 0007 + + 1 ;DAKAD + 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 DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 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 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 2 +DAKADT MAC 19-JAN-77 13:37 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 444253 414400 PAREA3=SIXBIT/DBKAD/ + 62 645560 000000 PAREA4=SIXBIT/TMP/ + 63 000000 PAREA5=0 + 64 000000 PAREA6=0 + 65 001000 ITERAT==1000 + 66 000001 PGMEND=1 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 1 +PARAM KLM 18-JAN-77 11:38 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977 SEQ 0009 + + 67 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977 + 68 + 69 DEFINE S,<;*********************************************************************> + 70 + 71 S^;*********************************************************************^ + 72 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE) + 73 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE + 74 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS + 75 S^;*********************************************************************^ + 76 + 77 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION + 78 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS + 79 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE + 80 + 81 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) + 82 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) + 83 010000 DING== 010000 ;RING BELL ON ERROR + 84 + 85 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR + 86 002000 ERSTOP==002000 ;HALT ON TEST ERROR + 87 001000 PALERS==001000 ;PRINT ALL ERRORS + 88 + 89 000400 RELIAB==000400 ;RELIABILITY MODE + 90 000200 TXTINH==000200 ;INHIBIT ERROR TEXT + 91 000100 INHPAG==000100 ;INHIBIT PAGING + 92 + 93 000040 MODDVC==000040 ;MODIFY DEVICE CODE + 94 000020 INHCSH==000020 ;INHIBIT CACHE + 95 000010 OPRSEL==000010 ;OPERATOR SELECTION + 96 + 97 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH + 98 + 99 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER + 100 + 101 ;SWITCH 17 RESERVED !!! +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 2 +PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0010 + + 102 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 + 103 + 104 S^;*********************************************************************^ + 105 ;*SPECIAL SUBPROGRAM LINKAGES + 106 S^;*********************************************************************^ + 107 + 108 027772 FSELNK= 27772 ;FILE SELECT LINK + 109 027773 FRDLNK= 27773 ;FILE READ LINK + 110 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS + 111 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS + 112 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS + 113 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS + 114 + 115 S^;*********************************************************************^ + 116 ;*SPECIAL SUBROUTINE FATAL HALTS + 117 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE + 118 S^;*********************************************************************^ + 119 + 120 ;ADDRESS TAG REASON + 121 ;--------------------- + 122 + 123 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION + 124 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR + 125 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR + 126 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT + 127 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL + 128 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET + 129 ; 1016 CPIERR ;CPU INITIALIZATION ERROR + 130 ; 1017 EOPERR ;END OF PROGRAM ERROR + 131 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT + 132 + 133 S^;*********************************************************************^ +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 3 +PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0011 + + 134 S^;*********************************************************************^ + 135 ;OPERATOR DEFINITIONS (NON-UUO'S) + 136 S^;*********************************************************************^ + 137 + 138 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL + 139 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN + 140 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST + 141 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST + 142 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S + 143 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT + 144 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT + 145 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT + 146 + 147 S^;*********************************************************************^ + 148 ;*SUBROUTINE INITIALIZATION CALL + 149 S^;*********************************************************************^ + 150 + 151 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION + 152 + 153 S^;*********************************************************************^ + 154 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). + 155 S^;*********************************************************************^ + 156 + 157 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT + 158 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT + 159 + 160 S^;*********************************************************************^ + 161 ;*TERMINAL INPUT UUO'S + 162 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE + 163 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. + 164 S^;*********************************************************************^ + 165 + 166 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER + 167 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y + 168 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N + 169 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD + 170 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD + 171 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD + 172 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK + 173 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK + 174 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD + 175 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 4 +PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0012 + + 176 ;*TERMINAL OUTPUT UUO'S. + 177 + 178 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD + 179 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED + 180 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE + 181 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED + 182 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE + 183 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED + 184 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE + 185 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED + 186 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE + 187 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED + 188 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE + 189 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED + 190 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER + 191 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED + 192 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT + 193 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED + 194 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS + 195 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED + 196 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS + 197 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED + 198 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS + 199 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED + 200 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS + 201 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED + 202 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS + 203 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED + 204 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS + 205 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED + 206 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS + 207 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. + 208 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS + 209 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED + 210 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL + 211 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED + 212 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 + 213 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED + 214 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S + 215 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED + 216 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S + 217 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED + 218 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S + 219 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED + 220 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME + 221 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD + 222 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED + 223 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE + 224 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD + 225 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED + 226 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED + 227 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED + 228 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE + 229 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED + 230 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 4-1 +PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0013 + + 231 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED + 232 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL + 233 + 234 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE + 235 + 236 DEFINE PMSG (ARG),< + 237 PSIXM [SIXBIT\ARG'_\]> + 238 + 239 DEFINE PMSGF (ARG),< + 240 PSIXMF [SIXBIT\ARG'_\]> + 241 + 242 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING + 243 ;* CONSERVES CORE OVER ASCIZ + 244 + 245 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> + 246 + 247 ;*CONSOLE SWITCH INPUT UUO. + 248 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF + 249 ;* USER MODE. + 250 + 251 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES + 252 + 253 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION + 254 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. + 255 + 256 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK + 257 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER + 258 + 259 ;*KL10 ONLY CACHE OPERATION UUO'S + 260 + 261 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE + 262 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH + 263 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5 +PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0014 + + 264 ;*END OF PASS/PROGRAM UUOS + 265 + 266 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, + 267 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. + 268 + 269 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS + 270 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO + 271 + 272 ;*MEMORY MANAGEMENT UUO'S + 273 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, + 274 ;*ADDRESS CONVERSION, ETC... + 275 + 276 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY + 277 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY + 278 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT + 279 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT + 280 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK + 281 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP + 282 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP + 283 + 284 ;*DEVICE CODE MODIFICATION UUO + 285 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO + 286 ;*IOT'S TO A DIFFERENT DEVICE CODE. + 287 + 288 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER + 289 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM + 290 + 291 030000 IFNDEF MODDVL, + 292 030000 IFNDEF MODDVU, + 293 + 294 ;*"DIAMON" FILE SELECTION AND READ UUOS + 295 + 296 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION + 297 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA + 298 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA + 299 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA + 300 + 301 ;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES + 302 + 303 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE + 304 + 305 XLIST + 306 IFNDEF KLOLD, + 332 + 333 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP + 334 + 335 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< + 336 SALL + 337 ERUUO FORMAT,[T,,[SIXBIT\F'_\] + 338 CORECT,,ACTUAL + 339 [SIXBIT\D'_\],,ERR] + 340 XALL > + 341 + 342 >;END OF KLOLD CONDITIONAL + 343 + 344 XLIST + 345 LIST +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 1 +FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0016 + + 346 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 + 347 + 348 030000 LOC 30000 + 349 + 350 S^;*********************************************************************^ + 351 ;*PROGRAM STARTING ADDRESSES + 352 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS + 353 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE + 354 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER + 355 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. + 356 S^;*********************************************************************^ + 357 + 358 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START + 359 030001 254 00 0 00 030712 $START: JRST START ;MODE CHECK STARTING ADDRESS + 360 + 361 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START + 362 + 363 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START + 364 + 365 030004 254 00 0 00 030712 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START + 366 + 367 030005 254 00 0 00 030712 PFSTRT: JRST SADR2 ;POWER FAIL RESTART + 368 + 369 030006 254 00 0 00 030712 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) + 370 + 371 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" + 372 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START + 373 + 374 030010 254 00 0 00 030741 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) + 375 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE + 376 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE + 377 + 378 030013 254000 030712 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS + 379 030014 254000 030712 START2: SADR8 ; " + 380 030015 254000 030712 START3: SADR9 ; " + 381 030016 254000 030712 START4: SADR10 ; " + 382 030017 254000 030712 START5: SADR11 ; " +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 2 +FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0017 + + 383 S^;*********************************************************************^ + 384 ;*PROGRAM FIXED PARAMETER AREA + 385 S^;*********************************************************************^ + 386 + 387 030020 444253 414400 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME + 388 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION + 389 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER + 390 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES + 391 030024 000000 001000 ITRCNT: ITERAT ;PROGRAM ITERATIONS + 392 030025 000000 030725 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME + 393 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL + 394 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT + 395 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT + 396 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED + 397 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED + 398 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE + 399 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS + 400 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER + 401 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER + 402 + 403 S^;*********************************************************************^ + 404 ;*PROGRAM VARIABLE PARAMETER AREA + 405 S^;*********************************************************************^ + 406 + 407 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG + 408 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 + 409 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 + 410 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG + 411 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG + 412 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 + 413 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG + 414 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS + 415 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT + 416 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG + 417 030051 000000 000000 TESTPC: 0 ;SUBTEST PC + 418 030052 000000 000000 ERRPC: 0 ;ERROR PC + 419 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS + 420 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME + 421 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE + 422 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 3 +FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0018 + + 423 S^;*********************************************************************^ + 424 ;*SPECIAL PROGRAM DISPATCH ADDRESSES + 425 S^;*********************************************************************^ + 426 + 427 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS + 428 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM + 429 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN + 430 030062 254000 030712 CNTLC: SADR5 ;CONTROL C XFER ADDRESS + 431 030063 254000 030712 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS + 432 030064 CPOPJ1: ;SKIP RETURN + 433 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO + 434 030065 CPOPJ: ;NON-SKIP REGULAR RETURN + 435 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN + 436 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE + 437 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE + 438 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) + 439 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE + 440 030072 255 00 0 00 000000 $ITRX1: JFCL ; " + 441 030073 255 00 0 00 000000 $USRHL: JFCL ; " + 442 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE + 443 030075 255 00 0 00 000000 $RSRTY: JFCL ; " + 444 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) + 445 030077 255 00 0 00 000000 RESRT2: JFCL ; " + 446 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE + 447 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE + 448 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT + 449 + 450 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) + 451 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT + 452 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) + 453 + 454 S^;*********************************************************************^ + 455 ;*PROCESSOR CONTROL STORAGE + 456 S^;*********************************************************************^ + 457 + 458 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 + 459 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI + 460 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR + 461 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) + 462 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) + 463 + 464 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO + 465 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO + 466 + 467 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS + 468 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG + 469 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG + 470 030120 000000 000000 %COREC: 0 ; " CORRECT DATA + 471 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG + 472 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA + 473 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 4 +FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0019 + + 474 S^;*********************************************************************^ + 475 ;*UUO DISPATCH TABLE + 476 S^;*********************************************************************^ + 477 XLIST + 478 LIST + 479 030124 030070 030070 UUODIS: LUUO1,,$UUOER + 480 030125 030070 030070 LUUO3,,LUUO2 + 481 030126 030070 030070 LUUO5,,LUUO4 + 482 030127 030070 030070 LUUO7,,LUUO6 + 483 030130 030070 030070 LUUO11,,LUUO10 + 484 030131 030070 030070 LUUO13,,LUUO12 + 485 030132 030070 030070 LUUO15,,LUUO14 + 486 030133 030070 030070 LUUO17,,LUUO16 + 487 030134 030070 030070 LUUO21,,LUUO20 + 488 030135 030070 030070 LUUO23,,LUUO22 + 489 030136 030070 030070 LUUO25,,LUUO24 + 490 030137 030070 030070 LUUO27,,LUUO26 + 491 030140 030070 030070 LUUO31,,LUUO30 + 492 030141 030070 030070 LUUO33,,LUUO32 + 493 + 494 S^;*********************************************************************^ + 495 ;*MEMORY MANAGMENT STORAGE + 496 S^;*********************************************************************^ + 497 + 498 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT + 499 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING + 500 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) + 501 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY + 502 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE + 503 + 504 S^;*********************************************************************^ + 505 ;*PRINT CONTROL STORAGE + 506 S^;*********************************************************************^ + 507 + 508 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE + 509 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE + 510 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG + 511 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS + 512 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL + 513 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME + 514 030225 000000 000000 $TWCNT: 0 ;TIME WAITED + 515 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG + 516 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG + 517 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE + 518 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR + 519 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR + 520 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER + 521 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG + 522 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG + 523 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG + 524 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG + 525 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS + 526 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5 +FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0020 + + 527 S^;*********************************************************************^ + 528 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED + 529 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: + 530 ;* MOVEI NAME + 531 ;* PNTA ;OR PNTAF + 532 S^;*********************************************************************^ + 533 + 534 030242 CRLF: ASCII/ + 535 030242 015 012 000 000 000 / + 536 030243 CRLF2: ASCII/ + 537 + 538 030243 015 012 015 012 000 / + 539 030244 054 000 000 000 000 COMMA: ASCII/,/ + 540 030245 056 000 000 000 000 PERIOD: ASCII/./ + 541 030246 040 000 000 000 000 SPACE: ASCII/ / + 542 030247 011 000 000 000 000 TAB: ASCII/ / + 543 030250 MINUS: + 544 030250 055 000 000 000 000 HYPEN: ASCII/-/ + 545 030251 053 000 000 000 000 PLUS: ASCII/+/ + 546 030252 052 000 000 000 000 AST: ASCII/*/ + 547 030253 100 000 000 000 000 ATSIN: ASCII/@/ + 548 030254 050 000 000 000 000 LFP: ASCII/(/ + 549 030255 051 000 000 000 000 RTP: ASCII/)/ + 550 030256 007 0000000000 BELL: BYTE (7) 007 + 551 030257 077 000 000 000 000 QUEST: ASCII/?/ + 552 030260 057 000 000 000 000 SLASH: ASCII!/! + 553 030261 044 000 000 000 000 DOLLAR: ASCII/$/ + 554 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX + 555 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR + 556 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT + 557 + 558 S^;*********************************************************************^ + 559 ;*USER MODE OUTPUT FILE INFORMATION + 560 S^;*********************************************************************^ + 561 + 562 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER + 563 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME + 564 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION + 565 030272 BLOCK 2 + 566 + 567 S^;*********************************************************************^ + 568 ;*DISK UPDATE MODE FILE INFORMATION + 569 S^;*********************************************************************^ + 570 + 571 030274 $IBUF: BLOCK 3 + 572 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ + 573 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ + 574 030301 BLOCK 2 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6 +FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0021 + + 575 S^;*********************************************************************^ + 576 ;*PUSHDOWN LIST CONTROL INFORMATION + 577 S^;*********************************************************************^ + 578 + 579 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST + 580 030304 PLISTS: BLOCK 200 + 581 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST + 582 + 583 S^;*********************************************************************^ + 584 ;*POWER LINE CLOCK FREQUENCY FLAG + 585 S^;*********************************************************************^ + 586 + 587 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE + 588 + 589 S^;*********************************************************************^ + 590 ;*KL10 CACHE CONTROL FLAGS + 591 S^;*********************************************************************^ + 592 + 593 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 + 594 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 + 595 + 596 S^;*********************************************************************^ + 597 ;*NUMBER INPUT DIGIT FLAG + 598 S^;*********************************************************************^ + 599 + 600 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED + 601 + 602 S^;*********************************************************************^ + 603 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION + 604 S^;*********************************************************************^ + 605 + 606 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION + 607 + 608 S^;*********************************************************************^ + 609 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS + 610 S^;*********************************************************************^ + 611 + 612 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO + 613 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO + 614 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO + 615 + 616 S^;*********************************************************************^ + 617 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION + 618 S^;*********************************************************************^ + 619 + 620 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 7 +FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0022 + + 621 S^;*********************************************************************^ + 622 ;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD + 623 S^;*********************************************************************^ + 624 + 625 030516 000000 000000 KLTYP: 0 + 626 + 627 S^;*********************************************************************^ + 628 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION + 629 S^;*********************************************************************^ + 630 + 631 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER + 632 + 633 S^;*********************************************************************^ + 634 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION + 635 S^;*********************************************************************^ + 636 + 637 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR + 638 + 639 S^;*********************************************************************^ + 640 ;*"SWITCH" CALL USAGE CONTROL + 641 S^;*********************************************************************^ + 642 + 643 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES + 644 + 645 S^;*********************************************************************^ + 646 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS + 647 S^;*********************************************************************^ + 648 + 649 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL + 650 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL + 651 + 652 S^;*********************************************************************^ + 653 ;*SPECIAL FUTURE EXPANSION ROOM + 654 ;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF + 655 ;*THIS BLOCK STATEMENT ACCORDINGLY. THIS MUST BE DONE + 656 ;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE. + 657 S^;*********************************************************************^ + 658 + 659 030524 BLOCK 53 ;HOPEFULLY THIS IS ENOUGH FOREVER + 660 + 661 S^;*********************************************************************^ + 662 ;*END OF FIXED STORAGE + 663 S^;*********************************************************************^ + 664 + 665 030577 $ENDFX=&<777700>-1 + 666 030577 LOC $ENDFX + 667 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 1 +SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0023 + + 668 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 + 669 + 670 ;NEW DEFINITIONS USED BY THE KL10 SUBROUTINE PACKAGE + 671 + 672 000000 AC0= 0 + 673 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS + 674 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS + 675 020000 DIAMON= 20000 ;PDP-10 DIAMON LOADER START ADDRESS + 676 020000 DONG11= 1B22 ;11 DOORBELL (FROM THE 10) + 677 + 678 ;DTE20 DEVICE CODES + 679 + 680 000200 DTE== 200 ;DTE0 + 681 000204 DTE0== 204 + 682 000204 DTE1== 204 + 683 000210 DTE2== 210 + 684 000214 DTE3== 214 + 685 + 686 ;KL10 EPT COMMUNICATION AREA + 687 + 688 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS + 689 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS + 690 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS + 691 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS + 692 + 693 000444 $DTFLG= 444 ;DTE20 OPERATION COMPLETE FLAG + 694 000445 $DTCLK= 445 ;DTE20 CLOCK INTERRUPT FLAG + 695 000446 $DTCI= 446 ;DTE20 CLOCK INTERRUPT INSTRUCTION + 696 000447 $DTT11= 447 ;DTE20 10 TO 11 ARGUMENT + 697 000450 $DTF11= 450 ;DTE20 11 TO 10 ARGUMENT + 698 000451 $DTCMD= 451 ;DTE20 TO 11 COMMAND WORD + 699 000452 $DTSEQ= 452 ;DTE20 OPERATION SEQUENCE NUMBER + 700 000453 $DTOPR= 453 ;DTE20 OPERATIONAL DTE # + 701 000454 $DTCHR= 454 ;DTE20 LAST TYPED CHARACTER + 702 000455 $DTMTD= 455 ;DTE20 MONITOR TTY OUTPUT COMPLETE FLAG + 703 000456 $DTMTI= 456 ;DTE20 MONITOR TTY INPUT FLAG + 704 + 705 000457 $DTSWR= 457 ;DTE20 CONSOLE SWITCH REGISTER +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 2 +SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0024 + + 706 ;SPECIAL "FIXED" REASSIGNMENTS + 707 + 708 030600 $$LOC=. ;SAVE CURRENT LOCATION + 709 + 710 030000 LOC 30000 + 711 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START + 712 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS + 713 + 714 000440 LOC 440 + 715 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD" + 716 000443 LOC 443 + 717 000443 254 00 0 00 030636 $STM: JRST $SPEC ;SIMPLE RUN CONTROL + 718 + 719 030057 LOC 30057 + 720 030057 254 00 0 00 030641 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND" + 721 + 722 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP + 723 + 724 000420 LOC 420 + 725 000420 254 04 0 00 000420 $$420: HALT . ;KI10 PAGE FAIL + 726 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW + 727 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW + 728 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3 + 729 000424 000000 000000 $$424: 0 ;MMUO + 730 000425 000000 000000 $$425: 0 ;MMUO PC + 731 000426 000000 000000 $$426: 0 ;KI10-PAGE FAIL, KL10-PROCESS CONTEXT + 732 000427 254 04 0 00 000427 $$427: HALT . + 733 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S + 734 000431 000000 000427 $$431: 427 + 735 000432 000000 000427 $$432: 427 + 736 000433 000000 000427 $$433: 427 + 737 000434 000000 000427 $$434: 427 + 738 000435 000000 000427 $$435: 427 + 739 000436 000000 000427 $$436: 427 + 740 000437 000000 000427 $$437: 427 + 741 + 742 000500 LOC 500 + 743 000500 000000 000000 $$500: 0 ;KL10 PAGE FAIL WORD + 744 000501 000000 000000 $$501: 0 ;KL10 PAGE FAIL PC + 745 000502 000000 000503 $$502: 503 ;KL10 PAGE FAIL NEW PC + 746 000503 254 04 0 00 000503 $$503: HALT . +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 3 +SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0025 + + 747 030600 LOC $$LOC ;RESET CURRENT LOCATION + 748 + 749 ;SPECIAL STARTUP SEQUENCE + 750 + 751 030600 402 00 0 00 030037 $$START:SETZM USER + 752 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ? + 753 030602 603 00 0 00 010000 TLNE 0,USERF + 754 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD + 755 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ? + 756 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC + 757 030606 332 00 0 00 030037 SKIPE USER + 758 030607 254 00 0 00 030712 JRST START ;USER MODE, DON'T NEED CPU TYPE + 759 + 760 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ? + 761 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER + 762 030612 402 00 0 00 030516 SETZM KLTYP + 763 030613 402 00 0 00 030041 SETZM KLFLG ;ASSUME KI10 + 764 030614 200 01 0 00 034442 MOVE 1,[1,,1] + 765 030615 251 01 0 00 000001 BLT 1,1 ;HOPE THIS WORKS + 766 030616 316 01 0 00 034442 CAMN 1,[1,,1] ;IF AC NE 1,,1 AFTER BLT, KL10 + 767 030617 254 00 0 00 030712 JRST START ;KI10, NO ADDITIONAL SETUP + 768 + 769 030620 7 000 20 0 00 010040 $STKL: CONO APR,10040 ;SET BBD NOT BIT + 770 030621 7 000 24 0 00 000000 CONI APR,0 + 771 030622 7 000 20 0 00 020040 CONO APR,20040 ;CLEAR BBD NOT BIT + 772 030623 606 00 0 00 000040 TRNN 0,40 ;IF SET, KL10 + 773 030624 350 00 0 00 030516 AOS KLTYP ;IF NOT, BBD + 774 030625 402 00 0 00 000444 SETZM $DTFLG + 775 030626 402 00 0 00 000445 SETZM $DTCLK + 776 030627 200 00 0 00 000453 MOVE $DTOPR ;GET DTE # + 777 030630 436 00 0 00 030670 ORM $$DTE0 ;INSERT IN DTE I/O INSTS + 778 030631 436 00 0 00 030672 ORM $$DTE1 + 779 030632 436 00 0 00 030704 ORM $$DTE2 + 780 030633 436 00 0 00 030706 ORM $$DTE3 + 781 030634 476 00 0 00 030041 SETOM KLFLG ;SET KL10 CONTROL FLAG + 782 030635 254 00 0 00 030712 JRST START + 783 + 784 030636 200 00 0 00 034443 $SPEC: MOVE [JRST STARTA] ;SIMPLE RUN CONTROL + 785 030637 202 00 0 00 030643 MOVEM $SPB1 + 786 030640 254 00 0 00 030712 JRST START +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 4 +SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0026 + + 787 ;SPECIAL "BEGEND" ROUTINE + 788 + 789 030641 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT + 790 030642 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT + 791 030643 336 00 0 00 030037 $SPB1: SKIPN USER + 792 030644 254 00 0 00 030652 JRST $SPBEX ;EXEC MODE + 793 + 794 030645 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ? + 795 030646 254 00 0 00 030741 JRST STARTA ;NO, KEEP RUNNING + 796 030647 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? + 797 030650 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR + 798 030651 254 00 1 00 030012 JRST @RETURN ;YES, RETURN TO "DIAMON" + 799 + 800 030652 332 00 0 00 030041 $SPBEX: SKIPE KLFLG + 801 030653 254 00 0 00 030660 JRST $SPBKL ;KL10 & EXEC + 802 030654 7 004 14 0 00 030024 DATAO PI,ITRCNT ;KI10 & EXEC, DISPLAY ITER COUNT + 803 030655 332 00 0 00 030024 SKIPE ITRCNT + 804 030656 254 00 0 00 030741 JRST STARTA ;NOT COMPLETED YET + 805 030657 254 00 1 00 030012 JRST @RETURN ;DONE + 806 + 807 030660 336 00 0 00 030024 $SPBKL: SKIPN ITRCNT + 808 030661 254 00 0 00 030676 JRST $SPKLD ;KL10, EXEC & COMPLETED + 809 + 810 030662 335 00 0 00 030043 SKIPGE MONCTL + 811 030663 254 00 0 00 030741 JRST STARTA ;"DIAMON" CONTROL + 812 030664 201 00 0 00 000404 MOVEI 0,404 ;NOTIFY PDP-11 OF END OF PASS + 813 030665 202 00 0 00 000451 MOVEM 0,$DTCMD + 814 030666 402 00 0 00 000444 SETZM $DTFLG + 815 030667 336 00 0 00 030516 SKIPN KLTYP + 816 030670 7 200 20 0 00 020000 $$DTE0: CONO DTE,DONG11 + 817 030671 332 00 0 00 030516 SKIPE KLTYP + 818 030672 7 200 20 0 00 010000 $$DTE1: CONO DTE,10000 + 819 030673 336 00 0 00 000444 SKIPN $DTFLG ;WAIT TILL 11 RESPONDS + 820 030674 254 00 0 00 030673 JRST .-1 + 821 030675 254 00 0 00 030741 JRST STARTA ;KEEP RUNNING + 822 + 823 ;SPECIAL KL10 COMPLETED ROUTINE + 824 + 825 030676 332 00 0 00 030044 $SPKLD: SKIPE MONTEN + 826 030677 254 00 1 00 030012 JRST @RETURN ;LOADED BY "DIAMON" + 827 + 828 030700 201 00 0 00 000403 MOVEI 0,403 ;NOTIFY PDP-11 OF COMPLETION + 829 030701 202 00 0 00 000451 MOVEM 0,$DTCMD + 830 030702 402 00 0 00 000444 SETZM $DTFLG + 831 030703 336 00 0 00 030516 SKIPN KLTYP + 832 030704 7 200 20 0 00 020000 $$DTE2: CONO DTE,DONG11 + 833 030705 332 00 0 00 030516 SKIPE KLTYP + 834 030706 7 200 20 0 00 010000 $$DTE3: CONO DTE,10000 + 835 030707 336 00 0 00 000444 SKIPN $DTFLG ;SHOULD NEVER HAPPEN + 836 030710 254 00 0 00 030707 JRST .-1 ;11 NEVER RETURNS ON END OF PROGRAM + 837 030711 254 04 0 00 030000 HALT BEGIN ;IF IT DOES, HALT. +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 1 +DAKADM MAC 19-JAN-77 13:41 DIAGNOSTIC PARAMETERS SEQ 0027 + + 838 SUBTTL DIAGNOSTIC PARAMETERS + 839 + 840 ;ACCUMULATOR ASSIGNMENTS + 841 + 842 ;CONTROL WORDS + 843 + 844 400000 AROV=400000 ;ARITHMETIC OVERFLOW + 845 200000 CRY0=200000 ;CARRY 0 + 846 100000 CRY1=100000 ;CARRY 1 + 847 040000 FOV=40000 ;FLOATING OVERFLOW + 848 020000 BIS=20000 ;BYTE INTERRUPT + 849 010000 USERF=10000 ;USER MODE FLAG + 850 004000 EXIOT=4000 ;USER PRIV I/O FLAG + 851 000100 FXU=100 ;FLOATING UNDERFLOW + 852 000040 DCK=40 ;DIVIDE CHECK + 853 + 854 + 855 ;MACROS + 856 + 857 ; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1) + 858 ; TO A (JUMPA X) TO CYCLE ON FAILING INSTRUCTION + 859 + 860 DEFINE STOP (A)< + 861 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 862 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 863 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 864 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 865 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1> + 866 + 867 ; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET REQUESTED FLAG + 868 + 869 DEFINE SFLAG (A)< + 870 MOVSI 1,A + 871 JFCL 17,.+1 ;RESET ALL FLAGS + 872 JRST 2,.+1(1) ;SET A FLAG> +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 2 +DAKADM MAC 19-JAN-77 13:41 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 030742 JRST C00 + 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 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) [DAKAD] + 889 030726 055 061 060 040 113 + 890 030727 101 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 064 + 897 030736 051 040 133 104 101 + 898 030737 113 101 104 135 015 + 899 030740 012 000 000 000 000 / + 900 + 901 ;BASIC INSTRUCTION TEST (3) + 902 ;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF + 903 ;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES + 904 ;IN THE FIELD. + 905 + 906 030741 254 00 0 00 030742 STARTA: JRST .+1 + 907 030742 C00: +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 3 +DAKADM MAC 19-JAN-77 13:41 DIAGNOSTIC SECTION SEQ 0029 + + 908 ;TESTING BEGINS HERE + 909 + 910 ;IF ANY LOADING PROBLEMS OCCUR, START PROGRAM HERE. + 911 + 912 ;NOTE: AN "*" IN THE COMMENT FIELD OF AN INSTRUCTION INDICATES THAT + 913 ; IT IS THE TESTED INSTRUCTION. + 914 + 915 SUBTTL TEST OF AC HARDWARE AND INDEX REGISTERS + 916 + 917 ;********** + 918 + 919 ;THIS TEST VERIFIES THAT AC1 IS ACCESSABLE + 920 ;IN THIS CASE, AC1 IS PRELOADED WITH 1. + 921 ;C(AC1) IS THEN CHECKED FOR A1. THIS TEST PASSES IF C(AC1)=1. + 922 ;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY + 923 + 924 030742 400 00 0 00 000000 C100: SETZ ;CLEAR AC0 + 925 030743 201 01 0 00 000001 MOVEI 1,1 ;PRELOAD AC1 WITH 1 + 926 030744 302 01 0 00 000001 CAIE 1,1 ;PASS IF C(AC1)=1 + 927 STOP^ + 928 030745 254 04 0 00 030746 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 929 030746 324 00 0 00 030747 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 930 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 931 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 932 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 933 + 934 ;********** + 935 + 936 ;THIS TEST VERIFIES THAT AC2 IS ACCESSABLE. + 937 ;IN THIS CASE, AC2 IS PRELOADED WITH 2. + 938 ;C(AC2) IS THEN CHECKED FOR 2. THIS TEST PASSES IF C(AC2)=2. + 939 ;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY + 940 + 941 030747 201 02 0 00 000002 C200: MOVEI 2,2 ;PRELOAD AC2 WITH 2 + 942 030750 302 02 0 00 000002 CAIE 2,2 ;PASS IF C(AC2)=2 + 943 STOP^ + 944 030751 254 04 0 00 030752 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 945 030752 324 00 0 00 030753 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 946 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 947 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 948 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 949 + 950 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 4 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0030 + + 951 ;THIS TEST VERIFIES THAT AC4 IS ACCESSABLE. + 952 ;IN THIS CASE, AC4 IS PRELOADED WITH 4. + 953 ;C(AC4) IS THEN CHECKED FOR 4. THIS TEST PASSES IF C(AC4)=4. + 954 ;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY + 955 + 956 030753 201 04 0 00 000004 C300: MOVEI 4,4 ;PRELOAD AC4 WITH 4 + 957 030754 302 04 0 00 000004 CAIE 4,4 ;PASS IF C(AC4)=4 + 958 STOP^ + 959 030755 254 04 0 00 030756 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 960 030756 324 00 0 00 030757 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 961 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 962 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 963 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 964 + 965 ;********** + 966 + 967 ;THIS TEST VERIFIES THAT AC10 IS ACCESSABLE. + 968 ;IN THIS CASE, AC10 IS PRELOADED WITH 10. + 969 ;C(AC10) IS THEN CHECKED FOR 10. THIS TEST PASSES IF C(AC10)=10. + 970 ;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY + 971 + 972 030757 201 10 0 00 000010 C400: MOVEI 10,10 ;PRELOAD AC10 WITH 10 + 973 030760 302 10 0 00 000010 CAIE 10,10 ;PASS IF C(AC10)=10 + 974 STOP^ + 975 030761 254 04 0 00 030762 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 976 030762 324 00 0 00 030763 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 977 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 978 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 979 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 980 + 981 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0031 + + 982 000500 SN=500 + 983 777777 777777 ZZ=-1 + 984 + 985 ;THIS TEST VERIFIES THAT ALL ACS EXIST + 986 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 987 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 988 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 989 + 990 C500: REPEAT ^D16, + 991 < ZZ=ZZ+1 + 992 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR> + 993 000000 ZZ=ZZ+1 + 994 030763 201 00 0 00 000000 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 995 000001 ZZ=ZZ+1 + 996 030764 201 01 0 00 000001 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 997 000002 ZZ=ZZ+1 + 998 030765 201 02 0 00 000002 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 999 000003 ZZ=ZZ+1 + 1000 030766 201 03 0 00 000003 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 1001 000004 ZZ=ZZ+1 + 1002 030767 201 04 0 00 000004 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 1003 000005 ZZ=ZZ+1 + 1004 030770 201 05 0 00 000005 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 1005 000006 ZZ=ZZ+1 + 1006 030771 201 06 0 00 000006 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 1007 000007 ZZ=ZZ+1 + 1008 030772 201 07 0 00 000007 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 1009 000010 ZZ=ZZ+1 + 1010 030773 201 10 0 00 000010 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 1011 000011 ZZ=ZZ+1 + 1012 030774 201 11 0 00 000011 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 1013 000012 ZZ=ZZ+1 + 1014 030775 201 12 0 00 000012 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 1015 000013 ZZ=ZZ+1 + 1016 030776 201 13 0 00 000013 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 1017 000014 ZZ=ZZ+1 + 1018 030777 201 14 0 00 000014 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 1019 000015 ZZ=ZZ+1 + 1020 031000 201 15 0 00 000015 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 1021 000016 ZZ=ZZ+1 + 1022 031001 201 16 0 00 000016 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 1023 000017 ZZ=ZZ+1 + 1024 031002 201 17 0 00 000017 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR + 1025 PAGE +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5-1 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0032 + + 1026 000020 ZZ=20 + 1027 + 1028 REPEAT ^D16,< + 1029 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1030 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1031 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1032 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1033 + 1034 SN=SN+1 + 1035 ZZ=ZZ-1 + 1036 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1037 STOP + 1038 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1039 + 1040 ;********** + 1041 > + 1042 + 1043 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1044 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1045 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1046 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1047 + 1048 000501 SN=SN+1 + 1049 000017 ZZ=ZZ-1 + 1050 031003 302 17 0 00 000017 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1051 STOP^ + 1052 031004 254 04 0 00 031005 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1053 031005 324 00 0 00 031006 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1054 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1055 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1056 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1057 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1058 + 1059 ;********** + 1060 + 1061 + 1062 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1063 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1064 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1065 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1066 + 1067 000502 SN=SN+1 + 1068 000016 ZZ=ZZ-1 + 1069 031006 302 16 0 00 000016 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1070 STOP^ + 1071 031007 254 04 0 00 031010 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1072 031010 324 00 0 00 031011 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 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1077 + 1078 ;********** + 1079 + 1080 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5-2 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0033 + + 1081 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1082 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1083 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1084 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1085 + 1086 000503 SN=SN+1 + 1087 000015 ZZ=ZZ-1 + 1088 031011 302 15 0 00 000015 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1089 STOP^ + 1090 031012 254 04 0 00 031013 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1091 031013 324 00 0 00 031014 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1092 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1093 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1094 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1095 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1096 + 1097 ;********** + 1098 + 1099 + 1100 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1101 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1102 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1103 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1104 + 1105 000504 SN=SN+1 + 1106 000014 ZZ=ZZ-1 + 1107 031014 302 14 0 00 000014 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1108 STOP^ + 1109 031015 254 04 0 00 031016 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1110 031016 324 00 0 00 031017 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1111 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1112 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1113 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1114 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1115 + 1116 ;********** + 1117 + 1118 + 1119 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1120 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1121 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1122 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1123 + 1124 000505 SN=SN+1 + 1125 000013 ZZ=ZZ-1 + 1126 031017 302 13 0 00 000013 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1127 STOP^ + 1128 031020 254 04 0 00 031021 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1129 031021 324 00 0 00 031022 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1130 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1131 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1132 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1133 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1134 + 1135 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5-3 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0034 + + 1136 + 1137 + 1138 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1139 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1140 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1141 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1142 + 1143 000506 SN=SN+1 + 1144 000012 ZZ=ZZ-1 + 1145 031022 302 12 0 00 000012 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1146 STOP^ + 1147 031023 254 04 0 00 031024 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1148 031024 324 00 0 00 031025 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1149 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1150 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1151 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1152 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1153 + 1154 ;********** + 1155 + 1156 + 1157 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1158 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1159 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1160 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1161 + 1162 000507 SN=SN+1 + 1163 000011 ZZ=ZZ-1 + 1164 031025 302 11 0 00 000011 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1165 STOP^ + 1166 031026 254 04 0 00 031027 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1167 031027 324 00 0 00 031030 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 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1172 + 1173 ;********** + 1174 + 1175 + 1176 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1177 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1178 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1179 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1180 + 1181 000510 SN=SN+1 + 1182 000010 ZZ=ZZ-1 + 1183 031030 302 10 0 00 000010 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1184 STOP^ + 1185 031031 254 04 0 00 031032 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1186 031032 324 00 0 00 031033 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1187 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1188 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1189 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1190 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5-4 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0035 + + 1191 + 1192 ;********** + 1193 + 1194 + 1195 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1196 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1197 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1198 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1199 + 1200 000511 SN=SN+1 + 1201 000007 ZZ=ZZ-1 + 1202 031033 302 07 0 00 000007 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1203 STOP^ + 1204 031034 254 04 0 00 031035 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1205 031035 324 00 0 00 031036 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1206 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1207 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1208 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1209 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1210 + 1211 ;********** + 1212 + 1213 + 1214 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1215 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1216 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1217 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1218 + 1219 000512 SN=SN+1 + 1220 000006 ZZ=ZZ-1 + 1221 031036 302 06 0 00 000006 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1222 STOP^ + 1223 031037 254 04 0 00 031040 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1224 031040 324 00 0 00 031041 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1225 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1226 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1227 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1228 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1229 + 1230 ;********** + 1231 + 1232 + 1233 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1234 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1235 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1236 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1237 + 1238 000513 SN=SN+1 + 1239 000005 ZZ=ZZ-1 + 1240 031041 302 05 0 00 000005 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1241 STOP^ + 1242 031042 254 04 0 00 031043 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1243 031043 324 00 0 00 031044 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1244 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1245 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5-5 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0036 + + 1246 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1247 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1248 + 1249 ;********** + 1250 + 1251 + 1252 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1253 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1254 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1255 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1256 + 1257 000514 SN=SN+1 + 1258 000004 ZZ=ZZ-1 + 1259 031044 302 04 0 00 000004 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1260 STOP^ + 1261 031045 254 04 0 00 031046 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1262 031046 324 00 0 00 031047 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1263 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1264 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1265 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1266 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1267 + 1268 ;********** + 1269 + 1270 + 1271 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1272 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1273 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1274 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1275 + 1276 000515 SN=SN+1 + 1277 000003 ZZ=ZZ-1 + 1278 031047 302 03 0 00 000003 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1279 STOP^ + 1280 031050 254 04 0 00 031051 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1281 031051 324 00 0 00 031052 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1282 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1283 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1284 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1285 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1286 + 1287 ;********** + 1288 + 1289 + 1290 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1291 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1292 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1293 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1294 + 1295 000516 SN=SN+1 + 1296 000002 ZZ=ZZ-1 + 1297 031052 302 02 0 00 000002 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1298 STOP^ + 1299 031053 254 04 0 00 031054 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1300 031054 324 00 0 00 031055 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5-6 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0037 + + 1301 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1302 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1303 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1304 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1305 + 1306 ;********** + 1307 + 1308 + 1309 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1310 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1311 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1312 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1313 + 1314 000517 SN=SN+1 + 1315 000001 ZZ=ZZ-1 + 1316 031055 302 01 0 00 000001 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1317 STOP^ + 1318 031056 254 04 0 00 031057 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1319 031057 324 00 0 00 031060 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1320 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1321 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1322 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1323 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1324 + 1325 ;********** + 1326 + 1327 + 1328 ;THIS TEST VERIFIES THAT ALL ACS EXIST. + 1329 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; + 1330 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1331 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS + 1332 + 1333 000520 SN=SN+1 + 1334 000000 ZZ=ZZ-1 + 1335 031060 302 00 0 00 000000 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1336 STOP^ + 1337 031061 254 04 0 00 031062 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1338 031062 324 00 0 00 031063 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1339 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1340 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1341 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1342 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS + 1343 + 1344 ;********** + 1345 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0038 + + 1346 000600 SN=600 + 1347 000000 ZZ=0 + 1348 + 1349 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1350 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1351 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS; THEN THE CONTENTS OF EACH + 1352 ;AC IS CHECKED FOR ITS ADDRESS. IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1353 + 1354 C600: REPEAT ^D15, + 1355 < ZZ=ZZ+1 + 1356 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1357 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY.> + 1358 000001 ZZ=ZZ+1 + 1359 031063 201 00 0 00 000001 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1360 031064 202 00 0 00 000001 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. + 1361 000002 ZZ=ZZ+1 + 1362 031065 201 00 0 00 000002 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1363 031066 202 00 0 00 000002 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. + 1364 000003 ZZ=ZZ+1 + 1365 031067 201 00 0 00 000003 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1366 031070 202 00 0 00 000003 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. + 1367 000004 ZZ=ZZ+1 + 1368 031071 201 00 0 00 000004 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1369 031072 202 00 0 00 000004 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. + 1370 000005 ZZ=ZZ+1 + 1371 031073 201 00 0 00 000005 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1372 031074 202 00 0 00 000005 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. + 1373 000006 ZZ=ZZ+1 + 1374 031075 201 00 0 00 000006 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1375 031076 202 00 0 00 000006 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. + 1376 000007 ZZ=ZZ+1 + 1377 031077 201 00 0 00 000007 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1378 031100 202 00 0 00 000007 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. + 1379 000010 ZZ=ZZ+1 + 1380 031101 201 00 0 00 000010 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1381 031102 202 00 0 00 000010 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. + 1382 000011 ZZ=ZZ+1 + 1383 031103 201 00 0 00 000011 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1384 031104 202 00 0 00 000011 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. + 1385 000012 ZZ=ZZ+1 + 1386 031105 201 00 0 00 000012 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1387 031106 202 00 0 00 000012 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. + 1388 000013 ZZ=ZZ+1 + 1389 031107 201 00 0 00 000013 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1390 031110 202 00 0 00 000013 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. + 1391 000014 ZZ=ZZ+1 + 1392 031111 201 00 0 00 000014 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1393 031112 202 00 0 00 000014 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. + 1394 000015 ZZ=ZZ+1 + 1395 031113 201 00 0 00 000015 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1396 031114 202 00 0 00 000015 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. + 1397 000016 ZZ=ZZ+1 + 1398 031115 201 00 0 00 000016 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1399 031116 202 00 0 00 000016 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. + 1400 000017 ZZ=ZZ+1 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6-1 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0039 + + 1401 031117 201 00 0 00 000017 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS + 1402 031120 202 00 0 00 000017 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. + 1403 + 1404 000020 ZZ=20 + 1405 + 1406 REPEAT ^D15,< + 1407 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1408 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1409 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1410 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1411 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1412 + 1413 SN=SN+1 + 1414 ZZ=ZZ-1 + 1415 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1416 STOP + 1417 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1418 + 1419 ;********** + 1420 > + 1421 + 1422 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1423 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1424 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1425 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1426 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1427 + 1428 000601 SN=SN+1 + 1429 000017 ZZ=ZZ-1 + 1430 031121 302 17 0 00 000017 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1431 STOP^ + 1432 031122 254 04 0 00 031123 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1433 031123 324 00 0 00 031124 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1434 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1435 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1436 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1437 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1438 + 1439 ;********** + 1440 + 1441 + 1442 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1443 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1444 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1445 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1446 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1447 + 1448 000602 SN=SN+1 + 1449 000016 ZZ=ZZ-1 + 1450 031124 302 16 0 00 000016 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1451 STOP^ + 1452 031125 254 04 0 00 031126 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1453 031126 324 00 0 00 031127 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1454 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1455 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6-2 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0040 + + 1456 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1457 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1458 + 1459 ;********** + 1460 + 1461 + 1462 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1463 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1464 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1465 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1466 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1467 + 1468 000603 SN=SN+1 + 1469 000015 ZZ=ZZ-1 + 1470 031127 302 15 0 00 000015 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1471 STOP^ + 1472 031130 254 04 0 00 031131 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1473 031131 324 00 0 00 031132 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1474 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1475 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1476 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1477 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1478 + 1479 ;********** + 1480 + 1481 + 1482 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1483 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1484 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1485 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1486 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1487 + 1488 000604 SN=SN+1 + 1489 000014 ZZ=ZZ-1 + 1490 031132 302 14 0 00 000014 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1491 STOP^ + 1492 031133 254 04 0 00 031134 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1493 031134 324 00 0 00 031135 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1494 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1495 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1496 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1497 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1498 + 1499 ;********** + 1500 + 1501 + 1502 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1503 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1504 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1505 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1506 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1507 + 1508 000605 SN=SN+1 + 1509 000013 ZZ=ZZ-1 + 1510 031135 302 13 0 00 000013 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6-3 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0041 + + 1511 STOP^ + 1512 031136 254 04 0 00 031137 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1513 031137 324 00 0 00 031140 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1514 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1515 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1516 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1517 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1518 + 1519 ;********** + 1520 + 1521 + 1522 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1523 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1524 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1525 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1526 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1527 + 1528 000606 SN=SN+1 + 1529 000012 ZZ=ZZ-1 + 1530 031140 302 12 0 00 000012 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1531 STOP^ + 1532 031141 254 04 0 00 031142 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1533 031142 324 00 0 00 031143 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1534 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1535 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1536 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1537 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1538 + 1539 ;********** + 1540 + 1541 + 1542 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1543 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1544 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1545 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1546 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1547 + 1548 000607 SN=SN+1 + 1549 000011 ZZ=ZZ-1 + 1550 031143 302 11 0 00 000011 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1551 STOP^ + 1552 031144 254 04 0 00 031145 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1553 031145 324 00 0 00 031146 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1554 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1555 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1556 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1557 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1558 + 1559 ;********** + 1560 + 1561 + 1562 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1563 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1564 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1565 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6-4 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0042 + + 1566 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1567 + 1568 000610 SN=SN+1 + 1569 000010 ZZ=ZZ-1 + 1570 031146 302 10 0 00 000010 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1571 STOP^ + 1572 031147 254 04 0 00 031150 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1573 031150 324 00 0 00 031151 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1574 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1575 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1576 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1577 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1578 + 1579 ;********** + 1580 + 1581 + 1582 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1583 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1584 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1585 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1586 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1587 + 1588 000611 SN=SN+1 + 1589 000007 ZZ=ZZ-1 + 1590 031151 302 07 0 00 000007 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1591 STOP^ + 1592 031152 254 04 0 00 031153 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1593 031153 324 00 0 00 031154 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1594 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1595 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1596 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1597 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1598 + 1599 ;********** + 1600 + 1601 + 1602 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1603 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1604 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1605 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1606 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1607 + 1608 000612 SN=SN+1 + 1609 000006 ZZ=ZZ-1 + 1610 031154 302 06 0 00 000006 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1611 STOP^ + 1612 031155 254 04 0 00 031156 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1613 031156 324 00 0 00 031157 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1614 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1615 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1616 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1617 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1618 + 1619 ;********** + 1620 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6-5 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0043 + + 1621 + 1622 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1623 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1624 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1625 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1626 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1627 + 1628 000613 SN=SN+1 + 1629 000005 ZZ=ZZ-1 + 1630 031157 302 05 0 00 000005 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1631 STOP^ + 1632 031160 254 04 0 00 031161 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1633 031161 324 00 0 00 031162 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1634 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1635 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1636 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1637 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1638 + 1639 ;********** + 1640 + 1641 + 1642 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1643 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1644 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1645 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1646 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1647 + 1648 000614 SN=SN+1 + 1649 000004 ZZ=ZZ-1 + 1650 031162 302 04 0 00 000004 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1651 STOP^ + 1652 031163 254 04 0 00 031164 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1653 031164 324 00 0 00 031165 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1654 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1655 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1656 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1657 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1658 + 1659 ;********** + 1660 + 1661 + 1662 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1663 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1664 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1665 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1666 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1667 + 1668 000615 SN=SN+1 + 1669 000003 ZZ=ZZ-1 + 1670 031165 302 03 0 00 000003 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1671 STOP^ + 1672 031166 254 04 0 00 031167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1673 031167 324 00 0 00 031170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1674 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1675 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6-6 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0044 + + 1676 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1677 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1678 + 1679 ;********** + 1680 + 1681 + 1682 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1683 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1684 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1685 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1686 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1687 + 1688 000616 SN=SN+1 + 1689 000002 ZZ=ZZ-1 + 1690 031170 302 02 0 00 000002 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1691 STOP^ + 1692 031171 254 04 0 00 031172 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1693 031172 324 00 0 00 031173 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1694 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1695 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1696 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1697 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1698 + 1699 ;********** + 1700 + 1701 + 1702 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS + 1703 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE + 1704 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS + 1705 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. + 1706 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. + 1707 + 1708 000617 SN=SN+1 + 1709 000001 ZZ=ZZ-1 + 1710 031173 302 01 0 00 000001 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS + 1711 STOP^ + 1712 031174 254 04 0 00 031175 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1713 031175 324 00 0 00 031176 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1714 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1715 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1716 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1717 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS + 1718 + 1719 ;********** + 1720 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 7 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0045 + + 1721 000700 SN=700 + 1722 000000 ZZ=0 + 1723 + 1724 C700: REPEAT ^D15,< + 1725 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 1726 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 1727 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 1728 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 1729 + 1730 SN=SN+1 + 1731 ZZ=ZZ+1 + 1732 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 1733 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 1734 STOP + 1735 + 1736 ;********** + 1737 > + 1738 + 1739 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 1740 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 1741 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 1742 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 1743 + 1744 000701 SN=SN+1 + 1745 000001 ZZ=ZZ+1 + 1746 031176 201 01 0 00 000001 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 1747 031177 302 01 0 01 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 1748 STOP^ + 1749 031200 254 04 0 00 031201 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1750 031201 324 00 0 00 031202 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1751 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1752 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1753 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1754 + 1755 ;********** + 1756 + 1757 + 1758 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 1759 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 1760 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 1761 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 1762 + 1763 000702 SN=SN+1 + 1764 000002 ZZ=ZZ+1 + 1765 031202 201 02 0 00 000002 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 1766 031203 302 02 0 02 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 1767 STOP^ + 1768 031204 254 04 0 00 031205 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1769 031205 324 00 0 00 031206 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1770 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1771 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1772 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1773 + 1774 ;********** + 1775 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 7-1 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0046 + + 1776 + 1777 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 1778 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 1779 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 1780 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 1781 + 1782 000703 SN=SN+1 + 1783 000003 ZZ=ZZ+1 + 1784 031206 201 03 0 00 000003 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 1785 031207 302 03 0 03 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 1786 STOP^ + 1787 031210 254 04 0 00 031211 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1788 031211 324 00 0 00 031212 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1789 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1790 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1791 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1792 + 1793 ;********** + 1794 + 1795 + 1796 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 1797 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 1798 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 1799 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 1800 + 1801 000704 SN=SN+1 + 1802 000004 ZZ=ZZ+1 + 1803 031212 201 04 0 00 000004 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 1804 031213 302 04 0 04 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 1805 STOP^ + 1806 031214 254 04 0 00 031215 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1807 031215 324 00 0 00 031216 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1808 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1809 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1810 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1811 + 1812 ;********** + 1813 + 1814 + 1815 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 1816 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 1817 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 1818 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 1819 + 1820 000705 SN=SN+1 + 1821 000005 ZZ=ZZ+1 + 1822 031216 201 05 0 00 000005 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 1823 031217 302 05 0 05 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 1824 STOP^ + 1825 031220 254 04 0 00 031221 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1826 031221 324 00 0 00 031222 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 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 7-2 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0047 + + 1831 ;********** + 1832 + 1833 + 1834 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 1835 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 1836 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 1837 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 1838 + 1839 000706 SN=SN+1 + 1840 000006 ZZ=ZZ+1 + 1841 031222 201 06 0 00 000006 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 1842 031223 302 06 0 06 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 1843 STOP^ + 1844 031224 254 04 0 00 031225 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1845 031225 324 00 0 00 031226 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1846 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1847 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1848 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1849 + 1850 ;********** + 1851 + 1852 + 1853 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 1854 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 1855 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 1856 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 1857 + 1858 000707 SN=SN+1 + 1859 000007 ZZ=ZZ+1 + 1860 031226 201 07 0 00 000007 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 1861 031227 302 07 0 07 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 1862 STOP^ + 1863 031230 254 04 0 00 031231 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1864 031231 324 00 0 00 031232 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1865 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1866 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1867 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1868 + 1869 ;********** + 1870 + 1871 + 1872 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 1873 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 1874 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 1875 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 1876 + 1877 000710 SN=SN+1 + 1878 000010 ZZ=ZZ+1 + 1879 031232 201 10 0 00 000010 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 1880 031233 302 10 0 10 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 1881 STOP^ + 1882 031234 254 04 0 00 031235 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1883 031235 324 00 0 00 031236 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1884 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1885 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 7-3 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0048 + + 1886 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1887 + 1888 ;********** + 1889 + 1890 + 1891 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 1892 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 1893 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 1894 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 1895 + 1896 000711 SN=SN+1 + 1897 000011 ZZ=ZZ+1 + 1898 031236 201 11 0 00 000011 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 1899 031237 302 11 0 11 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 1900 STOP^ + 1901 031240 254 04 0 00 031241 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1902 031241 324 00 0 00 031242 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 + 1910 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 1911 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 1912 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 1913 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 1914 + 1915 000712 SN=SN+1 + 1916 000012 ZZ=ZZ+1 + 1917 031242 201 12 0 00 000012 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 1918 031243 302 12 0 12 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 1919 STOP^ + 1920 031244 254 04 0 00 031245 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1921 031245 324 00 0 00 031246 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 + 1926 ;********** + 1927 + 1928 + 1929 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 1930 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 1931 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 1932 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 1933 + 1934 000713 SN=SN+1 + 1935 000013 ZZ=ZZ+1 + 1936 031246 201 13 0 00 000013 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 1937 031247 302 13 0 13 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 1938 STOP^ + 1939 031250 254 04 0 00 031251 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1940 031251 324 00 0 00 031252 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 7-4 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0049 + + 1941 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1942 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1943 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1944 + 1945 ;********** + 1946 + 1947 + 1948 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 1949 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 1950 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 1951 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 1952 + 1953 000714 SN=SN+1 + 1954 000014 ZZ=ZZ+1 + 1955 031252 201 14 0 00 000014 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 1956 031253 302 14 0 14 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 1957 STOP^ + 1958 031254 254 04 0 00 031255 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1959 031255 324 00 0 00 031256 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1960 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1961 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1962 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1963 + 1964 ;********** + 1965 + 1966 + 1967 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 1968 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 1969 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 1970 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 1971 + 1972 000715 SN=SN+1 + 1973 000015 ZZ=ZZ+1 + 1974 031256 201 15 0 00 000015 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 1975 031257 302 15 0 15 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 1976 STOP^ + 1977 031260 254 04 0 00 031261 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1978 031261 324 00 0 00 031262 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1979 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1980 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 1981 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 1982 + 1983 ;********** + 1984 + 1985 + 1986 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 1987 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 1988 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 1989 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 1990 + 1991 000716 SN=SN+1 + 1992 000016 ZZ=ZZ+1 + 1993 031262 201 16 0 00 000016 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 1994 031263 302 16 0 16 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 1995 STOP^ +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 7-5 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0050 + + 1996 031264 254 04 0 00 031265 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 1997 031265 324 00 0 00 031266 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 1998 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 1999 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2000 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2001 + 2002 ;********** + 2003 + 2004 + 2005 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. + 2006 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, + 2007 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. + 2008 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. + 2009 + 2010 000717 SN=SN+1 + 2011 000017 ZZ=ZZ+1 + 2012 031266 201 17 0 00 000017 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS + 2013 031267 302 17 0 17 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2014 STOP^ + 2015 031270 254 04 0 00 031271 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2016 031271 324 00 0 00 031272 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2017 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2018 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2019 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2020 + 2021 ;********** + 2022 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 8 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0051 + + 2023 001000 SN=1000 + 2024 000000 ZZ=0 + 2025 + 2026 C1000: REPEAT ^D15,< + 2027 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. + 2028 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2029 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2030 . + 2031 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2032 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2033 + 2034 SN=SN+1 + 2035 ZZ=ZZ+1 + 2036 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2037 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2038 CAME ZZ,(ZZ) ;IN BOTH HALVES + 2039 STOP + 2040 + 2041 ;********** + 2042 > + 2043 + 2044 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. + 2045 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2046 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2047 . + 2048 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2049 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2050 + 2051 001001 SN=SN+1 + 2052 000001 ZZ=ZZ+1 + 2053 031272 201 01 0 00 000001 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2054 031273 505 01 0 00 000001 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2055 031274 312 01 0 01 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES + 2056 STOP^ + 2057 031275 254 04 0 00 031276 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2058 031276 324 00 0 00 031277 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2059 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2060 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2061 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2062 + 2063 ;********** + 2064 + 2065 + 2066 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. + 2067 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2068 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2069 . + 2070 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2071 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2072 + 2073 001002 SN=SN+1 + 2074 000002 ZZ=ZZ+1 + 2075 031277 201 02 0 00 000002 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2076 031300 505 02 0 00 000002 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2077 031301 312 02 0 02 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 8-1 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0052 + + 2078 STOP^ + 2079 031302 254 04 0 00 031303 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2080 031303 324 00 0 00 031304 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2081 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2082 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2083 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2084 + 2085 ;********** + 2086 + 2087 + 2088 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. + 2089 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2090 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2091 . + 2092 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2093 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2094 + 2095 001003 SN=SN+1 + 2096 000003 ZZ=ZZ+1 + 2097 031304 201 03 0 00 000003 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2098 031305 505 03 0 00 000003 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2099 031306 312 03 0 03 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES + 2100 STOP^ + 2101 031307 254 04 0 00 031310 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2102 031310 324 00 0 00 031311 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 + 2110 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. + 2111 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2112 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2113 . + 2114 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2115 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2116 + 2117 001004 SN=SN+1 + 2118 000004 ZZ=ZZ+1 + 2119 031311 201 04 0 00 000004 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2120 031312 505 04 0 00 000004 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2121 031313 312 04 0 04 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES + 2122 STOP^ + 2123 031314 254 04 0 00 031315 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2124 031315 324 00 0 00 031316 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2125 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2126 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2127 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2128 + 2129 ;********** + 2130 + 2131 + 2132 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 8-2 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0053 + + 2133 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2134 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2135 . + 2136 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2137 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2138 + 2139 001005 SN=SN+1 + 2140 000005 ZZ=ZZ+1 + 2141 031316 201 05 0 00 000005 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2142 031317 505 05 0 00 000005 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2143 031320 312 05 0 05 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES + 2144 STOP^ + 2145 031321 254 04 0 00 031322 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2146 031322 324 00 0 00 031323 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2147 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2148 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2149 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2150 + 2151 ;********** + 2152 + 2153 + 2154 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. + 2155 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2156 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2157 . + 2158 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2159 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2160 + 2161 001006 SN=SN+1 + 2162 000006 ZZ=ZZ+1 + 2163 031323 201 06 0 00 000006 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2164 031324 505 06 0 00 000006 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2165 031325 312 06 0 06 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES + 2166 STOP^ + 2167 031326 254 04 0 00 031327 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2168 031327 324 00 0 00 031330 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2169 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2170 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2171 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2172 + 2173 ;********** + 2174 + 2175 + 2176 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. + 2177 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2178 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2179 . + 2180 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2181 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2182 + 2183 001007 SN=SN+1 + 2184 000007 ZZ=ZZ+1 + 2185 031330 201 07 0 00 000007 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2186 031331 505 07 0 00 000007 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2187 031332 312 07 0 07 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 8-3 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0054 + + 2188 STOP^ + 2189 031333 254 04 0 00 031334 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2190 031334 324 00 0 00 031335 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2191 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2192 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2193 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2194 + 2195 ;********** + 2196 + 2197 + 2198 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. + 2199 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2200 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2201 . + 2202 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2203 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2204 + 2205 001010 SN=SN+1 + 2206 000010 ZZ=ZZ+1 + 2207 031335 201 10 0 00 000010 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2208 031336 505 10 0 00 000010 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2209 031337 312 10 0 10 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES + 2210 STOP^ + 2211 031340 254 04 0 00 031341 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2212 031341 324 00 0 00 031342 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2213 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2214 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2215 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2216 + 2217 ;********** + 2218 + 2219 + 2220 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. + 2221 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2222 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2223 . + 2224 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2225 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2226 + 2227 001011 SN=SN+1 + 2228 000011 ZZ=ZZ+1 + 2229 031342 201 11 0 00 000011 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2230 031343 505 11 0 00 000011 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2231 031344 312 11 0 11 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES + 2232 STOP^ + 2233 031345 254 04 0 00 031346 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2234 031346 324 00 0 00 031347 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2235 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2236 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2237 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2238 + 2239 ;********** + 2240 + 2241 + 2242 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 8-4 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0055 + + 2243 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2244 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2245 . + 2246 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2247 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2248 + 2249 001012 SN=SN+1 + 2250 000012 ZZ=ZZ+1 + 2251 031347 201 12 0 00 000012 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2252 031350 505 12 0 00 000012 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2253 031351 312 12 0 12 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES + 2254 STOP^ + 2255 031352 254 04 0 00 031353 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2256 031353 324 00 0 00 031354 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2257 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2258 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2259 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2260 + 2261 ;********** + 2262 + 2263 + 2264 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. + 2265 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2266 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2267 . + 2268 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2269 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2270 + 2271 001013 SN=SN+1 + 2272 000013 ZZ=ZZ+1 + 2273 031354 201 13 0 00 000013 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2274 031355 505 13 0 00 000013 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2275 031356 312 13 0 13 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES + 2276 STOP^ + 2277 031357 254 04 0 00 031360 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2278 031360 324 00 0 00 031361 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2279 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2280 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2281 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2282 + 2283 ;********** + 2284 + 2285 + 2286 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. + 2287 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2288 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2289 . + 2290 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2291 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2292 + 2293 001014 SN=SN+1 + 2294 000014 ZZ=ZZ+1 + 2295 031361 201 14 0 00 000014 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2296 031362 505 14 0 00 000014 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2297 031363 312 14 0 14 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 8-5 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0056 + + 2298 STOP^ + 2299 031364 254 04 0 00 031365 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2300 031365 324 00 0 00 031366 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2301 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2302 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2303 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2304 + 2305 ;********** + 2306 + 2307 + 2308 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. + 2309 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2310 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2311 . + 2312 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2313 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2314 + 2315 001015 SN=SN+1 + 2316 000015 ZZ=ZZ+1 + 2317 031366 201 15 0 00 000015 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2318 031367 505 15 0 00 000015 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2319 031370 312 15 0 15 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES + 2320 STOP^ + 2321 031371 254 04 0 00 031372 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2322 031372 324 00 0 00 031373 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 ;********** + 2328 + 2329 + 2330 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. + 2331 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2332 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2333 . + 2334 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2335 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2336 + 2337 001016 SN=SN+1 + 2338 000016 ZZ=ZZ+1 + 2339 031373 201 16 0 00 000016 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2340 031374 505 16 0 00 000016 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2341 031375 312 16 0 16 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES + 2342 STOP^ + 2343 031376 254 04 0 00 031377 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2344 031377 324 00 0 00 031400 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2345 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2346 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2347 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2348 + 2349 ;********** + 2350 + 2351 + 2352 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 8-6 +DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0057 + + 2353 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. + 2354 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES + 2355 . + 2356 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. + 2357 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER + 2358 + 2359 001017 SN=SN+1 + 2360 000017 ZZ=ZZ+1 + 2361 031400 201 17 0 00 000017 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS + 2362 031401 505 17 0 00 000017 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS + 2363 031402 312 17 0 17 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES + 2364 STOP^ + 2365 031403 254 04 0 00 031404 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2366 031404 324 00 0 00 031405 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2367 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2368 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2369 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2370 + 2371 ;********** + 2372 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0058 + + 2373 SUBTTL TEST OF INDEX REGISTER ADDRESSING + 2374 + 2375 ;********** + 2376 + 2377 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2378 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2379 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2380 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 0, + 2381 ;THE FINAL RESULT IN AC3 SHOULD BE 0. IF C(AC3)=0, THIS TEST PASSES. + 2382 + 2383 031405 476 00 0 00 000003 C1100: SETOM 3 ;PRELOAD AC3 WITH -1,,1 + 2384 031406 402 00 0 00 000001 SETZM 1 ;PRELOAD AC1 WITH 0 + 2385 031407 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2 WITH 1 + 2386 031410 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2387 031411 332 00 0 00 000003 SKIPE 3 ;TEST INDEXING + 2388 STOP^ + 2389 031412 254 04 0 00 031413 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2390 031413 324 00 0 00 031414 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2391 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2392 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2393 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2394 + 2395 ;********** + 2396 + 2397 001200 SN=1200 + 2398 000000 ZZ=0 + 2399 + 2400 C1200: REPEAT ^D18,< + 2401 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2402 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2403 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2404 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2405 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2406 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2407 + 2408 SN=SN+1 + 2409 ZZ=ZZ+ZZ + 2410 IFE ZZ, + 2411 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2412 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2413 MOVEI 2,1 ;SETUP INDEX REGISTER + 2414 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2415 CAIE 3,ZZ ;TEST INDEXING + 2416 STOP + 2417 + 2418 ;********** + 2419 > + 2420 + 2421 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2422 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2423 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2424 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2425 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2426 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2427 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-1 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0059 + + 2428 001201 SN=SN+1 + 2429 000000 ZZ=ZZ+ZZ + 2430 000001 IFE ZZ, + 2431 031414 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2432 031415 201 01 0 00 000001 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2433 031416 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2434 031417 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2435 031420 302 03 0 00 000001 CAIE 3,ZZ ;TEST INDEXING + 2436 STOP^ + 2437 031421 254 04 0 00 031422 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2438 031422 324 00 0 00 031423 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2439 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2440 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2441 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2442 + 2443 ;********** + 2444 + 2445 + 2446 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2447 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2448 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2449 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2450 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2451 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2452 + 2453 001202 SN=SN+1 + 2454 000002 ZZ=ZZ+ZZ + 2455 IFE ZZ, + 2456 031423 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2457 031424 201 01 0 00 000002 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2458 031425 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2459 031426 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2460 031427 302 03 0 00 000002 CAIE 3,ZZ ;TEST INDEXING + 2461 STOP^ + 2462 031430 254 04 0 00 031431 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2463 031431 324 00 0 00 031432 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2464 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2465 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2466 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2467 + 2468 ;********** + 2469 + 2470 + 2471 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2472 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2473 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2474 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2475 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2476 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2477 + 2478 001203 SN=SN+1 + 2479 000004 ZZ=ZZ+ZZ + 2480 IFE ZZ, + 2481 031432 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2482 031433 201 01 0 00 000004 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-2 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0060 + + 2483 031434 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2484 031435 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2485 031436 302 03 0 00 000004 CAIE 3,ZZ ;TEST INDEXING + 2486 STOP^ + 2487 031437 254 04 0 00 031440 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2488 031440 324 00 0 00 031441 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2489 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2490 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2491 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2492 + 2493 ;********** + 2494 + 2495 + 2496 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2497 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2498 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2499 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2500 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2501 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2502 + 2503 001204 SN=SN+1 + 2504 000010 ZZ=ZZ+ZZ + 2505 IFE ZZ, + 2506 031441 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2507 031442 201 01 0 00 000010 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2508 031443 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2509 031444 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2510 031445 302 03 0 00 000010 CAIE 3,ZZ ;TEST INDEXING + 2511 STOP^ + 2512 031446 254 04 0 00 031447 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2513 031447 324 00 0 00 031450 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2514 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2515 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2516 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2517 + 2518 ;********** + 2519 + 2520 + 2521 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2522 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2523 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2524 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2525 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2526 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2527 + 2528 001205 SN=SN+1 + 2529 000020 ZZ=ZZ+ZZ + 2530 IFE ZZ, + 2531 031450 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2532 031451 201 01 0 00 000020 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2533 031452 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2534 031453 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2535 031454 302 03 0 00 000020 CAIE 3,ZZ ;TEST INDEXING + 2536 STOP^ + 2537 031455 254 04 0 00 031456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-3 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0061 + + 2538 031456 324 00 0 00 031457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2539 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2540 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2541 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2542 + 2543 ;********** + 2544 + 2545 + 2546 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2547 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2548 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2549 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2550 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2551 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2552 + 2553 001206 SN=SN+1 + 2554 000040 ZZ=ZZ+ZZ + 2555 IFE ZZ, + 2556 031457 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2557 031460 201 01 0 00 000040 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2558 031461 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2559 031462 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2560 031463 302 03 0 00 000040 CAIE 3,ZZ ;TEST INDEXING + 2561 STOP^ + 2562 031464 254 04 0 00 031465 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2563 031465 324 00 0 00 031466 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2564 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2565 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2566 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2567 + 2568 ;********** + 2569 + 2570 + 2571 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2572 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2573 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2574 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2575 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2576 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2577 + 2578 001207 SN=SN+1 + 2579 000100 ZZ=ZZ+ZZ + 2580 IFE ZZ, + 2581 031466 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2582 031467 201 01 0 00 000100 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2583 031470 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2584 031471 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2585 031472 302 03 0 00 000100 CAIE 3,ZZ ;TEST INDEXING + 2586 STOP^ + 2587 031473 254 04 0 00 031474 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2588 031474 324 00 0 00 031475 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2589 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2590 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2591 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2592 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-4 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0062 + + 2593 ;********** + 2594 + 2595 + 2596 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2597 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2598 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2599 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2600 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2601 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2602 + 2603 001210 SN=SN+1 + 2604 000200 ZZ=ZZ+ZZ + 2605 IFE ZZ, + 2606 031475 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2607 031476 201 01 0 00 000200 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2608 031477 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2609 031500 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2610 031501 302 03 0 00 000200 CAIE 3,ZZ ;TEST INDEXING + 2611 STOP^ + 2612 031502 254 04 0 00 031503 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2613 031503 324 00 0 00 031504 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2614 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2615 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2616 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2617 + 2618 ;********** + 2619 + 2620 + 2621 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2622 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2623 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2624 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2625 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2626 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2627 + 2628 001211 SN=SN+1 + 2629 000400 ZZ=ZZ+ZZ + 2630 IFE ZZ, + 2631 031504 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2632 031505 201 01 0 00 000400 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2633 031506 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2634 031507 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2635 031510 302 03 0 00 000400 CAIE 3,ZZ ;TEST INDEXING + 2636 STOP^ + 2637 031511 254 04 0 00 031512 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2638 031512 324 00 0 00 031513 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2639 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2640 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2641 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2642 + 2643 ;********** + 2644 + 2645 + 2646 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2647 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-5 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0063 + + 2648 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2649 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2650 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2651 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2652 + 2653 001212 SN=SN+1 + 2654 001000 ZZ=ZZ+ZZ + 2655 IFE ZZ, + 2656 031513 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2657 031514 201 01 0 00 001000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2658 031515 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2659 031516 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2660 031517 302 03 0 00 001000 CAIE 3,ZZ ;TEST INDEXING + 2661 STOP^ + 2662 031520 254 04 0 00 031521 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2663 031521 324 00 0 00 031522 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2664 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2665 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2666 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2667 + 2668 ;********** + 2669 + 2670 + 2671 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2672 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2673 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2674 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2675 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2676 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2677 + 2678 001213 SN=SN+1 + 2679 002000 ZZ=ZZ+ZZ + 2680 IFE ZZ, + 2681 031522 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2682 031523 201 01 0 00 002000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2683 031524 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2684 031525 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2685 031526 302 03 0 00 002000 CAIE 3,ZZ ;TEST INDEXING + 2686 STOP^ + 2687 031527 254 04 0 00 031530 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2688 031530 324 00 0 00 031531 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2689 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2690 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2691 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2692 + 2693 ;********** + 2694 + 2695 + 2696 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2697 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2698 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2699 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2700 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2701 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2702 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-6 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0064 + + 2703 001214 SN=SN+1 + 2704 004000 ZZ=ZZ+ZZ + 2705 IFE ZZ, + 2706 031531 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2707 031532 201 01 0 00 004000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2708 031533 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2709 031534 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2710 031535 302 03 0 00 004000 CAIE 3,ZZ ;TEST INDEXING + 2711 STOP^ + 2712 031536 254 04 0 00 031537 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2713 031537 324 00 0 00 031540 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2714 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2715 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2716 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2717 + 2718 ;********** + 2719 + 2720 + 2721 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2722 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2723 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2724 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2725 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2726 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2727 + 2728 001215 SN=SN+1 + 2729 010000 ZZ=ZZ+ZZ + 2730 IFE ZZ, + 2731 031540 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2732 031541 201 01 0 00 010000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2733 031542 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2734 031543 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2735 031544 302 03 0 00 010000 CAIE 3,ZZ ;TEST INDEXING + 2736 STOP^ + 2737 031545 254 04 0 00 031546 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2738 031546 324 00 0 00 031547 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2739 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2740 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2741 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2742 + 2743 ;********** + 2744 + 2745 + 2746 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2747 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2748 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2749 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2750 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2751 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2752 + 2753 001216 SN=SN+1 + 2754 020000 ZZ=ZZ+ZZ + 2755 IFE ZZ, + 2756 031547 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2757 031550 201 01 0 00 020000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-7 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0065 + + 2758 031551 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2759 031552 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2760 031553 302 03 0 00 020000 CAIE 3,ZZ ;TEST INDEXING + 2761 STOP^ + 2762 031554 254 04 0 00 031555 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2763 031555 324 00 0 00 031556 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2764 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2765 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2766 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2767 + 2768 ;********** + 2769 + 2770 + 2771 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2772 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2773 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2774 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2775 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2776 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2777 + 2778 001217 SN=SN+1 + 2779 040000 ZZ=ZZ+ZZ + 2780 IFE ZZ, + 2781 031556 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2782 031557 201 01 0 00 040000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2783 031560 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2784 031561 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2785 031562 302 03 0 00 040000 CAIE 3,ZZ ;TEST INDEXING + 2786 STOP^ + 2787 031563 254 04 0 00 031564 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2788 031564 324 00 0 00 031565 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2789 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2790 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2791 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2792 + 2793 ;********** + 2794 + 2795 + 2796 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2797 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2798 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2799 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2800 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2801 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2802 + 2803 001220 SN=SN+1 + 2804 100000 ZZ=ZZ+ZZ + 2805 IFE ZZ, + 2806 031565 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2807 031566 201 01 0 00 100000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2808 031567 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2809 031570 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2810 031571 302 03 0 00 100000 CAIE 3,ZZ ;TEST INDEXING + 2811 STOP^ + 2812 031572 254 04 0 00 031573 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-8 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0066 + + 2813 031573 324 00 0 00 031574 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2814 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2815 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2816 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2817 + 2818 ;********** + 2819 + 2820 + 2821 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2822 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2823 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2824 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2825 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2826 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2827 + 2828 001221 SN=SN+1 + 2829 200000 ZZ=ZZ+ZZ + 2830 IFE ZZ, + 2831 031574 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2832 031575 201 01 0 00 200000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2833 031576 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2834 031577 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2835 031600 302 03 0 00 200000 CAIE 3,ZZ ;TEST INDEXING + 2836 STOP^ + 2837 031601 254 04 0 00 031602 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2838 031602 324 00 0 00 031603 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2839 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2840 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2841 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2842 + 2843 ;********** + 2844 + 2845 + 2846 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2847 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2848 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2849 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2850 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2851 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2852 + 2853 001222 SN=SN+1 + 2854 400000 ZZ=ZZ+ZZ + 2855 IFE ZZ, + 2856 031603 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2857 031604 201 01 0 00 400000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2858 031605 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2859 031606 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2860 031607 302 03 0 00 400000 CAIE 3,ZZ ;TEST INDEXING + 2861 STOP^ + 2862 031610 254 04 0 00 031611 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2863 031611 324 00 0 00 031612 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2864 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2865 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2866 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2867 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-9 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0067 + + 2868 ;********** + 2869 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0068 + + 2870 001300 SN=1300 + 2871 000000 ZZ=0 + 2872 + 2873 C1300: REPEAT ^D18,< + 2874 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2875 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2876 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2877 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2878 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2879 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2880 + 2881 SN=SN+1 + 2882 ZZ=ZZ+ZZ + 2883 IFE ZZ, + 2884 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2885 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2886 MOVEI 2,1 ;SETUP INDEX REGISTER + 2887 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2888 CAME 3,[ZZ,,0] ;TEST INDEXING + 2889 STOP + 2890 + 2891 ;********** + 2892 > + 2893 + 2894 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2895 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2896 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2897 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2898 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2899 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2900 + 2901 001301 SN=SN+1 + 2902 000000 ZZ=ZZ+ZZ + 2903 000001 IFE ZZ, + 2904 031612 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2905 031613 205 01 0 00 000001 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2906 031614 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2907 031615 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2908 031616 312 03 0 00 034444 CAME 3,[ZZ,,0] ;TEST INDEXING + 2909 STOP^ + 2910 031617 254 04 0 00 031620 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2911 031620 324 00 0 00 031621 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2912 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2913 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2914 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2915 + 2916 ;********** + 2917 + 2918 + 2919 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2920 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2921 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2922 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2923 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2924 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-1 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0069 + + 2925 + 2926 001302 SN=SN+1 + 2927 000002 ZZ=ZZ+ZZ + 2928 IFE ZZ, + 2929 031621 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2930 031622 205 01 0 00 000002 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2931 031623 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2932 031624 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2933 031625 312 03 0 00 034445 CAME 3,[ZZ,,0] ;TEST INDEXING + 2934 STOP^ + 2935 031626 254 04 0 00 031627 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2936 031627 324 00 0 00 031630 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2937 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2938 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2939 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2940 + 2941 ;********** + 2942 + 2943 + 2944 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2945 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2946 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2947 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2948 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2949 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2950 + 2951 001303 SN=SN+1 + 2952 000004 ZZ=ZZ+ZZ + 2953 IFE ZZ, + 2954 031630 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 2955 031631 205 01 0 00 000004 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2956 031632 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2957 031633 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2958 031634 312 03 0 00 034446 CAME 3,[ZZ,,0] ;TEST INDEXING + 2959 STOP^ + 2960 031635 254 04 0 00 031636 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2961 031636 324 00 0 00 031637 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2962 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2963 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2964 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2965 + 2966 ;********** + 2967 + 2968 + 2969 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2970 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2971 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2972 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2973 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2974 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 2975 + 2976 001304 SN=SN+1 + 2977 000010 ZZ=ZZ+ZZ + 2978 IFE ZZ, + 2979 031637 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-2 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0070 + + 2980 031640 205 01 0 00 000010 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 2981 031641 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 2982 031642 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 2983 031643 312 03 0 00 034447 CAME 3,[ZZ,,0] ;TEST INDEXING + 2984 STOP^ + 2985 031644 254 04 0 00 031645 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 2986 031645 324 00 0 00 031646 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 2987 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 2988 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 2989 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 2990 + 2991 ;********** + 2992 + 2993 + 2994 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 2995 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 2996 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 2997 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 2998 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 2999 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 3000 + 3001 001305 SN=SN+1 + 3002 000020 ZZ=ZZ+ZZ + 3003 IFE ZZ, + 3004 031646 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 3005 031647 205 01 0 00 000020 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 3006 031650 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3007 031651 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3008 031652 312 03 0 00 034450 CAME 3,[ZZ,,0] ;TEST INDEXING + 3009 STOP^ + 3010 031653 254 04 0 00 031654 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3011 031654 324 00 0 00 031655 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3012 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3013 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3014 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3015 + 3016 ;********** + 3017 + 3018 + 3019 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3020 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3021 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3022 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3023 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 3024 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 3025 + 3026 001306 SN=SN+1 + 3027 000040 ZZ=ZZ+ZZ + 3028 IFE ZZ, + 3029 031655 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 3030 031656 205 01 0 00 000040 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 3031 031657 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3032 031660 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3033 031661 312 03 0 00 034451 CAME 3,[ZZ,,0] ;TEST INDEXING + 3034 STOP^ +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-3 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0071 + + 3035 031662 254 04 0 00 031663 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3036 031663 324 00 0 00 031664 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3037 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3038 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3039 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3040 + 3041 ;********** + 3042 + 3043 + 3044 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3045 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3046 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3047 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3048 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 3049 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 3050 + 3051 001307 SN=SN+1 + 3052 000100 ZZ=ZZ+ZZ + 3053 IFE ZZ, + 3054 031664 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 3055 031665 205 01 0 00 000100 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 3056 031666 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3057 031667 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3058 031670 312 03 0 00 034452 CAME 3,[ZZ,,0] ;TEST INDEXING + 3059 STOP^ + 3060 031671 254 04 0 00 031672 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3061 031672 324 00 0 00 031673 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3062 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3063 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3064 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3065 + 3066 ;********** + 3067 + 3068 + 3069 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3070 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3071 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3072 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3073 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 3074 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 3075 + 3076 001310 SN=SN+1 + 3077 000200 ZZ=ZZ+ZZ + 3078 IFE ZZ, + 3079 031673 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 3080 031674 205 01 0 00 000200 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 3081 031675 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3082 031676 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3083 031677 312 03 0 00 034453 CAME 3,[ZZ,,0] ;TEST INDEXING + 3084 STOP^ + 3085 031700 254 04 0 00 031701 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3086 031701 324 00 0 00 031702 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3087 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3088 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3089 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-4 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0072 + + 3090 + 3091 ;********** + 3092 + 3093 + 3094 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3095 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3096 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3097 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3098 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 3099 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 3100 + 3101 001311 SN=SN+1 + 3102 000400 ZZ=ZZ+ZZ + 3103 IFE ZZ, + 3104 031702 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 3105 031703 205 01 0 00 000400 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 3106 031704 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3107 031705 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3108 031706 312 03 0 00 034454 CAME 3,[ZZ,,0] ;TEST INDEXING + 3109 STOP^ + 3110 031707 254 04 0 00 031710 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3111 031710 324 00 0 00 031711 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3112 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3113 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3114 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3115 + 3116 ;********** + 3117 + 3118 + 3119 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3120 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3121 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3122 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3123 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 3124 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 3125 + 3126 001312 SN=SN+1 + 3127 001000 ZZ=ZZ+ZZ + 3128 IFE ZZ, + 3129 031711 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 3130 031712 205 01 0 00 001000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 3131 031713 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3132 031714 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3133 031715 312 03 0 00 034455 CAME 3,[ZZ,,0] ;TEST INDEXING + 3134 STOP^ + 3135 031716 254 04 0 00 031717 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3136 031717 324 00 0 00 031720 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3137 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3138 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3139 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3140 + 3141 ;********** + 3142 + 3143 + 3144 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-5 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0073 + + 3145 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3146 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3147 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3148 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 3149 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 3150 + 3151 001313 SN=SN+1 + 3152 002000 ZZ=ZZ+ZZ + 3153 IFE ZZ, + 3154 031720 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 3155 031721 205 01 0 00 002000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 3156 031722 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3157 031723 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3158 031724 312 03 0 00 034456 CAME 3,[ZZ,,0] ;TEST INDEXING + 3159 STOP^ + 3160 031725 254 04 0 00 031726 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3161 031726 324 00 0 00 031727 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3162 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3163 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3164 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3165 + 3166 ;********** + 3167 + 3168 + 3169 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3170 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3171 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3172 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3173 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 3174 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 3175 + 3176 001314 SN=SN+1 + 3177 004000 ZZ=ZZ+ZZ + 3178 IFE ZZ, + 3179 031727 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 3180 031730 205 01 0 00 004000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 3181 031731 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3182 031732 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3183 031733 312 03 0 00 034457 CAME 3,[ZZ,,0] ;TEST INDEXING + 3184 STOP^ + 3185 031734 254 04 0 00 031735 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3186 031735 324 00 0 00 031736 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3187 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3188 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3189 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3190 + 3191 ;********** + 3192 + 3193 + 3194 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3195 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3196 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3197 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3198 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 3199 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-6 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0074 + + 3200 + 3201 001315 SN=SN+1 + 3202 010000 ZZ=ZZ+ZZ + 3203 IFE ZZ, + 3204 031736 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 3205 031737 205 01 0 00 010000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 3206 031740 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3207 031741 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3208 031742 312 03 0 00 034460 CAME 3,[ZZ,,0] ;TEST INDEXING + 3209 STOP^ + 3210 031743 254 04 0 00 031744 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3211 031744 324 00 0 00 031745 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3212 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3213 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3214 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3215 + 3216 ;********** + 3217 + 3218 + 3219 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3220 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3221 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3222 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3223 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 3224 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 3225 + 3226 001316 SN=SN+1 + 3227 020000 ZZ=ZZ+ZZ + 3228 IFE ZZ, + 3229 031745 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 3230 031746 205 01 0 00 020000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 3231 031747 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3232 031750 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3233 031751 312 03 0 00 034461 CAME 3,[ZZ,,0] ;TEST INDEXING + 3234 STOP^ + 3235 031752 254 04 0 00 031753 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3236 031753 324 00 0 00 031754 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3237 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3238 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3239 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3240 + 3241 ;********** + 3242 + 3243 + 3244 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3245 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3246 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3247 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3248 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 3249 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 3250 + 3251 001317 SN=SN+1 + 3252 040000 ZZ=ZZ+ZZ + 3253 IFE ZZ, + 3254 031754 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-7 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0075 + + 3255 031755 205 01 0 00 040000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 3256 031756 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3257 031757 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3258 031760 312 03 0 00 034462 CAME 3,[ZZ,,0] ;TEST INDEXING + 3259 STOP^ + 3260 031761 254 04 0 00 031762 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3261 031762 324 00 0 00 031763 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3262 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3263 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3264 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3265 + 3266 ;********** + 3267 + 3268 + 3269 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3270 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3271 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3272 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3273 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 3274 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 3275 + 3276 001320 SN=SN+1 + 3277 100000 ZZ=ZZ+ZZ + 3278 IFE ZZ, + 3279 031763 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 3280 031764 205 01 0 00 100000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 3281 031765 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3282 031766 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3283 031767 312 03 0 00 034463 CAME 3,[ZZ,,0] ;TEST INDEXING + 3284 STOP^ + 3285 031770 254 04 0 00 031771 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3286 031771 324 00 0 00 031772 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3287 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3288 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3289 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3290 + 3291 ;********** + 3292 + 3293 + 3294 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3295 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3296 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3297 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3298 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 3299 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 3300 + 3301 001321 SN=SN+1 + 3302 200000 ZZ=ZZ+ZZ + 3303 IFE ZZ, + 3304 031772 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 3305 031773 205 01 0 00 200000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 3306 031774 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3307 031775 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3308 031776 312 03 0 00 034464 CAME 3,[ZZ,,0] ;TEST INDEXING + 3309 STOP^ +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-8 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0076 + + 3310 031777 254 04 0 00 032000 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3311 032000 324 00 0 00 032001 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3312 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3313 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3314 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3315 + 3316 ;********** + 3317 + 3318 + 3319 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3320 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3321 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3322 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3323 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. + 3324 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. + 3325 + 3326 001322 SN=SN+1 + 3327 400000 ZZ=ZZ+ZZ + 3328 IFE ZZ, + 3329 032001 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 + 3330 032002 205 01 0 00 400000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 + 3331 032003 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3332 032004 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3333 032005 312 03 0 00 034465 CAME 3,[ZZ,,0] ;TEST INDEXING + 3334 STOP^ + 3335 032006 254 04 0 00 032007 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3336 032007 324 00 0 00 032010 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3337 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3338 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3339 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3340 + 3341 ;********** + 3342 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0077 + + 3343 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3344 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3345 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3346 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH -1,,-1, + 3347 ;THE FINAL RESULT IN AC3 SHOULD BE -1,,-1. IF C(AC3)=-1,,-1, THIS TEST PASSES. + 3348 + 3349 032010 402 00 0 00 000003 C1400: SETZM 3 ;PRELOAD AC3 WITH 0 + 3350 032011 476 00 0 00 000001 SETOM 1 ;PRELOAD AC1 WITH -1,,-1 + 3351 032012 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3352 032013 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3353 032014 312 03 0 00 034466 CAME 3,[-1,,-1] ;TEST INDEXING + 3354 STOP^ + 3355 032015 254 04 0 00 032016 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3356 032016 324 00 0 00 032017 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3357 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3358 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3359 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3360 + 3361 ;********** + 3362 + 3363 001500 SN=1500 + 3364 000000 ZZ=0 + 3365 + 3366 C1500: REPEAT ^D18,< + 3367 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3368 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3369 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3370 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3371 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3372 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3373 + 3374 SN=SN+1 + 3375 ZZ=&777777 + 3376 IFE , + 3377 SETZM 3 ;PRELOAD AC3 WITH 0 + 3378 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3379 MOVEI 2,1 ;SETUP INDEX REGISTER + 3380 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3381 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3382 STOP + 3383 + 3384 ;********** + 3385 > + 3386 + 3387 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3388 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3389 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3390 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3391 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3392 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3393 + 3394 001501 SN=SN+1 + 3395 000001 ZZ=&777777 + 3396 777776 IFE , + 3397 032017 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-1 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0078 + + 3398 032020 561 01 0 00 777776 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3399 032021 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3400 032022 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3401 032023 312 03 0 00 034467 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3402 STOP^ + 3403 032024 254 04 0 00 032025 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3404 032025 324 00 0 00 032026 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3405 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3406 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3407 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3408 + 3409 ;********** + 3410 + 3411 + 3412 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3413 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3414 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3415 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3416 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3417 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3418 + 3419 001502 SN=SN+1 + 3420 777775 ZZ=&777777 + 3421 IFE , + 3422 032026 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3423 032027 561 01 0 00 777775 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3424 032030 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3425 032031 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3426 032032 312 03 0 00 034470 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3427 STOP^ + 3428 032033 254 04 0 00 032034 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3429 032034 324 00 0 00 032035 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3430 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3431 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3432 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3433 + 3434 ;********** + 3435 + 3436 + 3437 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3438 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3439 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3440 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3441 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3442 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3443 + 3444 001503 SN=SN+1 + 3445 777773 ZZ=&777777 + 3446 IFE , + 3447 032035 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3448 032036 561 01 0 00 777773 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3449 032037 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3450 032040 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3451 032041 312 03 0 00 034471 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3452 STOP^ +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-2 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0079 + + 3453 032042 254 04 0 00 032043 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3454 032043 324 00 0 00 032044 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3455 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3456 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3457 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3458 + 3459 ;********** + 3460 + 3461 + 3462 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3463 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3464 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3465 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3466 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3467 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3468 + 3469 001504 SN=SN+1 + 3470 777767 ZZ=&777777 + 3471 IFE , + 3472 032044 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3473 032045 561 01 0 00 777767 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3474 032046 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3475 032047 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3476 032050 312 03 0 00 034472 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3477 STOP^ + 3478 032051 254 04 0 00 032052 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3479 032052 324 00 0 00 032053 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3480 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3481 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3482 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3483 + 3484 ;********** + 3485 + 3486 + 3487 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3488 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3489 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3490 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3491 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3492 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3493 + 3494 001505 SN=SN+1 + 3495 777757 ZZ=&777777 + 3496 IFE , + 3497 032053 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3498 032054 561 01 0 00 777757 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3499 032055 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3500 032056 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3501 032057 312 03 0 00 034473 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3502 STOP^ + 3503 032060 254 04 0 00 032061 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3504 032061 324 00 0 00 032062 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3505 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3506 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3507 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-3 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0080 + + 3508 + 3509 ;********** + 3510 + 3511 + 3512 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3513 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3514 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3515 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3516 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3517 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3518 + 3519 001506 SN=SN+1 + 3520 777737 ZZ=&777777 + 3521 IFE , + 3522 032062 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3523 032063 561 01 0 00 777737 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3524 032064 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3525 032065 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3526 032066 312 03 0 00 034474 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3527 STOP^ + 3528 032067 254 04 0 00 032070 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3529 032070 324 00 0 00 032071 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3530 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3531 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3532 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3533 + 3534 ;********** + 3535 + 3536 + 3537 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3538 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3539 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3540 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3541 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3542 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3543 + 3544 001507 SN=SN+1 + 3545 777677 ZZ=&777777 + 3546 IFE , + 3547 032071 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3548 032072 561 01 0 00 777677 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3549 032073 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3550 032074 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3551 032075 312 03 0 00 034475 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3552 STOP^ + 3553 032076 254 04 0 00 032077 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3554 032077 324 00 0 00 032100 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3555 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3556 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3557 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3558 + 3559 ;********** + 3560 + 3561 + 3562 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-4 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0081 + + 3563 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3564 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3565 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3566 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3567 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3568 + 3569 001510 SN=SN+1 + 3570 777577 ZZ=&777777 + 3571 IFE , + 3572 032100 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3573 032101 561 01 0 00 777577 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3574 032102 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3575 032103 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3576 032104 312 03 0 00 034476 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3577 STOP^ + 3578 032105 254 04 0 00 032106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3579 032106 324 00 0 00 032107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3580 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3581 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3582 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3583 + 3584 ;********** + 3585 + 3586 + 3587 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3588 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3589 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3590 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3591 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3592 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3593 + 3594 001511 SN=SN+1 + 3595 777377 ZZ=&777777 + 3596 IFE , + 3597 032107 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3598 032110 561 01 0 00 777377 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3599 032111 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3600 032112 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3601 032113 312 03 0 00 034477 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3602 STOP^ + 3603 032114 254 04 0 00 032115 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3604 032115 324 00 0 00 032116 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3605 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3606 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3607 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3608 + 3609 ;********** + 3610 + 3611 + 3612 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3613 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3614 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3615 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3616 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3617 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-5 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0082 + + 3618 + 3619 001512 SN=SN+1 + 3620 776777 ZZ=&777777 + 3621 IFE , + 3622 032116 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3623 032117 561 01 0 00 776777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3624 032120 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3625 032121 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3626 032122 312 03 0 00 034500 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3627 STOP^ + 3628 032123 254 04 0 00 032124 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3629 032124 324 00 0 00 032125 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3630 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3631 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3632 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3633 + 3634 ;********** + 3635 + 3636 + 3637 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3638 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3639 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3640 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3641 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3642 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3643 + 3644 001513 SN=SN+1 + 3645 775777 ZZ=&777777 + 3646 IFE , + 3647 032125 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3648 032126 561 01 0 00 775777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3649 032127 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3650 032130 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3651 032131 312 03 0 00 034501 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3652 STOP^ + 3653 032132 254 04 0 00 032133 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3654 032133 324 00 0 00 032134 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3655 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3656 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3657 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3658 + 3659 ;********** + 3660 + 3661 + 3662 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3663 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3664 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3665 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3666 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3667 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3668 + 3669 001514 SN=SN+1 + 3670 773777 ZZ=&777777 + 3671 IFE , + 3672 032134 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-6 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0083 + + 3673 032135 561 01 0 00 773777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3674 032136 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3675 032137 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3676 032140 312 03 0 00 034502 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3677 STOP^ + 3678 032141 254 04 0 00 032142 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3679 032142 324 00 0 00 032143 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3680 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3681 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3682 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3683 + 3684 ;********** + 3685 + 3686 + 3687 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3688 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3689 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3690 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3691 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3692 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3693 + 3694 001515 SN=SN+1 + 3695 767777 ZZ=&777777 + 3696 IFE , + 3697 032143 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3698 032144 561 01 0 00 767777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3699 032145 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3700 032146 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3701 032147 312 03 0 00 034503 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3702 STOP^ + 3703 032150 254 04 0 00 032151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3704 032151 324 00 0 00 032152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3705 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3706 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3707 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3708 + 3709 ;********** + 3710 + 3711 + 3712 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3713 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3714 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3715 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3716 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3717 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3718 + 3719 001516 SN=SN+1 + 3720 757777 ZZ=&777777 + 3721 IFE , + 3722 032152 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3723 032153 561 01 0 00 757777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3724 032154 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3725 032155 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3726 032156 312 03 0 00 034504 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3727 STOP^ +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-7 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0084 + + 3728 032157 254 04 0 00 032160 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3729 032160 324 00 0 00 032161 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3730 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3731 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3732 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3733 + 3734 ;********** + 3735 + 3736 + 3737 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3738 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3739 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3740 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3741 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3742 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3743 + 3744 001517 SN=SN+1 + 3745 737777 ZZ=&777777 + 3746 IFE , + 3747 032161 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3748 032162 561 01 0 00 737777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3749 032163 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3750 032164 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3751 032165 312 03 0 00 034505 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3752 STOP^ + 3753 032166 254 04 0 00 032167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3754 032167 324 00 0 00 032170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3755 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3756 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3757 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3758 + 3759 ;********** + 3760 + 3761 + 3762 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3763 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3764 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3765 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3766 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3767 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3768 + 3769 001520 SN=SN+1 + 3770 677777 ZZ=&777777 + 3771 IFE , + 3772 032170 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3773 032171 561 01 0 00 677777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3774 032172 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3775 032173 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3776 032174 312 03 0 00 034506 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3777 STOP^ + 3778 032175 254 04 0 00 032176 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3779 032176 324 00 0 00 032177 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3780 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3781 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3782 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-8 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0085 + + 3783 + 3784 ;********** + 3785 + 3786 + 3787 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3788 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3789 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3790 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3791 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3792 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3793 + 3794 001521 SN=SN+1 + 3795 577777 ZZ=&777777 + 3796 IFE , + 3797 032177 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3798 032200 561 01 0 00 577777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3799 032201 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3800 032202 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3801 032203 312 03 0 00 034507 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3802 STOP^ + 3803 032204 254 04 0 00 032205 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3804 032205 324 00 0 00 032206 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3805 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3806 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3807 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3808 + 3809 ;********** + 3810 + 3811 + 3812 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3813 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3814 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3815 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3816 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3817 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3818 + 3819 001522 SN=SN+1 + 3820 377777 ZZ=&777777 + 3821 IFE , + 3822 032206 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3823 032207 561 01 0 00 377777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3824 032210 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3825 032211 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3826 032212 312 03 0 00 034510 CAME 3,[-1,,ZZ] ;TEST INDEXING + 3827 STOP^ + 3828 032213 254 04 0 00 032214 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3829 032214 324 00 0 00 032215 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3830 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3831 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3832 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3833 + 3834 ;********** + 3835 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0086 + + 3836 001600 SN=1600 + 3837 000000 ZZ=0 + 3838 + 3839 C1600: REPEAT ^D18,< + 3840 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3841 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3842 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3843 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3844 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3845 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3846 + 3847 SN=SN+1 + 3848 ZZ=&777777 + 3849 IFE , + 3850 SETZM 3 ;PRELOAD AC3 WITH 0 + 3851 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3852 MOVEI 2,1 ;SETUP INDEX REGISTER + 3853 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3854 CAME 3,[ZZ,,-1] ;TEST INDEXING + 3855 STOP + 3856 + 3857 ;********** + 3858 > + 3859 + 3860 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3861 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3862 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3863 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3864 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3865 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3866 + 3867 001601 SN=SN+1 + 3868 000001 ZZ=&777777 + 3869 777776 IFE , + 3870 032215 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3871 032216 525 01 0 00 777776 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3872 032217 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3873 032220 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3874 032221 312 03 0 00 034511 CAME 3,[ZZ,,-1] ;TEST INDEXING + 3875 STOP^ + 3876 032222 254 04 0 00 032223 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3877 032223 324 00 0 00 032224 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3878 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3879 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3880 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3881 + 3882 ;********** + 3883 + 3884 + 3885 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3886 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3887 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3888 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3889 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3890 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-1 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0087 + + 3891 + 3892 001602 SN=SN+1 + 3893 777775 ZZ=&777777 + 3894 IFE , + 3895 032224 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3896 032225 525 01 0 00 777775 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3897 032226 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3898 032227 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3899 032230 312 03 0 00 034512 CAME 3,[ZZ,,-1] ;TEST INDEXING + 3900 STOP^ + 3901 032231 254 04 0 00 032232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3902 032232 324 00 0 00 032233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3903 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3904 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3905 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3906 + 3907 ;********** + 3908 + 3909 + 3910 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3911 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3912 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3913 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3914 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3915 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3916 + 3917 001603 SN=SN+1 + 3918 777773 ZZ=&777777 + 3919 IFE , + 3920 032233 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3921 032234 525 01 0 00 777773 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3922 032235 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3923 032236 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3924 032237 312 03 0 00 034513 CAME 3,[ZZ,,-1] ;TEST INDEXING + 3925 STOP^ + 3926 032240 254 04 0 00 032241 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3927 032241 324 00 0 00 032242 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3928 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3929 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3930 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3931 + 3932 ;********** + 3933 + 3934 + 3935 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3936 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3937 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3938 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3939 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3940 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3941 + 3942 001604 SN=SN+1 + 3943 777767 ZZ=&777777 + 3944 IFE , + 3945 032242 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-2 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0088 + + 3946 032243 525 01 0 00 777767 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3947 032244 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3948 032245 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3949 032246 312 03 0 00 034514 CAME 3,[ZZ,,-1] ;TEST INDEXING + 3950 STOP^ + 3951 032247 254 04 0 00 032250 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3952 032250 324 00 0 00 032251 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3953 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3954 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3955 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3956 + 3957 ;********** + 3958 + 3959 + 3960 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3961 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3962 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3963 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3964 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3965 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3966 + 3967 001605 SN=SN+1 + 3968 777757 ZZ=&777777 + 3969 IFE , + 3970 032251 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3971 032252 525 01 0 00 777757 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3972 032253 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3973 032254 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3974 032255 312 03 0 00 034515 CAME 3,[ZZ,,-1] ;TEST INDEXING + 3975 STOP^ + 3976 032256 254 04 0 00 032257 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 3977 032257 324 00 0 00 032260 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 3978 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 3979 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 3980 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 3981 + 3982 ;********** + 3983 + 3984 + 3985 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 3986 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 3987 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 3988 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 3989 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 3990 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 3991 + 3992 001606 SN=SN+1 + 3993 777737 ZZ=&777777 + 3994 IFE , + 3995 032260 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 3996 032261 525 01 0 00 777737 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 3997 032262 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 3998 032263 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 3999 032264 312 03 0 00 034516 CAME 3,[ZZ,,-1] ;TEST INDEXING + 4000 STOP^ +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-3 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0089 + + 4001 032265 254 04 0 00 032266 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4002 032266 324 00 0 00 032267 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4003 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4004 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4005 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4006 + 4007 ;********** + 4008 + 4009 + 4010 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 4011 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 4012 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 4013 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 4014 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 4015 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 4016 + 4017 001607 SN=SN+1 + 4018 777677 ZZ=&777777 + 4019 IFE , + 4020 032267 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 4021 032270 525 01 0 00 777677 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 4022 032271 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 4023 032272 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 4024 032273 312 03 0 00 034517 CAME 3,[ZZ,,-1] ;TEST INDEXING + 4025 STOP^ + 4026 032274 254 04 0 00 032275 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4027 032275 324 00 0 00 032276 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4028 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4029 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4030 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4031 + 4032 ;********** + 4033 + 4034 + 4035 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 4036 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 4037 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 4038 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 4039 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 4040 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 4041 + 4042 001610 SN=SN+1 + 4043 777577 ZZ=&777777 + 4044 IFE , + 4045 032276 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 4046 032277 525 01 0 00 777577 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 4047 032300 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 4048 032301 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 4049 032302 312 03 0 00 034520 CAME 3,[ZZ,,-1] ;TEST INDEXING + 4050 STOP^ + 4051 032303 254 04 0 00 032304 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4052 032304 324 00 0 00 032305 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4053 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4054 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4055 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-4 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0090 + + 4056 + 4057 ;********** + 4058 + 4059 + 4060 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 4061 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 4062 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 4063 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 4064 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 4065 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 4066 + 4067 001611 SN=SN+1 + 4068 777377 ZZ=&777777 + 4069 IFE , + 4070 032305 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 4071 032306 525 01 0 00 777377 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 4072 032307 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 4073 032310 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 4074 032311 312 03 0 00 034521 CAME 3,[ZZ,,-1] ;TEST INDEXING + 4075 STOP^ + 4076 032312 254 04 0 00 032313 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4077 032313 324 00 0 00 032314 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4078 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4079 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4080 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4081 + 4082 ;********** + 4083 + 4084 + 4085 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 4086 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 4087 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 4088 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 4089 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 4090 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 4091 + 4092 001612 SN=SN+1 + 4093 776777 ZZ=&777777 + 4094 IFE , + 4095 032314 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 4096 032315 525 01 0 00 776777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 4097 032316 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 4098 032317 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 4099 032320 312 03 0 00 034522 CAME 3,[ZZ,,-1] ;TEST INDEXING + 4100 STOP^ + 4101 032321 254 04 0 00 032322 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4102 032322 324 00 0 00 032323 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4103 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4104 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4105 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4106 + 4107 ;********** + 4108 + 4109 + 4110 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-5 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0091 + + 4111 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 4112 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 4113 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 4114 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 4115 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 4116 + 4117 001613 SN=SN+1 + 4118 775777 ZZ=&777777 + 4119 IFE , + 4120 032323 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 4121 032324 525 01 0 00 775777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 4122 032325 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 4123 032326 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 4124 032327 312 03 0 00 034523 CAME 3,[ZZ,,-1] ;TEST INDEXING + 4125 STOP^ + 4126 032330 254 04 0 00 032331 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4127 032331 324 00 0 00 032332 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4128 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4129 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4130 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4131 + 4132 ;********** + 4133 + 4134 + 4135 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 4136 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 4137 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 4138 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 4139 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 4140 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 4141 + 4142 001614 SN=SN+1 + 4143 773777 ZZ=&777777 + 4144 IFE , + 4145 032332 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 4146 032333 525 01 0 00 773777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 4147 032334 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 4148 032335 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 4149 032336 312 03 0 00 034524 CAME 3,[ZZ,,-1] ;TEST INDEXING + 4150 STOP^ + 4151 032337 254 04 0 00 032340 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4152 032340 324 00 0 00 032341 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4153 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4154 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4155 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4156 + 4157 ;********** + 4158 + 4159 + 4160 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 4161 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 4162 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 4163 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 4164 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 4165 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-6 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0092 + + 4166 + 4167 001615 SN=SN+1 + 4168 767777 ZZ=&777777 + 4169 IFE , + 4170 032341 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 4171 032342 525 01 0 00 767777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 4172 032343 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 4173 032344 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 4174 032345 312 03 0 00 034525 CAME 3,[ZZ,,-1] ;TEST INDEXING + 4175 STOP^ + 4176 032346 254 04 0 00 032347 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4177 032347 324 00 0 00 032350 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4178 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4179 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4180 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4181 + 4182 ;********** + 4183 + 4184 + 4185 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 4186 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 4187 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 4188 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 4189 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 4190 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 4191 + 4192 001616 SN=SN+1 + 4193 757777 ZZ=&777777 + 4194 IFE , + 4195 032350 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 4196 032351 525 01 0 00 757777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 4197 032352 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 4198 032353 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 4199 032354 312 03 0 00 034526 CAME 3,[ZZ,,-1] ;TEST INDEXING + 4200 STOP^ + 4201 032355 254 04 0 00 032356 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4202 032356 324 00 0 00 032357 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4203 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4204 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4205 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4206 + 4207 ;********** + 4208 + 4209 + 4210 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 4211 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 4212 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 4213 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 4214 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 4215 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 4216 + 4217 001617 SN=SN+1 + 4218 737777 ZZ=&777777 + 4219 IFE , + 4220 032357 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-7 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0093 + + 4221 032360 525 01 0 00 737777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 4222 032361 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 4223 032362 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 4224 032363 312 03 0 00 034527 CAME 3,[ZZ,,-1] ;TEST INDEXING + 4225 STOP^ + 4226 032364 254 04 0 00 032365 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4227 032365 324 00 0 00 032366 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4228 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4229 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4230 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4231 + 4232 ;********** + 4233 + 4234 + 4235 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 4236 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 4237 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 4238 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 4239 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 4240 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 4241 + 4242 001620 SN=SN+1 + 4243 677777 ZZ=&777777 + 4244 IFE , + 4245 032366 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 4246 032367 525 01 0 00 677777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 4247 032370 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 4248 032371 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 4249 032372 312 03 0 00 034530 CAME 3,[ZZ,,-1] ;TEST INDEXING + 4250 STOP^ + 4251 032373 254 04 0 00 032374 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4252 032374 324 00 0 00 032375 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4253 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4254 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4255 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4256 + 4257 ;********** + 4258 + 4259 + 4260 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 4261 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 4262 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 4263 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 4264 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 4265 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 4266 + 4267 001621 SN=SN+1 + 4268 577777 ZZ=&777777 + 4269 IFE , + 4270 032375 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 4271 032376 525 01 0 00 577777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 4272 032377 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 4273 032400 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 4274 032401 312 03 0 00 034531 CAME 3,[ZZ,,-1] ;TEST INDEXING + 4275 STOP^ +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-8 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0094 + + 4276 032402 254 04 0 00 032403 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4277 032403 324 00 0 00 032404 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4278 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4279 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4280 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4281 + 4282 ;********** + 4283 + 4284 + 4285 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 4286 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION + 4287 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. + 4288 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A + 4289 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. + 4290 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. + 4291 + 4292 001622 SN=SN+1 + 4293 377777 ZZ=&777777 + 4294 IFE , + 4295 032404 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 + 4296 032405 525 01 0 00 377777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 + 4297 032406 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER + 4298 032407 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION + 4299 032410 312 03 0 00 034532 CAME 3,[ZZ,,-1] ;TEST INDEXING + 4300 STOP^ + 4301 032411 254 04 0 00 032412 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4302 032412 324 00 0 00 032413 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4303 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4304 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4305 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4306 + 4307 ;********** + 4308 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0095 + + 4309 ;VERIFY INDEXING WHERE 'E' IS NON-ZERO + 4310 + 4311 001700 SN=1700 + 4312 777777 777777 ZZ=-1 + 4313 777777 777770 XX=-10 + 4314 + 4315 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 4316 ;IN THIS TEST, THE INDEX REG IS SET-UP WITH MOVEI ZZ+1,ZZ-XX, + 4317 ;WHERE ZZ+1 IS THE INDEX REG. THE AC IS PRELOADED WITH ITS OWN ADDRESS, 0,,ZZ. + 4318 ;CAIE IS USED TO TEST THE INDEXING OPERATION. + 4319 ;IF THE RESULT IN C(AC)=XX+C(ZZ+1 - RIGHT), THIS TEST PASSES. + 4320 ;XX+C(ZZ+1 - RIGHT) SHOULD = ZZ. + 4321 + 4322 C1700: REPEAT ^D15, + 4323 + 4333 001701 SN=SN+1 + 4334 000000 ZZ=ZZ+1 + 4335 777777 777773 XX=XX+3 + 4336 032413 201 01 0 00 000005 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4337 032414 201 00 0 00 000000 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ + 4338 032415 302 00 0 01 777773 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING + 4339 STOP^ + 4340 032416 254 04 0 00 032417 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4341 032417 324 00 0 00 032420 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4342 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4343 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4344 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4345 + 4346 ;********** + 4347 + 4348 001702 SN=SN+1 + 4349 000001 ZZ=ZZ+1 + 4350 777777 777776 XX=XX+3 + 4351 032420 201 02 0 00 000003 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4352 032421 201 01 0 00 000001 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ + 4353 032422 302 01 0 02 777776 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING + 4354 STOP^ + 4355 032423 254 04 0 00 032424 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4356 032424 324 00 0 00 032425 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4357 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4358 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4359 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4360 + 4361 ;********** + 4362 + 4363 001703 SN=SN+1 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-1 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0096 + + 4364 000002 ZZ=ZZ+1 + 4365 000001 XX=XX+3 + 4366 032425 201 03 0 00 000001 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4367 032426 201 02 0 00 000002 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ + 4368 032427 302 02 0 03 000001 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING + 4369 STOP^ + 4370 032430 254 04 0 00 032431 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4371 032431 324 00 0 00 032432 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4372 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4373 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4374 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4375 + 4376 ;********** + 4377 + 4378 001704 SN=SN+1 + 4379 000003 ZZ=ZZ+1 + 4380 000004 XX=XX+3 + 4381 032432 201 04 0 00 777777 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4382 032433 201 03 0 00 000003 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ + 4383 032434 302 03 0 04 000004 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING + 4384 STOP^ + 4385 032435 254 04 0 00 032436 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4386 032436 324 00 0 00 032437 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4387 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4388 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4389 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4390 + 4391 ;********** + 4392 + 4393 001705 SN=SN+1 + 4394 000004 ZZ=ZZ+1 + 4395 000007 XX=XX+3 + 4396 032437 201 05 0 00 777775 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4397 032440 201 04 0 00 000004 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ + 4398 032441 302 04 0 05 000007 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING + 4399 STOP^ + 4400 032442 254 04 0 00 032443 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4401 032443 324 00 0 00 032444 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4402 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4403 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4404 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4405 + 4406 ;********** + 4407 + 4408 001706 SN=SN+1 + 4409 000005 ZZ=ZZ+1 + 4410 000012 XX=XX+3 + 4411 032444 201 06 0 00 777773 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4412 032445 201 05 0 00 000005 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ + 4413 032446 302 05 0 06 000012 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING + 4414 STOP^ + 4415 032447 254 04 0 00 032450 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4416 032450 324 00 0 00 032451 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4417 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4418 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-2 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0097 + + 4419 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4420 + 4421 ;********** + 4422 + 4423 001707 SN=SN+1 + 4424 000006 ZZ=ZZ+1 + 4425 000015 XX=XX+3 + 4426 032451 201 07 0 00 777771 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4427 032452 201 06 0 00 000006 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ + 4428 032453 302 06 0 07 000015 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING + 4429 STOP^ + 4430 032454 254 04 0 00 032455 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4431 032455 324 00 0 00 032456 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4432 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4433 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4434 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4435 + 4436 ;********** + 4437 + 4438 001710 SN=SN+1 + 4439 000007 ZZ=ZZ+1 + 4440 000020 XX=XX+3 + 4441 032456 201 10 0 00 777767 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4442 032457 201 07 0 00 000007 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ + 4443 032460 302 07 0 10 000020 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING + 4444 STOP^ + 4445 032461 254 04 0 00 032462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4446 032462 324 00 0 00 032463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4447 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4448 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4449 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4450 + 4451 ;********** + 4452 + 4453 001711 SN=SN+1 + 4454 000010 ZZ=ZZ+1 + 4455 000023 XX=XX+3 + 4456 032463 201 11 0 00 777765 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4457 032464 201 10 0 00 000010 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ + 4458 032465 302 10 0 11 000023 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING + 4459 STOP^ + 4460 032466 254 04 0 00 032467 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4461 032467 324 00 0 00 032470 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4462 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4463 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4464 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4465 + 4466 ;********** + 4467 + 4468 001712 SN=SN+1 + 4469 000011 ZZ=ZZ+1 + 4470 000026 XX=XX+3 + 4471 032470 201 12 0 00 777763 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4472 032471 201 11 0 00 000011 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ + 4473 032472 302 11 0 12 000026 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-3 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0098 + + 4474 STOP^ + 4475 032473 254 04 0 00 032474 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4476 032474 324 00 0 00 032475 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4477 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4478 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4479 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4480 + 4481 ;********** + 4482 + 4483 001713 SN=SN+1 + 4484 000012 ZZ=ZZ+1 + 4485 000031 XX=XX+3 + 4486 032475 201 13 0 00 777761 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4487 032476 201 12 0 00 000012 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ + 4488 032477 302 12 0 13 000031 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING + 4489 STOP^ + 4490 032500 254 04 0 00 032501 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4491 032501 324 00 0 00 032502 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4492 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4493 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4494 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4495 + 4496 ;********** + 4497 + 4498 001714 SN=SN+1 + 4499 000013 ZZ=ZZ+1 + 4500 000034 XX=XX+3 + 4501 032502 201 14 0 00 777757 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4502 032503 201 13 0 00 000013 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ + 4503 032504 302 13 0 14 000034 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING + 4504 STOP^ + 4505 032505 254 04 0 00 032506 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4506 032506 324 00 0 00 032507 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4507 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4508 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4509 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4510 + 4511 ;********** + 4512 + 4513 001715 SN=SN+1 + 4514 000014 ZZ=ZZ+1 + 4515 000037 XX=XX+3 + 4516 032507 201 15 0 00 777755 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4517 032510 201 14 0 00 000014 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ + 4518 032511 302 14 0 15 000037 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING + 4519 STOP^ + 4520 032512 254 04 0 00 032513 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4521 032513 324 00 0 00 032514 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4522 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4523 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4524 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4525 + 4526 ;********** + 4527 + 4528 001716 SN=SN+1 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-4 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0099 + + 4529 000015 ZZ=ZZ+1 + 4530 000042 XX=XX+3 + 4531 032514 201 16 0 00 777753 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4532 032515 201 15 0 00 000015 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ + 4533 032516 302 15 0 16 000042 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING + 4534 STOP^ + 4535 032517 254 04 0 00 032520 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4536 032520 324 00 0 00 032521 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4537 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4538 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4539 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4540 + 4541 ;********** + 4542 + 4543 001717 SN=SN+1 + 4544 000016 ZZ=ZZ+1 + 4545 000045 XX=XX+3 + 4546 032521 201 17 0 00 777751 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4547 032522 201 16 0 00 000016 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ + 4548 032523 302 16 0 17 000045 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING + 4549 STOP^ + 4550 032524 254 04 0 00 032525 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4551 032525 324 00 0 00 032526 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4552 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4553 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4554 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4555 + 4556 ;********** + 4557 + 4558 PAGE +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-5 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0100 + + 4559 002000 SN=2000 + 4560 777777 777777 ZZ=-1 + 4561 777777 777760 XX=-20 + 4562 + 4563 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. + 4564 ;IN THIS TEST, THE INDEX REG IS SET-UP WITH MOVEI ZZ+1,ZZ-XX, + 4565 ;WHERE ZZ+1 IS THE INDEX REG. INDEXING IS TESTED BY LOADING + 4566 ;THE AC VIA MOVEI ZZ,XX(ZZ+1), WHERE XX+C(ZZ+1)=ZZ. + 4567 ;IF THE RESULT IN THE AC EQUALS 0,,ZZ, THIS TEST PASSES. + 4568 + 4569 C2000: REPEAT ^D15, + 4570 + 4580 002001 SN=SN+1 + 4581 000000 ZZ=ZZ+1 + 4582 777777 777765 XX=XX+5 + 4583 032526 201 01 0 00 000013 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4584 032527 201 00 0 01 777765 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING + 4585 032530 302 00 0 00 000000 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC + 4586 STOP^ + 4587 032531 254 04 0 00 032532 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4588 032532 324 00 0 00 032533 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4589 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4590 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4591 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4592 + 4593 ;********** + 4594 + 4595 002002 SN=SN+1 + 4596 000001 ZZ=ZZ+1 + 4597 777777 777772 XX=XX+5 + 4598 032533 201 02 0 00 000007 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4599 032534 201 01 0 02 777772 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING + 4600 032535 302 01 0 00 000001 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC + 4601 STOP^ + 4602 032536 254 04 0 00 032537 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4603 032537 324 00 0 00 032540 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4604 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4605 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4606 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4607 + 4608 ;********** + 4609 + 4610 002003 SN=SN+1 + 4611 000002 ZZ=ZZ+1 + 4612 777777 777777 XX=XX+5 + 4613 032540 201 03 0 00 000003 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-6 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0101 + + 4614 032541 201 02 0 03 777777 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING + 4615 032542 302 02 0 00 000002 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC + 4616 STOP^ + 4617 032543 254 04 0 00 032544 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4618 032544 324 00 0 00 032545 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4619 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4620 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4621 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4622 + 4623 ;********** + 4624 + 4625 002004 SN=SN+1 + 4626 000003 ZZ=ZZ+1 + 4627 000004 XX=XX+5 + 4628 032545 201 04 0 00 777777 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4629 032546 201 03 0 04 000004 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING + 4630 032547 302 03 0 00 000003 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC + 4631 STOP^ + 4632 032550 254 04 0 00 032551 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4633 032551 324 00 0 00 032552 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4634 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4635 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4636 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4637 + 4638 ;********** + 4639 + 4640 002005 SN=SN+1 + 4641 000004 ZZ=ZZ+1 + 4642 000011 XX=XX+5 + 4643 032552 201 05 0 00 777773 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4644 032553 201 04 0 05 000011 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING + 4645 032554 302 04 0 00 000004 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC + 4646 STOP^ + 4647 032555 254 04 0 00 032556 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4648 032556 324 00 0 00 032557 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4649 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4650 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4651 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4652 + 4653 ;********** + 4654 + 4655 002006 SN=SN+1 + 4656 000005 ZZ=ZZ+1 + 4657 000016 XX=XX+5 + 4658 032557 201 06 0 00 777767 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4659 032560 201 05 0 06 000016 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING + 4660 032561 302 05 0 00 000005 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC + 4661 STOP^ + 4662 032562 254 04 0 00 032563 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4663 032563 324 00 0 00 032564 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4664 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4665 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4666 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4667 + 4668 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-7 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0102 + + 4669 + 4670 002007 SN=SN+1 + 4671 000006 ZZ=ZZ+1 + 4672 000023 XX=XX+5 + 4673 032564 201 07 0 00 777763 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4674 032565 201 06 0 07 000023 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING + 4675 032566 302 06 0 00 000006 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC + 4676 STOP^ + 4677 032567 254 04 0 00 032570 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4678 032570 324 00 0 00 032571 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4679 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4680 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4681 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4682 + 4683 ;********** + 4684 + 4685 002010 SN=SN+1 + 4686 000007 ZZ=ZZ+1 + 4687 000030 XX=XX+5 + 4688 032571 201 10 0 00 777757 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4689 032572 201 07 0 10 000030 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING + 4690 032573 302 07 0 00 000007 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC + 4691 STOP^ + 4692 032574 254 04 0 00 032575 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4693 032575 324 00 0 00 032576 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4694 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4695 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4696 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4697 + 4698 ;********** + 4699 + 4700 002011 SN=SN+1 + 4701 000010 ZZ=ZZ+1 + 4702 000035 XX=XX+5 + 4703 032576 201 11 0 00 777753 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4704 032577 201 10 0 11 000035 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING + 4705 032600 302 10 0 00 000010 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC + 4706 STOP^ + 4707 032601 254 04 0 00 032602 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4708 032602 324 00 0 00 032603 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4709 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4710 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4711 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4712 + 4713 ;********** + 4714 + 4715 002012 SN=SN+1 + 4716 000011 ZZ=ZZ+1 + 4717 000042 XX=XX+5 + 4718 032603 201 12 0 00 777747 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4719 032604 201 11 0 12 000042 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING + 4720 032605 302 11 0 00 000011 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC + 4721 STOP^ + 4722 032606 254 04 0 00 032607 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4723 032607 324 00 0 00 032610 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-8 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0103 + + 4724 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4725 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4726 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4727 + 4728 ;********** + 4729 + 4730 002013 SN=SN+1 + 4731 000012 ZZ=ZZ+1 + 4732 000047 XX=XX+5 + 4733 032610 201 13 0 00 777743 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4734 032611 201 12 0 13 000047 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING + 4735 032612 302 12 0 00 000012 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC + 4736 STOP^ + 4737 032613 254 04 0 00 032614 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4738 032614 324 00 0 00 032615 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4739 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4740 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4741 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4742 + 4743 ;********** + 4744 + 4745 002014 SN=SN+1 + 4746 000013 ZZ=ZZ+1 + 4747 000054 XX=XX+5 + 4748 032615 201 14 0 00 777737 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4749 032616 201 13 0 14 000054 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING + 4750 032617 302 13 0 00 000013 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC + 4751 STOP^ + 4752 032620 254 04 0 00 032621 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4753 032621 324 00 0 00 032622 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4754 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4755 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4756 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4757 + 4758 ;********** + 4759 + 4760 002015 SN=SN+1 + 4761 000014 ZZ=ZZ+1 + 4762 000061 XX=XX+5 + 4763 032622 201 15 0 00 777733 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4764 032623 201 14 0 15 000061 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING + 4765 032624 302 14 0 00 000014 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC + 4766 STOP^ + 4767 032625 254 04 0 00 032626 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4768 032626 324 00 0 00 032627 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4769 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4770 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4771 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4772 + 4773 ;********** + 4774 + 4775 002016 SN=SN+1 + 4776 000015 ZZ=ZZ+1 + 4777 000066 XX=XX+5 + 4778 032627 201 16 0 00 777727 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-9 +DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0104 + + 4779 032630 201 15 0 16 000066 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING + 4780 032631 302 15 0 00 000015 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC + 4781 STOP^ + 4782 032632 254 04 0 00 032633 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4783 032633 324 00 0 00 032634 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4784 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4785 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4786 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4787 + 4788 ;********** + 4789 + 4790 002017 SN=SN+1 + 4791 000016 ZZ=ZZ+1 + 4792 000073 XX=XX+5 + 4793 032634 201 17 0 00 777723 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER + 4794 032635 201 16 0 17 000073 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING + 4795 032636 302 16 0 00 000016 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC + 4796 STOP^ + 4797 032637 254 04 0 00 032640 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4798 032640 324 00 0 00 032641 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4799 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4800 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4801 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4802 + 4803 ;********** + 4804 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 14 +DAKADM MAC 19-JAN-77 13:41 TEST OF EXCH INSTRUCTION SEQ 0105 + + 4805 SUBTTL TEST OF EXCH INSTRUCTION + 4806 + 4807 ;********** + 4808 + 4809 ;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND + 4810 ;MOVES C(AC) INTO E. + 4811 ;IN THIS CASE, AC=E=0 AND C(AC)=C(E). HENCE, THE FINAL RESULT + 4812 ;IN AC0 SHOULD BE 0. IF C(AC)=0, THE TEST PASSES. + 4813 + 4814 032641 400 00 0 00 000000 C2100: SETZ ;PRELOAD AC,E WITH 0 + 4815 032642 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 0 INTO AC0 + 4816 032643 332 00 0 00 000000 SKIPE ;PASS IF C(AC0)=0 + 4817 STOP^ + 4818 032644 254 04 0 00 032645 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4819 032645 324 00 0 00 032646 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4820 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4821 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4822 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4823 + 4824 ;********** + 4825 + 4826 ;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND + 4827 ;MOVES C(AC) INTO E. + 4828 ;IN THIS CASE, AC=E=-1,,-1 AND C(AC)=C(E). HENCE, THE FINAL RESULT + 4829 ;IN AC0 SHOULD BE -1,,-1. IF C(AC)=-1,,-1, THE TEST PASSES. + 4830 + 4831 032646 474 00 0 00 000000 C2200: SETO ;PRELOAD AC,E WITH -1,,-1 + 4832 032647 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE -1,,-1 INTO AC0 + 4833 032650 312 00 0 00 034466 CAME [-1] ;PASS IF C(AC0)=-1,,-1 + 4834 STOP^ + 4835 032651 254 04 0 00 032652 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4836 032652 324 00 0 00 032653 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4837 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4838 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4839 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4840 + 4841 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 15 +DAKADM MAC 19-JAN-77 13:41 TEST OF EXCH INSTRUCTION SEQ 0106 + + 4842 ;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND + 4843 ;MOVES C(AC) INTO E. + 4844 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0,,-1. HENCE, THE FINAL RESULT + 4845 ;IN THE AC SHOULD BE 0,,-1 AND THE RESULT IN E SHOULD BE -1,,0, + 4846 ;IF THESE RESULTS OCCUR, THE TEST PASSES. + 4847 + 4848 032653 205 00 0 00 777777 C2400: MOVSI -1 ;PRELOAD AC WITH -1,,0 + 4849 032654 201 01 0 00 777777 MOVEI 1,-1 ;PRELOAD E WITH 0,,-1 + 4850 032655 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD PLACE 0,,-1 INTO THE AC AND -1,,0 INTO E + 4851 032656 312 01 0 00 034533 CAME 1,[-1,,0] ;PASS IF C(E)=-1,,0 + 4852 STOP^ + 4853 032657 254 04 0 00 032660 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4854 032660 324 00 0 00 032661 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4855 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4856 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4857 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4858 032661 312 00 0 00 034534 C2410: CAME 0,[0,,-1] ;PASS IF C(AC)=0,,-1 + 4859 STOP^ + 4860 032662 254 04 0 00 032663 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4861 032663 324 00 0 00 032664 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4862 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4863 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4864 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4865 + 4866 ;********** + 4867 + 4868 ;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND + 4869 ;MOVES C(AC) INTO E. + 4870 ;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,0. HENCE, THE FINAL RESULT + 4871 ;IN THE AC SHOULD BE -1,,0 AND THE RESULT IN E SHOULD BE 0,,-1. + 4872 ;IF THESE RESULTS OCCUR, THE TEST PASSES. + 4873 + 4874 032664 201 00 0 00 777777 C2700: MOVEI -1 ;PRELOAD AC WITH 0,,-1 + 4875 032665 205 01 0 00 777777 MOVSI 1,-1 ;PRELOAD E WITH -1,,0 + 4876 032666 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD PLACE -1,,0 INTO THE AC AND 0,,-1 INTO E + 4877 032667 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(E)=0,,-1 + 4878 STOP^ + 4879 032670 254 04 0 00 032671 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4880 032671 324 00 0 00 032672 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4881 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4882 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4883 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4884 032672 312 00 0 00 034533 C2710: CAME ,[XWD -1,0] ;PASS IF C(AC)=-1,,0 + 4885 STOP^ + 4886 032673 254 04 0 00 032674 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4887 032674 324 00 0 00 032675 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4888 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4889 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4890 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4891 + 4892 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 16 +DAKADM MAC 19-JAN-77 13:41 TEST OF EXCH INSTRUCTION SEQ 0107 + + 4893 ;THIS TEST IS A RELIABILITY CHECK OF EXCH. + 4894 ;FIRST, AC, E ARE PRELOADED WITH 252525,,252525. THERE, EXCH IS + 4895 ;EXECUTED 7 TIMES. THE AC IS THEN CHECKED FOR 252525,,252525. + 4896 ;IF C(AC)=C(E)=252525,,252525, THIS TEST PASSES. + 4897 ;IN THIS TEST AC=E=AC0 + 4898 + 4899 032675 200 00 0 00 034535 C3000: MOVE [252525252525] ;PRELOAD AC,E WITH 252525,,252525 + 4900 REPEAT 7, + 4901 < EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0> + 4902 032676 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 + 4903 032677 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 + 4904 032700 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 + 4905 032701 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 + 4906 032702 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 + 4907 032703 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 + 4908 032704 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 + 4909 032705 312 00 0 00 034535 CAME [252525252525] ;PASS IF C(AC0)=252525,,252525 + 4910 STOP^ + 4911 032706 254 04 0 00 032707 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4912 032707 324 00 0 00 032710 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4913 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4914 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4915 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4916 + 4917 ;********** + 4918 PAGE +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 16-1 +DAKADM MAC 19-JAN-77 13:41 TEST OF EXCH INSTRUCTION SEQ 0108 + + 4919 ;THIS TEST VERIFIES THAT EXCH MOVES C(AC) INTO E AND C(E) INTO THE AC. + 4920 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1. EXCH IS EXECUTED 7 TIMES; THEN, + 4921 ;THE AC IS CHECKED FOR -1,,-1 AND E IS CHECKED FOR 0. IF EITHER OF THESE + 4922 ;RESULTS ARE NOT FOUND, THIS TEST FAILS. + 4923 + 4924 032710 400 00 0 00 000000 C3100: SETZ ;PRELOAD AC WITH 0 + 4925 032711 474 01 0 00 000000 SETO 1,0 ;PRELOAD E WITH -1,,-1 + 4926 REPEAT 7, + 4927 < EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E)> + 4928 032712 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) + 4929 032713 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) + 4930 032714 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) + 4931 032715 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) + 4932 032716 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) + 4933 032717 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) + 4934 032720 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) + 4935 032721 312 00 0 00 034466 CAME [-1] ;PASS IF C(AC)=-1,,-1 + 4936 STOP^ + 4937 032722 254 04 0 00 032723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4938 032723 324 00 0 00 032724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4939 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4940 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4941 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4942 032724 312 01 0 00 034536 C3110: CAME 1,[0] ;PASS IF C(E)=0 + 4943 STOP^ + 4944 032725 254 04 0 00 032726 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4945 032726 324 00 0 00 032727 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4946 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4947 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4948 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4949 + 4950 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 17 +DAKADM MAC 19-JAN-77 13:41 TEST OF MOVEM INSTRUCTION SEQ 0109 + + 4951 SUBTTL TEST OF MOVEM INSTRUCTION + 4952 + 4953 ;THIS TEST VERIFIES THAT MOVEM PLACES C(AC) INTO E AND DOES NOT MODIFY C(AC) + 4954 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN AC AND E SHOULD + 4955 ;BE -1,,-1. IF C(AC) AND C(E)=-1,,-1, THIS TEST PASSES + 4956 + 4957 032727 474 00 0 00 000000 C3200: SETO ;PRELOAD AC WITH -1,,-1 + 4958 032730 400 01 0 00 000000 SETZ 1,0 ;PRELOAD E WITH 0 + 4959 032731 202 00 0 00 000001 MOVEM 1 ;*MOVEM SHOULD PLACE -1,,-1 INTO E + 4960 032732 312 01 0 00 034466 CAME 1,[-1] ;PASS IF C(E)=-1,,-1 + 4961 STOP^ + 4962 032733 254 04 0 00 032734 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4963 032734 324 00 0 00 032735 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4964 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4965 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4966 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4967 032735 312 00 0 00 034466 C3210: CAME 0,[-1] ;PASS IF C(AC)=-1,,-1 + 4968 STOP^ + 4969 032736 254 04 0 00 032737 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4970 032737 324 00 0 00 032740 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4971 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4972 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4973 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4974 + 4975 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 18 +DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0110 + + 4976 SUBTTL TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS + 4977 + 4978 ;********** + 4979 + 4980 ;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS RETURNS TO THE NEXT SEQUENTIAL INSTRUCTION + 4981 ;IF JFCL SKIPS THE NEXT INSTRUCTION, THIS TEST FAILS + 4982 + 4983 032740 200 00 0 00 034537 C3300: MOVE [HALT .+3] ;THIS INSTRUCTION SHOULD NOT AFFECT THE TEST + 4984 032741 255 17 0 00 032742 JFCL 17,.+1 ;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION + 4985 032742 304 00 0 00 000000 CAIA ;SKIP HALT INSTRUCTION IF JFCL PASSES + 4986 STOP^ + 4987 032743 254 04 0 00 032744 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 4988 032744 324 00 0 00 032745 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 4989 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 4990 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 4991 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 4992 + 4993 ;********** + 4994 + 4995 ;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE CRY0 FLAG. + 4996 ;ADDI IS USED TO SET CRY0. THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR CRY0. + 4997 ;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER CRY0 WAS RESET BY THE PREVIOUS JFCL. + 4998 ;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR CRY0 + 4999 + 5000 032745 200 00 0 00 034466 C3400: MOVE [-1] ;PRELOAD AC WITH -1,,-1 + 5001 032746 271 00 0 00 000001 ADDI 1 ;SET CRY0 FLAG + 5002 032747 255 17 0 00 032750 JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS + 5003 032750 255 04 0 00 032752 JFCL 4,.+2 ;PASS IF CRY0 WAS RESET BY PREVIOUS INSTRUCTION + 5004 032751 334 00 0 00 000000 SKIPA ;SKIP HALT IF CRY0 WAS CLEARED + 5005 STOP^ + 5006 032752 254 04 0 00 032753 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5007 032753 324 00 0 00 032754 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5008 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5009 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5010 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5011 + 5012 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 19 +DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0111 + + 5013 ;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE CRY1 FLAG. + 5014 ;ADDI IS USED TO SET CRY1. THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR CRY1. + 5015 ;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER CRY1 WAS RESET BY THE PREVIOUS JFCL. + 5016 ;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR CRY1 + 5017 + 5018 032754 200 00 0 00 034466 C3500: MOVE [-1] ;PRELOAD AC WITH -1,,-1 + 5019 032755 271 00 0 00 000001 ADDI 1 ;SET CRY1 FLAG + 5020 032756 255 17 0 00 032757 JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS + 5021 032757 255 02 0 00 032761 JFCL 2,.+2 ;PASS IF CRY1 WAS RESET BY PREVIOUS INSTRUCTION + 5022 032760 334 00 0 00 000000 SKIPA ;SKIP HALT IF CRY1 WAS CLEARED + 5023 STOP^ + 5024 032761 254 04 0 00 032762 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5025 032762 324 00 0 00 032763 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5026 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5027 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5028 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5029 + 5030 ;********** + 5031 + 5032 ;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE AROV FLAG. + 5033 ;ADDI IS USED TO SET AROV. THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR AROV. + 5034 ;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER AROV WAS RESET BY THE PREVIOUS JFCL. + 5035 ;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR AROV + 5036 + 5037 032763 205 00 0 00 400000 C3600: MOVSI 400000 ;PRELOAD AC WITH -1,,-1 + 5038 032764 270 00 0 00 034465 ADD [XWD 400000,0] ;SET AROV FLAG + 5039 032765 255 17 0 00 032766 JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS + 5040 032766 255 10 0 00 032770 JFCL 10,.+2 ;PASS IF AROV WAS RESET BY PREVIOUS INSTRUCTION + 5041 032767 334 00 0 00 000000 SKIPA ;SKIP HALT IF AROV WAS CLEARED + 5042 STOP^ + 5043 032770 254 04 0 00 032771 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5044 032771 324 00 0 00 032772 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5045 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5046 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5047 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5048 + 5049 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 20 +DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0112 + + 5050 ;THIS TEST VERIFIES THAT JFCL 0, IS A NO-OP. + 5051 ;IN THIS TEST, ADD IS USED TO SET CRY0. THEN JFCL 0,.+2 IS EXECUTED. + 5052 ;IF JFCL 0,.+2 DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES + 5053 + 5054 032772 205 00 0 00 400000 C3700: MOVSI 400000 ;PRELOAD AC WITH MOST NEGATIVE NUMBER + 5055 032773 270 00 0 00 034466 ADD [-1] ;SET CRY0 FLAG + 5056 032774 255 00 0 00 032776 JFCL .+2 ;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION + 5057 032775 334 00 0 00 000000 SKIPA ;PASS IF JFCL DID NOT SKIP + 5058 STOP^ + 5059 032776 254 04 0 00 032777 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5060 032777 324 00 0 00 033000 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5061 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5062 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5063 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5064 + 5065 ;********** + 5066 + 5067 ;THIS TEST VERIFIES THAT JFCL 0, IS A NO-OP. + 5068 ;IN THIS TEST, ADD IS USED TO SET CRY1. THEN JFCL 0,.+2 IS EXECUTED. + 5069 ;IF JFCL 0,.+2 DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES + 5070 + 5071 033000 205 00 0 00 200000 C4000: MOVSI 200000 ;PRELOAD AC WITH MOST NEGATIVE NUMBER + 5072 033001 270 00 0 00 034464 ADD [XWD 200000,0] ;SET CRY1 FLAG + 5073 033002 255 00 0 00 033004 JFCL .+2 ;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION + 5074 033003 334 00 0 00 000000 SKIPA ;PASS IF JFCL DID NOT SKIP + 5075 STOP^ + 5076 033004 254 04 0 00 033005 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5077 033005 324 00 0 00 033006 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5078 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5079 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5080 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5081 + 5082 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 21 +DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0113 + + 5083 ;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND + 5084 ;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. + 5085 ;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1. THEN, JFCL SHOULD SKIP + 5086 ;BECAUSE A FLAG WAS SET BY ADDI + 5087 ;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR + 5088 ;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET + 5089 + 5090 033006 200 00 0 00 034466 C4100: MOVE [-1] ;PRELOAD AC WITH ALL ONES + 5091 033007 271 00 0 00 000001 ADDI 1 ;*ADDI SHOULD SET CRY0/1 FLAGS + 5092 033010 255 17 0 00 033012 JFCL 17,.+2 ;*JFCL SHOULD JUMP BECAUSE FLAGS ARE SET + 5093 STOP^ + 5094 033011 254 04 0 00 033012 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5095 033012 324 00 0 00 033013 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5096 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5097 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5098 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5099 + 5100 ;********** + 5101 + 5102 ;THIS TEST VERIFIES THAT CAI DOES NOT CLEAR ANY ARITHMETIC FLAGS. + 5103 ;FIRST, CRY0 AND CRY1 ARE SET BY ADDI; THEN CAI IS EXECUTED. + 5104 ;JFCL SHOULD JUMP BECAUSE FLAGS ARE SET. IF JFCL DOES NOT JUMP, + 5105 ;THE FLAGS WERE CLEARED BY CAI. HENCE, CAI FAILED + 5106 + 5107 033013 200 00 0 00 034466 C4200: MOVE [-1] ;PRELOAD AC WITH -1,,-1 + 5108 033014 271 00 0 00 000001 ADDI 1 ;SET CYR0/1 FLAGS + 5109 033015 300 17 0 00 000017 CAI 17,17 ;*CAI SHOULD NOT CLEAR FLAGS + 5110 033016 255 17 0 00 033020 JFCL 17,.+2 ;PASS IF CAI CLEARED FLAGS + 5111 STOP^ + 5112 033017 254 04 0 00 033020 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5113 033020 324 00 0 00 033021 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5114 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5115 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5116 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5117 + 5118 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 22 +DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0114 + + 5119 ;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND + 5120 ;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. + 5121 ;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1. THEN JFCL SHOULD SKIP + 5122 ;BECAUSE A FLAG WAS SET BY ADDI + 5123 ;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR + 5124 ;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET + 5125 + 5126 033021 200 00 0 00 034466 C4300: MOVE [-1] ;PRELOAD AC WITH ALL ONES + 5127 033022 271 00 0 00 000001 ADDI 1 ;*ADDI SHOULD SET CRY1 FLAGS + 5128 033023 255 02 0 00 033025 JFCL 2,.+2 ;*JFCL SHOULD JUMP BECAUSE CRY1 FLAG IS SET + 5129 STOP^ + 5130 033024 254 04 0 00 033025 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5131 033025 324 00 0 00 033026 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5132 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5133 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5134 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5135 + 5136 ;********** + 5137 + 5138 ;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND + 5139 ;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. + 5140 ;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1. THEN, JFCL SHOULD SKIP + 5141 ;BECAUSE A FLAG WAS SET BY ADDI + 5142 ;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR + 5143 ;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET + 5144 + 5145 033026 200 00 0 00 034466 C4400: MOVE [-1] ;PRELOAD AC WITH ALL ONES + 5146 033027 271 00 0 00 000001 ADDI 1 ;*ADDI SHOULD SET CRY0 FLAG + 5147 033030 255 04 0 00 033032 JFCL 4,.+2 ;*JFCL SHOULD JUMP BECAUSE CRY0 FLAG IS SET + 5148 STOP^ + 5149 033031 254 04 0 00 033032 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5150 033032 324 00 0 00 033033 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5151 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5152 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5153 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5154 + 5155 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 23 +DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0115 + + 5156 ;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND + 5157 ;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. + 5158 ;BECAUSE A FLAG WAS SET BY ADD + 5159 ;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR + 5160 ;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET + 5161 + 5162 033033 205 00 0 00 400000 C4500: MOVSI 400000 ;PRELOAD AC WITH ALL ONES + 5163 033034 270 00 0 00 034465 ADD [XWD 400000,0] ;*ADD SHOULD SET AROV FLAG + 5164 033035 255 10 0 00 033037 JFCL 10,.+2 ;*JFCL SHOULD JUMP BECAUSE AROV FLAG IS SET + 5165 STOP^ + 5166 033036 254 04 0 00 033037 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5167 033037 324 00 0 00 033040 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5168 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5169 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5170 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5171 + 5172 ;********** + 5173 + 5174 ;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE FLOATING OVERFLOW FLAG (FOV). + 5175 ;FIRST JFCL 17,.+1 IS EXECUTED TO CLEAR FOV. THEN, JFCL 1,.+2 IS EXECUTED TO DETERMINE + 5176 ;WHETHER FOV WAS CLEARED. IF FOV WAS CLEAR, THIS TEST PASSES + 5177 + 5178 033040 255 17 0 00 033041 C4600: JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS + 5179 033041 255 01 0 00 033043 JFCL 1,.+2 ;PASS IF FOV WAS CLEARED + 5180 033042 334 00 0 00 000000 SKIPA ;SKIP HALT IF TEST PASSED + 5181 STOP^ + 5182 033043 254 04 0 00 033044 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5183 033044 324 00 0 00 033045 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5184 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5185 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5186 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5187 + 5188 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 24 +DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0116 + + 5189 ;THIS TEST VERIFIES THAT JFCL 13, DOES NOT RESET CRY0. + 5190 ;FIRST CRY0 AND CRY1 ARE SET BY ADDI; THEN, JFCL 13,.+2 IS EXECUTED + 5191 ;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT CRY0. + 5192 ;THIS TEST PASSES IF JFCL 13,.+1 DID NOT RESET CRY0. + 5193 + 5194 033045 200 00 0 00 034466 C4700: MOVE [-1] ;RELOAD AC WITH -1,,-1 + 5195 033046 271 00 0 00 000001 ADDI 1 ;SET CRY0/1 + 5196 033047 255 13 0 00 033050 JFCL 13,.+1 ;*JFCL 13, SHOULD NOT RESET CRY0 + 5197 033050 255 04 0 00 033052 JFCL 4,.+2 ;FAIL IF CRY 0 WAS RESET + 5198 STOP^ + 5199 033051 254 04 0 00 033052 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5200 033052 324 00 0 00 033053 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5201 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5202 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5203 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5204 + 5205 ;********** + 5206 + 5207 ;THIS TEST VERIFIES THAT JFCL 15, DOES NOT RESET CRY1. + 5208 ;FIRST CRY0 AND CRY1 ARE SET BY ADDI; THEN, JFCL15,.+2 IS EXECUTED + 5209 ;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT CRY1. + 5210 ;THIS TEST PASSES IF JFCL 15,.+1 DID NOT RESET CRY1. + 5211 + 5212 033053 200 00 0 00 034466 C5000: MOVE [-1] ;PRELOAD AC WITH -1,,-1 + 5213 033054 271 00 0 00 000001 ADDI 1 ;SET CRY0/1 + 5214 033055 255 15 0 00 033056 JFCL 15,.+1 ;*JFCL15, SHOULD NOT RESET CRY0 + 5215 033056 255 02 0 00 033060 JFCL 2,.+2 ;FAIL IF CRY1 WAS RESET + 5216 STOP^ + 5217 033057 254 04 0 00 033060 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5218 033060 324 00 0 00 033061 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5219 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5220 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5221 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5222 + 5223 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 25 +DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0117 + + 5224 ;THIS TEST VERIFIES THAT JFCL 17, DOES NOT RESET AROV. + 5225 ;FIRST AROV IS SET BY ADD; THEN, JFCL 17,.+2 IS EXECUTED + 5226 ;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT AROV. + 5227 ;THIS TEST PASSES IF JFCL 17,.+1 DID NOT RESET AROV. + 5228 + 5229 033061 205 00 0 00 400000 C5100: MOVSI 400000 ;PRELOAD AC WITH -1,,-1 + 5230 033062 270 00 0 00 034465 ADD [XWD 400000,0] ;SET AROV + 5231 033063 255 07 0 00 033064 JFCL 7,.+1 ;*JFCL 17, SHOULD NOT RESET AROV + 5232 033064 255 10 0 00 033066 JFCL 10,.+2 ;FAIL IF AROV WAS RESET + 5233 STOP^ + 5234 033065 254 04 0 00 033066 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5235 033066 324 00 0 00 033067 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5236 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5237 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5238 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5239 + 5240 ;********** + 5241 + 5242 ;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET AROV. + 5243 ;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD. + 5244 ;AROV IS THEN CHECKED. IF AROV IS SET, THIS TEST FAILS. + 5245 + 5246 033067 255 17 0 00 033070 C5200: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS + 5247 033070 400 00 0 00 000000 SETZ ;PRELOAD AC,E WITH 0 + 5248 033071 270 00 0 00 000000 ADD ;*ADD SHOULD NOT SET AROV + 5249 033072 255 10 0 00 033074 JFCL 10,.+2 ;PASS IF AROV WAS RESET + 5250 033073 334 00 0 00 000000 SKIPA ;SKIP HALT IF ADD PASSED + 5251 STOP^ + 5252 033074 254 04 0 00 033075 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5253 033075 324 00 0 00 033076 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5254 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5255 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5256 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5257 + 5258 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 26 +DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0118 + + 5259 ;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET CRY0. + 5260 ;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD. + 5261 ;CRY0 IS THEN CHECKED. IF CRY0 IS SET, THIS TEST FAILS. + 5262 + 5263 + 5264 033076 400 00 0 00 000000 C5300: SETZ ;RESET ARITHMETIC FLAGS + 5265 033077 255 17 0 00 033100 JFCL 17,.+1 ;PRELOAD AC,E WITH 0 + 5266 033100 270 00 0 00 000000 ADD ;*ADD SHOULD NOT SET CRY0 + 5267 033101 255 04 0 00 033103 JFCL 4,.+2 ;PASS IF CRY0 WAS RESET + 5268 033102 334 00 0 00 000000 SKIPA ;SKIP HALT IF ADD PASSED + 5269 STOP^ + 5270 033103 254 04 0 00 033104 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5271 033104 324 00 0 00 033105 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5272 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5273 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5274 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5275 + 5276 ;********** + 5277 + 5278 ;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET CRY1. + 5279 ;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD. + 5280 ;CRY1 IS THEN CHECKED. IF CRY1 IS SET, THIS TEST FAILS. + 5281 + 5282 033105 400 00 0 00 000000 C5400: SETZ ;RESET ARITHMETIC FLAGS + 5283 033106 255 17 0 00 033107 JFCL 17,.+1 ;PRELOAD AC,E WITH 0 + 5284 033107 270 00 0 00 000000 ADD ;*ADD SHOULD NOT SET CRY1 + 5285 033110 255 02 0 00 033112 JFCL 2,.+2 ;PASS IF CRY1 WAS RESET + 5286 033111 334 00 0 00 000000 SKIPA ;SKIP HALT IF ADD PASSED + 5287 STOP^ + 5288 033112 254 04 0 00 033113 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5289 033113 324 00 0 00 033114 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5290 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5291 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5292 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5293 + 5294 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 27 +DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0119 + + 5295 ;THIS TEST VERIFIES THAT THE 30X AND THE 31X INSTRUCTION GROUPS DO NOT AFFECT + 5296 ;THE ARITHMETIC FLAGS. FIRST, THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, CAI + 5297 ;AND CAM ARE EXECUTED. THE FLAGS ARE THEN CHECKED. IF ANY OF THE FLAGS ARE SET, + 5298 ;THIS TEST FAILS AND CAI OR CAM IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS + 5299 + 5300 033114 255 17 0 00 033115 C5500: JFCL 17,.+1 ;CLEAR ALL FLAGS + 5301 033115 400 00 0 00 000000 SETZ ;CLEAR AC,0 + 5302 033116 300 00 0 00 000000 CAI ;*CAI SHOULD NOT SET ANY ARITHMETIC FLAG + 5303 033117 310 00 0 00 034466 CAM [-1] ;*CAM SHOULD NOT SET ANY ARITHMETIC FLAG + 5304 033120 255 17 0 00 033122 JFCL 17,.+2 ;FAIL IF ANY FLAG WAS SET + 5305 033121 334 00 0 00 000000 SKIPA ;SKIP HALT IF TEST PASSED + 5306 STOP^ + 5307 033122 254 04 0 00 033123 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5308 033123 324 00 0 00 033124 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5309 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5310 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5311 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5312 + 5313 ;********** + 5314 + 5315 ;THIS TEST VERIFIES THAT THE BOOLEAN INSTRUCTION GROUPS DO NOT AFFECT + 5316 ;THE ARITHMETIC FLAGS. FIRST THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, XOR [0] + 5317 ;AND XOR [-1] ARE EXECUTED. THE FLAGS ARE THEN CHECKED. IF ANY OF THE FLAGS ARE SET, + 5318 ;THIS TEST FAILS AND XOR IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS + 5319 + 5320 033124 255 17 0 00 033125 C5600: JFCL 17,.+1 ;CLEAR ALL FLAGS + 5321 033125 474 00 0 00 000000 SETO ;CLEAR AC,0 + 5322 033126 430 00 0 00 034536 XOR [0] ;*XOR SHOULD NOT SET ANY ARITHMETIC FLAG + 5323 033127 430 00 0 00 034466 XOR [-1] ;*XOR SHOULD NOT SET ANY ARITHMETIC FLAG + 5324 033130 255 17 0 00 033132 JFCL 17,.+2 ;FAIL IF ANY FLAG WAS SET + 5325 033131 334 00 0 00 000000 SKIPA ;SKIP HALT IF TEST PASSED + 5326 STOP^ + 5327 033132 254 04 0 00 033133 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5328 033133 324 00 0 00 033134 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5329 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5330 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5331 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5332 + 5333 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 28 +DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0120 + + 5334 ;THIS TEST VERIFIES THAT THE AOBJX INSTRUCTION GROUP DOES DO NOT AFFECT + 5335 ;THE ARITHMETIC FLAGS. FIRST THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, AOBJN + 5336 ;AND AOBJP ARE EXECUTED. THE FLAGS ARE THEN CHECKED. IF ANY OF THE FLAGS ARE SET, + 5337 ;THIS TEST FAILS AND AOBJN OR AOBJP IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS + 5338 + 5339 033134 474 00 0 00 000000 C5700: SETO ;CLEAR ALL FLAGS + 5340 033135 255 17 0 00 033136 JFCL 17,.+1 ;CLEAR AC,0 + 5341 033136 253 00 0 00 033137 AOBJN .+1 ;*AOBJN SHOULD NOT SET ANY ARITHMETIC ARITHMETIC + 5342 033137 252 00 0 00 033140 AOBJP .+1 ;*AOBJP SHOULD NOT SET ANY ARITHMETIC FLAG + 5343 033140 255 17 0 00 033142 JFCL 17,.+2 ;FAIL IF ANY FLAG WAS SET + 5344 033141 334 00 0 00 000000 SKIPA ;SKIP HALT IF TST PASSED + 5345 STOP^ + 5346 033142 254 04 0 00 033143 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5347 033143 324 00 0 00 033144 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5348 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5349 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5350 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5351 + 5352 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 29 +DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0121 + + 5353 ;THIS TEST VERIFIES THAT SKIP DOES NOT AFFECT THE FLAGS. + 5354 ;FIRST, THE ARITHMETIC FLAGS ARE CLEARED; THEN, SKIP IS EXECUTED. + 5355 ;IF SKIP SETS AROV, CRYO, CRY1 OR FOV, THIS TEST FAILS. + 5356 + 5357 033144 255 17 0 00 033145 C5701: JFCL 17,.+1 ;CLEAR ALL FLAGS + 5358 033145 330 00 0 00 034466 SKIP 0,[-1] ;*SKIP SHOULD NOT SET ANY FLAGS + 5359 033146 255 17 0 00 033150 JFCL 17,.+2 ;FAIL IF ANY FLAG IS SET + 5360 033147 334 00 0 00 000000 SKIPA ;PASS IF NO FLAG IS SET + 5361 STOP^ + 5362 033150 254 04 0 00 033151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5363 033151 324 00 0 00 033152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5364 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5365 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5366 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5367 + 5368 ;********** + 5369 + 5370 ;THIS TEST VERIFIES THAT JUMP DOES NOT AFFECT THE FLAGS. + 5371 ;FIRST, THE ARITHMETIC FLAGS ARE CLEARED; THEN, JUMP IS EXECUTED. + 5372 ;IF JUMP SETS AROV, CRYO, CRY1 OR FOV, THIS TEST FAILS. + 5373 + 5374 033152 255 17 0 00 033153 C5702: JFCL 17,.+1 ;CLEAR ALL FLAGS + 5375 033153 320 00 0 00 034466 JUMP 0,[-1] ;*JUMP SHOULD NOT SET ANY FLAGS + 5376 033154 255 17 0 00 033156 JFCL 17,.+2 ;FAIL IF ANY FLAG IS SET + 5377 033155 334 00 0 00 000000 SKIPA ;PASS IF NO FLAG IS SET + 5378 STOP^ + 5379 033156 254 04 0 00 033157 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5380 033157 324 00 0 00 033160 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5381 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5382 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5383 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5384 + 5385 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 30 +DAKADM MAC 19-JAN-77 13:41 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0122 + + 5386 SUBTTL TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS + 5387 + 5388 ;********** + 5389 + 5390 ;THIS TEST VERIFIES THAT 'JRST, 0' DOES NOT SET ANY FLAGS. + 5391 ;FIRST THE ARITHMETIC FLAGS ARE RESET; THEN, 'JRST 0,.+1' IS EXECUTED + 5392 ;THE AROV,CRY0 AND CRY1 FLAGS ARE THEN CHECKED. IF ANY + 5393 ;OF THESE FLAGS ARE SET, THIS TEST FAILS + 5394 + 5395 033160 255 17 0 00 033161 C6000: JFCL 17,.+1 ;RESET ALL FLAGS + 5396 033161 254 00 0 00 033162 JRST .+1 ;*JRST SHOULD NOT SET ANY FLAGS + 5397 033162 255 16 0 00 033164 JFCL 16,.+2 ;PASS IF NO FLAGS ARE SET + 5398 033163 334 00 0 00 000000 SKIPA ;SKIP HALT IF JRST PASSES + 5399 STOP^ + 5400 033164 254 04 0 00 033165 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5401 033165 324 00 0 00 033166 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5402 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5403 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5404 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5405 + 5406 ;********** + 5407 + 5408 ;THIS TEST VERIFIES THAT 'MOVE 2,2' DOES NOT SET ANY FLAGS. + 5409 ;FIRST, THE ARITHMETIC FLAGS ARE RESET; THEN, 'MOVE 2,2' IS EXECUTED. + 5410 ;THE FOV,AROV,CRY0 AND CRY1 FLAGS ARE THEN CHECKED. IF ANY + 5411 ;OF THESE FLAGS ARE SET, THIS TEST FAILS + 5412 + 5413 033166 255 17 0 00 033167 C6100: JFCL 17,.+1 ;RESET ALL FLAGS + 5414 033167 200 02 0 00 000002 MOVE 2,2 ;*MOVE SHOULD NOT SET ANY FLAGS + 5415 033170 255 17 0 00 033172 JFCL 17,.+2 ;PASS IF NO FLAGS ARE SET + 5416 033171 334 00 0 00 000000 SKIPA ;SKIP HALT IF MOVE PASSED + 5417 STOP^ + 5418 033172 254 04 0 00 033173 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5419 033173 324 00 0 00 033174 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5420 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5421 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5422 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5423 + 5424 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 31 +DAKADM MAC 19-JAN-77 13:41 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0123 + + 5425 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG + 5426 ;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE CRY0 FLAG. + 5427 ;FIRST, ALL FLAGS ARE RESET; THEN AC1 IS SET TO SPECIFY CRY0. + 5428 ;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET CRY0. CRY0 IS THEN CHECKED. IF + 5429 ;CRY0 IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY + 5430 + 5431 033174 255 17 0 00 033175 C6200: JFCL 17,.+1 ;CLEAR ALL FLAGS + 5432 SFLAG CRY0 ^;SET CRY0 FLAG + 5433 + 5434 033175 205 01 0 00 200000 MOVSI 1,CRY0 + 5435 033176 255 17 0 00 033177 JFCL 17,.+1 ;RESET ALL FLAGS + 5436 033177 254 02 0 01 033200 JRST 2,.+1(1) ;SET CRY0 FLAG + 5437 033200 255 04 0 00 033202 JFCL 4,.+2 ;PASS IF CRY0 IS SET + 5438 STOP^ + 5439 033201 254 04 0 00 033202 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5440 033202 324 00 0 00 033203 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5441 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5442 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5443 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5444 + 5445 ;********** + 5446 + 5447 ;THIS TEST VERIFIES THAT JRST 2,.+(1) WILL SET THE ARITHMETIC FLAG + 5448 ;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAIN 0. HENCE, JRST 2,.+1(1) + 5449 ;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE CRY0/1, FLAGS ARE SET BY ADDI; + 5450 ;THEN THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1. IF CRY1 WAS CLEARED, THE + 5451 ;TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY + 5452 + 5453 033203 200 00 0 00 034466 C6300: MOVE [-1] ;PRELOAD AC0 WITH -1,,-1 + 5454 033204 271 00 0 00 000001 ADDI 1 ;SET CRY0/1 FLAGS + 5455 SFLAG 0 ^;RESET ALL ARITHMETIC FLAGS + 5456 + 5457 033205 205 01 0 00 000000 MOVSI 1,0 + 5458 033206 255 17 0 00 033207 JFCL 17,.+1 ;RESET ALL FLAGS + 5459 033207 254 02 0 01 033210 JRST 2,.+1(1) ;SET 0 FLAG + 5460 033210 255 02 0 00 033212 JFCL 2,.+2 ;PASS IF CRY1 IS RESET + 5461 033211 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSED + 5462 STOP^ + 5463 033212 254 04 0 00 033213 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5464 033213 324 00 0 00 033214 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5465 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5466 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5467 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5468 + 5469 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 32 +DAKADM MAC 19-JAN-77 13:41 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0124 + + 5470 + 5471 ;THIS TEST VERIFIES THAT JRST 2,.+(1) WILL SET THE ARITHMETIC FLAG + 5472 ;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAIN 0. HENCE, JRST 2,.+1(1) + 5473 ;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE CRY0/1, FLAGS ARE SET BY ADD + 5474 ;THEN THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1. IF AROV WAS CLEARED, THE + 5475 ;TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY + 5476 + 5477 033214 205 00 0 00 400000 C6400: MOVSI 400000 ;PRELOAD AC0 WITH -1,,-1 + 5478 033215 270 00 0 00 034466 ADD [-1] ;SET CRY0 AND AROV FLAGS + 5479 SFLAG 0 ^;RESET ALL ARITHMETIC FLAGS + 5480 + 5481 033216 205 01 0 00 000000 MOVSI 1,0 + 5482 033217 255 17 0 00 033220 JFCL 17,.+1 ;RESET ALL FLAGS + 5483 033220 254 02 0 01 033221 JRST 2,.+1(1) ;SET 0 FLAG + 5484 033221 255 10 0 00 033223 JFCL 10,.+2 ;PASS IF AROV IS RESET + 5485 033222 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSED + 5486 STOP^ + 5487 033223 254 04 0 00 033224 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5488 033224 324 00 0 00 033225 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5489 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5490 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5491 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5492 + 5493 ;********** + 5494 + 5495 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG + 5496 ;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE AROV FLAG. + 5497 ;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY AROV. + 5498 ;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET AROV. AROV IS THEN CHECKED. IF + 5499 ;AROV IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY + 5500 + 5501 033225 C6500: SFLAG AROV ^;SET AROV FLAG + 5502 + 5503 033225 205 01 0 00 400000 MOVSI 1,AROV + 5504 033226 255 17 0 00 033227 JFCL 17,.+1 ;RESET ALL FLAGS + 5505 033227 254 02 0 01 033230 JRST 2,.+1(1) ;SET AROV FLAG + 5506 033230 255 10 0 00 033232 JFCL 10,.+2 ;PASS IF AROV WAS SET + 5507 STOP^ + 5508 033231 254 04 0 00 033232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5509 033232 324 00 0 00 033233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5510 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5511 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5512 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5513 + 5514 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 33 +DAKADM MAC 19-JAN-77 13:41 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0125 + + 5515 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG + 5516 ;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE CRY1 FLAG. + 5517 ;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY CRY1. + 5518 ;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET CRY1. CRY1 IS THEN CHECKED. IF + 5519 ;CRY1 IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY + 5520 + 5521 033233 C6600: SFLAG CRY1 ^;SET CRY1 FLAG + 5522 + 5523 033233 205 01 0 00 100000 MOVSI 1,CRY1 + 5524 033234 255 17 0 00 033235 JFCL 17,.+1 ;RESET ALL FLAGS + 5525 033235 254 02 0 01 033236 JRST 2,.+1(1) ;SET CRY1 FLAG + 5526 033236 255 02 0 00 033240 JFCL 2,.+2 ;PASS IF CRY1 WAS SET + 5527 STOP^ + 5528 033237 254 04 0 00 033240 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5529 033240 324 00 0 00 033241 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5530 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5531 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5532 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5533 + 5534 ;********** + 5535 + 5536 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG + 5537 ;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE FOV FLAG. + 5538 ;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY FOV. + 5539 ;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET FOV. FOV IS THEN CHECKED. IF + 5540 ;FOV IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY + 5541 + 5542 033241 C6700: SFLAG FOV ^;SET FOV FLAG + 5543 + 5544 033241 205 01 0 00 040000 MOVSI 1,FOV + 5545 033242 255 17 0 00 033243 JFCL 17,.+1 ;RESET ALL FLAGS + 5546 033243 254 02 0 01 033244 JRST 2,.+1(1) ;SET FOV FLAG + 5547 033244 255 01 0 00 033246 JFCL 1,.+2 ;PASS IF FOV WAS SET + 5548 STOP^ + 5549 033245 254 04 0 00 033246 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5550 033246 324 00 0 00 033247 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5551 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5552 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5553 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5554 + 5555 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 34 +DAKADM MAC 19-JAN-77 13:41 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0126 + + 5556 ;THIS TEST VERIFIES THAT JFCL 0, SHOULD NEVER JUMP. + 5557 ;FIRST, FOV IS SET VIA JRST2, ;THEN JFCL 0, + 5558 ;IS EXECUTED. IF JFCL 0, DOES NOT SKIP, THIS TEST PASSES + 5559 + 5560 033247 C7000: SFLAG FOV ^;SET FOV FLAG + 5561 + 5562 033247 205 01 0 00 040000 MOVSI 1,FOV + 5563 033250 255 17 0 00 033251 JFCL 17,.+1 ;RESET ALL FLAGS + 5564 033251 254 02 0 01 033252 JRST 2,.+1(1) ;SET FOV FLAG + 5565 033252 255 00 0 00 033254 JFCL ,.+2 ;*JFCL SHOULD NOT JUMP + 5566 033253 334 00 0 00 000000 SKIPA ;PASS IF JFCL DID NOT JUMP + 5567 STOP^ + 5568 033254 254 04 0 00 033255 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5569 033255 324 00 0 00 033256 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5570 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5571 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5572 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5573 + 5574 ;********** + 5575 + 5576 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG + 5577 ;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAINS 0. HENCE, JRST 2,.+1(1) + 5578 ;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE CRY0, FLAG IS SET BY JRST 2,.+1(1) + 5579 ;WITH C(AC1)=CRY0. THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1 WITH C(AC1)=0. + 5580 ;IF CRY0 WAS CLEARED, THE TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY + 5581 + 5582 033256 C7100: SFLAG CRY0 ^;SET CRY0 FLAGS + 5583 + 5584 033256 205 01 0 00 200000 MOVSI 1,CRY0 + 5585 033257 255 17 0 00 033260 JFCL 17,.+1 ;RESET ALL FLAGS + 5586 033260 254 02 0 01 033261 JRST 2,.+1(1) ;SET CRY0 FLAG + 5587 033261 400 01 0 00 000000 SETZ 1, ;SETUP MASK TO CLEAR ARITHMETIC FLAGS + 5588 033262 254 02 0 01 033263 JRST 2,.+1(1) ;*RESET ARITHMETIC FLAGS + 5589 033263 255 04 0 00 033265 JFCL 4,.+2 ;PASS IF CRY0 FLAG WAS RESET + 5590 033264 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PSSED + 5591 STOP^ + 5592 033265 254 04 0 00 033266 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5593 033266 324 00 0 00 033267 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5594 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5595 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5596 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5597 + 5598 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 35 +DAKADM MAC 19-JAN-77 13:41 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0127 + + 5599 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG + 5600 ;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAINS 0. HENCE, JRST 2,.+1(1) + 5601 ;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE FOV, FLAG IS SET BY JRST 2,.+1(1) + 5602 ;WITH C(AC1)=FOV. THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1 WITH C(AC1)=0. + 5603 ;IF FOV WAS CLEARED, THE TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY + 5604 + 5605 033267 C7200: SFLAG FOV ^;SET FOV FLAG + 5606 + 5607 033267 205 01 0 00 040000 MOVSI 1,FOV + 5608 033270 255 17 0 00 033271 JFCL 17,.+1 ;RESET ALL FLAGS + 5609 033271 254 02 0 01 033272 JRST 2,.+1(1) ;SET FOV FLAG + 5610 033272 400 01 0 00 000000 SETZ 1, ;SETUP MASK TO CLEAR ARITHMETIC FLAGS, + 5611 033273 254 02 0 01 033274 JRST 2,.+1(1) ;*RESET ARITHMETIC FLAGS + 5612 033274 255 01 0 00 033276 JFCL 1,.+2 ;PASS IF FOV FLAG WAS RESET + 5613 033275 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PSSED + 5614 STOP^ + 5615 033276 254 04 0 00 033277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5616 033277 324 00 0 00 033300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5617 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5618 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5619 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5620 + 5621 ;********** + 5622 + 5623 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG + 5624 ;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAINS 0. HENCE, JRST 2,.+1(1) + 5625 ;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE ARITHMETIC FLAGS ARE RESET BY + 5626 ;JFCL 17,.+1. THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1. + 5627 ;IF ALL THE ARITHMETIC FLAGS WERE CLEARED, + 5628 ;THE TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY + 5629 + 5630 033300 255 17 0 00 033301 C7300: JFCL 17,.+1 ;CLEAR FLAGS + 5631 033301 400 01 0 00 000000 SETZ 1, ;SETUP MASK TO CLEAR ARITMETIC FLAGS + 5632 033302 254 02 0 01 033303 JRST 2,.+1(1) ;*RESET ARITHMETIC FLAGS + 5633 033303 255 17 0 00 033305 JFCL 17,.+2 ;PASS IF ALL FLAGS ARE RESET + 5634 033304 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSED + 5635 STOP^ + 5636 033305 254 04 0 00 033306 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5637 033306 324 00 0 00 033307 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5638 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5639 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5640 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5641 + 5642 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 36 +DAKADM MAC 19-JAN-77 13:41 TEST OF JSP INSTRUCTION SEQ 0128 + + 5643 SUBTTL TEST OF JSP INSTRUCTION + 5644 + 5645 ;********** + 5646 + 5647 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS AND PC IN THE AC. + 5648 ;IN THIS CASE, THE FLAGS ARE RESET; THEN, JSP IS EXECUTED. THE AC IS THEN + 5649 ;CHECKED FOR ITS CONTENTS NON-ZERO. IF C(AC)=0, IT INDICATES + 5650 ;THAT NEITHER THE FLAGS NOR THE PC WAS SAVED. HENCE, THIS TEST FAILS. + 5651 + 5652 033307 403 00 0 00 000001 C7400: SETZB 1 ;CLEAR AC AND SETUP MASK TO RESET FLAGS + 5653 033310 254 02 0 01 033311 JRST 2,.+1(1) ;RESET FLAGS + 5654 033311 265 00 0 00 033312 JSP .+1 ;*JSP SHOULD STORE FLAGS AND PC IN THE AC + 5655 033312 336 00 0 00 000000 SKIPN ;PASS IF C(AC) IS NON-ZERO + 5656 STOP ^;IT DID NOT STORE ANY FLAGS OR PC + 5657 + 5658 033313 254 04 0 00 033314 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5659 033314 324 00 0 00 033315 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5660 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5661 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5662 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1 + 5663 + 5664 ;********** + 5665 + 5666 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE PC IN THE RIGHT HALF OF THE AC. + 5667 ;IN THIS CASE, THE AC IS CLEARED, THEN, JSP IS EXECUTED. THE RIGHT HALF OF + 5668 ;THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO. IF C(AC RIGHT HALF) + 5669 ;IS NON-ZERO, IT INDICATED THAT THE PC WAS SAVED; AND THIS TEST PASSES. + 5670 + 5671 033315 400 00 0 00 000000 C7500: SETZ ;CLEAN AC + 5672 033316 265 00 0 00 033317 JSP .+1 ;*JSP SHOULD STORE THE PC IN THE AC + 5673 033317 606 00 0 00 777777 TRNN -1 ;PASS IF C(AC) IN NON-ZERO + 5674 STOP^ + 5675 033320 254 04 0 00 033321 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5676 033321 324 00 0 00 033322 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5677 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5678 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5679 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5680 + 5681 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 37 +DAKADM MAC 19-JAN-77 13:41 TEST OF JSP INSTRUCTION SEQ 0129 + + 5682 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. + 5683 ;FIST, THE AC IS CLEARED; THEN, SOME FLAGS ARE SET AND JSP IS EXECUTED. + 5684 ;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE + 5685 ;WHETHER THE FLAGS WERE SAVED. IF C(AC-LEFT) IS NON-ZERO, THIS TEST PASSES + 5686 + 5687 033322 402 00 0 00 000000 C7600: SETZM 0 ;CLEAR AC + 5688 033323 205 01 0 00 740000 MOVSI 1,740000 ;SET UP MASK TO SET FLAGS + 5689 033324 254 02 0 01 033325 JRST 2,.+1(1) ;SET SOME ARITHMETIC FLAGS + 5690 033325 265 00 0 00 033326 JSP .+1 ;*JSP SHOULD STORE FLAGS IN THE AC + 5691 033326 607 00 0 00 777777 TLNN -1 ;PASS IF C(AC) IS NON-ZERO + 5692 STOP^ + 5693 033327 254 04 0 00 033330 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5694 033330 324 00 0 00 033331 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5695 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5696 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5697 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5698 + 5699 ;********** + 5700 + 5701 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. + 5702 ;FIRST, THE AC IS CLEARED; THEN, THE AROV FLAG IS SET AND JSP IS EXECUTED. + 5703 ;THEN, THE AROV FLAG BIT OF + 5704 ;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE + 5705 ;WHETHER THE AROV FLAG WAS SAVED. IF THE AROV FLAG BIT OF THE AC IS SET, THIS TEST PASSES + 5706 + 5707 033331 402 00 0 00 000000 C7700: SETZM 0 ;CLEAR THE AC + 5708 SFLAG AROV ^;SET AROV FLAG + 5709 + 5710 033332 205 01 0 00 400000 MOVSI 1,AROV + 5711 033333 255 17 0 00 033334 JFCL 17,.+1 ;RESET ALL FLAGS + 5712 033334 254 02 0 01 033335 JRST 2,.+1(1) ;SET AROV FLAG + 5713 033335 265 00 0 00 033336 JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT + 5714 033336 607 00 0 00 400000 TLNN AROV ;PASS IF AROV WAS SAVED + 5715 STOP^ + 5716 033337 254 04 0 00 033340 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5717 033340 324 00 0 00 033341 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5718 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5719 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5720 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5721 + 5722 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 38 +DAKADM MAC 19-JAN-77 13:41 TEST OF JSP INSTRUCTION SEQ 0130 + + 5723 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. + 5724 ;FIRST, THE AC IS CLEARED; THEN, THE CRY0 FLAG IS SET AND JSP IS EXECUTED. + 5725 ;THEN, THE CRY0 FLAG BIT OF + 5726 ;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE + 5727 ;WHETHER THE CRY0 FLAG WAS SAVED. IF THE CRY0 FLAG BIT OF THE AC IS SET, THIS TEST PASSES + 5728 + 5729 033341 402 00 0 00 000000 C10000: SETZM 0 ;CLEAR THE AC + 5730 SFLAG CRY0 ^;SET CRY0 FLAG + 5731 + 5732 033342 205 01 0 00 200000 MOVSI 1,CRY0 + 5733 033343 255 17 0 00 033344 JFCL 17,.+1 ;RESET ALL FLAGS + 5734 033344 254 02 0 01 033345 JRST 2,.+1(1) ;SET CRY0 FLAG + 5735 033345 265 00 0 00 033346 JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT + 5736 033346 607 00 0 00 200000 TLNN CRY0 ;PASS IF CRY0 WAS SAVED + 5737 STOP^ + 5738 033347 254 04 0 00 033350 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5739 033350 324 00 0 00 033351 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5740 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5741 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5742 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5743 + 5744 ;********** + 5745 + 5746 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. + 5747 ;FIRST, THE AC IS CLEARED; THEN, THE CRY1 FLAG IS SET AND JSP IS EXECUTED. + 5748 ;THEN, THE CRY1 FLAG BIT OF + 5749 ;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE + 5750 ;WHETHER THE FLAG WAS SAVED. IF THE CRY1 FLAG BIT OF THE AC IS SET, THIS TEST PASSES + 5751 + 5752 033351 400 00 0 00 000000 C10100: SETZ ;CLEAR AC + 5753 SFLAG CRY1 ^;SET CRY1 FLAG + 5754 + 5755 033352 205 01 0 00 100000 MOVSI 1,CRY1 + 5756 033353 255 17 0 00 033354 JFCL 17,.+1 ;RESET ALL FLAGS + 5757 033354 254 02 0 01 033355 JRST 2,.+1(1) ;SET CRY1 FLAG + 5758 033355 265 00 0 00 033356 JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT + 5759 033356 607 00 0 00 100000 TLNN CRY1 ;PASS IF AROV WAS SAVED + 5760 STOP^ + 5761 033357 254 04 0 00 033360 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5762 033360 324 00 0 00 033361 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5763 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5764 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5765 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5766 + 5767 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 39 +DAKADM MAC 19-JAN-77 13:41 TEST OF JSP INSTRUCTION SEQ 0131 + + 5768 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. + 5769 ;FRIST, THE AC IS CLEARED; THEN, THE FOV FLAG IS SET AND JSP IS EXECUTED. + 5770 ;THEN, THE FOV FLAG BIT OF THE LEFT HALF OF THE AC IS CHECKED FOR + 5771 ;ITS CONTENTS NON-ZERO TO DETERMINE WHETHER THE FOV FLAG WAS SAVED. + 5772 ;IF THE FOV FLAG BIT OF THE AC IS SET, THIS TEST PASSES + 5773 + 5774 033361 400 00 0 00 000000 C10200: SETZ ;CLEAR THE AC + 5775 SFLAG FOV ^;SET FOV FLAG + 5776 + 5777 033362 205 01 0 00 040000 MOVSI 1,FOV + 5778 033363 255 17 0 00 033364 JFCL 17,.+1 ;RESET ALL FLAGS + 5779 033364 254 02 0 01 033365 JRST 2,.+1(1) ;SET FOV FLAG + 5780 033365 265 00 0 00 033366 JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT + 5781 033366 607 00 0 00 040000 TLNN FOV ;PASS IF FOV WAS SAVED + 5782 STOP^ + 5783 033367 254 04 0 00 033370 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5784 033370 324 00 0 00 033371 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5785 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5786 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5787 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5788 + 5789 ;********** + 5790 + 5791 ;THIS TEST VERIFIES THAT JSP WILL STORE ONLY FLAGS THAT EXIST. + 5792 ;I.E. RESET FLAGS WILL NOT BE SET IN THE AC. ONLY FLAGS THAT ARE + 5793 ;CLEARABLE BY JRSTF WILL BE CHECKED HERE. FIRST ALL CLEARABLE + 5794 ;FLAGS ARE RESET BY JRSTF; THEN JSP IS EXECUTED. THE AC IS THEN CHECKED. + 5795 ;IF ANY CLEARABLE FLAGS ARE SET IN THE AC, THIS TEST FAILS. + 5796 + 5797 033371 C10300: SFLAG 0 ^;CLEAR ALL CLEARABLE FLAGS + 5798 + 5799 033371 205 01 0 00 000000 MOVSI 1,0 + 5800 033372 255 17 0 00 033373 JFCL 17,.+1 ;RESET ALL FLAGS + 5801 033373 254 02 0 01 033374 JRST 2,.+1(1) ;SET 0 FLAG + 5802 033374 265 00 0 00 033375 JSP .+1 ;*JSP SHOULD NOT STORE CLEARABLE FALGS + 5803 033375 603 00 0 00 761777 TLNE 761777 ;FAIL IF ANY CLEARABLE FLAG IS SET + 5804 STOP^ + 5805 033376 254 04 0 00 033377 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5806 033377 324 00 0 00 033400 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5807 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5808 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5809 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5810 + 5811 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 40 +DAKADM MAC 19-JAN-77 13:41 TEST OF JSP INSTRUCTION SEQ 0132 + + 5812 ;THIS TEST VERIFIES THAT JSP ALWAYS JUMPS. + 5813 ;IN THIS TEST, JSP .+2 IS EXECUTED. IF JSP JUMPS, THE TEST PASSES; + 5814 ;OTHERWISE, THIS TEST HALTS + 5815 + 5816 033400 265 00 0 00 033402 C10400: JSP .+2 ;*JSP SHOULD ALWAYS JUMP + 5817 STOP^ + 5818 033401 254 04 0 00 033402 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5819 033402 324 00 0 00 033403 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5820 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5821 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5822 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5823 + 5824 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 41 +DAKADM MAC 19-JAN-77 13:41 TEST JRST INSTRUCTION SEQ 0133 + + 5825 SUBTTL TEST JRST INSTRUCTION + 5826 + 5827 ;********** + 5828 + 5829 ;THIS TEST VERIFIES THAT JRST ALWAYS JUMPS. + 5830 ;IN THIS TEST, JRST .+2 IS EXECUTED. IF JRST JUMPS, THE TEST PASSES; + 5831 ;OTHERWISE, THIS TEST HALTS + 5832 + 5833 033403 254 00 0 00 033405 C10500: JRST .+2 ;*JRST 0, SHOULD ALWAYS JUMP + 5834 STOP^ + 5835 033404 254 04 0 00 033405 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5836 033405 324 00 0 00 033406 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5837 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5838 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5839 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5840 + 5841 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 42 +DAKADM MAC 19-JAN-77 13:41 TEST OF AOBJX INSTRUCTIONS SEQ 0134 + + 5842 SUBTTL TEST OF AOBJX INSTRUCTIONS + 5843 + 5844 ;********** + 5845 + 5846 ;THIS TEST VERIFIES THAT AOBJN ALWAYS ADDS 1 TO BOTH HALVES OF THE AC. + 5847 ;FIRST, THE AC IS CLEARED; THEN, AOBJN IS EXECUTED AND THE AC IS CHECKED + 5848 ;FOR 1,,1. IF C(AC)=1,,1, THIS TEST PASSES. + 5849 + 5850 033406 400 00 0 00 000000 C11200: SETZ ;CLEAR THE AC + 5851 033407 253 00 0 00 033410 AOBJN .+1 ;*AOBJN SHOULD ADD 1 TO BOTH HALVES OF THE AC + 5852 033410 312 00 0 00 034442 CAME [XWD 1,1] ;PASS IF C(AC)=1,,1 + 5853 STOP^ + 5854 033411 254 04 0 00 033412 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5855 033412 324 00 0 00 033413 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5856 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5857 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5858 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5859 + 5860 ;********** + 5861 + 5862 ;THIS TEST VERIFIES THAT AOBJP ALWAYS ADDS 1 TO BOTH HALVES OF THE AC. + 5863 ;FIRST, THE AC IS CLEARED; THEN AOBJP IS EXECUTED AND THE AC IS CHECKED + 5864 ;FOR 1,,1. IF C(AC)=1,,1, THIS TEST PASSES. + 5865 + 5866 033413 200 00 0 00 034540 C11300: MOVE [XWD 377777,377777] ;PRELOAD AC WITH 377777,,377777 + 5867 033414 252 00 0 00 033415 AOBJP .+1 ;*AOBJP SHOULD ADD, TO BOTH HALVES OF THE AC + 5868 033415 312 00 0 00 034541 CAME [XWD 400000,400000] ;PASS IF C(AC)=400000,400000 + 5869 STOP^ + 5870 033416 254 04 0 00 033417 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5871 033417 324 00 0 00 033420 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5872 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5873 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5874 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5875 + 5876 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 43 +DAKADM MAC 19-JAN-77 13:41 TEST OF AOBJX INSTRUCTIONS SEQ 0135 + + 5877 ;THIS TEST VERIFIES THAT AOBJN WILL NOT JUMP WHEN C(AC) IS POSITIVE + 5878 ;FIRST, THE AC IS CLEARED; AND AOBJN IS EXECUTED. AOBJN SHOULD NOT JUMP + 5879 ;BECAUSE C(AC) IS POSITIVE. IF AOBJN JUMPS, THIS TEST FAILS + 5880 + 5881 033420 400 00 0 00 000000 C11400: SETZ ;CLEAR THE AC + 5882 033421 253 00 0 00 033423 AOBJN .+2 ;*AOBJN SHOULD NOT JUMP WHEN C(AC) IS POSITIVE + 5883 033422 334 00 0 00 000000 SKIPA ;PASS IF AOBJN DOES NOT JUMP + 5884 STOP^ + 5885 033423 254 04 0 00 033424 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5886 033424 324 00 0 00 033425 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5887 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5888 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5889 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5890 + 5891 ;********** + 5892 + 5893 ;THIS TEST VERIFIES THAT AOBJP WILL JUMP WHEN C(AC) IS POSITIVE + 5894 ;FIRST, THE AC IS CLEARED; AND AOBJP IS EXECUTED. AOBJP SHOULD JUMP + 5895 ;BECAUSE C(AC) IS POSITIVE. IF AOBJP DOES NOT JUMP, THIS TEST FAILS + 5896 + 5897 033425 400 00 0 00 000000 C11500: SETZ ;CLEAR THE AC + 5898 033426 252 00 0 00 033430 AOBJP .+2 ;*AOBJP SHOULD JUMP BECAUSE C(AC) IS POSITIVE + 5899 STOP^ + 5900 033427 254 04 0 00 033430 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5901 033430 324 00 0 00 033431 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5902 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5903 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5904 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5905 + 5906 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 44 +DAKADM MAC 19-JAN-77 13:41 TEST OF AOBJX INSTRUCTIONS SEQ 0136 + + 5907 ;THIS TEST VERIFIES THAT AOBJN WILL JUMP WHEN C(AC) IS NEGATIVE + 5908 ;FIRST, THE AC IS PRELOADED WITH 400000,,0; AND AOBJN IS EXECUTED. AOBJN SHOULD JUMP + 5909 ;BECAUSE C(AC) IS NEGATIVE. IF AOBJN DOES NOT JUMP, THIS TEST FAILS + 5910 + 5911 033431 200 00 0 00 034541 C11600: MOVE [XWD 400000,400000] ;PRELOAD AC WITH 400000,,400000 + 5912 033432 253 00 0 00 033434 AOBJN .+2 ;*AOBJN SHOULD JUMP BECAUSE C(AC) IS NEGATIVE + 5913 STOP^ + 5914 033433 254 04 0 00 033434 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5915 033434 324 00 0 00 033435 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5916 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5917 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5918 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5919 + 5920 ;********** + 5921 + 5922 ;THIS TEST VERIFIES THAT AOBJP WILL NOT JUMP WHEN C(AC) IS NEGATIVE. FIRST, + 5923 ;THE AC IS PRELOADED WITH 400000,,0; AND AOBJP IS EXECUTED. AOBJP SHOULD NOT JUMP + 5924 ;BECAUSE C(AC) IS NEGATIVE. IF AOBJP JUMPS, THIS TEST FAILS + 5925 + 5926 033435 200 00 0 00 034541 C11700: MOVE [XWD 400000,400000] ;PRELOAD AC WITH 400000,,400000 + 5927 033436 252 00 0 00 033440 AOBJP .+2 ;*AOBJP SHOULD NOT JUMP BECAUSE C(AC) IS NEGATIVE + 5928 033437 334 00 0 00 000000 SKIPA ;PASS IF AOBJP DOES NOT JUMP + 5929 STOP^ + 5930 033440 254 04 0 00 033441 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5931 033441 324 00 0 00 033442 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5932 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5933 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5934 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5935 + 5936 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 45 +DAKADM MAC 19-JAN-77 13:41 TEST OF AOBJX INSTRUCTIONS SEQ 0137 + + 5937 ;THIS TEST VERIFIES THAT THERE IS A CARRY FROM BIT 18 TO BIT 17 OF THE AC ON AOBJN. + 5938 ;THE AC IS PRELOADED WITH -1,,-1; THEN AOBJN IS EXECUTED. AOBJN SHOULD ADD ONE + 5939 ;TO BOTH HALVES OF THE AC, GENERATING A CARRY FROM BIT 18 TO BIT 17. IF A + 5940 ;CARRY WAS GENERATED, THIS TEST PASSES + 5941 + 5942 033442 474 00 0 00 000000 C12000: SETO ;PRELOAD AC WITH -1,, -1 + 5943 033443 253 00 0 00 033444 AOBJN .+1 ;*AOBJN SHOULD GENERATE A CARRY FROM BIT 18 TO 17 + 5944 033444 312 00 0 00 034444 CAME [1,,0] ;PASS IF C(AC)=1,,0 (CARRY WAS GENERATED) + 5945 STOP^ + 5946 033445 254 04 0 00 033446 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5947 033446 324 00 0 00 033447 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5948 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5949 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5950 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5951 + 5952 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 46 +DAKADM MAC 19-JAN-77 13:41 TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX SEQ 0138 + + 5953 SUBTTL TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX + 5954 + 5955 ;THIS TEST VERIFIES THAT MOVNI SETS CRY0 AND CRY1 FLAGS ONLY WHEN THE DATA IS 0. + 5956 ;FIRST, THE ARITHMETIC FLAGS ARE RESET; THEN, MOVNI IS EXECUTED WITH DATA OF ZEROS. + 5957 ;THE ARITHMETIC FLAGS ARE CHECKED. + 5958 ; CRY0/1 ARE SET AND AROV AND FOV RESET, THIS TEST PASSES. + 5959 + 5960 033447 255 17 0 00 033450 C12100: JFCL 17,.+1 ;CLEAR FLAGS + 5961 033450 211 00 0 00 000000 MOVNI 0 ;* MOVNI 0 SHOULD SET CRY0/1 + 5962 033451 255 04 0 00 033453 JCRY0 .+2 ;PASS IF CRY0 IS SET + 5963 STOP^ + 5964 033452 254 04 0 00 033453 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5965 033453 324 00 0 00 033454 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5966 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5967 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5968 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5969 033454 255 02 0 00 033456 JCRY1 .+2 ;PASS IF CRY1 IS SET + 5970 STOP^ + 5971 033455 254 04 0 00 033456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5972 033456 324 00 0 00 033457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5973 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5974 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5975 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5976 033457 255 10 0 00 033461 JOV .+2 ;PASS IF AROV RESET + 5977 033460 334 00 0 00 000000 SKIPA + 5978 STOP^ + 5979 033461 254 04 0 00 033462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5980 033462 324 00 0 00 033463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5981 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5982 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5983 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5984 033463 255 01 0 00 033465 JFOV .+2 ;PASS IF FOV RESET + 5985 033464 334 00 0 00 000000 SKIPA + 5986 STOP^ + 5987 033465 254 04 0 00 033466 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 5988 033466 324 00 0 00 033467 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 5989 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 5990 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 5991 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 5992 + 5993 ;********** + 5994 + 5995 ;THIS TEST VERIFIES THAT MOVN WILL NOT SET ARITHMETIC FLAGS WHEN THE DATA IS -1,,-1. + 5996 ;FIRST, THE FLAGS ARE RESET; THEN, MOVN [-1,,-1] IS EXECUTED. + 5997 ;THE ARITHMETIC FLAGS ARE CHECKED. + 5998 ;IF ANY ARITHMETIC FLAG IS SET, THIS TEST FAILS. + 5999 + 6000 033467 255 17 0 00 033470 C12200: JFCL 17,.+1 ;CLEAR FLAGS + 6001 033470 210 00 0 00 034466 MOVN [-1] ;*MOVN [-1,,-1] SHOULD SET ARITHMETIC FLAGS + 6002 033471 255 17 0 00 033473 JFCL 17,.+2 ;FAIL IF AN ARITHMETIC FLAG IS SET + 6003 033472 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF MOVN PASSED. + 6004 STOP^ + 6005 033473 254 04 0 00 033474 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6006 033474 324 00 0 00 033475 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6007 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 46-1 +DAKADM MAC 19-JAN-77 13:41 TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX SEQ 0139 + + 6008 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6009 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6010 + 6011 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 47 +DAKADM MAC 19-JAN-77 13:41 TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX SEQ 0140 + + 6012 ;THIS TEST VERIFIES THAT MOVN WILL SET THE AROV AND + 6013 ;CRY1 FLAGS ONLY WHEN THE DATA IS 400000,,0 + 6014 ;FIRST, THE FLAGS ARE RESET; THEN, MOVN [400000,,0] IS EXECUTED. + 6015 ;THE ARITHMETIC FLAGS ARE CHECKED. + 6016 ;IF AROV AND CRY1 ARE SET AND CRY0 AND FOV ARE RESET, THIS TEST PASSES. + 6017 + 6018 033475 255 17 0 00 033476 C12300: JFCL 17,.+1 ;CLEAR ARITHMETIC FLAGS + 6019 033476 210 00 0 00 034465 MOVN [XWD 400000,0] ;*MOVN [400000,,0] SHOULD SET AROV AND CRY1 ONLY + 6020 033477 255 10 0 00 033501 JOV .+2 ;PASS IF AROV IS SET + 6021 STOP^ + 6022 033500 254 04 0 00 033501 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6023 033501 324 00 0 00 033502 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6024 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6025 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6026 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6027 033502 255 02 0 00 033504 JCRY1 .+2 ;PASS IF CRY0 IS SET + 6028 STOP^ + 6029 033503 254 04 0 00 033504 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6030 033504 324 00 0 00 033505 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6031 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6032 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6033 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6034 033505 255 04 0 00 033507 JCRY0 .+2 ;PASS IF CRY0 IS RESET + 6035 033506 334 00 0 00 000000 SKIPA + 6036 STOP^ + 6037 033507 254 04 0 00 033510 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6038 033510 324 00 0 00 033511 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6039 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6040 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6041 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6042 033511 255 01 0 00 033513 JFOV .+2 ;PASS IF FOV IS RESET + 6043 033512 334 00 0 00 000000 SKIPA + 6044 STOP^ + 6045 033513 254 04 0 00 033514 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6046 033514 324 00 0 00 033515 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6047 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6048 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6049 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6050 + 6051 ;********** + 6052 + 6053 ;THIS TEST VERIFIES THAT MOVM WILL SET THE AROV AND + 6054 ;CRY1 FLAGS ONLY WHEN THE DATA IS 400000,,0 + 6055 ;FIRST, THE FLAGS ARE RESET; THEN, MOVM [400000,,0] IS EXECUTED. + 6056 ;THE ARITHMETIC FLAGS ARE CHECKED. + 6057 ;IF AROV AND CRY1 ARE SET AND CRY0 AND FOV ARE RESET, THIS TEST PASSES. + 6058 + 6059 033515 255 17 0 00 033516 C12301: JFCL 17,.+1 ;CLEAR ARITHMETIC FLAGS + 6060 033516 214 00 0 00 034465 MOVM [XWD 400000,0] ;*MOVM [400000,,0] SHOULD SET AROV AND CRY1 ONLY + 6061 033517 255 10 0 00 033521 JOV .+2 ;PASS IF AROV IS SET + 6062 STOP^ + 6063 033520 254 04 0 00 033521 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6064 033521 324 00 0 00 033522 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6065 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6066 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 47-1 +DAKADM MAC 19-JAN-77 13:41 TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX SEQ 0141 + + 6067 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6068 033522 255 02 0 00 033524 JCRY1 .+2 ;PASS IF CRY0 IS SET + 6069 STOP^ + 6070 033523 254 04 0 00 033524 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6071 033524 324 00 0 00 033525 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6072 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6073 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6074 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6075 033525 255 04 0 00 033527 JCRY0 .+2 ;PASS IF CRY0 IS RESET + 6076 033526 334 00 0 00 000000 SKIPA + 6077 STOP^ + 6078 033527 254 04 0 00 033530 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6079 033530 324 00 0 00 033531 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6080 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6081 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6082 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6083 033531 255 01 0 00 033533 JFOV .+2 ;PASS IF FOV IS RESET + 6084 033532 334 00 0 00 000000 SKIPA + 6085 STOP^ + 6086 033533 254 04 0 00 033534 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6087 033534 324 00 0 00 033535 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6088 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6089 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6090 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6091 + 6092 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 48 +DAKADM MAC 19-JAN-77 13:41 TEST OF AOS AND SOS INSTRUCTIONS SEQ 0142 + + 6093 SUBTTL TEST OF AOS AND SOS INSTRUCTIONS + 6094 + 6095 ;********** + 6096 + 6097 ;THIS TEST VERIFIES THAT AOS ADDS 1 TO MEMORY AND DOES NOT SKIP. + 6098 ;FIRST, E IS CLEARED; THEN, AOS IS EXECUTED. NEXT E IS CHECKED FOR 1. + 6099 ;IF C(E) IS NOT 1 OR AOS SKIPPED, THIS TEST FAILS + 6100 + 6101 033535 400 00 0 00 000000 C12600: SETZ ;CLEAR E + 6102 033536 350 00 0 00 000000 AOS ;*AOS SHOULD ADD 1 TO C(E) AND NOT SKIP + 6103 033537 302 00 0 00 000001 CAIE 1 ;PASS IF C(E)=0,,1 ANDAOS DID NOT SKIP + 6104 STOP^ + 6105 033540 254 04 0 00 033541 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6106 033541 324 00 0 00 033542 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6107 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6108 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6109 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6110 + 6111 ;********** + 6112 + 6113 ;THIS TEST VERIFIES THAT AOS ADDS 1 TO MEMORY AND DOES NOT SKIP. + 6114 ;FIRST, E IS PRELOADED WITH -1,,-1; THEN, AOS IS EXECUTED. NEXT E IS CHECKED FOR 0. + 6115 ;IF C(E) IS NOT 0 OR AOS SKIPPED, THIS TEST FAILS + 6116 + 6117 033542 474 00 0 00 000000 C12700: SETO ;PRELOAD E WITH -1,,-1 + 6118 033543 350 00 0 00 000000 AOS ;*AOS SHOULD ADD 1 TO C(E) AND NOT SKIP + 6119 033544 302 00 0 00 000000 CAIE ;PASS IF C(E)=0,,0 AND AOS DID NOT SKIP + 6120 STOP^ + 6121 033545 254 04 0 00 033546 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6122 033546 324 00 0 00 033547 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6123 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6124 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6125 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6126 + 6127 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 49 +DAKADM MAC 19-JAN-77 13:41 TEST OF AOS AND SOS INSTRUCTIONS SEQ 0143 + + 6128 ;THIS TEST VERIFIES THAT SOS SUBTRACTS 1 FROM MEMORY AND DOES NOT SKIP. + 6129 ;FIRST, E IS CLEARED; THEN, SOS IS EXECUTED. NEXT E IS CHECKED FOR -1,,-1. + 6130 ;IF C(E) IS NOT -1,,-1 OR SOS SKIPPED, THIS TEST FAILS + 6131 + 6132 033547 400 00 0 00 000000 C13100: SETZ ;CLEAR E + 6133 033550 370 00 0 00 000000 SOS ;*SOS SHOULD SUBTRACT 1 FROM C(E) AND NOT SKIP + 6134 033551 312 00 0 00 034466 CAME [-1] ;PASS IF C(E)=-1,,-1 AND SOS DID NOT SKIP + 6135 STOP^ + 6136 033552 254 04 0 00 033553 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6137 033553 324 00 0 00 033554 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6138 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6139 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6140 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6141 + 6142 ;********** + 6143 + 6144 ;THIS TEST VERIFIES THAT SOS SUBTRACTS 1 FROM MEMORY AND DOES NOT SKIP. + 6145 ;FIRST, E IS PRELOADED WITH A; THEN, SOS IS EXECUTED. NEXT E IS CHECKED FOR 0. + 6146 ;IF C(E) IS NOT 0 OR SOS SKIPPED, THIS TEST FAILS + 6147 + 6148 033554 201 00 0 00 000001 C13200: MOVEI 1 ;PRELOAD E WITH 1 + 6149 033555 370 00 0 00 000000 SOS ;*SOS SHOULD SUBTRACT 1 FROM C(E) AND DID NOT SKIP + 6150 033556 302 00 0 00 000000 CAIE 0 ;PASS IF C(E)=0 AND SOS DID NOT SKIP + 6151 STOP^ + 6152 033557 254 04 0 00 033560 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6153 033560 324 00 0 00 033561 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6154 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6155 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6156 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6157 + 6158 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 50 +DAKADM MAC 19-JAN-77 13:41 TEST OF AOS AND SOS INSTRUCTIONS SEQ 0144 + + 6159 ;THIS TEST VERIFIES THAT SOS SETS CRY0/1 FLAGS IF C(E) IS A NON-ZERO NUMBER OTHER + 6160 ;THAN 400000,,0. IN THIS CASE, C(E)=1. FIRST THE FLAGS ARE RESET; THEN + 6161 ;SOS IS EXECUTED. THE FLAGS ARE CHECKED. IF CRY0 AND CRY1 ARE SET + 6162 ;AND AROV AND FOV ARE RESET, THIS TEST PASSES. + 6163 + 6164 033561 255 17 0 00 033562 C13300: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS + 6165 033562 201 00 0 00 000001 MOVEI 1 ;PRELOAD E WITH 1 + 6166 033563 370 00 0 00 000000 SOS ;*SOS SHOULD SET CRY0/1 + 6167 033564 255 04 0 00 033566 JCRY0 .+2 ;PASS IF CRY0 IS SET + 6168 STOP^ + 6169 033565 254 04 0 00 033566 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6170 033566 324 00 0 00 033567 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6171 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6172 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6173 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6174 033567 255 02 0 00 033571 JCRY1 .+2 ;PASS IF CRY1 IS SET + 6175 STOP^ + 6176 033570 254 04 0 00 033571 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6177 033571 324 00 0 00 033572 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6178 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6179 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6180 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6181 033572 255 10 0 00 033574 JOV .+2 ;PASS IF AROV IS RESET + 6182 033573 334 00 0 00 000000 SKIPA + 6183 STOP^ + 6184 033574 254 04 0 00 033575 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6185 033575 324 00 0 00 033576 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6186 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6187 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6188 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6189 033576 255 01 0 00 033600 JFOV .+2 ;PASS IF FOV IS RESET + 6190 033577 334 00 0 00 000000 SKIPA + 6191 STOP^ + 6192 033600 254 04 0 00 033601 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6193 033601 324 00 0 00 033602 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6194 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6195 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6196 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6197 + 6198 ;********** + 6199 + 6200 ;THIS TEST VERIFIES THAT AOS SETS CRY0 AND CRY1 FLAG IF C(E) IS -1,,-1 + 6201 ;FIRST THE FLAGS ARE RESET; THEN + 6202 ;AOS IS EXECUTED. THE FLAGS ARE CHECKED. + 6203 ;IF CRY0 AND CRY1 ARE SET AND AROV AND FOV ARE RESET, THIS TEST PASSES. + 6204 + 6205 033602 255 17 0 00 033603 C13400: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS + 6206 033603 474 00 0 00 000000 SETO ;PRELOAD E WITH 1 + 6207 033604 350 00 0 00 000000 AOS ;*AOS SHOULD SET CRY0 AND CRY1 + 6208 033605 255 04 0 00 033607 JCRY0 .+2 ;PASS IF CRY0 IS SET + 6209 STOP^ + 6210 033606 254 04 0 00 033607 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6211 033607 324 00 0 00 033610 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6212 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6213 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 50-1 +DAKADM MAC 19-JAN-77 13:41 TEST OF AOS AND SOS INSTRUCTIONS SEQ 0145 + + 6214 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6215 033610 255 02 0 00 033612 JCRY1 .+2 ;PASS IF CRY1 IS SET + 6216 STOP^ + 6217 033611 254 04 0 00 033612 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6218 033612 324 00 0 00 033613 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6219 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6220 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6221 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6222 033613 255 10 0 00 033615 JOV .+2 ;PASS IF AROV IS RESET + 6223 033614 334 00 0 00 000000 SKIPA + 6224 STOP^ + 6225 033615 254 04 0 00 033616 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6226 033616 324 00 0 00 033617 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6227 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6228 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6229 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6230 033617 255 01 0 00 033621 JFOV .+2 ;PASS IF FOV IS RESET + 6231 033620 334 00 0 00 000000 SKIPA + 6232 STOP^ + 6233 033621 254 04 0 00 033622 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6234 033622 324 00 0 00 033623 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6235 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6236 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6237 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6238 + 6239 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 51 +DAKADM MAC 19-JAN-77 13:41 TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS SEQ 0146 + + 6240 SUBTTL TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS + 6241 + 6242 ;********** + 6243 + 6244 ;THIS TEST VERIFIES THAT JFCL 1, WILL ALWAYS CLEAR FOV FLAG. + 6245 ;FIRST, FOV IS SET VIA JRST 2, ;THEN JFCL 1,.+1 IS EXECUTED TO CLEAR FOV. + 6246 ;IF FOV WAS CLEARED, THIS TEST PASSES. + 6247 + 6248 033623 C13600: SFLAG FOV ^;SET FOV FLAG + 6249 + 6250 033623 205 01 0 00 040000 MOVSI 1,FOV + 6251 033624 255 17 0 00 033625 JFCL 17,.+1 ;RESET ALL FLAGS + 6252 033625 254 02 0 01 033626 JRST 2,.+1(1) ;SET FOV FLAG + 6253 033626 255 01 0 00 033627 JFCL 1,.+1 ;*JFCL SHOULD RESET FOV + 6254 033627 255 01 0 00 033631 JFCL 1,.+2 ;PASS IF FOV IS RESET + 6255 033630 334 00 0 00 000000 SKIPA ;SKIP HALT IF JFCL 1,.+1 PASSED + 6256 STOP^ + 6257 033631 254 04 0 00 033632 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6258 033632 324 00 0 00 033633 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6259 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6260 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6261 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6262 + 6263 ;********** + 6264 + 6265 ;THIS TEST VERIFIES THAT JRST 2, CAN SET FXU AND JSP CAN SAVE FXU IN THE AC. + 6266 ;FIRST, FXU IS SET VIA JRST 2, ;THEN, JSP IS EXECUTED. THE AC IS CHECKED + 6267 ;FOR FXU. IF FXU IS SET, THIS TEST PASSES; OTHERWISE, EITHER JRST 2, OR JSP FAILED. + 6268 + 6269 033633 C13700: SFLAG FXU ^;*SET FXU FLAG + 6270 + 6271 033633 205 01 0 00 000100 MOVSI 1,FXU + 6272 033634 255 17 0 00 033635 JFCL 17,.+1 ;RESET ALL FLAGS + 6273 033635 254 02 0 01 033636 JRST 2,.+1(1) ;SET FXU FLAG + 6274 033636 265 00 0 00 033637 JSP .+1 ;*STORE FXU FLAG IN AC + 6275 033637 607 00 0 00 000100 TLNN FXU ;PASS IF FXU IS SET IN THE AC + 6276 STOP^ + 6277 033640 254 04 0 00 033641 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6278 033641 324 00 0 00 033642 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6279 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6280 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6281 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6282 + 6283 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 52 +DAKADM MAC 19-JAN-77 13:41 TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS SEQ 0147 + + 6284 ;THIS TEST VERIFIES THAT JRST 2, CAN RESET FXU AND JSP CAN SAVE FXU IN THE AC. + 6285 ;FIRST, FXU IS SET; THEN, FXU IS RESET VIA JRST 2,. NEXT, JSP IS EXECUTED; AND + 6286 ;THE AC IS CHECKED FOR FXU RESET. IF FXU IS RESET IN THE AC, THIS TEST PASSES; + 6287 ;OTHERWISE, JRST 2, FAILED TO CLEAR FXU OR JSP STORED FXU INCORECTLY. + 6288 + 6289 033642 C14000: SFLAG FXU ^;SET FXU FLAG + 6290 + 6291 033642 205 01 0 00 000100 MOVSI 1,FXU + 6292 033643 255 17 0 00 033644 JFCL 17,.+1 ;RESET ALL FLAGS + 6293 033644 254 02 0 01 033645 JRST 2,.+1(1) ;SET FXU FLAG + 6294 SFLAG ^;*RESET FXU FLAG + 6295 + 6296 033645 205 01 0 00 000000 MOVSI 1, + 6297 033646 255 17 0 00 033647 JFCL 17,.+1 ;RESET ALL FLAGS + 6298 033647 254 02 0 01 033650 JRST 2,.+1(1) ;SET FLAG + 6299 033650 265 00 0 00 033651 JSP .+1 ;*STORE FXU FLAG IN THE AC + 6300 033651 603 00 0 00 000100 TLNE FXU ;PASS IF FXU IS RESET IN THE AC + 6301 STOP^ + 6302 033652 254 04 0 00 033653 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6303 033653 324 00 0 00 033654 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6304 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6305 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6306 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6307 + 6308 ;********** + 6309 + 6310 ;THIS TEST VERIFIES THAT JRST 2, CAN SET DCK AND JSP CAN SAVE DCK IN THE AC. + 6311 ;FIRST, DCK IS SET VIA JRST 2, ;THEN JSP IS EXECUTED. THE AC IS CHECKED + 6312 ;FOR DCK. IF DCK IS SET, THIS TEST PASSES, OTHERWISE JRST 2, OR JSP FAILED. + 6313 + 6314 033654 C14100: SFLAG DCK ^;*SET DCK FLAG + 6315 + 6316 033654 205 01 0 00 000040 MOVSI 1,DCK + 6317 033655 255 17 0 00 033656 JFCL 17,.+1 ;RESET ALL FLAGS + 6318 033656 254 02 0 01 033657 JRST 2,.+1(1) ;SET DCK FLAG + 6319 033657 265 00 0 00 033660 JSP .+1 ;*STORE FXU FLAG IN AC + 6320 033660 607 00 0 00 000040 TLNN DCK ;PASS IF FXU IS SET IN THE AC + 6321 STOP^ + 6322 033661 254 04 0 00 033662 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6323 033662 324 00 0 00 033663 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6324 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6325 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6326 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6327 + 6328 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 53 +DAKADM MAC 19-JAN-77 13:41 TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS SEQ 0148 + + 6329 ;THIS TEST VERIFIES THAT JRST 2, CAN RESET DCK AND JSP CAN SAVE DCK IN THE AC. + 6330 ;FIRST, FXU IS SET; THEN, DCK IS RESET VIA JRST 2,. NEXT, JSP IS EXPECTED; AND + 6331 ;THE AC IS CHECKED FOR DCK RESET. IF DCK IS RESET IN THE AC, THIS TEST PASSES; + 6332 ;OTHERWISE, JRST 2, FAILED TO CLEAR DCK OR JSP STORED DCK INCORRECTLY. + 6333 + 6334 033663 C14200: SFLAG DCK ^;SET DCK FLAG + 6335 + 6336 033663 205 01 0 00 000040 MOVSI 1,DCK + 6337 033664 255 17 0 00 033665 JFCL 17,.+1 ;RESET ALL FLAGS + 6338 033665 254 02 0 01 033666 JRST 2,.+1(1) ;SET DCK FLAG + 6339 SFLAG ^;*RESET DCK FLAG + 6340 + 6341 033666 205 01 0 00 000000 MOVSI 1, + 6342 033667 255 17 0 00 033670 JFCL 17,.+1 ;RESET ALL FLAGS + 6343 033670 254 02 0 01 033671 JRST 2,.+1(1) ;SET FLAG + 6344 033671 265 00 0 00 033672 JSP .+1 ;*STORE DCK FLAG IN THE AC + 6345 033672 603 00 0 00 000040 TLNE DCK ;PASS IF DCK IS RESET IN THE AC + 6346 STOP^ + 6347 033673 254 04 0 00 033674 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6348 033674 324 00 0 00 033675 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6349 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6350 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6351 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6352 + 6353 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 54 +DAKADM MAC 19-JAN-77 13:41 TEST OF JUMPX INSTRUCTIONS SEQ 0149 + + 6354 SUBTTL TEST OF JUMPX INSTRUCTIONS + 6355 + 6356 ;********** + 6357 + 6358 ;THIS TEST VERIFIES THAT JUMPL IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF + 6359 ;C(AC) IS NEGATIVE. IN THIS TEST, THE AC CONTAINS -1,,-1. HENCE, + 6360 ;JUMPL SHOULD JUMP. IF JUMPL JUMPS, THIS TEST PASSES. + 6361 + 6362 033675 474 00 0 00 000000 C14500: SETO ;PRELOAD AC WITH -1,,-1 + 6363 033676 321 00 0 00 033700 JUMPL .+2 ;*JUMPL SHOULD JUMP BECAUSE C(AC) IS NEGATIVE + 6364 STOP^ + 6365 033677 254 04 0 00 033700 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6366 033700 324 00 0 00 033701 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6367 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6368 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6369 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6370 + 6371 ;********** + 6372 + 6373 ;THIS TEST VERIFIES THAT JUMPL IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF + 6374 ;C(AC) IS NEGATIVE. IN THIS TEST, THE AC CONTAINS 0. HENCE, + 6375 ;JUMPL SHOULD NOT JUMP. IF JUMPL DOES NOT JUMP, THIS TEST PASSES. + 6376 + 6377 033701 400 00 0 00 000000 C14600: SETZ ;PRELOAD AC WITH 0 + 6378 033702 321 00 0 00 033704 JUMPL .+2 ;*JUMPL SHOULD NOT JUMP + 6379 033703 334 00 0 00 000000 SKIPA ;PASS IF JUMPL DOES NOT JUMP + 6380 STOP^ + 6381 033704 254 04 0 00 033705 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6382 033705 324 00 0 00 033706 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6383 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6384 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6385 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6386 + 6387 ;********** + 6388 + 6389 ;THIS TEST VERIFIES THAT JUMPE IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF + 6390 ;C(AC)=0. IN THIS TEST, THE AC CONTAINS 0. HENCE, + 6391 ;JUMPE SHOULD JUMP. IF JUMPE JUMPS, THIS TEST PASSES. + 6392 + 6393 033706 400 00 0 00 000000 C14700: SETZ ;PRELOAD AC WITH 0 + 6394 033707 322 00 0 00 033711 JUMPE .+2 ;*JUMPE SHOULD JUMP + 6395 STOP^ + 6396 033710 254 04 0 00 033711 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6397 033711 324 00 0 00 033712 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6398 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6399 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6400 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6401 + 6402 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 55 +DAKADM MAC 19-JAN-77 13:41 TEST OF JUMPX INSTRUCTIONS SEQ 0150 + + 6403 ;THIS TEST VERIFIES THAT JUMPN IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF + 6404 ;C(AC) IS NON-ZERO. IN THIS TEST, THE AC CONTAINS 1. HENCE, + 6405 ;JUMPN SHOULD JUMP. IF JUMPN JUMPS, THIS TEST PASSES. + 6406 + 6407 033712 201 00 0 00 000001 C15000: MOVEI 1 ;PRELOAD AC WITH 1 + 6408 033713 326 00 0 00 033715 JUMPN .+2 ;*JUMPN SHOULD JUMP + 6409 STOP^ + 6410 033714 254 04 0 00 033715 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6411 033715 324 00 0 00 033716 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6412 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6413 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6414 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6415 + 6416 ;********** + 6417 + 6418 ;THIS TEST VERIFIES THAT JUMPE IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF + 6419 ;C(AC)=0. IN THIS TEST, THE AC CONTAINS 2. HENCE, + 6420 ;JUMPL SHOULD NOT JUMP. IF JUMPE DOES NOT JUMP, THIS TEST PASSES. + 6421 + 6422 033716 201 00 0 00 000002 C15100: MOVEI 2 ;PRELOAD AC WITH 2 + 6423 033717 322 00 0 00 033721 JUMPE .+2 ;*JUMPE SHOULD NOT JUMP + 6424 033720 334 00 0 00 000000 SKIPA ;PASS IF JUMPE DID NOT JUMP + 6425 STOP^ + 6426 033721 254 04 0 00 033722 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6427 033722 324 00 0 00 033723 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6428 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6429 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6430 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6431 + 6432 ;********** + 6433 + 6434 ;THIS TEST VERIFIES THAT JUMPN IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF + 6435 ;C(AC) IS NON-ZERO. IN THIS TEST, THE AC CONTAINS 0. HENCE, + 6436 ;JUMPN SHOULD NOT JUMP. IF JUMPN DOES NOT JUMP, THIS TEST PASSES. + 6437 + 6438 033723 400 00 0 00 000000 C15200: SETZ ;PRELOAD AC WITH 0 + 6439 033724 326 00 0 00 033726 JUMPN .+2 ;*JUMPN SHOULD NOT JUMP + 6440 033725 334 00 0 00 000000 SKIPA ;PASS IF JUMPN DID NOT JUMP + 6441 STOP^ + 6442 033726 254 04 0 00 033727 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6443 033727 324 00 0 00 033730 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6444 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6445 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6446 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6447 + 6448 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 56 +DAKADM MAC 19-JAN-77 13:41 TEST OF JUMPX INSTRUCTIONS SEQ 0151 + + 6449 ;THIS TEST VERIFIES THAT JUMPG IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF + 6450 ;C(AC) IS GREATER THAN 0. IN THIS TEST, THE AC CONTAINS 1. HENCE, + 6451 ;JUMPG SHOULD JUMP. IF JUMPG JUMPS, THIS TEST PASSES. + 6452 + 6453 033730 201 00 0 00 000001 C15300: MOVEI 1 ;PRELOAD AC WITH 1 + 6454 033731 327 00 0 00 033733 JUMPG .+2 ;*JUMPG SHOULD JUMP + 6455 STOP^ + 6456 033732 254 04 0 00 033733 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6457 033733 324 00 0 00 033734 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6458 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6459 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6460 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6461 + 6462 ;********** + 6463 + 6464 ;THIS TEST VERIFIES THAT JUMPG IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF + 6465 ;C(AC) IS GREATER THAN 0. IN THIS TEST, THE AC CONTAINS -1,,0. HENCE, + 6466 ;JUMPG SHOULD NOT JUMP. IF JUMPG DOES NOT JUMP, THIS TEST PASSES. + 6467 + 6468 033734 205 00 0 00 777777 C15400: MOVSI -1 ;PRELOAD AC WITH -1,,0 + 6469 033735 327 00 0 00 033737 JUMPG .+2 ;*JUMPG SHOULD NOT JUMP + 6470 033736 334 00 0 00 000000 SKIPA ;PASS IF JUMPG DID NOT JUMP + 6471 STOP^ + 6472 033737 254 04 0 00 033740 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6473 033740 324 00 0 00 033741 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6474 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6475 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6476 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6477 + 6478 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 57 +DAKADM MAC 19-JAN-77 13:41 TEST OF AOJ AND SOJ INSTRUCTIONS SEQ 0152 + + 6479 SUBTTL TEST OF AOJ AND SOJ INSTRUCTIONS + 6480 + 6481 ;********** + 6482 + 6483 ;THIS TEST VERIFIES THAT AOJ ADDS 1 TO THE AC AND DOES NOT JUMP. + 6484 ;FIRST, THE AC IS PRELOADED WITH 0; THEN, AOJ IS EXECUTED. NEXT, THE + 6485 ;AC IS CHECKED FOR 1. IF C(AC) IS NOT 1 OR AOJ SKIPPED, THIS TEST FAILS. + 6486 + 6487 033741 400 00 0 00 000000 C15500: SETZ ;PRELOAD AC WITH 0 + 6488 033742 340 00 0 00 033744 AOJ .+2 ;*AOJ SHOULD ADD 1 TO THE AC AND NOT JUMP + 6489 033743 302 00 0 00 000001 CAIE 1 ;PASS IF C(AC)=1 AND AOJ DID NOT JUMP + 6490 STOP^ + 6491 033744 254 04 0 00 033745 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6492 033745 324 00 0 00 033746 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6493 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6494 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6495 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6496 + 6497 ;********** + 6498 + 6499 ;THIS TEST VERIFIES THAT AOJ ADDS 1 TO THE AC AND DOES NOT JUMP. + 6500 ;FIRST, THE AC IS PRELOADED WITH -1,,-1; THEN, AOJ IS EXECUTED. NEXT, THE + 6501 ;AC IS CHECKED FOR 0. IF C(AC) IS NOT 0 OR AOJ SKIPPED, THIS TEST FAILS. + 6502 + 6503 033746 474 00 0 00 000000 C15600: SETO ;PRELOAD AC WITH 0 + 6504 033747 340 00 0 00 033751 AOJ .+2 ;*AOJ SHOULD ADD 1 TO THE AC AND NOT JUMP + 6505 033750 302 00 0 00 000000 CAIE 0 ;PASS IF C(AC)=1 AND AOJ DID NOT JUMP + 6506 STOP^ + 6507 033751 254 04 0 00 033752 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6508 033752 324 00 0 00 033753 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6509 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6510 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6511 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6512 + 6513 ;********** + 6514 + 6515 ;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP. + 6516 ;FIRST, THE AC IS PRELOADED WITH 0; THEN, SOJ IS EXECUTED. NEXT, THE + 6517 ;AC IS CHECKED FOR -1,,-1. IF C(AC) IS NOT -1,,-1 OR SOJ SKIPPED, THIS TEST FAILS. + 6518 + 6519 033753 400 00 0 00 000000 C15700: SETZ ;PRELOAD AC WITH 0 + 6520 033754 360 00 0 00 033756 SOJ .+2 ;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP + 6521 033755 312 00 0 00 034466 CAME [-1] ;PASS IF C(AC)=-1,,-1 AND SOJ DID NOT JUMP + 6522 STOP^ + 6523 033756 254 04 0 00 033757 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6524 033757 324 00 0 00 033760 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6525 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6526 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6527 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6528 + 6529 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 58 +DAKADM MAC 19-JAN-77 13:41 TEST OF AOJ AND SOJ INSTRUCTIONS SEQ 0153 + + 6530 ;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP. + 6531 ;FIRST, THE AC IS PRELOADED WITH -1,,-1; THEN, SOJ IS EXECUTED. NEXT, THE + 6532 ;AC IS CHECKED FOR -1,,-2. IF C(AC) IS NOT -1,,-2 OR SOJ SKIPPED, THIS TEST FAILS. + 6533 + 6534 033760 474 00 0 00 000000 C16000: SETO ;PRELOAD AC WITH -1,,-1 + 6535 033761 360 00 0 00 033763 SOJ .+2 ;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP + 6536 033762 312 00 0 00 034467 CAME [-2] ;PASS IF C(AC)=-1,,-2 AND SOJ DID NOT JUMP + 6537 STOP^ + 6538 033763 254 04 0 00 033764 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6539 033764 324 00 0 00 033765 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6540 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6541 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6542 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6543 + 6544 ;********** + 6545 + 6546 ;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP. + 6547 ;FIRST, THE AC IS PRELOADED WITH 0,,1; THEN, SOJ IS EXECUTED. NEXT, THE + 6548 ;AC IS CHECKED FOR 0. IF C(AC) IS NOT 0 OR SOJ SKIPPED, THIS TEST FAILS. + 6549 + 6550 033765 201 00 0 00 000001 C16100: MOVEI 1 ;PRELOAD AC WITH 1 + 6551 033766 360 00 0 00 033770 SOJ .+2 ;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP + 6552 033767 302 00 0 00 000000 CAIE 0 ;PASS IF C(AC)=0 AND SOJ DID NOT JUMP + 6553 STOP^ + 6554 033770 254 04 0 00 033771 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6555 033771 324 00 0 00 033772 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6556 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6557 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6558 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6559 + 6560 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 59 +DAKADM MAC 19-JAN-77 13:41 TEST OF AOJ AND SOJ INSTRUCTIONS SEQ 0154 + + 6561 ;THIS TEST VERIFIES THAT SOJ AC, FOLLOWED BY AOJ AC, HAS NO NET EFFECT ON C(AC). + 6562 ;IN THIS CASE, THE AC IS PRELOADED WITH 0; THEN, SOJ AC, FOLLOWED BY AOJ. + 6563 ;AC, IS REPEATED 7 TIMES. THE AC IS THEN CHECKED FOR ITS ORIGINAL CONTENTS, 0. + 6564 ;IF C(AC)=0, THIS TEST PASSES; OTHERWISE AOJ OR SOJ FAILED. + 6565 + 6566 000017 C16200: AC=17 + 6567 033772 400 17 0 00 000000 SETZ AC, ;PRELOAD AC WITH 0 + 6568 REPEAT ^D10,< + 6569 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC + 6570 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC> + 6571 + 6572 033773 360 17 0 00 033773 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC + 6573 033774 340 17 0 00 033774 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC + 6574 + 6575 033775 360 17 0 00 033775 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC + 6576 033776 340 17 0 00 033776 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC + 6577 + 6578 033777 360 17 0 00 033777 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC + 6579 034000 340 17 0 00 034000 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC + 6580 + 6581 034001 360 17 0 00 034001 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC + 6582 034002 340 17 0 00 034002 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC + 6583 + 6584 034003 360 17 0 00 034003 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC + 6585 034004 340 17 0 00 034004 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC + 6586 + 6587 034005 360 17 0 00 034005 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC + 6588 034006 340 17 0 00 034006 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC + 6589 + 6590 034007 360 17 0 00 034007 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC + 6591 034010 340 17 0 00 034010 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC + 6592 + 6593 034011 360 17 0 00 034011 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC + 6594 034012 340 17 0 00 034012 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC + 6595 + 6596 034013 360 17 0 00 034013 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC + 6597 034014 340 17 0 00 034014 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC + 6598 + 6599 034015 360 17 0 00 034015 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC + 6600 034016 340 17 0 00 034016 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC + 6601 034017 332 00 0 00 000017 SKIPE AC ;PASS IF C(AC) IS UNCHANGED. I.E. C(AC)=0 + 6602 STOP^ + 6603 034020 254 04 0 00 034021 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6604 034021 324 00 0 00 034022 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6605 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6606 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6607 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6608 + 6609 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 60 +DAKADM MAC 19-JAN-77 13:41 TEST OF AOJ AND SOJ INSTRUCTIONS SEQ 0155 + + 6610 ;THIS TEST VERIFIES THAT SOJ SETS CRY0/1 FLAGS IF C(E) IS A NON-ZERO NUMBER OTHER + 6611 ;THAN 400000,,0. IN THIS CASE, C(E)=1. FIRST THE FLAGS ARE RESET; THEN + 6612 ;SOJ IS EXECUTED. THE FLAGS ARE CHECKED. IF CRY0 AND CRY1 ARE SET + 6613 ;AND AROV AND FOV ARE RESET, THIS TEST PASSES. + 6614 + 6615 034022 255 17 0 00 034023 C16201: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS + 6616 034023 201 00 0 00 000001 MOVEI 1 ;PRELOAD E WITH 1 + 6617 034024 360 00 0 00 000000 SOJ ;*SOJ SHOULD SET CRY0/1 + 6618 034025 255 04 0 00 034027 JCRY0 .+2 ;PASS IF CRY0 IS SET + 6619 STOP^ + 6620 034026 254 04 0 00 034027 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6621 034027 324 00 0 00 034030 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6622 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6623 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6624 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6625 034030 255 02 0 00 034032 JCRY1 .+2 ;PASS IF CRY1 IS SET + 6626 STOP^ + 6627 034031 254 04 0 00 034032 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6628 034032 324 00 0 00 034033 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6629 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6630 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6631 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6632 034033 255 10 0 00 034035 JOV .+2 ;PASS IF AROV IS RESET + 6633 034034 334 00 0 00 000000 SKIPA + 6634 STOP^ + 6635 034035 254 04 0 00 034036 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6636 034036 324 00 0 00 034037 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6637 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6638 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6639 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6640 034037 255 01 0 00 034041 JFOV .+2 ;PASS IF FOV IS RESET + 6641 034040 334 00 0 00 000000 SKIPA + 6642 STOP^ + 6643 034041 254 04 0 00 034042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6644 034042 324 00 0 00 034043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6645 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6646 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6647 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6648 + 6649 ;********** + 6650 + 6651 ;THIS TEST VERIFIES THAT AOJ SETS CRY0 AND CRY1 FLAG IF C(E) IS -1,,-1 + 6652 ;FIRST THE FLAGS ARE RESET; THEN + 6653 ;AOJ IS EXECUTED. THE FLAGS ARE CHECKED. + 6654 ;IF CRY0 AND CRY1 ARE SET AND AROV AND FOV ARE RESET, THIS TEST PASSES. + 6655 + 6656 034043 255 17 0 00 034044 C16202: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS + 6657 034044 474 00 0 00 000000 SETO ;PRELOAD E WITH 1 + 6658 034045 340 00 0 00 000000 AOJ ;*AOJ SHOULD SET CRY0 AND CRY1 + 6659 034046 255 04 0 00 034050 JCRY0 .+2 ;PASS IF CRY0 IS SET + 6660 STOP^ + 6661 034047 254 04 0 00 034050 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6662 034050 324 00 0 00 034051 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6663 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6664 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 60-1 +DAKADM MAC 19-JAN-77 13:41 TEST OF AOJ AND SOJ INSTRUCTIONS SEQ 0156 + + 6665 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6666 034051 255 02 0 00 034053 JCRY1 .+2 ;PASS IF CRY1 IS SET + 6667 STOP^ + 6668 034052 254 04 0 00 034053 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6669 034053 324 00 0 00 034054 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6670 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6671 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6672 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6673 034054 255 10 0 00 034056 JOV .+2 ;PASS IF AROV IS RESET + 6674 034055 334 00 0 00 000000 SKIPA + 6675 STOP^ + 6676 034056 254 04 0 00 034057 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6677 034057 324 00 0 00 034060 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6678 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6679 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6680 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6681 034060 255 01 0 00 034062 JFOV .+2 ;PASS IF FOV IS RESET + 6682 034061 334 00 0 00 000000 SKIPA + 6683 STOP^ + 6684 034062 254 04 0 00 034063 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6685 034063 324 00 0 00 034064 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6686 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6687 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6688 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6689 + 6690 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 61 +DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0157 + + 6691 SUBTTL TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS + 6692 + 6693 ;********** + 6694 + 6695 ;THIS TEST VERIFIES THAT ADDM DOES NOT MODIFY C(AC) + 6696 ;BOTH AC AND E ARE PRELOADED WITH -1,,-1. THEN ADDM IS EXECUTED. + 6697 ;THIS TEST PASSES IF C(AC) ARE UNCHANGED + 6698 + 6699 034064 477 00 0 00 000001 C16400: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 + 6700 034065 272 00 0 00 000001 ADDM 1 ;*ADDM SHOULD NOT AFFECT C(AC) + 6701 034066 312 00 0 00 034466 CAME [-1] ;PASS IF C(AC) IS UNMODIFIED BY ADDM + 6702 STOP^ + 6703 034067 254 04 0 00 034070 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6704 034070 324 00 0 00 034071 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6705 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6706 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6707 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6708 + 6709 ;********** + 6710 + 6711 ;THIS TEST VERIFIES THAT HRREM DOES NOT MODIFY C(AC) + 6712 ;THE AC IS PRELOADED WITH 0,,-1. THEN HRRM IS EXECUTED. + 6713 ;THIS TEST PASSES IF C(AC) ARE UNCHANGED + 6714 + 6715 034071 201 00 0 00 777777 C16500: MOVEI -1 ;PRELOAD AC WITH 0,,-1 + 6716 034072 572 00 0 00 000001 HRREM 1 ;*HRRM SHOULD NOT AFFECT C(AC) + 6717 034073 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC) IS UNMODIFIED BY HRRM + 6718 STOP^ + 6719 034074 254 04 0 00 034075 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6720 034075 324 00 0 00 034076 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6721 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6722 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6723 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6724 + 6725 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 62 +DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0158 + + 6726 ;THIS TEST VERIFIES THAT MOVSM DOES NOT MODIFY C(AC) + 6727 ;THE AC IS PRELOADED WITH 0,,-1. THEN MOVSM IS EXECUTED. + 6728 ;THIS TEST PASSES IF C(AC) ARE UNCHANGED + 6729 + 6730 034076 201 00 0 00 777777 C16600: MOVEI -1 ;PRELOAD AC WITH 0,,-1 + 6731 034077 206 00 0 00 000001 MOVSM 1 ;*MOVSM SHOULD NOT AFFECT C(AC) + 6732 034100 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC) IS UNMODIFIED BY MOVSM + 6733 STOP^ + 6734 034101 254 04 0 00 034102 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6735 034102 324 00 0 00 034103 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6736 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6737 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6738 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6739 + 6740 ;********** + 6741 + 6742 ;THIS TEST VERIFIES THAT XORM DOES NOT MODIFY C(AC) + 6743 ;BOTH AC AND E ARE PRELOADED WITH -1,,-1. THEN XORM IS EXECUTED. + 6744 ;THIS TEST PASSES IF C(AC) ARE UNCHANGED + 6745 + 6746 034103 477 00 0 00 000001 C16700: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 + 6747 034104 432 00 0 00 000001 XORM 1 ;*XORM SHOULD NOT AFFECT C(AC) + 6748 034105 312 00 0 00 034466 CAME [-1] ;PASS IF C(AC) IS UNMODIFIED BY XORM + 6749 STOP^ + 6750 034106 254 04 0 00 034107 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6751 034107 324 00 0 00 034110 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6752 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6753 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6754 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6755 + 6756 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 63 +DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0159 + + 6757 ;THIS TEST VERIFIES THAT ADDB ADDS C(AC) TO C(E) AND PLACES THE + 6758 ;RESULT IN BOTH AC AND E. IN THIS TEST, BOTH AC AND E ARE PRELOADED + 6759 ;WITH -1,,-1, THEN, ADDB IS EXECUTED. C(AC) IS THEN COMPARED TO C(E); + 6760 ;AND C(AC) IS THEN COMPARED TO -2. IF BOTH OF THESE COMPARISONS SUCCEED, THIS + 6761 ;TEST PASSES; OTHERWISE, ADDB FAILED + 6762 + 6763 034110 477 00 0 00 000001 C17000: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 + 6764 034111 273 00 0 00 000001 ADDB 1 ;*ADDB SHOULD ADD C(AC) TO C(E) AND PLACE RESULT + 6765 ;INTO BOTH AC AND E + 6766 034112 312 00 0 00 000001 CAME 1 ;PASS IF C(AC)=C(E) + 6767 STOP^ + 6768 034113 254 04 0 00 034114 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6769 034114 324 00 0 00 034115 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6770 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6771 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6772 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6773 034115 312 00 0 00 034467 CAME [-2] ;PASS IF C(AC)=-2 + 6774 STOP^ + 6775 034116 254 04 0 00 034117 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6776 034117 324 00 0 00 034120 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6777 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6778 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6779 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6780 + 6781 ;********** + 6782 + 6783 ;THIS TEST VERIFIES THAT ADDM ADDS C(AC) TO C(E) AND PLACES THE RESULT IN E + 6784 ;IN THIS CASE, AC, E ARE BOTH PRELOADED WITH -1; THEN, ADDM IS EXECUTED. + 6785 ;E IS THEN CHECKED FOR -2. IF C(E)=-2, THIS TEST PASSES; OTHERWISE, ADDM FAILED + 6786 + 6787 034120 477 00 0 00 000001 C17100: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 + 6788 034121 272 00 0 00 000001 ADDM 1 ;*ADDM SHOULD ADD C(AC) TO C(E) + 6789 034122 312 01 0 00 034467 CAME 1,[-2] ;PASS IF C(E)=-2 + 6790 STOP^ + 6791 034123 254 04 0 00 034124 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6792 034124 324 00 0 00 034125 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6793 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6794 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6795 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6796 + 6797 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 64 +DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0160 + + 6798 ;THIS TEST VERIFIES THAT HLLOS PLACES ONES ON THE RIGHT HALF OF E + 6799 ;BUT DOES NOT AFFECT THE LEFT HALF OF E. IN THIS CASE, + 6800 ;E IS PRELOADED WITH 0; THE, HLLOS IS EXECUTED. THE RESULT + 6801 ;IN E SHOULD BE 0,,-1. IF C(E)=0,,-1, THIS TEST PASSES + 6802 + 6803 034125 402 00 0 00 000001 C17200: SETZM 1 ;PRELOAD E WITH 0 + 6804 034126 523 00 0 00 000001 HLLOS 1 ;*HLLOS SHOULD PLACE 0,,-1 INTO E + 6805 034127 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(E)=0,,-1 + 6806 STOP^ + 6807 034130 254 04 0 00 034131 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6808 034131 324 00 0 00 034132 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6809 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6810 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6811 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6812 + 6813 ;********** + 6814 + 6815 ;THIS TEST VERIFIES THAT MOVSS SWAPS BOTHS HALVES OF E AND + 6816 ;PLACES THE RESULT IN E. IN THIS CASE, E IS PRELOADED WITH + 6817 ;-1,,0; THEN, MOVSS IS EXECUTED. THE RESULT IN E SHOULD BE 0,,-1. + 6818 ;IF C(E)=0,,-1, THIS TEST PASSES + 6819 + 6820 034132 205 01 0 00 777777 C17300: MOVSI 1,-1 ;PRELOAD E WITH -1,,0 + 6821 034133 207 00 0 00 000001 MOVSS 1 ;*MOVSS SHOULD PLACE 0,,-1 INTO E + 6822 034134 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(E)=0,,-1 + 6823 STOP^ + 6824 034135 254 04 0 00 034136 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6825 034136 324 00 0 00 034137 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6826 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6827 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6828 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6829 + 6830 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 65 +DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0161 + + 6831 ;THIS TEST VERIFIES THAT AOS ADDS ONE TO MEMORY BUT DOES NOT SKIP + 6832 ;FIRST, E IS PRELOADED WITH -1,-1; THEN, AOS IS EXECUTED. NEXT, E IS CHECKED FOR 0. + 6833 ;IF C(E) IS NOT 0 OR AOS SKIPPED, THIS TEST FAILS + 6834 + 6835 034137 477 00 0 00 000001 C17400: SETOB 1 ;PRELOAD E WITH -1,,-1 + 6836 034140 350 00 0 00 000001 AOS 1 ;*AOS SHOULD ADD TO C(E) AND NOT SKIP + 6837 034141 302 01 0 00 000000 CAIE 1,0 ;PASS IF C(E)=0,,0 AND AOS DID NOT SKIP + 6838 STOP^ + 6839 034142 254 04 0 00 034143 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6840 034143 324 00 0 00 034144 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6841 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6842 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6843 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6844 + 6845 ;********** + 6846 + 6847 ;THIS TEST VERIFIES THAT HRLM PLACES C(AC-RIGHT) INTO E-LEFT AND DOES + 6848 ;NOT MODIFY E-RIGHT. IN THIS CASE, AC IS PRELOADED WITH 0 AND E IS PRELOADED + 6849 ;WITH -1,,-1. THEN, HRLM IS EXECUTED. E IS THEN CHECKED FOR 0,,-1. IF + 6850 ;C(E)=0,,-1, THIS TEST PASSES + 6851 + 6852 034144 400 00 0 00 000000 C17500: SETZ ;PRELOAD AC WITH 0 + 6853 034145 474 01 0 00 000000 SETO 1, ;PRELOAD E WITH -1,,-1 + 6854 034146 506 00 0 00 000001 HRLM 1 ;*HRLM SHOULD PLACE 0,,-1 INTO E + 6855 034147 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(E)=0,,-1 + 6856 STOP^ + 6857 034150 254 04 0 00 034151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6858 034151 324 00 0 00 034152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6859 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6860 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6861 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6862 + 6863 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 66 +DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0162 + + 6864 ;THIS TEST VERIFIES THAT HRRS DOES NOT MODIFY E + 6865 ;E IS PRELOADED WITH 0 AND AC IS PRELOADED WITH -1,,-1. + 6866 ;HRRS IS EXECUTED; THEN E IS CHECKED. IF C(E) DOES + 6867 ;NOT CHANGE, THIS TEST PASSES + 6868 + 6869 034152 474 00 0 00 000000 C17600: SETO ;PRELOAD AC WITH -1,,-1 + 6870 034153 400 01 0 00 000000 SETZ 1, ;PRELOAD E WITH 0,,0 + 6871 034154 543 00 0 00 000001 HRRS 1 ;*HRRS SHOULD PLACE 0,,0 INTO E + 6872 034155 332 00 0 00 000001 SKIPE 1 + 6873 STOP^ + 6874 034156 254 04 0 00 034157 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6875 034157 324 00 0 00 034160 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6876 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6877 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6878 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6879 + 6880 ;********** + 6881 + 6882 ;THIS TEST VERIFIES THAT HRRZM PLACES C(AC-RIGHT) INTO E-RIGHT AND PLACES + 6883 ;ZEROS INTO E-LEFT. IN THIS CASE, AC=E=AC1 AND C(AC)=C(E)=-1,,0. HRRZM + 6884 ;IS EXECUTED AND AC1 IS CHECKED FOR 0. IF AC1=0, THIS TEST PASSES. + 6885 + 6886 034160 474 00 0 00 000000 C17700: SETO ;PRELOAD AC0 WITH -1,,-1 + 6887 034161 205 01 0 00 777777 MOVSI 1,-1 ;PRELOAD AC1 WITH -1,,0 + 6888 034162 552 01 0 00 000001 HRRZM 1,1 ;*HRRZM SHOULD PLACE 0 INTO AC1 + 6889 034163 332 00 0 00 000001 SKIPE 1 ;PASS IF C(AC1)=0 + 6890 STOP^ + 6891 034164 254 04 0 00 034165 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6892 034165 324 00 0 00 034166 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6893 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6894 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6895 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6896 + 6897 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 67 +DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0163 + + 6898 ;THIS TEST VERIFIES THAT JFCL 17,.+1 NEVER JUMPS AND DOES NOT MODIFY C(AC0). + 6899 ;FIRST, AC0 IS PRELOADED; THEN, JFCL IS EXECUTED. IF AC0 IS MODIFIED + 6900 ;OR JFCL SKIPS, THIS TEST FAILS + 6901 + 6902 034166 400 00 0 00 000000 C20000: SETZ ;CLEAR AC0 + 6903 034167 255 17 0 00 034170 JFCL 17,.+1 ;*JFCL SHOULD NOT JUMP OR MODIFY C(AC0). + 6904 034170 332 00 0 00 000000 SKIPE ;PASS IF C(AC0)=0 AND JFCL DID NOT JUMP + 6905 STOP^ + 6906 034171 254 04 0 00 034172 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6907 034172 324 00 0 00 034173 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6908 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6909 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6910 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6911 + 6912 ;********** + 6913 + 6914 ;THIS TEST VERIFIES THAT XORM PERFORMS THE LOGICAL EXCLUSIVE OR FUNCTION + 6915 ;BETWEEN C(AC) AND C(E) AND PLACES THE RESULT INTO E + 6916 ;IN THIS CASE, AC AND E ARE PRELOADED WITH -1,,-1; THEN, XORM IS + 6917 ;EXECUTED. IF THE RESULT IN E IS 0, THE TEST PASSES + 6918 + 6919 034173 477 00 0 00 000001 C20100: SETOB 1 ;PRELOAD AC,E WITH -1,,-1 + 6920 034174 432 00 0 00 000001 XORM 1 ;*XORM SHOULD PLACE 0 INTO E + 6921 034175 302 01 0 00 000000 CAIE 1,0 ;PASS IF C(E)=0 + 6922 STOP^ + 6923 034176 254 04 0 00 034177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6924 034177 324 00 0 00 034200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6925 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6926 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6927 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6928 + 6929 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 68 +DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0164 + + 6930 ;THIS TEST VERIFIES THAT SETZB PLACES ZEROS INTO BOTH AC AND E. + 6931 ;AFTER SETZB IS EXECUTED, BOTH AC AND E ARE CHECKED + 6932 ;FOR 0. IF EITHER AC OR E CONTAINS ANY ONES, THIS TEST FAILS + 6933 + 6934 034200 403 00 0 00 000001 C20200: SETZB 1 ;*SETZB SHOULD PLACE ZEROES IN BOTH AC AND E + 6935 034201 316 00 0 00 034536 CAMN [0] ;FAIL IF C(AC) IS NON-ZERO + 6936 034202 312 00 0 00 000001 CAME 1 ;FAIL IF C(E) IS NON-ZERO + 6937 STOP^ + 6938 034203 254 04 0 00 034204 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6939 034204 324 00 0 00 034205 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6940 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6941 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6942 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6943 + 6944 ;********** + 6945 + 6946 ;THIS TEST VERIFIES THAT SETAB PLACES C(AC) INTO BOTH AC AND E. + 6947 ;FIRST, AC IS PRELOADED WITH -1,,-1 AND E IS PRELOADED WITH 0; + 6948 ;THEN, SETAB IS EXECUTED. BOTH AC AND E ARE CHECKED FOR -1,,-1 + 6949 ;IF EITHER AC OR E CONTAIN ANY ZEROS, THIS TEST FAILS. + 6950 + 6951 034205 400 01 0 00 000000 C20300: SETZ 1, ;PRELOAD E WITH 0 + 6952 034206 474 00 0 00 000000 SETO ;PRELOAD AC WITH -1,,-1 + 6953 034207 427 00 0 00 000001 SETAB 1 ;*SETAB SHOULD PLACE -1,,-1 INTO BOTH AC AND E + 6954 034210 316 00 0 00 034466 CAMN [-1] ;FAIL IF C(AC) IS NOT -1,-1 + 6955 034211 312 00 0 00 000001 CAME 1 ;FAIL IF C(E) IS NOT -1,,-1 + 6956 STOP^ + 6957 034212 254 04 0 00 034213 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6958 034213 324 00 0 00 034214 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6959 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6960 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6961 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6962 + 6963 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 69 +DAKADM MAC 19-JAN-77 13:41 XCT INSTRUCTION - BASIC TESTS SEQ 0165 + + 6964 SUBTTL XCT INSTRUCTION - BASIC TESTS + 6965 + 6966 ;********** + 6967 + 6968 ;THIS TEST VERIFIES THAT XCT WILL EXECUTE THE INSTRUCTION SPECIFIED BY C(E) + 6969 ;IN THIS CASE, C(E) SPECIFIES A MOVEI INSTRUCTION + 6970 ;AFTER EXECUTING MOVEI, CONTROL SHOULD RETURN TO + 6971 ;THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING XCT. + 6972 ;THIS TEST PASSES IF CONTROL RETURNS TO THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING XCT + 6973 + 6974 034214 403 00 0 00 000001 C20400: SETZB 1 ;CLEAR AC0 AND AC1 + 6975 034215 256 00 0 00 034542 XCT [MOVEI 1,.+2] ;*XCT SHOULD RETURN CONTROL TO NEXT INSTRUCTION + 6976 034216 334 00 0 00 000000 SKIPA + 6977 STOP^ + 6978 034217 254 04 0 00 034220 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6979 034220 324 00 0 00 034221 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6980 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6981 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6982 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 6983 + 6984 ;********** + 6985 + 6986 ;THIS TEST VERIFIES THAT XCT WILL EXECUTE THE INSTRUCTION SPECIFIED BY C(E) + 6987 ;IN THIS CASE, C(E) SPECIFIES A MOVEI INSTRUCTION. + 6988 ;AFTER EXECUTING MOVEI, THE AC SPECIFIED BY MOVEI IS CHECKED FOR + 6989 ;0,,1 (THE EXPECTED RESULT). IF C(AC)=0,,1, THIS TEST PASSES + 6990 + 6991 034221 403 00 0 00 000001 C20500: SETZB 1 ;CLEAR AC + 6992 034222 256 00 0 00 034543 XCT [MOVEI 1,1] ;*XCT OF MOVEI SHOULD PLACE 1 IN THE AC + 6993 034223 302 01 0 00 000001 CAIE 1,1 ;PASS IF C(AC)=1 + 6994 STOP^ + 6995 034224 254 04 0 00 034225 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 6996 034225 324 00 0 00 034226 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 6997 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 6998 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 6999 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7000 + 7001 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 70 +DAKADM MAC 19-JAN-77 13:41 XCT INSTRUCTION - BASIC TESTS SEQ 0166 + + 7002 ;THIS TEST VERIFIES THAT A NEST OF XCT INSTRUCTIONS WILL EXECUTE + 7003 ;THE INSTRUCTION SPECIFIED BY THE MOST NESTED XCT AND RETURN CONTROL TO + 7004 ;THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING THE FIRST XCT. + 7005 ;IN THIS CASE, THE EXECUTED INSTRUCTION IS MOVEI. AFTER EXECUTING THE MOVEI, + 7006 ;C(AC) IS CHECKED FOR 0,,-1 (THE EXPECTED RESULT). IF C(AC)=0,,-1, THIS TEST PASSES + 7007 + 7008 034226 403 00 0 00 000001 C20600: SETZB 1 ;CLEAR AC + 7009 034227 256 00 0 00 034550 XCT [XCT[XCT[XCT[XCT[MOVEI 1,-1]]]]] ;*NESTED XCT OF MOVEI + 7010 ;SHOULD PLACE 0,,-1 INTO AC + 7011 034230 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(AC)=0,,-1 + 7012 STOP^ + 7013 034231 254 04 0 00 034232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7014 034232 324 00 0 00 034233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7015 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7016 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7017 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7018 + 7019 ;********** + 7020 + 7021 ;THIS TEST VERIFIES THAT XCT WILL NOT MODIFY AN AC WHICH IS NOT SPECIFIED BY THE + 7022 ;EXECUTED INSTRUCTION. IN THIS CASE, AC0 IS CLEARED AND THEN CHECKED FOR ZERO AFTER + 7023 ;THE XCT INSTRUCTION IS EXECUTED. AC0 SHOULD NOT BE MODIFIED. + 7024 + 7025 034233 403 00 0 00 000001 C20700: SETZB 1 ;CLEAR AC0,AC1 + 7026 034234 256 00 0 00 034551 XCT [MOVE 1,[-1]] ;*XCT SHOULD NOT MODIFY AC0 + 7027 034235 332 00 0 00 000000 SKIPE ;PASS IF AC0 WAS NOT MODIFIED + 7028 STOP^ + 7029 034236 254 04 0 00 034237 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7030 034237 324 00 0 00 034240 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7031 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7032 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7033 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7034 + 7035 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 71 +DAKADM MAC 19-JAN-77 13:41 XCT INSTRUCTION - BASIC TESTS SEQ 0167 + + 7036 ;THIS TEST VERIFIES THAT XCT OF SKIPA SHOULD RETURN CONTROL TO THE + 7037 ;SECOND SEQUENTIAL INSTRUCTION FOLLOWING XCT + 7038 + 7039 034240 256 00 0 00 034552 C21000: XCT [SKIPA] ;XCT OF SKIPA SHOULD RETURN CONTROL TO .+2 + 7040 STOP^ + 7041 034241 254 04 0 00 034242 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7042 034242 324 00 0 00 034243 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7043 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7044 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7045 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7046 + 7047 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 72 +DAKADM MAC 19-JAN-77 13:41 INDIRECT ADDRESSING - BASIC TESTS SEQ 0168 + + 7048 SUBTTL INDIRECT ADDRESSING - BASIC TESTS + 7049 + 7050 ;********** + 7051 + 7052 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E + 7053 ;ARE WITHIN THE AC RANGE. + 7054 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. + 7055 ;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 0, + 7056 ;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS + 7057 + 7058 034243 476 00 0 00 000001 C21100: SETOM 1 ;PRELOAD AC WITH -1,,-1 + 7059 034244 201 07 0 00 000003 MOVEI 7,3 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS + 7060 034245 402 00 0 00 000003 SETZM 3 ;PRELOAD INDIRECT ADDRESS WITH 0 + 7061 034246 200 01 1 00 000007 MOVE 1,@7 ;*FWT FROM INDIRECT ADDRESSS SHOULD + 7062 ;PLACE 0 INTO THE AC + 7063 034247 332 00 0 00 000001 SKIPE 1 ;PASS IF C(AC)=0 + 7064 STOP^ + 7065 034250 254 04 0 00 034251 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7066 034251 324 00 0 00 034252 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7067 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7068 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7069 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7070 + 7071 ;********** + 7072 + 7073 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E + 7074 ;ARE WITHIN THE AC RANGE. + 7075 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. + 7076 ;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR -1,,-1, + 7077 ;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS + 7078 + 7079 034252 402 00 0 00 000001 C21200: SETZM 1 ;PRELOAD AC WITH -1,,-1 + 7080 034253 201 07 0 00 000003 MOVEI 7,3 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS + 7081 034254 476 00 0 00 000003 SETOM 3 ;PRELOAD INDIRECT ADDRESS WITH -1,,-1 + 7082 034255 200 01 1 00 000007 MOVE 1,@7 ;*FWT FROM INDIRECT ADDRESS SHOULD + 7083 ;PLACE -1,,-1 INTO THE AC + 7084 034256 312 01 0 00 034466 CAME 1,[-1,,-1] ;PASS IF C(AC)=-1,,-1 + 7085 STOP^ + 7086 034257 254 04 0 00 034260 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7087 034260 324 00 0 00 034261 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7088 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7089 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7090 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7091 + 7092 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 73 +DAKADM MAC 19-JAN-77 13:41 INDIRECT ADDRESSING - BASIC TESTS SEQ 0169 + + 7093 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E + 7094 ;ARE WITHIN THE AC RANGE. + 7095 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. + 7096 ;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 707070,,707070, + 7097 ;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS + 7098 + 7099 034261 402 00 0 00 000001 C21300: SETZM 1 ;PRELOAD AC WITH 0 + 7100 034262 201 07 0 00 000003 MOVEI 7,3 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS + 7101 034263 200 03 0 00 034553 MOVE 3,[707070,,707070] ;PRELOAD INDIRECT ADDRESS WITH 707070,,707070 + 7102 034264 200 01 1 00 000007 MOVE 1,@7 ;*FWT FROM INDIRECT ADDRESS SHOULD + 7103 ;PLACE 707070,,707070 INTO THE AC + 7104 034265 312 01 0 00 034553 CAME 1,[707070,,707070] ;PASS IF C(AC)=707070,,707070 + 7105 STOP^ + 7106 034266 254 04 0 00 034267 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7107 034267 324 00 0 00 034270 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7108 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7109 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7110 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7111 + 7112 ;********** + 7113 + 7114 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN E IS WITHIN THE AC RANGE + 7115 ;AND @E IS BEYOND THE AC RANGE. + 7116 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. + 7117 ;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 707070,,707070, + 7118 ;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS + 7119 + 7120 034270 254 00 0 00 034272 C21400: JRST .+2 + 7121 034271 707070 707070 XWD 707070,707070 ;INDIRECT ADDRESS AND ITS DATA + 7122 034272 402 00 0 00 000001 SETZM 1 ;PRELOAD AC WITH 0 + 7123 034273 201 07 0 00 034271 MOVEI 7,C21400+1 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS + 7124 034274 200 01 1 00 000007 MOVE 1,@7 ;*FWT FROM INDIRECT ADDRESS SHOULD + 7125 ;PLACE 707070,,707070 INTO AC + 7126 034275 312 01 0 00 034271 CAME 1,C21400+1 ;PASS IF C(AC)=707070,,707070 + 7127 STOP^ + 7128 034276 254 04 0 00 034277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7129 034277 324 00 0 00 034300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7130 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7131 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7132 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7133 + 7134 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 74 +DAKADM MAC 19-JAN-77 13:41 INDIRECT ADDRESSING - BASIC TESTS SEQ 0170 + + 7135 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E + 7136 ;ARE BEYOND THE AC RANGE. + 7137 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. + 7138 ;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 202020,,202020, + 7139 ;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS + 7140 + 7141 034300 254 00 0 00 034303 C21500: JRST .+3 + 7142 034301 000000 034302 .+1 ;DIRECT ADDRESS AND ITS DATA + 7143 034302 202020 202020 XWD 202020,202020 ;INDIRECT ADDRESS AND ITS DATA + 7144 034303 402 00 0 00 000001 SETZM 1 ;PRELOAD AC WITH 0 + 7145 034304 200 01 1 00 034301 MOVE 1,@C21500+1 ;*FWT FROM INDIRECT ADDRESS SHOULD + 7146 ;PLACE 202020,,202020 INTO AC + 7147 034305 312 01 0 00 034302 CAME 1,C21500+2 ;PASS IF C(AC)=202020,,202020 + 7148 STOP^ + 7149 034306 254 04 0 00 034307 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7150 034307 324 00 0 00 034310 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7151 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7152 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7153 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7154 + 7155 ;********** + 7156 + 7157 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E + 7158 ;ARE BEYOND THE AC RANGE. + 7159 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A CAME. + 7160 + 7161 034310 254 00 0 00 034313 C21600: JRST .+3 + 7162 034311 000000 034312 .+1 ;DIRECT ADDRESS AND ITS DATA + 7163 034312 272727 272727 XWD 272727,272727 ;INDIRECT ADDRESS AND ITS DATA + 7164 034313 200 01 0 00 034312 MOVE 1,C21600+2 ;PRELOAD AC + 7165 034314 312 01 1 00 034311 CAME 1,@C21600+1 ;*CAME OF DATA FROM INDIRECT ADDRESS - NON-AC RANGE + 7166 STOP^ + 7167 034315 254 04 0 00 034316 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7168 034316 324 00 0 00 034317 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7169 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7170 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7171 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7172 + 7173 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 75 +DAKADM MAC 19-JAN-77 13:41 INDIRECT ADDRESSING - BASIC TESTS SEQ 0171 + + 7174 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN E IS WITHIN THE AC RANGE + 7175 ;AND @E IS BEYOND THE AC RANGE. + 7176 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A CAME. + 7177 + 7178 034317 254 00 0 00 034321 C21700: JRST .+2 + 7179 034320 252525 252525 XWD 252525,252525 ;INDIRECT ADDRESS AND ITS DATA + 7180 034321 201 07 0 00 034320 MOVEI 7,C21700+1 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS + 7181 034322 200 01 0 00 034320 MOVE 1,C21700+1 ;SETUP AC + 7182 034323 312 01 1 00 000007 CAME 1,@7 ;*CAME IF DATA FROM INDIRECT ADDRESS - AC RANGE + 7183 STOP^ + 7184 034324 254 04 0 00 034325 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7185 034325 324 00 0 00 034326 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7186 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7187 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7188 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7189 + 7190 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 76 +DAKADM MAC 19-JAN-77 13:41 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0172 + + 7191 SUBTTL TEST INDIRECT ADDRESSING WITH INDEXING + 7192 + 7193 ;SETUP INDEX REGISTERS + 7194 + 7195 034326 201 01 0 00 777774 MOVEI 1,-4 + 7196 034327 201 03 0 00 000002 MOVEI 3,2 + 7197 034330 201 04 0 00 000010 MOVEI 4,10 + 7198 034331 201 05 0 00 000001 MOVEI 5,1 + 7199 034332 201 06 0 00 000005 MOVEI 6,5 + 7200 034333 201 07 0 00 000007 MOVEI 7,7 + 7201 034334 201 10 0 00 000004 MOVEI 10,4 + 7202 034335 201 11 0 00 777772 MOVEI 11,-6 + 7203 034336 201 12 0 00 000005 MOVEI 12,5 + 7204 034337 201 13 0 00 000002 MOVEI 13,2 + 7205 + 7206 034340 254 00 0 00 034371 JRST C22000 ;RESUME TEST + 7207 + 7208 ;INDIRECT ADDRESSING/INDEXING TEST TABLE + 7209 + 7210 ;;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; + 7211 + 7212 ;DO NOT MODIFY THIS TABLE OR TESTS C21700 THRU C22600 INDEPENDENTLY ! + 7213 + 7214 ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; + 7215 + 7216 034341 000003 034344 E217: E217A(3) + 7217 034342 000020 034347 E220: @E220A + 7218 034343 220220 220220 E220B: 220220,,220220 + 7219 034344 000020 034351 E217A: @E221A ;E221-4 + 7220 034345 221221 221221 E221B: 221221,,221221 + 7221 034346 217217 217217 E222A: 217217,,217217 ;E217A+2 + 7222 034347 000000 034343 E220A: E220B + 7223 034350 000000 034350 E221: E221 + 7224 034351 000000 034345 E221A: E221B + 7225 034352 000000 034350 E222: E221 + 7226 034353 223223 223223 E223A: 223223,,223223 + 7227 034354 000004 034354 E224A: E224A(4) ;E223-6 + 7228 034355 222222 222222 222222,,222222 ;E222A+7 + 7229 034356 000000 034356 E225: E225 + 7230 034357 000007 034346 E222A(7) ;E222+5 + 7231 034360 000020 034363 @E225A ;E225+2 + 7232 034361 225225 225225 E225B: 225225,,225225 + 7233 034362 000000 034362 E223: E223 + 7234 034363 000000 034361 E225A: E225B + 7235 034364 224224 224224 224224,,224224 ;E224A+10 + 7236 034365 226226 226226 E226B: 226226,,226226 + 7237 034366 000000 034353 E223A ;E223+4 + 7238 034367 000025 034367 E226A: @E226A(5) ;E223+5 + 7239 034370 000000 034365 E226B ;E226A+1 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 77 +DAKADM MAC 19-JAN-77 13:41 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0173 + + 7240 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT + 7241 LY. + 7242 ;IN THIS CASE, MOVE 2,@E217 IS TESTED WHERE C(E217)=E217A(3) AND C(3)=0,,2. + 7243 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E217A+2)=217217,,217217 + 7244 + 7245 034371 476 00 0 00 000002 C22000: SETOM 2 ;INITIALIZE AC + 7246 034372 200 02 1 00 034341 MOVE 2,@E217 ;TEST INDIRECT ADDRESSING WITH INDEXING + 7247 034373 312 02 0 00 034346 CAME 2,E217A+2 ;PASS IF C(AC)=217217,,217217 + 7248 STOP^ + 7249 034374 254 04 0 00 034375 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7250 034375 324 00 0 00 034376 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7251 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7252 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7253 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7254 + 7255 ;********** + 7256 + 7257 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT + 7258 LY. + 7259 ;IN THIS CASE, MOVE 2,@E220 IS TESTED WHERE C(E220)=@E220A AND C(E220A)=E220B. + 7260 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E220B)=220220,,220220 + 7261 + 7262 034376 402 00 0 00 000002 C22100: SETZM 2 ;INITIALIZE AC + 7263 034377 200 02 1 00 034342 MOVE 2,@E220 ;TEST INDIRECT ADDRESSING WITH INDEXING + 7264 034400 312 02 0 00 034343 CAME 2,E220B ;PASS IF C(AC)=220220,,220220 + 7265 STOP^ + 7266 034401 254 04 0 00 034402 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7267 034402 324 00 0 00 034403 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7268 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7269 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7270 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7271 + 7272 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 78 +DAKADM MAC 19-JAN-77 13:41 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0174 + + 7273 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT + 7274 LY. + 7275 ;IN THIS CASE,E221(1) 2,@E217 IS TESTED WHERE C(1)=-4 AND E221-4=E217A + 7276 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E217A)=@E221A=20,,E221A + 7277 + 7278 034403 476 00 0 00 000002 C22200: SETOM 2 ;INITIALIZE AC + 7279 034404 200 02 0 01 034350 MOVE 2,E221(1) ;TEST INDIRECT ADDRESSING WITH INDEXING + 7280 034405 312 02 0 00 034344 CAME 2,E217A ;PASS IF C(AC)=@E221A=20,,E221A + 7281 STOP^ + 7282 034406 254 04 0 00 034407 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7283 034407 324 00 0 00 034410 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7284 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7285 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7286 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7287 + 7288 ;********** + 7289 + 7290 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT + 7291 LY. + 7292 ;IN THIS CASE, MOVE 2,E222(6) IS TESTED WHERE C(6)=5 + 7293 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E222+5)=E222A(7)=7,,E222A + 7294 + 7295 034410 402 00 0 00 000002 C22300: SETZM 2 ;INITIALIZE AC + 7296 034411 200 02 0 06 034352 MOVE 2,E222(6) ;TEST INDIRECT ADDRESSING WITH INDEXING + 7297 034412 312 02 0 00 034357 CAME 2,E222+5 ;PASS IF C(AC)=E222A(7)=7,,E222A + 7298 STOP^ + 7299 034413 254 04 0 00 034414 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7300 034414 324 00 0 00 034415 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7301 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7302 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7303 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7304 + 7305 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 79 +DAKADM MAC 19-JAN-77 13:41 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0175 + + 7306 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT + 7307 LY. + 7308 ;IN THIS CASE, MOVE 2,@E223(10) IS TESTED WHERE C(10)=4 AND C(E223+4)=E223A + 7309 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E223A)=223223,,223223 + 7310 + 7311 034415 476 00 0 00 000002 C22400: SETOM 2 ;INITIALIZE AC + 7312 034416 200 02 1 10 034362 MOVE 2,@E223(10) ;TEST INDIRECT ADDRESSING WITH INDEXING + 7313 034417 312 02 0 00 034353 CAME 2,E223A ;PASS IF C(AC)=223223,,223223 + 7314 STOP^ + 7315 034420 254 04 0 00 034421 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7316 034421 324 00 0 00 034422 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7317 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7318 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7319 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7320 + 7321 ;********** + 7322 + 7323 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT + 7324 LY. + 7325 ;IN THIS CASE, MOVE 2,@E223(11) IS TESTED WHERE C(11)=-6, C(E223-6)=E224A(4) AND C(4)=10 + 7326 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E224A+10)=224224,,224224 + 7327 + 7328 034422 402 00 0 00 000002 C22500: SETZM 2 ;INITIALIZE AC + 7329 034423 200 02 1 11 034362 MOVE 2,@E223(11) ;TEST INDIRECT ADDRESSING WITH INDEXING + 7330 034424 312 02 0 00 034364 CAME 2,E224A+10 ;PASS IF C(AC)=224224,,224224 + 7331 STOP^ + 7332 034425 254 04 0 00 034426 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7333 034426 324 00 0 00 034427 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7334 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7335 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7336 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7337 + 7338 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 80 +DAKADM MAC 19-JAN-77 13:41 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0176 + + 7339 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT + 7340 LY. + 7341 ;IN THIS CASE, MOVE 2,@E225(13) IS TESTED WHERE C(13)=2, C(E225+2)=@E225A + 7342 ;AND C(E225A)=E225B + 7343 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E225B)=225225,,225225 + 7344 + 7345 034427 476 00 0 00 000002 C22600: SETOM 2 ;INITIALIZE AC + 7346 034430 200 02 1 13 034356 MOVE 2,@E225(13) ;TEST INDIRECT ADDRESSING WITH INDEXING + 7347 034431 312 02 0 00 034361 CAME 2,E225B ;PASS IF C(AC)=225225,,225225 + 7348 STOP^ + 7349 034432 254 04 0 00 034433 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7350 034433 324 00 0 00 034434 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7351 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7352 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7353 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7354 + 7355 ;********** + 7356 + 7357 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT + 7358 LY. + 7359 ;IN THIS CASE, MOVE 2,@E223(12) IS TESTED WHERE C(12)=5, C(E223+5)=@E226A(5), + 7360 ;C(5)=1 AND C(E226A+1)=E226B + 7361 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E226B)=226226,,226226 + 7362 + 7363 034434 402 00 0 00 000002 C22700: SETZM 2 ;INITIALIZE AC + 7364 034435 200 02 1 12 034362 MOVE 2,@E223(12) ;TEST INDIRECT ADDRESSING WITH INDEXING + 7365 034436 312 02 0 00 034365 CAME 2,E226B ;PASS IF C(AC)=226226,,226226 + 7366 STOP^ + 7367 034437 254 04 0 00 034440 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE + 7368 034440 324 00 0 00 034441 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) + 7369 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST + 7370 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR + 7371 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ + 7372 + 7373 ;********** +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 81 +DAKADM MAC 19-JAN-77 13:41 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0177 + + 7374 + 7375 034441 254 00 0 00 030057 JRST BEGEND + 7376 SUBTTL *STOR* RESERVED STORAGE, JAN 18,1977 + 7377 + 7378 ;PROGRAM LITERALS + 7379 + 7380 XLIST + 7381 IFNDEF $LPAPER, + 7382 034442 LIT + 7383 034442 000001 000001 + 7384 034443 254 00 0 00 030741 + 7385 034444 000001 000000 + 7386 034445 000002 000000 + 7387 034446 000004 000000 + 7388 034447 000010 000000 + 7389 034450 000020 000000 + 7390 034451 000040 000000 + 7391 034452 000100 000000 + 7392 034453 000200 000000 + 7393 034454 000400 000000 + 7394 034455 001000 000000 + 7395 034456 002000 000000 + 7396 034457 004000 000000 + 7397 034460 010000 000000 + 7398 034461 020000 000000 + 7399 034462 040000 000000 + 7400 034463 100000 000000 + 7401 034464 200000 000000 + 7402 034465 400000 000000 + 7403 034466 777777 777777 + 7404 034467 777777 777776 + 7405 034470 777777 777775 + 7406 034471 777777 777773 + 7407 034472 777777 777767 + 7408 034473 777777 777757 + 7409 034474 777777 777737 + 7410 034475 777777 777677 + 7411 034476 777777 777577 + 7412 034477 777777 777377 + 7413 034500 777777 776777 + 7414 034501 777777 775777 + 7415 034502 777777 773777 + 7416 034503 777777 767777 + 7417 034504 777777 757777 + 7418 034505 777777 737777 + 7419 034506 777777 677777 + 7420 034507 777777 577777 + 7421 034510 777777 377777 + 7422 034511 777776 777777 + 7423 034512 777775 777777 + 7424 034513 777773 777777 + 7425 034514 777767 777777 + 7426 034515 777757 777777 + 7427 034516 777737 777777 + 7428 034517 777677 777777 +DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 1 +STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0178 + + 7429 034520 777577 777777 + 7430 034521 777377 777777 + 7431 034522 776777 777777 + 7432 034523 775777 777777 + 7433 034524 773777 777777 + 7434 034525 767777 777777 + 7435 034526 757777 777777 + 7436 034527 737777 777777 + 7437 034530 677777 777777 + 7438 034531 577777 777777 + 7439 034532 377777 777777 + 7440 034533 777777 000000 + 7441 034534 000000 777777 + 7442 034535 252525 252525 + 7443 034536 000000 000000 + 7444 034537 254 04 0 00 032743 + 7445 034540 377777 377777 + 7446 034541 400000 400000 + 7447 034542 201 01 0 00 034217 + 7448 034543 201 01 0 00 000001 + 7449 034544 201 01 0 00 777777 + 7450 034545 256 00 0 00 034544 + 7451 034546 256 00 0 00 034545 + 7452 034547 256 00 0 00 034546 + 7453 034550 256 00 0 00 034547 + 7454 034551 200 01 0 00 034466 + 7455 034552 334 00 0 00 000000 + 7456 034553 707070 707070 + 7457 LIST + 7458 034554 000000 000000 ENDSLD: 0 + 7459 + 7460 IFDEF DEBUG,< + 7461 034555 PATCH: BLOCK DEBUG ;PATCHING AREA + 7462 > + 7463 + 7464 ;PROGRAM VARIABLES + 7465 034655 VAR + 7466 + 7467 IFDEF PGMEND,< + 7468 034655 000000 000000 END: 0 + 7469 030000 END BEGIN > + +NO ERRORS DETECTED + +PROGRAM BREAK IS 000000 +ABSLUTE BREAK IS 034656 +CPU TIME USED 00:28.911 + +11K CORE USED diff --git a/apps/pdp10/tapes/diags/klad/dakad/DAKAD.MAC b/apps/pdp10/tapes/diags/klad/dakad/DAKAD.MAC.txt similarity index 100% rename from apps/pdp10/tapes/diags/klad/dakad/DAKAD.MAC rename to apps/pdp10/tapes/diags/klad/dakad/DAKAD.MAC.txt diff --git a/apps/pdp10/tapes/diags/klad/dakad/DAKAD.SEQ.txt b/apps/pdp10/tapes/diags/klad/dakad/DAKAD.SEQ.txt deleted file mode 100644 index 59af34729..000000000 --- a/apps/pdp10/tapes/diags/klad/dakad/DAKAD.SEQ.txt +++ /dev/null @@ -1,43000 +0,0 @@ -MAINDEC-10-DAKAD.TXT - SEQ 0001 - - - - - - IDENTIFICATION - -------------- - - PRODUCT CODE: MAINDEC-10-DAKAD-B-D - - PRODUCT NAME: DECSYSTEM10 PDP-10 KA10 BASIC - INSTRUCTION DIAGNOSTIC (4) - - FUNCTION: REGISTER ADDRESSING, PC CHANGE, XCT - - 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-DAKAD.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-DAKAD.TXT - PAGE 3 SEQ 0003 - - -1.0 ABSTRACT - - THIS PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC IS THE - FOURTH IN A SERIES OF PDP-10 KA10 PROCESSOR DIAGNOSTICS. - THE DIAGNOSTIC TESTS REGISTER ADDRESSING, JFCL, AR FLAGS, - AOS, SOS, JRST, AOBJX, JSP, XCT, INDIRECT AND - INDEXED ADDRESSING. - -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-DAKAD.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-DAKAD.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-DAKAD - SEQ 0006 -************************************************************************ - -PRODUCT CODE: MAINDEC-10-DAKAD - -PRODUCT NAME: BASIC INSTRUCTION DIAGNOSTIC #4 - -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 - -************************************************************************ -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 1 -DAKADT MAC 19-JAN-77 13:37 DIAGNOSTIC PARAMETERS SEQ 0007 - - 1 ;DAKAD - 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 DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 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 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 2 -DAKADT MAC 19-JAN-77 13:37 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 444253 414400 PAREA3=SIXBIT/DBKAD/ - 62 645560 000000 PAREA4=SIXBIT/TMP/ - 63 000000 PAREA5=0 - 64 000000 PAREA6=0 - 65 001000 ITERAT==1000 - 66 000001 PGMEND=1 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 1 -PARAM KLM 18-JAN-77 11:38 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977 SEQ 0009 - - 67 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977 - 68 - 69 DEFINE S,<;*********************************************************************> - 70 - 71 S^;*********************************************************************^ - 72 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE) - 73 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE - 74 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS - 75 S^;*********************************************************************^ - 76 - 77 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION - 78 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS - 79 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE - 80 - 81 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) - 82 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) - 83 010000 DING== 010000 ;RING BELL ON ERROR - 84 - 85 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR - 86 002000 ERSTOP==002000 ;HALT ON TEST ERROR - 87 001000 PALERS==001000 ;PRINT ALL ERRORS - 88 - 89 000400 RELIAB==000400 ;RELIABILITY MODE - 90 000200 TXTINH==000200 ;INHIBIT ERROR TEXT - 91 000100 INHPAG==000100 ;INHIBIT PAGING - 92 - 93 000040 MODDVC==000040 ;MODIFY DEVICE CODE - 94 000020 INHCSH==000020 ;INHIBIT CACHE - 95 000010 OPRSEL==000010 ;OPERATOR SELECTION - 96 - 97 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH - 98 - 99 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER - 100 - 101 ;SWITCH 17 RESERVED !!! -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 2 -PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0010 - - 102 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 - 103 - 104 S^;*********************************************************************^ - 105 ;*SPECIAL SUBPROGRAM LINKAGES - 106 S^;*********************************************************************^ - 107 - 108 027772 FSELNK= 27772 ;FILE SELECT LINK - 109 027773 FRDLNK= 27773 ;FILE READ LINK - 110 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS - 111 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS - 112 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS - 113 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS - 114 - 115 S^;*********************************************************************^ - 116 ;*SPECIAL SUBROUTINE FATAL HALTS - 117 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE - 118 S^;*********************************************************************^ - 119 - 120 ;ADDRESS TAG REASON - 121 ;--------------------- - 122 - 123 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION - 124 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR - 125 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR - 126 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT - 127 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL - 128 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET - 129 ; 1016 CPIERR ;CPU INITIALIZATION ERROR - 130 ; 1017 EOPERR ;END OF PROGRAM ERROR - 131 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT - 132 - 133 S^;*********************************************************************^ -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 3 -PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0011 - - 134 S^;*********************************************************************^ - 135 ;OPERATOR DEFINITIONS (NON-UUO'S) - 136 S^;*********************************************************************^ - 137 - 138 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL - 139 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN - 140 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST - 141 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST - 142 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S - 143 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT - 144 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT - 145 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT - 146 - 147 S^;*********************************************************************^ - 148 ;*SUBROUTINE INITIALIZATION CALL - 149 S^;*********************************************************************^ - 150 - 151 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION - 152 - 153 S^;*********************************************************************^ - 154 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). - 155 S^;*********************************************************************^ - 156 - 157 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT - 158 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT - 159 - 160 S^;*********************************************************************^ - 161 ;*TERMINAL INPUT UUO'S - 162 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE - 163 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. - 164 S^;*********************************************************************^ - 165 - 166 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER - 167 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y - 168 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N - 169 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD - 170 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD - 171 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD - 172 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK - 173 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK - 174 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD - 175 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 4 -PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0012 - - 176 ;*TERMINAL OUTPUT UUO'S. - 177 - 178 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD - 179 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED - 180 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE - 181 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED - 182 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE - 183 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED - 184 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE - 185 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED - 186 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE - 187 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED - 188 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE - 189 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED - 190 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER - 191 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED - 192 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT - 193 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED - 194 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS - 195 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED - 196 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS - 197 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED - 198 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS - 199 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED - 200 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS - 201 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED - 202 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS - 203 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED - 204 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS - 205 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED - 206 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS - 207 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. - 208 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS - 209 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED - 210 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL - 211 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED - 212 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 - 213 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED - 214 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S - 215 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED - 216 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S - 217 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED - 218 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S - 219 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED - 220 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME - 221 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD - 222 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED - 223 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE - 224 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD - 225 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED - 226 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED - 227 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED - 228 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE - 229 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED - 230 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 4-1 -PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0013 - - 231 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED - 232 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL - 233 - 234 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE - 235 - 236 DEFINE PMSG (ARG),< - 237 PSIXM [SIXBIT\ARG'_\]> - 238 - 239 DEFINE PMSGF (ARG),< - 240 PSIXMF [SIXBIT\ARG'_\]> - 241 - 242 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING - 243 ;* CONSERVES CORE OVER ASCIZ - 244 - 245 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> - 246 - 247 ;*CONSOLE SWITCH INPUT UUO. - 248 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF - 249 ;* USER MODE. - 250 - 251 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES - 252 - 253 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION - 254 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. - 255 - 256 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK - 257 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER - 258 - 259 ;*KL10 ONLY CACHE OPERATION UUO'S - 260 - 261 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE - 262 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH - 263 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5 -PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0014 - - 264 ;*END OF PASS/PROGRAM UUOS - 265 - 266 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, - 267 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. - 268 - 269 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS - 270 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO - 271 - 272 ;*MEMORY MANAGEMENT UUO'S - 273 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, - 274 ;*ADDRESS CONVERSION, ETC... - 275 - 276 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY - 277 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY - 278 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT - 279 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT - 280 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK - 281 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP - 282 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP - 283 - 284 ;*DEVICE CODE MODIFICATION UUO - 285 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO - 286 ;*IOT'S TO A DIFFERENT DEVICE CODE. - 287 - 288 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER - 289 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM - 290 - 291 030000 IFNDEF MODDVL, - 292 030000 IFNDEF MODDVU, - 293 - 294 ;*"DIAMON" FILE SELECTION AND READ UUOS - 295 - 296 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION - 297 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA - 298 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA - 299 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA - 300 - 301 ;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES - 302 - 303 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE - 304 - 305 XLIST - 306 IFNDEF KLOLD, - 332 - 333 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP - 334 - 335 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< - 336 SALL - 337 ERUUO FORMAT,[T,,[SIXBIT\F'_\] - 338 CORECT,,ACTUAL - 339 [SIXBIT\D'_\],,ERR] - 340 XALL > - 341 - 342 >;END OF KLOLD CONDITIONAL - 343 - 344 XLIST - 345 LIST -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 1 -FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0016 - - 346 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 - 347 - 348 030000 LOC 30000 - 349 - 350 S^;*********************************************************************^ - 351 ;*PROGRAM STARTING ADDRESSES - 352 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS - 353 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE - 354 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER - 355 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. - 356 S^;*********************************************************************^ - 357 - 358 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START - 359 030001 254 00 0 00 030712 $START: JRST START ;MODE CHECK STARTING ADDRESS - 360 - 361 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START - 362 - 363 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START - 364 - 365 030004 254 00 0 00 030712 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START - 366 - 367 030005 254 00 0 00 030712 PFSTRT: JRST SADR2 ;POWER FAIL RESTART - 368 - 369 030006 254 00 0 00 030712 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) - 370 - 371 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" - 372 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START - 373 - 374 030010 254 00 0 00 030741 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) - 375 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE - 376 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE - 377 - 378 030013 254000 030712 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS - 379 030014 254000 030712 START2: SADR8 ; " - 380 030015 254000 030712 START3: SADR9 ; " - 381 030016 254000 030712 START4: SADR10 ; " - 382 030017 254000 030712 START5: SADR11 ; " -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 2 -FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0017 - - 383 S^;*********************************************************************^ - 384 ;*PROGRAM FIXED PARAMETER AREA - 385 S^;*********************************************************************^ - 386 - 387 030020 444253 414400 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME - 388 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION - 389 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER - 390 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES - 391 030024 000000 001000 ITRCNT: ITERAT ;PROGRAM ITERATIONS - 392 030025 000000 030725 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME - 393 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL - 394 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT - 395 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT - 396 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED - 397 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED - 398 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE - 399 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS - 400 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER - 401 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER - 402 - 403 S^;*********************************************************************^ - 404 ;*PROGRAM VARIABLE PARAMETER AREA - 405 S^;*********************************************************************^ - 406 - 407 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG - 408 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 - 409 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 - 410 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG - 411 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG - 412 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 - 413 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG - 414 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS - 415 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT - 416 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG - 417 030051 000000 000000 TESTPC: 0 ;SUBTEST PC - 418 030052 000000 000000 ERRPC: 0 ;ERROR PC - 419 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS - 420 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME - 421 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE - 422 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 3 -FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0018 - - 423 S^;*********************************************************************^ - 424 ;*SPECIAL PROGRAM DISPATCH ADDRESSES - 425 S^;*********************************************************************^ - 426 - 427 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS - 428 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM - 429 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN - 430 030062 254000 030712 CNTLC: SADR5 ;CONTROL C XFER ADDRESS - 431 030063 254000 030712 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS - 432 030064 CPOPJ1: ;SKIP RETURN - 433 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO - 434 030065 CPOPJ: ;NON-SKIP REGULAR RETURN - 435 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN - 436 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE - 437 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE - 438 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) - 439 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE - 440 030072 255 00 0 00 000000 $ITRX1: JFCL ; " - 441 030073 255 00 0 00 000000 $USRHL: JFCL ; " - 442 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE - 443 030075 255 00 0 00 000000 $RSRTY: JFCL ; " - 444 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) - 445 030077 255 00 0 00 000000 RESRT2: JFCL ; " - 446 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE - 447 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE - 448 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT - 449 - 450 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) - 451 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT - 452 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) - 453 - 454 S^;*********************************************************************^ - 455 ;*PROCESSOR CONTROL STORAGE - 456 S^;*********************************************************************^ - 457 - 458 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 - 459 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI - 460 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR - 461 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) - 462 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) - 463 - 464 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO - 465 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO - 466 - 467 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS - 468 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG - 469 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG - 470 030120 000000 000000 %COREC: 0 ; " CORRECT DATA - 471 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG - 472 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA - 473 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 4 -FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0019 - - 474 S^;*********************************************************************^ - 475 ;*UUO DISPATCH TABLE - 476 S^;*********************************************************************^ - 477 XLIST - 478 LIST - 479 030124 030070 030070 UUODIS: LUUO1,,$UUOER - 480 030125 030070 030070 LUUO3,,LUUO2 - 481 030126 030070 030070 LUUO5,,LUUO4 - 482 030127 030070 030070 LUUO7,,LUUO6 - 483 030130 030070 030070 LUUO11,,LUUO10 - 484 030131 030070 030070 LUUO13,,LUUO12 - 485 030132 030070 030070 LUUO15,,LUUO14 - 486 030133 030070 030070 LUUO17,,LUUO16 - 487 030134 030070 030070 LUUO21,,LUUO20 - 488 030135 030070 030070 LUUO23,,LUUO22 - 489 030136 030070 030070 LUUO25,,LUUO24 - 490 030137 030070 030070 LUUO27,,LUUO26 - 491 030140 030070 030070 LUUO31,,LUUO30 - 492 030141 030070 030070 LUUO33,,LUUO32 - 493 - 494 S^;*********************************************************************^ - 495 ;*MEMORY MANAGMENT STORAGE - 496 S^;*********************************************************************^ - 497 - 498 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT - 499 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING - 500 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) - 501 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY - 502 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE - 503 - 504 S^;*********************************************************************^ - 505 ;*PRINT CONTROL STORAGE - 506 S^;*********************************************************************^ - 507 - 508 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE - 509 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE - 510 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG - 511 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS - 512 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL - 513 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME - 514 030225 000000 000000 $TWCNT: 0 ;TIME WAITED - 515 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG - 516 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG - 517 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE - 518 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR - 519 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR - 520 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER - 521 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG - 522 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG - 523 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG - 524 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG - 525 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS - 526 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5 -FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0020 - - 527 S^;*********************************************************************^ - 528 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED - 529 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: - 530 ;* MOVEI NAME - 531 ;* PNTA ;OR PNTAF - 532 S^;*********************************************************************^ - 533 - 534 030242 CRLF: ASCII/ - 535 030242 015 012 000 000 000 / - 536 030243 CRLF2: ASCII/ - 537 - 538 030243 015 012 015 012 000 / - 539 030244 054 000 000 000 000 COMMA: ASCII/,/ - 540 030245 056 000 000 000 000 PERIOD: ASCII/./ - 541 030246 040 000 000 000 000 SPACE: ASCII/ / - 542 030247 011 000 000 000 000 TAB: ASCII/ / - 543 030250 MINUS: - 544 030250 055 000 000 000 000 HYPEN: ASCII/-/ - 545 030251 053 000 000 000 000 PLUS: ASCII/+/ - 546 030252 052 000 000 000 000 AST: ASCII/*/ - 547 030253 100 000 000 000 000 ATSIN: ASCII/@/ - 548 030254 050 000 000 000 000 LFP: ASCII/(/ - 549 030255 051 000 000 000 000 RTP: ASCII/)/ - 550 030256 007 0000000000 BELL: BYTE (7) 007 - 551 030257 077 000 000 000 000 QUEST: ASCII/?/ - 552 030260 057 000 000 000 000 SLASH: ASCII!/! - 553 030261 044 000 000 000 000 DOLLAR: ASCII/$/ - 554 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX - 555 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR - 556 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT - 557 - 558 S^;*********************************************************************^ - 559 ;*USER MODE OUTPUT FILE INFORMATION - 560 S^;*********************************************************************^ - 561 - 562 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER - 563 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME - 564 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION - 565 030272 BLOCK 2 - 566 - 567 S^;*********************************************************************^ - 568 ;*DISK UPDATE MODE FILE INFORMATION - 569 S^;*********************************************************************^ - 570 - 571 030274 $IBUF: BLOCK 3 - 572 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ - 573 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ - 574 030301 BLOCK 2 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6 -FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0021 - - 575 S^;*********************************************************************^ - 576 ;*PUSHDOWN LIST CONTROL INFORMATION - 577 S^;*********************************************************************^ - 578 - 579 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST - 580 030304 PLISTS: BLOCK 200 - 581 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST - 582 - 583 S^;*********************************************************************^ - 584 ;*POWER LINE CLOCK FREQUENCY FLAG - 585 S^;*********************************************************************^ - 586 - 587 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE - 588 - 589 S^;*********************************************************************^ - 590 ;*KL10 CACHE CONTROL FLAGS - 591 S^;*********************************************************************^ - 592 - 593 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 - 594 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 - 595 - 596 S^;*********************************************************************^ - 597 ;*NUMBER INPUT DIGIT FLAG - 598 S^;*********************************************************************^ - 599 - 600 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED - 601 - 602 S^;*********************************************************************^ - 603 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION - 604 S^;*********************************************************************^ - 605 - 606 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION - 607 - 608 S^;*********************************************************************^ - 609 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS - 610 S^;*********************************************************************^ - 611 - 612 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO - 613 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO - 614 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO - 615 - 616 S^;*********************************************************************^ - 617 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION - 618 S^;*********************************************************************^ - 619 - 620 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 7 -FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0022 - - 621 S^;*********************************************************************^ - 622 ;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD - 623 S^;*********************************************************************^ - 624 - 625 030516 000000 000000 KLTYP: 0 - 626 - 627 S^;*********************************************************************^ - 628 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION - 629 S^;*********************************************************************^ - 630 - 631 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER - 632 - 633 S^;*********************************************************************^ - 634 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION - 635 S^;*********************************************************************^ - 636 - 637 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR - 638 - 639 S^;*********************************************************************^ - 640 ;*"SWITCH" CALL USAGE CONTROL - 641 S^;*********************************************************************^ - 642 - 643 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES - 644 - 645 S^;*********************************************************************^ - 646 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS - 647 S^;*********************************************************************^ - 648 - 649 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL - 650 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL - 651 - 652 S^;*********************************************************************^ - 653 ;*SPECIAL FUTURE EXPANSION ROOM - 654 ;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF - 655 ;*THIS BLOCK STATEMENT ACCORDINGLY. THIS MUST BE DONE - 656 ;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE. - 657 S^;*********************************************************************^ - 658 - 659 030524 BLOCK 53 ;HOPEFULLY THIS IS ENOUGH FOREVER - 660 - 661 S^;*********************************************************************^ - 662 ;*END OF FIXED STORAGE - 663 S^;*********************************************************************^ - 664 - 665 030577 $ENDFX=&<777700>-1 - 666 030577 LOC $ENDFX - 667 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 1 -SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0023 - - 668 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 - 669 - 670 ;NEW DEFINITIONS USED BY THE KL10 SUBROUTINE PACKAGE - 671 - 672 000000 AC0= 0 - 673 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS - 674 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS - 675 020000 DIAMON= 20000 ;PDP-10 DIAMON LOADER START ADDRESS - 676 020000 DONG11= 1B22 ;11 DOORBELL (FROM THE 10) - 677 - 678 ;DTE20 DEVICE CODES - 679 - 680 000200 DTE== 200 ;DTE0 - 681 000204 DTE0== 204 - 682 000204 DTE1== 204 - 683 000210 DTE2== 210 - 684 000214 DTE3== 214 - 685 - 686 ;KL10 EPT COMMUNICATION AREA - 687 - 688 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS - 689 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS - 690 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS - 691 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS - 692 - 693 000444 $DTFLG= 444 ;DTE20 OPERATION COMPLETE FLAG - 694 000445 $DTCLK= 445 ;DTE20 CLOCK INTERRUPT FLAG - 695 000446 $DTCI= 446 ;DTE20 CLOCK INTERRUPT INSTRUCTION - 696 000447 $DTT11= 447 ;DTE20 10 TO 11 ARGUMENT - 697 000450 $DTF11= 450 ;DTE20 11 TO 10 ARGUMENT - 698 000451 $DTCMD= 451 ;DTE20 TO 11 COMMAND WORD - 699 000452 $DTSEQ= 452 ;DTE20 OPERATION SEQUENCE NUMBER - 700 000453 $DTOPR= 453 ;DTE20 OPERATIONAL DTE # - 701 000454 $DTCHR= 454 ;DTE20 LAST TYPED CHARACTER - 702 000455 $DTMTD= 455 ;DTE20 MONITOR TTY OUTPUT COMPLETE FLAG - 703 000456 $DTMTI= 456 ;DTE20 MONITOR TTY INPUT FLAG - 704 - 705 000457 $DTSWR= 457 ;DTE20 CONSOLE SWITCH REGISTER -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 2 -SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0024 - - 706 ;SPECIAL "FIXED" REASSIGNMENTS - 707 - 708 030600 $$LOC=. ;SAVE CURRENT LOCATION - 709 - 710 030000 LOC 30000 - 711 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START - 712 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS - 713 - 714 000440 LOC 440 - 715 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD" - 716 000443 LOC 443 - 717 000443 254 00 0 00 030636 $STM: JRST $SPEC ;SIMPLE RUN CONTROL - 718 - 719 030057 LOC 30057 - 720 030057 254 00 0 00 030641 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND" - 721 - 722 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP - 723 - 724 000420 LOC 420 - 725 000420 254 04 0 00 000420 $$420: HALT . ;KI10 PAGE FAIL - 726 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW - 727 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW - 728 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3 - 729 000424 000000 000000 $$424: 0 ;MMUO - 730 000425 000000 000000 $$425: 0 ;MMUO PC - 731 000426 000000 000000 $$426: 0 ;KI10-PAGE FAIL, KL10-PROCESS CONTEXT - 732 000427 254 04 0 00 000427 $$427: HALT . - 733 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S - 734 000431 000000 000427 $$431: 427 - 735 000432 000000 000427 $$432: 427 - 736 000433 000000 000427 $$433: 427 - 737 000434 000000 000427 $$434: 427 - 738 000435 000000 000427 $$435: 427 - 739 000436 000000 000427 $$436: 427 - 740 000437 000000 000427 $$437: 427 - 741 - 742 000500 LOC 500 - 743 000500 000000 000000 $$500: 0 ;KL10 PAGE FAIL WORD - 744 000501 000000 000000 $$501: 0 ;KL10 PAGE FAIL PC - 745 000502 000000 000503 $$502: 503 ;KL10 PAGE FAIL NEW PC - 746 000503 254 04 0 00 000503 $$503: HALT . -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 3 -SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0025 - - 747 030600 LOC $$LOC ;RESET CURRENT LOCATION - 748 - 749 ;SPECIAL STARTUP SEQUENCE - 750 - 751 030600 402 00 0 00 030037 $$START:SETZM USER - 752 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ? - 753 030602 603 00 0 00 010000 TLNE 0,USERF - 754 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD - 755 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ? - 756 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC - 757 030606 332 00 0 00 030037 SKIPE USER - 758 030607 254 00 0 00 030712 JRST START ;USER MODE, DON'T NEED CPU TYPE - 759 - 760 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ? - 761 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER - 762 030612 402 00 0 00 030516 SETZM KLTYP - 763 030613 402 00 0 00 030041 SETZM KLFLG ;ASSUME KI10 - 764 030614 200 01 0 00 034442 MOVE 1,[1,,1] - 765 030615 251 01 0 00 000001 BLT 1,1 ;HOPE THIS WORKS - 766 030616 316 01 0 00 034442 CAMN 1,[1,,1] ;IF AC NE 1,,1 AFTER BLT, KL10 - 767 030617 254 00 0 00 030712 JRST START ;KI10, NO ADDITIONAL SETUP - 768 - 769 030620 7 000 20 0 00 010040 $STKL: CONO APR,10040 ;SET BBD NOT BIT - 770 030621 7 000 24 0 00 000000 CONI APR,0 - 771 030622 7 000 20 0 00 020040 CONO APR,20040 ;CLEAR BBD NOT BIT - 772 030623 606 00 0 00 000040 TRNN 0,40 ;IF SET, KL10 - 773 030624 350 00 0 00 030516 AOS KLTYP ;IF NOT, BBD - 774 030625 402 00 0 00 000444 SETZM $DTFLG - 775 030626 402 00 0 00 000445 SETZM $DTCLK - 776 030627 200 00 0 00 000453 MOVE $DTOPR ;GET DTE # - 777 030630 436 00 0 00 030670 ORM $$DTE0 ;INSERT IN DTE I/O INSTS - 778 030631 436 00 0 00 030672 ORM $$DTE1 - 779 030632 436 00 0 00 030704 ORM $$DTE2 - 780 030633 436 00 0 00 030706 ORM $$DTE3 - 781 030634 476 00 0 00 030041 SETOM KLFLG ;SET KL10 CONTROL FLAG - 782 030635 254 00 0 00 030712 JRST START - 783 - 784 030636 200 00 0 00 034443 $SPEC: MOVE [JRST STARTA] ;SIMPLE RUN CONTROL - 785 030637 202 00 0 00 030643 MOVEM $SPB1 - 786 030640 254 00 0 00 030712 JRST START -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 4 -SPCCPU KLM 26-FEB-76 05:50 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76 SEQ 0026 - - 787 ;SPECIAL "BEGEND" ROUTINE - 788 - 789 030641 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT - 790 030642 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT - 791 030643 336 00 0 00 030037 $SPB1: SKIPN USER - 792 030644 254 00 0 00 030652 JRST $SPBEX ;EXEC MODE - 793 - 794 030645 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ? - 795 030646 254 00 0 00 030741 JRST STARTA ;NO, KEEP RUNNING - 796 030647 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? - 797 030650 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR - 798 030651 254 00 1 00 030012 JRST @RETURN ;YES, RETURN TO "DIAMON" - 799 - 800 030652 332 00 0 00 030041 $SPBEX: SKIPE KLFLG - 801 030653 254 00 0 00 030660 JRST $SPBKL ;KL10 & EXEC - 802 030654 7 004 14 0 00 030024 DATAO PI,ITRCNT ;KI10 & EXEC, DISPLAY ITER COUNT - 803 030655 332 00 0 00 030024 SKIPE ITRCNT - 804 030656 254 00 0 00 030741 JRST STARTA ;NOT COMPLETED YET - 805 030657 254 00 1 00 030012 JRST @RETURN ;DONE - 806 - 807 030660 336 00 0 00 030024 $SPBKL: SKIPN ITRCNT - 808 030661 254 00 0 00 030676 JRST $SPKLD ;KL10, EXEC & COMPLETED - 809 - 810 030662 335 00 0 00 030043 SKIPGE MONCTL - 811 030663 254 00 0 00 030741 JRST STARTA ;"DIAMON" CONTROL - 812 030664 201 00 0 00 000404 MOVEI 0,404 ;NOTIFY PDP-11 OF END OF PASS - 813 030665 202 00 0 00 000451 MOVEM 0,$DTCMD - 814 030666 402 00 0 00 000444 SETZM $DTFLG - 815 030667 336 00 0 00 030516 SKIPN KLTYP - 816 030670 7 200 20 0 00 020000 $$DTE0: CONO DTE,DONG11 - 817 030671 332 00 0 00 030516 SKIPE KLTYP - 818 030672 7 200 20 0 00 010000 $$DTE1: CONO DTE,10000 - 819 030673 336 00 0 00 000444 SKIPN $DTFLG ;WAIT TILL 11 RESPONDS - 820 030674 254 00 0 00 030673 JRST .-1 - 821 030675 254 00 0 00 030741 JRST STARTA ;KEEP RUNNING - 822 - 823 ;SPECIAL KL10 COMPLETED ROUTINE - 824 - 825 030676 332 00 0 00 030044 $SPKLD: SKIPE MONTEN - 826 030677 254 00 1 00 030012 JRST @RETURN ;LOADED BY "DIAMON" - 827 - 828 030700 201 00 0 00 000403 MOVEI 0,403 ;NOTIFY PDP-11 OF COMPLETION - 829 030701 202 00 0 00 000451 MOVEM 0,$DTCMD - 830 030702 402 00 0 00 000444 SETZM $DTFLG - 831 030703 336 00 0 00 030516 SKIPN KLTYP - 832 030704 7 200 20 0 00 020000 $$DTE2: CONO DTE,DONG11 - 833 030705 332 00 0 00 030516 SKIPE KLTYP - 834 030706 7 200 20 0 00 010000 $$DTE3: CONO DTE,10000 - 835 030707 336 00 0 00 000444 SKIPN $DTFLG ;SHOULD NEVER HAPPEN - 836 030710 254 00 0 00 030707 JRST .-1 ;11 NEVER RETURNS ON END OF PROGRAM - 837 030711 254 04 0 00 030000 HALT BEGIN ;IF IT DOES, HALT. -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 1 -DAKADM MAC 19-JAN-77 13:41 DIAGNOSTIC PARAMETERS SEQ 0027 - - 838 SUBTTL DIAGNOSTIC PARAMETERS - 839 - 840 ;ACCUMULATOR ASSIGNMENTS - 841 - 842 ;CONTROL WORDS - 843 - 844 400000 AROV=400000 ;ARITHMETIC OVERFLOW - 845 200000 CRY0=200000 ;CARRY 0 - 846 100000 CRY1=100000 ;CARRY 1 - 847 040000 FOV=40000 ;FLOATING OVERFLOW - 848 020000 BIS=20000 ;BYTE INTERRUPT - 849 010000 USERF=10000 ;USER MODE FLAG - 850 004000 EXIOT=4000 ;USER PRIV I/O FLAG - 851 000100 FXU=100 ;FLOATING UNDERFLOW - 852 000040 DCK=40 ;DIVIDE CHECK - 853 - 854 - 855 ;MACROS - 856 - 857 ; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1) - 858 ; TO A (JUMPA X) TO CYCLE ON FAILING INSTRUCTION - 859 - 860 DEFINE STOP (A)< - 861 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 862 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 863 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 864 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 865 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1> - 866 - 867 ; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET REQUESTED FLAG - 868 - 869 DEFINE SFLAG (A)< - 870 MOVSI 1,A - 871 JFCL 17,.+1 ;RESET ALL FLAGS - 872 JRST 2,.+1(1) ;SET A FLAG> -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 2 -DAKADM MAC 19-JAN-77 13:41 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 030742 JRST C00 - 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 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) [DAKAD] - 889 030726 055 061 060 040 113 - 890 030727 101 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 064 - 897 030736 051 040 133 104 101 - 898 030737 113 101 104 135 015 - 899 030740 012 000 000 000 000 / - 900 - 901 ;BASIC INSTRUCTION TEST (3) - 902 ;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF - 903 ;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES - 904 ;IN THE FIELD. - 905 - 906 030741 254 00 0 00 030742 STARTA: JRST .+1 - 907 030742 C00: -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 3 -DAKADM MAC 19-JAN-77 13:41 DIAGNOSTIC SECTION SEQ 0029 - - 908 ;TESTING BEGINS HERE - 909 - 910 ;IF ANY LOADING PROBLEMS OCCUR, START PROGRAM HERE. - 911 - 912 ;NOTE: AN "*" IN THE COMMENT FIELD OF AN INSTRUCTION INDICATES THAT - 913 ; IT IS THE TESTED INSTRUCTION. - 914 - 915 SUBTTL TEST OF AC HARDWARE AND INDEX REGISTERS - 916 - 917 ;********** - 918 - 919 ;THIS TEST VERIFIES THAT AC1 IS ACCESSABLE - 920 ;IN THIS CASE, AC1 IS PRELOADED WITH 1. - 921 ;C(AC1) IS THEN CHECKED FOR A1. THIS TEST PASSES IF C(AC1)=1. - 922 ;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY - 923 - 924 030742 400 00 0 00 000000 C100: SETZ ;CLEAR AC0 - 925 030743 201 01 0 00 000001 MOVEI 1,1 ;PRELOAD AC1 WITH 1 - 926 030744 302 01 0 00 000001 CAIE 1,1 ;PASS IF C(AC1)=1 - 927 STOP^ - 928 030745 254 04 0 00 030746 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 929 030746 324 00 0 00 030747 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 930 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 931 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 932 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 933 - 934 ;********** - 935 - 936 ;THIS TEST VERIFIES THAT AC2 IS ACCESSABLE. - 937 ;IN THIS CASE, AC2 IS PRELOADED WITH 2. - 938 ;C(AC2) IS THEN CHECKED FOR 2. THIS TEST PASSES IF C(AC2)=2. - 939 ;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY - 940 - 941 030747 201 02 0 00 000002 C200: MOVEI 2,2 ;PRELOAD AC2 WITH 2 - 942 030750 302 02 0 00 000002 CAIE 2,2 ;PASS IF C(AC2)=2 - 943 STOP^ - 944 030751 254 04 0 00 030752 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 945 030752 324 00 0 00 030753 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 946 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 947 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 948 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 949 - 950 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 4 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0030 - - 951 ;THIS TEST VERIFIES THAT AC4 IS ACCESSABLE. - 952 ;IN THIS CASE, AC4 IS PRELOADED WITH 4. - 953 ;C(AC4) IS THEN CHECKED FOR 4. THIS TEST PASSES IF C(AC4)=4. - 954 ;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY - 955 - 956 030753 201 04 0 00 000004 C300: MOVEI 4,4 ;PRELOAD AC4 WITH 4 - 957 030754 302 04 0 00 000004 CAIE 4,4 ;PASS IF C(AC4)=4 - 958 STOP^ - 959 030755 254 04 0 00 030756 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 960 030756 324 00 0 00 030757 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 961 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 962 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 963 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 964 - 965 ;********** - 966 - 967 ;THIS TEST VERIFIES THAT AC10 IS ACCESSABLE. - 968 ;IN THIS CASE, AC10 IS PRELOADED WITH 10. - 969 ;C(AC10) IS THEN CHECKED FOR 10. THIS TEST PASSES IF C(AC10)=10. - 970 ;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY - 971 - 972 030757 201 10 0 00 000010 C400: MOVEI 10,10 ;PRELOAD AC10 WITH 10 - 973 030760 302 10 0 00 000010 CAIE 10,10 ;PASS IF C(AC10)=10 - 974 STOP^ - 975 030761 254 04 0 00 030762 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 976 030762 324 00 0 00 030763 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 977 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 978 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 979 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 980 - 981 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0031 - - 982 000500 SN=500 - 983 777777 777777 ZZ=-1 - 984 - 985 ;THIS TEST VERIFIES THAT ALL ACS EXIST - 986 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 987 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 988 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 989 - 990 C500: REPEAT ^D16, - 991 < ZZ=ZZ+1 - 992 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR> - 993 000000 ZZ=ZZ+1 - 994 030763 201 00 0 00 000000 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 995 000001 ZZ=ZZ+1 - 996 030764 201 01 0 00 000001 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 997 000002 ZZ=ZZ+1 - 998 030765 201 02 0 00 000002 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 999 000003 ZZ=ZZ+1 - 1000 030766 201 03 0 00 000003 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 1001 000004 ZZ=ZZ+1 - 1002 030767 201 04 0 00 000004 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 1003 000005 ZZ=ZZ+1 - 1004 030770 201 05 0 00 000005 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 1005 000006 ZZ=ZZ+1 - 1006 030771 201 06 0 00 000006 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 1007 000007 ZZ=ZZ+1 - 1008 030772 201 07 0 00 000007 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 1009 000010 ZZ=ZZ+1 - 1010 030773 201 10 0 00 000010 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 1011 000011 ZZ=ZZ+1 - 1012 030774 201 11 0 00 000011 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 1013 000012 ZZ=ZZ+1 - 1014 030775 201 12 0 00 000012 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 1015 000013 ZZ=ZZ+1 - 1016 030776 201 13 0 00 000013 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 1017 000014 ZZ=ZZ+1 - 1018 030777 201 14 0 00 000014 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 1019 000015 ZZ=ZZ+1 - 1020 031000 201 15 0 00 000015 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 1021 000016 ZZ=ZZ+1 - 1022 031001 201 16 0 00 000016 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 1023 000017 ZZ=ZZ+1 - 1024 031002 201 17 0 00 000017 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR - 1025 PAGE -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5-1 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0032 - - 1026 000020 ZZ=20 - 1027 - 1028 REPEAT ^D16,< - 1029 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1030 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1031 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1032 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1033 - 1034 SN=SN+1 - 1035 ZZ=ZZ-1 - 1036 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1037 STOP - 1038 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1039 - 1040 ;********** - 1041 > - 1042 - 1043 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1044 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1045 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1046 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1047 - 1048 000501 SN=SN+1 - 1049 000017 ZZ=ZZ-1 - 1050 031003 302 17 0 00 000017 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1051 STOP^ - 1052 031004 254 04 0 00 031005 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1053 031005 324 00 0 00 031006 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1054 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1055 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1056 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1057 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1058 - 1059 ;********** - 1060 - 1061 - 1062 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1063 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1064 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1065 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1066 - 1067 000502 SN=SN+1 - 1068 000016 ZZ=ZZ-1 - 1069 031006 302 16 0 00 000016 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1070 STOP^ - 1071 031007 254 04 0 00 031010 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1072 031010 324 00 0 00 031011 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 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1077 - 1078 ;********** - 1079 - 1080 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5-2 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0033 - - 1081 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1082 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1083 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1084 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1085 - 1086 000503 SN=SN+1 - 1087 000015 ZZ=ZZ-1 - 1088 031011 302 15 0 00 000015 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1089 STOP^ - 1090 031012 254 04 0 00 031013 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1091 031013 324 00 0 00 031014 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1092 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1093 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1094 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1095 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1096 - 1097 ;********** - 1098 - 1099 - 1100 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1101 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1102 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1103 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1104 - 1105 000504 SN=SN+1 - 1106 000014 ZZ=ZZ-1 - 1107 031014 302 14 0 00 000014 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1108 STOP^ - 1109 031015 254 04 0 00 031016 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1110 031016 324 00 0 00 031017 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1111 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1112 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1113 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1114 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1115 - 1116 ;********** - 1117 - 1118 - 1119 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1120 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1121 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1122 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1123 - 1124 000505 SN=SN+1 - 1125 000013 ZZ=ZZ-1 - 1126 031017 302 13 0 00 000013 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1127 STOP^ - 1128 031020 254 04 0 00 031021 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1129 031021 324 00 0 00 031022 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1130 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1131 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1132 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1133 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1134 - 1135 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5-3 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0034 - - 1136 - 1137 - 1138 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1139 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1140 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1141 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1142 - 1143 000506 SN=SN+1 - 1144 000012 ZZ=ZZ-1 - 1145 031022 302 12 0 00 000012 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1146 STOP^ - 1147 031023 254 04 0 00 031024 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1148 031024 324 00 0 00 031025 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1149 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1150 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1151 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1152 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1153 - 1154 ;********** - 1155 - 1156 - 1157 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1158 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1159 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1160 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1161 - 1162 000507 SN=SN+1 - 1163 000011 ZZ=ZZ-1 - 1164 031025 302 11 0 00 000011 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1165 STOP^ - 1166 031026 254 04 0 00 031027 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1167 031027 324 00 0 00 031030 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 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1172 - 1173 ;********** - 1174 - 1175 - 1176 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1177 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1178 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1179 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1180 - 1181 000510 SN=SN+1 - 1182 000010 ZZ=ZZ-1 - 1183 031030 302 10 0 00 000010 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1184 STOP^ - 1185 031031 254 04 0 00 031032 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1186 031032 324 00 0 00 031033 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1187 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1188 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1189 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1190 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5-4 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0035 - - 1191 - 1192 ;********** - 1193 - 1194 - 1195 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1196 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1197 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1198 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1199 - 1200 000511 SN=SN+1 - 1201 000007 ZZ=ZZ-1 - 1202 031033 302 07 0 00 000007 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1203 STOP^ - 1204 031034 254 04 0 00 031035 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1205 031035 324 00 0 00 031036 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1206 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1207 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1208 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1209 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1210 - 1211 ;********** - 1212 - 1213 - 1214 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1215 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1216 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1217 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1218 - 1219 000512 SN=SN+1 - 1220 000006 ZZ=ZZ-1 - 1221 031036 302 06 0 00 000006 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1222 STOP^ - 1223 031037 254 04 0 00 031040 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1224 031040 324 00 0 00 031041 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1225 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1226 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1227 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1228 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1229 - 1230 ;********** - 1231 - 1232 - 1233 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1234 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1235 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1236 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1237 - 1238 000513 SN=SN+1 - 1239 000005 ZZ=ZZ-1 - 1240 031041 302 05 0 00 000005 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1241 STOP^ - 1242 031042 254 04 0 00 031043 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1243 031043 324 00 0 00 031044 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1244 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1245 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5-5 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0036 - - 1246 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1247 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1248 - 1249 ;********** - 1250 - 1251 - 1252 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1253 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1254 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1255 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1256 - 1257 000514 SN=SN+1 - 1258 000004 ZZ=ZZ-1 - 1259 031044 302 04 0 00 000004 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1260 STOP^ - 1261 031045 254 04 0 00 031046 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1262 031046 324 00 0 00 031047 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1263 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1264 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1265 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1266 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1267 - 1268 ;********** - 1269 - 1270 - 1271 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1272 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1273 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1274 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1275 - 1276 000515 SN=SN+1 - 1277 000003 ZZ=ZZ-1 - 1278 031047 302 03 0 00 000003 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1279 STOP^ - 1280 031050 254 04 0 00 031051 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1281 031051 324 00 0 00 031052 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1282 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1283 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1284 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1285 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1286 - 1287 ;********** - 1288 - 1289 - 1290 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1291 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1292 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1293 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1294 - 1295 000516 SN=SN+1 - 1296 000002 ZZ=ZZ-1 - 1297 031052 302 02 0 00 000002 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1298 STOP^ - 1299 031053 254 04 0 00 031054 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1300 031054 324 00 0 00 031055 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 5-6 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0037 - - 1301 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1302 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1303 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1304 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1305 - 1306 ;********** - 1307 - 1308 - 1309 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1310 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1311 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1312 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1313 - 1314 000517 SN=SN+1 - 1315 000001 ZZ=ZZ-1 - 1316 031055 302 01 0 00 000001 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1317 STOP^ - 1318 031056 254 04 0 00 031057 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1319 031057 324 00 0 00 031060 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1320 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1321 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1322 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1323 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1324 - 1325 ;********** - 1326 - 1327 - 1328 ;THIS TEST VERIFIES THAT ALL ACS EXIST. - 1329 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; - 1330 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1331 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - 1332 - 1333 000520 SN=SN+1 - 1334 000000 ZZ=ZZ-1 - 1335 031060 302 00 0 00 000000 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1336 STOP^ - 1337 031061 254 04 0 00 031062 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1338 031062 324 00 0 00 031063 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1339 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1340 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1341 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1342 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - 1343 - 1344 ;********** - 1345 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0038 - - 1346 000600 SN=600 - 1347 000000 ZZ=0 - 1348 - 1349 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1350 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1351 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS; THEN THE CONTENTS OF EACH - 1352 ;AC IS CHECKED FOR ITS ADDRESS. IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1353 - 1354 C600: REPEAT ^D15, - 1355 < ZZ=ZZ+1 - 1356 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1357 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY.> - 1358 000001 ZZ=ZZ+1 - 1359 031063 201 00 0 00 000001 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1360 031064 202 00 0 00 000001 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. - 1361 000002 ZZ=ZZ+1 - 1362 031065 201 00 0 00 000002 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1363 031066 202 00 0 00 000002 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. - 1364 000003 ZZ=ZZ+1 - 1365 031067 201 00 0 00 000003 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1366 031070 202 00 0 00 000003 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. - 1367 000004 ZZ=ZZ+1 - 1368 031071 201 00 0 00 000004 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1369 031072 202 00 0 00 000004 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. - 1370 000005 ZZ=ZZ+1 - 1371 031073 201 00 0 00 000005 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1372 031074 202 00 0 00 000005 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. - 1373 000006 ZZ=ZZ+1 - 1374 031075 201 00 0 00 000006 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1375 031076 202 00 0 00 000006 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. - 1376 000007 ZZ=ZZ+1 - 1377 031077 201 00 0 00 000007 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1378 031100 202 00 0 00 000007 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. - 1379 000010 ZZ=ZZ+1 - 1380 031101 201 00 0 00 000010 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1381 031102 202 00 0 00 000010 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. - 1382 000011 ZZ=ZZ+1 - 1383 031103 201 00 0 00 000011 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1384 031104 202 00 0 00 000011 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. - 1385 000012 ZZ=ZZ+1 - 1386 031105 201 00 0 00 000012 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1387 031106 202 00 0 00 000012 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. - 1388 000013 ZZ=ZZ+1 - 1389 031107 201 00 0 00 000013 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1390 031110 202 00 0 00 000013 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. - 1391 000014 ZZ=ZZ+1 - 1392 031111 201 00 0 00 000014 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1393 031112 202 00 0 00 000014 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. - 1394 000015 ZZ=ZZ+1 - 1395 031113 201 00 0 00 000015 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1396 031114 202 00 0 00 000015 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. - 1397 000016 ZZ=ZZ+1 - 1398 031115 201 00 0 00 000016 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1399 031116 202 00 0 00 000016 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. - 1400 000017 ZZ=ZZ+1 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6-1 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0039 - - 1401 031117 201 00 0 00 000017 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - 1402 031120 202 00 0 00 000017 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. - 1403 - 1404 000020 ZZ=20 - 1405 - 1406 REPEAT ^D15,< - 1407 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1408 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1409 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1410 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1411 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1412 - 1413 SN=SN+1 - 1414 ZZ=ZZ-1 - 1415 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1416 STOP - 1417 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1418 - 1419 ;********** - 1420 > - 1421 - 1422 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1423 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1424 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1425 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1426 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1427 - 1428 000601 SN=SN+1 - 1429 000017 ZZ=ZZ-1 - 1430 031121 302 17 0 00 000017 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1431 STOP^ - 1432 031122 254 04 0 00 031123 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1433 031123 324 00 0 00 031124 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1434 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1435 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1436 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1437 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1438 - 1439 ;********** - 1440 - 1441 - 1442 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1443 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1444 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1445 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1446 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1447 - 1448 000602 SN=SN+1 - 1449 000016 ZZ=ZZ-1 - 1450 031124 302 16 0 00 000016 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1451 STOP^ - 1452 031125 254 04 0 00 031126 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1453 031126 324 00 0 00 031127 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1454 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1455 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6-2 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0040 - - 1456 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1457 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1458 - 1459 ;********** - 1460 - 1461 - 1462 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1463 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1464 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1465 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1466 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1467 - 1468 000603 SN=SN+1 - 1469 000015 ZZ=ZZ-1 - 1470 031127 302 15 0 00 000015 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1471 STOP^ - 1472 031130 254 04 0 00 031131 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1473 031131 324 00 0 00 031132 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1474 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1475 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1476 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1477 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1478 - 1479 ;********** - 1480 - 1481 - 1482 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1483 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1484 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1485 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1486 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1487 - 1488 000604 SN=SN+1 - 1489 000014 ZZ=ZZ-1 - 1490 031132 302 14 0 00 000014 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1491 STOP^ - 1492 031133 254 04 0 00 031134 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1493 031134 324 00 0 00 031135 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1494 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1495 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1496 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1497 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1498 - 1499 ;********** - 1500 - 1501 - 1502 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1503 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1504 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1505 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1506 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1507 - 1508 000605 SN=SN+1 - 1509 000013 ZZ=ZZ-1 - 1510 031135 302 13 0 00 000013 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6-3 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0041 - - 1511 STOP^ - 1512 031136 254 04 0 00 031137 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1513 031137 324 00 0 00 031140 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1514 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1515 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1516 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1517 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1518 - 1519 ;********** - 1520 - 1521 - 1522 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1523 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1524 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1525 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1526 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1527 - 1528 000606 SN=SN+1 - 1529 000012 ZZ=ZZ-1 - 1530 031140 302 12 0 00 000012 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1531 STOP^ - 1532 031141 254 04 0 00 031142 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1533 031142 324 00 0 00 031143 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1534 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1535 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1536 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1537 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1538 - 1539 ;********** - 1540 - 1541 - 1542 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1543 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1544 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1545 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1546 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1547 - 1548 000607 SN=SN+1 - 1549 000011 ZZ=ZZ-1 - 1550 031143 302 11 0 00 000011 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1551 STOP^ - 1552 031144 254 04 0 00 031145 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1553 031145 324 00 0 00 031146 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1554 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1555 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1556 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1557 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1558 - 1559 ;********** - 1560 - 1561 - 1562 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1563 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1564 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1565 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6-4 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0042 - - 1566 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1567 - 1568 000610 SN=SN+1 - 1569 000010 ZZ=ZZ-1 - 1570 031146 302 10 0 00 000010 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1571 STOP^ - 1572 031147 254 04 0 00 031150 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1573 031150 324 00 0 00 031151 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1574 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1575 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1576 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1577 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1578 - 1579 ;********** - 1580 - 1581 - 1582 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1583 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1584 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1585 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1586 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1587 - 1588 000611 SN=SN+1 - 1589 000007 ZZ=ZZ-1 - 1590 031151 302 07 0 00 000007 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1591 STOP^ - 1592 031152 254 04 0 00 031153 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1593 031153 324 00 0 00 031154 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1594 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1595 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1596 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1597 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1598 - 1599 ;********** - 1600 - 1601 - 1602 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1603 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1604 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1605 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1606 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1607 - 1608 000612 SN=SN+1 - 1609 000006 ZZ=ZZ-1 - 1610 031154 302 06 0 00 000006 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1611 STOP^ - 1612 031155 254 04 0 00 031156 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1613 031156 324 00 0 00 031157 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1614 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1615 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1616 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1617 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1618 - 1619 ;********** - 1620 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6-5 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0043 - - 1621 - 1622 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1623 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1624 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1625 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1626 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1627 - 1628 000613 SN=SN+1 - 1629 000005 ZZ=ZZ-1 - 1630 031157 302 05 0 00 000005 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1631 STOP^ - 1632 031160 254 04 0 00 031161 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1633 031161 324 00 0 00 031162 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1634 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1635 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1636 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1637 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1638 - 1639 ;********** - 1640 - 1641 - 1642 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1643 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1644 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1645 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1646 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1647 - 1648 000614 SN=SN+1 - 1649 000004 ZZ=ZZ-1 - 1650 031162 302 04 0 00 000004 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1651 STOP^ - 1652 031163 254 04 0 00 031164 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1653 031164 324 00 0 00 031165 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1654 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1655 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1656 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1657 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1658 - 1659 ;********** - 1660 - 1661 - 1662 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1663 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1664 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1665 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1666 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1667 - 1668 000615 SN=SN+1 - 1669 000003 ZZ=ZZ-1 - 1670 031165 302 03 0 00 000003 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1671 STOP^ - 1672 031166 254 04 0 00 031167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1673 031167 324 00 0 00 031170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1674 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1675 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 6-6 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0044 - - 1676 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1677 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1678 - 1679 ;********** - 1680 - 1681 - 1682 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1683 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1684 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1685 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1686 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1687 - 1688 000616 SN=SN+1 - 1689 000002 ZZ=ZZ-1 - 1690 031170 302 02 0 00 000002 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1691 STOP^ - 1692 031171 254 04 0 00 031172 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1693 031172 324 00 0 00 031173 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1694 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1695 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1696 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1697 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1698 - 1699 ;********** - 1700 - 1701 - 1702 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS - 1703 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE - 1704 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS - 1705 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. - 1706 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - 1707 - 1708 000617 SN=SN+1 - 1709 000001 ZZ=ZZ-1 - 1710 031173 302 01 0 00 000001 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - 1711 STOP^ - 1712 031174 254 04 0 00 031175 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1713 031175 324 00 0 00 031176 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1714 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1715 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1716 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1717 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - 1718 - 1719 ;********** - 1720 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 7 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0045 - - 1721 000700 SN=700 - 1722 000000 ZZ=0 - 1723 - 1724 C700: REPEAT ^D15,< - 1725 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 1726 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 1727 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 1728 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 1729 - 1730 SN=SN+1 - 1731 ZZ=ZZ+1 - 1732 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 1733 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 1734 STOP - 1735 - 1736 ;********** - 1737 > - 1738 - 1739 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 1740 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 1741 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 1742 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 1743 - 1744 000701 SN=SN+1 - 1745 000001 ZZ=ZZ+1 - 1746 031176 201 01 0 00 000001 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 1747 031177 302 01 0 01 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 1748 STOP^ - 1749 031200 254 04 0 00 031201 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1750 031201 324 00 0 00 031202 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1751 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1752 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1753 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1754 - 1755 ;********** - 1756 - 1757 - 1758 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 1759 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 1760 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 1761 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 1762 - 1763 000702 SN=SN+1 - 1764 000002 ZZ=ZZ+1 - 1765 031202 201 02 0 00 000002 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 1766 031203 302 02 0 02 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 1767 STOP^ - 1768 031204 254 04 0 00 031205 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1769 031205 324 00 0 00 031206 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1770 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1771 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1772 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1773 - 1774 ;********** - 1775 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 7-1 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0046 - - 1776 - 1777 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 1778 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 1779 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 1780 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 1781 - 1782 000703 SN=SN+1 - 1783 000003 ZZ=ZZ+1 - 1784 031206 201 03 0 00 000003 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 1785 031207 302 03 0 03 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 1786 STOP^ - 1787 031210 254 04 0 00 031211 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1788 031211 324 00 0 00 031212 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1789 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1790 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1791 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1792 - 1793 ;********** - 1794 - 1795 - 1796 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 1797 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 1798 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 1799 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 1800 - 1801 000704 SN=SN+1 - 1802 000004 ZZ=ZZ+1 - 1803 031212 201 04 0 00 000004 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 1804 031213 302 04 0 04 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 1805 STOP^ - 1806 031214 254 04 0 00 031215 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1807 031215 324 00 0 00 031216 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1808 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1809 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1810 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1811 - 1812 ;********** - 1813 - 1814 - 1815 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 1816 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 1817 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 1818 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 1819 - 1820 000705 SN=SN+1 - 1821 000005 ZZ=ZZ+1 - 1822 031216 201 05 0 00 000005 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 1823 031217 302 05 0 05 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 1824 STOP^ - 1825 031220 254 04 0 00 031221 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1826 031221 324 00 0 00 031222 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 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 7-2 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0047 - - 1831 ;********** - 1832 - 1833 - 1834 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 1835 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 1836 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 1837 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 1838 - 1839 000706 SN=SN+1 - 1840 000006 ZZ=ZZ+1 - 1841 031222 201 06 0 00 000006 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 1842 031223 302 06 0 06 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 1843 STOP^ - 1844 031224 254 04 0 00 031225 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1845 031225 324 00 0 00 031226 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1846 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1847 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1848 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1849 - 1850 ;********** - 1851 - 1852 - 1853 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 1854 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 1855 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 1856 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 1857 - 1858 000707 SN=SN+1 - 1859 000007 ZZ=ZZ+1 - 1860 031226 201 07 0 00 000007 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 1861 031227 302 07 0 07 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 1862 STOP^ - 1863 031230 254 04 0 00 031231 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1864 031231 324 00 0 00 031232 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1865 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1866 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1867 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1868 - 1869 ;********** - 1870 - 1871 - 1872 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 1873 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 1874 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 1875 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 1876 - 1877 000710 SN=SN+1 - 1878 000010 ZZ=ZZ+1 - 1879 031232 201 10 0 00 000010 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 1880 031233 302 10 0 10 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 1881 STOP^ - 1882 031234 254 04 0 00 031235 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1883 031235 324 00 0 00 031236 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1884 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1885 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 7-3 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0048 - - 1886 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1887 - 1888 ;********** - 1889 - 1890 - 1891 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 1892 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 1893 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 1894 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 1895 - 1896 000711 SN=SN+1 - 1897 000011 ZZ=ZZ+1 - 1898 031236 201 11 0 00 000011 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 1899 031237 302 11 0 11 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 1900 STOP^ - 1901 031240 254 04 0 00 031241 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1902 031241 324 00 0 00 031242 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 - 1910 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 1911 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 1912 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 1913 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 1914 - 1915 000712 SN=SN+1 - 1916 000012 ZZ=ZZ+1 - 1917 031242 201 12 0 00 000012 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 1918 031243 302 12 0 12 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 1919 STOP^ - 1920 031244 254 04 0 00 031245 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1921 031245 324 00 0 00 031246 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 - 1926 ;********** - 1927 - 1928 - 1929 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 1930 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 1931 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 1932 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 1933 - 1934 000713 SN=SN+1 - 1935 000013 ZZ=ZZ+1 - 1936 031246 201 13 0 00 000013 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 1937 031247 302 13 0 13 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 1938 STOP^ - 1939 031250 254 04 0 00 031251 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1940 031251 324 00 0 00 031252 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 7-4 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0049 - - 1941 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1942 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1943 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1944 - 1945 ;********** - 1946 - 1947 - 1948 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 1949 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 1950 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 1951 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 1952 - 1953 000714 SN=SN+1 - 1954 000014 ZZ=ZZ+1 - 1955 031252 201 14 0 00 000014 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 1956 031253 302 14 0 14 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 1957 STOP^ - 1958 031254 254 04 0 00 031255 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1959 031255 324 00 0 00 031256 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1960 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1961 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1962 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1963 - 1964 ;********** - 1965 - 1966 - 1967 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 1968 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 1969 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 1970 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 1971 - 1972 000715 SN=SN+1 - 1973 000015 ZZ=ZZ+1 - 1974 031256 201 15 0 00 000015 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 1975 031257 302 15 0 15 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 1976 STOP^ - 1977 031260 254 04 0 00 031261 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1978 031261 324 00 0 00 031262 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1979 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1980 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 1981 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 1982 - 1983 ;********** - 1984 - 1985 - 1986 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 1987 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 1988 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 1989 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 1990 - 1991 000716 SN=SN+1 - 1992 000016 ZZ=ZZ+1 - 1993 031262 201 16 0 00 000016 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 1994 031263 302 16 0 16 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 1995 STOP^ -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 7-5 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0050 - - 1996 031264 254 04 0 00 031265 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 1997 031265 324 00 0 00 031266 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 1998 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 1999 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2000 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2001 - 2002 ;********** - 2003 - 2004 - 2005 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. - 2006 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, - 2007 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. - 2008 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - 2009 - 2010 000717 SN=SN+1 - 2011 000017 ZZ=ZZ+1 - 2012 031266 201 17 0 00 000017 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - 2013 031267 302 17 0 17 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2014 STOP^ - 2015 031270 254 04 0 00 031271 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2016 031271 324 00 0 00 031272 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2017 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2018 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2019 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2020 - 2021 ;********** - 2022 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 8 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0051 - - 2023 001000 SN=1000 - 2024 000000 ZZ=0 - 2025 - 2026 C1000: REPEAT ^D15,< - 2027 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. - 2028 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2029 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2030 . - 2031 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2032 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2033 - 2034 SN=SN+1 - 2035 ZZ=ZZ+1 - 2036 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2037 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2038 CAME ZZ,(ZZ) ;IN BOTH HALVES - 2039 STOP - 2040 - 2041 ;********** - 2042 > - 2043 - 2044 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. - 2045 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2046 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2047 . - 2048 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2049 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2050 - 2051 001001 SN=SN+1 - 2052 000001 ZZ=ZZ+1 - 2053 031272 201 01 0 00 000001 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2054 031273 505 01 0 00 000001 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2055 031274 312 01 0 01 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES - 2056 STOP^ - 2057 031275 254 04 0 00 031276 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2058 031276 324 00 0 00 031277 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2059 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2060 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2061 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2062 - 2063 ;********** - 2064 - 2065 - 2066 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. - 2067 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2068 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2069 . - 2070 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2071 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2072 - 2073 001002 SN=SN+1 - 2074 000002 ZZ=ZZ+1 - 2075 031277 201 02 0 00 000002 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2076 031300 505 02 0 00 000002 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2077 031301 312 02 0 02 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 8-1 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0052 - - 2078 STOP^ - 2079 031302 254 04 0 00 031303 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2080 031303 324 00 0 00 031304 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2081 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2082 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2083 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2084 - 2085 ;********** - 2086 - 2087 - 2088 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. - 2089 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2090 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2091 . - 2092 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2093 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2094 - 2095 001003 SN=SN+1 - 2096 000003 ZZ=ZZ+1 - 2097 031304 201 03 0 00 000003 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2098 031305 505 03 0 00 000003 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2099 031306 312 03 0 03 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES - 2100 STOP^ - 2101 031307 254 04 0 00 031310 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2102 031310 324 00 0 00 031311 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 - 2110 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. - 2111 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2112 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2113 . - 2114 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2115 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2116 - 2117 001004 SN=SN+1 - 2118 000004 ZZ=ZZ+1 - 2119 031311 201 04 0 00 000004 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2120 031312 505 04 0 00 000004 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2121 031313 312 04 0 04 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES - 2122 STOP^ - 2123 031314 254 04 0 00 031315 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2124 031315 324 00 0 00 031316 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2125 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2126 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2127 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2128 - 2129 ;********** - 2130 - 2131 - 2132 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 8-2 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0053 - - 2133 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2134 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2135 . - 2136 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2137 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2138 - 2139 001005 SN=SN+1 - 2140 000005 ZZ=ZZ+1 - 2141 031316 201 05 0 00 000005 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2142 031317 505 05 0 00 000005 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2143 031320 312 05 0 05 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES - 2144 STOP^ - 2145 031321 254 04 0 00 031322 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2146 031322 324 00 0 00 031323 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2147 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2148 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2149 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2150 - 2151 ;********** - 2152 - 2153 - 2154 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. - 2155 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2156 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2157 . - 2158 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2159 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2160 - 2161 001006 SN=SN+1 - 2162 000006 ZZ=ZZ+1 - 2163 031323 201 06 0 00 000006 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2164 031324 505 06 0 00 000006 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2165 031325 312 06 0 06 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES - 2166 STOP^ - 2167 031326 254 04 0 00 031327 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2168 031327 324 00 0 00 031330 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2169 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2170 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2171 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2172 - 2173 ;********** - 2174 - 2175 - 2176 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. - 2177 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2178 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2179 . - 2180 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2181 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2182 - 2183 001007 SN=SN+1 - 2184 000007 ZZ=ZZ+1 - 2185 031330 201 07 0 00 000007 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2186 031331 505 07 0 00 000007 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2187 031332 312 07 0 07 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 8-3 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0054 - - 2188 STOP^ - 2189 031333 254 04 0 00 031334 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2190 031334 324 00 0 00 031335 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2191 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2192 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2193 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2194 - 2195 ;********** - 2196 - 2197 - 2198 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. - 2199 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2200 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2201 . - 2202 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2203 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2204 - 2205 001010 SN=SN+1 - 2206 000010 ZZ=ZZ+1 - 2207 031335 201 10 0 00 000010 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2208 031336 505 10 0 00 000010 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2209 031337 312 10 0 10 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES - 2210 STOP^ - 2211 031340 254 04 0 00 031341 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2212 031341 324 00 0 00 031342 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2213 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2214 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2215 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2216 - 2217 ;********** - 2218 - 2219 - 2220 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. - 2221 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2222 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2223 . - 2224 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2225 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2226 - 2227 001011 SN=SN+1 - 2228 000011 ZZ=ZZ+1 - 2229 031342 201 11 0 00 000011 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2230 031343 505 11 0 00 000011 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2231 031344 312 11 0 11 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES - 2232 STOP^ - 2233 031345 254 04 0 00 031346 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2234 031346 324 00 0 00 031347 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2235 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2236 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2237 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2238 - 2239 ;********** - 2240 - 2241 - 2242 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 8-4 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0055 - - 2243 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2244 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2245 . - 2246 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2247 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2248 - 2249 001012 SN=SN+1 - 2250 000012 ZZ=ZZ+1 - 2251 031347 201 12 0 00 000012 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2252 031350 505 12 0 00 000012 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2253 031351 312 12 0 12 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES - 2254 STOP^ - 2255 031352 254 04 0 00 031353 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2256 031353 324 00 0 00 031354 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2257 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2258 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2259 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2260 - 2261 ;********** - 2262 - 2263 - 2264 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. - 2265 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2266 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2267 . - 2268 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2269 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2270 - 2271 001013 SN=SN+1 - 2272 000013 ZZ=ZZ+1 - 2273 031354 201 13 0 00 000013 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2274 031355 505 13 0 00 000013 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2275 031356 312 13 0 13 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES - 2276 STOP^ - 2277 031357 254 04 0 00 031360 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2278 031360 324 00 0 00 031361 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2279 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2280 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2281 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2282 - 2283 ;********** - 2284 - 2285 - 2286 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. - 2287 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2288 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2289 . - 2290 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2291 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2292 - 2293 001014 SN=SN+1 - 2294 000014 ZZ=ZZ+1 - 2295 031361 201 14 0 00 000014 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2296 031362 505 14 0 00 000014 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2297 031363 312 14 0 14 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 8-5 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0056 - - 2298 STOP^ - 2299 031364 254 04 0 00 031365 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2300 031365 324 00 0 00 031366 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2301 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2302 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2303 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2304 - 2305 ;********** - 2306 - 2307 - 2308 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. - 2309 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2310 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2311 . - 2312 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2313 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2314 - 2315 001015 SN=SN+1 - 2316 000015 ZZ=ZZ+1 - 2317 031366 201 15 0 00 000015 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2318 031367 505 15 0 00 000015 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2319 031370 312 15 0 15 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES - 2320 STOP^ - 2321 031371 254 04 0 00 031372 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2322 031372 324 00 0 00 031373 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 ;********** - 2328 - 2329 - 2330 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. - 2331 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2332 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2333 . - 2334 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2335 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2336 - 2337 001016 SN=SN+1 - 2338 000016 ZZ=ZZ+1 - 2339 031373 201 16 0 00 000016 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2340 031374 505 16 0 00 000016 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2341 031375 312 16 0 16 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES - 2342 STOP^ - 2343 031376 254 04 0 00 031377 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2344 031377 324 00 0 00 031400 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2345 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2346 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2347 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2348 - 2349 ;********** - 2350 - 2351 - 2352 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 8-6 -DAKADM MAC 19-JAN-77 13:41 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0057 - - 2353 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. - 2354 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES - 2355 . - 2356 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. - 2357 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - 2358 - 2359 001017 SN=SN+1 - 2360 000017 ZZ=ZZ+1 - 2361 031400 201 17 0 00 000017 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - 2362 031401 505 17 0 00 000017 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - 2363 031402 312 17 0 17 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES - 2364 STOP^ - 2365 031403 254 04 0 00 031404 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2366 031404 324 00 0 00 031405 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2367 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2368 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2369 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2370 - 2371 ;********** - 2372 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0058 - - 2373 SUBTTL TEST OF INDEX REGISTER ADDRESSING - 2374 - 2375 ;********** - 2376 - 2377 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2378 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2379 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2380 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 0, - 2381 ;THE FINAL RESULT IN AC3 SHOULD BE 0. IF C(AC3)=0, THIS TEST PASSES. - 2382 - 2383 031405 476 00 0 00 000003 C1100: SETOM 3 ;PRELOAD AC3 WITH -1,,1 - 2384 031406 402 00 0 00 000001 SETZM 1 ;PRELOAD AC1 WITH 0 - 2385 031407 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2 WITH 1 - 2386 031410 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2387 031411 332 00 0 00 000003 SKIPE 3 ;TEST INDEXING - 2388 STOP^ - 2389 031412 254 04 0 00 031413 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2390 031413 324 00 0 00 031414 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2391 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2392 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2393 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2394 - 2395 ;********** - 2396 - 2397 001200 SN=1200 - 2398 000000 ZZ=0 - 2399 - 2400 C1200: REPEAT ^D18,< - 2401 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2402 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2403 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2404 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2405 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2406 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2407 - 2408 SN=SN+1 - 2409 ZZ=ZZ+ZZ - 2410 IFE ZZ, - 2411 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2412 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2413 MOVEI 2,1 ;SETUP INDEX REGISTER - 2414 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2415 CAIE 3,ZZ ;TEST INDEXING - 2416 STOP - 2417 - 2418 ;********** - 2419 > - 2420 - 2421 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2422 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2423 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2424 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2425 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2426 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2427 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-1 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0059 - - 2428 001201 SN=SN+1 - 2429 000000 ZZ=ZZ+ZZ - 2430 000001 IFE ZZ, - 2431 031414 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2432 031415 201 01 0 00 000001 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2433 031416 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2434 031417 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2435 031420 302 03 0 00 000001 CAIE 3,ZZ ;TEST INDEXING - 2436 STOP^ - 2437 031421 254 04 0 00 031422 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2438 031422 324 00 0 00 031423 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2439 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2440 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2441 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2442 - 2443 ;********** - 2444 - 2445 - 2446 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2447 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2448 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2449 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2450 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2451 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2452 - 2453 001202 SN=SN+1 - 2454 000002 ZZ=ZZ+ZZ - 2455 IFE ZZ, - 2456 031423 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2457 031424 201 01 0 00 000002 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2458 031425 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2459 031426 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2460 031427 302 03 0 00 000002 CAIE 3,ZZ ;TEST INDEXING - 2461 STOP^ - 2462 031430 254 04 0 00 031431 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2463 031431 324 00 0 00 031432 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2464 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2465 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2466 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2467 - 2468 ;********** - 2469 - 2470 - 2471 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2472 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2473 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2474 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2475 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2476 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2477 - 2478 001203 SN=SN+1 - 2479 000004 ZZ=ZZ+ZZ - 2480 IFE ZZ, - 2481 031432 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2482 031433 201 01 0 00 000004 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-2 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0060 - - 2483 031434 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2484 031435 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2485 031436 302 03 0 00 000004 CAIE 3,ZZ ;TEST INDEXING - 2486 STOP^ - 2487 031437 254 04 0 00 031440 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2488 031440 324 00 0 00 031441 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2489 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2490 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2491 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2492 - 2493 ;********** - 2494 - 2495 - 2496 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2497 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2498 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2499 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2500 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2501 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2502 - 2503 001204 SN=SN+1 - 2504 000010 ZZ=ZZ+ZZ - 2505 IFE ZZ, - 2506 031441 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2507 031442 201 01 0 00 000010 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2508 031443 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2509 031444 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2510 031445 302 03 0 00 000010 CAIE 3,ZZ ;TEST INDEXING - 2511 STOP^ - 2512 031446 254 04 0 00 031447 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2513 031447 324 00 0 00 031450 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2514 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2515 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2516 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2517 - 2518 ;********** - 2519 - 2520 - 2521 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2522 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2523 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2524 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2525 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2526 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2527 - 2528 001205 SN=SN+1 - 2529 000020 ZZ=ZZ+ZZ - 2530 IFE ZZ, - 2531 031450 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2532 031451 201 01 0 00 000020 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2533 031452 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2534 031453 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2535 031454 302 03 0 00 000020 CAIE 3,ZZ ;TEST INDEXING - 2536 STOP^ - 2537 031455 254 04 0 00 031456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-3 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0061 - - 2538 031456 324 00 0 00 031457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2539 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2540 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2541 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2542 - 2543 ;********** - 2544 - 2545 - 2546 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2547 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2548 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2549 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2550 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2551 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2552 - 2553 001206 SN=SN+1 - 2554 000040 ZZ=ZZ+ZZ - 2555 IFE ZZ, - 2556 031457 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2557 031460 201 01 0 00 000040 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2558 031461 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2559 031462 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2560 031463 302 03 0 00 000040 CAIE 3,ZZ ;TEST INDEXING - 2561 STOP^ - 2562 031464 254 04 0 00 031465 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2563 031465 324 00 0 00 031466 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2564 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2565 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2566 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2567 - 2568 ;********** - 2569 - 2570 - 2571 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2572 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2573 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2574 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2575 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2576 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2577 - 2578 001207 SN=SN+1 - 2579 000100 ZZ=ZZ+ZZ - 2580 IFE ZZ, - 2581 031466 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2582 031467 201 01 0 00 000100 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2583 031470 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2584 031471 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2585 031472 302 03 0 00 000100 CAIE 3,ZZ ;TEST INDEXING - 2586 STOP^ - 2587 031473 254 04 0 00 031474 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2588 031474 324 00 0 00 031475 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2589 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2590 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2591 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2592 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-4 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0062 - - 2593 ;********** - 2594 - 2595 - 2596 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2597 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2598 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2599 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2600 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2601 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2602 - 2603 001210 SN=SN+1 - 2604 000200 ZZ=ZZ+ZZ - 2605 IFE ZZ, - 2606 031475 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2607 031476 201 01 0 00 000200 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2608 031477 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2609 031500 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2610 031501 302 03 0 00 000200 CAIE 3,ZZ ;TEST INDEXING - 2611 STOP^ - 2612 031502 254 04 0 00 031503 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2613 031503 324 00 0 00 031504 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2614 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2615 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2616 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2617 - 2618 ;********** - 2619 - 2620 - 2621 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2622 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2623 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2624 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2625 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2626 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2627 - 2628 001211 SN=SN+1 - 2629 000400 ZZ=ZZ+ZZ - 2630 IFE ZZ, - 2631 031504 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2632 031505 201 01 0 00 000400 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2633 031506 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2634 031507 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2635 031510 302 03 0 00 000400 CAIE 3,ZZ ;TEST INDEXING - 2636 STOP^ - 2637 031511 254 04 0 00 031512 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2638 031512 324 00 0 00 031513 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2639 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2640 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2641 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2642 - 2643 ;********** - 2644 - 2645 - 2646 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2647 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-5 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0063 - - 2648 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2649 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2650 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2651 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2652 - 2653 001212 SN=SN+1 - 2654 001000 ZZ=ZZ+ZZ - 2655 IFE ZZ, - 2656 031513 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2657 031514 201 01 0 00 001000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2658 031515 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2659 031516 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2660 031517 302 03 0 00 001000 CAIE 3,ZZ ;TEST INDEXING - 2661 STOP^ - 2662 031520 254 04 0 00 031521 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2663 031521 324 00 0 00 031522 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2664 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2665 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2666 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2667 - 2668 ;********** - 2669 - 2670 - 2671 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2672 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2673 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2674 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2675 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2676 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2677 - 2678 001213 SN=SN+1 - 2679 002000 ZZ=ZZ+ZZ - 2680 IFE ZZ, - 2681 031522 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2682 031523 201 01 0 00 002000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2683 031524 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2684 031525 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2685 031526 302 03 0 00 002000 CAIE 3,ZZ ;TEST INDEXING - 2686 STOP^ - 2687 031527 254 04 0 00 031530 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2688 031530 324 00 0 00 031531 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2689 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2690 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2691 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2692 - 2693 ;********** - 2694 - 2695 - 2696 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2697 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2698 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2699 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2700 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2701 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2702 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-6 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0064 - - 2703 001214 SN=SN+1 - 2704 004000 ZZ=ZZ+ZZ - 2705 IFE ZZ, - 2706 031531 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2707 031532 201 01 0 00 004000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2708 031533 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2709 031534 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2710 031535 302 03 0 00 004000 CAIE 3,ZZ ;TEST INDEXING - 2711 STOP^ - 2712 031536 254 04 0 00 031537 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2713 031537 324 00 0 00 031540 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2714 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2715 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2716 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2717 - 2718 ;********** - 2719 - 2720 - 2721 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2722 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2723 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2724 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2725 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2726 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2727 - 2728 001215 SN=SN+1 - 2729 010000 ZZ=ZZ+ZZ - 2730 IFE ZZ, - 2731 031540 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2732 031541 201 01 0 00 010000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2733 031542 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2734 031543 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2735 031544 302 03 0 00 010000 CAIE 3,ZZ ;TEST INDEXING - 2736 STOP^ - 2737 031545 254 04 0 00 031546 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2738 031546 324 00 0 00 031547 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2739 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2740 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2741 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2742 - 2743 ;********** - 2744 - 2745 - 2746 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2747 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2748 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2749 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2750 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2751 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2752 - 2753 001216 SN=SN+1 - 2754 020000 ZZ=ZZ+ZZ - 2755 IFE ZZ, - 2756 031547 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2757 031550 201 01 0 00 020000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-7 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0065 - - 2758 031551 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2759 031552 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2760 031553 302 03 0 00 020000 CAIE 3,ZZ ;TEST INDEXING - 2761 STOP^ - 2762 031554 254 04 0 00 031555 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2763 031555 324 00 0 00 031556 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2764 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2765 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2766 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2767 - 2768 ;********** - 2769 - 2770 - 2771 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2772 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2773 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2774 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2775 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2776 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2777 - 2778 001217 SN=SN+1 - 2779 040000 ZZ=ZZ+ZZ - 2780 IFE ZZ, - 2781 031556 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2782 031557 201 01 0 00 040000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2783 031560 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2784 031561 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2785 031562 302 03 0 00 040000 CAIE 3,ZZ ;TEST INDEXING - 2786 STOP^ - 2787 031563 254 04 0 00 031564 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2788 031564 324 00 0 00 031565 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2789 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2790 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2791 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2792 - 2793 ;********** - 2794 - 2795 - 2796 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2797 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2798 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2799 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2800 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2801 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2802 - 2803 001220 SN=SN+1 - 2804 100000 ZZ=ZZ+ZZ - 2805 IFE ZZ, - 2806 031565 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2807 031566 201 01 0 00 100000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2808 031567 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2809 031570 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2810 031571 302 03 0 00 100000 CAIE 3,ZZ ;TEST INDEXING - 2811 STOP^ - 2812 031572 254 04 0 00 031573 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-8 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0066 - - 2813 031573 324 00 0 00 031574 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2814 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2815 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2816 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2817 - 2818 ;********** - 2819 - 2820 - 2821 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2822 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2823 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2824 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2825 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2826 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2827 - 2828 001221 SN=SN+1 - 2829 200000 ZZ=ZZ+ZZ - 2830 IFE ZZ, - 2831 031574 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2832 031575 201 01 0 00 200000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2833 031576 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2834 031577 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2835 031600 302 03 0 00 200000 CAIE 3,ZZ ;TEST INDEXING - 2836 STOP^ - 2837 031601 254 04 0 00 031602 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2838 031602 324 00 0 00 031603 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2839 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2840 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2841 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2842 - 2843 ;********** - 2844 - 2845 - 2846 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2847 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2848 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2849 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2850 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2851 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2852 - 2853 001222 SN=SN+1 - 2854 400000 ZZ=ZZ+ZZ - 2855 IFE ZZ, - 2856 031603 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2857 031604 201 01 0 00 400000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2858 031605 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2859 031606 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2860 031607 302 03 0 00 400000 CAIE 3,ZZ ;TEST INDEXING - 2861 STOP^ - 2862 031610 254 04 0 00 031611 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2863 031611 324 00 0 00 031612 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2864 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2865 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2866 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2867 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 9-9 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0067 - - 2868 ;********** - 2869 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0068 - - 2870 001300 SN=1300 - 2871 000000 ZZ=0 - 2872 - 2873 C1300: REPEAT ^D18,< - 2874 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2875 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2876 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2877 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2878 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2879 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2880 - 2881 SN=SN+1 - 2882 ZZ=ZZ+ZZ - 2883 IFE ZZ, - 2884 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2885 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2886 MOVEI 2,1 ;SETUP INDEX REGISTER - 2887 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2888 CAME 3,[ZZ,,0] ;TEST INDEXING - 2889 STOP - 2890 - 2891 ;********** - 2892 > - 2893 - 2894 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2895 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2896 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2897 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2898 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2899 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2900 - 2901 001301 SN=SN+1 - 2902 000000 ZZ=ZZ+ZZ - 2903 000001 IFE ZZ, - 2904 031612 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2905 031613 205 01 0 00 000001 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2906 031614 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2907 031615 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2908 031616 312 03 0 00 034444 CAME 3,[ZZ,,0] ;TEST INDEXING - 2909 STOP^ - 2910 031617 254 04 0 00 031620 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2911 031620 324 00 0 00 031621 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2912 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2913 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2914 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2915 - 2916 ;********** - 2917 - 2918 - 2919 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2920 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2921 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2922 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2923 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2924 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-1 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0069 - - 2925 - 2926 001302 SN=SN+1 - 2927 000002 ZZ=ZZ+ZZ - 2928 IFE ZZ, - 2929 031621 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2930 031622 205 01 0 00 000002 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2931 031623 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2932 031624 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2933 031625 312 03 0 00 034445 CAME 3,[ZZ,,0] ;TEST INDEXING - 2934 STOP^ - 2935 031626 254 04 0 00 031627 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2936 031627 324 00 0 00 031630 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2937 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2938 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2939 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2940 - 2941 ;********** - 2942 - 2943 - 2944 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2945 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2946 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2947 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2948 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2949 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2950 - 2951 001303 SN=SN+1 - 2952 000004 ZZ=ZZ+ZZ - 2953 IFE ZZ, - 2954 031630 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 2955 031631 205 01 0 00 000004 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2956 031632 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2957 031633 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2958 031634 312 03 0 00 034446 CAME 3,[ZZ,,0] ;TEST INDEXING - 2959 STOP^ - 2960 031635 254 04 0 00 031636 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2961 031636 324 00 0 00 031637 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2962 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2963 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2964 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2965 - 2966 ;********** - 2967 - 2968 - 2969 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2970 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2971 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2972 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2973 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2974 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 2975 - 2976 001304 SN=SN+1 - 2977 000010 ZZ=ZZ+ZZ - 2978 IFE ZZ, - 2979 031637 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-2 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0070 - - 2980 031640 205 01 0 00 000010 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 2981 031641 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 2982 031642 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 2983 031643 312 03 0 00 034447 CAME 3,[ZZ,,0] ;TEST INDEXING - 2984 STOP^ - 2985 031644 254 04 0 00 031645 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 2986 031645 324 00 0 00 031646 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 2987 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 2988 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 2989 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 2990 - 2991 ;********** - 2992 - 2993 - 2994 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 2995 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 2996 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 2997 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 2998 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 2999 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 3000 - 3001 001305 SN=SN+1 - 3002 000020 ZZ=ZZ+ZZ - 3003 IFE ZZ, - 3004 031646 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 3005 031647 205 01 0 00 000020 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 3006 031650 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3007 031651 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3008 031652 312 03 0 00 034450 CAME 3,[ZZ,,0] ;TEST INDEXING - 3009 STOP^ - 3010 031653 254 04 0 00 031654 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3011 031654 324 00 0 00 031655 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3012 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3013 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3014 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3015 - 3016 ;********** - 3017 - 3018 - 3019 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3020 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3021 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3022 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3023 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 3024 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 3025 - 3026 001306 SN=SN+1 - 3027 000040 ZZ=ZZ+ZZ - 3028 IFE ZZ, - 3029 031655 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 3030 031656 205 01 0 00 000040 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 3031 031657 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3032 031660 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3033 031661 312 03 0 00 034451 CAME 3,[ZZ,,0] ;TEST INDEXING - 3034 STOP^ -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-3 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0071 - - 3035 031662 254 04 0 00 031663 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3036 031663 324 00 0 00 031664 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3037 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3038 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3039 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3040 - 3041 ;********** - 3042 - 3043 - 3044 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3045 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3046 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3047 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3048 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 3049 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 3050 - 3051 001307 SN=SN+1 - 3052 000100 ZZ=ZZ+ZZ - 3053 IFE ZZ, - 3054 031664 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 3055 031665 205 01 0 00 000100 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 3056 031666 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3057 031667 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3058 031670 312 03 0 00 034452 CAME 3,[ZZ,,0] ;TEST INDEXING - 3059 STOP^ - 3060 031671 254 04 0 00 031672 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3061 031672 324 00 0 00 031673 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3062 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3063 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3064 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3065 - 3066 ;********** - 3067 - 3068 - 3069 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3070 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3071 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3072 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3073 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 3074 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 3075 - 3076 001310 SN=SN+1 - 3077 000200 ZZ=ZZ+ZZ - 3078 IFE ZZ, - 3079 031673 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 3080 031674 205 01 0 00 000200 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 3081 031675 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3082 031676 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3083 031677 312 03 0 00 034453 CAME 3,[ZZ,,0] ;TEST INDEXING - 3084 STOP^ - 3085 031700 254 04 0 00 031701 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3086 031701 324 00 0 00 031702 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3087 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3088 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3089 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-4 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0072 - - 3090 - 3091 ;********** - 3092 - 3093 - 3094 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3095 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3096 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3097 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3098 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 3099 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 3100 - 3101 001311 SN=SN+1 - 3102 000400 ZZ=ZZ+ZZ - 3103 IFE ZZ, - 3104 031702 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 3105 031703 205 01 0 00 000400 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 3106 031704 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3107 031705 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3108 031706 312 03 0 00 034454 CAME 3,[ZZ,,0] ;TEST INDEXING - 3109 STOP^ - 3110 031707 254 04 0 00 031710 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3111 031710 324 00 0 00 031711 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3112 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3113 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3114 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3115 - 3116 ;********** - 3117 - 3118 - 3119 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3120 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3121 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3122 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3123 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 3124 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 3125 - 3126 001312 SN=SN+1 - 3127 001000 ZZ=ZZ+ZZ - 3128 IFE ZZ, - 3129 031711 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 3130 031712 205 01 0 00 001000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 3131 031713 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3132 031714 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3133 031715 312 03 0 00 034455 CAME 3,[ZZ,,0] ;TEST INDEXING - 3134 STOP^ - 3135 031716 254 04 0 00 031717 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3136 031717 324 00 0 00 031720 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3137 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3138 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3139 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3140 - 3141 ;********** - 3142 - 3143 - 3144 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-5 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0073 - - 3145 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3146 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3147 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3148 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 3149 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 3150 - 3151 001313 SN=SN+1 - 3152 002000 ZZ=ZZ+ZZ - 3153 IFE ZZ, - 3154 031720 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 3155 031721 205 01 0 00 002000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 3156 031722 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3157 031723 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3158 031724 312 03 0 00 034456 CAME 3,[ZZ,,0] ;TEST INDEXING - 3159 STOP^ - 3160 031725 254 04 0 00 031726 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3161 031726 324 00 0 00 031727 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3162 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3163 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3164 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3165 - 3166 ;********** - 3167 - 3168 - 3169 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3170 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3171 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3172 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3173 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 3174 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 3175 - 3176 001314 SN=SN+1 - 3177 004000 ZZ=ZZ+ZZ - 3178 IFE ZZ, - 3179 031727 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 3180 031730 205 01 0 00 004000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 3181 031731 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3182 031732 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3183 031733 312 03 0 00 034457 CAME 3,[ZZ,,0] ;TEST INDEXING - 3184 STOP^ - 3185 031734 254 04 0 00 031735 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3186 031735 324 00 0 00 031736 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3187 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3188 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3189 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3190 - 3191 ;********** - 3192 - 3193 - 3194 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3195 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3196 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3197 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3198 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 3199 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-6 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0074 - - 3200 - 3201 001315 SN=SN+1 - 3202 010000 ZZ=ZZ+ZZ - 3203 IFE ZZ, - 3204 031736 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 3205 031737 205 01 0 00 010000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 3206 031740 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3207 031741 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3208 031742 312 03 0 00 034460 CAME 3,[ZZ,,0] ;TEST INDEXING - 3209 STOP^ - 3210 031743 254 04 0 00 031744 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3211 031744 324 00 0 00 031745 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3212 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3213 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3214 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3215 - 3216 ;********** - 3217 - 3218 - 3219 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3220 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3221 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3222 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3223 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 3224 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 3225 - 3226 001316 SN=SN+1 - 3227 020000 ZZ=ZZ+ZZ - 3228 IFE ZZ, - 3229 031745 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 3230 031746 205 01 0 00 020000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 3231 031747 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3232 031750 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3233 031751 312 03 0 00 034461 CAME 3,[ZZ,,0] ;TEST INDEXING - 3234 STOP^ - 3235 031752 254 04 0 00 031753 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3236 031753 324 00 0 00 031754 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3237 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3238 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3239 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3240 - 3241 ;********** - 3242 - 3243 - 3244 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3245 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3246 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3247 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3248 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 3249 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 3250 - 3251 001317 SN=SN+1 - 3252 040000 ZZ=ZZ+ZZ - 3253 IFE ZZ, - 3254 031754 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-7 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0075 - - 3255 031755 205 01 0 00 040000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 3256 031756 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3257 031757 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3258 031760 312 03 0 00 034462 CAME 3,[ZZ,,0] ;TEST INDEXING - 3259 STOP^ - 3260 031761 254 04 0 00 031762 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3261 031762 324 00 0 00 031763 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3262 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3263 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3264 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3265 - 3266 ;********** - 3267 - 3268 - 3269 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3270 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3271 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3272 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3273 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 3274 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 3275 - 3276 001320 SN=SN+1 - 3277 100000 ZZ=ZZ+ZZ - 3278 IFE ZZ, - 3279 031763 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 3280 031764 205 01 0 00 100000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 3281 031765 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3282 031766 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3283 031767 312 03 0 00 034463 CAME 3,[ZZ,,0] ;TEST INDEXING - 3284 STOP^ - 3285 031770 254 04 0 00 031771 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3286 031771 324 00 0 00 031772 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3287 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3288 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3289 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3290 - 3291 ;********** - 3292 - 3293 - 3294 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3295 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3296 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3297 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3298 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 3299 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 3300 - 3301 001321 SN=SN+1 - 3302 200000 ZZ=ZZ+ZZ - 3303 IFE ZZ, - 3304 031772 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 3305 031773 205 01 0 00 200000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 3306 031774 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3307 031775 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3308 031776 312 03 0 00 034464 CAME 3,[ZZ,,0] ;TEST INDEXING - 3309 STOP^ -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 10-8 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0076 - - 3310 031777 254 04 0 00 032000 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3311 032000 324 00 0 00 032001 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3312 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3313 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3314 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3315 - 3316 ;********** - 3317 - 3318 - 3319 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3320 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3321 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3322 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3323 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. - 3324 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - 3325 - 3326 001322 SN=SN+1 - 3327 400000 ZZ=ZZ+ZZ - 3328 IFE ZZ, - 3329 032001 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - 3330 032002 205 01 0 00 400000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - 3331 032003 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3332 032004 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3333 032005 312 03 0 00 034465 CAME 3,[ZZ,,0] ;TEST INDEXING - 3334 STOP^ - 3335 032006 254 04 0 00 032007 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3336 032007 324 00 0 00 032010 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3337 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3338 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3339 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3340 - 3341 ;********** - 3342 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0077 - - 3343 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3344 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3345 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3346 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH -1,,-1, - 3347 ;THE FINAL RESULT IN AC3 SHOULD BE -1,,-1. IF C(AC3)=-1,,-1, THIS TEST PASSES. - 3348 - 3349 032010 402 00 0 00 000003 C1400: SETZM 3 ;PRELOAD AC3 WITH 0 - 3350 032011 476 00 0 00 000001 SETOM 1 ;PRELOAD AC1 WITH -1,,-1 - 3351 032012 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3352 032013 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3353 032014 312 03 0 00 034466 CAME 3,[-1,,-1] ;TEST INDEXING - 3354 STOP^ - 3355 032015 254 04 0 00 032016 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3356 032016 324 00 0 00 032017 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3357 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3358 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3359 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3360 - 3361 ;********** - 3362 - 3363 001500 SN=1500 - 3364 000000 ZZ=0 - 3365 - 3366 C1500: REPEAT ^D18,< - 3367 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3368 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3369 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3370 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3371 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3372 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3373 - 3374 SN=SN+1 - 3375 ZZ=&777777 - 3376 IFE , - 3377 SETZM 3 ;PRELOAD AC3 WITH 0 - 3378 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3379 MOVEI 2,1 ;SETUP INDEX REGISTER - 3380 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3381 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3382 STOP - 3383 - 3384 ;********** - 3385 > - 3386 - 3387 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3388 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3389 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3390 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3391 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3392 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3393 - 3394 001501 SN=SN+1 - 3395 000001 ZZ=&777777 - 3396 777776 IFE , - 3397 032017 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-1 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0078 - - 3398 032020 561 01 0 00 777776 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3399 032021 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3400 032022 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3401 032023 312 03 0 00 034467 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3402 STOP^ - 3403 032024 254 04 0 00 032025 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3404 032025 324 00 0 00 032026 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3405 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3406 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3407 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3408 - 3409 ;********** - 3410 - 3411 - 3412 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3413 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3414 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3415 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3416 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3417 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3418 - 3419 001502 SN=SN+1 - 3420 777775 ZZ=&777777 - 3421 IFE , - 3422 032026 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3423 032027 561 01 0 00 777775 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3424 032030 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3425 032031 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3426 032032 312 03 0 00 034470 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3427 STOP^ - 3428 032033 254 04 0 00 032034 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3429 032034 324 00 0 00 032035 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3430 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3431 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3432 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3433 - 3434 ;********** - 3435 - 3436 - 3437 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3438 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3439 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3440 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3441 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3442 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3443 - 3444 001503 SN=SN+1 - 3445 777773 ZZ=&777777 - 3446 IFE , - 3447 032035 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3448 032036 561 01 0 00 777773 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3449 032037 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3450 032040 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3451 032041 312 03 0 00 034471 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3452 STOP^ -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-2 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0079 - - 3453 032042 254 04 0 00 032043 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3454 032043 324 00 0 00 032044 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3455 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3456 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3457 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3458 - 3459 ;********** - 3460 - 3461 - 3462 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3463 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3464 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3465 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3466 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3467 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3468 - 3469 001504 SN=SN+1 - 3470 777767 ZZ=&777777 - 3471 IFE , - 3472 032044 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3473 032045 561 01 0 00 777767 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3474 032046 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3475 032047 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3476 032050 312 03 0 00 034472 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3477 STOP^ - 3478 032051 254 04 0 00 032052 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3479 032052 324 00 0 00 032053 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3480 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3481 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3482 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3483 - 3484 ;********** - 3485 - 3486 - 3487 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3488 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3489 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3490 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3491 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3492 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3493 - 3494 001505 SN=SN+1 - 3495 777757 ZZ=&777777 - 3496 IFE , - 3497 032053 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3498 032054 561 01 0 00 777757 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3499 032055 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3500 032056 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3501 032057 312 03 0 00 034473 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3502 STOP^ - 3503 032060 254 04 0 00 032061 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3504 032061 324 00 0 00 032062 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3505 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3506 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3507 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-3 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0080 - - 3508 - 3509 ;********** - 3510 - 3511 - 3512 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3513 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3514 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3515 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3516 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3517 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3518 - 3519 001506 SN=SN+1 - 3520 777737 ZZ=&777777 - 3521 IFE , - 3522 032062 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3523 032063 561 01 0 00 777737 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3524 032064 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3525 032065 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3526 032066 312 03 0 00 034474 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3527 STOP^ - 3528 032067 254 04 0 00 032070 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3529 032070 324 00 0 00 032071 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3530 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3531 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3532 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3533 - 3534 ;********** - 3535 - 3536 - 3537 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3538 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3539 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3540 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3541 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3542 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3543 - 3544 001507 SN=SN+1 - 3545 777677 ZZ=&777777 - 3546 IFE , - 3547 032071 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3548 032072 561 01 0 00 777677 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3549 032073 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3550 032074 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3551 032075 312 03 0 00 034475 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3552 STOP^ - 3553 032076 254 04 0 00 032077 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3554 032077 324 00 0 00 032100 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3555 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3556 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3557 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3558 - 3559 ;********** - 3560 - 3561 - 3562 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-4 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0081 - - 3563 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3564 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3565 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3566 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3567 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3568 - 3569 001510 SN=SN+1 - 3570 777577 ZZ=&777777 - 3571 IFE , - 3572 032100 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3573 032101 561 01 0 00 777577 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3574 032102 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3575 032103 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3576 032104 312 03 0 00 034476 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3577 STOP^ - 3578 032105 254 04 0 00 032106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3579 032106 324 00 0 00 032107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3580 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3581 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3582 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3583 - 3584 ;********** - 3585 - 3586 - 3587 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3588 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3589 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3590 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3591 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3592 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3593 - 3594 001511 SN=SN+1 - 3595 777377 ZZ=&777777 - 3596 IFE , - 3597 032107 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3598 032110 561 01 0 00 777377 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3599 032111 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3600 032112 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3601 032113 312 03 0 00 034477 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3602 STOP^ - 3603 032114 254 04 0 00 032115 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3604 032115 324 00 0 00 032116 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3605 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3606 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3607 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3608 - 3609 ;********** - 3610 - 3611 - 3612 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3613 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3614 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3615 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3616 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3617 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-5 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0082 - - 3618 - 3619 001512 SN=SN+1 - 3620 776777 ZZ=&777777 - 3621 IFE , - 3622 032116 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3623 032117 561 01 0 00 776777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3624 032120 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3625 032121 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3626 032122 312 03 0 00 034500 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3627 STOP^ - 3628 032123 254 04 0 00 032124 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3629 032124 324 00 0 00 032125 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3630 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3631 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3632 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3633 - 3634 ;********** - 3635 - 3636 - 3637 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3638 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3639 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3640 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3641 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3642 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3643 - 3644 001513 SN=SN+1 - 3645 775777 ZZ=&777777 - 3646 IFE , - 3647 032125 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3648 032126 561 01 0 00 775777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3649 032127 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3650 032130 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3651 032131 312 03 0 00 034501 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3652 STOP^ - 3653 032132 254 04 0 00 032133 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3654 032133 324 00 0 00 032134 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3655 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3656 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3657 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3658 - 3659 ;********** - 3660 - 3661 - 3662 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3663 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3664 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3665 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3666 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3667 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3668 - 3669 001514 SN=SN+1 - 3670 773777 ZZ=&777777 - 3671 IFE , - 3672 032134 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-6 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0083 - - 3673 032135 561 01 0 00 773777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3674 032136 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3675 032137 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3676 032140 312 03 0 00 034502 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3677 STOP^ - 3678 032141 254 04 0 00 032142 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3679 032142 324 00 0 00 032143 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3680 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3681 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3682 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3683 - 3684 ;********** - 3685 - 3686 - 3687 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3688 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3689 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3690 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3691 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3692 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3693 - 3694 001515 SN=SN+1 - 3695 767777 ZZ=&777777 - 3696 IFE , - 3697 032143 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3698 032144 561 01 0 00 767777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3699 032145 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3700 032146 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3701 032147 312 03 0 00 034503 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3702 STOP^ - 3703 032150 254 04 0 00 032151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3704 032151 324 00 0 00 032152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3705 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3706 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3707 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3708 - 3709 ;********** - 3710 - 3711 - 3712 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3713 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3714 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3715 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3716 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3717 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3718 - 3719 001516 SN=SN+1 - 3720 757777 ZZ=&777777 - 3721 IFE , - 3722 032152 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3723 032153 561 01 0 00 757777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3724 032154 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3725 032155 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3726 032156 312 03 0 00 034504 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3727 STOP^ -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-7 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0084 - - 3728 032157 254 04 0 00 032160 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3729 032160 324 00 0 00 032161 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3730 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3731 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3732 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3733 - 3734 ;********** - 3735 - 3736 - 3737 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3738 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3739 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3740 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3741 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3742 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3743 - 3744 001517 SN=SN+1 - 3745 737777 ZZ=&777777 - 3746 IFE , - 3747 032161 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3748 032162 561 01 0 00 737777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3749 032163 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3750 032164 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3751 032165 312 03 0 00 034505 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3752 STOP^ - 3753 032166 254 04 0 00 032167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3754 032167 324 00 0 00 032170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3755 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3756 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3757 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3758 - 3759 ;********** - 3760 - 3761 - 3762 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3763 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3764 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3765 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3766 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3767 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3768 - 3769 001520 SN=SN+1 - 3770 677777 ZZ=&777777 - 3771 IFE , - 3772 032170 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3773 032171 561 01 0 00 677777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3774 032172 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3775 032173 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3776 032174 312 03 0 00 034506 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3777 STOP^ - 3778 032175 254 04 0 00 032176 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3779 032176 324 00 0 00 032177 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3780 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3781 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3782 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 11-8 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0085 - - 3783 - 3784 ;********** - 3785 - 3786 - 3787 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3788 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3789 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3790 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3791 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3792 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3793 - 3794 001521 SN=SN+1 - 3795 577777 ZZ=&777777 - 3796 IFE , - 3797 032177 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3798 032200 561 01 0 00 577777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3799 032201 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3800 032202 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3801 032203 312 03 0 00 034507 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3802 STOP^ - 3803 032204 254 04 0 00 032205 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3804 032205 324 00 0 00 032206 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3805 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3806 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3807 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3808 - 3809 ;********** - 3810 - 3811 - 3812 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3813 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3814 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3815 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3816 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3817 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3818 - 3819 001522 SN=SN+1 - 3820 377777 ZZ=&777777 - 3821 IFE , - 3822 032206 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3823 032207 561 01 0 00 377777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3824 032210 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3825 032211 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3826 032212 312 03 0 00 034510 CAME 3,[-1,,ZZ] ;TEST INDEXING - 3827 STOP^ - 3828 032213 254 04 0 00 032214 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3829 032214 324 00 0 00 032215 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3830 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3831 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3832 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3833 - 3834 ;********** - 3835 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0086 - - 3836 001600 SN=1600 - 3837 000000 ZZ=0 - 3838 - 3839 C1600: REPEAT ^D18,< - 3840 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3841 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3842 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3843 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3844 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3845 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3846 - 3847 SN=SN+1 - 3848 ZZ=&777777 - 3849 IFE , - 3850 SETZM 3 ;PRELOAD AC3 WITH 0 - 3851 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3852 MOVEI 2,1 ;SETUP INDEX REGISTER - 3853 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3854 CAME 3,[ZZ,,-1] ;TEST INDEXING - 3855 STOP - 3856 - 3857 ;********** - 3858 > - 3859 - 3860 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3861 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3862 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3863 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3864 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3865 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3866 - 3867 001601 SN=SN+1 - 3868 000001 ZZ=&777777 - 3869 777776 IFE , - 3870 032215 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3871 032216 525 01 0 00 777776 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3872 032217 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3873 032220 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3874 032221 312 03 0 00 034511 CAME 3,[ZZ,,-1] ;TEST INDEXING - 3875 STOP^ - 3876 032222 254 04 0 00 032223 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3877 032223 324 00 0 00 032224 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3878 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3879 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3880 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3881 - 3882 ;********** - 3883 - 3884 - 3885 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3886 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3887 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3888 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3889 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3890 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-1 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0087 - - 3891 - 3892 001602 SN=SN+1 - 3893 777775 ZZ=&777777 - 3894 IFE , - 3895 032224 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3896 032225 525 01 0 00 777775 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3897 032226 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3898 032227 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3899 032230 312 03 0 00 034512 CAME 3,[ZZ,,-1] ;TEST INDEXING - 3900 STOP^ - 3901 032231 254 04 0 00 032232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3902 032232 324 00 0 00 032233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3903 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3904 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3905 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3906 - 3907 ;********** - 3908 - 3909 - 3910 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3911 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3912 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3913 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3914 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3915 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3916 - 3917 001603 SN=SN+1 - 3918 777773 ZZ=&777777 - 3919 IFE , - 3920 032233 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3921 032234 525 01 0 00 777773 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3922 032235 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3923 032236 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3924 032237 312 03 0 00 034513 CAME 3,[ZZ,,-1] ;TEST INDEXING - 3925 STOP^ - 3926 032240 254 04 0 00 032241 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3927 032241 324 00 0 00 032242 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3928 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3929 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3930 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3931 - 3932 ;********** - 3933 - 3934 - 3935 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3936 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3937 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3938 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3939 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3940 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3941 - 3942 001604 SN=SN+1 - 3943 777767 ZZ=&777777 - 3944 IFE , - 3945 032242 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-2 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0088 - - 3946 032243 525 01 0 00 777767 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3947 032244 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3948 032245 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3949 032246 312 03 0 00 034514 CAME 3,[ZZ,,-1] ;TEST INDEXING - 3950 STOP^ - 3951 032247 254 04 0 00 032250 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3952 032250 324 00 0 00 032251 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3953 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3954 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3955 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3956 - 3957 ;********** - 3958 - 3959 - 3960 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3961 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3962 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3963 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3964 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3965 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3966 - 3967 001605 SN=SN+1 - 3968 777757 ZZ=&777777 - 3969 IFE , - 3970 032251 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3971 032252 525 01 0 00 777757 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3972 032253 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3973 032254 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3974 032255 312 03 0 00 034515 CAME 3,[ZZ,,-1] ;TEST INDEXING - 3975 STOP^ - 3976 032256 254 04 0 00 032257 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 3977 032257 324 00 0 00 032260 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 3978 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 3979 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 3980 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 3981 - 3982 ;********** - 3983 - 3984 - 3985 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 3986 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 3987 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 3988 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 3989 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 3990 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 3991 - 3992 001606 SN=SN+1 - 3993 777737 ZZ=&777777 - 3994 IFE , - 3995 032260 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 3996 032261 525 01 0 00 777737 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 3997 032262 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 3998 032263 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 3999 032264 312 03 0 00 034516 CAME 3,[ZZ,,-1] ;TEST INDEXING - 4000 STOP^ -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-3 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0089 - - 4001 032265 254 04 0 00 032266 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4002 032266 324 00 0 00 032267 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4003 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4004 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4005 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4006 - 4007 ;********** - 4008 - 4009 - 4010 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 4011 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 4012 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 4013 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 4014 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 4015 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 4016 - 4017 001607 SN=SN+1 - 4018 777677 ZZ=&777777 - 4019 IFE , - 4020 032267 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 4021 032270 525 01 0 00 777677 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 4022 032271 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 4023 032272 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 4024 032273 312 03 0 00 034517 CAME 3,[ZZ,,-1] ;TEST INDEXING - 4025 STOP^ - 4026 032274 254 04 0 00 032275 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4027 032275 324 00 0 00 032276 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4028 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4029 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4030 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4031 - 4032 ;********** - 4033 - 4034 - 4035 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 4036 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 4037 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 4038 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 4039 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 4040 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 4041 - 4042 001610 SN=SN+1 - 4043 777577 ZZ=&777777 - 4044 IFE , - 4045 032276 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 4046 032277 525 01 0 00 777577 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 4047 032300 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 4048 032301 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 4049 032302 312 03 0 00 034520 CAME 3,[ZZ,,-1] ;TEST INDEXING - 4050 STOP^ - 4051 032303 254 04 0 00 032304 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4052 032304 324 00 0 00 032305 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4053 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4054 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4055 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-4 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0090 - - 4056 - 4057 ;********** - 4058 - 4059 - 4060 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 4061 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 4062 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 4063 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 4064 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 4065 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 4066 - 4067 001611 SN=SN+1 - 4068 777377 ZZ=&777777 - 4069 IFE , - 4070 032305 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 4071 032306 525 01 0 00 777377 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 4072 032307 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 4073 032310 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 4074 032311 312 03 0 00 034521 CAME 3,[ZZ,,-1] ;TEST INDEXING - 4075 STOP^ - 4076 032312 254 04 0 00 032313 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4077 032313 324 00 0 00 032314 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4078 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4079 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4080 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4081 - 4082 ;********** - 4083 - 4084 - 4085 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 4086 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 4087 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 4088 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 4089 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 4090 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 4091 - 4092 001612 SN=SN+1 - 4093 776777 ZZ=&777777 - 4094 IFE , - 4095 032314 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 4096 032315 525 01 0 00 776777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 4097 032316 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 4098 032317 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 4099 032320 312 03 0 00 034522 CAME 3,[ZZ,,-1] ;TEST INDEXING - 4100 STOP^ - 4101 032321 254 04 0 00 032322 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4102 032322 324 00 0 00 032323 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4103 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4104 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4105 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4106 - 4107 ;********** - 4108 - 4109 - 4110 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-5 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0091 - - 4111 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 4112 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 4113 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 4114 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 4115 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 4116 - 4117 001613 SN=SN+1 - 4118 775777 ZZ=&777777 - 4119 IFE , - 4120 032323 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 4121 032324 525 01 0 00 775777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 4122 032325 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 4123 032326 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 4124 032327 312 03 0 00 034523 CAME 3,[ZZ,,-1] ;TEST INDEXING - 4125 STOP^ - 4126 032330 254 04 0 00 032331 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4127 032331 324 00 0 00 032332 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4128 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4129 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4130 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4131 - 4132 ;********** - 4133 - 4134 - 4135 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 4136 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 4137 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 4138 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 4139 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 4140 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 4141 - 4142 001614 SN=SN+1 - 4143 773777 ZZ=&777777 - 4144 IFE , - 4145 032332 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 4146 032333 525 01 0 00 773777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 4147 032334 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 4148 032335 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 4149 032336 312 03 0 00 034524 CAME 3,[ZZ,,-1] ;TEST INDEXING - 4150 STOP^ - 4151 032337 254 04 0 00 032340 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4152 032340 324 00 0 00 032341 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4153 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4154 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4155 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4156 - 4157 ;********** - 4158 - 4159 - 4160 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 4161 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 4162 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 4163 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 4164 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 4165 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-6 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0092 - - 4166 - 4167 001615 SN=SN+1 - 4168 767777 ZZ=&777777 - 4169 IFE , - 4170 032341 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 4171 032342 525 01 0 00 767777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 4172 032343 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 4173 032344 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 4174 032345 312 03 0 00 034525 CAME 3,[ZZ,,-1] ;TEST INDEXING - 4175 STOP^ - 4176 032346 254 04 0 00 032347 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4177 032347 324 00 0 00 032350 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4178 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4179 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4180 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4181 - 4182 ;********** - 4183 - 4184 - 4185 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 4186 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 4187 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 4188 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 4189 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 4190 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 4191 - 4192 001616 SN=SN+1 - 4193 757777 ZZ=&777777 - 4194 IFE , - 4195 032350 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 4196 032351 525 01 0 00 757777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 4197 032352 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 4198 032353 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 4199 032354 312 03 0 00 034526 CAME 3,[ZZ,,-1] ;TEST INDEXING - 4200 STOP^ - 4201 032355 254 04 0 00 032356 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4202 032356 324 00 0 00 032357 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4203 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4204 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4205 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4206 - 4207 ;********** - 4208 - 4209 - 4210 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 4211 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 4212 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 4213 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 4214 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 4215 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 4216 - 4217 001617 SN=SN+1 - 4218 737777 ZZ=&777777 - 4219 IFE , - 4220 032357 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-7 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0093 - - 4221 032360 525 01 0 00 737777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 4222 032361 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 4223 032362 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 4224 032363 312 03 0 00 034527 CAME 3,[ZZ,,-1] ;TEST INDEXING - 4225 STOP^ - 4226 032364 254 04 0 00 032365 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4227 032365 324 00 0 00 032366 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4228 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4229 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4230 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4231 - 4232 ;********** - 4233 - 4234 - 4235 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 4236 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 4237 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 4238 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 4239 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 4240 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 4241 - 4242 001620 SN=SN+1 - 4243 677777 ZZ=&777777 - 4244 IFE , - 4245 032366 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 4246 032367 525 01 0 00 677777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 4247 032370 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 4248 032371 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 4249 032372 312 03 0 00 034530 CAME 3,[ZZ,,-1] ;TEST INDEXING - 4250 STOP^ - 4251 032373 254 04 0 00 032374 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4252 032374 324 00 0 00 032375 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4253 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4254 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4255 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4256 - 4257 ;********** - 4258 - 4259 - 4260 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 4261 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 4262 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 4263 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 4264 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 4265 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 4266 - 4267 001621 SN=SN+1 - 4268 577777 ZZ=&777777 - 4269 IFE , - 4270 032375 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 4271 032376 525 01 0 00 577777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 4272 032377 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 4273 032400 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 4274 032401 312 03 0 00 034531 CAME 3,[ZZ,,-1] ;TEST INDEXING - 4275 STOP^ -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 12-8 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0094 - - 4276 032402 254 04 0 00 032403 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4277 032403 324 00 0 00 032404 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4278 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4279 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4280 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4281 - 4282 ;********** - 4283 - 4284 - 4285 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 4286 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION - 4287 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. - 4288 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A - 4289 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. - 4290 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - 4291 - 4292 001622 SN=SN+1 - 4293 377777 ZZ=&777777 - 4294 IFE , - 4295 032404 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 - 4296 032405 525 01 0 00 377777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - 4297 032406 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER - 4298 032407 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - 4299 032410 312 03 0 00 034532 CAME 3,[ZZ,,-1] ;TEST INDEXING - 4300 STOP^ - 4301 032411 254 04 0 00 032412 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4302 032412 324 00 0 00 032413 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4303 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4304 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4305 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4306 - 4307 ;********** - 4308 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0095 - - 4309 ;VERIFY INDEXING WHERE 'E' IS NON-ZERO - 4310 - 4311 001700 SN=1700 - 4312 777777 777777 ZZ=-1 - 4313 777777 777770 XX=-10 - 4314 - 4315 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 4316 ;IN THIS TEST, THE INDEX REG IS SET-UP WITH MOVEI ZZ+1,ZZ-XX, - 4317 ;WHERE ZZ+1 IS THE INDEX REG. THE AC IS PRELOADED WITH ITS OWN ADDRESS, 0,,ZZ. - 4318 ;CAIE IS USED TO TEST THE INDEXING OPERATION. - 4319 ;IF THE RESULT IN C(AC)=XX+C(ZZ+1 - RIGHT), THIS TEST PASSES. - 4320 ;XX+C(ZZ+1 - RIGHT) SHOULD = ZZ. - 4321 - 4322 C1700: REPEAT ^D15, - 4323 - 4333 001701 SN=SN+1 - 4334 000000 ZZ=ZZ+1 - 4335 777777 777773 XX=XX+3 - 4336 032413 201 01 0 00 000005 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4337 032414 201 00 0 00 000000 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ - 4338 032415 302 00 0 01 777773 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING - 4339 STOP^ - 4340 032416 254 04 0 00 032417 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4341 032417 324 00 0 00 032420 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4342 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4343 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4344 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4345 - 4346 ;********** - 4347 - 4348 001702 SN=SN+1 - 4349 000001 ZZ=ZZ+1 - 4350 777777 777776 XX=XX+3 - 4351 032420 201 02 0 00 000003 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4352 032421 201 01 0 00 000001 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ - 4353 032422 302 01 0 02 777776 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING - 4354 STOP^ - 4355 032423 254 04 0 00 032424 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4356 032424 324 00 0 00 032425 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4357 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4358 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4359 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4360 - 4361 ;********** - 4362 - 4363 001703 SN=SN+1 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-1 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0096 - - 4364 000002 ZZ=ZZ+1 - 4365 000001 XX=XX+3 - 4366 032425 201 03 0 00 000001 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4367 032426 201 02 0 00 000002 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ - 4368 032427 302 02 0 03 000001 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING - 4369 STOP^ - 4370 032430 254 04 0 00 032431 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4371 032431 324 00 0 00 032432 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4372 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4373 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4374 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4375 - 4376 ;********** - 4377 - 4378 001704 SN=SN+1 - 4379 000003 ZZ=ZZ+1 - 4380 000004 XX=XX+3 - 4381 032432 201 04 0 00 777777 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4382 032433 201 03 0 00 000003 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ - 4383 032434 302 03 0 04 000004 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING - 4384 STOP^ - 4385 032435 254 04 0 00 032436 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4386 032436 324 00 0 00 032437 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4387 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4388 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4389 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4390 - 4391 ;********** - 4392 - 4393 001705 SN=SN+1 - 4394 000004 ZZ=ZZ+1 - 4395 000007 XX=XX+3 - 4396 032437 201 05 0 00 777775 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4397 032440 201 04 0 00 000004 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ - 4398 032441 302 04 0 05 000007 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING - 4399 STOP^ - 4400 032442 254 04 0 00 032443 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4401 032443 324 00 0 00 032444 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4402 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4403 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4404 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4405 - 4406 ;********** - 4407 - 4408 001706 SN=SN+1 - 4409 000005 ZZ=ZZ+1 - 4410 000012 XX=XX+3 - 4411 032444 201 06 0 00 777773 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4412 032445 201 05 0 00 000005 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ - 4413 032446 302 05 0 06 000012 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING - 4414 STOP^ - 4415 032447 254 04 0 00 032450 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4416 032450 324 00 0 00 032451 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4417 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4418 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-2 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0097 - - 4419 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4420 - 4421 ;********** - 4422 - 4423 001707 SN=SN+1 - 4424 000006 ZZ=ZZ+1 - 4425 000015 XX=XX+3 - 4426 032451 201 07 0 00 777771 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4427 032452 201 06 0 00 000006 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ - 4428 032453 302 06 0 07 000015 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING - 4429 STOP^ - 4430 032454 254 04 0 00 032455 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4431 032455 324 00 0 00 032456 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4432 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4433 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4434 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4435 - 4436 ;********** - 4437 - 4438 001710 SN=SN+1 - 4439 000007 ZZ=ZZ+1 - 4440 000020 XX=XX+3 - 4441 032456 201 10 0 00 777767 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4442 032457 201 07 0 00 000007 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ - 4443 032460 302 07 0 10 000020 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING - 4444 STOP^ - 4445 032461 254 04 0 00 032462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4446 032462 324 00 0 00 032463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4447 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4448 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4449 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4450 - 4451 ;********** - 4452 - 4453 001711 SN=SN+1 - 4454 000010 ZZ=ZZ+1 - 4455 000023 XX=XX+3 - 4456 032463 201 11 0 00 777765 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4457 032464 201 10 0 00 000010 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ - 4458 032465 302 10 0 11 000023 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING - 4459 STOP^ - 4460 032466 254 04 0 00 032467 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4461 032467 324 00 0 00 032470 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4462 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4463 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4464 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4465 - 4466 ;********** - 4467 - 4468 001712 SN=SN+1 - 4469 000011 ZZ=ZZ+1 - 4470 000026 XX=XX+3 - 4471 032470 201 12 0 00 777763 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4472 032471 201 11 0 00 000011 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ - 4473 032472 302 11 0 12 000026 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-3 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0098 - - 4474 STOP^ - 4475 032473 254 04 0 00 032474 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4476 032474 324 00 0 00 032475 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4477 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4478 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4479 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4480 - 4481 ;********** - 4482 - 4483 001713 SN=SN+1 - 4484 000012 ZZ=ZZ+1 - 4485 000031 XX=XX+3 - 4486 032475 201 13 0 00 777761 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4487 032476 201 12 0 00 000012 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ - 4488 032477 302 12 0 13 000031 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING - 4489 STOP^ - 4490 032500 254 04 0 00 032501 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4491 032501 324 00 0 00 032502 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4492 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4493 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4494 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4495 - 4496 ;********** - 4497 - 4498 001714 SN=SN+1 - 4499 000013 ZZ=ZZ+1 - 4500 000034 XX=XX+3 - 4501 032502 201 14 0 00 777757 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4502 032503 201 13 0 00 000013 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ - 4503 032504 302 13 0 14 000034 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING - 4504 STOP^ - 4505 032505 254 04 0 00 032506 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4506 032506 324 00 0 00 032507 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4507 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4508 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4509 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4510 - 4511 ;********** - 4512 - 4513 001715 SN=SN+1 - 4514 000014 ZZ=ZZ+1 - 4515 000037 XX=XX+3 - 4516 032507 201 15 0 00 777755 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4517 032510 201 14 0 00 000014 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ - 4518 032511 302 14 0 15 000037 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING - 4519 STOP^ - 4520 032512 254 04 0 00 032513 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4521 032513 324 00 0 00 032514 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4522 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4523 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4524 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4525 - 4526 ;********** - 4527 - 4528 001716 SN=SN+1 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-4 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0099 - - 4529 000015 ZZ=ZZ+1 - 4530 000042 XX=XX+3 - 4531 032514 201 16 0 00 777753 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4532 032515 201 15 0 00 000015 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ - 4533 032516 302 15 0 16 000042 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING - 4534 STOP^ - 4535 032517 254 04 0 00 032520 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4536 032520 324 00 0 00 032521 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4537 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4538 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4539 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4540 - 4541 ;********** - 4542 - 4543 001717 SN=SN+1 - 4544 000016 ZZ=ZZ+1 - 4545 000045 XX=XX+3 - 4546 032521 201 17 0 00 777751 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4547 032522 201 16 0 00 000016 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ - 4548 032523 302 16 0 17 000045 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING - 4549 STOP^ - 4550 032524 254 04 0 00 032525 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4551 032525 324 00 0 00 032526 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4552 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4553 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4554 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4555 - 4556 ;********** - 4557 - 4558 PAGE -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-5 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0100 - - 4559 002000 SN=2000 - 4560 777777 777777 ZZ=-1 - 4561 777777 777760 XX=-20 - 4562 - 4563 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. - 4564 ;IN THIS TEST, THE INDEX REG IS SET-UP WITH MOVEI ZZ+1,ZZ-XX, - 4565 ;WHERE ZZ+1 IS THE INDEX REG. INDEXING IS TESTED BY LOADING - 4566 ;THE AC VIA MOVEI ZZ,XX(ZZ+1), WHERE XX+C(ZZ+1)=ZZ. - 4567 ;IF THE RESULT IN THE AC EQUALS 0,,ZZ, THIS TEST PASSES. - 4568 - 4569 C2000: REPEAT ^D15, - 4570 - 4580 002001 SN=SN+1 - 4581 000000 ZZ=ZZ+1 - 4582 777777 777765 XX=XX+5 - 4583 032526 201 01 0 00 000013 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4584 032527 201 00 0 01 777765 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING - 4585 032530 302 00 0 00 000000 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC - 4586 STOP^ - 4587 032531 254 04 0 00 032532 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4588 032532 324 00 0 00 032533 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4589 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4590 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4591 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4592 - 4593 ;********** - 4594 - 4595 002002 SN=SN+1 - 4596 000001 ZZ=ZZ+1 - 4597 777777 777772 XX=XX+5 - 4598 032533 201 02 0 00 000007 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4599 032534 201 01 0 02 777772 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING - 4600 032535 302 01 0 00 000001 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC - 4601 STOP^ - 4602 032536 254 04 0 00 032537 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4603 032537 324 00 0 00 032540 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4604 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4605 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4606 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4607 - 4608 ;********** - 4609 - 4610 002003 SN=SN+1 - 4611 000002 ZZ=ZZ+1 - 4612 777777 777777 XX=XX+5 - 4613 032540 201 03 0 00 000003 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-6 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0101 - - 4614 032541 201 02 0 03 777777 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING - 4615 032542 302 02 0 00 000002 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC - 4616 STOP^ - 4617 032543 254 04 0 00 032544 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4618 032544 324 00 0 00 032545 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4619 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4620 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4621 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4622 - 4623 ;********** - 4624 - 4625 002004 SN=SN+1 - 4626 000003 ZZ=ZZ+1 - 4627 000004 XX=XX+5 - 4628 032545 201 04 0 00 777777 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4629 032546 201 03 0 04 000004 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING - 4630 032547 302 03 0 00 000003 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC - 4631 STOP^ - 4632 032550 254 04 0 00 032551 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4633 032551 324 00 0 00 032552 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4634 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4635 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4636 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4637 - 4638 ;********** - 4639 - 4640 002005 SN=SN+1 - 4641 000004 ZZ=ZZ+1 - 4642 000011 XX=XX+5 - 4643 032552 201 05 0 00 777773 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4644 032553 201 04 0 05 000011 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING - 4645 032554 302 04 0 00 000004 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC - 4646 STOP^ - 4647 032555 254 04 0 00 032556 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4648 032556 324 00 0 00 032557 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4649 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4650 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4651 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4652 - 4653 ;********** - 4654 - 4655 002006 SN=SN+1 - 4656 000005 ZZ=ZZ+1 - 4657 000016 XX=XX+5 - 4658 032557 201 06 0 00 777767 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4659 032560 201 05 0 06 000016 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING - 4660 032561 302 05 0 00 000005 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC - 4661 STOP^ - 4662 032562 254 04 0 00 032563 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4663 032563 324 00 0 00 032564 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4664 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4665 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4666 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4667 - 4668 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-7 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0102 - - 4669 - 4670 002007 SN=SN+1 - 4671 000006 ZZ=ZZ+1 - 4672 000023 XX=XX+5 - 4673 032564 201 07 0 00 777763 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4674 032565 201 06 0 07 000023 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING - 4675 032566 302 06 0 00 000006 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC - 4676 STOP^ - 4677 032567 254 04 0 00 032570 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4678 032570 324 00 0 00 032571 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4679 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4680 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4681 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4682 - 4683 ;********** - 4684 - 4685 002010 SN=SN+1 - 4686 000007 ZZ=ZZ+1 - 4687 000030 XX=XX+5 - 4688 032571 201 10 0 00 777757 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4689 032572 201 07 0 10 000030 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING - 4690 032573 302 07 0 00 000007 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC - 4691 STOP^ - 4692 032574 254 04 0 00 032575 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4693 032575 324 00 0 00 032576 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4694 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4695 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4696 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4697 - 4698 ;********** - 4699 - 4700 002011 SN=SN+1 - 4701 000010 ZZ=ZZ+1 - 4702 000035 XX=XX+5 - 4703 032576 201 11 0 00 777753 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4704 032577 201 10 0 11 000035 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING - 4705 032600 302 10 0 00 000010 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC - 4706 STOP^ - 4707 032601 254 04 0 00 032602 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4708 032602 324 00 0 00 032603 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4709 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4710 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4711 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4712 - 4713 ;********** - 4714 - 4715 002012 SN=SN+1 - 4716 000011 ZZ=ZZ+1 - 4717 000042 XX=XX+5 - 4718 032603 201 12 0 00 777747 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4719 032604 201 11 0 12 000042 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING - 4720 032605 302 11 0 00 000011 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC - 4721 STOP^ - 4722 032606 254 04 0 00 032607 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4723 032607 324 00 0 00 032610 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-8 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0103 - - 4724 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4725 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4726 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4727 - 4728 ;********** - 4729 - 4730 002013 SN=SN+1 - 4731 000012 ZZ=ZZ+1 - 4732 000047 XX=XX+5 - 4733 032610 201 13 0 00 777743 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4734 032611 201 12 0 13 000047 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING - 4735 032612 302 12 0 00 000012 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC - 4736 STOP^ - 4737 032613 254 04 0 00 032614 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4738 032614 324 00 0 00 032615 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4739 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4740 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4741 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4742 - 4743 ;********** - 4744 - 4745 002014 SN=SN+1 - 4746 000013 ZZ=ZZ+1 - 4747 000054 XX=XX+5 - 4748 032615 201 14 0 00 777737 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4749 032616 201 13 0 14 000054 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING - 4750 032617 302 13 0 00 000013 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC - 4751 STOP^ - 4752 032620 254 04 0 00 032621 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4753 032621 324 00 0 00 032622 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4754 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4755 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4756 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4757 - 4758 ;********** - 4759 - 4760 002015 SN=SN+1 - 4761 000014 ZZ=ZZ+1 - 4762 000061 XX=XX+5 - 4763 032622 201 15 0 00 777733 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4764 032623 201 14 0 15 000061 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING - 4765 032624 302 14 0 00 000014 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC - 4766 STOP^ - 4767 032625 254 04 0 00 032626 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4768 032626 324 00 0 00 032627 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4769 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4770 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4771 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4772 - 4773 ;********** - 4774 - 4775 002016 SN=SN+1 - 4776 000015 ZZ=ZZ+1 - 4777 000066 XX=XX+5 - 4778 032627 201 16 0 00 777727 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 13-9 -DAKADM MAC 19-JAN-77 13:41 TEST OF INDEX REGISTER ADDRESSING SEQ 0104 - - 4779 032630 201 15 0 16 000066 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING - 4780 032631 302 15 0 00 000015 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC - 4781 STOP^ - 4782 032632 254 04 0 00 032633 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4783 032633 324 00 0 00 032634 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4784 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4785 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4786 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4787 - 4788 ;********** - 4789 - 4790 002017 SN=SN+1 - 4791 000016 ZZ=ZZ+1 - 4792 000073 XX=XX+5 - 4793 032634 201 17 0 00 777723 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER - 4794 032635 201 16 0 17 000073 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING - 4795 032636 302 16 0 00 000016 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC - 4796 STOP^ - 4797 032637 254 04 0 00 032640 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4798 032640 324 00 0 00 032641 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4799 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4800 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4801 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4802 - 4803 ;********** - 4804 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 14 -DAKADM MAC 19-JAN-77 13:41 TEST OF EXCH INSTRUCTION SEQ 0105 - - 4805 SUBTTL TEST OF EXCH INSTRUCTION - 4806 - 4807 ;********** - 4808 - 4809 ;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND - 4810 ;MOVES C(AC) INTO E. - 4811 ;IN THIS CASE, AC=E=0 AND C(AC)=C(E). HENCE, THE FINAL RESULT - 4812 ;IN AC0 SHOULD BE 0. IF C(AC)=0, THE TEST PASSES. - 4813 - 4814 032641 400 00 0 00 000000 C2100: SETZ ;PRELOAD AC,E WITH 0 - 4815 032642 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 0 INTO AC0 - 4816 032643 332 00 0 00 000000 SKIPE ;PASS IF C(AC0)=0 - 4817 STOP^ - 4818 032644 254 04 0 00 032645 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4819 032645 324 00 0 00 032646 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4820 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4821 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4822 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4823 - 4824 ;********** - 4825 - 4826 ;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND - 4827 ;MOVES C(AC) INTO E. - 4828 ;IN THIS CASE, AC=E=-1,,-1 AND C(AC)=C(E). HENCE, THE FINAL RESULT - 4829 ;IN AC0 SHOULD BE -1,,-1. IF C(AC)=-1,,-1, THE TEST PASSES. - 4830 - 4831 032646 474 00 0 00 000000 C2200: SETO ;PRELOAD AC,E WITH -1,,-1 - 4832 032647 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE -1,,-1 INTO AC0 - 4833 032650 312 00 0 00 034466 CAME [-1] ;PASS IF C(AC0)=-1,,-1 - 4834 STOP^ - 4835 032651 254 04 0 00 032652 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4836 032652 324 00 0 00 032653 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4837 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4838 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4839 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4840 - 4841 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 15 -DAKADM MAC 19-JAN-77 13:41 TEST OF EXCH INSTRUCTION SEQ 0106 - - 4842 ;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND - 4843 ;MOVES C(AC) INTO E. - 4844 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0,,-1. HENCE, THE FINAL RESULT - 4845 ;IN THE AC SHOULD BE 0,,-1 AND THE RESULT IN E SHOULD BE -1,,0, - 4846 ;IF THESE RESULTS OCCUR, THE TEST PASSES. - 4847 - 4848 032653 205 00 0 00 777777 C2400: MOVSI -1 ;PRELOAD AC WITH -1,,0 - 4849 032654 201 01 0 00 777777 MOVEI 1,-1 ;PRELOAD E WITH 0,,-1 - 4850 032655 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD PLACE 0,,-1 INTO THE AC AND -1,,0 INTO E - 4851 032656 312 01 0 00 034533 CAME 1,[-1,,0] ;PASS IF C(E)=-1,,0 - 4852 STOP^ - 4853 032657 254 04 0 00 032660 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4854 032660 324 00 0 00 032661 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4855 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4856 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4857 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4858 032661 312 00 0 00 034534 C2410: CAME 0,[0,,-1] ;PASS IF C(AC)=0,,-1 - 4859 STOP^ - 4860 032662 254 04 0 00 032663 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4861 032663 324 00 0 00 032664 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4862 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4863 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4864 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4865 - 4866 ;********** - 4867 - 4868 ;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND - 4869 ;MOVES C(AC) INTO E. - 4870 ;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,0. HENCE, THE FINAL RESULT - 4871 ;IN THE AC SHOULD BE -1,,0 AND THE RESULT IN E SHOULD BE 0,,-1. - 4872 ;IF THESE RESULTS OCCUR, THE TEST PASSES. - 4873 - 4874 032664 201 00 0 00 777777 C2700: MOVEI -1 ;PRELOAD AC WITH 0,,-1 - 4875 032665 205 01 0 00 777777 MOVSI 1,-1 ;PRELOAD E WITH -1,,0 - 4876 032666 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD PLACE -1,,0 INTO THE AC AND 0,,-1 INTO E - 4877 032667 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(E)=0,,-1 - 4878 STOP^ - 4879 032670 254 04 0 00 032671 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4880 032671 324 00 0 00 032672 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4881 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4882 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4883 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4884 032672 312 00 0 00 034533 C2710: CAME ,[XWD -1,0] ;PASS IF C(AC)=-1,,0 - 4885 STOP^ - 4886 032673 254 04 0 00 032674 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4887 032674 324 00 0 00 032675 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4888 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4889 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4890 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4891 - 4892 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 16 -DAKADM MAC 19-JAN-77 13:41 TEST OF EXCH INSTRUCTION SEQ 0107 - - 4893 ;THIS TEST IS A RELIABILITY CHECK OF EXCH. - 4894 ;FIRST, AC, E ARE PRELOADED WITH 252525,,252525. THERE, EXCH IS - 4895 ;EXECUTED 7 TIMES. THE AC IS THEN CHECKED FOR 252525,,252525. - 4896 ;IF C(AC)=C(E)=252525,,252525, THIS TEST PASSES. - 4897 ;IN THIS TEST AC=E=AC0 - 4898 - 4899 032675 200 00 0 00 034535 C3000: MOVE [252525252525] ;PRELOAD AC,E WITH 252525,,252525 - 4900 REPEAT 7, - 4901 < EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0> - 4902 032676 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 - 4903 032677 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 - 4904 032700 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 - 4905 032701 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 - 4906 032702 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 - 4907 032703 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 - 4908 032704 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 - 4909 032705 312 00 0 00 034535 CAME [252525252525] ;PASS IF C(AC0)=252525,,252525 - 4910 STOP^ - 4911 032706 254 04 0 00 032707 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4912 032707 324 00 0 00 032710 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4913 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4914 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4915 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4916 - 4917 ;********** - 4918 PAGE -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 16-1 -DAKADM MAC 19-JAN-77 13:41 TEST OF EXCH INSTRUCTION SEQ 0108 - - 4919 ;THIS TEST VERIFIES THAT EXCH MOVES C(AC) INTO E AND C(E) INTO THE AC. - 4920 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1. EXCH IS EXECUTED 7 TIMES; THEN, - 4921 ;THE AC IS CHECKED FOR -1,,-1 AND E IS CHECKED FOR 0. IF EITHER OF THESE - 4922 ;RESULTS ARE NOT FOUND, THIS TEST FAILS. - 4923 - 4924 032710 400 00 0 00 000000 C3100: SETZ ;PRELOAD AC WITH 0 - 4925 032711 474 01 0 00 000000 SETO 1,0 ;PRELOAD E WITH -1,,-1 - 4926 REPEAT 7, - 4927 < EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E)> - 4928 032712 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) - 4929 032713 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) - 4930 032714 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) - 4931 032715 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) - 4932 032716 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) - 4933 032717 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) - 4934 032720 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) - 4935 032721 312 00 0 00 034466 CAME [-1] ;PASS IF C(AC)=-1,,-1 - 4936 STOP^ - 4937 032722 254 04 0 00 032723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4938 032723 324 00 0 00 032724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4939 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4940 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4941 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4942 032724 312 01 0 00 034536 C3110: CAME 1,[0] ;PASS IF C(E)=0 - 4943 STOP^ - 4944 032725 254 04 0 00 032726 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4945 032726 324 00 0 00 032727 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4946 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4947 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4948 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4949 - 4950 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 17 -DAKADM MAC 19-JAN-77 13:41 TEST OF MOVEM INSTRUCTION SEQ 0109 - - 4951 SUBTTL TEST OF MOVEM INSTRUCTION - 4952 - 4953 ;THIS TEST VERIFIES THAT MOVEM PLACES C(AC) INTO E AND DOES NOT MODIFY C(AC) - 4954 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN AC AND E SHOULD - 4955 ;BE -1,,-1. IF C(AC) AND C(E)=-1,,-1, THIS TEST PASSES - 4956 - 4957 032727 474 00 0 00 000000 C3200: SETO ;PRELOAD AC WITH -1,,-1 - 4958 032730 400 01 0 00 000000 SETZ 1,0 ;PRELOAD E WITH 0 - 4959 032731 202 00 0 00 000001 MOVEM 1 ;*MOVEM SHOULD PLACE -1,,-1 INTO E - 4960 032732 312 01 0 00 034466 CAME 1,[-1] ;PASS IF C(E)=-1,,-1 - 4961 STOP^ - 4962 032733 254 04 0 00 032734 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4963 032734 324 00 0 00 032735 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4964 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4965 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4966 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4967 032735 312 00 0 00 034466 C3210: CAME 0,[-1] ;PASS IF C(AC)=-1,,-1 - 4968 STOP^ - 4969 032736 254 04 0 00 032737 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4970 032737 324 00 0 00 032740 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4971 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4972 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4973 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4974 - 4975 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 18 -DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0110 - - 4976 SUBTTL TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS - 4977 - 4978 ;********** - 4979 - 4980 ;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS RETURNS TO THE NEXT SEQUENTIAL INSTRUCTION - 4981 ;IF JFCL SKIPS THE NEXT INSTRUCTION, THIS TEST FAILS - 4982 - 4983 032740 200 00 0 00 034537 C3300: MOVE [HALT .+3] ;THIS INSTRUCTION SHOULD NOT AFFECT THE TEST - 4984 032741 255 17 0 00 032742 JFCL 17,.+1 ;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION - 4985 032742 304 00 0 00 000000 CAIA ;SKIP HALT INSTRUCTION IF JFCL PASSES - 4986 STOP^ - 4987 032743 254 04 0 00 032744 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 4988 032744 324 00 0 00 032745 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 4989 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 4990 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 4991 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 4992 - 4993 ;********** - 4994 - 4995 ;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE CRY0 FLAG. - 4996 ;ADDI IS USED TO SET CRY0. THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR CRY0. - 4997 ;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER CRY0 WAS RESET BY THE PREVIOUS JFCL. - 4998 ;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR CRY0 - 4999 - 5000 032745 200 00 0 00 034466 C3400: MOVE [-1] ;PRELOAD AC WITH -1,,-1 - 5001 032746 271 00 0 00 000001 ADDI 1 ;SET CRY0 FLAG - 5002 032747 255 17 0 00 032750 JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS - 5003 032750 255 04 0 00 032752 JFCL 4,.+2 ;PASS IF CRY0 WAS RESET BY PREVIOUS INSTRUCTION - 5004 032751 334 00 0 00 000000 SKIPA ;SKIP HALT IF CRY0 WAS CLEARED - 5005 STOP^ - 5006 032752 254 04 0 00 032753 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5007 032753 324 00 0 00 032754 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5008 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5009 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5010 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5011 - 5012 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 19 -DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0111 - - 5013 ;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE CRY1 FLAG. - 5014 ;ADDI IS USED TO SET CRY1. THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR CRY1. - 5015 ;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER CRY1 WAS RESET BY THE PREVIOUS JFCL. - 5016 ;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR CRY1 - 5017 - 5018 032754 200 00 0 00 034466 C3500: MOVE [-1] ;PRELOAD AC WITH -1,,-1 - 5019 032755 271 00 0 00 000001 ADDI 1 ;SET CRY1 FLAG - 5020 032756 255 17 0 00 032757 JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS - 5021 032757 255 02 0 00 032761 JFCL 2,.+2 ;PASS IF CRY1 WAS RESET BY PREVIOUS INSTRUCTION - 5022 032760 334 00 0 00 000000 SKIPA ;SKIP HALT IF CRY1 WAS CLEARED - 5023 STOP^ - 5024 032761 254 04 0 00 032762 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5025 032762 324 00 0 00 032763 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5026 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5027 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5028 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5029 - 5030 ;********** - 5031 - 5032 ;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE AROV FLAG. - 5033 ;ADDI IS USED TO SET AROV. THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR AROV. - 5034 ;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER AROV WAS RESET BY THE PREVIOUS JFCL. - 5035 ;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR AROV - 5036 - 5037 032763 205 00 0 00 400000 C3600: MOVSI 400000 ;PRELOAD AC WITH -1,,-1 - 5038 032764 270 00 0 00 034465 ADD [XWD 400000,0] ;SET AROV FLAG - 5039 032765 255 17 0 00 032766 JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS - 5040 032766 255 10 0 00 032770 JFCL 10,.+2 ;PASS IF AROV WAS RESET BY PREVIOUS INSTRUCTION - 5041 032767 334 00 0 00 000000 SKIPA ;SKIP HALT IF AROV WAS CLEARED - 5042 STOP^ - 5043 032770 254 04 0 00 032771 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5044 032771 324 00 0 00 032772 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5045 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5046 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5047 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5048 - 5049 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 20 -DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0112 - - 5050 ;THIS TEST VERIFIES THAT JFCL 0, IS A NO-OP. - 5051 ;IN THIS TEST, ADD IS USED TO SET CRY0. THEN JFCL 0,.+2 IS EXECUTED. - 5052 ;IF JFCL 0,.+2 DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES - 5053 - 5054 032772 205 00 0 00 400000 C3700: MOVSI 400000 ;PRELOAD AC WITH MOST NEGATIVE NUMBER - 5055 032773 270 00 0 00 034466 ADD [-1] ;SET CRY0 FLAG - 5056 032774 255 00 0 00 032776 JFCL .+2 ;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION - 5057 032775 334 00 0 00 000000 SKIPA ;PASS IF JFCL DID NOT SKIP - 5058 STOP^ - 5059 032776 254 04 0 00 032777 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5060 032777 324 00 0 00 033000 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5061 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5062 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5063 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5064 - 5065 ;********** - 5066 - 5067 ;THIS TEST VERIFIES THAT JFCL 0, IS A NO-OP. - 5068 ;IN THIS TEST, ADD IS USED TO SET CRY1. THEN JFCL 0,.+2 IS EXECUTED. - 5069 ;IF JFCL 0,.+2 DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES - 5070 - 5071 033000 205 00 0 00 200000 C4000: MOVSI 200000 ;PRELOAD AC WITH MOST NEGATIVE NUMBER - 5072 033001 270 00 0 00 034464 ADD [XWD 200000,0] ;SET CRY1 FLAG - 5073 033002 255 00 0 00 033004 JFCL .+2 ;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION - 5074 033003 334 00 0 00 000000 SKIPA ;PASS IF JFCL DID NOT SKIP - 5075 STOP^ - 5076 033004 254 04 0 00 033005 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5077 033005 324 00 0 00 033006 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5078 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5079 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5080 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5081 - 5082 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 21 -DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0113 - - 5083 ;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND - 5084 ;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. - 5085 ;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1. THEN, JFCL SHOULD SKIP - 5086 ;BECAUSE A FLAG WAS SET BY ADDI - 5087 ;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR - 5088 ;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET - 5089 - 5090 033006 200 00 0 00 034466 C4100: MOVE [-1] ;PRELOAD AC WITH ALL ONES - 5091 033007 271 00 0 00 000001 ADDI 1 ;*ADDI SHOULD SET CRY0/1 FLAGS - 5092 033010 255 17 0 00 033012 JFCL 17,.+2 ;*JFCL SHOULD JUMP BECAUSE FLAGS ARE SET - 5093 STOP^ - 5094 033011 254 04 0 00 033012 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5095 033012 324 00 0 00 033013 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5096 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5097 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5098 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5099 - 5100 ;********** - 5101 - 5102 ;THIS TEST VERIFIES THAT CAI DOES NOT CLEAR ANY ARITHMETIC FLAGS. - 5103 ;FIRST, CRY0 AND CRY1 ARE SET BY ADDI; THEN CAI IS EXECUTED. - 5104 ;JFCL SHOULD JUMP BECAUSE FLAGS ARE SET. IF JFCL DOES NOT JUMP, - 5105 ;THE FLAGS WERE CLEARED BY CAI. HENCE, CAI FAILED - 5106 - 5107 033013 200 00 0 00 034466 C4200: MOVE [-1] ;PRELOAD AC WITH -1,,-1 - 5108 033014 271 00 0 00 000001 ADDI 1 ;SET CYR0/1 FLAGS - 5109 033015 300 17 0 00 000017 CAI 17,17 ;*CAI SHOULD NOT CLEAR FLAGS - 5110 033016 255 17 0 00 033020 JFCL 17,.+2 ;PASS IF CAI CLEARED FLAGS - 5111 STOP^ - 5112 033017 254 04 0 00 033020 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5113 033020 324 00 0 00 033021 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5114 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5115 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5116 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5117 - 5118 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 22 -DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0114 - - 5119 ;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND - 5120 ;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. - 5121 ;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1. THEN JFCL SHOULD SKIP - 5122 ;BECAUSE A FLAG WAS SET BY ADDI - 5123 ;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR - 5124 ;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET - 5125 - 5126 033021 200 00 0 00 034466 C4300: MOVE [-1] ;PRELOAD AC WITH ALL ONES - 5127 033022 271 00 0 00 000001 ADDI 1 ;*ADDI SHOULD SET CRY1 FLAGS - 5128 033023 255 02 0 00 033025 JFCL 2,.+2 ;*JFCL SHOULD JUMP BECAUSE CRY1 FLAG IS SET - 5129 STOP^ - 5130 033024 254 04 0 00 033025 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5131 033025 324 00 0 00 033026 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5132 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5133 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5134 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5135 - 5136 ;********** - 5137 - 5138 ;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND - 5139 ;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. - 5140 ;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1. THEN, JFCL SHOULD SKIP - 5141 ;BECAUSE A FLAG WAS SET BY ADDI - 5142 ;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR - 5143 ;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET - 5144 - 5145 033026 200 00 0 00 034466 C4400: MOVE [-1] ;PRELOAD AC WITH ALL ONES - 5146 033027 271 00 0 00 000001 ADDI 1 ;*ADDI SHOULD SET CRY0 FLAG - 5147 033030 255 04 0 00 033032 JFCL 4,.+2 ;*JFCL SHOULD JUMP BECAUSE CRY0 FLAG IS SET - 5148 STOP^ - 5149 033031 254 04 0 00 033032 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5150 033032 324 00 0 00 033033 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5151 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5152 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5153 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5154 - 5155 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 23 -DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0115 - - 5156 ;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND - 5157 ;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. - 5158 ;BECAUSE A FLAG WAS SET BY ADD - 5159 ;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR - 5160 ;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET - 5161 - 5162 033033 205 00 0 00 400000 C4500: MOVSI 400000 ;PRELOAD AC WITH ALL ONES - 5163 033034 270 00 0 00 034465 ADD [XWD 400000,0] ;*ADD SHOULD SET AROV FLAG - 5164 033035 255 10 0 00 033037 JFCL 10,.+2 ;*JFCL SHOULD JUMP BECAUSE AROV FLAG IS SET - 5165 STOP^ - 5166 033036 254 04 0 00 033037 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5167 033037 324 00 0 00 033040 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5168 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5169 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5170 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5171 - 5172 ;********** - 5173 - 5174 ;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE FLOATING OVERFLOW FLAG (FOV). - 5175 ;FIRST JFCL 17,.+1 IS EXECUTED TO CLEAR FOV. THEN, JFCL 1,.+2 IS EXECUTED TO DETERMINE - 5176 ;WHETHER FOV WAS CLEARED. IF FOV WAS CLEAR, THIS TEST PASSES - 5177 - 5178 033040 255 17 0 00 033041 C4600: JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS - 5179 033041 255 01 0 00 033043 JFCL 1,.+2 ;PASS IF FOV WAS CLEARED - 5180 033042 334 00 0 00 000000 SKIPA ;SKIP HALT IF TEST PASSED - 5181 STOP^ - 5182 033043 254 04 0 00 033044 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5183 033044 324 00 0 00 033045 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5184 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5185 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5186 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5187 - 5188 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 24 -DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0116 - - 5189 ;THIS TEST VERIFIES THAT JFCL 13, DOES NOT RESET CRY0. - 5190 ;FIRST CRY0 AND CRY1 ARE SET BY ADDI; THEN, JFCL 13,.+2 IS EXECUTED - 5191 ;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT CRY0. - 5192 ;THIS TEST PASSES IF JFCL 13,.+1 DID NOT RESET CRY0. - 5193 - 5194 033045 200 00 0 00 034466 C4700: MOVE [-1] ;RELOAD AC WITH -1,,-1 - 5195 033046 271 00 0 00 000001 ADDI 1 ;SET CRY0/1 - 5196 033047 255 13 0 00 033050 JFCL 13,.+1 ;*JFCL 13, SHOULD NOT RESET CRY0 - 5197 033050 255 04 0 00 033052 JFCL 4,.+2 ;FAIL IF CRY 0 WAS RESET - 5198 STOP^ - 5199 033051 254 04 0 00 033052 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5200 033052 324 00 0 00 033053 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5201 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5202 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5203 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5204 - 5205 ;********** - 5206 - 5207 ;THIS TEST VERIFIES THAT JFCL 15, DOES NOT RESET CRY1. - 5208 ;FIRST CRY0 AND CRY1 ARE SET BY ADDI; THEN, JFCL15,.+2 IS EXECUTED - 5209 ;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT CRY1. - 5210 ;THIS TEST PASSES IF JFCL 15,.+1 DID NOT RESET CRY1. - 5211 - 5212 033053 200 00 0 00 034466 C5000: MOVE [-1] ;PRELOAD AC WITH -1,,-1 - 5213 033054 271 00 0 00 000001 ADDI 1 ;SET CRY0/1 - 5214 033055 255 15 0 00 033056 JFCL 15,.+1 ;*JFCL15, SHOULD NOT RESET CRY0 - 5215 033056 255 02 0 00 033060 JFCL 2,.+2 ;FAIL IF CRY1 WAS RESET - 5216 STOP^ - 5217 033057 254 04 0 00 033060 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5218 033060 324 00 0 00 033061 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5219 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5220 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5221 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5222 - 5223 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 25 -DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0117 - - 5224 ;THIS TEST VERIFIES THAT JFCL 17, DOES NOT RESET AROV. - 5225 ;FIRST AROV IS SET BY ADD; THEN, JFCL 17,.+2 IS EXECUTED - 5226 ;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT AROV. - 5227 ;THIS TEST PASSES IF JFCL 17,.+1 DID NOT RESET AROV. - 5228 - 5229 033061 205 00 0 00 400000 C5100: MOVSI 400000 ;PRELOAD AC WITH -1,,-1 - 5230 033062 270 00 0 00 034465 ADD [XWD 400000,0] ;SET AROV - 5231 033063 255 07 0 00 033064 JFCL 7,.+1 ;*JFCL 17, SHOULD NOT RESET AROV - 5232 033064 255 10 0 00 033066 JFCL 10,.+2 ;FAIL IF AROV WAS RESET - 5233 STOP^ - 5234 033065 254 04 0 00 033066 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5235 033066 324 00 0 00 033067 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5236 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5237 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5238 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5239 - 5240 ;********** - 5241 - 5242 ;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET AROV. - 5243 ;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD. - 5244 ;AROV IS THEN CHECKED. IF AROV IS SET, THIS TEST FAILS. - 5245 - 5246 033067 255 17 0 00 033070 C5200: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS - 5247 033070 400 00 0 00 000000 SETZ ;PRELOAD AC,E WITH 0 - 5248 033071 270 00 0 00 000000 ADD ;*ADD SHOULD NOT SET AROV - 5249 033072 255 10 0 00 033074 JFCL 10,.+2 ;PASS IF AROV WAS RESET - 5250 033073 334 00 0 00 000000 SKIPA ;SKIP HALT IF ADD PASSED - 5251 STOP^ - 5252 033074 254 04 0 00 033075 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5253 033075 324 00 0 00 033076 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5254 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5255 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5256 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5257 - 5258 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 26 -DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0118 - - 5259 ;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET CRY0. - 5260 ;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD. - 5261 ;CRY0 IS THEN CHECKED. IF CRY0 IS SET, THIS TEST FAILS. - 5262 - 5263 - 5264 033076 400 00 0 00 000000 C5300: SETZ ;RESET ARITHMETIC FLAGS - 5265 033077 255 17 0 00 033100 JFCL 17,.+1 ;PRELOAD AC,E WITH 0 - 5266 033100 270 00 0 00 000000 ADD ;*ADD SHOULD NOT SET CRY0 - 5267 033101 255 04 0 00 033103 JFCL 4,.+2 ;PASS IF CRY0 WAS RESET - 5268 033102 334 00 0 00 000000 SKIPA ;SKIP HALT IF ADD PASSED - 5269 STOP^ - 5270 033103 254 04 0 00 033104 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5271 033104 324 00 0 00 033105 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5272 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5273 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5274 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5275 - 5276 ;********** - 5277 - 5278 ;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET CRY1. - 5279 ;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD. - 5280 ;CRY1 IS THEN CHECKED. IF CRY1 IS SET, THIS TEST FAILS. - 5281 - 5282 033105 400 00 0 00 000000 C5400: SETZ ;RESET ARITHMETIC FLAGS - 5283 033106 255 17 0 00 033107 JFCL 17,.+1 ;PRELOAD AC,E WITH 0 - 5284 033107 270 00 0 00 000000 ADD ;*ADD SHOULD NOT SET CRY1 - 5285 033110 255 02 0 00 033112 JFCL 2,.+2 ;PASS IF CRY1 WAS RESET - 5286 033111 334 00 0 00 000000 SKIPA ;SKIP HALT IF ADD PASSED - 5287 STOP^ - 5288 033112 254 04 0 00 033113 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5289 033113 324 00 0 00 033114 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5290 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5291 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5292 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5293 - 5294 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 27 -DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0119 - - 5295 ;THIS TEST VERIFIES THAT THE 30X AND THE 31X INSTRUCTION GROUPS DO NOT AFFECT - 5296 ;THE ARITHMETIC FLAGS. FIRST, THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, CAI - 5297 ;AND CAM ARE EXECUTED. THE FLAGS ARE THEN CHECKED. IF ANY OF THE FLAGS ARE SET, - 5298 ;THIS TEST FAILS AND CAI OR CAM IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS - 5299 - 5300 033114 255 17 0 00 033115 C5500: JFCL 17,.+1 ;CLEAR ALL FLAGS - 5301 033115 400 00 0 00 000000 SETZ ;CLEAR AC,0 - 5302 033116 300 00 0 00 000000 CAI ;*CAI SHOULD NOT SET ANY ARITHMETIC FLAG - 5303 033117 310 00 0 00 034466 CAM [-1] ;*CAM SHOULD NOT SET ANY ARITHMETIC FLAG - 5304 033120 255 17 0 00 033122 JFCL 17,.+2 ;FAIL IF ANY FLAG WAS SET - 5305 033121 334 00 0 00 000000 SKIPA ;SKIP HALT IF TEST PASSED - 5306 STOP^ - 5307 033122 254 04 0 00 033123 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5308 033123 324 00 0 00 033124 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5309 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5310 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5311 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5312 - 5313 ;********** - 5314 - 5315 ;THIS TEST VERIFIES THAT THE BOOLEAN INSTRUCTION GROUPS DO NOT AFFECT - 5316 ;THE ARITHMETIC FLAGS. FIRST THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, XOR [0] - 5317 ;AND XOR [-1] ARE EXECUTED. THE FLAGS ARE THEN CHECKED. IF ANY OF THE FLAGS ARE SET, - 5318 ;THIS TEST FAILS AND XOR IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS - 5319 - 5320 033124 255 17 0 00 033125 C5600: JFCL 17,.+1 ;CLEAR ALL FLAGS - 5321 033125 474 00 0 00 000000 SETO ;CLEAR AC,0 - 5322 033126 430 00 0 00 034536 XOR [0] ;*XOR SHOULD NOT SET ANY ARITHMETIC FLAG - 5323 033127 430 00 0 00 034466 XOR [-1] ;*XOR SHOULD NOT SET ANY ARITHMETIC FLAG - 5324 033130 255 17 0 00 033132 JFCL 17,.+2 ;FAIL IF ANY FLAG WAS SET - 5325 033131 334 00 0 00 000000 SKIPA ;SKIP HALT IF TEST PASSED - 5326 STOP^ - 5327 033132 254 04 0 00 033133 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5328 033133 324 00 0 00 033134 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5329 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5330 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5331 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5332 - 5333 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 28 -DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0120 - - 5334 ;THIS TEST VERIFIES THAT THE AOBJX INSTRUCTION GROUP DOES DO NOT AFFECT - 5335 ;THE ARITHMETIC FLAGS. FIRST THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, AOBJN - 5336 ;AND AOBJP ARE EXECUTED. THE FLAGS ARE THEN CHECKED. IF ANY OF THE FLAGS ARE SET, - 5337 ;THIS TEST FAILS AND AOBJN OR AOBJP IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS - 5338 - 5339 033134 474 00 0 00 000000 C5700: SETO ;CLEAR ALL FLAGS - 5340 033135 255 17 0 00 033136 JFCL 17,.+1 ;CLEAR AC,0 - 5341 033136 253 00 0 00 033137 AOBJN .+1 ;*AOBJN SHOULD NOT SET ANY ARITHMETIC ARITHMETIC - 5342 033137 252 00 0 00 033140 AOBJP .+1 ;*AOBJP SHOULD NOT SET ANY ARITHMETIC FLAG - 5343 033140 255 17 0 00 033142 JFCL 17,.+2 ;FAIL IF ANY FLAG WAS SET - 5344 033141 334 00 0 00 000000 SKIPA ;SKIP HALT IF TST PASSED - 5345 STOP^ - 5346 033142 254 04 0 00 033143 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5347 033143 324 00 0 00 033144 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5348 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5349 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5350 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5351 - 5352 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 29 -DAKADM MAC 19-JAN-77 13:41 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0121 - - 5353 ;THIS TEST VERIFIES THAT SKIP DOES NOT AFFECT THE FLAGS. - 5354 ;FIRST, THE ARITHMETIC FLAGS ARE CLEARED; THEN, SKIP IS EXECUTED. - 5355 ;IF SKIP SETS AROV, CRYO, CRY1 OR FOV, THIS TEST FAILS. - 5356 - 5357 033144 255 17 0 00 033145 C5701: JFCL 17,.+1 ;CLEAR ALL FLAGS - 5358 033145 330 00 0 00 034466 SKIP 0,[-1] ;*SKIP SHOULD NOT SET ANY FLAGS - 5359 033146 255 17 0 00 033150 JFCL 17,.+2 ;FAIL IF ANY FLAG IS SET - 5360 033147 334 00 0 00 000000 SKIPA ;PASS IF NO FLAG IS SET - 5361 STOP^ - 5362 033150 254 04 0 00 033151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5363 033151 324 00 0 00 033152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5364 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5365 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5366 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5367 - 5368 ;********** - 5369 - 5370 ;THIS TEST VERIFIES THAT JUMP DOES NOT AFFECT THE FLAGS. - 5371 ;FIRST, THE ARITHMETIC FLAGS ARE CLEARED; THEN, JUMP IS EXECUTED. - 5372 ;IF JUMP SETS AROV, CRYO, CRY1 OR FOV, THIS TEST FAILS. - 5373 - 5374 033152 255 17 0 00 033153 C5702: JFCL 17,.+1 ;CLEAR ALL FLAGS - 5375 033153 320 00 0 00 034466 JUMP 0,[-1] ;*JUMP SHOULD NOT SET ANY FLAGS - 5376 033154 255 17 0 00 033156 JFCL 17,.+2 ;FAIL IF ANY FLAG IS SET - 5377 033155 334 00 0 00 000000 SKIPA ;PASS IF NO FLAG IS SET - 5378 STOP^ - 5379 033156 254 04 0 00 033157 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5380 033157 324 00 0 00 033160 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5381 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5382 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5383 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5384 - 5385 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 30 -DAKADM MAC 19-JAN-77 13:41 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0122 - - 5386 SUBTTL TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS - 5387 - 5388 ;********** - 5389 - 5390 ;THIS TEST VERIFIES THAT 'JRST, 0' DOES NOT SET ANY FLAGS. - 5391 ;FIRST THE ARITHMETIC FLAGS ARE RESET; THEN, 'JRST 0,.+1' IS EXECUTED - 5392 ;THE AROV,CRY0 AND CRY1 FLAGS ARE THEN CHECKED. IF ANY - 5393 ;OF THESE FLAGS ARE SET, THIS TEST FAILS - 5394 - 5395 033160 255 17 0 00 033161 C6000: JFCL 17,.+1 ;RESET ALL FLAGS - 5396 033161 254 00 0 00 033162 JRST .+1 ;*JRST SHOULD NOT SET ANY FLAGS - 5397 033162 255 16 0 00 033164 JFCL 16,.+2 ;PASS IF NO FLAGS ARE SET - 5398 033163 334 00 0 00 000000 SKIPA ;SKIP HALT IF JRST PASSES - 5399 STOP^ - 5400 033164 254 04 0 00 033165 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5401 033165 324 00 0 00 033166 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5402 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5403 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5404 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5405 - 5406 ;********** - 5407 - 5408 ;THIS TEST VERIFIES THAT 'MOVE 2,2' DOES NOT SET ANY FLAGS. - 5409 ;FIRST, THE ARITHMETIC FLAGS ARE RESET; THEN, 'MOVE 2,2' IS EXECUTED. - 5410 ;THE FOV,AROV,CRY0 AND CRY1 FLAGS ARE THEN CHECKED. IF ANY - 5411 ;OF THESE FLAGS ARE SET, THIS TEST FAILS - 5412 - 5413 033166 255 17 0 00 033167 C6100: JFCL 17,.+1 ;RESET ALL FLAGS - 5414 033167 200 02 0 00 000002 MOVE 2,2 ;*MOVE SHOULD NOT SET ANY FLAGS - 5415 033170 255 17 0 00 033172 JFCL 17,.+2 ;PASS IF NO FLAGS ARE SET - 5416 033171 334 00 0 00 000000 SKIPA ;SKIP HALT IF MOVE PASSED - 5417 STOP^ - 5418 033172 254 04 0 00 033173 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5419 033173 324 00 0 00 033174 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5420 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5421 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5422 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5423 - 5424 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 31 -DAKADM MAC 19-JAN-77 13:41 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0123 - - 5425 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG - 5426 ;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE CRY0 FLAG. - 5427 ;FIRST, ALL FLAGS ARE RESET; THEN AC1 IS SET TO SPECIFY CRY0. - 5428 ;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET CRY0. CRY0 IS THEN CHECKED. IF - 5429 ;CRY0 IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - 5430 - 5431 033174 255 17 0 00 033175 C6200: JFCL 17,.+1 ;CLEAR ALL FLAGS - 5432 SFLAG CRY0 ^;SET CRY0 FLAG - 5433 - 5434 033175 205 01 0 00 200000 MOVSI 1,CRY0 - 5435 033176 255 17 0 00 033177 JFCL 17,.+1 ;RESET ALL FLAGS - 5436 033177 254 02 0 01 033200 JRST 2,.+1(1) ;SET CRY0 FLAG - 5437 033200 255 04 0 00 033202 JFCL 4,.+2 ;PASS IF CRY0 IS SET - 5438 STOP^ - 5439 033201 254 04 0 00 033202 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5440 033202 324 00 0 00 033203 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5441 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5442 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5443 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5444 - 5445 ;********** - 5446 - 5447 ;THIS TEST VERIFIES THAT JRST 2,.+(1) WILL SET THE ARITHMETIC FLAG - 5448 ;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAIN 0. HENCE, JRST 2,.+1(1) - 5449 ;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE CRY0/1, FLAGS ARE SET BY ADDI; - 5450 ;THEN THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1. IF CRY1 WAS CLEARED, THE - 5451 ;TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - 5452 - 5453 033203 200 00 0 00 034466 C6300: MOVE [-1] ;PRELOAD AC0 WITH -1,,-1 - 5454 033204 271 00 0 00 000001 ADDI 1 ;SET CRY0/1 FLAGS - 5455 SFLAG 0 ^;RESET ALL ARITHMETIC FLAGS - 5456 - 5457 033205 205 01 0 00 000000 MOVSI 1,0 - 5458 033206 255 17 0 00 033207 JFCL 17,.+1 ;RESET ALL FLAGS - 5459 033207 254 02 0 01 033210 JRST 2,.+1(1) ;SET 0 FLAG - 5460 033210 255 02 0 00 033212 JFCL 2,.+2 ;PASS IF CRY1 IS RESET - 5461 033211 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSED - 5462 STOP^ - 5463 033212 254 04 0 00 033213 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5464 033213 324 00 0 00 033214 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5465 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5466 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5467 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5468 - 5469 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 32 -DAKADM MAC 19-JAN-77 13:41 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0124 - - 5470 - 5471 ;THIS TEST VERIFIES THAT JRST 2,.+(1) WILL SET THE ARITHMETIC FLAG - 5472 ;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAIN 0. HENCE, JRST 2,.+1(1) - 5473 ;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE CRY0/1, FLAGS ARE SET BY ADD - 5474 ;THEN THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1. IF AROV WAS CLEARED, THE - 5475 ;TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - 5476 - 5477 033214 205 00 0 00 400000 C6400: MOVSI 400000 ;PRELOAD AC0 WITH -1,,-1 - 5478 033215 270 00 0 00 034466 ADD [-1] ;SET CRY0 AND AROV FLAGS - 5479 SFLAG 0 ^;RESET ALL ARITHMETIC FLAGS - 5480 - 5481 033216 205 01 0 00 000000 MOVSI 1,0 - 5482 033217 255 17 0 00 033220 JFCL 17,.+1 ;RESET ALL FLAGS - 5483 033220 254 02 0 01 033221 JRST 2,.+1(1) ;SET 0 FLAG - 5484 033221 255 10 0 00 033223 JFCL 10,.+2 ;PASS IF AROV IS RESET - 5485 033222 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSED - 5486 STOP^ - 5487 033223 254 04 0 00 033224 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5488 033224 324 00 0 00 033225 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5489 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5490 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5491 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5492 - 5493 ;********** - 5494 - 5495 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG - 5496 ;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE AROV FLAG. - 5497 ;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY AROV. - 5498 ;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET AROV. AROV IS THEN CHECKED. IF - 5499 ;AROV IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - 5500 - 5501 033225 C6500: SFLAG AROV ^;SET AROV FLAG - 5502 - 5503 033225 205 01 0 00 400000 MOVSI 1,AROV - 5504 033226 255 17 0 00 033227 JFCL 17,.+1 ;RESET ALL FLAGS - 5505 033227 254 02 0 01 033230 JRST 2,.+1(1) ;SET AROV FLAG - 5506 033230 255 10 0 00 033232 JFCL 10,.+2 ;PASS IF AROV WAS SET - 5507 STOP^ - 5508 033231 254 04 0 00 033232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5509 033232 324 00 0 00 033233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5510 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5511 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5512 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5513 - 5514 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 33 -DAKADM MAC 19-JAN-77 13:41 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0125 - - 5515 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG - 5516 ;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE CRY1 FLAG. - 5517 ;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY CRY1. - 5518 ;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET CRY1. CRY1 IS THEN CHECKED. IF - 5519 ;CRY1 IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - 5520 - 5521 033233 C6600: SFLAG CRY1 ^;SET CRY1 FLAG - 5522 - 5523 033233 205 01 0 00 100000 MOVSI 1,CRY1 - 5524 033234 255 17 0 00 033235 JFCL 17,.+1 ;RESET ALL FLAGS - 5525 033235 254 02 0 01 033236 JRST 2,.+1(1) ;SET CRY1 FLAG - 5526 033236 255 02 0 00 033240 JFCL 2,.+2 ;PASS IF CRY1 WAS SET - 5527 STOP^ - 5528 033237 254 04 0 00 033240 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5529 033240 324 00 0 00 033241 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5530 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5531 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5532 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5533 - 5534 ;********** - 5535 - 5536 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG - 5537 ;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE FOV FLAG. - 5538 ;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY FOV. - 5539 ;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET FOV. FOV IS THEN CHECKED. IF - 5540 ;FOV IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - 5541 - 5542 033241 C6700: SFLAG FOV ^;SET FOV FLAG - 5543 - 5544 033241 205 01 0 00 040000 MOVSI 1,FOV - 5545 033242 255 17 0 00 033243 JFCL 17,.+1 ;RESET ALL FLAGS - 5546 033243 254 02 0 01 033244 JRST 2,.+1(1) ;SET FOV FLAG - 5547 033244 255 01 0 00 033246 JFCL 1,.+2 ;PASS IF FOV WAS SET - 5548 STOP^ - 5549 033245 254 04 0 00 033246 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5550 033246 324 00 0 00 033247 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5551 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5552 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5553 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5554 - 5555 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 34 -DAKADM MAC 19-JAN-77 13:41 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0126 - - 5556 ;THIS TEST VERIFIES THAT JFCL 0, SHOULD NEVER JUMP. - 5557 ;FIRST, FOV IS SET VIA JRST2, ;THEN JFCL 0, - 5558 ;IS EXECUTED. IF JFCL 0, DOES NOT SKIP, THIS TEST PASSES - 5559 - 5560 033247 C7000: SFLAG FOV ^;SET FOV FLAG - 5561 - 5562 033247 205 01 0 00 040000 MOVSI 1,FOV - 5563 033250 255 17 0 00 033251 JFCL 17,.+1 ;RESET ALL FLAGS - 5564 033251 254 02 0 01 033252 JRST 2,.+1(1) ;SET FOV FLAG - 5565 033252 255 00 0 00 033254 JFCL ,.+2 ;*JFCL SHOULD NOT JUMP - 5566 033253 334 00 0 00 000000 SKIPA ;PASS IF JFCL DID NOT JUMP - 5567 STOP^ - 5568 033254 254 04 0 00 033255 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5569 033255 324 00 0 00 033256 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5570 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5571 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5572 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5573 - 5574 ;********** - 5575 - 5576 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG - 5577 ;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAINS 0. HENCE, JRST 2,.+1(1) - 5578 ;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE CRY0, FLAG IS SET BY JRST 2,.+1(1) - 5579 ;WITH C(AC1)=CRY0. THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1 WITH C(AC1)=0. - 5580 ;IF CRY0 WAS CLEARED, THE TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - 5581 - 5582 033256 C7100: SFLAG CRY0 ^;SET CRY0 FLAGS - 5583 - 5584 033256 205 01 0 00 200000 MOVSI 1,CRY0 - 5585 033257 255 17 0 00 033260 JFCL 17,.+1 ;RESET ALL FLAGS - 5586 033260 254 02 0 01 033261 JRST 2,.+1(1) ;SET CRY0 FLAG - 5587 033261 400 01 0 00 000000 SETZ 1, ;SETUP MASK TO CLEAR ARITHMETIC FLAGS - 5588 033262 254 02 0 01 033263 JRST 2,.+1(1) ;*RESET ARITHMETIC FLAGS - 5589 033263 255 04 0 00 033265 JFCL 4,.+2 ;PASS IF CRY0 FLAG WAS RESET - 5590 033264 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PSSED - 5591 STOP^ - 5592 033265 254 04 0 00 033266 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5593 033266 324 00 0 00 033267 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5594 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5595 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5596 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5597 - 5598 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 35 -DAKADM MAC 19-JAN-77 13:41 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0127 - - 5599 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG - 5600 ;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAINS 0. HENCE, JRST 2,.+1(1) - 5601 ;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE FOV, FLAG IS SET BY JRST 2,.+1(1) - 5602 ;WITH C(AC1)=FOV. THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1 WITH C(AC1)=0. - 5603 ;IF FOV WAS CLEARED, THE TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - 5604 - 5605 033267 C7200: SFLAG FOV ^;SET FOV FLAG - 5606 - 5607 033267 205 01 0 00 040000 MOVSI 1,FOV - 5608 033270 255 17 0 00 033271 JFCL 17,.+1 ;RESET ALL FLAGS - 5609 033271 254 02 0 01 033272 JRST 2,.+1(1) ;SET FOV FLAG - 5610 033272 400 01 0 00 000000 SETZ 1, ;SETUP MASK TO CLEAR ARITHMETIC FLAGS, - 5611 033273 254 02 0 01 033274 JRST 2,.+1(1) ;*RESET ARITHMETIC FLAGS - 5612 033274 255 01 0 00 033276 JFCL 1,.+2 ;PASS IF FOV FLAG WAS RESET - 5613 033275 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PSSED - 5614 STOP^ - 5615 033276 254 04 0 00 033277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5616 033277 324 00 0 00 033300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5617 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5618 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5619 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5620 - 5621 ;********** - 5622 - 5623 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG - 5624 ;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAINS 0. HENCE, JRST 2,.+1(1) - 5625 ;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE ARITHMETIC FLAGS ARE RESET BY - 5626 ;JFCL 17,.+1. THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1. - 5627 ;IF ALL THE ARITHMETIC FLAGS WERE CLEARED, - 5628 ;THE TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - 5629 - 5630 033300 255 17 0 00 033301 C7300: JFCL 17,.+1 ;CLEAR FLAGS - 5631 033301 400 01 0 00 000000 SETZ 1, ;SETUP MASK TO CLEAR ARITMETIC FLAGS - 5632 033302 254 02 0 01 033303 JRST 2,.+1(1) ;*RESET ARITHMETIC FLAGS - 5633 033303 255 17 0 00 033305 JFCL 17,.+2 ;PASS IF ALL FLAGS ARE RESET - 5634 033304 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSED - 5635 STOP^ - 5636 033305 254 04 0 00 033306 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5637 033306 324 00 0 00 033307 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5638 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5639 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5640 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5641 - 5642 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 36 -DAKADM MAC 19-JAN-77 13:41 TEST OF JSP INSTRUCTION SEQ 0128 - - 5643 SUBTTL TEST OF JSP INSTRUCTION - 5644 - 5645 ;********** - 5646 - 5647 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS AND PC IN THE AC. - 5648 ;IN THIS CASE, THE FLAGS ARE RESET; THEN, JSP IS EXECUTED. THE AC IS THEN - 5649 ;CHECKED FOR ITS CONTENTS NON-ZERO. IF C(AC)=0, IT INDICATES - 5650 ;THAT NEITHER THE FLAGS NOR THE PC WAS SAVED. HENCE, THIS TEST FAILS. - 5651 - 5652 033307 403 00 0 00 000001 C7400: SETZB 1 ;CLEAR AC AND SETUP MASK TO RESET FLAGS - 5653 033310 254 02 0 01 033311 JRST 2,.+1(1) ;RESET FLAGS - 5654 033311 265 00 0 00 033312 JSP .+1 ;*JSP SHOULD STORE FLAGS AND PC IN THE AC - 5655 033312 336 00 0 00 000000 SKIPN ;PASS IF C(AC) IS NON-ZERO - 5656 STOP ^;IT DID NOT STORE ANY FLAGS OR PC - 5657 - 5658 033313 254 04 0 00 033314 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5659 033314 324 00 0 00 033315 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5660 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5661 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5662 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1 - 5663 - 5664 ;********** - 5665 - 5666 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE PC IN THE RIGHT HALF OF THE AC. - 5667 ;IN THIS CASE, THE AC IS CLEARED, THEN, JSP IS EXECUTED. THE RIGHT HALF OF - 5668 ;THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO. IF C(AC RIGHT HALF) - 5669 ;IS NON-ZERO, IT INDICATED THAT THE PC WAS SAVED; AND THIS TEST PASSES. - 5670 - 5671 033315 400 00 0 00 000000 C7500: SETZ ;CLEAN AC - 5672 033316 265 00 0 00 033317 JSP .+1 ;*JSP SHOULD STORE THE PC IN THE AC - 5673 033317 606 00 0 00 777777 TRNN -1 ;PASS IF C(AC) IN NON-ZERO - 5674 STOP^ - 5675 033320 254 04 0 00 033321 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5676 033321 324 00 0 00 033322 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5677 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5678 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5679 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5680 - 5681 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 37 -DAKADM MAC 19-JAN-77 13:41 TEST OF JSP INSTRUCTION SEQ 0129 - - 5682 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. - 5683 ;FIST, THE AC IS CLEARED; THEN, SOME FLAGS ARE SET AND JSP IS EXECUTED. - 5684 ;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE - 5685 ;WHETHER THE FLAGS WERE SAVED. IF C(AC-LEFT) IS NON-ZERO, THIS TEST PASSES - 5686 - 5687 033322 402 00 0 00 000000 C7600: SETZM 0 ;CLEAR AC - 5688 033323 205 01 0 00 740000 MOVSI 1,740000 ;SET UP MASK TO SET FLAGS - 5689 033324 254 02 0 01 033325 JRST 2,.+1(1) ;SET SOME ARITHMETIC FLAGS - 5690 033325 265 00 0 00 033326 JSP .+1 ;*JSP SHOULD STORE FLAGS IN THE AC - 5691 033326 607 00 0 00 777777 TLNN -1 ;PASS IF C(AC) IS NON-ZERO - 5692 STOP^ - 5693 033327 254 04 0 00 033330 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5694 033330 324 00 0 00 033331 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5695 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5696 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5697 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5698 - 5699 ;********** - 5700 - 5701 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. - 5702 ;FIRST, THE AC IS CLEARED; THEN, THE AROV FLAG IS SET AND JSP IS EXECUTED. - 5703 ;THEN, THE AROV FLAG BIT OF - 5704 ;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE - 5705 ;WHETHER THE AROV FLAG WAS SAVED. IF THE AROV FLAG BIT OF THE AC IS SET, THIS TEST PASSES - 5706 - 5707 033331 402 00 0 00 000000 C7700: SETZM 0 ;CLEAR THE AC - 5708 SFLAG AROV ^;SET AROV FLAG - 5709 - 5710 033332 205 01 0 00 400000 MOVSI 1,AROV - 5711 033333 255 17 0 00 033334 JFCL 17,.+1 ;RESET ALL FLAGS - 5712 033334 254 02 0 01 033335 JRST 2,.+1(1) ;SET AROV FLAG - 5713 033335 265 00 0 00 033336 JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT - 5714 033336 607 00 0 00 400000 TLNN AROV ;PASS IF AROV WAS SAVED - 5715 STOP^ - 5716 033337 254 04 0 00 033340 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5717 033340 324 00 0 00 033341 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5718 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5719 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5720 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5721 - 5722 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 38 -DAKADM MAC 19-JAN-77 13:41 TEST OF JSP INSTRUCTION SEQ 0130 - - 5723 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. - 5724 ;FIRST, THE AC IS CLEARED; THEN, THE CRY0 FLAG IS SET AND JSP IS EXECUTED. - 5725 ;THEN, THE CRY0 FLAG BIT OF - 5726 ;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE - 5727 ;WHETHER THE CRY0 FLAG WAS SAVED. IF THE CRY0 FLAG BIT OF THE AC IS SET, THIS TEST PASSES - 5728 - 5729 033341 402 00 0 00 000000 C10000: SETZM 0 ;CLEAR THE AC - 5730 SFLAG CRY0 ^;SET CRY0 FLAG - 5731 - 5732 033342 205 01 0 00 200000 MOVSI 1,CRY0 - 5733 033343 255 17 0 00 033344 JFCL 17,.+1 ;RESET ALL FLAGS - 5734 033344 254 02 0 01 033345 JRST 2,.+1(1) ;SET CRY0 FLAG - 5735 033345 265 00 0 00 033346 JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT - 5736 033346 607 00 0 00 200000 TLNN CRY0 ;PASS IF CRY0 WAS SAVED - 5737 STOP^ - 5738 033347 254 04 0 00 033350 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5739 033350 324 00 0 00 033351 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5740 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5741 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5742 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5743 - 5744 ;********** - 5745 - 5746 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. - 5747 ;FIRST, THE AC IS CLEARED; THEN, THE CRY1 FLAG IS SET AND JSP IS EXECUTED. - 5748 ;THEN, THE CRY1 FLAG BIT OF - 5749 ;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE - 5750 ;WHETHER THE FLAG WAS SAVED. IF THE CRY1 FLAG BIT OF THE AC IS SET, THIS TEST PASSES - 5751 - 5752 033351 400 00 0 00 000000 C10100: SETZ ;CLEAR AC - 5753 SFLAG CRY1 ^;SET CRY1 FLAG - 5754 - 5755 033352 205 01 0 00 100000 MOVSI 1,CRY1 - 5756 033353 255 17 0 00 033354 JFCL 17,.+1 ;RESET ALL FLAGS - 5757 033354 254 02 0 01 033355 JRST 2,.+1(1) ;SET CRY1 FLAG - 5758 033355 265 00 0 00 033356 JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT - 5759 033356 607 00 0 00 100000 TLNN CRY1 ;PASS IF AROV WAS SAVED - 5760 STOP^ - 5761 033357 254 04 0 00 033360 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5762 033360 324 00 0 00 033361 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5763 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5764 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5765 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5766 - 5767 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 39 -DAKADM MAC 19-JAN-77 13:41 TEST OF JSP INSTRUCTION SEQ 0131 - - 5768 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. - 5769 ;FRIST, THE AC IS CLEARED; THEN, THE FOV FLAG IS SET AND JSP IS EXECUTED. - 5770 ;THEN, THE FOV FLAG BIT OF THE LEFT HALF OF THE AC IS CHECKED FOR - 5771 ;ITS CONTENTS NON-ZERO TO DETERMINE WHETHER THE FOV FLAG WAS SAVED. - 5772 ;IF THE FOV FLAG BIT OF THE AC IS SET, THIS TEST PASSES - 5773 - 5774 033361 400 00 0 00 000000 C10200: SETZ ;CLEAR THE AC - 5775 SFLAG FOV ^;SET FOV FLAG - 5776 - 5777 033362 205 01 0 00 040000 MOVSI 1,FOV - 5778 033363 255 17 0 00 033364 JFCL 17,.+1 ;RESET ALL FLAGS - 5779 033364 254 02 0 01 033365 JRST 2,.+1(1) ;SET FOV FLAG - 5780 033365 265 00 0 00 033366 JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT - 5781 033366 607 00 0 00 040000 TLNN FOV ;PASS IF FOV WAS SAVED - 5782 STOP^ - 5783 033367 254 04 0 00 033370 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5784 033370 324 00 0 00 033371 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5785 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5786 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5787 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5788 - 5789 ;********** - 5790 - 5791 ;THIS TEST VERIFIES THAT JSP WILL STORE ONLY FLAGS THAT EXIST. - 5792 ;I.E. RESET FLAGS WILL NOT BE SET IN THE AC. ONLY FLAGS THAT ARE - 5793 ;CLEARABLE BY JRSTF WILL BE CHECKED HERE. FIRST ALL CLEARABLE - 5794 ;FLAGS ARE RESET BY JRSTF; THEN JSP IS EXECUTED. THE AC IS THEN CHECKED. - 5795 ;IF ANY CLEARABLE FLAGS ARE SET IN THE AC, THIS TEST FAILS. - 5796 - 5797 033371 C10300: SFLAG 0 ^;CLEAR ALL CLEARABLE FLAGS - 5798 - 5799 033371 205 01 0 00 000000 MOVSI 1,0 - 5800 033372 255 17 0 00 033373 JFCL 17,.+1 ;RESET ALL FLAGS - 5801 033373 254 02 0 01 033374 JRST 2,.+1(1) ;SET 0 FLAG - 5802 033374 265 00 0 00 033375 JSP .+1 ;*JSP SHOULD NOT STORE CLEARABLE FALGS - 5803 033375 603 00 0 00 761777 TLNE 761777 ;FAIL IF ANY CLEARABLE FLAG IS SET - 5804 STOP^ - 5805 033376 254 04 0 00 033377 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5806 033377 324 00 0 00 033400 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5807 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5808 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5809 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5810 - 5811 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 40 -DAKADM MAC 19-JAN-77 13:41 TEST OF JSP INSTRUCTION SEQ 0132 - - 5812 ;THIS TEST VERIFIES THAT JSP ALWAYS JUMPS. - 5813 ;IN THIS TEST, JSP .+2 IS EXECUTED. IF JSP JUMPS, THE TEST PASSES; - 5814 ;OTHERWISE, THIS TEST HALTS - 5815 - 5816 033400 265 00 0 00 033402 C10400: JSP .+2 ;*JSP SHOULD ALWAYS JUMP - 5817 STOP^ - 5818 033401 254 04 0 00 033402 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5819 033402 324 00 0 00 033403 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5820 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5821 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5822 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5823 - 5824 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 41 -DAKADM MAC 19-JAN-77 13:41 TEST JRST INSTRUCTION SEQ 0133 - - 5825 SUBTTL TEST JRST INSTRUCTION - 5826 - 5827 ;********** - 5828 - 5829 ;THIS TEST VERIFIES THAT JRST ALWAYS JUMPS. - 5830 ;IN THIS TEST, JRST .+2 IS EXECUTED. IF JRST JUMPS, THE TEST PASSES; - 5831 ;OTHERWISE, THIS TEST HALTS - 5832 - 5833 033403 254 00 0 00 033405 C10500: JRST .+2 ;*JRST 0, SHOULD ALWAYS JUMP - 5834 STOP^ - 5835 033404 254 04 0 00 033405 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5836 033405 324 00 0 00 033406 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5837 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5838 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5839 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5840 - 5841 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 42 -DAKADM MAC 19-JAN-77 13:41 TEST OF AOBJX INSTRUCTIONS SEQ 0134 - - 5842 SUBTTL TEST OF AOBJX INSTRUCTIONS - 5843 - 5844 ;********** - 5845 - 5846 ;THIS TEST VERIFIES THAT AOBJN ALWAYS ADDS 1 TO BOTH HALVES OF THE AC. - 5847 ;FIRST, THE AC IS CLEARED; THEN, AOBJN IS EXECUTED AND THE AC IS CHECKED - 5848 ;FOR 1,,1. IF C(AC)=1,,1, THIS TEST PASSES. - 5849 - 5850 033406 400 00 0 00 000000 C11200: SETZ ;CLEAR THE AC - 5851 033407 253 00 0 00 033410 AOBJN .+1 ;*AOBJN SHOULD ADD 1 TO BOTH HALVES OF THE AC - 5852 033410 312 00 0 00 034442 CAME [XWD 1,1] ;PASS IF C(AC)=1,,1 - 5853 STOP^ - 5854 033411 254 04 0 00 033412 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5855 033412 324 00 0 00 033413 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5856 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5857 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5858 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5859 - 5860 ;********** - 5861 - 5862 ;THIS TEST VERIFIES THAT AOBJP ALWAYS ADDS 1 TO BOTH HALVES OF THE AC. - 5863 ;FIRST, THE AC IS CLEARED; THEN AOBJP IS EXECUTED AND THE AC IS CHECKED - 5864 ;FOR 1,,1. IF C(AC)=1,,1, THIS TEST PASSES. - 5865 - 5866 033413 200 00 0 00 034540 C11300: MOVE [XWD 377777,377777] ;PRELOAD AC WITH 377777,,377777 - 5867 033414 252 00 0 00 033415 AOBJP .+1 ;*AOBJP SHOULD ADD, TO BOTH HALVES OF THE AC - 5868 033415 312 00 0 00 034541 CAME [XWD 400000,400000] ;PASS IF C(AC)=400000,400000 - 5869 STOP^ - 5870 033416 254 04 0 00 033417 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5871 033417 324 00 0 00 033420 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5872 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5873 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5874 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5875 - 5876 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 43 -DAKADM MAC 19-JAN-77 13:41 TEST OF AOBJX INSTRUCTIONS SEQ 0135 - - 5877 ;THIS TEST VERIFIES THAT AOBJN WILL NOT JUMP WHEN C(AC) IS POSITIVE - 5878 ;FIRST, THE AC IS CLEARED; AND AOBJN IS EXECUTED. AOBJN SHOULD NOT JUMP - 5879 ;BECAUSE C(AC) IS POSITIVE. IF AOBJN JUMPS, THIS TEST FAILS - 5880 - 5881 033420 400 00 0 00 000000 C11400: SETZ ;CLEAR THE AC - 5882 033421 253 00 0 00 033423 AOBJN .+2 ;*AOBJN SHOULD NOT JUMP WHEN C(AC) IS POSITIVE - 5883 033422 334 00 0 00 000000 SKIPA ;PASS IF AOBJN DOES NOT JUMP - 5884 STOP^ - 5885 033423 254 04 0 00 033424 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5886 033424 324 00 0 00 033425 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5887 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5888 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5889 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5890 - 5891 ;********** - 5892 - 5893 ;THIS TEST VERIFIES THAT AOBJP WILL JUMP WHEN C(AC) IS POSITIVE - 5894 ;FIRST, THE AC IS CLEARED; AND AOBJP IS EXECUTED. AOBJP SHOULD JUMP - 5895 ;BECAUSE C(AC) IS POSITIVE. IF AOBJP DOES NOT JUMP, THIS TEST FAILS - 5896 - 5897 033425 400 00 0 00 000000 C11500: SETZ ;CLEAR THE AC - 5898 033426 252 00 0 00 033430 AOBJP .+2 ;*AOBJP SHOULD JUMP BECAUSE C(AC) IS POSITIVE - 5899 STOP^ - 5900 033427 254 04 0 00 033430 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5901 033430 324 00 0 00 033431 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5902 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5903 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5904 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5905 - 5906 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 44 -DAKADM MAC 19-JAN-77 13:41 TEST OF AOBJX INSTRUCTIONS SEQ 0136 - - 5907 ;THIS TEST VERIFIES THAT AOBJN WILL JUMP WHEN C(AC) IS NEGATIVE - 5908 ;FIRST, THE AC IS PRELOADED WITH 400000,,0; AND AOBJN IS EXECUTED. AOBJN SHOULD JUMP - 5909 ;BECAUSE C(AC) IS NEGATIVE. IF AOBJN DOES NOT JUMP, THIS TEST FAILS - 5910 - 5911 033431 200 00 0 00 034541 C11600: MOVE [XWD 400000,400000] ;PRELOAD AC WITH 400000,,400000 - 5912 033432 253 00 0 00 033434 AOBJN .+2 ;*AOBJN SHOULD JUMP BECAUSE C(AC) IS NEGATIVE - 5913 STOP^ - 5914 033433 254 04 0 00 033434 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5915 033434 324 00 0 00 033435 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5916 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5917 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5918 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5919 - 5920 ;********** - 5921 - 5922 ;THIS TEST VERIFIES THAT AOBJP WILL NOT JUMP WHEN C(AC) IS NEGATIVE. FIRST, - 5923 ;THE AC IS PRELOADED WITH 400000,,0; AND AOBJP IS EXECUTED. AOBJP SHOULD NOT JUMP - 5924 ;BECAUSE C(AC) IS NEGATIVE. IF AOBJP JUMPS, THIS TEST FAILS - 5925 - 5926 033435 200 00 0 00 034541 C11700: MOVE [XWD 400000,400000] ;PRELOAD AC WITH 400000,,400000 - 5927 033436 252 00 0 00 033440 AOBJP .+2 ;*AOBJP SHOULD NOT JUMP BECAUSE C(AC) IS NEGATIVE - 5928 033437 334 00 0 00 000000 SKIPA ;PASS IF AOBJP DOES NOT JUMP - 5929 STOP^ - 5930 033440 254 04 0 00 033441 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5931 033441 324 00 0 00 033442 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5932 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5933 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5934 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5935 - 5936 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 45 -DAKADM MAC 19-JAN-77 13:41 TEST OF AOBJX INSTRUCTIONS SEQ 0137 - - 5937 ;THIS TEST VERIFIES THAT THERE IS A CARRY FROM BIT 18 TO BIT 17 OF THE AC ON AOBJN. - 5938 ;THE AC IS PRELOADED WITH -1,,-1; THEN AOBJN IS EXECUTED. AOBJN SHOULD ADD ONE - 5939 ;TO BOTH HALVES OF THE AC, GENERATING A CARRY FROM BIT 18 TO BIT 17. IF A - 5940 ;CARRY WAS GENERATED, THIS TEST PASSES - 5941 - 5942 033442 474 00 0 00 000000 C12000: SETO ;PRELOAD AC WITH -1,, -1 - 5943 033443 253 00 0 00 033444 AOBJN .+1 ;*AOBJN SHOULD GENERATE A CARRY FROM BIT 18 TO 17 - 5944 033444 312 00 0 00 034444 CAME [1,,0] ;PASS IF C(AC)=1,,0 (CARRY WAS GENERATED) - 5945 STOP^ - 5946 033445 254 04 0 00 033446 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5947 033446 324 00 0 00 033447 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5948 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5949 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5950 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5951 - 5952 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 46 -DAKADM MAC 19-JAN-77 13:41 TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX SEQ 0138 - - 5953 SUBTTL TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX - 5954 - 5955 ;THIS TEST VERIFIES THAT MOVNI SETS CRY0 AND CRY1 FLAGS ONLY WHEN THE DATA IS 0. - 5956 ;FIRST, THE ARITHMETIC FLAGS ARE RESET; THEN, MOVNI IS EXECUTED WITH DATA OF ZEROS. - 5957 ;THE ARITHMETIC FLAGS ARE CHECKED. - 5958 ; CRY0/1 ARE SET AND AROV AND FOV RESET, THIS TEST PASSES. - 5959 - 5960 033447 255 17 0 00 033450 C12100: JFCL 17,.+1 ;CLEAR FLAGS - 5961 033450 211 00 0 00 000000 MOVNI 0 ;* MOVNI 0 SHOULD SET CRY0/1 - 5962 033451 255 04 0 00 033453 JCRY0 .+2 ;PASS IF CRY0 IS SET - 5963 STOP^ - 5964 033452 254 04 0 00 033453 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5965 033453 324 00 0 00 033454 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5966 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5967 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5968 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5969 033454 255 02 0 00 033456 JCRY1 .+2 ;PASS IF CRY1 IS SET - 5970 STOP^ - 5971 033455 254 04 0 00 033456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5972 033456 324 00 0 00 033457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5973 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5974 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5975 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5976 033457 255 10 0 00 033461 JOV .+2 ;PASS IF AROV RESET - 5977 033460 334 00 0 00 000000 SKIPA - 5978 STOP^ - 5979 033461 254 04 0 00 033462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5980 033462 324 00 0 00 033463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5981 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5982 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5983 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5984 033463 255 01 0 00 033465 JFOV .+2 ;PASS IF FOV RESET - 5985 033464 334 00 0 00 000000 SKIPA - 5986 STOP^ - 5987 033465 254 04 0 00 033466 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 5988 033466 324 00 0 00 033467 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 5989 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 5990 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 5991 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 5992 - 5993 ;********** - 5994 - 5995 ;THIS TEST VERIFIES THAT MOVN WILL NOT SET ARITHMETIC FLAGS WHEN THE DATA IS -1,,-1. - 5996 ;FIRST, THE FLAGS ARE RESET; THEN, MOVN [-1,,-1] IS EXECUTED. - 5997 ;THE ARITHMETIC FLAGS ARE CHECKED. - 5998 ;IF ANY ARITHMETIC FLAG IS SET, THIS TEST FAILS. - 5999 - 6000 033467 255 17 0 00 033470 C12200: JFCL 17,.+1 ;CLEAR FLAGS - 6001 033470 210 00 0 00 034466 MOVN [-1] ;*MOVN [-1,,-1] SHOULD SET ARITHMETIC FLAGS - 6002 033471 255 17 0 00 033473 JFCL 17,.+2 ;FAIL IF AN ARITHMETIC FLAG IS SET - 6003 033472 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF MOVN PASSED. - 6004 STOP^ - 6005 033473 254 04 0 00 033474 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6006 033474 324 00 0 00 033475 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6007 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 46-1 -DAKADM MAC 19-JAN-77 13:41 TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX SEQ 0139 - - 6008 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6009 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6010 - 6011 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 47 -DAKADM MAC 19-JAN-77 13:41 TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX SEQ 0140 - - 6012 ;THIS TEST VERIFIES THAT MOVN WILL SET THE AROV AND - 6013 ;CRY1 FLAGS ONLY WHEN THE DATA IS 400000,,0 - 6014 ;FIRST, THE FLAGS ARE RESET; THEN, MOVN [400000,,0] IS EXECUTED. - 6015 ;THE ARITHMETIC FLAGS ARE CHECKED. - 6016 ;IF AROV AND CRY1 ARE SET AND CRY0 AND FOV ARE RESET, THIS TEST PASSES. - 6017 - 6018 033475 255 17 0 00 033476 C12300: JFCL 17,.+1 ;CLEAR ARITHMETIC FLAGS - 6019 033476 210 00 0 00 034465 MOVN [XWD 400000,0] ;*MOVN [400000,,0] SHOULD SET AROV AND CRY1 ONLY - 6020 033477 255 10 0 00 033501 JOV .+2 ;PASS IF AROV IS SET - 6021 STOP^ - 6022 033500 254 04 0 00 033501 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6023 033501 324 00 0 00 033502 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6024 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6025 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6026 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6027 033502 255 02 0 00 033504 JCRY1 .+2 ;PASS IF CRY0 IS SET - 6028 STOP^ - 6029 033503 254 04 0 00 033504 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6030 033504 324 00 0 00 033505 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6031 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6032 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6033 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6034 033505 255 04 0 00 033507 JCRY0 .+2 ;PASS IF CRY0 IS RESET - 6035 033506 334 00 0 00 000000 SKIPA - 6036 STOP^ - 6037 033507 254 04 0 00 033510 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6038 033510 324 00 0 00 033511 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6039 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6040 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6041 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6042 033511 255 01 0 00 033513 JFOV .+2 ;PASS IF FOV IS RESET - 6043 033512 334 00 0 00 000000 SKIPA - 6044 STOP^ - 6045 033513 254 04 0 00 033514 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6046 033514 324 00 0 00 033515 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6047 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6048 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6049 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6050 - 6051 ;********** - 6052 - 6053 ;THIS TEST VERIFIES THAT MOVM WILL SET THE AROV AND - 6054 ;CRY1 FLAGS ONLY WHEN THE DATA IS 400000,,0 - 6055 ;FIRST, THE FLAGS ARE RESET; THEN, MOVM [400000,,0] IS EXECUTED. - 6056 ;THE ARITHMETIC FLAGS ARE CHECKED. - 6057 ;IF AROV AND CRY1 ARE SET AND CRY0 AND FOV ARE RESET, THIS TEST PASSES. - 6058 - 6059 033515 255 17 0 00 033516 C12301: JFCL 17,.+1 ;CLEAR ARITHMETIC FLAGS - 6060 033516 214 00 0 00 034465 MOVM [XWD 400000,0] ;*MOVM [400000,,0] SHOULD SET AROV AND CRY1 ONLY - 6061 033517 255 10 0 00 033521 JOV .+2 ;PASS IF AROV IS SET - 6062 STOP^ - 6063 033520 254 04 0 00 033521 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6064 033521 324 00 0 00 033522 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6065 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6066 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 47-1 -DAKADM MAC 19-JAN-77 13:41 TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX SEQ 0141 - - 6067 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6068 033522 255 02 0 00 033524 JCRY1 .+2 ;PASS IF CRY0 IS SET - 6069 STOP^ - 6070 033523 254 04 0 00 033524 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6071 033524 324 00 0 00 033525 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6072 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6073 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6074 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6075 033525 255 04 0 00 033527 JCRY0 .+2 ;PASS IF CRY0 IS RESET - 6076 033526 334 00 0 00 000000 SKIPA - 6077 STOP^ - 6078 033527 254 04 0 00 033530 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6079 033530 324 00 0 00 033531 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6080 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6081 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6082 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6083 033531 255 01 0 00 033533 JFOV .+2 ;PASS IF FOV IS RESET - 6084 033532 334 00 0 00 000000 SKIPA - 6085 STOP^ - 6086 033533 254 04 0 00 033534 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6087 033534 324 00 0 00 033535 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6088 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6089 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6090 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6091 - 6092 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 48 -DAKADM MAC 19-JAN-77 13:41 TEST OF AOS AND SOS INSTRUCTIONS SEQ 0142 - - 6093 SUBTTL TEST OF AOS AND SOS INSTRUCTIONS - 6094 - 6095 ;********** - 6096 - 6097 ;THIS TEST VERIFIES THAT AOS ADDS 1 TO MEMORY AND DOES NOT SKIP. - 6098 ;FIRST, E IS CLEARED; THEN, AOS IS EXECUTED. NEXT E IS CHECKED FOR 1. - 6099 ;IF C(E) IS NOT 1 OR AOS SKIPPED, THIS TEST FAILS - 6100 - 6101 033535 400 00 0 00 000000 C12600: SETZ ;CLEAR E - 6102 033536 350 00 0 00 000000 AOS ;*AOS SHOULD ADD 1 TO C(E) AND NOT SKIP - 6103 033537 302 00 0 00 000001 CAIE 1 ;PASS IF C(E)=0,,1 ANDAOS DID NOT SKIP - 6104 STOP^ - 6105 033540 254 04 0 00 033541 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6106 033541 324 00 0 00 033542 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6107 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6108 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6109 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6110 - 6111 ;********** - 6112 - 6113 ;THIS TEST VERIFIES THAT AOS ADDS 1 TO MEMORY AND DOES NOT SKIP. - 6114 ;FIRST, E IS PRELOADED WITH -1,,-1; THEN, AOS IS EXECUTED. NEXT E IS CHECKED FOR 0. - 6115 ;IF C(E) IS NOT 0 OR AOS SKIPPED, THIS TEST FAILS - 6116 - 6117 033542 474 00 0 00 000000 C12700: SETO ;PRELOAD E WITH -1,,-1 - 6118 033543 350 00 0 00 000000 AOS ;*AOS SHOULD ADD 1 TO C(E) AND NOT SKIP - 6119 033544 302 00 0 00 000000 CAIE ;PASS IF C(E)=0,,0 AND AOS DID NOT SKIP - 6120 STOP^ - 6121 033545 254 04 0 00 033546 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6122 033546 324 00 0 00 033547 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6123 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6124 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6125 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6126 - 6127 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 49 -DAKADM MAC 19-JAN-77 13:41 TEST OF AOS AND SOS INSTRUCTIONS SEQ 0143 - - 6128 ;THIS TEST VERIFIES THAT SOS SUBTRACTS 1 FROM MEMORY AND DOES NOT SKIP. - 6129 ;FIRST, E IS CLEARED; THEN, SOS IS EXECUTED. NEXT E IS CHECKED FOR -1,,-1. - 6130 ;IF C(E) IS NOT -1,,-1 OR SOS SKIPPED, THIS TEST FAILS - 6131 - 6132 033547 400 00 0 00 000000 C13100: SETZ ;CLEAR E - 6133 033550 370 00 0 00 000000 SOS ;*SOS SHOULD SUBTRACT 1 FROM C(E) AND NOT SKIP - 6134 033551 312 00 0 00 034466 CAME [-1] ;PASS IF C(E)=-1,,-1 AND SOS DID NOT SKIP - 6135 STOP^ - 6136 033552 254 04 0 00 033553 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6137 033553 324 00 0 00 033554 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6138 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6139 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6140 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6141 - 6142 ;********** - 6143 - 6144 ;THIS TEST VERIFIES THAT SOS SUBTRACTS 1 FROM MEMORY AND DOES NOT SKIP. - 6145 ;FIRST, E IS PRELOADED WITH A; THEN, SOS IS EXECUTED. NEXT E IS CHECKED FOR 0. - 6146 ;IF C(E) IS NOT 0 OR SOS SKIPPED, THIS TEST FAILS - 6147 - 6148 033554 201 00 0 00 000001 C13200: MOVEI 1 ;PRELOAD E WITH 1 - 6149 033555 370 00 0 00 000000 SOS ;*SOS SHOULD SUBTRACT 1 FROM C(E) AND DID NOT SKIP - 6150 033556 302 00 0 00 000000 CAIE 0 ;PASS IF C(E)=0 AND SOS DID NOT SKIP - 6151 STOP^ - 6152 033557 254 04 0 00 033560 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6153 033560 324 00 0 00 033561 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6154 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6155 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6156 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6157 - 6158 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 50 -DAKADM MAC 19-JAN-77 13:41 TEST OF AOS AND SOS INSTRUCTIONS SEQ 0144 - - 6159 ;THIS TEST VERIFIES THAT SOS SETS CRY0/1 FLAGS IF C(E) IS A NON-ZERO NUMBER OTHER - 6160 ;THAN 400000,,0. IN THIS CASE, C(E)=1. FIRST THE FLAGS ARE RESET; THEN - 6161 ;SOS IS EXECUTED. THE FLAGS ARE CHECKED. IF CRY0 AND CRY1 ARE SET - 6162 ;AND AROV AND FOV ARE RESET, THIS TEST PASSES. - 6163 - 6164 033561 255 17 0 00 033562 C13300: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS - 6165 033562 201 00 0 00 000001 MOVEI 1 ;PRELOAD E WITH 1 - 6166 033563 370 00 0 00 000000 SOS ;*SOS SHOULD SET CRY0/1 - 6167 033564 255 04 0 00 033566 JCRY0 .+2 ;PASS IF CRY0 IS SET - 6168 STOP^ - 6169 033565 254 04 0 00 033566 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6170 033566 324 00 0 00 033567 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6171 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6172 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6173 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6174 033567 255 02 0 00 033571 JCRY1 .+2 ;PASS IF CRY1 IS SET - 6175 STOP^ - 6176 033570 254 04 0 00 033571 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6177 033571 324 00 0 00 033572 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6178 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6179 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6180 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6181 033572 255 10 0 00 033574 JOV .+2 ;PASS IF AROV IS RESET - 6182 033573 334 00 0 00 000000 SKIPA - 6183 STOP^ - 6184 033574 254 04 0 00 033575 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6185 033575 324 00 0 00 033576 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6186 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6187 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6188 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6189 033576 255 01 0 00 033600 JFOV .+2 ;PASS IF FOV IS RESET - 6190 033577 334 00 0 00 000000 SKIPA - 6191 STOP^ - 6192 033600 254 04 0 00 033601 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6193 033601 324 00 0 00 033602 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6194 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6195 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6196 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6197 - 6198 ;********** - 6199 - 6200 ;THIS TEST VERIFIES THAT AOS SETS CRY0 AND CRY1 FLAG IF C(E) IS -1,,-1 - 6201 ;FIRST THE FLAGS ARE RESET; THEN - 6202 ;AOS IS EXECUTED. THE FLAGS ARE CHECKED. - 6203 ;IF CRY0 AND CRY1 ARE SET AND AROV AND FOV ARE RESET, THIS TEST PASSES. - 6204 - 6205 033602 255 17 0 00 033603 C13400: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS - 6206 033603 474 00 0 00 000000 SETO ;PRELOAD E WITH 1 - 6207 033604 350 00 0 00 000000 AOS ;*AOS SHOULD SET CRY0 AND CRY1 - 6208 033605 255 04 0 00 033607 JCRY0 .+2 ;PASS IF CRY0 IS SET - 6209 STOP^ - 6210 033606 254 04 0 00 033607 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6211 033607 324 00 0 00 033610 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6212 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6213 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 50-1 -DAKADM MAC 19-JAN-77 13:41 TEST OF AOS AND SOS INSTRUCTIONS SEQ 0145 - - 6214 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6215 033610 255 02 0 00 033612 JCRY1 .+2 ;PASS IF CRY1 IS SET - 6216 STOP^ - 6217 033611 254 04 0 00 033612 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6218 033612 324 00 0 00 033613 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6219 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6220 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6221 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6222 033613 255 10 0 00 033615 JOV .+2 ;PASS IF AROV IS RESET - 6223 033614 334 00 0 00 000000 SKIPA - 6224 STOP^ - 6225 033615 254 04 0 00 033616 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6226 033616 324 00 0 00 033617 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6227 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6228 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6229 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6230 033617 255 01 0 00 033621 JFOV .+2 ;PASS IF FOV IS RESET - 6231 033620 334 00 0 00 000000 SKIPA - 6232 STOP^ - 6233 033621 254 04 0 00 033622 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6234 033622 324 00 0 00 033623 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6235 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6236 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6237 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6238 - 6239 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 51 -DAKADM MAC 19-JAN-77 13:41 TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS SEQ 0146 - - 6240 SUBTTL TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS - 6241 - 6242 ;********** - 6243 - 6244 ;THIS TEST VERIFIES THAT JFCL 1, WILL ALWAYS CLEAR FOV FLAG. - 6245 ;FIRST, FOV IS SET VIA JRST 2, ;THEN JFCL 1,.+1 IS EXECUTED TO CLEAR FOV. - 6246 ;IF FOV WAS CLEARED, THIS TEST PASSES. - 6247 - 6248 033623 C13600: SFLAG FOV ^;SET FOV FLAG - 6249 - 6250 033623 205 01 0 00 040000 MOVSI 1,FOV - 6251 033624 255 17 0 00 033625 JFCL 17,.+1 ;RESET ALL FLAGS - 6252 033625 254 02 0 01 033626 JRST 2,.+1(1) ;SET FOV FLAG - 6253 033626 255 01 0 00 033627 JFCL 1,.+1 ;*JFCL SHOULD RESET FOV - 6254 033627 255 01 0 00 033631 JFCL 1,.+2 ;PASS IF FOV IS RESET - 6255 033630 334 00 0 00 000000 SKIPA ;SKIP HALT IF JFCL 1,.+1 PASSED - 6256 STOP^ - 6257 033631 254 04 0 00 033632 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6258 033632 324 00 0 00 033633 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6259 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6260 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6261 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6262 - 6263 ;********** - 6264 - 6265 ;THIS TEST VERIFIES THAT JRST 2, CAN SET FXU AND JSP CAN SAVE FXU IN THE AC. - 6266 ;FIRST, FXU IS SET VIA JRST 2, ;THEN, JSP IS EXECUTED. THE AC IS CHECKED - 6267 ;FOR FXU. IF FXU IS SET, THIS TEST PASSES; OTHERWISE, EITHER JRST 2, OR JSP FAILED. - 6268 - 6269 033633 C13700: SFLAG FXU ^;*SET FXU FLAG - 6270 - 6271 033633 205 01 0 00 000100 MOVSI 1,FXU - 6272 033634 255 17 0 00 033635 JFCL 17,.+1 ;RESET ALL FLAGS - 6273 033635 254 02 0 01 033636 JRST 2,.+1(1) ;SET FXU FLAG - 6274 033636 265 00 0 00 033637 JSP .+1 ;*STORE FXU FLAG IN AC - 6275 033637 607 00 0 00 000100 TLNN FXU ;PASS IF FXU IS SET IN THE AC - 6276 STOP^ - 6277 033640 254 04 0 00 033641 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6278 033641 324 00 0 00 033642 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6279 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6280 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6281 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6282 - 6283 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 52 -DAKADM MAC 19-JAN-77 13:41 TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS SEQ 0147 - - 6284 ;THIS TEST VERIFIES THAT JRST 2, CAN RESET FXU AND JSP CAN SAVE FXU IN THE AC. - 6285 ;FIRST, FXU IS SET; THEN, FXU IS RESET VIA JRST 2,. NEXT, JSP IS EXECUTED; AND - 6286 ;THE AC IS CHECKED FOR FXU RESET. IF FXU IS RESET IN THE AC, THIS TEST PASSES; - 6287 ;OTHERWISE, JRST 2, FAILED TO CLEAR FXU OR JSP STORED FXU INCORECTLY. - 6288 - 6289 033642 C14000: SFLAG FXU ^;SET FXU FLAG - 6290 - 6291 033642 205 01 0 00 000100 MOVSI 1,FXU - 6292 033643 255 17 0 00 033644 JFCL 17,.+1 ;RESET ALL FLAGS - 6293 033644 254 02 0 01 033645 JRST 2,.+1(1) ;SET FXU FLAG - 6294 SFLAG ^;*RESET FXU FLAG - 6295 - 6296 033645 205 01 0 00 000000 MOVSI 1, - 6297 033646 255 17 0 00 033647 JFCL 17,.+1 ;RESET ALL FLAGS - 6298 033647 254 02 0 01 033650 JRST 2,.+1(1) ;SET FLAG - 6299 033650 265 00 0 00 033651 JSP .+1 ;*STORE FXU FLAG IN THE AC - 6300 033651 603 00 0 00 000100 TLNE FXU ;PASS IF FXU IS RESET IN THE AC - 6301 STOP^ - 6302 033652 254 04 0 00 033653 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6303 033653 324 00 0 00 033654 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6304 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6305 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6306 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6307 - 6308 ;********** - 6309 - 6310 ;THIS TEST VERIFIES THAT JRST 2, CAN SET DCK AND JSP CAN SAVE DCK IN THE AC. - 6311 ;FIRST, DCK IS SET VIA JRST 2, ;THEN JSP IS EXECUTED. THE AC IS CHECKED - 6312 ;FOR DCK. IF DCK IS SET, THIS TEST PASSES, OTHERWISE JRST 2, OR JSP FAILED. - 6313 - 6314 033654 C14100: SFLAG DCK ^;*SET DCK FLAG - 6315 - 6316 033654 205 01 0 00 000040 MOVSI 1,DCK - 6317 033655 255 17 0 00 033656 JFCL 17,.+1 ;RESET ALL FLAGS - 6318 033656 254 02 0 01 033657 JRST 2,.+1(1) ;SET DCK FLAG - 6319 033657 265 00 0 00 033660 JSP .+1 ;*STORE FXU FLAG IN AC - 6320 033660 607 00 0 00 000040 TLNN DCK ;PASS IF FXU IS SET IN THE AC - 6321 STOP^ - 6322 033661 254 04 0 00 033662 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6323 033662 324 00 0 00 033663 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6324 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6325 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6326 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6327 - 6328 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 53 -DAKADM MAC 19-JAN-77 13:41 TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS SEQ 0148 - - 6329 ;THIS TEST VERIFIES THAT JRST 2, CAN RESET DCK AND JSP CAN SAVE DCK IN THE AC. - 6330 ;FIRST, FXU IS SET; THEN, DCK IS RESET VIA JRST 2,. NEXT, JSP IS EXPECTED; AND - 6331 ;THE AC IS CHECKED FOR DCK RESET. IF DCK IS RESET IN THE AC, THIS TEST PASSES; - 6332 ;OTHERWISE, JRST 2, FAILED TO CLEAR DCK OR JSP STORED DCK INCORRECTLY. - 6333 - 6334 033663 C14200: SFLAG DCK ^;SET DCK FLAG - 6335 - 6336 033663 205 01 0 00 000040 MOVSI 1,DCK - 6337 033664 255 17 0 00 033665 JFCL 17,.+1 ;RESET ALL FLAGS - 6338 033665 254 02 0 01 033666 JRST 2,.+1(1) ;SET DCK FLAG - 6339 SFLAG ^;*RESET DCK FLAG - 6340 - 6341 033666 205 01 0 00 000000 MOVSI 1, - 6342 033667 255 17 0 00 033670 JFCL 17,.+1 ;RESET ALL FLAGS - 6343 033670 254 02 0 01 033671 JRST 2,.+1(1) ;SET FLAG - 6344 033671 265 00 0 00 033672 JSP .+1 ;*STORE DCK FLAG IN THE AC - 6345 033672 603 00 0 00 000040 TLNE DCK ;PASS IF DCK IS RESET IN THE AC - 6346 STOP^ - 6347 033673 254 04 0 00 033674 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6348 033674 324 00 0 00 033675 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6349 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6350 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6351 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6352 - 6353 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 54 -DAKADM MAC 19-JAN-77 13:41 TEST OF JUMPX INSTRUCTIONS SEQ 0149 - - 6354 SUBTTL TEST OF JUMPX INSTRUCTIONS - 6355 - 6356 ;********** - 6357 - 6358 ;THIS TEST VERIFIES THAT JUMPL IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF - 6359 ;C(AC) IS NEGATIVE. IN THIS TEST, THE AC CONTAINS -1,,-1. HENCE, - 6360 ;JUMPL SHOULD JUMP. IF JUMPL JUMPS, THIS TEST PASSES. - 6361 - 6362 033675 474 00 0 00 000000 C14500: SETO ;PRELOAD AC WITH -1,,-1 - 6363 033676 321 00 0 00 033700 JUMPL .+2 ;*JUMPL SHOULD JUMP BECAUSE C(AC) IS NEGATIVE - 6364 STOP^ - 6365 033677 254 04 0 00 033700 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6366 033700 324 00 0 00 033701 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6367 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6368 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6369 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6370 - 6371 ;********** - 6372 - 6373 ;THIS TEST VERIFIES THAT JUMPL IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF - 6374 ;C(AC) IS NEGATIVE. IN THIS TEST, THE AC CONTAINS 0. HENCE, - 6375 ;JUMPL SHOULD NOT JUMP. IF JUMPL DOES NOT JUMP, THIS TEST PASSES. - 6376 - 6377 033701 400 00 0 00 000000 C14600: SETZ ;PRELOAD AC WITH 0 - 6378 033702 321 00 0 00 033704 JUMPL .+2 ;*JUMPL SHOULD NOT JUMP - 6379 033703 334 00 0 00 000000 SKIPA ;PASS IF JUMPL DOES NOT JUMP - 6380 STOP^ - 6381 033704 254 04 0 00 033705 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6382 033705 324 00 0 00 033706 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6383 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6384 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6385 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6386 - 6387 ;********** - 6388 - 6389 ;THIS TEST VERIFIES THAT JUMPE IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF - 6390 ;C(AC)=0. IN THIS TEST, THE AC CONTAINS 0. HENCE, - 6391 ;JUMPE SHOULD JUMP. IF JUMPE JUMPS, THIS TEST PASSES. - 6392 - 6393 033706 400 00 0 00 000000 C14700: SETZ ;PRELOAD AC WITH 0 - 6394 033707 322 00 0 00 033711 JUMPE .+2 ;*JUMPE SHOULD JUMP - 6395 STOP^ - 6396 033710 254 04 0 00 033711 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6397 033711 324 00 0 00 033712 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6398 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6399 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6400 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6401 - 6402 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 55 -DAKADM MAC 19-JAN-77 13:41 TEST OF JUMPX INSTRUCTIONS SEQ 0150 - - 6403 ;THIS TEST VERIFIES THAT JUMPN IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF - 6404 ;C(AC) IS NON-ZERO. IN THIS TEST, THE AC CONTAINS 1. HENCE, - 6405 ;JUMPN SHOULD JUMP. IF JUMPN JUMPS, THIS TEST PASSES. - 6406 - 6407 033712 201 00 0 00 000001 C15000: MOVEI 1 ;PRELOAD AC WITH 1 - 6408 033713 326 00 0 00 033715 JUMPN .+2 ;*JUMPN SHOULD JUMP - 6409 STOP^ - 6410 033714 254 04 0 00 033715 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6411 033715 324 00 0 00 033716 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6412 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6413 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6414 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6415 - 6416 ;********** - 6417 - 6418 ;THIS TEST VERIFIES THAT JUMPE IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF - 6419 ;C(AC)=0. IN THIS TEST, THE AC CONTAINS 2. HENCE, - 6420 ;JUMPL SHOULD NOT JUMP. IF JUMPE DOES NOT JUMP, THIS TEST PASSES. - 6421 - 6422 033716 201 00 0 00 000002 C15100: MOVEI 2 ;PRELOAD AC WITH 2 - 6423 033717 322 00 0 00 033721 JUMPE .+2 ;*JUMPE SHOULD NOT JUMP - 6424 033720 334 00 0 00 000000 SKIPA ;PASS IF JUMPE DID NOT JUMP - 6425 STOP^ - 6426 033721 254 04 0 00 033722 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6427 033722 324 00 0 00 033723 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6428 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6429 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6430 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6431 - 6432 ;********** - 6433 - 6434 ;THIS TEST VERIFIES THAT JUMPN IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF - 6435 ;C(AC) IS NON-ZERO. IN THIS TEST, THE AC CONTAINS 0. HENCE, - 6436 ;JUMPN SHOULD NOT JUMP. IF JUMPN DOES NOT JUMP, THIS TEST PASSES. - 6437 - 6438 033723 400 00 0 00 000000 C15200: SETZ ;PRELOAD AC WITH 0 - 6439 033724 326 00 0 00 033726 JUMPN .+2 ;*JUMPN SHOULD NOT JUMP - 6440 033725 334 00 0 00 000000 SKIPA ;PASS IF JUMPN DID NOT JUMP - 6441 STOP^ - 6442 033726 254 04 0 00 033727 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6443 033727 324 00 0 00 033730 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6444 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6445 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6446 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6447 - 6448 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 56 -DAKADM MAC 19-JAN-77 13:41 TEST OF JUMPX INSTRUCTIONS SEQ 0151 - - 6449 ;THIS TEST VERIFIES THAT JUMPG IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF - 6450 ;C(AC) IS GREATER THAN 0. IN THIS TEST, THE AC CONTAINS 1. HENCE, - 6451 ;JUMPG SHOULD JUMP. IF JUMPG JUMPS, THIS TEST PASSES. - 6452 - 6453 033730 201 00 0 00 000001 C15300: MOVEI 1 ;PRELOAD AC WITH 1 - 6454 033731 327 00 0 00 033733 JUMPG .+2 ;*JUMPG SHOULD JUMP - 6455 STOP^ - 6456 033732 254 04 0 00 033733 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6457 033733 324 00 0 00 033734 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6458 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6459 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6460 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6461 - 6462 ;********** - 6463 - 6464 ;THIS TEST VERIFIES THAT JUMPG IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF - 6465 ;C(AC) IS GREATER THAN 0. IN THIS TEST, THE AC CONTAINS -1,,0. HENCE, - 6466 ;JUMPG SHOULD NOT JUMP. IF JUMPG DOES NOT JUMP, THIS TEST PASSES. - 6467 - 6468 033734 205 00 0 00 777777 C15400: MOVSI -1 ;PRELOAD AC WITH -1,,0 - 6469 033735 327 00 0 00 033737 JUMPG .+2 ;*JUMPG SHOULD NOT JUMP - 6470 033736 334 00 0 00 000000 SKIPA ;PASS IF JUMPG DID NOT JUMP - 6471 STOP^ - 6472 033737 254 04 0 00 033740 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6473 033740 324 00 0 00 033741 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6474 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6475 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6476 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6477 - 6478 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 57 -DAKADM MAC 19-JAN-77 13:41 TEST OF AOJ AND SOJ INSTRUCTIONS SEQ 0152 - - 6479 SUBTTL TEST OF AOJ AND SOJ INSTRUCTIONS - 6480 - 6481 ;********** - 6482 - 6483 ;THIS TEST VERIFIES THAT AOJ ADDS 1 TO THE AC AND DOES NOT JUMP. - 6484 ;FIRST, THE AC IS PRELOADED WITH 0; THEN, AOJ IS EXECUTED. NEXT, THE - 6485 ;AC IS CHECKED FOR 1. IF C(AC) IS NOT 1 OR AOJ SKIPPED, THIS TEST FAILS. - 6486 - 6487 033741 400 00 0 00 000000 C15500: SETZ ;PRELOAD AC WITH 0 - 6488 033742 340 00 0 00 033744 AOJ .+2 ;*AOJ SHOULD ADD 1 TO THE AC AND NOT JUMP - 6489 033743 302 00 0 00 000001 CAIE 1 ;PASS IF C(AC)=1 AND AOJ DID NOT JUMP - 6490 STOP^ - 6491 033744 254 04 0 00 033745 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6492 033745 324 00 0 00 033746 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6493 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6494 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6495 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6496 - 6497 ;********** - 6498 - 6499 ;THIS TEST VERIFIES THAT AOJ ADDS 1 TO THE AC AND DOES NOT JUMP. - 6500 ;FIRST, THE AC IS PRELOADED WITH -1,,-1; THEN, AOJ IS EXECUTED. NEXT, THE - 6501 ;AC IS CHECKED FOR 0. IF C(AC) IS NOT 0 OR AOJ SKIPPED, THIS TEST FAILS. - 6502 - 6503 033746 474 00 0 00 000000 C15600: SETO ;PRELOAD AC WITH 0 - 6504 033747 340 00 0 00 033751 AOJ .+2 ;*AOJ SHOULD ADD 1 TO THE AC AND NOT JUMP - 6505 033750 302 00 0 00 000000 CAIE 0 ;PASS IF C(AC)=1 AND AOJ DID NOT JUMP - 6506 STOP^ - 6507 033751 254 04 0 00 033752 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6508 033752 324 00 0 00 033753 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6509 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6510 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6511 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6512 - 6513 ;********** - 6514 - 6515 ;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP. - 6516 ;FIRST, THE AC IS PRELOADED WITH 0; THEN, SOJ IS EXECUTED. NEXT, THE - 6517 ;AC IS CHECKED FOR -1,,-1. IF C(AC) IS NOT -1,,-1 OR SOJ SKIPPED, THIS TEST FAILS. - 6518 - 6519 033753 400 00 0 00 000000 C15700: SETZ ;PRELOAD AC WITH 0 - 6520 033754 360 00 0 00 033756 SOJ .+2 ;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP - 6521 033755 312 00 0 00 034466 CAME [-1] ;PASS IF C(AC)=-1,,-1 AND SOJ DID NOT JUMP - 6522 STOP^ - 6523 033756 254 04 0 00 033757 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6524 033757 324 00 0 00 033760 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6525 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6526 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6527 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6528 - 6529 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 58 -DAKADM MAC 19-JAN-77 13:41 TEST OF AOJ AND SOJ INSTRUCTIONS SEQ 0153 - - 6530 ;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP. - 6531 ;FIRST, THE AC IS PRELOADED WITH -1,,-1; THEN, SOJ IS EXECUTED. NEXT, THE - 6532 ;AC IS CHECKED FOR -1,,-2. IF C(AC) IS NOT -1,,-2 OR SOJ SKIPPED, THIS TEST FAILS. - 6533 - 6534 033760 474 00 0 00 000000 C16000: SETO ;PRELOAD AC WITH -1,,-1 - 6535 033761 360 00 0 00 033763 SOJ .+2 ;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP - 6536 033762 312 00 0 00 034467 CAME [-2] ;PASS IF C(AC)=-1,,-2 AND SOJ DID NOT JUMP - 6537 STOP^ - 6538 033763 254 04 0 00 033764 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6539 033764 324 00 0 00 033765 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6540 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6541 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6542 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6543 - 6544 ;********** - 6545 - 6546 ;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP. - 6547 ;FIRST, THE AC IS PRELOADED WITH 0,,1; THEN, SOJ IS EXECUTED. NEXT, THE - 6548 ;AC IS CHECKED FOR 0. IF C(AC) IS NOT 0 OR SOJ SKIPPED, THIS TEST FAILS. - 6549 - 6550 033765 201 00 0 00 000001 C16100: MOVEI 1 ;PRELOAD AC WITH 1 - 6551 033766 360 00 0 00 033770 SOJ .+2 ;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP - 6552 033767 302 00 0 00 000000 CAIE 0 ;PASS IF C(AC)=0 AND SOJ DID NOT JUMP - 6553 STOP^ - 6554 033770 254 04 0 00 033771 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6555 033771 324 00 0 00 033772 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6556 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6557 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6558 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6559 - 6560 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 59 -DAKADM MAC 19-JAN-77 13:41 TEST OF AOJ AND SOJ INSTRUCTIONS SEQ 0154 - - 6561 ;THIS TEST VERIFIES THAT SOJ AC, FOLLOWED BY AOJ AC, HAS NO NET EFFECT ON C(AC). - 6562 ;IN THIS CASE, THE AC IS PRELOADED WITH 0; THEN, SOJ AC, FOLLOWED BY AOJ. - 6563 ;AC, IS REPEATED 7 TIMES. THE AC IS THEN CHECKED FOR ITS ORIGINAL CONTENTS, 0. - 6564 ;IF C(AC)=0, THIS TEST PASSES; OTHERWISE AOJ OR SOJ FAILED. - 6565 - 6566 000017 C16200: AC=17 - 6567 033772 400 17 0 00 000000 SETZ AC, ;PRELOAD AC WITH 0 - 6568 REPEAT ^D10,< - 6569 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC - 6570 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC> - 6571 - 6572 033773 360 17 0 00 033773 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC - 6573 033774 340 17 0 00 033774 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC - 6574 - 6575 033775 360 17 0 00 033775 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC - 6576 033776 340 17 0 00 033776 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC - 6577 - 6578 033777 360 17 0 00 033777 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC - 6579 034000 340 17 0 00 034000 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC - 6580 - 6581 034001 360 17 0 00 034001 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC - 6582 034002 340 17 0 00 034002 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC - 6583 - 6584 034003 360 17 0 00 034003 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC - 6585 034004 340 17 0 00 034004 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC - 6586 - 6587 034005 360 17 0 00 034005 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC - 6588 034006 340 17 0 00 034006 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC - 6589 - 6590 034007 360 17 0 00 034007 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC - 6591 034010 340 17 0 00 034010 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC - 6592 - 6593 034011 360 17 0 00 034011 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC - 6594 034012 340 17 0 00 034012 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC - 6595 - 6596 034013 360 17 0 00 034013 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC - 6597 034014 340 17 0 00 034014 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC - 6598 - 6599 034015 360 17 0 00 034015 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC - 6600 034016 340 17 0 00 034016 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC - 6601 034017 332 00 0 00 000017 SKIPE AC ;PASS IF C(AC) IS UNCHANGED. I.E. C(AC)=0 - 6602 STOP^ - 6603 034020 254 04 0 00 034021 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6604 034021 324 00 0 00 034022 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6605 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6606 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6607 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6608 - 6609 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 60 -DAKADM MAC 19-JAN-77 13:41 TEST OF AOJ AND SOJ INSTRUCTIONS SEQ 0155 - - 6610 ;THIS TEST VERIFIES THAT SOJ SETS CRY0/1 FLAGS IF C(E) IS A NON-ZERO NUMBER OTHER - 6611 ;THAN 400000,,0. IN THIS CASE, C(E)=1. FIRST THE FLAGS ARE RESET; THEN - 6612 ;SOJ IS EXECUTED. THE FLAGS ARE CHECKED. IF CRY0 AND CRY1 ARE SET - 6613 ;AND AROV AND FOV ARE RESET, THIS TEST PASSES. - 6614 - 6615 034022 255 17 0 00 034023 C16201: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS - 6616 034023 201 00 0 00 000001 MOVEI 1 ;PRELOAD E WITH 1 - 6617 034024 360 00 0 00 000000 SOJ ;*SOJ SHOULD SET CRY0/1 - 6618 034025 255 04 0 00 034027 JCRY0 .+2 ;PASS IF CRY0 IS SET - 6619 STOP^ - 6620 034026 254 04 0 00 034027 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6621 034027 324 00 0 00 034030 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6622 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6623 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6624 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6625 034030 255 02 0 00 034032 JCRY1 .+2 ;PASS IF CRY1 IS SET - 6626 STOP^ - 6627 034031 254 04 0 00 034032 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6628 034032 324 00 0 00 034033 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6629 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6630 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6631 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6632 034033 255 10 0 00 034035 JOV .+2 ;PASS IF AROV IS RESET - 6633 034034 334 00 0 00 000000 SKIPA - 6634 STOP^ - 6635 034035 254 04 0 00 034036 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6636 034036 324 00 0 00 034037 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6637 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6638 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6639 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6640 034037 255 01 0 00 034041 JFOV .+2 ;PASS IF FOV IS RESET - 6641 034040 334 00 0 00 000000 SKIPA - 6642 STOP^ - 6643 034041 254 04 0 00 034042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6644 034042 324 00 0 00 034043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6645 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6646 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6647 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6648 - 6649 ;********** - 6650 - 6651 ;THIS TEST VERIFIES THAT AOJ SETS CRY0 AND CRY1 FLAG IF C(E) IS -1,,-1 - 6652 ;FIRST THE FLAGS ARE RESET; THEN - 6653 ;AOJ IS EXECUTED. THE FLAGS ARE CHECKED. - 6654 ;IF CRY0 AND CRY1 ARE SET AND AROV AND FOV ARE RESET, THIS TEST PASSES. - 6655 - 6656 034043 255 17 0 00 034044 C16202: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS - 6657 034044 474 00 0 00 000000 SETO ;PRELOAD E WITH 1 - 6658 034045 340 00 0 00 000000 AOJ ;*AOJ SHOULD SET CRY0 AND CRY1 - 6659 034046 255 04 0 00 034050 JCRY0 .+2 ;PASS IF CRY0 IS SET - 6660 STOP^ - 6661 034047 254 04 0 00 034050 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6662 034050 324 00 0 00 034051 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6663 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6664 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 60-1 -DAKADM MAC 19-JAN-77 13:41 TEST OF AOJ AND SOJ INSTRUCTIONS SEQ 0156 - - 6665 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6666 034051 255 02 0 00 034053 JCRY1 .+2 ;PASS IF CRY1 IS SET - 6667 STOP^ - 6668 034052 254 04 0 00 034053 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6669 034053 324 00 0 00 034054 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6670 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6671 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6672 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6673 034054 255 10 0 00 034056 JOV .+2 ;PASS IF AROV IS RESET - 6674 034055 334 00 0 00 000000 SKIPA - 6675 STOP^ - 6676 034056 254 04 0 00 034057 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6677 034057 324 00 0 00 034060 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6678 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6679 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6680 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6681 034060 255 01 0 00 034062 JFOV .+2 ;PASS IF FOV IS RESET - 6682 034061 334 00 0 00 000000 SKIPA - 6683 STOP^ - 6684 034062 254 04 0 00 034063 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6685 034063 324 00 0 00 034064 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6686 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6687 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6688 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6689 - 6690 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 61 -DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0157 - - 6691 SUBTTL TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS - 6692 - 6693 ;********** - 6694 - 6695 ;THIS TEST VERIFIES THAT ADDM DOES NOT MODIFY C(AC) - 6696 ;BOTH AC AND E ARE PRELOADED WITH -1,,-1. THEN ADDM IS EXECUTED. - 6697 ;THIS TEST PASSES IF C(AC) ARE UNCHANGED - 6698 - 6699 034064 477 00 0 00 000001 C16400: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 - 6700 034065 272 00 0 00 000001 ADDM 1 ;*ADDM SHOULD NOT AFFECT C(AC) - 6701 034066 312 00 0 00 034466 CAME [-1] ;PASS IF C(AC) IS UNMODIFIED BY ADDM - 6702 STOP^ - 6703 034067 254 04 0 00 034070 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6704 034070 324 00 0 00 034071 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6705 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6706 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6707 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6708 - 6709 ;********** - 6710 - 6711 ;THIS TEST VERIFIES THAT HRREM DOES NOT MODIFY C(AC) - 6712 ;THE AC IS PRELOADED WITH 0,,-1. THEN HRRM IS EXECUTED. - 6713 ;THIS TEST PASSES IF C(AC) ARE UNCHANGED - 6714 - 6715 034071 201 00 0 00 777777 C16500: MOVEI -1 ;PRELOAD AC WITH 0,,-1 - 6716 034072 572 00 0 00 000001 HRREM 1 ;*HRRM SHOULD NOT AFFECT C(AC) - 6717 034073 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC) IS UNMODIFIED BY HRRM - 6718 STOP^ - 6719 034074 254 04 0 00 034075 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6720 034075 324 00 0 00 034076 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6721 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6722 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6723 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6724 - 6725 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 62 -DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0158 - - 6726 ;THIS TEST VERIFIES THAT MOVSM DOES NOT MODIFY C(AC) - 6727 ;THE AC IS PRELOADED WITH 0,,-1. THEN MOVSM IS EXECUTED. - 6728 ;THIS TEST PASSES IF C(AC) ARE UNCHANGED - 6729 - 6730 034076 201 00 0 00 777777 C16600: MOVEI -1 ;PRELOAD AC WITH 0,,-1 - 6731 034077 206 00 0 00 000001 MOVSM 1 ;*MOVSM SHOULD NOT AFFECT C(AC) - 6732 034100 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC) IS UNMODIFIED BY MOVSM - 6733 STOP^ - 6734 034101 254 04 0 00 034102 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6735 034102 324 00 0 00 034103 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6736 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6737 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6738 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6739 - 6740 ;********** - 6741 - 6742 ;THIS TEST VERIFIES THAT XORM DOES NOT MODIFY C(AC) - 6743 ;BOTH AC AND E ARE PRELOADED WITH -1,,-1. THEN XORM IS EXECUTED. - 6744 ;THIS TEST PASSES IF C(AC) ARE UNCHANGED - 6745 - 6746 034103 477 00 0 00 000001 C16700: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 - 6747 034104 432 00 0 00 000001 XORM 1 ;*XORM SHOULD NOT AFFECT C(AC) - 6748 034105 312 00 0 00 034466 CAME [-1] ;PASS IF C(AC) IS UNMODIFIED BY XORM - 6749 STOP^ - 6750 034106 254 04 0 00 034107 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6751 034107 324 00 0 00 034110 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6752 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6753 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6754 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6755 - 6756 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 63 -DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0159 - - 6757 ;THIS TEST VERIFIES THAT ADDB ADDS C(AC) TO C(E) AND PLACES THE - 6758 ;RESULT IN BOTH AC AND E. IN THIS TEST, BOTH AC AND E ARE PRELOADED - 6759 ;WITH -1,,-1, THEN, ADDB IS EXECUTED. C(AC) IS THEN COMPARED TO C(E); - 6760 ;AND C(AC) IS THEN COMPARED TO -2. IF BOTH OF THESE COMPARISONS SUCCEED, THIS - 6761 ;TEST PASSES; OTHERWISE, ADDB FAILED - 6762 - 6763 034110 477 00 0 00 000001 C17000: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 - 6764 034111 273 00 0 00 000001 ADDB 1 ;*ADDB SHOULD ADD C(AC) TO C(E) AND PLACE RESULT - 6765 ;INTO BOTH AC AND E - 6766 034112 312 00 0 00 000001 CAME 1 ;PASS IF C(AC)=C(E) - 6767 STOP^ - 6768 034113 254 04 0 00 034114 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6769 034114 324 00 0 00 034115 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6770 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6771 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6772 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6773 034115 312 00 0 00 034467 CAME [-2] ;PASS IF C(AC)=-2 - 6774 STOP^ - 6775 034116 254 04 0 00 034117 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6776 034117 324 00 0 00 034120 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6777 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6778 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6779 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6780 - 6781 ;********** - 6782 - 6783 ;THIS TEST VERIFIES THAT ADDM ADDS C(AC) TO C(E) AND PLACES THE RESULT IN E - 6784 ;IN THIS CASE, AC, E ARE BOTH PRELOADED WITH -1; THEN, ADDM IS EXECUTED. - 6785 ;E IS THEN CHECKED FOR -2. IF C(E)=-2, THIS TEST PASSES; OTHERWISE, ADDM FAILED - 6786 - 6787 034120 477 00 0 00 000001 C17100: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 - 6788 034121 272 00 0 00 000001 ADDM 1 ;*ADDM SHOULD ADD C(AC) TO C(E) - 6789 034122 312 01 0 00 034467 CAME 1,[-2] ;PASS IF C(E)=-2 - 6790 STOP^ - 6791 034123 254 04 0 00 034124 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6792 034124 324 00 0 00 034125 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6793 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6794 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6795 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6796 - 6797 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 64 -DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0160 - - 6798 ;THIS TEST VERIFIES THAT HLLOS PLACES ONES ON THE RIGHT HALF OF E - 6799 ;BUT DOES NOT AFFECT THE LEFT HALF OF E. IN THIS CASE, - 6800 ;E IS PRELOADED WITH 0; THE, HLLOS IS EXECUTED. THE RESULT - 6801 ;IN E SHOULD BE 0,,-1. IF C(E)=0,,-1, THIS TEST PASSES - 6802 - 6803 034125 402 00 0 00 000001 C17200: SETZM 1 ;PRELOAD E WITH 0 - 6804 034126 523 00 0 00 000001 HLLOS 1 ;*HLLOS SHOULD PLACE 0,,-1 INTO E - 6805 034127 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(E)=0,,-1 - 6806 STOP^ - 6807 034130 254 04 0 00 034131 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6808 034131 324 00 0 00 034132 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6809 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6810 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6811 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6812 - 6813 ;********** - 6814 - 6815 ;THIS TEST VERIFIES THAT MOVSS SWAPS BOTHS HALVES OF E AND - 6816 ;PLACES THE RESULT IN E. IN THIS CASE, E IS PRELOADED WITH - 6817 ;-1,,0; THEN, MOVSS IS EXECUTED. THE RESULT IN E SHOULD BE 0,,-1. - 6818 ;IF C(E)=0,,-1, THIS TEST PASSES - 6819 - 6820 034132 205 01 0 00 777777 C17300: MOVSI 1,-1 ;PRELOAD E WITH -1,,0 - 6821 034133 207 00 0 00 000001 MOVSS 1 ;*MOVSS SHOULD PLACE 0,,-1 INTO E - 6822 034134 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(E)=0,,-1 - 6823 STOP^ - 6824 034135 254 04 0 00 034136 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6825 034136 324 00 0 00 034137 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6826 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6827 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6828 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6829 - 6830 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 65 -DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0161 - - 6831 ;THIS TEST VERIFIES THAT AOS ADDS ONE TO MEMORY BUT DOES NOT SKIP - 6832 ;FIRST, E IS PRELOADED WITH -1,-1; THEN, AOS IS EXECUTED. NEXT, E IS CHECKED FOR 0. - 6833 ;IF C(E) IS NOT 0 OR AOS SKIPPED, THIS TEST FAILS - 6834 - 6835 034137 477 00 0 00 000001 C17400: SETOB 1 ;PRELOAD E WITH -1,,-1 - 6836 034140 350 00 0 00 000001 AOS 1 ;*AOS SHOULD ADD TO C(E) AND NOT SKIP - 6837 034141 302 01 0 00 000000 CAIE 1,0 ;PASS IF C(E)=0,,0 AND AOS DID NOT SKIP - 6838 STOP^ - 6839 034142 254 04 0 00 034143 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6840 034143 324 00 0 00 034144 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6841 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6842 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6843 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6844 - 6845 ;********** - 6846 - 6847 ;THIS TEST VERIFIES THAT HRLM PLACES C(AC-RIGHT) INTO E-LEFT AND DOES - 6848 ;NOT MODIFY E-RIGHT. IN THIS CASE, AC IS PRELOADED WITH 0 AND E IS PRELOADED - 6849 ;WITH -1,,-1. THEN, HRLM IS EXECUTED. E IS THEN CHECKED FOR 0,,-1. IF - 6850 ;C(E)=0,,-1, THIS TEST PASSES - 6851 - 6852 034144 400 00 0 00 000000 C17500: SETZ ;PRELOAD AC WITH 0 - 6853 034145 474 01 0 00 000000 SETO 1, ;PRELOAD E WITH -1,,-1 - 6854 034146 506 00 0 00 000001 HRLM 1 ;*HRLM SHOULD PLACE 0,,-1 INTO E - 6855 034147 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(E)=0,,-1 - 6856 STOP^ - 6857 034150 254 04 0 00 034151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6858 034151 324 00 0 00 034152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6859 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6860 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6861 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6862 - 6863 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 66 -DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0162 - - 6864 ;THIS TEST VERIFIES THAT HRRS DOES NOT MODIFY E - 6865 ;E IS PRELOADED WITH 0 AND AC IS PRELOADED WITH -1,,-1. - 6866 ;HRRS IS EXECUTED; THEN E IS CHECKED. IF C(E) DOES - 6867 ;NOT CHANGE, THIS TEST PASSES - 6868 - 6869 034152 474 00 0 00 000000 C17600: SETO ;PRELOAD AC WITH -1,,-1 - 6870 034153 400 01 0 00 000000 SETZ 1, ;PRELOAD E WITH 0,,0 - 6871 034154 543 00 0 00 000001 HRRS 1 ;*HRRS SHOULD PLACE 0,,0 INTO E - 6872 034155 332 00 0 00 000001 SKIPE 1 - 6873 STOP^ - 6874 034156 254 04 0 00 034157 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6875 034157 324 00 0 00 034160 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6876 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6877 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6878 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6879 - 6880 ;********** - 6881 - 6882 ;THIS TEST VERIFIES THAT HRRZM PLACES C(AC-RIGHT) INTO E-RIGHT AND PLACES - 6883 ;ZEROS INTO E-LEFT. IN THIS CASE, AC=E=AC1 AND C(AC)=C(E)=-1,,0. HRRZM - 6884 ;IS EXECUTED AND AC1 IS CHECKED FOR 0. IF AC1=0, THIS TEST PASSES. - 6885 - 6886 034160 474 00 0 00 000000 C17700: SETO ;PRELOAD AC0 WITH -1,,-1 - 6887 034161 205 01 0 00 777777 MOVSI 1,-1 ;PRELOAD AC1 WITH -1,,0 - 6888 034162 552 01 0 00 000001 HRRZM 1,1 ;*HRRZM SHOULD PLACE 0 INTO AC1 - 6889 034163 332 00 0 00 000001 SKIPE 1 ;PASS IF C(AC1)=0 - 6890 STOP^ - 6891 034164 254 04 0 00 034165 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6892 034165 324 00 0 00 034166 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6893 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6894 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6895 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6896 - 6897 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 67 -DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0163 - - 6898 ;THIS TEST VERIFIES THAT JFCL 17,.+1 NEVER JUMPS AND DOES NOT MODIFY C(AC0). - 6899 ;FIRST, AC0 IS PRELOADED; THEN, JFCL IS EXECUTED. IF AC0 IS MODIFIED - 6900 ;OR JFCL SKIPS, THIS TEST FAILS - 6901 - 6902 034166 400 00 0 00 000000 C20000: SETZ ;CLEAR AC0 - 6903 034167 255 17 0 00 034170 JFCL 17,.+1 ;*JFCL SHOULD NOT JUMP OR MODIFY C(AC0). - 6904 034170 332 00 0 00 000000 SKIPE ;PASS IF C(AC0)=0 AND JFCL DID NOT JUMP - 6905 STOP^ - 6906 034171 254 04 0 00 034172 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6907 034172 324 00 0 00 034173 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6908 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6909 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6910 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6911 - 6912 ;********** - 6913 - 6914 ;THIS TEST VERIFIES THAT XORM PERFORMS THE LOGICAL EXCLUSIVE OR FUNCTION - 6915 ;BETWEEN C(AC) AND C(E) AND PLACES THE RESULT INTO E - 6916 ;IN THIS CASE, AC AND E ARE PRELOADED WITH -1,,-1; THEN, XORM IS - 6917 ;EXECUTED. IF THE RESULT IN E IS 0, THE TEST PASSES - 6918 - 6919 034173 477 00 0 00 000001 C20100: SETOB 1 ;PRELOAD AC,E WITH -1,,-1 - 6920 034174 432 00 0 00 000001 XORM 1 ;*XORM SHOULD PLACE 0 INTO E - 6921 034175 302 01 0 00 000000 CAIE 1,0 ;PASS IF C(E)=0 - 6922 STOP^ - 6923 034176 254 04 0 00 034177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6924 034177 324 00 0 00 034200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6925 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6926 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6927 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6928 - 6929 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 68 -DAKADM MAC 19-JAN-77 13:41 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0164 - - 6930 ;THIS TEST VERIFIES THAT SETZB PLACES ZEROS INTO BOTH AC AND E. - 6931 ;AFTER SETZB IS EXECUTED, BOTH AC AND E ARE CHECKED - 6932 ;FOR 0. IF EITHER AC OR E CONTAINS ANY ONES, THIS TEST FAILS - 6933 - 6934 034200 403 00 0 00 000001 C20200: SETZB 1 ;*SETZB SHOULD PLACE ZEROES IN BOTH AC AND E - 6935 034201 316 00 0 00 034536 CAMN [0] ;FAIL IF C(AC) IS NON-ZERO - 6936 034202 312 00 0 00 000001 CAME 1 ;FAIL IF C(E) IS NON-ZERO - 6937 STOP^ - 6938 034203 254 04 0 00 034204 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6939 034204 324 00 0 00 034205 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6940 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6941 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6942 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6943 - 6944 ;********** - 6945 - 6946 ;THIS TEST VERIFIES THAT SETAB PLACES C(AC) INTO BOTH AC AND E. - 6947 ;FIRST, AC IS PRELOADED WITH -1,,-1 AND E IS PRELOADED WITH 0; - 6948 ;THEN, SETAB IS EXECUTED. BOTH AC AND E ARE CHECKED FOR -1,,-1 - 6949 ;IF EITHER AC OR E CONTAIN ANY ZEROS, THIS TEST FAILS. - 6950 - 6951 034205 400 01 0 00 000000 C20300: SETZ 1, ;PRELOAD E WITH 0 - 6952 034206 474 00 0 00 000000 SETO ;PRELOAD AC WITH -1,,-1 - 6953 034207 427 00 0 00 000001 SETAB 1 ;*SETAB SHOULD PLACE -1,,-1 INTO BOTH AC AND E - 6954 034210 316 00 0 00 034466 CAMN [-1] ;FAIL IF C(AC) IS NOT -1,-1 - 6955 034211 312 00 0 00 000001 CAME 1 ;FAIL IF C(E) IS NOT -1,,-1 - 6956 STOP^ - 6957 034212 254 04 0 00 034213 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6958 034213 324 00 0 00 034214 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6959 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6960 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6961 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6962 - 6963 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 69 -DAKADM MAC 19-JAN-77 13:41 XCT INSTRUCTION - BASIC TESTS SEQ 0165 - - 6964 SUBTTL XCT INSTRUCTION - BASIC TESTS - 6965 - 6966 ;********** - 6967 - 6968 ;THIS TEST VERIFIES THAT XCT WILL EXECUTE THE INSTRUCTION SPECIFIED BY C(E) - 6969 ;IN THIS CASE, C(E) SPECIFIES A MOVEI INSTRUCTION - 6970 ;AFTER EXECUTING MOVEI, CONTROL SHOULD RETURN TO - 6971 ;THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING XCT. - 6972 ;THIS TEST PASSES IF CONTROL RETURNS TO THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING XCT - 6973 - 6974 034214 403 00 0 00 000001 C20400: SETZB 1 ;CLEAR AC0 AND AC1 - 6975 034215 256 00 0 00 034542 XCT [MOVEI 1,.+2] ;*XCT SHOULD RETURN CONTROL TO NEXT INSTRUCTION - 6976 034216 334 00 0 00 000000 SKIPA - 6977 STOP^ - 6978 034217 254 04 0 00 034220 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6979 034220 324 00 0 00 034221 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6980 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6981 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6982 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 6983 - 6984 ;********** - 6985 - 6986 ;THIS TEST VERIFIES THAT XCT WILL EXECUTE THE INSTRUCTION SPECIFIED BY C(E) - 6987 ;IN THIS CASE, C(E) SPECIFIES A MOVEI INSTRUCTION. - 6988 ;AFTER EXECUTING MOVEI, THE AC SPECIFIED BY MOVEI IS CHECKED FOR - 6989 ;0,,1 (THE EXPECTED RESULT). IF C(AC)=0,,1, THIS TEST PASSES - 6990 - 6991 034221 403 00 0 00 000001 C20500: SETZB 1 ;CLEAR AC - 6992 034222 256 00 0 00 034543 XCT [MOVEI 1,1] ;*XCT OF MOVEI SHOULD PLACE 1 IN THE AC - 6993 034223 302 01 0 00 000001 CAIE 1,1 ;PASS IF C(AC)=1 - 6994 STOP^ - 6995 034224 254 04 0 00 034225 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 6996 034225 324 00 0 00 034226 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 6997 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 6998 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 6999 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7000 - 7001 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 70 -DAKADM MAC 19-JAN-77 13:41 XCT INSTRUCTION - BASIC TESTS SEQ 0166 - - 7002 ;THIS TEST VERIFIES THAT A NEST OF XCT INSTRUCTIONS WILL EXECUTE - 7003 ;THE INSTRUCTION SPECIFIED BY THE MOST NESTED XCT AND RETURN CONTROL TO - 7004 ;THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING THE FIRST XCT. - 7005 ;IN THIS CASE, THE EXECUTED INSTRUCTION IS MOVEI. AFTER EXECUTING THE MOVEI, - 7006 ;C(AC) IS CHECKED FOR 0,,-1 (THE EXPECTED RESULT). IF C(AC)=0,,-1, THIS TEST PASSES - 7007 - 7008 034226 403 00 0 00 000001 C20600: SETZB 1 ;CLEAR AC - 7009 034227 256 00 0 00 034550 XCT [XCT[XCT[XCT[XCT[MOVEI 1,-1]]]]] ;*NESTED XCT OF MOVEI - 7010 ;SHOULD PLACE 0,,-1 INTO AC - 7011 034230 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(AC)=0,,-1 - 7012 STOP^ - 7013 034231 254 04 0 00 034232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7014 034232 324 00 0 00 034233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7015 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7016 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7017 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7018 - 7019 ;********** - 7020 - 7021 ;THIS TEST VERIFIES THAT XCT WILL NOT MODIFY AN AC WHICH IS NOT SPECIFIED BY THE - 7022 ;EXECUTED INSTRUCTION. IN THIS CASE, AC0 IS CLEARED AND THEN CHECKED FOR ZERO AFTER - 7023 ;THE XCT INSTRUCTION IS EXECUTED. AC0 SHOULD NOT BE MODIFIED. - 7024 - 7025 034233 403 00 0 00 000001 C20700: SETZB 1 ;CLEAR AC0,AC1 - 7026 034234 256 00 0 00 034551 XCT [MOVE 1,[-1]] ;*XCT SHOULD NOT MODIFY AC0 - 7027 034235 332 00 0 00 000000 SKIPE ;PASS IF AC0 WAS NOT MODIFIED - 7028 STOP^ - 7029 034236 254 04 0 00 034237 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7030 034237 324 00 0 00 034240 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7031 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7032 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7033 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7034 - 7035 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 71 -DAKADM MAC 19-JAN-77 13:41 XCT INSTRUCTION - BASIC TESTS SEQ 0167 - - 7036 ;THIS TEST VERIFIES THAT XCT OF SKIPA SHOULD RETURN CONTROL TO THE - 7037 ;SECOND SEQUENTIAL INSTRUCTION FOLLOWING XCT - 7038 - 7039 034240 256 00 0 00 034552 C21000: XCT [SKIPA] ;XCT OF SKIPA SHOULD RETURN CONTROL TO .+2 - 7040 STOP^ - 7041 034241 254 04 0 00 034242 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7042 034242 324 00 0 00 034243 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7043 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7044 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7045 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7046 - 7047 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 72 -DAKADM MAC 19-JAN-77 13:41 INDIRECT ADDRESSING - BASIC TESTS SEQ 0168 - - 7048 SUBTTL INDIRECT ADDRESSING - BASIC TESTS - 7049 - 7050 ;********** - 7051 - 7052 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E - 7053 ;ARE WITHIN THE AC RANGE. - 7054 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. - 7055 ;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 0, - 7056 ;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS - 7057 - 7058 034243 476 00 0 00 000001 C21100: SETOM 1 ;PRELOAD AC WITH -1,,-1 - 7059 034244 201 07 0 00 000003 MOVEI 7,3 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS - 7060 034245 402 00 0 00 000003 SETZM 3 ;PRELOAD INDIRECT ADDRESS WITH 0 - 7061 034246 200 01 1 00 000007 MOVE 1,@7 ;*FWT FROM INDIRECT ADDRESSS SHOULD - 7062 ;PLACE 0 INTO THE AC - 7063 034247 332 00 0 00 000001 SKIPE 1 ;PASS IF C(AC)=0 - 7064 STOP^ - 7065 034250 254 04 0 00 034251 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7066 034251 324 00 0 00 034252 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7067 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7068 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7069 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7070 - 7071 ;********** - 7072 - 7073 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E - 7074 ;ARE WITHIN THE AC RANGE. - 7075 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. - 7076 ;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR -1,,-1, - 7077 ;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS - 7078 - 7079 034252 402 00 0 00 000001 C21200: SETZM 1 ;PRELOAD AC WITH -1,,-1 - 7080 034253 201 07 0 00 000003 MOVEI 7,3 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS - 7081 034254 476 00 0 00 000003 SETOM 3 ;PRELOAD INDIRECT ADDRESS WITH -1,,-1 - 7082 034255 200 01 1 00 000007 MOVE 1,@7 ;*FWT FROM INDIRECT ADDRESS SHOULD - 7083 ;PLACE -1,,-1 INTO THE AC - 7084 034256 312 01 0 00 034466 CAME 1,[-1,,-1] ;PASS IF C(AC)=-1,,-1 - 7085 STOP^ - 7086 034257 254 04 0 00 034260 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7087 034260 324 00 0 00 034261 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7088 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7089 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7090 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7091 - 7092 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 73 -DAKADM MAC 19-JAN-77 13:41 INDIRECT ADDRESSING - BASIC TESTS SEQ 0169 - - 7093 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E - 7094 ;ARE WITHIN THE AC RANGE. - 7095 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. - 7096 ;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 707070,,707070, - 7097 ;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS - 7098 - 7099 034261 402 00 0 00 000001 C21300: SETZM 1 ;PRELOAD AC WITH 0 - 7100 034262 201 07 0 00 000003 MOVEI 7,3 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS - 7101 034263 200 03 0 00 034553 MOVE 3,[707070,,707070] ;PRELOAD INDIRECT ADDRESS WITH 707070,,707070 - 7102 034264 200 01 1 00 000007 MOVE 1,@7 ;*FWT FROM INDIRECT ADDRESS SHOULD - 7103 ;PLACE 707070,,707070 INTO THE AC - 7104 034265 312 01 0 00 034553 CAME 1,[707070,,707070] ;PASS IF C(AC)=707070,,707070 - 7105 STOP^ - 7106 034266 254 04 0 00 034267 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7107 034267 324 00 0 00 034270 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7108 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7109 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7110 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7111 - 7112 ;********** - 7113 - 7114 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN E IS WITHIN THE AC RANGE - 7115 ;AND @E IS BEYOND THE AC RANGE. - 7116 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. - 7117 ;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 707070,,707070, - 7118 ;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS - 7119 - 7120 034270 254 00 0 00 034272 C21400: JRST .+2 - 7121 034271 707070 707070 XWD 707070,707070 ;INDIRECT ADDRESS AND ITS DATA - 7122 034272 402 00 0 00 000001 SETZM 1 ;PRELOAD AC WITH 0 - 7123 034273 201 07 0 00 034271 MOVEI 7,C21400+1 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS - 7124 034274 200 01 1 00 000007 MOVE 1,@7 ;*FWT FROM INDIRECT ADDRESS SHOULD - 7125 ;PLACE 707070,,707070 INTO AC - 7126 034275 312 01 0 00 034271 CAME 1,C21400+1 ;PASS IF C(AC)=707070,,707070 - 7127 STOP^ - 7128 034276 254 04 0 00 034277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7129 034277 324 00 0 00 034300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7130 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7131 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7132 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7133 - 7134 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 74 -DAKADM MAC 19-JAN-77 13:41 INDIRECT ADDRESSING - BASIC TESTS SEQ 0170 - - 7135 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E - 7136 ;ARE BEYOND THE AC RANGE. - 7137 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. - 7138 ;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 202020,,202020, - 7139 ;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS - 7140 - 7141 034300 254 00 0 00 034303 C21500: JRST .+3 - 7142 034301 000000 034302 .+1 ;DIRECT ADDRESS AND ITS DATA - 7143 034302 202020 202020 XWD 202020,202020 ;INDIRECT ADDRESS AND ITS DATA - 7144 034303 402 00 0 00 000001 SETZM 1 ;PRELOAD AC WITH 0 - 7145 034304 200 01 1 00 034301 MOVE 1,@C21500+1 ;*FWT FROM INDIRECT ADDRESS SHOULD - 7146 ;PLACE 202020,,202020 INTO AC - 7147 034305 312 01 0 00 034302 CAME 1,C21500+2 ;PASS IF C(AC)=202020,,202020 - 7148 STOP^ - 7149 034306 254 04 0 00 034307 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7150 034307 324 00 0 00 034310 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7151 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7152 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7153 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7154 - 7155 ;********** - 7156 - 7157 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E - 7158 ;ARE BEYOND THE AC RANGE. - 7159 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A CAME. - 7160 - 7161 034310 254 00 0 00 034313 C21600: JRST .+3 - 7162 034311 000000 034312 .+1 ;DIRECT ADDRESS AND ITS DATA - 7163 034312 272727 272727 XWD 272727,272727 ;INDIRECT ADDRESS AND ITS DATA - 7164 034313 200 01 0 00 034312 MOVE 1,C21600+2 ;PRELOAD AC - 7165 034314 312 01 1 00 034311 CAME 1,@C21600+1 ;*CAME OF DATA FROM INDIRECT ADDRESS - NON-AC RANGE - 7166 STOP^ - 7167 034315 254 04 0 00 034316 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7168 034316 324 00 0 00 034317 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7169 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7170 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7171 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7172 - 7173 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 75 -DAKADM MAC 19-JAN-77 13:41 INDIRECT ADDRESSING - BASIC TESTS SEQ 0171 - - 7174 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN E IS WITHIN THE AC RANGE - 7175 ;AND @E IS BEYOND THE AC RANGE. - 7176 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A CAME. - 7177 - 7178 034317 254 00 0 00 034321 C21700: JRST .+2 - 7179 034320 252525 252525 XWD 252525,252525 ;INDIRECT ADDRESS AND ITS DATA - 7180 034321 201 07 0 00 034320 MOVEI 7,C21700+1 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS - 7181 034322 200 01 0 00 034320 MOVE 1,C21700+1 ;SETUP AC - 7182 034323 312 01 1 00 000007 CAME 1,@7 ;*CAME IF DATA FROM INDIRECT ADDRESS - AC RANGE - 7183 STOP^ - 7184 034324 254 04 0 00 034325 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7185 034325 324 00 0 00 034326 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7186 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7187 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7188 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7189 - 7190 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 76 -DAKADM MAC 19-JAN-77 13:41 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0172 - - 7191 SUBTTL TEST INDIRECT ADDRESSING WITH INDEXING - 7192 - 7193 ;SETUP INDEX REGISTERS - 7194 - 7195 034326 201 01 0 00 777774 MOVEI 1,-4 - 7196 034327 201 03 0 00 000002 MOVEI 3,2 - 7197 034330 201 04 0 00 000010 MOVEI 4,10 - 7198 034331 201 05 0 00 000001 MOVEI 5,1 - 7199 034332 201 06 0 00 000005 MOVEI 6,5 - 7200 034333 201 07 0 00 000007 MOVEI 7,7 - 7201 034334 201 10 0 00 000004 MOVEI 10,4 - 7202 034335 201 11 0 00 777772 MOVEI 11,-6 - 7203 034336 201 12 0 00 000005 MOVEI 12,5 - 7204 034337 201 13 0 00 000002 MOVEI 13,2 - 7205 - 7206 034340 254 00 0 00 034371 JRST C22000 ;RESUME TEST - 7207 - 7208 ;INDIRECT ADDRESSING/INDEXING TEST TABLE - 7209 - 7210 ;;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; - 7211 - 7212 ;DO NOT MODIFY THIS TABLE OR TESTS C21700 THRU C22600 INDEPENDENTLY ! - 7213 - 7214 ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; - 7215 - 7216 034341 000003 034344 E217: E217A(3) - 7217 034342 000020 034347 E220: @E220A - 7218 034343 220220 220220 E220B: 220220,,220220 - 7219 034344 000020 034351 E217A: @E221A ;E221-4 - 7220 034345 221221 221221 E221B: 221221,,221221 - 7221 034346 217217 217217 E222A: 217217,,217217 ;E217A+2 - 7222 034347 000000 034343 E220A: E220B - 7223 034350 000000 034350 E221: E221 - 7224 034351 000000 034345 E221A: E221B - 7225 034352 000000 034350 E222: E221 - 7226 034353 223223 223223 E223A: 223223,,223223 - 7227 034354 000004 034354 E224A: E224A(4) ;E223-6 - 7228 034355 222222 222222 222222,,222222 ;E222A+7 - 7229 034356 000000 034356 E225: E225 - 7230 034357 000007 034346 E222A(7) ;E222+5 - 7231 034360 000020 034363 @E225A ;E225+2 - 7232 034361 225225 225225 E225B: 225225,,225225 - 7233 034362 000000 034362 E223: E223 - 7234 034363 000000 034361 E225A: E225B - 7235 034364 224224 224224 224224,,224224 ;E224A+10 - 7236 034365 226226 226226 E226B: 226226,,226226 - 7237 034366 000000 034353 E223A ;E223+4 - 7238 034367 000025 034367 E226A: @E226A(5) ;E223+5 - 7239 034370 000000 034365 E226B ;E226A+1 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 77 -DAKADM MAC 19-JAN-77 13:41 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0173 - - 7240 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT - 7241 LY. - 7242 ;IN THIS CASE, MOVE 2,@E217 IS TESTED WHERE C(E217)=E217A(3) AND C(3)=0,,2. - 7243 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E217A+2)=217217,,217217 - 7244 - 7245 034371 476 00 0 00 000002 C22000: SETOM 2 ;INITIALIZE AC - 7246 034372 200 02 1 00 034341 MOVE 2,@E217 ;TEST INDIRECT ADDRESSING WITH INDEXING - 7247 034373 312 02 0 00 034346 CAME 2,E217A+2 ;PASS IF C(AC)=217217,,217217 - 7248 STOP^ - 7249 034374 254 04 0 00 034375 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7250 034375 324 00 0 00 034376 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7251 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7252 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7253 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7254 - 7255 ;********** - 7256 - 7257 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT - 7258 LY. - 7259 ;IN THIS CASE, MOVE 2,@E220 IS TESTED WHERE C(E220)=@E220A AND C(E220A)=E220B. - 7260 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E220B)=220220,,220220 - 7261 - 7262 034376 402 00 0 00 000002 C22100: SETZM 2 ;INITIALIZE AC - 7263 034377 200 02 1 00 034342 MOVE 2,@E220 ;TEST INDIRECT ADDRESSING WITH INDEXING - 7264 034400 312 02 0 00 034343 CAME 2,E220B ;PASS IF C(AC)=220220,,220220 - 7265 STOP^ - 7266 034401 254 04 0 00 034402 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7267 034402 324 00 0 00 034403 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7268 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7269 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7270 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7271 - 7272 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 78 -DAKADM MAC 19-JAN-77 13:41 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0174 - - 7273 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT - 7274 LY. - 7275 ;IN THIS CASE,E221(1) 2,@E217 IS TESTED WHERE C(1)=-4 AND E221-4=E217A - 7276 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E217A)=@E221A=20,,E221A - 7277 - 7278 034403 476 00 0 00 000002 C22200: SETOM 2 ;INITIALIZE AC - 7279 034404 200 02 0 01 034350 MOVE 2,E221(1) ;TEST INDIRECT ADDRESSING WITH INDEXING - 7280 034405 312 02 0 00 034344 CAME 2,E217A ;PASS IF C(AC)=@E221A=20,,E221A - 7281 STOP^ - 7282 034406 254 04 0 00 034407 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7283 034407 324 00 0 00 034410 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7284 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7285 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7286 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7287 - 7288 ;********** - 7289 - 7290 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT - 7291 LY. - 7292 ;IN THIS CASE, MOVE 2,E222(6) IS TESTED WHERE C(6)=5 - 7293 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E222+5)=E222A(7)=7,,E222A - 7294 - 7295 034410 402 00 0 00 000002 C22300: SETZM 2 ;INITIALIZE AC - 7296 034411 200 02 0 06 034352 MOVE 2,E222(6) ;TEST INDIRECT ADDRESSING WITH INDEXING - 7297 034412 312 02 0 00 034357 CAME 2,E222+5 ;PASS IF C(AC)=E222A(7)=7,,E222A - 7298 STOP^ - 7299 034413 254 04 0 00 034414 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7300 034414 324 00 0 00 034415 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7301 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7302 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7303 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7304 - 7305 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 79 -DAKADM MAC 19-JAN-77 13:41 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0175 - - 7306 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT - 7307 LY. - 7308 ;IN THIS CASE, MOVE 2,@E223(10) IS TESTED WHERE C(10)=4 AND C(E223+4)=E223A - 7309 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E223A)=223223,,223223 - 7310 - 7311 034415 476 00 0 00 000002 C22400: SETOM 2 ;INITIALIZE AC - 7312 034416 200 02 1 10 034362 MOVE 2,@E223(10) ;TEST INDIRECT ADDRESSING WITH INDEXING - 7313 034417 312 02 0 00 034353 CAME 2,E223A ;PASS IF C(AC)=223223,,223223 - 7314 STOP^ - 7315 034420 254 04 0 00 034421 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7316 034421 324 00 0 00 034422 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7317 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7318 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7319 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7320 - 7321 ;********** - 7322 - 7323 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT - 7324 LY. - 7325 ;IN THIS CASE, MOVE 2,@E223(11) IS TESTED WHERE C(11)=-6, C(E223-6)=E224A(4) AND C(4)=10 - 7326 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E224A+10)=224224,,224224 - 7327 - 7328 034422 402 00 0 00 000002 C22500: SETZM 2 ;INITIALIZE AC - 7329 034423 200 02 1 11 034362 MOVE 2,@E223(11) ;TEST INDIRECT ADDRESSING WITH INDEXING - 7330 034424 312 02 0 00 034364 CAME 2,E224A+10 ;PASS IF C(AC)=224224,,224224 - 7331 STOP^ - 7332 034425 254 04 0 00 034426 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7333 034426 324 00 0 00 034427 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7334 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7335 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7336 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7337 - 7338 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 80 -DAKADM MAC 19-JAN-77 13:41 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0176 - - 7339 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT - 7340 LY. - 7341 ;IN THIS CASE, MOVE 2,@E225(13) IS TESTED WHERE C(13)=2, C(E225+2)=@E225A - 7342 ;AND C(E225A)=E225B - 7343 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E225B)=225225,,225225 - 7344 - 7345 034427 476 00 0 00 000002 C22600: SETOM 2 ;INITIALIZE AC - 7346 034430 200 02 1 13 034356 MOVE 2,@E225(13) ;TEST INDIRECT ADDRESSING WITH INDEXING - 7347 034431 312 02 0 00 034361 CAME 2,E225B ;PASS IF C(AC)=225225,,225225 - 7348 STOP^ - 7349 034432 254 04 0 00 034433 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7350 034433 324 00 0 00 034434 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7351 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7352 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7353 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7354 - 7355 ;********** - 7356 - 7357 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT - 7358 LY. - 7359 ;IN THIS CASE, MOVE 2,@E223(12) IS TESTED WHERE C(12)=5, C(E223+5)=@E226A(5), - 7360 ;C(5)=1 AND C(E226A+1)=E226B - 7361 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E226B)=226226,,226226 - 7362 - 7363 034434 402 00 0 00 000002 C22700: SETZM 2 ;INITIALIZE AC - 7364 034435 200 02 1 12 034362 MOVE 2,@E223(12) ;TEST INDIRECT ADDRESSING WITH INDEXING - 7365 034436 312 02 0 00 034365 CAME 2,E226B ;PASS IF C(AC)=226226,,226226 - 7366 STOP^ - 7367 034437 254 04 0 00 034440 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - 7368 034440 324 00 0 00 034441 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - 7369 ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - 7370 ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - 7371 ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^ - 7372 - 7373 ;********** -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 81 -DAKADM MAC 19-JAN-77 13:41 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0177 - - 7374 - 7375 034441 254 00 0 00 030057 JRST BEGEND - 7376 SUBTTL *STOR* RESERVED STORAGE, JAN 18,1977 - 7377 - 7378 ;PROGRAM LITERALS - 7379 - 7380 XLIST - 7381 IFNDEF $LPAPER, - 7382 034442 LIT - 7383 034442 000001 000001 - 7384 034443 254 00 0 00 030741 - 7385 034444 000001 000000 - 7386 034445 000002 000000 - 7387 034446 000004 000000 - 7388 034447 000010 000000 - 7389 034450 000020 000000 - 7390 034451 000040 000000 - 7391 034452 000100 000000 - 7392 034453 000200 000000 - 7393 034454 000400 000000 - 7394 034455 001000 000000 - 7395 034456 002000 000000 - 7396 034457 004000 000000 - 7397 034460 010000 000000 - 7398 034461 020000 000000 - 7399 034462 040000 000000 - 7400 034463 100000 000000 - 7401 034464 200000 000000 - 7402 034465 400000 000000 - 7403 034466 777777 777777 - 7404 034467 777777 777776 - 7405 034470 777777 777775 - 7406 034471 777777 777773 - 7407 034472 777777 777767 - 7408 034473 777777 777757 - 7409 034474 777777 777737 - 7410 034475 777777 777677 - 7411 034476 777777 777577 - 7412 034477 777777 777377 - 7413 034500 777777 776777 - 7414 034501 777777 775777 - 7415 034502 777777 773777 - 7416 034503 777777 767777 - 7417 034504 777777 757777 - 7418 034505 777777 737777 - 7419 034506 777777 677777 - 7420 034507 777777 577777 - 7421 034510 777777 377777 - 7422 034511 777776 777777 - 7423 034512 777775 777777 - 7424 034513 777773 777777 - 7425 034514 777767 777777 - 7426 034515 777757 777777 - 7427 034516 777737 777777 - 7428 034517 777677 777777 -DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2 MACRO %52(537) 14:33 19-JAN-77 PAGE 1 -STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0178 - - 7429 034520 777577 777777 - 7430 034521 777377 777777 - 7431 034522 776777 777777 - 7432 034523 775777 777777 - 7433 034524 773777 777777 - 7434 034525 767777 777777 - 7435 034526 757777 777777 - 7436 034527 737777 777777 - 7437 034530 677777 777777 - 7438 034531 577777 777777 - 7439 034532 377777 777777 - 7440 034533 777777 000000 - 7441 034534 000000 777777 - 7442 034535 252525 252525 - 7443 034536 000000 000000 - 7444 034537 254 04 0 00 032743 - 7445 034540 377777 377777 - 7446 034541 400000 400000 - 7447 034542 201 01 0 00 034217 - 7448 034543 201 01 0 00 000001 - 7449 034544 201 01 0 00 777777 - 7450 034545 256 00 0 00 034544 - 7451 034546 256 00 0 00 034545 - 7452 034547 256 00 0 00 034546 - 7453 034550 256 00 0 00 034547 - 7454 034551 200 01 0 00 034466 - 7455 034552 334 00 0 00 000000 - 7456 034553 707070 707070 - 7457 LIST - 7458 034554 000000 000000 ENDSLD: 0 - 7459 - 7460 IFDEF DEBUG,< - 7461 034555 PATCH: BLOCK DEBUG ;PATCHING AREA - 7462 > - 7463 - 7464 ;PROGRAM VARIABLES - 7465 034655 VAR - 7466 - 7467 IFDEF PGMEND,< - 7468 034655 000000 000000 END: 0 - 7469 030000 END BEGIN > - -NO ERRORS DETECTED - -PROGRAM BREAK IS 000000 -ABSLUTE BREAK IS 034656 -CPU TIME USED 00:28.911 - -11K CORE USED - -ABORT 77# -AC 6566# 6567 6572 6573 6575 6576 6578 6579 6581 6582 6584 6585 6587 6588 SEQ 0179 - 6590 6591 6593 6594 6596 6597 6599 6600 6601 -AC0 672# -ALTMGO 431# -ANXM 345# -APR 769 770 771 -AROV 345# 844# 5503 5710 5714 -AROVU 345# -AST 546# -ATSIN 547# -BEGEND 427# 7375 -BEGIN 291 292 358# 715 837 7469 -BEGIN1 374# 428 -BELL 550# -BIS 345# 848# -C00 882 907# -C100 924# -C1000 2026# -C10000 5729# -C10100 5752# -C10200 5774# -C10300 5797# -C10400 5816# -C10500 5833# -C1100 2383# -C11200 5850# -C11300 5866# -C11400 5881# -C11500 5897# -C11600 5911# -C11700 5926# -C1200 2400# -C12000 5942# -C12100 5960# -C12200 6000# -C12300 6018# -C12301 6059# -C12600 6101# -C12700 6117# -C1300 2873# -C13100 6132# -C13200 6148# -C13300 6164# -C13400 6205# -C13600 6248# -C13700 6269# -C1400 3349# -C14000 6289# -C14100 6314# -C14200 6334# -C14500 6362# -C14600 6377# -C14700 6393# -C1500 3366# SEQ 0180 -C15000 6407# -C15100 6422# -C15200 6438# -C15300 6453# -C15400 6468# -C15500 6487# -C15600 6503# -C15700 6519# -C1600 3839# -C16000 6534# -C16100 6550# -C16200 6566# -C16201 6615# -C16202 6656# -C16400 6699# -C16500 6715# -C16600 6730# -C16700 6746# -C1700 4322# -C17000 6763# -C17100 6787# -C17200 6803# -C17300 6820# -C17400 6835# -C17500 6852# -C17600 6869# -C17700 6886# -C200 941# -C2000 4569# -C20000 6902# -C20100 6919# -C20200 6934# -C20300 6951# -C20400 6974# -C20500 6991# -C20600 7008# -C20700 7025# -C2100 4814# -C21000 7039# -C21100 7058# -C21200 7079# -C21300 7099# -C21400 7120# 7123 7126 -C21500 7141# 7145 7147 -C21600 7161# 7164 7165 -C21700 7178# 7180 7181 -C2200 4831# -C22000 7206 7245# -C22100 7262# -C22200 7278# -C22300 7295# -C22400 7311# -C22500 7328# SEQ 0181 -C22600 7345# -C22700 7363# -C2400 4848# -C2410 4858# -C2700 4874# -C2710 4884# -C300 956# -C3000 4899# -C3100 4924# -C3110 4942# -C3200 4957# -C3210 4967# -C3300 4983# -C3400 5000# -C3500 5018# -C3600 5037# -C3700 5054# -C400 972# -C4000 5071# -C4100 5090# -C4200 5107# -C4300 5126# -C4400 5145# -C4500 5162# -C4600 5178# -C4700 5194# -C500 990# -C5000 5212# -C5100 5229# -C5200 5246# -C5300 5264# -C5400 5282# -C5500 5300# -C5600 5320# -C5700 5339# -C5701 5357# -C5702 5374# -C600 1354# -C6000 5395# -C6100 5413# -C6200 5431# -C6300 5453# -C6400 5477# -C6500 5501# -C6600 5521# -C6700 5542# -C700 1724# -C7000 5560# -C7100 5582# -C7200 5605# -C7300 5630# -C7400 5652# -C7500 5671# SEQ 0182 -C7600 5687# -C7700 5707# -CCA 345# -CHAIN 97# -CHNOFF 345# -CHNON 345# -CLK 345# -CLKCLR 345# -CLKDIS 345# -CLKENB 345# -CLKU 345# -CLOCKF 413# -CNTLC 430# -COMMA 539# -CONSW 414# -CPOPJ 434# -CPOPJ1 432# -CRLF 226 227 534# -CRLF2 230 231 536# -CRY0 345# 845# 5434 5584 5732 5736 -CRY1 345# 846# 5523 5755 5759 -CSHFLG 593# -CSHMEM 594# -CYCL60 587# -DCK 345# 852# 6316 6320 6336 6345 -DDT 674# -DDTLNK 111# 372 -DDTSRT 372# -DEBUG 36# 7460 7461 -DECVER 5# 11 27 393 -DF22F 498# -DIAGMN 361# -DIAGNO 673# -DIAMON 675# -DING 83# -DOLLAR 553# -DONG11 676# 816 832 -DSKUPD 398 -DTE 680# 816 818 832 834 -DTE0 681# -DTE1 682# -DTE2 683# -DTE3 684# -E217 7216# 7246 -E217A 7216 7219# 7247 7280 -E220 7217# 7263 -E220A 7217 7222# -E220B 7218# 7222 7264 -E221 7223# 7223 7225 7279 -E221A 7219 7224# -E221B 7220# 7224 -E222 7225# 7296 7297 -E222A 7221# 7230 SEQ 0183 -E223 7233# 7233 7312 7329 7364 -E223A 7226# 7237 7313 -E224A 7227# 7227 7330 -E225 7229# 7229 7346 -E225A 7231 7234# -E225B 7232# 7234 7347 -E226A 7238# 7238 -E226B 7236# 7239 7365 -END 7468# -ENDFIX 667# -ENDSLD 7458# -ERMORE 447# -ERRPC 418# -ERRTLS 419# -ERSTOP 86# -EXCASB 33# 396 -EXIOT 345# 850# -FOV 345# 847# 5544 5562 5607 5777 5781 6250 -FOVU 345# -FRDLNK 109# -FSELNK 108# -FXU 345# 851# 6271 6275 6291 6300 -HYPEN 544# -INHCSH 94# -INHPAG 91# -INXM 345# -IOCLR 345# -ITERAT 65# 391 -ITRCH1 451# -ITRCNT 391# 761 790 794 802 803 807 -JOB41 345# -JOBAPR 345# -JOBCNI 345# -JOBDDT 345# -JOBFF 345# -JOBOPC 345# -JOBREL 345# -JOBREN 345# -JOBSA 345# -JOBSYM 345# -JOBTPC 345# -JOBUSY 345# -JOBUUO 345# -JOBVER 345# -KA10 345 -KAHZ50 99# -KAIFLG 408# -KI10 345 -KL10 345 -KLFLG 409# 763 781 800 -KLOLD 306 -KLTYP 625# 762 773 815 817 831 833 -LDLNK 110# 361 363 SEQ 0184 -LFP 548# -LOOPER 85# -LUUO 345# -LUUO1 478 479 -LUUO10 478 483 -LUUO11 478 483 -LUUO12 478 484 -LUUO13 478 484 -LUUO14 478 485 -LUUO15 478 485 -LUUO16 478 486 -LUUO17 478 486 -LUUO2 478 480 -LUUO20 478 487 -LUUO21 478 487 -LUUO22 478 488 -LUUO23 478 488 -LUUO24 478 489 -LUUO25 478 489 -LUUO26 478 490 -LUUO27 478 490 -LUUO3 478 480 -LUUO30 478 491 -LUUO31 478 491 -LUUO32 478 492 -LUUO33 478 492 -LUUO4 478 481 -LUUO5 478 481 -LUUO6 478 482 -LUUO7 478 482 -LUUOI 345# -MAPNEW 499# -MARGIN 421# -MCNVER 6# 11 27 393 -MEMLOW 501# -MEMMAP 399 -MEMSIZ 502# -MEMTOT 500# -MINUS 543# -MODDVC 93# -MODDVL 291 291# 394 -MODDVU 292 292# 395 -MODLNK 112# 358 -MONCTL 411# 810 883 -MONFLG 410# 755 879 -MONTEN 412# 760 796 825 -MPVU 345# -NOPNT 81# -NXMU 345# -OPRSEL 95# -OPTIME 513# -P 138 139 140 141 345# 433 -PAG 345# SEQ 0185 -PALERS 87# -PARCLR 345# -PARDIS 345# -PAREA0 58# -PAREA1 59# 389 -PAREA2 60# 390 -PAREA3 61# 387 -PAREA4 62# 388 -PAREA5 63# 400 -PAREA6 64# 401 -PAREA7 400# -PAREA8 401# -PARENB 345# -PARU 345# -PASCNT 415# 789 -PATCH 7461# -PDISF 510# -PDLOVU 345# -PERIOD 540# -PFSTRT 367# -PGMEND 35# 66# 7467 -PGMNAM 392 884 887# -PI 802 -PICHN1 345# -PICHN2 345# -PICHN3 345# -PICHN4 345# -PICHN5 345# -PICHN6 345# -PICHN7 345# -PICHNA 345# -PICLR 345# -PIOFF 345# -PION 345# -PLIST 579# 579 -PLISTE 579 581# 665 -PLISTS 580# -PLUS 545# -PNTENB 509# -PNTEXT 388# -PNTFLG 508# -PNTINH 511# -PNTLPT 82# -PNTNAM 387# -PNTSPC 512# -PVPAGI 606# -PWFCLR 345# -QUEST 551# -RADIX 554# -RADLSC 556# -RADLSP 555# -RANDBS 389# -REENTR 369# SEQ 0186 -RELIAB 89# -REPT 345# -REPT1 345# -REPTU 467# -REQSET 345# -RESRT1 444# -RESRT2 445# -RETURN 376# 798 805 826 -RSTART 78# -RTP 549# -RUNFLG 416# -SADR1 46# 365 -SADR10 55# 381 -SADR11 56# 382 -SADR2 47# 367 -SADR3 48# 369 -SADR4 49# -SADR5 50# 430 -SADR6 51# 431 -SADR7 52# 378 -SADR8 53# 379 -SADR9 54# 380 -SBINIT 151 375# -SCOPE 468# -SFSTRT 365# -SLASH 552# -SN 982# 1048 1048# 1067 1067# 1086 1086# 1105 1105# 1124 1124# 1143 1143# 1162 - 1162# 1181 1181# 1200 1200# 1219 1219# 1238 1238# 1257 1257# 1276 1276# 1295 - 1295# 1314 1314# 1333 1333# 1346# 1428 1428# 1448 1448# 1468 1468# 1488 1488# - 1508 1508# 1528 1528# 1548 1548# 1568 1568# 1588 1588# 1608 1608# 1628 1628# - 1648 1648# 1668 1668# 1688 1688# 1708 1708# 1721# 1744 1744# 1763 1763# 1782 - 1782# 1801 1801# 1820 1820# 1839 1839# 1858 1858# 1877 1877# 1896 1896# 1915 - 1915# 1934 1934# 1953 1953# 1972 1972# 1991 1991# 2010 2010# 2023# 2051 2051# - 2073 2073# 2095 2095# 2117 2117# 2139 2139# 2161 2161# 2183 2183# 2205 2205# - 2227 2227# 2249 2249# 2271 2271# 2293 2293# 2315 2315# 2337 2337# 2359 2359# - 2397# 2428 2428# 2453 2453# 2478 2478# 2503 2503# 2528 2528# 2553 2553# 2578 - 2578# 2603 2603# 2628 2628# 2653 2653# 2678 2678# 2703 2703# 2728 2728# 2753 - 2753# 2778 2778# 2803 2803# 2828 2828# 2853 2853# 2870# 2901 2901# 2926 2926# - 2951 2951# 2976 2976# 3001 3001# 3026 3026# 3051 3051# 3076 3076# 3101 3101# - 3126 3126# 3151 3151# 3176 3176# 3201 3201# 3226 3226# 3251 3251# 3276 3276# - 3301 3301# 3326 3326# 3363# 3394 3394# 3419 3419# 3444 3444# 3469 3469# 3494 - 3494# 3519 3519# 3544 3544# 3569 3569# 3594 3594# 3619 3619# 3644 3644# 3669 - 3669# 3694 3694# 3719 3719# 3744 3744# 3769 3769# 3794 3794# 3819 3819# 3836# - 3867 3867# 3892 3892# 3917 3917# 3942 3942# 3967 3967# 3992 3992# 4017 4017# - 4042 4042# 4067 4067# 4092 4092# 4117 4117# 4142 4142# 4167 4167# 4192 4192# - 4217 4217# 4242 4242# 4267 4267# 4292 4292# 4311# 4333 4333# 4348 4348# 4363 - 4363# 4378 4378# 4393 4393# 4408 4408# 4423 4423# 4438 4438# 4453 4453# 4468 - 4468# 4483 4483# 4498 4498# 4513 4513# 4528 4528# 4543 4543# 4559# 4580 4580# - 4595 4595# 4610 4610# 4625 4625# 4640 4640# 4655 4655# 4670 4670# 4685 4685# - 4700 4700# 4715 4715# 4730 4730# 4745 4745# 4760 4760# 4775 4775# 4790 4790# -SPACE 541# -SRTDDT 371# -START 46 47 48 49 50 51 52 53 54 55 56 359 758 767 SEQ 0187 - 782 786 875# -START1 378# -START2 379# -START3 380# -START4 381# -START5 382# -STARTA 374 784 795 804 811 821 885 906# -SUBLNK 113# 375 -SWTEXR 390# -SYSEXR 363# -TAB 542# -TESTPC 417# -TICKS 420# -TOTALS 79# -TTNBRF 600# -TTYFIL 516# -TTYSPD 517# -TXTINH 90# -USER 407# 751 754 756 757 791 875# 875 878 880 881 -USERF 39# 345# 753 849# 877 -USRASB 34# 397 -USRCRF 526# -USRLFF 525# -UUODIS 479# -UUOEXT 435# -UUORTN 436# -UUOSKP 433# -XX 4313# 4335 4335# 4336 4338 4350 4350# 4351 4353 4365 4365# 4366 4368 4380 - 4380# 4381 4383 4395 4395# 4396 4398 4410 4410# 4411 4413 4425 4425# 4426 - 4428 4440 4440# 4441 4443 4455 4455# 4456 4458 4470 4470# 4471 4473 4485 - 4485# 4486 4488 4500 4500# 4501 4503 4515 4515# 4516 4518 4530 4530# 4531 - 4533 4545 4545# 4546 4548 4561# 4582 4582# 4583 4584 4597 4597# 4598 4599 - 4612 4612# 4613 4614 4627 4627# 4628 4629 4642 4642# 4643 4644 4657 4657# - 4658 4659 4672 4672# 4673 4674 4687 4687# 4688 4689 4702 4702# 4703 4704 - 4717 4717# 4718 4719 4732 4732# 4733 4734 4747 4747# 4748 4749 4762 4762# - 4763 4764 4777 4777# 4778 4779 4792 4792# 4793 4794 -ZZ 983# 993 993# 994 995 995# 996 997 997# 998 999 999# 1000 1001 - 1001# 1002 1003 1003# 1004 1005 1005# 1006 1007 1007# 1008 1009 1009# 1010 - 1011 1011# 1012 1013 1013# 1014 1015 1015# 1016 1017 1017# 1018 1019 1019# - 1020 1021 1021# 1022 1023 1023# 1024 1026# 1049 1049# 1050 1068 1068# 1069 - 1087 1087# 1088 1106 1106# 1107 1125 1125# 1126 1144 1144# 1145 1163 1163# - 1164 1182 1182# 1183 1201 1201# 1202 1220 1220# 1221 1239 1239# 1240 1258 - 1258# 1259 1277 1277# 1278 1296 1296# 1297 1315 1315# 1316 1334 1334# 1335 - 1347# 1358 1358# 1359 1360 1361 1361# 1362 1363 1364 1364# 1365 1366 1367 - 1367# 1368 1369 1370 1370# 1371 1372 1373 1373# 1374 1375 1376 1376# 1377 - 1378 1379 1379# 1380 1381 1382 1382# 1383 1384 1385 1385# 1386 1387 1388 - 1388# 1389 1390 1391 1391# 1392 1393 1394 1394# 1395 1396 1397 1397# 1398 - 1399 1400 1400# 1401 1402 1404# 1429 1429# 1430 1449 1449# 1450 1469 1469# - 1470 1489 1489# 1490 1509 1509# 1510 1529 1529# 1530 1549 1549# 1550 1569 - 1569# 1570 1589 1589# 1590 1609 1609# 1610 1629 1629# 1630 1649 1649# 1650 - 1669 1669# 1670 1689 1689# 1690 1709 1709# 1710 1722# 1745 1745# 1746 1747 - 1764 1764# 1765 1766 1783 1783# 1784 1785 1802 1802# 1803 1804 1821 1821# - 1822 1823 1840 1840# 1841 1842 1859 1859# 1860 1861 1878 1878# 1879 1880 SEQ 0188 - 1897 1897# 1898 1899 1916 1916# 1917 1918 1935 1935# 1936 1937 1954 1954# - 1955 1956 1973 1973# 1974 1975 1992 1992# 1993 1994 2011 2011# 2012 2013 - 2024# 2052 2052# 2053 2054 2055 2074 2074# 2075 2076 2077 2096 2096# 2097 - 2098 2099 2118 2118# 2119 2120 2121 2140 2140# 2141 2142 2143 2162 2162# - 2163 2164 2165 2184 2184# 2185 2186 2187 2206 2206# 2207 2208 2209 2228 - 2228# 2229 2230 2231 2250 2250# 2251 2252 2253 2272 2272# 2273 2274 2275 - 2294 2294# 2295 2296 2297 2316 2316# 2317 2318 2319 2338 2338# 2339 2340 - 2341 2360 2360# 2361 2362 2363 2398# 2429 2429# 2430 2430# 2432 2435 2454 - 2454# 2455 2457 2460 2479 2479# 2480 2482 2485 2504 2504# 2505 2507 2510 - 2529 2529# 2530 2532 2535 2554 2554# 2555 2557 2560 2579 2579# 2580 2582 - 2585 2604 2604# 2605 2607 2610 2629 2629# 2630 2632 2635 2654 2654# 2655 - 2657 2660 2679 2679# 2680 2682 2685 2704 2704# 2705 2707 2710 2729 2729# - 2730 2732 2735 2754 2754# 2755 2757 2760 2779 2779# 2780 2782 2785 2804 - 2804# 2805 2807 2810 2829 2829# 2830 2832 2835 2854 2854# 2855 2857 2860 - 2871# 2902 2902# 2903 2903# 2905 2908 2927 2927# 2928 2930 2933 2952 2952# - 2953 2955 2958 2977 2977# 2978 2980 2983 3002 3002# 3003 3005 3008 3027 - 3027# 3028 3030 3033 3052 3052# 3053 3055 3058 3077 3077# 3078 3080 3083 - 3102 3102# 3103 3105 3108 3127 3127# 3128 3130 3133 3152 3152# 3153 3155 - 3158 3177 3177# 3178 3180 3183 3202 3202# 3203 3205 3208 3227 3227# 3228 - 3230 3233 3252 3252# 3253 3255 3258 3277 3277# 3278 3280 3283 3302 3302# - 3303 3305 3308 3327 3327# 3328 3330 3333 3364# 3395 3395# 3396 3396# 3398 - 3401 3420 3420# 3421 3423 3426 3445 3445# 3446 3448 3451 3470 3470# 3471 - 3473 3476 3495 3495# 3496 3498 3501 3520 3520# 3521 3523 3526 3545 3545# - 3546 3548 3551 3570 3570# 3571 3573 3576 3595 3595# 3596 3598 3601 3620 - 3620# 3621 3623 3626 3645 3645# 3646 3648 3651 3670 3670# 3671 3673 3676 - 3695 3695# 3696 3698 3701 3720 3720# 3721 3723 3726 3745 3745# 3746 3748 - 3751 3770 3770# 3771 3773 3776 3795 3795# 3796 3798 3801 3820 3820# 3821 - 3823 3826 3837# 3868 3868# 3869 3869# 3871 3874 3893 3893# 3894 3896 3899 - 3918 3918# 3919 3921 3924 3943 3943# 3944 3946 3949 3968 3968# 3969 3971 - 3974 3993 3993# 3994 3996 3999 4018 4018# 4019 4021 4024 4043 4043# 4044 - 4046 4049 4068 4068# 4069 4071 4074 4093 4093# 4094 4096 4099 4118 4118# - 4119 4121 4124 4143 4143# 4144 4146 4149 4168 4168# 4169 4171 4174 4193 - 4193# 4194 4196 4199 4218 4218# 4219 4221 4224 4243 4243# 4244 4246 4249 - 4268 4268# 4269 4271 4274 4293 4293# 4294 4296 4299 4312# 4334 4334# 4336 - 4337 4338 4349 4349# 4351 4352 4353 4364 4364# 4366 4367 4368 4379 4379# - 4381 4382 4383 4394 4394# 4396 4397 4398 4409 4409# 4411 4412 4413 4424 - 4424# 4426 4427 4428 4439 4439# 4441 4442 4443 4454 4454# 4456 4457 4458 - 4469 4469# 4471 4472 4473 4484 4484# 4486 4487 4488 4499 4499# 4501 4502 - 4503 4514 4514# 4516 4517 4518 4529 4529# 4531 4532 4533 4544 4544# 4546 - 4547 4548 4560# 4581 4581# 4583 4584 4585 4596 4596# 4598 4599 4600 4611 - 4611# 4613 4614 4615 4626 4626# 4628 4629 4630 4641 4641# 4643 4644 4645 - 4656 4656# 4658 4659 4660 4671 4671# 4673 4674 4675 4686 4686# 4688 4689 - 4690 4701 4701# 4703 4704 4705 4716 4716# 4718 4719 4720 4731 4731# 4733 - 4734 4735 4746 4746# 4748 4749 4750 4761 4761# 4763 4764 4765 4776 4776# - 4778 4779 4780 4791 4791# 4793 4794 4795 -$$420 725# -$$421 726# -$$422 727# -$$423 728# -$$424 729# -$$425 730# -$$426 731# -$$427 732# SEQ 0189 -$$430 733# -$$431 734# -$$432 735# -$$433 736# -$$434 737# -$$435 738# -$$436 739# -$$437 740# -$$500 743# -$$501 744# -$$502 745# -$$503 746# -$$BEGI 711# -$$DTE0 777 816# -$$DTE1 778 818# -$$DTE2 779 832# -$$DTE3 780 834# -$$LOC 708# 747 -$$MUUO 631# -$$OUTE 637# -$$STAR 711 712 751# -$$TAX1 649# -$$TAX2 650# -$$TOGG 643# -$$UUO 620# -$ACC0 458# -$BEGEN 720# -$BEND1 428# -$BEND2 429# -$CHRIN 519# -$CRLF 521# -$DDT 689# -$DEVCH 345# -$DSKUP 398# -$DTCHR 701# -$DTCI 695# -$DTCLK 694# 775 -$DTCMD 698# 813 829 -$DTF11 697# -$DTFLG 693# 774 814 819 830 835 -$DTMTD 702# -$DTMTI 703# -$DTOPR 700# 776 -$DTSEQ 699# -$DTSWR 705# -$DTT11 696# -$DVCH1 345# -$DVOFF 515# -$EMODE 396# -$ENDFX 665# 666 -$FFF 523# -$IBUF 571# -$INEXT 573# SEQ 0190 -$INNM 572# -$ITRHL 439# -$ITRX1 440# -$LPAPE 7381 -$MMAP 399# -$MODVL 394# -$MODVU 395# -$OBUF 562# -$ONETM 422# -$OUTEX 564# -$OUTNM 563# -$PAPER 345 -$PARER 446# -$PNAME 392# -$PSHER 450# -$PVER 393# -$RSRTX 442# -$RSRTY 443# -$SPAG1 462# -$SPB1 785 791# -$SPBEN 720 789# -$SPBEX 792 800# -$SPBKL 801 807# -$SPBUS 794# -$SPEC 717 784# -$SPKLD 808 825# -$START 359# -$STD 688# 715# -$STKIL 760# -$STKL 769# -$STL 690# -$STM 691# 717# -$SVAPR 460# -$SVPAG 461# -$SVPI 459# -$SVUPC 465# -$SVUUO 464# -$TABF 522# -$TTCHR 518# -$TWCNT 514# -$TYPNB 520# -$UMODE 397# -$UORTX 437# -$USRHL 441# -$UUOER 438# 479 -$VTF 524# -%ACTFL 471# -%ACTUL 472# -%COREC 470# -%CORFL 469# -%DISCR 473# -%ERHI1 612# -%ERHI2 613# SEQ 0191 -%ERHI3 614# -.JB41 345# -.JBAPR 345# -.JBCNI 345# -.JBDDT 345# -.JBFF 345# -.JBOPC 345# -.JBREL 345# -.JBREN 345# -.JBSA 345# -.JBSYM 345# -.JBTPC 345# -.JBUSY 345# -.JBUUO 345# -.JBVER 345# -CFLUSH 262# -CINVAL 261# SEQ 0192 -CLOKOP 256# -CWRTBI 263# -DROPDV 223# -ENDUUO 269# 427 -EOPUUO 270# 429 -ERLOOP 314# -ERLP1 315# -ERLP2 316# -ERRHLT 158# -ERROR 323# -ERROR1 335# -ERUUO 313# -EXIT 797 -FATAL 157# -FRD36 298# -FRD8 299# -FREAD 297# -FSELEC 296# -GET 141# -GO 138# -HALT 143# 448 725 727 728 732 746 837 928 944 959 975 1052 1071 - 1090 1109 1128 1147 1166 1185 1204 1223 1242 1261 1280 1299 1318 1337 - 1432 1452 1472 1492 1512 1532 1552 1572 1592 1612 1632 1652 1672 1692 - 1712 1749 1768 1787 1806 1825 1844 1863 1882 1901 1920 1939 1958 1977 - 1996 2015 2057 2079 2101 2123 2145 2167 2189 2211 2233 2255 2277 2299 - 2321 2343 2365 2389 2437 2462 2487 2512 2537 2562 2587 2612 2637 2662 - 2687 2712 2737 2762 2787 2812 2837 2862 2910 2935 2960 2985 3010 3035 - 3060 3085 3110 3135 3160 3185 3210 3235 3260 3285 3310 3335 3355 3403 - 3428 3453 3478 3503 3528 3553 3578 3603 3628 3653 3678 3703 3728 3753 - 3778 3803 3828 3876 3901 3926 3951 3976 4001 4026 4051 4076 4101 4126 - 4151 4176 4201 4226 4251 4276 4301 4340 4355 4370 4385 4400 4415 4430 - 4445 4460 4475 4490 4505 4520 4535 4550 4587 4602 4617 4632 4647 4662 - 4677 4692 4707 4722 4737 4752 4767 4782 4797 4818 4835 4853 4860 4879 - 4886 4911 4937 4944 4962 4969 4983 4987 5006 5024 5043 5059 5076 5094 - 5112 5130 5149 5166 5182 5199 5217 5234 5252 5270 5288 5307 5327 5346 - 5362 5379 5400 5418 5439 5463 5487 5508 5528 5549 5568 5592 5615 5636 - 5658 5675 5693 5716 5738 5761 5783 5805 5818 5835 5854 5870 5885 5900 - 5914 5930 5946 5964 5971 5979 5987 6005 6022 6029 6037 6045 6063 6070 - 6078 6086 6105 6121 6136 6152 6169 6176 6184 6192 6210 6217 6225 6233 - 6257 6277 6302 6322 6347 6365 6381 6396 6410 6426 6442 6456 6472 6491 - 6507 6523 6538 6554 6603 6620 6627 6635 6643 6661 6668 6676 6684 6703 - 6719 6734 6750 6768 6775 6791 6807 6824 6839 6857 6874 6891 6906 6923 - 6938 6957 6978 6995 7013 7029 7041 7065 7086 7106 7128 7149 7167 7184 - 7249 7266 7282 7299 7315 7332 7349 7367 -JEN 145# -JRSTF 144# -MAPADR 279# -MAPCNK 280# -MAPMEM 276# -MAPPNT 282# -MAPSET 281# -MEMSEG 278# -MEMZRO 277# SEQ 0193 -MODPCP 289# -MODPCU 288# -MTROP 257# -NAME 9# 11 -PBELL 232# -PCRL 226# -PCRL2 230# -PCRL2F 231# -PCRLF 227# -PFORCE 234# -PGMINT 151# -PJRST 142# -PMSG 236# -PMSGF 239# -PNT1 192# -PNT11 206# -PNT11F 207# -PNT1F 193# -PNT2 194# -PNT2F 195# -PNT3 196# -PNT3F 197# -PNT4 198# -PNT4F 199# -PNT5 200# -PNT5F 201# -PNT6 202# -PNT6F 203# -PNT7 204# -PNT7F 205# -PNTA 178# -PNTADF 209# -PNTADR 208# -PNTAF 179# -PNTAL 180# -PNTALF 181# -PNTCHF 191# -PNTCHR 190# -PNTCI 188# -PNTCIF 189# -PNTCW 224# -PNTCWF 225# -PNTDCF 217# -PNTDEC 216# -PNTDS 218# -PNTDSF 219# -PNTHW 212# -PNTHWF 213# -PNTMGN 303# -PNTMSF 185# -PNTMSG 184# -PNTNM 220# -PNTOCF 215# SEQ 0194 -PNTOCS 214# -PNTOCT 210# -PNTOTF 211# -PNTSIX 221# -PNTSXF 222# -PSIXL 182# -PSIXLF 183# -PSIXM 186# -PSIXMF 187# -PSP 228# -PSPF 229# -PUT 140# -REPTUO 317# -RTN 139# 435 -S 69# 71 75 104 106 115 118 133 134 136 147 149 153 155 - 160 164 309 311 345 350 356 383 385 403 405 423 425 454 - 456 474 476 494 496 504 506 527 532 558 560 567 569 575 - 577 583 585 589 591 596 598 602 604 608 610 616 618 621 - 623 627 629 633 635 639 641 645 647 652 657 661 663 -SFLAG 869# 5432 5455 5479 5501 5521 5542 5560 5582 5605 5708 5730 5753 5775 - 5797 6248 6269 6289 6294 6314 6334 6339 -SIXBTZ 245# -STOP 860# 927 943 958 974 1051 1070 1089 1108 1127 1146 1165 1184 1203 - 1222 1241 1260 1279 1298 1317 1336 1431 1451 1471 1491 1511 1531 1551 - 1571 1591 1611 1631 1651 1671 1691 1711 1748 1767 1786 1805 1824 1843 - 1862 1881 1900 1919 1938 1957 1976 1995 2014 2056 2078 2100 2122 2144 - 2166 2188 2210 2232 2254 2276 2298 2320 2342 2364 2388 2436 2461 2486 - 2511 2536 2561 2586 2611 2636 2661 2686 2711 2736 2761 2786 2811 2836 - 2861 2909 2934 2959 2984 3009 3034 3059 3084 3109 3134 3159 3184 3209 - 3234 3259 3284 3309 3334 3354 3402 3427 3452 3477 3502 3527 3552 3577 - 3602 3627 3652 3677 3702 3727 3752 3777 3802 3827 3875 3900 3925 3950 - 3975 4000 4025 4050 4075 4100 4125 4150 4175 4200 4225 4250 4275 4300 - 4339 4354 4369 4384 4399 4414 4429 4444 4459 4474 4489 4504 4519 4534 - 4549 4586 4601 4616 4631 4646 4661 4676 4691 4706 4721 4736 4751 4766 - 4781 4796 4817 4834 4852 4859 4878 4885 4910 4936 4943 4961 4968 4986 - 5005 5023 5042 5058 5075 5093 5111 5129 5148 5165 5181 5198 5216 5233 - 5251 5269 5287 5306 5326 5345 5361 5378 5399 5417 5438 5462 5486 5507 - 5527 5548 5567 5591 5614 5635 5656 5674 5692 5715 5737 5760 5782 5804 - 5817 5834 5853 5869 5884 5899 5913 5929 5945 5963 5970 5978 5986 6004 - 6021 6028 6036 6044 6062 6069 6077 6085 6104 6120 6135 6151 6168 6175 - 6183 6191 6209 6216 6224 6232 6256 6276 6301 6321 6346 6364 6380 6395 - 6409 6425 6441 6455 6471 6490 6506 6522 6537 6553 6602 6619 6626 6634 - 6642 6660 6667 6675 6683 6702 6718 6733 6749 6767 6774 6790 6806 6823 - 6838 6856 6873 6890 6905 6922 6937 6956 6977 6994 7012 7028 7040 7064 - 7085 7105 7127 7148 7166 7183 7248 7265 7281 7298 7314 7331 7348 7366 -SWITCH 251# -TTALTM 173# -TTICHR 166# -TTICNV 171# -TTIDEC 170# -TTINO 168# -TTIOCT 169# -TTIYES 167# SEQ 0195 -TTLOOK 172# -TTSIXB 174# -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 1 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0196 - - -*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 19-JAN-77 PAGE 2 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0197 - -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 19-JAN-77 PAGE 3 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0198 - -*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 19-JAN-77 PAGE 4 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0199 - -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,034442 -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 200040034442 0 000001000001 -IT1 030614 0 0 0 200040034442 0 000001000001 -AT3 030614 0 0 0 000000034442 0 200040034442 -AT6 030614 034442 0 0 000000034442 0 200040034442 -FT0 030614 034442 0 0 000001000001 0 200040034442 -FT1A 030614 034442 0 0 000001000001 0 000001000001 -FT9 030615 034442 0 0 000001000001 0 000001000001 -ET0 030615 034442 0 0 000001000001 0 000001000001 -ST1 030615 034442 0 0 000001000001 0 000001000001 -ST2 030615 034442 0 0 000001000001 0 000001000001 -ST9 030615 034442 0 0 000001000001 0 000001000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 5 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0200 - -*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,034442 -INITIAL -C(AC)=000001 000001 -C(E)=000001 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 030616 030616 0 0 316040034442 0 000001000001 -IT1 030616 0 0 0 316040034442 0 000001000001 -AT3 030616 0 0 0 000000034442 0 316040034442 -AT6 030616 034442 0 0 000000034442 0 316040034442 -FT0 030616 034442 0 0 000001000001 0 316040034442 -FT1A 030616 034442 0 0 000001000001 0 000001000001 -FT2 030616 034442 0 0 0 0 000001000001 -FT2RQ 030616 034442 0 0 000001000001 0 000001000001 -FT3 030616 034442 0 0 000001000001 0 000001000001 -FT9 030617 034442 0 0 000001000001 0 000001000001 -ET0 030617 034442 0 0 0 0 000001000001 -ST1A 030617 034442 0 0 0 0 000001000001 -ST9 030617 034442 0 0 0 0 000001000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 6 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0201 - -*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 19-JAN-77 PAGE 7 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0202 - -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 19-JAN-77 PAGE 8 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0203 - -*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,030742 -INITIAL -C(AC)=000000 030714 -C(E)=400000 000000 -FINAL - -C(E)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 030721 030721 0 0 254000030742 0 254000030742 -IT1 030721 0 0 0 254000030742 0 254000030742 -AT3 030721 0 0 0 000000030742 0 254000030742 -AT6 030721 030742 0 0 000000030742 0 254000030742 -FT1A 030721 030742 0 0 000000030742 0 254000030742 -FT9 030722 030742 0 0 000000030742 0 254000030742 -ET0 030742 030722 0 0 000000030742 0 254000030742 -ST1A 030742 030722 0 0 000000030742 0 254000030742 -ST9 030742 030722 0 0 000000030742 0 254000030742 - - -*030742 SETZ 0,000000 -INITIAL -C(AC)=000000 030714 -C(E)=000000 030714 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 030742 030742 0 0 400000000000 0 0 -IT1 030742 0 0 0 400000000000 0 0 -AT3 030742 0 0 0 0 0 400000000000 -AT6 030742 0 0 0 0 0 400000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 9 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0204 - -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 MOVEI 1,000001 -INITIAL -C(AC)=000001 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 030743 030743 0 0 201040000001 0 000000000001 -IT1 030743 0 0 0 201040000001 0 000000000001 -AT3 030743 0 0 0 000000000001 0 201040000001 -AT6 030743 000001 0 0 000000000001 0 201040000001 -FT1A 030743 000001 0 0 000000000001 0 000000000001 -FT9 030744 000001 0 0 000000000001 0 000000000001 -ET0 030744 000001 0 0 000000000001 0 000000000001 -ST1 030744 000001 0 0 000000000001 0 000000000001 -ST2 030744 000001 0 0 000000000001 0 000000000001 -ST9 030744 000001 0 0 000000000001 0 000000000001 - - -*030744 CAIE 1,000001 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 030744 030744 0 0 302040000001 0 000000000001 -IT1 030744 0 0 0 302040000001 0 000000000001 -AT3 030744 0 0 0 000000000001 0 302040000001 -AT6 030744 000001 0 0 000000000001 0 302040000001 -FT1A 030744 000001 0 0 000000000001 0 000000000001 -FT2 030744 000001 0 0 0 0 000000000001 -FT2RQ 030744 000001 0 0 000000000001 0 000000000001 -FT3 030744 000001 0 0 000000000001 0 000000000001 -FT9 030745 000001 0 0 000000000001 0 000000000001 -ET0 030746 000001 0 0 0 0 000000000001 -ST1A 030746 000001 0 0 0 0 000000000001 -ST9 030746 000001 0 0 0 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 10 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0205 - -*030746 JUMPA 0,030747 -INITIAL -C(AC)=000000 000000 -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 0 0 000000030747 -FT3 030746 030747 0 0 0 0 000000030747 -FT9 030747 030747 0 0 0 0 000000030747 -ET0 030747 030747 0 0 0 0 000000030747 -ST1A 030747 030747 0 0 0 0 000000030747 -ST9 030747 030747 0 0 0 0 000000030747 - - -*030747 MOVEI 2,000002 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 030747 030747 0 0 201100000002 0 000000000002 -IT1 030747 0 0 0 201100000002 0 000000000002 -AT3 030747 0 0 0 000000000002 0 201100000002 -AT6 030747 000002 0 0 000000000002 0 201100000002 -FT1A 030747 000002 0 0 000000000002 0 000000000002 -FT9 030750 000002 0 0 000000000002 0 000000000002 -ET0 030750 000002 0 0 000000000002 0 000000000002 -ST1 030750 000002 0 0 000000000002 0 000000000002 -ST2 030750 000002 0 0 000000000002 0 000000000002 -ST9 030750 000002 0 0 000000000002 0 000000000002 - - -*030750 CAIE 2,000002 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 030750 030750 0 0 302100000002 0 000000000002 -IT1 030750 0 0 0 302100000002 0 000000000002 -AT3 030750 0 0 0 000000000002 0 302100000002 -AT6 030750 000002 0 0 000000000002 0 302100000002 -FT1A 030750 000002 0 0 000000000002 0 000000000002 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 11 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0206 - -FT2 030750 000002 0 0 0 0 000000000002 -FT2RQ 030750 000002 0 0 000000000002 0 000000000002 -FT3 030750 000002 0 0 000000000002 0 000000000002 -FT9 030751 000002 0 0 000000000002 0 000000000002 -ET0 030752 000002 0 0 0 0 000000000002 -ST1A 030752 000002 0 0 0 0 000000000002 -ST9 030752 000002 0 0 0 0 000000000002 - - -*030752 JUMPA 0,030753 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 030752 030752 0 0 324000030753 0 000000030753 -IT1 030752 0 0 0 324000030753 0 000000030753 -AT3 030752 0 0 0 000000030753 0 324000030753 -AT6 030752 030753 0 0 000000030753 0 324000030753 -FT1A 030752 030753 0 0 000000030753 0 000000030753 -FT2 030752 030753 0 0 0 0 000000030753 -FT2RQ 030752 030753 0 0 0 0 000000030753 -FT3 030752 030753 0 0 0 0 000000030753 -FT9 030753 030753 0 0 0 0 000000030753 -ET0 030753 030753 0 0 0 0 000000030753 -ST1A 030753 030753 0 0 0 0 000000030753 -ST9 030753 030753 0 0 0 0 000000030753 - - -*030753 MOVEI 4,000004 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 030753 030753 0 0 201200000004 0 000000000004 -IT1 030753 0 0 0 201200000004 0 000000000004 -AT3 030753 0 0 0 000000000004 0 201200000004 -AT6 030753 000004 0 0 000000000004 0 201200000004 -FT1A 030753 000004 0 0 000000000004 0 000000000004 -FT9 030754 000004 0 0 000000000004 0 000000000004 -ET0 030754 000004 0 0 000000000004 0 000000000004 -ST1 030754 000004 0 0 000000000004 0 000000000004 -ST2 030754 000004 0 0 000000000004 0 000000000004 -ST9 030754 000004 0 0 000000000004 0 000000000004 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 12 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0207 - -*030754 CAIE 4,000004 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 030754 030754 0 0 302200000004 0 000000000004 -IT1 030754 0 0 0 302200000004 0 000000000004 -AT3 030754 0 0 0 000000000004 0 302200000004 -AT6 030754 000004 0 0 000000000004 0 302200000004 -FT1A 030754 000004 0 0 000000000004 0 000000000004 -FT2 030754 000004 0 0 0 0 000000000004 -FT2RQ 030754 000004 0 0 000000000004 0 000000000004 -FT3 030754 000004 0 0 000000000004 0 000000000004 -FT9 030755 000004 0 0 000000000004 0 000000000004 -ET0 030756 000004 0 0 0 0 000000000004 -ST1A 030756 000004 0 0 0 0 000000000004 -ST9 030756 000004 0 0 0 0 000000000004 - - -*030756 JUMPA 0,030757 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 030756 030756 0 0 324000030757 0 000000030757 -IT1 030756 0 0 0 324000030757 0 000000030757 -AT3 030756 0 0 0 000000030757 0 324000030757 -AT6 030756 030757 0 0 000000030757 0 324000030757 -FT1A 030756 030757 0 0 000000030757 0 000000030757 -FT2 030756 030757 0 0 0 0 000000030757 -FT2RQ 030756 030757 0 0 0 0 000000030757 -FT3 030756 030757 0 0 0 0 000000030757 -FT9 030757 030757 0 0 0 0 000000030757 -ET0 030757 030757 0 0 0 0 000000030757 -ST1A 030757 030757 0 0 0 0 000000030757 -ST9 030757 030757 0 0 0 0 000000030757 - - -*030757 MOVEI 10,000010 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 030757 030757 0 0 201400000010 0 000000000010 -IT1 030757 0 0 0 201400000010 0 000000000010 -AT3 030757 0 0 0 000000000010 0 201400000010 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 13 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0208 - -AT6 030757 000010 0 0 000000000010 0 201400000010 -FT1A 030757 000010 0 0 000000000010 0 000000000010 -FT9 030760 000010 0 0 000000000010 0 000000000010 -ET0 030760 000010 0 0 000000000010 0 000000000010 -ST1 030760 000010 0 0 000000000010 0 000000000010 -ST2 030760 000010 0 0 000000000010 0 000000000010 -ST9 030760 000010 0 0 000000000010 0 000000000010 - - -*030760 CAIE 10,000010 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 030760 030760 0 0 302400000010 0 000000000010 -IT1 030760 0 0 0 302400000010 0 000000000010 -AT3 030760 0 0 0 000000000010 0 302400000010 -AT6 030760 000010 0 0 000000000010 0 302400000010 -FT1A 030760 000010 0 0 000000000010 0 000000000010 -FT2 030760 000010 0 0 0 0 000000000010 -FT2RQ 030760 000010 0 0 000000000010 0 000000000010 -FT3 030760 000010 0 0 000000000010 0 000000000010 -FT9 030761 000010 0 0 000000000010 0 000000000010 -ET0 030762 000010 0 0 0 0 000000000010 -ST1A 030762 000010 0 0 0 0 000000000010 -ST9 030762 000010 0 0 0 0 000000000010 - - -*030762 JUMPA 0,030763 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 030762 030762 0 0 324000030763 0 000000030763 -IT1 030762 0 0 0 324000030763 0 000000030763 -AT3 030762 0 0 0 000000030763 0 324000030763 -AT6 030762 030763 0 0 000000030763 0 324000030763 -FT1A 030762 030763 0 0 000000030763 0 000000030763 -FT2 030762 030763 0 0 0 0 000000030763 -FT2RQ 030762 030763 0 0 0 0 000000030763 -FT3 030762 030763 0 0 0 0 000000030763 -FT9 030763 030763 0 0 0 0 000000030763 -ET0 030763 030763 0 0 0 0 000000030763 -ST1A 030763 030763 0 0 0 0 000000030763 -ST9 030763 030763 0 0 0 0 000000030763 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 14 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0209 - -*030763 MOVEI 0,000000 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 030763 030763 0 0 201000000000 0 0 -IT1 030763 0 0 0 201000000000 0 0 -AT3 030763 0 0 0 0 0 201000000000 -AT6 030763 0 0 0 0 0 201000000000 -FT1A 030763 0 0 0 0 0 0 -FT9 030764 0 0 0 0 0 0 -ET0 030764 0 0 0 0 0 0 -ST1 030764 0 0 0 0 0 0 -ST2 030764 0 0 0 0 0 0 -ST9 030764 0 0 0 0 0 0 - - -*030764 MOVEI 1,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 030764 030764 0 0 201040000001 0 000000000001 -IT1 030764 0 0 0 201040000001 0 000000000001 -AT3 030764 0 0 0 000000000001 0 201040000001 -AT6 030764 000001 0 0 000000000001 0 201040000001 -FT1A 030764 000001 0 0 000000000001 0 000000000001 -FT9 030765 000001 0 0 000000000001 0 000000000001 -ET0 030765 000001 0 0 000000000001 0 000000000001 -ST1 030765 000001 0 0 000000000001 0 000000000001 -ST2 030765 000001 0 0 000000000001 0 000000000001 -ST9 030765 000001 0 0 000000000001 0 000000000001 - - -*030765 MOVEI 2,000002 -INITIAL -C(AC)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 030765 030765 0 0 201100000002 0 000000000002 -IT1 030765 0 0 0 201100000002 0 000000000002 -AT3 030765 0 0 0 000000000002 0 201100000002 -AT6 030765 000002 0 0 000000000002 0 201100000002 -FT1A 030765 000002 0 0 000000000002 0 000000000002 -FT9 030766 000002 0 0 000000000002 0 000000000002 -ET0 030766 000002 0 0 000000000002 0 000000000002 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 15 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0210 - -ST1 030766 000002 0 0 000000000002 0 000000000002 -ST2 030766 000002 0 0 000000000002 0 000000000002 -ST9 030766 000002 0 0 000000000002 0 000000000002 - - -*030766 MOVEI 3,000003 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000003 - -TIME PC MA SC FE AR MQ BR -IT0 030766 030766 0 0 201140000003 0 000000000003 -IT1 030766 0 0 0 201140000003 0 000000000003 -AT3 030766 0 0 0 000000000003 0 201140000003 -AT6 030766 000003 0 0 000000000003 0 201140000003 -FT1A 030766 000003 0 0 000000000003 0 000000000003 -FT9 030767 000003 0 0 000000000003 0 000000000003 -ET0 030767 000003 0 0 000000000003 0 000000000003 -ST1 030767 000003 0 0 000000000003 0 000000000003 -ST2 030767 000003 0 0 000000000003 0 000000000003 -ST9 030767 000003 0 0 000000000003 0 000000000003 - - -*030767 MOVEI 4,000004 -INITIAL -C(AC)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 030767 030767 0 0 201200000004 0 000000000004 -IT1 030767 0 0 0 201200000004 0 000000000004 -AT3 030767 0 0 0 000000000004 0 201200000004 -AT6 030767 000004 0 0 000000000004 0 201200000004 -FT1A 030767 000004 0 0 000000000004 0 000000000004 -FT9 030770 000004 0 0 000000000004 0 000000000004 -ET0 030770 000004 0 0 000000000004 0 000000000004 -ST1 030770 000004 0 0 000000000004 0 000000000004 -ST2 030770 000004 0 0 000000000004 0 000000000004 -ST9 030770 000004 0 0 000000000004 0 000000000004 - - -*030770 MOVEI 5,000005 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000005 - -TIME PC MA SC FE AR MQ BR -IT0 030770 030770 0 0 201240000005 0 000000000005 -IT1 030770 0 0 0 201240000005 0 000000000005 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 16 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0211 - -AT3 030770 0 0 0 000000000005 0 201240000005 -AT6 030770 000005 0 0 000000000005 0 201240000005 -FT1A 030770 000005 0 0 000000000005 0 000000000005 -FT9 030771 000005 0 0 000000000005 0 000000000005 -ET0 030771 000005 0 0 000000000005 0 000000000005 -ST1 030771 000005 0 0 000000000005 0 000000000005 -ST2 030771 000005 0 0 000000000005 0 000000000005 -ST9 030771 000005 0 0 000000000005 0 000000000005 - - -*030771 MOVEI 6,000006 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000006 - -TIME PC MA SC FE AR MQ BR -IT0 030771 030771 0 0 201300000006 0 000000000006 -IT1 030771 0 0 0 201300000006 0 000000000006 -AT3 030771 0 0 0 000000000006 0 201300000006 -AT6 030771 000006 0 0 000000000006 0 201300000006 -FT1A 030771 000006 0 0 000000000006 0 000000000006 -FT9 030772 000006 0 0 000000000006 0 000000000006 -ET0 030772 000006 0 0 000000000006 0 000000000006 -ST1 030772 000006 0 0 000000000006 0 000000000006 -ST2 030772 000006 0 0 000000000006 0 000000000006 -ST9 030772 000006 0 0 000000000006 0 000000000006 - - -*030772 MOVEI 7,000007 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000007 - -TIME PC MA SC FE AR MQ BR -IT0 030772 030772 0 0 201340000007 0 000000000007 -IT1 030772 0 0 0 201340000007 0 000000000007 -AT3 030772 0 0 0 000000000007 0 201340000007 -AT6 030772 000007 0 0 000000000007 0 201340000007 -FT1A 030772 000007 0 0 000000000007 0 000000000007 -FT9 030773 000007 0 0 000000000007 0 000000000007 -ET0 030773 000007 0 0 000000000007 0 000000000007 -ST1 030773 000007 0 0 000000000007 0 000000000007 -ST2 030773 000007 0 0 000000000007 0 000000000007 -ST9 030773 000007 0 0 000000000007 0 000000000007 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 17 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0212 - -*030773 MOVEI 10,000010 -INITIAL -C(AC)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 030773 030773 0 0 201400000010 0 000000000010 -IT1 030773 0 0 0 201400000010 0 000000000010 -AT3 030773 0 0 0 000000000010 0 201400000010 -AT6 030773 000010 0 0 000000000010 0 201400000010 -FT1A 030773 000010 0 0 000000000010 0 000000000010 -FT9 030774 000010 0 0 000000000010 0 000000000010 -ET0 030774 000010 0 0 000000000010 0 000000000010 -ST1 030774 000010 0 0 000000000010 0 000000000010 -ST2 030774 000010 0 0 000000000010 0 000000000010 -ST9 030774 000010 0 0 000000000010 0 000000000010 - - -*030774 MOVEI 11,000011 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000011 - -TIME PC MA SC FE AR MQ BR -IT0 030774 030774 0 0 201440000011 0 000000000011 -IT1 030774 0 0 0 201440000011 0 000000000011 -AT3 030774 0 0 0 000000000011 0 201440000011 -AT6 030774 000011 0 0 000000000011 0 201440000011 -FT1A 030774 000011 0 0 000000000011 0 000000000011 -FT9 030775 000011 0 0 000000000011 0 000000000011 -ET0 030775 000011 0 0 000000000011 0 000000000011 -ST1 030775 000011 0 0 000000000011 0 000000000011 -ST2 030775 000011 0 0 000000000011 0 000000000011 -ST9 030775 000011 0 0 000000000011 0 000000000011 - - -*030775 MOVEI 12,000012 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000012 - -TIME PC MA SC FE AR MQ BR -IT0 030775 030775 0 0 201500000012 0 000000000012 -IT1 030775 0 0 0 201500000012 0 000000000012 -AT3 030775 0 0 0 000000000012 0 201500000012 -AT6 030775 000012 0 0 000000000012 0 201500000012 -FT1A 030775 000012 0 0 000000000012 0 000000000012 -FT9 030776 000012 0 0 000000000012 0 000000000012 -ET0 030776 000012 0 0 000000000012 0 000000000012 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 18 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0213 - -ST1 030776 000012 0 0 000000000012 0 000000000012 -ST2 030776 000012 0 0 000000000012 0 000000000012 -ST9 030776 000012 0 0 000000000012 0 000000000012 - - -*030776 MOVEI 13,000013 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000013 - -TIME PC MA SC FE AR MQ BR -IT0 030776 030776 0 0 201540000013 0 000000000013 -IT1 030776 0 0 0 201540000013 0 000000000013 -AT3 030776 0 0 0 000000000013 0 201540000013 -AT6 030776 000013 0 0 000000000013 0 201540000013 -FT1A 030776 000013 0 0 000000000013 0 000000000013 -FT9 030777 000013 0 0 000000000013 0 000000000013 -ET0 030777 000013 0 0 000000000013 0 000000000013 -ST1 030777 000013 0 0 000000000013 0 000000000013 -ST2 030777 000013 0 0 000000000013 0 000000000013 -ST9 030777 000013 0 0 000000000013 0 000000000013 - - -*030777 MOVEI 14,000014 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000014 - -TIME PC MA SC FE AR MQ BR -IT0 030777 030777 0 0 201600000014 0 000000000014 -IT1 030777 0 0 0 201600000014 0 000000000014 -AT3 030777 0 0 0 000000000014 0 201600000014 -AT6 030777 000014 0 0 000000000014 0 201600000014 -FT1A 030777 000014 0 0 000000000014 0 000000000014 -FT9 0 000014 0 0 000000000014 0 000000000014 -ET0 0 000014 0 0 000000000014 0 000000000014 -ST1 0 000014 0 0 000000000014 0 000000000014 -ST2 0 000014 0 0 000000000014 0 000000000014 -ST9 0 000014 0 0 000000000014 0 000000000014 - - -*031000 MOVEI 15,000015 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000015 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 201640000015 0 000000000015 -IT1 0 0 0 0 201640000015 0 000000000015 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 19 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0214 - -AT3 0 0 0 0 000000000015 0 201640000015 -AT6 0 000015 0 0 000000000015 0 201640000015 -FT1A 0 000015 0 0 000000000015 0 000000000015 -FT9 031001 000015 0 0 000000000015 0 000000000015 -ET0 031001 000015 0 0 000000000015 0 000000000015 -ST1 031001 000015 0 0 000000000015 0 000000000015 -ST2 031001 000015 0 0 000000000015 0 000000000015 -ST9 031001 000015 0 0 000000000015 0 000000000015 - - -*031001 MOVEI 16,000016 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000016 - -TIME PC MA SC FE AR MQ BR -IT0 031001 031001 0 0 201700000016 0 000000000016 -IT1 031001 0 0 0 201700000016 0 000000000016 -AT3 031001 0 0 0 000000000016 0 201700000016 -AT6 031001 000016 0 0 000000000016 0 201700000016 -FT1A 031001 000016 0 0 000000000016 0 000000000016 -FT9 031002 000016 0 0 000000000016 0 000000000016 -ET0 031002 000016 0 0 000000000016 0 000000000016 -ST1 031002 000016 0 0 000000000016 0 000000000016 -ST2 031002 000016 0 0 000000000016 0 000000000016 -ST9 031002 000016 0 0 000000000016 0 000000000016 - - -*031002 MOVEI 17,000017 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000017 - -TIME PC MA SC FE AR MQ BR -IT0 031002 031002 0 0 201740000017 0 000000000017 -IT1 031002 0 0 0 201740000017 0 000000000017 -AT3 031002 0 0 0 000000000017 0 201740000017 -AT6 031002 000017 0 0 000000000017 0 201740000017 -FT1A 031002 000017 0 0 000000000017 0 000000000017 -FT9 031003 000017 0 0 000000000017 0 000000000017 -ET0 031003 000017 0 0 000000000017 0 000000000017 -ST1 031003 000017 0 0 000000000017 0 000000000017 -ST2 031003 000017 0 0 000000000017 0 000000000017 -ST9 031003 000017 0 0 000000000017 0 000000000017 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 20 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0215 - -*031003 CAIE 17,000017 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031003 031003 0 0 302740000017 0 000000000017 -IT1 031003 0 0 0 302740000017 0 000000000017 -AT3 031003 0 0 0 000000000017 0 302740000017 -AT6 031003 000017 0 0 000000000017 0 302740000017 -FT1A 031003 000017 0 0 000000000017 0 000000000017 -FT2 031003 000017 0 0 0 0 000000000017 -FT2RQ 031003 000017 0 0 000000000017 0 000000000017 -FT3 031003 000017 0 0 000000000017 0 000000000017 -FT9 031004 000017 0 0 000000000017 0 000000000017 -ET0 031005 000017 0 0 0 0 000000000017 -ST1A 031005 000017 0 0 0 0 000000000017 -ST9 031005 000017 0 0 0 0 000000000017 - - -*031005 JUMPA 0,031006 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031005 031005 0 0 324000031006 0 000000031006 -IT1 031005 0 0 0 324000031006 0 000000031006 -AT3 031005 0 0 0 000000031006 0 324000031006 -AT6 031005 031006 0 0 000000031006 0 324000031006 -FT1A 031005 031006 0 0 000000031006 0 000000031006 -FT2 031005 031006 0 0 0 0 000000031006 -FT2RQ 031005 031006 0 0 0 0 000000031006 -FT3 031005 031006 0 0 0 0 000000031006 -FT9 031006 031006 0 0 0 0 000000031006 -ET0 031006 031006 0 0 0 0 000000031006 -ST1A 031006 031006 0 0 0 0 000000031006 -ST9 031006 031006 0 0 0 0 000000031006 - - -*031006 CAIE 16,000016 -INITIAL -C(AC)=000000 000016 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031006 031006 0 0 302700000016 0 000000000016 -IT1 031006 0 0 0 302700000016 0 000000000016 -AT3 031006 0 0 0 000000000016 0 302700000016 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 21 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0216 - -AT6 031006 000016 0 0 000000000016 0 302700000016 -FT1A 031006 000016 0 0 000000000016 0 000000000016 -FT2 031006 000016 0 0 0 0 000000000016 -FT2RQ 031006 000016 0 0 000000000016 0 000000000016 -FT3 031006 000016 0 0 000000000016 0 000000000016 -FT9 031007 000016 0 0 000000000016 0 000000000016 -ET0 031010 000016 0 0 0 0 000000000016 -ST1A 031010 000016 0 0 0 0 000000000016 -ST9 031010 000016 0 0 0 0 000000000016 - - -*031010 JUMPA 0,031011 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031010 031010 0 0 324000031011 0 000000031011 -IT1 031010 0 0 0 324000031011 0 000000031011 -AT3 031010 0 0 0 000000031011 0 324000031011 -AT6 031010 031011 0 0 000000031011 0 324000031011 -FT1A 031010 031011 0 0 000000031011 0 000000031011 -FT2 031010 031011 0 0 0 0 000000031011 -FT2RQ 031010 031011 0 0 0 0 000000031011 -FT3 031010 031011 0 0 0 0 000000031011 -FT9 031011 031011 0 0 0 0 000000031011 -ET0 031011 031011 0 0 0 0 000000031011 -ST1A 031011 031011 0 0 0 0 000000031011 -ST9 031011 031011 0 0 0 0 000000031011 - - -*031011 CAIE 15,000015 -INITIAL -C(AC)=000000 000015 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031011 031011 0 0 302640000015 0 000000000015 -IT1 031011 0 0 0 302640000015 0 000000000015 -AT3 031011 0 0 0 000000000015 0 302640000015 -AT6 031011 000015 0 0 000000000015 0 302640000015 -FT1A 031011 000015 0 0 000000000015 0 000000000015 -FT2 031011 000015 0 0 0 0 000000000015 -FT2RQ 031011 000015 0 0 000000000015 0 000000000015 -FT3 031011 000015 0 0 000000000015 0 000000000015 -FT9 031012 000015 0 0 000000000015 0 000000000015 -ET0 031013 000015 0 0 0 0 000000000015 -ST1A 031013 000015 0 0 0 0 000000000015 -ST9 031013 000015 0 0 0 0 000000000015 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 22 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0217 - - -*031013 JUMPA 0,031014 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031013 031013 0 0 324000031014 0 000000031014 -IT1 031013 0 0 0 324000031014 0 000000031014 -AT3 031013 0 0 0 000000031014 0 324000031014 -AT6 031013 031014 0 0 000000031014 0 324000031014 -FT1A 031013 031014 0 0 000000031014 0 000000031014 -FT2 031013 031014 0 0 0 0 000000031014 -FT2RQ 031013 031014 0 0 0 0 000000031014 -FT3 031013 031014 0 0 0 0 000000031014 -FT9 031014 031014 0 0 0 0 000000031014 -ET0 031014 031014 0 0 0 0 000000031014 -ST1A 031014 031014 0 0 0 0 000000031014 -ST9 031014 031014 0 0 0 0 000000031014 - - -*031014 CAIE 14,000014 -INITIAL -C(AC)=000000 000014 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031014 031014 0 0 302600000014 0 000000000014 -IT1 031014 0 0 0 302600000014 0 000000000014 -AT3 031014 0 0 0 000000000014 0 302600000014 -AT6 031014 000014 0 0 000000000014 0 302600000014 -FT1A 031014 000014 0 0 000000000014 0 000000000014 -FT2 031014 000014 0 0 0 0 000000000014 -FT2RQ 031014 000014 0 0 000000000014 0 000000000014 -FT3 031014 000014 0 0 000000000014 0 000000000014 -FT9 031015 000014 0 0 000000000014 0 000000000014 -ET0 031016 000014 0 0 0 0 000000000014 -ST1A 031016 000014 0 0 0 0 000000000014 -ST9 031016 000014 0 0 0 0 000000000014 - - -*031016 JUMPA 0,031017 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031016 031016 0 0 324000031017 0 000000031017 -IT1 031016 0 0 0 324000031017 0 000000031017 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 23 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0218 - -AT3 031016 0 0 0 000000031017 0 324000031017 -AT6 031016 031017 0 0 000000031017 0 324000031017 -FT1A 031016 031017 0 0 000000031017 0 000000031017 -FT2 031016 031017 0 0 0 0 000000031017 -FT2RQ 031016 031017 0 0 0 0 000000031017 -FT3 031016 031017 0 0 0 0 000000031017 -FT9 031017 031017 0 0 0 0 000000031017 -ET0 031017 031017 0 0 0 0 000000031017 -ST1A 031017 031017 0 0 0 0 000000031017 -ST9 031017 031017 0 0 0 0 000000031017 - - -*031017 CAIE 13,000013 -INITIAL -C(AC)=000000 000013 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031017 031017 0 0 302540000013 0 000000000013 -IT1 031017 0 0 0 302540000013 0 000000000013 -AT3 031017 0 0 0 000000000013 0 302540000013 -AT6 031017 000013 0 0 000000000013 0 302540000013 -FT1A 031017 000013 0 0 000000000013 0 000000000013 -FT2 031017 000013 0 0 0 0 000000000013 -FT2RQ 031017 000013 0 0 000000000013 0 000000000013 -FT3 031017 000013 0 0 000000000013 0 000000000013 -FT9 031020 000013 0 0 000000000013 0 000000000013 -ET0 031021 000013 0 0 0 0 000000000013 -ST1A 031021 000013 0 0 0 0 000000000013 -ST9 031021 000013 0 0 0 0 000000000013 - - -*031021 JUMPA 0,031022 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031021 031021 0 0 324000031022 0 000000031022 -IT1 031021 0 0 0 324000031022 0 000000031022 -AT3 031021 0 0 0 000000031022 0 324000031022 -AT6 031021 031022 0 0 000000031022 0 324000031022 -FT1A 031021 031022 0 0 000000031022 0 000000031022 -FT2 031021 031022 0 0 0 0 000000031022 -FT2RQ 031021 031022 0 0 0 0 000000031022 -FT3 031021 031022 0 0 0 0 000000031022 -FT9 031022 031022 0 0 0 0 000000031022 -ET0 031022 031022 0 0 0 0 000000031022 -ST1A 031022 031022 0 0 0 0 000000031022 -ST9 031022 031022 0 0 0 0 000000031022 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 24 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0219 - - - -*031022 CAIE 12,000012 -INITIAL -C(AC)=000000 000012 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031022 031022 0 0 302500000012 0 000000000012 -IT1 031022 0 0 0 302500000012 0 000000000012 -AT3 031022 0 0 0 000000000012 0 302500000012 -AT6 031022 000012 0 0 000000000012 0 302500000012 -FT1A 031022 000012 0 0 000000000012 0 000000000012 -FT2 031022 000012 0 0 0 0 000000000012 -FT2RQ 031022 000012 0 0 000000000012 0 000000000012 -FT3 031022 000012 0 0 000000000012 0 000000000012 -FT9 031023 000012 0 0 000000000012 0 000000000012 -ET0 031024 000012 0 0 0 0 000000000012 -ST1A 031024 000012 0 0 0 0 000000000012 -ST9 031024 000012 0 0 0 0 000000000012 - - -*031024 JUMPA 0,031025 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031024 031024 0 0 324000031025 0 000000031025 -IT1 031024 0 0 0 324000031025 0 000000031025 -AT3 031024 0 0 0 000000031025 0 324000031025 -AT6 031024 031025 0 0 000000031025 0 324000031025 -FT1A 031024 031025 0 0 000000031025 0 000000031025 -FT2 031024 031025 0 0 0 0 000000031025 -FT2RQ 031024 031025 0 0 0 0 000000031025 -FT3 031024 031025 0 0 0 0 000000031025 -FT9 031025 031025 0 0 0 0 000000031025 -ET0 031025 031025 0 0 0 0 000000031025 -ST1A 031025 031025 0 0 0 0 000000031025 -ST9 031025 031025 0 0 0 0 000000031025 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 25 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0220 - -*031025 CAIE 11,000011 -INITIAL -C(AC)=000000 000011 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031025 031025 0 0 302440000011 0 000000000011 -IT1 031025 0 0 0 302440000011 0 000000000011 -AT3 031025 0 0 0 000000000011 0 302440000011 -AT6 031025 000011 0 0 000000000011 0 302440000011 -FT1A 031025 000011 0 0 000000000011 0 000000000011 -FT2 031025 000011 0 0 0 0 000000000011 -FT2RQ 031025 000011 0 0 000000000011 0 000000000011 -FT3 031025 000011 0 0 000000000011 0 000000000011 -FT9 031026 000011 0 0 000000000011 0 000000000011 -ET0 031027 000011 0 0 0 0 000000000011 -ST1A 031027 000011 0 0 0 0 000000000011 -ST9 031027 000011 0 0 0 0 000000000011 - - -*031027 JUMPA 0,031030 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031027 031027 0 0 324000031030 0 000000031030 -IT1 031027 0 0 0 324000031030 0 000000031030 -AT3 031027 0 0 0 000000031030 0 324000031030 -AT6 031027 031030 0 0 000000031030 0 324000031030 -FT1A 031027 031030 0 0 000000031030 0 000000031030 -FT2 031027 031030 0 0 0 0 000000031030 -FT2RQ 031027 031030 0 0 0 0 000000031030 -FT3 031027 031030 0 0 0 0 000000031030 -FT9 031030 031030 0 0 0 0 000000031030 -ET0 031030 031030 0 0 0 0 000000031030 -ST1A 031030 031030 0 0 0 0 000000031030 -ST9 031030 031030 0 0 0 0 000000031030 - - -*031030 CAIE 10,000010 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031030 031030 0 0 302400000010 0 000000000010 -IT1 031030 0 0 0 302400000010 0 000000000010 -AT3 031030 0 0 0 000000000010 0 302400000010 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 26 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0221 - -AT6 031030 000010 0 0 000000000010 0 302400000010 -FT1A 031030 000010 0 0 000000000010 0 000000000010 -FT2 031030 000010 0 0 0 0 000000000010 -FT2RQ 031030 000010 0 0 000000000010 0 000000000010 -FT3 031030 000010 0 0 000000000010 0 000000000010 -FT9 031031 000010 0 0 000000000010 0 000000000010 -ET0 031032 000010 0 0 0 0 000000000010 -ST1A 031032 000010 0 0 0 0 000000000010 -ST9 031032 000010 0 0 0 0 000000000010 - - -*031032 JUMPA 0,031033 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031032 031032 0 0 324000031033 0 000000031033 -IT1 031032 0 0 0 324000031033 0 000000031033 -AT3 031032 0 0 0 000000031033 0 324000031033 -AT6 031032 031033 0 0 000000031033 0 324000031033 -FT1A 031032 031033 0 0 000000031033 0 000000031033 -FT2 031032 031033 0 0 0 0 000000031033 -FT2RQ 031032 031033 0 0 0 0 000000031033 -FT3 031032 031033 0 0 0 0 000000031033 -FT9 031033 031033 0 0 0 0 000000031033 -ET0 031033 031033 0 0 0 0 000000031033 -ST1A 031033 031033 0 0 0 0 000000031033 -ST9 031033 031033 0 0 0 0 000000031033 - - -*031033 CAIE 7,000007 -INITIAL -C(AC)=000000 000007 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031033 031033 0 0 302340000007 0 000000000007 -IT1 031033 0 0 0 302340000007 0 000000000007 -AT3 031033 0 0 0 000000000007 0 302340000007 -AT6 031033 000007 0 0 000000000007 0 302340000007 -FT1A 031033 000007 0 0 000000000007 0 000000000007 -FT2 031033 000007 0 0 0 0 000000000007 -FT2RQ 031033 000007 0 0 000000000007 0 000000000007 -FT3 031033 000007 0 0 000000000007 0 000000000007 -FT9 031034 000007 0 0 000000000007 0 000000000007 -ET0 031035 000007 0 0 0 0 000000000007 -ST1A 031035 000007 0 0 0 0 000000000007 -ST9 031035 000007 0 0 0 0 000000000007 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 27 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0222 - - -*031035 JUMPA 0,031036 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031035 031035 0 0 324000031036 0 000000031036 -IT1 031035 0 0 0 324000031036 0 000000031036 -AT3 031035 0 0 0 000000031036 0 324000031036 -AT6 031035 031036 0 0 000000031036 0 324000031036 -FT1A 031035 031036 0 0 000000031036 0 000000031036 -FT2 031035 031036 0 0 0 0 000000031036 -FT2RQ 031035 031036 0 0 0 0 000000031036 -FT3 031035 031036 0 0 0 0 000000031036 -FT9 031036 031036 0 0 0 0 000000031036 -ET0 031036 031036 0 0 0 0 000000031036 -ST1A 031036 031036 0 0 0 0 000000031036 -ST9 031036 031036 0 0 0 0 000000031036 - - -*031036 CAIE 6,000006 -INITIAL -C(AC)=000000 000006 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031036 031036 0 0 302300000006 0 000000000006 -IT1 031036 0 0 0 302300000006 0 000000000006 -AT3 031036 0 0 0 000000000006 0 302300000006 -AT6 031036 000006 0 0 000000000006 0 302300000006 -FT1A 031036 000006 0 0 000000000006 0 000000000006 -FT2 031036 000006 0 0 0 0 000000000006 -FT2RQ 031036 000006 0 0 000000000006 0 000000000006 -FT3 031036 000006 0 0 000000000006 0 000000000006 -FT9 031037 000006 0 0 000000000006 0 000000000006 -ET0 031040 000006 0 0 0 0 000000000006 -ST1A 031040 000006 0 0 0 0 000000000006 -ST9 031040 000006 0 0 0 0 000000000006 - - -*031040 JUMPA 0,031041 -INITIAL -C(AC)=000000 000000 -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 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 28 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0223 - -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 0 0 000000031041 -FT3 031040 031041 0 0 0 0 000000031041 -FT9 031041 031041 0 0 0 0 000000031041 -ET0 031041 031041 0 0 0 0 000000031041 -ST1A 031041 031041 0 0 0 0 000000031041 -ST9 031041 031041 0 0 0 0 000000031041 - - -*031041 CAIE 5,000005 -INITIAL -C(AC)=000000 000005 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031041 031041 0 0 302240000005 0 000000000005 -IT1 031041 0 0 0 302240000005 0 000000000005 -AT3 031041 0 0 0 000000000005 0 302240000005 -AT6 031041 000005 0 0 000000000005 0 302240000005 -FT1A 031041 000005 0 0 000000000005 0 000000000005 -FT2 031041 000005 0 0 0 0 000000000005 -FT2RQ 031041 000005 0 0 000000000005 0 000000000005 -FT3 031041 000005 0 0 000000000005 0 000000000005 -FT9 031042 000005 0 0 000000000005 0 000000000005 -ET0 031043 000005 0 0 0 0 000000000005 -ST1A 031043 000005 0 0 0 0 000000000005 -ST9 031043 000005 0 0 0 0 000000000005 - - -*031043 JUMPA 0,031044 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031043 031043 0 0 324000031044 0 000000031044 -IT1 031043 0 0 0 324000031044 0 000000031044 -AT3 031043 0 0 0 000000031044 0 324000031044 -AT6 031043 031044 0 0 000000031044 0 324000031044 -FT1A 031043 031044 0 0 000000031044 0 000000031044 -FT2 031043 031044 0 0 0 0 000000031044 -FT2RQ 031043 031044 0 0 0 0 000000031044 -FT3 031043 031044 0 0 0 0 000000031044 -FT9 031044 031044 0 0 0 0 000000031044 -ET0 031044 031044 0 0 0 0 000000031044 -ST1A 031044 031044 0 0 0 0 000000031044 -ST9 031044 031044 0 0 0 0 000000031044 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 29 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0224 - - - -*031044 CAIE 4,000004 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031044 031044 0 0 302200000004 0 000000000004 -IT1 031044 0 0 0 302200000004 0 000000000004 -AT3 031044 0 0 0 000000000004 0 302200000004 -AT6 031044 000004 0 0 000000000004 0 302200000004 -FT1A 031044 000004 0 0 000000000004 0 000000000004 -FT2 031044 000004 0 0 0 0 000000000004 -FT2RQ 031044 000004 0 0 000000000004 0 000000000004 -FT3 031044 000004 0 0 000000000004 0 000000000004 -FT9 031045 000004 0 0 000000000004 0 000000000004 -ET0 031046 000004 0 0 0 0 000000000004 -ST1A 031046 000004 0 0 0 0 000000000004 -ST9 031046 000004 0 0 0 0 000000000004 - - -*031046 JUMPA 0,031047 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031046 031046 0 0 324000031047 0 000000031047 -IT1 031046 0 0 0 324000031047 0 000000031047 -AT3 031046 0 0 0 000000031047 0 324000031047 -AT6 031046 031047 0 0 000000031047 0 324000031047 -FT1A 031046 031047 0 0 000000031047 0 000000031047 -FT2 031046 031047 0 0 0 0 000000031047 -FT2RQ 031046 031047 0 0 0 0 000000031047 -FT3 031046 031047 0 0 0 0 000000031047 -FT9 031047 031047 0 0 0 0 000000031047 -ET0 031047 031047 0 0 0 0 000000031047 -ST1A 031047 031047 0 0 0 0 000000031047 -ST9 031047 031047 0 0 0 0 000000031047 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 30 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0225 - -*031047 CAIE 3,000003 -INITIAL -C(AC)=000000 000003 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031047 031047 0 0 302140000003 0 000000000003 -IT1 031047 0 0 0 302140000003 0 000000000003 -AT3 031047 0 0 0 000000000003 0 302140000003 -AT6 031047 000003 0 0 000000000003 0 302140000003 -FT1A 031047 000003 0 0 000000000003 0 000000000003 -FT2 031047 000003 0 0 0 0 000000000003 -FT2RQ 031047 000003 0 0 000000000003 0 000000000003 -FT3 031047 000003 0 0 000000000003 0 000000000003 -FT9 031050 000003 0 0 000000000003 0 000000000003 -ET0 031051 000003 0 0 0 0 000000000003 -ST1A 031051 000003 0 0 0 0 000000000003 -ST9 031051 000003 0 0 0 0 000000000003 - - -*031051 JUMPA 0,031052 -INITIAL -C(AC)=000000 000000 -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 0 0 000000031052 -FT3 031051 031052 0 0 0 0 000000031052 -FT9 031052 031052 0 0 0 0 000000031052 -ET0 031052 031052 0 0 0 0 000000031052 -ST1A 031052 031052 0 0 0 0 000000031052 -ST9 031052 031052 0 0 0 0 000000031052 - - -*031052 CAIE 2,000002 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031052 031052 0 0 302100000002 0 000000000002 -IT1 031052 0 0 0 302100000002 0 000000000002 -AT3 031052 0 0 0 000000000002 0 302100000002 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 31 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0226 - -AT6 031052 000002 0 0 000000000002 0 302100000002 -FT1A 031052 000002 0 0 000000000002 0 000000000002 -FT2 031052 000002 0 0 0 0 000000000002 -FT2RQ 031052 000002 0 0 000000000002 0 000000000002 -FT3 031052 000002 0 0 000000000002 0 000000000002 -FT9 031053 000002 0 0 000000000002 0 000000000002 -ET0 031054 000002 0 0 0 0 000000000002 -ST1A 031054 000002 0 0 0 0 000000000002 -ST9 031054 000002 0 0 0 0 000000000002 - - -*031054 JUMPA 0,031055 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031054 031054 0 0 324000031055 0 000000031055 -IT1 031054 0 0 0 324000031055 0 000000031055 -AT3 031054 0 0 0 000000031055 0 324000031055 -AT6 031054 031055 0 0 000000031055 0 324000031055 -FT1A 031054 031055 0 0 000000031055 0 000000031055 -FT2 031054 031055 0 0 0 0 000000031055 -FT2RQ 031054 031055 0 0 0 0 000000031055 -FT3 031054 031055 0 0 0 0 000000031055 -FT9 031055 031055 0 0 0 0 000000031055 -ET0 031055 031055 0 0 0 0 000000031055 -ST1A 031055 031055 0 0 0 0 000000031055 -ST9 031055 031055 0 0 0 0 000000031055 - - -*031055 CAIE 1,000001 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031055 031055 0 0 302040000001 0 000000000001 -IT1 031055 0 0 0 302040000001 0 000000000001 -AT3 031055 0 0 0 000000000001 0 302040000001 -AT6 031055 000001 0 0 000000000001 0 302040000001 -FT1A 031055 000001 0 0 000000000001 0 000000000001 -FT2 031055 000001 0 0 0 0 000000000001 -FT2RQ 031055 000001 0 0 000000000001 0 000000000001 -FT3 031055 000001 0 0 000000000001 0 000000000001 -FT9 031056 000001 0 0 000000000001 0 000000000001 -ET0 031057 000001 0 0 0 0 000000000001 -ST1A 031057 000001 0 0 0 0 000000000001 -ST9 031057 000001 0 0 0 0 000000000001 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 32 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0227 - - -*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 CAIE 0,000000 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031060 031060 0 0 302000000000 0 0 -IT1 031060 0 0 0 302000000000 0 0 -AT3 031060 0 0 0 0 0 302000000000 -AT6 031060 0 0 0 0 0 302000000000 -FT1A 031060 0 0 0 0 0 0 -FT2 031060 0 0 0 0 0 0 -FT2RQ 031060 0 0 0 0 0 0 -FT3 031060 0 0 0 0 0 0 -FT9 031061 0 0 0 0 0 0 -ET0 031062 0 0 0 0 0 0 -ST1A 031062 0 0 0 0 0 0 -ST9 031062 0 0 0 0 0 0 - - -*031062 JUMPA 0,031063 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031062 031062 0 0 324000031063 0 000000031063 -IT1 031062 0 0 0 324000031063 0 000000031063 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 33 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0228 - -AT3 031062 0 0 0 000000031063 0 324000031063 -AT6 031062 031063 0 0 000000031063 0 324000031063 -FT1A 031062 031063 0 0 000000031063 0 000000031063 -FT2 031062 031063 0 0 0 0 000000031063 -FT2RQ 031062 031063 0 0 0 0 000000031063 -FT3 031062 031063 0 0 0 0 000000031063 -FT9 031063 031063 0 0 0 0 000000031063 -ET0 031063 031063 0 0 0 0 000000031063 -ST1A 031063 031063 0 0 0 0 000000031063 -ST9 031063 031063 0 0 0 0 000000031063 - - -*031063 MOVEI 0,000001 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031063 031063 0 0 201000000001 0 000000000001 -IT1 031063 0 0 0 201000000001 0 000000000001 -AT3 031063 0 0 0 000000000001 0 201000000001 -AT6 031063 000001 0 0 000000000001 0 201000000001 -FT1A 031063 000001 0 0 000000000001 0 000000000001 -FT9 031064 000001 0 0 000000000001 0 000000000001 -ET0 031064 000001 0 0 000000000001 0 000000000001 -ST1 031064 000001 0 0 000000000001 0 000000000001 -ST2 031064 000001 0 0 000000000001 0 000000000001 -ST9 031064 000001 0 0 000000000001 0 000000000001 - - -*031064 MOVEM 0,000001 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL - -C(E)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031064 031064 0 0 202000000001 0 000000000001 -IT1 031064 0 0 0 202000000001 0 000000000001 -AT3 031064 0 0 0 000000000001 0 202000000001 -AT6 031064 000001 0 0 000000000001 0 202000000001 -FT1A 031064 000001 0 0 000000000001 0 000000000001 -FT2 031064 000001 0 0 0 0 000000000001 -FT2RQ 031064 000001 0 0 000000000001 0 000000000001 -FT3 031064 000001 0 0 000000000001 0 000000000001 -FT9 031065 000001 0 0 000000000001 0 000000000001 -ET0 031065 000001 0 0 000000000001 0 000000000001 -ST6 031065 000001 0 0 000000000001 0 000000000001 -ST6A 031065 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 34 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0229 - -ST9 031065 000001 0 0 000000000001 0 000000000001 - - -*031065 MOVEI 0,000002 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 031065 031065 0 0 201000000002 0 000000000002 -IT1 031065 0 0 0 201000000002 0 000000000002 -AT3 031065 0 0 0 000000000002 0 201000000002 -AT6 031065 000002 0 0 000000000002 0 201000000002 -FT1A 031065 000002 0 0 000000000002 0 000000000002 -FT9 031066 000002 0 0 000000000002 0 000000000002 -ET0 031066 000002 0 0 000000000002 0 000000000002 -ST1 031066 000002 0 0 000000000002 0 000000000002 -ST2 031066 000002 0 0 000000000002 0 000000000002 -ST9 031066 000002 0 0 000000000002 0 000000000002 - - -*031066 MOVEM 0,000002 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000002 -FINAL - -C(E)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 031066 031066 0 0 202000000002 0 000000000002 -IT1 031066 0 0 0 202000000002 0 000000000002 -AT3 031066 0 0 0 000000000002 0 202000000002 -AT6 031066 000002 0 0 000000000002 0 202000000002 -FT1A 031066 000002 0 0 000000000002 0 000000000002 -FT2 031066 000002 0 0 0 0 000000000002 -FT2RQ 031066 000002 0 0 000000000002 0 000000000002 -FT3 031066 000002 0 0 000000000002 0 000000000002 -FT9 031067 000002 0 0 000000000002 0 000000000002 -ET0 031067 000002 0 0 000000000002 0 000000000002 -ST6 031067 000002 0 0 000000000002 0 000000000002 -ST6A 031067 000002 0 0 000000000002 0 000000000002 -ST9 031067 000002 0 0 000000000002 0 000000000002 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 35 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0230 - -*031067 MOVEI 0,000003 -INITIAL -C(AC)=000000 000002 -FINAL -C(AC)=000000 000003 - -TIME PC MA SC FE AR MQ BR -IT0 031067 031067 0 0 201000000003 0 000000000003 -IT1 031067 0 0 0 201000000003 0 000000000003 -AT3 031067 0 0 0 000000000003 0 201000000003 -AT6 031067 000003 0 0 000000000003 0 201000000003 -FT1A 031067 000003 0 0 000000000003 0 000000000003 -FT9 031070 000003 0 0 000000000003 0 000000000003 -ET0 031070 000003 0 0 000000000003 0 000000000003 -ST1 031070 000003 0 0 000000000003 0 000000000003 -ST2 031070 000003 0 0 000000000003 0 000000000003 -ST9 031070 000003 0 0 000000000003 0 000000000003 - - -*031070 MOVEM 0,000003 -INITIAL -C(AC)=000000 000003 -C(E)=000000 000003 -FINAL - -C(E)=000000 000003 - -TIME PC MA SC FE AR MQ BR -IT0 031070 031070 0 0 202000000003 0 000000000003 -IT1 031070 0 0 0 202000000003 0 000000000003 -AT3 031070 0 0 0 000000000003 0 202000000003 -AT6 031070 000003 0 0 000000000003 0 202000000003 -FT1A 031070 000003 0 0 000000000003 0 000000000003 -FT2 031070 000003 0 0 0 0 000000000003 -FT2RQ 031070 000003 0 0 000000000003 0 000000000003 -FT3 031070 000003 0 0 000000000003 0 000000000003 -FT9 031071 000003 0 0 000000000003 0 000000000003 -ET0 031071 000003 0 0 000000000003 0 000000000003 -ST6 031071 000003 0 0 000000000003 0 000000000003 -ST6A 031071 000003 0 0 000000000003 0 000000000003 -ST9 031071 000003 0 0 000000000003 0 000000000003 - - -*031071 MOVEI 0,000004 -INITIAL -C(AC)=000000 000003 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 031071 031071 0 0 201000000004 0 000000000004 -IT1 031071 0 0 0 201000000004 0 000000000004 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 36 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0231 - -AT3 031071 0 0 0 000000000004 0 201000000004 -AT6 031071 000004 0 0 000000000004 0 201000000004 -FT1A 031071 000004 0 0 000000000004 0 000000000004 -FT9 031072 000004 0 0 000000000004 0 000000000004 -ET0 031072 000004 0 0 000000000004 0 000000000004 -ST1 031072 000004 0 0 000000000004 0 000000000004 -ST2 031072 000004 0 0 000000000004 0 000000000004 -ST9 031072 000004 0 0 000000000004 0 000000000004 - - -*031072 MOVEM 0,000004 -INITIAL -C(AC)=000000 000004 -C(E)=000000 000004 -FINAL - -C(E)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 031072 031072 0 0 202000000004 0 000000000004 -IT1 031072 0 0 0 202000000004 0 000000000004 -AT3 031072 0 0 0 000000000004 0 202000000004 -AT6 031072 000004 0 0 000000000004 0 202000000004 -FT1A 031072 000004 0 0 000000000004 0 000000000004 -FT2 031072 000004 0 0 0 0 000000000004 -FT2RQ 031072 000004 0 0 000000000004 0 000000000004 -FT3 031072 000004 0 0 000000000004 0 000000000004 -FT9 031073 000004 0 0 000000000004 0 000000000004 -ET0 031073 000004 0 0 000000000004 0 000000000004 -ST6 031073 000004 0 0 000000000004 0 000000000004 -ST6A 031073 000004 0 0 000000000004 0 000000000004 -ST9 031073 000004 0 0 000000000004 0 000000000004 - - -*031073 MOVEI 0,000005 -INITIAL -C(AC)=000000 000004 -FINAL -C(AC)=000000 000005 - -TIME PC MA SC FE AR MQ BR -IT0 031073 031073 0 0 201000000005 0 000000000005 -IT1 031073 0 0 0 201000000005 0 000000000005 -AT3 031073 0 0 0 000000000005 0 201000000005 -AT6 031073 000005 0 0 000000000005 0 201000000005 -FT1A 031073 000005 0 0 000000000005 0 000000000005 -FT9 031074 000005 0 0 000000000005 0 000000000005 -ET0 031074 000005 0 0 000000000005 0 000000000005 -ST1 031074 000005 0 0 000000000005 0 000000000005 -ST2 031074 000005 0 0 000000000005 0 000000000005 -ST9 031074 000005 0 0 000000000005 0 000000000005 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 37 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0232 - - -*031074 MOVEM 0,000005 -INITIAL -C(AC)=000000 000005 -C(E)=000000 000005 -FINAL - -C(E)=000000 000005 - -TIME PC MA SC FE AR MQ BR -IT0 031074 031074 0 0 202000000005 0 000000000005 -IT1 031074 0 0 0 202000000005 0 000000000005 -AT3 031074 0 0 0 000000000005 0 202000000005 -AT6 031074 000005 0 0 000000000005 0 202000000005 -FT1A 031074 000005 0 0 000000000005 0 000000000005 -FT2 031074 000005 0 0 0 0 000000000005 -FT2RQ 031074 000005 0 0 000000000005 0 000000000005 -FT3 031074 000005 0 0 000000000005 0 000000000005 -FT9 031075 000005 0 0 000000000005 0 000000000005 -ET0 031075 000005 0 0 000000000005 0 000000000005 -ST6 031075 000005 0 0 000000000005 0 000000000005 -ST6A 031075 000005 0 0 000000000005 0 000000000005 -ST9 031075 000005 0 0 000000000005 0 000000000005 - - -*031075 MOVEI 0,000006 -INITIAL -C(AC)=000000 000005 -FINAL -C(AC)=000000 000006 - -TIME PC MA SC FE AR MQ BR -IT0 031075 031075 0 0 201000000006 0 000000000006 -IT1 031075 0 0 0 201000000006 0 000000000006 -AT3 031075 0 0 0 000000000006 0 201000000006 -AT6 031075 000006 0 0 000000000006 0 201000000006 -FT1A 031075 000006 0 0 000000000006 0 000000000006 -FT9 031076 000006 0 0 000000000006 0 000000000006 -ET0 031076 000006 0 0 000000000006 0 000000000006 -ST1 031076 000006 0 0 000000000006 0 000000000006 -ST2 031076 000006 0 0 000000000006 0 000000000006 -ST9 031076 000006 0 0 000000000006 0 000000000006 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 38 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0233 - -*031076 MOVEM 0,000006 -INITIAL -C(AC)=000000 000006 -C(E)=000000 000006 -FINAL - -C(E)=000000 000006 - -TIME PC MA SC FE AR MQ BR -IT0 031076 031076 0 0 202000000006 0 000000000006 -IT1 031076 0 0 0 202000000006 0 000000000006 -AT3 031076 0 0 0 000000000006 0 202000000006 -AT6 031076 000006 0 0 000000000006 0 202000000006 -FT1A 031076 000006 0 0 000000000006 0 000000000006 -FT2 031076 000006 0 0 0 0 000000000006 -FT2RQ 031076 000006 0 0 000000000006 0 000000000006 -FT3 031076 000006 0 0 000000000006 0 000000000006 -FT9 031077 000006 0 0 000000000006 0 000000000006 -ET0 031077 000006 0 0 000000000006 0 000000000006 -ST6 031077 000006 0 0 000000000006 0 000000000006 -ST6A 031077 000006 0 0 000000000006 0 000000000006 -ST9 031077 000006 0 0 000000000006 0 000000000006 - - -*031077 MOVEI 0,000007 -INITIAL -C(AC)=000000 000006 -FINAL -C(AC)=000000 000007 - -TIME PC MA SC FE AR MQ BR -IT0 031077 031077 0 0 201000000007 0 000000000007 -IT1 031077 0 0 0 201000000007 0 000000000007 -AT3 031077 0 0 0 000000000007 0 201000000007 -AT6 031077 000007 0 0 000000000007 0 201000000007 -FT1A 031077 000007 0 0 000000000007 0 000000000007 -FT9 0 000007 0 0 000000000007 0 000000000007 -ET0 0 000007 0 0 000000000007 0 000000000007 -ST1 0 000007 0 0 000000000007 0 000000000007 -ST2 0 000007 0 0 000000000007 0 000000000007 -ST9 0 000007 0 0 000000000007 0 000000000007 - - -*031100 MOVEM 0,000007 -INITIAL -C(AC)=000000 000007 -C(E)=000000 000007 -FINAL - -C(E)=000000 000007 - -TIME PC MA SC FE AR MQ BR -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 39 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0234 - -IT0 0 0 0 0 202000000007 0 000000000007 -IT1 0 0 0 0 202000000007 0 000000000007 -AT3 0 0 0 0 000000000007 0 202000000007 -AT6 0 000007 0 0 000000000007 0 202000000007 -FT1A 0 000007 0 0 000000000007 0 000000000007 -FT2 0 000007 0 0 0 0 000000000007 -FT2RQ 0 000007 0 0 000000000007 0 000000000007 -FT3 0 000007 0 0 000000000007 0 000000000007 -FT9 031101 000007 0 0 000000000007 0 000000000007 -ET0 031101 000007 0 0 000000000007 0 000000000007 -ST6 031101 000007 0 0 000000000007 0 000000000007 -ST6A 031101 000007 0 0 000000000007 0 000000000007 -ST9 031101 000007 0 0 000000000007 0 000000000007 - - -*031101 MOVEI 0,000010 -INITIAL -C(AC)=000000 000007 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 031101 031101 0 0 201000000010 0 000000000010 -IT1 031101 0 0 0 201000000010 0 000000000010 -AT3 031101 0 0 0 000000000010 0 201000000010 -AT6 031101 000010 0 0 000000000010 0 201000000010 -FT1A 031101 000010 0 0 000000000010 0 000000000010 -FT9 031102 000010 0 0 000000000010 0 000000000010 -ET0 031102 000010 0 0 000000000010 0 000000000010 -ST1 031102 000010 0 0 000000000010 0 000000000010 -ST2 031102 000010 0 0 000000000010 0 000000000010 -ST9 031102 000010 0 0 000000000010 0 000000000010 - - -*031102 MOVEM 0,000010 -INITIAL -C(AC)=000000 000010 -C(E)=000000 000010 -FINAL - -C(E)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 031102 031102 0 0 202000000010 0 000000000010 -IT1 031102 0 0 0 202000000010 0 000000000010 -AT3 031102 0 0 0 000000000010 0 202000000010 -AT6 031102 000010 0 0 000000000010 0 202000000010 -FT1A 031102 000010 0 0 000000000010 0 000000000010 -FT2 031102 000010 0 0 0 0 000000000010 -FT2RQ 031102 000010 0 0 000000000010 0 000000000010 -FT3 031102 000010 0 0 000000000010 0 000000000010 -FT9 031103 000010 0 0 000000000010 0 000000000010 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 40 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0235 - -ET0 031103 000010 0 0 000000000010 0 000000000010 -ST6 031103 000010 0 0 000000000010 0 000000000010 -ST6A 031103 000010 0 0 000000000010 0 000000000010 -ST9 031103 000010 0 0 000000000010 0 000000000010 - - -*031103 MOVEI 0,000011 -INITIAL -C(AC)=000000 000010 -FINAL -C(AC)=000000 000011 - -TIME PC MA SC FE AR MQ BR -IT0 031103 031103 0 0 201000000011 0 000000000011 -IT1 031103 0 0 0 201000000011 0 000000000011 -AT3 031103 0 0 0 000000000011 0 201000000011 -AT6 031103 000011 0 0 000000000011 0 201000000011 -FT1A 031103 000011 0 0 000000000011 0 000000000011 -FT9 031104 000011 0 0 000000000011 0 000000000011 -ET0 031104 000011 0 0 000000000011 0 000000000011 -ST1 031104 000011 0 0 000000000011 0 000000000011 -ST2 031104 000011 0 0 000000000011 0 000000000011 -ST9 031104 000011 0 0 000000000011 0 000000000011 - - -*031104 MOVEM 0,000011 -INITIAL -C(AC)=000000 000011 -C(E)=000000 000011 -FINAL - -C(E)=000000 000011 - -TIME PC MA SC FE AR MQ BR -IT0 031104 031104 0 0 202000000011 0 000000000011 -IT1 031104 0 0 0 202000000011 0 000000000011 -AT3 031104 0 0 0 000000000011 0 202000000011 -AT6 031104 000011 0 0 000000000011 0 202000000011 -FT1A 031104 000011 0 0 000000000011 0 000000000011 -FT2 031104 000011 0 0 0 0 000000000011 -FT2RQ 031104 000011 0 0 000000000011 0 000000000011 -FT3 031104 000011 0 0 000000000011 0 000000000011 -FT9 031105 000011 0 0 000000000011 0 000000000011 -ET0 031105 000011 0 0 000000000011 0 000000000011 -ST6 031105 000011 0 0 000000000011 0 000000000011 -ST6A 031105 000011 0 0 000000000011 0 000000000011 -ST9 031105 000011 0 0 000000000011 0 000000000011 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 41 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0236 - -*031105 MOVEI 0,000012 -INITIAL -C(AC)=000000 000011 -FINAL -C(AC)=000000 000012 - -TIME PC MA SC FE AR MQ BR -IT0 031105 031105 0 0 201000000012 0 000000000012 -IT1 031105 0 0 0 201000000012 0 000000000012 -AT3 031105 0 0 0 000000000012 0 201000000012 -AT6 031105 000012 0 0 000000000012 0 201000000012 -FT1A 031105 000012 0 0 000000000012 0 000000000012 -FT9 031106 000012 0 0 000000000012 0 000000000012 -ET0 031106 000012 0 0 000000000012 0 000000000012 -ST1 031106 000012 0 0 000000000012 0 000000000012 -ST2 031106 000012 0 0 000000000012 0 000000000012 -ST9 031106 000012 0 0 000000000012 0 000000000012 - - -*031106 MOVEM 0,000012 -INITIAL -C(AC)=000000 000012 -C(E)=000000 000012 -FINAL - -C(E)=000000 000012 - -TIME PC MA SC FE AR MQ BR -IT0 031106 031106 0 0 202000000012 0 000000000012 -IT1 031106 0 0 0 202000000012 0 000000000012 -AT3 031106 0 0 0 000000000012 0 202000000012 -AT6 031106 000012 0 0 000000000012 0 202000000012 -FT1A 031106 000012 0 0 000000000012 0 000000000012 -FT2 031106 000012 0 0 0 0 000000000012 -FT2RQ 031106 000012 0 0 000000000012 0 000000000012 -FT3 031106 000012 0 0 000000000012 0 000000000012 -FT9 031107 000012 0 0 000000000012 0 000000000012 -ET0 031107 000012 0 0 000000000012 0 000000000012 -ST6 031107 000012 0 0 000000000012 0 000000000012 -ST6A 031107 000012 0 0 000000000012 0 000000000012 -ST9 031107 000012 0 0 000000000012 0 000000000012 - - -*031107 MOVEI 0,000013 -INITIAL -C(AC)=000000 000012 -FINAL -C(AC)=000000 000013 - -TIME PC MA SC FE AR MQ BR -IT0 031107 031107 0 0 201000000013 0 000000000013 -IT1 031107 0 0 0 201000000013 0 000000000013 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 42 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0237 - -AT3 031107 0 0 0 000000000013 0 201000000013 -AT6 031107 000013 0 0 000000000013 0 201000000013 -FT1A 031107 000013 0 0 000000000013 0 000000000013 -FT9 031110 000013 0 0 000000000013 0 000000000013 -ET0 031110 000013 0 0 000000000013 0 000000000013 -ST1 031110 000013 0 0 000000000013 0 000000000013 -ST2 031110 000013 0 0 000000000013 0 000000000013 -ST9 031110 000013 0 0 000000000013 0 000000000013 - - -*031110 MOVEM 0,000013 -INITIAL -C(AC)=000000 000013 -C(E)=000000 000013 -FINAL - -C(E)=000000 000013 - -TIME PC MA SC FE AR MQ BR -IT0 031110 031110 0 0 202000000013 0 000000000013 -IT1 031110 0 0 0 202000000013 0 000000000013 -AT3 031110 0 0 0 000000000013 0 202000000013 -AT6 031110 000013 0 0 000000000013 0 202000000013 -FT1A 031110 000013 0 0 000000000013 0 000000000013 -FT2 031110 000013 0 0 0 0 000000000013 -FT2RQ 031110 000013 0 0 000000000013 0 000000000013 -FT3 031110 000013 0 0 000000000013 0 000000000013 -FT9 031111 000013 0 0 000000000013 0 000000000013 -ET0 031111 000013 0 0 000000000013 0 000000000013 -ST6 031111 000013 0 0 000000000013 0 000000000013 -ST6A 031111 000013 0 0 000000000013 0 000000000013 -ST9 031111 000013 0 0 000000000013 0 000000000013 - - -*031111 MOVEI 0,000014 -INITIAL -C(AC)=000000 000013 -FINAL -C(AC)=000000 000014 - -TIME PC MA SC FE AR MQ BR -IT0 031111 031111 0 0 201000000014 0 000000000014 -IT1 031111 0 0 0 201000000014 0 000000000014 -AT3 031111 0 0 0 000000000014 0 201000000014 -AT6 031111 000014 0 0 000000000014 0 201000000014 -FT1A 031111 000014 0 0 000000000014 0 000000000014 -FT9 031112 000014 0 0 000000000014 0 000000000014 -ET0 031112 000014 0 0 000000000014 0 000000000014 -ST1 031112 000014 0 0 000000000014 0 000000000014 -ST2 031112 000014 0 0 000000000014 0 000000000014 -ST9 031112 000014 0 0 000000000014 0 000000000014 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 43 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0238 - - -*031112 MOVEM 0,000014 -INITIAL -C(AC)=000000 000014 -C(E)=000000 000014 -FINAL - -C(E)=000000 000014 - -TIME PC MA SC FE AR MQ BR -IT0 031112 031112 0 0 202000000014 0 000000000014 -IT1 031112 0 0 0 202000000014 0 000000000014 -AT3 031112 0 0 0 000000000014 0 202000000014 -AT6 031112 000014 0 0 000000000014 0 202000000014 -FT1A 031112 000014 0 0 000000000014 0 000000000014 -FT2 031112 000014 0 0 0 0 000000000014 -FT2RQ 031112 000014 0 0 000000000014 0 000000000014 -FT3 031112 000014 0 0 000000000014 0 000000000014 -FT9 031113 000014 0 0 000000000014 0 000000000014 -ET0 031113 000014 0 0 000000000014 0 000000000014 -ST6 031113 000014 0 0 000000000014 0 000000000014 -ST6A 031113 000014 0 0 000000000014 0 000000000014 -ST9 031113 000014 0 0 000000000014 0 000000000014 - - -*031113 MOVEI 0,000015 -INITIAL -C(AC)=000000 000014 -FINAL -C(AC)=000000 000015 - -TIME PC MA SC FE AR MQ BR -IT0 031113 031113 0 0 201000000015 0 000000000015 -IT1 031113 0 0 0 201000000015 0 000000000015 -AT3 031113 0 0 0 000000000015 0 201000000015 -AT6 031113 000015 0 0 000000000015 0 201000000015 -FT1A 031113 000015 0 0 000000000015 0 000000000015 -FT9 031114 000015 0 0 000000000015 0 000000000015 -ET0 031114 000015 0 0 000000000015 0 000000000015 -ST1 031114 000015 0 0 000000000015 0 000000000015 -ST2 031114 000015 0 0 000000000015 0 000000000015 -ST9 031114 000015 0 0 000000000015 0 000000000015 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 44 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0239 - -*031114 MOVEM 0,000015 -INITIAL -C(AC)=000000 000015 -C(E)=000000 000015 -FINAL - -C(E)=000000 000015 - -TIME PC MA SC FE AR MQ BR -IT0 031114 031114 0 0 202000000015 0 000000000015 -IT1 031114 0 0 0 202000000015 0 000000000015 -AT3 031114 0 0 0 000000000015 0 202000000015 -AT6 031114 000015 0 0 000000000015 0 202000000015 -FT1A 031114 000015 0 0 000000000015 0 000000000015 -FT2 031114 000015 0 0 0 0 000000000015 -FT2RQ 031114 000015 0 0 000000000015 0 000000000015 -FT3 031114 000015 0 0 000000000015 0 000000000015 -FT9 031115 000015 0 0 000000000015 0 000000000015 -ET0 031115 000015 0 0 000000000015 0 000000000015 -ST6 031115 000015 0 0 000000000015 0 000000000015 -ST6A 031115 000015 0 0 000000000015 0 000000000015 -ST9 031115 000015 0 0 000000000015 0 000000000015 - - -*031115 MOVEI 0,000016 -INITIAL -C(AC)=000000 000015 -FINAL -C(AC)=000000 000016 - -TIME PC MA SC FE AR MQ BR -IT0 031115 031115 0 0 201000000016 0 000000000016 -IT1 031115 0 0 0 201000000016 0 000000000016 -AT3 031115 0 0 0 000000000016 0 201000000016 -AT6 031115 000016 0 0 000000000016 0 201000000016 -FT1A 031115 000016 0 0 000000000016 0 000000000016 -FT9 031116 000016 0 0 000000000016 0 000000000016 -ET0 031116 000016 0 0 000000000016 0 000000000016 -ST1 031116 000016 0 0 000000000016 0 000000000016 -ST2 031116 000016 0 0 000000000016 0 000000000016 -ST9 031116 000016 0 0 000000000016 0 000000000016 - - -*031116 MOVEM 0,000016 -INITIAL -C(AC)=000000 000016 -C(E)=000000 000016 -FINAL - -C(E)=000000 000016 - -TIME PC MA SC FE AR MQ BR -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 45 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0240 - -IT0 031116 031116 0 0 202000000016 0 000000000016 -IT1 031116 0 0 0 202000000016 0 000000000016 -AT3 031116 0 0 0 000000000016 0 202000000016 -AT6 031116 000016 0 0 000000000016 0 202000000016 -FT1A 031116 000016 0 0 000000000016 0 000000000016 -FT2 031116 000016 0 0 0 0 000000000016 -FT2RQ 031116 000016 0 0 000000000016 0 000000000016 -FT3 031116 000016 0 0 000000000016 0 000000000016 -FT9 031117 000016 0 0 000000000016 0 000000000016 -ET0 031117 000016 0 0 000000000016 0 000000000016 -ST6 031117 000016 0 0 000000000016 0 000000000016 -ST6A 031117 000016 0 0 000000000016 0 000000000016 -ST9 031117 000016 0 0 000000000016 0 000000000016 - - -*031117 MOVEI 0,000017 -INITIAL -C(AC)=000000 000016 -FINAL -C(AC)=000000 000017 - -TIME PC MA SC FE AR MQ BR -IT0 031117 031117 0 0 201000000017 0 000000000017 -IT1 031117 0 0 0 201000000017 0 000000000017 -AT3 031117 0 0 0 000000000017 0 201000000017 -AT6 031117 000017 0 0 000000000017 0 201000000017 -FT1A 031117 000017 0 0 000000000017 0 000000000017 -FT9 031120 000017 0 0 000000000017 0 000000000017 -ET0 031120 000017 0 0 000000000017 0 000000000017 -ST1 031120 000017 0 0 000000000017 0 000000000017 -ST2 031120 000017 0 0 000000000017 0 000000000017 -ST9 031120 000017 0 0 000000000017 0 000000000017 - - -*031120 MOVEM 0,000017 -INITIAL -C(AC)=000000 000017 -C(E)=000000 000017 -FINAL - -C(E)=000000 000017 - -TIME PC MA SC FE AR MQ BR -IT0 031120 031120 0 0 202000000017 0 000000000017 -IT1 031120 0 0 0 202000000017 0 000000000017 -AT3 031120 0 0 0 000000000017 0 202000000017 -AT6 031120 000017 0 0 000000000017 0 202000000017 -FT1A 031120 000017 0 0 000000000017 0 000000000017 -FT2 031120 000017 0 0 0 0 000000000017 -FT2RQ 031120 000017 0 0 000000000017 0 000000000017 -FT3 031120 000017 0 0 000000000017 0 000000000017 -FT9 031121 000017 0 0 000000000017 0 000000000017 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 46 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0241 - -ET0 031121 000017 0 0 000000000017 0 000000000017 -ST6 031121 000017 0 0 000000000017 0 000000000017 -ST6A 031121 000017 0 0 000000000017 0 000000000017 -ST9 031121 000017 0 0 000000000017 0 000000000017 - - -*031121 CAIE 17,000017 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031121 031121 0 0 302740000017 0 000000000017 -IT1 031121 0 0 0 302740000017 0 000000000017 -AT3 031121 0 0 0 000000000017 0 302740000017 -AT6 031121 000017 0 0 000000000017 0 302740000017 -FT1A 031121 000017 0 0 000000000017 0 000000000017 -FT2 031121 000017 0 0 0 0 000000000017 -FT2RQ 031121 000017 0 0 000000000017 0 000000000017 -FT3 031121 000017 0 0 000000000017 0 000000000017 -FT9 031122 000017 0 0 000000000017 0 000000000017 -ET0 031123 000017 0 0 0 0 000000000017 -ST1A 031123 000017 0 0 0 0 000000000017 -ST9 031123 000017 0 0 0 0 000000000017 - - -*031123 JUMPA 0,031124 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031123 031123 0 0 324000031124 0 000000031124 -IT1 031123 0 0 0 324000031124 0 000000031124 -AT3 031123 0 0 0 000000031124 0 324000031124 -AT6 031123 031124 0 0 000000031124 0 324000031124 -FT1A 031123 031124 0 0 000000031124 0 000000031124 -FT2 031123 031124 0 0 0 0 000000031124 -FT2RQ 031123 031124 0 0 000000000017 0 000000031124 -FT3 031123 031124 0 0 000000000017 0 000000031124 -FT9 031124 031124 0 0 000000000017 0 000000031124 -ET0 031124 031124 0 0 000000000017 0 000000031124 -ST1A 031124 031124 0 0 000000000017 0 000000031124 -ST9 031124 031124 0 0 000000000017 0 000000031124 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 47 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0242 - -*031124 CAIE 16,000016 -INITIAL -C(AC)=000000 000016 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031124 031124 0 0 302700000016 0 000000000016 -IT1 031124 0 0 0 302700000016 0 000000000016 -AT3 031124 0 0 0 000000000016 0 302700000016 -AT6 031124 000016 0 0 000000000016 0 302700000016 -FT1A 031124 000016 0 0 000000000016 0 000000000016 -FT2 031124 000016 0 0 0 0 000000000016 -FT2RQ 031124 000016 0 0 000000000016 0 000000000016 -FT3 031124 000016 0 0 000000000016 0 000000000016 -FT9 031125 000016 0 0 000000000016 0 000000000016 -ET0 031126 000016 0 0 0 0 000000000016 -ST1A 031126 000016 0 0 0 0 000000000016 -ST9 031126 000016 0 0 0 0 000000000016 - - -*031126 JUMPA 0,031127 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031126 031126 0 0 324000031127 0 000000031127 -IT1 031126 0 0 0 324000031127 0 000000031127 -AT3 031126 0 0 0 000000031127 0 324000031127 -AT6 031126 031127 0 0 000000031127 0 324000031127 -FT1A 031126 031127 0 0 000000031127 0 000000031127 -FT2 031126 031127 0 0 0 0 000000031127 -FT2RQ 031126 031127 0 0 000000000017 0 000000031127 -FT3 031126 031127 0 0 000000000017 0 000000031127 -FT9 031127 031127 0 0 000000000017 0 000000031127 -ET0 031127 031127 0 0 000000000017 0 000000031127 -ST1A 031127 031127 0 0 000000000017 0 000000031127 -ST9 031127 031127 0 0 000000000017 0 000000031127 - - -*031127 CAIE 15,000015 -INITIAL -C(AC)=000000 000015 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031127 031127 0 0 302640000015 0 000000000015 -IT1 031127 0 0 0 302640000015 0 000000000015 -AT3 031127 0 0 0 000000000015 0 302640000015 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 48 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0243 - -AT6 031127 000015 0 0 000000000015 0 302640000015 -FT1A 031127 000015 0 0 000000000015 0 000000000015 -FT2 031127 000015 0 0 0 0 000000000015 -FT2RQ 031127 000015 0 0 000000000015 0 000000000015 -FT3 031127 000015 0 0 000000000015 0 000000000015 -FT9 031130 000015 0 0 000000000015 0 000000000015 -ET0 031131 000015 0 0 0 0 000000000015 -ST1A 031131 000015 0 0 0 0 000000000015 -ST9 031131 000015 0 0 0 0 000000000015 - - -*031131 JUMPA 0,031132 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000031132 -FT3 031131 031132 0 0 000000000017 0 000000031132 -FT9 031132 031132 0 0 000000000017 0 000000031132 -ET0 031132 031132 0 0 000000000017 0 000000031132 -ST1A 031132 031132 0 0 000000000017 0 000000031132 -ST9 031132 031132 0 0 000000000017 0 000000031132 - - -*031132 CAIE 14,000014 -INITIAL -C(AC)=000000 000014 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031132 031132 0 0 302600000014 0 000000000014 -IT1 031132 0 0 0 302600000014 0 000000000014 -AT3 031132 0 0 0 000000000014 0 302600000014 -AT6 031132 000014 0 0 000000000014 0 302600000014 -FT1A 031132 000014 0 0 000000000014 0 000000000014 -FT2 031132 000014 0 0 0 0 000000000014 -FT2RQ 031132 000014 0 0 000000000014 0 000000000014 -FT3 031132 000014 0 0 000000000014 0 000000000014 -FT9 031133 000014 0 0 000000000014 0 000000000014 -ET0 031134 000014 0 0 0 0 000000000014 -ST1A 031134 000014 0 0 0 0 000000000014 -ST9 031134 000014 0 0 0 0 000000000014 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 49 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0244 - - -*031134 JUMPA 0,031135 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031134 031134 0 0 324000031135 0 000000031135 -IT1 031134 0 0 0 324000031135 0 000000031135 -AT3 031134 0 0 0 000000031135 0 324000031135 -AT6 031134 031135 0 0 000000031135 0 324000031135 -FT1A 031134 031135 0 0 000000031135 0 000000031135 -FT2 031134 031135 0 0 0 0 000000031135 -FT2RQ 031134 031135 0 0 000000000017 0 000000031135 -FT3 031134 031135 0 0 000000000017 0 000000031135 -FT9 031135 031135 0 0 000000000017 0 000000031135 -ET0 031135 031135 0 0 000000000017 0 000000031135 -ST1A 031135 031135 0 0 000000000017 0 000000031135 -ST9 031135 031135 0 0 000000000017 0 000000031135 - - -*031135 CAIE 13,000013 -INITIAL -C(AC)=000000 000013 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031135 031135 0 0 302540000013 0 000000000013 -IT1 031135 0 0 0 302540000013 0 000000000013 -AT3 031135 0 0 0 000000000013 0 302540000013 -AT6 031135 000013 0 0 000000000013 0 302540000013 -FT1A 031135 000013 0 0 000000000013 0 000000000013 -FT2 031135 000013 0 0 0 0 000000000013 -FT2RQ 031135 000013 0 0 000000000013 0 000000000013 -FT3 031135 000013 0 0 000000000013 0 000000000013 -FT9 031136 000013 0 0 000000000013 0 000000000013 -ET0 031137 000013 0 0 0 0 000000000013 -ST1A 031137 000013 0 0 0 0 000000000013 -ST9 031137 000013 0 0 0 0 000000000013 - - -*031137 JUMPA 0,031140 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031137 031137 0 0 324000031140 0 000000031140 -IT1 031137 0 0 0 324000031140 0 000000031140 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 50 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0245 - -AT3 031137 0 0 0 000000031140 0 324000031140 -AT6 031137 031140 0 0 000000031140 0 324000031140 -FT1A 031137 031140 0 0 000000031140 0 000000031140 -FT2 031137 031140 0 0 0 0 000000031140 -FT2RQ 031137 031140 0 0 000000000017 0 000000031140 -FT3 031137 031140 0 0 000000000017 0 000000031140 -FT9 031140 031140 0 0 000000000017 0 000000031140 -ET0 031140 031140 0 0 000000000017 0 000000031140 -ST1A 031140 031140 0 0 000000000017 0 000000031140 -ST9 031140 031140 0 0 000000000017 0 000000031140 - - -*031140 CAIE 12,000012 -INITIAL -C(AC)=000000 000012 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031140 031140 0 0 302500000012 0 000000000012 -IT1 031140 0 0 0 302500000012 0 000000000012 -AT3 031140 0 0 0 000000000012 0 302500000012 -AT6 031140 000012 0 0 000000000012 0 302500000012 -FT1A 031140 000012 0 0 000000000012 0 000000000012 -FT2 031140 000012 0 0 0 0 000000000012 -FT2RQ 031140 000012 0 0 000000000012 0 000000000012 -FT3 031140 000012 0 0 000000000012 0 000000000012 -FT9 031141 000012 0 0 000000000012 0 000000000012 -ET0 031142 000012 0 0 0 0 000000000012 -ST1A 031142 000012 0 0 0 0 000000000012 -ST9 031142 000012 0 0 0 0 000000000012 - - -*031142 JUMPA 0,031143 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031142 031142 0 0 324000031143 0 000000031143 -IT1 031142 0 0 0 324000031143 0 000000031143 -AT3 031142 0 0 0 000000031143 0 324000031143 -AT6 031142 031143 0 0 000000031143 0 324000031143 -FT1A 031142 031143 0 0 000000031143 0 000000031143 -FT2 031142 031143 0 0 0 0 000000031143 -FT2RQ 031142 031143 0 0 000000000017 0 000000031143 -FT3 031142 031143 0 0 000000000017 0 000000031143 -FT9 031143 031143 0 0 000000000017 0 000000031143 -ET0 031143 031143 0 0 000000000017 0 000000031143 -ST1A 031143 031143 0 0 000000000017 0 000000031143 -ST9 031143 031143 0 0 000000000017 0 000000031143 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 51 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0246 - - - -*031143 CAIE 11,000011 -INITIAL -C(AC)=000000 000011 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031143 031143 0 0 302440000011 0 000000000011 -IT1 031143 0 0 0 302440000011 0 000000000011 -AT3 031143 0 0 0 000000000011 0 302440000011 -AT6 031143 000011 0 0 000000000011 0 302440000011 -FT1A 031143 000011 0 0 000000000011 0 000000000011 -FT2 031143 000011 0 0 0 0 000000000011 -FT2RQ 031143 000011 0 0 000000000011 0 000000000011 -FT3 031143 000011 0 0 000000000011 0 000000000011 -FT9 031144 000011 0 0 000000000011 0 000000000011 -ET0 031145 000011 0 0 0 0 000000000011 -ST1A 031145 000011 0 0 0 0 000000000011 -ST9 031145 000011 0 0 0 0 000000000011 - - -*031145 JUMPA 0,031146 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031145 031145 0 0 324000031146 0 000000031146 -IT1 031145 0 0 0 324000031146 0 000000031146 -AT3 031145 0 0 0 000000031146 0 324000031146 -AT6 031145 031146 0 0 000000031146 0 324000031146 -FT1A 031145 031146 0 0 000000031146 0 000000031146 -FT2 031145 031146 0 0 0 0 000000031146 -FT2RQ 031145 031146 0 0 000000000017 0 000000031146 -FT3 031145 031146 0 0 000000000017 0 000000031146 -FT9 031146 031146 0 0 000000000017 0 000000031146 -ET0 031146 031146 0 0 000000000017 0 000000031146 -ST1A 031146 031146 0 0 000000000017 0 000000031146 -ST9 031146 031146 0 0 000000000017 0 000000031146 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 52 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0247 - -*031146 CAIE 10,000010 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031146 031146 0 0 302400000010 0 000000000010 -IT1 031146 0 0 0 302400000010 0 000000000010 -AT3 031146 0 0 0 000000000010 0 302400000010 -AT6 031146 000010 0 0 000000000010 0 302400000010 -FT1A 031146 000010 0 0 000000000010 0 000000000010 -FT2 031146 000010 0 0 0 0 000000000010 -FT2RQ 031146 000010 0 0 000000000010 0 000000000010 -FT3 031146 000010 0 0 000000000010 0 000000000010 -FT9 031147 000010 0 0 000000000010 0 000000000010 -ET0 031150 000010 0 0 0 0 000000000010 -ST1A 031150 000010 0 0 0 0 000000000010 -ST9 031150 000010 0 0 0 0 000000000010 - - -*031150 JUMPA 0,031151 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031150 031150 0 0 324000031151 0 000000031151 -IT1 031150 0 0 0 324000031151 0 000000031151 -AT3 031150 0 0 0 000000031151 0 324000031151 -AT6 031150 031151 0 0 000000031151 0 324000031151 -FT1A 031150 031151 0 0 000000031151 0 000000031151 -FT2 031150 031151 0 0 0 0 000000031151 -FT2RQ 031150 031151 0 0 000000000017 0 000000031151 -FT3 031150 031151 0 0 000000000017 0 000000031151 -FT9 031151 031151 0 0 000000000017 0 000000031151 -ET0 031151 031151 0 0 000000000017 0 000000031151 -ST1A 031151 031151 0 0 000000000017 0 000000031151 -ST9 031151 031151 0 0 000000000017 0 000000031151 - - -*031151 CAIE 7,000007 -INITIAL -C(AC)=000000 000007 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031151 031151 0 0 302340000007 0 000000000007 -IT1 031151 0 0 0 302340000007 0 000000000007 -AT3 031151 0 0 0 000000000007 0 302340000007 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 53 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0248 - -AT6 031151 000007 0 0 000000000007 0 302340000007 -FT1A 031151 000007 0 0 000000000007 0 000000000007 -FT2 031151 000007 0 0 0 0 000000000007 -FT2RQ 031151 000007 0 0 000000000007 0 000000000007 -FT3 031151 000007 0 0 000000000007 0 000000000007 -FT9 031152 000007 0 0 000000000007 0 000000000007 -ET0 031153 000007 0 0 0 0 000000000007 -ST1A 031153 000007 0 0 0 0 000000000007 -ST9 031153 000007 0 0 0 0 000000000007 - - -*031153 JUMPA 0,031154 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031153 031153 0 0 324000031154 0 000000031154 -IT1 031153 0 0 0 324000031154 0 000000031154 -AT3 031153 0 0 0 000000031154 0 324000031154 -AT6 031153 031154 0 0 000000031154 0 324000031154 -FT1A 031153 031154 0 0 000000031154 0 000000031154 -FT2 031153 031154 0 0 0 0 000000031154 -FT2RQ 031153 031154 0 0 000000000017 0 000000031154 -FT3 031153 031154 0 0 000000000017 0 000000031154 -FT9 031154 031154 0 0 000000000017 0 000000031154 -ET0 031154 031154 0 0 000000000017 0 000000031154 -ST1A 031154 031154 0 0 000000000017 0 000000031154 -ST9 031154 031154 0 0 000000000017 0 000000031154 - - -*031154 CAIE 6,000006 -INITIAL -C(AC)=000000 000006 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031154 031154 0 0 302300000006 0 000000000006 -IT1 031154 0 0 0 302300000006 0 000000000006 -AT3 031154 0 0 0 000000000006 0 302300000006 -AT6 031154 000006 0 0 000000000006 0 302300000006 -FT1A 031154 000006 0 0 000000000006 0 000000000006 -FT2 031154 000006 0 0 0 0 000000000006 -FT2RQ 031154 000006 0 0 000000000006 0 000000000006 -FT3 031154 000006 0 0 000000000006 0 000000000006 -FT9 031155 000006 0 0 000000000006 0 000000000006 -ET0 031156 000006 0 0 0 0 000000000006 -ST1A 031156 000006 0 0 0 0 000000000006 -ST9 031156 000006 0 0 0 0 000000000006 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 54 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0249 - - -*031156 JUMPA 0,031157 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031156 031156 0 0 324000031157 0 000000031157 -IT1 031156 0 0 0 324000031157 0 000000031157 -AT3 031156 0 0 0 000000031157 0 324000031157 -AT6 031156 031157 0 0 000000031157 0 324000031157 -FT1A 031156 031157 0 0 000000031157 0 000000031157 -FT2 031156 031157 0 0 0 0 000000031157 -FT2RQ 031156 031157 0 0 000000000017 0 000000031157 -FT3 031156 031157 0 0 000000000017 0 000000031157 -FT9 031157 031157 0 0 000000000017 0 000000031157 -ET0 031157 031157 0 0 000000000017 0 000000031157 -ST1A 031157 031157 0 0 000000000017 0 000000031157 -ST9 031157 031157 0 0 000000000017 0 000000031157 - - -*031157 CAIE 5,000005 -INITIAL -C(AC)=000000 000005 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031157 031157 0 0 302240000005 0 000000000005 -IT1 031157 0 0 0 302240000005 0 000000000005 -AT3 031157 0 0 0 000000000005 0 302240000005 -AT6 031157 000005 0 0 000000000005 0 302240000005 -FT1A 031157 000005 0 0 000000000005 0 000000000005 -FT2 031157 000005 0 0 0 0 000000000005 -FT2RQ 031157 000005 0 0 000000000005 0 000000000005 -FT3 031157 000005 0 0 000000000005 0 000000000005 -FT9 031160 000005 0 0 000000000005 0 000000000005 -ET0 031161 000005 0 0 0 0 000000000005 -ST1A 031161 000005 0 0 0 0 000000000005 -ST9 031161 000005 0 0 0 0 000000000005 - - -*031161 JUMPA 0,031162 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031161 031161 0 0 324000031162 0 000000031162 -IT1 031161 0 0 0 324000031162 0 000000031162 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 55 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0250 - -AT3 031161 0 0 0 000000031162 0 324000031162 -AT6 031161 031162 0 0 000000031162 0 324000031162 -FT1A 031161 031162 0 0 000000031162 0 000000031162 -FT2 031161 031162 0 0 0 0 000000031162 -FT2RQ 031161 031162 0 0 000000000017 0 000000031162 -FT3 031161 031162 0 0 000000000017 0 000000031162 -FT9 031162 031162 0 0 000000000017 0 000000031162 -ET0 031162 031162 0 0 000000000017 0 000000031162 -ST1A 031162 031162 0 0 000000000017 0 000000031162 -ST9 031162 031162 0 0 000000000017 0 000000031162 - - -*031162 CAIE 4,000004 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031162 031162 0 0 302200000004 0 000000000004 -IT1 031162 0 0 0 302200000004 0 000000000004 -AT3 031162 0 0 0 000000000004 0 302200000004 -AT6 031162 000004 0 0 000000000004 0 302200000004 -FT1A 031162 000004 0 0 000000000004 0 000000000004 -FT2 031162 000004 0 0 0 0 000000000004 -FT2RQ 031162 000004 0 0 000000000004 0 000000000004 -FT3 031162 000004 0 0 000000000004 0 000000000004 -FT9 031163 000004 0 0 000000000004 0 000000000004 -ET0 031164 000004 0 0 0 0 000000000004 -ST1A 031164 000004 0 0 0 0 000000000004 -ST9 031164 000004 0 0 0 0 000000000004 - - -*031164 JUMPA 0,031165 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031164 031164 0 0 324000031165 0 000000031165 -IT1 031164 0 0 0 324000031165 0 000000031165 -AT3 031164 0 0 0 000000031165 0 324000031165 -AT6 031164 031165 0 0 000000031165 0 324000031165 -FT1A 031164 031165 0 0 000000031165 0 000000031165 -FT2 031164 031165 0 0 0 0 000000031165 -FT2RQ 031164 031165 0 0 000000000017 0 000000031165 -FT3 031164 031165 0 0 000000000017 0 000000031165 -FT9 031165 031165 0 0 000000000017 0 000000031165 -ET0 031165 031165 0 0 000000000017 0 000000031165 -ST1A 031165 031165 0 0 000000000017 0 000000031165 -ST9 031165 031165 0 0 000000000017 0 000000031165 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 56 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0251 - - - -*031165 CAIE 3,000003 -INITIAL -C(AC)=000000 000003 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031165 031165 0 0 302140000003 0 000000000003 -IT1 031165 0 0 0 302140000003 0 000000000003 -AT3 031165 0 0 0 000000000003 0 302140000003 -AT6 031165 000003 0 0 000000000003 0 302140000003 -FT1A 031165 000003 0 0 000000000003 0 000000000003 -FT2 031165 000003 0 0 0 0 000000000003 -FT2RQ 031165 000003 0 0 000000000003 0 000000000003 -FT3 031165 000003 0 0 000000000003 0 000000000003 -FT9 031166 000003 0 0 000000000003 0 000000000003 -ET0 031167 000003 0 0 0 0 000000000003 -ST1A 031167 000003 0 0 0 0 000000000003 -ST9 031167 000003 0 0 0 0 000000000003 - - -*031167 JUMPA 0,031170 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031167 031167 0 0 324000031170 0 000000031170 -IT1 031167 0 0 0 324000031170 0 000000031170 -AT3 031167 0 0 0 000000031170 0 324000031170 -AT6 031167 031170 0 0 000000031170 0 324000031170 -FT1A 031167 031170 0 0 000000031170 0 000000031170 -FT2 031167 031170 0 0 0 0 000000031170 -FT2RQ 031167 031170 0 0 000000000017 0 000000031170 -FT3 031167 031170 0 0 000000000017 0 000000031170 -FT9 031170 031170 0 0 000000000017 0 000000031170 -ET0 031170 031170 0 0 000000000017 0 000000031170 -ST1A 031170 031170 0 0 000000000017 0 000000031170 -ST9 031170 031170 0 0 000000000017 0 000000031170 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 57 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0252 - -*031170 CAIE 2,000002 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031170 031170 0 0 302100000002 0 000000000002 -IT1 031170 0 0 0 302100000002 0 000000000002 -AT3 031170 0 0 0 000000000002 0 302100000002 -AT6 031170 000002 0 0 000000000002 0 302100000002 -FT1A 031170 000002 0 0 000000000002 0 000000000002 -FT2 031170 000002 0 0 0 0 000000000002 -FT2RQ 031170 000002 0 0 000000000002 0 000000000002 -FT3 031170 000002 0 0 000000000002 0 000000000002 -FT9 031171 000002 0 0 000000000002 0 000000000002 -ET0 031172 000002 0 0 0 0 000000000002 -ST1A 031172 000002 0 0 0 0 000000000002 -ST9 031172 000002 0 0 0 0 000000000002 - - -*031172 JUMPA 0,031173 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031172 031172 0 0 324000031173 0 000000031173 -IT1 031172 0 0 0 324000031173 0 000000031173 -AT3 031172 0 0 0 000000031173 0 324000031173 -AT6 031172 031173 0 0 000000031173 0 324000031173 -FT1A 031172 031173 0 0 000000031173 0 000000031173 -FT2 031172 031173 0 0 0 0 000000031173 -FT2RQ 031172 031173 0 0 000000000017 0 000000031173 -FT3 031172 031173 0 0 000000000017 0 000000031173 -FT9 031173 031173 0 0 000000000017 0 000000031173 -ET0 031173 031173 0 0 000000000017 0 000000031173 -ST1A 031173 031173 0 0 000000000017 0 000000031173 -ST9 031173 031173 0 0 000000000017 0 000000031173 - - -*031173 CAIE 1,000001 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031173 031173 0 0 302040000001 0 000000000001 -IT1 031173 0 0 0 302040000001 0 000000000001 -AT3 031173 0 0 0 000000000001 0 302040000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 58 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0253 - -AT6 031173 000001 0 0 000000000001 0 302040000001 -FT1A 031173 000001 0 0 000000000001 0 000000000001 -FT2 031173 000001 0 0 0 0 000000000001 -FT2RQ 031173 000001 0 0 000000000001 0 000000000001 -FT3 031173 000001 0 0 000000000001 0 000000000001 -FT9 031174 000001 0 0 000000000001 0 000000000001 -ET0 031175 000001 0 0 0 0 000000000001 -ST1A 031175 000001 0 0 0 0 000000000001 -ST9 031175 000001 0 0 0 0 000000000001 - - -*031175 JUMPA 0,031176 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000031176 -FT3 031175 031176 0 0 000000000017 0 000000031176 -FT9 031176 031176 0 0 000000000017 0 000000031176 -ET0 031176 031176 0 0 000000000017 0 000000031176 -ST1A 031176 031176 0 0 000000000017 0 000000031176 -ST9 031176 031176 0 0 000000000017 0 000000031176 - - -*031176 MOVEI 1,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031176 031176 0 0 201040000001 0 000000000001 -IT1 031176 0 0 0 201040000001 0 000000000001 -AT3 031176 0 0 0 000000000001 0 201040000001 -AT6 031176 000001 0 0 000000000001 0 201040000001 -FT1A 031176 000001 0 0 000000000001 0 000000000001 -FT9 031177 000001 0 0 000000000001 0 000000000001 -ET0 031177 000001 0 0 000000000001 0 000000000001 -ST1 031177 000001 0 0 000000000001 0 000000000001 -ST2 031177 000001 0 0 000000000001 0 000000000001 -ST9 031177 000001 0 0 000000000001 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 59 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0254 - -*031177 CAIE 1,000000(1) -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031177 031177 0 0 302041000000 0 000000000001 -IT1 031177 0 0 0 302041000000 0 000000000001 -AT1 031177 0 0 0 0 0 302041000000 -AT2 031177 0 0 0 000000000001 0 302041000000 -AT3 031177 0 0 0 000000000001 0 000000000001 -AT6 031177 000001 0 0 000000000001 0 000000000001 -FT1A 031177 000001 0 0 000000000001 0 000000000001 -FT2 031177 000001 0 0 0 0 000000000001 -FT2RQ 031177 000001 0 0 000000000001 0 000000000001 -FT3 031177 000001 0 0 000000000001 0 000000000001 -FT9 0 000001 0 0 000000000001 0 000000000001 -ET0 031201 000001 0 0 0 0 000000000001 -ST1A 031201 000001 0 0 0 0 000000000001 -ST9 031201 000001 0 0 0 0 000000000001 - - -*031201 JUMPA 0,031202 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031201 031201 0 0 324000031202 0 000000031202 -IT1 031201 0 0 0 324000031202 0 000000031202 -AT3 031201 0 0 0 000000031202 0 324000031202 -AT6 031201 031202 0 0 000000031202 0 324000031202 -FT1A 031201 031202 0 0 000000031202 0 000000031202 -FT2 031201 031202 0 0 0 0 000000031202 -FT2RQ 031201 031202 0 0 000000000017 0 000000031202 -FT3 031201 031202 0 0 000000000017 0 000000031202 -FT9 031202 031202 0 0 000000000017 0 000000031202 -ET0 031202 031202 0 0 000000000017 0 000000031202 -ST1A 031202 031202 0 0 000000000017 0 000000031202 -ST9 031202 031202 0 0 000000000017 0 000000031202 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 60 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0255 - -*031202 MOVEI 2,000002 -INITIAL -C(AC)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 031202 031202 0 0 201100000002 0 000000000002 -IT1 031202 0 0 0 201100000002 0 000000000002 -AT3 031202 0 0 0 000000000002 0 201100000002 -AT6 031202 000002 0 0 000000000002 0 201100000002 -FT1A 031202 000002 0 0 000000000002 0 000000000002 -FT9 031203 000002 0 0 000000000002 0 000000000002 -ET0 031203 000002 0 0 000000000002 0 000000000002 -ST1 031203 000002 0 0 000000000002 0 000000000002 -ST2 031203 000002 0 0 000000000002 0 000000000002 -ST9 031203 000002 0 0 000000000002 0 000000000002 - - -*031203 CAIE 2,000000(2) -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031203 031203 0 0 302102000000 0 000000000002 -IT1 031203 0 0 0 302102000000 0 000000000002 -AT1 031203 0 0 0 0 0 302102000000 -AT2 031203 0 0 0 000000000002 0 302102000000 -AT3 031203 0 0 0 000000000002 0 000000000002 -AT6 031203 000002 0 0 000000000002 0 000000000002 -FT1A 031203 000002 0 0 000000000002 0 000000000002 -FT2 031203 000002 0 0 0 0 000000000002 -FT2RQ 031203 000002 0 0 000000000002 0 000000000002 -FT3 031203 000002 0 0 000000000002 0 000000000002 -FT9 031204 000002 0 0 000000000002 0 000000000002 -ET0 031205 000002 0 0 0 0 000000000002 -ST1A 031205 000002 0 0 0 0 000000000002 -ST9 031205 000002 0 0 0 0 000000000002 - - -*031205 JUMPA 0,031206 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031205 031205 0 0 324000031206 0 000000031206 -IT1 031205 0 0 0 324000031206 0 000000031206 -AT3 031205 0 0 0 000000031206 0 324000031206 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 61 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0256 - -AT6 031205 031206 0 0 000000031206 0 324000031206 -FT1A 031205 031206 0 0 000000031206 0 000000031206 -FT2 031205 031206 0 0 0 0 000000031206 -FT2RQ 031205 031206 0 0 000000000017 0 000000031206 -FT3 031205 031206 0 0 000000000017 0 000000031206 -FT9 031206 031206 0 0 000000000017 0 000000031206 -ET0 031206 031206 0 0 000000000017 0 000000031206 -ST1A 031206 031206 0 0 000000000017 0 000000031206 -ST9 031206 031206 0 0 000000000017 0 000000031206 - - -*031206 MOVEI 3,000003 -INITIAL -C(AC)=000000 000003 -FINAL -C(AC)=000000 000003 - -TIME PC MA SC FE AR MQ BR -IT0 031206 031206 0 0 201140000003 0 000000000003 -IT1 031206 0 0 0 201140000003 0 000000000003 -AT3 031206 0 0 0 000000000003 0 201140000003 -AT6 031206 000003 0 0 000000000003 0 201140000003 -FT1A 031206 000003 0 0 000000000003 0 000000000003 -FT9 031207 000003 0 0 000000000003 0 000000000003 -ET0 031207 000003 0 0 000000000003 0 000000000003 -ST1 031207 000003 0 0 000000000003 0 000000000003 -ST2 031207 000003 0 0 000000000003 0 000000000003 -ST9 031207 000003 0 0 000000000003 0 000000000003 - - -*031207 CAIE 3,000000(3) -INITIAL -C(AC)=000000 000003 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031207 031207 0 0 302143000000 0 000000000003 -IT1 031207 0 0 0 302143000000 0 000000000003 -AT1 031207 0 0 0 0 0 302143000000 -AT2 031207 0 0 0 000000000003 0 302143000000 -AT3 031207 0 0 0 000000000003 0 000000000003 -AT6 031207 000003 0 0 000000000003 0 000000000003 -FT1A 031207 000003 0 0 000000000003 0 000000000003 -FT2 031207 000003 0 0 0 0 000000000003 -FT2RQ 031207 000003 0 0 000000000003 0 000000000003 -FT3 031207 000003 0 0 000000000003 0 000000000003 -FT9 031210 000003 0 0 000000000003 0 000000000003 -ET0 031211 000003 0 0 0 0 000000000003 -ST1A 031211 000003 0 0 0 0 000000000003 -ST9 031211 000003 0 0 0 0 000000000003 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 62 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0257 - - -*031211 JUMPA 0,031212 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031211 031211 0 0 324000031212 0 000000031212 -IT1 031211 0 0 0 324000031212 0 000000031212 -AT3 031211 0 0 0 000000031212 0 324000031212 -AT6 031211 031212 0 0 000000031212 0 324000031212 -FT1A 031211 031212 0 0 000000031212 0 000000031212 -FT2 031211 031212 0 0 0 0 000000031212 -FT2RQ 031211 031212 0 0 000000000017 0 000000031212 -FT3 031211 031212 0 0 000000000017 0 000000031212 -FT9 031212 031212 0 0 000000000017 0 000000031212 -ET0 031212 031212 0 0 000000000017 0 000000031212 -ST1A 031212 031212 0 0 000000000017 0 000000031212 -ST9 031212 031212 0 0 000000000017 0 000000031212 - - -*031212 MOVEI 4,000004 -INITIAL -C(AC)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 031212 031212 0 0 201200000004 0 000000000004 -IT1 031212 0 0 0 201200000004 0 000000000004 -AT3 031212 0 0 0 000000000004 0 201200000004 -AT6 031212 000004 0 0 000000000004 0 201200000004 -FT1A 031212 000004 0 0 000000000004 0 000000000004 -FT9 031213 000004 0 0 000000000004 0 000000000004 -ET0 031213 000004 0 0 000000000004 0 000000000004 -ST1 031213 000004 0 0 000000000004 0 000000000004 -ST2 031213 000004 0 0 000000000004 0 000000000004 -ST9 031213 000004 0 0 000000000004 0 000000000004 - - -*031213 CAIE 4,000000(4) -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031213 031213 0 0 302204000000 0 000000000004 -IT1 031213 0 0 0 302204000000 0 000000000004 -AT1 031213 0 0 0 0 0 302204000000 -AT2 031213 0 0 0 000000000004 0 302204000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 63 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0258 - -AT3 031213 0 0 0 000000000004 0 000000000004 -AT6 031213 000004 0 0 000000000004 0 000000000004 -FT1A 031213 000004 0 0 000000000004 0 000000000004 -FT2 031213 000004 0 0 0 0 000000000004 -FT2RQ 031213 000004 0 0 000000000004 0 000000000004 -FT3 031213 000004 0 0 000000000004 0 000000000004 -FT9 031214 000004 0 0 000000000004 0 000000000004 -ET0 031215 000004 0 0 0 0 000000000004 -ST1A 031215 000004 0 0 0 0 000000000004 -ST9 031215 000004 0 0 0 0 000000000004 - - -*031215 JUMPA 0,031216 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031215 031215 0 0 324000031216 0 000000031216 -IT1 031215 0 0 0 324000031216 0 000000031216 -AT3 031215 0 0 0 000000031216 0 324000031216 -AT6 031215 031216 0 0 000000031216 0 324000031216 -FT1A 031215 031216 0 0 000000031216 0 000000031216 -FT2 031215 031216 0 0 0 0 000000031216 -FT2RQ 031215 031216 0 0 000000000017 0 000000031216 -FT3 031215 031216 0 0 000000000017 0 000000031216 -FT9 031216 031216 0 0 000000000017 0 000000031216 -ET0 031216 031216 0 0 000000000017 0 000000031216 -ST1A 031216 031216 0 0 000000000017 0 000000031216 -ST9 031216 031216 0 0 000000000017 0 000000031216 - - -*031216 MOVEI 5,000005 -INITIAL -C(AC)=000000 000005 -FINAL -C(AC)=000000 000005 - -TIME PC MA SC FE AR MQ BR -IT0 031216 031216 0 0 201240000005 0 000000000005 -IT1 031216 0 0 0 201240000005 0 000000000005 -AT3 031216 0 0 0 000000000005 0 201240000005 -AT6 031216 000005 0 0 000000000005 0 201240000005 -FT1A 031216 000005 0 0 000000000005 0 000000000005 -FT9 031217 000005 0 0 000000000005 0 000000000005 -ET0 031217 000005 0 0 000000000005 0 000000000005 -ST1 031217 000005 0 0 000000000005 0 000000000005 -ST2 031217 000005 0 0 000000000005 0 000000000005 -ST9 031217 000005 0 0 000000000005 0 000000000005 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 64 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0259 - -*031217 CAIE 5,000000(5) -INITIAL -C(AC)=000000 000005 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031217 031217 0 0 302245000000 0 000000000005 -IT1 031217 0 0 0 302245000000 0 000000000005 -AT1 031217 0 0 0 0 0 302245000000 -AT2 031217 0 0 0 000000000005 0 302245000000 -AT3 031217 0 0 0 000000000005 0 000000000005 -AT6 031217 000005 0 0 000000000005 0 000000000005 -FT1A 031217 000005 0 0 000000000005 0 000000000005 -FT2 031217 000005 0 0 0 0 000000000005 -FT2RQ 031217 000005 0 0 000000000005 0 000000000005 -FT3 031217 000005 0 0 000000000005 0 000000000005 -FT9 031220 000005 0 0 000000000005 0 000000000005 -ET0 031221 000005 0 0 0 0 000000000005 -ST1A 031221 000005 0 0 0 0 000000000005 -ST9 031221 000005 0 0 0 0 000000000005 - - -*031221 JUMPA 0,031222 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031221 031221 0 0 324000031222 0 000000031222 -IT1 031221 0 0 0 324000031222 0 000000031222 -AT3 031221 0 0 0 000000031222 0 324000031222 -AT6 031221 031222 0 0 000000031222 0 324000031222 -FT1A 031221 031222 0 0 000000031222 0 000000031222 -FT2 031221 031222 0 0 0 0 000000031222 -FT2RQ 031221 031222 0 0 000000000017 0 000000031222 -FT3 031221 031222 0 0 000000000017 0 000000031222 -FT9 031222 031222 0 0 000000000017 0 000000031222 -ET0 031222 031222 0 0 000000000017 0 000000031222 -ST1A 031222 031222 0 0 000000000017 0 000000031222 -ST9 031222 031222 0 0 000000000017 0 000000031222 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 65 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0260 - -*031222 MOVEI 6,000006 -INITIAL -C(AC)=000000 000006 -FINAL -C(AC)=000000 000006 - -TIME PC MA SC FE AR MQ BR -IT0 031222 031222 0 0 201300000006 0 000000000006 -IT1 031222 0 0 0 201300000006 0 000000000006 -AT3 031222 0 0 0 000000000006 0 201300000006 -AT6 031222 000006 0 0 000000000006 0 201300000006 -FT1A 031222 000006 0 0 000000000006 0 000000000006 -FT9 031223 000006 0 0 000000000006 0 000000000006 -ET0 031223 000006 0 0 000000000006 0 000000000006 -ST1 031223 000006 0 0 000000000006 0 000000000006 -ST2 031223 000006 0 0 000000000006 0 000000000006 -ST9 031223 000006 0 0 000000000006 0 000000000006 - - -*031223 CAIE 6,000000(6) -INITIAL -C(AC)=000000 000006 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031223 031223 0 0 302306000000 0 000000000006 -IT1 031223 0 0 0 302306000000 0 000000000006 -AT1 031223 0 0 0 0 0 302306000000 -AT2 031223 0 0 0 000000000006 0 302306000000 -AT3 031223 0 0 0 000000000006 0 000000000006 -AT6 031223 000006 0 0 000000000006 0 000000000006 -FT1A 031223 000006 0 0 000000000006 0 000000000006 -FT2 031223 000006 0 0 0 0 000000000006 -FT2RQ 031223 000006 0 0 000000000006 0 000000000006 -FT3 031223 000006 0 0 000000000006 0 000000000006 -FT9 031224 000006 0 0 000000000006 0 000000000006 -ET0 031225 000006 0 0 0 0 000000000006 -ST1A 031225 000006 0 0 0 0 000000000006 -ST9 031225 000006 0 0 0 0 000000000006 - - -*031225 JUMPA 0,031226 -INITIAL -C(AC)=000000 000017 -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 -AT3 031225 0 0 0 000000031226 0 324000031226 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 66 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0261 - -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 000000000017 0 000000031226 -FT3 031225 031226 0 0 000000000017 0 000000031226 -FT9 031226 031226 0 0 000000000017 0 000000031226 -ET0 031226 031226 0 0 000000000017 0 000000031226 -ST1A 031226 031226 0 0 000000000017 0 000000031226 -ST9 031226 031226 0 0 000000000017 0 000000031226 - - -*031226 MOVEI 7,000007 -INITIAL -C(AC)=000000 000007 -FINAL -C(AC)=000000 000007 - -TIME PC MA SC FE AR MQ BR -IT0 031226 031226 0 0 201340000007 0 000000000007 -IT1 031226 0 0 0 201340000007 0 000000000007 -AT3 031226 0 0 0 000000000007 0 201340000007 -AT6 031226 000007 0 0 000000000007 0 201340000007 -FT1A 031226 000007 0 0 000000000007 0 000000000007 -FT9 031227 000007 0 0 000000000007 0 000000000007 -ET0 031227 000007 0 0 000000000007 0 000000000007 -ST1 031227 000007 0 0 000000000007 0 000000000007 -ST2 031227 000007 0 0 000000000007 0 000000000007 -ST9 031227 000007 0 0 000000000007 0 000000000007 - - -*031227 CAIE 7,000000(7) -INITIAL -C(AC)=000000 000007 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031227 031227 0 0 302347000000 0 000000000007 -IT1 031227 0 0 0 302347000000 0 000000000007 -AT1 031227 0 0 0 0 0 302347000000 -AT2 031227 0 0 0 000000000007 0 302347000000 -AT3 031227 0 0 0 000000000007 0 000000000007 -AT6 031227 000007 0 0 000000000007 0 000000000007 -FT1A 031227 000007 0 0 000000000007 0 000000000007 -FT2 031227 000007 0 0 0 0 000000000007 -FT2RQ 031227 000007 0 0 000000000007 0 000000000007 -FT3 031227 000007 0 0 000000000007 0 000000000007 -FT9 031230 000007 0 0 000000000007 0 000000000007 -ET0 031231 000007 0 0 0 0 000000000007 -ST1A 031231 000007 0 0 0 0 000000000007 -ST9 031231 000007 0 0 0 0 000000000007 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 67 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0262 - - -*031231 JUMPA 0,031232 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031231 031231 0 0 324000031232 0 000000031232 -IT1 031231 0 0 0 324000031232 0 000000031232 -AT3 031231 0 0 0 000000031232 0 324000031232 -AT6 031231 031232 0 0 000000031232 0 324000031232 -FT1A 031231 031232 0 0 000000031232 0 000000031232 -FT2 031231 031232 0 0 0 0 000000031232 -FT2RQ 031231 031232 0 0 000000000017 0 000000031232 -FT3 031231 031232 0 0 000000000017 0 000000031232 -FT9 031232 031232 0 0 000000000017 0 000000031232 -ET0 031232 031232 0 0 000000000017 0 000000031232 -ST1A 031232 031232 0 0 000000000017 0 000000031232 -ST9 031232 031232 0 0 000000000017 0 000000031232 - - -*031232 MOVEI 10,000010 -INITIAL -C(AC)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 031232 031232 0 0 201400000010 0 000000000010 -IT1 031232 0 0 0 201400000010 0 000000000010 -AT3 031232 0 0 0 000000000010 0 201400000010 -AT6 031232 000010 0 0 000000000010 0 201400000010 -FT1A 031232 000010 0 0 000000000010 0 000000000010 -FT9 031233 000010 0 0 000000000010 0 000000000010 -ET0 031233 000010 0 0 000000000010 0 000000000010 -ST1 031233 000010 0 0 000000000010 0 000000000010 -ST2 031233 000010 0 0 000000000010 0 000000000010 -ST9 031233 000010 0 0 000000000010 0 000000000010 - - -*031233 CAIE 10,000000(10) -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031233 031233 0 0 302410000000 0 000000000010 -IT1 031233 0 0 0 302410000000 0 000000000010 -AT1 031233 0 0 0 0 0 302410000000 -AT2 031233 0 0 0 000000000010 0 302410000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 68 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0263 - -AT3 031233 0 0 0 000000000010 0 000000000010 -AT6 031233 000010 0 0 000000000010 0 000000000010 -FT1A 031233 000010 0 0 000000000010 0 000000000010 -FT2 031233 000010 0 0 0 0 000000000010 -FT2RQ 031233 000010 0 0 000000000010 0 000000000010 -FT3 031233 000010 0 0 000000000010 0 000000000010 -FT9 031234 000010 0 0 000000000010 0 000000000010 -ET0 031235 000010 0 0 0 0 000000000010 -ST1A 031235 000010 0 0 0 0 000000000010 -ST9 031235 000010 0 0 0 0 000000000010 - - -*031235 JUMPA 0,031236 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031235 031235 0 0 324000031236 0 000000031236 -IT1 031235 0 0 0 324000031236 0 000000031236 -AT3 031235 0 0 0 000000031236 0 324000031236 -AT6 031235 031236 0 0 000000031236 0 324000031236 -FT1A 031235 031236 0 0 000000031236 0 000000031236 -FT2 031235 031236 0 0 0 0 000000031236 -FT2RQ 031235 031236 0 0 000000000017 0 000000031236 -FT3 031235 031236 0 0 000000000017 0 000000031236 -FT9 031236 031236 0 0 000000000017 0 000000031236 -ET0 031236 031236 0 0 000000000017 0 000000031236 -ST1A 031236 031236 0 0 000000000017 0 000000031236 -ST9 031236 031236 0 0 000000000017 0 000000031236 - - -*031236 MOVEI 11,000011 -INITIAL -C(AC)=000000 000011 -FINAL -C(AC)=000000 000011 - -TIME PC MA SC FE AR MQ BR -IT0 031236 031236 0 0 201440000011 0 000000000011 -IT1 031236 0 0 0 201440000011 0 000000000011 -AT3 031236 0 0 0 000000000011 0 201440000011 -AT6 031236 000011 0 0 000000000011 0 201440000011 -FT1A 031236 000011 0 0 000000000011 0 000000000011 -FT9 031237 000011 0 0 000000000011 0 000000000011 -ET0 031237 000011 0 0 000000000011 0 000000000011 -ST1 031237 000011 0 0 000000000011 0 000000000011 -ST2 031237 000011 0 0 000000000011 0 000000000011 -ST9 031237 000011 0 0 000000000011 0 000000000011 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 69 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0264 - -*031237 CAIE 11,000000(11) -INITIAL -C(AC)=000000 000011 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031237 031237 0 0 302451000000 0 000000000011 -IT1 031237 0 0 0 302451000000 0 000000000011 -AT1 031237 0 0 0 0 0 302451000000 -AT2 031237 0 0 0 000000000011 0 302451000000 -AT3 031237 0 0 0 000000000011 0 000000000011 -AT6 031237 000011 0 0 000000000011 0 000000000011 -FT1A 031237 000011 0 0 000000000011 0 000000000011 -FT2 031237 000011 0 0 0 0 000000000011 -FT2RQ 031237 000011 0 0 000000000011 0 000000000011 -FT3 031237 000011 0 0 000000000011 0 000000000011 -FT9 031240 000011 0 0 000000000011 0 000000000011 -ET0 031241 000011 0 0 0 0 000000000011 -ST1A 031241 000011 0 0 0 0 000000000011 -ST9 031241 000011 0 0 0 0 000000000011 - - -*031241 JUMPA 0,031242 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031241 031241 0 0 324000031242 0 000000031242 -IT1 031241 0 0 0 324000031242 0 000000031242 -AT3 031241 0 0 0 000000031242 0 324000031242 -AT6 031241 031242 0 0 000000031242 0 324000031242 -FT1A 031241 031242 0 0 000000031242 0 000000031242 -FT2 031241 031242 0 0 0 0 000000031242 -FT2RQ 031241 031242 0 0 000000000017 0 000000031242 -FT3 031241 031242 0 0 000000000017 0 000000031242 -FT9 031242 031242 0 0 000000000017 0 000000031242 -ET0 031242 031242 0 0 000000000017 0 000000031242 -ST1A 031242 031242 0 0 000000000017 0 000000031242 -ST9 031242 031242 0 0 000000000017 0 000000031242 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 70 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0265 - -*031242 MOVEI 12,000012 -INITIAL -C(AC)=000000 000012 -FINAL -C(AC)=000000 000012 - -TIME PC MA SC FE AR MQ BR -IT0 031242 031242 0 0 201500000012 0 000000000012 -IT1 031242 0 0 0 201500000012 0 000000000012 -AT3 031242 0 0 0 000000000012 0 201500000012 -AT6 031242 000012 0 0 000000000012 0 201500000012 -FT1A 031242 000012 0 0 000000000012 0 000000000012 -FT9 031243 000012 0 0 000000000012 0 000000000012 -ET0 031243 000012 0 0 000000000012 0 000000000012 -ST1 031243 000012 0 0 000000000012 0 000000000012 -ST2 031243 000012 0 0 000000000012 0 000000000012 -ST9 031243 000012 0 0 000000000012 0 000000000012 - - -*031243 CAIE 12,000000(12) -INITIAL -C(AC)=000000 000012 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031243 031243 0 0 302512000000 0 000000000012 -IT1 031243 0 0 0 302512000000 0 000000000012 -AT1 031243 0 0 0 0 0 302512000000 -AT2 031243 0 0 0 000000000012 0 302512000000 -AT3 031243 0 0 0 000000000012 0 000000000012 -AT6 031243 000012 0 0 000000000012 0 000000000012 -FT1A 031243 000012 0 0 000000000012 0 000000000012 -FT2 031243 000012 0 0 0 0 000000000012 -FT2RQ 031243 000012 0 0 000000000012 0 000000000012 -FT3 031243 000012 0 0 000000000012 0 000000000012 -FT9 031244 000012 0 0 000000000012 0 000000000012 -ET0 031245 000012 0 0 0 0 000000000012 -ST1A 031245 000012 0 0 0 0 000000000012 -ST9 031245 000012 0 0 0 0 000000000012 - - -*031245 JUMPA 0,031246 -INITIAL -C(AC)=000000 000017 -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 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 71 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0266 - -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 000000000017 0 000000031246 -FT3 031245 031246 0 0 000000000017 0 000000031246 -FT9 031246 031246 0 0 000000000017 0 000000031246 -ET0 031246 031246 0 0 000000000017 0 000000031246 -ST1A 031246 031246 0 0 000000000017 0 000000031246 -ST9 031246 031246 0 0 000000000017 0 000000031246 - - -*031246 MOVEI 13,000013 -INITIAL -C(AC)=000000 000013 -FINAL -C(AC)=000000 000013 - -TIME PC MA SC FE AR MQ BR -IT0 031246 031246 0 0 201540000013 0 000000000013 -IT1 031246 0 0 0 201540000013 0 000000000013 -AT3 031246 0 0 0 000000000013 0 201540000013 -AT6 031246 000013 0 0 000000000013 0 201540000013 -FT1A 031246 000013 0 0 000000000013 0 000000000013 -FT9 031247 000013 0 0 000000000013 0 000000000013 -ET0 031247 000013 0 0 000000000013 0 000000000013 -ST1 031247 000013 0 0 000000000013 0 000000000013 -ST2 031247 000013 0 0 000000000013 0 000000000013 -ST9 031247 000013 0 0 000000000013 0 000000000013 - - -*031247 CAIE 13,000000(13) -INITIAL -C(AC)=000000 000013 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031247 031247 0 0 302553000000 0 000000000013 -IT1 031247 0 0 0 302553000000 0 000000000013 -AT1 031247 0 0 0 0 0 302553000000 -AT2 031247 0 0 0 000000000013 0 302553000000 -AT3 031247 0 0 0 000000000013 0 000000000013 -AT6 031247 000013 0 0 000000000013 0 000000000013 -FT1A 031247 000013 0 0 000000000013 0 000000000013 -FT2 031247 000013 0 0 0 0 000000000013 -FT2RQ 031247 000013 0 0 000000000013 0 000000000013 -FT3 031247 000013 0 0 000000000013 0 000000000013 -FT9 031250 000013 0 0 000000000013 0 000000000013 -ET0 031251 000013 0 0 0 0 000000000013 -ST1A 031251 000013 0 0 0 0 000000000013 -ST9 031251 000013 0 0 0 0 000000000013 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 72 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0267 - - -*031251 JUMPA 0,031252 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031251 031251 0 0 324000031252 0 000000031252 -IT1 031251 0 0 0 324000031252 0 000000031252 -AT3 031251 0 0 0 000000031252 0 324000031252 -AT6 031251 031252 0 0 000000031252 0 324000031252 -FT1A 031251 031252 0 0 000000031252 0 000000031252 -FT2 031251 031252 0 0 0 0 000000031252 -FT2RQ 031251 031252 0 0 000000000017 0 000000031252 -FT3 031251 031252 0 0 000000000017 0 000000031252 -FT9 031252 031252 0 0 000000000017 0 000000031252 -ET0 031252 031252 0 0 000000000017 0 000000031252 -ST1A 031252 031252 0 0 000000000017 0 000000031252 -ST9 031252 031252 0 0 000000000017 0 000000031252 - - -*031252 MOVEI 14,000014 -INITIAL -C(AC)=000000 000014 -FINAL -C(AC)=000000 000014 - -TIME PC MA SC FE AR MQ BR -IT0 031252 031252 0 0 201600000014 0 000000000014 -IT1 031252 0 0 0 201600000014 0 000000000014 -AT3 031252 0 0 0 000000000014 0 201600000014 -AT6 031252 000014 0 0 000000000014 0 201600000014 -FT1A 031252 000014 0 0 000000000014 0 000000000014 -FT9 031253 000014 0 0 000000000014 0 000000000014 -ET0 031253 000014 0 0 000000000014 0 000000000014 -ST1 031253 000014 0 0 000000000014 0 000000000014 -ST2 031253 000014 0 0 000000000014 0 000000000014 -ST9 031253 000014 0 0 000000000014 0 000000000014 - - -*031253 CAIE 14,000000(14) -INITIAL -C(AC)=000000 000014 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031253 031253 0 0 302614000000 0 000000000014 -IT1 031253 0 0 0 302614000000 0 000000000014 -AT1 031253 0 0 0 0 0 302614000000 -AT2 031253 0 0 0 000000000014 0 302614000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 73 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0268 - -AT3 031253 0 0 0 000000000014 0 000000000014 -AT6 031253 000014 0 0 000000000014 0 000000000014 -FT1A 031253 000014 0 0 000000000014 0 000000000014 -FT2 031253 000014 0 0 0 0 000000000014 -FT2RQ 031253 000014 0 0 000000000014 0 000000000014 -FT3 031253 000014 0 0 000000000014 0 000000000014 -FT9 031254 000014 0 0 000000000014 0 000000000014 -ET0 031255 000014 0 0 0 0 000000000014 -ST1A 031255 000014 0 0 0 0 000000000014 -ST9 031255 000014 0 0 0 0 000000000014 - - -*031255 JUMPA 0,031256 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031255 031255 0 0 324000031256 0 000000031256 -IT1 031255 0 0 0 324000031256 0 000000031256 -AT3 031255 0 0 0 000000031256 0 324000031256 -AT6 031255 031256 0 0 000000031256 0 324000031256 -FT1A 031255 031256 0 0 000000031256 0 000000031256 -FT2 031255 031256 0 0 0 0 000000031256 -FT2RQ 031255 031256 0 0 000000000017 0 000000031256 -FT3 031255 031256 0 0 000000000017 0 000000031256 -FT9 031256 031256 0 0 000000000017 0 000000031256 -ET0 031256 031256 0 0 000000000017 0 000000031256 -ST1A 031256 031256 0 0 000000000017 0 000000031256 -ST9 031256 031256 0 0 000000000017 0 000000031256 - - -*031256 MOVEI 15,000015 -INITIAL -C(AC)=000000 000015 -FINAL -C(AC)=000000 000015 - -TIME PC MA SC FE AR MQ BR -IT0 031256 031256 0 0 201640000015 0 000000000015 -IT1 031256 0 0 0 201640000015 0 000000000015 -AT3 031256 0 0 0 000000000015 0 201640000015 -AT6 031256 000015 0 0 000000000015 0 201640000015 -FT1A 031256 000015 0 0 000000000015 0 000000000015 -FT9 031257 000015 0 0 000000000015 0 000000000015 -ET0 031257 000015 0 0 000000000015 0 000000000015 -ST1 031257 000015 0 0 000000000015 0 000000000015 -ST2 031257 000015 0 0 000000000015 0 000000000015 -ST9 031257 000015 0 0 000000000015 0 000000000015 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 74 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0269 - -*031257 CAIE 15,000000(15) -INITIAL -C(AC)=000000 000015 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031257 031257 0 0 302655000000 0 000000000015 -IT1 031257 0 0 0 302655000000 0 000000000015 -AT1 031257 0 0 0 0 0 302655000000 -AT2 031257 0 0 0 000000000015 0 302655000000 -AT3 031257 0 0 0 000000000015 0 000000000015 -AT6 031257 000015 0 0 000000000015 0 000000000015 -FT1A 031257 000015 0 0 000000000015 0 000000000015 -FT2 031257 000015 0 0 0 0 000000000015 -FT2RQ 031257 000015 0 0 000000000015 0 000000000015 -FT3 031257 000015 0 0 000000000015 0 000000000015 -FT9 031260 000015 0 0 000000000015 0 000000000015 -ET0 031261 000015 0 0 0 0 000000000015 -ST1A 031261 000015 0 0 0 0 000000000015 -ST9 031261 000015 0 0 0 0 000000000015 - - -*031261 JUMPA 0,031262 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000031262 -FT3 031261 031262 0 0 000000000017 0 000000031262 -FT9 031262 031262 0 0 000000000017 0 000000031262 -ET0 031262 031262 0 0 000000000017 0 000000031262 -ST1A 031262 031262 0 0 000000000017 0 000000031262 -ST9 031262 031262 0 0 000000000017 0 000000031262 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 75 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0270 - -*031262 MOVEI 16,000016 -INITIAL -C(AC)=000000 000016 -FINAL -C(AC)=000000 000016 - -TIME PC MA SC FE AR MQ BR -IT0 031262 031262 0 0 201700000016 0 000000000016 -IT1 031262 0 0 0 201700000016 0 000000000016 -AT3 031262 0 0 0 000000000016 0 201700000016 -AT6 031262 000016 0 0 000000000016 0 201700000016 -FT1A 031262 000016 0 0 000000000016 0 000000000016 -FT9 031263 000016 0 0 000000000016 0 000000000016 -ET0 031263 000016 0 0 000000000016 0 000000000016 -ST1 031263 000016 0 0 000000000016 0 000000000016 -ST2 031263 000016 0 0 000000000016 0 000000000016 -ST9 031263 000016 0 0 000000000016 0 000000000016 - - -*031263 CAIE 16,000000(16) -INITIAL -C(AC)=000000 000016 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031263 031263 0 0 302716000000 0 000000000016 -IT1 031263 0 0 0 302716000000 0 000000000016 -AT1 031263 0 0 0 0 0 302716000000 -AT2 031263 0 0 0 000000000016 0 302716000000 -AT3 031263 0 0 0 000000000016 0 000000000016 -AT6 031263 000016 0 0 000000000016 0 000000000016 -FT1A 031263 000016 0 0 000000000016 0 000000000016 -FT2 031263 000016 0 0 0 0 000000000016 -FT2RQ 031263 000016 0 0 000000000016 0 000000000016 -FT3 031263 000016 0 0 000000000016 0 000000000016 -FT9 031264 000016 0 0 000000000016 0 000000000016 -ET0 031265 000016 0 0 0 0 000000000016 -ST1A 031265 000016 0 0 0 0 000000000016 -ST9 031265 000016 0 0 0 0 000000000016 - - -*031265 JUMPA 0,031266 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031265 031265 0 0 324000031266 0 000000031266 -IT1 031265 0 0 0 324000031266 0 000000031266 -AT3 031265 0 0 0 000000031266 0 324000031266 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 76 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0271 - -AT6 031265 031266 0 0 000000031266 0 324000031266 -FT1A 031265 031266 0 0 000000031266 0 000000031266 -FT2 031265 031266 0 0 0 0 000000031266 -FT2RQ 031265 031266 0 0 000000000017 0 000000031266 -FT3 031265 031266 0 0 000000000017 0 000000031266 -FT9 031266 031266 0 0 000000000017 0 000000031266 -ET0 031266 031266 0 0 000000000017 0 000000031266 -ST1A 031266 031266 0 0 000000000017 0 000000031266 -ST9 031266 031266 0 0 000000000017 0 000000031266 - - -*031266 MOVEI 17,000017 -INITIAL -C(AC)=000000 000017 -FINAL -C(AC)=000000 000017 - -TIME PC MA SC FE AR MQ BR -IT0 031266 031266 0 0 201740000017 0 000000000017 -IT1 031266 0 0 0 201740000017 0 000000000017 -AT3 031266 0 0 0 000000000017 0 201740000017 -AT6 031266 000017 0 0 000000000017 0 201740000017 -FT1A 031266 000017 0 0 000000000017 0 000000000017 -FT9 031267 000017 0 0 000000000017 0 000000000017 -ET0 031267 000017 0 0 000000000017 0 000000000017 -ST1 031267 000017 0 0 000000000017 0 000000000017 -ST2 031267 000017 0 0 000000000017 0 000000000017 -ST9 031267 000017 0 0 000000000017 0 000000000017 - - -*031267 CAIE 17,000000(17) -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031267 031267 0 0 302757000000 0 000000000017 -IT1 031267 0 0 0 302757000000 0 000000000017 -AT1 031267 0 0 0 0 0 302757000000 -AT2 031267 0 0 0 000000000017 0 302757000000 -AT3 031267 0 0 0 000000000017 0 000000000017 -AT6 031267 000017 0 0 000000000017 0 000000000017 -FT1A 031267 000017 0 0 000000000017 0 000000000017 -FT2 031267 000017 0 0 0 0 000000000017 -FT2RQ 031267 000017 0 0 000000000017 0 000000000017 -FT3 031267 000017 0 0 000000000017 0 000000000017 -FT9 031270 000017 0 0 000000000017 0 000000000017 -ET0 031271 000017 0 0 0 0 000000000017 -ST1A 031271 000017 0 0 0 0 000000000017 -ST9 031271 000017 0 0 0 0 000000000017 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 77 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0272 - - -*031271 JUMPA 0,031272 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031271 031271 0 0 324000031272 0 000000031272 -IT1 031271 0 0 0 324000031272 0 000000031272 -AT3 031271 0 0 0 000000031272 0 324000031272 -AT6 031271 031272 0 0 000000031272 0 324000031272 -FT1A 031271 031272 0 0 000000031272 0 000000031272 -FT2 031271 031272 0 0 0 0 000000031272 -FT2RQ 031271 031272 0 0 000000000017 0 000000031272 -FT3 031271 031272 0 0 000000000017 0 000000031272 -FT9 031272 031272 0 0 000000000017 0 000000031272 -ET0 031272 031272 0 0 000000000017 0 000000031272 -ST1A 031272 031272 0 0 000000000017 0 000000031272 -ST9 031272 031272 0 0 000000000017 0 000000031272 - - -*031272 MOVEI 1,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031272 031272 0 0 201040000001 0 000000000001 -IT1 031272 0 0 0 201040000001 0 000000000001 -AT3 031272 0 0 0 000000000001 0 201040000001 -AT6 031272 000001 0 0 000000000001 0 201040000001 -FT1A 031272 000001 0 0 000000000001 0 000000000001 -FT9 031273 000001 0 0 000000000001 0 000000000001 -ET0 031273 000001 0 0 000000000001 0 000000000001 -ST1 031273 000001 0 0 000000000001 0 000000000001 -ST2 031273 000001 0 0 000000000001 0 000000000001 -ST9 031273 000001 0 0 000000000001 0 000000000001 - - -*031273 HRLI 1,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000001 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031273 031273 0 0 505040000001 0 000000000001 -IT1 031273 0 0 0 505040000001 0 000000000001 -AT3 031273 0 0 0 000000000001 0 505040000001 -AT6 031273 000001 0 0 000000000001 0 505040000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 78 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0273 - -FT1A 031273 000001 0 0 000000000001 0 000000000001 -FT2 031273 000001 0 0 0 0 000000000001 -FT2RQ 031273 000001 0 0 000000000001 0 000000000001 -FT3 031273 000001 0 0 000000000001 0 000000000001 -FT9 031274 000001 0 0 000000000001 0 000000000001 -ET0 031274 000001 0 0 000000000001 0 000000000001 -ET1 031274 000001 0 0 000001000001 0 000000000001 -ST1 031274 000001 0 0 000001000001 0 000000000001 -ST2 031274 000001 0 0 000001000001 0 000000000001 -ST9 031274 000001 0 0 000001000001 0 000000000001 - - -*031274 CAME 1,000000(1) -INITIAL -C(AC)=000001 000001 -C(E)=000001 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031274 031274 0 0 312041000000 0 000001000001 -IT1 031274 0 0 0 312041000000 0 000001000001 -AT1 031274 0 0 0 0 0 312041000000 -AT2 031274 0 0 0 000001000001 0 312041000000 -AT3 031274 0 0 0 000000000001 0 000001000001 -AT6 031274 000001 0 0 000000000001 0 000001000001 -FT0 031274 000001 0 0 000001000001 0 000001000001 -FT1A 031274 000001 0 0 000001000001 0 000001000001 -FT2 031274 000001 0 0 0 0 000001000001 -FT2RQ 031274 000001 0 0 000001000001 0 000001000001 -FT3 031274 000001 0 0 000001000001 0 000001000001 -FT9 031275 000001 0 0 000001000001 0 000001000001 -ET0 031276 000001 0 0 0 0 000001000001 -ST1A 031276 000001 0 0 0 0 000001000001 -ST9 031276 000001 0 0 0 0 000001000001 - - -*031276 JUMPA 0,031277 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031276 031276 0 0 324000031277 0 000000031277 -IT1 031276 0 0 0 324000031277 0 000000031277 -AT3 031276 0 0 0 000000031277 0 324000031277 -AT6 031276 031277 0 0 000000031277 0 324000031277 -FT1A 031276 031277 0 0 000000031277 0 000000031277 -FT2 031276 031277 0 0 0 0 000000031277 -FT2RQ 031276 031277 0 0 000000000017 0 000000031277 -FT3 031276 031277 0 0 000000000017 0 000000031277 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 79 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0274 - -FT9 031277 031277 0 0 000000000017 0 000000031277 -ET0 031277 031277 0 0 000000000017 0 000000031277 -ST1A 031277 031277 0 0 000000000017 0 000000031277 -ST9 031277 031277 0 0 000000000017 0 000000031277 - - -*031277 MOVEI 2,000002 -INITIAL -C(AC)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 031277 031277 0 0 201100000002 0 000000000002 -IT1 031277 0 0 0 201100000002 0 000000000002 -AT3 031277 0 0 0 000000000002 0 201100000002 -AT6 031277 000002 0 0 000000000002 0 201100000002 -FT1A 031277 000002 0 0 000000000002 0 000000000002 -FT9 0 000002 0 0 000000000002 0 000000000002 -ET0 0 000002 0 0 000000000002 0 000000000002 -ST1 0 000002 0 0 000000000002 0 000000000002 -ST2 0 000002 0 0 000000000002 0 000000000002 -ST9 0 000002 0 0 000000000002 0 000000000002 - - -*031300 HRLI 2,000002 -INITIAL -C(AC)=000000 000002 -FINAL -C(AC)=000002 000002 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 505100000002 0 000000000002 -IT1 0 0 0 0 505100000002 0 000000000002 -AT3 0 0 0 0 000000000002 0 505100000002 -AT6 0 000002 0 0 000000000002 0 505100000002 -FT1A 0 000002 0 0 000000000002 0 000000000002 -FT2 0 000002 0 0 0 0 000000000002 -FT2RQ 0 000002 0 0 000000000002 0 000000000002 -FT3 0 000002 0 0 000000000002 0 000000000002 -FT9 031301 000002 0 0 000000000002 0 000000000002 -ET0 031301 000002 0 0 000000000002 0 000000000002 -ET1 031301 000002 0 0 000002000002 0 000000000002 -ST1 031301 000002 0 0 000002000002 0 000000000002 -ST2 031301 000002 0 0 000002000002 0 000000000002 -ST9 031301 000002 0 0 000002000002 0 000000000002 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 80 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0275 - -*031301 CAME 2,000000(2) -INITIAL -C(AC)=000002 000002 -C(E)=000002 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031301 031301 0 0 312102000000 0 000002000002 -IT1 031301 0 0 0 312102000000 0 000002000002 -AT1 031301 0 0 0 0 0 312102000000 -AT2 031301 0 0 0 000002000002 0 312102000000 -AT3 031301 0 0 0 000000000002 0 000002000002 -AT6 031301 000002 0 0 000000000002 0 000002000002 -FT0 031301 000002 0 0 000002000002 0 000002000002 -FT1A 031301 000002 0 0 000002000002 0 000002000002 -FT2 031301 000002 0 0 0 0 000002000002 -FT2RQ 031301 000002 0 0 000002000002 0 000002000002 -FT3 031301 000002 0 0 000002000002 0 000002000002 -FT9 031302 000002 0 0 000002000002 0 000002000002 -ET0 031303 000002 0 0 0 0 000002000002 -ST1A 031303 000002 0 0 0 0 000002000002 -ST9 031303 000002 0 0 0 0 000002000002 - - -*031303 JUMPA 0,031304 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031303 031303 0 0 324000031304 0 000000031304 -IT1 031303 0 0 0 324000031304 0 000000031304 -AT3 031303 0 0 0 000000031304 0 324000031304 -AT6 031303 031304 0 0 000000031304 0 324000031304 -FT1A 031303 031304 0 0 000000031304 0 000000031304 -FT2 031303 031304 0 0 0 0 000000031304 -FT2RQ 031303 031304 0 0 000000000017 0 000000031304 -FT3 031303 031304 0 0 000000000017 0 000000031304 -FT9 031304 031304 0 0 000000000017 0 000000031304 -ET0 031304 031304 0 0 000000000017 0 000000031304 -ST1A 031304 031304 0 0 000000000017 0 000000031304 -ST9 031304 031304 0 0 000000000017 0 000000031304 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 81 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0276 - -*031304 MOVEI 3,000003 -INITIAL -C(AC)=000000 000003 -FINAL -C(AC)=000000 000003 - -TIME PC MA SC FE AR MQ BR -IT0 031304 031304 0 0 201140000003 0 000000000003 -IT1 031304 0 0 0 201140000003 0 000000000003 -AT3 031304 0 0 0 000000000003 0 201140000003 -AT6 031304 000003 0 0 000000000003 0 201140000003 -FT1A 031304 000003 0 0 000000000003 0 000000000003 -FT9 031305 000003 0 0 000000000003 0 000000000003 -ET0 031305 000003 0 0 000000000003 0 000000000003 -ST1 031305 000003 0 0 000000000003 0 000000000003 -ST2 031305 000003 0 0 000000000003 0 000000000003 -ST9 031305 000003 0 0 000000000003 0 000000000003 - - -*031305 HRLI 3,000003 -INITIAL -C(AC)=000000 000003 -FINAL -C(AC)=000003 000003 - -TIME PC MA SC FE AR MQ BR -IT0 031305 031305 0 0 505140000003 0 000000000003 -IT1 031305 0 0 0 505140000003 0 000000000003 -AT3 031305 0 0 0 000000000003 0 505140000003 -AT6 031305 000003 0 0 000000000003 0 505140000003 -FT1A 031305 000003 0 0 000000000003 0 000000000003 -FT2 031305 000003 0 0 0 0 000000000003 -FT2RQ 031305 000003 0 0 000000000003 0 000000000003 -FT3 031305 000003 0 0 000000000003 0 000000000003 -FT9 031306 000003 0 0 000000000003 0 000000000003 -ET0 031306 000003 0 0 000000000003 0 000000000003 -ET1 031306 000003 0 0 000003000003 0 000000000003 -ST1 031306 000003 0 0 000003000003 0 000000000003 -ST2 031306 000003 0 0 000003000003 0 000000000003 -ST9 031306 000003 0 0 000003000003 0 000000000003 - - -*031306 CAME 3,000000(3) -INITIAL -C(AC)=000003 000003 -C(E)=000003 000003 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031306 031306 0 0 312143000000 0 000003000003 -IT1 031306 0 0 0 312143000000 0 000003000003 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 82 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0277 - -AT1 031306 0 0 0 0 0 312143000000 -AT2 031306 0 0 0 000003000003 0 312143000000 -AT3 031306 0 0 0 000000000003 0 000003000003 -AT6 031306 000003 0 0 000000000003 0 000003000003 -FT0 031306 000003 0 0 000003000003 0 000003000003 -FT1A 031306 000003 0 0 000003000003 0 000003000003 -FT2 031306 000003 0 0 0 0 000003000003 -FT2RQ 031306 000003 0 0 000003000003 0 000003000003 -FT3 031306 000003 0 0 000003000003 0 000003000003 -FT9 031307 000003 0 0 000003000003 0 000003000003 -ET0 031310 000003 0 0 0 0 000003000003 -ST1A 031310 000003 0 0 0 0 000003000003 -ST9 031310 000003 0 0 0 0 000003000003 - - -*031310 JUMPA 0,031311 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031310 031310 0 0 324000031311 0 000000031311 -IT1 031310 0 0 0 324000031311 0 000000031311 -AT3 031310 0 0 0 000000031311 0 324000031311 -AT6 031310 031311 0 0 000000031311 0 324000031311 -FT1A 031310 031311 0 0 000000031311 0 000000031311 -FT2 031310 031311 0 0 0 0 000000031311 -FT2RQ 031310 031311 0 0 000000000017 0 000000031311 -FT3 031310 031311 0 0 000000000017 0 000000031311 -FT9 031311 031311 0 0 000000000017 0 000000031311 -ET0 031311 031311 0 0 000000000017 0 000000031311 -ST1A 031311 031311 0 0 000000000017 0 000000031311 -ST9 031311 031311 0 0 000000000017 0 000000031311 - - -*031311 MOVEI 4,000004 -INITIAL -C(AC)=000000 000004 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 031311 031311 0 0 201200000004 0 000000000004 -IT1 031311 0 0 0 201200000004 0 000000000004 -AT3 031311 0 0 0 000000000004 0 201200000004 -AT6 031311 000004 0 0 000000000004 0 201200000004 -FT1A 031311 000004 0 0 000000000004 0 000000000004 -FT9 031312 000004 0 0 000000000004 0 000000000004 -ET0 031312 000004 0 0 000000000004 0 000000000004 -ST1 031312 000004 0 0 000000000004 0 000000000004 -ST2 031312 000004 0 0 000000000004 0 000000000004 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 83 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0278 - -ST9 031312 000004 0 0 000000000004 0 000000000004 - - -*031312 HRLI 4,000004 -INITIAL -C(AC)=000000 000004 -FINAL -C(AC)=000004 000004 - -TIME PC MA SC FE AR MQ BR -IT0 031312 031312 0 0 505200000004 0 000000000004 -IT1 031312 0 0 0 505200000004 0 000000000004 -AT3 031312 0 0 0 000000000004 0 505200000004 -AT6 031312 000004 0 0 000000000004 0 505200000004 -FT1A 031312 000004 0 0 000000000004 0 000000000004 -FT2 031312 000004 0 0 0 0 000000000004 -FT2RQ 031312 000004 0 0 000000000004 0 000000000004 -FT3 031312 000004 0 0 000000000004 0 000000000004 -FT9 031313 000004 0 0 000000000004 0 000000000004 -ET0 031313 000004 0 0 000000000004 0 000000000004 -ET1 031313 000004 0 0 000004000004 0 000000000004 -ST1 031313 000004 0 0 000004000004 0 000000000004 -ST2 031313 000004 0 0 000004000004 0 000000000004 -ST9 031313 000004 0 0 000004000004 0 000000000004 - - -*031313 CAME 4,000000(4) -INITIAL -C(AC)=000004 000004 -C(E)=000004 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031313 031313 0 0 312204000000 0 000004000004 -IT1 031313 0 0 0 312204000000 0 000004000004 -AT1 031313 0 0 0 0 0 312204000000 -AT2 031313 0 0 0 000004000004 0 312204000000 -AT3 031313 0 0 0 000000000004 0 000004000004 -AT6 031313 000004 0 0 000000000004 0 000004000004 -FT0 031313 000004 0 0 000004000004 0 000004000004 -FT1A 031313 000004 0 0 000004000004 0 000004000004 -FT2 031313 000004 0 0 0 0 000004000004 -FT2RQ 031313 000004 0 0 000004000004 0 000004000004 -FT3 031313 000004 0 0 000004000004 0 000004000004 -FT9 031314 000004 0 0 000004000004 0 000004000004 -ET0 031315 000004 0 0 0 0 000004000004 -ST1A 031315 000004 0 0 0 0 000004000004 -ST9 031315 000004 0 0 0 0 000004000004 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 84 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0279 - -*031315 JUMPA 0,031316 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031315 031315 0 0 324000031316 0 000000031316 -IT1 031315 0 0 0 324000031316 0 000000031316 -AT3 031315 0 0 0 000000031316 0 324000031316 -AT6 031315 031316 0 0 000000031316 0 324000031316 -FT1A 031315 031316 0 0 000000031316 0 000000031316 -FT2 031315 031316 0 0 0 0 000000031316 -FT2RQ 031315 031316 0 0 000000000017 0 000000031316 -FT3 031315 031316 0 0 000000000017 0 000000031316 -FT9 031316 031316 0 0 000000000017 0 000000031316 -ET0 031316 031316 0 0 000000000017 0 000000031316 -ST1A 031316 031316 0 0 000000000017 0 000000031316 -ST9 031316 031316 0 0 000000000017 0 000000031316 - - -*031316 MOVEI 5,000005 -INITIAL -C(AC)=000000 000005 -FINAL -C(AC)=000000 000005 - -TIME PC MA SC FE AR MQ BR -IT0 031316 031316 0 0 201240000005 0 000000000005 -IT1 031316 0 0 0 201240000005 0 000000000005 -AT3 031316 0 0 0 000000000005 0 201240000005 -AT6 031316 000005 0 0 000000000005 0 201240000005 -FT1A 031316 000005 0 0 000000000005 0 000000000005 -FT9 031317 000005 0 0 000000000005 0 000000000005 -ET0 031317 000005 0 0 000000000005 0 000000000005 -ST1 031317 000005 0 0 000000000005 0 000000000005 -ST2 031317 000005 0 0 000000000005 0 000000000005 -ST9 031317 000005 0 0 000000000005 0 000000000005 - - -*031317 HRLI 5,000005 -INITIAL -C(AC)=000000 000005 -FINAL -C(AC)=000005 000005 - -TIME PC MA SC FE AR MQ BR -IT0 031317 031317 0 0 505240000005 0 000000000005 -IT1 031317 0 0 0 505240000005 0 000000000005 -AT3 031317 0 0 0 000000000005 0 505240000005 -AT6 031317 000005 0 0 000000000005 0 505240000005 -FT1A 031317 000005 0 0 000000000005 0 000000000005 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 85 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0280 - -FT2 031317 000005 0 0 0 0 000000000005 -FT2RQ 031317 000005 0 0 000000000005 0 000000000005 -FT3 031317 000005 0 0 000000000005 0 000000000005 -FT9 031320 000005 0 0 000000000005 0 000000000005 -ET0 031320 000005 0 0 000000000005 0 000000000005 -ET1 031320 000005 0 0 000005000005 0 000000000005 -ST1 031320 000005 0 0 000005000005 0 000000000005 -ST2 031320 000005 0 0 000005000005 0 000000000005 -ST9 031320 000005 0 0 000005000005 0 000000000005 - - -*031320 CAME 5,000000(5) -INITIAL -C(AC)=000005 000005 -C(E)=000005 000005 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031320 031320 0 0 312245000000 0 000005000005 -IT1 031320 0 0 0 312245000000 0 000005000005 -AT1 031320 0 0 0 0 0 312245000000 -AT2 031320 0 0 0 000005000005 0 312245000000 -AT3 031320 0 0 0 000000000005 0 000005000005 -AT6 031320 000005 0 0 000000000005 0 000005000005 -FT0 031320 000005 0 0 000005000005 0 000005000005 -FT1A 031320 000005 0 0 000005000005 0 000005000005 -FT2 031320 000005 0 0 0 0 000005000005 -FT2RQ 031320 000005 0 0 000005000005 0 000005000005 -FT3 031320 000005 0 0 000005000005 0 000005000005 -FT9 031321 000005 0 0 000005000005 0 000005000005 -ET0 031322 000005 0 0 0 0 000005000005 -ST1A 031322 000005 0 0 0 0 000005000005 -ST9 031322 000005 0 0 0 0 000005000005 - - -*031322 JUMPA 0,031323 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000031323 -FT3 031322 031323 0 0 000000000017 0 000000031323 -FT9 031323 031323 0 0 000000000017 0 000000031323 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 86 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0281 - -ET0 031323 031323 0 0 000000000017 0 000000031323 -ST1A 031323 031323 0 0 000000000017 0 000000031323 -ST9 031323 031323 0 0 000000000017 0 000000031323 - - -*031323 MOVEI 6,000006 -INITIAL -C(AC)=000000 000006 -FINAL -C(AC)=000000 000006 - -TIME PC MA SC FE AR MQ BR -IT0 031323 031323 0 0 201300000006 0 000000000006 -IT1 031323 0 0 0 201300000006 0 000000000006 -AT3 031323 0 0 0 000000000006 0 201300000006 -AT6 031323 000006 0 0 000000000006 0 201300000006 -FT1A 031323 000006 0 0 000000000006 0 000000000006 -FT9 031324 000006 0 0 000000000006 0 000000000006 -ET0 031324 000006 0 0 000000000006 0 000000000006 -ST1 031324 000006 0 0 000000000006 0 000000000006 -ST2 031324 000006 0 0 000000000006 0 000000000006 -ST9 031324 000006 0 0 000000000006 0 000000000006 - - -*031324 HRLI 6,000006 -INITIAL -C(AC)=000000 000006 -FINAL -C(AC)=000006 000006 - -TIME PC MA SC FE AR MQ BR -IT0 031324 031324 0 0 505300000006 0 000000000006 -IT1 031324 0 0 0 505300000006 0 000000000006 -AT3 031324 0 0 0 000000000006 0 505300000006 -AT6 031324 000006 0 0 000000000006 0 505300000006 -FT1A 031324 000006 0 0 000000000006 0 000000000006 -FT2 031324 000006 0 0 0 0 000000000006 -FT2RQ 031324 000006 0 0 000000000006 0 000000000006 -FT3 031324 000006 0 0 000000000006 0 000000000006 -FT9 031325 000006 0 0 000000000006 0 000000000006 -ET0 031325 000006 0 0 000000000006 0 000000000006 -ET1 031325 000006 0 0 000006000006 0 000000000006 -ST1 031325 000006 0 0 000006000006 0 000000000006 -ST2 031325 000006 0 0 000006000006 0 000000000006 -ST9 031325 000006 0 0 000006000006 0 000000000006 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 87 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0282 - -*031325 CAME 6,000000(6) -INITIAL -C(AC)=000006 000006 -C(E)=000006 000006 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031325 031325 0 0 312306000000 0 000006000006 -IT1 031325 0 0 0 312306000000 0 000006000006 -AT1 031325 0 0 0 0 0 312306000000 -AT2 031325 0 0 0 000006000006 0 312306000000 -AT3 031325 0 0 0 000000000006 0 000006000006 -AT6 031325 000006 0 0 000000000006 0 000006000006 -FT0 031325 000006 0 0 000006000006 0 000006000006 -FT1A 031325 000006 0 0 000006000006 0 000006000006 -FT2 031325 000006 0 0 0 0 000006000006 -FT2RQ 031325 000006 0 0 000006000006 0 000006000006 -FT3 031325 000006 0 0 000006000006 0 000006000006 -FT9 031326 000006 0 0 000006000006 0 000006000006 -ET0 031327 000006 0 0 0 0 000006000006 -ST1A 031327 000006 0 0 0 0 000006000006 -ST9 031327 000006 0 0 0 0 000006000006 - - -*031327 JUMPA 0,031330 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031327 031327 0 0 324000031330 0 000000031330 -IT1 031327 0 0 0 324000031330 0 000000031330 -AT3 031327 0 0 0 000000031330 0 324000031330 -AT6 031327 031330 0 0 000000031330 0 324000031330 -FT1A 031327 031330 0 0 000000031330 0 000000031330 -FT2 031327 031330 0 0 0 0 000000031330 -FT2RQ 031327 031330 0 0 000000000017 0 000000031330 -FT3 031327 031330 0 0 000000000017 0 000000031330 -FT9 031330 031330 0 0 000000000017 0 000000031330 -ET0 031330 031330 0 0 000000000017 0 000000031330 -ST1A 031330 031330 0 0 000000000017 0 000000031330 -ST9 031330 031330 0 0 000000000017 0 000000031330 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 88 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0283 - -*031330 MOVEI 7,000007 -INITIAL -C(AC)=000000 000007 -FINAL -C(AC)=000000 000007 - -TIME PC MA SC FE AR MQ BR -IT0 031330 031330 0 0 201340000007 0 000000000007 -IT1 031330 0 0 0 201340000007 0 000000000007 -AT3 031330 0 0 0 000000000007 0 201340000007 -AT6 031330 000007 0 0 000000000007 0 201340000007 -FT1A 031330 000007 0 0 000000000007 0 000000000007 -FT9 031331 000007 0 0 000000000007 0 000000000007 -ET0 031331 000007 0 0 000000000007 0 000000000007 -ST1 031331 000007 0 0 000000000007 0 000000000007 -ST2 031331 000007 0 0 000000000007 0 000000000007 -ST9 031331 000007 0 0 000000000007 0 000000000007 - - -*031331 HRLI 7,000007 -INITIAL -C(AC)=000000 000007 -FINAL -C(AC)=000007 000007 - -TIME PC MA SC FE AR MQ BR -IT0 031331 031331 0 0 505340000007 0 000000000007 -IT1 031331 0 0 0 505340000007 0 000000000007 -AT3 031331 0 0 0 000000000007 0 505340000007 -AT6 031331 000007 0 0 000000000007 0 505340000007 -FT1A 031331 000007 0 0 000000000007 0 000000000007 -FT2 031331 000007 0 0 0 0 000000000007 -FT2RQ 031331 000007 0 0 000000000007 0 000000000007 -FT3 031331 000007 0 0 000000000007 0 000000000007 -FT9 031332 000007 0 0 000000000007 0 000000000007 -ET0 031332 000007 0 0 000000000007 0 000000000007 -ET1 031332 000007 0 0 000007000007 0 000000000007 -ST1 031332 000007 0 0 000007000007 0 000000000007 -ST2 031332 000007 0 0 000007000007 0 000000000007 -ST9 031332 000007 0 0 000007000007 0 000000000007 - - -*031332 CAME 7,000000(7) -INITIAL -C(AC)=000007 000007 -C(E)=000007 000007 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031332 031332 0 0 312347000000 0 000007000007 -IT1 031332 0 0 0 312347000000 0 000007000007 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 89 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0284 - -AT1 031332 0 0 0 0 0 312347000000 -AT2 031332 0 0 0 000007000007 0 312347000000 -AT3 031332 0 0 0 000000000007 0 000007000007 -AT6 031332 000007 0 0 000000000007 0 000007000007 -FT0 031332 000007 0 0 000007000007 0 000007000007 -FT1A 031332 000007 0 0 000007000007 0 000007000007 -FT2 031332 000007 0 0 0 0 000007000007 -FT2RQ 031332 000007 0 0 000007000007 0 000007000007 -FT3 031332 000007 0 0 000007000007 0 000007000007 -FT9 031333 000007 0 0 000007000007 0 000007000007 -ET0 031334 000007 0 0 0 0 000007000007 -ST1A 031334 000007 0 0 0 0 000007000007 -ST9 031334 000007 0 0 0 0 000007000007 - - -*031334 JUMPA 0,031335 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031334 031334 0 0 324000031335 0 000000031335 -IT1 031334 0 0 0 324000031335 0 000000031335 -AT3 031334 0 0 0 000000031335 0 324000031335 -AT6 031334 031335 0 0 000000031335 0 324000031335 -FT1A 031334 031335 0 0 000000031335 0 000000031335 -FT2 031334 031335 0 0 0 0 000000031335 -FT2RQ 031334 031335 0 0 000000000017 0 000000031335 -FT3 031334 031335 0 0 000000000017 0 000000031335 -FT9 031335 031335 0 0 000000000017 0 000000031335 -ET0 031335 031335 0 0 000000000017 0 000000031335 -ST1A 031335 031335 0 0 000000000017 0 000000031335 -ST9 031335 031335 0 0 000000000017 0 000000031335 - - -*031335 MOVEI 10,000010 -INITIAL -C(AC)=000000 000010 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 031335 031335 0 0 201400000010 0 000000000010 -IT1 031335 0 0 0 201400000010 0 000000000010 -AT3 031335 0 0 0 000000000010 0 201400000010 -AT6 031335 000010 0 0 000000000010 0 201400000010 -FT1A 031335 000010 0 0 000000000010 0 000000000010 -FT9 031336 000010 0 0 000000000010 0 000000000010 -ET0 031336 000010 0 0 000000000010 0 000000000010 -ST1 031336 000010 0 0 000000000010 0 000000000010 -ST2 031336 000010 0 0 000000000010 0 000000000010 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 90 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0285 - -ST9 031336 000010 0 0 000000000010 0 000000000010 - - -*031336 HRLI 10,000010 -INITIAL -C(AC)=000000 000010 -FINAL -C(AC)=000010 000010 - -TIME PC MA SC FE AR MQ BR -IT0 031336 031336 0 0 505400000010 0 000000000010 -IT1 031336 0 0 0 505400000010 0 000000000010 -AT3 031336 0 0 0 000000000010 0 505400000010 -AT6 031336 000010 0 0 000000000010 0 505400000010 -FT1A 031336 000010 0 0 000000000010 0 000000000010 -FT2 031336 000010 0 0 0 0 000000000010 -FT2RQ 031336 000010 0 0 000000000010 0 000000000010 -FT3 031336 000010 0 0 000000000010 0 000000000010 -FT9 031337 000010 0 0 000000000010 0 000000000010 -ET0 031337 000010 0 0 000000000010 0 000000000010 -ET1 031337 000010 0 0 000010000010 0 000000000010 -ST1 031337 000010 0 0 000010000010 0 000000000010 -ST2 031337 000010 0 0 000010000010 0 000000000010 -ST9 031337 000010 0 0 000010000010 0 000000000010 - - -*031337 CAME 10,000000(10) -INITIAL -C(AC)=000010 000010 -C(E)=000010 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031337 031337 0 0 312410000000 0 000010000010 -IT1 031337 0 0 0 312410000000 0 000010000010 -AT1 031337 0 0 0 0 0 312410000000 -AT2 031337 0 0 0 000010000010 0 312410000000 -AT3 031337 0 0 0 000000000010 0 000010000010 -AT6 031337 000010 0 0 000000000010 0 000010000010 -FT0 031337 000010 0 0 000010000010 0 000010000010 -FT1A 031337 000010 0 0 000010000010 0 000010000010 -FT2 031337 000010 0 0 0 0 000010000010 -FT2RQ 031337 000010 0 0 000010000010 0 000010000010 -FT3 031337 000010 0 0 000010000010 0 000010000010 -FT9 031340 000010 0 0 000010000010 0 000010000010 -ET0 031341 000010 0 0 0 0 000010000010 -ST1A 031341 000010 0 0 0 0 000010000010 -ST9 031341 000010 0 0 0 0 000010000010 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 91 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0286 - -*031341 JUMPA 0,031342 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000031342 -FT3 031341 031342 0 0 000000000017 0 000000031342 -FT9 031342 031342 0 0 000000000017 0 000000031342 -ET0 031342 031342 0 0 000000000017 0 000000031342 -ST1A 031342 031342 0 0 000000000017 0 000000031342 -ST9 031342 031342 0 0 000000000017 0 000000031342 - - -*031342 MOVEI 11,000011 -INITIAL -C(AC)=000000 000011 -FINAL -C(AC)=000000 000011 - -TIME PC MA SC FE AR MQ BR -IT0 031342 031342 0 0 201440000011 0 000000000011 -IT1 031342 0 0 0 201440000011 0 000000000011 -AT3 031342 0 0 0 000000000011 0 201440000011 -AT6 031342 000011 0 0 000000000011 0 201440000011 -FT1A 031342 000011 0 0 000000000011 0 000000000011 -FT9 031343 000011 0 0 000000000011 0 000000000011 -ET0 031343 000011 0 0 000000000011 0 000000000011 -ST1 031343 000011 0 0 000000000011 0 000000000011 -ST2 031343 000011 0 0 000000000011 0 000000000011 -ST9 031343 000011 0 0 000000000011 0 000000000011 - - -*031343 HRLI 11,000011 -INITIAL -C(AC)=000000 000011 -FINAL -C(AC)=000011 000011 - -TIME PC MA SC FE AR MQ BR -IT0 031343 031343 0 0 505440000011 0 000000000011 -IT1 031343 0 0 0 505440000011 0 000000000011 -AT3 031343 0 0 0 000000000011 0 505440000011 -AT6 031343 000011 0 0 000000000011 0 505440000011 -FT1A 031343 000011 0 0 000000000011 0 000000000011 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 92 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0287 - -FT2 031343 000011 0 0 0 0 000000000011 -FT2RQ 031343 000011 0 0 000000000011 0 000000000011 -FT3 031343 000011 0 0 000000000011 0 000000000011 -FT9 031344 000011 0 0 000000000011 0 000000000011 -ET0 031344 000011 0 0 000000000011 0 000000000011 -ET1 031344 000011 0 0 000011000011 0 000000000011 -ST1 031344 000011 0 0 000011000011 0 000000000011 -ST2 031344 000011 0 0 000011000011 0 000000000011 -ST9 031344 000011 0 0 000011000011 0 000000000011 - - -*031344 CAME 11,000000(11) -INITIAL -C(AC)=000011 000011 -C(E)=000011 000011 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031344 031344 0 0 312451000000 0 000011000011 -IT1 031344 0 0 0 312451000000 0 000011000011 -AT1 031344 0 0 0 0 0 312451000000 -AT2 031344 0 0 0 000011000011 0 312451000000 -AT3 031344 0 0 0 000000000011 0 000011000011 -AT6 031344 000011 0 0 000000000011 0 000011000011 -FT0 031344 000011 0 0 000011000011 0 000011000011 -FT1A 031344 000011 0 0 000011000011 0 000011000011 -FT2 031344 000011 0 0 0 0 000011000011 -FT2RQ 031344 000011 0 0 000011000011 0 000011000011 -FT3 031344 000011 0 0 000011000011 0 000011000011 -FT9 031345 000011 0 0 000011000011 0 000011000011 -ET0 031346 000011 0 0 0 0 000011000011 -ST1A 031346 000011 0 0 0 0 000011000011 -ST9 031346 000011 0 0 0 0 000011000011 - - -*031346 JUMPA 0,031347 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031346 031346 0 0 324000031347 0 000000031347 -IT1 031346 0 0 0 324000031347 0 000000031347 -AT3 031346 0 0 0 000000031347 0 324000031347 -AT6 031346 031347 0 0 000000031347 0 324000031347 -FT1A 031346 031347 0 0 000000031347 0 000000031347 -FT2 031346 031347 0 0 0 0 000000031347 -FT2RQ 031346 031347 0 0 000000000017 0 000000031347 -FT3 031346 031347 0 0 000000000017 0 000000031347 -FT9 031347 031347 0 0 000000000017 0 000000031347 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 93 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0288 - -ET0 031347 031347 0 0 000000000017 0 000000031347 -ST1A 031347 031347 0 0 000000000017 0 000000031347 -ST9 031347 031347 0 0 000000000017 0 000000031347 - - -*031347 MOVEI 12,000012 -INITIAL -C(AC)=000000 000012 -FINAL -C(AC)=000000 000012 - -TIME PC MA SC FE AR MQ BR -IT0 031347 031347 0 0 201500000012 0 000000000012 -IT1 031347 0 0 0 201500000012 0 000000000012 -AT3 031347 0 0 0 000000000012 0 201500000012 -AT6 031347 000012 0 0 000000000012 0 201500000012 -FT1A 031347 000012 0 0 000000000012 0 000000000012 -FT9 031350 000012 0 0 000000000012 0 000000000012 -ET0 031350 000012 0 0 000000000012 0 000000000012 -ST1 031350 000012 0 0 000000000012 0 000000000012 -ST2 031350 000012 0 0 000000000012 0 000000000012 -ST9 031350 000012 0 0 000000000012 0 000000000012 - - -*031350 HRLI 12,000012 -INITIAL -C(AC)=000000 000012 -FINAL -C(AC)=000012 000012 - -TIME PC MA SC FE AR MQ BR -IT0 031350 031350 0 0 505500000012 0 000000000012 -IT1 031350 0 0 0 505500000012 0 000000000012 -AT3 031350 0 0 0 000000000012 0 505500000012 -AT6 031350 000012 0 0 000000000012 0 505500000012 -FT1A 031350 000012 0 0 000000000012 0 000000000012 -FT2 031350 000012 0 0 0 0 000000000012 -FT2RQ 031350 000012 0 0 000000000012 0 000000000012 -FT3 031350 000012 0 0 000000000012 0 000000000012 -FT9 031351 000012 0 0 000000000012 0 000000000012 -ET0 031351 000012 0 0 000000000012 0 000000000012 -ET1 031351 000012 0 0 000012000012 0 000000000012 -ST1 031351 000012 0 0 000012000012 0 000000000012 -ST2 031351 000012 0 0 000012000012 0 000000000012 -ST9 031351 000012 0 0 000012000012 0 000000000012 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 94 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0289 - -*031351 CAME 12,000000(12) -INITIAL -C(AC)=000012 000012 -C(E)=000012 000012 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031351 031351 0 0 312512000000 0 000012000012 -IT1 031351 0 0 0 312512000000 0 000012000012 -AT1 031351 0 0 0 0 0 312512000000 -AT2 031351 0 0 0 000012000012 0 312512000000 -AT3 031351 0 0 0 000000000012 0 000012000012 -AT6 031351 000012 0 0 000000000012 0 000012000012 -FT0 031351 000012 0 0 000012000012 0 000012000012 -FT1A 031351 000012 0 0 000012000012 0 000012000012 -FT2 031351 000012 0 0 0 0 000012000012 -FT2RQ 031351 000012 0 0 000012000012 0 000012000012 -FT3 031351 000012 0 0 000012000012 0 000012000012 -FT9 031352 000012 0 0 000012000012 0 000012000012 -ET0 031353 000012 0 0 0 0 000012000012 -ST1A 031353 000012 0 0 0 0 000012000012 -ST9 031353 000012 0 0 0 0 000012000012 - - -*031353 JUMPA 0,031354 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031353 031353 0 0 324000031354 0 000000031354 -IT1 031353 0 0 0 324000031354 0 000000031354 -AT3 031353 0 0 0 000000031354 0 324000031354 -AT6 031353 031354 0 0 000000031354 0 324000031354 -FT1A 031353 031354 0 0 000000031354 0 000000031354 -FT2 031353 031354 0 0 0 0 000000031354 -FT2RQ 031353 031354 0 0 000000000017 0 000000031354 -FT3 031353 031354 0 0 000000000017 0 000000031354 -FT9 031354 031354 0 0 000000000017 0 000000031354 -ET0 031354 031354 0 0 000000000017 0 000000031354 -ST1A 031354 031354 0 0 000000000017 0 000000031354 -ST9 031354 031354 0 0 000000000017 0 000000031354 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 95 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0290 - -*031354 MOVEI 13,000013 -INITIAL -C(AC)=000000 000013 -FINAL -C(AC)=000000 000013 - -TIME PC MA SC FE AR MQ BR -IT0 031354 031354 0 0 201540000013 0 000000000013 -IT1 031354 0 0 0 201540000013 0 000000000013 -AT3 031354 0 0 0 000000000013 0 201540000013 -AT6 031354 000013 0 0 000000000013 0 201540000013 -FT1A 031354 000013 0 0 000000000013 0 000000000013 -FT9 031355 000013 0 0 000000000013 0 000000000013 -ET0 031355 000013 0 0 000000000013 0 000000000013 -ST1 031355 000013 0 0 000000000013 0 000000000013 -ST2 031355 000013 0 0 000000000013 0 000000000013 -ST9 031355 000013 0 0 000000000013 0 000000000013 - - -*031355 HRLI 13,000013 -INITIAL -C(AC)=000000 000013 -FINAL -C(AC)=000013 000013 - -TIME PC MA SC FE AR MQ BR -IT0 031355 031355 0 0 505540000013 0 000000000013 -IT1 031355 0 0 0 505540000013 0 000000000013 -AT3 031355 0 0 0 000000000013 0 505540000013 -AT6 031355 000013 0 0 000000000013 0 505540000013 -FT1A 031355 000013 0 0 000000000013 0 000000000013 -FT2 031355 000013 0 0 0 0 000000000013 -FT2RQ 031355 000013 0 0 000000000013 0 000000000013 -FT3 031355 000013 0 0 000000000013 0 000000000013 -FT9 031356 000013 0 0 000000000013 0 000000000013 -ET0 031356 000013 0 0 000000000013 0 000000000013 -ET1 031356 000013 0 0 000013000013 0 000000000013 -ST1 031356 000013 0 0 000013000013 0 000000000013 -ST2 031356 000013 0 0 000013000013 0 000000000013 -ST9 031356 000013 0 0 000013000013 0 000000000013 - - -*031356 CAME 13,000000(13) -INITIAL -C(AC)=000013 000013 -C(E)=000013 000013 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031356 031356 0 0 312553000000 0 000013000013 -IT1 031356 0 0 0 312553000000 0 000013000013 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 96 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0291 - -AT1 031356 0 0 0 0 0 312553000000 -AT2 031356 0 0 0 000013000013 0 312553000000 -AT3 031356 0 0 0 000000000013 0 000013000013 -AT6 031356 000013 0 0 000000000013 0 000013000013 -FT0 031356 000013 0 0 000013000013 0 000013000013 -FT1A 031356 000013 0 0 000013000013 0 000013000013 -FT2 031356 000013 0 0 0 0 000013000013 -FT2RQ 031356 000013 0 0 000013000013 0 000013000013 -FT3 031356 000013 0 0 000013000013 0 000013000013 -FT9 031357 000013 0 0 000013000013 0 000013000013 -ET0 031360 000013 0 0 0 0 000013000013 -ST1A 031360 000013 0 0 0 0 000013000013 -ST9 031360 000013 0 0 0 0 000013000013 - - -*031360 JUMPA 0,031361 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031360 031360 0 0 324000031361 0 000000031361 -IT1 031360 0 0 0 324000031361 0 000000031361 -AT3 031360 0 0 0 000000031361 0 324000031361 -AT6 031360 031361 0 0 000000031361 0 324000031361 -FT1A 031360 031361 0 0 000000031361 0 000000031361 -FT2 031360 031361 0 0 0 0 000000031361 -FT2RQ 031360 031361 0 0 000000000017 0 000000031361 -FT3 031360 031361 0 0 000000000017 0 000000031361 -FT9 031361 031361 0 0 000000000017 0 000000031361 -ET0 031361 031361 0 0 000000000017 0 000000031361 -ST1A 031361 031361 0 0 000000000017 0 000000031361 -ST9 031361 031361 0 0 000000000017 0 000000031361 - - -*031361 MOVEI 14,000014 -INITIAL -C(AC)=000000 000014 -FINAL -C(AC)=000000 000014 - -TIME PC MA SC FE AR MQ BR -IT0 031361 031361 0 0 201600000014 0 000000000014 -IT1 031361 0 0 0 201600000014 0 000000000014 -AT3 031361 0 0 0 000000000014 0 201600000014 -AT6 031361 000014 0 0 000000000014 0 201600000014 -FT1A 031361 000014 0 0 000000000014 0 000000000014 -FT9 031362 000014 0 0 000000000014 0 000000000014 -ET0 031362 000014 0 0 000000000014 0 000000000014 -ST1 031362 000014 0 0 000000000014 0 000000000014 -ST2 031362 000014 0 0 000000000014 0 000000000014 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 97 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0292 - -ST9 031362 000014 0 0 000000000014 0 000000000014 - - -*031362 HRLI 14,000014 -INITIAL -C(AC)=000000 000014 -FINAL -C(AC)=000014 000014 - -TIME PC MA SC FE AR MQ BR -IT0 031362 031362 0 0 505600000014 0 000000000014 -IT1 031362 0 0 0 505600000014 0 000000000014 -AT3 031362 0 0 0 000000000014 0 505600000014 -AT6 031362 000014 0 0 000000000014 0 505600000014 -FT1A 031362 000014 0 0 000000000014 0 000000000014 -FT2 031362 000014 0 0 0 0 000000000014 -FT2RQ 031362 000014 0 0 000000000014 0 000000000014 -FT3 031362 000014 0 0 000000000014 0 000000000014 -FT9 031363 000014 0 0 000000000014 0 000000000014 -ET0 031363 000014 0 0 000000000014 0 000000000014 -ET1 031363 000014 0 0 000014000014 0 000000000014 -ST1 031363 000014 0 0 000014000014 0 000000000014 -ST2 031363 000014 0 0 000014000014 0 000000000014 -ST9 031363 000014 0 0 000014000014 0 000000000014 - - -*031363 CAME 14,000000(14) -INITIAL -C(AC)=000014 000014 -C(E)=000014 000014 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031363 031363 0 0 312614000000 0 000014000014 -IT1 031363 0 0 0 312614000000 0 000014000014 -AT1 031363 0 0 0 0 0 312614000000 -AT2 031363 0 0 0 000014000014 0 312614000000 -AT3 031363 0 0 0 000000000014 0 000014000014 -AT6 031363 000014 0 0 000000000014 0 000014000014 -FT0 031363 000014 0 0 000014000014 0 000014000014 -FT1A 031363 000014 0 0 000014000014 0 000014000014 -FT2 031363 000014 0 0 0 0 000014000014 -FT2RQ 031363 000014 0 0 000014000014 0 000014000014 -FT3 031363 000014 0 0 000014000014 0 000014000014 -FT9 031364 000014 0 0 000014000014 0 000014000014 -ET0 031365 000014 0 0 0 0 000014000014 -ST1A 031365 000014 0 0 0 0 000014000014 -ST9 031365 000014 0 0 0 0 000014000014 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 98 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0293 - -*031365 JUMPA 0,031366 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031365 031365 0 0 324000031366 0 000000031366 -IT1 031365 0 0 0 324000031366 0 000000031366 -AT3 031365 0 0 0 000000031366 0 324000031366 -AT6 031365 031366 0 0 000000031366 0 324000031366 -FT1A 031365 031366 0 0 000000031366 0 000000031366 -FT2 031365 031366 0 0 0 0 000000031366 -FT2RQ 031365 031366 0 0 000000000017 0 000000031366 -FT3 031365 031366 0 0 000000000017 0 000000031366 -FT9 031366 031366 0 0 000000000017 0 000000031366 -ET0 031366 031366 0 0 000000000017 0 000000031366 -ST1A 031366 031366 0 0 000000000017 0 000000031366 -ST9 031366 031366 0 0 000000000017 0 000000031366 - - -*031366 MOVEI 15,000015 -INITIAL -C(AC)=000000 000015 -FINAL -C(AC)=000000 000015 - -TIME PC MA SC FE AR MQ BR -IT0 031366 031366 0 0 201640000015 0 000000000015 -IT1 031366 0 0 0 201640000015 0 000000000015 -AT3 031366 0 0 0 000000000015 0 201640000015 -AT6 031366 000015 0 0 000000000015 0 201640000015 -FT1A 031366 000015 0 0 000000000015 0 000000000015 -FT9 031367 000015 0 0 000000000015 0 000000000015 -ET0 031367 000015 0 0 000000000015 0 000000000015 -ST1 031367 000015 0 0 000000000015 0 000000000015 -ST2 031367 000015 0 0 000000000015 0 000000000015 -ST9 031367 000015 0 0 000000000015 0 000000000015 - - -*031367 HRLI 15,000015 -INITIAL -C(AC)=000000 000015 -FINAL -C(AC)=000015 000015 - -TIME PC MA SC FE AR MQ BR -IT0 031367 031367 0 0 505640000015 0 000000000015 -IT1 031367 0 0 0 505640000015 0 000000000015 -AT3 031367 0 0 0 000000000015 0 505640000015 -AT6 031367 000015 0 0 000000000015 0 505640000015 -FT1A 031367 000015 0 0 000000000015 0 000000000015 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 99 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0294 - -FT2 031367 000015 0 0 0 0 000000000015 -FT2RQ 031367 000015 0 0 000000000015 0 000000000015 -FT3 031367 000015 0 0 000000000015 0 000000000015 -FT9 031370 000015 0 0 000000000015 0 000000000015 -ET0 031370 000015 0 0 000000000015 0 000000000015 -ET1 031370 000015 0 0 000015000015 0 000000000015 -ST1 031370 000015 0 0 000015000015 0 000000000015 -ST2 031370 000015 0 0 000015000015 0 000000000015 -ST9 031370 000015 0 0 000015000015 0 000000000015 - - -*031370 CAME 15,000000(15) -INITIAL -C(AC)=000015 000015 -C(E)=000015 000015 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031370 031370 0 0 312655000000 0 000015000015 -IT1 031370 0 0 0 312655000000 0 000015000015 -AT1 031370 0 0 0 0 0 312655000000 -AT2 031370 0 0 0 000015000015 0 312655000000 -AT3 031370 0 0 0 000000000015 0 000015000015 -AT6 031370 000015 0 0 000000000015 0 000015000015 -FT0 031370 000015 0 0 000015000015 0 000015000015 -FT1A 031370 000015 0 0 000015000015 0 000015000015 -FT2 031370 000015 0 0 0 0 000015000015 -FT2RQ 031370 000015 0 0 000015000015 0 000015000015 -FT3 031370 000015 0 0 000015000015 0 000015000015 -FT9 031371 000015 0 0 000015000015 0 000015000015 -ET0 031372 000015 0 0 0 0 000015000015 -ST1A 031372 000015 0 0 0 0 000015000015 -ST9 031372 000015 0 0 0 0 000015000015 - - -*031372 JUMPA 0,031373 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031372 031372 0 0 324000031373 0 000000031373 -IT1 031372 0 0 0 324000031373 0 000000031373 -AT3 031372 0 0 0 000000031373 0 324000031373 -AT6 031372 031373 0 0 000000031373 0 324000031373 -FT1A 031372 031373 0 0 000000031373 0 000000031373 -FT2 031372 031373 0 0 0 0 000000031373 -FT2RQ 031372 031373 0 0 000000000017 0 000000031373 -FT3 031372 031373 0 0 000000000017 0 000000031373 -FT9 031373 031373 0 0 000000000017 0 000000031373 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 100 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0295 - -ET0 031373 031373 0 0 000000000017 0 000000031373 -ST1A 031373 031373 0 0 000000000017 0 000000031373 -ST9 031373 031373 0 0 000000000017 0 000000031373 - - -*031373 MOVEI 16,000016 -INITIAL -C(AC)=000000 000016 -FINAL -C(AC)=000000 000016 - -TIME PC MA SC FE AR MQ BR -IT0 031373 031373 0 0 201700000016 0 000000000016 -IT1 031373 0 0 0 201700000016 0 000000000016 -AT3 031373 0 0 0 000000000016 0 201700000016 -AT6 031373 000016 0 0 000000000016 0 201700000016 -FT1A 031373 000016 0 0 000000000016 0 000000000016 -FT9 031374 000016 0 0 000000000016 0 000000000016 -ET0 031374 000016 0 0 000000000016 0 000000000016 -ST1 031374 000016 0 0 000000000016 0 000000000016 -ST2 031374 000016 0 0 000000000016 0 000000000016 -ST9 031374 000016 0 0 000000000016 0 000000000016 - - -*031374 HRLI 16,000016 -INITIAL -C(AC)=000000 000016 -FINAL -C(AC)=000016 000016 - -TIME PC MA SC FE AR MQ BR -IT0 031374 031374 0 0 505700000016 0 000000000016 -IT1 031374 0 0 0 505700000016 0 000000000016 -AT3 031374 0 0 0 000000000016 0 505700000016 -AT6 031374 000016 0 0 000000000016 0 505700000016 -FT1A 031374 000016 0 0 000000000016 0 000000000016 -FT2 031374 000016 0 0 0 0 000000000016 -FT2RQ 031374 000016 0 0 000000000016 0 000000000016 -FT3 031374 000016 0 0 000000000016 0 000000000016 -FT9 031375 000016 0 0 000000000016 0 000000000016 -ET0 031375 000016 0 0 000000000016 0 000000000016 -ET1 031375 000016 0 0 000016000016 0 000000000016 -ST1 031375 000016 0 0 000016000016 0 000000000016 -ST2 031375 000016 0 0 000016000016 0 000000000016 -ST9 031375 000016 0 0 000016000016 0 000000000016 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 101 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0296 - -*031375 CAME 16,000000(16) -INITIAL -C(AC)=000016 000016 -C(E)=000016 000016 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031375 031375 0 0 312716000000 0 000016000016 -IT1 031375 0 0 0 312716000000 0 000016000016 -AT1 031375 0 0 0 0 0 312716000000 -AT2 031375 0 0 0 000016000016 0 312716000000 -AT3 031375 0 0 0 000000000016 0 000016000016 -AT6 031375 000016 0 0 000000000016 0 000016000016 -FT0 031375 000016 0 0 000016000016 0 000016000016 -FT1A 031375 000016 0 0 000016000016 0 000016000016 -FT2 031375 000016 0 0 0 0 000016000016 -FT2RQ 031375 000016 0 0 000016000016 0 000016000016 -FT3 031375 000016 0 0 000016000016 0 000016000016 -FT9 031376 000016 0 0 000016000016 0 000016000016 -ET0 031377 000016 0 0 0 0 000016000016 -ST1A 031377 000016 0 0 0 0 000016000016 -ST9 031377 000016 0 0 0 0 000016000016 - - -*031377 JUMPA 0,031400 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031377 031377 0 0 324000031400 0 000000031400 -IT1 031377 0 0 0 324000031400 0 000000031400 -AT3 031377 0 0 0 000000031400 0 324000031400 -AT6 031377 0 0 0 000000031400 0 324000031400 -FT1A 031377 0 0 0 000000031400 0 000000031400 -FT2 031377 0 0 0 0 0 000000031400 -FT2RQ 031377 0 0 0 000000000017 0 000000031400 -FT3 031377 0 0 0 000000000017 0 000000031400 -FT9 0 0 0 0 000000000017 0 000000031400 -ET0 0 0 0 0 000000000017 0 000000031400 -ST1A 0 0 0 0 000000000017 0 000000031400 -ST9 0 0 0 0 000000000017 0 000000031400 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 102 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0297 - -*031400 MOVEI 17,000017 -INITIAL -C(AC)=000000 000017 -FINAL -C(AC)=000000 000017 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 201740000017 0 000000000017 -IT1 0 0 0 0 201740000017 0 000000000017 -AT3 0 0 0 0 000000000017 0 201740000017 -AT6 0 000017 0 0 000000000017 0 201740000017 -FT1A 0 000017 0 0 000000000017 0 000000000017 -FT9 031401 000017 0 0 000000000017 0 000000000017 -ET0 031401 000017 0 0 000000000017 0 000000000017 -ST1 031401 000017 0 0 000000000017 0 000000000017 -ST2 031401 000017 0 0 000000000017 0 000000000017 -ST9 031401 000017 0 0 000000000017 0 000000000017 - - -*031401 HRLI 17,000017 -INITIAL -C(AC)=000000 000017 -FINAL -C(AC)=000017 000017 - -TIME PC MA SC FE AR MQ BR -IT0 031401 031401 0 0 505740000017 0 000000000017 -IT1 031401 0 0 0 505740000017 0 000000000017 -AT3 031401 0 0 0 000000000017 0 505740000017 -AT6 031401 000017 0 0 000000000017 0 505740000017 -FT1A 031401 000017 0 0 000000000017 0 000000000017 -FT2 031401 000017 0 0 0 0 000000000017 -FT2RQ 031401 000017 0 0 000000000017 0 000000000017 -FT3 031401 000017 0 0 000000000017 0 000000000017 -FT9 031402 000017 0 0 000000000017 0 000000000017 -ET0 031402 000017 0 0 000000000017 0 000000000017 -ET1 031402 000017 0 0 000017000017 0 000000000017 -ST1 031402 000017 0 0 000017000017 0 000000000017 -ST2 031402 000017 0 0 000017000017 0 000000000017 -ST9 031402 000017 0 0 000017000017 0 000000000017 - - -*031402 CAME 17,000000(17) -INITIAL -C(AC)=000017 000017 -C(E)=000017 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031402 031402 0 0 312757000000 0 000017000017 -IT1 031402 0 0 0 312757000000 0 000017000017 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 103 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0298 - -AT1 031402 0 0 0 0 0 312757000000 -AT2 031402 0 0 0 000017000017 0 312757000000 -AT3 031402 0 0 0 000000000017 0 000017000017 -AT6 031402 000017 0 0 000000000017 0 000017000017 -FT0 031402 000017 0 0 000017000017 0 000017000017 -FT1A 031402 000017 0 0 000017000017 0 000017000017 -FT2 031402 000017 0 0 0 0 000017000017 -FT2RQ 031402 000017 0 0 000017000017 0 000017000017 -FT3 031402 000017 0 0 000017000017 0 000017000017 -FT9 031403 000017 0 0 000017000017 0 000017000017 -ET0 031404 000017 0 0 0 0 000017000017 -ST1A 031404 000017 0 0 0 0 000017000017 -ST9 031404 000017 0 0 0 0 000017000017 - - -*031404 JUMPA 0,031405 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031404 031404 0 0 324000031405 0 000000031405 -IT1 031404 0 0 0 324000031405 0 000000031405 -AT3 031404 0 0 0 000000031405 0 324000031405 -AT6 031404 031405 0 0 000000031405 0 324000031405 -FT1A 031404 031405 0 0 000000031405 0 000000031405 -FT2 031404 031405 0 0 0 0 000000031405 -FT2RQ 031404 031405 0 0 000000000017 0 000000031405 -FT3 031404 031405 0 0 000000000017 0 000000031405 -FT9 031405 031405 0 0 000000000017 0 000000031405 -ET0 031405 031405 0 0 000000000017 0 000000031405 -ST1A 031405 031405 0 0 000000000017 0 000000031405 -ST9 031405 031405 0 0 000000000017 0 000000031405 - - -*031405 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000003 000003 -FINAL - -C(E)=000003 000003 - -TIME PC MA SC FE AR MQ BR -IT0 031405 031405 0 0 476000000003 0 000000000003 -IT1 031405 0 0 0 476000000003 0 000000000003 -AT3 031405 0 0 0 000000000003 0 476000000003 -AT6 031405 000003 0 0 000000000003 0 476000000003 -FT1A 031405 000003 0 0 000000000003 0 000000000003 -FT9 031406 000003 0 0 000000000003 0 000000000003 -ET0 031406 000003 0 0 777777777777 0 000000000003 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 104 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0299 - -ST6 031406 000003 0 0 777777777777 0 000000000003 -ST6A 031406 000003 0 0 777777777777 0 000000000003 -ST9 031406 000003 0 0 777777777777 0 000000000003 - - -*031406 SETZM 0,000001 -INITIAL -C(AC)=000000 000017 -C(E)=000001 000001 -FINAL - -C(E)=000001 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031406 031406 0 0 402000000001 0 000000000001 -IT1 031406 0 0 0 402000000001 0 000000000001 -AT3 031406 0 0 0 000000000001 0 402000000001 -AT6 031406 000001 0 0 000000000001 0 402000000001 -FT1A 031406 000001 0 0 000000000001 0 000000000001 -FT9 031407 000001 0 0 000000000001 0 000000000001 -ET0 031407 000001 0 0 0 0 000000000001 -ST6 031407 000001 0 0 0 0 000000000001 -ST6A 031407 000001 0 0 0 0 000000000001 -ST9 031407 000001 0 0 0 0 000000000001 - - -*031407 MOVEI 2,000001 -INITIAL -C(AC)=000002 000002 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031407 031407 0 0 201100000001 0 000000000001 -IT1 031407 0 0 0 201100000001 0 000000000001 -AT3 031407 0 0 0 000000000001 0 201100000001 -AT6 031407 000001 0 0 000000000001 0 201100000001 -FT1A 031407 000001 0 0 000000000001 0 000000000001 -FT9 031410 000001 0 0 000000000001 0 000000000001 -ET0 031410 000001 0 0 000000000001 0 000000000001 -ST1 031410 000001 0 0 000000000001 0 000000000001 -ST2 031410 000001 0 0 000000000001 0 000000000001 -ST9 031410 000001 0 0 000000000001 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 105 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0300 - -*031410 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031410 031410 0 0 200142000000 0 0 -IT1 031410 0 0 0 200142000000 0 0 -AT1 031410 0 0 0 0 0 200142000000 -AT2 031410 0 0 0 000000000001 0 200142000000 -AT3 031410 0 0 0 000000000001 0 000000000001 -AT6 031410 000001 0 0 000000000001 0 000000000001 -FT0 031410 000001 0 0 0 0 000000000001 -FT1A 031410 000001 0 0 0 0 0 -FT9 031411 000001 0 0 0 0 0 -ET0 031411 000001 0 0 0 0 0 -ST1 031411 000001 0 0 0 0 0 -ST2 031411 000001 0 0 0 0 0 -ST9 031411 000001 0 0 0 0 0 - - -*031411 SKIPE 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 000000 -FINAL -C(AC)=000000 000017 - -TIME PC MA SC FE AR MQ BR -IT0 031411 031411 0 0 332000000003 0 0 -IT1 031411 0 0 0 332000000003 0 0 -AT3 031411 0 0 0 000000000003 0 332000000003 -AT6 031411 000003 0 0 000000000003 0 332000000003 -FT0 031411 000003 0 0 0 0 332000000003 -FT1A 031411 000003 0 0 0 0 0 -FT9 031412 000003 0 0 0 0 0 -ET0 031413 000003 0 0 0 0 0 -ST1A 031413 000003 0 0 0 0 0 -ST9 031413 000003 0 0 0 0 0 - - -*031413 JUMPA 0,031414 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031413 031413 0 0 324000031414 0 000000031414 -IT1 031413 0 0 0 324000031414 0 000000031414 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 106 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0301 - -AT3 031413 0 0 0 000000031414 0 324000031414 -AT6 031413 031414 0 0 000000031414 0 324000031414 -FT1A 031413 031414 0 0 000000031414 0 000000031414 -FT2 031413 031414 0 0 0 0 000000031414 -FT2RQ 031413 031414 0 0 000000000017 0 000000031414 -FT3 031413 031414 0 0 000000000017 0 000000031414 -FT9 031414 031414 0 0 000000000017 0 000000031414 -ET0 031414 031414 0 0 000000000017 0 000000031414 -ST1A 031414 031414 0 0 000000000017 0 000000031414 -ST9 031414 031414 0 0 000000000017 0 000000031414 - - -*031414 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 000000 -FINAL - -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031414 031414 0 0 476000000003 0 000000000003 -IT1 031414 0 0 0 476000000003 0 000000000003 -AT3 031414 0 0 0 000000000003 0 476000000003 -AT6 031414 000003 0 0 000000000003 0 476000000003 -FT1A 031414 000003 0 0 000000000003 0 000000000003 -FT9 031415 000003 0 0 000000000003 0 000000000003 -ET0 031415 000003 0 0 777777777777 0 000000000003 -ST6 031415 000003 0 0 777777777777 0 000000000003 -ST6A 031415 000003 0 0 777777777777 0 000000000003 -ST9 031415 000003 0 0 777777777777 0 000000000003 - - -*031415 MOVEI 1,000001 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031415 031415 0 0 201040000001 0 000000000001 -IT1 031415 0 0 0 201040000001 0 000000000001 -AT3 031415 0 0 0 000000000001 0 201040000001 -AT6 031415 000001 0 0 000000000001 0 201040000001 -FT1A 031415 000001 0 0 000000000001 0 000000000001 -FT9 031416 000001 0 0 000000000001 0 000000000001 -ET0 031416 000001 0 0 000000000001 0 000000000001 -ST1 031416 000001 0 0 000000000001 0 000000000001 -ST2 031416 000001 0 0 000000000001 0 000000000001 -ST9 031416 000001 0 0 000000000001 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 107 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0302 - -*031416 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031416 031416 0 0 201100000001 0 000000000001 -IT1 031416 0 0 0 201100000001 0 000000000001 -AT3 031416 0 0 0 000000000001 0 201100000001 -AT6 031416 000001 0 0 000000000001 0 201100000001 -FT1A 031416 000001 0 0 000000000001 0 000000000001 -FT9 031417 000001 0 0 000000000001 0 000000000001 -ET0 031417 000001 0 0 000000000001 0 000000000001 -ST1 031417 000001 0 0 000000000001 0 000000000001 -ST2 031417 000001 0 0 000000000001 0 000000000001 -ST9 031417 000001 0 0 000000000001 0 000000000001 - - -*031417 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031417 031417 0 0 200142000000 0 000000000001 -IT1 031417 0 0 0 200142000000 0 000000000001 -AT1 031417 0 0 0 0 0 200142000000 -AT2 031417 0 0 0 000000000001 0 200142000000 -AT3 031417 0 0 0 000000000001 0 000000000001 -AT6 031417 000001 0 0 000000000001 0 000000000001 -FT0 031417 000001 0 0 000000000001 0 000000000001 -FT1A 031417 000001 0 0 000000000001 0 000000000001 -FT9 031420 000001 0 0 000000000001 0 000000000001 -ET0 031420 000001 0 0 000000000001 0 000000000001 -ST1 031420 000001 0 0 000000000001 0 000000000001 -ST2 031420 000001 0 0 000000000001 0 000000000001 -ST9 031420 000001 0 0 000000000001 0 000000000001 - - -*031420 CAIE 3,000001 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031420 031420 0 0 302140000001 0 000000000001 -IT1 031420 0 0 0 302140000001 0 000000000001 -AT3 031420 0 0 0 000000000001 0 302140000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 108 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0303 - -AT6 031420 000001 0 0 000000000001 0 302140000001 -FT1A 031420 000001 0 0 000000000001 0 000000000001 -FT2 031420 000001 0 0 0 0 000000000001 -FT2RQ 031420 000001 0 0 000000000001 0 000000000001 -FT3 031420 000001 0 0 000000000001 0 000000000001 -FT9 031421 000001 0 0 000000000001 0 000000000001 -ET0 031422 000001 0 0 0 0 000000000001 -ST1A 031422 000001 0 0 0 0 000000000001 -ST9 031422 000001 0 0 0 0 000000000001 - - -*031422 JUMPA 0,031423 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031422 031422 0 0 324000031423 0 000000031423 -IT1 031422 0 0 0 324000031423 0 000000031423 -AT3 031422 0 0 0 000000031423 0 324000031423 -AT6 031422 031423 0 0 000000031423 0 324000031423 -FT1A 031422 031423 0 0 000000031423 0 000000031423 -FT2 031422 031423 0 0 0 0 000000031423 -FT2RQ 031422 031423 0 0 000000000017 0 000000031423 -FT3 031422 031423 0 0 000000000017 0 000000031423 -FT9 031423 031423 0 0 000000000017 0 000000031423 -ET0 031423 031423 0 0 000000000017 0 000000031423 -ST1A 031423 031423 0 0 000000000017 0 000000031423 -ST9 031423 031423 0 0 000000000017 0 000000031423 - - -*031423 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 000001 -FINAL - -C(E)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031423 031423 0 0 476000000003 0 000000000003 -IT1 031423 0 0 0 476000000003 0 000000000003 -AT3 031423 0 0 0 000000000003 0 476000000003 -AT6 031423 000003 0 0 000000000003 0 476000000003 -FT1A 031423 000003 0 0 000000000003 0 000000000003 -FT9 031424 000003 0 0 000000000003 0 000000000003 -ET0 031424 000003 0 0 777777777777 0 000000000003 -ST6 031424 000003 0 0 777777777777 0 000000000003 -ST6A 031424 000003 0 0 777777777777 0 000000000003 -ST9 031424 000003 0 0 777777777777 0 000000000003 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 109 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0304 - - -*031424 MOVEI 1,000002 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 031424 031424 0 0 201040000002 0 000000000002 -IT1 031424 0 0 0 201040000002 0 000000000002 -AT3 031424 0 0 0 000000000002 0 201040000002 -AT6 031424 000002 0 0 000000000002 0 201040000002 -FT1A 031424 000002 0 0 000000000002 0 000000000002 -FT9 031425 000002 0 0 000000000002 0 000000000002 -ET0 031425 000002 0 0 000000000002 0 000000000002 -ST1 031425 000002 0 0 000000000002 0 000000000002 -ST2 031425 000002 0 0 000000000002 0 000000000002 -ST9 031425 000002 0 0 000000000002 0 000000000002 - - -*031425 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031425 031425 0 0 201100000001 0 000000000001 -IT1 031425 0 0 0 201100000001 0 000000000001 -AT3 031425 0 0 0 000000000001 0 201100000001 -AT6 031425 000001 0 0 000000000001 0 201100000001 -FT1A 031425 000001 0 0 000000000001 0 000000000001 -FT9 031426 000001 0 0 000000000001 0 000000000001 -ET0 031426 000001 0 0 000000000001 0 000000000001 -ST1 031426 000001 0 0 000000000001 0 000000000001 -ST2 031426 000001 0 0 000000000001 0 000000000001 -ST9 031426 000001 0 0 000000000001 0 000000000001 - - -*031426 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 031426 031426 0 0 200142000000 0 000000000002 -IT1 031426 0 0 0 200142000000 0 000000000002 -AT1 031426 0 0 0 0 0 200142000000 -AT2 031426 0 0 0 000000000001 0 200142000000 -AT3 031426 0 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 110 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0305 - -AT6 031426 000001 0 0 000000000001 0 000000000001 -FT0 031426 000001 0 0 000000000002 0 000000000001 -FT1A 031426 000001 0 0 000000000002 0 000000000002 -FT9 031427 000001 0 0 000000000002 0 000000000002 -ET0 031427 000001 0 0 000000000002 0 000000000002 -ST1 031427 000001 0 0 000000000002 0 000000000002 -ST2 031427 000001 0 0 000000000002 0 000000000002 -ST9 031427 000001 0 0 000000000002 0 000000000002 - - -*031427 CAIE 3,000002 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031427 031427 0 0 302140000002 0 000000000002 -IT1 031427 0 0 0 302140000002 0 000000000002 -AT3 031427 0 0 0 000000000002 0 302140000002 -AT6 031427 000002 0 0 000000000002 0 302140000002 -FT1A 031427 000002 0 0 000000000002 0 000000000002 -FT2 031427 000002 0 0 0 0 000000000002 -FT2RQ 031427 000002 0 0 000000000002 0 000000000002 -FT3 031427 000002 0 0 000000000002 0 000000000002 -FT9 031430 000002 0 0 000000000002 0 000000000002 -ET0 031431 000002 0 0 0 0 000000000002 -ST1A 031431 000002 0 0 0 0 000000000002 -ST9 031431 000002 0 0 0 0 000000000002 - - -*031431 JUMPA 0,031432 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031431 031431 0 0 324000031432 0 000000031432 -IT1 031431 0 0 0 324000031432 0 000000031432 -AT3 031431 0 0 0 000000031432 0 324000031432 -AT6 031431 031432 0 0 000000031432 0 324000031432 -FT1A 031431 031432 0 0 000000031432 0 000000031432 -FT2 031431 031432 0 0 0 0 000000031432 -FT2RQ 031431 031432 0 0 000000000017 0 000000031432 -FT3 031431 031432 0 0 000000000017 0 000000031432 -FT9 031432 031432 0 0 000000000017 0 000000031432 -ET0 031432 031432 0 0 000000000017 0 000000031432 -ST1A 031432 031432 0 0 000000000017 0 000000031432 -ST9 031432 031432 0 0 000000000017 0 000000031432 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 111 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0306 - -*031432 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 000002 -FINAL - -C(E)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 031432 031432 0 0 476000000003 0 000000000003 -IT1 031432 0 0 0 476000000003 0 000000000003 -AT3 031432 0 0 0 000000000003 0 476000000003 -AT6 031432 000003 0 0 000000000003 0 476000000003 -FT1A 031432 000003 0 0 000000000003 0 000000000003 -FT9 031433 000003 0 0 000000000003 0 000000000003 -ET0 031433 000003 0 0 777777777777 0 000000000003 -ST6 031433 000003 0 0 777777777777 0 000000000003 -ST6A 031433 000003 0 0 777777777777 0 000000000003 -ST9 031433 000003 0 0 777777777777 0 000000000003 - - -*031433 MOVEI 1,000004 -INITIAL -C(AC)=000000 000002 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 031433 031433 0 0 201040000004 0 000000000004 -IT1 031433 0 0 0 201040000004 0 000000000004 -AT3 031433 0 0 0 000000000004 0 201040000004 -AT6 031433 000004 0 0 000000000004 0 201040000004 -FT1A 031433 000004 0 0 000000000004 0 000000000004 -FT9 031434 000004 0 0 000000000004 0 000000000004 -ET0 031434 000004 0 0 000000000004 0 000000000004 -ST1 031434 000004 0 0 000000000004 0 000000000004 -ST2 031434 000004 0 0 000000000004 0 000000000004 -ST9 031434 000004 0 0 000000000004 0 000000000004 - - -*031434 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031434 031434 0 0 201100000001 0 000000000001 -IT1 031434 0 0 0 201100000001 0 000000000001 -AT3 031434 0 0 0 000000000001 0 201100000001 -AT6 031434 000001 0 0 000000000001 0 201100000001 -FT1A 031434 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 112 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0307 - -FT9 031435 000001 0 0 000000000001 0 000000000001 -ET0 031435 000001 0 0 000000000001 0 000000000001 -ST1 031435 000001 0 0 000000000001 0 000000000001 -ST2 031435 000001 0 0 000000000001 0 000000000001 -ST9 031435 000001 0 0 000000000001 0 000000000001 - - -*031435 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 031435 031435 0 0 200142000000 0 000000000004 -IT1 031435 0 0 0 200142000000 0 000000000004 -AT1 031435 0 0 0 0 0 200142000000 -AT2 031435 0 0 0 000000000001 0 200142000000 -AT3 031435 0 0 0 000000000001 0 000000000001 -AT6 031435 000001 0 0 000000000001 0 000000000001 -FT0 031435 000001 0 0 000000000004 0 000000000001 -FT1A 031435 000001 0 0 000000000004 0 000000000004 -FT9 031436 000001 0 0 000000000004 0 000000000004 -ET0 031436 000001 0 0 000000000004 0 000000000004 -ST1 031436 000001 0 0 000000000004 0 000000000004 -ST2 031436 000001 0 0 000000000004 0 000000000004 -ST9 031436 000001 0 0 000000000004 0 000000000004 - - -*031436 CAIE 3,000004 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031436 031436 0 0 302140000004 0 000000000004 -IT1 031436 0 0 0 302140000004 0 000000000004 -AT3 031436 0 0 0 000000000004 0 302140000004 -AT6 031436 000004 0 0 000000000004 0 302140000004 -FT1A 031436 000004 0 0 000000000004 0 000000000004 -FT2 031436 000004 0 0 0 0 000000000004 -FT2RQ 031436 000004 0 0 000000000004 0 000000000004 -FT3 031436 000004 0 0 000000000004 0 000000000004 -FT9 031437 000004 0 0 000000000004 0 000000000004 -ET0 031440 000004 0 0 0 0 000000000004 -ST1A 031440 000004 0 0 0 0 000000000004 -ST9 031440 000004 0 0 0 0 000000000004 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 113 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0308 - -*031440 JUMPA 0,031441 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000031441 -FT3 031440 031441 0 0 000000000017 0 000000031441 -FT9 031441 031441 0 0 000000000017 0 000000031441 -ET0 031441 031441 0 0 000000000017 0 000000031441 -ST1A 031441 031441 0 0 000000000017 0 000000031441 -ST9 031441 031441 0 0 000000000017 0 000000031441 - - -*031441 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 000004 -FINAL - -C(E)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 031441 031441 0 0 476000000003 0 000000000003 -IT1 031441 0 0 0 476000000003 0 000000000003 -AT3 031441 0 0 0 000000000003 0 476000000003 -AT6 031441 000003 0 0 000000000003 0 476000000003 -FT1A 031441 000003 0 0 000000000003 0 000000000003 -FT9 031442 000003 0 0 000000000003 0 000000000003 -ET0 031442 000003 0 0 777777777777 0 000000000003 -ST6 031442 000003 0 0 777777777777 0 000000000003 -ST6A 031442 000003 0 0 777777777777 0 000000000003 -ST9 031442 000003 0 0 777777777777 0 000000000003 - - -*031442 MOVEI 1,000010 -INITIAL -C(AC)=000000 000004 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 031442 031442 0 0 201040000010 0 000000000010 -IT1 031442 0 0 0 201040000010 0 000000000010 -AT3 031442 0 0 0 000000000010 0 201040000010 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 114 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0309 - -AT6 031442 000010 0 0 000000000010 0 201040000010 -FT1A 031442 000010 0 0 000000000010 0 000000000010 -FT9 031443 000010 0 0 000000000010 0 000000000010 -ET0 031443 000010 0 0 000000000010 0 000000000010 -ST1 031443 000010 0 0 000000000010 0 000000000010 -ST2 031443 000010 0 0 000000000010 0 000000000010 -ST9 031443 000010 0 0 000000000010 0 000000000010 - - -*031443 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031443 031443 0 0 201100000001 0 000000000001 -IT1 031443 0 0 0 201100000001 0 000000000001 -AT3 031443 0 0 0 000000000001 0 201100000001 -AT6 031443 000001 0 0 000000000001 0 201100000001 -FT1A 031443 000001 0 0 000000000001 0 000000000001 -FT9 031444 000001 0 0 000000000001 0 000000000001 -ET0 031444 000001 0 0 000000000001 0 000000000001 -ST1 031444 000001 0 0 000000000001 0 000000000001 -ST2 031444 000001 0 0 000000000001 0 000000000001 -ST9 031444 000001 0 0 000000000001 0 000000000001 - - -*031444 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 031444 031444 0 0 200142000000 0 000000000010 -IT1 031444 0 0 0 200142000000 0 000000000010 -AT1 031444 0 0 0 0 0 200142000000 -AT2 031444 0 0 0 000000000001 0 200142000000 -AT3 031444 0 0 0 000000000001 0 000000000001 -AT6 031444 000001 0 0 000000000001 0 000000000001 -FT0 031444 000001 0 0 000000000010 0 000000000001 -FT1A 031444 000001 0 0 000000000010 0 000000000010 -FT9 031445 000001 0 0 000000000010 0 000000000010 -ET0 031445 000001 0 0 000000000010 0 000000000010 -ST1 031445 000001 0 0 000000000010 0 000000000010 -ST2 031445 000001 0 0 000000000010 0 000000000010 -ST9 031445 000001 0 0 000000000010 0 000000000010 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 115 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0310 - -*031445 CAIE 3,000010 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031445 031445 0 0 302140000010 0 000000000010 -IT1 031445 0 0 0 302140000010 0 000000000010 -AT3 031445 0 0 0 000000000010 0 302140000010 -AT6 031445 000010 0 0 000000000010 0 302140000010 -FT1A 031445 000010 0 0 000000000010 0 000000000010 -FT2 031445 000010 0 0 0 0 000000000010 -FT2RQ 031445 000010 0 0 000000000010 0 000000000010 -FT3 031445 000010 0 0 000000000010 0 000000000010 -FT9 031446 000010 0 0 000000000010 0 000000000010 -ET0 031447 000010 0 0 0 0 000000000010 -ST1A 031447 000010 0 0 0 0 000000000010 -ST9 031447 000010 0 0 0 0 000000000010 - - -*031447 JUMPA 0,031450 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031447 031447 0 0 324000031450 0 000000031450 -IT1 031447 0 0 0 324000031450 0 000000031450 -AT3 031447 0 0 0 000000031450 0 324000031450 -AT6 031447 031450 0 0 000000031450 0 324000031450 -FT1A 031447 031450 0 0 000000031450 0 000000031450 -FT2 031447 031450 0 0 0 0 000000031450 -FT2RQ 031447 031450 0 0 000000000017 0 000000031450 -FT3 031447 031450 0 0 000000000017 0 000000031450 -FT9 031450 031450 0 0 000000000017 0 000000031450 -ET0 031450 031450 0 0 000000000017 0 000000031450 -ST1A 031450 031450 0 0 000000000017 0 000000031450 -ST9 031450 031450 0 0 000000000017 0 000000031450 - - -*031450 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 000010 -FINAL - -C(E)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 031450 031450 0 0 476000000003 0 000000000003 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 116 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0311 - -IT1 031450 0 0 0 476000000003 0 000000000003 -AT3 031450 0 0 0 000000000003 0 476000000003 -AT6 031450 000003 0 0 000000000003 0 476000000003 -FT1A 031450 000003 0 0 000000000003 0 000000000003 -FT9 031451 000003 0 0 000000000003 0 000000000003 -ET0 031451 000003 0 0 777777777777 0 000000000003 -ST6 031451 000003 0 0 777777777777 0 000000000003 -ST6A 031451 000003 0 0 777777777777 0 000000000003 -ST9 031451 000003 0 0 777777777777 0 000000000003 - - -*031451 MOVEI 1,000020 -INITIAL -C(AC)=000000 000010 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 031451 031451 0 0 201040000020 0 000000000020 -IT1 031451 0 0 0 201040000020 0 000000000020 -AT3 031451 0 0 0 000000000020 0 201040000020 -AT6 031451 000020 0 0 000000000020 0 201040000020 -FT1A 031451 000020 0 0 000000000020 0 000000000020 -FT9 031452 000020 0 0 000000000020 0 000000000020 -ET0 031452 000020 0 0 000000000020 0 000000000020 -ST1 031452 000020 0 0 000000000020 0 000000000020 -ST2 031452 000020 0 0 000000000020 0 000000000020 -ST9 031452 000020 0 0 000000000020 0 000000000020 - - -*031452 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031452 031452 0 0 201100000001 0 000000000001 -IT1 031452 0 0 0 201100000001 0 000000000001 -AT3 031452 0 0 0 000000000001 0 201100000001 -AT6 031452 000001 0 0 000000000001 0 201100000001 -FT1A 031452 000001 0 0 000000000001 0 000000000001 -FT9 031453 000001 0 0 000000000001 0 000000000001 -ET0 031453 000001 0 0 000000000001 0 000000000001 -ST1 031453 000001 0 0 000000000001 0 000000000001 -ST2 031453 000001 0 0 000000000001 0 000000000001 -ST9 031453 000001 0 0 000000000001 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 117 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0312 - -*031453 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 031453 031453 0 0 200142000000 0 000000000020 -IT1 031453 0 0 0 200142000000 0 000000000020 -AT1 031453 0 0 0 0 0 200142000000 -AT2 031453 0 0 0 000000000001 0 200142000000 -AT3 031453 0 0 0 000000000001 0 000000000001 -AT6 031453 000001 0 0 000000000001 0 000000000001 -FT0 031453 000001 0 0 000000000020 0 000000000001 -FT1A 031453 000001 0 0 000000000020 0 000000000020 -FT9 031454 000001 0 0 000000000020 0 000000000020 -ET0 031454 000001 0 0 000000000020 0 000000000020 -ST1 031454 000001 0 0 000000000020 0 000000000020 -ST2 031454 000001 0 0 000000000020 0 000000000020 -ST9 031454 000001 0 0 000000000020 0 000000000020 - - -*031454 CAIE 3,000020 -INITIAL -C(AC)=000000 000020 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031454 031454 0 0 302140000020 0 000000000020 -IT1 031454 0 0 0 302140000020 0 000000000020 -AT3 031454 0 0 0 000000000020 0 302140000020 -AT6 031454 000020 0 0 000000000020 0 302140000020 -FT1A 031454 000020 0 0 000000000020 0 000000000020 -FT2 031454 000020 0 0 0 0 000000000020 -FT2RQ 031454 000020 0 0 000000000020 0 000000000020 -FT3 031454 000020 0 0 000000000020 0 000000000020 -FT9 031455 000020 0 0 000000000020 0 000000000020 -ET0 031456 000020 0 0 0 0 000000000020 -ST1A 031456 000020 0 0 0 0 000000000020 -ST9 031456 000020 0 0 0 0 000000000020 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 118 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0313 - -*031456 JUMPA 0,031457 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031456 031456 0 0 324000031457 0 000000031457 -IT1 031456 0 0 0 324000031457 0 000000031457 -AT3 031456 0 0 0 000000031457 0 324000031457 -AT6 031456 031457 0 0 000000031457 0 324000031457 -FT1A 031456 031457 0 0 000000031457 0 000000031457 -FT2 031456 031457 0 0 0 0 000000031457 -FT2RQ 031456 031457 0 0 000000000017 0 000000031457 -FT3 031456 031457 0 0 000000000017 0 000000031457 -FT9 031457 031457 0 0 000000000017 0 000000031457 -ET0 031457 031457 0 0 000000000017 0 000000031457 -ST1A 031457 031457 0 0 000000000017 0 000000031457 -ST9 031457 031457 0 0 000000000017 0 000000031457 - - -*031457 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 000020 -FINAL - -C(E)=000000 000020 - -TIME PC MA SC FE AR MQ BR -IT0 031457 031457 0 0 476000000003 0 000000000003 -IT1 031457 0 0 0 476000000003 0 000000000003 -AT3 031457 0 0 0 000000000003 0 476000000003 -AT6 031457 000003 0 0 000000000003 0 476000000003 -FT1A 031457 000003 0 0 000000000003 0 000000000003 -FT9 031460 000003 0 0 000000000003 0 000000000003 -ET0 031460 000003 0 0 777777777777 0 000000000003 -ST6 031460 000003 0 0 777777777777 0 000000000003 -ST6A 031460 000003 0 0 777777777777 0 000000000003 -ST9 031460 000003 0 0 777777777777 0 000000000003 - - -*031460 MOVEI 1,000040 -INITIAL -C(AC)=000000 000020 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 031460 031460 0 0 201040000040 0 000000000040 -IT1 031460 0 0 0 201040000040 0 000000000040 -AT3 031460 0 0 0 000000000040 0 201040000040 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 119 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0314 - -AT6 031460 000040 0 0 000000000040 0 201040000040 -FT1A 031460 000040 0 0 000000000040 0 000000000040 -FT9 031461 000040 0 0 000000000040 0 000000000040 -ET0 031461 000040 0 0 000000000040 0 000000000040 -ST1 031461 000040 0 0 000000000040 0 000000000040 -ST2 031461 000040 0 0 000000000040 0 000000000040 -ST9 031461 000040 0 0 000000000040 0 000000000040 - - -*031461 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031461 031461 0 0 201100000001 0 000000000001 -IT1 031461 0 0 0 201100000001 0 000000000001 -AT3 031461 0 0 0 000000000001 0 201100000001 -AT6 031461 000001 0 0 000000000001 0 201100000001 -FT1A 031461 000001 0 0 000000000001 0 000000000001 -FT9 031462 000001 0 0 000000000001 0 000000000001 -ET0 031462 000001 0 0 000000000001 0 000000000001 -ST1 031462 000001 0 0 000000000001 0 000000000001 -ST2 031462 000001 0 0 000000000001 0 000000000001 -ST9 031462 000001 0 0 000000000001 0 000000000001 - - -*031462 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 031462 031462 0 0 200142000000 0 000000000040 -IT1 031462 0 0 0 200142000000 0 000000000040 -AT1 031462 0 0 0 0 0 200142000000 -AT2 031462 0 0 0 000000000001 0 200142000000 -AT3 031462 0 0 0 000000000001 0 000000000001 -AT6 031462 000001 0 0 000000000001 0 000000000001 -FT0 031462 000001 0 0 000000000040 0 000000000001 -FT1A 031462 000001 0 0 000000000040 0 000000000040 -FT9 031463 000001 0 0 000000000040 0 000000000040 -ET0 031463 000001 0 0 000000000040 0 000000000040 -ST1 031463 000001 0 0 000000000040 0 000000000040 -ST2 031463 000001 0 0 000000000040 0 000000000040 -ST9 031463 000001 0 0 000000000040 0 000000000040 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 120 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0315 - -*031463 CAIE 3,000040 -INITIAL -C(AC)=000000 000040 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031463 031463 0 0 302140000040 0 000000000040 -IT1 031463 0 0 0 302140000040 0 000000000040 -AT3 031463 0 0 0 000000000040 0 302140000040 -AT6 031463 000040 0 0 000000000040 0 302140000040 -FT1A 031463 000040 0 0 000000000040 0 000000000040 -FT2 031463 000040 0 0 0 0 000000000040 -FT2RQ 031463 000040 0 0 000000000040 0 000000000040 -FT3 031463 000040 0 0 000000000040 0 000000000040 -FT9 031464 000040 0 0 000000000040 0 000000000040 -ET0 031465 000040 0 0 0 0 000000000040 -ST1A 031465 000040 0 0 0 0 000000000040 -ST9 031465 000040 0 0 0 0 000000000040 - - -*031465 JUMPA 0,031466 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031465 031465 0 0 324000031466 0 000000031466 -IT1 031465 0 0 0 324000031466 0 000000031466 -AT3 031465 0 0 0 000000031466 0 324000031466 -AT6 031465 031466 0 0 000000031466 0 324000031466 -FT1A 031465 031466 0 0 000000031466 0 000000031466 -FT2 031465 031466 0 0 0 0 000000031466 -FT2RQ 031465 031466 0 0 000000000017 0 000000031466 -FT3 031465 031466 0 0 000000000017 0 000000031466 -FT9 031466 031466 0 0 000000000017 0 000000031466 -ET0 031466 031466 0 0 000000000017 0 000000031466 -ST1A 031466 031466 0 0 000000000017 0 000000031466 -ST9 031466 031466 0 0 000000000017 0 000000031466 - - -*031466 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 000040 -FINAL - -C(E)=000000 000040 - -TIME PC MA SC FE AR MQ BR -IT0 031466 031466 0 0 476000000003 0 000000000003 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 121 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0316 - -IT1 031466 0 0 0 476000000003 0 000000000003 -AT3 031466 0 0 0 000000000003 0 476000000003 -AT6 031466 000003 0 0 000000000003 0 476000000003 -FT1A 031466 000003 0 0 000000000003 0 000000000003 -FT9 031467 000003 0 0 000000000003 0 000000000003 -ET0 031467 000003 0 0 777777777777 0 000000000003 -ST6 031467 000003 0 0 777777777777 0 000000000003 -ST6A 031467 000003 0 0 777777777777 0 000000000003 -ST9 031467 000003 0 0 777777777777 0 000000000003 - - -*031467 MOVEI 1,000100 -INITIAL -C(AC)=000000 000040 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 031467 031467 0 0 201040000100 0 000000000100 -IT1 031467 0 0 0 201040000100 0 000000000100 -AT3 031467 0 0 0 000000000100 0 201040000100 -AT6 031467 0 0 0 000000000100 0 201040000100 -FT1A 031467 0 0 0 000000000100 0 000000000100 -FT9 031470 0 0 0 000000000100 0 000000000100 -ET0 031470 0 0 0 000000000100 0 000000000100 -ST1 031470 0 0 0 000000000100 0 000000000100 -ST2 031470 0 0 0 000000000100 0 000000000100 -ST9 031470 0 0 0 000000000100 0 000000000100 - - -*031470 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031470 031470 0 0 201100000001 0 000000000001 -IT1 031470 0 0 0 201100000001 0 000000000001 -AT3 031470 0 0 0 000000000001 0 201100000001 -AT6 031470 000001 0 0 000000000001 0 201100000001 -FT1A 031470 000001 0 0 000000000001 0 000000000001 -FT9 031471 000001 0 0 000000000001 0 000000000001 -ET0 031471 000001 0 0 000000000001 0 000000000001 -ST1 031471 000001 0 0 000000000001 0 000000000001 -ST2 031471 000001 0 0 000000000001 0 000000000001 -ST9 031471 000001 0 0 000000000001 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 122 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0317 - -*031471 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 031471 031471 0 0 200142000000 0 000000000100 -IT1 031471 0 0 0 200142000000 0 000000000100 -AT1 031471 0 0 0 0 0 200142000000 -AT2 031471 0 0 0 000000000001 0 200142000000 -AT3 031471 0 0 0 000000000001 0 000000000001 -AT6 031471 000001 0 0 000000000001 0 000000000001 -FT0 031471 000001 0 0 000000000100 0 000000000001 -FT1A 031471 000001 0 0 000000000100 0 000000000100 -FT9 031472 000001 0 0 000000000100 0 000000000100 -ET0 031472 000001 0 0 000000000100 0 000000000100 -ST1 031472 000001 0 0 000000000100 0 000000000100 -ST2 031472 000001 0 0 000000000100 0 000000000100 -ST9 031472 000001 0 0 000000000100 0 000000000100 - - -*031472 CAIE 3,000100 -INITIAL -C(AC)=000000 000100 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031472 031472 0 0 302140000100 0 000000000100 -IT1 031472 0 0 0 302140000100 0 000000000100 -AT3 031472 0 0 0 000000000100 0 302140000100 -AT6 031472 0 0 0 000000000100 0 302140000100 -FT1A 031472 0 0 0 000000000100 0 000000000100 -FT2 031472 0 0 0 0 0 000000000100 -FT2RQ 031472 0 0 0 000000000100 0 000000000100 -FT3 031472 0 0 0 000000000100 0 000000000100 -FT9 031473 0 0 0 000000000100 0 000000000100 -ET0 031474 0 0 0 0 0 000000000100 -ST1A 031474 0 0 0 0 0 000000000100 -ST9 031474 0 0 0 0 0 000000000100 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 123 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0318 - -*031474 JUMPA 0,031475 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031474 031474 0 0 324000031475 0 000000031475 -IT1 031474 0 0 0 324000031475 0 000000031475 -AT3 031474 0 0 0 000000031475 0 324000031475 -AT6 031474 031475 0 0 000000031475 0 324000031475 -FT1A 031474 031475 0 0 000000031475 0 000000031475 -FT2 031474 031475 0 0 0 0 000000031475 -FT2RQ 031474 031475 0 0 000000000017 0 000000031475 -FT3 031474 031475 0 0 000000000017 0 000000031475 -FT9 031475 031475 0 0 000000000017 0 000000031475 -ET0 031475 031475 0 0 000000000017 0 000000031475 -ST1A 031475 031475 0 0 000000000017 0 000000031475 -ST9 031475 031475 0 0 000000000017 0 000000031475 - - -*031475 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 000100 -FINAL - -C(E)=000000 000100 - -TIME PC MA SC FE AR MQ BR -IT0 031475 031475 0 0 476000000003 0 000000000003 -IT1 031475 0 0 0 476000000003 0 000000000003 -AT3 031475 0 0 0 000000000003 0 476000000003 -AT6 031475 000003 0 0 000000000003 0 476000000003 -FT1A 031475 000003 0 0 000000000003 0 000000000003 -FT9 031476 000003 0 0 000000000003 0 000000000003 -ET0 031476 000003 0 0 777777777777 0 000000000003 -ST6 031476 000003 0 0 777777777777 0 000000000003 -ST6A 031476 000003 0 0 777777777777 0 000000000003 -ST9 031476 000003 0 0 777777777777 0 000000000003 - - -*031476 MOVEI 1,000200 -INITIAL -C(AC)=000000 000100 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 031476 031476 0 0 201040000200 0 000000000200 -IT1 031476 0 0 0 201040000200 0 000000000200 -AT3 031476 0 0 0 000000000200 0 201040000200 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 124 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0319 - -AT6 031476 0 0 0 000000000200 0 201040000200 -FT1A 031476 0 0 0 000000000200 0 000000000200 -FT9 031477 0 0 0 000000000200 0 000000000200 -ET0 031477 0 0 0 000000000200 0 000000000200 -ST1 031477 0 0 0 000000000200 0 000000000200 -ST2 031477 0 0 0 000000000200 0 000000000200 -ST9 031477 0 0 0 000000000200 0 000000000200 - - -*031477 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031477 031477 0 0 201100000001 0 000000000001 -IT1 031477 0 0 0 201100000001 0 000000000001 -AT3 031477 0 0 0 000000000001 0 201100000001 -AT6 031477 000001 0 0 000000000001 0 201100000001 -FT1A 031477 000001 0 0 000000000001 0 000000000001 -FT9 0 000001 0 0 000000000001 0 000000000001 -ET0 0 000001 0 0 000000000001 0 000000000001 -ST1 0 000001 0 0 000000000001 0 000000000001 -ST2 0 000001 0 0 000000000001 0 000000000001 -ST9 0 000001 0 0 000000000001 0 000000000001 - - -*031500 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 200142000000 0 000000000200 -IT1 0 0 0 0 200142000000 0 000000000200 -AT1 0 0 0 0 0 0 200142000000 -AT2 0 0 0 0 000000000001 0 200142000000 -AT3 0 0 0 0 000000000001 0 000000000001 -AT6 0 000001 0 0 000000000001 0 000000000001 -FT0 0 000001 0 0 000000000200 0 000000000001 -FT1A 0 000001 0 0 000000000200 0 000000000200 -FT9 031501 000001 0 0 000000000200 0 000000000200 -ET0 031501 000001 0 0 000000000200 0 000000000200 -ST1 031501 000001 0 0 000000000200 0 000000000200 -ST2 031501 000001 0 0 000000000200 0 000000000200 -ST9 031501 000001 0 0 000000000200 0 000000000200 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 125 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0320 - -*031501 CAIE 3,000200 -INITIAL -C(AC)=000000 000200 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031501 031501 0 0 302140000200 0 000000000200 -IT1 031501 0 0 0 302140000200 0 000000000200 -AT3 031501 0 0 0 000000000200 0 302140000200 -AT6 031501 0 0 0 000000000200 0 302140000200 -FT1A 031501 0 0 0 000000000200 0 000000000200 -FT2 031501 0 0 0 0 0 000000000200 -FT2RQ 031501 0 0 0 000000000200 0 000000000200 -FT3 031501 0 0 0 000000000200 0 000000000200 -FT9 031502 0 0 0 000000000200 0 000000000200 -ET0 031503 0 0 0 0 0 000000000200 -ST1A 031503 0 0 0 0 0 000000000200 -ST9 031503 0 0 0 0 0 000000000200 - - -*031503 JUMPA 0,031504 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031503 031503 0 0 324000031504 0 000000031504 -IT1 031503 0 0 0 324000031504 0 000000031504 -AT3 031503 0 0 0 000000031504 0 324000031504 -AT6 031503 031504 0 0 000000031504 0 324000031504 -FT1A 031503 031504 0 0 000000031504 0 000000031504 -FT2 031503 031504 0 0 0 0 000000031504 -FT2RQ 031503 031504 0 0 000000000017 0 000000031504 -FT3 031503 031504 0 0 000000000017 0 000000031504 -FT9 031504 031504 0 0 000000000017 0 000000031504 -ET0 031504 031504 0 0 000000000017 0 000000031504 -ST1A 031504 031504 0 0 000000000017 0 000000031504 -ST9 031504 031504 0 0 000000000017 0 000000031504 - - -*031504 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 000200 -FINAL - -C(E)=000000 000200 - -TIME PC MA SC FE AR MQ BR -IT0 031504 031504 0 0 476000000003 0 000000000003 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 126 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0321 - -IT1 031504 0 0 0 476000000003 0 000000000003 -AT3 031504 0 0 0 000000000003 0 476000000003 -AT6 031504 000003 0 0 000000000003 0 476000000003 -FT1A 031504 000003 0 0 000000000003 0 000000000003 -FT9 031505 000003 0 0 000000000003 0 000000000003 -ET0 031505 000003 0 0 777777777777 0 000000000003 -ST6 031505 000003 0 0 777777777777 0 000000000003 -ST6A 031505 000003 0 0 777777777777 0 000000000003 -ST9 031505 000003 0 0 777777777777 0 000000000003 - - -*031505 MOVEI 1,000400 -INITIAL -C(AC)=000000 000200 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 031505 031505 0 0 201040000400 0 000000000400 -IT1 031505 0 0 0 201040000400 0 000000000400 -AT3 031505 0 0 0 000000000400 0 201040000400 -AT6 031505 0 0 0 000000000400 0 201040000400 -FT1A 031505 0 0 0 000000000400 0 000000000400 -FT9 031506 0 0 0 000000000400 0 000000000400 -ET0 031506 0 0 0 000000000400 0 000000000400 -ST1 031506 0 0 0 000000000400 0 000000000400 -ST2 031506 0 0 0 000000000400 0 000000000400 -ST9 031506 0 0 0 000000000400 0 000000000400 - - -*031506 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031506 031506 0 0 201100000001 0 000000000001 -IT1 031506 0 0 0 201100000001 0 000000000001 -AT3 031506 0 0 0 000000000001 0 201100000001 -AT6 031506 000001 0 0 000000000001 0 201100000001 -FT1A 031506 000001 0 0 000000000001 0 000000000001 -FT9 031507 000001 0 0 000000000001 0 000000000001 -ET0 031507 000001 0 0 000000000001 0 000000000001 -ST1 031507 000001 0 0 000000000001 0 000000000001 -ST2 031507 000001 0 0 000000000001 0 000000000001 -ST9 031507 000001 0 0 000000000001 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 127 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0322 - -*031507 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 031507 031507 0 0 200142000000 0 000000000400 -IT1 031507 0 0 0 200142000000 0 000000000400 -AT1 031507 0 0 0 0 0 200142000000 -AT2 031507 0 0 0 000000000001 0 200142000000 -AT3 031507 0 0 0 000000000001 0 000000000001 -AT6 031507 000001 0 0 000000000001 0 000000000001 -FT0 031507 000001 0 0 000000000400 0 000000000001 -FT1A 031507 000001 0 0 000000000400 0 000000000400 -FT9 031510 000001 0 0 000000000400 0 000000000400 -ET0 031510 000001 0 0 000000000400 0 000000000400 -ST1 031510 000001 0 0 000000000400 0 000000000400 -ST2 031510 000001 0 0 000000000400 0 000000000400 -ST9 031510 000001 0 0 000000000400 0 000000000400 - - -*031510 CAIE 3,000400 -INITIAL -C(AC)=000000 000400 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031510 031510 0 0 302140000400 0 000000000400 -IT1 031510 0 0 0 302140000400 0 000000000400 -AT3 031510 0 0 0 000000000400 0 302140000400 -AT6 031510 0 0 0 000000000400 0 302140000400 -FT1A 031510 0 0 0 000000000400 0 000000000400 -FT2 031510 0 0 0 0 0 000000000400 -FT2RQ 031510 0 0 0 000000000400 0 000000000400 -FT3 031510 0 0 0 000000000400 0 000000000400 -FT9 031511 0 0 0 000000000400 0 000000000400 -ET0 031512 0 0 0 0 0 000000000400 -ST1A 031512 0 0 0 0 0 000000000400 -ST9 031512 0 0 0 0 0 000000000400 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 128 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0323 - -*031512 JUMPA 0,031513 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000031513 -FT3 031512 031513 0 0 000000000017 0 000000031513 -FT9 031513 031513 0 0 000000000017 0 000000031513 -ET0 031513 031513 0 0 000000000017 0 000000031513 -ST1A 031513 031513 0 0 000000000017 0 000000031513 -ST9 031513 031513 0 0 000000000017 0 000000031513 - - -*031513 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 000400 -FINAL - -C(E)=000000 000400 - -TIME PC MA SC FE AR MQ BR -IT0 031513 031513 0 0 476000000003 0 000000000003 -IT1 031513 0 0 0 476000000003 0 000000000003 -AT3 031513 0 0 0 000000000003 0 476000000003 -AT6 031513 000003 0 0 000000000003 0 476000000003 -FT1A 031513 000003 0 0 000000000003 0 000000000003 -FT9 031514 000003 0 0 000000000003 0 000000000003 -ET0 031514 000003 0 0 777777777777 0 000000000003 -ST6 031514 000003 0 0 777777777777 0 000000000003 -ST6A 031514 000003 0 0 777777777777 0 000000000003 -ST9 031514 000003 0 0 777777777777 0 000000000003 - - -*031514 MOVEI 1,001000 -INITIAL -C(AC)=000000 000400 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 031514 031514 0 0 201040001000 0 000000001000 -IT1 031514 0 0 0 201040001000 0 000000001000 -AT3 031514 0 0 0 000000001000 0 201040001000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 129 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0324 - -AT6 031514 0 0 0 000000001000 0 201040001000 -FT1A 031514 0 0 0 000000001000 0 000000001000 -FT9 031515 0 0 0 000000001000 0 000000001000 -ET0 031515 0 0 0 000000001000 0 000000001000 -ST1 031515 0 0 0 000000001000 0 000000001000 -ST2 031515 0 0 0 000000001000 0 000000001000 -ST9 031515 0 0 0 000000001000 0 000000001000 - - -*031515 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031515 031515 0 0 201100000001 0 000000000001 -IT1 031515 0 0 0 201100000001 0 000000000001 -AT3 031515 0 0 0 000000000001 0 201100000001 -AT6 031515 000001 0 0 000000000001 0 201100000001 -FT1A 031515 000001 0 0 000000000001 0 000000000001 -FT9 031516 000001 0 0 000000000001 0 000000000001 -ET0 031516 000001 0 0 000000000001 0 000000000001 -ST1 031516 000001 0 0 000000000001 0 000000000001 -ST2 031516 000001 0 0 000000000001 0 000000000001 -ST9 031516 000001 0 0 000000000001 0 000000000001 - - -*031516 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 031516 031516 0 0 200142000000 0 000000001000 -IT1 031516 0 0 0 200142000000 0 000000001000 -AT1 031516 0 0 0 0 0 200142000000 -AT2 031516 0 0 0 000000000001 0 200142000000 -AT3 031516 0 0 0 000000000001 0 000000000001 -AT6 031516 000001 0 0 000000000001 0 000000000001 -FT0 031516 000001 0 0 000000001000 0 000000000001 -FT1A 031516 000001 0 0 000000001000 0 000000001000 -FT9 031517 000001 0 0 000000001000 0 000000001000 -ET0 031517 000001 0 0 000000001000 0 000000001000 -ST1 031517 000001 0 0 000000001000 0 000000001000 -ST2 031517 000001 0 0 000000001000 0 000000001000 -ST9 031517 000001 0 0 000000001000 0 000000001000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 130 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0325 - -*031517 CAIE 3,001000 -INITIAL -C(AC)=000000 001000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031517 031517 0 0 302140001000 0 000000001000 -IT1 031517 0 0 0 302140001000 0 000000001000 -AT3 031517 0 0 0 000000001000 0 302140001000 -AT6 031517 0 0 0 000000001000 0 302140001000 -FT1A 031517 0 0 0 000000001000 0 000000001000 -FT2 031517 0 0 0 0 0 000000001000 -FT2RQ 031517 0 0 0 000000001000 0 000000001000 -FT3 031517 0 0 0 000000001000 0 000000001000 -FT9 031520 0 0 0 000000001000 0 000000001000 -ET0 031521 0 0 0 0 0 000000001000 -ST1A 031521 0 0 0 0 0 000000001000 -ST9 031521 0 0 0 0 0 000000001000 - - -*031521 JUMPA 0,031522 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031521 031521 0 0 324000031522 0 000000031522 -IT1 031521 0 0 0 324000031522 0 000000031522 -AT3 031521 0 0 0 000000031522 0 324000031522 -AT6 031521 031522 0 0 000000031522 0 324000031522 -FT1A 031521 031522 0 0 000000031522 0 000000031522 -FT2 031521 031522 0 0 0 0 000000031522 -FT2RQ 031521 031522 0 0 000000000017 0 000000031522 -FT3 031521 031522 0 0 000000000017 0 000000031522 -FT9 031522 031522 0 0 000000000017 0 000000031522 -ET0 031522 031522 0 0 000000000017 0 000000031522 -ST1A 031522 031522 0 0 000000000017 0 000000031522 -ST9 031522 031522 0 0 000000000017 0 000000031522 - - -*031522 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 001000 -FINAL - -C(E)=000000 001000 - -TIME PC MA SC FE AR MQ BR -IT0 031522 031522 0 0 476000000003 0 000000000003 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 131 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0326 - -IT1 031522 0 0 0 476000000003 0 000000000003 -AT3 031522 0 0 0 000000000003 0 476000000003 -AT6 031522 000003 0 0 000000000003 0 476000000003 -FT1A 031522 000003 0 0 000000000003 0 000000000003 -FT9 031523 000003 0 0 000000000003 0 000000000003 -ET0 031523 000003 0 0 777777777777 0 000000000003 -ST6 031523 000003 0 0 777777777777 0 000000000003 -ST6A 031523 000003 0 0 777777777777 0 000000000003 -ST9 031523 000003 0 0 777777777777 0 000000000003 - - -*031523 MOVEI 1,002000 -INITIAL -C(AC)=000000 001000 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 031523 031523 0 0 201040002000 0 000000002000 -IT1 031523 0 0 0 201040002000 0 000000002000 -AT3 031523 0 0 0 000000002000 0 201040002000 -AT6 031523 0 0 0 000000002000 0 201040002000 -FT1A 031523 0 0 0 000000002000 0 000000002000 -FT9 031524 0 0 0 000000002000 0 000000002000 -ET0 031524 0 0 0 000000002000 0 000000002000 -ST1 031524 0 0 0 000000002000 0 000000002000 -ST2 031524 0 0 0 000000002000 0 000000002000 -ST9 031524 0 0 0 000000002000 0 000000002000 - - -*031524 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031524 031524 0 0 201100000001 0 000000000001 -IT1 031524 0 0 0 201100000001 0 000000000001 -AT3 031524 0 0 0 000000000001 0 201100000001 -AT6 031524 000001 0 0 000000000001 0 201100000001 -FT1A 031524 000001 0 0 000000000001 0 000000000001 -FT9 031525 000001 0 0 000000000001 0 000000000001 -ET0 031525 000001 0 0 000000000001 0 000000000001 -ST1 031525 000001 0 0 000000000001 0 000000000001 -ST2 031525 000001 0 0 000000000001 0 000000000001 -ST9 031525 000001 0 0 000000000001 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 132 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0327 - -*031525 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 031525 031525 0 0 200142000000 0 000000002000 -IT1 031525 0 0 0 200142000000 0 000000002000 -AT1 031525 0 0 0 0 0 200142000000 -AT2 031525 0 0 0 000000000001 0 200142000000 -AT3 031525 0 0 0 000000000001 0 000000000001 -AT6 031525 000001 0 0 000000000001 0 000000000001 -FT0 031525 000001 0 0 000000002000 0 000000000001 -FT1A 031525 000001 0 0 000000002000 0 000000002000 -FT9 031526 000001 0 0 000000002000 0 000000002000 -ET0 031526 000001 0 0 000000002000 0 000000002000 -ST1 031526 000001 0 0 000000002000 0 000000002000 -ST2 031526 000001 0 0 000000002000 0 000000002000 -ST9 031526 000001 0 0 000000002000 0 000000002000 - - -*031526 CAIE 3,002000 -INITIAL -C(AC)=000000 002000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031526 031526 0 0 302140002000 0 000000002000 -IT1 031526 0 0 0 302140002000 0 000000002000 -AT3 031526 0 0 0 000000002000 0 302140002000 -AT6 031526 0 0 0 000000002000 0 302140002000 -FT1A 031526 0 0 0 000000002000 0 000000002000 -FT2 031526 0 0 0 0 0 000000002000 -FT2RQ 031526 0 0 0 000000002000 0 000000002000 -FT3 031526 0 0 0 000000002000 0 000000002000 -FT9 031527 0 0 0 000000002000 0 000000002000 -ET0 031530 0 0 0 0 0 000000002000 -ST1A 031530 0 0 0 0 0 000000002000 -ST9 031530 0 0 0 0 0 000000002000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 133 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0328 - -*031530 JUMPA 0,031531 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031530 031530 0 0 324000031531 0 000000031531 -IT1 031530 0 0 0 324000031531 0 000000031531 -AT3 031530 0 0 0 000000031531 0 324000031531 -AT6 031530 031531 0 0 000000031531 0 324000031531 -FT1A 031530 031531 0 0 000000031531 0 000000031531 -FT2 031530 031531 0 0 0 0 000000031531 -FT2RQ 031530 031531 0 0 000000000017 0 000000031531 -FT3 031530 031531 0 0 000000000017 0 000000031531 -FT9 031531 031531 0 0 000000000017 0 000000031531 -ET0 031531 031531 0 0 000000000017 0 000000031531 -ST1A 031531 031531 0 0 000000000017 0 000000031531 -ST9 031531 031531 0 0 000000000017 0 000000031531 - - -*031531 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 002000 -FINAL - -C(E)=000000 002000 - -TIME PC MA SC FE AR MQ BR -IT0 031531 031531 0 0 476000000003 0 000000000003 -IT1 031531 0 0 0 476000000003 0 000000000003 -AT3 031531 0 0 0 000000000003 0 476000000003 -AT6 031531 000003 0 0 000000000003 0 476000000003 -FT1A 031531 000003 0 0 000000000003 0 000000000003 -FT9 031532 000003 0 0 000000000003 0 000000000003 -ET0 031532 000003 0 0 777777777777 0 000000000003 -ST6 031532 000003 0 0 777777777777 0 000000000003 -ST6A 031532 000003 0 0 777777777777 0 000000000003 -ST9 031532 000003 0 0 777777777777 0 000000000003 - - -*031532 MOVEI 1,004000 -INITIAL -C(AC)=000000 002000 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 031532 031532 0 0 201040004000 0 000000004000 -IT1 031532 0 0 0 201040004000 0 000000004000 -AT3 031532 0 0 0 000000004000 0 201040004000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 134 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0329 - -AT6 031532 0 0 0 000000004000 0 201040004000 -FT1A 031532 0 0 0 000000004000 0 000000004000 -FT9 031533 0 0 0 000000004000 0 000000004000 -ET0 031533 0 0 0 000000004000 0 000000004000 -ST1 031533 0 0 0 000000004000 0 000000004000 -ST2 031533 0 0 0 000000004000 0 000000004000 -ST9 031533 0 0 0 000000004000 0 000000004000 - - -*031533 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031533 031533 0 0 201100000001 0 000000000001 -IT1 031533 0 0 0 201100000001 0 000000000001 -AT3 031533 0 0 0 000000000001 0 201100000001 -AT6 031533 000001 0 0 000000000001 0 201100000001 -FT1A 031533 000001 0 0 000000000001 0 000000000001 -FT9 031534 000001 0 0 000000000001 0 000000000001 -ET0 031534 000001 0 0 000000000001 0 000000000001 -ST1 031534 000001 0 0 000000000001 0 000000000001 -ST2 031534 000001 0 0 000000000001 0 000000000001 -ST9 031534 000001 0 0 000000000001 0 000000000001 - - -*031534 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 031534 031534 0 0 200142000000 0 000000004000 -IT1 031534 0 0 0 200142000000 0 000000004000 -AT1 031534 0 0 0 0 0 200142000000 -AT2 031534 0 0 0 000000000001 0 200142000000 -AT3 031534 0 0 0 000000000001 0 000000000001 -AT6 031534 000001 0 0 000000000001 0 000000000001 -FT0 031534 000001 0 0 000000004000 0 000000000001 -FT1A 031534 000001 0 0 000000004000 0 000000004000 -FT9 031535 000001 0 0 000000004000 0 000000004000 -ET0 031535 000001 0 0 000000004000 0 000000004000 -ST1 031535 000001 0 0 000000004000 0 000000004000 -ST2 031535 000001 0 0 000000004000 0 000000004000 -ST9 031535 000001 0 0 000000004000 0 000000004000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 135 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0330 - -*031535 CAIE 3,004000 -INITIAL -C(AC)=000000 004000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031535 031535 0 0 302140004000 0 000000004000 -IT1 031535 0 0 0 302140004000 0 000000004000 -AT3 031535 0 0 0 000000004000 0 302140004000 -AT6 031535 0 0 0 000000004000 0 302140004000 -FT1A 031535 0 0 0 000000004000 0 000000004000 -FT2 031535 0 0 0 0 0 000000004000 -FT2RQ 031535 0 0 0 000000004000 0 000000004000 -FT3 031535 0 0 0 000000004000 0 000000004000 -FT9 031536 0 0 0 000000004000 0 000000004000 -ET0 031537 0 0 0 0 0 000000004000 -ST1A 031537 0 0 0 0 0 000000004000 -ST9 031537 0 0 0 0 0 000000004000 - - -*031537 JUMPA 0,031540 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000031540 -FT3 031537 031540 0 0 000000000017 0 000000031540 -FT9 031540 031540 0 0 000000000017 0 000000031540 -ET0 031540 031540 0 0 000000000017 0 000000031540 -ST1A 031540 031540 0 0 000000000017 0 000000031540 -ST9 031540 031540 0 0 000000000017 0 000000031540 - - -*031540 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 004000 -FINAL - -C(E)=000000 004000 - -TIME PC MA SC FE AR MQ BR -IT0 031540 031540 0 0 476000000003 0 000000000003 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 136 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0331 - -IT1 031540 0 0 0 476000000003 0 000000000003 -AT3 031540 0 0 0 000000000003 0 476000000003 -AT6 031540 000003 0 0 000000000003 0 476000000003 -FT1A 031540 000003 0 0 000000000003 0 000000000003 -FT9 031541 000003 0 0 000000000003 0 000000000003 -ET0 031541 000003 0 0 777777777777 0 000000000003 -ST6 031541 000003 0 0 777777777777 0 000000000003 -ST6A 031541 000003 0 0 777777777777 0 000000000003 -ST9 031541 000003 0 0 777777777777 0 000000000003 - - -*031541 MOVEI 1,010000 -INITIAL -C(AC)=000000 004000 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 031541 031541 0 0 201040010000 0 000000010000 -IT1 031541 0 0 0 201040010000 0 000000010000 -AT3 031541 0 0 0 000000010000 0 201040010000 -AT6 031541 0 0 0 000000010000 0 201040010000 -FT1A 031541 0 0 0 000000010000 0 000000010000 -FT9 031542 0 0 0 000000010000 0 000000010000 -ET0 031542 0 0 0 000000010000 0 000000010000 -ST1 031542 0 0 0 000000010000 0 000000010000 -ST2 031542 0 0 0 000000010000 0 000000010000 -ST9 031542 0 0 0 000000010000 0 000000010000 - - -*031542 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031542 031542 0 0 201100000001 0 000000000001 -IT1 031542 0 0 0 201100000001 0 000000000001 -AT3 031542 0 0 0 000000000001 0 201100000001 -AT6 031542 000001 0 0 000000000001 0 201100000001 -FT1A 031542 000001 0 0 000000000001 0 000000000001 -FT9 031543 000001 0 0 000000000001 0 000000000001 -ET0 031543 000001 0 0 000000000001 0 000000000001 -ST1 031543 000001 0 0 000000000001 0 000000000001 -ST2 031543 000001 0 0 000000000001 0 000000000001 -ST9 031543 000001 0 0 000000000001 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 137 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0332 - -*031543 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 031543 031543 0 0 200142000000 0 000000010000 -IT1 031543 0 0 0 200142000000 0 000000010000 -AT1 031543 0 0 0 0 0 200142000000 -AT2 031543 0 0 0 000000000001 0 200142000000 -AT3 031543 0 0 0 000000000001 0 000000000001 -AT6 031543 000001 0 0 000000000001 0 000000000001 -FT0 031543 000001 0 0 000000010000 0 000000000001 -FT1A 031543 000001 0 0 000000010000 0 000000010000 -FT9 031544 000001 0 0 000000010000 0 000000010000 -ET0 031544 000001 0 0 000000010000 0 000000010000 -ST1 031544 000001 0 0 000000010000 0 000000010000 -ST2 031544 000001 0 0 000000010000 0 000000010000 -ST9 031544 000001 0 0 000000010000 0 000000010000 - - -*031544 CAIE 3,010000 -INITIAL -C(AC)=000000 010000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031544 031544 0 0 302140010000 0 000000010000 -IT1 031544 0 0 0 302140010000 0 000000010000 -AT3 031544 0 0 0 000000010000 0 302140010000 -AT6 031544 0 0 0 000000010000 0 302140010000 -FT1A 031544 0 0 0 000000010000 0 000000010000 -FT2 031544 0 0 0 0 0 000000010000 -FT2RQ 031544 0 0 0 000000010000 0 000000010000 -FT3 031544 0 0 0 000000010000 0 000000010000 -FT9 031545 0 0 0 000000010000 0 000000010000 -ET0 031546 0 0 0 0 0 000000010000 -ST1A 031546 0 0 0 0 0 000000010000 -ST9 031546 0 0 0 0 0 000000010000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 138 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0333 - -*031546 JUMPA 0,031547 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031546 031546 0 0 324000031547 0 000000031547 -IT1 031546 0 0 0 324000031547 0 000000031547 -AT3 031546 0 0 0 000000031547 0 324000031547 -AT6 031546 031547 0 0 000000031547 0 324000031547 -FT1A 031546 031547 0 0 000000031547 0 000000031547 -FT2 031546 031547 0 0 0 0 000000031547 -FT2RQ 031546 031547 0 0 000000000017 0 000000031547 -FT3 031546 031547 0 0 000000000017 0 000000031547 -FT9 031547 031547 0 0 000000000017 0 000000031547 -ET0 031547 031547 0 0 000000000017 0 000000031547 -ST1A 031547 031547 0 0 000000000017 0 000000031547 -ST9 031547 031547 0 0 000000000017 0 000000031547 - - -*031547 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 010000 -FINAL - -C(E)=000000 010000 - -TIME PC MA SC FE AR MQ BR -IT0 031547 031547 0 0 476000000003 0 000000000003 -IT1 031547 0 0 0 476000000003 0 000000000003 -AT3 031547 0 0 0 000000000003 0 476000000003 -AT6 031547 000003 0 0 000000000003 0 476000000003 -FT1A 031547 000003 0 0 000000000003 0 000000000003 -FT9 031550 000003 0 0 000000000003 0 000000000003 -ET0 031550 000003 0 0 777777777777 0 000000000003 -ST6 031550 000003 0 0 777777777777 0 000000000003 -ST6A 031550 000003 0 0 777777777777 0 000000000003 -ST9 031550 000003 0 0 777777777777 0 000000000003 - - -*031550 MOVEI 1,020000 -INITIAL -C(AC)=000000 010000 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 031550 031550 0 0 201040020000 0 000000020000 -IT1 031550 0 0 0 201040020000 0 000000020000 -AT3 031550 0 0 0 000000020000 0 201040020000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 139 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0334 - -AT6 031550 0 0 0 000000020000 0 201040020000 -FT1A 031550 0 0 0 000000020000 0 000000020000 -FT9 031551 0 0 0 000000020000 0 000000020000 -ET0 031551 0 0 0 000000020000 0 000000020000 -ST1 031551 0 0 0 000000020000 0 000000020000 -ST2 031551 0 0 0 000000020000 0 000000020000 -ST9 031551 0 0 0 000000020000 0 000000020000 - - -*031551 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031551 031551 0 0 201100000001 0 000000000001 -IT1 031551 0 0 0 201100000001 0 000000000001 -AT3 031551 0 0 0 000000000001 0 201100000001 -AT6 031551 000001 0 0 000000000001 0 201100000001 -FT1A 031551 000001 0 0 000000000001 0 000000000001 -FT9 031552 000001 0 0 000000000001 0 000000000001 -ET0 031552 000001 0 0 000000000001 0 000000000001 -ST1 031552 000001 0 0 000000000001 0 000000000001 -ST2 031552 000001 0 0 000000000001 0 000000000001 -ST9 031552 000001 0 0 000000000001 0 000000000001 - - -*031552 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 031552 031552 0 0 200142000000 0 000000020000 -IT1 031552 0 0 0 200142000000 0 000000020000 -AT1 031552 0 0 0 0 0 200142000000 -AT2 031552 0 0 0 000000000001 0 200142000000 -AT3 031552 0 0 0 000000000001 0 000000000001 -AT6 031552 000001 0 0 000000000001 0 000000000001 -FT0 031552 000001 0 0 000000020000 0 000000000001 -FT1A 031552 000001 0 0 000000020000 0 000000020000 -FT9 031553 000001 0 0 000000020000 0 000000020000 -ET0 031553 000001 0 0 000000020000 0 000000020000 -ST1 031553 000001 0 0 000000020000 0 000000020000 -ST2 031553 000001 0 0 000000020000 0 000000020000 -ST9 031553 000001 0 0 000000020000 0 000000020000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 140 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0335 - -*031553 CAIE 3,020000 -INITIAL -C(AC)=000000 020000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031553 031553 0 0 302140020000 0 000000020000 -IT1 031553 0 0 0 302140020000 0 000000020000 -AT3 031553 0 0 0 000000020000 0 302140020000 -AT6 031553 0 0 0 000000020000 0 302140020000 -FT1A 031553 0 0 0 000000020000 0 000000020000 -FT2 031553 0 0 0 0 0 000000020000 -FT2RQ 031553 0 0 0 000000020000 0 000000020000 -FT3 031553 0 0 0 000000020000 0 000000020000 -FT9 031554 0 0 0 000000020000 0 000000020000 -ET0 031555 0 0 0 0 0 000000020000 -ST1A 031555 0 0 0 0 0 000000020000 -ST9 031555 0 0 0 0 0 000000020000 - - -*031555 JUMPA 0,031556 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031555 031555 0 0 324000031556 0 000000031556 -IT1 031555 0 0 0 324000031556 0 000000031556 -AT3 031555 0 0 0 000000031556 0 324000031556 -AT6 031555 031556 0 0 000000031556 0 324000031556 -FT1A 031555 031556 0 0 000000031556 0 000000031556 -FT2 031555 031556 0 0 0 0 000000031556 -FT2RQ 031555 031556 0 0 000000000017 0 000000031556 -FT3 031555 031556 0 0 000000000017 0 000000031556 -FT9 031556 031556 0 0 000000000017 0 000000031556 -ET0 031556 031556 0 0 000000000017 0 000000031556 -ST1A 031556 031556 0 0 000000000017 0 000000031556 -ST9 031556 031556 0 0 000000000017 0 000000031556 - - -*031556 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 020000 -FINAL - -C(E)=000000 020000 - -TIME PC MA SC FE AR MQ BR -IT0 031556 031556 0 0 476000000003 0 000000000003 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 141 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0336 - -IT1 031556 0 0 0 476000000003 0 000000000003 -AT3 031556 0 0 0 000000000003 0 476000000003 -AT6 031556 000003 0 0 000000000003 0 476000000003 -FT1A 031556 000003 0 0 000000000003 0 000000000003 -FT9 031557 000003 0 0 000000000003 0 000000000003 -ET0 031557 000003 0 0 777777777777 0 000000000003 -ST6 031557 000003 0 0 777777777777 0 000000000003 -ST6A 031557 000003 0 0 777777777777 0 000000000003 -ST9 031557 000003 0 0 777777777777 0 000000000003 - - -*031557 MOVEI 1,040000 -INITIAL -C(AC)=000000 020000 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 031557 031557 0 0 201040040000 0 000000040000 -IT1 031557 0 0 0 201040040000 0 000000040000 -AT3 031557 0 0 0 000000040000 0 201040040000 -AT6 031557 0 0 0 000000040000 0 201040040000 -FT1A 031557 0 0 0 000000040000 0 000000040000 -FT9 031560 0 0 0 000000040000 0 000000040000 -ET0 031560 0 0 0 000000040000 0 000000040000 -ST1 031560 0 0 0 000000040000 0 000000040000 -ST2 031560 0 0 0 000000040000 0 000000040000 -ST9 031560 0 0 0 000000040000 0 000000040000 - - -*031560 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031560 031560 0 0 201100000001 0 000000000001 -IT1 031560 0 0 0 201100000001 0 000000000001 -AT3 031560 0 0 0 000000000001 0 201100000001 -AT6 031560 000001 0 0 000000000001 0 201100000001 -FT1A 031560 000001 0 0 000000000001 0 000000000001 -FT9 031561 000001 0 0 000000000001 0 000000000001 -ET0 031561 000001 0 0 000000000001 0 000000000001 -ST1 031561 000001 0 0 000000000001 0 000000000001 -ST2 031561 000001 0 0 000000000001 0 000000000001 -ST9 031561 000001 0 0 000000000001 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 142 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0337 - -*031561 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 031561 031561 0 0 200142000000 0 000000040000 -IT1 031561 0 0 0 200142000000 0 000000040000 -AT1 031561 0 0 0 0 0 200142000000 -AT2 031561 0 0 0 000000000001 0 200142000000 -AT3 031561 0 0 0 000000000001 0 000000000001 -AT6 031561 000001 0 0 000000000001 0 000000000001 -FT0 031561 000001 0 0 000000040000 0 000000000001 -FT1A 031561 000001 0 0 000000040000 0 000000040000 -FT9 031562 000001 0 0 000000040000 0 000000040000 -ET0 031562 000001 0 0 000000040000 0 000000040000 -ST1 031562 000001 0 0 000000040000 0 000000040000 -ST2 031562 000001 0 0 000000040000 0 000000040000 -ST9 031562 000001 0 0 000000040000 0 000000040000 - - -*031562 CAIE 3,040000 -INITIAL -C(AC)=000000 040000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031562 031562 0 0 302140040000 0 000000040000 -IT1 031562 0 0 0 302140040000 0 000000040000 -AT3 031562 0 0 0 000000040000 0 302140040000 -AT6 031562 0 0 0 000000040000 0 302140040000 -FT1A 031562 0 0 0 000000040000 0 000000040000 -FT2 031562 0 0 0 0 0 000000040000 -FT2RQ 031562 0 0 0 000000040000 0 000000040000 -FT3 031562 0 0 0 000000040000 0 000000040000 -FT9 031563 0 0 0 000000040000 0 000000040000 -ET0 031564 0 0 0 0 0 000000040000 -ST1A 031564 0 0 0 0 0 000000040000 -ST9 031564 0 0 0 0 0 000000040000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 143 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0338 - -*031564 JUMPA 0,031565 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031564 031564 0 0 324000031565 0 000000031565 -IT1 031564 0 0 0 324000031565 0 000000031565 -AT3 031564 0 0 0 000000031565 0 324000031565 -AT6 031564 031565 0 0 000000031565 0 324000031565 -FT1A 031564 031565 0 0 000000031565 0 000000031565 -FT2 031564 031565 0 0 0 0 000000031565 -FT2RQ 031564 031565 0 0 000000000017 0 000000031565 -FT3 031564 031565 0 0 000000000017 0 000000031565 -FT9 031565 031565 0 0 000000000017 0 000000031565 -ET0 031565 031565 0 0 000000000017 0 000000031565 -ST1A 031565 031565 0 0 000000000017 0 000000031565 -ST9 031565 031565 0 0 000000000017 0 000000031565 - - -*031565 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 040000 -FINAL - -C(E)=000000 040000 - -TIME PC MA SC FE AR MQ BR -IT0 031565 031565 0 0 476000000003 0 000000000003 -IT1 031565 0 0 0 476000000003 0 000000000003 -AT3 031565 0 0 0 000000000003 0 476000000003 -AT6 031565 000003 0 0 000000000003 0 476000000003 -FT1A 031565 000003 0 0 000000000003 0 000000000003 -FT9 031566 000003 0 0 000000000003 0 000000000003 -ET0 031566 000003 0 0 777777777777 0 000000000003 -ST6 031566 000003 0 0 777777777777 0 000000000003 -ST6A 031566 000003 0 0 777777777777 0 000000000003 -ST9 031566 000003 0 0 777777777777 0 000000000003 - - -*031566 MOVEI 1,100000 -INITIAL -C(AC)=000000 040000 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 031566 031566 0 0 201040100000 0 000000100000 -IT1 031566 0 0 0 201040100000 0 000000100000 -AT3 031566 0 0 0 000000100000 0 201040100000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 144 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0339 - -AT6 031566 0 0 0 000000100000 0 201040100000 -FT1A 031566 0 0 0 000000100000 0 000000100000 -FT9 031567 0 0 0 000000100000 0 000000100000 -ET0 031567 0 0 0 000000100000 0 000000100000 -ST1 031567 0 0 0 000000100000 0 000000100000 -ST2 031567 0 0 0 000000100000 0 000000100000 -ST9 031567 0 0 0 000000100000 0 000000100000 - - -*031567 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031567 031567 0 0 201100000001 0 000000000001 -IT1 031567 0 0 0 201100000001 0 000000000001 -AT3 031567 0 0 0 000000000001 0 201100000001 -AT6 031567 000001 0 0 000000000001 0 201100000001 -FT1A 031567 000001 0 0 000000000001 0 000000000001 -FT9 031570 000001 0 0 000000000001 0 000000000001 -ET0 031570 000001 0 0 000000000001 0 000000000001 -ST1 031570 000001 0 0 000000000001 0 000000000001 -ST2 031570 000001 0 0 000000000001 0 000000000001 -ST9 031570 000001 0 0 000000000001 0 000000000001 - - -*031570 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 031570 031570 0 0 200142000000 0 000000100000 -IT1 031570 0 0 0 200142000000 0 000000100000 -AT1 031570 0 0 0 0 0 200142000000 -AT2 031570 0 0 0 000000000001 0 200142000000 -AT3 031570 0 0 0 000000000001 0 000000000001 -AT6 031570 000001 0 0 000000000001 0 000000000001 -FT0 031570 000001 0 0 000000100000 0 000000000001 -FT1A 031570 000001 0 0 000000100000 0 000000100000 -FT9 031571 000001 0 0 000000100000 0 000000100000 -ET0 031571 000001 0 0 000000100000 0 000000100000 -ST1 031571 000001 0 0 000000100000 0 000000100000 -ST2 031571 000001 0 0 000000100000 0 000000100000 -ST9 031571 000001 0 0 000000100000 0 000000100000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 145 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0340 - -*031571 CAIE 3,100000 -INITIAL -C(AC)=000000 100000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031571 031571 0 0 302140100000 0 000000100000 -IT1 031571 0 0 0 302140100000 0 000000100000 -AT3 031571 0 0 0 000000100000 0 302140100000 -AT6 031571 0 0 0 000000100000 0 302140100000 -FT1A 031571 0 0 0 000000100000 0 000000100000 -FT2 031571 0 0 0 0 0 000000100000 -FT2RQ 031571 0 0 0 000000100000 0 000000100000 -FT3 031571 0 0 0 000000100000 0 000000100000 -FT9 031572 0 0 0 000000100000 0 000000100000 -ET0 031573 0 0 0 0 0 000000100000 -ST1A 031573 0 0 0 0 0 000000100000 -ST9 031573 0 0 0 0 0 000000100000 - - -*031573 JUMPA 0,031574 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031573 031573 0 0 324000031574 0 000000031574 -IT1 031573 0 0 0 324000031574 0 000000031574 -AT3 031573 0 0 0 000000031574 0 324000031574 -AT6 031573 031574 0 0 000000031574 0 324000031574 -FT1A 031573 031574 0 0 000000031574 0 000000031574 -FT2 031573 031574 0 0 0 0 000000031574 -FT2RQ 031573 031574 0 0 000000000017 0 000000031574 -FT3 031573 031574 0 0 000000000017 0 000000031574 -FT9 031574 031574 0 0 000000000017 0 000000031574 -ET0 031574 031574 0 0 000000000017 0 000000031574 -ST1A 031574 031574 0 0 000000000017 0 000000031574 -ST9 031574 031574 0 0 000000000017 0 000000031574 - - -*031574 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 100000 -FINAL - -C(E)=000000 100000 - -TIME PC MA SC FE AR MQ BR -IT0 031574 031574 0 0 476000000003 0 000000000003 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 146 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0341 - -IT1 031574 0 0 0 476000000003 0 000000000003 -AT3 031574 0 0 0 000000000003 0 476000000003 -AT6 031574 000003 0 0 000000000003 0 476000000003 -FT1A 031574 000003 0 0 000000000003 0 000000000003 -FT9 031575 000003 0 0 000000000003 0 000000000003 -ET0 031575 000003 0 0 777777777777 0 000000000003 -ST6 031575 000003 0 0 777777777777 0 000000000003 -ST6A 031575 000003 0 0 777777777777 0 000000000003 -ST9 031575 000003 0 0 777777777777 0 000000000003 - - -*031575 MOVEI 1,200000 -INITIAL -C(AC)=000000 100000 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 031575 031575 0 0 201040200000 0 000000200000 -IT1 031575 0 0 0 201040200000 0 000000200000 -AT3 031575 0 0 0 000000200000 0 201040200000 -AT6 031575 0 0 0 000000200000 0 201040200000 -FT1A 031575 0 0 0 000000200000 0 000000200000 -FT9 031576 0 0 0 000000200000 0 000000200000 -ET0 031576 0 0 0 000000200000 0 000000200000 -ST1 031576 0 0 0 000000200000 0 000000200000 -ST2 031576 0 0 0 000000200000 0 000000200000 -ST9 031576 0 0 0 000000200000 0 000000200000 - - -*031576 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031576 031576 0 0 201100000001 0 000000000001 -IT1 031576 0 0 0 201100000001 0 000000000001 -AT3 031576 0 0 0 000000000001 0 201100000001 -AT6 031576 000001 0 0 000000000001 0 201100000001 -FT1A 031576 000001 0 0 000000000001 0 000000000001 -FT9 031577 000001 0 0 000000000001 0 000000000001 -ET0 031577 000001 0 0 000000000001 0 000000000001 -ST1 031577 000001 0 0 000000000001 0 000000000001 -ST2 031577 000001 0 0 000000000001 0 000000000001 -ST9 031577 000001 0 0 000000000001 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 147 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0342 - -*031577 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 031577 031577 0 0 200142000000 0 000000200000 -IT1 031577 0 0 0 200142000000 0 000000200000 -AT1 031577 0 0 0 0 0 200142000000 -AT2 031577 0 0 0 000000000001 0 200142000000 -AT3 031577 0 0 0 000000000001 0 000000000001 -AT6 031577 000001 0 0 000000000001 0 000000000001 -FT0 031577 000001 0 0 000000200000 0 000000000001 -FT1A 031577 000001 0 0 000000200000 0 000000200000 -FT9 0 000001 0 0 000000200000 0 000000200000 -ET0 0 000001 0 0 000000200000 0 000000200000 -ST1 0 000001 0 0 000000200000 0 000000200000 -ST2 0 000001 0 0 000000200000 0 000000200000 -ST9 0 000001 0 0 000000200000 0 000000200000 - - -*031600 CAIE 3,200000 -INITIAL -C(AC)=000000 200000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 302140200000 0 000000200000 -IT1 0 0 0 0 302140200000 0 000000200000 -AT3 0 0 0 0 000000200000 0 302140200000 -AT6 0 0 0 0 000000200000 0 302140200000 -FT1A 0 0 0 0 000000200000 0 000000200000 -FT2 0 0 0 0 0 0 000000200000 -FT2RQ 0 0 0 0 000000200000 0 000000200000 -FT3 0 0 0 0 000000200000 0 000000200000 -FT9 031601 0 0 0 000000200000 0 000000200000 -ET0 031602 0 0 0 0 0 000000200000 -ST1A 031602 0 0 0 0 0 000000200000 -ST9 031602 0 0 0 0 0 000000200000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 148 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0343 - -*031602 JUMPA 0,031603 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031602 031602 0 0 324000031603 0 000000031603 -IT1 031602 0 0 0 324000031603 0 000000031603 -AT3 031602 0 0 0 000000031603 0 324000031603 -AT6 031602 031603 0 0 000000031603 0 324000031603 -FT1A 031602 031603 0 0 000000031603 0 000000031603 -FT2 031602 031603 0 0 0 0 000000031603 -FT2RQ 031602 031603 0 0 000000000017 0 000000031603 -FT3 031602 031603 0 0 000000000017 0 000000031603 -FT9 031603 031603 0 0 000000000017 0 000000031603 -ET0 031603 031603 0 0 000000000017 0 000000031603 -ST1A 031603 031603 0 0 000000000017 0 000000031603 -ST9 031603 031603 0 0 000000000017 0 000000031603 - - -*031603 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 200000 -FINAL - -C(E)=000000 200000 - -TIME PC MA SC FE AR MQ BR -IT0 031603 031603 0 0 476000000003 0 000000000003 -IT1 031603 0 0 0 476000000003 0 000000000003 -AT3 031603 0 0 0 000000000003 0 476000000003 -AT6 031603 000003 0 0 000000000003 0 476000000003 -FT1A 031603 000003 0 0 000000000003 0 000000000003 -FT9 031604 000003 0 0 000000000003 0 000000000003 -ET0 031604 000003 0 0 777777777777 0 000000000003 -ST6 031604 000003 0 0 777777777777 0 000000000003 -ST6A 031604 000003 0 0 777777777777 0 000000000003 -ST9 031604 000003 0 0 777777777777 0 000000000003 - - -*031604 MOVEI 1,400000 -INITIAL -C(AC)=000000 200000 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 031604 031604 0 0 201040400000 0 000000400000 -IT1 031604 0 0 0 201040400000 0 000000400000 -AT3 031604 0 0 0 000000400000 0 201040400000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 149 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0344 - -AT6 031604 0 0 0 000000400000 0 201040400000 -FT1A 031604 0 0 0 000000400000 0 000000400000 -FT9 031605 0 0 0 000000400000 0 000000400000 -ET0 031605 0 0 0 000000400000 0 000000400000 -ST1 031605 0 0 0 000000400000 0 000000400000 -ST2 031605 0 0 0 000000400000 0 000000400000 -ST9 031605 0 0 0 000000400000 0 000000400000 - - -*031605 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031605 031605 0 0 201100000001 0 000000000001 -IT1 031605 0 0 0 201100000001 0 000000000001 -AT3 031605 0 0 0 000000000001 0 201100000001 -AT6 031605 000001 0 0 000000000001 0 201100000001 -FT1A 031605 000001 0 0 000000000001 0 000000000001 -FT9 031606 000001 0 0 000000000001 0 000000000001 -ET0 031606 000001 0 0 000000000001 0 000000000001 -ST1 031606 000001 0 0 000000000001 0 000000000001 -ST2 031606 000001 0 0 000000000001 0 000000000001 -ST9 031606 000001 0 0 000000000001 0 000000000001 - - -*031606 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 031606 031606 0 0 200142000000 0 000000400000 -IT1 031606 0 0 0 200142000000 0 000000400000 -AT1 031606 0 0 0 0 0 200142000000 -AT2 031606 0 0 0 000000000001 0 200142000000 -AT3 031606 0 0 0 000000000001 0 000000000001 -AT6 031606 000001 0 0 000000000001 0 000000000001 -FT0 031606 000001 0 0 000000400000 0 000000000001 -FT1A 031606 000001 0 0 000000400000 0 000000400000 -FT9 031607 000001 0 0 000000400000 0 000000400000 -ET0 031607 000001 0 0 000000400000 0 000000400000 -ST1 031607 000001 0 0 000000400000 0 000000400000 -ST2 031607 000001 0 0 000000400000 0 000000400000 -ST9 031607 000001 0 0 000000400000 0 000000400000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 150 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0345 - -*031607 CAIE 3,400000 -INITIAL -C(AC)=000000 400000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031607 031607 0 0 302140400000 0 000000400000 -IT1 031607 0 0 0 302140400000 0 000000400000 -AT3 031607 0 0 0 000000400000 0 302140400000 -AT6 031607 0 0 0 000000400000 0 302140400000 -FT1A 031607 0 0 0 000000400000 0 000000400000 -FT2 031607 0 0 0 0 0 000000400000 -FT2RQ 031607 0 0 0 000000400000 0 000000400000 -FT3 031607 0 0 0 000000400000 0 000000400000 -FT9 031610 0 0 0 000000400000 0 000000400000 -ET0 031611 0 0 0 0 0 000000400000 -ST1A 031611 0 0 0 0 0 000000400000 -ST9 031611 0 0 0 0 0 000000400000 - - -*031611 JUMPA 0,031612 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000031612 -FT3 031611 031612 0 0 000000000017 0 000000031612 -FT9 031612 031612 0 0 000000000017 0 000000031612 -ET0 031612 031612 0 0 000000000017 0 000000031612 -ST1A 031612 031612 0 0 000000000017 0 000000031612 -ST9 031612 031612 0 0 000000000017 0 000000031612 - - -*031612 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000000 400000 -FINAL - -C(E)=000000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 031612 031612 0 0 476000000003 0 000000000003 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 151 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0346 - -IT1 031612 0 0 0 476000000003 0 000000000003 -AT3 031612 0 0 0 000000000003 0 476000000003 -AT6 031612 000003 0 0 000000000003 0 476000000003 -FT1A 031612 000003 0 0 000000000003 0 000000000003 -FT9 031613 000003 0 0 000000000003 0 000000000003 -ET0 031613 000003 0 0 777777777777 0 000000000003 -ST6 031613 000003 0 0 777777777777 0 000000000003 -ST6A 031613 000003 0 0 777777777777 0 000000000003 -ST9 031613 000003 0 0 777777777777 0 000000000003 - - -*031613 MOVSI 1,000001 -INITIAL -C(AC)=000000 400000 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031613 031613 0 0 205040000001 0 000000000001 -IT1 031613 0 0 0 205040000001 0 000000000001 -AT3 031613 0 0 0 000000000001 0 205040000001 -AT6 031613 000001 0 0 000000000001 0 205040000001 -FT1A 031613 000001 0 0 000000000001 0 000000000001 -FT9 031614 000001 0 0 000000000001 0 000000000001 -ET0 031614 000001 0 0 000001000000 0 000000000001 -ST1 031614 000001 0 0 000001000000 0 000000000001 -ST2 031614 000001 0 0 000001000000 0 000000000001 -ST9 031614 000001 0 0 000001000000 0 000000000001 - - -*031614 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031614 031614 0 0 201100000001 0 000000000001 -IT1 031614 0 0 0 201100000001 0 000000000001 -AT3 031614 0 0 0 000000000001 0 201100000001 -AT6 031614 000001 0 0 000000000001 0 201100000001 -FT1A 031614 000001 0 0 000000000001 0 000000000001 -FT9 031615 000001 0 0 000000000001 0 000000000001 -ET0 031615 000001 0 0 000000000001 0 000000000001 -ST1 031615 000001 0 0 000000000001 0 000000000001 -ST2 031615 000001 0 0 000000000001 0 000000000001 -ST9 031615 000001 0 0 000000000001 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 152 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0347 - -*031615 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031615 031615 0 0 200142000000 0 000001000000 -IT1 031615 0 0 0 200142000000 0 000001000000 -AT1 031615 0 0 0 0 0 200142000000 -AT2 031615 0 0 0 000000000001 0 200142000000 -AT3 031615 0 0 0 000000000001 0 000000000001 -AT6 031615 000001 0 0 000000000001 0 000000000001 -FT0 031615 000001 0 0 000001000000 0 000000000001 -FT1A 031615 000001 0 0 000001000000 0 000001000000 -FT9 031616 000001 0 0 000001000000 0 000001000000 -ET0 031616 000001 0 0 000001000000 0 000001000000 -ST1 031616 000001 0 0 000001000000 0 000001000000 -ST2 031616 000001 0 0 000001000000 0 000001000000 -ST9 031616 000001 0 0 000001000000 0 000001000000 - - -*031616 CAME 3,034444 -INITIAL -C(AC)=000001 000000 -C(E)=000001 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031616 031616 0 0 312140034444 0 000001000000 -IT1 031616 0 0 0 312140034444 0 000001000000 -AT3 031616 0 0 0 000000034444 0 312140034444 -AT6 031616 034444 0 0 000000034444 0 312140034444 -FT0 031616 034444 0 0 000001000000 0 312140034444 -FT1A 031616 034444 0 0 000001000000 0 000001000000 -FT2 031616 034444 0 0 0 0 000001000000 -FT2RQ 031616 034444 0 0 000001000000 0 000001000000 -FT3 031616 034444 0 0 000001000000 0 000001000000 -FT9 031617 034444 0 0 000001000000 0 000001000000 -ET0 031620 034444 0 0 0 0 000001000000 -ST1A 031620 034444 0 0 0 0 000001000000 -ST9 031620 034444 0 0 0 0 000001000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 153 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0348 - -*031620 JUMPA 0,031621 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031620 031620 0 0 324000031621 0 000000031621 -IT1 031620 0 0 0 324000031621 0 000000031621 -AT3 031620 0 0 0 000000031621 0 324000031621 -AT6 031620 031621 0 0 000000031621 0 324000031621 -FT1A 031620 031621 0 0 000000031621 0 000000031621 -FT2 031620 031621 0 0 0 0 000000031621 -FT2RQ 031620 031621 0 0 000000000017 0 000000031621 -FT3 031620 031621 0 0 000000000017 0 000000031621 -FT9 031621 031621 0 0 000000000017 0 000000031621 -ET0 031621 031621 0 0 000000000017 0 000000031621 -ST1A 031621 031621 0 0 000000000017 0 000000031621 -ST9 031621 031621 0 0 000000000017 0 000000031621 - - -*031621 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000001 000000 -FINAL - -C(E)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031621 031621 0 0 476000000003 0 000000000003 -IT1 031621 0 0 0 476000000003 0 000000000003 -AT3 031621 0 0 0 000000000003 0 476000000003 -AT6 031621 000003 0 0 000000000003 0 476000000003 -FT1A 031621 000003 0 0 000000000003 0 000000000003 -FT9 031622 000003 0 0 000000000003 0 000000000003 -ET0 031622 000003 0 0 777777777777 0 000000000003 -ST6 031622 000003 0 0 777777777777 0 000000000003 -ST6A 031622 000003 0 0 777777777777 0 000000000003 -ST9 031622 000003 0 0 777777777777 0 000000000003 - - -*031622 MOVSI 1,000002 -INITIAL -C(AC)=000001 000000 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031622 031622 0 0 205040000002 0 000000000002 -IT1 031622 0 0 0 205040000002 0 000000000002 -AT3 031622 0 0 0 000000000002 0 205040000002 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 154 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0349 - -AT6 031622 000002 0 0 000000000002 0 205040000002 -FT1A 031622 000002 0 0 000000000002 0 000000000002 -FT9 031623 000002 0 0 000000000002 0 000000000002 -ET0 031623 000002 0 0 000002000000 0 000000000002 -ST1 031623 000002 0 0 000002000000 0 000000000002 -ST2 031623 000002 0 0 000002000000 0 000000000002 -ST9 031623 000002 0 0 000002000000 0 000000000002 - - -*031623 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031623 031623 0 0 201100000001 0 000000000001 -IT1 031623 0 0 0 201100000001 0 000000000001 -AT3 031623 0 0 0 000000000001 0 201100000001 -AT6 031623 000001 0 0 000000000001 0 201100000001 -FT1A 031623 000001 0 0 000000000001 0 000000000001 -FT9 031624 000001 0 0 000000000001 0 000000000001 -ET0 031624 000001 0 0 000000000001 0 000000000001 -ST1 031624 000001 0 0 000000000001 0 000000000001 -ST2 031624 000001 0 0 000000000001 0 000000000001 -ST9 031624 000001 0 0 000000000001 0 000000000001 - - -*031624 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031624 031624 0 0 200142000000 0 000002000000 -IT1 031624 0 0 0 200142000000 0 000002000000 -AT1 031624 0 0 0 0 0 200142000000 -AT2 031624 0 0 0 000000000001 0 200142000000 -AT3 031624 0 0 0 000000000001 0 000000000001 -AT6 031624 000001 0 0 000000000001 0 000000000001 -FT0 031624 000001 0 0 000002000000 0 000000000001 -FT1A 031624 000001 0 0 000002000000 0 000002000000 -FT9 031625 000001 0 0 000002000000 0 000002000000 -ET0 031625 000001 0 0 000002000000 0 000002000000 -ST1 031625 000001 0 0 000002000000 0 000002000000 -ST2 031625 000001 0 0 000002000000 0 000002000000 -ST9 031625 000001 0 0 000002000000 0 000002000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 155 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0350 - -*031625 CAME 3,034445 -INITIAL -C(AC)=000002 000000 -C(E)=000002 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031625 031625 0 0 312140034445 0 000002000000 -IT1 031625 0 0 0 312140034445 0 000002000000 -AT3 031625 0 0 0 000000034445 0 312140034445 -AT6 031625 034445 0 0 000000034445 0 312140034445 -FT0 031625 034445 0 0 000002000000 0 312140034445 -FT1A 031625 034445 0 0 000002000000 0 000002000000 -FT2 031625 034445 0 0 0 0 000002000000 -FT2RQ 031625 034445 0 0 000002000000 0 000002000000 -FT3 031625 034445 0 0 000002000000 0 000002000000 -FT9 031626 034445 0 0 000002000000 0 000002000000 -ET0 031627 034445 0 0 0 0 000002000000 -ST1A 031627 034445 0 0 0 0 000002000000 -ST9 031627 034445 0 0 0 0 000002000000 - - -*031627 JUMPA 0,031630 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031627 031627 0 0 324000031630 0 000000031630 -IT1 031627 0 0 0 324000031630 0 000000031630 -AT3 031627 0 0 0 000000031630 0 324000031630 -AT6 031627 031630 0 0 000000031630 0 324000031630 -FT1A 031627 031630 0 0 000000031630 0 000000031630 -FT2 031627 031630 0 0 0 0 000000031630 -FT2RQ 031627 031630 0 0 000000000017 0 000000031630 -FT3 031627 031630 0 0 000000000017 0 000000031630 -FT9 031630 031630 0 0 000000000017 0 000000031630 -ET0 031630 031630 0 0 000000000017 0 000000031630 -ST1A 031630 031630 0 0 000000000017 0 000000031630 -ST9 031630 031630 0 0 000000000017 0 000000031630 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 156 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0351 - -*031630 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000002 000000 -FINAL - -C(E)=000002 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031630 031630 0 0 476000000003 0 000000000003 -IT1 031630 0 0 0 476000000003 0 000000000003 -AT3 031630 0 0 0 000000000003 0 476000000003 -AT6 031630 000003 0 0 000000000003 0 476000000003 -FT1A 031630 000003 0 0 000000000003 0 000000000003 -FT9 031631 000003 0 0 000000000003 0 000000000003 -ET0 031631 000003 0 0 777777777777 0 000000000003 -ST6 031631 000003 0 0 777777777777 0 000000000003 -ST6A 031631 000003 0 0 777777777777 0 000000000003 -ST9 031631 000003 0 0 777777777777 0 000000000003 - - -*031631 MOVSI 1,000004 -INITIAL -C(AC)=000002 000000 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031631 031631 0 0 205040000004 0 000000000004 -IT1 031631 0 0 0 205040000004 0 000000000004 -AT3 031631 0 0 0 000000000004 0 205040000004 -AT6 031631 000004 0 0 000000000004 0 205040000004 -FT1A 031631 000004 0 0 000000000004 0 000000000004 -FT9 031632 000004 0 0 000000000004 0 000000000004 -ET0 031632 000004 0 0 000004000000 0 000000000004 -ST1 031632 000004 0 0 000004000000 0 000000000004 -ST2 031632 000004 0 0 000004000000 0 000000000004 -ST9 031632 000004 0 0 000004000000 0 000000000004 - - -*031632 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031632 031632 0 0 201100000001 0 000000000001 -IT1 031632 0 0 0 201100000001 0 000000000001 -AT3 031632 0 0 0 000000000001 0 201100000001 -AT6 031632 000001 0 0 000000000001 0 201100000001 -FT1A 031632 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 157 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0352 - -FT9 031633 000001 0 0 000000000001 0 000000000001 -ET0 031633 000001 0 0 000000000001 0 000000000001 -ST1 031633 000001 0 0 000000000001 0 000000000001 -ST2 031633 000001 0 0 000000000001 0 000000000001 -ST9 031633 000001 0 0 000000000001 0 000000000001 - - -*031633 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031633 031633 0 0 200142000000 0 000004000000 -IT1 031633 0 0 0 200142000000 0 000004000000 -AT1 031633 0 0 0 0 0 200142000000 -AT2 031633 0 0 0 000000000001 0 200142000000 -AT3 031633 0 0 0 000000000001 0 000000000001 -AT6 031633 000001 0 0 000000000001 0 000000000001 -FT0 031633 000001 0 0 000004000000 0 000000000001 -FT1A 031633 000001 0 0 000004000000 0 000004000000 -FT9 031634 000001 0 0 000004000000 0 000004000000 -ET0 031634 000001 0 0 000004000000 0 000004000000 -ST1 031634 000001 0 0 000004000000 0 000004000000 -ST2 031634 000001 0 0 000004000000 0 000004000000 -ST9 031634 000001 0 0 000004000000 0 000004000000 - - -*031634 CAME 3,034446 -INITIAL -C(AC)=000004 000000 -C(E)=000004 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031634 031634 0 0 312140034446 0 000004000000 -IT1 031634 0 0 0 312140034446 0 000004000000 -AT3 031634 0 0 0 000000034446 0 312140034446 -AT6 031634 034446 0 0 000000034446 0 312140034446 -FT0 031634 034446 0 0 000004000000 0 312140034446 -FT1A 031634 034446 0 0 000004000000 0 000004000000 -FT2 031634 034446 0 0 0 0 000004000000 -FT2RQ 031634 034446 0 0 000004000000 0 000004000000 -FT3 031634 034446 0 0 000004000000 0 000004000000 -FT9 031635 034446 0 0 000004000000 0 000004000000 -ET0 031636 034446 0 0 0 0 000004000000 -ST1A 031636 034446 0 0 0 0 000004000000 -ST9 031636 034446 0 0 0 0 000004000000 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 158 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0353 - - -*031636 JUMPA 0,031637 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000031637 -FT3 031636 031637 0 0 000000000017 0 000000031637 -FT9 031637 031637 0 0 000000000017 0 000000031637 -ET0 031637 031637 0 0 000000000017 0 000000031637 -ST1A 031637 031637 0 0 000000000017 0 000000031637 -ST9 031637 031637 0 0 000000000017 0 000000031637 - - -*031637 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000004 000000 -FINAL - -C(E)=000004 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031637 031637 0 0 476000000003 0 000000000003 -IT1 031637 0 0 0 476000000003 0 000000000003 -AT3 031637 0 0 0 000000000003 0 476000000003 -AT6 031637 000003 0 0 000000000003 0 476000000003 -FT1A 031637 000003 0 0 000000000003 0 000000000003 -FT9 031640 000003 0 0 000000000003 0 000000000003 -ET0 031640 000003 0 0 777777777777 0 000000000003 -ST6 031640 000003 0 0 777777777777 0 000000000003 -ST6A 031640 000003 0 0 777777777777 0 000000000003 -ST9 031640 000003 0 0 777777777777 0 000000000003 - - -*031640 MOVSI 1,000010 -INITIAL -C(AC)=000004 000000 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031640 031640 0 0 205040000010 0 000000000010 -IT1 031640 0 0 0 205040000010 0 000000000010 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 159 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0354 - -AT3 031640 0 0 0 000000000010 0 205040000010 -AT6 031640 000010 0 0 000000000010 0 205040000010 -FT1A 031640 000010 0 0 000000000010 0 000000000010 -FT9 031641 000010 0 0 000000000010 0 000000000010 -ET0 031641 000010 0 0 000010000000 0 000000000010 -ST1 031641 000010 0 0 000010000000 0 000000000010 -ST2 031641 000010 0 0 000010000000 0 000000000010 -ST9 031641 000010 0 0 000010000000 0 000000000010 - - -*031641 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031641 031641 0 0 201100000001 0 000000000001 -IT1 031641 0 0 0 201100000001 0 000000000001 -AT3 031641 0 0 0 000000000001 0 201100000001 -AT6 031641 000001 0 0 000000000001 0 201100000001 -FT1A 031641 000001 0 0 000000000001 0 000000000001 -FT9 031642 000001 0 0 000000000001 0 000000000001 -ET0 031642 000001 0 0 000000000001 0 000000000001 -ST1 031642 000001 0 0 000000000001 0 000000000001 -ST2 031642 000001 0 0 000000000001 0 000000000001 -ST9 031642 000001 0 0 000000000001 0 000000000001 - - -*031642 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031642 031642 0 0 200142000000 0 000010000000 -IT1 031642 0 0 0 200142000000 0 000010000000 -AT1 031642 0 0 0 0 0 200142000000 -AT2 031642 0 0 0 000000000001 0 200142000000 -AT3 031642 0 0 0 000000000001 0 000000000001 -AT6 031642 000001 0 0 000000000001 0 000000000001 -FT0 031642 000001 0 0 000010000000 0 000000000001 -FT1A 031642 000001 0 0 000010000000 0 000010000000 -FT9 031643 000001 0 0 000010000000 0 000010000000 -ET0 031643 000001 0 0 000010000000 0 000010000000 -ST1 031643 000001 0 0 000010000000 0 000010000000 -ST2 031643 000001 0 0 000010000000 0 000010000000 -ST9 031643 000001 0 0 000010000000 0 000010000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 160 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0355 - -*031643 CAME 3,034447 -INITIAL -C(AC)=000010 000000 -C(E)=000010 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031643 031643 0 0 312140034447 0 000010000000 -IT1 031643 0 0 0 312140034447 0 000010000000 -AT3 031643 0 0 0 000000034447 0 312140034447 -AT6 031643 034447 0 0 000000034447 0 312140034447 -FT0 031643 034447 0 0 000010000000 0 312140034447 -FT1A 031643 034447 0 0 000010000000 0 000010000000 -FT2 031643 034447 0 0 0 0 000010000000 -FT2RQ 031643 034447 0 0 000010000000 0 000010000000 -FT3 031643 034447 0 0 000010000000 0 000010000000 -FT9 031644 034447 0 0 000010000000 0 000010000000 -ET0 031645 034447 0 0 0 0 000010000000 -ST1A 031645 034447 0 0 0 0 000010000000 -ST9 031645 034447 0 0 0 0 000010000000 - - -*031645 JUMPA 0,031646 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031645 031645 0 0 324000031646 0 000000031646 -IT1 031645 0 0 0 324000031646 0 000000031646 -AT3 031645 0 0 0 000000031646 0 324000031646 -AT6 031645 031646 0 0 000000031646 0 324000031646 -FT1A 031645 031646 0 0 000000031646 0 000000031646 -FT2 031645 031646 0 0 0 0 000000031646 -FT2RQ 031645 031646 0 0 000000000017 0 000000031646 -FT3 031645 031646 0 0 000000000017 0 000000031646 -FT9 031646 031646 0 0 000000000017 0 000000031646 -ET0 031646 031646 0 0 000000000017 0 000000031646 -ST1A 031646 031646 0 0 000000000017 0 000000031646 -ST9 031646 031646 0 0 000000000017 0 000000031646 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 161 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0356 - -*031646 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000010 000000 -FINAL - -C(E)=000010 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031646 031646 0 0 476000000003 0 000000000003 -IT1 031646 0 0 0 476000000003 0 000000000003 -AT3 031646 0 0 0 000000000003 0 476000000003 -AT6 031646 000003 0 0 000000000003 0 476000000003 -FT1A 031646 000003 0 0 000000000003 0 000000000003 -FT9 031647 000003 0 0 000000000003 0 000000000003 -ET0 031647 000003 0 0 777777777777 0 000000000003 -ST6 031647 000003 0 0 777777777777 0 000000000003 -ST6A 031647 000003 0 0 777777777777 0 000000000003 -ST9 031647 000003 0 0 777777777777 0 000000000003 - - -*031647 MOVSI 1,000020 -INITIAL -C(AC)=000010 000000 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031647 031647 0 0 205040000020 0 000000000020 -IT1 031647 0 0 0 205040000020 0 000000000020 -AT3 031647 0 0 0 000000000020 0 205040000020 -AT6 031647 000020 0 0 000000000020 0 205040000020 -FT1A 031647 000020 0 0 000000000020 0 000000000020 -FT9 031650 000020 0 0 000000000020 0 000000000020 -ET0 031650 000020 0 0 000020000000 0 000000000020 -ST1 031650 000020 0 0 000020000000 0 000000000020 -ST2 031650 000020 0 0 000020000000 0 000000000020 -ST9 031650 000020 0 0 000020000000 0 000000000020 - - -*031650 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031650 031650 0 0 201100000001 0 000000000001 -IT1 031650 0 0 0 201100000001 0 000000000001 -AT3 031650 0 0 0 000000000001 0 201100000001 -AT6 031650 000001 0 0 000000000001 0 201100000001 -FT1A 031650 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 162 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0357 - -FT9 031651 000001 0 0 000000000001 0 000000000001 -ET0 031651 000001 0 0 000000000001 0 000000000001 -ST1 031651 000001 0 0 000000000001 0 000000000001 -ST2 031651 000001 0 0 000000000001 0 000000000001 -ST9 031651 000001 0 0 000000000001 0 000000000001 - - -*031651 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031651 031651 0 0 200142000000 0 000020000000 -IT1 031651 0 0 0 200142000000 0 000020000000 -AT1 031651 0 0 0 0 0 200142000000 -AT2 031651 0 0 0 000000000001 0 200142000000 -AT3 031651 0 0 0 000000000001 0 000000000001 -AT6 031651 000001 0 0 000000000001 0 000000000001 -FT0 031651 000001 0 0 000020000000 0 000000000001 -FT1A 031651 000001 0 0 000020000000 0 000020000000 -FT9 031652 000001 0 0 000020000000 0 000020000000 -ET0 031652 000001 0 0 000020000000 0 000020000000 -ST1 031652 000001 0 0 000020000000 0 000020000000 -ST2 031652 000001 0 0 000020000000 0 000020000000 -ST9 031652 000001 0 0 000020000000 0 000020000000 - - -*031652 CAME 3,034450 -INITIAL -C(AC)=000020 000000 -C(E)=000020 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031652 031652 0 0 312140034450 0 000020000000 -IT1 031652 0 0 0 312140034450 0 000020000000 -AT3 031652 0 0 0 000000034450 0 312140034450 -AT6 031652 034450 0 0 000000034450 0 312140034450 -FT0 031652 034450 0 0 000020000000 0 312140034450 -FT1A 031652 034450 0 0 000020000000 0 000020000000 -FT2 031652 034450 0 0 0 0 000020000000 -FT2RQ 031652 034450 0 0 000020000000 0 000020000000 -FT3 031652 034450 0 0 000020000000 0 000020000000 -FT9 031653 034450 0 0 000020000000 0 000020000000 -ET0 031654 034450 0 0 0 0 000020000000 -ST1A 031654 034450 0 0 0 0 000020000000 -ST9 031654 034450 0 0 0 0 000020000000 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 163 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0358 - - -*031654 JUMPA 0,031655 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031654 031654 0 0 324000031655 0 000000031655 -IT1 031654 0 0 0 324000031655 0 000000031655 -AT3 031654 0 0 0 000000031655 0 324000031655 -AT6 031654 031655 0 0 000000031655 0 324000031655 -FT1A 031654 031655 0 0 000000031655 0 000000031655 -FT2 031654 031655 0 0 0 0 000000031655 -FT2RQ 031654 031655 0 0 000000000017 0 000000031655 -FT3 031654 031655 0 0 000000000017 0 000000031655 -FT9 031655 031655 0 0 000000000017 0 000000031655 -ET0 031655 031655 0 0 000000000017 0 000000031655 -ST1A 031655 031655 0 0 000000000017 0 000000031655 -ST9 031655 031655 0 0 000000000017 0 000000031655 - - -*031655 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000020 000000 -FINAL - -C(E)=000020 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031655 031655 0 0 476000000003 0 000000000003 -IT1 031655 0 0 0 476000000003 0 000000000003 -AT3 031655 0 0 0 000000000003 0 476000000003 -AT6 031655 000003 0 0 000000000003 0 476000000003 -FT1A 031655 000003 0 0 000000000003 0 000000000003 -FT9 031656 000003 0 0 000000000003 0 000000000003 -ET0 031656 000003 0 0 777777777777 0 000000000003 -ST6 031656 000003 0 0 777777777777 0 000000000003 -ST6A 031656 000003 0 0 777777777777 0 000000000003 -ST9 031656 000003 0 0 777777777777 0 000000000003 - - -*031656 MOVSI 1,000040 -INITIAL -C(AC)=000020 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031656 031656 0 0 205040000040 0 000000000040 -IT1 031656 0 0 0 205040000040 0 000000000040 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 164 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0359 - -AT3 031656 0 0 0 000000000040 0 205040000040 -AT6 031656 000040 0 0 000000000040 0 205040000040 -FT1A 031656 000040 0 0 000000000040 0 000000000040 -FT9 031657 000040 0 0 000000000040 0 000000000040 -ET0 031657 000040 0 0 000040000000 0 000000000040 -ST1 031657 000040 0 0 000040000000 0 000000000040 -ST2 031657 000040 0 0 000040000000 0 000000000040 -ST9 031657 000040 0 0 000040000000 0 000000000040 - - -*031657 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031657 031657 0 0 201100000001 0 000000000001 -IT1 031657 0 0 0 201100000001 0 000000000001 -AT3 031657 0 0 0 000000000001 0 201100000001 -AT6 031657 000001 0 0 000000000001 0 201100000001 -FT1A 031657 000001 0 0 000000000001 0 000000000001 -FT9 031660 000001 0 0 000000000001 0 000000000001 -ET0 031660 000001 0 0 000000000001 0 000000000001 -ST1 031660 000001 0 0 000000000001 0 000000000001 -ST2 031660 000001 0 0 000000000001 0 000000000001 -ST9 031660 000001 0 0 000000000001 0 000000000001 - - -*031660 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031660 031660 0 0 200142000000 0 000040000000 -IT1 031660 0 0 0 200142000000 0 000040000000 -AT1 031660 0 0 0 0 0 200142000000 -AT2 031660 0 0 0 000000000001 0 200142000000 -AT3 031660 0 0 0 000000000001 0 000000000001 -AT6 031660 000001 0 0 000000000001 0 000000000001 -FT0 031660 000001 0 0 000040000000 0 000000000001 -FT1A 031660 000001 0 0 000040000000 0 000040000000 -FT9 031661 000001 0 0 000040000000 0 000040000000 -ET0 031661 000001 0 0 000040000000 0 000040000000 -ST1 031661 000001 0 0 000040000000 0 000040000000 -ST2 031661 000001 0 0 000040000000 0 000040000000 -ST9 031661 000001 0 0 000040000000 0 000040000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 165 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0360 - -*031661 CAME 3,034451 -INITIAL -C(AC)=000040 000000 -C(E)=000040 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031661 031661 0 0 312140034451 0 000040000000 -IT1 031661 0 0 0 312140034451 0 000040000000 -AT3 031661 0 0 0 000000034451 0 312140034451 -AT6 031661 034451 0 0 000000034451 0 312140034451 -FT0 031661 034451 0 0 000040000000 0 312140034451 -FT1A 031661 034451 0 0 000040000000 0 000040000000 -FT2 031661 034451 0 0 0 0 000040000000 -FT2RQ 031661 034451 0 0 000040000000 0 000040000000 -FT3 031661 034451 0 0 000040000000 0 000040000000 -FT9 031662 034451 0 0 000040000000 0 000040000000 -ET0 031663 034451 0 0 0 0 000040000000 -ST1A 031663 034451 0 0 0 0 000040000000 -ST9 031663 034451 0 0 0 0 000040000000 - - -*031663 JUMPA 0,031664 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031663 031663 0 0 324000031664 0 000000031664 -IT1 031663 0 0 0 324000031664 0 000000031664 -AT3 031663 0 0 0 000000031664 0 324000031664 -AT6 031663 031664 0 0 000000031664 0 324000031664 -FT1A 031663 031664 0 0 000000031664 0 000000031664 -FT2 031663 031664 0 0 0 0 000000031664 -FT2RQ 031663 031664 0 0 000000000017 0 000000031664 -FT3 031663 031664 0 0 000000000017 0 000000031664 -FT9 031664 031664 0 0 000000000017 0 000000031664 -ET0 031664 031664 0 0 000000000017 0 000000031664 -ST1A 031664 031664 0 0 000000000017 0 000000031664 -ST9 031664 031664 0 0 000000000017 0 000000031664 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 166 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0361 - -*031664 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000040 000000 -FINAL - -C(E)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031664 031664 0 0 476000000003 0 000000000003 -IT1 031664 0 0 0 476000000003 0 000000000003 -AT3 031664 0 0 0 000000000003 0 476000000003 -AT6 031664 000003 0 0 000000000003 0 476000000003 -FT1A 031664 000003 0 0 000000000003 0 000000000003 -FT9 031665 000003 0 0 000000000003 0 000000000003 -ET0 031665 000003 0 0 777777777777 0 000000000003 -ST6 031665 000003 0 0 777777777777 0 000000000003 -ST6A 031665 000003 0 0 777777777777 0 000000000003 -ST9 031665 000003 0 0 777777777777 0 000000000003 - - -*031665 MOVSI 1,000100 -INITIAL -C(AC)=000040 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031665 031665 0 0 205040000100 0 000000000100 -IT1 031665 0 0 0 205040000100 0 000000000100 -AT3 031665 0 0 0 000000000100 0 205040000100 -AT6 031665 0 0 0 000000000100 0 205040000100 -FT1A 031665 0 0 0 000000000100 0 000000000100 -FT9 031666 0 0 0 000000000100 0 000000000100 -ET0 031666 0 0 0 000100000000 0 000000000100 -ST1 031666 0 0 0 000100000000 0 000000000100 -ST2 031666 0 0 0 000100000000 0 000000000100 -ST9 031666 0 0 0 000100000000 0 000000000100 - - -*031666 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031666 031666 0 0 201100000001 0 000000000001 -IT1 031666 0 0 0 201100000001 0 000000000001 -AT3 031666 0 0 0 000000000001 0 201100000001 -AT6 031666 000001 0 0 000000000001 0 201100000001 -FT1A 031666 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 167 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0362 - -FT9 031667 000001 0 0 000000000001 0 000000000001 -ET0 031667 000001 0 0 000000000001 0 000000000001 -ST1 031667 000001 0 0 000000000001 0 000000000001 -ST2 031667 000001 0 0 000000000001 0 000000000001 -ST9 031667 000001 0 0 000000000001 0 000000000001 - - -*031667 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031667 031667 0 0 200142000000 0 000100000000 -IT1 031667 0 0 0 200142000000 0 000100000000 -AT1 031667 0 0 0 0 0 200142000000 -AT2 031667 0 0 0 000000000001 0 200142000000 -AT3 031667 0 0 0 000000000001 0 000000000001 -AT6 031667 000001 0 0 000000000001 0 000000000001 -FT0 031667 000001 0 0 000100000000 0 000000000001 -FT1A 031667 000001 0 0 000100000000 0 000100000000 -FT9 031670 000001 0 0 000100000000 0 000100000000 -ET0 031670 000001 0 0 000100000000 0 000100000000 -ST1 031670 000001 0 0 000100000000 0 000100000000 -ST2 031670 000001 0 0 000100000000 0 000100000000 -ST9 031670 000001 0 0 000100000000 0 000100000000 - - -*031670 CAME 3,034452 -INITIAL -C(AC)=000100 000000 -C(E)=000100 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031670 031670 0 0 312140034452 0 000100000000 -IT1 031670 0 0 0 312140034452 0 000100000000 -AT3 031670 0 0 0 000000034452 0 312140034452 -AT6 031670 034452 0 0 000000034452 0 312140034452 -FT0 031670 034452 0 0 000100000000 0 312140034452 -FT1A 031670 034452 0 0 000100000000 0 000100000000 -FT2 031670 034452 0 0 0 0 000100000000 -FT2RQ 031670 034452 0 0 000100000000 0 000100000000 -FT3 031670 034452 0 0 000100000000 0 000100000000 -FT9 031671 034452 0 0 000100000000 0 000100000000 -ET0 031672 034452 0 0 0 0 000100000000 -ST1A 031672 034452 0 0 0 0 000100000000 -ST9 031672 034452 0 0 0 0 000100000000 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 168 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0363 - - -*031672 JUMPA 0,031673 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031672 031672 0 0 324000031673 0 000000031673 -IT1 031672 0 0 0 324000031673 0 000000031673 -AT3 031672 0 0 0 000000031673 0 324000031673 -AT6 031672 031673 0 0 000000031673 0 324000031673 -FT1A 031672 031673 0 0 000000031673 0 000000031673 -FT2 031672 031673 0 0 0 0 000000031673 -FT2RQ 031672 031673 0 0 000000000017 0 000000031673 -FT3 031672 031673 0 0 000000000017 0 000000031673 -FT9 031673 031673 0 0 000000000017 0 000000031673 -ET0 031673 031673 0 0 000000000017 0 000000031673 -ST1A 031673 031673 0 0 000000000017 0 000000031673 -ST9 031673 031673 0 0 000000000017 0 000000031673 - - -*031673 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000100 000000 -FINAL - -C(E)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031673 031673 0 0 476000000003 0 000000000003 -IT1 031673 0 0 0 476000000003 0 000000000003 -AT3 031673 0 0 0 000000000003 0 476000000003 -AT6 031673 000003 0 0 000000000003 0 476000000003 -FT1A 031673 000003 0 0 000000000003 0 000000000003 -FT9 031674 000003 0 0 000000000003 0 000000000003 -ET0 031674 000003 0 0 777777777777 0 000000000003 -ST6 031674 000003 0 0 777777777777 0 000000000003 -ST6A 031674 000003 0 0 777777777777 0 000000000003 -ST9 031674 000003 0 0 777777777777 0 000000000003 - - -*031674 MOVSI 1,000200 -INITIAL -C(AC)=000100 000000 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031674 031674 0 0 205040000200 0 000000000200 -IT1 031674 0 0 0 205040000200 0 000000000200 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 169 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0364 - -AT3 031674 0 0 0 000000000200 0 205040000200 -AT6 031674 0 0 0 000000000200 0 205040000200 -FT1A 031674 0 0 0 000000000200 0 000000000200 -FT9 031675 0 0 0 000000000200 0 000000000200 -ET0 031675 0 0 0 000200000000 0 000000000200 -ST1 031675 0 0 0 000200000000 0 000000000200 -ST2 031675 0 0 0 000200000000 0 000000000200 -ST9 031675 0 0 0 000200000000 0 000000000200 - - -*031675 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031675 031675 0 0 201100000001 0 000000000001 -IT1 031675 0 0 0 201100000001 0 000000000001 -AT3 031675 0 0 0 000000000001 0 201100000001 -AT6 031675 000001 0 0 000000000001 0 201100000001 -FT1A 031675 000001 0 0 000000000001 0 000000000001 -FT9 031676 000001 0 0 000000000001 0 000000000001 -ET0 031676 000001 0 0 000000000001 0 000000000001 -ST1 031676 000001 0 0 000000000001 0 000000000001 -ST2 031676 000001 0 0 000000000001 0 000000000001 -ST9 031676 000001 0 0 000000000001 0 000000000001 - - -*031676 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031676 031676 0 0 200142000000 0 000200000000 -IT1 031676 0 0 0 200142000000 0 000200000000 -AT1 031676 0 0 0 0 0 200142000000 -AT2 031676 0 0 0 000000000001 0 200142000000 -AT3 031676 0 0 0 000000000001 0 000000000001 -AT6 031676 000001 0 0 000000000001 0 000000000001 -FT0 031676 000001 0 0 000200000000 0 000000000001 -FT1A 031676 000001 0 0 000200000000 0 000200000000 -FT9 031677 000001 0 0 000200000000 0 000200000000 -ET0 031677 000001 0 0 000200000000 0 000200000000 -ST1 031677 000001 0 0 000200000000 0 000200000000 -ST2 031677 000001 0 0 000200000000 0 000200000000 -ST9 031677 000001 0 0 000200000000 0 000200000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 170 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0365 - -*031677 CAME 3,034453 -INITIAL -C(AC)=000200 000000 -C(E)=000200 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031677 031677 0 0 312140034453 0 000200000000 -IT1 031677 0 0 0 312140034453 0 000200000000 -AT3 031677 0 0 0 000000034453 0 312140034453 -AT6 031677 034453 0 0 000000034453 0 312140034453 -FT0 031677 034453 0 0 000200000000 0 312140034453 -FT1A 031677 034453 0 0 000200000000 0 000200000000 -FT2 031677 034453 0 0 0 0 000200000000 -FT2RQ 031677 034453 0 0 000200000000 0 000200000000 -FT3 031677 034453 0 0 000200000000 0 000200000000 -FT9 0 034453 0 0 000200000000 0 000200000000 -ET0 031701 034453 0 0 0 0 000200000000 -ST1A 031701 034453 0 0 0 0 000200000000 -ST9 031701 034453 0 0 0 0 000200000000 - - -*031701 JUMPA 0,031702 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031701 031701 0 0 324000031702 0 000000031702 -IT1 031701 0 0 0 324000031702 0 000000031702 -AT3 031701 0 0 0 000000031702 0 324000031702 -AT6 031701 031702 0 0 000000031702 0 324000031702 -FT1A 031701 031702 0 0 000000031702 0 000000031702 -FT2 031701 031702 0 0 0 0 000000031702 -FT2RQ 031701 031702 0 0 000000000017 0 000000031702 -FT3 031701 031702 0 0 000000000017 0 000000031702 -FT9 031702 031702 0 0 000000000017 0 000000031702 -ET0 031702 031702 0 0 000000000017 0 000000031702 -ST1A 031702 031702 0 0 000000000017 0 000000031702 -ST9 031702 031702 0 0 000000000017 0 000000031702 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 171 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0366 - -*031702 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000200 000000 -FINAL - -C(E)=000200 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031702 031702 0 0 476000000003 0 000000000003 -IT1 031702 0 0 0 476000000003 0 000000000003 -AT3 031702 0 0 0 000000000003 0 476000000003 -AT6 031702 000003 0 0 000000000003 0 476000000003 -FT1A 031702 000003 0 0 000000000003 0 000000000003 -FT9 031703 000003 0 0 000000000003 0 000000000003 -ET0 031703 000003 0 0 777777777777 0 000000000003 -ST6 031703 000003 0 0 777777777777 0 000000000003 -ST6A 031703 000003 0 0 777777777777 0 000000000003 -ST9 031703 000003 0 0 777777777777 0 000000000003 - - -*031703 MOVSI 1,000400 -INITIAL -C(AC)=000200 000000 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031703 031703 0 0 205040000400 0 000000000400 -IT1 031703 0 0 0 205040000400 0 000000000400 -AT3 031703 0 0 0 000000000400 0 205040000400 -AT6 031703 0 0 0 000000000400 0 205040000400 -FT1A 031703 0 0 0 000000000400 0 000000000400 -FT9 031704 0 0 0 000000000400 0 000000000400 -ET0 031704 0 0 0 000400000000 0 000000000400 -ST1 031704 0 0 0 000400000000 0 000000000400 -ST2 031704 0 0 0 000400000000 0 000000000400 -ST9 031704 0 0 0 000400000000 0 000000000400 - - -*031704 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031704 031704 0 0 201100000001 0 000000000001 -IT1 031704 0 0 0 201100000001 0 000000000001 -AT3 031704 0 0 0 000000000001 0 201100000001 -AT6 031704 000001 0 0 000000000001 0 201100000001 -FT1A 031704 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 172 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0367 - -FT9 031705 000001 0 0 000000000001 0 000000000001 -ET0 031705 000001 0 0 000000000001 0 000000000001 -ST1 031705 000001 0 0 000000000001 0 000000000001 -ST2 031705 000001 0 0 000000000001 0 000000000001 -ST9 031705 000001 0 0 000000000001 0 000000000001 - - -*031705 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031705 031705 0 0 200142000000 0 000400000000 -IT1 031705 0 0 0 200142000000 0 000400000000 -AT1 031705 0 0 0 0 0 200142000000 -AT2 031705 0 0 0 000000000001 0 200142000000 -AT3 031705 0 0 0 000000000001 0 000000000001 -AT6 031705 000001 0 0 000000000001 0 000000000001 -FT0 031705 000001 0 0 000400000000 0 000000000001 -FT1A 031705 000001 0 0 000400000000 0 000400000000 -FT9 031706 000001 0 0 000400000000 0 000400000000 -ET0 031706 000001 0 0 000400000000 0 000400000000 -ST1 031706 000001 0 0 000400000000 0 000400000000 -ST2 031706 000001 0 0 000400000000 0 000400000000 -ST9 031706 000001 0 0 000400000000 0 000400000000 - - -*031706 CAME 3,034454 -INITIAL -C(AC)=000400 000000 -C(E)=000400 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031706 031706 0 0 312140034454 0 000400000000 -IT1 031706 0 0 0 312140034454 0 000400000000 -AT3 031706 0 0 0 000000034454 0 312140034454 -AT6 031706 034454 0 0 000000034454 0 312140034454 -FT0 031706 034454 0 0 000400000000 0 312140034454 -FT1A 031706 034454 0 0 000400000000 0 000400000000 -FT2 031706 034454 0 0 0 0 000400000000 -FT2RQ 031706 034454 0 0 000400000000 0 000400000000 -FT3 031706 034454 0 0 000400000000 0 000400000000 -FT9 031707 034454 0 0 000400000000 0 000400000000 -ET0 031710 034454 0 0 0 0 000400000000 -ST1A 031710 034454 0 0 0 0 000400000000 -ST9 031710 034454 0 0 0 0 000400000000 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 173 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0368 - - -*031710 JUMPA 0,031711 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000031711 -FT3 031710 031711 0 0 000000000017 0 000000031711 -FT9 031711 031711 0 0 000000000017 0 000000031711 -ET0 031711 031711 0 0 000000000017 0 000000031711 -ST1A 031711 031711 0 0 000000000017 0 000000031711 -ST9 031711 031711 0 0 000000000017 0 000000031711 - - -*031711 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=000400 000000 -FINAL - -C(E)=000400 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031711 031711 0 0 476000000003 0 000000000003 -IT1 031711 0 0 0 476000000003 0 000000000003 -AT3 031711 0 0 0 000000000003 0 476000000003 -AT6 031711 000003 0 0 000000000003 0 476000000003 -FT1A 031711 000003 0 0 000000000003 0 000000000003 -FT9 031712 000003 0 0 000000000003 0 000000000003 -ET0 031712 000003 0 0 777777777777 0 000000000003 -ST6 031712 000003 0 0 777777777777 0 000000000003 -ST6A 031712 000003 0 0 777777777777 0 000000000003 -ST9 031712 000003 0 0 777777777777 0 000000000003 - - -*031712 MOVSI 1,001000 -INITIAL -C(AC)=000400 000000 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031712 031712 0 0 205040001000 0 000000001000 -IT1 031712 0 0 0 205040001000 0 000000001000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 174 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0369 - -AT3 031712 0 0 0 000000001000 0 205040001000 -AT6 031712 0 0 0 000000001000 0 205040001000 -FT1A 031712 0 0 0 000000001000 0 000000001000 -FT9 031713 0 0 0 000000001000 0 000000001000 -ET0 031713 0 0 0 001000000000 0 000000001000 -ST1 031713 0 0 0 001000000000 0 000000001000 -ST2 031713 0 0 0 001000000000 0 000000001000 -ST9 031713 0 0 0 001000000000 0 000000001000 - - -*031713 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031713 031713 0 0 201100000001 0 000000000001 -IT1 031713 0 0 0 201100000001 0 000000000001 -AT3 031713 0 0 0 000000000001 0 201100000001 -AT6 031713 000001 0 0 000000000001 0 201100000001 -FT1A 031713 000001 0 0 000000000001 0 000000000001 -FT9 031714 000001 0 0 000000000001 0 000000000001 -ET0 031714 000001 0 0 000000000001 0 000000000001 -ST1 031714 000001 0 0 000000000001 0 000000000001 -ST2 031714 000001 0 0 000000000001 0 000000000001 -ST9 031714 000001 0 0 000000000001 0 000000000001 - - -*031714 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031714 031714 0 0 200142000000 0 001000000000 -IT1 031714 0 0 0 200142000000 0 001000000000 -AT1 031714 0 0 0 0 0 200142000000 -AT2 031714 0 0 0 000000000001 0 200142000000 -AT3 031714 0 0 0 000000000001 0 000000000001 -AT6 031714 000001 0 0 000000000001 0 000000000001 -FT0 031714 000001 0 0 001000000000 0 000000000001 -FT1A 031714 000001 0 0 001000000000 0 001000000000 -FT9 031715 000001 0 0 001000000000 0 001000000000 -ET0 031715 000001 0 0 001000000000 0 001000000000 -ST1 031715 000001 0 0 001000000000 0 001000000000 -ST2 031715 000001 0 0 001000000000 0 001000000000 -ST9 031715 000001 0 0 001000000000 0 001000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 175 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0370 - -*031715 CAME 3,034455 -INITIAL -C(AC)=001000 000000 -C(E)=001000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031715 031715 0 0 312140034455 0 001000000000 -IT1 031715 0 0 0 312140034455 0 001000000000 -AT3 031715 0 0 0 000000034455 0 312140034455 -AT6 031715 034455 0 0 000000034455 0 312140034455 -FT0 031715 034455 0 0 001000000000 0 312140034455 -FT1A 031715 034455 0 0 001000000000 0 001000000000 -FT2 031715 034455 0 0 0 0 001000000000 -FT2RQ 031715 034455 0 0 001000000000 0 001000000000 -FT3 031715 034455 0 0 001000000000 0 001000000000 -FT9 031716 034455 0 0 001000000000 0 001000000000 -ET0 031717 034455 0 0 0 0 001000000000 -ST1A 031717 034455 0 0 0 0 001000000000 -ST9 031717 034455 0 0 0 0 001000000000 - - -*031717 JUMPA 0,031720 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031717 031717 0 0 324000031720 0 000000031720 -IT1 031717 0 0 0 324000031720 0 000000031720 -AT3 031717 0 0 0 000000031720 0 324000031720 -AT6 031717 031720 0 0 000000031720 0 324000031720 -FT1A 031717 031720 0 0 000000031720 0 000000031720 -FT2 031717 031720 0 0 0 0 000000031720 -FT2RQ 031717 031720 0 0 000000000017 0 000000031720 -FT3 031717 031720 0 0 000000000017 0 000000031720 -FT9 031720 031720 0 0 000000000017 0 000000031720 -ET0 031720 031720 0 0 000000000017 0 000000031720 -ST1A 031720 031720 0 0 000000000017 0 000000031720 -ST9 031720 031720 0 0 000000000017 0 000000031720 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 176 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0371 - -*031720 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=001000 000000 -FINAL - -C(E)=001000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031720 031720 0 0 476000000003 0 000000000003 -IT1 031720 0 0 0 476000000003 0 000000000003 -AT3 031720 0 0 0 000000000003 0 476000000003 -AT6 031720 000003 0 0 000000000003 0 476000000003 -FT1A 031720 000003 0 0 000000000003 0 000000000003 -FT9 031721 000003 0 0 000000000003 0 000000000003 -ET0 031721 000003 0 0 777777777777 0 000000000003 -ST6 031721 000003 0 0 777777777777 0 000000000003 -ST6A 031721 000003 0 0 777777777777 0 000000000003 -ST9 031721 000003 0 0 777777777777 0 000000000003 - - -*031721 MOVSI 1,002000 -INITIAL -C(AC)=001000 000000 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031721 031721 0 0 205040002000 0 000000002000 -IT1 031721 0 0 0 205040002000 0 000000002000 -AT3 031721 0 0 0 000000002000 0 205040002000 -AT6 031721 0 0 0 000000002000 0 205040002000 -FT1A 031721 0 0 0 000000002000 0 000000002000 -FT9 031722 0 0 0 000000002000 0 000000002000 -ET0 031722 0 0 0 002000000000 0 000000002000 -ST1 031722 0 0 0 002000000000 0 000000002000 -ST2 031722 0 0 0 002000000000 0 000000002000 -ST9 031722 0 0 0 002000000000 0 000000002000 - - -*031722 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031722 031722 0 0 201100000001 0 000000000001 -IT1 031722 0 0 0 201100000001 0 000000000001 -AT3 031722 0 0 0 000000000001 0 201100000001 -AT6 031722 000001 0 0 000000000001 0 201100000001 -FT1A 031722 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 177 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0372 - -FT9 031723 000001 0 0 000000000001 0 000000000001 -ET0 031723 000001 0 0 000000000001 0 000000000001 -ST1 031723 000001 0 0 000000000001 0 000000000001 -ST2 031723 000001 0 0 000000000001 0 000000000001 -ST9 031723 000001 0 0 000000000001 0 000000000001 - - -*031723 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031723 031723 0 0 200142000000 0 002000000000 -IT1 031723 0 0 0 200142000000 0 002000000000 -AT1 031723 0 0 0 0 0 200142000000 -AT2 031723 0 0 0 000000000001 0 200142000000 -AT3 031723 0 0 0 000000000001 0 000000000001 -AT6 031723 000001 0 0 000000000001 0 000000000001 -FT0 031723 000001 0 0 002000000000 0 000000000001 -FT1A 031723 000001 0 0 002000000000 0 002000000000 -FT9 031724 000001 0 0 002000000000 0 002000000000 -ET0 031724 000001 0 0 002000000000 0 002000000000 -ST1 031724 000001 0 0 002000000000 0 002000000000 -ST2 031724 000001 0 0 002000000000 0 002000000000 -ST9 031724 000001 0 0 002000000000 0 002000000000 - - -*031724 CAME 3,034456 -INITIAL -C(AC)=002000 000000 -C(E)=002000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031724 031724 0 0 312140034456 0 002000000000 -IT1 031724 0 0 0 312140034456 0 002000000000 -AT3 031724 0 0 0 000000034456 0 312140034456 -AT6 031724 034456 0 0 000000034456 0 312140034456 -FT0 031724 034456 0 0 002000000000 0 312140034456 -FT1A 031724 034456 0 0 002000000000 0 002000000000 -FT2 031724 034456 0 0 0 0 002000000000 -FT2RQ 031724 034456 0 0 002000000000 0 002000000000 -FT3 031724 034456 0 0 002000000000 0 002000000000 -FT9 031725 034456 0 0 002000000000 0 002000000000 -ET0 031726 034456 0 0 0 0 002000000000 -ST1A 031726 034456 0 0 0 0 002000000000 -ST9 031726 034456 0 0 0 0 002000000000 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 178 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0373 - - -*031726 JUMPA 0,031727 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031726 031726 0 0 324000031727 0 000000031727 -IT1 031726 0 0 0 324000031727 0 000000031727 -AT3 031726 0 0 0 000000031727 0 324000031727 -AT6 031726 031727 0 0 000000031727 0 324000031727 -FT1A 031726 031727 0 0 000000031727 0 000000031727 -FT2 031726 031727 0 0 0 0 000000031727 -FT2RQ 031726 031727 0 0 000000000017 0 000000031727 -FT3 031726 031727 0 0 000000000017 0 000000031727 -FT9 031727 031727 0 0 000000000017 0 000000031727 -ET0 031727 031727 0 0 000000000017 0 000000031727 -ST1A 031727 031727 0 0 000000000017 0 000000031727 -ST9 031727 031727 0 0 000000000017 0 000000031727 - - -*031727 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=002000 000000 -FINAL - -C(E)=002000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031727 031727 0 0 476000000003 0 000000000003 -IT1 031727 0 0 0 476000000003 0 000000000003 -AT3 031727 0 0 0 000000000003 0 476000000003 -AT6 031727 000003 0 0 000000000003 0 476000000003 -FT1A 031727 000003 0 0 000000000003 0 000000000003 -FT9 031730 000003 0 0 000000000003 0 000000000003 -ET0 031730 000003 0 0 777777777777 0 000000000003 -ST6 031730 000003 0 0 777777777777 0 000000000003 -ST6A 031730 000003 0 0 777777777777 0 000000000003 -ST9 031730 000003 0 0 777777777777 0 000000000003 - - -*031730 MOVSI 1,004000 -INITIAL -C(AC)=002000 000000 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031730 031730 0 0 205040004000 0 000000004000 -IT1 031730 0 0 0 205040004000 0 000000004000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 179 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0374 - -AT3 031730 0 0 0 000000004000 0 205040004000 -AT6 031730 0 0 0 000000004000 0 205040004000 -FT1A 031730 0 0 0 000000004000 0 000000004000 -FT9 031731 0 0 0 000000004000 0 000000004000 -ET0 031731 0 0 0 004000000000 0 000000004000 -ST1 031731 0 0 0 004000000000 0 000000004000 -ST2 031731 0 0 0 004000000000 0 000000004000 -ST9 031731 0 0 0 004000000000 0 000000004000 - - -*031731 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031731 031731 0 0 201100000001 0 000000000001 -IT1 031731 0 0 0 201100000001 0 000000000001 -AT3 031731 0 0 0 000000000001 0 201100000001 -AT6 031731 000001 0 0 000000000001 0 201100000001 -FT1A 031731 000001 0 0 000000000001 0 000000000001 -FT9 031732 000001 0 0 000000000001 0 000000000001 -ET0 031732 000001 0 0 000000000001 0 000000000001 -ST1 031732 000001 0 0 000000000001 0 000000000001 -ST2 031732 000001 0 0 000000000001 0 000000000001 -ST9 031732 000001 0 0 000000000001 0 000000000001 - - -*031732 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031732 031732 0 0 200142000000 0 004000000000 -IT1 031732 0 0 0 200142000000 0 004000000000 -AT1 031732 0 0 0 0 0 200142000000 -AT2 031732 0 0 0 000000000001 0 200142000000 -AT3 031732 0 0 0 000000000001 0 000000000001 -AT6 031732 000001 0 0 000000000001 0 000000000001 -FT0 031732 000001 0 0 004000000000 0 000000000001 -FT1A 031732 000001 0 0 004000000000 0 004000000000 -FT9 031733 000001 0 0 004000000000 0 004000000000 -ET0 031733 000001 0 0 004000000000 0 004000000000 -ST1 031733 000001 0 0 004000000000 0 004000000000 -ST2 031733 000001 0 0 004000000000 0 004000000000 -ST9 031733 000001 0 0 004000000000 0 004000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 180 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0375 - -*031733 CAME 3,034457 -INITIAL -C(AC)=004000 000000 -C(E)=004000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031733 031733 0 0 312140034457 0 004000000000 -IT1 031733 0 0 0 312140034457 0 004000000000 -AT3 031733 0 0 0 000000034457 0 312140034457 -AT6 031733 034457 0 0 000000034457 0 312140034457 -FT0 031733 034457 0 0 004000000000 0 312140034457 -FT1A 031733 034457 0 0 004000000000 0 004000000000 -FT2 031733 034457 0 0 0 0 004000000000 -FT2RQ 031733 034457 0 0 004000000000 0 004000000000 -FT3 031733 034457 0 0 004000000000 0 004000000000 -FT9 031734 034457 0 0 004000000000 0 004000000000 -ET0 031735 034457 0 0 0 0 004000000000 -ST1A 031735 034457 0 0 0 0 004000000000 -ST9 031735 034457 0 0 0 0 004000000000 - - -*031735 JUMPA 0,031736 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000031736 -FT3 031735 031736 0 0 000000000017 0 000000031736 -FT9 031736 031736 0 0 000000000017 0 000000031736 -ET0 031736 031736 0 0 000000000017 0 000000031736 -ST1A 031736 031736 0 0 000000000017 0 000000031736 -ST9 031736 031736 0 0 000000000017 0 000000031736 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 181 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0376 - -*031736 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=004000 000000 -FINAL - -C(E)=004000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031736 031736 0 0 476000000003 0 000000000003 -IT1 031736 0 0 0 476000000003 0 000000000003 -AT3 031736 0 0 0 000000000003 0 476000000003 -AT6 031736 000003 0 0 000000000003 0 476000000003 -FT1A 031736 000003 0 0 000000000003 0 000000000003 -FT9 031737 000003 0 0 000000000003 0 000000000003 -ET0 031737 000003 0 0 777777777777 0 000000000003 -ST6 031737 000003 0 0 777777777777 0 000000000003 -ST6A 031737 000003 0 0 777777777777 0 000000000003 -ST9 031737 000003 0 0 777777777777 0 000000000003 - - -*031737 MOVSI 1,010000 -INITIAL -C(AC)=004000 000000 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031737 031737 0 0 205040010000 0 000000010000 -IT1 031737 0 0 0 205040010000 0 000000010000 -AT3 031737 0 0 0 000000010000 0 205040010000 -AT6 031737 0 0 0 000000010000 0 205040010000 -FT1A 031737 0 0 0 000000010000 0 000000010000 -FT9 031740 0 0 0 000000010000 0 000000010000 -ET0 031740 0 0 0 010000000000 0 000000010000 -ST1 031740 0 0 0 010000000000 0 000000010000 -ST2 031740 0 0 0 010000000000 0 000000010000 -ST9 031740 0 0 0 010000000000 0 000000010000 - - -*031740 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031740 031740 0 0 201100000001 0 000000000001 -IT1 031740 0 0 0 201100000001 0 000000000001 -AT3 031740 0 0 0 000000000001 0 201100000001 -AT6 031740 000001 0 0 000000000001 0 201100000001 -FT1A 031740 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 182 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0377 - -FT9 031741 000001 0 0 000000000001 0 000000000001 -ET0 031741 000001 0 0 000000000001 0 000000000001 -ST1 031741 000001 0 0 000000000001 0 000000000001 -ST2 031741 000001 0 0 000000000001 0 000000000001 -ST9 031741 000001 0 0 000000000001 0 000000000001 - - -*031741 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031741 031741 0 0 200142000000 0 010000000000 -IT1 031741 0 0 0 200142000000 0 010000000000 -AT1 031741 0 0 0 0 0 200142000000 -AT2 031741 0 0 0 000000000001 0 200142000000 -AT3 031741 0 0 0 000000000001 0 000000000001 -AT6 031741 000001 0 0 000000000001 0 000000000001 -FT0 031741 000001 0 0 010000000000 0 000000000001 -FT1A 031741 000001 0 0 010000000000 0 010000000000 -FT9 031742 000001 0 0 010000000000 0 010000000000 -ET0 031742 000001 0 0 010000000000 0 010000000000 -ST1 031742 000001 0 0 010000000000 0 010000000000 -ST2 031742 000001 0 0 010000000000 0 010000000000 -ST9 031742 000001 0 0 010000000000 0 010000000000 - - -*031742 CAME 3,034460 -INITIAL -C(AC)=010000 000000 -C(E)=010000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031742 031742 0 0 312140034460 0 010000000000 -IT1 031742 0 0 0 312140034460 0 010000000000 -AT3 031742 0 0 0 000000034460 0 312140034460 -AT6 031742 034460 0 0 000000034460 0 312140034460 -FT0 031742 034460 0 0 010000000000 0 312140034460 -FT1A 031742 034460 0 0 010000000000 0 010000000000 -FT2 031742 034460 0 0 0 0 010000000000 -FT2RQ 031742 034460 0 0 010000000000 0 010000000000 -FT3 031742 034460 0 0 010000000000 0 010000000000 -FT9 031743 034460 0 0 010000000000 0 010000000000 -ET0 031744 034460 0 0 0 0 010000000000 -ST1A 031744 034460 0 0 0 0 010000000000 -ST9 031744 034460 0 0 0 0 010000000000 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 183 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0378 - - -*031744 JUMPA 0,031745 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031744 031744 0 0 324000031745 0 000000031745 -IT1 031744 0 0 0 324000031745 0 000000031745 -AT3 031744 0 0 0 000000031745 0 324000031745 -AT6 031744 031745 0 0 000000031745 0 324000031745 -FT1A 031744 031745 0 0 000000031745 0 000000031745 -FT2 031744 031745 0 0 0 0 000000031745 -FT2RQ 031744 031745 0 0 000000000017 0 000000031745 -FT3 031744 031745 0 0 000000000017 0 000000031745 -FT9 031745 031745 0 0 000000000017 0 000000031745 -ET0 031745 031745 0 0 000000000017 0 000000031745 -ST1A 031745 031745 0 0 000000000017 0 000000031745 -ST9 031745 031745 0 0 000000000017 0 000000031745 - - -*031745 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=010000 000000 -FINAL - -C(E)=010000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031745 031745 0 0 476000000003 0 000000000003 -IT1 031745 0 0 0 476000000003 0 000000000003 -AT3 031745 0 0 0 000000000003 0 476000000003 -AT6 031745 000003 0 0 000000000003 0 476000000003 -FT1A 031745 000003 0 0 000000000003 0 000000000003 -FT9 031746 000003 0 0 000000000003 0 000000000003 -ET0 031746 000003 0 0 777777777777 0 000000000003 -ST6 031746 000003 0 0 777777777777 0 000000000003 -ST6A 031746 000003 0 0 777777777777 0 000000000003 -ST9 031746 000003 0 0 777777777777 0 000000000003 - - -*031746 MOVSI 1,020000 -INITIAL -C(AC)=010000 000000 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031746 031746 0 0 205040020000 0 000000020000 -IT1 031746 0 0 0 205040020000 0 000000020000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 184 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0379 - -AT3 031746 0 0 0 000000020000 0 205040020000 -AT6 031746 0 0 0 000000020000 0 205040020000 -FT1A 031746 0 0 0 000000020000 0 000000020000 -FT9 031747 0 0 0 000000020000 0 000000020000 -ET0 031747 0 0 0 020000000000 0 000000020000 -ST1 031747 0 0 0 020000000000 0 000000020000 -ST2 031747 0 0 0 020000000000 0 000000020000 -ST9 031747 0 0 0 020000000000 0 000000020000 - - -*031747 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031747 031747 0 0 201100000001 0 000000000001 -IT1 031747 0 0 0 201100000001 0 000000000001 -AT3 031747 0 0 0 000000000001 0 201100000001 -AT6 031747 000001 0 0 000000000001 0 201100000001 -FT1A 031747 000001 0 0 000000000001 0 000000000001 -FT9 031750 000001 0 0 000000000001 0 000000000001 -ET0 031750 000001 0 0 000000000001 0 000000000001 -ST1 031750 000001 0 0 000000000001 0 000000000001 -ST2 031750 000001 0 0 000000000001 0 000000000001 -ST9 031750 000001 0 0 000000000001 0 000000000001 - - -*031750 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031750 031750 0 0 200142000000 0 020000000000 -IT1 031750 0 0 0 200142000000 0 020000000000 -AT1 031750 0 0 0 0 0 200142000000 -AT2 031750 0 0 0 000000000001 0 200142000000 -AT3 031750 0 0 0 000000000001 0 000000000001 -AT6 031750 000001 0 0 000000000001 0 000000000001 -FT0 031750 000001 0 0 020000000000 0 000000000001 -FT1A 031750 000001 0 0 020000000000 0 020000000000 -FT9 031751 000001 0 0 020000000000 0 020000000000 -ET0 031751 000001 0 0 020000000000 0 020000000000 -ST1 031751 000001 0 0 020000000000 0 020000000000 -ST2 031751 000001 0 0 020000000000 0 020000000000 -ST9 031751 000001 0 0 020000000000 0 020000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 185 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0380 - -*031751 CAME 3,034461 -INITIAL -C(AC)=020000 000000 -C(E)=020000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031751 031751 0 0 312140034461 0 020000000000 -IT1 031751 0 0 0 312140034461 0 020000000000 -AT3 031751 0 0 0 000000034461 0 312140034461 -AT6 031751 034461 0 0 000000034461 0 312140034461 -FT0 031751 034461 0 0 020000000000 0 312140034461 -FT1A 031751 034461 0 0 020000000000 0 020000000000 -FT2 031751 034461 0 0 0 0 020000000000 -FT2RQ 031751 034461 0 0 020000000000 0 020000000000 -FT3 031751 034461 0 0 020000000000 0 020000000000 -FT9 031752 034461 0 0 020000000000 0 020000000000 -ET0 031753 034461 0 0 0 0 020000000000 -ST1A 031753 034461 0 0 0 0 020000000000 -ST9 031753 034461 0 0 0 0 020000000000 - - -*031753 JUMPA 0,031754 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031753 031753 0 0 324000031754 0 000000031754 -IT1 031753 0 0 0 324000031754 0 000000031754 -AT3 031753 0 0 0 000000031754 0 324000031754 -AT6 031753 031754 0 0 000000031754 0 324000031754 -FT1A 031753 031754 0 0 000000031754 0 000000031754 -FT2 031753 031754 0 0 0 0 000000031754 -FT2RQ 031753 031754 0 0 000000000017 0 000000031754 -FT3 031753 031754 0 0 000000000017 0 000000031754 -FT9 031754 031754 0 0 000000000017 0 000000031754 -ET0 031754 031754 0 0 000000000017 0 000000031754 -ST1A 031754 031754 0 0 000000000017 0 000000031754 -ST9 031754 031754 0 0 000000000017 0 000000031754 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 186 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0381 - -*031754 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=020000 000000 -FINAL - -C(E)=020000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031754 031754 0 0 476000000003 0 000000000003 -IT1 031754 0 0 0 476000000003 0 000000000003 -AT3 031754 0 0 0 000000000003 0 476000000003 -AT6 031754 000003 0 0 000000000003 0 476000000003 -FT1A 031754 000003 0 0 000000000003 0 000000000003 -FT9 031755 000003 0 0 000000000003 0 000000000003 -ET0 031755 000003 0 0 777777777777 0 000000000003 -ST6 031755 000003 0 0 777777777777 0 000000000003 -ST6A 031755 000003 0 0 777777777777 0 000000000003 -ST9 031755 000003 0 0 777777777777 0 000000000003 - - -*031755 MOVSI 1,040000 -INITIAL -C(AC)=020000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031755 031755 0 0 205040040000 0 000000040000 -IT1 031755 0 0 0 205040040000 0 000000040000 -AT3 031755 0 0 0 000000040000 0 205040040000 -AT6 031755 0 0 0 000000040000 0 205040040000 -FT1A 031755 0 0 0 000000040000 0 000000040000 -FT9 031756 0 0 0 000000040000 0 000000040000 -ET0 031756 0 0 0 040000000000 0 000000040000 -ST1 031756 0 0 0 040000000000 0 000000040000 -ST2 031756 0 0 0 040000000000 0 000000040000 -ST9 031756 0 0 0 040000000000 0 000000040000 - - -*031756 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031756 031756 0 0 201100000001 0 000000000001 -IT1 031756 0 0 0 201100000001 0 000000000001 -AT3 031756 0 0 0 000000000001 0 201100000001 -AT6 031756 000001 0 0 000000000001 0 201100000001 -FT1A 031756 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 187 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0382 - -FT9 031757 000001 0 0 000000000001 0 000000000001 -ET0 031757 000001 0 0 000000000001 0 000000000001 -ST1 031757 000001 0 0 000000000001 0 000000000001 -ST2 031757 000001 0 0 000000000001 0 000000000001 -ST9 031757 000001 0 0 000000000001 0 000000000001 - - -*031757 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031757 031757 0 0 200142000000 0 040000000000 -IT1 031757 0 0 0 200142000000 0 040000000000 -AT1 031757 0 0 0 0 0 200142000000 -AT2 031757 0 0 0 000000000001 0 200142000000 -AT3 031757 0 0 0 000000000001 0 000000000001 -AT6 031757 000001 0 0 000000000001 0 000000000001 -FT0 031757 000001 0 0 040000000000 0 000000000001 -FT1A 031757 000001 0 0 040000000000 0 040000000000 -FT9 031760 000001 0 0 040000000000 0 040000000000 -ET0 031760 000001 0 0 040000000000 0 040000000000 -ST1 031760 000001 0 0 040000000000 0 040000000000 -ST2 031760 000001 0 0 040000000000 0 040000000000 -ST9 031760 000001 0 0 040000000000 0 040000000000 - - -*031760 CAME 3,034462 -INITIAL -C(AC)=040000 000000 -C(E)=040000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031760 031760 0 0 312140034462 0 040000000000 -IT1 031760 0 0 0 312140034462 0 040000000000 -AT3 031760 0 0 0 000000034462 0 312140034462 -AT6 031760 034462 0 0 000000034462 0 312140034462 -FT0 031760 034462 0 0 040000000000 0 312140034462 -FT1A 031760 034462 0 0 040000000000 0 040000000000 -FT2 031760 034462 0 0 0 0 040000000000 -FT2RQ 031760 034462 0 0 040000000000 0 040000000000 -FT3 031760 034462 0 0 040000000000 0 040000000000 -FT9 031761 034462 0 0 040000000000 0 040000000000 -ET0 031762 034462 0 0 0 0 040000000000 -ST1A 031762 034462 0 0 0 0 040000000000 -ST9 031762 034462 0 0 0 0 040000000000 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 188 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0383 - - -*031762 JUMPA 0,031763 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031762 031762 0 0 324000031763 0 000000031763 -IT1 031762 0 0 0 324000031763 0 000000031763 -AT3 031762 0 0 0 000000031763 0 324000031763 -AT6 031762 031763 0 0 000000031763 0 324000031763 -FT1A 031762 031763 0 0 000000031763 0 000000031763 -FT2 031762 031763 0 0 0 0 000000031763 -FT2RQ 031762 031763 0 0 000000000017 0 000000031763 -FT3 031762 031763 0 0 000000000017 0 000000031763 -FT9 031763 031763 0 0 000000000017 0 000000031763 -ET0 031763 031763 0 0 000000000017 0 000000031763 -ST1A 031763 031763 0 0 000000000017 0 000000031763 -ST9 031763 031763 0 0 000000000017 0 000000031763 - - -*031763 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=040000 000000 -FINAL - -C(E)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031763 031763 0 0 476000000003 0 000000000003 -IT1 031763 0 0 0 476000000003 0 000000000003 -AT3 031763 0 0 0 000000000003 0 476000000003 -AT6 031763 000003 0 0 000000000003 0 476000000003 -FT1A 031763 000003 0 0 000000000003 0 000000000003 -FT9 031764 000003 0 0 000000000003 0 000000000003 -ET0 031764 000003 0 0 777777777777 0 000000000003 -ST6 031764 000003 0 0 777777777777 0 000000000003 -ST6A 031764 000003 0 0 777777777777 0 000000000003 -ST9 031764 000003 0 0 777777777777 0 000000000003 - - -*031764 MOVSI 1,100000 -INITIAL -C(AC)=040000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031764 031764 0 0 205040100000 0 000000100000 -IT1 031764 0 0 0 205040100000 0 000000100000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 189 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0384 - -AT3 031764 0 0 0 000000100000 0 205040100000 -AT6 031764 0 0 0 000000100000 0 205040100000 -FT1A 031764 0 0 0 000000100000 0 000000100000 -FT9 031765 0 0 0 000000100000 0 000000100000 -ET0 031765 0 0 0 100000000000 0 000000100000 -ST1 031765 0 0 0 100000000000 0 000000100000 -ST2 031765 0 0 0 100000000000 0 000000100000 -ST9 031765 0 0 0 100000000000 0 000000100000 - - -*031765 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031765 031765 0 0 201100000001 0 000000000001 -IT1 031765 0 0 0 201100000001 0 000000000001 -AT3 031765 0 0 0 000000000001 0 201100000001 -AT6 031765 000001 0 0 000000000001 0 201100000001 -FT1A 031765 000001 0 0 000000000001 0 000000000001 -FT9 031766 000001 0 0 000000000001 0 000000000001 -ET0 031766 000001 0 0 000000000001 0 000000000001 -ST1 031766 000001 0 0 000000000001 0 000000000001 -ST2 031766 000001 0 0 000000000001 0 000000000001 -ST9 031766 000001 0 0 000000000001 0 000000000001 - - -*031766 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031766 031766 0 0 200142000000 0 100000000000 -IT1 031766 0 0 0 200142000000 0 100000000000 -AT1 031766 0 0 0 0 0 200142000000 -AT2 031766 0 0 0 000000000001 0 200142000000 -AT3 031766 0 0 0 000000000001 0 000000000001 -AT6 031766 000001 0 0 000000000001 0 000000000001 -FT0 031766 000001 0 0 100000000000 0 000000000001 -FT1A 031766 000001 0 0 100000000000 0 100000000000 -FT9 031767 000001 0 0 100000000000 0 100000000000 -ET0 031767 000001 0 0 100000000000 0 100000000000 -ST1 031767 000001 0 0 100000000000 0 100000000000 -ST2 031767 000001 0 0 100000000000 0 100000000000 -ST9 031767 000001 0 0 100000000000 0 100000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 190 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0385 - -*031767 CAME 3,034463 -INITIAL -C(AC)=100000 000000 -C(E)=100000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031767 031767 0 0 312140034463 0 100000000000 -IT1 031767 0 0 0 312140034463 0 100000000000 -AT3 031767 0 0 0 000000034463 0 312140034463 -AT6 031767 034463 0 0 000000034463 0 312140034463 -FT0 031767 034463 0 0 100000000000 0 312140034463 -FT1A 031767 034463 0 0 100000000000 0 100000000000 -FT2 031767 034463 0 0 0 0 100000000000 -FT2RQ 031767 034463 0 0 100000000000 0 100000000000 -FT3 031767 034463 0 0 100000000000 0 100000000000 -FT9 031770 034463 0 0 100000000000 0 100000000000 -ET0 031771 034463 0 0 0 0 100000000000 -ST1A 031771 034463 0 0 0 0 100000000000 -ST9 031771 034463 0 0 0 0 100000000000 - - -*031771 JUMPA 0,031772 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031771 031771 0 0 324000031772 0 000000031772 -IT1 031771 0 0 0 324000031772 0 000000031772 -AT3 031771 0 0 0 000000031772 0 324000031772 -AT6 031771 031772 0 0 000000031772 0 324000031772 -FT1A 031771 031772 0 0 000000031772 0 000000031772 -FT2 031771 031772 0 0 0 0 000000031772 -FT2RQ 031771 031772 0 0 000000000017 0 000000031772 -FT3 031771 031772 0 0 000000000017 0 000000031772 -FT9 031772 031772 0 0 000000000017 0 000000031772 -ET0 031772 031772 0 0 000000000017 0 000000031772 -ST1A 031772 031772 0 0 000000000017 0 000000031772 -ST9 031772 031772 0 0 000000000017 0 000000031772 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 191 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0386 - -*031772 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=100000 000000 -FINAL - -C(E)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031772 031772 0 0 476000000003 0 000000000003 -IT1 031772 0 0 0 476000000003 0 000000000003 -AT3 031772 0 0 0 000000000003 0 476000000003 -AT6 031772 000003 0 0 000000000003 0 476000000003 -FT1A 031772 000003 0 0 000000000003 0 000000000003 -FT9 031773 000003 0 0 000000000003 0 000000000003 -ET0 031773 000003 0 0 777777777777 0 000000000003 -ST6 031773 000003 0 0 777777777777 0 000000000003 -ST6A 031773 000003 0 0 777777777777 0 000000000003 -ST9 031773 000003 0 0 777777777777 0 000000000003 - - -*031773 MOVSI 1,200000 -INITIAL -C(AC)=100000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031773 031773 0 0 205040200000 0 000000200000 -IT1 031773 0 0 0 205040200000 0 000000200000 -AT3 031773 0 0 0 000000200000 0 205040200000 -AT6 031773 0 0 0 000000200000 0 205040200000 -FT1A 031773 0 0 0 000000200000 0 000000200000 -FT9 031774 0 0 0 000000200000 0 000000200000 -ET0 031774 0 0 0 200000000000 0 000000200000 -ST1 031774 0 0 0 200000000000 0 000000200000 -ST2 031774 0 0 0 200000000000 0 000000200000 -ST9 031774 0 0 0 200000000000 0 000000200000 - - -*031774 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 031774 031774 0 0 201100000001 0 000000000001 -IT1 031774 0 0 0 201100000001 0 000000000001 -AT3 031774 0 0 0 000000000001 0 201100000001 -AT6 031774 000001 0 0 000000000001 0 201100000001 -FT1A 031774 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 192 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0387 - -FT9 031775 000001 0 0 000000000001 0 000000000001 -ET0 031775 000001 0 0 000000000001 0 000000000001 -ST1 031775 000001 0 0 000000000001 0 000000000001 -ST2 031775 000001 0 0 000000000001 0 000000000001 -ST9 031775 000001 0 0 000000000001 0 000000000001 - - -*031775 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 031775 031775 0 0 200142000000 0 200000000000 -IT1 031775 0 0 0 200142000000 0 200000000000 -AT1 031775 0 0 0 0 0 200142000000 -AT2 031775 0 0 0 000000000001 0 200142000000 -AT3 031775 0 0 0 000000000001 0 000000000001 -AT6 031775 000001 0 0 000000000001 0 000000000001 -FT0 031775 000001 0 0 200000000000 0 000000000001 -FT1A 031775 000001 0 0 200000000000 0 200000000000 -FT9 031776 000001 0 0 200000000000 0 200000000000 -ET0 031776 000001 0 0 200000000000 0 200000000000 -ST1 031776 000001 0 0 200000000000 0 200000000000 -ST2 031776 000001 0 0 200000000000 0 200000000000 -ST9 031776 000001 0 0 200000000000 0 200000000000 - - -*031776 CAME 3,034464 -INITIAL -C(AC)=200000 000000 -C(E)=200000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 031776 031776 0 0 312140034464 0 200000000000 -IT1 031776 0 0 0 312140034464 0 200000000000 -AT3 031776 0 0 0 000000034464 0 312140034464 -AT6 031776 034464 0 0 000000034464 0 312140034464 -FT0 031776 034464 0 0 200000000000 0 312140034464 -FT1A 031776 034464 0 0 200000000000 0 200000000000 -FT2 031776 034464 0 0 0 0 200000000000 -FT2RQ 031776 034464 0 0 200000000000 0 200000000000 -FT3 031776 034464 0 0 200000000000 0 200000000000 -FT9 031777 034464 0 0 200000000000 0 200000000000 -ET0 0 034464 0 0 0 0 200000000000 -ST1A 0 034464 0 0 0 0 200000000000 -ST9 0 034464 0 0 0 0 200000000000 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 193 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0388 - - -*032000 JUMPA 0,032001 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 324000032001 0 000000032001 -IT1 0 0 0 0 324000032001 0 000000032001 -AT3 0 0 0 0 000000032001 0 324000032001 -AT6 0 032001 0 0 000000032001 0 324000032001 -FT1A 0 032001 0 0 000000032001 0 000000032001 -FT2 0 032001 0 0 0 0 000000032001 -FT2RQ 0 032001 0 0 000000000017 0 000000032001 -FT3 0 032001 0 0 000000000017 0 000000032001 -FT9 032001 032001 0 0 000000000017 0 000000032001 -ET0 032001 032001 0 0 000000000017 0 000000032001 -ST1A 032001 032001 0 0 000000000017 0 000000032001 -ST9 032001 032001 0 0 000000000017 0 000000032001 - - -*032001 SETOM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=200000 000000 -FINAL - -C(E)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032001 032001 0 0 476000000003 0 000000000003 -IT1 032001 0 0 0 476000000003 0 000000000003 -AT3 032001 0 0 0 000000000003 0 476000000003 -AT6 032001 000003 0 0 000000000003 0 476000000003 -FT1A 032001 000003 0 0 000000000003 0 000000000003 -FT9 032002 000003 0 0 000000000003 0 000000000003 -ET0 032002 000003 0 0 777777777777 0 000000000003 -ST6 032002 000003 0 0 777777777777 0 000000000003 -ST6A 032002 000003 0 0 777777777777 0 000000000003 -ST9 032002 000003 0 0 777777777777 0 000000000003 - - -*032002 MOVSI 1,400000 -INITIAL -C(AC)=200000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032002 032002 0 0 205040400000 0 000000400000 -IT1 032002 0 0 0 205040400000 0 000000400000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 194 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0389 - -AT3 032002 0 0 0 000000400000 0 205040400000 -AT6 032002 0 0 0 000000400000 0 205040400000 -FT1A 032002 0 0 0 000000400000 0 000000400000 -FT9 032003 0 0 0 000000400000 0 000000400000 -ET0 032003 0 0 0 400000000000 0 000000400000 -ST1 032003 0 0 0 400000000000 0 000000400000 -ST2 032003 0 0 0 400000000000 0 000000400000 -ST9 032003 0 0 0 400000000000 0 000000400000 - - -*032003 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032003 032003 0 0 201100000001 0 000000000001 -IT1 032003 0 0 0 201100000001 0 000000000001 -AT3 032003 0 0 0 000000000001 0 201100000001 -AT6 032003 000001 0 0 000000000001 0 201100000001 -FT1A 032003 000001 0 0 000000000001 0 000000000001 -FT9 032004 000001 0 0 000000000001 0 000000000001 -ET0 032004 000001 0 0 000000000001 0 000000000001 -ST1 032004 000001 0 0 000000000001 0 000000000001 -ST2 032004 000001 0 0 000000000001 0 000000000001 -ST9 032004 000001 0 0 000000000001 0 000000000001 - - -*032004 MOVE 3,000000(2) -INITIAL -C(AC)=777777 777777 -C(E)=000000 000017 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032004 032004 0 0 200142000000 0 400000000000 -IT1 032004 0 0 0 200142000000 0 400000000000 -AT1 032004 0 0 0 0 0 200142000000 -AT2 032004 0 0 0 000000000001 0 200142000000 -AT3 032004 0 0 0 000000000001 0 000000000001 -AT6 032004 000001 0 0 000000000001 0 000000000001 -FT0 032004 000001 0 0 400000000000 0 000000000001 -FT1A 032004 000001 0 0 400000000000 0 400000000000 -FT9 032005 000001 0 0 400000000000 0 400000000000 -ET0 032005 000001 0 0 400000000000 0 400000000000 -ST1 032005 000001 0 0 400000000000 0 400000000000 -ST2 032005 000001 0 0 400000000000 0 400000000000 -ST9 032005 000001 0 0 400000000000 0 400000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 195 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0390 - -*032005 CAME 3,034465 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032005 032005 0 0 312140034465 0 400000000000 -IT1 032005 0 0 0 312140034465 0 400000000000 -AT3 032005 0 0 0 000000034465 0 312140034465 -AT6 032005 034465 0 0 000000034465 0 312140034465 -FT0 032005 034465 0 0 400000000000 0 312140034465 -FT1A 032005 034465 0 0 400000000000 0 400000000000 -FT2 032005 034465 0 0 0 0 400000000000 -FT2RQ 032005 034465 0 0 400000000000 0 400000000000 -FT3 032005 034465 0 0 400000000000 0 400000000000 -FT9 032006 034465 0 0 400000000000 0 400000000000 -ET0 032007 034465 0 0 0 0 400000000000 -ST1A 032007 034465 0 0 0 0 400000000000 -ST9 032007 034465 0 0 0 0 400000000000 - - -*032007 JUMPA 0,032010 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000032010 -FT3 032007 032010 0 0 000000000017 0 000000032010 -FT9 032010 032010 0 0 000000000017 0 000000032010 -ET0 032010 032010 0 0 000000000017 0 000000032010 -ST1A 032010 032010 0 0 000000000017 0 000000032010 -ST9 032010 032010 0 0 000000000017 0 000000032010 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 196 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0391 - -*032010 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=400000 000000 -FINAL - -C(E)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032010 032010 0 0 402000000003 0 000000000003 -IT1 032010 0 0 0 402000000003 0 000000000003 -AT3 032010 0 0 0 000000000003 0 402000000003 -AT6 032010 000003 0 0 000000000003 0 402000000003 -FT1A 032010 000003 0 0 000000000003 0 000000000003 -FT9 032011 000003 0 0 000000000003 0 000000000003 -ET0 032011 000003 0 0 0 0 000000000003 -ST6 032011 000003 0 0 0 0 000000000003 -ST6A 032011 000003 0 0 0 0 000000000003 -ST9 032011 000003 0 0 0 0 000000000003 - - -*032011 SETOM 0,000001 -INITIAL -C(AC)=000000 000017 -C(E)=400000 000000 -FINAL - -C(E)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032011 032011 0 0 476000000001 0 000000000001 -IT1 032011 0 0 0 476000000001 0 000000000001 -AT3 032011 0 0 0 000000000001 0 476000000001 -AT6 032011 000001 0 0 000000000001 0 476000000001 -FT1A 032011 000001 0 0 000000000001 0 000000000001 -FT9 032012 000001 0 0 000000000001 0 000000000001 -ET0 032012 000001 0 0 777777777777 0 000000000001 -ST6 032012 000001 0 0 777777777777 0 000000000001 -ST6A 032012 000001 0 0 777777777777 0 000000000001 -ST9 032012 000001 0 0 777777777777 0 000000000001 - - -*032012 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032012 032012 0 0 201100000001 0 000000000001 -IT1 032012 0 0 0 201100000001 0 000000000001 -AT3 032012 0 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 197 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0392 - -AT6 032012 000001 0 0 000000000001 0 201100000001 -FT1A 032012 000001 0 0 000000000001 0 000000000001 -FT9 032013 000001 0 0 000000000001 0 000000000001 -ET0 032013 000001 0 0 000000000001 0 000000000001 -ST1 032013 000001 0 0 000000000001 0 000000000001 -ST2 032013 000001 0 0 000000000001 0 000000000001 -ST9 032013 000001 0 0 000000000001 0 000000000001 - - -*032013 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032013 032013 0 0 200142000000 0 777777777777 -IT1 032013 0 0 0 200142000000 0 777777777777 -AT1 032013 0 0 0 0 0 200142000000 -AT2 032013 0 0 0 000000000001 0 200142000000 -AT3 032013 0 0 0 000000000001 0 000000000001 -AT6 032013 000001 0 0 000000000001 0 000000000001 -FT0 032013 000001 0 0 777777777777 0 000000000001 -FT1A 032013 000001 0 0 777777777777 0 777777777777 -FT9 032014 000001 0 0 777777777777 0 777777777777 -ET0 032014 000001 0 0 777777777777 0 777777777777 -ST1 032014 000001 0 0 777777777777 0 777777777777 -ST2 032014 000001 0 0 777777777777 0 777777777777 -ST9 032014 000001 0 0 777777777777 0 777777777777 - - -*032014 CAME 3,034466 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032014 032014 0 0 312140034466 0 777777777777 -IT1 032014 0 0 0 312140034466 0 777777777777 -AT3 032014 0 0 0 000000034466 0 312140034466 -AT6 032014 034466 0 0 000000034466 0 312140034466 -FT0 032014 034466 0 0 777777777777 0 312140034466 -FT1A 032014 034466 0 0 777777777777 0 777777777777 -FT2 032014 034466 0 0 0 0 777777777777 -FT2RQ 032014 034466 0 0 777777777777 0 777777777777 -FT3 032014 034466 0 0 777777777777 0 777777777777 -FT9 032015 034466 0 0 777777777777 0 777777777777 -ET0 032016 034466 0 0 0 0 777777777777 -ST1A 032016 034466 0 0 0 0 777777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 198 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0393 - -ST9 032016 034466 0 0 0 0 777777777777 - - -*032016 JUMPA 0,032017 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032016 032016 0 0 324000032017 0 000000032017 -IT1 032016 0 0 0 324000032017 0 000000032017 -AT3 032016 0 0 0 000000032017 0 324000032017 -AT6 032016 032017 0 0 000000032017 0 324000032017 -FT1A 032016 032017 0 0 000000032017 0 000000032017 -FT2 032016 032017 0 0 0 0 000000032017 -FT2RQ 032016 032017 0 0 000000000017 0 000000032017 -FT3 032016 032017 0 0 000000000017 0 000000032017 -FT9 032017 032017 0 0 000000000017 0 000000032017 -ET0 032017 032017 0 0 000000000017 0 000000032017 -ST1A 032017 032017 0 0 000000000017 0 000000032017 -ST9 032017 032017 0 0 000000000017 0 000000032017 - - -*032017 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 777777 -FINAL - -C(E)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032017 032017 0 0 402000000003 0 000000000003 -IT1 032017 0 0 0 402000000003 0 000000000003 -AT3 032017 0 0 0 000000000003 0 402000000003 -AT6 032017 000003 0 0 000000000003 0 402000000003 -FT1A 032017 000003 0 0 000000000003 0 000000000003 -FT9 032020 000003 0 0 000000000003 0 000000000003 -ET0 032020 000003 0 0 0 0 000000000003 -ST6 032020 000003 0 0 0 0 000000000003 -ST6A 032020 000003 0 0 0 0 000000000003 -ST9 032020 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 199 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0394 - -*032020 HRROI 1,777776 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=777777 777776 - -TIME PC MA SC FE AR MQ BR -IT0 032020 032020 0 0 561040777776 0 000000777776 -IT1 032020 0 0 0 561040777776 0 000000777776 -AT3 032020 0 0 0 000000777776 0 561040777776 -AT6 032020 777776 0 0 000000777776 0 561040777776 -FT1A 032020 777776 0 0 000000777776 0 000000777776 -FT9 032021 777776 0 0 000000777776 0 000000777776 -ET0 032021 777776 0 0 777777777776 0 000000777776 -ST1 032021 777776 0 0 777777777776 0 000000777776 -ST2 032021 777776 0 0 777777777776 0 000000777776 -ST9 032021 777776 0 0 777777777776 0 000000777776 - - -*032021 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032021 032021 0 0 201100000001 0 000000000001 -IT1 032021 0 0 0 201100000001 0 000000000001 -AT3 032021 0 0 0 000000000001 0 201100000001 -AT6 032021 000001 0 0 000000000001 0 201100000001 -FT1A 032021 000001 0 0 000000000001 0 000000000001 -FT9 032022 000001 0 0 000000000001 0 000000000001 -ET0 032022 000001 0 0 000000000001 0 000000000001 -ST1 032022 000001 0 0 000000000001 0 000000000001 -ST2 032022 000001 0 0 000000000001 0 000000000001 -ST9 032022 000001 0 0 000000000001 0 000000000001 - - -*032022 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 777776 - -TIME PC MA SC FE AR MQ BR -IT0 032022 032022 0 0 200142000000 0 777777777776 -IT1 032022 0 0 0 200142000000 0 777777777776 -AT1 032022 0 0 0 0 0 200142000000 -AT2 032022 0 0 0 000000000001 0 200142000000 -AT3 032022 0 0 0 000000000001 0 000000000001 -AT6 032022 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 200 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0395 - -FT0 032022 000001 0 0 777777777776 0 000000000001 -FT1A 032022 000001 0 0 777777777776 0 777777777776 -FT9 032023 000001 0 0 777777777776 0 777777777776 -ET0 032023 000001 0 0 777777777776 0 777777777776 -ST1 032023 000001 0 0 777777777776 0 777777777776 -ST2 032023 000001 0 0 777777777776 0 777777777776 -ST9 032023 000001 0 0 777777777776 0 777777777776 - - -*032023 CAME 3,034467 -INITIAL -C(AC)=777777 777776 -C(E)=777777 777776 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032023 032023 0 0 312140034467 0 777777777776 -IT1 032023 0 0 0 312140034467 0 777777777776 -AT3 032023 0 0 0 000000034467 0 312140034467 -AT6 032023 034467 0 0 000000034467 0 312140034467 -FT0 032023 034467 0 0 777777777776 0 312140034467 -FT1A 032023 034467 0 0 777777777776 0 777777777776 -FT2 032023 034467 0 0 0 0 777777777776 -FT2RQ 032023 034467 0 0 777777777776 0 777777777776 -FT3 032023 034467 0 0 777777777776 0 777777777776 -FT9 032024 034467 0 0 777777777776 0 777777777776 -ET0 032025 034467 0 0 0 0 777777777776 -ST1A 032025 034467 0 0 0 0 777777777776 -ST9 032025 034467 0 0 0 0 777777777776 - - -*032025 JUMPA 0,032026 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032025 032025 0 0 324000032026 0 000000032026 -IT1 032025 0 0 0 324000032026 0 000000032026 -AT3 032025 0 0 0 000000032026 0 324000032026 -AT6 032025 032026 0 0 000000032026 0 324000032026 -FT1A 032025 032026 0 0 000000032026 0 000000032026 -FT2 032025 032026 0 0 0 0 000000032026 -FT2RQ 032025 032026 0 0 000000000017 0 000000032026 -FT3 032025 032026 0 0 000000000017 0 000000032026 -FT9 032026 032026 0 0 000000000017 0 000000032026 -ET0 032026 032026 0 0 000000000017 0 000000032026 -ST1A 032026 032026 0 0 000000000017 0 000000032026 -ST9 032026 032026 0 0 000000000017 0 000000032026 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 201 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0396 - - -*032026 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 777776 -FINAL - -C(E)=777777 777776 - -TIME PC MA SC FE AR MQ BR -IT0 032026 032026 0 0 402000000003 0 000000000003 -IT1 032026 0 0 0 402000000003 0 000000000003 -AT3 032026 0 0 0 000000000003 0 402000000003 -AT6 032026 000003 0 0 000000000003 0 402000000003 -FT1A 032026 000003 0 0 000000000003 0 000000000003 -FT9 032027 000003 0 0 000000000003 0 000000000003 -ET0 032027 000003 0 0 0 0 000000000003 -ST6 032027 000003 0 0 0 0 000000000003 -ST6A 032027 000003 0 0 0 0 000000000003 -ST9 032027 000003 0 0 0 0 000000000003 - - -*032027 HRROI 1,777775 -INITIAL -C(AC)=777777 777776 -FINAL -C(AC)=777777 777775 - -TIME PC MA SC FE AR MQ BR -IT0 032027 032027 0 0 561040777775 0 000000777775 -IT1 032027 0 0 0 561040777775 0 000000777775 -AT3 032027 0 0 0 000000777775 0 561040777775 -AT6 032027 777775 0 0 000000777775 0 561040777775 -FT1A 032027 777775 0 0 000000777775 0 000000777775 -FT9 032030 777775 0 0 000000777775 0 000000777775 -ET0 032030 777775 0 0 777777777775 0 000000777775 -ST1 032030 777775 0 0 777777777775 0 000000777775 -ST2 032030 777775 0 0 777777777775 0 000000777775 -ST9 032030 777775 0 0 777777777775 0 000000777775 - - -*032030 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032030 032030 0 0 201100000001 0 000000000001 -IT1 032030 0 0 0 201100000001 0 000000000001 -AT3 032030 0 0 0 000000000001 0 201100000001 -AT6 032030 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 202 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0397 - -FT1A 032030 000001 0 0 000000000001 0 000000000001 -FT9 032031 000001 0 0 000000000001 0 000000000001 -ET0 032031 000001 0 0 000000000001 0 000000000001 -ST1 032031 000001 0 0 000000000001 0 000000000001 -ST2 032031 000001 0 0 000000000001 0 000000000001 -ST9 032031 000001 0 0 000000000001 0 000000000001 - - -*032031 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 777775 - -TIME PC MA SC FE AR MQ BR -IT0 032031 032031 0 0 200142000000 0 777777777775 -IT1 032031 0 0 0 200142000000 0 777777777775 -AT1 032031 0 0 0 0 0 200142000000 -AT2 032031 0 0 0 000000000001 0 200142000000 -AT3 032031 0 0 0 000000000001 0 000000000001 -AT6 032031 000001 0 0 000000000001 0 000000000001 -FT0 032031 000001 0 0 777777777775 0 000000000001 -FT1A 032031 000001 0 0 777777777775 0 777777777775 -FT9 032032 000001 0 0 777777777775 0 777777777775 -ET0 032032 000001 0 0 777777777775 0 777777777775 -ST1 032032 000001 0 0 777777777775 0 777777777775 -ST2 032032 000001 0 0 777777777775 0 777777777775 -ST9 032032 000001 0 0 777777777775 0 777777777775 - - -*032032 CAME 3,034470 -INITIAL -C(AC)=777777 777775 -C(E)=777777 777775 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032032 032032 0 0 312140034470 0 777777777775 -IT1 032032 0 0 0 312140034470 0 777777777775 -AT3 032032 0 0 0 000000034470 0 312140034470 -AT6 032032 034470 0 0 000000034470 0 312140034470 -FT0 032032 034470 0 0 777777777775 0 312140034470 -FT1A 032032 034470 0 0 777777777775 0 777777777775 -FT2 032032 034470 0 0 0 0 777777777775 -FT2RQ 032032 034470 0 0 777777777775 0 777777777775 -FT3 032032 034470 0 0 777777777775 0 777777777775 -FT9 032033 034470 0 0 777777777775 0 777777777775 -ET0 032034 034470 0 0 0 0 777777777775 -ST1A 032034 034470 0 0 0 0 777777777775 -ST9 032034 034470 0 0 0 0 777777777775 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 203 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0398 - - - -*032034 JUMPA 0,032035 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000032035 -FT3 032034 032035 0 0 000000000017 0 000000032035 -FT9 032035 032035 0 0 000000000017 0 000000032035 -ET0 032035 032035 0 0 000000000017 0 000000032035 -ST1A 032035 032035 0 0 000000000017 0 000000032035 -ST9 032035 032035 0 0 000000000017 0 000000032035 - - -*032035 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 777775 -FINAL - -C(E)=777777 777775 - -TIME PC MA SC FE AR MQ BR -IT0 032035 032035 0 0 402000000003 0 000000000003 -IT1 032035 0 0 0 402000000003 0 000000000003 -AT3 032035 0 0 0 000000000003 0 402000000003 -AT6 032035 000003 0 0 000000000003 0 402000000003 -FT1A 032035 000003 0 0 000000000003 0 000000000003 -FT9 032036 000003 0 0 000000000003 0 000000000003 -ET0 032036 000003 0 0 0 0 000000000003 -ST6 032036 000003 0 0 0 0 000000000003 -ST6A 032036 000003 0 0 0 0 000000000003 -ST9 032036 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 204 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0399 - -*032036 HRROI 1,777773 -INITIAL -C(AC)=777777 777775 -FINAL -C(AC)=777777 777773 - -TIME PC MA SC FE AR MQ BR -IT0 032036 032036 0 0 561040777773 0 000000777773 -IT1 032036 0 0 0 561040777773 0 000000777773 -AT3 032036 0 0 0 000000777773 0 561040777773 -AT6 032036 777773 0 0 000000777773 0 561040777773 -FT1A 032036 777773 0 0 000000777773 0 000000777773 -FT9 032037 777773 0 0 000000777773 0 000000777773 -ET0 032037 777773 0 0 777777777773 0 000000777773 -ST1 032037 777773 0 0 777777777773 0 000000777773 -ST2 032037 777773 0 0 777777777773 0 000000777773 -ST9 032037 777773 0 0 777777777773 0 000000777773 - - -*032037 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032037 032037 0 0 201100000001 0 000000000001 -IT1 032037 0 0 0 201100000001 0 000000000001 -AT3 032037 0 0 0 000000000001 0 201100000001 -AT6 032037 000001 0 0 000000000001 0 201100000001 -FT1A 032037 000001 0 0 000000000001 0 000000000001 -FT9 032040 000001 0 0 000000000001 0 000000000001 -ET0 032040 000001 0 0 000000000001 0 000000000001 -ST1 032040 000001 0 0 000000000001 0 000000000001 -ST2 032040 000001 0 0 000000000001 0 000000000001 -ST9 032040 000001 0 0 000000000001 0 000000000001 - - -*032040 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 777773 - -TIME PC MA SC FE AR MQ BR -IT0 032040 032040 0 0 200142000000 0 777777777773 -IT1 032040 0 0 0 200142000000 0 777777777773 -AT1 032040 0 0 0 0 0 200142000000 -AT2 032040 0 0 0 000000000001 0 200142000000 -AT3 032040 0 0 0 000000000001 0 000000000001 -AT6 032040 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 205 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0400 - -FT0 032040 000001 0 0 777777777773 0 000000000001 -FT1A 032040 000001 0 0 777777777773 0 777777777773 -FT9 032041 000001 0 0 777777777773 0 777777777773 -ET0 032041 000001 0 0 777777777773 0 777777777773 -ST1 032041 000001 0 0 777777777773 0 777777777773 -ST2 032041 000001 0 0 777777777773 0 777777777773 -ST9 032041 000001 0 0 777777777773 0 777777777773 - - -*032041 CAME 3,034471 -INITIAL -C(AC)=777777 777773 -C(E)=777777 777773 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032041 032041 0 0 312140034471 0 777777777773 -IT1 032041 0 0 0 312140034471 0 777777777773 -AT3 032041 0 0 0 000000034471 0 312140034471 -AT6 032041 034471 0 0 000000034471 0 312140034471 -FT0 032041 034471 0 0 777777777773 0 312140034471 -FT1A 032041 034471 0 0 777777777773 0 777777777773 -FT2 032041 034471 0 0 0 0 777777777773 -FT2RQ 032041 034471 0 0 777777777773 0 777777777773 -FT3 032041 034471 0 0 777777777773 0 777777777773 -FT9 032042 034471 0 0 777777777773 0 777777777773 -ET0 032043 034471 0 0 0 0 777777777773 -ST1A 032043 034471 0 0 0 0 777777777773 -ST9 032043 034471 0 0 0 0 777777777773 - - -*032043 JUMPA 0,032044 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032043 032043 0 0 324000032044 0 000000032044 -IT1 032043 0 0 0 324000032044 0 000000032044 -AT3 032043 0 0 0 000000032044 0 324000032044 -AT6 032043 032044 0 0 000000032044 0 324000032044 -FT1A 032043 032044 0 0 000000032044 0 000000032044 -FT2 032043 032044 0 0 0 0 000000032044 -FT2RQ 032043 032044 0 0 000000000017 0 000000032044 -FT3 032043 032044 0 0 000000000017 0 000000032044 -FT9 032044 032044 0 0 000000000017 0 000000032044 -ET0 032044 032044 0 0 000000000017 0 000000032044 -ST1A 032044 032044 0 0 000000000017 0 000000032044 -ST9 032044 032044 0 0 000000000017 0 000000032044 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 206 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0401 - - -*032044 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 777773 -FINAL - -C(E)=777777 777773 - -TIME PC MA SC FE AR MQ BR -IT0 032044 032044 0 0 402000000003 0 000000000003 -IT1 032044 0 0 0 402000000003 0 000000000003 -AT3 032044 0 0 0 000000000003 0 402000000003 -AT6 032044 000003 0 0 000000000003 0 402000000003 -FT1A 032044 000003 0 0 000000000003 0 000000000003 -FT9 032045 000003 0 0 000000000003 0 000000000003 -ET0 032045 000003 0 0 0 0 000000000003 -ST6 032045 000003 0 0 0 0 000000000003 -ST6A 032045 000003 0 0 0 0 000000000003 -ST9 032045 000003 0 0 0 0 000000000003 - - -*032045 HRROI 1,777767 -INITIAL -C(AC)=777777 777773 -FINAL -C(AC)=777777 777767 - -TIME PC MA SC FE AR MQ BR -IT0 032045 032045 0 0 561040777767 0 000000777767 -IT1 032045 0 0 0 561040777767 0 000000777767 -AT3 032045 0 0 0 000000777767 0 561040777767 -AT6 032045 777767 0 0 000000777767 0 561040777767 -FT1A 032045 777767 0 0 000000777767 0 000000777767 -FT9 032046 777767 0 0 000000777767 0 000000777767 -ET0 032046 777767 0 0 777777777767 0 000000777767 -ST1 032046 777767 0 0 777777777767 0 000000777767 -ST2 032046 777767 0 0 777777777767 0 000000777767 -ST9 032046 777767 0 0 777777777767 0 000000777767 - - -*032046 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032046 032046 0 0 201100000001 0 000000000001 -IT1 032046 0 0 0 201100000001 0 000000000001 -AT3 032046 0 0 0 000000000001 0 201100000001 -AT6 032046 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 207 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0402 - -FT1A 032046 000001 0 0 000000000001 0 000000000001 -FT9 032047 000001 0 0 000000000001 0 000000000001 -ET0 032047 000001 0 0 000000000001 0 000000000001 -ST1 032047 000001 0 0 000000000001 0 000000000001 -ST2 032047 000001 0 0 000000000001 0 000000000001 -ST9 032047 000001 0 0 000000000001 0 000000000001 - - -*032047 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 777767 - -TIME PC MA SC FE AR MQ BR -IT0 032047 032047 0 0 200142000000 0 777777777767 -IT1 032047 0 0 0 200142000000 0 777777777767 -AT1 032047 0 0 0 0 0 200142000000 -AT2 032047 0 0 0 000000000001 0 200142000000 -AT3 032047 0 0 0 000000000001 0 000000000001 -AT6 032047 000001 0 0 000000000001 0 000000000001 -FT0 032047 000001 0 0 777777777767 0 000000000001 -FT1A 032047 000001 0 0 777777777767 0 777777777767 -FT9 032050 000001 0 0 777777777767 0 777777777767 -ET0 032050 000001 0 0 777777777767 0 777777777767 -ST1 032050 000001 0 0 777777777767 0 777777777767 -ST2 032050 000001 0 0 777777777767 0 777777777767 -ST9 032050 000001 0 0 777777777767 0 777777777767 - - -*032050 CAME 3,034472 -INITIAL -C(AC)=777777 777767 -C(E)=777777 777767 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032050 032050 0 0 312140034472 0 777777777767 -IT1 032050 0 0 0 312140034472 0 777777777767 -AT3 032050 0 0 0 000000034472 0 312140034472 -AT6 032050 034472 0 0 000000034472 0 312140034472 -FT0 032050 034472 0 0 777777777767 0 312140034472 -FT1A 032050 034472 0 0 777777777767 0 777777777767 -FT2 032050 034472 0 0 0 0 777777777767 -FT2RQ 032050 034472 0 0 777777777767 0 777777777767 -FT3 032050 034472 0 0 777777777767 0 777777777767 -FT9 032051 034472 0 0 777777777767 0 777777777767 -ET0 032052 034472 0 0 0 0 777777777767 -ST1A 032052 034472 0 0 0 0 777777777767 -ST9 032052 034472 0 0 0 0 777777777767 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 208 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0403 - - - -*032052 JUMPA 0,032053 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032052 032052 0 0 324000032053 0 000000032053 -IT1 032052 0 0 0 324000032053 0 000000032053 -AT3 032052 0 0 0 000000032053 0 324000032053 -AT6 032052 032053 0 0 000000032053 0 324000032053 -FT1A 032052 032053 0 0 000000032053 0 000000032053 -FT2 032052 032053 0 0 0 0 000000032053 -FT2RQ 032052 032053 0 0 000000000017 0 000000032053 -FT3 032052 032053 0 0 000000000017 0 000000032053 -FT9 032053 032053 0 0 000000000017 0 000000032053 -ET0 032053 032053 0 0 000000000017 0 000000032053 -ST1A 032053 032053 0 0 000000000017 0 000000032053 -ST9 032053 032053 0 0 000000000017 0 000000032053 - - -*032053 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 777767 -FINAL - -C(E)=777777 777767 - -TIME PC MA SC FE AR MQ BR -IT0 032053 032053 0 0 402000000003 0 000000000003 -IT1 032053 0 0 0 402000000003 0 000000000003 -AT3 032053 0 0 0 000000000003 0 402000000003 -AT6 032053 000003 0 0 000000000003 0 402000000003 -FT1A 032053 000003 0 0 000000000003 0 000000000003 -FT9 032054 000003 0 0 000000000003 0 000000000003 -ET0 032054 000003 0 0 0 0 000000000003 -ST6 032054 000003 0 0 0 0 000000000003 -ST6A 032054 000003 0 0 0 0 000000000003 -ST9 032054 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 209 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0404 - -*032054 HRROI 1,777757 -INITIAL -C(AC)=777777 777767 -FINAL -C(AC)=777777 777757 - -TIME PC MA SC FE AR MQ BR -IT0 032054 032054 0 0 561040777757 0 000000777757 -IT1 032054 0 0 0 561040777757 0 000000777757 -AT3 032054 0 0 0 000000777757 0 561040777757 -AT6 032054 777757 0 0 000000777757 0 561040777757 -FT1A 032054 777757 0 0 000000777757 0 000000777757 -FT9 032055 777757 0 0 000000777757 0 000000777757 -ET0 032055 777757 0 0 777777777757 0 000000777757 -ST1 032055 777757 0 0 777777777757 0 000000777757 -ST2 032055 777757 0 0 777777777757 0 000000777757 -ST9 032055 777757 0 0 777777777757 0 000000777757 - - -*032055 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032055 032055 0 0 201100000001 0 000000000001 -IT1 032055 0 0 0 201100000001 0 000000000001 -AT3 032055 0 0 0 000000000001 0 201100000001 -AT6 032055 000001 0 0 000000000001 0 201100000001 -FT1A 032055 000001 0 0 000000000001 0 000000000001 -FT9 032056 000001 0 0 000000000001 0 000000000001 -ET0 032056 000001 0 0 000000000001 0 000000000001 -ST1 032056 000001 0 0 000000000001 0 000000000001 -ST2 032056 000001 0 0 000000000001 0 000000000001 -ST9 032056 000001 0 0 000000000001 0 000000000001 - - -*032056 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 777757 - -TIME PC MA SC FE AR MQ BR -IT0 032056 032056 0 0 200142000000 0 777777777757 -IT1 032056 0 0 0 200142000000 0 777777777757 -AT1 032056 0 0 0 0 0 200142000000 -AT2 032056 0 0 0 000000000001 0 200142000000 -AT3 032056 0 0 0 000000000001 0 000000000001 -AT6 032056 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 210 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0405 - -FT0 032056 000001 0 0 777777777757 0 000000000001 -FT1A 032056 000001 0 0 777777777757 0 777777777757 -FT9 032057 000001 0 0 777777777757 0 777777777757 -ET0 032057 000001 0 0 777777777757 0 777777777757 -ST1 032057 000001 0 0 777777777757 0 777777777757 -ST2 032057 000001 0 0 777777777757 0 777777777757 -ST9 032057 000001 0 0 777777777757 0 777777777757 - - -*032057 CAME 3,034473 -INITIAL -C(AC)=777777 777757 -C(E)=777777 777757 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032057 032057 0 0 312140034473 0 777777777757 -IT1 032057 0 0 0 312140034473 0 777777777757 -AT3 032057 0 0 0 000000034473 0 312140034473 -AT6 032057 034473 0 0 000000034473 0 312140034473 -FT0 032057 034473 0 0 777777777757 0 312140034473 -FT1A 032057 034473 0 0 777777777757 0 777777777757 -FT2 032057 034473 0 0 0 0 777777777757 -FT2RQ 032057 034473 0 0 777777777757 0 777777777757 -FT3 032057 034473 0 0 777777777757 0 777777777757 -FT9 032060 034473 0 0 777777777757 0 777777777757 -ET0 032061 034473 0 0 0 0 777777777757 -ST1A 032061 034473 0 0 0 0 777777777757 -ST9 032061 034473 0 0 0 0 777777777757 - - -*032061 JUMPA 0,032062 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032061 032061 0 0 324000032062 0 000000032062 -IT1 032061 0 0 0 324000032062 0 000000032062 -AT3 032061 0 0 0 000000032062 0 324000032062 -AT6 032061 032062 0 0 000000032062 0 324000032062 -FT1A 032061 032062 0 0 000000032062 0 000000032062 -FT2 032061 032062 0 0 0 0 000000032062 -FT2RQ 032061 032062 0 0 000000000017 0 000000032062 -FT3 032061 032062 0 0 000000000017 0 000000032062 -FT9 032062 032062 0 0 000000000017 0 000000032062 -ET0 032062 032062 0 0 000000000017 0 000000032062 -ST1A 032062 032062 0 0 000000000017 0 000000032062 -ST9 032062 032062 0 0 000000000017 0 000000032062 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 211 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0406 - - -*032062 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 777757 -FINAL - -C(E)=777777 777757 - -TIME PC MA SC FE AR MQ BR -IT0 032062 032062 0 0 402000000003 0 000000000003 -IT1 032062 0 0 0 402000000003 0 000000000003 -AT3 032062 0 0 0 000000000003 0 402000000003 -AT6 032062 000003 0 0 000000000003 0 402000000003 -FT1A 032062 000003 0 0 000000000003 0 000000000003 -FT9 032063 000003 0 0 000000000003 0 000000000003 -ET0 032063 000003 0 0 0 0 000000000003 -ST6 032063 000003 0 0 0 0 000000000003 -ST6A 032063 000003 0 0 0 0 000000000003 -ST9 032063 000003 0 0 0 0 000000000003 - - -*032063 HRROI 1,777737 -INITIAL -C(AC)=777777 777757 -FINAL -C(AC)=777777 777737 - -TIME PC MA SC FE AR MQ BR -IT0 032063 032063 0 0 561040777737 0 000000777737 -IT1 032063 0 0 0 561040777737 0 000000777737 -AT3 032063 0 0 0 000000777737 0 561040777737 -AT6 032063 777737 0 0 000000777737 0 561040777737 -FT1A 032063 777737 0 0 000000777737 0 000000777737 -FT9 032064 777737 0 0 000000777737 0 000000777737 -ET0 032064 777737 0 0 777777777737 0 000000777737 -ST1 032064 777737 0 0 777777777737 0 000000777737 -ST2 032064 777737 0 0 777777777737 0 000000777737 -ST9 032064 777737 0 0 777777777737 0 000000777737 - - -*032064 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032064 032064 0 0 201100000001 0 000000000001 -IT1 032064 0 0 0 201100000001 0 000000000001 -AT3 032064 0 0 0 000000000001 0 201100000001 -AT6 032064 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 212 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0407 - -FT1A 032064 000001 0 0 000000000001 0 000000000001 -FT9 032065 000001 0 0 000000000001 0 000000000001 -ET0 032065 000001 0 0 000000000001 0 000000000001 -ST1 032065 000001 0 0 000000000001 0 000000000001 -ST2 032065 000001 0 0 000000000001 0 000000000001 -ST9 032065 000001 0 0 000000000001 0 000000000001 - - -*032065 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 777737 - -TIME PC MA SC FE AR MQ BR -IT0 032065 032065 0 0 200142000000 0 777777777737 -IT1 032065 0 0 0 200142000000 0 777777777737 -AT1 032065 0 0 0 0 0 200142000000 -AT2 032065 0 0 0 000000000001 0 200142000000 -AT3 032065 0 0 0 000000000001 0 000000000001 -AT6 032065 000001 0 0 000000000001 0 000000000001 -FT0 032065 000001 0 0 777777777737 0 000000000001 -FT1A 032065 000001 0 0 777777777737 0 777777777737 -FT9 032066 000001 0 0 777777777737 0 777777777737 -ET0 032066 000001 0 0 777777777737 0 777777777737 -ST1 032066 000001 0 0 777777777737 0 777777777737 -ST2 032066 000001 0 0 777777777737 0 777777777737 -ST9 032066 000001 0 0 777777777737 0 777777777737 - - -*032066 CAME 3,034474 -INITIAL -C(AC)=777777 777737 -C(E)=777777 777737 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032066 032066 0 0 312140034474 0 777777777737 -IT1 032066 0 0 0 312140034474 0 777777777737 -AT3 032066 0 0 0 000000034474 0 312140034474 -AT6 032066 034474 0 0 000000034474 0 312140034474 -FT0 032066 034474 0 0 777777777737 0 312140034474 -FT1A 032066 034474 0 0 777777777737 0 777777777737 -FT2 032066 034474 0 0 0 0 777777777737 -FT2RQ 032066 034474 0 0 777777777737 0 777777777737 -FT3 032066 034474 0 0 777777777737 0 777777777737 -FT9 032067 034474 0 0 777777777737 0 777777777737 -ET0 032070 034474 0 0 0 0 777777777737 -ST1A 032070 034474 0 0 0 0 777777777737 -ST9 032070 034474 0 0 0 0 777777777737 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 213 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0408 - - - -*032070 JUMPA 0,032071 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032070 032070 0 0 324000032071 0 000000032071 -IT1 032070 0 0 0 324000032071 0 000000032071 -AT3 032070 0 0 0 000000032071 0 324000032071 -AT6 032070 032071 0 0 000000032071 0 324000032071 -FT1A 032070 032071 0 0 000000032071 0 000000032071 -FT2 032070 032071 0 0 0 0 000000032071 -FT2RQ 032070 032071 0 0 000000000017 0 000000032071 -FT3 032070 032071 0 0 000000000017 0 000000032071 -FT9 032071 032071 0 0 000000000017 0 000000032071 -ET0 032071 032071 0 0 000000000017 0 000000032071 -ST1A 032071 032071 0 0 000000000017 0 000000032071 -ST9 032071 032071 0 0 000000000017 0 000000032071 - - -*032071 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 777737 -FINAL - -C(E)=777777 777737 - -TIME PC MA SC FE AR MQ BR -IT0 032071 032071 0 0 402000000003 0 000000000003 -IT1 032071 0 0 0 402000000003 0 000000000003 -AT3 032071 0 0 0 000000000003 0 402000000003 -AT6 032071 000003 0 0 000000000003 0 402000000003 -FT1A 032071 000003 0 0 000000000003 0 000000000003 -FT9 032072 000003 0 0 000000000003 0 000000000003 -ET0 032072 000003 0 0 0 0 000000000003 -ST6 032072 000003 0 0 0 0 000000000003 -ST6A 032072 000003 0 0 0 0 000000000003 -ST9 032072 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 214 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0409 - -*032072 HRROI 1,777677 -INITIAL -C(AC)=777777 777737 -FINAL -C(AC)=777777 777677 - -TIME PC MA SC FE AR MQ BR -IT0 032072 032072 0 0 561040777677 0 000000777677 -IT1 032072 0 0 0 561040777677 0 000000777677 -AT3 032072 0 0 0 000000777677 0 561040777677 -AT6 032072 777677 0 0 000000777677 0 561040777677 -FT1A 032072 777677 0 0 000000777677 0 000000777677 -FT9 032073 777677 0 0 000000777677 0 000000777677 -ET0 032073 777677 0 0 777777777677 0 000000777677 -ST1 032073 777677 0 0 777777777677 0 000000777677 -ST2 032073 777677 0 0 777777777677 0 000000777677 -ST9 032073 777677 0 0 777777777677 0 000000777677 - - -*032073 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032073 032073 0 0 201100000001 0 000000000001 -IT1 032073 0 0 0 201100000001 0 000000000001 -AT3 032073 0 0 0 000000000001 0 201100000001 -AT6 032073 000001 0 0 000000000001 0 201100000001 -FT1A 032073 000001 0 0 000000000001 0 000000000001 -FT9 032074 000001 0 0 000000000001 0 000000000001 -ET0 032074 000001 0 0 000000000001 0 000000000001 -ST1 032074 000001 0 0 000000000001 0 000000000001 -ST2 032074 000001 0 0 000000000001 0 000000000001 -ST9 032074 000001 0 0 000000000001 0 000000000001 - - -*032074 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 777677 - -TIME PC MA SC FE AR MQ BR -IT0 032074 032074 0 0 200142000000 0 777777777677 -IT1 032074 0 0 0 200142000000 0 777777777677 -AT1 032074 0 0 0 0 0 200142000000 -AT2 032074 0 0 0 000000000001 0 200142000000 -AT3 032074 0 0 0 000000000001 0 000000000001 -AT6 032074 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 215 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0410 - -FT0 032074 000001 0 0 777777777677 0 000000000001 -FT1A 032074 000001 0 0 777777777677 0 777777777677 -FT9 032075 000001 0 0 777777777677 0 777777777677 -ET0 032075 000001 0 0 777777777677 0 777777777677 -ST1 032075 000001 0 0 777777777677 0 777777777677 -ST2 032075 000001 0 0 777777777677 0 777777777677 -ST9 032075 000001 0 0 777777777677 0 777777777677 - - -*032075 CAME 3,034475 -INITIAL -C(AC)=777777 777677 -C(E)=777777 777677 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032075 032075 0 0 312140034475 0 777777777677 -IT1 032075 0 0 0 312140034475 0 777777777677 -AT3 032075 0 0 0 000000034475 0 312140034475 -AT6 032075 034475 0 0 000000034475 0 312140034475 -FT0 032075 034475 0 0 777777777677 0 312140034475 -FT1A 032075 034475 0 0 777777777677 0 777777777677 -FT2 032075 034475 0 0 0 0 777777777677 -FT2RQ 032075 034475 0 0 777777777677 0 777777777677 -FT3 032075 034475 0 0 777777777677 0 777777777677 -FT9 032076 034475 0 0 777777777677 0 777777777677 -ET0 032077 034475 0 0 0 0 777777777677 -ST1A 032077 034475 0 0 0 0 777777777677 -ST9 032077 034475 0 0 0 0 777777777677 - - -*032077 JUMPA 0,032100 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032077 032077 0 0 324000032100 0 000000032100 -IT1 032077 0 0 0 324000032100 0 000000032100 -AT3 032077 0 0 0 000000032100 0 324000032100 -AT6 032077 0 0 0 000000032100 0 324000032100 -FT1A 032077 0 0 0 000000032100 0 000000032100 -FT2 032077 0 0 0 0 0 000000032100 -FT2RQ 032077 0 0 0 000000000017 0 000000032100 -FT3 032077 0 0 0 000000000017 0 000000032100 -FT9 0 0 0 0 000000000017 0 000000032100 -ET0 0 0 0 0 000000000017 0 000000032100 -ST1A 0 0 0 0 000000000017 0 000000032100 -ST9 0 0 0 0 000000000017 0 000000032100 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 216 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0411 - - -*032100 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 777677 -FINAL - -C(E)=777777 777677 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 402000000003 0 000000000003 -IT1 0 0 0 0 402000000003 0 000000000003 -AT3 0 0 0 0 000000000003 0 402000000003 -AT6 0 000003 0 0 000000000003 0 402000000003 -FT1A 0 000003 0 0 000000000003 0 000000000003 -FT9 032101 000003 0 0 000000000003 0 000000000003 -ET0 032101 000003 0 0 0 0 000000000003 -ST6 032101 000003 0 0 0 0 000000000003 -ST6A 032101 000003 0 0 0 0 000000000003 -ST9 032101 000003 0 0 0 0 000000000003 - - -*032101 HRROI 1,777577 -INITIAL -C(AC)=777777 777677 -FINAL -C(AC)=777777 777577 - -TIME PC MA SC FE AR MQ BR -IT0 032101 032101 0 0 561040777577 0 000000777577 -IT1 032101 0 0 0 561040777577 0 000000777577 -AT3 032101 0 0 0 000000777577 0 561040777577 -AT6 032101 777577 0 0 000000777577 0 561040777577 -FT1A 032101 777577 0 0 000000777577 0 000000777577 -FT9 032102 777577 0 0 000000777577 0 000000777577 -ET0 032102 777577 0 0 777777777577 0 000000777577 -ST1 032102 777577 0 0 777777777577 0 000000777577 -ST2 032102 777577 0 0 777777777577 0 000000777577 -ST9 032102 777577 0 0 777777777577 0 000000777577 - - -*032102 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032102 032102 0 0 201100000001 0 000000000001 -IT1 032102 0 0 0 201100000001 0 000000000001 -AT3 032102 0 0 0 000000000001 0 201100000001 -AT6 032102 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 217 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0412 - -FT1A 032102 000001 0 0 000000000001 0 000000000001 -FT9 032103 000001 0 0 000000000001 0 000000000001 -ET0 032103 000001 0 0 000000000001 0 000000000001 -ST1 032103 000001 0 0 000000000001 0 000000000001 -ST2 032103 000001 0 0 000000000001 0 000000000001 -ST9 032103 000001 0 0 000000000001 0 000000000001 - - -*032103 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 777577 - -TIME PC MA SC FE AR MQ BR -IT0 032103 032103 0 0 200142000000 0 777777777577 -IT1 032103 0 0 0 200142000000 0 777777777577 -AT1 032103 0 0 0 0 0 200142000000 -AT2 032103 0 0 0 000000000001 0 200142000000 -AT3 032103 0 0 0 000000000001 0 000000000001 -AT6 032103 000001 0 0 000000000001 0 000000000001 -FT0 032103 000001 0 0 777777777577 0 000000000001 -FT1A 032103 000001 0 0 777777777577 0 777777777577 -FT9 032104 000001 0 0 777777777577 0 777777777577 -ET0 032104 000001 0 0 777777777577 0 777777777577 -ST1 032104 000001 0 0 777777777577 0 777777777577 -ST2 032104 000001 0 0 777777777577 0 777777777577 -ST9 032104 000001 0 0 777777777577 0 777777777577 - - -*032104 CAME 3,034476 -INITIAL -C(AC)=777777 777577 -C(E)=777777 777577 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032104 032104 0 0 312140034476 0 777777777577 -IT1 032104 0 0 0 312140034476 0 777777777577 -AT3 032104 0 0 0 000000034476 0 312140034476 -AT6 032104 034476 0 0 000000034476 0 312140034476 -FT0 032104 034476 0 0 777777777577 0 312140034476 -FT1A 032104 034476 0 0 777777777577 0 777777777577 -FT2 032104 034476 0 0 0 0 777777777577 -FT2RQ 032104 034476 0 0 777777777577 0 777777777577 -FT3 032104 034476 0 0 777777777577 0 777777777577 -FT9 032105 034476 0 0 777777777577 0 777777777577 -ET0 032106 034476 0 0 0 0 777777777577 -ST1A 032106 034476 0 0 0 0 777777777577 -ST9 032106 034476 0 0 0 0 777777777577 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 218 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0413 - - - -*032106 JUMPA 0,032107 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000032107 -FT3 032106 032107 0 0 000000000017 0 000000032107 -FT9 032107 032107 0 0 000000000017 0 000000032107 -ET0 032107 032107 0 0 000000000017 0 000000032107 -ST1A 032107 032107 0 0 000000000017 0 000000032107 -ST9 032107 032107 0 0 000000000017 0 000000032107 - - -*032107 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 777577 -FINAL - -C(E)=777777 777577 - -TIME PC MA SC FE AR MQ BR -IT0 032107 032107 0 0 402000000003 0 000000000003 -IT1 032107 0 0 0 402000000003 0 000000000003 -AT3 032107 0 0 0 000000000003 0 402000000003 -AT6 032107 000003 0 0 000000000003 0 402000000003 -FT1A 032107 000003 0 0 000000000003 0 000000000003 -FT9 032110 000003 0 0 000000000003 0 000000000003 -ET0 032110 000003 0 0 0 0 000000000003 -ST6 032110 000003 0 0 0 0 000000000003 -ST6A 032110 000003 0 0 0 0 000000000003 -ST9 032110 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 219 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0414 - -*032110 HRROI 1,777377 -INITIAL -C(AC)=777777 777577 -FINAL -C(AC)=777777 777377 - -TIME PC MA SC FE AR MQ BR -IT0 032110 032110 0 0 561040777377 0 000000777377 -IT1 032110 0 0 0 561040777377 0 000000777377 -AT3 032110 0 0 0 000000777377 0 561040777377 -AT6 032110 777377 0 0 000000777377 0 561040777377 -FT1A 032110 777377 0 0 000000777377 0 000000777377 -FT9 032111 777377 0 0 000000777377 0 000000777377 -ET0 032111 777377 0 0 777777777377 0 000000777377 -ST1 032111 777377 0 0 777777777377 0 000000777377 -ST2 032111 777377 0 0 777777777377 0 000000777377 -ST9 032111 777377 0 0 777777777377 0 000000777377 - - -*032111 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032111 032111 0 0 201100000001 0 000000000001 -IT1 032111 0 0 0 201100000001 0 000000000001 -AT3 032111 0 0 0 000000000001 0 201100000001 -AT6 032111 000001 0 0 000000000001 0 201100000001 -FT1A 032111 000001 0 0 000000000001 0 000000000001 -FT9 032112 000001 0 0 000000000001 0 000000000001 -ET0 032112 000001 0 0 000000000001 0 000000000001 -ST1 032112 000001 0 0 000000000001 0 000000000001 -ST2 032112 000001 0 0 000000000001 0 000000000001 -ST9 032112 000001 0 0 000000000001 0 000000000001 - - -*032112 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 777377 - -TIME PC MA SC FE AR MQ BR -IT0 032112 032112 0 0 200142000000 0 777777777377 -IT1 032112 0 0 0 200142000000 0 777777777377 -AT1 032112 0 0 0 0 0 200142000000 -AT2 032112 0 0 0 000000000001 0 200142000000 -AT3 032112 0 0 0 000000000001 0 000000000001 -AT6 032112 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 220 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0415 - -FT0 032112 000001 0 0 777777777377 0 000000000001 -FT1A 032112 000001 0 0 777777777377 0 777777777377 -FT9 032113 000001 0 0 777777777377 0 777777777377 -ET0 032113 000001 0 0 777777777377 0 777777777377 -ST1 032113 000001 0 0 777777777377 0 777777777377 -ST2 032113 000001 0 0 777777777377 0 777777777377 -ST9 032113 000001 0 0 777777777377 0 777777777377 - - -*032113 CAME 3,034477 -INITIAL -C(AC)=777777 777377 -C(E)=777777 777377 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032113 032113 0 0 312140034477 0 777777777377 -IT1 032113 0 0 0 312140034477 0 777777777377 -AT3 032113 0 0 0 000000034477 0 312140034477 -AT6 032113 034477 0 0 000000034477 0 312140034477 -FT0 032113 034477 0 0 777777777377 0 312140034477 -FT1A 032113 034477 0 0 777777777377 0 777777777377 -FT2 032113 034477 0 0 0 0 777777777377 -FT2RQ 032113 034477 0 0 777777777377 0 777777777377 -FT3 032113 034477 0 0 777777777377 0 777777777377 -FT9 032114 034477 0 0 777777777377 0 777777777377 -ET0 032115 034477 0 0 0 0 777777777377 -ST1A 032115 034477 0 0 0 0 777777777377 -ST9 032115 034477 0 0 0 0 777777777377 - - -*032115 JUMPA 0,032116 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032115 032115 0 0 324000032116 0 000000032116 -IT1 032115 0 0 0 324000032116 0 000000032116 -AT3 032115 0 0 0 000000032116 0 324000032116 -AT6 032115 032116 0 0 000000032116 0 324000032116 -FT1A 032115 032116 0 0 000000032116 0 000000032116 -FT2 032115 032116 0 0 0 0 000000032116 -FT2RQ 032115 032116 0 0 000000000017 0 000000032116 -FT3 032115 032116 0 0 000000000017 0 000000032116 -FT9 032116 032116 0 0 000000000017 0 000000032116 -ET0 032116 032116 0 0 000000000017 0 000000032116 -ST1A 032116 032116 0 0 000000000017 0 000000032116 -ST9 032116 032116 0 0 000000000017 0 000000032116 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 221 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0416 - - -*032116 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 777377 -FINAL - -C(E)=777777 777377 - -TIME PC MA SC FE AR MQ BR -IT0 032116 032116 0 0 402000000003 0 000000000003 -IT1 032116 0 0 0 402000000003 0 000000000003 -AT3 032116 0 0 0 000000000003 0 402000000003 -AT6 032116 000003 0 0 000000000003 0 402000000003 -FT1A 032116 000003 0 0 000000000003 0 000000000003 -FT9 032117 000003 0 0 000000000003 0 000000000003 -ET0 032117 000003 0 0 0 0 000000000003 -ST6 032117 000003 0 0 0 0 000000000003 -ST6A 032117 000003 0 0 0 0 000000000003 -ST9 032117 000003 0 0 0 0 000000000003 - - -*032117 HRROI 1,776777 -INITIAL -C(AC)=777777 777377 -FINAL -C(AC)=777777 776777 - -TIME PC MA SC FE AR MQ BR -IT0 032117 032117 0 0 561040776777 0 000000776777 -IT1 032117 0 0 0 561040776777 0 000000776777 -AT3 032117 0 0 0 000000776777 0 561040776777 -AT6 032117 776777 0 0 000000776777 0 561040776777 -FT1A 032117 776777 0 0 000000776777 0 000000776777 -FT9 032120 776777 0 0 000000776777 0 000000776777 -ET0 032120 776777 0 0 777777776777 0 000000776777 -ST1 032120 776777 0 0 777777776777 0 000000776777 -ST2 032120 776777 0 0 777777776777 0 000000776777 -ST9 032120 776777 0 0 777777776777 0 000000776777 - - -*032120 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032120 032120 0 0 201100000001 0 000000000001 -IT1 032120 0 0 0 201100000001 0 000000000001 -AT3 032120 0 0 0 000000000001 0 201100000001 -AT6 032120 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 222 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0417 - -FT1A 032120 000001 0 0 000000000001 0 000000000001 -FT9 032121 000001 0 0 000000000001 0 000000000001 -ET0 032121 000001 0 0 000000000001 0 000000000001 -ST1 032121 000001 0 0 000000000001 0 000000000001 -ST2 032121 000001 0 0 000000000001 0 000000000001 -ST9 032121 000001 0 0 000000000001 0 000000000001 - - -*032121 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 776777 - -TIME PC MA SC FE AR MQ BR -IT0 032121 032121 0 0 200142000000 0 777777776777 -IT1 032121 0 0 0 200142000000 0 777777776777 -AT1 032121 0 0 0 0 0 200142000000 -AT2 032121 0 0 0 000000000001 0 200142000000 -AT3 032121 0 0 0 000000000001 0 000000000001 -AT6 032121 000001 0 0 000000000001 0 000000000001 -FT0 032121 000001 0 0 777777776777 0 000000000001 -FT1A 032121 000001 0 0 777777776777 0 777777776777 -FT9 032122 000001 0 0 777777776777 0 777777776777 -ET0 032122 000001 0 0 777777776777 0 777777776777 -ST1 032122 000001 0 0 777777776777 0 777777776777 -ST2 032122 000001 0 0 777777776777 0 777777776777 -ST9 032122 000001 0 0 777777776777 0 777777776777 - - -*032122 CAME 3,034500 -INITIAL -C(AC)=777777 776777 -C(E)=777777 776777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032122 032122 0 0 312140034500 0 777777776777 -IT1 032122 0 0 0 312140034500 0 777777776777 -AT3 032122 0 0 0 000000034500 0 312140034500 -AT6 032122 0 0 0 000000034500 0 312140034500 -FT0 032122 0 0 0 777777776777 0 312140034500 -FT1A 032122 0 0 0 777777776777 0 777777776777 -FT2 032122 0 0 0 0 0 777777776777 -FT2RQ 032122 0 0 0 777777776777 0 777777776777 -FT3 032122 0 0 0 777777776777 0 777777776777 -FT9 032123 0 0 0 777777776777 0 777777776777 -ET0 032124 0 0 0 0 0 777777776777 -ST1A 032124 0 0 0 0 0 777777776777 -ST9 032124 0 0 0 0 0 777777776777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 223 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0418 - - - -*032124 JUMPA 0,032125 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032124 032124 0 0 324000032125 0 000000032125 -IT1 032124 0 0 0 324000032125 0 000000032125 -AT3 032124 0 0 0 000000032125 0 324000032125 -AT6 032124 032125 0 0 000000032125 0 324000032125 -FT1A 032124 032125 0 0 000000032125 0 000000032125 -FT2 032124 032125 0 0 0 0 000000032125 -FT2RQ 032124 032125 0 0 000000000017 0 000000032125 -FT3 032124 032125 0 0 000000000017 0 000000032125 -FT9 032125 032125 0 0 000000000017 0 000000032125 -ET0 032125 032125 0 0 000000000017 0 000000032125 -ST1A 032125 032125 0 0 000000000017 0 000000032125 -ST9 032125 032125 0 0 000000000017 0 000000032125 - - -*032125 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 776777 -FINAL - -C(E)=777777 776777 - -TIME PC MA SC FE AR MQ BR -IT0 032125 032125 0 0 402000000003 0 000000000003 -IT1 032125 0 0 0 402000000003 0 000000000003 -AT3 032125 0 0 0 000000000003 0 402000000003 -AT6 032125 000003 0 0 000000000003 0 402000000003 -FT1A 032125 000003 0 0 000000000003 0 000000000003 -FT9 032126 000003 0 0 000000000003 0 000000000003 -ET0 032126 000003 0 0 0 0 000000000003 -ST6 032126 000003 0 0 0 0 000000000003 -ST6A 032126 000003 0 0 0 0 000000000003 -ST9 032126 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 224 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0419 - -*032126 HRROI 1,775777 -INITIAL -C(AC)=777777 776777 -FINAL -C(AC)=777777 775777 - -TIME PC MA SC FE AR MQ BR -IT0 032126 032126 0 0 561040775777 0 000000775777 -IT1 032126 0 0 0 561040775777 0 000000775777 -AT3 032126 0 0 0 000000775777 0 561040775777 -AT6 032126 775777 0 0 000000775777 0 561040775777 -FT1A 032126 775777 0 0 000000775777 0 000000775777 -FT9 032127 775777 0 0 000000775777 0 000000775777 -ET0 032127 775777 0 0 777777775777 0 000000775777 -ST1 032127 775777 0 0 777777775777 0 000000775777 -ST2 032127 775777 0 0 777777775777 0 000000775777 -ST9 032127 775777 0 0 777777775777 0 000000775777 - - -*032127 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032127 032127 0 0 201100000001 0 000000000001 -IT1 032127 0 0 0 201100000001 0 000000000001 -AT3 032127 0 0 0 000000000001 0 201100000001 -AT6 032127 000001 0 0 000000000001 0 201100000001 -FT1A 032127 000001 0 0 000000000001 0 000000000001 -FT9 032130 000001 0 0 000000000001 0 000000000001 -ET0 032130 000001 0 0 000000000001 0 000000000001 -ST1 032130 000001 0 0 000000000001 0 000000000001 -ST2 032130 000001 0 0 000000000001 0 000000000001 -ST9 032130 000001 0 0 000000000001 0 000000000001 - - -*032130 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 775777 - -TIME PC MA SC FE AR MQ BR -IT0 032130 032130 0 0 200142000000 0 777777775777 -IT1 032130 0 0 0 200142000000 0 777777775777 -AT1 032130 0 0 0 0 0 200142000000 -AT2 032130 0 0 0 000000000001 0 200142000000 -AT3 032130 0 0 0 000000000001 0 000000000001 -AT6 032130 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 225 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0420 - -FT0 032130 000001 0 0 777777775777 0 000000000001 -FT1A 032130 000001 0 0 777777775777 0 777777775777 -FT9 032131 000001 0 0 777777775777 0 777777775777 -ET0 032131 000001 0 0 777777775777 0 777777775777 -ST1 032131 000001 0 0 777777775777 0 777777775777 -ST2 032131 000001 0 0 777777775777 0 777777775777 -ST9 032131 000001 0 0 777777775777 0 777777775777 - - -*032131 CAME 3,034501 -INITIAL -C(AC)=777777 775777 -C(E)=777777 775777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032131 032131 0 0 312140034501 0 777777775777 -IT1 032131 0 0 0 312140034501 0 777777775777 -AT3 032131 0 0 0 000000034501 0 312140034501 -AT6 032131 034501 0 0 000000034501 0 312140034501 -FT0 032131 034501 0 0 777777775777 0 312140034501 -FT1A 032131 034501 0 0 777777775777 0 777777775777 -FT2 032131 034501 0 0 0 0 777777775777 -FT2RQ 032131 034501 0 0 777777775777 0 777777775777 -FT3 032131 034501 0 0 777777775777 0 777777775777 -FT9 032132 034501 0 0 777777775777 0 777777775777 -ET0 032133 034501 0 0 0 0 777777775777 -ST1A 032133 034501 0 0 0 0 777777775777 -ST9 032133 034501 0 0 0 0 777777775777 - - -*032133 JUMPA 0,032134 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000032134 -FT3 032133 032134 0 0 000000000017 0 000000032134 -FT9 032134 032134 0 0 000000000017 0 000000032134 -ET0 032134 032134 0 0 000000000017 0 000000032134 -ST1A 032134 032134 0 0 000000000017 0 000000032134 -ST9 032134 032134 0 0 000000000017 0 000000032134 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 226 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0421 - - -*032134 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 775777 -FINAL - -C(E)=777777 775777 - -TIME PC MA SC FE AR MQ BR -IT0 032134 032134 0 0 402000000003 0 000000000003 -IT1 032134 0 0 0 402000000003 0 000000000003 -AT3 032134 0 0 0 000000000003 0 402000000003 -AT6 032134 000003 0 0 000000000003 0 402000000003 -FT1A 032134 000003 0 0 000000000003 0 000000000003 -FT9 032135 000003 0 0 000000000003 0 000000000003 -ET0 032135 000003 0 0 0 0 000000000003 -ST6 032135 000003 0 0 0 0 000000000003 -ST6A 032135 000003 0 0 0 0 000000000003 -ST9 032135 000003 0 0 0 0 000000000003 - - -*032135 HRROI 1,773777 -INITIAL -C(AC)=777777 775777 -FINAL -C(AC)=777777 773777 - -TIME PC MA SC FE AR MQ BR -IT0 032135 032135 0 0 561040773777 0 000000773777 -IT1 032135 0 0 0 561040773777 0 000000773777 -AT3 032135 0 0 0 000000773777 0 561040773777 -AT6 032135 773777 0 0 000000773777 0 561040773777 -FT1A 032135 773777 0 0 000000773777 0 000000773777 -FT9 032136 773777 0 0 000000773777 0 000000773777 -ET0 032136 773777 0 0 777777773777 0 000000773777 -ST1 032136 773777 0 0 777777773777 0 000000773777 -ST2 032136 773777 0 0 777777773777 0 000000773777 -ST9 032136 773777 0 0 777777773777 0 000000773777 - - -*032136 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032136 032136 0 0 201100000001 0 000000000001 -IT1 032136 0 0 0 201100000001 0 000000000001 -AT3 032136 0 0 0 000000000001 0 201100000001 -AT6 032136 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 227 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0422 - -FT1A 032136 000001 0 0 000000000001 0 000000000001 -FT9 032137 000001 0 0 000000000001 0 000000000001 -ET0 032137 000001 0 0 000000000001 0 000000000001 -ST1 032137 000001 0 0 000000000001 0 000000000001 -ST2 032137 000001 0 0 000000000001 0 000000000001 -ST9 032137 000001 0 0 000000000001 0 000000000001 - - -*032137 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 773777 - -TIME PC MA SC FE AR MQ BR -IT0 032137 032137 0 0 200142000000 0 777777773777 -IT1 032137 0 0 0 200142000000 0 777777773777 -AT1 032137 0 0 0 0 0 200142000000 -AT2 032137 0 0 0 000000000001 0 200142000000 -AT3 032137 0 0 0 000000000001 0 000000000001 -AT6 032137 000001 0 0 000000000001 0 000000000001 -FT0 032137 000001 0 0 777777773777 0 000000000001 -FT1A 032137 000001 0 0 777777773777 0 777777773777 -FT9 032140 000001 0 0 777777773777 0 777777773777 -ET0 032140 000001 0 0 777777773777 0 777777773777 -ST1 032140 000001 0 0 777777773777 0 777777773777 -ST2 032140 000001 0 0 777777773777 0 777777773777 -ST9 032140 000001 0 0 777777773777 0 777777773777 - - -*032140 CAME 3,034502 -INITIAL -C(AC)=777777 773777 -C(E)=777777 773777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032140 032140 0 0 312140034502 0 777777773777 -IT1 032140 0 0 0 312140034502 0 777777773777 -AT3 032140 0 0 0 000000034502 0 312140034502 -AT6 032140 034502 0 0 000000034502 0 312140034502 -FT0 032140 034502 0 0 777777773777 0 312140034502 -FT1A 032140 034502 0 0 777777773777 0 777777773777 -FT2 032140 034502 0 0 0 0 777777773777 -FT2RQ 032140 034502 0 0 777777773777 0 777777773777 -FT3 032140 034502 0 0 777777773777 0 777777773777 -FT9 032141 034502 0 0 777777773777 0 777777773777 -ET0 032142 034502 0 0 0 0 777777773777 -ST1A 032142 034502 0 0 0 0 777777773777 -ST9 032142 034502 0 0 0 0 777777773777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 228 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0423 - - - -*032142 JUMPA 0,032143 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032142 032142 0 0 324000032143 0 000000032143 -IT1 032142 0 0 0 324000032143 0 000000032143 -AT3 032142 0 0 0 000000032143 0 324000032143 -AT6 032142 032143 0 0 000000032143 0 324000032143 -FT1A 032142 032143 0 0 000000032143 0 000000032143 -FT2 032142 032143 0 0 0 0 000000032143 -FT2RQ 032142 032143 0 0 000000000017 0 000000032143 -FT3 032142 032143 0 0 000000000017 0 000000032143 -FT9 032143 032143 0 0 000000000017 0 000000032143 -ET0 032143 032143 0 0 000000000017 0 000000032143 -ST1A 032143 032143 0 0 000000000017 0 000000032143 -ST9 032143 032143 0 0 000000000017 0 000000032143 - - -*032143 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 773777 -FINAL - -C(E)=777777 773777 - -TIME PC MA SC FE AR MQ BR -IT0 032143 032143 0 0 402000000003 0 000000000003 -IT1 032143 0 0 0 402000000003 0 000000000003 -AT3 032143 0 0 0 000000000003 0 402000000003 -AT6 032143 000003 0 0 000000000003 0 402000000003 -FT1A 032143 000003 0 0 000000000003 0 000000000003 -FT9 032144 000003 0 0 000000000003 0 000000000003 -ET0 032144 000003 0 0 0 0 000000000003 -ST6 032144 000003 0 0 0 0 000000000003 -ST6A 032144 000003 0 0 0 0 000000000003 -ST9 032144 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 229 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0424 - -*032144 HRROI 1,767777 -INITIAL -C(AC)=777777 773777 -FINAL -C(AC)=777777 767777 - -TIME PC MA SC FE AR MQ BR -IT0 032144 032144 0 0 561040767777 0 000000767777 -IT1 032144 0 0 0 561040767777 0 000000767777 -AT3 032144 0 0 0 000000767777 0 561040767777 -AT6 032144 767777 0 0 000000767777 0 561040767777 -FT1A 032144 767777 0 0 000000767777 0 000000767777 -FT9 032145 767777 0 0 000000767777 0 000000767777 -ET0 032145 767777 0 0 777777767777 0 000000767777 -ST1 032145 767777 0 0 777777767777 0 000000767777 -ST2 032145 767777 0 0 777777767777 0 000000767777 -ST9 032145 767777 0 0 777777767777 0 000000767777 - - -*032145 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032145 032145 0 0 201100000001 0 000000000001 -IT1 032145 0 0 0 201100000001 0 000000000001 -AT3 032145 0 0 0 000000000001 0 201100000001 -AT6 032145 000001 0 0 000000000001 0 201100000001 -FT1A 032145 000001 0 0 000000000001 0 000000000001 -FT9 032146 000001 0 0 000000000001 0 000000000001 -ET0 032146 000001 0 0 000000000001 0 000000000001 -ST1 032146 000001 0 0 000000000001 0 000000000001 -ST2 032146 000001 0 0 000000000001 0 000000000001 -ST9 032146 000001 0 0 000000000001 0 000000000001 - - -*032146 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 767777 - -TIME PC MA SC FE AR MQ BR -IT0 032146 032146 0 0 200142000000 0 777777767777 -IT1 032146 0 0 0 200142000000 0 777777767777 -AT1 032146 0 0 0 0 0 200142000000 -AT2 032146 0 0 0 000000000001 0 200142000000 -AT3 032146 0 0 0 000000000001 0 000000000001 -AT6 032146 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 230 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0425 - -FT0 032146 000001 0 0 777777767777 0 000000000001 -FT1A 032146 000001 0 0 777777767777 0 777777767777 -FT9 032147 000001 0 0 777777767777 0 777777767777 -ET0 032147 000001 0 0 777777767777 0 777777767777 -ST1 032147 000001 0 0 777777767777 0 777777767777 -ST2 032147 000001 0 0 777777767777 0 777777767777 -ST9 032147 000001 0 0 777777767777 0 777777767777 - - -*032147 CAME 3,034503 -INITIAL -C(AC)=777777 767777 -C(E)=777777 767777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032147 032147 0 0 312140034503 0 777777767777 -IT1 032147 0 0 0 312140034503 0 777777767777 -AT3 032147 0 0 0 000000034503 0 312140034503 -AT6 032147 034503 0 0 000000034503 0 312140034503 -FT0 032147 034503 0 0 777777767777 0 312140034503 -FT1A 032147 034503 0 0 777777767777 0 777777767777 -FT2 032147 034503 0 0 0 0 777777767777 -FT2RQ 032147 034503 0 0 777777767777 0 777777767777 -FT3 032147 034503 0 0 777777767777 0 777777767777 -FT9 032150 034503 0 0 777777767777 0 777777767777 -ET0 032151 034503 0 0 0 0 777777767777 -ST1A 032151 034503 0 0 0 0 777777767777 -ST9 032151 034503 0 0 0 0 777777767777 - - -*032151 JUMPA 0,032152 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032151 032151 0 0 324000032152 0 000000032152 -IT1 032151 0 0 0 324000032152 0 000000032152 -AT3 032151 0 0 0 000000032152 0 324000032152 -AT6 032151 032152 0 0 000000032152 0 324000032152 -FT1A 032151 032152 0 0 000000032152 0 000000032152 -FT2 032151 032152 0 0 0 0 000000032152 -FT2RQ 032151 032152 0 0 000000000017 0 000000032152 -FT3 032151 032152 0 0 000000000017 0 000000032152 -FT9 032152 032152 0 0 000000000017 0 000000032152 -ET0 032152 032152 0 0 000000000017 0 000000032152 -ST1A 032152 032152 0 0 000000000017 0 000000032152 -ST9 032152 032152 0 0 000000000017 0 000000032152 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 231 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0426 - - -*032152 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 767777 -FINAL - -C(E)=777777 767777 - -TIME PC MA SC FE AR MQ BR -IT0 032152 032152 0 0 402000000003 0 000000000003 -IT1 032152 0 0 0 402000000003 0 000000000003 -AT3 032152 0 0 0 000000000003 0 402000000003 -AT6 032152 000003 0 0 000000000003 0 402000000003 -FT1A 032152 000003 0 0 000000000003 0 000000000003 -FT9 032153 000003 0 0 000000000003 0 000000000003 -ET0 032153 000003 0 0 0 0 000000000003 -ST6 032153 000003 0 0 0 0 000000000003 -ST6A 032153 000003 0 0 0 0 000000000003 -ST9 032153 000003 0 0 0 0 000000000003 - - -*032153 HRROI 1,757777 -INITIAL -C(AC)=777777 767777 -FINAL -C(AC)=777777 757777 - -TIME PC MA SC FE AR MQ BR -IT0 032153 032153 0 0 561040757777 0 000000757777 -IT1 032153 0 0 0 561040757777 0 000000757777 -AT3 032153 0 0 0 000000757777 0 561040757777 -AT6 032153 757777 0 0 000000757777 0 561040757777 -FT1A 032153 757777 0 0 000000757777 0 000000757777 -FT9 032154 757777 0 0 000000757777 0 000000757777 -ET0 032154 757777 0 0 777777757777 0 000000757777 -ST1 032154 757777 0 0 777777757777 0 000000757777 -ST2 032154 757777 0 0 777777757777 0 000000757777 -ST9 032154 757777 0 0 777777757777 0 000000757777 - - -*032154 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032154 032154 0 0 201100000001 0 000000000001 -IT1 032154 0 0 0 201100000001 0 000000000001 -AT3 032154 0 0 0 000000000001 0 201100000001 -AT6 032154 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 232 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0427 - -FT1A 032154 000001 0 0 000000000001 0 000000000001 -FT9 032155 000001 0 0 000000000001 0 000000000001 -ET0 032155 000001 0 0 000000000001 0 000000000001 -ST1 032155 000001 0 0 000000000001 0 000000000001 -ST2 032155 000001 0 0 000000000001 0 000000000001 -ST9 032155 000001 0 0 000000000001 0 000000000001 - - -*032155 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 757777 - -TIME PC MA SC FE AR MQ BR -IT0 032155 032155 0 0 200142000000 0 777777757777 -IT1 032155 0 0 0 200142000000 0 777777757777 -AT1 032155 0 0 0 0 0 200142000000 -AT2 032155 0 0 0 000000000001 0 200142000000 -AT3 032155 0 0 0 000000000001 0 000000000001 -AT6 032155 000001 0 0 000000000001 0 000000000001 -FT0 032155 000001 0 0 777777757777 0 000000000001 -FT1A 032155 000001 0 0 777777757777 0 777777757777 -FT9 032156 000001 0 0 777777757777 0 777777757777 -ET0 032156 000001 0 0 777777757777 0 777777757777 -ST1 032156 000001 0 0 777777757777 0 777777757777 -ST2 032156 000001 0 0 777777757777 0 777777757777 -ST9 032156 000001 0 0 777777757777 0 777777757777 - - -*032156 CAME 3,034504 -INITIAL -C(AC)=777777 757777 -C(E)=777777 757777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032156 032156 0 0 312140034504 0 777777757777 -IT1 032156 0 0 0 312140034504 0 777777757777 -AT3 032156 0 0 0 000000034504 0 312140034504 -AT6 032156 034504 0 0 000000034504 0 312140034504 -FT0 032156 034504 0 0 777777757777 0 312140034504 -FT1A 032156 034504 0 0 777777757777 0 777777757777 -FT2 032156 034504 0 0 0 0 777777757777 -FT2RQ 032156 034504 0 0 777777757777 0 777777757777 -FT3 032156 034504 0 0 777777757777 0 777777757777 -FT9 032157 034504 0 0 777777757777 0 777777757777 -ET0 032160 034504 0 0 0 0 777777757777 -ST1A 032160 034504 0 0 0 0 777777757777 -ST9 032160 034504 0 0 0 0 777777757777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 233 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0428 - - - -*032160 JUMPA 0,032161 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032160 032160 0 0 324000032161 0 000000032161 -IT1 032160 0 0 0 324000032161 0 000000032161 -AT3 032160 0 0 0 000000032161 0 324000032161 -AT6 032160 032161 0 0 000000032161 0 324000032161 -FT1A 032160 032161 0 0 000000032161 0 000000032161 -FT2 032160 032161 0 0 0 0 000000032161 -FT2RQ 032160 032161 0 0 000000000017 0 000000032161 -FT3 032160 032161 0 0 000000000017 0 000000032161 -FT9 032161 032161 0 0 000000000017 0 000000032161 -ET0 032161 032161 0 0 000000000017 0 000000032161 -ST1A 032161 032161 0 0 000000000017 0 000000032161 -ST9 032161 032161 0 0 000000000017 0 000000032161 - - -*032161 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 757777 -FINAL - -C(E)=777777 757777 - -TIME PC MA SC FE AR MQ BR -IT0 032161 032161 0 0 402000000003 0 000000000003 -IT1 032161 0 0 0 402000000003 0 000000000003 -AT3 032161 0 0 0 000000000003 0 402000000003 -AT6 032161 000003 0 0 000000000003 0 402000000003 -FT1A 032161 000003 0 0 000000000003 0 000000000003 -FT9 032162 000003 0 0 000000000003 0 000000000003 -ET0 032162 000003 0 0 0 0 000000000003 -ST6 032162 000003 0 0 0 0 000000000003 -ST6A 032162 000003 0 0 0 0 000000000003 -ST9 032162 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 234 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0429 - -*032162 HRROI 1,737777 -INITIAL -C(AC)=777777 757777 -FINAL -C(AC)=777777 737777 - -TIME PC MA SC FE AR MQ BR -IT0 032162 032162 0 0 561040737777 0 000000737777 -IT1 032162 0 0 0 561040737777 0 000000737777 -AT3 032162 0 0 0 000000737777 0 561040737777 -AT6 032162 737777 0 0 000000737777 0 561040737777 -FT1A 032162 737777 0 0 000000737777 0 000000737777 -FT9 032163 737777 0 0 000000737777 0 000000737777 -ET0 032163 737777 0 0 777777737777 0 000000737777 -ST1 032163 737777 0 0 777777737777 0 000000737777 -ST2 032163 737777 0 0 777777737777 0 000000737777 -ST9 032163 737777 0 0 777777737777 0 000000737777 - - -*032163 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032163 032163 0 0 201100000001 0 000000000001 -IT1 032163 0 0 0 201100000001 0 000000000001 -AT3 032163 0 0 0 000000000001 0 201100000001 -AT6 032163 000001 0 0 000000000001 0 201100000001 -FT1A 032163 000001 0 0 000000000001 0 000000000001 -FT9 032164 000001 0 0 000000000001 0 000000000001 -ET0 032164 000001 0 0 000000000001 0 000000000001 -ST1 032164 000001 0 0 000000000001 0 000000000001 -ST2 032164 000001 0 0 000000000001 0 000000000001 -ST9 032164 000001 0 0 000000000001 0 000000000001 - - -*032164 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 737777 - -TIME PC MA SC FE AR MQ BR -IT0 032164 032164 0 0 200142000000 0 777777737777 -IT1 032164 0 0 0 200142000000 0 777777737777 -AT1 032164 0 0 0 0 0 200142000000 -AT2 032164 0 0 0 000000000001 0 200142000000 -AT3 032164 0 0 0 000000000001 0 000000000001 -AT6 032164 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 235 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0430 - -FT0 032164 000001 0 0 777777737777 0 000000000001 -FT1A 032164 000001 0 0 777777737777 0 777777737777 -FT9 032165 000001 0 0 777777737777 0 777777737777 -ET0 032165 000001 0 0 777777737777 0 777777737777 -ST1 032165 000001 0 0 777777737777 0 777777737777 -ST2 032165 000001 0 0 777777737777 0 777777737777 -ST9 032165 000001 0 0 777777737777 0 777777737777 - - -*032165 CAME 3,034505 -INITIAL -C(AC)=777777 737777 -C(E)=777777 737777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032165 032165 0 0 312140034505 0 777777737777 -IT1 032165 0 0 0 312140034505 0 777777737777 -AT3 032165 0 0 0 000000034505 0 312140034505 -AT6 032165 034505 0 0 000000034505 0 312140034505 -FT0 032165 034505 0 0 777777737777 0 312140034505 -FT1A 032165 034505 0 0 777777737777 0 777777737777 -FT2 032165 034505 0 0 0 0 777777737777 -FT2RQ 032165 034505 0 0 777777737777 0 777777737777 -FT3 032165 034505 0 0 777777737777 0 777777737777 -FT9 032166 034505 0 0 777777737777 0 777777737777 -ET0 032167 034505 0 0 0 0 777777737777 -ST1A 032167 034505 0 0 0 0 777777737777 -ST9 032167 034505 0 0 0 0 777777737777 - - -*032167 JUMPA 0,032170 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032167 032167 0 0 324000032170 0 000000032170 -IT1 032167 0 0 0 324000032170 0 000000032170 -AT3 032167 0 0 0 000000032170 0 324000032170 -AT6 032167 032170 0 0 000000032170 0 324000032170 -FT1A 032167 032170 0 0 000000032170 0 000000032170 -FT2 032167 032170 0 0 0 0 000000032170 -FT2RQ 032167 032170 0 0 000000000017 0 000000032170 -FT3 032167 032170 0 0 000000000017 0 000000032170 -FT9 032170 032170 0 0 000000000017 0 000000032170 -ET0 032170 032170 0 0 000000000017 0 000000032170 -ST1A 032170 032170 0 0 000000000017 0 000000032170 -ST9 032170 032170 0 0 000000000017 0 000000032170 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 236 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0431 - - -*032170 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 737777 -FINAL - -C(E)=777777 737777 - -TIME PC MA SC FE AR MQ BR -IT0 032170 032170 0 0 402000000003 0 000000000003 -IT1 032170 0 0 0 402000000003 0 000000000003 -AT3 032170 0 0 0 000000000003 0 402000000003 -AT6 032170 000003 0 0 000000000003 0 402000000003 -FT1A 032170 000003 0 0 000000000003 0 000000000003 -FT9 032171 000003 0 0 000000000003 0 000000000003 -ET0 032171 000003 0 0 0 0 000000000003 -ST6 032171 000003 0 0 0 0 000000000003 -ST6A 032171 000003 0 0 0 0 000000000003 -ST9 032171 000003 0 0 0 0 000000000003 - - -*032171 HRROI 1,677777 -INITIAL -C(AC)=777777 737777 -FINAL -C(AC)=777777 677777 - -TIME PC MA SC FE AR MQ BR -IT0 032171 032171 0 0 561040677777 0 000000677777 -IT1 032171 0 0 0 561040677777 0 000000677777 -AT3 032171 0 0 0 000000677777 0 561040677777 -AT6 032171 677777 0 0 000000677777 0 561040677777 -FT1A 032171 677777 0 0 000000677777 0 000000677777 -FT9 032172 677777 0 0 000000677777 0 000000677777 -ET0 032172 677777 0 0 777777677777 0 000000677777 -ST1 032172 677777 0 0 777777677777 0 000000677777 -ST2 032172 677777 0 0 777777677777 0 000000677777 -ST9 032172 677777 0 0 777777677777 0 000000677777 - - -*032172 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032172 032172 0 0 201100000001 0 000000000001 -IT1 032172 0 0 0 201100000001 0 000000000001 -AT3 032172 0 0 0 000000000001 0 201100000001 -AT6 032172 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 237 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0432 - -FT1A 032172 000001 0 0 000000000001 0 000000000001 -FT9 032173 000001 0 0 000000000001 0 000000000001 -ET0 032173 000001 0 0 000000000001 0 000000000001 -ST1 032173 000001 0 0 000000000001 0 000000000001 -ST2 032173 000001 0 0 000000000001 0 000000000001 -ST9 032173 000001 0 0 000000000001 0 000000000001 - - -*032173 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 677777 - -TIME PC MA SC FE AR MQ BR -IT0 032173 032173 0 0 200142000000 0 777777677777 -IT1 032173 0 0 0 200142000000 0 777777677777 -AT1 032173 0 0 0 0 0 200142000000 -AT2 032173 0 0 0 000000000001 0 200142000000 -AT3 032173 0 0 0 000000000001 0 000000000001 -AT6 032173 000001 0 0 000000000001 0 000000000001 -FT0 032173 000001 0 0 777777677777 0 000000000001 -FT1A 032173 000001 0 0 777777677777 0 777777677777 -FT9 032174 000001 0 0 777777677777 0 777777677777 -ET0 032174 000001 0 0 777777677777 0 777777677777 -ST1 032174 000001 0 0 777777677777 0 777777677777 -ST2 032174 000001 0 0 777777677777 0 777777677777 -ST9 032174 000001 0 0 777777677777 0 777777677777 - - -*032174 CAME 3,034506 -INITIAL -C(AC)=777777 677777 -C(E)=777777 677777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032174 032174 0 0 312140034506 0 777777677777 -IT1 032174 0 0 0 312140034506 0 777777677777 -AT3 032174 0 0 0 000000034506 0 312140034506 -AT6 032174 034506 0 0 000000034506 0 312140034506 -FT0 032174 034506 0 0 777777677777 0 312140034506 -FT1A 032174 034506 0 0 777777677777 0 777777677777 -FT2 032174 034506 0 0 0 0 777777677777 -FT2RQ 032174 034506 0 0 777777677777 0 777777677777 -FT3 032174 034506 0 0 777777677777 0 777777677777 -FT9 032175 034506 0 0 777777677777 0 777777677777 -ET0 032176 034506 0 0 0 0 777777677777 -ST1A 032176 034506 0 0 0 0 777777677777 -ST9 032176 034506 0 0 0 0 777777677777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 238 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0433 - - - -*032176 JUMPA 0,032177 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032176 032176 0 0 324000032177 0 000000032177 -IT1 032176 0 0 0 324000032177 0 000000032177 -AT3 032176 0 0 0 000000032177 0 324000032177 -AT6 032176 032177 0 0 000000032177 0 324000032177 -FT1A 032176 032177 0 0 000000032177 0 000000032177 -FT2 032176 032177 0 0 0 0 000000032177 -FT2RQ 032176 032177 0 0 000000000017 0 000000032177 -FT3 032176 032177 0 0 000000000017 0 000000032177 -FT9 032177 032177 0 0 000000000017 0 000000032177 -ET0 032177 032177 0 0 000000000017 0 000000032177 -ST1A 032177 032177 0 0 000000000017 0 000000032177 -ST9 032177 032177 0 0 000000000017 0 000000032177 - - -*032177 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 677777 -FINAL - -C(E)=777777 677777 - -TIME PC MA SC FE AR MQ BR -IT0 032177 032177 0 0 402000000003 0 000000000003 -IT1 032177 0 0 0 402000000003 0 000000000003 -AT3 032177 0 0 0 000000000003 0 402000000003 -AT6 032177 000003 0 0 000000000003 0 402000000003 -FT1A 032177 000003 0 0 000000000003 0 000000000003 -FT9 0 000003 0 0 000000000003 0 000000000003 -ET0 0 000003 0 0 0 0 000000000003 -ST6 0 000003 0 0 0 0 000000000003 -ST6A 0 000003 0 0 0 0 000000000003 -ST9 0 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 239 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0434 - -*032200 HRROI 1,577777 -INITIAL -C(AC)=777777 677777 -FINAL -C(AC)=777777 577777 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 561040577777 0 000000577777 -IT1 0 0 0 0 561040577777 0 000000577777 -AT3 0 0 0 0 000000577777 0 561040577777 -AT6 0 577777 0 0 000000577777 0 561040577777 -FT1A 0 577777 0 0 000000577777 0 000000577777 -FT9 032201 577777 0 0 000000577777 0 000000577777 -ET0 032201 577777 0 0 777777577777 0 000000577777 -ST1 032201 577777 0 0 777777577777 0 000000577777 -ST2 032201 577777 0 0 777777577777 0 000000577777 -ST9 032201 577777 0 0 777777577777 0 000000577777 - - -*032201 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032201 032201 0 0 201100000001 0 000000000001 -IT1 032201 0 0 0 201100000001 0 000000000001 -AT3 032201 0 0 0 000000000001 0 201100000001 -AT6 032201 000001 0 0 000000000001 0 201100000001 -FT1A 032201 000001 0 0 000000000001 0 000000000001 -FT9 032202 000001 0 0 000000000001 0 000000000001 -ET0 032202 000001 0 0 000000000001 0 000000000001 -ST1 032202 000001 0 0 000000000001 0 000000000001 -ST2 032202 000001 0 0 000000000001 0 000000000001 -ST9 032202 000001 0 0 000000000001 0 000000000001 - - -*032202 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 577777 - -TIME PC MA SC FE AR MQ BR -IT0 032202 032202 0 0 200142000000 0 777777577777 -IT1 032202 0 0 0 200142000000 0 777777577777 -AT1 032202 0 0 0 0 0 200142000000 -AT2 032202 0 0 0 000000000001 0 200142000000 -AT3 032202 0 0 0 000000000001 0 000000000001 -AT6 032202 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 240 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0435 - -FT0 032202 000001 0 0 777777577777 0 000000000001 -FT1A 032202 000001 0 0 777777577777 0 777777577777 -FT9 032203 000001 0 0 777777577777 0 777777577777 -ET0 032203 000001 0 0 777777577777 0 777777577777 -ST1 032203 000001 0 0 777777577777 0 777777577777 -ST2 032203 000001 0 0 777777577777 0 777777577777 -ST9 032203 000001 0 0 777777577777 0 777777577777 - - -*032203 CAME 3,034507 -INITIAL -C(AC)=777777 577777 -C(E)=777777 577777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032203 032203 0 0 312140034507 0 777777577777 -IT1 032203 0 0 0 312140034507 0 777777577777 -AT3 032203 0 0 0 000000034507 0 312140034507 -AT6 032203 034507 0 0 000000034507 0 312140034507 -FT0 032203 034507 0 0 777777577777 0 312140034507 -FT1A 032203 034507 0 0 777777577777 0 777777577777 -FT2 032203 034507 0 0 0 0 777777577777 -FT2RQ 032203 034507 0 0 777777577777 0 777777577777 -FT3 032203 034507 0 0 777777577777 0 777777577777 -FT9 032204 034507 0 0 777777577777 0 777777577777 -ET0 032205 034507 0 0 0 0 777777577777 -ST1A 032205 034507 0 0 0 0 777777577777 -ST9 032205 034507 0 0 0 0 777777577777 - - -*032205 JUMPA 0,032206 -INITIAL -C(AC)=000000 000017 -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 000000000017 0 000000032206 -FT3 032205 032206 0 0 000000000017 0 000000032206 -FT9 032206 032206 0 0 000000000017 0 000000032206 -ET0 032206 032206 0 0 000000000017 0 000000032206 -ST1A 032206 032206 0 0 000000000017 0 000000032206 -ST9 032206 032206 0 0 000000000017 0 000000032206 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 241 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0436 - - -*032206 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 577777 -FINAL - -C(E)=777777 577777 - -TIME PC MA SC FE AR MQ BR -IT0 032206 032206 0 0 402000000003 0 000000000003 -IT1 032206 0 0 0 402000000003 0 000000000003 -AT3 032206 0 0 0 000000000003 0 402000000003 -AT6 032206 000003 0 0 000000000003 0 402000000003 -FT1A 032206 000003 0 0 000000000003 0 000000000003 -FT9 032207 000003 0 0 000000000003 0 000000000003 -ET0 032207 000003 0 0 0 0 000000000003 -ST6 032207 000003 0 0 0 0 000000000003 -ST6A 032207 000003 0 0 0 0 000000000003 -ST9 032207 000003 0 0 0 0 000000000003 - - -*032207 HRROI 1,377777 -INITIAL -C(AC)=777777 577777 -FINAL -C(AC)=777777 377777 - -TIME PC MA SC FE AR MQ BR -IT0 032207 032207 0 0 561040377777 0 000000377777 -IT1 032207 0 0 0 561040377777 0 000000377777 -AT3 032207 0 0 0 000000377777 0 561040377777 -AT6 032207 377777 0 0 000000377777 0 561040377777 -FT1A 032207 377777 0 0 000000377777 0 000000377777 -FT9 032210 377777 0 0 000000377777 0 000000377777 -ET0 032210 377777 0 0 777777377777 0 000000377777 -ST1 032210 377777 0 0 777777377777 0 000000377777 -ST2 032210 377777 0 0 777777377777 0 000000377777 -ST9 032210 377777 0 0 777777377777 0 000000377777 - - -*032210 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032210 032210 0 0 201100000001 0 000000000001 -IT1 032210 0 0 0 201100000001 0 000000000001 -AT3 032210 0 0 0 000000000001 0 201100000001 -AT6 032210 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 242 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0437 - -FT1A 032210 000001 0 0 000000000001 0 000000000001 -FT9 032211 000001 0 0 000000000001 0 000000000001 -ET0 032211 000001 0 0 000000000001 0 000000000001 -ST1 032211 000001 0 0 000000000001 0 000000000001 -ST2 032211 000001 0 0 000000000001 0 000000000001 -ST9 032211 000001 0 0 000000000001 0 000000000001 - - -*032211 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777777 377777 - -TIME PC MA SC FE AR MQ BR -IT0 032211 032211 0 0 200142000000 0 777777377777 -IT1 032211 0 0 0 200142000000 0 777777377777 -AT1 032211 0 0 0 0 0 200142000000 -AT2 032211 0 0 0 000000000001 0 200142000000 -AT3 032211 0 0 0 000000000001 0 000000000001 -AT6 032211 000001 0 0 000000000001 0 000000000001 -FT0 032211 000001 0 0 777777377777 0 000000000001 -FT1A 032211 000001 0 0 777777377777 0 777777377777 -FT9 032212 000001 0 0 777777377777 0 777777377777 -ET0 032212 000001 0 0 777777377777 0 777777377777 -ST1 032212 000001 0 0 777777377777 0 777777377777 -ST2 032212 000001 0 0 777777377777 0 777777377777 -ST9 032212 000001 0 0 777777377777 0 777777377777 - - -*032212 CAME 3,034510 -INITIAL -C(AC)=777777 377777 -C(E)=777777 377777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032212 032212 0 0 312140034510 0 777777377777 -IT1 032212 0 0 0 312140034510 0 777777377777 -AT3 032212 0 0 0 000000034510 0 312140034510 -AT6 032212 034510 0 0 000000034510 0 312140034510 -FT0 032212 034510 0 0 777777377777 0 312140034510 -FT1A 032212 034510 0 0 777777377777 0 777777377777 -FT2 032212 034510 0 0 0 0 777777377777 -FT2RQ 032212 034510 0 0 777777377777 0 777777377777 -FT3 032212 034510 0 0 777777377777 0 777777377777 -FT9 032213 034510 0 0 777777377777 0 777777377777 -ET0 032214 034510 0 0 0 0 777777377777 -ST1A 032214 034510 0 0 0 0 777777377777 -ST9 032214 034510 0 0 0 0 777777377777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 243 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0438 - - - -*032214 JUMPA 0,032215 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032214 032214 0 0 324000032215 0 000000032215 -IT1 032214 0 0 0 324000032215 0 000000032215 -AT3 032214 0 0 0 000000032215 0 324000032215 -AT6 032214 032215 0 0 000000032215 0 324000032215 -FT1A 032214 032215 0 0 000000032215 0 000000032215 -FT2 032214 032215 0 0 0 0 000000032215 -FT2RQ 032214 032215 0 0 000000000017 0 000000032215 -FT3 032214 032215 0 0 000000000017 0 000000032215 -FT9 032215 032215 0 0 000000000017 0 000000032215 -ET0 032215 032215 0 0 000000000017 0 000000032215 -ST1A 032215 032215 0 0 000000000017 0 000000032215 -ST9 032215 032215 0 0 000000000017 0 000000032215 - - -*032215 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777777 377777 -FINAL - -C(E)=777777 377777 - -TIME PC MA SC FE AR MQ BR -IT0 032215 032215 0 0 402000000003 0 000000000003 -IT1 032215 0 0 0 402000000003 0 000000000003 -AT3 032215 0 0 0 000000000003 0 402000000003 -AT6 032215 000003 0 0 000000000003 0 402000000003 -FT1A 032215 000003 0 0 000000000003 0 000000000003 -FT9 032216 000003 0 0 000000000003 0 000000000003 -ET0 032216 000003 0 0 0 0 000000000003 -ST6 032216 000003 0 0 0 0 000000000003 -ST6A 032216 000003 0 0 0 0 000000000003 -ST9 032216 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 244 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0439 - -*032216 HRLOI 1,777776 -INITIAL -C(AC)=777777 377777 -FINAL -C(AC)=777776 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032216 032216 0 0 525040777776 0 000000777776 -IT1 032216 0 0 0 525040777776 0 000000777776 -AT3 032216 0 0 0 000000777776 0 525040777776 -AT6 032216 777776 0 0 000000777776 0 525040777776 -FT1A 032216 777776 0 0 000000777776 0 000000777776 -FT9 032217 777776 0 0 000000777776 0 000000777776 -ET0 032217 777776 0 0 777776777777 0 000000777776 -ST1 032217 777776 0 0 777776777777 0 000000777776 -ST2 032217 777776 0 0 777776777777 0 000000777776 -ST9 032217 777776 0 0 777776777777 0 000000777776 - - -*032217 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032217 032217 0 0 201100000001 0 000000000001 -IT1 032217 0 0 0 201100000001 0 000000000001 -AT3 032217 0 0 0 000000000001 0 201100000001 -AT6 032217 000001 0 0 000000000001 0 201100000001 -FT1A 032217 000001 0 0 000000000001 0 000000000001 -FT9 032220 000001 0 0 000000000001 0 000000000001 -ET0 032220 000001 0 0 000000000001 0 000000000001 -ST1 032220 000001 0 0 000000000001 0 000000000001 -ST2 032220 000001 0 0 000000000001 0 000000000001 -ST9 032220 000001 0 0 000000000001 0 000000000001 - - -*032220 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777776 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032220 032220 0 0 200142000000 0 777776777777 -IT1 032220 0 0 0 200142000000 0 777776777777 -AT1 032220 0 0 0 0 0 200142000000 -AT2 032220 0 0 0 000000000001 0 200142000000 -AT3 032220 0 0 0 000000000001 0 000000000001 -AT6 032220 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 245 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0440 - -FT0 032220 000001 0 0 777776777777 0 000000000001 -FT1A 032220 000001 0 0 777776777777 0 777776777777 -FT9 032221 000001 0 0 777776777777 0 777776777777 -ET0 032221 000001 0 0 777776777777 0 777776777777 -ST1 032221 000001 0 0 777776777777 0 777776777777 -ST2 032221 000001 0 0 777776777777 0 777776777777 -ST9 032221 000001 0 0 777776777777 0 777776777777 - - -*032221 CAME 3,034511 -INITIAL -C(AC)=777776 777777 -C(E)=777776 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032221 032221 0 0 312140034511 0 777776777777 -IT1 032221 0 0 0 312140034511 0 777776777777 -AT3 032221 0 0 0 000000034511 0 312140034511 -AT6 032221 034511 0 0 000000034511 0 312140034511 -FT0 032221 034511 0 0 777776777777 0 312140034511 -FT1A 032221 034511 0 0 777776777777 0 777776777777 -FT2 032221 034511 0 0 0 0 777776777777 -FT2RQ 032221 034511 0 0 777776777777 0 777776777777 -FT3 032221 034511 0 0 777776777777 0 777776777777 -FT9 032222 034511 0 0 777776777777 0 777776777777 -ET0 032223 034511 0 0 0 0 777776777777 -ST1A 032223 034511 0 0 0 0 777776777777 -ST9 032223 034511 0 0 0 0 777776777777 - - -*032223 JUMPA 0,032224 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032223 032223 0 0 324000032224 0 000000032224 -IT1 032223 0 0 0 324000032224 0 000000032224 -AT3 032223 0 0 0 000000032224 0 324000032224 -AT6 032223 032224 0 0 000000032224 0 324000032224 -FT1A 032223 032224 0 0 000000032224 0 000000032224 -FT2 032223 032224 0 0 0 0 000000032224 -FT2RQ 032223 032224 0 0 000000000017 0 000000032224 -FT3 032223 032224 0 0 000000000017 0 000000032224 -FT9 032224 032224 0 0 000000000017 0 000000032224 -ET0 032224 032224 0 0 000000000017 0 000000032224 -ST1A 032224 032224 0 0 000000000017 0 000000032224 -ST9 032224 032224 0 0 000000000017 0 000000032224 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 246 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0441 - - -*032224 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777776 777777 -FINAL - -C(E)=777776 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032224 032224 0 0 402000000003 0 000000000003 -IT1 032224 0 0 0 402000000003 0 000000000003 -AT3 032224 0 0 0 000000000003 0 402000000003 -AT6 032224 000003 0 0 000000000003 0 402000000003 -FT1A 032224 000003 0 0 000000000003 0 000000000003 -FT9 032225 000003 0 0 000000000003 0 000000000003 -ET0 032225 000003 0 0 0 0 000000000003 -ST6 032225 000003 0 0 0 0 000000000003 -ST6A 032225 000003 0 0 0 0 000000000003 -ST9 032225 000003 0 0 0 0 000000000003 - - -*032225 HRLOI 1,777775 -INITIAL -C(AC)=777776 777777 -FINAL -C(AC)=777775 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032225 032225 0 0 525040777775 0 000000777775 -IT1 032225 0 0 0 525040777775 0 000000777775 -AT3 032225 0 0 0 000000777775 0 525040777775 -AT6 032225 777775 0 0 000000777775 0 525040777775 -FT1A 032225 777775 0 0 000000777775 0 000000777775 -FT9 032226 777775 0 0 000000777775 0 000000777775 -ET0 032226 777775 0 0 777775777777 0 000000777775 -ST1 032226 777775 0 0 777775777777 0 000000777775 -ST2 032226 777775 0 0 777775777777 0 000000777775 -ST9 032226 777775 0 0 777775777777 0 000000777775 - - -*032226 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032226 032226 0 0 201100000001 0 000000000001 -IT1 032226 0 0 0 201100000001 0 000000000001 -AT3 032226 0 0 0 000000000001 0 201100000001 -AT6 032226 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 247 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0442 - -FT1A 032226 000001 0 0 000000000001 0 000000000001 -FT9 032227 000001 0 0 000000000001 0 000000000001 -ET0 032227 000001 0 0 000000000001 0 000000000001 -ST1 032227 000001 0 0 000000000001 0 000000000001 -ST2 032227 000001 0 0 000000000001 0 000000000001 -ST9 032227 000001 0 0 000000000001 0 000000000001 - - -*032227 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777775 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032227 032227 0 0 200142000000 0 777775777777 -IT1 032227 0 0 0 200142000000 0 777775777777 -AT1 032227 0 0 0 0 0 200142000000 -AT2 032227 0 0 0 000000000001 0 200142000000 -AT3 032227 0 0 0 000000000001 0 000000000001 -AT6 032227 000001 0 0 000000000001 0 000000000001 -FT0 032227 000001 0 0 777775777777 0 000000000001 -FT1A 032227 000001 0 0 777775777777 0 777775777777 -FT9 032230 000001 0 0 777775777777 0 777775777777 -ET0 032230 000001 0 0 777775777777 0 777775777777 -ST1 032230 000001 0 0 777775777777 0 777775777777 -ST2 032230 000001 0 0 777775777777 0 777775777777 -ST9 032230 000001 0 0 777775777777 0 777775777777 - - -*032230 CAME 3,034512 -INITIAL -C(AC)=777775 777777 -C(E)=777775 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032230 032230 0 0 312140034512 0 777775777777 -IT1 032230 0 0 0 312140034512 0 777775777777 -AT3 032230 0 0 0 000000034512 0 312140034512 -AT6 032230 034512 0 0 000000034512 0 312140034512 -FT0 032230 034512 0 0 777775777777 0 312140034512 -FT1A 032230 034512 0 0 777775777777 0 777775777777 -FT2 032230 034512 0 0 0 0 777775777777 -FT2RQ 032230 034512 0 0 777775777777 0 777775777777 -FT3 032230 034512 0 0 777775777777 0 777775777777 -FT9 032231 034512 0 0 777775777777 0 777775777777 -ET0 032232 034512 0 0 0 0 777775777777 -ST1A 032232 034512 0 0 0 0 777775777777 -ST9 032232 034512 0 0 0 0 777775777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 248 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0443 - - - -*032232 JUMPA 0,032233 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032232 032232 0 0 324000032233 0 000000032233 -IT1 032232 0 0 0 324000032233 0 000000032233 -AT3 032232 0 0 0 000000032233 0 324000032233 -AT6 032232 032233 0 0 000000032233 0 324000032233 -FT1A 032232 032233 0 0 000000032233 0 000000032233 -FT2 032232 032233 0 0 0 0 000000032233 -FT2RQ 032232 032233 0 0 000000000017 0 000000032233 -FT3 032232 032233 0 0 000000000017 0 000000032233 -FT9 032233 032233 0 0 000000000017 0 000000032233 -ET0 032233 032233 0 0 000000000017 0 000000032233 -ST1A 032233 032233 0 0 000000000017 0 000000032233 -ST9 032233 032233 0 0 000000000017 0 000000032233 - - -*032233 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777775 777777 -FINAL - -C(E)=777775 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032233 032233 0 0 402000000003 0 000000000003 -IT1 032233 0 0 0 402000000003 0 000000000003 -AT3 032233 0 0 0 000000000003 0 402000000003 -AT6 032233 000003 0 0 000000000003 0 402000000003 -FT1A 032233 000003 0 0 000000000003 0 000000000003 -FT9 032234 000003 0 0 000000000003 0 000000000003 -ET0 032234 000003 0 0 0 0 000000000003 -ST6 032234 000003 0 0 0 0 000000000003 -ST6A 032234 000003 0 0 0 0 000000000003 -ST9 032234 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 249 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0444 - -*032234 HRLOI 1,777773 -INITIAL -C(AC)=777775 777777 -FINAL -C(AC)=777773 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032234 032234 0 0 525040777773 0 000000777773 -IT1 032234 0 0 0 525040777773 0 000000777773 -AT3 032234 0 0 0 000000777773 0 525040777773 -AT6 032234 777773 0 0 000000777773 0 525040777773 -FT1A 032234 777773 0 0 000000777773 0 000000777773 -FT9 032235 777773 0 0 000000777773 0 000000777773 -ET0 032235 777773 0 0 777773777777 0 000000777773 -ST1 032235 777773 0 0 777773777777 0 000000777773 -ST2 032235 777773 0 0 777773777777 0 000000777773 -ST9 032235 777773 0 0 777773777777 0 000000777773 - - -*032235 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032235 032235 0 0 201100000001 0 000000000001 -IT1 032235 0 0 0 201100000001 0 000000000001 -AT3 032235 0 0 0 000000000001 0 201100000001 -AT6 032235 000001 0 0 000000000001 0 201100000001 -FT1A 032235 000001 0 0 000000000001 0 000000000001 -FT9 032236 000001 0 0 000000000001 0 000000000001 -ET0 032236 000001 0 0 000000000001 0 000000000001 -ST1 032236 000001 0 0 000000000001 0 000000000001 -ST2 032236 000001 0 0 000000000001 0 000000000001 -ST9 032236 000001 0 0 000000000001 0 000000000001 - - -*032236 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777773 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032236 032236 0 0 200142000000 0 777773777777 -IT1 032236 0 0 0 200142000000 0 777773777777 -AT1 032236 0 0 0 0 0 200142000000 -AT2 032236 0 0 0 000000000001 0 200142000000 -AT3 032236 0 0 0 000000000001 0 000000000001 -AT6 032236 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 250 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0445 - -FT0 032236 000001 0 0 777773777777 0 000000000001 -FT1A 032236 000001 0 0 777773777777 0 777773777777 -FT9 032237 000001 0 0 777773777777 0 777773777777 -ET0 032237 000001 0 0 777773777777 0 777773777777 -ST1 032237 000001 0 0 777773777777 0 777773777777 -ST2 032237 000001 0 0 777773777777 0 777773777777 -ST9 032237 000001 0 0 777773777777 0 777773777777 - - -*032237 CAME 3,034513 -INITIAL -C(AC)=777773 777777 -C(E)=777773 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032237 032237 0 0 312140034513 0 777773777777 -IT1 032237 0 0 0 312140034513 0 777773777777 -AT3 032237 0 0 0 000000034513 0 312140034513 -AT6 032237 034513 0 0 000000034513 0 312140034513 -FT0 032237 034513 0 0 777773777777 0 312140034513 -FT1A 032237 034513 0 0 777773777777 0 777773777777 -FT2 032237 034513 0 0 0 0 777773777777 -FT2RQ 032237 034513 0 0 777773777777 0 777773777777 -FT3 032237 034513 0 0 777773777777 0 777773777777 -FT9 032240 034513 0 0 777773777777 0 777773777777 -ET0 032241 034513 0 0 0 0 777773777777 -ST1A 032241 034513 0 0 0 0 777773777777 -ST9 032241 034513 0 0 0 0 777773777777 - - -*032241 JUMPA 0,032242 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032241 032241 0 0 324000032242 0 000000032242 -IT1 032241 0 0 0 324000032242 0 000000032242 -AT3 032241 0 0 0 000000032242 0 324000032242 -AT6 032241 032242 0 0 000000032242 0 324000032242 -FT1A 032241 032242 0 0 000000032242 0 000000032242 -FT2 032241 032242 0 0 0 0 000000032242 -FT2RQ 032241 032242 0 0 000000000017 0 000000032242 -FT3 032241 032242 0 0 000000000017 0 000000032242 -FT9 032242 032242 0 0 000000000017 0 000000032242 -ET0 032242 032242 0 0 000000000017 0 000000032242 -ST1A 032242 032242 0 0 000000000017 0 000000032242 -ST9 032242 032242 0 0 000000000017 0 000000032242 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 251 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0446 - - -*032242 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777773 777777 -FINAL - -C(E)=777773 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032242 032242 0 0 402000000003 0 000000000003 -IT1 032242 0 0 0 402000000003 0 000000000003 -AT3 032242 0 0 0 000000000003 0 402000000003 -AT6 032242 000003 0 0 000000000003 0 402000000003 -FT1A 032242 000003 0 0 000000000003 0 000000000003 -FT9 032243 000003 0 0 000000000003 0 000000000003 -ET0 032243 000003 0 0 0 0 000000000003 -ST6 032243 000003 0 0 0 0 000000000003 -ST6A 032243 000003 0 0 0 0 000000000003 -ST9 032243 000003 0 0 0 0 000000000003 - - -*032243 HRLOI 1,777767 -INITIAL -C(AC)=777773 777777 -FINAL -C(AC)=777767 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032243 032243 0 0 525040777767 0 000000777767 -IT1 032243 0 0 0 525040777767 0 000000777767 -AT3 032243 0 0 0 000000777767 0 525040777767 -AT6 032243 777767 0 0 000000777767 0 525040777767 -FT1A 032243 777767 0 0 000000777767 0 000000777767 -FT9 032244 777767 0 0 000000777767 0 000000777767 -ET0 032244 777767 0 0 777767777777 0 000000777767 -ST1 032244 777767 0 0 777767777777 0 000000777767 -ST2 032244 777767 0 0 777767777777 0 000000777767 -ST9 032244 777767 0 0 777767777777 0 000000777767 - - -*032244 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032244 032244 0 0 201100000001 0 000000000001 -IT1 032244 0 0 0 201100000001 0 000000000001 -AT3 032244 0 0 0 000000000001 0 201100000001 -AT6 032244 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 252 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0447 - -FT1A 032244 000001 0 0 000000000001 0 000000000001 -FT9 032245 000001 0 0 000000000001 0 000000000001 -ET0 032245 000001 0 0 000000000001 0 000000000001 -ST1 032245 000001 0 0 000000000001 0 000000000001 -ST2 032245 000001 0 0 000000000001 0 000000000001 -ST9 032245 000001 0 0 000000000001 0 000000000001 - - -*032245 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777767 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032245 032245 0 0 200142000000 0 777767777777 -IT1 032245 0 0 0 200142000000 0 777767777777 -AT1 032245 0 0 0 0 0 200142000000 -AT2 032245 0 0 0 000000000001 0 200142000000 -AT3 032245 0 0 0 000000000001 0 000000000001 -AT6 032245 000001 0 0 000000000001 0 000000000001 -FT0 032245 000001 0 0 777767777777 0 000000000001 -FT1A 032245 000001 0 0 777767777777 0 777767777777 -FT9 032246 000001 0 0 777767777777 0 777767777777 -ET0 032246 000001 0 0 777767777777 0 777767777777 -ST1 032246 000001 0 0 777767777777 0 777767777777 -ST2 032246 000001 0 0 777767777777 0 777767777777 -ST9 032246 000001 0 0 777767777777 0 777767777777 - - -*032246 CAME 3,034514 -INITIAL -C(AC)=777767 777777 -C(E)=777767 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032246 032246 0 0 312140034514 0 777767777777 -IT1 032246 0 0 0 312140034514 0 777767777777 -AT3 032246 0 0 0 000000034514 0 312140034514 -AT6 032246 034514 0 0 000000034514 0 312140034514 -FT0 032246 034514 0 0 777767777777 0 312140034514 -FT1A 032246 034514 0 0 777767777777 0 777767777777 -FT2 032246 034514 0 0 0 0 777767777777 -FT2RQ 032246 034514 0 0 777767777777 0 777767777777 -FT3 032246 034514 0 0 777767777777 0 777767777777 -FT9 032247 034514 0 0 777767777777 0 777767777777 -ET0 032250 034514 0 0 0 0 777767777777 -ST1A 032250 034514 0 0 0 0 777767777777 -ST9 032250 034514 0 0 0 0 777767777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 253 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0448 - - - -*032250 JUMPA 0,032251 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032250 032250 0 0 324000032251 0 000000032251 -IT1 032250 0 0 0 324000032251 0 000000032251 -AT3 032250 0 0 0 000000032251 0 324000032251 -AT6 032250 032251 0 0 000000032251 0 324000032251 -FT1A 032250 032251 0 0 000000032251 0 000000032251 -FT2 032250 032251 0 0 0 0 000000032251 -FT2RQ 032250 032251 0 0 000000000017 0 000000032251 -FT3 032250 032251 0 0 000000000017 0 000000032251 -FT9 032251 032251 0 0 000000000017 0 000000032251 -ET0 032251 032251 0 0 000000000017 0 000000032251 -ST1A 032251 032251 0 0 000000000017 0 000000032251 -ST9 032251 032251 0 0 000000000017 0 000000032251 - - -*032251 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777767 777777 -FINAL - -C(E)=777767 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032251 032251 0 0 402000000003 0 000000000003 -IT1 032251 0 0 0 402000000003 0 000000000003 -AT3 032251 0 0 0 000000000003 0 402000000003 -AT6 032251 000003 0 0 000000000003 0 402000000003 -FT1A 032251 000003 0 0 000000000003 0 000000000003 -FT9 032252 000003 0 0 000000000003 0 000000000003 -ET0 032252 000003 0 0 0 0 000000000003 -ST6 032252 000003 0 0 0 0 000000000003 -ST6A 032252 000003 0 0 0 0 000000000003 -ST9 032252 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 254 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0449 - -*032252 HRLOI 1,777757 -INITIAL -C(AC)=777767 777777 -FINAL -C(AC)=777757 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032252 032252 0 0 525040777757 0 000000777757 -IT1 032252 0 0 0 525040777757 0 000000777757 -AT3 032252 0 0 0 000000777757 0 525040777757 -AT6 032252 777757 0 0 000000777757 0 525040777757 -FT1A 032252 777757 0 0 000000777757 0 000000777757 -FT9 032253 777757 0 0 000000777757 0 000000777757 -ET0 032253 777757 0 0 777757777777 0 000000777757 -ST1 032253 777757 0 0 777757777777 0 000000777757 -ST2 032253 777757 0 0 777757777777 0 000000777757 -ST9 032253 777757 0 0 777757777777 0 000000777757 - - -*032253 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032253 032253 0 0 201100000001 0 000000000001 -IT1 032253 0 0 0 201100000001 0 000000000001 -AT3 032253 0 0 0 000000000001 0 201100000001 -AT6 032253 000001 0 0 000000000001 0 201100000001 -FT1A 032253 000001 0 0 000000000001 0 000000000001 -FT9 032254 000001 0 0 000000000001 0 000000000001 -ET0 032254 000001 0 0 000000000001 0 000000000001 -ST1 032254 000001 0 0 000000000001 0 000000000001 -ST2 032254 000001 0 0 000000000001 0 000000000001 -ST9 032254 000001 0 0 000000000001 0 000000000001 - - -*032254 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777757 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032254 032254 0 0 200142000000 0 777757777777 -IT1 032254 0 0 0 200142000000 0 777757777777 -AT1 032254 0 0 0 0 0 200142000000 -AT2 032254 0 0 0 000000000001 0 200142000000 -AT3 032254 0 0 0 000000000001 0 000000000001 -AT6 032254 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 255 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0450 - -FT0 032254 000001 0 0 777757777777 0 000000000001 -FT1A 032254 000001 0 0 777757777777 0 777757777777 -FT9 032255 000001 0 0 777757777777 0 777757777777 -ET0 032255 000001 0 0 777757777777 0 777757777777 -ST1 032255 000001 0 0 777757777777 0 777757777777 -ST2 032255 000001 0 0 777757777777 0 777757777777 -ST9 032255 000001 0 0 777757777777 0 777757777777 - - -*032255 CAME 3,034515 -INITIAL -C(AC)=777757 777777 -C(E)=777757 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032255 032255 0 0 312140034515 0 777757777777 -IT1 032255 0 0 0 312140034515 0 777757777777 -AT3 032255 0 0 0 000000034515 0 312140034515 -AT6 032255 034515 0 0 000000034515 0 312140034515 -FT0 032255 034515 0 0 777757777777 0 312140034515 -FT1A 032255 034515 0 0 777757777777 0 777757777777 -FT2 032255 034515 0 0 0 0 777757777777 -FT2RQ 032255 034515 0 0 777757777777 0 777757777777 -FT3 032255 034515 0 0 777757777777 0 777757777777 -FT9 032256 034515 0 0 777757777777 0 777757777777 -ET0 032257 034515 0 0 0 0 777757777777 -ST1A 032257 034515 0 0 0 0 777757777777 -ST9 032257 034515 0 0 0 0 777757777777 - - -*032257 JUMPA 0,032260 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032257 032257 0 0 324000032260 0 000000032260 -IT1 032257 0 0 0 324000032260 0 000000032260 -AT3 032257 0 0 0 000000032260 0 324000032260 -AT6 032257 032260 0 0 000000032260 0 324000032260 -FT1A 032257 032260 0 0 000000032260 0 000000032260 -FT2 032257 032260 0 0 0 0 000000032260 -FT2RQ 032257 032260 0 0 000000000017 0 000000032260 -FT3 032257 032260 0 0 000000000017 0 000000032260 -FT9 032260 032260 0 0 000000000017 0 000000032260 -ET0 032260 032260 0 0 000000000017 0 000000032260 -ST1A 032260 032260 0 0 000000000017 0 000000032260 -ST9 032260 032260 0 0 000000000017 0 000000032260 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 256 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0451 - - -*032260 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777757 777777 -FINAL - -C(E)=777757 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032260 032260 0 0 402000000003 0 000000000003 -IT1 032260 0 0 0 402000000003 0 000000000003 -AT3 032260 0 0 0 000000000003 0 402000000003 -AT6 032260 000003 0 0 000000000003 0 402000000003 -FT1A 032260 000003 0 0 000000000003 0 000000000003 -FT9 032261 000003 0 0 000000000003 0 000000000003 -ET0 032261 000003 0 0 0 0 000000000003 -ST6 032261 000003 0 0 0 0 000000000003 -ST6A 032261 000003 0 0 0 0 000000000003 -ST9 032261 000003 0 0 0 0 000000000003 - - -*032261 HRLOI 1,777737 -INITIAL -C(AC)=777757 777777 -FINAL -C(AC)=777737 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032261 032261 0 0 525040777737 0 000000777737 -IT1 032261 0 0 0 525040777737 0 000000777737 -AT3 032261 0 0 0 000000777737 0 525040777737 -AT6 032261 777737 0 0 000000777737 0 525040777737 -FT1A 032261 777737 0 0 000000777737 0 000000777737 -FT9 032262 777737 0 0 000000777737 0 000000777737 -ET0 032262 777737 0 0 777737777777 0 000000777737 -ST1 032262 777737 0 0 777737777777 0 000000777737 -ST2 032262 777737 0 0 777737777777 0 000000777737 -ST9 032262 777737 0 0 777737777777 0 000000777737 - - -*032262 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032262 032262 0 0 201100000001 0 000000000001 -IT1 032262 0 0 0 201100000001 0 000000000001 -AT3 032262 0 0 0 000000000001 0 201100000001 -AT6 032262 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 257 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0452 - -FT1A 032262 000001 0 0 000000000001 0 000000000001 -FT9 032263 000001 0 0 000000000001 0 000000000001 -ET0 032263 000001 0 0 000000000001 0 000000000001 -ST1 032263 000001 0 0 000000000001 0 000000000001 -ST2 032263 000001 0 0 000000000001 0 000000000001 -ST9 032263 000001 0 0 000000000001 0 000000000001 - - -*032263 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777737 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032263 032263 0 0 200142000000 0 777737777777 -IT1 032263 0 0 0 200142000000 0 777737777777 -AT1 032263 0 0 0 0 0 200142000000 -AT2 032263 0 0 0 000000000001 0 200142000000 -AT3 032263 0 0 0 000000000001 0 000000000001 -AT6 032263 000001 0 0 000000000001 0 000000000001 -FT0 032263 000001 0 0 777737777777 0 000000000001 -FT1A 032263 000001 0 0 777737777777 0 777737777777 -FT9 032264 000001 0 0 777737777777 0 777737777777 -ET0 032264 000001 0 0 777737777777 0 777737777777 -ST1 032264 000001 0 0 777737777777 0 777737777777 -ST2 032264 000001 0 0 777737777777 0 777737777777 -ST9 032264 000001 0 0 777737777777 0 777737777777 - - -*032264 CAME 3,034516 -INITIAL -C(AC)=777737 777777 -C(E)=777737 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032264 032264 0 0 312140034516 0 777737777777 -IT1 032264 0 0 0 312140034516 0 777737777777 -AT3 032264 0 0 0 000000034516 0 312140034516 -AT6 032264 034516 0 0 000000034516 0 312140034516 -FT0 032264 034516 0 0 777737777777 0 312140034516 -FT1A 032264 034516 0 0 777737777777 0 777737777777 -FT2 032264 034516 0 0 0 0 777737777777 -FT2RQ 032264 034516 0 0 777737777777 0 777737777777 -FT3 032264 034516 0 0 777737777777 0 777737777777 -FT9 032265 034516 0 0 777737777777 0 777737777777 -ET0 032266 034516 0 0 0 0 777737777777 -ST1A 032266 034516 0 0 0 0 777737777777 -ST9 032266 034516 0 0 0 0 777737777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 258 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0453 - - - -*032266 JUMPA 0,032267 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032266 032266 0 0 324000032267 0 000000032267 -IT1 032266 0 0 0 324000032267 0 000000032267 -AT3 032266 0 0 0 000000032267 0 324000032267 -AT6 032266 032267 0 0 000000032267 0 324000032267 -FT1A 032266 032267 0 0 000000032267 0 000000032267 -FT2 032266 032267 0 0 0 0 000000032267 -FT2RQ 032266 032267 0 0 000000000017 0 000000032267 -FT3 032266 032267 0 0 000000000017 0 000000032267 -FT9 032267 032267 0 0 000000000017 0 000000032267 -ET0 032267 032267 0 0 000000000017 0 000000032267 -ST1A 032267 032267 0 0 000000000017 0 000000032267 -ST9 032267 032267 0 0 000000000017 0 000000032267 - - -*032267 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777737 777777 -FINAL - -C(E)=777737 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032267 032267 0 0 402000000003 0 000000000003 -IT1 032267 0 0 0 402000000003 0 000000000003 -AT3 032267 0 0 0 000000000003 0 402000000003 -AT6 032267 000003 0 0 000000000003 0 402000000003 -FT1A 032267 000003 0 0 000000000003 0 000000000003 -FT9 032270 000003 0 0 000000000003 0 000000000003 -ET0 032270 000003 0 0 0 0 000000000003 -ST6 032270 000003 0 0 0 0 000000000003 -ST6A 032270 000003 0 0 0 0 000000000003 -ST9 032270 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 259 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0454 - -*032270 HRLOI 1,777677 -INITIAL -C(AC)=777737 777777 -FINAL -C(AC)=777677 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032270 032270 0 0 525040777677 0 000000777677 -IT1 032270 0 0 0 525040777677 0 000000777677 -AT3 032270 0 0 0 000000777677 0 525040777677 -AT6 032270 777677 0 0 000000777677 0 525040777677 -FT1A 032270 777677 0 0 000000777677 0 000000777677 -FT9 032271 777677 0 0 000000777677 0 000000777677 -ET0 032271 777677 0 0 777677777777 0 000000777677 -ST1 032271 777677 0 0 777677777777 0 000000777677 -ST2 032271 777677 0 0 777677777777 0 000000777677 -ST9 032271 777677 0 0 777677777777 0 000000777677 - - -*032271 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032271 032271 0 0 201100000001 0 000000000001 -IT1 032271 0 0 0 201100000001 0 000000000001 -AT3 032271 0 0 0 000000000001 0 201100000001 -AT6 032271 000001 0 0 000000000001 0 201100000001 -FT1A 032271 000001 0 0 000000000001 0 000000000001 -FT9 032272 000001 0 0 000000000001 0 000000000001 -ET0 032272 000001 0 0 000000000001 0 000000000001 -ST1 032272 000001 0 0 000000000001 0 000000000001 -ST2 032272 000001 0 0 000000000001 0 000000000001 -ST9 032272 000001 0 0 000000000001 0 000000000001 - - -*032272 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777677 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032272 032272 0 0 200142000000 0 777677777777 -IT1 032272 0 0 0 200142000000 0 777677777777 -AT1 032272 0 0 0 0 0 200142000000 -AT2 032272 0 0 0 000000000001 0 200142000000 -AT3 032272 0 0 0 000000000001 0 000000000001 -AT6 032272 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 260 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0455 - -FT0 032272 000001 0 0 777677777777 0 000000000001 -FT1A 032272 000001 0 0 777677777777 0 777677777777 -FT9 032273 000001 0 0 777677777777 0 777677777777 -ET0 032273 000001 0 0 777677777777 0 777677777777 -ST1 032273 000001 0 0 777677777777 0 777677777777 -ST2 032273 000001 0 0 777677777777 0 777677777777 -ST9 032273 000001 0 0 777677777777 0 777677777777 - - -*032273 CAME 3,034517 -INITIAL -C(AC)=777677 777777 -C(E)=777677 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032273 032273 0 0 312140034517 0 777677777777 -IT1 032273 0 0 0 312140034517 0 777677777777 -AT3 032273 0 0 0 000000034517 0 312140034517 -AT6 032273 034517 0 0 000000034517 0 312140034517 -FT0 032273 034517 0 0 777677777777 0 312140034517 -FT1A 032273 034517 0 0 777677777777 0 777677777777 -FT2 032273 034517 0 0 0 0 777677777777 -FT2RQ 032273 034517 0 0 777677777777 0 777677777777 -FT3 032273 034517 0 0 777677777777 0 777677777777 -FT9 032274 034517 0 0 777677777777 0 777677777777 -ET0 032275 034517 0 0 0 0 777677777777 -ST1A 032275 034517 0 0 0 0 777677777777 -ST9 032275 034517 0 0 0 0 777677777777 - - -*032275 JUMPA 0,032276 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032275 032275 0 0 324000032276 0 000000032276 -IT1 032275 0 0 0 324000032276 0 000000032276 -AT3 032275 0 0 0 000000032276 0 324000032276 -AT6 032275 032276 0 0 000000032276 0 324000032276 -FT1A 032275 032276 0 0 000000032276 0 000000032276 -FT2 032275 032276 0 0 0 0 000000032276 -FT2RQ 032275 032276 0 0 000000000017 0 000000032276 -FT3 032275 032276 0 0 000000000017 0 000000032276 -FT9 032276 032276 0 0 000000000017 0 000000032276 -ET0 032276 032276 0 0 000000000017 0 000000032276 -ST1A 032276 032276 0 0 000000000017 0 000000032276 -ST9 032276 032276 0 0 000000000017 0 000000032276 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 261 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0456 - - -*032276 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777677 777777 -FINAL - -C(E)=777677 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032276 032276 0 0 402000000003 0 000000000003 -IT1 032276 0 0 0 402000000003 0 000000000003 -AT3 032276 0 0 0 000000000003 0 402000000003 -AT6 032276 000003 0 0 000000000003 0 402000000003 -FT1A 032276 000003 0 0 000000000003 0 000000000003 -FT9 032277 000003 0 0 000000000003 0 000000000003 -ET0 032277 000003 0 0 0 0 000000000003 -ST6 032277 000003 0 0 0 0 000000000003 -ST6A 032277 000003 0 0 0 0 000000000003 -ST9 032277 000003 0 0 0 0 000000000003 - - -*032277 HRLOI 1,777577 -INITIAL -C(AC)=777677 777777 -FINAL -C(AC)=777577 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032277 032277 0 0 525040777577 0 000000777577 -IT1 032277 0 0 0 525040777577 0 000000777577 -AT3 032277 0 0 0 000000777577 0 525040777577 -AT6 032277 777577 0 0 000000777577 0 525040777577 -FT1A 032277 777577 0 0 000000777577 0 000000777577 -FT9 0 777577 0 0 000000777577 0 000000777577 -ET0 0 777577 0 0 777577777777 0 000000777577 -ST1 0 777577 0 0 777577777777 0 000000777577 -ST2 0 777577 0 0 777577777777 0 000000777577 -ST9 0 777577 0 0 777577777777 0 000000777577 - - -*032300 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 201100000001 0 000000000001 -IT1 0 0 0 0 201100000001 0 000000000001 -AT3 0 0 0 0 000000000001 0 201100000001 -AT6 0 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 262 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0457 - -FT1A 0 000001 0 0 000000000001 0 000000000001 -FT9 032301 000001 0 0 000000000001 0 000000000001 -ET0 032301 000001 0 0 000000000001 0 000000000001 -ST1 032301 000001 0 0 000000000001 0 000000000001 -ST2 032301 000001 0 0 000000000001 0 000000000001 -ST9 032301 000001 0 0 000000000001 0 000000000001 - - -*032301 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777577 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032301 032301 0 0 200142000000 0 777577777777 -IT1 032301 0 0 0 200142000000 0 777577777777 -AT1 032301 0 0 0 0 0 200142000000 -AT2 032301 0 0 0 000000000001 0 200142000000 -AT3 032301 0 0 0 000000000001 0 000000000001 -AT6 032301 000001 0 0 000000000001 0 000000000001 -FT0 032301 000001 0 0 777577777777 0 000000000001 -FT1A 032301 000001 0 0 777577777777 0 777577777777 -FT9 032302 000001 0 0 777577777777 0 777577777777 -ET0 032302 000001 0 0 777577777777 0 777577777777 -ST1 032302 000001 0 0 777577777777 0 777577777777 -ST2 032302 000001 0 0 777577777777 0 777577777777 -ST9 032302 000001 0 0 777577777777 0 777577777777 - - -*032302 CAME 3,034520 -INITIAL -C(AC)=777577 777777 -C(E)=777577 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032302 032302 0 0 312140034520 0 777577777777 -IT1 032302 0 0 0 312140034520 0 777577777777 -AT3 032302 0 0 0 000000034520 0 312140034520 -AT6 032302 034520 0 0 000000034520 0 312140034520 -FT0 032302 034520 0 0 777577777777 0 312140034520 -FT1A 032302 034520 0 0 777577777777 0 777577777777 -FT2 032302 034520 0 0 0 0 777577777777 -FT2RQ 032302 034520 0 0 777577777777 0 777577777777 -FT3 032302 034520 0 0 777577777777 0 777577777777 -FT9 032303 034520 0 0 777577777777 0 777577777777 -ET0 032304 034520 0 0 0 0 777577777777 -ST1A 032304 034520 0 0 0 0 777577777777 -ST9 032304 034520 0 0 0 0 777577777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 263 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0458 - - - -*032304 JUMPA 0,032305 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032304 032304 0 0 324000032305 0 000000032305 -IT1 032304 0 0 0 324000032305 0 000000032305 -AT3 032304 0 0 0 000000032305 0 324000032305 -AT6 032304 032305 0 0 000000032305 0 324000032305 -FT1A 032304 032305 0 0 000000032305 0 000000032305 -FT2 032304 032305 0 0 0 0 000000032305 -FT2RQ 032304 032305 0 0 000000000017 0 000000032305 -FT3 032304 032305 0 0 000000000017 0 000000032305 -FT9 032305 032305 0 0 000000000017 0 000000032305 -ET0 032305 032305 0 0 000000000017 0 000000032305 -ST1A 032305 032305 0 0 000000000017 0 000000032305 -ST9 032305 032305 0 0 000000000017 0 000000032305 - - -*032305 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777577 777777 -FINAL - -C(E)=777577 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032305 032305 0 0 402000000003 0 000000000003 -IT1 032305 0 0 0 402000000003 0 000000000003 -AT3 032305 0 0 0 000000000003 0 402000000003 -AT6 032305 000003 0 0 000000000003 0 402000000003 -FT1A 032305 000003 0 0 000000000003 0 000000000003 -FT9 032306 000003 0 0 000000000003 0 000000000003 -ET0 032306 000003 0 0 0 0 000000000003 -ST6 032306 000003 0 0 0 0 000000000003 -ST6A 032306 000003 0 0 0 0 000000000003 -ST9 032306 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 264 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0459 - -*032306 HRLOI 1,777377 -INITIAL -C(AC)=777577 777777 -FINAL -C(AC)=777377 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032306 032306 0 0 525040777377 0 000000777377 -IT1 032306 0 0 0 525040777377 0 000000777377 -AT3 032306 0 0 0 000000777377 0 525040777377 -AT6 032306 777377 0 0 000000777377 0 525040777377 -FT1A 032306 777377 0 0 000000777377 0 000000777377 -FT9 032307 777377 0 0 000000777377 0 000000777377 -ET0 032307 777377 0 0 777377777777 0 000000777377 -ST1 032307 777377 0 0 777377777777 0 000000777377 -ST2 032307 777377 0 0 777377777777 0 000000777377 -ST9 032307 777377 0 0 777377777777 0 000000777377 - - -*032307 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032307 032307 0 0 201100000001 0 000000000001 -IT1 032307 0 0 0 201100000001 0 000000000001 -AT3 032307 0 0 0 000000000001 0 201100000001 -AT6 032307 000001 0 0 000000000001 0 201100000001 -FT1A 032307 000001 0 0 000000000001 0 000000000001 -FT9 032310 000001 0 0 000000000001 0 000000000001 -ET0 032310 000001 0 0 000000000001 0 000000000001 -ST1 032310 000001 0 0 000000000001 0 000000000001 -ST2 032310 000001 0 0 000000000001 0 000000000001 -ST9 032310 000001 0 0 000000000001 0 000000000001 - - -*032310 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=777377 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032310 032310 0 0 200142000000 0 777377777777 -IT1 032310 0 0 0 200142000000 0 777377777777 -AT1 032310 0 0 0 0 0 200142000000 -AT2 032310 0 0 0 000000000001 0 200142000000 -AT3 032310 0 0 0 000000000001 0 000000000001 -AT6 032310 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 265 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0460 - -FT0 032310 000001 0 0 777377777777 0 000000000001 -FT1A 032310 000001 0 0 777377777777 0 777377777777 -FT9 032311 000001 0 0 777377777777 0 777377777777 -ET0 032311 000001 0 0 777377777777 0 777377777777 -ST1 032311 000001 0 0 777377777777 0 777377777777 -ST2 032311 000001 0 0 777377777777 0 777377777777 -ST9 032311 000001 0 0 777377777777 0 777377777777 - - -*032311 CAME 3,034521 -INITIAL -C(AC)=777377 777777 -C(E)=777377 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032311 032311 0 0 312140034521 0 777377777777 -IT1 032311 0 0 0 312140034521 0 777377777777 -AT3 032311 0 0 0 000000034521 0 312140034521 -AT6 032311 034521 0 0 000000034521 0 312140034521 -FT0 032311 034521 0 0 777377777777 0 312140034521 -FT1A 032311 034521 0 0 777377777777 0 777377777777 -FT2 032311 034521 0 0 0 0 777377777777 -FT2RQ 032311 034521 0 0 777377777777 0 777377777777 -FT3 032311 034521 0 0 777377777777 0 777377777777 -FT9 032312 034521 0 0 777377777777 0 777377777777 -ET0 032313 034521 0 0 0 0 777377777777 -ST1A 032313 034521 0 0 0 0 777377777777 -ST9 032313 034521 0 0 0 0 777377777777 - - -*032313 JUMPA 0,032314 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032313 032313 0 0 324000032314 0 000000032314 -IT1 032313 0 0 0 324000032314 0 000000032314 -AT3 032313 0 0 0 000000032314 0 324000032314 -AT6 032313 032314 0 0 000000032314 0 324000032314 -FT1A 032313 032314 0 0 000000032314 0 000000032314 -FT2 032313 032314 0 0 0 0 000000032314 -FT2RQ 032313 032314 0 0 000000000017 0 000000032314 -FT3 032313 032314 0 0 000000000017 0 000000032314 -FT9 032314 032314 0 0 000000000017 0 000000032314 -ET0 032314 032314 0 0 000000000017 0 000000032314 -ST1A 032314 032314 0 0 000000000017 0 000000032314 -ST9 032314 032314 0 0 000000000017 0 000000032314 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 266 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0461 - - -*032314 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=777377 777777 -FINAL - -C(E)=777377 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032314 032314 0 0 402000000003 0 000000000003 -IT1 032314 0 0 0 402000000003 0 000000000003 -AT3 032314 0 0 0 000000000003 0 402000000003 -AT6 032314 000003 0 0 000000000003 0 402000000003 -FT1A 032314 000003 0 0 000000000003 0 000000000003 -FT9 032315 000003 0 0 000000000003 0 000000000003 -ET0 032315 000003 0 0 0 0 000000000003 -ST6 032315 000003 0 0 0 0 000000000003 -ST6A 032315 000003 0 0 0 0 000000000003 -ST9 032315 000003 0 0 0 0 000000000003 - - -*032315 HRLOI 1,776777 -INITIAL -C(AC)=777377 777777 -FINAL -C(AC)=776777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032315 032315 0 0 525040776777 0 000000776777 -IT1 032315 0 0 0 525040776777 0 000000776777 -AT3 032315 0 0 0 000000776777 0 525040776777 -AT6 032315 776777 0 0 000000776777 0 525040776777 -FT1A 032315 776777 0 0 000000776777 0 000000776777 -FT9 032316 776777 0 0 000000776777 0 000000776777 -ET0 032316 776777 0 0 776777777777 0 000000776777 -ST1 032316 776777 0 0 776777777777 0 000000776777 -ST2 032316 776777 0 0 776777777777 0 000000776777 -ST9 032316 776777 0 0 776777777777 0 000000776777 - - -*032316 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032316 032316 0 0 201100000001 0 000000000001 -IT1 032316 0 0 0 201100000001 0 000000000001 -AT3 032316 0 0 0 000000000001 0 201100000001 -AT6 032316 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 267 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0462 - -FT1A 032316 000001 0 0 000000000001 0 000000000001 -FT9 032317 000001 0 0 000000000001 0 000000000001 -ET0 032317 000001 0 0 000000000001 0 000000000001 -ST1 032317 000001 0 0 000000000001 0 000000000001 -ST2 032317 000001 0 0 000000000001 0 000000000001 -ST9 032317 000001 0 0 000000000001 0 000000000001 - - -*032317 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=776777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032317 032317 0 0 200142000000 0 776777777777 -IT1 032317 0 0 0 200142000000 0 776777777777 -AT1 032317 0 0 0 0 0 200142000000 -AT2 032317 0 0 0 000000000001 0 200142000000 -AT3 032317 0 0 0 000000000001 0 000000000001 -AT6 032317 000001 0 0 000000000001 0 000000000001 -FT0 032317 000001 0 0 776777777777 0 000000000001 -FT1A 032317 000001 0 0 776777777777 0 776777777777 -FT9 032320 000001 0 0 776777777777 0 776777777777 -ET0 032320 000001 0 0 776777777777 0 776777777777 -ST1 032320 000001 0 0 776777777777 0 776777777777 -ST2 032320 000001 0 0 776777777777 0 776777777777 -ST9 032320 000001 0 0 776777777777 0 776777777777 - - -*032320 CAME 3,034522 -INITIAL -C(AC)=776777 777777 -C(E)=776777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032320 032320 0 0 312140034522 0 776777777777 -IT1 032320 0 0 0 312140034522 0 776777777777 -AT3 032320 0 0 0 000000034522 0 312140034522 -AT6 032320 034522 0 0 000000034522 0 312140034522 -FT0 032320 034522 0 0 776777777777 0 312140034522 -FT1A 032320 034522 0 0 776777777777 0 776777777777 -FT2 032320 034522 0 0 0 0 776777777777 -FT2RQ 032320 034522 0 0 776777777777 0 776777777777 -FT3 032320 034522 0 0 776777777777 0 776777777777 -FT9 032321 034522 0 0 776777777777 0 776777777777 -ET0 032322 034522 0 0 0 0 776777777777 -ST1A 032322 034522 0 0 0 0 776777777777 -ST9 032322 034522 0 0 0 0 776777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 268 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0463 - - - -*032322 JUMPA 0,032323 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032322 032322 0 0 324000032323 0 000000032323 -IT1 032322 0 0 0 324000032323 0 000000032323 -AT3 032322 0 0 0 000000032323 0 324000032323 -AT6 032322 032323 0 0 000000032323 0 324000032323 -FT1A 032322 032323 0 0 000000032323 0 000000032323 -FT2 032322 032323 0 0 0 0 000000032323 -FT2RQ 032322 032323 0 0 000000000017 0 000000032323 -FT3 032322 032323 0 0 000000000017 0 000000032323 -FT9 032323 032323 0 0 000000000017 0 000000032323 -ET0 032323 032323 0 0 000000000017 0 000000032323 -ST1A 032323 032323 0 0 000000000017 0 000000032323 -ST9 032323 032323 0 0 000000000017 0 000000032323 - - -*032323 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=776777 777777 -FINAL - -C(E)=776777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032323 032323 0 0 402000000003 0 000000000003 -IT1 032323 0 0 0 402000000003 0 000000000003 -AT3 032323 0 0 0 000000000003 0 402000000003 -AT6 032323 000003 0 0 000000000003 0 402000000003 -FT1A 032323 000003 0 0 000000000003 0 000000000003 -FT9 032324 000003 0 0 000000000003 0 000000000003 -ET0 032324 000003 0 0 0 0 000000000003 -ST6 032324 000003 0 0 0 0 000000000003 -ST6A 032324 000003 0 0 0 0 000000000003 -ST9 032324 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 269 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0464 - -*032324 HRLOI 1,775777 -INITIAL -C(AC)=776777 777777 -FINAL -C(AC)=775777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032324 032324 0 0 525040775777 0 000000775777 -IT1 032324 0 0 0 525040775777 0 000000775777 -AT3 032324 0 0 0 000000775777 0 525040775777 -AT6 032324 775777 0 0 000000775777 0 525040775777 -FT1A 032324 775777 0 0 000000775777 0 000000775777 -FT9 032325 775777 0 0 000000775777 0 000000775777 -ET0 032325 775777 0 0 775777777777 0 000000775777 -ST1 032325 775777 0 0 775777777777 0 000000775777 -ST2 032325 775777 0 0 775777777777 0 000000775777 -ST9 032325 775777 0 0 775777777777 0 000000775777 - - -*032325 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032325 032325 0 0 201100000001 0 000000000001 -IT1 032325 0 0 0 201100000001 0 000000000001 -AT3 032325 0 0 0 000000000001 0 201100000001 -AT6 032325 000001 0 0 000000000001 0 201100000001 -FT1A 032325 000001 0 0 000000000001 0 000000000001 -FT9 032326 000001 0 0 000000000001 0 000000000001 -ET0 032326 000001 0 0 000000000001 0 000000000001 -ST1 032326 000001 0 0 000000000001 0 000000000001 -ST2 032326 000001 0 0 000000000001 0 000000000001 -ST9 032326 000001 0 0 000000000001 0 000000000001 - - -*032326 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=775777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032326 032326 0 0 200142000000 0 775777777777 -IT1 032326 0 0 0 200142000000 0 775777777777 -AT1 032326 0 0 0 0 0 200142000000 -AT2 032326 0 0 0 000000000001 0 200142000000 -AT3 032326 0 0 0 000000000001 0 000000000001 -AT6 032326 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 270 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0465 - -FT0 032326 000001 0 0 775777777777 0 000000000001 -FT1A 032326 000001 0 0 775777777777 0 775777777777 -FT9 032327 000001 0 0 775777777777 0 775777777777 -ET0 032327 000001 0 0 775777777777 0 775777777777 -ST1 032327 000001 0 0 775777777777 0 775777777777 -ST2 032327 000001 0 0 775777777777 0 775777777777 -ST9 032327 000001 0 0 775777777777 0 775777777777 - - -*032327 CAME 3,034523 -INITIAL -C(AC)=775777 777777 -C(E)=775777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032327 032327 0 0 312140034523 0 775777777777 -IT1 032327 0 0 0 312140034523 0 775777777777 -AT3 032327 0 0 0 000000034523 0 312140034523 -AT6 032327 034523 0 0 000000034523 0 312140034523 -FT0 032327 034523 0 0 775777777777 0 312140034523 -FT1A 032327 034523 0 0 775777777777 0 775777777777 -FT2 032327 034523 0 0 0 0 775777777777 -FT2RQ 032327 034523 0 0 775777777777 0 775777777777 -FT3 032327 034523 0 0 775777777777 0 775777777777 -FT9 032330 034523 0 0 775777777777 0 775777777777 -ET0 032331 034523 0 0 0 0 775777777777 -ST1A 032331 034523 0 0 0 0 775777777777 -ST9 032331 034523 0 0 0 0 775777777777 - - -*032331 JUMPA 0,032332 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032331 032331 0 0 324000032332 0 000000032332 -IT1 032331 0 0 0 324000032332 0 000000032332 -AT3 032331 0 0 0 000000032332 0 324000032332 -AT6 032331 032332 0 0 000000032332 0 324000032332 -FT1A 032331 032332 0 0 000000032332 0 000000032332 -FT2 032331 032332 0 0 0 0 000000032332 -FT2RQ 032331 032332 0 0 000000000017 0 000000032332 -FT3 032331 032332 0 0 000000000017 0 000000032332 -FT9 032332 032332 0 0 000000000017 0 000000032332 -ET0 032332 032332 0 0 000000000017 0 000000032332 -ST1A 032332 032332 0 0 000000000017 0 000000032332 -ST9 032332 032332 0 0 000000000017 0 000000032332 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 271 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0466 - - -*032332 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=775777 777777 -FINAL - -C(E)=775777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032332 032332 0 0 402000000003 0 000000000003 -IT1 032332 0 0 0 402000000003 0 000000000003 -AT3 032332 0 0 0 000000000003 0 402000000003 -AT6 032332 000003 0 0 000000000003 0 402000000003 -FT1A 032332 000003 0 0 000000000003 0 000000000003 -FT9 032333 000003 0 0 000000000003 0 000000000003 -ET0 032333 000003 0 0 0 0 000000000003 -ST6 032333 000003 0 0 0 0 000000000003 -ST6A 032333 000003 0 0 0 0 000000000003 -ST9 032333 000003 0 0 0 0 000000000003 - - -*032333 HRLOI 1,773777 -INITIAL -C(AC)=775777 777777 -FINAL -C(AC)=773777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032333 032333 0 0 525040773777 0 000000773777 -IT1 032333 0 0 0 525040773777 0 000000773777 -AT3 032333 0 0 0 000000773777 0 525040773777 -AT6 032333 773777 0 0 000000773777 0 525040773777 -FT1A 032333 773777 0 0 000000773777 0 000000773777 -FT9 032334 773777 0 0 000000773777 0 000000773777 -ET0 032334 773777 0 0 773777777777 0 000000773777 -ST1 032334 773777 0 0 773777777777 0 000000773777 -ST2 032334 773777 0 0 773777777777 0 000000773777 -ST9 032334 773777 0 0 773777777777 0 000000773777 - - -*032334 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032334 032334 0 0 201100000001 0 000000000001 -IT1 032334 0 0 0 201100000001 0 000000000001 -AT3 032334 0 0 0 000000000001 0 201100000001 -AT6 032334 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 272 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0467 - -FT1A 032334 000001 0 0 000000000001 0 000000000001 -FT9 032335 000001 0 0 000000000001 0 000000000001 -ET0 032335 000001 0 0 000000000001 0 000000000001 -ST1 032335 000001 0 0 000000000001 0 000000000001 -ST2 032335 000001 0 0 000000000001 0 000000000001 -ST9 032335 000001 0 0 000000000001 0 000000000001 - - -*032335 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=773777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032335 032335 0 0 200142000000 0 773777777777 -IT1 032335 0 0 0 200142000000 0 773777777777 -AT1 032335 0 0 0 0 0 200142000000 -AT2 032335 0 0 0 000000000001 0 200142000000 -AT3 032335 0 0 0 000000000001 0 000000000001 -AT6 032335 000001 0 0 000000000001 0 000000000001 -FT0 032335 000001 0 0 773777777777 0 000000000001 -FT1A 032335 000001 0 0 773777777777 0 773777777777 -FT9 032336 000001 0 0 773777777777 0 773777777777 -ET0 032336 000001 0 0 773777777777 0 773777777777 -ST1 032336 000001 0 0 773777777777 0 773777777777 -ST2 032336 000001 0 0 773777777777 0 773777777777 -ST9 032336 000001 0 0 773777777777 0 773777777777 - - -*032336 CAME 3,034524 -INITIAL -C(AC)=773777 777777 -C(E)=773777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032336 032336 0 0 312140034524 0 773777777777 -IT1 032336 0 0 0 312140034524 0 773777777777 -AT3 032336 0 0 0 000000034524 0 312140034524 -AT6 032336 034524 0 0 000000034524 0 312140034524 -FT0 032336 034524 0 0 773777777777 0 312140034524 -FT1A 032336 034524 0 0 773777777777 0 773777777777 -FT2 032336 034524 0 0 0 0 773777777777 -FT2RQ 032336 034524 0 0 773777777777 0 773777777777 -FT3 032336 034524 0 0 773777777777 0 773777777777 -FT9 032337 034524 0 0 773777777777 0 773777777777 -ET0 032340 034524 0 0 0 0 773777777777 -ST1A 032340 034524 0 0 0 0 773777777777 -ST9 032340 034524 0 0 0 0 773777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 273 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0468 - - - -*032340 JUMPA 0,032341 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032340 032340 0 0 324000032341 0 000000032341 -IT1 032340 0 0 0 324000032341 0 000000032341 -AT3 032340 0 0 0 000000032341 0 324000032341 -AT6 032340 032341 0 0 000000032341 0 324000032341 -FT1A 032340 032341 0 0 000000032341 0 000000032341 -FT2 032340 032341 0 0 0 0 000000032341 -FT2RQ 032340 032341 0 0 000000000017 0 000000032341 -FT3 032340 032341 0 0 000000000017 0 000000032341 -FT9 032341 032341 0 0 000000000017 0 000000032341 -ET0 032341 032341 0 0 000000000017 0 000000032341 -ST1A 032341 032341 0 0 000000000017 0 000000032341 -ST9 032341 032341 0 0 000000000017 0 000000032341 - - -*032341 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=773777 777777 -FINAL - -C(E)=773777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032341 032341 0 0 402000000003 0 000000000003 -IT1 032341 0 0 0 402000000003 0 000000000003 -AT3 032341 0 0 0 000000000003 0 402000000003 -AT6 032341 000003 0 0 000000000003 0 402000000003 -FT1A 032341 000003 0 0 000000000003 0 000000000003 -FT9 032342 000003 0 0 000000000003 0 000000000003 -ET0 032342 000003 0 0 0 0 000000000003 -ST6 032342 000003 0 0 0 0 000000000003 -ST6A 032342 000003 0 0 0 0 000000000003 -ST9 032342 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 274 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0469 - -*032342 HRLOI 1,767777 -INITIAL -C(AC)=773777 777777 -FINAL -C(AC)=767777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032342 032342 0 0 525040767777 0 000000767777 -IT1 032342 0 0 0 525040767777 0 000000767777 -AT3 032342 0 0 0 000000767777 0 525040767777 -AT6 032342 767777 0 0 000000767777 0 525040767777 -FT1A 032342 767777 0 0 000000767777 0 000000767777 -FT9 032343 767777 0 0 000000767777 0 000000767777 -ET0 032343 767777 0 0 767777777777 0 000000767777 -ST1 032343 767777 0 0 767777777777 0 000000767777 -ST2 032343 767777 0 0 767777777777 0 000000767777 -ST9 032343 767777 0 0 767777777777 0 000000767777 - - -*032343 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032343 032343 0 0 201100000001 0 000000000001 -IT1 032343 0 0 0 201100000001 0 000000000001 -AT3 032343 0 0 0 000000000001 0 201100000001 -AT6 032343 000001 0 0 000000000001 0 201100000001 -FT1A 032343 000001 0 0 000000000001 0 000000000001 -FT9 032344 000001 0 0 000000000001 0 000000000001 -ET0 032344 000001 0 0 000000000001 0 000000000001 -ST1 032344 000001 0 0 000000000001 0 000000000001 -ST2 032344 000001 0 0 000000000001 0 000000000001 -ST9 032344 000001 0 0 000000000001 0 000000000001 - - -*032344 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=767777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032344 032344 0 0 200142000000 0 767777777777 -IT1 032344 0 0 0 200142000000 0 767777777777 -AT1 032344 0 0 0 0 0 200142000000 -AT2 032344 0 0 0 000000000001 0 200142000000 -AT3 032344 0 0 0 000000000001 0 000000000001 -AT6 032344 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 275 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0470 - -FT0 032344 000001 0 0 767777777777 0 000000000001 -FT1A 032344 000001 0 0 767777777777 0 767777777777 -FT9 032345 000001 0 0 767777777777 0 767777777777 -ET0 032345 000001 0 0 767777777777 0 767777777777 -ST1 032345 000001 0 0 767777777777 0 767777777777 -ST2 032345 000001 0 0 767777777777 0 767777777777 -ST9 032345 000001 0 0 767777777777 0 767777777777 - - -*032345 CAME 3,034525 -INITIAL -C(AC)=767777 777777 -C(E)=767777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032345 032345 0 0 312140034525 0 767777777777 -IT1 032345 0 0 0 312140034525 0 767777777777 -AT3 032345 0 0 0 000000034525 0 312140034525 -AT6 032345 034525 0 0 000000034525 0 312140034525 -FT0 032345 034525 0 0 767777777777 0 312140034525 -FT1A 032345 034525 0 0 767777777777 0 767777777777 -FT2 032345 034525 0 0 0 0 767777777777 -FT2RQ 032345 034525 0 0 767777777777 0 767777777777 -FT3 032345 034525 0 0 767777777777 0 767777777777 -FT9 032346 034525 0 0 767777777777 0 767777777777 -ET0 032347 034525 0 0 0 0 767777777777 -ST1A 032347 034525 0 0 0 0 767777777777 -ST9 032347 034525 0 0 0 0 767777777777 - - -*032347 JUMPA 0,032350 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032347 032347 0 0 324000032350 0 000000032350 -IT1 032347 0 0 0 324000032350 0 000000032350 -AT3 032347 0 0 0 000000032350 0 324000032350 -AT6 032347 032350 0 0 000000032350 0 324000032350 -FT1A 032347 032350 0 0 000000032350 0 000000032350 -FT2 032347 032350 0 0 0 0 000000032350 -FT2RQ 032347 032350 0 0 000000000017 0 000000032350 -FT3 032347 032350 0 0 000000000017 0 000000032350 -FT9 032350 032350 0 0 000000000017 0 000000032350 -ET0 032350 032350 0 0 000000000017 0 000000032350 -ST1A 032350 032350 0 0 000000000017 0 000000032350 -ST9 032350 032350 0 0 000000000017 0 000000032350 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 276 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0471 - - -*032350 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=767777 777777 -FINAL - -C(E)=767777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032350 032350 0 0 402000000003 0 000000000003 -IT1 032350 0 0 0 402000000003 0 000000000003 -AT3 032350 0 0 0 000000000003 0 402000000003 -AT6 032350 000003 0 0 000000000003 0 402000000003 -FT1A 032350 000003 0 0 000000000003 0 000000000003 -FT9 032351 000003 0 0 000000000003 0 000000000003 -ET0 032351 000003 0 0 0 0 000000000003 -ST6 032351 000003 0 0 0 0 000000000003 -ST6A 032351 000003 0 0 0 0 000000000003 -ST9 032351 000003 0 0 0 0 000000000003 - - -*032351 HRLOI 1,757777 -INITIAL -C(AC)=767777 777777 -FINAL -C(AC)=757777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032351 032351 0 0 525040757777 0 000000757777 -IT1 032351 0 0 0 525040757777 0 000000757777 -AT3 032351 0 0 0 000000757777 0 525040757777 -AT6 032351 757777 0 0 000000757777 0 525040757777 -FT1A 032351 757777 0 0 000000757777 0 000000757777 -FT9 032352 757777 0 0 000000757777 0 000000757777 -ET0 032352 757777 0 0 757777777777 0 000000757777 -ST1 032352 757777 0 0 757777777777 0 000000757777 -ST2 032352 757777 0 0 757777777777 0 000000757777 -ST9 032352 757777 0 0 757777777777 0 000000757777 - - -*032352 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032352 032352 0 0 201100000001 0 000000000001 -IT1 032352 0 0 0 201100000001 0 000000000001 -AT3 032352 0 0 0 000000000001 0 201100000001 -AT6 032352 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 277 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0472 - -FT1A 032352 000001 0 0 000000000001 0 000000000001 -FT9 032353 000001 0 0 000000000001 0 000000000001 -ET0 032353 000001 0 0 000000000001 0 000000000001 -ST1 032353 000001 0 0 000000000001 0 000000000001 -ST2 032353 000001 0 0 000000000001 0 000000000001 -ST9 032353 000001 0 0 000000000001 0 000000000001 - - -*032353 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=757777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032353 032353 0 0 200142000000 0 757777777777 -IT1 032353 0 0 0 200142000000 0 757777777777 -AT1 032353 0 0 0 0 0 200142000000 -AT2 032353 0 0 0 000000000001 0 200142000000 -AT3 032353 0 0 0 000000000001 0 000000000001 -AT6 032353 000001 0 0 000000000001 0 000000000001 -FT0 032353 000001 0 0 757777777777 0 000000000001 -FT1A 032353 000001 0 0 757777777777 0 757777777777 -FT9 032354 000001 0 0 757777777777 0 757777777777 -ET0 032354 000001 0 0 757777777777 0 757777777777 -ST1 032354 000001 0 0 757777777777 0 757777777777 -ST2 032354 000001 0 0 757777777777 0 757777777777 -ST9 032354 000001 0 0 757777777777 0 757777777777 - - -*032354 CAME 3,034526 -INITIAL -C(AC)=757777 777777 -C(E)=757777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032354 032354 0 0 312140034526 0 757777777777 -IT1 032354 0 0 0 312140034526 0 757777777777 -AT3 032354 0 0 0 000000034526 0 312140034526 -AT6 032354 034526 0 0 000000034526 0 312140034526 -FT0 032354 034526 0 0 757777777777 0 312140034526 -FT1A 032354 034526 0 0 757777777777 0 757777777777 -FT2 032354 034526 0 0 0 0 757777777777 -FT2RQ 032354 034526 0 0 757777777777 0 757777777777 -FT3 032354 034526 0 0 757777777777 0 757777777777 -FT9 032355 034526 0 0 757777777777 0 757777777777 -ET0 032356 034526 0 0 0 0 757777777777 -ST1A 032356 034526 0 0 0 0 757777777777 -ST9 032356 034526 0 0 0 0 757777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 278 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0473 - - - -*032356 JUMPA 0,032357 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032356 032356 0 0 324000032357 0 000000032357 -IT1 032356 0 0 0 324000032357 0 000000032357 -AT3 032356 0 0 0 000000032357 0 324000032357 -AT6 032356 032357 0 0 000000032357 0 324000032357 -FT1A 032356 032357 0 0 000000032357 0 000000032357 -FT2 032356 032357 0 0 0 0 000000032357 -FT2RQ 032356 032357 0 0 000000000017 0 000000032357 -FT3 032356 032357 0 0 000000000017 0 000000032357 -FT9 032357 032357 0 0 000000000017 0 000000032357 -ET0 032357 032357 0 0 000000000017 0 000000032357 -ST1A 032357 032357 0 0 000000000017 0 000000032357 -ST9 032357 032357 0 0 000000000017 0 000000032357 - - -*032357 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=757777 777777 -FINAL - -C(E)=757777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032357 032357 0 0 402000000003 0 000000000003 -IT1 032357 0 0 0 402000000003 0 000000000003 -AT3 032357 0 0 0 000000000003 0 402000000003 -AT6 032357 000003 0 0 000000000003 0 402000000003 -FT1A 032357 000003 0 0 000000000003 0 000000000003 -FT9 032360 000003 0 0 000000000003 0 000000000003 -ET0 032360 000003 0 0 0 0 000000000003 -ST6 032360 000003 0 0 0 0 000000000003 -ST6A 032360 000003 0 0 0 0 000000000003 -ST9 032360 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 279 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0474 - -*032360 HRLOI 1,737777 -INITIAL -C(AC)=757777 777777 -FINAL -C(AC)=737777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032360 032360 0 0 525040737777 0 000000737777 -IT1 032360 0 0 0 525040737777 0 000000737777 -AT3 032360 0 0 0 000000737777 0 525040737777 -AT6 032360 737777 0 0 000000737777 0 525040737777 -FT1A 032360 737777 0 0 000000737777 0 000000737777 -FT9 032361 737777 0 0 000000737777 0 000000737777 -ET0 032361 737777 0 0 737777777777 0 000000737777 -ST1 032361 737777 0 0 737777777777 0 000000737777 -ST2 032361 737777 0 0 737777777777 0 000000737777 -ST9 032361 737777 0 0 737777777777 0 000000737777 - - -*032361 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032361 032361 0 0 201100000001 0 000000000001 -IT1 032361 0 0 0 201100000001 0 000000000001 -AT3 032361 0 0 0 000000000001 0 201100000001 -AT6 032361 000001 0 0 000000000001 0 201100000001 -FT1A 032361 000001 0 0 000000000001 0 000000000001 -FT9 032362 000001 0 0 000000000001 0 000000000001 -ET0 032362 000001 0 0 000000000001 0 000000000001 -ST1 032362 000001 0 0 000000000001 0 000000000001 -ST2 032362 000001 0 0 000000000001 0 000000000001 -ST9 032362 000001 0 0 000000000001 0 000000000001 - - -*032362 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=737777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032362 032362 0 0 200142000000 0 737777777777 -IT1 032362 0 0 0 200142000000 0 737777777777 -AT1 032362 0 0 0 0 0 200142000000 -AT2 032362 0 0 0 000000000001 0 200142000000 -AT3 032362 0 0 0 000000000001 0 000000000001 -AT6 032362 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 280 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0475 - -FT0 032362 000001 0 0 737777777777 0 000000000001 -FT1A 032362 000001 0 0 737777777777 0 737777777777 -FT9 032363 000001 0 0 737777777777 0 737777777777 -ET0 032363 000001 0 0 737777777777 0 737777777777 -ST1 032363 000001 0 0 737777777777 0 737777777777 -ST2 032363 000001 0 0 737777777777 0 737777777777 -ST9 032363 000001 0 0 737777777777 0 737777777777 - - -*032363 CAME 3,034527 -INITIAL -C(AC)=737777 777777 -C(E)=737777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032363 032363 0 0 312140034527 0 737777777777 -IT1 032363 0 0 0 312140034527 0 737777777777 -AT3 032363 0 0 0 000000034527 0 312140034527 -AT6 032363 034527 0 0 000000034527 0 312140034527 -FT0 032363 034527 0 0 737777777777 0 312140034527 -FT1A 032363 034527 0 0 737777777777 0 737777777777 -FT2 032363 034527 0 0 0 0 737777777777 -FT2RQ 032363 034527 0 0 737777777777 0 737777777777 -FT3 032363 034527 0 0 737777777777 0 737777777777 -FT9 032364 034527 0 0 737777777777 0 737777777777 -ET0 032365 034527 0 0 0 0 737777777777 -ST1A 032365 034527 0 0 0 0 737777777777 -ST9 032365 034527 0 0 0 0 737777777777 - - -*032365 JUMPA 0,032366 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032365 032365 0 0 324000032366 0 000000032366 -IT1 032365 0 0 0 324000032366 0 000000032366 -AT3 032365 0 0 0 000000032366 0 324000032366 -AT6 032365 032366 0 0 000000032366 0 324000032366 -FT1A 032365 032366 0 0 000000032366 0 000000032366 -FT2 032365 032366 0 0 0 0 000000032366 -FT2RQ 032365 032366 0 0 000000000017 0 000000032366 -FT3 032365 032366 0 0 000000000017 0 000000032366 -FT9 032366 032366 0 0 000000000017 0 000000032366 -ET0 032366 032366 0 0 000000000017 0 000000032366 -ST1A 032366 032366 0 0 000000000017 0 000000032366 -ST9 032366 032366 0 0 000000000017 0 000000032366 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 281 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0476 - - -*032366 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=737777 777777 -FINAL - -C(E)=737777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032366 032366 0 0 402000000003 0 000000000003 -IT1 032366 0 0 0 402000000003 0 000000000003 -AT3 032366 0 0 0 000000000003 0 402000000003 -AT6 032366 000003 0 0 000000000003 0 402000000003 -FT1A 032366 000003 0 0 000000000003 0 000000000003 -FT9 032367 000003 0 0 000000000003 0 000000000003 -ET0 032367 000003 0 0 0 0 000000000003 -ST6 032367 000003 0 0 0 0 000000000003 -ST6A 032367 000003 0 0 0 0 000000000003 -ST9 032367 000003 0 0 0 0 000000000003 - - -*032367 HRLOI 1,677777 -INITIAL -C(AC)=737777 777777 -FINAL -C(AC)=677777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032367 032367 0 0 525040677777 0 000000677777 -IT1 032367 0 0 0 525040677777 0 000000677777 -AT3 032367 0 0 0 000000677777 0 525040677777 -AT6 032367 677777 0 0 000000677777 0 525040677777 -FT1A 032367 677777 0 0 000000677777 0 000000677777 -FT9 032370 677777 0 0 000000677777 0 000000677777 -ET0 032370 677777 0 0 677777777777 0 000000677777 -ST1 032370 677777 0 0 677777777777 0 000000677777 -ST2 032370 677777 0 0 677777777777 0 000000677777 -ST9 032370 677777 0 0 677777777777 0 000000677777 - - -*032370 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032370 032370 0 0 201100000001 0 000000000001 -IT1 032370 0 0 0 201100000001 0 000000000001 -AT3 032370 0 0 0 000000000001 0 201100000001 -AT6 032370 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 282 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0477 - -FT1A 032370 000001 0 0 000000000001 0 000000000001 -FT9 032371 000001 0 0 000000000001 0 000000000001 -ET0 032371 000001 0 0 000000000001 0 000000000001 -ST1 032371 000001 0 0 000000000001 0 000000000001 -ST2 032371 000001 0 0 000000000001 0 000000000001 -ST9 032371 000001 0 0 000000000001 0 000000000001 - - -*032371 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=677777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032371 032371 0 0 200142000000 0 677777777777 -IT1 032371 0 0 0 200142000000 0 677777777777 -AT1 032371 0 0 0 0 0 200142000000 -AT2 032371 0 0 0 000000000001 0 200142000000 -AT3 032371 0 0 0 000000000001 0 000000000001 -AT6 032371 000001 0 0 000000000001 0 000000000001 -FT0 032371 000001 0 0 677777777777 0 000000000001 -FT1A 032371 000001 0 0 677777777777 0 677777777777 -FT9 032372 000001 0 0 677777777777 0 677777777777 -ET0 032372 000001 0 0 677777777777 0 677777777777 -ST1 032372 000001 0 0 677777777777 0 677777777777 -ST2 032372 000001 0 0 677777777777 0 677777777777 -ST9 032372 000001 0 0 677777777777 0 677777777777 - - -*032372 CAME 3,034530 -INITIAL -C(AC)=677777 777777 -C(E)=677777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032372 032372 0 0 312140034530 0 677777777777 -IT1 032372 0 0 0 312140034530 0 677777777777 -AT3 032372 0 0 0 000000034530 0 312140034530 -AT6 032372 034530 0 0 000000034530 0 312140034530 -FT0 032372 034530 0 0 677777777777 0 312140034530 -FT1A 032372 034530 0 0 677777777777 0 677777777777 -FT2 032372 034530 0 0 0 0 677777777777 -FT2RQ 032372 034530 0 0 677777777777 0 677777777777 -FT3 032372 034530 0 0 677777777777 0 677777777777 -FT9 032373 034530 0 0 677777777777 0 677777777777 -ET0 032374 034530 0 0 0 0 677777777777 -ST1A 032374 034530 0 0 0 0 677777777777 -ST9 032374 034530 0 0 0 0 677777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 283 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0478 - - - -*032374 JUMPA 0,032375 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032374 032374 0 0 324000032375 0 000000032375 -IT1 032374 0 0 0 324000032375 0 000000032375 -AT3 032374 0 0 0 000000032375 0 324000032375 -AT6 032374 032375 0 0 000000032375 0 324000032375 -FT1A 032374 032375 0 0 000000032375 0 000000032375 -FT2 032374 032375 0 0 0 0 000000032375 -FT2RQ 032374 032375 0 0 000000000017 0 000000032375 -FT3 032374 032375 0 0 000000000017 0 000000032375 -FT9 032375 032375 0 0 000000000017 0 000000032375 -ET0 032375 032375 0 0 000000000017 0 000000032375 -ST1A 032375 032375 0 0 000000000017 0 000000032375 -ST9 032375 032375 0 0 000000000017 0 000000032375 - - -*032375 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=677777 777777 -FINAL - -C(E)=677777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032375 032375 0 0 402000000003 0 000000000003 -IT1 032375 0 0 0 402000000003 0 000000000003 -AT3 032375 0 0 0 000000000003 0 402000000003 -AT6 032375 000003 0 0 000000000003 0 402000000003 -FT1A 032375 000003 0 0 000000000003 0 000000000003 -FT9 032376 000003 0 0 000000000003 0 000000000003 -ET0 032376 000003 0 0 0 0 000000000003 -ST6 032376 000003 0 0 0 0 000000000003 -ST6A 032376 000003 0 0 0 0 000000000003 -ST9 032376 000003 0 0 0 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 284 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0479 - -*032376 HRLOI 1,577777 -INITIAL -C(AC)=677777 777777 -FINAL -C(AC)=577777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032376 032376 0 0 525040577777 0 000000577777 -IT1 032376 0 0 0 525040577777 0 000000577777 -AT3 032376 0 0 0 000000577777 0 525040577777 -AT6 032376 577777 0 0 000000577777 0 525040577777 -FT1A 032376 577777 0 0 000000577777 0 000000577777 -FT9 032377 577777 0 0 000000577777 0 000000577777 -ET0 032377 577777 0 0 577777777777 0 000000577777 -ST1 032377 577777 0 0 577777777777 0 000000577777 -ST2 032377 577777 0 0 577777777777 0 000000577777 -ST9 032377 577777 0 0 577777777777 0 000000577777 - - -*032377 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032377 032377 0 0 201100000001 0 000000000001 -IT1 032377 0 0 0 201100000001 0 000000000001 -AT3 032377 0 0 0 000000000001 0 201100000001 -AT6 032377 000001 0 0 000000000001 0 201100000001 -FT1A 032377 000001 0 0 000000000001 0 000000000001 -FT9 0 000001 0 0 000000000001 0 000000000001 -ET0 0 000001 0 0 000000000001 0 000000000001 -ST1 0 000001 0 0 000000000001 0 000000000001 -ST2 0 000001 0 0 000000000001 0 000000000001 -ST9 0 000001 0 0 000000000001 0 000000000001 - - -*032400 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=577777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 200142000000 0 577777777777 -IT1 0 0 0 0 200142000000 0 577777777777 -AT1 0 0 0 0 0 0 200142000000 -AT2 0 0 0 0 000000000001 0 200142000000 -AT3 0 0 0 0 000000000001 0 000000000001 -AT6 0 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 285 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0480 - -FT0 0 000001 0 0 577777777777 0 000000000001 -FT1A 0 000001 0 0 577777777777 0 577777777777 -FT9 032401 000001 0 0 577777777777 0 577777777777 -ET0 032401 000001 0 0 577777777777 0 577777777777 -ST1 032401 000001 0 0 577777777777 0 577777777777 -ST2 032401 000001 0 0 577777777777 0 577777777777 -ST9 032401 000001 0 0 577777777777 0 577777777777 - - -*032401 CAME 3,034531 -INITIAL -C(AC)=577777 777777 -C(E)=577777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032401 032401 0 0 312140034531 0 577777777777 -IT1 032401 0 0 0 312140034531 0 577777777777 -AT3 032401 0 0 0 000000034531 0 312140034531 -AT6 032401 034531 0 0 000000034531 0 312140034531 -FT0 032401 034531 0 0 577777777777 0 312140034531 -FT1A 032401 034531 0 0 577777777777 0 577777777777 -FT2 032401 034531 0 0 0 0 577777777777 -FT2RQ 032401 034531 0 0 577777777777 0 577777777777 -FT3 032401 034531 0 0 577777777777 0 577777777777 -FT9 032402 034531 0 0 577777777777 0 577777777777 -ET0 032403 034531 0 0 0 0 577777777777 -ST1A 032403 034531 0 0 0 0 577777777777 -ST9 032403 034531 0 0 0 0 577777777777 - - -*032403 JUMPA 0,032404 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032403 032403 0 0 324000032404 0 000000032404 -IT1 032403 0 0 0 324000032404 0 000000032404 -AT3 032403 0 0 0 000000032404 0 324000032404 -AT6 032403 032404 0 0 000000032404 0 324000032404 -FT1A 032403 032404 0 0 000000032404 0 000000032404 -FT2 032403 032404 0 0 0 0 000000032404 -FT2RQ 032403 032404 0 0 000000000017 0 000000032404 -FT3 032403 032404 0 0 000000000017 0 000000032404 -FT9 032404 032404 0 0 000000000017 0 000000032404 -ET0 032404 032404 0 0 000000000017 0 000000032404 -ST1A 032404 032404 0 0 000000000017 0 000000032404 -ST9 032404 032404 0 0 000000000017 0 000000032404 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 286 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0481 - - -*032404 SETZM 0,000003 -INITIAL -C(AC)=000000 000017 -C(E)=577777 777777 -FINAL - -C(E)=577777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032404 032404 0 0 402000000003 0 000000000003 -IT1 032404 0 0 0 402000000003 0 000000000003 -AT3 032404 0 0 0 000000000003 0 402000000003 -AT6 032404 000003 0 0 000000000003 0 402000000003 -FT1A 032404 000003 0 0 000000000003 0 000000000003 -FT9 032405 000003 0 0 000000000003 0 000000000003 -ET0 032405 000003 0 0 0 0 000000000003 -ST6 032405 000003 0 0 0 0 000000000003 -ST6A 032405 000003 0 0 0 0 000000000003 -ST9 032405 000003 0 0 0 0 000000000003 - - -*032405 HRLOI 1,377777 -INITIAL -C(AC)=577777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032405 032405 0 0 525040377777 0 000000377777 -IT1 032405 0 0 0 525040377777 0 000000377777 -AT3 032405 0 0 0 000000377777 0 525040377777 -AT6 032405 377777 0 0 000000377777 0 525040377777 -FT1A 032405 377777 0 0 000000377777 0 000000377777 -FT9 032406 377777 0 0 000000377777 0 000000377777 -ET0 032406 377777 0 0 377777777777 0 000000377777 -ST1 032406 377777 0 0 377777777777 0 000000377777 -ST2 032406 377777 0 0 377777777777 0 000000377777 -ST9 032406 377777 0 0 377777777777 0 000000377777 - - -*032406 MOVEI 2,000001 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032406 032406 0 0 201100000001 0 000000000001 -IT1 032406 0 0 0 201100000001 0 000000000001 -AT3 032406 0 0 0 000000000001 0 201100000001 -AT6 032406 000001 0 0 000000000001 0 201100000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 287 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0482 - -FT1A 032406 000001 0 0 000000000001 0 000000000001 -FT9 032407 000001 0 0 000000000001 0 000000000001 -ET0 032407 000001 0 0 000000000001 0 000000000001 -ST1 032407 000001 0 0 000000000001 0 000000000001 -ST2 032407 000001 0 0 000000000001 0 000000000001 -ST9 032407 000001 0 0 000000000001 0 000000000001 - - -*032407 MOVE 3,000000(2) -INITIAL -C(AC)=000000 000000 -C(E)=000000 000017 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032407 032407 0 0 200142000000 0 377777777777 -IT1 032407 0 0 0 200142000000 0 377777777777 -AT1 032407 0 0 0 0 0 200142000000 -AT2 032407 0 0 0 000000000001 0 200142000000 -AT3 032407 0 0 0 000000000001 0 000000000001 -AT6 032407 000001 0 0 000000000001 0 000000000001 -FT0 032407 000001 0 0 377777777777 0 000000000001 -FT1A 032407 000001 0 0 377777777777 0 377777777777 -FT9 032410 000001 0 0 377777777777 0 377777777777 -ET0 032410 000001 0 0 377777777777 0 377777777777 -ST1 032410 000001 0 0 377777777777 0 377777777777 -ST2 032410 000001 0 0 377777777777 0 377777777777 -ST9 032410 000001 0 0 377777777777 0 377777777777 - - -*032410 CAME 3,034532 -INITIAL -C(AC)=377777 777777 -C(E)=377777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032410 032410 0 0 312140034532 0 377777777777 -IT1 032410 0 0 0 312140034532 0 377777777777 -AT3 032410 0 0 0 000000034532 0 312140034532 -AT6 032410 034532 0 0 000000034532 0 312140034532 -FT0 032410 034532 0 0 377777777777 0 312140034532 -FT1A 032410 034532 0 0 377777777777 0 377777777777 -FT2 032410 034532 0 0 0 0 377777777777 -FT2RQ 032410 034532 0 0 377777777777 0 377777777777 -FT3 032410 034532 0 0 377777777777 0 377777777777 -FT9 032411 034532 0 0 377777777777 0 377777777777 -ET0 032412 034532 0 0 0 0 377777777777 -ST1A 032412 034532 0 0 0 0 377777777777 -ST9 032412 034532 0 0 0 0 377777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 288 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0483 - - - -*032412 JUMPA 0,032413 -INITIAL -C(AC)=000000 000017 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032412 032412 0 0 324000032413 0 000000032413 -IT1 032412 0 0 0 324000032413 0 000000032413 -AT3 032412 0 0 0 000000032413 0 324000032413 -AT6 032412 032413 0 0 000000032413 0 324000032413 -FT1A 032412 032413 0 0 000000032413 0 000000032413 -FT2 032412 032413 0 0 0 0 000000032413 -FT2RQ 032412 032413 0 0 000000000017 0 000000032413 -FT3 032412 032413 0 0 000000000017 0 000000032413 -FT9 032413 032413 0 0 000000000017 0 000000032413 -ET0 032413 032413 0 0 000000000017 0 000000032413 -ST1A 032413 032413 0 0 000000000017 0 000000032413 -ST9 032413 032413 0 0 000000000017 0 000000032413 - - -*032413 MOVEI 1,000005 -INITIAL -C(AC)=377777 777777 -FINAL -C(AC)=000000 000005 - -TIME PC MA SC FE AR MQ BR -IT0 032413 032413 0 0 201040000005 0 000000000005 -IT1 032413 0 0 0 201040000005 0 000000000005 -AT3 032413 0 0 0 000000000005 0 201040000005 -AT6 032413 000005 0 0 000000000005 0 201040000005 -FT1A 032413 000005 0 0 000000000005 0 000000000005 -FT9 032414 000005 0 0 000000000005 0 000000000005 -ET0 032414 000005 0 0 000000000005 0 000000000005 -ST1 032414 000005 0 0 000000000005 0 000000000005 -ST2 032414 000005 0 0 000000000005 0 000000000005 -ST9 032414 000005 0 0 000000000005 0 000000000005 - - -*032414 MOVEI 0,000000 -INITIAL -C(AC)=000000 000017 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032414 032414 0 0 201000000000 0 0 -IT1 032414 0 0 0 201000000000 0 0 -AT3 032414 0 0 0 0 0 201000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 289 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0484 - -AT6 032414 0 0 0 0 0 201000000000 -FT1A 032414 0 0 0 0 0 0 -FT9 032415 0 0 0 0 0 0 -ET0 032415 0 0 0 0 0 0 -ST1 032415 0 0 0 0 0 0 -ST2 032415 0 0 0 0 0 0 -ST9 032415 0 0 0 0 0 0 - - -*032415 CAIE 0,777773(1) -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032415 032415 0 0 302001777773 0 0 -IT1 032415 0 0 0 302001777773 0 0 -AT1 032415 0 0 0 0 0 302001777773 -AT2 032415 0 0 0 000000000005 0 302001777773 -AT3 032415 0 0 0 0 0 0 -AT6 032415 0 0 0 0 0 0 -FT1A 032415 0 0 0 0 0 0 -FT2 032415 0 0 0 0 0 0 -FT2RQ 032415 0 0 0 0 0 0 -FT3 032415 0 0 0 0 0 0 -FT9 032416 0 0 0 0 0 0 -ET0 032417 0 0 0 0 0 0 -ST1A 032417 0 0 0 0 0 0 -ST9 032417 0 0 0 0 0 0 - - -*032417 JUMPA 0,032420 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032417 032417 0 0 324000032420 0 000000032420 -IT1 032417 0 0 0 324000032420 0 000000032420 -AT3 032417 0 0 0 000000032420 0 324000032420 -AT6 032417 032420 0 0 000000032420 0 324000032420 -FT1A 032417 032420 0 0 000000032420 0 000000032420 -FT2 032417 032420 0 0 0 0 000000032420 -FT2RQ 032417 032420 0 0 0 0 000000032420 -FT3 032417 032420 0 0 0 0 000000032420 -FT9 032420 032420 0 0 0 0 000000032420 -ET0 032420 032420 0 0 0 0 000000032420 -ST1A 032420 032420 0 0 0 0 000000032420 -ST9 032420 032420 0 0 0 0 000000032420 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 290 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0485 - - -*032420 MOVEI 2,000003 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000003 - -TIME PC MA SC FE AR MQ BR -IT0 032420 032420 0 0 201100000003 0 000000000003 -IT1 032420 0 0 0 201100000003 0 000000000003 -AT3 032420 0 0 0 000000000003 0 201100000003 -AT6 032420 000003 0 0 000000000003 0 201100000003 -FT1A 032420 000003 0 0 000000000003 0 000000000003 -FT9 032421 000003 0 0 000000000003 0 000000000003 -ET0 032421 000003 0 0 000000000003 0 000000000003 -ST1 032421 000003 0 0 000000000003 0 000000000003 -ST2 032421 000003 0 0 000000000003 0 000000000003 -ST9 032421 000003 0 0 000000000003 0 000000000003 - - -*032421 MOVEI 1,000001 -INITIAL -C(AC)=000000 000005 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032421 032421 0 0 201040000001 0 000000000001 -IT1 032421 0 0 0 201040000001 0 000000000001 -AT3 032421 0 0 0 000000000001 0 201040000001 -AT6 032421 000001 0 0 000000000001 0 201040000001 -FT1A 032421 000001 0 0 000000000001 0 000000000001 -FT9 032422 000001 0 0 000000000001 0 000000000001 -ET0 032422 000001 0 0 000000000001 0 000000000001 -ST1 032422 000001 0 0 000000000001 0 000000000001 -ST2 032422 000001 0 0 000000000001 0 000000000001 -ST9 032422 000001 0 0 000000000001 0 000000000001 - - -*032422 CAIE 1,777776(2) -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032422 032422 0 0 302042777776 0 000000000001 -IT1 032422 0 0 0 302042777776 0 000000000001 -AT1 032422 0 0 0 0 0 302042777776 -AT2 032422 0 0 0 000000000003 0 302042777776 -AT3 032422 0 0 0 000000000001 0 000000000001 -AT6 032422 000001 0 0 000000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 291 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0486 - -FT1A 032422 000001 0 0 000000000001 0 000000000001 -FT2 032422 000001 0 0 0 0 000000000001 -FT2RQ 032422 000001 0 0 000000000001 0 000000000001 -FT3 032422 000001 0 0 000000000001 0 000000000001 -FT9 032423 000001 0 0 000000000001 0 000000000001 -ET0 032424 000001 0 0 0 0 000000000001 -ST1A 032424 000001 0 0 0 0 000000000001 -ST9 032424 000001 0 0 0 0 000000000001 - - -*032424 JUMPA 0,032425 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032424 032424 0 0 324000032425 0 000000032425 -IT1 032424 0 0 0 324000032425 0 000000032425 -AT3 032424 0 0 0 000000032425 0 324000032425 -AT6 032424 032425 0 0 000000032425 0 324000032425 -FT1A 032424 032425 0 0 000000032425 0 000000032425 -FT2 032424 032425 0 0 0 0 000000032425 -FT2RQ 032424 032425 0 0 0 0 000000032425 -FT3 032424 032425 0 0 0 0 000000032425 -FT9 032425 032425 0 0 0 0 000000032425 -ET0 032425 032425 0 0 0 0 000000032425 -ST1A 032425 032425 0 0 0 0 000000032425 -ST9 032425 032425 0 0 0 0 000000032425 - - -*032425 MOVEI 3,000001 -INITIAL -C(AC)=377777 777777 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032425 032425 0 0 201140000001 0 000000000001 -IT1 032425 0 0 0 201140000001 0 000000000001 -AT3 032425 0 0 0 000000000001 0 201140000001 -AT6 032425 000001 0 0 000000000001 0 201140000001 -FT1A 032425 000001 0 0 000000000001 0 000000000001 -FT9 032426 000001 0 0 000000000001 0 000000000001 -ET0 032426 000001 0 0 000000000001 0 000000000001 -ST1 032426 000001 0 0 000000000001 0 000000000001 -ST2 032426 000001 0 0 000000000001 0 000000000001 -ST9 032426 000001 0 0 000000000001 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 292 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0487 - -*032426 MOVEI 2,000002 -INITIAL -C(AC)=000000 000003 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 032426 032426 0 0 201100000002 0 000000000002 -IT1 032426 0 0 0 201100000002 0 000000000002 -AT3 032426 0 0 0 000000000002 0 201100000002 -AT6 032426 000002 0 0 000000000002 0 201100000002 -FT1A 032426 000002 0 0 000000000002 0 000000000002 -FT9 032427 000002 0 0 000000000002 0 000000000002 -ET0 032427 000002 0 0 000000000002 0 000000000002 -ST1 032427 000002 0 0 000000000002 0 000000000002 -ST2 032427 000002 0 0 000000000002 0 000000000002 -ST9 032427 000002 0 0 000000000002 0 000000000002 - - -*032427 CAIE 2,000001(3) -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032427 032427 0 0 302103000001 0 000000000002 -IT1 032427 0 0 0 302103000001 0 000000000002 -AT1 032427 0 0 0 0 0 302103000001 -AT2 032427 0 0 0 000000000001 0 302103000001 -AT3 032427 0 0 0 000000000002 0 000000000002 -AT6 032427 000002 0 0 000000000002 0 000000000002 -FT1A 032427 000002 0 0 000000000002 0 000000000002 -FT2 032427 000002 0 0 0 0 000000000002 -FT2RQ 032427 000002 0 0 000000000002 0 000000000002 -FT3 032427 000002 0 0 000000000002 0 000000000002 -FT9 032430 000002 0 0 000000000002 0 000000000002 -ET0 032431 000002 0 0 0 0 000000000002 -ST1A 032431 000002 0 0 0 0 000000000002 -ST9 032431 000002 0 0 0 0 000000000002 - - -*032431 JUMPA 0,032432 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032431 032431 0 0 324000032432 0 000000032432 -IT1 032431 0 0 0 324000032432 0 000000032432 -AT3 032431 0 0 0 000000032432 0 324000032432 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 293 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0488 - -AT6 032431 032432 0 0 000000032432 0 324000032432 -FT1A 032431 032432 0 0 000000032432 0 000000032432 -FT2 032431 032432 0 0 0 0 000000032432 -FT2RQ 032431 032432 0 0 0 0 000000032432 -FT3 032431 032432 0 0 0 0 000000032432 -FT9 032432 032432 0 0 0 0 000000032432 -ET0 032432 032432 0 0 0 0 000000032432 -ST1A 032432 032432 0 0 0 0 000000032432 -ST9 032432 032432 0 0 0 0 000000032432 - - -*032432 MOVEI 4,777777 -INITIAL -C(AC)=000004 000004 -FINAL -C(AC)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032432 032432 0 0 201200777777 0 000000777777 -IT1 032432 0 0 0 201200777777 0 000000777777 -AT3 032432 0 0 0 000000777777 0 201200777777 -AT6 032432 777777 0 0 000000777777 0 201200777777 -FT1A 032432 777777 0 0 000000777777 0 000000777777 -FT9 032433 777777 0 0 000000777777 0 000000777777 -ET0 032433 777777 0 0 000000777777 0 000000777777 -ST1 032433 777777 0 0 000000777777 0 000000777777 -ST2 032433 777777 0 0 000000777777 0 000000777777 -ST9 032433 777777 0 0 000000777777 0 000000777777 - - -*032433 MOVEI 3,000003 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000003 - -TIME PC MA SC FE AR MQ BR -IT0 032433 032433 0 0 201140000003 0 000000000003 -IT1 032433 0 0 0 201140000003 0 000000000003 -AT3 032433 0 0 0 000000000003 0 201140000003 -AT6 032433 000003 0 0 000000000003 0 201140000003 -FT1A 032433 000003 0 0 000000000003 0 000000000003 -FT9 032434 000003 0 0 000000000003 0 000000000003 -ET0 032434 000003 0 0 000000000003 0 000000000003 -ST1 032434 000003 0 0 000000000003 0 000000000003 -ST2 032434 000003 0 0 000000000003 0 000000000003 -ST9 032434 000003 0 0 000000000003 0 000000000003 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 294 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0489 - -*032434 CAIE 3,000004(4) -INITIAL -C(AC)=000000 000003 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032434 032434 0 0 302144000004 0 000000000003 -IT1 032434 0 0 0 302144000004 0 000000000003 -AT1 032434 0 0 0 0 0 302144000004 -AT2 032434 0 0 0 000000777777 0 302144000004 -AT3 032434 0 0 0 000000000003 0 000000000003 -AT6 032434 000003 0 0 000000000003 0 000000000003 -FT1A 032434 000003 0 0 000000000003 0 000000000003 -FT2 032434 000003 0 0 0 0 000000000003 -FT2RQ 032434 000003 0 0 000000000003 0 000000000003 -FT3 032434 000003 0 0 000000000003 0 000000000003 -FT9 032435 000003 0 0 000000000003 0 000000000003 -ET0 032436 000003 0 0 0 0 000000000003 -ST1A 032436 000003 0 0 0 0 000000000003 -ST9 032436 000003 0 0 0 0 000000000003 - - -*032436 JUMPA 0,032437 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032436 032436 0 0 324000032437 0 000000032437 -IT1 032436 0 0 0 324000032437 0 000000032437 -AT3 032436 0 0 0 000000032437 0 324000032437 -AT6 032436 032437 0 0 000000032437 0 324000032437 -FT1A 032436 032437 0 0 000000032437 0 000000032437 -FT2 032436 032437 0 0 0 0 000000032437 -FT2RQ 032436 032437 0 0 0 0 000000032437 -FT3 032436 032437 0 0 0 0 000000032437 -FT9 032437 032437 0 0 0 0 000000032437 -ET0 032437 032437 0 0 0 0 000000032437 -ST1A 032437 032437 0 0 0 0 000000032437 -ST9 032437 032437 0 0 0 0 000000032437 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 295 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0490 - -*032437 MOVEI 5,777775 -INITIAL -C(AC)=000005 000005 -FINAL -C(AC)=000000 777775 - -TIME PC MA SC FE AR MQ BR -IT0 032437 032437 0 0 201240777775 0 000000777775 -IT1 032437 0 0 0 201240777775 0 000000777775 -AT3 032437 0 0 0 000000777775 0 201240777775 -AT6 032437 777775 0 0 000000777775 0 201240777775 -FT1A 032437 777775 0 0 000000777775 0 000000777775 -FT9 032440 777775 0 0 000000777775 0 000000777775 -ET0 032440 777775 0 0 000000777775 0 000000777775 -ST1 032440 777775 0 0 000000777775 0 000000777775 -ST2 032440 777775 0 0 000000777775 0 000000777775 -ST9 032440 777775 0 0 000000777775 0 000000777775 - - -*032440 MOVEI 4,000004 -INITIAL -C(AC)=000000 777777 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 032440 032440 0 0 201200000004 0 000000000004 -IT1 032440 0 0 0 201200000004 0 000000000004 -AT3 032440 0 0 0 000000000004 0 201200000004 -AT6 032440 000004 0 0 000000000004 0 201200000004 -FT1A 032440 000004 0 0 000000000004 0 000000000004 -FT9 032441 000004 0 0 000000000004 0 000000000004 -ET0 032441 000004 0 0 000000000004 0 000000000004 -ST1 032441 000004 0 0 000000000004 0 000000000004 -ST2 032441 000004 0 0 000000000004 0 000000000004 -ST9 032441 000004 0 0 000000000004 0 000000000004 - - -*032441 CAIE 4,000007(5) -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032441 032441 0 0 302205000007 0 000000000004 -IT1 032441 0 0 0 302205000007 0 000000000004 -AT1 032441 0 0 0 0 0 302205000007 -AT2 032441 0 0 0 000000777775 0 302205000007 -AT3 032441 0 0 0 000000000004 0 000000000004 -AT6 032441 000004 0 0 000000000004 0 000000000004 -FT1A 032441 000004 0 0 000000000004 0 000000000004 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 296 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0491 - -FT2 032441 000004 0 0 0 0 000000000004 -FT2RQ 032441 000004 0 0 000000000004 0 000000000004 -FT3 032441 000004 0 0 000000000004 0 000000000004 -FT9 032442 000004 0 0 000000000004 0 000000000004 -ET0 032443 000004 0 0 0 0 000000000004 -ST1A 032443 000004 0 0 0 0 000000000004 -ST9 032443 000004 0 0 0 0 000000000004 - - -*032443 JUMPA 0,032444 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032443 032443 0 0 324000032444 0 000000032444 -IT1 032443 0 0 0 324000032444 0 000000032444 -AT3 032443 0 0 0 000000032444 0 324000032444 -AT6 032443 032444 0 0 000000032444 0 324000032444 -FT1A 032443 032444 0 0 000000032444 0 000000032444 -FT2 032443 032444 0 0 0 0 000000032444 -FT2RQ 032443 032444 0 0 0 0 000000032444 -FT3 032443 032444 0 0 0 0 000000032444 -FT9 032444 032444 0 0 0 0 000000032444 -ET0 032444 032444 0 0 0 0 000000032444 -ST1A 032444 032444 0 0 0 0 000000032444 -ST9 032444 032444 0 0 0 0 000000032444 - - -*032444 MOVEI 6,777773 -INITIAL -C(AC)=000006 000006 -FINAL -C(AC)=000000 777773 - -TIME PC MA SC FE AR MQ BR -IT0 032444 032444 0 0 201300777773 0 000000777773 -IT1 032444 0 0 0 201300777773 0 000000777773 -AT3 032444 0 0 0 000000777773 0 201300777773 -AT6 032444 777773 0 0 000000777773 0 201300777773 -FT1A 032444 777773 0 0 000000777773 0 000000777773 -FT9 032445 777773 0 0 000000777773 0 000000777773 -ET0 032445 777773 0 0 000000777773 0 000000777773 -ST1 032445 777773 0 0 000000777773 0 000000777773 -ST2 032445 777773 0 0 000000777773 0 000000777773 -ST9 032445 777773 0 0 000000777773 0 000000777773 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 297 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0492 - -*032445 MOVEI 5,000005 -INITIAL -C(AC)=000000 777775 -FINAL -C(AC)=000000 000005 - -TIME PC MA SC FE AR MQ BR -IT0 032445 032445 0 0 201240000005 0 000000000005 -IT1 032445 0 0 0 201240000005 0 000000000005 -AT3 032445 0 0 0 000000000005 0 201240000005 -AT6 032445 000005 0 0 000000000005 0 201240000005 -FT1A 032445 000005 0 0 000000000005 0 000000000005 -FT9 032446 000005 0 0 000000000005 0 000000000005 -ET0 032446 000005 0 0 000000000005 0 000000000005 -ST1 032446 000005 0 0 000000000005 0 000000000005 -ST2 032446 000005 0 0 000000000005 0 000000000005 -ST9 032446 000005 0 0 000000000005 0 000000000005 - - -*032446 CAIE 5,000012(6) -INITIAL -C(AC)=000000 000005 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032446 032446 0 0 302246000012 0 000000000005 -IT1 032446 0 0 0 302246000012 0 000000000005 -AT1 032446 0 0 0 0 0 302246000012 -AT2 032446 0 0 0 000000777773 0 302246000012 -AT3 032446 0 0 0 000000000005 0 000000000005 -AT6 032446 000005 0 0 000000000005 0 000000000005 -FT1A 032446 000005 0 0 000000000005 0 000000000005 -FT2 032446 000005 0 0 0 0 000000000005 -FT2RQ 032446 000005 0 0 000000000005 0 000000000005 -FT3 032446 000005 0 0 000000000005 0 000000000005 -FT9 032447 000005 0 0 000000000005 0 000000000005 -ET0 032450 000005 0 0 0 0 000000000005 -ST1A 032450 000005 0 0 0 0 000000000005 -ST9 032450 000005 0 0 0 0 000000000005 - - -*032450 JUMPA 0,032451 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032450 032450 0 0 324000032451 0 000000032451 -IT1 032450 0 0 0 324000032451 0 000000032451 -AT3 032450 0 0 0 000000032451 0 324000032451 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 298 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0493 - -AT6 032450 032451 0 0 000000032451 0 324000032451 -FT1A 032450 032451 0 0 000000032451 0 000000032451 -FT2 032450 032451 0 0 0 0 000000032451 -FT2RQ 032450 032451 0 0 0 0 000000032451 -FT3 032450 032451 0 0 0 0 000000032451 -FT9 032451 032451 0 0 0 0 000000032451 -ET0 032451 032451 0 0 0 0 000000032451 -ST1A 032451 032451 0 0 0 0 000000032451 -ST9 032451 032451 0 0 0 0 000000032451 - - -*032451 MOVEI 7,777771 -INITIAL -C(AC)=000007 000007 -FINAL -C(AC)=000000 777771 - -TIME PC MA SC FE AR MQ BR -IT0 032451 032451 0 0 201340777771 0 000000777771 -IT1 032451 0 0 0 201340777771 0 000000777771 -AT3 032451 0 0 0 000000777771 0 201340777771 -AT6 032451 777771 0 0 000000777771 0 201340777771 -FT1A 032451 777771 0 0 000000777771 0 000000777771 -FT9 032452 777771 0 0 000000777771 0 000000777771 -ET0 032452 777771 0 0 000000777771 0 000000777771 -ST1 032452 777771 0 0 000000777771 0 000000777771 -ST2 032452 777771 0 0 000000777771 0 000000777771 -ST9 032452 777771 0 0 000000777771 0 000000777771 - - -*032452 MOVEI 6,000006 -INITIAL -C(AC)=000000 777773 -FINAL -C(AC)=000000 000006 - -TIME PC MA SC FE AR MQ BR -IT0 032452 032452 0 0 201300000006 0 000000000006 -IT1 032452 0 0 0 201300000006 0 000000000006 -AT3 032452 0 0 0 000000000006 0 201300000006 -AT6 032452 000006 0 0 000000000006 0 201300000006 -FT1A 032452 000006 0 0 000000000006 0 000000000006 -FT9 032453 000006 0 0 000000000006 0 000000000006 -ET0 032453 000006 0 0 000000000006 0 000000000006 -ST1 032453 000006 0 0 000000000006 0 000000000006 -ST2 032453 000006 0 0 000000000006 0 000000000006 -ST9 032453 000006 0 0 000000000006 0 000000000006 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 299 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0494 - -*032453 CAIE 6,000015(7) -INITIAL -C(AC)=000000 000006 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032453 032453 0 0 302307000015 0 000000000006 -IT1 032453 0 0 0 302307000015 0 000000000006 -AT1 032453 0 0 0 0 0 302307000015 -AT2 032453 0 0 0 000000777771 0 302307000015 -AT3 032453 0 0 0 000000000006 0 000000000006 -AT6 032453 000006 0 0 000000000006 0 000000000006 -FT1A 032453 000006 0 0 000000000006 0 000000000006 -FT2 032453 000006 0 0 0 0 000000000006 -FT2RQ 032453 000006 0 0 000000000006 0 000000000006 -FT3 032453 000006 0 0 000000000006 0 000000000006 -FT9 032454 000006 0 0 000000000006 0 000000000006 -ET0 032455 000006 0 0 0 0 000000000006 -ST1A 032455 000006 0 0 0 0 000000000006 -ST9 032455 000006 0 0 0 0 000000000006 - - -*032455 JUMPA 0,032456 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032455 032455 0 0 324000032456 0 000000032456 -IT1 032455 0 0 0 324000032456 0 000000032456 -AT3 032455 0 0 0 000000032456 0 324000032456 -AT6 032455 032456 0 0 000000032456 0 324000032456 -FT1A 032455 032456 0 0 000000032456 0 000000032456 -FT2 032455 032456 0 0 0 0 000000032456 -FT2RQ 032455 032456 0 0 0 0 000000032456 -FT3 032455 032456 0 0 0 0 000000032456 -FT9 032456 032456 0 0 0 0 000000032456 -ET0 032456 032456 0 0 0 0 000000032456 -ST1A 032456 032456 0 0 0 0 000000032456 -ST9 032456 032456 0 0 0 0 000000032456 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 300 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0495 - -*032456 MOVEI 10,777767 -INITIAL -C(AC)=000010 000010 -FINAL -C(AC)=000000 777767 - -TIME PC MA SC FE AR MQ BR -IT0 032456 032456 0 0 201400777767 0 000000777767 -IT1 032456 0 0 0 201400777767 0 000000777767 -AT3 032456 0 0 0 000000777767 0 201400777767 -AT6 032456 777767 0 0 000000777767 0 201400777767 -FT1A 032456 777767 0 0 000000777767 0 000000777767 -FT9 032457 777767 0 0 000000777767 0 000000777767 -ET0 032457 777767 0 0 000000777767 0 000000777767 -ST1 032457 777767 0 0 000000777767 0 000000777767 -ST2 032457 777767 0 0 000000777767 0 000000777767 -ST9 032457 777767 0 0 000000777767 0 000000777767 - - -*032457 MOVEI 7,000007 -INITIAL -C(AC)=000000 777771 -FINAL -C(AC)=000000 000007 - -TIME PC MA SC FE AR MQ BR -IT0 032457 032457 0 0 201340000007 0 000000000007 -IT1 032457 0 0 0 201340000007 0 000000000007 -AT3 032457 0 0 0 000000000007 0 201340000007 -AT6 032457 000007 0 0 000000000007 0 201340000007 -FT1A 032457 000007 0 0 000000000007 0 000000000007 -FT9 032460 000007 0 0 000000000007 0 000000000007 -ET0 032460 000007 0 0 000000000007 0 000000000007 -ST1 032460 000007 0 0 000000000007 0 000000000007 -ST2 032460 000007 0 0 000000000007 0 000000000007 -ST9 032460 000007 0 0 000000000007 0 000000000007 - - -*032460 CAIE 7,000020(10) -INITIAL -C(AC)=000000 000007 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032460 032460 0 0 302350000020 0 000000000007 -IT1 032460 0 0 0 302350000020 0 000000000007 -AT1 032460 0 0 0 0 0 302350000020 -AT2 032460 0 0 0 000000777767 0 302350000020 -AT3 032460 0 0 0 000000000007 0 000000000007 -AT6 032460 000007 0 0 000000000007 0 000000000007 -FT1A 032460 000007 0 0 000000000007 0 000000000007 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 301 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0496 - -FT2 032460 000007 0 0 0 0 000000000007 -FT2RQ 032460 000007 0 0 000000000007 0 000000000007 -FT3 032460 000007 0 0 000000000007 0 000000000007 -FT9 032461 000007 0 0 000000000007 0 000000000007 -ET0 032462 000007 0 0 0 0 000000000007 -ST1A 032462 000007 0 0 0 0 000000000007 -ST9 032462 000007 0 0 0 0 000000000007 - - -*032462 JUMPA 0,032463 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032462 032462 0 0 324000032463 0 000000032463 -IT1 032462 0 0 0 324000032463 0 000000032463 -AT3 032462 0 0 0 000000032463 0 324000032463 -AT6 032462 032463 0 0 000000032463 0 324000032463 -FT1A 032462 032463 0 0 000000032463 0 000000032463 -FT2 032462 032463 0 0 0 0 000000032463 -FT2RQ 032462 032463 0 0 0 0 000000032463 -FT3 032462 032463 0 0 0 0 000000032463 -FT9 032463 032463 0 0 0 0 000000032463 -ET0 032463 032463 0 0 0 0 000000032463 -ST1A 032463 032463 0 0 0 0 000000032463 -ST9 032463 032463 0 0 0 0 000000032463 - - -*032463 MOVEI 11,777765 -INITIAL -C(AC)=000011 000011 -FINAL -C(AC)=000000 777765 - -TIME PC MA SC FE AR MQ BR -IT0 032463 032463 0 0 201440777765 0 000000777765 -IT1 032463 0 0 0 201440777765 0 000000777765 -AT3 032463 0 0 0 000000777765 0 201440777765 -AT6 032463 777765 0 0 000000777765 0 201440777765 -FT1A 032463 777765 0 0 000000777765 0 000000777765 -FT9 032464 777765 0 0 000000777765 0 000000777765 -ET0 032464 777765 0 0 000000777765 0 000000777765 -ST1 032464 777765 0 0 000000777765 0 000000777765 -ST2 032464 777765 0 0 000000777765 0 000000777765 -ST9 032464 777765 0 0 000000777765 0 000000777765 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 302 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0497 - -*032464 MOVEI 10,000010 -INITIAL -C(AC)=000000 777767 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 032464 032464 0 0 201400000010 0 000000000010 -IT1 032464 0 0 0 201400000010 0 000000000010 -AT3 032464 0 0 0 000000000010 0 201400000010 -AT6 032464 000010 0 0 000000000010 0 201400000010 -FT1A 032464 000010 0 0 000000000010 0 000000000010 -FT9 032465 000010 0 0 000000000010 0 000000000010 -ET0 032465 000010 0 0 000000000010 0 000000000010 -ST1 032465 000010 0 0 000000000010 0 000000000010 -ST2 032465 000010 0 0 000000000010 0 000000000010 -ST9 032465 000010 0 0 000000000010 0 000000000010 - - -*032465 CAIE 10,000023(11) -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032465 032465 0 0 302411000023 0 000000000010 -IT1 032465 0 0 0 302411000023 0 000000000010 -AT1 032465 0 0 0 0 0 302411000023 -AT2 032465 0 0 0 000000777765 0 302411000023 -AT3 032465 0 0 0 000000000010 0 000000000010 -AT6 032465 000010 0 0 000000000010 0 000000000010 -FT1A 032465 000010 0 0 000000000010 0 000000000010 -FT2 032465 000010 0 0 0 0 000000000010 -FT2RQ 032465 000010 0 0 000000000010 0 000000000010 -FT3 032465 000010 0 0 000000000010 0 000000000010 -FT9 032466 000010 0 0 000000000010 0 000000000010 -ET0 032467 000010 0 0 0 0 000000000010 -ST1A 032467 000010 0 0 0 0 000000000010 -ST9 032467 000010 0 0 0 0 000000000010 - - -*032467 JUMPA 0,032470 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032467 032467 0 0 324000032470 0 000000032470 -IT1 032467 0 0 0 324000032470 0 000000032470 -AT3 032467 0 0 0 000000032470 0 324000032470 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 303 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0498 - -AT6 032467 032470 0 0 000000032470 0 324000032470 -FT1A 032467 032470 0 0 000000032470 0 000000032470 -FT2 032467 032470 0 0 0 0 000000032470 -FT2RQ 032467 032470 0 0 0 0 000000032470 -FT3 032467 032470 0 0 0 0 000000032470 -FT9 032470 032470 0 0 0 0 000000032470 -ET0 032470 032470 0 0 0 0 000000032470 -ST1A 032470 032470 0 0 0 0 000000032470 -ST9 032470 032470 0 0 0 0 000000032470 - - -*032470 MOVEI 12,777763 -INITIAL -C(AC)=000012 000012 -FINAL -C(AC)=000000 777763 - -TIME PC MA SC FE AR MQ BR -IT0 032470 032470 0 0 201500777763 0 000000777763 -IT1 032470 0 0 0 201500777763 0 000000777763 -AT3 032470 0 0 0 000000777763 0 201500777763 -AT6 032470 777763 0 0 000000777763 0 201500777763 -FT1A 032470 777763 0 0 000000777763 0 000000777763 -FT9 032471 777763 0 0 000000777763 0 000000777763 -ET0 032471 777763 0 0 000000777763 0 000000777763 -ST1 032471 777763 0 0 000000777763 0 000000777763 -ST2 032471 777763 0 0 000000777763 0 000000777763 -ST9 032471 777763 0 0 000000777763 0 000000777763 - - -*032471 MOVEI 11,000011 -INITIAL -C(AC)=000000 777765 -FINAL -C(AC)=000000 000011 - -TIME PC MA SC FE AR MQ BR -IT0 032471 032471 0 0 201440000011 0 000000000011 -IT1 032471 0 0 0 201440000011 0 000000000011 -AT3 032471 0 0 0 000000000011 0 201440000011 -AT6 032471 000011 0 0 000000000011 0 201440000011 -FT1A 032471 000011 0 0 000000000011 0 000000000011 -FT9 032472 000011 0 0 000000000011 0 000000000011 -ET0 032472 000011 0 0 000000000011 0 000000000011 -ST1 032472 000011 0 0 000000000011 0 000000000011 -ST2 032472 000011 0 0 000000000011 0 000000000011 -ST9 032472 000011 0 0 000000000011 0 000000000011 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 304 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0499 - -*032472 CAIE 11,000026(12) -INITIAL -C(AC)=000000 000011 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032472 032472 0 0 302452000026 0 000000000011 -IT1 032472 0 0 0 302452000026 0 000000000011 -AT1 032472 0 0 0 0 0 302452000026 -AT2 032472 0 0 0 000000777763 0 302452000026 -AT3 032472 0 0 0 000000000011 0 000000000011 -AT6 032472 000011 0 0 000000000011 0 000000000011 -FT1A 032472 000011 0 0 000000000011 0 000000000011 -FT2 032472 000011 0 0 0 0 000000000011 -FT2RQ 032472 000011 0 0 000000000011 0 000000000011 -FT3 032472 000011 0 0 000000000011 0 000000000011 -FT9 032473 000011 0 0 000000000011 0 000000000011 -ET0 032474 000011 0 0 0 0 000000000011 -ST1A 032474 000011 0 0 0 0 000000000011 -ST9 032474 000011 0 0 0 0 000000000011 - - -*032474 JUMPA 0,032475 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032474 032474 0 0 324000032475 0 000000032475 -IT1 032474 0 0 0 324000032475 0 000000032475 -AT3 032474 0 0 0 000000032475 0 324000032475 -AT6 032474 032475 0 0 000000032475 0 324000032475 -FT1A 032474 032475 0 0 000000032475 0 000000032475 -FT2 032474 032475 0 0 0 0 000000032475 -FT2RQ 032474 032475 0 0 0 0 000000032475 -FT3 032474 032475 0 0 0 0 000000032475 -FT9 032475 032475 0 0 0 0 000000032475 -ET0 032475 032475 0 0 0 0 000000032475 -ST1A 032475 032475 0 0 0 0 000000032475 -ST9 032475 032475 0 0 0 0 000000032475 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 305 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0500 - -*032475 MOVEI 13,777761 -INITIAL -C(AC)=000013 000013 -FINAL -C(AC)=000000 777761 - -TIME PC MA SC FE AR MQ BR -IT0 032475 032475 0 0 201540777761 0 000000777761 -IT1 032475 0 0 0 201540777761 0 000000777761 -AT3 032475 0 0 0 000000777761 0 201540777761 -AT6 032475 777761 0 0 000000777761 0 201540777761 -FT1A 032475 777761 0 0 000000777761 0 000000777761 -FT9 032476 777761 0 0 000000777761 0 000000777761 -ET0 032476 777761 0 0 000000777761 0 000000777761 -ST1 032476 777761 0 0 000000777761 0 000000777761 -ST2 032476 777761 0 0 000000777761 0 000000777761 -ST9 032476 777761 0 0 000000777761 0 000000777761 - - -*032476 MOVEI 12,000012 -INITIAL -C(AC)=000000 777763 -FINAL -C(AC)=000000 000012 - -TIME PC MA SC FE AR MQ BR -IT0 032476 032476 0 0 201500000012 0 000000000012 -IT1 032476 0 0 0 201500000012 0 000000000012 -AT3 032476 0 0 0 000000000012 0 201500000012 -AT6 032476 000012 0 0 000000000012 0 201500000012 -FT1A 032476 000012 0 0 000000000012 0 000000000012 -FT9 032477 000012 0 0 000000000012 0 000000000012 -ET0 032477 000012 0 0 000000000012 0 000000000012 -ST1 032477 000012 0 0 000000000012 0 000000000012 -ST2 032477 000012 0 0 000000000012 0 000000000012 -ST9 032477 000012 0 0 000000000012 0 000000000012 - - -*032477 CAIE 12,000031(13) -INITIAL -C(AC)=000000 000012 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032477 032477 0 0 302513000031 0 000000000012 -IT1 032477 0 0 0 302513000031 0 000000000012 -AT1 032477 0 0 0 0 0 302513000031 -AT2 032477 0 0 0 000000777761 0 302513000031 -AT3 032477 0 0 0 000000000012 0 000000000012 -AT6 032477 000012 0 0 000000000012 0 000000000012 -FT1A 032477 000012 0 0 000000000012 0 000000000012 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 306 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0501 - -FT2 032477 000012 0 0 0 0 000000000012 -FT2RQ 032477 000012 0 0 000000000012 0 000000000012 -FT3 032477 000012 0 0 000000000012 0 000000000012 -FT9 0 000012 0 0 000000000012 0 000000000012 -ET0 032501 000012 0 0 0 0 000000000012 -ST1A 032501 000012 0 0 0 0 000000000012 -ST9 032501 000012 0 0 0 0 000000000012 - - -*032501 JUMPA 0,032502 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032501 032501 0 0 324000032502 0 000000032502 -IT1 032501 0 0 0 324000032502 0 000000032502 -AT3 032501 0 0 0 000000032502 0 324000032502 -AT6 032501 032502 0 0 000000032502 0 324000032502 -FT1A 032501 032502 0 0 000000032502 0 000000032502 -FT2 032501 032502 0 0 0 0 000000032502 -FT2RQ 032501 032502 0 0 0 0 000000032502 -FT3 032501 032502 0 0 0 0 000000032502 -FT9 032502 032502 0 0 0 0 000000032502 -ET0 032502 032502 0 0 0 0 000000032502 -ST1A 032502 032502 0 0 0 0 000000032502 -ST9 032502 032502 0 0 0 0 000000032502 - - -*032502 MOVEI 14,777757 -INITIAL -C(AC)=000014 000014 -FINAL -C(AC)=000000 777757 - -TIME PC MA SC FE AR MQ BR -IT0 032502 032502 0 0 201600777757 0 000000777757 -IT1 032502 0 0 0 201600777757 0 000000777757 -AT3 032502 0 0 0 000000777757 0 201600777757 -AT6 032502 777757 0 0 000000777757 0 201600777757 -FT1A 032502 777757 0 0 000000777757 0 000000777757 -FT9 032503 777757 0 0 000000777757 0 000000777757 -ET0 032503 777757 0 0 000000777757 0 000000777757 -ST1 032503 777757 0 0 000000777757 0 000000777757 -ST2 032503 777757 0 0 000000777757 0 000000777757 -ST9 032503 777757 0 0 000000777757 0 000000777757 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 307 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0502 - -*032503 MOVEI 13,000013 -INITIAL -C(AC)=000000 777761 -FINAL -C(AC)=000000 000013 - -TIME PC MA SC FE AR MQ BR -IT0 032503 032503 0 0 201540000013 0 000000000013 -IT1 032503 0 0 0 201540000013 0 000000000013 -AT3 032503 0 0 0 000000000013 0 201540000013 -AT6 032503 000013 0 0 000000000013 0 201540000013 -FT1A 032503 000013 0 0 000000000013 0 000000000013 -FT9 032504 000013 0 0 000000000013 0 000000000013 -ET0 032504 000013 0 0 000000000013 0 000000000013 -ST1 032504 000013 0 0 000000000013 0 000000000013 -ST2 032504 000013 0 0 000000000013 0 000000000013 -ST9 032504 000013 0 0 000000000013 0 000000000013 - - -*032504 CAIE 13,000034(14) -INITIAL -C(AC)=000000 000013 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032504 032504 0 0 302554000034 0 000000000013 -IT1 032504 0 0 0 302554000034 0 000000000013 -AT1 032504 0 0 0 0 0 302554000034 -AT2 032504 0 0 0 000000777757 0 302554000034 -AT3 032504 0 0 0 000000000013 0 000000000013 -AT6 032504 000013 0 0 000000000013 0 000000000013 -FT1A 032504 000013 0 0 000000000013 0 000000000013 -FT2 032504 000013 0 0 0 0 000000000013 -FT2RQ 032504 000013 0 0 000000000013 0 000000000013 -FT3 032504 000013 0 0 000000000013 0 000000000013 -FT9 032505 000013 0 0 000000000013 0 000000000013 -ET0 032506 000013 0 0 0 0 000000000013 -ST1A 032506 000013 0 0 0 0 000000000013 -ST9 032506 000013 0 0 0 0 000000000013 - - -*032506 JUMPA 0,032507 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032506 032506 0 0 324000032507 0 000000032507 -IT1 032506 0 0 0 324000032507 0 000000032507 -AT3 032506 0 0 0 000000032507 0 324000032507 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 308 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0503 - -AT6 032506 032507 0 0 000000032507 0 324000032507 -FT1A 032506 032507 0 0 000000032507 0 000000032507 -FT2 032506 032507 0 0 0 0 000000032507 -FT2RQ 032506 032507 0 0 0 0 000000032507 -FT3 032506 032507 0 0 0 0 000000032507 -FT9 032507 032507 0 0 0 0 000000032507 -ET0 032507 032507 0 0 0 0 000000032507 -ST1A 032507 032507 0 0 0 0 000000032507 -ST9 032507 032507 0 0 0 0 000000032507 - - -*032507 MOVEI 15,777755 -INITIAL -C(AC)=000015 000015 -FINAL -C(AC)=000000 777755 - -TIME PC MA SC FE AR MQ BR -IT0 032507 032507 0 0 201640777755 0 000000777755 -IT1 032507 0 0 0 201640777755 0 000000777755 -AT3 032507 0 0 0 000000777755 0 201640777755 -AT6 032507 777755 0 0 000000777755 0 201640777755 -FT1A 032507 777755 0 0 000000777755 0 000000777755 -FT9 032510 777755 0 0 000000777755 0 000000777755 -ET0 032510 777755 0 0 000000777755 0 000000777755 -ST1 032510 777755 0 0 000000777755 0 000000777755 -ST2 032510 777755 0 0 000000777755 0 000000777755 -ST9 032510 777755 0 0 000000777755 0 000000777755 - - -*032510 MOVEI 14,000014 -INITIAL -C(AC)=000000 777757 -FINAL -C(AC)=000000 000014 - -TIME PC MA SC FE AR MQ BR -IT0 032510 032510 0 0 201600000014 0 000000000014 -IT1 032510 0 0 0 201600000014 0 000000000014 -AT3 032510 0 0 0 000000000014 0 201600000014 -AT6 032510 000014 0 0 000000000014 0 201600000014 -FT1A 032510 000014 0 0 000000000014 0 000000000014 -FT9 032511 000014 0 0 000000000014 0 000000000014 -ET0 032511 000014 0 0 000000000014 0 000000000014 -ST1 032511 000014 0 0 000000000014 0 000000000014 -ST2 032511 000014 0 0 000000000014 0 000000000014 -ST9 032511 000014 0 0 000000000014 0 000000000014 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 309 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0504 - -*032511 CAIE 14,000037(15) -INITIAL -C(AC)=000000 000014 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032511 032511 0 0 302615000037 0 000000000014 -IT1 032511 0 0 0 302615000037 0 000000000014 -AT1 032511 0 0 0 0 0 302615000037 -AT2 032511 0 0 0 000000777755 0 302615000037 -AT3 032511 0 0 0 000000000014 0 000000000014 -AT6 032511 000014 0 0 000000000014 0 000000000014 -FT1A 032511 000014 0 0 000000000014 0 000000000014 -FT2 032511 000014 0 0 0 0 000000000014 -FT2RQ 032511 000014 0 0 000000000014 0 000000000014 -FT3 032511 000014 0 0 000000000014 0 000000000014 -FT9 032512 000014 0 0 000000000014 0 000000000014 -ET0 032513 000014 0 0 0 0 000000000014 -ST1A 032513 000014 0 0 0 0 000000000014 -ST9 032513 000014 0 0 0 0 000000000014 - - -*032513 JUMPA 0,032514 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032513 032513 0 0 324000032514 0 000000032514 -IT1 032513 0 0 0 324000032514 0 000000032514 -AT3 032513 0 0 0 000000032514 0 324000032514 -AT6 032513 032514 0 0 000000032514 0 324000032514 -FT1A 032513 032514 0 0 000000032514 0 000000032514 -FT2 032513 032514 0 0 0 0 000000032514 -FT2RQ 032513 032514 0 0 0 0 000000032514 -FT3 032513 032514 0 0 0 0 000000032514 -FT9 032514 032514 0 0 0 0 000000032514 -ET0 032514 032514 0 0 0 0 000000032514 -ST1A 032514 032514 0 0 0 0 000000032514 -ST9 032514 032514 0 0 0 0 000000032514 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 310 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0505 - -*032514 MOVEI 16,777753 -INITIAL -C(AC)=000016 000016 -FINAL -C(AC)=000000 777753 - -TIME PC MA SC FE AR MQ BR -IT0 032514 032514 0 0 201700777753 0 000000777753 -IT1 032514 0 0 0 201700777753 0 000000777753 -AT3 032514 0 0 0 000000777753 0 201700777753 -AT6 032514 777753 0 0 000000777753 0 201700777753 -FT1A 032514 777753 0 0 000000777753 0 000000777753 -FT9 032515 777753 0 0 000000777753 0 000000777753 -ET0 032515 777753 0 0 000000777753 0 000000777753 -ST1 032515 777753 0 0 000000777753 0 000000777753 -ST2 032515 777753 0 0 000000777753 0 000000777753 -ST9 032515 777753 0 0 000000777753 0 000000777753 - - -*032515 MOVEI 15,000015 -INITIAL -C(AC)=000000 777755 -FINAL -C(AC)=000000 000015 - -TIME PC MA SC FE AR MQ BR -IT0 032515 032515 0 0 201640000015 0 000000000015 -IT1 032515 0 0 0 201640000015 0 000000000015 -AT3 032515 0 0 0 000000000015 0 201640000015 -AT6 032515 000015 0 0 000000000015 0 201640000015 -FT1A 032515 000015 0 0 000000000015 0 000000000015 -FT9 032516 000015 0 0 000000000015 0 000000000015 -ET0 032516 000015 0 0 000000000015 0 000000000015 -ST1 032516 000015 0 0 000000000015 0 000000000015 -ST2 032516 000015 0 0 000000000015 0 000000000015 -ST9 032516 000015 0 0 000000000015 0 000000000015 - - -*032516 CAIE 15,000042(16) -INITIAL -C(AC)=000000 000015 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032516 032516 0 0 302656000042 0 000000000015 -IT1 032516 0 0 0 302656000042 0 000000000015 -AT1 032516 0 0 0 0 0 302656000042 -AT2 032516 0 0 0 000000777753 0 302656000042 -AT3 032516 0 0 0 000000000015 0 000000000015 -AT6 032516 000015 0 0 000000000015 0 000000000015 -FT1A 032516 000015 0 0 000000000015 0 000000000015 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 311 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0506 - -FT2 032516 000015 0 0 0 0 000000000015 -FT2RQ 032516 000015 0 0 000000000015 0 000000000015 -FT3 032516 000015 0 0 000000000015 0 000000000015 -FT9 032517 000015 0 0 000000000015 0 000000000015 -ET0 032520 000015 0 0 0 0 000000000015 -ST1A 032520 000015 0 0 0 0 000000000015 -ST9 032520 000015 0 0 0 0 000000000015 - - -*032520 JUMPA 0,032521 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032520 032520 0 0 324000032521 0 000000032521 -IT1 032520 0 0 0 324000032521 0 000000032521 -AT3 032520 0 0 0 000000032521 0 324000032521 -AT6 032520 032521 0 0 000000032521 0 324000032521 -FT1A 032520 032521 0 0 000000032521 0 000000032521 -FT2 032520 032521 0 0 0 0 000000032521 -FT2RQ 032520 032521 0 0 0 0 000000032521 -FT3 032520 032521 0 0 0 0 000000032521 -FT9 032521 032521 0 0 0 0 000000032521 -ET0 032521 032521 0 0 0 0 000000032521 -ST1A 032521 032521 0 0 0 0 000000032521 -ST9 032521 032521 0 0 0 0 000000032521 - - -*032521 MOVEI 17,777751 -INITIAL -C(AC)=000017 000017 -FINAL -C(AC)=000000 777751 - -TIME PC MA SC FE AR MQ BR -IT0 032521 032521 0 0 201740777751 0 000000777751 -IT1 032521 0 0 0 201740777751 0 000000777751 -AT3 032521 0 0 0 000000777751 0 201740777751 -AT6 032521 777751 0 0 000000777751 0 201740777751 -FT1A 032521 777751 0 0 000000777751 0 000000777751 -FT9 032522 777751 0 0 000000777751 0 000000777751 -ET0 032522 777751 0 0 000000777751 0 000000777751 -ST1 032522 777751 0 0 000000777751 0 000000777751 -ST2 032522 777751 0 0 000000777751 0 000000777751 -ST9 032522 777751 0 0 000000777751 0 000000777751 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 312 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0507 - -*032522 MOVEI 16,000016 -INITIAL -C(AC)=000000 777753 -FINAL -C(AC)=000000 000016 - -TIME PC MA SC FE AR MQ BR -IT0 032522 032522 0 0 201700000016 0 000000000016 -IT1 032522 0 0 0 201700000016 0 000000000016 -AT3 032522 0 0 0 000000000016 0 201700000016 -AT6 032522 000016 0 0 000000000016 0 201700000016 -FT1A 032522 000016 0 0 000000000016 0 000000000016 -FT9 032523 000016 0 0 000000000016 0 000000000016 -ET0 032523 000016 0 0 000000000016 0 000000000016 -ST1 032523 000016 0 0 000000000016 0 000000000016 -ST2 032523 000016 0 0 000000000016 0 000000000016 -ST9 032523 000016 0 0 000000000016 0 000000000016 - - -*032523 CAIE 16,000045(17) -INITIAL -C(AC)=000000 000016 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032523 032523 0 0 302717000045 0 000000000016 -IT1 032523 0 0 0 302717000045 0 000000000016 -AT1 032523 0 0 0 0 0 302717000045 -AT2 032523 0 0 0 000000777751 0 302717000045 -AT3 032523 0 0 0 000000000016 0 000000000016 -AT6 032523 000016 0 0 000000000016 0 000000000016 -FT1A 032523 000016 0 0 000000000016 0 000000000016 -FT2 032523 000016 0 0 0 0 000000000016 -FT2RQ 032523 000016 0 0 000000000016 0 000000000016 -FT3 032523 000016 0 0 000000000016 0 000000000016 -FT9 032524 000016 0 0 000000000016 0 000000000016 -ET0 032525 000016 0 0 0 0 000000000016 -ST1A 032525 000016 0 0 0 0 000000000016 -ST9 032525 000016 0 0 0 0 000000000016 - - -*032525 JUMPA 0,032526 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032525 032525 0 0 324000032526 0 000000032526 -IT1 032525 0 0 0 324000032526 0 000000032526 -AT3 032525 0 0 0 000000032526 0 324000032526 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 313 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0508 - -AT6 032525 032526 0 0 000000032526 0 324000032526 -FT1A 032525 032526 0 0 000000032526 0 000000032526 -FT2 032525 032526 0 0 0 0 000000032526 -FT2RQ 032525 032526 0 0 0 0 000000032526 -FT3 032525 032526 0 0 0 0 000000032526 -FT9 032526 032526 0 0 0 0 000000032526 -ET0 032526 032526 0 0 0 0 000000032526 -ST1A 032526 032526 0 0 0 0 000000032526 -ST9 032526 032526 0 0 0 0 000000032526 - - -*032526 MOVEI 1,000013 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000013 - -TIME PC MA SC FE AR MQ BR -IT0 032526 032526 0 0 201040000013 0 000000000013 -IT1 032526 0 0 0 201040000013 0 000000000013 -AT3 032526 0 0 0 000000000013 0 201040000013 -AT6 032526 000013 0 0 000000000013 0 201040000013 -FT1A 032526 000013 0 0 000000000013 0 000000000013 -FT9 032527 000013 0 0 000000000013 0 000000000013 -ET0 032527 000013 0 0 000000000013 0 000000000013 -ST1 032527 000013 0 0 000000000013 0 000000000013 -ST2 032527 000013 0 0 000000000013 0 000000000013 -ST9 032527 000013 0 0 000000000013 0 000000000013 - - -*032527 MOVEI 0,777765(1) -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032527 032527 0 0 201001777765 0 0 -IT1 032527 0 0 0 201001777765 0 0 -AT1 032527 0 0 0 0 0 201001777765 -AT2 032527 0 0 0 000000000013 0 201001777765 -AT3 032527 0 0 0 0 0 0 -AT6 032527 0 0 0 0 0 0 -FT1A 032527 0 0 0 0 0 0 -FT9 032530 0 0 0 0 0 0 -ET0 032530 0 0 0 0 0 0 -ST1 032530 0 0 0 0 0 0 -ST2 032530 0 0 0 0 0 0 -ST9 032530 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 314 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0509 - -*032530 CAIE 0,000000 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032530 032530 0 0 302000000000 0 0 -IT1 032530 0 0 0 302000000000 0 0 -AT3 032530 0 0 0 0 0 302000000000 -AT6 032530 0 0 0 0 0 302000000000 -FT1A 032530 0 0 0 0 0 0 -FT2 032530 0 0 0 0 0 0 -FT2RQ 032530 0 0 0 0 0 0 -FT3 032530 0 0 0 0 0 0 -FT9 032531 0 0 0 0 0 0 -ET0 032532 0 0 0 0 0 0 -ST1A 032532 0 0 0 0 0 0 -ST9 032532 0 0 0 0 0 0 - - -*032532 JUMPA 0,032533 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032532 032532 0 0 324000032533 0 000000032533 -IT1 032532 0 0 0 324000032533 0 000000032533 -AT3 032532 0 0 0 000000032533 0 324000032533 -AT6 032532 032533 0 0 000000032533 0 324000032533 -FT1A 032532 032533 0 0 000000032533 0 000000032533 -FT2 032532 032533 0 0 0 0 000000032533 -FT2RQ 032532 032533 0 0 0 0 000000032533 -FT3 032532 032533 0 0 0 0 000000032533 -FT9 032533 032533 0 0 0 0 000000032533 -ET0 032533 032533 0 0 0 0 000000032533 -ST1A 032533 032533 0 0 0 0 000000032533 -ST9 032533 032533 0 0 0 0 000000032533 - - -*032533 MOVEI 2,000007 -INITIAL -C(AC)=000000 000002 -FINAL -C(AC)=000000 000007 - -TIME PC MA SC FE AR MQ BR -IT0 032533 032533 0 0 201100000007 0 000000000007 -IT1 032533 0 0 0 201100000007 0 000000000007 -AT3 032533 0 0 0 000000000007 0 201100000007 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 315 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0510 - -AT6 032533 000007 0 0 000000000007 0 201100000007 -FT1A 032533 000007 0 0 000000000007 0 000000000007 -FT9 032534 000007 0 0 000000000007 0 000000000007 -ET0 032534 000007 0 0 000000000007 0 000000000007 -ST1 032534 000007 0 0 000000000007 0 000000000007 -ST2 032534 000007 0 0 000000000007 0 000000000007 -ST9 032534 000007 0 0 000000000007 0 000000000007 - - -*032534 MOVEI 1,777772(2) -INITIAL -C(AC)=000000 000013 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 032534 032534 0 0 201042777772 0 000000000001 -IT1 032534 0 0 0 201042777772 0 000000000001 -AT1 032534 0 0 0 0 0 201042777772 -AT2 032534 0 0 0 000000000007 0 201042777772 -AT3 032534 0 0 0 000000000001 0 000000000001 -AT6 032534 000001 0 0 000000000001 0 000000000001 -FT1A 032534 000001 0 0 000000000001 0 000000000001 -FT9 032535 000001 0 0 000000000001 0 000000000001 -ET0 032535 000001 0 0 000000000001 0 000000000001 -ST1 032535 000001 0 0 000000000001 0 000000000001 -ST2 032535 000001 0 0 000000000001 0 000000000001 -ST9 032535 000001 0 0 000000000001 0 000000000001 - - -*032535 CAIE 1,000001 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032535 032535 0 0 302040000001 0 000000000001 -IT1 032535 0 0 0 302040000001 0 000000000001 -AT3 032535 0 0 0 000000000001 0 302040000001 -AT6 032535 000001 0 0 000000000001 0 302040000001 -FT1A 032535 000001 0 0 000000000001 0 000000000001 -FT2 032535 000001 0 0 0 0 000000000001 -FT2RQ 032535 000001 0 0 000000000001 0 000000000001 -FT3 032535 000001 0 0 000000000001 0 000000000001 -FT9 032536 000001 0 0 000000000001 0 000000000001 -ET0 032537 000001 0 0 0 0 000000000001 -ST1A 032537 000001 0 0 0 0 000000000001 -ST9 032537 000001 0 0 0 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 316 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0511 - -*032537 JUMPA 0,032540 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032537 032537 0 0 324000032540 0 000000032540 -IT1 032537 0 0 0 324000032540 0 000000032540 -AT3 032537 0 0 0 000000032540 0 324000032540 -AT6 032537 032540 0 0 000000032540 0 324000032540 -FT1A 032537 032540 0 0 000000032540 0 000000032540 -FT2 032537 032540 0 0 0 0 000000032540 -FT2RQ 032537 032540 0 0 0 0 000000032540 -FT3 032537 032540 0 0 0 0 000000032540 -FT9 032540 032540 0 0 0 0 000000032540 -ET0 032540 032540 0 0 0 0 000000032540 -ST1A 032540 032540 0 0 0 0 000000032540 -ST9 032540 032540 0 0 0 0 000000032540 - - -*032540 MOVEI 3,000003 -INITIAL -C(AC)=000000 000003 -FINAL -C(AC)=000000 000003 - -TIME PC MA SC FE AR MQ BR -IT0 032540 032540 0 0 201140000003 0 000000000003 -IT1 032540 0 0 0 201140000003 0 000000000003 -AT3 032540 0 0 0 000000000003 0 201140000003 -AT6 032540 000003 0 0 000000000003 0 201140000003 -FT1A 032540 000003 0 0 000000000003 0 000000000003 -FT9 032541 000003 0 0 000000000003 0 000000000003 -ET0 032541 000003 0 0 000000000003 0 000000000003 -ST1 032541 000003 0 0 000000000003 0 000000000003 -ST2 032541 000003 0 0 000000000003 0 000000000003 -ST9 032541 000003 0 0 000000000003 0 000000000003 - - -*032541 MOVEI 2,777777(3) -INITIAL -C(AC)=000000 000007 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 032541 032541 0 0 201103777777 0 000000000002 -IT1 032541 0 0 0 201103777777 0 000000000002 -AT1 032541 0 0 0 0 0 201103777777 -AT2 032541 0 0 0 000000000003 0 201103777777 -AT3 032541 0 0 0 000000000002 0 000000000002 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 317 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0512 - -AT6 032541 000002 0 0 000000000002 0 000000000002 -FT1A 032541 000002 0 0 000000000002 0 000000000002 -FT9 032542 000002 0 0 000000000002 0 000000000002 -ET0 032542 000002 0 0 000000000002 0 000000000002 -ST1 032542 000002 0 0 000000000002 0 000000000002 -ST2 032542 000002 0 0 000000000002 0 000000000002 -ST9 032542 000002 0 0 000000000002 0 000000000002 - - -*032542 CAIE 2,000002 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032542 032542 0 0 302100000002 0 000000000002 -IT1 032542 0 0 0 302100000002 0 000000000002 -AT3 032542 0 0 0 000000000002 0 302100000002 -AT6 032542 000002 0 0 000000000002 0 302100000002 -FT1A 032542 000002 0 0 000000000002 0 000000000002 -FT2 032542 000002 0 0 0 0 000000000002 -FT2RQ 032542 000002 0 0 000000000002 0 000000000002 -FT3 032542 000002 0 0 000000000002 0 000000000002 -FT9 032543 000002 0 0 000000000002 0 000000000002 -ET0 032544 000002 0 0 0 0 000000000002 -ST1A 032544 000002 0 0 0 0 000000000002 -ST9 032544 000002 0 0 0 0 000000000002 - - -*032544 JUMPA 0,032545 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032544 032544 0 0 324000032545 0 000000032545 -IT1 032544 0 0 0 324000032545 0 000000032545 -AT3 032544 0 0 0 000000032545 0 324000032545 -AT6 032544 032545 0 0 000000032545 0 324000032545 -FT1A 032544 032545 0 0 000000032545 0 000000032545 -FT2 032544 032545 0 0 0 0 000000032545 -FT2RQ 032544 032545 0 0 0 0 000000032545 -FT3 032544 032545 0 0 0 0 000000032545 -FT9 032545 032545 0 0 0 0 000000032545 -ET0 032545 032545 0 0 0 0 000000032545 -ST1A 032545 032545 0 0 0 0 000000032545 -ST9 032545 032545 0 0 0 0 000000032545 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 318 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0513 - -*032545 MOVEI 4,777777 -INITIAL -C(AC)=000000 000004 -FINAL -C(AC)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032545 032545 0 0 201200777777 0 000000777777 -IT1 032545 0 0 0 201200777777 0 000000777777 -AT3 032545 0 0 0 000000777777 0 201200777777 -AT6 032545 777777 0 0 000000777777 0 201200777777 -FT1A 032545 777777 0 0 000000777777 0 000000777777 -FT9 032546 777777 0 0 000000777777 0 000000777777 -ET0 032546 777777 0 0 000000777777 0 000000777777 -ST1 032546 777777 0 0 000000777777 0 000000777777 -ST2 032546 777777 0 0 000000777777 0 000000777777 -ST9 032546 777777 0 0 000000777777 0 000000777777 - - -*032546 MOVEI 3,000004(4) -INITIAL -C(AC)=000000 000003 -FINAL -C(AC)=000000 000003 - -TIME PC MA SC FE AR MQ BR -IT0 032546 032546 0 0 201144000004 0 000000000003 -IT1 032546 0 0 0 201144000004 0 000000000003 -AT1 032546 0 0 0 0 0 201144000004 -AT2 032546 0 0 0 000000777777 0 201144000004 -AT3 032546 0 0 0 000000000003 0 000000000003 -AT6 032546 000003 0 0 000000000003 0 000000000003 -FT1A 032546 000003 0 0 000000000003 0 000000000003 -FT9 032547 000003 0 0 000000000003 0 000000000003 -ET0 032547 000003 0 0 000000000003 0 000000000003 -ST1 032547 000003 0 0 000000000003 0 000000000003 -ST2 032547 000003 0 0 000000000003 0 000000000003 -ST9 032547 000003 0 0 000000000003 0 000000000003 - - -*032547 CAIE 3,000003 -INITIAL -C(AC)=000000 000003 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032547 032547 0 0 302140000003 0 000000000003 -IT1 032547 0 0 0 302140000003 0 000000000003 -AT3 032547 0 0 0 000000000003 0 302140000003 -AT6 032547 000003 0 0 000000000003 0 302140000003 -FT1A 032547 000003 0 0 000000000003 0 000000000003 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 319 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0514 - -FT2 032547 000003 0 0 0 0 000000000003 -FT2RQ 032547 000003 0 0 000000000003 0 000000000003 -FT3 032547 000003 0 0 000000000003 0 000000000003 -FT9 032550 000003 0 0 000000000003 0 000000000003 -ET0 032551 000003 0 0 0 0 000000000003 -ST1A 032551 000003 0 0 0 0 000000000003 -ST9 032551 000003 0 0 0 0 000000000003 - - -*032551 JUMPA 0,032552 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032551 032551 0 0 324000032552 0 000000032552 -IT1 032551 0 0 0 324000032552 0 000000032552 -AT3 032551 0 0 0 000000032552 0 324000032552 -AT6 032551 032552 0 0 000000032552 0 324000032552 -FT1A 032551 032552 0 0 000000032552 0 000000032552 -FT2 032551 032552 0 0 0 0 000000032552 -FT2RQ 032551 032552 0 0 0 0 000000032552 -FT3 032551 032552 0 0 0 0 000000032552 -FT9 032552 032552 0 0 0 0 000000032552 -ET0 032552 032552 0 0 0 0 000000032552 -ST1A 032552 032552 0 0 0 0 000000032552 -ST9 032552 032552 0 0 0 0 000000032552 - - -*032552 MOVEI 5,777773 -INITIAL -C(AC)=000000 000005 -FINAL -C(AC)=000000 777773 - -TIME PC MA SC FE AR MQ BR -IT0 032552 032552 0 0 201240777773 0 000000777773 -IT1 032552 0 0 0 201240777773 0 000000777773 -AT3 032552 0 0 0 000000777773 0 201240777773 -AT6 032552 777773 0 0 000000777773 0 201240777773 -FT1A 032552 777773 0 0 000000777773 0 000000777773 -FT9 032553 777773 0 0 000000777773 0 000000777773 -ET0 032553 777773 0 0 000000777773 0 000000777773 -ST1 032553 777773 0 0 000000777773 0 000000777773 -ST2 032553 777773 0 0 000000777773 0 000000777773 -ST9 032553 777773 0 0 000000777773 0 000000777773 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 320 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0515 - -*032553 MOVEI 4,000011(5) -INITIAL -C(AC)=000000 777777 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 032553 032553 0 0 201205000011 0 000000000004 -IT1 032553 0 0 0 201205000011 0 000000000004 -AT1 032553 0 0 0 0 0 201205000011 -AT2 032553 0 0 0 000000777773 0 201205000011 -AT3 032553 0 0 0 000000000004 0 000000000004 -AT6 032553 000004 0 0 000000000004 0 000000000004 -FT1A 032553 000004 0 0 000000000004 0 000000000004 -FT9 032554 000004 0 0 000000000004 0 000000000004 -ET0 032554 000004 0 0 000000000004 0 000000000004 -ST1 032554 000004 0 0 000000000004 0 000000000004 -ST2 032554 000004 0 0 000000000004 0 000000000004 -ST9 032554 000004 0 0 000000000004 0 000000000004 - - -*032554 CAIE 4,000004 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032554 032554 0 0 302200000004 0 000000000004 -IT1 032554 0 0 0 302200000004 0 000000000004 -AT3 032554 0 0 0 000000000004 0 302200000004 -AT6 032554 000004 0 0 000000000004 0 302200000004 -FT1A 032554 000004 0 0 000000000004 0 000000000004 -FT2 032554 000004 0 0 0 0 000000000004 -FT2RQ 032554 000004 0 0 000000000004 0 000000000004 -FT3 032554 000004 0 0 000000000004 0 000000000004 -FT9 032555 000004 0 0 000000000004 0 000000000004 -ET0 032556 000004 0 0 0 0 000000000004 -ST1A 032556 000004 0 0 0 0 000000000004 -ST9 032556 000004 0 0 0 0 000000000004 - - -*032556 JUMPA 0,032557 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032556 032556 0 0 324000032557 0 000000032557 -IT1 032556 0 0 0 324000032557 0 000000032557 -AT3 032556 0 0 0 000000032557 0 324000032557 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 321 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0516 - -AT6 032556 032557 0 0 000000032557 0 324000032557 -FT1A 032556 032557 0 0 000000032557 0 000000032557 -FT2 032556 032557 0 0 0 0 000000032557 -FT2RQ 032556 032557 0 0 0 0 000000032557 -FT3 032556 032557 0 0 0 0 000000032557 -FT9 032557 032557 0 0 0 0 000000032557 -ET0 032557 032557 0 0 0 0 000000032557 -ST1A 032557 032557 0 0 0 0 000000032557 -ST9 032557 032557 0 0 0 0 000000032557 - - -*032557 MOVEI 6,777767 -INITIAL -C(AC)=000000 000006 -FINAL -C(AC)=000000 777767 - -TIME PC MA SC FE AR MQ BR -IT0 032557 032557 0 0 201300777767 0 000000777767 -IT1 032557 0 0 0 201300777767 0 000000777767 -AT3 032557 0 0 0 000000777767 0 201300777767 -AT6 032557 777767 0 0 000000777767 0 201300777767 -FT1A 032557 777767 0 0 000000777767 0 000000777767 -FT9 032560 777767 0 0 000000777767 0 000000777767 -ET0 032560 777767 0 0 000000777767 0 000000777767 -ST1 032560 777767 0 0 000000777767 0 000000777767 -ST2 032560 777767 0 0 000000777767 0 000000777767 -ST9 032560 777767 0 0 000000777767 0 000000777767 - - -*032560 MOVEI 5,000016(6) -INITIAL -C(AC)=000000 777773 -FINAL -C(AC)=000000 000005 - -TIME PC MA SC FE AR MQ BR -IT0 032560 032560 0 0 201246000016 0 000000000005 -IT1 032560 0 0 0 201246000016 0 000000000005 -AT1 032560 0 0 0 0 0 201246000016 -AT2 032560 0 0 0 000000777767 0 201246000016 -AT3 032560 0 0 0 000000000005 0 000000000005 -AT6 032560 000005 0 0 000000000005 0 000000000005 -FT1A 032560 000005 0 0 000000000005 0 000000000005 -FT9 032561 000005 0 0 000000000005 0 000000000005 -ET0 032561 000005 0 0 000000000005 0 000000000005 -ST1 032561 000005 0 0 000000000005 0 000000000005 -ST2 032561 000005 0 0 000000000005 0 000000000005 -ST9 032561 000005 0 0 000000000005 0 000000000005 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 322 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0517 - -*032561 CAIE 5,000005 -INITIAL -C(AC)=000000 000005 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032561 032561 0 0 302240000005 0 000000000005 -IT1 032561 0 0 0 302240000005 0 000000000005 -AT3 032561 0 0 0 000000000005 0 302240000005 -AT6 032561 000005 0 0 000000000005 0 302240000005 -FT1A 032561 000005 0 0 000000000005 0 000000000005 -FT2 032561 000005 0 0 0 0 000000000005 -FT2RQ 032561 000005 0 0 000000000005 0 000000000005 -FT3 032561 000005 0 0 000000000005 0 000000000005 -FT9 032562 000005 0 0 000000000005 0 000000000005 -ET0 032563 000005 0 0 0 0 000000000005 -ST1A 032563 000005 0 0 0 0 000000000005 -ST9 032563 000005 0 0 0 0 000000000005 - - -*032563 JUMPA 0,032564 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032563 032563 0 0 324000032564 0 000000032564 -IT1 032563 0 0 0 324000032564 0 000000032564 -AT3 032563 0 0 0 000000032564 0 324000032564 -AT6 032563 032564 0 0 000000032564 0 324000032564 -FT1A 032563 032564 0 0 000000032564 0 000000032564 -FT2 032563 032564 0 0 0 0 000000032564 -FT2RQ 032563 032564 0 0 0 0 000000032564 -FT3 032563 032564 0 0 0 0 000000032564 -FT9 032564 032564 0 0 0 0 000000032564 -ET0 032564 032564 0 0 0 0 000000032564 -ST1A 032564 032564 0 0 0 0 000000032564 -ST9 032564 032564 0 0 0 0 000000032564 - - -*032564 MOVEI 7,777763 -INITIAL -C(AC)=000000 000007 -FINAL -C(AC)=000000 777763 - -TIME PC MA SC FE AR MQ BR -IT0 032564 032564 0 0 201340777763 0 000000777763 -IT1 032564 0 0 0 201340777763 0 000000777763 -AT3 032564 0 0 0 000000777763 0 201340777763 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 323 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0518 - -AT6 032564 777763 0 0 000000777763 0 201340777763 -FT1A 032564 777763 0 0 000000777763 0 000000777763 -FT9 032565 777763 0 0 000000777763 0 000000777763 -ET0 032565 777763 0 0 000000777763 0 000000777763 -ST1 032565 777763 0 0 000000777763 0 000000777763 -ST2 032565 777763 0 0 000000777763 0 000000777763 -ST9 032565 777763 0 0 000000777763 0 000000777763 - - -*032565 MOVEI 6,000023(7) -INITIAL -C(AC)=000000 777767 -FINAL -C(AC)=000000 000006 - -TIME PC MA SC FE AR MQ BR -IT0 032565 032565 0 0 201307000023 0 000000000006 -IT1 032565 0 0 0 201307000023 0 000000000006 -AT1 032565 0 0 0 0 0 201307000023 -AT2 032565 0 0 0 000000777763 0 201307000023 -AT3 032565 0 0 0 000000000006 0 000000000006 -AT6 032565 000006 0 0 000000000006 0 000000000006 -FT1A 032565 000006 0 0 000000000006 0 000000000006 -FT9 032566 000006 0 0 000000000006 0 000000000006 -ET0 032566 000006 0 0 000000000006 0 000000000006 -ST1 032566 000006 0 0 000000000006 0 000000000006 -ST2 032566 000006 0 0 000000000006 0 000000000006 -ST9 032566 000006 0 0 000000000006 0 000000000006 - - -*032566 CAIE 6,000006 -INITIAL -C(AC)=000000 000006 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032566 032566 0 0 302300000006 0 000000000006 -IT1 032566 0 0 0 302300000006 0 000000000006 -AT3 032566 0 0 0 000000000006 0 302300000006 -AT6 032566 000006 0 0 000000000006 0 302300000006 -FT1A 032566 000006 0 0 000000000006 0 000000000006 -FT2 032566 000006 0 0 0 0 000000000006 -FT2RQ 032566 000006 0 0 000000000006 0 000000000006 -FT3 032566 000006 0 0 000000000006 0 000000000006 -FT9 032567 000006 0 0 000000000006 0 000000000006 -ET0 032570 000006 0 0 0 0 000000000006 -ST1A 032570 000006 0 0 0 0 000000000006 -ST9 032570 000006 0 0 0 0 000000000006 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 324 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0519 - -*032570 JUMPA 0,032571 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032570 032570 0 0 324000032571 0 000000032571 -IT1 032570 0 0 0 324000032571 0 000000032571 -AT3 032570 0 0 0 000000032571 0 324000032571 -AT6 032570 032571 0 0 000000032571 0 324000032571 -FT1A 032570 032571 0 0 000000032571 0 000000032571 -FT2 032570 032571 0 0 0 0 000000032571 -FT2RQ 032570 032571 0 0 0 0 000000032571 -FT3 032570 032571 0 0 0 0 000000032571 -FT9 032571 032571 0 0 0 0 000000032571 -ET0 032571 032571 0 0 0 0 000000032571 -ST1A 032571 032571 0 0 0 0 000000032571 -ST9 032571 032571 0 0 0 0 000000032571 - - -*032571 MOVEI 10,777757 -INITIAL -C(AC)=000000 000010 -FINAL -C(AC)=000000 777757 - -TIME PC MA SC FE AR MQ BR -IT0 032571 032571 0 0 201400777757 0 000000777757 -IT1 032571 0 0 0 201400777757 0 000000777757 -AT3 032571 0 0 0 000000777757 0 201400777757 -AT6 032571 777757 0 0 000000777757 0 201400777757 -FT1A 032571 777757 0 0 000000777757 0 000000777757 -FT9 032572 777757 0 0 000000777757 0 000000777757 -ET0 032572 777757 0 0 000000777757 0 000000777757 -ST1 032572 777757 0 0 000000777757 0 000000777757 -ST2 032572 777757 0 0 000000777757 0 000000777757 -ST9 032572 777757 0 0 000000777757 0 000000777757 - - -*032572 MOVEI 7,000030(10) -INITIAL -C(AC)=000000 777763 -FINAL -C(AC)=000000 000007 - -TIME PC MA SC FE AR MQ BR -IT0 032572 032572 0 0 201350000030 0 000000000007 -IT1 032572 0 0 0 201350000030 0 000000000007 -AT1 032572 0 0 0 0 0 201350000030 -AT2 032572 0 0 0 000000777757 0 201350000030 -AT3 032572 0 0 0 000000000007 0 000000000007 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 325 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0520 - -AT6 032572 000007 0 0 000000000007 0 000000000007 -FT1A 032572 000007 0 0 000000000007 0 000000000007 -FT9 032573 000007 0 0 000000000007 0 000000000007 -ET0 032573 000007 0 0 000000000007 0 000000000007 -ST1 032573 000007 0 0 000000000007 0 000000000007 -ST2 032573 000007 0 0 000000000007 0 000000000007 -ST9 032573 000007 0 0 000000000007 0 000000000007 - - -*032573 CAIE 7,000007 -INITIAL -C(AC)=000000 000007 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032573 032573 0 0 302340000007 0 000000000007 -IT1 032573 0 0 0 302340000007 0 000000000007 -AT3 032573 0 0 0 000000000007 0 302340000007 -AT6 032573 000007 0 0 000000000007 0 302340000007 -FT1A 032573 000007 0 0 000000000007 0 000000000007 -FT2 032573 000007 0 0 0 0 000000000007 -FT2RQ 032573 000007 0 0 000000000007 0 000000000007 -FT3 032573 000007 0 0 000000000007 0 000000000007 -FT9 032574 000007 0 0 000000000007 0 000000000007 -ET0 032575 000007 0 0 0 0 000000000007 -ST1A 032575 000007 0 0 0 0 000000000007 -ST9 032575 000007 0 0 0 0 000000000007 - - -*032575 JUMPA 0,032576 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032575 032575 0 0 324000032576 0 000000032576 -IT1 032575 0 0 0 324000032576 0 000000032576 -AT3 032575 0 0 0 000000032576 0 324000032576 -AT6 032575 032576 0 0 000000032576 0 324000032576 -FT1A 032575 032576 0 0 000000032576 0 000000032576 -FT2 032575 032576 0 0 0 0 000000032576 -FT2RQ 032575 032576 0 0 0 0 000000032576 -FT3 032575 032576 0 0 0 0 000000032576 -FT9 032576 032576 0 0 0 0 000000032576 -ET0 032576 032576 0 0 0 0 000000032576 -ST1A 032576 032576 0 0 0 0 000000032576 -ST9 032576 032576 0 0 0 0 000000032576 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 326 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0521 - -*032576 MOVEI 11,777753 -INITIAL -C(AC)=000000 000011 -FINAL -C(AC)=000000 777753 - -TIME PC MA SC FE AR MQ BR -IT0 032576 032576 0 0 201440777753 0 000000777753 -IT1 032576 0 0 0 201440777753 0 000000777753 -AT3 032576 0 0 0 000000777753 0 201440777753 -AT6 032576 777753 0 0 000000777753 0 201440777753 -FT1A 032576 777753 0 0 000000777753 0 000000777753 -FT9 032577 777753 0 0 000000777753 0 000000777753 -ET0 032577 777753 0 0 000000777753 0 000000777753 -ST1 032577 777753 0 0 000000777753 0 000000777753 -ST2 032577 777753 0 0 000000777753 0 000000777753 -ST9 032577 777753 0 0 000000777753 0 000000777753 - - -*032577 MOVEI 10,000035(11) -INITIAL -C(AC)=000000 777757 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 032577 032577 0 0 201411000035 0 000000000010 -IT1 032577 0 0 0 201411000035 0 000000000010 -AT1 032577 0 0 0 0 0 201411000035 -AT2 032577 0 0 0 000000777753 0 201411000035 -AT3 032577 0 0 0 000000000010 0 000000000010 -AT6 032577 000010 0 0 000000000010 0 000000000010 -FT1A 032577 000010 0 0 000000000010 0 000000000010 -FT9 0 000010 0 0 000000000010 0 000000000010 -ET0 0 000010 0 0 000000000010 0 000000000010 -ST1 0 000010 0 0 000000000010 0 000000000010 -ST2 0 000010 0 0 000000000010 0 000000000010 -ST9 0 000010 0 0 000000000010 0 000000000010 - - -*032600 CAIE 10,000010 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 302400000010 0 000000000010 -IT1 0 0 0 0 302400000010 0 000000000010 -AT3 0 0 0 0 000000000010 0 302400000010 -AT6 0 000010 0 0 000000000010 0 302400000010 -FT1A 0 000010 0 0 000000000010 0 000000000010 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 327 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0522 - -FT2 0 000010 0 0 0 0 000000000010 -FT2RQ 0 000010 0 0 000000000010 0 000000000010 -FT3 0 000010 0 0 000000000010 0 000000000010 -FT9 032601 000010 0 0 000000000010 0 000000000010 -ET0 032602 000010 0 0 0 0 000000000010 -ST1A 032602 000010 0 0 0 0 000000000010 -ST9 032602 000010 0 0 0 0 000000000010 - - -*032602 JUMPA 0,032603 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032602 032602 0 0 324000032603 0 000000032603 -IT1 032602 0 0 0 324000032603 0 000000032603 -AT3 032602 0 0 0 000000032603 0 324000032603 -AT6 032602 032603 0 0 000000032603 0 324000032603 -FT1A 032602 032603 0 0 000000032603 0 000000032603 -FT2 032602 032603 0 0 0 0 000000032603 -FT2RQ 032602 032603 0 0 0 0 000000032603 -FT3 032602 032603 0 0 0 0 000000032603 -FT9 032603 032603 0 0 0 0 000000032603 -ET0 032603 032603 0 0 0 0 000000032603 -ST1A 032603 032603 0 0 0 0 000000032603 -ST9 032603 032603 0 0 0 0 000000032603 - - -*032603 MOVEI 12,777747 -INITIAL -C(AC)=000000 000012 -FINAL -C(AC)=000000 777747 - -TIME PC MA SC FE AR MQ BR -IT0 032603 032603 0 0 201500777747 0 000000777747 -IT1 032603 0 0 0 201500777747 0 000000777747 -AT3 032603 0 0 0 000000777747 0 201500777747 -AT6 032603 777747 0 0 000000777747 0 201500777747 -FT1A 032603 777747 0 0 000000777747 0 000000777747 -FT9 032604 777747 0 0 000000777747 0 000000777747 -ET0 032604 777747 0 0 000000777747 0 000000777747 -ST1 032604 777747 0 0 000000777747 0 000000777747 -ST2 032604 777747 0 0 000000777747 0 000000777747 -ST9 032604 777747 0 0 000000777747 0 000000777747 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 328 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0523 - -*032604 MOVEI 11,000042(12) -INITIAL -C(AC)=000000 777753 -FINAL -C(AC)=000000 000011 - -TIME PC MA SC FE AR MQ BR -IT0 032604 032604 0 0 201452000042 0 000000000011 -IT1 032604 0 0 0 201452000042 0 000000000011 -AT1 032604 0 0 0 0 0 201452000042 -AT2 032604 0 0 0 000000777747 0 201452000042 -AT3 032604 0 0 0 000000000011 0 000000000011 -AT6 032604 000011 0 0 000000000011 0 000000000011 -FT1A 032604 000011 0 0 000000000011 0 000000000011 -FT9 032605 000011 0 0 000000000011 0 000000000011 -ET0 032605 000011 0 0 000000000011 0 000000000011 -ST1 032605 000011 0 0 000000000011 0 000000000011 -ST2 032605 000011 0 0 000000000011 0 000000000011 -ST9 032605 000011 0 0 000000000011 0 000000000011 - - -*032605 CAIE 11,000011 -INITIAL -C(AC)=000000 000011 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032605 032605 0 0 302440000011 0 000000000011 -IT1 032605 0 0 0 302440000011 0 000000000011 -AT3 032605 0 0 0 000000000011 0 302440000011 -AT6 032605 000011 0 0 000000000011 0 302440000011 -FT1A 032605 000011 0 0 000000000011 0 000000000011 -FT2 032605 000011 0 0 0 0 000000000011 -FT2RQ 032605 000011 0 0 000000000011 0 000000000011 -FT3 032605 000011 0 0 000000000011 0 000000000011 -FT9 032606 000011 0 0 000000000011 0 000000000011 -ET0 032607 000011 0 0 0 0 000000000011 -ST1A 032607 000011 0 0 0 0 000000000011 -ST9 032607 000011 0 0 0 0 000000000011 - - -*032607 JUMPA 0,032610 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032607 032607 0 0 324000032610 0 000000032610 -IT1 032607 0 0 0 324000032610 0 000000032610 -AT3 032607 0 0 0 000000032610 0 324000032610 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 329 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0524 - -AT6 032607 032610 0 0 000000032610 0 324000032610 -FT1A 032607 032610 0 0 000000032610 0 000000032610 -FT2 032607 032610 0 0 0 0 000000032610 -FT2RQ 032607 032610 0 0 0 0 000000032610 -FT3 032607 032610 0 0 0 0 000000032610 -FT9 032610 032610 0 0 0 0 000000032610 -ET0 032610 032610 0 0 0 0 000000032610 -ST1A 032610 032610 0 0 0 0 000000032610 -ST9 032610 032610 0 0 0 0 000000032610 - - -*032610 MOVEI 13,777743 -INITIAL -C(AC)=000000 000013 -FINAL -C(AC)=000000 777743 - -TIME PC MA SC FE AR MQ BR -IT0 032610 032610 0 0 201540777743 0 000000777743 -IT1 032610 0 0 0 201540777743 0 000000777743 -AT3 032610 0 0 0 000000777743 0 201540777743 -AT6 032610 777743 0 0 000000777743 0 201540777743 -FT1A 032610 777743 0 0 000000777743 0 000000777743 -FT9 032611 777743 0 0 000000777743 0 000000777743 -ET0 032611 777743 0 0 000000777743 0 000000777743 -ST1 032611 777743 0 0 000000777743 0 000000777743 -ST2 032611 777743 0 0 000000777743 0 000000777743 -ST9 032611 777743 0 0 000000777743 0 000000777743 - - -*032611 MOVEI 12,000047(13) -INITIAL -C(AC)=000000 777747 -FINAL -C(AC)=000000 000012 - -TIME PC MA SC FE AR MQ BR -IT0 032611 032611 0 0 201513000047 0 000000000012 -IT1 032611 0 0 0 201513000047 0 000000000012 -AT1 032611 0 0 0 0 0 201513000047 -AT2 032611 0 0 0 000000777743 0 201513000047 -AT3 032611 0 0 0 000000000012 0 000000000012 -AT6 032611 000012 0 0 000000000012 0 000000000012 -FT1A 032611 000012 0 0 000000000012 0 000000000012 -FT9 032612 000012 0 0 000000000012 0 000000000012 -ET0 032612 000012 0 0 000000000012 0 000000000012 -ST1 032612 000012 0 0 000000000012 0 000000000012 -ST2 032612 000012 0 0 000000000012 0 000000000012 -ST9 032612 000012 0 0 000000000012 0 000000000012 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 330 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0525 - -*032612 CAIE 12,000012 -INITIAL -C(AC)=000000 000012 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032612 032612 0 0 302500000012 0 000000000012 -IT1 032612 0 0 0 302500000012 0 000000000012 -AT3 032612 0 0 0 000000000012 0 302500000012 -AT6 032612 000012 0 0 000000000012 0 302500000012 -FT1A 032612 000012 0 0 000000000012 0 000000000012 -FT2 032612 000012 0 0 0 0 000000000012 -FT2RQ 032612 000012 0 0 000000000012 0 000000000012 -FT3 032612 000012 0 0 000000000012 0 000000000012 -FT9 032613 000012 0 0 000000000012 0 000000000012 -ET0 032614 000012 0 0 0 0 000000000012 -ST1A 032614 000012 0 0 0 0 000000000012 -ST9 032614 000012 0 0 0 0 000000000012 - - -*032614 JUMPA 0,032615 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032614 032614 0 0 324000032615 0 000000032615 -IT1 032614 0 0 0 324000032615 0 000000032615 -AT3 032614 0 0 0 000000032615 0 324000032615 -AT6 032614 032615 0 0 000000032615 0 324000032615 -FT1A 032614 032615 0 0 000000032615 0 000000032615 -FT2 032614 032615 0 0 0 0 000000032615 -FT2RQ 032614 032615 0 0 0 0 000000032615 -FT3 032614 032615 0 0 0 0 000000032615 -FT9 032615 032615 0 0 0 0 000000032615 -ET0 032615 032615 0 0 0 0 000000032615 -ST1A 032615 032615 0 0 0 0 000000032615 -ST9 032615 032615 0 0 0 0 000000032615 - - -*032615 MOVEI 14,777737 -INITIAL -C(AC)=000000 000014 -FINAL -C(AC)=000000 777737 - -TIME PC MA SC FE AR MQ BR -IT0 032615 032615 0 0 201600777737 0 000000777737 -IT1 032615 0 0 0 201600777737 0 000000777737 -AT3 032615 0 0 0 000000777737 0 201600777737 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 331 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0526 - -AT6 032615 777737 0 0 000000777737 0 201600777737 -FT1A 032615 777737 0 0 000000777737 0 000000777737 -FT9 032616 777737 0 0 000000777737 0 000000777737 -ET0 032616 777737 0 0 000000777737 0 000000777737 -ST1 032616 777737 0 0 000000777737 0 000000777737 -ST2 032616 777737 0 0 000000777737 0 000000777737 -ST9 032616 777737 0 0 000000777737 0 000000777737 - - -*032616 MOVEI 13,000054(14) -INITIAL -C(AC)=000000 777743 -FINAL -C(AC)=000000 000013 - -TIME PC MA SC FE AR MQ BR -IT0 032616 032616 0 0 201554000054 0 000000000013 -IT1 032616 0 0 0 201554000054 0 000000000013 -AT1 032616 0 0 0 0 0 201554000054 -AT2 032616 0 0 0 000000777737 0 201554000054 -AT3 032616 0 0 0 000000000013 0 000000000013 -AT6 032616 000013 0 0 000000000013 0 000000000013 -FT1A 032616 000013 0 0 000000000013 0 000000000013 -FT9 032617 000013 0 0 000000000013 0 000000000013 -ET0 032617 000013 0 0 000000000013 0 000000000013 -ST1 032617 000013 0 0 000000000013 0 000000000013 -ST2 032617 000013 0 0 000000000013 0 000000000013 -ST9 032617 000013 0 0 000000000013 0 000000000013 - - -*032617 CAIE 13,000013 -INITIAL -C(AC)=000000 000013 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032617 032617 0 0 302540000013 0 000000000013 -IT1 032617 0 0 0 302540000013 0 000000000013 -AT3 032617 0 0 0 000000000013 0 302540000013 -AT6 032617 000013 0 0 000000000013 0 302540000013 -FT1A 032617 000013 0 0 000000000013 0 000000000013 -FT2 032617 000013 0 0 0 0 000000000013 -FT2RQ 032617 000013 0 0 000000000013 0 000000000013 -FT3 032617 000013 0 0 000000000013 0 000000000013 -FT9 032620 000013 0 0 000000000013 0 000000000013 -ET0 032621 000013 0 0 0 0 000000000013 -ST1A 032621 000013 0 0 0 0 000000000013 -ST9 032621 000013 0 0 0 0 000000000013 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 332 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0527 - -*032621 JUMPA 0,032622 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032621 032621 0 0 324000032622 0 000000032622 -IT1 032621 0 0 0 324000032622 0 000000032622 -AT3 032621 0 0 0 000000032622 0 324000032622 -AT6 032621 032622 0 0 000000032622 0 324000032622 -FT1A 032621 032622 0 0 000000032622 0 000000032622 -FT2 032621 032622 0 0 0 0 000000032622 -FT2RQ 032621 032622 0 0 0 0 000000032622 -FT3 032621 032622 0 0 0 0 000000032622 -FT9 032622 032622 0 0 0 0 000000032622 -ET0 032622 032622 0 0 0 0 000000032622 -ST1A 032622 032622 0 0 0 0 000000032622 -ST9 032622 032622 0 0 0 0 000000032622 - - -*032622 MOVEI 15,777733 -INITIAL -C(AC)=000000 000015 -FINAL -C(AC)=000000 777733 - -TIME PC MA SC FE AR MQ BR -IT0 032622 032622 0 0 201640777733 0 000000777733 -IT1 032622 0 0 0 201640777733 0 000000777733 -AT3 032622 0 0 0 000000777733 0 201640777733 -AT6 032622 777733 0 0 000000777733 0 201640777733 -FT1A 032622 777733 0 0 000000777733 0 000000777733 -FT9 032623 777733 0 0 000000777733 0 000000777733 -ET0 032623 777733 0 0 000000777733 0 000000777733 -ST1 032623 777733 0 0 000000777733 0 000000777733 -ST2 032623 777733 0 0 000000777733 0 000000777733 -ST9 032623 777733 0 0 000000777733 0 000000777733 - - -*032623 MOVEI 14,000061(15) -INITIAL -C(AC)=000000 777737 -FINAL -C(AC)=000000 000014 - -TIME PC MA SC FE AR MQ BR -IT0 032623 032623 0 0 201615000061 0 000000000014 -IT1 032623 0 0 0 201615000061 0 000000000014 -AT1 032623 0 0 0 0 0 201615000061 -AT2 032623 0 0 0 000000777733 0 201615000061 -AT3 032623 0 0 0 000000000014 0 000000000014 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 333 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0528 - -AT6 032623 000014 0 0 000000000014 0 000000000014 -FT1A 032623 000014 0 0 000000000014 0 000000000014 -FT9 032624 000014 0 0 000000000014 0 000000000014 -ET0 032624 000014 0 0 000000000014 0 000000000014 -ST1 032624 000014 0 0 000000000014 0 000000000014 -ST2 032624 000014 0 0 000000000014 0 000000000014 -ST9 032624 000014 0 0 000000000014 0 000000000014 - - -*032624 CAIE 14,000014 -INITIAL -C(AC)=000000 000014 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032624 032624 0 0 302600000014 0 000000000014 -IT1 032624 0 0 0 302600000014 0 000000000014 -AT3 032624 0 0 0 000000000014 0 302600000014 -AT6 032624 000014 0 0 000000000014 0 302600000014 -FT1A 032624 000014 0 0 000000000014 0 000000000014 -FT2 032624 000014 0 0 0 0 000000000014 -FT2RQ 032624 000014 0 0 000000000014 0 000000000014 -FT3 032624 000014 0 0 000000000014 0 000000000014 -FT9 032625 000014 0 0 000000000014 0 000000000014 -ET0 032626 000014 0 0 0 0 000000000014 -ST1A 032626 000014 0 0 0 0 000000000014 -ST9 032626 000014 0 0 0 0 000000000014 - - -*032626 JUMPA 0,032627 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032626 032626 0 0 324000032627 0 000000032627 -IT1 032626 0 0 0 324000032627 0 000000032627 -AT3 032626 0 0 0 000000032627 0 324000032627 -AT6 032626 032627 0 0 000000032627 0 324000032627 -FT1A 032626 032627 0 0 000000032627 0 000000032627 -FT2 032626 032627 0 0 0 0 000000032627 -FT2RQ 032626 032627 0 0 0 0 000000032627 -FT3 032626 032627 0 0 0 0 000000032627 -FT9 032627 032627 0 0 0 0 000000032627 -ET0 032627 032627 0 0 0 0 000000032627 -ST1A 032627 032627 0 0 0 0 000000032627 -ST9 032627 032627 0 0 0 0 000000032627 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 334 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0529 - -*032627 MOVEI 16,777727 -INITIAL -C(AC)=000000 000016 -FINAL -C(AC)=000000 777727 - -TIME PC MA SC FE AR MQ BR -IT0 032627 032627 0 0 201700777727 0 000000777727 -IT1 032627 0 0 0 201700777727 0 000000777727 -AT3 032627 0 0 0 000000777727 0 201700777727 -AT6 032627 777727 0 0 000000777727 0 201700777727 -FT1A 032627 777727 0 0 000000777727 0 000000777727 -FT9 032630 777727 0 0 000000777727 0 000000777727 -ET0 032630 777727 0 0 000000777727 0 000000777727 -ST1 032630 777727 0 0 000000777727 0 000000777727 -ST2 032630 777727 0 0 000000777727 0 000000777727 -ST9 032630 777727 0 0 000000777727 0 000000777727 - - -*032630 MOVEI 15,000066(16) -INITIAL -C(AC)=000000 777733 -FINAL -C(AC)=000000 000015 - -TIME PC MA SC FE AR MQ BR -IT0 032630 032630 0 0 201656000066 0 000000000015 -IT1 032630 0 0 0 201656000066 0 000000000015 -AT1 032630 0 0 0 0 0 201656000066 -AT2 032630 0 0 0 000000777727 0 201656000066 -AT3 032630 0 0 0 000000000015 0 000000000015 -AT6 032630 000015 0 0 000000000015 0 000000000015 -FT1A 032630 000015 0 0 000000000015 0 000000000015 -FT9 032631 000015 0 0 000000000015 0 000000000015 -ET0 032631 000015 0 0 000000000015 0 000000000015 -ST1 032631 000015 0 0 000000000015 0 000000000015 -ST2 032631 000015 0 0 000000000015 0 000000000015 -ST9 032631 000015 0 0 000000000015 0 000000000015 - - -*032631 CAIE 15,000015 -INITIAL -C(AC)=000000 000015 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032631 032631 0 0 302640000015 0 000000000015 -IT1 032631 0 0 0 302640000015 0 000000000015 -AT3 032631 0 0 0 000000000015 0 302640000015 -AT6 032631 000015 0 0 000000000015 0 302640000015 -FT1A 032631 000015 0 0 000000000015 0 000000000015 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 335 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0530 - -FT2 032631 000015 0 0 0 0 000000000015 -FT2RQ 032631 000015 0 0 000000000015 0 000000000015 -FT3 032631 000015 0 0 000000000015 0 000000000015 -FT9 032632 000015 0 0 000000000015 0 000000000015 -ET0 032633 000015 0 0 0 0 000000000015 -ST1A 032633 000015 0 0 0 0 000000000015 -ST9 032633 000015 0 0 0 0 000000000015 - - -*032633 JUMPA 0,032634 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032633 032633 0 0 324000032634 0 000000032634 -IT1 032633 0 0 0 324000032634 0 000000032634 -AT3 032633 0 0 0 000000032634 0 324000032634 -AT6 032633 032634 0 0 000000032634 0 324000032634 -FT1A 032633 032634 0 0 000000032634 0 000000032634 -FT2 032633 032634 0 0 0 0 000000032634 -FT2RQ 032633 032634 0 0 0 0 000000032634 -FT3 032633 032634 0 0 0 0 000000032634 -FT9 032634 032634 0 0 0 0 000000032634 -ET0 032634 032634 0 0 0 0 000000032634 -ST1A 032634 032634 0 0 0 0 000000032634 -ST9 032634 032634 0 0 0 0 000000032634 - - -*032634 MOVEI 17,777723 -INITIAL -C(AC)=000000 777751 -FINAL -C(AC)=000000 777723 - -TIME PC MA SC FE AR MQ BR -IT0 032634 032634 0 0 201740777723 0 000000777723 -IT1 032634 0 0 0 201740777723 0 000000777723 -AT3 032634 0 0 0 000000777723 0 201740777723 -AT6 032634 777723 0 0 000000777723 0 201740777723 -FT1A 032634 777723 0 0 000000777723 0 000000777723 -FT9 032635 777723 0 0 000000777723 0 000000777723 -ET0 032635 777723 0 0 000000777723 0 000000777723 -ST1 032635 777723 0 0 000000777723 0 000000777723 -ST2 032635 777723 0 0 000000777723 0 000000777723 -ST9 032635 777723 0 0 000000777723 0 000000777723 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 336 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0531 - -*032635 MOVEI 16,000073(17) -INITIAL -C(AC)=000000 777727 -FINAL -C(AC)=000000 000016 - -TIME PC MA SC FE AR MQ BR -IT0 032635 032635 0 0 201717000073 0 000000000016 -IT1 032635 0 0 0 201717000073 0 000000000016 -AT1 032635 0 0 0 0 0 201717000073 -AT2 032635 0 0 0 000000777723 0 201717000073 -AT3 032635 0 0 0 000000000016 0 000000000016 -AT6 032635 000016 0 0 000000000016 0 000000000016 -FT1A 032635 000016 0 0 000000000016 0 000000000016 -FT9 032636 000016 0 0 000000000016 0 000000000016 -ET0 032636 000016 0 0 000000000016 0 000000000016 -ST1 032636 000016 0 0 000000000016 0 000000000016 -ST2 032636 000016 0 0 000000000016 0 000000000016 -ST9 032636 000016 0 0 000000000016 0 000000000016 - - -*032636 CAIE 16,000016 -INITIAL -C(AC)=000000 000016 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032636 032636 0 0 302700000016 0 000000000016 -IT1 032636 0 0 0 302700000016 0 000000000016 -AT3 032636 0 0 0 000000000016 0 302700000016 -AT6 032636 000016 0 0 000000000016 0 302700000016 -FT1A 032636 000016 0 0 000000000016 0 000000000016 -FT2 032636 000016 0 0 0 0 000000000016 -FT2RQ 032636 000016 0 0 000000000016 0 000000000016 -FT3 032636 000016 0 0 000000000016 0 000000000016 -FT9 032637 000016 0 0 000000000016 0 000000000016 -ET0 032640 000016 0 0 0 0 000000000016 -ST1A 032640 000016 0 0 0 0 000000000016 -ST9 032640 000016 0 0 0 0 000000000016 - - -*032640 JUMPA 0,032641 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032640 032640 0 0 324000032641 0 000000032641 -IT1 032640 0 0 0 324000032641 0 000000032641 -AT3 032640 0 0 0 000000032641 0 324000032641 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 337 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0532 - -AT6 032640 032641 0 0 000000032641 0 324000032641 -FT1A 032640 032641 0 0 000000032641 0 000000032641 -FT2 032640 032641 0 0 0 0 000000032641 -FT2RQ 032640 032641 0 0 0 0 000000032641 -FT3 032640 032641 0 0 0 0 000000032641 -FT9 032641 032641 0 0 0 0 000000032641 -ET0 032641 032641 0 0 0 0 000000032641 -ST1A 032641 032641 0 0 0 0 000000032641 -ST9 032641 032641 0 0 0 0 000000032641 - - -*032641 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 032641 032641 0 0 400000000000 0 0 -IT1 032641 0 0 0 400000000000 0 0 -AT3 032641 0 0 0 0 0 400000000000 -AT6 032641 0 0 0 0 0 400000000000 -FT1A 032641 0 0 0 0 0 0 -FT9 032642 0 0 0 0 0 0 -ET0 032642 0 0 0 0 0 0 -ST1 032642 0 0 0 0 0 0 -ST2 032642 0 0 0 0 0 0 -ST9 032642 0 0 0 0 0 0 - - -*032642 EXCH 0,000000 -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 032642 032642 0 0 250000000000 0 0 -IT1 032642 0 0 0 250000000000 0 0 -AT3 032642 0 0 0 0 0 250000000000 -AT6 032642 0 0 0 0 0 250000000000 -FT0 032642 0 0 0 0 0 250000000000 -FT1A 032642 0 0 0 0 0 0 -FT2 032642 0 0 0 0 0 0 -FT2RQ 032642 0 0 0 0 0 0 -FT3 032642 0 0 0 0 0 0 -FT9 032643 0 0 0 0 0 0 -ET0 032643 0 0 0 0 0 0 -ST1 032643 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 338 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0533 - -ST2 032643 0 0 0 0 0 0 -ST3 032643 0 0 0 0 0 0 -ST5 032643 0 0 0 0 0 0 -ST6A 032643 0 0 0 0 0 0 -ST9 032643 0 0 0 0 0 0 - - -*032643 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 032643 032643 0 0 332000000000 0 0 -IT1 032643 0 0 0 332000000000 0 0 -AT3 032643 0 0 0 0 0 332000000000 -AT6 032643 0 0 0 0 0 332000000000 -FT0 032643 0 0 0 0 0 332000000000 -FT1A 032643 0 0 0 0 0 0 -FT9 032644 0 0 0 0 0 0 -ET0 032645 0 0 0 0 0 0 -ST1A 032645 0 0 0 0 0 0 -ST9 032645 0 0 0 0 0 0 - - -*032645 JUMPA 0,032646 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032645 032645 0 0 324000032646 0 000000032646 -IT1 032645 0 0 0 324000032646 0 000000032646 -AT3 032645 0 0 0 000000032646 0 324000032646 -AT6 032645 032646 0 0 000000032646 0 324000032646 -FT1A 032645 032646 0 0 000000032646 0 000000032646 -FT2 032645 032646 0 0 0 0 000000032646 -FT2RQ 032645 032646 0 0 0 0 000000032646 -FT3 032645 032646 0 0 0 0 000000032646 -FT9 032646 032646 0 0 0 0 000000032646 -ET0 032646 032646 0 0 0 0 000000032646 -ST1A 032646 032646 0 0 0 0 000000032646 -ST9 032646 032646 0 0 0 0 000000032646 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 339 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0534 - -*032646 SETO 0,000000 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032646 032646 0 0 474000000000 0 0 -IT1 032646 0 0 0 474000000000 0 0 -AT3 032646 0 0 0 0 0 474000000000 -AT6 032646 0 0 0 0 0 474000000000 -FT1A 032646 0 0 0 0 0 0 -FT9 032647 0 0 0 0 0 0 -ET0 032647 0 0 0 777777777777 0 0 -ST1 032647 0 0 0 777777777777 0 0 -ST2 032647 0 0 0 777777777777 0 0 -ST9 032647 0 0 0 777777777777 0 0 - - -*032647 EXCH 0,000000 -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 032647 032647 0 0 250000000000 0 777777777777 -IT1 032647 0 0 0 250000000000 0 777777777777 -AT3 032647 0 0 0 0 0 250000000000 -AT6 032647 0 0 0 0 0 250000000000 -FT0 032647 0 0 0 777777777777 0 250000000000 -FT1A 032647 0 0 0 777777777777 0 777777777777 -FT2 032647 0 0 0 0 0 777777777777 -FT2RQ 032647 0 0 0 777777777777 0 777777777777 -FT3 032647 0 0 0 777777777777 0 777777777777 -FT9 032650 0 0 0 777777777777 0 777777777777 -ET0 032650 0 0 0 777777777777 0 777777777777 -ST1 032650 0 0 0 777777777777 0 777777777777 -ST2 032650 0 0 0 777777777777 0 777777777777 -ST3 032650 0 0 0 777777777777 0 777777777777 -ST5 032650 0 0 0 777777777777 0 777777777777 -ST6A 032650 0 0 0 777777777777 0 777777777777 -ST9 032650 0 0 0 777777777777 0 777777777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 340 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0535 - -*032650 CAME 0,034466 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032650 032650 0 0 312000034466 0 777777777777 -IT1 032650 0 0 0 312000034466 0 777777777777 -AT3 032650 0 0 0 000000034466 0 312000034466 -AT6 032650 034466 0 0 000000034466 0 312000034466 -FT0 032650 034466 0 0 777777777777 0 312000034466 -FT1A 032650 034466 0 0 777777777777 0 777777777777 -FT2 032650 034466 0 0 0 0 777777777777 -FT2RQ 032650 034466 0 0 777777777777 0 777777777777 -FT3 032650 034466 0 0 777777777777 0 777777777777 -FT9 032651 034466 0 0 777777777777 0 777777777777 -ET0 032652 034466 0 0 0 0 777777777777 -ST1A 032652 034466 0 0 0 0 777777777777 -ST9 032652 034466 0 0 0 0 777777777777 - - -*032652 JUMPA 0,032653 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032652 032652 0 0 324000032653 0 000000032653 -IT1 032652 0 0 0 324000032653 0 000000032653 -AT3 032652 0 0 0 000000032653 0 324000032653 -AT6 032652 032653 0 0 000000032653 0 324000032653 -FT1A 032652 032653 0 0 000000032653 0 000000032653 -FT2 032652 032653 0 0 0 0 000000032653 -FT2RQ 032652 032653 0 0 777777777777 0 000000032653 -FT3 032652 032653 0 0 777777777777 0 000000032653 -FT9 032653 032653 0 0 777777777777 0 000000032653 -ET0 032653 032653 0 0 777777777777 0 000000032653 -ST1A 032653 032653 0 0 777777777777 0 000000032653 -ST9 032653 032653 0 0 777777777777 0 000000032653 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 341 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0536 - -*032653 MOVSI 0,777777 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032653 032653 0 0 205000777777 0 000000777777 -IT1 032653 0 0 0 205000777777 0 000000777777 -AT3 032653 0 0 0 000000777777 0 205000777777 -AT6 032653 777777 0 0 000000777777 0 205000777777 -FT1A 032653 777777 0 0 000000777777 0 000000777777 -FT9 032654 777777 0 0 000000777777 0 000000777777 -ET0 032654 777777 0 0 777777000000 0 000000777777 -ST1 032654 777777 0 0 777777000000 0 000000777777 -ST2 032654 777777 0 0 777777000000 0 000000777777 -ST9 032654 777777 0 0 777777000000 0 000000777777 - - -*032654 MOVEI 1,777777 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032654 032654 0 0 201040777777 0 000000777777 -IT1 032654 0 0 0 201040777777 0 000000777777 -AT3 032654 0 0 0 000000777777 0 201040777777 -AT6 032654 777777 0 0 000000777777 0 201040777777 -FT1A 032654 777777 0 0 000000777777 0 000000777777 -FT9 032655 777777 0 0 000000777777 0 000000777777 -ET0 032655 777777 0 0 000000777777 0 000000777777 -ST1 032655 777777 0 0 000000777777 0 000000777777 -ST2 032655 777777 0 0 000000777777 0 000000777777 -ST9 032655 777777 0 0 000000777777 0 000000777777 - - -*032655 EXCH 0,000001 -INITIAL -C(AC)=777777 000000 -C(E)=000000 777777 -FINAL -C(AC)=000000 777777 -C(E)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032655 032655 0 0 250000000001 0 777777000000 -IT1 032655 0 0 0 250000000001 0 777777000000 -AT3 032655 0 0 0 000000000001 0 250000000001 -AT6 032655 000001 0 0 000000000001 0 250000000001 -FT0 032655 000001 0 0 000000777777 0 250000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 342 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0537 - -FT1A 032655 000001 0 0 000000777777 0 000000777777 -FT2 032655 000001 0 0 0 0 000000777777 -FT2RQ 032655 000001 0 0 777777000000 0 000000777777 -FT3 032655 000001 0 0 777777000000 0 000000777777 -FT9 032656 000001 0 0 777777000000 0 000000777777 -ET0 032656 000001 0 0 000000777777 0 777777000000 -ST1 032656 000001 0 0 000000777777 0 777777000000 -ST2 032656 000001 0 0 777777000000 0 777777000000 -ST3 032656 000001 0 0 777777000000 0 777777000000 -ST5 032656 000001 0 0 777777000000 0 777777000000 -ST6A 032656 000001 0 0 777777000000 0 777777000000 -ST9 032656 000001 0 0 777777000000 0 777777000000 - - -*032656 CAME 1,034533 -INITIAL -C(AC)=777777 000000 -C(E)=777777 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032656 032656 0 0 312040034533 0 777777000000 -IT1 032656 0 0 0 312040034533 0 777777000000 -AT3 032656 0 0 0 000000034533 0 312040034533 -AT6 032656 034533 0 0 000000034533 0 312040034533 -FT0 032656 034533 0 0 777777000000 0 312040034533 -FT1A 032656 034533 0 0 777777000000 0 777777000000 -FT2 032656 034533 0 0 0 0 777777000000 -FT2RQ 032656 034533 0 0 777777000000 0 777777000000 -FT3 032656 034533 0 0 777777000000 0 777777000000 -FT9 032657 034533 0 0 777777000000 0 777777000000 -ET0 032660 034533 0 0 0 0 777777000000 -ST1A 032660 034533 0 0 0 0 777777000000 -ST9 032660 034533 0 0 0 0 777777000000 - - -*032660 JUMPA 0,032661 -INITIAL -C(AC)=000000 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032660 032660 0 0 324000032661 0 000000032661 -IT1 032660 0 0 0 324000032661 0 000000032661 -AT3 032660 0 0 0 000000032661 0 324000032661 -AT6 032660 032661 0 0 000000032661 0 324000032661 -FT1A 032660 032661 0 0 000000032661 0 000000032661 -FT2 032660 032661 0 0 0 0 000000032661 -FT2RQ 032660 032661 0 0 000000777777 0 000000032661 -FT3 032660 032661 0 0 000000777777 0 000000032661 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 343 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0538 - -FT9 032661 032661 0 0 000000777777 0 000000032661 -ET0 032661 032661 0 0 000000777777 0 000000032661 -ST1A 032661 032661 0 0 000000777777 0 000000032661 -ST9 032661 032661 0 0 000000777777 0 000000032661 - - -*032661 CAME 0,034534 -INITIAL -C(AC)=000000 777777 -C(E)=000000 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032661 032661 0 0 312000034534 0 000000777777 -IT1 032661 0 0 0 312000034534 0 000000777777 -AT3 032661 0 0 0 000000034534 0 312000034534 -AT6 032661 034534 0 0 000000034534 0 312000034534 -FT0 032661 034534 0 0 000000777777 0 312000034534 -FT1A 032661 034534 0 0 000000777777 0 000000777777 -FT2 032661 034534 0 0 0 0 000000777777 -FT2RQ 032661 034534 0 0 000000777777 0 000000777777 -FT3 032661 034534 0 0 000000777777 0 000000777777 -FT9 032662 034534 0 0 000000777777 0 000000777777 -ET0 032663 034534 0 0 0 0 000000777777 -ST1A 032663 034534 0 0 0 0 000000777777 -ST9 032663 034534 0 0 0 0 000000777777 - - -*032663 JUMPA 0,032664 -INITIAL -C(AC)=000000 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032663 032663 0 0 324000032664 0 000000032664 -IT1 032663 0 0 0 324000032664 0 000000032664 -AT3 032663 0 0 0 000000032664 0 324000032664 -AT6 032663 032664 0 0 000000032664 0 324000032664 -FT1A 032663 032664 0 0 000000032664 0 000000032664 -FT2 032663 032664 0 0 0 0 000000032664 -FT2RQ 032663 032664 0 0 000000777777 0 000000032664 -FT3 032663 032664 0 0 000000777777 0 000000032664 -FT9 032664 032664 0 0 000000777777 0 000000032664 -ET0 032664 032664 0 0 000000777777 0 000000032664 -ST1A 032664 032664 0 0 000000777777 0 000000032664 -ST9 032664 032664 0 0 000000777777 0 000000032664 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 344 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0539 - -*032664 MOVEI 0,777777 -INITIAL -C(AC)=000000 777777 -FINAL -C(AC)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032664 032664 0 0 201000777777 0 000000777777 -IT1 032664 0 0 0 201000777777 0 000000777777 -AT3 032664 0 0 0 000000777777 0 201000777777 -AT6 032664 777777 0 0 000000777777 0 201000777777 -FT1A 032664 777777 0 0 000000777777 0 000000777777 -FT9 032665 777777 0 0 000000777777 0 000000777777 -ET0 032665 777777 0 0 000000777777 0 000000777777 -ST1 032665 777777 0 0 000000777777 0 000000777777 -ST2 032665 777777 0 0 000000777777 0 000000777777 -ST9 032665 777777 0 0 000000777777 0 000000777777 - - -*032665 MOVSI 1,777777 -INITIAL -C(AC)=777777 000000 -FINAL -C(AC)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032665 032665 0 0 205040777777 0 000000777777 -IT1 032665 0 0 0 205040777777 0 000000777777 -AT3 032665 0 0 0 000000777777 0 205040777777 -AT6 032665 777777 0 0 000000777777 0 205040777777 -FT1A 032665 777777 0 0 000000777777 0 000000777777 -FT9 032666 777777 0 0 000000777777 0 000000777777 -ET0 032666 777777 0 0 777777000000 0 000000777777 -ST1 032666 777777 0 0 777777000000 0 000000777777 -ST2 032666 777777 0 0 777777000000 0 000000777777 -ST9 032666 777777 0 0 777777000000 0 000000777777 - - -*032666 EXCH 0,000001 -INITIAL -C(AC)=000000 777777 -C(E)=777777 000000 -FINAL -C(AC)=777777 000000 -C(E)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032666 032666 0 0 250000000001 0 000000777777 -IT1 032666 0 0 0 250000000001 0 000000777777 -AT3 032666 0 0 0 000000000001 0 250000000001 -AT6 032666 000001 0 0 000000000001 0 250000000001 -FT0 032666 000001 0 0 777777000000 0 250000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 345 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0540 - -FT1A 032666 000001 0 0 777777000000 0 777777000000 -FT2 032666 000001 0 0 0 0 777777000000 -FT2RQ 032666 000001 0 0 000000777777 0 777777000000 -FT3 032666 000001 0 0 000000777777 0 777777000000 -FT9 032667 000001 0 0 000000777777 0 777777000000 -ET0 032667 000001 0 0 777777000000 0 000000777777 -ST1 032667 000001 0 0 777777000000 0 000000777777 -ST2 032667 000001 0 0 000000777777 0 000000777777 -ST3 032667 000001 0 0 000000777777 0 000000777777 -ST5 032667 000001 0 0 000000777777 0 000000777777 -ST6A 032667 000001 0 0 000000777777 0 000000777777 -ST9 032667 000001 0 0 000000777777 0 000000777777 - - -*032667 CAIE 1,777777 -INITIAL -C(AC)=000000 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032667 032667 0 0 302040777777 0 000000777777 -IT1 032667 0 0 0 302040777777 0 000000777777 -AT3 032667 0 0 0 000000777777 0 302040777777 -AT6 032667 777777 0 0 000000777777 0 302040777777 -FT1A 032667 777777 0 0 000000777777 0 000000777777 -FT2 032667 777777 0 0 0 0 000000777777 -FT2RQ 032667 777777 0 0 000000777777 0 000000777777 -FT3 032667 777777 0 0 000000777777 0 000000777777 -FT9 032670 777777 0 0 000000777777 0 000000777777 -ET0 032671 777777 0 0 0 0 000000777777 -ST1A 032671 777777 0 0 0 0 000000777777 -ST9 032671 777777 0 0 0 0 000000777777 - - -*032671 JUMPA 0,032672 -INITIAL -C(AC)=777777 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032671 032671 0 0 324000032672 0 000000032672 -IT1 032671 0 0 0 324000032672 0 000000032672 -AT3 032671 0 0 0 000000032672 0 324000032672 -AT6 032671 032672 0 0 000000032672 0 324000032672 -FT1A 032671 032672 0 0 000000032672 0 000000032672 -FT2 032671 032672 0 0 0 0 000000032672 -FT2RQ 032671 032672 0 0 777777000000 0 000000032672 -FT3 032671 032672 0 0 777777000000 0 000000032672 -FT9 032672 032672 0 0 777777000000 0 000000032672 -ET0 032672 032672 0 0 777777000000 0 000000032672 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 346 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0541 - -ST1A 032672 032672 0 0 777777000000 0 000000032672 -ST9 032672 032672 0 0 777777000000 0 000000032672 - - -*032672 CAME 0,034533 -INITIAL -C(AC)=777777 000000 -C(E)=777777 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032672 032672 0 0 312000034533 0 777777000000 -IT1 032672 0 0 0 312000034533 0 777777000000 -AT3 032672 0 0 0 000000034533 0 312000034533 -AT6 032672 034533 0 0 000000034533 0 312000034533 -FT0 032672 034533 0 0 777777000000 0 312000034533 -FT1A 032672 034533 0 0 777777000000 0 777777000000 -FT2 032672 034533 0 0 0 0 777777000000 -FT2RQ 032672 034533 0 0 777777000000 0 777777000000 -FT3 032672 034533 0 0 777777000000 0 777777000000 -FT9 032673 034533 0 0 777777000000 0 777777000000 -ET0 032674 034533 0 0 0 0 777777000000 -ST1A 032674 034533 0 0 0 0 777777000000 -ST9 032674 034533 0 0 0 0 777777000000 - - -*032674 JUMPA 0,032675 -INITIAL -C(AC)=777777 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032674 032674 0 0 324000032675 0 000000032675 -IT1 032674 0 0 0 324000032675 0 000000032675 -AT3 032674 0 0 0 000000032675 0 324000032675 -AT6 032674 032675 0 0 000000032675 0 324000032675 -FT1A 032674 032675 0 0 000000032675 0 000000032675 -FT2 032674 032675 0 0 0 0 000000032675 -FT2RQ 032674 032675 0 0 777777000000 0 000000032675 -FT3 032674 032675 0 0 777777000000 0 000000032675 -FT9 032675 032675 0 0 777777000000 0 000000032675 -ET0 032675 032675 0 0 777777000000 0 000000032675 -ST1A 032675 032675 0 0 777777000000 0 000000032675 -ST9 032675 032675 0 0 777777000000 0 000000032675 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 347 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0542 - -*032675 MOVE 0,034535 -INITIAL -C(AC)=777777 000000 -C(E)=252525 252525 -FINAL -C(AC)=252525 252525 - -TIME PC MA SC FE AR MQ BR -IT0 032675 032675 0 0 200000034535 0 252525252525 -IT1 032675 0 0 0 200000034535 0 252525252525 -AT3 032675 0 0 0 000000034535 0 200000034535 -AT6 032675 034535 0 0 000000034535 0 200000034535 -FT0 032675 034535 0 0 252525252525 0 200000034535 -FT1A 032675 034535 0 0 252525252525 0 252525252525 -FT9 032676 034535 0 0 252525252525 0 252525252525 -ET0 032676 034535 0 0 252525252525 0 252525252525 -ST1 032676 034535 0 0 252525252525 0 252525252525 -ST2 032676 034535 0 0 252525252525 0 252525252525 -ST9 032676 034535 0 0 252525252525 0 252525252525 - - -*032676 EXCH 0,000000 -INITIAL -C(AC)=252525 252525 -C(E)=252525 252525 -FINAL -C(AC)=252525 252525 -C(E)=252525 252525 - -TIME PC MA SC FE AR MQ BR -IT0 032676 032676 0 0 250000000000 0 252525252525 -IT1 032676 0 0 0 250000000000 0 252525252525 -AT3 032676 0 0 0 0 0 250000000000 -AT6 032676 0 0 0 0 0 250000000000 -FT0 032676 0 0 0 252525252525 0 250000000000 -FT1A 032676 0 0 0 252525252525 0 252525252525 -FT2 032676 0 0 0 0 0 252525252525 -FT2RQ 032676 0 0 0 252525252525 0 252525252525 -FT3 032676 0 0 0 252525252525 0 252525252525 -FT9 032677 0 0 0 252525252525 0 252525252525 -ET0 032677 0 0 0 252525252525 0 252525252525 -ST1 032677 0 0 0 252525252525 0 252525252525 -ST2 032677 0 0 0 252525252525 0 252525252525 -ST3 032677 0 0 0 252525252525 0 252525252525 -ST5 032677 0 0 0 252525252525 0 252525252525 -ST6A 032677 0 0 0 252525252525 0 252525252525 -ST9 032677 0 0 0 252525252525 0 252525252525 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 348 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0543 - -*032677 EXCH 0,000000 -INITIAL -C(AC)=252525 252525 -C(E)=252525 252525 -FINAL -C(AC)=252525 252525 -C(E)=252525 252525 - -TIME PC MA SC FE AR MQ BR -IT0 032677 032677 0 0 250000000000 0 252525252525 -IT1 032677 0 0 0 250000000000 0 252525252525 -AT3 032677 0 0 0 0 0 250000000000 -AT6 032677 0 0 0 0 0 250000000000 -FT0 032677 0 0 0 252525252525 0 250000000000 -FT1A 032677 0 0 0 252525252525 0 252525252525 -FT2 032677 0 0 0 0 0 252525252525 -FT2RQ 032677 0 0 0 252525252525 0 252525252525 -FT3 032677 0 0 0 252525252525 0 252525252525 -FT9 0 0 0 0 252525252525 0 252525252525 -ET0 0 0 0 0 252525252525 0 252525252525 -ST1 0 0 0 0 252525252525 0 252525252525 -ST2 0 0 0 0 252525252525 0 252525252525 -ST3 0 0 0 0 252525252525 0 252525252525 -ST5 0 0 0 0 252525252525 0 252525252525 -ST6A 0 0 0 0 252525252525 0 252525252525 -ST9 0 0 0 0 252525252525 0 252525252525 - - -*032700 EXCH 0,000000 -INITIAL -C(AC)=252525 252525 -C(E)=252525 252525 -FINAL -C(AC)=252525 252525 -C(E)=252525 252525 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 250000000000 0 252525252525 -IT1 0 0 0 0 250000000000 0 252525252525 -AT3 0 0 0 0 0 0 250000000000 -AT6 0 0 0 0 0 0 250000000000 -FT0 0 0 0 0 252525252525 0 250000000000 -FT1A 0 0 0 0 252525252525 0 252525252525 -FT2 0 0 0 0 0 0 252525252525 -FT2RQ 0 0 0 0 252525252525 0 252525252525 -FT3 0 0 0 0 252525252525 0 252525252525 -FT9 032701 0 0 0 252525252525 0 252525252525 -ET0 032701 0 0 0 252525252525 0 252525252525 -ST1 032701 0 0 0 252525252525 0 252525252525 -ST2 032701 0 0 0 252525252525 0 252525252525 -ST3 032701 0 0 0 252525252525 0 252525252525 -ST5 032701 0 0 0 252525252525 0 252525252525 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 349 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0544 - -ST6A 032701 0 0 0 252525252525 0 252525252525 -ST9 032701 0 0 0 252525252525 0 252525252525 - - -*032701 EXCH 0,000000 -INITIAL -C(AC)=252525 252525 -C(E)=252525 252525 -FINAL -C(AC)=252525 252525 -C(E)=252525 252525 - -TIME PC MA SC FE AR MQ BR -IT0 032701 032701 0 0 250000000000 0 252525252525 -IT1 032701 0 0 0 250000000000 0 252525252525 -AT3 032701 0 0 0 0 0 250000000000 -AT6 032701 0 0 0 0 0 250000000000 -FT0 032701 0 0 0 252525252525 0 250000000000 -FT1A 032701 0 0 0 252525252525 0 252525252525 -FT2 032701 0 0 0 0 0 252525252525 -FT2RQ 032701 0 0 0 252525252525 0 252525252525 -FT3 032701 0 0 0 252525252525 0 252525252525 -FT9 032702 0 0 0 252525252525 0 252525252525 -ET0 032702 0 0 0 252525252525 0 252525252525 -ST1 032702 0 0 0 252525252525 0 252525252525 -ST2 032702 0 0 0 252525252525 0 252525252525 -ST3 032702 0 0 0 252525252525 0 252525252525 -ST5 032702 0 0 0 252525252525 0 252525252525 -ST6A 032702 0 0 0 252525252525 0 252525252525 -ST9 032702 0 0 0 252525252525 0 252525252525 - - -*032702 EXCH 0,000000 -INITIAL -C(AC)=252525 252525 -C(E)=252525 252525 -FINAL -C(AC)=252525 252525 -C(E)=252525 252525 - -TIME PC MA SC FE AR MQ BR -IT0 032702 032702 0 0 250000000000 0 252525252525 -IT1 032702 0 0 0 250000000000 0 252525252525 -AT3 032702 0 0 0 0 0 250000000000 -AT6 032702 0 0 0 0 0 250000000000 -FT0 032702 0 0 0 252525252525 0 250000000000 -FT1A 032702 0 0 0 252525252525 0 252525252525 -FT2 032702 0 0 0 0 0 252525252525 -FT2RQ 032702 0 0 0 252525252525 0 252525252525 -FT3 032702 0 0 0 252525252525 0 252525252525 -FT9 032703 0 0 0 252525252525 0 252525252525 -ET0 032703 0 0 0 252525252525 0 252525252525 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 350 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0545 - -ST1 032703 0 0 0 252525252525 0 252525252525 -ST2 032703 0 0 0 252525252525 0 252525252525 -ST3 032703 0 0 0 252525252525 0 252525252525 -ST5 032703 0 0 0 252525252525 0 252525252525 -ST6A 032703 0 0 0 252525252525 0 252525252525 -ST9 032703 0 0 0 252525252525 0 252525252525 - - -*032703 EXCH 0,000000 -INITIAL -C(AC)=252525 252525 -C(E)=252525 252525 -FINAL -C(AC)=252525 252525 -C(E)=252525 252525 - -TIME PC MA SC FE AR MQ BR -IT0 032703 032703 0 0 250000000000 0 252525252525 -IT1 032703 0 0 0 250000000000 0 252525252525 -AT3 032703 0 0 0 0 0 250000000000 -AT6 032703 0 0 0 0 0 250000000000 -FT0 032703 0 0 0 252525252525 0 250000000000 -FT1A 032703 0 0 0 252525252525 0 252525252525 -FT2 032703 0 0 0 0 0 252525252525 -FT2RQ 032703 0 0 0 252525252525 0 252525252525 -FT3 032703 0 0 0 252525252525 0 252525252525 -FT9 032704 0 0 0 252525252525 0 252525252525 -ET0 032704 0 0 0 252525252525 0 252525252525 -ST1 032704 0 0 0 252525252525 0 252525252525 -ST2 032704 0 0 0 252525252525 0 252525252525 -ST3 032704 0 0 0 252525252525 0 252525252525 -ST5 032704 0 0 0 252525252525 0 252525252525 -ST6A 032704 0 0 0 252525252525 0 252525252525 -ST9 032704 0 0 0 252525252525 0 252525252525 - - -*032704 EXCH 0,000000 -INITIAL -C(AC)=252525 252525 -C(E)=252525 252525 -FINAL -C(AC)=252525 252525 -C(E)=252525 252525 - -TIME PC MA SC FE AR MQ BR -IT0 032704 032704 0 0 250000000000 0 252525252525 -IT1 032704 0 0 0 250000000000 0 252525252525 -AT3 032704 0 0 0 0 0 250000000000 -AT6 032704 0 0 0 0 0 250000000000 -FT0 032704 0 0 0 252525252525 0 250000000000 -FT1A 032704 0 0 0 252525252525 0 252525252525 -FT2 032704 0 0 0 0 0 252525252525 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 351 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0546 - -FT2RQ 032704 0 0 0 252525252525 0 252525252525 -FT3 032704 0 0 0 252525252525 0 252525252525 -FT9 032705 0 0 0 252525252525 0 252525252525 -ET0 032705 0 0 0 252525252525 0 252525252525 -ST1 032705 0 0 0 252525252525 0 252525252525 -ST2 032705 0 0 0 252525252525 0 252525252525 -ST3 032705 0 0 0 252525252525 0 252525252525 -ST5 032705 0 0 0 252525252525 0 252525252525 -ST6A 032705 0 0 0 252525252525 0 252525252525 -ST9 032705 0 0 0 252525252525 0 252525252525 - - -*032705 CAME 0,034535 -INITIAL -C(AC)=252525 252525 -C(E)=252525 252525 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032705 032705 0 0 312000034535 0 252525252525 -IT1 032705 0 0 0 312000034535 0 252525252525 -AT3 032705 0 0 0 000000034535 0 312000034535 -AT6 032705 034535 0 0 000000034535 0 312000034535 -FT0 032705 034535 0 0 252525252525 0 312000034535 -FT1A 032705 034535 0 0 252525252525 0 252525252525 -FT2 032705 034535 0 0 0 0 252525252525 -FT2RQ 032705 034535 0 0 252525252525 0 252525252525 -FT3 032705 034535 0 0 252525252525 0 252525252525 -FT9 032706 034535 0 0 252525252525 0 252525252525 -ET0 032707 034535 0 0 0 0 252525252525 -ST1A 032707 034535 0 0 0 0 252525252525 -ST9 032707 034535 0 0 0 0 252525252525 - - -*032707 JUMPA 0,032710 -INITIAL -C(AC)=252525 252525 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032707 032707 0 0 324000032710 0 000000032710 -IT1 032707 0 0 0 324000032710 0 000000032710 -AT3 032707 0 0 0 000000032710 0 324000032710 -AT6 032707 032710 0 0 000000032710 0 324000032710 -FT1A 032707 032710 0 0 000000032710 0 000000032710 -FT2 032707 032710 0 0 0 0 000000032710 -FT2RQ 032707 032710 0 0 252525252525 0 000000032710 -FT3 032707 032710 0 0 252525252525 0 000000032710 -FT9 032710 032710 0 0 252525252525 0 000000032710 -ET0 032710 032710 0 0 252525252525 0 000000032710 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 352 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0547 - -ST1A 032710 032710 0 0 252525252525 0 000000032710 -ST9 032710 032710 0 0 252525252525 0 000000032710 - - -*032710 SETZ 0,000000 -INITIAL -C(AC)=252525 252525 -C(E)=252525 252525 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032710 032710 0 0 400000000000 0 0 -IT1 032710 0 0 0 400000000000 0 0 -AT3 032710 0 0 0 0 0 400000000000 -AT6 032710 0 0 0 0 0 400000000000 -FT1A 032710 0 0 0 0 0 0 -FT9 032711 0 0 0 0 0 0 -ET0 032711 0 0 0 0 0 0 -ST1 032711 0 0 0 0 0 0 -ST2 032711 0 0 0 0 0 0 -ST9 032711 0 0 0 0 0 0 - - -*032711 SETO 1,000000 -INITIAL -C(AC)=000000 777777 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032711 032711 0 0 474040000000 0 0 -IT1 032711 0 0 0 474040000000 0 0 -AT3 032711 0 0 0 0 0 474040000000 -AT6 032711 0 0 0 0 0 474040000000 -FT1A 032711 0 0 0 0 0 0 -FT9 032712 0 0 0 0 0 0 -ET0 032712 0 0 0 777777777777 0 0 -ST1 032712 0 0 0 777777777777 0 0 -ST2 032712 0 0 0 777777777777 0 0 -ST9 032712 0 0 0 777777777777 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 353 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0548 - -*032712 EXCH 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032712 032712 0 0 250000000001 0 0 -IT1 032712 0 0 0 250000000001 0 0 -AT3 032712 0 0 0 000000000001 0 250000000001 -AT6 032712 000001 0 0 000000000001 0 250000000001 -FT0 032712 000001 0 0 777777777777 0 250000000001 -FT1A 032712 000001 0 0 777777777777 0 777777777777 -FT2 032712 000001 0 0 0 0 777777777777 -FT2RQ 032712 000001 0 0 0 0 777777777777 -FT3 032712 000001 0 0 0 0 777777777777 -FT9 032713 000001 0 0 0 0 777777777777 -ET0 032713 000001 0 0 777777777777 0 0 -ST1 032713 000001 0 0 777777777777 0 0 -ST2 032713 000001 0 0 0 0 0 -ST3 032713 000001 0 0 0 0 0 -ST5 032713 000001 0 0 0 0 0 -ST6A 032713 000001 0 0 0 0 0 -ST9 032713 000001 0 0 0 0 0 - - -*032713 EXCH 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 -C(E)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032713 032713 0 0 250000000001 0 777777777777 -IT1 032713 0 0 0 250000000001 0 777777777777 -AT3 032713 0 0 0 000000000001 0 250000000001 -AT6 032713 000001 0 0 000000000001 0 250000000001 -FT0 032713 000001 0 0 0 0 250000000001 -FT1A 032713 000001 0 0 0 0 0 -FT2 032713 000001 0 0 0 0 0 -FT2RQ 032713 000001 0 0 777777777777 0 0 -FT3 032713 000001 0 0 777777777777 0 0 -FT9 032714 000001 0 0 777777777777 0 0 -ET0 032714 000001 0 0 0 0 777777777777 -ST1 032714 000001 0 0 0 0 777777777777 -ST2 032714 000001 0 0 777777777777 0 777777777777 -ST3 032714 000001 0 0 777777777777 0 777777777777 -ST5 032714 000001 0 0 777777777777 0 777777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 354 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0549 - -ST6A 032714 000001 0 0 777777777777 0 777777777777 -ST9 032714 000001 0 0 777777777777 0 777777777777 - - -*032714 EXCH 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032714 032714 0 0 250000000001 0 0 -IT1 032714 0 0 0 250000000001 0 0 -AT3 032714 0 0 0 000000000001 0 250000000001 -AT6 032714 000001 0 0 000000000001 0 250000000001 -FT0 032714 000001 0 0 777777777777 0 250000000001 -FT1A 032714 000001 0 0 777777777777 0 777777777777 -FT2 032714 000001 0 0 0 0 777777777777 -FT2RQ 032714 000001 0 0 0 0 777777777777 -FT3 032714 000001 0 0 0 0 777777777777 -FT9 032715 000001 0 0 0 0 777777777777 -ET0 032715 000001 0 0 777777777777 0 0 -ST1 032715 000001 0 0 777777777777 0 0 -ST2 032715 000001 0 0 0 0 0 -ST3 032715 000001 0 0 0 0 0 -ST5 032715 000001 0 0 0 0 0 -ST6A 032715 000001 0 0 0 0 0 -ST9 032715 000001 0 0 0 0 0 - - -*032715 EXCH 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 -C(E)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032715 032715 0 0 250000000001 0 777777777777 -IT1 032715 0 0 0 250000000001 0 777777777777 -AT3 032715 0 0 0 000000000001 0 250000000001 -AT6 032715 000001 0 0 000000000001 0 250000000001 -FT0 032715 000001 0 0 0 0 250000000001 -FT1A 032715 000001 0 0 0 0 0 -FT2 032715 000001 0 0 0 0 0 -FT2RQ 032715 000001 0 0 777777777777 0 0 -FT3 032715 000001 0 0 777777777777 0 0 -FT9 032716 000001 0 0 777777777777 0 0 -ET0 032716 000001 0 0 0 0 777777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 355 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0550 - -ST1 032716 000001 0 0 0 0 777777777777 -ST2 032716 000001 0 0 777777777777 0 777777777777 -ST3 032716 000001 0 0 777777777777 0 777777777777 -ST5 032716 000001 0 0 777777777777 0 777777777777 -ST6A 032716 000001 0 0 777777777777 0 777777777777 -ST9 032716 000001 0 0 777777777777 0 777777777777 - - -*032716 EXCH 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032716 032716 0 0 250000000001 0 0 -IT1 032716 0 0 0 250000000001 0 0 -AT3 032716 0 0 0 000000000001 0 250000000001 -AT6 032716 000001 0 0 000000000001 0 250000000001 -FT0 032716 000001 0 0 777777777777 0 250000000001 -FT1A 032716 000001 0 0 777777777777 0 777777777777 -FT2 032716 000001 0 0 0 0 777777777777 -FT2RQ 032716 000001 0 0 0 0 777777777777 -FT3 032716 000001 0 0 0 0 777777777777 -FT9 032717 000001 0 0 0 0 777777777777 -ET0 032717 000001 0 0 777777777777 0 0 -ST1 032717 000001 0 0 777777777777 0 0 -ST2 032717 000001 0 0 0 0 0 -ST3 032717 000001 0 0 0 0 0 -ST5 032717 000001 0 0 0 0 0 -ST6A 032717 000001 0 0 0 0 0 -ST9 032717 000001 0 0 0 0 0 - - -*032717 EXCH 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 -C(E)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032717 032717 0 0 250000000001 0 777777777777 -IT1 032717 0 0 0 250000000001 0 777777777777 -AT3 032717 0 0 0 000000000001 0 250000000001 -AT6 032717 000001 0 0 000000000001 0 250000000001 -FT0 032717 000001 0 0 0 0 250000000001 -FT1A 032717 000001 0 0 0 0 0 -FT2 032717 000001 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 356 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0551 - -FT2RQ 032717 000001 0 0 777777777777 0 0 -FT3 032717 000001 0 0 777777777777 0 0 -FT9 032720 000001 0 0 777777777777 0 0 -ET0 032720 000001 0 0 0 0 777777777777 -ST1 032720 000001 0 0 0 0 777777777777 -ST2 032720 000001 0 0 777777777777 0 777777777777 -ST3 032720 000001 0 0 777777777777 0 777777777777 -ST5 032720 000001 0 0 777777777777 0 777777777777 -ST6A 032720 000001 0 0 777777777777 0 777777777777 -ST9 032720 000001 0 0 777777777777 0 777777777777 - - -*032720 EXCH 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032720 032720 0 0 250000000001 0 0 -IT1 032720 0 0 0 250000000001 0 0 -AT3 032720 0 0 0 000000000001 0 250000000001 -AT6 032720 000001 0 0 000000000001 0 250000000001 -FT0 032720 000001 0 0 777777777777 0 250000000001 -FT1A 032720 000001 0 0 777777777777 0 777777777777 -FT2 032720 000001 0 0 0 0 777777777777 -FT2RQ 032720 000001 0 0 0 0 777777777777 -FT3 032720 000001 0 0 0 0 777777777777 -FT9 032721 000001 0 0 0 0 777777777777 -ET0 032721 000001 0 0 777777777777 0 0 -ST1 032721 000001 0 0 777777777777 0 0 -ST2 032721 000001 0 0 0 0 0 -ST3 032721 000001 0 0 0 0 0 -ST5 032721 000001 0 0 0 0 0 -ST6A 032721 000001 0 0 0 0 0 -ST9 032721 000001 0 0 0 0 0 - - -*032721 CAME 0,034466 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032721 032721 0 0 312000034466 0 777777777777 -IT1 032721 0 0 0 312000034466 0 777777777777 -AT3 032721 0 0 0 000000034466 0 312000034466 -AT6 032721 034466 0 0 000000034466 0 312000034466 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 357 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0552 - -FT0 032721 034466 0 0 777777777777 0 312000034466 -FT1A 032721 034466 0 0 777777777777 0 777777777777 -FT2 032721 034466 0 0 0 0 777777777777 -FT2RQ 032721 034466 0 0 777777777777 0 777777777777 -FT3 032721 034466 0 0 777777777777 0 777777777777 -FT9 032722 034466 0 0 777777777777 0 777777777777 -ET0 032723 034466 0 0 0 0 777777777777 -ST1A 032723 034466 0 0 0 0 777777777777 -ST9 032723 034466 0 0 0 0 777777777777 - - -*032723 JUMPA 0,032724 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032723 032723 0 0 324000032724 0 000000032724 -IT1 032723 0 0 0 324000032724 0 000000032724 -AT3 032723 0 0 0 000000032724 0 324000032724 -AT6 032723 032724 0 0 000000032724 0 324000032724 -FT1A 032723 032724 0 0 000000032724 0 000000032724 -FT2 032723 032724 0 0 0 0 000000032724 -FT2RQ 032723 032724 0 0 777777777777 0 000000032724 -FT3 032723 032724 0 0 777777777777 0 000000032724 -FT9 032724 032724 0 0 777777777777 0 000000032724 -ET0 032724 032724 0 0 777777777777 0 000000032724 -ST1A 032724 032724 0 0 777777777777 0 000000032724 -ST9 032724 032724 0 0 777777777777 0 000000032724 - - -*032724 CAME 1,034536 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032724 032724 0 0 312040034536 0 0 -IT1 032724 0 0 0 312040034536 0 0 -AT3 032724 0 0 0 000000034536 0 312040034536 -AT6 032724 034536 0 0 000000034536 0 312040034536 -FT0 032724 034536 0 0 0 0 312040034536 -FT1A 032724 034536 0 0 0 0 0 -FT2 032724 034536 0 0 0 0 0 -FT2RQ 032724 034536 0 0 0 0 0 -FT3 032724 034536 0 0 0 0 0 -FT9 032725 034536 0 0 0 0 0 -ET0 032726 034536 0 0 0 0 0 -ST1A 032726 034536 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 358 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0553 - -ST9 032726 034536 0 0 0 0 0 - - -*032726 JUMPA 0,032727 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032726 032726 0 0 324000032727 0 000000032727 -IT1 032726 0 0 0 324000032727 0 000000032727 -AT3 032726 0 0 0 000000032727 0 324000032727 -AT6 032726 032727 0 0 000000032727 0 324000032727 -FT1A 032726 032727 0 0 000000032727 0 000000032727 -FT2 032726 032727 0 0 0 0 000000032727 -FT2RQ 032726 032727 0 0 777777777777 0 000000032727 -FT3 032726 032727 0 0 777777777777 0 000000032727 -FT9 032727 032727 0 0 777777777777 0 000000032727 -ET0 032727 032727 0 0 777777777777 0 000000032727 -ST1A 032727 032727 0 0 777777777777 0 000000032727 -ST9 032727 032727 0 0 777777777777 0 000000032727 - - -*032727 SETO 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032727 032727 0 0 474000000000 0 0 -IT1 032727 0 0 0 474000000000 0 0 -AT3 032727 0 0 0 0 0 474000000000 -AT6 032727 0 0 0 0 0 474000000000 -FT1A 032727 0 0 0 0 0 0 -FT9 032730 0 0 0 0 0 0 -ET0 032730 0 0 0 777777777777 0 0 -ST1 032730 0 0 0 777777777777 0 0 -ST2 032730 0 0 0 777777777777 0 0 -ST9 032730 0 0 0 777777777777 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 359 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0554 - -*032730 SETZ 1,000000 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032730 032730 0 0 400040000000 0 0 -IT1 032730 0 0 0 400040000000 0 0 -AT3 032730 0 0 0 0 0 400040000000 -AT6 032730 0 0 0 0 0 400040000000 -FT1A 032730 0 0 0 0 0 0 -FT9 032731 0 0 0 0 0 0 -ET0 032731 0 0 0 0 0 0 -ST1 032731 0 0 0 0 0 0 -ST2 032731 0 0 0 0 0 0 -ST9 032731 0 0 0 0 0 0 - - -*032731 MOVEM 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL - -C(E)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032731 032731 0 0 202000000001 0 000000000001 -IT1 032731 0 0 0 202000000001 0 000000000001 -AT3 032731 0 0 0 000000000001 0 202000000001 -AT6 032731 000001 0 0 000000000001 0 202000000001 -FT1A 032731 000001 0 0 000000000001 0 000000000001 -FT2 032731 000001 0 0 0 0 000000000001 -FT2RQ 032731 000001 0 0 777777777777 0 000000000001 -FT3 032731 000001 0 0 777777777777 0 000000000001 -FT9 032732 000001 0 0 777777777777 0 000000000001 -ET0 032732 000001 0 0 777777777777 0 000000000001 -ST6 032732 000001 0 0 777777777777 0 000000000001 -ST6A 032732 000001 0 0 777777777777 0 000000000001 -ST9 032732 000001 0 0 777777777777 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 360 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0555 - -*032732 CAME 1,034466 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032732 032732 0 0 312040034466 0 777777777777 -IT1 032732 0 0 0 312040034466 0 777777777777 -AT3 032732 0 0 0 000000034466 0 312040034466 -AT6 032732 034466 0 0 000000034466 0 312040034466 -FT0 032732 034466 0 0 777777777777 0 312040034466 -FT1A 032732 034466 0 0 777777777777 0 777777777777 -FT2 032732 034466 0 0 0 0 777777777777 -FT2RQ 032732 034466 0 0 777777777777 0 777777777777 -FT3 032732 034466 0 0 777777777777 0 777777777777 -FT9 032733 034466 0 0 777777777777 0 777777777777 -ET0 032734 034466 0 0 0 0 777777777777 -ST1A 032734 034466 0 0 0 0 777777777777 -ST9 032734 034466 0 0 0 0 777777777777 - - -*032734 JUMPA 0,032735 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032734 032734 0 0 324000032735 0 000000032735 -IT1 032734 0 0 0 324000032735 0 000000032735 -AT3 032734 0 0 0 000000032735 0 324000032735 -AT6 032734 032735 0 0 000000032735 0 324000032735 -FT1A 032734 032735 0 0 000000032735 0 000000032735 -FT2 032734 032735 0 0 0 0 000000032735 -FT2RQ 032734 032735 0 0 777777777777 0 000000032735 -FT3 032734 032735 0 0 777777777777 0 000000032735 -FT9 032735 032735 0 0 777777777777 0 000000032735 -ET0 032735 032735 0 0 777777777777 0 000000032735 -ST1A 032735 032735 0 0 777777777777 0 000000032735 -ST9 032735 032735 0 0 777777777777 0 000000032735 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 361 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0556 - -*032735 CAME 0,034466 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032735 032735 0 0 312000034466 0 777777777777 -IT1 032735 0 0 0 312000034466 0 777777777777 -AT3 032735 0 0 0 000000034466 0 312000034466 -AT6 032735 034466 0 0 000000034466 0 312000034466 -FT0 032735 034466 0 0 777777777777 0 312000034466 -FT1A 032735 034466 0 0 777777777777 0 777777777777 -FT2 032735 034466 0 0 0 0 777777777777 -FT2RQ 032735 034466 0 0 777777777777 0 777777777777 -FT3 032735 034466 0 0 777777777777 0 777777777777 -FT9 032736 034466 0 0 777777777777 0 777777777777 -ET0 032737 034466 0 0 0 0 777777777777 -ST1A 032737 034466 0 0 0 0 777777777777 -ST9 032737 034466 0 0 0 0 777777777777 - - -*032737 JUMPA 0,032740 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032737 032737 0 0 324000032740 0 000000032740 -IT1 032737 0 0 0 324000032740 0 000000032740 -AT3 032737 0 0 0 000000032740 0 324000032740 -AT6 032737 032740 0 0 000000032740 0 324000032740 -FT1A 032737 032740 0 0 000000032740 0 000000032740 -FT2 032737 032740 0 0 0 0 000000032740 -FT2RQ 032737 032740 0 0 777777777777 0 000000032740 -FT3 032737 032740 0 0 777777777777 0 000000032740 -FT9 032740 032740 0 0 777777777777 0 000000032740 -ET0 032740 032740 0 0 777777777777 0 000000032740 -ST1A 032740 032740 0 0 777777777777 0 000000032740 -ST9 032740 032740 0 0 777777777777 0 000000032740 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 362 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0557 - -*032740 MOVE 0,034537 -INITIAL -C(AC)=777777 777777 -C(E)=254200 032743 -FINAL -C(AC)=254200 032743 - -TIME PC MA SC FE AR MQ BR -IT0 032740 032740 0 0 200000034537 0 254200032743 -IT1 032740 0 0 0 200000034537 0 254200032743 -AT3 032740 0 0 0 000000034537 0 200000034537 -AT6 032740 034537 0 0 000000034537 0 200000034537 -FT0 032740 034537 0 0 254200032743 0 200000034537 -FT1A 032740 034537 0 0 254200032743 0 254200032743 -FT9 032741 034537 0 0 254200032743 0 254200032743 -ET0 032741 034537 0 0 254200032743 0 254200032743 -ST1 032741 034537 0 0 254200032743 0 254200032743 -ST2 032741 034537 0 0 254200032743 0 254200032743 -ST9 032741 034537 0 0 254200032743 0 254200032743 - - -*032741 JFCL 17,032742 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032741 032741 0 0 255740032742 0 000000032742 -IT1 032741 0 0 0 255740032742 0 000000032742 -AT3 032741 0 0 0 000000032742 0 255740032742 -AT6 032741 032742 0 0 000000032742 0 255740032742 -FT1A 032741 032742 0 0 000000032742 0 000000032742 -FT9 032742 032742 0 0 000000032742 0 000000032742 -ET0 032742 032742 0 0 000000032742 0 000000032742 -ST1A 032742 032742 0 0 000000032742 0 000000032742 -ST9 032742 032742 0 0 000000032742 0 000000032742 - - -*032742 CAIA 0,000000 -INITIAL -C(AC)=254200 032743 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032742 032742 0 0 304000000000 0 0 -IT1 032742 0 0 0 304000000000 0 0 -AT3 032742 0 0 0 0 0 304000000000 -AT6 032742 0 0 0 0 0 304000000000 -FT1A 032742 0 0 0 0 0 0 -FT2 032742 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 363 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0558 - -FT2RQ 032742 0 0 0 254200032743 0 0 -FT3 032742 0 0 0 254200032743 0 0 -FT9 032743 0 0 0 254200032743 0 0 -ET0 032744 0 0 0 254200032743 0 0 -ST1A 032744 0 0 0 254200032743 0 0 -ST9 032744 0 0 0 254200032743 0 0 - - -*032744 JUMPA 0,032745 -INITIAL -C(AC)=254200 032743 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032744 032744 0 0 324000032745 0 000000032745 -IT1 032744 0 0 0 324000032745 0 000000032745 -AT3 032744 0 0 0 000000032745 0 324000032745 -AT6 032744 032745 0 0 000000032745 0 324000032745 -FT1A 032744 032745 0 0 000000032745 0 000000032745 -FT2 032744 032745 0 0 0 0 000000032745 -FT2RQ 032744 032745 0 0 254200032743 0 000000032745 -FT3 032744 032745 0 0 254200032743 0 000000032745 -FT9 032745 032745 0 0 254200032743 0 000000032745 -ET0 032745 032745 0 0 254200032743 0 000000032745 -ST1A 032745 032745 0 0 254200032743 0 000000032745 -ST9 032745 032745 0 0 254200032743 0 000000032745 - - -*032745 MOVE 0,034466 -INITIAL -C(AC)=254200 032743 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032745 032745 0 0 200000034466 0 777777777777 -IT1 032745 0 0 0 200000034466 0 777777777777 -AT3 032745 0 0 0 000000034466 0 200000034466 -AT6 032745 034466 0 0 000000034466 0 200000034466 -FT0 032745 034466 0 0 777777777777 0 200000034466 -FT1A 032745 034466 0 0 777777777777 0 777777777777 -FT9 032746 034466 0 0 777777777777 0 777777777777 -ET0 032746 034466 0 0 777777777777 0 777777777777 -ST1 032746 034466 0 0 777777777777 0 777777777777 -ST2 032746 034466 0 0 777777777777 0 777777777777 -ST9 032746 034466 0 0 777777777777 0 777777777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 364 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0559 - -*032746 ADDI 0,000001 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032746 032746 0 0 271000000001 0 000000000001 -IT1 032746 0 0 0 271000000001 0 000000000001 -AT3 032746 0 0 0 000000000001 0 271000000001 -AT6 032746 000001 0 0 000000000001 0 271000000001 -FT1A 032746 000001 0 0 000000000001 0 000000000001 -FT2 032746 000001 0 0 0 0 000000000001 -FT2RQ 032746 000001 0 0 777777777777 0 000000000001 -FT3 032746 000001 0 0 777777777777 0 000000000001 -FT9 032747 000001 0 0 777777777777 0 000000000001 -ET0 032747 000001 0 0 0 0 000000000001 -ST1 032747 000001 0 0 0 0 000000000001 -ST2 032747 000001 0 0 0 0 000000000001 -ST9 032747 000001 0 0 0 0 000000000001 - - -*032747 JFCL 17,032750 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032747 032747 0 0 255740032750 0 000000032750 -IT1 032747 0 0 0 255740032750 0 000000032750 -AT3 032747 0 0 0 000000032750 0 255740032750 -AT6 032747 032750 0 0 000000032750 0 255740032750 -FT1A 032747 032750 0 0 000000032750 0 000000032750 -FT9 032750 032750 0 0 000000032750 0 000000032750 -ET0 032750 032750 0 0 000000032750 0 000000032750 -ST1A 032750 032750 0 0 000000032750 0 000000032750 -ST9 032750 032750 0 0 000000032750 0 000000032750 - - -*032750 JFCL 4,032752 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032750 032750 0 0 255200032752 0 000000032752 -IT1 032750 0 0 0 255200032752 0 000000032752 -AT3 032750 0 0 0 000000032752 0 255200032752 -AT6 032750 032752 0 0 000000032752 0 255200032752 -FT1A 032750 032752 0 0 000000032752 0 000000032752 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 365 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0560 - -FT9 032751 032752 0 0 000000032752 0 000000032752 -ET0 032751 032752 0 0 000000032752 0 000000032752 -ST1A 032751 032752 0 0 000000032752 0 000000032752 -ST9 032751 032752 0 0 000000032752 0 000000032752 - - -*032751 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 032751 032751 0 0 334000000000 0 0 -IT1 032751 0 0 0 334000000000 0 0 -AT3 032751 0 0 0 0 0 334000000000 -AT6 032751 0 0 0 0 0 334000000000 -FT0 032751 0 0 0 0 0 334000000000 -FT1A 032751 0 0 0 0 0 0 -FT9 032752 0 0 0 0 0 0 -ET0 032753 0 0 0 0 0 0 -ST1A 032753 0 0 0 0 0 0 -ST9 032753 0 0 0 0 0 0 - - -*032753 JUMPA 0,032754 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032753 032753 0 0 324000032754 0 000000032754 -IT1 032753 0 0 0 324000032754 0 000000032754 -AT3 032753 0 0 0 000000032754 0 324000032754 -AT6 032753 032754 0 0 000000032754 0 324000032754 -FT1A 032753 032754 0 0 000000032754 0 000000032754 -FT2 032753 032754 0 0 0 0 000000032754 -FT2RQ 032753 032754 0 0 0 0 000000032754 -FT3 032753 032754 0 0 0 0 000000032754 -FT9 032754 032754 0 0 0 0 000000032754 -ET0 032754 032754 0 0 0 0 000000032754 -ST1A 032754 032754 0 0 0 0 000000032754 -ST9 032754 032754 0 0 0 0 000000032754 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 366 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0561 - -*032754 MOVE 0,034466 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032754 032754 0 0 200000034466 0 777777777777 -IT1 032754 0 0 0 200000034466 0 777777777777 -AT3 032754 0 0 0 000000034466 0 200000034466 -AT6 032754 034466 0 0 000000034466 0 200000034466 -FT0 032754 034466 0 0 777777777777 0 200000034466 -FT1A 032754 034466 0 0 777777777777 0 777777777777 -FT9 032755 034466 0 0 777777777777 0 777777777777 -ET0 032755 034466 0 0 777777777777 0 777777777777 -ST1 032755 034466 0 0 777777777777 0 777777777777 -ST2 032755 034466 0 0 777777777777 0 777777777777 -ST9 032755 034466 0 0 777777777777 0 777777777777 - - -*032755 ADDI 0,000001 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032755 032755 0 0 271000000001 0 000000000001 -IT1 032755 0 0 0 271000000001 0 000000000001 -AT3 032755 0 0 0 000000000001 0 271000000001 -AT6 032755 000001 0 0 000000000001 0 271000000001 -FT1A 032755 000001 0 0 000000000001 0 000000000001 -FT2 032755 000001 0 0 0 0 000000000001 -FT2RQ 032755 000001 0 0 777777777777 0 000000000001 -FT3 032755 000001 0 0 777777777777 0 000000000001 -FT9 032756 000001 0 0 777777777777 0 000000000001 -ET0 032756 000001 0 0 0 0 000000000001 -ST1 032756 000001 0 0 0 0 000000000001 -ST2 032756 000001 0 0 0 0 000000000001 -ST9 032756 000001 0 0 0 0 000000000001 - - -*032756 JFCL 17,032757 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032756 032756 0 0 255740032757 0 000000032757 -IT1 032756 0 0 0 255740032757 0 000000032757 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 367 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0562 - -AT3 032756 0 0 0 000000032757 0 255740032757 -AT6 032756 032757 0 0 000000032757 0 255740032757 -FT1A 032756 032757 0 0 000000032757 0 000000032757 -FT9 032757 032757 0 0 000000032757 0 000000032757 -ET0 032757 032757 0 0 000000032757 0 000000032757 -ST1A 032757 032757 0 0 000000032757 0 000000032757 -ST9 032757 032757 0 0 000000032757 0 000000032757 - - -*032757 JFCL 2,032761 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032757 032757 0 0 255100032761 0 000000032761 -IT1 032757 0 0 0 255100032761 0 000000032761 -AT3 032757 0 0 0 000000032761 0 255100032761 -AT6 032757 032761 0 0 000000032761 0 255100032761 -FT1A 032757 032761 0 0 000000032761 0 000000032761 -FT9 032760 032761 0 0 000000032761 0 000000032761 -ET0 032760 032761 0 0 000000032761 0 000000032761 -ST1A 032760 032761 0 0 000000032761 0 000000032761 -ST9 032760 032761 0 0 000000032761 0 000000032761 - - -*032760 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 032760 032760 0 0 334000000000 0 0 -IT1 032760 0 0 0 334000000000 0 0 -AT3 032760 0 0 0 0 0 334000000000 -AT6 032760 0 0 0 0 0 334000000000 -FT0 032760 0 0 0 0 0 334000000000 -FT1A 032760 0 0 0 0 0 0 -FT9 032761 0 0 0 0 0 0 -ET0 032762 0 0 0 0 0 0 -ST1A 032762 0 0 0 0 0 0 -ST9 032762 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 368 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0563 - -*032762 JUMPA 0,032763 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032762 032762 0 0 324000032763 0 000000032763 -IT1 032762 0 0 0 324000032763 0 000000032763 -AT3 032762 0 0 0 000000032763 0 324000032763 -AT6 032762 032763 0 0 000000032763 0 324000032763 -FT1A 032762 032763 0 0 000000032763 0 000000032763 -FT2 032762 032763 0 0 0 0 000000032763 -FT2RQ 032762 032763 0 0 0 0 000000032763 -FT3 032762 032763 0 0 0 0 000000032763 -FT9 032763 032763 0 0 0 0 000000032763 -ET0 032763 032763 0 0 0 0 000000032763 -ST1A 032763 032763 0 0 0 0 000000032763 -ST9 032763 032763 0 0 0 0 000000032763 - - -*032763 MOVSI 0,400000 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032763 032763 0 0 205000400000 0 000000400000 -IT1 032763 0 0 0 205000400000 0 000000400000 -AT3 032763 0 0 0 000000400000 0 205000400000 -AT6 032763 0 0 0 000000400000 0 205000400000 -FT1A 032763 0 0 0 000000400000 0 000000400000 -FT9 032764 0 0 0 000000400000 0 000000400000 -ET0 032764 0 0 0 400000000000 0 000000400000 -ST1 032764 0 0 0 400000000000 0 000000400000 -ST2 032764 0 0 0 400000000000 0 000000400000 -ST9 032764 0 0 0 400000000000 0 000000400000 - - -*032764 ADD 0,034465 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032764 032764 0 0 270000034465 0 400000000000 -IT1 032764 0 0 0 270000034465 0 400000000000 -AT3 032764 0 0 0 000000034465 0 270000034465 -AT6 032764 034465 0 0 000000034465 0 270000034465 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 369 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0564 - -FT0 032764 034465 0 0 400000000000 0 270000034465 -FT1A 032764 034465 0 0 400000000000 0 400000000000 -FT2 032764 034465 0 0 0 0 400000000000 -FT2RQ 032764 034465 0 0 400000000000 0 400000000000 -FT3 032764 034465 0 0 400000000000 0 400000000000 -FT9 032765 034465 0 0 400000000000 0 400000000000 -ET0 032765 034465 0 0 0 0 400000000000 -ST1 032765 034465 0 0 0 0 400000000000 -ST2 032765 034465 0 0 0 0 400000000000 -ST9 032765 034465 0 0 0 0 400000000000 - - -*032765 JFCL 17,032766 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032765 032765 0 0 255740032766 0 000000032766 -IT1 032765 0 0 0 255740032766 0 000000032766 -AT3 032765 0 0 0 000000032766 0 255740032766 -AT6 032765 032766 0 0 000000032766 0 255740032766 -FT1A 032765 032766 0 0 000000032766 0 000000032766 -FT9 032766 032766 0 0 000000032766 0 000000032766 -ET0 032766 032766 0 0 000000032766 0 000000032766 -ST1A 032766 032766 0 0 000000032766 0 000000032766 -ST9 032766 032766 0 0 000000032766 0 000000032766 - - -*032766 JFCL 10,032770 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032766 032766 0 0 255400032770 0 000000032770 -IT1 032766 0 0 0 255400032770 0 000000032770 -AT3 032766 0 0 0 000000032770 0 255400032770 -AT6 032766 032770 0 0 000000032770 0 255400032770 -FT1A 032766 032770 0 0 000000032770 0 000000032770 -FT9 032767 032770 0 0 000000032770 0 000000032770 -ET0 032767 032770 0 0 000000032770 0 000000032770 -ST1A 032767 032770 0 0 000000032770 0 000000032770 -ST9 032767 032770 0 0 000000032770 0 000000032770 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 370 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0565 - -*032767 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 032767 032767 0 0 334000000000 0 0 -IT1 032767 0 0 0 334000000000 0 0 -AT3 032767 0 0 0 0 0 334000000000 -AT6 032767 0 0 0 0 0 334000000000 -FT0 032767 0 0 0 0 0 334000000000 -FT1A 032767 0 0 0 0 0 0 -FT9 032770 0 0 0 0 0 0 -ET0 032771 0 0 0 0 0 0 -ST1A 032771 0 0 0 0 0 0 -ST9 032771 0 0 0 0 0 0 - - -*032771 JUMPA 0,032772 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032771 032771 0 0 324000032772 0 000000032772 -IT1 032771 0 0 0 324000032772 0 000000032772 -AT3 032771 0 0 0 000000032772 0 324000032772 -AT6 032771 032772 0 0 000000032772 0 324000032772 -FT1A 032771 032772 0 0 000000032772 0 000000032772 -FT2 032771 032772 0 0 0 0 000000032772 -FT2RQ 032771 032772 0 0 0 0 000000032772 -FT3 032771 032772 0 0 0 0 000000032772 -FT9 032772 032772 0 0 0 0 000000032772 -ET0 032772 032772 0 0 0 0 000000032772 -ST1A 032772 032772 0 0 0 0 000000032772 -ST9 032772 032772 0 0 0 0 000000032772 - - -*032772 MOVSI 0,400000 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 032772 032772 0 0 205000400000 0 000000400000 -IT1 032772 0 0 0 205000400000 0 000000400000 -AT3 032772 0 0 0 000000400000 0 205000400000 -AT6 032772 0 0 0 000000400000 0 205000400000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 371 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0566 - -FT1A 032772 0 0 0 000000400000 0 000000400000 -FT9 032773 0 0 0 000000400000 0 000000400000 -ET0 032773 0 0 0 400000000000 0 000000400000 -ST1 032773 0 0 0 400000000000 0 000000400000 -ST2 032773 0 0 0 400000000000 0 000000400000 -ST9 032773 0 0 0 400000000000 0 000000400000 - - -*032773 ADD 0,034466 -INITIAL -C(AC)=400000 000000 -C(E)=777777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032773 032773 0 0 270000034466 0 777777777777 -IT1 032773 0 0 0 270000034466 0 777777777777 -AT3 032773 0 0 0 000000034466 0 270000034466 -AT6 032773 034466 0 0 000000034466 0 270000034466 -FT0 032773 034466 0 0 777777777777 0 270000034466 -FT1A 032773 034466 0 0 777777777777 0 777777777777 -FT2 032773 034466 0 0 0 0 777777777777 -FT2RQ 032773 034466 0 0 400000000000 0 777777777777 -FT3 032773 034466 0 0 400000000000 0 777777777777 -FT9 032774 034466 0 0 400000000000 0 777777777777 -ET0 032774 034466 0 0 377777777777 0 777777777777 -ST1 032774 034466 0 0 377777777777 0 777777777777 -ST2 032774 034466 0 0 377777777777 0 777777777777 -ST9 032774 034466 0 0 377777777777 0 777777777777 - - -*032774 JFCL 0,032776 -INITIAL -C(AC)=377777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032774 032774 0 0 255000032776 0 000000032776 -IT1 032774 0 0 0 255000032776 0 000000032776 -AT3 032774 0 0 0 000000032776 0 255000032776 -AT6 032774 032776 0 0 000000032776 0 255000032776 -FT1A 032774 032776 0 0 000000032776 0 000000032776 -FT9 032775 032776 0 0 000000032776 0 000000032776 -ET0 032775 032776 0 0 000000032776 0 000000032776 -ST1A 032775 032776 0 0 000000032776 0 000000032776 -ST9 032775 032776 0 0 000000032776 0 000000032776 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 372 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0567 - -*032775 SKIPA 0,000000 -INITIAL -C(AC)=377777 777777 -C(E)=377777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 032775 032775 0 0 334000000000 0 377777777777 -IT1 032775 0 0 0 334000000000 0 377777777777 -AT3 032775 0 0 0 0 0 334000000000 -AT6 032775 0 0 0 0 0 334000000000 -FT0 032775 0 0 0 377777777777 0 334000000000 -FT1A 032775 0 0 0 377777777777 0 377777777777 -FT9 032776 0 0 0 377777777777 0 377777777777 -ET0 032777 0 0 0 377777777777 0 377777777777 -ST1A 032777 0 0 0 377777777777 0 377777777777 -ST9 032777 0 0 0 377777777777 0 377777777777 - - -*032777 JUMPA 0,033000 -INITIAL -C(AC)=377777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 032777 032777 0 0 324000033000 0 000000033000 -IT1 032777 0 0 0 324000033000 0 000000033000 -AT3 032777 0 0 0 000000033000 0 324000033000 -AT6 032777 0 0 0 000000033000 0 324000033000 -FT1A 032777 0 0 0 000000033000 0 000000033000 -FT2 032777 0 0 0 0 0 000000033000 -FT2RQ 032777 0 0 0 377777777777 0 000000033000 -FT3 032777 0 0 0 377777777777 0 000000033000 -FT9 0 0 0 0 377777777777 0 000000033000 -ET0 0 0 0 0 377777777777 0 000000033000 -ST1A 0 0 0 0 377777777777 0 000000033000 -ST9 0 0 0 0 377777777777 0 000000033000 - - -*033000 MOVSI 0,200000 -INITIAL -C(AC)=377777 777777 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 205000200000 0 000000200000 -IT1 0 0 0 0 205000200000 0 000000200000 -AT3 0 0 0 0 000000200000 0 205000200000 -AT6 0 0 0 0 000000200000 0 205000200000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 373 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0568 - -FT1A 0 0 0 0 000000200000 0 000000200000 -FT9 033001 0 0 0 000000200000 0 000000200000 -ET0 033001 0 0 0 200000000000 0 000000200000 -ST1 033001 0 0 0 200000000000 0 000000200000 -ST2 033001 0 0 0 200000000000 0 000000200000 -ST9 033001 0 0 0 200000000000 0 000000200000 - - -*033001 ADD 0,034464 -INITIAL -C(AC)=200000 000000 -C(E)=200000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033001 033001 0 0 270000034464 0 200000000000 -IT1 033001 0 0 0 270000034464 0 200000000000 -AT3 033001 0 0 0 000000034464 0 270000034464 -AT6 033001 034464 0 0 000000034464 0 270000034464 -FT0 033001 034464 0 0 200000000000 0 270000034464 -FT1A 033001 034464 0 0 200000000000 0 200000000000 -FT2 033001 034464 0 0 0 0 200000000000 -FT2RQ 033001 034464 0 0 200000000000 0 200000000000 -FT3 033001 034464 0 0 200000000000 0 200000000000 -FT9 033002 034464 0 0 200000000000 0 200000000000 -ET0 033002 034464 0 0 400000000000 0 200000000000 -ST1 033002 034464 0 0 400000000000 0 200000000000 -ST2 033002 034464 0 0 400000000000 0 200000000000 -ST9 033002 034464 0 0 400000000000 0 200000000000 - - -*033002 JFCL 0,033004 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033002 033002 0 0 255000033004 0 000000033004 -IT1 033002 0 0 0 255000033004 0 000000033004 -AT3 033002 0 0 0 000000033004 0 255000033004 -AT6 033002 033004 0 0 000000033004 0 255000033004 -FT1A 033002 033004 0 0 000000033004 0 000000033004 -FT9 033003 033004 0 0 000000033004 0 000000033004 -ET0 033003 033004 0 0 000000033004 0 000000033004 -ST1A 033003 033004 0 0 000000033004 0 000000033004 -ST9 033003 033004 0 0 000000033004 0 000000033004 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 374 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0569 - -*033003 SKIPA 0,000000 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033003 033003 0 0 334000000000 0 400000000000 -IT1 033003 0 0 0 334000000000 0 400000000000 -AT3 033003 0 0 0 0 0 334000000000 -AT6 033003 0 0 0 0 0 334000000000 -FT0 033003 0 0 0 400000000000 0 334000000000 -FT1A 033003 0 0 0 400000000000 0 400000000000 -FT9 033004 0 0 0 400000000000 0 400000000000 -ET0 033005 0 0 0 400000000000 0 400000000000 -ST1A 033005 0 0 0 400000000000 0 400000000000 -ST9 033005 0 0 0 400000000000 0 400000000000 - - -*033005 JUMPA 0,033006 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033005 033005 0 0 324000033006 0 000000033006 -IT1 033005 0 0 0 324000033006 0 000000033006 -AT3 033005 0 0 0 000000033006 0 324000033006 -AT6 033005 033006 0 0 000000033006 0 324000033006 -FT1A 033005 033006 0 0 000000033006 0 000000033006 -FT2 033005 033006 0 0 0 0 000000033006 -FT2RQ 033005 033006 0 0 400000000000 0 000000033006 -FT3 033005 033006 0 0 400000000000 0 000000033006 -FT9 033006 033006 0 0 400000000000 0 000000033006 -ET0 033006 033006 0 0 400000000000 0 000000033006 -ST1A 033006 033006 0 0 400000000000 0 000000033006 -ST9 033006 033006 0 0 400000000000 0 000000033006 - - -*033006 MOVE 0,034466 -INITIAL -C(AC)=400000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033006 033006 0 0 200000034466 0 777777777777 -IT1 033006 0 0 0 200000034466 0 777777777777 -AT3 033006 0 0 0 000000034466 0 200000034466 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 375 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0570 - -AT6 033006 034466 0 0 000000034466 0 200000034466 -FT0 033006 034466 0 0 777777777777 0 200000034466 -FT1A 033006 034466 0 0 777777777777 0 777777777777 -FT9 033007 034466 0 0 777777777777 0 777777777777 -ET0 033007 034466 0 0 777777777777 0 777777777777 -ST1 033007 034466 0 0 777777777777 0 777777777777 -ST2 033007 034466 0 0 777777777777 0 777777777777 -ST9 033007 034466 0 0 777777777777 0 777777777777 - - -*033007 ADDI 0,000001 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033007 033007 0 0 271000000001 0 000000000001 -IT1 033007 0 0 0 271000000001 0 000000000001 -AT3 033007 0 0 0 000000000001 0 271000000001 -AT6 033007 000001 0 0 000000000001 0 271000000001 -FT1A 033007 000001 0 0 000000000001 0 000000000001 -FT2 033007 000001 0 0 0 0 000000000001 -FT2RQ 033007 000001 0 0 777777777777 0 000000000001 -FT3 033007 000001 0 0 777777777777 0 000000000001 -FT9 033010 000001 0 0 777777777777 0 000000000001 -ET0 033010 000001 0 0 0 0 000000000001 -ST1 033010 000001 0 0 0 0 000000000001 -ST2 033010 000001 0 0 0 0 000000000001 -ST9 033010 000001 0 0 0 0 000000000001 - - -*033010 JFCL 17,033012 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033010 033010 0 0 255740033012 0 000000033012 -IT1 033010 0 0 0 255740033012 0 000000033012 -AT3 033010 0 0 0 000000033012 0 255740033012 -AT6 033010 033012 0 0 000000033012 0 255740033012 -FT1A 033010 033012 0 0 000000033012 0 000000033012 -FT9 033011 033012 0 0 000000033012 0 000000033012 -ET0 033012 033012 0 0 000000033012 0 000000033012 -ST1A 033012 033012 0 0 000000033012 0 000000033012 -ST9 033012 033012 0 0 000000033012 0 000000033012 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 376 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0571 - -*033012 JUMPA 0,033013 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033012 033012 0 0 324000033013 0 000000033013 -IT1 033012 0 0 0 324000033013 0 000000033013 -AT3 033012 0 0 0 000000033013 0 324000033013 -AT6 033012 033013 0 0 000000033013 0 324000033013 -FT1A 033012 033013 0 0 000000033013 0 000000033013 -FT2 033012 033013 0 0 0 0 000000033013 -FT2RQ 033012 033013 0 0 0 0 000000033013 -FT3 033012 033013 0 0 0 0 000000033013 -FT9 033013 033013 0 0 0 0 000000033013 -ET0 033013 033013 0 0 0 0 000000033013 -ST1A 033013 033013 0 0 0 0 000000033013 -ST9 033013 033013 0 0 0 0 000000033013 - - -*033013 MOVE 0,034466 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033013 033013 0 0 200000034466 0 777777777777 -IT1 033013 0 0 0 200000034466 0 777777777777 -AT3 033013 0 0 0 000000034466 0 200000034466 -AT6 033013 034466 0 0 000000034466 0 200000034466 -FT0 033013 034466 0 0 777777777777 0 200000034466 -FT1A 033013 034466 0 0 777777777777 0 777777777777 -FT9 033014 034466 0 0 777777777777 0 777777777777 -ET0 033014 034466 0 0 777777777777 0 777777777777 -ST1 033014 034466 0 0 777777777777 0 777777777777 -ST2 033014 034466 0 0 777777777777 0 777777777777 -ST9 033014 034466 0 0 777777777777 0 777777777777 - - -*033014 ADDI 0,000001 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033014 033014 0 0 271000000001 0 000000000001 -IT1 033014 0 0 0 271000000001 0 000000000001 -AT3 033014 0 0 0 000000000001 0 271000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 377 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0572 - -AT6 033014 000001 0 0 000000000001 0 271000000001 -FT1A 033014 000001 0 0 000000000001 0 000000000001 -FT2 033014 000001 0 0 0 0 000000000001 -FT2RQ 033014 000001 0 0 777777777777 0 000000000001 -FT3 033014 000001 0 0 777777777777 0 000000000001 -FT9 033015 000001 0 0 777777777777 0 000000000001 -ET0 033015 000001 0 0 0 0 000000000001 -ST1 033015 000001 0 0 0 0 000000000001 -ST2 033015 000001 0 0 0 0 000000000001 -ST9 033015 000001 0 0 0 0 000000000001 - - -*033015 CAI 17,000017 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033015 033015 0 0 300740000017 0 000000000017 -IT1 033015 0 0 0 300740000017 0 000000000017 -AT3 033015 0 0 0 000000000017 0 300740000017 -AT6 033015 000017 0 0 000000000017 0 300740000017 -FT1A 033015 000017 0 0 000000000017 0 000000000017 -FT2 033015 000017 0 0 0 0 000000000017 -FT2RQ 033015 000017 0 0 000000777723 0 000000000017 -FT3 033015 000017 0 0 000000777723 0 000000000017 -FT9 033016 000017 0 0 000000777723 0 000000000017 -ET0 033016 000017 0 0 000000777704 0 000000000017 -ST1A 033016 000017 0 0 000000777704 0 000000000017 -ST9 033016 000017 0 0 000000777704 0 000000000017 - - -*033016 JFCL 17,033020 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033016 033016 0 0 255740033020 0 000000033020 -IT1 033016 0 0 0 255740033020 0 000000033020 -AT3 033016 0 0 0 000000033020 0 255740033020 -AT6 033016 033020 0 0 000000033020 0 255740033020 -FT1A 033016 033020 0 0 000000033020 0 000000033020 -FT9 033017 033020 0 0 000000033020 0 000000033020 -ET0 033020 033020 0 0 000000033020 0 000000033020 -ST1A 033020 033020 0 0 000000033020 0 000000033020 -ST9 033020 033020 0 0 000000033020 0 000000033020 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 378 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0573 - -*033020 JUMPA 0,033021 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033020 033020 0 0 324000033021 0 000000033021 -IT1 033020 0 0 0 324000033021 0 000000033021 -AT3 033020 0 0 0 000000033021 0 324000033021 -AT6 033020 033021 0 0 000000033021 0 324000033021 -FT1A 033020 033021 0 0 000000033021 0 000000033021 -FT2 033020 033021 0 0 0 0 000000033021 -FT2RQ 033020 033021 0 0 0 0 000000033021 -FT3 033020 033021 0 0 0 0 000000033021 -FT9 033021 033021 0 0 0 0 000000033021 -ET0 033021 033021 0 0 0 0 000000033021 -ST1A 033021 033021 0 0 0 0 000000033021 -ST9 033021 033021 0 0 0 0 000000033021 - - -*033021 MOVE 0,034466 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033021 033021 0 0 200000034466 0 777777777777 -IT1 033021 0 0 0 200000034466 0 777777777777 -AT3 033021 0 0 0 000000034466 0 200000034466 -AT6 033021 034466 0 0 000000034466 0 200000034466 -FT0 033021 034466 0 0 777777777777 0 200000034466 -FT1A 033021 034466 0 0 777777777777 0 777777777777 -FT9 033022 034466 0 0 777777777777 0 777777777777 -ET0 033022 034466 0 0 777777777777 0 777777777777 -ST1 033022 034466 0 0 777777777777 0 777777777777 -ST2 033022 034466 0 0 777777777777 0 777777777777 -ST9 033022 034466 0 0 777777777777 0 777777777777 - - -*033022 ADDI 0,000001 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033022 033022 0 0 271000000001 0 000000000001 -IT1 033022 0 0 0 271000000001 0 000000000001 -AT3 033022 0 0 0 000000000001 0 271000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 379 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0574 - -AT6 033022 000001 0 0 000000000001 0 271000000001 -FT1A 033022 000001 0 0 000000000001 0 000000000001 -FT2 033022 000001 0 0 0 0 000000000001 -FT2RQ 033022 000001 0 0 777777777777 0 000000000001 -FT3 033022 000001 0 0 777777777777 0 000000000001 -FT9 033023 000001 0 0 777777777777 0 000000000001 -ET0 033023 000001 0 0 0 0 000000000001 -ST1 033023 000001 0 0 0 0 000000000001 -ST2 033023 000001 0 0 0 0 000000000001 -ST9 033023 000001 0 0 0 0 000000000001 - - -*033023 JFCL 2,033025 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033023 033023 0 0 255100033025 0 000000033025 -IT1 033023 0 0 0 255100033025 0 000000033025 -AT3 033023 0 0 0 000000033025 0 255100033025 -AT6 033023 033025 0 0 000000033025 0 255100033025 -FT1A 033023 033025 0 0 000000033025 0 000000033025 -FT9 033024 033025 0 0 000000033025 0 000000033025 -ET0 033025 033025 0 0 000000033025 0 000000033025 -ST1A 033025 033025 0 0 000000033025 0 000000033025 -ST9 033025 033025 0 0 000000033025 0 000000033025 - - -*033025 JUMPA 0,033026 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033025 033025 0 0 324000033026 0 000000033026 -IT1 033025 0 0 0 324000033026 0 000000033026 -AT3 033025 0 0 0 000000033026 0 324000033026 -AT6 033025 033026 0 0 000000033026 0 324000033026 -FT1A 033025 033026 0 0 000000033026 0 000000033026 -FT2 033025 033026 0 0 0 0 000000033026 -FT2RQ 033025 033026 0 0 0 0 000000033026 -FT3 033025 033026 0 0 0 0 000000033026 -FT9 033026 033026 0 0 0 0 000000033026 -ET0 033026 033026 0 0 0 0 000000033026 -ST1A 033026 033026 0 0 0 0 000000033026 -ST9 033026 033026 0 0 0 0 000000033026 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 380 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0575 - -*033026 MOVE 0,034466 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033026 033026 0 0 200000034466 0 777777777777 -IT1 033026 0 0 0 200000034466 0 777777777777 -AT3 033026 0 0 0 000000034466 0 200000034466 -AT6 033026 034466 0 0 000000034466 0 200000034466 -FT0 033026 034466 0 0 777777777777 0 200000034466 -FT1A 033026 034466 0 0 777777777777 0 777777777777 -FT9 033027 034466 0 0 777777777777 0 777777777777 -ET0 033027 034466 0 0 777777777777 0 777777777777 -ST1 033027 034466 0 0 777777777777 0 777777777777 -ST2 033027 034466 0 0 777777777777 0 777777777777 -ST9 033027 034466 0 0 777777777777 0 777777777777 - - -*033027 ADDI 0,000001 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033027 033027 0 0 271000000001 0 000000000001 -IT1 033027 0 0 0 271000000001 0 000000000001 -AT3 033027 0 0 0 000000000001 0 271000000001 -AT6 033027 000001 0 0 000000000001 0 271000000001 -FT1A 033027 000001 0 0 000000000001 0 000000000001 -FT2 033027 000001 0 0 0 0 000000000001 -FT2RQ 033027 000001 0 0 777777777777 0 000000000001 -FT3 033027 000001 0 0 777777777777 0 000000000001 -FT9 033030 000001 0 0 777777777777 0 000000000001 -ET0 033030 000001 0 0 0 0 000000000001 -ST1 033030 000001 0 0 0 0 000000000001 -ST2 033030 000001 0 0 0 0 000000000001 -ST9 033030 000001 0 0 0 0 000000000001 - - -*033030 JFCL 4,033032 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033030 033030 0 0 255200033032 0 000000033032 -IT1 033030 0 0 0 255200033032 0 000000033032 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 381 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0576 - -AT3 033030 0 0 0 000000033032 0 255200033032 -AT6 033030 033032 0 0 000000033032 0 255200033032 -FT1A 033030 033032 0 0 000000033032 0 000000033032 -FT9 033031 033032 0 0 000000033032 0 000000033032 -ET0 033032 033032 0 0 000000033032 0 000000033032 -ST1A 033032 033032 0 0 000000033032 0 000000033032 -ST9 033032 033032 0 0 000000033032 0 000000033032 - - -*033032 JUMPA 0,033033 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033032 033032 0 0 324000033033 0 000000033033 -IT1 033032 0 0 0 324000033033 0 000000033033 -AT3 033032 0 0 0 000000033033 0 324000033033 -AT6 033032 033033 0 0 000000033033 0 324000033033 -FT1A 033032 033033 0 0 000000033033 0 000000033033 -FT2 033032 033033 0 0 0 0 000000033033 -FT2RQ 033032 033033 0 0 0 0 000000033033 -FT3 033032 033033 0 0 0 0 000000033033 -FT9 033033 033033 0 0 0 0 000000033033 -ET0 033033 033033 0 0 0 0 000000033033 -ST1A 033033 033033 0 0 0 0 000000033033 -ST9 033033 033033 0 0 0 0 000000033033 - - -*033033 MOVSI 0,400000 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033033 033033 0 0 205000400000 0 000000400000 -IT1 033033 0 0 0 205000400000 0 000000400000 -AT3 033033 0 0 0 000000400000 0 205000400000 -AT6 033033 0 0 0 000000400000 0 205000400000 -FT1A 033033 0 0 0 000000400000 0 000000400000 -FT9 033034 0 0 0 000000400000 0 000000400000 -ET0 033034 0 0 0 400000000000 0 000000400000 -ST1 033034 0 0 0 400000000000 0 000000400000 -ST2 033034 0 0 0 400000000000 0 000000400000 -ST9 033034 0 0 0 400000000000 0 000000400000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 382 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0577 - -*033034 ADD 0,034465 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033034 033034 0 0 270000034465 0 400000000000 -IT1 033034 0 0 0 270000034465 0 400000000000 -AT3 033034 0 0 0 000000034465 0 270000034465 -AT6 033034 034465 0 0 000000034465 0 270000034465 -FT0 033034 034465 0 0 400000000000 0 270000034465 -FT1A 033034 034465 0 0 400000000000 0 400000000000 -FT2 033034 034465 0 0 0 0 400000000000 -FT2RQ 033034 034465 0 0 400000000000 0 400000000000 -FT3 033034 034465 0 0 400000000000 0 400000000000 -FT9 033035 034465 0 0 400000000000 0 400000000000 -ET0 033035 034465 0 0 0 0 400000000000 -ST1 033035 034465 0 0 0 0 400000000000 -ST2 033035 034465 0 0 0 0 400000000000 -ST9 033035 034465 0 0 0 0 400000000000 - - -*033035 JFCL 10,033037 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033035 033035 0 0 255400033037 0 000000033037 -IT1 033035 0 0 0 255400033037 0 000000033037 -AT3 033035 0 0 0 000000033037 0 255400033037 -AT6 033035 033037 0 0 000000033037 0 255400033037 -FT1A 033035 033037 0 0 000000033037 0 000000033037 -FT9 033036 033037 0 0 000000033037 0 000000033037 -ET0 033037 033037 0 0 000000033037 0 000000033037 -ST1A 033037 033037 0 0 000000033037 0 000000033037 -ST9 033037 033037 0 0 000000033037 0 000000033037 - - -*033037 JUMPA 0,033040 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033037 033037 0 0 324000033040 0 000000033040 -IT1 033037 0 0 0 324000033040 0 000000033040 -AT3 033037 0 0 0 000000033040 0 324000033040 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 383 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0578 - -AT6 033037 033040 0 0 000000033040 0 324000033040 -FT1A 033037 033040 0 0 000000033040 0 000000033040 -FT2 033037 033040 0 0 0 0 000000033040 -FT2RQ 033037 033040 0 0 0 0 000000033040 -FT3 033037 033040 0 0 0 0 000000033040 -FT9 033040 033040 0 0 0 0 000000033040 -ET0 033040 033040 0 0 0 0 000000033040 -ST1A 033040 033040 0 0 0 0 000000033040 -ST9 033040 033040 0 0 0 0 000000033040 - - -*033040 JFCL 17,033041 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033040 033040 0 0 255740033041 0 000000033041 -IT1 033040 0 0 0 255740033041 0 000000033041 -AT3 033040 0 0 0 000000033041 0 255740033041 -AT6 033040 033041 0 0 000000033041 0 255740033041 -FT1A 033040 033041 0 0 000000033041 0 000000033041 -FT9 033041 033041 0 0 000000033041 0 000000033041 -ET0 033041 033041 0 0 000000033041 0 000000033041 -ST1A 033041 033041 0 0 000000033041 0 000000033041 -ST9 033041 033041 0 0 000000033041 0 000000033041 - - -*033041 JFCL 1,033043 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033041 033041 0 0 255040033043 0 000000033043 -IT1 033041 0 0 0 255040033043 0 000000033043 -AT3 033041 0 0 0 000000033043 0 255040033043 -AT6 033041 033043 0 0 000000033043 0 255040033043 -FT1A 033041 033043 0 0 000000033043 0 000000033043 -FT9 033042 033043 0 0 000000033043 0 000000033043 -ET0 033042 033043 0 0 000000033043 0 000000033043 -ST1A 033042 033043 0 0 000000033043 0 000000033043 -ST9 033042 033043 0 0 000000033043 0 000000033043 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 384 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0579 - -*033042 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 033042 033042 0 0 334000000000 0 0 -IT1 033042 0 0 0 334000000000 0 0 -AT3 033042 0 0 0 0 0 334000000000 -AT6 033042 0 0 0 0 0 334000000000 -FT0 033042 0 0 0 0 0 334000000000 -FT1A 033042 0 0 0 0 0 0 -FT9 033043 0 0 0 0 0 0 -ET0 033044 0 0 0 0 0 0 -ST1A 033044 0 0 0 0 0 0 -ST9 033044 0 0 0 0 0 0 - - -*033044 JUMPA 0,033045 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033044 033044 0 0 324000033045 0 000000033045 -IT1 033044 0 0 0 324000033045 0 000000033045 -AT3 033044 0 0 0 000000033045 0 324000033045 -AT6 033044 033045 0 0 000000033045 0 324000033045 -FT1A 033044 033045 0 0 000000033045 0 000000033045 -FT2 033044 033045 0 0 0 0 000000033045 -FT2RQ 033044 033045 0 0 0 0 000000033045 -FT3 033044 033045 0 0 0 0 000000033045 -FT9 033045 033045 0 0 0 0 000000033045 -ET0 033045 033045 0 0 0 0 000000033045 -ST1A 033045 033045 0 0 0 0 000000033045 -ST9 033045 033045 0 0 0 0 000000033045 - - -*033045 MOVE 0,034466 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033045 033045 0 0 200000034466 0 777777777777 -IT1 033045 0 0 0 200000034466 0 777777777777 -AT3 033045 0 0 0 000000034466 0 200000034466 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 385 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0580 - -AT6 033045 034466 0 0 000000034466 0 200000034466 -FT0 033045 034466 0 0 777777777777 0 200000034466 -FT1A 033045 034466 0 0 777777777777 0 777777777777 -FT9 033046 034466 0 0 777777777777 0 777777777777 -ET0 033046 034466 0 0 777777777777 0 777777777777 -ST1 033046 034466 0 0 777777777777 0 777777777777 -ST2 033046 034466 0 0 777777777777 0 777777777777 -ST9 033046 034466 0 0 777777777777 0 777777777777 - - -*033046 ADDI 0,000001 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033046 033046 0 0 271000000001 0 000000000001 -IT1 033046 0 0 0 271000000001 0 000000000001 -AT3 033046 0 0 0 000000000001 0 271000000001 -AT6 033046 000001 0 0 000000000001 0 271000000001 -FT1A 033046 000001 0 0 000000000001 0 000000000001 -FT2 033046 000001 0 0 0 0 000000000001 -FT2RQ 033046 000001 0 0 777777777777 0 000000000001 -FT3 033046 000001 0 0 777777777777 0 000000000001 -FT9 033047 000001 0 0 777777777777 0 000000000001 -ET0 033047 000001 0 0 0 0 000000000001 -ST1 033047 000001 0 0 0 0 000000000001 -ST2 033047 000001 0 0 0 0 000000000001 -ST9 033047 000001 0 0 0 0 000000000001 - - -*033047 JFCL 13,033050 -INITIAL -C(AC)=000000 000013 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033047 033047 0 0 255540033050 0 000000033050 -IT1 033047 0 0 0 255540033050 0 000000033050 -AT3 033047 0 0 0 000000033050 0 255540033050 -AT6 033047 033050 0 0 000000033050 0 255540033050 -FT1A 033047 033050 0 0 000000033050 0 000000033050 -FT9 033050 033050 0 0 000000033050 0 000000033050 -ET0 033050 033050 0 0 000000033050 0 000000033050 -ST1A 033050 033050 0 0 000000033050 0 000000033050 -ST9 033050 033050 0 0 000000033050 0 000000033050 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 386 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0581 - -*033050 JFCL 4,033052 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033050 033050 0 0 255200033052 0 000000033052 -IT1 033050 0 0 0 255200033052 0 000000033052 -AT3 033050 0 0 0 000000033052 0 255200033052 -AT6 033050 033052 0 0 000000033052 0 255200033052 -FT1A 033050 033052 0 0 000000033052 0 000000033052 -FT9 033051 033052 0 0 000000033052 0 000000033052 -ET0 033052 033052 0 0 000000033052 0 000000033052 -ST1A 033052 033052 0 0 000000033052 0 000000033052 -ST9 033052 033052 0 0 000000033052 0 000000033052 - - -*033052 JUMPA 0,033053 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033052 033052 0 0 324000033053 0 000000033053 -IT1 033052 0 0 0 324000033053 0 000000033053 -AT3 033052 0 0 0 000000033053 0 324000033053 -AT6 033052 033053 0 0 000000033053 0 324000033053 -FT1A 033052 033053 0 0 000000033053 0 000000033053 -FT2 033052 033053 0 0 0 0 000000033053 -FT2RQ 033052 033053 0 0 0 0 000000033053 -FT3 033052 033053 0 0 0 0 000000033053 -FT9 033053 033053 0 0 0 0 000000033053 -ET0 033053 033053 0 0 0 0 000000033053 -ST1A 033053 033053 0 0 0 0 000000033053 -ST9 033053 033053 0 0 0 0 000000033053 - - -*033053 MOVE 0,034466 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033053 033053 0 0 200000034466 0 777777777777 -IT1 033053 0 0 0 200000034466 0 777777777777 -AT3 033053 0 0 0 000000034466 0 200000034466 -AT6 033053 034466 0 0 000000034466 0 200000034466 -FT0 033053 034466 0 0 777777777777 0 200000034466 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 387 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0582 - -FT1A 033053 034466 0 0 777777777777 0 777777777777 -FT9 033054 034466 0 0 777777777777 0 777777777777 -ET0 033054 034466 0 0 777777777777 0 777777777777 -ST1 033054 034466 0 0 777777777777 0 777777777777 -ST2 033054 034466 0 0 777777777777 0 777777777777 -ST9 033054 034466 0 0 777777777777 0 777777777777 - - -*033054 ADDI 0,000001 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033054 033054 0 0 271000000001 0 000000000001 -IT1 033054 0 0 0 271000000001 0 000000000001 -AT3 033054 0 0 0 000000000001 0 271000000001 -AT6 033054 000001 0 0 000000000001 0 271000000001 -FT1A 033054 000001 0 0 000000000001 0 000000000001 -FT2 033054 000001 0 0 0 0 000000000001 -FT2RQ 033054 000001 0 0 777777777777 0 000000000001 -FT3 033054 000001 0 0 777777777777 0 000000000001 -FT9 033055 000001 0 0 777777777777 0 000000000001 -ET0 033055 000001 0 0 0 0 000000000001 -ST1 033055 000001 0 0 0 0 000000000001 -ST2 033055 000001 0 0 0 0 000000000001 -ST9 033055 000001 0 0 0 0 000000000001 - - -*033055 JFCL 15,033056 -INITIAL -C(AC)=000000 000015 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033055 033055 0 0 255640033056 0 000000033056 -IT1 033055 0 0 0 255640033056 0 000000033056 -AT3 033055 0 0 0 000000033056 0 255640033056 -AT6 033055 033056 0 0 000000033056 0 255640033056 -FT1A 033055 033056 0 0 000000033056 0 000000033056 -FT9 033056 033056 0 0 000000033056 0 000000033056 -ET0 033056 033056 0 0 000000033056 0 000000033056 -ST1A 033056 033056 0 0 000000033056 0 000000033056 -ST9 033056 033056 0 0 000000033056 0 000000033056 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 388 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0583 - -*033056 JFCL 2,033060 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033056 033056 0 0 255100033060 0 000000033060 -IT1 033056 0 0 0 255100033060 0 000000033060 -AT3 033056 0 0 0 000000033060 0 255100033060 -AT6 033056 033060 0 0 000000033060 0 255100033060 -FT1A 033056 033060 0 0 000000033060 0 000000033060 -FT9 033057 033060 0 0 000000033060 0 000000033060 -ET0 033060 033060 0 0 000000033060 0 000000033060 -ST1A 033060 033060 0 0 000000033060 0 000000033060 -ST9 033060 033060 0 0 000000033060 0 000000033060 - - -*033060 JUMPA 0,033061 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033060 033060 0 0 324000033061 0 000000033061 -IT1 033060 0 0 0 324000033061 0 000000033061 -AT3 033060 0 0 0 000000033061 0 324000033061 -AT6 033060 033061 0 0 000000033061 0 324000033061 -FT1A 033060 033061 0 0 000000033061 0 000000033061 -FT2 033060 033061 0 0 0 0 000000033061 -FT2RQ 033060 033061 0 0 0 0 000000033061 -FT3 033060 033061 0 0 0 0 000000033061 -FT9 033061 033061 0 0 0 0 000000033061 -ET0 033061 033061 0 0 0 0 000000033061 -ST1A 033061 033061 0 0 0 0 000000033061 -ST9 033061 033061 0 0 0 0 000000033061 - - -*033061 MOVSI 0,400000 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033061 033061 0 0 205000400000 0 000000400000 -IT1 033061 0 0 0 205000400000 0 000000400000 -AT3 033061 0 0 0 000000400000 0 205000400000 -AT6 033061 0 0 0 000000400000 0 205000400000 -FT1A 033061 0 0 0 000000400000 0 000000400000 -FT9 033062 0 0 0 000000400000 0 000000400000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 389 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0584 - -ET0 033062 0 0 0 400000000000 0 000000400000 -ST1 033062 0 0 0 400000000000 0 000000400000 -ST2 033062 0 0 0 400000000000 0 000000400000 -ST9 033062 0 0 0 400000000000 0 000000400000 - - -*033062 ADD 0,034465 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033062 033062 0 0 270000034465 0 400000000000 -IT1 033062 0 0 0 270000034465 0 400000000000 -AT3 033062 0 0 0 000000034465 0 270000034465 -AT6 033062 034465 0 0 000000034465 0 270000034465 -FT0 033062 034465 0 0 400000000000 0 270000034465 -FT1A 033062 034465 0 0 400000000000 0 400000000000 -FT2 033062 034465 0 0 0 0 400000000000 -FT2RQ 033062 034465 0 0 400000000000 0 400000000000 -FT3 033062 034465 0 0 400000000000 0 400000000000 -FT9 033063 034465 0 0 400000000000 0 400000000000 -ET0 033063 034465 0 0 0 0 400000000000 -ST1 033063 034465 0 0 0 0 400000000000 -ST2 033063 034465 0 0 0 0 400000000000 -ST9 033063 034465 0 0 0 0 400000000000 - - -*033063 JFCL 7,033064 -INITIAL -C(AC)=000000 000007 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033063 033063 0 0 255340033064 0 000000033064 -IT1 033063 0 0 0 255340033064 0 000000033064 -AT3 033063 0 0 0 000000033064 0 255340033064 -AT6 033063 033064 0 0 000000033064 0 255340033064 -FT1A 033063 033064 0 0 000000033064 0 000000033064 -FT9 033064 033064 0 0 000000033064 0 000000033064 -ET0 033064 033064 0 0 000000033064 0 000000033064 -ST1A 033064 033064 0 0 000000033064 0 000000033064 -ST9 033064 033064 0 0 000000033064 0 000000033064 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 390 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0585 - -*033064 JFCL 10,033066 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033064 033064 0 0 255400033066 0 000000033066 -IT1 033064 0 0 0 255400033066 0 000000033066 -AT3 033064 0 0 0 000000033066 0 255400033066 -AT6 033064 033066 0 0 000000033066 0 255400033066 -FT1A 033064 033066 0 0 000000033066 0 000000033066 -FT9 033065 033066 0 0 000000033066 0 000000033066 -ET0 033066 033066 0 0 000000033066 0 000000033066 -ST1A 033066 033066 0 0 000000033066 0 000000033066 -ST9 033066 033066 0 0 000000033066 0 000000033066 - - -*033066 JUMPA 0,033067 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033066 033066 0 0 324000033067 0 000000033067 -IT1 033066 0 0 0 324000033067 0 000000033067 -AT3 033066 0 0 0 000000033067 0 324000033067 -AT6 033066 033067 0 0 000000033067 0 324000033067 -FT1A 033066 033067 0 0 000000033067 0 000000033067 -FT2 033066 033067 0 0 0 0 000000033067 -FT2RQ 033066 033067 0 0 0 0 000000033067 -FT3 033066 033067 0 0 0 0 000000033067 -FT9 033067 033067 0 0 0 0 000000033067 -ET0 033067 033067 0 0 0 0 000000033067 -ST1A 033067 033067 0 0 0 0 000000033067 -ST9 033067 033067 0 0 0 0 000000033067 - - -*033067 JFCL 17,033070 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033067 033067 0 0 255740033070 0 000000033070 -IT1 033067 0 0 0 255740033070 0 000000033070 -AT3 033067 0 0 0 000000033070 0 255740033070 -AT6 033067 033070 0 0 000000033070 0 255740033070 -FT1A 033067 033070 0 0 000000033070 0 000000033070 -FT9 033070 033070 0 0 000000033070 0 000000033070 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 391 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0586 - -ET0 033070 033070 0 0 000000033070 0 000000033070 -ST1A 033070 033070 0 0 000000033070 0 000000033070 -ST9 033070 033070 0 0 000000033070 0 000000033070 - - -*033070 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 033070 033070 0 0 400000000000 0 0 -IT1 033070 0 0 0 400000000000 0 0 -AT3 033070 0 0 0 0 0 400000000000 -AT6 033070 0 0 0 0 0 400000000000 -FT1A 033070 0 0 0 0 0 0 -FT9 033071 0 0 0 0 0 0 -ET0 033071 0 0 0 0 0 0 -ST1 033071 0 0 0 0 0 0 -ST2 033071 0 0 0 0 0 0 -ST9 033071 0 0 0 0 0 0 - - -*033071 ADD 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 033071 033071 0 0 270000000000 0 0 -IT1 033071 0 0 0 270000000000 0 0 -AT3 033071 0 0 0 0 0 270000000000 -AT6 033071 0 0 0 0 0 270000000000 -FT0 033071 0 0 0 0 0 270000000000 -FT1A 033071 0 0 0 0 0 0 -FT2 033071 0 0 0 0 0 0 -FT2RQ 033071 0 0 0 0 0 0 -FT3 033071 0 0 0 0 0 0 -FT9 033072 0 0 0 0 0 0 -ET0 033072 0 0 0 0 0 0 -ST1 033072 0 0 0 0 0 0 -ST2 033072 0 0 0 0 0 0 -ST9 033072 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 392 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0587 - -*033072 JFCL 10,033074 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033072 033072 0 0 255400033074 0 000000033074 -IT1 033072 0 0 0 255400033074 0 000000033074 -AT3 033072 0 0 0 000000033074 0 255400033074 -AT6 033072 033074 0 0 000000033074 0 255400033074 -FT1A 033072 033074 0 0 000000033074 0 000000033074 -FT9 033073 033074 0 0 000000033074 0 000000033074 -ET0 033073 033074 0 0 000000033074 0 000000033074 -ST1A 033073 033074 0 0 000000033074 0 000000033074 -ST9 033073 033074 0 0 000000033074 0 000000033074 - - -*033073 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 033073 033073 0 0 334000000000 0 0 -IT1 033073 0 0 0 334000000000 0 0 -AT3 033073 0 0 0 0 0 334000000000 -AT6 033073 0 0 0 0 0 334000000000 -FT0 033073 0 0 0 0 0 334000000000 -FT1A 033073 0 0 0 0 0 0 -FT9 033074 0 0 0 0 0 0 -ET0 033075 0 0 0 0 0 0 -ST1A 033075 0 0 0 0 0 0 -ST9 033075 0 0 0 0 0 0 - - -*033075 JUMPA 0,033076 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033075 033075 0 0 324000033076 0 000000033076 -IT1 033075 0 0 0 324000033076 0 000000033076 -AT3 033075 0 0 0 000000033076 0 324000033076 -AT6 033075 033076 0 0 000000033076 0 324000033076 -FT1A 033075 033076 0 0 000000033076 0 000000033076 -FT2 033075 033076 0 0 0 0 000000033076 -FT2RQ 033075 033076 0 0 0 0 000000033076 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 393 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0588 - -FT3 033075 033076 0 0 0 0 000000033076 -FT9 033076 033076 0 0 0 0 000000033076 -ET0 033076 033076 0 0 0 0 000000033076 -ST1A 033076 033076 0 0 0 0 000000033076 -ST9 033076 033076 0 0 0 0 000000033076 - - -*033076 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 033076 033076 0 0 400000000000 0 0 -IT1 033076 0 0 0 400000000000 0 0 -AT3 033076 0 0 0 0 0 400000000000 -AT6 033076 0 0 0 0 0 400000000000 -FT1A 033076 0 0 0 0 0 0 -FT9 033077 0 0 0 0 0 0 -ET0 033077 0 0 0 0 0 0 -ST1 033077 0 0 0 0 0 0 -ST2 033077 0 0 0 0 0 0 -ST9 033077 0 0 0 0 0 0 - - -*033077 JFCL 17,033100 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033077 033077 0 0 255740033100 0 000000033100 -IT1 033077 0 0 0 255740033100 0 000000033100 -AT3 033077 0 0 0 000000033100 0 255740033100 -AT6 033077 0 0 0 000000033100 0 255740033100 -FT1A 033077 0 0 0 000000033100 0 000000033100 -FT9 0 0 0 0 000000033100 0 000000033100 -ET0 0 0 0 0 000000033100 0 000000033100 -ST1A 0 0 0 0 000000033100 0 000000033100 -ST9 0 0 0 0 000000033100 0 000000033100 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 394 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0589 - -*033100 ADD 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 0 0 0 0 270000000000 0 0 -IT1 0 0 0 0 270000000000 0 0 -AT3 0 0 0 0 0 0 270000000000 -AT6 0 0 0 0 0 0 270000000000 -FT0 0 0 0 0 0 0 270000000000 -FT1A 0 0 0 0 0 0 0 -FT2 0 0 0 0 0 0 0 -FT2RQ 0 0 0 0 0 0 0 -FT3 0 0 0 0 0 0 0 -FT9 033101 0 0 0 0 0 0 -ET0 033101 0 0 0 0 0 0 -ST1 033101 0 0 0 0 0 0 -ST2 033101 0 0 0 0 0 0 -ST9 033101 0 0 0 0 0 0 - - -*033101 JFCL 4,033103 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033101 033101 0 0 255200033103 0 000000033103 -IT1 033101 0 0 0 255200033103 0 000000033103 -AT3 033101 0 0 0 000000033103 0 255200033103 -AT6 033101 033103 0 0 000000033103 0 255200033103 -FT1A 033101 033103 0 0 000000033103 0 000000033103 -FT9 033102 033103 0 0 000000033103 0 000000033103 -ET0 033102 033103 0 0 000000033103 0 000000033103 -ST1A 033102 033103 0 0 000000033103 0 000000033103 -ST9 033102 033103 0 0 000000033103 0 000000033103 - - -*033102 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 033102 033102 0 0 334000000000 0 0 -IT1 033102 0 0 0 334000000000 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 395 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0590 - -AT3 033102 0 0 0 0 0 334000000000 -AT6 033102 0 0 0 0 0 334000000000 -FT0 033102 0 0 0 0 0 334000000000 -FT1A 033102 0 0 0 0 0 0 -FT9 033103 0 0 0 0 0 0 -ET0 033104 0 0 0 0 0 0 -ST1A 033104 0 0 0 0 0 0 -ST9 033104 0 0 0 0 0 0 - - -*033104 JUMPA 0,033105 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033104 033104 0 0 324000033105 0 000000033105 -IT1 033104 0 0 0 324000033105 0 000000033105 -AT3 033104 0 0 0 000000033105 0 324000033105 -AT6 033104 033105 0 0 000000033105 0 324000033105 -FT1A 033104 033105 0 0 000000033105 0 000000033105 -FT2 033104 033105 0 0 0 0 000000033105 -FT2RQ 033104 033105 0 0 0 0 000000033105 -FT3 033104 033105 0 0 0 0 000000033105 -FT9 033105 033105 0 0 0 0 000000033105 -ET0 033105 033105 0 0 0 0 000000033105 -ST1A 033105 033105 0 0 0 0 000000033105 -ST9 033105 033105 0 0 0 0 000000033105 - - -*033105 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 033105 033105 0 0 400000000000 0 0 -IT1 033105 0 0 0 400000000000 0 0 -AT3 033105 0 0 0 0 0 400000000000 -AT6 033105 0 0 0 0 0 400000000000 -FT1A 033105 0 0 0 0 0 0 -FT9 033106 0 0 0 0 0 0 -ET0 033106 0 0 0 0 0 0 -ST1 033106 0 0 0 0 0 0 -ST2 033106 0 0 0 0 0 0 -ST9 033106 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 396 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0591 - -*033106 JFCL 17,033107 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033106 033106 0 0 255740033107 0 000000033107 -IT1 033106 0 0 0 255740033107 0 000000033107 -AT3 033106 0 0 0 000000033107 0 255740033107 -AT6 033106 033107 0 0 000000033107 0 255740033107 -FT1A 033106 033107 0 0 000000033107 0 000000033107 -FT9 033107 033107 0 0 000000033107 0 000000033107 -ET0 033107 033107 0 0 000000033107 0 000000033107 -ST1A 033107 033107 0 0 000000033107 0 000000033107 -ST9 033107 033107 0 0 000000033107 0 000000033107 - - -*033107 ADD 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 033107 033107 0 0 270000000000 0 0 -IT1 033107 0 0 0 270000000000 0 0 -AT3 033107 0 0 0 0 0 270000000000 -AT6 033107 0 0 0 0 0 270000000000 -FT0 033107 0 0 0 0 0 270000000000 -FT1A 033107 0 0 0 0 0 0 -FT2 033107 0 0 0 0 0 0 -FT2RQ 033107 0 0 0 0 0 0 -FT3 033107 0 0 0 0 0 0 -FT9 033110 0 0 0 0 0 0 -ET0 033110 0 0 0 0 0 0 -ST1 033110 0 0 0 0 0 0 -ST2 033110 0 0 0 0 0 0 -ST9 033110 0 0 0 0 0 0 - - -*033110 JFCL 2,033112 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033110 033110 0 0 255100033112 0 000000033112 -IT1 033110 0 0 0 255100033112 0 000000033112 -AT3 033110 0 0 0 000000033112 0 255100033112 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 397 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0592 - -AT6 033110 033112 0 0 000000033112 0 255100033112 -FT1A 033110 033112 0 0 000000033112 0 000000033112 -FT9 033111 033112 0 0 000000033112 0 000000033112 -ET0 033111 033112 0 0 000000033112 0 000000033112 -ST1A 033111 033112 0 0 000000033112 0 000000033112 -ST9 033111 033112 0 0 000000033112 0 000000033112 - - -*033111 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 033111 033111 0 0 334000000000 0 0 -IT1 033111 0 0 0 334000000000 0 0 -AT3 033111 0 0 0 0 0 334000000000 -AT6 033111 0 0 0 0 0 334000000000 -FT0 033111 0 0 0 0 0 334000000000 -FT1A 033111 0 0 0 0 0 0 -FT9 033112 0 0 0 0 0 0 -ET0 033113 0 0 0 0 0 0 -ST1A 033113 0 0 0 0 0 0 -ST9 033113 0 0 0 0 0 0 - - -*033113 JUMPA 0,033114 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033113 033113 0 0 324000033114 0 000000033114 -IT1 033113 0 0 0 324000033114 0 000000033114 -AT3 033113 0 0 0 000000033114 0 324000033114 -AT6 033113 033114 0 0 000000033114 0 324000033114 -FT1A 033113 033114 0 0 000000033114 0 000000033114 -FT2 033113 033114 0 0 0 0 000000033114 -FT2RQ 033113 033114 0 0 0 0 000000033114 -FT3 033113 033114 0 0 0 0 000000033114 -FT9 033114 033114 0 0 0 0 000000033114 -ET0 033114 033114 0 0 0 0 000000033114 -ST1A 033114 033114 0 0 0 0 000000033114 -ST9 033114 033114 0 0 0 0 000000033114 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 398 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0593 - -*033114 JFCL 17,033115 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033114 033114 0 0 255740033115 0 000000033115 -IT1 033114 0 0 0 255740033115 0 000000033115 -AT3 033114 0 0 0 000000033115 0 255740033115 -AT6 033114 033115 0 0 000000033115 0 255740033115 -FT1A 033114 033115 0 0 000000033115 0 000000033115 -FT9 033115 033115 0 0 000000033115 0 000000033115 -ET0 033115 033115 0 0 000000033115 0 000000033115 -ST1A 033115 033115 0 0 000000033115 0 000000033115 -ST9 033115 033115 0 0 000000033115 0 000000033115 - - -*033115 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 033115 033115 0 0 400000000000 0 0 -IT1 033115 0 0 0 400000000000 0 0 -AT3 033115 0 0 0 0 0 400000000000 -AT6 033115 0 0 0 0 0 400000000000 -FT1A 033115 0 0 0 0 0 0 -FT9 033116 0 0 0 0 0 0 -ET0 033116 0 0 0 0 0 0 -ST1 033116 0 0 0 0 0 0 -ST2 033116 0 0 0 0 0 0 -ST9 033116 0 0 0 0 0 0 - - -*033116 CAI 0,000000 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033116 033116 0 0 300000000000 0 0 -IT1 033116 0 0 0 300000000000 0 0 -AT3 033116 0 0 0 0 0 300000000000 -AT6 033116 0 0 0 0 0 300000000000 -FT1A 033116 0 0 0 0 0 0 -FT2 033116 0 0 0 0 0 0 -FT2RQ 033116 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 399 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0594 - -FT3 033116 0 0 0 0 0 0 -FT9 033117 0 0 0 0 0 0 -ET0 033117 0 0 0 0 0 0 -ST1A 033117 0 0 0 0 0 0 -ST9 033117 0 0 0 0 0 0 - - -*033117 CAM 0,034466 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033117 033117 0 0 310000034466 0 777777777777 -IT1 033117 0 0 0 310000034466 0 777777777777 -AT3 033117 0 0 0 000000034466 0 310000034466 -AT6 033117 034466 0 0 000000034466 0 310000034466 -FT0 033117 034466 0 0 777777777777 0 310000034466 -FT1A 033117 034466 0 0 777777777777 0 777777777777 -FT2 033117 034466 0 0 0 0 777777777777 -FT2RQ 033117 034466 0 0 0 0 777777777777 -FT3 033117 034466 0 0 0 0 777777777777 -FT9 033120 034466 0 0 0 0 777777777777 -ET0 033120 034466 0 0 000000000001 0 777777777777 -ST1A 033120 034466 0 0 000000000001 0 777777777777 -ST9 033120 034466 0 0 000000000001 0 777777777777 - - -*033120 JFCL 17,033122 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033120 033120 0 0 255740033122 0 000000033122 -IT1 033120 0 0 0 255740033122 0 000000033122 -AT3 033120 0 0 0 000000033122 0 255740033122 -AT6 033120 033122 0 0 000000033122 0 255740033122 -FT1A 033120 033122 0 0 000000033122 0 000000033122 -FT9 033121 033122 0 0 000000033122 0 000000033122 -ET0 033121 033122 0 0 000000033122 0 000000033122 -ST1A 033121 033122 0 0 000000033122 0 000000033122 -ST9 033121 033122 0 0 000000033122 0 000000033122 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 400 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0595 - -*033121 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 033121 033121 0 0 334000000000 0 0 -IT1 033121 0 0 0 334000000000 0 0 -AT3 033121 0 0 0 0 0 334000000000 -AT6 033121 0 0 0 0 0 334000000000 -FT0 033121 0 0 0 0 0 334000000000 -FT1A 033121 0 0 0 0 0 0 -FT9 033122 0 0 0 0 0 0 -ET0 033123 0 0 0 0 0 0 -ST1A 033123 0 0 0 0 0 0 -ST9 033123 0 0 0 0 0 0 - - -*033123 JUMPA 0,033124 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033123 033123 0 0 324000033124 0 000000033124 -IT1 033123 0 0 0 324000033124 0 000000033124 -AT3 033123 0 0 0 000000033124 0 324000033124 -AT6 033123 033124 0 0 000000033124 0 324000033124 -FT1A 033123 033124 0 0 000000033124 0 000000033124 -FT2 033123 033124 0 0 0 0 000000033124 -FT2RQ 033123 033124 0 0 0 0 000000033124 -FT3 033123 033124 0 0 0 0 000000033124 -FT9 033124 033124 0 0 0 0 000000033124 -ET0 033124 033124 0 0 0 0 000000033124 -ST1A 033124 033124 0 0 0 0 000000033124 -ST9 033124 033124 0 0 0 0 000000033124 - - -*033124 JFCL 17,033125 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033124 033124 0 0 255740033125 0 000000033125 -IT1 033124 0 0 0 255740033125 0 000000033125 -AT3 033124 0 0 0 000000033125 0 255740033125 -AT6 033124 033125 0 0 000000033125 0 255740033125 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 401 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0596 - -FT1A 033124 033125 0 0 000000033125 0 000000033125 -FT9 033125 033125 0 0 000000033125 0 000000033125 -ET0 033125 033125 0 0 000000033125 0 000000033125 -ST1A 033125 033125 0 0 000000033125 0 000000033125 -ST9 033125 033125 0 0 000000033125 0 000000033125 - - -*033125 SETO 0,000000 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033125 033125 0 0 474000000000 0 0 -IT1 033125 0 0 0 474000000000 0 0 -AT3 033125 0 0 0 0 0 474000000000 -AT6 033125 0 0 0 0 0 474000000000 -FT1A 033125 0 0 0 0 0 0 -FT9 033126 0 0 0 0 0 0 -ET0 033126 0 0 0 777777777777 0 0 -ST1 033126 0 0 0 777777777777 0 0 -ST2 033126 0 0 0 777777777777 0 0 -ST9 033126 0 0 0 777777777777 0 0 - - -*033126 XOR 0,034536 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033126 033126 0 0 430000034536 0 0 -IT1 033126 0 0 0 430000034536 0 0 -AT3 033126 0 0 0 000000034536 0 430000034536 -AT6 033126 034536 0 0 000000034536 0 430000034536 -FT0 033126 034536 0 0 0 0 430000034536 -FT1A 033126 034536 0 0 0 0 0 -FT2 033126 034536 0 0 0 0 0 -FT2RQ 033126 034536 0 0 777777777777 0 0 -FT3 033126 034536 0 0 777777777777 0 0 -FT9 033127 034536 0 0 777777777777 0 0 -ET0 033127 034536 0 0 777777777777 0 0 -ST1 033127 034536 0 0 777777777777 0 0 -ST2 033127 034536 0 0 777777777777 0 0 -ST9 033127 034536 0 0 777777777777 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 402 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0597 - -*033127 XOR 0,034466 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033127 033127 0 0 430000034466 0 777777777777 -IT1 033127 0 0 0 430000034466 0 777777777777 -AT3 033127 0 0 0 000000034466 0 430000034466 -AT6 033127 034466 0 0 000000034466 0 430000034466 -FT0 033127 034466 0 0 777777777777 0 430000034466 -FT1A 033127 034466 0 0 777777777777 0 777777777777 -FT2 033127 034466 0 0 0 0 777777777777 -FT2RQ 033127 034466 0 0 777777777777 0 777777777777 -FT3 033127 034466 0 0 777777777777 0 777777777777 -FT9 033130 034466 0 0 777777777777 0 777777777777 -ET0 033130 034466 0 0 0 0 777777777777 -ST1 033130 034466 0 0 0 0 777777777777 -ST2 033130 034466 0 0 0 0 777777777777 -ST9 033130 034466 0 0 0 0 777777777777 - - -*033130 JFCL 17,033132 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033130 033130 0 0 255740033132 0 000000033132 -IT1 033130 0 0 0 255740033132 0 000000033132 -AT3 033130 0 0 0 000000033132 0 255740033132 -AT6 033130 033132 0 0 000000033132 0 255740033132 -FT1A 033130 033132 0 0 000000033132 0 000000033132 -FT9 033131 033132 0 0 000000033132 0 000000033132 -ET0 033131 033132 0 0 000000033132 0 000000033132 -ST1A 033131 033132 0 0 000000033132 0 000000033132 -ST9 033131 033132 0 0 000000033132 0 000000033132 - - -*033131 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 033131 033131 0 0 334000000000 0 0 -IT1 033131 0 0 0 334000000000 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 403 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0598 - -AT3 033131 0 0 0 0 0 334000000000 -AT6 033131 0 0 0 0 0 334000000000 -FT0 033131 0 0 0 0 0 334000000000 -FT1A 033131 0 0 0 0 0 0 -FT9 033132 0 0 0 0 0 0 -ET0 033133 0 0 0 0 0 0 -ST1A 033133 0 0 0 0 0 0 -ST9 033133 0 0 0 0 0 0 - - -*033133 JUMPA 0,033134 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033133 033133 0 0 324000033134 0 000000033134 -IT1 033133 0 0 0 324000033134 0 000000033134 -AT3 033133 0 0 0 000000033134 0 324000033134 -AT6 033133 033134 0 0 000000033134 0 324000033134 -FT1A 033133 033134 0 0 000000033134 0 000000033134 -FT2 033133 033134 0 0 0 0 000000033134 -FT2RQ 033133 033134 0 0 0 0 000000033134 -FT3 033133 033134 0 0 0 0 000000033134 -FT9 033134 033134 0 0 0 0 000000033134 -ET0 033134 033134 0 0 0 0 000000033134 -ST1A 033134 033134 0 0 0 0 000000033134 -ST9 033134 033134 0 0 0 0 000000033134 - - -*033134 SETO 0,000000 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033134 033134 0 0 474000000000 0 0 -IT1 033134 0 0 0 474000000000 0 0 -AT3 033134 0 0 0 0 0 474000000000 -AT6 033134 0 0 0 0 0 474000000000 -FT1A 033134 0 0 0 0 0 0 -FT9 033135 0 0 0 0 0 0 -ET0 033135 0 0 0 777777777777 0 0 -ST1 033135 0 0 0 777777777777 0 0 -ST2 033135 0 0 0 777777777777 0 0 -ST9 033135 0 0 0 777777777777 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 404 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0599 - -*033135 JFCL 17,033136 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033135 033135 0 0 255740033136 0 000000033136 -IT1 033135 0 0 0 255740033136 0 000000033136 -AT3 033135 0 0 0 000000033136 0 255740033136 -AT6 033135 033136 0 0 000000033136 0 255740033136 -FT1A 033135 033136 0 0 000000033136 0 000000033136 -FT9 033136 033136 0 0 000000033136 0 000000033136 -ET0 033136 033136 0 0 000000033136 0 000000033136 -ST1A 033136 033136 0 0 000000033136 0 000000033136 -ST9 033136 033136 0 0 000000033136 0 000000033136 - - -*033136 AOBJN 0,033137 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033136 033136 0 0 253000033137 0 000000033137 -IT1 033136 0 0 0 253000033137 0 000000033137 -AT3 033136 0 0 0 000000033137 0 253000033137 -AT6 033136 033137 0 0 000000033137 0 253000033137 -FT1A 033136 033137 0 0 000000033137 0 000000033137 -FT2 033136 033137 0 0 0 0 000000033137 -FT2RQ 033136 033137 0 0 777777777777 0 000000033137 -FT3 033136 033137 0 0 777777777777 0 000000033137 -FT9 033137 033137 0 0 777777777777 0 000000033137 -ET0 033137 033137 0 0 000001000000 0 000000033137 -ST1 033137 033137 0 0 000001000000 0 000000033137 -ST2 033137 033137 0 0 000001000000 0 000000033137 -ST9 033137 033137 0 0 000001000000 0 000000033137 - - -*033137 AOBJP 0,033140 -INITIAL -C(AC)=000001 000000 -FINAL -C(AC)=000002 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033137 033137 0 0 252000033140 0 000000033140 -IT1 033137 0 0 0 252000033140 0 000000033140 -AT3 033137 0 0 0 000000033140 0 252000033140 -AT6 033137 033140 0 0 000000033140 0 252000033140 -FT1A 033137 033140 0 0 000000033140 0 000000033140 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 405 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0600 - -FT2 033137 033140 0 0 0 0 000000033140 -FT2RQ 033137 033140 0 0 000001000000 0 000000033140 -FT3 033137 033140 0 0 000001000000 0 000000033140 -FT9 033140 033140 0 0 000001000000 0 000000033140 -ET0 033140 033140 0 0 000002000001 0 000000033140 -ST1 033140 033140 0 0 000002000001 0 000000033140 -ST2 033140 033140 0 0 000002000001 0 000000033140 -ST9 033140 033140 0 0 000002000001 0 000000033140 - - -*033140 JFCL 17,033142 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033140 033140 0 0 255740033142 0 000000033142 -IT1 033140 0 0 0 255740033142 0 000000033142 -AT3 033140 0 0 0 000000033142 0 255740033142 -AT6 033140 033142 0 0 000000033142 0 255740033142 -FT1A 033140 033142 0 0 000000033142 0 000000033142 -FT9 033141 033142 0 0 000000033142 0 000000033142 -ET0 033141 033142 0 0 000000033142 0 000000033142 -ST1A 033141 033142 0 0 000000033142 0 000000033142 -ST9 033141 033142 0 0 000000033142 0 000000033142 - - -*033141 SKIPA 0,000000 -INITIAL -C(AC)=000002 000001 -C(E)=000002 000001 -FINAL -C(AC)=000002 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033141 033141 0 0 334000000000 0 000002000001 -IT1 033141 0 0 0 334000000000 0 000002000001 -AT3 033141 0 0 0 0 0 334000000000 -AT6 033141 0 0 0 0 0 334000000000 -FT0 033141 0 0 0 000002000001 0 334000000000 -FT1A 033141 0 0 0 000002000001 0 000002000001 -FT9 033142 0 0 0 000002000001 0 000002000001 -ET0 033143 0 0 0 000002000001 0 000002000001 -ST1A 033143 0 0 0 000002000001 0 000002000001 -ST9 033143 0 0 0 000002000001 0 000002000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 406 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0601 - -*033143 JUMPA 0,033144 -INITIAL -C(AC)=000002 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033143 033143 0 0 324000033144 0 000000033144 -IT1 033143 0 0 0 324000033144 0 000000033144 -AT3 033143 0 0 0 000000033144 0 324000033144 -AT6 033143 033144 0 0 000000033144 0 324000033144 -FT1A 033143 033144 0 0 000000033144 0 000000033144 -FT2 033143 033144 0 0 0 0 000000033144 -FT2RQ 033143 033144 0 0 000002000001 0 000000033144 -FT3 033143 033144 0 0 000002000001 0 000000033144 -FT9 033144 033144 0 0 000002000001 0 000000033144 -ET0 033144 033144 0 0 000002000001 0 000000033144 -ST1A 033144 033144 0 0 000002000001 0 000000033144 -ST9 033144 033144 0 0 000002000001 0 000000033144 - - -*033144 JFCL 17,033145 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033144 033144 0 0 255740033145 0 000000033145 -IT1 033144 0 0 0 255740033145 0 000000033145 -AT3 033144 0 0 0 000000033145 0 255740033145 -AT6 033144 033145 0 0 000000033145 0 255740033145 -FT1A 033144 033145 0 0 000000033145 0 000000033145 -FT9 033145 033145 0 0 000000033145 0 000000033145 -ET0 033145 033145 0 0 000000033145 0 000000033145 -ST1A 033145 033145 0 0 000000033145 0 000000033145 -ST9 033145 033145 0 0 000000033145 0 000000033145 - - -*033145 SKIP 0,034466 -INITIAL -C(AC)=000002 000001 -C(E)=777777 777777 -FINAL -C(AC)=000002 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033145 033145 0 0 330000034466 0 777777777777 -IT1 033145 0 0 0 330000034466 0 777777777777 -AT3 033145 0 0 0 000000034466 0 330000034466 -AT6 033145 034466 0 0 000000034466 0 330000034466 -FT0 033145 034466 0 0 777777777777 0 330000034466 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 407 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0602 - -FT1A 033145 034466 0 0 777777777777 0 777777777777 -FT9 033146 034466 0 0 777777777777 0 777777777777 -ET0 033146 034466 0 0 777777777777 0 777777777777 -ST1A 033146 034466 0 0 777777777777 0 777777777777 -ST9 033146 034466 0 0 777777777777 0 777777777777 - - -*033146 JFCL 17,033150 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033146 033146 0 0 255740033150 0 000000033150 -IT1 033146 0 0 0 255740033150 0 000000033150 -AT3 033146 0 0 0 000000033150 0 255740033150 -AT6 033146 033150 0 0 000000033150 0 255740033150 -FT1A 033146 033150 0 0 000000033150 0 000000033150 -FT9 033147 033150 0 0 000000033150 0 000000033150 -ET0 033147 033150 0 0 000000033150 0 000000033150 -ST1A 033147 033150 0 0 000000033150 0 000000033150 -ST9 033147 033150 0 0 000000033150 0 000000033150 - - -*033147 SKIPA 0,000000 -INITIAL -C(AC)=000002 000001 -C(E)=000002 000001 -FINAL -C(AC)=000002 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033147 033147 0 0 334000000000 0 000002000001 -IT1 033147 0 0 0 334000000000 0 000002000001 -AT3 033147 0 0 0 0 0 334000000000 -AT6 033147 0 0 0 0 0 334000000000 -FT0 033147 0 0 0 000002000001 0 334000000000 -FT1A 033147 0 0 0 000002000001 0 000002000001 -FT9 033150 0 0 0 000002000001 0 000002000001 -ET0 033151 0 0 0 000002000001 0 000002000001 -ST1A 033151 0 0 0 000002000001 0 000002000001 -ST9 033151 0 0 0 000002000001 0 000002000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 408 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0603 - -*033151 JUMPA 0,033152 -INITIAL -C(AC)=000002 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033151 033151 0 0 324000033152 0 000000033152 -IT1 033151 0 0 0 324000033152 0 000000033152 -AT3 033151 0 0 0 000000033152 0 324000033152 -AT6 033151 033152 0 0 000000033152 0 324000033152 -FT1A 033151 033152 0 0 000000033152 0 000000033152 -FT2 033151 033152 0 0 0 0 000000033152 -FT2RQ 033151 033152 0 0 000002000001 0 000000033152 -FT3 033151 033152 0 0 000002000001 0 000000033152 -FT9 033152 033152 0 0 000002000001 0 000000033152 -ET0 033152 033152 0 0 000002000001 0 000000033152 -ST1A 033152 033152 0 0 000002000001 0 000000033152 -ST9 033152 033152 0 0 000002000001 0 000000033152 - - -*033152 JFCL 17,033153 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033152 033152 0 0 255740033153 0 000000033153 -IT1 033152 0 0 0 255740033153 0 000000033153 -AT3 033152 0 0 0 000000033153 0 255740033153 -AT6 033152 033153 0 0 000000033153 0 255740033153 -FT1A 033152 033153 0 0 000000033153 0 000000033153 -FT9 033153 033153 0 0 000000033153 0 000000033153 -ET0 033153 033153 0 0 000000033153 0 000000033153 -ST1A 033153 033153 0 0 000000033153 0 000000033153 -ST9 033153 033153 0 0 000000033153 0 000000033153 - - -*033153 JUMP 0,034466 -INITIAL -C(AC)=000002 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033153 033153 0 0 320000034466 0 000000034466 -IT1 033153 0 0 0 320000034466 0 000000034466 -AT3 033153 0 0 0 000000034466 0 320000034466 -AT6 033153 034466 0 0 000000034466 0 320000034466 -FT1A 033153 034466 0 0 000000034466 0 000000034466 -FT2 033153 034466 0 0 0 0 000000034466 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 409 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0604 - -FT2RQ 033153 034466 0 0 000002000001 0 000000034466 -FT3 033153 034466 0 0 000002000001 0 000000034466 -FT9 033154 034466 0 0 000002000001 0 000000034466 -ET0 033154 034466 0 0 000002000001 0 000000034466 -ST1A 033154 034466 0 0 000002000001 0 000000034466 -ST9 033154 034466 0 0 000002000001 0 000000034466 - - -*033154 JFCL 17,033156 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033154 033154 0 0 255740033156 0 000000033156 -IT1 033154 0 0 0 255740033156 0 000000033156 -AT3 033154 0 0 0 000000033156 0 255740033156 -AT6 033154 033156 0 0 000000033156 0 255740033156 -FT1A 033154 033156 0 0 000000033156 0 000000033156 -FT9 033155 033156 0 0 000000033156 0 000000033156 -ET0 033155 033156 0 0 000000033156 0 000000033156 -ST1A 033155 033156 0 0 000000033156 0 000000033156 -ST9 033155 033156 0 0 000000033156 0 000000033156 - - -*033155 SKIPA 0,000000 -INITIAL -C(AC)=000002 000001 -C(E)=000002 000001 -FINAL -C(AC)=000002 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033155 033155 0 0 334000000000 0 000002000001 -IT1 033155 0 0 0 334000000000 0 000002000001 -AT3 033155 0 0 0 0 0 334000000000 -AT6 033155 0 0 0 0 0 334000000000 -FT0 033155 0 0 0 000002000001 0 334000000000 -FT1A 033155 0 0 0 000002000001 0 000002000001 -FT9 033156 0 0 0 000002000001 0 000002000001 -ET0 033157 0 0 0 000002000001 0 000002000001 -ST1A 033157 0 0 0 000002000001 0 000002000001 -ST9 033157 0 0 0 000002000001 0 000002000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 410 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0605 - -*033157 JUMPA 0,033160 -INITIAL -C(AC)=000002 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033157 033157 0 0 324000033160 0 000000033160 -IT1 033157 0 0 0 324000033160 0 000000033160 -AT3 033157 0 0 0 000000033160 0 324000033160 -AT6 033157 033160 0 0 000000033160 0 324000033160 -FT1A 033157 033160 0 0 000000033160 0 000000033160 -FT2 033157 033160 0 0 0 0 000000033160 -FT2RQ 033157 033160 0 0 000002000001 0 000000033160 -FT3 033157 033160 0 0 000002000001 0 000000033160 -FT9 033160 033160 0 0 000002000001 0 000000033160 -ET0 033160 033160 0 0 000002000001 0 000000033160 -ST1A 033160 033160 0 0 000002000001 0 000000033160 -ST9 033160 033160 0 0 000002000001 0 000000033160 - - -*033160 JFCL 17,033161 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033160 033160 0 0 255740033161 0 000000033161 -IT1 033160 0 0 0 255740033161 0 000000033161 -AT3 033160 0 0 0 000000033161 0 255740033161 -AT6 033160 033161 0 0 000000033161 0 255740033161 -FT1A 033160 033161 0 0 000000033161 0 000000033161 -FT9 033161 033161 0 0 000000033161 0 000000033161 -ET0 033161 033161 0 0 000000033161 0 000000033161 -ST1A 033161 033161 0 0 000000033161 0 000000033161 -ST9 033161 033161 0 0 000000033161 0 000000033161 - - -*033161 JRST 0,033162 -INITIAL -C(AC)=000002 000001 -C(E)=255700 033164 -FINAL - -C(E)=255700 033164 - -TIME PC MA SC FE AR MQ BR -IT0 033161 033161 0 0 254000033162 0 254000033162 -IT1 033161 0 0 0 254000033162 0 254000033162 -AT3 033161 0 0 0 000000033162 0 254000033162 -AT6 033161 033162 0 0 000000033162 0 254000033162 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 411 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0606 - -FT1A 033161 033162 0 0 000000033162 0 254000033162 -FT9 033162 033162 0 0 000000033162 0 254000033162 -ET0 033162 033162 0 0 000000033162 0 254000033162 -ST1A 033162 033162 0 0 000000033162 0 254000033162 -ST9 033162 033162 0 0 000000033162 0 254000033162 - - -*033162 JFCL 16,033164 -INITIAL -C(AC)=000000 000016 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033162 033162 0 0 255700033164 0 000000033164 -IT1 033162 0 0 0 255700033164 0 000000033164 -AT3 033162 0 0 0 000000033164 0 255700033164 -AT6 033162 033164 0 0 000000033164 0 255700033164 -FT1A 033162 033164 0 0 000000033164 0 000000033164 -FT9 033163 033164 0 0 000000033164 0 000000033164 -ET0 033163 033164 0 0 000000033164 0 000000033164 -ST1A 033163 033164 0 0 000000033164 0 000000033164 -ST9 033163 033164 0 0 000000033164 0 000000033164 - - -*033163 SKIPA 0,000000 -INITIAL -C(AC)=000002 000001 -C(E)=000002 000001 -FINAL -C(AC)=000002 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033163 033163 0 0 334000000000 0 000002000001 -IT1 033163 0 0 0 334000000000 0 000002000001 -AT3 033163 0 0 0 0 0 334000000000 -AT6 033163 0 0 0 0 0 334000000000 -FT0 033163 0 0 0 000002000001 0 334000000000 -FT1A 033163 0 0 0 000002000001 0 000002000001 -FT9 033164 0 0 0 000002000001 0 000002000001 -ET0 033165 0 0 0 000002000001 0 000002000001 -ST1A 033165 0 0 0 000002000001 0 000002000001 -ST9 033165 0 0 0 000002000001 0 000002000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 412 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0607 - -*033165 JUMPA 0,033166 -INITIAL -C(AC)=000002 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033165 033165 0 0 324000033166 0 000000033166 -IT1 033165 0 0 0 324000033166 0 000000033166 -AT3 033165 0 0 0 000000033166 0 324000033166 -AT6 033165 033166 0 0 000000033166 0 324000033166 -FT1A 033165 033166 0 0 000000033166 0 000000033166 -FT2 033165 033166 0 0 0 0 000000033166 -FT2RQ 033165 033166 0 0 000002000001 0 000000033166 -FT3 033165 033166 0 0 000002000001 0 000000033166 -FT9 033166 033166 0 0 000002000001 0 000000033166 -ET0 033166 033166 0 0 000002000001 0 000000033166 -ST1A 033166 033166 0 0 000002000001 0 000000033166 -ST9 033166 033166 0 0 000002000001 0 000000033166 - - -*033166 JFCL 17,033167 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033166 033166 0 0 255740033167 0 000000033167 -IT1 033166 0 0 0 255740033167 0 000000033167 -AT3 033166 0 0 0 000000033167 0 255740033167 -AT6 033166 033167 0 0 000000033167 0 255740033167 -FT1A 033166 033167 0 0 000000033167 0 000000033167 -FT9 033167 033167 0 0 000000033167 0 000000033167 -ET0 033167 033167 0 0 000000033167 0 000000033167 -ST1A 033167 033167 0 0 000000033167 0 000000033167 -ST9 033167 033167 0 0 000000033167 0 000000033167 - - -*033167 MOVE 2,000002 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 033167 033167 0 0 200100000002 0 000000000002 -IT1 033167 0 0 0 200100000002 0 000000000002 -AT3 033167 0 0 0 000000000002 0 200100000002 -AT6 033167 000002 0 0 000000000002 0 200100000002 -FT0 033167 000002 0 0 000000000002 0 200100000002 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 413 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0608 - -FT1A 033167 000002 0 0 000000000002 0 000000000002 -FT9 033170 000002 0 0 000000000002 0 000000000002 -ET0 033170 000002 0 0 000000000002 0 000000000002 -ST1 033170 000002 0 0 000000000002 0 000000000002 -ST2 033170 000002 0 0 000000000002 0 000000000002 -ST9 033170 000002 0 0 000000000002 0 000000000002 - - -*033170 JFCL 17,033172 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033170 033170 0 0 255740033172 0 000000033172 -IT1 033170 0 0 0 255740033172 0 000000033172 -AT3 033170 0 0 0 000000033172 0 255740033172 -AT6 033170 033172 0 0 000000033172 0 255740033172 -FT1A 033170 033172 0 0 000000033172 0 000000033172 -FT9 033171 033172 0 0 000000033172 0 000000033172 -ET0 033171 033172 0 0 000000033172 0 000000033172 -ST1A 033171 033172 0 0 000000033172 0 000000033172 -ST9 033171 033172 0 0 000000033172 0 000000033172 - - -*033171 SKIPA 0,000000 -INITIAL -C(AC)=000002 000001 -C(E)=000002 000001 -FINAL -C(AC)=000002 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033171 033171 0 0 334000000000 0 000002000001 -IT1 033171 0 0 0 334000000000 0 000002000001 -AT3 033171 0 0 0 0 0 334000000000 -AT6 033171 0 0 0 0 0 334000000000 -FT0 033171 0 0 0 000002000001 0 334000000000 -FT1A 033171 0 0 0 000002000001 0 000002000001 -FT9 033172 0 0 0 000002000001 0 000002000001 -ET0 033173 0 0 0 000002000001 0 000002000001 -ST1A 033173 0 0 0 000002000001 0 000002000001 -ST9 033173 0 0 0 000002000001 0 000002000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 414 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0609 - -*033173 JUMPA 0,033174 -INITIAL -C(AC)=000002 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033173 033173 0 0 324000033174 0 000000033174 -IT1 033173 0 0 0 324000033174 0 000000033174 -AT3 033173 0 0 0 000000033174 0 324000033174 -AT6 033173 033174 0 0 000000033174 0 324000033174 -FT1A 033173 033174 0 0 000000033174 0 000000033174 -FT2 033173 033174 0 0 0 0 000000033174 -FT2RQ 033173 033174 0 0 000002000001 0 000000033174 -FT3 033173 033174 0 0 000002000001 0 000000033174 -FT9 033174 033174 0 0 000002000001 0 000000033174 -ET0 033174 033174 0 0 000002000001 0 000000033174 -ST1A 033174 033174 0 0 000002000001 0 000000033174 -ST9 033174 033174 0 0 000002000001 0 000000033174 - - -*033174 JFCL 17,033175 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033174 033174 0 0 255740033175 0 000000033175 -IT1 033174 0 0 0 255740033175 0 000000033175 -AT3 033174 0 0 0 000000033175 0 255740033175 -AT6 033174 033175 0 0 000000033175 0 255740033175 -FT1A 033174 033175 0 0 000000033175 0 000000033175 -FT9 033175 033175 0 0 000000033175 0 000000033175 -ET0 033175 033175 0 0 000000033175 0 000000033175 -ST1A 033175 033175 0 0 000000033175 0 000000033175 -ST9 033175 033175 0 0 000000033175 0 000000033175 - - -*033175 MOVSI 1,200000 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033175 033175 0 0 205040200000 0 000000200000 -IT1 033175 0 0 0 205040200000 0 000000200000 -AT3 033175 0 0 0 000000200000 0 205040200000 -AT6 033175 0 0 0 000000200000 0 205040200000 -FT1A 033175 0 0 0 000000200000 0 000000200000 -FT9 033176 0 0 0 000000200000 0 000000200000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 415 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0610 - -ET0 033176 0 0 0 200000000000 0 000000200000 -ST1 033176 0 0 0 200000000000 0 000000200000 -ST2 033176 0 0 0 200000000000 0 000000200000 -ST9 033176 0 0 0 200000000000 0 000000200000 - - -*033176 JFCL 17,033177 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033176 033176 0 0 255740033177 0 000000033177 -IT1 033176 0 0 0 255740033177 0 000000033177 -AT3 033176 0 0 0 000000033177 0 255740033177 -AT6 033176 033177 0 0 000000033177 0 255740033177 -FT1A 033176 033177 0 0 000000033177 0 000000033177 -FT9 033177 033177 0 0 000000033177 0 000000033177 -ET0 033177 033177 0 0 000000033177 0 000000033177 -ST1A 033177 033177 0 0 000000033177 0 000000033177 -ST9 033177 033177 0 0 000000033177 0 000000033177 - - -*033177 JRST 2,033200(1) -INITIAL -C(AC)=000000 000002 -C(E)=255200 033202 -FINAL - -C(E)=255200 033202 - -TIME PC MA SC FE AR MQ BR -IT0 033177 033177 0 0 254101033200 0 200000033200 -IT1 033177 0 0 0 254101033200 0 200000033200 -AT1 033177 0 0 0 0 0 254101033200 -AT2 033177 0 0 0 200000000000 0 254101033200 -AT3 033177 0 0 0 000000033200 0 200000033200 -AT6 033177 0 0 0 000000033200 0 200000033200 -FT1A 033177 0 0 0 000000033200 0 200000033200 -FT9 0 0 0 0 000000033200 0 200000033200 -ET0 0 0 0 0 000000033200 0 200000033200 -ST1A 0 0 0 0 000000033200 0 200000033200 -ST9 0 0 0 0 000000033200 0 200000033200 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 416 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0611 - -*033200 JFCL 4,033202 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 255200033202 0 000000033202 -IT1 0 0 0 0 255200033202 0 000000033202 -AT3 0 0 0 0 000000033202 0 255200033202 -AT6 0 033202 0 0 000000033202 0 255200033202 -FT1A 0 033202 0 0 000000033202 0 000000033202 -FT9 033201 033202 0 0 000000033202 0 000000033202 -ET0 033202 033202 0 0 000000033202 0 000000033202 -ST1A 033202 033202 0 0 000000033202 0 000000033202 -ST9 033202 033202 0 0 000000033202 0 000000033202 - - -*033202 JUMPA 0,033203 -INITIAL -C(AC)=000002 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033202 033202 0 0 324000033203 0 000000033203 -IT1 033202 0 0 0 324000033203 0 000000033203 -AT3 033202 0 0 0 000000033203 0 324000033203 -AT6 033202 033203 0 0 000000033203 0 324000033203 -FT1A 033202 033203 0 0 000000033203 0 000000033203 -FT2 033202 033203 0 0 0 0 000000033203 -FT2RQ 033202 033203 0 0 000002000001 0 000000033203 -FT3 033202 033203 0 0 000002000001 0 000000033203 -FT9 033203 033203 0 0 000002000001 0 000000033203 -ET0 033203 033203 0 0 000002000001 0 000000033203 -ST1A 033203 033203 0 0 000002000001 0 000000033203 -ST9 033203 033203 0 0 000002000001 0 000000033203 - - -*033203 MOVE 0,034466 -INITIAL -C(AC)=000002 000001 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033203 033203 0 0 200000034466 0 777777777777 -IT1 033203 0 0 0 200000034466 0 777777777777 -AT3 033203 0 0 0 000000034466 0 200000034466 -AT6 033203 034466 0 0 000000034466 0 200000034466 -FT0 033203 034466 0 0 777777777777 0 200000034466 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 417 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0612 - -FT1A 033203 034466 0 0 777777777777 0 777777777777 -FT9 033204 034466 0 0 777777777777 0 777777777777 -ET0 033204 034466 0 0 777777777777 0 777777777777 -ST1 033204 034466 0 0 777777777777 0 777777777777 -ST2 033204 034466 0 0 777777777777 0 777777777777 -ST9 033204 034466 0 0 777777777777 0 777777777777 - - -*033204 ADDI 0,000001 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033204 033204 0 0 271000000001 0 000000000001 -IT1 033204 0 0 0 271000000001 0 000000000001 -AT3 033204 0 0 0 000000000001 0 271000000001 -AT6 033204 000001 0 0 000000000001 0 271000000001 -FT1A 033204 000001 0 0 000000000001 0 000000000001 -FT2 033204 000001 0 0 0 0 000000000001 -FT2RQ 033204 000001 0 0 777777777777 0 000000000001 -FT3 033204 000001 0 0 777777777777 0 000000000001 -FT9 033205 000001 0 0 777777777777 0 000000000001 -ET0 033205 000001 0 0 0 0 000000000001 -ST1 033205 000001 0 0 0 0 000000000001 -ST2 033205 000001 0 0 0 0 000000000001 -ST9 033205 000001 0 0 0 0 000000000001 - - -*033205 MOVSI 1,000000 -INITIAL -C(AC)=200000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033205 033205 0 0 205040000000 0 0 -IT1 033205 0 0 0 205040000000 0 0 -AT3 033205 0 0 0 0 0 205040000000 -AT6 033205 0 0 0 0 0 205040000000 -FT1A 033205 0 0 0 0 0 0 -FT9 033206 0 0 0 0 0 0 -ET0 033206 0 0 0 0 0 0 -ST1 033206 0 0 0 0 0 0 -ST2 033206 0 0 0 0 0 0 -ST9 033206 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 418 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0613 - -*033206 JFCL 17,033207 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033206 033206 0 0 255740033207 0 000000033207 -IT1 033206 0 0 0 255740033207 0 000000033207 -AT3 033206 0 0 0 000000033207 0 255740033207 -AT6 033206 033207 0 0 000000033207 0 255740033207 -FT1A 033206 033207 0 0 000000033207 0 000000033207 -FT9 033207 033207 0 0 000000033207 0 000000033207 -ET0 033207 033207 0 0 000000033207 0 000000033207 -ST1A 033207 033207 0 0 000000033207 0 000000033207 -ST9 033207 033207 0 0 000000033207 0 000000033207 - - -*033207 JRST 2,033210(1) -INITIAL -C(AC)=000000 000002 -C(E)=255100 033212 -FINAL - -C(E)=255100 033212 - -TIME PC MA SC FE AR MQ BR -IT0 033207 033207 0 0 254101033210 0 000000033210 -IT1 033207 0 0 0 254101033210 0 000000033210 -AT1 033207 0 0 0 0 0 254101033210 -AT2 033207 0 0 0 0 0 254101033210 -AT3 033207 0 0 0 000000033210 0 000000033210 -AT6 033207 033210 0 0 000000033210 0 000000033210 -FT1A 033207 033210 0 0 000000033210 0 000000033210 -FT9 033210 033210 0 0 000000033210 0 000000033210 -ET0 033210 033210 0 0 000000033210 0 000000033210 -ST1A 033210 033210 0 0 000000033210 0 000000033210 -ST9 033210 033210 0 0 000000033210 0 000000033210 - - -*033210 JFCL 2,033212 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033210 033210 0 0 255100033212 0 000000033212 -IT1 033210 0 0 0 255100033212 0 000000033212 -AT3 033210 0 0 0 000000033212 0 255100033212 -AT6 033210 033212 0 0 000000033212 0 255100033212 -FT1A 033210 033212 0 0 000000033212 0 000000033212 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 419 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0614 - -FT9 033211 033212 0 0 000000033212 0 000000033212 -ET0 033211 033212 0 0 000000033212 0 000000033212 -ST1A 033211 033212 0 0 000000033212 0 000000033212 -ST9 033211 033212 0 0 000000033212 0 000000033212 - - -*033211 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 033211 033211 0 0 334000000000 0 0 -IT1 033211 0 0 0 334000000000 0 0 -AT3 033211 0 0 0 0 0 334000000000 -AT6 033211 0 0 0 0 0 334000000000 -FT0 033211 0 0 0 0 0 334000000000 -FT1A 033211 0 0 0 0 0 0 -FT9 033212 0 0 0 0 0 0 -ET0 033213 0 0 0 0 0 0 -ST1A 033213 0 0 0 0 0 0 -ST9 033213 0 0 0 0 0 0 - - -*033213 JUMPA 0,033214 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033213 033213 0 0 324000033214 0 000000033214 -IT1 033213 0 0 0 324000033214 0 000000033214 -AT3 033213 0 0 0 000000033214 0 324000033214 -AT6 033213 033214 0 0 000000033214 0 324000033214 -FT1A 033213 033214 0 0 000000033214 0 000000033214 -FT2 033213 033214 0 0 0 0 000000033214 -FT2RQ 033213 033214 0 0 0 0 000000033214 -FT3 033213 033214 0 0 0 0 000000033214 -FT9 033214 033214 0 0 0 0 000000033214 -ET0 033214 033214 0 0 0 0 000000033214 -ST1A 033214 033214 0 0 0 0 000000033214 -ST9 033214 033214 0 0 0 0 000000033214 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 420 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0615 - -*033214 MOVSI 0,400000 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033214 033214 0 0 205000400000 0 000000400000 -IT1 033214 0 0 0 205000400000 0 000000400000 -AT3 033214 0 0 0 000000400000 0 205000400000 -AT6 033214 0 0 0 000000400000 0 205000400000 -FT1A 033214 0 0 0 000000400000 0 000000400000 -FT9 033215 0 0 0 000000400000 0 000000400000 -ET0 033215 0 0 0 400000000000 0 000000400000 -ST1 033215 0 0 0 400000000000 0 000000400000 -ST2 033215 0 0 0 400000000000 0 000000400000 -ST9 033215 0 0 0 400000000000 0 000000400000 - - -*033215 ADD 0,034466 -INITIAL -C(AC)=400000 000000 -C(E)=777777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033215 033215 0 0 270000034466 0 777777777777 -IT1 033215 0 0 0 270000034466 0 777777777777 -AT3 033215 0 0 0 000000034466 0 270000034466 -AT6 033215 034466 0 0 000000034466 0 270000034466 -FT0 033215 034466 0 0 777777777777 0 270000034466 -FT1A 033215 034466 0 0 777777777777 0 777777777777 -FT2 033215 034466 0 0 0 0 777777777777 -FT2RQ 033215 034466 0 0 400000000000 0 777777777777 -FT3 033215 034466 0 0 400000000000 0 777777777777 -FT9 033216 034466 0 0 400000000000 0 777777777777 -ET0 033216 034466 0 0 377777777777 0 777777777777 -ST1 033216 034466 0 0 377777777777 0 777777777777 -ST2 033216 034466 0 0 377777777777 0 777777777777 -ST9 033216 034466 0 0 377777777777 0 777777777777 - - -*033216 MOVSI 1,000000 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033216 033216 0 0 205040000000 0 0 -IT1 033216 0 0 0 205040000000 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 421 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0616 - -AT3 033216 0 0 0 0 0 205040000000 -AT6 033216 0 0 0 0 0 205040000000 -FT1A 033216 0 0 0 0 0 0 -FT9 033217 0 0 0 0 0 0 -ET0 033217 0 0 0 0 0 0 -ST1 033217 0 0 0 0 0 0 -ST2 033217 0 0 0 0 0 0 -ST9 033217 0 0 0 0 0 0 - - -*033217 JFCL 17,033220 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033217 033217 0 0 255740033220 0 000000033220 -IT1 033217 0 0 0 255740033220 0 000000033220 -AT3 033217 0 0 0 000000033220 0 255740033220 -AT6 033217 033220 0 0 000000033220 0 255740033220 -FT1A 033217 033220 0 0 000000033220 0 000000033220 -FT9 033220 033220 0 0 000000033220 0 000000033220 -ET0 033220 033220 0 0 000000033220 0 000000033220 -ST1A 033220 033220 0 0 000000033220 0 000000033220 -ST9 033220 033220 0 0 000000033220 0 000000033220 - - -*033220 JRST 2,033221(1) -INITIAL -C(AC)=000000 000002 -C(E)=255400 033223 -FINAL - -C(E)=255400 033223 - -TIME PC MA SC FE AR MQ BR -IT0 033220 033220 0 0 254101033221 0 000000033221 -IT1 033220 0 0 0 254101033221 0 000000033221 -AT1 033220 0 0 0 0 0 254101033221 -AT2 033220 0 0 0 0 0 254101033221 -AT3 033220 0 0 0 000000033221 0 000000033221 -AT6 033220 033221 0 0 000000033221 0 000000033221 -FT1A 033220 033221 0 0 000000033221 0 000000033221 -FT9 033221 033221 0 0 000000033221 0 000000033221 -ET0 033221 033221 0 0 000000033221 0 000000033221 -ST1A 033221 033221 0 0 000000033221 0 000000033221 -ST9 033221 033221 0 0 000000033221 0 000000033221 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 422 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0617 - -*033221 JFCL 10,033223 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033221 033221 0 0 255400033223 0 000000033223 -IT1 033221 0 0 0 255400033223 0 000000033223 -AT3 033221 0 0 0 000000033223 0 255400033223 -AT6 033221 033223 0 0 000000033223 0 255400033223 -FT1A 033221 033223 0 0 000000033223 0 000000033223 -FT9 033222 033223 0 0 000000033223 0 000000033223 -ET0 033222 033223 0 0 000000033223 0 000000033223 -ST1A 033222 033223 0 0 000000033223 0 000000033223 -ST9 033222 033223 0 0 000000033223 0 000000033223 - - -*033222 SKIPA 0,000000 -INITIAL -C(AC)=377777 777777 -C(E)=377777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033222 033222 0 0 334000000000 0 377777777777 -IT1 033222 0 0 0 334000000000 0 377777777777 -AT3 033222 0 0 0 0 0 334000000000 -AT6 033222 0 0 0 0 0 334000000000 -FT0 033222 0 0 0 377777777777 0 334000000000 -FT1A 033222 0 0 0 377777777777 0 377777777777 -FT9 033223 0 0 0 377777777777 0 377777777777 -ET0 033224 0 0 0 377777777777 0 377777777777 -ST1A 033224 0 0 0 377777777777 0 377777777777 -ST9 033224 0 0 0 377777777777 0 377777777777 - - -*033224 JUMPA 0,033225 -INITIAL -C(AC)=377777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033224 033224 0 0 324000033225 0 000000033225 -IT1 033224 0 0 0 324000033225 0 000000033225 -AT3 033224 0 0 0 000000033225 0 324000033225 -AT6 033224 033225 0 0 000000033225 0 324000033225 -FT1A 033224 033225 0 0 000000033225 0 000000033225 -FT2 033224 033225 0 0 0 0 000000033225 -FT2RQ 033224 033225 0 0 377777777777 0 000000033225 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 423 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0618 - -FT3 033224 033225 0 0 377777777777 0 000000033225 -FT9 033225 033225 0 0 377777777777 0 000000033225 -ET0 033225 033225 0 0 377777777777 0 000000033225 -ST1A 033225 033225 0 0 377777777777 0 000000033225 -ST9 033225 033225 0 0 377777777777 0 000000033225 - - -*033225 MOVSI 1,400000 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033225 033225 0 0 205040400000 0 000000400000 -IT1 033225 0 0 0 205040400000 0 000000400000 -AT3 033225 0 0 0 000000400000 0 205040400000 -AT6 033225 0 0 0 000000400000 0 205040400000 -FT1A 033225 0 0 0 000000400000 0 000000400000 -FT9 033226 0 0 0 000000400000 0 000000400000 -ET0 033226 0 0 0 400000000000 0 000000400000 -ST1 033226 0 0 0 400000000000 0 000000400000 -ST2 033226 0 0 0 400000000000 0 000000400000 -ST9 033226 0 0 0 400000000000 0 000000400000 - - -*033226 JFCL 17,033227 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033226 033226 0 0 255740033227 0 000000033227 -IT1 033226 0 0 0 255740033227 0 000000033227 -AT3 033226 0 0 0 000000033227 0 255740033227 -AT6 033226 033227 0 0 000000033227 0 255740033227 -FT1A 033226 033227 0 0 000000033227 0 000000033227 -FT9 033227 033227 0 0 000000033227 0 000000033227 -ET0 033227 033227 0 0 000000033227 0 000000033227 -ST1A 033227 033227 0 0 000000033227 0 000000033227 -ST9 033227 033227 0 0 000000033227 0 000000033227 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 424 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0619 - -*033227 JRST 2,033230(1) -INITIAL -C(AC)=000000 000002 -C(E)=255400 033232 -FINAL - -C(E)=255400 033232 - -TIME PC MA SC FE AR MQ BR -IT0 033227 033227 0 0 254101033230 0 400000033230 -IT1 033227 0 0 0 254101033230 0 400000033230 -AT1 033227 0 0 0 0 0 254101033230 -AT2 033227 0 0 0 400000000000 0 254101033230 -AT3 033227 0 0 0 000000033230 0 400000033230 -AT6 033227 033230 0 0 000000033230 0 400000033230 -FT1A 033227 033230 0 0 000000033230 0 400000033230 -FT9 033230 033230 0 0 000000033230 0 400000033230 -ET0 033230 033230 0 0 000000033230 0 400000033230 -ST1A 033230 033230 0 0 000000033230 0 400000033230 -ST9 033230 033230 0 0 000000033230 0 400000033230 - - -*033230 JFCL 10,033232 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033230 033230 0 0 255400033232 0 000000033232 -IT1 033230 0 0 0 255400033232 0 000000033232 -AT3 033230 0 0 0 000000033232 0 255400033232 -AT6 033230 033232 0 0 000000033232 0 255400033232 -FT1A 033230 033232 0 0 000000033232 0 000000033232 -FT9 033231 033232 0 0 000000033232 0 000000033232 -ET0 033232 033232 0 0 000000033232 0 000000033232 -ST1A 033232 033232 0 0 000000033232 0 000000033232 -ST9 033232 033232 0 0 000000033232 0 000000033232 - - -*033232 JUMPA 0,033233 -INITIAL -C(AC)=377777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033232 033232 0 0 324000033233 0 000000033233 -IT1 033232 0 0 0 324000033233 0 000000033233 -AT3 033232 0 0 0 000000033233 0 324000033233 -AT6 033232 033233 0 0 000000033233 0 324000033233 -FT1A 033232 033233 0 0 000000033233 0 000000033233 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 425 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0620 - -FT2 033232 033233 0 0 0 0 000000033233 -FT2RQ 033232 033233 0 0 377777777777 0 000000033233 -FT3 033232 033233 0 0 377777777777 0 000000033233 -FT9 033233 033233 0 0 377777777777 0 000000033233 -ET0 033233 033233 0 0 377777777777 0 000000033233 -ST1A 033233 033233 0 0 377777777777 0 000000033233 -ST9 033233 033233 0 0 377777777777 0 000000033233 - - -*033233 MOVSI 1,100000 -INITIAL -C(AC)=400000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033233 033233 0 0 205040100000 0 000000100000 -IT1 033233 0 0 0 205040100000 0 000000100000 -AT3 033233 0 0 0 000000100000 0 205040100000 -AT6 033233 0 0 0 000000100000 0 205040100000 -FT1A 033233 0 0 0 000000100000 0 000000100000 -FT9 033234 0 0 0 000000100000 0 000000100000 -ET0 033234 0 0 0 100000000000 0 000000100000 -ST1 033234 0 0 0 100000000000 0 000000100000 -ST2 033234 0 0 0 100000000000 0 000000100000 -ST9 033234 0 0 0 100000000000 0 000000100000 - - -*033234 JFCL 17,033235 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033234 033234 0 0 255740033235 0 000000033235 -IT1 033234 0 0 0 255740033235 0 000000033235 -AT3 033234 0 0 0 000000033235 0 255740033235 -AT6 033234 033235 0 0 000000033235 0 255740033235 -FT1A 033234 033235 0 0 000000033235 0 000000033235 -FT9 033235 033235 0 0 000000033235 0 000000033235 -ET0 033235 033235 0 0 000000033235 0 000000033235 -ST1A 033235 033235 0 0 000000033235 0 000000033235 -ST9 033235 033235 0 0 000000033235 0 000000033235 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 426 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0621 - -*033235 JRST 2,033236(1) -INITIAL -C(AC)=000000 000002 -C(E)=255100 033240 -FINAL - -C(E)=255100 033240 - -TIME PC MA SC FE AR MQ BR -IT0 033235 033235 0 0 254101033236 0 100000033236 -IT1 033235 0 0 0 254101033236 0 100000033236 -AT1 033235 0 0 0 0 0 254101033236 -AT2 033235 0 0 0 100000000000 0 254101033236 -AT3 033235 0 0 0 000000033236 0 100000033236 -AT6 033235 033236 0 0 000000033236 0 100000033236 -FT1A 033235 033236 0 0 000000033236 0 100000033236 -FT9 033236 033236 0 0 000000033236 0 100000033236 -ET0 033236 033236 0 0 000000033236 0 100000033236 -ST1A 033236 033236 0 0 000000033236 0 100000033236 -ST9 033236 033236 0 0 000000033236 0 100000033236 - - -*033236 JFCL 2,033240 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033236 033236 0 0 255100033240 0 000000033240 -IT1 033236 0 0 0 255100033240 0 000000033240 -AT3 033236 0 0 0 000000033240 0 255100033240 -AT6 033236 033240 0 0 000000033240 0 255100033240 -FT1A 033236 033240 0 0 000000033240 0 000000033240 -FT9 033237 033240 0 0 000000033240 0 000000033240 -ET0 033240 033240 0 0 000000033240 0 000000033240 -ST1A 033240 033240 0 0 000000033240 0 000000033240 -ST9 033240 033240 0 0 000000033240 0 000000033240 - - -*033240 JUMPA 0,033241 -INITIAL -C(AC)=377777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033240 033240 0 0 324000033241 0 000000033241 -IT1 033240 0 0 0 324000033241 0 000000033241 -AT3 033240 0 0 0 000000033241 0 324000033241 -AT6 033240 033241 0 0 000000033241 0 324000033241 -FT1A 033240 033241 0 0 000000033241 0 000000033241 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 427 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0622 - -FT2 033240 033241 0 0 0 0 000000033241 -FT2RQ 033240 033241 0 0 377777777777 0 000000033241 -FT3 033240 033241 0 0 377777777777 0 000000033241 -FT9 033241 033241 0 0 377777777777 0 000000033241 -ET0 033241 033241 0 0 377777777777 0 000000033241 -ST1A 033241 033241 0 0 377777777777 0 000000033241 -ST9 033241 033241 0 0 377777777777 0 000000033241 - - -*033241 MOVSI 1,040000 -INITIAL -C(AC)=100000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033241 033241 0 0 205040040000 0 000000040000 -IT1 033241 0 0 0 205040040000 0 000000040000 -AT3 033241 0 0 0 000000040000 0 205040040000 -AT6 033241 0 0 0 000000040000 0 205040040000 -FT1A 033241 0 0 0 000000040000 0 000000040000 -FT9 033242 0 0 0 000000040000 0 000000040000 -ET0 033242 0 0 0 040000000000 0 000000040000 -ST1 033242 0 0 0 040000000000 0 000000040000 -ST2 033242 0 0 0 040000000000 0 000000040000 -ST9 033242 0 0 0 040000000000 0 000000040000 - - -*033242 JFCL 17,033243 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033242 033242 0 0 255740033243 0 000000033243 -IT1 033242 0 0 0 255740033243 0 000000033243 -AT3 033242 0 0 0 000000033243 0 255740033243 -AT6 033242 033243 0 0 000000033243 0 255740033243 -FT1A 033242 033243 0 0 000000033243 0 000000033243 -FT9 033243 033243 0 0 000000033243 0 000000033243 -ET0 033243 033243 0 0 000000033243 0 000000033243 -ST1A 033243 033243 0 0 000000033243 0 000000033243 -ST9 033243 033243 0 0 000000033243 0 000000033243 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 428 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0623 - -*033243 JRST 2,033244(1) -INITIAL -C(AC)=000000 000002 -C(E)=255040 033246 -FINAL - -C(E)=255040 033246 - -TIME PC MA SC FE AR MQ BR -IT0 033243 033243 0 0 254101033244 0 040000033244 -IT1 033243 0 0 0 254101033244 0 040000033244 -AT1 033243 0 0 0 0 0 254101033244 -AT2 033243 0 0 0 040000000000 0 254101033244 -AT3 033243 0 0 0 000000033244 0 040000033244 -AT6 033243 033244 0 0 000000033244 0 040000033244 -FT1A 033243 033244 0 0 000000033244 0 040000033244 -FT9 033244 033244 0 0 000000033244 0 040000033244 -ET0 033244 033244 0 0 000000033244 0 040000033244 -ST1A 033244 033244 0 0 000000033244 0 040000033244 -ST9 033244 033244 0 0 000000033244 0 040000033244 - - -*033244 JFCL 1,033246 -INITIAL -C(AC)=040000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033244 033244 0 0 255040033246 0 000000033246 -IT1 033244 0 0 0 255040033246 0 000000033246 -AT3 033244 0 0 0 000000033246 0 255040033246 -AT6 033244 033246 0 0 000000033246 0 255040033246 -FT1A 033244 033246 0 0 000000033246 0 000000033246 -FT9 033245 033246 0 0 000000033246 0 000000033246 -ET0 033246 033246 0 0 000000033246 0 000000033246 -ST1A 033246 033246 0 0 000000033246 0 000000033246 -ST9 033246 033246 0 0 000000033246 0 000000033246 - - -*033246 JUMPA 0,033247 -INITIAL -C(AC)=377777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033246 033246 0 0 324000033247 0 000000033247 -IT1 033246 0 0 0 324000033247 0 000000033247 -AT3 033246 0 0 0 000000033247 0 324000033247 -AT6 033246 033247 0 0 000000033247 0 324000033247 -FT1A 033246 033247 0 0 000000033247 0 000000033247 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 429 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0624 - -FT2 033246 033247 0 0 0 0 000000033247 -FT2RQ 033246 033247 0 0 377777777777 0 000000033247 -FT3 033246 033247 0 0 377777777777 0 000000033247 -FT9 033247 033247 0 0 377777777777 0 000000033247 -ET0 033247 033247 0 0 377777777777 0 000000033247 -ST1A 033247 033247 0 0 377777777777 0 000000033247 -ST9 033247 033247 0 0 377777777777 0 000000033247 - - -*033247 MOVSI 1,040000 -INITIAL -C(AC)=040000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033247 033247 0 0 205040040000 0 000000040000 -IT1 033247 0 0 0 205040040000 0 000000040000 -AT3 033247 0 0 0 000000040000 0 205040040000 -AT6 033247 0 0 0 000000040000 0 205040040000 -FT1A 033247 0 0 0 000000040000 0 000000040000 -FT9 033250 0 0 0 000000040000 0 000000040000 -ET0 033250 0 0 0 040000000000 0 000000040000 -ST1 033250 0 0 0 040000000000 0 000000040000 -ST2 033250 0 0 0 040000000000 0 000000040000 -ST9 033250 0 0 0 040000000000 0 000000040000 - - -*033250 JFCL 17,033251 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033250 033250 0 0 255740033251 0 000000033251 -IT1 033250 0 0 0 255740033251 0 000000033251 -AT3 033250 0 0 0 000000033251 0 255740033251 -AT6 033250 033251 0 0 000000033251 0 255740033251 -FT1A 033250 033251 0 0 000000033251 0 000000033251 -FT9 033251 033251 0 0 000000033251 0 000000033251 -ET0 033251 033251 0 0 000000033251 0 000000033251 -ST1A 033251 033251 0 0 000000033251 0 000000033251 -ST9 033251 033251 0 0 000000033251 0 000000033251 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 430 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0625 - -*033251 JRST 2,033252(1) -INITIAL -C(AC)=000000 000002 -C(E)=255000 033254 -FINAL - -C(E)=255000 033254 - -TIME PC MA SC FE AR MQ BR -IT0 033251 033251 0 0 254101033252 0 040000033252 -IT1 033251 0 0 0 254101033252 0 040000033252 -AT1 033251 0 0 0 0 0 254101033252 -AT2 033251 0 0 0 040000000000 0 254101033252 -AT3 033251 0 0 0 000000033252 0 040000033252 -AT6 033251 033252 0 0 000000033252 0 040000033252 -FT1A 033251 033252 0 0 000000033252 0 040000033252 -FT9 033252 033252 0 0 000000033252 0 040000033252 -ET0 033252 033252 0 0 000000033252 0 040000033252 -ST1A 033252 033252 0 0 000000033252 0 040000033252 -ST9 033252 033252 0 0 000000033252 0 040000033252 - - -*033252 JFCL 0,033254 -INITIAL -C(AC)=377777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033252 033252 0 0 255000033254 0 000000033254 -IT1 033252 0 0 0 255000033254 0 000000033254 -AT3 033252 0 0 0 000000033254 0 255000033254 -AT6 033252 033254 0 0 000000033254 0 255000033254 -FT1A 033252 033254 0 0 000000033254 0 000000033254 -FT9 033253 033254 0 0 000000033254 0 000000033254 -ET0 033253 033254 0 0 000000033254 0 000000033254 -ST1A 033253 033254 0 0 000000033254 0 000000033254 -ST9 033253 033254 0 0 000000033254 0 000000033254 - - -*033253 SKIPA 0,000000 -INITIAL -C(AC)=377777 777777 -C(E)=377777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033253 033253 0 0 334000000000 0 377777777777 -IT1 033253 0 0 0 334000000000 0 377777777777 -AT3 033253 0 0 0 0 0 334000000000 -AT6 033253 0 0 0 0 0 334000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 431 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0626 - -FT0 033253 0 0 0 377777777777 0 334000000000 -FT1A 033253 0 0 0 377777777777 0 377777777777 -FT9 033254 0 0 0 377777777777 0 377777777777 -ET0 033255 0 0 0 377777777777 0 377777777777 -ST1A 033255 0 0 0 377777777777 0 377777777777 -ST9 033255 0 0 0 377777777777 0 377777777777 - - -*033255 JUMPA 0,033256 -INITIAL -C(AC)=377777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033255 033255 0 0 324000033256 0 000000033256 -IT1 033255 0 0 0 324000033256 0 000000033256 -AT3 033255 0 0 0 000000033256 0 324000033256 -AT6 033255 033256 0 0 000000033256 0 324000033256 -FT1A 033255 033256 0 0 000000033256 0 000000033256 -FT2 033255 033256 0 0 0 0 000000033256 -FT2RQ 033255 033256 0 0 377777777777 0 000000033256 -FT3 033255 033256 0 0 377777777777 0 000000033256 -FT9 033256 033256 0 0 377777777777 0 000000033256 -ET0 033256 033256 0 0 377777777777 0 000000033256 -ST1A 033256 033256 0 0 377777777777 0 000000033256 -ST9 033256 033256 0 0 377777777777 0 000000033256 - - -*033256 MOVSI 1,200000 -INITIAL -C(AC)=040000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033256 033256 0 0 205040200000 0 000000200000 -IT1 033256 0 0 0 205040200000 0 000000200000 -AT3 033256 0 0 0 000000200000 0 205040200000 -AT6 033256 0 0 0 000000200000 0 205040200000 -FT1A 033256 0 0 0 000000200000 0 000000200000 -FT9 033257 0 0 0 000000200000 0 000000200000 -ET0 033257 0 0 0 200000000000 0 000000200000 -ST1 033257 0 0 0 200000000000 0 000000200000 -ST2 033257 0 0 0 200000000000 0 000000200000 -ST9 033257 0 0 0 200000000000 0 000000200000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 432 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0627 - -*033257 JFCL 17,033260 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033257 033257 0 0 255740033260 0 000000033260 -IT1 033257 0 0 0 255740033260 0 000000033260 -AT3 033257 0 0 0 000000033260 0 255740033260 -AT6 033257 033260 0 0 000000033260 0 255740033260 -FT1A 033257 033260 0 0 000000033260 0 000000033260 -FT9 033260 033260 0 0 000000033260 0 000000033260 -ET0 033260 033260 0 0 000000033260 0 000000033260 -ST1A 033260 033260 0 0 000000033260 0 000000033260 -ST9 033260 033260 0 0 000000033260 0 000000033260 - - -*033260 JRST 2,033261(1) -INITIAL -C(AC)=000000 000002 -C(E)=400040 000000 -FINAL - -C(E)=400040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033260 033260 0 0 254101033261 0 200000033261 -IT1 033260 0 0 0 254101033261 0 200000033261 -AT1 033260 0 0 0 0 0 254101033261 -AT2 033260 0 0 0 200000000000 0 254101033261 -AT3 033260 0 0 0 000000033261 0 200000033261 -AT6 033260 033261 0 0 000000033261 0 200000033261 -FT1A 033260 033261 0 0 000000033261 0 200000033261 -FT9 033261 033261 0 0 000000033261 0 200000033261 -ET0 033261 033261 0 0 000000033261 0 200000033261 -ST1A 033261 033261 0 0 000000033261 0 200000033261 -ST9 033261 033261 0 0 000000033261 0 200000033261 - - -*033261 SETZ 1,000000 -INITIAL -C(AC)=200000 000000 -C(E)=377777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033261 033261 0 0 400040000000 0 0 -IT1 033261 0 0 0 400040000000 0 0 -AT3 033261 0 0 0 0 0 400040000000 -AT6 033261 0 0 0 0 0 400040000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 433 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0628 - -FT1A 033261 0 0 0 0 0 0 -FT9 033262 0 0 0 0 0 0 -ET0 033262 0 0 0 0 0 0 -ST1 033262 0 0 0 0 0 0 -ST2 033262 0 0 0 0 0 0 -ST9 033262 0 0 0 0 0 0 - - -*033262 JRST 2,033263(1) -INITIAL -C(AC)=000000 000002 -C(E)=255200 033265 -FINAL - -C(E)=255200 033265 - -TIME PC MA SC FE AR MQ BR -IT0 033262 033262 0 0 254101033263 0 000000033263 -IT1 033262 0 0 0 254101033263 0 000000033263 -AT1 033262 0 0 0 0 0 254101033263 -AT2 033262 0 0 0 0 0 254101033263 -AT3 033262 0 0 0 000000033263 0 000000033263 -AT6 033262 033263 0 0 000000033263 0 000000033263 -FT1A 033262 033263 0 0 000000033263 0 000000033263 -FT9 033263 033263 0 0 000000033263 0 000000033263 -ET0 033263 033263 0 0 000000033263 0 000000033263 -ST1A 033263 033263 0 0 000000033263 0 000000033263 -ST9 033263 033263 0 0 000000033263 0 000000033263 - - -*033263 JFCL 4,033265 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033263 033263 0 0 255200033265 0 000000033265 -IT1 033263 0 0 0 255200033265 0 000000033265 -AT3 033263 0 0 0 000000033265 0 255200033265 -AT6 033263 033265 0 0 000000033265 0 255200033265 -FT1A 033263 033265 0 0 000000033265 0 000000033265 -FT9 033264 033265 0 0 000000033265 0 000000033265 -ET0 033264 033265 0 0 000000033265 0 000000033265 -ST1A 033264 033265 0 0 000000033265 0 000000033265 -ST9 033264 033265 0 0 000000033265 0 000000033265 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 434 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0629 - -*033264 SKIPA 0,000000 -INITIAL -C(AC)=377777 777777 -C(E)=377777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033264 033264 0 0 334000000000 0 377777777777 -IT1 033264 0 0 0 334000000000 0 377777777777 -AT3 033264 0 0 0 0 0 334000000000 -AT6 033264 0 0 0 0 0 334000000000 -FT0 033264 0 0 0 377777777777 0 334000000000 -FT1A 033264 0 0 0 377777777777 0 377777777777 -FT9 033265 0 0 0 377777777777 0 377777777777 -ET0 033266 0 0 0 377777777777 0 377777777777 -ST1A 033266 0 0 0 377777777777 0 377777777777 -ST9 033266 0 0 0 377777777777 0 377777777777 - - -*033266 JUMPA 0,033267 -INITIAL -C(AC)=377777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033266 033266 0 0 324000033267 0 000000033267 -IT1 033266 0 0 0 324000033267 0 000000033267 -AT3 033266 0 0 0 000000033267 0 324000033267 -AT6 033266 033267 0 0 000000033267 0 324000033267 -FT1A 033266 033267 0 0 000000033267 0 000000033267 -FT2 033266 033267 0 0 0 0 000000033267 -FT2RQ 033266 033267 0 0 377777777777 0 000000033267 -FT3 033266 033267 0 0 377777777777 0 000000033267 -FT9 033267 033267 0 0 377777777777 0 000000033267 -ET0 033267 033267 0 0 377777777777 0 000000033267 -ST1A 033267 033267 0 0 377777777777 0 000000033267 -ST9 033267 033267 0 0 377777777777 0 000000033267 - - -*033267 MOVSI 1,040000 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033267 033267 0 0 205040040000 0 000000040000 -IT1 033267 0 0 0 205040040000 0 000000040000 -AT3 033267 0 0 0 000000040000 0 205040040000 -AT6 033267 0 0 0 000000040000 0 205040040000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 435 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0630 - -FT1A 033267 0 0 0 000000040000 0 000000040000 -FT9 033270 0 0 0 000000040000 0 000000040000 -ET0 033270 0 0 0 040000000000 0 000000040000 -ST1 033270 0 0 0 040000000000 0 000000040000 -ST2 033270 0 0 0 040000000000 0 000000040000 -ST9 033270 0 0 0 040000000000 0 000000040000 - - -*033270 JFCL 17,033271 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033270 033270 0 0 255740033271 0 000000033271 -IT1 033270 0 0 0 255740033271 0 000000033271 -AT3 033270 0 0 0 000000033271 0 255740033271 -AT6 033270 033271 0 0 000000033271 0 255740033271 -FT1A 033270 033271 0 0 000000033271 0 000000033271 -FT9 033271 033271 0 0 000000033271 0 000000033271 -ET0 033271 033271 0 0 000000033271 0 000000033271 -ST1A 033271 033271 0 0 000000033271 0 000000033271 -ST9 033271 033271 0 0 000000033271 0 000000033271 - - -*033271 JRST 2,033272(1) -INITIAL -C(AC)=000000 000002 -C(E)=400040 000000 -FINAL - -C(E)=400040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033271 033271 0 0 254101033272 0 040000033272 -IT1 033271 0 0 0 254101033272 0 040000033272 -AT1 033271 0 0 0 0 0 254101033272 -AT2 033271 0 0 0 040000000000 0 254101033272 -AT3 033271 0 0 0 000000033272 0 040000033272 -AT6 033271 033272 0 0 000000033272 0 040000033272 -FT1A 033271 033272 0 0 000000033272 0 040000033272 -FT9 033272 033272 0 0 000000033272 0 040000033272 -ET0 033272 033272 0 0 000000033272 0 040000033272 -ST1A 033272 033272 0 0 000000033272 0 040000033272 -ST9 033272 033272 0 0 000000033272 0 040000033272 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 436 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0631 - -*033272 SETZ 1,000000 -INITIAL -C(AC)=040000 000000 -C(E)=377777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033272 033272 0 0 400040000000 0 0 -IT1 033272 0 0 0 400040000000 0 0 -AT3 033272 0 0 0 0 0 400040000000 -AT6 033272 0 0 0 0 0 400040000000 -FT1A 033272 0 0 0 0 0 0 -FT9 033273 0 0 0 0 0 0 -ET0 033273 0 0 0 0 0 0 -ST1 033273 0 0 0 0 0 0 -ST2 033273 0 0 0 0 0 0 -ST9 033273 0 0 0 0 0 0 - - -*033273 JRST 2,033274(1) -INITIAL -C(AC)=000000 000002 -C(E)=255040 033276 -FINAL - -C(E)=255040 033276 - -TIME PC MA SC FE AR MQ BR -IT0 033273 033273 0 0 254101033274 0 000000033274 -IT1 033273 0 0 0 254101033274 0 000000033274 -AT1 033273 0 0 0 0 0 254101033274 -AT2 033273 0 0 0 0 0 254101033274 -AT3 033273 0 0 0 000000033274 0 000000033274 -AT6 033273 033274 0 0 000000033274 0 000000033274 -FT1A 033273 033274 0 0 000000033274 0 000000033274 -FT9 033274 033274 0 0 000000033274 0 000000033274 -ET0 033274 033274 0 0 000000033274 0 000000033274 -ST1A 033274 033274 0 0 000000033274 0 000000033274 -ST9 033274 033274 0 0 000000033274 0 000000033274 - - -*033274 JFCL 1,033276 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033274 033274 0 0 255040033276 0 000000033276 -IT1 033274 0 0 0 255040033276 0 000000033276 -AT3 033274 0 0 0 000000033276 0 255040033276 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 437 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0632 - -AT6 033274 033276 0 0 000000033276 0 255040033276 -FT1A 033274 033276 0 0 000000033276 0 000000033276 -FT9 033275 033276 0 0 000000033276 0 000000033276 -ET0 033275 033276 0 0 000000033276 0 000000033276 -ST1A 033275 033276 0 0 000000033276 0 000000033276 -ST9 033275 033276 0 0 000000033276 0 000000033276 - - -*033275 SKIPA 0,000000 -INITIAL -C(AC)=377777 777777 -C(E)=377777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033275 033275 0 0 334000000000 0 377777777777 -IT1 033275 0 0 0 334000000000 0 377777777777 -AT3 033275 0 0 0 0 0 334000000000 -AT6 033275 0 0 0 0 0 334000000000 -FT0 033275 0 0 0 377777777777 0 334000000000 -FT1A 033275 0 0 0 377777777777 0 377777777777 -FT9 033276 0 0 0 377777777777 0 377777777777 -ET0 033277 0 0 0 377777777777 0 377777777777 -ST1A 033277 0 0 0 377777777777 0 377777777777 -ST9 033277 0 0 0 377777777777 0 377777777777 - - -*033277 JUMPA 0,033300 -INITIAL -C(AC)=377777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033277 033277 0 0 324000033300 0 000000033300 -IT1 033277 0 0 0 324000033300 0 000000033300 -AT3 033277 0 0 0 000000033300 0 324000033300 -AT6 033277 0 0 0 000000033300 0 324000033300 -FT1A 033277 0 0 0 000000033300 0 000000033300 -FT2 033277 0 0 0 0 0 000000033300 -FT2RQ 033277 0 0 0 377777777777 0 000000033300 -FT3 033277 0 0 0 377777777777 0 000000033300 -FT9 0 0 0 0 377777777777 0 000000033300 -ET0 0 0 0 0 377777777777 0 000000033300 -ST1A 0 0 0 0 377777777777 0 000000033300 -ST9 0 0 0 0 377777777777 0 000000033300 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 438 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0633 - -*033300 JFCL 17,033301 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 255740033301 0 000000033301 -IT1 0 0 0 0 255740033301 0 000000033301 -AT3 0 0 0 0 000000033301 0 255740033301 -AT6 0 033301 0 0 000000033301 0 255740033301 -FT1A 0 033301 0 0 000000033301 0 000000033301 -FT9 033301 033301 0 0 000000033301 0 000000033301 -ET0 033301 033301 0 0 000000033301 0 000000033301 -ST1A 033301 033301 0 0 000000033301 0 000000033301 -ST9 033301 033301 0 0 000000033301 0 000000033301 - - -*033301 SETZ 1,000000 -INITIAL -C(AC)=000000 000000 -C(E)=377777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033301 033301 0 0 400040000000 0 0 -IT1 033301 0 0 0 400040000000 0 0 -AT3 033301 0 0 0 0 0 400040000000 -AT6 033301 0 0 0 0 0 400040000000 -FT1A 033301 0 0 0 0 0 0 -FT9 033302 0 0 0 0 0 0 -ET0 033302 0 0 0 0 0 0 -ST1 033302 0 0 0 0 0 0 -ST2 033302 0 0 0 0 0 0 -ST9 033302 0 0 0 0 0 0 - - -*033302 JRST 2,033303(1) -INITIAL -C(AC)=000000 000002 -C(E)=255740 033305 -FINAL - -C(E)=255740 033305 - -TIME PC MA SC FE AR MQ BR -IT0 033302 033302 0 0 254101033303 0 000000033303 -IT1 033302 0 0 0 254101033303 0 000000033303 -AT1 033302 0 0 0 0 0 254101033303 -AT2 033302 0 0 0 0 0 254101033303 -AT3 033302 0 0 0 000000033303 0 000000033303 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 439 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0634 - -AT6 033302 033303 0 0 000000033303 0 000000033303 -FT1A 033302 033303 0 0 000000033303 0 000000033303 -FT9 033303 033303 0 0 000000033303 0 000000033303 -ET0 033303 033303 0 0 000000033303 0 000000033303 -ST1A 033303 033303 0 0 000000033303 0 000000033303 -ST9 033303 033303 0 0 000000033303 0 000000033303 - - -*033303 JFCL 17,033305 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033303 033303 0 0 255740033305 0 000000033305 -IT1 033303 0 0 0 255740033305 0 000000033305 -AT3 033303 0 0 0 000000033305 0 255740033305 -AT6 033303 033305 0 0 000000033305 0 255740033305 -FT1A 033303 033305 0 0 000000033305 0 000000033305 -FT9 033304 033305 0 0 000000033305 0 000000033305 -ET0 033304 033305 0 0 000000033305 0 000000033305 -ST1A 033304 033305 0 0 000000033305 0 000000033305 -ST9 033304 033305 0 0 000000033305 0 000000033305 - - -*033304 SKIPA 0,000000 -INITIAL -C(AC)=377777 777777 -C(E)=377777 777777 -FINAL -C(AC)=377777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033304 033304 0 0 334000000000 0 377777777777 -IT1 033304 0 0 0 334000000000 0 377777777777 -AT3 033304 0 0 0 0 0 334000000000 -AT6 033304 0 0 0 0 0 334000000000 -FT0 033304 0 0 0 377777777777 0 334000000000 -FT1A 033304 0 0 0 377777777777 0 377777777777 -FT9 033305 0 0 0 377777777777 0 377777777777 -ET0 033306 0 0 0 377777777777 0 377777777777 -ST1A 033306 0 0 0 377777777777 0 377777777777 -ST9 033306 0 0 0 377777777777 0 377777777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 440 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0635 - -*033306 JUMPA 0,033307 -INITIAL -C(AC)=377777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033306 033306 0 0 324000033307 0 000000033307 -IT1 033306 0 0 0 324000033307 0 000000033307 -AT3 033306 0 0 0 000000033307 0 324000033307 -AT6 033306 033307 0 0 000000033307 0 324000033307 -FT1A 033306 033307 0 0 000000033307 0 000000033307 -FT2 033306 033307 0 0 0 0 000000033307 -FT2RQ 033306 033307 0 0 377777777777 0 000000033307 -FT3 033306 033307 0 0 377777777777 0 000000033307 -FT9 033307 033307 0 0 377777777777 0 000000033307 -ET0 033307 033307 0 0 377777777777 0 000000033307 -ST1A 033307 033307 0 0 377777777777 0 000000033307 -ST9 033307 033307 0 0 377777777777 0 000000033307 - - -*033307 SETZB 0,000001 -INITIAL -C(AC)=377777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033307 033307 0 0 403000000001 0 000000000001 -IT1 033307 0 0 0 403000000001 0 000000000001 -AT3 033307 0 0 0 000000000001 0 403000000001 -AT6 033307 000001 0 0 000000000001 0 403000000001 -FT1A 033307 000001 0 0 000000000001 0 000000000001 -FT9 033310 000001 0 0 000000000001 0 000000000001 -ET0 033310 000001 0 0 0 0 000000000001 -ST1 033310 000001 0 0 0 0 000000000001 -ST2 033310 000001 0 0 0 0 000000000001 -ST6 033310 000001 0 0 0 0 000000000001 -ST6A 033310 000001 0 0 0 0 000000000001 -ST9 033310 000001 0 0 0 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 441 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0636 - -*033310 JRST 2,033311(1) -INITIAL -C(AC)=000000 000002 -C(E)=265000 033312 -FINAL - -C(E)=265000 033312 - -TIME PC MA SC FE AR MQ BR -IT0 033310 033310 0 0 254101033311 0 000000033311 -IT1 033310 0 0 0 254101033311 0 000000033311 -AT1 033310 0 0 0 0 0 254101033311 -AT2 033310 0 0 0 0 0 254101033311 -AT3 033310 0 0 0 000000033311 0 000000033311 -AT6 033310 033311 0 0 000000033311 0 000000033311 -FT1A 033310 033311 0 0 000000033311 0 000000033311 -FT9 033311 033311 0 0 000000033311 0 000000033311 -ET0 033311 033311 0 0 000000033311 0 000000033311 -ST1A 033311 033311 0 0 000000033311 0 000000033311 -ST9 033311 033311 0 0 000000033311 0 000000033311 - - -*033311 JSP 0,033312 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 033312 - -TIME PC MA SC FE AR MQ BR -IT0 033311 033311 0 0 265000033312 0 000000033312 -IT1 033311 0 0 0 265000033312 0 000000033312 -AT3 033311 0 0 0 000000033312 0 265000033312 -AT6 033311 033312 0 0 000000033312 0 265000033312 -FT1A 033311 033312 0 0 000000033312 0 000000033312 -FT9 033312 033312 0 0 000000033312 0 000000033312 -ET0 033312 033312 0 0 000000033312 0 000000033312 -ST1 033312 033312 0 0 000000033312 0 000000033312 -ST2 033312 033312 0 0 000000033312 0 000000033312 -ST9 033312 033312 0 0 000000033312 0 000000033312 - - -*033312 SKIPN 0,000000 -INITIAL -C(AC)=000000 033312 -C(E)=000000 033312 -FINAL -C(AC)=000000 033312 - -TIME PC MA SC FE AR MQ BR -IT0 033312 033312 0 0 336000000000 0 000000033312 -IT1 033312 0 0 0 336000000000 0 000000033312 -AT3 033312 0 0 0 0 0 336000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 442 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0637 - -AT6 033312 0 0 0 0 0 336000000000 -FT0 033312 0 0 0 000000033312 0 336000000000 -FT1A 033312 0 0 0 000000033312 0 000000033312 -FT9 033313 0 0 0 000000033312 0 000000033312 -ET0 033314 0 0 0 000000033312 0 000000033312 -ST1A 033314 0 0 0 000000033312 0 000000033312 -ST9 033314 0 0 0 000000033312 0 000000033312 - - -*033314 JUMPA 0,033315 -INITIAL -C(AC)=000000 033312 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033314 033314 0 0 324000033315 0 000000033315 -IT1 033314 0 0 0 324000033315 0 000000033315 -AT3 033314 0 0 0 000000033315 0 324000033315 -AT6 033314 033315 0 0 000000033315 0 324000033315 -FT1A 033314 033315 0 0 000000033315 0 000000033315 -FT2 033314 033315 0 0 0 0 000000033315 -FT2RQ 033314 033315 0 0 000000033312 0 000000033315 -FT3 033314 033315 0 0 000000033312 0 000000033315 -FT9 033315 033315 0 0 000000033312 0 000000033315 -ET0 033315 033315 0 0 000000033312 0 000000033315 -ST1A 033315 033315 0 0 000000033312 0 000000033315 -ST9 033315 033315 0 0 000000033312 0 000000033315 - - -*033315 SETZ 0,000000 -INITIAL -C(AC)=000000 033312 -C(E)=000000 033312 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033315 033315 0 0 400000000000 0 0 -IT1 033315 0 0 0 400000000000 0 0 -AT3 033315 0 0 0 0 0 400000000000 -AT6 033315 0 0 0 0 0 400000000000 -FT1A 033315 0 0 0 0 0 0 -FT9 033316 0 0 0 0 0 0 -ET0 033316 0 0 0 0 0 0 -ST1 033316 0 0 0 0 0 0 -ST2 033316 0 0 0 0 0 0 -ST9 033316 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 443 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0638 - -*033316 JSP 0,033317 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 033317 - -TIME PC MA SC FE AR MQ BR -IT0 033316 033316 0 0 265000033317 0 000000033317 -IT1 033316 0 0 0 265000033317 0 000000033317 -AT3 033316 0 0 0 000000033317 0 265000033317 -AT6 033316 033317 0 0 000000033317 0 265000033317 -FT1A 033316 033317 0 0 000000033317 0 000000033317 -FT9 033317 033317 0 0 000000033317 0 000000033317 -ET0 033317 033317 0 0 000000033317 0 000000033317 -ST1 033317 033317 0 0 000000033317 0 000000033317 -ST2 033317 033317 0 0 000000033317 0 000000033317 -ST9 033317 033317 0 0 000000033317 0 000000033317 - - -*033317 TRNN 0,777777 -INITIAL -C(AC)=000000 033317 -FINAL -C(AC)=000000 033317 - -TIME PC MA SC FE AR MQ BR -IT0 033317 033317 0 0 606000777777 0 000000033317 -IT1 033317 0 0 0 606000777777 0 000000033317 -AT3 033317 0 0 0 000000777777 0 606000777777 -AT6 033317 777777 0 0 000000777777 0 606000777777 -FT1A 033317 777777 0 0 000000777777 0 000000777777 -FT2 033317 777777 0 0 0 0 000000777777 -FT2RQ 033317 777777 0 0 000000033317 0 000000777777 -FT3 033317 777777 0 0 000000033317 0 000000777777 -FT9 033320 777777 0 0 000000033317 0 000000777777 -ET0 033320 777777 0 0 000000033317 0 000000777777 -ET1 033320 777777 0 0 000000033317 0 000000033317 -ET2 033321 777777 0 0 000000033317 0 000000033317 -ST1A 033321 777777 0 0 000000033317 0 000000033317 -ST9 033321 777777 0 0 000000033317 0 000000033317 - - -*033321 JUMPA 0,033322 -INITIAL -C(AC)=000000 033317 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033321 033321 0 0 324000033322 0 000000033322 -IT1 033321 0 0 0 324000033322 0 000000033322 -AT3 033321 0 0 0 000000033322 0 324000033322 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 444 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0639 - -AT6 033321 033322 0 0 000000033322 0 324000033322 -FT1A 033321 033322 0 0 000000033322 0 000000033322 -FT2 033321 033322 0 0 0 0 000000033322 -FT2RQ 033321 033322 0 0 000000033317 0 000000033322 -FT3 033321 033322 0 0 000000033317 0 000000033322 -FT9 033322 033322 0 0 000000033317 0 000000033322 -ET0 033322 033322 0 0 000000033317 0 000000033322 -ST1A 033322 033322 0 0 000000033317 0 000000033322 -ST9 033322 033322 0 0 000000033317 0 000000033322 - - -*033322 SETZM 0,000000 -INITIAL -C(AC)=000000 033317 -C(E)=000000 033317 -FINAL - -C(E)=000000 033317 - -TIME PC MA SC FE AR MQ BR -IT0 033322 033322 0 0 402000000000 0 0 -IT1 033322 0 0 0 402000000000 0 0 -AT3 033322 0 0 0 0 0 402000000000 -AT6 033322 0 0 0 0 0 402000000000 -FT1A 033322 0 0 0 0 0 0 -FT9 033323 0 0 0 0 0 0 -ET0 033323 0 0 0 0 0 0 -ST6 033323 0 0 0 0 0 0 -ST6A 033323 0 0 0 0 0 0 -ST9 033323 0 0 0 0 0 0 - - -*033323 MOVSI 1,740000 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=740000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033323 033323 0 0 205040740000 0 000000740000 -IT1 033323 0 0 0 205040740000 0 000000740000 -AT3 033323 0 0 0 000000740000 0 205040740000 -AT6 033323 0 0 0 000000740000 0 205040740000 -FT1A 033323 0 0 0 000000740000 0 000000740000 -FT9 033324 0 0 0 000000740000 0 000000740000 -ET0 033324 0 0 0 740000000000 0 000000740000 -ST1 033324 0 0 0 740000000000 0 000000740000 -ST2 033324 0 0 0 740000000000 0 000000740000 -ST9 033324 0 0 0 740000000000 0 000000740000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 445 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0640 - -*033324 JRST 2,033325(1) -INITIAL -C(AC)=000000 000002 -C(E)=265000 033326 -FINAL - -C(E)=265000 033326 - -TIME PC MA SC FE AR MQ BR -IT0 033324 033324 0 0 254101033325 0 740000033325 -IT1 033324 0 0 0 254101033325 0 740000033325 -AT1 033324 0 0 0 0 0 254101033325 -AT2 033324 0 0 0 740000000000 0 254101033325 -AT3 033324 0 0 0 000000033325 0 740000033325 -AT6 033324 033325 0 0 000000033325 0 740000033325 -FT1A 033324 033325 0 0 000000033325 0 740000033325 -FT9 033325 033325 0 0 000000033325 0 740000033325 -ET0 033325 033325 0 0 000000033325 0 740000033325 -ST1A 033325 033325 0 0 000000033325 0 740000033325 -ST9 033325 033325 0 0 000000033325 0 740000033325 - - -*033325 JSP 0,033326 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=740000 033326 - -TIME PC MA SC FE AR MQ BR -IT0 033325 033325 0 0 265000033326 0 000000033326 -IT1 033325 0 0 0 265000033326 0 000000033326 -AT3 033325 0 0 0 000000033326 0 265000033326 -AT6 033325 033326 0 0 000000033326 0 265000033326 -FT1A 033325 033326 0 0 000000033326 0 000000033326 -FT9 033326 033326 0 0 000000033326 0 000000033326 -ET0 033326 033326 0 0 740000033326 0 000000033326 -ST1 033326 033326 0 0 740000033326 0 000000033326 -ST2 033326 033326 0 0 740000033326 0 000000033326 -ST9 033326 033326 0 0 740000033326 0 000000033326 - - -*033326 TLNN 0,777777 -INITIAL -C(AC)=740000 033326 -FINAL -C(AC)=740000 033326 - -TIME PC MA SC FE AR MQ BR -IT0 033326 033326 0 0 607000777777 0 000000740000 -IT1 033326 0 0 0 607000777777 0 000000740000 -AT3 033326 0 0 0 000000777777 0 607000777777 -AT6 033326 777777 0 0 000000777777 0 607000777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 446 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0641 - -FT1A 033326 777777 0 0 000000777777 0 000000777777 -FT2 033326 777777 0 0 0 0 000000777777 -FT2RQ 033326 777777 0 0 740000033326 0 000000777777 -FT3 033326 777777 0 0 740000033326 0 000000777777 -FT9 033327 777777 0 0 740000033326 0 000000777777 -ET0 033327 777777 0 0 033326740000 0 000000777777 -ET1 033327 777777 0 0 033326740000 0 000000740000 -ET2 033330 777777 0 0 740000033326 0 000000740000 -ST1A 033330 777777 0 0 740000033326 0 000000740000 -ST9 033330 777777 0 0 740000033326 0 000000740000 - - -*033330 JUMPA 0,033331 -INITIAL -C(AC)=740000 033326 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033330 033330 0 0 324000033331 0 000000033331 -IT1 033330 0 0 0 324000033331 0 000000033331 -AT3 033330 0 0 0 000000033331 0 324000033331 -AT6 033330 033331 0 0 000000033331 0 324000033331 -FT1A 033330 033331 0 0 000000033331 0 000000033331 -FT2 033330 033331 0 0 0 0 000000033331 -FT2RQ 033330 033331 0 0 740000033326 0 000000033331 -FT3 033330 033331 0 0 740000033326 0 000000033331 -FT9 033331 033331 0 0 740000033326 0 000000033331 -ET0 033331 033331 0 0 740000033326 0 000000033331 -ST1A 033331 033331 0 0 740000033326 0 000000033331 -ST9 033331 033331 0 0 740000033326 0 000000033331 - - -*033331 SETZM 0,000000 -INITIAL -C(AC)=740000 033326 -C(E)=740000 033326 -FINAL - -C(E)=740000 033326 - -TIME PC MA SC FE AR MQ BR -IT0 033331 033331 0 0 402000000000 0 0 -IT1 033331 0 0 0 402000000000 0 0 -AT3 033331 0 0 0 0 0 402000000000 -AT6 033331 0 0 0 0 0 402000000000 -FT1A 033331 0 0 0 0 0 0 -FT9 033332 0 0 0 0 0 0 -ET0 033332 0 0 0 0 0 0 -ST6 033332 0 0 0 0 0 0 -ST6A 033332 0 0 0 0 0 0 -ST9 033332 0 0 0 0 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 447 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0642 - - - -*033332 MOVSI 1,400000 -INITIAL -C(AC)=740000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033332 033332 0 0 205040400000 0 000000400000 -IT1 033332 0 0 0 205040400000 0 000000400000 -AT3 033332 0 0 0 000000400000 0 205040400000 -AT6 033332 0 0 0 000000400000 0 205040400000 -FT1A 033332 0 0 0 000000400000 0 000000400000 -FT9 033333 0 0 0 000000400000 0 000000400000 -ET0 033333 0 0 0 400000000000 0 000000400000 -ST1 033333 0 0 0 400000000000 0 000000400000 -ST2 033333 0 0 0 400000000000 0 000000400000 -ST9 033333 0 0 0 400000000000 0 000000400000 - - -*033333 JFCL 17,033334 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033333 033333 0 0 255740033334 0 000000033334 -IT1 033333 0 0 0 255740033334 0 000000033334 -AT3 033333 0 0 0 000000033334 0 255740033334 -AT6 033333 033334 0 0 000000033334 0 255740033334 -FT1A 033333 033334 0 0 000000033334 0 000000033334 -FT9 033334 033334 0 0 000000033334 0 000000033334 -ET0 033334 033334 0 0 000000033334 0 000000033334 -ST1A 033334 033334 0 0 000000033334 0 000000033334 -ST9 033334 033334 0 0 000000033334 0 000000033334 - - -*033334 JRST 2,033335(1) -INITIAL -C(AC)=000000 000002 -C(E)=265000 033336 -FINAL - -C(E)=265000 033336 - -TIME PC MA SC FE AR MQ BR -IT0 033334 033334 0 0 254101033335 0 400000033335 -IT1 033334 0 0 0 254101033335 0 400000033335 -AT1 033334 0 0 0 0 0 254101033335 -AT2 033334 0 0 0 400000000000 0 254101033335 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 448 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0643 - -AT3 033334 0 0 0 000000033335 0 400000033335 -AT6 033334 033335 0 0 000000033335 0 400000033335 -FT1A 033334 033335 0 0 000000033335 0 400000033335 -FT9 033335 033335 0 0 000000033335 0 400000033335 -ET0 033335 033335 0 0 000000033335 0 400000033335 -ST1A 033335 033335 0 0 000000033335 0 400000033335 -ST9 033335 033335 0 0 000000033335 0 400000033335 - - -*033335 JSP 0,033336 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=400000 033336 - -TIME PC MA SC FE AR MQ BR -IT0 033335 033335 0 0 265000033336 0 000000033336 -IT1 033335 0 0 0 265000033336 0 000000033336 -AT3 033335 0 0 0 000000033336 0 265000033336 -AT6 033335 033336 0 0 000000033336 0 265000033336 -FT1A 033335 033336 0 0 000000033336 0 000000033336 -FT9 033336 033336 0 0 000000033336 0 000000033336 -ET0 033336 033336 0 0 400000033336 0 000000033336 -ST1 033336 033336 0 0 400000033336 0 000000033336 -ST2 033336 033336 0 0 400000033336 0 000000033336 -ST9 033336 033336 0 0 400000033336 0 000000033336 - - -*033336 TLNN 0,400000 -INITIAL -C(AC)=400000 033336 -FINAL -C(AC)=400000 033336 - -TIME PC MA SC FE AR MQ BR -IT0 033336 033336 0 0 607000400000 0 000000400000 -IT1 033336 0 0 0 607000400000 0 000000400000 -AT3 033336 0 0 0 000000400000 0 607000400000 -AT6 033336 0 0 0 000000400000 0 607000400000 -FT1A 033336 0 0 0 000000400000 0 000000400000 -FT2 033336 0 0 0 0 0 000000400000 -FT2RQ 033336 0 0 0 400000033336 0 000000400000 -FT3 033336 0 0 0 400000033336 0 000000400000 -FT9 033337 0 0 0 400000033336 0 000000400000 -ET0 033337 0 0 0 033336400000 0 000000400000 -ET1 033337 0 0 0 033336400000 0 000000400000 -ET2 033340 0 0 0 400000033336 0 000000400000 -ST1A 033340 0 0 0 400000033336 0 000000400000 -ST9 033340 0 0 0 400000033336 0 000000400000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 449 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0644 - -*033340 JUMPA 0,033341 -INITIAL -C(AC)=400000 033336 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033340 033340 0 0 324000033341 0 000000033341 -IT1 033340 0 0 0 324000033341 0 000000033341 -AT3 033340 0 0 0 000000033341 0 324000033341 -AT6 033340 033341 0 0 000000033341 0 324000033341 -FT1A 033340 033341 0 0 000000033341 0 000000033341 -FT2 033340 033341 0 0 0 0 000000033341 -FT2RQ 033340 033341 0 0 400000033336 0 000000033341 -FT3 033340 033341 0 0 400000033336 0 000000033341 -FT9 033341 033341 0 0 400000033336 0 000000033341 -ET0 033341 033341 0 0 400000033336 0 000000033341 -ST1A 033341 033341 0 0 400000033336 0 000000033341 -ST9 033341 033341 0 0 400000033336 0 000000033341 - - -*033341 SETZM 0,000000 -INITIAL -C(AC)=400000 033336 -C(E)=400000 033336 -FINAL - -C(E)=400000 033336 - -TIME PC MA SC FE AR MQ BR -IT0 033341 033341 0 0 402000000000 0 0 -IT1 033341 0 0 0 402000000000 0 0 -AT3 033341 0 0 0 0 0 402000000000 -AT6 033341 0 0 0 0 0 402000000000 -FT1A 033341 0 0 0 0 0 0 -FT9 033342 0 0 0 0 0 0 -ET0 033342 0 0 0 0 0 0 -ST6 033342 0 0 0 0 0 0 -ST6A 033342 0 0 0 0 0 0 -ST9 033342 0 0 0 0 0 0 - - -*033342 MOVSI 1,200000 -INITIAL -C(AC)=400000 000000 -FINAL -C(AC)=200000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033342 033342 0 0 205040200000 0 000000200000 -IT1 033342 0 0 0 205040200000 0 000000200000 -AT3 033342 0 0 0 000000200000 0 205040200000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 450 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0645 - -AT6 033342 0 0 0 000000200000 0 205040200000 -FT1A 033342 0 0 0 000000200000 0 000000200000 -FT9 033343 0 0 0 000000200000 0 000000200000 -ET0 033343 0 0 0 200000000000 0 000000200000 -ST1 033343 0 0 0 200000000000 0 000000200000 -ST2 033343 0 0 0 200000000000 0 000000200000 -ST9 033343 0 0 0 200000000000 0 000000200000 - - -*033343 JFCL 17,033344 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033343 033343 0 0 255740033344 0 000000033344 -IT1 033343 0 0 0 255740033344 0 000000033344 -AT3 033343 0 0 0 000000033344 0 255740033344 -AT6 033343 033344 0 0 000000033344 0 255740033344 -FT1A 033343 033344 0 0 000000033344 0 000000033344 -FT9 033344 033344 0 0 000000033344 0 000000033344 -ET0 033344 033344 0 0 000000033344 0 000000033344 -ST1A 033344 033344 0 0 000000033344 0 000000033344 -ST9 033344 033344 0 0 000000033344 0 000000033344 - - -*033344 JRST 2,033345(1) -INITIAL -C(AC)=000000 000002 -C(E)=265000 033346 -FINAL - -C(E)=265000 033346 - -TIME PC MA SC FE AR MQ BR -IT0 033344 033344 0 0 254101033345 0 200000033345 -IT1 033344 0 0 0 254101033345 0 200000033345 -AT1 033344 0 0 0 0 0 254101033345 -AT2 033344 0 0 0 200000000000 0 254101033345 -AT3 033344 0 0 0 000000033345 0 200000033345 -AT6 033344 033345 0 0 000000033345 0 200000033345 -FT1A 033344 033345 0 0 000000033345 0 200000033345 -FT9 033345 033345 0 0 000000033345 0 200000033345 -ET0 033345 033345 0 0 000000033345 0 200000033345 -ST1A 033345 033345 0 0 000000033345 0 200000033345 -ST9 033345 033345 0 0 000000033345 0 200000033345 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 451 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0646 - -*033345 JSP 0,033346 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=200000 033346 - -TIME PC MA SC FE AR MQ BR -IT0 033345 033345 0 0 265000033346 0 000000033346 -IT1 033345 0 0 0 265000033346 0 000000033346 -AT3 033345 0 0 0 000000033346 0 265000033346 -AT6 033345 033346 0 0 000000033346 0 265000033346 -FT1A 033345 033346 0 0 000000033346 0 000000033346 -FT9 033346 033346 0 0 000000033346 0 000000033346 -ET0 033346 033346 0 0 200000033346 0 000000033346 -ST1 033346 033346 0 0 200000033346 0 000000033346 -ST2 033346 033346 0 0 200000033346 0 000000033346 -ST9 033346 033346 0 0 200000033346 0 000000033346 - - -*033346 TLNN 0,200000 -INITIAL -C(AC)=200000 033346 -FINAL -C(AC)=200000 033346 - -TIME PC MA SC FE AR MQ BR -IT0 033346 033346 0 0 607000200000 0 000000200000 -IT1 033346 0 0 0 607000200000 0 000000200000 -AT3 033346 0 0 0 000000200000 0 607000200000 -AT6 033346 0 0 0 000000200000 0 607000200000 -FT1A 033346 0 0 0 000000200000 0 000000200000 -FT2 033346 0 0 0 0 0 000000200000 -FT2RQ 033346 0 0 0 200000033346 0 000000200000 -FT3 033346 0 0 0 200000033346 0 000000200000 -FT9 033347 0 0 0 200000033346 0 000000200000 -ET0 033347 0 0 0 033346200000 0 000000200000 -ET1 033347 0 0 0 033346200000 0 000000200000 -ET2 033350 0 0 0 200000033346 0 000000200000 -ST1A 033350 0 0 0 200000033346 0 000000200000 -ST9 033350 0 0 0 200000033346 0 000000200000 - - -*033350 JUMPA 0,033351 -INITIAL -C(AC)=200000 033346 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033350 033350 0 0 324000033351 0 000000033351 -IT1 033350 0 0 0 324000033351 0 000000033351 -AT3 033350 0 0 0 000000033351 0 324000033351 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 452 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0647 - -AT6 033350 033351 0 0 000000033351 0 324000033351 -FT1A 033350 033351 0 0 000000033351 0 000000033351 -FT2 033350 033351 0 0 0 0 000000033351 -FT2RQ 033350 033351 0 0 200000033346 0 000000033351 -FT3 033350 033351 0 0 200000033346 0 000000033351 -FT9 033351 033351 0 0 200000033346 0 000000033351 -ET0 033351 033351 0 0 200000033346 0 000000033351 -ST1A 033351 033351 0 0 200000033346 0 000000033351 -ST9 033351 033351 0 0 200000033346 0 000000033351 - - -*033351 SETZ 0,000000 -INITIAL -C(AC)=200000 033346 -C(E)=200000 033346 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033351 033351 0 0 400000000000 0 0 -IT1 033351 0 0 0 400000000000 0 0 -AT3 033351 0 0 0 0 0 400000000000 -AT6 033351 0 0 0 0 0 400000000000 -FT1A 033351 0 0 0 0 0 0 -FT9 033352 0 0 0 0 0 0 -ET0 033352 0 0 0 0 0 0 -ST1 033352 0 0 0 0 0 0 -ST2 033352 0 0 0 0 0 0 -ST9 033352 0 0 0 0 0 0 - - -*033352 MOVSI 1,100000 -INITIAL -C(AC)=200000 000000 -FINAL -C(AC)=100000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033352 033352 0 0 205040100000 0 000000100000 -IT1 033352 0 0 0 205040100000 0 000000100000 -AT3 033352 0 0 0 000000100000 0 205040100000 -AT6 033352 0 0 0 000000100000 0 205040100000 -FT1A 033352 0 0 0 000000100000 0 000000100000 -FT9 033353 0 0 0 000000100000 0 000000100000 -ET0 033353 0 0 0 100000000000 0 000000100000 -ST1 033353 0 0 0 100000000000 0 000000100000 -ST2 033353 0 0 0 100000000000 0 000000100000 -ST9 033353 0 0 0 100000000000 0 000000100000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 453 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0648 - -*033353 JFCL 17,033354 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033353 033353 0 0 255740033354 0 000000033354 -IT1 033353 0 0 0 255740033354 0 000000033354 -AT3 033353 0 0 0 000000033354 0 255740033354 -AT6 033353 033354 0 0 000000033354 0 255740033354 -FT1A 033353 033354 0 0 000000033354 0 000000033354 -FT9 033354 033354 0 0 000000033354 0 000000033354 -ET0 033354 033354 0 0 000000033354 0 000000033354 -ST1A 033354 033354 0 0 000000033354 0 000000033354 -ST9 033354 033354 0 0 000000033354 0 000000033354 - - -*033354 JRST 2,033355(1) -INITIAL -C(AC)=000000 000002 -C(E)=265000 033356 -FINAL - -C(E)=265000 033356 - -TIME PC MA SC FE AR MQ BR -IT0 033354 033354 0 0 254101033355 0 100000033355 -IT1 033354 0 0 0 254101033355 0 100000033355 -AT1 033354 0 0 0 0 0 254101033355 -AT2 033354 0 0 0 100000000000 0 254101033355 -AT3 033354 0 0 0 000000033355 0 100000033355 -AT6 033354 033355 0 0 000000033355 0 100000033355 -FT1A 033354 033355 0 0 000000033355 0 100000033355 -FT9 033355 033355 0 0 000000033355 0 100000033355 -ET0 033355 033355 0 0 000000033355 0 100000033355 -ST1A 033355 033355 0 0 000000033355 0 100000033355 -ST9 033355 033355 0 0 000000033355 0 100000033355 - - -*033355 JSP 0,033356 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=100000 033356 - -TIME PC MA SC FE AR MQ BR -IT0 033355 033355 0 0 265000033356 0 000000033356 -IT1 033355 0 0 0 265000033356 0 000000033356 -AT3 033355 0 0 0 000000033356 0 265000033356 -AT6 033355 033356 0 0 000000033356 0 265000033356 -FT1A 033355 033356 0 0 000000033356 0 000000033356 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 454 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0649 - -FT9 033356 033356 0 0 000000033356 0 000000033356 -ET0 033356 033356 0 0 100000033356 0 000000033356 -ST1 033356 033356 0 0 100000033356 0 000000033356 -ST2 033356 033356 0 0 100000033356 0 000000033356 -ST9 033356 033356 0 0 100000033356 0 000000033356 - - -*033356 TLNN 0,100000 -INITIAL -C(AC)=100000 033356 -FINAL -C(AC)=100000 033356 - -TIME PC MA SC FE AR MQ BR -IT0 033356 033356 0 0 607000100000 0 000000100000 -IT1 033356 0 0 0 607000100000 0 000000100000 -AT3 033356 0 0 0 000000100000 0 607000100000 -AT6 033356 0 0 0 000000100000 0 607000100000 -FT1A 033356 0 0 0 000000100000 0 000000100000 -FT2 033356 0 0 0 0 0 000000100000 -FT2RQ 033356 0 0 0 100000033356 0 000000100000 -FT3 033356 0 0 0 100000033356 0 000000100000 -FT9 033357 0 0 0 100000033356 0 000000100000 -ET0 033357 0 0 0 033356100000 0 000000100000 -ET1 033357 0 0 0 033356100000 0 000000100000 -ET2 033360 0 0 0 100000033356 0 000000100000 -ST1A 033360 0 0 0 100000033356 0 000000100000 -ST9 033360 0 0 0 100000033356 0 000000100000 - - -*033360 JUMPA 0,033361 -INITIAL -C(AC)=100000 033356 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033360 033360 0 0 324000033361 0 000000033361 -IT1 033360 0 0 0 324000033361 0 000000033361 -AT3 033360 0 0 0 000000033361 0 324000033361 -AT6 033360 033361 0 0 000000033361 0 324000033361 -FT1A 033360 033361 0 0 000000033361 0 000000033361 -FT2 033360 033361 0 0 0 0 000000033361 -FT2RQ 033360 033361 0 0 100000033356 0 000000033361 -FT3 033360 033361 0 0 100000033356 0 000000033361 -FT9 033361 033361 0 0 100000033356 0 000000033361 -ET0 033361 033361 0 0 100000033356 0 000000033361 -ST1A 033361 033361 0 0 100000033356 0 000000033361 -ST9 033361 033361 0 0 100000033356 0 000000033361 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 455 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0650 - -*033361 SETZ 0,000000 -INITIAL -C(AC)=100000 033356 -C(E)=100000 033356 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033361 033361 0 0 400000000000 0 0 -IT1 033361 0 0 0 400000000000 0 0 -AT3 033361 0 0 0 0 0 400000000000 -AT6 033361 0 0 0 0 0 400000000000 -FT1A 033361 0 0 0 0 0 0 -FT9 033362 0 0 0 0 0 0 -ET0 033362 0 0 0 0 0 0 -ST1 033362 0 0 0 0 0 0 -ST2 033362 0 0 0 0 0 0 -ST9 033362 0 0 0 0 0 0 - - -*033362 MOVSI 1,040000 -INITIAL -C(AC)=100000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033362 033362 0 0 205040040000 0 000000040000 -IT1 033362 0 0 0 205040040000 0 000000040000 -AT3 033362 0 0 0 000000040000 0 205040040000 -AT6 033362 0 0 0 000000040000 0 205040040000 -FT1A 033362 0 0 0 000000040000 0 000000040000 -FT9 033363 0 0 0 000000040000 0 000000040000 -ET0 033363 0 0 0 040000000000 0 000000040000 -ST1 033363 0 0 0 040000000000 0 000000040000 -ST2 033363 0 0 0 040000000000 0 000000040000 -ST9 033363 0 0 0 040000000000 0 000000040000 - - -*033363 JFCL 17,033364 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033363 033363 0 0 255740033364 0 000000033364 -IT1 033363 0 0 0 255740033364 0 000000033364 -AT3 033363 0 0 0 000000033364 0 255740033364 -AT6 033363 033364 0 0 000000033364 0 255740033364 -FT1A 033363 033364 0 0 000000033364 0 000000033364 -FT9 033364 033364 0 0 000000033364 0 000000033364 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 456 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0651 - -ET0 033364 033364 0 0 000000033364 0 000000033364 -ST1A 033364 033364 0 0 000000033364 0 000000033364 -ST9 033364 033364 0 0 000000033364 0 000000033364 - - -*033364 JRST 2,033365(1) -INITIAL -C(AC)=000000 000002 -C(E)=265000 033366 -FINAL - -C(E)=265000 033366 - -TIME PC MA SC FE AR MQ BR -IT0 033364 033364 0 0 254101033365 0 040000033365 -IT1 033364 0 0 0 254101033365 0 040000033365 -AT1 033364 0 0 0 0 0 254101033365 -AT2 033364 0 0 0 040000000000 0 254101033365 -AT3 033364 0 0 0 000000033365 0 040000033365 -AT6 033364 033365 0 0 000000033365 0 040000033365 -FT1A 033364 033365 0 0 000000033365 0 040000033365 -FT9 033365 033365 0 0 000000033365 0 040000033365 -ET0 033365 033365 0 0 000000033365 0 040000033365 -ST1A 033365 033365 0 0 000000033365 0 040000033365 -ST9 033365 033365 0 0 000000033365 0 040000033365 - - -*033365 JSP 0,033366 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=040000 033366 - -TIME PC MA SC FE AR MQ BR -IT0 033365 033365 0 0 265000033366 0 000000033366 -IT1 033365 0 0 0 265000033366 0 000000033366 -AT3 033365 0 0 0 000000033366 0 265000033366 -AT6 033365 033366 0 0 000000033366 0 265000033366 -FT1A 033365 033366 0 0 000000033366 0 000000033366 -FT9 033366 033366 0 0 000000033366 0 000000033366 -ET0 033366 033366 0 0 040000033366 0 000000033366 -ST1 033366 033366 0 0 040000033366 0 000000033366 -ST2 033366 033366 0 0 040000033366 0 000000033366 -ST9 033366 033366 0 0 040000033366 0 000000033366 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 457 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0652 - -*033366 TLNN 0,040000 -INITIAL -C(AC)=040000 033366 -FINAL -C(AC)=040000 033366 - -TIME PC MA SC FE AR MQ BR -IT0 033366 033366 0 0 607000040000 0 000000040000 -IT1 033366 0 0 0 607000040000 0 000000040000 -AT3 033366 0 0 0 000000040000 0 607000040000 -AT6 033366 0 0 0 000000040000 0 607000040000 -FT1A 033366 0 0 0 000000040000 0 000000040000 -FT2 033366 0 0 0 0 0 000000040000 -FT2RQ 033366 0 0 0 040000033366 0 000000040000 -FT3 033366 0 0 0 040000033366 0 000000040000 -FT9 033367 0 0 0 040000033366 0 000000040000 -ET0 033367 0 0 0 033366040000 0 000000040000 -ET1 033367 0 0 0 033366040000 0 000000040000 -ET2 033370 0 0 0 040000033366 0 000000040000 -ST1A 033370 0 0 0 040000033366 0 000000040000 -ST9 033370 0 0 0 040000033366 0 000000040000 - - -*033370 JUMPA 0,033371 -INITIAL -C(AC)=040000 033366 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033370 033370 0 0 324000033371 0 000000033371 -IT1 033370 0 0 0 324000033371 0 000000033371 -AT3 033370 0 0 0 000000033371 0 324000033371 -AT6 033370 033371 0 0 000000033371 0 324000033371 -FT1A 033370 033371 0 0 000000033371 0 000000033371 -FT2 033370 033371 0 0 0 0 000000033371 -FT2RQ 033370 033371 0 0 040000033366 0 000000033371 -FT3 033370 033371 0 0 040000033366 0 000000033371 -FT9 033371 033371 0 0 040000033366 0 000000033371 -ET0 033371 033371 0 0 040000033366 0 000000033371 -ST1A 033371 033371 0 0 040000033366 0 000000033371 -ST9 033371 033371 0 0 040000033366 0 000000033371 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 458 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0653 - -*033371 MOVSI 1,000000 -INITIAL -C(AC)=040000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033371 033371 0 0 205040000000 0 0 -IT1 033371 0 0 0 205040000000 0 0 -AT3 033371 0 0 0 0 0 205040000000 -AT6 033371 0 0 0 0 0 205040000000 -FT1A 033371 0 0 0 0 0 0 -FT9 033372 0 0 0 0 0 0 -ET0 033372 0 0 0 0 0 0 -ST1 033372 0 0 0 0 0 0 -ST2 033372 0 0 0 0 0 0 -ST9 033372 0 0 0 0 0 0 - - -*033372 JFCL 17,033373 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033372 033372 0 0 255740033373 0 000000033373 -IT1 033372 0 0 0 255740033373 0 000000033373 -AT3 033372 0 0 0 000000033373 0 255740033373 -AT6 033372 033373 0 0 000000033373 0 255740033373 -FT1A 033372 033373 0 0 000000033373 0 000000033373 -FT9 033373 033373 0 0 000000033373 0 000000033373 -ET0 033373 033373 0 0 000000033373 0 000000033373 -ST1A 033373 033373 0 0 000000033373 0 000000033373 -ST9 033373 033373 0 0 000000033373 0 000000033373 - - -*033373 JRST 2,033374(1) -INITIAL -C(AC)=000000 000002 -C(E)=265000 033375 -FINAL - -C(E)=265000 033375 - -TIME PC MA SC FE AR MQ BR -IT0 033373 033373 0 0 254101033374 0 000000033374 -IT1 033373 0 0 0 254101033374 0 000000033374 -AT1 033373 0 0 0 0 0 254101033374 -AT2 033373 0 0 0 0 0 254101033374 -AT3 033373 0 0 0 000000033374 0 000000033374 -AT6 033373 033374 0 0 000000033374 0 000000033374 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 459 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0654 - -FT1A 033373 033374 0 0 000000033374 0 000000033374 -FT9 033374 033374 0 0 000000033374 0 000000033374 -ET0 033374 033374 0 0 000000033374 0 000000033374 -ST1A 033374 033374 0 0 000000033374 0 000000033374 -ST9 033374 033374 0 0 000000033374 0 000000033374 - - -*033374 JSP 0,033375 -INITIAL -C(AC)=040000 033366 -FINAL -C(AC)=000000 033375 - -TIME PC MA SC FE AR MQ BR -IT0 033374 033374 0 0 265000033375 0 000000033375 -IT1 033374 0 0 0 265000033375 0 000000033375 -AT3 033374 0 0 0 000000033375 0 265000033375 -AT6 033374 033375 0 0 000000033375 0 265000033375 -FT1A 033374 033375 0 0 000000033375 0 000000033375 -FT9 033375 033375 0 0 000000033375 0 000000033375 -ET0 033375 033375 0 0 000000033375 0 000000033375 -ST1 033375 033375 0 0 000000033375 0 000000033375 -ST2 033375 033375 0 0 000000033375 0 000000033375 -ST9 033375 033375 0 0 000000033375 0 000000033375 - - -*033375 TLNE 0,761777 -INITIAL -C(AC)=000000 033375 -FINAL -C(AC)=000000 033375 - -TIME PC MA SC FE AR MQ BR -IT0 033375 033375 0 0 603000761777 0 0 -IT1 033375 0 0 0 603000761777 0 0 -AT3 033375 0 0 0 000000761777 0 603000761777 -AT6 033375 761777 0 0 000000761777 0 603000761777 -FT1A 033375 761777 0 0 000000761777 0 000000761777 -FT2 033375 761777 0 0 0 0 000000761777 -FT2RQ 033375 761777 0 0 000000033375 0 000000761777 -FT3 033375 761777 0 0 000000033375 0 000000761777 -FT9 033376 761777 0 0 000000033375 0 000000761777 -ET0 033376 761777 0 0 033375000000 0 000000761777 -ET1 033376 761777 0 0 033375000000 0 0 -ET2 033377 761777 0 0 000000033375 0 0 -ST1A 033377 761777 0 0 000000033375 0 0 -ST9 033377 761777 0 0 000000033375 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 460 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0655 - -*033377 JUMPA 0,033400 -INITIAL -C(AC)=000000 033375 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033377 033377 0 0 324000033400 0 000000033400 -IT1 033377 0 0 0 324000033400 0 000000033400 -AT3 033377 0 0 0 000000033400 0 324000033400 -AT6 033377 0 0 0 000000033400 0 324000033400 -FT1A 033377 0 0 0 000000033400 0 000000033400 -FT2 033377 0 0 0 0 0 000000033400 -FT2RQ 033377 0 0 0 000000033375 0 000000033400 -FT3 033377 0 0 0 000000033375 0 000000033400 -FT9 0 0 0 0 000000033375 0 000000033400 -ET0 0 0 0 0 000000033375 0 000000033400 -ST1A 0 0 0 0 000000033375 0 000000033400 -ST9 0 0 0 0 000000033375 0 000000033400 - - -*033400 JSP 0,033402 -INITIAL -C(AC)=000000 033375 -FINAL -C(AC)=000000 033401 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 265000033402 0 000000033402 -IT1 0 0 0 0 265000033402 0 000000033402 -AT3 0 0 0 0 000000033402 0 265000033402 -AT6 0 033402 0 0 000000033402 0 265000033402 -FT1A 0 033402 0 0 000000033402 0 000000033402 -FT9 033401 033402 0 0 000000033402 0 000000033402 -ET0 033402 033402 0 0 000000033401 0 000000033402 -ST1 033402 033402 0 0 000000033401 0 000000033402 -ST2 033402 033402 0 0 000000033401 0 000000033402 -ST9 033402 033402 0 0 000000033401 0 000000033402 - - -*033402 JUMPA 0,033403 -INITIAL -C(AC)=000000 033401 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033402 033402 0 0 324000033403 0 000000033403 -IT1 033402 0 0 0 324000033403 0 000000033403 -AT3 033402 0 0 0 000000033403 0 324000033403 -AT6 033402 033403 0 0 000000033403 0 324000033403 -FT1A 033402 033403 0 0 000000033403 0 000000033403 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 461 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0656 - -FT2 033402 033403 0 0 0 0 000000033403 -FT2RQ 033402 033403 0 0 000000033401 0 000000033403 -FT3 033402 033403 0 0 000000033401 0 000000033403 -FT9 033403 033403 0 0 000000033401 0 000000033403 -ET0 033403 033403 0 0 000000033401 0 000000033403 -ST1A 033403 033403 0 0 000000033401 0 000000033403 -ST9 033403 033403 0 0 000000033401 0 000000033403 - - -*033403 JRST 0,033405 -INITIAL -C(AC)=000000 033401 -C(E)=324000 033406 -FINAL - -C(E)=324000 033406 - -TIME PC MA SC FE AR MQ BR -IT0 033403 033403 0 0 254000033405 0 254000033405 -IT1 033403 0 0 0 254000033405 0 254000033405 -AT3 033403 0 0 0 000000033405 0 254000033405 -AT6 033403 033405 0 0 000000033405 0 254000033405 -FT1A 033403 033405 0 0 000000033405 0 254000033405 -FT9 033404 033405 0 0 000000033405 0 254000033405 -ET0 033405 033404 0 0 000000033405 0 254000033405 -ST1A 033405 033404 0 0 000000033405 0 254000033405 -ST9 033405 033404 0 0 000000033405 0 254000033405 - - -*033405 JUMPA 0,033406 -INITIAL -C(AC)=000000 033401 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033405 033405 0 0 324000033406 0 000000033406 -IT1 033405 0 0 0 324000033406 0 000000033406 -AT3 033405 0 0 0 000000033406 0 324000033406 -AT6 033405 033406 0 0 000000033406 0 324000033406 -FT1A 033405 033406 0 0 000000033406 0 000000033406 -FT2 033405 033406 0 0 0 0 000000033406 -FT2RQ 033405 033406 0 0 000000033401 0 000000033406 -FT3 033405 033406 0 0 000000033401 0 000000033406 -FT9 033406 033406 0 0 000000033401 0 000000033406 -ET0 033406 033406 0 0 000000033401 0 000000033406 -ST1A 033406 033406 0 0 000000033401 0 000000033406 -ST9 033406 033406 0 0 000000033401 0 000000033406 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 462 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0657 - -*033406 SETZ 0,000000 -INITIAL -C(AC)=000000 033401 -C(E)=000000 033401 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033406 033406 0 0 400000000000 0 0 -IT1 033406 0 0 0 400000000000 0 0 -AT3 033406 0 0 0 0 0 400000000000 -AT6 033406 0 0 0 0 0 400000000000 -FT1A 033406 0 0 0 0 0 0 -FT9 033407 0 0 0 0 0 0 -ET0 033407 0 0 0 0 0 0 -ST1 033407 0 0 0 0 0 0 -ST2 033407 0 0 0 0 0 0 -ST9 033407 0 0 0 0 0 0 - - -*033407 AOBJN 0,033410 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000001 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033407 033407 0 0 253000033410 0 000000033410 -IT1 033407 0 0 0 253000033410 0 000000033410 -AT3 033407 0 0 0 000000033410 0 253000033410 -AT6 033407 033410 0 0 000000033410 0 253000033410 -FT1A 033407 033410 0 0 000000033410 0 000000033410 -FT2 033407 033410 0 0 0 0 000000033410 -FT2RQ 033407 033410 0 0 0 0 000000033410 -FT3 033407 033410 0 0 0 0 000000033410 -FT9 033410 033410 0 0 0 0 000000033410 -ET0 033410 033410 0 0 000001000001 0 000000033410 -ST1 033410 033410 0 0 000001000001 0 000000033410 -ST2 033410 033410 0 0 000001000001 0 000000033410 -ST9 033410 033410 0 0 000001000001 0 000000033410 - - -*033410 CAME 0,034442 -INITIAL -C(AC)=000001 000001 -C(E)=000001 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033410 033410 0 0 312000034442 0 000001000001 -IT1 033410 0 0 0 312000034442 0 000001000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 463 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0658 - -AT3 033410 0 0 0 000000034442 0 312000034442 -AT6 033410 034442 0 0 000000034442 0 312000034442 -FT0 033410 034442 0 0 000001000001 0 312000034442 -FT1A 033410 034442 0 0 000001000001 0 000001000001 -FT2 033410 034442 0 0 0 0 000001000001 -FT2RQ 033410 034442 0 0 000001000001 0 000001000001 -FT3 033410 034442 0 0 000001000001 0 000001000001 -FT9 033411 034442 0 0 000001000001 0 000001000001 -ET0 033412 034442 0 0 0 0 000001000001 -ST1A 033412 034442 0 0 0 0 000001000001 -ST9 033412 034442 0 0 0 0 000001000001 - - -*033412 JUMPA 0,033413 -INITIAL -C(AC)=000001 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033412 033412 0 0 324000033413 0 000000033413 -IT1 033412 0 0 0 324000033413 0 000000033413 -AT3 033412 0 0 0 000000033413 0 324000033413 -AT6 033412 033413 0 0 000000033413 0 324000033413 -FT1A 033412 033413 0 0 000000033413 0 000000033413 -FT2 033412 033413 0 0 0 0 000000033413 -FT2RQ 033412 033413 0 0 000001000001 0 000000033413 -FT3 033412 033413 0 0 000001000001 0 000000033413 -FT9 033413 033413 0 0 000001000001 0 000000033413 -ET0 033413 033413 0 0 000001000001 0 000000033413 -ST1A 033413 033413 0 0 000001000001 0 000000033413 -ST9 033413 033413 0 0 000001000001 0 000000033413 - - -*033413 MOVE 0,034540 -INITIAL -C(AC)=000001 000001 -C(E)=377777 377777 -FINAL -C(AC)=377777 377777 - -TIME PC MA SC FE AR MQ BR -IT0 033413 033413 0 0 200000034540 0 377777377777 -IT1 033413 0 0 0 200000034540 0 377777377777 -AT3 033413 0 0 0 000000034540 0 200000034540 -AT6 033413 034540 0 0 000000034540 0 200000034540 -FT0 033413 034540 0 0 377777377777 0 200000034540 -FT1A 033413 034540 0 0 377777377777 0 377777377777 -FT9 033414 034540 0 0 377777377777 0 377777377777 -ET0 033414 034540 0 0 377777377777 0 377777377777 -ST1 033414 034540 0 0 377777377777 0 377777377777 -ST2 033414 034540 0 0 377777377777 0 377777377777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 464 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0659 - -ST9 033414 034540 0 0 377777377777 0 377777377777 - - -*033414 AOBJP 0,033415 -INITIAL -C(AC)=377777 377777 -FINAL -C(AC)=400000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 033414 033414 0 0 252000033415 0 000000033415 -IT1 033414 0 0 0 252000033415 0 000000033415 -AT3 033414 0 0 0 000000033415 0 252000033415 -AT6 033414 033415 0 0 000000033415 0 252000033415 -FT1A 033414 033415 0 0 000000033415 0 000000033415 -FT2 033414 033415 0 0 0 0 000000033415 -FT2RQ 033414 033415 0 0 377777377777 0 000000033415 -FT3 033414 033415 0 0 377777377777 0 000000033415 -FT9 033415 033415 0 0 377777377777 0 000000033415 -ET0 033415 033415 0 0 400000400000 0 000000033415 -ST1 033415 033415 0 0 400000400000 0 000000033415 -ST2 033415 033415 0 0 400000400000 0 000000033415 -ST9 033415 033415 0 0 400000400000 0 000000033415 - - -*033415 CAME 0,034541 -INITIAL -C(AC)=400000 400000 -C(E)=400000 400000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033415 033415 0 0 312000034541 0 400000400000 -IT1 033415 0 0 0 312000034541 0 400000400000 -AT3 033415 0 0 0 000000034541 0 312000034541 -AT6 033415 034541 0 0 000000034541 0 312000034541 -FT0 033415 034541 0 0 400000400000 0 312000034541 -FT1A 033415 034541 0 0 400000400000 0 400000400000 -FT2 033415 034541 0 0 0 0 400000400000 -FT2RQ 033415 034541 0 0 400000400000 0 400000400000 -FT3 033415 034541 0 0 400000400000 0 400000400000 -FT9 033416 034541 0 0 400000400000 0 400000400000 -ET0 033417 034541 0 0 0 0 400000400000 -ST1A 033417 034541 0 0 0 0 400000400000 -ST9 033417 034541 0 0 0 0 400000400000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 465 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0660 - -*033417 JUMPA 0,033420 -INITIAL -C(AC)=400000 400000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033417 033417 0 0 324000033420 0 000000033420 -IT1 033417 0 0 0 324000033420 0 000000033420 -AT3 033417 0 0 0 000000033420 0 324000033420 -AT6 033417 033420 0 0 000000033420 0 324000033420 -FT1A 033417 033420 0 0 000000033420 0 000000033420 -FT2 033417 033420 0 0 0 0 000000033420 -FT2RQ 033417 033420 0 0 400000400000 0 000000033420 -FT3 033417 033420 0 0 400000400000 0 000000033420 -FT9 033420 033420 0 0 400000400000 0 000000033420 -ET0 033420 033420 0 0 400000400000 0 000000033420 -ST1A 033420 033420 0 0 400000400000 0 000000033420 -ST9 033420 033420 0 0 400000400000 0 000000033420 - - -*033420 SETZ 0,000000 -INITIAL -C(AC)=400000 400000 -C(E)=400000 400000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033420 033420 0 0 400000000000 0 0 -IT1 033420 0 0 0 400000000000 0 0 -AT3 033420 0 0 0 0 0 400000000000 -AT6 033420 0 0 0 0 0 400000000000 -FT1A 033420 0 0 0 0 0 0 -FT9 033421 0 0 0 0 0 0 -ET0 033421 0 0 0 0 0 0 -ST1 033421 0 0 0 0 0 0 -ST2 033421 0 0 0 0 0 0 -ST9 033421 0 0 0 0 0 0 - - -*033421 AOBJN 0,033423 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000001 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033421 033421 0 0 253000033423 0 000000033423 -IT1 033421 0 0 0 253000033423 0 000000033423 -AT3 033421 0 0 0 000000033423 0 253000033423 -AT6 033421 033423 0 0 000000033423 0 253000033423 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 466 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0661 - -FT1A 033421 033423 0 0 000000033423 0 000000033423 -FT2 033421 033423 0 0 0 0 000000033423 -FT2RQ 033421 033423 0 0 0 0 000000033423 -FT3 033421 033423 0 0 0 0 000000033423 -FT9 033422 033423 0 0 0 0 000000033423 -ET0 033422 033423 0 0 000001000001 0 000000033423 -ST1 033422 033423 0 0 000001000001 0 000000033423 -ST2 033422 033423 0 0 000001000001 0 000000033423 -ST9 033422 033423 0 0 000001000001 0 000000033423 - - -*033422 SKIPA 0,000000 -INITIAL -C(AC)=000001 000001 -C(E)=000001 000001 -FINAL -C(AC)=000001 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033422 033422 0 0 334000000000 0 000001000001 -IT1 033422 0 0 0 334000000000 0 000001000001 -AT3 033422 0 0 0 0 0 334000000000 -AT6 033422 0 0 0 0 0 334000000000 -FT0 033422 0 0 0 000001000001 0 334000000000 -FT1A 033422 0 0 0 000001000001 0 000001000001 -FT9 033423 0 0 0 000001000001 0 000001000001 -ET0 033424 0 0 0 000001000001 0 000001000001 -ST1A 033424 0 0 0 000001000001 0 000001000001 -ST9 033424 0 0 0 000001000001 0 000001000001 - - -*033424 JUMPA 0,033425 -INITIAL -C(AC)=000001 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033424 033424 0 0 324000033425 0 000000033425 -IT1 033424 0 0 0 324000033425 0 000000033425 -AT3 033424 0 0 0 000000033425 0 324000033425 -AT6 033424 033425 0 0 000000033425 0 324000033425 -FT1A 033424 033425 0 0 000000033425 0 000000033425 -FT2 033424 033425 0 0 0 0 000000033425 -FT2RQ 033424 033425 0 0 000001000001 0 000000033425 -FT3 033424 033425 0 0 000001000001 0 000000033425 -FT9 033425 033425 0 0 000001000001 0 000000033425 -ET0 033425 033425 0 0 000001000001 0 000000033425 -ST1A 033425 033425 0 0 000001000001 0 000000033425 -ST9 033425 033425 0 0 000001000001 0 000000033425 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 467 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0662 - -*033425 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 033425 033425 0 0 400000000000 0 0 -IT1 033425 0 0 0 400000000000 0 0 -AT3 033425 0 0 0 0 0 400000000000 -AT6 033425 0 0 0 0 0 400000000000 -FT1A 033425 0 0 0 0 0 0 -FT9 033426 0 0 0 0 0 0 -ET0 033426 0 0 0 0 0 0 -ST1 033426 0 0 0 0 0 0 -ST2 033426 0 0 0 0 0 0 -ST9 033426 0 0 0 0 0 0 - - -*033426 AOBJP 0,033430 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000001 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033426 033426 0 0 252000033430 0 000000033430 -IT1 033426 0 0 0 252000033430 0 000000033430 -AT3 033426 0 0 0 000000033430 0 252000033430 -AT6 033426 033430 0 0 000000033430 0 252000033430 -FT1A 033426 033430 0 0 000000033430 0 000000033430 -FT2 033426 033430 0 0 0 0 000000033430 -FT2RQ 033426 033430 0 0 0 0 000000033430 -FT3 033426 033430 0 0 0 0 000000033430 -FT9 033427 033430 0 0 0 0 000000033430 -ET0 033430 033430 0 0 000001000001 0 000000033430 -ST1 033430 033430 0 0 000001000001 0 000000033430 -ST2 033430 033430 0 0 000001000001 0 000000033430 -ST9 033430 033430 0 0 000001000001 0 000000033430 - - -*033430 JUMPA 0,033431 -INITIAL -C(AC)=000001 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033430 033430 0 0 324000033431 0 000000033431 -IT1 033430 0 0 0 324000033431 0 000000033431 -AT3 033430 0 0 0 000000033431 0 324000033431 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 468 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0663 - -AT6 033430 033431 0 0 000000033431 0 324000033431 -FT1A 033430 033431 0 0 000000033431 0 000000033431 -FT2 033430 033431 0 0 0 0 000000033431 -FT2RQ 033430 033431 0 0 000001000001 0 000000033431 -FT3 033430 033431 0 0 000001000001 0 000000033431 -FT9 033431 033431 0 0 000001000001 0 000000033431 -ET0 033431 033431 0 0 000001000001 0 000000033431 -ST1A 033431 033431 0 0 000001000001 0 000000033431 -ST9 033431 033431 0 0 000001000001 0 000000033431 - - -*033431 MOVE 0,034541 -INITIAL -C(AC)=000001 000001 -C(E)=400000 400000 -FINAL -C(AC)=400000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 033431 033431 0 0 200000034541 0 400000400000 -IT1 033431 0 0 0 200000034541 0 400000400000 -AT3 033431 0 0 0 000000034541 0 200000034541 -AT6 033431 034541 0 0 000000034541 0 200000034541 -FT0 033431 034541 0 0 400000400000 0 200000034541 -FT1A 033431 034541 0 0 400000400000 0 400000400000 -FT9 033432 034541 0 0 400000400000 0 400000400000 -ET0 033432 034541 0 0 400000400000 0 400000400000 -ST1 033432 034541 0 0 400000400000 0 400000400000 -ST2 033432 034541 0 0 400000400000 0 400000400000 -ST9 033432 034541 0 0 400000400000 0 400000400000 - - -*033432 AOBJN 0,033434 -INITIAL -C(AC)=400000 400000 -FINAL -C(AC)=400001 400001 - -TIME PC MA SC FE AR MQ BR -IT0 033432 033432 0 0 253000033434 0 000000033434 -IT1 033432 0 0 0 253000033434 0 000000033434 -AT3 033432 0 0 0 000000033434 0 253000033434 -AT6 033432 033434 0 0 000000033434 0 253000033434 -FT1A 033432 033434 0 0 000000033434 0 000000033434 -FT2 033432 033434 0 0 0 0 000000033434 -FT2RQ 033432 033434 0 0 400000400000 0 000000033434 -FT3 033432 033434 0 0 400000400000 0 000000033434 -FT9 033433 033434 0 0 400000400000 0 000000033434 -ET0 033434 033434 0 0 400001400001 0 000000033434 -ST1 033434 033434 0 0 400001400001 0 000000033434 -ST2 033434 033434 0 0 400001400001 0 000000033434 -ST9 033434 033434 0 0 400001400001 0 000000033434 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 469 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0664 - - - -*033434 JUMPA 0,033435 -INITIAL -C(AC)=400001 400001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033434 033434 0 0 324000033435 0 000000033435 -IT1 033434 0 0 0 324000033435 0 000000033435 -AT3 033434 0 0 0 000000033435 0 324000033435 -AT6 033434 033435 0 0 000000033435 0 324000033435 -FT1A 033434 033435 0 0 000000033435 0 000000033435 -FT2 033434 033435 0 0 0 0 000000033435 -FT2RQ 033434 033435 0 0 400001400001 0 000000033435 -FT3 033434 033435 0 0 400001400001 0 000000033435 -FT9 033435 033435 0 0 400001400001 0 000000033435 -ET0 033435 033435 0 0 400001400001 0 000000033435 -ST1A 033435 033435 0 0 400001400001 0 000000033435 -ST9 033435 033435 0 0 400001400001 0 000000033435 - - -*033435 MOVE 0,034541 -INITIAL -C(AC)=400001 400001 -C(E)=400000 400000 -FINAL -C(AC)=400000 400000 - -TIME PC MA SC FE AR MQ BR -IT0 033435 033435 0 0 200000034541 0 400000400000 -IT1 033435 0 0 0 200000034541 0 400000400000 -AT3 033435 0 0 0 000000034541 0 200000034541 -AT6 033435 034541 0 0 000000034541 0 200000034541 -FT0 033435 034541 0 0 400000400000 0 200000034541 -FT1A 033435 034541 0 0 400000400000 0 400000400000 -FT9 033436 034541 0 0 400000400000 0 400000400000 -ET0 033436 034541 0 0 400000400000 0 400000400000 -ST1 033436 034541 0 0 400000400000 0 400000400000 -ST2 033436 034541 0 0 400000400000 0 400000400000 -ST9 033436 034541 0 0 400000400000 0 400000400000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 470 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0665 - -*033436 AOBJP 0,033440 -INITIAL -C(AC)=400000 400000 -FINAL -C(AC)=400001 400001 - -TIME PC MA SC FE AR MQ BR -IT0 033436 033436 0 0 252000033440 0 000000033440 -IT1 033436 0 0 0 252000033440 0 000000033440 -AT3 033436 0 0 0 000000033440 0 252000033440 -AT6 033436 033440 0 0 000000033440 0 252000033440 -FT1A 033436 033440 0 0 000000033440 0 000000033440 -FT2 033436 033440 0 0 0 0 000000033440 -FT2RQ 033436 033440 0 0 400000400000 0 000000033440 -FT3 033436 033440 0 0 400000400000 0 000000033440 -FT9 033437 033440 0 0 400000400000 0 000000033440 -ET0 033437 033440 0 0 400001400001 0 000000033440 -ST1 033437 033440 0 0 400001400001 0 000000033440 -ST2 033437 033440 0 0 400001400001 0 000000033440 -ST9 033437 033440 0 0 400001400001 0 000000033440 - - -*033437 SKIPA 0,000000 -INITIAL -C(AC)=400001 400001 -C(E)=400001 400001 -FINAL -C(AC)=400001 400001 - -TIME PC MA SC FE AR MQ BR -IT0 033437 033437 0 0 334000000000 0 400001400001 -IT1 033437 0 0 0 334000000000 0 400001400001 -AT3 033437 0 0 0 0 0 334000000000 -AT6 033437 0 0 0 0 0 334000000000 -FT0 033437 0 0 0 400001400001 0 334000000000 -FT1A 033437 0 0 0 400001400001 0 400001400001 -FT9 033440 0 0 0 400001400001 0 400001400001 -ET0 033441 0 0 0 400001400001 0 400001400001 -ST1A 033441 0 0 0 400001400001 0 400001400001 -ST9 033441 0 0 0 400001400001 0 400001400001 - - -*033441 JUMPA 0,033442 -INITIAL -C(AC)=400001 400001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033441 033441 0 0 324000033442 0 000000033442 -IT1 033441 0 0 0 324000033442 0 000000033442 -AT3 033441 0 0 0 000000033442 0 324000033442 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 471 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0666 - -AT6 033441 033442 0 0 000000033442 0 324000033442 -FT1A 033441 033442 0 0 000000033442 0 000000033442 -FT2 033441 033442 0 0 0 0 000000033442 -FT2RQ 033441 033442 0 0 400001400001 0 000000033442 -FT3 033441 033442 0 0 400001400001 0 000000033442 -FT9 033442 033442 0 0 400001400001 0 000000033442 -ET0 033442 033442 0 0 400001400001 0 000000033442 -ST1A 033442 033442 0 0 400001400001 0 000000033442 -ST9 033442 033442 0 0 400001400001 0 000000033442 - - -*033442 SETO 0,000000 -INITIAL -C(AC)=400001 400001 -C(E)=400001 400001 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033442 033442 0 0 474000000000 0 0 -IT1 033442 0 0 0 474000000000 0 0 -AT3 033442 0 0 0 0 0 474000000000 -AT6 033442 0 0 0 0 0 474000000000 -FT1A 033442 0 0 0 0 0 0 -FT9 033443 0 0 0 0 0 0 -ET0 033443 0 0 0 777777777777 0 0 -ST1 033443 0 0 0 777777777777 0 0 -ST2 033443 0 0 0 777777777777 0 0 -ST9 033443 0 0 0 777777777777 0 0 - - -*033443 AOBJN 0,033444 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000001 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033443 033443 0 0 253000033444 0 000000033444 -IT1 033443 0 0 0 253000033444 0 000000033444 -AT3 033443 0 0 0 000000033444 0 253000033444 -AT6 033443 033444 0 0 000000033444 0 253000033444 -FT1A 033443 033444 0 0 000000033444 0 000000033444 -FT2 033443 033444 0 0 0 0 000000033444 -FT2RQ 033443 033444 0 0 777777777777 0 000000033444 -FT3 033443 033444 0 0 777777777777 0 000000033444 -FT9 033444 033444 0 0 777777777777 0 000000033444 -ET0 033444 033444 0 0 000001000000 0 000000033444 -ST1 033444 033444 0 0 000001000000 0 000000033444 -ST2 033444 033444 0 0 000001000000 0 000000033444 -ST9 033444 033444 0 0 000001000000 0 000000033444 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 472 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0667 - - -*033444 CAME 0,034444 -INITIAL -C(AC)=000001 000000 -C(E)=000001 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033444 033444 0 0 312000034444 0 000001000000 -IT1 033444 0 0 0 312000034444 0 000001000000 -AT3 033444 0 0 0 000000034444 0 312000034444 -AT6 033444 034444 0 0 000000034444 0 312000034444 -FT0 033444 034444 0 0 000001000000 0 312000034444 -FT1A 033444 034444 0 0 000001000000 0 000001000000 -FT2 033444 034444 0 0 0 0 000001000000 -FT2RQ 033444 034444 0 0 000001000000 0 000001000000 -FT3 033444 034444 0 0 000001000000 0 000001000000 -FT9 033445 034444 0 0 000001000000 0 000001000000 -ET0 033446 034444 0 0 0 0 000001000000 -ST1A 033446 034444 0 0 0 0 000001000000 -ST9 033446 034444 0 0 0 0 000001000000 - - -*033446 JUMPA 0,033447 -INITIAL -C(AC)=000001 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033446 033446 0 0 324000033447 0 000000033447 -IT1 033446 0 0 0 324000033447 0 000000033447 -AT3 033446 0 0 0 000000033447 0 324000033447 -AT6 033446 033447 0 0 000000033447 0 324000033447 -FT1A 033446 033447 0 0 000000033447 0 000000033447 -FT2 033446 033447 0 0 0 0 000000033447 -FT2RQ 033446 033447 0 0 000001000000 0 000000033447 -FT3 033446 033447 0 0 000001000000 0 000000033447 -FT9 033447 033447 0 0 000001000000 0 000000033447 -ET0 033447 033447 0 0 000001000000 0 000000033447 -ST1A 033447 033447 0 0 000001000000 0 000000033447 -ST9 033447 033447 0 0 000001000000 0 000000033447 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 473 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0668 - -*033447 JFCL 17,033450 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033447 033447 0 0 255740033450 0 000000033450 -IT1 033447 0 0 0 255740033450 0 000000033450 -AT3 033447 0 0 0 000000033450 0 255740033450 -AT6 033447 033450 0 0 000000033450 0 255740033450 -FT1A 033447 033450 0 0 000000033450 0 000000033450 -FT9 033450 033450 0 0 000000033450 0 000000033450 -ET0 033450 033450 0 0 000000033450 0 000000033450 -ST1A 033450 033450 0 0 000000033450 0 000000033450 -ST9 033450 033450 0 0 000000033450 0 000000033450 - - -*033450 MOVNI 0,000000 -INITIAL -C(AC)=000001 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033450 033450 0 0 211000000000 0 0 -IT1 033450 0 0 0 211000000000 0 0 -AT3 033450 0 0 0 0 0 211000000000 -AT6 033450 0 0 0 0 0 211000000000 -FT1A 033450 0 0 0 0 0 0 -FT9 033451 0 0 0 0 0 0 -ET0 033451 0 0 0 0 0 0 -ST1 033451 0 0 0 0 0 0 -ST2 033451 0 0 0 0 0 0 -ST9 033451 0 0 0 0 0 0 - - -*033451 JFCL 4,033453 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033451 033451 0 0 255200033453 0 000000033453 -IT1 033451 0 0 0 255200033453 0 000000033453 -AT3 033451 0 0 0 000000033453 0 255200033453 -AT6 033451 033453 0 0 000000033453 0 255200033453 -FT1A 033451 033453 0 0 000000033453 0 000000033453 -FT9 033452 033453 0 0 000000033453 0 000000033453 -ET0 033453 033453 0 0 000000033453 0 000000033453 -ST1A 033453 033453 0 0 000000033453 0 000000033453 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 474 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0669 - -ST9 033453 033453 0 0 000000033453 0 000000033453 - - -*033453 JUMPA 0,033454 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033453 033453 0 0 324000033454 0 000000033454 -IT1 033453 0 0 0 324000033454 0 000000033454 -AT3 033453 0 0 0 000000033454 0 324000033454 -AT6 033453 033454 0 0 000000033454 0 324000033454 -FT1A 033453 033454 0 0 000000033454 0 000000033454 -FT2 033453 033454 0 0 0 0 000000033454 -FT2RQ 033453 033454 0 0 0 0 000000033454 -FT3 033453 033454 0 0 0 0 000000033454 -FT9 033454 033454 0 0 0 0 000000033454 -ET0 033454 033454 0 0 0 0 000000033454 -ST1A 033454 033454 0 0 0 0 000000033454 -ST9 033454 033454 0 0 0 0 000000033454 - - -*033454 JFCL 2,033456 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033454 033454 0 0 255100033456 0 000000033456 -IT1 033454 0 0 0 255100033456 0 000000033456 -AT3 033454 0 0 0 000000033456 0 255100033456 -AT6 033454 033456 0 0 000000033456 0 255100033456 -FT1A 033454 033456 0 0 000000033456 0 000000033456 -FT9 033455 033456 0 0 000000033456 0 000000033456 -ET0 033456 033456 0 0 000000033456 0 000000033456 -ST1A 033456 033456 0 0 000000033456 0 000000033456 -ST9 033456 033456 0 0 000000033456 0 000000033456 - - -*033456 JUMPA 0,033457 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033456 033456 0 0 324000033457 0 000000033457 -IT1 033456 0 0 0 324000033457 0 000000033457 -AT3 033456 0 0 0 000000033457 0 324000033457 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 475 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0670 - -AT6 033456 033457 0 0 000000033457 0 324000033457 -FT1A 033456 033457 0 0 000000033457 0 000000033457 -FT2 033456 033457 0 0 0 0 000000033457 -FT2RQ 033456 033457 0 0 0 0 000000033457 -FT3 033456 033457 0 0 0 0 000000033457 -FT9 033457 033457 0 0 0 0 000000033457 -ET0 033457 033457 0 0 0 0 000000033457 -ST1A 033457 033457 0 0 0 0 000000033457 -ST9 033457 033457 0 0 0 0 000000033457 - - -*033457 JFCL 10,033461 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033457 033457 0 0 255400033461 0 000000033461 -IT1 033457 0 0 0 255400033461 0 000000033461 -AT3 033457 0 0 0 000000033461 0 255400033461 -AT6 033457 033461 0 0 000000033461 0 255400033461 -FT1A 033457 033461 0 0 000000033461 0 000000033461 -FT9 033460 033461 0 0 000000033461 0 000000033461 -ET0 033460 033461 0 0 000000033461 0 000000033461 -ST1A 033460 033461 0 0 000000033461 0 000000033461 -ST9 033460 033461 0 0 000000033461 0 000000033461 - - -*033460 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 033460 033460 0 0 334000000000 0 0 -IT1 033460 0 0 0 334000000000 0 0 -AT3 033460 0 0 0 0 0 334000000000 -AT6 033460 0 0 0 0 0 334000000000 -FT0 033460 0 0 0 0 0 334000000000 -FT1A 033460 0 0 0 0 0 0 -FT9 033461 0 0 0 0 0 0 -ET0 033462 0 0 0 0 0 0 -ST1A 033462 0 0 0 0 0 0 -ST9 033462 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 476 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0671 - -*033462 JUMPA 0,033463 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033462 033462 0 0 324000033463 0 000000033463 -IT1 033462 0 0 0 324000033463 0 000000033463 -AT3 033462 0 0 0 000000033463 0 324000033463 -AT6 033462 033463 0 0 000000033463 0 324000033463 -FT1A 033462 033463 0 0 000000033463 0 000000033463 -FT2 033462 033463 0 0 0 0 000000033463 -FT2RQ 033462 033463 0 0 0 0 000000033463 -FT3 033462 033463 0 0 0 0 000000033463 -FT9 033463 033463 0 0 0 0 000000033463 -ET0 033463 033463 0 0 0 0 000000033463 -ST1A 033463 033463 0 0 0 0 000000033463 -ST9 033463 033463 0 0 0 0 000000033463 - - -*033463 JFCL 1,033465 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033463 033463 0 0 255040033465 0 000000033465 -IT1 033463 0 0 0 255040033465 0 000000033465 -AT3 033463 0 0 0 000000033465 0 255040033465 -AT6 033463 033465 0 0 000000033465 0 255040033465 -FT1A 033463 033465 0 0 000000033465 0 000000033465 -FT9 033464 033465 0 0 000000033465 0 000000033465 -ET0 033464 033465 0 0 000000033465 0 000000033465 -ST1A 033464 033465 0 0 000000033465 0 000000033465 -ST9 033464 033465 0 0 000000033465 0 000000033465 - - -*033464 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 033464 033464 0 0 334000000000 0 0 -IT1 033464 0 0 0 334000000000 0 0 -AT3 033464 0 0 0 0 0 334000000000 -AT6 033464 0 0 0 0 0 334000000000 -FT0 033464 0 0 0 0 0 334000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 477 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0672 - -FT1A 033464 0 0 0 0 0 0 -FT9 033465 0 0 0 0 0 0 -ET0 033466 0 0 0 0 0 0 -ST1A 033466 0 0 0 0 0 0 -ST9 033466 0 0 0 0 0 0 - - -*033466 JUMPA 0,033467 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033466 033466 0 0 324000033467 0 000000033467 -IT1 033466 0 0 0 324000033467 0 000000033467 -AT3 033466 0 0 0 000000033467 0 324000033467 -AT6 033466 033467 0 0 000000033467 0 324000033467 -FT1A 033466 033467 0 0 000000033467 0 000000033467 -FT2 033466 033467 0 0 0 0 000000033467 -FT2RQ 033466 033467 0 0 0 0 000000033467 -FT3 033466 033467 0 0 0 0 000000033467 -FT9 033467 033467 0 0 0 0 000000033467 -ET0 033467 033467 0 0 0 0 000000033467 -ST1A 033467 033467 0 0 0 0 000000033467 -ST9 033467 033467 0 0 0 0 000000033467 - - -*033467 JFCL 17,033470 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033467 033467 0 0 255740033470 0 000000033470 -IT1 033467 0 0 0 255740033470 0 000000033470 -AT3 033467 0 0 0 000000033470 0 255740033470 -AT6 033467 033470 0 0 000000033470 0 255740033470 -FT1A 033467 033470 0 0 000000033470 0 000000033470 -FT9 033470 033470 0 0 000000033470 0 000000033470 -ET0 033470 033470 0 0 000000033470 0 000000033470 -ST1A 033470 033470 0 0 000000033470 0 000000033470 -ST9 033470 033470 0 0 000000033470 0 000000033470 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 478 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0673 - -*033470 MOVN 0,034466 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033470 033470 0 0 210000034466 0 777777777777 -IT1 033470 0 0 0 210000034466 0 777777777777 -AT3 033470 0 0 0 000000034466 0 210000034466 -AT6 033470 034466 0 0 000000034466 0 210000034466 -FT0 033470 034466 0 0 777777777777 0 210000034466 -FT1A 033470 034466 0 0 777777777777 0 777777777777 -FT9 033471 034466 0 0 777777777777 0 777777777777 -ET0 033471 034466 0 0 000000000001 0 777777777777 -ST1 033471 034466 0 0 000000000001 0 777777777777 -ST2 033471 034466 0 0 000000000001 0 777777777777 -ST9 033471 034466 0 0 000000000001 0 777777777777 - - -*033471 JFCL 17,033473 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033471 033471 0 0 255740033473 0 000000033473 -IT1 033471 0 0 0 255740033473 0 000000033473 -AT3 033471 0 0 0 000000033473 0 255740033473 -AT6 033471 033473 0 0 000000033473 0 255740033473 -FT1A 033471 033473 0 0 000000033473 0 000000033473 -FT9 033472 033473 0 0 000000033473 0 000000033473 -ET0 033472 033473 0 0 000000033473 0 000000033473 -ST1A 033472 033473 0 0 000000033473 0 000000033473 -ST9 033472 033473 0 0 000000033473 0 000000033473 - - -*033472 SKIPA 0,000000 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033472 033472 0 0 334000000000 0 000000000001 -IT1 033472 0 0 0 334000000000 0 000000000001 -AT3 033472 0 0 0 0 0 334000000000 -AT6 033472 0 0 0 0 0 334000000000 -FT0 033472 0 0 0 000000000001 0 334000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 479 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0674 - -FT1A 033472 0 0 0 000000000001 0 000000000001 -FT9 033473 0 0 0 000000000001 0 000000000001 -ET0 033474 0 0 0 000000000001 0 000000000001 -ST1A 033474 0 0 0 000000000001 0 000000000001 -ST9 033474 0 0 0 000000000001 0 000000000001 - - -*033474 JUMPA 0,033475 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033474 033474 0 0 324000033475 0 000000033475 -IT1 033474 0 0 0 324000033475 0 000000033475 -AT3 033474 0 0 0 000000033475 0 324000033475 -AT6 033474 033475 0 0 000000033475 0 324000033475 -FT1A 033474 033475 0 0 000000033475 0 000000033475 -FT2 033474 033475 0 0 0 0 000000033475 -FT2RQ 033474 033475 0 0 000000000001 0 000000033475 -FT3 033474 033475 0 0 000000000001 0 000000033475 -FT9 033475 033475 0 0 000000000001 0 000000033475 -ET0 033475 033475 0 0 000000000001 0 000000033475 -ST1A 033475 033475 0 0 000000000001 0 000000033475 -ST9 033475 033475 0 0 000000000001 0 000000033475 - - -*033475 JFCL 17,033476 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033475 033475 0 0 255740033476 0 000000033476 -IT1 033475 0 0 0 255740033476 0 000000033476 -AT3 033475 0 0 0 000000033476 0 255740033476 -AT6 033475 033476 0 0 000000033476 0 255740033476 -FT1A 033475 033476 0 0 000000033476 0 000000033476 -FT9 033476 033476 0 0 000000033476 0 000000033476 -ET0 033476 033476 0 0 000000033476 0 000000033476 -ST1A 033476 033476 0 0 000000033476 0 000000033476 -ST9 033476 033476 0 0 000000033476 0 000000033476 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 480 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0675 - -*033476 MOVN 0,034465 -INITIAL -C(AC)=000000 000001 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033476 033476 0 0 210000034465 0 400000000000 -IT1 033476 0 0 0 210000034465 0 400000000000 -AT3 033476 0 0 0 000000034465 0 210000034465 -AT6 033476 034465 0 0 000000034465 0 210000034465 -FT0 033476 034465 0 0 400000000000 0 210000034465 -FT1A 033476 034465 0 0 400000000000 0 400000000000 -FT9 033477 034465 0 0 400000000000 0 400000000000 -ET0 033477 034465 0 0 400000000000 0 400000000000 -ST1 033477 034465 0 0 400000000000 0 400000000000 -ST2 033477 034465 0 0 400000000000 0 400000000000 -ST9 033477 034465 0 0 400000000000 0 400000000000 - - -*033477 JFCL 10,033501 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033477 033477 0 0 255400033501 0 000000033501 -IT1 033477 0 0 0 255400033501 0 000000033501 -AT3 033477 0 0 0 000000033501 0 255400033501 -AT6 033477 033501 0 0 000000033501 0 255400033501 -FT1A 033477 033501 0 0 000000033501 0 000000033501 -FT9 0 033501 0 0 000000033501 0 000000033501 -ET0 033501 033501 0 0 000000033501 0 000000033501 -ST1A 033501 033501 0 0 000000033501 0 000000033501 -ST9 033501 033501 0 0 000000033501 0 000000033501 - - -*033501 JUMPA 0,033502 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033501 033501 0 0 324000033502 0 000000033502 -IT1 033501 0 0 0 324000033502 0 000000033502 -AT3 033501 0 0 0 000000033502 0 324000033502 -AT6 033501 033502 0 0 000000033502 0 324000033502 -FT1A 033501 033502 0 0 000000033502 0 000000033502 -FT2 033501 033502 0 0 0 0 000000033502 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 481 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0676 - -FT2RQ 033501 033502 0 0 400000000000 0 000000033502 -FT3 033501 033502 0 0 400000000000 0 000000033502 -FT9 033502 033502 0 0 400000000000 0 000000033502 -ET0 033502 033502 0 0 400000000000 0 000000033502 -ST1A 033502 033502 0 0 400000000000 0 000000033502 -ST9 033502 033502 0 0 400000000000 0 000000033502 - - -*033502 JFCL 2,033504 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033502 033502 0 0 255100033504 0 000000033504 -IT1 033502 0 0 0 255100033504 0 000000033504 -AT3 033502 0 0 0 000000033504 0 255100033504 -AT6 033502 033504 0 0 000000033504 0 255100033504 -FT1A 033502 033504 0 0 000000033504 0 000000033504 -FT9 033503 033504 0 0 000000033504 0 000000033504 -ET0 033504 033504 0 0 000000033504 0 000000033504 -ST1A 033504 033504 0 0 000000033504 0 000000033504 -ST9 033504 033504 0 0 000000033504 0 000000033504 - - -*033504 JUMPA 0,033505 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033504 033504 0 0 324000033505 0 000000033505 -IT1 033504 0 0 0 324000033505 0 000000033505 -AT3 033504 0 0 0 000000033505 0 324000033505 -AT6 033504 033505 0 0 000000033505 0 324000033505 -FT1A 033504 033505 0 0 000000033505 0 000000033505 -FT2 033504 033505 0 0 0 0 000000033505 -FT2RQ 033504 033505 0 0 400000000000 0 000000033505 -FT3 033504 033505 0 0 400000000000 0 000000033505 -FT9 033505 033505 0 0 400000000000 0 000000033505 -ET0 033505 033505 0 0 400000000000 0 000000033505 -ST1A 033505 033505 0 0 400000000000 0 000000033505 -ST9 033505 033505 0 0 400000000000 0 000000033505 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 482 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0677 - -*033505 JFCL 4,033507 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033505 033505 0 0 255200033507 0 000000033507 -IT1 033505 0 0 0 255200033507 0 000000033507 -AT3 033505 0 0 0 000000033507 0 255200033507 -AT6 033505 033507 0 0 000000033507 0 255200033507 -FT1A 033505 033507 0 0 000000033507 0 000000033507 -FT9 033506 033507 0 0 000000033507 0 000000033507 -ET0 033506 033507 0 0 000000033507 0 000000033507 -ST1A 033506 033507 0 0 000000033507 0 000000033507 -ST9 033506 033507 0 0 000000033507 0 000000033507 - - -*033506 SKIPA 0,000000 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033506 033506 0 0 334000000000 0 400000000000 -IT1 033506 0 0 0 334000000000 0 400000000000 -AT3 033506 0 0 0 0 0 334000000000 -AT6 033506 0 0 0 0 0 334000000000 -FT0 033506 0 0 0 400000000000 0 334000000000 -FT1A 033506 0 0 0 400000000000 0 400000000000 -FT9 033507 0 0 0 400000000000 0 400000000000 -ET0 033510 0 0 0 400000000000 0 400000000000 -ST1A 033510 0 0 0 400000000000 0 400000000000 -ST9 033510 0 0 0 400000000000 0 400000000000 - - -*033510 JUMPA 0,033511 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033510 033510 0 0 324000033511 0 000000033511 -IT1 033510 0 0 0 324000033511 0 000000033511 -AT3 033510 0 0 0 000000033511 0 324000033511 -AT6 033510 033511 0 0 000000033511 0 324000033511 -FT1A 033510 033511 0 0 000000033511 0 000000033511 -FT2 033510 033511 0 0 0 0 000000033511 -FT2RQ 033510 033511 0 0 400000000000 0 000000033511 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 483 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0678 - -FT3 033510 033511 0 0 400000000000 0 000000033511 -FT9 033511 033511 0 0 400000000000 0 000000033511 -ET0 033511 033511 0 0 400000000000 0 000000033511 -ST1A 033511 033511 0 0 400000000000 0 000000033511 -ST9 033511 033511 0 0 400000000000 0 000000033511 - - -*033511 JFCL 1,033513 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033511 033511 0 0 255040033513 0 000000033513 -IT1 033511 0 0 0 255040033513 0 000000033513 -AT3 033511 0 0 0 000000033513 0 255040033513 -AT6 033511 033513 0 0 000000033513 0 255040033513 -FT1A 033511 033513 0 0 000000033513 0 000000033513 -FT9 033512 033513 0 0 000000033513 0 000000033513 -ET0 033512 033513 0 0 000000033513 0 000000033513 -ST1A 033512 033513 0 0 000000033513 0 000000033513 -ST9 033512 033513 0 0 000000033513 0 000000033513 - - -*033512 SKIPA 0,000000 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033512 033512 0 0 334000000000 0 400000000000 -IT1 033512 0 0 0 334000000000 0 400000000000 -AT3 033512 0 0 0 0 0 334000000000 -AT6 033512 0 0 0 0 0 334000000000 -FT0 033512 0 0 0 400000000000 0 334000000000 -FT1A 033512 0 0 0 400000000000 0 400000000000 -FT9 033513 0 0 0 400000000000 0 400000000000 -ET0 033514 0 0 0 400000000000 0 400000000000 -ST1A 033514 0 0 0 400000000000 0 400000000000 -ST9 033514 0 0 0 400000000000 0 400000000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 484 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0679 - -*033514 JUMPA 0,033515 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033514 033514 0 0 324000033515 0 000000033515 -IT1 033514 0 0 0 324000033515 0 000000033515 -AT3 033514 0 0 0 000000033515 0 324000033515 -AT6 033514 033515 0 0 000000033515 0 324000033515 -FT1A 033514 033515 0 0 000000033515 0 000000033515 -FT2 033514 033515 0 0 0 0 000000033515 -FT2RQ 033514 033515 0 0 400000000000 0 000000033515 -FT3 033514 033515 0 0 400000000000 0 000000033515 -FT9 033515 033515 0 0 400000000000 0 000000033515 -ET0 033515 033515 0 0 400000000000 0 000000033515 -ST1A 033515 033515 0 0 400000000000 0 000000033515 -ST9 033515 033515 0 0 400000000000 0 000000033515 - - -*033515 JFCL 17,033516 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033515 033515 0 0 255740033516 0 000000033516 -IT1 033515 0 0 0 255740033516 0 000000033516 -AT3 033515 0 0 0 000000033516 0 255740033516 -AT6 033515 033516 0 0 000000033516 0 255740033516 -FT1A 033515 033516 0 0 000000033516 0 000000033516 -FT9 033516 033516 0 0 000000033516 0 000000033516 -ET0 033516 033516 0 0 000000033516 0 000000033516 -ST1A 033516 033516 0 0 000000033516 0 000000033516 -ST9 033516 033516 0 0 000000033516 0 000000033516 - - -*033516 MOVM 0,034465 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033516 033516 0 0 214000034465 0 400000000000 -IT1 033516 0 0 0 214000034465 0 400000000000 -AT3 033516 0 0 0 000000034465 0 214000034465 -AT6 033516 034465 0 0 000000034465 0 214000034465 -FT0 033516 034465 0 0 400000000000 0 214000034465 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 485 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0680 - -FT1A 033516 034465 0 0 400000000000 0 400000000000 -FT9 033517 034465 0 0 400000000000 0 400000000000 -ET0 033517 034465 0 0 400000000000 0 400000000000 -ST1 033517 034465 0 0 400000000000 0 400000000000 -ST2 033517 034465 0 0 400000000000 0 400000000000 -ST9 033517 034465 0 0 400000000000 0 400000000000 - - -*033517 JFCL 10,033521 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033517 033517 0 0 255400033521 0 000000033521 -IT1 033517 0 0 0 255400033521 0 000000033521 -AT3 033517 0 0 0 000000033521 0 255400033521 -AT6 033517 033521 0 0 000000033521 0 255400033521 -FT1A 033517 033521 0 0 000000033521 0 000000033521 -FT9 033520 033521 0 0 000000033521 0 000000033521 -ET0 033521 033521 0 0 000000033521 0 000000033521 -ST1A 033521 033521 0 0 000000033521 0 000000033521 -ST9 033521 033521 0 0 000000033521 0 000000033521 - - -*033521 JUMPA 0,033522 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033521 033521 0 0 324000033522 0 000000033522 -IT1 033521 0 0 0 324000033522 0 000000033522 -AT3 033521 0 0 0 000000033522 0 324000033522 -AT6 033521 033522 0 0 000000033522 0 324000033522 -FT1A 033521 033522 0 0 000000033522 0 000000033522 -FT2 033521 033522 0 0 0 0 000000033522 -FT2RQ 033521 033522 0 0 400000000000 0 000000033522 -FT3 033521 033522 0 0 400000000000 0 000000033522 -FT9 033522 033522 0 0 400000000000 0 000000033522 -ET0 033522 033522 0 0 400000000000 0 000000033522 -ST1A 033522 033522 0 0 400000000000 0 000000033522 -ST9 033522 033522 0 0 400000000000 0 000000033522 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 486 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0681 - -*033522 JFCL 2,033524 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033522 033522 0 0 255100033524 0 000000033524 -IT1 033522 0 0 0 255100033524 0 000000033524 -AT3 033522 0 0 0 000000033524 0 255100033524 -AT6 033522 033524 0 0 000000033524 0 255100033524 -FT1A 033522 033524 0 0 000000033524 0 000000033524 -FT9 033523 033524 0 0 000000033524 0 000000033524 -ET0 033524 033524 0 0 000000033524 0 000000033524 -ST1A 033524 033524 0 0 000000033524 0 000000033524 -ST9 033524 033524 0 0 000000033524 0 000000033524 - - -*033524 JUMPA 0,033525 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033524 033524 0 0 324000033525 0 000000033525 -IT1 033524 0 0 0 324000033525 0 000000033525 -AT3 033524 0 0 0 000000033525 0 324000033525 -AT6 033524 033525 0 0 000000033525 0 324000033525 -FT1A 033524 033525 0 0 000000033525 0 000000033525 -FT2 033524 033525 0 0 0 0 000000033525 -FT2RQ 033524 033525 0 0 400000000000 0 000000033525 -FT3 033524 033525 0 0 400000000000 0 000000033525 -FT9 033525 033525 0 0 400000000000 0 000000033525 -ET0 033525 033525 0 0 400000000000 0 000000033525 -ST1A 033525 033525 0 0 400000000000 0 000000033525 -ST9 033525 033525 0 0 400000000000 0 000000033525 - - -*033525 JFCL 4,033527 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033525 033525 0 0 255200033527 0 000000033527 -IT1 033525 0 0 0 255200033527 0 000000033527 -AT3 033525 0 0 0 000000033527 0 255200033527 -AT6 033525 033527 0 0 000000033527 0 255200033527 -FT1A 033525 033527 0 0 000000033527 0 000000033527 -FT9 033526 033527 0 0 000000033527 0 000000033527 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 487 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0682 - -ET0 033526 033527 0 0 000000033527 0 000000033527 -ST1A 033526 033527 0 0 000000033527 0 000000033527 -ST9 033526 033527 0 0 000000033527 0 000000033527 - - -*033526 SKIPA 0,000000 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033526 033526 0 0 334000000000 0 400000000000 -IT1 033526 0 0 0 334000000000 0 400000000000 -AT3 033526 0 0 0 0 0 334000000000 -AT6 033526 0 0 0 0 0 334000000000 -FT0 033526 0 0 0 400000000000 0 334000000000 -FT1A 033526 0 0 0 400000000000 0 400000000000 -FT9 033527 0 0 0 400000000000 0 400000000000 -ET0 033530 0 0 0 400000000000 0 400000000000 -ST1A 033530 0 0 0 400000000000 0 400000000000 -ST9 033530 0 0 0 400000000000 0 400000000000 - - -*033530 JUMPA 0,033531 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033530 033530 0 0 324000033531 0 000000033531 -IT1 033530 0 0 0 324000033531 0 000000033531 -AT3 033530 0 0 0 000000033531 0 324000033531 -AT6 033530 033531 0 0 000000033531 0 324000033531 -FT1A 033530 033531 0 0 000000033531 0 000000033531 -FT2 033530 033531 0 0 0 0 000000033531 -FT2RQ 033530 033531 0 0 400000000000 0 000000033531 -FT3 033530 033531 0 0 400000000000 0 000000033531 -FT9 033531 033531 0 0 400000000000 0 000000033531 -ET0 033531 033531 0 0 400000000000 0 000000033531 -ST1A 033531 033531 0 0 400000000000 0 000000033531 -ST9 033531 033531 0 0 400000000000 0 000000033531 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 488 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0683 - -*033531 JFCL 1,033533 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033531 033531 0 0 255040033533 0 000000033533 -IT1 033531 0 0 0 255040033533 0 000000033533 -AT3 033531 0 0 0 000000033533 0 255040033533 -AT6 033531 033533 0 0 000000033533 0 255040033533 -FT1A 033531 033533 0 0 000000033533 0 000000033533 -FT9 033532 033533 0 0 000000033533 0 000000033533 -ET0 033532 033533 0 0 000000033533 0 000000033533 -ST1A 033532 033533 0 0 000000033533 0 000000033533 -ST9 033532 033533 0 0 000000033533 0 000000033533 - - -*033532 SKIPA 0,000000 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=400000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033532 033532 0 0 334000000000 0 400000000000 -IT1 033532 0 0 0 334000000000 0 400000000000 -AT3 033532 0 0 0 0 0 334000000000 -AT6 033532 0 0 0 0 0 334000000000 -FT0 033532 0 0 0 400000000000 0 334000000000 -FT1A 033532 0 0 0 400000000000 0 400000000000 -FT9 033533 0 0 0 400000000000 0 400000000000 -ET0 033534 0 0 0 400000000000 0 400000000000 -ST1A 033534 0 0 0 400000000000 0 400000000000 -ST9 033534 0 0 0 400000000000 0 400000000000 - - -*033534 JUMPA 0,033535 -INITIAL -C(AC)=400000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033534 033534 0 0 324000033535 0 000000033535 -IT1 033534 0 0 0 324000033535 0 000000033535 -AT3 033534 0 0 0 000000033535 0 324000033535 -AT6 033534 033535 0 0 000000033535 0 324000033535 -FT1A 033534 033535 0 0 000000033535 0 000000033535 -FT2 033534 033535 0 0 0 0 000000033535 -FT2RQ 033534 033535 0 0 400000000000 0 000000033535 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 489 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0684 - -FT3 033534 033535 0 0 400000000000 0 000000033535 -FT9 033535 033535 0 0 400000000000 0 000000033535 -ET0 033535 033535 0 0 400000000000 0 000000033535 -ST1A 033535 033535 0 0 400000000000 0 000000033535 -ST9 033535 033535 0 0 400000000000 0 000000033535 - - -*033535 SETZ 0,000000 -INITIAL -C(AC)=400000 000000 -C(E)=400000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033535 033535 0 0 400000000000 0 0 -IT1 033535 0 0 0 400000000000 0 0 -AT3 033535 0 0 0 0 0 400000000000 -AT6 033535 0 0 0 0 0 400000000000 -FT1A 033535 0 0 0 0 0 0 -FT9 033536 0 0 0 0 0 0 -ET0 033536 0 0 0 0 0 0 -ST1 033536 0 0 0 0 0 0 -ST2 033536 0 0 0 0 0 0 -ST9 033536 0 0 0 0 0 0 - - -*033536 AOS 0,000000 -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 033536 033536 0 0 350000000000 0 0 -IT1 033536 0 0 0 350000000000 0 0 -AT3 033536 0 0 0 0 0 350000000000 -AT6 033536 0 0 0 0 0 350000000000 -FT0 033536 0 0 0 0 0 350000000000 -FT1A 033536 0 0 0 0 0 0 -FT9 033537 0 0 0 0 0 0 -ET0 033537 0 0 0 000000000001 0 0 -ST5 033537 0 0 0 000000000001 0 0 -ST6A 033537 0 0 0 000000000001 0 0 -ST9 033537 0 0 0 000000000001 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 490 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0685 - -*033537 CAIE 0,000001 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033537 033537 0 0 302000000001 0 000000000001 -IT1 033537 0 0 0 302000000001 0 000000000001 -AT3 033537 0 0 0 000000000001 0 302000000001 -AT6 033537 000001 0 0 000000000001 0 302000000001 -FT1A 033537 000001 0 0 000000000001 0 000000000001 -FT2 033537 000001 0 0 0 0 000000000001 -FT2RQ 033537 000001 0 0 000000000001 0 000000000001 -FT3 033537 000001 0 0 000000000001 0 000000000001 -FT9 033540 000001 0 0 000000000001 0 000000000001 -ET0 033541 000001 0 0 0 0 000000000001 -ST1A 033541 000001 0 0 0 0 000000000001 -ST9 033541 000001 0 0 0 0 000000000001 - - -*033541 JUMPA 0,033542 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033541 033541 0 0 324000033542 0 000000033542 -IT1 033541 0 0 0 324000033542 0 000000033542 -AT3 033541 0 0 0 000000033542 0 324000033542 -AT6 033541 033542 0 0 000000033542 0 324000033542 -FT1A 033541 033542 0 0 000000033542 0 000000033542 -FT2 033541 033542 0 0 0 0 000000033542 -FT2RQ 033541 033542 0 0 000000000001 0 000000033542 -FT3 033541 033542 0 0 000000000001 0 000000033542 -FT9 033542 033542 0 0 000000000001 0 000000033542 -ET0 033542 033542 0 0 000000000001 0 000000033542 -ST1A 033542 033542 0 0 000000000001 0 000000033542 -ST9 033542 033542 0 0 000000000001 0 000000033542 - - -*033542 SETO 0,000000 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033542 033542 0 0 474000000000 0 0 -IT1 033542 0 0 0 474000000000 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 491 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0686 - -AT3 033542 0 0 0 0 0 474000000000 -AT6 033542 0 0 0 0 0 474000000000 -FT1A 033542 0 0 0 0 0 0 -FT9 033543 0 0 0 0 0 0 -ET0 033543 0 0 0 777777777777 0 0 -ST1 033543 0 0 0 777777777777 0 0 -ST2 033543 0 0 0 777777777777 0 0 -ST9 033543 0 0 0 777777777777 0 0 - - -*033543 AOS 0,000000 -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 033543 033543 0 0 350000000000 0 777777777777 -IT1 033543 0 0 0 350000000000 0 777777777777 -AT3 033543 0 0 0 0 0 350000000000 -AT6 033543 0 0 0 0 0 350000000000 -FT0 033543 0 0 0 777777777777 0 350000000000 -FT1A 033543 0 0 0 777777777777 0 777777777777 -FT9 033544 0 0 0 777777777777 0 777777777777 -ET0 033544 0 0 0 0 0 777777777777 -ST5 033544 0 0 0 0 0 777777777777 -ST6A 033544 0 0 0 0 0 777777777777 -ST9 033544 0 0 0 0 0 777777777777 - - -*033544 CAIE 0,000000 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033544 033544 0 0 302000000000 0 0 -IT1 033544 0 0 0 302000000000 0 0 -AT3 033544 0 0 0 0 0 302000000000 -AT6 033544 0 0 0 0 0 302000000000 -FT1A 033544 0 0 0 0 0 0 -FT2 033544 0 0 0 0 0 0 -FT2RQ 033544 0 0 0 0 0 0 -FT3 033544 0 0 0 0 0 0 -FT9 033545 0 0 0 0 0 0 -ET0 033546 0 0 0 0 0 0 -ST1A 033546 0 0 0 0 0 0 -ST9 033546 0 0 0 0 0 0 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 492 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0687 - - -*033546 JUMPA 0,033547 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033546 033546 0 0 324000033547 0 000000033547 -IT1 033546 0 0 0 324000033547 0 000000033547 -AT3 033546 0 0 0 000000033547 0 324000033547 -AT6 033546 033547 0 0 000000033547 0 324000033547 -FT1A 033546 033547 0 0 000000033547 0 000000033547 -FT2 033546 033547 0 0 0 0 000000033547 -FT2RQ 033546 033547 0 0 0 0 000000033547 -FT3 033546 033547 0 0 0 0 000000033547 -FT9 033547 033547 0 0 0 0 000000033547 -ET0 033547 033547 0 0 0 0 000000033547 -ST1A 033547 033547 0 0 0 0 000000033547 -ST9 033547 033547 0 0 0 0 000000033547 - - -*033547 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 033547 033547 0 0 400000000000 0 0 -IT1 033547 0 0 0 400000000000 0 0 -AT3 033547 0 0 0 0 0 400000000000 -AT6 033547 0 0 0 0 0 400000000000 -FT1A 033547 0 0 0 0 0 0 -FT9 033550 0 0 0 0 0 0 -ET0 033550 0 0 0 0 0 0 -ST1 033550 0 0 0 0 0 0 -ST2 033550 0 0 0 0 0 0 -ST9 033550 0 0 0 0 0 0 - - -*033550 SOS 0,000000 -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 033550 033550 0 0 370000000000 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 493 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0688 - -IT1 033550 0 0 0 370000000000 0 0 -AT3 033550 0 0 0 0 0 370000000000 -AT6 033550 0 0 0 0 0 370000000000 -FT0 033550 0 0 0 0 0 370000000000 -FT1A 033550 0 0 0 0 0 0 -FT9 033551 0 0 0 0 0 0 -ET0 033551 0 0 0 777777777777 0 0 -ST5 033551 0 0 0 777777777777 0 0 -ST6A 033551 0 0 0 777777777777 0 0 -ST9 033551 0 0 0 777777777777 0 0 - - -*033551 CAME 0,034466 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033551 033551 0 0 312000034466 0 777777777777 -IT1 033551 0 0 0 312000034466 0 777777777777 -AT3 033551 0 0 0 000000034466 0 312000034466 -AT6 033551 034466 0 0 000000034466 0 312000034466 -FT0 033551 034466 0 0 777777777777 0 312000034466 -FT1A 033551 034466 0 0 777777777777 0 777777777777 -FT2 033551 034466 0 0 0 0 777777777777 -FT2RQ 033551 034466 0 0 777777777777 0 777777777777 -FT3 033551 034466 0 0 777777777777 0 777777777777 -FT9 033552 034466 0 0 777777777777 0 777777777777 -ET0 033553 034466 0 0 0 0 777777777777 -ST1A 033553 034466 0 0 0 0 777777777777 -ST9 033553 034466 0 0 0 0 777777777777 - - -*033553 JUMPA 0,033554 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033553 033553 0 0 324000033554 0 000000033554 -IT1 033553 0 0 0 324000033554 0 000000033554 -AT3 033553 0 0 0 000000033554 0 324000033554 -AT6 033553 033554 0 0 000000033554 0 324000033554 -FT1A 033553 033554 0 0 000000033554 0 000000033554 -FT2 033553 033554 0 0 0 0 000000033554 -FT2RQ 033553 033554 0 0 777777777777 0 000000033554 -FT3 033553 033554 0 0 777777777777 0 000000033554 -FT9 033554 033554 0 0 777777777777 0 000000033554 -ET0 033554 033554 0 0 777777777777 0 000000033554 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 494 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0689 - -ST1A 033554 033554 0 0 777777777777 0 000000033554 -ST9 033554 033554 0 0 777777777777 0 000000033554 - - -*033554 MOVEI 0,000001 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033554 033554 0 0 201000000001 0 000000000001 -IT1 033554 0 0 0 201000000001 0 000000000001 -AT3 033554 0 0 0 000000000001 0 201000000001 -AT6 033554 000001 0 0 000000000001 0 201000000001 -FT1A 033554 000001 0 0 000000000001 0 000000000001 -FT9 033555 000001 0 0 000000000001 0 000000000001 -ET0 033555 000001 0 0 000000000001 0 000000000001 -ST1 033555 000001 0 0 000000000001 0 000000000001 -ST2 033555 000001 0 0 000000000001 0 000000000001 -ST9 033555 000001 0 0 000000000001 0 000000000001 - - -*033555 SOS 0,000000 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 -C(E)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033555 033555 0 0 370000000000 0 000000000001 -IT1 033555 0 0 0 370000000000 0 000000000001 -AT3 033555 0 0 0 0 0 370000000000 -AT6 033555 0 0 0 0 0 370000000000 -FT0 033555 0 0 0 000000000001 0 370000000000 -FT1A 033555 0 0 0 000000000001 0 000000000001 -FT9 033556 0 0 0 000000000001 0 000000000001 -ET0 033556 0 0 0 0 0 000000000001 -ST5 033556 0 0 0 0 0 000000000001 -ST6A 033556 0 0 0 0 0 000000000001 -ST9 033556 0 0 0 0 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 495 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0690 - -*033556 CAIE 0,000000 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033556 033556 0 0 302000000000 0 0 -IT1 033556 0 0 0 302000000000 0 0 -AT3 033556 0 0 0 0 0 302000000000 -AT6 033556 0 0 0 0 0 302000000000 -FT1A 033556 0 0 0 0 0 0 -FT2 033556 0 0 0 0 0 0 -FT2RQ 033556 0 0 0 0 0 0 -FT3 033556 0 0 0 0 0 0 -FT9 033557 0 0 0 0 0 0 -ET0 033560 0 0 0 0 0 0 -ST1A 033560 0 0 0 0 0 0 -ST9 033560 0 0 0 0 0 0 - - -*033560 JUMPA 0,033561 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033560 033560 0 0 324000033561 0 000000033561 -IT1 033560 0 0 0 324000033561 0 000000033561 -AT3 033560 0 0 0 000000033561 0 324000033561 -AT6 033560 033561 0 0 000000033561 0 324000033561 -FT1A 033560 033561 0 0 000000033561 0 000000033561 -FT2 033560 033561 0 0 0 0 000000033561 -FT2RQ 033560 033561 0 0 0 0 000000033561 -FT3 033560 033561 0 0 0 0 000000033561 -FT9 033561 033561 0 0 0 0 000000033561 -ET0 033561 033561 0 0 0 0 000000033561 -ST1A 033561 033561 0 0 0 0 000000033561 -ST9 033561 033561 0 0 0 0 000000033561 - - -*033561 JFCL 17,033562 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033561 033561 0 0 255740033562 0 000000033562 -IT1 033561 0 0 0 255740033562 0 000000033562 -AT3 033561 0 0 0 000000033562 0 255740033562 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 496 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0691 - -AT6 033561 033562 0 0 000000033562 0 255740033562 -FT1A 033561 033562 0 0 000000033562 0 000000033562 -FT9 033562 033562 0 0 000000033562 0 000000033562 -ET0 033562 033562 0 0 000000033562 0 000000033562 -ST1A 033562 033562 0 0 000000033562 0 000000033562 -ST9 033562 033562 0 0 000000033562 0 000000033562 - - -*033562 MOVEI 0,000001 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033562 033562 0 0 201000000001 0 000000000001 -IT1 033562 0 0 0 201000000001 0 000000000001 -AT3 033562 0 0 0 000000000001 0 201000000001 -AT6 033562 000001 0 0 000000000001 0 201000000001 -FT1A 033562 000001 0 0 000000000001 0 000000000001 -FT9 033563 000001 0 0 000000000001 0 000000000001 -ET0 033563 000001 0 0 000000000001 0 000000000001 -ST1 033563 000001 0 0 000000000001 0 000000000001 -ST2 033563 000001 0 0 000000000001 0 000000000001 -ST9 033563 000001 0 0 000000000001 0 000000000001 - - -*033563 SOS 0,000000 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL -C(AC)=000000 000001 -C(E)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033563 033563 0 0 370000000000 0 000000000001 -IT1 033563 0 0 0 370000000000 0 000000000001 -AT3 033563 0 0 0 0 0 370000000000 -AT6 033563 0 0 0 0 0 370000000000 -FT0 033563 0 0 0 000000000001 0 370000000000 -FT1A 033563 0 0 0 000000000001 0 000000000001 -FT9 033564 0 0 0 000000000001 0 000000000001 -ET0 033564 0 0 0 0 0 000000000001 -ST5 033564 0 0 0 0 0 000000000001 -ST6A 033564 0 0 0 0 0 000000000001 -ST9 033564 0 0 0 0 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 497 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0692 - -*033564 JFCL 4,033566 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033564 033564 0 0 255200033566 0 000000033566 -IT1 033564 0 0 0 255200033566 0 000000033566 -AT3 033564 0 0 0 000000033566 0 255200033566 -AT6 033564 033566 0 0 000000033566 0 255200033566 -FT1A 033564 033566 0 0 000000033566 0 000000033566 -FT9 033565 033566 0 0 000000033566 0 000000033566 -ET0 033566 033566 0 0 000000033566 0 000000033566 -ST1A 033566 033566 0 0 000000033566 0 000000033566 -ST9 033566 033566 0 0 000000033566 0 000000033566 - - -*033566 JUMPA 0,033567 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033566 033566 0 0 324000033567 0 000000033567 -IT1 033566 0 0 0 324000033567 0 000000033567 -AT3 033566 0 0 0 000000033567 0 324000033567 -AT6 033566 033567 0 0 000000033567 0 324000033567 -FT1A 033566 033567 0 0 000000033567 0 000000033567 -FT2 033566 033567 0 0 0 0 000000033567 -FT2RQ 033566 033567 0 0 0 0 000000033567 -FT3 033566 033567 0 0 0 0 000000033567 -FT9 033567 033567 0 0 0 0 000000033567 -ET0 033567 033567 0 0 0 0 000000033567 -ST1A 033567 033567 0 0 0 0 000000033567 -ST9 033567 033567 0 0 0 0 000000033567 - - -*033567 JFCL 2,033571 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033567 033567 0 0 255100033571 0 000000033571 -IT1 033567 0 0 0 255100033571 0 000000033571 -AT3 033567 0 0 0 000000033571 0 255100033571 -AT6 033567 033571 0 0 000000033571 0 255100033571 -FT1A 033567 033571 0 0 000000033571 0 000000033571 -FT9 033570 033571 0 0 000000033571 0 000000033571 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 498 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0693 - -ET0 033571 033571 0 0 000000033571 0 000000033571 -ST1A 033571 033571 0 0 000000033571 0 000000033571 -ST9 033571 033571 0 0 000000033571 0 000000033571 - - -*033571 JUMPA 0,033572 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033571 033571 0 0 324000033572 0 000000033572 -IT1 033571 0 0 0 324000033572 0 000000033572 -AT3 033571 0 0 0 000000033572 0 324000033572 -AT6 033571 033572 0 0 000000033572 0 324000033572 -FT1A 033571 033572 0 0 000000033572 0 000000033572 -FT2 033571 033572 0 0 0 0 000000033572 -FT2RQ 033571 033572 0 0 0 0 000000033572 -FT3 033571 033572 0 0 0 0 000000033572 -FT9 033572 033572 0 0 0 0 000000033572 -ET0 033572 033572 0 0 0 0 000000033572 -ST1A 033572 033572 0 0 0 0 000000033572 -ST9 033572 033572 0 0 0 0 000000033572 - - -*033572 JFCL 10,033574 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033572 033572 0 0 255400033574 0 000000033574 -IT1 033572 0 0 0 255400033574 0 000000033574 -AT3 033572 0 0 0 000000033574 0 255400033574 -AT6 033572 033574 0 0 000000033574 0 255400033574 -FT1A 033572 033574 0 0 000000033574 0 000000033574 -FT9 033573 033574 0 0 000000033574 0 000000033574 -ET0 033573 033574 0 0 000000033574 0 000000033574 -ST1A 033573 033574 0 0 000000033574 0 000000033574 -ST9 033573 033574 0 0 000000033574 0 000000033574 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 499 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0694 - -*033573 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 033573 033573 0 0 334000000000 0 0 -IT1 033573 0 0 0 334000000000 0 0 -AT3 033573 0 0 0 0 0 334000000000 -AT6 033573 0 0 0 0 0 334000000000 -FT0 033573 0 0 0 0 0 334000000000 -FT1A 033573 0 0 0 0 0 0 -FT9 033574 0 0 0 0 0 0 -ET0 033575 0 0 0 0 0 0 -ST1A 033575 0 0 0 0 0 0 -ST9 033575 0 0 0 0 0 0 - - -*033575 JUMPA 0,033576 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033575 033575 0 0 324000033576 0 000000033576 -IT1 033575 0 0 0 324000033576 0 000000033576 -AT3 033575 0 0 0 000000033576 0 324000033576 -AT6 033575 033576 0 0 000000033576 0 324000033576 -FT1A 033575 033576 0 0 000000033576 0 000000033576 -FT2 033575 033576 0 0 0 0 000000033576 -FT2RQ 033575 033576 0 0 0 0 000000033576 -FT3 033575 033576 0 0 0 0 000000033576 -FT9 033576 033576 0 0 0 0 000000033576 -ET0 033576 033576 0 0 0 0 000000033576 -ST1A 033576 033576 0 0 0 0 000000033576 -ST9 033576 033576 0 0 0 0 000000033576 - - -*033576 JFCL 1,033600 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033576 033576 0 0 255040033600 0 000000033600 -IT1 033576 0 0 0 255040033600 0 000000033600 -AT3 033576 0 0 0 000000033600 0 255040033600 -AT6 033576 0 0 0 000000033600 0 255040033600 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 500 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0695 - -FT1A 033576 0 0 0 000000033600 0 000000033600 -FT9 033577 0 0 0 000000033600 0 000000033600 -ET0 033577 0 0 0 000000033600 0 000000033600 -ST1A 033577 0 0 0 000000033600 0 000000033600 -ST9 033577 0 0 0 000000033600 0 000000033600 - - -*033577 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 033577 033577 0 0 334000000000 0 0 -IT1 033577 0 0 0 334000000000 0 0 -AT3 033577 0 0 0 0 0 334000000000 -AT6 033577 0 0 0 0 0 334000000000 -FT0 033577 0 0 0 0 0 334000000000 -FT1A 033577 0 0 0 0 0 0 -FT9 0 0 0 0 0 0 0 -ET0 033601 0 0 0 0 0 0 -ST1A 033601 0 0 0 0 0 0 -ST9 033601 0 0 0 0 0 0 - - -*033601 JUMPA 0,033602 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033601 033601 0 0 324000033602 0 000000033602 -IT1 033601 0 0 0 324000033602 0 000000033602 -AT3 033601 0 0 0 000000033602 0 324000033602 -AT6 033601 033602 0 0 000000033602 0 324000033602 -FT1A 033601 033602 0 0 000000033602 0 000000033602 -FT2 033601 033602 0 0 0 0 000000033602 -FT2RQ 033601 033602 0 0 0 0 000000033602 -FT3 033601 033602 0 0 0 0 000000033602 -FT9 033602 033602 0 0 0 0 000000033602 -ET0 033602 033602 0 0 0 0 000000033602 -ST1A 033602 033602 0 0 0 0 000000033602 -ST9 033602 033602 0 0 0 0 000000033602 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 501 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0696 - -*033602 JFCL 17,033603 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033602 033602 0 0 255740033603 0 000000033603 -IT1 033602 0 0 0 255740033603 0 000000033603 -AT3 033602 0 0 0 000000033603 0 255740033603 -AT6 033602 033603 0 0 000000033603 0 255740033603 -FT1A 033602 033603 0 0 000000033603 0 000000033603 -FT9 033603 033603 0 0 000000033603 0 000000033603 -ET0 033603 033603 0 0 000000033603 0 000000033603 -ST1A 033603 033603 0 0 000000033603 0 000000033603 -ST9 033603 033603 0 0 000000033603 0 000000033603 - - -*033603 SETO 0,000000 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033603 033603 0 0 474000000000 0 0 -IT1 033603 0 0 0 474000000000 0 0 -AT3 033603 0 0 0 0 0 474000000000 -AT6 033603 0 0 0 0 0 474000000000 -FT1A 033603 0 0 0 0 0 0 -FT9 033604 0 0 0 0 0 0 -ET0 033604 0 0 0 777777777777 0 0 -ST1 033604 0 0 0 777777777777 0 0 -ST2 033604 0 0 0 777777777777 0 0 -ST9 033604 0 0 0 777777777777 0 0 - - -*033604 AOS 0,000000 -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 033604 033604 0 0 350000000000 0 777777777777 -IT1 033604 0 0 0 350000000000 0 777777777777 -AT3 033604 0 0 0 0 0 350000000000 -AT6 033604 0 0 0 0 0 350000000000 -FT0 033604 0 0 0 777777777777 0 350000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 502 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0697 - -FT1A 033604 0 0 0 777777777777 0 777777777777 -FT9 033605 0 0 0 777777777777 0 777777777777 -ET0 033605 0 0 0 0 0 777777777777 -ST5 033605 0 0 0 0 0 777777777777 -ST6A 033605 0 0 0 0 0 777777777777 -ST9 033605 0 0 0 0 0 777777777777 - - -*033605 JFCL 4,033607 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033605 033605 0 0 255200033607 0 000000033607 -IT1 033605 0 0 0 255200033607 0 000000033607 -AT3 033605 0 0 0 000000033607 0 255200033607 -AT6 033605 033607 0 0 000000033607 0 255200033607 -FT1A 033605 033607 0 0 000000033607 0 000000033607 -FT9 033606 033607 0 0 000000033607 0 000000033607 -ET0 033607 033607 0 0 000000033607 0 000000033607 -ST1A 033607 033607 0 0 000000033607 0 000000033607 -ST9 033607 033607 0 0 000000033607 0 000000033607 - - -*033607 JUMPA 0,033610 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033607 033607 0 0 324000033610 0 000000033610 -IT1 033607 0 0 0 324000033610 0 000000033610 -AT3 033607 0 0 0 000000033610 0 324000033610 -AT6 033607 033610 0 0 000000033610 0 324000033610 -FT1A 033607 033610 0 0 000000033610 0 000000033610 -FT2 033607 033610 0 0 0 0 000000033610 -FT2RQ 033607 033610 0 0 0 0 000000033610 -FT3 033607 033610 0 0 0 0 000000033610 -FT9 033610 033610 0 0 0 0 000000033610 -ET0 033610 033610 0 0 0 0 000000033610 -ST1A 033610 033610 0 0 0 0 000000033610 -ST9 033610 033610 0 0 0 0 000000033610 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 503 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0698 - -*033610 JFCL 2,033612 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033610 033610 0 0 255100033612 0 000000033612 -IT1 033610 0 0 0 255100033612 0 000000033612 -AT3 033610 0 0 0 000000033612 0 255100033612 -AT6 033610 033612 0 0 000000033612 0 255100033612 -FT1A 033610 033612 0 0 000000033612 0 000000033612 -FT9 033611 033612 0 0 000000033612 0 000000033612 -ET0 033612 033612 0 0 000000033612 0 000000033612 -ST1A 033612 033612 0 0 000000033612 0 000000033612 -ST9 033612 033612 0 0 000000033612 0 000000033612 - - -*033612 JUMPA 0,033613 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033612 033612 0 0 324000033613 0 000000033613 -IT1 033612 0 0 0 324000033613 0 000000033613 -AT3 033612 0 0 0 000000033613 0 324000033613 -AT6 033612 033613 0 0 000000033613 0 324000033613 -FT1A 033612 033613 0 0 000000033613 0 000000033613 -FT2 033612 033613 0 0 0 0 000000033613 -FT2RQ 033612 033613 0 0 0 0 000000033613 -FT3 033612 033613 0 0 0 0 000000033613 -FT9 033613 033613 0 0 0 0 000000033613 -ET0 033613 033613 0 0 0 0 000000033613 -ST1A 033613 033613 0 0 0 0 000000033613 -ST9 033613 033613 0 0 0 0 000000033613 - - -*033613 JFCL 10,033615 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033613 033613 0 0 255400033615 0 000000033615 -IT1 033613 0 0 0 255400033615 0 000000033615 -AT3 033613 0 0 0 000000033615 0 255400033615 -AT6 033613 033615 0 0 000000033615 0 255400033615 -FT1A 033613 033615 0 0 000000033615 0 000000033615 -FT9 033614 033615 0 0 000000033615 0 000000033615 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 504 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0699 - -ET0 033614 033615 0 0 000000033615 0 000000033615 -ST1A 033614 033615 0 0 000000033615 0 000000033615 -ST9 033614 033615 0 0 000000033615 0 000000033615 - - -*033614 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 033614 033614 0 0 334000000000 0 0 -IT1 033614 0 0 0 334000000000 0 0 -AT3 033614 0 0 0 0 0 334000000000 -AT6 033614 0 0 0 0 0 334000000000 -FT0 033614 0 0 0 0 0 334000000000 -FT1A 033614 0 0 0 0 0 0 -FT9 033615 0 0 0 0 0 0 -ET0 033616 0 0 0 0 0 0 -ST1A 033616 0 0 0 0 0 0 -ST9 033616 0 0 0 0 0 0 - - -*033616 JUMPA 0,033617 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033616 033616 0 0 324000033617 0 000000033617 -IT1 033616 0 0 0 324000033617 0 000000033617 -AT3 033616 0 0 0 000000033617 0 324000033617 -AT6 033616 033617 0 0 000000033617 0 324000033617 -FT1A 033616 033617 0 0 000000033617 0 000000033617 -FT2 033616 033617 0 0 0 0 000000033617 -FT2RQ 033616 033617 0 0 0 0 000000033617 -FT3 033616 033617 0 0 0 0 000000033617 -FT9 033617 033617 0 0 0 0 000000033617 -ET0 033617 033617 0 0 0 0 000000033617 -ST1A 033617 033617 0 0 0 0 000000033617 -ST9 033617 033617 0 0 0 0 000000033617 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 505 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0700 - -*033617 JFCL 1,033621 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033617 033617 0 0 255040033621 0 000000033621 -IT1 033617 0 0 0 255040033621 0 000000033621 -AT3 033617 0 0 0 000000033621 0 255040033621 -AT6 033617 033621 0 0 000000033621 0 255040033621 -FT1A 033617 033621 0 0 000000033621 0 000000033621 -FT9 033620 033621 0 0 000000033621 0 000000033621 -ET0 033620 033621 0 0 000000033621 0 000000033621 -ST1A 033620 033621 0 0 000000033621 0 000000033621 -ST9 033620 033621 0 0 000000033621 0 000000033621 - - -*033620 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 033620 033620 0 0 334000000000 0 0 -IT1 033620 0 0 0 334000000000 0 0 -AT3 033620 0 0 0 0 0 334000000000 -AT6 033620 0 0 0 0 0 334000000000 -FT0 033620 0 0 0 0 0 334000000000 -FT1A 033620 0 0 0 0 0 0 -FT9 033621 0 0 0 0 0 0 -ET0 033622 0 0 0 0 0 0 -ST1A 033622 0 0 0 0 0 0 -ST9 033622 0 0 0 0 0 0 - - -*033622 JUMPA 0,033623 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033622 033622 0 0 324000033623 0 000000033623 -IT1 033622 0 0 0 324000033623 0 000000033623 -AT3 033622 0 0 0 000000033623 0 324000033623 -AT6 033622 033623 0 0 000000033623 0 324000033623 -FT1A 033622 033623 0 0 000000033623 0 000000033623 -FT2 033622 033623 0 0 0 0 000000033623 -FT2RQ 033622 033623 0 0 0 0 000000033623 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 506 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0701 - -FT3 033622 033623 0 0 0 0 000000033623 -FT9 033623 033623 0 0 0 0 000000033623 -ET0 033623 033623 0 0 0 0 000000033623 -ST1A 033623 033623 0 0 0 0 000000033623 -ST9 033623 033623 0 0 0 0 000000033623 - - -*033623 MOVSI 1,040000 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=040000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033623 033623 0 0 205040040000 0 000000040000 -IT1 033623 0 0 0 205040040000 0 000000040000 -AT3 033623 0 0 0 000000040000 0 205040040000 -AT6 033623 0 0 0 000000040000 0 205040040000 -FT1A 033623 0 0 0 000000040000 0 000000040000 -FT9 033624 0 0 0 000000040000 0 000000040000 -ET0 033624 0 0 0 040000000000 0 000000040000 -ST1 033624 0 0 0 040000000000 0 000000040000 -ST2 033624 0 0 0 040000000000 0 000000040000 -ST9 033624 0 0 0 040000000000 0 000000040000 - - -*033624 JFCL 17,033625 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033624 033624 0 0 255740033625 0 000000033625 -IT1 033624 0 0 0 255740033625 0 000000033625 -AT3 033624 0 0 0 000000033625 0 255740033625 -AT6 033624 033625 0 0 000000033625 0 255740033625 -FT1A 033624 033625 0 0 000000033625 0 000000033625 -FT9 033625 033625 0 0 000000033625 0 000000033625 -ET0 033625 033625 0 0 000000033625 0 000000033625 -ST1A 033625 033625 0 0 000000033625 0 000000033625 -ST9 033625 033625 0 0 000000033625 0 000000033625 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 507 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0702 - -*033625 JRST 2,033626(1) -INITIAL -C(AC)=000000 000002 -C(E)=255040 033627 -FINAL - -C(E)=255040 033627 - -TIME PC MA SC FE AR MQ BR -IT0 033625 033625 0 0 254101033626 0 040000033626 -IT1 033625 0 0 0 254101033626 0 040000033626 -AT1 033625 0 0 0 0 0 254101033626 -AT2 033625 0 0 0 040000000000 0 254101033626 -AT3 033625 0 0 0 000000033626 0 040000033626 -AT6 033625 033626 0 0 000000033626 0 040000033626 -FT1A 033625 033626 0 0 000000033626 0 040000033626 -FT9 033626 033626 0 0 000000033626 0 040000033626 -ET0 033626 033626 0 0 000000033626 0 040000033626 -ST1A 033626 033626 0 0 000000033626 0 040000033626 -ST9 033626 033626 0 0 000000033626 0 040000033626 - - -*033626 JFCL 1,033627 -INITIAL -C(AC)=040000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033626 033626 0 0 255040033627 0 000000033627 -IT1 033626 0 0 0 255040033627 0 000000033627 -AT3 033626 0 0 0 000000033627 0 255040033627 -AT6 033626 033627 0 0 000000033627 0 255040033627 -FT1A 033626 033627 0 0 000000033627 0 000000033627 -FT9 033627 033627 0 0 000000033627 0 000000033627 -ET0 033627 033627 0 0 000000033627 0 000000033627 -ST1A 033627 033627 0 0 000000033627 0 000000033627 -ST9 033627 033627 0 0 000000033627 0 000000033627 - - -*033627 JFCL 1,033631 -INITIAL -C(AC)=040000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033627 033627 0 0 255040033631 0 000000033631 -IT1 033627 0 0 0 255040033631 0 000000033631 -AT3 033627 0 0 0 000000033631 0 255040033631 -AT6 033627 033631 0 0 000000033631 0 255040033631 -FT1A 033627 033631 0 0 000000033631 0 000000033631 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 508 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0703 - -FT9 033630 033631 0 0 000000033631 0 000000033631 -ET0 033630 033631 0 0 000000033631 0 000000033631 -ST1A 033630 033631 0 0 000000033631 0 000000033631 -ST9 033630 033631 0 0 000000033631 0 000000033631 - - -*033630 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 033630 033630 0 0 334000000000 0 0 -IT1 033630 0 0 0 334000000000 0 0 -AT3 033630 0 0 0 0 0 334000000000 -AT6 033630 0 0 0 0 0 334000000000 -FT0 033630 0 0 0 0 0 334000000000 -FT1A 033630 0 0 0 0 0 0 -FT9 033631 0 0 0 0 0 0 -ET0 033632 0 0 0 0 0 0 -ST1A 033632 0 0 0 0 0 0 -ST9 033632 0 0 0 0 0 0 - - -*033632 JUMPA 0,033633 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033632 033632 0 0 324000033633 0 000000033633 -IT1 033632 0 0 0 324000033633 0 000000033633 -AT3 033632 0 0 0 000000033633 0 324000033633 -AT6 033632 033633 0 0 000000033633 0 324000033633 -FT1A 033632 033633 0 0 000000033633 0 000000033633 -FT2 033632 033633 0 0 0 0 000000033633 -FT2RQ 033632 033633 0 0 0 0 000000033633 -FT3 033632 033633 0 0 0 0 000000033633 -FT9 033633 033633 0 0 0 0 000000033633 -ET0 033633 033633 0 0 0 0 000000033633 -ST1A 033633 033633 0 0 0 0 000000033633 -ST9 033633 033633 0 0 0 0 000000033633 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 509 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0704 - -*033633 MOVSI 1,000100 -INITIAL -C(AC)=040000 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033633 033633 0 0 205040000100 0 000000000100 -IT1 033633 0 0 0 205040000100 0 000000000100 -AT3 033633 0 0 0 000000000100 0 205040000100 -AT6 033633 0 0 0 000000000100 0 205040000100 -FT1A 033633 0 0 0 000000000100 0 000000000100 -FT9 033634 0 0 0 000000000100 0 000000000100 -ET0 033634 0 0 0 000100000000 0 000000000100 -ST1 033634 0 0 0 000100000000 0 000000000100 -ST2 033634 0 0 0 000100000000 0 000000000100 -ST9 033634 0 0 0 000100000000 0 000000000100 - - -*033634 JFCL 17,033635 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033634 033634 0 0 255740033635 0 000000033635 -IT1 033634 0 0 0 255740033635 0 000000033635 -AT3 033634 0 0 0 000000033635 0 255740033635 -AT6 033634 033635 0 0 000000033635 0 255740033635 -FT1A 033634 033635 0 0 000000033635 0 000000033635 -FT9 033635 033635 0 0 000000033635 0 000000033635 -ET0 033635 033635 0 0 000000033635 0 000000033635 -ST1A 033635 033635 0 0 000000033635 0 000000033635 -ST9 033635 033635 0 0 000000033635 0 000000033635 - - -*033635 JRST 2,033636(1) -INITIAL -C(AC)=000000 000002 -C(E)=265000 033637 -FINAL - -C(E)=265000 033637 - -TIME PC MA SC FE AR MQ BR -IT0 033635 033635 0 0 254101033636 0 000100033636 -IT1 033635 0 0 0 254101033636 0 000100033636 -AT1 033635 0 0 0 0 0 254101033636 -AT2 033635 0 0 0 000100000000 0 254101033636 -AT3 033635 0 0 0 000000033636 0 000100033636 -AT6 033635 033636 0 0 000000033636 0 000100033636 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 510 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0705 - -FT1A 033635 033636 0 0 000000033636 0 000100033636 -FT9 033636 033636 0 0 000000033636 0 000100033636 -ET0 033636 033636 0 0 000000033636 0 000100033636 -ST1A 033636 033636 0 0 000000033636 0 000100033636 -ST9 033636 033636 0 0 000000033636 0 000100033636 - - -*033636 JSP 0,033637 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000100 033637 - -TIME PC MA SC FE AR MQ BR -IT0 033636 033636 0 0 265000033637 0 000000033637 -IT1 033636 0 0 0 265000033637 0 000000033637 -AT3 033636 0 0 0 000000033637 0 265000033637 -AT6 033636 033637 0 0 000000033637 0 265000033637 -FT1A 033636 033637 0 0 000000033637 0 000000033637 -FT9 033637 033637 0 0 000000033637 0 000000033637 -ET0 033637 033637 0 0 000100033637 0 000000033637 -ST1 033637 033637 0 0 000100033637 0 000000033637 -ST2 033637 033637 0 0 000100033637 0 000000033637 -ST9 033637 033637 0 0 000100033637 0 000000033637 - - -*033637 TLNN 0,000100 -INITIAL -C(AC)=000100 033637 -FINAL -C(AC)=000100 033637 - -TIME PC MA SC FE AR MQ BR -IT0 033637 033637 0 0 607000000100 0 000000000100 -IT1 033637 0 0 0 607000000100 0 000000000100 -AT3 033637 0 0 0 000000000100 0 607000000100 -AT6 033637 0 0 0 000000000100 0 607000000100 -FT1A 033637 0 0 0 000000000100 0 000000000100 -FT2 033637 0 0 0 0 0 000000000100 -FT2RQ 033637 0 0 0 000100033637 0 000000000100 -FT3 033637 0 0 0 000100033637 0 000000000100 -FT9 033640 0 0 0 000100033637 0 000000000100 -ET0 033640 0 0 0 033637000100 0 000000000100 -ET1 033640 0 0 0 033637000100 0 000000000100 -ET2 033641 0 0 0 000100033637 0 000000000100 -ST1A 033641 0 0 0 000100033637 0 000000000100 -ST9 033641 0 0 0 000100033637 0 000000000100 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 511 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0706 - -*033641 JUMPA 0,033642 -INITIAL -C(AC)=000100 033637 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033641 033641 0 0 324000033642 0 000000033642 -IT1 033641 0 0 0 324000033642 0 000000033642 -AT3 033641 0 0 0 000000033642 0 324000033642 -AT6 033641 033642 0 0 000000033642 0 324000033642 -FT1A 033641 033642 0 0 000000033642 0 000000033642 -FT2 033641 033642 0 0 0 0 000000033642 -FT2RQ 033641 033642 0 0 000100033637 0 000000033642 -FT3 033641 033642 0 0 000100033637 0 000000033642 -FT9 033642 033642 0 0 000100033637 0 000000033642 -ET0 033642 033642 0 0 000100033637 0 000000033642 -ST1A 033642 033642 0 0 000100033637 0 000000033642 -ST9 033642 033642 0 0 000100033637 0 000000033642 - - -*033642 MOVSI 1,000100 -INITIAL -C(AC)=000100 000000 -FINAL -C(AC)=000100 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033642 033642 0 0 205040000100 0 000000000100 -IT1 033642 0 0 0 205040000100 0 000000000100 -AT3 033642 0 0 0 000000000100 0 205040000100 -AT6 033642 0 0 0 000000000100 0 205040000100 -FT1A 033642 0 0 0 000000000100 0 000000000100 -FT9 033643 0 0 0 000000000100 0 000000000100 -ET0 033643 0 0 0 000100000000 0 000000000100 -ST1 033643 0 0 0 000100000000 0 000000000100 -ST2 033643 0 0 0 000100000000 0 000000000100 -ST9 033643 0 0 0 000100000000 0 000000000100 - - -*033643 JFCL 17,033644 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033643 033643 0 0 255740033644 0 000000033644 -IT1 033643 0 0 0 255740033644 0 000000033644 -AT3 033643 0 0 0 000000033644 0 255740033644 -AT6 033643 033644 0 0 000000033644 0 255740033644 -FT1A 033643 033644 0 0 000000033644 0 000000033644 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 512 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0707 - -FT9 033644 033644 0 0 000000033644 0 000000033644 -ET0 033644 033644 0 0 000000033644 0 000000033644 -ST1A 033644 033644 0 0 000000033644 0 000000033644 -ST9 033644 033644 0 0 000000033644 0 000000033644 - - -*033644 JRST 2,033645(1) -INITIAL -C(AC)=000000 000002 -C(E)=205040 000000 -FINAL - -C(E)=205040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033644 033644 0 0 254101033645 0 000100033645 -IT1 033644 0 0 0 254101033645 0 000100033645 -AT1 033644 0 0 0 0 0 254101033645 -AT2 033644 0 0 0 000100000000 0 254101033645 -AT3 033644 0 0 0 000000033645 0 000100033645 -AT6 033644 033645 0 0 000000033645 0 000100033645 -FT1A 033644 033645 0 0 000000033645 0 000100033645 -FT9 033645 033645 0 0 000000033645 0 000100033645 -ET0 033645 033645 0 0 000000033645 0 000100033645 -ST1A 033645 033645 0 0 000000033645 0 000100033645 -ST9 033645 033645 0 0 000000033645 0 000100033645 - - -*033645 MOVSI 1,000000 -INITIAL -C(AC)=000100 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033645 033645 0 0 205040000000 0 0 -IT1 033645 0 0 0 205040000000 0 0 -AT3 033645 0 0 0 0 0 205040000000 -AT6 033645 0 0 0 0 0 205040000000 -FT1A 033645 0 0 0 0 0 0 -FT9 033646 0 0 0 0 0 0 -ET0 033646 0 0 0 0 0 0 -ST1 033646 0 0 0 0 0 0 -ST2 033646 0 0 0 0 0 0 -ST9 033646 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 513 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0708 - -*033646 JFCL 17,033647 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033646 033646 0 0 255740033647 0 000000033647 -IT1 033646 0 0 0 255740033647 0 000000033647 -AT3 033646 0 0 0 000000033647 0 255740033647 -AT6 033646 033647 0 0 000000033647 0 255740033647 -FT1A 033646 033647 0 0 000000033647 0 000000033647 -FT9 033647 033647 0 0 000000033647 0 000000033647 -ET0 033647 033647 0 0 000000033647 0 000000033647 -ST1A 033647 033647 0 0 000000033647 0 000000033647 -ST9 033647 033647 0 0 000000033647 0 000000033647 - - -*033647 JRST 2,033650(1) -INITIAL -C(AC)=000000 000002 -C(E)=265000 033651 -FINAL - -C(E)=265000 033651 - -TIME PC MA SC FE AR MQ BR -IT0 033647 033647 0 0 254101033650 0 000000033650 -IT1 033647 0 0 0 254101033650 0 000000033650 -AT1 033647 0 0 0 0 0 254101033650 -AT2 033647 0 0 0 0 0 254101033650 -AT3 033647 0 0 0 000000033650 0 000000033650 -AT6 033647 033650 0 0 000000033650 0 000000033650 -FT1A 033647 033650 0 0 000000033650 0 000000033650 -FT9 033650 033650 0 0 000000033650 0 000000033650 -ET0 033650 033650 0 0 000000033650 0 000000033650 -ST1A 033650 033650 0 0 000000033650 0 000000033650 -ST9 033650 033650 0 0 000000033650 0 000000033650 - - -*033650 JSP 0,033651 -INITIAL -C(AC)=000100 033637 -FINAL -C(AC)=000000 033651 - -TIME PC MA SC FE AR MQ BR -IT0 033650 033650 0 0 265000033651 0 000000033651 -IT1 033650 0 0 0 265000033651 0 000000033651 -AT3 033650 0 0 0 000000033651 0 265000033651 -AT6 033650 033651 0 0 000000033651 0 265000033651 -FT1A 033650 033651 0 0 000000033651 0 000000033651 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 514 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0709 - -FT9 033651 033651 0 0 000000033651 0 000000033651 -ET0 033651 033651 0 0 000000033651 0 000000033651 -ST1 033651 033651 0 0 000000033651 0 000000033651 -ST2 033651 033651 0 0 000000033651 0 000000033651 -ST9 033651 033651 0 0 000000033651 0 000000033651 - - -*033651 TLNE 0,000100 -INITIAL -C(AC)=000000 033651 -FINAL -C(AC)=000000 033651 - -TIME PC MA SC FE AR MQ BR -IT0 033651 033651 0 0 603000000100 0 0 -IT1 033651 0 0 0 603000000100 0 0 -AT3 033651 0 0 0 000000000100 0 603000000100 -AT6 033651 0 0 0 000000000100 0 603000000100 -FT1A 033651 0 0 0 000000000100 0 000000000100 -FT2 033651 0 0 0 0 0 000000000100 -FT2RQ 033651 0 0 0 000000033651 0 000000000100 -FT3 033651 0 0 0 000000033651 0 000000000100 -FT9 033652 0 0 0 000000033651 0 000000000100 -ET0 033652 0 0 0 033651000000 0 000000000100 -ET1 033652 0 0 0 033651000000 0 0 -ET2 033653 0 0 0 000000033651 0 0 -ST1A 033653 0 0 0 000000033651 0 0 -ST9 033653 0 0 0 000000033651 0 0 - - -*033653 JUMPA 0,033654 -INITIAL -C(AC)=000000 033651 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033653 033653 0 0 324000033654 0 000000033654 -IT1 033653 0 0 0 324000033654 0 000000033654 -AT3 033653 0 0 0 000000033654 0 324000033654 -AT6 033653 033654 0 0 000000033654 0 324000033654 -FT1A 033653 033654 0 0 000000033654 0 000000033654 -FT2 033653 033654 0 0 0 0 000000033654 -FT2RQ 033653 033654 0 0 000000033651 0 000000033654 -FT3 033653 033654 0 0 000000033651 0 000000033654 -FT9 033654 033654 0 0 000000033651 0 000000033654 -ET0 033654 033654 0 0 000000033651 0 000000033654 -ST1A 033654 033654 0 0 000000033651 0 000000033654 -ST9 033654 033654 0 0 000000033651 0 000000033654 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 515 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0710 - -*033654 MOVSI 1,000040 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033654 033654 0 0 205040000040 0 000000000040 -IT1 033654 0 0 0 205040000040 0 000000000040 -AT3 033654 0 0 0 000000000040 0 205040000040 -AT6 033654 000040 0 0 000000000040 0 205040000040 -FT1A 033654 000040 0 0 000000000040 0 000000000040 -FT9 033655 000040 0 0 000000000040 0 000000000040 -ET0 033655 000040 0 0 000040000000 0 000000000040 -ST1 033655 000040 0 0 000040000000 0 000000000040 -ST2 033655 000040 0 0 000040000000 0 000000000040 -ST9 033655 000040 0 0 000040000000 0 000000000040 - - -*033655 JFCL 17,033656 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033655 033655 0 0 255740033656 0 000000033656 -IT1 033655 0 0 0 255740033656 0 000000033656 -AT3 033655 0 0 0 000000033656 0 255740033656 -AT6 033655 033656 0 0 000000033656 0 255740033656 -FT1A 033655 033656 0 0 000000033656 0 000000033656 -FT9 033656 033656 0 0 000000033656 0 000000033656 -ET0 033656 033656 0 0 000000033656 0 000000033656 -ST1A 033656 033656 0 0 000000033656 0 000000033656 -ST9 033656 033656 0 0 000000033656 0 000000033656 - - -*033656 JRST 2,033657(1) -INITIAL -C(AC)=000000 000002 -C(E)=265000 033660 -FINAL - -C(E)=265000 033660 - -TIME PC MA SC FE AR MQ BR -IT0 033656 033656 0 0 254101033657 0 000040033657 -IT1 033656 0 0 0 254101033657 0 000040033657 -AT1 033656 0 0 0 0 0 254101033657 -AT2 033656 0 0 0 000040000000 0 254101033657 -AT3 033656 0 0 0 000000033657 0 000040033657 -AT6 033656 033657 0 0 000000033657 0 000040033657 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 516 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0711 - -FT1A 033656 033657 0 0 000000033657 0 000040033657 -FT9 033657 033657 0 0 000000033657 0 000040033657 -ET0 033657 033657 0 0 000000033657 0 000040033657 -ST1A 033657 033657 0 0 000000033657 0 000040033657 -ST9 033657 033657 0 0 000000033657 0 000040033657 - - -*033657 JSP 0,033660 -INITIAL -C(AC)=000000 033651 -FINAL -C(AC)=000040 033660 - -TIME PC MA SC FE AR MQ BR -IT0 033657 033657 0 0 265000033660 0 000000033660 -IT1 033657 0 0 0 265000033660 0 000000033660 -AT3 033657 0 0 0 000000033660 0 265000033660 -AT6 033657 033660 0 0 000000033660 0 265000033660 -FT1A 033657 033660 0 0 000000033660 0 000000033660 -FT9 033660 033660 0 0 000000033660 0 000000033660 -ET0 033660 033660 0 0 000040033660 0 000000033660 -ST1 033660 033660 0 0 000040033660 0 000000033660 -ST2 033660 033660 0 0 000040033660 0 000000033660 -ST9 033660 033660 0 0 000040033660 0 000000033660 - - -*033660 TLNN 0,000040 -INITIAL -C(AC)=000040 033660 -FINAL -C(AC)=000040 033660 - -TIME PC MA SC FE AR MQ BR -IT0 033660 033660 0 0 607000000040 0 000000000040 -IT1 033660 0 0 0 607000000040 0 000000000040 -AT3 033660 0 0 0 000000000040 0 607000000040 -AT6 033660 000040 0 0 000000000040 0 607000000040 -FT1A 033660 000040 0 0 000000000040 0 000000000040 -FT2 033660 000040 0 0 0 0 000000000040 -FT2RQ 033660 000040 0 0 000040033660 0 000000000040 -FT3 033660 000040 0 0 000040033660 0 000000000040 -FT9 033661 000040 0 0 000040033660 0 000000000040 -ET0 033661 000040 0 0 033660000040 0 000000000040 -ET1 033661 000040 0 0 033660000040 0 000000000040 -ET2 033662 000040 0 0 000040033660 0 000000000040 -ST1A 033662 000040 0 0 000040033660 0 000000000040 -ST9 033662 000040 0 0 000040033660 0 000000000040 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 517 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0712 - -*033662 JUMPA 0,033663 -INITIAL -C(AC)=000040 033660 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033662 033662 0 0 324000033663 0 000000033663 -IT1 033662 0 0 0 324000033663 0 000000033663 -AT3 033662 0 0 0 000000033663 0 324000033663 -AT6 033662 033663 0 0 000000033663 0 324000033663 -FT1A 033662 033663 0 0 000000033663 0 000000033663 -FT2 033662 033663 0 0 0 0 000000033663 -FT2RQ 033662 033663 0 0 000040033660 0 000000033663 -FT3 033662 033663 0 0 000040033660 0 000000033663 -FT9 033663 033663 0 0 000040033660 0 000000033663 -ET0 033663 033663 0 0 000040033660 0 000000033663 -ST1A 033663 033663 0 0 000040033660 0 000000033663 -ST9 033663 033663 0 0 000040033660 0 000000033663 - - -*033663 MOVSI 1,000040 -INITIAL -C(AC)=000040 000000 -FINAL -C(AC)=000040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033663 033663 0 0 205040000040 0 000000000040 -IT1 033663 0 0 0 205040000040 0 000000000040 -AT3 033663 0 0 0 000000000040 0 205040000040 -AT6 033663 000040 0 0 000000000040 0 205040000040 -FT1A 033663 000040 0 0 000000000040 0 000000000040 -FT9 033664 000040 0 0 000000000040 0 000000000040 -ET0 033664 000040 0 0 000040000000 0 000000000040 -ST1 033664 000040 0 0 000040000000 0 000000000040 -ST2 033664 000040 0 0 000040000000 0 000000000040 -ST9 033664 000040 0 0 000040000000 0 000000000040 - - -*033664 JFCL 17,033665 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033664 033664 0 0 255740033665 0 000000033665 -IT1 033664 0 0 0 255740033665 0 000000033665 -AT3 033664 0 0 0 000000033665 0 255740033665 -AT6 033664 033665 0 0 000000033665 0 255740033665 -FT1A 033664 033665 0 0 000000033665 0 000000033665 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 518 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0713 - -FT9 033665 033665 0 0 000000033665 0 000000033665 -ET0 033665 033665 0 0 000000033665 0 000000033665 -ST1A 033665 033665 0 0 000000033665 0 000000033665 -ST9 033665 033665 0 0 000000033665 0 000000033665 - - -*033665 JRST 2,033666(1) -INITIAL -C(AC)=000000 000002 -C(E)=205040 000000 -FINAL - -C(E)=205040 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033665 033665 0 0 254101033666 0 000040033666 -IT1 033665 0 0 0 254101033666 0 000040033666 -AT1 033665 0 0 0 0 0 254101033666 -AT2 033665 0 0 0 000040000000 0 254101033666 -AT3 033665 0 0 0 000000033666 0 000040033666 -AT6 033665 033666 0 0 000000033666 0 000040033666 -FT1A 033665 033666 0 0 000000033666 0 000040033666 -FT9 033666 033666 0 0 000000033666 0 000040033666 -ET0 033666 033666 0 0 000000033666 0 000040033666 -ST1A 033666 033666 0 0 000000033666 0 000040033666 -ST9 033666 033666 0 0 000000033666 0 000040033666 - - -*033666 MOVSI 1,000000 -INITIAL -C(AC)=000040 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033666 033666 0 0 205040000000 0 0 -IT1 033666 0 0 0 205040000000 0 0 -AT3 033666 0 0 0 0 0 205040000000 -AT6 033666 0 0 0 0 0 205040000000 -FT1A 033666 0 0 0 0 0 0 -FT9 033667 0 0 0 0 0 0 -ET0 033667 0 0 0 0 0 0 -ST1 033667 0 0 0 0 0 0 -ST2 033667 0 0 0 0 0 0 -ST9 033667 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 519 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0714 - -*033667 JFCL 17,033670 -INITIAL -C(AC)=000000 777723 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033667 033667 0 0 255740033670 0 000000033670 -IT1 033667 0 0 0 255740033670 0 000000033670 -AT3 033667 0 0 0 000000033670 0 255740033670 -AT6 033667 033670 0 0 000000033670 0 255740033670 -FT1A 033667 033670 0 0 000000033670 0 000000033670 -FT9 033670 033670 0 0 000000033670 0 000000033670 -ET0 033670 033670 0 0 000000033670 0 000000033670 -ST1A 033670 033670 0 0 000000033670 0 000000033670 -ST9 033670 033670 0 0 000000033670 0 000000033670 - - -*033670 JRST 2,033671(1) -INITIAL -C(AC)=000000 000002 -C(E)=265000 033672 -FINAL - -C(E)=265000 033672 - -TIME PC MA SC FE AR MQ BR -IT0 033670 033670 0 0 254101033671 0 000000033671 -IT1 033670 0 0 0 254101033671 0 000000033671 -AT1 033670 0 0 0 0 0 254101033671 -AT2 033670 0 0 0 0 0 254101033671 -AT3 033670 0 0 0 000000033671 0 000000033671 -AT6 033670 033671 0 0 000000033671 0 000000033671 -FT1A 033670 033671 0 0 000000033671 0 000000033671 -FT9 033671 033671 0 0 000000033671 0 000000033671 -ET0 033671 033671 0 0 000000033671 0 000000033671 -ST1A 033671 033671 0 0 000000033671 0 000000033671 -ST9 033671 033671 0 0 000000033671 0 000000033671 - - -*033671 JSP 0,033672 -INITIAL -C(AC)=000040 033660 -FINAL -C(AC)=000000 033672 - -TIME PC MA SC FE AR MQ BR -IT0 033671 033671 0 0 265000033672 0 000000033672 -IT1 033671 0 0 0 265000033672 0 000000033672 -AT3 033671 0 0 0 000000033672 0 265000033672 -AT6 033671 033672 0 0 000000033672 0 265000033672 -FT1A 033671 033672 0 0 000000033672 0 000000033672 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 520 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0715 - -FT9 033672 033672 0 0 000000033672 0 000000033672 -ET0 033672 033672 0 0 000000033672 0 000000033672 -ST1 033672 033672 0 0 000000033672 0 000000033672 -ST2 033672 033672 0 0 000000033672 0 000000033672 -ST9 033672 033672 0 0 000000033672 0 000000033672 - - -*033672 TLNE 0,000040 -INITIAL -C(AC)=000000 033672 -FINAL -C(AC)=000000 033672 - -TIME PC MA SC FE AR MQ BR -IT0 033672 033672 0 0 603000000040 0 0 -IT1 033672 0 0 0 603000000040 0 0 -AT3 033672 0 0 0 000000000040 0 603000000040 -AT6 033672 000040 0 0 000000000040 0 603000000040 -FT1A 033672 000040 0 0 000000000040 0 000000000040 -FT2 033672 000040 0 0 0 0 000000000040 -FT2RQ 033672 000040 0 0 000000033672 0 000000000040 -FT3 033672 000040 0 0 000000033672 0 000000000040 -FT9 033673 000040 0 0 000000033672 0 000000000040 -ET0 033673 000040 0 0 033672000000 0 000000000040 -ET1 033673 000040 0 0 033672000000 0 0 -ET2 033674 000040 0 0 000000033672 0 0 -ST1A 033674 000040 0 0 000000033672 0 0 -ST9 033674 000040 0 0 000000033672 0 0 - - -*033674 JUMPA 0,033675 -INITIAL -C(AC)=000000 033672 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033674 033674 0 0 324000033675 0 000000033675 -IT1 033674 0 0 0 324000033675 0 000000033675 -AT3 033674 0 0 0 000000033675 0 324000033675 -AT6 033674 033675 0 0 000000033675 0 324000033675 -FT1A 033674 033675 0 0 000000033675 0 000000033675 -FT2 033674 033675 0 0 0 0 000000033675 -FT2RQ 033674 033675 0 0 000000033672 0 000000033675 -FT3 033674 033675 0 0 000000033672 0 000000033675 -FT9 033675 033675 0 0 000000033672 0 000000033675 -ET0 033675 033675 0 0 000000033672 0 000000033675 -ST1A 033675 033675 0 0 000000033672 0 000000033675 -ST9 033675 033675 0 0 000000033672 0 000000033675 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 521 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0716 - -*033675 SETO 0,000000 -INITIAL -C(AC)=000000 033672 -C(E)=000000 033672 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033675 033675 0 0 474000000000 0 0 -IT1 033675 0 0 0 474000000000 0 0 -AT3 033675 0 0 0 0 0 474000000000 -AT6 033675 0 0 0 0 0 474000000000 -FT1A 033675 0 0 0 0 0 0 -FT9 033676 0 0 0 0 0 0 -ET0 033676 0 0 0 777777777777 0 0 -ST1 033676 0 0 0 777777777777 0 0 -ST2 033676 0 0 0 777777777777 0 0 -ST9 033676 0 0 0 777777777777 0 0 - - -*033676 JUMPL 0,033700 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033676 033676 0 0 321000033700 0 000000033700 -IT1 033676 0 0 0 321000033700 0 000000033700 -AT3 033676 0 0 0 000000033700 0 321000033700 -AT6 033676 0 0 0 000000033700 0 321000033700 -FT1A 033676 0 0 0 000000033700 0 000000033700 -FT2 033676 0 0 0 0 0 000000033700 -FT2RQ 033676 0 0 0 777777777777 0 000000033700 -FT3 033676 0 0 0 777777777777 0 000000033700 -FT9 033677 0 0 0 777777777777 0 000000033700 -ET0 0 0 0 0 777777777777 0 000000033700 -ST1A 0 0 0 0 777777777777 0 000000033700 -ST9 0 0 0 0 777777777777 0 000000033700 - - -*033700 JUMPA 0,033701 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 324000033701 0 000000033701 -IT1 0 0 0 0 324000033701 0 000000033701 -AT3 0 0 0 0 000000033701 0 324000033701 -AT6 0 033701 0 0 000000033701 0 324000033701 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 522 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0717 - -FT1A 0 033701 0 0 000000033701 0 000000033701 -FT2 0 033701 0 0 0 0 000000033701 -FT2RQ 0 033701 0 0 777777777777 0 000000033701 -FT3 0 033701 0 0 777777777777 0 000000033701 -FT9 033701 033701 0 0 777777777777 0 000000033701 -ET0 033701 033701 0 0 777777777777 0 000000033701 -ST1A 033701 033701 0 0 777777777777 0 000000033701 -ST9 033701 033701 0 0 777777777777 0 000000033701 - - -*033701 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 033701 033701 0 0 400000000000 0 0 -IT1 033701 0 0 0 400000000000 0 0 -AT3 033701 0 0 0 0 0 400000000000 -AT6 033701 0 0 0 0 0 400000000000 -FT1A 033701 0 0 0 0 0 0 -FT9 033702 0 0 0 0 0 0 -ET0 033702 0 0 0 0 0 0 -ST1 033702 0 0 0 0 0 0 -ST2 033702 0 0 0 0 0 0 -ST9 033702 0 0 0 0 0 0 - - -*033702 JUMPL 0,033704 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033702 033702 0 0 321000033704 0 000000033704 -IT1 033702 0 0 0 321000033704 0 000000033704 -AT3 033702 0 0 0 000000033704 0 321000033704 -AT6 033702 033704 0 0 000000033704 0 321000033704 -FT1A 033702 033704 0 0 000000033704 0 000000033704 -FT2 033702 033704 0 0 0 0 000000033704 -FT2RQ 033702 033704 0 0 0 0 000000033704 -FT3 033702 033704 0 0 0 0 000000033704 -FT9 033703 033704 0 0 0 0 000000033704 -ET0 033703 033704 0 0 0 0 000000033704 -ST1A 033703 033704 0 0 0 0 000000033704 -ST9 033703 033704 0 0 0 0 000000033704 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 523 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0718 - -*033703 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 033703 033703 0 0 334000000000 0 0 -IT1 033703 0 0 0 334000000000 0 0 -AT3 033703 0 0 0 0 0 334000000000 -AT6 033703 0 0 0 0 0 334000000000 -FT0 033703 0 0 0 0 0 334000000000 -FT1A 033703 0 0 0 0 0 0 -FT9 033704 0 0 0 0 0 0 -ET0 033705 0 0 0 0 0 0 -ST1A 033705 0 0 0 0 0 0 -ST9 033705 0 0 0 0 0 0 - - -*033705 JUMPA 0,033706 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033705 033705 0 0 324000033706 0 000000033706 -IT1 033705 0 0 0 324000033706 0 000000033706 -AT3 033705 0 0 0 000000033706 0 324000033706 -AT6 033705 033706 0 0 000000033706 0 324000033706 -FT1A 033705 033706 0 0 000000033706 0 000000033706 -FT2 033705 033706 0 0 0 0 000000033706 -FT2RQ 033705 033706 0 0 0 0 000000033706 -FT3 033705 033706 0 0 0 0 000000033706 -FT9 033706 033706 0 0 0 0 000000033706 -ET0 033706 033706 0 0 0 0 000000033706 -ST1A 033706 033706 0 0 0 0 000000033706 -ST9 033706 033706 0 0 0 0 000000033706 - - -*033706 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 033706 033706 0 0 400000000000 0 0 -IT1 033706 0 0 0 400000000000 0 0 -AT3 033706 0 0 0 0 0 400000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 524 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0719 - -AT6 033706 0 0 0 0 0 400000000000 -FT1A 033706 0 0 0 0 0 0 -FT9 033707 0 0 0 0 0 0 -ET0 033707 0 0 0 0 0 0 -ST1 033707 0 0 0 0 0 0 -ST2 033707 0 0 0 0 0 0 -ST9 033707 0 0 0 0 0 0 - - -*033707 JUMPE 0,033711 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033707 033707 0 0 322000033711 0 000000033711 -IT1 033707 0 0 0 322000033711 0 000000033711 -AT3 033707 0 0 0 000000033711 0 322000033711 -AT6 033707 033711 0 0 000000033711 0 322000033711 -FT1A 033707 033711 0 0 000000033711 0 000000033711 -FT2 033707 033711 0 0 0 0 000000033711 -FT2RQ 033707 033711 0 0 0 0 000000033711 -FT3 033707 033711 0 0 0 0 000000033711 -FT9 033710 033711 0 0 0 0 000000033711 -ET0 033711 033711 0 0 0 0 000000033711 -ST1A 033711 033711 0 0 0 0 000000033711 -ST9 033711 033711 0 0 0 0 000000033711 - - -*033711 JUMPA 0,033712 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033711 033711 0 0 324000033712 0 000000033712 -IT1 033711 0 0 0 324000033712 0 000000033712 -AT3 033711 0 0 0 000000033712 0 324000033712 -AT6 033711 033712 0 0 000000033712 0 324000033712 -FT1A 033711 033712 0 0 000000033712 0 000000033712 -FT2 033711 033712 0 0 0 0 000000033712 -FT2RQ 033711 033712 0 0 0 0 000000033712 -FT3 033711 033712 0 0 0 0 000000033712 -FT9 033712 033712 0 0 0 0 000000033712 -ET0 033712 033712 0 0 0 0 000000033712 -ST1A 033712 033712 0 0 0 0 000000033712 -ST9 033712 033712 0 0 0 0 000000033712 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 525 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0720 - -*033712 MOVEI 0,000001 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033712 033712 0 0 201000000001 0 000000000001 -IT1 033712 0 0 0 201000000001 0 000000000001 -AT3 033712 0 0 0 000000000001 0 201000000001 -AT6 033712 000001 0 0 000000000001 0 201000000001 -FT1A 033712 000001 0 0 000000000001 0 000000000001 -FT9 033713 000001 0 0 000000000001 0 000000000001 -ET0 033713 000001 0 0 000000000001 0 000000000001 -ST1 033713 000001 0 0 000000000001 0 000000000001 -ST2 033713 000001 0 0 000000000001 0 000000000001 -ST9 033713 000001 0 0 000000000001 0 000000000001 - - -*033713 JUMPN 0,033715 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033713 033713 0 0 326000033715 0 000000033715 -IT1 033713 0 0 0 326000033715 0 000000033715 -AT3 033713 0 0 0 000000033715 0 326000033715 -AT6 033713 033715 0 0 000000033715 0 326000033715 -FT1A 033713 033715 0 0 000000033715 0 000000033715 -FT2 033713 033715 0 0 0 0 000000033715 -FT2RQ 033713 033715 0 0 000000000001 0 000000033715 -FT3 033713 033715 0 0 000000000001 0 000000033715 -FT9 033714 033715 0 0 000000000001 0 000000033715 -ET0 033715 033715 0 0 000000000001 0 000000033715 -ST1A 033715 033715 0 0 000000000001 0 000000033715 -ST9 033715 033715 0 0 000000000001 0 000000033715 - - -*033715 JUMPA 0,033716 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033715 033715 0 0 324000033716 0 000000033716 -IT1 033715 0 0 0 324000033716 0 000000033716 -AT3 033715 0 0 0 000000033716 0 324000033716 -AT6 033715 033716 0 0 000000033716 0 324000033716 -FT1A 033715 033716 0 0 000000033716 0 000000033716 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 526 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0721 - -FT2 033715 033716 0 0 0 0 000000033716 -FT2RQ 033715 033716 0 0 000000000001 0 000000033716 -FT3 033715 033716 0 0 000000000001 0 000000033716 -FT9 033716 033716 0 0 000000000001 0 000000033716 -ET0 033716 033716 0 0 000000000001 0 000000033716 -ST1A 033716 033716 0 0 000000000001 0 000000033716 -ST9 033716 033716 0 0 000000000001 0 000000033716 - - -*033716 MOVEI 0,000002 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 033716 033716 0 0 201000000002 0 000000000002 -IT1 033716 0 0 0 201000000002 0 000000000002 -AT3 033716 0 0 0 000000000002 0 201000000002 -AT6 033716 000002 0 0 000000000002 0 201000000002 -FT1A 033716 000002 0 0 000000000002 0 000000000002 -FT9 033717 000002 0 0 000000000002 0 000000000002 -ET0 033717 000002 0 0 000000000002 0 000000000002 -ST1 033717 000002 0 0 000000000002 0 000000000002 -ST2 033717 000002 0 0 000000000002 0 000000000002 -ST9 033717 000002 0 0 000000000002 0 000000000002 - - -*033717 JUMPE 0,033721 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033717 033717 0 0 322000033721 0 000000033721 -IT1 033717 0 0 0 322000033721 0 000000033721 -AT3 033717 0 0 0 000000033721 0 322000033721 -AT6 033717 033721 0 0 000000033721 0 322000033721 -FT1A 033717 033721 0 0 000000033721 0 000000033721 -FT2 033717 033721 0 0 0 0 000000033721 -FT2RQ 033717 033721 0 0 000000000002 0 000000033721 -FT3 033717 033721 0 0 000000000002 0 000000033721 -FT9 033720 033721 0 0 000000000002 0 000000033721 -ET0 033720 033721 0 0 000000000002 0 000000033721 -ST1A 033720 033721 0 0 000000000002 0 000000033721 -ST9 033720 033721 0 0 000000000002 0 000000033721 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 527 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0722 - -*033720 SKIPA 0,000000 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000002 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 033720 033720 0 0 334000000000 0 000000000002 -IT1 033720 0 0 0 334000000000 0 000000000002 -AT3 033720 0 0 0 0 0 334000000000 -AT6 033720 0 0 0 0 0 334000000000 -FT0 033720 0 0 0 000000000002 0 334000000000 -FT1A 033720 0 0 0 000000000002 0 000000000002 -FT9 033721 0 0 0 000000000002 0 000000000002 -ET0 033722 0 0 0 000000000002 0 000000000002 -ST1A 033722 0 0 0 000000000002 0 000000000002 -ST9 033722 0 0 0 000000000002 0 000000000002 - - -*033722 JUMPA 0,033723 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033722 033722 0 0 324000033723 0 000000033723 -IT1 033722 0 0 0 324000033723 0 000000033723 -AT3 033722 0 0 0 000000033723 0 324000033723 -AT6 033722 033723 0 0 000000033723 0 324000033723 -FT1A 033722 033723 0 0 000000033723 0 000000033723 -FT2 033722 033723 0 0 0 0 000000033723 -FT2RQ 033722 033723 0 0 000000000002 0 000000033723 -FT3 033722 033723 0 0 000000000002 0 000000033723 -FT9 033723 033723 0 0 000000000002 0 000000033723 -ET0 033723 033723 0 0 000000000002 0 000000033723 -ST1A 033723 033723 0 0 000000000002 0 000000033723 -ST9 033723 033723 0 0 000000000002 0 000000033723 - - -*033723 SETZ 0,000000 -INITIAL -C(AC)=000000 000002 -C(E)=000000 000002 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033723 033723 0 0 400000000000 0 0 -IT1 033723 0 0 0 400000000000 0 0 -AT3 033723 0 0 0 0 0 400000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 528 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0723 - -AT6 033723 0 0 0 0 0 400000000000 -FT1A 033723 0 0 0 0 0 0 -FT9 033724 0 0 0 0 0 0 -ET0 033724 0 0 0 0 0 0 -ST1 033724 0 0 0 0 0 0 -ST2 033724 0 0 0 0 0 0 -ST9 033724 0 0 0 0 0 0 - - -*033724 JUMPN 0,033726 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033724 033724 0 0 326000033726 0 000000033726 -IT1 033724 0 0 0 326000033726 0 000000033726 -AT3 033724 0 0 0 000000033726 0 326000033726 -AT6 033724 033726 0 0 000000033726 0 326000033726 -FT1A 033724 033726 0 0 000000033726 0 000000033726 -FT2 033724 033726 0 0 0 0 000000033726 -FT2RQ 033724 033726 0 0 0 0 000000033726 -FT3 033724 033726 0 0 0 0 000000033726 -FT9 033725 033726 0 0 0 0 000000033726 -ET0 033725 033726 0 0 0 0 000000033726 -ST1A 033725 033726 0 0 0 0 000000033726 -ST9 033725 033726 0 0 0 0 000000033726 - - -*033725 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 033725 033725 0 0 334000000000 0 0 -IT1 033725 0 0 0 334000000000 0 0 -AT3 033725 0 0 0 0 0 334000000000 -AT6 033725 0 0 0 0 0 334000000000 -FT0 033725 0 0 0 0 0 334000000000 -FT1A 033725 0 0 0 0 0 0 -FT9 033726 0 0 0 0 0 0 -ET0 033727 0 0 0 0 0 0 -ST1A 033727 0 0 0 0 0 0 -ST9 033727 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 529 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0724 - -*033727 JUMPA 0,033730 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033727 033727 0 0 324000033730 0 000000033730 -IT1 033727 0 0 0 324000033730 0 000000033730 -AT3 033727 0 0 0 000000033730 0 324000033730 -AT6 033727 033730 0 0 000000033730 0 324000033730 -FT1A 033727 033730 0 0 000000033730 0 000000033730 -FT2 033727 033730 0 0 0 0 000000033730 -FT2RQ 033727 033730 0 0 0 0 000000033730 -FT3 033727 033730 0 0 0 0 000000033730 -FT9 033730 033730 0 0 0 0 000000033730 -ET0 033730 033730 0 0 0 0 000000033730 -ST1A 033730 033730 0 0 0 0 000000033730 -ST9 033730 033730 0 0 0 0 000000033730 - - -*033730 MOVEI 0,000001 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033730 033730 0 0 201000000001 0 000000000001 -IT1 033730 0 0 0 201000000001 0 000000000001 -AT3 033730 0 0 0 000000000001 0 201000000001 -AT6 033730 000001 0 0 000000000001 0 201000000001 -FT1A 033730 000001 0 0 000000000001 0 000000000001 -FT9 033731 000001 0 0 000000000001 0 000000000001 -ET0 033731 000001 0 0 000000000001 0 000000000001 -ST1 033731 000001 0 0 000000000001 0 000000000001 -ST2 033731 000001 0 0 000000000001 0 000000000001 -ST9 033731 000001 0 0 000000000001 0 000000000001 - - -*033731 JUMPG 0,033733 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033731 033731 0 0 327000033733 0 000000033733 -IT1 033731 0 0 0 327000033733 0 000000033733 -AT3 033731 0 0 0 000000033733 0 327000033733 -AT6 033731 033733 0 0 000000033733 0 327000033733 -FT1A 033731 033733 0 0 000000033733 0 000000033733 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 530 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0725 - -FT2 033731 033733 0 0 0 0 000000033733 -FT2RQ 033731 033733 0 0 000000000001 0 000000033733 -FT3 033731 033733 0 0 000000000001 0 000000033733 -FT9 033732 033733 0 0 000000000001 0 000000033733 -ET0 033733 033733 0 0 000000000001 0 000000033733 -ST1A 033733 033733 0 0 000000000001 0 000000033733 -ST9 033733 033733 0 0 000000000001 0 000000033733 - - -*033733 JUMPA 0,033734 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033733 033733 0 0 324000033734 0 000000033734 -IT1 033733 0 0 0 324000033734 0 000000033734 -AT3 033733 0 0 0 000000033734 0 324000033734 -AT6 033733 033734 0 0 000000033734 0 324000033734 -FT1A 033733 033734 0 0 000000033734 0 000000033734 -FT2 033733 033734 0 0 0 0 000000033734 -FT2RQ 033733 033734 0 0 000000000001 0 000000033734 -FT3 033733 033734 0 0 000000000001 0 000000033734 -FT9 033734 033734 0 0 000000000001 0 000000033734 -ET0 033734 033734 0 0 000000000001 0 000000033734 -ST1A 033734 033734 0 0 000000000001 0 000000033734 -ST9 033734 033734 0 0 000000000001 0 000000033734 - - -*033734 MOVSI 0,777777 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033734 033734 0 0 205000777777 0 000000777777 -IT1 033734 0 0 0 205000777777 0 000000777777 -AT3 033734 0 0 0 000000777777 0 205000777777 -AT6 033734 777777 0 0 000000777777 0 205000777777 -FT1A 033734 777777 0 0 000000777777 0 000000777777 -FT9 033735 777777 0 0 000000777777 0 000000777777 -ET0 033735 777777 0 0 777777000000 0 000000777777 -ST1 033735 777777 0 0 777777000000 0 000000777777 -ST2 033735 777777 0 0 777777000000 0 000000777777 -ST9 033735 777777 0 0 777777000000 0 000000777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 531 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0726 - -*033735 JUMPG 0,033737 -INITIAL -C(AC)=777777 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033735 033735 0 0 327000033737 0 000000033737 -IT1 033735 0 0 0 327000033737 0 000000033737 -AT3 033735 0 0 0 000000033737 0 327000033737 -AT6 033735 033737 0 0 000000033737 0 327000033737 -FT1A 033735 033737 0 0 000000033737 0 000000033737 -FT2 033735 033737 0 0 0 0 000000033737 -FT2RQ 033735 033737 0 0 777777000000 0 000000033737 -FT3 033735 033737 0 0 777777000000 0 000000033737 -FT9 033736 033737 0 0 777777000000 0 000000033737 -ET0 033736 033737 0 0 777777000000 0 000000033737 -ST1A 033736 033737 0 0 777777000000 0 000000033737 -ST9 033736 033737 0 0 777777000000 0 000000033737 - - -*033736 SKIPA 0,000000 -INITIAL -C(AC)=777777 000000 -C(E)=777777 000000 -FINAL -C(AC)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033736 033736 0 0 334000000000 0 777777000000 -IT1 033736 0 0 0 334000000000 0 777777000000 -AT3 033736 0 0 0 0 0 334000000000 -AT6 033736 0 0 0 0 0 334000000000 -FT0 033736 0 0 0 777777000000 0 334000000000 -FT1A 033736 0 0 0 777777000000 0 777777000000 -FT9 033737 0 0 0 777777000000 0 777777000000 -ET0 033740 0 0 0 777777000000 0 777777000000 -ST1A 033740 0 0 0 777777000000 0 777777000000 -ST9 033740 0 0 0 777777000000 0 777777000000 - - -*033740 JUMPA 0,033741 -INITIAL -C(AC)=777777 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033740 033740 0 0 324000033741 0 000000033741 -IT1 033740 0 0 0 324000033741 0 000000033741 -AT3 033740 0 0 0 000000033741 0 324000033741 -AT6 033740 033741 0 0 000000033741 0 324000033741 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 532 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0727 - -FT1A 033740 033741 0 0 000000033741 0 000000033741 -FT2 033740 033741 0 0 0 0 000000033741 -FT2RQ 033740 033741 0 0 777777000000 0 000000033741 -FT3 033740 033741 0 0 777777000000 0 000000033741 -FT9 033741 033741 0 0 777777000000 0 000000033741 -ET0 033741 033741 0 0 777777000000 0 000000033741 -ST1A 033741 033741 0 0 777777000000 0 000000033741 -ST9 033741 033741 0 0 777777000000 0 000000033741 - - -*033741 SETZ 0,000000 -INITIAL -C(AC)=777777 000000 -C(E)=777777 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033741 033741 0 0 400000000000 0 0 -IT1 033741 0 0 0 400000000000 0 0 -AT3 033741 0 0 0 0 0 400000000000 -AT6 033741 0 0 0 0 0 400000000000 -FT1A 033741 0 0 0 0 0 0 -FT9 033742 0 0 0 0 0 0 -ET0 033742 0 0 0 0 0 0 -ST1 033742 0 0 0 0 0 0 -ST2 033742 0 0 0 0 0 0 -ST9 033742 0 0 0 0 0 0 - - -*033742 AOJ 0,033744 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033742 033742 0 0 340000033744 0 000000033744 -IT1 033742 0 0 0 340000033744 0 000000033744 -AT3 033742 0 0 0 000000033744 0 340000033744 -AT6 033742 033744 0 0 000000033744 0 340000033744 -FT1A 033742 033744 0 0 000000033744 0 000000033744 -FT2 033742 033744 0 0 0 0 000000033744 -FT2RQ 033742 033744 0 0 0 0 000000033744 -FT3 033742 033744 0 0 0 0 000000033744 -FT9 033743 033744 0 0 0 0 000000033744 -ET0 033743 033744 0 0 000000000001 0 000000033744 -ST1 033743 033744 0 0 000000000001 0 000000033744 -ST2 033743 033744 0 0 000000000001 0 000000033744 -ST9 033743 033744 0 0 000000000001 0 000000033744 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 533 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0728 - -*033743 CAIE 0,000001 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033743 033743 0 0 302000000001 0 000000000001 -IT1 033743 0 0 0 302000000001 0 000000000001 -AT3 033743 0 0 0 000000000001 0 302000000001 -AT6 033743 000001 0 0 000000000001 0 302000000001 -FT1A 033743 000001 0 0 000000000001 0 000000000001 -FT2 033743 000001 0 0 0 0 000000000001 -FT2RQ 033743 000001 0 0 000000000001 0 000000000001 -FT3 033743 000001 0 0 000000000001 0 000000000001 -FT9 033744 000001 0 0 000000000001 0 000000000001 -ET0 033745 000001 0 0 0 0 000000000001 -ST1A 033745 000001 0 0 0 0 000000000001 -ST9 033745 000001 0 0 0 0 000000000001 - - -*033745 JUMPA 0,033746 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033745 033745 0 0 324000033746 0 000000033746 -IT1 033745 0 0 0 324000033746 0 000000033746 -AT3 033745 0 0 0 000000033746 0 324000033746 -AT6 033745 033746 0 0 000000033746 0 324000033746 -FT1A 033745 033746 0 0 000000033746 0 000000033746 -FT2 033745 033746 0 0 0 0 000000033746 -FT2RQ 033745 033746 0 0 000000000001 0 000000033746 -FT3 033745 033746 0 0 000000000001 0 000000033746 -FT9 033746 033746 0 0 000000000001 0 000000033746 -ET0 033746 033746 0 0 000000000001 0 000000033746 -ST1A 033746 033746 0 0 000000000001 0 000000033746 -ST9 033746 033746 0 0 000000000001 0 000000033746 - - -*033746 SETO 0,000000 -INITIAL -C(AC)=000000 000001 -C(E)=000000 000001 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033746 033746 0 0 474000000000 0 0 -IT1 033746 0 0 0 474000000000 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 534 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0729 - -AT3 033746 0 0 0 0 0 474000000000 -AT6 033746 0 0 0 0 0 474000000000 -FT1A 033746 0 0 0 0 0 0 -FT9 033747 0 0 0 0 0 0 -ET0 033747 0 0 0 777777777777 0 0 -ST1 033747 0 0 0 777777777777 0 0 -ST2 033747 0 0 0 777777777777 0 0 -ST9 033747 0 0 0 777777777777 0 0 - - -*033747 AOJ 0,033751 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033747 033747 0 0 340000033751 0 000000033751 -IT1 033747 0 0 0 340000033751 0 000000033751 -AT3 033747 0 0 0 000000033751 0 340000033751 -AT6 033747 033751 0 0 000000033751 0 340000033751 -FT1A 033747 033751 0 0 000000033751 0 000000033751 -FT2 033747 033751 0 0 0 0 000000033751 -FT2RQ 033747 033751 0 0 777777777777 0 000000033751 -FT3 033747 033751 0 0 777777777777 0 000000033751 -FT9 033750 033751 0 0 777777777777 0 000000033751 -ET0 033750 033751 0 0 0 0 000000033751 -ST1 033750 033751 0 0 0 0 000000033751 -ST2 033750 033751 0 0 0 0 000000033751 -ST9 033750 033751 0 0 0 0 000000033751 - - -*033750 CAIE 0,000000 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033750 033750 0 0 302000000000 0 0 -IT1 033750 0 0 0 302000000000 0 0 -AT3 033750 0 0 0 0 0 302000000000 -AT6 033750 0 0 0 0 0 302000000000 -FT1A 033750 0 0 0 0 0 0 -FT2 033750 0 0 0 0 0 0 -FT2RQ 033750 0 0 0 0 0 0 -FT3 033750 0 0 0 0 0 0 -FT9 033751 0 0 0 0 0 0 -ET0 033752 0 0 0 0 0 0 -ST1A 033752 0 0 0 0 0 0 -ST9 033752 0 0 0 0 0 0 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 535 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0730 - - -*033752 JUMPA 0,033753 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033752 033752 0 0 324000033753 0 000000033753 -IT1 033752 0 0 0 324000033753 0 000000033753 -AT3 033752 0 0 0 000000033753 0 324000033753 -AT6 033752 033753 0 0 000000033753 0 324000033753 -FT1A 033752 033753 0 0 000000033753 0 000000033753 -FT2 033752 033753 0 0 0 0 000000033753 -FT2RQ 033752 033753 0 0 0 0 000000033753 -FT3 033752 033753 0 0 0 0 000000033753 -FT9 033753 033753 0 0 0 0 000000033753 -ET0 033753 033753 0 0 0 0 000000033753 -ST1A 033753 033753 0 0 0 0 000000033753 -ST9 033753 033753 0 0 0 0 000000033753 - - -*033753 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 033753 033753 0 0 400000000000 0 0 -IT1 033753 0 0 0 400000000000 0 0 -AT3 033753 0 0 0 0 0 400000000000 -AT6 033753 0 0 0 0 0 400000000000 -FT1A 033753 0 0 0 0 0 0 -FT9 033754 0 0 0 0 0 0 -ET0 033754 0 0 0 0 0 0 -ST1 033754 0 0 0 0 0 0 -ST2 033754 0 0 0 0 0 0 -ST9 033754 0 0 0 0 0 0 - - -*033754 SOJ 0,033756 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033754 033754 0 0 360000033756 0 000000033756 -IT1 033754 0 0 0 360000033756 0 000000033756 -AT3 033754 0 0 0 000000033756 0 360000033756 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 536 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0731 - -AT6 033754 033756 0 0 000000033756 0 360000033756 -FT1A 033754 033756 0 0 000000033756 0 000000033756 -FT2 033754 033756 0 0 0 0 000000033756 -FT2RQ 033754 033756 0 0 0 0 000000033756 -FT3 033754 033756 0 0 0 0 000000033756 -FT9 033755 033756 0 0 0 0 000000033756 -ET0 033755 033756 0 0 777777777777 0 000000033756 -ST1 033755 033756 0 0 777777777777 0 000000033756 -ST2 033755 033756 0 0 777777777777 0 000000033756 -ST9 033755 033756 0 0 777777777777 0 000000033756 - - -*033755 CAME 0,034466 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033755 033755 0 0 312000034466 0 777777777777 -IT1 033755 0 0 0 312000034466 0 777777777777 -AT3 033755 0 0 0 000000034466 0 312000034466 -AT6 033755 034466 0 0 000000034466 0 312000034466 -FT0 033755 034466 0 0 777777777777 0 312000034466 -FT1A 033755 034466 0 0 777777777777 0 777777777777 -FT2 033755 034466 0 0 0 0 777777777777 -FT2RQ 033755 034466 0 0 777777777777 0 777777777777 -FT3 033755 034466 0 0 777777777777 0 777777777777 -FT9 033756 034466 0 0 777777777777 0 777777777777 -ET0 033757 034466 0 0 0 0 777777777777 -ST1A 033757 034466 0 0 0 0 777777777777 -ST9 033757 034466 0 0 0 0 777777777777 - - -*033757 JUMPA 0,033760 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033757 033757 0 0 324000033760 0 000000033760 -IT1 033757 0 0 0 324000033760 0 000000033760 -AT3 033757 0 0 0 000000033760 0 324000033760 -AT6 033757 033760 0 0 000000033760 0 324000033760 -FT1A 033757 033760 0 0 000000033760 0 000000033760 -FT2 033757 033760 0 0 0 0 000000033760 -FT2RQ 033757 033760 0 0 777777777777 0 000000033760 -FT3 033757 033760 0 0 777777777777 0 000000033760 -FT9 033760 033760 0 0 777777777777 0 000000033760 -ET0 033760 033760 0 0 777777777777 0 000000033760 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 537 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0732 - -ST1A 033760 033760 0 0 777777777777 0 000000033760 -ST9 033760 033760 0 0 777777777777 0 000000033760 - - -*033760 SETO 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033760 033760 0 0 474000000000 0 0 -IT1 033760 0 0 0 474000000000 0 0 -AT3 033760 0 0 0 0 0 474000000000 -AT6 033760 0 0 0 0 0 474000000000 -FT1A 033760 0 0 0 0 0 0 -FT9 033761 0 0 0 0 0 0 -ET0 033761 0 0 0 777777777777 0 0 -ST1 033761 0 0 0 777777777777 0 0 -ST2 033761 0 0 0 777777777777 0 0 -ST9 033761 0 0 0 777777777777 0 0 - - -*033761 SOJ 0,033763 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=777777 777776 - -TIME PC MA SC FE AR MQ BR -IT0 033761 033761 0 0 360000033763 0 000000033763 -IT1 033761 0 0 0 360000033763 0 000000033763 -AT3 033761 0 0 0 000000033763 0 360000033763 -AT6 033761 033763 0 0 000000033763 0 360000033763 -FT1A 033761 033763 0 0 000000033763 0 000000033763 -FT2 033761 033763 0 0 0 0 000000033763 -FT2RQ 033761 033763 0 0 777777777777 0 000000033763 -FT3 033761 033763 0 0 777777777777 0 000000033763 -FT9 033762 033763 0 0 777777777777 0 000000033763 -ET0 033762 033763 0 0 777777777776 0 000000033763 -ST1 033762 033763 0 0 777777777776 0 000000033763 -ST2 033762 033763 0 0 777777777776 0 000000033763 -ST9 033762 033763 0 0 777777777776 0 000000033763 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 538 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0733 - -*033762 CAME 0,034467 -INITIAL -C(AC)=777777 777776 -C(E)=777777 777776 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033762 033762 0 0 312000034467 0 777777777776 -IT1 033762 0 0 0 312000034467 0 777777777776 -AT3 033762 0 0 0 000000034467 0 312000034467 -AT6 033762 034467 0 0 000000034467 0 312000034467 -FT0 033762 034467 0 0 777777777776 0 312000034467 -FT1A 033762 034467 0 0 777777777776 0 777777777776 -FT2 033762 034467 0 0 0 0 777777777776 -FT2RQ 033762 034467 0 0 777777777776 0 777777777776 -FT3 033762 034467 0 0 777777777776 0 777777777776 -FT9 033763 034467 0 0 777777777776 0 777777777776 -ET0 033764 034467 0 0 0 0 777777777776 -ST1A 033764 034467 0 0 0 0 777777777776 -ST9 033764 034467 0 0 0 0 777777777776 - - -*033764 JUMPA 0,033765 -INITIAL -C(AC)=777777 777776 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033764 033764 0 0 324000033765 0 000000033765 -IT1 033764 0 0 0 324000033765 0 000000033765 -AT3 033764 0 0 0 000000033765 0 324000033765 -AT6 033764 033765 0 0 000000033765 0 324000033765 -FT1A 033764 033765 0 0 000000033765 0 000000033765 -FT2 033764 033765 0 0 0 0 000000033765 -FT2RQ 033764 033765 0 0 777777777776 0 000000033765 -FT3 033764 033765 0 0 777777777776 0 000000033765 -FT9 033765 033765 0 0 777777777776 0 000000033765 -ET0 033765 033765 0 0 777777777776 0 000000033765 -ST1A 033765 033765 0 0 777777777776 0 000000033765 -ST9 033765 033765 0 0 777777777776 0 000000033765 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 539 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0734 - -*033765 MOVEI 0,000001 -INITIAL -C(AC)=777777 777776 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 033765 033765 0 0 201000000001 0 000000000001 -IT1 033765 0 0 0 201000000001 0 000000000001 -AT3 033765 0 0 0 000000000001 0 201000000001 -AT6 033765 000001 0 0 000000000001 0 201000000001 -FT1A 033765 000001 0 0 000000000001 0 000000000001 -FT9 033766 000001 0 0 000000000001 0 000000000001 -ET0 033766 000001 0 0 000000000001 0 000000000001 -ST1 033766 000001 0 0 000000000001 0 000000000001 -ST2 033766 000001 0 0 000000000001 0 000000000001 -ST9 033766 000001 0 0 000000000001 0 000000000001 - - -*033766 SOJ 0,033770 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033766 033766 0 0 360000033770 0 000000033770 -IT1 033766 0 0 0 360000033770 0 000000033770 -AT3 033766 0 0 0 000000033770 0 360000033770 -AT6 033766 033770 0 0 000000033770 0 360000033770 -FT1A 033766 033770 0 0 000000033770 0 000000033770 -FT2 033766 033770 0 0 0 0 000000033770 -FT2RQ 033766 033770 0 0 000000000001 0 000000033770 -FT3 033766 033770 0 0 000000000001 0 000000033770 -FT9 033767 033770 0 0 000000000001 0 000000033770 -ET0 033767 033770 0 0 0 0 000000033770 -ST1 033767 033770 0 0 0 0 000000033770 -ST2 033767 033770 0 0 0 0 000000033770 -ST9 033767 033770 0 0 0 0 000000033770 - - -*033767 CAIE 0,000000 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033767 033767 0 0 302000000000 0 0 -IT1 033767 0 0 0 302000000000 0 0 -AT3 033767 0 0 0 0 0 302000000000 -AT6 033767 0 0 0 0 0 302000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 540 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0735 - -FT1A 033767 0 0 0 0 0 0 -FT2 033767 0 0 0 0 0 0 -FT2RQ 033767 0 0 0 0 0 0 -FT3 033767 0 0 0 0 0 0 -FT9 033770 0 0 0 0 0 0 -ET0 033771 0 0 0 0 0 0 -ST1A 033771 0 0 0 0 0 0 -ST9 033771 0 0 0 0 0 0 - - -*033771 JUMPA 0,033772 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 033771 033771 0 0 324000033772 0 000000033772 -IT1 033771 0 0 0 324000033772 0 000000033772 -AT3 033771 0 0 0 000000033772 0 324000033772 -AT6 033771 033772 0 0 000000033772 0 324000033772 -FT1A 033771 033772 0 0 000000033772 0 000000033772 -FT2 033771 033772 0 0 0 0 000000033772 -FT2RQ 033771 033772 0 0 0 0 000000033772 -FT3 033771 033772 0 0 0 0 000000033772 -FT9 033772 033772 0 0 0 0 000000033772 -ET0 033772 033772 0 0 0 0 000000033772 -ST1A 033772 033772 0 0 0 0 000000033772 -ST9 033772 033772 0 0 0 0 000000033772 - - -*033772 SETZ 17,000000 -INITIAL -C(AC)=000000 777723 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033772 033772 0 0 400740000000 0 0 -IT1 033772 0 0 0 400740000000 0 0 -AT3 033772 0 0 0 0 0 400740000000 -AT6 033772 0 0 0 0 0 400740000000 -FT1A 033772 0 0 0 0 0 0 -FT9 033773 0 0 0 0 0 0 -ET0 033773 0 0 0 0 0 0 -ST1 033773 0 0 0 0 0 0 -ST2 033773 0 0 0 0 0 0 -ST9 033773 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 541 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0736 - -*033773 SOJ 17,033773 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033773 033773 0 0 360740033773 0 000000033773 -IT1 033773 0 0 0 360740033773 0 000000033773 -AT3 033773 0 0 0 000000033773 0 360740033773 -AT6 033773 033773 0 0 000000033773 0 360740033773 -FT1A 033773 033773 0 0 000000033773 0 000000033773 -FT2 033773 033773 0 0 0 0 000000033773 -FT2RQ 033773 033773 0 0 0 0 000000033773 -FT3 033773 033773 0 0 0 0 000000033773 -FT9 033774 033773 0 0 0 0 000000033773 -ET0 033774 033773 0 0 777777777777 0 000000033773 -ST1 033774 033773 0 0 777777777777 0 000000033773 -ST2 033774 033773 0 0 777777777777 0 000000033773 -ST9 033774 033773 0 0 777777777777 0 000000033773 - - -*033774 AOJ 17,033774 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033774 033774 0 0 340740033774 0 000000033774 -IT1 033774 0 0 0 340740033774 0 000000033774 -AT3 033774 0 0 0 000000033774 0 340740033774 -AT6 033774 033774 0 0 000000033774 0 340740033774 -FT1A 033774 033774 0 0 000000033774 0 000000033774 -FT2 033774 033774 0 0 0 0 000000033774 -FT2RQ 033774 033774 0 0 777777777777 0 000000033774 -FT3 033774 033774 0 0 777777777777 0 000000033774 -FT9 033775 033774 0 0 777777777777 0 000000033774 -ET0 033775 033774 0 0 0 0 000000033774 -ST1 033775 033774 0 0 0 0 000000033774 -ST2 033775 033774 0 0 0 0 000000033774 -ST9 033775 033774 0 0 0 0 000000033774 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 542 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0737 - -*033775 SOJ 17,033775 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033775 033775 0 0 360740033775 0 000000033775 -IT1 033775 0 0 0 360740033775 0 000000033775 -AT3 033775 0 0 0 000000033775 0 360740033775 -AT6 033775 033775 0 0 000000033775 0 360740033775 -FT1A 033775 033775 0 0 000000033775 0 000000033775 -FT2 033775 033775 0 0 0 0 000000033775 -FT2RQ 033775 033775 0 0 0 0 000000033775 -FT3 033775 033775 0 0 0 0 000000033775 -FT9 033776 033775 0 0 0 0 000000033775 -ET0 033776 033775 0 0 777777777777 0 000000033775 -ST1 033776 033775 0 0 777777777777 0 000000033775 -ST2 033776 033775 0 0 777777777777 0 000000033775 -ST9 033776 033775 0 0 777777777777 0 000000033775 - - -*033776 AOJ 17,033776 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 033776 033776 0 0 340740033776 0 000000033776 -IT1 033776 0 0 0 340740033776 0 000000033776 -AT3 033776 0 0 0 000000033776 0 340740033776 -AT6 033776 033776 0 0 000000033776 0 340740033776 -FT1A 033776 033776 0 0 000000033776 0 000000033776 -FT2 033776 033776 0 0 0 0 000000033776 -FT2RQ 033776 033776 0 0 777777777777 0 000000033776 -FT3 033776 033776 0 0 777777777777 0 000000033776 -FT9 033777 033776 0 0 777777777777 0 000000033776 -ET0 033777 033776 0 0 0 0 000000033776 -ST1 033777 033776 0 0 0 0 000000033776 -ST2 033777 033776 0 0 0 0 000000033776 -ST9 033777 033776 0 0 0 0 000000033776 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 543 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0738 - -*033777 SOJ 17,033777 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 033777 033777 0 0 360740033777 0 000000033777 -IT1 033777 0 0 0 360740033777 0 000000033777 -AT3 033777 0 0 0 000000033777 0 360740033777 -AT6 033777 033777 0 0 000000033777 0 360740033777 -FT1A 033777 033777 0 0 000000033777 0 000000033777 -FT2 033777 033777 0 0 0 0 000000033777 -FT2RQ 033777 033777 0 0 0 0 000000033777 -FT3 033777 033777 0 0 0 0 000000033777 -FT9 0 033777 0 0 0 0 000000033777 -ET0 0 033777 0 0 777777777777 0 000000033777 -ST1 0 033777 0 0 777777777777 0 000000033777 -ST2 0 033777 0 0 777777777777 0 000000033777 -ST9 0 033777 0 0 777777777777 0 000000033777 - - -*034000 AOJ 17,034000 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 340740034000 0 000000034000 -IT1 0 0 0 0 340740034000 0 000000034000 -AT3 0 0 0 0 000000034000 0 340740034000 -AT6 0 0 0 0 000000034000 0 340740034000 -FT1A 0 0 0 0 000000034000 0 000000034000 -FT2 0 0 0 0 0 0 000000034000 -FT2RQ 0 0 0 0 777777777777 0 000000034000 -FT3 0 0 0 0 777777777777 0 000000034000 -FT9 034001 0 0 0 777777777777 0 000000034000 -ET0 034001 0 0 0 0 0 000000034000 -ST1 034001 0 0 0 0 0 000000034000 -ST2 034001 0 0 0 0 0 000000034000 -ST9 034001 0 0 0 0 0 000000034000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 544 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0739 - -*034001 SOJ 17,034001 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034001 034001 0 0 360740034001 0 000000034001 -IT1 034001 0 0 0 360740034001 0 000000034001 -AT3 034001 0 0 0 000000034001 0 360740034001 -AT6 034001 034001 0 0 000000034001 0 360740034001 -FT1A 034001 034001 0 0 000000034001 0 000000034001 -FT2 034001 034001 0 0 0 0 000000034001 -FT2RQ 034001 034001 0 0 0 0 000000034001 -FT3 034001 034001 0 0 0 0 000000034001 -FT9 034002 034001 0 0 0 0 000000034001 -ET0 034002 034001 0 0 777777777777 0 000000034001 -ST1 034002 034001 0 0 777777777777 0 000000034001 -ST2 034002 034001 0 0 777777777777 0 000000034001 -ST9 034002 034001 0 0 777777777777 0 000000034001 - - -*034002 AOJ 17,034002 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034002 034002 0 0 340740034002 0 000000034002 -IT1 034002 0 0 0 340740034002 0 000000034002 -AT3 034002 0 0 0 000000034002 0 340740034002 -AT6 034002 034002 0 0 000000034002 0 340740034002 -FT1A 034002 034002 0 0 000000034002 0 000000034002 -FT2 034002 034002 0 0 0 0 000000034002 -FT2RQ 034002 034002 0 0 777777777777 0 000000034002 -FT3 034002 034002 0 0 777777777777 0 000000034002 -FT9 034003 034002 0 0 777777777777 0 000000034002 -ET0 034003 034002 0 0 0 0 000000034002 -ST1 034003 034002 0 0 0 0 000000034002 -ST2 034003 034002 0 0 0 0 000000034002 -ST9 034003 034002 0 0 0 0 000000034002 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 545 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0740 - -*034003 SOJ 17,034003 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034003 034003 0 0 360740034003 0 000000034003 -IT1 034003 0 0 0 360740034003 0 000000034003 -AT3 034003 0 0 0 000000034003 0 360740034003 -AT6 034003 034003 0 0 000000034003 0 360740034003 -FT1A 034003 034003 0 0 000000034003 0 000000034003 -FT2 034003 034003 0 0 0 0 000000034003 -FT2RQ 034003 034003 0 0 0 0 000000034003 -FT3 034003 034003 0 0 0 0 000000034003 -FT9 034004 034003 0 0 0 0 000000034003 -ET0 034004 034003 0 0 777777777777 0 000000034003 -ST1 034004 034003 0 0 777777777777 0 000000034003 -ST2 034004 034003 0 0 777777777777 0 000000034003 -ST9 034004 034003 0 0 777777777777 0 000000034003 - - -*034004 AOJ 17,034004 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034004 034004 0 0 340740034004 0 000000034004 -IT1 034004 0 0 0 340740034004 0 000000034004 -AT3 034004 0 0 0 000000034004 0 340740034004 -AT6 034004 034004 0 0 000000034004 0 340740034004 -FT1A 034004 034004 0 0 000000034004 0 000000034004 -FT2 034004 034004 0 0 0 0 000000034004 -FT2RQ 034004 034004 0 0 777777777777 0 000000034004 -FT3 034004 034004 0 0 777777777777 0 000000034004 -FT9 034005 034004 0 0 777777777777 0 000000034004 -ET0 034005 034004 0 0 0 0 000000034004 -ST1 034005 034004 0 0 0 0 000000034004 -ST2 034005 034004 0 0 0 0 000000034004 -ST9 034005 034004 0 0 0 0 000000034004 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 546 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0741 - -*034005 SOJ 17,034005 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034005 034005 0 0 360740034005 0 000000034005 -IT1 034005 0 0 0 360740034005 0 000000034005 -AT3 034005 0 0 0 000000034005 0 360740034005 -AT6 034005 034005 0 0 000000034005 0 360740034005 -FT1A 034005 034005 0 0 000000034005 0 000000034005 -FT2 034005 034005 0 0 0 0 000000034005 -FT2RQ 034005 034005 0 0 0 0 000000034005 -FT3 034005 034005 0 0 0 0 000000034005 -FT9 034006 034005 0 0 0 0 000000034005 -ET0 034006 034005 0 0 777777777777 0 000000034005 -ST1 034006 034005 0 0 777777777777 0 000000034005 -ST2 034006 034005 0 0 777777777777 0 000000034005 -ST9 034006 034005 0 0 777777777777 0 000000034005 - - -*034006 AOJ 17,034006 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034006 034006 0 0 340740034006 0 000000034006 -IT1 034006 0 0 0 340740034006 0 000000034006 -AT3 034006 0 0 0 000000034006 0 340740034006 -AT6 034006 034006 0 0 000000034006 0 340740034006 -FT1A 034006 034006 0 0 000000034006 0 000000034006 -FT2 034006 034006 0 0 0 0 000000034006 -FT2RQ 034006 034006 0 0 777777777777 0 000000034006 -FT3 034006 034006 0 0 777777777777 0 000000034006 -FT9 034007 034006 0 0 777777777777 0 000000034006 -ET0 034007 034006 0 0 0 0 000000034006 -ST1 034007 034006 0 0 0 0 000000034006 -ST2 034007 034006 0 0 0 0 000000034006 -ST9 034007 034006 0 0 0 0 000000034006 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 547 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0742 - -*034007 SOJ 17,034007 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034007 034007 0 0 360740034007 0 000000034007 -IT1 034007 0 0 0 360740034007 0 000000034007 -AT3 034007 0 0 0 000000034007 0 360740034007 -AT6 034007 034007 0 0 000000034007 0 360740034007 -FT1A 034007 034007 0 0 000000034007 0 000000034007 -FT2 034007 034007 0 0 0 0 000000034007 -FT2RQ 034007 034007 0 0 0 0 000000034007 -FT3 034007 034007 0 0 0 0 000000034007 -FT9 034010 034007 0 0 0 0 000000034007 -ET0 034010 034007 0 0 777777777777 0 000000034007 -ST1 034010 034007 0 0 777777777777 0 000000034007 -ST2 034010 034007 0 0 777777777777 0 000000034007 -ST9 034010 034007 0 0 777777777777 0 000000034007 - - -*034010 AOJ 17,034010 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034010 034010 0 0 340740034010 0 000000034010 -IT1 034010 0 0 0 340740034010 0 000000034010 -AT3 034010 0 0 0 000000034010 0 340740034010 -AT6 034010 034010 0 0 000000034010 0 340740034010 -FT1A 034010 034010 0 0 000000034010 0 000000034010 -FT2 034010 034010 0 0 0 0 000000034010 -FT2RQ 034010 034010 0 0 777777777777 0 000000034010 -FT3 034010 034010 0 0 777777777777 0 000000034010 -FT9 034011 034010 0 0 777777777777 0 000000034010 -ET0 034011 034010 0 0 0 0 000000034010 -ST1 034011 034010 0 0 0 0 000000034010 -ST2 034011 034010 0 0 0 0 000000034010 -ST9 034011 034010 0 0 0 0 000000034010 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 548 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0743 - -*034011 SOJ 17,034011 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034011 034011 0 0 360740034011 0 000000034011 -IT1 034011 0 0 0 360740034011 0 000000034011 -AT3 034011 0 0 0 000000034011 0 360740034011 -AT6 034011 034011 0 0 000000034011 0 360740034011 -FT1A 034011 034011 0 0 000000034011 0 000000034011 -FT2 034011 034011 0 0 0 0 000000034011 -FT2RQ 034011 034011 0 0 0 0 000000034011 -FT3 034011 034011 0 0 0 0 000000034011 -FT9 034012 034011 0 0 0 0 000000034011 -ET0 034012 034011 0 0 777777777777 0 000000034011 -ST1 034012 034011 0 0 777777777777 0 000000034011 -ST2 034012 034011 0 0 777777777777 0 000000034011 -ST9 034012 034011 0 0 777777777777 0 000000034011 - - -*034012 AOJ 17,034012 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034012 034012 0 0 340740034012 0 000000034012 -IT1 034012 0 0 0 340740034012 0 000000034012 -AT3 034012 0 0 0 000000034012 0 340740034012 -AT6 034012 034012 0 0 000000034012 0 340740034012 -FT1A 034012 034012 0 0 000000034012 0 000000034012 -FT2 034012 034012 0 0 0 0 000000034012 -FT2RQ 034012 034012 0 0 777777777777 0 000000034012 -FT3 034012 034012 0 0 777777777777 0 000000034012 -FT9 034013 034012 0 0 777777777777 0 000000034012 -ET0 034013 034012 0 0 0 0 000000034012 -ST1 034013 034012 0 0 0 0 000000034012 -ST2 034013 034012 0 0 0 0 000000034012 -ST9 034013 034012 0 0 0 0 000000034012 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 549 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0744 - -*034013 SOJ 17,034013 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034013 034013 0 0 360740034013 0 000000034013 -IT1 034013 0 0 0 360740034013 0 000000034013 -AT3 034013 0 0 0 000000034013 0 360740034013 -AT6 034013 034013 0 0 000000034013 0 360740034013 -FT1A 034013 034013 0 0 000000034013 0 000000034013 -FT2 034013 034013 0 0 0 0 000000034013 -FT2RQ 034013 034013 0 0 0 0 000000034013 -FT3 034013 034013 0 0 0 0 000000034013 -FT9 034014 034013 0 0 0 0 000000034013 -ET0 034014 034013 0 0 777777777777 0 000000034013 -ST1 034014 034013 0 0 777777777777 0 000000034013 -ST2 034014 034013 0 0 777777777777 0 000000034013 -ST9 034014 034013 0 0 777777777777 0 000000034013 - - -*034014 AOJ 17,034014 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034014 034014 0 0 340740034014 0 000000034014 -IT1 034014 0 0 0 340740034014 0 000000034014 -AT3 034014 0 0 0 000000034014 0 340740034014 -AT6 034014 034014 0 0 000000034014 0 340740034014 -FT1A 034014 034014 0 0 000000034014 0 000000034014 -FT2 034014 034014 0 0 0 0 000000034014 -FT2RQ 034014 034014 0 0 777777777777 0 000000034014 -FT3 034014 034014 0 0 777777777777 0 000000034014 -FT9 034015 034014 0 0 777777777777 0 000000034014 -ET0 034015 034014 0 0 0 0 000000034014 -ST1 034015 034014 0 0 0 0 000000034014 -ST2 034015 034014 0 0 0 0 000000034014 -ST9 034015 034014 0 0 0 0 000000034014 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 550 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0745 - -*034015 SOJ 17,034015 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034015 034015 0 0 360740034015 0 000000034015 -IT1 034015 0 0 0 360740034015 0 000000034015 -AT3 034015 0 0 0 000000034015 0 360740034015 -AT6 034015 034015 0 0 000000034015 0 360740034015 -FT1A 034015 034015 0 0 000000034015 0 000000034015 -FT2 034015 034015 0 0 0 0 000000034015 -FT2RQ 034015 034015 0 0 0 0 000000034015 -FT3 034015 034015 0 0 0 0 000000034015 -FT9 034016 034015 0 0 0 0 000000034015 -ET0 034016 034015 0 0 777777777777 0 000000034015 -ST1 034016 034015 0 0 777777777777 0 000000034015 -ST2 034016 034015 0 0 777777777777 0 000000034015 -ST9 034016 034015 0 0 777777777777 0 000000034015 - - -*034016 AOJ 17,034016 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034016 034016 0 0 340740034016 0 000000034016 -IT1 034016 0 0 0 340740034016 0 000000034016 -AT3 034016 0 0 0 000000034016 0 340740034016 -AT6 034016 034016 0 0 000000034016 0 340740034016 -FT1A 034016 034016 0 0 000000034016 0 000000034016 -FT2 034016 034016 0 0 0 0 000000034016 -FT2RQ 034016 034016 0 0 777777777777 0 000000034016 -FT3 034016 034016 0 0 777777777777 0 000000034016 -FT9 034017 034016 0 0 777777777777 0 000000034016 -ET0 034017 034016 0 0 0 0 000000034016 -ST1 034017 034016 0 0 0 0 000000034016 -ST2 034017 034016 0 0 0 0 000000034016 -ST9 034017 034016 0 0 0 0 000000034016 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 551 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0746 - -*034017 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 034017 034017 0 0 332000000017 0 0 -IT1 034017 0 0 0 332000000017 0 0 -AT3 034017 0 0 0 000000000017 0 332000000017 -AT6 034017 000017 0 0 000000000017 0 332000000017 -FT0 034017 000017 0 0 0 0 332000000017 -FT1A 034017 000017 0 0 0 0 0 -FT9 034020 000017 0 0 0 0 0 -ET0 034021 000017 0 0 0 0 0 -ST1A 034021 000017 0 0 0 0 0 -ST9 034021 000017 0 0 0 0 0 - - -*034021 JUMPA 0,034022 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034021 034021 0 0 324000034022 0 000000034022 -IT1 034021 0 0 0 324000034022 0 000000034022 -AT3 034021 0 0 0 000000034022 0 324000034022 -AT6 034021 034022 0 0 000000034022 0 324000034022 -FT1A 034021 034022 0 0 000000034022 0 000000034022 -FT2 034021 034022 0 0 0 0 000000034022 -FT2RQ 034021 034022 0 0 0 0 000000034022 -FT3 034021 034022 0 0 0 0 000000034022 -FT9 034022 034022 0 0 0 0 000000034022 -ET0 034022 034022 0 0 0 0 000000034022 -ST1A 034022 034022 0 0 0 0 000000034022 -ST9 034022 034022 0 0 0 0 000000034022 - - -*034022 JFCL 17,034023 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034022 034022 0 0 255740034023 0 000000034023 -IT1 034022 0 0 0 255740034023 0 000000034023 -AT3 034022 0 0 0 000000034023 0 255740034023 -AT6 034022 034023 0 0 000000034023 0 255740034023 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 552 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0747 - -FT1A 034022 034023 0 0 000000034023 0 000000034023 -FT9 034023 034023 0 0 000000034023 0 000000034023 -ET0 034023 034023 0 0 000000034023 0 000000034023 -ST1A 034023 034023 0 0 000000034023 0 000000034023 -ST9 034023 034023 0 0 000000034023 0 000000034023 - - -*034023 MOVEI 0,000001 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 034023 034023 0 0 201000000001 0 000000000001 -IT1 034023 0 0 0 201000000001 0 000000000001 -AT3 034023 0 0 0 000000000001 0 201000000001 -AT6 034023 000001 0 0 000000000001 0 201000000001 -FT1A 034023 000001 0 0 000000000001 0 000000000001 -FT9 034024 000001 0 0 000000000001 0 000000000001 -ET0 034024 000001 0 0 000000000001 0 000000000001 -ST1 034024 000001 0 0 000000000001 0 000000000001 -ST2 034024 000001 0 0 000000000001 0 000000000001 -ST9 034024 000001 0 0 000000000001 0 000000000001 - - -*034024 SOJ 0,000000 -INITIAL -C(AC)=000000 000001 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034024 034024 0 0 360000000000 0 0 -IT1 034024 0 0 0 360000000000 0 0 -AT3 034024 0 0 0 0 0 360000000000 -AT6 034024 0 0 0 0 0 360000000000 -FT1A 034024 0 0 0 0 0 0 -FT2 034024 0 0 0 0 0 0 -FT2RQ 034024 0 0 0 000000000001 0 0 -FT3 034024 0 0 0 000000000001 0 0 -FT9 034025 0 0 0 000000000001 0 0 -ET0 034025 0 0 0 0 0 0 -ST1 034025 0 0 0 0 0 0 -ST2 034025 0 0 0 0 0 0 -ST9 034025 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 553 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0748 - -*034025 JFCL 4,034027 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034025 034025 0 0 255200034027 0 000000034027 -IT1 034025 0 0 0 255200034027 0 000000034027 -AT3 034025 0 0 0 000000034027 0 255200034027 -AT6 034025 034027 0 0 000000034027 0 255200034027 -FT1A 034025 034027 0 0 000000034027 0 000000034027 -FT9 034026 034027 0 0 000000034027 0 000000034027 -ET0 034027 034027 0 0 000000034027 0 000000034027 -ST1A 034027 034027 0 0 000000034027 0 000000034027 -ST9 034027 034027 0 0 000000034027 0 000000034027 - - -*034027 JUMPA 0,034030 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034027 034027 0 0 324000034030 0 000000034030 -IT1 034027 0 0 0 324000034030 0 000000034030 -AT3 034027 0 0 0 000000034030 0 324000034030 -AT6 034027 034030 0 0 000000034030 0 324000034030 -FT1A 034027 034030 0 0 000000034030 0 000000034030 -FT2 034027 034030 0 0 0 0 000000034030 -FT2RQ 034027 034030 0 0 0 0 000000034030 -FT3 034027 034030 0 0 0 0 000000034030 -FT9 034030 034030 0 0 0 0 000000034030 -ET0 034030 034030 0 0 0 0 000000034030 -ST1A 034030 034030 0 0 0 0 000000034030 -ST9 034030 034030 0 0 0 0 000000034030 - - -*034030 JFCL 2,034032 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034030 034030 0 0 255100034032 0 000000034032 -IT1 034030 0 0 0 255100034032 0 000000034032 -AT3 034030 0 0 0 000000034032 0 255100034032 -AT6 034030 034032 0 0 000000034032 0 255100034032 -FT1A 034030 034032 0 0 000000034032 0 000000034032 -FT9 034031 034032 0 0 000000034032 0 000000034032 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 554 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0749 - -ET0 034032 034032 0 0 000000034032 0 000000034032 -ST1A 034032 034032 0 0 000000034032 0 000000034032 -ST9 034032 034032 0 0 000000034032 0 000000034032 - - -*034032 JUMPA 0,034033 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034032 034032 0 0 324000034033 0 000000034033 -IT1 034032 0 0 0 324000034033 0 000000034033 -AT3 034032 0 0 0 000000034033 0 324000034033 -AT6 034032 034033 0 0 000000034033 0 324000034033 -FT1A 034032 034033 0 0 000000034033 0 000000034033 -FT2 034032 034033 0 0 0 0 000000034033 -FT2RQ 034032 034033 0 0 0 0 000000034033 -FT3 034032 034033 0 0 0 0 000000034033 -FT9 034033 034033 0 0 0 0 000000034033 -ET0 034033 034033 0 0 0 0 000000034033 -ST1A 034033 034033 0 0 0 0 000000034033 -ST9 034033 034033 0 0 0 0 000000034033 - - -*034033 JFCL 10,034035 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034033 034033 0 0 255400034035 0 000000034035 -IT1 034033 0 0 0 255400034035 0 000000034035 -AT3 034033 0 0 0 000000034035 0 255400034035 -AT6 034033 034035 0 0 000000034035 0 255400034035 -FT1A 034033 034035 0 0 000000034035 0 000000034035 -FT9 034034 034035 0 0 000000034035 0 000000034035 -ET0 034034 034035 0 0 000000034035 0 000000034035 -ST1A 034034 034035 0 0 000000034035 0 000000034035 -ST9 034034 034035 0 0 000000034035 0 000000034035 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 555 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0750 - -*034034 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 034034 034034 0 0 334000000000 0 0 -IT1 034034 0 0 0 334000000000 0 0 -AT3 034034 0 0 0 0 0 334000000000 -AT6 034034 0 0 0 0 0 334000000000 -FT0 034034 0 0 0 0 0 334000000000 -FT1A 034034 0 0 0 0 0 0 -FT9 034035 0 0 0 0 0 0 -ET0 034036 0 0 0 0 0 0 -ST1A 034036 0 0 0 0 0 0 -ST9 034036 0 0 0 0 0 0 - - -*034036 JUMPA 0,034037 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034036 034036 0 0 324000034037 0 000000034037 -IT1 034036 0 0 0 324000034037 0 000000034037 -AT3 034036 0 0 0 000000034037 0 324000034037 -AT6 034036 034037 0 0 000000034037 0 324000034037 -FT1A 034036 034037 0 0 000000034037 0 000000034037 -FT2 034036 034037 0 0 0 0 000000034037 -FT2RQ 034036 034037 0 0 0 0 000000034037 -FT3 034036 034037 0 0 0 0 000000034037 -FT9 034037 034037 0 0 0 0 000000034037 -ET0 034037 034037 0 0 0 0 000000034037 -ST1A 034037 034037 0 0 0 0 000000034037 -ST9 034037 034037 0 0 0 0 000000034037 - - -*034037 JFCL 1,034041 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034037 034037 0 0 255040034041 0 000000034041 -IT1 034037 0 0 0 255040034041 0 000000034041 -AT3 034037 0 0 0 000000034041 0 255040034041 -AT6 034037 034041 0 0 000000034041 0 255040034041 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 556 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0751 - -FT1A 034037 034041 0 0 000000034041 0 000000034041 -FT9 034040 034041 0 0 000000034041 0 000000034041 -ET0 034040 034041 0 0 000000034041 0 000000034041 -ST1A 034040 034041 0 0 000000034041 0 000000034041 -ST9 034040 034041 0 0 000000034041 0 000000034041 - - -*034040 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 034040 034040 0 0 334000000000 0 0 -IT1 034040 0 0 0 334000000000 0 0 -AT3 034040 0 0 0 0 0 334000000000 -AT6 034040 0 0 0 0 0 334000000000 -FT0 034040 0 0 0 0 0 334000000000 -FT1A 034040 0 0 0 0 0 0 -FT9 034041 0 0 0 0 0 0 -ET0 034042 0 0 0 0 0 0 -ST1A 034042 0 0 0 0 0 0 -ST9 034042 0 0 0 0 0 0 - - -*034042 JUMPA 0,034043 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034042 034042 0 0 324000034043 0 000000034043 -IT1 034042 0 0 0 324000034043 0 000000034043 -AT3 034042 0 0 0 000000034043 0 324000034043 -AT6 034042 034043 0 0 000000034043 0 324000034043 -FT1A 034042 034043 0 0 000000034043 0 000000034043 -FT2 034042 034043 0 0 0 0 000000034043 -FT2RQ 034042 034043 0 0 0 0 000000034043 -FT3 034042 034043 0 0 0 0 000000034043 -FT9 034043 034043 0 0 0 0 000000034043 -ET0 034043 034043 0 0 0 0 000000034043 -ST1A 034043 034043 0 0 0 0 000000034043 -ST9 034043 034043 0 0 0 0 000000034043 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 557 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0752 - -*034043 JFCL 17,034044 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034043 034043 0 0 255740034044 0 000000034044 -IT1 034043 0 0 0 255740034044 0 000000034044 -AT3 034043 0 0 0 000000034044 0 255740034044 -AT6 034043 034044 0 0 000000034044 0 255740034044 -FT1A 034043 034044 0 0 000000034044 0 000000034044 -FT9 034044 034044 0 0 000000034044 0 000000034044 -ET0 034044 034044 0 0 000000034044 0 000000034044 -ST1A 034044 034044 0 0 000000034044 0 000000034044 -ST9 034044 034044 0 0 000000034044 0 000000034044 - - -*034044 SETO 0,000000 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034044 034044 0 0 474000000000 0 0 -IT1 034044 0 0 0 474000000000 0 0 -AT3 034044 0 0 0 0 0 474000000000 -AT6 034044 0 0 0 0 0 474000000000 -FT1A 034044 0 0 0 0 0 0 -FT9 034045 0 0 0 0 0 0 -ET0 034045 0 0 0 777777777777 0 0 -ST1 034045 0 0 0 777777777777 0 0 -ST2 034045 0 0 0 777777777777 0 0 -ST9 034045 0 0 0 777777777777 0 0 - - -*034045 AOJ 0,000000 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034045 034045 0 0 340000000000 0 0 -IT1 034045 0 0 0 340000000000 0 0 -AT3 034045 0 0 0 0 0 340000000000 -AT6 034045 0 0 0 0 0 340000000000 -FT1A 034045 0 0 0 0 0 0 -FT2 034045 0 0 0 0 0 0 -FT2RQ 034045 0 0 0 777777777777 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 558 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0753 - -FT3 034045 0 0 0 777777777777 0 0 -FT9 034046 0 0 0 777777777777 0 0 -ET0 034046 0 0 0 0 0 0 -ST1 034046 0 0 0 0 0 0 -ST2 034046 0 0 0 0 0 0 -ST9 034046 0 0 0 0 0 0 - - -*034046 JFCL 4,034050 -INITIAL -C(AC)=000000 000004 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034046 034046 0 0 255200034050 0 000000034050 -IT1 034046 0 0 0 255200034050 0 000000034050 -AT3 034046 0 0 0 000000034050 0 255200034050 -AT6 034046 034050 0 0 000000034050 0 255200034050 -FT1A 034046 034050 0 0 000000034050 0 000000034050 -FT9 034047 034050 0 0 000000034050 0 000000034050 -ET0 034050 034050 0 0 000000034050 0 000000034050 -ST1A 034050 034050 0 0 000000034050 0 000000034050 -ST9 034050 034050 0 0 000000034050 0 000000034050 - - -*034050 JUMPA 0,034051 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034050 034050 0 0 324000034051 0 000000034051 -IT1 034050 0 0 0 324000034051 0 000000034051 -AT3 034050 0 0 0 000000034051 0 324000034051 -AT6 034050 034051 0 0 000000034051 0 324000034051 -FT1A 034050 034051 0 0 000000034051 0 000000034051 -FT2 034050 034051 0 0 0 0 000000034051 -FT2RQ 034050 034051 0 0 0 0 000000034051 -FT3 034050 034051 0 0 0 0 000000034051 -FT9 034051 034051 0 0 0 0 000000034051 -ET0 034051 034051 0 0 0 0 000000034051 -ST1A 034051 034051 0 0 0 0 000000034051 -ST9 034051 034051 0 0 0 0 000000034051 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 559 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0754 - -*034051 JFCL 2,034053 -INITIAL -C(AC)=000000 000002 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034051 034051 0 0 255100034053 0 000000034053 -IT1 034051 0 0 0 255100034053 0 000000034053 -AT3 034051 0 0 0 000000034053 0 255100034053 -AT6 034051 034053 0 0 000000034053 0 255100034053 -FT1A 034051 034053 0 0 000000034053 0 000000034053 -FT9 034052 034053 0 0 000000034053 0 000000034053 -ET0 034053 034053 0 0 000000034053 0 000000034053 -ST1A 034053 034053 0 0 000000034053 0 000000034053 -ST9 034053 034053 0 0 000000034053 0 000000034053 - - -*034053 JUMPA 0,034054 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034053 034053 0 0 324000034054 0 000000034054 -IT1 034053 0 0 0 324000034054 0 000000034054 -AT3 034053 0 0 0 000000034054 0 324000034054 -AT6 034053 034054 0 0 000000034054 0 324000034054 -FT1A 034053 034054 0 0 000000034054 0 000000034054 -FT2 034053 034054 0 0 0 0 000000034054 -FT2RQ 034053 034054 0 0 0 0 000000034054 -FT3 034053 034054 0 0 0 0 000000034054 -FT9 034054 034054 0 0 0 0 000000034054 -ET0 034054 034054 0 0 0 0 000000034054 -ST1A 034054 034054 0 0 0 0 000000034054 -ST9 034054 034054 0 0 0 0 000000034054 - - -*034054 JFCL 10,034056 -INITIAL -C(AC)=000000 000010 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034054 034054 0 0 255400034056 0 000000034056 -IT1 034054 0 0 0 255400034056 0 000000034056 -AT3 034054 0 0 0 000000034056 0 255400034056 -AT6 034054 034056 0 0 000000034056 0 255400034056 -FT1A 034054 034056 0 0 000000034056 0 000000034056 -FT9 034055 034056 0 0 000000034056 0 000000034056 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 560 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0755 - -ET0 034055 034056 0 0 000000034056 0 000000034056 -ST1A 034055 034056 0 0 000000034056 0 000000034056 -ST9 034055 034056 0 0 000000034056 0 000000034056 - - -*034055 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 034055 034055 0 0 334000000000 0 0 -IT1 034055 0 0 0 334000000000 0 0 -AT3 034055 0 0 0 0 0 334000000000 -AT6 034055 0 0 0 0 0 334000000000 -FT0 034055 0 0 0 0 0 334000000000 -FT1A 034055 0 0 0 0 0 0 -FT9 034056 0 0 0 0 0 0 -ET0 034057 0 0 0 0 0 0 -ST1A 034057 0 0 0 0 0 0 -ST9 034057 0 0 0 0 0 0 - - -*034057 JUMPA 0,034060 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034057 034057 0 0 324000034060 0 000000034060 -IT1 034057 0 0 0 324000034060 0 000000034060 -AT3 034057 0 0 0 000000034060 0 324000034060 -AT6 034057 034060 0 0 000000034060 0 324000034060 -FT1A 034057 034060 0 0 000000034060 0 000000034060 -FT2 034057 034060 0 0 0 0 000000034060 -FT2RQ 034057 034060 0 0 0 0 000000034060 -FT3 034057 034060 0 0 0 0 000000034060 -FT9 034060 034060 0 0 0 0 000000034060 -ET0 034060 034060 0 0 0 0 000000034060 -ST1A 034060 034060 0 0 0 0 000000034060 -ST9 034060 034060 0 0 0 0 000000034060 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 561 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0756 - -*034060 JFCL 1,034062 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034060 034060 0 0 255040034062 0 000000034062 -IT1 034060 0 0 0 255040034062 0 000000034062 -AT3 034060 0 0 0 000000034062 0 255040034062 -AT6 034060 034062 0 0 000000034062 0 255040034062 -FT1A 034060 034062 0 0 000000034062 0 000000034062 -FT9 034061 034062 0 0 000000034062 0 000000034062 -ET0 034061 034062 0 0 000000034062 0 000000034062 -ST1A 034061 034062 0 0 000000034062 0 000000034062 -ST9 034061 034062 0 0 000000034062 0 000000034062 - - -*034061 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 034061 034061 0 0 334000000000 0 0 -IT1 034061 0 0 0 334000000000 0 0 -AT3 034061 0 0 0 0 0 334000000000 -AT6 034061 0 0 0 0 0 334000000000 -FT0 034061 0 0 0 0 0 334000000000 -FT1A 034061 0 0 0 0 0 0 -FT9 034062 0 0 0 0 0 0 -ET0 034063 0 0 0 0 0 0 -ST1A 034063 0 0 0 0 0 0 -ST9 034063 0 0 0 0 0 0 - - -*034063 JUMPA 0,034064 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034063 034063 0 0 324000034064 0 000000034064 -IT1 034063 0 0 0 324000034064 0 000000034064 -AT3 034063 0 0 0 000000034064 0 324000034064 -AT6 034063 034064 0 0 000000034064 0 324000034064 -FT1A 034063 034064 0 0 000000034064 0 000000034064 -FT2 034063 034064 0 0 0 0 000000034064 -FT2RQ 034063 034064 0 0 0 0 000000034064 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 562 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0757 - -FT3 034063 034064 0 0 0 0 000000034064 -FT9 034064 034064 0 0 0 0 000000034064 -ET0 034064 034064 0 0 0 0 000000034064 -ST1A 034064 034064 0 0 0 0 000000034064 -ST9 034064 034064 0 0 0 0 000000034064 - - -*034064 SETOB 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034064 034064 0 0 477000000001 0 000000000001 -IT1 034064 0 0 0 477000000001 0 000000000001 -AT3 034064 0 0 0 000000000001 0 477000000001 -AT6 034064 000001 0 0 000000000001 0 477000000001 -FT1A 034064 000001 0 0 000000000001 0 000000000001 -FT9 034065 000001 0 0 000000000001 0 000000000001 -ET0 034065 000001 0 0 777777777777 0 000000000001 -ST1 034065 000001 0 0 777777777777 0 000000000001 -ST2 034065 000001 0 0 777777777777 0 000000000001 -ST6 034065 000001 0 0 777777777777 0 000000000001 -ST6A 034065 000001 0 0 777777777777 0 000000000001 -ST9 034065 000001 0 0 777777777777 0 000000000001 - - -*034065 ADDM 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - -C(E)=777777 777776 - -TIME PC MA SC FE AR MQ BR -IT0 034065 034065 0 0 272000000001 0 777777777777 -IT1 034065 0 0 0 272000000001 0 777777777777 -AT3 034065 0 0 0 000000000001 0 272000000001 -AT6 034065 000001 0 0 000000000001 0 272000000001 -FT0 034065 000001 0 0 777777777777 0 272000000001 -FT1A 034065 000001 0 0 777777777777 0 777777777777 -FT2 034065 000001 0 0 0 0 777777777777 -FT2RQ 034065 000001 0 0 777777777777 0 777777777777 -FT3 034065 000001 0 0 777777777777 0 777777777777 -FT9 034066 000001 0 0 777777777777 0 777777777777 -ET0 034066 000001 0 0 777777777776 0 777777777777 -ST5 034066 000001 0 0 777777777776 0 777777777777 -ST6A 034066 000001 0 0 777777777776 0 777777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 563 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0758 - -ST9 034066 000001 0 0 777777777776 0 777777777777 - - -*034066 CAME 0,034466 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034066 034066 0 0 312000034466 0 777777777777 -IT1 034066 0 0 0 312000034466 0 777777777777 -AT3 034066 0 0 0 000000034466 0 312000034466 -AT6 034066 034466 0 0 000000034466 0 312000034466 -FT0 034066 034466 0 0 777777777777 0 312000034466 -FT1A 034066 034466 0 0 777777777777 0 777777777777 -FT2 034066 034466 0 0 0 0 777777777777 -FT2RQ 034066 034466 0 0 777777777777 0 777777777777 -FT3 034066 034466 0 0 777777777777 0 777777777777 -FT9 034067 034466 0 0 777777777777 0 777777777777 -ET0 034070 034466 0 0 0 0 777777777777 -ST1A 034070 034466 0 0 0 0 777777777777 -ST9 034070 034466 0 0 0 0 777777777777 - - -*034070 JUMPA 0,034071 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034070 034070 0 0 324000034071 0 000000034071 -IT1 034070 0 0 0 324000034071 0 000000034071 -AT3 034070 0 0 0 000000034071 0 324000034071 -AT6 034070 034071 0 0 000000034071 0 324000034071 -FT1A 034070 034071 0 0 000000034071 0 000000034071 -FT2 034070 034071 0 0 0 0 000000034071 -FT2RQ 034070 034071 0 0 777777777777 0 000000034071 -FT3 034070 034071 0 0 777777777777 0 000000034071 -FT9 034071 034071 0 0 777777777777 0 000000034071 -ET0 034071 034071 0 0 777777777777 0 000000034071 -ST1A 034071 034071 0 0 777777777777 0 000000034071 -ST9 034071 034071 0 0 777777777777 0 000000034071 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 564 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0759 - -*034071 MOVEI 0,777777 -INITIAL -C(AC)=777777 777777 -FINAL -C(AC)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034071 034071 0 0 201000777777 0 000000777777 -IT1 034071 0 0 0 201000777777 0 000000777777 -AT3 034071 0 0 0 000000777777 0 201000777777 -AT6 034071 777777 0 0 000000777777 0 201000777777 -FT1A 034071 777777 0 0 000000777777 0 000000777777 -FT9 034072 777777 0 0 000000777777 0 000000777777 -ET0 034072 777777 0 0 000000777777 0 000000777777 -ST1 034072 777777 0 0 000000777777 0 000000777777 -ST2 034072 777777 0 0 000000777777 0 000000777777 -ST9 034072 777777 0 0 000000777777 0 000000777777 - - -*034072 HRREM 0,000001 -INITIAL -C(AC)=000000 777777 -C(E)=777777 777776 -FINAL - -C(E)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034072 034072 0 0 572000000001 0 777777777776 -IT1 034072 0 0 0 572000000001 0 777777777776 -AT3 034072 0 0 0 000000000001 0 572000000001 -AT6 034072 000001 0 0 000000000001 0 572000000001 -FT0 034072 000001 0 0 777777777776 0 572000000001 -FT1A 034072 000001 0 0 777777777776 0 777777777776 -FT2 034072 000001 0 0 0 0 777777777776 -FT2RQ 034072 000001 0 0 000000777777 0 777777777776 -FT3 034072 000001 0 0 000000777777 0 777777777776 -FT9 034073 000001 0 0 000000777777 0 777777777776 -ET0 034073 000001 0 0 777777777777 0 777777777776 -ST5 034073 000001 0 0 777777777777 0 777777777776 -ST6A 034073 000001 0 0 777777777777 0 777777777776 -ST9 034073 000001 0 0 777777777777 0 777777777776 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 565 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0760 - -*034073 CAIE 0,777777 -INITIAL -C(AC)=000000 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034073 034073 0 0 302000777777 0 000000777777 -IT1 034073 0 0 0 302000777777 0 000000777777 -AT3 034073 0 0 0 000000777777 0 302000777777 -AT6 034073 777777 0 0 000000777777 0 302000777777 -FT1A 034073 777777 0 0 000000777777 0 000000777777 -FT2 034073 777777 0 0 0 0 000000777777 -FT2RQ 034073 777777 0 0 000000777777 0 000000777777 -FT3 034073 777777 0 0 000000777777 0 000000777777 -FT9 034074 777777 0 0 000000777777 0 000000777777 -ET0 034075 777777 0 0 0 0 000000777777 -ST1A 034075 777777 0 0 0 0 000000777777 -ST9 034075 777777 0 0 0 0 000000777777 - - -*034075 JUMPA 0,034076 -INITIAL -C(AC)=000000 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034075 034075 0 0 324000034076 0 000000034076 -IT1 034075 0 0 0 324000034076 0 000000034076 -AT3 034075 0 0 0 000000034076 0 324000034076 -AT6 034075 034076 0 0 000000034076 0 324000034076 -FT1A 034075 034076 0 0 000000034076 0 000000034076 -FT2 034075 034076 0 0 0 0 000000034076 -FT2RQ 034075 034076 0 0 000000777777 0 000000034076 -FT3 034075 034076 0 0 000000777777 0 000000034076 -FT9 034076 034076 0 0 000000777777 0 000000034076 -ET0 034076 034076 0 0 000000777777 0 000000034076 -ST1A 034076 034076 0 0 000000777777 0 000000034076 -ST9 034076 034076 0 0 000000777777 0 000000034076 - - -*034076 MOVEI 0,777777 -INITIAL -C(AC)=000000 777777 -FINAL -C(AC)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034076 034076 0 0 201000777777 0 000000777777 -IT1 034076 0 0 0 201000777777 0 000000777777 -AT3 034076 0 0 0 000000777777 0 201000777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 566 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0761 - -AT6 034076 777777 0 0 000000777777 0 201000777777 -FT1A 034076 777777 0 0 000000777777 0 000000777777 -FT9 034077 777777 0 0 000000777777 0 000000777777 -ET0 034077 777777 0 0 000000777777 0 000000777777 -ST1 034077 777777 0 0 000000777777 0 000000777777 -ST2 034077 777777 0 0 000000777777 0 000000777777 -ST9 034077 777777 0 0 000000777777 0 000000777777 - - -*034077 MOVSM 0,000001 -INITIAL -C(AC)=000000 777777 -C(E)=777777 777777 -FINAL - -C(E)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034077 034077 0 0 206000000001 0 000000000001 -IT1 034077 0 0 0 206000000001 0 000000000001 -AT3 034077 0 0 0 000000000001 0 206000000001 -AT6 034077 000001 0 0 000000000001 0 206000000001 -FT1A 034077 000001 0 0 000000000001 0 000000000001 -FT2 034077 000001 0 0 0 0 000000000001 -FT2RQ 034077 000001 0 0 000000777777 0 000000000001 -FT3 034077 000001 0 0 000000777777 0 000000000001 -FT9 0 000001 0 0 000000777777 0 000000000001 -ET0 0 000001 0 0 777777000000 0 000000000001 -ST6 0 000001 0 0 777777000000 0 000000000001 -ST6A 0 000001 0 0 777777000000 0 000000000001 -ST9 0 000001 0 0 777777000000 0 000000000001 - - -*034100 CAIE 0,777777 -INITIAL -C(AC)=000000 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 302000777777 0 000000777777 -IT1 0 0 0 0 302000777777 0 000000777777 -AT3 0 0 0 0 000000777777 0 302000777777 -AT6 0 777777 0 0 000000777777 0 302000777777 -FT1A 0 777777 0 0 000000777777 0 000000777777 -FT2 0 777777 0 0 0 0 000000777777 -FT2RQ 0 777777 0 0 000000777777 0 000000777777 -FT3 0 777777 0 0 000000777777 0 000000777777 -FT9 034101 777777 0 0 000000777777 0 000000777777 -ET0 034102 777777 0 0 0 0 000000777777 -ST1A 034102 777777 0 0 0 0 000000777777 -ST9 034102 777777 0 0 0 0 000000777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 567 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0762 - - - -*034102 JUMPA 0,034103 -INITIAL -C(AC)=000000 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034102 034102 0 0 324000034103 0 000000034103 -IT1 034102 0 0 0 324000034103 0 000000034103 -AT3 034102 0 0 0 000000034103 0 324000034103 -AT6 034102 034103 0 0 000000034103 0 324000034103 -FT1A 034102 034103 0 0 000000034103 0 000000034103 -FT2 034102 034103 0 0 0 0 000000034103 -FT2RQ 034102 034103 0 0 000000777777 0 000000034103 -FT3 034102 034103 0 0 000000777777 0 000000034103 -FT9 034103 034103 0 0 000000777777 0 000000034103 -ET0 034103 034103 0 0 000000777777 0 000000034103 -ST1A 034103 034103 0 0 000000777777 0 000000034103 -ST9 034103 034103 0 0 000000777777 0 000000034103 - - -*034103 SETOB 0,000001 -INITIAL -C(AC)=000000 777777 -C(E)=777777 000000 -FINAL -C(AC)=777777 777777 -C(E)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034103 034103 0 0 477000000001 0 000000000001 -IT1 034103 0 0 0 477000000001 0 000000000001 -AT3 034103 0 0 0 000000000001 0 477000000001 -AT6 034103 000001 0 0 000000000001 0 477000000001 -FT1A 034103 000001 0 0 000000000001 0 000000000001 -FT9 034104 000001 0 0 000000000001 0 000000000001 -ET0 034104 000001 0 0 777777777777 0 000000000001 -ST1 034104 000001 0 0 777777777777 0 000000000001 -ST2 034104 000001 0 0 777777777777 0 000000000001 -ST6 034104 000001 0 0 777777777777 0 000000000001 -ST6A 034104 000001 0 0 777777777777 0 000000000001 -ST9 034104 000001 0 0 777777777777 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 568 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0763 - -*034104 XORM 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034104 034104 0 0 432000000001 0 777777777777 -IT1 034104 0 0 0 432000000001 0 777777777777 -AT3 034104 0 0 0 000000000001 0 432000000001 -AT6 034104 000001 0 0 000000000001 0 432000000001 -FT0 034104 000001 0 0 777777777777 0 432000000001 -FT1A 034104 000001 0 0 777777777777 0 777777777777 -FT2 034104 000001 0 0 0 0 777777777777 -FT2RQ 034104 000001 0 0 777777777777 0 777777777777 -FT3 034104 000001 0 0 777777777777 0 777777777777 -FT9 034105 000001 0 0 777777777777 0 777777777777 -ET0 034105 000001 0 0 0 0 777777777777 -ST5 034105 000001 0 0 0 0 777777777777 -ST6A 034105 000001 0 0 0 0 777777777777 -ST9 034105 000001 0 0 0 0 777777777777 - - -*034105 CAME 0,034466 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034105 034105 0 0 312000034466 0 777777777777 -IT1 034105 0 0 0 312000034466 0 777777777777 -AT3 034105 0 0 0 000000034466 0 312000034466 -AT6 034105 034466 0 0 000000034466 0 312000034466 -FT0 034105 034466 0 0 777777777777 0 312000034466 -FT1A 034105 034466 0 0 777777777777 0 777777777777 -FT2 034105 034466 0 0 0 0 777777777777 -FT2RQ 034105 034466 0 0 777777777777 0 777777777777 -FT3 034105 034466 0 0 777777777777 0 777777777777 -FT9 034106 034466 0 0 777777777777 0 777777777777 -ET0 034107 034466 0 0 0 0 777777777777 -ST1A 034107 034466 0 0 0 0 777777777777 -ST9 034107 034466 0 0 0 0 777777777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 569 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0764 - -*034107 JUMPA 0,034110 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034107 034107 0 0 324000034110 0 000000034110 -IT1 034107 0 0 0 324000034110 0 000000034110 -AT3 034107 0 0 0 000000034110 0 324000034110 -AT6 034107 034110 0 0 000000034110 0 324000034110 -FT1A 034107 034110 0 0 000000034110 0 000000034110 -FT2 034107 034110 0 0 0 0 000000034110 -FT2RQ 034107 034110 0 0 777777777777 0 000000034110 -FT3 034107 034110 0 0 777777777777 0 000000034110 -FT9 034110 034110 0 0 777777777777 0 000000034110 -ET0 034110 034110 0 0 777777777777 0 000000034110 -ST1A 034110 034110 0 0 777777777777 0 000000034110 -ST9 034110 034110 0 0 777777777777 0 000000034110 - - -*034110 SETOB 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034110 034110 0 0 477000000001 0 000000000001 -IT1 034110 0 0 0 477000000001 0 000000000001 -AT3 034110 0 0 0 000000000001 0 477000000001 -AT6 034110 000001 0 0 000000000001 0 477000000001 -FT1A 034110 000001 0 0 000000000001 0 000000000001 -FT9 034111 000001 0 0 000000000001 0 000000000001 -ET0 034111 000001 0 0 777777777777 0 000000000001 -ST1 034111 000001 0 0 777777777777 0 000000000001 -ST2 034111 000001 0 0 777777777777 0 000000000001 -ST6 034111 000001 0 0 777777777777 0 000000000001 -ST6A 034111 000001 0 0 777777777777 0 000000000001 -ST9 034111 000001 0 0 777777777777 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 570 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0765 - -*034111 ADDB 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777776 -C(E)=777777 777776 - -TIME PC MA SC FE AR MQ BR -IT0 034111 034111 0 0 273000000001 0 777777777777 -IT1 034111 0 0 0 273000000001 0 777777777777 -AT3 034111 0 0 0 000000000001 0 273000000001 -AT6 034111 000001 0 0 000000000001 0 273000000001 -FT0 034111 000001 0 0 777777777777 0 273000000001 -FT1A 034111 000001 0 0 777777777777 0 777777777777 -FT2 034111 000001 0 0 0 0 777777777777 -FT2RQ 034111 000001 0 0 777777777777 0 777777777777 -FT3 034111 000001 0 0 777777777777 0 777777777777 -FT9 034112 000001 0 0 777777777777 0 777777777777 -ET0 034112 000001 0 0 777777777776 0 777777777777 -ST1 034112 000001 0 0 777777777776 0 777777777777 -ST2 034112 000001 0 0 777777777776 0 777777777777 -ST5 034112 000001 0 0 777777777776 0 777777777777 -ST6A 034112 000001 0 0 777777777776 0 777777777777 -ST9 034112 000001 0 0 777777777776 0 777777777777 - - -*034112 CAME 0,000001 -INITIAL -C(AC)=777777 777776 -C(E)=777777 777776 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034112 034112 0 0 312000000001 0 777777777776 -IT1 034112 0 0 0 312000000001 0 777777777776 -AT3 034112 0 0 0 000000000001 0 312000000001 -AT6 034112 000001 0 0 000000000001 0 312000000001 -FT0 034112 000001 0 0 777777777776 0 312000000001 -FT1A 034112 000001 0 0 777777777776 0 777777777776 -FT2 034112 000001 0 0 0 0 777777777776 -FT2RQ 034112 000001 0 0 777777777776 0 777777777776 -FT3 034112 000001 0 0 777777777776 0 777777777776 -FT9 034113 000001 0 0 777777777776 0 777777777776 -ET0 034114 000001 0 0 0 0 777777777776 -ST1A 034114 000001 0 0 0 0 777777777776 -ST9 034114 000001 0 0 0 0 777777777776 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 571 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0766 - -*034114 JUMPA 0,034115 -INITIAL -C(AC)=777777 777776 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034114 034114 0 0 324000034115 0 000000034115 -IT1 034114 0 0 0 324000034115 0 000000034115 -AT3 034114 0 0 0 000000034115 0 324000034115 -AT6 034114 034115 0 0 000000034115 0 324000034115 -FT1A 034114 034115 0 0 000000034115 0 000000034115 -FT2 034114 034115 0 0 0 0 000000034115 -FT2RQ 034114 034115 0 0 777777777776 0 000000034115 -FT3 034114 034115 0 0 777777777776 0 000000034115 -FT9 034115 034115 0 0 777777777776 0 000000034115 -ET0 034115 034115 0 0 777777777776 0 000000034115 -ST1A 034115 034115 0 0 777777777776 0 000000034115 -ST9 034115 034115 0 0 777777777776 0 000000034115 - - -*034115 CAME 0,034467 -INITIAL -C(AC)=777777 777776 -C(E)=777777 777776 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034115 034115 0 0 312000034467 0 777777777776 -IT1 034115 0 0 0 312000034467 0 777777777776 -AT3 034115 0 0 0 000000034467 0 312000034467 -AT6 034115 034467 0 0 000000034467 0 312000034467 -FT0 034115 034467 0 0 777777777776 0 312000034467 -FT1A 034115 034467 0 0 777777777776 0 777777777776 -FT2 034115 034467 0 0 0 0 777777777776 -FT2RQ 034115 034467 0 0 777777777776 0 777777777776 -FT3 034115 034467 0 0 777777777776 0 777777777776 -FT9 034116 034467 0 0 777777777776 0 777777777776 -ET0 034117 034467 0 0 0 0 777777777776 -ST1A 034117 034467 0 0 0 0 777777777776 -ST9 034117 034467 0 0 0 0 777777777776 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 572 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0767 - -*034117 JUMPA 0,034120 -INITIAL -C(AC)=777777 777776 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034117 034117 0 0 324000034120 0 000000034120 -IT1 034117 0 0 0 324000034120 0 000000034120 -AT3 034117 0 0 0 000000034120 0 324000034120 -AT6 034117 034120 0 0 000000034120 0 324000034120 -FT1A 034117 034120 0 0 000000034120 0 000000034120 -FT2 034117 034120 0 0 0 0 000000034120 -FT2RQ 034117 034120 0 0 777777777776 0 000000034120 -FT3 034117 034120 0 0 777777777776 0 000000034120 -FT9 034120 034120 0 0 777777777776 0 000000034120 -ET0 034120 034120 0 0 777777777776 0 000000034120 -ST1A 034120 034120 0 0 777777777776 0 000000034120 -ST9 034120 034120 0 0 777777777776 0 000000034120 - - -*034120 SETOB 0,000001 -INITIAL -C(AC)=777777 777776 -C(E)=777777 777776 -FINAL -C(AC)=777777 777777 -C(E)=777777 777776 - -TIME PC MA SC FE AR MQ BR -IT0 034120 034120 0 0 477000000001 0 000000000001 -IT1 034120 0 0 0 477000000001 0 000000000001 -AT3 034120 0 0 0 000000000001 0 477000000001 -AT6 034120 000001 0 0 000000000001 0 477000000001 -FT1A 034120 000001 0 0 000000000001 0 000000000001 -FT9 034121 000001 0 0 000000000001 0 000000000001 -ET0 034121 000001 0 0 777777777777 0 000000000001 -ST1 034121 000001 0 0 777777777777 0 000000000001 -ST2 034121 000001 0 0 777777777777 0 000000000001 -ST6 034121 000001 0 0 777777777777 0 000000000001 -ST6A 034121 000001 0 0 777777777777 0 000000000001 -ST9 034121 000001 0 0 777777777777 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 573 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0768 - -*034121 ADDM 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - -C(E)=777777 777776 - -TIME PC MA SC FE AR MQ BR -IT0 034121 034121 0 0 272000000001 0 777777777777 -IT1 034121 0 0 0 272000000001 0 777777777777 -AT3 034121 0 0 0 000000000001 0 272000000001 -AT6 034121 000001 0 0 000000000001 0 272000000001 -FT0 034121 000001 0 0 777777777777 0 272000000001 -FT1A 034121 000001 0 0 777777777777 0 777777777777 -FT2 034121 000001 0 0 0 0 777777777777 -FT2RQ 034121 000001 0 0 777777777777 0 777777777777 -FT3 034121 000001 0 0 777777777777 0 777777777777 -FT9 034122 000001 0 0 777777777777 0 777777777777 -ET0 034122 000001 0 0 777777777776 0 777777777777 -ST5 034122 000001 0 0 777777777776 0 777777777777 -ST6A 034122 000001 0 0 777777777776 0 777777777777 -ST9 034122 000001 0 0 777777777776 0 777777777777 - - -*034122 CAME 1,034467 -INITIAL -C(AC)=777777 777776 -C(E)=777777 777776 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034122 034122 0 0 312040034467 0 777777777776 -IT1 034122 0 0 0 312040034467 0 777777777776 -AT3 034122 0 0 0 000000034467 0 312040034467 -AT6 034122 034467 0 0 000000034467 0 312040034467 -FT0 034122 034467 0 0 777777777776 0 312040034467 -FT1A 034122 034467 0 0 777777777776 0 777777777776 -FT2 034122 034467 0 0 0 0 777777777776 -FT2RQ 034122 034467 0 0 777777777776 0 777777777776 -FT3 034122 034467 0 0 777777777776 0 777777777776 -FT9 034123 034467 0 0 777777777776 0 777777777776 -ET0 034124 034467 0 0 0 0 777777777776 -ST1A 034124 034467 0 0 0 0 777777777776 -ST9 034124 034467 0 0 0 0 777777777776 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 574 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0769 - -*034124 JUMPA 0,034125 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034124 034124 0 0 324000034125 0 000000034125 -IT1 034124 0 0 0 324000034125 0 000000034125 -AT3 034124 0 0 0 000000034125 0 324000034125 -AT6 034124 034125 0 0 000000034125 0 324000034125 -FT1A 034124 034125 0 0 000000034125 0 000000034125 -FT2 034124 034125 0 0 0 0 000000034125 -FT2RQ 034124 034125 0 0 777777777777 0 000000034125 -FT3 034124 034125 0 0 777777777777 0 000000034125 -FT9 034125 034125 0 0 777777777777 0 000000034125 -ET0 034125 034125 0 0 777777777777 0 000000034125 -ST1A 034125 034125 0 0 777777777777 0 000000034125 -ST9 034125 034125 0 0 777777777777 0 000000034125 - - -*034125 SETZM 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777776 -FINAL - -C(E)=777777 777776 - -TIME PC MA SC FE AR MQ BR -IT0 034125 034125 0 0 402000000001 0 000000000001 -IT1 034125 0 0 0 402000000001 0 000000000001 -AT3 034125 0 0 0 000000000001 0 402000000001 -AT6 034125 000001 0 0 000000000001 0 402000000001 -FT1A 034125 000001 0 0 000000000001 0 000000000001 -FT9 034126 000001 0 0 000000000001 0 000000000001 -ET0 034126 000001 0 0 0 0 000000000001 -ST6 034126 000001 0 0 0 0 000000000001 -ST6A 034126 000001 0 0 0 0 000000000001 -ST9 034126 000001 0 0 0 0 000000000001 - - -*034126 HLLOS 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL - -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034126 034126 0 0 523000000001 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 575 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0770 - -IT1 034126 0 0 0 523000000001 0 0 -AT3 034126 0 0 0 000000000001 0 523000000001 -AT6 034126 000001 0 0 000000000001 0 523000000001 -FT0 034126 000001 0 0 0 0 523000000001 -FT1A 034126 000001 0 0 0 0 0 -FT9 034127 000001 0 0 0 0 0 -ET0 034127 000001 0 0 000000777777 0 0 -ST5 034127 000001 0 0 000000777777 0 0 -ST6A 034127 000001 0 0 000000777777 0 0 -ST9 034127 000001 0 0 000000777777 0 0 - - -*034127 CAIE 1,777777 -INITIAL -C(AC)=000000 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034127 034127 0 0 302040777777 0 000000777777 -IT1 034127 0 0 0 302040777777 0 000000777777 -AT3 034127 0 0 0 000000777777 0 302040777777 -AT6 034127 777777 0 0 000000777777 0 302040777777 -FT1A 034127 777777 0 0 000000777777 0 000000777777 -FT2 034127 777777 0 0 0 0 000000777777 -FT2RQ 034127 777777 0 0 000000777777 0 000000777777 -FT3 034127 777777 0 0 000000777777 0 000000777777 -FT9 034130 777777 0 0 000000777777 0 000000777777 -ET0 034131 777777 0 0 0 0 000000777777 -ST1A 034131 777777 0 0 0 0 000000777777 -ST9 034131 777777 0 0 0 0 000000777777 - - -*034131 JUMPA 0,034132 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034131 034131 0 0 324000034132 0 000000034132 -IT1 034131 0 0 0 324000034132 0 000000034132 -AT3 034131 0 0 0 000000034132 0 324000034132 -AT6 034131 034132 0 0 000000034132 0 324000034132 -FT1A 034131 034132 0 0 000000034132 0 000000034132 -FT2 034131 034132 0 0 0 0 000000034132 -FT2RQ 034131 034132 0 0 777777777777 0 000000034132 -FT3 034131 034132 0 0 777777777777 0 000000034132 -FT9 034132 034132 0 0 777777777777 0 000000034132 -ET0 034132 034132 0 0 777777777777 0 000000034132 -ST1A 034132 034132 0 0 777777777777 0 000000034132 -ST9 034132 034132 0 0 777777777777 0 000000034132 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 576 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0771 - - - -*034132 MOVSI 1,777777 -INITIAL -C(AC)=000000 777777 -FINAL -C(AC)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034132 034132 0 0 205040777777 0 000000777777 -IT1 034132 0 0 0 205040777777 0 000000777777 -AT3 034132 0 0 0 000000777777 0 205040777777 -AT6 034132 777777 0 0 000000777777 0 205040777777 -FT1A 034132 777777 0 0 000000777777 0 000000777777 -FT9 034133 777777 0 0 000000777777 0 000000777777 -ET0 034133 777777 0 0 777777000000 0 000000777777 -ST1 034133 777777 0 0 777777000000 0 000000777777 -ST2 034133 777777 0 0 777777000000 0 000000777777 -ST9 034133 777777 0 0 777777000000 0 000000777777 - - -*034133 MOVSS 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=777777 000000 -FINAL -C(AC)=777777 777777 -C(E)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034133 034133 0 0 207000000001 0 777777000000 -IT1 034133 0 0 0 207000000001 0 777777000000 -AT3 034133 0 0 0 000000000001 0 207000000001 -AT6 034133 000001 0 0 000000000001 0 207000000001 -FT0 034133 000001 0 0 777777000000 0 207000000001 -FT1A 034133 000001 0 0 777777000000 0 777777000000 -FT9 034134 000001 0 0 777777000000 0 777777000000 -ET0 034134 000001 0 0 000000777777 0 777777000000 -ST5 034134 000001 0 0 000000777777 0 777777000000 -ST6A 034134 000001 0 0 000000777777 0 777777000000 -ST9 034134 000001 0 0 000000777777 0 777777000000 - - -*034134 CAIE 1,777777 -INITIAL -C(AC)=000000 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034134 034134 0 0 302040777777 0 000000777777 -IT1 034134 0 0 0 302040777777 0 000000777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 577 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0772 - -AT3 034134 0 0 0 000000777777 0 302040777777 -AT6 034134 777777 0 0 000000777777 0 302040777777 -FT1A 034134 777777 0 0 000000777777 0 000000777777 -FT2 034134 777777 0 0 0 0 000000777777 -FT2RQ 034134 777777 0 0 000000777777 0 000000777777 -FT3 034134 777777 0 0 000000777777 0 000000777777 -FT9 034135 777777 0 0 000000777777 0 000000777777 -ET0 034136 777777 0 0 0 0 000000777777 -ST1A 034136 777777 0 0 0 0 000000777777 -ST9 034136 777777 0 0 0 0 000000777777 - - -*034136 JUMPA 0,034137 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034136 034136 0 0 324000034137 0 000000034137 -IT1 034136 0 0 0 324000034137 0 000000034137 -AT3 034136 0 0 0 000000034137 0 324000034137 -AT6 034136 034137 0 0 000000034137 0 324000034137 -FT1A 034136 034137 0 0 000000034137 0 000000034137 -FT2 034136 034137 0 0 0 0 000000034137 -FT2RQ 034136 034137 0 0 777777777777 0 000000034137 -FT3 034136 034137 0 0 777777777777 0 000000034137 -FT9 034137 034137 0 0 777777777777 0 000000034137 -ET0 034137 034137 0 0 777777777777 0 000000034137 -ST1A 034137 034137 0 0 777777777777 0 000000034137 -ST9 034137 034137 0 0 777777777777 0 000000034137 - - -*034137 SETOB 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=000000 777777 -FINAL -C(AC)=777777 777777 -C(E)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034137 034137 0 0 477000000001 0 000000000001 -IT1 034137 0 0 0 477000000001 0 000000000001 -AT3 034137 0 0 0 000000000001 0 477000000001 -AT6 034137 000001 0 0 000000000001 0 477000000001 -FT1A 034137 000001 0 0 000000000001 0 000000000001 -FT9 034140 000001 0 0 000000000001 0 000000000001 -ET0 034140 000001 0 0 777777777777 0 000000000001 -ST1 034140 000001 0 0 777777777777 0 000000000001 -ST2 034140 000001 0 0 777777777777 0 000000000001 -ST6 034140 000001 0 0 777777777777 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 578 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0773 - -ST6A 034140 000001 0 0 777777777777 0 000000000001 -ST9 034140 000001 0 0 777777777777 0 000000000001 - - -*034140 AOS 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 034140 034140 0 0 350000000001 0 777777777777 -IT1 034140 0 0 0 350000000001 0 777777777777 -AT3 034140 0 0 0 000000000001 0 350000000001 -AT6 034140 000001 0 0 000000000001 0 350000000001 -FT0 034140 000001 0 0 777777777777 0 350000000001 -FT1A 034140 000001 0 0 777777777777 0 777777777777 -FT9 034141 000001 0 0 777777777777 0 777777777777 -ET0 034141 000001 0 0 0 0 777777777777 -ST5 034141 000001 0 0 0 0 777777777777 -ST6A 034141 000001 0 0 0 0 777777777777 -ST9 034141 000001 0 0 0 0 777777777777 - - -*034141 CAIE 1,000000 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034141 034141 0 0 302040000000 0 0 -IT1 034141 0 0 0 302040000000 0 0 -AT3 034141 0 0 0 0 0 302040000000 -AT6 034141 0 0 0 0 0 302040000000 -FT1A 034141 0 0 0 0 0 0 -FT2 034141 0 0 0 0 0 0 -FT2RQ 034141 0 0 0 0 0 0 -FT3 034141 0 0 0 0 0 0 -FT9 034142 0 0 0 0 0 0 -ET0 034143 0 0 0 0 0 0 -ST1A 034143 0 0 0 0 0 0 -ST9 034143 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 579 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0774 - -*034143 JUMPA 0,034144 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034143 034143 0 0 324000034144 0 000000034144 -IT1 034143 0 0 0 324000034144 0 000000034144 -AT3 034143 0 0 0 000000034144 0 324000034144 -AT6 034143 034144 0 0 000000034144 0 324000034144 -FT1A 034143 034144 0 0 000000034144 0 000000034144 -FT2 034143 034144 0 0 0 0 000000034144 -FT2RQ 034143 034144 0 0 777777777777 0 000000034144 -FT3 034143 034144 0 0 777777777777 0 000000034144 -FT9 034144 034144 0 0 777777777777 0 000000034144 -ET0 034144 034144 0 0 777777777777 0 000000034144 -ST1A 034144 034144 0 0 777777777777 0 000000034144 -ST9 034144 034144 0 0 777777777777 0 000000034144 - - -*034144 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 034144 034144 0 0 400000000000 0 0 -IT1 034144 0 0 0 400000000000 0 0 -AT3 034144 0 0 0 0 0 400000000000 -AT6 034144 0 0 0 0 0 400000000000 -FT1A 034144 0 0 0 0 0 0 -FT9 034145 0 0 0 0 0 0 -ET0 034145 0 0 0 0 0 0 -ST1 034145 0 0 0 0 0 0 -ST2 034145 0 0 0 0 0 0 -ST9 034145 0 0 0 0 0 0 - - -*034145 SETO 1,000000 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034145 034145 0 0 474040000000 0 0 -IT1 034145 0 0 0 474040000000 0 0 -AT3 034145 0 0 0 0 0 474040000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 580 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0775 - -AT6 034145 0 0 0 0 0 474040000000 -FT1A 034145 0 0 0 0 0 0 -FT9 034146 0 0 0 0 0 0 -ET0 034146 0 0 0 777777777777 0 0 -ST1 034146 0 0 0 777777777777 0 0 -ST2 034146 0 0 0 777777777777 0 0 -ST9 034146 0 0 0 777777777777 0 0 - - -*034146 HRLM 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=777777 777777 -FINAL - -C(E)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034146 034146 0 0 506000000001 0 777777777777 -IT1 034146 0 0 0 506000000001 0 777777777777 -AT3 034146 0 0 0 000000000001 0 506000000001 -AT6 034146 000001 0 0 000000000001 0 506000000001 -FT0 034146 000001 0 0 777777777777 0 506000000001 -FT1A 034146 000001 0 0 777777777777 0 777777777777 -FT2 034146 000001 0 0 0 0 777777777777 -FT2RQ 034146 000001 0 0 0 0 777777777777 -FT3 034146 000001 0 0 0 0 777777777777 -FT9 034147 000001 0 0 0 0 777777777777 -ET0 034147 000001 0 0 000000777777 0 777777777777 -ST5 034147 000001 0 0 000000777777 0 777777777777 -ST6A 034147 000001 0 0 000000777777 0 777777777777 -ST9 034147 000001 0 0 000000777777 0 777777777777 - - -*034147 CAIE 1,777777 -INITIAL -C(AC)=000000 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034147 034147 0 0 302040777777 0 000000777777 -IT1 034147 0 0 0 302040777777 0 000000777777 -AT3 034147 0 0 0 000000777777 0 302040777777 -AT6 034147 777777 0 0 000000777777 0 302040777777 -FT1A 034147 777777 0 0 000000777777 0 000000777777 -FT2 034147 777777 0 0 0 0 000000777777 -FT2RQ 034147 777777 0 0 000000777777 0 000000777777 -FT3 034147 777777 0 0 000000777777 0 000000777777 -FT9 034150 777777 0 0 000000777777 0 000000777777 -ET0 034151 777777 0 0 0 0 000000777777 -ST1A 034151 777777 0 0 0 0 000000777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 581 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0776 - -ST9 034151 777777 0 0 0 0 000000777777 - - -*034151 JUMPA 0,034152 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034151 034151 0 0 324000034152 0 000000034152 -IT1 034151 0 0 0 324000034152 0 000000034152 -AT3 034151 0 0 0 000000034152 0 324000034152 -AT6 034151 034152 0 0 000000034152 0 324000034152 -FT1A 034151 034152 0 0 000000034152 0 000000034152 -FT2 034151 034152 0 0 0 0 000000034152 -FT2RQ 034151 034152 0 0 0 0 000000034152 -FT3 034151 034152 0 0 0 0 000000034152 -FT9 034152 034152 0 0 0 0 000000034152 -ET0 034152 034152 0 0 0 0 000000034152 -ST1A 034152 034152 0 0 0 0 000000034152 -ST9 034152 034152 0 0 0 0 000000034152 - - -*034152 SETO 0,000000 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034152 034152 0 0 474000000000 0 0 -IT1 034152 0 0 0 474000000000 0 0 -AT3 034152 0 0 0 0 0 474000000000 -AT6 034152 0 0 0 0 0 474000000000 -FT1A 034152 0 0 0 0 0 0 -FT9 034153 0 0 0 0 0 0 -ET0 034153 0 0 0 777777777777 0 0 -ST1 034153 0 0 0 777777777777 0 0 -ST2 034153 0 0 0 777777777777 0 0 -ST9 034153 0 0 0 777777777777 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 582 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0777 - -*034153 SETZ 1,000000 -INITIAL -C(AC)=000000 777777 -C(E)=777777 777777 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034153 034153 0 0 400040000000 0 0 -IT1 034153 0 0 0 400040000000 0 0 -AT3 034153 0 0 0 0 0 400040000000 -AT6 034153 0 0 0 0 0 400040000000 -FT1A 034153 0 0 0 0 0 0 -FT9 034154 0 0 0 0 0 0 -ET0 034154 0 0 0 0 0 0 -ST1 034154 0 0 0 0 0 0 -ST2 034154 0 0 0 0 0 0 -ST9 034154 0 0 0 0 0 0 - - -*034154 HRRS 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL - -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034154 034154 0 0 543000000001 0 0 -IT1 034154 0 0 0 543000000001 0 0 -AT3 034154 0 0 0 000000000001 0 543000000001 -AT6 034154 000001 0 0 000000000001 0 543000000001 -FT0 034154 000001 0 0 0 0 543000000001 -FT1A 034154 000001 0 0 0 0 0 -FT9 034155 000001 0 0 0 0 0 -ET0 034155 000001 0 0 0 0 0 -ST5 034155 000001 0 0 0 0 0 -ST6A 034155 000001 0 0 0 0 0 -ST9 034155 000001 0 0 0 0 0 - - -*034155 SKIPE 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034155 034155 0 0 332000000001 0 0 -IT1 034155 0 0 0 332000000001 0 0 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 583 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0778 - -AT3 034155 0 0 0 000000000001 0 332000000001 -AT6 034155 000001 0 0 000000000001 0 332000000001 -FT0 034155 000001 0 0 0 0 332000000001 -FT1A 034155 000001 0 0 0 0 0 -FT9 034156 000001 0 0 0 0 0 -ET0 034157 000001 0 0 0 0 0 -ST1A 034157 000001 0 0 0 0 0 -ST9 034157 000001 0 0 0 0 0 - - -*034157 JUMPA 0,034160 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034157 034157 0 0 324000034160 0 000000034160 -IT1 034157 0 0 0 324000034160 0 000000034160 -AT3 034157 0 0 0 000000034160 0 324000034160 -AT6 034157 034160 0 0 000000034160 0 324000034160 -FT1A 034157 034160 0 0 000000034160 0 000000034160 -FT2 034157 034160 0 0 0 0 000000034160 -FT2RQ 034157 034160 0 0 777777777777 0 000000034160 -FT3 034157 034160 0 0 777777777777 0 000000034160 -FT9 034160 034160 0 0 777777777777 0 000000034160 -ET0 034160 034160 0 0 777777777777 0 000000034160 -ST1A 034160 034160 0 0 777777777777 0 000000034160 -ST9 034160 034160 0 0 777777777777 0 000000034160 - - -*034160 SETO 0,000000 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034160 034160 0 0 474000000000 0 0 -IT1 034160 0 0 0 474000000000 0 0 -AT3 034160 0 0 0 0 0 474000000000 -AT6 034160 0 0 0 0 0 474000000000 -FT1A 034160 0 0 0 0 0 0 -FT9 034161 0 0 0 0 0 0 -ET0 034161 0 0 0 777777777777 0 0 -ST1 034161 0 0 0 777777777777 0 0 -ST2 034161 0 0 0 777777777777 0 0 -ST9 034161 0 0 0 777777777777 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 584 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0779 - -*034161 MOVSI 1,777777 -INITIAL -C(AC)=000000 000000 -FINAL -C(AC)=777777 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034161 034161 0 0 205040777777 0 000000777777 -IT1 034161 0 0 0 205040777777 0 000000777777 -AT3 034161 0 0 0 000000777777 0 205040777777 -AT6 034161 777777 0 0 000000777777 0 205040777777 -FT1A 034161 777777 0 0 000000777777 0 000000777777 -FT9 034162 777777 0 0 000000777777 0 000000777777 -ET0 034162 777777 0 0 777777000000 0 000000777777 -ST1 034162 777777 0 0 777777000000 0 000000777777 -ST2 034162 777777 0 0 777777000000 0 000000777777 -ST9 034162 777777 0 0 777777000000 0 000000777777 - - -*034162 HRRZM 1,000001 -INITIAL -C(AC)=777777 000000 -C(E)=777777 000000 -FINAL - -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034162 034162 0 0 552040000001 0 777777000000 -IT1 034162 0 0 0 552040000001 0 777777000000 -AT3 034162 0 0 0 000000000001 0 552040000001 -AT6 034162 000001 0 0 000000000001 0 552040000001 -FT0 034162 000001 0 0 777777000000 0 552040000001 -FT1A 034162 000001 0 0 777777000000 0 777777000000 -FT2 034162 000001 0 0 0 0 777777000000 -FT2RQ 034162 000001 0 0 777777000000 0 777777000000 -FT3 034162 000001 0 0 777777000000 0 777777000000 -FT9 034163 000001 0 0 777777000000 0 777777000000 -ET0 034163 000001 0 0 0 0 777777000000 -ST5 034163 000001 0 0 0 0 777777000000 -ST6A 034163 000001 0 0 0 0 777777000000 -ST9 034163 000001 0 0 0 0 777777000000 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 585 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0780 - -*034163 SKIPE 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034163 034163 0 0 332000000001 0 0 -IT1 034163 0 0 0 332000000001 0 0 -AT3 034163 0 0 0 000000000001 0 332000000001 -AT6 034163 000001 0 0 000000000001 0 332000000001 -FT0 034163 000001 0 0 0 0 332000000001 -FT1A 034163 000001 0 0 0 0 0 -FT9 034164 000001 0 0 0 0 0 -ET0 034165 000001 0 0 0 0 0 -ST1A 034165 000001 0 0 0 0 0 -ST9 034165 000001 0 0 0 0 0 - - -*034165 JUMPA 0,034166 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034165 034165 0 0 324000034166 0 000000034166 -IT1 034165 0 0 0 324000034166 0 000000034166 -AT3 034165 0 0 0 000000034166 0 324000034166 -AT6 034165 034166 0 0 000000034166 0 324000034166 -FT1A 034165 034166 0 0 000000034166 0 000000034166 -FT2 034165 034166 0 0 0 0 000000034166 -FT2RQ 034165 034166 0 0 777777777777 0 000000034166 -FT3 034165 034166 0 0 777777777777 0 000000034166 -FT9 034166 034166 0 0 777777777777 0 000000034166 -ET0 034166 034166 0 0 777777777777 0 000000034166 -ST1A 034166 034166 0 0 777777777777 0 000000034166 -ST9 034166 034166 0 0 777777777777 0 000000034166 - - -*034166 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 034166 034166 0 0 400000000000 0 0 -IT1 034166 0 0 0 400000000000 0 0 -AT3 034166 0 0 0 0 0 400000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 586 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0781 - -AT6 034166 0 0 0 0 0 400000000000 -FT1A 034166 0 0 0 0 0 0 -FT9 034167 0 0 0 0 0 0 -ET0 034167 0 0 0 0 0 0 -ST1 034167 0 0 0 0 0 0 -ST2 034167 0 0 0 0 0 0 -ST9 034167 0 0 0 0 0 0 - - -*034167 JFCL 17,034170 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034167 034167 0 0 255740034170 0 000000034170 -IT1 034167 0 0 0 255740034170 0 000000034170 -AT3 034167 0 0 0 000000034170 0 255740034170 -AT6 034167 034170 0 0 000000034170 0 255740034170 -FT1A 034167 034170 0 0 000000034170 0 000000034170 -FT9 034170 034170 0 0 000000034170 0 000000034170 -ET0 034170 034170 0 0 000000034170 0 000000034170 -ST1A 034170 034170 0 0 000000034170 0 000000034170 -ST9 034170 034170 0 0 000000034170 0 000000034170 - - -*034170 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 034170 034170 0 0 332000000000 0 0 -IT1 034170 0 0 0 332000000000 0 0 -AT3 034170 0 0 0 0 0 332000000000 -AT6 034170 0 0 0 0 0 332000000000 -FT0 034170 0 0 0 0 0 332000000000 -FT1A 034170 0 0 0 0 0 0 -FT9 034171 0 0 0 0 0 0 -ET0 034172 0 0 0 0 0 0 -ST1A 034172 0 0 0 0 0 0 -ST9 034172 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 587 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0782 - -*034172 JUMPA 0,034173 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034172 034172 0 0 324000034173 0 000000034173 -IT1 034172 0 0 0 324000034173 0 000000034173 -AT3 034172 0 0 0 000000034173 0 324000034173 -AT6 034172 034173 0 0 000000034173 0 324000034173 -FT1A 034172 034173 0 0 000000034173 0 000000034173 -FT2 034172 034173 0 0 0 0 000000034173 -FT2RQ 034172 034173 0 0 0 0 000000034173 -FT3 034172 034173 0 0 0 0 000000034173 -FT9 034173 034173 0 0 0 0 000000034173 -ET0 034173 034173 0 0 0 0 000000034173 -ST1A 034173 034173 0 0 0 0 000000034173 -ST9 034173 034173 0 0 0 0 000000034173 - - -*034173 SETOB 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034173 034173 0 0 477000000001 0 000000000001 -IT1 034173 0 0 0 477000000001 0 000000000001 -AT3 034173 0 0 0 000000000001 0 477000000001 -AT6 034173 000001 0 0 000000000001 0 477000000001 -FT1A 034173 000001 0 0 000000000001 0 000000000001 -FT9 034174 000001 0 0 000000000001 0 000000000001 -ET0 034174 000001 0 0 777777777777 0 000000000001 -ST1 034174 000001 0 0 777777777777 0 000000000001 -ST2 034174 000001 0 0 777777777777 0 000000000001 -ST6 034174 000001 0 0 777777777777 0 000000000001 -ST6A 034174 000001 0 0 777777777777 0 000000000001 -ST9 034174 000001 0 0 777777777777 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 588 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0783 - -*034174 XORM 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034174 034174 0 0 432000000001 0 777777777777 -IT1 034174 0 0 0 432000000001 0 777777777777 -AT3 034174 0 0 0 000000000001 0 432000000001 -AT6 034174 000001 0 0 000000000001 0 432000000001 -FT0 034174 000001 0 0 777777777777 0 432000000001 -FT1A 034174 000001 0 0 777777777777 0 777777777777 -FT2 034174 000001 0 0 0 0 777777777777 -FT2RQ 034174 000001 0 0 777777777777 0 777777777777 -FT3 034174 000001 0 0 777777777777 0 777777777777 -FT9 034175 000001 0 0 777777777777 0 777777777777 -ET0 034175 000001 0 0 0 0 777777777777 -ST5 034175 000001 0 0 0 0 777777777777 -ST6A 034175 000001 0 0 0 0 777777777777 -ST9 034175 000001 0 0 0 0 777777777777 - - -*034175 CAIE 1,000000 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034175 034175 0 0 302040000000 0 0 -IT1 034175 0 0 0 302040000000 0 0 -AT3 034175 0 0 0 0 0 302040000000 -AT6 034175 0 0 0 0 0 302040000000 -FT1A 034175 0 0 0 0 0 0 -FT2 034175 0 0 0 0 0 0 -FT2RQ 034175 0 0 0 0 0 0 -FT3 034175 0 0 0 0 0 0 -FT9 034176 0 0 0 0 0 0 -ET0 034177 0 0 0 0 0 0 -ST1A 034177 0 0 0 0 0 0 -ST9 034177 0 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 589 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0784 - -*034177 JUMPA 0,034200 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034177 034177 0 0 324000034200 0 000000034200 -IT1 034177 0 0 0 324000034200 0 000000034200 -AT3 034177 0 0 0 000000034200 0 324000034200 -AT6 034177 0 0 0 000000034200 0 324000034200 -FT1A 034177 0 0 0 000000034200 0 000000034200 -FT2 034177 0 0 0 0 0 000000034200 -FT2RQ 034177 0 0 0 777777777777 0 000000034200 -FT3 034177 0 0 0 777777777777 0 000000034200 -FT9 0 0 0 0 777777777777 0 000000034200 -ET0 0 0 0 0 777777777777 0 000000034200 -ST1A 0 0 0 0 777777777777 0 000000034200 -ST9 0 0 0 0 777777777777 0 000000034200 - - -*034200 SETZB 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 403000000001 0 000000000001 -IT1 0 0 0 0 403000000001 0 000000000001 -AT3 0 0 0 0 000000000001 0 403000000001 -AT6 0 000001 0 0 000000000001 0 403000000001 -FT1A 0 000001 0 0 000000000001 0 000000000001 -FT9 034201 000001 0 0 000000000001 0 000000000001 -ET0 034201 000001 0 0 0 0 000000000001 -ST1 034201 000001 0 0 0 0 000000000001 -ST2 034201 000001 0 0 0 0 000000000001 -ST6 034201 000001 0 0 0 0 000000000001 -ST6A 034201 000001 0 0 0 0 000000000001 -ST9 034201 000001 0 0 0 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 590 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0785 - -*034201 CAMN 0,034536 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034201 034201 0 0 316000034536 0 0 -IT1 034201 0 0 0 316000034536 0 0 -AT3 034201 0 0 0 000000034536 0 316000034536 -AT6 034201 034536 0 0 000000034536 0 316000034536 -FT0 034201 034536 0 0 0 0 316000034536 -FT1A 034201 034536 0 0 0 0 0 -FT2 034201 034536 0 0 0 0 0 -FT2RQ 034201 034536 0 0 0 0 0 -FT3 034201 034536 0 0 0 0 0 -FT9 034202 034536 0 0 0 0 0 -ET0 034202 034536 0 0 0 0 0 -ST1A 034202 034536 0 0 0 0 0 -ST9 034202 034536 0 0 0 0 0 - - -*034202 CAME 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034202 034202 0 0 312000000001 0 0 -IT1 034202 0 0 0 312000000001 0 0 -AT3 034202 0 0 0 000000000001 0 312000000001 -AT6 034202 000001 0 0 000000000001 0 312000000001 -FT0 034202 000001 0 0 0 0 312000000001 -FT1A 034202 000001 0 0 0 0 0 -FT2 034202 000001 0 0 0 0 0 -FT2RQ 034202 000001 0 0 0 0 0 -FT3 034202 000001 0 0 0 0 0 -FT9 034203 000001 0 0 0 0 0 -ET0 034204 000001 0 0 0 0 0 -ST1A 034204 000001 0 0 0 0 0 -ST9 034204 000001 0 0 0 0 0 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 591 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0786 - -*034204 JUMPA 0,034205 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034204 034204 0 0 324000034205 0 000000034205 -IT1 034204 0 0 0 324000034205 0 000000034205 -AT3 034204 0 0 0 000000034205 0 324000034205 -AT6 034204 034205 0 0 000000034205 0 324000034205 -FT1A 034204 034205 0 0 000000034205 0 000000034205 -FT2 034204 034205 0 0 0 0 000000034205 -FT2RQ 034204 034205 0 0 0 0 000000034205 -FT3 034204 034205 0 0 0 0 000000034205 -FT9 034205 034205 0 0 0 0 000000034205 -ET0 034205 034205 0 0 0 0 000000034205 -ST1A 034205 034205 0 0 0 0 000000034205 -ST9 034205 034205 0 0 0 0 000000034205 - - -*034205 SETZ 1,000000 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034205 034205 0 0 400040000000 0 0 -IT1 034205 0 0 0 400040000000 0 0 -AT3 034205 0 0 0 0 0 400040000000 -AT6 034205 0 0 0 0 0 400040000000 -FT1A 034205 0 0 0 0 0 0 -FT9 034206 0 0 0 0 0 0 -ET0 034206 0 0 0 0 0 0 -ST1 034206 0 0 0 0 0 0 -ST2 034206 0 0 0 0 0 0 -ST9 034206 0 0 0 0 0 0 - - -*034206 SETO 0,000000 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034206 034206 0 0 474000000000 0 0 -IT1 034206 0 0 0 474000000000 0 0 -AT3 034206 0 0 0 0 0 474000000000 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 592 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0787 - -AT6 034206 0 0 0 0 0 474000000000 -FT1A 034206 0 0 0 0 0 0 -FT9 034207 0 0 0 0 0 0 -ET0 034207 0 0 0 777777777777 0 0 -ST1 034207 0 0 0 777777777777 0 0 -ST2 034207 0 0 0 777777777777 0 0 -ST9 034207 0 0 0 777777777777 0 0 - - -*034207 SETAB 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000000 -FINAL -C(AC)=777777 777777 -C(E)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034207 034207 0 0 427000000001 0 000000000001 -IT1 034207 0 0 0 427000000001 0 000000000001 -AT3 034207 0 0 0 000000000001 0 427000000001 -AT6 034207 000001 0 0 000000000001 0 427000000001 -FT1A 034207 000001 0 0 000000000001 0 000000000001 -FT2 034207 000001 0 0 0 0 000000000001 -FT2RQ 034207 000001 0 0 777777777777 0 000000000001 -FT3 034207 000001 0 0 777777777777 0 000000000001 -FT9 034210 000001 0 0 777777777777 0 000000000001 -ET0 034210 000001 0 0 777777777777 0 000000000001 -ST1 034210 000001 0 0 777777777777 0 000000000001 -ST2 034210 000001 0 0 777777777777 0 000000000001 -ST6 034210 000001 0 0 777777777777 0 000000000001 -ST6A 034210 000001 0 0 777777777777 0 000000000001 -ST9 034210 000001 0 0 777777777777 0 000000000001 - - -*034210 CAMN 0,034466 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034210 034210 0 0 316000034466 0 777777777777 -IT1 034210 0 0 0 316000034466 0 777777777777 -AT3 034210 0 0 0 000000034466 0 316000034466 -AT6 034210 034466 0 0 000000034466 0 316000034466 -FT0 034210 034466 0 0 777777777777 0 316000034466 -FT1A 034210 034466 0 0 777777777777 0 777777777777 -FT2 034210 034466 0 0 0 0 777777777777 -FT2RQ 034210 034466 0 0 777777777777 0 777777777777 -FT3 034210 034466 0 0 777777777777 0 777777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 593 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0788 - -FT9 034211 034466 0 0 777777777777 0 777777777777 -ET0 034211 034466 0 0 0 0 777777777777 -ST1A 034211 034466 0 0 0 0 777777777777 -ST9 034211 034466 0 0 0 0 777777777777 - - -*034211 CAME 0,000001 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034211 034211 0 0 312000000001 0 777777777777 -IT1 034211 0 0 0 312000000001 0 777777777777 -AT3 034211 0 0 0 000000000001 0 312000000001 -AT6 034211 000001 0 0 000000000001 0 312000000001 -FT0 034211 000001 0 0 777777777777 0 312000000001 -FT1A 034211 000001 0 0 777777777777 0 777777777777 -FT2 034211 000001 0 0 0 0 777777777777 -FT2RQ 034211 000001 0 0 777777777777 0 777777777777 -FT3 034211 000001 0 0 777777777777 0 777777777777 -FT9 034212 000001 0 0 777777777777 0 777777777777 -ET0 034213 000001 0 0 0 0 777777777777 -ST1A 034213 000001 0 0 0 0 777777777777 -ST9 034213 000001 0 0 0 0 777777777777 - - -*034213 JUMPA 0,034214 -INITIAL -C(AC)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034213 034213 0 0 324000034214 0 000000034214 -IT1 034213 0 0 0 324000034214 0 000000034214 -AT3 034213 0 0 0 000000034214 0 324000034214 -AT6 034213 034214 0 0 000000034214 0 324000034214 -FT1A 034213 034214 0 0 000000034214 0 000000034214 -FT2 034213 034214 0 0 0 0 000000034214 -FT2RQ 034213 034214 0 0 777777777777 0 000000034214 -FT3 034213 034214 0 0 777777777777 0 000000034214 -FT9 034214 034214 0 0 777777777777 0 000000034214 -ET0 034214 034214 0 0 777777777777 0 000000034214 -ST1A 034214 034214 0 0 777777777777 0 000000034214 -ST9 034214 034214 0 0 777777777777 0 000000034214 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 594 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0789 - -*034214 SETZB 0,000001 -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 034214 034214 0 0 403000000001 0 000000000001 -IT1 034214 0 0 0 403000000001 0 000000000001 -AT3 034214 0 0 0 000000000001 0 403000000001 -AT6 034214 000001 0 0 000000000001 0 403000000001 -FT1A 034214 000001 0 0 000000000001 0 000000000001 -FT9 034215 000001 0 0 000000000001 0 000000000001 -ET0 034215 000001 0 0 0 0 000000000001 -ST1 034215 000001 0 0 0 0 000000000001 -ST2 034215 000001 0 0 0 0 000000000001 -ST6 034215 000001 0 0 0 0 000000000001 -ST6A 034215 000001 0 0 0 0 000000000001 -ST9 034215 000001 0 0 0 0 000000000001 - - -*034215 XCT 0,034542 -INITIAL -C(AC)=000000 000000 -C(E)=201040 034217 -FINAL - -C(E)=201040 034217 - -TIME PC MA SC FE AR MQ BR -IT0 034215 034542 0 0 201040034217 0 000000034542 -IT1 034215 0 0 0 201040034217 0 000000034542 -AT3 034215 0 0 0 000000034217 0 201040034217 -AT6 034215 034217 0 0 000000034217 0 201040034217 -FT1A 034215 034217 0 0 000000034217 0 000000034217 -FT9 034216 034217 0 0 000000034217 0 000000034217 -ET0 034216 034217 0 0 000000034217 0 000000034217 -ST1 034216 034217 0 0 000000034217 0 000000034217 -ST2 034216 034217 0 0 000000034217 0 000000034217 -ST9 034216 034217 0 0 000000034217 0 000000034217 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 595 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0790 - -*034216 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 034216 034216 0 0 334000000000 0 0 -IT1 034216 0 0 0 334000000000 0 0 -AT3 034216 0 0 0 0 0 334000000000 -AT6 034216 0 0 0 0 0 334000000000 -FT0 034216 0 0 0 0 0 334000000000 -FT1A 034216 0 0 0 0 0 0 -FT9 034217 0 0 0 0 0 0 -ET0 034220 0 0 0 0 0 0 -ST1A 034220 0 0 0 0 0 0 -ST9 034220 0 0 0 0 0 0 - - -*034220 JUMPA 0,034221 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034220 034220 0 0 324000034221 0 000000034221 -IT1 034220 0 0 0 324000034221 0 000000034221 -AT3 034220 0 0 0 000000034221 0 324000034221 -AT6 034220 034221 0 0 000000034221 0 324000034221 -FT1A 034220 034221 0 0 000000034221 0 000000034221 -FT2 034220 034221 0 0 0 0 000000034221 -FT2RQ 034220 034221 0 0 0 0 000000034221 -FT3 034220 034221 0 0 0 0 000000034221 -FT9 034221 034221 0 0 0 0 000000034221 -ET0 034221 034221 0 0 0 0 000000034221 -ST1A 034221 034221 0 0 0 0 000000034221 -ST9 034221 034221 0 0 0 0 000000034221 - - -*034221 SETZB 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=000000 034217 -FINAL -C(AC)=000000 000000 -C(E)=000000 034217 - -TIME PC MA SC FE AR MQ BR -IT0 034221 034221 0 0 403000000001 0 000000000001 -IT1 034221 0 0 0 403000000001 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 596 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0791 - -AT3 034221 0 0 0 000000000001 0 403000000001 -AT6 034221 000001 0 0 000000000001 0 403000000001 -FT1A 034221 000001 0 0 000000000001 0 000000000001 -FT9 034222 000001 0 0 000000000001 0 000000000001 -ET0 034222 000001 0 0 0 0 000000000001 -ST1 034222 000001 0 0 0 0 000000000001 -ST2 034222 000001 0 0 0 0 000000000001 -ST6 034222 000001 0 0 0 0 000000000001 -ST6A 034222 000001 0 0 0 0 000000000001 -ST9 034222 000001 0 0 0 0 000000000001 - - -*034222 XCT 0,034543 -INITIAL -C(AC)=000000 000000 -C(E)=201040 000001 -FINAL - -C(E)=201040 000001 - -TIME PC MA SC FE AR MQ BR -IT0 034222 034543 0 0 201040000001 0 000000034543 -IT1 034222 0 0 0 201040000001 0 000000034543 -AT3 034222 0 0 0 000000000001 0 201040000001 -AT6 034222 000001 0 0 000000000001 0 201040000001 -FT1A 034222 000001 0 0 000000000001 0 000000000001 -FT9 034223 000001 0 0 000000000001 0 000000000001 -ET0 034223 000001 0 0 000000000001 0 000000000001 -ST1 034223 000001 0 0 000000000001 0 000000000001 -ST2 034223 000001 0 0 000000000001 0 000000000001 -ST9 034223 000001 0 0 000000000001 0 000000000001 - - -*034223 CAIE 1,000001 -INITIAL -C(AC)=000000 000001 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034223 034223 0 0 302040000001 0 000000000001 -IT1 034223 0 0 0 302040000001 0 000000000001 -AT3 034223 0 0 0 000000000001 0 302040000001 -AT6 034223 000001 0 0 000000000001 0 302040000001 -FT1A 034223 000001 0 0 000000000001 0 000000000001 -FT2 034223 000001 0 0 0 0 000000000001 -FT2RQ 034223 000001 0 0 000000000001 0 000000000001 -FT3 034223 000001 0 0 000000000001 0 000000000001 -FT9 034224 000001 0 0 000000000001 0 000000000001 -ET0 034225 000001 0 0 0 0 000000000001 -ST1A 034225 000001 0 0 0 0 000000000001 -ST9 034225 000001 0 0 0 0 000000000001 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 597 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0792 - - - -*034225 JUMPA 0,034226 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034225 034225 0 0 324000034226 0 000000034226 -IT1 034225 0 0 0 324000034226 0 000000034226 -AT3 034225 0 0 0 000000034226 0 324000034226 -AT6 034225 034226 0 0 000000034226 0 324000034226 -FT1A 034225 034226 0 0 000000034226 0 000000034226 -FT2 034225 034226 0 0 0 0 000000034226 -FT2RQ 034225 034226 0 0 0 0 000000034226 -FT3 034225 034226 0 0 0 0 000000034226 -FT9 034226 034226 0 0 0 0 000000034226 -ET0 034226 034226 0 0 0 0 000000034226 -ST1A 034226 034226 0 0 0 0 000000034226 -ST9 034226 034226 0 0 0 0 000000034226 - - -*034226 SETZB 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000001 -FINAL -C(AC)=000000 000000 -C(E)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 034226 034226 0 0 403000000001 0 000000000001 -IT1 034226 0 0 0 403000000001 0 000000000001 -AT3 034226 0 0 0 000000000001 0 403000000001 -AT6 034226 000001 0 0 000000000001 0 403000000001 -FT1A 034226 000001 0 0 000000000001 0 000000000001 -FT9 034227 000001 0 0 000000000001 0 000000000001 -ET0 034227 000001 0 0 0 0 000000000001 -ST1 034227 000001 0 0 0 0 000000000001 -ST2 034227 000001 0 0 0 0 000000000001 -ST6 034227 000001 0 0 0 0 000000000001 -ST6A 034227 000001 0 0 0 0 000000000001 -ST9 034227 000001 0 0 0 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 598 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0793 - -*034227 XCT 0,034550 -INITIAL -C(AC)=000000 000000 -C(E)=256000 034547 -FINAL - -C(E)=256000 034547 - -TIME PC MA SC FE AR MQ BR -IT0 034227 034550 0 0 256000034547 0 000000034550 -IT1 034227 0 0 0 256000034547 0 000000034550 -AT3 034227 0 0 0 000000034547 0 256000034547 -AT6 034227 034547 0 0 000000034547 0 256000034547 -FT1A 034227 034547 0 0 000000034547 0 000000034547 -FT9 034227 034547 0 0 000000034547 0 000000034547 -ET0 034227 034547 0 0 000000034547 0 000000034547 -ST1A 034227 034547 0 0 000000034547 0 000000034547 -ST9 034227 034547 0 0 000000034547 0 000000034547 - - -*034227 XCT 0,034550 -INITIAL -C(AC)=000000 000000 -C(E)=256000 034547 -FINAL - -C(E)=256000 034547 - -TIME PC MA SC FE AR MQ BR -IT0 034227 034546 0 0 256000034545 0 000000034546 -IT1 034227 0 0 0 256000034545 0 000000034546 -AT3 034227 0 0 0 000000034545 0 256000034545 -AT6 034227 034545 0 0 000000034545 0 256000034545 -FT1A 034227 034545 0 0 000000034545 0 000000034545 -FT9 034227 034545 0 0 000000034545 0 000000034545 -ET0 034227 034545 0 0 000000034545 0 000000034545 -ST1A 034227 034545 0 0 000000034545 0 000000034545 -ST9 034227 034545 0 0 000000034545 0 000000034545 - - -*034227 XCT 0,034550 -INITIAL -C(AC)=000000 000000 -C(E)=256000 034547 -FINAL - -C(E)=256000 034547 - -TIME PC MA SC FE AR MQ BR -IT0 034227 034544 0 0 201040777777 0 000000034544 -IT1 034227 0 0 0 201040777777 0 000000034544 -AT3 034227 0 0 0 000000777777 0 201040777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 599 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0794 - -AT6 034227 777777 0 0 000000777777 0 201040777777 -FT1A 034227 777777 0 0 000000777777 0 000000777777 -FT9 034230 777777 0 0 000000777777 0 000000777777 -ET0 034230 777777 0 0 000000777777 0 000000777777 -ST1 034230 777777 0 0 000000777777 0 000000777777 -ST2 034230 777777 0 0 000000777777 0 000000777777 -ST9 034230 777777 0 0 000000777777 0 000000777777 - - -*034230 CAIE 1,777777 -INITIAL -C(AC)=000000 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034230 034230 0 0 302040777777 0 000000777777 -IT1 034230 0 0 0 302040777777 0 000000777777 -AT3 034230 0 0 0 000000777777 0 302040777777 -AT6 034230 777777 0 0 000000777777 0 302040777777 -FT1A 034230 777777 0 0 000000777777 0 000000777777 -FT2 034230 777777 0 0 0 0 000000777777 -FT2RQ 034230 777777 0 0 000000777777 0 000000777777 -FT3 034230 777777 0 0 000000777777 0 000000777777 -FT9 034231 777777 0 0 000000777777 0 000000777777 -ET0 034232 777777 0 0 0 0 000000777777 -ST1A 034232 777777 0 0 0 0 000000777777 -ST9 034232 777777 0 0 0 0 000000777777 - - -*034232 JUMPA 0,034233 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034232 034232 0 0 324000034233 0 000000034233 -IT1 034232 0 0 0 324000034233 0 000000034233 -AT3 034232 0 0 0 000000034233 0 324000034233 -AT6 034232 034233 0 0 000000034233 0 324000034233 -FT1A 034232 034233 0 0 000000034233 0 000000034233 -FT2 034232 034233 0 0 0 0 000000034233 -FT2RQ 034232 034233 0 0 0 0 000000034233 -FT3 034232 034233 0 0 0 0 000000034233 -FT9 034233 034233 0 0 0 0 000000034233 -ET0 034233 034233 0 0 0 0 000000034233 -ST1A 034233 034233 0 0 0 0 000000034233 -ST9 034233 034233 0 0 0 0 000000034233 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 600 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0795 - -*034233 SETZB 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=000000 777777 -FINAL -C(AC)=000000 000000 -C(E)=000000 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034233 034233 0 0 403000000001 0 000000000001 -IT1 034233 0 0 0 403000000001 0 000000000001 -AT3 034233 0 0 0 000000000001 0 403000000001 -AT6 034233 000001 0 0 000000000001 0 403000000001 -FT1A 034233 000001 0 0 000000000001 0 000000000001 -FT9 034234 000001 0 0 000000000001 0 000000000001 -ET0 034234 000001 0 0 0 0 000000000001 -ST1 034234 000001 0 0 0 0 000000000001 -ST2 034234 000001 0 0 0 0 000000000001 -ST6 034234 000001 0 0 0 0 000000000001 -ST6A 034234 000001 0 0 0 0 000000000001 -ST9 034234 000001 0 0 0 0 000000000001 - - -*034234 XCT 0,034551 -INITIAL -C(AC)=000000 000000 -C(E)=200040 034466 -FINAL - -C(E)=200040 034466 - -TIME PC MA SC FE AR MQ BR -IT0 034234 034551 0 0 200040034466 0 000000034551 -IT1 034234 0 0 0 200040034466 0 000000034551 -AT3 034234 0 0 0 000000034466 0 200040034466 -AT6 034234 034466 0 0 000000034466 0 200040034466 -FT0 034234 034466 0 0 777777777777 0 200040034466 -FT1A 034234 034466 0 0 777777777777 0 777777777777 -FT9 034235 034466 0 0 777777777777 0 777777777777 -ET0 034235 034466 0 0 777777777777 0 777777777777 -ST1 034235 034466 0 0 777777777777 0 777777777777 -ST2 034235 034466 0 0 777777777777 0 777777777777 -ST9 034235 034466 0 0 777777777777 0 777777777777 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 601 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0796 - -*034235 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 034235 034235 0 0 332000000000 0 0 -IT1 034235 0 0 0 332000000000 0 0 -AT3 034235 0 0 0 0 0 332000000000 -AT6 034235 0 0 0 0 0 332000000000 -FT0 034235 0 0 0 0 0 332000000000 -FT1A 034235 0 0 0 0 0 0 -FT9 034236 0 0 0 0 0 0 -ET0 034237 0 0 0 0 0 0 -ST1A 034237 0 0 0 0 0 0 -ST9 034237 0 0 0 0 0 0 - - -*034237 JUMPA 0,034240 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034237 034237 0 0 324000034240 0 000000034240 -IT1 034237 0 0 0 324000034240 0 000000034240 -AT3 034237 0 0 0 000000034240 0 324000034240 -AT6 034237 034240 0 0 000000034240 0 324000034240 -FT1A 034237 034240 0 0 000000034240 0 000000034240 -FT2 034237 034240 0 0 0 0 000000034240 -FT2RQ 034237 034240 0 0 0 0 000000034240 -FT3 034237 034240 0 0 0 0 000000034240 -FT9 034240 034240 0 0 0 0 000000034240 -ET0 034240 034240 0 0 0 0 000000034240 -ST1A 034240 034240 0 0 0 0 000000034240 -ST9 034240 034240 0 0 0 0 000000034240 - - -*034240 XCT 0,034552 -INITIAL -C(AC)=000000 000000 -C(E)=334000 000000 -FINAL - -C(E)=334000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034240 034552 0 0 334000000000 0 000000034552 -IT1 034240 0 0 0 334000000000 0 000000034552 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 602 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0797 - -AT3 034240 0 0 0 0 0 334000000000 -AT6 034240 0 0 0 0 0 334000000000 -FT0 034240 0 0 0 0 0 334000000000 -FT1A 034240 0 0 0 0 0 0 -FT9 034241 0 0 0 0 0 0 -ET0 034242 0 0 0 0 0 0 -ST1A 034242 0 0 0 0 0 0 -ST9 034242 0 0 0 0 0 0 - - -*034242 JUMPA 0,034243 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034242 034242 0 0 324000034243 0 000000034243 -IT1 034242 0 0 0 324000034243 0 000000034243 -AT3 034242 0 0 0 000000034243 0 324000034243 -AT6 034242 034243 0 0 000000034243 0 324000034243 -FT1A 034242 034243 0 0 000000034243 0 000000034243 -FT2 034242 034243 0 0 0 0 000000034243 -FT2RQ 034242 034243 0 0 0 0 000000034243 -FT3 034242 034243 0 0 0 0 000000034243 -FT9 034243 034243 0 0 0 0 000000034243 -ET0 034243 034243 0 0 0 0 000000034243 -ST1A 034243 034243 0 0 0 0 000000034243 -ST9 034243 034243 0 0 0 0 000000034243 - - -*034243 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 034243 034243 0 0 476000000001 0 000000000001 -IT1 034243 0 0 0 476000000001 0 000000000001 -AT3 034243 0 0 0 000000000001 0 476000000001 -AT6 034243 000001 0 0 000000000001 0 476000000001 -FT1A 034243 000001 0 0 000000000001 0 000000000001 -FT9 034244 000001 0 0 000000000001 0 000000000001 -ET0 034244 000001 0 0 777777777777 0 000000000001 -ST6 034244 000001 0 0 777777777777 0 000000000001 -ST6A 034244 000001 0 0 777777777777 0 000000000001 -ST9 034244 000001 0 0 777777777777 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 603 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0798 - -*034244 MOVEI 7,000003 -INITIAL -C(AC)=000000 000007 -FINAL -C(AC)=000000 000003 - -TIME PC MA SC FE AR MQ BR -IT0 034244 034244 0 0 201340000003 0 000000000003 -IT1 034244 0 0 0 201340000003 0 000000000003 -AT3 034244 0 0 0 000000000003 0 201340000003 -AT6 034244 000003 0 0 000000000003 0 201340000003 -FT1A 034244 000003 0 0 000000000003 0 000000000003 -FT9 034245 000003 0 0 000000000003 0 000000000003 -ET0 034245 000003 0 0 000000000003 0 000000000003 -ST1 034245 000003 0 0 000000000003 0 000000000003 -ST2 034245 000003 0 0 000000000003 0 000000000003 -ST9 034245 000003 0 0 000000000003 0 000000000003 - - -*034245 SETZM 0,000003 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000003 -FINAL - -C(E)=000000 000003 - -TIME PC MA SC FE AR MQ BR -IT0 034245 034245 0 0 402000000003 0 000000000003 -IT1 034245 0 0 0 402000000003 0 000000000003 -AT3 034245 0 0 0 000000000003 0 402000000003 -AT6 034245 000003 0 0 000000000003 0 402000000003 -FT1A 034245 000003 0 0 000000000003 0 000000000003 -FT9 034246 000003 0 0 000000000003 0 000000000003 -ET0 034246 000003 0 0 0 0 000000000003 -ST6 034246 000003 0 0 0 0 000000000003 -ST6A 034246 000003 0 0 0 0 000000000003 -ST9 034246 000003 0 0 0 0 000000000003 - - -*034246 MOVE 1,@000007 -INITIAL -C(AC)=777777 777777 -C(E)=000000 000003 -FINAL -C(AC)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034246 034246 0 0 200060000007 0 0 -IT1 034246 0 0 0 200060000007 0 0 -AT3 034246 0 0 0 000000000007 0 200060000007 -AT4 034246 000007 0 0 000000000003 0 200060000007 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 604 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0799 - -IT1 034246 0 0 0 000000000003 0 200060000007 -AT3 034246 0 0 0 000000000003 0 000000000003 -AT6 034246 000003 0 0 000000000003 0 000000000003 -FT0 034246 000003 0 0 0 0 000000000003 -FT1A 034246 000003 0 0 0 0 0 -FT9 034247 000003 0 0 0 0 0 -ET0 034247 000003 0 0 0 0 0 -ST1 034247 000003 0 0 0 0 0 -ST2 034247 000003 0 0 0 0 0 -ST9 034247 000003 0 0 0 0 0 - - -*034247 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 034247 034247 0 0 332000000001 0 0 -IT1 034247 0 0 0 332000000001 0 0 -AT3 034247 0 0 0 000000000001 0 332000000001 -AT6 034247 000001 0 0 000000000001 0 332000000001 -FT0 034247 000001 0 0 0 0 332000000001 -FT1A 034247 000001 0 0 0 0 0 -FT9 034250 000001 0 0 0 0 0 -ET0 034251 000001 0 0 0 0 0 -ST1A 034251 000001 0 0 0 0 0 -ST9 034251 000001 0 0 0 0 0 - - -*034251 JUMPA 0,034252 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034251 034251 0 0 324000034252 0 000000034252 -IT1 034251 0 0 0 324000034252 0 000000034252 -AT3 034251 0 0 0 000000034252 0 324000034252 -AT6 034251 034252 0 0 000000034252 0 324000034252 -FT1A 034251 034252 0 0 000000034252 0 000000034252 -FT2 034251 034252 0 0 0 0 000000034252 -FT2RQ 034251 034252 0 0 0 0 000000034252 -FT3 034251 034252 0 0 0 0 000000034252 -FT9 034252 034252 0 0 0 0 000000034252 -ET0 034252 034252 0 0 0 0 000000034252 -ST1A 034252 034252 0 0 0 0 000000034252 -ST9 034252 034252 0 0 0 0 000000034252 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 605 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0800 - - -*034252 SETZM 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL - -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034252 034252 0 0 402000000001 0 000000000001 -IT1 034252 0 0 0 402000000001 0 000000000001 -AT3 034252 0 0 0 000000000001 0 402000000001 -AT6 034252 000001 0 0 000000000001 0 402000000001 -FT1A 034252 000001 0 0 000000000001 0 000000000001 -FT9 034253 000001 0 0 000000000001 0 000000000001 -ET0 034253 000001 0 0 0 0 000000000001 -ST6 034253 000001 0 0 0 0 000000000001 -ST6A 034253 000001 0 0 0 0 000000000001 -ST9 034253 000001 0 0 0 0 000000000001 - - -*034253 MOVEI 7,000003 -INITIAL -C(AC)=000000 000003 -FINAL -C(AC)=000000 000003 - -TIME PC MA SC FE AR MQ BR -IT0 034253 034253 0 0 201340000003 0 000000000003 -IT1 034253 0 0 0 201340000003 0 000000000003 -AT3 034253 0 0 0 000000000003 0 201340000003 -AT6 034253 000003 0 0 000000000003 0 201340000003 -FT1A 034253 000003 0 0 000000000003 0 000000000003 -FT9 034254 000003 0 0 000000000003 0 000000000003 -ET0 034254 000003 0 0 000000000003 0 000000000003 -ST1 034254 000003 0 0 000000000003 0 000000000003 -ST2 034254 000003 0 0 000000000003 0 000000000003 -ST9 034254 000003 0 0 000000000003 0 000000000003 - - -*034254 SETOM 0,000003 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL - -C(E)=000000 000000 - -TIME PC MA SC FE AR MQ BR -IT0 034254 034254 0 0 476000000003 0 000000000003 -IT1 034254 0 0 0 476000000003 0 000000000003 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 606 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0801 - -AT3 034254 0 0 0 000000000003 0 476000000003 -AT6 034254 000003 0 0 000000000003 0 476000000003 -FT1A 034254 000003 0 0 000000000003 0 000000000003 -FT9 034255 000003 0 0 000000000003 0 000000000003 -ET0 034255 000003 0 0 777777777777 0 000000000003 -ST6 034255 000003 0 0 777777777777 0 000000000003 -ST6A 034255 000003 0 0 777777777777 0 000000000003 -ST9 034255 000003 0 0 777777777777 0 000000000003 - - -*034255 MOVE 1,@000007 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000003 -FINAL -C(AC)=777777 777777 - -TIME PC MA SC FE AR MQ BR -IT0 034255 034255 0 0 200060000007 0 777777777777 -IT1 034255 0 0 0 200060000007 0 777777777777 -AT3 034255 0 0 0 000000000007 0 200060000007 -AT4 034255 000007 0 0 000000000003 0 200060000007 -IT1 034255 0 0 0 000000000003 0 200060000007 -AT3 034255 0 0 0 000000000003 0 000000000003 -AT6 034255 000003 0 0 000000000003 0 000000000003 -FT0 034255 000003 0 0 777777777777 0 000000000003 -FT1A 034255 000003 0 0 777777777777 0 777777777777 -FT9 034256 000003 0 0 777777777777 0 777777777777 -ET0 034256 000003 0 0 777777777777 0 777777777777 -ST1 034256 000003 0 0 777777777777 0 777777777777 -ST2 034256 000003 0 0 777777777777 0 777777777777 -ST9 034256 000003 0 0 777777777777 0 777777777777 - - -*034256 CAME 1,034466 -INITIAL -C(AC)=777777 777777 -C(E)=777777 777777 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034256 034256 0 0 312040034466 0 777777777777 -IT1 034256 0 0 0 312040034466 0 777777777777 -AT3 034256 0 0 0 000000034466 0 312040034466 -AT6 034256 034466 0 0 000000034466 0 312040034466 -FT0 034256 034466 0 0 777777777777 0 312040034466 -FT1A 034256 034466 0 0 777777777777 0 777777777777 -FT2 034256 034466 0 0 0 0 777777777777 -FT2RQ 034256 034466 0 0 777777777777 0 777777777777 -FT3 034256 034466 0 0 777777777777 0 777777777777 -FT9 034257 034466 0 0 777777777777 0 777777777777 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 607 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0802 - -ET0 034260 034466 0 0 0 0 777777777777 -ST1A 034260 034466 0 0 0 0 777777777777 -ST9 034260 034466 0 0 0 0 777777777777 - - -*034260 JUMPA 0,034261 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034260 034260 0 0 324000034261 0 000000034261 -IT1 034260 0 0 0 324000034261 0 000000034261 -AT3 034260 0 0 0 000000034261 0 324000034261 -AT6 034260 034261 0 0 000000034261 0 324000034261 -FT1A 034260 034261 0 0 000000034261 0 000000034261 -FT2 034260 034261 0 0 0 0 000000034261 -FT2RQ 034260 034261 0 0 0 0 000000034261 -FT3 034260 034261 0 0 0 0 000000034261 -FT9 034261 034261 0 0 0 0 000000034261 -ET0 034261 034261 0 0 0 0 000000034261 -ST1A 034261 034261 0 0 0 0 000000034261 -ST9 034261 034261 0 0 0 0 000000034261 - - -*034261 SETZM 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 034261 034261 0 0 402000000001 0 000000000001 -IT1 034261 0 0 0 402000000001 0 000000000001 -AT3 034261 0 0 0 000000000001 0 402000000001 -AT6 034261 000001 0 0 000000000001 0 402000000001 -FT1A 034261 000001 0 0 000000000001 0 000000000001 -FT9 034262 000001 0 0 000000000001 0 000000000001 -ET0 034262 000001 0 0 0 0 000000000001 -ST6 034262 000001 0 0 0 0 000000000001 -ST6A 034262 000001 0 0 0 0 000000000001 -ST9 034262 000001 0 0 0 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 608 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0803 - -*034262 MOVEI 7,000003 -INITIAL -C(AC)=000000 000003 -FINAL -C(AC)=000000 000003 - -TIME PC MA SC FE AR MQ BR -IT0 034262 034262 0 0 201340000003 0 000000000003 -IT1 034262 0 0 0 201340000003 0 000000000003 -AT3 034262 0 0 0 000000000003 0 201340000003 -AT6 034262 000003 0 0 000000000003 0 201340000003 -FT1A 034262 000003 0 0 000000000003 0 000000000003 -FT9 034263 000003 0 0 000000000003 0 000000000003 -ET0 034263 000003 0 0 000000000003 0 000000000003 -ST1 034263 000003 0 0 000000000003 0 000000000003 -ST2 034263 000003 0 0 000000000003 0 000000000003 -ST9 034263 000003 0 0 000000000003 0 000000000003 - - -*034263 MOVE 3,034553 -INITIAL -C(AC)=777777 777777 -C(E)=707070 707070 -FINAL -C(AC)=707070 707070 - -TIME PC MA SC FE AR MQ BR -IT0 034263 034263 0 0 200140034553 0 707070707070 -IT1 034263 0 0 0 200140034553 0 707070707070 -AT3 034263 0 0 0 000000034553 0 200140034553 -AT6 034263 034553 0 0 000000034553 0 200140034553 -FT0 034263 034553 0 0 707070707070 0 200140034553 -FT1A 034263 034553 0 0 707070707070 0 707070707070 -FT9 034264 034553 0 0 707070707070 0 707070707070 -ET0 034264 034553 0 0 707070707070 0 707070707070 -ST1 034264 034553 0 0 707070707070 0 707070707070 -ST2 034264 034553 0 0 707070707070 0 707070707070 -ST9 034264 034553 0 0 707070707070 0 707070707070 - - -*034264 MOVE 1,@000007 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000003 -FINAL -C(AC)=707070 707070 - -TIME PC MA SC FE AR MQ BR -IT0 034264 034264 0 0 200060000007 0 707070707070 -IT1 034264 0 0 0 200060000007 0 707070707070 -AT3 034264 0 0 0 000000000007 0 200060000007 -AT4 034264 000007 0 0 000000000003 0 200060000007 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 609 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0804 - -IT1 034264 0 0 0 000000000003 0 200060000007 -AT3 034264 0 0 0 000000000003 0 000000000003 -AT6 034264 000003 0 0 000000000003 0 000000000003 -FT0 034264 000003 0 0 707070707070 0 000000000003 -FT1A 034264 000003 0 0 707070707070 0 707070707070 -FT9 034265 000003 0 0 707070707070 0 707070707070 -ET0 034265 000003 0 0 707070707070 0 707070707070 -ST1 034265 000003 0 0 707070707070 0 707070707070 -ST2 034265 000003 0 0 707070707070 0 707070707070 -ST9 034265 000003 0 0 707070707070 0 707070707070 - - -*034265 CAME 1,034553 -INITIAL -C(AC)=707070 707070 -C(E)=707070 707070 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034265 034265 0 0 312040034553 0 707070707070 -IT1 034265 0 0 0 312040034553 0 707070707070 -AT3 034265 0 0 0 000000034553 0 312040034553 -AT6 034265 034553 0 0 000000034553 0 312040034553 -FT0 034265 034553 0 0 707070707070 0 312040034553 -FT1A 034265 034553 0 0 707070707070 0 707070707070 -FT2 034265 034553 0 0 0 0 707070707070 -FT2RQ 034265 034553 0 0 707070707070 0 707070707070 -FT3 034265 034553 0 0 707070707070 0 707070707070 -FT9 034266 034553 0 0 707070707070 0 707070707070 -ET0 034267 034553 0 0 0 0 707070707070 -ST1A 034267 034553 0 0 0 0 707070707070 -ST9 034267 034553 0 0 0 0 707070707070 - - -*034267 JUMPA 0,034270 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034267 034267 0 0 324000034270 0 000000034270 -IT1 034267 0 0 0 324000034270 0 000000034270 -AT3 034267 0 0 0 000000034270 0 324000034270 -AT6 034267 034270 0 0 000000034270 0 324000034270 -FT1A 034267 034270 0 0 000000034270 0 000000034270 -FT2 034267 034270 0 0 0 0 000000034270 -FT2RQ 034267 034270 0 0 0 0 000000034270 -FT3 034267 034270 0 0 0 0 000000034270 -FT9 034270 034270 0 0 0 0 000000034270 -ET0 034270 034270 0 0 0 0 000000034270 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 610 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0805 - -ST1A 034270 034270 0 0 0 0 000000034270 -ST9 034270 034270 0 0 0 0 000000034270 - - -*034270 JRST 0,034272 -INITIAL -C(AC)=000000 000000 -C(E)=402000 000001 -FINAL - -C(E)=402000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 034270 034270 0 0 254000034272 0 254000034272 -IT1 034270 0 0 0 254000034272 0 254000034272 -AT3 034270 0 0 0 000000034272 0 254000034272 -AT6 034270 034272 0 0 000000034272 0 254000034272 -FT1A 034270 034272 0 0 000000034272 0 254000034272 -FT9 034271 034272 0 0 000000034272 0 254000034272 -ET0 034272 034271 0 0 000000034272 0 254000034272 -ST1A 034272 034271 0 0 000000034272 0 254000034272 -ST9 034272 034271 0 0 000000034272 0 254000034272 - - -*034272 SETZM 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=707070 707070 -FINAL - -C(E)=707070 707070 - -TIME PC MA SC FE AR MQ BR -IT0 034272 034272 0 0 402000000001 0 000000000001 -IT1 034272 0 0 0 402000000001 0 000000000001 -AT3 034272 0 0 0 000000000001 0 402000000001 -AT6 034272 000001 0 0 000000000001 0 402000000001 -FT1A 034272 000001 0 0 000000000001 0 000000000001 -FT9 034273 000001 0 0 000000000001 0 000000000001 -ET0 034273 000001 0 0 0 0 000000000001 -ST6 034273 000001 0 0 0 0 000000000001 -ST6A 034273 000001 0 0 0 0 000000000001 -ST9 034273 000001 0 0 0 0 000000000001 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 611 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0806 - -*034273 MOVEI 7,034271 -INITIAL -C(AC)=000000 000003 -FINAL -C(AC)=000000 034271 - -TIME PC MA SC FE AR MQ BR -IT0 034273 034273 0 0 201340034271 0 000000034271 -IT1 034273 0 0 0 201340034271 0 000000034271 -AT3 034273 0 0 0 000000034271 0 201340034271 -AT6 034273 034271 0 0 000000034271 0 201340034271 -FT1A 034273 034271 0 0 000000034271 0 000000034271 -FT9 034274 034271 0 0 000000034271 0 000000034271 -ET0 034274 034271 0 0 000000034271 0 000000034271 -ST1 034274 034271 0 0 000000034271 0 000000034271 -ST2 034274 034271 0 0 000000034271 0 000000034271 -ST9 034274 034271 0 0 000000034271 0 000000034271 - - -*034274 MOVE 1,@000007 -INITIAL -C(AC)=000000 000000 -C(E)=000000 034271 -FINAL -C(AC)=707070 707070 - -TIME PC MA SC FE AR MQ BR -IT0 034274 034274 0 0 200060000007 0 707070707070 -IT1 034274 0 0 0 200060000007 0 707070707070 -AT3 034274 0 0 0 000000000007 0 200060000007 -AT4 034274 000007 0 0 000000034271 0 200060000007 -IT1 034274 0 0 0 000000034271 0 200060000007 -AT3 034274 0 0 0 000000034271 0 000000034271 -AT6 034274 034271 0 0 000000034271 0 000000034271 -FT0 034274 034271 0 0 707070707070 0 000000034271 -FT1A 034274 034271 0 0 707070707070 0 707070707070 -FT9 034275 034271 0 0 707070707070 0 707070707070 -ET0 034275 034271 0 0 707070707070 0 707070707070 -ST1 034275 034271 0 0 707070707070 0 707070707070 -ST2 034275 034271 0 0 707070707070 0 707070707070 -ST9 034275 034271 0 0 707070707070 0 707070707070 - - -*034275 CAME 1,034271 -INITIAL -C(AC)=707070 707070 -C(E)=707070 707070 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034275 034275 0 0 312040034271 0 707070707070 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 612 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0807 - -IT1 034275 0 0 0 312040034271 0 707070707070 -AT3 034275 0 0 0 000000034271 0 312040034271 -AT6 034275 034271 0 0 000000034271 0 312040034271 -FT0 034275 034271 0 0 707070707070 0 312040034271 -FT1A 034275 034271 0 0 707070707070 0 707070707070 -FT2 034275 034271 0 0 0 0 707070707070 -FT2RQ 034275 034271 0 0 707070707070 0 707070707070 -FT3 034275 034271 0 0 707070707070 0 707070707070 -FT9 034276 034271 0 0 707070707070 0 707070707070 -ET0 034277 034271 0 0 0 0 707070707070 -ST1A 034277 034271 0 0 0 0 707070707070 -ST9 034277 034271 0 0 0 0 707070707070 - - -*034277 JUMPA 0,034300 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034277 034277 0 0 324000034300 0 000000034300 -IT1 034277 0 0 0 324000034300 0 000000034300 -AT3 034277 0 0 0 000000034300 0 324000034300 -AT6 034277 0 0 0 000000034300 0 324000034300 -FT1A 034277 0 0 0 000000034300 0 000000034300 -FT2 034277 0 0 0 0 0 000000034300 -FT2RQ 034277 0 0 0 0 0 000000034300 -FT3 034277 0 0 0 0 0 000000034300 -FT9 0 0 0 0 0 0 000000034300 -ET0 0 0 0 0 0 0 000000034300 -ST1A 0 0 0 0 0 0 000000034300 -ST9 0 0 0 0 0 0 000000034300 - - -*034300 JRST 0,034303 -INITIAL -C(AC)=000000 000000 -C(E)=402000 000001 -FINAL - -C(E)=402000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 254000034303 0 254000034303 -IT1 0 0 0 0 254000034303 0 254000034303 -AT3 0 0 0 0 000000034303 0 254000034303 -AT6 0 034303 0 0 000000034303 0 254000034303 -FT1A 0 034303 0 0 000000034303 0 254000034303 -FT9 034301 034303 0 0 000000034303 0 254000034303 -ET0 034303 034301 0 0 000000034303 0 254000034303 -ST1A 034303 034301 0 0 000000034303 0 254000034303 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 613 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0808 - -ST9 034303 034301 0 0 000000034303 0 254000034303 - - -*034303 SETZM 0,000001 -INITIAL -C(AC)=000000 000000 -C(E)=707070 707070 -FINAL - -C(E)=707070 707070 - -TIME PC MA SC FE AR MQ BR -IT0 034303 034303 0 0 402000000001 0 000000000001 -IT1 034303 0 0 0 402000000001 0 000000000001 -AT3 034303 0 0 0 000000000001 0 402000000001 -AT6 034303 000001 0 0 000000000001 0 402000000001 -FT1A 034303 000001 0 0 000000000001 0 000000000001 -FT9 034304 000001 0 0 000000000001 0 000000000001 -ET0 034304 000001 0 0 0 0 000000000001 -ST6 034304 000001 0 0 0 0 000000000001 -ST6A 034304 000001 0 0 0 0 000000000001 -ST9 034304 000001 0 0 0 0 000000000001 - - -*034304 MOVE 1,@034301 -INITIAL -C(AC)=000000 000000 -C(E)=000000 034302 -FINAL -C(AC)=202020 202020 - -TIME PC MA SC FE AR MQ BR -IT0 034304 034304 0 0 200060034301 0 202020202020 -IT1 034304 0 0 0 200060034301 0 202020202020 -AT3 034304 0 0 0 000000034301 0 200060034301 -AT4 034304 034301 0 0 000000034302 0 200060034301 -IT1 034304 0 0 0 000000034302 0 200060034301 -AT3 034304 0 0 0 000000034302 0 000000034302 -AT6 034304 034302 0 0 000000034302 0 000000034302 -FT0 034304 034302 0 0 202020202020 0 000000034302 -FT1A 034304 034302 0 0 202020202020 0 202020202020 -FT9 034305 034302 0 0 202020202020 0 202020202020 -ET0 034305 034302 0 0 202020202020 0 202020202020 -ST1 034305 034302 0 0 202020202020 0 202020202020 -ST2 034305 034302 0 0 202020202020 0 202020202020 -ST9 034305 034302 0 0 202020202020 0 202020202020 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 614 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0809 - -*034305 CAME 1,034302 -INITIAL -C(AC)=202020 202020 -C(E)=202020 202020 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034305 034305 0 0 312040034302 0 202020202020 -IT1 034305 0 0 0 312040034302 0 202020202020 -AT3 034305 0 0 0 000000034302 0 312040034302 -AT6 034305 034302 0 0 000000034302 0 312040034302 -FT0 034305 034302 0 0 202020202020 0 312040034302 -FT1A 034305 034302 0 0 202020202020 0 202020202020 -FT2 034305 034302 0 0 0 0 202020202020 -FT2RQ 034305 034302 0 0 202020202020 0 202020202020 -FT3 034305 034302 0 0 202020202020 0 202020202020 -FT9 034306 034302 0 0 202020202020 0 202020202020 -ET0 034307 034302 0 0 0 0 202020202020 -ST1A 034307 034302 0 0 0 0 202020202020 -ST9 034307 034302 0 0 0 0 202020202020 - - -*034307 JUMPA 0,034310 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034307 034307 0 0 324000034310 0 000000034310 -IT1 034307 0 0 0 324000034310 0 000000034310 -AT3 034307 0 0 0 000000034310 0 324000034310 -AT6 034307 034310 0 0 000000034310 0 324000034310 -FT1A 034307 034310 0 0 000000034310 0 000000034310 -FT2 034307 034310 0 0 0 0 000000034310 -FT2RQ 034307 034310 0 0 0 0 000000034310 -FT3 034307 034310 0 0 0 0 000000034310 -FT9 034310 034310 0 0 0 0 000000034310 -ET0 034310 034310 0 0 0 0 000000034310 -ST1A 034310 034310 0 0 0 0 000000034310 -ST9 034310 034310 0 0 0 0 000000034310 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 615 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0810 - -*034310 JRST 0,034313 -INITIAL -C(AC)=000000 000000 -C(E)=200040 034312 -FINAL - -C(E)=200040 034312 - -TIME PC MA SC FE AR MQ BR -IT0 034310 034310 0 0 254000034313 0 254000034313 -IT1 034310 0 0 0 254000034313 0 254000034313 -AT3 034310 0 0 0 000000034313 0 254000034313 -AT6 034310 034313 0 0 000000034313 0 254000034313 -FT1A 034310 034313 0 0 000000034313 0 254000034313 -FT9 034311 034313 0 0 000000034313 0 254000034313 -ET0 034313 034311 0 0 000000034313 0 254000034313 -ST1A 034313 034311 0 0 000000034313 0 254000034313 -ST9 034313 034311 0 0 000000034313 0 254000034313 - - -*034313 MOVE 1,034312 -INITIAL -C(AC)=202020 202020 -C(E)=272727 272727 -FINAL -C(AC)=272727 272727 - -TIME PC MA SC FE AR MQ BR -IT0 034313 034313 0 0 200040034312 0 272727272727 -IT1 034313 0 0 0 200040034312 0 272727272727 -AT3 034313 0 0 0 000000034312 0 200040034312 -AT6 034313 034312 0 0 000000034312 0 200040034312 -FT0 034313 034312 0 0 272727272727 0 200040034312 -FT1A 034313 034312 0 0 272727272727 0 272727272727 -FT9 034314 034312 0 0 272727272727 0 272727272727 -ET0 034314 034312 0 0 272727272727 0 272727272727 -ST1 034314 034312 0 0 272727272727 0 272727272727 -ST2 034314 034312 0 0 272727272727 0 272727272727 -ST9 034314 034312 0 0 272727272727 0 272727272727 - - -*034314 CAME 1,@034311 -INITIAL -C(AC)=272727 272727 -C(E)=272727 272727 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034314 034314 0 0 312060034311 0 272727272727 -IT1 034314 0 0 0 312060034311 0 272727272727 -AT3 034314 0 0 0 000000034311 0 312060034311 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 616 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0811 - -AT4 034314 034311 0 0 000000034312 0 312060034311 -IT1 034314 0 0 0 000000034312 0 312060034311 -AT3 034314 0 0 0 000000034312 0 000000034312 -AT6 034314 034312 0 0 000000034312 0 000000034312 -FT0 034314 034312 0 0 272727272727 0 000000034312 -FT1A 034314 034312 0 0 272727272727 0 272727272727 -FT2 034314 034312 0 0 0 0 272727272727 -FT2RQ 034314 034312 0 0 272727272727 0 272727272727 -FT3 034314 034312 0 0 272727272727 0 272727272727 -FT9 034315 034312 0 0 272727272727 0 272727272727 -ET0 034316 034312 0 0 0 0 272727272727 -ST1A 034316 034312 0 0 0 0 272727272727 -ST9 034316 034312 0 0 0 0 272727272727 - - -*034316 JUMPA 0,034317 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034316 034316 0 0 324000034317 0 000000034317 -IT1 034316 0 0 0 324000034317 0 000000034317 -AT3 034316 0 0 0 000000034317 0 324000034317 -AT6 034316 034317 0 0 000000034317 0 324000034317 -FT1A 034316 034317 0 0 000000034317 0 000000034317 -FT2 034316 034317 0 0 0 0 000000034317 -FT2RQ 034316 034317 0 0 0 0 000000034317 -FT3 034316 034317 0 0 0 0 000000034317 -FT9 034317 034317 0 0 0 0 000000034317 -ET0 034317 034317 0 0 0 0 000000034317 -ST1A 034317 034317 0 0 0 0 000000034317 -ST9 034317 034317 0 0 0 0 000000034317 - - -*034317 JRST 0,034321 -INITIAL -C(AC)=000000 000000 -C(E)=201340 034320 -FINAL - -C(E)=201340 034320 - -TIME PC MA SC FE AR MQ BR -IT0 034317 034317 0 0 254000034321 0 254000034321 -IT1 034317 0 0 0 254000034321 0 254000034321 -AT3 034317 0 0 0 000000034321 0 254000034321 -AT6 034317 034321 0 0 000000034321 0 254000034321 -FT1A 034317 034321 0 0 000000034321 0 254000034321 -FT9 034320 034321 0 0 000000034321 0 254000034321 -ET0 034321 034320 0 0 000000034321 0 254000034321 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 617 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0812 - -ST1A 034321 034320 0 0 000000034321 0 254000034321 -ST9 034321 034320 0 0 000000034321 0 254000034321 - - -*034321 MOVEI 7,034320 -INITIAL -C(AC)=000000 034271 -FINAL -C(AC)=000000 034320 - -TIME PC MA SC FE AR MQ BR -IT0 034321 034321 0 0 201340034320 0 000000034320 -IT1 034321 0 0 0 201340034320 0 000000034320 -AT3 034321 0 0 0 000000034320 0 201340034320 -AT6 034321 034320 0 0 000000034320 0 201340034320 -FT1A 034321 034320 0 0 000000034320 0 000000034320 -FT9 034322 034320 0 0 000000034320 0 000000034320 -ET0 034322 034320 0 0 000000034320 0 000000034320 -ST1 034322 034320 0 0 000000034320 0 000000034320 -ST2 034322 034320 0 0 000000034320 0 000000034320 -ST9 034322 034320 0 0 000000034320 0 000000034320 - - -*034322 MOVE 1,034320 -INITIAL -C(AC)=272727 272727 -C(E)=252525 252525 -FINAL -C(AC)=252525 252525 - -TIME PC MA SC FE AR MQ BR -IT0 034322 034322 0 0 200040034320 0 252525252525 -IT1 034322 0 0 0 200040034320 0 252525252525 -AT3 034322 0 0 0 000000034320 0 200040034320 -AT6 034322 034320 0 0 000000034320 0 200040034320 -FT0 034322 034320 0 0 252525252525 0 200040034320 -FT1A 034322 034320 0 0 252525252525 0 252525252525 -FT9 034323 034320 0 0 252525252525 0 252525252525 -ET0 034323 034320 0 0 252525252525 0 252525252525 -ST1 034323 034320 0 0 252525252525 0 252525252525 -ST2 034323 034320 0 0 252525252525 0 252525252525 -ST9 034323 034320 0 0 252525252525 0 252525252525 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 618 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0813 - -*034323 CAME 1,@000007 -INITIAL -C(AC)=252525 252525 -C(E)=252525 252525 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034323 034323 0 0 312060000007 0 252525252525 -IT1 034323 0 0 0 312060000007 0 252525252525 -AT3 034323 0 0 0 000000000007 0 312060000007 -AT4 034323 000007 0 0 000000034320 0 312060000007 -IT1 034323 0 0 0 000000034320 0 312060000007 -AT3 034323 0 0 0 000000034320 0 000000034320 -AT6 034323 034320 0 0 000000034320 0 000000034320 -FT0 034323 034320 0 0 252525252525 0 000000034320 -FT1A 034323 034320 0 0 252525252525 0 252525252525 -FT2 034323 034320 0 0 0 0 252525252525 -FT2RQ 034323 034320 0 0 252525252525 0 252525252525 -FT3 034323 034320 0 0 252525252525 0 252525252525 -FT9 034324 034320 0 0 252525252525 0 252525252525 -ET0 034325 034320 0 0 0 0 252525252525 -ST1A 034325 034320 0 0 0 0 252525252525 -ST9 034325 034320 0 0 0 0 252525252525 - - -*034325 JUMPA 0,034326 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034325 034325 0 0 324000034326 0 000000034326 -IT1 034325 0 0 0 324000034326 0 000000034326 -AT3 034325 0 0 0 000000034326 0 324000034326 -AT6 034325 034326 0 0 000000034326 0 324000034326 -FT1A 034325 034326 0 0 000000034326 0 000000034326 -FT2 034325 034326 0 0 0 0 000000034326 -FT2RQ 034325 034326 0 0 0 0 000000034326 -FT3 034325 034326 0 0 0 0 000000034326 -FT9 034326 034326 0 0 0 0 000000034326 -ET0 034326 034326 0 0 0 0 000000034326 -ST1A 034326 034326 0 0 0 0 000000034326 -ST9 034326 034326 0 0 0 0 000000034326 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 619 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0814 - -*034326 MOVEI 1,777774 -INITIAL -C(AC)=252525 252525 -FINAL -C(AC)=000000 777774 - -TIME PC MA SC FE AR MQ BR -IT0 034326 034326 0 0 201040777774 0 000000777774 -IT1 034326 0 0 0 201040777774 0 000000777774 -AT3 034326 0 0 0 000000777774 0 201040777774 -AT6 034326 777774 0 0 000000777774 0 201040777774 -FT1A 034326 777774 0 0 000000777774 0 000000777774 -FT9 034327 777774 0 0 000000777774 0 000000777774 -ET0 034327 777774 0 0 000000777774 0 000000777774 -ST1 034327 777774 0 0 000000777774 0 000000777774 -ST2 034327 777774 0 0 000000777774 0 000000777774 -ST9 034327 777774 0 0 000000777774 0 000000777774 - - -*034327 MOVEI 3,000002 -INITIAL -C(AC)=707070 707070 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 034327 034327 0 0 201140000002 0 000000000002 -IT1 034327 0 0 0 201140000002 0 000000000002 -AT3 034327 0 0 0 000000000002 0 201140000002 -AT6 034327 000002 0 0 000000000002 0 201140000002 -FT1A 034327 000002 0 0 000000000002 0 000000000002 -FT9 034330 000002 0 0 000000000002 0 000000000002 -ET0 034330 000002 0 0 000000000002 0 000000000002 -ST1 034330 000002 0 0 000000000002 0 000000000002 -ST2 034330 000002 0 0 000000000002 0 000000000002 -ST9 034330 000002 0 0 000000000002 0 000000000002 - - -*034330 MOVEI 4,000010 -INITIAL -C(AC)=000000 000004 -FINAL -C(AC)=000000 000010 - -TIME PC MA SC FE AR MQ BR -IT0 034330 034330 0 0 201200000010 0 000000000010 -IT1 034330 0 0 0 201200000010 0 000000000010 -AT3 034330 0 0 0 000000000010 0 201200000010 -AT6 034330 000010 0 0 000000000010 0 201200000010 -FT1A 034330 000010 0 0 000000000010 0 000000000010 -FT9 034331 000010 0 0 000000000010 0 000000000010 -ET0 034331 000010 0 0 000000000010 0 000000000010 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 620 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0815 - -ST1 034331 000010 0 0 000000000010 0 000000000010 -ST2 034331 000010 0 0 000000000010 0 000000000010 -ST9 034331 000010 0 0 000000000010 0 000000000010 - - -*034331 MOVEI 5,000001 -INITIAL -C(AC)=000000 000005 -FINAL -C(AC)=000000 000001 - -TIME PC MA SC FE AR MQ BR -IT0 034331 034331 0 0 201240000001 0 000000000001 -IT1 034331 0 0 0 201240000001 0 000000000001 -AT3 034331 0 0 0 000000000001 0 201240000001 -AT6 034331 000001 0 0 000000000001 0 201240000001 -FT1A 034331 000001 0 0 000000000001 0 000000000001 -FT9 034332 000001 0 0 000000000001 0 000000000001 -ET0 034332 000001 0 0 000000000001 0 000000000001 -ST1 034332 000001 0 0 000000000001 0 000000000001 -ST2 034332 000001 0 0 000000000001 0 000000000001 -ST9 034332 000001 0 0 000000000001 0 000000000001 - - -*034332 MOVEI 6,000005 -INITIAL -C(AC)=000000 000006 -FINAL -C(AC)=000000 000005 - -TIME PC MA SC FE AR MQ BR -IT0 034332 034332 0 0 201300000005 0 000000000005 -IT1 034332 0 0 0 201300000005 0 000000000005 -AT3 034332 0 0 0 000000000005 0 201300000005 -AT6 034332 000005 0 0 000000000005 0 201300000005 -FT1A 034332 000005 0 0 000000000005 0 000000000005 -FT9 034333 000005 0 0 000000000005 0 000000000005 -ET0 034333 000005 0 0 000000000005 0 000000000005 -ST1 034333 000005 0 0 000000000005 0 000000000005 -ST2 034333 000005 0 0 000000000005 0 000000000005 -ST9 034333 000005 0 0 000000000005 0 000000000005 - - -*034333 MOVEI 7,000007 -INITIAL -C(AC)=000000 034320 -FINAL -C(AC)=000000 000007 - -TIME PC MA SC FE AR MQ BR -IT0 034333 034333 0 0 201340000007 0 000000000007 -IT1 034333 0 0 0 201340000007 0 000000000007 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 621 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0816 - -AT3 034333 0 0 0 000000000007 0 201340000007 -AT6 034333 000007 0 0 000000000007 0 201340000007 -FT1A 034333 000007 0 0 000000000007 0 000000000007 -FT9 034334 000007 0 0 000000000007 0 000000000007 -ET0 034334 000007 0 0 000000000007 0 000000000007 -ST1 034334 000007 0 0 000000000007 0 000000000007 -ST2 034334 000007 0 0 000000000007 0 000000000007 -ST9 034334 000007 0 0 000000000007 0 000000000007 - - -*034334 MOVEI 10,000004 -INITIAL -C(AC)=000000 000010 -FINAL -C(AC)=000000 000004 - -TIME PC MA SC FE AR MQ BR -IT0 034334 034334 0 0 201400000004 0 000000000004 -IT1 034334 0 0 0 201400000004 0 000000000004 -AT3 034334 0 0 0 000000000004 0 201400000004 -AT6 034334 000004 0 0 000000000004 0 201400000004 -FT1A 034334 000004 0 0 000000000004 0 000000000004 -FT9 034335 000004 0 0 000000000004 0 000000000004 -ET0 034335 000004 0 0 000000000004 0 000000000004 -ST1 034335 000004 0 0 000000000004 0 000000000004 -ST2 034335 000004 0 0 000000000004 0 000000000004 -ST9 034335 000004 0 0 000000000004 0 000000000004 - - -*034335 MOVEI 11,777772 -INITIAL -C(AC)=000000 000011 -FINAL -C(AC)=000000 777772 - -TIME PC MA SC FE AR MQ BR -IT0 034335 034335 0 0 201440777772 0 000000777772 -IT1 034335 0 0 0 201440777772 0 000000777772 -AT3 034335 0 0 0 000000777772 0 201440777772 -AT6 034335 777772 0 0 000000777772 0 201440777772 -FT1A 034335 777772 0 0 000000777772 0 000000777772 -FT9 034336 777772 0 0 000000777772 0 000000777772 -ET0 034336 777772 0 0 000000777772 0 000000777772 -ST1 034336 777772 0 0 000000777772 0 000000777772 -ST2 034336 777772 0 0 000000777772 0 000000777772 -ST9 034336 777772 0 0 000000777772 0 000000777772 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 622 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0817 - -*034336 MOVEI 12,000005 -INITIAL -C(AC)=000000 000012 -FINAL -C(AC)=000000 000005 - -TIME PC MA SC FE AR MQ BR -IT0 034336 034336 0 0 201500000005 0 000000000005 -IT1 034336 0 0 0 201500000005 0 000000000005 -AT3 034336 0 0 0 000000000005 0 201500000005 -AT6 034336 000005 0 0 000000000005 0 201500000005 -FT1A 034336 000005 0 0 000000000005 0 000000000005 -FT9 034337 000005 0 0 000000000005 0 000000000005 -ET0 034337 000005 0 0 000000000005 0 000000000005 -ST1 034337 000005 0 0 000000000005 0 000000000005 -ST2 034337 000005 0 0 000000000005 0 000000000005 -ST9 034337 000005 0 0 000000000005 0 000000000005 - - -*034337 MOVEI 13,000002 -INITIAL -C(AC)=000000 000013 -FINAL -C(AC)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 034337 034337 0 0 201540000002 0 000000000002 -IT1 034337 0 0 0 201540000002 0 000000000002 -AT3 034337 0 0 0 000000000002 0 201540000002 -AT6 034337 000002 0 0 000000000002 0 201540000002 -FT1A 034337 000002 0 0 000000000002 0 000000000002 -FT9 034340 000002 0 0 000000000002 0 000000000002 -ET0 034340 000002 0 0 000000000002 0 000000000002 -ST1 034340 000002 0 0 000000000002 0 000000000002 -ST2 034340 000002 0 0 000000000002 0 000000000002 -ST9 034340 000002 0 0 000000000002 0 000000000002 - - -*034340 JRST 0,034371 -INITIAL -C(AC)=000000 000000 -C(E)=476000 000002 -FINAL - -C(E)=476000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 034340 034340 0 0 254000034371 0 254000034371 -IT1 034340 0 0 0 254000034371 0 254000034371 -AT3 034340 0 0 0 000000034371 0 254000034371 -AT6 034340 034371 0 0 000000034371 0 254000034371 -FT1A 034340 034371 0 0 000000034371 0 254000034371 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 623 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0818 - -FT9 034341 034371 0 0 000000034371 0 254000034371 -ET0 034371 034341 0 0 000000034371 0 254000034371 -ST1A 034371 034341 0 0 000000034371 0 254000034371 -ST9 034371 034341 0 0 000000034371 0 254000034371 - - -*034371 SETOM 0,000002 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000002 -FINAL - -C(E)=000000 000002 - -TIME PC MA SC FE AR MQ BR -IT0 034371 034371 0 0 476000000002 0 000000000002 -IT1 034371 0 0 0 476000000002 0 000000000002 -AT3 034371 0 0 0 000000000002 0 476000000002 -AT6 034371 000002 0 0 000000000002 0 476000000002 -FT1A 034371 000002 0 0 000000000002 0 000000000002 -FT9 034372 000002 0 0 000000000002 0 000000000002 -ET0 034372 000002 0 0 777777777777 0 000000000002 -ST6 034372 000002 0 0 777777777777 0 000000000002 -ST6A 034372 000002 0 0 777777777777 0 000000000002 -ST9 034372 000002 0 0 777777777777 0 000000000002 - - -*034372 MOVE 2,@034341 -INITIAL -C(AC)=777777 777777 -C(E)=000003 034344 -FINAL -C(AC)=217217 217217 - -TIME PC MA SC FE AR MQ BR -IT0 034372 034372 0 0 200120034341 0 217217217217 -IT1 034372 0 0 0 200120034341 0 217217217217 -AT3 034372 0 0 0 000000034341 0 200120034341 -AT4 034372 034341 0 0 000003034344 0 200120034341 -IT1 034372 0 0 0 000003034344 0 200120034341 -AT1 034372 0 0 0 0 0 000003034344 -AT2 034372 0 0 0 000000000002 0 000003034344 -AT3 034372 0 0 0 000000034346 0 000000034346 -AT6 034372 034346 0 0 000000034346 0 000000034346 -FT0 034372 034346 0 0 217217217217 0 000000034346 -FT1A 034372 034346 0 0 217217217217 0 217217217217 -FT9 034373 034346 0 0 217217217217 0 217217217217 -ET0 034373 034346 0 0 217217217217 0 217217217217 -ST1 034373 034346 0 0 217217217217 0 217217217217 -ST2 034373 034346 0 0 217217217217 0 217217217217 -ST9 034373 034346 0 0 217217217217 0 217217217217 - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 624 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0819 - - -*034373 CAME 2,034346 -INITIAL -C(AC)=217217 217217 -C(E)=217217 217217 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034373 034373 0 0 312100034346 0 217217217217 -IT1 034373 0 0 0 312100034346 0 217217217217 -AT3 034373 0 0 0 000000034346 0 312100034346 -AT6 034373 034346 0 0 000000034346 0 312100034346 -FT0 034373 034346 0 0 217217217217 0 312100034346 -FT1A 034373 034346 0 0 217217217217 0 217217217217 -FT2 034373 034346 0 0 0 0 217217217217 -FT2RQ 034373 034346 0 0 217217217217 0 217217217217 -FT3 034373 034346 0 0 217217217217 0 217217217217 -FT9 034374 034346 0 0 217217217217 0 217217217217 -ET0 034375 034346 0 0 0 0 217217217217 -ST1A 034375 034346 0 0 0 0 217217217217 -ST9 034375 034346 0 0 0 0 217217217217 - - -*034375 JUMPA 0,034376 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034375 034375 0 0 324000034376 0 000000034376 -IT1 034375 0 0 0 324000034376 0 000000034376 -AT3 034375 0 0 0 000000034376 0 324000034376 -AT6 034375 034376 0 0 000000034376 0 324000034376 -FT1A 034375 034376 0 0 000000034376 0 000000034376 -FT2 034375 034376 0 0 0 0 000000034376 -FT2RQ 034375 034376 0 0 0 0 000000034376 -FT3 034375 034376 0 0 0 0 000000034376 -FT9 034376 034376 0 0 0 0 000000034376 -ET0 034376 034376 0 0 0 0 000000034376 -ST1A 034376 034376 0 0 0 0 000000034376 -ST9 034376 034376 0 0 0 0 000000034376 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 625 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0820 - -*034376 SETZM 0,000002 -INITIAL -C(AC)=000000 000000 -C(E)=217217 217217 -FINAL - -C(E)=217217 217217 - -TIME PC MA SC FE AR MQ BR -IT0 034376 034376 0 0 402000000002 0 000000000002 -IT1 034376 0 0 0 402000000002 0 000000000002 -AT3 034376 0 0 0 000000000002 0 402000000002 -AT6 034376 000002 0 0 000000000002 0 402000000002 -FT1A 034376 000002 0 0 000000000002 0 000000000002 -FT9 034377 000002 0 0 000000000002 0 000000000002 -ET0 034377 000002 0 0 0 0 000000000002 -ST6 034377 000002 0 0 0 0 000000000002 -ST6A 034377 000002 0 0 0 0 000000000002 -ST9 034377 000002 0 0 0 0 000000000002 - - -*034377 MOVE 2,@034342 -INITIAL -C(AC)=000000 000000 -C(E)=000020 034347 -FINAL -C(AC)=220220 220220 - -TIME PC MA SC FE AR MQ BR -IT0 034377 034377 0 0 200120034342 0 220220220220 -IT1 034377 0 0 0 200120034342 0 220220220220 -AT3 034377 0 0 0 000000034342 0 200120034342 -AT4 034377 034342 0 0 000020034347 0 200120034342 -IT1 034377 0 0 0 000020034347 0 200120034342 -AT3 034377 0 0 0 000000034347 0 000020034347 -AT4 034377 034347 0 0 000000034343 0 000020034347 -IT1 034377 0 0 0 000000034343 0 000020034347 -AT3 034377 0 0 0 000000034343 0 000000034343 -AT6 034377 034343 0 0 000000034343 0 000000034343 -FT0 034377 034343 0 0 220220220220 0 000000034343 -FT1A 034377 034343 0 0 220220220220 0 220220220220 -FT9 0 034343 0 0 220220220220 0 220220220220 -ET0 0 034343 0 0 220220220220 0 220220220220 -ST1 0 034343 0 0 220220220220 0 220220220220 -ST2 0 034343 0 0 220220220220 0 220220220220 -ST9 0 034343 0 0 220220220220 0 220220220220 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 626 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0821 - -*034400 CAME 2,034343 -INITIAL -C(AC)=220220 220220 -C(E)=220220 220220 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 0 0 0 0 312100034343 0 220220220220 -IT1 0 0 0 0 312100034343 0 220220220220 -AT3 0 0 0 0 000000034343 0 312100034343 -AT6 0 034343 0 0 000000034343 0 312100034343 -FT0 0 034343 0 0 220220220220 0 312100034343 -FT1A 0 034343 0 0 220220220220 0 220220220220 -FT2 0 034343 0 0 0 0 220220220220 -FT2RQ 0 034343 0 0 220220220220 0 220220220220 -FT3 0 034343 0 0 220220220220 0 220220220220 -FT9 034401 034343 0 0 220220220220 0 220220220220 -ET0 034402 034343 0 0 0 0 220220220220 -ST1A 034402 034343 0 0 0 0 220220220220 -ST9 034402 034343 0 0 0 0 220220220220 - - -*034402 JUMPA 0,034403 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034402 034402 0 0 324000034403 0 000000034403 -IT1 034402 0 0 0 324000034403 0 000000034403 -AT3 034402 0 0 0 000000034403 0 324000034403 -AT6 034402 034403 0 0 000000034403 0 324000034403 -FT1A 034402 034403 0 0 000000034403 0 000000034403 -FT2 034402 034403 0 0 0 0 000000034403 -FT2RQ 034402 034403 0 0 0 0 000000034403 -FT3 034402 034403 0 0 0 0 000000034403 -FT9 034403 034403 0 0 0 0 000000034403 -ET0 034403 034403 0 0 0 0 000000034403 -ST1A 034403 034403 0 0 0 0 000000034403 -ST9 034403 034403 0 0 0 0 000000034403 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 627 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0822 - -*034403 SETOM 0,000002 -INITIAL -C(AC)=000000 000000 -C(E)=220220 220220 -FINAL - -C(E)=220220 220220 - -TIME PC MA SC FE AR MQ BR -IT0 034403 034403 0 0 476000000002 0 000000000002 -IT1 034403 0 0 0 476000000002 0 000000000002 -AT3 034403 0 0 0 000000000002 0 476000000002 -AT6 034403 000002 0 0 000000000002 0 476000000002 -FT1A 034403 000002 0 0 000000000002 0 000000000002 -FT9 034404 000002 0 0 000000000002 0 000000000002 -ET0 034404 000002 0 0 777777777777 0 000000000002 -ST6 034404 000002 0 0 777777777777 0 000000000002 -ST6A 034404 000002 0 0 777777777777 0 000000000002 -ST9 034404 000002 0 0 777777777777 0 000000000002 - - -*034404 MOVE 2,034350(1) -INITIAL -C(AC)=777777 777777 -C(E)=000000 034350 -FINAL -C(AC)=000020 034351 - -TIME PC MA SC FE AR MQ BR -IT0 034404 034404 0 0 200101034350 0 000020034351 -IT1 034404 0 0 0 200101034350 0 000020034351 -AT1 034404 0 0 0 0 0 200101034350 -AT2 034404 0 0 0 000000777774 0 200101034350 -AT3 034404 0 0 0 000000034344 0 000000034344 -AT6 034404 034344 0 0 000000034344 0 000000034344 -FT0 034404 034344 0 0 000020034351 0 000000034344 -FT1A 034404 034344 0 0 000020034351 0 000020034351 -FT9 034405 034344 0 0 000020034351 0 000020034351 -ET0 034405 034344 0 0 000020034351 0 000020034351 -ST1 034405 034344 0 0 000020034351 0 000020034351 -ST2 034405 034344 0 0 000020034351 0 000020034351 -ST9 034405 034344 0 0 000020034351 0 000020034351 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 628 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0823 - -*034405 CAME 2,034344 -INITIAL -C(AC)=000020 034351 -C(E)=000020 034351 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034405 034405 0 0 312100034344 0 000020034351 -IT1 034405 0 0 0 312100034344 0 000020034351 -AT3 034405 0 0 0 000000034344 0 312100034344 -AT6 034405 034344 0 0 000000034344 0 312100034344 -FT0 034405 034344 0 0 000020034351 0 312100034344 -FT1A 034405 034344 0 0 000020034351 0 000020034351 -FT2 034405 034344 0 0 0 0 000020034351 -FT2RQ 034405 034344 0 0 000020034351 0 000020034351 -FT3 034405 034344 0 0 000020034351 0 000020034351 -FT9 034406 034344 0 0 000020034351 0 000020034351 -ET0 034407 034344 0 0 0 0 000020034351 -ST1A 034407 034344 0 0 0 0 000020034351 -ST9 034407 034344 0 0 0 0 000020034351 - - -*034407 JUMPA 0,034410 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034407 034407 0 0 324000034410 0 000000034410 -IT1 034407 0 0 0 324000034410 0 000000034410 -AT3 034407 0 0 0 000000034410 0 324000034410 -AT6 034407 034410 0 0 000000034410 0 324000034410 -FT1A 034407 034410 0 0 000000034410 0 000000034410 -FT2 034407 034410 0 0 0 0 000000034410 -FT2RQ 034407 034410 0 0 0 0 000000034410 -FT3 034407 034410 0 0 0 0 000000034410 -FT9 034410 034410 0 0 0 0 000000034410 -ET0 034410 034410 0 0 0 0 000000034410 -ST1A 034410 034410 0 0 0 0 000000034410 -ST9 034410 034410 0 0 0 0 000000034410 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 629 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0824 - -*034410 SETZM 0,000002 -INITIAL -C(AC)=000000 000000 -C(E)=000020 034351 -FINAL - -C(E)=000020 034351 - -TIME PC MA SC FE AR MQ BR -IT0 034410 034410 0 0 402000000002 0 000000000002 -IT1 034410 0 0 0 402000000002 0 000000000002 -AT3 034410 0 0 0 000000000002 0 402000000002 -AT6 034410 000002 0 0 000000000002 0 402000000002 -FT1A 034410 000002 0 0 000000000002 0 000000000002 -FT9 034411 000002 0 0 000000000002 0 000000000002 -ET0 034411 000002 0 0 0 0 000000000002 -ST6 034411 000002 0 0 0 0 000000000002 -ST6A 034411 000002 0 0 0 0 000000000002 -ST9 034411 000002 0 0 0 0 000000000002 - - -*034411 MOVE 2,034352(6) -INITIAL -C(AC)=000000 000000 -C(E)=000000 034350 -FINAL -C(AC)=000007 034346 - -TIME PC MA SC FE AR MQ BR -IT0 034411 034411 0 0 200106034352 0 000007034346 -IT1 034411 0 0 0 200106034352 0 000007034346 -AT1 034411 0 0 0 0 0 200106034352 -AT2 034411 0 0 0 000000000005 0 200106034352 -AT3 034411 0 0 0 000000034357 0 000000034357 -AT6 034411 034357 0 0 000000034357 0 000000034357 -FT0 034411 034357 0 0 000007034346 0 000000034357 -FT1A 034411 034357 0 0 000007034346 0 000007034346 -FT9 034412 034357 0 0 000007034346 0 000007034346 -ET0 034412 034357 0 0 000007034346 0 000007034346 -ST1 034412 034357 0 0 000007034346 0 000007034346 -ST2 034412 034357 0 0 000007034346 0 000007034346 -ST9 034412 034357 0 0 000007034346 0 000007034346 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 630 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0825 - -*034412 CAME 2,034357 -INITIAL -C(AC)=000007 034346 -C(E)=000007 034346 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034412 034412 0 0 312100034357 0 000007034346 -IT1 034412 0 0 0 312100034357 0 000007034346 -AT3 034412 0 0 0 000000034357 0 312100034357 -AT6 034412 034357 0 0 000000034357 0 312100034357 -FT0 034412 034357 0 0 000007034346 0 312100034357 -FT1A 034412 034357 0 0 000007034346 0 000007034346 -FT2 034412 034357 0 0 0 0 000007034346 -FT2RQ 034412 034357 0 0 000007034346 0 000007034346 -FT3 034412 034357 0 0 000007034346 0 000007034346 -FT9 034413 034357 0 0 000007034346 0 000007034346 -ET0 034414 034357 0 0 0 0 000007034346 -ST1A 034414 034357 0 0 0 0 000007034346 -ST9 034414 034357 0 0 0 0 000007034346 - - -*034414 JUMPA 0,034415 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034414 034414 0 0 324000034415 0 000000034415 -IT1 034414 0 0 0 324000034415 0 000000034415 -AT3 034414 0 0 0 000000034415 0 324000034415 -AT6 034414 034415 0 0 000000034415 0 324000034415 -FT1A 034414 034415 0 0 000000034415 0 000000034415 -FT2 034414 034415 0 0 0 0 000000034415 -FT2RQ 034414 034415 0 0 0 0 000000034415 -FT3 034414 034415 0 0 0 0 000000034415 -FT9 034415 034415 0 0 0 0 000000034415 -ET0 034415 034415 0 0 0 0 000000034415 -ST1A 034415 034415 0 0 0 0 000000034415 -ST9 034415 034415 0 0 0 0 000000034415 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 631 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0826 - -*034415 SETOM 0,000002 -INITIAL -C(AC)=000000 000000 -C(E)=000007 034346 -FINAL - -C(E)=000007 034346 - -TIME PC MA SC FE AR MQ BR -IT0 034415 034415 0 0 476000000002 0 000000000002 -IT1 034415 0 0 0 476000000002 0 000000000002 -AT3 034415 0 0 0 000000000002 0 476000000002 -AT6 034415 000002 0 0 000000000002 0 476000000002 -FT1A 034415 000002 0 0 000000000002 0 000000000002 -FT9 034416 000002 0 0 000000000002 0 000000000002 -ET0 034416 000002 0 0 777777777777 0 000000000002 -ST6 034416 000002 0 0 777777777777 0 000000000002 -ST6A 034416 000002 0 0 777777777777 0 000000000002 -ST9 034416 000002 0 0 777777777777 0 000000000002 - - -*034416 MOVE 2,@034362(10) -INITIAL -C(AC)=777777 777777 -C(E)=000000 034362 -FINAL -C(AC)=223223 223223 - -TIME PC MA SC FE AR MQ BR -IT0 034416 034416 0 0 200130034362 0 223223223223 -IT1 034416 0 0 0 200130034362 0 223223223223 -AT1 034416 0 0 0 0 0 200130034362 -AT2 034416 0 0 0 000000000004 0 200130034362 -AT3 034416 0 0 0 000000034366 0 000000034366 -AT4 034416 034366 0 0 000000034353 0 000000034366 -IT1 034416 0 0 0 000000034353 0 000000034366 -AT3 034416 0 0 0 000000034353 0 000000034353 -AT6 034416 034353 0 0 000000034353 0 000000034353 -FT0 034416 034353 0 0 223223223223 0 000000034353 -FT1A 034416 034353 0 0 223223223223 0 223223223223 -FT9 034417 034353 0 0 223223223223 0 223223223223 -ET0 034417 034353 0 0 223223223223 0 223223223223 -ST1 034417 034353 0 0 223223223223 0 223223223223 -ST2 034417 034353 0 0 223223223223 0 223223223223 -ST9 034417 034353 0 0 223223223223 0 223223223223 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 632 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0827 - -*034417 CAME 2,034353 -INITIAL -C(AC)=223223 223223 -C(E)=223223 223223 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034417 034417 0 0 312100034353 0 223223223223 -IT1 034417 0 0 0 312100034353 0 223223223223 -AT3 034417 0 0 0 000000034353 0 312100034353 -AT6 034417 034353 0 0 000000034353 0 312100034353 -FT0 034417 034353 0 0 223223223223 0 312100034353 -FT1A 034417 034353 0 0 223223223223 0 223223223223 -FT2 034417 034353 0 0 0 0 223223223223 -FT2RQ 034417 034353 0 0 223223223223 0 223223223223 -FT3 034417 034353 0 0 223223223223 0 223223223223 -FT9 034420 034353 0 0 223223223223 0 223223223223 -ET0 034421 034353 0 0 0 0 223223223223 -ST1A 034421 034353 0 0 0 0 223223223223 -ST9 034421 034353 0 0 0 0 223223223223 - - -*034421 JUMPA 0,034422 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034421 034421 0 0 324000034422 0 000000034422 -IT1 034421 0 0 0 324000034422 0 000000034422 -AT3 034421 0 0 0 000000034422 0 324000034422 -AT6 034421 034422 0 0 000000034422 0 324000034422 -FT1A 034421 034422 0 0 000000034422 0 000000034422 -FT2 034421 034422 0 0 0 0 000000034422 -FT2RQ 034421 034422 0 0 0 0 000000034422 -FT3 034421 034422 0 0 0 0 000000034422 -FT9 034422 034422 0 0 0 0 000000034422 -ET0 034422 034422 0 0 0 0 000000034422 -ST1A 034422 034422 0 0 0 0 000000034422 -ST9 034422 034422 0 0 0 0 000000034422 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 633 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0828 - -*034422 SETZM 0,000002 -INITIAL -C(AC)=000000 000000 -C(E)=223223 223223 -FINAL - -C(E)=223223 223223 - -TIME PC MA SC FE AR MQ BR -IT0 034422 034422 0 0 402000000002 0 000000000002 -IT1 034422 0 0 0 402000000002 0 000000000002 -AT3 034422 0 0 0 000000000002 0 402000000002 -AT6 034422 000002 0 0 000000000002 0 402000000002 -FT1A 034422 000002 0 0 000000000002 0 000000000002 -FT9 034423 000002 0 0 000000000002 0 000000000002 -ET0 034423 000002 0 0 0 0 000000000002 -ST6 034423 000002 0 0 0 0 000000000002 -ST6A 034423 000002 0 0 0 0 000000000002 -ST9 034423 000002 0 0 0 0 000000000002 - - -*034423 MOVE 2,@034362(11) -INITIAL -C(AC)=000000 000000 -C(E)=000000 034362 -FINAL -C(AC)=224224 224224 - -TIME PC MA SC FE AR MQ BR -IT0 034423 034423 0 0 200131034362 0 224224224224 -IT1 034423 0 0 0 200131034362 0 224224224224 -AT1 034423 0 0 0 0 0 200131034362 -AT2 034423 0 0 0 000000777772 0 200131034362 -AT3 034423 0 0 0 000000034354 0 000000034354 -AT4 034423 034354 0 0 000004034354 0 000000034354 -IT1 034423 0 0 0 000004034354 0 000000034354 -AT1 034423 0 0 0 0 0 000004034354 -AT2 034423 0 0 0 000000000010 0 000004034354 -AT3 034423 0 0 0 000000034364 0 000000034364 -AT6 034423 034364 0 0 000000034364 0 000000034364 -FT0 034423 034364 0 0 224224224224 0 000000034364 -FT1A 034423 034364 0 0 224224224224 0 224224224224 -FT9 034424 034364 0 0 224224224224 0 224224224224 -ET0 034424 034364 0 0 224224224224 0 224224224224 -ST1 034424 034364 0 0 224224224224 0 224224224224 -ST2 034424 034364 0 0 224224224224 0 224224224224 -ST9 034424 034364 0 0 224224224224 0 224224224224 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 634 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0829 - -*034424 CAME 2,034364 -INITIAL -C(AC)=224224 224224 -C(E)=224224 224224 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034424 034424 0 0 312100034364 0 224224224224 -IT1 034424 0 0 0 312100034364 0 224224224224 -AT3 034424 0 0 0 000000034364 0 312100034364 -AT6 034424 034364 0 0 000000034364 0 312100034364 -FT0 034424 034364 0 0 224224224224 0 312100034364 -FT1A 034424 034364 0 0 224224224224 0 224224224224 -FT2 034424 034364 0 0 0 0 224224224224 -FT2RQ 034424 034364 0 0 224224224224 0 224224224224 -FT3 034424 034364 0 0 224224224224 0 224224224224 -FT9 034425 034364 0 0 224224224224 0 224224224224 -ET0 034426 034364 0 0 0 0 224224224224 -ST1A 034426 034364 0 0 0 0 224224224224 -ST9 034426 034364 0 0 0 0 224224224224 - - -*034426 JUMPA 0,034427 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034426 034426 0 0 324000034427 0 000000034427 -IT1 034426 0 0 0 324000034427 0 000000034427 -AT3 034426 0 0 0 000000034427 0 324000034427 -AT6 034426 034427 0 0 000000034427 0 324000034427 -FT1A 034426 034427 0 0 000000034427 0 000000034427 -FT2 034426 034427 0 0 0 0 000000034427 -FT2RQ 034426 034427 0 0 0 0 000000034427 -FT3 034426 034427 0 0 0 0 000000034427 -FT9 034427 034427 0 0 0 0 000000034427 -ET0 034427 034427 0 0 0 0 000000034427 -ST1A 034427 034427 0 0 0 0 000000034427 -ST9 034427 034427 0 0 0 0 000000034427 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 635 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0830 - -*034427 SETOM 0,000002 -INITIAL -C(AC)=000000 000000 -C(E)=224224 224224 -FINAL - -C(E)=224224 224224 - -TIME PC MA SC FE AR MQ BR -IT0 034427 034427 0 0 476000000002 0 000000000002 -IT1 034427 0 0 0 476000000002 0 000000000002 -AT3 034427 0 0 0 000000000002 0 476000000002 -AT6 034427 000002 0 0 000000000002 0 476000000002 -FT1A 034427 000002 0 0 000000000002 0 000000000002 -FT9 034430 000002 0 0 000000000002 0 000000000002 -ET0 034430 000002 0 0 777777777777 0 000000000002 -ST6 034430 000002 0 0 777777777777 0 000000000002 -ST6A 034430 000002 0 0 777777777777 0 000000000002 -ST9 034430 000002 0 0 777777777777 0 000000000002 - - -*034430 MOVE 2,@034356(13) -INITIAL -C(AC)=777777 777777 -C(E)=000000 034356 -FINAL -C(AC)=225225 225225 - -TIME PC MA SC FE AR MQ BR -IT0 034430 034430 0 0 200133034356 0 225225225225 -IT1 034430 0 0 0 200133034356 0 225225225225 -AT1 034430 0 0 0 0 0 200133034356 -AT2 034430 0 0 0 000000000002 0 200133034356 -AT3 034430 0 0 0 000000034360 0 000000034360 -AT4 034430 034360 0 0 000020034363 0 000000034360 -IT1 034430 0 0 0 000020034363 0 000000034360 -AT3 034430 0 0 0 000000034363 0 000020034363 -AT4 034430 034363 0 0 000000034361 0 000020034363 -IT1 034430 0 0 0 000000034361 0 000020034363 -AT3 034430 0 0 0 000000034361 0 000000034361 -AT6 034430 034361 0 0 000000034361 0 000000034361 -FT0 034430 034361 0 0 225225225225 0 000000034361 -FT1A 034430 034361 0 0 225225225225 0 225225225225 -FT9 034431 034361 0 0 225225225225 0 225225225225 -ET0 034431 034361 0 0 225225225225 0 225225225225 -ST1 034431 034361 0 0 225225225225 0 225225225225 -ST2 034431 034361 0 0 225225225225 0 225225225225 -ST9 034431 034361 0 0 225225225225 0 225225225225 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 636 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0831 - -*034431 CAME 2,034361 -INITIAL -C(AC)=225225 225225 -C(E)=225225 225225 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034431 034431 0 0 312100034361 0 225225225225 -IT1 034431 0 0 0 312100034361 0 225225225225 -AT3 034431 0 0 0 000000034361 0 312100034361 -AT6 034431 034361 0 0 000000034361 0 312100034361 -FT0 034431 034361 0 0 225225225225 0 312100034361 -FT1A 034431 034361 0 0 225225225225 0 225225225225 -FT2 034431 034361 0 0 0 0 225225225225 -FT2RQ 034431 034361 0 0 225225225225 0 225225225225 -FT3 034431 034361 0 0 225225225225 0 225225225225 -FT9 034432 034361 0 0 225225225225 0 225225225225 -ET0 034433 034361 0 0 0 0 225225225225 -ST1A 034433 034361 0 0 0 0 225225225225 -ST9 034433 034361 0 0 0 0 225225225225 - - -*034433 JUMPA 0,034434 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034433 034433 0 0 324000034434 0 000000034434 -IT1 034433 0 0 0 324000034434 0 000000034434 -AT3 034433 0 0 0 000000034434 0 324000034434 -AT6 034433 034434 0 0 000000034434 0 324000034434 -FT1A 034433 034434 0 0 000000034434 0 000000034434 -FT2 034433 034434 0 0 0 0 000000034434 -FT2RQ 034433 034434 0 0 0 0 000000034434 -FT3 034433 034434 0 0 0 0 000000034434 -FT9 034434 034434 0 0 0 0 000000034434 -ET0 034434 034434 0 0 0 0 000000034434 -ST1A 034434 034434 0 0 0 0 000000034434 -ST9 034434 034434 0 0 0 0 000000034434 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 637 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0832 - -*034434 SETZM 0,000002 -INITIAL -C(AC)=000000 000000 -C(E)=225225 225225 -FINAL - -C(E)=225225 225225 - -TIME PC MA SC FE AR MQ BR -IT0 034434 034434 0 0 402000000002 0 000000000002 -IT1 034434 0 0 0 402000000002 0 000000000002 -AT3 034434 0 0 0 000000000002 0 402000000002 -AT6 034434 000002 0 0 000000000002 0 402000000002 -FT1A 034434 000002 0 0 000000000002 0 000000000002 -FT9 034435 000002 0 0 000000000002 0 000000000002 -ET0 034435 000002 0 0 0 0 000000000002 -ST6 034435 000002 0 0 0 0 000000000002 -ST6A 034435 000002 0 0 0 0 000000000002 -ST9 034435 000002 0 0 0 0 000000000002 - - -*034435 MOVE 2,@034362(12) -INITIAL -C(AC)=000000 000000 -C(E)=000000 034362 -FINAL -C(AC)=226226 226226 - -TIME PC MA SC FE AR MQ BR -IT0 034435 034435 0 0 200132034362 0 226226226226 -IT1 034435 0 0 0 200132034362 0 226226226226 -AT1 034435 0 0 0 0 0 200132034362 -AT2 034435 0 0 0 000000000005 0 200132034362 -AT3 034435 0 0 0 000000034367 0 000000034367 -AT4 034435 034367 0 0 000025034367 0 000000034367 -IT1 034435 0 0 0 000025034367 0 000000034367 -AT1 034435 0 0 0 0 0 000025034367 -AT2 034435 0 0 0 000000000001 0 000025034367 -AT3 034435 0 0 0 000000034370 0 000000034370 -AT4 034435 034370 0 0 000000034365 0 000000034370 -IT1 034435 0 0 0 000000034365 0 000000034370 -AT3 034435 0 0 0 000000034365 0 000000034365 -AT6 034435 034365 0 0 000000034365 0 000000034365 -FT0 034435 034365 0 0 226226226226 0 000000034365 -FT1A 034435 034365 0 0 226226226226 0 226226226226 -FT9 034436 034365 0 0 226226226226 0 226226226226 -ET0 034436 034365 0 0 226226226226 0 226226226226 -ST1 034436 034365 0 0 226226226226 0 226226226226 -ST2 034436 034365 0 0 226226226226 0 226226226226 -ST9 034436 034365 0 0 226226226226 0 226226226226 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 638 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0833 - -*034436 CAME 2,034365 -INITIAL -C(AC)=226226 226226 -C(E)=226226 226226 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034436 034436 0 0 312100034365 0 226226226226 -IT1 034436 0 0 0 312100034365 0 226226226226 -AT3 034436 0 0 0 000000034365 0 312100034365 -AT6 034436 034365 0 0 000000034365 0 312100034365 -FT0 034436 034365 0 0 226226226226 0 312100034365 -FT1A 034436 034365 0 0 226226226226 0 226226226226 -FT2 034436 034365 0 0 0 0 226226226226 -FT2RQ 034436 034365 0 0 226226226226 0 226226226226 -FT3 034436 034365 0 0 226226226226 0 226226226226 -FT9 034437 034365 0 0 226226226226 0 226226226226 -ET0 034440 034365 0 0 0 0 226226226226 -ST1A 034440 034365 0 0 0 0 226226226226 -ST9 034440 034365 0 0 0 0 226226226226 - - -*034440 JUMPA 0,034441 -INITIAL -C(AC)=000000 000000 -FINAL - - -TIME PC MA SC FE AR MQ BR -IT0 034440 034440 0 0 324000034441 0 000000034441 -IT1 034440 0 0 0 324000034441 0 000000034441 -AT3 034440 0 0 0 000000034441 0 324000034441 -AT6 034440 034441 0 0 000000034441 0 324000034441 -FT1A 034440 034441 0 0 000000034441 0 000000034441 -FT2 034440 034441 0 0 0 0 000000034441 -FT2RQ 034440 034441 0 0 0 0 000000034441 -FT3 034440 034441 0 0 0 0 000000034441 -FT9 034441 034441 0 0 0 0 000000034441 -ET0 034441 034441 0 0 0 0 000000034441 -ST1A 034441 034441 0 0 0 0 000000034441 -ST9 034441 034441 0 0 0 0 000000034441 - - -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 639 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0834 - -*034441 JRST 0,030057 -INITIAL -C(AC)=000000 000000 -C(E)=254000 030641 -FINAL - -C(E)=254000 030641 - -TIME PC MA SC FE AR MQ BR -IT0 034441 034441 0 0 254000030057 0 254000030057 -IT1 034441 0 0 0 254000030057 0 254000030057 -AT3 034441 0 0 0 000000030057 0 254000030057 -AT6 034441 030057 0 0 000000030057 0 254000030057 -FT1A 034441 030057 0 0 000000030057 0 254000030057 -FT9 034442 030057 0 0 000000030057 0 254000030057 -ET0 030057 034442 0 0 000000030057 0 254000030057 -ST1A 030057 034442 0 0 000000030057 0 254000030057 -ST9 030057 034442 0 0 000000030057 0 254000030057 - - -*030057 JRST 0,030641 -INITIAL -C(AC)=000000 000000 -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 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 -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 19-JAN-77 PAGE 640 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0835 - -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 000000 -C(E)=000000 000001 -FINAL -C(AC)=000000 000000 -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 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -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 19-JAN-77 PAGE 641 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0836 - -*030644 JRST 0,030652 -INITIAL -C(AC)=000000 000000 -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 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -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 000000000002 0 000000030024 -FT3 030654 030024 0 0 000000000002 0 000000030024 -FT9 030655 030024 0 0 000000000002 0 000000030024 -PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KASIM VER 0.2 19-JAN-77 PAGE 642 -DAKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0837 - -ST1 030655 030024 0 0 000000000002 0 000000030024 -ST2 030655 030024 0 0 000000000002 0 000000030024 -ST9 030655 030024 0 0 000000000002 0 000000030024 - - -*030655 SKIPE 0,030024 -INITIAL -C(AC)=000000 000000 -C(E)=000000 000000 -FINAL -C(AC)=000000 000000 - -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 000000 -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 - - diff --git a/apps/pdp10/tapes/diags/klad/dakad/README.md b/apps/pdp10/tapes/diags/klad/dakad/README.md index 12dcd434a..d36951188 100644 --- a/apps/pdp10/tapes/diags/klad/dakad/README.md +++ b/apps/pdp10/tapes/diags/klad/dakad/README.md @@ -7,20 +7,23 @@ machines: type: pdp10 config: /devices/pdp10/machine/ka10/test/debugger/machine.xml debugger: true + commands: a 30724 /apps/pdp10/tapes/diags/klad/dakad/TEST.MAC --- PDP-10 KA10 Basic Instruction Diagnostic #4 ------------------------------------------- The *PDP-10 KA10 Basic Instruction Diagnostic #4* (MAINDEC-10-DAKAD-B-D) test code has been extracted from -[DAKAD.MAC](DAKAD.MAC) [[original file](http://pdp-10.trailing-edge.com/klad_sources/01/klad.sources/dakadm.mac.html)] +[DAKAD.MAC](DAKAD.MAC.txt) [[original](http://pdp-10.trailing-edge.com/klad_sources/01/klad.sources/dakadm.mac.html)] for use with the [PDP-10 Test Machine with Debugger](/devices/pdp10/machine/ka10/test/debugger/) below. Resources for this test include: -- [DAKAD.TXT](#dakadtxt) -- [DAKAD.MAC](#dakadmac) -- [DAKAD.SEQ](#dakadseq) +- [Instructions](#dakadtxt) +- [History](#dakadhst) +- [Source Code](#dakadmac) [[file](DAKAD.MAC.txt)] +- [MACRO-10 Listing](#dakadlst) [[file](DAKAD.LST.txt)] +- [Additional Information](#dakadseq) {% include machine.html id="testka10" %} @@ -31,8 +34,9 @@ This command: a 30724 /apps/pdp10/tapes/diags/klad/dakad/TEST.MAC -will automatically read the [TEST.MAC](TEST.MAC) source file (a slightly modified copy of [DAKAD.MAC](DAKAD.MAC)), assemble it, -and then load the binary output at the specified address. Use the command `db 30724` to dump the first few words of binary data: +will automatically read the [TEST.MAC](TEST.MAC.txt) source file (a slightly modified copy of [DAKAD.MAC](DAKAD.MAC.txt)), +assemble it, and then load the binary output at the specified address. Use the command `db 30724` to dump the first few words +of binary data: 030724: 254000 030741 053 000 000 061 160 +..1p 030725: 064252 042240 015 012 120 104 120 ..PDP @@ -245,2068 +249,56 @@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ``` -DAKAD.MAC +DAKAD.HST --------- ``` -SUBTTL DIAGNOSTIC PARAMETERS + THIS IS A HISTORY OF THE DEVELOPMENT OF MAINDEC-10-DAKAD + SEQ 0006 +************************************************************************ -;ACCUMULATOR ASSIGNMENTS +PRODUCT CODE: MAINDEC-10-DAKAD -;CONTROL WORDS +PRODUCT NAME: BASIC INSTRUCTION DIAGNOSTIC #4 -AROV=400000 ;ARITHMETIC OVERFLOW -CRY0=200000 ;CARRY 0 -CRY1=100000 ;CARRY 1 -FOV=40000 ;FLOATING OVERFLOW -BIS=20000 ;BYTE INTERRUPT -USERF=10000 ;USER MODE FLAG -EXIOT=4000 ;USER PRIV I/O FLAG -FXU=100 ;FLOATING UNDERFLOW -DCK=40 ;DIVIDE CHECK +DATE RELEASED: JANUARY 1977 +VERSION: 0.2 -;MACROS +UPDATE AUTHOR: JOHN R. KIRCHOFF -; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1) -; TO A (JUMPA X) TO CYCLE ON FAILING INSTRUCTION +CHANGES MADE: -DEFINE STOP (A)< - HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE - JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) - ;TO JUMPA X(X IS THE ADDRESS OF THE FIRST - ;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR - ;AND CHANGE HALT INSTRUCTION TO JUMPA .+1> + 1. UPGRADE TO ALLOW COMPATABILITY WITH THE SUBROUTINE PACKAGE. -; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET REQUESTED FLAG +************************************************************************ -DEFINE SFLAG (A)< - MOVSI 1,A - JFCL 17,.+1 ;RESET ALL FLAGS - JRST 2,.+1(1) ;SET A FLAG> -SUBTTL DIAGNOSTIC SECTION +ORIGINAL VERSION: 0.1 -START: SETZM USER# ;CLEAR USER CONTROL WORD - JSP 0,.+1 ;GET FLAGS - TLNE USERF ;IN USER MODE? - SETOM USER ;YES, SET USER CONTROL WORD - SKIPN MONFLG ;SPECIAL USER MODE? - SETZM USER ;YES, CLEAR USER CONTROL WORD - SKIPN USER - JRST C00 - SKIPL MONCTL - TTCALL 3,PGMNAM ;MENTION OUR NAME - JRST STARTA +ORIGINAL AUTHOR: RICHARD MALISKA -PGMNAM: ASCIZ/ -PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) [DAKAD] -/ +ORIGINAL RELEASE: 16-MAR-72 -;BASIC INSTRUCTION TEST (3) -;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF -;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES -;IN THE FIELD. +************************************************************************ -STARTA: JRST .+1 -C00: -;TESTING BEGINS HERE - -;IF ANY LOADING PROBLEMS OCCUR, START PROGRAM HERE. - -;NOTE: AN "*" IN THE COMMENT FIELD OF AN INSTRUCTION INDICATES THAT -; IT IS THE TESTED INSTRUCTION. - -SUBTTL TEST OF AC HARDWARE AND INDEX REGISTERS - -;********** - -;THIS TEST VERIFIES THAT AC1 IS ACCESSABLE -;IN THIS CASE, AC1 IS PRELOADED WITH 1. -;C(AC1) IS THEN CHECKED FOR A1. THIS TEST PASSES IF C(AC1)=1. -;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY - -C100: SETZ ;CLEAR AC0 - MOVEI 1,1 ;PRELOAD AC1 WITH 1 - CAIE 1,1 ;PASS IF C(AC1)=1 - STOP - -;********** - -;THIS TEST VERIFIES THAT AC2 IS ACCESSABLE. -;IN THIS CASE, AC2 IS PRELOADED WITH 2. -;C(AC2) IS THEN CHECKED FOR 2. THIS TEST PASSES IF C(AC2)=2. -;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY - -C200: MOVEI 2,2 ;PRELOAD AC2 WITH 2 - CAIE 2,2 ;PASS IF C(AC2)=2 - STOP - -;********** -;THIS TEST VERIFIES THAT AC4 IS ACCESSABLE. -;IN THIS CASE, AC4 IS PRELOADED WITH 4. -;C(AC4) IS THEN CHECKED FOR 4. THIS TEST PASSES IF C(AC4)=4. -;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY - -C300: MOVEI 4,4 ;PRELOAD AC4 WITH 4 - CAIE 4,4 ;PASS IF C(AC4)=4 - STOP - -;********** - -;THIS TEST VERIFIES THAT AC10 IS ACCESSABLE. -;IN THIS CASE, AC10 IS PRELOADED WITH 10. -;C(AC10) IS THEN CHECKED FOR 10. THIS TEST PASSES IF C(AC10)=10. -;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY - -C400: MOVEI 10,10 ;PRELOAD AC10 WITH 10 - CAIE 10,10 ;PASS IF C(AC10)=10 - STOP - -;********** -SN=500 - ZZ=-1 - -;THIS TEST VERIFIES THAT ALL ACS EXIST -;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; -;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. -;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - -C500: REPEAT ^D16, -< ZZ=ZZ+1 - MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR> -PAGE - ZZ=20 - - REPEAT ^D16,< -;THIS TEST VERIFIES THAT ALL ACS EXIST. -;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; -;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. -;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS - -SN=SN+1 - ZZ=ZZ-1 - CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - STOP - ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS - -;********** -> -SN=600 - ZZ=0 - -;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS -;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE -;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS; THEN THE CONTENTS OF EACH -;AC IS CHECKED FOR ITS ADDRESS. IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - -C600: REPEAT ^D15, -< ZZ=ZZ+1 - MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS - MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY.> - - ZZ=20 - - REPEAT ^D15,< -;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS -;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE -;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS -;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. -;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. - -SN=SN+1 - ZZ=ZZ-1 - CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS - STOP - ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS - -;********** -> -SN=700 - ZZ=0 - -C700: REPEAT ^D15,< -;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. -;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, -;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. -;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. - -SN=SN+1 - ZZ=ZZ+1 - MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS - CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - STOP - -;********** -> -SN=1000 - ZZ=0 - -C1000: REPEAT ^D15,< -;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. -;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. -;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES. -;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. -;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER - -SN=SN+1 - ZZ=ZZ+1 - MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS - HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS - CAME ZZ,(ZZ) ;IN BOTH HALVES - STOP - -;********** -> -SUBTTL TEST OF INDEX REGISTER ADDRESSING - -;********** - -;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. -;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION -;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. -;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 0, -;THE FINAL RESULT IN AC3 SHOULD BE 0. IF C(AC3)=0, THIS TEST PASSES. - -C1100: SETOM 3 ;PRELOAD AC3 WITH -1,,1 - SETZM 1 ;PRELOAD AC1 WITH 0 - MOVEI 2,1 ;SETUP INDEX REGISTER 2 WITH 1 - MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - SKIPE 3 ;TEST INDEXING - STOP - -;********** - -SN=1200 - ZZ=0 - -C1200: REPEAT ^D18,< -;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. -;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION -;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. -;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A -;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. -;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - -SN=SN+1 - ZZ=ZZ+ZZ - IFE ZZ, - SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - MOVEI 2,1 ;SETUP INDEX REGISTER - MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - CAIE 3,ZZ ;TEST INDEXING - STOP - -;********** -> -SN=1300 - ZZ=0 - -C1300: REPEAT ^D18,< -;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. -;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION -;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. -;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A -;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. -;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. - -SN=SN+1 - ZZ=ZZ+ZZ - IFE ZZ, - SETOM 3 ;PRELOAD AC3 WITH -1,,-1 - MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 - MOVEI 2,1 ;SETUP INDEX REGISTER - MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - CAME 3,[ZZ,,0] ;TEST INDEXING - STOP - -;********** -> -;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. -;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION -;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. -;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH -1,,-1, -;THE FINAL RESULT IN AC3 SHOULD BE -1,,-1. IF C(AC3)=-1,,-1, THIS TEST PASSES. - -C1400: SETZM 3 ;PRELOAD AC3 WITH 0 - SETOM 1 ;PRELOAD AC1 WITH -1,,-1 - MOVEI 2,1 ;SETUP INDEX REGISTER - MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - CAME 3,[-1,,-1] ;TEST INDEXING - STOP - -;********** - -SN=1500 - ZZ=0 - -C1500: REPEAT ^D18,< -;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. -;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION -;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. -;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A -;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. -;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - -SN=SN+1 - ZZ=&777777 - IFE , - SETZM 3 ;PRELOAD AC3 WITH 0 - HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - MOVEI 2,1 ;SETUP INDEX REGISTER - MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - CAME 3,[-1,,ZZ] ;TEST INDEXING - STOP - -;********** -> -SN=1600 - ZZ=0 - -C1600: REPEAT ^D18,< -;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. -;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION -;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. -;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A -;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. -;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. - -SN=SN+1 - ZZ=&777777 - IFE , - SETZM 3 ;PRELOAD AC3 WITH 0 - HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 - MOVEI 2,1 ;SETUP INDEX REGISTER - MOVE 3,(2) ;*FWT FROM INDEXED LOCATION - CAME 3,[ZZ,,-1] ;TEST INDEXING - STOP - -;********** -> -;VERIFY INDEXING WHERE 'E' IS NON-ZERO - -SN=1700 - ZZ=-1 - XX=-10 - -;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. -;IN THIS TEST, THE INDEX REG IS SET-UP WITH MOVEI ZZ+1,ZZ-XX, -;WHERE ZZ+1 IS THE INDEX REG. THE AC IS PRELOADED WITH ITS OWN ADDRESS, 0,,ZZ. -;CAIE IS USED TO TEST THE INDEXING OPERATION. -;IF THE RESULT IN C(AC)=XX+C(ZZ+1 - RIGHT), THIS TEST PASSES. -;XX+C(ZZ+1 - RIGHT) SHOULD = ZZ. - -C1700: REPEAT ^D15, - -PAGE -SN=2000 - ZZ=-1 - XX=-20 - -;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. -;IN THIS TEST, THE INDEX REG IS SET-UP WITH MOVEI ZZ+1,ZZ-XX, -;WHERE ZZ+1 IS THE INDEX REG. INDEXING IS TESTED BY LOADING -;THE AC VIA MOVEI ZZ,XX(ZZ+1), WHERE XX+C(ZZ+1)=ZZ. -;IF THE RESULT IN THE AC EQUALS 0,,ZZ, THIS TEST PASSES. - -C2000: REPEAT ^D15, - -SUBTTL TEST OF EXCH INSTRUCTION - -;********** - -;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND -;MOVES C(AC) INTO E. -;IN THIS CASE, AC=E=0 AND C(AC)=C(E). HENCE, THE FINAL RESULT -;IN AC0 SHOULD BE 0. IF C(AC)=0, THE TEST PASSES. - -C2100: SETZ ;PRELOAD AC,E WITH 0 - EXCH ;*EXCH SHOULD PLACE 0 INTO AC0 - SKIPE ;PASS IF C(AC0)=0 - STOP - -;********** - -;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND -;MOVES C(AC) INTO E. -;IN THIS CASE, AC=E=-1,,-1 AND C(AC)=C(E). HENCE, THE FINAL RESULT -;IN AC0 SHOULD BE -1,,-1. IF C(AC)=-1,,-1, THE TEST PASSES. - -C2200: SETO ;PRELOAD AC,E WITH -1,,-1 - EXCH ;*EXCH SHOULD PLACE -1,,-1 INTO AC0 - CAME [-1] ;PASS IF C(AC0)=-1,,-1 - STOP - -;********** -;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND -;MOVES C(AC) INTO E. -;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0,,-1. HENCE, THE FINAL RESULT -;IN THE AC SHOULD BE 0,,-1 AND THE RESULT IN E SHOULD BE -1,,0, -;IF THESE RESULTS OCCUR, THE TEST PASSES. - -C2400: MOVSI -1 ;PRELOAD AC WITH -1,,0 - MOVEI 1,-1 ;PRELOAD E WITH 0,,-1 - EXCH 1 ;*EXCH SHOULD PLACE 0,,-1 INTO THE AC AND -1,,0 INTO E - CAME 1,[-1,,0] ;PASS IF C(E)=-1,,0 - STOP -C2410: CAME 0,[0,,-1] ;PASS IF C(AC)=0,,-1 - STOP - -;********** - -;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND -;MOVES C(AC) INTO E. -;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,0. HENCE, THE FINAL RESULT -;IN THE AC SHOULD BE -1,,0 AND THE RESULT IN E SHOULD BE 0,,-1. -;IF THESE RESULTS OCCUR, THE TEST PASSES. - -C2700: MOVEI -1 ;PRELOAD AC WITH 0,,-1 - MOVSI 1,-1 ;PRELOAD E WITH -1,,0 - EXCH 1 ;*EXCH SHOULD PLACE -1,,0 INTO THE AC AND 0,,-1 INTO E - CAIE 1,-1 ;PASS IF C(E)=0,,-1 - STOP -C2710: CAME ,[XWD -1,0] ;PASS IF C(AC)=-1,,0 - STOP - -;********** -;THIS TEST IS A RELIABILITY CHECK OF EXCH. -;FIRST, AC, E ARE PRELOADED WITH 252525,,252525. THERE, EXCH IS -;EXECUTED 7 TIMES. THE AC IS THEN CHECKED FOR 252525,,252525. -;IF C(AC)=C(E)=252525,,252525, THIS TEST PASSES. -;IN THIS TEST AC=E=AC0 - -C3000: MOVE [252525252525] ;PRELOAD AC,E WITH 252525,,252525 - REPEAT 7, -< EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0> - CAME [252525252525] ;PASS IF C(AC0)=252525,,252525 - STOP - -;********** -PAGE -;THIS TEST VERIFIES THAT EXCH MOVES C(AC) INTO E AND C(E) INTO THE AC. -;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1. EXCH IS EXECUTED 7 TIMES; THEN, -;THE AC IS CHECKED FOR -1,,-1 AND E IS CHECKED FOR 0. IF EITHER OF THESE -;RESULTS ARE NOT FOUND, THIS TEST FAILS. - -C3100: SETZ ;PRELOAD AC WITH 0 - SETO 1,0 ;PRELOAD E WITH -1,,-1 - REPEAT 7, -< EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E)> - CAME [-1] ;PASS IF C(AC)=-1,,-1 - STOP -C3110: CAME 1,[0] ;PASS IF C(E)=0 - STOP - -;********** -SUBTTL TEST OF MOVEM INSTRUCTION - -;THIS TEST VERIFIES THAT MOVEM PLACES C(AC) INTO E AND DOES NOT MODIFY C(AC) -;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN AC AND E SHOULD -;BE -1,,-1. IF C(AC) AND C(E)=-1,,-1, THIS TEST PASSES - -C3200: SETO ;PRELOAD AC WITH -1,,-1 - SETZ 1,0 ;PRELOAD E WITH 0 - MOVEM 1 ;*MOVEM SHOULD PLACE -1,,-1 INTO E - CAME 1,[-1] ;PASS IF C(E)=-1,,-1 - STOP -C3210: CAME 0,[-1] ;PASS IF C(AC)=-1,,-1 - STOP - -;********** -SUBTTL TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS - -;********** - -;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS RETURNS TO THE NEXT SEQUENTIAL INSTRUCTION -;IF JFCL SKIPS THE NEXT INSTRUCTION, THIS TEST FAILS - -C3300: MOVE [HALT .+3] ;THIS INSTRUCTION SHOULD NOT AFFECT THE TEST - JFCL 17,.+1 ;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION - CAIA ;SKIP HALT INSTRUCTION IF JFCL PASSES - STOP - -;********** - -;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE CRY0 FLAG. -;ADDI IS USED TO SET CRY0. THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR CRY0. -;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER CRY0 WAS RESET BY THE PREVIOUS JFCL. -;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR CRY0 - -C3400: MOVE [-1] ;PRELOAD AC WITH -1,,-1 - ADDI 1 ;SET CRY0 FLAG - JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS - JFCL 4,.+2 ;PASS IF CRY0 WAS RESET BY PREVIOUS INSTRUCTION - SKIPA ;SKIP HALT IF CRY0 WAS CLEARED - STOP - -;********** -;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE CRY1 FLAG. -;ADDI IS USED TO SET CRY1. THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR CRY1. -;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER CRY1 WAS RESET BY THE PREVIOUS JFCL. -;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR CRY1 - -C3500: MOVE [-1] ;PRELOAD AC WITH -1,,-1 - ADDI 1 ;SET CRY1 FLAG - JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS - JFCL 2,.+2 ;PASS IF CRY1 WAS RESET BY PREVIOUS INSTRUCTION - SKIPA ;SKIP HALT IF CRY1 WAS CLEARED - STOP - -;********** - -;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE AROV FLAG. -;ADDI IS USED TO SET AROV. THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR AROV. -;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER AROV WAS RESET BY THE PREVIOUS JFCL. -;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR AROV - -C3600: MOVSI 400000 ;PRELOAD AC WITH -1,,-1 - ADD [XWD 400000,0] ;SET AROV FLAG - JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS - JFCL 10,.+2 ;PASS IF AROV WAS RESET BY PREVIOUS INSTRUCTION - SKIPA ;SKIP HALT IF AROV WAS CLEARED - STOP - -;********** -;THIS TEST VERIFIES THAT JFCL 0, IS A NO-OP. -;IN THIS TEST, ADD IS USED TO SET CRY0. THEN JFCL 0,.+2 IS EXECUTED. -;IF JFCL 0,.+2 DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES - -C3700: MOVSI 400000 ;PRELOAD AC WITH MOST NEGATIVE NUMBER - ADD [-1] ;SET CRY0 FLAG - JFCL .+2 ;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION - SKIPA ;PASS IF JFCL DID NOT SKIP - STOP - -;********** - -;THIS TEST VERIFIES THAT JFCL 0, IS A NO-OP. -;IN THIS TEST, ADD IS USED TO SET CRY1. THEN JFCL 0,.+2 IS EXECUTED. -;IF JFCL 0,.+2 DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES - -C4000: MOVSI 200000 ;PRELOAD AC WITH MOST NEGATIVE NUMBER - ADD [XWD 200000,0] ;SET CRY1 FLAG - JFCL .+2 ;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION - SKIPA ;PASS IF JFCL DID NOT SKIP - STOP - -;********** -;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND -;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. -;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1. THEN, JFCL SHOULD SKIP -;BECAUSE A FLAG WAS SET BY ADDI -;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR -;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET - -C4100: MOVE [-1] ;PRELOAD AC WITH ALL ONES - ADDI 1 ;*ADDI SHOULD SET CRY0/1 FLAGS - JFCL 17,.+2 ;*JFCL SHOULD JUMP BECAUSE FLAGS ARE SET - STOP - -;********** - -;THIS TEST VERIFIES THAT CAI DOES NOT CLEAR ANY ARITHMETIC FLAGS. -;FIRST, CRY0 AND CRY1 ARE SET BY ADDI; THEN CAI IS EXECUTED. -;JFCL SHOULD JUMP BECAUSE FLAGS ARE SET. IF JFCL DOES NOT JUMP, -;THE FLAGS WERE CLEARED BY CAI. HENCE, CAI FAILED - -C4200: MOVE [-1] ;PRELOAD AC WITH -1,,-1 - ADDI 1 ;SET CYR0/1 FLAGS - CAI 17,17 ;*CAI SHOULD NOT CLEAR FLAGS - JFCL 17,.+2 ;PASS IF CAI CLEARED FLAGS - STOP - -;********** -;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND -;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. -;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1. THEN JFCL SHOULD SKIP -;BECAUSE A FLAG WAS SET BY ADDI -;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR -;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET - -C4300: MOVE [-1] ;PRELOAD AC WITH ALL ONES - ADDI 1 ;*ADDI SHOULD SET CRY1 FLAGS - JFCL 2,.+2 ;*JFCL SHOULD JUMP BECAUSE CRY1 FLAG IS SET - STOP - -;********** - -;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND -;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. -;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1. THEN, JFCL SHOULD SKIP -;BECAUSE A FLAG WAS SET BY ADDI -;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR -;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET - -C4400: MOVE [-1] ;PRELOAD AC WITH ALL ONES - ADDI 1 ;*ADDI SHOULD SET CRY0 FLAG - JFCL 4,.+2 ;*JFCL SHOULD JUMP BECAUSE CRY0 FLAG IS SET - STOP - -;********** -;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND -;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. -;BECAUSE A FLAG WAS SET BY ADD -;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR -;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET - -C4500: MOVSI 400000 ;PRELOAD AC WITH ALL ONES - ADD [XWD 400000,0] ;*ADD SHOULD SET AROV FLAG - JFCL 10,.+2 ;*JFCL SHOULD JUMP BECAUSE AROV FLAG IS SET - STOP - -;********** - -;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE FLOATING OVERFLOW FLAG (FOV). -;FIRST JFCL 17,.+1 IS EXECUTED TO CLEAR FOV. THEN, JFCL 1,.+2 IS EXECUTED TO DETERMINE -;WHETHER FOV WAS CLEARED. IF FOV WAS CLEAR, THIS TEST PASSES - -C4600: JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS - JFCL 1,.+2 ;PASS IF FOV WAS CLEARED - SKIPA ;SKIP HALT IF TEST PASSED - STOP - -;********** -;THIS TEST VERIFIES THAT JFCL 13, DOES NOT RESET CRY0. -;FIRST CRY0 AND CRY1 ARE SET BY ADDI; THEN, JFCL 13,.+2 IS EXECUTED -;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT CRY0. -;THIS TEST PASSES IF JFCL 13,.+1 DID NOT RESET CRY0. - -C4700: MOVE [-1] ;RELOAD AC WITH -1,,-1 - ADDI 1 ;SET CRY0/1 - JFCL 13,.+1 ;*JFCL 13, SHOULD NOT RESET CRY0 - JFCL 4,.+2 ;FAIL IF CRY 0 WAS RESET - STOP - -;********** - -;THIS TEST VERIFIES THAT JFCL 15, DOES NOT RESET CRY1. -;FIRST CRY0 AND CRY1 ARE SET BY ADDI; THEN, JFCL15,.+2 IS EXECUTED -;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT CRY1. -;THIS TEST PASSES IF JFCL 15,.+1 DID NOT RESET CRY1. - -C5000: MOVE [-1] ;PRELOAD AC WITH -1,,-1 - ADDI 1 ;SET CRY0/1 - JFCL 15,.+1 ;*JFCL15, SHOULD NOT RESET CRY0 - JFCL 2,.+2 ;FAIL IF CRY1 WAS RESET - STOP - -;********** -;THIS TEST VERIFIES THAT JFCL 17, DOES NOT RESET AROV. -;FIRST AROV IS SET BY ADD; THEN, JFCL 17,.+2 IS EXECUTED -;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT AROV. -;THIS TEST PASSES IF JFCL 17,.+1 DID NOT RESET AROV. - -C5100: MOVSI 400000 ;PRELOAD AC WITH -1,,-1 - ADD [XWD 400000,0] ;SET AROV - JFCL 7,.+1 ;*JFCL 17, SHOULD NOT RESET AROV - JFCL 10,.+2 ;FAIL IF AROV WAS RESET - STOP - -;********** - -;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET AROV. -;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD. -;AROV IS THEN CHECKED. IF AROV IS SET, THIS TEST FAILS. - -C5200: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS - SETZ ;PRELOAD AC,E WITH 0 - ADD ;*ADD SHOULD NOT SET AROV - JFCL 10,.+2 ;PASS IF AROV WAS RESET - SKIPA ;SKIP HALT IF ADD PASSED - STOP - -;********** -;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET CRY0. -;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD. -;CRY0 IS THEN CHECKED. IF CRY0 IS SET, THIS TEST FAILS. - - -C5300: SETZ ;RESET ARITHMETIC FLAGS - JFCL 17,.+1 ;PRELOAD AC,E WITH 0 - ADD ;*ADD SHOULD NOT SET CRY0 - JFCL 4,.+2 ;PASS IF CRY0 WAS RESET - SKIPA ;SKIP HALT IF ADD PASSED - STOP - -;********** - -;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET CRY1. -;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD. -;CRY1 IS THEN CHECKED. IF CRY1 IS SET, THIS TEST FAILS. - -C5400: SETZ ;RESET ARITHMETIC FLAGS - JFCL 17,.+1 ;PRELOAD AC,E WITH 0 - ADD ;*ADD SHOULD NOT SET CRY1 - JFCL 2,.+2 ;PASS IF CRY1 WAS RESET - SKIPA ;SKIP HALT IF ADD PASSED - STOP - -;********** -;THIS TEST VERIFIES THAT THE 30X AND THE 31X INSTRUCTION GROUPS DO NOT AFFECT -;THE ARITHMETIC FLAGS. FIRST, THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, CAI -;AND CAM ARE EXECUTED. THE FLAGS ARE THEN CHECKED. IF ANY OF THE FLAGS ARE SET, -;THIS TEST FAILS AND CAI OR CAM IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS - -C5500: JFCL 17,.+1 ;CLEAR ALL FLAGS - SETZ ;CLEAR AC,0 - CAI ;*CAI SHOULD NOT SET ANY ARITHMETIC FLAG - CAM [-1] ;*CAM SHOULD NOT SET ANY ARITHMETIC FLAG - JFCL 17,.+2 ;FAIL IF ANY FLAG WAS SET - SKIPA ;SKIP HALT IF TEST PASSED - STOP - -;********** - -;THIS TEST VERIFIES THAT THE BOOLEAN INSTRUCTION GROUPS DO NOT AFFECT -;THE ARITHMETIC FLAGS. FIRST THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, XOR [0] -;AND XOR [-1] ARE EXECUTED. THE FLAGS ARE THEN CHECKED. IF ANY OF THE FLAGS ARE SET, -;THIS TEST FAILS AND XOR IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS - -C5600: JFCL 17,.+1 ;CLEAR ALL FLAGS - SETO ;CLEAR AC,0 - XOR [0] ;*XOR SHOULD NOT SET ANY ARITHMETIC FLAG - XOR [-1] ;*XOR SHOULD NOT SET ANY ARITHMETIC FLAG - JFCL 17,.+2 ;FAIL IF ANY FLAG WAS SET - SKIPA ;SKIP HALT IF TEST PASSED - STOP - -;********** -;THIS TEST VERIFIES THAT THE AOBJX INSTRUCTION GROUP DOES DO NOT AFFECT -;THE ARITHMETIC FLAGS. FIRST THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, AOBJN -;AND AOBJP ARE EXECUTED. THE FLAGS ARE THEN CHECKED. IF ANY OF THE FLAGS ARE SET, -;THIS TEST FAILS AND AOBJN OR AOBJP IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS - -C5700: SETO ;CLEAR ALL FLAGS - JFCL 17,.+1 ;CLEAR AC,0 - AOBJN .+1 ;*AOBJN SHOULD NOT SET ANY ARITHMETIC ARITHMETIC - AOBJP .+1 ;*AOBJP SHOULD NOT SET ANY ARITHMETIC FLAG - JFCL 17,.+2 ;FAIL IF ANY FLAG WAS SET - SKIPA ;SKIP HALT IF TST PASSED - STOP - -;********** -;THIS TEST VERIFIES THAT SKIP DOES NOT AFFECT THE FLAGS. -;FIRST, THE ARITHMETIC FLAGS ARE CLEARED; THEN, SKIP IS EXECUTED. -;IF SKIP SETS AROV, CRYO, CRY1 OR FOV, THIS TEST FAILS. - -C5701: JFCL 17,.+1 ;CLEAR ALL FLAGS - SKIP 0,[-1] ;*SKIP SHOULD NOT SET ANY FLAGS - JFCL 17,.+2 ;FAIL IF ANY FLAG IS SET - SKIPA ;PASS IF NO FLAG IS SET - STOP - -;********** - -;THIS TEST VERIFIES THAT JUMP DOES NOT AFFECT THE FLAGS. -;FIRST, THE ARITHMETIC FLAGS ARE CLEARED; THEN, JUMP IS EXECUTED. -;IF JUMP SETS AROV, CRYO, CRY1 OR FOV, THIS TEST FAILS. - -C5702: JFCL 17,.+1 ;CLEAR ALL FLAGS - JUMP 0,[-1] ;*JUMP SHOULD NOT SET ANY FLAGS - JFCL 17,.+2 ;FAIL IF ANY FLAG IS SET - SKIPA ;PASS IF NO FLAG IS SET - STOP - -;********** -SUBTTL TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS - -;********** - -;THIS TEST VERIFIES THAT 'JRST, 0' DOES NOT SET ANY FLAGS. -;FIRST THE ARITHMETIC FLAGS ARE RESET; THEN, 'JRST 0,.+1' IS EXECUTED -;THE AROV,CRY0 AND CRY1 FLAGS ARE THEN CHECKED. IF ANY -;OF THESE FLAGS ARE SET, THIS TEST FAILS - -C6000: JFCL 17,.+1 ;RESET ALL FLAGS - JRST .+1 ;*JRST SHOULD NOT SET ANY FLAGS - JFCL 16,.+2 ;PASS IF NO FLAGS ARE SET - SKIPA ;SKIP HALT IF JRST PASSES - STOP - -;********** - -;THIS TEST VERIFIES THAT 'MOVE 2,2' DOES NOT SET ANY FLAGS. -;FIRST, THE ARITHMETIC FLAGS ARE RESET; THEN, 'MOVE 2,2' IS EXECUTED. -;THE FOV,AROV,CRY0 AND CRY1 FLAGS ARE THEN CHECKED. IF ANY -;OF THESE FLAGS ARE SET, THIS TEST FAILS - -C6100: JFCL 17,.+1 ;RESET ALL FLAGS - MOVE 2,2 ;*MOVE SHOULD NOT SET ANY FLAGS - JFCL 17,.+2 ;PASS IF NO FLAGS ARE SET - SKIPA ;SKIP HALT IF MOVE PASSED - STOP - -;********** -;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG -;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE CRY0 FLAG. -;FIRST, ALL FLAGS ARE RESET; THEN AC1 IS SET TO SPECIFY CRY0. -;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET CRY0. CRY0 IS THEN CHECKED. IF -;CRY0 IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - -C6200: JFCL 17,.+1 ;CLEAR ALL FLAGS - SFLAG CRY0 ;SET CRY0 FLAG - JFCL 4,.+2 ;PASS IF CRY0 IS SET - STOP - -;********** - -;THIS TEST VERIFIES THAT JRST 2,.+(1) WILL SET THE ARITHMETIC FLAG -;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAIN 0. HENCE, JRST 2,.+1(1) -;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE CRY0/1, FLAGS ARE SET BY ADDI; -;THEN THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1. IF CRY1 WAS CLEARED, THE -;TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - -C6300: MOVE [-1] ;PRELOAD AC0 WITH -1,,-1 - ADDI 1 ;SET CRY0/1 FLAGS - SFLAG 0 ;RESET ALL ARITHMETIC FLAGS - JFCL 2,.+2 ;PASS IF CRY1 IS RESET - SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSED - STOP - -;********** - -;THIS TEST VERIFIES THAT JRST 2,.+(1) WILL SET THE ARITHMETIC FLAG -;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAIN 0. HENCE, JRST 2,.+1(1) -;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE CRY0/1, FLAGS ARE SET BY ADD -;THEN THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1. IF AROV WAS CLEARED, THE -;TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - -C6400: MOVSI 400000 ;PRELOAD AC0 WITH -1,,-1 - ADD [-1] ;SET CRY0 AND AROV FLAGS - SFLAG 0 ;RESET ALL ARITHMETIC FLAGS - JFCL 10,.+2 ;PASS IF AROV IS RESET - SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSED - STOP - -;********** - -;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG -;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE AROV FLAG. -;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY AROV. -;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET AROV. AROV IS THEN CHECKED. IF -;AROV IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - -C6500: SFLAG AROV ;SET AROV FLAG - JFCL 10,.+2 ;PASS IF AROV WAS SET - STOP - -;********** -;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG -;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE CRY1 FLAG. -;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY CRY1. -;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET CRY1. CRY1 IS THEN CHECKED. IF -;CRY1 IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - -C6600: SFLAG CRY1 ;SET CRY1 FLAG - JFCL 2,.+2 ;PASS IF CRY1 WAS SET - STOP - -;********** - -;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG -;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE FOV FLAG. -;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY FOV. -;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET FOV. FOV IS THEN CHECKED. IF -;FOV IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - -C6700: SFLAG FOV ;SET FOV FLAG - JFCL 1,.+2 ;PASS IF FOV WAS SET - STOP - -;********** -;THIS TEST VERIFIES THAT JFCL 0, SHOULD NEVER JUMP. -;FIRST, FOV IS SET VIA JRST2, ;THEN JFCL 0, -;IS EXECUTED. IF JFCL 0, DOES NOT SKIP, THIS TEST PASSES - -C7000: SFLAG FOV ;SET FOV FLAG - JFCL ,.+2 ;*JFCL SHOULD NOT JUMP - SKIPA ;PASS IF JFCL DID NOT JUMP - STOP - -;********** - -;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG -;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAINS 0. HENCE, JRST 2,.+1(1) -;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE CRY0, FLAG IS SET BY JRST 2,.+1(1) -;WITH C(AC1)=CRY0. THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1 WITH C(AC1)=0. -;IF CRY0 WAS CLEARED, THE TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - -C7100: SFLAG CRY0 ;SET CRY0 FLAGS - SETZ 1, ;SETUP MASK TO CLEAR ARITHMETIC FLAGS - JRST 2,.+1(1) ;*RESET ARITHMETIC FLAGS - JFCL 4,.+2 ;PASS IF CRY0 FLAG WAS RESET - SKIPA ;SKIP HALT INSTRUCTION IF TEST PSSED - STOP - -;********** -;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG -;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAINS 0. HENCE, JRST 2,.+1(1) -;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE FOV, FLAG IS SET BY JRST 2,.+1(1) -;WITH C(AC1)=FOV. THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1 WITH C(AC1)=0. -;IF FOV WAS CLEARED, THE TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - -C7200: SFLAG FOV ;SET FOV FLAG - SETZ 1, ;SETUP MASK TO CLEAR ARITHMETIC FLAGS, - JRST 2,.+1(1) ;*RESET ARITHMETIC FLAGS - JFCL 1,.+2 ;PASS IF FOV FLAG WAS RESET - SKIPA ;SKIP HALT INSTRUCTION IF TEST PSSED - STOP - -;********** - -;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG -;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAINS 0. HENCE, JRST 2,.+1(1) -;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE ARITHMETIC FLAGS ARE RESET BY -;JFCL 17,.+1. THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1. -;IF ALL THE ARITHMETIC FLAGS WERE CLEARED, -;THE TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY - -C7300: JFCL 17,.+1 ;CLEAR FLAGS - SETZ 1, ;SETUP MASK TO CLEAR ARITMETIC FLAGS - JRST 2,.+1(1) ;*RESET ARITHMETIC FLAGS - JFCL 17,.+2 ;PASS IF ALL FLAGS ARE RESET - SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSED - STOP - -;********** -SUBTTL TEST OF JSP INSTRUCTION - -;********** - -;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS AND PC IN THE AC. -;IN THIS CASE, THE FLAGS ARE RESET; THEN, JSP IS EXECUTED. THE AC IS THEN -;CHECKED FOR ITS CONTENTS NON-ZERO. IF C(AC)=0, IT INDICATES -;THAT NEITHER THE FLAGS NOR THE PC WAS SAVED. HENCE, THIS TEST FAILS. - -C7400: SETZB 1 ;CLEAR AC AND SETUP MASK TO RESET FLAGS - JRST 2,.+1(1) ;RESET FLAGS - JSP .+1 ;*JSP SHOULD STORE FLAGS AND PC IN THE AC - SKIPN ;PASS IF C(AC) IS NON-ZERO - STOP ;IT DID NOT STORE ANY FLAGS OR PC - -;********** - -;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE PC IN THE RIGHT HALF OF THE AC. -;IN THIS CASE, THE AC IS CLEARED, THEN, JSP IS EXECUTED. THE RIGHT HALF OF -;THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO. IF C(AC RIGHT HALF) -;IS NON-ZERO, IT INDICATED THAT THE PC WAS SAVED; AND THIS TEST PASSES. - -C7500: SETZ ;CLEAN AC - JSP .+1 ;*JSP SHOULD STORE THE PC IN THE AC - TRNN -1 ;PASS IF C(AC) IN NON-ZERO - STOP - -;********** -;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. -;FIST, THE AC IS CLEARED; THEN, SOME FLAGS ARE SET AND JSP IS EXECUTED. -;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE -;WHETHER THE FLAGS WERE SAVED. IF C(AC-LEFT) IS NON-ZERO, THIS TEST PASSES - -C7600: SETZM 0 ;CLEAR AC - MOVSI 1,740000 ;SET UP MASK TO SET FLAGS - JRST 2,.+1(1) ;SET SOME ARITHMETIC FLAGS - JSP .+1 ;*JSP SHOULD STORE FLAGS IN THE AC - TLNN -1 ;PASS IF C(AC) IS NON-ZERO - STOP - -;********** - -;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. -;FIRST, THE AC IS CLEARED; THEN, THE AROV FLAG IS SET AND JSP IS EXECUTED. -;THEN, THE AROV FLAG BIT OF -;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE -;WHETHER THE AROV FLAG WAS SAVED. IF THE AROV FLAG BIT OF THE AC IS SET, THIS TEST PASSES - -C7700: SETZM 0 ;CLEAR THE AC - SFLAG AROV ;SET AROV FLAG - JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT - TLNN AROV ;PASS IF AROV WAS SAVED - STOP - -;********** -;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. -;FIRST, THE AC IS CLEARED; THEN, THE CRY0 FLAG IS SET AND JSP IS EXECUTED. -;THEN, THE CRY0 FLAG BIT OF -;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE -;WHETHER THE CRY0 FLAG WAS SAVED. IF THE CRY0 FLAG BIT OF THE AC IS SET, THIS TEST PASSES - -C10000: SETZM 0 ;CLEAR THE AC - SFLAG CRY0 ;SET CRY0 FLAG - JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT - TLNN CRY0 ;PASS IF CRY0 WAS SAVED - STOP - -;********** - -;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. -;FIRST, THE AC IS CLEARED; THEN, THE CRY1 FLAG IS SET AND JSP IS EXECUTED. -;THEN, THE CRY1 FLAG BIT OF -;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE -;WHETHER THE FLAG WAS SAVED. IF THE CRY1 FLAG BIT OF THE AC IS SET, THIS TEST PASSES - -C10100: SETZ ;CLEAR AC - SFLAG CRY1 ;SET CRY1 FLAG - JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT - TLNN CRY1 ;PASS IF AROV WAS SAVED - STOP - -;********** -;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. -;FRIST, THE AC IS CLEARED; THEN, THE FOV FLAG IS SET AND JSP IS EXECUTED. -;THEN, THE FOV FLAG BIT OF THE LEFT HALF OF THE AC IS CHECKED FOR -;ITS CONTENTS NON-ZERO TO DETERMINE WHETHER THE FOV FLAG WAS SAVED. -;IF THE FOV FLAG BIT OF THE AC IS SET, THIS TEST PASSES - -C10200: SETZ ;CLEAR THE AC - SFLAG FOV ;SET FOV FLAG - JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT - TLNN FOV ;PASS IF FOV WAS SAVED - STOP - -;********** - -;THIS TEST VERIFIES THAT JSP WILL STORE ONLY FLAGS THAT EXIST. -;I.E. RESET FLAGS WILL NOT BE SET IN THE AC. ONLY FLAGS THAT ARE -;CLEARABLE BY JRSTF WILL BE CHECKED HERE. FIRST ALL CLEARABLE -;FLAGS ARE RESET BY JRSTF; THEN JSP IS EXECUTED. THE AC IS THEN CHECKED. -;IF ANY CLEARABLE FLAGS ARE SET IN THE AC, THIS TEST FAILS. - -C10300: SFLAG 0 ;CLEAR ALL CLEARABLE FLAGS - JSP .+1 ;*JSP SHOULD NOT STORE CLEARABLE FALGS - TLNE 761777 ;FAIL IF ANY CLEARABLE FLAG IS SET - STOP - -;********** -;THIS TEST VERIFIES THAT JSP ALWAYS JUMPS. -;IN THIS TEST, JSP .+2 IS EXECUTED. IF JSP JUMPS, THE TEST PASSES; -;OTHERWISE, THIS TEST HALTS - -C10400: JSP .+2 ;*JSP SHOULD ALWAYS JUMP - STOP - -;********** -SUBTTL TEST JRST INSTRUCTION - -;********** - -;THIS TEST VERIFIES THAT JRST ALWAYS JUMPS. -;IN THIS TEST, JRST .+2 IS EXECUTED. IF JRST JUMPS, THE TEST PASSES; -;OTHERWISE, THIS TEST HALTS - -C10500: JRST .+2 ;*JRST 0, SHOULD ALWAYS JUMP - STOP - -;********** -SUBTTL TEST OF AOBJX INSTRUCTIONS - -;********** - -;THIS TEST VERIFIES THAT AOBJN ALWAYS ADDS 1 TO BOTH HALVES OF THE AC. -;FIRST, THE AC IS CLEARED; THEN, AOBJN IS EXECUTED AND THE AC IS CHECKED -;FOR 1,,1. IF C(AC)=1,,1, THIS TEST PASSES. - -C11200: SETZ ;CLEAR THE AC - AOBJN .+1 ;*AOBJN SHOULD ADD 1 TO BOTH HALVES OF THE AC - CAME [XWD 1,1] ;PASS IF C(AC)=1,,1 - STOP - -;********** - -;THIS TEST VERIFIES THAT AOBJP ALWAYS ADDS 1 TO BOTH HALVES OF THE AC. -;FIRST, THE AC IS CLEARED; THEN AOBJP IS EXECUTED AND THE AC IS CHECKED -;FOR 1,,1. IF C(AC)=1,,1, THIS TEST PASSES. - -C11300: MOVE [XWD 377777,377777] ;PRELOAD AC WITH 377777,,377777 - AOBJP .+1 ;*AOBJP SHOULD ADD, TO BOTH HALVES OF THE AC - CAME [XWD 400000,400000] ;PASS IF C(AC)=400000,400000 - STOP - -;********** -;THIS TEST VERIFIES THAT AOBJN WILL NOT JUMP WHEN C(AC) IS POSITIVE -;FIRST, THE AC IS CLEARED; AND AOBJN IS EXECUTED. AOBJN SHOULD NOT JUMP -;BECAUSE C(AC) IS POSITIVE. IF AOBJN JUMPS, THIS TEST FAILS - -C11400: SETZ ;CLEAR THE AC - AOBJN .+2 ;*AOBJN SHOULD NOT JUMP WHEN C(AC) IS POSITIVE - SKIPA ;PASS IF AOBJN DOES NOT JUMP - STOP - -;********** - -;THIS TEST VERIFIES THAT AOBJP WILL JUMP WHEN C(AC) IS POSITIVE -;FIRST, THE AC IS CLEARED; AND AOBJP IS EXECUTED. AOBJP SHOULD JUMP -;BECAUSE C(AC) IS POSITIVE. IF AOBJP DOES NOT JUMP, THIS TEST FAILS - -C11500: SETZ ;CLEAR THE AC - AOBJP .+2 ;*AOBJP SHOULD JUMP BECAUSE C(AC) IS POSITIVE - STOP - -;********** -;THIS TEST VERIFIES THAT AOBJN WILL JUMP WHEN C(AC) IS NEGATIVE -;FIRST, THE AC IS PRELOADED WITH 400000,,0; AND AOBJN IS EXECUTED. AOBJN SHOULD JUMP -;BECAUSE C(AC) IS NEGATIVE. IF AOBJN DOES NOT JUMP, THIS TEST FAILS - -C11600: MOVE [XWD 400000,400000] ;PRELOAD AC WITH 400000,,400000 - AOBJN .+2 ;*AOBJN SHOULD JUMP BECAUSE C(AC) IS NEGATIVE - STOP - -;********** - -;THIS TEST VERIFIES THAT AOBJP WILL NOT JUMP WHEN C(AC) IS NEGATIVE. FIRST, -;THE AC IS PRELOADED WITH 400000,,0; AND AOBJP IS EXECUTED. AOBJP SHOULD NOT JUMP -;BECAUSE C(AC) IS NEGATIVE. IF AOBJP JUMPS, THIS TEST FAILS - -C11700: MOVE [XWD 400000,400000] ;PRELOAD AC WITH 400000,,400000 - AOBJP .+2 ;*AOBJP SHOULD NOT JUMP BECAUSE C(AC) IS NEGATIVE - SKIPA ;PASS IF AOBJP DOES NOT JUMP - STOP - -;********** -;THIS TEST VERIFIES THAT THERE IS A CARRY FROM BIT 18 TO BIT 17 OF THE AC ON AOBJN. -;THE AC IS PRELOADED WITH -1,,-1; THEN AOBJN IS EXECUTED. AOBJN SHOULD ADD ONE -;TO BOTH HALVES OF THE AC, GENERATING A CARRY FROM BIT 18 TO BIT 17. IF A -;CARRY WAS GENERATED, THIS TEST PASSES - -C12000: SETO ;PRELOAD AC WITH -1,, -1 - AOBJN .+1 ;*AOBJN SHOULD GENERATE A CARRY FROM BIT 18 TO 17 - CAME [1,,0] ;PASS IF C(AC)=1,,0 (CARRY WAS GENERATED) - STOP - -;********** -SUBTTL TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX - -;THIS TEST VERIFIES THAT MOVNI SETS CRY0 AND CRY1 FLAGS ONLY WHEN THE DATA IS 0. -;FIRST, THE ARITHMETIC FLAGS ARE RESET; THEN, MOVNI IS EXECUTED WITH DATA OF ZEROS. -;THE ARITHMETIC FLAGS ARE CHECKED. -; CRY0/1 ARE SET AND AROV AND FOV RESET, THIS TEST PASSES. - -C12100: JFCL 17,.+1 ;CLEAR FLAGS - MOVNI 0 ;* MOVNI 0 SHOULD SET CRY0/1 - JCRY0 .+2 ;PASS IF CRY0 IS SET - STOP - JCRY1 .+2 ;PASS IF CRY1 IS SET - STOP - JOV .+2 ;PASS IF AROV RESET - SKIPA - STOP - JFOV .+2 ;PASS IF FOV RESET - SKIPA - STOP - -;********** - -;THIS TEST VERIFIES THAT MOVN WILL NOT SET ARITHMETIC FLAGS WHEN THE DATA IS -1,,-1. -;FIRST, THE FLAGS ARE RESET; THEN, MOVN [-1,,-1] IS EXECUTED. -;THE ARITHMETIC FLAGS ARE CHECKED. -;IF ANY ARITHMETIC FLAG IS SET, THIS TEST FAILS. - -C12200: JFCL 17,.+1 ;CLEAR FLAGS - MOVN [-1] ;*MOVN [-1,,-1] SHOULD SET ARITHMETIC FLAGS - JFCL 17,.+2 ;FAIL IF AN ARITHMETIC FLAG IS SET - SKIPA ;SKIP HALT INSTRUCTION IF MOVN PASSED. - STOP - -;********** -;THIS TEST VERIFIES THAT MOVN WILL SET THE AROV AND -;CRY1 FLAGS ONLY WHEN THE DATA IS 400000,,0 -;FIRST, THE FLAGS ARE RESET; THEN, MOVN [400000,,0] IS EXECUTED. -;THE ARITHMETIC FLAGS ARE CHECKED. -;IF AROV AND CRY1 ARE SET AND CRY0 AND FOV ARE RESET, THIS TEST PASSES. - -C12300: JFCL 17,.+1 ;CLEAR ARITHMETIC FLAGS - MOVN [XWD 400000,0] ;*MOVN [400000,,0] SHOULD SET AROV AND CRY1 ONLY - JOV .+2 ;PASS IF AROV IS SET - STOP - JCRY1 .+2 ;PASS IF CRY0 IS SET - STOP - JCRY0 .+2 ;PASS IF CRY0 IS RESET - SKIPA - STOP - JFOV .+2 ;PASS IF FOV IS RESET - SKIPA - STOP - -;********** - -;THIS TEST VERIFIES THAT MOVM WILL SET THE AROV AND -;CRY1 FLAGS ONLY WHEN THE DATA IS 400000,,0 -;FIRST, THE FLAGS ARE RESET; THEN, MOVM [400000,,0] IS EXECUTED. -;THE ARITHMETIC FLAGS ARE CHECKED. -;IF AROV AND CRY1 ARE SET AND CRY0 AND FOV ARE RESET, THIS TEST PASSES. - -C12301: JFCL 17,.+1 ;CLEAR ARITHMETIC FLAGS - MOVM [XWD 400000,0] ;*MOVM [400000,,0] SHOULD SET AROV AND CRY1 ONLY - JOV .+2 ;PASS IF AROV IS SET - STOP - JCRY1 .+2 ;PASS IF CRY0 IS SET - STOP - JCRY0 .+2 ;PASS IF CRY0 IS RESET - SKIPA - STOP - JFOV .+2 ;PASS IF FOV IS RESET - SKIPA - STOP - -;********** -SUBTTL TEST OF AOS AND SOS INSTRUCTIONS - -;********** - -;THIS TEST VERIFIES THAT AOS ADDS 1 TO MEMORY AND DOES NOT SKIP. -;FIRST, E IS CLEARED; THEN, AOS IS EXECUTED. NEXT E IS CHECKED FOR 1. -;IF C(E) IS NOT 1 OR AOS SKIPPED, THIS TEST FAILS - -C12600: SETZ ;CLEAR E - AOS ;*AOS SHOULD ADD 1 TO C(E) AND NOT SKIP - CAIE 1 ;PASS IF C(E)=0,,1 ANDAOS DID NOT SKIP - STOP - -;********** - -;THIS TEST VERIFIES THAT AOS ADDS 1 TO MEMORY AND DOES NOT SKIP. -;FIRST, E IS PRELOADED WITH -1,,-1; THEN, AOS IS EXECUTED. NEXT E IS CHECKED FOR 0. -;IF C(E) IS NOT 0 OR AOS SKIPPED, THIS TEST FAILS - -C12700: SETO ;PRELOAD E WITH -1,,-1 - AOS ;*AOS SHOULD ADD 1 TO C(E) AND NOT SKIP - CAIE ;PASS IF C(E)=0,,0 AND AOS DID NOT SKIP - STOP - -;********** -;THIS TEST VERIFIES THAT SOS SUBTRACTS 1 FROM MEMORY AND DOES NOT SKIP. -;FIRST, E IS CLEARED; THEN, SOS IS EXECUTED. NEXT E IS CHECKED FOR -1,,-1. -;IF C(E) IS NOT -1,,-1 OR SOS SKIPPED, THIS TEST FAILS - -C13100: SETZ ;CLEAR E - SOS ;*SOS SHOULD SUBTRACT 1 FROM C(E) AND NOT SKIP - CAME [-1] ;PASS IF C(E)=-1,,-1 AND SOS DID NOT SKIP - STOP - -;********** - -;THIS TEST VERIFIES THAT SOS SUBTRACTS 1 FROM MEMORY AND DOES NOT SKIP. -;FIRST, E IS PRELOADED WITH A; THEN, SOS IS EXECUTED. NEXT E IS CHECKED FOR 0. -;IF C(E) IS NOT 0 OR SOS SKIPPED, THIS TEST FAILS - -C13200: MOVEI 1 ;PRELOAD E WITH 1 - SOS ;*SOS SHOULD SUBTRACT 1 FROM C(E) AND DID NOT SKIP - CAIE 0 ;PASS IF C(E)=0 AND SOS DID NOT SKIP - STOP - -;********** -;THIS TEST VERIFIES THAT SOS SETS CRY0/1 FLAGS IF C(E) IS A NON-ZERO NUMBER OTHER -;THAN 400000,,0. IN THIS CASE, C(E)=1. FIRST THE FLAGS ARE RESET; THEN -;SOS IS EXECUTED. THE FLAGS ARE CHECKED. IF CRY0 AND CRY1 ARE SET -;AND AROV AND FOV ARE RESET, THIS TEST PASSES. - -C13300: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS - MOVEI 1 ;PRELOAD E WITH 1 - SOS ;*SOS SHOULD SET CRY0/1 - JCRY0 .+2 ;PASS IF CRY0 IS SET - STOP - JCRY1 .+2 ;PASS IF CRY1 IS SET - STOP - JOV .+2 ;PASS IF AROV IS RESET - SKIPA - STOP - JFOV .+2 ;PASS IF FOV IS RESET - SKIPA - STOP - -;********** - -;THIS TEST VERIFIES THAT AOS SETS CRY0 AND CRY1 FLAG IF C(E) IS -1,,-1 -;FIRST THE FLAGS ARE RESET; THEN -;AOS IS EXECUTED. THE FLAGS ARE CHECKED. -;IF CRY0 AND CRY1 ARE SET AND AROV AND FOV ARE RESET, THIS TEST PASSES. - -C13400: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS - SETO ;PRELOAD E WITH 1 - AOS ;*AOS SHOULD SET CRY0 AND CRY1 - JCRY0 .+2 ;PASS IF CRY0 IS SET - STOP - JCRY1 .+2 ;PASS IF CRY1 IS SET - STOP - JOV .+2 ;PASS IF AROV IS RESET - SKIPA - STOP - JFOV .+2 ;PASS IF FOV IS RESET - SKIPA - STOP - -;********** -SUBTTL TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS - -;********** - -;THIS TEST VERIFIES THAT JFCL 1, WILL ALWAYS CLEAR FOV FLAG. -;FIRST, FOV IS SET VIA JRST 2, ;THEN JFCL 1,.+1 IS EXECUTED TO CLEAR FOV. -;IF FOV WAS CLEARED, THIS TEST PASSES. - -C13600: SFLAG FOV ;SET FOV FLAG - JFCL 1,.+1 ;*JFCL SHOULD RESET FOV - JFCL 1,.+2 ;PASS IF FOV IS RESET - SKIPA ;SKIP HALT IF JFCL 1,.+1 PASSED - STOP - -;********** - -;THIS TEST VERIFIES THAT JRST 2, CAN SET FXU AND JSP CAN SAVE FXU IN THE AC. -;FIRST, FXU IS SET VIA JRST 2, ;THEN, JSP IS EXECUTED. THE AC IS CHECKED -;FOR FXU. IF FXU IS SET, THIS TEST PASSES; OTHERWISE, EITHER JRST 2, OR JSP FAILED. - -C13700: SFLAG FXU ;*SET FXU FLAG - JSP .+1 ;*STORE FXU FLAG IN AC - TLNN FXU ;PASS IF FXU IS SET IN THE AC - STOP - -;********** -;THIS TEST VERIFIES THAT JRST 2, CAN RESET FXU AND JSP CAN SAVE FXU IN THE AC. -;FIRST, FXU IS SET; THEN, FXU IS RESET VIA JRST 2,. NEXT, JSP IS EXECUTED; AND -;THE AC IS CHECKED FOR FXU RESET. IF FXU IS RESET IN THE AC, THIS TEST PASSES; -;OTHERWISE, JRST 2, FAILED TO CLEAR FXU OR JSP STORED FXU INCORECTLY. - -C14000: SFLAG FXU ;SET FXU FLAG - SFLAG ;*RESET FXU FLAG - JSP .+1 ;*STORE FXU FLAG IN THE AC - TLNE FXU ;PASS IF FXU IS RESET IN THE AC - STOP - -;********** - -;THIS TEST VERIFIES THAT JRST 2, CAN SET DCK AND JSP CAN SAVE DCK IN THE AC. -;FIRST, DCK IS SET VIA JRST 2, ;THEN JSP IS EXECUTED. THE AC IS CHECKED -;FOR DCK. IF DCK IS SET, THIS TEST PASSES, OTHERWISE JRST 2, OR JSP FAILED. - -C14100: SFLAG DCK ;*SET DCK FLAG - JSP .+1 ;*STORE FXU FLAG IN AC - TLNN DCK ;PASS IF FXU IS SET IN THE AC - STOP - -;********** -;THIS TEST VERIFIES THAT JRST 2, CAN RESET DCK AND JSP CAN SAVE DCK IN THE AC. -;FIRST, FXU IS SET; THEN, DCK IS RESET VIA JRST 2,. NEXT, JSP IS EXPECTED; AND -;THE AC IS CHECKED FOR DCK RESET. IF DCK IS RESET IN THE AC, THIS TEST PASSES; -;OTHERWISE, JRST 2, FAILED TO CLEAR DCK OR JSP STORED DCK INCORRECTLY. - -C14200: SFLAG DCK ;SET DCK FLAG - SFLAG ;*RESET DCK FLAG - JSP .+1 ;*STORE DCK FLAG IN THE AC - TLNE DCK ;PASS IF DCK IS RESET IN THE AC - STOP - -;********** -SUBTTL TEST OF JUMPX INSTRUCTIONS - -;********** - -;THIS TEST VERIFIES THAT JUMPL IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF -;C(AC) IS NEGATIVE. IN THIS TEST, THE AC CONTAINS -1,,-1. HENCE, -;JUMPL SHOULD JUMP. IF JUMPL JUMPS, THIS TEST PASSES. - -C14500: SETO ;PRELOAD AC WITH -1,,-1 - JUMPL .+2 ;*JUMPL SHOULD JUMP BECAUSE C(AC) IS NEGATIVE - STOP - -;********** - -;THIS TEST VERIFIES THAT JUMPL IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF -;C(AC) IS NEGATIVE. IN THIS TEST, THE AC CONTAINS 0. HENCE, -;JUMPL SHOULD NOT JUMP. IF JUMPL DOES NOT JUMP, THIS TEST PASSES. - -C14600: SETZ ;PRELOAD AC WITH 0 - JUMPL .+2 ;*JUMPL SHOULD NOT JUMP - SKIPA ;PASS IF JUMPL DOES NOT JUMP - STOP - -;********** - -;THIS TEST VERIFIES THAT JUMPE IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF -;C(AC)=0. IN THIS TEST, THE AC CONTAINS 0. HENCE, -;JUMPE SHOULD JUMP. IF JUMPE JUMPS, THIS TEST PASSES. - -C14700: SETZ ;PRELOAD AC WITH 0 - JUMPE .+2 ;*JUMPE SHOULD JUMP - STOP - -;********** -;THIS TEST VERIFIES THAT JUMPN IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF -;C(AC) IS NON-ZERO. IN THIS TEST, THE AC CONTAINS 1. HENCE, -;JUMPN SHOULD JUMP. IF JUMPN JUMPS, THIS TEST PASSES. - -C15000: MOVEI 1 ;PRELOAD AC WITH 1 - JUMPN .+2 ;*JUMPN SHOULD JUMP - STOP - -;********** - -;THIS TEST VERIFIES THAT JUMPE IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF -;C(AC)=0. IN THIS TEST, THE AC CONTAINS 2. HENCE, -;JUMPL SHOULD NOT JUMP. IF JUMPE DOES NOT JUMP, THIS TEST PASSES. - -C15100: MOVEI 2 ;PRELOAD AC WITH 2 - JUMPE .+2 ;*JUMPE SHOULD NOT JUMP - SKIPA ;PASS IF JUMPE DID NOT JUMP - STOP - -;********** - -;THIS TEST VERIFIES THAT JUMPN IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF -;C(AC) IS NON-ZERO. IN THIS TEST, THE AC CONTAINS 0. HENCE, -;JUMPN SHOULD NOT JUMP. IF JUMPN DOES NOT JUMP, THIS TEST PASSES. - -C15200: SETZ ;PRELOAD AC WITH 0 - JUMPN .+2 ;*JUMPN SHOULD NOT JUMP - SKIPA ;PASS IF JUMPN DID NOT JUMP - STOP - -;********** -;THIS TEST VERIFIES THAT JUMPG IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF -;C(AC) IS GREATER THAN 0. IN THIS TEST, THE AC CONTAINS 1. HENCE, -;JUMPG SHOULD JUMP. IF JUMPG JUMPS, THIS TEST PASSES. - -C15300: MOVEI 1 ;PRELOAD AC WITH 1 - JUMPG .+2 ;*JUMPG SHOULD JUMP - STOP - -;********** - -;THIS TEST VERIFIES THAT JUMPG IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF -;C(AC) IS GREATER THAN 0. IN THIS TEST, THE AC CONTAINS -1,,0. HENCE, -;JUMPG SHOULD NOT JUMP. IF JUMPG DOES NOT JUMP, THIS TEST PASSES. - -C15400: MOVSI -1 ;PRELOAD AC WITH -1,,0 - JUMPG .+2 ;*JUMPG SHOULD NOT JUMP - SKIPA ;PASS IF JUMPG DID NOT JUMP - STOP - -;********** -SUBTTL TEST OF AOJ AND SOJ INSTRUCTIONS - -;********** - -;THIS TEST VERIFIES THAT AOJ ADDS 1 TO THE AC AND DOES NOT JUMP. -;FIRST, THE AC IS PRELOADED WITH 0; THEN, AOJ IS EXECUTED. NEXT, THE -;AC IS CHECKED FOR 1. IF C(AC) IS NOT 1 OR AOJ SKIPPED, THIS TEST FAILS. - -C15500: SETZ ;PRELOAD AC WITH 0 - AOJ .+2 ;*AOJ SHOULD ADD 1 TO THE AC AND NOT JUMP - CAIE 1 ;PASS IF C(AC)=1 AND AOJ DID NOT JUMP - STOP - -;********** - -;THIS TEST VERIFIES THAT AOJ ADDS 1 TO THE AC AND DOES NOT JUMP. -;FIRST, THE AC IS PRELOADED WITH -1,,-1; THEN, AOJ IS EXECUTED. NEXT, THE -;AC IS CHECKED FOR 0. IF C(AC) IS NOT 0 OR AOJ SKIPPED, THIS TEST FAILS. - -C15600: SETO ;PRELOAD AC WITH 0 - AOJ .+2 ;*AOJ SHOULD ADD 1 TO THE AC AND NOT JUMP - CAIE 0 ;PASS IF C(AC)=1 AND AOJ DID NOT JUMP - STOP - -;********** - -;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP. -;FIRST, THE AC IS PRELOADED WITH 0; THEN, SOJ IS EXECUTED. NEXT, THE -;AC IS CHECKED FOR -1,,-1. IF C(AC) IS NOT -1,,-1 OR SOJ SKIPPED, THIS TEST FAILS. - -C15700: SETZ ;PRELOAD AC WITH 0 - SOJ .+2 ;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP - CAME [-1] ;PASS IF C(AC)=-1,,-1 AND SOJ DID NOT JUMP - STOP - -;********** -;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP. -;FIRST, THE AC IS PRELOADED WITH -1,,-1; THEN, SOJ IS EXECUTED. NEXT, THE -;AC IS CHECKED FOR -1,,-2. IF C(AC) IS NOT -1,,-2 OR SOJ SKIPPED, THIS TEST FAILS. - -C16000: SETO ;PRELOAD AC WITH -1,,-1 - SOJ .+2 ;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP - CAME [-2] ;PASS IF C(AC)=-1,,-2 AND SOJ DID NOT JUMP - STOP - -;********** - -;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP. -;FIRST, THE AC IS PRELOADED WITH 0,,1; THEN, SOJ IS EXECUTED. NEXT, THE -;AC IS CHECKED FOR 0. IF C(AC) IS NOT 0 OR SOJ SKIPPED, THIS TEST FAILS. - -C16100: MOVEI 1 ;PRELOAD AC WITH 1 - SOJ .+2 ;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP - CAIE 0 ;PASS IF C(AC)=0 AND SOJ DID NOT JUMP - STOP - -;********** -;THIS TEST VERIFIES THAT SOJ AC, FOLLOWED BY AOJ AC, HAS NO NET EFFECT ON C(AC). -;IN THIS CASE, THE AC IS PRELOADED WITH 0; THEN, SOJ AC, FOLLOWED BY AOJ. -;AC, IS REPEATED 7 TIMES. THE AC IS THEN CHECKED FOR ITS ORIGINAL CONTENTS, 0. -;IF C(AC)=0, THIS TEST PASSES; OTHERWISE AOJ OR SOJ FAILED. - -C16200: AC=17 - SETZ AC, ;PRELOAD AC WITH 0 - REPEAT ^D10,< - SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC - AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC> - SKIPE AC ;PASS IF C(AC) IS UNCHANGED. I.E. C(AC)=0 - STOP - -;********** -;THIS TEST VERIFIES THAT SOJ SETS CRY0/1 FLAGS IF C(E) IS A NON-ZERO NUMBER OTHER -;THAN 400000,,0. IN THIS CASE, C(E)=1. FIRST THE FLAGS ARE RESET; THEN -;SOJ IS EXECUTED. THE FLAGS ARE CHECKED. IF CRY0 AND CRY1 ARE SET -;AND AROV AND FOV ARE RESET, THIS TEST PASSES. - -C16201: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS - MOVEI 1 ;PRELOAD E WITH 1 - SOJ ;*SOJ SHOULD SET CRY0/1 - JCRY0 .+2 ;PASS IF CRY0 IS SET - STOP - JCRY1 .+2 ;PASS IF CRY1 IS SET - STOP - JOV .+2 ;PASS IF AROV IS RESET - SKIPA - STOP - JFOV .+2 ;PASS IF FOV IS RESET - SKIPA - STOP - -;********** - -;THIS TEST VERIFIES THAT AOJ SETS CRY0 AND CRY1 FLAG IF C(E) IS -1,,-1 -;FIRST THE FLAGS ARE RESET; THEN -;AOJ IS EXECUTED. THE FLAGS ARE CHECKED. -;IF CRY0 AND CRY1 ARE SET AND AROV AND FOV ARE RESET, THIS TEST PASSES. - -C16202: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS - SETO ;PRELOAD E WITH 1 - AOJ ;*AOJ SHOULD SET CRY0 AND CRY1 - JCRY0 .+2 ;PASS IF CRY0 IS SET - STOP - JCRY1 .+2 ;PASS IF CRY1 IS SET - STOP - JOV .+2 ;PASS IF AROV IS RESET - SKIPA - STOP - JFOV .+2 ;PASS IF FOV IS RESET - SKIPA - STOP - -;********** -SUBTTL TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS - -;********** - -;THIS TEST VERIFIES THAT ADDM DOES NOT MODIFY C(AC) -;BOTH AC AND E ARE PRELOADED WITH -1,,-1. THEN ADDM IS EXECUTED. -;THIS TEST PASSES IF C(AC) ARE UNCHANGED - -C16400: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 - ADDM 1 ;*ADDM SHOULD NOT AFFECT C(AC) - CAME [-1] ;PASS IF C(AC) IS UNMODIFIED BY ADDM - STOP - -;********** - -;THIS TEST VERIFIES THAT HRREM DOES NOT MODIFY C(AC) -;THE AC IS PRELOADED WITH 0,,-1. THEN HRRM IS EXECUTED. -;THIS TEST PASSES IF C(AC) ARE UNCHANGED - -C16500: MOVEI -1 ;PRELOAD AC WITH 0,,-1 - HRREM 1 ;*HRRM SHOULD NOT AFFECT C(AC) - CAIE -1 ;PASS IF C(AC) IS UNMODIFIED BY HRRM - STOP - -;********** -;THIS TEST VERIFIES THAT MOVSM DOES NOT MODIFY C(AC) -;THE AC IS PRELOADED WITH 0,,-1. THEN MOVSM IS EXECUTED. -;THIS TEST PASSES IF C(AC) ARE UNCHANGED - -C16600: MOVEI -1 ;PRELOAD AC WITH 0,,-1 - MOVSM 1 ;*MOVSM SHOULD NOT AFFECT C(AC) - CAIE -1 ;PASS IF C(AC) IS UNMODIFIED BY MOVSM - STOP - -;********** - -;THIS TEST VERIFIES THAT XORM DOES NOT MODIFY C(AC) -;BOTH AC AND E ARE PRELOADED WITH -1,,-1. THEN XORM IS EXECUTED. -;THIS TEST PASSES IF C(AC) ARE UNCHANGED - -C16700: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 - XORM 1 ;*XORM SHOULD NOT AFFECT C(AC) - CAME [-1] ;PASS IF C(AC) IS UNMODIFIED BY XORM - STOP - -;********** -;THIS TEST VERIFIES THAT ADDB ADDS C(AC) TO C(E) AND PLACES THE -;RESULT IN BOTH AC AND E. IN THIS TEST, BOTH AC AND E ARE PRELOADED -;WITH -1,,-1, THEN, ADDB IS EXECUTED. C(AC) IS THEN COMPARED TO C(E); -;AND C(AC) IS THEN COMPARED TO -2. IF BOTH OF THESE COMPARISONS SUCCEED, THIS -;TEST PASSES; OTHERWISE, ADDB FAILED - -C17000: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 - ADDB 1 ;*ADDB SHOULD ADD C(AC) TO C(E) AND PLACE RESULT - ;INTO BOTH AC AND E - CAME 1 ;PASS IF C(AC)=C(E) - STOP - CAME [-2] ;PASS IF C(AC)=-2 - STOP - -;********** - -;THIS TEST VERIFIES THAT ADDM ADDS C(AC) TO C(E) AND PLACES THE RESULT IN E -;IN THIS CASE, AC, E ARE BOTH PRELOADED WITH -1; THEN, ADDM IS EXECUTED. -;E IS THEN CHECKED FOR -2. IF C(E)=-2, THIS TEST PASSES; OTHERWISE, ADDM FAILED - -C17100: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 - ADDM 1 ;*ADDM SHOULD ADD C(AC) TO C(E) - CAME 1,[-2] ;PASS IF C(E)=-2 - STOP - -;********** -;THIS TEST VERIFIES THAT HLLOS PLACES ONES ON THE RIGHT HALF OF E -;BUT DOES NOT AFFECT THE LEFT HALF OF E. IN THIS CASE, -;E IS PRELOADED WITH 0; THE, HLLOS IS EXECUTED. THE RESULT -;IN E SHOULD BE 0,,-1. IF C(E)=0,,-1, THIS TEST PASSES - -C17200: SETZM 1 ;PRELOAD E WITH 0 - HLLOS 1 ;*HLLOS SHOULD PLACE 0,,-1 INTO E - CAIE 1,-1 ;PASS IF C(E)=0,,-1 - STOP - -;********** - -;THIS TEST VERIFIES THAT MOVSS SWAPS BOTHS HALVES OF E AND -;PLACES THE RESULT IN E. IN THIS CASE, E IS PRELOADED WITH -;-1,,0; THEN, MOVSS IS EXECUTED. THE RESULT IN E SHOULD BE 0,,-1. -;IF C(E)=0,,-1, THIS TEST PASSES - -C17300: MOVSI 1,-1 ;PRELOAD E WITH -1,,0 - MOVSS 1 ;*MOVSS SHOULD PLACE 0,,-1 INTO E - CAIE 1,-1 ;PASS IF C(E)=0,,-1 - STOP - -;********** -;THIS TEST VERIFIES THAT AOS ADDS ONE TO MEMORY BUT DOES NOT SKIP -;FIRST, E IS PRELOADED WITH -1,-1; THEN, AOS IS EXECUTED. NEXT, E IS CHECKED FOR 0. -;IF C(E) IS NOT 0 OR AOS SKIPPED, THIS TEST FAILS - -C17400: SETOB 1 ;PRELOAD E WITH -1,,-1 - AOS 1 ;*AOS SHOULD ADD TO C(E) AND NOT SKIP - CAIE 1,0 ;PASS IF C(E)=0,,0 AND AOS DID NOT SKIP - STOP - -;********** - -;THIS TEST VERIFIES THAT HRLM PLACES C(AC-RIGHT) INTO E-LEFT AND DOES -;NOT MODIFY E-RIGHT. IN THIS CASE, AC IS PRELOADED WITH 0 AND E IS PRELOADED -;WITH -1,,-1. THEN, HRLM IS EXECUTED. E IS THEN CHECKED FOR 0,,-1. IF -;C(E)=0,,-1, THIS TEST PASSES - -C17500: SETZ ;PRELOAD AC WITH 0 - SETO 1, ;PRELOAD E WITH -1,,-1 - HRLM 1 ;*HRLM SHOULD PLACE 0,,-1 INTO E - CAIE 1,-1 ;PASS IF C(E)=0,,-1 - STOP - -;********** -;THIS TEST VERIFIES THAT HRRS DOES NOT MODIFY E -;E IS PRELOADED WITH 0 AND AC IS PRELOADED WITH -1,,-1. -;HRRS IS EXECUTED; THEN E IS CHECKED. IF C(E) DOES -;NOT CHANGE, THIS TEST PASSES - -C17600: SETO ;PRELOAD AC WITH -1,,-1 - SETZ 1, ;PRELOAD E WITH 0,,0 - HRRS 1 ;*HRRS SHOULD PLACE 0,,0 INTO E - SKIPE 1 - STOP - -;********** - -;THIS TEST VERIFIES THAT HRRZM PLACES C(AC-RIGHT) INTO E-RIGHT AND PLACES -;ZEROS INTO E-LEFT. IN THIS CASE, AC=E=AC1 AND C(AC)=C(E)=-1,,0. HRRZM -;IS EXECUTED AND AC1 IS CHECKED FOR 0. IF AC1=0, THIS TEST PASSES. - -C17700: SETO ;PRELOAD AC0 WITH -1,,-1 - MOVSI 1,-1 ;PRELOAD AC1 WITH -1,,0 - HRRZM 1,1 ;*HRRZM SHOULD PLACE 0 INTO AC1 - SKIPE 1 ;PASS IF C(AC1)=0 - STOP - -;********** -;THIS TEST VERIFIES THAT JFCL 17,.+1 NEVER JUMPS AND DOES NOT MODIFY C(AC0). -;FIRST, AC0 IS PRELOADED; THEN, JFCL IS EXECUTED. IF AC0 IS MODIFIED -;OR JFCL SKIPS, THIS TEST FAILS - -C20000: SETZ ;CLEAR AC0 - JFCL 17,.+1 ;*JFCL SHOULD NOT JUMP OR MODIFY C(AC0). - SKIPE ;PASS IF C(AC0)=0 AND JFCL DID NOT JUMP - STOP - -;********** - -;THIS TEST VERIFIES THAT XORM PERFORMS THE LOGICAL EXCLUSIVE OR FUNCTION -;BETWEEN C(AC) AND C(E) AND PLACES THE RESULT INTO E -;IN THIS CASE, AC AND E ARE PRELOADED WITH -1,,-1; THEN, XORM IS -;EXECUTED. IF THE RESULT IN E IS 0, THE TEST PASSES - -C20100: SETOB 1 ;PRELOAD AC,E WITH -1,,-1 - XORM 1 ;*XORM SHOULD PLACE 0 INTO E - CAIE 1,0 ;PASS IF C(E)=0 - STOP - -;********** -;THIS TEST VERIFIES THAT SETZB PLACES ZEROS INTO BOTH AC AND E. -;AFTER SETZB IS EXECUTED, BOTH AC AND E ARE CHECKED -;FOR 0. IF EITHER AC OR E CONTAINS ANY ONES, THIS TEST FAILS - -C20200: SETZB 1 ;*SETZB SHOULD PLACE ZEROES IN BOTH AC AND E - CAMN [0] ;FAIL IF C(AC) IS NON-ZERO - CAME 1 ;FAIL IF C(E) IS NON-ZERO - STOP - -;********** - -;THIS TEST VERIFIES THAT SETAB PLACES C(AC) INTO BOTH AC AND E. -;FIRST, AC IS PRELOADED WITH -1,,-1 AND E IS PRELOADED WITH 0; -;THEN, SETAB IS EXECUTED. BOTH AC AND E ARE CHECKED FOR -1,,-1 -;IF EITHER AC OR E CONTAIN ANY ZEROS, THIS TEST FAILS. - -C20300: SETZ 1, ;PRELOAD E WITH 0 - SETO ;PRELOAD AC WITH -1,,-1 - SETAB 1 ;*SETAB SHOULD PLACE -1,,-1 INTO BOTH AC AND E - CAMN [-1] ;FAIL IF C(AC) IS NOT -1,-1 - CAME 1 ;FAIL IF C(E) IS NOT -1,,-1 - STOP - -;********** -SUBTTL XCT INSTRUCTION - BASIC TESTS - -;********** - -;THIS TEST VERIFIES THAT XCT WILL EXECUTE THE INSTRUCTION SPECIFIED BY C(E) -;IN THIS CASE, C(E) SPECIFIES A MOVEI INSTRUCTION -;AFTER EXECUTING MOVEI, CONTROL SHOULD RETURN TO -;THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING XCT. -;THIS TEST PASSES IF CONTROL RETURNS TO THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING XCT - -C20400: SETZB 1 ;CLEAR AC0 AND AC1 - XCT [MOVEI 1,.+2] ;*XCT SHOULD RETURN CONTROL TO NEXT INSTRUCTION - SKIPA - STOP - -;********** - -;THIS TEST VERIFIES THAT XCT WILL EXECUTE THE INSTRUCTION SPECIFIED BY C(E) -;IN THIS CASE, C(E) SPECIFIES A MOVEI INSTRUCTION. -;AFTER EXECUTING MOVEI, THE AC SPECIFIED BY MOVEI IS CHECKED FOR -;0,,1 (THE EXPECTED RESULT). IF C(AC)=0,,1, THIS TEST PASSES - -C20500: SETZB 1 ;CLEAR AC - XCT [MOVEI 1,1] ;*XCT OF MOVEI SHOULD PLACE 1 IN THE AC - CAIE 1,1 ;PASS IF C(AC)=1 - STOP - -;********** -;THIS TEST VERIFIES THAT A NEST OF XCT INSTRUCTIONS WILL EXECUTE -;THE INSTRUCTION SPECIFIED BY THE MOST NESTED XCT AND RETURN CONTROL TO -;THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING THE FIRST XCT. -;IN THIS CASE, THE EXECUTED INSTRUCTION IS MOVEI. AFTER EXECUTING THE MOVEI, -;C(AC) IS CHECKED FOR 0,,-1 (THE EXPECTED RESULT). IF C(AC)=0,,-1, THIS TEST PASSES - -C20600: SETZB 1 ;CLEAR AC - XCT [XCT[XCT[XCT[XCT[MOVEI 1,-1]]]]] ;*NESTED XCT OF MOVEI - ;SHOULD PLACE 0,,-1 INTO AC - CAIE 1,-1 ;PASS IF C(AC)=0,,-1 - STOP - -;********** - -;THIS TEST VERIFIES THAT XCT WILL NOT MODIFY AN AC WHICH IS NOT SPECIFIED BY THE -;EXECUTED INSTRUCTION. IN THIS CASE, AC0 IS CLEARED AND THEN CHECKED FOR ZERO AFTER -;THE XCT INSTRUCTION IS EXECUTED. AC0 SHOULD NOT BE MODIFIED. - -C20700: SETZB 1 ;CLEAR AC0,AC1 - XCT [MOVE 1,[-1]] ;*XCT SHOULD NOT MODIFY AC0 - SKIPE ;PASS IF AC0 WAS NOT MODIFIED - STOP - -;********** -;THIS TEST VERIFIES THAT XCT OF SKIPA SHOULD RETURN CONTROL TO THE -;SECOND SEQUENTIAL INSTRUCTION FOLLOWING XCT - -C21000: XCT [SKIPA] ;XCT OF SKIPA SHOULD RETURN CONTROL TO .+2 - STOP - -;********** -SUBTTL INDIRECT ADDRESSING - BASIC TESTS - -;********** - -;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E -;ARE WITHIN THE AC RANGE. -;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. -;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 0, -;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS - -C21100: SETOM 1 ;PRELOAD AC WITH -1,,-1 - MOVEI 7,3 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS - SETZM 3 ;PRELOAD INDIRECT ADDRESS WITH 0 - MOVE 1,@7 ;*FWT FROM INDIRECT ADDRESSS SHOULD - ;PLACE 0 INTO THE AC - SKIPE 1 ;PASS IF C(AC)=0 - STOP - -;********** - -;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E -;ARE WITHIN THE AC RANGE. -;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. -;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR -1,,-1, -;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS - -C21200: SETZM 1 ;PRELOAD AC WITH -1,,-1 - MOVEI 7,3 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS - SETOM 3 ;PRELOAD INDIRECT ADDRESS WITH -1,,-1 - MOVE 1,@7 ;*FWT FROM INDIRECT ADDRESS SHOULD - ;PLACE -1,,-1 INTO THE AC - CAME 1,[-1,,-1] ;PASS IF C(AC)=-1,,-1 - STOP - -;********** -;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E -;ARE WITHIN THE AC RANGE. -;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. -;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 707070,,707070, -;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS - -C21300: SETZM 1 ;PRELOAD AC WITH 0 - MOVEI 7,3 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS - MOVE 3,[707070,,707070] ;PRELOAD INDIRECT ADDRESS WITH 707070,,707070 - MOVE 1,@7 ;*FWT FROM INDIRECT ADDRESS SHOULD - ;PLACE 707070,,707070 INTO THE AC - CAME 1,[707070,,707070] ;PASS IF C(AC)=707070,,707070 - STOP - -;********** - -;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN E IS WITHIN THE AC RANGE -;AND @E IS BEYOND THE AC RANGE. -;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. -;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 707070,,707070, -;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS - -C21400: JRST .+2 - XWD 707070,707070 ;INDIRECT ADDRESS AND ITS DATA - SETZM 1 ;PRELOAD AC WITH 0 - MOVEI 7,C21400+1 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS - MOVE 1,@7 ;*FWT FROM INDIRECT ADDRESS SHOULD - ;PLACE 707070,,707070 INTO AC - CAME 1,C21400+1 ;PASS IF C(AC)=707070,,707070 - STOP - -;********** -;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E -;ARE BEYOND THE AC RANGE. -;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. -;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 202020,,202020, -;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS - -C21500: JRST .+3 - .+1 ;DIRECT ADDRESS AND ITS DATA - XWD 202020,202020 ;INDIRECT ADDRESS AND ITS DATA - SETZM 1 ;PRELOAD AC WITH 0 - MOVE 1,@C21500+1 ;*FWT FROM INDIRECT ADDRESS SHOULD - ;PLACE 202020,,202020 INTO AC - CAME 1,C21500+2 ;PASS IF C(AC)=202020,,202020 - STOP - -;********** - -;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E -;ARE BEYOND THE AC RANGE. -;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A CAME. - -C21600: JRST .+3 - .+1 ;DIRECT ADDRESS AND ITS DATA - XWD 272727,272727 ;INDIRECT ADDRESS AND ITS DATA - MOVE 1,C21600+2 ;PRELOAD AC - CAME 1,@C21600+1 ;*CAME OF DATA FROM INDIRECT ADDRESS - NON-AC RANGE - STOP - -;********** -;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN E IS WITHIN THE AC RANGE -;AND @E IS BEYOND THE AC RANGE. -;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A CAME. - -C21700: JRST .+2 - XWD 252525,252525 ;INDIRECT ADDRESS AND ITS DATA - MOVEI 7,C21700+1 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS - MOVE 1,C21700+1 ;SETUP AC - CAME 1,@7 ;*CAME IF DATA FROM INDIRECT ADDRESS - AC RANGE - STOP - -;********** -SUBTTL TEST INDIRECT ADDRESSING WITH INDEXING - -;SETUP INDEX REGISTERS - - MOVEI 1,-4 - MOVEI 3,2 - MOVEI 4,10 - MOVEI 5,1 - MOVEI 6,5 - MOVEI 7,7 - MOVEI 10,4 - MOVEI 11,-6 - MOVEI 12,5 - MOVEI 13,2 - - JRST C22000 ;RESUME TEST - -;INDIRECT ADDRESSING/INDEXING TEST TABLE - -;;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; - -;DO NOT MODIFY THIS TABLE OR TESTS C21700 THRU C22600 INDEPENDENTLY ! - -;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; - -E217: E217A(3) -E220: @E220A -E220B: 220220,,220220 -E217A: @E221A ;E221-4 -E221B: 221221,,221221 -E222A: 217217,,217217 ;E217A+2 -E220A: E220B -E221: E221 -E221A: E221B -E222: E221 -E223A: 223223,,223223 -E224A: E224A(4) ;E223-6 - 222222,,222222 ;E222A+7 -E225: E225 - E222A(7) ;E222+5 - @E225A ;E225+2 -E225B: 225225,,225225 -E223: E223 -E225A: E225B - 224224,,224224 ;E224A+10 -E226B: 226226,,226226 - E223A ;E223+4 -E226A: @E226A(5) ;E223+5 - E226B ;E226A+1 -;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECTLY. -;IN THIS CASE, MOVE 2,@E217 IS TESTED WHERE C(E217)=E217A(3) AND C(3)=0,,2. -;HENCE, THE RESULT IN THE AC SHOULD BE C(E217A+2)=217217,,217217 - -C22000: SETOM 2 ;INITIALIZE AC - MOVE 2,@E217 ;TEST INDIRECT ADDRESSING WITH INDEXING - CAME 2,E217A+2 ;PASS IF C(AC)=217217,,217217 - STOP - -;********** - -;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECTLY. -;IN THIS CASE, MOVE 2,@E220 IS TESTED WHERE C(E220)=@E220A AND C(E220A)=E220B. -;HENCE, THE RESULT IN THE AC SHOULD BE C(E220B)=220220,,220220 - -C22100: SETZM 2 ;INITIALIZE AC - MOVE 2,@E220 ;TEST INDIRECT ADDRESSING WITH INDEXING - CAME 2,E220B ;PASS IF C(AC)=220220,,220220 - STOP - -;********** -;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECTLY. -;IN THIS CASE,E221(1) 2,@E217 IS TESTED WHERE C(1)=-4 AND E221-4=E217A -;HENCE, THE RESULT IN THE AC SHOULD BE C(E217A)=@E221A=20,,E221A - -C22200: SETOM 2 ;INITIALIZE AC - MOVE 2,E221(1) ;TEST INDIRECT ADDRESSING WITH INDEXING - CAME 2,E217A ;PASS IF C(AC)=@E221A=20,,E221A - STOP - -;********** - -;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECTLY. -;IN THIS CASE, MOVE 2,E222(6) IS TESTED WHERE C(6)=5 -;HENCE, THE RESULT IN THE AC SHOULD BE C(E222+5)=E222A(7)=7,,E222A - -C22300: SETZM 2 ;INITIALIZE AC - MOVE 2,E222(6) ;TEST INDIRECT ADDRESSING WITH INDEXING - CAME 2,E222+5 ;PASS IF C(AC)=E222A(7)=7,,E222A - STOP - -;********** -;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECTLY. -;IN THIS CASE, MOVE 2,@E223(10) IS TESTED WHERE C(10)=4 AND C(E223+4)=E223A -;HENCE, THE RESULT IN THE AC SHOULD BE C(E223A)=223223,,223223 - -C22400: SETOM 2 ;INITIALIZE AC - MOVE 2,@E223(10) ;TEST INDIRECT ADDRESSING WITH INDEXING - CAME 2,E223A ;PASS IF C(AC)=223223,,223223 - STOP - -;********** - -;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECTLY. -;IN THIS CASE, MOVE 2,@E223(11) IS TESTED WHERE C(11)=-6, C(E223-6)=E224A(4) AND C(4)=10 -;HENCE, THE RESULT IN THE AC SHOULD BE C(E224A+10)=224224,,224224 - -C22500: SETZM 2 ;INITIALIZE AC - MOVE 2,@E223(11) ;TEST INDIRECT ADDRESSING WITH INDEXING - CAME 2,E224A+10 ;PASS IF C(AC)=224224,,224224 - STOP - -;********** -;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECTLY. -;IN THIS CASE, MOVE 2,@E225(13) IS TESTED WHERE C(13)=2, C(E225+2)=@E225A -;AND C(E225A)=E225B -;HENCE, THE RESULT IN THE AC SHOULD BE C(E225B)=225225,,225225 - -C22600: SETOM 2 ;INITIALIZE AC - MOVE 2,@E225(13) ;TEST INDIRECT ADDRESSING WITH INDEXING - CAME 2,E225B ;PASS IF C(AC)=225225,,225225 - STOP - -;********** - -;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECTLY. -;IN THIS CASE, MOVE 2,@E223(12) IS TESTED WHERE C(12)=5, C(E223+5)=@E226A(5), -;C(5)=1 AND C(E226A+1)=E226B -;HENCE, THE RESULT IN THE AC SHOULD BE C(E226B)=226226,,226226 - -C22700: SETZM 2 ;INITIALIZE AC - MOVE 2,@E223(12) ;TEST INDIRECT ADDRESSING WITH INDEXING - CAME 2,E226B ;PASS IF C(AC)=226226,,226226 - STOP - -;********** - - JRST BEGEND ``` +DAKAD.MAC +--------- + +{% highlight text %} +{% include_relative DAKAD.MAC.txt %} +{% endhighlight %} + +DAKAD.LST +--------- + +{% highlight text %} +{% include_relative DAKAD.LST.txt %} +{% endhighlight %} + DAKAD.SEQ --------- -To view the contents of **DAKAD.SEQ** (a combination of [DAKAD.TXT](#dakadtxt), a MACRO-10 assembly listing, and run data), -click [here](DAKAD.SEQ.txt). +To view the contents of **DAKAD.SEQ**, the source of all the above information, click +[here](http://archive.pcjs.org/apps/pdp10/tapes/diags/klad/dakad/DAKAD.SEQ.txt). diff --git a/apps/pdp10/tapes/diags/klad/dakad/TEST.MAC b/apps/pdp10/tapes/diags/klad/dakad/TEST.MAC.txt similarity index 100% rename from apps/pdp10/tapes/diags/klad/dakad/TEST.MAC rename to apps/pdp10/tapes/diags/klad/dakad/TEST.MAC.txt diff --git a/devices/pdp10/machine/ka10/test/debugger/machine.xml b/devices/pdp10/machine/ka10/test/debugger/machine.xml index e2048bc3b..bb1e191e3 100644 --- a/devices/pdp10/machine/ka10/test/debugger/machine.xml +++ b/devices/pdp10/machine/ka10/test/debugger/machine.xml @@ -8,5 +8,5 @@ - + diff --git a/modules/pdp10/lib/debugger.js b/modules/pdp10/lib/debugger.js index 0c49852c8..3c876a5d9 100644 --- a/modules/pdp10/lib/debugger.js +++ b/modules/pdp10/lib/debugger.js @@ -331,11 +331,17 @@ class DebuggerPDP10 extends Debugger { this.nBusWidth = bus.getWidth(); /* - * Re-initialize Debugger message support if necessary + * Override the Debugger's message configuration if specified. */ var sMessages = /** @type {string|undefined} */ (cmp.getMachineParm('messages')); if (sMessages) this.messageInit(sMessages); + /* + * Override the Debugger's initialization commands if specified. + */ + var sCommands = /** @type {string|undefined} */ (cmp.getMachineParm('commands')); + if (sCommands) this.sInitCommands = sCommands; + /* * Update aOpReserved as appropriate for the current model */ diff --git a/modules/pdp10/lib/macro10.js b/modules/pdp10/lib/macro10.js index eb35ba14a..7abd65963 100644 --- a/modules/pdp10/lib/macro10.js +++ b/modules/pdp10/lib/macro10.js @@ -214,14 +214,22 @@ class Macro10 { this.done(this.parseFile()); return; } + var macro10 = this; - Web.getResource(this.asURLs[this.iURL++], null, true, function processMacro10(sURL, sResource, nErrorCode) { + var sURL = this.asURLs[this.iURL++]; + + /* + * We know that local resources ending with ".MAC" are actually stored with a ".txt" extension. + */ + if (sURL[0] == '/' && sURL.slice(-4) == ".MAC") sURL += ".txt"; + + Web.getResource(sURL, null, true, function processMacro10(sFile, sResource, nErrorCode) { if (nErrorCode) { - macro10.done(nErrorCode, sURL); + macro10.done(nErrorCode, sFile); return; } var sText = sResource; - if (Str.endsWith(sURL, ".html")) { + if (Str.endsWith(sFile, ".html")) { /* * We want to parse ONLY the text between 
...
tags, and eliminate any HTML entities. */ diff --git a/versions/pdpjs/1.34.2/pdp10-dbg.js b/versions/pdpjs/1.34.2/pdp10-dbg.js index 08d93ec3b..ec97728b6 100644 --- a/versions/pdpjs/1.34.2/pdp10-dbg.js +++ b/versions/pdpjs/1.34.2/pdp10-dbg.js @@ -36,7 +36,7 @@ bd:88,cd:89,Ib:90,"[":91,"\\":92,"]":93,"^":94,_:95,"`":96,dd:97,ed:98,fd:99,d:1 function na(a,b){var c;if(a){b||(b=10);var d=a.charAt(0),e=0f&&(f+=Math.pow(2,36)),f=0a&&-1a&&(a+=Math.pow(b,c)),a>=Math.pow(b,c)&&(c=Math.ceil(Math.log(a)/Math.log(b))));if(null==a)for(;0=f?48:55),e=String.fromCharCode(f)+e;a=Math.trunc(a/b)}return(void 0===d?"":d)+e}function ua(a,b,c){b?12"']/g,function(a){return Aa[a]})}function Da(a,b){return(a+" ").slice(0,b)} +function r(a,b,c){b?9"']/g,function(a){return Aa[a]})}function Ba(a,b){return(a+" ").slice(0,b)} function Ea(a){return String.prototype.trim?a.trim():a.replace(/^\s+|\s+$/g,"")}var Aa={"&":"&","<":"<",">":">",'"':""","'":"'"};function Fa(a,b,c){var d=0,e=a.length,f=0;for(c||(c=function(a,b){return a>b?1:a>1,h;h=c(b,a[g]);0a?"0":"")+a}var b=new Date;return b.getFullYear()+"-"+a(b.getMonth()+1)+"-"+a(b.getDate())+" "+a(b.getHours())+":"+a(b.getMinutes())+":"+a(b.getSeconds())} function Ha(a,b,c,d){c=void 0===c?!1:c;var e=0,f=null,g=null;if("object"==typeof resources&&(f=resources[a]))return d&&d(a,f,e),[f,e];if(c&&"function"==typeof resources)return resources(a,function(b,c){d&&d(a,b,c)}),g;var h=window.XMLHttpRequest?new window.XMLHttpRequest:new window.ActiveXObject("Microsoft.XMLHTTP");c&&(h.onreadystatechange=function(){4===h.readyState&&(f=h.responseText,200==h.status||!h.status&&f.length&&"file:"==(window?window.location.protocol:"file:")||(e=h.status||-1),d&&d(a, f,e))});if(b&&"object"==typeof b){var k="",m;for(m in b)b.hasOwnProperty(m)&&(k&&(k+="&"),k+=m+"="+encodeURIComponent(b[m]));k=k.replace(/%20/g,"+");h.open("POST",a,c);h.setRequestHeader("Content-type","application/x-www-form-urlencoded");h.send(k)}else h.open("GET",a,c),"bytes"==b&&h.overrideMimeType("text/plain; charset=x-user-defined"),h.send();c||(f=h.responseText,200!=h.status&&(e=h.status||-1),d&&d(a,f,e),g=[f,e]);return g} @@ -84,7 +84,7 @@ function zc(a,b,c){a.b=b;a.i=a.v=0;c&&((a.i=c.i)&&Rc(a,Tc,!1),(a.v=c.v)&&Sc(a,Tc l.Zb=function(a,b){if(this.b&&null!=this.B){var c=this.b;Vc(c,this.B+a,2,c.M)&&c.V(!1)}return this.D(a,b)};l.ic=function(a,b,c){if(this.b&&null!=this.B){var d=this.b;Vc(d,this.B+b,2,d.I)&&d.V(!1)}this.G?this.Qa(a,0,c):this.w(a,b,c)};var Mc=0,Nc=2,Ic=["NONE","RAM","ROM"],Lc=0,Qc=[],Pc=[yc.prototype.ac,yc.prototype.jc],Tc=[yc.prototype.Zb,yc.prototype.ic]; function Wc(a,b){u.call(this,"CPU",a,1);b=+a.cycles||b;var c=+a.multiplier||1;this.ab=0;this.eb=b;this.fa=c;this.bb=Math.round(this.eb/1E4)/100;this.ca=this.bb*this.fa;this.cb=this.Ea=this.ga=this.Va=0;this.A.N=this.A.$a=!1;this.A.aa=a.autoStart;"string"==typeof this.A.aa&&(this.A.aa="true"==this.A.aa);this.A.Ma=!1;this.Ca=this.ia=0;this.Da=+a.csStart;this.pa=+a.csInterval;this.ja=+a.csStop;this.O=[];this.yb=this.dc.bind(this);this.U=this.M=this.R=this.S=this.L=this.Ba=this.P=this.ka=this.fb=this.ba= 0;this.Ja=null;Kb(this)}n(Wc,u);l=Wc.prototype;l.Ha=function(a,b,c,d){this.H=a;this.G=b;this.D=d;this.Ja=a.j;for(a=0;a=a.ia&&(a.ia+=a.pa,c=!0);0<=a.ja&&a.ja<=dd(a)&&(a.pa=a.ja=-1,$c(a),a.V(),c=!0);c&&a.u(dd(a)+" cycles: checksum="+r(a.Ca))}} l.oa=function(a,b,c){var d=this;switch(b){case "power":case "reset":return this.J[b]=c,!0;case "run":return this.J[b]=c,c.onclick=function(){var a;if(a=d.H)if(a=d.H,a.A.X)a=!0;else{var b=null,c,h=ob(a.id);for(c=0;c=this.eb&&fd(this,!0);this.ka=0;this.Ba=mb( e.stack||e.message);return}if(this.A.N){a=setTimeout;b=this.yb;this.P=mb();var c=this.cb;this.ka&&(c=Math.round(c*this.ka/this.Ea));var c=c-(this.P-this.Ba),d=this.P-this.L;d&&(this.ba=Math.round(this.M/(10*d))/100,864E5<=d&&(this.U=0,ed(this)));if(0>c||this.bac&&(this.L-=c),c=0;this.Va+=this.ka;this.P+=c;a(b,c)}}}; function pc(a,b){if(!yb(a))if(a.A.N)a.u(a.toString()+" busy");else{ed(a);a.A.N=!0;a.A.$a=!0;var c=a.J.run;c&&(c.textContent="Halt");a.H&&(b&&hd(a.H,!0),a.H.start(a.L,dd(a)));a.D||a.status("Started");setTimeout(a.yb,0)}}l.Ra=function(){return 0};l.V=function(a){var b=!1;if(this.A.N){kd(this);sc(this,this.M);this.M=0;this.A.N=!1;if(b=this.J.run)b.textContent="Run";this.H&&this.H.stop(mb(),dd(this));b=!0;this.D||this.status("Stopped")}this.A.complete=a;return b};var gd=30,ld=15,Xc=["power","reset"]; function md(a){var b=+a.model||1001;Wc.call(this,a,1E6);this.wb=b;this.Sa=+a.addrReset||0;this.Kb=nd.bind(this);this.w=K.bind(this);this.za=null;this.ob=[];this.A.complete=!1}n(md,Wc);l=md.prototype; -l.reset=function(){this.status("Model "+this.wb);this.A.N&&this.V();this.Fa=this.Ga=this.b=this.K=0;this.i=this.Aa=this.Sa;this.I=this.ta=-1;this.F=this.j=0;this.gb=[0,0];this.qa=[0,0];this.ha=[0,0];this.ra=[0,0];this.ya=this.i;this.C=0;this.f=this.$b;this.g=this.kc;this.za=null;Zc(this);this.A.error=!1;Wc.prototype.reset.call(this)};l.Bb=function(){return 0}; -l.save=function(){var a=new G(this);a.set(0,[this.b,this.K,this.Fa,this.Ga,this.i,this.ta,this.I,this.j,this.C,this.Aa,this.ya,this.Sa]);a.set(1,[]);a.set(2,[this.U,this.fa,this.A.aa]);a.set(3,od(this));a.set(4,jd(this));return a.data()}; -l.restore=function(a){var b;b=a[0];ha();ca();ha();var c=b[Symbol.iterator];b=c?c.call(b):ia(b);this.b=b.next().value;this.K=b.next().value;this.Fa=b.next().value;this.Ga=b.next().value;this.i=b.next().value;this.ta=b.next().value;this.I=b.next().value;this.j=b.next().value;this.C=b.next().value;this.Aa=b.next().value;this.ya=b.next().value;this.Sa=b.next().value;b=a[2];this.U=b[0];ed(this,b[1]);this.A.aa=b[2];b=a[3];for(c=b.length-1;0<=c;c--){var d;a:{for(d=0;d>>b.i].f(a&16383,a)};l.kc=function(a,b){var c=this.G;a=this.ya=a;c.b[(a&c.j)>>>c.i].g(b,a&16383,a);return b}; -l.Ra=function(a){this.A.complete=!0;var b=this.D?qd(this.D)?1:this.A.$a?-1:0:0,c=a?this.A.$a?0:1:-1;this.A.$a=!1;this.R=this.S=a;this.C=this.C&-5|(b?4:0);do{if(this.C){if(this.C&4){if(rd(this.D,this.i,c)){this.V();break}++b||(this.C&=-5);c||c++}if(a=this.C&11)this.C&2?this.za||(this.C&=-3):this.C&1&&this.C++,a=!1;if(a){if(this.C&4&&rd(this.D,this.i,c)){this.V();break}if(0>c)break}}this.C&=15;this.K&4194304?this.K=this.Fa=this.f(this.b):0<=this.ta?(this.K=this.Ga=this.f(this.ta),this.ta=-1):(this.K= +l.Ra=function(a){this.A.complete=!0;var b=this.D?qd(this.D)?1:this.A.$a?-1:0:0,c=a?this.A.$a?0:1:-1;this.A.$a=!1;this.R=this.S=a;this.C=this.C&-5|(b?4:0);do{if(this.C){if(this.C&4){if(rd(this.D,this.i,c)){this.V();break}++b||(this.C&=-5);c||c++}if(a=this.C&11)this.C&2?this.za||(this.C&=-3):this.C&1&&this.C++,a=!1;if(a){if(this.C&4&&rd(this.D,this.i,c)){this.V();break}if(0>c)break}}this.C&=15;this.K&4194304?this.K=this.Fa=this.f(this.b):0<=this.sa?(this.K=this.Ga=this.f(this.sa),this.sa=-1):(this.K= this.Ga=this.f(this.Aa=this.i),this.i=(this.i+1)%Rb);this.K&=8388607;this.b=this.K&262143;if(a=this.K>>18&15)this.b=this.b+(this.Fa=this.f(a))&Qb;a=this.K&4194304?-1:this.Ga/Xb|0;0<=a&&this.Kb(a)}while(0>4].call(this,a,a&15)}function M(a){this.w(a)} function td(){var a=0,b=this.f(this.b),c=b/Yb&63,d=b>>24&63,c=c-d;0>c&&(a++,c=36-d,0>c&&(c=64-d));b=c*Yb+(d<<24)+(b&16777215);a&&(b=(b+a)%E);this.g(this.b,b)}function ud(a,b){a=this.f(this.b);if(0>this.I)this.I=a,this.K=this.b|4194304;else{var c=this.I/Yb&63,d=this.I>>24&63;a=32>=c+d?(a>>c&(1<>>0:Math.trunc(a/Math.pow(2,c))%Math.pow(2,d);this.g(b,a);this.I=-1}} function vd(a,b){a=this.f(this.b);if(0>this.I)this.I=a,this.K=this.b|4194304;else{var c=this.I/Yb&63,d=this.I>>24&63;b=this.f(b)%Math.pow(2,d)*Math.pow(2,c)%E;a=a-a%Math.pow(2,c+d)+b+a%Math.pow(2,c);this.g(this.b,a);this.I=-1}}function wd(a,b){this.g(b,this.f(this.b))}function xd(a,b){this.g(b,this.b)}function yd(a,b){this.g(this.b,this.f(b))}function zd(a,b){this.g(b,0)}function Ad(a,b){this.g(b,D-this.f(b))}function Bd(a,b){this.g(b,D)} @@ -123,7 +123,7 @@ this.g(b,a)}},function(a,b){if(a=(this.b<<14>>14)%36){var c=this.f(b);0>a&&(a=36 dA&&eA&&(this.j|=131072):e-c<=A&&(this.j|=131072);e=0;f>A&&(d+=C,e+=C)}else d=d*Math.pow(2,a)%C+Math.trunc(e%C/Math.pow(2,35-a)),e=e*Math.pow(2,a)%C,c=C-Math.pow(2,35-a),f<=A?f+c>A&&(this.j|=131072):(f-c<=A&&(this.j|=131072),d+=C,e+=C)}else-36>=a?(e=-72>=a?d>A?D:0:Math.trunc(d%C/Math.pow(2,-a-35)),d<=A?d=0:(d=D,e+=C)):(c=d>A?E-Math.pow(2,36+a):0,e=Math.trunc(e%C/Math.pow(2,-a))+ d%C*Math.pow(2,35+a)%C,d=Math.trunc(d/Math.pow(2,-a))+c,d>A&&(e+=C));this.g(b,d);this.g(b+1&15,e)}},function(a,b){if(a=(this.b<<14>>14)%72){var c=this.f(b),d=this.f(b+1&15),e=c;0>a&&(a=72+a);36>a?(c=c*Math.pow(2,a)%E+Math.trunc(d/Math.pow(2,36-a)),d=d*Math.pow(2,a)%E+Math.trunc(e/Math.pow(2,36-a))):(c=d*Math.pow(2,a-36)%E+Math.trunc(c/Math.pow(2,72-a)),d=e*Math.pow(2,a-36)%E+Math.trunc(d/Math.pow(2,72-a)));this.g(b,c);this.g(b+1&15,d)}},function(a,b){if(a=(this.b<<14>>14)%256){var c=this.f(b),d=this.f(b+ 1&15);0=a?(d=-72>=a?0:Math.trunc(c/Math.pow(2,-a-36)),c=0):(d=Math.trunc(d/Math.pow(2,-a))+c*Math.pow(2,36+a)%E,c=Math.trunc(c/Math.pow(2,-a)));this.g(b,c);this.g(b+1&15,d)}},K,function(a,b){a=this.f(b);this.g(b,this.f(this.b));this.g(this.b,a)},function(a,b){a=!1;for(var c=this.f(b),d=c/z|0,c=c&y;!a;)this.g(c,this.f(d)),c==this.b&&(a=!0),d=d+1&y,c=c+1&y,this.A.N||(this.g(b,d* -z+c),a||pd(this,-1),a=!0)},function(a,b){a=(this.f(b)+262145)%D;this.g(b,a);a=C&&H(this,this.b)},function(a,b){b&1&&(this.j|=4096);if(b&2){var c=this.Fa,c=c/z|0;this.j=this.j&-254049|c&254048;this.j|=c&4096;c&2048?this.j&4096||(this.j|=2048):this.j&=-2049}b&4&&this.V();b&8&&this.w(a);H(this,this.b)},function(a,b){a=b<<14;this.j&a&&(this.j&=~a,H(this,this.b))},function(){this.ta=this.b},K,function(a){this.w(a)},function(a,b){a= +z+c),a||pd(this,-1),a=!0)},function(a,b){a=(this.f(b)+262145)%D;this.g(b,a);a=C&&H(this,this.b)},function(a,b){b&1&&(this.j|=4096);if(b&2){var c=this.Fa,c=c/z|0;this.j=this.j&-254049|c&254048;this.j|=c&4096;c&2048?this.j&4096||(this.j|=2048):this.j&=-2049}b&4&&this.V();b&8&&this.w(a);H(this,this.b)},function(a,b){a=b<<14;this.j&a&&(this.j&=~a,H(this,this.b))},function(){this.sa=this.b},K,function(a){this.w(a)},function(a,b){a= this.f(b);a+=262145;this.g(a&y,this.f(this.b));a>=E&&(a-=E);a/z|0||(this.j|=262144);this.g(b,a)},function(a,b){a=this.f(b);var c=this.f(a&y);this.g(this.b,c);this.b==b&&(a=c);a-=262145;0>a&&(a+=E);(a/z|0)==y&&(this.j|=262144);this.g(b,a)},function(a){this.w(a)},function(){this.g(this.b,(this.j&y)*z+this.i);H(this,this.b+1)},function(a,b){this.g(b,(this.j&y)*z+this.i);H(this,this.b)},function(a){this.w(a)},function(a){this.w(a)},function(a,b){this.g(b,O.call(this,this.f(b),this.f(this.b)))},function(a, b){this.g(b,O.call(this,this.f(b),this.b))},function(a,b){this.g(this.b,O.call(this,this.f(b),this.f(this.b)))},function(a,b){this.g(this.b,this.g(b,O.call(this,this.f(b),this.f(this.b))))},function(a,b){this.g(b,Q.call(this,this.f(b),this.f(this.b)))},function(a,b){this.g(b,Q.call(this,this.f(b),this.b))},function(a,b){this.g(this.b,Q.call(this,this.f(b),this.f(this.b)))},function(a,b){this.g(this.b,this.g(b,Q.call(this,this.f(b),this.f(this.b))))},me,function(a,b){0>T(this.f(b),this.b)&&H(this, this.i+1)},function(a,b){T(this.f(b),this.b)||H(this,this.i+1)},function(a,b){0>=T(this.f(b),this.b)&&H(this,this.i+1)},function(){H(this,this.i+1)},function(a,b){0<=T(this.f(b),this.b)&&H(this,this.i+1)},function(a,b){T(this.f(b),this.b)&&H(this,this.i+1)},function(a,b){0T(this.f(b),this.f(this.b))&&H(this,this.i+1)},function(a,b){T(this.f(b),this.f(this.b))||H(this,this.i+1)},function(a,b){0>=T(this.f(b),this.f(this.b))&&H(this,this.i+1)}, @@ -175,32 +175,32 @@ p=!1}Je(a,q,B)&&1==q.length||(m=!0);m?!1===f&&a.u("parse error ("+(h||k)+")"):g= function Me(a,b,c,d,e){var f;null!=b?(f=a.kb(b),0<=f?f=a.lb(f):(f=a.K[b],null==f&&(f=na(e?"-"+b:b,a.T),e=!1)),null!=f?e&&(f=-f):d||a.u("invalid "+(c?c:"value")+": "+b)):d||a.u("missing "+(c||"value"));return f} function Pe(a,b,c){var d,e=!1;if(void 0!==c){e=!0;d=c;var f=4,g="";if(!f||4>=1,P--;g=q+g;d>>=8}d=r(c,0,!0)+" "+c+". "+ua(c,0,!0)+" "+("0b"+g);32<=c&&127>c&&(d+=" '"+String.fromCharCode(c)+"'")}a.u((null!=b?b+": ":"")+d);return e}function Qe(a){var b=a.K;a.K={};return b} function Re(a,b){if(b)return Pe(a,b,a.K[b]);var c=0;for(b in a.K)Pe(a,b,a.K[b]),c++;return 0>2:0)}0>c?c=a.replace(/^0+([0-9A-F]+)$/i,"$1"):c=a;return c}var Ne={"||":0,"&&":1,"!":2,"|":2,"^^":3,"&":4,"!=":5,"==":5,">=":6,">":6,"<=":6,"<":6,">>>":7,">>":7,"<<":7,"-":8,"+":8,"%":9,"/":9,"*":9,"><":10,"{":11,"}":11},Ke=Math.pow(2,32); -function Se(a){Ge.call(this,a);this.Ea=!1;this.Ca=18;this.ia=36;this.ba=["<",">"];this.qa=[];this.Da=Z();this.L=Z(0);this.pa=Z(0);this.fa=Z(0);this.F=[];this.b=this.M=this.I=[];Te(this);this.S=this.ja=0;this.i=[];this.za=void 0;Ue(this);this.D=this;this.ta={};this.Y=this.xb=0;this.U=null;this.P=[];Ve(this,a.messages);this.Ba=a.commands;this.O=0;this.Ja=this.Aa=null;this.C=this.Ga=this.Fa=this.ha=this.ya=0;this.ra=this.ga=this.ca=null;var b=this;window?void 0===window[w]&&(window[w]=function(a){return cd(b, +function Se(a){Ge.call(this,a);this.Ea=!1;this.Ca=18;this.ia=36;this.ba=["<",">"];this.qa=[];this.Da=Z();this.L=Z(0);this.pa=Z(0);this.fa=Z(0);this.F=[];this.b=this.M=this.I=[];Te(this);this.S=this.ja=0;this.i=[];this.Aa=void 0;Ue(this);this.D=this;this.ya={};this.Y=this.xb=0;this.U=null;this.P=[];Ve(this,a.messages);this.sa=a.commands;this.O=0;this.Ja=this.Ba=null;this.C=this.Ga=this.Fa=this.ha=this.za=0;this.ra=this.ga=this.ca=null;var b=this;window?void 0===window[w]&&(window[w]=function(a){return cd(b, a)}):void 0===global[w]&&(global[w]=function(a){return cd(b,a)})}n(Se,Ge);function We(a){a=a&&a.B;null==a&&(a=-1);return a}function Z(a,b,c){return{B:void 0===a?null:a,Wa:void 0===b?!1:b,la:!1,T:c}}function Xe(a,b,c,d){a.B=b;a.Wa=c||!1;a.la=!1;a.T=d}function Ye(a){return[a.B,a.Wa,a.la,a.T,a.Za]}function Ze(a,b){var c=Z(b[0],b[1],b[2]);c.la=b[3];b[4]&&(c.sb=He(a,c.Za=b[4]));return c}l=Se.prototype; -l.Ha=function(a,b,c,d){this.G=b;this.H=a;this.v=c;this.ga=a.j;this.Ca=b.F;(a=Yc(a,"messages"))&&Ve(this,a);$e(this,function(a){a:{var b=d.G.b,c=a[0],e=a=0,k=b.length;if(c){a=We(af(d,c,d.pa));if(-1===a){d.u("invalid address: "+c);break a}e=a>>>d.G.i;k=1}d.u("blockid physical blockaddr used size type");d.u("-------- --------- --------- ------ ------ ----");for(var c=-1,m=0;k--;){var p=b[e];p.type==c?m++||d.u("..."):(c=p.type,m=Ic[c],p&&d.u(r(p.id,8)+" %"+r(e<>>d.G.i;k=1}d.u("blockid physical blockaddr used size type");d.u("-------- --------- --------- ------ ------ ----");for(var c=-1,m=0;k--;){var p=b[e];p.type==c?m++||d.u("..."):(c=p.type,m=Ic[c],p&&d.u(r(p.id,8)+" %"+ +r(e<a&&a>=-C&&(a+=E);return Math.trunc(Math.abs(a))%Math.pow(2,void 0===b?36:b)}function df(a){return ua(a/Rb,6)+" "+ua(a%Rb,6)} -function Ve(a,b){a.D=a;a.Y=a.xb=536870916;a.U=null;a.P=[];b=He(a,b.replace("keys","key").replace("kbd","keyboard"),!1,"|");if(b.length)for(var c in Zb){var d;a:if(d=void 0,Array.prototype.indexOf)d=b.indexOf(c,d);else{d=d||0;0>d&&(d+=b.length);0>d&&(d=0);for(var e=b.length;dd&&(d+=b.length);0>d&&(d=0);for(var e=b.length;d>23&&a.v.Aa==b&&(b=pd(a.v,1)));if(0d&&(d=a.v.f(b)),0<=d&&(Xe(a.i[a.S],b),++a.S==a.i.length&&(a.S=0)));return!1} -function vf(a,b,c,d){var e=Z(b.B),f=a.Ia(b,1),g,h,k,m=0,p=f/Vb|0,q;for(q in wf)if(g=wf[q][p&q]){h=+q;p>>=6;switch(h){case 32512:k=xf;m=p&3;break;case 32256:k=yf;m=p&7;break;case 29248:k=zf,m=(p&48)>>2|(p&6)>>1}break}k=k&&k[m]||"";"S"==k&&g>Af&&(k="B");k=Bf[g||0]+k;if(g){if(28700==h)h=f/Wb&127,m=J(a,h,-1);else for(h=f>>23&15,m=J(a,h,-1),p=0;m&&p>18&15)&&(k+="("+J(a,f, --1)+")")}else k=Da(k,8)+df(f);f=k;g="";h=J(a,e.B)+":";if(-1!==e.B&&-1!==b.B){do if(k=a.Ia(e,1),g+=" "+df(k),null==e.B)break;while(e.B!=b.B)}h+=Da(g,16)+f;c&&(h=Da(h,48)+";"+(c||""),h=a.v.A.Ma?h+("cycles="+dd(a.v).toString()+" cs="+r(a.v.Ca)):h+(null!=d?"="+d.toString():""));return h} +function vf(a,b,c,d){var e=Z(b.B),f=a.Ia(b,1),g,h,k,m=0,p=f/Vb|0,q;for(q in wf)if(g=wf[q][p&q]){h=+q;p>>=6;switch(h){case 32512:k=xf;m=p&3;break;case 32256:k=yf;m=p&7;break;case 29248:k=zf,m=(p&48)>>2|(p&6)>>1}break}k=k&&k[m]||"";"S"==k&&g>Af&&(k="B");k=Bf[g||0]+k;if(g){if(28700==h)h=f/Wb&127,m=J(a,h,-1);else for(h=f>>23&15,m=J(a,h,-1),p=0;m&&p>18&15)&&(k+="("+J(a,f, +-1)+")")}else k=Ba(k,8)+df(f);f=k;g="";h=J(a,e.B)+":";if(-1!==e.B&&-1!==b.B){do if(k=a.Ia(e,1),g+=" "+df(k),null==e.B)break;while(e.B!=b.B)}h+=Ba(g,16)+f;c&&(h=Ba(h,48)+";"+(c||""),h=a.v.A.Ma?h+("cycles="+dd(a.v).toString()+" cs="+r(a.v.Ca)):h+(null!=d?"="+d.toString():""));return h} function Df(a,b,c,d,e){var f=-1,g,h;a.ka=null;if(b){for(var k=b.toUpperCase(),m=0;mAf&&(ea="B");if(k==Bf[h]+ea){f=29248!=g?P:(P&3)<<1|(P&12)<<2;f=(B|f<<6)*Vb;break}}if(0<=f)break}if(0<=f)break}}else c&& (f=g=0);if(0<=f&&c)for(k=c.split(","),q=0;qh||127h||15h||262143h||15f&&!e&&a.u("unknown instruction: "+b+" "+c);return f}function Te(a){var b,c;a.b=["bp"];if(a.M)for(b=1;b>>d.i],!1)}a.M=["br"];if(a.I)for(b=1;b>>d.i],!0);a.I=["bw"];a.ya=0;a.ja=0} +15;f+=h<<18}B[1]&&(f+=4194304)}}0>f&&!e&&a.u("unknown instruction: "+b+" "+c);return f}function Te(a){var b,c;a.b=["bp"];if(a.M)for(b=1;b>>d.i],!1)}a.M=["br"];if(a.I)for(b=1;b>>d.i],!0);a.I=["bw"];a.za=0;a.ja=0} l.La=function(a,b,c){var d=!0;c||eg(this,a,b,!1,!0);if(a!=this.b){var e=We(b);if(-1===e)this.u("invalid address: "+J(this,b.B)),d=!1;else{var f=this.G;f.b[e>>>f.i].La(e&16383,a==this.I)}}d&&(a.push(b),c?b.la=!0:(gg(this,a,a.length-1,"set"),Ue(this)));return d};function eg(a,b,c,d,e){var f=!1;c=We(c);for(var g=1;g>>d.i],b==a.I));h.la||Ue(a);break}}return f} function hg(a,b){for(var c=1;cd;d++){!d||d&3||(c+="\n");var e=a,f=ua(d,2);Xe(e.Da,d);f+="="+J(e,e.Ia(e.Da),36)+" ";c+=f}if(b){b="";for(d=0;d=jf?1:d==gf?23:18)+" "),b+=e;c+="\n"+b}return c}l.zb=function(a,b){return a[0]>b[0]?1:a[0]>>0,g],q=Fa(p,k,a.zb);0>q&&p.splice(-(q+1),0,k)}m&&(h.a=m.replace(/''/g,'"'))}a.F.push({td:b,B:c,Pb:d,W:e,tb:f})}function kg(a,b,c){var d=[],e=We(b)>>>0;for(b=0;b>>0,h=f.Pb;if(e>=g&&eb){a.u("unknown register: "+f);return}var f=0,h=a.v;switch(b){case ff:H(h, g);Xe(a.L,h.i);break;case jf:f=65536;break;case kf:f=32768;break;case lf:f=131072;break;case mf:f=32;break;case nf:f=262144}f&&(h.j=g?h.j|f:h.j&~f);I(a.H);a.u("updated registers:")}}a.u(jg(a,e));c&&(Xe(a.L,d.i),tf(a,J(a,a.L.B)))}}function rg(a,b){b=Ea(b);var c=b.match(/^(['"])(.*?)\1$/);c?1h[0].indexOf("+"))){var m=h[0]+":";h[2]&&(m+=" "+h[2]);a.u(m)}h[3]&&(g=h[3],f=null);h=a.fa;m=b;h.B=m.B;h.Wa=m.Wa;h.la=m.la;h.T=m.T;a.u(vf(a,b,g,f));e-=b.B-k;c++}}} function ig(a,b,c){var d=!0;try{b.length&&"end"!=b?c||a.u(rf+b):(a.R&&(a.u("ended assemble at "+J(a,a.fa.B)),a.R=!1),b="");var e=b.charAt(0);if('"'==e||"'"==e)return!0;a.U=null;if(Jb(a)&&0p||"z"pa.length&&(a.u("note: only "+pa.length+" available"),fa=pa.length);ka-=fa;0>ka&&(null==pa[pa.length-1].B?(fa=ka+fa,ka=0):ka+=pa.length);var Hd= -[];"call"==Jf&&(zb=1E5,Hd=["CALL"]);for(void 0!==If&&a.u(fa+" instructions earlier:");0=pa.length&&(ka=0);a.za=fa;Lf++;zb--}}Lf||(a.u("no "+Kf+"history available"),a.za=void 0)}else{var fb=af(a,oa,a.pa);if(fb){var Ka=0,Of="ds"==cb;if(Ba){if("l"==Ba.charAt(0))Ba=Ba.substr(1)||lh,Ka=Me(a,Ba);else{var Pf=af(a,Ba);Pf&& +B)a.u("missing breakpoint address");else{var Y=Z();if("*"!=B&&(Y=af(a,B,a.L),!Y))break a;"c"==ea?null==Y.B?(Te(a),a.u("all breakpoints cleared")):eg(a,a.b,Y)||eg(a,a.M,Y)||eg(a,a.I,Y)||a.u("breakpoint missing: "+J(a,Y.B)):null!=Y.B&&(cf(a,Y,P),"p"==ea?a.La(a.b,Y):"r"==ea?a.La(a.M,Y):"w"==ea?a.La(a.I,Y):a.u("unknown breakpoint command: "+ea))}}}break;case "c":a.wa&&(a.wa.value="");break;case "d":a:{var bb,cb=g[0],oa=g[1],Ca=g[2],lh=g[3];if("?"==oa){var db="";for(bb in Zb)a.ya[bb]&&(db&&(db+=","),db+= +bb);db+=",state,symbols";a.u("dump memory commands:");a.u("\tdw [a] [n] dump n words at address a");a.u("\tds [a] [n] dump n words at address a as JSON");a.u("\tdh [p] [n] dump n instructions from history position p");db.length&&a.u("dump extension commands:\n\t"+db)}else if("state"==oa){var Ed=tg(a.H,!0);"console"==Ca?console.log(Ed):(a.wa&&(a.wa.value=""),Ed&&a.u(Ed))}else if("symbols"==oa)for(var Fd=0;Fdpa.length&&(a.u("note: only "+pa.length+" available"),fa=pa.length);ka-=fa;0>ka&&(null==pa[pa.length-1].B?(fa=ka+fa,ka=0):ka+=pa.length);var Hd= +[];"call"==Jf&&(zb=1E5,Hd=["CALL"]);for(void 0!==If&&a.u(fa+" instructions earlier:");0=pa.length&&(ka=0);a.Aa=fa;Lf++;zb--}}Lf||(a.u("no "+Kf+"history available"),a.Aa=void 0)}else{var fb=af(a,oa,a.pa);if(fb){var Ka=0,Of="ds"==cb;if(Ca){if("l"==Ca.charAt(0))Ca=Ca.substr(1)||lh,Ka=Me(a,Ca);else{var Pf=af(a,Ca);Pf&& (Ka=Pf.B-fb.B)}0>Ka&&(Ka=0);65536Bb?".":String.fromCharCode(Bb)),Ac=Ac-7}La&&(La+="\n");La=Of?La+(qa+","):La+(oa+": "+qa+(0>Rf?" "+Kd:""))}La&& a.u(La);a.T=nh}}}}break;case "e":if("else"==g[0])break;var Sf,Tf,Uf=g[0],Md=g[1];"e"==Uf||"ew"==Uf?(Sf=a.Ia,Tf=a.rb):Md=null;if(null==Md)a.u("edit memory commands:"),a.u("\tew [a] [...] edit words at address a");else{var Bc=af(a,Md,a.pa);if(Bc)for(var Nd=2;NdQd;){for(var Ma=null,sh= -256;65536>Eb.B>>>0;){Rd.B=a.Ia(Eb,2);if(null==Eb.B||!sh--)break;if(!(Rd.B&1)){for(var th=a,Cc=Rd,Wf=null,Fb=Cc.B,Xf=Fb,Sd=1;6>=Sd&&Fb;Sd++){if(2Eb.B>>>0;){Rd.B=a.Ia(Eb,2);if(null==Eb.B||!sh--)break;if(!(Rd.B&1)){for(var th=a,Cc=Rd,Wf=null,Fb=Cc.B,Xf=Fb,Sd=1;6>=Sd&&Fb;Sd++){if(2cg)a.u("step commands:"), a.u("\tp\tstep over instruction"),a.u("\tpr\tstep over instruction with register update");else if(a.O)a.u("step in progress");else{var dg=Z(a.v.i);a.Ia(dg);a.O?(a.La(a.b,dg,!0),pf(a)||(a.H&&hd(a.H),a.O=0)):sg(a,cg?"tr":"t")}break;case "r":if("reset"==b){a.H&&a.H.reset();break}sf(a,g);break;case "s":a:switch(g[1]){case "base":if(g[2]){var Hb=+g[2];if(8==Hb||10==Hb||16==Hb)a.T=Hb;else{a.u("invalid base: "+Hb);break}}a.u("default base: "+a.T);break;case "cs":var Ib;void 0!==g[3]&&(Ib=+g[3]);switch(g[2]){case "int":a.v.pa= Ib;break;case "start":a.v.Da=Ib;break;case "stop":a.v.ja=Ib;break;default:a.u("unknown cs option");break a}void 0!==Ib&&$c(a.v);a.u("checksums "+(a.v.A.Ma?"enabled":"disabled"));break;case "sp":void 0!==g[2]&&(ed(a.v,+g[2])||a.u("warning: using 1x multiplier, previous target not reached"));a.u("target speed: "+(a.v.ca.toFixed(2)+"Mhz")+" ("+a.v.fa+"x)");break;default:if(g[1]){a.u("unknown option: "+g[1]);break}case "?":a.u("debugger options:"),a.u("\tbase #\t\tset default base to #"),a.u("\tcs int #\tset checksum cycle interval to #"), a.u("\tcs start #\tset checksum cycle start count to #"),a.u("\tcs stop #\tset checksum cycle stop count to #"),a.u("\tsp #\t\tset speed multiplier to #")}break;case "t":sg(a,g[0],g[1]);break;case "u":tf(a,g[1],g[2],8);break;case "v":if("var"==g[0]){pg(a,b.substr(3))||(d=!1);break}if("ver"==g[0]){a.u((Pb||"PDP10")+" version 1.34.2 ("+a.v.wb+",RELEASE)");a.u(window?window.navigator.userAgent:"");break}f=!0;break;case "?":if(g[1]){rg(a,b.substr(1));break}var Td="commands:",Ud;for(Ud in ug)Td+="\n"+ -Da(Ud,9)+ug[Ud];qd(a)||(Td+="\nnote: history disabled if no exec breakpoints");a.u(Td);break;default:f=!0}f&&(a.u("unknown command: "+b),d=!1)}}catch(fg){a.u("Debugger "+(fg.stack||fg.message)),d=!1}return d}function cd(a,b,c){b=He(a,b,c);for(var d in b)if(!ig(a,b[+d]))return!1;return!0} +Ba(Ud,9)+ug[Ud];qd(a)||(Td+="\nnote: history disabled if no exec breakpoints");a.u(Td);break;default:f=!0}f&&(a.u("unknown command: "+b),d=!1)}}catch(fg){a.u("Debugger "+(fg.stack||fg.message)),d=!1}return d}function cd(a,b,c){b=He(a,b,c);for(var d in b)if(!ig(a,b[+d]))return!1;return!0} var ug={"?":"help/print","a [#]":"assemble","b [#]":"breakpoint",c:"clear output","d [#]":"dump memory","e [#]":"edit memory","g [#]":"go [to #]",h:"halt","if":"eval expression","int [#]":"request interrupt",k:"stack trace",ln:"list nearest symbol(s)",m:"messages",p:"step over",print:"print expression",r:"dump/set registers",reset:"reset machine",s:"set options","t [#]":"trace","u [#]":"unassemble","var":"assign variable",ver:"print version"},Af=20,Bf=".WORD HLL HLLZ HLLO HLLE HRL HRLZ HRLO HRLE HRR HRRZ HRRO HRRE HLR HLRZ HLRO HLRE MOVE MOVS MOVN MOVM EXCH BLT PUSH POP LDB DPB IBP ILDB IDPB SETZ SETO SETA SETCA SETM SETCM AND ANDCA ANDCM ANDCB IOR ORCA ORCM ORCB XOR EQV LSH LSHC ROT ROTC ADD SUB MUL IMUL DIV IDIV ASH ASHC FSC FADR FSBR FMPR FDVR DFN UFA FAD FSB FMP FDV AOBJP AOBJN CAI CAM JUMP SKIP AOJ AOS SOJ SOS TR TL TD TS XCT JFFO JFCL JSR JSP JRST JSA JRA PUSHJ POPJ BLKI DATAI BLKO DATAO CONO CONI CONSZ CONSO UUO JOV JCRY0 JCRY1 JCRY JFOV HALT JRSTF JEN".split(" "), ff=0,gf=1,hf=2,jf=3,kf=4,lf=5,mf=6,nf=7,ef="PC RA EA C0 C1 OV ND PD".split(" "),vg={},wf=(vg[28672]={0:101},vg[32704]={5632:64,5696:63,5760:58,5824:27,5888:28,5952:25,6016:29,6080:26,10240:56,10304:48,10368:46,10432:84,10496:57,10560:49,10624:47,10752:21,10816:22,10880:69,10944:70,11008:88,11072:85,11136:83,11264:91,11328:23,11392:24,11456:92,11520:86,11584:87,11648:89,11712:90},vg[32512]={6144:65,6400:59,6656:66,6912:60,7168:67,7424:61,7680:68,7936:62,8192:17,8448:18,8704:19,8960:Af,9216:53,9472:52, 9728:55,9984:54,11776:50,12032:51,16384:30,16640:36,16896:37,17152:34,17408:38,17664:32,17920:44,18176:40,18432:39,18688:45,18944:33,19200:41,19456:35,19712:42,19968:43,20224:31,20480:1,20736:5,20992:2,21248:6,21504:3,21760:7,22016:4,22272:8,22528:9,22784:13,23040:10,23296:14,23552:11,23808:15,24064:12,24320:16},vg[32256]={12288:71,12800:72,13312:73,13824:74,14336:75,14848:76,15360:77,15872:78},vg[29248]={24576:79,24640:80,25088:81,25152:82},vg[28700]={28672:93,28676:94,28680:95,28684:96,28688:97, 28692:98,28696:99,28700:100},vg),xf=["","I","M","S"],yf=" L E LE A GE N G".split(" "),zf="N NE NA NN Z ZE ZA ZN C CE CA CN O OE OA ON".split(" "),Cf=[{0:85,8:102,4:103,2:104,6:105,1:106},{0:88,4:107,2:108,10:109}],of=1E3,rf=">> ";Xa(function(){for(var a=x(document,w,"debugger"),b=0;b([\s\S]*?)<\/pre>/gi;e=b.exec(c);)e=e[1],0<=e.indexOf("&")&&(e=e.replace(/</gi,"<").replace(/>/gi,">").replace(/&/gi,"&")),d+=e;(e=d.match(/&[a-z]+;/i))&&yg(a,"unrecognized HTML entity: "+e[0])}a.ea&&(a.ea+="\n");a.ea+=d;setTimeout(function(){wg(a)},0)}})} -function xg(a){if(0<=a.R.indexOf("p"))return a.u(a.ea),0;var b=Qe(a.i);try{var c,d=a.ea.split(/\r?\n/);for(c=0;c([\s\S]*?)<\/pre>/gi;c=b.exec(d);)c=c[1],0<=c.indexOf("&")&&(c=c.replace(/</gi,"<").replace(/>/gi,">").replace(/&/gi,"&")),e+=c;(c=e.match(/&[a-z]+;/i))&&yg(a,"unrecognized HTML entity: "+c[0])}a.ea&&(a.ea+="\n");a.ea+=e;setTimeout(function(){wg(a)},0)}})}} +function xg(a){if(0<=a.R.indexOf("p"))return a.u(a.ea),0;var b=Qe(a.i);try{var c,d=a.ea.split(/\r?\n/);for(c=0;c=--g)break}0>g&&a.error("missing bracket(s): "+f);0<=m&&(h=f.substr(m,k-m));for((f=h)&&(b=b.replace(f,Gg(a,Hg,f)));f=Ig(a,b);)b=b.replace(f,f.slice(0,-1));if(!Dg(a,d,b))switch(d){case "=":d=Bg(a,b);void 0===d?a.error("parseExpression("+ -b+")"):Fg(a,c,d);break;case Jg:case Kg:case Lg:Eg(a,e);break;case Mg:Ng(a,0,b.replace(",",",,"));break;case Og:case Pg:case Qg:Gg(a,d,b);break;case Rg:case Sg:break;default:c=d,d=b,b=c+d,0<=b.indexOf(",,")||!c&&0>b.indexOf("@")&&0>b.indexOf("(")?c=Bg(a,b,!0):(c=Df(a.i,c,d,a.sa,!0),0>c&&(c=Df(a.i,"",b,a.sa,!0),0>c&&(c=void 0))),void 0!==c?Ng(a,c,a.i.ka):a.error("unrecognized expression: "+b)}return!0} +b),!1;c=e[1];d=e[2].toUpperCase();b=e[3].trim();e=e[3]+e[4];if(c){var f=c.slice(-1),c=c.slice(0,-1);":"==f?Fg(a,c,a.ta,!0):(b=d+b,d=f)}if(!d&&!b)return!0;"="==b[0]&&(c=d,b=b.substr(1),d="=");a.F=d;for(var f=b,g=0,h=null,k=0,m=-1;k=--g)break}0>g&&a.error("missing bracket(s): "+f);0<=m&&(h=f.substr(m,k-m));for((f=h)&&(b=b.replace(f,Gg(a,Hg,f)));f=Ig(a,b);)b=b.replace(f,f.slice(0,-1));if(!Dg(a,d,b))switch(d){case "=":d=Bg(a,b);void 0===d?a.error("parseExpression("+ +b+")"):Fg(a,c,d);break;case Jg:case Kg:case Lg:Eg(a,e);break;case Mg:Ng(a,0,b.replace(",",",,"));break;case Og:case Pg:case Qg:Gg(a,d,b);break;case Rg:case Sg:break;default:c=d,d=b,b=c+d,0<=b.indexOf(",,")||!c&&0>b.indexOf("@")&&0>b.indexOf("(")?c=Bg(a,b,!0):(c=Df(a.i,c,d,a.ta,!0),0>c&&(c=Df(a.i,"",b,a.ta,!0),0>c&&(c=void 0))),void 0!==c?Ng(a,c,a.i.ka):a.error("unrecognized expression: "+b)}return!0} function Dg(a,b,c){var d=a.v[b];if(!d)return!1;if(null!=c){b=",";"("==c[0]&&(b+=")",c=c.substr(1));for(var e=[];c;){c=c.trim();var f=Tg(a,c,b);if(!f)break;e.push(f);c=c.substr(f.length+1)}Ag(a,d.ea,d.ub,e);return!0}if("_"!=b[0])return!1;switch(b.substr(1)){case Pg:d.mb||Ag(a,d.ea);break;case Qg:for(;0p)break;var m=p+1,q=p+h.length;p&&f[p-1].match(/[0-9A-Z$%.]/i)||!(q>=f.length)&&f[q].match(/[0-9A-Z$%.]/i)||(f=f.substr(0,p)+k+f.substr(q),m=p+k.length)}if(!zg(a,f))break}}og.prototype.error=function(a){throw Error("error"+(this.ma?" at line "+va(this.ma):"")+": "+a);}; function yg(a,b){a.u("warning"+(a.ma?" at line "+va(a.ma):"")+": "+b)}function Tg(a,b,c){c=void 0===c?",":c;for(var d=0,e=null,f=0;d"==g&&0>--f){a.error("missing bracket(s): "+b);break}d++}f?0d?c="":(c=b.substr(d+1),b=b.substr(0,d),a.j=null);a.w+=b}if(null==a.j){var d=b=0,e,f,g=a.w.length;a.F==Kg&&g++;for(var h=0;h=k&&(k-=32),k=k+32&63);d+=k*Math.pow(2,f);f-=e;b++;0>f&&(Ng(a,d),b=0)}b&&Ng(a,d)}return c} -function Gg(a,b,c){var d,e,f,g;a.J="<";a.H=">";e=f=[];if(b==Og){d=c.match(/([A-Z$%.][0-9A-Z$%.]*)\s*(\([^)]*\)|)\s*(<|)(.*)/i);if(!d)return a.error("unrecognized "+b+" definition: "+c),"";b=d[1];a.v[b]&&a.error("macro redefined: "+b);e=d[2].match(/[A-Z$%.][0-9A-Z$%.]*/g);c=Vg;g=3}else if(b==Hg)a.J="[",a.H="]",b="_"+va(a.sa,5),a.v[b]&&a.error("literal symbol redefined: "+b),d=[c[0],b+": "+c.substr(1)],c=Wg,a.D.push(b),g=0;else{g=Tg(a,c);if(!g)return a.error("missing "+b+" expression: "+c),"";c=c.substr(g.length+ +function Gg(a,b,c){var d,e,f,g;a.J="<";a.H=">";e=f=[];if(b==Og){d=c.match(/([A-Z$%.][0-9A-Z$%.]*)\s*(\([^)]*\)|)\s*(<|)(.*)/i);if(!d)return a.error("unrecognized "+b+" definition: "+c),"";b=d[1];a.v[b]&&a.error("macro redefined: "+b);e=d[2].match(/[A-Z$%.][0-9A-Z$%.]*/g);c=Vg;g=3}else if(b==Hg)a.J="[",a.H="]",b="_"+va(a.ta,5),a.v[b]&&a.error("literal symbol redefined: "+b),d=[c[0],b+": "+c.substr(1)],c=Wg,a.D.push(b),g=0;else{g=Tg(a,c);if(!g)return a.error("missing "+b+" expression: "+c),"";c=c.substr(g.length+ 1);g=g.trim();d=c.match(/\s*(<|)(.*)/i);b="_"+b;c=Bg(a,g)||0;g=1}b=b.toUpperCase();a.b=1;var h="";d[g]&&(a.b=2,h=d[g+1],h.slice(-1)==a.H&&(a.b=0,h=h.slice(0,-1)));a.v[b]={name:b,mb:c,ub:e,Jb:f,ea:h,ma:a.ma};a.b?a.C=b:Dg(a,b);return b}function Fg(a,b,c,d){var e,f;d=void 0===d?!1:d;e=void 0===e?!1:e;f=void 0===f?!1:f;b=b.toUpperCase().substr(0,6);d&&a.O[b]?a.error("label "+b+" redefined"):(a.O[b]={name:b,value:c,ma:a.ma,jd:d,hd:e,kd:f},a.i.K[b]=c)} -function Ng(a,b,c){a.G[a.sa]=Cg(a,b);null!=c&&a.I.push({sa:a.sa,Db:c});a.sa++}function Cg(a,b,c){c=void 0===c?a.sa:c;var d=Ie(a.i,b||0,36,!0);(b<-C||b>=E)&&yg(a,"truncated value "+ua(b)+" at location "+ua(c)+" to "+ua(d));return d}var Jg="ASCII",Kg="ASCIZ",Og="DEFINE",Pg="IFE",Hg="LITERAL",Rg="PAGE",Qg="REPEAT",Lg="SIXBIT",Sg="SUBTTL",Mg="XWD",Vg=-1,Wg=-2,Ug=-3; +function Ng(a,b,c){a.G[a.ta]=Cg(a,b);null!=c&&a.I.push({ta:a.ta,Db:c});a.ta++}function Cg(a,b,c){c=void 0===c?a.ta:c;var d=Ie(a.i,b||0,36,!0);(b<-C||b>=E)&&yg(a,"truncated value "+ua(b)+" at location "+ua(c)+" to "+ua(d));return d}var Jg="ASCII",Kg="ASCIZ",Og="DEFINE",Pg="IFE",Hg="LITERAL",Rg="PAGE",Qg="REPEAT",Lg="SIXBIT",Sg="SUBTTL",Mg="XWD",Vg=-1,Wg=-2,Ug=-3; function Xg(a,b,c){u.call(this,"Computer",a,33554432);this.A.X=!1;this.R=null;Yg(this,b);this.O=Yc(this,"autoPower",a,6);this.w=0;this.ba=+a.busWidth||+a.buswidth;this.L=this.F=this.M=null;this.K=this.U=!1;this.I=this.C=null;this.S=this.P=!1;this.ca=Yc(this,"url")||"";(Math.random()+.1).toString(36);this.i=Zg(this);if(this.v=qb("CPU",this.id)){this.D=qb("Debugger",this.id);this.G=new xc({id:this.Ua+".bus",busWidth:this.ba},this.v,this.D);var d,e=ob(this.id);if((this.j=qb("Panel",this.id))&&this.j.wa)for(b= 0;b\nLicense: GPL version 3 or later ");for(b=0;b