diff --git a/apps/pdp10/tapes/diags/klad/README.md b/apps/pdp10/tapes/diags/klad/README.md index 5cffdf9b0..2721039a6 100644 --- a/apps/pdp10/tapes/diags/klad/README.md +++ b/apps/pdp10/tapes/diags/klad/README.md @@ -10,4 +10,5 @@ PDP-10 KLAD Diagnostic Tapes PCjs has archived selected files from [PDP-10 KLAD Diagnostics Sources](http://pdp-10.trailing-edge.com/klad_sources/index.html), including: -- [KA10 BASIC INSTRUCTION DIAGNOSTIC (MAINDEC-10-DAKAD-B-D)](dakad/) +- [KA10 Basic Instruction Diagnostic #1 (MAINDEC-10-DAKAA-B-D)](dakaa/) +- [KA10 Basic Instruction Diagnostic #4 (MAINDEC-10-DAKAD-B-D)](dakad/) 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.txt b/apps/pdp10/tapes/diags/klad/dakaa/DAKAA.MAC.txt new file mode 100644 index 000000000..cf610bb6a --- /dev/null +++ b/apps/pdp10/tapes/diags/klad/dakaa/DAKAA.MAC.txt @@ -0,0 +1,1042 @@ +SUBTTL DIAGNOSTIC SECTION + +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] +/ + +;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 +SUBTTL TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS + +;NOTE: AN "*" IN THE COMMENT FIELD OF AN INSTRUCTION INDICATES THAT IT IS THE TESTED +;INSTRUCTION. +;********** + +;THIS TEST VERIFIES THAT SKIPA ALWAYS SKIPS THE NEXT INSTRUCTION + +A00=. +A12500: SKIPA ;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION + HALT ;IF PROGRAM HALTS, SKIPA DID NOT SKIP + +;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] + +;********** + +;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 + + diff --git a/apps/pdp10/tapes/diags/klad/dakaa/README.md b/apps/pdp10/tapes/diags/klad/dakaa/README.md new file mode 100644 index 000000000..99435fbbc --- /dev/null +++ b/apps/pdp10/tapes/diags/klad/dakaa/README.md @@ -0,0 +1,294 @@ +--- +layout: page +title: PDP-10 KA10 Basic Instruction Diagnostic #1 +permalink: /apps/pdp10/tapes/diags/klad/dakaa/ +machines: + - id: testka10 + 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.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: + +- [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" %} + +The Debugger's assemble ("a") command can be used to test the new built-in +[MACRO-10 mini-assembler](/modules/pdp10/lib/macro10.js), which supports a subset +of the [MACRO-10](http://archive.pcjs.org/pubs/dec/pdp10/tops10/02_1973AsmRef_macro.pdf) assembly language. +This command: + + a 30724 /apps/pdp10/tapes/diags/klad/dakaa/TEST.MAC + +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. + +--- + +DAKAA.TXT +--------- + +``` +MAINDEC-10-DAKAA + + + + + + + + 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 + + + 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 + + +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 + + +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 + + +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 + +``` + +DAKAA.HST +--------- + +``` + THIS IS A HISTORY OF THE DEVELOPMENT OF MAINDEC-10-DAKAA + +************************************************************************ + +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.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**, 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.txt b/apps/pdp10/tapes/diags/klad/dakaa/TEST.MAC.txt new file mode 100644 index 000000000..818244639 --- /dev/null +++ b/apps/pdp10/tapes/diags/klad/dakaa/TEST.MAC.txt @@ -0,0 +1,1054 @@ +;MACROS + +; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1) +; TO A (JUMPA X) TO CYCLE ON FAILING INSTRUCTION + +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> + +SUBTTL DIAGNOSTIC SECTION + +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] +/ + +;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 +SUBTTL TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS + +;NOTE: AN "*" IN THE COMMENT FIELD OF AN INSTRUCTION INDICATES THAT IT IS THE TESTED +;INSTRUCTION. +;********** + +;THIS TEST VERIFIES THAT SKIPA ALWAYS SKIPS THE NEXT INSTRUCTION + +A00=. +A12500: SKIPA ;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION + HALT ;IF PROGRAM HALTS, SKIPA DID NOT SKIP + +;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] + +;********** + +;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 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 2bcdbe12f..d36951188 100644 --- a/apps/pdp10/tapes/diags/klad/dakad/README.md +++ b/apps/pdp10/tapes/diags/klad/dakad/README.md @@ -1,44 +1,55 @@ --- layout: page -title: PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC +title: PDP-10 KA10 Basic Instruction Diagnostic #4 permalink: /apps/pdp10/tapes/diags/klad/dakad/ machines: - id: testka10 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 ----------------------------------------- +PDP-10 KA10 Basic Instruction Diagnostic #4 +------------------------------------------- -The *PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC* (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)] for use with the -[PDP-10 Test Machine with Debugger](/devices/pdp10/machine/ka10/test/debugger/) below. +The *PDP-10 KA10 Basic Instruction Diagnostic #4* (MAINDEC-10-DAKAD-B-D) test code has been extracted from +[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" %} The Debugger's assemble ("a") command can be used to test the new built-in [MACRO-10 mini-assembler](/modules/pdp10/lib/macro10.js), which supports a subset -of the [MACRO-10](http://archive.pcjs.org/pubs/dec/pdp10/tops10/02_1973AsmRef_macro.pdf) assembly language. This command: +of the [MACRO-10](http://archive.pcjs.org/pubs/dec/pdp10/tops10/02_1973AsmRef_macro.pdf) assembly language. +This command: - a 100 /apps/pdp10/tapes/diags/klad/dakad/TEST.MAC + 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 100` to dump the first block 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: - 000100: 254000 000114 502112 026542 +...&PDP-1 - 000102: 301011 340542 301010 240646 0 KA10 BAS - 000104: 446064 044634 516512 252606 IC INSTRUC - 000106: 522231 747100 422230 143634 TION DIAGN - 000110: 476472 444606 201206 424500 OSTIC (4) - 000112: 556110 145602 422721 505000 [DAKAD]... - -{% include machine.html id="testka10" %} + 030724: 254000 030741 053 000 000 061 160 +..1p + 030725: 064252 042240 015 012 120 104 120 ..PDP + 030726: 265426 020226 055 061 060 040 113 -10 K + 030727: 405426 020204 101 061 060 040 102 A10 B + 030730: 406471 141500 101 123 111 103 040 ASIC + 030731: 446352 352244 111 116 123 124 122 INSTR + 030732: 526072 444636 125 103 124 111 117 UCTIO + 030733: 471010 444602 116 040 104 111 101 N DIA + 030734: 436351 751650 107 116 117 123 124 GNOST + 030735: 446064 024150 111 103 040 050 064 IC (4 + 030736: 245013 342202 051 040 133 104 101 ) [DA + 030737: 456030 456432 113 101 104 135 015 KAD]. --- @@ -238,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 c8fed782c..bb1e191e3 100644 --- a/devices/pdp10/machine/ka10/test/debugger/machine.xml +++ b/devices/pdp10/machine/ka10/test/debugger/machine.xml @@ -1,12 +1,12 @@ - PDP-10 Test Machine with Debugger + PDP-10 (Model KA10) with Debugger - - + + diff --git a/devices/pdp10/panel/README.md b/devices/pdp10/panel/README.md index b6cea17fc..9b2e56a76 100644 --- a/devices/pdp10/panel/README.md +++ b/devices/pdp10/panel/README.md @@ -7,4 +7,5 @@ permalink: /devices/pdp11/panel/ PDP-10 Control Panels --------------------- +* [KA10 Front Panels](ka10/) * [Terminal Test Panels](test/) diff --git a/devices/pdp10/panel/ka10/README.md b/devices/pdp10/panel/ka10/README.md new file mode 100644 index 000000000..83795b05c --- /dev/null +++ b/devices/pdp10/panel/ka10/README.md @@ -0,0 +1,10 @@ +--- +layout: page +title: "PDP-10 (Model KA10) Front Panels" +permalink: /devices/pdp10/panel/ka10/ +--- + +PDP-10 (Model KA10) Front Panels +-------------------------------- + +* [Front Panel with Debugger](debugger/) diff --git a/devices/pdp10/panel/ka10/debugger/README.md b/devices/pdp10/panel/ka10/debugger/README.md new file mode 100644 index 000000000..c1550c8e2 --- /dev/null +++ b/devices/pdp10/panel/ka10/debugger/README.md @@ -0,0 +1,10 @@ +--- +layout: page +title: "PDP-10 (Model KA10) Front Panel with Debugger" +permalink: /devices/pdp10/panel/ka10/debugger/ +--- + +PDP-10 (Model KA10) Front Panel with Debugger +-------------------------------------------- + +* [Front Panel with Debugger](front.xml) diff --git a/devices/pdp10/panel/ka10/debugger/front.xml b/devices/pdp10/panel/ka10/debugger/front.xml new file mode 100644 index 000000000..e38a1249c --- /dev/null +++ b/devices/pdp10/panel/ka10/debugger/front.xml @@ -0,0 +1,84 @@ + + + Control Panel + + + STRT + STEP + E/H + + + + + + CONT + DEP + EXAM + + + + + + LOAD + TEST + + + + + 17 + 16 + 15 + + + + + + 14 + 13 + 12 + + + + + + 11 + 10 + 9 + + + + + + 8 + 7 + 6 + + + + + + 5 + 4 + 3 + + + + + + 2 + 1 + 0 + + + + + + + + + + Enter + Clear + + + diff --git a/docs/pcx86/examples/pcx86-dbg.js b/docs/pcx86/examples/pcx86-dbg.js index 87fa9d818..8a1e90977 100644 --- a/docs/pcx86/examples/pcx86-dbg.js +++ b/docs/pcx86/examples/pcx86-dbg.js @@ -51,8 +51,9 @@ var la={163840:[40,1,8,,254],184320:[40,1,9,,252],327680:[40,2,8,,255],368640:[4 y:121,z:122,"{":123,"|":124,"}":125,"~":126,Mp:127},ma={};ma[173]=n["-"];ma[186]=n[";"];ma[187]=n["="];ma[189]=n["-"];ma[188]=n[","];ma[190]=n["."];ma[191]=n["/"];ma[192]=n["`"];ma[219]=n["["];ma[220]=n["\\"];ma[221]=n["]"];ma[222]=n["'"];var na={};na[n["1"]]=n["!"];na[n["2"]]=n["@"];na[n["3"]]=n["#"];na[n["4"]]=n.$;na[n["5"]]=n["%"];na[n["6"]]=n["^"];na[n["7"]]=n["&"];na[n["8"]]=n["*"];na[n["9"]]=n["("];na[n["0"]]=n[")"];na[186]=n[":"];na[187]=n["+"];na[188]=n["<"];na[189]=n._;na[190]=n[">"]; na[191]=n["?"];na[192]=n["~"];na[219]=n["{"];na[220]=n["|"];na[221]=n["}"];na[222]=n['"'];na[173]=n._;na[61]=n["+"];na[59]=n[":"]; function oa(a,b){var c;if(a){b||(b=10);var d=a.charAt(0),e=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 qa(a,b){var c,d="";b?32>=1,f--;return d}function ra(a,b,c){var d="";if(!b||4>=8;return(c?"0b":"")+d}function sa(a,b,c){b?12f&&(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 qa(a,b){var c,d="";b?32>=1,f--;return d} +function ra(a,b,c){var d="";if(!b||4>=8;return(c?"0b":"")+d}function sa(a,b,c){b?12"']/g,function(a){return Aa[a]})} function Ba(a,b,c){return c?(" "+a).slice(-b):(a+" ").slice(0,b)}function Ca(a){return String.prototype.trim?a.trim():a.replace(/^\s+|\s+$/g,"")} var Aa={"&":"&","<":"<",">":">",'"':""","'":"'"},Da={0:"NUL",1:"SOH",2:"STX",3:"ETX",4:"EOT",5:"ENQ",6:"ACK",7:"BEL",8:"BS",9:"TAB",10:"LF",11:"VT",12:"FF",13:"CR",14:"SO",15:"SI",16:"DLE",17:"XON",18:"DC2",19:"XOFF",20:"DC4",21:"NAK",22:"SYN",23:"ETB",24:"CAN",25:"EM",26:"SUB",27:"ESC",28:"FS",29:"GS",30:"RS",31:"US"};function Ea(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]);0=c>>2);d?(b=new Ub(a.x,a.y,a.Nc,a.A*b/c|0),a.y+=b.A,a.A-=b.A):(b=new Ub(a.x,a.y,a.Nc*b/c|0,a.A),a.x+=b.Nc,a.Nc-=b.Nc);return b}function Wb(a){nb.call(this,"Panel",a);this.F=this.G=this.L=-1}ba(Wb,nb);l=Wb.prototype;l.Cb=function(a,b,c,d){return this.pa&&this.pa.Cb(a,b,c,d)||this.H&&this.H.Cb(a,b,c,d)||this.B&&this.B.Cb(a,b,c,d)||this.ba&&this.ba.Cb(a,b,c,d)?!0:nb.prototype.Cb.call(this,a,b,c,d)}; l.uc=function(a,b,c,d){this.pa=a;this.ka=b;this.H=c;this.ba=d;this.B=Xb(a,"Keyboard")};l.Xb=function(a,b){b||Yb();return!0};l.Wb=function(){return!0};l.Vd=function(a,b){a.button||(this.L=b?0:-1,Zb(this,a,b))};l.tf=function(a){Zb(this,a)}; function Zb(a,b,c){var d=$b/null.offsetWidth,e=ac/null.offsetHeight,f=null.getBoundingClientRect(),d=(b.clientX-f.left)*d|0;b=(b.clientY-f.top)*e|0;null==c&&(a.L||(a.L=Math.abs(a.F-d)>Math.abs(a.G-b)?1:2),1==a.L?b=a.G:2==a.L&&(d=a.F));a.F=d;a.G=b;if(0<=d&&d<$b&&0<=b&&bd&&(f=d);c= -f;break a}c=-1}if(-1!==c&&(c&=-16,c!=a.ga)){b=c;if(a.context&&a.N&&a.O){e=dc-ec;f=a.N.width;a.O.fillStyle=fc;a.O.fillRect(0,e,f,ec);gc(a,e+hc,a.N,a.O);a.W=a.ha.width/24|0;if(null==b)ic(a,"Mouse over memory to dump");else for(ic(a,q(b,8,!0),null,0,1),d=1;16>=d;d++){for(var g="",h=1;8>=h;h++){var k;k=a.ka;var m=b++;k=k.aa[(m&k.C)>>>k.A].Zd(m&k.D,m);ic(a,q(k,2),null,1);g+=32<=k&&128>k?String.fromCharCode(k):"."}ic(a,g,null,0,1)}a.context.drawImage(a.N,0,e,f,ec,a.Da,a.Ha,a.va,a.za)}a.ga=c}}} -function jc(a,b,c,d){a.A.kf[a.A.$i++]={Ll:b,Hd:c,type:d};return Ga(cc,b,c,0,d)}function gc(a,b,c,d){var e,f=null.style.color,g=a.ta=10;a.C=g;a.I=b;a.J=a.aa=hc;e||(e=a.Z||a.aa+"px "+kc);a.M=a.Z=e;c&&(a.ha=c);d&&(a.D=d,a.la=f||"white")}function ic(a,b,c,d,e){a.D.font=a.M;a.D.fillStyle=a.la;a.D.fillText(b,a.C,a.I);a.C+=a.W;null!=c&&(16!=a.Ca?b=c.toString():(b=8>a.qa?"0x":"",b+=q(c,a.qa)),a.D.fillText(b,a.C,a.I),a.C+=a.W);d&&(a.C+=a.W*d);e&&(a.C=a.ta,a.I+=(a.J+2)*(e||1))} +f;break a}c=-1}if(-1!==c&&(c&=-16,c!=a.ga)){b=c;if(a.context&&a.N&&a.O){e=dc-ec;f=a.N.width;a.O.fillStyle=fc;a.O.fillRect(0,e,f,ec);gc(a,e+hc,a.N,a.O);a.V=a.ha.width/24|0;if(null==b)ic(a,"Mouse over memory to dump");else for(ic(a,q(b,8,!0),null,0,1),d=1;16>=d;d++){for(var g="",h=1;8>=h;h++){var k;k=a.ka;var m=b++;k=k.aa[(m&k.C)>>>k.A].Zd(m&k.D,m);ic(a,q(k,2),null,1);g+=32<=k&&128>k?String.fromCharCode(k):"."}ic(a,g,null,0,1)}a.context.drawImage(a.N,0,e,f,ec,a.Da,a.Ha,a.va,a.za)}a.ga=c}}} +function jc(a,b,c,d){a.A.kf[a.A.$i++]={Ll:b,Hd:c,type:d};return Ga(cc,b,c,0,d)}function gc(a,b,c,d){var e,f=null.style.color,g=a.ta=10;a.C=g;a.I=b;a.J=a.aa=hc;e||(e=a.Z||a.aa+"px "+kc);a.M=a.Z=e;c&&(a.ha=c);d&&(a.D=d,a.la=f||"white")}function ic(a,b,c,d,e){a.D.font=a.M;a.D.fillStyle=a.la;a.D.fillText(b,a.C,a.I);a.C+=a.V;null!=c&&(16!=a.Ca?b=c.toString():(b=8>a.qa?"0x":"",b+=q(c,a.qa)),a.D.fillText(b,a.C,a.I),a.C+=a.V);d&&(a.C+=a.V*d);e&&(a.C=a.ta,a.I+=(a.J+2)*(e||1))} function Yb(){for(var a=!1,b=Ab(document,"pcx86","panel"),c=0;c>2,lc=ac,dc=ac,fc="black",ec=ac>>1;ab(Yb); -function mc(a,b,c){nb.call(this,"Bus",a);this.H=b;this.ba=c;this.I=a.busWidth||20;this.O=Math.pow(2,this.I);this.N=this.C=this.O-1|0;this.A=32==this.I||20>=this.I?12:24>=this.I?14:15;this.B=1<>2;this.D=this.B-1;this.M=this.O/this.B|0;this.W=this.M-1;this.F=[];this.G=[];this.K=this.L=!1;this.Y=[];this.Z=[];a=new x;nc(a,this.ba);this.aa=Array(this.M);for(b=0;b=this.I?12:24>=this.I?14:15;this.B=1<>2;this.D=this.B-1;this.M=this.O/this.B|0;this.V=this.M-1;this.F=[];this.G=[];this.K=this.L=!1;this.Y=[];this.Z=[];a=new x;nc(a,this.ba);this.aa=Array(this.M);for(b=0;b>>a.A;0g&&(p=g);if(k&&k.size){if(k.type==d&&k.controller==e){if(f+g<=k.xa)return k.ve+=k.xa-f,k.xa=f,!0;if(f>=k.xa+k.ve){p=k.size-(f-m);p>g&&(p=g);k.ve=f-k.xa+p;f=m+a.B;g-=p;h++;continue}}return qc(a,sc,f,g)}f=new x(f,p,a.B,d,e);nc(f,a.ba,k);a.aa[h++]=f;f=m+a.B;g-=p}return 0>=g?(tc(a.H),a.H.ea.vb||a.status(Math.floor(c/1024)+"Kb "+vc[d]+" at "+q(b)),!0):qc(a,wc,b,c)} +function pc(a,b,c,d,e){for(var f=b,g=c,h=f>>>a.A;0g&&(p=g);if(k&&k.size){if(k.type==d&&k.controller==e){if(f+g<=k.ya)return k.ve+=k.ya-f,k.ya=f,!0;if(f>=k.ya+k.ve){p=k.size-(f-m);p>g&&(p=g);k.ve=f-k.ya+p;f=m+a.B;g-=p;h++;continue}}return qc(a,sc,f,g)}f=new x(f,p,a.B,d,e);nc(f,a.ba,k);a.aa[h++]=f;f=m+a.B;g-=p}return 0>=g?(tc(a.H),a.H.ea.wb||a.status(Math.floor(c/1024)+"Kb "+vc[d]+" at "+q(b)),!0):qc(a,wc,b,c)} function oc(a,b){32==a.I?b?a.J&&(xc(a,1048576,1048576,a.J),a.J=null):a.J||(a.J=yc(a,1048576,1048576),xc(a,1048576,1048576,yc(a,0,1048576))):20>>this.A;0>>a.A;0>>=a.A;0>>a.A;0>>this.A].Bc(a&this.D,a)};function Jc(a,b){var c=b&a.D,d=(b&a.C)>>>a.A;return c!=a.D?a.aa[d].Nf(c,b):a.aa[d++].Zd(c,b)|a.aa[d&a.W].Zd(0,b+1)<<8} -l.fc=function(a,b){this.aa[(a&this.C)>>>this.A].Dc(a&this.D,b&255,a)};function Kc(a,b,c){var d=b&a.D,e=(b&a.C)>>>a.A;d!=a.D?a.aa[e].ri(d,c&65535,b):(a.aa[e++].bf(d,c&255,b),a.aa[e&a.W].bf(0,c>>8&255,b+1))}l.wj=function(){return null}; -function Lc(a,b){var c=0,d=[],e=!a.J&&a.N==a.C;e||oc(a,!0);for(var f=0;f>>a.A;0>>this.A].Bc(a&this.D,a)};function Jc(a,b){var c=b&a.D,d=(b&a.C)>>>a.A;return c!=a.D?a.aa[d].Nf(c,b):a.aa[d++].Zd(c,b)|a.aa[d&a.V].Zd(0,b+1)<<8} +l.fc=function(a,b){this.aa[(a&this.C)>>>this.A].Dc(a&this.D,b&255,a)};function Kc(a,b,c){var d=b&a.D,e=(b&a.C)>>>a.A;d!=a.D?a.aa[e].ri(d,c&65535,b):(a.aa[e++].bf(d,c&255,b),a.aa[e&a.V].bf(0,c>>8&255,b+1))}l.wj=function(){return null}; +function Mc(a,b){var c=0,d=[],e=!a.J&&a.N==a.C;e||oc(a,!0);for(var f=0;f>>=f)&k;if(void 0!==g){if(g[0])g[0](b,k,e);a.ba&&a.L!=g[1]&&Uc(a.ba,b,k)}else a.ba&&(Nb(a.ba,a,b,k,e),a.L&&Uc(a.ba,b,k));f+=h<<3;b+=h;c-=h}}function qc(a,b,c,d,e){b="Memory block error ("+b+": "+q(c)+","+q(d)+")";e?a.ba?a.ba.message(b):a.log(b):hb(b);return!1}var cc,Vc={Hk:20,count:8,aq:1,type:3},Wc=0,Xc;for(Xc in Vc){var Yc=Vc[Xc];Vc[Xc]={nh:(1<>1),this.X=new Int32Array(this.I,0,c>>2),Ac(this,Fc?Gc:Hc);else{this.X=Array(c>>2);for(e=0;e>2),b=0;b>1),this.X=new Int32Array(this.I,0,c>>2),Ac(this,Fc?Gc:Hc);else{this.X=Array(c>>2);for(e=0;e>2),b=0;b>8,c)};l.oi=function(a,b,c){this.Dc(a++,b&255,c++);this.Dc(a++,b>>8&255,c++);this.Dc(a++,b>>16&255,c++);this.Dc(a,b>>>24,c)};l.xo=function(a){return this.X[a>>2]>>>((a&3)<<3)&255}; l.Jo=function(a){var b=a>>2;a=(a&3)<<3;var c=this.X[b]>>a;return 24>a?c&65535:c&255|(this.X[b+1]&255)<<8};l.Do=function(a){var b=a>>2;a=(a&3)<<3;var c=this.X[b];a&&(c=c>>>a|this.X[b+1]<<32-a);return c};l.Vo=function(a,b){var c=a>>2;a=(a&3)<<3;this.X[c]=this.X[c]&~(255<>2;a=(a&3)<<3;24>a?this.X[c]=this.X[c]&~(65535<>8);this.Oa=!0}; -l.ap=function(a,b){var c=a>>2;if(a=(a&3)<<3){var d=-1<>>32-a}else this.X[c]=b;this.Oa=!0};l.wo=function(a,b){this.ba&&null!=this.xa&&qd(this.ba,this.xa+a)||this.C&&rd(this.C,b,1,!1);return this.Zd(a,b)};l.Io=function(a,b){this.ba&&null!=this.xa&&qd(this.ba,this.xa+a,2)||this.C&&rd(this.C,b,2,!1);return this.Nf(a,b)};l.Co=function(a,b){this.ba&&null!=this.xa&&qd(this.ba,this.xa+a,4)||this.C&&rd(this.C,b,4,!1);return this.ji(a,b)}; -l.Uo=function(a,b,c){this.ba&&null!=this.xa&&sd(this.ba,this.xa+a)||this.C&&rd(this.C,c,1,!0);this.D?this.cf(0,b,c):this.bf(a,b,c)};l.gp=function(a,b,c){this.ba&&null!=this.xa&&sd(this.ba,this.xa+a,2)||this.C&&rd(this.C,c,2,!0);this.D?this.cf(0,b,c):this.ri(a,b,c)};l.$o=function(a,b,c){this.ba&&null!=this.xa&&sd(this.ba,this.xa+a,4)||this.C&&rd(this.C,c,4,!0);this.D?this.cf(0,b,c):this.K(a,b,c)};l.zo=function(a,b){this.nb.X[this.A]|=this.F;this.ob.X[this.B]|=this.F;return this.pd.Bc(a,b)}; -l.Lo=function(a,b){this.nb.X[this.A]|=this.F;this.ob.X[this.B]|=this.F;return this.pd.Mf(a,b)};l.Fo=function(a,b){this.nb.X[this.A]|=this.F;this.ob.X[this.B]|=this.F;return this.pd.Nd(a,b)};l.Xo=function(a,b,c){this.nb.X[this.A]|=this.F;this.ob.X[this.B]|=this.J;this.pd.Dc(a,b,c)};l.jp=function(a,b,c){this.nb.X[this.A]|=this.F;this.ob.X[this.B]|=this.J;this.pd.Tf(a,b,c)};l.cp=function(a,b,c){this.nb.X[this.A]|=this.F;this.ob.X[this.B]|=this.J;this.pd.Sf(a,b,c)}; -l.Ao=function(a,b){return td(this.C,b,!1).Bc(a,b)};l.Mo=function(a,b){return td(this.C,b,!1).Mf(a,b)};l.Go=function(a,b){return td(this.C,b,!1).Nd(a,b)};l.Yo=function(a,b,c){td(this.C,c,!0).Dc(a,b,c)};l.kp=function(a,b,c){td(this.C,c,!0).Tf(a,b,c)};l.ep=function(a,b,c){td(this.C,c,!0).Sf(a,b,c)};l.vo=function(a){return this.Pa[a]};l.Qk=function(a){return this.Pa[a]};l.yo=function(a){this.nb.X[this.A]|=32;this.ob.X[this.B]|=32;this.Bc=this.Qk;return this.Pa[a]}; -l.Ho=function(a){return this.G.getUint16(a,!0)};l.Vk=function(a){return a&1?this.Pa[a]|this.Pa[a+1]<<8:this.Rd[a>>1]};l.Ko=function(a){this.nb.X[this.A]|=32;this.ob.X[this.B]|=32;this.Mf=this.Vk;return a&1?this.Pa[a]|this.Pa[a+1]<<8:this.Rd[a>>1]};l.Bo=function(a){return this.G.getInt32(a,!0)};l.Sk=function(a){return a&3?this.Pa[a]|this.Pa[a+1]<<8|this.Pa[a+2]<<16|this.Pa[a+3]<<24:this.X[a>>2]}; -l.Eo=function(a){this.nb.X[this.A]|=32;this.ob.X[this.B]|=32;this.Nd=this.Sk;return a&3?this.Pa[a]|this.Pa[a+1]<<8|this.Pa[a+2]<<16|this.Pa[a+3]<<24:this.X[a>>2]};l.To=function(a,b){this.Pa[a]=b;this.Oa=!0};l.el=function(a,b){this.Pa[a]=b;this.Oa=!0};l.Wo=function(a,b){this.Pa[a]=b;this.nb.X[this.A]|=32;this.ob.X[this.B]|=96;this.Dc=this.el;this.pd.Oa=!0};l.fp=function(a,b){this.G.setUint16(a,b,!0);this.Oa=!0};l.gl=function(a,b){a&1?(this.Pa[a]=b,this.Pa[a+1]=b>>8):this.Rd[a>>1]=b;this.Oa=!0}; -l.ip=function(a,b){a&1?(this.Pa[a]=b,this.Pa[a+1]=b>>8):this.Rd[a>>1]=b;this.nb.X[this.A]|=32;this.ob.X[this.B]|=96;this.Tf=this.gl;this.pd.Oa=!0};l.Zo=function(a,b){this.G.setInt32(a,b,!0);this.Oa=!0};l.fl=function(a,b){a&3?(this.Pa[a]=b,this.Pa[a+1]=b>>8,this.Pa[a+2]=b>>16,this.Pa[a+3]=b>>24):this.X[a>>2]=b;this.Oa=!0}; -l.bp=function(a,b){a&3?(this.Pa[a]=b,this.Pa[a+1]=b>>8,this.Pa[a+2]=b>>16,this.Pa[a+3]=b>>24):this.X[a>>2]=b;this.nb.X[this.A]|=32;this.ob.X[this.B]|=96;this.Sf=this.fl;this.pd.Oa=!0};function ud(a){Ob&&!Fc&&(a=a<<24|a<<8&16711680|a>>8&65280|a>>>24);return a} +l.ap=function(a,b){var c=a>>2;if(a=(a&3)<<3){var d=-1<>>32-a}else this.X[c]=b;this.Oa=!0};l.wo=function(a,b){this.ba&&null!=this.ya&&qd(this.ba,this.ya+a)||this.C&&rd(this.C,b,1,!1);return this.Zd(a,b)};l.Io=function(a,b){this.ba&&null!=this.ya&&qd(this.ba,this.ya+a,2)||this.C&&rd(this.C,b,2,!1);return this.Nf(a,b)};l.Co=function(a,b){this.ba&&null!=this.ya&&qd(this.ba,this.ya+a,4)||this.C&&rd(this.C,b,4,!1);return this.ji(a,b)}; +l.Uo=function(a,b,c){this.ba&&null!=this.ya&&sd(this.ba,this.ya+a)||this.C&&rd(this.C,c,1,!0);this.D?this.cf(0,b,c):this.bf(a,b,c)};l.gp=function(a,b,c){this.ba&&null!=this.ya&&sd(this.ba,this.ya+a,2)||this.C&&rd(this.C,c,2,!0);this.D?this.cf(0,b,c):this.ri(a,b,c)};l.$o=function(a,b,c){this.ba&&null!=this.ya&&sd(this.ba,this.ya+a,4)||this.C&&rd(this.C,c,4,!0);this.D?this.cf(0,b,c):this.K(a,b,c)};l.zo=function(a,b){this.ob.X[this.A]|=this.F;this.pb.X[this.B]|=this.F;return this.pd.Bc(a,b)}; +l.Lo=function(a,b){this.ob.X[this.A]|=this.F;this.pb.X[this.B]|=this.F;return this.pd.Mf(a,b)};l.Fo=function(a,b){this.ob.X[this.A]|=this.F;this.pb.X[this.B]|=this.F;return this.pd.Nd(a,b)};l.Xo=function(a,b,c){this.ob.X[this.A]|=this.F;this.pb.X[this.B]|=this.J;this.pd.Dc(a,b,c)};l.jp=function(a,b,c){this.ob.X[this.A]|=this.F;this.pb.X[this.B]|=this.J;this.pd.Tf(a,b,c)};l.cp=function(a,b,c){this.ob.X[this.A]|=this.F;this.pb.X[this.B]|=this.J;this.pd.Sf(a,b,c)}; +l.Ao=function(a,b){return td(this.C,b,!1).Bc(a,b)};l.Mo=function(a,b){return td(this.C,b,!1).Mf(a,b)};l.Go=function(a,b){return td(this.C,b,!1).Nd(a,b)};l.Yo=function(a,b,c){td(this.C,c,!0).Dc(a,b,c)};l.kp=function(a,b,c){td(this.C,c,!0).Tf(a,b,c)};l.ep=function(a,b,c){td(this.C,c,!0).Sf(a,b,c)};l.vo=function(a){return this.Pa[a]};l.Qk=function(a){return this.Pa[a]};l.yo=function(a){this.ob.X[this.A]|=32;this.pb.X[this.B]|=32;this.Bc=this.Qk;return this.Pa[a]}; +l.Ho=function(a){return this.G.getUint16(a,!0)};l.Vk=function(a){return a&1?this.Pa[a]|this.Pa[a+1]<<8:this.Rd[a>>1]};l.Ko=function(a){this.ob.X[this.A]|=32;this.pb.X[this.B]|=32;this.Mf=this.Vk;return a&1?this.Pa[a]|this.Pa[a+1]<<8:this.Rd[a>>1]};l.Bo=function(a){return this.G.getInt32(a,!0)};l.Sk=function(a){return a&3?this.Pa[a]|this.Pa[a+1]<<8|this.Pa[a+2]<<16|this.Pa[a+3]<<24:this.X[a>>2]}; +l.Eo=function(a){this.ob.X[this.A]|=32;this.pb.X[this.B]|=32;this.Nd=this.Sk;return a&3?this.Pa[a]|this.Pa[a+1]<<8|this.Pa[a+2]<<16|this.Pa[a+3]<<24:this.X[a>>2]};l.To=function(a,b){this.Pa[a]=b;this.Oa=!0};l.el=function(a,b){this.Pa[a]=b;this.Oa=!0};l.Wo=function(a,b){this.Pa[a]=b;this.ob.X[this.A]|=32;this.pb.X[this.B]|=96;this.Dc=this.el;this.pd.Oa=!0};l.fp=function(a,b){this.G.setUint16(a,b,!0);this.Oa=!0};l.gl=function(a,b){a&1?(this.Pa[a]=b,this.Pa[a+1]=b>>8):this.Rd[a>>1]=b;this.Oa=!0}; +l.ip=function(a,b){a&1?(this.Pa[a]=b,this.Pa[a+1]=b>>8):this.Rd[a>>1]=b;this.ob.X[this.A]|=32;this.pb.X[this.B]|=96;this.Tf=this.gl;this.pd.Oa=!0};l.Zo=function(a,b){this.G.setInt32(a,b,!0);this.Oa=!0};l.fl=function(a,b){a&3?(this.Pa[a]=b,this.Pa[a+1]=b>>8,this.Pa[a+2]=b>>16,this.Pa[a+3]=b>>24):this.X[a>>2]=b;this.Oa=!0}; +l.bp=function(a,b){a&3?(this.Pa[a]=b,this.Pa[a+1]=b>>8,this.Pa[a+2]=b>>16,this.Pa[a+3]=b>>24):this.X[a>>2]=b;this.ob.X[this.A]|=32;this.pb.X[this.B]|=96;this.Sf=this.fl;this.pd.Oa=!0};function ud(a){Ob&&!Fc&&(a=a<<24|a<<8&16711680|a>>8&65280|a>>>24);return a} var bd=0,Ec=2,cd=5,ed=6,vd=["black","blue","green","cyan"],vc="NONE RAM ROM VIDEO H/W UNPAGED PAGED".split(" "),ad=0,gd=[],Ic=[x.prototype.xo,x.prototype.Vo,x.prototype.Jo,x.prototype.hp,x.prototype.Do,x.prototype.ap],pd=[x.prototype.wo,x.prototype.Uo,x.prototype.Io,x.prototype.gp,x.prototype.Co,x.prototype.$o],fd=[x.prototype.zo,x.prototype.Xo,x.prototype.Lo,x.prototype.jp,x.prototype.Fo,x.prototype.cp],dd=[x.prototype.Ao,x.prototype.Yo,x.prototype.Mo,x.prototype.kp,x.prototype.Go,x.prototype.ep]; if(Ob)var Hc=[x.prototype.vo,x.prototype.To,x.prototype.Ho,x.prototype.fp,x.prototype.Bo,x.prototype.Zo],Gc=[x.prototype.Qk,x.prototype.el,x.prototype.Vk,x.prototype.gl,x.prototype.Sk,x.prototype.fl],wd=[x.prototype.yo,x.prototype.Wo,x.prototype.Ko,x.prototype.ip,x.prototype.Eo,x.prototype.bp]; -function xd(a,b){nb.call(this,"CPU",a,1);b=a.cycles||b;var c=a.multiplier||1;this.T={};this.T.sd=b;this.T.Kd=c;this.T.rg=Math.round(this.T.sd/1E4)/100;this.T.oe=this.T.rg*this.T.Kd;this.ea.vb=!1;this.ea.ni=!1;this.ea.lf=a.autoStart;this.ea.kj=!1;this.ea.He=!1;this.T.uf=this.T.Te=0;this.T.wf=a.csStart;this.T.Se=a.csInterval;this.T.Ue=a.csStop;this.Ql=this.Uf.bind(this);Jb(this)}ba(xd,nb);l=xd.prototype; -l.uc=function(a,b,c,d){this.pa=a;this.ka=b;this.ba=d;for(b=0;b=a.T.Te&&(a.T.Te+=a.T.Se,c=!0);0<=a.T.Ue&&a.T.Ue<=Ed(a)&&(a.T.Se=a.T.Ue=-1,Bd(a),a.Jb(),c=!0);c&&a.P(Ed(a)+" cycles: checksum="+q(a.T.uf))}} -l.Cb=function(a,b,c){var d=this;a=!1;switch(b){case "power":case "reset":this.na[b]=c;a=!0;break;case "run":this.na[b]=c;c.onclick=function(){var a;if(a=d.pa)if(a=d.pa,a.ea.Yb)a=!0;else{var b=null,c,h=tb(a.id);for(c=0;ca.T.rg&&(c=Math.round(c/a.T.Kd));return c}function Ad(a){a.T.Wd=0;a.Dd=a.md=a.zc=a.A=0;Bd(a);Fd(a,1)} function Fd(a,b,c){var d=!1;if(void 0!==b){.8>a.T.Wd/a.T.oe?b=1:d=!0;a.T.Kd=b;b=a.T.rg*a.T.Kd;if(a.T.oe!=b){a.T.oe=b;b=a.T.oe.toFixed(2)+"Mhz";var e=a.na.setSpeed;e&&(e.textContent=b);a.P("target speed: "+b)}c&&a.pa&&a.pa.ld()}Hd(a,a.md);a.md=0;a.T.Xd=Ka();a.T.pe=0;Id(a);return d} -l.Uf=function(a){if(Lb(this,!0)){if(!this.ea.vb){Fd(this);this.pa&&this.pa.start(this.T.Xd,Ed(this));this.ea.vb=!0;this.ea.ni=!0;this.W&&this.W.start();var b=this.na.run;b&&(b.textContent="Halt");this.pa&&(Nd(this.pa,!0),a&&this.pa.ld(!0))}this.T.th>=this.T.sd&&Id(this,!0);this.T.zf=0;this.T.sg=Ka();this.T.pe&&(a=this.T.sg-this.T.pe,a>this.T.Dj&&(this.T.Xd+=a,this.T.Xd>this.T.sg&&(this.T.Xd=this.T.sg)));try{do{var c=this.ea.He?1:this.T.nn;if(this.W){Od(this.W);var d=this.W;a=c;var e=d.G[0];if(e.le){var f= -(Ed(d.H,d.O)-e.jd)/d.Ba|0,g=Pd(d,0)-f;e.mode==Qd&&(g-=f);var h=g*d.Ba|0;e.mode==Qd&&(h>>=1);a>h&&(a=h)}var c=a,k=this.W;a=c;if(k.A&&k.A[Rd]&Td){var m=k.Z-Ed(k.H,k.O);0m&&(a=m)}c=a}try{this.Lg(c)}catch(w){if("number"!=typeof w)throw w;}var p=this.zc-this.A;this.md+=p;this.T.zf+=p;Hd(this,0,!0);Dd(this,p);this.T.yf-=p;0>=this.T.yf&&(this.T.yf+=this.T.Fj,this.pa&&Ud(this.pa));this.T.xf-=p;0>=this.T.xf&&(this.T.xf+=this.T.Ej,this.pa&&Nd(this.pa));this.T.Ve-=p;if(0>=this.T.Ve){this.T.Ve+=this.T.sh; -break}}while(this.ea.vb)}catch(w){this.Jb();Cd(this);this.pa&&this.pa.stop(Ka(),Ed(this));Lb(this,!1);Gb(this,w.stack||w.message);return}c=setTimeout;d=this.Ql;this.T.pe=Ka();e=this.T.Dj;this.T.zf&&(e=Math.round(e*this.T.zf/this.T.sh));e-=this.T.pe-this.T.sg;if(f=this.T.pe-this.T.Xd)this.T.Wd=Math.round(this.md/(10*f))/100,864E5<=f&&(this.Dd=0,this.W&&Od(this.W,!0),Fd(this));if(0>e||this.T.Wde&&(this.T.Xd-=e),e=0;this.T.th+=this.T.zf;this.T.pe+=e;c(d,e)}else Cd(this),this.pa&&this.pa.stop(Ka(), -Ed(this))};l.Lg=function(){return 0};l.Jb=function(a){Kb(this,!0);this.zc-=this.A;this.A=0;Hd(this,this.md);this.md=0;if(this.ea.vb){this.ea.vb=!1;this.W&&this.W.stop();var b=this.na.run;b&&(b.textContent="Run")}this.ea.complete=a};function Cd(a,b){a.pa&&(Ud(a.pa,b),Nd(a.pa,b))}var Jd=30,Kd=60,Md=2,yd=["power","reset"]; -function Vd(a,b,c,d){this.gc=a;this.ba=a.ba;this.id=b;this.$b=c||"";this.U=0;this.Ka=65535;this.Nb=this.Ka+1;this.Ab=this.qc=this.ext=this.lb=this.type=this.ua=0;this.Lb=-1;this.V=this.Jc=2;this.R=this.wa=65535;this.G=this.mh;this.D=this.dj;this.F=this.fj;this.A={U:-1,ua:0,Ka:0,lb:0,type:0,ext:0,Lb:-1};1==this.id&&(this.Jf=0,this.C=null,this.Pe=!1,this.H=Array(32),this.B=[]);Wd(this,!0,d)}function Xd(a,b){a.B.push(b);return[a.B.length,Yd]}l=Vd.prototype; +l.Uf=function(a){if(Lb(this,!0)){if(!this.ea.wb){Fd(this);this.pa&&this.pa.start(this.T.Xd,Ed(this));this.ea.wb=!0;this.ea.ni=!0;this.V&&this.V.start();var b=this.na.run;b&&(b.textContent="Halt");this.pa&&(Nd(this.pa,!0),a&&this.pa.ld(!0))}this.T.th>=this.T.sd&&Id(this,!0);this.T.zf=0;this.T.sg=Ka();this.T.pe&&(a=this.T.sg-this.T.pe,a>this.T.Dj&&(this.T.Xd+=a,this.T.Xd>this.T.sg&&(this.T.Xd=this.T.sg)));try{do{var c=this.ea.He?1:this.T.nn;if(this.V){Od(this.V);var d=this.V;a=c;var e=d.G[0];if(e.le){var f= +(Ed(d.H,d.O)-e.jd)/d.Ba|0,g=Pd(d,0)-f;e.mode==Qd&&(g-=f);var h=g*d.Ba|0;e.mode==Qd&&(h>>=1);a>h&&(a=h)}var c=a,k=this.V;a=c;if(k.A&&k.A[Rd]&Td){var m=k.Z-Ed(k.H,k.O);0m&&(a=m)}c=a}try{this.Lg(c)}catch(v){if("number"!=typeof v)throw v;}var p=this.zc-this.A;this.md+=p;this.T.zf+=p;Hd(this,0,!0);Dd(this,p);this.T.yf-=p;0>=this.T.yf&&(this.T.yf+=this.T.Fj,this.pa&&Ud(this.pa));this.T.xf-=p;0>=this.T.xf&&(this.T.xf+=this.T.Ej,this.pa&&Nd(this.pa));this.T.Ve-=p;if(0>=this.T.Ve){this.T.Ve+=this.T.sh; +break}}while(this.ea.wb)}catch(v){this.Jb();Cd(this);this.pa&&this.pa.stop(Ka(),Ed(this));Lb(this,!1);Gb(this,v.stack||v.message);return}c=setTimeout;d=this.Ql;this.T.pe=Ka();e=this.T.Dj;this.T.zf&&(e=Math.round(e*this.T.zf/this.T.sh));e-=this.T.pe-this.T.sg;if(f=this.T.pe-this.T.Xd)this.T.Wd=Math.round(this.md/(10*f))/100,864E5<=f&&(this.Dd=0,this.V&&Od(this.V,!0),Fd(this));if(0>e||this.T.Wde&&(this.T.Xd-=e),e=0;this.T.th+=this.T.zf;this.T.pe+=e;c(d,e)}else Cd(this),this.pa&&this.pa.stop(Ka(), +Ed(this))};l.Lg=function(){return 0};l.Jb=function(a){Kb(this,!0);this.zc-=this.A;this.A=0;Hd(this,this.md);this.md=0;if(this.ea.wb){this.ea.wb=!1;this.V&&this.V.stop();var b=this.na.run;b&&(b.textContent="Run")}this.ea.complete=a};function Cd(a,b){a.pa&&(Ud(a.pa,b),Nd(a.pa,b))}var Jd=30,Kd=60,Md=2,yd=["power","reset"]; +function Vd(a,b,c,d){this.gc=a;this.ba=a.ba;this.id=b;this.$b=c||"";this.U=0;this.Ka=65535;this.Nb=this.Ka+1;this.Ab=this.qc=this.ext=this.mb=this.type=this.ua=0;this.Lb=-1;this.W=this.Jc=2;this.R=this.wa=65535;this.G=this.mh;this.D=this.dj;this.F=this.fj;this.A={U:-1,ua:0,Ka:0,mb:0,type:0,ext:0,Lb:-1};1==this.id&&(this.Jf=0,this.C=null,this.Pe=!1,this.H=Array(32),this.B=[]);Wd(this,!0,d)}function Xd(a,b){a.B.push(b);return[a.B.length,Yd]}l=Vd.prototype; l.mh=function(a){this.U=a&65535;return this.ua=this.U<<4};l.qg=function(a,b){var c,d,e=this.gc;a&=65535;a&4?(c=e.Eb.ua,d=c+e.Eb.Ka|0):(c=e.Kb,d=e.Pc);if(c){c=c+(a&65528)|0;if(d-c|0)return e.A-=15,Zd(this,c,a,b);this.id<$d&&y.call(e,b&&this.id==ae?10:13,a&65532)}return-1};l.gn=function(a){var b=this.gc;a=b.Pb+(a<<2);var c=b.ja(a);b.O&=-769;return this.load(b.ja(a+2))+c|0}; l.fn=function(a){var b=this.gc;a<<=3;var c=b.Pb+a|0;if(7<=(b.cd-c|0))return this.C=!0,a=Zd(this,c,a),-1!==a&&(a+=this.Jf),a;y.call(b,13,a|2);return-1};l.dj=function(a){return this.ua+a|0};l.fj=function(a){return this.ua+a|0};l.cj=function(a,b){return(a>>>0)+b<=this.Nb?this.ua+a|0:this.kg()};l.zl=function(a,b){return(a>>>0)+b>this.Nb?this.ua+a|0:this.kg()};l.kg=function(){y.call(this.gc,13,0);return-1};l.ej=function(a,b){return(a>>>0)+b<=this.Nb?this.ua+a|0:this.lg()}; -l.Al=function(a,b){return(a>>>0)+b>this.Nb?this.ua+a|0:this.lg()};l.lg=function(){y.call(this.gc,13,0);return-1};function be(a,b,c,d,e){a.U=b;a.ua=d;a.Ka=e;a.Nb=(e>>>0)+1;a.lb=c;a.type=c&7936;a.ext=c>>16&192;a.Lb=(b&4?a.gc.Eb.ua:a.gc.Kb)+(b&65528)|0;a.id>>0)+1;a.lb=e;a.type=e&7936;a.ext=0;a.Lb=b;a.id>>0)+1,a.lb=a.A.lb,a.type=a.A.type,a.ext=a.A.ext,a.Lb=a.A.Lb,a.A.U=-1,Wd(a,!0,!0,!1),a.ua;a.A.U=-1;var f=e.ja(b+0),g=e.ja(b+4),h=g&7936,k=e.ja(b+2)|(g&255)<<16,m=e.ja(b+6),p=c&65528;if(80386<=e.ca){var w=f,k=k|(m&65280)<<16,f=f|(m&15)<<16;m&128&&(f=f<<12|4095)}switch(a.id){case ee:var u=a.C;a.Pe=!1;if(u&&c==Yd&&a.B.length){var F=a.B[a.Jf-1];if(F&&!F())return-1}var K=c&3,H=(g&24576)>>13,F=-1,I,T;p||b>= -e.Kb&&b=a.Ab&&(K>a.Ab&&(F=fe(e),ge(e,fe(e),!0),he(e,F),a.Pe=!0),F=0);else{if(256==h||2304==h)return ie(a,c,u)?a.ua:-1;if(1024==h)F=2,T=0,Kh||2048==(h&2560))return y.call(e,13,c&65532),-1;if(!(g&32768))return y.call(e,11,c&65532),-1}break;case ae:if(!p||4096>h||512!=(h&2560))return y.call(e,13,c&65532),-1;if(!(g&32768))return y.call(e,12,c&65532), --1;break;case ce:u=h&-513;if(!p||256!=u&&2304!=u)return y.call(e,13,c&65532),-1;2304==u&&(a.Si=k+e.ja(k+102)|0,a.tl=k+a.Ka|0);break;case $d:if(!(h&4096)&&768>>0)+1,a.lb=g,a.type=h,a.ext=m,a.Lb=b,Wd(a,!0,!0,!1));return k} -function ie(a,b,c){var d=a.gc,e=a.Ab,f=d.la.U,g=d.la.ua;if(!c){if(!(d.la.type&512))return y.call(d,13,b&65532),!1;d.fb(d.la.Lb+4,d.la.lb&=-513)}if(-1===d.la.load(b))return!1;var h=d.la.ua;if(!1!==c){if(d.la.type&512)return y.call(d,13,b&65532),!1;d.fb(d.la.Lb+4,d.la.lb|=512)}d.la.type=d.la.type&-513|d.la.lb&512;256==d.la.type||768==d.la.type?(d.fb(g+14,A(d)),d.fb(g+16,re(d)),d.fb(g+18,d.D),d.fb(g+20,d.I),d.fb(g+22,d.L),d.fb(g+24,d.G),d.fb(g+26,z(d)),d.fb(g+28,d.M),d.fb(g+30,d.K),d.fb(g+32,d.J),d.fb(g+ -34,d.oa.U),d.fb(g+36,d.Z.U),d.fb(g+38,d.Y.U),d.fb(g+40,d.Ca.U),d.Eb.load(d.ja(h+42)),se(d,d.ja(h+16)|(c?16384:0)),d.D=d.ja(h+18),d.I=d.ja(h+20),d.L=d.ja(h+22),d.G=d.ja(h+24),d.M=d.ja(h+28),d.K=d.ja(h+30),d.J=d.ja(h+32),d.oa.load(d.ja(h+34)),d.Ca.load(d.ja(h+40)),te(d,d.ja(h+14),d.ja(h+36)),b=38,g=26,a.Ab>>0)+1)}; -function Wd(a,b,c,d){void 0===c&&(c=!!(a.gc.qa&1));a.Oc=!1;if(c)if(a.load=a.qg,a.Cj=a.fn,a.bc=a.cj,a.cc=a.ej,void 0===d&&(d=!!(a.gc.O&131072)),d)a.load=a.G,a.bc=a.D,a.cc=a.F,a.Ab=a.qc=3,a.V=2,a.R=a.wa=65535,a.Ka=65535,a.Nb=a.Ka+1,a.Jc=a.V,a.Lb=-1,a.Pe=!1;else{if(!(a.U&-4))a.bc=a.kg,a.cc=a.lg;else if(a.type&4096){6144==(a.type&6656)&&(a.bc=a.kg);if(a.type&2048||!(a.type&512))a.cc=a.lg;1024==(a.type&3072)&&(a.bc==a.cj&&(a.bc=a.zl),a.cc==a.ej&&(a.cc=a.Al),a.Oc=!0);b&&a.id<$d&&a.U&-4&&-1!==a.Lb&&(c=a.Lb+ -5,d=a.gc.Ia(c),d&1||a.gc.fc(c,d|1))}b&&(a.Ab=a.U&3,a.qc=(a.lb&24576)>>13,80386>a.gc.ca||!(a.ext&64)?(a.V=2,a.R=65535):(a.V=4,a.R=-1),a.Jc=a.V,a.wa=a.R)}else a.load=a.mh,a.Cj=a.gn,a.bc=a.dj,a.cc=a.fj,a.Ab=a.qc=0,a.Lb=-1,a.Pe=!1}var ee=1,qe=2,ae=3,ce=4,$d=6,Yd=1; +l.Al=function(a,b){return(a>>>0)+b>this.Nb?this.ua+a|0:this.lg()};l.lg=function(){y.call(this.gc,13,0);return-1};function be(a,b,c,d,e){a.U=b;a.ua=d;a.Ka=e;a.Nb=(e>>>0)+1;a.mb=c;a.type=c&7936;a.ext=c>>16&192;a.Lb=(b&4?a.gc.Eb.ua:a.gc.Kb)+(b&65528)|0;a.id>>0)+1;a.mb=e;a.type=e&7936;a.ext=0;a.Lb=b;a.id>>0)+1,a.mb=a.A.mb,a.type=a.A.type,a.ext=a.A.ext,a.Lb=a.A.Lb,a.A.U=-1,Wd(a,!0,!0,!1),a.ua;a.A.U=-1;var f=e.ja(b+0),g=e.ja(b+4),h=g&7936,k=e.ja(b+2)|(g&255)<<16,m=e.ja(b+6),p=c&65528;if(80386<=e.ca){var v=f,k=k|(m&65280)<<16,f=f|(m&15)<<16;m&128&&(f=f<<12|4095)}switch(a.id){case ee:var u=a.C;a.Pe=!1;if(u&&c==Yd&&a.B.length){var E=a.B[a.Jf-1];if(E&&!E())return-1}var K=c&3,H=(g&24576)>>13,E=-1,I,T;p||b>= +e.Kb&&b=a.Ab&&(K>a.Ab&&(E=fe(e),ge(e,fe(e),!0),he(e,E),a.Pe=!0),E=0);else{if(256==h||2304==h)return ie(a,c,u)?a.ua:-1;if(1024==h)E=2,T=0,Kh||2048==(h&2560))return y.call(e,13,c&65532),-1;if(!(g&32768))return y.call(e,11,c&65532),-1}break;case ae:if(!p||4096>h||512!=(h&2560))return y.call(e,13,c&65532),-1;if(!(g&32768))return y.call(e,12,c&65532), +-1;break;case ce:u=h&-513;if(!p||256!=u&&2304!=u)return y.call(e,13,c&65532),-1;2304==u&&(a.Si=k+e.ja(k+102)|0,a.tl=k+a.Ka|0);break;case $d:if(!(h&4096)&&768>>0)+1,a.mb=g,a.type=h,a.ext=m,a.Lb=b,Wd(a,!0,!0,!1));return k} +function ie(a,b,c){var d=a.gc,e=a.Ab,f=d.la.U,g=d.la.ua;if(!c){if(!(d.la.type&512))return y.call(d,13,b&65532),!1;d.fb(d.la.Lb+4,d.la.mb&=-513)}if(-1===d.la.load(b))return!1;var h=d.la.ua;if(!1!==c){if(d.la.type&512)return y.call(d,13,b&65532),!1;d.fb(d.la.Lb+4,d.la.mb|=512)}d.la.type=d.la.type&-513|d.la.mb&512;256==d.la.type||768==d.la.type?(d.fb(g+14,A(d)),d.fb(g+16,re(d)),d.fb(g+18,d.D),d.fb(g+20,d.I),d.fb(g+22,d.L),d.fb(g+24,d.G),d.fb(g+26,z(d)),d.fb(g+28,d.M),d.fb(g+30,d.K),d.fb(g+32,d.J),d.fb(g+ +34,d.oa.U),d.fb(g+36,d.Z.U),d.fb(g+38,d.Y.U),d.fb(g+40,d.Ca.U),d.Eb.load(d.ja(h+42)),se(d,d.ja(h+16)|(c?16384:0)),d.D=d.ja(h+18),d.I=d.ja(h+20),d.L=d.ja(h+22),d.G=d.ja(h+24),d.M=d.ja(h+28),d.K=d.ja(h+30),d.J=d.ja(h+32),d.oa.load(d.ja(h+34)),d.Ca.load(d.ja(h+40)),te(d,d.ja(h+14),d.ja(h+36)),b=38,g=26,a.Ab>>0)+1)}; +function Wd(a,b,c,d){void 0===c&&(c=!!(a.gc.qa&1));a.Oc=!1;if(c)if(a.load=a.qg,a.Cj=a.fn,a.bc=a.cj,a.cc=a.ej,void 0===d&&(d=!!(a.gc.O&131072)),d)a.load=a.G,a.bc=a.D,a.cc=a.F,a.Ab=a.qc=3,a.W=2,a.R=a.wa=65535,a.Ka=65535,a.Nb=a.Ka+1,a.Jc=a.W,a.Lb=-1,a.Pe=!1;else{if(!(a.U&-4))a.bc=a.kg,a.cc=a.lg;else if(a.type&4096){6144==(a.type&6656)&&(a.bc=a.kg);if(a.type&2048||!(a.type&512))a.cc=a.lg;1024==(a.type&3072)&&(a.bc==a.cj&&(a.bc=a.zl),a.cc==a.ej&&(a.cc=a.Al),a.Oc=!0);b&&a.id<$d&&a.U&-4&&-1!==a.Lb&&(c=a.Lb+ +5,d=a.gc.Ia(c),d&1||a.gc.fc(c,d|1))}b&&(a.Ab=a.U&3,a.qc=(a.mb&24576)>>13,80386>a.gc.ca||!(a.ext&64)?(a.W=2,a.R=65535):(a.W=4,a.R=-1),a.Jc=a.W,a.wa=a.R)}else a.load=a.mh,a.Cj=a.gn,a.bc=a.dj,a.cc=a.fj,a.Ab=a.qc=0,a.Lb=-1,a.Pe=!1}var ee=1,qe=2,ae=3,ce=4,$d=6,Yd=1; function ze(a){var b=+a.model||8088,c;switch(b){default:c=4772727;break;case 80286:c=6E6;break;case 80386:c=16E6}xd.call(this,a,c);this.ca=b;a=a.stepping;this.we=b+(a?oa(a,16):0);this.Ri=61442;this.Qd=1792;this.si=28672;this.Vf=4;this.Ta=255;this.B=80286<=this.ca?Qb:Pb;this.va=Ae;this.bj=Be;this.ij=Ce;this.nj=De;if(80186<=this.ca&&(this.va=Ae.slice(),this.bj=Be.slice(),this.ij=Ce.slice(),this.Ta=31,this.va[15]=Ee,this.va[96]=Fe,this.va[97]=Ge,this.va[98]=He,this.va[99]=Ee,this.va[100]=Ee,this.va[101]= Ee,this.va[102]=Ee,this.va[103]=Ee,this.va[104]=Ie,this.va[105]=Je,this.va[106]=Ke,this.va[107]=Le,this.va[108]=Me,this.va[109]=Ne,this.va[110]=Oe,this.va[111]=Pe,this.va[192]=Qe,this.va[193]=Re,this.va[200]=Se,this.va[201]=Te,this.va[241]=Ue,this.bj[7]=Ve,this.ij[7]=Ve,80286<=this.ca)){this.Ri=2;this.Qd|=28672;this.Vf=0;this.va[15]=We;this.Pd=Xe.slice();for(b=0;b=this.we&&(this.Pd[166]=hf,this.Pd[167]=jf)}}this.Yf=[];this.Zf=[];this.ag=0;Ad(this);this.ea.complete=this.ea.jj=!1;this.tj=0;this.sc=this.aa=[];this.hb=this.Ng=this.Db=this.Wf=this.df=this.ef=this.ed=0;kf(this)}ba(ze,xd);function lf(a,b,c,d){b=(d?a.sc:a.aa)[b>>>a.hb];c?--b.ie||od(b):--b.he||nd(b);d&&tc(a)} function mf(a){var b;if(a.aa===a.sc){a.aa=Array(a.Wf);a.$f=new x(null,0,0,cd,null,a);nc(a.$f,a.ba);for(b=0;b>>20,f=a.sc[(a.Wc+e&a.ef)>>>a.hb],g=f.Nd(e);if(!(g&1))return d||tf.call(a,b,!1,c),a.ff;if(!(g&4)&&3==a.Ma)return d||tf.call(a,b,!0,c),a.ff;var h=(b&4190208)>>>10,g=a.sc[((g&-4096)+h&a.ef)>>>a.hb],k=g.Nd(h);if(!(k&1))return d||tf.call(a,b,!1,c),a.ff;if(!(k&4)&&3==a.Ma)return d||tf.call(a,b,!0,c),a.ff;c=a.sc[((k&-4096)+(b&4095)&a.ef)>>>a.hb];if(d)return c;d=b>>>a.hb;k=a.aa[d];b&=-4096;var m;0>2;b.ob=g;b.B=h>>2;Ob&&Fc&&c.X&&!c.controller&&!c.he&&!c.ie?(b.Pa=c.Pa,b.Rd=c.Rd,b.X=c.X,Ac(b,wd)):(b.F=c?ud(32):0,b.J=c?ud(96):0,Ac(b,fd));nc(b,a.ba,k);a.aa[d]=b;a.Xf.push(d);return b}function uf(a){a.aa!==a.sc&&(a.aa=a.sc,a.$f=null,a.Xf=null,a.ff=null)}l=ze.prototype;l.reset=function(){this.ea.vb&&this.Jb();kf(this);Ad(this);this.ea.error=!1}; +function td(a,b,c,d){var e=(b&-4194304)>>>20,f=a.sc[(a.Wc+e&a.ef)>>>a.hb],g=f.Nd(e);if(!(g&1))return d||tf.call(a,b,!1,c),a.ff;if(!(g&4)&&3==a.Ma)return d||tf.call(a,b,!0,c),a.ff;var h=(b&4190208)>>>10,g=a.sc[((g&-4096)+h&a.ef)>>>a.hb],k=g.Nd(h);if(!(k&1))return d||tf.call(a,b,!1,c),a.ff;if(!(k&4)&&3==a.Ma)return d||tf.call(a,b,!0,c),a.ff;c=a.sc[((k&-4096)+(b&4095)&a.ef)>>>a.hb];if(d)return c;d=b>>>a.hb;k=a.aa[d];b&=-4096;var m;0>2;b.pb=g;b.B=h>>2;Ob&&Fc&&c.X&&!c.controller&&!c.he&&!c.ie?(b.Pa=c.Pa,b.Rd=c.Rd,b.X=c.X,Ac(b,wd)):(b.F=c?ud(32):0,b.J=c?ud(96):0,Ac(b,fd));nc(b,a.ba,k);a.aa[d]=b;a.Xf.push(d);return b}function uf(a){a.aa!==a.sc&&(a.aa=a.sc,a.$f=null,a.Xf=null,a.ff=null)}l=ze.prototype;l.reset=function(){this.ea.wb&&this.Jb();kf(this);Ad(this);this.ea.error=!1}; function vf(a,b){var c;switch(b){case 0:c=a.D;break;case 1:c=a.I;break;case 2:c=a.L;break;case 3:c=a.G;break;case 4:c=z(a);break;case 5:c=a.M;break;case 6:c=a.K;break;case 7:c=a.J}return c}function wf(a,b,c){switch(b){case 0:a.D=c;break;case 1:a.I=c;break;case 2:a.L=c;break;case 3:a.G=c;break;case 4:he(a,c);break;case 5:a.M=c;break;case 6:a.K=c;break;case 7:a.J=c}} -function kf(a){a.D=0;a.G=0;a.I=0;a.L=0;a.Hc=0;a.M=0;a.K=0;a.J=0;a.vc=!1;a.Ba=a.Ya=0;a.bn=[0,0];a.cn=[0,0];a.ya=0;a.sj=0;a.ga=0;a.qa=65520;a.Pb=0;a.cd=1023;a.O=a.lc=0;a.ze=a.hf=a.ye=a.Ae=0;a.Uc=-1;a.Ad=a.Vc=-1;a.Bd=a.ta=-1;a.Z=new Vd(a,ee,"CS");a.Ca=new Vd(a,qe,"DS");a.oa=new Vd(a,qe,"ES");a.Y=new Vd(a,ae,"SS");he(a,0);ge(a,0);if(80386<=a.ca){switch(a.we){case 80562:case 80563:a.L=771;break;case 80578:a.L=772;break;case 80594:a.L=773;break;case 80595:case 80596:a.L=776}a.qa=16;a.Og=0;a.Cd=0;a.Wc=0; -a.Qb=[0,0,0,0,null,null,0,0];a.dg=[null,null,null,null,null,null,0,0];a.Ga=new Vd(a,qe,"FS");a.Ha=new Vd(a,qe,"GS");uf(a)}a.Qg=new Vd(a,0,"NULL");a.Da=a.Ca;a.Rb=a.Y;a.N=a.ha=0;a.C=a.F=-1;a.eb=a.Qg;a.Xa=0;if(80286>a.ca)te(a,0,65535);else{a.Kb=0;a.Pc=65535;a.Eb=new Vd(a,5,"LDT",!0);a.la=new Vd(a,ce,"TSS",!0);a.xb=new Vd(a,$d,"VER",!0);te(a,65520,61440);var b,c=A(a);b=a.Z;var d=-65536;80386>b.gc.ca&&(d&=16777215);b=b.ua=d;a.da=b+c|0;a.Pg=(b>>>0)+(a.Z.Ka>>>0)+1}se(a,0);je(a)} -function xf(a){2==a.Jc?(a.Sb=a.ja,a.kc=yf,a.tc=zf,a.kd=Af,2==a.V?(a.ma=Bf,a.za=Cf,a.ib=Df):(a.ma=Ef,a.za=Ff,a.ib=Gf)):(a.Sb=a.ia,a.kc=Hf,a.tc=If,a.kd=Jf,2==a.V?(a.ma=Kf,a.za=Lf,a.ib=Mf):(a.ma=Nf,a.za=Of,a.ib=Pf))}function ke(a,b){a.V!=b&&(a.ha|=1024,a.V=b,a.R=2==b?65535:-1,Qf(a))}function Qf(a){2==a.V?(a.Fb=32768,a.jb=a.ja,a.yb=a.fb,2==a.Jc?(a.ma=Bf,a.za=Cf,a.ib=Df):(a.ma=Kf,a.za=Lf,a.ib=Mf)):(a.Fb=-2147483648,a.jb=a.ia,a.yb=a.ab,2==a.Jc?(a.ma=Ef,a.za=Ff,a.ib=Gf):(a.ma=Nf,a.za=Of,a.ib=Pf))} -function Rf(a){a.Jc=a.Z.Jc;a.wa=a.Z.wa;xf(a);a.V=a.Z.V;a.R=a.Z.R;Qf(a);a.ha&=-3073}l.uj=function(){var a=this.D+this.G+this.I+this.L+z(this)+this.M+this.K+this.J|0;return a=a+A(this)+this.Z.U+this.Ca.U+this.Y.U+this.oa.U+re(this)|0};function Sf(a,b,c){void 0===a.Yf[b]&&(a.Yf[b]=[]);a.Yf[b].push(c)}function Tf(a,b,c){c&&(null==a.Zf[b]&&a.ag++,a.Zf[b]=c)}function Uf(a,b){var c=a.Zf[b];null!=c&&(c(--a.ag),delete a.Zf[b])} +function kf(a){a.D=0;a.G=0;a.I=0;a.L=0;a.Hc=0;a.M=0;a.K=0;a.J=0;a.vc=!1;a.Ba=a.Ya=0;a.bn=[0,0];a.cn=[0,0];a.xa=0;a.sj=0;a.ga=0;a.qa=65520;a.Pb=0;a.cd=1023;a.O=a.lc=0;a.ze=a.hf=a.ye=a.Ae=0;a.Uc=-1;a.Ad=a.Vc=-1;a.Bd=a.ta=-1;a.Z=new Vd(a,ee,"CS");a.Ca=new Vd(a,qe,"DS");a.oa=new Vd(a,qe,"ES");a.Y=new Vd(a,ae,"SS");he(a,0);ge(a,0);if(80386<=a.ca){switch(a.we){case 80562:case 80563:a.L=771;break;case 80578:a.L=772;break;case 80594:a.L=773;break;case 80595:case 80596:a.L=776}a.qa=16;a.Og=0;a.Cd=0;a.Wc=0; +a.Qb=[0,0,0,0,null,null,0,0];a.dg=[null,null,null,null,null,null,0,0];a.Ga=new Vd(a,qe,"FS");a.Ha=new Vd(a,qe,"GS");uf(a)}a.Qg=new Vd(a,0,"NULL");a.Da=a.Ca;a.Rb=a.Y;a.N=a.ha=0;a.C=a.F=-1;a.ab=a.Qg;a.Xa=0;if(80286>a.ca)te(a,0,65535);else{a.Kb=0;a.Pc=65535;a.Eb=new Vd(a,5,"LDT",!0);a.la=new Vd(a,ce,"TSS",!0);a.xb=new Vd(a,$d,"VER",!0);te(a,65520,61440);var b,c=A(a);b=a.Z;var d=-65536;80386>b.gc.ca&&(d&=16777215);b=b.ua=d;a.da=b+c|0;a.Pg=(b>>>0)+(a.Z.Ka>>>0)+1}se(a,0);je(a)} +function xf(a){2==a.Jc?(a.Sb=a.ja,a.kc=yf,a.tc=zf,a.kd=Af,2==a.W?(a.ma=Bf,a.za=Cf,a.ib=Df):(a.ma=Ef,a.za=Ff,a.ib=Gf)):(a.Sb=a.ia,a.kc=Hf,a.tc=If,a.kd=Jf,2==a.W?(a.ma=Kf,a.za=Lf,a.ib=Mf):(a.ma=Nf,a.za=Of,a.ib=Pf))}function ke(a,b){a.W!=b&&(a.ha|=1024,a.W=b,a.R=2==b?65535:-1,Qf(a))}function Qf(a){2==a.W?(a.Fb=32768,a.jb=a.ja,a.yb=a.fb,2==a.Jc?(a.ma=Bf,a.za=Cf,a.ib=Df):(a.ma=Kf,a.za=Lf,a.ib=Mf)):(a.Fb=-2147483648,a.jb=a.ia,a.yb=a.bb,2==a.Jc?(a.ma=Ef,a.za=Ff,a.ib=Gf):(a.ma=Nf,a.za=Of,a.ib=Pf))} +function Rf(a){a.Jc=a.Z.Jc;a.wa=a.Z.wa;xf(a);a.W=a.Z.W;a.R=a.Z.R;Qf(a);a.ha&=-3073}l.uj=function(){var a=this.D+this.G+this.I+this.L+z(this)+this.M+this.K+this.J|0;return a=a+A(this)+this.Z.U+this.Ca.U+this.Y.U+this.oa.U+re(this)|0};function Sf(a,b,c){void 0===a.Yf[b]&&(a.Yf[b]=[]);a.Yf[b].push(c)}function Tf(a,b,c){c&&(null==a.Zf[b]&&a.ag++,a.Zf[b]=c)}function Uf(a,b){var c=a.Zf[b];null!=c&&(c(--a.ag),delete a.Zf[b])} function Vf(a,b){for(var c=a.Qb[7],d=c>>16,e=0;4>e;e++){if(c&3){var f=!!(d&1),g=a.Qb[e],g=g&~(d>>2&3);b?a.aa[g>>>a.hb].Gd(g&a.Db,f,a):(g=a.aa[g>>>a.hb],f?--g.ie||od(g):--g.he||nd(g))}c>>=2;d>>=4}}function rd(a,b,c,d){if(!(a.N&8192)&&a.Qb[7]&255){c--;var e=a.Qb[7],f=e>>16;d=d?1:0==d?3:0;for(var g=0;4>g;g++){if(e&3&&(f&3)==d){var h=f>>2;if(b+c>=a.Qb[g]&&b<=a.Qb[g]+h){a.Qb[6]|=1<>=2;f>>=4}}} function je(a,b,c){void 0===b&&(b=!!(a.qa&1));void 0===c&&(c=!!(a.O&131072));a.nj=b&&!c?Wf:De;Wd(a.Z,!1,b,c);Wd(a.Ca,!1,b,c);Wd(a.Y,!1,b,c);Wd(a.oa,!1,b,c);80386<=a.ca&&(Wd(a.Ga,!1,b,c),Wd(a.Ha,!1,b,c));Rf(a)} l.save=function(){var a=new Xf(this);a.set(0,[this.D,this.G,this.I,this.L,z(this),this.M,this.K,this.J]);var b=A(this),c=this.Z.save(),d=this.Ca.save(),e=this.Y.save(),f=this.oa.save(),g;null!=this.Kb?(g=[this.qa,this.Kb,this.Pc,this.Pb,this.cd,this.Eb.save(),this.la.save(),this.lc],80386<=this.ca&&(g.push(this.Og),g.push(this.Cd),g.push(this.Wc),g.push(this.Qb),g.push(this.dg))):g=null;b=[b,c,d,e,f,g,re(this)];80386<=this.ca&&(b.push(this.Ga.save()),b.push(this.Ha.save()));a.set(1,b);a.set(2,[this.Da.$b, -this.Rb.$b,this.N,this.ha,this.Xa,this.C,this.F]);a.set(3,[0,this.Dd,this.T.Kd]);a.set(4,Lc(this.ka,!!(this.qa&-2147483648)));return a.data()}; +this.Rb.$b,this.N,this.ha,this.Xa,this.C,this.F]);a.set(3,[0,this.Dd,this.T.Kd]);a.set(4,Mc(this.ka,!!(this.qa&-2147483648)));return a.data()}; l.restore=function(a){var b=a[0];this.D=b[0];this.G=b[1];this.I=b[2];this.L=b[3];var c=b[4];this.M=b[5];this.K=b[6];this.J=b[7];b=a[1];this.Z.restore(b[1]);this.Ca.restore(b[2]);this.Y.restore(b[3]);this.oa.restore(b[4]);var d=b[5];d&&d.length&&(this.qa=d[0],this.Kb=d[1],this.Pc=d[2],this.Pb=d[3],this.cd=d[4],this.Eb.restore(d[5]),this.la.restore(d[6]),this.lc=d[7],80386<=this.ca&&(this.Og=d[8],this.Cd=d[9],this.Wc=d[10],this.Qb=d[11],this.dg=d[12]),je(this));se(this,b[6]);var d=!1,e;a:{e=this.ka; -var f=a[4],g;for(g=0;g>>0)+(a.Z.Ka>>>0)+1;a.Ma=a.Z.Ab;Rf(a)}function te(a,b,c,d){var e=a.Z;e.Jf=b;e.C=d;b=e.load(c);return-1!==b?($f(a,b+(a.Z.Jf&a.Z.R)),a.Z.Pe):null} function ag(a,b){b=(a.da>>>0)+b;b>a.Pg&&(8088>=a.ca||a.Z.Ka==a.Z.wa?b=a.Z.ua+(b-a.Pg&a.R):y.call(a,13,0));return b|0}function bg(a){a.da=a.Bd}function z(a){return a.Hc&~a.Y.wa|a.Aa-a.Y.ua}function he(a,b){a.Hc=b;a.Aa=a.Y.ua+(b&a.Y.wa)|0}function cg(a,b,c,d,e,f){if(63!=(e&63)&&e!=a.resultType){var g=(e^a.resultType)&a.resultType;g&&(g&1&&dg(a),g&2&&eg(a),g&4&&fg(a),g&8&&gg(a),g&16&&hg(a),g&32&&ig(a))}f?(a.ze=d,a.ye=b):(a.ze=b,a.ye=d);a.hf=c;a.Ae=d;a.resultType=e} @@ -181,28 +182,28 @@ function xg(a,b,c,d){var e=0;if(a.qa&1&&(a.Ma>a.lc||a.O&131072)&&a.la.Si)for(var l.Cb=function(a,b,c){switch(b){case "EAX":case "EBX":case "ECX":case "EDX":case "ESP":case "EBP":case "ESI":case "EDI":case "EIP":case "AX":case "BX":case "CX":case "DX":case "SP":case "BP":case "SI":case "DI":case "IP":case "PC":case "CS":case "DS":case "SS":case "ES":case "FS":case "GS":case "CR0":case "CR2":case "CR3":case "PS":case "C":case "P":case "A":case "Z":case "S":case "T":case "I":case "D":case "V":this.na[b]=c;this.tj++;a=!0;break;default:a=xd.prototype.Cb.call(this,a,b,c)}return a}; function yg(a,b,c,d){var e=(d?a.sc:a.aa)[(b&a.ed)>>>a.hb];e&&e.type==cd&&(e=td(a,b,!1,!0));if(e){var f=b&a.Db;if(!c||1==c)return e.Zd(f,b);if(2==c)return f>>this.hb].Bc(a&this.Db,a)}; l.ja=function(a){var b=a&this.Db,c=(a&this.ed)>>>this.hb;this.A-=this.B.zg;if(b>>this.hb;if(b>>this.hb].Dc(a&this.Db,b&255,a)}; -l.fb=function(a,b){var c=a&this.Db,d=(a&this.ed)>>>this.hb;this.A-=this.B.zg;c>8&255,a+1))};l.ab=function(a,b){var c=a&this.Db,d=(a&this.ed)>>>this.hb;this.A-=this.B.zg;if(c>>=8}}; -function zg(a,b,c){a.eb=b;a.wb=c&a.wa;a.C=b.bc(a.wb,1);return a.N&1?0:a.Ia(a.C)}function D(a,b){return zg(a,a.Da,b)}function Ag(a,b){return zg(a,a.Rb,b)}function Bg(a,b,c){a.eb=b;a.wb=c&a.wa;a.C=b.bc(a.wb,a.V);return a.N&1?0:a.jb(a.C)}function E(a,b){a.eb=a.Da;a.wb=b&a.wa;a.C=a.eb.bc(a.wb,2);return a.N&1?0:a.ja(a.C)}function Cg(a,b){a.eb=a.Rb;a.wb=b&a.wa;a.C=a.eb.bc(a.wb,2);return a.N&1?0:a.ja(a.C)}function G(a,b){a.eb=a.Da;a.wb=b&a.wa;a.C=a.eb.bc(a.wb,4);return a.N&1?0:a.ia(a.C)} -function Dg(a,b){a.eb=a.Rb;a.wb=b&a.wa;a.C=a.eb.bc(a.wb,4);return a.N&1?0:a.ia(a.C)}function Eg(a,b){a.N&2||a.fc(a.eb.cc(a.wb,1),b)}function Fg(a,b){a.N&2||a.fb(a.eb.cc(a.wb,2),b)}function Gg(a,b){a.N&2||a.ab(a.eb.cc(a.wb,4),b)}function le(a,b,c){return a.jb(b.bc(c,a.V))}l.ra=function(){var a=ag(this,1),b=this.Ia(this.da);this.da=a;return b};function Hg(a){var b=ag(a,2),c=a.ja(a.da);a.da=b;return c}function J(a){var b=ag(a,a.Jc),c=a.Sb(a.da);a.da=b;return c} -l.Ea=function(){var a=ag(this,this.V),b=this.jb(this.da);this.da=a;return b};l.S=function(){var a=ag(this,1),b=this.Ia(this.da)<<24>>24;this.da=a;return b};function fe(a){var b=a.jb(a.Aa);a.Aa=a.Aa+a.V|0;var c=a.cg-a.Aa|0;0>c&&0<=(a.cg^a.Aa)&&(8088>=a.ca||!a.Y.Oc&&a.Y.Ka==a.Y.wa||a.Y.Oc&&!a.Y.Ka?he(a,a.Aa-a.Y.ua&a.Y.wa):-1>c&&y.call(a,12,0));return b} -function me(a,b,c,d){c=a.Aa-c|0;0>(c-a.gf|0)&&0<=(a.gf^c)&&(8088>=a.ca||!a.Y.Oc&&a.Y.Ka==a.Y.wa||a.Y.Oc&&!a.Y.Ka?(he(a,c-a.Y.ua&a.Y.wa),c=a.Aa):y.call(a,12,0));switch(d){case 1:a.fc(c,b);break;case 2:a.fb(c,b);break;case 4:a.ab(c,b)}a.Aa=c}function pe(a,b){var c=a.Aa-a.V|0;0>(c-a.gf|0)&&0<=(a.gf^c)&&(8088>=a.ca||!a.Y.Oc&&a.Y.Ka==a.Y.wa||a.Y.Oc&&!a.Y.Ka?(he(a,c-a.Y.ua&a.Y.wa),c=a.Aa):y.call(a,12,0));a.yb(c,b);a.Aa=c} -function Ig(a,b,c){var d=4;1==b.length&&(d=1,c=c?1:0);if(80386>a.ca)2this.ca?0:1,e=0;2>e;e++){switch(d){case 0:if(this.Xa&1&&this.O&512){var f=Kg(this.W);if(-1<=f&&(this.Xa&=-2,0<=f)){this.Xa&=-5; +l.fb=function(a,b){var c=a&this.Db,d=(a&this.ed)>>>this.hb;this.A-=this.B.zg;c>8&255,a+1))};l.bb=function(a,b){var c=a&this.Db,d=(a&this.ed)>>>this.hb;this.A-=this.B.zg;if(c>>=8}}; +function zg(a,b,c){a.ab=b;a.lb=c&a.wa;a.C=b.bc(a.lb,1);return a.N&1?0:a.Ia(a.C)}function D(a,b){return zg(a,a.Da,b)}function Ag(a,b){return zg(a,a.Rb,b)}function Bg(a,b,c){a.ab=b;a.lb=c&a.wa;a.C=b.bc(a.lb,a.W);return a.N&1?0:a.jb(a.C)}function F(a,b){a.ab=a.Da;a.lb=b&a.wa;a.C=a.ab.bc(a.lb,2);return a.N&1?0:a.ja(a.C)}function Cg(a,b){a.ab=a.Rb;a.lb=b&a.wa;a.C=a.ab.bc(a.lb,2);return a.N&1?0:a.ja(a.C)}function G(a,b){a.ab=a.Da;a.lb=b&a.wa;a.C=a.ab.bc(a.lb,4);return a.N&1?0:a.ia(a.C)} +function Dg(a,b){a.ab=a.Rb;a.lb=b&a.wa;a.C=a.ab.bc(a.lb,4);return a.N&1?0:a.ia(a.C)}function Eg(a,b){a.N&2||a.fc(a.ab.cc(a.lb,1),b)}function Fg(a,b){a.N&2||a.fb(a.ab.cc(a.lb,2),b)}function Gg(a,b){a.N&2||a.bb(a.ab.cc(a.lb,4),b)}function le(a,b,c){return a.jb(b.bc(c,a.W))}l.ra=function(){var a=ag(this,1),b=this.Ia(this.da);this.da=a;return b};function Hg(a){var b=ag(a,2),c=a.ja(a.da);a.da=b;return c}function J(a){var b=ag(a,a.Jc),c=a.Sb(a.da);a.da=b;return c} +l.Ea=function(){var a=ag(this,this.W),b=this.jb(this.da);this.da=a;return b};l.S=function(){var a=ag(this,1),b=this.Ia(this.da)<<24>>24;this.da=a;return b};function fe(a){var b=a.jb(a.Aa);a.Aa=a.Aa+a.W|0;var c=a.cg-a.Aa|0;0>c&&0<=(a.cg^a.Aa)&&(8088>=a.ca||!a.Y.Oc&&a.Y.Ka==a.Y.wa||a.Y.Oc&&!a.Y.Ka?he(a,a.Aa-a.Y.ua&a.Y.wa):-1>c&&y.call(a,12,0));return b} +function me(a,b,c,d){c=a.Aa-c|0;0>(c-a.gf|0)&&0<=(a.gf^c)&&(8088>=a.ca||!a.Y.Oc&&a.Y.Ka==a.Y.wa||a.Y.Oc&&!a.Y.Ka?(he(a,c-a.Y.ua&a.Y.wa),c=a.Aa):y.call(a,12,0));switch(d){case 1:a.fc(c,b);break;case 2:a.fb(c,b);break;case 4:a.bb(c,b)}a.Aa=c}function pe(a,b){var c=a.Aa-a.W|0;0>(c-a.gf|0)&&0<=(a.gf^c)&&(8088>=a.ca||!a.Y.Oc&&a.Y.Ka==a.Y.wa||a.Y.Oc&&!a.Y.Ka?(he(a,c-a.Y.ua&a.Y.wa),c=a.Aa):y.call(a,12,0));a.yb(c,b);a.Aa=c} +function Ig(a,b,c){var d=4;1==b.length&&(d=1,c=c?1:0);if(80386>a.ca)2this.ca?0:1,e=0;2>e;e++){switch(d){case 0:if(this.Xa&1&&this.O&512){var f=Kg(this.V);if(-1<=f&&(this.Xa&=-2,0<=f)){this.Xa&=-5; Lg.call(this,f);d=!0;break a}}break;case 1:if(this.Xa&2){this.Xa&=-3;80386<=this.ca&&(this.Qb[6]|=16384);Lg.call(this,1);d=!0;break a}}d=1-d}d=!1}if(d&&!a){this.P("interrupt dispatched");this.N=0;break}if(this.Xa&4){this.N=this.A=0;break}}if(b){if(Mg(this.ba,this.da,c)){this.Jb();break}c=1}this.N=0;this.va[this.ra()].call(this)}while(0>11;ch(this);dh(this,a[b++]);for(c=0;c=eh&&fh(a,gh))}function ch(a){a.fa&=-129;a.fa&~a.Zb&63&&(a.fa|=128);if(a.fa&128&&!(a.Zb&128))return a=a.W,a.ca>=eh?hh(a,gh):a.da&ih||Lg.call(a.H,2),!0;a=a.W;a.ca>=eh&&fh(a,gh);return!1}function jh(a,b){80387<=a.ca||(b&=-65);a.fa|=b;return ch(a)} +l.uc=function(a,b,c){this.H=c;this.V=Xb(a,"ChipSet");Jb(this)};l.Xb=function(a,b){if(!b)if(!a||!this.restore)$g(this);else if(!this.restore(a))return!1;return!0};l.Wb=function(a){return a?this.save():!0};l.save=function(){var a=new Xf(this),b=[],c=0;b[c++]=this.Zb;b[c++]=ah(this);b[c++]=bh(this);for(var d=0;d>11;ch(this);dh(this,a[b++]);for(c=0;c=eh&&fh(a,gh))}function ch(a){a.fa&=-129;a.fa&~a.Zb&63&&(a.fa|=128);if(a.fa&128&&!(a.Zb&128))return a=a.V,a.ca>=eh?hh(a,gh):a.da&ih||Lg.call(a.H,2),!0;a=a.V;a.ca>=eh&&fh(a,gh);return!1}function jh(a,b){80387<=a.ca||(b&=-65);a.fa|=b;return ch(a)} function ah(a){return a.fa|a.B<<11}function kh(a,b){return isFinite(b)?!0:!jh(a,Infinity===b?8:16)}function lh(a,b,c){var d=null;null!=b&&null!=c&&(d=b+c,kh(a,d)||(d=null));return d}function mh(a,b,c){var d=null;null!=b&&null!=c&&(d=b-c,kh(a,d)||(d=null));return d}function nh(a,b,c){var d=null;null!=b&&null!=c&&(d=b*c,kh(a,d)||(d=null));return d}function oh(a,b,c){var d=null;null==b||null==c||!c&&jh(a,2)||(d=b/c,kh(a,d)||(d=null));return d} function ph(a,b,c){if(null!=b&&null!=c){var d=0;isNaN(b)||isNaN(c)?d=17664:(b-=c,0>b?d=256:b||(d=16384));a.fa=a.fa&-18177|d;return!0}return!1}function qh(a,b,c){if(null==b)return null;var d=a.Zb&3072;d?d=1024==d||3072==d&&0=c){if(jh(a,1))return null;d=-c}else if(d<-c){if(jh(a,1))return null;d=-c}a.G[0]=d|0;2147483648d&&(a.G[1]=-1))}return d} function rh(a,b){var c=3;a.C&1<=c;c<<=1)3!=(b&3)&&(a.C|=c),b>>=2}function sh(a){var b=a.B+0&7;return a.C&1<>16}function xh(a){return a.H.ia(a.H.C)}function yh(a){a.ha[0]=a.H.ia(a.H.C);return a.Z[0]}function zh(a){a.G[0]=a.H.ia(a.H.C);a.G[1]=a.H.ia(a.H.C+4);return a.K[0]} -function Ah(a){a.D[0]=a.H.ia(a.H.C);a.D[1]=a.H.ia(a.H.C+4);a.D[2]=a.H.ja(a.H.C+8);return a.D}l.mi=function(){this.H.ab(this.H.C,this.G[0])};l.bl=function(){this.H.ab(this.H.C,this.G[0]);this.H.ab(this.H.C+4,this.G[1])};function Bh(a){a.H.ab(a.H.C,a.D[0]);a.H.ab(a.H.C+4,a.D[1]);a.H.fb(a.H.C+8,a.D[2])}function Ch(a,b){var c=b[1],d=(b[2]&32768)>>4,e=b[2]&32767;b=b[0]>>>11|c<<21;c=c>>11&1048575;32767==e?e=2047:e&&(e+=-15360,0>=e&&(e=2047,b=c=0));a.G[0]=b;a.G[1]=c|(d|e)<<20;return a.K[0]} +function Ah(a){a.D[0]=a.H.ia(a.H.C);a.D[1]=a.H.ia(a.H.C+4);a.D[2]=a.H.ja(a.H.C+8);return a.D}l.mi=function(){this.H.bb(this.H.C,this.G[0])};l.bl=function(){this.H.bb(this.H.C,this.G[0]);this.H.bb(this.H.C+4,this.G[1])};function Bh(a){a.H.bb(a.H.C,a.D[0]);a.H.bb(a.H.C+4,a.D[1]);a.H.fb(a.H.C+8,a.D[2])}function Ch(a,b){var c=b[1],d=(b[2]&32768)>>4,e=b[2]&32767;b=b[0]>>>11|c<<21;c=c>>11&1048575;32767==e?e=2047:e&&(e+=-15360,0>=e&&(e=2047,b=c=0));a.G[0]=b;a.G[1]=c|(d|e)<<20;return a.K[0]} function vh(a,b,c){var d=c>>20&2047,e=2147483648|(c&1048575)<<11|b>>>21;2047==d?d=32767:d?d+=15360:e&=2147483647;a.D[0]=b<<11;a.D[1]=e;a.D[2]=c>>16&32768|d;return a.D}function Dh(a,b){for(var c=0,d=1;b--;)c+=(a&15)*d,d*=10,a>>=4;return c}function Eh(a,b){for(var c=0,d=0;b--;)c|=a%10<>11;ch(a);dh(a,d.jb(b+=d.V));!(d.qa&1)||d.O&131072?(a.I=d.jb(b+=d.V),c=d.jb(b+=d.V),a.O=c&2047,a.I|=(c&-4096)<<4,a.M=-1,a.J=d.jb(b+=d.V),a.J|=(d.jb(b+=d.V)&-4096)<<4,a.N=-1):(a.I=d.jb(b+=d.V),c=d.jb(b+=d.V),a.M=c&65535,a.O=c>>16&2047,a.J=d.jb(b+=d.V),a.N=d.jb(b+=d.V)&65535);return b+d.V} -function Ih(a,b){var c=a.H;c.yb(b,a.Zb);c.yb(b+=c.V,ah(a));c.yb(b+=c.V,bh(a));if(!(c.qa&1)||c.O&131072){var d=(a.M<<4)+a.I;c.yb(b+=c.V,d);c.yb(b+=c.V,d>>4&-4096|a.O);d=(a.N<<4)+a.J;c.yb(b+=c.V,d);c.yb(b+=c.V,d>>4&-4096)}else c.yb(b+=c.V,a.I),c.yb(b+=c.V,a.M|a.O<<16),c.yb(b+=c.V,a.J),c.yb(b+=c.V,a.N);return b+c.V}function Jh(){this.fa&=-32896;ch(this)}function Kh(){ph(this,M(this,0),M(this,this.A))}function Lh(){ph(this,M(this,0),M(this,this.A))&&Fh(this)}function Mh(){Lh.call(this)} -function Nh(){N(this,0,oh(this,M(this,0),yh(this)))}function Oh(){this.C&=~(1<>11;ch(a);dh(a,d.jb(b+=d.W));!(d.qa&1)||d.O&131072?(a.I=d.jb(b+=d.W),c=d.jb(b+=d.W),a.O=c&2047,a.I|=(c&-4096)<<4,a.M=-1,a.J=d.jb(b+=d.W),a.J|=(d.jb(b+=d.W)&-4096)<<4,a.N=-1):(a.I=d.jb(b+=d.W),c=d.jb(b+=d.W),a.M=c&65535,a.O=c>>16&2047,a.J=d.jb(b+=d.W),a.N=d.jb(b+=d.W)&65535);return b+d.W} +function Ih(a,b){var c=a.H;c.yb(b,a.Zb);c.yb(b+=c.W,ah(a));c.yb(b+=c.W,bh(a));if(!(c.qa&1)||c.O&131072){var d=(a.M<<4)+a.I;c.yb(b+=c.W,d);c.yb(b+=c.W,d>>4&-4096|a.O);d=(a.N<<4)+a.J;c.yb(b+=c.W,d);c.yb(b+=c.W,d>>4&-4096)}else c.yb(b+=c.W,a.I),c.yb(b+=c.W,a.M|a.O<<16),c.yb(b+=c.W,a.J),c.yb(b+=c.W,a.N);return b+c.W}function Jh(){this.fa&=-32896;ch(this)}function Kh(){ph(this,M(this,0),M(this,this.A))}function Lh(){ph(this,M(this,0),M(this,this.A))&&Fh(this)}function Mh(){Lh.call(this)} +function Nh(){N(this,0,oh(this,M(this,0),yh(this)))}function Oh(){this.C&=~(1<>>0);Gh(this,a)},6:function(){var a=qh(this,Fh(this));null!=a&&(this.D[0]=Eh(a,8),this.D[1]=Eh(a/1E8,8),this.D[2]=Eh(a/1E16,2),0>a&&(this.D[2]|=32768),Bh(this))},7:function(){null!=qh(this,M(this,0),gi)&&(this.bl(),Fh(this))},48:function(){Oh.call(this);Fh(this)},49:ai,50:Wh,51:Wh,52:Zh}},ii=[Jh,Ph,Qh,Rh,Sh,Th,Xh,Uh,Yh,Zh];ab(function(){for(var a=Ab(document,"pcx86","fpu"),b=0;b>16,c=c<<16>>16,d=d<<16>>16);this.A-=this.B.Ij;(bd)&&y.call(this,5);this.N|=2;return a}function ri(a,b){var c=0;if(b){rg(this);for(var d=1;d&this.R;){if(b&d){a=c;break}d<<=1;c++}}else vg(this);this.A-=11+3*c;return a}function si(a,b){var c=0;if(b){rg(this);for(var d=2==this.V?15:31,e=1<>>=1;c++;d--}}else vg(this);this.A-=11+3*c;return a} -function ti(a,b){a&1<<(b&(2==this.V?15:31))?kg(this):lg(this);this.A-=-1===this.C?3:6;this.N|=2;return a}function ui(a,b){b=1<<(b&(2==this.V?15:31));a&b?kg(this):lg(this);this.A-=-1===this.C?6:8;return a^b}function vi(a,b){b=1<<(b&(2==this.V?15:31));a&b?kg(this):lg(this);this.A-=-1===this.C?6:8;return a&~b}function wi(a,b){b=1<<(b&(2==this.V?15:31));a&b?kg(this):lg(this);this.A-=-1===this.C?6:8;return a|b} -function xi(a,b){if(-1===this.C)return ti.call(this,a,b);var c=this.V<<3;if(b>=c||b<-c)a=Bg(this,this.eb,this.wb+(b>>(2==this.V?4:5))*this.V);b=1<<(b&(2==this.V?15:31));a&b?kg(this):lg(this);this.A-=6;this.N|=2;return a}function yi(a,b){if(-1===this.C)return ui.call(this,a,b);var c=this.V<<3;if(b>=c||b<-c)a=Bg(this,this.eb,this.wb+(b>>(2==this.V?4:5))*this.V);b=1<<(b&(2==this.V?15:31));a&b?kg(this):lg(this);this.A-=8;return a^b} -function zi(a,b){if(-1===this.C)return vi.call(this,a,b);var c=this.V<<3;if(b>=c||b<-c)a=Bg(this,this.eb,this.wb+(b>>(2==this.V?4:5))*this.V);b=1<<(b&(2==this.V?15:31));a&b?kg(this):lg(this);this.A-=8;return a&~b}function Ai(a,b){if(-1===this.C)return wi.call(this,a,b);var c=this.V<<3;if(b>=c||b<-c)a=Bg(this,this.eb,this.wb+(b>>(2==this.V?4:5))*this.V);b=1<<(b&(2==this.V?15:31));a&b?kg(this):lg(this);this.A-=8;return a|b} +function qi(a){if(-1===this.C)return y.call(this,6),a;var b=a,c=this.jb(this.C),d=this.jb(this.C+this.W);2==this.W&&(b=a<<16>>16,c=c<<16>>16,d=d<<16>>16);this.A-=this.B.Ij;(bd)&&y.call(this,5);this.N|=2;return a}function ri(a,b){var c=0;if(b){rg(this);for(var d=1;d&this.R;){if(b&d){a=c;break}d<<=1;c++}}else vg(this);this.A-=11+3*c;return a}function si(a,b){var c=0;if(b){rg(this);for(var d=2==this.W?15:31,e=1<>>=1;c++;d--}}else vg(this);this.A-=11+3*c;return a} +function ti(a,b){a&1<<(b&(2==this.W?15:31))?kg(this):lg(this);this.A-=-1===this.C?3:6;this.N|=2;return a}function ui(a,b){b=1<<(b&(2==this.W?15:31));a&b?kg(this):lg(this);this.A-=-1===this.C?6:8;return a^b}function vi(a,b){b=1<<(b&(2==this.W?15:31));a&b?kg(this):lg(this);this.A-=-1===this.C?6:8;return a&~b}function wi(a,b){b=1<<(b&(2==this.W?15:31));a&b?kg(this):lg(this);this.A-=-1===this.C?6:8;return a|b} +function xi(a,b){if(-1===this.C)return ti.call(this,a,b);var c=this.W<<3;if(b>=c||b<-c)a=Bg(this,this.ab,this.lb+(b>>(2==this.W?4:5))*this.W);b=1<<(b&(2==this.W?15:31));a&b?kg(this):lg(this);this.A-=6;this.N|=2;return a}function yi(a,b){if(-1===this.C)return ui.call(this,a,b);var c=this.W<<3;if(b>=c||b<-c)a=Bg(this,this.ab,this.lb+(b>>(2==this.W?4:5))*this.W);b=1<<(b&(2==this.W?15:31));a&b?kg(this):lg(this);this.A-=8;return a^b} +function zi(a,b){if(-1===this.C)return vi.call(this,a,b);var c=this.W<<3;if(b>=c||b<-c)a=Bg(this,this.ab,this.lb+(b>>(2==this.W?4:5))*this.W);b=1<<(b&(2==this.W?15:31));a&b?kg(this):lg(this);this.A-=8;return a&~b}function Ai(a,b){if(-1===this.C)return wi.call(this,a,b);var c=this.W<<3;if(b>=c||b<-c)a=Bg(this,this.ab,this.lb+(b>>(2==this.W?4:5))*this.W);b=1<<(b&(2==this.W?15:31));a&b?kg(this):lg(this);this.A-=8;return a|b} function Bi(a,b){cg(this,a,b,a-b|0,191,!0);this.A-=-1===this.F?-1===this.C?this.B.mc:this.B.Ah:this.B.Ib;this.N|=2;return a}function Ci(a,b){cg(this,a,b,a-b|0,this.Fb|63,!0);this.A-=-1===this.F?-1===this.C?this.B.mc:this.B.Ah:this.B.Ib;this.N|=2;return a} -function Di(a){if(this.Tc){var b=this.Tc,c=this.sj,d=this.ga,e=d>>3&7;b.A=d&7;var f=(3>(d>>6&3)?0:48)+e;(217==c||219==c)&&52<=f&&(f=e<<4|b.A);if(e=hi[c][f]){if(0>ii.indexOf(e)){var f=b.H,g=f.Bd;8087==b.ca&&(f.ha&16&&g++,f.ha&32&&g++);b.M=f.Z.U;b.I=g-f.Z.ua;-1!==f.C&&(b.N=f.eb.U,b.J=f.C-f.eb.ua);b.O=(c&7)<<8|d}e.call(b)}}this.A-=-1===this.C?2:8;return a}function Ei(a){if(80186>this.ca)return Fi.call(this,a);y.call(this,13,0);return a}function Ve(a){y.call(this,6);return a} -function Fi(a){Ye.call(this);return a}function Gi(a,b){a=Hi.call(this,this.S(),b);80386>this.ca&&(this.A-=12);return a}function Ii(a,b){a=this.Ea();a=2==this.V?Hi.call(this,a,b):Ji.call(this,a,b);80386>this.ca&&(this.A-=12);return a}function Ki(a,b){var c=!1;0>b&&(b=-b|0,c=!c);0>a&&(a=-a|0,c=!c);Li.call(this,a,b);c&&(this.Ba=~this.Ba+1|0,this.Ya=~this.Ya+(this.Ba?0:1)|0)} -function Hi(a,b){a=(a<<16>>16)*(b<<16>>16)|0;32767a?(kg(this),mg(this)):(lg(this),ng(this));this.A-=-1===this.C?9:12;return a&65535}function Ji(a,b){Ki.call(this,a,b);this.Ya!=this.Ba>>31?(kg(this),mg(this)):(lg(this),ng(this));this.A-=-1===this.C?9:12;return this.Ba}function Mi(a,b){this.A-=14+(-1===this.C?0:2);rg(this);-1!==this.xb.load(b)&&this.xb.qc>=this.Ma&&this.xb.qc>=(b&3)&&(vg(this),a=this.xb.lb&-256,2=this.Ma)&&this.xb.qc>=(b&3))return vg(this),this.xb.Ka;rg(this);return a}function cj(a,b){if(-1===this.C)return Ye.call(this),a;ge(this,this.ja(this.C+this.V));this.A-=this.B.Xe;return b} -function dj(a,b){this.A-=-1===this.F?-1===this.C?this.B.sk:this.B.rk:this.B.pk;return b}function ej(a,b){switch(this.ga>>3&7){case 4:this.ya=this.D;break;case 5:this.ya=this.I;break;case 6:this.ya=this.L;break;case 7:this.ya=this.G}return b}function fj(a,b){return b} -function gj(a,b){a=this.ga>>3&7;switch(a){case 0:this.ya=this.D;break;case 2:this.ya=this.L;break;case 3:this.ya=this.G;break;default:if(80286==this.ca||80386==this.ca&&4!=a&&5!=a)y.call(this,6);else switch(a){case 1:this.ya=this.I;break;case 4:this.ya=z(this);break;case 5:this.ya=this.M;break;case 6:this.ya=this.K;break;case 7:this.ya=this.J}}return dj.call(this,0,b)} +function Di(a){if(this.Tc){var b=this.Tc,c=this.sj,d=this.ga,e=d>>3&7;b.A=d&7;var f=(3>(d>>6&3)?0:48)+e;(217==c||219==c)&&52<=f&&(f=e<<4|b.A);if(e=hi[c][f]){if(0>ii.indexOf(e)){var f=b.H,g=f.Bd;8087==b.ca&&(f.ha&16&&g++,f.ha&32&&g++);b.M=f.Z.U;b.I=g-f.Z.ua;-1!==f.C&&(b.N=f.ab.U,b.J=f.C-f.ab.ua);b.O=(c&7)<<8|d}e.call(b)}}this.A-=-1===this.C?2:8;return a}function Ei(a){if(80186>this.ca)return Fi.call(this,a);y.call(this,13,0);return a}function Ve(a){y.call(this,6);return a} +function Fi(a){Ye.call(this);return a}function Gi(a,b){a=Hi.call(this,this.S(),b);80386>this.ca&&(this.A-=12);return a}function Ii(a,b){a=this.Ea();a=2==this.W?Hi.call(this,a,b):Ji.call(this,a,b);80386>this.ca&&(this.A-=12);return a}function Ki(a,b){var c=!1;0>b&&(b=-b|0,c=!c);0>a&&(a=-a|0,c=!c);Li.call(this,a,b);c&&(this.Ba=~this.Ba+1|0,this.Ya=~this.Ya+(this.Ba?0:1)|0)} +function Hi(a,b){a=(a<<16>>16)*(b<<16>>16)|0;32767a?(kg(this),mg(this)):(lg(this),ng(this));this.A-=-1===this.C?9:12;return a&65535}function Ji(a,b){Ki.call(this,a,b);this.Ya!=this.Ba>>31?(kg(this),mg(this)):(lg(this),ng(this));this.A-=-1===this.C?9:12;return this.Ba}function Mi(a,b){this.A-=14+(-1===this.C?0:2);rg(this);-1!==this.xb.load(b)&&this.xb.qc>=this.Ma&&this.xb.qc>=(b&3)&&(vg(this),a=this.xb.mb&-256,2=this.Ma)&&this.xb.qc>=(b&3))return vg(this),this.xb.Ka;rg(this);return a}function cj(a,b){if(-1===this.C)return Ye.call(this),a;ge(this,this.ja(this.C+this.W));this.A-=this.B.Xe;return b} +function dj(a,b){this.A-=-1===this.F?-1===this.C?this.B.sk:this.B.rk:this.B.pk;return b}function ej(a,b){switch(this.ga>>3&7){case 4:this.xa=this.D;break;case 5:this.xa=this.I;break;case 6:this.xa=this.L;break;case 7:this.xa=this.G}return b}function fj(a,b){return b} +function gj(a,b){a=this.ga>>3&7;switch(a){case 0:this.xa=this.D;break;case 2:this.xa=this.L;break;case 3:this.xa=this.G;break;default:if(80286==this.ca||80386==this.ca&&4!=a&&5!=a)y.call(this,6);else switch(a){case 1:this.xa=this.I;break;case 4:this.xa=z(this);break;case 5:this.xa=this.M;break;case 6:this.xa=this.K;break;case 7:this.xa=this.J}}return dj.call(this,0,b)} function hj(a,b){switch(this.ga>>3&7){case 0:b=this.oa.U;break;case 1:b=this.Z.U;break;case 2:b=this.Y.U;break;case 3:b=this.Ca.U;break;case 4:if(80386<=this.ca){b=this.Ga.U;break}y.call(this,6);b=a;break;case 5:if(80386<=this.ca){b=this.Ha.U;break}default:y.call(this,6),b=a}-1!==this.F&&ke(this,2);return dj.call(this,0,b)} function Li(a,b){if(a&-65536||b&-65536){var c=b&65535;b>>>=16;var d=a&65535;a>>>=16;var e=c*d,d=(e>>>16)+b*d,f=d>>>16,d=(d&65535)+c*a;this.Ba=d<<16|e&65535;this.Ya=f+((d>>>16)+b*a)|0}else this.Ba=a*b|0,this.Ya=0}function ij(a,b){this.A-=-1===this.F?-1===this.C?this.B.mc:this.B.Ib:this.B.Ac;return jg(this,a|b,128)}function jj(a,b){this.A-=-1===this.F?-1===this.C?this.B.mc:this.B.Ib:this.B.Ac;return jg(this,a|b,this.Fb)&this.R} function kj(a,b){var c=a-b-pg(this)|0;cg(this,a,b,c,191,!0);this.A-=-1===this.F?-1===this.C?this.B.mc:this.B.Ib:this.B.Ac;return c&255}function lj(a,b){var c=a-b-pg(this)|0;cg(this,a,b,c,this.Fb|63,!0);this.A-=-1===this.F?-1===this.C?this.B.mc:this.B.Ib:this.B.Ac;return c&this.R}function mj(){return ig(this)?1:0}function nj(){return dg(this)?1:0}function oj(){return dg(this)?0:1}function pj(){return gg(this)?1:0}function qj(){return gg(this)?0:1}function rj(){return dg(this)||gg(this)?1:0} @@ -237,16 +238,16 @@ function sj(){return dg(this)||gg(this)?0:1}function tj(){return hg(this)?1:0}fu function Fj(a,b){return Cj.call(this,a,b,this.I&31)}function Gj(a,b){return Ej.call(this,a,b,this.I&31)}function Hj(a,b){return Ij.call(this,a,b,this.ra())}function Jj(a,b){return Kj.call(this,a,b,this.ra())}function Lj(a,b){return Ij.call(this,a,b,this.I&31)}function Mj(a,b){return Kj.call(this,a,b,this.I&31)}function Nj(a,b){var c=a-b|0;cg(this,a,b,c,191,!0);this.A-=-1===this.F?-1===this.C?this.B.mc:this.B.Ib:this.B.Ac;return c&255} function Oj(a,b){var c=a-b|0;cg(this,a,b,c,this.Fb|63,!0);this.A-=-1===this.F?-1===this.C?this.B.mc:this.B.Ib:this.B.Ac;return c&this.R}function Pj(a,b){jg(this,a&b,128);this.A-=-1===this.F?-1===this.C?this.B.bi:this.B.Gf:this.B.Gf;this.N|=2;return a}function Qj(a,b){jg(this,a&b,this.Fb);this.A-=-1===this.F?-1===this.C?this.B.bi:this.B.Gf:this.B.Gf;this.N|=2;return a}function Rj(a,b){var c=this.D&this.R,d=(1<<(this.I&31))-1;return a&~(d<>(this.D&this.R)&(1<<(this.I&31))-1&this.R}function Tj(a,b){if(-1===this.C){switch(this.ga&7){case 0:this.D=this.D&-256|a;break;case 1:this.I=this.I&-256|a;break;case 2:this.L=this.L&-256|a;break;case 3:this.G=this.G&-256|a;break;case 4:this.D=this.D&-65281|a<<8;break;case 5:this.I=this.I&-65281|a<<8;break;case 6:this.L=this.L&-65281|a<<8;break;case 7:this.G=this.G&-65281|a<<8}this.A-=this.B.di}else this.F=this.C,Eg(this,a),this.A-=this.B.ci;return b} -function Uj(a,b){if(-1===this.C){switch(this.ga&7){case 0:this.D=this.D&~this.R|a;break;case 1:this.I=this.I&~this.R|a;break;case 2:this.L=this.L&~this.R|a;break;case 3:this.G=this.G&~this.R|a;break;case 4:he(this,z(this)&~this.R|a);break;case 5:this.M=this.G&~this.R|a;break;case 6:this.K=this.K&~this.R|a;break;case 7:this.J=this.J&~this.R|a}this.A-=this.B.di}else this.F=this.C,this.N&2||this.yb(this.eb.cc(this.wb,this.V),a),this.A-=this.B.ci;return b} +function Uj(a,b){if(-1===this.C){switch(this.ga&7){case 0:this.D=this.D&~this.R|a;break;case 1:this.I=this.I&~this.R|a;break;case 2:this.L=this.L&~this.R|a;break;case 3:this.G=this.G&~this.R|a;break;case 4:he(this,z(this)&~this.R|a);break;case 5:this.M=this.G&~this.R|a;break;case 6:this.K=this.K&~this.R|a;break;case 7:this.J=this.J&~this.R|a}this.A-=this.B.di}else this.F=this.C,this.N&2||this.yb(this.ab.cc(this.lb,this.W),a),this.A-=this.B.ci;return b} function Vj(a,b){a^=b;jg(this,a,128);this.A-=-1===this.F?-1===this.C?this.B.mc:this.B.Ib:this.B.Ac;return a}function Wj(a,b){this.A-=-1===this.F?-1===this.C?this.B.mc:this.B.Ib:this.B.Ac;return jg(this,a^b,this.Fb)&this.R}function Xj(a,b){var c=a[1]-b[1];c||(c=a[0]-b[0]);return c}function Yj(a){var b=a-1|0;cg(this,a,1,b,this.Fb|62,!0);this.A-=2;return a&~this.R|b&this.R} function Zj(a,b,c){c>>>=0;if(!c||c<=b>>>0)return!1;var d=0,e=1,f=this.bn;f[0]=c>>>0;f[1]=0;c=this.cn;c[0]=a>>>0;for(c[1]=b>>>0;0>>=0,a[1]++),e+=e;do 0<=Xj(c,f)&&(a=c,b=f,a[0]-=b[0],a[1]-=b[1],0>a[0]&&(a[0]>>>=0,a[1]--),d+=e),a=f,a[0]>>>=1,a[1]&1&&(a[0]=(a[0]|2147483648)>>>0),a[1]>>>=1,e/=2;while(1<=e);this.Ba=d;this.Ya=c[0];return!0}function ak(a){var b=a+1|0;cg(this,a,1,b,this.Fb|62);this.A-=2;return a&~this.R|b&this.R} function bk(a){this.qa=a;je(this);this.qa&-2147483648?mf(this):uf(this)}function ue(a){this.Wc=a;tc(this)}function ck(a){this.N|=1;this.tc.call(this,a);this.A-=-1===this.C?4:5}function Cj(a,b,c){if(c){16>>16-c)&65535;jg(this,a,32768,d&32768)}return a}function Ej(a,b,c){if(c){var d=a<>>32-c;jg(this,a,-2147483648,d&-2147483648)}return a} function Ij(a,b,c){if(c){16>>c-1;a=(d>>>1|b<<16-c)&65535;jg(this,a,32768,d&1)}return a}function Kj(a,b,c){if(c){var d=a>>>c-1;a=d>>>1|b<<32-c;jg(this,a,-2147483648,d&1)}return a}function dk(){this.A-=-1===this.C?2:this.B.Fk;return 1}function ek(){var a=this.I&255;this.A-=(-1===this.C?this.B.Vh:this.B.Uh)+(a<this.Uc?(-1!=this.Ad&&(this.Ad!==this.Z.U&&(this.Z.Ab=this.Ad&3,Zf(this,this.Ad)),this.Ad=-1),this.Bd!==this.da&&$f(this,this.Bd),-1!=this.Vc&&(this.Vc!==this.Y.U&&ge(this,this.Vc),this.Vc=-1),-1!==this.ta&&(this.ta!==this.Aa&&he(this,this.Hc&~this.Y.wa|this.ta-this.Y.ua),this.ta=-1)):8!=this.Uc?(b=0,a=8):(b=0,a=-1,kf(this),e=d=!1)):$f(this,this.Bd);var f=a,g=b,h=32,k=yg(this,this.da);204!=k||this.cd||(d=!1);this.O&131072&&(6== -f&&99==k||13==f&&205==k)&&(d=!1);!1===d&&(h|=1);983040<=this.da&&1048575>=this.da&&(d=!1);t(this,h|-2147483648)&&(d=!0);if(t(this,h)||d){var m=this.ea.vb,f="Fault "+r(f)+(null!=g?" ("+ta(g)+")":"")+" on opcode "+r(k);d&&m&&(f+=" (blocked)");this.ba?(Mb(this,f,d||h,!0),d&&(d=m,this.ba.Jb())):(this.Fa(f),this.Jb())}if(d&&e)throw-1;if(e)throw this.Uc=a,jk.call(this,a,b,c),this.Bd=this.da,this.N=1==a?this.N|8192:this.N|4096,a;} -function tf(a,b,c){this.Cd=a;a=0;b&&(a|=1);c&&(a|=2);3==this.Ma&&(a|=4);y.call(this,14,a)}function lk(a){var b=a.lb&7680;a.U&65528&&(6144==b||7168==b||7168>b&&a.qc=this.da&&(d=!1);t(this,h|-2147483648)&&(d=!0);if(t(this,h)||d){var m=this.ea.wb,f="Fault "+r(f)+(null!=g?" ("+ta(g)+")":"")+" on opcode "+r(k);d&&m&&(f+=" (blocked)");this.ba?(Mb(this,f,d||h,!0),d&&(d=m,this.ba.Jb())):(this.Fa(f),this.Jb())}if(d&&e)throw-1;if(e)throw this.Uc=a,jk.call(this,a,b,c),this.Bd=this.da,this.N=1==a?this.N|8192:this.N|4096,a;} +function tf(a,b,c){this.Cd=a;a=0;b&&(a|=1);c&&(a|=2);3==this.Ma&&(a|=4);y.call(this,14,a)}function lk(a){var b=a.mb&7680;a.U&65528&&(6144==b||7168==b||7168>b&&a.qc>8&255;break; case 197:c=this.I>>8&255;break;case 198:c=this.L>>8&255;break;case 199:c=this.G>>8&255;break;default:c=0}a=a[this.ga>>3&7].call(this,c,b.call(this));switch(d){case 0:case 3:Eg(this,a);this.A-=this.B.Rc;break;case 1:case 2:Eg(this,a);this.A-=this.B.Sc;break;case 4:case 5:case 7:Eg(this,a);this.A-=this.B.wc;break;case 6:Eg(this,a);this.A-=this.B.td;break;case 64:case 67:case 128:case 131:Eg(this,a);this.A-=this.B.Tb;break;case 65:case 66:case 129:case 130:Eg(this,a);this.A-=this.B.Ub;break;case 68:case 69:case 70:case 71:case 132:case 133:case 134:case 135:Eg(this, a);this.A-=this.B.Va;break;case 192:this.D=this.D&-256|a;break;case 193:this.I=this.I&-256|a;break;case 194:this.L=this.L&-256|a;break;case 195:this.G=this.G&-256|a;break;case 196:this.D=this.D&-65281|a<<8;break;case 197:this.I=this.I&-65281|a<<8;break;case 198:this.L=this.L&-65281|a<<8;break;case 199:this.G=this.G&-65281|a<<8}} -function Bf(a){var b,c;switch((this.ga=this.ra())&199){case 0:c=E(this,this.G+this.K);this.A-=this.B.Rc;break;case 1:c=E(this,this.G+this.J);this.A-=this.B.Sc;break;case 2:c=Cg(this,this.M+this.K);this.A-=this.B.Sc;break;case 3:c=Cg(this,this.M+this.J);this.A-=this.B.Rc;break;case 4:c=E(this,this.K);this.A-=this.B.wc;break;case 5:c=E(this,this.J);this.A-=this.B.wc;break;case 6:c=E(this,J(this));this.A-=this.B.td;break;case 7:c=E(this,this.G);this.A-=this.B.wc;break;case 64:c=E(this,this.G+this.K+ -this.S());this.A-=this.B.Tb;break;case 65:c=E(this,this.G+this.J+this.S());this.A-=this.B.Ub;break;case 66:c=Cg(this,this.M+this.K+this.S());this.A-=this.B.Ub;break;case 67:c=Cg(this,this.M+this.J+this.S());this.A-=this.B.Tb;break;case 68:c=E(this,this.K+this.S());this.A-=this.B.Va;break;case 69:c=E(this,this.J+this.S());this.A-=this.B.Va;break;case 70:c=Cg(this,this.M+this.S());this.A-=this.B.Va;break;case 71:c=E(this,this.G+this.S());this.A-=this.B.Va;break;case 128:c=E(this,this.G+this.K+J(this)); -this.A-=this.B.Tb;break;case 129:c=E(this,this.G+this.J+J(this));this.A-=this.B.Ub;break;case 130:c=Cg(this,this.M+this.K+J(this));this.A-=this.B.Ub;break;case 131:c=Cg(this,this.M+this.J+J(this));this.A-=this.B.Tb;break;case 132:c=E(this,this.K+J(this));this.A-=this.B.Va;break;case 133:c=E(this,this.J+J(this));this.A-=this.B.Va;break;case 134:c=Cg(this,this.M+J(this));this.A-=this.B.Va;break;case 135:c=E(this,this.G+J(this));this.A-=this.B.Va;break;case 192:c=this.D&65535;break;case 193:c=this.I& +function Bf(a){var b,c;switch((this.ga=this.ra())&199){case 0:c=F(this,this.G+this.K);this.A-=this.B.Rc;break;case 1:c=F(this,this.G+this.J);this.A-=this.B.Sc;break;case 2:c=Cg(this,this.M+this.K);this.A-=this.B.Sc;break;case 3:c=Cg(this,this.M+this.J);this.A-=this.B.Rc;break;case 4:c=F(this,this.K);this.A-=this.B.wc;break;case 5:c=F(this,this.J);this.A-=this.B.wc;break;case 6:c=F(this,J(this));this.A-=this.B.td;break;case 7:c=F(this,this.G);this.A-=this.B.wc;break;case 64:c=F(this,this.G+this.K+ +this.S());this.A-=this.B.Tb;break;case 65:c=F(this,this.G+this.J+this.S());this.A-=this.B.Ub;break;case 66:c=Cg(this,this.M+this.K+this.S());this.A-=this.B.Ub;break;case 67:c=Cg(this,this.M+this.J+this.S());this.A-=this.B.Tb;break;case 68:c=F(this,this.K+this.S());this.A-=this.B.Va;break;case 69:c=F(this,this.J+this.S());this.A-=this.B.Va;break;case 70:c=Cg(this,this.M+this.S());this.A-=this.B.Va;break;case 71:c=F(this,this.G+this.S());this.A-=this.B.Va;break;case 128:c=F(this,this.G+this.K+J(this)); +this.A-=this.B.Tb;break;case 129:c=F(this,this.G+this.J+J(this));this.A-=this.B.Ub;break;case 130:c=Cg(this,this.M+this.K+J(this));this.A-=this.B.Ub;break;case 131:c=Cg(this,this.M+this.J+J(this));this.A-=this.B.Tb;break;case 132:c=F(this,this.K+J(this));this.A-=this.B.Va;break;case 133:c=F(this,this.J+J(this));this.A-=this.B.Va;break;case 134:c=Cg(this,this.M+J(this));this.A-=this.B.Va;break;case 135:c=F(this,this.G+J(this));this.A-=this.B.Va;break;case 192:c=this.D&65535;break;case 193:c=this.I& 65535;break;case 194:c=this.L&65535;break;case 195:c=this.G&65535;break;case 196:c=z(this)&65535;break;case 197:c=this.M&65535;break;case 198:c=this.K&65535;break;case 199:c=this.J&65535;break;default:c=0}var d=this.ga>>3&7;switch(d){case 0:b=this.D&65535;break;case 1:b=this.I&65535;break;case 2:b=this.L&65535;break;case 3:b=this.G&65535;break;case 4:b=z(this)&65535;break;case 5:b=this.M&65535;break;case 6:b=this.K&65535;break;case 7:b=this.J&65535;break;default:b=0}a=a.call(this,b,c);switch(d){case 0:this.D= this.D&-65536|a;break;case 1:this.I=this.I&-65536|a;break;case 2:this.L=this.L&-65536|a;break;case 3:this.G=this.G&-65536|a;break;case 4:he(this,z(this)&-65536|a);break;case 5:this.M=this.M&-65536|a;break;case 6:this.K=this.K&-65536|a;break;case 7:this.J=this.J&-65536|a}} -function Cf(a){var b,c,d=(this.ga=this.ra())&199;switch(d){case 0:b=E(this,this.G+this.K);this.F=this.C;break;case 1:b=E(this,this.G+this.J);this.F=this.C;break;case 2:b=Cg(this,this.M+this.K);this.F=this.C;break;case 3:b=Cg(this,this.M+this.J);this.F=this.C;break;case 4:b=E(this,this.K);this.F=this.C;break;case 5:b=E(this,this.J);this.F=this.C;break;case 6:b=E(this,J(this));this.F=this.C;break;case 7:b=E(this,this.G);this.F=this.C;break;case 64:b=E(this,this.G+this.K+this.S());this.F=this.C;break; -case 65:b=E(this,this.G+this.J+this.S());this.F=this.C;break;case 66:b=Cg(this,this.M+this.K+this.S());this.F=this.C;break;case 67:b=Cg(this,this.M+this.J+this.S());this.F=this.C;break;case 68:b=E(this,this.K+this.S());this.F=this.C;break;case 69:b=E(this,this.J+this.S());this.F=this.C;break;case 70:b=Cg(this,this.M+this.S());this.F=this.C;break;case 71:b=E(this,this.G+this.S());this.F=this.C;break;case 128:b=E(this,this.G+this.K+J(this));this.F=this.C;break;case 129:b=E(this,this.G+this.J+J(this)); -this.F=this.C;break;case 130:b=Cg(this,this.M+this.K+J(this));this.F=this.C;break;case 131:b=Cg(this,this.M+this.J+J(this));this.F=this.C;break;case 132:b=E(this,this.K+J(this));this.F=this.C;break;case 133:b=E(this,this.J+J(this));this.F=this.C;break;case 134:b=Cg(this,this.M+J(this));this.F=this.C;break;case 135:b=E(this,this.G+J(this));this.F=this.C;break;case 192:b=this.D&65535;break;case 193:b=this.I&65535;break;case 194:b=this.L&65535;break;case 195:b=this.G&65535;break;case 196:b=z(this)&65535; +function Cf(a){var b,c,d=(this.ga=this.ra())&199;switch(d){case 0:b=F(this,this.G+this.K);this.F=this.C;break;case 1:b=F(this,this.G+this.J);this.F=this.C;break;case 2:b=Cg(this,this.M+this.K);this.F=this.C;break;case 3:b=Cg(this,this.M+this.J);this.F=this.C;break;case 4:b=F(this,this.K);this.F=this.C;break;case 5:b=F(this,this.J);this.F=this.C;break;case 6:b=F(this,J(this));this.F=this.C;break;case 7:b=F(this,this.G);this.F=this.C;break;case 64:b=F(this,this.G+this.K+this.S());this.F=this.C;break; +case 65:b=F(this,this.G+this.J+this.S());this.F=this.C;break;case 66:b=Cg(this,this.M+this.K+this.S());this.F=this.C;break;case 67:b=Cg(this,this.M+this.J+this.S());this.F=this.C;break;case 68:b=F(this,this.K+this.S());this.F=this.C;break;case 69:b=F(this,this.J+this.S());this.F=this.C;break;case 70:b=Cg(this,this.M+this.S());this.F=this.C;break;case 71:b=F(this,this.G+this.S());this.F=this.C;break;case 128:b=F(this,this.G+this.K+J(this));this.F=this.C;break;case 129:b=F(this,this.G+this.J+J(this)); +this.F=this.C;break;case 130:b=Cg(this,this.M+this.K+J(this));this.F=this.C;break;case 131:b=Cg(this,this.M+this.J+J(this));this.F=this.C;break;case 132:b=F(this,this.K+J(this));this.F=this.C;break;case 133:b=F(this,this.J+J(this));this.F=this.C;break;case 134:b=Cg(this,this.M+J(this));this.F=this.C;break;case 135:b=F(this,this.G+J(this));this.F=this.C;break;case 192:b=this.D&65535;break;case 193:b=this.I&65535;break;case 194:b=this.L&65535;break;case 195:b=this.G&65535;break;case 196:b=z(this)&65535; break;case 197:b=this.M&65535;break;case 198:b=this.K&65535;break;case 199:b=this.J&65535;break;default:b=0}switch(this.ga>>3&7){case 0:c=this.D&65535;break;case 1:c=this.I&65535;break;case 2:c=this.L&65535;break;case 3:c=this.G&65535;break;case 4:c=z(this)&65535;break;case 5:c=this.M&65535;break;case 6:c=this.K&65535;break;case 7:c=this.J&65535;break;default:c=0}a=a.call(this,b,c);switch(d){case 0:case 3:Fg(this,a);this.A-=this.B.Rc;break;case 1:case 2:Fg(this,a);this.A-=this.B.Sc;break;case 4:case 5:case 7:Fg(this, a);this.A-=this.B.wc;break;case 6:Fg(this,a);this.A-=this.B.td;break;case 64:case 67:case 128:case 131:Fg(this,a);this.A-=this.B.Tb;break;case 65:case 66:case 129:case 130:Fg(this,a);this.A-=this.B.Ub;break;case 68:case 69:case 70:case 71:case 132:case 133:case 134:case 135:Fg(this,a);this.A-=this.B.Va;break;case 192:this.D=this.D&-65536|a;break;case 193:this.I=this.I&-65536|a;break;case 194:this.L=this.L&-65536|a;break;case 195:this.G=this.G&-65536|a;break;case 196:he(this,z(this)&-65536|a);break; case 197:this.M=this.M&-65536|a;break;case 198:this.K=this.K&-65536|a;break;case 199:this.J=this.J&-65536|a}} -function Df(a,b){var c,d=(this.ga=this.ra())&199;switch(d){case 0:c=E(this,this.G+this.K);this.F=this.C;break;case 1:c=E(this,this.G+this.J);this.F=this.C;break;case 2:c=Cg(this,this.M+this.K);this.F=this.C;break;case 3:c=Cg(this,this.M+this.J);this.F=this.C;break;case 4:c=E(this,this.K);this.F=this.C;break;case 5:c=E(this,this.J);this.F=this.C;break;case 6:c=E(this,J(this));this.F=this.C;break;case 7:c=E(this,this.G);this.F=this.C;break;case 64:c=E(this,this.G+this.K+this.S());this.F=this.C;break; -case 65:c=E(this,this.G+this.J+this.S());this.F=this.C;break;case 66:c=Cg(this,this.M+this.K+this.S());this.F=this.C;break;case 67:c=Cg(this,this.M+this.J+this.S());this.F=this.C;break;case 68:c=E(this,this.K+this.S());this.F=this.C;break;case 69:c=E(this,this.J+this.S());this.F=this.C;break;case 70:c=Cg(this,this.M+this.S());this.F=this.C;break;case 71:c=E(this,this.G+this.S());this.F=this.C;break;case 128:c=E(this,this.G+this.K+J(this));this.F=this.C;break;case 129:c=E(this,this.G+this.J+J(this)); -this.F=this.C;break;case 130:c=Cg(this,this.M+this.K+J(this));this.F=this.C;break;case 131:c=Cg(this,this.M+this.J+J(this));this.F=this.C;break;case 132:c=E(this,this.K+J(this));this.F=this.C;break;case 133:c=E(this,this.J+J(this));this.F=this.C;break;case 134:c=Cg(this,this.M+J(this));this.F=this.C;break;case 135:c=E(this,this.G+J(this));this.F=this.C;break;case 192:c=this.D&65535;break;case 193:c=this.I&65535;break;case 194:c=this.L&65535;break;case 195:c=this.G&65535;break;case 196:c=z(this)&65535; +function Df(a,b){var c,d=(this.ga=this.ra())&199;switch(d){case 0:c=F(this,this.G+this.K);this.F=this.C;break;case 1:c=F(this,this.G+this.J);this.F=this.C;break;case 2:c=Cg(this,this.M+this.K);this.F=this.C;break;case 3:c=Cg(this,this.M+this.J);this.F=this.C;break;case 4:c=F(this,this.K);this.F=this.C;break;case 5:c=F(this,this.J);this.F=this.C;break;case 6:c=F(this,J(this));this.F=this.C;break;case 7:c=F(this,this.G);this.F=this.C;break;case 64:c=F(this,this.G+this.K+this.S());this.F=this.C;break; +case 65:c=F(this,this.G+this.J+this.S());this.F=this.C;break;case 66:c=Cg(this,this.M+this.K+this.S());this.F=this.C;break;case 67:c=Cg(this,this.M+this.J+this.S());this.F=this.C;break;case 68:c=F(this,this.K+this.S());this.F=this.C;break;case 69:c=F(this,this.J+this.S());this.F=this.C;break;case 70:c=Cg(this,this.M+this.S());this.F=this.C;break;case 71:c=F(this,this.G+this.S());this.F=this.C;break;case 128:c=F(this,this.G+this.K+J(this));this.F=this.C;break;case 129:c=F(this,this.G+this.J+J(this)); +this.F=this.C;break;case 130:c=Cg(this,this.M+this.K+J(this));this.F=this.C;break;case 131:c=Cg(this,this.M+this.J+J(this));this.F=this.C;break;case 132:c=F(this,this.K+J(this));this.F=this.C;break;case 133:c=F(this,this.J+J(this));this.F=this.C;break;case 134:c=Cg(this,this.M+J(this));this.F=this.C;break;case 135:c=F(this,this.G+J(this));this.F=this.C;break;case 192:c=this.D&65535;break;case 193:c=this.I&65535;break;case 194:c=this.L&65535;break;case 195:c=this.G&65535;break;case 196:c=z(this)&65535; break;case 197:c=this.M&65535;break;case 198:c=this.K&65535;break;case 199:c=this.J&65535;break;default:c=0}a=a[this.ga>>3&7].call(this,c,b.call(this));switch(d){case 0:case 3:Fg(this,a);this.A-=this.B.Rc;break;case 1:case 2:Fg(this,a);this.A-=this.B.Sc;break;case 4:case 5:case 7:Fg(this,a);this.A-=this.B.wc;break;case 6:Fg(this,a);this.A-=this.B.td;break;case 64:case 67:case 128:case 131:Fg(this,a);this.A-=this.B.Tb;break;case 65:case 66:case 129:case 130:Fg(this,a);this.A-=this.B.Ub;break;case 68:case 69:case 70:case 71:case 132:case 133:case 134:case 135:Fg(this, a);this.A-=this.B.Va;break;case 192:this.D=this.D&-65536|a;break;case 193:this.I=this.I&-65536|a;break;case 194:this.L=this.L&-65536|a;break;case 195:this.G=this.G&-65536|a;break;case 196:he(this,z(this)&-65536|a);break;case 197:this.M=this.M&-65536|a;break;case 198:this.K=this.K&-65536|a;break;case 199:this.J=this.J&-65536|a}} function Ef(a){var b,c;switch((this.ga=this.ra())&199){case 0:c=G(this,this.G+this.K);this.A-=this.B.Rc;break;case 1:c=G(this,this.G+this.J);this.A-=this.B.Sc;break;case 2:c=Dg(this,this.M+this.K);this.A-=this.B.Sc;break;case 3:c=Dg(this,this.M+this.J);this.A-=this.B.Rc;break;case 4:c=G(this,this.K);this.A-=this.B.wc;break;case 5:c=G(this,this.J);this.A-=this.B.wc;break;case 6:c=G(this,J(this));this.A-=this.B.td;break;case 7:c=G(this,this.G);this.A-=this.B.wc;break;case 64:c=G(this,this.G+this.K+ @@ -307,18 +308,18 @@ function Jf(a,b){var c,d=(this.ga=this.ra())&199;switch(d){case 0:c=D(this,this. this.F=this.C;break;case 66:c=D(this,this.L+this.S());this.F=this.C;break;case 67:c=D(this,this.G+this.S());this.F=this.C;break;case 68:c=D(this,nk.call(this,1)+this.S());this.F=this.C;break;case 69:c=Ag(this,this.M+this.S());this.F=this.C;break;case 70:c=D(this,this.K+this.S());this.F=this.C;break;case 71:c=D(this,this.J+this.S());this.F=this.C;break;case 128:c=D(this,this.D+J(this));this.F=this.C;break;case 129:c=D(this,this.I+J(this));this.F=this.C;break;case 130:c=D(this,this.L+J(this));this.F= this.C;break;case 131:c=D(this,this.G+J(this));this.F=this.C;break;case 132:c=D(this,nk.call(this,2)+J(this));this.F=this.C;break;case 133:c=Ag(this,this.M+J(this));this.F=this.C;break;case 134:c=D(this,this.K+J(this));this.F=this.C;break;case 135:c=D(this,this.J+J(this));this.F=this.C;break;case 192:c=this.D&255;break;case 193:c=this.I&255;break;case 194:c=this.L&255;break;case 195:c=this.G&255;break;case 196:c=this.D>>8&255;break;case 197:c=this.I>>8&255;break;case 198:c=this.L>>8&255;break;case 199:c= this.G>>8&255;break;default:c=0}a=a[this.ga>>3&7].call(this,c,b.call(this));switch(d){case 192:this.D=this.D&-256|a;break;case 193:this.I=this.I&-256|a;break;case 194:this.L=this.L&-256|a;break;case 195:this.G=this.G&-256|a;break;case 196:this.D=this.D&-65281|a<<8;break;case 197:this.I=this.I&-65281|a<<8;break;case 198:this.L=this.L&-65281|a<<8;break;case 199:this.G=this.G&-65281|a<<8;break;default:Eg(this,a)}} -function Kf(a){var b,c;switch((this.ga=this.ra())&199){case 0:c=E(this,this.D);break;case 1:c=E(this,this.I);break;case 2:c=E(this,this.L);break;case 3:c=E(this,this.G);break;case 4:c=E(this,nk.call(this,0));break;case 5:c=E(this,J(this));break;case 6:c=E(this,this.K);break;case 7:c=E(this,this.J);break;case 64:c=E(this,this.D+this.S());break;case 65:c=E(this,this.I+this.S());break;case 66:c=E(this,this.L+this.S());break;case 67:c=E(this,this.G+this.S());break;case 68:c=E(this,nk.call(this,1)+this.S()); -break;case 69:c=Cg(this,this.M+this.S());break;case 70:c=E(this,this.K+this.S());break;case 71:c=E(this,this.J+this.S());break;case 128:c=E(this,this.D+J(this));break;case 129:c=E(this,this.I+J(this));break;case 130:c=E(this,this.L+J(this));break;case 131:c=E(this,this.G+J(this));break;case 132:c=E(this,nk.call(this,2)+J(this));break;case 133:c=Cg(this,this.M+J(this));break;case 134:c=E(this,this.K+J(this));break;case 135:c=E(this,this.J+J(this));break;case 192:c=this.D&65535;break;case 193:c=this.I& +function Kf(a){var b,c;switch((this.ga=this.ra())&199){case 0:c=F(this,this.D);break;case 1:c=F(this,this.I);break;case 2:c=F(this,this.L);break;case 3:c=F(this,this.G);break;case 4:c=F(this,nk.call(this,0));break;case 5:c=F(this,J(this));break;case 6:c=F(this,this.K);break;case 7:c=F(this,this.J);break;case 64:c=F(this,this.D+this.S());break;case 65:c=F(this,this.I+this.S());break;case 66:c=F(this,this.L+this.S());break;case 67:c=F(this,this.G+this.S());break;case 68:c=F(this,nk.call(this,1)+this.S()); +break;case 69:c=Cg(this,this.M+this.S());break;case 70:c=F(this,this.K+this.S());break;case 71:c=F(this,this.J+this.S());break;case 128:c=F(this,this.D+J(this));break;case 129:c=F(this,this.I+J(this));break;case 130:c=F(this,this.L+J(this));break;case 131:c=F(this,this.G+J(this));break;case 132:c=F(this,nk.call(this,2)+J(this));break;case 133:c=Cg(this,this.M+J(this));break;case 134:c=F(this,this.K+J(this));break;case 135:c=F(this,this.J+J(this));break;case 192:c=this.D&65535;break;case 193:c=this.I& 65535;break;case 194:c=this.L&65535;break;case 195:c=this.G&65535;break;case 196:c=z(this)&65535;break;case 197:c=this.M&65535;break;case 198:c=this.K&65535;break;case 199:c=this.J&65535;break;default:c=0}var d=this.ga>>3&7;switch(d){case 0:b=this.D&65535;break;case 1:b=this.I&65535;break;case 2:b=this.L&65535;break;case 3:b=this.G&65535;break;case 4:b=z(this)&65535;break;case 5:b=this.M&65535;break;case 6:b=this.K&65535;break;case 7:b=this.J&65535;break;default:b=0}a=a.call(this,b,c);switch(d){case 0:this.D= this.D&-65536|a;break;case 1:this.I=this.I&-65536|a;break;case 2:this.L=this.L&-65536|a;break;case 3:this.G=this.G&-65536|a;break;case 4:he(this,z(this)&-65536|a);break;case 5:this.M=this.M&-65536|a;break;case 6:this.K=this.K&-65536|a;break;case 7:this.J=this.J&-65536|a}} -function Lf(a){var b,c,d=(this.ga=this.ra())&199;switch(d){case 0:b=E(this,this.D);this.F=this.C;break;case 1:b=E(this,this.I);this.F=this.C;break;case 2:b=E(this,this.L);this.F=this.C;break;case 3:b=E(this,this.G);this.F=this.C;break;case 4:b=E(this,nk.call(this,0));this.F=this.C;break;case 5:b=E(this,J(this));this.F=this.C;break;case 6:b=E(this,this.K);this.F=this.C;break;case 7:b=E(this,this.J);this.F=this.C;break;case 64:b=E(this,this.D+this.S());this.F=this.C;break;case 65:b=E(this,this.I+this.S()); -this.F=this.C;break;case 66:b=E(this,this.L+this.S());this.F=this.C;break;case 67:b=E(this,this.G+this.S());this.F=this.C;break;case 68:b=E(this,nk.call(this,1)+this.S());this.F=this.C;break;case 69:b=Cg(this,this.M+this.S());this.F=this.C;break;case 70:b=E(this,this.K+this.S());this.F=this.C;break;case 71:b=E(this,this.J+this.S());this.F=this.C;break;case 128:b=E(this,this.D+J(this));this.F=this.C;break;case 129:b=E(this,this.I+J(this));this.F=this.C;break;case 130:b=E(this,this.L+J(this));this.F= -this.C;break;case 131:b=E(this,this.G+J(this));this.F=this.C;break;case 132:b=E(this,nk.call(this,2)+J(this));this.F=this.C;break;case 133:b=Cg(this,this.M+J(this));this.F=this.C;break;case 134:b=E(this,this.K+J(this));this.F=this.C;break;case 135:b=E(this,this.J+J(this));this.F=this.C;break;case 192:b=this.D&65535;break;case 193:b=this.I&65535;break;case 194:b=this.L&65535;break;case 195:b=this.G&65535;break;case 196:b=z(this)&65535;break;case 197:b=this.M&65535;break;case 198:b=this.K&65535;break; +function Lf(a){var b,c,d=(this.ga=this.ra())&199;switch(d){case 0:b=F(this,this.D);this.F=this.C;break;case 1:b=F(this,this.I);this.F=this.C;break;case 2:b=F(this,this.L);this.F=this.C;break;case 3:b=F(this,this.G);this.F=this.C;break;case 4:b=F(this,nk.call(this,0));this.F=this.C;break;case 5:b=F(this,J(this));this.F=this.C;break;case 6:b=F(this,this.K);this.F=this.C;break;case 7:b=F(this,this.J);this.F=this.C;break;case 64:b=F(this,this.D+this.S());this.F=this.C;break;case 65:b=F(this,this.I+this.S()); +this.F=this.C;break;case 66:b=F(this,this.L+this.S());this.F=this.C;break;case 67:b=F(this,this.G+this.S());this.F=this.C;break;case 68:b=F(this,nk.call(this,1)+this.S());this.F=this.C;break;case 69:b=Cg(this,this.M+this.S());this.F=this.C;break;case 70:b=F(this,this.K+this.S());this.F=this.C;break;case 71:b=F(this,this.J+this.S());this.F=this.C;break;case 128:b=F(this,this.D+J(this));this.F=this.C;break;case 129:b=F(this,this.I+J(this));this.F=this.C;break;case 130:b=F(this,this.L+J(this));this.F= +this.C;break;case 131:b=F(this,this.G+J(this));this.F=this.C;break;case 132:b=F(this,nk.call(this,2)+J(this));this.F=this.C;break;case 133:b=Cg(this,this.M+J(this));this.F=this.C;break;case 134:b=F(this,this.K+J(this));this.F=this.C;break;case 135:b=F(this,this.J+J(this));this.F=this.C;break;case 192:b=this.D&65535;break;case 193:b=this.I&65535;break;case 194:b=this.L&65535;break;case 195:b=this.G&65535;break;case 196:b=z(this)&65535;break;case 197:b=this.M&65535;break;case 198:b=this.K&65535;break; case 199:b=this.J&65535;break;default:b=0}switch(this.ga>>3&7){case 0:c=this.D&65535;break;case 1:c=this.I&65535;break;case 2:c=this.L&65535;break;case 3:c=this.G&65535;break;case 4:c=z(this)&65535;break;case 5:c=this.M&65535;break;case 6:c=this.K&65535;break;case 7:c=this.J&65535;break;default:c=0}a=a.call(this,b,c);switch(d){case 192:this.D=this.D&-65536|a;break;case 193:this.I=this.I&-65536|a;break;case 194:this.L=this.L&-65536|a;break;case 195:this.G=this.G&-65536|a;break;case 196:he(this,z(this)& -65536|a);break;case 197:this.M=this.M&-65536|a;break;case 198:this.K=this.K&-65536|a;break;case 199:this.J=this.J&-65536|a;break;default:Fg(this,a)}} -function Mf(a,b){var c,d=(this.ga=this.ra())&199;switch(d){case 0:c=E(this,this.D);this.F=this.C;break;case 1:c=E(this,this.I);this.F=this.C;break;case 2:c=E(this,this.L);this.F=this.C;break;case 3:c=E(this,this.G);this.F=this.C;break;case 4:c=E(this,nk.call(this,0));this.F=this.C;break;case 5:c=E(this,J(this));this.F=this.C;break;case 6:c=E(this,this.K);this.F=this.C;break;case 7:c=E(this,this.J);this.F=this.C;break;case 64:c=E(this,this.D+this.S());this.F=this.C;break;case 65:c=E(this,this.I+this.S()); -this.F=this.C;break;case 66:c=E(this,this.L+this.S());this.F=this.C;break;case 67:c=E(this,this.G+this.S());this.F=this.C;break;case 68:c=E(this,nk.call(this,1)+this.S());this.F=this.C;break;case 69:c=Cg(this,this.M+this.S());this.F=this.C;break;case 70:c=E(this,this.K+this.S());this.F=this.C;break;case 71:c=E(this,this.J+this.S());this.F=this.C;break;case 128:c=E(this,this.D+J(this));this.F=this.C;break;case 129:c=E(this,this.I+J(this));this.F=this.C;break;case 130:c=E(this,this.L+J(this));this.F= -this.C;break;case 131:c=E(this,this.G+J(this));this.F=this.C;break;case 132:c=E(this,nk.call(this,2)+J(this));this.F=this.C;break;case 133:c=Cg(this,this.M+J(this));this.F=this.C;break;case 134:c=E(this,this.K+J(this));this.F=this.C;break;case 135:c=E(this,this.J+J(this));this.F=this.C;break;case 192:c=this.D&65535;break;case 193:c=this.I&65535;break;case 194:c=this.L&65535;break;case 195:c=this.G&65535;break;case 196:c=z(this)&65535;break;case 197:c=this.M&65535;break;case 198:c=this.K&65535;break; +function Mf(a,b){var c,d=(this.ga=this.ra())&199;switch(d){case 0:c=F(this,this.D);this.F=this.C;break;case 1:c=F(this,this.I);this.F=this.C;break;case 2:c=F(this,this.L);this.F=this.C;break;case 3:c=F(this,this.G);this.F=this.C;break;case 4:c=F(this,nk.call(this,0));this.F=this.C;break;case 5:c=F(this,J(this));this.F=this.C;break;case 6:c=F(this,this.K);this.F=this.C;break;case 7:c=F(this,this.J);this.F=this.C;break;case 64:c=F(this,this.D+this.S());this.F=this.C;break;case 65:c=F(this,this.I+this.S()); +this.F=this.C;break;case 66:c=F(this,this.L+this.S());this.F=this.C;break;case 67:c=F(this,this.G+this.S());this.F=this.C;break;case 68:c=F(this,nk.call(this,1)+this.S());this.F=this.C;break;case 69:c=Cg(this,this.M+this.S());this.F=this.C;break;case 70:c=F(this,this.K+this.S());this.F=this.C;break;case 71:c=F(this,this.J+this.S());this.F=this.C;break;case 128:c=F(this,this.D+J(this));this.F=this.C;break;case 129:c=F(this,this.I+J(this));this.F=this.C;break;case 130:c=F(this,this.L+J(this));this.F= +this.C;break;case 131:c=F(this,this.G+J(this));this.F=this.C;break;case 132:c=F(this,nk.call(this,2)+J(this));this.F=this.C;break;case 133:c=Cg(this,this.M+J(this));this.F=this.C;break;case 134:c=F(this,this.K+J(this));this.F=this.C;break;case 135:c=F(this,this.J+J(this));this.F=this.C;break;case 192:c=this.D&65535;break;case 193:c=this.I&65535;break;case 194:c=this.L&65535;break;case 195:c=this.G&65535;break;case 196:c=z(this)&65535;break;case 197:c=this.M&65535;break;case 198:c=this.K&65535;break; case 199:c=this.J&65535;break;default:c=0}a=a[this.ga>>3&7].call(this,c,b.call(this));switch(d){case 192:this.D=this.D&-65536|a;break;case 193:this.I=this.I&-65536|a;break;case 194:this.L=this.L&-65536|a;break;case 195:this.G=this.G&-65536|a;break;case 196:he(this,z(this)&-65536|a);break;case 197:this.M=this.M&-65536|a;break;case 198:this.K=this.K&-65536|a;break;case 199:this.J=this.J&-65536|a;break;default:Fg(this,a)}} function Nf(a){var b,c;switch((this.ga=this.ra())&199){case 0:c=G(this,this.D);break;case 1:c=G(this,this.I);break;case 2:c=G(this,this.L);break;case 3:c=G(this,this.G);break;case 4:c=G(this,nk.call(this,0));break;case 5:c=G(this,J(this));break;case 6:c=G(this,this.K);break;case 7:c=G(this,this.J);break;case 64:c=G(this,this.D+this.S());break;case 65:c=G(this,this.I+this.S());break;case 66:c=G(this,this.L+this.S());break;case 67:c=G(this,this.G+this.S());break;case 68:c=G(this,nk.call(this,1)+this.S()); break;case 69:c=Dg(this,this.M+this.S());break;case 70:c=G(this,this.K+this.S());break;case 71:c=G(this,this.J+this.S());break;case 128:c=G(this,this.D+J(this));break;case 129:c=G(this,this.I+J(this));break;case 130:c=G(this,this.L+J(this));break;case 131:c=G(this,this.G+J(this));break;case 132:c=G(this,nk.call(this,2)+J(this));break;case 133:c=Dg(this,this.M+J(this));break;case 134:c=G(this,this.K+J(this));break;case 135:c=G(this,this.J+J(this));break;case 192:c=this.D;break;case 193:c=this.I;break; @@ -334,23 +335,23 @@ this.C;break;case 131:c=G(this,this.G+J(this));this.F=this.C;break;case 132:c=G( 3&7].call(this,c,b.call(this));switch(d){case 192:this.D=a;break;case 193:this.I=a;break;case 194:this.L=a;break;case 195:this.G=a;break;case 196:he(this,a);break;case 197:this.M=a;break;case 198:this.K=a;break;case 199:this.J=a;break;default:Gg(this,a)}} function nk(a){var b=this.ra(),c=b>>6,d,e;switch(b>>3&7){case 0:d=this.D;break;case 1:d=this.I;break;case 2:d=this.L;break;case 3:d=this.G;break;case 4:d=0;break;case 5:d=this.M;break;case 6:d=this.K;break;case 7:d=this.J}switch(b&7){case 0:e=this.D;break;case 1:e=this.I;break;case 2:e=this.L;break;case 3:e=this.G;break;case 4:e=z(this);this.Da=this.Rb;break;case 5:a?(e=this.M,this.Da=this.Rb):e=J(this);break;case 6:e=this.K;break;case 7:e=this.J}return(d<>8&255;9<(c&15)||fg(this)?(c+=6,80286<=this.ca&&255>3&7){case 0:a=this.D;this.D=this.ya;oe(this,a);break;case 1:a=this.I; -this.I=this.ya;Zf(this,a);break;case 2:a=this.L;this.L=this.ya;ge(this,a);break;case 3:a=this.G;this.G=this.ya;ne(this,a);break;case 4:a=z(this);he(this,this.ya);80386<=this.ca?this.Ga.load(a):oe(this,a);break;case 5:a=this.M;this.M=this.ya;80386<=this.ca?this.Ha.load(a):Zf(this,a);break;case 6:a=this.K;this.K=this.ya;ge(this,a);break;case 7:a=this.J,this.J=this.ya,ne(this,a)}},function(){this.N|=1;this.ta=this.Aa;this.ya=fe(this);this.ib.call(this,Uk,hk);this.ta=-1},function(){this.A-=3},function(){var a= +Tk,this.Ea);this.A-=-1===this.F?1:this.B.yg},Ek,function(){this.ib.call(this,Tk,this.S);this.A-=-1===this.F?1:this.B.yg},function(){this.tc.call(this,Pj)},function(){this.za.call(this,Qj)},function(){this.kc.call(this,Tj)},function(){this.ma.call(this,Uj)},Gk,Hk,Ik,Jk,function(){this.N|=1;this.za.call(this,hj)},function(){this.N|=1;this.Da=this.Rb=this.Qg;this.ma.call(this,Oi)},function(){var a;this.ma.call(this,gj);switch(this.ga>>3&7){case 0:a=this.D;this.D=this.xa;oe(this,a);break;case 1:a=this.I; +this.I=this.xa;Zf(this,a);break;case 2:a=this.L;this.L=this.xa;ge(this,a);break;case 3:a=this.G;this.G=this.xa;ne(this,a);break;case 4:a=z(this);he(this,this.xa);80386<=this.ca?this.Ga.load(a):oe(this,a);break;case 5:a=this.M;this.M=this.xa;80386<=this.ca?this.Ha.load(a):Zf(this,a);break;case 6:a=this.K;this.K=this.xa;ge(this,a);break;case 7:a=this.J,this.J=this.xa,ne(this,a)}},function(){this.N|=1;this.ta=this.Aa;this.xa=fe(this);this.ib.call(this,Uk,hk);this.ta=-1},function(){this.A-=3},function(){var a= this.D;this.D=this.D&~this.R|this.I&this.R;this.I=this.I&~this.R|a&this.R;this.A-=3},function(){var a=this.D;this.D=this.D&~this.R|this.L&this.R;this.L=this.L&~this.R|a&this.R;this.A-=3},function(){var a=this.D;this.D=this.D&~this.R|this.G&this.R;this.G=this.G&~this.R|a&this.R;this.A-=3},function(){var a=this.D,b=z(this);this.D=this.D&~this.R|b&this.R;he(this,b&~this.R|a&this.R);this.A-=3},function(){var a=this.D;this.D=this.D&~this.R|this.M&this.R;this.M=this.M&~this.R|a&this.R;this.A-=3},function(){var a= -this.D;this.D=this.D&~this.R|this.K&this.R;this.K=this.K&~this.R|a&this.R;this.A-=3},function(){var a=this.D;this.D=this.D&~this.R|this.J&this.R;this.J=this.J&~this.R|a&this.R;this.A-=3},function(){this.D=2==this.V?this.D&-65536|this.D<<24>>24&65535:this.D<<16>>16;this.A-=2},function(){this.L=2==this.V?this.L&-65536|(this.D&32768?65535:0):this.D&-2147483648?-1:0;this.A-=this.B.Kj},function(){ik.call(this,this.Ea(),Hg(this));this.A-=this.B.Nj},function(){this.A-=3},function(){var a=re(this);a&131072&& +this.D;this.D=this.D&~this.R|this.K&this.R;this.K=this.K&~this.R|a&this.R;this.A-=3},function(){var a=this.D;this.D=this.D&~this.R|this.J&this.R;this.J=this.J&~this.R|a&this.R;this.A-=3},function(){this.D=2==this.W?this.D&-65536|this.D<<24>>24&65535:this.D<<16>>16;this.A-=2},function(){this.L=2==this.W?this.L&-65536|(this.D&32768?65535:0):this.D&-2147483648?-1:0;this.A-=this.B.Kj},function(){ik.call(this,this.Ea(),Hg(this));this.A-=this.B.Nj},function(){this.A-=3},function(){var a=re(this);a&131072&& 3>this.lc?y.call(this,13,0):(pe(this,a&-196609),this.A-=this.B.Ic)},function(){if(this.O&131072&&3>this.lc)y.call(this,13,0);else{var a=fe(this),a=a&65535|this.O&-65536;se(this,a);this.A-=this.B.nc}},function(){var a=this.D>>8&255;a&1?kg(this):lg(this);a&4?(this.resultType&=-3,this.O|=4):(this.resultType&=-3,this.O&=-5);a&16?ug(this):qg(this);a&64?vg(this):rg(this);a&128?(this.resultType&=-17,this.O|=128):(this.resultType&=-17,this.O&=-129);this.A-=this.B.Vb},function(){this.D=this.D&-65281|(re(this)& -213)<<8;this.A-=this.B.Vb},function(){var a=this.D&-256,b;b=J(this);b=this.Ia(this.Da.bc(b,1));this.D=a|b;this.A-=this.B.Kh},function(){this.D=this.D&~this.R|le(this,this.Da,J(this));this.A-=this.B.Kh},function(){var a=J(this),b=this.D;this.fc(this.Da.cc(a,1),b);this.A-=this.B.Lh},function(){var a=J(this),b=this.D;this.yb(this.Da.cc(a,this.V),b);this.A-=this.B.Lh},function(){var a=1,b=0,c=this.wa,d=this.B.Mh;this.ha&192&&(a=this.I&c,b=1,d=this.B.Oh,this.ha&256||(this.A-=this.B.Nh));if(a--){var e= -this.Ia(this.Da.bc(this.K&c,1));this.fc(this.oa.cc(this.J&c,1),e);e=this.O&1024?-1:1;this.K=this.K&~c|this.K+e&c;this.J=this.J&~c|this.J+e&c;this.A-=d;this.I=this.I&~c|this.I-b&c;a&&(bg(this),this.N|=256)}},function(){var a=1,b=0,c=this.wa,d=this.B.Mh;this.ha&192&&(a=this.I&c,b=1,d=this.B.Oh,this.ha&256||(this.A-=this.B.Nh));if(a--){var e=le(this,this.Da,this.K&c);this.yb(this.oa.cc(this.J&c,this.V),e);e=this.O&1024?-this.V:this.V;this.K=this.K&~c|this.K+e&c;this.J=this.J&~c|this.J+e&c;this.A-=d; +213)<<8;this.A-=this.B.Vb},function(){var a=this.D&-256,b;b=J(this);b=this.Ia(this.Da.bc(b,1));this.D=a|b;this.A-=this.B.Kh},function(){this.D=this.D&~this.R|le(this,this.Da,J(this));this.A-=this.B.Kh},function(){var a=J(this),b=this.D;this.fc(this.Da.cc(a,1),b);this.A-=this.B.Lh},function(){var a=J(this),b=this.D;this.yb(this.Da.cc(a,this.W),b);this.A-=this.B.Lh},function(){var a=1,b=0,c=this.wa,d=this.B.Mh;this.ha&192&&(a=this.I&c,b=1,d=this.B.Oh,this.ha&256||(this.A-=this.B.Nh));if(a--){var e= +this.Ia(this.Da.bc(this.K&c,1));this.fc(this.oa.cc(this.J&c,1),e);e=this.O&1024?-1:1;this.K=this.K&~c|this.K+e&c;this.J=this.J&~c|this.J+e&c;this.A-=d;this.I=this.I&~c|this.I-b&c;a&&(bg(this),this.N|=256)}},function(){var a=1,b=0,c=this.wa,d=this.B.Mh;this.ha&192&&(a=this.I&c,b=1,d=this.B.Oh,this.ha&256||(this.A-=this.B.Nh));if(a--){var e=le(this,this.Da,this.K&c);this.yb(this.oa.cc(this.J&c,this.W),e);e=this.O&1024?-this.W:this.W;this.K=this.K&~c|this.K+e&c;this.J=this.J&~c|this.J+e&c;this.A-=d; this.I=this.I&~c|this.I-b&c;a&&(bg(this),this.N|=256)}},function(){var a=1,b=0,c=this.wa,d=this.B.xh;this.ha&192&&(a=this.I&c,b=1,d=this.B.zh,this.ha&256||(this.A-=this.B.yh));if(a--){var e=zg(this,this.Da,this.K),f=zg(this,this.oa,this.J);this.F=this.C;Bi.call(this,e,f);e=this.O&1024?-1:1;this.K=this.K&~c|this.K+e&c;this.J=this.J&~c|this.J+e&c;this.I=this.I&~c|this.I-b&c;this.A-=d-this.B.Ib;a&&gg(this)==(this.ha&64)&&(bg(this),this.N|=256)}},function(){var a=1,b=0,c=this.wa,d=this.B.xh;this.ha&192&& -(a=this.I&c,b=1,d=this.B.zh,this.ha&256||(this.A-=this.B.yh));if(a--){var e=Bg(this,this.Da,this.K&c),f=Bg(this,this.oa,this.J&c);this.F=this.C;Ci.call(this,e,f);e=this.O&1024?-this.V:this.V;this.K=this.K&~c|this.K+e&c;this.J=this.J&~c|this.J+e&c;this.I=this.I&~c|this.I-b&c;this.A-=d-this.B.Ib;a&&gg(this)==(this.ha&64)&&(bg(this),this.N|=256)}},function(){jg(this,this.D&this.ra(),128);this.A-=this.B.qe},function(){jg(this,this.D&this.Ea(),this.Fb);this.A-=this.B.qe},function(){var a=1,b=0,c=this.wa, +(a=this.I&c,b=1,d=this.B.zh,this.ha&256||(this.A-=this.B.yh));if(a--){var e=Bg(this,this.Da,this.K&c),f=Bg(this,this.oa,this.J&c);this.F=this.C;Ci.call(this,e,f);e=this.O&1024?-this.W:this.W;this.K=this.K&~c|this.K+e&c;this.J=this.J&~c|this.J+e&c;this.I=this.I&~c|this.I-b&c;this.A-=d-this.B.Ib;a&&gg(this)==(this.ha&64)&&(bg(this),this.N|=256)}},function(){jg(this,this.D&this.ra(),128);this.A-=this.B.qe},function(){jg(this,this.D&this.Ea(),this.Fb);this.A-=this.B.qe},function(){var a=1,b=0,c=this.wa, d=this.B.Xh;this.ha&192&&(a=this.I&c,b=1,d=this.B.Zh,this.ha&256||(this.A-=this.B.Yh));if(a--){var e=this.D;this.fc(this.oa.cc(this.J&c,1),e);this.I=this.I&~c|this.I-b&c;80546<=this.we&&80564>=this.we&&!(this.ha&2048)!=(103!=this.Ia(this.da))&&(c^=-65536);this.J=this.J&~c|this.J+(this.O&1024?-1:1)&c;this.A-=d;a&&(bg(this),this.N|=256)}},function(){var a=1,b=0,c=this.wa,d=this.B.Xh;this.ha&192&&(a=this.I&c,b=1,d=this.B.Zh,this.ha&256||(this.A-=this.B.Yh));if(a--){var e=this.D;this.yb(this.oa.cc(this.J& -c,this.V),e);this.J=this.J&~c|this.J+(this.O&1024?-this.V:this.V)&c;this.I=this.I&~c|this.I-b&c;this.A-=d;a&&(bg(this),this.N|=256)}},function(){var a=1,b=0,c=this.wa,d=this.B.Eh;this.ha&192&&(a=this.I&c,b=1,d=this.B.Gh,this.ha&256||(this.A-=this.B.Fh));if(a--){var e=this.Ia(this.Da.bc(this.K&c,1));this.D=this.D&-256|e;this.K=this.K&~c|this.K+(this.O&1024?-1:1)&c;this.I=this.I&~c|this.I-b&c;this.A-=d;a&&(bg(this),this.N|=256)}},function(){var a=1,b=0,c=this.wa,d=this.B.Eh;this.ha&192&&(a=this.I&c, -b=1,d=this.B.Gh,this.ha&256||(this.A-=this.B.Fh));if(a--){var e=le(this,this.Da,this.K&c);this.D=this.D&~this.R|e;this.K=this.K&~c|this.K+(this.O&1024?-this.V:this.V)&c;this.I=this.I&~c|this.I-b&c;this.A-=d;a&&(bg(this),this.N|=256)}},function(){var a=1,b=0,c=this.wa,d=this.B.Rh;this.ha&192&&(a=this.I&c,b=1,d=this.B.Th,this.ha&256||(this.A-=this.B.Sh));if(a--){var e=this.D&255,f=zg(this,this.oa,this.J);this.F=this.C;Bi.call(this,e,f);this.J=this.J&~c|this.J+(this.O&1024?-1:1)&c;this.I=this.I&~c|this.I- -b&c;this.A-=d-this.B.Ib;a&&gg(this)==(this.ha&64)&&(bg(this),this.N|=256)}},function(){var a=1,b=0,c=this.wa,d=this.B.Rh;this.ha&192&&(a=this.I&c,b=1,d=this.B.Th,this.ha&256||(this.A-=this.B.Sh));if(a--){var e=this.D&this.R,f=Bg(this,this.oa,this.J&c);this.F=this.C;Ci.call(this,e,f);this.J=this.J&~c|this.J+(this.O&1024?-this.V:this.V)&c;this.I=this.I&~c|this.I-b&c;this.A-=d-this.B.Ib;a&&gg(this)==(this.ha&64)&&(bg(this),this.N|=256)}},function(){this.D=this.D&-256|this.ra();this.A-=this.B.Vb},function(){this.I= +c,this.W),e);this.J=this.J&~c|this.J+(this.O&1024?-this.W:this.W)&c;this.I=this.I&~c|this.I-b&c;this.A-=d;a&&(bg(this),this.N|=256)}},function(){var a=1,b=0,c=this.wa,d=this.B.Eh;this.ha&192&&(a=this.I&c,b=1,d=this.B.Gh,this.ha&256||(this.A-=this.B.Fh));if(a--){var e=this.Ia(this.Da.bc(this.K&c,1));this.D=this.D&-256|e;this.K=this.K&~c|this.K+(this.O&1024?-1:1)&c;this.I=this.I&~c|this.I-b&c;this.A-=d;a&&(bg(this),this.N|=256)}},function(){var a=1,b=0,c=this.wa,d=this.B.Eh;this.ha&192&&(a=this.I&c, +b=1,d=this.B.Gh,this.ha&256||(this.A-=this.B.Fh));if(a--){var e=le(this,this.Da,this.K&c);this.D=this.D&~this.R|e;this.K=this.K&~c|this.K+(this.O&1024?-this.W:this.W)&c;this.I=this.I&~c|this.I-b&c;this.A-=d;a&&(bg(this),this.N|=256)}},function(){var a=1,b=0,c=this.wa,d=this.B.Rh;this.ha&192&&(a=this.I&c,b=1,d=this.B.Th,this.ha&256||(this.A-=this.B.Sh));if(a--){var e=this.D&255,f=zg(this,this.oa,this.J);this.F=this.C;Bi.call(this,e,f);this.J=this.J&~c|this.J+(this.O&1024?-1:1)&c;this.I=this.I&~c|this.I- +b&c;this.A-=d-this.B.Ib;a&&gg(this)==(this.ha&64)&&(bg(this),this.N|=256)}},function(){var a=1,b=0,c=this.wa,d=this.B.Rh;this.ha&192&&(a=this.I&c,b=1,d=this.B.Th,this.ha&256||(this.A-=this.B.Sh));if(a--){var e=this.D&this.R,f=Bg(this,this.oa,this.J&c);this.F=this.C;Ci.call(this,e,f);this.J=this.J&~c|this.J+(this.O&1024?-this.W:this.W)&c;this.I=this.I&~c|this.I-b&c;this.A-=d-this.B.Ib;a&&gg(this)==(this.ha&64)&&(bg(this),this.N|=256)}},function(){this.D=this.D&-256|this.ra();this.A-=this.B.Vb},function(){this.I= this.I&-256|this.ra();this.A-=this.B.Vb},function(){this.L=this.L&-256|this.ra();this.A-=this.B.Vb},function(){this.G=this.G&-256|this.ra();this.A-=this.B.Vb},function(){this.D=this.D&-65281|this.ra()<<8;this.A-=this.B.Vb},function(){this.I=this.I&-65281|this.ra()<<8;this.A-=this.B.Vb},function(){this.L=this.L&-65281|this.ra()<<8;this.A-=this.B.Vb},function(){this.G=this.G&-65281|this.ra()<<8;this.A-=this.B.Vb},function(){this.D=this.D&~this.R|this.Ea();this.A-=this.B.Vb},function(){this.I=this.I& ~this.R|this.Ea();this.A-=this.B.Vb},function(){this.L=this.L&~this.R|this.Ea();this.A-=this.B.Vb},function(){this.G=this.G&~this.R|this.Ea();this.A-=this.B.Vb},function(){he(this,z(this)&~this.R|this.Ea());this.A-=this.B.Vb},function(){this.M=this.M&~this.R|this.Ea();this.A-=this.B.Vb},function(){this.K=this.K&~this.R|this.Ea();this.A-=this.B.Vb},function(){this.J=this.J&~this.R|this.Ea();this.A-=this.B.Vb},Nk,Ok,Nk,Ok,function(){this.ma.call(this,Pi)},function(){this.ma.call(this,Ni)},function(){this.N|= 1;this.kd.call(this,Vk,this.ra)},function(){this.N|=1;this.ib.call(this,Vk,this.Ea)},Pk,Qk,Pk,Qk,function(){if(this.O&131072&&3>this.lc)y.call(this,13,0);else{var a=this.B.dk;this.Uc=-1;jk.call(this,3,null,a)}},function(){var a=this.ra();if(this.O&131072&&3>this.lc)y.call(this,13,0);else{var b;a:{b=this.Yf[a];if(void 0!==b)for(var c=0;cthis.lc)y.call(this,13,0);else{var a=this.B.ek;this.Uc=-1;jk.call(this,4,null,a)}else this.A-=this.B.fk},function(){if(this.O&131072&&3>this.lc)y.call(this,13,0);else{this.Vc=this.Y.U;this.ta=this.Aa;this.A-=this.B.bk;if(this.qa&1&&this.O&16384){var a=this.ja(this.la.ua+0);ie(this.Z,a,!1)}else{var a=this.Ma,b=fe(this),c=fe(this),d=fe(this);if(this.O&131072)d=d&131071|this.O&-131072;else if(d&131072){var e=fe(this),f=fe(this),g=fe(this),h=fe(this),k=fe(this),m=fe(this);je(this,!0,!0);ge(this, -f);he(this,e);oe(this,g);ne(this,h);this.Ga.load(k);this.Ha.load(m)}null!=te(this,b,c,!1)&&(se(this,d,a),this.ag&&Uf(this,this.da))}this.Vc=this.ta=-1}},function(){this.kd.call(this,Kk,dk)},function(){this.ib.call(this,2==this.V?Lk:Mk,dk)},function(){this.kd.call(this,Kk,ek)},function(){this.ib.call(this,2==this.V?Lk:Mk,ek)},function(){var a=this.ra();if(a){var b=this.D&255;this.D=this.D&-65536|b/a<<8|b%a;jg(this,this.D,128);this.A-=this.B.Hj}else mk.call(this)},function(){var a=this.D&255,b=(this.D>> +f);he(this,e);oe(this,g);ne(this,h);this.Ga.load(k);this.Ha.load(m)}null!=te(this,b,c,!1)&&(se(this,d,a),this.ag&&Uf(this,this.da))}this.Vc=this.ta=-1}},function(){this.kd.call(this,Kk,dk)},function(){this.ib.call(this,2==this.W?Lk:Mk,dk)},function(){this.kd.call(this,Kk,ek)},function(){this.ib.call(this,2==this.W?Lk:Mk,ek)},function(){var a=this.ra();if(a){var b=this.D&255;this.D=this.D&-65536|b/a<<8|b%a;jg(this,this.D,128);this.A-=this.B.Hj}else mk.call(this)},function(){var a=this.D&255,b=(this.D>> 8&255)*this.ra()|0,c=a+b|0;this.D=this.D&-65536|c&255;cg(this,a,b,c,191);this.A-=this.B.Gj},function(){this.D=this.D&-256|(dg(this)?255:0);this.A-=2},function(){this.D=this.D&-256|zg(this,this.Da,this.G+(this.D&255));this.A-=this.B.Gk},function(){Rk.call(this,216)},function(){Rk.call(this,217)},function(){Rk.call(this,218)},function(){Rk.call(this,219)},function(){Rk.call(this,220)},function(){Rk.call(this,221)},function(){Rk.call(this,222)},function(){Rk.call(this,223)},function(){var a=this.S(), b=this.I-1&this.wa;this.I=this.I&~this.wa|b;b&&!gg(this)?(C(this,A(this)+a),this.A-=this.B.mk):this.A-=this.B.Hh},function(){var a=this.S(),b=this.I-1&this.wa;this.I=this.I&~this.wa|b;b&&gg(this)?(C(this,A(this)+a),this.A-=this.B.Ih):this.A-=this.B.Jh},function(){var a=this.S(),b=this.I-1&this.wa;this.I=this.I&~this.wa|b;b?(C(this,A(this)+a),this.A-=this.B.lk):this.A-=this.B.Hh},function(){var a=this.S();this.I&this.wa?this.A-=this.B.Jh:(C(this,A(this)+a),this.A-=this.B.Ih)},function(){var a=this.ra(); -xg(this,a,1,!0)&&(this.D=this.D&-256|Pc(this.ka,a,1,this.da-2)&255,this.A-=this.B.Ch)},function(){var a=this.ra();xg(this,a,this.V,!0)&&(this.D=this.D&~this.R|Pc(this.ka,a,this.V,this.da-2)&this.R,this.A-=this.B.Ch)},function(){var a=this.ra();xg(this,a,1,!1)&&(Tc(this.ka,a,1,this.D&255,this.da-2),this.A-=this.B.Qh)},function(){var a=this.ra();xg(this,a,this.V,!1)&&(Tc(this.ka,a,this.V,this.D&this.R,this.da-2),this.A-=this.B.Qh)},function(){var a=this.Ea(),b=A(this),a=b+a;pe(this,b);C(this,a);this.A-= -this.B.Lj},function(){var a=this.Ea();C(this,A(this)+a);this.A-=this.B.Dh},function(){te(this,this.Ea(),Hg(this));this.A-=this.B.hk},function(){var a=this.S();C(this,A(this)+a);this.A-=this.B.Dh},function(){var a=this.L&65535;xg(this,a,1,!0)&&(this.D=this.D&-256|Pc(this.ka,a,1,this.da-1)&255,this.A-=this.B.Bh)},function(){var a=this.L&65535;xg(this,a,this.V,!0)&&(this.D=this.D&~this.R|Pc(this.ka,a,this.V,this.da-1)&this.R,this.A-=this.B.Bh)},function(){var a=this.L&65535;xg(this,a,1,!1)&&(Tc(this.ka, -a,1,this.D&255,this.da-1),this.A-=this.B.Ph)},function(){var a=this.L&65535;xg(this,a,2,!1)&&(Tc(this.ka,a,this.V,this.D&this.R,this.da-1),this.A-=this.B.Ph)},Sk,Sk,function(){this.N|=132;this.A-=this.B.bd},function(){this.N|=68;this.A-=this.B.bd},function(){this.O&131072?y.call(this,13,0):(this.Xa|=4,this.A-=2,this.ba&&t(this,-2147483648)?(bg(this),this.ba.Jb()):this.O&512||(this.ba&&bg(this),this.Jb()))},function(){dg(this)?lg(this):kg(this);this.A-=2},function(){this.vc=!1;this.kd.call(this,Xk, +xg(this,a,1,!0)&&(this.D=this.D&-256|Pc(this.ka,a,1,this.da-2)&255,this.A-=this.B.Ch)},function(){var a=this.ra();xg(this,a,this.W,!0)&&(this.D=this.D&~this.R|Pc(this.ka,a,this.W,this.da-2)&this.R,this.A-=this.B.Ch)},function(){var a=this.ra();xg(this,a,1,!1)&&(Tc(this.ka,a,1,this.D&255,this.da-2),this.A-=this.B.Qh)},function(){var a=this.ra();xg(this,a,this.W,!1)&&(Tc(this.ka,a,this.W,this.D&this.R,this.da-2),this.A-=this.B.Qh)},function(){var a=this.Ea(),b=A(this),a=b+a;pe(this,b);C(this,a);this.A-= +this.B.Lj},function(){var a=this.Ea();C(this,A(this)+a);this.A-=this.B.Dh},function(){te(this,this.Ea(),Hg(this));this.A-=this.B.hk},function(){var a=this.S();C(this,A(this)+a);this.A-=this.B.Dh},function(){var a=this.L&65535;xg(this,a,1,!0)&&(this.D=this.D&-256|Pc(this.ka,a,1,this.da-1)&255,this.A-=this.B.Bh)},function(){var a=this.L&65535;xg(this,a,this.W,!0)&&(this.D=this.D&~this.R|Pc(this.ka,a,this.W,this.da-1)&this.R,this.A-=this.B.Bh)},function(){var a=this.L&65535;xg(this,a,1,!1)&&(Tc(this.ka, +a,1,this.D&255,this.da-1),this.A-=this.B.Ph)},function(){var a=this.L&65535;xg(this,a,2,!1)&&(Tc(this.ka,a,this.W,this.D&this.R,this.da-1),this.A-=this.B.Ph)},Sk,Sk,function(){this.N|=132;this.A-=this.B.bd},function(){this.N|=68;this.A-=this.B.bd},function(){this.O&131072?y.call(this,13,0):(this.Xa|=4,this.A-=2,this.ba&&t(this,-2147483648)?(bg(this),this.ba.Jb()):this.O&512||(this.ba&&bg(this),this.Jb()))},function(){dg(this)?lg(this):kg(this);this.A-=2},function(){this.vc=!1;this.kd.call(this,Xk, gk);this.vc&&(this.D=this.D&~this.R|this.Ba&this.R)},function(){this.vc=!1;this.ib.call(this,Yk,gk);this.vc&&(this.D=this.D&~this.R|this.Ba&this.R,this.L=this.L&~this.R|this.Ya&this.R)},function(){lg(this);this.A-=2},function(){kg(this);this.A-=2},function(){this.Ma>this.lc?y.call(this,13,0):(this.O&=-513,this.A-=this.B.Jj)},function(){this.Ma>this.lc?y.call(this,13,0):(this.O|=512,this.N|=4,this.A-=2)},function(){this.O&=-1025;this.A-=2},function(){this.O|=1024;this.A-=2},function(){this.kd.call(this, Be,gk)},function(){this.ib.call(this,Ce,gk)}],Fk=[li,ij,ji,kj,ni,Nj,Vj,Bi],Tk=[mi,jj,ki,lj,oi,Oj,Wj,Ci],Uk=[function(a,b){this.A-=-1===this.F?this.B.nc:this.B.yk;return b},Ei,Ei,Ei,Ei,Ei,Ei,Ei],Vk=[function(a,b){this.A-=-1===this.F?this.B.qk:this.B.nk;return b},Fi,Fi,Fi,Fi,Fi,Fi,Fi],Kk=[function(a,b){var c=a;if(b&=this.Ta){var d;(b&=7)?(d=a<>8-b)&255):d=a<<7;og(this,c,d,128)}return c},function(a,b){var c=a;if(b&=this.Ta){var d;(b&=7)?(d=a<<8-b,c=(a>>>b|d)&255):d=a;og(this,c,d,128)}return c}, function(a,b){var c=a;if(b&=this.Ta){var d=pg(this);(b%=9)?(c=(a<>9-b)&255,d=a<>b|d<<8-b|a<<9-b)&255,d=a<<8-b):d<<=7;og(this,c,d,128)}return c},function(a,b){var c=a;if(b&=this.Ta){var d=0;8>>b-1,a=b>>>1&255,jg(this,a,128,b&1,a&128);return a},Fi,function(a,b){if(b&=this.Ta)9>9- function(a,b){var c=a;if(b&=this.Ta){var d=a<<32-b,c=a>>>b|d;og(this,c,d,-2147483648)}return c},function(a,b){var c=a;if(b&=this.Ta)c=pg(this),c=a<>>32-b>>>1,og(this,c,a<>>b|c<<32-b|a<<32-b<<1,og(this,c,a<<32-b,-2147483648);return c},function(a,b){var c=a;if(b&=this.Ta)a<<=b-1,c=a<<1,jg(this,c,-2147483648,a&-2147483648,(c^a)&-2147483648);return c},function(a,b){if(b&=this.Ta)b=a>>>b-1,a=b>>>1,jg(this,a,-2147483648, b&1,a&-2147483648);return a},Fi,function(a,b){if(b&=this.Ta)b=a>>b-1,a=b>>1,jg(this,a,-2147483648,b&1);return a}],Xk=[function(a,b){b=this.ra();jg(this,a&b,128);this.A-=-1===this.C?this.B.ai:this.B.$h;this.N|=2;return a},Fi,function(a){this.A-=-1===this.C?this.B.Ff:this.B.Ef;return a^255},function(a){var b=-a|0;cg(this,0,a,b,191,!0);this.A-=-1===this.C?this.B.Ff:this.B.Ef;return b&255},function(a){this.Ba=(this.D&255)*a&65535;this.Ba&65280?(kg(this),mg(this)):(lg(this),ng(this));this.vc=!0;this.A-= -1===this.C?this.B.uk:this.B.tk;this.N|=2;return a},function(a){var b=(this.D<<24>>24)*(a<<24>>24)|0;this.Ba=b&65535;127b?(kg(this),mg(this)):(lg(this),ng(this));this.vc=!0;this.A-=-1===this.C?this.B.Zj:this.B.Yj;this.N|=2;return a},function(a,b){if(!a)return mk.call(this),a;var c=(b=this.D&65535)/a;if(255>24,d= -(b=this.D<<16>>16)/c|0;if(d!=d<<24>>24||8086==this.ca&&-128==d)return mk.call(this),a;this.Ba=d&255|(b%c&255)<<8;this.vc=!0;this.A-=-1===this.C?this.B.Vj:this.B.Uj;this.N|=2;return a}],Yk=[function(a,b){b=this.Ea();jg(this,a&b,this.Fb);this.A-=-1===this.C?this.B.ai:this.B.$h;this.N|=2;return a},Fi,function(a){this.A-=-1===this.C?this.B.Ff:this.B.Ef;return a^this.R},function(a){var b=-a|0;cg(this,0,a,b,this.Fb|63,!0);this.A-=-1===this.C?this.B.Ff:this.B.Ef;return b&this.R},function(a,b){2==this.V? -(b=this.D&65535,b=b*a|0,this.Ba=b&65535,this.Ya=b>>16&65535):(Li.call(this,a,this.D),80563==this.we&&68657152==this.D&&129==a&&(this.Ya=0));this.Ya?(kg(this),mg(this)):(lg(this),ng(this));this.vc=!0;this.A-=-1===this.C?this.B.wk:this.B.vk;this.N|=2;return a},function(a,b){2==this.V?(b=this.D&65535,b=(b<<16>>16)*(a<<16>>16)|0,this.Ba=b&65535,this.Ya=b>>16&65535,b=32767b):(Ki.call(this,a,this.D),b=this.Ya!=this.Ba>>31);b?(kg(this),mg(this)):(lg(this),ng(this));this.vc=!0;this.A-=-1===this.C? -this.B.ak:this.B.$j;this.N|=2;return a},function(a,b){if(2==this.V){if(!a)return mk.call(this),a;b=65536*(this.L&65535)+(this.D&65535);var c=b/a;if(65536<=c)return mk.call(this),a;this.Ba=c&65535;this.Ya=b%a&65535}else{if(!Zj.call(this,this.D,this.L,a))return mk.call(this),a;this.Ba|=0;this.Ya|=0}this.vc=!0;this.A-=-1===this.C?this.B.Tj:this.B.Sj;this.N|=2;return a},function(a,b){if(2==this.V){if(!a)return mk.call(this),a;var c=a<<16>>16,d=(b=this.L<<16|this.D&65535)/c|0;if(d!=d<<16>>16||8086==this.ca&& +(b=this.D<<16>>16)/c|0;if(d!=d<<24>>24||8086==this.ca&&-128==d)return mk.call(this),a;this.Ba=d&255|(b%c&255)<<8;this.vc=!0;this.A-=-1===this.C?this.B.Vj:this.B.Uj;this.N|=2;return a}],Yk=[function(a,b){b=this.Ea();jg(this,a&b,this.Fb);this.A-=-1===this.C?this.B.ai:this.B.$h;this.N|=2;return a},Fi,function(a){this.A-=-1===this.C?this.B.Ff:this.B.Ef;return a^this.R},function(a){var b=-a|0;cg(this,0,a,b,this.Fb|63,!0);this.A-=-1===this.C?this.B.Ff:this.B.Ef;return b&this.R},function(a,b){2==this.W? +(b=this.D&65535,b=b*a|0,this.Ba=b&65535,this.Ya=b>>16&65535):(Li.call(this,a,this.D),80563==this.we&&68657152==this.D&&129==a&&(this.Ya=0));this.Ya?(kg(this),mg(this)):(lg(this),ng(this));this.vc=!0;this.A-=-1===this.C?this.B.wk:this.B.vk;this.N|=2;return a},function(a,b){2==this.W?(b=this.D&65535,b=(b<<16>>16)*(a<<16>>16)|0,this.Ba=b&65535,this.Ya=b>>16&65535,b=32767b):(Ki.call(this,a,this.D),b=this.Ya!=this.Ba>>31);b?(kg(this),mg(this)):(lg(this),ng(this));this.vc=!0;this.A-=-1===this.C? +this.B.ak:this.B.$j;this.N|=2;return a},function(a,b){if(2==this.W){if(!a)return mk.call(this),a;b=65536*(this.L&65535)+(this.D&65535);var c=b/a;if(65536<=c)return mk.call(this),a;this.Ba=c&65535;this.Ya=b%a&65535}else{if(!Zj.call(this,this.D,this.L,a))return mk.call(this),a;this.Ba|=0;this.Ya|=0}this.vc=!0;this.A-=-1===this.C?this.B.Tj:this.B.Sj;this.N|=2;return a},function(a,b){if(2==this.W){if(!a)return mk.call(this),a;var c=a<<16>>16,d=(b=this.L<<16|this.D&65535)/c|0;if(d!=d<<16>>16||8086==this.ca&& -32768==d)return mk.call(this),a;this.Ba=d&65535;this.Ya=b%c&65535}else{b=this.D;var c=this.L,d=a,e=0,f=0;0>d&&(d=-d|0,e=1-e);0>c&&(b=-b|0,c=~c+(b?0:1)|0,f=1,e=1-e);!Zj.call(this,b,c,d)||this.Ba>2147483647+e||this.Ya>2147483647+f?b=!1:(e&&(this.Ba=-this.Ba),f&&(this.Ya=-this.Ya),b=!0);if(!b)return mk.call(this),a;this.Ba|=0;this.Ya|=0}this.vc=!0;this.A-=-1===this.C?this.B.Xj:this.B.Wj;this.N|=2;return a}],Be=[function(a){var b=a+1|0;cg(this,a,1,b,190);this.A-=-1===this.C?this.B.Df:this.B.Cf;return b& 255},function(a){var b=a-1|0;cg(this,a,1,b,190,!0);this.A-=-1===this.C?this.B.Df:this.B.Cf;return b&255},Fi,Fi,Fi,Fi,Fi,Fi],Ce=[function(a){var b=a+1|0;cg(this,a,1,b,this.Fb|62);this.A-=-1===this.C?this.B.Df:this.B.Cf;return b&this.R},function(a){var b=a-1|0;cg(this,a,1,b,this.Fb|62,!0);this.A-=-1===this.C?this.B.Df:this.B.Cf;return b&this.R},function(a){pe(this,A(this));C(this,a);this.A-=-1===this.C?this.B.Pj:this.B.Oj;this.N|=2;return a},function(a){if(-1===this.C)return Fi.call(this,a);this.ta= -this.Aa;ik.call(this,a,this.ja(this.C+this.V));this.A-=this.B.Mj;this.N|=2;this.ta=-1;return a},function(a){C(this,a);this.A-=-1===this.C?this.B.jk:this.B.ik;this.N|=2;return a},function(a){if(-1===this.C)return Fi.call(this,a);te(this,a,this.ja(this.C+this.V));this.A-=this.B.gk;this.N|=2;return a},function(a){var b=a;this.N&512&&(a=a-2&65535,80286>this.ca&&(b=a));pe(this,b);this.A-=-1===this.C?this.B.Ic:this.B.Ak;this.N|=2;return a},Fi]; +this.Aa;ik.call(this,a,this.ja(this.C+this.W));this.A-=this.B.Mj;this.N|=2;this.ta=-1;return a},function(a){C(this,a);this.A-=-1===this.C?this.B.jk:this.B.ik;this.N|=2;return a},function(a){if(-1===this.C)return Fi.call(this,a);te(this,a,this.ja(this.C+this.W));this.A-=this.B.gk;this.N|=2;return a},function(a){var b=a;this.N&512&&(a=a-2&65535,80286>this.ca&&(b=a));pe(this,b);this.A-=-1===this.C?this.B.Ic:this.B.Ak;this.N|=2;return a},Fi]; function hf(){this.ma.call(this,Sj);this.A-=-1===this.C?6:13}function jf(){this.za.call(this,Rj);this.A-=-1===this.C?12:19}var Xe=Array(256);Xe[0]=function(){16>(this.Ia(this.da)&56)&&(this.N|=1);this.ib.call(this,this.nj,gk)};Xe[1]=function(){this.Ia(this.da)&16||(this.N|=1);this.ib.call(this,Zk,gk)};Xe[2]=function(){!(this.qa&1)||this.O&131072?y.call(this,6):this.ma.call(this,Mi)};Xe[3]=function(){!(this.qa&1)||this.O&131072?y.call(this,6):this.ma.call(this,Si)}; Xe[5]=function(){this.Ma?y.call(this,13,0,0,!0):(wg(this,this.ja(2054)),this.J=this.ja(2086),this.K=this.ja(2088),this.M=this.ja(2090),this.G=this.ja(2094),this.L=this.ja(2096),this.I=this.ja(2098),this.D=this.ja(2100),de(this.oa,2102,this.ja(2084)),de(this.Z,2108,this.ja(2082)),de(this.Y,2114,this.ja(2080)),de(this.Ca,2120,this.ja(2078)),se(this,this.ja(2072)),C(this,this.ja(2074)),he(this,this.ja(2092)),this.Kb=this.ja(2126)|this.Ia(2128)<<16,this.Pc=this.Kb+this.ja(2130),this.Pb=this.ja(2138)| this.Ia(2140)<<16,this.cd=this.Pb+this.ja(2142),de(this.Eb,2132,this.ja(2076)),de(this.la,2144,this.ja(2070)),this.A-=195)};Xe[6]=function(){this.Ma?y.call(this,13,0):(this.qa&=-9,this.A-=2)};Xe[11]=Ee;Xe[166]=Ee;Xe[255]=Ee;var B=[];B[5]=Ee; @@ -407,109 +408,109 @@ B[130]=function(){var a=this.Ea();dg(this)?(C(this,A(this)+a),this.A-=this.B.Qa) B[135]=function(){var a=this.Ea();dg(this)||gg(this)?this.A-=this.B.Ra:(C(this,A(this)+a),this.A-=this.B.Qa)};B[136]=function(){var a=this.Ea();hg(this)?(C(this,A(this)+a),this.A-=this.B.Qa):this.A-=this.B.Ra};B[137]=function(){var a=this.Ea();hg(this)?this.A-=this.B.Ra:(C(this,A(this)+a),this.A-=this.B.Qa)};B[138]=function(){var a=this.Ea();eg(this)?(C(this,A(this)+a),this.A-=this.B.Qa):this.A-=this.B.Ra};B[139]=function(){var a=this.Ea();eg(this)?this.A-=this.B.Ra:(C(this,A(this)+a),this.A-=this.B.Qa)}; B[140]=function(){var a=this.Ea();!hg(this)!=!ig(this)?(C(this,A(this)+a),this.A-=this.B.Qa):this.A-=this.B.Ra};B[141]=function(){var a=this.Ea();!hg(this)==!ig(this)?(C(this,A(this)+a),this.A-=this.B.Qa):this.A-=this.B.Ra};B[142]=function(){var a=this.Ea();gg(this)||!hg(this)!=!ig(this)?(C(this,A(this)+a),this.A-=this.B.Qa):this.A-=this.B.Ra};B[143]=function(){var a=this.Ea();gg(this)||!hg(this)!=!ig(this)?this.A-=this.B.Ra:(C(this,A(this)+a),this.A-=this.B.Qa)};B[144]=function(){ck.call(this,mj)}; B[145]=function(){ck.call(this,mj)};B[146]=function(){ck.call(this,nj)};B[147]=function(){ck.call(this,oj)};B[148]=function(){ck.call(this,pj)};B[149]=function(){ck.call(this,qj)};B[150]=function(){ck.call(this,rj)};B[151]=function(){ck.call(this,sj)};B[152]=function(){ck.call(this,tj)};B[153]=function(){ck.call(this,uj)};B[154]=function(){ck.call(this,vj)};B[155]=function(){ck.call(this,wj)};B[156]=function(){ck.call(this,xj)};B[157]=function(){ck.call(this,yj)};B[158]=function(){ck.call(this,zj)}; -B[159]=function(){ck.call(this,Aj)};B[160]=function(){me(this,this.Ga.U,this.V,2);this.A-=this.B.re};B[161]=function(){this.ta=this.Aa;var a=fe(this);this.Ga.load(a);this.A-=this.B.nc;this.ta=-1};B[163]=function(){this.za.call(this,xi);-1!==this.C&&(this.A-=6)};B[164]=function(){this.za.call(this,2==this.V?Bj:Dj);this.A-=-1===this.C?3:7};B[165]=function(){this.za.call(this,2==this.V?Fj:Gj);this.A-=-1===this.C?3:7};B[168]=function(){me(this,this.Ha.U,this.V,2);this.A-=this.B.re}; -B[169]=function(){this.ta=this.Aa;var a=fe(this);this.Ha.load(a);this.A-=this.B.nc;this.ta=-1};B[171]=function(){this.za.call(this,Ai);-1!==this.C&&(this.A-=5)};B[172]=function(){this.za.call(this,2==this.V?Hj:Jj);this.A-=-1===this.C?3:7};B[173]=function(){this.za.call(this,2==this.V?Lj:Mj);this.A-=-1===this.C?3:7};B[175]=function(){this.ma.call(this,2==this.V?Hi:Ji)};B[178]=function(){this.ma.call(this,cj)};B[179]=function(){this.za.call(this,zi);-1!==this.C&&(this.A-=5)}; +B[159]=function(){ck.call(this,Aj)};B[160]=function(){me(this,this.Ga.U,this.W,2);this.A-=this.B.re};B[161]=function(){this.ta=this.Aa;var a=fe(this);this.Ga.load(a);this.A-=this.B.nc;this.ta=-1};B[163]=function(){this.za.call(this,xi);-1!==this.C&&(this.A-=6)};B[164]=function(){this.za.call(this,2==this.W?Bj:Dj);this.A-=-1===this.C?3:7};B[165]=function(){this.za.call(this,2==this.W?Fj:Gj);this.A-=-1===this.C?3:7};B[168]=function(){me(this,this.Ha.U,this.W,2);this.A-=this.B.re}; +B[169]=function(){this.ta=this.Aa;var a=fe(this);this.Ha.load(a);this.A-=this.B.nc;this.ta=-1};B[171]=function(){this.za.call(this,Ai);-1!==this.C&&(this.A-=5)};B[172]=function(){this.za.call(this,2==this.W?Hj:Jj);this.A-=-1===this.C?3:7};B[173]=function(){this.za.call(this,2==this.W?Lj:Mj);this.A-=-1===this.C?3:7};B[175]=function(){this.ma.call(this,2==this.W?Hi:Ji)};B[178]=function(){this.ma.call(this,cj)};B[179]=function(){this.za.call(this,zi);-1!==this.C&&(this.A-=5)}; B[180]=function(){this.ma.call(this,Qi)};B[181]=function(){this.ma.call(this,Ri)}; -B[182]=function(){this.kc.call(this,ej);switch(this.ga>>3&7){case 0:this.D=this.D&~this.R|this.D&255;break;case 1:this.I=this.I&~this.R|this.I&255;break;case 2:this.L=this.L&~this.R|this.L&255;break;case 3:this.G=this.G&~this.R|this.G&255;break;case 4:this.Hc=this.Hc&~this.R|this.D>>8&255;this.D=this.ya;break;case 5:this.M=this.M&~this.R|this.I>>8&255;this.I=this.ya;break;case 6:this.K=this.K&~this.R|this.L>>8&255;this.L=this.ya;break;case 7:this.J=this.J&~this.R|this.G>>8&255,this.G=this.ya}this.A-= +B[182]=function(){this.kc.call(this,ej);switch(this.ga>>3&7){case 0:this.D=this.D&~this.R|this.D&255;break;case 1:this.I=this.I&~this.R|this.I&255;break;case 2:this.L=this.L&~this.R|this.L&255;break;case 3:this.G=this.G&~this.R|this.G&255;break;case 4:this.Hc=this.Hc&~this.R|this.D>>8&255;this.D=this.xa;break;case 5:this.M=this.M&~this.R|this.I>>8&255;this.I=this.xa;break;case 6:this.K=this.K&~this.R|this.L>>8&255;this.L=this.xa;break;case 7:this.J=this.J&~this.R|this.G>>8&255,this.G=this.xa}this.A-= -1===this.C?3:6};B[183]=function(){ke(this,2);this.ma.call(this,fj);switch(this.ga>>3&7){case 0:this.D=this.D&65535;break;case 1:this.I=this.I&65535;break;case 2:this.L=this.L&65535;break;case 3:this.G=this.G&65535;break;case 4:this.Hc=this.Hc&65535;break;case 5:this.M=this.M&65535;break;case 6:this.K=this.K&65535;break;case 7:this.J=this.J&65535}this.A-=-1===this.C?3:6};B[186]=function(){this.ib.call(this,$k,this.ra)};B[187]=function(){this.za.call(this,yi);-1!==this.C&&(this.A-=5)}; B[188]=function(){this.ma.call(this,ri)};B[189]=function(){this.ma.call(this,si)}; -B[190]=function(){this.kc.call(this,ej);switch(this.ga>>3&7){case 0:this.D=this.D&~this.R|(this.D&255)<<24>>24&this.R;break;case 1:this.I=this.I&~this.R|(this.I&255)<<24>>24&this.R;break;case 2:this.L=this.L&~this.R|(this.L&255)<<24>>24&this.R;break;case 3:this.G=this.G&~this.R|(this.G&255)<<24>>24&this.R;break;case 4:this.Hc=this.Hc&~this.R|this.D<<16>>24&this.R;this.D=this.ya;break;case 5:this.M=this.M&~this.R|this.I<<16>>24&this.R;this.I=this.ya;break;case 6:this.K=this.K&~this.R|this.L<<16>>24& -this.R;this.L=this.ya;break;case 7:this.J=this.J&~this.R|this.G<<16>>24&this.R,this.G=this.ya}this.A-=-1===this.C?3:6};B[191]=function(){ke(this,2);this.ma.call(this,fj);switch(this.ga>>3&7){case 0:this.D=this.D<<16>>16;break;case 1:this.I=this.I<<16>>16;break;case 2:this.L=this.L<<16>>16;break;case 3:this.G=this.G<<16>>16;break;case 4:this.Hc=this.Hc<<16>>16;break;case 5:this.M=this.M<<16>>16;break;case 6:this.K=this.K<<16>>16;break;case 7:this.J=this.J<<16>>16}this.A-=-1===this.C?3:6}; -var Wf=[function(){this.A-=2+(-1===this.C?0:1);return this.Eb.U},function(){this.A-=2+(-1===this.C?0:1);return this.la.U},function(a){this.N|=2;this.Eb.load(a);this.A-=17+(-1===this.C?0:2);return a},function(a){this.N|=2;-1!==this.la.load(a)&&(this.fb(this.la.Lb+4,this.la.lb|=512),this.la.type|=512);this.A-=17+(-1===this.C?0:2);return a},function(a){this.N|=2;this.A-=14+(-1===this.C?0:2);if(-1!==this.xb.load(a)&&2048!=(this.xb.lb&2560)&&(this.xb.qc>=this.Ma&&this.xb.qc>=(a&3)||7168==(this.xb.lb&7168)))return vg(this), -a;rg(this);return a},function(a){this.N|=2;this.A-=14+(-1===this.C?0:2);if(-1!==this.xb.load(a)&&512==(this.xb.lb&2560)&&this.xb.qc>=this.Ma&&this.xb.qc>=(a&3))return vg(this),a;rg(this);return a},Fi,Fi],De=[Ve,Ve,Ve,Ve,Ve,Ve,Fi,Fi],Zk=[function(a){if(-1===this.C)y.call(this,6);else{a=this.Pc-this.Kb;var b=this.Kb;80286==this.ca?b|=-16777216:80386<=this.ca&&2!=this.V&&(a|=b<<16);this.ab(this.C+2,b);this.A-=11}return a},function(a){if(-1===this.C)y.call(this,6);else{a=this.cd-this.Pb;var b=this.Pb; -80286==this.ca?b|=-16777216:80386<=this.ca&&2!=this.V&&(a|=b<<16);this.ab(this.C+2,b);this.A-=12}return a},function(a){-1===this.C||this.O&131072?y.call(this,6):(this.Kb=this.ia(this.C+2)&(this.R|this.R<<8),a&=65535,this.Pc=this.Kb+a,this.N|=2,this.A-=11);return a},function(a){-1===this.C||this.O&131072?y.call(this,6):(this.Pb=this.ia(this.C+2)&(this.R|this.R<<8),a&=65535,this.cd=this.Pb+a,this.N|=2,this.A-=12);return a},function(){this.A-=2+(-1===this.C?0:1);return this.qa},Fi,function(a){this.O& +B[190]=function(){this.kc.call(this,ej);switch(this.ga>>3&7){case 0:this.D=this.D&~this.R|(this.D&255)<<24>>24&this.R;break;case 1:this.I=this.I&~this.R|(this.I&255)<<24>>24&this.R;break;case 2:this.L=this.L&~this.R|(this.L&255)<<24>>24&this.R;break;case 3:this.G=this.G&~this.R|(this.G&255)<<24>>24&this.R;break;case 4:this.Hc=this.Hc&~this.R|this.D<<16>>24&this.R;this.D=this.xa;break;case 5:this.M=this.M&~this.R|this.I<<16>>24&this.R;this.I=this.xa;break;case 6:this.K=this.K&~this.R|this.L<<16>>24& +this.R;this.L=this.xa;break;case 7:this.J=this.J&~this.R|this.G<<16>>24&this.R,this.G=this.xa}this.A-=-1===this.C?3:6};B[191]=function(){ke(this,2);this.ma.call(this,fj);switch(this.ga>>3&7){case 0:this.D=this.D<<16>>16;break;case 1:this.I=this.I<<16>>16;break;case 2:this.L=this.L<<16>>16;break;case 3:this.G=this.G<<16>>16;break;case 4:this.Hc=this.Hc<<16>>16;break;case 5:this.M=this.M<<16>>16;break;case 6:this.K=this.K<<16>>16;break;case 7:this.J=this.J<<16>>16}this.A-=-1===this.C?3:6}; +var Wf=[function(){this.A-=2+(-1===this.C?0:1);return this.Eb.U},function(){this.A-=2+(-1===this.C?0:1);return this.la.U},function(a){this.N|=2;this.Eb.load(a);this.A-=17+(-1===this.C?0:2);return a},function(a){this.N|=2;-1!==this.la.load(a)&&(this.fb(this.la.Lb+4,this.la.mb|=512),this.la.type|=512);this.A-=17+(-1===this.C?0:2);return a},function(a){this.N|=2;this.A-=14+(-1===this.C?0:2);if(-1!==this.xb.load(a)&&2048!=(this.xb.mb&2560)&&(this.xb.qc>=this.Ma&&this.xb.qc>=(a&3)||7168==(this.xb.mb&7168)))return vg(this), +a;rg(this);return a},function(a){this.N|=2;this.A-=14+(-1===this.C?0:2);if(-1!==this.xb.load(a)&&512==(this.xb.mb&2560)&&this.xb.qc>=this.Ma&&this.xb.qc>=(a&3))return vg(this),a;rg(this);return a},Fi,Fi],De=[Ve,Ve,Ve,Ve,Ve,Ve,Fi,Fi],Zk=[function(a){if(-1===this.C)y.call(this,6);else{a=this.Pc-this.Kb;var b=this.Kb;80286==this.ca?b|=-16777216:80386<=this.ca&&2!=this.W&&(a|=b<<16);this.bb(this.C+2,b);this.A-=11}return a},function(a){if(-1===this.C)y.call(this,6);else{a=this.cd-this.Pb;var b=this.Pb; +80286==this.ca?b|=-16777216:80386<=this.ca&&2!=this.W&&(a|=b<<16);this.bb(this.C+2,b);this.A-=12}return a},function(a){-1===this.C||this.O&131072?y.call(this,6):(this.Kb=this.ia(this.C+2)&(this.R|this.R<<8),a&=65535,this.Pc=this.Kb+a,this.N|=2,this.A-=11);return a},function(a){-1===this.C||this.O&131072?y.call(this,6):(this.Pb=this.ia(this.C+2)&(this.R|this.R<<8),a&=65535,this.cd=this.Pb+a,this.N|=2,this.A-=12);return a},function(){this.A-=2+(-1===this.C?0:1);return this.qa},Fi,function(a){this.O& 131072?y.call(this,6):(wg(this,a),this.A-=-1===this.C?3:6,this.N|=2);return a},Fi],$k=[Fi,Fi,Fi,Fi,ti,wi,vi,ui]; function al(a){nb.call(this,"ChipSet",a,32768);var b=a.model;b&&!bl[b]&&hb("Unrecognized ChipSet model: "+b);this.ca=bl[b]||cl;this.C=[];b=dl(a[el]);this.C[0]=[b,b];null==b&&(this.N=[360,360],(b=a.floppies)&&b.length&&(this.N=b),fl(this,gl,this.N.length),fl(this,hl,a.monitor||(this.ca=eh&&(this.za=this.ha=2);this.O=a.scaleTimers||!1;this.Ma=a.rtcDate;this.Ga=!1;a.sound&&(this.Da=this.la=null,window&&(this.Da=window.AudioContext|| window.webkitAudioContext),this.Da&&(this.la=new this.Da));this.reset(!0);Jb(this)}ba(al,nb);l=al.prototype;l.Cb=function(a,b,c){switch(b){case el:return this.na[b]=c,jl(this,0,b),!0;case il:if((this.ca|0)==kl||this.ca==ll)return this.na[b]=c,jl(this,1,b),!0;break;case ml:return this.na[b]=c,!0}return!1}; l.uc=function(a,b,c,d){this.ka=b;this.H=c;this.ba=d;this.pa=a;this.Tc=Xb(a,"FPU");fl(this,nl,this.Tc?1:0,!0);this.B=Xb(a,"Keyboard");this.Ba=c.T.sd/ol;Oc(b,this,pl);Sc(b,this,ql);this.ca=eh){this.D=Nl;this.L=0;this.K=Ol;this.oa=0;this.M=Pl|Ql;512<=Rl(this)&&(this.M|=Sl);+Tl(this,hl,void 0)==Ul&&(this.M|=Vl);(this.ca|0)==xl&&(this.M=this.M|Wl|Xl);this.qa= -Yl|Zl;this.Y=Array(8);this.W=0;a&&(this.A=Array(Cl));$l(this,this.Ma);for(a=am;a<=bm;a++)this.A[a]=0;for(a=cm;ac?c=c?c:12:c=(c-=12)?c+128:140,d=!0);a.A[Rd]&Rm||(d&&128>8} -l.save=function(){var a=new Xf(this);a.set(0,[this.C]);for(var b=[],c=0;c=eh&&(a.set(5,[this.D,this.L,this.K,this.oa,this.M,this.qa]),a.set(6,[this.Y[7],this.Y,this.W,this.A,this.ma,this.Z]));return a.data()}; -l.restore=function(a){var b,c;b=a[0];Array.isArray(b[0])?this.C=b[0]:(this.C[0][0]=b[0],this.C[1][0]=b[1]&15,this.C[0][1]=b[2],this.C[1][1]=b[3]&15);Fl(this);b=a[1];for(c=0;c=eh){this.D=Nl;this.L=0;this.K=Ol;this.oa=0;this.M=Pl|Ql;512<=Rl(this)&&(this.M|=Sl);+Tl(this,hl,void 0)==Ul&&(this.M|=Vl);(this.ca|0)==xl&&(this.M=this.M|Wl|Xl);this.qa= +Yl|Zl;this.Y=Array(8);this.V=0;a&&(this.A=Array(Cl));$l(this,this.Ma);for(a=am;a<=bm;a++)this.A[a]=0;for(a=cm;ac?c=c?c:12:c=(c-=12)?c+128:140,d=!0);a.A[Rd]&Rm||(d&&128>8} +l.save=function(){var a=new Xf(this);a.set(0,[this.C]);for(var b=[],c=0;c=eh&&(a.set(5,[this.D,this.L,this.K,this.oa,this.M,this.qa]),a.set(6,[this.Y[7],this.Y,this.V,this.A,this.ma,this.Z]));return a.data()}; +l.restore=function(a){var b,c;b=a[0];Array.isArray(b[0])?this.C=b[0]:(this.C[0][0]=b[0],this.C[1][0]=b[1]&15,this.C[0][1]=b[2],this.C[1][1]=b[3]&15);Fl(this);b=a[1];for(c=0;c=f;f++){var g="pcjs-bitCell";f||(g+=" pcjs-bitCellLeft");d+='
'+f+"
\n"}e.innerHTML=d;bn(a,b,c,!0)}function cn(a,b,c){if(b=(a=dn[a.ca|0])&&a[b])for(var d in b)if(a=b[d],a.yc&1<g.pb[0]&&(g.pb[0]=255,g.pb[1]--,0>g.pb[1]&&(g.pb[1]=255)));return h}function sn(a,b,c,d,e,f){var g=a.F[b];t(a,768)&&v(a,d,e,f,"DMA"+b+".CHANNEL"+c+".COUNT["+g.zb+"]",null,!0);a=g.oc[c];a.pb[g.zb]=a.pc[g.zb]=e;g.zb^=1}function tn(a,b,c,d){var e=a.F[b],f=e.Mb|un;e.Mb&=~vn;t(a,768)&&v(a,c,null,d,"DMA"+b+".STATUS",f,!0);return f} -function wn(a,b,c,d,e){var f=a.F[b];t(a,768)&&v(a,c,d,e,"DMA"+b+".REQ",null,!0);a=d&3;f.Mb=f.Mb&~(16<>2].oc[b&3],c,d,e)}function An(a,b,c){b=a.F[b>>2].oc[b&3];b.mg&&b.eh&&b.Ag?(c&&(b.done=c),b.ne||Kn(a,b,!0)):c&&c(!0)} -function Kn(a,b,c){c&&(b.count=b.pb[1]<<8|b.pb[0],b.type=b.mode&Ln,b.rj=b.ng=!1);for(var d=!1;0<=b.count&&(c=b.hg<<16|b.sb[1]<<8|b.sb[0],b.type==Mn?(d=!0,function(c){b.eh.call(b.mg,b.Ag,-1,function(e,g){0>e&&(b.rj||(b.rj=!0),e=255);b.ne||a.ka.fc(c,e);(d=g)&&setTimeout(function(){Nn(b)||Kn(a,b)},0)})}(c)):b.type==On?(c=a.ka.Ia(c),0>b.eh.call(b.mg,b.Ag,c)&&(b.ng=!0)):b.type!=Pn&&(b.ng=!0)),!d&&!Nn(b););} -function Nn(a){if(!a.ng&&0<=--a.count&&(a.mode&Qn?(a.sb[0]--,0>a.sb[0]&&(a.sb[0]=255,a.sb[1]--,0>a.sb[1]&&(a.sb[1]=255))):(a.sb[0]++,255>3];b=1<<(b&7);d.ac&b||(d.ac|=b,d.We=c||0,fo(a))}function fh(a,b){var c=a.hc[b>>3];b=1<<(b&7);c.ac&b&&(c.ac&=~b,fo(a))}function fo(a,b){var c,d=-1;1>=1),Gd(a.H,e))),b==so&&c==wo&&Vm(a))}function xo(a,b,c,d){v(a,c,null,d,"PIT"+b+".CTRL",null,2048);return b?a.va:a.ta} -function yo(a,b,c,d,e){v(a,c,d,e,"PIT"+b+".CTRL",null,2048);e=0;c=d&zo;b?(e=3,a.va=d):a.ta=d;if(c==Ao){if(!(d&Bo))for(c=0;2>=c;c++)if(d&Co<=c;c++)d&Co<>=Ho;var f=d&Io,g=d&Jo;d&=Ko;if(d==Lo)Go(a,e+c);else{e+=c;var h=a.G[e];h.Qf=d;h.mode=g;h.Zg=f;h.pc=[0,0];h.pb=[0,0];h.je=[0,0];h.gd=!1;h.Me=!1;h.le=!1;h.Qe=!1;oo(a,e);b==so&&c==to&&fh(a,uo);b==so&&c==wo&&255==a.hc[0].od&& -a.J==(Mo|No|Oo|Po)&&(b=a.G[0],b.Mc[0]=b.pc[0],b.Mc[1]=b.pc[1],b.jd=Ed(a.H,a.O))}}}function vo(a,b){a=a.G[b];(b=a.pc[1]<<8|a.pc[0])||(b=1==a.ad?256:65536);return b}function Pd(a,b){a=a.G[b];(b=a.Mc[1]<<8|a.Mc[0])||(b=1==a.ad?256:65536);return b}function Go(a,b){Bl(a,b);var c=a.G[b];c.je[0]=c.pb[0];c.je[1]=c.pb[1];c.Me=!0;oo(a,b)}function oo(a,b){a=a.G[b];a.rd=a.Qf==Qo?1:0;a.ad=a.Qf==Ro?2:1} -function Bl(a,b,c){var d=a.G[b];if(d.le&&(b!=wo||a.J&Mo)){var e=Ed(a.H,a.O),f=(e-d.jd)/a.Ba|0;0>f&&(d.jd=e,f=0);var g=vo(a,b),h=Pd(a,b)-f;d.mode==qo?(0>=h&&(h=0),h||(d.gd=!0,d.le=!1,b||hh(a,uo))):d.mode==So?(d.gd=1!=h,0>=h&&(h=g+h,0>=h&&(h=g),d.Mc[0]=h&255,d.Mc[1]=h>>8&255,d.jd=e,!b&&d.gd&&hh(a,uo))):d.mode==Qd&&(h-=f,0>=h&&(d.gd=!d.gd,h=g+h,0>=h&&(h=g),d.Mc[0]=h&255,d.Mc[1]=h>>8&255,d.jd=e,!b&&d.gd&&hh(a,uo)));d.pb[0]=h&255;d.pb[1]=h>>8&255;c&&(a.jd=0)}return d} -function Od(a,b){for(var c=0;c=eh){b=a.H.T.sd;c=Ed(a.H,a.O);null==a.Aa&&(a.ma=Ed(a.H,a.O),a.Ha=1024,a.Aa=Math.floor(a.H.T.sd/a.Ha),Tm(a));c>=a.Z&&(a.A[Pm]|=To,a.A[Rd]&Td&&(a.A[Pm]|=Uo,hh(a,Vo)),a.Z=c+a.Aa);a.A[lm]==a.A[mm]&&a.A[nm]==a.A[om]&&a.A[pm]==a.A[Hm]&&(a.A[Pm]|=Wo,a.A[Rd]&Xo&&(a.A[Pm]|=Uo,hh(a,Vo)));var d=c-a.ma,e=Math.floor(d/b);if(e&&!(a.A[Rd]&Yo)){for(;e--;)if(60<=++a.A[lm]&&(a.A[lm]=0,60<=++a.A[nm]&&(a.A[nm]=0,24<=++a.A[pm]))){a.A[pm]=0;a.A[Im]=a.A[Im]% -7+1;var f;f=a.A[Lm];var g=Ja[a.A[Km]-1];28==g&&(f%4||!(f%100)&&f%400||g++);f=g;++a.A[Jm]>f&&(a.A[Jm]=1,12<++a.A[Km]&&(a.A[Km]=1,a.A[Lm]=(a.A[Lm]+1)%100))}a.A[Pm]|=Zo;a.A[Rd]&$o&&(a.A[Pm]|=Uo,hh(a,Vo))}a.ma=c-d%b}}l.Gm=function(a,b){var c=this.ya;this.ga&ap&&(this.J&bp?c=this.C[0][1]:this.B&&(c=cp(this.B)));v(this,a,null,b,"PPI_A",c);return c};l.jo=function(a,b,c){v(this,a,b,c,"PPI_A");this.ya=b};l.Hm=function(a,b){var c=this.J;v(this,a,null,b,"PPI_B",c);return c}; -l.ko=function(a,b,c){v(this,a,b,c,"PPI_B");dp(this,b)};function dp(a,b){var c=!!(b&ep),d=!!(a.J&ep);a.J=b;a.B&&fp(a.B,!(b&bp),!!(b&Po));c!=d&&Vm(a,c)}l.Im=function(a,b){var c=0,c=(this.ca|0)==kl?this.J&No?c|this.C[1][1]&gp:c|this.C[1][1]>>4&1:this.J&hp?c|this.C[0][1]>>4:c|this.C[0][1]&15;this.J&Mo&&Bl(this,wo).gd&&(c=this.J&ep?c|ip:c|jp);v(this,a,null,b,"PPI_C",c,32896);return c};l.lo=function(a,b,c){v(this,a,b,c,"PPI_C");this.Ca=b};l.Jm=function(a,b){var c=this.ga;v(this,a,null,b,"PPI_CTRL",c);return c}; -l.mo=function(a,b,c){v(this,a,b,c,"PPI_CTRL");this.ga=b};l.Sl=function(a,b){var c=this.B?cp(this.B):0;v(this,a,null,b,"8041_KBD",c);this.aa&=~kp;return c};l.tn=function(a,b,c){v(this,a,b,c,"8041_KBD")};l.Rl=function(a,b){var c=this.J;v(this,a,null,b,"8041_CTRL",c);return c};l.sn=function(a,b,c){v(this,a,b,c,"8041_CTRL");dp(this,b)};l.Tl=function(a,b){var c=this.aa;v(this,a,null,b,"8041_STATUS",c);return c}; -l.Ul=function(a,b){var c=this.oa;v(this,a,null,b,"8042_OUTBUFF",c,16384);this.D&=~(kp|lp);this.B&&mp(this.B);return c}; -l.vn=function(a,b,c){v(this,a,b,c,"8042_INBUF.DATA",null,16384);if(this.D&np)switch(this.L){case op:pp(this,b);break;case qp:rp(this,b);break;default:if(pp(this,this.K&~Ol),this.B){a=this.B;c=b;var d=-1;t(a)&&Mb(a,"sendCmd("+r(c)+")");switch(a.F||c){case sp:d=tp;up(a);break;case vp:a.F&&(c=0);wp(a,tp);a.F=c;break;case xp:a.F&&(c=0);wp(a,tp);a.F=c;break;default:Mb(a,"sendCmd(): unrecognized command")}yp(this,d)}}this.L=b;this.D&=~np}; -l.Vl=function(a,b){var c=this.J&~(zp|Ap)|(Ed(this.H)&64?Ap:0);v(this,a,null,b,"8042_RWREG",c,16384);return c};l.wn=function(a,b,c){v(this,a,b,c,"8042_RWREG",null,16384);dp(this,b)};l.Wl=function(a,b){v(this,a,null,b,"8042_STATUS",this.D,16384);a=this.D&255;this.D&lp&&(this.D|=kp,this.D&=~lp);return a}; -l.un=function(a,b,c){v(this,a,b,c,"8042_INBUFF.CMD",null,16384);this.L=b;this.D|=np;a=0;this.L>=Bp&&(a=this.L^15,this.L=Bp);switch(this.L){case Cp:yp(this,this.K);break;case Dp:pp(this,this.K|Ol);break;case Ep:pp(this,this.K&~Ol);this.B&&mp(this.B);break;case Fp:this.B&&(a=this.B,a.A=[],t(a)&&Mb(a,"scan codes flushed"));pp(this,this.K|Ol);yp(this,Gp);rp(this,Yl|Zl);break;case Hp:yp(this,Ip);break;case Jp:yp(this,this.M);break;case Kp:yp(this,this.qa);break;case Lp:yp(this,this.K&Ol?0:Mp);break;case Bp:a& -1&&kf(this.H)}};function pp(a,b){a.K=b;a.D=a.D&~Np|b&Op;a.B&&fp(a.B,!!(b&Pp),!(b&Ol))}function yp(a,b,c){0<=b&&(a.oa=b,c?a.D|=kp:(a.D&=~kp,a.D|=lp))}function rp(a,b){a.qa=b;oc(a.ka,!!(b&Zl));b&Yl||kf(a.H)}function Qp(a,b){a.ca>4)+(c&15),e=!0);if(d==pm||d==Hm)e&&23=c?c=12==c?0:c:(c-=116,c=24==c?12:c))}}else c=b;this.A[d]=c;d==Rd&&a&Td&&b&Td&&Tm(this)};l.Nk=function(a,b,c){v(this,a,b,c,"NMI");this.da=b};l.Vn=function(a,b,c){v(this,a,b,c,"FPU.CLEAR")};l.Wn=function(a,b,c){v(this,a,b,c,"FPU.RESET");this.Tc&&$g(this.Tc)}; +function on(a,b,c,d,e){var f=a.F[b],g=f.oc[c],h=g.tb[f.zb];t(a,768)&&w(a,d,null,e,"DMA"+b+".CHANNEL"+c+".ADDR["+f.zb+"]",h,!0);f.zb^=1;b||c!=pn||f.zb||(g.tb[0]++,255g.qb[0]&&(g.qb[0]=255,g.qb[1]--,0>g.qb[1]&&(g.qb[1]=255)));return h}function sn(a,b,c,d,e,f){var g=a.F[b];t(a,768)&&w(a,d,e,f,"DMA"+b+".CHANNEL"+c+".COUNT["+g.zb+"]",null,!0);a=g.oc[c];a.qb[g.zb]=a.pc[g.zb]=e;g.zb^=1}function tn(a,b,c,d){var e=a.F[b],f=e.Mb|un;e.Mb&=~vn;t(a,768)&&w(a,c,null,d,"DMA"+b+".STATUS",f,!0);return f} +function wn(a,b,c,d,e){var f=a.F[b];t(a,768)&&w(a,c,d,e,"DMA"+b+".REQ",null,!0);a=d&3;f.Mb=f.Mb&~(16<>2].oc[b&3],c,d,e)}function An(a,b,c){b=a.F[b>>2].oc[b&3];b.mg&&b.eh&&b.Ag?(c&&(b.done=c),b.ne||Kn(a,b,!0)):c&&c(!0)} +function Kn(a,b,c){c&&(b.count=b.qb[1]<<8|b.qb[0],b.type=b.mode&Ln,b.rj=b.ng=!1);for(var d=!1;0<=b.count&&(c=b.hg<<16|b.tb[1]<<8|b.tb[0],b.type==Mn?(d=!0,function(c){b.eh.call(b.mg,b.Ag,-1,function(e,g){0>e&&(b.rj||(b.rj=!0),e=255);b.ne||a.ka.fc(c,e);(d=g)&&setTimeout(function(){Nn(b)||Kn(a,b)},0)})}(c)):b.type==On?(c=a.ka.Ia(c),0>b.eh.call(b.mg,b.Ag,c)&&(b.ng=!0)):b.type!=Pn&&(b.ng=!0)),!d&&!Nn(b););} +function Nn(a){if(!a.ng&&0<=--a.count&&(a.mode&Qn?(a.tb[0]--,0>a.tb[0]&&(a.tb[0]=255,a.tb[1]--,0>a.tb[1]&&(a.tb[1]=255))):(a.tb[0]++,255>3];b=1<<(b&7);d.ac&b||(d.ac|=b,d.We=c||0,fo(a))}function fh(a,b){var c=a.hc[b>>3];b=1<<(b&7);c.ac&b&&(c.ac&=~b,fo(a))}function fo(a,b){var c,d=-1;1>=1),Gd(a.H,e))),b==so&&c==wo&&Vm(a))}function xo(a,b,c,d){w(a,c,null,d,"PIT"+b+".CTRL",null,2048);return b?a.va:a.ta} +function yo(a,b,c,d,e){w(a,c,d,e,"PIT"+b+".CTRL",null,2048);e=0;c=d&zo;b?(e=3,a.va=d):a.ta=d;if(c==Ao){if(!(d&Bo))for(c=0;2>=c;c++)if(d&Co<=c;c++)d&Co<>=Ho;var f=d&Io,g=d&Jo;d&=Ko;if(d==Lo)Go(a,e+c);else{e+=c;var h=a.G[e];h.Qf=d;h.mode=g;h.Zg=f;h.pc=[0,0];h.qb=[0,0];h.je=[0,0];h.gd=!1;h.Me=!1;h.le=!1;h.Qe=!1;oo(a,e);b==so&&c==to&&fh(a,uo);b==so&&c==wo&&255==a.hc[0].od&& +a.J==(Mo|No|Oo|Po)&&(b=a.G[0],b.Mc[0]=b.pc[0],b.Mc[1]=b.pc[1],b.jd=Ed(a.H,a.O))}}}function vo(a,b){a=a.G[b];(b=a.pc[1]<<8|a.pc[0])||(b=1==a.ad?256:65536);return b}function Pd(a,b){a=a.G[b];(b=a.Mc[1]<<8|a.Mc[0])||(b=1==a.ad?256:65536);return b}function Go(a,b){Bl(a,b);var c=a.G[b];c.je[0]=c.qb[0];c.je[1]=c.qb[1];c.Me=!0;oo(a,b)}function oo(a,b){a=a.G[b];a.rd=a.Qf==Qo?1:0;a.ad=a.Qf==Ro?2:1} +function Bl(a,b,c){var d=a.G[b];if(d.le&&(b!=wo||a.J&Mo)){var e=Ed(a.H,a.O),f=(e-d.jd)/a.Ba|0;0>f&&(d.jd=e,f=0);var g=vo(a,b),h=Pd(a,b)-f;d.mode==qo?(0>=h&&(h=0),h||(d.gd=!0,d.le=!1,b||hh(a,uo))):d.mode==So?(d.gd=1!=h,0>=h&&(h=g+h,0>=h&&(h=g),d.Mc[0]=h&255,d.Mc[1]=h>>8&255,d.jd=e,!b&&d.gd&&hh(a,uo))):d.mode==Qd&&(h-=f,0>=h&&(d.gd=!d.gd,h=g+h,0>=h&&(h=g),d.Mc[0]=h&255,d.Mc[1]=h>>8&255,d.jd=e,!b&&d.gd&&hh(a,uo)));d.qb[0]=h&255;d.qb[1]=h>>8&255;c&&(a.jd=0)}return d} +function Od(a,b){for(var c=0;c=eh){b=a.H.T.sd;c=Ed(a.H,a.O);null==a.Aa&&(a.ma=Ed(a.H,a.O),a.Ha=1024,a.Aa=Math.floor(a.H.T.sd/a.Ha),Tm(a));c>=a.Z&&(a.A[Pm]|=To,a.A[Rd]&Td&&(a.A[Pm]|=Uo,hh(a,Vo)),a.Z=c+a.Aa);a.A[lm]==a.A[mm]&&a.A[nm]==a.A[om]&&a.A[Gm]==a.A[Hm]&&(a.A[Pm]|=Wo,a.A[Rd]&Xo&&(a.A[Pm]|=Uo,hh(a,Vo)));var d=c-a.ma,e=Math.floor(d/b);if(e&&!(a.A[Rd]&Yo)){for(;e--;)if(60<=++a.A[lm]&&(a.A[lm]=0,60<=++a.A[nm]&&(a.A[nm]=0,24<=++a.A[Gm]))){a.A[Gm]=0;a.A[Im]=a.A[Im]% +7+1;var f;f=a.A[Lm];var g=Ja[a.A[Km]-1];28==g&&(f%4||!(f%100)&&f%400||g++);f=g;++a.A[Jm]>f&&(a.A[Jm]=1,12<++a.A[Km]&&(a.A[Km]=1,a.A[Lm]=(a.A[Lm]+1)%100))}a.A[Pm]|=Zo;a.A[Rd]&$o&&(a.A[Pm]|=Uo,hh(a,Vo))}a.ma=c-d%b}}l.Gm=function(a,b){var c=this.xa;this.ga&ap&&(this.J&bp?c=this.C[0][1]:this.B&&(c=cp(this.B)));w(this,a,null,b,"PPI_A",c);return c};l.jo=function(a,b,c){w(this,a,b,c,"PPI_A");this.xa=b};l.Hm=function(a,b){var c=this.J;w(this,a,null,b,"PPI_B",c);return c}; +l.ko=function(a,b,c){w(this,a,b,c,"PPI_B");dp(this,b)};function dp(a,b){var c=!!(b&ep),d=!!(a.J&ep);a.J=b;a.B&&fp(a.B,!(b&bp),!!(b&Po));c!=d&&Vm(a,c)}l.Im=function(a,b){var c=0,c=(this.ca|0)==kl?this.J&No?c|this.C[1][1]&gp:c|this.C[1][1]>>4&1:this.J&hp?c|this.C[0][1]>>4:c|this.C[0][1]&15;this.J&Mo&&Bl(this,wo).gd&&(c=this.J&ep?c|ip:c|jp);w(this,a,null,b,"PPI_C",c,32896);return c};l.lo=function(a,b,c){w(this,a,b,c,"PPI_C");this.Ca=b};l.Jm=function(a,b){var c=this.ga;w(this,a,null,b,"PPI_CTRL",c);return c}; +l.mo=function(a,b,c){w(this,a,b,c,"PPI_CTRL");this.ga=b};l.Sl=function(a,b){var c=this.B?cp(this.B):0;w(this,a,null,b,"8041_KBD",c);this.aa&=~kp;return c};l.tn=function(a,b,c){w(this,a,b,c,"8041_KBD")};l.Rl=function(a,b){var c=this.J;w(this,a,null,b,"8041_CTRL",c);return c};l.sn=function(a,b,c){w(this,a,b,c,"8041_CTRL");dp(this,b)};l.Tl=function(a,b){var c=this.aa;w(this,a,null,b,"8041_STATUS",c);return c}; +l.Ul=function(a,b){var c=this.oa;w(this,a,null,b,"8042_OUTBUFF",c,16384);this.D&=~(kp|lp);this.B&&mp(this.B);return c}; +l.vn=function(a,b,c){w(this,a,b,c,"8042_INBUF.DATA",null,16384);if(this.D&np)switch(this.L){case op:pp(this,b);break;case qp:rp(this,b);break;default:if(pp(this,this.K&~Ol),this.B){a=this.B;c=b;var d=-1;t(a)&&Mb(a,"sendCmd("+r(c)+")");switch(a.F||c){case sp:d=tp;up(a);break;case vp:a.F&&(c=0);wp(a,tp);a.F=c;break;case xp:a.F&&(c=0);wp(a,tp);a.F=c;break;default:Mb(a,"sendCmd(): unrecognized command")}yp(this,d)}}this.L=b;this.D&=~np}; +l.Vl=function(a,b){var c=this.J&~(zp|Ap)|(Ed(this.H)&64?Ap:0);w(this,a,null,b,"8042_RWREG",c,16384);return c};l.wn=function(a,b,c){w(this,a,b,c,"8042_RWREG",null,16384);dp(this,b)};l.Wl=function(a,b){w(this,a,null,b,"8042_STATUS",this.D,16384);a=this.D&255;this.D&lp&&(this.D|=kp,this.D&=~lp);return a}; +l.un=function(a,b,c){w(this,a,b,c,"8042_INBUFF.CMD",null,16384);this.L=b;this.D|=np;a=0;this.L>=Bp&&(a=this.L^15,this.L=Bp);switch(this.L){case Cp:yp(this,this.K);break;case Dp:pp(this,this.K|Ol);break;case Ep:pp(this,this.K&~Ol);this.B&&mp(this.B);break;case Fp:this.B&&(a=this.B,a.A=[],t(a)&&Mb(a,"scan codes flushed"));pp(this,this.K|Ol);yp(this,Gp);rp(this,Yl|Zl);break;case Hp:yp(this,Ip);break;case Jp:yp(this,this.M);break;case Kp:yp(this,this.qa);break;case Lp:yp(this,this.K&Ol?0:Mp);break;case Bp:a& +1&&kf(this.H)}};function pp(a,b){a.K=b;a.D=a.D&~Np|b&Op;a.B&&fp(a.B,!!(b&Pp),!(b&Ol))}function yp(a,b,c){0<=b&&(a.oa=b,c?a.D|=kp:(a.D&=~kp,a.D|=lp))}function rp(a,b){a.qa=b;oc(a.ka,!!(b&Zl));b&Yl||kf(a.H)}function Qp(a,b){a.ca>4)+(c&15),e=!0);if(d==Gm||d==Hm)e&&23=c?c=12==c?0:c:(c-=116,c=24==c?12:c))}}else c=b;this.A[d]=c;d==Rd&&a&Td&&b&Td&&Tm(this)};l.Nk=function(a,b,c){w(this,a,b,c,"NMI");this.da=b};l.Vn=function(a,b,c){w(this,a,b,c,"FPU.CLEAR")};l.Wn=function(a,b,c){w(this,a,b,c,"FPU.RESET");this.Tc&&$g(this.Tc)}; l.Xm=function(a){if(t(this,16)&&Wk(this.ba,26,a)){var b=this.H.D>>8;Tf(this.H,a,function(a,d){return function(c){d=Ed(a.H)-d;var e,g=a.H.L&255,h=a.H.L>>8,k=a.H.L&255,m=a.H.L>>8;if(2==b||3==b)e=" CH(hour)="+ta(h)+" CL(min)="+r(g)+" DH(sec)="+r(m);else if(4==b||5==b)e=" CX(year)="+ta(a.H.I)+" DH(month)="+r(m)+" DL(day)="+r(k);g=a.ba;h=d;g.message("INT "+r(26)+": C="+(dg(g.H)?1:0)+(e||"")+" (cycles="+h+(c?",level="+(c+1):"")+")")}}(this,Ed(this.H)))}return!0}; -function Vm(a,b){if(a.la)try{void 0!==b?a.Ga=b:b=!!(a.Ga&&a.H&&a.H.ea.vb);var c=Math.round(ol/vo(a,wo));if(20>c||2E4c||2E4>>4,0,this.F,this.C,this.Fd),delete this.Fd);return!0};Yp.prototype.Wb=function(){return!0}; function Zp(a,b,c,d){if(d)a.Fa("Unable to load system ROM (error "+d+": "+b+")");else{pb(a.xe,b,c);if("["==c.charAt(0)||"{"==c.charAt(0))try{var e=eval("("+c+")"),f=e.bytes,g=e.longs||e.data;if(f)a.A=f;else if(g)for(a.A=Array(4*g.length),d=c=0;c>8&255,a.A[d++]=g[c]>>16&255,a.A[d++]=g[c]>>24&255;else a.A=e;a.Fd=e.symbols;if(!a.A.length){hb("Empty ROM: "+b);return}if(1==a.A.length){hb(a.A[0]);return}}catch(h){a.Fa("ROM data error: "+h.message);return}else for(b= c.replace(/\n/gm," ").replace(/ +$/,"").split(" "),a.A=Array(b.length),e=0;e>>d.A].bf(e&d.D,a.A[c]&255,e)}b=!0}else b=!1;if(b){b=[];"number"==typeof a.D?b.push(a.D):null!=a.D&&a.D.length&&(b=a.D);for(c=0;cthis.B?am:23,c=a.A[b]|a.A[b+1]<<8,c=c+(this.A>>10);a.A[b]=c&255;a.A[b+1]=c>>8;km(a)}}else hb("No RAM allocated")}; +l.reset=function(){if(!this.B&&!this.D&&this.V){var a=1024*Rl(this.V);this.A&&a!=this.A&&(Cc(this.ka,this.B,this.A),this.C=!1);this.A=a}!this.C&&this.A&&pc(this.ka,this.B,this.A,1)&&(this.C=!0,"ramCPQ"==this.be&&(this.controller=new fq(this),pc(this.ka,gq,4,4,this.controller)));if(this.C){if(this.F||Kc(this.ka,1138,4660),"ramCPQ"!=this.be&&this.V&&(a=this.V,a.A)){var b=1048576>this.B?am:23,c=a.A[b]|a.A[b+1]<<8,c=c+(this.A>>10);a.A[b]=c&255;a.A[b+1]=c>>8;km(a)}}else hb("No RAM allocated")}; l.save=function(){var a=new Xf(this);this.controller&&a.set(0,this.controller.save());return a.data()};l.restore=function(a){return this.controller?this.controller.restore(a[0]):!0};function fq(a){this.D=a;this.C=hq;this.H=iq;this.B=jq;this.A=null}l=fq.prototype;l.save=function(){return[this.C,this.B]};l.restore=function(a){this.fc(0,a[0]&255);this.fc(2,a[1]&255);return!0};l.Ia=function(a){var b=255;2>a?b=a&1?this.H>>8:this.H&255:4>a&&(b=a&1?this.B>>8:this.B&255);return b}; l.fc=function(a,b){if(a)2==a&&(this.B=this.B&-256|b);else if(b!=(this.C&255)){a=this.D.ka;if(b&kq)this.A&&(xc(a,lq,mq,this.A),this.A=null);else{this.A||(this.A=yc(a,lq,mq));var c=yc(a,nq,mq);xc(a,lq,mq,c,b&oq?1:Ec)}this.C=this.C&-256|b}};l.vj=function(){return pq};l.fh=function(){return qq};var gq=-2134900736,nq=16646144,lq=917504,mq=131072,kq=1,oq=2,hq=65535,iq=2575,jq=2,pq=[null,0],qq=[function(a){return this.controller.Ia(a)},null,null,function(a,b){this.controller.fc(a,b)},null,null]; ab(function(){for(var a=Ab(document,"pcx86","ram"),b=0;b=n.de&&d<=n.z&&(d-=n.de-n.ce),d=Bq[e]==d),d){(a=a.na["key-"+e])&&void 0!==c&&(a.style.color=c?"#ffffff":"#000000",a.style.backgroundColor=c?"#000000":"#ffffff");break}}}l.uc=function(a,b,c,d){this.pa=a;this.ka=b;this.H=c;this.ba=d;this.W=Xb(a,"ChipSet")}; -function sq(a,b){var c=0;a.ca=null;"string"==typeof b&&(a.ca=b.toUpperCase(),c=Fq.indexOf(a.ca),0>c&&(c=0));if(b=Fq[c])a.Y=parseInt(b.substr(2),10)}function up(a){Mb(a,"keyboard reset",65792);a.A=[];wp(a,Gq)}function fp(a,b,c){a.J!==c&&(a.J=a.K=c)&&(a.G=!0);a.I!==b&&(a.I=b)&&!a.K&&Sp(a,!0);a.I&&a.K&&(up(a),a.K=!1)}function wp(a,b){a.W&&(a.A.unshift(b),a.G=!0,Qp(a.W,b))} -function mp(a){var b=0;a.A.length&&a.G&&(b=a.A[0],a.W&&Qp(a.W,b));t(a)&&Mb(a,b?"scan code "+r(b)+" available":"no scan codes available")}function cp(a){var b=0;a.A.length&&(b=a.A[0]);t(a)&&Mb(a,"scan code "+r(b)+" delivered");return b}function Sp(a,b){0=n.de&&d<=n.z&&(d-=n.de-n.ce),d=Bq[e]==d),d){(a=a.na["key-"+e])&&void 0!==c&&(a.style.color=c?"#ffffff":"#000000",a.style.backgroundColor=c?"#000000":"#ffffff");break}}}l.uc=function(a,b,c,d){this.pa=a;this.ka=b;this.H=c;this.ba=d;this.V=Xb(a,"ChipSet")}; +function sq(a,b){var c=0;a.ca=null;"string"==typeof b&&(a.ca=b.toUpperCase(),c=Fq.indexOf(a.ca),0>c&&(c=0));if(b=Fq[c])a.Y=parseInt(b.substr(2),10)}function up(a){Mb(a,"keyboard reset",65792);a.A=[];wp(a,Gq)}function fp(a,b,c){a.J!==c&&(a.J=a.K=c)&&(a.G=!0);a.I!==b&&(a.I=b)&&!a.K&&Sp(a,!0);a.I&&a.K&&(up(a),a.K=!1)}function wp(a,b){a.V&&(a.A.unshift(b),a.G=!0,Qp(a.V,b))} +function mp(a){var b=0;a.A.length&&a.G&&(b=a.A[0],a.V&&Qp(a.V,b));t(a)&&Mb(a,b?"scan code "+r(b)+" available":"no scan codes available")}function cp(a){var b=0;a.A.length&&(b=a.A[0]);t(a)&&Mb(a,"scan code "+r(b)+" delivered");return b}function Sp(a,b){0>=1);if(b&Kq){if(!1===d)return!0;d=null}null==d?d=!((c?a.C:a.jc)&b):d||b&Lq&&(b=Lq);if(c){a.C&=~b;d&&(a.C|=b);c=b;var f,g;for(g in Mq)d="led-"+g,e=Mq[g],c&&c!=e||!(f=a.na[d])||(f.style.backgroundColor=a.C&e?"#00ff00":"#000000")}else a.jc&=~b,d&&(a.jc|=b);return!0}}return!1} -function vq(a,b,c){if(O[b]&&a.H&&a.H.ea.vb){Iq[b]&&a.B.length&&0e||(e==a.B.length&&(d={},d.ue=b,d.jc=a.jc,Eq(a,b,!0),e++),0b.ud){if(!b.qf){Cq(a,b.ue);return}b.qf=!1;c=a.Z}else c=1==b.ud++?500:100;b.cl=setTimeout(function(a){return function(){Nq(a,b)}}(a),c)}} +function vq(a,b,c){if(O[b]&&a.H&&a.H.ea.wb){Iq[b]&&a.B.length&&0e||(e==a.B.length&&(d={},d.ue=b,d.jc=a.jc,Eq(a,b,!0),e++),0b.ud){if(!b.qf){Cq(a,b.ue);return}b.qf=!1;c=a.Z}else c=1==b.ud++?500:100;b.cl=setTimeout(function(a){return function(){Nq(a,b)}}(a),c)}} function Pq(a,b,c){var d=b;if(b>=n.ce&&b<=n.eg)!(a.jc&(Qq|Rq|Sq))==c&&(d=b+(n.de-n.ce));else if(b>=n.de&&b<=n.z)!!(a.jc&(Qq|Rq|Sq))==c&&(d=b-(n.de-n.ce));else if(!!(a.jc&(Qq|Rq))==c){if(a=na[b])d=a}else if(a=ma[b])d=a;return d}l.Bg=function(a){a||(this.jc&=~Lq)}; function tq(a,b,c){var d=!0,e=!1,f=!1,g=b.keyCode,h=Pq(a,g,!0);a.dh&&h==n["`"]&&(g=h=27);if(O[g+1E3])if(h+=1E3,2==b.location&&(h+=2E3),Aq(a,h,!1,c)){if(20==g||144==g||145==g)a.O||(c=e=!0);if(!(c||91!=g&&93!=g))for(var k=0;k=n.ce&&b<=n.eg||b>=n.de&&b<=n.z;e>>>=8;){var g=0,h=e&255;f==br||f==cr?d.push(f|(c?0:ar)):(h==P?a.C&(Qq|Rq)||a.C&Sq&&b||(g=h):h==dr?a.C&(Tq|er)||(g=h):h==fr?a.C&(Uq|gr)||(g=h):d.push(f|(c?0:ar)),g&&(c?d.unshift(g):d.push(g|ar)))}for(c=0;c"]]=52|P<<8;O[n["/"]]=53; O[n["?"]]=53|P<<8;O[3016]=54;O[1044]=55;O[1018]=fr;O[1032]=57;O[wq]=58;O[1112]=59;O[1113]=60;O[1114]=61;O[1115]=62;O[1116]=63;O[1117]=64;O[1118]=65;O[1119]=66;O[1120]=67;O[1121]=68;O[xq]=69;O[yq]=70;O[1036]=71;O[1038]=72;O[1033]=73;O[1109]=74;O[1037]=75;O[1101]=76;O[1039]=77;O[1107]=78;O[1035]=79;O[1040]=80;O[1034]=81;O[1045]=82;O[1046]=$q;O[4027]=84;O[1122]=87;O[1123]=88;O[1091]=91;O[1093]=93;O[1224]=91;O[jr]=46|dr<<8;O[Vq]=70|dr<<8;O[4046]=$q|dr<<8|fr<<16;O[4045]=82|dr<<8|fr<<16; O[4013]=28|dr<<8|fr<<16;var sp=255,vp=243,xp=237,Gq=170,tp=250,ir=255,hr=20;ab(function(){for(var a=Ab(document,"pcx86","keyboard"),b=0;bc.length)c=[!1,0,null,null,0,Array(b>2,32768));this.rc=c[0];this.Xc=c[1];this.Ze=c[2];this.fa=c[3];this.ec=c[4]&255;this.Fg=c[4]>>8&255;this.Wa=c[5];this.oh=mr;this.gg=or;if(b>=bq){this.oh=nr;this.gg=pr;(b=c[6])||(b=[!1,0,Array(qr),0,f== -Ul?0:rr,0,0,Array(sr),0,0,0,Array(tr),0,[this.bb,this.Ob,this.qd],Array(this.qd>>2),ur|vr|wr|xr|yr,0,-1,0,-1,0,-1,0,0,0,0,zr,Ar,0,0,Br,Array(Cr)]);this.Ke=b[0];this.wd=b[1];this.Cc=b[2];this.Tg=Dr;this.Ig=b[3];this.af=b[4];this.Pf=b[5];this.zd=b[6];this.$d=b[7];this.Vg=Er;this.Wk=b[8];this.Xk=b[9];this.yd=b[10];this.xd=b[11];this.Ug=Fr;this.tb=b[12];d=b[13];"number"==typeof d&&(d=[this.bb,this.Ob,d]);this.bb=d[0];this.Ob=d[1];d=this.qd>>2;if((this.fd=b[14])&&this.fd.lengthc.length)c=[!1,0,null,null,0,Array(b>2,32768));this.rc=c[0];this.Xc=c[1];this.Ze=c[2];this.fa=c[3];this.ec=c[4]&255;this.Fg=c[4]>>8&255;this.Wa=c[5];this.oh=mr;this.gg=or;if(b>=bq){this.oh=nr;this.gg=pr;(b=c[6])||(b=[!1,0,Array(qr),0,f== +Ul?0:rr,0,0,Array(sr),0,0,0,Array(tr),0,[this.cb,this.Ob,this.qd],Array(this.qd>>2),ur|vr|wr|xr|yr,0,-1,0,-1,0,-1,0,0,0,0,zr,Ar,0,0,Br,Array(Cr)]);this.Ke=b[0];this.wd=b[1];this.Cc=b[2];this.Tg=Dr;this.Ig=b[3];this.af=b[4];this.Pf=b[5];this.zd=b[6];this.$d=b[7];this.Vg=Er;this.Wk=b[8];this.Xk=b[9];this.yd=b[10];this.xd=b[11];this.Ug=Fr;this.ub=b[12];d=b[13];"number"==typeof d&&(d=[this.cb,this.Ob,d]);this.cb=d[0];this.Ob=d[1];d=this.qd>>2;if((this.fd=b[14])&&this.fd.length=bq){var c=[];c[0]=a.Ke;c[1]=a.wd;c[2]=a.Cc;c[3]=a.Ig;c[4]=a.af;c[5]=a.Pf;c[6]=a.zd;c[7]=a.$d;c[8]=a.Wk;c[9]=a.Xk;c[10]=a.yd;c[11]=a.xd;c[12]=a.tb;c[13]=[a.bb,a.Ob,a.qd];var d;if(d=a.fd){var e=0,f=[];if(void 0!==d[0])for(var g=0;2>g;g++)for(var h=g;h>1;f[e++]=k;h=m}f.length=bq){var c=[];c[0]=a.Ke;c[1]=a.wd;c[2]=a.Cc;c[3]=a.Ig;c[4]=a.af;c[5]=a.Pf;c[6]=a.zd;c[7]=a.$d;c[8]=a.Wk;c[9]=a.Xk;c[10]=a.yd;c[11]=a.xd;c[12]=a.ub;c[13]=[a.cb,a.Ob,a.qd];var d;if(d=a.fd){var e=0,f=[];if(void 0!==d[0])for(var g=0;2>g;g++)for(var h=g;h>1;f[e++]=k;h=m}f.length=bq){var d=0,e=0,f=0;switch(b){case Or:d=Pr;a.La==dq&&(e=Qr);break;case Rr:a.La==bq&&(d=Sr);break;case Tr:d=Ur;a.La==dq&&(e=Vr);break;case Wr:d=Xr;a.La==dq&&(e=Yr);break;case Zr:d=$r;a.La==dq&&(f=as);break;case bs:d=cs,a.La==dq&&(f=ds)}d&&(c|=a.Wa[es]&d?256:0,c|=a.Wa[es]&e?512:0,c|=a.Wa[fs]&f?512:0)}return c} var mr=18,Or=6,es=7,Pr=1,Xr=2,Ur=4,$r=8,cs=16,Sr=32,Qr=32,Yr=64,Vr=128,fs=9,as=32,ds=64,Rr=10,Tr=16,Wr=18,Zr=21,bs=24,nr=25,or="HTOTAL HDISP HSYNC_POS HSYNC_WIDTH VTOTAL VTOTAL_ADJ VDISP VSYNC_POS INTERLACE_POS MAX_SCAN CURSOR_START CURSOR_END START_ADDR_HI START_ADDR_LO CURSOR_ADDR_HI CURSOR_ADDR_LO LIGHT_PEN_HI LIGHT_PEN_LO".split(" "),pr="HTOTAL HDISP_END HBLANK_START HBLANK_END HRETRACE_START HRETRACE_END VTOTAL OVERFLOW PRESET_SCAN MAX_SCAN CURSOR_START CURSOR_END START_ADDR_HI START_ADDR_LO CURSOR_ADDR_HI CURSOR_ADDR_LO VRETRACE_START VRETRACE_END VDISP_END OFFSET UNDERLINE VBLANK_START VBLANK_END MODE_CTRL LINE_COMPARE".split(" "), qr=20,Dr="PAL00 PAL01 PAL02 PAL03 PAL04 PAL05 PAL06 PAL07 PAL08 PAL09 PAL0A PAL0B PAL0C PAL0D PAL0E PAL0F MODE OVERSCAN PLANES HPAN".split(" "),rr=1,zr=1,sr=5,Er=["RESET","CLOCKING","MAPMASK","CHARMAP","MEMMODE"],Ar=255,Br=0,Cr=256,tr=9,Fr="SRESET ESRESET COLORCMP DATAROT READMAP MODE MISC COLORDC BITMASK".split(" "),ur=1024,vr=4096,Lr=65280,wr=0,xr=16,Nr=255,yr=-2147483648,Gr=[];Gr[2]=ur;Gr[3]=ur|vr;Gr[16]=1280;Gr[512]=wr;Gr[1024]=wr|32;Gr[1536]=wr|96;Gr[2560]=wr|160;Gr[3584]=wr|224;Gr[768]=wr|xr; -Gr[4096]=1;Gr[8192]=2;Gr[24576]=98;Gr[40960]=162;Gr[57344]=226;var Mr=[];Mr[ur]=function(a){a+=this.H;return(this.controller.tb=this.X[a])>>this.controller.ei&255};Mr[ur|16384]=function(a){return(this.controller.tb=this.X[(a&-4)+this.H])>>((a&3)<<3)&255};Mr[ur|vr]=function(a){a+=this.H;var b=this.controller.tb=this.X[a&-2];return(a&1?b>>8:b)&255}; -Mr[1280]=function(a){a+=this.H;a=this.controller.tb=this.X[a];for(var b=this.controller.qh,c=this.controller.ph&b,d=0,e=128;e;)(a&b)==c&&(d|=e),c>>>=1,b>>>=1,e>>=1;return d};Mr[wr]=function(a,b){a+=this.H;b=(b|b<<8|b<<16|b<<24)&this.controller.Md|this.controller.Yd;b=b&this.controller.Bb|this.controller.tb&~this.controller.Bb;b=b&this.controller.gb|this.X[a]&~this.controller.gb;this.X[a]!=b&&(this.X[a]=b,this.Oa=!0)}; -Mr[wr|32]=function(a,b){a+=this.H;b=b>>this.controller.Qc|b<<8-this.controller.Qc&255;b=(b|b<<8|b<<16|b<<24)&this.controller.Md|this.controller.Yd;b=b&this.controller.Bb|this.controller.tb&~this.controller.Bb;b=b&this.controller.gb|this.X[a]&~this.controller.gb;this.X[a]!=b&&(this.X[a]=b,this.Oa=!0)}; -Mr[wr|96]=function(a,b){a+=this.H;b=b>>this.controller.Qc|b<<8-this.controller.Qc&255;b=(b|b<<8|b<<16|b<<24)&this.controller.Md|this.controller.Yd;b&=this.controller.tb;b=b&this.controller.Bb|this.controller.tb&~this.controller.Bb;b=b&this.controller.gb|this.X[a]&~this.controller.gb;this.X[a]!=b&&(this.X[a]=b,this.Oa=!0)}; -Mr[wr|160]=function(a,b){a+=this.H;b=b>>this.controller.Qc|b<<8-this.controller.Qc&255;b=(b|b<<8|b<<16|b<<24)&this.controller.Md|this.controller.Yd;b|=this.controller.tb;b=b&this.controller.Bb|this.controller.tb&~this.controller.Bb;b=b&this.controller.gb|this.X[a]&~this.controller.gb;this.X[a]!=b&&(this.X[a]=b,this.Oa=!0)}; -Mr[wr|224]=function(a,b){a+=this.H;b=b>>this.controller.Qc|b<<8-this.controller.Qc&255;b=(b|b<<8|b<<16|b<<24)&this.controller.Md|this.controller.Yd;b^=this.controller.tb;b=b&this.controller.Bb|this.controller.tb&~this.controller.Bb;b=b&this.controller.gb|this.X[a]&~this.controller.gb;this.X[a]!=b&&(this.X[a]=b,this.Oa=!0)};Mr[wr|4]=function(a,b){var c=(a&-4)+this.H;a=(a&3)<<3;b=b<>this.controller.Qc|b<<8-this.controller.Qc&255;b=(b|b<<8|b<<16|b<<24)&this.controller.Bb;b=this.controller.Hf&b|this.controller.tb&~b;b=b&this.controller.gb|this.X[a]&~this.controller.gb;this.X[a]!=b&&(this.X[a]=b,this.Oa=!0)}; +Gr[4096]=1;Gr[8192]=2;Gr[24576]=98;Gr[40960]=162;Gr[57344]=226;var Mr=[];Mr[ur]=function(a){a+=this.H;return(this.controller.ub=this.X[a])>>this.controller.ei&255};Mr[ur|16384]=function(a){return(this.controller.ub=this.X[(a&-4)+this.H])>>((a&3)<<3)&255};Mr[ur|vr]=function(a){a+=this.H;var b=this.controller.ub=this.X[a&-2];return(a&1?b>>8:b)&255}; +Mr[1280]=function(a){a+=this.H;a=this.controller.ub=this.X[a];for(var b=this.controller.qh,c=this.controller.ph&b,d=0,e=128;e;)(a&b)==c&&(d|=e),c>>>=1,b>>>=1,e>>=1;return d};Mr[wr]=function(a,b){a+=this.H;b=(b|b<<8|b<<16|b<<24)&this.controller.Md|this.controller.Yd;b=b&this.controller.Bb|this.controller.ub&~this.controller.Bb;b=b&this.controller.gb|this.X[a]&~this.controller.gb;this.X[a]!=b&&(this.X[a]=b,this.Oa=!0)}; +Mr[wr|32]=function(a,b){a+=this.H;b=b>>this.controller.Qc|b<<8-this.controller.Qc&255;b=(b|b<<8|b<<16|b<<24)&this.controller.Md|this.controller.Yd;b=b&this.controller.Bb|this.controller.ub&~this.controller.Bb;b=b&this.controller.gb|this.X[a]&~this.controller.gb;this.X[a]!=b&&(this.X[a]=b,this.Oa=!0)}; +Mr[wr|96]=function(a,b){a+=this.H;b=b>>this.controller.Qc|b<<8-this.controller.Qc&255;b=(b|b<<8|b<<16|b<<24)&this.controller.Md|this.controller.Yd;b&=this.controller.ub;b=b&this.controller.Bb|this.controller.ub&~this.controller.Bb;b=b&this.controller.gb|this.X[a]&~this.controller.gb;this.X[a]!=b&&(this.X[a]=b,this.Oa=!0)}; +Mr[wr|160]=function(a,b){a+=this.H;b=b>>this.controller.Qc|b<<8-this.controller.Qc&255;b=(b|b<<8|b<<16|b<<24)&this.controller.Md|this.controller.Yd;b|=this.controller.ub;b=b&this.controller.Bb|this.controller.ub&~this.controller.Bb;b=b&this.controller.gb|this.X[a]&~this.controller.gb;this.X[a]!=b&&(this.X[a]=b,this.Oa=!0)}; +Mr[wr|224]=function(a,b){a+=this.H;b=b>>this.controller.Qc|b<<8-this.controller.Qc&255;b=(b|b<<8|b<<16|b<<24)&this.controller.Md|this.controller.Yd;b^=this.controller.ub;b=b&this.controller.Bb|this.controller.ub&~this.controller.Bb;b=b&this.controller.gb|this.X[a]&~this.controller.gb;this.X[a]!=b&&(this.X[a]=b,this.Oa=!0)};Mr[wr|4]=function(a,b){var c=(a&-4)+this.H;a=(a&3)<<3;b=b<>this.controller.Qc|b<<8-this.controller.Qc&255;b=(b|b<<8|b<<16|b<<24)&this.controller.Bb;b=this.controller.Hf&b|this.controller.ub&~b;b=b&this.controller.gb|this.X[a]&~this.controller.gb;this.X[a]!=b&&(this.X[a]=b,this.Oa=!0)}; function Q(a,b,c,d,e){nb.call(this,"Video",a,262144);var f=this;this.Tc=Ua("Gecko/");var g=["","moz","ms","webkit"];this.ca=a.model;var h=hs[this.ca]||hs.mda;this.La=h[0];this.qd=a.memory||0;this.cd=a.switches;this.da=a.mode;if(null==this.da||null==is[this.da])this.da=h[1];this.Fb=a.charCols;this.sc=a.charRows;if(void 0===this.Fb||void 0===this.sc)this.Fb=is[this.da][0],this.sc=is[this.da][1];this.Z=a.screenWidth;this.la=a.screenHeight;this.Uc=a.scale;this.Cd=12<=Math.round(this.Z/this.Fb);this.O= -b;this.L=c;this.D=(this.Qd=d)||b||null;b=a.smoothing;(c=Va("smoothing"))&&(b="true"==c);if(null!=b)for(c=0;c=bq&&(Oc(b,this,ss),Sc(b,this,ts));this.La==dq&&(Oc(b,this,us),Sc(b,this,vs));if(d){var e=this;Al(d,262144,function(a){if(e.C)if(a[0]){var b=e.C;if(b.fd){var c,d,f,g=!1,u=8,F=8,K=-1,H=b.video.F>>3;for(c=0;c=d&&(F=d,g=!0);break; -case "p":0<=d&&3>=d&&(K=d);break;case "w":d=b.bb&&(f-=b.bb);a="";for(c=0;cK?q(T):qa(T>>(K<<3),8));g&&(f+=H-F);a&&(a+="\n");a+=I}a&&b.ba.P(a);b.B=f}else b.ba.P("no buffer")}else e.ba.P("BIOSMODE: "+r(e.oa)),b=e.C,Jr(b,"CRTC",b.ec,b.Wa,b.gg),b.La>=bq&&(Jr(b," GRC",b.yd,b.xd,b.Ug),Jr(b," SEQ",b.zd,b.$d,b.Vg),Jr(b," ATC",b.wd,b.Cc, -b.Tg),Jr(b," ATCINDX",b.wd),b.ba.P(" ATCDATA: "+b.Ke),Jr(b," FEAT",b.Pf),Jr(b," MISC",b.af),Jr(b," STATUS0",b.Ig)),Jr(b," STATUS1",b.fa),b.La!=ps&&b.La!=ms||Jr(b," MODEREG",b.Xc),b.La==ms&&Jr(b," COLOR",b.Ze),b.La>=bq&&(b.ba.P(" LATCHES: "+q(b.tb)),b.ba.P(" ACCESS: "+q(b.tg,4)),b.ba.P("Use 'dump video [addr]' to dump video memory"));else e.ba.P("no active video card")})}if((this.B=Xb(a,"Keyboard"))&&this.O){for(var f in this.na)0=bq&&(Oc(b,this,ss),Sc(b,this,ts));this.La==dq&&(Oc(b,this,us),Sc(b,this,vs));if(d){var e=this;Al(d,262144,function(a){if(e.C)if(a[0]){var b=e.C;if(b.fd){var c,d,f,g=!1,u=8,E=8,K=-1,H=b.video.F>>3;for(c=0;c=d&&(E=d,g=!0);break; +case "p":0<=d&&3>=d&&(K=d);break;case "w":d=b.cb&&(f-=b.cb);a="";for(c=0;cK?q(T):qa(T>>(K<<3),8));g&&(f+=H-E);a&&(a+="\n");a+=I}a&&b.ba.P(a);b.B=f}else b.ba.P("no buffer")}else e.ba.P("BIOSMODE: "+r(e.oa)),b=e.C,Jr(b,"CRTC",b.ec,b.Wa,b.gg),b.La>=bq&&(Jr(b," GRC",b.yd,b.xd,b.Ug),Jr(b," SEQ",b.zd,b.$d,b.Vg),Jr(b," ATC",b.wd,b.Cc, +b.Tg),Jr(b," ATCINDX",b.wd),b.ba.P(" ATCDATA: "+b.Ke),Jr(b," FEAT",b.Pf),Jr(b," MISC",b.af),Jr(b," STATUS0",b.Ig)),Jr(b," STATUS1",b.fa),b.La!=ps&&b.La!=ms||Jr(b," MODEREG",b.Xc),b.La==ms&&Jr(b," COLOR",b.Ze),b.La>=bq&&(b.ba.P(" LATCHES: "+q(b.ub)),b.ba.P(" ACCESS: "+q(b.tg,4)),b.ba.P("Use 'dump video [addr]' to dump video memory"));else e.ba.P("no active video card")})}if((this.B=Xb(a,"Keyboard"))&&this.O){for(var f in this.na)0c&&(a=Math.round(c/b*100)+"%")}this.Tc?(this.O.style.width=a,this.O.style.width=a,this.O.style.display="block",this.O.style.margin="auto"):(this.N.style.width=a,this.N.style.height="auto");this.N.style.backgroundColor="black";this.N.Je();a=!0}this.D&&this.D.focus()}return a}; function ks(a,b){!b&&a.N&&(a.Tc?a.O.style.width=a.O.style.height="":a.N.style.width=a.N.style.height="");Mb(a,"notifyFullScreen("+b+")",!0);a.B&&(a.B.dh=b)}l.me=function(a){var b=!1;this.D&&(a?this.D.me&&(this.D.me(),this.G&&this.G.If(!0),b=!0):this.D.dl&&(this.D.dl(),this.G&&this.G.If(!1),b=!0),this.D&&this.D.focus());return b};l.If=function(a){this.G&&(this.G.If(a),this.B&&(this.B.dh=a));var b=this.na.lockPointer;b&&(b.textContent=a?"Press Esc to Unlock Pointer":this.Dd)}; function ws(a,b){var c=a.D;c&&!a.tc&&(c.addEventListener("touchstart",function(b){As(a,b,!0)},!1),c.addEventListener("touchmove",function(b){As(a,b)},!0),c.addEventListener("touchend",function(b){As(a,b,!1)},!1),a.tc=b,a.hb=a.ib=a.kd=-1,a.lc=!1,a.Db=null,a.kc=!1,a.Pd=function(){a.kc=!0;a.G.Vd(Bs,!0)})}l.Bg=function(a){this.B&&this.B.Bg(a)}; function As(a,b,c){var d,e,f=0,g=0;e=a.O;do isNaN(e.offsetLeft)||(f+=e.offsetLeft,g+=e.offsetTop);while(e=e.offsetParent);var h=a.Z/a.O.offsetWidth,k=a.la/a.O.offsetHeight;b.targetTouches&&b.targetTouches.length?(d=b.targetTouches[0].pageX,e=b.targetTouches[0].pageY):(d=b.pageX,e=b.pageY);d=(d-f)*h;e=(e-g)*k;if(a.tc==ys)d=d/(a.Z/3)|0,e=e/(a.la/3)|0,1!=e?e?vq(a.B,1040,!0):vq(a.B,1038,!0):1!=d&&(d?vq(a.B,1039,!0):vq(a.B,1037,!0));else if(a.G){g=a.lc;f=b.timeStamp-a.kd;!0===c?(a.lc=500f){a.G.Vd(Bs,!0);a.G.Vd(Bs,!1);return}}if(c||0>a.hb||0>a.ib)a.hb=d,a.ib=e;c=Math.round(d-a.hb);b=Math.round(e-a.ib);a.hb=d;a.ib=e;a.G.tf(c,b,a.hb,a.ib)}}l.Xb=function(a,b){if(!b)if(!a||!this.restore)this.reset();else if(!this.restore(a))return!1;return!0};l.Wb=function(a){return a?this.save():!0}; -l.reset=function(){var a=!0,b=0;this.W&&(b=+Tl(this.W,hl,void 0));this.ca||(this.La=b==Ul?ps:ms);this.da=Cs;switch(this.La){case dq:b=7;break;case bq:var c=Ds[this.xb];c&&(b=c[0]);b||(b=4);break;case ps:b=Ul;this.da=Es;break;default:b=2}this.ga!==b&&(this.ga=b,a=!0);this.C=null;this.Y=this.Kb=new kr(this,ps);this.K=this.yb=new kr(this,ms);this.La>1&255,d=d>>8&~Is,d>>4==(d&15)&&(d^=15)):(c=d&255,d=(d&256?Js|Ks:Ls|Ms)|Ns&d>>8);Kc(this.ka,b,c|d<<8)}zs(this,!0)}};function Fs(a){a.A.af&rr?(a.Y=a.Kb,a.K=a.A):(a.Y=a.A,a.K=a.yb)}l.save=function(){var a=new Xf(this);a.set(0,Ir(this.Kb));a.set(1,Ir(this.yb));a.set(2,[this.ga,this.da,this.oa]);a.set(3,Ir(this.A));return a.data()}; +l.reset=function(){var a=!0,b=0;this.V&&(b=+Tl(this.V,hl,void 0));this.ca||(this.La=b==Ul?ps:ms);this.da=Cs;switch(this.La){case dq:b=7;break;case bq:var c=Ds[this.xb];c&&(b=c[0]);b||(b=4);break;case ps:b=Ul;this.da=Es;break;default:b=2}this.ga!==b&&(this.ga=b,a=!0);this.C=null;this.Y=this.Kb=new kr(this,ps);this.K=this.yb=new kr(this,ms);this.La>1&255,d=d>>8&~Is,d>>4==(d&15)&&(d^=15)):(c=d&255,d=(d&256?Js|Ks:Ls|Ms)|Ns&d>>8);Kc(this.ka,b,c|d<<8)}zs(this,!0)}};function Fs(a){a.A.af&rr?(a.Y=a.Kb,a.K=a.A):(a.Y=a.A,a.K=a.yb)}l.save=function(){var a=new Xf(this);a.set(0,Ir(this.Kb));a.set(1,Ir(this.yb));a.set(2,[this.ga,this.da,this.oa]);a.set(3,Ir(this.A));return a.data()}; l.restore=function(a){var b=a[2];this.ga=b[0];this.da=b[1];this.oa=b[2];this.C=null;this.Y=this.Kb=new kr(this,ps,a[0]);this.K=this.yb=new kr(this,ms,a[1]);this.A=new kr(this,this.La,a[3],this.qd);this.A.rc&&Fs(this);Gs(this);if(!Os(this))return!1;Ps(this);return!0}; function ls(a,b,c,d){if(d)a.Fa("Unable to load font ROM (error "+d+": "+b+")");else{pb(a.xe,b,c);try{var e=eval("("+c+")"),f=e.bytes||e;if(!f.length){hb("Empty font ROM: "+b);return}if(1==f.length){hb(f[0]);return}if(8192==f.length)cq(a,f,[6144,0]);else if(2048==f.length)cq(a,f,[0]);else{a.Fa("Unrecognized font data length ("+f.length+")");return}}catch(g){a.Fa("Font ROM data error: "+g.message);return}(a.L||a.ba)&&Jb(a)}} function Qs(a,b){if(1==b)return a.ha[0]=Rs[Ls],a.ha[1]=Rs[Js],a.ha;if(2==b){var c=a.C.Ze;if(a.C===a.A){var d=a.A.Cc[0],c=d&7;d&16&&(c|=8);18!=a.A.Cc[1]&&(c|=32)}a.ha[0]=Rs[c&15];c=c&32?Ss:Ts;for(d=0;de;e++)f=d[e]||0,g=f<<2&252,h=f>>4&252,f=f>>10&252,a.ha[e]=[g,h,f,255];else{var k=d&&d[255];b=null!=c.Cc[15]?c.Cc:Us;for(e=0;16>e;e++)f=b[e]&63,k?(f|= -(c.Cc[20]&12)<<4,c.Cc[16]&128&&(f&=-49,f|=(c.Cc[20]&3)<<4),f=d[f],g=f<<2&252,h=f>>4&252,f=f>>10&252):(g=(f&4?170:0)|(f&32?85:0),h=(f&2?170:0)|(f&16?85:0),f=(f&1?170:0)|(f&8?85:0)),a.ha[e]=[g,h,f,255]}a.Ga=!0}return a.ha}function cq(a,b,c,d){a.wb=b;a.Ta=c;a.Da=d} -function Gs(a,b){var c=!1;if(window&&a.wb&&(!b||a.I)){b=0;var d=a.Da?a.Da:8,e=Qs(a);null!=a.Ta[0]&&Vs(a,Ws,a.Ta[0],b,d,8,a.wb,e)&&(c=!0);b=a.Da?0:2048;d=a.Da?a.Da:9;null!=a.Ta[1]&&(Vs(a,Xs,a.Ta[1],b,d,14,a.wb,Ys,Zs)&&(c=!0),a.Da&&Vs(a,a.La,a.Ta[1],0,a.Da,14,a.wb,e)&&(c=!0))}return c}function Vs(a,b,c,d,e,f,g,h,k){var m=!1;null!=c&&($s(a,b,c,d,e,f,g,h,k)&&(m=!0),a.Cd&&$s(a,b<<1,c,d,e,f,g,h,k)&&(m=!0));return m} -function $s(a,b,c,d,e,f,g,h,k){var m=!1,p=b&1?0:1,w=a.va[b],u=16>h.length?h.length:16;w||(w={Fc:e<ua||!T?ua:8,ib=cb.createImageData(m.Fc,m.Gc);for(Sa=0;256>Sa;Sa++){for(db=0;db=ua-2,Ld=ca[db>(8<=rb&&192<=Sa&&223>=Sa?7:rb)?F:xb;at(ib,sg,ef,tg);H&&at(ib,sg+1,ef,tg)}cb.putImageData(ib,(Sa&15)*m.Fc,(Sa>>4)*m.Gc)}m.Be[K]="#"+q(F[0],2)+q(F[1],2)+q(F[2],2);m.Qi[K]=F;m.Sg[K]=za;m=!0}}a.va[b]=w;return m}function bt(a){0a.Aa&&(a.Aa=0):a.Aa=-1} +(c.Cc[20]&12)<<4,c.Cc[16]&128&&(f&=-49,f|=(c.Cc[20]&3)<<4),f=d[f],g=f<<2&252,h=f>>4&252,f=f>>10&252):(g=(f&4?170:0)|(f&32?85:0),h=(f&2?170:0)|(f&16?85:0),f=(f&1?170:0)|(f&8?85:0)),a.ha[e]=[g,h,f,255]}a.Ga=!0}return a.ha}function cq(a,b,c,d){a.lb=b;a.Ta=c;a.Da=d} +function Gs(a,b){var c=!1;if(window&&a.lb&&(!b||a.I)){b=0;var d=a.Da?a.Da:8,e=Qs(a);null!=a.Ta[0]&&Vs(a,Ws,a.Ta[0],b,d,8,a.lb,e)&&(c=!0);b=a.Da?0:2048;d=a.Da?a.Da:9;null!=a.Ta[1]&&(Vs(a,Xs,a.Ta[1],b,d,14,a.lb,Ys,Zs)&&(c=!0),a.Da&&Vs(a,a.La,a.Ta[1],0,a.Da,14,a.lb,e)&&(c=!0))}return c}function Vs(a,b,c,d,e,f,g,h,k){var m=!1;null!=c&&($s(a,b,c,d,e,f,g,h,k)&&(m=!0),a.Cd&&$s(a,b<<1,c,d,e,f,g,h,k)&&(m=!0));return m} +function $s(a,b,c,d,e,f,g,h,k){var m=!1,p=b&1?0:1,v=a.va[b],u=16>h.length?h.length:16;v||(v={Fc:e<ua||!T?ua:8,ib=cb.createImageData(m.Fc,m.Gc);for(Sa=0;256>Sa;Sa++){for(db=0;db=ua-2,Ld=ca[db>(8<=rb&&192<=Sa&&223>=Sa?7:rb)?E:xb;at(ib,sg,ef,tg);H&&at(ib,sg+1,ef,tg)}cb.putImageData(ib,(Sa&15)*m.Fc,(Sa>>4)*m.Gc)}m.Be[K]="#"+q(E[0],2)+q(E[1],2)+q(E[2],2);m.Qi[K]=E;m.Sg[K]=za;m=!0}}a.va[b]=v;return m}function bt(a){0a.Aa&&(a.Aa=0):a.Aa=-1} function Ps(a){if(a.I){for(var b=10;15>=b;b++)if(null==a.C.Wa[b])return;var c=a.C.Wa[10],b=c&31,d=a.C.Wa[11]&31,e=a.C.Wa[9]&31,f=!1;a.C===a.A&&(f=!0,7!=e||4!=b||d||(d=7));if(c&32||b>d&&!f||b>e)ct(a);else{c=a.C.Wa[15]+((a.C.Wa[14]&63)<<8);a.aa!=c&&(ct(a),a.aa=c);d=d-b+1;if(a.md!=b||a.Hc!=d)a.md=b,a.Hc=d;a.za=e+1;bt(a)}}} function ct(a){if(0<=a.aa){if(void 0!==a.M){var b=dt<<8,c=a.M[a.aa];if(c&b){var c=c&~b,b=a.aa%a.F,d=a.aa/a.F|0;a.I&&a.va[a.I]&&(a.Ca&&et(a,b,d,c,a.Ca),et(a,b,d,c));a.M[a.aa]=c}}a.aa=-1}} function ft(a){var b,c=a.C;a.Pc=!1;var d=c.xd[5];if(null!=d){b=ur;var e=wr,f=c.xd[3]&31;switch(d&3){case 0:if(f){e=wr|32;switch(f&24){case 8:e=wr|96;break;case 16:e=wr|160;break;case 24:e=wr|224}c.Qc=f&7}break;case 1:e=1;break;case 2:switch(f&24){default:e=2;break;case 8:e=98;break;case 16:e=162;break;case 24:e=226}break;case 3:a.La==dq&&(e=3,c.Qc=f&7)}d&8&&(b=1280);c=c.$d[4];null!=c&&(c&4||(b|=vr,e|=xr),d&64&&(c&8&&(b|=16384,e|=4),a.Pc=!0));b|=e}return b} -function gt(a,b){var c=a.C;return c&&null!=b&&b!=c.tg?(c.Kg(b),a.ka.Kg(c.bb,c.Ob,c.fh(),!0),!0):!1} -function Os(a,b){var c,d=a.oa,e=a.C;if(e)if(e.La==ps)d=Es;else if(e.La>=bq){var d=null,f=e.qd>>2,g=32768=e.Wa[Wr]?lt:mt:nt:g&128|| -350>f?d=m?ot:pt:480<=f&&(d=a.ga==Ul?qt:rt):d=m?7-d:st:d-=m?2:0);c=ft(a)}}else e.Xc&8&&(e.Xc&2?(d=e.Xc&16?st:tt,e.Xc&4||--d):(d=e.Xc&1?Cs:St,e.Xc&4&&--d));else a.oa=null,null==d&&(d=a.da);if(!Hs(a,d,b))return!1;gt(a,c);return!0} -function Hs(a,b,c){if(null!=b&&(b!=a.oa||c)){a.Ad=0;a.oa=b;a.Ga=!1;b=a.C||(b==Es?a.Y:a.K);if(b!=a.C||b.bb!=a.bb||b.Ob!=a.Ob){ct(a);if(a.bb){if(!Cc(a.ka,a.bb,a.Ob))return!1;a.C&&(a.C.rc=!1)}a.C=b;b.rc=!0;a.bb=b.bb;a.Ob=b.Ob;if(!pc(a.ka,b.bb,b.Ob,3,b===a.A?b:null))return!1}a:{a.I=0;a.F=a.Fb;a.J=a.sc;a.Ma=a.F;a.Eb=is[Es][2];b=0;if(c=is[a.oa])a.F=c[0],a.J=c[1],a.Eb=c[2],b=c[3],a.I=c[4],4!=a.ga&&7!=a.ga||a.C!==a.A||a.I!=Ws||(7==(a.A.Wa[fs]&31)?a.J=350>Kr(a.A,Wr)?43:50:a.I=a.La);a.Wc=a.F*a.J|0;a.Vc=a.Wc/ -a.Eb|0;a.Xa=a.Vc;a.Pb=0;void 0!==b&&(a.Xa=(a.Xa<<1)+b|0,a.Pb=a.Xa+b>>1);if(a.va.length){a.qa=a.Z/a.F|0;a.ta=a.la/a.J|0;if(a.I){b=a.va[a.I];if(!b)break a;c=a.va[a.I<<1];a.Uc&&80==a.F?c&&a.qa>=3*c.Fc>>2&&(a.I<<=1,b=c):(c&&a.qa>=c.Fc&&(a.I<<=1,b=c),a.Uc||(a.qa=b.Fc,a.ta=b.Gc));a.Ya=a.eb=0;b&&(a.Ya=a.F*b.Fc,a.eb=a.J*b.Gc)}else a.qa=a.ta=1,a.Ya=a.F,a.eb=a.J;a.Ha=a.L.createImageData(a.Ya,a.eb);a.Ba=document.createElement("canvas");a.Ba.width=a.Ya;a.Ba.height=a.eb;a.Ca=a.Ba.getContext("2d");a.vc=a.zc=0; -a.Qb=a.Z;a.Rb=a.la;b=a.Z-a.F*a.qa;c=a.la-a.J*a.ta;0>1,a.Qb-=b);0>1,a.Rb-=c);if(b||c)a.L.fillStyle=a.O.style.backgroundColor,a.L.fillRect(0,0,a.Z,a.la)}}Ut(a,!0);zs(a)}return!0}function at(a,b,c,d){b=(b+c*a.width)*d.length;a.data[b]=d[0];a.data[b+1]=d[1];a.data[b+2]=d[2];a.data[b+3]=d[3]}function Vt(a){a.ya=-1;a.ma=!1;var b=a.Vc;if(void 0===a.M||a.M.length!=b)a.M=Array(b)}function Ut(a,b){b||(a.Ga=!1);Vt(a)} +function gt(a,b){var c=a.C;return c&&null!=b&&b!=c.tg?(c.Kg(b),a.ka.Kg(c.cb,c.Ob,c.fh(),!0),!0):!1} +function Os(a,b){var c,d=a.oa,e=a.C;if(e)if(e.La==ps)d=Es;else if(e.La>=bq){var d=null,f=e.qd>>2,g=32768=e.Wa[Wr]?lt:mt:nt:g&128|| +350>f?d=m?ot:pt:480<=f&&(d=a.ga==Ul?qt:rt):d=m?7-d:st:d-=m?2:0);c=ft(a)}}else e.Xc&8&&(e.Xc&2?(d=e.Xc&16?st:tt,e.Xc&4||--d):(d=e.Xc&1?Cs:ut,e.Xc&4&&--d));else a.oa=null,null==d&&(d=a.da);if(!Hs(a,d,b))return!1;gt(a,c);return!0} +function Hs(a,b,c){if(null!=b&&(b!=a.oa||c)){a.Ad=0;a.oa=b;a.Ga=!1;b=a.C||(b==Es?a.Y:a.K);if(b!=a.C||b.cb!=a.cb||b.Ob!=a.Ob){ct(a);if(a.cb){if(!Cc(a.ka,a.cb,a.Ob))return!1;a.C&&(a.C.rc=!1)}a.C=b;b.rc=!0;a.cb=b.cb;a.Ob=b.Ob;if(!pc(a.ka,b.cb,b.Ob,3,b===a.A?b:null))return!1}a:{a.I=0;a.F=a.Fb;a.J=a.sc;a.Ma=a.F;a.Eb=is[Es][2];b=0;if(c=is[a.oa])a.F=c[0],a.J=c[1],a.Eb=c[2],b=c[3],a.I=c[4],4!=a.ga&&7!=a.ga||a.C!==a.A||a.I!=Ws||(7==(a.A.Wa[fs]&31)?a.J=350>Kr(a.A,Wr)?43:50:a.I=a.La);a.Wc=a.F*a.J|0;a.Vc=a.Wc/ +a.Eb|0;a.Xa=a.Vc;a.Pb=0;void 0!==b&&(a.Xa=(a.Xa<<1)+b|0,a.Pb=a.Xa+b>>1);if(a.va.length){a.qa=a.Z/a.F|0;a.ta=a.la/a.J|0;if(a.I){b=a.va[a.I];if(!b)break a;c=a.va[a.I<<1];a.Uc&&80==a.F?c&&a.qa>=3*c.Fc>>2&&(a.I<<=1,b=c):(c&&a.qa>=c.Fc&&(a.I<<=1,b=c),a.Uc||(a.qa=b.Fc,a.ta=b.Gc));a.Ya=a.ab=0;b&&(a.Ya=a.F*b.Fc,a.ab=a.J*b.Gc)}else a.qa=a.ta=1,a.Ya=a.F,a.ab=a.J;a.Ha=a.L.createImageData(a.Ya,a.ab);a.Ba=document.createElement("canvas");a.Ba.width=a.Ya;a.Ba.height=a.ab;a.Ca=a.Ba.getContext("2d");a.vc=a.zc=0; +a.Qb=a.Z;a.Rb=a.la;b=a.Z-a.F*a.qa;c=a.la-a.J*a.ta;0>1,a.Qb-=b);0>1,a.Rb-=c);if(b||c)a.L.fillStyle=a.O.style.backgroundColor,a.L.fillRect(0,0,a.Z,a.la)}}Tt(a,!0);zs(a)}return!0}function at(a,b,c,d){b=(b+c*a.width)*d.length;a.data[b]=d[0];a.data[b+1]=d[1];a.data[b+2]=d[2];a.data[b+3]=d[3]}function Vt(a){a.xa=-1;a.ma=!1;var b=a.Vc;if(void 0===a.M||a.M.length!=b)a.M=Array(b)}function Tt(a,b){b||(a.Ga=!1);Vt(a)} function et(a,b,c,d,e){var f=d&255,g=d>>8;d=g&15;var h=a.va[a.I];h.jf&&(d=h.jf[d]);var k=g>>4&15;h.jf&&(k=h.jf[k]);e?(b*=h.Fc,c*=h.Gc,e.fillStyle=h.Be[k],e.fillRect(b,c,h.Fc,h.Gc)):(b=b*a.qa+a.vc,c=c*a.ta+a.zc,a.L.fillStyle=h.Be[k],a.L.fillRect(b,c,a.qa,a.ta));g&Wt&&(k=(f&15)*h.Fc,f=(f>>4)*h.Gc,e?e.drawImage(h.Sg[d],k,f,h.Fc,h.Gc,b,c,h.Fc,h.Gc):a.L.drawImage(h.Sg[d],k,f,h.Fc,h.Gc,b,c,a.qa,a.ta));g&dt&&(f=a.md,g=a.Hc,e?(a.za&&a.za!==h.Gc&&(f=f*h.Gc/a.za|0,g=g*h.Gc/a.za|0),e.fillStyle=h.Be[d],e.fillRect(b, c+f,h.Fc,g)):(a.za&&a.za!==a.ta&&(f=f*a.ta/a.za|0,g=g*a.ta/a.za|0),a.L.fillStyle=h.Be[d],a.L.fillRect(b,c+f,a.qa,g)))} -function zs(a,b){if(a.ea.Yb){var c=!1,d=a.C;d&&(d!==a.A?d.Xc&8&&(c=!0):d.wd&32&&(c=!0));if(c||b){if(b)Vt(a);else if(void 0===a.M)return;var e=!1;!(b||++a.Ad&15)&&0<=a.Aa&&(a.Aa++,e=!0);var f=0,g=a.Wc,h=a.bb,c=h,k=c+a.Ob;a.oa>=lt&&(h=c=655360,k=c+65536);if(Xt(a,d)&8||d.Ye&&d.Ye=bq&&d.Wa[19]&&d.Wa[19]<<1!=d.Wa[1]+1&&(a.Ma=d.Wa[19]<<(a.I?1:d.Wa[20]&64?3:4),m=(a.Ma*(a.J-1)+a.F)/a.Eb|0,a.oa<=Es&& -(m<<=1));c+m>k&&(m=k-c,0>m&&(m=0));k=c+m;if(b=!b&&a.ma){b=a.ka;for(var p=!0,w=c>>>b.A;0f)return;g=f+1}}if(a.I){if(a.va[a.I]){d=f;f=0;e=a.ya=0;h=Wt<<8;b=1048575;p=a.C.Xc&32;a.La>=bq&&(p=a.C.Cc[16]&8);m=a.aa-a.C.vd;p&&(e=Is<<8,b&=~e,a.Aa&2||(b&=~h));for(c+=d<<1;c>8|(u&255)<<8;var I=e,T=16;m>=h))>>(T-=h);at(a.Ha,m++,p,b[ua])}m>F&&(F=m);p=H&&(H=p+1)}k+=2;d++;if(m>=a.F){m=0;p+=2;if(p>a.J)break;p==a.J&&(p=1,k=c+a.Pb)}}a.ma=!0; -wa.F?a.Ma-a.F-u>>3:0;c>=8;b>w&&(w=b);m=K&&(K=m+1)}c+=H;if(b>=a.F){b=0;if(++m>a.J)break;c+=I}}u||(a.ma=!0);pa.F?a.Ma-a.F-K>>3:0;cI&&(T=I)):(u<<=K,T-=K,a.ma=!1):(a.ma&&u===a.M[d]?(h+=T,T=0):a.M[d]=u,d++);if(T){hp&&(p=h);b=F&&(F=b+1)}if(h>=a.F){h=0;if(++b>a.J)break;c+=H}}K||(a.ma=!0);ma&&(b.wh=a,a=-a|0);a%b.rh>b.mn&&(c|=1);a%b.uh>b.on&&(c|=9);b.fi=a/b.uh|0;return c}l.Cm=function(a,b){return Zt(this,this.Y,a,b)};l.fo=function(a,b,c){var d=this.Y;d.Fg=d.ec;d.ec=b&31;v(this,a,b,c,"CRTC.INDX")};l.Bm=function(a,b){return $t(this,this.Y,a,b)};l.eo=function(a,b,c){au(this,this.Y,a,b,c)};l.Dm=function(a,b){return bu(this,this.Y,b)};l.ho=function(a,b,c){a=this.Y;v(this,a.port+4,b,c,"MODE");a.Xc=b;Os(this,!1)}; -l.Em=function(a,b){return cu(this,this.Y,b)};l.Mk=function(a,b,c){this.A.Pf=this.A.Pf&-4|b&3;v(this,a,b,c,"FEAT")};l.am=function(a,b){a=this.A.wd;b&&!t(this)||v(this,960,null,b,"ATC.INDX",a);return a};l.rl=function(a,b){a=this.A.Cc[this.A.wd&31];b&&!t(this)||v(this,960,null,b,"ATC."+this.A.Tg[this.A.wd&31],a);return a}; -l.Lk=function(a,b,c){var d=this.A,e=d.wd&32;if(d.Ke){d.Ke=!1;var f=d.wd&31;if(16<=f||!e)if(du||d.Cc[f]!==b)c&&!t(this)||v(this,a,b,c,"ATC."+d.Tg[f]),d.Cc[f]=b,Ut(this,!1)}else d.wd=b,v(this,a,b,c,"ATC.INDX"),d.Ke=!0,b&32&&!e&&Gs(this,!0)&&zs(this,!0),a=(d.Wa[12]<<8)+d.Wa[13]|0,d.vd!=a&&(d.vd=a,Ut(this)),d.Ye=0}; -l.Om=function(a,b){a=0;if(this.La==bq)a=3-((this.A.af&12)>>2),a=(this.xb&1<>this.A.xc&63;b&&!t(this)||v(this,969,null,b,"DAC.DATA["+r(this.A.dd)+"]["+r(this.A.xc)+"]",a);this.A.xc+=6;12=lt&&(h=c=655360,k=c+65536);if(Xt(a,d)&8||d.Ye&&d.Ye=bq&&d.Wa[19]&&d.Wa[19]<<1!=d.Wa[1]+1&&(a.Ma=d.Wa[19]<<(a.I?1:d.Wa[20]&64?3:4),m=(a.Ma*(a.J-1)+a.F)/a.Eb|0,a.oa<=Es&& +(m<<=1));c+m>k&&(m=k-c,0>m&&(m=0));k=c+m;if(b=!b&&a.ma){b=a.ka;for(var p=!0,v=c>>>b.A;0f)return;g=f+1}}if(a.I){if(a.va[a.I]){d=f;f=0;e=a.xa=0;h=Wt<<8;b=1048575;p=a.C.Xc&32;a.La>=bq&&(p=a.C.Cc[16]&8);m=a.aa-a.C.vd;p&&(e=Is<<8,b&=~e,a.Aa&2||(b&=~h));for(c+=d<<1;c>8|(u&255)<<8;var I=e,T=16;m>=h))>>(T-=h);at(a.Ha,m++,p,b[ua])}m>E&&(E=m);p=H&&(H=p+1)}k+=2;d++;if(m>=a.F){m=0;p+=2;if(p>a.J)break;p==a.J&&(p=1,k=c+a.Pb)}}a.ma=!0; +va.F?a.Ma-a.F-u>>3:0;c>=8;b>v&&(v=b);m=K&&(K=m+1)}c+=H;if(b>=a.F){b=0;if(++m>a.J)break;c+=I}}u||(a.ma=!0);pa.F?a.Ma-a.F-K>>3:0;cI&&(T=I)):(u<<=K,T-=K,a.ma=!1):(a.ma&&u===a.M[d]?(h+=T,T=0):a.M[d]=u,d++);if(T){hp&&(p=h);b=E&&(E=b+1)}if(h>=a.F){h=0;if(++b>a.J)break;c+=H}}K||(a.ma=!0);ma&&(b.wh=a,a=-a|0);a%b.rh>b.mn&&(c|=1);a%b.uh>b.on&&(c|=9);b.fi=a/b.uh|0;return c}l.Cm=function(a,b){return Zt(this,this.Y,a,b)};l.fo=function(a,b,c){var d=this.Y;d.Fg=d.ec;d.ec=b&31;w(this,a,b,c,"CRTC.INDX")};l.Bm=function(a,b){return $t(this,this.Y,a,b)};l.eo=function(a,b,c){au(this,this.Y,a,b,c)};l.Dm=function(a,b){return bu(this,this.Y,b)};l.ho=function(a,b,c){a=this.Y;w(this,a.port+4,b,c,"MODE");a.Xc=b;Os(this,!1)}; +l.Em=function(a,b){return cu(this,this.Y,b)};l.Mk=function(a,b,c){this.A.Pf=this.A.Pf&-4|b&3;w(this,a,b,c,"FEAT")};l.am=function(a,b){a=this.A.wd;b&&!t(this)||w(this,960,null,b,"ATC.INDX",a);return a};l.rl=function(a,b){a=this.A.Cc[this.A.wd&31];b&&!t(this)||w(this,960,null,b,"ATC."+this.A.Tg[this.A.wd&31],a);return a}; +l.Lk=function(a,b,c){var d=this.A,e=d.wd&32;if(d.Ke){d.Ke=!1;var f=d.wd&31;if(16<=f||!e)if(du||d.Cc[f]!==b)c&&!t(this)||w(this,a,b,c,"ATC."+d.Tg[f]),d.Cc[f]=b,Tt(this,!1)}else d.wd=b,w(this,a,b,c,"ATC.INDX"),d.Ke=!0,b&32&&!e&&Gs(this,!0)&&zs(this,!0),a=(d.Wa[12]<<8)+d.Wa[13]|0,d.vd!=a&&(d.vd=a,Tt(this)),d.Ye=0}; +l.Om=function(a,b){a=0;if(this.La==bq)a=3-((this.A.af&12)>>2),a=(this.xb&1<>this.A.xc&63;b&&!t(this)||w(this,969,null,b,"DAC.DATA["+r(this.A.dd)+"]["+r(this.A.xc)+"]",a);this.A.xc+=6;12Missing <canvas> support. Please try a newer web browser.";break}e.setAttribute("class","pcjs-canvas");e.setAttribute("width",d.screenWidth);e.setAttribute("height",d.screenHeight);e.style.backgroundColor=d.screenColor;e.style.height="auto";0<=Na().indexOf("MSIE")&&(c.onresize=function(a,b,c,d){return function(){b.style.height= (a.clientWidth*d/c|0)+"px"}}(c,e,d.screenWidth,d.screenHeight),c.onresize());var f=+(d.aspect||Va("aspect"));f&&.3<=f&&3.33>=f&&($a("onresize",function(a,b,c){return function(){b.style.height=(a.clientWidth/c|0)+"px"}}(c,e,f)),window.onresize());c.appendChild(e);f=document.createElement("textarea");Ua("iOS")&&(f.setAttribute("autocapitalize","off"),f.setAttribute("autocorrect","off"),f.style.fontSize="16px");c.appendChild(f);var g=e.getContext("2d"),d=new Q(d,e,g,f,c);zb(d,c)}}); function eu(a){nb.call(this,"ParallelPort",a,4194304);this.G=a.adapter;switch(this.G){case 1:this.D=956;this.C=7;break;case 2:this.D=888;this.C=7;break;case 3:this.D=632;this.C=5;break;default:hb("Unrecognized parallel adapter #"+this.G);return}this.A=this.B=null;a=a.binding;"console"==a?this.B="":yb(this,a,fu)}ba(eu,nb);l=eu.prototype;l.Cb=function(a,b,c){switch(b){case fu:return this.na[b]=this.A=c,!0}return!1}; -l.uc=function(a,b,c,d){this.ka=b;this.H=c;this.ba=d;this.W=Xb(a,"ChipSet");Oc(b,this,gu,this.D);Sc(b,this,hu,this.D);Jb(this)};l.Xb=function(a,b){if(!b)if(!a||!this.restore)this.reset();else if(!this.restore(a))return!1;return!0};l.Wb=function(a){return a?this.save():!0};l.reset=function(){iu(this)};l.save=function(){var a=new Xf(this),b=0,c=[];c[b++]=this.F;c[b++]=this.Mb;c[b]=this.mf;a.set(0,c);return a.data()};l.restore=function(a){return iu(this,a[0])}; -function iu(a,b){var c=0;b||(b=[0,0,0]);a.F=b[c++];a.Mb=b[c++];a.mf=b[c];return!0}l.pm=function(a,b){var c=this.F;v(this,a,null,b,"DATA",c);return c};l.Nm=function(a,b){var c=this.Mb;v(this,a,null,b,"STAT",c);return c};l.lm=function(a,b){var c=this.mf;v(this,a,null,b,"CTRL",c);return c}; -l.Rn=function(a,b,c){v(this,a,b,c,"DATA");this.F=b;this.Mb|=ju;a=!1;Mb(this,"transmitByte("+r(b)+")");this.A&&(8==b?this.A.value=this.A.value.slice(0,-1):(this.A.value+=String.fromCharCode(b),this.A.scrollTop=this.A.scrollHeight),a=!0);if(null!=this.B){if(10==b||1024<=this.B.length)this.P(this.B),this.B="";10!=b&&(this.B+=String.fromCharCode(b));a=!0}a&&(this.Mb&=~ju);ku(this)};l.Mn=function(a,b,c){v(this,a,b,c,"CTRL");this.mf=b;ku(this)}; -function ku(a){a.W&&a.C&&(a.mf&lu&&!(a.Mb&ju)?hh(a.W,a.C):fh(a.W,a.C))}var fu="buffer",ju=64,lu=16,gu={0:eu.prototype.pm,1:eu.prototype.Nm,2:eu.prototype.lm},hu={0:eu.prototype.Rn,2:eu.prototype.Mn};ab(function(){for(var a=Ab(document,"pcx86","parallel"),b=0;b=b)a.preventDefault&&a.preventDefault(),64");if(2==c.length){var d=Ca(c[0]);if(d!=this.be)return;c=Ca(c[1]);if(this.D=ub(c)){var e=this.D.exports;if(e){var f=e.connect;f&&f.call(this.D,this.O);if(this.aa=e.receiveData){this.O=a;this.Y=e.receiveStatus;this.status("Connected "+this.xe+"."+d+" to "+c);return}}}}this.status("Unable to establish connection: "+b)}}}; l.Xb=function(a,b){if(!b)if(this.zj(this.O),!a||!this.restore)this.reset();else if(!this.restore(a))return!1;return!0};l.Wb=function(a){return a?this.save():!0};l.reset=function(){su(this)};l.save=function(){var a=new Xf(this),b=0,c=[];c[b++]=this.ga;c[b++]=this.la;c[b++]=this.L;c[b++]=this.N;c[b++]=this.G;c[b++]=this.C;c[b++]=this.Z;c[b++]=this.B;c[b++]=this.A;c[b]=this.J;a.set(0,c);return a.data()};l.restore=function(a){return su(this,a[0])}; function su(a,b){var c=0;b||(b=[0,0,tu,0,uu,0,0,vu|wu,a.qa,[]]);a.ga=b[c++];a.la=b[c++];a.L=b[c++];a.N=b[c++];a.G=b[c++];a.C=b[c++];a.Z=b[c++];a.B=b[c++];a.A=b[c++];a.J=b[c];return!0}l.Of=function(a){if("number"==typeof a)this.J.push(a);else if("string"==typeof a)for(var b=0;b>8:this.N;v(this,a,null,b,this.C&Cu?"DLM":"IER",c);return c};l.xm=function(a,b){var c=this.G;v(this,a,null,b,"IIR",c);return c};l.ym=function(a,b){var c=this.C;v(this,a,null,b,"LCR",c);return c};l.Am=function(a,b){var c=this.Z;v(this,a,null,b,"MCR",c);return c}; -l.zm=function(a,b){var c=this.B;v(this,a,null,b,"LSR",c);return c};l.Fm=function(a,b){var c=this.A;this.A&=~(yu|zu);v(this,a,null,b,"MSR",c);return c}; -l.po=function(a,b,c){v(this,a,b,c,this.C&Cu?"DLL":"THR");if(this.C&Cu)this.L=this.L&-256|b;else{this.la=b;this.B&=~(vu|wu);a=!1;Mb(this,"transmitByte("+r(b)+")");this.aa&&this.aa.call(this.D,b)&&(a=!0);if(this.F){if(13==b)this.K=0;else if(8==b)this.F.value=this.F.value.slice(0,-1),0":String.fromCharCode(b);a=d.length;32>b&&1==a&&(a=0);9==b&&(b=this.oa||8,a=b-this.K%b,this.oa&&(d=Ba("",a)));this.ma&&!this.K&&a&&(d=String.fromCharCode(this.ma)+ -d);this.F.value+=d;this.F.scrollTop=this.F.scrollHeight;this.K+=a}a=!0}else if(null!=this.I){if(10==b||1024<=this.I.length)this.P(this.I),this.I="";10!=b&&(this.I+=String.fromCharCode(b));a=!0}a&&(this.B=this.B|vu|wu)}};l.ao=function(a,b,c){v(this,a,b,c,this.C&Cu?"DLM":"IER");this.C&Cu?this.L=this.L&255|b<<8:this.N=b};l.bo=function(a,b,c){v(this,a,b,c,"LCR");this.C=b}; -l.co=function(a,b,c){var d=b^this.Z;v(this,a,b,c,"MCR");this.Z=b;d&(Du|Eu)&&this.Y&&(a=0,this.O?(a|=b&Eu?32:0,a|=b&Du?320:0):(a|=b&Eu?16:0,a|=b&Du?1048576:0),this.Y.call(this.D,a))};function Au(a){var b=-1;a.B&Bu&&a.N&Fu?b=Gu:a.A&(yu|zu)&&a.N&Hu&&(b=Iu);0<=b?(a.G&=~(uu|Ju),a.G|=b,a.W&&a.M&&hh(a.W,a.M,100)):(a.G|=uu,a.W&&a.M&&fh(a.W,a.M))} +function xu(a){0>8:this.N;w(this,a,null,b,this.C&Cu?"DLM":"IER",c);return c};l.xm=function(a,b){var c=this.G;w(this,a,null,b,"IIR",c);return c};l.ym=function(a,b){var c=this.C;w(this,a,null,b,"LCR",c);return c};l.Am=function(a,b){var c=this.Z;w(this,a,null,b,"MCR",c);return c}; +l.zm=function(a,b){var c=this.B;w(this,a,null,b,"LSR",c);return c};l.Fm=function(a,b){var c=this.A;this.A&=~(yu|zu);w(this,a,null,b,"MSR",c);return c}; +l.po=function(a,b,c){w(this,a,b,c,this.C&Cu?"DLL":"THR");if(this.C&Cu)this.L=this.L&-256|b;else{this.la=b;this.B&=~(vu|wu);a=!1;Mb(this,"transmitByte("+r(b)+")");this.aa&&this.aa.call(this.D,b)&&(a=!0);if(this.F){if(13==b)this.K=0;else if(8==b)this.F.value=this.F.value.slice(0,-1),0":String.fromCharCode(b);a=d.length;32>b&&1==a&&(a=0);9==b&&(b=this.oa||8,a=b-this.K%b,this.oa&&(d=Ba("",a)));this.ma&&!this.K&&a&&(d=String.fromCharCode(this.ma)+ +d);this.F.value+=d;this.F.scrollTop=this.F.scrollHeight;this.K+=a}a=!0}else if(null!=this.I){if(10==b||1024<=this.I.length)this.P(this.I),this.I="";10!=b&&(this.I+=String.fromCharCode(b));a=!0}a&&(this.B=this.B|vu|wu)}};l.ao=function(a,b,c){w(this,a,b,c,this.C&Cu?"DLM":"IER");this.C&Cu?this.L=this.L&255|b<<8:this.N=b};l.bo=function(a,b,c){w(this,a,b,c,"LCR");this.C=b}; +l.co=function(a,b,c){var d=b^this.Z;w(this,a,b,c,"MCR");this.Z=b;d&(Du|Eu)&&this.Y&&(a=0,this.O?(a|=b&Eu?32:0,a|=b&Du?320:0):(a|=b&Eu?16:0,a|=b&Du?1048576:0),this.Y.call(this.D,a))};function Au(a){var b=-1;a.B&Bu&&a.N&Fu?b=Gu:a.A&(yu|zu)&&a.N&Hu&&(b=Iu);0<=b?(a.G&=~(uu|Ju),a.G|=b,a.V&&a.M&&hh(a.V,a.M,100)):(a.G|=uu,a.V&&a.M&&fh(a.V,a.M))} var pu="buffer",tu=384,Fu=1,Hu=8,uu=1,Gu=4,Iu=0,Ju=6,Cu=128,Du=1,Eu=2,Bu=1,vu=32,wu=64,yu=1,zu=2,nu=16,ou=32,qu={0:mu.prototype.Km,1:mu.prototype.wm,2:mu.prototype.xm,3:mu.prototype.ym,4:mu.prototype.Am,5:mu.prototype.zm,6:mu.prototype.Fm},ru={0:mu.prototype.po,1:mu.prototype.ao,3:mu.prototype.bo,4:mu.prototype.co};ab(function(){for(var a=Ab(document,"pcx86","serial"),b=0;ba.F||0>a.G)a.F=b.clientX,a.G=b.clientY;a.M?(c=b.movementX||b.mozMovementX||b.webkitMovementX||0,d=b.movementY||b.mozMovementY||b.webkitMovementY||0):(c=b.clientX-a.F,d=b.clientY-a.G);a.F=b.clientX;a.G=b.clientY;a.tf(c,d,a.F,a.G)}} -l.Vd=function(a,b){if(this.rc&&this.H&&this.H.ea.vb){var c="mouse button"+a+" "+(b?"dn":"up");switch(a){case Bs:if(this.K!=b){this.K=b;Qu(this,c);return}break;case Ru:if(this.L!=b){this.L=b;Qu(this,c);return}}Mb(this,c+": ignored")}};l.tf=function(a,b,c,d){this.rc&&this.H&&this.H.ea.vb&&(a||b)&&(this.I=a,this.J=b,Qu(this,null,c,d))}; +l.Vd=function(a,b){if(this.rc&&this.H&&this.H.ea.wb){var c="mouse button"+a+" "+(b?"dn":"up");switch(a){case Bs:if(this.K!=b){this.K=b;Qu(this,c);return}break;case Ru:if(this.L!=b){this.L=b;Qu(this,c);return}}Mb(this,c+": ignored")}};l.tf=function(a,b,c,d){this.rc&&this.H&&this.H.ea.wb&&(a||b)&&(this.I=a,this.J=b,Qu(this,null,c,d))}; function Qu(a,b,c,d){var e=64|(a.K?32:0)|(a.L?16:0)|(a.J&192)>>4|(a.I&192)>>6,f=a.I&63,g=a.J&63;t(a,8388608)&&Mb(a,(b?b+": ":"")+(void 0!==d?"mouse ("+c+","+d+"): ":"")+"serial packet ["+r(e)+","+r(f)+","+r(g)+"]",0,!0);a.D.Of([e,f,g]);a.I=a.J=0} l.pl=function(a){var b=1048592==(a&1048592);if(b){if(!this.rc){var c=!1;this.A&16||(this.reset(),Mb(this,"serial mouse reset"),c=!0);this.A&1048576||(Mb(this,"serial mouse ID requested"),c=!0);c&&(this.D.Of([Su,Su]),Mb(this,"serial mouse ID sent"));Lu(this);this.rc=b}}else this.rc&&(Mb(this,"serial mouse inactive"),Mu(this),this.rc=b);this.A=a};var Su=77,Bs=0,Ru=2;ab(function(){for(var a=Ab(document,"pcx86","mouse"),b=0;b>2;var e=d=0,a=new DataView(a,0,c);g.A=Array(g.qb);for(c=0;c>2;var e=d=0,a=new DataView(a,0,c);g.A=Array(g.rb);for(c=0;cb.indexOf("/api/v1/dump")&&(a=wa(b),"json"==a||"gz"==a?f=encodeURI(b):"demandrw"==this.mode||"demandro"==this.mode?(f=$u(this,b),this.og=!0):(c="path",d="&mbhd=10",!b.indexOf("http:")||!b.indexOf("ftp:")||0<="dsk ima img 360 720 12 144".split(" ").indexOf(a)?(c="disk",d="&mbhd=0"):xa(b, "/")&&(c="dir"),f=Ma()+"/api/v1/dump?"+c+"="+encodeURIComponent(b)+(this.Oe?"":d)+"&format=json"));return!!La(f,null,!0,function(a,b,c){av(g,a,b,c)})}; function av(a,b,c,d){var e=null;a.Re=!1;var f=!(!(0>d&&a.pa)||a.pa.ea.Yb);if(a.og)d?a.controller.Fa('Unable to connect to disk "'+a.I+'" (error '+d+": "+c+")",f):(a.D=!0,bv(a),e=a);else if(d)a.controller.Fa('Unable to load disk "'+a.F+'" (error '+d+": "+b+")",f);else{pb(a.controller.xe,b,c);try{if(0g&&0c.indexOf("0x")&&'["'!=c.substr(0,2)?JSON.parse(c.replace(/([a-z]+):/gm,'"$1":').replace(/\/\/[^\n]*/gm,"")):eval("("+c+")");if(h.length)if(1==h.length)hb(h[0]);else{a.qb=h.length;a.kb=h[0].length;a.$a=h[0][0].length;var k=h[0][0][0];a.Na=k&&k.length||512;for(d=c=0;d>2,p=k.pattern;void 0===p&&(p=k.pattern=0);var w=k.data;if(void 0===w){var u=k.bytes;if(void 0!==u&&u.length){for(var F= -m<<2,K=u.length;Kc.indexOf("0x")&&'["'!=c.substr(0,2)?JSON.parse(c.replace(/([a-z]+):/gm,'"$1":').replace(/\/\/[^\n]*/gm,"")):eval("("+c+")");if(h.length)if(1==h.length)hb(h[0]);else{a.rb=h.length;a.kb=h[0].length;a.$a=h[0][0].length;var k=h[0][0][0];a.Na=k&&k.length||512;for(d=c=0;d>2,p=k.pattern;void 0===p&&(p=k.pattern=0);var v=k.data;if(void 0===v){var u=k.bytes;if(void 0!==u&&u.length){for(var E= +m<<2,K=u.length;Kb;b++){if(128==ev(a,e,c+0,1)){d.Kf=ev(a,e,c+8,4);(e=dv(a,d.Kf))&&(f=!0);break}c+=16}if(!f)return}d.sf||(d.sf=ev(a,e,19,2)||ev(a,e,32,4),d.rf=ev(a,e,14,2),d.lh=d.rf+ev(a,e,22,2)*ev(a,e,16,1),d.vh=ev(a,e,17,2),d.vf=ev(a,e,13,1));d.jh=d.lh+((32*d.vh+(d.Na-1))/d.Na|0);d.kn=(d.sf-d.jh)/d.vf|0;d.vg=4084>=d.kn?12:16;d.Nl=12==d.vg?4086:65526;b=[];for(e=d.lh;e>=8;f+=2;if(k)for(;m--;)sv(d,f,1),254>=k?(p=k,w=sv(d,f+1),f+=3):(p=sv(d,f+3,1),w=sv(d,f+4),f+=6),d.nd[p]&&(d.nd[p].ee[h]=[w]),d.A[h]=[p,w],h++;else h+=m}(g=hv(e,vv,c))&&wv(e,g+c);g=hv(e,xv,c);h=hv(e,yv,c);g&&h&&wv(e,g,g+h)}}}} -function gv(a,b,c,d,e){var f,g=a.C.length,h=b.Na/32|0;b.cq=d+"\\";for(var k=0;kK)break;for(var H=u.jh+(K-2)*u.vf,I=0;I>3,1),d?e=16==b.vg?e<<8:c&7?e<<4:(e&15)<<8:c&7&&(e>>=4));return e} -function dv(a,b){var c=a.kb*a.$a,d=b/c|0;return dg)break;e|=g<=f)break;e+=String.fromCharCode(f)}return e}function Zu(a,b,c,d,e,f){a||(a={sector:d,length:e,data:[],pattern:f});a.Ol=b;a.Pl=c;a.hd=a.Lc=0;a.Oa=!1;return a} -function $u(a,b){b="action=open&volume="+b+("&mode="+a.mode);b+="&chs="+a.qb+":"+a.kb+":"+a.$a+":"+a.Na;b+="&machine="+Xu(a.controller);b+="&user="+Yu(a.controller);return Ma()+"/api/v1/disk?"+b} -function Bv(a,b,c,d,e,f,g){if(a.D){var h;h="action=read&volume="+a.I;h+="&chs="+a.qb+":"+a.kb+":"+a.$a+":"+a.Na;h=h+("&addr="+b+":"+c+":"+d+":"+e)+("&machine="+Xu(a.controller));h+="&user="+Yu(a.controller);La(Ma()+"/api/v1/disk?"+h,null,f,function(h,m,p){h=[b,c,d,e,f,g];var k=!1,u=h[0],F=h[1],K=h[2],H=h[3];if(!p){m=JSON.parse(m);for(k=0;H--;){var I=a.seek(u,F,K,!0);if(!I)break;cv(I,m,k);k+=I.length;K++}k=h[4]}(h=h[5])&&h(p,k)})}else g&&g(-1,!1)} -function Cv(a,b,c,d,e,f,g){if(a.D){var h={};a.N=!0;h.action="write";h.volume=a.I;h.chs=a.qb+":"+a.kb+":"+a.$a+":"+a.Na;h.addr=b+":"+c+":"+d+":"+e;h.machine=Xu(a.controller);h.user=Yu(a.controller);h.data=JSON.stringify(f);La(Ma()+"/api/v1/disk",h,g,function(f,h,p){var k=[b,c,d,e,g];f=k[0];h=k[1];var m=k[2],F=k[3],k=k[4];a.N=!1;if(0<=f&&f>=8;f+=2;if(k)for(;m--;)sv(d,f,1),254>=k?(p=k,v=sv(d,f+1),f+=3):(p=sv(d,f+3,1),v=sv(d,f+4),f+=6),d.nd[p]&&(d.nd[p].ee[h]=[v]),d.A[h]=[p,v],h++;else h+=m}(g=hv(e,vv,c))&&wv(e,g+c);g=hv(e,xv,c);h=hv(e,yv,c);g&&h&&wv(e,g,g+h)}}}} +function gv(a,b,c,d,e){var f,g=a.C.length,h=b.Na/32|0;b.cq=d+"\\";for(var k=0;kK)break;for(var H=u.jh+(K-2)*u.vf,I=0;I>3,1),d?e=16==b.vg?e<<8:c&7?e<<4:(e&15)<<8:c&7&&(e>>=4));return e} +function dv(a,b){var c=a.kb*a.$a,d=b/c|0;return dg)break;e|=g<=f)break;e+=String.fromCharCode(f)}return e}function Zu(a,b,c,d,e,f){a||(a={sector:d,length:e,data:[],pattern:f});a.Ol=b;a.Pl=c;a.hd=a.Lc=0;a.Oa=!1;return a} +function $u(a,b){b="action=open&volume="+b+("&mode="+a.mode);b+="&chs="+a.rb+":"+a.kb+":"+a.$a+":"+a.Na;b+="&machine="+Xu(a.controller);b+="&user="+Yu(a.controller);return Ma()+"/api/v1/disk?"+b} +function Bv(a,b,c,d,e,f,g){if(a.D){var h;h="action=read&volume="+a.I;h+="&chs="+a.rb+":"+a.kb+":"+a.$a+":"+a.Na;h=h+("&addr="+b+":"+c+":"+d+":"+e)+("&machine="+Xu(a.controller));h+="&user="+Yu(a.controller);La(Ma()+"/api/v1/disk?"+h,null,f,function(h,m,p){h=[b,c,d,e,f,g];var k=!1,u=h[0],E=h[1],K=h[2],H=h[3];if(!p){m=JSON.parse(m);for(k=0;H--;){var I=a.seek(u,E,K,!0);if(!I)break;cv(I,m,k);k+=I.length;K++}k=h[4]}(h=h[5])&&h(p,k)})}else g&&g(-1,!1)} +function Cv(a,b,c,d,e,f,g){if(a.D){var h={};a.N=!0;h.action="write";h.volume=a.I;h.chs=a.rb+":"+a.kb+":"+a.$a+":"+a.Na;h.addr=b+":"+c+":"+d+":"+e;h.machine=Xu(a.controller);h.user=Yu(a.controller);h.data=JSON.stringify(f);La(Ma()+"/api/v1/disk",h,g,function(f,h,p){var k=[b,c,d,e,g];f=k[0];h=k[1];var m=k[2],E=k[3],k=k[4];a.N=!1;if(0<=f&&fb&&(b=0);2E3>2,e=Array(d),f=0;f>2,e=a.data;a=a.pattern;for(var f=0;f>8&255;c[d++]=g>>16&255;c[d++]=g>>24&255}return c}l.read=function(a,b){var c=-1;if(a&&b>2,c=(d>((b&3)<<3)&255;return c}; l.write=function(a,b,c){if(this.Re)return!1;if(b>2;b=(b&3)<<3;for(var g=d.length;g<=f;g++)d[g]=e;a.Lc?f=a.hd+a.Lc&&(a.Lc+=f-(a.hd+a.Lc)+1):(a.hd=f,a.Lc=1);d[f]=d[f]&~(255<=this.A.length||k>=this.A[h].length||m>=this.A[h][k].length){c="sector (CHS="+h+":"+k+":"+m+") out of range ("+ b+" changes applied)";b=-1;break}if(this.Re){c="unable to modify write-protected disk";b=-1;break}e=g[f++];f=g[f++];g=e+f.length;if(h=this.A[h][k][m]){for(k=h.data.length;kb?-2!=b&&this.controller.Fa("Unable to restore disk '"+this.F+": "+c):bv(this);return b}; l.toJSON=function(){var a;a=0;for(var b;b=dv(this,a++);)Hv(b);a=JSON.stringify(this.A,function(a,b){if("file"!=a)return b});a=a.replace(/,"length":512/gm,"").replace(/,"pattern":0/gm,"");a=a.replace(/"(sector|length|data|pattern)":/gm,"$1:");a=a.replace(/,"[^"]*":([0-9]+|true|false)/gm,"");a=a.replace(/(sector|length|data|pattern):/gm,'"$1":');return a=a.replace(/([\]}]),/gm,"$1,\n")}; @@ -658,234 +659,235 @@ function Iv(a){nb.call(this,"FDC",a,524288);this.dmaRead=Iv.prototype.jl;this.dm l.Cb=function(a,b,c){var d=this;switch(b){case "listDisks":this.na[b]=c;if(this.L){b=[];for(a=0;a'+b+"");a.innerHTML=b}};return!0;case "descDisk":case "listDrives":return this.na[b]=c,c.onchange=function(){var a=oa(c.value,10);null!=a&&Jv(d,a)},!0;case "loadDisk":return this.na[b]=c,c.onclick=function(){var a=d.na.listDisks;a&&Kv(d,a.options[a.selectedIndex].text,a.value)},!0;case "saveDisk":if(!this.M){c.parentNode.removeChild(c);break}this.na[b]=c;c.onclick=function(){var a=d.na.listDrives;a&&a.options&&d.A&&((a=d.A[oa(a.value, 10)||0])?(a=a.sa)?(a=Xa(Gv(a),"octet-stream",!0,a.Jg.replace(".json",".img")),hb(a)):d.Fa("No diskette loaded in drive."):d.Fa("No diskette drive selected."))};return!0;case "mountDisk":if(this.M)return this.na[b]=c,c.addEventListener("change",function(){var a=c.children[0];a.children[1].disabled=!a.children[0].files.length}),c.onsubmit=function(a){if(a=a.currentTarget[1].files[0]){var b=a.name;Kv(d,va(b,!0),b,a)}return!1},!0;c.parentNode.removeChild(c)}return!1}; -l.uc=function(a,b,c,d){this.ka=b;this.H=c;this.ba=d;this.pa=a;this.W=Xb(a,"ChipSet");if((this.G=zd(this.pa,"autoMount")||this.G)&&"string"==typeof this.G)try{this.G=eval("("+this.G+")")}catch(e){hb("FDC auto-mount error: "+e.message+" ("+this.G+")"),this.G=null}Lv(this);Oc(b,this,Mv);Sc(b,this,Nv);Ov(this,"None","",!0);this.M&&Ov(this,"Local Disk","?");Ov(this,"Remote Disk","??");Pv(this)||Jb(this)}; +l.uc=function(a,b,c,d){this.ka=b;this.H=c;this.ba=d;this.pa=a;this.V=Xb(a,"ChipSet");if((this.G=zd(this.pa,"autoMount")||this.G)&&"string"==typeof this.G)try{this.G=eval("("+this.G+")")}catch(e){hb("FDC auto-mount error: "+e.message+" ("+this.G+")"),this.G=null}Lv(this);Oc(b,this,Mv);Sc(b,this,Nv);Ov(this,"None","",!0);this.M&&Ov(this,"Local Disk","?");Ov(this,"Remote Disk","??");Pv(this)||Jb(this)}; l.Xb=function(a,b){if(!b){if(!a){if(this.reset(),this.pa.O){this.B=[];for(a=0;ag.sa.restore(F)&&(h=!1);h&&g.sa&&void 0!==g.Sa&&(g.cb=g.sa.seek(g.Gb,g.Za,g.mb));h||(e=!1)}a.I=b[c++]||0;a.Zb=b[c]||Xv;return e} -function Rv(a){var b=0,c=[];c[b++]=a.Ua;c[b++]=0;c[b++]=a.fa;c[b++]=a.F;c[b++]=a.D;c[b++]=a.C;c[b++]=a.J;for(var d=b++,e=0,f=[],g=0;gg.sa.restore(E)&&(h=!1);h&&g.sa&&void 0!==g.Sa&&(g.eb=g.sa.seek(g.Gb,g.Za,g.nb));h||(e=!1)}a.I=b[c++]||0;a.Zb=b[c]||Xv;return e} +function Rv(a){var b=0,c=[];c[b++]=a.Ua;c[b++]=0;c[b++]=a.fa;c[b++]=a.F;c[b++]=a.D;c[b++]=a.C;c[b++]=a.J;for(var d=b++,e=0,f=[],g=0;gVv(a,e,b,c,!1,d)&&window.confirm("Click OK to reload the original disk.\n(WARNING: All disk changes will be discarded)");){var f=a,g=c,h;for(h=0;ha.qb||f[1]>a.kb)&&(this.Fa('Diskette "'+c+'" too large for drive '+String.fromCharCode(65+a.Ua)),b=null);b?(a.sa=b,a.Zk=c,a.te=d,Wv(this,c,d,b),f=b.info(),this.I|=$v,this.Fa('Mounted diskette "'+c+'" in drive '+String.fromCharCode(65+a.Ua),a.ke||e),a.ug=f[0],a.Af=f[1],a.Bf=f[2],this.pa&&this.pa.ld()):a.Ne=!1;a.ke&&(a.ke=!1,--this.K||Jb(this));Jv(this,a.Ua)}; +l.lj=function(a,b,c,d,e){var f;a.Le=!1;b&&(f=b.info(),b&&f[0]>a.rb||f[1]>a.kb)&&(this.Fa('Diskette "'+c+'" too large for drive '+String.fromCharCode(65+a.Ua)),b=null);b?(a.sa=b,a.Zk=c,a.te=d,Wv(this,c,d,b),f=b.info(),this.I|=$v,this.Fa('Mounted diskette "'+c+'" in drive '+String.fromCharCode(65+a.Ua),a.ke||e),a.ug=f[0],a.Af=f[1],a.Bf=f[2],this.pa&&this.pa.ld()):a.Ne=!1;a.ke&&(a.ke=!1,--this.K||Jb(this));Jv(this,a.Ua)}; function Ov(a,b,c,d){if((a=a.na.listDisks)&&a.options){for(var e=0;e=this.C&&(this.fa&=~(cw|dw),this.D=this.C=0);return c}; -l.Tn=function(a,b,c){t(this)&&v(this,a,b,c,"DATA["+this.C+"]");this.C=fw[a].Id){b=!1;this.D=0;a=gw(this);var d,e,f,g,h=a&ew;switch(h){case hw:gw(this);gw(this);iw(this);break;case jw:c=gw(this);this.Ua=c&3;d=this.A[this.Ua];iw(this);kw(this,(d.rb&lw)>>>24);break;case mw:case nw:c=gw(this);b=c>>2&1;this.Ua=c&3;d=this.A[this.Ua];d.Za=b;c=d.Gb=gw(this);e=gw(this);f=d.mb=gw(this);g=gw(this);d.ub=128<>2&1;this.Ua= -c&3;d=this.A[this.Ua];c=d.Gb;e=d.Za=b;f=d.mb=1;g=0;d.rb=Zv;d.sa&&(d.cb=d.sa.seek(d.Gb,d.Za,d.mb))?g=d.cb.length>>8:d.rb=ow|pw;rw(this,d,a,b,c,e,f,g);b=!0;break;case yw:c=gw(this);b=c>>2&1;this.Ua=c&3;d=this.A[this.Ua];c=d.Gb;e=d.Za=b;f=1;g=gw(this);d.ub=128<>2&1,c=gw(this),d.Gb+=c-d.Sd,0>d.Gb&&(d.Gb=0),d.Gb>=d.qb&&(d.Gb=d.qb-1),d.Sd=c,d.rb=tw,d.Gb||(d.rb|=uw),iw(this),b=!0}0>>8);kw(a,(b.rb&Bw)>>>16);var k=0;if(e!=b.Gb||f!=b.Za)k=g=1;c&Cw&&(f^=k,d||(k=0));kw(a,e+k);kw(a,f);kw(a,g);kw(a,h)}function gw(a){var b=a.F[a.D];a.D++;return b}function iw(a){a.D=a.C=0}function kw(a,b){a.F[a.C++]=b}l.jl=function(a,b,c){void 0===b||0>b?this.se(a,c):c(-1,!1)};l.kl=function(a,b){return void 0!==b&&0<=b?Dw(a,b):-1}; -l.Cl=function(a,b){if(void 0!==b&&0<=b)a:if(a.rb)a=-1;else{a.$c[a.Ge++]=b;if(a.Ge==a.$c.length){a.Gb=a.$c[0];a.Za=a.$c[1];a.mb=a.$c[2];a.ub=128<Dw(a,a.Wi)){a=-1;break a}a.jg++}a.jg>=a.Td&&(b=-1);a=b}else a=-1;return a};l.se=function(a,b){var c=-1,d=null,e=0;if(!a.rb&&a.sa){do{if(a.cb&&(e=a.Sa,0<=(c=a.sa.read(a.cb,a.Sa++)))){d=a.cb;break}a.cb=a.sa.seek(a.Gb,a.Za,a.mb);if(!a.cb){a.rb=Ew|pw;break}a.Sa=0;Fw(a)}while(1)}b(c,!1,d,e)}; -function Dw(a,b){if(a.rb||!a.sa)return-1;do{if(a.cb&&a.sa.write(a.cb,a.Sa++,b))break;a.cb=a.sa.seek(a.Gb,a.Za,a.mb);if(!a.cb){a.rb=Gw|pw;b=-1;break}a.Sa=0;Fw(a)}while(1);return b}function Fw(a){a.mb++;a.mb>=a.Bf+1&&(a.mb=1,a.Za++,a.Za>=a.Af&&(a.Za=0,a.Gb++))}var Uv="Floppy Drive",aw=4,bw=8,dw=16,cw=64,Sv=128,hw=3,jw=4,mw=5,nw=6,sw=7,vw=8,xw=10,yw=13,zw=15,ew=31,Cw=128,Zv=0,ow=8,tw=32,pw=64,Tv=192,ww=255,qw=512,Ew=1024,Gw=8192,Aw=65280,Bw=16711680,uw=268435456,lw=-16777216,$v=128,Xv=0;aa={}; +function Wv(a,b,c,d){var e;for(e=0;e=this.C&&(this.fa&=~(cw|dw),this.D=this.C=0);return c}; +l.Tn=function(a,b,c){t(this)&&w(this,a,b,c,"DATA["+this.C+"]");this.C=fw[a].Id){b=!1;this.D=0;a=gw(this);var d,e,f,g,h=a&ew;switch(h){case hw:gw(this);gw(this);iw(this);break;case jw:c=gw(this);this.Ua=c&3;d=this.A[this.Ua];iw(this);kw(this,(d.sb&lw)>>>24);break;case mw:case nw:c=gw(this);b=c>>2&1;this.Ua=c&3;d=this.A[this.Ua];d.Za=b;c=d.Gb=gw(this);e=gw(this);f=d.nb=gw(this);g=gw(this);d.vb=128<>2&1;this.Ua= +c&3;d=this.A[this.Ua];c=d.Gb;e=d.Za=b;f=d.nb=1;g=0;d.sb=Zv;d.sa&&(d.eb=d.sa.seek(d.Gb,d.Za,d.nb))?g=d.eb.length>>8:d.sb=ow|pw;rw(this,d,a,b,c,e,f,g);b=!0;break;case yw:c=gw(this);b=c>>2&1;this.Ua=c&3;d=this.A[this.Ua];c=d.Gb;e=d.Za=b;f=1;g=gw(this);d.vb=128<>2&1,c=gw(this),d.Gb+=c-d.Sd,0>d.Gb&&(d.Gb=0),d.Gb>=d.rb&&(d.Gb=d.rb-1),d.Sd=c,d.sb=tw,d.Gb||(d.sb|=uw),iw(this),b=!0}0>>8);kw(a,(b.sb&Bw)>>>16);var k=0;if(e!=b.Gb||f!=b.Za)k=g=1;c&Cw&&(f^=k,d||(k=0));kw(a,e+k);kw(a,f);kw(a,g);kw(a,h)}function gw(a){var b=a.F[a.D];a.D++;return b}function iw(a){a.D=a.C=0}function kw(a,b){a.F[a.C++]=b}l.jl=function(a,b,c){void 0===b||0>b?this.se(a,c):c(-1,!1)};l.kl=function(a,b){return void 0!==b&&0<=b?Dw(a,b):-1}; +l.Cl=function(a,b){if(void 0!==b&&0<=b)a:if(a.sb)a=-1;else{a.$c[a.Ge++]=b;if(a.Ge==a.$c.length){a.Gb=a.$c[0];a.Za=a.$c[1];a.nb=a.$c[2];a.vb=128<Dw(a,a.Wi)){a=-1;break a}a.jg++}a.jg>=a.Td&&(b=-1);a=b}else a=-1;return a};l.se=function(a,b){var c=-1,d=null,e=0;if(!a.sb&&a.sa){do{if(a.eb&&(e=a.Sa,0<=(c=a.sa.read(a.eb,a.Sa++)))){d=a.eb;break}a.eb=a.sa.seek(a.Gb,a.Za,a.nb);if(!a.eb){a.sb=Ew|pw;break}a.Sa=0;Fw(a)}while(1)}b(c,!1,d,e)}; +function Dw(a,b){if(a.sb||!a.sa)return-1;do{if(a.eb&&a.sa.write(a.eb,a.Sa++,b))break;a.eb=a.sa.seek(a.Gb,a.Za,a.nb);if(!a.eb){a.sb=Gw|pw;b=-1;break}a.Sa=0;Fw(a)}while(1);return b}function Fw(a){a.nb++;a.nb>=a.Bf+1&&(a.nb=1,a.Za++,a.Za>=a.Af&&(a.Za=0,a.Gb++))}var Uv="Floppy Drive",aw=4,bw=8,dw=16,cw=64,Sv=128,hw=3,jw=4,mw=5,nw=6,sw=7,vw=8,xw=10,yw=13,zw=15,ew=31,Cw=128,Zv=0,ow=8,tw=32,pw=64,Tv=192,ww=255,qw=512,Ew=1024,Gw=8192,Aw=65280,Bw=16711680,uw=268435456,lw=-16777216,$v=128,Xv=0;aa={}; var fw={3:{Id:3,Ud:0,name:aa.Wp},4:{Id:2,Ud:1,name:aa.Up},5:{Id:9,Ud:7,name:aa.$p},6:{Id:9,Ud:7,name:aa.Qp},7:{Id:2,Ud:0,name:aa.Sp},8:{Id:1,Ud:2,name:aa.Vp},10:{Id:2,Ud:7,name:aa.Rp},13:{Id:6,Ud:7,name:aa.Np},15:{Id:3,Ud:0,name:aa.Tp}},Mv={1009:Iv.prototype.rm,1012:Iv.prototype.tm,1013:Iv.prototype.qm,1015:Iv.prototype.sm},Nv={1010:Iv.prototype.Un,1013:Iv.prototype.Tn,1015:Iv.prototype.Sn}; ab(function(){for(var a=Ab(document,"pcx86","fdc"),b=0;bk.sa.restore(g)&&(F=!1),F&&void 0!==k.Sa&&(k.cb=k.sa.seek(k.Od,k.Za,k.mb+k.ig)));F||(e=!1);null!=a.O&&1>=d&&(a.O|=(f.type&3)<<(1-d<< +a.A.length;d++){void 0===a.A[d]&&(a.A[d]={});var f=a.A[d],g=a,h=d,k=f,m=a.Z[d],p=b[d],v=c,u=0,E=!0;p||(p=[Sw,0,!1,Array(8)]);k.Ua=h;k.errorCode=p[u++];k.al=p[u++];k.Oe=p[u++];k.De=p[u++];k.Ee=p[u++];k.Za=p[u++];k.kb=p[u++];k.Od=p[u++];k.nb=p[u++];k.Td=p[u++];k.vb=p[u++];k.ig=g.M?0:1;k.name=m.name;void 0===k.name&&(k.name=Tw);k.path=m.path;k.mode=m.mode||(k.path?"preload":"local");"demandro"!=k.mode&&"demandrw"!=k.mode||Yu(g)||(k.mode="local");k.type=m.type;if(void 0===k.type||void 0===Uw[g.G][k.type])k.type= +g.ma;m=Uw[g.G][k.type];k.$a=m[2]||17;k.Na=m[3]||512;if(v&&g.V){var m=g.V,K=k.type;if(m.A){var v=null,H=m.A[18];15k.sa.restore(g)&&(E=!1),E&&void 0!==k.Sa&&(k.eb=k.sa.seek(k.Od,k.Za,k.nb+k.ig)));E||(e=!1);null!=a.O&&1>=d&&(a.O|=(f.type&3)<<(1-d<< 1))}0<=a.Ua&&(a.B=a.A[a.Ua]);return e} -function Pw(a){var b=0,c=[];a.M?(c[b++]=a.I,c[b++]=a.va,c[b++]=a.J,c[b++]=a.ga,c[b++]=a.da,c[b++]=a.aa,c[b++]=a.Y,c[b++]=a.fa,c[b++]=a.ha,c[b++]=[a.L,a.Ua]):(c[b++]=a.O,c[b++]=a.fa,c[b++]=a.F,c[b++]=a.D,c[b++]=a.C,c[b++]=a.ta,c[b++]=a.qa,c[b++]=a.oa,c[b++]=a.N);for(var d=0,e=[],f=0;f=this.C&&(this.D=this.C=0,this.fa&=~(Yw|Zw|$w));return c};l.ro=function(a,b,c){v(this,a,b,c,"DATA["+this.C+"]");this.C=a&&(this.fa|=Yw,this.fa&=~bx,cx(this))};l.Um=function(a,b){var c=this.fa;v(this,a,null,b,"STATUS",c);this.D=a.B.Na?(a.fa=ex,a.se(a.B,function(b){0<=b?(fx(a),a.W&&a.W.ca==xl&&(a.fa=0),a.fa=a.fa|Qw|gx|hx):(a.fa=ix,a.I=jx)},!1)):a.fa=Qw|gx));return d}l.nl=function(a,b){return dx(this,a,b)|dx(this,a,b)<<8}; -function kx(a,b,c,d){if(a.B&&a.B.ub>=a.B.Na)if(0>lx(a.B,c))a.fa=ix,a.I=jx;else if(1==a.B.Sa||a.B.Sa==a.B.Na)t(a,1048832)&&v(a,b,c,d,"DATA["+a.B.Sa+"]"),1=a.B.Na&&(a.fa|=hx))}l.An=function(a,b,c){kx(this,a,b&255,c);kx(this,a,b>>8&255,c)};l.$l=function(a,b){var c=this.I;v(this,a,null,b,"ERROR",c);return c};l.Fn=function(a,b,c){v(this,a,b,c,"WPREC");this.va=b};l.bm=function(a,b){var c=this.J;v(this,a,null,b,"SECCNT",c);return c}; -l.Dn=function(a,b,c){v(this,a,b,c,"SECCNT");this.J=b};l.cm=function(a,b){var c=this.ga;v(this,a,null,b,"SECNUM",c);return c};l.En=function(a,b,c){v(this,a,b,c,"SECNUM");this.ga=b};l.Yl=function(a,b){var c=this.da;v(this,a,null,b,"CYLLO",c);return c};l.zn=function(a,b,c){v(this,a,b,c,"CYLLO");this.da=b};l.Xl=function(a,b){var c=this.aa;v(this,a,null,b,"CYLHI",c);return c};l.yn=function(a,b,c){v(this,a,b,c,"CYLHI");this.aa=b};l.Zl=function(a,b){var c=this.Y;v(this,a,null,b,"DRVHD",c);return c}; -l.Bn=function(a,b,c){v(this,a,b,c,"DRVHD");this.Y=b;this.fa=this.A[this.Y&mx?1:0]?this.fa|Qw|gx:this.fa&~Qw};l.dm=function(a,b){var c=this.fa;v(this,a,null,b,"STATUS",c);this.fa&Qw&&(this.fa&=~ex);return c};l.xn=function(a,b,c){v(this,a,b,c,"COMMAND");this.ha=b;this.W&&fh(this.W,14);nx(this)};l.Cn=function(a,b,c){v(this,a,b,c,"FDR");this.L&ox&&!(b&ox)&&(this.I=px);this.L=b}; -function nx(a){var b=!1,c=a.ha,d=a.Y&mx?1:0,e=a.Y&qx,f=a.da|(a.aa&rx)<<8,g=a.ga,h=a.J||256;a.Ua=-1;a.B=null;a.I=sx;a.fa=Qw|gx;var k=a.A[d];k?(k.Od=f,k.Za=e,k.mb=g,k.ub=h*k.Na,c=c>=tx?c:c&ux,k.cb=null,k.Sa=0,k.errorCode=0,a.Ua=d,a.B=k):c=-1;switch(c&ux){case vx:b=!0;break;case wx:a.fa=ex;a.se(k,function(b){0<=b&&a.W?(fx(a),a.fa=Qw|gx|hx):(a.fa=ix,a.I=jx)},!1);break;case xx:a.fa=hx;break;case yx:b=!0;break;case zx:b=!0;break;case tx:a.I=px;b=!0;break;case Ax:k.kb=e+1,k.$a=h,b=!0}b&&fx(a)} -function fx(a){!a.W||a.L&Bx||hh(a.W,14,120)} -function cx(a){a.D=0;var b=Cx(a),c=Cx(a),d=c&32,e=d>>5,f=c&31,g=Cx(a),h=Cx(a),k=g<<2&768|h,m=g&63,p=Cx(a),w=Cx(a),u=a.A[e];u&&(u.Od=k,u.Za=f,u.mb=m,u.ub=p*u.Na);switch(b){case Dx:Ex(a,u?u.errorCode:Fx);Gx(a,c);Gx(a,g);Gx(a,h);Gx(a,Hx|d);b=-1;break;case ax:for(c=0;0<=(b=Cx(a));)u&&cb?this.se(a,c):c(-1,!1)};l.ml=function(a,b){return void 0!==b&&0<=b?lx(a,b):-1}; -l.Dl=function(a,b){void 0!==b&&0<=b?(a.Salx(a,a.Wi)){a=-1;break a}a.jg++}a.jg>=a.Td&&(b=-1);a=b}else a=-1;return a}; -function Px(a,b,c){b.errorCode=Fx;if(b.sa&&(b.cb=null,a.W)){b.errorCode=Sw;Jn(a.W,3,a,"dmaRead",b);An(a.W,3,function(a){a||b.errorCode!=Sw||(b.errorCode=Fx);c(b.errorCode?Ix:Hx)});return}c(b.errorCode?Ix:Hx)}function Rx(a,b,c){b.errorCode=Fx;if(b.sa&&(b.cb=null,a.W)){b.errorCode=Sw;Jn(a.W,3,a,"dmaWrite",b);An(a.W,3,function(a){a||(b.errorCode==Sw&&(b.errorCode=Fx),b.errorCode==Ux&&(b.errorCode=Sw));c(b.errorCode?Ix:Hx)});return}c(b.errorCode?Ix:Hx)} -function Tx(a,b,c){b.errorCode=Fx;b.Ee&&b.Ee.length==b.ub||(b.Ee=Array(b.ub));b.Sa=0;a.W?(b.errorCode=Sw,Jn(a.W,3,a,"dmaWriteBuffer",b),An(a.W,3,function(a){a||b.errorCode!=Sw||(b.errorCode=Fx);c(b.errorCode?Ix:Hx)})):c(b.errorCode?Ix:Hx)} -l.se=function(a,b,c){var d=-1,e=null,f=0;if(a.errorCode)return b&&b(d,!1,e,f),d;var g=!1!==c?1:0;if(a.cb&&(f=a.Sa,d=a.sa.read(a.cb,a.Sa),a.Sa+=g,0<=d))return e=a.cb,b&&b(d,!1,e,f),d;if(b){if(a.sa)return a.sa.seek(a.Od,a.Za,a.mb+a.ig,!1,function(c,k){(a.cb=c)?(e=c,f=a.Sa=0,Vx(a),d=a.sa.read(a.cb,a.Sa),a.Sa+=g):a.errorCode=Ux;b(d,k,e,f)}),d;a.errorCode=Ux;b(d,!1,e,f)}return d}; -function lx(a,b){if(a.errorCode)return-1;do{if(a.cb&&a.sa.write(a.cb,a.Sa++,b))break;a.sa&&a.sa.seek(a.Od,a.Za,a.mb+a.ig,!0,function(b){a.cb=b});if(!a.cb){a.errorCode=Ux;b=-1;break}a.Sa=0;Vx(a)}while(1);return b}function Vx(a){a.mb++;var b=1-a.ig;a.mb>=a.$a+b&&(a.mb=b,a.Za++,a.Za>=a.kb&&(a.Za=0,a.Od++))}l.Vm=function(){var a=this.H.L&255;!(this.H.D>>8)&&128>8||!this.W)||(a=!(this.W.hc[0].od&64));return a?!0:!1}; +l.Fl=function(a,b,c){a.Le=!1;if(a.sa=b)this.Fa('Mounted disk "'+c+'" in drive '+String.fromCharCode(67+a.Ua),a.ke),b=b.info(),b[0]==a.rb&&b[1]==a.kb&&b[2]==a.$a&&b[3]==a.Na||this.Fa("Warning: disk geometry ("+b[0]+":"+b[1]+":"+b[2]+") does not match "+Ww[this.G]+" drive type "+a.type+" ("+a.rb+":"+a.kb+":"+a.$a+")");a.ke&&(a.ke=!1,--this.K||Jb(this))}; +l.Tm=function(a,b){var c=0;this.D=this.C&&(this.D=this.C=0,this.fa&=~(Yw|Zw|$w));return c};l.ro=function(a,b,c){w(this,a,b,c,"DATA["+this.C+"]");this.C=a&&(this.fa|=Yw,this.fa&=~bx,cx(this))};l.Um=function(a,b){var c=this.fa;w(this,a,null,b,"STATUS",c);this.D=a.B.Na?(a.fa=ex,a.se(a.B,function(b){0<=b?(fx(a),a.V&&a.V.ca==xl&&(a.fa=0),a.fa=a.fa|Qw|gx|hx):(a.fa=ix,a.I=jx)},!1)):a.fa=Qw|gx));return d}l.nl=function(a,b){return dx(this,a,b)|dx(this,a,b)<<8}; +function kx(a,b,c,d){if(a.B&&a.B.vb>=a.B.Na)if(0>lx(a.B,c))a.fa=ix,a.I=jx;else if(1==a.B.Sa||a.B.Sa==a.B.Na)t(a,1048832)&&w(a,b,c,d,"DATA["+a.B.Sa+"]"),1=a.B.Na&&(a.fa|=hx))}l.An=function(a,b,c){kx(this,a,b&255,c);kx(this,a,b>>8&255,c)};l.$l=function(a,b){var c=this.I;w(this,a,null,b,"ERROR",c);return c};l.Fn=function(a,b,c){w(this,a,b,c,"WPREC");this.va=b};l.bm=function(a,b){var c=this.J;w(this,a,null,b,"SECCNT",c);return c}; +l.Dn=function(a,b,c){w(this,a,b,c,"SECCNT");this.J=b};l.cm=function(a,b){var c=this.ga;w(this,a,null,b,"SECNUM",c);return c};l.En=function(a,b,c){w(this,a,b,c,"SECNUM");this.ga=b};l.Yl=function(a,b){var c=this.da;w(this,a,null,b,"CYLLO",c);return c};l.zn=function(a,b,c){w(this,a,b,c,"CYLLO");this.da=b};l.Xl=function(a,b){var c=this.aa;w(this,a,null,b,"CYLHI",c);return c};l.yn=function(a,b,c){w(this,a,b,c,"CYLHI");this.aa=b};l.Zl=function(a,b){var c=this.Y;w(this,a,null,b,"DRVHD",c);return c}; +l.Bn=function(a,b,c){w(this,a,b,c,"DRVHD");this.Y=b;this.fa=this.A[this.Y&mx?1:0]?this.fa|Qw|gx:this.fa&~Qw};l.dm=function(a,b){var c=this.fa;w(this,a,null,b,"STATUS",c);this.fa&Qw&&(this.fa&=~ex);return c};l.xn=function(a,b,c){w(this,a,b,c,"COMMAND");this.ha=b;this.V&&fh(this.V,14);nx(this)};l.Cn=function(a,b,c){w(this,a,b,c,"FDR");this.L&ox&&!(b&ox)&&(this.I=px);this.L=b}; +function nx(a){var b=!1,c=a.ha,d=a.Y&mx?1:0,e=a.Y&qx,f=a.da|(a.aa&rx)<<8,g=a.ga,h=a.J||256;a.Ua=-1;a.B=null;a.I=sx;a.fa=Qw|gx;var k=a.A[d];k?(k.Od=f,k.Za=e,k.nb=g,k.vb=h*k.Na,c=c>=tx?c:c&ux,k.eb=null,k.Sa=0,k.errorCode=0,a.Ua=d,a.B=k):c=-1;switch(c&ux){case vx:b=!0;break;case wx:a.fa=ex;a.se(k,function(b){0<=b&&a.V?(fx(a),a.fa=Qw|gx|hx):(a.fa=ix,a.I=jx)},!1);break;case xx:a.fa=hx;break;case yx:b=!0;break;case zx:b=!0;break;case tx:a.I=px;b=!0;break;case Ax:k.kb=e+1,k.$a=h,b=!0}b&&fx(a)} +function fx(a){!a.V||a.L&Bx||hh(a.V,14,120)} +function cx(a){a.D=0;var b=Cx(a),c=Cx(a),d=c&32,e=d>>5,f=c&31,g=Cx(a),h=Cx(a),k=g<<2&768|h,m=g&63,p=Cx(a),v=Cx(a),u=a.A[e];u&&(u.Od=k,u.Za=f,u.nb=m,u.vb=p*u.Na);switch(b){case Dx:Ex(a,u?u.errorCode:Fx);Gx(a,c);Gx(a,g);Gx(a,h);Gx(a,Hx|d);b=-1;break;case ax:for(c=0;0<=(b=Cx(a));)u&&cb?this.se(a,c):c(-1,!1)};l.ml=function(a,b){return void 0!==b&&0<=b?lx(a,b):-1}; +l.Dl=function(a,b){void 0!==b&&0<=b?(a.Salx(a,a.Wi)){a=-1;break a}a.jg++}a.jg>=a.Td&&(b=-1);a=b}else a=-1;return a}; +function Px(a,b,c){b.errorCode=Fx;if(b.sa&&(b.eb=null,a.V)){b.errorCode=Sw;Jn(a.V,3,a,"dmaRead",b);An(a.V,3,function(a){a||b.errorCode!=Sw||(b.errorCode=Fx);c(b.errorCode?Ix:Hx)});return}c(b.errorCode?Ix:Hx)}function Rx(a,b,c){b.errorCode=Fx;if(b.sa&&(b.eb=null,a.V)){b.errorCode=Sw;Jn(a.V,3,a,"dmaWrite",b);An(a.V,3,function(a){a||(b.errorCode==Sw&&(b.errorCode=Fx),b.errorCode==Ux&&(b.errorCode=Sw));c(b.errorCode?Ix:Hx)});return}c(b.errorCode?Ix:Hx)} +function Tx(a,b,c){b.errorCode=Fx;b.Ee&&b.Ee.length==b.vb||(b.Ee=Array(b.vb));b.Sa=0;a.V?(b.errorCode=Sw,Jn(a.V,3,a,"dmaWriteBuffer",b),An(a.V,3,function(a){a||b.errorCode!=Sw||(b.errorCode=Fx);c(b.errorCode?Ix:Hx)})):c(b.errorCode?Ix:Hx)} +l.se=function(a,b,c){var d=-1,e=null,f=0;if(a.errorCode)return b&&b(d,!1,e,f),d;var g=!1!==c?1:0;if(a.eb&&(f=a.Sa,d=a.sa.read(a.eb,a.Sa),a.Sa+=g,0<=d))return e=a.eb,b&&b(d,!1,e,f),d;if(b){if(a.sa)return a.sa.seek(a.Od,a.Za,a.nb+a.ig,!1,function(c,k){(a.eb=c)?(e=c,f=a.Sa=0,Vx(a),d=a.sa.read(a.eb,a.Sa),a.Sa+=g):a.errorCode=Ux;b(d,k,e,f)}),d;a.errorCode=Ux;b(d,!1,e,f)}return d}; +function lx(a,b){if(a.errorCode)return-1;do{if(a.eb&&a.sa.write(a.eb,a.Sa++,b))break;a.sa&&a.sa.seek(a.Od,a.Za,a.nb+a.ig,!0,function(b){a.eb=b});if(!a.eb){a.errorCode=Ux;b=-1;break}a.Sa=0;Vx(a)}while(1);return b}function Vx(a){a.nb++;var b=1-a.ig;a.nb>=a.$a+b&&(a.nb=b,a.Za++,a.Za>=a.kb&&(a.Za=0,a.Od++))}l.Vm=function(){var a=this.H.L&255;!(this.H.D>>8)&&128>8||!this.V)||(a=!(this.V.hc[0].od&64));return a?!0:!1}; var Tw="Hard Drive",Ww=["XTC","ATC","COMPAQ"],Uw=[{0:[306,2],1:[375,8],2:[306,6],3:[306,4]},{1:[306,4],2:[615,4],3:[615,6],4:[940,8],5:[940,6],6:[615,4],7:[462,8],8:[733,5],9:[900,15],10:[820,3],11:[855,5],12:[855,7],13:[306,8],14:[733,7],16:[612,4],17:[977,5],18:[977,7],19:[1024,7],20:[733,5],21:[733,7],22:[733,5],23:[306,4]},{1:[306,4],2:[615,4],3:[615,6],4:[1023,8],5:[940,6],6:[697,5],7:[462,8],8:[925,5],9:[900,15],10:[980,5],11:[925,7],12:[925,9],13:[612,8],14:[980,4],16:[612,4],17:[980,5],18:[966, 6],19:[1023,8],20:[733,5],21:[733,7],22:[524,4,40],23:[924,8],24:[966,14],25:[966,16],26:[1023,14],27:[832,6,33],28:[1222,15,34],29:[1240,7,34],30:[615,4,25],31:[615,8,25],32:[905,9,25],33:[832,8,33],34:[966,7,34],35:[966,8,34],36:[966,9,34],37:[966,5,34],38:[612,16,63],39:[1023,11,33],40:[1023,15,34],41:[1630,15,52],42:[1023,16,63],43:[805,4,26],44:[805,2,26],45:[748,8,33],46:[748,6,33],47:[966,5,25]}],Mw=496,px=1,sx=0,jx=16,rx=3,qx=15,mx=16,ix=1,hx=8,gx=16,Qw=64,ex=128,vx=16,wx=32,xx=48,yx=64,zx= 112,tx=144,Ax=145,ux=240,Bx=2,ox=4,Hx=0,Ix=2,Lx=0,Mx=1,Dx=3,Nx=5,Ox=8,Qx=10,ax=12,Sx=15,Jx=224,Kx=228,Sw=0,Fx=4,Ux=20,Rw=0,bx=1,Yw=2,Zw=4,$w=8,Xw=32,Jw={800:Hw.prototype.Tm,801:Hw.prototype.Um,802:Hw.prototype.Sm},Iw={496:Hw.prototype.nl,497:Hw.prototype.$l,498:Hw.prototype.bm,499:Hw.prototype.cm,500:Hw.prototype.Yl,501:Hw.prototype.Xl,502:Hw.prototype.Zl,503:Hw.prototype.dm},Lw={800:Hw.prototype.ro,801:Hw.prototype.uo,802:Hw.prototype.to,803:Hw.prototype.so,807:Hw.prototype.hi,811:Hw.prototype.hi, -815:Hw.prototype.hi},Kw={496:Hw.prototype.An,497:Hw.prototype.Fn,498:Hw.prototype.Dn,499:Hw.prototype.En,500:Hw.prototype.zn,501:Hw.prototype.yn,502:Hw.prototype.Bn,503:Hw.prototype.xn,1014:Hw.prototype.Cn};ab(function(){for(var a=Ab(document,"pcx86","hdc"),b=0;bthis.A&&this.C.length&&(this.A=0);if(0>this.A||a!=this.C[this.A])this.C.splice(0,0,a),this.A=0;this.A--}else this.aa?a="end":a=this.C[this.A+1];b=[];if(a){a=a.replace(/""/g,"'");var d=0,e=null;c=c||";";for(var f=0;f<=a.length;f++){var g=a.charAt(f);if('"'==g||"'"==g)e?g==e&&(e=null):e=g;else if(g==c&&!e||!g)b.push(Ca(a.substring(d,f))),d=f+1}}return b}; -function Xx(a){var b,c=a;b=32;if(32>=b)c=a|0;else if(b=Math.pow(2,b-1),a<-b||a>=b)c=a%b;a!=c&&(a=c);return a} -function Yx(a,b,c){for(c=void 0===c?-1:c;c--&&b.length;){var d=b.pop();if(2>a.length)return!1;var e=a.pop(),f=a.pop();switch(d){case "*":d=f*e;break;case "/":if(!e)return!1;d=f/e;break;case "%":if(!e)return!1;d=f%e;break;case "+":d=f+e;break;case "-":d=f-e;break;case "<<":d=f<>":d=f>>e;break;case ">>>":d=f>>>e;break;case "<":d=f":d=f>e?1:0;break;case ">=":d=f>=e?1:0;break;case "==":d=f==e?1:0;break;case "!=":d=f!=e?1:0;break;case "&":d= -f&e;break;case "!":case "|":d=f|e;break;case "^^":d=f^e;break;case "&&":d=f&&e?1:0;break;case "||":d=f||e?1:0;break;default:return!1}a.push(Xx(d))}return!0} -function Zx(a,b,c){var d;b&&(b=$x(a,b));if(b){for(var e=0,f=!1,g=b,h=[],k=[],m=b.split(/(\|\||&&|\||^^|&|!=|!|==|>=|>>>|>>|>|<=|<<|<|-|\+|%|\/|\*)/);ec&&(d+=" '"+String.fromCharCode(c)+"'"));a.P((null!=b?b+": ":"")+d);return e} -function ey(a,b){if(b)return cy(a,b,a.da[b]);var c=0;for(b in a.da)cy(a,b,a.da[b]),c++;return 0>2:0)}0>c?c=b.replace(/^0+([0-9A-F]+)$/i,"$1"):c=b;return c}var by={"||":0,"&&":1,"!":2,"|":2,"^^":3,"&":4,"!=":5,"==":5,">=":6,">":6,"<=":6,"<":6,">>>":7,">>":7,"<<":7,"-":8,"+":8,"%":9,"/":9,"*":9}; -function fy(a){Wx.call(this,a);this.oa=4;this.ha=5;this.wa=1048575;this.K=gy(this);this.Ma=gy(this);this.Z=gy(this);this.D=[];this.B=this.Y=this.M=[];hy(this);this.ta=0;iy(this);this.Aa={};jy(this,a.messages);this.Da=a.commands;var b=this;window?void 0===window.pcx86&&(window.pcx86=function(a){return ky(b,a)}):void 0===global.pcx86&&(global.pcx86=function(a){return ky(b,a)})}ba(fy,Wx);l=fy.prototype; -l.uc=function(a,b,c,d){this.ka=b;this.H=c;this.pa=a;this.eb=Xb(a,"FDC");this.Ta=Xb(a,"HDC");this.Tc=Xb(a,"FPU");this.G=Xb(a,"Mouse");(a=zd(a,"messages"))&&jy(this,a);this.ha=b.I>>2;this.wa=b.N;this.Ya=new Vd(this.H,7,"DBG");this.ma=ly;80186<=this.H.ca&&(this.ma=ly.slice(),this.ma[15]=my,80286<=this.H.ca&&(this.ma[15]=ny,80386<=this.H.ca&&(this.oa=8)));Al(this,64,function(a){oy(d,d.H.sc,a[0])});Al(this,4,function(a){if(a=a[0]){var b=ay(d,a);if(void 0===b)d.P("invalid selector: "+a);else if(a=py(d, -b,qy),d.P("dumpSel("+ta(a?a.U:b)+"): %"+q(a?a.Lb:null,d.ha)),a){var c,b=!1;if(a.type&4096)a.type&2048?(c="code"+(a.type&512?",readable":",execonly"),a.type&1024&&(c+=",conforming")):(c="data"+(a.type&512?",writable":",readonly"),a.type&1024&&(c+=",expdown")),a.type&256&&(c+=",accessed");else{var e=ry[a.type];e&&(c=e[0],b=e[1])}!c||a.lb&32768||(c+=",not present");d.P((b?"seg="+ta(a.ua&65535)+" off="+ta(a.Ka):"base="+q(a.ua,d.ha)+" limit="+sy(a.Ka))+" type="+r(a.type>>8)+" ("+c+") ext="+ta(a.ext&-65296)+ -" dpl="+r(a.qc))}}else d.P("no selector")});Al(this,134217728,function(a){var b;(a=a[0])&&(b=ay(d,a));if(void 0===b)d.P("invalid MCB");else for(d.P("dumpMCB("+ta(b)+")");b;){a=gy(d,0,b);var c=d.Ia(a,1),e=d.Yc(a,2),k=d.Yc(a,5);if(77!=c&&90!=c)break;d.P(ty(0,b)+": '"+String.fromCharCode(c)+"' PID="+ta(e)+" LEN="+ta(k)+' "'+uy(d,a,8)+'"');b+=1+k}});Al(this,128,function(a){oy(d,d.H.aa,a[0],d.H.aa!==d.H.sc)});Al(this,8,function(a){a:{if(a=a[0]){var b=ay(d,a);if(void 0===b){d.P("invalid task selector: "+ -a);break a}a=py(d,b,qy)}else a=d.H.la;d.P("dumpTSS("+ta(a?a.U:b)+"): %"+q(a?a.ua:null,d.ha));if(a){var b="",c=a.type&-513,e=256==c?4:8,k=256==c?vy:wy,m,p,w,u;for(u in k)m=k[u],p=a.ua+m,w=yg(d.H,p,2),2304==c&&(w|=yg(d.H,p+2,2)<<16),b&&(b+="\n"),b+=ta(m)+" "+Ba(u+":",11)+q(w,e);if(2304==c)for(u=0,m=w>>>16;mu;)p=a.ua+m,w=yg(d.H,p,2),b+="\n"+ta(m)+" ports "+ta(u)+"-"+ta(u+15)+": "+ra(w,2),u+=16,m+=2;d.P(b)}}});this.F=null;this.Ha=0;this.Ba=!1;Sf(this.H,48,this.Ym.bind(this));Sf(this.H,65, -this.Zm.bind(this));this.O=null;Sf(this.H,104,this.$m.bind(this));Jb(this)};function xy(a,b,c,d,e,f){b=uy(a,b);var g=py(a,d),g=g?g.Ka+1:0,h=(e?"_CODE":"_DATA")+q(c,2);f&&t(a,128)&&a.message(b+" "+(e?"code":"data")+"("+q(c,4)+")=#"+q(d,4)+" len "+q(g));e=yy(a,b,c);e[b+h]=0;aq(a,b,c,d,0,null,g,e)} -function zy(a,b,c,d){var e=a.Yc(b,2),f=a.Yc(b,2),g=Ay(a,b,4),h=Ay(a,b,4),k=gy(a,Ay(a,b,4),a.Yc(b,2));b=gy(a,Ay(a,b,4),a.Yc(b,2));b=uy(a,b).toUpperCase();var k=uy(a,k).toUpperCase(),m=(c?"_CODE":"_DATA")+q(e,2);d&&t(a,128)&&a.message((b==k?"":b+"!")+k+" "+(c?"code":"data")+"("+q(e,4)+")="+q(f,4)+":"+q(g)+" len "+q(h));c=yy(a,k,e);c[k+m]=g;aq(a,k,e,f,g,null,h,c)}function By(a,b,c){c=uy(a,c).toUpperCase();Cy(a,c,b)} -l.Ym=function(){var a=this.H;if(null!=this.F&&2752554==a.D){var b=a.L&65535,c=a.K&65535,d=gy(this,z(a)+12,a.Y.U);switch(Ay(this,d)){case 336:zy(this,gy(this,a.G,b),!c,!!this.F)}}return!0}; -l.Zm=function(a){var b=this.H,c=b.D&65535,d=b.G&65535,e=b.I&65535,f=b.L&65535,g=b.K&65535,h=b.J&65535,k=b.oa.U;if(null==this.F)return 79==c&&Tf(b,a,function(a){return function(){62342!=(b.D&65535)?(b.D=b.D&-65536|62342,Mb(a,"INT 0x41 handling enabled",128),a.F=!0):(Mb(a,"INT 0x41 monitoring enabled",128),a.F=!1)}}(this)),!0;switch(c){case 79:this.F&&(b.D=b.D&-65536|62342,Mb(this,"INT 0x41 handling enabled",128));break;case 80:xy(this,gy(this,h,k),d+1,e,!(g&1),!!this.F);break;case 82:Cy(this,null, -d);break;case 127:this.F&&(b.D=b.D&-65536|(this.Ba?0:1));break;case 131:this.F&&(a=gy(this,b.L,e),this.Ha++?(this.P("TRAPFAULT failed"),Dy(this,this.B,a,!0,!0),this.Ha=0,this.Jb()):(this.P("INT 0x41 TRAPFAULT: fault="+ta(d)+" error="+q(b.K,8,!0)+" addr="+Ey(a)),this.Gd(this.B,a,!0),iy(this,!0)));break;case 141:this.F&&(b.D=b.D&-65536|1);break;case 336:zy(this,gy(this,b.G,f),!g,!!this.F);break;case 338:By(this,d,gy(this,b.J,f))}this.Ba=!1;return!this.F}; +815:Hw.prototype.hi},Kw={496:Hw.prototype.An,497:Hw.prototype.Fn,498:Hw.prototype.Dn,499:Hw.prototype.En,500:Hw.prototype.zn,501:Hw.prototype.yn,502:Hw.prototype.Bn,503:Hw.prototype.xn,1014:Hw.prototype.Cn};ab(function(){for(var a=Ab(document,"pcx86","hdc"),b=0;bthis.A&&this.C.length&&(this.A=0);if(0>this.A||a!=this.C[this.A])this.C.splice(0,0,a),this.A=0;this.A--}else this.da?a="end":a=this.C[this.A+1];b=[];if(a){a=a.replace(/""/g,"'");var d=0,e=null;c=c||";";for(var f=0;f<=a.length;f++){var g=a.charAt(f);if('"'==g||"'"==g)e?g==e&&(e=null):e=g;else if(g==c&&!e||!g)b.push(Ca(a.substring(d,f))),d=f+1}}return b}; +function Xx(a){var b,c=a;b=b||32;32>=b?c=a|0:(b=Math.pow(2,b-1),a<-b?c=a%b:a>=2*b&&(c=a%(2*b)));a!=c&&(a=c);return a} +function Yx(a,b,c){for(c=void 0===c?-1:c;c--&&b.length;){var d=b.pop();if(2>a.length)return!1;var e=a.pop(),f=a.pop();switch(d){case "*":d=f*e;break;case "/":if(!e)return!1;d=Math.trunc(f/e);break;case "%":if(!e)return!1;d=f%e;break;case "+":d=f+e;break;case "-":d=f-e;break;case "<<":d=f<>":d=f>>e;break;case ">>>":d=f>>>e;break;case "<":d=f":d=f>e?1:0;break;case ">=":d=f>=e?1:0;break;case "==":d=f==e?1:0;break;case "!=":d=f!=e?1:0;break; +case "&":d=f&e;break;case "!":case "|":d=f|e;break;case "^^":d=f|e;break;case "&&":d=f&&e?1:0;break;case "||":d=f||e?1:0;break;case "><":d=f;if(e=35-(e&255))0>d&&(d+=Math.pow(2,36)),d=0<"==k?10:e;p=!1}Yx(v, +u)&&1==v.length||(m=!0);m?!1===f&&a.P("parse error ("+(h||k)+")"):g=v.pop();a.V=E;return g}function by(a,b,c){var d;a.Ha=null;b&&("{"!=a.qa[0]&&(b=b.split(a.qa[0]).join("{").split(a.qa[1]).join("}")),b=b.replace(/(^|[^A-Z0-9$%.])([0-9]+)B/,"$1$2><"),b=b.split(/(\{|}|\|\||&&|\||\^\^|><|&|!=|!|==|>=|>>>|>>|>|<=|<<|<|-|\+|%|\/|\*)/),d=Zx(a,b,0,b.length,a.V,c),void 0!==d&&!1===c&&cy(a,null,d));return d} +function dy(a,b){var c,d=a.qa[0],e=a.qa[1];c="("==d||"{"==d||"["==d?"\\":"";for(var f="["==d?"\\":"",f=new RegExp(c+d+"([^"+f+d+f+e+"]+)"+c+e);c=b.match(f);){var g=by(a,c[1]);if(void 0===g)return;b=b.replace(d+c[1]+e,null!=g?ey(a,g):"undefined")}if(a.Aa.length)for(d=a.Aa[0],e=a.Aa[1],c="("==d||"{"==d||"["==d?"\\":"",f="["==d?"\\":"",f=new RegExp(c+d+"([^"+f+d+f+e+"]+)"+c+e);c=b.match(f);)b=a.Pk(b,c[1]);for(;d=b.match(/\$([a-z]+)/i);){e=null;switch(d[1].toLowerCase()){case "ops":e=a.Y-a.ha}if(null== +e)break;b=b.replace(d[0],e.toString())}return b}function $x(a,b,c,d,e){var f;null!=b?(f=a.gh(b),0<=f?f=a.hh(f):(f=a.ga[b],null==f&&(f=oa(e?"-"+b:b,a.V),e=!1)),null!=f?e&&(f=-f):d||a.P("invalid "+(c?c:"value")+": "+b)):d||a.P("missing "+(c||"value"));return f}function cy(a,b,c){var d,e=!1;void 0!==c&&(e=!0,d=q(c,0,!0)+" "+c+". "+sa(c,0,!0)+" "+ra(c,4,!0),32<=c&&127>c&&(d+=" '"+String.fromCharCode(c)+"'"));a.P((null!=b?b+": ":"")+d);return e} +function fy(a,b){if(b)return cy(a,b,a.ga[b]);var c=0;for(b in a.ga)cy(a,b,a.ga[b]),c++;return 0>2:0)}0>c?c=b.replace(/^0+([0-9A-F]+)$/i,"$1"):c=b;return c} +var ay={"||":0,"&&":1,"!":2,"|":2,"^^":3,"&":4,"!=":5,"==":5,">=":6,">":6,"<=":6,"<":6,">>>":7,">>":7,"<<":7,"-":8,"+":8,"%":9,"/":9,"*":9,"><":10,"{":11,"}":11}; +function gy(a){Wx.call(this,a);this.ta=4;this.la=5;this.wa=1048575;this.K=hy(this);this.Ta=hy(this);this.aa=hy(this);this.D=[];this.B=this.Z=this.M=[];iy(this);this.xa=0;jy(this);this.Ba={};ky(this,a.messages);this.Ga=a.commands;var b=this;window?void 0===window.pcx86&&(window.pcx86=function(a){return ly(b,a)}):void 0===global.pcx86&&(global.pcx86=function(a){return ly(b,a)})}ba(gy,Wx);l=gy.prototype; +l.uc=function(a,b,c,d){this.ka=b;this.H=c;this.pa=a;this.hb=Xb(a,"FDC");this.Xa=Xb(a,"HDC");this.Tc=Xb(a,"FPU");this.G=Xb(a,"Mouse");(a=zd(a,"messages"))&&ky(this,a);this.la=b.I>>2;this.wa=b.N;this.ab=new Vd(this.H,7,"DBG");this.oa=my;80186<=this.H.ca&&(this.oa=my.slice(),this.oa[15]=ny,80286<=this.H.ca&&(this.oa[15]=oy,80386<=this.H.ca&&(this.ta=8)));Al(this,64,function(a){py(d,d.H.sc,a[0])});Al(this,4,function(a){if(a=a[0]){var b=$x(d,a);if(void 0===b)d.P("invalid selector: "+a);else if(a=qy(d, +b,ry),d.P("dumpSel("+ta(a?a.U:b)+"): %"+q(a?a.Lb:null,d.la)),a){var c,b=!1;if(a.type&4096)a.type&2048?(c="code"+(a.type&512?",readable":",execonly"),a.type&1024&&(c+=",conforming")):(c="data"+(a.type&512?",writable":",readonly"),a.type&1024&&(c+=",expdown")),a.type&256&&(c+=",accessed");else{var e=sy[a.type];e&&(c=e[0],b=e[1])}!c||a.mb&32768||(c+=",not present");d.P((b?"seg="+ta(a.ua&65535)+" off="+ta(a.Ka):"base="+q(a.ua,d.la)+" limit="+ty(a.Ka))+" type="+r(a.type>>8)+" ("+c+") ext="+ta(a.ext&-65296)+ +" dpl="+r(a.qc))}}else d.P("no selector")});Al(this,134217728,function(a){var b;(a=a[0])&&(b=$x(d,a));if(void 0===b)d.P("invalid MCB");else for(d.P("dumpMCB("+ta(b)+")");b;){a=hy(d,0,b);var c=d.Ia(a,1),e=d.Yc(a,2),k=d.Yc(a,5);if(77!=c&&90!=c)break;d.P(uy(0,b)+": '"+String.fromCharCode(c)+"' PID="+ta(e)+" LEN="+ta(k)+' "'+vy(d,a,8)+'"');b+=1+k}});Al(this,128,function(a){py(d,d.H.aa,a[0],d.H.aa!==d.H.sc)});Al(this,8,function(a){a:{if(a=a[0]){var b=$x(d,a);if(void 0===b){d.P("invalid task selector: "+ +a);break a}a=qy(d,b,ry)}else a=d.H.la;d.P("dumpTSS("+ta(a?a.U:b)+"): %"+q(a?a.ua:null,d.la));if(a){var b="",c=a.type&-513,e=256==c?4:8,k=256==c?wy:xy,m,p,v,u;for(u in k)m=k[u],p=a.ua+m,v=yg(d.H,p,2),2304==c&&(v|=yg(d.H,p+2,2)<<16),b&&(b+="\n"),b+=ta(m)+" "+Ba(u+":",11)+q(v,e);if(2304==c)for(u=0,m=v>>>16;mu;)p=a.ua+m,v=yg(d.H,p,2),b+="\n"+ta(m)+" ports "+ta(u)+"-"+ta(u+15)+": "+ra(v,2),u+=16,m+=2;d.P(b)}}});this.F=null;this.Ma=0;this.Ca=!1;Sf(this.H,48,this.Ym.bind(this));Sf(this.H,65, +this.Zm.bind(this));this.O=null;Sf(this.H,104,this.$m.bind(this));Jb(this)};function yy(a,b,c,d,e,f){b=vy(a,b);var g=qy(a,d),g=g?g.Ka+1:0,h=(e?"_CODE":"_DATA")+q(c,2);f&&t(a,128)&&a.message(b+" "+(e?"code":"data")+"("+q(c,4)+")=#"+q(d,4)+" len "+q(g));e=zy(a,b,c);e[b+h]=0;aq(a,b,c,d,0,null,g,e)} +function Ay(a,b,c,d){var e=a.Yc(b,2),f=a.Yc(b,2),g=By(a,b,4),h=By(a,b,4),k=hy(a,By(a,b,4),a.Yc(b,2));b=hy(a,By(a,b,4),a.Yc(b,2));b=vy(a,b).toUpperCase();var k=vy(a,k).toUpperCase(),m=(c?"_CODE":"_DATA")+q(e,2);d&&t(a,128)&&a.message((b==k?"":b+"!")+k+" "+(c?"code":"data")+"("+q(e,4)+")="+q(f,4)+":"+q(g)+" len "+q(h));c=zy(a,k,e);c[k+m]=g;aq(a,k,e,f,g,null,h,c)}function Cy(a,b,c){c=vy(a,c).toUpperCase();Dy(a,c,b)} +l.Ym=function(){var a=this.H;if(null!=this.F&&2752554==a.D){var b=a.L&65535,c=a.K&65535,d=hy(this,z(a)+12,a.Y.U);switch(By(this,d)){case 336:Ay(this,hy(this,a.G,b),!c,!!this.F)}}return!0}; +l.Zm=function(a){var b=this.H,c=b.D&65535,d=b.G&65535,e=b.I&65535,f=b.L&65535,g=b.K&65535,h=b.J&65535,k=b.oa.U;if(null==this.F)return 79==c&&Tf(b,a,function(a){return function(){62342!=(b.D&65535)?(b.D=b.D&-65536|62342,Mb(a,"INT 0x41 handling enabled",128),a.F=!0):(Mb(a,"INT 0x41 monitoring enabled",128),a.F=!1)}}(this)),!0;switch(c){case 79:this.F&&(b.D=b.D&-65536|62342,Mb(this,"INT 0x41 handling enabled",128));break;case 80:yy(this,hy(this,h,k),d+1,e,!(g&1),!!this.F);break;case 82:Dy(this,null, +d);break;case 127:this.F&&(b.D=b.D&-65536|(this.Ca?0:1));break;case 131:this.F&&(a=hy(this,b.L,e),this.Ma++?(this.P("TRAPFAULT failed"),Ey(this,this.B,a,!0,!0),this.Ma=0,this.Jb()):(this.P("INT 0x41 TRAPFAULT: fault="+ta(d)+" error="+q(b.K,8,!0)+" addr="+Fy(a)),this.Gd(this.B,a,!0),jy(this,!0)));break;case 141:this.F&&(b.D=b.D&-65536|1);break;case 336:Ay(this,hy(this,b.G,f),!g,!!this.F);break;case 338:Cy(this,d,hy(this,b.J,f))}this.Ca=!1;return!this.F}; l.$m=function(a){var b=this.H,c=b.D&255,d=b.D>>8&255,e=b.G&65535,f=b.I&65535,g=b.L&65535,h=b.J&65535,k=b.oa.U;if(null==this.O){if(67==d){if(609437257==b.ia((b.Z.U<<4)+10)||1111835735==b.ia((b.Z.U<<4)+95))return!0;Tf(b,a,function(a){return function(){62342!=(b.D&65535)?(b.D=b.D&-65536|62342,Mb(a,"INT 0x68 handling enabled",128),a.F=a.O=!0):(Mb(a,"INT 0x68 monitoring enabled",128),a.O=!1)}}(this))}return!0}switch(d){case 67:this.O&&(b.D=b.D&-65536|62342);break;case 68:this.O&&(a=Xd(b.Z,this.yl.bind(this)))&& -(b.J=a[0],oe(b,a[1]));break;case 72:Cy(this,null,e);break;case 80:32==c?xy(this,gy(this,h,k),0,f,!0,!!this.O):128>c?xy(this,gy(this,h,k),e+1,c&64?g:f,!(c&1),!!this.O):zy(this,gy(this,h,k),!(c&1),!!this.O),this.O&&(b.D=b.D&-256|1)}return!this.O};l.yl=function(){var a=this.H;5==(a.D&255)&&(a.I=a.K=0,a.D=a.D&-256|1);return!1}; -l.Cb=function(a,b,c){var d=this;switch(b){case "debugInput":return this.qa=this.na[b]=c,c.onkeydown=function(a){var b;if(13==a.keyCode)b=c.value,c.value="",ky(d,b,!0);else if(27==a.keyCode)c.value=b="";else if(38==a.keyCode?(b=null,d.A>>0)+1;a.lb=f;a.type=g;a.ext=k;a.Lb=d;Wd(a,!0,!0,!1)}}return a}l.Sb=function(a,b,c){var d=a&&a.xa;if(null==d&&(d=-1,a)){var e=py(this,a.U,a.type);e&&(b=a.Ja||0,c=c||1,d=e=-1===e.Lb||e.Oc&&(b>>>0)+c>e.Nb||!e.Oc&&(b>>>0)+c<=e.Nb?e.ua+b|0:-1,a.xa=d)}return d};l.Ia=function(a,b){var c=255,d=this.Sb(a,!1,1);-1!==d&&(c=yg(this.H,d,1,a.type==Iy)|0,b&&Jy(this,a,b));return c}; -l.jb=function(a,b){return a.Hb?Ay(this,a,b?4:0):this.Yc(a,b?2:0)};l.Yc=function(a,b){var c=65535,d=this.Sb(a,!1,2);-1!==d&&(c=yg(this.H,d,2,a.type==Iy)|0,b&&Jy(this,a,b));return c};function Ay(a,b,c){var d=-1,e=a.Sb(b,!1,4);-1!==e&&(d=yg(a.H,e,4,b.type==Iy)|0,c&&Jy(a,b,c));return d}l.fc=function(a,b,c,d){var e=this.Sb(a,!0,1);if(-1!==e){if(a.type!=Iy)this.H.fc(e,b);else{var f=this.ka;f.aa[(e&f.C)>>>f.A].bf(e&f.D,b&255,e)}c&&Jy(this,a,c);d||Cd(this.H,!0)}}; -l.il=function(a,b,c){var d=this.Sb(a,!0,2);-1!==d&&(a.type!=Iy?this.H.fb(d,b):Kc(this.ka,d,b),c&&Jy(this,a,c),Cd(this.H,!0))};function gy(a,b,c,d,e,f,g){return Ky(a,{},b,c,d,e,f,g)}function Ky(a,b,c,d,e,f,g,h){b.Ja=c||0;b.U=d;b.xa=e;b.type=f||(Gy(a)?qy:Hy);b.Hb=null!=g?g:!(!a.H||4!=a.H.Z.V);b.dc=null!=h?h:!(!a.H||4!=a.H.Z.Jc);b.Jd=!1;return b}function Ly(a){return[a.Ja,a.U,a.xa,a.Jd,a.Hb,a.dc,a.Fe,a.bh]}function My(a){return{Ja:a[0],U:a[1],xa:a[2],Jd:a[3],Hb:a[4],dc:a[5],Fe:a[6],bh:a[7]}} -function Ny(a,b,c){if(null!=b.U&&(a=py(a,b.U,b.type))){var d=b.Ja&a.wa;if(!a.Oc){if(d>>>0>=a.Nb)return!1}else if(d>>>0f?null!=h?(g=Zx(a,b,void 0),f=null):(f=Zx(a,b,void 0),null==f&&(g=null)):(h=Zx(a,b.substring(0,f),void 0),g=Zx(a,b.substring(f+1),void 0),f=null)}null!=g&&(e=gy(a,g,h,f,c),d||Ny(a,e,!0)||(a.P("invalid offset: "+Ey(e)),e=null));return e}function Ry(a,b,c){c&&(c=c.match(/(['"])(.*?)\1/))&&(b.sl=a.Cg(b.Yk=c[2]))}l.Pk=function(a,b){var c=Oy(this,b);return a.replace("["+b+"]",c?q(this.jb(c),c.Hb?8:4):"undefined")}; -function Jy(a,b,c){c=c||1;null!=b.xa&&(b.xa+=c);null!=b.U&&(b.Ja+=c,Ny(a,b)||(b.Ja=0,b.xa=null))}function ty(a,b,c){return null!=b?q(b,4)+":"+q(a,a&-65536||c?8:4):q(a)}function Ey(a){var b;switch(a.type){case Hy:case Sy:b="&";break;case qy:b="#";break;case Qy:b="%";break;case Iy:b="%%";break;default:b=a.U?"":"%"}return a.type>=Qy||null==a.U?b+q(a.xa):b+ty(a.Ja,a.U,a.dc)} -function uy(a,b,c){var d="";for(c=c||256;d.length>>a.H.hb;g=1}a.P("blockid "+(d?"linear ":"physical")+" blockaddr used size type");a.P("-------- --------- ---------- ------ ------ ----");c=-1;for(var h=0;g--;)(d=b[f])&&d.type==cd&&(d=td(a.H,e,!1,!0)),d.type==c?h++||a.P("..."):(c=d.type,h=vc[c],c==ed&&(d=d.pd,h+=" -> "+vc[d.type]),d&&a.P(q(d.id,8)+" %"+q(f<c&&(c=Ia(Uy,a.substr(b,2))));return c}; -function Vy(a,b){var c=0,d=a.hh(b);if(null!=d)switch(b){case Wy:case Xy:case Yy:case Zy:case $y:case az:case bz:case cz:c=2;break;case dz:case ez:case fz:case gz:case hz:case iz:case jz:case kz:case lz:case mz+nz:case mz+oz:case mz+pz:case mz+qz:case mz+rz:case mz+sz:c=4;break;case tz:case uz:case vz:case wz:case xz:case yz:case zz:case Az:case Bz:case Cz:case Dz:case Ez:case Fz:c=8;break;case Gz:c=a.oa}return c?q(d,c):"??"} -l.hh=function(a){var b;if(0<=a){var c=this.H;switch(a){case Wy:b=c.D&255;break;case Xy:b=c.I&255;break;case Yy:b=c.L&255;break;case Zy:b=c.G&255;break;case $y:b=c.D>>8&255;break;case az:b=c.I>>8&255;break;case bz:b=c.L>>8&255;break;case cz:b=c.G>>8&255;break;case dz:b=c.D&65535;break;case ez:b=c.I&65535;break;case fz:b=c.L&65535;break;case gz:b=c.G&65535;break;case hz:b=z(c)&65535;break;case iz:b=c.M&65535;break;case jz:b=c.K&65535;break;case kz:b=c.J&65535;break;case lz:b=A(c)&65535;break;case Gz:b= -re(c);break;case mz+nz:b=c.oa.U;break;case mz+oz:b=c.Z.U;break;case mz+pz:b=c.Y.U;break;case mz+qz:b=c.Ca.U;break;default:if(80286==this.H.ca)a==Bz&&(b=c.qa);else if(80386<=this.H.ca)switch(a){case tz:b=c.D;break;case uz:b=c.I;break;case vz:b=c.L;break;case wz:b=c.G;break;case xz:b=z(c);break;case yz:b=c.M;break;case zz:b=c.K;break;case Az:b=c.J;break;case Bz:b=c.qa;break;case Cz:b=c.Og;break;case Dz:b=c.Cd;break;case Ez:b=c.Wc;break;case mz+rz:b=c.Ga.U;break;case mz+sz:b=c.Ha.U;break;case Fz:b=A(c)}}}return b}; -function Hz(a,b){b=$x(a,b)||b;for(var c=0,d,e;0<=(c=b.indexOf("@",c));)e=a.gh(b,c+1),0<=e&&(b=b.substr(0,c)+Vy(a,e)+b.substr(c+1+Uy[e].length)),c++;for(c=0;0<=(c=b.indexOf("#",c));)e=b.substr(c+1,2),d=oa(e,16),null!=d&&32<=d&&128>d?(d=e+" '"+String.fromCharCode(d)+"'",b=b.replace("#"+e,d),c+=d.length):c++;for(c=0;0<=(c=b.indexOf("$",c));)e=b.substr(c+1,9),(d=Oy(a,e))?(d=e+' "'+uy(a,d)+'"',b=b.replace("$"+e,d),c+=d.length):c++;for(c=0;0<=(c=b.indexOf("^",c));)e=b.substr(c+1,9),(d=Oy(a,e))?(Jy(a,d), -d=e+' "'+uy(a,d,11)+'"',b=b.replace("^"+e,d),c+=d.length):c++;return b}l.message=function(a,b){b&&(a+=" at "+Ey(gy(this,A(this.H),this.H.Z.U))+" (%"+q(this.H.da)+")");this.va&&a==this.va||(this.va=a,this.ic&-2147483648&&(this.Jb(),a+=" (cpu halted)"),this.P(a),this.H&&(a=this.H,a.zc-=a.A,a.A=0,a.T.Ve=0,Cd(a)))}; -function Wk(a,b,c,d){var e,f;if(!d&&(d=t(a,1)&&0>Iz.indexOf(b),!d)){var g=Jz[b];g&&(d=t(a,g)?!0:524288==g&&t(a,g=1048576))}d&&(e=a.H.D>>8&255,f=a.H.L&255,33==b&&11==e||524288==g&&128<=f||1048576==g&&128>f)&&(d=!1);d&&((g=(g=Rb[b])&&g[e]||"")&&(g=" "+Hz(a,g)),a.message("INT "+r(b)+": AH="+r(e)+" at "+ty(c-2-a.H.Z.ua,a.H.Z.U)+g));return d} -function Nb(a,b,c,d,e,f,g,h){h|=256;if(null==e||(a.ic&h)==h)h=null,null!=e&&(h=a.H.Z.U,e-=a.H.Z.ua),a.message(b.be+"."+(null!=d?"outPort":"inPort")+"("+ta(c)+","+(f?f:"unknown")+(null!=d?","+r(d):"")+")"+(null!=g?": "+r(g):"")+(null!=e?" at "+ty(e,h):""))}l.ih=function(){this.P("Type ? for help with PCx86 Debugger commands");Kz(this);if(this.Da){var a=this.Da;this.Da=null;ky(this,a)}}; -function iy(a,b){var c;if(Jg(a)){if(!a.N||!a.N.length){a.N=Array(Lz);for(c=0;c>>f.hb].Gd(e&f.Db,a==this.M);g&&tc(f)}}d&&(a.push(b),c?(null!=b.xa&&(b.U=null),b.Jd=!0):(Sz(this,a,a.length-1,"set"),iy(this)));return d}; -function Dy(a,b,c,d,e){for(var f=!1,g=Tz(a,a.Sb(c)),h=1;h>3&7,F=(3>(g>>6&3)?0:48)+u;(217==f||219==f)&&52<=F&&(F=u<<4|g&7);(u=aA[f])&&(w=u[F]);w&&(p=bA,k=w,m=k[0])}m>=p.length&&(g=a.Ia(b,1),k=cA[m-p.length][g>>3&7],m=k[0]);p=p[m];u=k.length-1;w="";b.Hb&&(m==dA? -p="CWDE":m==eA?p="CDQ":m>=fA&&m<=gA&&(p+="D"));if(164<=f&&167>=f||170<=f&&175>=f)u=0,b.Hb&&"W"==p.slice(-1)&&(p=p.slice(0,-1)+"D");for(var f=-1,F=!0,K=1;K<=u;K++){var H,I;H="";I=k[K];if(void 0!==I){0>f&&(f=I>>hA);m==iA&&(f==jA?w="[%800]":f==kA&&(w="ES:["+(b.dc?"E":"")+"DI]"));var T=I&lA;if(T!=mA)if(T==nA)F=!1;else{var L=I&oA;if(L>=R)if(0>g&&(g=a.Ia(b,1)),L>6,za=g&7;if(3>xb){T=!p.indexOf("FI");if(!xb&&(!I.dc&&6==za||I.dc&&5==za))xb=2;else{if(I.dc)if(4!=za)za+= -8;else{var ca=L,cb=xb,Sa=I,rb=ca.Ia(Sa,1),db=rb>>6,rc=rb>>3&7,rb=rb&7,ib="";if(cb||5!=rb)ib=qA[rb+8];4!=rc&&(ib&&(ib+="+"),ib+=qA[rc+8],db&&(ib+="*"+(1<>24),2)):ca+("+"+q(L,2))):2==xb&&(ca&&(ca+="+"),I.dc?(L=Ay(L,I,4),ca+=q(L)):(L=L.Yc(I,2),ca+=q(L,4)));ca="["+ca+"]";if(1==ua){L="";H&=lA;H==S&&(H=I.Hb?rA:U);switch(H){case sA:L="FAR";break;case V:L="BYTE";break;case U:if(T){L="INT16"; -break}L="WORD";break;case rA:L="DWORD";break;case tA:if(T){L="INT32";break}case uA:L="REAL32";break;case vA:if(T){L="INT64";break}case wA:L="REAL64";break;case xA:L="REAL80";break;case yA:L="BCD80"}L&&(ca=L+" "+ca)}}else ca=zA(L,za,H,I);H=ca}else H=L==pA?zA(a,g&7,I,b):zA(a,g>>3&7,I,b);else if(L==AA)H="1";else if(L==W){H=a;T=I;L=b;I=" ";switch(T&lA){case V:T&X&&(I=q(H.Ia(L,1),2));break;case BA:I=q(H.Ia(L,1)<<24>>24,L.Hb?8:4);break;case S:if(L.Hb){I=q(Ay(H,L,4));break}case U:I=q(H.Yc(L,2),4);break; -case sA:L=gy(H,H.jb(L,!0),H.Yc(L,2),null,L.type,L.Hb,L.dc);I=Ey(L);H=CA(H,L);H[0]&&(I+=" ("+H[0]+")");break;default:I="imm("+ta(T)+")"}H=I}else L==DA?(b.dc?(H=8,I=Ay(a,b,4)):(H=4,I=a.Yc(b,2)),H="["+q(I,H)+"]"):L==EA?(H=T==V?a.Ia(b,1)<<24>>24:a.jb(b,!0),I=b.Ja+H&(b.Hb?-1:65535),H=q(I,b.Hb?8:4),I=CA(a,gy(a,I,b.U)),I[0]&&(H+=" ("+I[0]+")")):L==Y?H=T==FA?"ST":T==GA?"ST("+(g&7)+")":zA(a,(I&HA)>>8,I,b):L==IA?H=zA(a,(I&HA)>>8,JA,b):L==KA?H="DS:[SI]":L==LA&&(H="ES:[DI]");if(!H||!H.length){w="INVALID";break}0< -w.length&&(w+=",");w+=H||"???"}}}g="";k=Ey(e)+" ";if(-1!==e.xa&&-1!==b.xa){do if(g+=q(a.Ia(e,1),2),null==e.xa)break;while(e.xa!=b.xa)}k+=Ba(g,e.dc?24:16);k+=Ba(p,8);w&&(k+=" "+w);a.H.casz||b>=rz&&80386>a.H.ca)return"??";b+=mz}else if(e==OA)b+=Bz;else if(e==PA)b+=QA;else if(e==RA)b+=SA;else if(a=c&lA,a>=U&&(b=dz&&b<=kz&&4a.H.ca&&(d="\n"+d,c+=e,e="");c+="\n"+VA(a,a.H.Z,b)+" ";80386<=a.H.ca&&(e+="\n",c+=VA(a,a.H.Ga,b)+" "+VA(a,a.H.Ha,b)+"\n");c+=WA(a,"LD",a.H.Eb.U,a.H.Eb.ua,a.H.Eb.ua+a.H.Eb.Ka)+" "+WA(a,"GD",null,a.H.Kb,a.H.Pc)+" "+WA(a,"ID", -null,a.H.Pb,a.H.cd)+" ";c=c+(d+" "+e)+UA(a,Bz);80386<=a.H.ca&&(c+=UA(a,Dz)+UA(a,Ez))}else 80386<=a.H.ca&&(c+=VA(a,a.H.Ga,b)+" "+VA(a,a.H.Ha,b)+" ");return c+=UA(a,Gz)+TA(a,"V")+TA(a,"D")+TA(a,"I")+TA(a,"T")+TA(a,"S")+TA(a,"Z")+TA(a,"A")+TA(a,"P")+TA(a,"C")}l.gj=function(a,b){return a[0]>b[0]?1:a[0]>>0,p],H=Ea(F,u,a.gj);0>H&&F.splice(-(H+1),0,u)}K&&(w.a=K.replace(/''/g,'"'))}a.D.push({Rf:b,pn:c,U:d,Ja:e,xa:f,en:g,Fd:h,Pi:m})} -function Cy(a,b,c){for(var d=0;d>>0,f=a.Sb(b)>>>0,g=0;g>>0,p=h.xa;null!=p&&(p>>>=0);var w=h.en;48==k&&(k=40);if(k==b.U&&e>=m&&e=p&&fc?(a.P("out of data at address "+Ey(b)),p=!0):(a.fc(b,c,1,!0),m++)})})(a,g);Cd(a.H, +(b.J=a[0],oe(b,a[1]));break;case 72:Dy(this,null,e);break;case 80:32==c?yy(this,hy(this,h,k),0,f,!0,!!this.O):128>c?yy(this,hy(this,h,k),e+1,c&64?g:f,!(c&1),!!this.O):Ay(this,hy(this,h,k),!(c&1),!!this.O),this.O&&(b.D=b.D&-256|1)}return!this.O};l.yl=function(){var a=this.H;5==(a.D&255)&&(a.I=a.K=0,a.D=a.D&-256|1);return!1}; +l.Cb=function(a,b,c){var d=this;switch(b){case "debugInput":return this.va=this.na[b]=c,c.onkeydown=function(a){var b;if(13==a.keyCode)b=c.value,c.value="",ly(d,b,!0);else if(27==a.keyCode)c.value=b="";else if(38==a.keyCode?(b=null,d.A>>0)+1;a.mb=f;a.type=g;a.ext=k;a.Lb=d;Wd(a,!0,!0,!1)}}return a}l.Sb=function(a,b,c){var d=a&&a.ya;if(null==d&&(d=-1,a)){var e=qy(this,a.U,a.type);e&&(b=a.Ja||0,c=c||1,d=e=-1===e.Lb||e.Oc&&(b>>>0)+c>e.Nb||!e.Oc&&(b>>>0)+c<=e.Nb?e.ua+b|0:-1,a.ya=d)}return d};l.Ia=function(a,b){var c=255,d=this.Sb(a,!1,1);-1!==d&&(c=yg(this.H,d,1,a.type==Jy)|0,b&&Ky(this,a,b));return c}; +l.jb=function(a,b){return a.Hb?By(this,a,b?4:0):this.Yc(a,b?2:0)};l.Yc=function(a,b){var c=65535,d=this.Sb(a,!1,2);-1!==d&&(c=yg(this.H,d,2,a.type==Jy)|0,b&&Ky(this,a,b));return c};function By(a,b,c){var d=-1,e=a.Sb(b,!1,4);-1!==e&&(d=yg(a.H,e,4,b.type==Jy)|0,c&&Ky(a,b,c));return d}l.fc=function(a,b,c,d){var e=this.Sb(a,!0,1);if(-1!==e){if(a.type!=Jy)this.H.fc(e,b);else{var f=this.ka;f.aa[(e&f.C)>>>f.A].bf(e&f.D,b&255,e)}c&&Ky(this,a,c);d||Cd(this.H,!0)}}; +l.il=function(a,b,c){var d=this.Sb(a,!0,2);-1!==d&&(a.type!=Jy?this.H.fb(d,b):Kc(this.ka,d,b),c&&Ky(this,a,c),Cd(this.H,!0))};function hy(a,b,c,d,e,f,g){return Ly(a,{},b,c,d,e,f,g)}function Ly(a,b,c,d,e,f,g,h){b.Ja=c||0;b.U=d;b.ya=e;b.type=f||(Hy(a)?ry:Iy);b.Hb=null!=g?g:!(!a.H||4!=a.H.Z.W);b.dc=null!=h?h:!(!a.H||4!=a.H.Z.Jc);b.Jd=!1;return b}function My(a){return[a.Ja,a.U,a.ya,a.Jd,a.Hb,a.dc,a.Fe,a.bh]}function Ny(a){return{Ja:a[0],U:a[1],ya:a[2],Jd:a[3],Hb:a[4],dc:a[5],Fe:a[6],bh:a[7]}} +function Oy(a,b,c){if(null!=b.U&&(a=qy(a,b.U,b.type))){var d=b.Ja&a.wa;if(!a.Oc){if(d>>>0>=a.Nb)return!1}else if(d>>>0f?null!=h?(g=by(a,b,void 0),f=null):(f=by(a,b,void 0),null==f&&(g=null)):(h=by(a,b.substring(0,f),void 0),g=by(a,b.substring(f+1),void 0),f=null)}null!=g&&(e=hy(a,g,h,f,c),d||Oy(a,e,!0)||(a.P("invalid offset: "+Fy(e)),e=null));return e}function Sy(a,b,c){c&&(c=c.match(/(['"])(.*?)\1/))&&(b.sl=a.Cg(b.Yk=c[2]))}l.Pk=function(a,b){var c=Py(this,b);return a.replace("["+b+"]",c?q(this.jb(c),c.Hb?8:4):"undefined")}; +function Ky(a,b,c){c=c||1;null!=b.ya&&(b.ya+=c);null!=b.U&&(b.Ja+=c,Oy(a,b)||(b.Ja=0,b.ya=null))}function uy(a,b,c){return null!=b?q(b,4)+":"+q(a,a&-65536||c?8:4):q(a)}function Fy(a){var b;switch(a.type){case Iy:case Ty:b="&";break;case ry:b="#";break;case Ry:b="%";break;case Jy:b="%%";break;default:b=a.U?"":"%"}return a.type>=Ry||null==a.U?b+q(a.ya):b+uy(a.Ja,a.U,a.dc)} +function vy(a,b,c){var d="";for(c=c||256;d.length>>a.H.hb;g=1}a.P("blockid "+(d?"linear ":"physical")+" blockaddr used size type");a.P("-------- --------- ---------- ------ ------ ----");c=-1;for(var h=0;g--;)(d=b[f])&&d.type==cd&&(d=td(a.H,e,!1,!0)),d.type==c?h++||a.P("..."):(c=d.type,h=vc[c],c==ed&&(d=d.pd,h+=" -> "+vc[d.type]),d&&a.P(q(d.id,8)+" %"+q(f<c&&(c=Ia(Vy,a.substr(b,2))));return c}; +function Wy(a,b){var c=0,d=a.hh(b);if(null!=d)switch(b){case Xy:case Yy:case Zy:case $y:case az:case bz:case cz:case dz:c=2;break;case ez:case fz:case gz:case hz:case iz:case jz:case kz:case lz:case mz:case nz+oz:case nz+pz:case nz+qz:case nz+rz:case nz+sz:case nz+tz:c=4;break;case uz:case vz:case wz:case xz:case yz:case zz:case Az:case Bz:case Cz:case Dz:case Ez:case Fz:case Gz:c=8;break;case Hz:c=a.ta}return c?q(d,c):"??"} +l.hh=function(a){var b;if(0<=a){var c=this.H;switch(a){case Xy:b=c.D&255;break;case Yy:b=c.I&255;break;case Zy:b=c.L&255;break;case $y:b=c.G&255;break;case az:b=c.D>>8&255;break;case bz:b=c.I>>8&255;break;case cz:b=c.L>>8&255;break;case dz:b=c.G>>8&255;break;case ez:b=c.D&65535;break;case fz:b=c.I&65535;break;case gz:b=c.L&65535;break;case hz:b=c.G&65535;break;case iz:b=z(c)&65535;break;case jz:b=c.M&65535;break;case kz:b=c.K&65535;break;case lz:b=c.J&65535;break;case mz:b=A(c)&65535;break;case Hz:b= +re(c);break;case nz+oz:b=c.oa.U;break;case nz+pz:b=c.Z.U;break;case nz+qz:b=c.Y.U;break;case nz+rz:b=c.Ca.U;break;default:if(80286==this.H.ca)a==Cz&&(b=c.qa);else if(80386<=this.H.ca)switch(a){case uz:b=c.D;break;case vz:b=c.I;break;case wz:b=c.L;break;case xz:b=c.G;break;case yz:b=z(c);break;case zz:b=c.M;break;case Az:b=c.K;break;case Bz:b=c.J;break;case Cz:b=c.qa;break;case Dz:b=c.Og;break;case Ez:b=c.Cd;break;case Fz:b=c.Wc;break;case nz+sz:b=c.Ga.U;break;case nz+tz:b=c.Ha.U;break;case Gz:b=A(c)}}}return b}; +function Iz(a,b){b=dy(a,b)||b;for(var c=0,d,e;0<=(c=b.indexOf("@",c));)e=a.gh(b,c+1),0<=e&&(b=b.substr(0,c)+Wy(a,e)+b.substr(c+1+Vy[e].length)),c++;for(c=0;0<=(c=b.indexOf("#",c));)e=b.substr(c+1,2),d=oa(e,16),null!=d&&32<=d&&128>d?(d=e+" '"+String.fromCharCode(d)+"'",b=b.replace("#"+e,d),c+=d.length):c++;for(c=0;0<=(c=b.indexOf("$",c));)e=b.substr(c+1,9),(d=Py(a,e))?(d=e+' "'+vy(a,d)+'"',b=b.replace("$"+e,d),c+=d.length):c++;for(c=0;0<=(c=b.indexOf("^",c));)e=b.substr(c+1,9),(d=Py(a,e))?(Ky(a,d), +d=e+' "'+vy(a,d,11)+'"',b=b.replace("^"+e,d),c+=d.length):c++;return b}l.message=function(a,b){b&&(a+=" at "+Fy(hy(this,A(this.H),this.H.Z.U))+" (%"+q(this.H.da)+")");this.za&&a==this.za||(this.za=a,this.ic&-2147483648&&(this.Jb(),a+=" (cpu halted)"),this.P(a),this.H&&(a=this.H,a.zc-=a.A,a.A=0,a.T.Ve=0,Cd(a)))}; +function Wk(a,b,c,d){var e,f;if(!d&&(d=t(a,1)&&0>Jz.indexOf(b),!d)){var g=Kz[b];g&&(d=t(a,g)?!0:524288==g&&t(a,g=1048576))}d&&(e=a.H.D>>8&255,f=a.H.L&255,33==b&&11==e||524288==g&&128<=f||1048576==g&&128>f)&&(d=!1);d&&((g=(g=Rb[b])&&g[e]||"")&&(g=" "+Iz(a,g)),a.message("INT "+r(b)+": AH="+r(e)+" at "+uy(c-2-a.H.Z.ua,a.H.Z.U)+g));return d} +function Nb(a,b,c,d,e,f,g,h){h|=256;if(null==e||(a.ic&h)==h)h=null,null!=e&&(h=a.H.Z.U,e-=a.H.Z.ua),a.message(b.be+"."+(null!=d?"outPort":"inPort")+"("+ta(c)+","+(f?f:"unknown")+(null!=d?","+r(d):"")+")"+(null!=g?": "+r(g):"")+(null!=e?" at "+uy(e,h):""))}l.ih=function(){this.P("Type ? for help with PCx86 Debugger commands");Lz(this);if(this.Ga){var a=this.Ga;this.Ga=null;ly(this,a)}}; +function jy(a,b){var c;if(Jg(a)){if(!a.N||!a.N.length){a.N=Array(Mz);for(c=0;c>>f.hb].Gd(e&f.Db,a==this.M);g&&tc(f)}}d&&(a.push(b),c?(null!=b.ya&&(b.U=null),b.Jd=!0):(Tz(this,a,a.length-1,"set"),jy(this)));return d}; +function Ey(a,b,c,d,e){for(var f=!1,g=Uz(a,a.Sb(c)),h=1;h>3&7,E=(3>(g>>6&3)?0:48)+u;(217==f||219==f)&&52<=E&&(E=u<<4|g&7);(u=bA[f])&&(v=u[E]);v&&(p=cA,k=v,m=k[0])}m>=p.length&&(g=a.Ia(b,1),k=dA[m-p.length][g>>3&7],m=k[0]);p=p[m];u=k.length-1;v="";b.Hb&&(m==eA? +p="CWDE":m==fA?p="CDQ":m>=gA&&m<=hA&&(p+="D"));if(164<=f&&167>=f||170<=f&&175>=f)u=0,b.Hb&&"W"==p.slice(-1)&&(p=p.slice(0,-1)+"D");for(var f=-1,E=!0,K=1;K<=u;K++){var H,I;H="";I=k[K];if(void 0!==I){0>f&&(f=I>>iA);m==jA&&(f==kA?v="[%800]":f==lA&&(v="ES:["+(b.dc?"E":"")+"DI]"));var T=I&mA;if(T!=nA)if(T==oA)E=!1;else{var L=I&pA;if(L>=R)if(0>g&&(g=a.Ia(b,1)),L>6,za=g&7;if(3>xb){T=!p.indexOf("FI");if(!xb&&(!I.dc&&6==za||I.dc&&5==za))xb=2;else{if(I.dc)if(4!=za)za+= +8;else{var ca=L,cb=xb,Sa=I,rb=ca.Ia(Sa,1),db=rb>>6,rc=rb>>3&7,rb=rb&7,ib="";if(cb||5!=rb)ib=rA[rb+8];4!=rc&&(ib&&(ib+="+"),ib+=rA[rc+8],db&&(ib+="*"+(1<>24),2)):ca+("+"+q(L,2))):2==xb&&(ca&&(ca+="+"),I.dc?(L=By(L,I,4),ca+=q(L)):(L=L.Yc(I,2),ca+=q(L,4)));ca="["+ca+"]";if(1==ua){L="";H&=mA;H==S&&(H=I.Hb?sA:U);switch(H){case tA:L="FAR";break;case V:L="BYTE";break;case U:if(T){L="INT16"; +break}L="WORD";break;case sA:L="DWORD";break;case uA:if(T){L="INT32";break}case vA:L="REAL32";break;case wA:if(T){L="INT64";break}case xA:L="REAL64";break;case yA:L="REAL80";break;case zA:L="BCD80"}L&&(ca=L+" "+ca)}}else ca=AA(L,za,H,I);H=ca}else H=L==qA?AA(a,g&7,I,b):AA(a,g>>3&7,I,b);else if(L==BA)H="1";else if(L==W){H=a;T=I;L=b;I=" ";switch(T&mA){case V:T&X&&(I=q(H.Ia(L,1),2));break;case CA:I=q(H.Ia(L,1)<<24>>24,L.Hb?8:4);break;case S:if(L.Hb){I=q(By(H,L,4));break}case U:I=q(H.Yc(L,2),4);break; +case tA:L=hy(H,H.jb(L,!0),H.Yc(L,2),null,L.type,L.Hb,L.dc);I=Fy(L);H=DA(H,L);H[0]&&(I+=" ("+H[0]+")");break;default:I="imm("+ta(T)+")"}H=I}else L==EA?(b.dc?(H=8,I=By(a,b,4)):(H=4,I=a.Yc(b,2)),H="["+q(I,H)+"]"):L==FA?(H=T==V?a.Ia(b,1)<<24>>24:a.jb(b,!0),I=b.Ja+H&(b.Hb?-1:65535),H=q(I,b.Hb?8:4),I=DA(a,hy(a,I,b.U)),I[0]&&(H+=" ("+I[0]+")")):L==Y?H=T==GA?"ST":T==HA?"ST("+(g&7)+")":AA(a,(I&IA)>>8,I,b):L==JA?H=AA(a,(I&IA)>>8,KA,b):L==LA?H="DS:[SI]":L==MA&&(H="ES:[DI]");if(!H||!H.length){v="INVALID";break}0< +v.length&&(v+=",");v+=H||"???"}}}g="";k=Fy(e)+" ";if(-1!==e.ya&&-1!==b.ya){do if(g+=q(a.Ia(e,1),2),null==e.ya)break;while(e.ya!=b.ya)}k+=Ba(g,e.dc?24:16);k+=Ba(p,8);v&&(k+=" "+v);a.H.catz||b>=sz&&80386>a.H.ca)return"??";b+=nz}else if(e==PA)b+=Cz;else if(e==QA)b+=RA;else if(e==SA)b+=TA;else if(a=c&mA,a>=U&&(b=ez&&b<=lz&&4a.H.ca&&(d="\n"+d,c+=e,e="");c+="\n"+WA(a,a.H.Z,b)+" ";80386<=a.H.ca&&(e+="\n",c+=WA(a,a.H.Ga,b)+" "+WA(a,a.H.Ha,b)+"\n");c+=XA(a,"LD",a.H.Eb.U,a.H.Eb.ua,a.H.Eb.ua+a.H.Eb.Ka)+" "+XA(a,"GD",null,a.H.Kb,a.H.Pc)+" "+XA(a,"ID", +null,a.H.Pb,a.H.cd)+" ";c=c+(d+" "+e)+VA(a,Cz);80386<=a.H.ca&&(c+=VA(a,Ez)+VA(a,Fz))}else 80386<=a.H.ca&&(c+=WA(a,a.H.Ga,b)+" "+WA(a,a.H.Ha,b)+" ");return c+=VA(a,Hz)+UA(a,"V")+UA(a,"D")+UA(a,"I")+UA(a,"T")+UA(a,"S")+UA(a,"Z")+UA(a,"A")+UA(a,"P")+UA(a,"C")}l.gj=function(a,b){return a[0]>b[0]?1:a[0]>>0,p],H=Ea(E,u,a.gj);0>H&&E.splice(-(H+1),0,u)}K&&(v.a=K.replace(/''/g,'"'))}a.D.push({Rf:b,pn:c,U:d,Ja:e,ya:f,en:g,Fd:h,Pi:m})} +function Dy(a,b,c){for(var d=0;d>>0,f=a.Sb(b)>>>0,g=0;g>>0,p=h.ya;null!=p&&(p>>>=0);var v=h.en;48==k&&(k=40);if(k==b.U&&e>=m&&e=p&&fc?(a.P("out of data at address "+Fy(b)),p=!0):(a.fc(b,c,1,!0),m++)})})(a,g);Cd(a.H, !0);a.P(m+" bytes read at "+b)}else a.P("sector "+e+" request out of range");else a.P("drive "+d+" not loaded");else a.P("invalid drive: "+d)}else a.P("disk controller not present")}}else a.P("load commands:"),a.P("\tl [address] [drive #] [sector #] [# sectors]")} -function Oz(a,b){var c;if(b&&"?"==b[1])a.P("register commands:"),a.P("\tr\tdump registers"),a.Tc&&a.P("\trfp\tdump floating-point registers"),a.P("\trp\tdump all registers"),a.P("\trx [#]\tset flag or register x to [#]");else{var d;null==c&&(c=!0);if(b&&1f;f++){var g=c,e=null;if(f=a.oa&&(h=null);switch(h){case "AL":a.H.D= +function Pz(a,b){var c;if(b&&"?"==b[1])a.P("register commands:"),a.P("\tr\tdump registers"),a.Tc&&a.P("\trfp\tdump floating-point registers"),a.P("\trp\tdump all registers"),a.P("\trx [#]\tset flag or register x to [#]");else{var d;null==c&&(c=!0);if(b&&1f;f++){var g=c,e=null;if(f=a.ta&&(h=null);switch(h){case "AL":a.H.D= a.H.D&-256|g&255;break;case "AH":a.H.D=a.H.D&-65281|g<<8&255;break;case "AX":a.H.D=a.H.D&-65536|g&65535;break;case "BL":a.H.G=a.H.G&-256|g&255;break;case "BH":a.H.G=a.H.G&-65281|g<<8&255;break;case "BX":a.H.G=a.H.G&-65536|g&65535;break;case "CL":a.H.I=a.H.I&-256|g&255;break;case "CH":a.H.I=a.H.I&-65281|g<<8&255;break;case "CX":a.H.I=a.H.I&-65536|g&65535;break;case "DL":a.H.L=a.H.L&-256|g&255;break;case "DH":a.H.L=a.H.L&-65281|g<<8&255;break;case "DX":a.H.L=a.H.L&-65536|g&65535;break;case "SP":he(a.H, -z(a.H)&-65536|g&65535);break;case "BP":a.H.M=a.H.M&-65536|g&65535;break;case "SI":a.H.K=a.H.K&-65536|g&65535;break;case "DI":a.H.J=a.H.J&-65536|g&65535;break;case "DS":ne(a.H,g);break;case "ES":oe(a.H,g);break;case "SS":ge(a.H,g);break;case "CS":Zf(a.H,g);a.K=gy(a,A(a.H),a.H.Z.U);break;case "IP":case "EIP":C(a.H,g);a.K=gy(a,A(a.H),a.H.Z.U);break;case "PC":case "PS":se(a.H,g);break;case "C":g?kg(a.H):lg(a.H);break;case "P":g?(e=a.H,e.resultType&=-3,e.O|=4):(e=a.H,e.resultType&=-3,e.O&=-5);break;case "A":g? +z(a.H)&-65536|g&65535);break;case "BP":a.H.M=a.H.M&-65536|g&65535;break;case "SI":a.H.K=a.H.K&-65536|g&65535;break;case "DI":a.H.J=a.H.J&-65536|g&65535;break;case "DS":ne(a.H,g);break;case "ES":oe(a.H,g);break;case "SS":ge(a.H,g);break;case "CS":Zf(a.H,g);a.K=hy(a,A(a.H),a.H.Z.U);break;case "IP":case "EIP":C(a.H,g);a.K=hy(a,A(a.H),a.H.Z.U);break;case "PC":case "PS":se(a.H,g);break;case "C":g?kg(a.H):lg(a.H);break;case "P":g?(e=a.H,e.resultType&=-3,e.O|=4):(e=a.H,e.resultType&=-3,e.O&=-5);break;case "A":g? ug(a.H):qg(a.H);break;case "Z":g?vg(a.H):rg(a.H);break;case "S":g?(e=a.H,e.resultType&=-17,e.O|=128):(e=a.H,e.resultType&=-17,e.O&=-129);break;case "I":g?(e=a.H,e.O|=512):(e=a.H,e.O&=-513);break;case "D":g?(e=a.H,e.O|=1024):(e=a.H,e.O&=-1025);break;case "V":g?mg(a.H):ng(a.H);break;default:var k=!0;if(80286<=a.H.ca)switch(k=!1,h){case "MS":wg(a.H,g);break;case "TR":-1===a.H.la.load(g)&&(f=!1);break;default:if(k=!0,80386<=a.H.ca)switch(k=!1,h){case "EAX":a.H.D=g;break;case "EBX":a.H.G=g;break;case "ECX":a.H.I= -g;break;case "EDX":a.H.L=g;break;case "ESP":he(a.H,g);break;case "EBP":a.H.M=g;break;case "ESI":a.H.K=g;break;case "EDI":a.H.J=g;break;case "FS":a.H.Ga.load(g);break;case "GS":a.H.Ha.load(g);break;case "CR0":a.H.qa=g;bk.call(a.H,g);break;case "CR2":a.H.Cd=g;break;case "CR3":a.H.Wc=g;ue.call(a.H,g);break;default:k=!0}}if(k){a.P("unknown register: "+e);return}}if(!f){a.P("invalid value: "+b);return}Cd(a.H);a.P("updated registers:")}}a.P(XA(a,d));c&&(a.K=gy(a,A(a.H),a.H.Z.U),Pz(a,Ey(a.K)))}} -function eB(a,b){b=Ca(b);var c=b.match(/^(['"])(.*?)\1$/);c?a.P(Hz(a,c[2])):Zx(a,b,!0)}function fB(a,b,c){for(var d=null,e=b.Ja,f=e,g=1;6>=g&&e;g++){if(2h[0].indexOf("+"))){var m=h[0]+":";h[2]&&(m+=" "+h[2]);a.P(m)}h[3]&&(g=h[3],f=null);f=Wz(a,b,g,f);b.bh||d||d++;a.P(f);a.K=b;e-=b.xa-k;c++}}} +g;break;case "EDX":a.H.L=g;break;case "ESP":he(a.H,g);break;case "EBP":a.H.M=g;break;case "ESI":a.H.K=g;break;case "EDI":a.H.J=g;break;case "FS":a.H.Ga.load(g);break;case "GS":a.H.Ha.load(g);break;case "CR0":a.H.qa=g;bk.call(a.H,g);break;case "CR2":a.H.Cd=g;break;case "CR3":a.H.Wc=g;ue.call(a.H,g);break;default:k=!0}}if(k){a.P("unknown register: "+e);return}}if(!f){a.P("invalid value: "+b);return}Cd(a.H);a.P("updated registers:")}}a.P(YA(a,d));c&&(a.K=hy(a,A(a.H),a.H.Z.U),Qz(a,Fy(a.K)))}} +function fB(a,b){b=Ca(b);var c=b.match(/^(['"])(.*?)\1$/);c?a.P(Iz(a,c[2])):by(a,b,!1)}function gB(a,b,c){for(var d=null,e=b.Ja,f=e,g=1;6>=g&&e;g++){if(2h[0].indexOf("+"))){var m=h[0]+":";h[2]&&(m+=" "+h[2]);a.P(m)}h[3]&&(g=h[3],f=null);f=Xz(a,b,g,f);b.bh||d||d++;a.P(f);a.K=b;e-=b.ya-k;c++}}} l.Cg=function(a,b,c){if(b)if(a){0>this.A&&this.C.length&&(this.A=0);if(0>this.A||a!=this.C[this.A])this.C.splice(0,0,a),this.A=0;this.A--}else a=this.C[this.A+1];b=[];if(a){a=a.toLowerCase().replace(/""/g,"'");var d=0,e=null;c=c||";";for(var f=0;f<=a.length;f++){var g=a.charAt(f);if('"'==g||"'"==g)e?g==e&&(e=null):e=g;else if(g==c&&!e||!g)b.push(Ca(a.substring(d,f))),d=f+1}}return b}; -function Vz(a,b,c){var d=!0;try{if(!b.length||"end"==b)a.aa&&(a.P("ended assemble at "+Ey(a.Z)),a.K=a.Z,a.aa=!1),b="";else if(!c){var e=">> ";a.H.qa&1&&(e=a.H.O&131072?"-- ":"## ");a.P(e+b)}var f=b.charAt(0);if('"'==f||"'"==f)return!0;a.va=null;if(Ib(a)&&0p||"z">>20;Qa.Ti=a.H.Wc+Qa.Jk;Qa.nb=of.aa[(Qa.Ti&of.C)>>>of.A];Qa.Aj=Qa.nb.Nd(Qa.Jk);Qa.Kk=(Ng&4190208)>>>10;Qa.Ui=(Qa.Aj&-4096)+Qa.Kk;Qa.ob=of.aa[(Qa.Ui&of.C)>>>of.A];Qa.Bj=Qa.ob.Nd(Qa.Kk);Qa.ul=(Qa.Bj&-4096)+(Ng&4095)}if(nf=Qa){a.P("linear PDE addr PDE PTE addr PTE physical");a.P("--------- ---------- -------- ---------- -------- ----------");var ve="%"+q(Ng),ve=ve+(" %%"+Ty(nf.Ti,nf.Aj)),ve= -ve+(" %%"+Ty(nf.Ui,nf.Bj,!0)),ve=ve+(" %%"+q(nf.ul));a.P(ve)}else a.P("unsupported operation")}}else a.P("missing address")}else{if("d"==za){if("disk"==cb){ca[0]="l";ca[1]="json";cB(a,ca);break a}for(xb in Sb)if(ca[1]==xb){var ut=a.Aa[xb];ut?(ca.shift(),ca.shift(),ut(ca)):a.P("no dump registered for "+cb);break a}cb||(za=a.ib||"db")}else a.ib=za;if("dh"==za){var vt=cb,wt=Sa,xt="",yt=0,Mc=a.la,jd=a.N;if(jd.length){var uc=+vt||a.Xa,Og=+wt||10;isNaN(uc)?uc=Og:xt="more ";uc>jd.length&&(a.P("note: only "+ -jd.length+" available"),uc=jd.length);Mc-=uc;0>Mc&&(null==jd[jd.length-1].U?(uc=Mc+uc,Mc=0):Mc+=jd.length);var rm=[];"call"==wt&&(Og=1E5,rm=["CALL"]);for(void 0!==vt&&a.P(uc+" instructions earlier:");0=jd.length&&(Mc=0);a.Xa=uc;yt++;Og--}}yt||(a.P("no "+xt+"history available"),a.Xa= -void 0)}else if("di"==za){ca.shift();var sm=ca[0];if(sm){var Qg=ay(a,sm);if(void 0===Qg||0>Qg||255>>0,65536>4||1;$B--&&0Wi?String.fromCharCode(Wi):".";Vi--}Rg&&(Rg+="\n");Rg+=cb+" "+um+(Tg?"":" "+Et)}Rg&&a.P(Rg);a.Ma=pf}}}}}break;case "e":if("else"==g[0])break;var Xi= -1,Ft=255,Gt=a.Ia,Ht=a.fc;"ew"==g[0]&&(Xi=2,Ft=65535,Gt=a.Yc,Ht=a.il);var It=Xi<<1,Jt=g[1];if(null==Jt)a.P("edit memory commands:"),a.P("\teb [a] [...] edit bytes at address a"),a.P("\tew [a] [...] edit words at address a");else{var Yi=Oy(a,Jt);if(Yi)for(var Zi=2;ZiAm;){for(var kd=null,eC=256;Sd.Ja>>>0>>0;){Wg.Ja=a.jb(Sd,!0);if(null==Sd.xa||!eC--)break;Wg.U=Lt;if(kd=fB(a,Wg))break;Wg.U=a.jb(Sd);if(kd=fB(a,Wg,!0)){Lt=a.jb(Sd,!0);0p||"z">>20;Qa.Ti=a.H.Wc+Qa.Jk;Qa.ob=of.aa[(Qa.Ti&of.C)>>>of.A];Qa.Aj=Qa.ob.Nd(Qa.Jk);Qa.Kk=(Ng&4190208)>>>10;Qa.Ui=(Qa.Aj&-4096)+Qa.Kk;Qa.pb=of.aa[(Qa.Ui&of.C)>>>of.A];Qa.Bj=Qa.pb.Nd(Qa.Kk);Qa.ul=(Qa.Bj&-4096)+(Ng&4095)}if(nf=Qa){a.P("linear PDE addr PDE PTE addr PTE physical");a.P("--------- ---------- -------- ---------- -------- ----------");var ve="%"+q(Ng),ve=ve+(" %%"+Uy(nf.Ti,nf.Aj)),ve= +ve+(" %%"+Uy(nf.Ui,nf.Bj,!0)),ve=ve+(" %%"+q(nf.ul));a.P(ve)}else a.P("unsupported operation")}}else a.P("missing address")}else{if("d"==za){if("disk"==cb){ca[0]="l";ca[1]="json";dB(a,ca);break a}for(xb in Sb)if(ca[1]==xb){var vt=a.Ba[xb];vt?(ca.shift(),ca.shift(),vt(ca)):a.P("no dump registered for "+cb);break a}cb||(za=a.lb||"db")}else a.lb=za;if("dh"==za){var wt=cb,xt=Sa,yt="",zt=0,Lc=a.ma,jd=a.N;if(jd.length){var uc=+wt||a.Ya,Og=+xt||10;isNaN(uc)?uc=Og:yt="more ";uc>jd.length&&(a.P("note: only "+ +jd.length+" available"),uc=jd.length);Lc-=uc;0>Lc&&(null==jd[jd.length-1].U?(uc=Lc+uc,Lc=0):Lc+=jd.length);var qm=[];"call"==xt&&(Og=1E5,qm=["CALL"]);for(void 0!==wt&&a.P(uc+" instructions earlier:");0=jd.length&&(Lc=0);a.Ya=uc;zt++;Og--}}zt||(a.P("no "+yt+"history available"),a.Ya= +void 0)}else if("di"==za){ca.shift();var rm=ca[0];if(rm){var Qg=$x(a,rm);if(void 0===Qg||0>Qg||255>>0,65536>4||1;aC--&&0Wi?String.fromCharCode(Wi):".";Vi--}Rg&&(Rg+="\n");Rg+=cb+" "+tm+(Tg?"":" "+Ft)}Rg&&a.P(Rg);a.Ta=pf}}}}}break;case "e":if("else"==g[0])break;var Xi= +1,Gt=255,Ht=a.Ia,It=a.fc;"ew"==g[0]&&(Xi=2,Gt=65535,Ht=a.Yc,It=a.il);var Jt=Xi<<1,Kt=g[1];if(null==Kt)a.P("edit memory commands:"),a.P("\teb [a] [...] edit bytes at address a"),a.P("\tew [a] [...] edit words at address a");else{var Yi=Py(a,Kt);if(Yi)for(var Zi=2;Zizm;){for(var kd=null,fC=256;Sd.Ja>>>0>>0;){Wg.Ja=a.jb(Sd,!0);if(null==Sd.ya||!fC--)break;Wg.U=Mt;if(kd=gB(a,Wg))break;Wg.U=a.jb(Sd);if(kd=gB(a,Wg,!0)){Mt=a.jb(Sd,!0);0\nLicense: GPL version 3 or later ");for(b=0;bCB){if(d.load(this.L)){this.F=new Xf(this,"1.34.2",MB);this.F.load()&&(NB(this,d),a=OB,PB(this.F));this.F.set(JB,Fa());QB(this.F);var e=this.A&&!this.I;if(a==KB||sb("Click OK to restore the previous PCx86 machine state, or CANCEL to reset the machine.")){if(c=IB(d)){var f=d.get("code"),g=d.get("data");f&&("ok"==f?d.load(g):("error"==f&&"no machine state"!= -g?(this.Fa("Error: "+g),"unable to verify user"==g&&(Ta(RB,""),this.B=null)):this.P(f+": "+g),PB(d),d.load()?(c=IB(d),e=!0):c=!1))}e&&GB(this,c?d:null)}else a==OB&&d.clear()}else GB(this);delete this.L;delete this.M}e=tb(this.id);for(f=0;fa[1];a=a[2];this.ga=!0;this.ea.Yb=!0;var d=this.na.power;d&&(d.textContent="Shutdown");this.H&&(SB(this,this.H,b,c,a),this.H.lf());this.Y&&(NB(this,b),b.clear());!c&&this.F&&(this.F.clear(),delete this.F);this.C=0}; -function NB(a,b){if(sb("There may be a problem with your PCx86 machine.\n\nTo help us diagnose it, click OK to send this PCx86 machine state to http://www.pcjs.org.")){var c=a.B||"";b=b.toString();var d={app:"PCx86",ver:"1.34.2"};d.url=a.da;d.user=c;d.type="bug";d.data=b;La("http://www.pcjs.org/api/v1/report",d,!0)}} -function hB(a,b,c){var d,e="none";if(a.C)return null;a.C--;var f=new Xf(a,"1.34.2"),g=new Xf(a,"1.34.2",HB),h=Fa();g.set(JB,h);f.set(JB,h);f.set(TB,"1.34.2");f.set(UB,window?window.location.href:null);f.set(VB,Na());a.H&&a.H.Wb&&(c&&a.H.Jb(),d=a.H.Wb(b,c),"object"===typeof d&&f.set(a.H.id,d),c&&(a.H.ea.Yb=!1,!1===d&&(e=null)));for(var h=tb(a.id),k=0;k\nLicense: GPL version 3 or later ");for(b=0;bDB){if(d.load(this.L)){this.F=new Xf(this,"1.34.2",NB);this.F.load()&&(OB(this,d),a=PB,QB(this.F));this.F.set(KB,Fa());RB(this.F);var e=this.A&&!this.I;if(a==LB||sb("Click OK to restore the previous PCx86 machine state, or CANCEL to reset the machine.")){if(c=JB(d)){var f=d.get("code"),g=d.get("data");f&&("ok"==f?d.load(g):("error"==f&&"no machine state"!= +g?(this.Fa("Error: "+g),"unable to verify user"==g&&(Ta(SB,""),this.B=null)):this.P(f+": "+g),QB(d),d.load()?(c=JB(d),e=!0):c=!1))}e&&HB(this,c?d:null)}else a==PB&&d.clear()}else HB(this);delete this.L;delete this.M}e=tb(this.id);for(f=0;fa[1];a=a[2];this.ga=!0;this.ea.Yb=!0;var d=this.na.power;d&&(d.textContent="Shutdown");this.H&&(TB(this,this.H,b,c,a),this.H.lf());this.Y&&(OB(this,b),b.clear());!c&&this.F&&(this.F.clear(),delete this.F);this.C=0}; +function OB(a,b){if(sb("There may be a problem with your PCx86 machine.\n\nTo help us diagnose it, click OK to send this PCx86 machine state to http://www.pcjs.org.")){var c=a.B||"";b=b.toString();var d={app:"PCx86",ver:"1.34.2"};d.url=a.da;d.user=c;d.type="bug";d.data=b;La("http://www.pcjs.org/api/v1/report",d,!0)}} +function iB(a,b,c){var d,e="none";if(a.C)return null;a.C--;var f=new Xf(a,"1.34.2"),g=new Xf(a,"1.34.2",IB),h=Fa();g.set(KB,h);f.set(KB,h);f.set(UB,"1.34.2");f.set(VB,window?window.location.href:null);f.set(WB,Na());a.H&&a.H.Wb&&(c&&a.H.Jb(),d=a.H.Wb(b,c),"object"===typeof d&&f.set(a.H.id,d),c&&(a.H.ea.Yb=!1,!1===d&&(e=null)));for(var h=tb(a.id),k=0;k>>b.A;d=d+e-1>>>b.A;c.ah=0;for(c.Hd=0;f<=d;)e=b.aa[f],c.ah+=e.size,e.size&&(c.Rg.push(Ga(cc,f,0,0,e.type)),c.Hd++),f++;a.A=c;a.da=a.A.Hd*a.ka.B/(bc*lc);d=0;a.A.$i=0;a.A.kf||(a.A.kf=[]);e=-1;b=0;for(var g=-1,c=0;c>1),g=f.y+(f.A>>1),h=f.A,f.Nc>1,b.I+=(b.J>>1)-2,ic(b,e),b.Y&&(b.D.restore(),b.Y=!1)}}else ic(a,"This space intentionally left blank");a.context.drawImage(a.K,0,0,a.K.width,a.K.height,a.Ga,a.Ma,a.ya,a.Aa);a.oa=!1}}var MB="failsafe",HB="validate",JB="timestamp",TB="version",UB="url",VB="browser",RB="user",LB=-1,CB=0,KB=1,OB=2,XB=3; -ab(function(){for(var a=Ab(document,"pcx86-machine"),b=0;bf.indexOf("/")&&"/"==window.location.pathname.slice(-1)&&(f=window.location.pathname+f),d?"}"==d.slice(-1)?(d=d.slice(0,-1),1]*\sid=)(['"]).*?\2/,"$1$2"+c+"$2"+(d?" parms='"+d+"'":"")+(f?' url="'+f+'"':"")));e||(a=a.replace(/().*?(<\/xsl:variable>)/,"$1PCx86$2"), -a=a.replace(/().*?(<\/xsl:variable>)/,"$1pcx86$2"));f=null;if("<"==a.charAt(0))try{e||(a=a.replace(/\s*/g,"")),window.ActiveXObject||"ActiveXObject"in window?(f=new window.ActiveXObject("Microsoft.XMLDOM"),f.async=!1,f.loadXML(a)):f=(new window.DOMParser).parseFromString(a,"text/xml")}catch(p){f=null,a=p.message}else a="unrecognized XML: "+(255/g.exec(a)){var e=d[2];b("Loading "+e+"...");La(e,null,!0,function(f,g,h){if(h||!g)c(a,"unable to resolve XML reference: "+d[0]+" ("+h+")");else{if(f=d[3])if(h=g.match(new RegExp("<"+d[1]+"[^>]*>"))){for(var k=h[0],m,p=/( [a-z]+=)(['"])(.*?)\2/g;m=p.exec(f);)k=0>k.indexOf(m[1])?k.replace(">",m[0]+">"):k.replace(new RegExp(m[1]+"(['\"])(.*?)\\1"),m[0]);h[0]!=k&&(g=g.replace(h[0],k))}else{c(a,"missing <"+d[1]+"> in "+e);return}g=g.replace(/<\?xml[^>]*>[\r\n]*/, -"");a=a.replace(d[0],g);nC(a,b,c)}})}else c(a,null)} -function oC(a,b,c,d){function e(a){if(void 0===h){var b=g&&Ab(g,"machine-warning");h=b&&b[0]||g}h&&(h.innerHTML=ya(a))}function f(a){e("Error: "+a);k&&(--kC||jb(!0));k=!1}var g,h,k=!0;kC++;qb[a]={};try{if(g=document.getElementById(a)){var m;if("object"==typeof resources&&(m=resources.css)){var p=document.head||document.getElementsByTagName("head")[0],w=document.createElement("style");w.type="text/css";w.styleSheet?w.styleSheet.cssText=m:w.appendChild(document.createTextNode(m));p.appendChild(w)}c|| -(c="/versions/pcx86/1.34.2/components.xsl");m=function(d,h){h?lC(c,null,null,!1,e,function(d,k){k?(pb(a,c,d),e("Processing "+b+"..."),window.ActiveXObject||"ActiveXObject"in window?(k=h.transformNode(k))?(g.outerHTML=k,--kC||jb(!0)):f("transformNodeToObject failed"):document.implementation&&document.implementation.createDocument?(d=new XSLTProcessor,d.importStylesheet(k),(k=d.transformToFragment(h,document))?g.parentNode?(g.parentNode.replaceChild(k,g),--kC||jb(!0)):f("invalid machine element: "+ -a):f("transformToFragment failed")):f("unable to transform XML: unsupported browser")):f(d)}):f(d)};"<"!=b.charAt(0)?lC(b,a,d,!0,e,m):mC(b,null,a,d,!1,e,m)}else f("missing machine element: "+a)}catch(u){f(u.message)}return k}function pC(a,b,c,d){jb(!1);return oC(a,b,c,d)}window.embedPC=pC;window.embedPCx86=pC;window.findMachineComponent=function(a,b){return vb(b,a+".machine")}; -window.processMachineScript=function(a,b){var c=!1;a+=".machine";if("string"==typeof b&&!Cb[a]){for(var c=!0,d=Cb,e=a,f=b.length,g=[],h=[],k="",m=null,p=0;p]*path=(['"])(.*?)\1.*?<\/disk>\n?/g;d=w.exec(h[m]);){var u=d[2];u&&(h[u]||(p=p.replace(d[0],"")))}d=m=va(m)}else"xsl"==w&&(e=m=va(m));k[m]=p}a&&(k[m="css"]=a);b[2]&&(k[m="parms"]=b[2]);b[3]&&(k[m="state"]=b[3]);d&&e?(a=JSON.stringify(k),g+=".js",c=c[1]+"var resources="+a+";"+c[2]+c[3],c=c.replace(/\u00A9/g, +g),b.D.rotate(-Math.PI/2),c=g=0),h>1,b.I+=(b.J>>1)-2,ic(b,e),b.Y&&(b.D.restore(),b.Y=!1)}}else ic(a,"This space intentionally left blank");a.context.drawImage(a.K,0,0,a.K.width,a.K.height,a.Ga,a.Ma,a.xa,a.Aa);a.oa=!1}}var NB="failsafe",IB="validate",KB="timestamp",UB="version",VB="url",WB="browser",SB="user",MB=-1,DB=0,LB=1,PB=2,YB=3; +ab(function(){for(var a=Ab(document,"pcx86-machine"),b=0;bf.indexOf("/")&&"/"==window.location.pathname.slice(-1)&&(f=window.location.pathname+f),d?"}"==d.slice(-1)?(d=d.slice(0,-1),1]*\sid=)(['"]).*?\2/,"$1$2"+c+"$2"+(d?" parms='"+d+"'":"")+(f?' url="'+f+'"':"")));e||(a=a.replace(/().*?(<\/xsl:variable>)/,"$1PCx86$2"), +a=a.replace(/().*?(<\/xsl:variable>)/,"$1pcx86$2"));f=null;if("<"==a.charAt(0))try{e||(a=a.replace(/\s*/g,"")),window.ActiveXObject||"ActiveXObject"in window?(f=new window.ActiveXObject("Microsoft.XMLDOM"),f.async=!1,f.loadXML(a)):f=(new window.DOMParser).parseFromString(a,"text/xml")}catch(p){f=null,a=p.message}else a="unrecognized XML: "+(255/g.exec(a)){var e=d[2];b("Loading "+e+"...");La(e,null,!0,function(f,g,h){if(h||!g)c(a,"unable to resolve XML reference: "+d[0]+" ("+h+")");else{if(f=d[3])if(h=g.match(new RegExp("<"+d[1]+"[^>]*>"))){for(var k=h[0],m,p=/( [a-z]+=)(['"])(.*?)\2/g;m=p.exec(f);)k=0>k.indexOf(m[1])?k.replace(">",m[0]+">"):k.replace(new RegExp(m[1]+"(['\"])(.*?)\\1"),m[0]);h[0]!=k&&(g=g.replace(h[0],k))}else{c(a,"missing <"+d[1]+"> in "+e);return}g=g.replace(/<\?xml[^>]*>[\r\n]*/, +"");a=a.replace(d[0],g);oC(a,b,c)}})}else c(a,null)} +function pC(a,b,c,d){function e(a){if(void 0===h){var b=g&&Ab(g,"machine-warning");h=b&&b[0]||g}h&&(h.innerHTML=ya(a))}function f(a){e("Error: "+a);k&&(--lC||jb(!0));k=!1}var g,h,k=!0;lC++;qb[a]={};try{if(g=document.getElementById(a)){var m;if("object"==typeof resources&&(m=resources.css)){var p=document.head||document.getElementsByTagName("head")[0],v=document.createElement("style");v.type="text/css";v.styleSheet?v.styleSheet.cssText=m:v.appendChild(document.createTextNode(m));p.appendChild(v)}c|| +(c="/versions/pcx86/1.34.2/components.xsl");m=function(d,h){h?mC(c,null,null,!1,e,function(d,k){k?(pb(a,c,d),e("Processing "+b+"..."),window.ActiveXObject||"ActiveXObject"in window?(k=h.transformNode(k))?(g.outerHTML=k,--lC||jb(!0)):f("transformNodeToObject failed"):document.implementation&&document.implementation.createDocument?(d=new XSLTProcessor,d.importStylesheet(k),(k=d.transformToFragment(h,document))?g.parentNode?(g.parentNode.replaceChild(k,g),--lC||jb(!0)):f("invalid machine element: "+ +a):f("transformToFragment failed")):f("unable to transform XML: unsupported browser")):f(d)}):f(d)};"<"!=b.charAt(0)?mC(b,a,d,!0,e,m):nC(b,null,a,d,!1,e,m)}else f("missing machine element: "+a)}catch(u){f(u.message)}return k}function qC(a,b,c,d){jb(!1);return pC(a,b,c,d)}window.embedPC=qC;window.embedPCx86=qC;window.findMachineComponent=function(a,b){return vb(b,a+".machine")}; +window.processMachineScript=function(a,b){var c=!1;a+=".machine";if("string"==typeof b&&!Cb[a]){for(var c=!0,d=Cb,e=a,f=b.length,g=[],h=[],k="",m=null,p=0;p]*path=(['"])(.*?)\1.*?<\/disk>\n?/g;d=v.exec(h[m]);){var u=d[2];u&&(h[u]||(p=p.replace(d[0],"")))}d=m=va(m)}else"xsl"==v&&(e=m=va(m));k[m]=p}a&&(k[m="css"]=a);b[2]&&(k[m="parms"]=b[2]);b[3]&&(k[m="state"]=b[3]);d&&e?(a=JSON.stringify(k),g+=".js",c=c[1]+"var resources="+a+";"+c[2]+c[3],c=c.replace(/\u00A9/g, "©"),a=Xa(c,"javascript",!1,g),a=a+(', copy it to your web server as "'+g+'", and then add the following to your web page:\n\n')+('
\n')+"...\n",a=a+('