IMD 1.16: 2/09/2008 14:15:30 84-93727-04 a200 f72704 scout cpu test program listing file part 3    @0|)wwЀЀtQql)  " }gA ` MIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIOS4 ME581100513472400811005134724 8110051347241F72704 VOLCPU TEST PROGRAM LISTING FILE PART3   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 (>= 'A' 14A7 4900 7345+ COPY =:0000,Q :0000 ==> 'Q' 14A8 A202 142B 7345+ COPY =:3333,X :3333 ==> 'X' 14A9 E279 14A3 7345+ COPY =:0F0F,Y :0F0F ==> 'Y' 14AA 0E07  7345+ RBIT CY,S R ==> CARRY FLAG 14AB 0E17 7345+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7345+ IFT 0;1 000014AC 7345+ FLOAT3 SET $ 00000001 7345+ IFT 1 14AC 030D 7345+ FLOAT -- DO THE OPERATION 7345+ ENDC  7345+ ENDC 00000000 7345+ IFF 0 00000001 7345+ IFT 5>0 14AD BA93 14C1 7345+ CSK A,=:D000 CHECK -A- 14AE 0000 7345+ NOP 14AF 0E0D 7345+ HLT -A- SHOULD CONTAIN :D000 14B0 4D00 7345+ CSK Q,=:0000 CHECK -Q- 14B1 0000 7345+ NOP 14B2 0E0D 7345+ HLT -Q- SHOULD CONTAIN :0000 7345+  ENDC 7345+ ENDC 14B3 0020 7345+ COPY X,A FOR TESTING 14B4 BA8D 14C2 7345+ CSK A,=:3333 CHECK -X- 14B5 0000 7345+ NOP 14B6 0E0D 7345+ HLT  FLOAT MODIFIED -X- 14B7 0060 7345+ COPY Y,A FOR TESTING 14B8 BA6A 14A3 7345+  CSK A,=:0F0F CHECK -Y- 14B9 0000 7345+ NOP 14BA 0E0D 7345+ HLT FLOAT MODIFIED -Y- 00000001 7345+ IFT 1;0;0 00000001 7345+ IFT 1 14BB 36C1 14BD 7345+ JF OV,$+2 OVERFLOW STILL RESET? 14BC 0E0D 7345+ HLT NO-- FLOAT CHANGED OVERFLOW 7345+ ENDC 00000001 7345+ IFT 1 14BD 56C1 14BF 7345+ JF  CY,$+2 CARRY STILL RESET? 14BE 0E0D 7345+ HLT NO-- FLOAT CHANGED CARRY  7345+ ENDC 1PAGE 0319 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:15:53.00 --FLOAT-- INSTRUCTION TEST (PART 3-2) 7345+ ENDC 14BF 9E65 14A5 7345+ JMP FLOAT1  PATCH FOR LOOPING 14BF 0000 7345+ ORG $-1 14BF 0000 7345+ NOP 000014C0 7345+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 14C0 0000 7345+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0002 7345+ LPOOL 14C1 D000 14C2 3333 000014C3 7345+ LP::L1 SET  $ SET UP LABEL AT END OF LPOOL 14C0 0000 7345+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 14C0 9E82 14C3 7345+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 14C3 0000 7345+  ORG LP::L1 CONTINUE AT END OF LPOOL 7345+ ENDC 7346 * 1PAGE 0320 MAC RO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:15:54.25 --CSKF-- INSTRUCTION TEST (PART 3-3)  7348 * 7349 * 7350 * THE FOLLOWING INSTRUCTION IS TESTED IN THIS SECTION:  7351 * 7352 * CSKF 7353 * 7354 * 00000001 7355 IFT 1 7355+ * CY=S OV=S A=:0000 Q=:0000 CSKF :0000 :0001=:0000 :0000 LT  000014C3 7355+ FLOAT1 SET $ 14C3 BFB3 14F7 7355+ JST INITRP INITIALIZE TRAP LOCATIONS 14C4 0900 7355+ COPY =:0000,A :0000 ==> 'A' 14C5 4900 7355+ COPY =:0000,Q :0000 ==> 'Q' 14C6 2800 7355+ COPY =:FF00,X :FF00 ==> 'X' 14C7 E2B0 14F8 7355+ COPY =:5555,Y  :5555 ==> 'Y' 14C8 0E05 7355+ SBIT CY,S S ==> CARRY FLAG 14C9 0E15 7355+ SBIT  OV,S S ==> OVERFLOW FLAG 00000001 7355+ IFT 0;0;0;0;1 14CA 9E82 14CD 7355+ JMP $+3 JUMP AROUND WORD 000014CB 7355+ FLOAT2 SET $ 14CB 0000 7355+ WORD :0000 INSTRUCTION OPERAND 14CC 0001 7355+ WORD :0001 000014CD 7355+ FLOAT3 SET $ 00000001 7355+ IFT 0;1 14CD 5C04 7355+ CSKF FLOAT2 DO THE OPERATION 14CE 14CB 7355+ ENDC 7355+ ENDC 00000001 7355+ IFT 1 00000001 7355+  IFT 1 14CF 9E82 14D2 7355+ JMP $+3 OK-- AQ IS LESS THAN OPERAND 14D0 0000 7355+  NOP 14D1 0E0D 7355+ HLT INCORRECT COMPARE 7355+ ENDC  7355+ ENDC 00000001 7355+ IFT 1 14D2 0D00 7355+ CSK A,=:0000 CHECK -A- 14D3 0000 7355+ NOP 14D4 0E0D 7355+ HLT CSKF MODIFIED -A- 14D5 4D00  7355+ CSK Q,=:0000 CHECK -Q- 14D6 0000 7355+ NOP 14D7 0E0D 7355+ HLT  CSKF MODIFIED -Q- 7355+ ENDC 1PAGE 0321 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:15:56.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 14D8 0020 7355+ COPY X,A  FOR TESTING 14D9 BA9F 14F9 7355+ CSK A,=:FF00 CHECK -X- 14DA 0000 7355+ NOP 14DB 0E0D 7355+ HLT CSKF MODIFIED -X- 14DC 0060 7355+ COPY Y,A FOR TESTING 14DD BA9A 14F8 7355+ CSK A,=:5555 CHECK -Y- 14DE 0000 7355+ NOP 14DF 0E0D 7355+ HLT CSKF MODIFIED -Y- 00000001 7355+ IFT 0;0;0;0;1 14E0 826A 14CB 7355+  COPY FLOAT2,A 14E1 0D00 7355+ CSK A,=:0000 CHECK OPERAND WORD 1 14E2 0000 7355+  NOP 14E3 0E0D 7355+ HLT CSKF MODIFIED OPERAND 14E4 8267 14CC 7355+ COPY FL OAT2+1,A 14E5 0D01 7355+ CSK A,=:0001 CHECK OPERAND WORD 2 14E6 0000 7355+ NOP 14E7 0E0D 7355+ HLT CSKF MODIFIED OPERAND 7355+ ENDC 00000001 7355+ IFT 0;1;0 00000001 7355+ IFT 1 14E8 3641 14EA 7355+ JT OV,$+2 OVERFLOW STILL SET? 14E9 0E0D 7355+ HLT NO-- CSKF CHANGED OVERFLOW 7355+  ENDC 00000001 7355+ IFT 1 14EA 5641 14EC 7355+ JT CY,$+2 CARRY STILL SET? 14EB 0E0D 7355+ HLT NO-- CSKF CHANGED CARRY 7355+ ENDC 7355+ ENDC 00000001 7355+ IFT 1 14EC 838D 14FA 7355+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 14ED 1141 14EF 7355+ JEQ A,$+2 STILL ZERO? 14EE 0E0D 7355+ HLT  NO-- CSKF ALTERED TRAP VECTOR 14EF 838B 14FB 7355+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 14F0 1141 14F2 7355+ JEQ A,$+2 STILL ZERO? 14F1 0E0D 7355+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7355+ IFT 0;0;1;0;0 14F2 8020 0020 7355+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 14F3 1141 14F5 7355+ JEQ A,$+2 STILL ZERO? 14F4 0E0D 7355+  HLT NO-- CSKF EXECUTED TRAP 7355+ ENDC 7355+ ENDC 14F5 9E4D 14C3 7355+ JMP FLOAT1 PATCH FOR LOOPING 14F5 0000 7355+ ORG $-1 1PAGE 0322 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:15:58.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 14F5 0000 7355+ NOP 000014F6 7355+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 14F6 0000 7355+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0005 7355+ LPOOL 14F7 122B INITRP 14F8 5555 14F9 FF00 14FA 00A8 ATRAP 14FB 00A9 000014FC 7355+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 14F6 0000 7355+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 14F6 9E85 14FC 7355+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 14FC 0000 7355+ ORG LP::L1  CONTINUE AT END OF LPOOL 7355+ ENDC 1PAGE 0323 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:15:58.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7357 IFT 1  7357+ * CY=R OV=R A=:0000 Q=:0000 CSKF :8000 :0001=:0000 :0000 GT 000014FC 7357+ FLOAT1 SET $ 14FC BF7A 14F7 7357+ JST INITRP INITIALIZE TRAP LOCATIONS 14FD 0900 7357+ COPY =:0000,A :0000 ==> 'A' 14FE 4900 7357+ COPY =:0000,Q :0000 ==> 'Q' 14FF 2800 7357+ COPY =:FF00,X :FF00 ==> 'X' 1500 E277 14F8 7357+ COPY =:5555,Y :5555 ==> 'Y' 1501 0E07 7357+ RBIT   CY,S R ==> CARRY FLAG 1502 0E17 7357+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7357+ IFT 0;0;0;0;1 1503 9E82 1506 7357+ JMP $+3 JUMP AROUND WORD 00001504 7357+ FLOAT2 SET $ 1504 8000 7357+ WORD :8000 INSTRUCTION OPERAND 1505 0001 7357+ WORD :0001 00001506 7357+ FLOAT3 SET $ 00000001 7357+ IFT 0;1 1506 5C04 7357+  CSKF FLOAT2 DO THE OPERATION 1507 1504 7357+ ENDC 7357+ ENDC 00000001 7357+ IFT 1 00000001 7357+ IFT 1 1508 0E0D 7357+ HLT  INCORRECT COMPARE 1509 9E81 150B 7357+ JMP $+2 OK-- AQ IS GREATER THAN OPERAND 150A 0E0D 7357+ HLT INCORRECT COMPARE 7357+ ENDC 7357+  ENDC 00000001 7357+ IFT 1 150B 0D00 7357+ CSK A,=:0000 CHECK -A- 150C 0000 7357+ NOP 150D 0E0D 7357+ HLT CSKF MODIFIED -A- 150E 4D00 7357+  CSK Q,=:0000 CHECK -Q- 150F 0000 7357+ NOP 1510 0E0D 7357+ HLT  CSKF MODIFIED -Q- 7357+ ENDC 1511 0020 7357+ COPY X,A FOR TESTING 1512 BA66 14F9 7357+ CSK A,=:FF00 CHECK -X- 1513 0000 7357+ NOP 1514 0E0D 7357+ HLT CSKF MODIFIED -X- 1515 0060 7357+ COPY Y,A FOR TESTING 1516 BA61 14F8 7357+ CSK A,=:5555 CHECK -Y- 1517 0000 7357+ NOP 1PAGE 0324 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:00.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 1518 0E0D 7357+ HLT CSKF MODIFIED -Y- 00000001 7357+ IFT 0;0;0;0;1 1519 826A 1504 7357+ COPY  FLOAT2,A 151A BA95 1530 7357+ CSK A,=:8000 CHECK OPERAND WORD 1 151B 0000 7357+ NOP 151C 0E0D 7357+ HLT CSKF MODIFIED OPERAND 151D 8267 1505 7357+ COPY FLOAT2+1,A 151E 0D01 7357+ CSK A,=:0001 CHECK OPERAND WORD 2 151F 0000 7357+ NOP 1520 0E0D 7357+ HLT CSKF MODIFIED OPERAND 7357+ ENDC 00000001 7357+ IFT 0;1;0 00000001 7357+ IFT 1 1521 36C1 1523 7357+ JF OV,$+2 OVERFLOW STILL RESET? 1522 0E0D 7357+ HLT NO-- CSKF CHANGED OVERFLOW 7357+ ENDC  00000001 7357+ IFT 1 1523 56C1 1525 7357+ JF CY,$+2 CARRY STILL RESET? 1524 0E0D  7357+ HLT NO-- CSKF CHANGED CARRY 7357+ ENDC 7357+  ENDC 00000001 7357+ IFT 1 1525 8354 14FA 7357+ COPY ATRAP,A 1ST WORD OF TRAP VEC TOR 1526 1141 1528 7357+ JEQ A,$+2 STILL ZERO? 1527 0E0D 7357+ HLT NO-- CSKF ALTERED TRAP VECTOR 1528 8352 14FB 7357+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 1529 1141 152B 7357+ JEQ A,$+2 STILL ZERO? 152A 0E0D 7357+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7357+ IFT 0;0;1;0;0 152B 8020 0020 7357+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 152C 1141 152E 7357+ JEQ A,$+2 STILL ZERO? 152D 0E0D 7357+ HLT  NO-- CSKF EXECUTED TRAP 7357+ ENDC 7357+ ENDC 152E 9E4D 14FC 7357+ JMP FLOAT1 PATCH FOR LOOPING 152E 0000 7357+ ORG $-1 152E 0000 7357+  NOP 0000152F 7357+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 152F 0000 7357+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0001 7357+ LPOOL 1530 8000 00001531 7357+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 152F 0000 7357+ ORG LP::L  GO BACK TO OVERLAY NOP WITH JMP INST. 1PAGE 0325 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25  16:16:02.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 152F 9E81 1531 7357+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1531 0000 7357+ ORG LP::L1 CONTINUE AT END OF LPOOL 7357+ ENDC 1PAGE 0326 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:03.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7359 IFT 1 7359+ * CY=S OV=S A=:0000 Q=:0000 CSKF :0000 :0000=:0000 :0000 EQ 00001531 7359+ FLOAT1 SET $ 1531 BF45 14F7 7359+ JST INITRP INITIALIZE TRAP LOCATIONS 1532 0900 7359+ COPY =:0000,A :0000 ==> 'A' 1533 4900 7359+ COPY =:0000,Q  :0000 ==> 'Q' 1534 2800 7359+ COPY =:FF00,X :FF00 ==> 'X' 1535 E242 14F8 7359+ COPY =:5555,Y :5555 ==> 'Y' 1536 0E05 7359+ SBIT CY,S S ==> CARRY FLAG 1537 0E15 7359+  SBIT OV,S S ==> OVERFLOW FLAG 00000001 7359+ IFT 0;0;0;0;1 1538 9E82 153B 7359+ JMP $+3 JUMP AROUND WORD 00001539 7359+ FLOAT2 SET $ 1539 0000 7359+ WORD :0000 INSTRUCTION OPERAND 153A 0000 7359+ WORD :0000 0000153B 7359+ FLOAT3 SET $ 00000001 7359+ IFT 0;1 153B 5C04 7359+ CSKF FLOAT2 DO THE OPERATION 153C 1539  7359+ ENDC 7359+ ENDC 00000001 7359+ IFT 1 00000001 7359+ IFT 1 153D 0000 7359+ NOP 153E 0E0D 7359+ HLT INCORRECT COMPARE 153F 0000 7359+ NOP OK-- AQ IS EQUAL TO OPERAND 7359+ ENDC   7359+ ENDC 00000001 7359+ IFT 1 1540 0D00 7359+ CSK A,=:0000  CHECK -A- 1541 0000 7359+ NOP 1542 0E0D 7359+ HLT CSKF MODIFIED -A- 1543 4D00 7359+ CSK Q,=:0000 CHECK -Q- 1544 0000 7359+ NOP 1545 0E0D 7359+ HLT CSKF MODIFIED -Q- 7359+ ENDC 1546 0020 7359+ COPY X,A  FOR TESTING 1547 BA31 14F9 7359+ CSK A,=:FF00 CHECK -X- 1548 0000 7359+ NOP 1549 0E0D  7359+ HLT CSKF MODIFIED -X- 154A 0060 7359+ COPY Y,A FOR TESTING 154B BA2C 14F8 7359+ CSK A,=:5555 CHECK -Y- 154C 0000 7359+ NOP 1PAGE 0327 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:05.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 154D 0E0D  7359+ HLT CSKF MODIFIED -Y- 00000001 7359+ IFT 0;0;0;0;1 154E 826A 1539 7359+ COPY FLOAT2,A 154F 0D00 7359+ CSK A,=:0000 CHECK OPERAND WORD 1 1550 0000 7359+ NOP 1551 0E0D 7359+ HLT CSKF MODIFIED OPERAND 1552 8267 153A 7359+ COPY FLOAT2+1,A 1553 0D00 7359+ CSK A,=:0000 CHECK OPERAND WORD 2 1554 0000 7359+ NOP 1555 0E0D 7359+ HLT CSKF MODIFIED OPERAND 7359+ ENDC 00000001 7359+ IFT 0;1;0 00000001 7359+ IFT 1 1556 3641 1558 7359+ JT OV,$+2  OVERFLOW STILL SET? 1557 0E0D 7359+ HLT NO-- CSKF CHANGED OVERFLOW 7359+ ENDC 00000001 7359+ IFT 1 1558 5641 155A 7359+ JT CY,$+2 CARRY STILL SET? 1559 0E0D 7359+ HLT NO-- CSKF CHANGED CARRY 7359+ ENDC  7359+ ENDC 00000001 7359+ IFT 1 155A 831F 14FA 7359+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 155B 1141 155D 7359+ JEQ A,$+2 STILL ZERO? 155C 0E0D 7359+ HLT  NO-- CSKF ALTERED TRAP VECTOR 155D 831D 14FB 7359+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 155E 1141 1560 7359+ JEQ A,$+2 STILL ZERO? 155F 0E0D 7359+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7359+ IFT 0;0;1;0;0 1560 8020 0020 7359+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 1561 1141 1563 7359+ JEQ A,$+2 STILL ZERO? 1562 0E0D 7359+ HLT NO-- CSKF EXECUTED TRAP 7359+ ENDC 7359+ ENDC 1563 9E4D 1531 7359+ JMP FLOAT1 PATCH FOR LOOPING 1563 0000 7359+ ORG $-1 1563 0000 7359+ NOP 00001564 7359+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST.  1564 0000 7359+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0000 7359+ LPOOL  00001565 7359+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1564 0000 7359+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1564 9E80 1565 7359+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1PAGE 0328 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:07.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 1565 0000 7359+ ORG LP::L1 CONTINUE AT END OF LPOOL 7359+ ENDC 1PAGE 0329 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:07.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7361 IFT 1 7361+ * CY=S OV=S A=:0000 Q=:0001 CSKF :0000 :0000=:0000 :0001 GT 00001565 7361+ FLOAT1 SET $ 1565 BF11 14F7 7361+ JST INITRP INITIALIZE TRAP LOCATIONS 1566 0900 7361+ COPY =:0000,A :0000 ==> 'A' 1567 4901 7361+ COPY =:0001,Q :0001 ==> 'Q' 1568 2800 7361+ COPY =:FF00,X :FF00 ==> 'X' 1569 E20E 14F8 7361+ COPY  =:5555,Y :5555 ==> 'Y' 156A 0E05 7361+ SBIT CY,S S ==> CARRY FLAG 156B 0E15 7361+  SBIT OV,S S ==> OVERFLOW FLAG 00000001 7361+ IFT 0;0;0;0;1 156C 9E82 156F 7361+  JMP $+3 JUMP AROUND WORD 0000156D 7361+ FLOAT2 SET $ 156D 0000 7361+ WORD  :0000 INSTRUCTION OPERAND 156E 0000 7361+ WORD :0000 0000156F 7361+ FLOAT3 SET $  00000001 7361+ IFT 0;1 156F 5C04 7361+ CSKF FLOAT2 DO THE OPERATION 1570 156D  7361+ ENDC 7361+ ENDC 00000001 7361+ IFT 1 00000001 7361+ IFT 1 1571 0E0D 7361+ HLT INCORRECT COMPARE 1572 9E81 1574 7361+  JMP $+2 OK-- AQ IS GREATER THAN OPERAND 1573 0E0D 7361+ HLT INCORRECT COMPARE 7361+ ENDC 7361+ ENDC 00000001 7361+ IFT 1 1574 0D00 7361+ CSK A,=:0000 CHECK -A- 1575 0000 7361+ NOP 1576 0E0D 7361+ HLT CSKF MODIFIED -A- 1577 4D01 7361+ CSK Q,=:0001 CHECK -Q- 1578 0000 7361+ NOP 1579 0E0D 7361+ HLT CSKF MODIFIED -Q- 7361+ ENDC 157A 0020 7361+ COPY X,A FOR TESTING 157B BA9D 1599 7361+ CSK A,=:FF00 CHECK -X-  157C 0000 7361+ NOP 157D 0E0D 7361+ HLT CSKF MODIFIED -X- 157E 0060 7361+ COPY Y,A FOR TESTING 157F BA9A 159A 7361+ CSK A,=:5555 CHECK -Y- 1580 0000  7361+ NOP 1PAGE 0330 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:09.25 --CSKF -- INSTRUCTION TEST (PART 3-3) 1581 0E0D 7361+ HLT CSKF MODIFIED -Y- 00000001 7361+ IFT 0;0;0;0;1 1582 826A 156D 7361+ COPY FLOAT2,A 1583 0D00 7361+ CSK A,=:0000 CHECK OPERAND WORD 1 1584 0000 7361+ NOP 1585 0E0D 7361+ HLT CSKF MODIFIED OPERAND 1586 8267 156E 7361+ COPY FLOAT2+1,A 1587 0D00 7361+ CSK A,=:0000 CHECK OPERAND WORD 2 1588 0000 7361+ NOP 1589 0E0D 7361+ HLT CSKF MODIFIED OPERAND  7361+ ENDC 00000001 7361+ IFT 0;1;0 00000001 7361+ IFT 1 158A 3641 158C 7361+ JT OV,$+2 OVERFLOW STILL SET? 158B 0E0D 7361+ HLT NO-- CSKF CHANGED OVERFLOW 7361+ ENDC 00000001 7361+ IFT 1 158C 5641 158E 7361+  JT CY,$+2 CARRY STILL SET? 158D 0E0D 7361+ HLT NO-- CSKF CHANGED CARRY  7361+ ENDC 7361+ ENDC 00000001 7361+ IFT 1 158E 838C 159B 7361+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 158F 1141 1591 7361+ JEQ A,$+2 STILL ZERO? 1590 0E0D 7361+ HLT NO-- CSKF ALTERED TRAP VECTOR 1591 838A 159C 7361+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 1592 1141 1594 7361+ JEQ A,$+2 STILL ZERO? 1593 0E0D 7361+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7361+ IFT 0;0;1;0;0 1594 8020 0020 7361+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 1595 1141 1597 7361+ JEQ A,$+2 STILL ZERO? 1596 0E0D 7361+ HLT NO-- CSKF EXECUTED TRAP 7361+  ENDC 7361+ ENDC 1597 9E4D 1565 7361+ JMP FLOAT1 PATCH FOR LOOPING  1597 0000 7361+ ORG $-1 1597 0000 7361+ NOP 00001598 7361+ LP::L SET $  SET UP LABEL TO REPLACE NOP WITH JMP INST. 1598 0000 7361+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0004 7361+ LPOOL 1599 FF00 159A 5555 159B 00A8 ATRAP 1PAGE 0331 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:11.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 159C 00A9 0000159D 7361+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1598 0000 7361+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1598 9E84 159D 7361+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 159D 0000 7361+ ORG LP::L1 CONTINUE AT END OF LPOOL 7361+ ENDC 1PAGE 0332 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:11.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7363 IFT 1 7363+ * CY=R OV=R A=:8000 Q=:0001 CSKF :0000 :0000=:8000 :0001 LT 0000159D   7363+ FLOAT1 SET $ 159D BFB3 15D1 7363+ JST INITRP INITIALIZE TRAP LOCATIONS 159E 8211 1530 7363+ COPY =:8000,A :8000 ==> 'A' 159F 4901 7363+ COPY =:0001,Q :0001 ==> 'Q' 15A0 2800 7363+ COPY =:FF00,X :FF00 ==> 'X' 15A1 E278 159A 7363+ COPY =:5555,Y :5555 ==> 'Y'  15A2 0E07 7363+ RBIT CY,S R ==> CARRY FLAG 15A3 0E17 7363+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7363+ IFT 0;0;0;0;1 15A4 9E82 15A7 7363+ JMP $+3 JUMP AROUND WORD 000015A5 7363+ FLOAT2 SET $ 15A5 0000 7363+ WORD :0000 INSTRUCTION OPERAND 15A6 0000 7363+ WORD :0000 000015A7 7363+ FLOAT3 SET $ 00000001 7363+ IFT 0;1 15A7 5C04 7363+ CSKF FLOAT2 DO THE OPERATION 15A8 15A5 7363+ ENDC 7363+ ENDC 00000001 7363+ IFT 1 00000001 7363+ IFT 1 15A9 9E82 15AC 7363+ JMP $+3 OK-- AQ IS LESS THAN OPERAND 15AA 0000 7363+ NOP 15AB 0E0D 7363+ HLT INCORRECT COMPARE 7363+ ENDC 7363+  ENDC 00000001 7363+ IFT 1 15AC BA03 1530 7363+ CSK A,=:8000 CHECK -A- 15AD 0000  7363+ NOP 15AE 0E0D 7363+ HLT CSKF MODIFIED -A- 15AF 4D01 7363+  CSK Q,=:0001 CHECK -Q- 15B0 0000 7363+ NOP 15B1 0E0D 7363+ HLT CSKF MODIFIED -Q- 7363+ ENDC 15B2 0020 7363+ COPY X,A FOR TESTING 15B3 BA65 1599 7363+ CSK A,=:FF00 CHECK -X- 15B4 0000 7363+ NOP 15B5 0E0D 7363+ HLT CSKF MODIFIED -X- 15B6 0060 7363+ COPY Y,A FOR TESTING 15B7 BA62 159A 7363+  CSK A,=:5555 CHECK -Y- 15B8 0000 7363+ NOP 1PAGE 0333 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:13.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 15B9 0E0D 7363+ HLT  CSKF MODIFIED -Y- 00000001 7363+ IFT 0;0;0;0;1 15BA 826A 15A5 7363+ COPY FLOAT2,A 15BB 0D00 7363+ CSK A,=:0000 CHECK OPERAND WORD 1 15BC 0000 7363+ NOP 15BD 0E0D 7363+ HLT CSKF MODIFIED OPERAND 15BE 8267 15A6 7363+ COPY FLOAT2+1,A 15BF 0D00 7363+ CSK A,=:0000 CHECK OPERAND WORD 2 15C0 0000 7363+ NOP 15C1 0E0D 7363+  HLT CSKF MODIFIED OPERAND 7363+ ENDC 00000001 7363+ IFT  0;1;0 00000001 7363+ IFT 1 15C2 36C1 15C4 7363+ JF OV,$+2 OVERFLOW STILL RESET? 15C3 0E0D 7363+ HLT NO-- CSKF CHANGED OVERFLOW 7363+ ENDC 0  0000001 7363+ IFT 1 15C4 56C1 15C6 7363+ JF CY,$+2 CARRY STILL RESET? 15C5 0E0D 7363+ HLT NO-- CSKF CHANGED CARRY 7363+ ENDC 7363+  ENDC 00000001 7363+ IFT 1 15C6 8354 159B 7363+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 15C7 1141 15C9 7363+ JEQ A,$+2 STILL ZERO? 15C8 0E0D 7363+ HLT NO-- CSKF ALTERED TRAP VECTOR 15C9 8352 159C 7363+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 15CA 1141 15CC 7363+  JEQ A,$+2 STILL ZERO? 15CB 0E0D 7363+ HLT NO-- CSKF ALTERED TRAP VECTOR  00000001 7363+ IFT 0;0;1;0;0 15CC 8020 0020 7363+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 15CD 1141 15CF 7363+ JEQ A,$+2 STILL ZERO? 15CE 0E0D 7363+ HLT  NO-- CSKF EXECUTED TRAP 7363+ ENDC 7363+ ENDC 15CF 9E4D 159D 7363+ JMP FLOAT1 PATCH FOR LOOPING 15CF 0000 7363+ ORG $-1 15CF 0000 7363+  NOP 000015D0 7363+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 15D0 0000 7363+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0001 7363+ LPOOL 15D1 122B INITRP  000015D2 7363+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 15D0 0000 7363+ ORG LP::L  GO BACK TO OVERLAY NOP WITH JMP INST. 1PAGE 0334 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:15.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 15D0 9E81 15D2 7363+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 15D2 0000 7363+ ORG LP::L1 CONTINUE AT END OF LPOOL 7363+ ENDC 1PAGE 0335 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:16.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7365 IFT 1 7365+ * CY=S OV=S A=:8000 Q=:0000 CSKF :8000 :0000=:8000 :0000 EQ 000015D2 7365+ FLOAT1 SET $ 15D2 BF7E 15D1 7365+ JST INITRP INITIALIZE TRAP LOCATIONS 15D3 82B2 1606 7365+ COPY =:8000,A :8000 ==> 'A' 15D4 4900 7365+ COPY =:0000,Q  :0000 ==> 'Q' 15D5 2800 7365+ COPY =:FF00,X :FF00 ==> 'X' 15D6 E243 159A 7365+ COPY  =:5555,Y :5555 ==> 'Y' 15D7 0E05 7365+ SBIT CY,S S ==> CARRY FLAG 15D8 0E15 7365+  SBIT OV,S S ==> OVERFLOW FLAG 00000001 7365+ IFT 0;0;0;0;1 15D9 9E82 15DC 7365+  JMP $+3 JUMP AROUND WORD 000015DA 7365+ FLOAT2 SET $ 15DA 8000 7365+ WORD :8000 INSTRUCTION OPERAND 15DB 0000 7365+ WORD :0000 000015DC 7365+ FLOAT3 SET $  00000001 7365+ IFT 0;1 15DC 5C04 7365+ CSKF FLOAT2 DO THE OPERATION 15DD 15DA   7365+ ENDC 7365+ ENDC 00000001 7365+ IFT 1 00000001  7365+ IFT 1 15DE 0000 7365+ NOP 15DF 0E0D 7365+ HLT INCORRECT COMPARE 15E0 0000 7365+ NOP OK-- AQ IS EQUAL TO OPERAND 7365+ ENDC  7365+ ENDC 00000001 7365+ IFT 1 15E1 BAA4 1606 7365+ CSK A,=:8000 CHECK -A- 15E2 0000 7365+ NOP 15E3 0E0D 7365+ HLT CSKF MODIFIED -A- 15E4 4D00 7365+ CSK Q,=:0000 CHECK -Q- 15E5 0000 7365+ NOP 15E6 0E0D 7365+  HLT CSKF MODIFIED -Q- 7365+ ENDC 15E7 0020 7365+ COPY X,A  FOR TESTING 15E8 BA30 1599 7365+ CSK A,=:FF00 CHECK -X- 15E9 0000 7365+ NOP 15EA 0E0D 7365+ HLT CSKF MODIFIED -X- 15EB 0060 7365+ COPY Y,A FOR TESTING 15EC BA2D 159A 7365+ CSK A,=:5555 CHECK -Y- 15ED 0000 7365+ NOP 1PAGE 0336 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:17.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 15EE 0E0D 7365+ HLT CSKF MODIFIED -Y- 00000001 7365+ IFT 0;0;0;0;1 15EF 826A 15DA 7365+ COPY FLOAT2,A 15F0 BA95 1606 7365+ CSK A,=:8000 CHECK OPERAND WORD 1 15F1 0000  7365+ NOP 15F2 0E0D 7365+ HLT CSKF MODIFIED OPERAND 15F3 8267 15DB 7365+  COPY FLOAT2+1,A 15F4 0D00 7365+ CSK A,=:0000 CHECK OPERAND WORD 2 15F5 0000 7365+  NOP 15F6 0E0D 7365+ HLT CSKF MODIFIED OPERAND 7365+ ENDC 00000001 7365+ IFT 0;1;0 00000001 7365+ IFT 1 15F7 3641 15F9 7365+ JT OV,$+2 OVERFLOW STILL SET? 15F8 0E0D 7365+ HLT NO-- CSKF CHANGED OVERFLOW 7365+ ENDC 00000001 7365+ IFT 1 15F9 5641 15FB 7365+ JT CY,$+2 CARRY STILL SET? 15FA 0E0D 7365+ HLT NO-- CSKF CHANGED CARRY 7365+ ENDC  7365+ ENDC 00000001 7365+ IFT 1 15FB 831F 159B 7365+ COPY ATRAP,A  1ST WORD OF TRAP VECTOR 15FC 1141 15FE 7365+ JEQ A,$+2 STILL ZERO? 15FD 0E0D 7365+ HLT  NO-- CSKF ALTERED TRAP VECTOR 15FE 831D 159C 7365+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR  15FF 1141 1601 7365+ JEQ A,$+2 STILL ZERO? 1600 0E0D 7365+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7365+ IFT 0;0;1;0;0 1601 8020 0020 7365+ COPY QTEMP,A  CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 1602 1141 1604 7365+ JEQ A,$+2 STILL ZERO? 1603 0E0D 7  365+ HLT NO-- CSKF EXECUTED TRAP 7365+ ENDC 7365+  ENDC 1604 9E4D 15D2 7365+ JMP FLOAT1 PATCH FOR LOOPING 1604 0000 7365+ ORG $-1 1604 0000 7365+ NOP 00001605 7365+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1605 0000 7365+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0001 7365+ LPOOL 1606 8000 00001607 7365+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1605 0000 7365+  ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1PAGE 0337 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:20.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 1605 9E81 1607 7365+ JMP LP::L1  JUMP TO LABEL AT END OF LPOOL 1607 0000 7365+ ORG LP::L1 CONTINUE AT END OF LPOOL 7365+ ENDC 1PAGE 0338 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:20.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7367 IFT 1 7367+ * CY=R OV=R A=:0000 Q=:0000 CSKF :8000 :0000=:0000 :0000 EQ 00001607 7367+ FLOAT1 SET $ 1607 BF49 15D1 7367+ JST INITRP INITIALIZE TRAP LOCATIONS 1608 0900 7367+ COPY =:0000,A :0000 ==> 'A' 1609 4900 7367+ COPY =:0000,Q :0000 ==> 'Q' 160A 2800 7367+ COPY =:FF00,X :FF00 ==> 'X' 160B E20E 159A 7367+  COPY =:5555,Y :5555 ==> 'Y' 160C 0E07 7367+ RBIT CY,S R ==> CARRY FLAG 160D 0E17 7367+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7367+ IFT 0;0;0;0;1 160E 9E82 1611 7367+ JMP $+3 JUMP AROUND WORD 0000160F 7367+ FLOAT2 SET $ 160F 8000 7367+  WORD :8000 INSTRUCTION OPERAND 1610 0000 7367+ WORD :0000 00001611 7367+ FLOAT3  SET $ 00000001 7367+ IFT 0;1 1611 5C04 7367+ CSKF FLOAT2 DO THE OPERATION 1612 160F 7367+ ENDC 7367+ ENDC 00000001 7367+ IFT 1 00000001 7367+ IFT 1 1613 0000 7367+ NOP 1614 0E0D 7367+ HLT  INCORRECT COMPARE 1615 0000 7367+ NOP OK-- AQ IS EQUAL TO OPERAND 7367+ ENDC 7367+ ENDC 00000001 7367+ IFT 1 1616 0D00 7367+  CSK A,=:0000 CHECK -A- 1617 0000 7367+ NOP 1618 0E0D 7367+ HLT CSKF MODIFIED -A- 1619 4D00 7367+ CSK Q,=:0000 CHECK -Q- 161A 0000 7367+ NOP 161B 0E0D  7367+ HLT CSKF MODIFIED -Q- 7367+ ENDC 161C 0020 7367+  COPY X,A FOR TESTING 161D BA9D 163B 7367+ CSK A,=:FF00 CHECK -X- 161E 0000 7367+   NOP 161F 0E0D 7367+ HLT CSKF MODIFIED -X- 1620 0060 7367+ COPY Y,A  FOR TESTING 1621 BA9A 163C 7367+ CSK A,=:5555 CHECK -Y- 1622 0000 7367+ NOP 1PAGE 0339 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:22.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 1623 0E0D 7367+ HLT CSKF MODIFIED -Y- 00000001 7367+ IFT 0;0;0;0;1 1624 826A 160F 7367+ COPY FLOAT2,A 1625 BA60 1606 7367+ CSK A,=:8000 CHECK OPERAND WORD 1 1626 0000 7367+ NOP 1627 0E0D 7367+ HLT CSKF MODIFIED OPERAND 1628 8267 1610 7367+ COPY FLOAT2+1,A 1629 0D00 7367+ CSK A,=:0000 CHECK OPERAND WORD 2 162A 0000  7367+ NOP 162B 0E0D 7367+ HLT CSKF MODIFIED OPERAND 7367+  ENDC 00000001 7367+ IFT 0;1;0 00000001 7367+ IFT 1 162C 36C1 162E 7367+  JF OV,$+2 OVERFLOW STILL RESET? 162D 0E0D 7367+ HLT NO-- CSKF CHANGED OVERFLOW 7367+ ENDC 00000001 7367+ IFT 1 162E 56C1 1630 7367+ JF CY,$+2 CARRY STILL RESET? 162F 0E0D 7367+ HLT NO-- CSKF CHANGED CARRY 7367+ ENDC 7367+ ENDC 00000001 7367+ IFT 1 1630 838C 163D 7367+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 1631 1141 1633 7367+ JEQ A,$+2 STILL ZERO? 1632 0E0D  7367+ HLT NO-- CSKF ALTERED TRAP VECTOR 1633 838A 163E 7367+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 1634 1141 1636 7367+ JEQ A,$+2 STILL ZERO? 1635 0E0D 7367+ HLT  NO-- CSKF ALTERED TRAP VECTOR 00000001 7367+ IFT 0;0;1;0;0 1636 8020 0020 7367+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 1637 1141 1639 7367+ JEQ A,$+2 STILL ZERO? 1638 0E0D 7367+ HLT NO-- CSKF EXECUTED TRAP 7367+ ENDC  7367+ ENDC 1639 9E4D 1607 7367+ JMP FLOAT1 PATCH FOR LOOPING 1639 0000 7367+  ORG $-1 1639 0000 7367+ NOP 0000163A 7367+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 163A 0000 7367+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0004  7367+ LPOOL 163B FF00 163C 5555 163D 00A8 ATRAP 1PAGE 0340 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:24.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 163E 00A9 0000163F 7367+ LP::L1 SET $  SET UP LABEL AT END OF LPOOL 163A 0000 7367+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 163A 9E84 163F 7367+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 163F 0000 7367+ ORG   LP::L1 CONTINUE AT END OF LPOOL 7367+ ENDC 1PAGE 0341 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:24.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7369 IFT  1 7369+ * CY=S OV=S A=:8000 Q=:0000 CSKF :0000 :0000=:8000 :0000 EQ 0000163F 7369+ FLOAT1 SET  $ 163F BF11 15D1 7369+ JST INITRP INITIALIZE TRAP LOCATIONS 1640 8245 1606 7369+ COPY =:8000,A :8000 ==> 'A' 1641 4900 7369+ COPY =:0000,Q :0000 ==> 'Q' 1642 2800 7369+ COPY =:FF00,X :FF00 ==> 'X' 1643 E278 163C 7369+ COPY =:5555,Y :5555 ==> 'Y' 1644 0E05 7369+ SBIT CY,S S ==> CARRY FLAG 1645 0E15 7369+ SBIT OV,S S ==> OVERFLOW FLAG  00000001 7369+ IFT 0;0;0;0;1 1646 9E82 1649 7369+ JMP $+3 JUMP AROUND WORD 00001647 7369+ FLOAT2 SET $ 1647 0000 7369+ WORD :0000 INSTRUCTION OPERAND 1648 0000 7369+ WORD :0000 00001649 7369+ FLOAT3 SET $ 00000001 7369+ IFT 0;1 1649 5C04  7369+ CSKF FLOAT2 DO THE OPERATION 164A 1647 7369+ ENDC 7369+ ENDC 00000001 7369+ IFT 1 00000001 7369+ IFT 1 164B 0000 7369+  NOP 164C 0E0D 7369+ HLT INCORRECT COMPARE 164D 0000 7369+ NOP  OK-- AQ IS EQUAL TO OPERAND 7369+ ENDC 7369+ ENDC 00000001 7369+ IFT 1 164E BA37 1606 7369+ CSK A,=:8000 CHECK -A- 164F 0000 7369+ NOP 1650 0E0D 7369+ HLT CSKF MODIFIED -A- 1651 4D00 7369+ CSK Q,=:0000  CHECK -Q- 1652 0000 7369+ NOP 1653 0E0D 7369+ HLT CSKF MODIFIED -Q-  7369+ ENDC 1654 0020 7369+ COPY X,A FOR TESTING 1655 BA65 163B 7369+  CSK A,=:FF00 CHECK -X- 1656 0000 7369+ NOP 1657 0E0D 7369+ HLT CSKF MODIFIED -X- 1658 0060 7369+ COPY Y,A FOR TESTING 1659 BA62 163C 7369+ CSK A,=:5555 CHECK -Y- 165A 0000 7369+ NOP 1PAGE 0342 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:26.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 165B 0E0D 7369+ HLT CSKF MODIFIED -Y- 00000001 7369+ IFT 0;0;0;0;1 165C 826A 1647 7369+ COPY FLOAT2,A 165D 0D00  7369+ CSK A,=:0000 CHECK OPERAND WORD 1 165E 0000 7369+ NOP 165F 0E0D 7369+  HLT CSKF MODIFIED OPERAND 1660 8267 1648 7369+ COPY FLOAT2+1,A 1661 0D00 7369+  CSK A,=:0000 CHECK OPERAND WORD 2 1662 0000 7369+ NOP 1663 0E0D 7369+ HLT   CSKF MODIFIED OPERAND 7369+ ENDC 00000001 7369+ IFT 0;1;0 00000001 7369+ IFT 1 1664 3641 1666 7369+ JT OV,$+2 OVERFLOW STILL SET? 1665 0E0D 7369+  HLT NO-- CSKF CHANGED OVERFLOW 7369+ ENDC 00000001 7369+ IFT 1 1666 5641 1668 7369+ JT CY,$+2 CARRY STILL SET? 1667 0E0D 7369+ HLT  NO-- CSKF CHANGED CARRY 7369+ ENDC 7369+ ENDC 00000001 7369+ IFT 1 1668 8354 163D 7369+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 1669 1141 166B 7369+  JEQ A,$+2 STILL ZERO? 166A 0E0D 7369+ HLT NO-- CSKF ALTERED TRAP VECTOR 166B 8352 163E 7369+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 166C 1141 166E 7369+ JEQ A,$+2  STILL ZERO? 166D 0E0D 7369+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7369+  IFT 0;0;1;0;0 166E 8020 0020 7369+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 166F 1141 1671 7369+ JEQ A,$+2 STILL ZERO? 1670 0E0D 7369+ HLT NO-- CSKF EXECUTED TRAP 7369+ ENDC 7369+ ENDC 1671 9E4D 163F 7369+ JMP FLOAT1 PATCH FOR LOOPING 1671 0000 7369+ ORG $-1 1671 0000 7369+ NOP 00001672 7369+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1672 0000 7369+ NOP  RESERVE SPACE FOR JMP INSTRUCTION 0000 7369+ LPOOL 00001673 7369+ LP::L1 SET $  SET UP LABEL AT END OF LPOOL 1672 0000 7369+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST.  1672 9E80 1673 7369+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1PAGE 0343 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:28.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 1673 0000 7369+  ORG LP::L1 CONTINUE AT END OF LPOOL 7369+ ENDC 1PAGE 0344 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:29.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7371  IFT 1 7371+ * CY=R OV=R A=:0000 Q=:8000 CSKF :0000 :8001=:0000 :8000 LT 00001673 7371+ FLOAT1 SET $ 1673 BFB3 16A7 7371+ JST INITRP INITIALIZE TRAP LOCATIONS 1674 0900 7371+ COPY =:0000,A :0000 ==> 'A' 1675 C210 1606 7371+ COPY =:8000,Q :8000 ==> 'Q' 1676 2800 7371+  COPY =:FF00,X :FF00 ==> 'X' 1677 E244 163C 7371+ COPY =:5555,Y :5555 ==> 'Y' 1678 0E07  7371+ RBIT CY,S R ==> CARRY FLAG 1679 0E17 7371+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7371+ IFT 0;0;0;0;1 167A 9E82 167D 7371+ JMP $+3 JUMP AROUND WORD   0000167B 7371+ FLOAT2 SET $ 167B 0000 7371+ WORD :0000 INSTRUCTION OPERAND 167C 8001  7371+ WORD :8001 0000167D 7371+ FLOAT3 SET $ 00000001 7371+ IFT 0;1 167D 5C04 7371+ CSKF FLOAT2 DO THE OPERATION 167E 167B 7371+ ENDC  7371+ ENDC 00000001 7371+ IFT 1 00000001 7371+ IFT 1 167F 9E82 1682 7371+ JMP $+3 OK-- AQ IS LESS THAN OPERAND 1680 0000 7371+ NOP 1681 0E0D 7371+  HLT INCORRECT COMPARE 7371+ ENDC 7371+ ENDC 00000001 7371+ IFT 1 1682 0D00 7371+ CSK A,=:0000 CHECK -A- 1683 0000 7371+  NOP 1684 0E0D 7371+ HLT CSKF MODIFIED -A- 1685 FA00 1606 7371+ CSK Q,=:8000 CHECK -Q- 1686 0000 7371+ NOP 1687 0E0D 7371+ HLT CSKF MODIFIED -Q-  7371+ ENDC 1688 0020 7371+ COPY X,A FOR TESTING 1689 BA31 163B 7371+  CSK A,=:FF00 CHECK -X- 168A 0000 7371+ NOP 168B 0E0D 7371+ HLT  CSKF MODIFIED -X- 168C 0060 7371+ COPY Y,A FOR TESTING 168D BA2E 163C 7371+ CSK  A,=:5555 CHECK -Y- 168E 0000 7371+ NOP 1PAGE 0345 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:30.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 168F 0E0D 7371+ HLT  CSKF MODIFIED -Y- 00000001 7371+ IFT 0;0;0;0;1 1690 826A 167B 7371+ COPY FLOAT2,A 1691 0D00 7371+ CSK A,=:0000 CHECK OPERAND WORD 1 1692 0000 7371+ NOP 1693 0E0D 7371+  HLT CSKF MODIFIED OPERAND 1694 8267 167C 7371+ COPY FLOAT2+1,A 1695 BA92 16A8 7371+  CSK A,=:8001 CHECK OPERAND WORD 2 1696 0000 7371+ NOP 1697 0E0D 7371+ HLT  CSKF MODIFIED OPERAND 7371+ ENDC 00000001 7371+ IFT 0;1;0 00000001 7371+ IFT 1 1698 36C1 169A 7371+ JF OV,$+2 OVERFLOW STILL RESET? 1699 0E0D  7371+ HLT NO-- CSKF CHANGED OVERFLOW 7371+ ENDC 00000001 7371+  IFT 1 169A 56C1 169C 7371+ JF CY,$+2 CARRY STILL RESET? 169B 0E0D 7371+ HLT NO-- CSKF CHANGED CARRY 7371+ ENDC 7371+ ENDC 00000001 7371+ IFT 1 169C 8320 163D 7371+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 169D 1141 169F 7371+ JEQ A,$+2 STILL ZERO? 169E 0E0D 7371+ HLT NO-- CSKF ALTERED TRAP VECTOR 169F 831E 163E 7371+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 16A0 1141 16A2 7371+ JEQ   A,$+2 STILL ZERO? 16A1 0E0D 7371+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001  7371+ IFT 0;0;1;0;0 16A2 8020 0020 7371+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 16A3 1141 16A5 7371+ JEQ A,$+2 STILL ZERO? 16A4 0E0D 7371+ HLT NO-- CSKF EXECUTED TRAP 7371+ ENDC 7371+ ENDC 16A5 9E4D 1673 7371+ JMP FLOAT1 PATCH FOR LOOPING 16A5 0000 7371+ ORG $-1 16A5 0000 7371+ NOP 000016A6 7371+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 16A6 0000 7371+ NOP  RESERVE SPACE FOR JMP INSTRUCTION 0002 7371+ LPOOL 16A7 122B INITRP 16A8 8001 000016A9 7371+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1PAGE 0346 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:33.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 16A6 0000 7371+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 16A6 9E82 16A9 7371+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 16A9 0000 7371+ ORG LP::L1 CONTINUE AT END OF LPOOL 7371+ ENDC 1PAGE 0347 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:33.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7373 IFT 1 7373+ * CY=S OV=S A=:0000 Q=:8001 CSKF :0000 :8000=:0000 :8001 GT 000016A9 7373+ FLOAT1 SET $ 16A9 BF7D 16A7 7373+ JST INITRP INITIALIZE TRAP LOCATIONS 16AA 0900 7373+ COPY =:0000,A :0000 ==> 'A' 16AB C27C 16A8 7373+ COPY =:8001,Q :8001 ==> 'Q' 16AC 2800 7373+ COPY =:FF00,X :FF00 ==> 'X' 16AD E20E 163C 7373+ COPY =:5555,Y :5555 ==> 'Y' 16AE 0E05 7373+ SBIT CY,S S ==> CARRY FLAG 16AF 0E15 7373+ SBIT OV,S S ==> OVERFLOW FLAG 00000001 7373+ IFT 0;0;0;0;1 16B0 9E82 16B3 7373+ JMP $+3 JUMP AROUND WORD 000016B1 7373+ FLOAT2 SET $ 16B1 0000 7373+ WORD :0000  INSTRUCTION OPERAND 16B2 8000 7373+ WORD :8000 000016B3 7373+ FLOAT3 SET $ 00000001 7373+ IFT 0;1 16B3 5C04 7373+ CSKF FLOAT2 DO THE OPERATION 16B4 16B1  7373+ ENDC 7373+ ENDC 00000001 7373+ IFT 1 00000001 7373+ IFT 1 16B5 0E0D 7373+ HLT INCORRECT COMPARE 16B6 9E81 16B8 7373+ JMP $+2 OK-- AQ IS GREATER THAN OPERAND 16B7 0E0D 7373+ HLT INCORRECT COMPARE  7373+ ENDC 7373+ ENDC 00000001 7373+ IFT 1 16B8 0D00  7373+ CSK A,=:0000 CHECK -A- 16B9 0000 7373+ NOP 16BA 0E0D 7373+ HLT   CSKF MODIFIED -A- 16BB FA6C 16A8 7373+ CSK Q,=:8001 CHECK -Q- 16BC 0000 7373+  NOP 16BD 0E0D 7373+ HLT CSKF MODIFIED -Q- 7373+ ENDC 16BE 0020  7373+ COPY X,A FOR TESTING 16BF BA9D 16DD 7373+ CSK A,=:FF00 CHECK -X- 16C0 0000 7373+ NOP 16C1 0E0D 7373+ HLT CSKF MODIFIED -X- 16C2 0060 7373+  COPY Y,A FOR TESTING 16C3 BA9A 16DE 7373+ CSK A,=:5555 CHECK -Y- 16C4 0000 7373+ NOP 1PAGE 0348 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:35.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 16C5 0E0D 7373+ HLT CSKF MODIFIED -Y- 00000001 7373+  IFT 0;0;0;0;1 16C6 826A 16B1 7373+ COPY FLOAT2,A 16C7 0D00 7373+ CSK A,=:0000 CHECK OPERAND WORD 1 16C8 0000 7373+ NOP 16C9 0E0D 7373+ HLT CSKF MODIFIED OPERAND 16CA 8267 16B2 7373+ COPY FLOAT2+1,A 16CB BA93 16DF 7373+ CSK A,=:8000 CHECK OPERAND WORD 2 16CC 0000 7373+ NOP 16CD 0E0D 7373+ HLT CSKF MODIFIED OPERAND  7373+ ENDC 00000001 7373+ IFT 0;1;0 00000001 7373+ IFT 1 16CE 3641 16D0 7373+ JT OV,$+2 OVERFLOW STILL SET? 16CF 0E0D 7373+ HLT NO-- CSKF CHANGED OVERFLOW 7373+ ENDC 00000001 7373+ IFT 1 16D0 5641 16D2 7373+  JT CY,$+2 CARRY STILL SET? 16D1 0E0D 7373+ HLT NO-- CSKF CHANGED CARRY  7373+ ENDC 7373+ ENDC 00000001 7373+ IFT 1 16D2 838D 16E0 7373+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 16D3 1141 16D5 7373+ JEQ A,$+2 STILL ZERO?  16D4 0E0D 7373+ HLT NO-- CSKF ALTERED TRAP VECTOR 16D5 838B 16E1 7373+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 16D6 1141 16D8 7373+ JEQ A,$+2 STILL ZERO? 16D7 0E0D 7373+  HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7373+ IFT 0;0;1;0;0 16D8 8020 0020 7373+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 16D9 1141 16DB 7373+ JEQ A,$+2  STILL ZERO? 16DA 0E0D 7373+ HLT NO-- CSKF EXECUTED TRAP 7373+  ENDC 7373+ ENDC 16DB 9E4D 16A9 7373+ JMP FLOAT1 PATCH FOR LOOPING 16DB 0000 7373+ ORG $-1 16DB 0000 7373+ NOP 000016DC 7373+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 16DC 0000 7373+ NOP RESERVE SPACE FOR JMP INSTRUCTION  0005 7373+ LPOOL 16DD FF00 16DE 5555 16DF 8000 1PAGE 0349 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM  84-93727 (A200) 1981/11/25 16:16:37.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 16E0 00A8 ATRAP 16E1 00A9 000016E2 7373+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 16DC 0000 7373+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 16DC 9E85 16E2 7373+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 16E2 0000 7373+ ORG LP::L1 CONTINUE AT END OF LPOOL 7373+ ENDC 16E2 9E9D 1700 7374  JMP PART3:1 16E3 0000 7375 RES $;:1F-$&:1F+1,0 00001700 7376 PART3:1 SET $ 1PAGE 0350 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:37.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 1700 7378 NAM CHRIS 0020 0020 7379 MACHINE =:20 1700 0000 7380  ORG PART3:1 7381 * 00001700 7382 CHRIS EQU $ 1700 0308 7383 FMT A CHECK MACHINE TYPE 1701 0D43 7384 CSK A,=:43 SKIP IF NOT A 4/04-02 1702 0000  7385 NOP 1703 9FB5 1739 7386 JMP PART3:2 SKIP 1704 9E80 1705 7387 JMP RRRR 7388 * 00001705 7389 RRRR EQU $ 00000001 7390 IFT 1  7390+ * CY=R OV=R A=:0000 Q=:8000 CSKF :0000 :8000=:0000 :8000 EQ 00001705 7390+ FLOAT1 SET $ 1705 BF21 16A7 7390+ JST INITRP INITIALIZE TRAP LOCATIONS 1706 0900 7390+ COPY =:0000,A :0000 ==> 'A' 1707 C257 16DF 7390+ COPY =:8000,Q :8000 ==> 'Q' 1708 2800 7390+ COPY =:FF00,X  :FF00 ==> 'X' 1709 E254 16DE 7390+ COPY =:5555,Y :5555 ==> 'Y' 170A 0E07 7390+ RBIT CY,S R ==> CARRY FLAG 170B 0E17 7390+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7390+  IFT 0;0;0;0;1 170C 9E82 170F 7390+ JMP $+3 JUMP AROUND WORD 0000170D 7390+ FLOAT2  SET $ 170D 0000 7390+ WORD :0000 INSTRUCTION OPERAND 170E 8000 7390+ WORD  :8000 0000170F 7390+ FLOAT3 SET $ 00000001 7390+ IFT 0;1 170F 5C04 7390+ CSKF FLOAT2 DO THE OPERATION 1710 170D 7390+ ENDC 7390+ ENDC  00000001 7390+ IFT 1 00000001 7390+ IFT 1 1711 0000 7390+ NOP 1712 0E0D 7390+ HLT INCORRECT COMPARE 1713 0000 7390+ NOP OK-- AQ IS EQUAL TO OPERAND 7390+ ENDC 7390+ ENDC 00000001 7390+ IFT  1 1714 0D00 7390+ CSK A,=:0000 CHECK -A- 1715 0000 7390+ NOP 1PAGE 0351 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:39.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 1716 0E0D 7390+ HLT CSKF MODIFIED -A- 1717 FA47 16DF 7390+ CSK Q,=:8000 CHECK -Q - 1718 0000 7390+ NOP 1719 0E0D 7390+ HLT CSKF MODIFIED -Q- 7390+ ENDC 171A 0020 7390+ COPY X,A FOR TESTING 171B BA41 16DD 7390+ CSK A,=:FF00 CHECK -X- 171C 0000 7390+ NOP 171D 0E0D 7390+ HLT CSKF MODIFIED -X- 171E 0060 7390+ COPY Y,A FOR TESTING 171F BA3E 16DE 7390+ CSK A,=:5555 CHECK -Y- 1720 0000 7390+ NOP 1721 0E0D 7390+ HLT CSKF MODIFIED -Y- 00000001 7390+ IFT 0;0;0;0;1 1722 826A 170D 7390+ COPY FLOAT2,A 1723 0D00 7390+ CSK  A,=:0000 CHECK OPERAND WORD 1 1724 0000 7390+ NOP 1725 0E0D 7390+ HLT  CSKF MODIFIED OPERAND 1726 8267 170E 7390+ COPY FLOAT2+1,A 1727 BA37 16DF 7390+ CSK A,=:8000  CHECK OPERAND WORD 2 1728 0000 7390+ NOP 1729 0E0D 7390+ HLT CSKF MODIFIED OPERAND 7390+ ENDC 00000001 7390+ IFT 0;1;0 00000001 7390+ IFT 1 172A 36C1 172C 7390+ JF OV,$+2 OVERFLOW STILL RESET? 172B 0E0D 7390+ HLT  NO-- CSKF CHANGED OVERFLOW 7390+ ENDC 00000001 7390+ IFT 1 172C 56C1 172E 7390+ JF CY,$+2 CARRY STILL RESET? 172D 0E0D 7390+ HLT NO-- CSKF CHANGED CARRY 7390+ ENDC 7390+ ENDC 00000001 7390+ IFT  1 172E 8331 16E0 7390+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 172F 1141 1731 7390+ JEQ A,$+2 STILL ZERO? 1730 0E0D 7390+ HLT NO-- CSKF ALTERED TRAP VECTOR 1731 832F 16E1 7390+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 1732 1141 1734 7390+ JEQ A,$+2 STILL ZERO? 1733 0E0D 7390+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7390+ IFT 0;0;1;0;0 1734 8020 0020 7390+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 1735 1141 1737 7390+  JEQ A,$+2 STILL ZERO? 1PAGE 0352 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25  16:16:41.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 1736 0E0D 7390+ HLT NO-- CSKF EXECUTED TRAP 7390+ ENDC 7390+ ENDC 1737 9E4D 1705 7390+ JMP FLOAT1  PATCH FOR LOOPING 1737 0000 7390+ ORG $-1 1737 0000 7390+ NOP 00001738 7390+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1738 0000 7390+ NOP  RESERVE SPACE FOR JMP INSTRUCTION 0001 7390+ LPOOL 1739 1E40 0000173A 7390+ LP::L1 SET $  SET UP LABEL AT END OF LPOOL 1738 0000 7390+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP I NST. 1738 9E81 173A 7390+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 173A 0000 7390+ ORG  LP::L1 CONTINUE AT END OF LPOOL 7390+ ENDC 1PAGE 0353 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:42.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7392 IFT  1 7392+ * CY=S OV=S A=:FFFF Q=:8000 CSKF :FFFF :8001=:FFFF :8000 GT 0000173A 7392+ FLOAT1 SET  $ 173A BFB3 176E 7392+ JST INITRP INITIALIZE TRAP LOCATIONS 173B 08FF 7392+ COPY =:FFFF,A :FFFF ==> 'A' 173C C222 16DF 7392+ COPY =:8000,Q :8000 ==> 'Q' 173D 2800 7392+ COPY =:FF00,X :FF00 ==> 'X' 173E E21F 16DE 7392+ COPY =:5555,Y :5555 ==> 'Y' 173F 0E05 7392+  SBIT CY,S S ==> CARRY FLAG 1740 0E15 7392+ SBIT OV,S S ==> OVERFLOW FLAG  00000001 7392+ IFT 0;0;0;0;1 1741 9E82 1744 7392+ JMP $+3 JUMP AROUND WORD 00001742 7392+ FLOAT2 SET $ 1742 FFFF 7392+ WORD :FFFF INSTRUCTION OPERAND 1743 8001 7392+ WORD :8001 00001744 7392+ FLOAT3 SET $ 00000001 7392+ IFT 0;1 1744 5C04  7392+ CSKF FLOAT2 DO THE OPERATION 1745 1742 7392+ ENDC 7392+ ENDC 00000001 7392+ IFT 1 00000001 7392+ IFT 1 1746 0E0D 7392+  HLT INCORRECT COMPARE 1747 9E81 1749 7392+ JMP $+2 OK-- AQ IS GREATER THAN OPERAND 1748 0E0D 7392+ HLT INCORRECT COMPARE 7392+ ENDC  7392+ ENDC 00000001 7392+ IFT 1 1749 BAA5 176F 7392+ CSK A,=:FFFF CHECK -A- 174A 0000 7392+ NOP 174B 0E0D 7392+ HLT CSKF MODIFIED -A- 174C FA12 16DF 7392+ CSK Q,=:8000 CHECK -Q- 174D 0000 7392+ NOP 174E 0E0D 7392+ HLT  CSKF MODIFIED -Q- 7392+ ENDC 174F 0020 7392+ COPY X,A FOR TESTING 1750 BA0C 16DD 7392+ CSK A,=:FF00 CHECK -X- 1751 0000 7392+ NOP 1752 0E0D 7392+ HLT CSKF MODIFIED -X- 1753 0060 7392+ COPY Y,A FOR TESTING 1754 BA09 16DE 7392+ CSK A,=:5555 CHECK -Y- 1755 0000 7392+ NOP 1PAGE 0354 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:44.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 1756 0E0D 7392+ HLT CSKF MODIFIED -Y- 00000001 7392+ IFT 0;0;0;0;1 1757 826A 1742 7392+  COPY FLOAT2,A 1758 BA96 176F 7392+ CSK A,=:FFFF CHECK OPERAND WORD 1 1759 0000 7392+  NOP 175A 0E0D 7392+ HLT CSKF MODIFIED OPERAND 175B 8267 1743 7392+ COPY F LOAT2+1,A 175C BA93 1770 7392+ CSK A,=:8001 CHECK OPERAND WORD 2 175D 0000 7392+ NOP 175E 0E0D 7392+ HLT CSKF MODIFIED OPERAND 7392+ ENDC 00000001 7392+ IFT 0;1;0 00000001 7392+ IFT 1 175F 3641 1761 7392+ JT OV,$+2 OVERFLOW STILL SET? 1760 0E0D 7392+ HLT NO-- CSKF CHANGED OVERFLOW 7392+  ENDC 00000001 7392+ IFT 1 1761 5641 1763 7392+ JT CY,$+2 CARRY STILL SET? 1762 0E0D 7392+ HLT NO-- CSKF CHANGED CARRY 7392+ ENDC 7392+ ENDC 00000001 7392+ IFT 1 1763 838D 1771 7392+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 1764 1141 1766 7392+ JEQ A,$+2 STILL ZERO? 1765 0E0D 7392+ HLT  NO-- CSKF ALTERED TRAP VECTOR 1766 838B 1772 7392+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 1767 1141 1769 7392+ JEQ A,$+2 STILL ZERO? 1768 0E0D 7392+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7392+ IFT 0;0;1;0;0 1769 8020 0020 7392+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 176A 1141 176C 7392+ JEQ A,$+2 STILL ZERO? 176B 0E0D 7392+  HLT NO-- CSKF EXECUTED TRAP 7392+ ENDC 7392+ ENDC 176C 9E4D 173A 7392+ JMP FLOAT1 PATCH FOR LOOPING 176C 0000 7392+ ORG $-1 176C 0000  7392+ NOP 0000176D 7392+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 176D 0000 7392+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0005 7392+ LPOOL 176E 122B INITRP 176F FFFF 1770 8001 1PAGE 0355 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:46.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 1771 00A8 ATRAP 1772 00A9 00001773 7392+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 176D 0000 7392+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 176D 9E85 1773 7392+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1773 0000 7392+ ORG LP::L1  CONTINUE AT END OF LPOOL 7392+ ENDC 1PAGE 0356 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:46.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7394 IFT 1  7394+ * CY=R OV=R A=:FFFF Q=:8001 CSKF :FFFF :8000=:FFFF :8001 LT 00001773 7394+ FLOAT1 SET $ 1773 BF7A 176E 7394+ JST INITRP INITIALIZE TRAP LOCATIONS 1774 08FF 7394+ COPY =:FFFF,A :FFFF ==> 'A' 1775 C27A 1770 7394+ COPY =:8001,Q :8001 ==> 'Q' 1776 2800 7394+ COPY =:FF00,X :FF00 ==> 'X' 1777 E2AF 17A7 7394+ COPY =:5555,Y :5555 ==> 'Y' 1778 0E07 7394+ RBIT  CY,S R ==> CARRY FLAG 1779 0E17 7394+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7394+ IFT 0;0;0;0;1 177A 9E82 177D 7394+ JMP $+3 JUMP AROUND WORD 0000177B 7394+ FLOAT2 SET $ 177B FFFF 7394+ WORD :FFFF INSTRUCTION OPERAND 177C 8000 7394+ WORD :8000 0000177D 7394+ FLOAT3 SET $ 00000001 7394+ IFT 0;1 177D 5C04 7394+  CSKF FLOAT2 DO THE OPERATION 177E 177B 7394+ ENDC 7394+ ENDC 00000001 7394+ IFT 1 00000001 7394+ IFT 1 177F 9E82 1782 7394+ JMP  $+3 OK-- AQ IS LESS THAN OPERAND 1780 0000 7394+ NOP 1781 0E0D 7394+ HLT  INCORRECT COMPARE 7394+ ENDC 7394+ ENDC 00000001 7394+  IFT 1 1782 BA6C 176F 7394+ CSK A,=:FFFF CHECK -A- 1783 0000 7394+ NOP 1784 0E0D  7394+ HLT CSKF MODIFIED -A- 1785 FA6A 1770 7394+ CSK Q,=:8001 CHECK -Q- 1786 0000 7394+ NOP 1787 0E0D 7394+ HLT CSKF MODIFIED -Q- 7394+ ENDC 1788 0020 7394+ COPY X,A FOR TESTING 1789 BA9E 17A8 7394+ CSK A,=:FF00 CHECK -X- 178A 0000 7394+ NOP 178B 0E0D 7394+ HLT CSKF MODIFIED -X- 178C 0060 7394+ COPY Y,A FOR TESTING 178D BA99 17A7 7394+ CSK A,=:5555 CHECK -Y- 178E 0000 7394+ NOP 1PAGE 0357 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:48.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 178F 0E0D 7394+ HLT CSKF MODIFIED -Y-  00000001 7394+ IFT 0;0;0;0;1 1790 826A 177B 7394+ COPY FLOAT2,A 1791 BA5D 176F 7394+  CSK A,=:FFFF CHECK OPERAND WORD 1 1792 0000 7394+ NOP 1793 0E0D 7394+ HLT  CSKF MODIFIED OPERAND 1794 8267 177C 7394+ COPY FLOAT2+1,A 1795 BA93 17A9 7394+ CSK A,=:8000 CHECK OPERAND WORD 2 1796 0000 7394+ NOP 1797 0E0D 7394+ HLT CSKF MODIFIED OPERAND 7394+ ENDC 00000001 7394+ IFT 0;1;0 00000001 7394+  IFT 1 1798 36C1 179A 7394+ JF OV,$+2 OVERFLOW STILL RESET? 1799 0E0D 7394+ HLT NO-- CSKF CHANGED OVERFLOW 7394+ ENDC 00000001 7394+ IFT 1  179A 56C1 179C 7394+ JF CY,$+2 CARRY STILL RESET? 179B 0E0D 7394+ HLT  NO-- CSKF CHANGED CARRY 7394+ ENDC 7394+ ENDC 00000001 7394+  IFT 1 179C 8354 1771 7394+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 179D 1141 179F 7394+ JEQ  A,$+2 STILL ZERO? 179E 0E0D 7394+ HLT NO-- CSKF ALTERED TRAP VECTOR 179F 8352 1772 7394+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 17A0 1141 17A2 7394+ JEQ A,$+2 STILL ZERO? 17A1 0E0D 7394+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7394+ IFT  0;0;1;0;0 17A2 8020 0020 7394+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 17A3 1141 17A5 7394+ JEQ A,$+2 STILL ZERO? 17A4 0E0D 7394+ HLT NO-- CSKF EXECUTED TRAP 7394+ ENDC 7394+ ENDC 17A5 9E4D 1773 7394+ JMP FLOAT1  PATCH FOR LOOPING 17A5 0000 7394+ ORG $-1 17A5 0000 7394+ NOP 000017A6 7394+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 17A6 0000 7394+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0003 7394+ LPOOL 17A7 5555 17A8 FF00 17A9 8000 1PAGE 0358 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:50.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 000017AA 7394+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 17A6 0000 7394+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 17A6 9E83 17AA 7394+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 17AA 0000 7394+ ORG LP::L1 CONTINUE AT END OF LPOOL 7394+ ENDC 1PAGE 0359 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:51.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7396 IFT 1 7396+ * CY=S OV=S A=:FFFF Q=:8000 CSKF :FFFF :8000=:FFFF :8000 EQ 000017AA 7396+ FLOAT1 SET $ 17AA BF43 176E 7396+ JST INITRP INITIALIZE TRAP LOCATIONS 17AB 08FF  7396+ COPY =:FFFF,A :FFFF ==> 'A' 17AC C27C 17A9 7396+ COPY =:8000,Q :8000 ==> 'Q' 17AD 2800 7396+ COPY =:FF00,X :FF00 ==> 'X' 17AE E278 17A7 7396+ COPY =:5555,Y :5555 ==> 'Y' 17AF 0E05 7396+ SBIT CY,S S ==> CARRY FLAG 17B0 0E15 7396+ SBIT OV,S  S ==> OVERFLOW FLAG 00000001 7396+ IFT 0;0;0;0;1 17B1 9E82 17B4 7396+ JMP $+3  JUMP AROUND WORD 000017B2 7396+ FLOAT2 SET $ 17B2 FFFF 7396+ WORD :FFFF INSTRUCTION OPERAND 17B3 8000 7396+ WORD :8000 000017B4 7396+ FLOAT3 SET $ 00000001 7396+  IFT 0;1 17B4 5C04 7396+ CSKF FLOAT2 DO THE OPERATION 17B5 17B2 7396+  ENDC 7396+ ENDC 00000001 7396+ IFT 1 00000001 7396+ IFT  1 17B6 0000 7396+ NOP 17B7 0E0D 7396+ HLT INCORRECT COMPARE 17B8 0000  7396+ NOP OK-- AQ IS EQUAL TO OPERAND 7396+ ENDC 7396 + ENDC 00000001 7396+ IFT 1 17B9 BA35 176F 7396+ CSK A,=:FFFF CHECK -A- 17BA 0000 7396+ NOP 17BB 0E0D 7396+ HLT CSKF MODIFIED -A- 17BC FA6C 17A9 7396+  CSK Q,=:8000 CHECK -Q- 17BD 0000 7396+ NOP 17BE 0E0D 7396+ HLT  CSKF MODIFIED -Q- 7396+ ENDC 17BF 0020 7396+ COPY X,A FOR TESTING 17C0 BA67 17A8 7396+ CSK A,=:FF00 CHECK -X- 17C1 0000 7396+ NOP 17C2 0E0D 7396+  HLT CSKF MODIFIED -X- 17C3 0060 7396+ COPY Y,A FOR TESTING 17C4 BA62 17A7  7396+ CSK A,=:5555 CHECK -Y- 17C5 0000 7396+ NOP 1PAGE 0360 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:53.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 17C6 0E0D 7396+  HLT CSKF MODIFIED -Y- 00000001 7396+ IFT 0;0;0;0;1 17C7 826A 17B2 7396+ COPY FLOAT2,A 17C8 BA26 176F 7396+ CSK A,=:FFFF CHECK OPERAND WORD 1 17C9 0000 7396+ NOP 17CA 0E0D 7396+ HLT CSKF MODIFIED OPERAND 17CB 8267 17B3 7396+ COPY FLOAT2+1,A  17CC BA5C 17A9 7396+ CSK A,=:8000 CHECK OPERAND WORD 2 17CD 0000 7396+ NOP 17CE 0E0D  7396+ HLT CSKF MODIFIED OPERAND 7396+ ENDC 00000001 7396+  IFT 0;1;0 00000001 7396+ IFT 1 17CF 3641 17D1 7396+ JT OV,$+2 OVERFLOW STILL SET? 17D0 0E0D 7396+ HLT NO-- CSKF CHANGED OVERFLOW 7396+ ENDC  00000001 7396+ IFT 1 17D1 5641 17D3 7396+ JT CY,$+2 CARRY STILL SET? 17D2 0E0D  7396+ HLT NO-- CSKF CHANGED CARRY 7396+ ENDC 7396+  ENDC 00000001 7396+ IFT 1 17D3 831D 1771 7396+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 17D4 1141 17D6 7396+ JEQ A,$+2 STILL ZERO? 17D5 0E0D 7396+ HLT NO-- CSKF ALTERED TRAP VECTOR 17D6 831B 1772 7396+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 17D7 1141 17D9 7396+ JEQ A,$+2 STILL ZERO? 17D8 0E0D 7396+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7396+ IFT 0;0;1;0;0 17D9 8020 0020 7396+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 17DA 1141 17DC 7396+ JEQ A,$+2 STILL ZERO? 17DB 0E0D 7396+ HLT  NO-- CSKF EXECUTED TRAP 7396+ ENDC 7396+ ENDC 17DC 9E4D 17AA 7396+ JMP FLOAT1 PATCH FOR LOOPING 17DC 0000 7396+ ORG $-1 17DC 0000 7396+  NOP 000017DD 7396+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 17DD 0000 7 396+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0000 7396+ LPOOL 000017DE 7396+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 17DD 0000 7396+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 17DD 9E80 17DE 7396+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1PAGE 0361 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:55.25 --CSKF-- INSTRUCTION TEST (PART 3-3)  17DE 0000 7396+ ORG LP::L1 CONTINUE AT END OF LPOOL 7396+ ENDC 1PAGE 0362  MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:55.25 --CSKF-- INSTRUCTION TEST (PART 3-3)  00000001 7398 IFT 1 7398+ * CY=R OV=R A=:5555 Q=:5555 CSKF :AAAA :AAAA=:5555 :5555 GT  000017DE 7398+ FLOAT1 SET $ 17DE BF0F 176E 7398+ JST INITRP INITIALIZE TRAP LOCATIONS 17DF 8247 17A7 7398+ COPY =:5555,A :5555 ==> 'A' 17E0 C246 17A7 7398+ COPY =:5555,Q :5555 ==> 'Q' 17E1 2800 7398+ COPY =:FF00,X :FF00 ==> 'X' 17E2 E244 17A7 7398+ COPY =:5555,Y :5555 ==> 'Y' 17E3 0E07 7398+ RBIT CY,S R ==> CARRY FLAG 17E4 0E17 7398+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7398+ IFT 0;0;0;0;1 17E5 9E82 17E8 7398+ JMP $+3 JUMP AROUND WORD 000017E6 7398+ FLOAT2 SET $ 17E6 AAAA 7398+ WORD :AAAA INSTRUCTION OPERAND 17E7 AAAA 7398+ WORD :AAAA 000017E8 7398+ FLOAT3 SET $ 00000001 7398+ IFT 0;1 17E8 5C04 7398+ CSKF FLOAT2 DO THE OPERATION 17E9 17E6 7398+ ENDC 7398+ ENDC 00000001 7398+ IFT 1 00000001 7398+  IFT 1 17EA 0E0D 7398+ HLT INCORRECT COMPARE 17EB 9E81 17ED 7398+ JMP $+2 OK-- AQ IS GREATER THAN OPERAND 17EC 0E0D 7398+ HLT INCORRECT COMPARE  7398+ ENDC 7398+ ENDC 00000001 7398+ IFT 1 17ED BA39 17A7 7398+ CSK A,=:5555 CHECK -A- 17EE 0000 7398+ NOP 17EF 0E0D 7398+ HLT  CSKF MODIFIED -A- 17F0 FA36 17A7 7398+ CSK Q,=:5555 CHECK -Q- 17F1 0000 7398+ NOP 17F2 0E0D 7398+ HLT CSKF MODIFIED -Q- 7398+ ENDC 17F3 0020 7398+ COPY X,A FOR TESTING 17F4 BA33 17A8 7398+ CSK A,=:FF00 CHECK -X- 17F5 0000 7398+ NOP 17F6 0E0D 7398+ HLT CSKF MODIFIED -X- 17F7 0060 7398+ COPY Y,A FOR TESTING 17F8 BA2E 17A7 7398+ CSK A,=:5555 CHECK -Y- 17F9 0000 7398+ NOP 1PAGE 0363 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:57.25 --CSKF-- INSTRUCTION TE ST (PART 3-3) 17FA 0E0D 7398+ HLT CSKF MODIFIED -Y- 00000001 7398+ IFT  0;0;0;0;1 17FB 826A 17E6 7398+ COPY FLOAT2,A 17FC BA95 1812 7398+ CSK A,=:AAAA CHECK OPERAND WORD 1 17FD 0000 7398+ NOP 17FE 0E0D 7398+ HLT CSKF MODIFIED OPERAND 17FF 8267 17E7 7398+ COPY FLOAT2+1,A 1800 BA91 1812 7398+ CSK A,=:AAAA CHECK OPERAND WORD 2 1801 0000 7398+ NOP 1802 0E0D 7398+ HLT CSKF MODIFIED OPERAND 7398+ ENDC 00000001 7398+ IFT 0;1;0 00000001 7398+ IFT 1 1803 36C1 1805 7398+ JF OV,$+2 OVERFLOW STILL RESET? 1804 0E0D 7398+ HLT NO-- CSKF CHANGED OVERFLOW 7398+ ENDC 00000001 7398+ IFT 1 1805 56C1 1807 7398+ JF  CY,$+2 CARRY STILL RESET? 1806 0E0D 7398+ HLT NO-- CSKF CHANGED CARRY  7398+ ENDC 7398+ ENDC 00000001 7398+ IFT 1 1807 838B 1813 7398+  COPY ATRAP,A 1ST WORD OF TRAP VECTOR 1808 1141 180A 7398+ JEQ A,$+2 STILL ZERO? 1809 0E0D 7398+ HLT NO-- CSKF ALTERED TRAP VECTOR 180A 8389 1814 7398+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 180B 1141 180D 7398+ JEQ A,$+2 STILL ZERO? 180C 0E0D 7398+  HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7398+ IFT 0;0;1;0;0 180D 8020 0020 7398+  COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 180E 1141 1810 7398+ JEQ A,$+2 STILL ZERO? 180F 0E0D 7398+ HLT NO-- CSKF EXECUTED TRAP 7398+ ENDC  7398+ ENDC 1810 9E4D 17DE 7398+ JMP FLOAT1 PATCH FOR LOOPING 1810 0000 7398+ ORG $-1 1810 0000 7398+ NOP 00001811 7398+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1811 0000 7398+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0003 7398+ LPOOL 1812 AAAA 1813 00A8 ATRAP 1814 00A9 1PAGE 0364 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:59.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 00001815 7398+ LP::L1 SET $  SET UP LABEL AT END OF LPOOL 1811 0000 7398+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1811 9E83 1815 7398+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1815 0000 7398+ ORG  LP::L1 CONTINUE AT END OF LPOOL 7398+ ENDC 1PAGE 0365 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:16:59.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7400 IFT  1 7400+ * CY=S OV=S A=:AAAA Q=:AAAA CSKF :5555 :5555=:AAAA :AAAA LT 00001815 7400+ FLOAT1 SET   $ 1815 BFB3 1849 7400+ JST INITRP INITIALIZE TRAP LOCATIONS 1816 827B 1812 7400+ COPY =:AAAA,A :AAAA ==> 'A' 1817 C27A 1812 7400+ COPY =:AAAA,Q :AAAA ==> 'Q' 1818 2800 7400+ COPY =:FF00,X :FF00 ==> 'X' 1819 E20D 17A7 7400+ COPY =:5555,Y :5555 ==> 'Y' 181A 0E05 7400+  SBIT CY,S S ==> CARRY FLAG 181B 0E15 7400+ SBIT OV,S S ==> OVERFLOW FLAG  00000001 7400+ IFT 0;0;0;0;1 181C 9E82 181F 7400+ JMP $+3 JUMP AROUND WORD 0000181D 7400+ FLOAT2 SET $ 181D 5555 7400+ WORD :5555 INSTRUCTION OPERAND 181E 5555 7400+ WORD :5555 0000181F 7400+ FLOAT3 SET $ 00000001 7400+ IFT 0;1 181F 5C04  7400+ CSKF FLOAT2 DO THE OPERATION 1820 181D 7400+ ENDC 7400+ ENDC 00000001 7400+ IFT 1 00000001 7400+ IFT 1 1821 9E82 1824 7400+  JMP $+3 OK-- AQ IS LESS THAN OPERAND 1822 0000 7400+ NOP 1823 0E0D 7400+ HLT INCORRECT COMPARE 7400+ ENDC 7400+ ENDC 00000001  7400+ IFT 1 1824 BA6D 1812 7400+ CSK A,=:AAAA CHECK -A- 1825 0000 7400+ NOP 1826 0E0D 7400+ HLT CSKF MODIFIED -A- 1827 FA6A 1812 7400+ CSK Q,=:AAAA  CHECK -Q- 1828 0000 7400+ NOP 1829 0E0D 7400+ HLT CSKF MODIFIED -Q-  7400+ ENDC 182A 0020 7400+ COPY X,A FOR TESTING 182B BA9E 184A 7400+ CSK A,=:FF00 CHECK -X- 182C 0000 7400+ NOP 182D 0E0D 7400+ HLT CSKF MODIFIED -X- 182E 0060 7400+ COPY Y,A FOR TESTING 182F BA9B 184B 7400+ CSK A,=:5555 CHECK -Y- 1830 0000 7400+ NOP 1PAGE 0366 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:01.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 1831 0E0D 7400+ HLT CSKF MODIFIED -Y- 00000001 7400+ IFT 0;0;0;0;1 1832 826A 181D 7400+ COPY FLOAT2,A 1833 BA97 184B  7400+ CSK A,=:5555 CHECK OPERAND WORD 1 1834 0000 7400+ NOP 1835 0E0D 7400+ HLT CSKF MODIFIED OPERAND 1836 8267 181E 7400+ COPY FLOAT2+1,A 1837 BA93 184B 7400+  CSK A,=:5555 CHECK OPERAND WORD 2 1838 0000 7400+ NOP 1839 0E0D 7400+ HLT  CSKF MODIFIED OPERAND 7400+ ENDC 00000001 7400+ IFT 0;1;0 00000001 7400+ IFT 1 183A 3641 183C 7400+ JT OV,$+2 OVERFLOW STILL SET? 183B 0E0D 7400+  HLT NO-- CSKF CHANGED OVERFLOW 7400+ ENDC 00000001 7400+ I FT 1 183C 5641 183E 7400+ JT CY,$+2 CARRY STILL SET? 183D 0E0D 7400+ HLT  NO-- CSKF CHANGED CARRY 7400+ ENDC 7400+ ENDC 00000001 7400+ IFT 1 183E 8354 1813 7400+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 183F 1141 1841 7400+  JEQ A,$+2 STILL ZERO? 1840 0E0D 7400+ HLT NO-- CSKF ALTERED TRAP VECTOR 1841 8352 1814 7400+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 1842 1141 1844 7400+ JEQ A,$+2  STILL ZERO? 1843 0E0D 7400+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7400+  IFT 0;0;1;0;0 1844 8020 0020 7400+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 1845 1141 1847 7400+ JEQ A,$+2 STILL ZERO? 1846 0E0D 7400+ HLT NO-- CSKF EXECUTED TRAP 7400+ ENDC 7400+ ENDC 1847 9E4D 1815 7400+ JMP FLOAT1 PATCH FOR LOOPING 1847 0000 7400+ ORG $-1 1847 0000 7400+ NOP 00001848 7400+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1848 0000 7400+ NOP  RESERVE SPACE FOR JMP INSTRUCTION 0003 7400+ LPOOL 1849 122B INITRP 184A FF00 184B 5555 1PAGE 0367 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:03.75 --CSKF-- INSTRUCTION TEST (PART 3-3)  0000184C 7400+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1848 0000 7400+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1848 9E83 184C 7400+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 184C 0000 7400+ ORG LP::L1 CONTINUE AT END OF LPOOL 7400+ ENDC 1PAGE 0368 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:04.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7402 IFT 1 7402+ * CY=R OV=R A=:5555 Q=:AAAA CSKF :AAAA :5555=:5555 :AAAA GT 0000184C 7402+ FLOAT1 SET $ 184C BF7C 1849 7402+ JST INITRP INITIALIZE TRAP LOCATIONS 184D 827D 184B 7402+ COPY =:5555,A :5555 ==> 'A' 184E C243 1812 7402+ COPY =:AAAA,Q :AAAA ==> 'Q' 184F 2800 7402+ COPY =:FF00,X :FF00 ==> 'X' 1850 E27A 184B 7402+ COPY =:5555,Y :5555 ==> 'Y' 1851 0E07 7402+ RBIT CY,S R ==> CARRY FLAG 1852 0E17 7402+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7402+ IFT 0;0;0;0;1 1853 9E82 1856 7402+ JMP $+3 JUMP AROUND WORD 00001854 7402+ FLOAT2 SET $ 1854 AAAA 7402+ WORD :AAAA  INSTRUCTION OPERAND 1855 5555 7402+ WORD :5555 00001856 7402+ FLOAT3 SET $ 00000001 7402+ IFT 0;1 1856 5C04 7402+ CSKF FLOAT2 DO THE OPERATION 1857 1854   7402+ ENDC 7402+ ENDC 00000001 7402+ IFT 1 00000001 7402+ IFT 1 1858 0E0D 7402+ HLT INCORRECT COMPARE 1859 9E81 185B 7402+ JMP $+2 OK-- AQ IS GREATER THAN OPERAND 185A 0E0D 7402+ HLT INCORRECT COMPARE  7402+ ENDC 7402+ ENDC 00000001 7402+ IFT 1 185B BA6F 184B 7402+ CSK A,=:5555 CHECK -A- 185C 0000 7402+ NOP 185D 0E0D 7402+ HLT  CSKF MODIFIED -A- 185E FA33 1812 7402+ CSK Q,=:AAAA CHECK -Q- 185F 0000 7402+  NOP 1860 0E0D 7402+ HLT CSKF MODIFIED -Q- 7402+ ENDC 1861 0020  7402+ COPY X,A FOR TESTING 1862 BA67 184A 7402+ CSK A,=:FF00 CHECK -X- 1863 0000 7402+ NOP 1864 0E0D 7402+ HLT CSKF MODIFIED -X- 1865 0060 7402+  COPY Y,A FOR TESTING 1866 BA64 184B 7402+ CSK A,=:5555 CHECK -Y- 1867 0000 7402+  NOP 1PAGE 0369 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:06.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 1868 0E0D 7402+ HLT CSKF MODIFIED -Y- 00000001 7402+  IFT 0;0;0;0;1 1869 826A 1854 7402+ COPY FLOAT2,A 186A BA27 1812 7402+ CSK A,=:AAAA CHECK OPERAND WORD 1 186B 0000 7402+ NOP 186C 0E0D 7402+ HLT CSKF MODIFIED OPERAND 186D 8267 1855 7402+ COPY FLOAT2+1,A 186E BA5C 184B 7402+ CSK A,=:5555 CHECK OPERAND WORD 2 186F 0000 7402+ NOP 1870 0E0D 7402+ HLT CSKF MODIFIED OPERAND  7402+ ENDC 00000001 7402+ IFT 0;1;0 00000001 7402+ IFT 1 1871 36C1 1873 7402+ JF OV,$+2 OVERFLOW STILL RESET? 1872 0E0D 7402+ HLT NO-- CSKF CHANGED OVERFLOW 7402+ ENDC 00000001 7402+ IFT 1 1873 56C1 1875 7402+  JF CY,$+2 CARRY STILL RESET? 1874 0E0D 7402+ HLT NO-- CSKF CHANGED CARRY  7402+ ENDC 7402+ ENDC 00000001 7402+ IFT 1 1875 831D 1813 7402+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 1876 1141 1878 7402+ JEQ A,$+2 STILL ZERO? 1877 0E0D 7402+ HLT NO-- CSKF ALTERED TRAP VECTOR 1878 831B 1814 7402+ COPY  ATRAP+1,A 2ND WORD OF TRAP VECTOR 1879 1141 187B 7402+ JEQ A,$+2 STILL ZERO? 187A 0E0D 7402+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7402+ IFT 0;0;1;0;0 187B 8020 0020 7402+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 187C 1141 187E 7402+ JEQ A,$+2  STILL ZERO? 187D 0E0D 7402+ HLT NO-- CSKF EXECUTED TRAP 7402+  ENDC 7402+ ENDC 187E 9E4D 184C 7402+ JMP FLOAT1 PATCH FOR LOOPING 187E 0000 7402+ ORG $-1 187E 0000 7402+ NOP 0000187F 7402+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 187F 0000 7402+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0000 7402+ LPOOL 00001880 7402+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL  187F 0000 7402+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 187F 9E80 1880 7402+ JMP  LP::L1 JUMP TO LABEL AT END OF LPOOL 1PAGE 0370 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:08.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 1880 0000 7402+ ORG LP::L1 CONTINUE AT END OF LPOOL 7402+ ENDC 1PAGE 0371 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:08.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7404 IFT 1 7404+ *  JT OV,$+2 OVERFLOW STILL SET? 1C54 0E0D 7462+ HLT NO-- ADDF CHANGED OVERFLOW 7462+ ENDC 00000001 7462+ IFT 1 1C55 5641 1C57 7462+ JT CY,$+2 CARRY STILL SET? 1C56 0E0D 7462+ HLT NO-- ADDF CHANGED CARRY 7462+  ENDC 7462+ ENDC 1C57 9E59 1C31 7462+ JMP FLOAT1 PATCH FOR LOOPING  1C57 0000 7462+ ORG $-1 1C57 0000 7462+ NOP 00001C58 7462+ LP::L SET $  SET UP LABEL TO REPLACE NOP WITH JMP INST. 1C58 0000 7462+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0004 7462+ LPOOL 1C59 51B1 1C5A 9C4D 1C5B 511E 1C5C FB4C 00001C5D 7462+ LP::L1 SET  $ SET UP LABEL AT END OF LPOOL 1C58 0000 7462+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1C58 9E84 1C5D 7462+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1C5D 0000 7462+ ORG LP::L1 CONTINUE AT END OF LPOOL 7462+ ENDC 1PAGE 0424 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:30.50 --ADDF-- INSTRUCTION TEST (PART 3-5) 7464 * -:8264CA +13 ADDF -:A6B183 +8 = -:879A56 +13 PRE-SCALE REQUIRED 00000000 7465 IFF 0 7465+ * CY=R OV=R A=:C682 Q=:64CA ADDF :C426 :B183=:C687 :9A56 OK 00001C5D 7465+ FLOAT1 SET $ 1C5D BFA7 1C85 7465+  JST INITRP INITIALIZE TRAP LOCATIONS 1C5E 82A7 1C86 7465+ COPY =:C682,A :C682 ==> 'A' 1C5F C2A7 1C87 7465+ COPY =:64CA,Q :64CA ==> 'Q' 1C60 A2A7 1C88 7465+ COPY =:3333,X :3333 ==> 'X' 1C61 E2A7 1C89 7465+ COPY =:0F0F,Y :0F0F ==> 'Y' 1C62 0E07 7465+ RBIT CY,S   R ==> CARRY FLAG 1C63 0E17 7465+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7465+ IFT 1;0;0;0;0 1C64 9E82 1C67 7465+ JMP $+3 JUMP AROUND WORD 00001C65 7465+ FLOAT2 SET  $ 1C65 C426 7465+ WORD :C426 INSTRUCTION OPERAND 1C66 B183 7465+ WORD :B183  00001C67 7465+ FLOAT3 SET $ 00000001 7465+ IFT 1;0 1C67 5C00 7465+ ADDF FLOAT2 DO THE OPERATION 1C68 1C65 7465+ ENDC 7465+ ENDC 00000000 7465+ IFF 0 00000001 7465+ IFT 5>0 1C69 BAA0 1C8A 7465+ CSK A,=:C687  CHECK -A- 1C6A 0000 7465+ NOP 1C6B 0E0D 7465+ HLT -A- SHOULD CONTAIN :C687  1C6C FA9E 1C8B 7465+ CSK Q,=:9A56 CHECK -Q- 1C6D 0000 7465+ NOP 1C6E 0E0D 7465+  HLT -Q- SHOULD CONTAIN :9A56 7465+ ENDC 7465+ ENDC 1C6F 0020 7465+ COPY X,A FOR TESTING 1C70 BA97 1C88 7465+ CSK A,=:3333 CHECK -X- 1C71 0000 7465+ NOP 1C72 0E0D 7465+ HLT ADDF MODIFIED -X- 1C73 0060  7465+ COPY Y,A FOR TESTING 1C74 BA94 1C89 7465+ CSK A,=:0F0F CHECK -Y- 1C75 0000  7465+ NOP 1C76 0E0D 7465+ HLT ADDF MODIFIED -Y- 00000001 7465+  IFT 1;0;0;0;0 1C77 826D 1C65 7465+ COPY FLOAT2,A 1C78 BA93 1C8C 7465+ CSK A,=:C426 CHECK OPERAND WORD 1 1PAGE 0425 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:32.50 --ADDF-- INSTRUCTION TEST (PART 3-5) 1C79 0000 7465+ NOP 1C7A 0E0D 7465+ HLT ADDF MODIFIED OPERAND 1C7B 826A 1C66 7465+ COPY FLOAT2+1,A 1C7C BA90 1C8D 7465+ CSK A,=:B183 CHECK OPERAND WORD 2 1C7D 0000 7465+ NOP 1C7E 0E0D 7465+ HLT ADDF MODIFIED OPERAND  7465+ ENDC 00000001 7465+ IFT 1;0;0 00000001 7465+ IFT 1 1C7F 36C1 1C81 7465+ JF OV,$+2 OVERFLOW STILL RESET? 1C80 0E0D 7465+ HLT  NO-- ADDF CHANGED OVERFLOW 7465+ ENDC 00000001 7465+ IFT 1 1C81 56C1 1C83 7465+ JF CY,$+2 CARRY STILL RESET? 1C82 0E0D 7465+ HLT NO-- ADDF CHANGED CARRY 7465+ ENDC 7465+ ENDC 1C83 9E59 1C5D 7465+ JMP FLOAT1 PATCH FOR LOOPING 1C83 0000 7465+ ORG $-1 1C83 0000 7465+ NOP 00001C84 7465+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1C84 0000 7465+ NOP  RESERVE SPACE FOR JMP INSTRUCTION 0009 7465+ LPOOL 1C85 122B INITRP 1C86 C682 1C87 64CA 1C88 3333 ! 1C89 0F0F 1C8A C687 1C8B 9A56 1C8C C426 1C8D B183 00001C8E 7465+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1C84 0000 7465+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1C84 9E89 1C8E 7465+  JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1C8E 0000 7465+ ORG LP::L1 CONTINUE AT END OF LPOOL 7465+ ENDC 1PAGE 0426 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:34.50 --ADDF-- INSTRUCTION TEST (PART 3-5) 7467 * -:A6B183 +8 ADDF -:8264CA +13 = -:879A56 +13 PRE-SCALE REQUIRED 00000000 7468 IFF 0 7468+ * CY=S OV=S A=:C426 Q=:B183 ADDF :C682 :64CA=:C687 :9A56 OK 00001C8E 7468+ FLOAT1 SET $ 1C8E BF76 1C85 7468+ JST INITRP INITIALIZE TRAP LOCATIONS 1C8F 827C 1C8C 7468+ COPY =:C426,A :C426 ==> 'A' 1C90 C27C 1C8D 7468+ COPY  =:B183,Q :B183 ==> 'Q' 1C91 A276 1C88 7468+ COPY =:3333,X :3333 ==> 'X' 1C92 E276 1C89 7468+  COPY =:0F0F,Y :0F0F ==> 'Y' 1C93 0E05 7468+ SBIT CY,S S ==> CARRY FLAG 1C94 0E15 7468+ SBIT OV,S S ==> OVERFLOW FLAG 00000001 7468+ IFT 1;0;0;0;0 1C95 9E82 1C98 7468+ JMP $+3 JUMP AROUND WORD 00001C96 7468+ FLOAT2 SET $ 1C96 C682 7468+ WORD :C682 INSTRUCTION OPERAND 1C97 64CA 7468+ WORD :64CA 00001C98 7468+ FLOAT3 SET  $ 00000001 7468+ IFT 1;0 1C98 5C00 7468+ ADDF FLOAT2 DO THE OPERATION 1C99 1C96 7468+ ENDC 7468+ ENDC 00000000 7468+ IFF 0 00000001 7468+ IFT 5>0 1C9A BA6F 1C8A 7468+ CSK A,=:C687 CHECK -A- 1C9B 0000 7468+  NOP 1C9C 0E0D 7468+ HLT -A- SHOULD CONTAIN :C687 1C9D FA6D 1C8B 7468+ CSK  Q,=:9A56 CHECK -Q- 1C9E 0000 7468+ NOP 1C9F 0E0D 7468+ HLT -Q- SHOULD CONTAIN :9A56 7468+ ENDC 7468+ ENDC 1CA0 0020 7468+ COPY  X,A FOR TESTING 1CA1 BA66 1C88 7468+ CSK A,=:3333 CHECK -X- 1CA2 0000 7468+ NOP 1CA3 0E0D 7468+ HLT ADDF MODIFIED -X- 1CA4 0060 7468+ COPY Y,A  FOR TESTING 1CA5 BA63 1C89 7468+ CSK A,=:0F0F CHECK -Y- 1CA6 0000 7468+ NOP 1CA7 0E0D  7468+ HLT ADDF MODIFIED -Y- 00000001 7468+ IFT 1;0;0;0;0 1CA8 826D 1C96  7468+ COPY FLOAT2,A 1CA9 BA5C 1C86 7468+ CSK A,=:C682 CHECK OPERAND WORD 1 1PAGE 0427 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:36.50 --ADDF-- INSTRUCTION TEST (PART 3-5) 1CAA 0000 7468+ NOP 1CAB 0E0D 7468+ HLT ADDF MODIFIED OPERAND 1CAC 826A 1C97 7468" + COPY FLOAT2+1,A 1CAD BA59 1C87 7468+ CSK A,=:64CA CHECK OPERAND WORD 2 1CAE 0000 7468+ NOP 1CAF 0E0D 7468+ HLT ADDF MODIFIED OPERAND 7468+ ENDC 00000001 7468+ IFT 1;0;0 00000001 7468+ IFT 1 1CB0 3641 1CB2 7468+ JT  OV,$+2 OVERFLOW STILL SET? 1CB1 0E0D 7468+ HLT NO-- ADDF CHANGED OVERFLOW  7468+ ENDC 00000001 7468+ IFT 1 1CB2 5641 1CB4 7468+ JT CY,$+2 CARRY STILL SET? 1CB3 0E0D 7468+ HLT NO-- ADDF CHANGED CARRY 7468+ ENDC 7468+ ENDC 1CB4 9E59 1C8E 7468+ JMP FLOAT1 PATCH FOR LOOPING 1CB4 0000 7468+ ORG $-1 1CB4 0000 7468+ NOP 00001CB5 7468+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1CB5 0000 7468+ NOP RESERVE SPACE FOR JMP INSTRUCTION  0000 7468+ LPOOL 00001CB6 7468+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1CB5 0000 7468+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1CB5 9E80 1CB6 7468+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1CB6 0000 7468+ ORG LP::L1 CONTINUE AT END OF LPOOL  7468+ ENDC 1PAGE 0428 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:38.50 --ADDF-- INSTRUCTION TEST (PART 3-5) 7470 * +:E483A9 -37 ADDF +:B73145 -44 = +:E5F20C -37 CHECK ROUNDING 00000000 7471 IFF 0 7471+ * CY=R OV=R A=:2DE4 Q=:83A9 ADDF :2A37 :3145=:2DE5 :F20C OK 00001CB6 7471+ FLOAT1 SET $ 1CB6 BF4E 1C85 7471+ JST INITRP INITIALIZE TRAP LOCATIONS 1CB7 82A6 1CDE 7471+ COPY =:2DE4,A :2DE4 ==> 'A' 1CB8 C2A6 1CDF 7471+ COPY =:83A9,Q :83A9 ==> 'Q' 1CB9 A24E 1C88 7471+ COPY =:3333,X :3333 ==> 'X' 1CBA E24E 1C89 7471+ COPY =:0F0F,Y  :0F0F ==> 'Y' 1CBB 0E07 7471+ RBIT CY,S R ==> CARRY FLAG 1CBC 0E17 7471+ RBIT  OV,S R ==> OVERFLOW FLAG 00000001 7471+ IFT 1;0;0;0;0 1CBD 9E82 1CC0 7471+ JMP $+3 JUMP AROUND WORD 00001CBE 7471+ FLOAT2 SET $ 1CBE 2A37 7471+ WORD :2A37  INSTRUCTION OPERAND 1CBF 3145 7471+ WORD :3145 00001CC0 7471+ FLOAT3 SET $ 00000001 7471+ IFT 1;0 1CC0 5C00 7471+ ADDF FLOAT2 DO THE OPERATION 1CC1 1CBE 7471+ ENDC 7471+ ENDC 00000000 7471+ IFF 0 00000001 7471+  IFT 5>0 1CC2 BA9E 1CE1 7471+ CSK A,=:2DE5 CHECK -A- 1CC3 0000 7471+ NOP 1CC4 0E0D 7471+ HLT -A- SHOULD CONTAIN :2DE5 1CC5 FA9C 1CE2 7471+ CSK Q,=:F20C CHE# CK -Q- 1CC6 0000 7471+ NOP 1CC7 0E0D 7471+ HLT -Q- SHOULD CONTAIN :F20C  7471+ ENDC 7471+ ENDC 1CC8 0020 7471+ COPY X,A FOR TESTING 1CC9 BA3E 1C88 7471+ CSK A,=:3333 CHECK -X- 1CCA 0000 7471+ NOP 1CCB 0E0D 7471+ HLT ADDF MODIFIED -X- 1CCC 0060 7471+ COPY Y,A FOR TESTING 1CCD BA3B 1C89 7471+ CSK A,=:0F0F CHECK -Y- 1CCE 0000 7471+ NOP 1CCF 0E0D 7471+ HLT ADDF MODIFIED -Y- 00000001 7471+ IFT 1;0;0;0;0 1CD0 826D 1CBE 7471+ COPY  FLOAT2,A 1CD1 BA91 1CE3 7471+ CSK A,=:2A37 CHECK OPERAND WORD 1 1PAGE 0429 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:40.50 --ADDF-- INSTRUCTION TEST (PART 3-5) 1CD2 0000 7471+  NOP 1CD3 0E0D 7471+ HLT ADDF MODIFIED OPERAND 1CD4 826A 1CBF 7471+ COPY FLOAT2+1,A 1CD5 BA8A 1CE0 7471+ CSK A,=:3145 CHECK OPERAND WORD 2 1CD6 0000 7471+ NOP 1CD7 0E0D 7471+ HLT ADDF MODIFIED OPERAND 7471+ ENDC 00000001 7471+ IFT 1;0;0 00000001 7471+ IFT 1 1CD8 36C1 1CDA 7471+ JF OV,$+2 OVERFLOW STILL RESET? 1CD9 0E0D 7471+ HLT NO-- ADDF CHANGED OVERFLOW 7471+  ENDC 00000001 7471+ IFT 1 1CDA 56C1 1CDC 7471+ JF CY,$+2 CARRY STILL RESET? 1CDB 0E0D 7471+ HLT NO-- ADDF CHANGED CARRY 7471+ ENDC  7471+ ENDC 1CDC 9E59 1CB6 7471+ JMP FLOAT1 PATCH FOR LOOPING 1CDC 0000 7471+ ORG $-1 1CDC 0000 7471+ NOP 00001CDD 7471+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1CDD 0000 7471+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0006 7471+ LPOOL 1CDE 2DE4 1CDF 83A9 1CE0 3145 1CE1 2DE5 1CE2 F20C 1CE3 2A37 00001CE4 7471+ LP::L1 SET $  SET UP LABEL AT END OF LPOOL 1CDD 0000 7471+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1CDD 9E86 1CE4 7471+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1CE4 0000 7471+ ORG  LP::L1 CONTINUE AT END OF LPOOL 7471+ ENDC 1PAGE 0430 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:42.50 --ADDF-- INSTRUCTION TEST (PART 3-5) 7473 * +:B73145 -44 ADDF +:E483A9 -37 = +:E5F20C -37 CHECK ROUNDING 00000000 7474 IFF 0 7474+ * CY=S OV=S A=:2A57 Q=:3145 ADDF :2DE4 :83A9=:2DE6 :320C OK 00001CE4 7474+ FLOAT1 SET $ 1CE4 BF20 1C85 7474+ JST  INITRP INITIALIZE TRAP LOCATIONS 1CE5 82A6 1D0C 7474+ COPY =:2A57,A :2A57 ==> 'A' 1CE6 C279 1CE$ 0 7474+ COPY =:3145,Q :3145 ==> 'Q' 1CE7 A220 1C88 7474+ COPY =:3333,X :3333 ==> 'X' 1CE8 E220 1C89 7474+ COPY =:0F0F,Y :0F0F ==> 'Y' 1CE9 0E05 7474+ SBIT CY,S S ==> CARRY FLAG 1CEA 0E15 7474+ SBIT OV,S S ==> OVERFLOW FLAG 00000001 7474+ IFT 1;0;0;0;0 1CEB 9E82 1CEE 7474+ JMP $+3 JUMP AROUND WORD 00001CEC 7474+ FLOAT2 SET $ 1CEC 2DE4 7474+ WORD :2DE4 INSTRUCTION OPERAND 1CED 83A9 7474+ WORD :83A9 00001CEE 7474+ FLOAT3 SET $ 00000001 7474+ IFT 1;0 1CEE 5C00 7474+ ADDF FLOAT2  DO THE OPERATION 1CEF 1CEC 7474+ ENDC 7474+ ENDC 00000000 7474+  IFF 0 00000001 7474+ IFT 5>0 1CF0 BA9C 1D0D 7474+ CSK A,=:2DE6 CHECK -A- 1CF1 0000 7474+ NOP 1CF2 0E0D 7474+ HLT -A- SHOULD CONTAIN :2DE6 1CF3 FA9A 1D0E 7474+ CSK Q,=:320C CHECK -Q- 1CF4 0000 7474+ NOP 1CF5 0E0D 7474+ HLT  -Q- SHOULD CONTAIN :320C 7474+ ENDC 7474+ ENDC 1CF6 0020  7474+ COPY X,A FOR TESTING 1CF7 BA10 1C88 7474+ CSK A,=:3333 CHECK -X- 1CF8 0000 7474+ NOP 1CF9 0E0D 7474+ HLT ADDF MODIFIED -X- 1CFA 0060 7474+  COPY Y,A FOR TESTING 1CFB BA0D 1C89 7474+ CSK A,=:0F0F CHECK -Y- 1CFC 0000 7474+ NOP 1CFD 0E0D 7474+ HLT ADDF MODIFIED -Y- 00000001 7474+ IFT 1;0;0;0;0 1CFE 826D 1CEC 7474+ COPY FLOAT2,A 1CFF BA5E 1CDE 7474+ CSK A,=:2DE4 CHECK OPERAND WORD 1 1PAGE 0431 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:44.75 --ADDF-- INSTRUCTION TEST (PART 3-5) 1D00 0000 7474+ NOP 1D01 0E0D 7474+ HLT ADDF MODIFIED OPERAND 1D02 826A 1CED 7474+ COPY FLOAT2+1,A 1D03 BA5B 1CDF 7474+ CSK A,=:83A9 CHECK OPERAND WORD 2 1D04 0000 7474+ NOP 1D05 0E0D 7474+ HLT ADDF MODIFIED OPERAND  7474+ ENDC 00000001 7474+ IFT 1;0;0 00000001 7474+ IFT 1 1D06 3641 1D08 7474+ JT OV,$+2 OVERFLOW STILL SET? 1D07 0E0D 7474+ HLT NO-- ADDF CHANGED OVERFLOW 7474+ ENDC 00000001 7474+ IFT 1 1D08 5641 1D0A 7474+  JT CY,$+2 CARRY STILL SET? 1D09 0E0D 7474+ HLT NO-- ADDF CHANGED CARRY  7474+ ENDC 7474+ ENDC 1D0A 9E59 1CE4 7474+ JMP FLOAT1 PATCH FOR LOOPING 1D0A 0000 7474+ ORG $-1 1D0A 0000 7474+ NOP 00001D0B 7474+ LP::L SET%  $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1D0B 0000 7474+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0003 7474+ LPOOL 1D0C 2A57 1D0D 2DE6 1D0E 320C 00001D0F 7474+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1D0B 0000 7474+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1D0B 9E83 1D0F 7474+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1D0F 0000 7474+  ORG LP::L1 CONTINUE AT END OF LPOOL 7474+ ENDC 1PAGE 0432 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:46.50 --ADDF-- INSTRUCTION TEST (PART 3-5) 7476 * +:A94868 +83 ADDF -:8C547E +83 = +:E79F50 +80 SUB, NO BORROW 00000000 7477 IFF 0 7477+ * CY=R OV=R A=:69A9 Q=:4868 ADDF :E98C :547E=:6867 :9F50 OK 00001D0F 7477+ FLOAT1 SET $ 1D0F BFA7 1D37 7477+  JST INITRP INITIALIZE TRAP LOCATIONS 1D10 82A7 1D38 7477+ COPY =:69A9,A :69A9 ==> 'A' 1D11 C2A7 1D39 7477+ COPY =:4868,Q :4868 ==> 'Q' 1D12 A2A7 1D3A 7477+ COPY =:3333,X :3333 ==> 'X' 1D13 E2A7 1D3B 7477+ COPY =:0F0F,Y :0F0F ==> 'Y' 1D14 0E07 7477+ RBIT CY,S  R ==> CARRY FLAG 1D15 0E17 7477+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7477+ IFT 1;0;0;0;0 1D16 9E82 1D19 7477+ JMP $+3 JUMP AROUND WORD 00001D17 7477+ FLOAT2 SET  $ 1D17 E98C 7477+ WORD :E98C INSTRUCTION OPERAND 1D18 547E 7477+ WORD :547E  00001D19 7477+ FLOAT3 SET $ 00000001 7477+ IFT 1;0 1D19 5C00 7477+ ADDF FLOAT2 DO THE OPERATION 1D1A 1D17 7477+ ENDC 7477+ ENDC 00000000 7477+ IFF 0 00000001 7477+ IFT 5>0 1D1B BAA0 1D3C 7477+ CSK A,=:6867  CHECK -A- 1D1C 0000 7477+ NOP 1D1D 0E0D 7477+ HLT -A- SHOULD CONTAIN :6867 1D1E FA9E 1D3D 7477+ CSK Q,=:9F50 CHECK -Q- 1D1F 0000 7477+ NOP 1D20 0E0D 7477+  HLT -Q- SHOULD CONTAIN :9F50 7477+ ENDC 7477+ ENDC  1D21 0020 7477+ COPY X,A FOR TESTING 1D22 BA97 1D3A 7477+ CSK A,=:3333 CHECK -X- 1D23 0000 7477+ NOP 1D24 0E0D 7477+ HLT ADDF MODIFIED -X- 1D25 0060  7477+ COPY Y,A FOR TESTING 1D26 BA94 1D3B 7477+ CSK A,=:0F0F CHECK -Y- 1D27 0000  7477+ NOP 1D28 0E0D 7477+ HLT ADDF MODIFIED -Y- 00000001 7477+  IFT 1;0;0;0;0 1D29 826D 1D17 7477+ COPY FLOAT2,A 1D2A BA93 1D3E 7477+ CSK A,=:E98C CHECK OPERAND WORD 1 1PAGE 0433 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:48.50 --ADDF--&  INSTRUCTION TEST (PART 3-5) 1D2B 0000 7477+ NOP 1D2C 0E0D 7477+ HLT ADDF MODIFIED OPERAND 1D2D 826A 1D18 7477+ COPY FLOAT2+1,A 1D2E BA90 1D3F 7477+ CSK A,=:547E CHECK OPERAND WORD 2 1D2F 0000 7477+ NOP 1D30 0E0D 7477+ HLT ADDF MODIFIED OPERAND 7477+ ENDC 00000001 7477+ IFT 1;0;0 00000001 7477+ IFT 1  1D31 36C1 1D33 7477+ JF OV,$+2 OVERFLOW STILL RESET? 1D32 0E0D 7477+ HLT  NO-- ADDF CHANGED OVERFLOW 7477+ ENDC 00000001 7477+ IFT 1 1D33 56C1 1D35 7477+ JF CY,$+2 CARRY STILL RESET? 1D34 0E0D 7477+ HLT NO-- ADDF CHANGED CARRY 7477+ ENDC 7477+ ENDC 1D35 9E59 1D0F 7477+ JMP FLOAT1 PATCH FOR LOOPING 1D35 0000 7477+ ORG $-1 1D35 0000 7477+ NOP 00001D36 7477+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1D36 0000 7477+ NOP  RESERVE SPACE FOR JMP INSTRUCTION 0009 7477+ LPOOL 1D37 122B INITRP 1D38 69A9 1D39 4868 1D3A 3333  1D3B 0F0F 1D3C 6867 1D3D 9F50 1D3E E98C 1D3F 547E 00001D40 7477+ LP::L1 SET $ SET UP LABEL AT ENe811005134724811005134724811201102540e811005134724811005134724811201102539e' 811005134724811005134724811201102527e811005134724811005134724811005134724811005134724811005134724811005134724e.(ʱ8111301259370081113013022400811130130441. PAT404P3 LST( CY=S OV=S A=:AAAA Q=:5555 CSKF :5555 :AAAA=:AAAA :5555 LT 00001880 7404+ FLOAT1 SET $ 1880 BF48 1849 7404+  JST INITRP INITIALIZE TRAP LOCATIONS 1881 8210 1812 7404+ COPY =:AAAA,A :AAAA ==> 'A' 1882 C248 184B 7404+ COPY =:5555,Q :5555 ==> 'Q' 1883 2800 7404+ COPY =:FF00,X :FF00 ==> 'X' 1884 E246 184B 7404+ COPY =:5555,Y :5555 ==> 'Y' 1885 0E05 7404+ SBIT CY,S  S ==> CARRY FLAG 1886 0E15 7404+ SBIT OV,S S ==> OVERFLOW FLAG 00000001 7404+ IFT 0;0;0;0;1 1887 9E82 188A 7404+ JMP $+3 JUMP AROUND WORD 00001888 7404+ FLOAT2 SET  $ 1888 5555 7404+ WORD :5555 INSTRUCTION OPERAND 1889 AAAA 7404+ WORD :AAAA  0000188A 7404+ FLOAT3 SET $ 00000001 7404+ IFT 0;1 188A 5C04 7404+ CSKF FLOAT2 DO THE OPERATION 188B 1888 7404+ ENDC 7404+ ENDC 00000001 7404+ IFT 1 00000001 7404+ IFT 1 188C 9E82 188F 7404+ JMP $+3 OK-- AQ IS LESS THAN OPERAND 188D 0000 7404+ NOP 188E 0E0D 7404+ HLT INCORRECT COMPARE 7404+ ENDC 7404+ ENDC 00000001 7404+ IFT 1 188F BA02 1812 7404+ CSK A,=:AAAA CHECK -A- 1890 0000 7404+ NOP 1891 0E0D 7404+  HLT CSKF MODIFIED -A- 1892 FA38 184B 7404+ CSK Q,=:5555 CHECK -Q- 1893 0000 7404+ NOP 1894 0E0D 7404+ HLT CSKF MODIFIED -Q- 7404+ ENDC 1895 0020 7404+ COPY X,A FOR TESTING 1896 BA33 184A 7404+ CSK A,=:FF00 CHECK -X- 1897 0000 7404+ NOP 1898 0E0D 7404+ HLT CSKF MODIFIED -X- 1899 0060  7404+ COPY Y,A FOR TESTING 189A BA30 184B 7404+ CSK A,=:5555 CHECK -Y- 189B 0000  7404+ NOP 1PAGE 0372 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:10.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 189C 0E0D 7404+ HLT CSKF MODIFIED -Y- 00000001 7404+ IFT 0;0;0;0;1 189D 826A 1888 7404+ COPY FLOAT2,A 189E BA2C 184B 7404+ CSK A,=:5555 CHECK OPERAND WORD 1 189F 0000 7404+ NOP 18A0 0E0D 7404+ HLT CSKF MODIFIED OPERAND 18A1 8267 1889 7404+ COPY FLOAT2+1,A 18A2 BA91 18B4 7404+ CSK A,=:AAAA CHECK OPERAND WORD 2 18A3 0000 7404+ NOP 18A4 0E0D 7404+ HLT CSKF MODIFIED OPERAND  7404+ ENDC 00000001 7404+ IFT 0;1;0 00000001 7404+ IFT 1 18A5 3641 18A7 7404+ JT OV,$+2 OVERFLOW STILL SET? 18A6 0E0D 7404+ HLT )  NO-- CSKF CHANGED OVERFLOW 7404+ ENDC 00000001 7404+ IFT 1 18A7 5641 18A9 7404+ JT CY,$+2 CARRY STILL SET? 18A8 0E0D 7404+ HLT NO-- CSKF CHANGED CARRY 7404+ ENDC 7404+ ENDC 00000001 7404+ IFT 1 18A9 838B 18B5 7404+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 18AA 1141 18AC 7404+ JEQ A,$+2 STILL ZERO? 18AB 0E0D 7404+ HLT NO-- CSKF ALTERED TRAP VECTOR 18AC 8389 18B6 7404+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 18AD 1141 18AF 7404+ JEQ A,$+2 STILL ZERO? 18AE 0E0D  7404+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7404+ IFT 0;0;1;0;0 18AF 8020 0020 7404+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 18B0 1141 18B2 7404+ JEQ  A,$+2 STILL ZERO? 18B1 0E0D 7404+ HLT NO-- CSKF EXECUTED TRAP 7404+ ENDC 7404+ ENDC 18B2 9E4D 1880 7404+ JMP FLOAT1 PATCH FOR LOOPING  18B2 0000 7404+ ORG $-1 18B2 0000 7404+ NOP 000018B3 7404+ LP::L SET $  SET UP LABEL TO REPLACE NOP WITH JMP INST. 18B3 0000 7404+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0003 7404+ LPOOL 18B4 AAAA 18B5 00A8 ATRAP 18B6 00A9 1PAGE 0373 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:12.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 000018B7 7404+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 18B3 0000 7404+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 18B3 9E83 18B7 7404+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 18B7 0000 7404+  ORG LP::L1 CONTINUE AT END OF LPOOL 7404+ ENDC 1PAGE 0374 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:12.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7406  IFT 1 7406+ * CY=R OV=R A=:5555 Q=:AAAA CSKF :5555 :AAAA=:5555 :AAAA EQ 000018B7 7406+ FLOAT1 SET $ 18B7 BF11 1849 7406+ JST INITRP INITIALIZE TRAP LOCATIONS 18B8 8212 184B 7406+  COPY =:5555,A :5555 ==> 'A' 18B9 C27A 18B4 7406+ COPY =:AAAA,Q :AAAA ==> 'Q' 18BA 2800 7406+ COPY =:FF00,X :FF00 ==> 'X' 18BB E20F 184B 7406+ COPY =:5555,Y :5555 ==> 'Y' 18BC 0E07 7406+ RBIT CY,S R ==> CARRY FLAG 18BD 0E17 7406+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7406+ IFT 0;0;0;0;1 18BE 9E82 18C1 7406+ JMP $+3 JUMP AROUND WORD 000018BF 7406+ FLOAT2 SET $ 18BF 5555 7406+ WORD :5555 INSTRUCTION OPERAND 18C0 AAAA 7406+ WORD :AAAA 000018C1 7406+ FLOAT3 SET $ 00000001 7406+ IFT 0* ;1 18C1 5C04 7406+ CSKF FLOAT2 DO THE OPERATION 18C2 18BF 7406+ ENDC  7406+ ENDC 00000001 7406+ IFT 1 00000001 7406+ IFT 1 18C3 0000 7406+ NOP 18C4 0E0D 7406+ HLT INCORRECT COMPARE 18C5 0000 7406+  NOP OK-- AQ IS EQUAL TO OPERAND 7406+ ENDC 7406+ ENDC  00000001 7406+ IFT 1 18C6 BA04 184B 7406+ CSK A,=:5555 CHECK -A- 18C7 0000 7406+ NOP 18C8 0E0D 7406+ HLT CSKF MODIFIED -A- 18C9 FA6A 18B4 7406+ CSK  Q,=:AAAA CHECK -Q- 18CA 0000 7406+ NOP 18CB 0E0D 7406+ HLT CSKF MODIFIED -Q- 7406+ ENDC 18CC 0020 7406+ COPY X,A FOR TESTING 18CD BA9D 18EB 7406+ CSK A,=:FF00 CHECK -X- 18CE 0000 7406+ NOP 18CF 0E0D 7406+ HLT  CSKF MODIFIED -X- 18D0 0060 7406+ COPY Y,A FOR TESTING 18D1 BA9A 18EC 7406+ CSK A,=:5555 CHECK -Y- 18D2 0000 7406+ NOP 1PAGE 0375 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:14.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 18D3 0E0D 7406+ HLT  CSKF MODIFIED -Y- 00000001 7406+ IFT 0;0;0;0;1 18D4 826A 18BF 7406+ COPY FLOAT2,A 18D5 BA96 18EC 7406+ CSK A,=:5555 CHECK OPERAND WORD 1 18D6 0000 7406+ NOP 18D7 0E0D 7406+ HLT CSKF MODIFIED OPERAND 18D8 8267 18C0 7406+ COPY FLOAT2+1,A 18D9 BA5A 18B4  7406+ CSK A,=:AAAA CHECK OPERAND WORD 2 18DA 0000 7406+ NOP 18DB 0E0D 7406+ HLT CSKF MODIFIED OPERAND 7406+ ENDC 00000001 7406+ IFT 0;1;0 00000001 7406+ IFT 1 18DC 36C1 18DE 7406+ JF OV,$+2 OVERFLOW STILL RESET? 18DD 0E0D 7406+ HLT NO-- CSKF CHANGED OVERFLOW 7406+ ENDC 00000001  7406+ IFT 1 18DE 56C1 18E0 7406+ JF CY,$+2 CARRY STILL RESET? 18DF 0E0D 7406+  HLT NO-- CSKF CHANGED CARRY 7406+ ENDC 7406+ ENDC  00000001 7406+ IFT 1 18E0 8354 18B5 7406+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 18E1 1141 18E3 7406+ JEQ A,$+2 STILL ZERO? 18E2 0E0D 7406+ HLT NO-- CSKF ALTERED TRAP VECTOR 18E3 8352 18B6 7406+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 18E4 1141 18E6 7406+ JEQ A,$+2 STILL ZERO? 18E5 0E0D 7406+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7406+ IFT 0;0;1;0;0 18E6 8020 0020 7406+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP + WAS TAKEN 18E7 1141 18E9 7406+ JEQ A,$+2 STILL ZERO? 18E8 0E0D 7406+ HLT  NO-- CSKF EXECUTED TRAP 7406+ ENDC 7406+ ENDC 18E9 9E4D 18B7 7406+  JMP FLOAT1 PATCH FOR LOOPING 18E9 0000 7406+ ORG $-1 18E9 0000 7406+ NOP  000018EA 7406+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 18EA 0000 7406+  NOP RESERVE SPACE FOR JMP INSTRUCTION 0002 7406+ LPOOL 18EB FF00 18EC 5555 000018ED 7406+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1PAGE 0376 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:17.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 18EA 0000 7406+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 18EA 9E82 18ED 7406+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 18ED 0000 7406+ ORG LP::L1 CONTINUE AT END OF LPOOL 7406+ ENDC 1PAGE 0377 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:17.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7408 IFT 1 7408+ * CY=S OV=S A=:AAAA Q=:5555 CSKF :AAAA :5555=:AAAA :5555 EQ 000018ED 7408+ FLOAT1 SET $ 18ED BFB3 1921 7408+ JST INITRP INITIALIZE TRAP LOCATIONS 18EE 8245 18B4 7408+ COPY =:AAAA,A :AAAA ==> 'A' 18EF C27C 18EC 7408+ COPY =:5555,Q :5555 ==> 'Q' 18F0 2800 7408+ COPY =:FF00,X :FF00 ==> 'X' 18F1 E27A 18EC 7408+ COPY =:5555,Y :5555 ==> 'Y' 18F2 0E05 7408+ SBIT CY,S S ==> CARRY FLAG 18F3 0E15 7408+ SBIT OV,S S ==> OVERFLOW FLAG 00000001 7408+ IFT 0;0;0;0;1 18F4 9E82 18F7 7408+ JMP $+3 JUMP AROUND WORD 000018F5 7408+ FLOAT2 SET $ 18F5 AAAA 7408+ WORD :AAAA  INSTRUCTION OPERAND 18F6 5555 7408+ WORD :5555 000018F7 7408+ FLOAT3 SET $ 00000001 7408+ IFT 0;1 18F7 5C04 7408+ CSKF FLOAT2 DO THE OPERATION 18F8 18F5  7408+ ENDC 7408+ ENDC 00000001 7408+ IFT 1 00000001 7408+ IFT 1 18F9 0000 7408+ NOP 18FA 0E0D 7408+ HLT INCORRECT COMPARE 18FB 0000 7408+ NOP OK-- AQ IS EQUAL TO OPERAND 7408+ ENDC  7408+ ENDC 00000001 7408+ IFT 1 18FC BA37 18B4 7408+ CSK A,=:AAAA  CHECK -A- 18FD 0000 7408+ NOP 18FE 0E0D 7408+ HLT CSKF MODIFIED -A- 18FF FA6C 18EC 7408+ CSK Q,=:5555 CHECK -Q- 1900 0000 7408+ NOP 1901 0E0D 7408+ HLT CSKF MODIFIED -Q- 7408+ ENDC 1902 0020 7408+ COPY X,A ,  FOR TESTING 1903 BA67 18EB 7408+ CSK A,=:FF00 CHECK -X- 1904 0000 7408+ NOP 1905 0E0D  7408+ HLT CSKF MODIFIED -X- 1906 0060 7408+ COPY Y,A FOR TESTING  1907 BA64 18EC 7408+ CSK A,=:5555 CHECK -Y- 1908 0000 7408+ NOP 1PAGE 0378 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:19.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 1909 0E0D  7408+ HLT CSKF MODIFIED -Y- 00000001 7408+ IFT 0;0;0;0;1 190A 826A 18F5 7408+ COPY FLOAT2,A 190B BA28 18B4 7408+ CSK A,=:AAAA CHECK OPERAND WORD 1 190C 0000 7408+ NOP 190D 0E0D 7408+ HLT CSKF MODIFIED OPERAND 190E 8267 18F6 7408+ COPY FLOAT2+1,A 190F BA5C 18EC 7408+ CSK A,=:5555 CHECK OPERAND WORD 2 1910 0000 7408+ NOP  1911 0E0D 7408+ HLT CSKF MODIFIED OPERAND 7408+ ENDC 00000001 7408+ IFT 0;1;0 00000001 7408+ IFT 1 1912 3641 1914 7408+ JT OV,$+2  OVERFLOW STILL SET? 1913 0E0D 7408+ HLT NO-- CSKF CHANGED OVERFLOW 7408+  ENDC 00000001 7408+ IFT 1 1914 5641 1916 7408+ JT CY,$+2 CARRY STILL SET? 1915 0E0D 7408+ HLT NO-- CSKF CHANGED CARRY 7408+ ENDC  7408+ ENDC 00000001 7408+ IFT 1 1916 831E 18B5 7408+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 1917 1141 1919 7408+ JEQ A,$+2 STILL ZERO? 1918 0E0D 7408+ HLT  NO-- CSKF ALTERED TRAP VECTOR 1919 831C 18B6 7408+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 191A 1141 191C 7408+ JEQ A,$+2 STILL ZERO? 191B 0E0D 7408+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7408+ IFT 0;0;1;0;0 191C 8020 0020 7408+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 191D 1141 191F 7408+ JEQ A,$+2 STILL ZERO? 191E 0E0D 7408+  HLT NO-- CSKF EXECUTED TRAP 7408+ ENDC 7408+ ENDC 191F 9E4D 18ED 7408+ JMP FLOAT1 PATCH FOR LOOPING 191F 0000 7408+ ORG $-1 191F 0000 7408+ NOP 00001920 7408+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1920 0000 7408+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0001 7408+ LPOOL 1921 122B INITRP 00001922 7408+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1920 0000 7408+  ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1PAGE 0379 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:21.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 1920 9E81 1922 7408+ JMP LP::L1 -  JUMP TO LABEL AT END OF LPOOL 1922 0000 7408+ ORG LP::L1 CONTINUE AT END OF LPOOL  7408+ ENDC 1PAGE 0380 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:21.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7410 IFT 1 7410+ * CY=R OV=R A=:577C Q=:D405 CSKF :57FC :D405=:577C :D405 LT 00001922 7410+ FLOAT1 SET $ 1922 BF7E 1921 7410+ JST INITRP  INITIALIZE TRAP LOCATIONS 1923 82B2 1956 7410+ COPY =:577C,A :577C ==> 'A' 1924 C2B2 1957 7410+  COPY =:D405,Q :D405 ==> 'Q' 1925 2800 7410+ COPY =:FF00,X :FF00 ==> 'X' 1926 E245 18EC 7410+ COPY =:5555,Y :5555 ==> 'Y' 1927 0E07 7410+ RBIT CY,S R ==> CARRY FLAG 1928 0E17 7410+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7410+ IFT 0;0;0;0;1 1929 9E82 192C 7410+ JMP $+3 JUMP AROUND WORD 0000192A 7410+ FLOAT2 SET $ 192A 57FC 7410+  WORD :57FC INSTRUCTION OPERAND 192B D405 7410+ WORD :D405 0000192C 7410+ FLOAT3 SET $ 00000001 7410+ IFT 0;1 192C 5C04 7410+ CSKF FLOAT2 DO THE OPERATION 192D 192A 7410+ ENDC 7410+ ENDC 00000001 7410+ IFT  1 00000001 7410+ IFT 1 192E 9E82 1931 7410+ JMP $+3 OK-- AQ IS LESS THAN OPERAND 192F 0000 7410+ NOP 1930 0E0D 7410+ HLT INCORRECT COMPARE 7410+ ENDC 7410+ ENDC 00000001 7410+ IFT 1 1931 BAA4 1956 7410+  CSK A,=:577C CHECK -A- 1932 0000 7410+ NOP 1933 0E0D 7410+ HLT CSKF MODIFIED -A- 1934 FAA2 1957 7410+ CSK Q,=:D405 CHECK -Q- 1935 0000 7410+ NOP 1936 0E0D 7410+ HLT CSKF MODIFIED -Q- 7410+ ENDC 1937 0020 7410+  COPY X,A FOR TESTING 1938 BA32 18EB 7410+ CSK A,=:FF00 CHECK -X- 1939 0000 7410+  NOP 193A 0E0D 7410+ HLT CSKF MODIFIED -X- 193B 0060 7410+ COPY Y,A FOR TESTING 193C BA2F 18EC 7410+ CSK A,=:5555 CHECK -Y- 193D 0000 7410+ NOP 1PAGE 0381 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:23.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 193E 0E0D 7410+ HLT CSKF MODIFIED -Y- 00000001 7410+ IFT 0;0;0;0;1 193F 826A 192A 7410+ COPY FLOAT2,A 1940 BA99 195A 7410+ CSK A,=:57FC CHECK OPERAND WORD 1 1941 0000 7410+ NOP 1942 0E0D 7410+ HLT CSKF MODIFIED OPERAND 1943 8267 192B 7410+ COPY FLOAT2+1,A 1944 BA92 1957 7410+ CSK A,=:D405 CHECK OPERAND WORD 2 1945 0000 .  7410+ NOP 1946 0E0D 7410+ HLT CSKF MODIFIED OPERAND 7410+  ENDC 00000001 7410+ IFT 0;1;0 00000001 7410+ IFT 1 1947 36C1 1949 7410+  JF OV,$+2 OVERFLOW STILL RESET? 1948 0E0D 7410+ HLT NO-- CSKF CHANGED OVERFLOW 7410+ ENDC 00000001 7410+ IFT 1 1949 56C1 194B 7410+ JF CY,$+2 CARRY STILL RESET? 194A 0E0D 7410+ HLT NO-- CSKF CHANGED CARRY 7410+ ENDC 7410+ ENDC 00000001 7410+ IFT 1 194B 838C 1958 7410+  COPY ATRAP,A 1ST WORD OF TRAP VECTOR 194C 1141 194E 7410+ JEQ A,$+2 STILL ZERO? 194D 0E0D  7410+ HLT NO-- CSKF ALTERED TRAP VECTOR 194E 838A 1959 7410+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 194F 1141 1951 7410+ JEQ A,$+2 STILL ZERO? 1950 0E0D 7410+ HLT  NO-- CSKF ALTERED TRAP VECTOR 00000001 7410+ IFT 0;0;1;0;0 1951 8020 0020 7410+  COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 1952 1141 1954 7410+ JEQ A,$+2 STILL ZERO? 1953 0E0D 7410+ HLT NO-- CSKF EXECUTED TRAP 7410+ ENDC  7410+ ENDC 1954 9E4D 1922 7410+ JMP FLOAT1 PATCH FOR LOOPING 1954 0000 7410+  ORG $-1 1954 0000 7410+ NOP 00001955 7410+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1955 0000 7410+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0005  7410+ LPOOL 1956 577C 1957 D405 1958 00A8 ATRAP 1PAGE 0382 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:25.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 1959 00A9 195A 57FC 0000195B 7410+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1955 0000 7410+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1955 9E85 195B 7410+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 195B 0000 7410+  ORG LP::L1 CONTINUE AT END OF LPOOL 7410+ ENDC 1PAGE 0383 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:26.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7412  IFT 1 7412+ * CY=S OV=S A=:577C Q=:D405 CSKF :56FC :D405=:577C :D405 GT 0000195B 7412+ FLOAT1 SET $ 195B BF45 1921 7412+ JST INITRP INITIALIZE TRAP LOCATIONS 195C 8279 1956 7412+  COPY =:577C,A :577C ==> 'A' 195D C279 1957 7412+ COPY =:D405,Q :D405 ==> 'Q' 195E 2800 7412+ COPY =:FF00,X :FF00 ==> 'X' 195F E20C 18EC 7412+ COPY =:5555,Y :5555 ==> 'Y' 1960 0E05 7412+ SBIT CY,S S ==> CARRY FLAG 1961 0E15 7412+ SBIT OV,S S ==> OVE/ RFLOW FLAG 00000001 7412+ IFT 0;0;0;0;1 1962 9E82 1965 7412+ JMP $+3 JUMP AROUND WORD 00001963 7412+ FLOAT2 SET $ 1963 56FC 7412+ WORD :56FC INSTRUCTION OPERAND 1964 D405 7412+ WORD :D405 00001965 7412+ FLOAT3 SET $ 00000001 7412+ IFT 0;1 1965 5C04 7412+ CSKF FLOAT2 DO THE OPERATION 1966 1963 7412+ ENDC  7412+ ENDC 00000001 7412+ IFT 1 00000001 7412+ IFT 1 1967 0E0D 7412+ HLT INCORRECT COMPARE 1968 9E81 196A 7412+ JMP $+2 OK-- AQ IS GREATER THAN OPERAND 1969 0E0D 7412+ HLT INCORRECT COMPARE 7412+ ENDC 7412+ ENDC 00000001 7412+ IFT 1 196A BA6B 1956 7412+ CSK A,=:577C CHECK -A- 196B 0000 7412+ NOP 196C 0E0D 7412+ HLT CSKF MODIFIED -A- 196D FA69 1957 7412+ CSK Q,=:D405 CHECK -Q- 196E 0000 7412+ NOP 196F 0E0D 7412+  HLT CSKF MODIFIED -Q- 7412+ ENDC 1970 0020 7412+ COPY X,A FOR TESTING 1971 BA9D 198F 7412+ CSK A,=:FF00 CHECK -X- 1972 0000 7412+ NOP 1973 0E0D 7412+ HLT CSKF MODIFIED -X- 1974 0060 7412+ COPY Y,A FOR TESTING 1975 BA9A 1990 7412+ CSK A,=:5555 CHECK -Y- 1976 0000 7412+ NOP 1PAGE 0384 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:28.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 1977 0E0D 7412+ HLT CSKF MODIFIED -Y- 00000001 7412+ IFT 0;0;0;0;1 1978 826A 1963 7412+ COPY FLOAT2,A 1979 BA97 1991 7412+ CSK A,=:56FC CHECK OPERAND WORD 1 197A 0000  7412+ NOP 197B 0E0D 7412+ HLT CSKF MODIFIED OPERAND 197C 8267 1964 7412+  COPY FLOAT2+1,A 197D BA59 1957 7412+ CSK A,=:D405 CHECK OPERAND WORD 2 197E 0000 7412+  NOP 197F 0E0D 7412+ HLT CSKF MODIFIED OPERAND 7412+ ENDC  00000001 7412+ IFT 0;1;0 00000001 7412+ IFT 1 1980 3641 1982 7412+ JT OV,$+2 OVERFLOW STILL SET? 1981 0E0D 7412+ HLT NO-- CSKF CHANGED OVERFLOW  7412+ ENDC 00000001 7412+ IFT 1 1982 5641 1984 7412+ JT CY,$+2 CARRY STILL SET? 1983 0E0D 7412+ HLT NO-- CSKF CHANGED CARRY 7412+ ENDC  7412+ ENDC 00000001 7412+ IFT 1 1984 8353 1958 7412+ COPY ATRAP,A  1ST WORD OF TRAP VECTOR 1985 1141 1987 7412+ JEQ A,$+2 STILL ZERO? 1986 0E0D 7412+ 0 HLT NO-- CSKF ALTERED TRAP VECTOR 1987 8351 1959 7412+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 1988 1141 198A 7412+ JEQ A,$+2 STILL ZERO? 1989 0E0D 7412+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7412+ IFT 0;0;1;0;0 198A 8020 0020 7412+ COPY QTEMP,A  CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 198B 1141 198D 7412+ JEQ A,$+2 STILL ZERO? 198C 0E0D  7412+ HLT NO-- CSKF EXECUTED TRAP 7412+ ENDC 7412+  ENDC 198D 9E4D 195B 7412+ JMP FLOAT1 PATCH FOR LOOPING 198D 0000 7412+ ORG $-1 198D 0000 7412+ NOP 0000198E 7412+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 198E 0000 7412+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0003 7412+ LPOOL 198F FF00 1990 5555 1991 56FC 1PAGE 0385 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:30.00 --CSKF-- INSTRUCTION TEST (PART 3-3) 00001992 7412+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 198E 0000 7412+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 198E 9E83 1992 7412+  JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1992 0000 7412+ ORG LP::L1 CONTINUE AT END OF LPOOL 7412+ ENDC 1PAGE 0386 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:30.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7414 IFT 1 7414+ * CY=R OV=R A=:577C Q=:D405 CSKF :577C :D405=:577C :D405 EQ 00001992 7414+ FLOAT1 SET $ 1992 BF0E 1921 7414+  JST INITRP INITIALIZE TRAP LOCATIONS 1993 8242 1956 7414+ COPY =:577C,A :577C ==> 'A' 1994 C242 1957 7414+ COPY =:D405,Q :D405 ==> 'Q' 1995 2800 7414+ COPY =:FF00,X :FF00 ==> 'X' 1996 E279 1990 7414+ COPY =:5555,Y :5555 ==> 'Y' 1997 0E07 7414+ RBIT CY,S R ==> CARRY FLAG 1998 0E17 7414+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7414+ IFT  0;0;0;0;1 1999 9E82 199C 7414+ JMP $+3 JUMP AROUND WORD 0000199A 7414+ FLOAT2 SET $ 199A 577C 7414+ WORD :577C INSTRUCTION OPERAND 199B D405 7414+ WORD :D405  0000199C 7414+ FLOAT3 SET $ 00000001 7414+ IFT 0;1 199C 5C04 7414+ CSKF FLOAT2 DO THE OPERATION 199D 199A 7414+ ENDC 7414+ ENDC 00000001  7414+ IFT 1 00000001 7414+ IFT 1 199E 0000 7414+ NOP 199F 0E0D 7414+ HLT INCORRECT COMPARE 19A0 0000 7414+ NOP OK-- AQ IS EQUAL TO OPERAND 7414+ ENDC 7414+ ENDC 00000001 7414+ IFT 1 19A11  BA34 1956 7414+ CSK A,=:577C CHECK -A- 19A2 0000 7414+ NOP 19A3 0E0D 7414+ HLT CSKF MODIFIED -A- 19A4 FA32 1957 7414+ CSK Q,=:D405 CHECK -Q- 19A5 0000 7414+ NOP 19A6 0E0D 7414+ HLT CSKF MODIFIED -Q- 7414+ ENDC 19A7 0020 7414+ COPY X,A FOR TESTING 19A8 BA66 198F 7414+ CSK A,=:FF00 CHECK -X-  19A9 0000 7414+ NOP 19AA 0E0D 7414+ HLT CSKF MODIFIED -X- 19AB 0060 7414+ COPY Y,A FOR TESTING 19AC BA63 1990 7414+ CSK A,=:5555 CHECK -Y- 19AD 0000  7414+ NOP 1PAGE 0387 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:32.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 19AE 0E0D 7414+ HLT CSKF MODIFIED -Y- 00000001 7414+ IFT 0;0;0;0;1 19AF 826A 199A 7414+ COPY FLOAT2,A 19B0 BA25 1956 7414+ CSK A,=:577C CHECK OPERAND WORD 1 19B1 0000 7414+ NOP 19B2 0E0D 7414+ HLT CSKF MODIFIED OPERAND 19B3 8267 199B 7414+ COPY FLOAT2+1,A 19B4 BA22 1957 7414+ CSK A,=:D405 CHECK OPERAND WORD 2 19B5 0000 7414+ NOP 19B6 0E0D 7414+ HLT CSKF MODIFIED OPERAND  7414+ ENDC 00000001 7414+ IFT 0;1;0 00000001 7414+ IFT 1 19B7 36C1 19B9 7414+ JF OV,$+2 OVERFLOW STILL RESET? 19B8 0E0D 7414+ HLT NO-- CSKF CHANGED OVERFLOW 7414+ ENDC 00000001 7414+ IFT 1 19B9 56C1 19BB 7414+ JF CY,$+2 CARRY STILL RESET? 19BA 0E0D 7414+ HLT NO-- CSKF CHANGED CARRY 7414+ ENDC 7414+ ENDC 00000001 7414+ IFT 1 19BB 831C 1958 7414+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 19BC 1141 19BE 7414+ JEQ A,$+2 STILL ZERO? 19BD 0E0D 7414+ HLT NO-- CSKF ALTERED TRAP VECTOR 19BE 831A 1959 7414+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 19BF 1141 19C1 7414+ JEQ A,$+2 STILL ZERO? 19C0 0E0D  7414+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7414+ IFT 0;0;1;0;0 19C1 8020 0020 7414+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 19C2 1141 19C4 7414+ JEQ  A,$+2 STILL ZERO? 19C3 0E0D 7414+ HLT NO-- CSKF EXECUTED TRAP 7414+ ENDC 7414+ ENDC 19C4 9E4D 1992 7414+ JMP FLOAT1 PATCH FOR LOOPING  19C4 0000 7414+ ORG $-1 19C4 0000 7414+ NOP 000019C5 7414+ LP::L SET $  SET UP LABEL TO REPLACE NOP WITH JMP INST. 19C5 0000 7414+ NOP RESERVE SPACE FOR JMP I2 NSTRUCTION 0000 7414+ LPOOL 000019C6 7414+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 19C5 0000 7414+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 19C5 9E80 19C6 7414+  JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1PAGE 0388 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:34.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 19C6 0000 7414+ ORG LP::L1 CONTINUE AT END OF LPOOL 7414+ ENDC 1PAGE 0389 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:34.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7416 IFT 1 7416+ * CY=S OV=S A=:C6A6 Q=:4ED3 CSKF :C6A6 :4ED2=:C6A6 :4ED3 LT 000019C6 7416+ FLOAT1 SET $ 19C6 BFB3 19FA 7416+ JST INITRP INITIALIZE TRAP LOCATIONS 19C7 82B3 19FB 7416+ COPY =:C6A6,A :C6A6 ==> 'A' 19C8 C2B3 19FC 7416+ COPY =:4ED3,Q :4ED3 ==> 'Q' 19C9 2800 7416+ COPY =:FF00,X :FF00 ==> 'X' 19CA E245 1990 7416+ COPY =:5555,Y :5555 ==> 'Y' 19CB 0E05 7416+ SBIT CY,S  S ==> CARRY FLAG 19CC 0E15 7416+ SBIT OV,S S ==> OVERFLOW FLAG 00000001 7416+  IFT 0;0;0;0;1 19CD 9E82 19D0 7416+ JMP $+3 JUMP AROUND WORD 000019CE 7416+ FLOAT2 SET $ 19CE C6A6 7416+ WORD :C6A6 INSTRUCTION OPERAND 19CF 4ED2 7416+ WORD :4ED2 000019D0 7416+ FLOAT3 SET $ 00000001 7416+ IFT 0;1 19D0 5C04 7416+ CSKF FLOAT2 DO THE OPERATION 19D1 19CE 7416+ ENDC 7416+ ENDC 00000001 7416+ IFT 1 00000001 7416+ IFT 1 19D2 9E82 19D5 7416+ JMP $+3  OK-- AQ IS LESS THAN OPERAND 19D3 0000 7416+ NOP 19D4 0E0D 7416+ HLT INCORRECT COMPARE 7416+ ENDC 7416+ ENDC 00000001 7416+ IFT  1 19D5 BAA5 19FB 7416+ CSK A,=:C6A6 CHECK -A- 19D6 0000 7416+ NOP 19D7 0E0D 7416+ HLT CSKF MODIFIED -A- 19D8 FAA3 19FC 7416+ CSK Q,=:4ED3 CHECK -Q- 19D9 0000  7416+ NOP 19DA 0E0D 7416+ HLT CSKF MODIFIED -Q- 7416+  ENDC 19DB 0020 7416+ COPY X,A FOR TESTING 19DC BA32 198F 7416+ CSK A,=:FF00  CHECK -X- 19DD 0000 7416+ NOP 19DE 0E0D 7416+ HLT CSKF MODIFIED -X- 19DF 0060 7416+ COPY Y,A FOR TESTING 19E0 BA2F 1990 7416+ CSK A,=:5555 CHECK -Y- 19E1 0000 7416+ NOP 1PAGE 0390 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:36.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 19E2 0E0D 7416+ HLT CSKF MODIFIED -Y- 000003 001 7416+ IFT 0;0;0;0;1 19E3 826A 19CE 7416+ COPY FLOAT2,A 19E4 BA96 19FB 7416+ CSK  A,=:C6A6 CHECK OPERAND WORD 1 19E5 0000 7416+ NOP 19E6 0E0D 7416+ HLT  CSKF MODIFIED OPERAND 19E7 8267 19CF 7416+ COPY FLOAT2+1,A 19E8 BA96 19FF 7416+ CSK A,=:4ED2  CHECK OPERAND WORD 2 19E9 0000 7416+ NOP 19EA 0E0D 7416+ HLT CSKF MODIFIED OPERAND 7416+ ENDC 00000001 7416+ IFT 0;1;0 00000001 7416+ IFT  1 19EB 3641 19ED 7416+ JT OV,$+2 OVERFLOW STILL SET? 19EC 0E0D 7416+ HLT  NO-- CSKF CHANGED OVERFLOW 7416+ ENDC 00000001 7416+ IFT 1 19ED 5641 19EF 7416+ JT CY,$+2 CARRY STILL SET? 19EE 0E0D 7416+ HLT NO-- CSKF CHANGED CARRY 7416+ ENDC 7416+ ENDC 00000001 7416+ IFT 1  19EF 838D 19FD 7416+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 19F0 1141 19F2 7416+ JEQ A,$+2  STILL ZERO? 19F1 0E0D 7416+ HLT NO-- CSKF ALTERED TRAP VECTOR 19F2 838B 19FE 7416+  COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 19F3 1141 19F5 7416+ JEQ A,$+2 STILL ZERO? 19F4 0E0D 7416+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7416+ IFT 0;0;1;0;0 19F5 8020 0020 7416+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 19F6 1141 19F8 7416+  JEQ A,$+2 STILL ZERO? 19F7 0E0D 7416+ HLT NO-- CSKF EXECUTED TRAP  7416+ ENDC 7416+ ENDC 19F8 9E4D 19C6 7416+ JMP FLOAT1 PATCH FOR LOOPING 19F8 0000 7416+ ORG $-1 19F8 0000 7416+ NOP 000019F9 7416+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 19F9 0000 7416+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0006 7416+ LPOOL 19FA 122B INITRP 19FB C6A6 19FC 4ED3 1PAGE 0391 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:38.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 19FD 00A8 ATRAP 19FE 00A9 19FF 4ED2 00001A00 7416+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 19F9 0000 7416+  ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 19F9 9E86 1A00 7416+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1A00 0000 7416+ ORG LP::L1 CONTINUE AT END OF LPOOL 7416+  ENDC 1PAGE 0392 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:39.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7418 IFT 1 7418+ * CY=R OV=R A=:C6A6 Q=:4ED3 CSKF :C6A6 :4ED4=:C6A6 :4ED3 GT 00001A00 7418+ FLOAT1 SET $ 1A00 BF79 19FA 7418+ JST INITRP INITIA4 LIZE TRAP LOCATIONS 1A01 8279 19FB 7418+ COPY =:C6A6,A :C6A6 ==> 'A' 1A02 C279 19FC 7418+ COPY  =:4ED3,Q :4ED3 ==> 'Q' 1A03 2800 7418+ COPY =:FF00,X :FF00 ==> 'X' 1A04 E20B 1990 7418+  COPY =:5555,Y :5555 ==> 'Y' 1A05 0E07 7418+ RBIT CY,S R ==> CARRY FLAG 1A06 0E17  7418+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7418+ IFT 0;0;0;0;1 1A07 9E82 1A0A 7418+ JMP $+3 JUMP AROUND WORD 00001A08 7418+ FLOAT2 SET $ 1A08 C6A6 7418+  WORD :C6A6 INSTRUCTION OPERAND 1A09 4ED4 7418+ WORD :4ED4 00001A0A 7418+ FLOAT3 SET  $ 00000001 7418+ IFT 0;1 1A0A 5C04 7418+ CSKF FLOAT2 DO THE OPERATION 1A0B 1A08 7418+ ENDC 7418+ ENDC 00000001 7418+ IFT 1  00000001 7418+ IFT 1 1A0C 0E0D 7418+ HLT INCORRECT COMPARE 1A0D 9E81 1A0F 7418+ JMP $+2 OK-- AQ IS GREATER THAN OPERAND 1A0E 0E0D 7418+ HLT INCORRECT COMPARE 7418+ ENDC 7418+ ENDC 00000001 7418+ IFT  1 1A0F BA6B 19FB 7418+ CSK A,=:C6A6 CHECK -A- 1A10 0000 7418+ NOP 1A11 0E0D 7418+  HLT CSKF MODIFIED -A- 1A12 FA69 19FC 7418+ CSK Q,=:4ED3 CHECK -Q- 1A13 0000  7418+ NOP 1A14 0E0D 7418+ HLT CSKF MODIFIED -Q- 7418+ ENDC 1A15 0020 7418+ COPY X,A FOR TESTING 1A16 BA9D 1A34 7418+ CSK A,=:FF00 CHECK -X- 1A17 0000 7418+ NOP 1A18 0E0D 7418+ HLT CSKF MODIFIED -X- 1A19 0060 7418+ COPY Y,A FOR TESTING 1A1A BA9A 1A35 7418+ CSK A,=:5555 CHECK -Y- 1A1B 0000 7418+ NOP 1PAGE 0393 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:41.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 1A1C 0E0D 7418+ HLT CSKF MODIFIED -Y- 00000001 7418+ IFT 0;0;0;0;1 1A1D 826A 1A08 7418+ COPY FLOAT2,A 1A1E BA5C 19FB 7418+ CSK  A,=:C6A6 CHECK OPERAND WORD 1 1A1F 0000 7418+ NOP 1A20 0E0D 7418+ HLT CSKF MODIFIED OPERAND 1A21 8267 1A09 7418+ COPY FLOAT2+1,A 1A22 BA93 1A36 7418+ CSK A,=:4ED4 CHECK OPERAND WORD 2 1A23 0000 7418+ NOP 1A24 0E0D 7418+ HLT CSKF MODIFIED OPERAND 7418+ ENDC 00000001 7418+ IFT 0;1;0 00000001 7418+ IFT  1 1A25 36C1 1A27 7418+ JF OV,$+2 OVERFLOW STILL RESET? 1A26 0E0D 7418+ HLT  NO-- CSKF CHANGED OVERFLOW 7418+ ENDC 00000001 7418+ IFT 1 1A27 56C1 15 A29 7418+ JF CY,$+2 CARRY STILL RESET? 1A28 0E0D 7418+ HLT NO-- CSKF CHANGED CARRY 7418+ ENDC 7418+ ENDC 00000001 7418+ IFT 1 1A29 8353 19FD 7418+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 1A2A 1141 1A2C 7418+ JEQ A,$+2  STILL ZERO? 1A2B 0E0D 7418+ HLT NO-- CSKF ALTERED TRAP VECTOR 1A2C 8351 19FE 7418+  COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 1A2D 1141 1A2F 7418+ JEQ A,$+2 STILL ZERO? 1A2E 0E0D 7418+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7418+ IFT 0;0;1;0;0 1A2F 8020 0020 7418+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 1A30 1141 1A32 7418+  JEQ A,$+2 STILL ZERO? 1A31 0E0D 7418+ HLT NO-- CSKF EXECUTED TRAP  7418+ ENDC 7418+ ENDC 1A32 9E4D 1A00 7418+ JMP FLOAT1 PATCH FOR LOOPING 1A32 0000 7418+ ORG $-1 1A32 0000 7418+ NOP 00001A33 7418+ LP::L SET  $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1A33 0000 7418+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0003 7418+ LPOOL 1A34 FF00 1A35 5555 1A36 4ED4 1PAGE 0394 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:43.25 --CSKF-- INSTRUCTION TEST (PART 3-3) 00001A37 7418+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1A33 0000 7418+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1A33 9E83 1A37 7418+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1A37 0000 7418+ ORG LP::L1 CONTINUE AT END OF LPOOL 7418+ ENDC 1PAGE 0395 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:43.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 00000001 7420 IFT 1 7420+ * CY=S OV=S A=:C6A6 Q=:4ED3 CSKF :C6A6 :4ED3=:C6A6 :4ED3 EQ 00001A37 7420+ FLOAT1 SET $ 1A37 BF42 19FA 7420+ JST INITRP INITIALIZE TRAP LOCATIONS 1A38 8242 19FB 7420+  COPY =:C6A6,A :C6A6 ==> 'A' 1A39 C242 19FC 7420+ COPY =:4ED3,Q :4ED3 ==> 'Q' 1A3A 2800  7420+ COPY =:FF00,X :FF00 ==> 'X' 1A3B E279 1A35 7420+ COPY =:5555,Y :5555 ==> 'Y' 1A3C 0E05 7420+ SBIT CY,S S ==> CARRY FLAG 1A3D 0E15 7420+ SBIT OV,S S ==> OVERFLOW FLAG 00000001 7420+ IFT 0;0;0;0;1 1A3E 9E82 1A41 7420+ JMP $+3 JUMP AROUND WORD 00001A3F 7420+ FLOAT2 SET $ 1A3F C6A6 7420+ WORD :C6A6 INSTRUCTION OPERAND  1A40 4ED3 7420+ WORD :4ED3 00001A41 7420+ FLOAT3 SET $ 00000001 7420+ IFT  0;1 1A41 5C04 7420+ CSKF FLOAT2 DO THE OPERATION 1A42 1A3F 7420+ ENDC 6  7420+ ENDC 00000001 7420+ IFT 1 00000001 7420+ IFT 1 1A43 0000 7420+ NOP 1A44 0E0D 7420+ HLT INCORRECT COMPARE 1A45 0000 7420+  NOP OK-- AQ IS EQUAL TO OPERAND 7420+ ENDC 7420+ ENDC 00000001 7420+ IFT 1 1A46 BA34 19FB 7420+ CSK A,=:C6A6 CHECK -A- 1A47 0000  7420+ NOP 1A48 0E0D 7420+ HLT CSKF MODIFIED -A- 1A49 FA32 19FC 7420+ CSK Q,=:4ED3 CHECK -Q- 1A4A 0000 7420+ NOP 1A4B 0E0D 7420+ HLT CSKF MODIFIED -Q- 7420+ ENDC 1A4C 0020 7420+ COPY X,A FOR TESTING 1A4D BA66 1A34 7420+ CSK A,=:FF00 CHECK -X- 1A4E 0000 7420+ NOP 1A4F 0E0D 7420+ HLT  CSKF MODIFIED -X- 1A50 0060 7420+ COPY Y,A FOR TESTING 1A51 BA63 1A35 7420+  CSK A,=:5555 CHECK -Y- 1A52 0000 7420+ NOP 1PAGE 0396 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:45.50 --CSKF-- INSTRUCTION TEST (PART 3-3) 1A53 0E0D 7420+ HLT  CSKF MODIFIED -Y- 00000001 7420+ IFT 0;0;0;0;1 1A54 826A 1A3F 7420+ COPY FLOAT2,A 1A55 BA25 19FB 7420+ CSK A,=:C6A6 CHECK OPERAND WORD 1 1A56 0000 7420+ NOP 1A57 0E0D  7420+ HLT CSKF MODIFIED OPERAND 1A58 8267 1A40 7420+ COPY FLOAT2+1,A 1A59 BA22 19FC 7420+ CSK A,=:4ED3 CHECK OPERAND WORD 2 1A5A 0000 7420+ NOP 1A5B 0E0D 7420+  HLT CSKF MODIFIED OPERAND 7420+ ENDC 00000001 7420+ IFT 0;1;0 00000001 7420+ IFT 1 1A5C 3641 1A5E 7420+ JT OV,$+2 OVERFLOW STILL SET? 1A5D 0E0D 7420+ HLT NO-- CSKF CHANGED OVERFLOW 7420+ ENDC 00000001 7420+ IFT 1 1A5E 5641 1A60 7420+ JT CY,$+2 CARRY STILL SET? 1A5F 0E0D 7420+  HLT NO-- CSKF CHANGED CARRY 7420+ ENDC 7420+ ENDC  00000001 7420+ IFT 1 1A60 831C 19FD 7420+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 1A61 1141 1A63 7420+ JEQ A,$+2 STILL ZERO? 1A62 0E0D 7420+ HLT NO-- CSKF ALTERED TRAP VECTOR 1A63 831A 19FE 7420+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 1A64 1141 1A66 7420+ JEQ A,$+2 STILL ZERO? 1A65 0E0D 7420+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7420+ IFT 0;0;1;0;0 1A66 8020 0020 7420+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 1A67 1141 1A69 7420+ JEQ A,$+2 STILL ZERO? 1A68 0E0D 7420+ HLT 7  NO-- CSKF EXECUTED TRAP 7420+ ENDC 7420+ ENDC 1A69 9E4D 1A37 7420+  JMP FLOAT1 PATCH FOR LOOPING 1A69 0000 7420+ ORG $-1 1A69 0000 7420+ NOP  00001A6A 7420+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1A6A 0000 7420+  NOP RESERVE SPACE FOR JMP INSTRUCTION 0000 7420+ LPOOL 00001A6B 7420+ LP::L1  SET $ SET UP LABEL AT END OF LPOOL 1A6A 0000 7420+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1A6A 9E80 1A6B 7420+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1PAGE 0397 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:47.75 --CSKF-- INSTRUCTION TEST (PART 3-3) 1A6B 0000 7420+ ORG LP::L1 CONTINUE AT END OF LPOOL 7420+ ENDC 7421 * 1PAGE 0398 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:48.00 --CSKF-- INSTRUCTION TEST (PART 3-4) 7423 * 7424 * 7425 * 7426 * THE FOLLOWING INSTRUCTION IS TESTED IN THIS SECTION: 7427 * 7428 * CSKF  7429 * 7430 * 00000001 7431 IFT 1 7431+ * CY=R OV=R A=:3CBE Q=:7428 CSKF :3CBE :7429=:3CBE :7428 LT 00001A6B 7431+ FLOAT1 SET $ 1A6B BF0E 19FA 7431+ JST INITRP  INITIALIZE TRAP LOCATIONS 1A6C 82B2 1A9F 7431+ COPY =:3CBE,A :3CBE ==> 'A' 1A6D C2B2 1AA0 7431+  COPY =:7428,Q :7428 ==> 'Q' 1A6E 2800 7431+ COPY =:FF00,X :FF00 ==> 'X' 1A6F E245 1A35 7431+ COPY =:5555,Y :5555 ==> 'Y' 1A70 0E07 7431+ RBIT CY,S R ==> CARRY FLAG 1A71 0E17 7431+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7431+ IFT 0;0;0;0;1 1A72 9E82 1A75 7431+ JMP $+3 JUMP AROUND WORD 00001A73 7431+ FLOAT2 SET $ 1A73 3CBE 7431+ WORD :3CBE INSTRUCTION OPERAND 1A74 7429 7431+ WORD :7429 00001A75 7431+ FLOAT3 SET $ 00000001 7431+ IFT 0;1 1A75 5C04 7431+ CSKF FLOAT2 DO THE OPERATION 1A76 1A73 7431+ ENDC 7431+ ENDC 00000001 7431+ IFT  1 00000001 7431+ IFT 1 1A77 9E82 1A7A 7431+ JMP $+3 OK-- AQ IS LESS THAN OPERAND 1A78 0000 7431+ NOP 1A79 0E0D 7431+ HLT INCORRECT COMPARE  7431+ ENDC 7431+ ENDC 00000001 7431+ IFT 1 1A7A BAA4 1A9F 7431+  CSK A,=:3CBE CHECK -A- 1A7B 0000 7431+ NOP 1A7C 0E0D 7431+ HLT  CSKF MODIFIED -A- 1A7D FAA2 1AA0 7431+ CSK Q,=:7428 CHECK -Q- 1A7E 0000 7431+ NOP 1A7F 8 0E0D 7431+ HLT CSKF MODIFIED -Q- 1PAGE 0399 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:49.75 --CSKF-- INSTRUCTION TEST (PART 3-4) 7431+ ENDC 1A80 0020  7431+ COPY X,A FOR TESTING 1A81 BA32 1A34 7431+ CSK A,=:FF00 CHECK -X- 1A82 0000 7431+ NOP 1A83 0E0D 7431+ HLT CSKF MODIFIED -X- 1A84 0060 7431+  COPY Y,A FOR TESTING 1A85 BA2F 1A35 7431+ CSK A,=:5555 CHECK -Y- 1A86 0000 7431+  NOP 1A87 0E0D 7431+ HLT CSKF MODIFIED -Y- 00000001 7431+ IFT 0;0;0;0;1 1A88 826A 1A73 7431+ COPY FLOAT2,A 1A89 BA95 1A9F 7431+ CSK A,=:3CBE CHECK OPERAND WORD 1 1A8A 0000 7431+ NOP 1A8B 0E0D 7431+ HLT CSKF MODIFIED OPERAND 1A8C 8267 1A74 7431+ COPY FLOAT2+1,A 1A8D BA95 1AA3 7431+ CSK A,=:7429 CHECK OPERAND WORD 2 1A8E 0000 7431+ NOP 1A8F 0E0D 7431+ HLT CSKF MODIFIED OPERAND 7431+  ENDC 00000001 7431+ IFT 0;1;0 00000001 7431+ IFT 1 1A90 36C1 1A92 7431+  JF OV,$+2 OVERFLOW STILL RESET? 1A91 0E0D 7431+ HLT NO-- CSKF CHANGED OVERFLOW 7431+ ENDC 00000001 7431+ IFT 1 1A92 56C1 1A94 7431+ JF CY,$+2 CARRY STILL RESET? 1A93 0E0D 7431+ HLT NO-- CSKF CHANGED CARRY  7431+ ENDC 7431+ ENDC 00000001 7431+ IFT 1 1A94 838C 1AA1 7431+  COPY ATRAP,A 1ST WORD OF TRAP VECTOR 1A95 1141 1A97 7431+ JEQ A,$+2 STILL ZERO? 1A96 0E0D 7431+ HLT NO-- CSKF ALTERED TRAP VECTOR 1A97 838A 1AA2 7431+ COPY ATRAP+1,A  2ND WORD OF TRAP VECTOR 1A98 1141 1A9A 7431+ JEQ A,$+2 STILL ZERO? 1A99 0E0D 7431+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7431+ IFT 0;0;1;0;0 1A9A 8020 0020 7431+  COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 1A9B 1141 1A9D 7431+ JEQ A,$+2 STILL ZERO? 1A9C 0E0D 7431+ HLT NO-- CSKF EXECUTED TRAP 7431+ ENDC  7431+ ENDC 1A9D 9E4D 1A6B 7431+ JMP FLOAT1 PATCH FOR LOOPING 1PAGE 0400 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:52.00 --CSKF-- INSTRUCTION TEST (PART 3-4) 1A9D 0000 7431+ ORG $-1 1A9D 0000 7431+ NOP 00001A9E 7431+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1A9E 0000 7431+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0005 7431+ LPOOL 1A9F 3CBE 1AA0 7428 1AA1 00A8 ATRAP 1AA2 00A9 1AA3 7429 00001AA4 7431+ LP:9 :L1 SET $ SET UP LABEL AT END OF LPOOL 1A9E 0000 7431+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1A9E 9E85 1AA4 7431+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1AA4 0000 7431+ ORG LP::L1 CONTINUE AT END OF LPOOL 7431+ ENDC 1PAGE 0401 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:52.50 --CSKF-- INSTRUCTION TEST (PART 3-4) 00000001 7433 IFT 1 7433+ * CY=S OV=S A=:3CBE Q=:7428 CSKF :3CBE :7427=:3CBE :7428 GT 00001AA4 7433+ FLOAT1 SET $ 1AA4 BFB3 1AD8 7433+ JST INITRP INITIALIZE TRAP LOCATIONS 1AA5 8279 1A9F 7433+  COPY =:3CBE,A :3CBE ==> 'A' 1AA6 C279 1AA0 7433+ COPY =:7428,Q :7428 ==> 'Q' 1AA7 2800  7433+ COPY =:FF00,X :FF00 ==> 'X' 1AA8 E20C 1A35 7433+ COPY =:5555,Y :5555 ==> 'Y' 1AA9 0E05 7433+ SBIT CY,S S ==> CARRY FLAG 1AAA 0E15 7433+ SBIT OV,S S ==> OVERFLOW FLAG 00000001 7433+ IFT 0;0;0;0;1 1AAB 9E82 1AAE 7433+ JMP $+3 JUMP AROUND WORD 00001AAC 7433+ FLOAT2 SET $ 1AAC 3CBE 7433+ WORD :3CBE INSTRUCTION OPERAND 1AAD 7427 7433+ WORD :7427 00001AAE 7433+ FLOAT3 SET $ 00000001 7433+ IFT  0;1 1AAE 5C04 7433+ CSKF FLOAT2 DO THE OPERATION 1AAF 1AAC 7433+ ENDC  7433+ ENDC 00000001 7433+ IFT 1 00000001 7433+ IFT 1 1AB0 0E0D 7433+ HLT INCORRECT COMPARE 1AB1 9E81 1AB3 7433+ JMP $+2 OK-- AQ IS GREATER THAN OPERAND 1AB2 0E0D 7433+ HLT INCORRECT COMPARE 7433+  ENDC 7433+ ENDC 00000001 7433+ IFT 1 1AB3 BA6B 1A9F 7433+ CSK A,=:3CBE CHECK -A- 1AB4 0000 7433+ NOP 1AB5 0E0D 7433+ HLT CSKF MODIFIED -A- 1AB6 FA69 1AA0 7433+ CSK Q,=:7428 CHECK -Q- 1AB7 0000 7433+ NOP 1AB8 0E0D 7433+ HLT CSKF MODIFIED -Q- 7433+ ENDC 1AB9 0020 7433+ COPY  X,A FOR TESTING 1ABA BA9E 1AD9 7433+ CSK A,=:FF00 CHECK -X- 1ABB 0000 7433+ NOP  1ABC 0E0D 7433+ HLT CSKF MODIFIED -X- 1ABD 0060 7433+ COPY Y,A FOR TESTING 1ABE BA9B 1ADA 7433+ CSK A,=:5555 CHECK -Y- 1ABF 0000 7433+ NOP 1PAGE 0402 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:54.50 --CSKF-- INSTRUCTION TEST (PART 3-4) 1AC0 0E0D 7433+ HLT CSKF MODIFIED -Y- 00000001 7433+ IFT 0;0;0;0;1 1AC1 826A 1AAC 7433+ COPY FLOAT2,A 1AC2 BA5C 1A9F 7433+ CSK A,=:3CBE CHECK OPERAND WORD 1 1AC3 000: 0 7433+ NOP 1AC4 0E0D 7433+ HLT CSKF MODIFIED OPERAND 1AC5 8267 1AAD 7433+  COPY FLOAT2+1,A 1AC6 BA94 1ADB 7433+ CSK A,=:7427 CHECK OPERAND WORD 2 1AC7 0000 7433+  NOP 1AC8 0E0D 7433+ HLT CSKF MODIFIED OPERAND 7433+ ENDC  00000001 7433+ IFT 0;1;0 00000001 7433+ IFT 1 1AC9 3641 1ACB 7433+ JT  OV,$+2 OVERFLOW STILL SET? 1ACA 0E0D 7433+ HLT NO-- CSKF CHANGED OVERFLOW  7433+ ENDC 00000001 7433+ IFT 1 1ACB 5641 1ACD 7433+ JT CY,$+2 CARRY STILL SET? 1ACC 0E0D 7433+ HLT NO-- CSKF CHANGED CARRY 7433+ ENDC 7433+ ENDC 00000001 7433+ IFT 1 1ACD 8353 1AA1 7433+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 1ACE 1141 1AD0 7433+ JEQ A,$+2 STILL ZERO? 1ACF 0E0D 7433+  HLT NO-- CSKF ALTERED TRAP VECTOR 1AD0 8351 1AA2 7433+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 1AD1 1141 1AD3 7433+ JEQ A,$+2 STILL ZERO? 1AD2 0E0D 7433+ HLT  NO-- CSKF ALTERED TRAP VECTOR 00000001 7433+ IFT 0;0;1;0;0 1AD3 8020 0020 7433+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 1AD4 1141 1AD6 7433+ JEQ A,$+2 STILL ZERO? 1AD5 0E0D  7433+ HLT NO-- CSKF EXECUTED TRAP 7433+ ENDC 7433+  ENDC 1AD6 9E4D 1AA4 7433+ JMP FLOAT1 PATCH FOR LOOPING 1AD6 0000 7433+ ORG $-1 1AD6 0000 7433+ NOP 00001AD7 7433+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1AD7 0000 7433+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0004 7433+  LPOOL 1AD8 122B INITRP 1AD9 FF00 1ADA 5555 1PAGE 0403 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:56.50 --CSKF-- INSTRUCTION TEST (PART 3-4) 1ADB 7427 00001ADC 7433+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1AD7 0000 7433+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1AD7 9E84 1ADC 7433+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1ADC 0000 7433+ ORG LP::L1  CONTINUE AT END OF LPOOL 7433+ ENDC 1PAGE 0404 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:57.00 --CSKF-- INSTRUCTION TEST (PART 3-4) 00000001 7435 IFT 1  7435+ * CY=R OV=R A=:3CBE Q=:7428 CSKF :3CBE :7428=:3CBE :7428 EQ 00001ADC 7435+ FLOAT1 SET $ 1ADC BF7B 1AD8 7435+ JST INITRP INITIALIZE TRAP LOCATIONS 1ADD 8241 1A9F 7435+ COPY =:3CBE,A :3CBE ==> 'A' 1ADE C241 1AA0 7435+ COPY =:7428,Q :7428 ==> 'Q' 1ADF 2800 7435+ COPY =:FF; 00,X :FF00 ==> 'X' 1AE0 E279 1ADA 7435+ COPY =:5555,Y :5555 ==> 'Y' 1AE1 0E07 7435+ RBIT CY,S R ==> CARRY FLAG 1AE2 0E17 7435+ RBIT OV,S R ==> OVERFLOW FLAG 00000001  7435+ IFT 0;0;0;0;1 1AE3 9E82 1AE6 7435+ JMP $+3 JUMP AROUND WORD 00001AE4 7435+ FLOAT2 SET $ 1AE4 3CBE 7435+ WORD :3CBE INSTRUCTION OPERAND 1AE5 7428 7435+  WORD :7428 00001AE6 7435+ FLOAT3 SET $ 00000001 7435+ IFT 0;1 1AE6 5C04 7435+  CSKF FLOAT2 DO THE OPERATION 1AE7 1AE4 7435+ ENDC 7435+ ENDC 00000001 7435+ IFT 1 00000001 7435+ IFT 1 1AE8 0000 7435+ NOP 1AE9 0E0D 7435+ HLT INCORRECT COMPARE 1AEA 0000 7435+ NOP OK-- AQ IS EQUAL TO OPERAND 7435+ ENDC 7435+ ENDC 00000001 7435+  IFT 1 1AEB BA33 1A9F 7435+ CSK A,=:3CBE CHECK -A- 1AEC 0000 7435+ NOP 1AED 0E0D  7435+ HLT CSKF MODIFIED -A- 1AEE FA31 1AA0 7435+ CSK Q,=:7428 CHECK -Q- 1AEF 0000 7435+ NOP 1AF0 0E0D 7435+ HLT CSKF MODIFIED -Q- 7435+ ENDC 1AF1 0020 7435+ COPY X,A FOR TESTING 1AF2 BA66 1AD9 7435+ CSK A,=:FF00 CHECK -X- 1AF3 0000 7435+ NOP 1AF4 0E0D 7435+ HLT CSKF MODIFIED -X- 1AF5 0060 7435+ COPY Y,A FOR TESTING 1AF6 BA63 1ADA 7435+ CSK A,=:5555 CHECK -Y- 1AF7 0000 7435+ NOP 1PAGE 0405 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:17:59.00 --CSKF-- INSTRUCTION TEST (PART 3-4) 1AF8 0E0D 7435+ HLT CSKF MODIFIED -Y-  00000001 7435+ IFT 0;0;0;0;1 1AF9 826A 1AE4 7435+ COPY FLOAT2,A 1AFA BA24 1A9F 7435+  CSK A,=:3CBE CHECK OPERAND WORD 1 1AFB 0000 7435+ NOP 1AFC 0E0D 7435+ HLT  CSKF MODIFIED OPERAND 1AFD 8267 1AE5 7435+ COPY FLOAT2+1,A 1AFE BA21 1AA0 7435+ CSK A,=:7428 CHECK OPERAND WORD 2 1AFF 0000 7435+ NOP 1B00 0E0D 7435+ HLT CSKF MODIFIED OPERAND 7435+ ENDC 00000001 7435+ IFT 0;1;0 00000001 7435+  IFT 1 1B01 36C1 1B03 7435+ JF OV,$+2 OVERFLOW STILL RESET? 1B02 0E0D 7435+ HLT NO-- CSKF CHANGED OVERFLOW 7435+ ENDC 00000001 7435+ IFT 1  1B03 56C1 1B05 7435+ JF CY,$+2 CARRY STILL RESET? 1B04 0E0D 7435+ HLT  NO-- CSKF CHANGED CARRY 7435+ ENDC 7435+ ENDC 00000001 7435+ <  IFT 1 1B05 831B 1AA1 7435+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 1B06 1141 1B08 7435+ JEQ A,$+2 STILL ZERO? 1B07 0E0D 7435+ HLT NO-- CSKF ALTERED TRAP VECTOR 1B08 8319 1AA2 7435+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 1B09 1141 1B0B 7435+ JEQ A,$+2 STILL ZERO? 1B0A 0E0D 7435+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7435+ IFT  0;0;1;0;0 1B0B 8020 0020 7435+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 1B0C 1141 1B0E 7435+ JEQ A,$+2 STILL ZERO? 1B0D 0E0D 7435+ HLT NO-- CSKF EXECUTED TRAP 7435+ ENDC 7435+ ENDC 1B0E 9E4D 1ADC 7435+ JMP FLOAT1  PATCH FOR LOOPING 1B0E 0000 7435+ ORG $-1 1B0E 0000 7435+ NOP 00001B0F 7435+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1B0F 0000 7435+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0000 7435+ LPOOL 00001B10 7435+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1B0F 0000 7435+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1B0F 9E80 1B10 7435+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1PAGE 0406 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:01.00 --CSKF-- INSTRUCTION TEST (PART 3-4) 1B10 0000 7435+ ORG  LP::L1 CONTINUE AT END OF LPOOL 7435+ ENDC 1PAGE 0407 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:01.25 --CSKF-- INSTRUCTION TEST (PART 3-4) 00000001 7437 IFT  1 7437+ * CY=S OV=S A=:7FFF Q=:FFFF CSKF :007F :FFFF=:7FFF :FFFF GT 00001B10 7437+ FLOAT1 SET $ 1B10 BF47 1AD8 7437+ JST INITRP INITIALIZE TRAP LOCATIONS 1B11 82B2 1B44 7437+ COPY =:7FFF,A :7FFF ==> 'A' 1B12 48FF 7437+ COPY =:FFFF,Q :FFFF ==> 'Q' 1B13 2800 7437+ COPY =:FF00,X :FF00 ==> 'X' 1B14 E245 1ADA 7437+ COPY =:5555,Y :5555 ==> 'Y' 1B15 0E05 7437+  SBIT CY,S S ==> CARRY FLAG 1B16 0E15 7437+ SBIT OV,S S ==> OVERFLOW FLAG 00000001 7437+ IFT 0;0;0;0;1 1B17 9E82 1B1A 7437+ JMP $+3 JUMP AROUND WORD 00001B18 7437+ FLOAT2 SET $ 1B18 007F 7437+ WORD :007F INSTRUCTION OPERAND 1B19 FFFF 7437+ WORD :FFFF 00001B1A 7437+ FLOAT3 SET $ 00000001 7437+ IFT 0;1 1B1A 5C04  7437+ CSKF FLOAT2 DO THE OPERATION 1B1B 1B18 7437+ ENDC 7437+ ENDC 00000001 7437+ IFT 1 00000001 7437+ IFT 1 1B1C 0E0D 7437+  HLT INCORRECT COMPARE 1B1D 9E81 1B1F 7437+ JMP $+2 OK-- AQ IS GREATER THAN OPE= RAND 1B1E 0E0D 7437+ HLT INCORRECT COMPARE 7437+ ENDC  7437+ ENDC 00000001 7437+ IFT 1 1B1F BAA4 1B44 7437+ CSK A,=:7FFF CHECK -A- 1B20 0000 7437+ NOP 1B21 0E0D 7437+ HLT CSKF MODIFIED -A- 1B22 FAA2 1B45 7437+ CSK Q,=:FFFF CHECK -Q- 1B23 0000 7437+ NOP 1B24 0E0D 7437+ HLT  CSKF MODIFIED -Q- 7437+ ENDC 1B25 0020 7437+ COPY X,A FOR TESTING 1B26 BA32 1AD9 7437+ CSK A,=:FF00 CHECK -X- 1B27 0000 7437+ NOP 1B28 0E0D 7437+ HLT CSKF MODIFIED -X- 1B29 0060 7437+ COPY Y,A FOR TESTING 1B2A BA2F 1ADA 7437+ CSK A,=:5555 CHECK -Y- 1B2B 0000 7437+ NOP 1PAGE 0408 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:03.25 --CSKF-- INSTRUCTION TEST (PART 3-4) 1B2C 0E0D 7437+  HLT CSKF MODIFIED -Y- 00000001 7437+ IFT 0;0;0;0;1 1B2D 826A 1B18 7437+  COPY FLOAT2,A 1B2E 0D7F 7437+ CSK A,=:007F CHECK OPERAND WORD 1 1B2F 0000 7437+  NOP 1B30 0E0D 7437+ HLT CSKF MODIFIED OPERAND 1B31 8267 1B19 7437+ COPY FLOAT2+1,A 1B32 BA92 1B45 7437+ CSK A,=:FFFF CHECK OPERAND WORD 2 1B33 0000 7437+ NOP 1B34 0E0D 7437+ HLT CSKF MODIFIED OPERAND 7437+ ENDC 00000001 7437+ IFT 0;1;0 00000001 7437+ IFT 1 1B35 3641 1B37 7437+ JT OV,$+2 OVERFLOW STILL SET? 1B36 0E0D 7437+ HLT NO-- CSKF CHANGED OVERFLOW 7437+  ENDC 00000001 7437+ IFT 1 1B37 5641 1B39 7437+ JT CY,$+2 CARRY STILL SET? 1B38 0E0D 7437+ HLT NO-- CSKF CHANGED CARRY 7437+ ENDC 7437+ ENDC 00000001 7437+ IFT 1 1B39 838C 1B46 7437+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 1B3A 1141 1B3C 7437+ JEQ A,$+2 STILL ZERO? 1B3B 0E0D 7437+ HLT  NO-- CSKF ALTERED TRAP VECTOR 1B3C 838A 1B47 7437+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 1B3D 1141 1B3F 7437+ JEQ A,$+2 STILL ZERO? 1B3E 0E0D 7437+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7437+ IFT 0;0;1;0;0 1B3F 8020 0020 7437+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 1B40 1141 1B42 7437+ JEQ A,$+2 STILL ZERO? 1B41 0E0D 7437+  HLT NO-- CSKF EXECUTED TRAP 7437+ ENDC 7437+ ENDC 1B42 9E4D 1B10 7437+ JMP FLOAT1 PATCH FOR LOOPING 1B42 0000 7437+ ORG $-1 1B42 0000 >  7437+ NOP 00001B43 7437+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1B43 0000 7437+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0004 7437+ LPOOL 1B44 7FFF  1B45 FFFF 1B46 00A8 ATRAP 1PAGE 0409 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:05.25  --CSKF-- INSTRUCTION TEST (PART 3-4) 1B47 00A9 00001B48 7437+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1B43 0000 7437+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1B43 9E84 1B48 7437+  JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1B48 0000 7437+ ORG LP::L1 CONTINUE AT END OF LPOOL 7437+ ENDC 1PAGE 0410 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:05.75 --CSKF-- INSTRUCTION TEST (PART 3-4) 00000001 7439 IFT 1 7439+ * CY=R OV=R A=:7FFF Q=:FFFF CSKF :7FFF :FFFE=:7FFF :FFFF GT 00001B48 7439+ FLOAT1 SET $ 1B48 BF0F 1AD8 7439+  JST INITRP INITIALIZE TRAP LOCATIONS 1B49 827A 1B44 7439+ COPY =:7FFF,A :7FFF ==> 'A' 1B4A 48FF 7439+ COPY =:FFFF,Q :FFFF ==> 'Q' 1B4B 2800 7439+ COPY =:FF00,X :FF00 ==> 'X' 1B4C E20D 1ADA 7439+ COPY =:5555,Y :5555 ==> 'Y' 1B4D 0E07 7439+ RBIT CY,S R ==> CARRY FLAG 1B4E 0E17 7439+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7439+ IFT  0;0;0;0;1 1B4F 9E82 1B52 7439+ JMP $+3 JUMP AROUND WORD 00001B50 7439+ FLOAT2 SET $ 1B50 7FFF 7439+ WORD :7FFF INSTRUCTION OPERAND 1B51 FFFE 7439+ WORD :FFFE  00001B52 7439+ FLOAT3 SET $ 00000001 7439+ IFT 0;1 1B52 5C04 7439+ CSKF FLOAT2 DO THE OPERATION 1B53 1B50 7439+ ENDC 7439+ ENDC 00000001  7439+ IFT 1 00000001 7439+ IFT 1 1B54 0E0D 7439+ HLT INCORRECT COMPARE 1B55 9E81 1B57 7439+ JMP $+2 OK-- AQ IS GREATER THAN OPERAND 1B56 0E0D 7439+  HLT INCORRECT COMPARE 7439+ ENDC 7439+ ENDC 00000001 7439+ IFT 1 1B57 BA6C 1B44 7439+ CSK A,=:7FFF CHECK -A- 1B58 0000 7439+  NOP 1B59 0E0D 7439+ HLT CSKF MODIFIED -A- 1B5A FA6A 1B45 7439+ CSK Q,=:FFFF CHECK -Q- 1B5B 0000 7439+ NOP 1B5C 0E0D 7439+ HLT CSKF MODIFIED -Q-  7439+ ENDC 1B5D 0020 7439+ COPY X,A FOR TESTING 1B5E BA9D 1B7C 7439+  CSK A,=:FF00 CHECK -X- 1B5F 0000 7439+ NOP 1B60 0E0D 7439+ HLT  CSKF MODIFIED -X- 1B61 0060 7439+ COPY Y,A FOR TESTING 1B62 BA9A 1B7D 7439+ CSK ?  A,=:5555 CHECK -Y- 1B63 0000 7439+ NOP 1PAGE 0411 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:07.75 --CSKF-- INSTRUCTION TEST (PART 3-4) 1B64 0E0D 7439+ HLT  CSKF MODIFIED -Y- 00000001 7439+ IFT 0;0;0;0;1 1B65 826A 1B50 7439+ COPY FLOAT2,A 1B66 BA5D 1B44 7439+ CSK A,=:7FFF CHECK OPERAND WORD 1 1B67 0000 7439+ NOP 1B68 0E0D 7439+  HLT CSKF MODIFIED OPERAND 1B69 8267 1B51 7439+ COPY FLOAT2+1,A 1B6A BA93 1B7E 7439+  CSK A,=:FFFE CHECK OPERAND WORD 2 1B6B 0000 7439+ NOP 1B6C 0E0D 7439+ HLT  CSKF MODIFIED OPERAND 7439+ ENDC 00000001 7439+ IFT 0;1;0 00000001 7439+ IFT 1 1B6D 36C1 1B6F 7439+ JF OV,$+2 OVERFLOW STILL RESET? 1B6E 0E0D  7439+ HLT NO-- CSKF CHANGED OVERFLOW 7439+ ENDC 00000001 7439+  IFT 1 1B6F 56C1 1B71 7439+ JF CY,$+2 CARRY STILL RESET? 1B70 0E0D 7439+ HLT NO-- CSKF CHANGED CARRY 7439+ ENDC 7439+ ENDC 00000001 7439+ IFT 1 1B71 8354 1B46 7439+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 1B72 1141 1B74 7439+ JEQ A,$+2 STILL ZERO? 1B73 0E0D 7439+ HLT NO-- CSKF ALTERED TRAP VECTOR 1B74 8352 1B47 7439+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 1B75 1141 1B77 7439+ JEQ  A,$+2 STILL ZERO? 1B76 0E0D 7439+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001  7439+ IFT 0;0;1;0;0 1B77 8020 0020 7439+ COPY QTEMP,A CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 1B78 1141 1B7A 7439+ JEQ A,$+2 STILL ZERO? 1B79 0E0D 7439+ HLT NO-- CSKF EXECUTED TRAP 7439+ ENDC 7439+ ENDC 1B7A 9E4D 1B48 7439+ JMP FLOAT1 PATCH FOR LOOPING 1B7A 0000 7439+ ORG $-1 1B7A 0000 7439+ NOP 00001B7B 7439+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1B7B 0000 7439+ NOP  RESERVE SPACE FOR JMP INSTRUCTION 0003 7439+ LPOOL 1B7C FF00 1B7D 5555 1B7E FFFE 1PAGE 0412 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:09.75 --CSKF-- INSTRUCTION TEST (PART 3-4) 00001B7F 7439+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1B7B 0000 7439+ ORG  LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1B7B 9E83 1B7F 7439+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1B7F 0000 7439+ ORG LP::L1 CONTINUE AT END OF LPOOL 7439+ ENDC 1PAGE 0413 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:10.00 --CSKF-- INSTRUCTION TEST@  (PART 3-4) 00000001 7441 IFT 1 7441+ * CY=S OV=S A=:7FFF Q=:FFFF CSKF :7FFF :FFFF=:7FFF :FFFF EQ 00001B7F 7441+ FLOAT1 SET $ 1B7F BFB3 1BB3 7441+ JST INITRP INITIALIZE TRAP LOCATIONS 1B80 8243 1B44 7441+ COPY =:7FFF,A :7FFF ==> 'A' 1B81 48FF 7441+ COPY =:FFFF,Q  :FFFF ==> 'Q' 1B82 2800 7441+ COPY =:FF00,X :FF00 ==> 'X' 1B83 E279 1B7D 7441+ COPY =:5555,Y :5555 ==> 'Y' 1B84 0E05 7441+ SBIT CY,S S ==> CARRY FLAG 1B85 0E15 7441+  SBIT OV,S S ==> OVERFLOW FLAG 00000001 7441+ IFT 0;0;0;0;1 1B86 9E82 1B89 7441+  JMP $+3 JUMP AROUND WORD 00001B87 7441+ FLOAT2 SET $ 1B87 7FFF 7441+ WORD :7FFF INSTRUCTION OPERAND 1B88 FFFF 7441+ WORD :FFFF 00001B89 7441+ FLOAT3 SET $ 00000001 7441+ IFT 0;1 1B89 5C04 7441+ CSKF FLOAT2 DO THE OPERATION 1B8A 1B87  7441+ ENDC 7441+ ENDC 00000001 7441+ IFT 1 00000001 7441+ IFT 1 1B8B 0000 7441+ NOP 1B8C 0E0D 7441+ HLT INCORRECT COMPARE 1B8D 0000 7441+ NOP OK-- AQ IS EQUAL TO OPERAND 7441+ ENDC  7441+ ENDC 00000001 7441+ IFT 1 1B8E BA35 1B44 7441+ CSK A,=:7FFF CHECK -A- 1B8F 0000 7441+ NOP 1B90 0E0D 7441+ HLT CSKF MODIFIED -A- 1B91 FA33 1B45 7441+ CSK Q,=:FFFF CHECK -Q- 1B92 0000 7441+ NOP 1B93 0E0D 7441+  HLT CSKF MODIFIED -Q- 7441+ ENDC 1B94 0020 7441+ COPY X,A  FOR TESTING 1B95 BA66 1B7C 7441+ CSK A,=:FF00 CHECK -X- 1B96 0000 7441+ NOP 1B97 0E0D 7441+ HLT CSKF MODIFIED -X- 1B98 0060 7441+ COPY Y,A FOR TESTING 1B99 BA63 1B7D 7441+ CSK A,=:5555 CHECK -Y- 1B9A 0000 7441+ NOP 1PAGE 0414 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:12.00 --CSKF-- INSTRUCTION TEST (PART 3-4) 1B9B 0E0D  7441+ HLT CSKF MODIFIED -Y- 00000001 7441+ IFT 0;0;0;0;1 1B9C 826A 1B87 7441+ COPY FLOAT2,A 1B9D BA26 1B44 7441+ CSK A,=:7FFF CHECK OPERAND WORD 1 1B9E 0000 7441+ NOP 1B9F 0E0D 7441+ HLT CSKF MODIFIED OPERAND 1BA0 8267 1B88 7441+ COPY FLOAT2+1,A 1BA1 BA23 1B45 7441+ CSK A,=:FFFF CHECK OPERAND WORD 2 1BA2 0000 7441+ NOP 1BA3 0E0D 7441+ HLT CSKF MODIFIED OPERAND 7441+ ENDC 00000001 7441+ IFT 0;1;0 00000001 7441+ IFT 1 1BA4 3641 1BA6 7441+ JT OV,$+2 A  OVERFLOW STILL SET? 1BA5 0E0D 7441+ HLT NO-- CSKF CHANGED OVERFLOW 7441+ ENDC 00000001 7441+ IFT 1 1BA6 5641 1BA8 7441+ JT CY,$+2 CARRY STILL SET? 1BA7 0E0D 7441+ HLT NO-- CSKF CHANGED CARRY 7441+ ENDC  7441+ ENDC 00000001 7441+ IFT 1 1BA8 831D 1B46 7441+ COPY ATRAP,A 1ST WORD OF TRAP VECTOR 1BA9 1141 1BAB 7441+ JEQ A,$+2 STILL ZERO? 1BAA 0E0D 7441+ HLT  NO-- CSKF ALTERED TRAP VECTOR 1BAB 831B 1B47 7441+ COPY ATRAP+1,A 2ND WORD OF TRAP VECTOR 1BAC 1141 1BAE 7441+ JEQ A,$+2 STILL ZERO? 1BAD 0E0D 7441+ HLT NO-- CSKF ALTERED TRAP VECTOR 00000001 7441+ IFT 0;0;1;0;0 1BAE 8020 0020 7441+ COPY QTEMP,A  CHECK TRAP FLAG TO SEE IF TRAP WAS TAKEN 1BAF 1141 1BB1 7441+ JEQ A,$+2 STILL ZERO? 1BB0 0E0D 7441+ HLT NO-- CSKF EXECUTED TRAP 7441+ ENDC 7441+  ENDC 1BB1 9E4D 1B7F 7441+ JMP FLOAT1 PATCH FOR LOOPING 1BB1 0000 7441+ ORG $-1 1BB1 0000 7441+ NOP 00001BB2 7441+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1BB2 0000 7441+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0001 7441+ LPOOL 1BB3 122B INITRP 00001BB4 7441+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1BB2 0000 7441+  ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1PAGE 0415 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:14.25 --CSKF-- INSTRUCTION TEST (PART 3-4) 1BB2 9E81 1BB4 7441+ JMP LP::L1  JUMP TO LABEL AT END OF LPOOL 1BB4 0000 7441+ ORG LP::L1 CONTINUE AT END OF LPOOL  7441+ ENDC 7442 * 1PAGE 0416 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:14.25 --ADDF-- INSTRUCTION TEST (PART 3-5) 7444 * 7445 *  7446 * 7447 * THE FOLLOWING INSTRUCTION IS TESTED IN THIS SECTION: 7448 *  7449 * ADDF 7450 * 7451 * 7452 * +:C43D4E +34 ADDF +:000000 = +:C43D4E +34 ADD +ZERO 00000000 7453 IFF 0 7453+ * CY=R OV=R A=:5144 Q=:3D4E ADDF :0000 :0000=:5144 :3D4E OK 00001BB4 7453+ FLOAT1 SET $ 1BB4 BF7E 1BB3 7453+ JST  INITRP INITIALIZE TRAP LOCATIONS 1BB5 82A6 1BDC 7453+ COPY =:5144,A :5144 ==> 'A' 1BB6 C2A6 1BDD 7453+ COPY =:3D4E,Q :3D4E ==> 'Q' 1BB7 A2A6 1BDE 7453+ COPY =:3333,X :3333 ==> 'X' 1BB8 E2A6 1BDF 7453+ COPY =:0F0F,Y :0F0F ==> 'Y' 1BB9 0E07 7453+ RBIT CY,S R ==> CARRY B FLAG 1BBA 0E17 7453+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7453+ IFT 1;0;0;0;0 1BBB 9E82 1BBE 7453+ JMP $+3 JUMP AROUND WORD 00001BBC 7453+ FLOAT2 SET $ 1BBC 0000 7453+ WORD :0000 INSTRUCTION OPERAND 1BBD 0000 7453+ WORD :0000 00001BBE  7453+ FLOAT3 SET $ 00000001 7453+ IFT 1;0 1BBE 5C00 7453+ ADDF FLOAT2 DO THE OPERATION 1BBF 1BBC 7453+ ENDC 7453+ ENDC 00000000 7453+  IFF 0 00000001 7453+ IFT 5>0 1BC0 BA9B 1BDC 7453+ CSK A,=:5144 CHECK -A- 1BC1 0000 7453+ NOP 1BC2 0E0D 7453+ HLT -A- SHOULD CONTAIN :5144 1BC3 FA99 1BDD 7453+ CSK Q,=:3D4E CHECK -Q- 1BC4 0000 7453+ NOP 1BC5 0E0D 7453+ HLT  -Q- SHOULD CONTAIN :3D4E 7453+ ENDC 7453+ ENDC 1BC6 0020  7453+ COPY X,A FOR TESTING 1BC7 BA96 1BDE 7453+ CSK A,=:3333 CHECK -X- 1BC8 0000  7453+ NOP 1PAGE 0417 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:16.25 --ADDF-- INSTRUCTION TEST (PART 3-5) 1BC9 0E0D 7453+ HLT ADDF MODIFIED -X- 1BCA 0060 7453+ COPY Y,A FOR TESTING 1BCB BA93 1BDF 7453+ CSK A,=:0F0F CHECK -Y- 1BCC 0000  7453+ NOP 1BCD 0E0D 7453+ HLT ADDF MODIFIED -Y- 00000001 7453+ IFT 1;0;0;0;0 1BCE 826D 1BBC 7453+ COPY FLOAT2,A 1BCF 0D00 7453+ CSK A,=:0000 CHECK OPERAND WORD 1 1BD0 0000 7453+ NOP 1BD1 0E0D 7453+ HLT ADDF MODIFIED OPERAND 1BD2 826A 1BBD 7453+ COPY FLOAT2+1,A 1BD3 0D00 7453+ CSK A,=:0000 CHECK OPERAND WORD 2 1BD4 0000 7453+ NOP 1BD5 0E0D 7453+ HLT ADDF MODIFIED OPERAND  7453+ ENDC 00000001 7453+ IFT 1;0;0 00000001 7453+ IFT 1 1BD6 36C1 1BD8 7453+ JF OV,$+2 OVERFLOW STILL RESET? 1BD7 0E0D 7453+ HLT NO-- ADDF CHANGED OVERFLOW 7453+ ENDC 00000001 7453+ IFT 1 1BD8 56C1 1BDA 7453+ JF CY,$+2 CARRY STILL RESET? 1BD9 0E0D 7453+ HLT NO-- ADDF CHANGED CARRY  7453+ ENDC 7453+ ENDC 1BDA 9E59 1BB4 7453+ JMP FLOAT1 PATCH FOR LOOPING 1BDA 0000 7453+ ORG $-1 1BDA 0000 7453+ NOP 00001BDB 7453+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1BDB 0000 7453+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0004 7453+ LPOOL 1BDC 5144 1BDD 3D4E 1BDE 3333 1BDF 0F0F 00001BE0 7453+C  LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1BDB 0000 7453+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1BDB 9E84 1BE0 7453+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1BE0 0000  7453+ ORG LP::L1 CONTINUE AT END OF LPOOL 7453+ ENDC 1PAGE 0418 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:18.50 --ADDF-- INSTRUCTION TEST (PART 3-5)  7455 * +:C43D4E +34 ADDF -:000000 = +:C43D4E +34 ADD -ZERO 00000000 7456 IFF 0 7456+ * CY=S OV=S A=:5144 Q=:3D4E ADDF :8000 :0000=:5144 :3D4E OK 00001BE0 7456+ FLOAT1 SET $ 1BE0 BF52 1BB3 7456+ JST INITRP INITIALIZE TRAP LOCATIONS 1BE1 827A 1BDC 7456+ COPY =:5144,A :5144 ==> 'A' 1BE2 C27A 1BDD 7456+ COPY =:3D4E,Q :3D4E ==> 'Q' 1BE3 A27A 1BDE 7456+ COPY =:3333,X :3333 ==> 'X' 1BE4 E27A 1BDF 7456+ COPY =:0F0F,Y :0F0F ==> 'Y' 1BE5 0E05 7456+ SBIT CY,S  S ==> CARRY FLAG 1BE6 0E15 7456+ SBIT OV,S S ==> OVERFLOW FLAG 00000001 7456+  IFT 1;0;0;0;0 1BE7 9E82 1BEA 7456+ JMP $+3 JUMP AROUND WORD 00001BE8 7456+ FLOAT2 SET $ 1BE8 8000 7456+ WORD :8000 INSTRUCTION OPERAND 1BE9 0000 7456+ WORD :0000 00001BEA 7456+ FLOAT3 SET $ 00000001 7456+ IFT 1;0 1BEA 5C00 7456+ ADDF FLOAT2 DO THE OPERATION 1BEB 1BE8 7456+ ENDC 7456+ ENDC 00000000 7456+ IFF 0 00000001 7456+ IFT 5>0 1BEC BA6F 1BDC 7456+ CSK A,=:5144 CHECK -A- 1BED 0000 7456+ NOP 1BEE 0E0D 7456+ HLT -A- SHOULD CONTAIN :5144 1BEF FA6D 1BDD 7456+ CSK Q,=:3D4E CHECK -Q- 1BF0 0000 7456+ NOP 1BF1 0E0D 7456+ HLT -Q- SHOULD CONTAIN :3D4E 7456+ ENDC 7456+  ENDC 1BF2 0020 7456+ COPY X,A FOR TESTING 1BF3 BA6A 1BDE 7456+ CSK A,=:3333 CHECK -X- 1BF4 0000 7456+ NOP 1BF5 0E0D 7456+ HLT ADDF MODIFIED -X- 1BF6 0060 7456+ COPY Y,A FOR TESTING 1BF7 BA67 1BDF 7456+ CSK A,=:0F0F CHECK -Y- 1BF8 0000 7456+ NOP 1BF9 0E0D 7456+ HLT ADDF MODIFIED -Y- 00000001 7456+  IFT 1;0;0;0;0 1BFA 826D 1BE8 7456+ COPY FLOAT2,A 1BFB BA8C 1C08 7456+ CSK A,=:8000  CHECK OPERAND WORD 1 1PAGE 0419 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:20.50 --ADDF-- INSTRUCTION TEST (PART 3-5) 1BFC 0000 7456+ NOP 1BFD 0E0D 7456+ HLT ADDF MODIFIED OPERAND 1BFE 826A 1BE9 7456+ COPY FLOAT2+1,A 1BFF 0D00 7456+ CSK A,=:0000 D  CHECK OPERAND WORD 2 1C00 0000 7456+ NOP 1C01 0E0D 7456+ HLT ADDF MODIFIED OPERAND 7456+ ENDC 00000001 7456+ IFT 1;0;0 00000001 7456+ IFT  1 1C02 3641 1C04 7456+ JT OV,$+2 OVERFLOW STILL SET? 1C03 0E0D 7456+ HLT  NO-- ADDF CHANGED OVERFLOW 7456+ ENDC 00000001 7456+ IFT 1 1C04 5641 1C06 7456+ JT CY,$+2 CARRY STILL SET? 1C05 0E0D 7456+ HLT NO-- ADDF CHANGED CARRY 7456+ ENDC 7456+ ENDC 1C06 9E59 1BE0 7456+ JMP FLOAT1 PATCH FOR LOOPING 1C06 0000 7456+ ORG $-1 1C06 0000 7456+ NOP 00001C07 7456+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1C07 0000 7456+ NOP  RESERVE SPACE FOR JMP INSTRUCTION 0001 7456+ LPOOL 1C08 8000 00001C09 7456+ LP::L1 SET  $ SET UP LABEL AT END OF LPOOL 1C07 0000 7456+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1C07 9E81 1C09 7456+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1C09 0000 7456+ ORG LP::L1 CONTINUE AT END OF LPOOL 7456+ ENDC 1PAGE 0420 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:22.50 --ADDF-- INSTRUCTION TEST (PART 3-5) 7458 * +:000000 ADDF -:000000 = +:000000 +0 ADD -0 00000000 7459 IFF 0 7459+ * CY=R OV=R A=:0000 Q=:0000 ADDF :8000 :0000=:0000 :0000 OK 00001C09 7459+ FLOAT1 SET $ 1C09 BF29 1BB3 7459+ JST INITRP INITIALIZE TRAP LOCATIONS 1C0A 0900 7459+ COPY =:0000,A :0000 ==> 'A' 1C0B 4900  7459+ COPY =:0000,Q :0000 ==> 'Q' 1C0C A251 1BDE 7459+ COPY =:3333,X :3333 ==> 'X' 1C0D E251 1BDF 7459+ COPY =:0F0F,Y :0F0F ==> 'Y' 1C0E 0E07 7459+ RBIT CY,S R ==> CARRY FLAG 1C0F 0E17 7459+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7459+ IFT 1;0;0;0;0 1C10 9E82 1C13 7459+ JMP $+3 JUMP AROUND WORD 00001C11 7459+ FLOAT2 SET $ 1C11 8000 7459+ WORD :8000 INSTRUCTION OPERAND 1C12 0000 7459+ WORD :0000 00001C13 7459+ FLOAT3 SET $ 00000001 7459+ IFT 1;0 1C13 5C00 7459+ ADDF FLOAT2  DO THE OPERATION 1C14 1C11 7459+ ENDC 7459+ ENDC 00000000 7459+ IFF 0 00000001 7459+ IFT 5>0 1C15 0D00 7459+ CSK A,=:0000 CHECK -A- 1C16 0000 7459+ NOP 1C17 0E0D 7459+ HLT -A- SHOULD CONTAIN :0000 1C18 4D00 7459+ CSK Q,=:0000 CHECK -Q- 1C19 0000 7459+ NOP 1C1A 0E0D 7459+ HLT E  -Q- SHOULD CONTAIN :0000 7459+ ENDC 7459+ ENDC 1C1B 0020 7459+ COPY X,A FOR TESTING 1C1C BA41 1BDE 7459+ CSK A,=:3333 CHECK -X- 1C1D 0000 7459+ NOP 1C1E 0E0D 7459+ HLT ADDF MODIFIED -X- 1C1F 0060 7459+  COPY Y,A FOR TESTING 1C20 BA3E 1BDF 7459+ CSK A,=:0F0F CHECK -Y- 1C21 0000 7459+ NOP 1C22 0E0D 7459+ HLT ADDF MODIFIED -Y- 00000001 7459+ IFT  1;0;0;0;0 1C23 826D 1C11 7459+ COPY FLOAT2,A 1C24 BA63 1C08 7459+ CSK A,=:8000 CHECK OPERAND WORD 1 1PAGE 0421 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:24.50 --ADDF-- INSTRUCTION TEST (PART 3-5) 1C25 0000 7459+ NOP 1C26 0E0D 7459+ HLT ADDF MODIFIED OPERAND 1C27 826A 1C12 7459+ COPY FLOAT2+1,A 1C28 0D00 7459+ CSK A,=:0000 CHECK OPERAND WORD 2 1C29 0000 7459+ NOP 1C2A 0E0D 7459+ HLT ADDF MODIFIED OPERAND  7459+ ENDC 00000001 7459+ IFT 1;0;0 00000001 7459+ IFT 1 1C2B 36C1 1C2D 7459+ JF OV,$+2 OVERFLOW STILL RESET? 1C2C 0E0D 7459+ HLT NO-- ADDF CHANGED OVERFLOW 7459+ ENDC 00000001 7459+ IFT 1 1C2D 56C1 1C2F 7459+  JF CY,$+2 CARRY STILL RESET? 1C2E 0E0D 7459+ HLT NO-- ADDF CHANGED CARRY  7459+ ENDC 7459+ ENDC 1C2F 9E59 1C09 7459+ JMP FLOAT1 PATCH FOR LOOPING 1C2F 0000 7459+ ORG $-1 1C2F 0000 7459+ NOP 00001C30 7459+ LP::L  SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1C30 0000 7459+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0000 7459+ LPOOL 00001C31 7459+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1C30 0000 7459+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1C30 9E80 1C31 7459+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1C31 0000 7459+ ORG LP::L1 CONTINUE AT END OF LPOOL 7459+ ENDC 1PAGE 0422 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:26.50 --ADDF-- INSTRUCTION TEST (PART 3-5) 7461 * +:C43D4E +34 ADDF +:9EFB4C +34 = +:B19C4D +35 CARRY INTO EXP. 00000000 7462 IFF 0 7462+ * CY=S OV=S A=:5144 Q=:3D4E ADDF :511E :FB4C=:51B1 :9C4D OK 00001C31 7462+ FLOAT1 SET $ 1C31 BF01 1BB3 7462+ JST INITRP  INITIALIZE TRAP LOCATIONS 1C32 8229 1BDC 7462+ COPY =:5144,A :5144 ==> 'A' 1C33 C229 1BDD 7462+  COPY =:3D4E,Q :3D4E ==> 'Q' 1C34 A229 1BDE 7462+ COPY =:3333,X :3333 ==> 'X' 1C35 E229 1BDF 746F 2+ COPY =:0F0F,Y :0F0F ==> 'Y' 1C36 0E05 7462+ SBIT CY,S S ==> CARRY FLAG 1C37 0E15 7462+ SBIT OV,S S ==> OVERFLOW FLAG 00000001 7462+ IFT 1;0;0;0;0 1C38 9E82 1C3B 7462+ JMP $+3 JUMP AROUND WORD 00001C39 7462+ FLOAT2 SET $ 1C39 511E 7462+ WORD :511E INSTRUCTION OPERAND 1C3A FB4C 7462+ WORD :FB4C 00001C3B 7462+ FLOAT3 SET $ 00000001 7462+ IFT 1;0 1C3B 5C00 7462+ ADDF FLOAT2 DO THE OPERATION 1C3C 1C39 7462+ ENDC 7462+ ENDC 00000000 7462+ IFF  0 00000001 7462+ IFT 5>0 1C3D BA9B 1C59 7462+ CSK A,=:51B1 CHECK -A- 1C3E 0000  7462+ NOP 1C3F 0E0D 7462+ HLT -A- SHOULD CONTAIN :51B1 1C40 FA99 1C5A 7462+  CSK Q,=:9C4D CHECK -Q- 1C41 0000 7462+ NOP 1C42 0E0D 7462+ HLT  -Q- SHOULD CONTAIN :9C4D 7462+ ENDC 7462+ ENDC 1C43 0020 7462+  COPY X,A FOR TESTING 1C44 BA19 1BDE 7462+ CSK A,=:3333 CHECK -X- 1C45 0000 7462+  NOP 1C46 0E0D 7462+ HLT ADDF MODIFIED -X- 1C47 0060 7462+ COPY Y,A FOR TESTING 1C48 BA16 1BDF 7462+ CSK A,=:0F0F CHECK -Y- 1C49 0000 7462+ NOP 1C4A 0E0D 7462+ HLT ADDF MODIFIED -Y- 00000001 7462+ IFT 1;0;0;0;0 1C4B 826D 1C39 7462+ COPY FLOAT2,A 1C4C BA8E 1C5B 7462+ CSK A,=:511E CHECK OPERAND WORD 1 1PAGE 0423 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:28.50 --ADDF-- INSTRUCTION TEST (PART 3-5) 1C4D 0000 7462+ NOP 1C4E 0E0D 7462+ HLT ADDF MODIFIED OPERAND 1C4F 826A 1C3A 7462+ COPY FLOAT2+1,A 1C50 BA8B 1C5C 7462+ CSK A,=:FB4C CHECK OPERAND WORD 2 1C51 0000  7462+ NOP 1C52 0E0D 7462+ HLT ADDF MODIFIED OPERAND 7462+  ENDC 00000001 7462+ IFT 1;0;0 00000001 7462+ IFT 1 1C53 3641 1C55 7462+ D OF LPOOL 1D36 0000 7477+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1D36 9E89 1D40 7477+  JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1D40 0000 7477+ ORG LP::L1 CONTINUE AT END OF LPOOL 7477+ ENDC 1PAGE 0434 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:50.75 --ADDF-- INSTRUCTION TEST (PART 3-5) 7479 * -:8C547E +83 ADDF +:A94868 +83 = +:E79F50 +80 SUB, NO BORROW 00000000 7480 IFF 0 7480+ * CY=S OV=S A=:E98C Q=:547E ADDF :69A9 :4868=:6867 :9F50 OK 00001D40 7480+ FLOAT1 SET $ 1D40 BF76 1D37 7480+ JST INITRP INITIALIZEG  TRAP LOCATIONS 1D41 827C 1D3E 7480+ COPY =:E98C,A :E98C ==> 'A' 1D42 C27C 1D3F 7480+ COPY =:547E,Q :547E ==> 'Q' 1D43 A276 1D3A 7480+ COPY =:3333,X :3333 ==> 'X' 1D44 E276 1D3B 7480+ COPY =:0F0F,Y :0F0F ==> 'Y' 1D45 0E05 7480+ SBIT CY,S S ==> CARRY FLAG 1D46 0E15 7480+ SBIT OV,S S ==> OVERFLOW FLAG 00000001 7480+ IFT 1;0;0;0;0 1D47 9E82 1D4A 7480+ JMP $+3 JUMP AROUND WORD 00001D48 7480+ FLOAT2 SET $ 1D48 69A9 7480+ WORD :69A9 INSTRUCTION OPERAND 1D49 4868 7480+ WORD :4868 00001D4A 7480+ FLOAT3 SET $ 00000001 7480+ IFT 1;0 1D4A 5C00 7480+ ADDF FLOAT2 DO THE OPERATION 1D4B 1D48 7480+ ENDC 7480+ ENDC 00000000 7480+ IFF 0 00000001 7480+ IFT 5>0 1D4C BA6F 1D3C 7480+ CSK A,=:6867 CHECK -A- 1D4D 0000 7480+  NOP 1D4E 0E0D 7480+ HLT -A- SHOULD CONTAIN :6867 1D4F FA6D 1D3D 7480+ CSK  Q,=:9F50 CHECK -Q- 1D50 0000 7480+ NOP 1D51 0E0D 7480+ HLT -Q- SHOULD CONTAIN :9F50 7480+ ENDC 7480+ ENDC 1D52 0020 7480+ COPY  X,A FOR TESTING 1D53 BA66 1D3A 7480+ CSK A,=:3333 CHECK -X- 1D54 0000 7480+ NOP  1D55 0E0D 7480+ HLT ADDF MODIFIED -X- 1D56 0060 7480+ COPY Y,A FOR TESTING 1D57 BA63 1D3B 7480+ CSK A,=:0F0F CHECK -Y- 1D58 0000 7480+ NOP 1D59 0E0D  7480+ HLT ADDF MODIFIED -Y- 00000001 7480+ IFT 1;0;0;0;0 1D5A 826D 1D48 7480+ COPY FLOAT2,A 1D5B BA5C 1D38 7480+ CSK A,=:69A9 CHECK OPERAND WORD 1 1PAGE 0435 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:52.75 --ADDF-- INSTRUCTION TEST (PART 3-5) 1D5C 0000 7480+ NOP 1D5D 0E0D 7480+ HLT ADDF MODIFIED OPERAND 1D5E 826A 1D49 7480+  COPY FLOAT2+1,A 1D5F BA59 1D39 7480+ CSK A,=:4868 CHECK OPERAND WORD 2 1D60 0000 7480+  NOP 1D61 0E0D 7480+ HLT ADDF MODIFIED OPERAND 7480+ ENDC  00000001 7480+ IFT 1;0;0 00000001 7480+ IFT 1 1D62 3641 1D64 7480+ JT  OV,$+2 OVERFLOW STILL SET? 1D63 0E0D 7480+ HLT NO-- ADDF CHANGED OVERFLOW  7480+ ENDC 00000001 7480+ IFT 1 1D64 5641 1D66 7480+ JT CY,$+2 CARRY STILL SET? 1D65 0E0D 7480+ HLT NO-- ADDF CHANGED CARRY 7480+ ENDC 7480+ ENDC 1D66 9E59 1D40 7480+ JMP FLOAT1 PATCH FOR LOOPING 1D66 0000 H 7480+ ORG $-1 1D66 0000 7480+ NOP 00001D67 7480+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1D67 0000 7480+ NOP RESERVE SPACE FOR JMP INSTRUCTION  0000 7480+ LPOOL 00001D68 7480+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1D67 0000 7480+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1D67 9E80 1D68 7480+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1D68 0000 7480+ ORG LP::L1 CONTINUE AT END OF LPOOL  7480+ ENDC 1PAGE 0436 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:54.75  --ADDF-- INSTRUCTION TEST (PART 3-5) 7482 * -:C84986 -23 ADDF +:8246A1 -26 = -:B800B2 -23 SUB, NO BORROW  00000000 7483 IFF 0 7483+ * CY=R OV=R A=:B4C8 Q=:4986 ADDF :3302 :46A1=:B4B8 :00B2 OK  00001D68 7483+ FLOAT1 SET $ 1D68 BF4E 1D37 7483+ JST INITRP INITIALIZE TRAP LOCATIONS 1D69 82A6 1D90 7483+ COPY =:B4C8,A :B4C8 ==> 'A' 1D6A C2A6 1D91 7483+ COPY =:4986,Q :4986 ==> 'Q' 1D6B A24E 1D3A 7483+ COPY =:3333,X :3333 ==> 'X' 1D6C E24E 1D3B 7483+ COPY =:0F0F,Y :0F0F ==> 'Y' 1D6D 0E07 7483+ RBIT CY,S R ==> CARRY FLAG 1D6E 0E17 7483+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7483+ IFT 1;0;0;0;0 1D6F 9E82 1D72 7483+ JMP $+3 JUMP AROUND WORD 00001D70 7483+ FLOAT2 SET $ 1D70 3302 7483+ WORD :3302 INSTRUCTION OPERAND 1D71 46A1 7483+ WORD :46A1 00001D72 7483+ FLOAT3 SET $ 00000001 7483+ IFT 1;0 1D72 5C00 7483+ ADDF FLOAT2 DO THE OPERATION 1D73 1D70 7483+ ENDC 7483+ ENDC 00000000 7483+ IFF 0 00000001 7483+  IFT 5>0 1D74 BA9D 1D92 7483+ CSK A,=:B4B8 CHECK -A- 1D75 0000 7483+ NOP 1D76 0E0D  7483+ HLT -A- SHOULD CONTAIN :B4B8 1D77 4DB2 7483+ CSK Q,=:00B2 CHECK -Q- 1D78 0000 7483+ NOP 1D79 0E0D 7483+ HLT -Q- SHOULD CONTAIN :00B2  7483+ ENDC 7483+ ENDC 1D7A 0020 7483+ COPY X,A FOR TESTING 1D7B BA3E 1D3A 7483+ CSK A,=:3333 CHECK -X- 1D7C 0000 7483+ NOP 1D7D 0E0D 7483+ HLT ADDF MODIFIED -X- 1D7E 0060 7483+ COPY Y,A FOR TESTING 1D7F BA3B 1D3B 7483+ CSK A,=:0F0F CHECK -Y- 1D80 0000 7483+ NOP 1D81 0E0D 7483+ HLT  ADDF MODIFIED -Y- 00000001 7483+ IFT 1;0;0;0;0 1D82 826D 1D70 7483+ COPY FLOAT2,A 1D83 BA8F 1D93 7483+ CSK A,=:3302 CHECK OPERAND WORD 1 1PAGE 0437 MACRO (F100) SCOUT CPU HARDWARI E TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:56.75 --ADDF-- INSTRUCTION TEST (PART 3-5) 1D84 0000 7483+  NOP 1D85 0E0D 7483+ HLT ADDF MODIFIED OPERAND 1D86 826A 1D71 7483+ COPY FLOAT2+1,A 1D87 BA8C 1D94 7483+ CSK A,=:46A1 CHECK OPERAND WORD 2 1D88 0000 7483+ NOP 1D89 0E0D 7483+ HLT ADDF MODIFIED OPERAND 7483+ ENDC 00000001 7483+  IFT 1;0;0 00000001 7483+ IFT 1 1D8A 36C1 1D8C 7483+ JF OV,$+2 OVERFLOW STILL RESET? 1D8B 0E0D 7483+ HLT NO-- ADDF CHANGED OVERFLOW 7483+  ENDC 00000001 7483+ IFT 1 1D8C 56C1 1D8E 7483+ JF CY,$+2 CARRY STILL RESET? 1D8D 0E0D 7483+ HLT NO-- ADDF CHANGED CARRY 7483+ ENDC 7483+ ENDC 1D8E 9E59 1D68 7483+ JMP FLOAT1 PATCH FOR LOOPING 1D8E 0000 7483+ ORG $-1 1D8E 0000 7483+ NOP 00001D8F 7483+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1D8F 0000 7483+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0005 7483+  LPOOL 1D90 B4C8 1D91 4986 1D92 B4B8 1D93 3302 1D94 46A1 00001D95 7483+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1D8F 0000 7483+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1D8F 9E85 1D95 7483+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1D95 0000 7483+ ORG LP::L1  CONTINUE AT END OF LPOOL 7483+ ENDC 7484 * 1PAGE 0438 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:18:58.75 --ADDF-- INSTRUCTION TEST (PART 3-6) 7486 *  7487 * 7488 * 7489 * THE FOLLOWING INSTRUCTION IS TESTED IN THIS SECTION: 7490 * 7491 * ADDF 7492 * 7493  * 7494 * +:8246A1 -26 ADDF -:C84986 -23 = -:B800B2 -23 SUB, WITH BORROW+RNDUP 00000000 7495  IFF 0 7495+ * CY=S OV=S A=:3302 Q=:46A1 ADDF :B4C8 :4986=:B4B8 :00B2 OK 00001D95 7495+ FLOAT1  SET $ 1D95 BF21 1D37 7495+ JST INITRP INITIALIZE TRAP LOCATIONS 1D96 827C 1D93 7495+ COPY =:3302,A :3302 ==> 'A' 1D97 C27C 1D94 7495+ COPY =:46A1,Q :46A1 ==> 'Q' 1D98 A221 1D3A 7495+  COPY =:3333,X :3333 ==> 'X' 1D99 E221 1D3B 7495+ COPY =:0F0F,Y :0F0F ==> 'Y' 1D9A 0E05  7495+ SBIT CY,S S ==> CARRY FLAG 1D9B 0E15 7495+ SBIT OV,S S ==> OVERFLOW FLAG 00000001 7495+ IFT 1;0;0;0;0 1D9C 9E82 1D9F 7495+ JMP $+3 JUMP AROUND WORD  00001D9D 7495+ FLOAT2 SET $ 1D9D B4C8 7495+ WORD :B4C8 INSTRUCTION OPERAND 1D9E 4986 J  7495+ WORD :4986 00001D9F 7495+ FLOAT3 SET $ 00000001 7495+ IFT 1;0 1D9F 5C00 7495+ ADDF FLOAT2 DO THE OPERATION 1DA0 1D9D 7495+ ENDC  7495+ ENDC 00000000 7495+ IFF 0 00000001 7495+ IFT 5>0 1DA1 BA70 1D92 7495+ CSK A,=:B4B8 CHECK -A- 1DA2 0000 7495+ NOP 1DA3 0E0D 7495+ HLT  -A- SHOULD CONTAIN :B4B8 1DA4 4DB2 7495+ CSK Q,=:00B2 CHECK -Q- 1DA5 0000 7495+  NOP 1DA6 0E0D 7495+ HLT -Q- SHOULD CONTAIN :00B2 7495+ ENDC  7495+ ENDC 1DA7 0020 7495+ COPY X,A FOR TESTING 1DA8 BA11 1D3A 7495+  CSK A,=:3333 CHECK -X- 1DA9 0000 7495+ NOP 1PAGE 0439 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:19:00.50 --ADDF-- INSTRUCTION TEST (PART 3-6) 1DAA 0E0D 7495+ HLT  ADDF MODIFIED -X- 1DAB 0060 7495+ COPY Y,A FOR TESTING 1DAC BA0E 1D3B 7495+  CSK A,=:0F0F CHECK -Y- 1DAD 0000 7495+ NOP 1DAE 0E0D 7495+ HLT  ADDF MODIFIED -Y- 00000001 7495+ IFT 1;0;0;0;0 1DAF 826D 1D9D 7495+ COPY FLOAT2,A 1DB0 BA5F 1D90 7495+ CSK A,=:B4C8 CHECK OPERAND WORD 1 1DB1 0000 7495+ NOP 1DB2 0E0D 7495+  HLT ADDF MODIFIED OPERAND 1DB3 826A 1D9E 7495+ COPY FLOAT2+1,A 1DB4 BA5C 1D91 7495+  CSK A,=:4986 CHECK OPERAND WORD 2 1DB5 0000 7495+ NOP 1DB6 0E0D 7495+ HLT  ADDF MODIFIED OPERAND 7495+ ENDC 00000001 7495+ IFT 1;0;0 00000001 7495+ IFT 1 1DB7 3641 1DB9 7495+ JT OV,$+2 OVERFLOW STILL SET? 1DB8 0E0D  7495+ HLT NO-- ADDF CHANGED OVERFLOW 7495+ ENDC 00000001 7495+  IFT 1 1DB9 5641 1DBB 7495+ JT CY,$+2 CARRY STILL SET? 1DBA 0E0D 7495+ HLT  NO-- ADDF CHANGED CARRY 7495+ ENDC 7495+ ENDC 1DBB 9E59 1D95 7495+ JMP FLOAT1 PATCH FOR LOOPING 1DBB 0000 7495+ ORG $-1 1DBB 0000 7495+  NOP 00001DBC 7495+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1DBC 0000 7495+ NOP RESERVE SPACE FOR JMP INSTRUCTION 0000 7495+ LPOOL 00001DBD 7495+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1DBC 0000 7495+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1DBC 9E80 1DBD 7495+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1DBD 0000 7495+ ORG LP::L1 CONTINUE AT END OF LPOOL 7495+ ENDC 1PAGE 0440 MACRO (F10K 0) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:19:02.75 --ADDF-- INSTRUCTION TEST (PART 3-6)  7497 * +:A6ED4F-128 ADDF +:0 = +:A6ED4F-128 ADD ZERO 00000000 7498 IFF 0  7498+ * CY=R OV=R A=:0026 Q=:ED4F ADDF :0000 :0000=:0026 :ED4F OK 00001DBD 7498+ FLOAT1 SET $ 1DBD BFA7 1DE5  7498+ JST INITRP INITIALIZE TRAP LOCATIONS 1DBE 0926 7498+ COPY =:0026,A :0026 ==> 'A' 1DBF C2A6 1DE6 7498+ COPY =:ED4F,Q :ED4F ==> 'Q' 1DC0 A2A6 1DE7 7498+ COPY =:3333,X  :3333 ==> 'X' 1DC1 E2A6 1DE8 7498+ COPY =:0F0F,Y :0F0F ==> 'Y' 1DC2 0E07 7498+ RBIT CY,S R ==> CARRY FLAG 1DC3 0E17 7498+ RBIT OV,S R ==> OVERFLOW FLAG 00000001 7498+  IFT 1;0;0;0;0 1DC4 9E82 1DC7 7498+ JMP $+3 JUMP AROUND WORD 00001DC5 7498+ FLOAT2 SET $ 1DC5 0000 7498+ WORD :0000 INSTRUCTION OPERAND 1DC6 0000 7498+ WORD  :0000 00001DC7 7498+ FLOAT3 SET $ 00000001 7498+ IFT 1;0 1DC7 5C00 7498+ ADDF FLOAT2 DO THE OPERATION 1DC8 1DC5 7498+ ENDC 7498+ ENDC  00000000 7498+ IFF 0 00000001 7498+ IFT 5>0 1DC9 0D26 7498+ CSK A,=:0026 CHECK -A- 1DCA 0000 7498+ NOP 1DCB 0E0D 7498+ HLT -A- SHOULD CONTAIN :0026 1DCC FA99 1DE6 7498+ CSK Q,=:ED4F CHECK -Q- 1DCD 0000 7498+ NOP 1DCE 0E0D 7498+ HLT -Q- SHOULD CONTAIN :ED4F 7498+ ENDC 7498+  ENDC 1DCF 0020 7498+ COPY X,A FOR TESTING 1DD0 BA96 1DE7 7498+ CSK A,=:3333  CHECK -X- 1DD1 0000 7498+ NOP 1DD2 0E0D 7498+ HLT ADDF MODIFIED -X- 1DD3 0060 7498+ COPY Y,A FOR TESTING 1DD4 BA93 1DE8 7498+ CSK A,=:0F0F CHECK -Y- 1DD5 0000 7498+ NOP 1DD6 0E0D 7498+ HLT ADDF MODIFIED -Y- 00000001 7498+ IFT 1;0;0;0;0 1DD7 826D 1DC5 7498+ COPY FLOAT2,A 1DD8 0D00 7498+ CSK A,=:0000 CHECK OPERAND WORD 1 1PAGE 0441 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:19:05.00  --ADDF-- INSTRUCTION TEST (PART 3-6) 1DD9 0000 7498+ NOP 1DDA 0E0D 7498+ HLT  ADDF MODIFIED OPERAND 1DDB 826A 1DC6 7498+ COPY FLOAT2+1,A 1DDC 0D00 7498+ CSK A,=:0000  CHECK OPERAND WORD 2 1DDD 0000 7498+ NOP 1DDE 0E0D 7498+ HLT ADDF MODIFIED OPERAND 7498+ ENDC 00000001 7498+ IFT 1;0;0 00000001 7498+ IFT 1 1DDF 36C1 1DE1 7498+ JF OV,$+2 OVERFLOW STILL RESET? 1DE0 0E0D 7498+ HLT L  NO-- ADDF CHANGED OVERFLOW 7498+ ENDC 00000001 7498+ IFT 1 1DE1 56C1 1DE3 7498+ JF CY,$+2 CARRY STILL RESET? 1DE2 0E0D 7498+ HLT NO-- ADDF CHANGED CARRY 7498+ ENDC 7498+ ENDC 1DE3 9E59 1DBD 7498+ JMP  FLOAT1 PATCH FOR LOOPING 1DE3 0000 7498+ ORG $-1 1DE3 0000 7498+ NOP 00001DE4 7498+ LP::L SET $ SET UP LABEL TO REPLACE NOP WITH JMP INST. 1DE4 0000 7498+ NOP  RESERVE SPACE FOR JMP INSTRUCTION 0004 7498+ LPOOL 1DE5 122B INITRP 1DE6 ED4F 1DE7 3333 1DE8 0F0F 00001DE9 7498+ LP::L1 SET $ SET UP LABEL AT END OF LPOOL 1DE4 0000 7498+ ORG LP::L GO BACK TO OVERLAY NOP WITH JMP INST. 1DE4 9E84 1DE9 7498+ JMP LP::L1 JUMP TO LABEL AT END OF LPOOL 1DE9 0000 7498+ ORG LP::L1 CONTINUE AT END OF LPOOL 7498+ ENDC 1PAGE 0442 MACRO (F100) SCOUT CPU HARDWARE TEST PROGRAM 84-93727 (A200) 1981/11/25 16:19:06.75 --ADDF-- INSTRUCTION TEST (PART 3-6) 7500 * +:0 ADDF +:A6ED4F-128 = +:A6ED4F-128 ADD ZERO 00000000 7501  IFF 0 7501+ * CY=S OV=S A=:0000 Q=:0000 ADDF :0026 :ED4F=:0026 :ED4F OK 00001DE9 7501+ FLOAT1 SET $ 1DE9 BF7B 1DE5 7501+ JST INITRP INITIALIZE TRAP LOCATIONS 1DEA 0900 7501+ COPY =:0000,A :0000 ==> 'A' 1DEB 4900 7501+ COPY =:0000,Q :0000 ==> 'Q' 1DEC A27A 1DE7 7501+  COPY =:3333,X :3333 ==> 'X' 1DED E27A 1DE8 7501+ COPY =:0F0F,Y :0F0F ==> 'Y' 1DEE 0E05  7501+ SBIT CY,S S ==> CARRY FLAG 1DEF 0E15 7501+ SBIT OV,S S ==> OVERFLOW FLAG 00000001 7501+ IFT 1;0;0;0;0 1DF0 9E82 1DF3 7501+ JMP $+3 JUMP AROUND WORD  00001DF1 7501+ FLOAT2 SET $ 1DF1 0026 7501+ WORD :0026 INSTRUCTION OPERAND 1DF2 ED4F  7501+ WORD :ED4F 00001DF3 7501+ FLOAT3 SET $ 00000001 7501+ IFT 1;0 1DF3 5C00 7501+ ADDF FLOAT2 DO THE OPERATION 1DF4 1DF1 7501+ ENDC IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII