IMD 1.16: 2/09/2008 14:07:22 84-93727-02 a200 f72702 cpu test program listing file part 1    @0|)wwЀЀtQql)  " }gA ` MIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIOS4 ME581100901253700811009012537 8110090125371F72702 VOLCPU TEST PROGRAM LISTING FILE PART1   IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII M@jjggg@ o G`k_C# b# }B u[ ]e JRiCCp@<;: F8P@ G;NPCHC C GTqE'ɞ * Cϟx @0DAJL )‘ЀЀΎQBx"  i+ fEB)3 `jmBBI,v  BI,m  @EEFF)D^EF% jH@pOğv g7g4]X] PhV+s=胾c_N GF֞ؾ “@ALS)"$ C k1/j-h p vRw ppwp ki 15 !^\d X %'+Ns愾Q)s ED|{ @$ o O m J K i g. V tsFn`"FED) E`Cnrgy w"N{Rq1H }L2`0tG- Bc (>= X (FROM) 0003 C28B 0028 WORD :C28B * COPY NEG3,Q 0004 2042 0029 ADD Q,X * ADJUST 'FROM' POINTER 0005 6900 0030 COPY =0,Y * 0 -> Y (TO) 0006 C287 0031  WORD :C287 * COPY LENGTH,Q (LENGTH) 00000007 0032 MOVLP EQU $ 0007 8080 0000 0033  COPY 0(X),A * GET 'FROM' WORD 0008 8440 0000 0034 COPY A,0(Y) * STORE AT 'TO' ADDRESS 0009 2B01 0035 ADD =1,X * BUMP 'FROM' ADDR. 000A 6B01 0036 ADD =1,Y * BUMP 'TO' ADDR. 000B 4B01 0037 ADD =1,Q * BUMP LOOP COUNT 000C 51BA 0007 0038 JNE  Q,MOVLP * LOOP IF NOT THRU 000D 9D10 0010 0039 JMP PAT405 * GO START PAT 0040 * 000E C000 0041 LENGTH WORD -:4000 * MOVE :4000 (16K) WORDS 000F FFFD 0042 NEG3 WORD -3  * -3 0001 0043 LPOOL 0010 00FE PAT405 1PAGE 0002 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM  84-93727 (A200) 1981/11/25 16:10:47.75 PAT405.NUC -- NM405 NUCLEUS SECTION 0045 * 0046  * WORD AND TEMP. LOCATIONS USED BY PAT 0047 * 0011 0000 0048 TEMP01 RES 1,0 0012 0000 0049 TEMP02 RES 1,0 0013 0000 0050 TEMP RES 1,0 0014 55AA 0051 P55AA WORD :55AA 0015 AA55 0052 NAA55 WORD :AA55 0016 FFFF 0053 PTFFFF WORD :FFFF 0017 F0F0 0054 PTF0F0 WORD :F0F0 0018 00FF 0055 PT00FF WORD :00FF 0019 0000 0056 PT0000 WORD 0 001A 7FFF 0057 PT7FFF WORD :7FFF 001B 5555 0058 PT5555 WORD :5555 001C 6666 0059 PT6666 WORD :6666 001D AAAA 0060 PTAAAA WORD :AAAA 00000014 0061 PT55AA EQU P55AA 001E AA00 0062 PTAA00 WORD :AA00 00000015 0063 PTAA55 EQU NAA55 0064 * 0065 * EQUATES USED BY PAT  0066 * 00000150 0067 STATUS EQU :150 00000100 0068 STACKP EQU :0100 0000007E 0069 DATSAV EQU DTEMP 00004000 0070 PATEND EQU :4000 0071 * 0072 * (PSW)--STATUS REGISTER EQUATES 0073 * 00000000 0074 CY EQU 0 CARRY BIT 00000001 0075 OV EQU 1 OVERFLOW BIT 00000002 0076 BY EQU 2 BYTE MODE BIT  00000002 0077 BM EQU BY ALTERNATE NAME 00000004 0078 CI EQU 4 CONSOLE INTERRUPT ENABLE BIT 00000005 0079 RI EQU 5 REAL-TIME CLOCK INTERRUPT ENABLE BIT 00000006 0080 XA EQU 6 EXTENDED ADDRESSING BIT 00000008 0081 INT EQU 8 INTERRUPTS ENABLE BIT 0000000A 0082 UM EQU 10 USER MAP 0000000B 0083 UP EQU 11   USER PROTECT 0084 * 0085 * OTHER WORD AND TEMP LOCATIONS 0086  * 001F 0000 0087 ATEMP RES 1,0 1PAGE 0003 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:10:49.00 PAT405.NUC -- NM405 NUCLEUS SECTION 0020 0000 0088 QTEMP RES 1,0 0021 0000 0089 XTEMP RES 1,0 0022 0000 0090 YTEMP RES 1,0 0023 0000 0091 MACHIN RES 1,0 MACHINE TYPE 0024 0000 0092 COUNT1 RES 1,0 PASS COUNTER 0025 0000 0093 COUNT2 RES 1,0  PASS COUNTER 0026 0000 0094 IDPCNT RES 1,0 IDP PASS COUNTER 0027 0000 0095 PCOUNT RES 1,0 IDP TEST COUNTER 00000001 0096 RETADDR EQU 1 RETURN ADDRESS FOR SAL INST 0028 0150  0097 STATSV WORD :0150 0029 9F80 0098 JMP1 WORD :9F80 JMP *$+1 RELATIVE 002A BF80 0099 JST1 WORD :BF80 JST *$+1 RELATIVE 002B 0E0D 0100 HLT1 HLT HLT INSTRUCTION 002C 0000 0101 CONTXT RES 9,0 CONTEXT BLOCK 0035 00E8 0102 STARTP WORD START 0036 0018  0103 REDOPAT WORD :0018 1PAGE 0004 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:10:49.75 PAT405.NUC -- NM405 NUCLEUS SECTION 0105 * 0106 * ROUTINE TO INDICATE UNEXPECTED TRAP ON CONSOLE DATA REGISTER 0107 * 0037 0E0D 0108 LIGHTS ENT 0038 0104 0109 IN  4,A GET CONSOLE DATA REGISTER 0039 18FF 0110 AND =:FF,A PRESERVE THE TEST NUMBER 003A B41E 001E 0111 OR PTAA00,A SET UPPER BYTE TO FLAG UNEXPECTED TRAP 003B 0404 0112 SELP  A,4 OUTPUT TO CONSOLE DISPLAY 003C 9D37 0037 0113 JMP *LIGHTS 0114 *  0115 * 0116 * UNIMPLEMENTED INSTRUCTION TRAP ROUTINE 0117 * 0000003D 0118 UIT1 EQU $ 003D BC37 0037 0119 JST LIGHTS 003E 0E0D 0120 HLT UNEXPECTED UNIMPLEMENTED INSTRUCTION 003F 9D35 0035 0121 JMP *STARTP 0122 * 0123 * MEMORY EXCEPTION TRAP ROUTINE 0124 * 0040 0E0D 0125 UMT1 ENT 0041 0E0D 0126  HLT UNEXPECTED MEMORY EXCEPTION 0042 9D35 0035 0127 JMP *STARTP 0128  * 0129 * DIVIDE/FLOATING POINT TRAP ROUTINE 0130 * (ARITHMETIC EXCEPTION TRAP ROUTINE) 0131 * 00000043 0132 AET1 EQU $ 0043 BC37 0037 0133 JST LIGHTS 0044 0E0D 0134 HLT * UNEXPECTED ARITHMETIC EXCEPTION 0045 9D35 0035 0135 JMP *STARTP 0136 * 00000046 0137 AET2 EQU $ 0046 DC20 0020 0138 IMS QTEMP * SET TRAP FLAG 0047 841F 001F 0139 COPY A,ATEMP * 0048 0943 0140 COPY =AET1,A *  RESTORE UNEXPECTED TRAP VECTOR 0049 86E1 00AB 0141 COPY A,ARERR+3 * 004A 801F 001F 0142 COPY  ATEMP,A * 004B 9FDC 00A8 0143 JMP *ARERR * RETURN TO MAINLINE PROGRAM 0144 *  0145 * STACK EXCEPTION TRAP ROUTINE 0146 * 0000004C 0147 USET1 EQU $ 1PAGE 0005 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:10:51.00 PAT405.NUC -- NM405 NUCLEUS SECTION 004C BC37 0037 0148 JST LIGHTS * 004D 0E0D 0149 HLT * UNEXPECTED STACK EXCEPTION 004E 9D35 0035 0150 JMP *STARTP * 0151 * 0152 * SYSTEM/USER TRAP ROUTINE 0153 * 004F 0E0D 0154 SUTRAP ENT 0050 0E0D 0155 HLT  0051 9F7D 004F 0156 JMP *SUTRAP 0157 * 1PAGE 0006 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:10:51.25 PAT405.NUC -- NM405 NUCLEUS SECTION 0159 * 0160 * CONSOLE INTERRUPT ROUTINE 0161 * 0052 0E0D 0162 CONINT ENT 0053 0EDF 0163  SIN 14 0054 842F 002F 0164 COPY A,CONTXT+3 0055 C430 0030 0165 COPY Q,CONTXT+4 0056 A431 0031 0166 COPY X,CONTXT+5 0057 E432 0032 0167 COPY Y,CONTXT+6 0058 0050 0168 COPY L,A 0059 842D 002D 0169 COPY A,CONTXT+1 005A 0030 0170 COPY S,A 005B 842E 002E 0171 COPY A,CONTXT+2 005C 0070 0172 COPY K,A 005D 8433 0033 0173 COPY A,CONTXT+7 005E 8273 0052 0174 COPY CONINT,A 005F 842C 002C 0175 COPY A,CONTXT 0060 0940 0176  COPY =:40,A 0061 3000 0177 COPY A,S 0062 0201 0178 OUT A,1 RESET CONSOLE INTERRUPTS 0063 0104 0179 IN 4,A 0064 8699 007E 0180 COPY A,DTEMP 0065 48FB  0181 COPY =-5,Q 0066 801D 001D 0182 COPY PTAAAA,A 0067 0404 0183 CONINT2 SELP A,4  0068 8294 007D 0184 COPY DELAY1,A 0069 8695 007F 0185 COPY A,TIMER 006A DE94 007F 0186  IMS TIMER 006B 9E7E 006A 0187 JMP $-1 006C 0104 0188 IN 4,A 006D 0E02 0189 ROTATE A,L,1 006E 54B8 0067 0190 IJNE Q,CONINT2 006F 828E 007E 0191 COPY DTEMP,A 0070 0404 0192 SELP A,4 0071 0E9F 0193 SIN 10 0072 8033 0033 0194 COPY  CONTXT+7,A 0073 7000 0195 COPY A,K 0074 802E 002E 0196 COPY CONTXT+2,A 0075 3000 0197 COPY A,S 0076 802D 002D 0198 COPY CONTXT+1,A 0077 5000 0199 COPY A,L 0078 E032 0032 0200 COPY CONTXT+6,Y 0079 A031 0031 0201 COPY CONTXT+5,X 1PAGE 0007 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:10:52.50 PAT405.NUC -- NM405 NUCLEUS SECTION 007A C030 0030 0 202 COPY CONTXT+4,Q 007B 802F 002F 0203 COPY CONTXT+3,A 007C 9D2C 002C 0204 JMP *CONTXT 007D 0000 0205 DELAY1 RES 1,:0000 CONSOLE INTERRUPT TEST DELAY 007E 0000 0206 DTEMP RES  1,0 TEMP DATA STORAGE REG 007F 0000 0207 TIMER RES 1,0 0208 * 0209 * NOTE: DO NOT OVERRUN LOCATION :80. 1PAGE 0008 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:10:52.75 PAT405.NUC -- NM405 NUCLEUS SECTION 0211 * 0212 * POWER UP TRAP VECTOR (:80) 0213 * 0080 0000 0214 ABS :80 0080 9F80 0081 0215 POWUP JMP *$+1  0081 00BF 0216 PUPPTR WORD PUPRTN 0217 * 0218 * UNIMPLEMENTED INSTRUCTION TRAP VECTOR (:84) 0219 * 0084 0000 0220 ABS :84 0084 0000 0221 LOC84 RES  2,0 INTERRUPT LOC + 1 00000085 0222 LOC85 EQU $-1 INTERRUPT INSTRUCTION 0086 9F80 0087  0223 JMP *$+1 0087 003D 0224 UNIMPT WORD UIT1 0225 * 0226 *  MEMORY EXCEPTION TRAP VECTOR (:88) 0227 * 0088 0000 0228 UNMEM0 RES 2,0 P+1  00000089 0229 UNMEM1 EQU $-1 I 008A BF80 008B 0230 JST *$+1 008B 0040 0231  WORD UMT1 0000008B 0232 UNMEM3 EQU $-1 0233 * 0234 * POWER FAIL TRAP VECTOR (:8C) 0235 * 008C 0000 0236 PWNVEC RES 2,0 P+1 008E BF80 008F 0237  JST *$+1 008F 00AC 0238 WORD PDWN 0000008F 0239 PDNPTR EQU $-1 0090 0E0D  0240 HLT 0241 * 0242 * REAL TIME CLOCK INTERRUPT CELLS (:91)  0243 * 0091 0000 0244 ABS :91 0091 0000 0245 RTCTIM WORD 0 RTC TIMING CELL  0092 BF80 0093 0246 JST *$+1 RTC TIMING CELL OVERFLOW VECTOR 0093 0000 0247 RTCPTR WORD 0 0248 * 0249 * CONSOLE INTERRUPT VECTOR (:94) 0250 * 0094 BE3D 0052 0251 JST CONINT 0252 * 0253 * STACK EXCEPTION TRAP VECTOR (:9C) 1PAGE 0009 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:10:53.75 PAT405.NUC -- NM405 NUCLEUS SECTION 0254 * 009C 0000 0255 ABS :9C 009C 0000 0256 RES 2,0 009E 9F80 009F 0257 JMP *$+1 009F 004C 0258 WORD USET1 1PAGE 0010 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:10:54.00 PAT405.NUC -- NM405 NUCLEUS SECTION 0260 *  USER TRAP VECTOR (:A0) 0261 * 00A0 0000 0262 ABS :A0 00A0 0000 0263 UTRAP1 RES 2,0 000000A1 0264 UTRAP2 EQU $-1 00A2 BF80 00A3 0265 UTRAP3 JST *$+1 00A3 004F 0266   WORD SUTRAP 000000A3 0267 UTRAP4 EQU $-1 0268 * 0269 * SYSTEM TRAP VECTOR (:A4) 0270 * 00A4 0000 0271 STRAP1 RES 2,0 000000A5 0272 STRAP2 EQU  $-1 00A6 BF80 00A7 0273 STRAP3 JST *$+1 00A7 004F 0274 WORD SUTRAP 000000A7 0275 STRAP4 EQU $-1 0276 * 0277 * DIVIDE FAULT/FLOATING POINT EXPONENT OVERFLOW TRAP VECTOR (:A8) 0278 * (ARITHMETIC EXCEPTION TRAP VECTOR) 0279 * 00A8 0000 0280  ABS :A8 000000A8 0281 ARERR EQU $ 00A8 0000 0282 ARERR0 RES 2,0 00AA 9F80 00AB 0283  JMP *$+1 00AB 0043 0284 WORD AET1 1PAGE 0011 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:10:54.75 PAT405.NUC -- NM405 NUCLEUS SECTION 0286 * 0287 *  POWER FAIL TRAP ROUTINE 0288 * 000000AC 0289 PDWN EQU $ 00AC 0E0D 0290  ENT 00AD 0EFF 0291 SIN 16 00AE 842F 002F 0292 COPY A,CONTXT+3 00AF C430 0030 0293  COPY Q,CONTXT+4 00B0 A431 0031 0294 COPY X,CONTXT+5 00B1 E432 0032 0295 COPY Y,CONTXT+6 00B2 0050 0296 COPY L,A 00B3 842D 002D 0297 COPY A,CONTXT+1 00B4 0030 0298  COPY S,A 00B5 842E 002E 0299 COPY A,CONTXT+2 00B6 0070 0300 COPY K,A 00B7 8433 0033  0301 COPY A,CONTXT+7 00B8 8273 00AC 0302 COPY PDWN,A 00B9 842C 002C 0303 COPY A,CONTXT 00BA 0104 0304 IN :04,A READ DATA REGISTER 00BB 8642 007E 0305 COPY A,DATSAV SAVE DATA REG. 00BC DEB4 00F1 0306 IMS PDNCT BUMP DOWN COUNTER 00BD 0000 0307 NOP 00BE 0E0D 0308 HLT 0309 * 0310 * POWER UP TRAP ROUTINE  0311 * 000000BF 0312 PUPRTN EQU $ 00BF 0EEF 0313 SIN 15 00C0 83B3 00F4 0314  COPY *PWRVC2,A TEST FOR COLD START (PWRVC2 ALTERED ON POWER FAIL) 00C1 1166 00E8 0315 JEQ A,START  JUMP IF COLD START 00C2 DEAD 00F0 0316 PRTN00 IMS PUPCT BUMP POWER UP COUNT 00C3 0000 0317  NOP 000000C4 0318 PRTN01 EQU $ 00C4 8239 007E 0319 PRTN02 COPY DATSAV,A 00C5 0404 0320  SELP A,4 RESTORE CONSOLE DATA REGISTER 00C6 1836 0321 AND =REDOPAT,A SEE IF CURRENT TEST IS RESUMABLE 00C7 1260 00E8 0322 JGT A,START JUMP IF NOT 00C8 82A7 00F0 0323 COPY PUPCT,A FETCH POWER UP COUNT 00C9 9AA7 00F1 0324 XOR PDNCT,A COMPARE TO POWER DOWN COUNT 00CA 11CB 00D6 0325 JNE A,PRTN03 JUMP IF MISCOMPARE 00CB 8033 0033 0326 COPY CONTXT+7,A * HERE IF PF & RESUMABLE & COUNTS COMPARE 00CC 7000 0327 COPY A,K 00CD 802E 002E 0328 COPY CONTXT+2,A  1PAGE 0012 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:10:56.00 PAT405.NUC -- NM405 NUCLEUS SECTION 00CE 3000 0329 COPY A,S 00CF 802D 002D 0330 COPY CONTXT+1,A 00D0 5000 0331 COPY A,L 00D1 E032 0032 0332 COPY CONTXT+6,Y 00D2 A031 0031 0333 COPY CONTXT+5,X 00D3 C030 0030 0334 COPY CONTXT+4,Q 00D4 802F 002F 0335 COPY CONTXT+3,A 00D5 9D2C 002C 0336  JMP *CONTXT 1PAGE 0013 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:10:56.25 PAT405.NUC -- NM405 NUCLEUS SECTION 000000D6 0338 PRTN03 EQU $ HERE IF PF & RESUMABLE & MISCOMPARE  00D6 DE9B 00F2 0339 IMS PFERRS BUMP POWER UP/DOWN MISCOMPARE COUNTER 00D7 0000 0340 NOP 00D8 0ECF 0341 SIN 13 00D9 829C 00F6 0342 COPY DMAND2,A 00DA 1802 0343 AND =:02,A 00DB 11C1 00DD 0344 JNE A,$+2 IF BIT 1 SET, DO NOT HALT 00DC 0E0D 0345 HLT POWER UP/DOWN COUNTS NOT EQUAL 00DD 8293 00F1 0346 COPY PDNCT,A 00DE 8691 00F0 0347  COPY A,PUPCT SET UP/DOWN COUNTS EQUAL 0348 * 00E8 0000 0349 ABS :E8  000000E8 0350 START EQU $ 00E8 8286 00EF 0351 COPY STARTPTR,A 00E9 A284 00EE 0352 COPY CONTXPTR,X LOAD CONTEXT POINTER 00EA 8480 0000 0353 COPY A,0(X) STORE START ADDRESS 00EB 0940  0354 COPY =:40,A 00EC 3000 0355 COPY A,S 00ED 9D2C 002C 0356 JMP *CONTXT 0357 * 0358 * 00EE 002C 0359 CONTXPTR WORD CONTXT 00EF 00FE 0360 STARTPTR WORD PAT405 POINTER TO START OF PROGRAM 0361 * * CHANGED DURING INITIALIZATION 00F0 0000 0362 PUPCT WORD 0 POWER-UP COUNT 00F1 0000 0363 PDNCT WORD 0  POWER-DOWN COUNT 00F2 0000 0364 PFERRS WORD 0 POWER UP/DOWN MISCOMPARE COUNTER 00F3 0080  0365 PWRVEC WORD POWUP 00F4 008C 0366 PWRVC2 WORD PWNVEC POINTER TO PROGRAM RETURN POINTER 00F5 0000 0367 DEMAND RES 1,0 MODE SEL WORD 1 00F6 0000 0368 DMAND2 RES 1,0 MODE SEL WORD 2 00F7 0000 0369 MEMFLAG RES 1,0 00F8 007F 0370 DEFAULT WORD :7F DEFAULT TEST SELECTION 00F9 FFFE 0371 PTFFFE WORD :FFFE 00FA 8000 0372 PT8000 WORD :8000 0373 *  0374 * 00FE 0000 0375 ABS :FE 000000FE 0376 PAT405 EQU $ 00FE 0900 0377 COPY =0,A 00FF 0000 0378 NOP **?? USED TO HAVE HLT IN HERE 0379 * 1PAGE 0014 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:10:57.75 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 00FF 0382 NAM PAT495 0113 0383 NAM A01000 0 122 0384 NAM A02000 0020 0020 0385 MACHINE =:20 0386 ************************************************** 0387 * 0388 * 0389 *------------ SECTION A0 ------------ 0390 * 0391 * OBJECTIVE: IN THIS SECTION SOME DEGREE OF 0392 * CONFIDENCE IS OBTAINED ON CERTAIN 0393 * BASIC INSTRUCTIONS. 0394 * 0395 * INSTRUCTIONS: THE FOLLOWING INSTRUCTIONS ARE 0396 * TESTED.(IN ORDER OF THE LIST). 0397 * NOTE:ONLY ABSOLUTE DIRECT ADDRESSING IS USED: 0398 *  0399 * HLT HALT A01000 0400 * COPY P,A LOAD 'A' FROM 'P' A01000 0401 * SELP A,4 DISPLAY 'A' A01000 0402 * JST MEM JUMP AND STORE A01000 0403 * JMP MEM UNCONDITIONAL JMP A01000 0404 *  COPY LIT,2REG A02000 0405 * CSK 2REG,LIT A02000  0406 * COPY MEM,2REG LOAD (DIRECT ADD.) A02000 0407 * CSK 2REG,MEM ARITH COMP A&Q A02000 0408 * COPY 2REG,MEM STORE (DIRECT ADD.) A02000 0409 * COPY 8REG,8REG REG TO REG LOAD A03000 0410 * JEQ 4REG,MEM A04000 0411 * JNE 4REG,MEM A04000 0412 * JLT 4REG,MEM A04000  0413 * JLE 4REG,MEM A04000 0414 * JGT 4REG,MEM  A04000 0415 * JGE 4REG,MEM A04000 0416 * OR  MEM,2REG INCLUSIVE OR A06000 0417 * XOR MEM,2REG EXCLUSIVE OR A07000  0418 * AND MEM,2REG A08000 0419 * RBIT OV,S A0A000 0420 * SBIT OV,S A0A000 0421 * JT OV,MEM  A0A000 0422 * JF OV,MEM A0A000 0423 *  SBIT BY,S BYTE MODE A0B000 0424 * RBIT BY,S WORD MODE A0B000 1PAGE 0015 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:10:59.00 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1  0425 * SIN STATUS INHIBIT A0C000 0426 * IMS MEM INCR. MEM AND SKIP A0D000 0427 * SHIFT 4REG,LO,CNT A0E000 0428 * FMT 4REG A0F000 0429 * XNX 4REG A10000  0430 * IN 4,4REG A11000 0431 * 0432 ***************** ********************************* 1PAGE 0016 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:10:59.50 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0434 **************************************************  0435 * 0436 * 0437 *------TEST STRUCTURE------- 0438 *  0439 * FROM HERE ONWARD STEP BY STEP CONFIDENCE IS 0440 * GAINED IN VARIOUS INSTRUCTIONS BY EXECUTING 0441 * EACH INSTRUCTION TO PERFORM ITS SIMPLEST 0442 * FUNCTION IN ABSOLUTE DIRECT ADDRESSING AND 0443 * WORD MODE. NORMALLY TWO INSTRUCTIONS ARE 0444 *  TAKEN IN PAIR TO TEST EACH OTHER USING 0445 * KNOWN WORKING INSTRUCTIONS. 0446 *  0447 * BY THE END OF THIS TEST IT CAN BE SAFELY 0448 * ASSUMED THAT ALL THE INSTRUCTIONS LISTED 0449 * ABOVE ARE PERFORMING THEIR FUCTION UNDER 0450 * ABSOLUTE DIRECT ADDRESSING AND WORD MODE. 0451 * 0452 * THIS SECTION (A0) PROVIDES BASIC CONFIDENCE  0453 * AND TOOLS FOR EXTENSIVE CHECKOUT OF 0454 * INSTRUCTIONS IN THE FOLLOWING SECTIONS. 0455 * 0456 ********************************************************** 1PAGE 0017 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:00.00 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0458 * 0459 * LOAD CONSOLE INTERRUPT TEST DELAY CELL 0460 * 007D 0000 0461 ABS DELAY1 007D 0000 0462 WORD :0000 0463 * 00FF 0000 0464 ABS :FF 00FF 0E0D 0465 PAT495 HLT 1PAGE 0018 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:00.25 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0467 ******************************************************* 0468 * 0469 * 0470 * PAT INITIALIZATION 0471 * 0472 * 0473 ******************************************************* 0100 0000 0474 ABS :100 0100 9E82 0103 0475 JMP DEFLT DEFAULT MODE STARTING POINT 0101 9E88 010A 0476 JMP DEMND DEMAND MODE STARTING POINT 0102 9E8D 0110 0477 JMP  RESTRT DEMAND MODE RESTART POINT 00000103 0478 DEFLT EQU $ DEFAULT MODE INITIALIZATION 0103 8672 00F6 0479 COPY A,DMAND2 SET DEMAND SELECTION WORD 2 0104 8273 00F8 0480 COPY DEFAULT,A SELECT TESTS 1,2,3,5,6,7,8,9,A 0481 * TEST 4 RUN IF I/O CARD PRESENT 0105 866F 00F5 0482 COPY A,DEMAND COPY TO DEMAND MODE SELECTION WORD 1 0106 4900 0483 COPY =0,Q 0107 C668 00F0 0484 COPY Q,PUPCT CLEAR POWER UP COUNT 0108 C668 00F1 0485 COPY Q,PDNCT   CLEAR POWER DOWN COUNT 0109 9E89 0113 0486 JMP A01000 START IDP 0000010A 0487 DEMND EQU  $ DEMAND MODE INITIALIZATION 010A 4900 0488 COPY =0,Q 010B C664 00F0 0489 COPY Q,PUPCT CLEAR POWER-UP COUNT 010C C664 00F1 0490 COPY Q,PDNCT CLEAR POWER-DOWN COUNT 010D C664 00F2 0491 COPY Q,PFERRS CLEAR POWER UP/DOWN MISCOMPARE COUNTER 010E C424 0024 0492 COPY Q,COUNT1 CLEAR PASS COUNTER 010F C425 0025 0493 COPY Q,COUNT2 CLEAR PASS COUNTER 0110 8665 00F6 0494 RESTRT COPY A,DMAND2 SET DEMAND SELECTION WORD 2 0111 0104 0495 IN 4,A INPUT TEST SELECTION FROM CONSOLE WORD REGISTER 0112 8662 00F5 0496 COPY A,DEMAND SET DEMAND MODE SELECTION WORD 1 1PAGE  0019 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:01.50 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0498 ************************************************** 0499 * 0500 *----- SECTION A0 TEST 1 ----- 0501 * TEST: HLT, COPY P,A, SELP A,4 0502 *  JST, ERROR MACRO, AND JMP 0503 * 0504 * HALT1 -- :B200 0505 *  HALT2 -- :XX17 0506 * HALT3 -- MACHINE TYPE 0507 * 0508 ****************************************************** 0509 * 00000113 0510 A01000 EQU $ 0113 8292 0126 0511 COPY =:B200,A GET REVISION LEVEL OF PAT495 0114 0404 0512 SELP A,4 DISPLAY IT 0115 0E0D 0513 HLT --HALT1-- 0514 * 0116 0010 0515 COPY P,A 0117 0404 0516 SELP A,4 0118 0E0D 0517 HLT --HALT2--DISPLAY :XX17 - TEST ERROR MACRO 0518 * 0519 * ---- IF PROGRAM COUNTER INCREMENTS PROPERLY,  0520 * ---- THEN COPY 8REG,P IS VERIFIED 0521 * 0119 0308 0522 FMT A  FETCH MACHINE TYPE IN 'A' 011A 0404 0523 SELP A,4 DISPLAY MACHINE TYPE 011B 0E0D 0524  HLT HALT3--DISPLAY MACHINE TYPE 011C 8423 0023 0525 COPY A,MACHIN SAVE MACHINE TYPE FOR FUTURE 011D 9E81 011F 0526 JMP A01020 TEST JMP 011E 0E0D 0527 HLT  ERROR -- JMP FAILED 0000011F 0528 A01020 EQU $ 011F 9E73 0113 0529 JMP A01000 LOOP PATCH 011F 0000 0530 ORG $-1 011F 0000 0531 NOP 0120 0900 0532 COPY  =0,A 0121 8655 00F7 0533 COPY A,MEMFLAG INITIALIZE PARTIAL-MEMORY TEST FLAG 1PAGE 0020 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:02.50 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1  0535 * 0536 * INITIALIZATION 0537 * 00000122 0538 A02000 EQU $   00EF 0000 0539 ABS STARTPTR 00EF 0122 0540 WORD A02000 INSERT WORD 0122 0000 0541 ORG A02000 ORG BACK 0542 * 0122 0E1F 0543 SIN 2 0123 8028 0028 0544 COPY STATSV,A 0124 3000 0545 COPY A,S 0125 9E84 012A 0546 JMP PART1 0004 0547 LPOOL 0126 B200 0127 0128 0129 0000012A 0548 PART1 EQU $ 012A 802B 002B 0549 COPY HLT1,A HLT INSTRUCTION 012B 8401 0001 0550 COPY A,1 STORE AT LOCATION 1 0000012C 0551 A02002 EQU $ 012C 8248 00F5 0552 COPY DEMAND,A 012D 000F 0553  TBIT 0,A RUN THIS TEST? 012E 3641 0130 0554 JT OV,$+2 IF FALSE THEN SKIP 012F 9FF3 01A3 0555 JMP PART1:5 IF FALSE SKIP 0130 0901 0556 COPY =1,A USE FOR NEXT TEST 1PAGE 0021 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:03.25 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0558 ******************************************************* 0559 *  0560 * ----- A02000 ----- 0561 * 0562 * ----- TEST COPY LIT,2REG AND CSK 2REG,LIT 0563 * 0564 ******************************************************* 0131 0D01  0565 CSK A,=:1 0132 0000 0566 NOP 0133 0E0D 0567 HLT --ERROR CSK FAILED A=1 0134 0D00 0568 CSK A,=0 0135 0E0D 0569 HLT '--ERROR--CSK FAILED ' 0136 9E81 0138 0570 JMP $+2 0137 0E0D 0571 HLT --ERROR-- CSK FAILED 0138 0D02 0572 CSK A,=2 0139 9E82 013C 0573 JMP $+3 013A 0000 0574  NOP 013B 0E0D 0575 HLT --ERROR-- CSK FAILED 013C 49FF 0576 COPY =:FF,Q 013D 4DFF 0577 CSK Q,=:FF 013E 0000 0578 NOP 013F 0E0D 0579 HLT  IF Q=:FF CSK FAILED ELSE COPY FAILED 1PAGE 0022 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:04.00 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0581 *************************************************** 0582 * 0583 * IN THE FOLLOSING TEST, COPY MEM,2REG, 0584  * CSK 2REG,MEM, AND COPY 2REG,MEM ARE TESTED 0585 * 0586 ************************************************** 00000140 0587 A02010 EQU $ 0140 8016 0016 0588 COPY PTFFFF,A LOAD'A'WITH FFFF 0141 B816 0016 0589 CSK A,PTFFFF 'A' SHOULD BE FFFF 0142 0000 0590 NOP 0143 0E0D  0591 HLT IF 'A'=:FFFF CSK FAILED ELSE COPY FAILED. 0144 C016 0016 0592 COPY PTFFFF,Q LOAD 'Q' WITH FFFF 0145 F816 0016 0593 CSK Q,PTFFFF 0146 0000 0594 NOP 0147 0E0D   0595 HLT IF 'Q'=:FFFF CSK FAILED ELSE COPY FAILED 0148 B819 0019 0596 CSK A,PT0000 'A' LT 0 0149 9E82 014C 0597 JMP $+3 014A 0000 0598 NOP 014B 0E0D 0599  HLT 'A' SHOULD BE :FFFF 014C BA2C 00F9 0600 CSK A,PTFFFE 014D 9E81 014F 0601  JMP $+2 014E 9E81 0150 0602 JMP $+2 014F 0E0D 0603 HLT 'A' SHOULD = :FFFF 0150 8411 0011 0604 COPY A,TEMP01 0151 B811 0011 0605 CSK A,TEMP01 0152 0000 0606  NOP 0153 0E0D 0607 HLT COPY FAILED 'A'= :FFFF 0154 9E4D 0122 0608 JMP  A02000 0154 0000 0609 ORG $-1 0154 0000 0610 NOP 0155 9E81 0157 0611 JMP A03000 0612 * 0156 0080 0613 PWRVC3 WORD POWUP 1PAGE 0023 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:05.25 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0615 ************************************************** 0616 * ----- A03000 ----- 0617 *  0618 * ----- TEST ON COPY 7REG,7REG ----- 0619 * 0620 * ----- NOTE - COPY REG,P AND COPY P,REG 0621 * ARE TESTED IN SEC. A01000 0622 * 0623 ************************************************** 0157 4900 0624 A03000 COPY =0,Q LOAD 'Q' WITH ZEROS 0158 8016 0016 0625 COPY PTFFFF,A LOAD 'A' WITH FFFF 0626 * TRLD: A,Q,X,PTFFFF 0159 2000  0626+ COPY A,X 015A 4020 0626+ COPY X,Q 015B F816 0016 0626+ CSK Q,PTFFFF  TEST THAT X = EXPECTED VALUE 015C 0000 0626+ NOP 015D 0E0D 0626+ HLT COPY -A- TO -X- FAILED 015E 4900 0626+ COPY =0,Q CLEAR -Q- 0627 * TRLD: A,Q,Y,PTFFFF  015F 6000 0627+ COPY A,Y 0160 4060 0627+ COPY Y,Q 0161 F816 0016 0627+ CSK  Q,PTFFFF TEST THAT Y = EXPECTED VALUE 0162 0000 0627+ NOP 0163 0E0D 0627+ HLT  COPY -A- TO -Y- FAILED 0164 4900 0627+ COPY =0,Q CLEAR -Q- 0628 * TRLD: A,Q,K,PTFFFF 0165 7000 0628+ COPY A,K 0166 4070 0628+ COPY K,Q 0167 F816 0016 0628+  CSK Q,PTFFFF TEST THAT K = EXPECTED VALUE 0168 0000 0628+ NOP 0169 0E0D 0628+  HLT COPY -A- TO -K- FAILED 016A 4900 0628+ COPY =0,Q CLEAR -Q-  0629 * TRLD: A,Q,L,PTFFFF 016B 5000 0629+ COPY A,L 016C 4050 0629+ COPY L,Q 016D F816 0016 0629+ CSK Q,PTFFFF TEST THAT L = EXPECTED VALUE 016E 0000 0629+ NOP 016F 0E0D  0629+ HLT COPY -A- TO -L- FAILED 0170 4900 0629+ COPY =0,Q CLEAR -Q- 1  PAGE 0024 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:06.50 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0171 8028 0028 0630 COPY STATSV,A 0631 * TRLD: A,Q,S,STATSV 0172 3000  0631+ COPY A,S 0173 4030 0631+ COPY S,Q 0174 F828 0028 0631+ CSK Q,STATSV  TEST THAT S = EXPECTED VALUE 0175 0000 0631+ NOP 0176 0E0D 0631+ HLT COPY -A- TO -S- FAILED 0177 4900 0631+ COPY =0,Q CLEAR -Q- 0178 C016 0016 0632 COPY PTFFFF,Q LOAD 'Q' WITH FFFF 0633 * TRLD: Q,A,X,PTFFFF 0179 2040 0633+ COPY Q,X 017A 0020 0633+ COPY X,A 017B B816 0016 0633+ CSK A,PTFFFF TEST THAT X = EXPECTED VALUE 017C 0000 0633+ NOP 017D 0E0D 0633+ HLT COPY -Q- TO -X- FAILED 017E 0900 0633+  COPY =0,A CLEAR -A- 017F 9E57 0157 0634 JMP A03000 017F 0000 0635 ORG  $-1 017F 0000 0636 NOP 1PAGE 0025 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:07.00 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0638 *************************************************** 0639 * 0640 * -------A04000------ 0641 * 0642 *  -----TEST FOR JMP, JEQ, JNE, JGT, JGE, JLT, JLE 0643 * 0644 *************************************************** 00000180 0645 A04000 EQU $ 0180 8016 0016 0646 COPY PTFFFF,A 0181 1141 0183 0647 JEQ A,$+2 0182 9E81 0184 0648 JMP $+2 0183 0E0D 0649 HLT  JEQ FAILED ON A < 0 0184 11C1 0186 0650 JNE A,$+2 0185 0E0D 0651 HLT JNE FAILED ON A < 0 0186 13C1 0188 0652 JLT A,$+2 0187 0E0D 0653 HLT JLT FAILED ON A < 0 0188 1341 018A 0654 JGE A,$+2 0189 9E81 018B 0655 JMP $+2 018A 0E0D 0656  HLT JGE FAILED ON A < 0 0657 * 018B 4900 0658 COPY =0,Q 018C 5141 018E 0659 JEQ Q,$+2 018D 0E0D 0660 HLT JEQ FAILED ON Q = 0 018E 51C1 0190 0661 JNE Q,$+2 018F 9E81 0191 0662 JMP $+2 0190 0E0D 0663 HLT  JNE FAILED ON Q = 0 0191 53C1 0193 0664 JLT Q,$+2 0192 9E81 0194 0665 JMP $+2 0193 0E0D 0666 HLT JLT FAILED ON Q = 0 0194 52C1 0196 0667 JLE Q,$+2 0195 0E0D  0668 HLT JLE FAILED ON Q = 0 0196 5241 0198 0669 JGT Q,$+2 0197 9E81 0199 0670 JMP $+2 0198 0E0D 0671 HLT JGT FAILED ON Q = 0 0199 5341 019B 0672  JGE Q,$+2 019A 0E0D 0673 HLT JGE FAILED ON Q = 0 0674 * 019B 290  1 0675 COPY =1,X 019C 32C1 019E 0676 JLE X,$+2 019D 9E81 019F 0677 JMP $+2 019E 0E0D 0678 HLT JLE FAILED ON X > 0 019F 3241 01A1 0679 JGT X,$+2 01A0 0E0D 0680 HLT JGT FAILED ON X > 0 1PAGE 0026 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM  84-93727 (A200) 1981/11/25 16:11:08.50 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 01A1 9E5E 0180 0681 JMP A04000 01A1 0000 0682 ORG $-1 01A1 0000 0683 NOP 01A2 9E82 01A5 0684 JMP  A06000 0002 0685 LPOOL 01A3 0760 01A4 1PAGE 0027 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:08.75 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0687 ************************************************** 0688 * 0689 * ----- A06000 ----- 0690 *  0691 *----- TEST FOR OR MEM,2REG (INCLUSIVE OR) 0692 * 0693 * 0694 ************************************************** 000001A5 0695 A06000 EQU $ 01A5 8018 0018 0696  COPY PT00FF,A 01A6 C017 0017 0697 COPY PTF0F0,Q 01A7 C411 0011 0698 COPY Q,TEMP01 STORE '0' 01A8 B411 0011 0699 OR TEMP01,A 01A9 BACE 01F8 0700 CSK A,=:F0FF 01AA 0000 0701 NOP 01AB 0E0D 0702 HLT 'OR' FAILED 'A' SHOULD BE :F0FF 0703 *  0704 *************************************************** 0705 * 0706 * ------A07000------ 0707 * 0708 * TEST FOR XOR MEM,2REG (EXCLUSIVE OR) 0709 * 0710 * 0711 *************************************************** 01AC C018 0018 0712  COPY PT00FF,Q 01AD 8017 0017 0713 COPY PTF0F0,A 01AE 8411 0011 0714 COPY A,TEMP01 01AF D811 0011 0715 XOR TEMP01,Q 01B0 FAC8 01F9 0716 CSK Q,=:F00F 01B1 0000 0717 NOP 01B2 0E0D 0718 HLT 'XOR' FAILED 1PAGE 0028 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:09.75 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0720 ************************************************** 0721 * 0722 * ----- A08000 ----- 0723 *  0724 * TEST FOR AND MEM,2REG 0725 * 0726 * 0727 ************************************************** 01B3 8018 0018 0728 COPY PT00FF,A 01B4 C017 0017 0729 COPY PTF0F0,Q 01B5 C411 0011 0730 COPY Q,TEMP01 STORE 'Q' 01B6 9411 0011 0731 AND TEMP01,A TEMP01=0, A=:FFFF 01B7 0DF0 0732 CSK A,=:F0 01B8 0000 0733 NOP 01B9 0E0D 0734 HLT 'AND' FAILED 'A' SHOULD BE :F0 01BA 9E6A 01A5 0735 JMP A06000 01BA 0 000 0736 ORG $-1 01BA 0000 0737 NOP 1PAGE 0029 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:10.25 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0739 ************************************************** 0740 * 0741 * ----- A0A000 ----- 0742 *  0743 * TESTS FOR RBIT OV,S SBIT OV,S JT OV,MEM JF OV,MEM 0744 * 0745 *  0746 ************************************************** 0747 * 0748 * DETAIL TEST ON STATUS WORD (OV AND BYTE MODE ) 0749 * 0750 * 000001BB 0751 A0A000 EQU $ 01BB 8028 0028 0752 COPY STATSV,A 01BC 3000 0753 COPY A,S RESET STATUS 01BD 0902 0754 COPY =2,A 01BE B428 0028 0755 OR STATSV,A NORMAL STATUS W/ OV SET 01BF 8411 0011 0756 COPY A,TEMP01 01C0 0E15 0757 SBIT OV,S SET OVERFLOW 01C1 4030  0758 COPY S,Q LOAD Q FROM S 01C2 F811 0011 0759 CSK Q,TEMP01 01C3 0000 0760  NOP 01C4 0E0D 0761 HLT ---ERROR- SBIT FAILED-- 01C5 36C2 01C8 0762 JF  OV,$+3 01C6 3642 01C9 0763 JT OV,$+3 01C7 0E0D 0764 HLT ---ERROR- JT FAILED OV=1 01C8 0E0D 0765 HLT ---ERROR- JF FAILED OV=1 01C9 4030 0766 COPY  S,Q 01CA F828 0028 0767 CSK Q,STATSV 01CB 0000 0768 NOP 01CC 0E0D 0769 HLT 'JT' DID NOT RESET OV BIT 01CD 3642 01D0 0770 JT OV,$+3 01CE 36C2 01D1 0771 JF OV,$+3 01CF 0E0D 0772 HLT ---ERROR- JF FAILED OV=0 01D0 0E0D 0773 HLT ---ERROR- JT FAILED OV=0 01D1 0E15 0774 SBIT OV,S SET OV 01D2 0E17 0775 RBIT OV,S 01D3 49FF 0776 COPY =:FF,Q 01D4 4030 0777 COPY S,Q 01D5 F828 0028 0778 CSK Q,STATSV 01D6 0000 0779 NOP 01D7 0E0D 0780 HLT  ---ERROR--- RBIT FAILED 01D8 9E62 01BB 0781 JMP A0A000 1PAGE 0030 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:11.50 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 01D8 0000 0782 ORG $-1 01D8 0000 0783 NOP 1PAGE 0031 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:11.75 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0785 *************************************************** 0786 * 0787 * ----- A0B000 ----- 0788 * 0789 *----- TEST FOR SBM AND SWM 0790 * CHECK TO SEE IF SBM TURNS ON BIT 2 IN PSW 0791 *  AND SWM TURNS OFF BIT 2 IN PSW 0792 * 0793 * 0794 ********************* ***************************** 000001D9 0795 A0B000 EQU $ 01D9 4900 0796 COPY =0,Q ZERO Q REG 01DA 8028 0028 0797 COPY STATSV,A CLEAR A REG 01DB 3000 0798 COPY A,S  ZERO PSW 01DC 4904 0799 COPY =4,Q 01DD F428 0028 0800 OR STATSV,Q NORMAL STATUS W/ BYTE MODE SET 01DE C411 0011 0801 COPY Q,TEMP01 01DF 0E25 0802 SBIT BY,S BYTE MODE BIT ON 01E0 0030 0803 COPY S,A 01E1 0E27 0804 RBIT BY,S BYTE MODE BIT OFF 01E2 B811 0011 0805 CSK A,TEMP01 01E3 0000 0806 NOP 01E4 0E0D 0807 HLT  'SBM' DID NOT SET BYTE MODE BIT. 01E5 0030 0808 COPY S,A 01E6 B828 0028 0809 CSK A,STATSV 01E7 0000 0810 NOP 01E8 0E0D 0811 HLT 'SWM' DID NOF TURN OFF BYTE MODE BIT 01E9 9E6F 01D9 0812 JMP A0B000 01E9 0000 0813 ORG $-1 01E9 0000 0814 NOP 1PAGE 0032 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:12.75 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0816 ************************************************** 0817 * 0818 * ----- A0C000 ----- 0819 * 0820 *----- SIMPLE TEST ON SIN . FORCED WORD MODE AND 0821 * EFFECT ON Q REG ARE CHECKED HERE.FORCED 0822 * INTERRUPT  0823 * 0824 * 0825 **************************************************  000001EA 0826 A0C000 EQU $ 01EA 0904 0827 COPY =4,A 01EB B428 0028 0828 OR STATSV,A 01EC 49FF 0829 COPY =:00FF,Q 00FF TO Q REG 01ED C411 0011 0830 COPY Q,TEMP01 01EE 3000 0831 COPY A,S SET S TO BYTE MODE 01EF 0E5F 0832 SIN :6 01F0 8011 0011 0833 COPY TEMP01,A LOAD A WITH 00FF 01F1 0DFF 0834 CSK A,=:00FF 01F2 0000 0835 NOP 01F3 0E0D 0836 HLT 'SIN' FAILED 'A'=:00FF =TEMP01 01F4 8028 0028 0837  COPY STATSV,A 01F5 3000 0838 COPY A,S RESTORE 'S' TO WORD MODE 01F6 9E73 01EA 0839  JMP A0C000 01F6 0000 0840 ORG $-1 01F6 0000 0841 NOP 01F7 9E83 01FB 0842 JMP A0D000 0003 0843 LPOOL 01F8 F0FF 01F9 F00F 01FA 1PAGE 0033 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:13.50 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0845 *************************************************** 0846 * 0847 * ------A0D000-------  0848 * 0849 * -----TEST FOR IMS MEM ------- 0850 * 0851  ************************************************** 000001FB 0852 A0D000 EQU $ 01FB 09FE 0853 C OPY =:FE,A 01FC 8411 0011 0854 COPY A,TEMP01 STORE AREG 01FD DC11 0011 0855 IMS TEMP01 01FE 9E81 0200 0856 JMP $+2 01FF 0E0D 0857 HLT 'IMS' FAILED AREG SHOULD BE :00FE 0200 8011 0011 0858 COPY TEMP01,A 0201 0DFF 0859 CSK A,=:FF 0202 0000 0860  NOP 0203 0E0D 0861 HLT IMS FAILED --- NO INCREMENT 0204 8016 0016 0862 COPY PTFFFF,A :FFFF TO 'A' 0205 8411 0011 0863 COPY A,TEMP01 STORE 'A' AT TEMP01 0206 DC11 0011 0864 IMS TEMP01 -1+1 = 0 0207 0E0D 0865 HLT 'IMS' FAILED 'A' SHOULD BE :FFFF AND TEMP01 SHUD BE 0208 801A 001A 0866 COPY PT7FFF,A :7FFF TO 'A' 0209 8411 0011 0867 COPY A,TEMP01 020A DC11 0011 0868 IMS TEMP01 :7FFF+1=:8000, OV SET 020B 9E81 020D 0869 JMP $+2 020C 0E0D 0870 HLT 'IMS' FAILED TEMP01 SHOULD BE :8000 020D 3641 020F 0871  JT OV,$+2 020E 0E0D 0872 HLT 'IMS' FAILED TEMP01 =:8000 OV=1 :7FFF+1 =:8000 020F 9E6B 01FB 0873 JMP A0D000 020F 0000 0874 ORG $-1 020F 0000 0875 NOP 1PAGE 0034 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:14.75 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0877 ************************************************** 0878 *  0879 * ---- A0E000 ---- 0880 * 0881 * SHIFT 4REG,LO,CNT 0882 *  0883 ************************************************** 0884 * 0885 * SHIFT A,LO,CNT 0886 * 00000210 0887 A0E000 EQU $ 0210 8028 0028 0888 COPY STATSV,A 0211 3000 0889 COPY A,S 0212 801B 001B 0890 COPY PT5555,A 0213 0E01 0891 SHIFT A,LO,1 0214 B81D 001D 0892 CSK A,PTAAAA 0215 0000 0893 NOP 0216 0E0D 0894  HLT SHIFT FAILED -- A SHOULD = :AAAA 0895 * 0896 * SHIFT Q,LO,4  0897 * 0217 C01D 001D 0898 COPY PTAAAA,Q 0218 4E31 0899 SHIFT Q,LO,4 0219 FA95 022F 0900 CSK Q,=:AAA0 021A 0000 0901 NOP 021B 0E0D 0902 HLT  SHIFT FAILED -- Q SHOULD = :AAA0 0903 * 0904 * SHIFT X,LO,9 0905 * 021C A01C 001C 0906 COPY PT6666,X 021D 2E71 0907 SHIFT X,LO,8 021E 0020 0908 COPY X,A 021F BA90 0230 0909 CSK A,=:6600 0220 0000 0910 NOP 0221 0E0D 0911  HLT SHIFT FAILED -- X SHOULD = :6600 0222 3641 0224 0912 JT OV,$+2 0223 9E81 0225 0913  JMP $+2 0224 0E0D 0914 HLT SHIFT FAILED -- OV WAS SET 0915  * 0916 * SHIFT Y,LO,13 0917 * 0225 E01D 001D 0918 COPY PTAAAA,Y 0226 6EC1  0919 SHIFT Y,LO,13 1PAGE 0035 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:15.75 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0227 0060 0920 COPY Y,A 0228 BA88 0231 0921  CSK A,=:4000 0229 0000 0922 NOP 022A 0E0D 0923 HLT SHIFT FAILED -- Y SHOULD = :4000 022B 3641 022D 0924 JT OV,$+2 022C 0E0D 0925 HLT SHIFT FAILED -- OV WAS NOT SET 022D 9E62 0210 0926 JMP A0E000 PATCH FOR LOOPING 022D 0000 0926+  ORG $-1 022D 0000 0926+ NOP OVERLAY WITH NOP 022E 9E84 0233 0927 JMP A0F000 0004 0928 LPOOL 022F AAA0 0230 6600 0231 4000 0232 1PAGE 0036 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:16.25 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0930 ******************************************************* 0931 * 0932 *----- SECTION A0F000 -----  0933 * 0934 * FMT 4REG 0935 * 0936 ******************************************************* 0937 * 00000233 0938 A0F000 EQU $ 0233 8028 0028 0939 COPY STATSV,A 0234 3000 0940 COPY A,S 0235 E016 0016 0941 COPY PTFFFF,Y 0236 6308 0942 FMT Y FETCH M/C TYPE IN 'Y' 0237 0060 0943 COPY Y,A 0238 B823 0023 0944 CSK A,MACHIN COMPARE WITH EXPECTED MACHINE TYPE 0239 0000 0945 NOP 023A 0E0D 0946 HLT 'FMT' FAILED 1PAGE 0037 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:16.75 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0948 ************************************************** 0949 * 0950 * ---- A10000 ---- 0951 *  0952 * XNX 4REG 0953 * 0954 **************************************************  0000023B 0955 A10000 EQU $ 023B 0910 0956 COPY =:10,A 023C 030A 0957 XNX  A 023D 4920 0958 COPY =:20,Q 023E 4D30 0959 CSK Q,=:30 023F 0000 0960  NOP 0240 0E0D 0961 HLT XNX FAILED -- Q SHOULD = :30 0241 9E71 0233 0962 JMP A0F000 0241 0000 0963 ORG $-1 0241 0000 0964 NOP 1PAGE 0038 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:17.25 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0966 ******************************************************* 0967 * 0968 * ---- A11000 ---- 0969 * 0970 * IN 4,REG INPUT FROM CONSOLE WORD REGISTER 0971   * 0972 ******************************************************* 0242 8016 0016 0973 A11000 COPY PTFFFF,A 0243 0404 0974 SELP A,4 0244 4104 0975 IN 4,Q 0245 F816 0016 0976 CSK Q,PTFFFF 0246 0000 0977 NOP 0247 0E0D 0978 HLT Q SHOULD = :FFFF. IF DISPLAY=Q THEN SELP FAILED ELS 0248 C01D 001D 0979 COPY PTAAAA,Q 0249 4404 0980 SELP Q,4 024A 2104 0981 IN 4,X 024B 0020 0982 COPY X,A 024C B81D 001D 0983 CSK  A,PTAAAA 024D 0000 0984 NOP 024E 0E0D 0985 HLT X SHOULD = :AAAA. IF DISPLAY=X THEN SELP FAILED ELS 024F A01B 001B 0986 COPY PT5555,X 0250 2404 0987 SELP X,4 0251 6104 0988 IN 4,Y 0252 0060 0989 COPY Y,A 0253 B81B 001B 0990 CSK A,PT5555 0254 0000 0991 NOP 0255 0E0D 0992 HLT Y SHOULD =:5555. IF DISPLAY=Y THEN SELP FAILED ELSE 0256 E01C 001C 0993 COPY PT6666,Y 0257 6404 0994 SELP Y,4 0258 0104  0995 IN 4,A 0259 B81C 001C 0996 CSK A,PT6666 025A 0000 0997 NOP 025B 0E0D  0998 HLT A SHOULD =:6666. IF DISPLAY=A THEN SELP FAILED ELSE 025C 0901 0999 COPY =1,A IDP TEST CODE 025D 0404 1000 SELP A,4 OUTPUT TO CONSOLE 025E 9E63 0242 1001 JMP A11000 PATCH FOR LOOPING 025E 0000 1002 ORG $-1 025E 9F81 0260 1003  JMP *A11001 PATCH FOR LOOPING 025E 0000 1004 ORG $-1 025E 0000 1005 NOP  OVERLAY WITH NOP 1006 * 025F 9E82 0262 1007 JMP A12000 0260 0122 1008 A11001 WORD A02000 1PAGE 0039 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:18.75 BASIC INSTRUCTION DIAGNOSTIC -- SEC. A0-1 0001 1009 LPOOL 0261 00000262 1010 A12000 EQU  $ 1PAGE 0040 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:18.75 INSTRUCTION DIAGNOSTIC -- SEC. B0-1 1012 ******************************************************* 1013 *  1014 * 1015 *------------ SECTION B0 ------------ 1016 * 1017 * OBJECTIVE: IN THIS SECTION EXTENSIVE TESTING OF 1018 * THE FOLLOWING INSTRUCTIONS IS DONE.  1019 * 1020 * 1021 * COPY 4REG,MEM 1022 *  1023 * 1024 ******************************************************* 1025 *  1026 * 1027 *----- TEST STRUCTURE ----- 1028 * 1029 * GENERAL: EACH INSTRUCTION TEST IS VERIFIED UNDER 1030 * THE FOLLOWING CONDITIONS: 1031 *   1032 * (1) ADDRESSING MODES: THERE ARE SIX MODES. 1033 * ABSOLUTE DIRECT ADDRESSING (SPAD) 1034 * ABSOLUTE INDIREC ADDRESSING 1035 * RELATIVE DIRECT ADDRESSING 1036 * RELATIVE INDIRECT ADDRESSING 1037 * INDEXED DIRECT ADDRESSING 1038 * INDEXED INDIRECT ADDRESSING 1039 * 1040 * (2) WORD MODE 1041 * 1042 * (3) BYTE MODE 1043 * 1044 * (4) MULTIPLE LEVEL INDIRECT ADDRESSING 1045 * 1046 ******************************************************* 1PAGE 0041 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:19.50 INSTRUCTION DIAGNOSTIC -- SEC. B0-1 1048 ******************************************************* 1049 *  1050 * PROGRAM STRUCTURE: PROGRAM IS DIVIDED INTO THE 1051 * FOLLOWING SECTIONS:  1052 * 1053 * B04000 -- IN THIS SECTION 'COPY 4REG,MEM' 1054 * INSTRUCTION IS TESTED UNDER ALL THE 1055 * ADDRESSING MODES AND UNDER WORD MODE. 1056 *  1057 * B05000 -- SAME TEST AS IN SECTION B04000 EXCEPT IT IS 1058 * PERFORMED UNDER BYTE MODE. 1059 * 1060 * B06000 -- IN THIS SECTION 'COPY 4REG,MEM' AND 1061 * 'CSK 2REG,MEM' ARE EXECUTED UNDER MULTIPLE LEVEL 1062 * INDIRECT ADDRESSING FOR WORD MODE. 1063 * 1064 ************************************************************* 1PAGE 0042 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:20.00 INSTRUCTION DIAGNOSTIC -- SEC. B0-1  1066 ************************************************** 1067 * 1068 *----- B04000 ----- 1069 * 1070 * ADDRESSIN MODES ON COPY 4REG,MEM 1071 *  -- WORD MODE -- 1072 ************************************************** 1073 *  1074 * 1075 ****** 1076 * ABSOLUTE DIRECT ADDRESSING. USING 'A'.  1077 * -- WORD MODE -- 1078 ****** 1079 * 00000262 1080 B04000 EQU $ 0262 8028 0028 1081 COPY STATSV,A 0263 3000 1082 COPY A,S ZERO PSW 0264 090F  1083 COPY =:0F,A 0265 8411 0011 1084 COPY A,TEMP01 STORE'A' 0266 B811 0011 1085  CSK A,TEMP01 0267 0000 1086 NOP 0268 0E0D 1087 HLT 'A'= TEMP01 =:0F IF NOT COPY FAILED ELSE CSK 1PAGE 0043 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:20.75 INSTRUCTION DIAGNOSTIC -- SEC. B0-1 1089 ****** 1090 * ABSOLUTE INDIRECT ADDRESSING  USING 'A' 1091 * -- WORD MODE -- 1092 * COPY A,*MEM 1093 ****** 1094 * 1095 * COPY A,*MEM 1096 * 00000269 1097 B04010 EQU  $ 0269 8028 0028 1098 COPY STATSV,A 026A 3000 1099 COPY A,S CLEAR 'S' 026B 0911 1100 COPY =TEMP01,A 026C 8412 0012 1101 COPY A,TEMP02 026D 090F 1102 COPY  =:0F,A 026E 8512 0012 1103 COPY A,*TEMP02 026F B811 0011 1104 CSK A,TEMP01 0270 0000  1105 NOP 0271 0E0D 1106 HLT CSK FAILED IF 'A'= TEMP01= :0F ELSE COPY FAILED. 0272 9E6F 0262 1107 JMP B04000 PATCH FOR LOOPING 0272 0000 1107+ ORG $-1 0272 0000  1107+ NOP OVERLAY WITH NOP 1PAGE 0044 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:21.25 INSTRUCTION DIAGNOSTIC -- SEC. B0-1 1109 ****** 1110 *  RELETIVE DIRECT ADDRESSING. USING 'A' 1111 * -- WORD MODE -- 1112 * COPY A,MEM  1113 ****** 1114 * 1115 * COPY A,MEM 1116 * 00000273 1117 B04020 EQU $ 0273 8028 0028 1118 COPY STATSV,A 0274 3000 1119 COPY A,S  ZERO 'S' 0275 090F 1120 COPY =:0F,A 0276 8694 028B 1121 COPY A,CEL442 STORE 'A' 0277 BA93 028B 1122 CSK A,CEL442 0278 0000 1123 NOP 0279 0E0D 1124 HLT  CSL FAILED IF A=CEL442=:0F ELSE COPY FAILED 1PAGE 0045 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:21.75 INSTRUCTION DIAGNOSTIC -- SEC. B0-1 1126 ***** 1127 * RELATIVE INDIRECT ADDRESSING USING AREG 1128 * -- WORD MODE -- 1129 * COPY A,*MEM  1130 ***** 1131 * 1132 * COPY A,*MEM 1133 * 0000027A 1134 B04030 EQU $ 027A 8028 0028 1135 COPY STATSV,A 027B 3000 1136 COPY A,S  ZERO PSW 027C 8289 0286 1137 COPY =CEL442,A 027D 868C 028A 1138 COPY A,CEL441 CEL441 = CEL442 ADD. 027E 09FF 1139 COPY =:FF,A FF TO 'A' 027F 878A 028A 1140 COPY A,*CEL441 0280 BA8A 028B 1141 CSK A,CEL442 0281 0000 1142 NOP 0282 0E0D 1143 HLT  CSK FAILED IF 'A'=CEL442 =:FF ELSE COPY FAILED 0283 9E6F 0273 1144 JMP B04020 PATCH FOR LOOPING 0283 0000 1144+ ORG $-1 0283 0000 1144+ NOP OVERLAY WITH NOP 0284 9E87 028C 1145 JMP B04040 0004 1146 LPOOL 0285 028A CEL441 0286 028B CEL442 0287 0288 1PAGE 0046 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:22.50 INSTRUCTION DIAGNOSTIC  -- SEC. B0-1 1148 ****** 1149 * INDEXED ADDRESSING USING 'X'. (DIRECT)  1150 * -- WORD MODE -- 1151 * COPY A,1(X) 1152 ****** 0289 0000 1153 CEL440 WORD 0 028A 0001 1154 CEL441 WORD 1 028B 0000 1155 CEL442 WORD 0 1156 * 1157 * COPY A,1(X) 1158 * 0000028C 1159 B04040 EQU $ 028C 8028 0028 1160 COPY STATSV,A 028D 3000 1161 COPY A,S ZERO PSW 028E A276 0285 1162  COPY =CEL441,X CEL441 ADD IN X 028F 09F0 1163 COPY =:F0,A 0290 8481 0001 1164 COPY  A,1(X) STORE 'A' AT CEL442 0291 BA79 028B 1165 CSK A,CEL442 0292 0000 1166 NOP 0293 0E0D 1167 HLT CSK FAILED IF 'A'= CEL442 =:F0 ELSE COPY FAILED. 1PAGE 0047 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:23.00 INSTRUCTION DIAGNOSTIC -- SEC. B0-1 1169 ****** 1170 * INDEXED ADDRESSING USING 'Y'. (DIRECT) 1171 * -- WORD MODE --  1172 * COPY A,1(Y) 1173 ****** 1174 * 1175 *  1176 * COPY A,1(Y) 1177 * 00000294 1178 B04050 EQU $ 0294 8028 0028 1179  COPY STATSV,A 0295 3000 1180 COPY A,S ZERO PSW 0296 E26E 0285 1181 COPY =CEL441,Y CEL441 ADD IN 'Y' 0297 09A5 1182 COPY =:A5,A LOAD 'A' WITH :00A5 0298 8441 0001 1183  COPY A,1(Y) STORE 'A' AT CEL442 0299 BA71 028B 1184 CSK A,CEL442 029A 0000 1185  NOP 029B 0E0D 1186 HLT CSK FAILED IF 'A'=:A5 =CEL442 ELSE COPY FAILED 1PAGE 0048 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:23.50 INSTRUCTION DIAGNOSTIC -- SEC. B0-1  1188 ****** 1189 * INDEXED ADDRESSING USING 'X','Y'.(DIRECT) 1190 * -- WORD MODE -- 1191 * COPY A,1(X,Y) 1192 ****** 1193 *  1194 * COPY A,1(X,Y) 1195 * 0000029C 1196 B04060 EQU $ 029C 8028 0028 1197 COPY STATSV,A 029D 3000 1198 COPY A,S 029E E2AC 02CB 1199 COPY =CEL440,Y 029F 2901  1200 COPY =1,X 02A0 095A 1201 COPY =:5A,A 02A1 84C1 0001 1202 COPY A,1(X,Y)  STORE AT CEL442 02A2 BA68 028B 1203 CSK A,CEL442 02A3 0000 1204 NOP 02A4 0E0D 1205 HLT CSK FAILED IF A=:5A=CEL442 ELSE COPY FAILED 02A5 9E66 028C 1206 JMP B04040  PATCH FOR LOOPING 02A5 0000 1206+ ORG $-1 02A5 0000 1206+ NOP OVERLAY WITH NOP 02A6 9E83 02AA 1207 JMP B04070 1PAGE 0049 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727  (A200) 1981/11/25 16:11:24.25 INSTRUCTION DIAGNOSTIC -- SEC. B0-1 1209 ****** 1210 *  INDIRECT INDEXED ADDRESSING USING 'X'. 1211 * -- WORD MODE -- 1212 * COPY A,*1(X) 1213 ****** 02A7 0000 1214 CEL470 WORD 0 02A8 0001 1215 CEL471 WORD 1 02A9 0000 1216 CEL472 WORD 0 1217 * 1218 * COPY A,*1(X) 1219 *  000002AA 1220 B04070 EQU $ 02AA 8028 0028 1221 COPY STATSV,A 02AB 3000 1222 COPY  A,S 02AC 0901 1223 COPY =1,A 02AD 8411 0011 1224 COPY A,TEMP01 02AE A29D 02CC 1225  COPY =CEL471,X 02AF 09FF 1226 COPY =:FF,A LOAD :00FF IN 'A' 02B0 8591 0011 1227  COPY A,*TEMP01(X) CEL472=:00FF 02B1 BA77 02A9 1228 CSK A,CEL472 02B2 0000 1229 NOP 02B3 0E0D 1230 HLT CSK FAILED IF 'A'=:FF =CEL472 ELSE COPY FAILED 1PAGE 0050 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:24.75 INSTRUCTION DIAGNOSTIC -- SEC. B0-1 1232 ****** 1233 * INDIRECT INDEXED ADDRESSING USING 'Y'. 1234 * -- WORD MODE --  1235 * COPY A,*1(Y) 1236 ****** 1237 * 1238 * COPY A,*1(Y) 1239 * 000002B4 1240 B04080 EQU $ 02B4 8028 0028 1241 COPY STATSV,A 02B5 3000 1242 COPY A,S ZERO PSW 02B6 8296 02CD 1243 COPY =CEL472,A 02B7 8670 02A8 1244 COPY A,CEL471 CEL471=.CEL472 ADD. 02B8 E295 02CE 1245 COPY =CEL470,Y 02B9 090F 1246 COPY =:0F,A LOAD 'A' BY :000F 02BA 8541 0001 1247 COPY A,*1(Y) CEL472=:000F 02BB BA6D 02A9 1248 CSK A,CEL472 02BC 0000 1249 NOP 02BD 0E0D 1250 HLT  CSK FAILED IF 'A'=:0F =CEL472 ELSE COPY FAILED 1PAGE 0051 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:25.50 INSTRUCTION DIAGNOSTIC -- SEC. B0-1 1252 ****** 1253 * INDIRECT INDEXED ADDRESSING USING X,Y. 1254 * -- WORD MODE -- 1255 * COPY A,*1(X,Y) 1256 ****** 1257 * 1258 * COPY A,*1(X,Y) 1259 *  000002BE 1260 B04090 EQU $ 02BE 0901 1261 COPY =1,A 02BF 8668 02A8 1262 COPY A,CEL471 02C0 8028 0028 1263 COPY STATSV,A 02C1 3000 1264 COPY A,S ZERO S REG 02C2 A289 02CC 1265 COPY =CEL471,X CEL471 ADD IN'X' 02C3 E28A 02CE 1266 COPY =CEL470,Y CEL470 ADD IN 'Y' 02C4 0955 1267 COPY =:55,A 02C5 85C1 0001 1268 COPY A,*1(X,Y) STORE A AT CEL472 02C6 BA62 02A9 1269 CSK A,CEL472 02C7 0000 1270 NOP 02C8 0E0D 1271 HLT   CSK FAILED IF A=:55=CEL472 ELSE COPY FAILED 02C9 9E60 02AA 1272 JMP B04070 PATCH FOR LOOPING 02C9 0000 1272+ ORG $-1 02C9 0000 1272+ NOP OVERLAY WITH NOP 02CA 9E88 02D3 1273 JMP B04100 0005 1274 LPOOL 02CB 0289 CEL440 02CC 02A8 CEL471 02CD 02A9 CEL472 02CE 02A7 CEL470 02CF 1PAGE 0052 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:26.25 INSTRUCTION DIAGNOSTIC -- SEC. B0-1 1276 ****** 1277 * ADDRESSING MODES ON 'Q', 'X', AND 'Y' 1278 * EACH REGISTER IS TESTED UNDER ONE 1279 * ADDRESSING MODE ONLY. SELECTION OF A 1280 * REGISTER AND ADDRESSING MODE IS RANDOM. 1281 * -- WORD MODE -- 1282 ****** 02D0 0000 1283 CEL410 WORD 0 02D1 0000 1284 CEL411 WORD 0 02D2 0000  1285 CEL412 WORD 0 1286 * 1287 ****** 1288 * RELATIVE INDIRECT ADDRESSING USING 'Q'. 1289 * COPY Q,*MEM 1290 ****** 1291 *  1292 * COPY Q,*MEM 1293 * 000002D3 1294 B04100 EQU $ 02D3 C01C 001C 1295  COPY PT6666,Q 02D4 8028 0028 1296 COPY STATSV,A 02D5 3000 1297 COPY A,S CLEAR 'S' 02D6 829D 02F4 1298 COPY =CEL412,A 02D7 8679 02D1 1299 COPY A,CEL411 CEL411 =ADD.OF CEL412 02D8 C778 02D1 1300 COPY Q,*CEL411 STORE 'Q' AT CEL412 02D9 FA78 02D2 1301 CSK Q,CEL412 02DA 0000 1302 NOP 02DB 0E0D 1303 HLT CSK FAILED IF 'Q'=:6666 =CEL412 ELSE COPY FAILED 1PAGE 0053 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:27.00 INSTRUCTION DIAGNOSTIC -- SEC. B0-1 1305 ****** 1306 * INDEXED INDIRECT ADDRESSING USING INDEX 1307 * REGISTER 'Y' ON ''X' 1308 * -- WORD MODE -- 1309 *  COPY X,*1(Y) 1310 ****** 1311 * 1312 * COPY X,*1(Y) 1313 * 000002DC 1314 B04110 EQU $ 02DC A018 0018 1315 COPY PT00FF,X 02DD 8028 0028 1316  COPY STATSV,A 02DE 3000 1317 COPY A,S CLEAR 'S' 02DF 8294 02F4 1318 COPY =CEL412,A 02E0 8670 02D1 1319 COPY A,CEL411 CEL411=ADD.OF CEL412 02E1 E293 02F5 1320 COPY =CEL410,Y 02E2 A541 0001 1321 COPY X,*1(Y) STORE'X' AT CEL412 02E3 0020 1322 COPY X,A 02E4 BA6D 02D2 1323 CSK A,CEL412 02E5 0000 1324 NOP 02E6 0E0D 1325 HLT  'A'= CEL412= :00FF CEL411= CEL412 1PAGE 0054 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:27.50 INSTRUCTION DIAGNOSTIC -- SEC. B0-1 1327 ****** 1328 * INDEXED IND IRECT ADDRESSING USING INDEX 1329 * REGISTER 'X' ON 'Y' 1330 * -- WORD MODE --  1331 * COPY Y,*1(X) 1332 ****** 1333 * 1334 * COPY Y,*1(X) 1335 * 000002E7 1336 B04120 EQU $ 02E7 E017 0017 1337 COPY PTF0F0,Y 02E8 8028 0028 1338 COPY STATSV,A 02E9 3000 1339 COPY A,S 02EA 0901 1340 COPY =1,A 02EB 8411 0011 1341 COPY A,TEMP01 02EC A289 02F6 1342 COPY =CEL411,X 02ED E591 0011 1343 COPY Y,*TEMP01(X) STORE Y AT CEL412 02EE 0060 1344 COPY Y,A 02EF BA62 02D2 1345  CSK A,CEL412 02F0 0000 1346 NOP 02F1 0E0D 1347 HLT AREG=YREG=CEL412=:F0F0 CEL411=CEL412 ADDR 02F2 9E60 02D3 1348 JMP B04100 PATCH FOR LOOPING 02F2 0000 1348+  ORG $-1 02F2 0000 1348+ NOP OVERLAY WITH NOP 02F3 9E84 02F8 1349 JMP  B05000 0004 1350 LPOOL 02F4 02D2 CEL412 02F5 02D0 CEL410 02F6 02D1 CEL411 02F7 1PAGE 0055 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:28.50 INSTRUCTION DIAGNOSTIC -- SEC. B0-5  1352 ************************************************** 1353 *----- B05000 ----- 1354 * ADDRESSING MODES ON COPY 4REG,MEM 1355 * -- BYTE MODE -- 1356 ************************************************** 1357 * ABSOLUTE DIRECT ADDRESSING MODE. USING 'A'  1358 * -- BYTE MODE -- 1359 * COPYB A,SPAD 1360 ****** 000002F8 1361 B05000 EQU $ 02F8 8028 0028 1362 COPY STATSV,A 02F9 3000 1363 COPY A,S CLEAR 'S' 02FA 0900 1364 COPY =0,A 02FB 8411 0011 1365 COPY A,TEMP01 02FC 8015 0015 1366  COPY PTAA55,A 02FD C014 0014 1367 COPY PT55AA,Q 02FE 0E25 1368 SBIT BY,S 02FF 8422 0022 1369 COPYB A,TEMP01 0300 0E27 1370 RBIT BY,S 0301 829B 031D 1371 COPY =:5500,A 0302 B811 0011 1372 CSK A,TEMP01 0303 0000 1373 NOP 0304 0E0D 1374  HLT COPY FAILED -- A = TEMP01 = :5500 0305 0E25 1375 SBIT BY,S 0306 C423 0023 1376 COPYB Q,TEMP01+1 0307 0E27 1377 RBIT BY,S 0308 F811 0011 1378 CSK Q,TEMP01 0309 0000 1379 NOP 030A 0E0D 1380 HLT COPY FAILED -- Q = TEMP01 = :55AA 030B 9E6C 02F8 1381 JMP B05000 PATCH FOR LOOPING 030B 0000 1381+ ORG $-1 030B 0000  1381+ NOP OVERLAY WITH NOP 1PAGE 0056 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:29.50 INSTRUCTION DIAGNOSTIC -- SEC. B0-5 1383 ****** 1384 *   ABSOLUTE INDIRECT ADDRESSING. USING 'A' 1385 * -- BYTE MODE -- 1386 * COPY A,*SPAD 1387 ****** 1388 * 1389 * COPY A,*SPAD 1390 * 0000030C 1391 B05010 EQU $ 030C 0911 1392 COPY =TEMP01,A 030D 0E01 1393 SHIFT  A,LO,1 TEMP01 BYTE ADD. IN 'A' 030E 8412 0012 1394 COPY A,TEMP02 TEMP02 = TEMP01 BYTE ADD. 030F 0900 1395 COPY =0,A 0310 8411 0011 1396 COPY A,TEMP01 0311 8028 0028 1397 COPY  STATSV,A 0312 3000 1398 COPY A,S CLEAR 'S' 0313 8015 0015 1399 COPY PTAA55,A 0314 0E25 1400 SBIT BY,S 0315 8512 0012 1401 COPY A,*TEMP02 :55 TO TEMP01 BYTE 0 0316 0E27 1402 RBIT BY,S 0317 8285 031D 1403 COPY =:5500,A 0318 B811 0011 1404 CSK A,TEMP01 0319 0000 1405 NOP 031A 0E0D 1406 HLT COPY FAILED -- A=TEMP01=:5500 031B 9E70 030C 1407 JMP B05010 PATCH FOR LOOPING 031B 0000 1407+ ORG $-1 031B 0000 1407+ NOP OVERLAY WITH NOP 031C 9E82 031F 1408 JMP B05020 0002  1409 LPOOL 031D 5500 031E 1PAGE 0057 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:30.25 INSTRUCTION DIAGNOSTIC -- SEC. B0-5 1411 ******************************** 1412  * RELATIVE DIRECT ADDRESSING USING 'A' 1413 * -- BYTE MODE -- 1414 * COPYB A,MEM 1415 ****** 1416 * 1417 * COPYB A,MEM 1418 *  0000031F 1419 B05020 EQU $ 031F 8028 0028 1420 COPY STATSV,A 0320 3000 1421 COPY  A,S CLEAR 'S' 0321 0900 1422 COPY =0,A 0322 86AA 034D 1423 COPY A,CEL542 0323 8015 0015 1424 COPY PTAA55,A 0324 C014 0014 1425 COPY PT55AA,Q 0325 0E25 1426 SBIT BY,S 0326 86CC 069A 1427 COPYB A,CEL542 0327 0E27 1428 RBIT BY,S 0328 8274 031D 1429 COPY =:5500,A 0329 BAA3 034D 1430 CSK A,CEL542 032A 0000 1431 NOP 032B 0E0D  1432 HLT COPY FAILED -- A = CEL542 = :5500 032C 0E25 1433 SBIT BY,S 032D C6BF 069B 1434 COPYB Q,CEL542+1 032E 0E27 1435 RBIT BY,S 032F FA9D 034D 1436 CSK  Q,CEL542 0330 0000 1437 NOP 0331 0E0D 1438 HLT COPY FAILED -- Q = CEL542 = :55AA 0332 9E6C 031F 1439 JMP B05020 PATCH FOR LOOPING 0332 0000 1439+ ORG $-1 0332 0000 1439+ NOP OVERLAY WITH NOP 1PAGE 0058 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:31.25 INSTRUCTION DIAGNOSTIC -- SEC. B0-5 1441 ******   1442 * RELATIVE INDIRECT ADDRESSING USING 'A' 1443 * -- BYTE MODE -- 1444 *  COPY A,*MEM MEM = BYTE ADD. OF DESTINATION. 1445 ****** 1446 * 1447 * 1448 * COPY A,*MEM 1449 * 00000333 1450 B05030 EQU $ 0333 0900 1451 COPY =0,A 0334 8696 034B 1452 COPY A,CEL540 0335 828F 0345 1453 COPY =CEL540,A 0336 0E01 1454 SHIFT A,LO,1 0337 8695 034D 1455 COPY A,CEL542 0338 DE94 034D 1456  IMS CEL542 CEL542 = CEL540 BYTE 1 ADD 0339 8028 0028 1457 COPY STATSV,A 033A 3000 1458  COPY A,S 033B 09AA 1459 COPY =:AA,A 033C C014 0014 1460 COPY PT55AA,Q 033D 0E25 1461 SBIT BY,S 033E C78E 034D 1462 COPY Q,*CEL542 033F 0E27 1463 RBIT  BY,S 0340 BA8A 034B 1464 CSK A,CEL540 0341 0000 1465 NOP 0342 0E0D 1466 HLT  COPY FAILED -- Q = CEL540 = :AA 0343 9E6F 0333 1467 JMP B05030 PATCH FOR LOOPING  0343 0000 1467+ ORG $-1 0343 0000 1467+ NOP OVERLAY WITH NOP 0344 9E89 034E 1468 JMP B05040 0006 1469 LPOOL 0345 034B CEL540 0346 0347 0348 0349 034A 1PAGE 0059 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:32.00 INSTRUCTION DIAGNOSTIC -- SEC. B0-5  1471 ****** 1472 * INDEXED DIRECT ADDRESSING. INDEX REG IS X 1473 *  -- BYTE MODE-- 1474 * COPY A,(NTCX) XREG=BYTE ADDR 1475 * EA=XREG+CNT 1476 ********* 034B 0000 1477 CEL540 WORD 0 034C 0000 1478 CEL541 WORD 0 034D 0000 1479 CEL542 WORD 0 1480 * 1481 * COPY A,1(X) 1482 *  0000034E 1483 B05040 EQU $ 034E A28F 035E 1484 COPY =CEL541,X 034F 2E01 1485 SHIFT X,LO,1 CEL541 BYTE ADD IN 'X' 0350 8028 0028 1486 COPY STATSV,A 0351 3000 1487 COPY A,S 0352 0900 1488 COPY =0,A 0353 8679 034D 1489 COPY A,CEL542 0354 828A 035F 1490  COPY =:5566,A 0355 0E25 1491 SBIT BY,S 0356 8482 0002 1492 COPY A,2(X) :66 TO CEL542 BYTE 0 0357 0E27 1493 RBIT BY,S 0358 8287 0360 1494 COPY =:6600,A 0359 BA73 034D 1495 CSK A,CEL542 035A 0000 1496 NOP 035B 0E0D 1497 HLT  COPY FAILED -- A = CEL542 = :6600 035C 9E71 034E 1498 JMP B05040 PATCH FOR LOOPING 035C 0000 1498+ ORG $-1 035C 0000 1498+ NOP OVERLAY WITH NOP 035D 9E84 0362 1499  JMP B05050 0004 1500 LPOOL 035E 034C CEL541 035F 5566 0360 6600 0361 1PAGE 0060 MACRO (F100)  SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:33.00 INSTRUCTION DIAGNOSTIC -- SEC. B0-5  1502 ****** 1503 * INDEXED DIRECT ADDRESSING. INDEX REG. = 'Y' 1504 * -- BYTE MODE -- 1505 * COPY A,CNT(Y) 'Y'= WORD ADD 1506 * EA = 2(Y) + CNT 1507 ****** 1508 * 1509 * COPY A,CNT(Y) 1510 *  00000362 1511 B05050 EQU $ 0362 E27B 035E 1512 COPY =CEL541,Y CEL541 WORD ADD IN 'Y' 0363 8028 0028 1513 COPY STATSV,A 0364 3000 1514 COPY A,S 0365 0900 1515 COPY =0,A 0366 8666 034D 1516 COPY A,CEL542 0367 8277 035F 1517 COPY =:5566,A 0368 0E25 1518  SBIT BY,S 0369 8442 0002 1519 COPY A,2(Y) CEL542 BYTE0 =:66 036A 0E27 1520 RBIT BY,S 036B 8274 0360 1521 COPY =:6600,A 036C BA60 034D 1522 CSK A,CEL542 036D 0000  1523 NOP 036E 0E0D 1524 HLT COPY FAILED -- A = CEL542 = :6600 036F 9E72 0362 1525 JMP B05050 PATCH FOR LOOPING 036F 0000 1525+ ORG $-1 036F 0000 1525+  NOP OVERLAY WITH NOP 0370 9E81 0372 1526 JMP B05060 0001 1527 LPOOL 0371 1PAGE 0061 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:33.75 INSTRUCTION DIAGNOSTIC -- SEC. B0-5 1529 ****** 1530 * INDEXED DIRECT ADDRESSING USING 'X' & 'Y'  1531 * -- BYTE MODE -- 1532 * COPY A,CNT(X,Y) 'X'=BYTE ADD. 1533 * 'Y'= WORD ADD. 1534 * EA = 2(Y) + CNT + (X)  1535 ****** 1536 * 1537 * COPY A,CNT(X,Y) 1538 * 0372 E252 0345 1539 B05060 COPY =CEL540,Y CEL540 WORD ADDRESS IN 'Y' 0373 2902 1540 COPY =2,X 0374 8028 0028 1541  COPY STATSV,A 0375 3000 1542 COPY A,S 0376 0900 1543 COPY =0,A 0377 8655 034D 1544 COPY A,CEL542 0378 8266 035F 1545 COPY =:5566,A 0379 0E25 1546 SBIT  BY,S 037A 84C2 0002 1547 COPY A,2(X,Y) CEL542 BYTE 0 = :66 037B 0E27 1548 RBIT BY,S 037C 8263 0360 1549 COPY =:6600,A 037D BA4F 034D 1550 CSK A,CEL542 037E 0000 1551  NOP 037F 0E0D 1552 HLT COPY FAILED -- CEL542=:6600 0380 9E71 0372 1553 JMP  B05060 PATCH FOR LOOPING 0380 0000 1553+ ORG $-1 0380 0000 1553+ NOP  OVERLAY WITH NOP 0381 9E84 0386 1554 JMP B05070 0001 1555 LPOOL 0382 1PAGE 0062 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:34.75 INSTRUCTION DIAGNOSTIC -- SEC. B0-5   1557 ****** 1558 * INDEXED INDIRECT ADDRESSING USING XREG 1559 *  -- BYTE MODE -- 1560 * COPY A,*CNT(X) AP =(CNT) (AP)=BYTE ADD 1561 *  EA= (AP)+(X) 1562 * 'X'=BYTE ADD 1563 ******  1564 * 0383 0000 1565 CEL570 WORD 0 0384 0000 1566 CEL571 WORD 0 0385 0000 1567 CEL572 WORD 0 1568 * 1569 * COPY A,*CNT(X) 1570 * 00000386 1571  B05070 EQU $ 0386 0902 1572 COPY =2,A 0387 8411 0011 1573 COPY A,TEMP01 0388 A2BA 03C3 1574 COPY =CEL571,X 0389 2E01 1575 SHIFT X,LO,1 CEL571 BYTE ADD IN 'X' 038A 8028 0028 1576 COPY STATSV,A 038B 3000 1577 COPY A,S 038C 0900 1578 COPY =0,A 038D 8677 0385 1579 COPY A,CEL572 038E 82B5 03C4 1580 COPY =:66FF,A 038F 0E25 1581  SBIT BY,S 0390 8591 0011 1582 COPY A,*TEMP01(X) CEL572 BYTE0 =:FF 0391 0E27 1583 RBIT BY,S 0392 0800 1584 COPY =:FF00,A 0393 BA71 0385 1585 CSK A,CEL572 0394 0000  1586 NOP 0395 0E0D 1587 HLT COPY FAILED -- A = CEL572 = :FF00 0396 9E6F 0386 1588 JMP B05070 PATCH FOR LOOPING 0396 0000 1588+ ORG $-1 0396 0000 1588+  NOP OVERLAY WITH NOP 1PAGE 0063 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:35.75 INSTRUCTION DIAGNOSTIC -- SEC. B0-5 1590 ****** 1591 * INDEXED INDIRECT ADDRESSING USING 'Y'. 1592 * -- BYTE MODE -- 1593 * COPY A,*CNT(Y) AP=(CNT)+(Y) (AP)=BYTE ADD. 1594 * EA=(AP) 1595 ****** 1596  * 1597 * COPY A,*CNT(Y) 1598 * 00000397 1599 B05080 EQU $ 0397 82AD 03C5 1600 COPY =CEL572,A 0398 0E01 1601 SHIFT A,LO,1 CEL572 BYTE ADD IN 'A' 0399 866A 0384  1602 COPY A,CEL571 039A E2AB 03C6 1603 COPY =CEL570,Y 039B 8028 0028 1604 COPY STATSV,A 039C 3000 1605 COPY A,S 039D 0900 1606 COPY =0,A 039E 8666 0385 1607  COPY A,CEL572 039F 82A4 03C4 1608 COPY =:66FF,A 03A0 0E25 1609 SBIT BY,S 03A1 8541 0001 1610 COPY A,*1(Y) CEL572 BYTE0 =:FF 03A2 0E27 1611 RBIT BY,S 03A3 0800 1612 COPY =:FF00,A 03A4 BA60 0385 1613 CSK A,CEL572 03A5 0000 1614 NOP 03A6 0E0D  1615 HLT COPY FAILED -- A = CEL572 = :FF00 03A7 9E6F 0397 1616 JMP B05080  PATCH FOR LOOPING 03A7 0000 1616+ ORG $-1 03A7 0000 1616+ NOP OVERLAY  WITH NOP 1PAGE 0064 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:36.50 INSTRUCTION DIAGNOSTIC -- SEC. B0-5 1618 ****** 1619 * INDEXED INDIRECT ADDRESSING USING AREG AND YREG  1620 * -- BYTE MODE -- 1621 * COPY A,*CNT(X,Y) AP=(Y)+(CNT) 1622 *  EA=(AP)+(X) 1623 ****** 1624 * 1625 * COPY A,*CNT(X,Y) 1626 * 000003A8 1627 B05090 EQU $ 03A8 829C 03C5 1628 COPY =CEL572,A 03A9 0E01 1629 SHIFT A,LO,1 CEL572 BYTE ADDR IN AREG 03AA 8659 0384 1630 COPY A,CEL571 03AB E29A 03C6 1631 COPY =CEL570,Y 03AC 2900 1632 COPY =0,X 03AD 8028 0028 1633 COPY STATSV,A 03AE 3000 1634 COPY A,S 03AF 0900 1635 COPY =0,A 03B0 8654 0385 1636 COPY A,CEL572 03B1 0866 1637 COPY =:FF66,A 03B2 C291 03C4 1638 COPY =:66FF,Q 03B3 0E25 1639 SBIT BY,S 03B4 85C1 0001 1640 COPY A,*1(X,Y) CEL572 BYTE0 =:66 03B5 0E27 1641 RBIT BY,S 03B6 8229 0360 1642 COPY =:6600,A 03B7 BA4D 0385 1643 CSK  A,CEL572 03B8 0000 1644 NOP 03B9 0E0D 1645 HLT COPY FAILED -- A = CEL572 = :6600 03BA 2901 1646 COPY =1,X 03BB 0E25 1647 SBIT BY,S 03BC C5C1 0001 1648  COPY Q,*1(X,Y) CEL572 BYTE1 =:FF 03BD 0E27 1649 RBIT BY,S 03BE FA46 0385 1650 CSK  Q,CEL572 03BF 0000 1651 NOP 03C0 0E0D 1652 HLT COPY FAILED -- Q = CEL572 = :66FF 03C1 9E66 03A8 1653 JMP B05090 PATCH FOR LOOPING 03C1 0000 1653+ ORG $-1  03C1 0000 1653+ NOP OVERLAY WITH NOP 03C2 9E88 03CB 1654 JMP B050B0 0005 1655 LPOOL 03C3 0384 CEL571 03C4 66FF 03C5 0385 CEL572 1PAGE 0065 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:37.75 INSTRUCTION DIAGNOSTIC -- SEC. B0-5 03C6 0383 CEL570 03C7 1PAGE 0066 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:37.75 INSTRUCTION DIAGNOSTIC -- SEC. B0-5  1657 ****** 1658 * TEST ADDRESSING MODES ON 'X' & 'Y'. 1659 * -- BYTE MODE -- 1660 ****** 1661 * 03C8 0000 1662 CEL5A0 WORD 0 03C9 0000 1663 CEL5A1 WORD 0 03CA 0000 1664 CEL5A2 WORD 0 1665 ****** 1666 * INDEXED DIRECT ADDRESSING 1667 * --BYTE MODE -- 1668 * COPY X,CNT(Y)  1669 * COPY Y,CNT(X) 1670 ****** 1671 * 1672 *  1673 * COPY X,CNT(Y) 1674 * 000003CB 1675 B050B0 EQU $ 03CB E2BB 0407 1676 COPY   =CEL5A0,Y 03CC A01B 001B 1677 COPY PT5555,X 03CD 8028 0028 1678 COPY STATSV,A 03CE 3000  1679 COPY A,S 03CF 0E25 1680 SBIT BY,S 03D0 A442 0002 1681 COPY X,2(Y)  CEL5A1 BYTE0 =:55 03D1 A443 0003 1682 COPY X,3(Y) CEL5A1 BYTE1 =:55 03D2 0E27 1683 RBIT BY,S 03D3 801B 001B 1684 COPY PT5555,A 03D4 BA74 03C9 1685 CSK A,CEL5A1 03D5 0000  1686 NOP 03D6 0E0D 1687 HLT COPY FAILED. 'X'=:5555 CEL5A1= :5555  1688 * 1689 * COPY Y,CNT(X) 1690 * 000003D7 1691 B050B1 EQU $ 03D7 A2AF 0407 1692 COPY =CEL5A0,X 03D8 2E01 1693 SHIFT X,LO,1 CEL5A0 BYTE ADDR IN XREG 03D9 E017 0017 1694 COPY PTF0F0,Y 03DA 8028 0028 1695 COPY STATSV,A 03DB 3000 1696 COPY A,S 03DC 0E25 1697 SBIT BY,S 03DD E482 0002 1698 COPY Y,2(X) CEL5A1 BYTE 0 =:F0 03DE E483 0003 1699 COPY Y,3(X) BYTE 1 = :F0 1PAGE 0067 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:39.00 INSTRUCTION DIAGNOSTIC -- SEC. B0-5 03DF 0E27 1700 RBIT BY,S 03E0 8017 0017 1701 COPY PTF0F0,A 03E1 BA67 03C9 1702 CSK A,CEL5A1 03E2 0000 1703  NOP 03E3 0E0D 1704 HLT COPY FAILED 'Y'= :F0F0 =CEL5A1 03E4 9E72 03D7 1705 JMP  B050B1 PATCH FOR LOOPING 03E4 0000 1705+ ORG $-1 03E4 0000 1705+ NOP  OVERLAY WITH NOP 03E5 9E80 03E6 1706 JMP B06000 1PAGE 0068 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:39.25 INSTRUCTION DIAGNOSTIC -- SEC. B0-6 1708 ************************************************** 1709 * ----- B06000 ----- 1710 * 1711 *  TEST COPY 4REG,MEM USING MULTIPLE LEVEL 1712 * INDIRECT ADDRESSING FOR WORD MODE. 1713 * 1714 ************************************************** 1715 * 1716 *  INDEXED INDIRECT ADDRESSING USING 'X'. 1717 * 1718 * COPY A,*TEMP01(X) TEMP01 = AP1 1719 * (TEMP01) = TEMP02 = AP2 XA=0, BIT 15=1 1720 *  (TEMP02) + (X) = EA 1721 *************************************************  1722 * 1723 * COPY A,*MEM(X) 000003E6 1724 B06000 EQU $ 03E6 0900 1725  COPY =0,A 03E7 3000 1726 COPY A,S RESET XA 03E8 8412 0012 1727 COPY A,TEMP02 03E9 0912 1728 COPY =TEMP02,A 03EA B69D 0408 1729 OR =:8000,A 03EB 8411 0011 1730  COPY A,TEMP01 TEMP01 = TEMP02 ADD + BIT 15 SET 03EC 2913 1731 COPY =TEMP,X 03ED 8016 00 16 1732 COPY PTFFFF,A 03EE 8591 0011 1733 COPY A,*TEMP01(X) :FFFF TO TEMP 03EF C028 0028 1734  COPY STATSV,Q 03F0 3040 1735 COPY Q,S 03F1 B813 0013 1736 CSK A,TEMP 03F2 0000 1737 NOP 03F3 0E0D 1738 HLT CSK FAILED IF 'A'= :FFFF =TEMP ELSE COPY 03F4 9E71 03E6 1739 JMP B06000 PATCH FOR LOOPING 03F4 0000 1739+ ORG $-1 03F4 0000  1739+ NOP OVERLAY WITH NOP 1PAGE 0069 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:40.25 INSTRUCTION DIAGNOSTIC -- SEC. B0-6 1741 ************************************************* 1742 * 1743 * INDEXED INDIRECT ADRESSING USING 'Y'. 1744 * 1745 * COPY A,*TEMP01(Y) TEMP01 + (Y) = AP1 1746 *  (AP1) = TEMP02 = AP2 XA=0, BIT 15=1 1747 * (TEMP02) = EA 1748 * 1749 ************************************************* 1750 * 1751 * CNOSTIC -- SEC. D3-5 3569 ****** 3570 * 3571 * ---- D35000 ----  3572 * 3573 * SBIT BIT,A 3574 * 3575 ****** 00000888 3576 D35000 EQU $ 0888 4900 3577 COPY =0,Q CLEAR INDEX REGISTER 0889 2910 3578  COPY =:10,X VALUE OF INDEX INCREMENT 088A 801D 001D 3579 D35001 COPY PTAAAA,A 088B 430A 3580 XNX Q 088C 000C 3581 SBIT 0,A SET BIT INDEXED BY Q 088D 430A 3582  XNX Q 088E 0E09 3583 SHIFT A,RO,1 MOVE BIT SET TO OV 088F 3641 0891 3584 JT OV,$+2 TEST IF SBIT EXECUTED PROPERLY 0890 0E0D 3585 HLT SBIT FAILED -- BIT# OF FAILURE IN QREG BITS 4-7 0891 4022 3586 ADD X,Q INCREMENT INDEX VALUE 0892 FA94 08A7 3587  CSK Q,=:0100 LAST BIT TESTED? 0893 9E76 088A 3588 JMP D35001 NO,CONTINUE 0894 0000 3589 NOP 3590 * 3591 ****** 3592 * 3593 * ---- D36000 ---- 3594 * 3595 * RBIT BIT,Q 3596 * 3597 ****** 0895 4902 3598 COPY =2,Q 0896 400D 3599 RBIT 0,Q 0897 401D 3600 RBIT 1,Q 0898 4D00 3601 CSK Q,=0 0899 0000 3602 NOP 089A 0E0D 3603 HLT RBIT FAILED -- QREG BIT1 SHOULD = 0 1PAGE 0137 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:38.25 INSTRUCTION DIAGNOSTIC -- SEC. D3-7 3605 ****** 3606 * ---- D37000 ---- 3607 * 3608 * CBIT BIT,X 3609 * 3610   ****** 089B 2908 3611 COPY =8,X 089C 203E 3612 CBIT 3,X 089D 204E 3613  CBIT 4,X 089E 2D10 3614 CSK X,=:10 089F 0000 3615 NOP 08A0 0E0D 3616  HLT CBIT FAILED -- XREG BIT4 SHOULD = 1 3617 ****** 3618 * ---D38000--- 3619 * 3620 * TBIT BIT,Y 3621 ******** 08A1 69FF 3622  COPY =:FF,Y 08A2 607F 3623 TBIT 7,Y 08A3 3641 08A5 3624 JT OV,$+2 08A4 0E0D  3625 HLT TBIT FAILED -- OV SHOULD BE 1 08A5 9E62 0888 3626 JMP D35000 PATCH FOR LOOPING 08A5 0000 3626+ ORG $-1 08A5 0000 3626+ NOP OVERLAY WITH NOP 08A6 9E82 08A9 3627 JMP D39000 0002 3628 LPOOL 08A7 0100 08A8 000008A9 3629  D39000 EQU $ 1PAGE 0138 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:39.00 INSTRUCTION DIAGNOSTIC -- SEC. E 3631 ************************************************** 3632 *  3633 * ---------- SECTION E ---------- 3634 * 3635 * TESTING OF THE FOLLOWING INSTRUCTIONS: 3636 * 3637 * COPY -LIT,4REG E01000  3638 * ADD LIT,4REG E03000 3639 * SUB LIT,4REG E04000  3640 * CLSN LIT,4REG E05000 3641 * AND LIT,4REG E11000  3642 * OR LIT,4REG E12000 3643 * XOR LIT,4REG E13000  3644 * CSK 2REG,LIT E14000 3645 * 3646 ************************************************** 3647 * 3648 * TEST STRUCTURE: 3649 *  3650 * EACH INSTRUCTION IS TESTED WITH ONE REGISTER. 3651 * ADD LIT,4REG AND SUB 4REG,LIT ARE CHECKED 3652 * FOR CORRECT EFFECT ON OV. CLSN LIT,4REG IS 3653 * CHECKED FOR EACH OUTCOME. 3654 * 3655 ************************************************** 1PAGE  0139 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:39.75 INSTRUCTION DIAGNOSTIC -- SEC. E0-1 3657 ****** 3658 * 3659 * ---- E01000 ---- 3660 *  3661 * COPY -LIT,A 3662 * 3663 ****** 000008A9 3664 E01000  EQU $ 08A9 085B 3665 COPY =-:A5,A 08AA BAB9 08E4 3666 CSK A,=:FF5B 08AB 0000  3667 NOP 08AC 0E0D 3668 HLT COPY FAILED -- A SHOULD = :FF5B 1PAGE 0140 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:40.00 INSTRUCTION DIAGNOSTIC -- SEC. E0-3 !  3670 ****** 3671 * 3672 * ---- E03000 ---- 3673 *  3674 * ADD LIT,Q 3675 * 3676 ****** 000008AD 3677 E03000 EQU $ 08AD C2B7 08E5 3678 COPY =:7F00,Q 08AE 4BFF 3679 ADD =:FF,Q 08AF F81A 001A 3680 CSK Q,PT7FFF 08B0 0000 3681 NOP 08B1 0E0D 3682 HLT ADD FAILED -- Q SHOULD = :7FFF 3683 * 3684 * POS. OVERFLOW 3685 * 3686 * 08B2 4B01 3687 ADD =1,Q 08B3 FBB2 08E6 3688 CSK Q,PT8000 08B4 0000 3689 NOP 08B5 0E0D 3690 HLT ADD FAILED -- QREG SHOULD =:8000 08B6 3641 08B8 3691 JT  OV,$+2 08B7 0E0D 3692 HLT ADD FAILED -- OV SHOULD =1 08B8 9E70 08A9 3693 JMP  E01000 PATCH FOR LOOPING 08B8 0000 3693+ ORG $-1 08B8 0000 3693+ NOP  OVERLAY WITH NOP 1PAGE 0141 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:40.75 INSTRUCTION DIAGNOSTIC -- SEC. E0-3 3695 ******* 3696 * 3697 * ---E04000--- 3698 * SUB LIT,X 3699 * 3700 ****** 000008B9 3701 E04000 EQU $ 08B9 A01D 001D 3702 COPY PTAAAA,X 08BA 2A9A 3703 SUB =:66,X 08BB 0020  3704 COPY X,A 08BC BAAA 08E7 3705 CSK A,=:AA44 08BD 0000 3706 NOP 08BE 0E0D  3707 HLT SUB FAILED -- X SHOULD = :AA44 3708 * 3709 * NEG. OVERFLOW 3710 * 08BF E3A6 08E6 3711 COPY PT8000,Y 08C0 6AFF 3712 SUB =1,Y 08C1 0060 3713 COPY Y,A 08C2 B81A 001A 3714 CSK A,PT7FFF 08C3 0000 3715  NOP 08C4 0E0D 3716 HLT SUB FAILED -- Y SHOULD = :7FFF 08C5 3641 08C7 3717 JT  OV,$+2 08C6 0E0D 3718 HLT SUB FAILED -- OV SHOULD BE 1 1PAGE 0142 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:41.50 INSTRUCTION DIAGNOSTIC -- SEC. E0-5 3720 ****** 3721 * 3722 * ---- E05000 ---- 3723 * 3724 *  CLSN LIT,Y 3725 * 3726 ****** 000008C7 3727 E05000 EQU $ 08C7 E01D 001D 3728 COPY PTAAAA,Y 08C8 6CAA 3729 CLSN =:00AA,Y 08C9 9E81 08CB 3730 JMP $+2 08CA 0E0D 3731 HLT CLSN FAILED -- BYTE1 OF Y = :AA 08CB 6CA5 3732 CLSN  =:00A5,Y 08CC 0E0D 3733 HLT CLSN FAILED -- BYTE1 OF Y NOT = :A5 08CD 9E6B 08B9 3734  JMP E04000 PATCH FOR LOOPING 08CD 0000 3734+ ORG $-1 08CD 0000 3734+ NO" P OVERLAY WITH NOP 1PAGE 0143 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:42.00 INSTRUCTION DIAGNOSTIC -- SEC. E1-1 3736 ****** 3737 * 3738 * ---- E11000 ---- 3739 * 3740 * AND LIT,X 3741 * 3742 ****** 000008CE 3743 E11000 EQU $ 08CE A01D 001D 3744 COPY PTAAAA,X 08CF 3866 3745  AND =:0066,X 08D0 2D22 3746 CSK X,=:0022 08D1 0000 3747 NOP 08D2 0E0D  3748 HLT AND FAILED -- X SHOULD = :0022 3749 ****** 3750 *  3751 * ---- E12000 ---- 3752 * 3753 * OR LIT,Q 3754 * 3755 ****** 000008D3 3756 E12000 EQU $ 08D3 C01B 001B 3757 COPY PT5555,Q 08D4 5966 3758 OR =:0066,Q 08D5 FA92 08E8 3759 CSK Q,=:5577 08D6 0000 3760  NOP 08D7 0E0D 3761 HLT OR FAILED -- QREG SHOULD =:5577 1PAGE 0144 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:42.75 INSTRUCTION DIAGNOSTIC -- SEC. E1-1 3763 ******** 3764 * ---E13000--- 3765 * 3766 * XOR LIT,A 3767 * 3768 ******* 000008D8 3769 E13000 EQU $ 08D8 801C 001C 3770 COPY PT6666,A 08D9 1733 3771 XOR =:0033,A 08DA BA8E 08E9 3772 CSK A,=:6655 08DB 0000 3773  NOP 08DC 0E0D 3774 HLT XOR FAILED -- A SHOULD = :6655 3775 ******  3776 * ---- E14000 ---- 3777 * 3778 * CSK A,LIT SPECIAL TEST  3779 * 3780 ****** 000008DD 3781 E14000 EQU $ 08DD 8388 08E6 3782  COPY PT8000,A 08DE 0D01 3783 CSK A,=1 08DF 9E82 08E2 3784 JMP $+3 08E0 0000 3785 NOP 08E1 0E0D 3786 HLT CSK FAILED -- A SHOULD BE < 1 08E2 9E6B 08CE 3787  JMP E11000 PATCH FOR LOOPING 08E2 0000 3787+ ORG $-1 08E2 0000 3787+ NOP OVERLAY WITH NOP 08E3 9E87 08EB 3788 JMP F11000 0007 3789 LPOOL 08E4 FF5B 08E5 7F00 08E6 00FA PT8000 08E7 AA44 08E8 5577 08E9 6655 08EA 1PAGE 0145 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:43.50 INSTRUCTION DIAGNOSTIC -- SEC. F 3791 ******************************************************* 3792 * 3793 * ---------- SECTION F ----------  3794 * 3795 * TESTING OF THE FOLLOWING INSTRUCTIONS: 3796 * 3797 * IJEQ 4REG,MEM F11000 3798 * IJNE 4REG,MEM F11000 #  3799 * JEQD 4REG,MEM F12000 3800 * JNED 4REG,MEM F12000  3801 * JT CY,MEM F13000 3802 * JF CY,MEM F13000  3803 * JT SS,MEM F14000 3804 * JF SS,MEM F14000  3805 * 3806 ******************************************************* 3807 *  3808 * TEST STRUCTURE: 3809 * 3810 * EACH INSTRUCTION IS TESTED FOR BOTH CONDITIONS 3811 * OF THE JUMP. INSTRUCTIONS IN SECTIONS F1-1 AND 3812 * F1-2 ARE TESTED WITH ONE REGISTER EACH 3813 * 3814 ******************************************************* 1PAGE 0146 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:44.00 INSTRUCTION DIAGNOSTIC -- SEC. F1-1 3816 ****** 3817 * 3818 * ---- F11000 ----  3819 * 3820 * IJEQ A,MEM 3821 * IJNE Q,MEM 3822 *  3823 ****** 08EB 08FF 3824 F11000 COPY =-1,A 08EC 1441 08EE 3825 IJEQ A,$+2 08ED 0E0D 3826 HLT IJEQ FAILED -- A SHOULD = O 08EE 1441 08F0 3827 IJEQ A,$+2 08EF 9E81 08F1 3828 JMP $+2 08F0 0E0D 3829 HLT IJNE FAILED -- AREG SHOULD =1 08F1 0D01 3830 CSK A,=1 08F2 0000 3831 NOP 08F3 0E0D 3832 HLT  IJEQ FAILED -- DID NOT INCREMENT AREG 08F4 48FF 3833 COPY =-1,Q 08F5 54C1 08F7 3834 IJNE  Q,$+2 08F6 9E81 08F8 3835 JMP $+2 08F7 0E0D 3836 HLT IJNE FAILED -- QREG SHOULD BE =0 08F8 54C1 08FA 3837 IJNE Q,$+2 08F9 0E0D 3838 HLT IJNE FAILED -- QREG SHOULD =1 08FA 4D01 3839 CSK Q,=1 08FB 0000 3840 NOP 08FC 0E0D 3841  HLT IJNE FAILED -- DID NOT INCREMENT Q 08FD 9E6D 08EB 3842 JMP F11000 PATCH FOR LOOPING 08FD 0000 3842+ ORG $-1 08FD 0000 3842+ NOP OVERLAY WITH NOP 1PAGE  0147 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:45.00 INSTRUCTION DIAGNOSTIC -- SEC. F1-2 3844 ****** 3845 * 3846 * ---- F12000 ---- 3847 *  3848 * JEQD X,MEM 3849 * JNED Y,MEM 3850 * 3851 ****** 000008FE 3852 F12000 EQU $ 08FE 2901 3853 COPY =1,X 08FF 3541 0901 3854  JEQD X,$+2 0900 9E81 0902 3855 JMP $+2 0901 0E0D 3856 HLT JEQD FAILED -- X SHOULD = 0 0902 3541 0904 3857 JEQD X,$+2 0903 0E0D 3858 HLT JEQD F$ AILED -- X SHOULD = :FFFF 0904 0020 3859 COPY X,A 0905 B816 0016 3860 CSK A,PTFFFF X SHOULD = :FFFF 0906 0000 3861 NOP 0907 0E0D 3862 HLT JEQD FAILED -- DID NOT DECREMENT X 3863 * 0908 6901 3864 COPY =1,Y 0909 75C1 090B 3865 JNED Y,$+2 090A 0E0D 3866 HLT JNED FAILED -- Y SHOULD = 0 090B 75C1 090D 3867 JNED Y,$+2 090C 9E81 090E 3868 JMP $+2 090D 0E0D 3869 HLT JNED FAILED -- Y SHOULD = :FFFF 090E 0060 3870 COPY Y,A 090F B816 0016 3871 CSK A,PTFFFF Y SHOULD = :FFFF 0910 0000 3872 NOP 0911 0E0D 3873 HLT JNED FAILED -- DID NOT DECREMENT Y 0912 9E6B 08FE 3874 JMP F12000 PATCH FOR LOOPING 0912 0000 3874+ ORG $-1 0912 0000  3874+ NOP OVERLAY WITH NOP 1PAGE 0148 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:46.25 INSTRUCTION DIAGNOSTIC -- SEC. F1-3 3876 ****** 3877 *  3878 * F13000 3879 * 3880 * JT CY,MEM 3881 *  JF CY,MEM 3882 * 3883 ****** 00000913 3884 F13000 EQU $ 0913 8028 0028 3885 COPY STATSV,A 0914 3000 3886 COPY A,S CLEAR STATUS 0915 0E05 3887  SBIT CY,S SET CARRY BIT 0916 56C2 0919 3888 JF CY,$+3 0917 5642 091A 3889 JT CY,$+3 0918 0E0D 3890 HLT JT FAILED FOR CY = 1 0919 0E0D 3891 HLT  JF FAILED FOR CY = 1 091A 0030 3892 COPY S,A 091B B828 0028 3893 CSK A,STATSV 091C 0000 3894 NOP 091D 0E0D 3895 HLT JT FAILED -- DID NOT RESET CY 091E 5642 0921 3896 JT CY,$+3 091F 56C2 0922 3897 JF CY,$+3 0920 0E0D 3898 HLT JF FAILED FOR CY = 0 0921 0E0D 3899 HLT JT FAILED FOR CY = 0 1PAGE 0149 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:47.00 INSTRUCTION DIAGNOSTIC -- SEC. F1-3  3901 ******* 3902 * 3903 * ---F14000--- 3904 *  3905 * JT SS,MEM 3906 * JF SS,MEM 3907 * 3908 *******  00000922 3909 F14000 EQU $ 0922 0901 3910 COPY =1,A 0923 0200 3911 OUT A,0 SET SENSE SWITCH 0924 16C2 0927 3912 JF SS,$+3 0925 1642 0928 3913 JT SS,$+3 0926 0E0D 3914 HLT JT FAILED -- SENSE SWITCH SHOULD = 1 0927 0E0D 3915 HLT  JF FAILED -- SENSE SWITCH SHOULD = 1 0928 0900 3916 COPY =0,A 0929 0200 3917 %  OUT A,0 RESET SENSE SWITCH 092A 1642 092D 3918 JT SS,$+3 092B 16C2 092E 3919 JF SS,$+3 092C 0E0D 3920 HLT JF FAILED -- SENSE SWITCH SHOULD = 0 092D 0E0D 3921 HLT JT FAILED -- SENSE SWITCH SHOULD = 0 092E 9E64 0913 3922 JMP F13000 PATCH FOR LOOPING 092E 0000 3922+ ORG $-1 092E 0000 3922+ NOP OVERLAY WITH NOP 092F 9E81 0931 3923 JMP F14010 0001 3924 LPOOL 0930 00000931 3925 F14010  EQU $ 1PAGE 0150 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:47.75 INSTRUCTION DIAGNOSTIC -- SEC. H0-1 3927 ************************************************** 3928 *  3929 * ---------- SECTION H0 ---------- 3930 * 3931 * TESTING OF THE FOLLOWING INSTRUCTION: 3932 * 3933 * ADDC MEM,2REG H01000 3934 * 3935 ************************************************** 3936 * 3937 * TEST STRUCTURE: 3938 * 3939 * ADDC IS TESTED USING ALL ADDRESSING MODES:  3940 * 3941 * ABSOLUTE DIRECT 3942 * ABSOLUTE INDIRECT  3943 * ABSOLUTE DIRECT INDEXED 3944 * ABSOLUTE INDIRECT INDEXED  3945 * RELATIVE DIRECT 3946 * RELATIVE INDIRECT 3947 * RELATIVE DIRECT INDEXED 3948 * RELATIVE INDIRECT INDEXED 3949 *  3950 * TESTING OF EACH MODE WITH INDEXED ADDRESSING 3951 * INCLUDES TESTING OF PRE, POST, AND PRE-POST 3952 * INDEXED ADDRESSING. 3953 * 3954 ************************************************** 1PAGE 0151 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:48.50 INSTRUCTION DIAGNOSTIC -- SEC. H0-1 3956 ****** 3957 * 3958 * ABSOLUTE DIRECT ADDRESSING 3959 * 3960 ****** 00000931 3961 H01000 EQU  $ 0931 8016 0016 3962 COPY PTFFFF,A 0932 8411 0011 3963 COPY A,TEMP01 0933 0900 3964  COPY =0,A 0934 0702 3965 ADDC TEMP01,A 0935 0011 0936 B816 0016 3966 CSK A,PTFFFF 0937 0000 3967 NOP 0938 0E0D 3968 HLT ADDC FAILED -- AREG SHOULD =:FFFF 3969 ******** 3970 * 3971 * ABSOLUTE INDIRECT ADDRESSING  3972 * 3973 ******** 00000939 3974 H01010 EQU $ 0939 0911 3975 COPY  =TEMP01,A 093A 8412 0012 3976 COPY A,TEMP02 093B 0900 3977 COPY =0,A 093C 0742 3978&  ADDC *TEMP02,A ADD TEMP01 TO AREG 093D 0012 093E B816 0016 3979 CSK A,PTFFFF 093F 0000  3980 NOP 0940 0E0D 3981 HLT ADDC FAILED -- A SHOULD = :FFFF 0941 9E6F 0931 3982 JMP H01000 PATCH FOR LOOPING 0941 0000 3982+ ORG $-1 0941 0000 3982+  NOP OVERLAY WITH NOP 1PAGE 0152 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:49.25 INSTRUCTION DIAGNOSTIC -- SEC. H0-1 3984 ****** 3985 * 3986 * ABSOLUTE DIRECT INDEXED ADDRESSING USING (X) 3987 * 3988 ****** 00000942 3989 H01020 EQU $ 0942 2911 3990 COPY =TEMP01,X 0943 801D 001D 3991 COPY PTAAAA,A 0944 8412 0012 3992 COPY A,TEMP02 0945 0900 3993 COPY =0,A 0946 0722 3994 ADDC 1(X),A ADD TEMP02 TO A 0947 0001 0948 B81D 001D 3995 CSK A,PTAAAA 0949 0000 3996  NOP 094A 0E0D 3997 HLT ADDC FAILED -- A SHOULD = :AAAA 3998 *  3999 ****** 4000 * 4001 * ABSOLUTE INDIRECT INDEXED ADDRESSING USING (X)  4002 * 4003 ****** 0000094B 4004 H01030 EQU $ 094B 0901 4005 COPe811009012537811009012537811201085517e811009012537811009012537811201085516e' 811009012537811009012537811201082316e811009012537811009012537811009012537811009012537811009012537811009012537e.(L8111301236247581113012392300811130124227e8111300936137581113009363650811130093636. PAT404P1 LSTPAT404P1 ASM( OPY A,*0(Y) 1752 * 000003F5 1753 B06010 EQU $ 03F5 0900 1754 COPY =0,A 03F6 3000 1755 COPY A,S RESET XA 03F7 0913 1756 COPY =TEMP,A 03F8 8412 0012 1757 COPY A,TEMP02 TEMP02 = TEMP ADD. 03F9 0912 1758 COPY =TEMP02,A 03FA B78B 0406 1759 OR PT8000,A 03FB 8411 0011 1760 COPY A,TEMP01 TEMP01 = TEMP02 ADD + BIT15 SET 03FC 6911  1761 COPY =TEMP01,Y 03FD C01D 001D 1762 COPY PTAAAA,Q 03FE C540 0000 1763 COPY  Q,*0(Y) :AAAA TO TEMP 03FF 8028 0028 1764 COPY STATSV,A 0400 3000 1765 COPY A,S 0401 F813 0013 1766 CSK Q,TEMP 0402 0000 1767 NOP 0403 0E0D 1768 HLT  CSK FAILED IF AREG=:FFFF=TEMP ELSE COPY FAILED 0404 9E70 03F5 1769 JMP B06010 PATCH FOR LOOPING 0404 0000 1769+ ORG $-1 0404 0000 1769+ NOP OVERLAY WITH NOP 00000405 1770 LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 0405 0000 1770+ NOP  RESERVE SPACE FOR JMP INSTRUCTION 0003 1770+ LPOOL 0406 00FA PT8000 0407 03C8 CEL5A0 0408 8000 00000409 1770+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 0405 0000 1770+ ORG  LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 0405 9E83 0409 1770+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 0409 0000 1770+ ORG LP::L1 CONTINUE AT END OF LPOOL 1PAGE 0070 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:41.50 INSTRUCTION DIAGNOSTIC -- SEC. B1-1 1772 ****************************************************** 1773 * 1774 * ----------- SECTION B1 ---------- 1775 * 1776 * TESTING OF THE FOLLOWING INSTRUCTIONS: 1777 *  1778 * COPY MEM,4REG B11000 1779 * CSK 2REG,MEM B12000  1780 * ADD MEM,4REG B13000 1781 * SUB MEM,4REG B14000  1782 * JST MEM B16000 1783 * EXCH MEM,4REG B17000 1784 * 1785 ****************************************************** 1PAGE 0071 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:42.00 INSTRUCTION DIAGNOSTIC -- SEC. B1-1 1787 ****************************************************** 1788 * 1789 * ----------- TEST STRUCTURE ----------  1790 * 1791 * B11000 -- COPY MEM,4REG IS TESTED IN BYTE MODE 1792 *  (WORD MODE TESTED IN SEC. A0). BYTE 1793 * ADDRESSABILITY OF THREE SUCCESSIVE  1794 * BYTES IS TESTED. ONE ADDRESSING MODE 1795 * IS TESTED 1) 796 * 1797 * B12000 -- SAME AS B11000, PLUS ONE SPECIAL CASE IS TESTED 1798 *  1799 * B13000 -- ADD MEM,4REG IS TESTED FOR POSITIVE 1800 * AND NEGATIVE OVERFLOW, IN ADDITION TO 1801 * NORMAL OPERATION, WITH ONE ADDRESSING 1802 * MODE. WORD MODE AND BYTE MODE ARE TESTED 1803 * 1804 * B14000 -- SUB MEM,4REG IS TESTED WITH ONE ADDRESSING 1805 * MODE. WORD MODE AND BYTE MODE ARE TESTED. 1806 *  1807 * B16000 -- JST MEM IS TESTED WITH ONE ADDRESSING MODE 1808 * 1809 * B17000 --  EXCH MEM,4REG IS TESTED WITH ALL ADDRESSING 1810 * MODES. WORD MODE AND BYTE MODE ARE TESTED.  1811 * 1812 ****************************************************** 1PAGE 0072 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:42.75 INSTRUCTION DIAGNOSTIC -- SEC. B1-1 1814 ******************************************************* 1815 * 1816 * ---- SECTION B11000 ---- 1817 * 1818 * TEST COPY MEM,REG USING 1819 * POST INDEXED DIRECT ADDRESSING - BYTE MODE. 1820 * THREE ADJACENT BYTE ADDRESSES ARE CHECKED. 1821 * 1822 ******************************************************* 0409 8014 0014 1823 B11000 COPY PT55AA,A 040A 8411 0011 1824 COPY A,TEMP01 040B 8412 0012 1825 COPY A,TEMP02 040C 2911 1826 COPY =TEMP01,X 040D 2E01 1827 SHIFT X,LO,1 040E 0E25 1828 SBIT BY,S 040F 8080 0000 1829 COPY 0(X),A 0410 C081 0001 1830 COPY 1(X),Q 0411 E082 0002 1831 COPY 2(X),Y 0412 0E27 1832 RBIT BY,S 0413 0D55 1833 CSK A,=:55 0414 0000 1834  NOP 0415 0E0D 1835 HLT COPY FAILED -- AREG SHOULD BE =:55 0416 4DAA 1836  CSK Q,=:AA 0417 0000 1837 NOP 0418 0E0D 1838 HLT COPY FAILED -- QREG SHOULD BE =:AA 0419 6D55 1839 CSK Y,=:55 041A 0000 1840 NOP 041B 0E0D 1841  HLT COPY FAILED -- Y SHOULD = :55 041C 9E6C 0409 1842 JMP B11000 PATCH FOR LOOPING 041C 0000 1842+ ORG $-1 041C 0000 1842+ NOP OVERLAY WITH NOP 1PAGE 0073 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:43.75 INSTRUCTION DIAGNOSTIC -- SEC. B1-2 1844 ******************************************************* 1845 *  1846 * TEST CSK REG,MEM USING 1847 * PRE INDEXED DIRECT ADDRESSING - BYTE MODE. 1848 * 1849 ******************************************************* 0000041D 1850 B12000 EQU $*  041D 8018 0018 1851 COPY PT00FF,A 041E 8411 0011 1852 COPY A,TEMP01 041F 8014 0014 1853  COPY PT55AA,A 0420 8412 0012 1854 COPY A,TEMP02 0421 6911 1855 COPY =TEMP01,Y 0422 0955 1856 COPY =:55,A 0423 0E25 1857 SBIT BY,S 0424 B840 0000 1858 CSK  A,0(Y) COMPARE A TO 0 0425 0E0D 1859 HLT CSK FAILED -- A > MEM 0426 9E81 0428 1860 JMP $+2 0427 0E0D 1861 HLT CSK FAILED -- A > MEM 0428 0E25 1862  SBIT BY,S 0429 B841 0001 1863 CSK A,1(Y) COMPARE A TO :FF 042A 9E82 042D 1864 JMP $+3 042B 0000 1865 NOP 042C 0E0D 1866 HLT CSK FAILED -- A < MEM 042D 0E25 1867 SBIT BY,S 042E B842 0002 1868 CSK A,2(Y) COMPARE A TO :55 042F 0000  1869 NOP 0430 0E0D 1870 HLT CSK FAILED -- A = MEM 0431 0E27 1871  RBIT BY,S 1PAGE 0074 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:44.75 INSTRUCTION DIAGNOSTIC -- SEC. B1-2 1873 ****** 1874 * 1875 * SPECIAL CASE CSK TEST -- WORD MODE 1876 * 1877 ****** 0432 C353 0406 1878 COPY PT8000,Q 0433 0901 1879 COPY =1,A 0434 8411 0011 1880 COPY A,TEMP01 0435 F811 0011 1881 CSK  Q,TEMP01 0436 9E82 0439 1882 JMP $+3 0437 0000 1883 NOP 0438 0E0D 1884 HLT CSK FAILED -- Q < MEM 0439 9E63 041D 1885 JMP B12000 PATCH FOR LOOPING 0439 0000 1885+ ORG $-1 0439 0000 1885+ NOP OVERLAY WITH NOP 1PAGE 0075 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:45.25 INSTRUCTION DIAGNOSTIC -- SEC. B1-3  1887 ******************************************************* 1888 * 1889 * ---- SECTION B1-3 1890 * 1891 * TEST ADD MEM,REG USING 1892 * DIRECT RELATIVE ADDRESSING 1893 * 1894 *******************************************************  1895 * 1896 * ADD MEM,A WORD MODE 1897 * 0000043A 1898 B13000 EQU $ 043A 8028 0028 1899 COPY STATSV,A 043B 3000 1900 COPY A,S 043C 801B 001B 1901 COPY PT5555,A 043D 86B3 0471 1902 COPY A,CEL300 043E 82A7 0466 1903 COPY =:1FFF,A 043F 8AB1 0471 1904 ADD CEL300,A 0440 BAA6 0467 1905 CSK A,=:7554 0441 0000 1906  NOP 0442 0E0D 1907 HLT ADD FAILED -- AREG SHOULD =:7554 1908 *  1909 * ADD MEM,Q OVERFLOW 1910 * 0443 82A4 0468 1911 COPY =:5AAA,A 0444+  86AC 0471 1912 COPY A,CEL300 0445 C2A3 0469 1913 COPY =:2FFF,Q 0446 CAAA 0471 1914 ADD CEL300,Q 0447 3641 0449 1915 JT OV,$+2 0448 0E0D 1916 HLT ADD FAILED -- DID NOT SET OVERFLOW 0449 FAA0 046A 1917 CSK Q,=:8AA9 044A 0000 1918 NOP 044B 0E0D  1919 HLT ADD FAILED -- Q SHOULD = :8AA9 1920 * 1921 * ADD MEM,X OVERFLOW 1922 * 044C 8028 0028 1923 COPY STATSV,A 044D 3000 1924  COPY A,S 044E 801D 001D 1925 COPY PTAAAA,A 044F 86A1 0471 1926 COPY A,CEL300 0450 A29A 046B 1927 COPY =:A000,X 0451 AA9F 0471 1928 ADD CEL300,X 0452 3641 0454 1929 JT  OV,$+2 1PAGE 0076 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:46.50 INSTRUCTION DIAGNOSTIC -- SEC. B1-3 0453 0E0D 1930 HLT ADD FAILED -- DID NOT SET OVERFLOW 0454 0020 1931 COPY X,A 0455 BA96 046C 1932 CSK A,=:4AAA 0456 0000 1933 NOP 0457 0E0D  1934 HLT ADD FAILED -- X SHOULD = 4AAA 1935 * 1936 * ADDB MEM,Y BYTE MODE 1937 * 0458 8028 0028 1938 COPY STATSV,A 0459 3000 1939  COPY A,S 045A 6910 1940 COPY =:0010,Y 045B 4810 1941 COPY =:FF10,Q 045C C694 0471 1942 COPY Q,CEL300 045D 0E25 1943 SBIT BY,S 045E EAA4 08E2 1944 ADDB CEL300,Y 045F 0E27 1945 RBIT BY,S 0460 0060 1946 COPY Y,A 0461 BA8B 046D 1947 CSK A,=:010F 0462 0000 1948 NOP 0463 0E0D 1949 HLT ADDB FAILED -- Y SHOULD = :010F 0464 9E55 043A 1950 JMP B13000 PATCH FOR LOOPING 0464 0000 1950+ ORG $-1 0464 0000 1950+ NOP OVERLAY WITH NOP 0465 9E8C 0472 1951 JMP B14000  000B 1952 LPOOL 0466 1FFF 0467 7554 0468 5AAA 0469 2FFF 046A 8AA9 046B A000 046C 4AAA 046D 010F 046E 046F 0470 0471 0000 1953 CEL300 RES 1,0 1PAGE 0077 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:47.25 INSTRUCTION DIAGNOSTIC -- SEC. B1-4 1955 ******************************************************* 1956 * 1957 * ---- SECTION B14000 1958 *  1959 * TEST SUB MEM,REG USING 1960 * ABSOLUTE DIRECT ADDRESSING 1961 *  1962 ******************************************************* 1963 * 1964 * SUB MEM,A 1965 * 0472 8028 0028 1966 B14000 COPY STATSV,A 0473 3000 1967 COPY A,S  0474 82D8 04CD 1968 COPY =:0100,A 0475 8411 0011 1969 COPY A,TEMP01 0476 090A 1970 ,  COPY =:000A,A 0477 8C11 0011 1971 SUB TEMP01,A 0478 BAD5 04CE 1972 CSK A,=:FF0A 0479 0000 1973 NOP 047A 0E0D 1974 HLT SUB FAILED -- AREG SHOULD =:FF0A  1975 * 1976 * SUBB MEM,Q 1977 * 047B 4950 1978 COPY =:50,Q 047C 0948 1979 COPY =:48,A 047D 8411 0011 1980 COPY A,TEMP01 047E 0E25 1981  SBIT BY,S 047F CC23 0023 1982 SUBB TEMP01+1,Q 0480 0E27 1983 RBIT BY,S 0481 4D08  1984 CSK Q,=:08 0482 0000 1985 NOP 0483 0E0D 1986 HLT SUBB FAILED -- Q SHOULD = :0008 0484 9E6D 0472 1987 JMP B14000 PATCH FOR LOOPING 0484 0000 1987+  ORG $-1 0484 0000 1987+ NOP OVERLAY WITH NOP 1PAGE 0078 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:48.25 INSTRUCTION DIAGNOSTIC -- SEC. B1-6 1989 ******************************************************* 1990 * 1991 * TEST JST MEM USING 1992 * RELATIVE DIRECT ADDRESSING 1993 * 1994 ******************************************************* 00000485 1995 B16000 EQU $ 0485 8028 0028 1996 COPY STATSV,A 0486 3000 1997 COPY A,S 0487 BE82 048A 1998 JST B16002 00000488 1999 B16001 EQU  $ 0488 0E0D 2000 HLT JST FAILED 0489 9E87 0491 2001 JMP B16003 048A 0E0D 2002 B16002 ENT 048B 82C3 04CF 2003 COPY =B16001,A 048C BA7D 048A 2004 CSK A,B16002 048D 0000 2005 NOP 048E 0E0D 2006 HLT JST FAILED -- WRONG RETURN ADDRESS  048F DE7A 048A 2007 IMS B16002 0490 9F79 048A 2008 JMP *B16002 00000491 2009 B16003  EQU $ 0491 9E73 0485 2010 JMP B16000 PATCH FOR LOOPING 0491 0000 2010+ ORG $-1 0491 0000 2010+ NOP OVERLAY WITH NOP 1PAGE 0079 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:49.00 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 2012 ******************************************************* 2013 * 2014 *------------ SECTION B1-7 -------------  2015 * 2016 * OBJECTIVE: EXTENSIVE TESTING OF THE FOLLOWING 2017 *  INSTRUCTIONS: 2018 * 2019 * EXCH MEM,4REG 2020 * 2021 * 2022 *----- TEST STRUCTURE ----- 2023 * 2024 * 'EXCH' IS VERIFIED UNDER ALL THE ADDRESSING 2025 * MODES, WORD MODE AND BYTE MODE 2026 *  2027 ******************************************************* 1PAGE 0080 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84- -93727 (A200) 1981/11/25 16:11:49.50 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 2029 ******************************************************* 2030 * 2031 *----- SECTION B17000 ----- 2032 * 2033 **** 2034 * -- WORD MODE -- 2035 * ABSOLUTE DIRECT ADDRESSING 2036 * 2037 ******************************************************* 00000492 2038 B17000 EQU $ 0492 0900 2039 COPY =0,A 0493 C017 0017 2040 COPY PTF0F0,Q 0494 C411 0011 2041 COPY Q,TEMP01 0495 9011 0011 2042 EXCH TEMP01,A 0496 4900 2043 COPY =0,Q 0497 F811 0011 2044 CSK Q,TEMP01 0498 0000 2045 NOP 0499 0E0D 2046 HLT 'EXCH' FAILED - TEMP01 SHOULD =0 049A B817 0017 2047 CSK A,PTF0F0 049B 0000 2048  NOP 049C 0E0D 2049 HLT 'EXCH' FAILED AREG SHOULD =:F0F0 1PAGE 0081 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:50.00 INSTRUCTION DIAGNOSTIC -- SEC. B1-7  2051 ********* 2052 * 2053 * ABSOLUTE INDIRECT ADDRESSING 2054 * ---WORD MODE--- 2055 * 2056 ******** 0000049D 2057 B17010 EQU $ 049D C017 0017 2058 COPY PTF0F0,Q 049E A016 0016 2059 COPY PTFFFF,X 049F 0911 2060 COPY  =TEMP01,A 04A0 8412 0012 2061 COPY A,TEMP02 04A1 C411 0011 2062 COPY Q,TEMP01 04A2 B112 0012 2063 EXCH *TEMP02,X 04A3 8016 0016 2064 COPY PTFFFF,A 04A4 B811 0011 2065 CSK A,TEMP01 04A5 0000 2066 NOP 04A6 0E0D 2067 HLT 'EXCH' IN INDIRECT ADD FAILED 04A7 0020 2068 COPY X,A 04A8 B817 0017 2069 CSK A,PTF0F0 04A9 0000 2070 NOP 04AA 0E0D 2071 HLT EXCH FAILED X SHOULD = :F0F0 04AB 9E66 0492 2072 JMP B17000 PATCH FOR LOOPING 04AB 0000 2072+ ORG $-1 04AB 0000 2072+ NOP  OVERLAY WITH NOP 04AC 9E82 04AF 2073 JMP B17020 1PAGE 0082 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:50.75 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 2075 ****** 2076 * 2077 *----- B17020 ----- 2078 * 2079 * RELATIVE DIRECT AND INDIRECT ADDRESSING 2080 * --WORD MODE-- 2081 * 2082 ***** 04AD 0000  2083 CEL171 RES 1,0 04AE 0000 2084 CEL172 RES 1,0 000004AF 2085 B17020 EQU $ 04AF 8016 0016 2086 COPY PTFFFF,A 04B0 C017 0017 2087 COPY PTF0F0,Q 04B1 C6A2 04D4 2088 COPY  Q,CEL175 04B2 92A1 04D4 2089 EXCH CEL175,A 04B3 C016 0016 2090 COPY PTFFFF,Q 04B4 FA9F 04D4.  2091 CSK Q,CEL175 04B5 0000 2092 NOP 04B6 0E0D 2093 HLT EXCH FAILED CEL175 SHOULD = :FFFF 04B7 B817 0017 2094 CSK A,PTF0F0 04B8 0000 2095 NOP 04B9 0E0D 2096 HLT EXCH FAILED A SHOULD = :F0F0 2097 * 2098 *  INDIRECT RELATIVE 2099 * 04BA 8290 04CB 2100 COPY =CEL174,A 04BB 8696 04D2 2101 COPY A,CEL173 04BC A018 0018 2102 COPY PT00FF,X 04BD 0900 2103 COPY =0,A 04BE 8694 04D3 2104 COPY A,CEL174 04BF B392 04D2 2105 EXCH *CEL173,X 04C0 8018 0018 2106 COPY PT00FF,A 04C1 BA91 04D3 2107 CSK A,CEL174 04C2 0000 2108 NOP 04C3 0E0D 2109 HLT EXCH FAILED CEL174 SHOULD = :00FF 04C4 0020 2110 COPY X,A 04C5 0D00 2111  CSK A,=0 04C6 0000 2112 NOP 04C7 0E0D 2113 HLT EXCH FAILED X SHOULD = 0 04C8 9E66 04AF 2114 JMP B17020 PATCH FOR LOOPING 04C8 0000 2114+ ORG $-1 04C8 0000 2114+ NOP OVERLAY WITH NOP 04C9 9E8B 04D5 2115 JMP B17030 1PAGE 0083  MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:52.00 INSTRUCTION DIAGNOSTIC -- SEC. B1-7  0008 2116 LPOOL 04CA 04D4 CEL175 04CB 04D3 CEL174 04CC 04D2 CEL173 04CD 0100 04CE FF0A 04CF 0488 B16001 04D0 04D1 1PAGE 0084 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:52.25 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 2118 ****** 2119 * ---B17030--- 2120 *  2121 * INDEX DIRECT AND INDIRECT ADDRESSING USING XREG 2122 * --WORD MODE-- 2123  ****** 04D2 0000 2124 CEL173 WORD 0 04D3 0000 2125 CEL174 WORD 0 04D4 0000 2126 CEL175 WORD 0 000004D5 2127 B17030 EQU $ 04D5 C018 0018 2128 COPY PT00FF,Q 04D6 E016 0016 2129  COPY PTFFFF,Y 04D7 8016 0016 2130 COPY PTFFFF,A 04D8 A272 04CB 2131 COPY =CEL174,X  CEL174 ADD IN 'X' 04D9 C67A 04D4 2132 COPY Q,CEL175 04DA F081 0001 2133 EXCH 1(X),Y CEL175 SHULD = :FFFF 04DB BA78 04D4 2134 CSK A,CEL175 04DC 0000 2135 NOP 04DD 0E0D 2136  HLT 'EXCH' FAILED CEL175 SHULD =:FFFF 04DE 0060 2137 COPY Y,A 04DF B818 0018 2138 CSK A,PT00FF 04E0 0000 2139 NOP 04E1 0E0D 2140 HLT EXCH FAILED A SHOULD = :00FF 2141 * 2142 * INDIRECT INDEX 'X' 2143 * 04E2 0901 2144 COPY =1,A 04E3 8411 0011 2145 COPY A,TEMP01 04E4 A266 04CB 2146 COPY  =CEL174,X 04E5 0900 2147 COPY =0,A 04E6 866D 04D4 2148 COPY A,CEL175 04E7 F191 0011 21/ 49 EXCH *TEMP01(X),Y 04E8 FA6B 04D4 2150 CSK Q,CEL175 04E9 0000 2151 NOP 04EA 0E0D 2152 HLT 'Q' SHULD = CEL175 =:00FF 04EB 0060 2153 COPY Y,A 04EC 0D00 2154 CSK A,=0 04ED 0000 2155 NOP 04EE 0E0D 2156 HLT EXCH FAILED Y SHOULD = 0 04EF 9E65 04D5 2157 JMP B17030 PATCH FOR LOOPING 04EF 0000 2157+  ORG $-1 04EF 0000 2157+ NOP OVERLAY WITH NOP 1PAGE 0085 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:53.50 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 2159 ******  2160 * 2161 *----- B17040 ----- 2162 * 2163 * INDEX DIRECT AND INDIRECT ADDRESSING USING 'Y' 2164 * --WORD MODE-- 2165 * 2166 ****** 000004F0 2167 B17040 EQU $ 04F0 8016 0016 2168 COPY PTFFFF,A 04F1 C018 0018 2169  COPY PT00FF,Q 04F2 A016 0016 2170 COPY PTFFFF,X 04F3 E258 04CC 2171 COPY =CEL173,Y 04F4 C65E 04D3 2172 COPY Q,CEL174 04F5 B041 0001 2173 EXCH 1(Y),X 04F6 BA5C 04D3 2174  CSK A,CEL174 04F7 0000 2175 NOP 04F8 0E0D 2176 HLT 'A' SHOULD = CEL174 =:FFFF 04F9 0020 2177 COPY X,A 04FA B818 0018 2178 CSK A,PT00FF 04FB 0000 2179  NOP 04FC 0E0D 2180 HLT EXCH FAILED X SHOULD = :00FF 2181 *  2182 * INDIRECT INDEX 'Y' 2183 * 04FD 824C 04CA 2184 COPY =CEL175,A 04FE 8654 04D3 2185 COPY A,CEL174 04FF E24C 04CC 2186 COPY =CEL173,Y 0500 0900 2187 COPY =0,A 0501 8652 04D4 2188 COPY A,CEL175 0502 B141 0001 2189 EXCH *1(Y),X 0503 FA50 04D4 2190 CSK Q,CEL175 0504 0000 2191 NOP 0505 0E0D 2192 HLT QREG SHOULD =CEL175=:00FF 0506 0020 2193 COPY X,A 0507 B819 0019 2194 CSK A,PT0000 0508 0000  2195 NOP 0509 0E0D 2196 HLT EXCH FAILED XREG SHOULD =0 050A 9E65 04F0 2197  JMP B17040 PATCH FOR LOOPING 050A 0000 2197+ ORG $-1 050A 0000 2197+ NOP OVERLAY WITH NOP 1PAGE 0086 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:54.75 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 2199 ********* 2200 * 2201 *----- B17050 ----- 2202 * 2203 * INDEX DIRECT AND INDIRECT ADDRESSING USING HX' 'Y' 2204 * --WORD MODE-- 2205 * 2206 ****** 0000050B 2207 B17050 EQU $ 050B 8016 0016 2208 COPY PTFFFF,A 050C C016 0016 2209 COPY PTFFFF,Q 050D E23E 00 4CC 2210 COPY =CEL173,Y 050E 2901 2211 COPY =1,X 050F A644 04D4 2212 COPY X,CEL175 0510 90C1 0001 2213 EXCH 1(X,Y),A 0511 FA42 04D4 2214 CSK Q,CEL175 0512 0000 2215 NOP 0513 0E0D 2216 HLT 'Q' SHULD = CEL175 =:FFFF 0514 0D01 2217 CSK A,=1 0515 0000 2218 NOP 0516 0E0D 2219 HLT EXCH FAILED A SHOULD = 1 2220 * 2221 * INDIRECT INDEX 'X' 'Y' 2222 * 0517 2901 2223  COPY =1,X 0518 A63A 04D3 2224 COPY X,CEL174 CEL174 = 1 0519 E232 04CC 2225 COPY  =CEL173,Y 051A A230 04CB 2226 COPY =CEL174,X 051B 8638 04D4 2227 COPY A,CEL175 CEL 175 = 1 051C 8016 0016 2228 COPY PTFFFF,A 051D D1C1 0001 2229 EXCH *1(X,Y),Q 051E BA35 04D4 2230  CSK A,CEL175 051F 0000 2231 NOP 0520 0E0D 2232 HLT 'A' SHULD = CEL175 =:FFFF 0521 4D01 2233 CSK Q,=1 0522 0000 2234 NOP 0523 0E0D 2235 HLT EXCH FAILED Q SHOULD = 1 0524 9E66 050B 2236 JMP B17050 PATCH FOR LOOPING 0524 0000 2236+ ORG $-1 0524 0000 2236+ NOP OVERLAY WITH NOP 0525 9E81 0527 2237 JMP B17060 0001 2238 LPOOL 0526 1PAGE 0087 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:56.00 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 2240 ******  2241 * 2242 *----- B17060 ----- 2243 * 2244 * ABSOLUTE DIRECT AND INDIRECT ADDRESSING 2245 * -- BYTE MODE -- 2246 * 2247 ******  00000527 2248 B17060 EQU $ 0527 C017 0017 2249 COPY PTF0F0,Q 0528 E01C 001C 2250 COPY  PT6666,Y 0529 C411 0011 2251 COPY Q,TEMP01 :F0F0 - TEMP01 052A 0E25 2252 SBIT BY,S 052B F022 0022 2253 EXCHB Y,TEMP01 052C 0E27 2254 RBIT BY,S 052D 82C2 0570 2255 COPY =:66F0,A 052E B811 0011 2256 CSK A,TEMP01 052F 0000 2257 NOP 0530 0E0D 2258  HLT 'A' SHULD = TEMP01 =:66F0 0531 0060 2259 COPY Y,A 0532 0DF0 2260  CSK A,=:F0 0533 0000 2261 NOP 0534 0E0D 2262 HLT EXCHB FAILED YREG SHOULD =:F0 2263 * 2264 * ABSOLUTE INDIRECT 2265 * 0535 A018 0018 2266 COPY PT00FF,X 0536 0911 2267 COPY =TEMP01,A 0537 0E01 2268 SHIFT A,LO,1 BYTE ADDRESS 0538 8412 0012 2269 COPY A,TEMP02 TEMP02 = TEMP01 BYTE ADDRESS (BYTE 0) 0539 8413 0013 2270 COPY A,TEMP 053A DC13 0013 2271 IMS TEMP TEMP = TEMP01 BYTE ADDRESS (BYTE 1) 1 053B 8014 0014 2272 COPY PT55AA,A 053C 8411 0011 2273 COPY A,TEMP01 053D 0E25 2274  SBIT BY,S 053E D112 0012 2275 EXCH Q,*TEMP02 TEMP01 BYTE0 =F0 053F B113 0013 2276 EXCH  X,*TEMP TEMP01 BYTE1 = FF 0540 0E27 2277 RBIT BY,S 0541 82AF 0571 2278 COPY =:F0FF,A 0542 B811 0011 2279 CSK A,TEMP01 0543 0000 2280 NOP 0544 0E0D 2281 HLT  EXCH FAILED A SHOULD = :F0FF 0545 4D55 2282 CSK Q,=:55 1PAGE 0088 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:57.25 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 0546 0000 2283  NOP 0547 0E0D 2284 HLT EXCH FAILED Q SHOULD = :55 0548 4020 2285 COPY X,Q 0549 4DAA 2286 CSK Q,=:AA 054A 0000 2287 NOP 054B 0E0D 2288 HLT EXCH FAILED X SHOULD = .:66 054C 9E5A 0527 2289 JMP B17060 PATCH FOR LOOPING 054C 0000 2289+ ORG $-1 054C 0000 2289+ NOP OVERLAY WITH NOP 054D 9E82 0550 2290 JMP B17070 1PAGE 0089 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:57.75 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 2292 ****** 2293 * 2294 *----- B17070 ----- 2295 * 2296 * RELATIVE DIRECT AND INDIRECT ADDRESSING 2297 * -- BYTE MODE -- 2298 * 2299 ****** 054E 2300 CEL177 RES 1 054F 2301 CEL178 RES 1 00000550 2302 B17070 EQU $ 0550 82A1 0572 2303 COPY =:F0AA,A 0551 C01D 001D 2304 COPY PTAAAA,Q 0552 A017 0017 2305 COPY PTF0F0,X 0553 C67A 054E 2306  COPY Q,CEL177 :AAAA IN 0554 0E25 2307 SBIT BY,S 0555 B270 0A9C 2308 EXCHB X,CEL177 0556 0E27 2309 RBIT BY,S 0557 BA76 054E 2310 CSK A,CEL177 0558 0000 2311  NOP 0559 0E0D 2312 HLT 'A' SHULD = CEL177 =:F0AA 055A 0020 2313 COPY X,A 055B 0DAA 2314 CSK A,=:AA 055C 0000 2315 NOP 055D 0E0D 2316 HLT EXCH FAILED X SHOULD = :AA 2317 * 2318 * INDIRECT RELATIVE  2319 * 055E 8294 0573 2320 COPY =CEL178,A 055F 0E01 2321 SHIFT A,LO,1 BYTE ADD 0560 866D 054E 2322 COPY A,CEL177 0561 C66D 054F 2323 COPY Q,CEL178 0562 A017 0017 2324  COPY PTF0F0,X 0563 828E 0572 2325 COPY =:F0AA,A 0564 0E25 2326 SBIT BY,S 0565 B368 054E 2327 EXCH X,*CEL177 0566 0E27 2328 RBIT BY,S 0567 BA67 054F 2329 CSK  A,CEL178 0568 0000 2330 NOP 0569 0E0D 2331 HLT 'A' SHOULD = CEL178 =:AA2 F0 056A 0020 2332 COPY X,A 056B 0DAA 2333 CSK A,=:AA 056C 0000 2334 NOP 1PAGE 0090 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:58.75 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 056D 0E0D 2335 HLT EXCH FAILED XREG SHOULD =:AA 056E 9E61 0550 2336  JMP B17070 PATCH FOR LOOPING 056E 0000 2336+ ORG $-1 056E 0000 2336+ NOP  OVERLAY WITH NOP 056F 9E88 0578 2337 JMP B17080 0005 2338 LPOOL 0570 66F0 0571 F0FF 0572 F0AA 0573 054F CEL178 0574 1PAGE 0091 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:11:59.00 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 2340 ******* 2341 *  2342 * ---B17080--- 2343 * 2344 * INDEX DIRECT AND INDIRECT ADDRESSING 'X' AND 'Y' 2345 * --BYTE MODE -- 2346 * 2347 ***** 0575 2348 CEL179 RES 1 0576 2349 CEL180 RES 1 0577 2350 CEL181 RES 1 00000578 2351 B17080 EQU $ 0578 8016 0016 2352 COPY PTFFFF,A 0579 C017 0017 2353 COPY PTF0F0,Q 057A A2B9 05B4 2354 COPY =CEL179,X 057B 2E01 2355 SHIFT X,LO,1 CEL179 BYTE ADD IN 'X' 057C 8678 0575 2356 COPY A,CEL179 CEL179 = :FFFF. 057D C678 0576 2357 COPY Q,CEL180 CEL180 = :F0F0 057E E2B5 05B4 2358 COPY =CEL179,Y CEL179 WORD ADD IN 'Y' 057F 0E25 2359 SBIT BY,S 0580 D081 0001 2360 EXCH 1(X),Q CEL179 = :FFF0, Q=:00FF 0581 9042 0002 2361 EXCHB 2(Y),A  CEL180 = :FFF0, A=:00F0 0582 0E27 2362 RBIT BY,S 0583 0DF0 2363 CSK A,=:F0 0584 0000 2364 NOP 0585 0E0D 2365 HLT EXCH FAILED A SHOULD = :F0 0586 4DFF  2366 CSK Q,=:FF 0587 0000 2367 NOP 0588 0E0D 2368 HLT EXCH FAILED A SHOULD = :FF 0589 08F0 2369 COPY =:FFF0,A 058A BA6A 0575 2370 CSK A,CEL179 058B 0000 2371 NOP 058C 0E0D 2372 HLT 'A' SHOULD = CEL179 =:FFF0 058D BA68 0576 2373 CSK A,CEL180 058E 0000 2374 NOP 058F 0E0D 2375 HLT CEL180 SHOULD =:FFF0 2376 * 2377 * INDIRECT INDEX USING (X) 2378 * 0590 0902 2379 COPY =2,A 0591 8411 0011 2380 COPY A,TEMP01 0592 A2A1 05B4 2381 COPY =CEL179,X 0593 2E01 2382 SHIFT X,LO,1 CEL179 BYTE ADD IN 'X' 1PAGE 0092 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:00.50 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 0594 801B 001B 2383  COPY PT5555,A 0595 8660 0576 2384 COPY A,CEL180 0596 4900 2385 COPY =0,Q 0597 3 0E25 2386 SBIT BY,S 0598 D191 0011 2387 EXCH *TEMP01(X),Q 0599 0E27 2388 RBIT BY,S 059A 0955 2389 COPY =:0055,A 059B BA5A 0576 2390 CSK A,CEL180 059C 0000  2391 NOP 059D 0E0D 2392 HLT 'A' SHULD = CEL180 =:0055 059E 4D55 2393  CSK Q,=:55 059F 0000 2394 NOP 05A0 0E0D 2395 HLT EXCH FAILED Q SHOULD = :55 2396 * 2397 * INDIRECT INDEX USING (Y) 2398 * 05A1 E292 05B4 2399 COPY =CEL179,Y 05A2 8292 05B5 2400 COPY =CEL181,A 05A3 0E01 2401 SHIFT  A,LO,1 05A4 8651 0576 2402 COPY A,CEL180 05A5 8017 0017 2403 COPY PTF0F0,A 05A6 8650 0577 2404 COPY A,CEL181 05A7 8016 0016 2405 COPY PTFFFF,A 05A8 0E25 2406 SBIT BY,S  05A9 9141 0001 2407 EXCH A,*1(Y) 05AA 0E27 2408 RBIT BY,S 05AB 48F0 2409 COPY =:FFF0,Q 05AC FA4A 0577 2410 CSK Q,CEL181 05AD 0000 2411 NOP 05AE 0E0D 2412  HLT EXCH FAILED CEL181 SHOULD =:FFF0 05AF 0DF0 2413 CSK A,=:F0 05B0 0000 2414 NOP 05B1 0E0D 2415 HLT EXCH FAILED AREG SHOULD =:F0 05B2 9E45 0578 2416  JMP B17080 PATCH FOR LOOPING 05B2 0000 2416+ ORG $-1 05B2 0000 2416+ NOP OVERLAY WITH NOP 000005B3 2417 LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 05B3 0000 2417+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0002 2417+ LPOOL 05B4 0575 CEL179 05B5 0577 CEL181 000005B6 2417+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL  05B3 0000 2417+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1PAGE 0093 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:01.75 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 05B3 9E82 05B6 2417+  JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 05B6 0000 2417+ ORG LP::L1 CONTINUE AT END OF LPOOL 1PAGE 0094 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:02.00 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 2419 ***** 2420 * 2421 *----- B17090 -----  2422 * 2423 * INDEX DIRECT AND INDIRECT ADDRESSING USING (X,Y) 2424 * -- BYTE MODE -- 2425 * 2426 ****** 000005B6 2427 B17090 EQU $ 05B6 E2CC 0603 2428 COPY =CEL180,Y 05B7 2901 2429 COPY =1,X 05B8 8016 0016 2430 COPY PTFFFF,A 05B9 863D 0577 2431 COPY A,CEL181 05BA 8017 0017 2432 COPY PTF0F0,A 05BB 0E25 2433  SBIT BY,S 05BC 90C2 0002 2434 EXCH 2(X,Y),A 05BD 0E27 2435 RBIT BY,S 05BE 0DFF 4  2436 CSK A,=:FF 05BF 0000 2437 NOP 05C0 0E0D 2438 HLT EXCH FAILED A SHOULD = :FF 05C1 08F0 2439 COPY =:FFF0,A 05C2 BA34 0577 2440 CSK A,CEL181 05C3 0000 2441 NOP 05C4 0E0D 2442 HLT EXCH FAILED CEL181 SHOULD = :FFF0  2443 * 2444 * INDIRECT INDEX 2445 * 05C5 C016 0016 2446 COPY  PTFFFF,Q 05C6 826E 05B5 2447 COPY =CEL181,A 05C7 0E01 2448 SHIFT A,LO,1 CEL181 BYTE ADD IN HA' 05C8 862D 0576 2449 COPY A,CEL180 05C9 E26A 05B4 2450 COPY =CEL179,Y 'Y' = CEL179 ADD 05CA 2900 2451 COPY =0,X 05CB 801C 001C 2452 COPY PT6666,A 05CC 862A 0577 2453  COPY A,CEL181 CEL181 =:6666 05CD 0866 2454 COPY =:FF66,A 05CE 0E25 2455 SBIT BY,S 05CF D1C1 0001 2456 EXCH *1(X,Y),Q 05D0 0E27 2457 RBIT BY,S 05D1 BA25 0577 2458 CSK A,CEL181 05D2 0000 2459 NOP 05D3 0E0D 2460 HLT 'A' SHULD = CEL181 =:FF00 05D4 4D66 2461 CSK Q,=:66 1PAGE 0095 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:03.25 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 05D5 0000 2462 NOP 05D6 0E0D  2463 HLT EXCH FAILED Q SHOULD = :66 05D7 9E5E 05B6 2464 JMP B17090 PATCH FOR LOOPING 05D7 0000 2464+ ORG $-1 05D7 0000 2464+ NOP OVERLAY WITH NOP 1PAGE 0096 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:03.50 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 2466 ***** 2467 * 2468 *----- B170A0 ----- 2469 * 2470 * INDEX MULTILEVEL INDIRECT ADDRESSING USING 'X' 2471 * 2472 ***** 000005D8 2473 B170A0 EQU $ 05D8 0900 2474 COPY =0,A 05D9 3000 2475  COPY A,S 05DA 8412 0012 2476 COPY A,TEMP02 05DB 0912 2477 COPY =TEMP02,A 05DC B6A4 0601 2478 OR =:8000,A 05DD 8411 0011 2479 COPY A,TEMP01 05DE 2913 2480 COPY  =TEMP,X 05DF 801D 001D 2481 COPY PTAAAA,A 05E0 8413 0013 2482 COPY A,TEMP 05E1 8016 0016 2483 COPY PTFFFF,A 05E2 9191 0011 2484 EXCH A,*TEMP01(X) 05E3 B81D 001D 2485 CSK A,PTAAAA 05E4 0000 2486 NOP 05E5 0E0D 2487 HLT EXCH FAILED AREG SHOULD =:AAAA 05E6 C013 0013 2488 COPY TEMP,Q 05E7 F816 0016 2489 CSK Q,PTFFFF 05E8 0000 2490  NOP 05E9 0E0D 2491 HLT EXCH FAILED TEMP SHOULD = :FFFF 2492 *  2493 * INDEX MULTILEVEL INDIRECT ADDRESSING USING 'Y' 2494 * 000005EA 2495 B170B0 EQU5  $ 05EA 0900 2496 COPY =0,A 05EB 3000 2497 COPY A,S 05EC 0913 2498  COPY =TEMP,A 05ED 8412 0012 2499 COPY A,TEMP02 05EE 0912 2500 COPY =TEMP02,A 05EF B792 0602 2501 OR PT8000,A 05F0 8411 0011 2502 COPY A,TEMP01 05F1 6911 2503 COPY =TEMP01,Y 05F2 8016 0016 2504 COPY PTFFFF,A 05F3 8413 0013 2505 COPY A,TEMP 05F4 C01D 001D 2506 COPY PTAAAA,Q 05F5 D140 0000 2507 EXCH Q,*0(Y) 05F6 F816 0016 2508 CSK Q,PTFFFF 1PAGE 0097 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:04.75 INSTRUCTION DIAGNOSTIC -- SEC. B1-7 05F7 0000 2509 NOP 05F8 0E0D 2510 HLT EXCH FAILED Q SHOULD = :FFFF 05F9 8013 0013 2511 COPY TEMP,A 05FA B81D 001D 2512 CSK A,PTAAAA 05FB 0000 2513 NOP 05FC 0E0D 2514 HLT EXCH FAILED TEMP SHOULD = :AAAA 05FD 8028 0028 2515  COPY STATSV,A 05FE 3000 2516 COPY A,S 05FF 9E58 05D8 2517 JMP B170A0 PATCH FOR LOOPING 05FF 0000 2517+ ORG $-1 05FF 0000 2517+ NOP OVERLAY WITH NOP 00000600 2518 LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 0600 0000 2518+  NOP RESERVE SPACE FOR JMP INSTRUCTION 0003 2518+ LPOOL 0601 8000 0602 00FA PT8000 0603 0576 CEL180 00000604 2518+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 0600 0000 2518+  ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 0600 9E83 0604 2518+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 0604 0000 2518+ ORG LP::L1 CONTINUE AT END OF LPOOL 1PAGE 0098 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:05.50 INSTRUCTION DIAGNOSTIC -- SEC. C  2520 ************************************************** 2521 * 2522 * ----------- SECTION C ---------- 2523 * 2524 * TESTING OF THE FOLLOWING INSTRUCTIONS: 2525 * 2526 * NEG 8REG,8REG C02000 2527 * ADD 8REG,8REG  C11000 2528 * SUB 8REG,8REG C12000 2529 * AND 8REG,8REG  C13000 2530 * XOR 8REG,8REG C14000 2531 * OR 8REG,8REG  C15000 2532 * CSM 8REG,8REG C21000 2533 * CSN 8REG,8REG  C22000 2534 * CSK 8REG,8REG C23000 2535 * EXCH 8REG,8REG  C24000 2536 * COMP 8REG,8REG C25000 2537 * 2538  ************************************************** 2539 * 2540 * ----------- TEST STRUCTURE6  ---------- 2541 * 2542 * EACH INSTRUCTION IS TESTED FOR CORRECT 2543  * OPERATION WITH A DIFFERENT REGISTER PAIR 2544 * FOR EACH INSTRUCTION, OR EACH CONDITION  2545 * OF AN INSTRUCTION. NEG & ADD ARE CHECKED 2546 * FOR CORRECT SETTING OF OV. CSM, CSN, & CSK 2547 * ARE CHECKED FOR ALL COMPARE OUTCOMES. 2548 * 2549 **************************************************** 1PAGE 0099 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:06.25 INSTRUCTION DIAGNOSTIC -- SEC. C 2551 ******** 2552 * 2553 * ---C02000--- 2554 * 2555 * NEG Q,A 2556 * 2557 ***** 00000604 2558 C02000 EQU $ 0604 C01B 001B 2559 COPY PT5555,Q 0605 0900 2560  COPY =0,A 0606 0041 2561 NEG Q,A 0607 BAC6 064E 2562 CSK A,=:AAAB 0608 0000  2563 NOP 0609 0E0D 2564 HLT NEG FAILED -- A SHOULD = :AAAB 060A A276 0601 2565 COPY =:8000,X 060B 4021 2566 NEG X,Q 060C 3641 060E 2567 JT OV,$+2 060D 0E0D 2568 HLT NEG FAILED -- DID NOT SET OV 060E FB73 0602 2569 CSK Q,PT8000 060F 0000 2570 NOP 0610 0E0D 2571 HLT NEG FAILED -- Q SHOULD = :8000 1PAGE 0100 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:06.75 INSTRUCTION DIAGNOSTIC -- SEC. C1-1 2573 ***** 2574 * 2575 * ---- C11000 2576 *  2577 * ADD Y,X 2578 * 2579 ***** 00000611 2580 C11000 EQU  $ 0611 E01C 001C 2581 COPY PT6666,Y 0612 A2BC 064F 2582 COPY =:0FFF,X 0613 2062 2583  ADD Y,X 0614 0020 2584 COPY X,A 0615 BABA 0650 2585 CSK A,=:7665 0616 0000  2586 NOP 0617 0E0D 2587 HLT ADD FAILED -- X SHOULD = :7665 2588 *** 2589 * ADD L,Y POS. OVERFLOW 2590 *** 0618 E01B 001B 2591  COPY PT5555,Y 0619 801B 001B 2592 COPY PT5555,A 061A 5000 2593 COPY A,L 061B 6052  2594 ADD L,Y 061C 3641 061E 2595 JT OV,$+2 061D 0E0D 2596 HLT  ADD FAILED -- DID NOT SET OV 061E 0060 2597 COPY Y,A 061F B81D 001D 2598 CSK A,PTAAAA 0620 0000 2599 NOP 0621 0E0D 2600 HLT ADD FAILED -- Y SHOULD = :AAAA  2601 *** 2602 * ADD K,L NEG. OVERFLOW 2603 *** 0622 801D 001D 2604 COPY PTAAAA,A 0623 7000 2605 COPY A,K 0624 5000 2606 COPY A,L 06257  5072 2607 ADD K,L 0626 3641 0628 2608 JT OV,$+2 0627 0E0D 2609 HLT  ADD FAILED -- DID NOT SET OV 0628 0050 2610 COPY L,A 0629 BAA7 0651 2611 CSK  A,=:5554 062A 0000 2612 NOP 062B 0E0D 2613 HLT ADD FAILED -- L SHOULD = :5554 1PAGE 0101 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:08.00 INSTRUCTION DIAGNOSTIC -- SEC. C1-2 2615 ***** 2616 * 2617 * ---C12000--- 2618 * 2619 * SUB S,K 2620 * 2621 ******** 0000062C 2622 C12000 EQU $ 062C 09FF 2623 COPY =:FF,A 062D 7000 2624 COPY A,K 062E 0943 2625 COPY =:43,A 062F 3000 2626 COPY A,S 0630 7033 2627 SUB S,K 0631 8028 0028 2628 COPY STATSV,A 0632 3000 2629 COPY A,S 0633 0070 2630 COPY K,A 0634 0DBC 2631 CSK A,=:BC 0635 0000 2632 NOP 0636 0E0D 2633 HLT  SUB FAILED -- K SHOULD = :BC 0637 9E4C 0604 2634 JMP C02000 PATCH FOR LOOPING 0637 0000 2634+ ORG $-1 0637 0000 2634+ NOP OVERLAY WITH NOP 1PAGE 0102 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:08.75 INSTRUCTION DIAGNOSTIC -- SEC. C1-3  2636 ***** 2637 * 2638 * ---- C13000 ---- 2639 * 2640 * AND A,Q 2641 * 2642 ***** 00000638 2643 C13000 EQU $ 0638 8017 0017 2644 COPY PTF0F0,A 0639 C018 0018 2645 COPY PT00FF,Q 063A 4004 2646 AND  A,Q 063B 4DF0 2647 CSK Q,=:F0 063C 0000 2648 NOP 063D 0E0D 2649 HLT  AND FAILED -- Q SHOULD = :F0 2650 * 2651 ***** 2652 *  2653 * ---- C14000 ---- 2654 * 2655 * XOR Q,X 2656 * 2657 ***** 0000063E 2658 C14000 EQU $ 063E C01D 001D 2659 COPY PTAAAA,Q 063F A01C 001C 2660 COPY PT6666,X 0640 2045 2661 XOR Q,X 0641 0020 2662 COPY  X,A 0642 BA8F 0652 2663 CSK A,=:CCCC 0643 0000 2664 NOP 0644 0E0D 2665 HLT XOR FAILED -- X SHOULD = :CCCC 1PAGE 0103 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:09.50 INSTRUCTION DIAGNOSTIC -- SEC. C1-5 2667 ***** 2668 *  2669 * ---- C15000 ---- 2670 * 2671 * OR X,Y 2672 *  2673 ***** 00000645 2674 C15000 EQU $ 0645 A01C 001C 2675 COPY PT6666,X 0646 E01B 08 01B 2676 COPY PT5555,Y 0647 6027 2677 OR X,Y 0648 0060 2678 COPY Y,A  0649 BA89 0653 2679 CSK A,=:7777 064A 0000 2680 NOP 064B 0E0D 2681 HLT  OR FAILED -- Y SHOULD = :7777 064C 9E6B 0638 2682 JMP C13000 PATCH FOR LOOPING 064C 0000 2682+ ORG $-1 064C 0000 2682+ NOP OVERLAY WITH NOP 064D 9E87 0655 2683  JMP C21000 0007 2684 LPOOL 064E AAAB 064F 0FFF 0650 7665 0651 5554 0652 CCCC 0653 7777 0654 1PAGE 0104 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:10.00 INSTRUCTION DIAGNOSTIC -- SEC. C2-1 2686 ***** 2687 * 2688 * ---C21000--- 2689 * 2690 * CSM Y,L 2691 * 2692 ******* 00000655 2693 C21000 EQU $ 0655 E016 0016 2694 COPY PTFFFF,Y 0656 0900 2695 COPY =0,A 0657 5000 2696 COPY A,L 0658 6056 2697 CSM Y,L GREATER 0659 0E0D 2698 HLT  CSM FAILED -- Y>L 065A 9E81 065C 2699 JMP $+2 065B 0E0D 2700 HLT  CSM FAILED -- Y>L 2701 *** 2702 * CSM L,K 2703 *** 065C 801C 001C 2704 COPY PT6666,A 065D 7000 2705 COPY A,K 065E 5076 2706 CSM  L,K LESS 065F 9E82 0662 2707 JMP $+3 0660 0000 2708 NOP 0661 0E0D 2709  HLT CSM FAILED -- LY 0672 9E81 0674 2750 JMP $+2 0673 0E0D 2751 HLT CSK FAILED -- X>Y 2752 *** 2753 * CSK X,K 2754 *** 0674 801C 001C 2755 COPY PT6666,A 0675 7000 2756 COPY A,K 0676 207B 2757 CSK X,K  LESS 0677 9E82 067A 2758 JMP $+3 0678 0000 2759 NOP 0679 0E0D 2760 HLT  CSK FAILED -- X CSK Q,=:00AA 0721 0000 3039 NOP 0722 0E0D 3040 HLT ROTATE FAILED -- QREG SHOULD =:00AA 0723 36C1 0725 3041 JF OV,$+2 0724 0E0D 3042 HLT ROTATE FAILED -- OV SHOULD BE =:0 1PAGE 0119 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:20.75 INSTRUCTION DIAGNOSTIC -- SEC. D1-2 3044 ****** 3045 * 3046 * ---- D12010 ---- 3047 * 3048 * SHIFT X,L,CNT 3049 * 3050 ****** 00000725 3051 D12010 EQU $ 0725 2973 3052 COPY =:0073,X 0726 2E00 3053 SHIFT X,L,1 0727 0020 3054 COPY X,A 0728 0DE6 3055 CSK A,=:00E6 0729 0000 3056 NOP 072A 0E0D 3057 HLT SHIFT FAILED -- X SHOULD = 00E6 072B 3641 072D 3058  JT OV,$+2 072C 9E81 072E 3059 JMP $+2 072D 0E0D 3060 HLT SHIFT FAILED -- OV SHOULD BE 0 072E 2E80 3061 SHIFT X,L,9 072F 0020 3062 COPY X,A 0730 BA5D 070E 3063 CSK A,=:CC00 0731 0000 3064 NOP 0732 0E0D 3065 HLT  SHIFT FAILED -- X SHOULD = :CC00 0733 3641 0735 3066 JT OV,$+2 0734 9E81 0736 3067 JMP $+2 0735 0E0D 3068 HLT SHIFT FAILED -- OV SHOULD BE 0 1PAGE 0120 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:21.50 INSTRUCTION DIAGNOSTIC -- SEC. D1-2 3070 ****** 3071 * 3072 * ---- D12020 ---- 3073 * 3074 * SHIFT Y,R,CNT 3075 * 3076 ****** 00000736 3077 D12020 EQU $ 0736 E01D 001D 3078 COPY PTAAAA,Y 0737 6E08 3079 SHIFT Y,R,1 0738 0060 3080 COPY Y,A 0739 B81B 001B 3081 CSK A,PT5555 073A 0000 3082 NOP 073B 0E0D 3083 HLT  SHIFT FAILED -- Y SHOULD = :5555 073C 3641 073E 3084 JT OV,$+2 073D 9E81 073F 3085 JMP  $+2 073E 0E0D 3086 HLT SHIFT FAILED -- OV SHOULD BE 0 073F 6ED8 3087 SHIFT Y,R,14 0740 0060 3088 COPY Y,A 0741 0D01 3089 CSK A,=1 0742 0000 3090  NOP 0743 0E0D 3091 HLT SHIFT FAILED -- Y SHOULD BE :0001 0744 3641 0746 3092  JT OV,$+2 0745 9E81 0747 3093 JMP $+2 0746 0E0D 3094 HLT SHIFT FAILED -- OV SHOULD BE 0 0747 9E4C 0714 3095 JMP D12000 PATCH FOR LOOPING 0747 0000 3095+ ORG $-1 0747 0000 3095+ NOP OVERLAY WITH NOP 3096 * 0748 9E97 0760 3097 JMP PART1:5 3098 * 3099 * DUE TO THE SIZE OF THE LST FILE THIS TEST WAS ? SPLIT 3100 * INTO TWO MODULES. 3101 * DONE BY NO OTHER THAN CHRIS HEWITT(THE GREATEST  3102 * PROGRAMMER THIS SIDE OF THE TRINITY RIVER) 3103 * 3104 * THANKS FOR A JOB WELL DONE 3105 * THE MANAGEMENT!!!!! 3106 * 0749 0000 3107  RES $;:1F-$&:1F+1,0 00000760 3108 PART1:5 SET $ 1PAGE 0121 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:22.75 INSTRUCTION DIAGNOSTIC -- SEC. D2 3110 ************************************************** 3111 * 3112 * ---------- SECTION D2 ----------  3113 * 3114 * TESTING OF THE FOLLOWING INSTRUCTIONS: 3115 * 3116 * SHIFT REGPR,LO,CNT D21000 3117 * SHIFT REGPR,RO,CNT D21000 3118 *  SHIFT REGPR,RA,CNT D21000 3119 * ROTATE REGPR,LO,CNT D22000 3120 * ROTATE REGPR,RO,CNT D22000 3121 * SHIFT REGPR,L,CNT D23000 3122 * SHIFT REGPR,R,CNT D23000 3123 * ROTATE REGPR,R,CNT D23000 3124 * ROTATE REGPR,L,CNT  D24000 3125 * 3126 * REGPR = AQ, AX, OR AY 3127 *  3128 ************************************************** 3129 * 3130 * TEST STRUCTURE: 3131 * 3132 * ON EACH INSTRUCTION CNT VALUES OF 1, 3133 * AND ONE OTHER VALUE ARE TESTED. EFFECT 3134 * ON OV IS CHECKED FOR EACH INSTRUCTION. 3135 * ALL REGISTER PAIRS ARE CHECKED ON 3136 * ROTATE REGPR,L,CNT. OTHER INSTRUCTIONS  3137 * ARE CHECKED WITH ONE REGISTER PAIR EACH. 3138 * NOTE -- ONLY SECTION D2-4 IS IMPLEMENTED  3139 * ON THE 400. 3140 * 3141 ************************************************** 1PAGE 0122 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:23.50 INSTRUCTION DIAGNOSTIC -- SEC. D2-1 3143 ****** 3144 * 3145 * ---- D21000 ----  3146 * 3147 * SHIFT AQ,LO,CNT 3148 * 3149 ****** 0760 3150 NAM HEWITT 0020 0020 3151 MACHINE =:20 0760 0000 3152 ORG PART1:5 00000760 3153 HEWITT EQU $ 0760 0308 3154 FMT A GET MACHINE TYPE 0761 0D43 3155 CSK A,=:43 IF THIS IS A 4/04-02 DO THESE TESTS 0762 0000 3156 NOP 0763 9F98 077C 3157 JMP D31000 ELSE SKIP THEM 00000764 3158 D21000 EQU $ 0764 801B 001B 3159  COPY PT5555,A 0765 C01C 001C 3160 COPY PT6666,Q 0766 4F01 3161 SHIFT AQ,LO,1 0@ 767 B81D 001D 3162 CSK A,PTAAAA 0768 0000 3163 NOP 0769 0E0D 3164 HLT  SHIFT FAILED -- A SHOULD = :AAAA 076A FA8F 077A 3165 CSK Q,=:CCCC 076B 0000 3166 NOP 076C 0E0D 3167 HLT SHIFT FAILED -- Q SHOULD = :CCCC 076D 3641 076F 3168 JT  OV,$+2 076E 9E81 0770 3169 JMP $+2 076F 0E0D 3170 HLT SHIFT FAILED -- OV SHOULD BE 0 0770 4F81 3171 SHIFT AQ,LO,9 0771 BA8B 077D 3172 CSK A,=:5599 0772 0000  3173 NOP 0773 0E0D 3174 HLT SHIFT FAILED -- A SHOULD = :5599 0774 FA89 077E 3175 CSK Q,=:9800 0775 0000 3176 NOP 0776 0E0D 3177 HLT SHIFT FAILED -- Q SHOULD = :9800 0777 3641 0779 3178 JT OV,$+2 0778 0E0D 3179 HLT  SHIFT FAILED -- OV SHOULD BE 1 0779 9E86 0780 3180 JMP D21010 0006 3181 LPOOL 077A CCCC 077B 802A 077C 085E D31000 077D 5599 1PAGE 0123 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25  16:12:24.75 INSTRUCTION DIAGNOSTIC -- SEC. D2-1 077E 9800 077F 1PAGE 0124 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:25.00 INSTRUCTION DIAGNOSTIC -- SEC. D2-1 3183 ****** 3184 * 3185 * ---- D21010 ---- 3186 * 3187 * SHIFT AX,RO,CNT  3188 * 3189 ****** 00000780 3190 D21010 EQU $ 0780 8016 0016 3191 COPY  PTFFFF,A 0781 2900 3192 COPY =0,X 0782 2F09 3193 SHIFT AX,RO,1 0783 B81A 001A 3194 CSK A,PT7FFF 0784 0000 3195 NOP 0785 0E0D 3196 HLT SHIFT FAILED -- AREG SHOULD =:7FFF 0786 4020 3197 COPY X,Q 0787 FB05 070D 3198 CSK Q,PT8000 0788 0000 3199 NOP 0789 0E0D 3200 HLT SHIFT FAILED -- XREG SHOULD =:8000 078A 36C1 078C 3201 JF OV,$+2 078B 0E0D 3202 HLT SHIFT FAILED -- OV SHOULD =:0 078C 2FF9 3203 SHIFT AX,RO,16 078D 0D00 3204 CSK A,=0 078E 0000 3205 NOP 078F 0E0D 3206 HLT SHIFT FAILED -- AREG SHOULD =:0 0790 4020 3207 COPY  X,Q 0791 F81A 001A 3208 CSK Q,PT7FFF 0792 0000 3209 NOP 0793 0E0D 3210 HLT  SHIFT FAILED -- X SHOULD = :7FFF 0794 3641 0796 3211 JT OV,$+2 0795 0E0D 3212  HLT SHIFT FAILED -- OV SHOULD BE 1 0796 9E4D 0764 3213 JMP D21000 PATCH FOR LOOPING 0796 0000 3213+ ORG $-1 0796 0000 3213+ NOP OVERLAY WITH NOP 1PAGE 0125 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:26.00 INSTRUCTION DIAGNOSTIC -- SEC. D2-1A  3215 ****** 3216 * 3217 * ---- D21020 **** 3218 *  3219 * SHIFT AY,RA,CNT 3220 * 3221 ****** 00000797 3222 D21020 EQU $ 0797 0900 3223 COPY =0,A 0798 E01D 001D 3224 COPY PTAAAA,Y 0799 6F0C 3225 SHIFT AY,RA,1 079A 0D00 3226 CSK A,=0 079B 0000 3227 NOP 079C 0E0D  3228 HLT SHIFT FAILED -- A SHOULD = 0 079D 4060 3229 COPY Y,Q 079E F81B 001B 3230 CSK Q,PT5555 079F 0000 3231 NOP 07A0 0E0D 3232 HLT SHIFT FAILED -- Y SHOULD = :5555 07A1 3641 07A3 3233 JT OV,$+2 07A2 9E81 07A4 3234 JMP $+2 07A3 0E0D 3235 HLT SHIFT FAILED --. OV SHOULD BE 0 07A4 8016 0016 3236 COPY PTFFFF,A 07A5 6F4C 3237 SHIFT AY,RA,5 07A6 B816 0016 3238 CSK A,PTFFFF 07A7 0000 3239  NOP 07A8 0E0D 3240 HLT SHIFT FAILED -- A SHOULD = :FFFF 07A9 4060 3241  COPY Y,Q 07AA FA85 07B0 3242 CSK Q,=:FAAA 07AB 0000 3243 NOP 07AC 0E0D 3244  HLT SHIFT FAILED -- Y SHOULD = :FAAA 07AD 3641 07AF 3245 JT OV,$+2 07AE 0E0D  3246 HLT SHIFT FAILED -- OV SHOULD BE 1 07AF 9E82 07B2 3247 JMP D22000 0002 3248 LPOOL 07B0 FAAA 07B1 1PAGE 0126 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:27.25 INSTRUCTION DIAGNOSTIC -- SEC. D2-2 3250 ****** 3251 * 3252 * ---- D22000 ---- 3253 * 3254 * ROTATE AQ,LO,CNT 3255 *  3256 ****** 000007B2 3257 D22000 EQU $ 07B2 801B 001B 3258 COPY PT5555,A 07B3 C01C 001C 3259 COPY PT6666,Q 07B4 4F03 3260 ROTATE AQ,LO,1 07B5 B81D 001D 3261 CSK  A,PTAAAA 07B6 0000 3262 NOP 07B7 0E0D 3263 HLT ROTATE FAILED -- A SHOULD = :AAAA 07B8 FA41 077A 3264 CSK Q,=:CCCC 07B9 0000 3265 NOP 07BA 0E0D 3266 HLT ROTATE FAILED -- Q SHOULD = :CCCC 07BB 36C1 07BD 3267 JF OV,$+2 07BC 0E0D 3268  HLT ROTATE FAILED -- OV SHOULD =:0 07BD 4F23 3269 ROTATE AQ,LO,3 07BE BA89 07C8 3270 CSK A,=:5556 07BF 0000 3271 NOP 07C0 0E0D 3272 HLT ROTATE FAILED -- AREG SHOULD 07C1 FA87 07C9 3273 CSK Q,=:6662 07C2 0000 3274 NOP 07C3 0E0D 3275 HLT ROTATE FAILED -- QREG SHOULD =:6662 07C4 3641 07C6 3276 JT OV,$+2 07C5 0E0D 3277 HLT ROTATE FAILED -- OV SHOULD BE SET 07C6 9E50 0797 3278 JMP D21020B  PATCH FOR LOOPING 07C6 0000 3278+ ORG $-1 07C6 0000 3278+ NOP OVERLAY WITH NOP 07C7 9E83 07CB 3279 JMP D22010 0003 3280 LPOOL 07C8 5556 07C9 6662 07CA 1PAGE 0127 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:28.25 INSTRUCTION DIAGNOSTIC -- SEC. D2-2 3282 ****** 3283 * 3284 * ---- D22010 ---- 3285 * 3286 * ROTATE AX,RO,CNT 3287 * 3288 ****** 000007CB 3289 D22010 EQU $ 07CB 801C 001C 3290 COPY PT6666,A 07CC A01D 001D 3291 COPY PTAAAA,X 07CD 2F0B 3292 ROTATE AX,RO,1 07CE BA94 07E3 3293 CSK A,=:3333 07CF 0000 3294 NOP 07D0 0E0D 3295 HLT ROTATE FAILED -- A SHOULD = :3333 07D1 4020 3296 COPY  X,Q 07D2 F81B 001B 3297 CSK Q,PT5555 07D3 0000 3298 NOP 07D4 0E0D 3299 HLT ROTATE FAILED -- X SHOULD = :5555 07D5 3641 07D7 3300 JT OV,$+2 07D6 9E81 07D8 3301  JMP $+2 07D7 0E0D 3302 HLT ROTATE FAILED -- OV SHOULD BE 0 07D8 2FAB 3303 ROTATE AX,RO,11 07D9 BA8A 07E4 3304 CSK A,=:5546 07DA 0000 3305 NOP 07DB 0E0D  3306 HLT ROTATE FAILED -- A SHOULD = :5546 07DC 4020 3307 COPY X,Q 07DD FA87 07E5 3308 CSK Q,=:666A 07DE 0000 3309 NOP 07DF 0E0D 3310 HLT  ROTATE FAILED -- X SHOULD = :666A 07E0 3641 07E2 3311 JT OV,$+2 07E1 0E0D 3312 HLT  ROTATE FAILED -- OV SHOULD BE 1 07E2 9E84 07E7 3313 JMP D23000 0004 3314 LPOOL 07E3 3333 07E4 5546 07E5 666A 07E6 1PAGE 0128 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:29.50 INSTRUCTION DIAGNOSTIC -- SEC. D2-3 3316 ****** 3317 * 3318 * ---- D23000 ---- 3319 * 3320 * SHIFT AY,L,CNT 3321 *  3322 ****** 000007E7 3323 D23000 EQU $ 07E7 8018 0018 3324 COPY PT00FF,A 07E8 E018 0018 3325 COPY PT00FF,Y 07E9 6F00 3326 SHIFT AY,L,1 07EA BAAC 0817 3327 CSK A,=:01FE 07EB 0000 3328 NOP 07EC 0E0D 3329 HLT SHIFT FAILED -- A SHOULD = :01FE 07ED 4060 3330 COPY Y,Q 07EE FAA8 0817 3331 CSK Q,=:01FE 07EF 0000 3332  NOP 07F0 0E0D 3333 HLT SHIFT FAILED -- Y SHOULD = :01FE 07F1 3641 07F3 3334 JT  OV,$+2 07F2 9E81 07F4 3335 JMP $+2 07F3 0E0D 3336 HLT SHIFT FAILED -- OV SHOULD BE 0 07F4 6FE0 3337 SHIFT AY,L,15 07F5 B818 0018 3338 CSK A,PT00FF 07F6 0000 C  3339 NOP 07F7 0E0D 3340 HLT SHIFT FAILED -- A SHOULD = :00FF 07F8 4060 3341 COPY Y,Q 07F9 4D00 3342 CSK Q,=0 07FA 0000 3343 NOP 07FB 0E0D 3344 HLT SHIFT FAILED -- YREG SHOULD =0 07FC 36C1 07FE 3345 JF OV,$+2 07FD 0E0D  3346 HLT SHIFT FAILED -- OV SHOULD =0 07FE 9E4C 07CB 3347 JMP D22010 PATCH FOR LOOPING 07FE 0000 3347+ ORG $-1 07FE 0000 3347+ NOP OVERLAY WITH NOP 1PAGE 0129 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:30.50 INSTRUCTION DIAGNOSTIC -- SEC. D2-3 3349 ******** 3350 * 3351 * ---- D23010 ----  3352 * 3353 * SHIFT AQ,R,CNT 3354 * 3355 ****** 000007FF 3356 D23010 EQU $ 07FF 8017 0017 3357 COPY PTF0F0,A 0800 C017 0017 3358 COPY PTF0F0,Q 0801 4F08 3359 SHIFT AQ,R,1 0802 BA93 0816 3360 CSK A,=:7878 0803 0000 3361  NOP 0804 0E0D 3362 HLT SHIFT FAILED -- A SHOULD = :7878 0805 FA90 0816 3363 CSK Q,=:7878 0806 0000 3364 NOP 0807 0E0D 3365 HLT SHIFT FAILED -- Q SHOULD = :7878 0808 3641 080A 3366 JT OV,$+2 0809 9E81 080B 3367 JMP $+2 080A 0E0D 3368  HLT SHIFT FAILED -- OV SHOULD BE 0 080B 4F68 3369 SHIFT AQ,R,7 080C 0DF0  3370 CSK A,=:00F0 080D 0000 3371 NOP 080E 0E0D 3372 HLT SHIFT FAILED -- A SHOULD = :00F0 080F F817 0017 3373 CSK Q,PTF0F0 0810 0000 3374 NOP 0811 0E0D  3375 HLT SHIFT FAILED -- Q SHOULD = :F0F0 0812 3641 0814 3376 JT OV,$+2 0813 9E81 0815 3377 JMP $+2 0814 0E0D 3378 HLT SHIFT FAILED -- OV SHOULD BE 0 0815 9E83 0819 3379 JMP D23020 0003 3380 LPOOL 0816 7878 0817 01FE 0818 1PAGE 0130 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:31.75 INSTRUCTION DIAGNOSTIC -- SEC. D2-3  3382 ****** 3383 * 3384 * ---- D23020 ---- 3385 *  3386 * ROTATE AX,R,CNT 3387 * 3388 ****** 00000819 3389 D23020 EQU  $ 0819 801D 001D 3390 COPY PTAAAA,A 081A A017 0017 3391 COPY PTF0F0,X 081B 2F0A 3392  ROTATE AX,R,1 081C B81B 001B 3393 CSK A,PT5555 081D 0000 3394 NOP 081E 0E0D  3395 HLT ROTATE FAILED -- A SHOULD = :5555 081F 4020 3396 COPY X,Q 0820 FA75 0816 3397 CSK Q,=:7878 0821 0000 3398 NOP 0822 0E0D 3399 HLT D  ROTATE FAILED -- X SHOULD = :7878 0823 3641 0825 3400 JT OV,$+2 0824 9E81 0826 3401 JMP $+2 0825 0E0D 3402 HLT ROTATE FAILED -- OV SHOULD BE 0 0826 2FEA 3403 ROTATE  AX,R,15 0827 B817 0017 3404 CSK A,PTF0F0 0828 0000 3405 NOP 0829 0E0D 3406 HLT ROTATE FAILED -- A SHOULD = :F0F0 082A 4020 3407 COPY X,Q 082B F81D 001D 3408  CSK Q,PTAAAA 082C 0000 3409 NOP 082D 0E0D 3410 HLT ROTATE FAILED -- X SHOULD = :AAAA 082E 3641 0830 3411 JT OV,$+2 082F 9E81 0831 3412 JMP $+2 0830 0E0D  3413 HLT ROTATE FAILED -- OV SHOULD BE =0 0831 9E4D 07FF 3414 JMP D23010  PATCH FOR LOOPING 0831 0000 3414+ ORG $-1 0831 0000 3414+ NOP OVERLAY WITH NOP 1PAGE 0131 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:32.75 INSTRUCTION DIAGNOSTIC -- SEC. D2-3 3416 ******* 3417 * 3418 * ---D24000---  3419 * 3420 * ROTATE REGPR,L,CNT 3421 * 3422 * ROTATE AQ,L,1  3423 * 3424 * 00000832 3425 D24000 EQU $ 0832 828C 083F 3426 COPY =:CCCC,A 0833 C28B 083F 3427 COPY =:CCCC,Q 0834 4F02 3428 ROTATE AQ,L,1 0835 BA8A 0840 3429  CSK A,=:9999 0836 0000 3430 NOP 0837 0E0D 3431 HLT ROTATE FAILED -- A SHOULD = :9999 0838 FA87 0840 3432 CSK Q,=:9999 0839 0000 3433 NOP 083A 0E0D 3434 HLT ROTATE FAILED -- Q SHOULD = :9999 083B 3641 083D 3435 JT OV,$+2 083C 9E81 083E 3436 JMP $+2 083D 0E0D 3437 HLT ROTATE FAILED -- OV SHOULD BE 0 083E 9E83 0842 3438 JMP D24000A 0003 3439 LPOOL 083F CCCC 0840 9999 0841 1PAGE 0132 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:33.50 INSTRUCTION DIAGNOSTIC -- SEC. D2-3  3441 * ROTATE AX,L,8 3442 * 0842 801D 001D 3443 D24000A COPY PTAAAA,A 0843 A01B 001B 3444 COPY PT5555,X 0844 2F72 3445 ROTATE AX,L,8 0845 B815 0015 3446 CSK A,PTAA55  0846 0000 3447 NOP 0847 0E0D 3448 HLT ROTATE FAILED -- A SHOULD = :AAKK 0848 4020 3449 COPY X,Q 0849 F814 0014 3450 CSK Q,PT55AA 084A 0000 3451 NOP  084B 0E0D 3452 HLT ROTATE FAILED -- X SHOULD = :55AA 084C 3641 084E 3453 JT  OV,$+2 084D 9E81 084F 3454 JMP $+2 084E 0E0D 3455 HLT ROTATE FAILED -- OV SHOULD BE 0 3456 * 3457 * ROTATE AY,L,16 3458 * 084F 8018 0018 3459 E  COPY PT00FF,A 0850 E017 0017 3460 COPY PTF0F0,Y 0851 6FF2 3461 ROTATE AY,L,16 0852 B817 0017 3462 CSK A,PTF0F0 0853 0000 3463 NOP 0854 0E0D 3464 HLT  ROTATE FAILED -- A SHOULD = :F0F0 0855 4060 3465 COPY Y,Q 0856 F818 0018 3466 CSK  Q,PT00FF 0857 0000 3467 NOP 0858 0E0D 3468 HLT ROTATE FAILED -- Y SHOULD = :00FF 0859 3641 085B 3469 JT OV,$+2 085A 9E81 085C 3470 JMP $+2 085B 0E0D 3471  HLT ROTATE FAILED -- OV SHOULD BE 0 085C 9E55 0832 3472 JMP D24000 PATCH FOR LOOPING 085C 0000 3472+ ORG $-1 085C 0000 3472+ NOP OVERLAY WITH NOP 085D 9E80 085E 3473 JMP D31000 1PAGE 0133 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25  16:12:34.75 INSTRUCTION DIAGNOSTIC -- SEC. D3 3475 **************************************************  3476 * 3477 * ---------- SECTION D3 ---------- 3478 * 3479 * TESTING OF THE FOLLOWING INSTRUCTIONS: 3480 * 3481 * SBIT BIT,S  D31000 3482 * RBIT BIT,S D32000 3483 * CBIT BIT,S D33000 3484 * TBIT BIT,S D34000 3485 * SBIT BIT,4REG D35000  3486 * RBIT BIT,4REG D36000 3487 * CBIT BIT,4REG D37000 3488 * TBIT BIT,4REG D38000 3489 * 3490 ******************************************************* 3491 * 3492 * TEST STRUCTURE: 3493 *  3494 * EACH INSTRUCTION IS TESTED ON ONE BIT. 3495 * SBIT BIT,4REG IS TESTED WITH ALL BITS.  3496 * D35 THROUGH D38 ARE EACH TESTED WITH 3497 * ONE REGISTER. 3498 * 3499 ************************************************** 1PAGE 0134 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:35.50 INSTRUCTION DIAGNOSTIC -- SEC. D3-1 3501 ******  3502 * 3503 * ---- D31000 ---- 3504 * 3505 * SBIT BIT,S  3506 * 3507 ****** 0000085E 3508 D31000 EQU $ 085E 0902 3509 COPY =2,A 085F B428 0028 3510 OR STATSV,A 0860 3000 3511 COPY A,S 0861 4903 3512 COPY =3,Q 0862 F428 0028 3513 OR STATSV,Q 0863 0E05 3514 SBIT 0,S 0864 0E15 3515 SBIT 1,S 0865 304B 3516 CSK S,Q 0866 0000 3517 NOP 0867 0E0D 3518 HLT SBIT FAILED -- S REG BITS 0&1 SHOULD BE 1 3519 ****** F  3520 * 3521 * ---- D32000 ---- 3522 * 3523 * RBIT BIT,S  3524 * 3525 ****** 0868 0901 3526 COPY =1,A 0869 B428 0028 3527  OR STATSV,A 086A 3000 3528 COPY A,S 086B 0E07 3529 RBIT 0,S 086C 0E17 3530 RBIT 1,S 086D 0030 3531 COPY S,A 086E B828 0028 3532 CSK A,STATSV 086F 0000 3533 NOP 0870 0E0D 3534 HLT RBIT FAILED -- S REG BITS 0&1 SHOULD BE 0 1PAGE 0135 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:36.25 INSTRUCTION DIAGNOSTIC -- SEC. D3-3 3536 ****** 3537 * ---- D33000 ---- 3538 * CBIT BIT,S  3539 ****** 00000871 3540 D33000 EQU $ 0871 0902 3541 COPY =2,A 0872 B428 0028 3542 OR STATSV,A 0873 3000 3543 COPY A,S 0874 4901 3544 COPY =1,Q 0875 F428 0028 3545 OR STATSV,Q 0876 0E06 3546 CBIT 0,S 0877 0E16 3547  CBIT 1,S 0878 0030 3548 COPY S,A 0879 004B 3549 CSK A,Q 087A 0000 3550  NOP 087B 0E0D 3551 HLT CBIT FAILED -- S REG BIT0 SB 1 - BIT1 SB 3552 ********** 3553 * ---D34000--- 3554 * TBIT BIT,S 3555 ********** 087C 0902 3556 COPY =2,A 087D B428 0028 3557 OR STATSV,A 087E 3000 3558 COPY A,S 087F 0E14 3559 TBIT 1,S 0880 3641 0882 3560 JT OV,$+2 0881 0E0D 3561  HLT TBIT FAILED -- OV SHOULD BE 1 0882 0E04 3562 TBIT 0,S 0883 36C1 0885 3563  JF OV,$+2 0884 0E0D 3564 HLT TBIT FAILED -- OV SHOULD BE 0 0885 8028 0028 3565 COPY STATSV,A 0886 3000 3566 COPY A,S 0887 9E56 085E 3567 JMP D31000  PATCH FOR LOOPING 0887 0000 3567+ ORG $-1 0887 0000 3567+ NOP OVERLAY WITH NOP 1PAGE 0136 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:37.25 INSTRUCTION DIAGY =1,A 094C 8413 0013 4006 COPY A,TEMP 094D 0900 4007 COPY =0,A 094E 0762 4008  ADDC *TEMP(X),A ADD TEMP02 TO A 094F 0013 0950 B81D 001D 4009 CSK A,PTAAAA 0951 0000 4010 NOP 0952 0E0D 4011 HLT ADDC FAILED -- A SHOULD = :AAAA 0953 9E6E 0942 4012  JMP H01020 PATCH FOR LOOPING 0953 0000 4012+ ORG $-1 0953 0000 4012+ NOP OVERLAY WITH NOP 1PAGE 0153 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:50.25 INSTRUCTION DIAGNOSTIC -- SEC. H0-1 4014 ****** 4015 * 4016 *G  ABSOLUTE DIRECT INDEXED ADDRESSING USING (Y) 4017 * 4018 ****** 00000954 4019  H01040 EQU $ 0954 6901 4020 COPY =1,Y 0955 8017 0017 4021 COPY PTF0F0,A 0956 8412 0012 4022 COPY A,TEMP02 0957 0900 4023 COPY =0,A 0958 0712 4024 ADDC TEMP01(Y),A ADD TEMP02 TO A 0959 0011 095A B817 0017 4025 CSK A,PTF0F0 095B 0000 4026 NOP 095C 0E0D 4027 HLT ADDC FAILED -- A SHOULD = :F0F0 4028 ******  4029 * 4030 * ABSOLUTE INDIRECT INDEXED ADDRESSING USING (Y) 4031 *  4032 ****** 095D 0913 4033 H01050 COPY =TEMP,A 095E 8412 0012 4034 COPY A,TEMP02 095F 8018 0018 4035 COPY PT00FF,A 0960 8413 0013 4036 COPY A,TEMP 0961 0900 4037 COPY =0,A 0962 0752 4038 ADDC *TEMP01(Y),A ADD TEMP TO A 0963 0011 0964 B818 0018 4039 CSK A,PT00FF 0965 0000 4040 NOP 0966 0E0D 4041 HLT ADDC FAILED -- AREG SHOULD =:00FF 0967 9E6C 0954 4042 JMP H01040 PATCH FOR LOOPING 0967 0000 4042+ ORG $-1 0967 0000 4042+ NOP OVERLAY WITH NOP 1PAGE 0154 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:51.25 INSTRUCTION DIAGNOSTIC -- SEC. H0-1 4044 ******** 4045  * ABSOLUTE DIRECT INDEXED ADDRESSING USING (X,Y) 4046 * 4047 ******** 00000968 4048 H01060 EQU $ 0968 2901 4049 COPY =1,X 0969 6911 4050 COPY =TEMP01,Y 096A 801C 001C 4051 COPY PT6666,A 096B 8413 0013 4052 COPY A,TEMP 096C 0900 4053 COPY  =0,A 096D 0732 4054 ADDC 1(X,Y),A ADD TEMP TO A 096E 0001 096F B81C 001C 4055 CSK  A,PT6666 0970 0000 4056 NOP 0971 0E0D 4057 HLT ADDC FAILED -- A SHOULD = :6666 4058 ****** 4059 * 4060 * ABSOLUTE INDIRECT INDEXED ADDRESSING USING (X,Y) 4061 * 4062 ****** 00000972 4063 H01070 EQU $ 0972 2900 4064 COPY =0,X 0973 0913 4065 COPY =TEMP,A 0974 8412 0012 4066 COPY A,TEMP02 0975 0900 4067 COPY =0,A 0976 0772 4068 ADDC *1(X,Y),A ADD TEMP TO A 0977 0001 0978 B81C 001C 4069 CSK A,PT6666 0979 0000 4070 NOP 097A 0E0D 4071 HLT  ADDC FAILED -- A SHOULD = :6666 097B 9E6C 0968 4072 JMP H01060 PATCH FOR LOOPING 097B 0000 4072+ ORG $-1 097B 0000 4072+ NOP OVERLAY WITH NOP 097C 9E83 0980 4073  JMP H01080 1PAGE 0155 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:52.00 INSH TRUCTION DIAGNOSTIC -- SEC. H0-1 4075 ****** 4076 * 4077 * RELATIVE DIRECT ADDRESSING 4078 * 4079 ****** 097D 0000 4080 CEL100 WORD 0 097E 0000  4081 CEL101 WORD 0 097F 0000 4082 CEL102 WORD 0 00000980 4083 H01080 EQU $ 0980 801B 001B 4084 COPY PT5555,A 0981 867B 097D 4085 COPY A,CEL100 0982 0900 4086 COPY  =0,A 0983 0702 4087 ADDC CEL100,A 0984 097D 0985 B81B 001B 4088 CSK A,PT5555 0986 0000 4089 NOP 0987 0E0D 4090 HLT ADDC FAILED -- A SHOULD = :5555  4091 ****** 4092 * 4093 * RELATIVE INDIRECT ADDRESSING 4094 *  4095 ****** 0988 82C6 09CF 4096 COPY =CEL101,A 0989 8673 097D 4097 COPY A,CEL100  098A 801C 001C 4098 COPY PT6666,A 098B 8672 097E 4099 COPY A,CEL101 098C 0900 4100  COPY =0,A 098D 0742 4101 ADDC *CEL100,A ADD CEL101 TO A 098E 097D 098F B81C 001C 4102  CSK A,PT6666 0990 0000 4103 NOP 0991 0E0D 4104 HLT ADDC FAILED -- A SHOULD = :5555 0992 9E6D 0980 4105 JMP H01080 PATCH FOR LOOPING 0992 0000 4105+ ORG  $-1 0992 0000 4105+ NOP OVERLAY WITH NOP 1PAGE 0156 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:53.00 INSTRUCTION DIAGNOSTIC -- SEC. H0-1 4107 *******  4108 * 4109 * RELATIVE DIRECT INDEXED ADDRESSING USING (X) 4110 *  4111 ****** 00000993 4112 H010A0 EQU $ 0993 2901 4113 COPY =1,X 0994 8017 0017 4114 COPY PTF0F0,A 0995 8668 097E 4115 COPY A,CEL101 0996 0900 4116 COPY =0,A 0997 0722 4117 ADDC CEL100(X),A ADD CEL101 TO AREG 0998 097D 0999 B817 0017 4118 CSK A,PTF0F0 099A 0000 4119 NOP 099B 0E0D 4120 HLT ADDC FAILED -- A SHOULD = :F0F0  4121 ****** 4122 * 4123 * RELATIVE INDIRECT INDEXED ADDRESSING USING (X) 4124 * 4125 ****** 099C 82B2 09CF 4126 H010B0 COPY =CEL101,A 099D 865F 097D 4127 COPY A,CEL100 CEL101 ADD IN CEL100 099E 8018 0018 4128 COPY PT00FF,A 099F 865F 097F 4129 COPY A,CEL102 09A0 0900 4130 COPY =0,A 09A1 0762 4131 ADDC *CEL100(X),A ADD CEL102 TO A 09A2 097D 09A3 B818 0018 4132 CSK A,PT00FF 09A4 0000 4133 NOP 09A5 0E0D  4134 HLT ADDC FAILED -- A SHOULD = :00FF 09A6 9E6C 0993 4135 JMP H010A0  PATCH FOR LOOPING 09A6 0000 4135+ ORG $-1 09A6 0000 4135+ NOP OVERLAY WI ITH NOP 1PAGE 0157 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:54.00 INSTRUCTION DIAGNOSTIC -- SEC. H0-1 4137 ****** 4138 * 4139 * RELATIVE DIRECT INDEXED ADDRESSING USING (Y) 4140 * 4141 ****** 000009A7 4142 H010C0 EQU $ 09A7 6901 4143 COPY =1,Y 09A8 8016 0016 4144 COPY PTFFFF,A 09A9 8654 097E 4145 COPY A,CEL101 09AA 0900 4146 COPY =0,A 09AB 0712 4147 ADDC CEL100(Y),A ADD CEL101 TO A 09AC 097D 09AD B816 0016 4148 CSK A,PTFFFF 09AE 0000 4149 NOP 09AF 0E0D 4150 HLT ADDC FAILED -- A SHOULD = :FFFF 4151 ****** 4152 * 4153 * RELATIVE INDIRECT INDEXED ADDRESSING USING (Y) 4154 * 4155 ****** 000009B0  4156 H010D0 EQU $ 09B0 6900 4157 COPY =0,Y 09B1 829D 09CF 4158 COPY =CEL101,A 09B2 864A 097D 4159 COPY A,CEL100 09B3 0900 4160 COPY =0,A 09B4 0752 4161 ADDC *CEL100(Y),A ADD CEL101 TO A 09B5 097D 09B6 B816 0016 4162 CSK A,PTFFFF 09B7 0000 4163  NOP 09B8 0E0D 4164 HLT ADDC FAILED -- A SHOULD = :FFFF 09B9 9E6D 09A7 4165 JMP  H010C0 PATCH FOR LOOPING 09B9 0000 4165+ ORG $-1 09B9 0000 4165+ NOP  OVERLAY WITH NOP 1PAGE 0158 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:54.75 INSTRUCTION DIAGNOSTIC -- SEC. H0-1 4167 ****** 4168 * 4169 * RELATIVE DIRECT INDEXED ADDRESSING USING (X,Y) 4170 * 4171 ****** 000009BA 4172 H010E0 EQU $ 09BA 2901 4173 COPY =1,X 09BB 6901 4174 COPY =1,Y 09BC 801D 001D 4175  COPY PTAAAA,A 09BD 8641 097F 4176 COPY A,CEL102 09BE 0900 4177 COPY =0,A 09BF 0732 4178 ADDC CEL100(X,Y),A ADD CEL102 TO A 09C0 097D 09C1 B81D 001D 4179 CSK A,PTAAAA 09C2 0000 4180 NOP 09C3 0E0D 4181 HLT ADDC FAILED -- AREG SHOULD =:AAAA  4182 ******* 4183 * 4184 * RELATIVE INDIRECT INDEXED ADDRESSING USING (X,Y)  4185 * 4186 ****** 000009C4 4187 H010F0 EQU $ 09C4 6900 4188 COPY =0,Y 09C5 8289 09CF 4189 COPY =CEL101,A 09C6 8636 097D 4190 COPY A,CEL100 CEL101 ADD IN CEL100 09C7 0900 4191 COPY =0,A 09C8 0772 4192 ADDC *CEL100(X,Y),A ADD CEL102 TO A 09C9 097D 09CA B81D 001D 4193 CSK A,PTAAAA 09CB 0000 4194 NOP 09CC 0E0D 4195  HLT ADDC FAILED -- A SHOULD = :AAAA 09CD 9E6C 09BA 4196 JMP H010E0 PATCH FOR LOOPJ ING 09CD 0000 4196+ ORG $-1 09CD 0000 4196+ NOP OVERLAY WITH NOP 09CE 9E82 09D1 4197 JMP H010F9 0002 4198 LPOOL 09CF 097E CEL101 09D0 000009D1 4199 H010F9 EQU $ 1PAGE 0159 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:56.00 INSTRUCTION DIAGNOSTIC -- SEC. H1 4201 ************************************************** 4202 *  4203 * ---------- SECTION H1 ---------- 4204 * 4205 * TESTING OF THE FOLLOWING INSTRUCTIONS: 4206 * 4207 * CSKE 2REG,MEM H11000  4208 * COPYE 4REG,MEM H12000 4209 * COPYE MEM,4REG H12000  4210 * ADDE MEM,4REG H13000 4211 * SUBE MEM,4REG H14000  4212 * EXCHE MEM,4REG H15000 4213 * ANDE MEM,2REG H16000  4214 * ORE MEM,2REG H17000 4215 * XORE MEM,2REG H18000  4216 * JSTE MEM H19000 4217 * JMPE MEM H19000  4218 * IMSE MEM H1A000 4219 * DMSE MEM H1B000 4220 * 4221 ************************************************** 4222 *  4223 * TEST STRUCTURE: 4224 * 4225 * EACH INSTRUCTION IS TESTED USING A DIFFERENT 4226 * ADDRESSING MODE AND A DIFFERENT REGISTER. 4227 * EFFECT ON OV IS CHECKED ON ADDE, SUBE, 4228 * IMSE, & DMSE. 4229 * 4230 ************************************************** 1PAGE 0160 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:56.75 INSTRUCTION DIAGNOSTIC -- SEC. H1-1 4232 ***** 4233 * 4234 * ---H11000--- 4235 * 4236 * CSKE A,MEM 4237 * 4238 ******* 000009D1 4239 H11000 EQU $ 09D1 0308 4240 FMT A 09D2 0D43 4241 CSK A,=:43 IS THIS A 4/04-01,OR -02 09D3 0000 4242 NOP 09D4 9FF9 0A4E 4243 JMP H24000 SKIP TEST 09D5 8016 0016 4244 COPY PTFFFF,A 09D6 270F 4245 CSKE A,PTFFFF 09D7 0016 09D8 0000 4246 NOP 09D9 0E0D 4247 HLT CSKE FAILED -- AREG SHOULD =:FFFF 09DA 270F 4248 CSKE A,PTFFFE 09DB 00F9 09DC 0E0D 4249 HLT CSKE FAILED -- A SHOULD = :FFFF 09DD 9E81 09DF 4250 JMP $+2 09DE 0E0D 4251 HLT CSKE FAILED -- A SHOULD = :FFFF 09DF 270F 4252 CSKE A,PT0000 09E0 0019 09E1 9E82 09E4 4253 JMP $K +3 09E2 0000 4254 NOP 09E3 0E0D 4255 HLT CSKE FAILED -- A SHOULD = :FFFF  4256 * 4257 ********* 4258 * 4259 * ---- H11001 ----  4260 * 4261 * CSKE Q,MEM 4262 * 4263 ********* 000009E4 4264 H11001 EQU $ 09E4 C016 0016 4265 COPY PTFFFF,Q 09E5 670F 4266 CSKE Q,PTFFFF 09E6 0016 09E7 0000 4267 NOP 09E8 0E0D 4268 HLT CSKE FAILED -- Q SHOULD = :FFFF 09E9 670F 4269 CSKE Q,PTFFFE 09EA 00F9 1PAGE 0161 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:57.75 INSTRUCTION DIAGNOSTIC -- SEC. H1-1 09EB 0E0D 4270 HLT  CSKE FAILED -- Q > :FFFE 09EC 9E81 09EE 4271 JMP $+2 09ED 0E0D 4272 HLT  CSKE FAILED -- Q > :FFFE 09EE 670F 4273 CSKE Q,PT0000 09EF 0019 09F0 9E82 09F3 4274 JMP $+3 09F1 0E0D 4275 HLT CSKE FAILED -- Q < :0000 09F2 0E0D 4276 HLT CSKE FAILED -- " " " 1PAGE 0162 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:58.00 INSTRUCTION DIAGNOSTIC -- SEC. H1-2 4278 ****** 4279 * 4280 * ---- H12000 ---- 4281 * 4282 * COPYE *MEM(X),Q 4283 * COPYE Q,*MEM(Y) 4284 * 4285 ****** 000009F3 4286 H12000 EQU $ 09F3 2900  4287 COPY =0,X 09F4 6900 4288 COPY =0,Y 09F5 0912 4289 COPY =TEMP02,A 09F6 8411 0011 4290 COPY A,TEMP01 09F7 801C 001C 4291 COPY PT6666,A 09F8 8412 0012 4292  COPY A,TEMP02 09F9 4768 4293 COPYE *TEMP01(X),Q LOAD Q FROM TEMP02 09FA 0011 09FB F81C 001C 4294  CSK Q,PT6666 09FC 0000 4295 NOP 09FD 0E0D 4296 HLT COPYE FAILED -- Q SHOULD = :6666 09FE C01D 001D 4297 COPY PTAAAA,Q 09FF 4759 4298 COPYE Q,*TEMP01(Y)  STORE Q IN TEMP02 0A00 0011 0A01 F812 0012 4299 CSK Q,TEMP02 0A02 0000 4300 NOP 0A03 0E0D  4301 HLT COPYE FAILED -- TEMP02 SHOULD = :AAAA 0A04 9E4C 09D1 4302 JMP H11000 PATCH FOR LOOPING 0A04 0000 4302+ ORG $-1 0A04 0000 4302+ NOP OVERLAY WITH NOP 1PAGE 0163 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:59.00 INSTRUCTION DIAGNOSTIC -- SEC. H1-3 4304 ****** 4305 * 4306 * ---- H13000 ----  4307 * 4308 * ADDE MEM,Y 4309 * 4310 ****** 00000A05 4311 H13000 EQU $ 0A05 C01B 001B 4312 COPY PT5555,Q 0A06 C411 0011 4313 COPY Q,TEL MP01 0A07 E2C7 0A4F 4314 COPY =:158F,Y 0A08 670A 4315 ADDE TEMP01,Y 0A09 0011 0A0A 4060  4316 COPY Y,Q 0A0B FAC4 0A50 4317 CSK Q,=:6AE4 0A0C 0000 4318 NOP 0A0D 0E0D 4319 HLT ADDE FAILED -- Y SHOULD = :6AE4 4320 ****** 4321 * 4322 * ADDE MEM,X POSITIVE OVERFLOW 4323 * 4324 ****** 0A0E A01C 001C 4325 COPY PT6666,X 0A0F 270A 4326 ADDE TEMP01,X 0A10 0011 0A11 0020 4327 COPY X,A 0A12 BABE 0A51 4328 CSK A,=:BBBB 0A13 0000 4329 NOP 0A14 0E0D 4330 HLT ADDE FAILED -- XREG SHOULD =:BBBB 0A15 3641 0A17 4331 JT OV,$+2 0A16 0E0D 4332 HLT ADDE FAILED -- OV SHOULD BE SET 1PAGE 0164 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:12:59.75 INSTRUCTION DIAGNOSTIC -- SEC. H1-3 4334 ******  4335 * 4336 * ---H14000--- 4337 * 4338 * SUB MEM(X),A  4339 * 4340 ******** 00000A17 4341 H14000 EQU $ 0A17 2901 4342 COPY =1,X 0A18 801D 001D 4343 COPY PTAAAA,A 0A19 C2B8 0A52 4344 COPY =:2222,Q 0A1A C412 0012 4345 COPY Q,TEMP02 0A1B 072B 4346 SUBE TEMP01(X),A SUBTRACT TEMP02 FROM A 0A1C 0011 0A1D BAB5 0A53 4347 CSK A,=:8888 0A1E 0000 4348 NOP 0A1F 0E0D 4349 HLT  SUBE FAILED -- A SHOULD = :8888 4350 ****** 4351 * 4352 * SUBE  MEM(Y),A NEGATIVE OVERFLOW 4353 * 4354 ****** 0A20 6901 4355 COPY =1,Y 0A21 071B 4356 SUBE TEMP01(Y),A SUBTRACT TEMP02 FROM A 0A22 0011 0A23 B81C 001C 4357 CSK  A,PT6666 0A24 0000 4358 NOP 0A25 0E0D 4359 HLT SUBE FAILED -- A SHOULD = :6666 0A26 3641 0A28 4360 JT OV,$+2 0A27 0E0D 4361 HLT SUBE FAILED -- OV SHOULD BE 1 0A28 9E5C 0A05 4362 JMP H13000 PATCH FOR LOOPING 0A28 0000 4362+ ORG IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII