MINI-AUTOCODER C                      WEDNESDAY, 21-DEC-94 19:57:50    Page 1
C              TEST COMPARE LOGIC

                        C          JOB  TEST COMPARE LOGIC
  500 500                          ORG  500
  500 500 /332          START      CS   332
  504 504 /                        CS
  505 505 L942290                  MLCWA@TEST OF COMPARE INSTRUCTION@,290
  512 512 2                        W
  513 513 /299                     CS   299
  517 517 .                        H
                        *
                        *      COMPARE TWO FIELDS OF THE SAME LENGTH, ONE CHARA
                        *
  518 518 C892893                  C    CA,CB
  525 525 B546U                    BH   OK1
  530 530 L991290                  MLCWA@COMPARE OF @A@ AND @B@ FAILED, EXPECTE
  537 537 B845                     B    WC                              CALL CO
  541 541 2                        W
  542 542 /299                     CS   299
                        *
                        * COMPARE TWO VALUES, A FIELD LONGER THAN B FIELD, RESU
                        *
  546 546 C895893       OK1        C    CAB,CB
  553 553 B574S                    BE   OK2
  558 558 LØ41290                  MLCWA@COMPARE OF @AB@ AND @B@ FAILED, EXPECT
  565 565 B845                     B    WC
  569 569 2                        W
  570 570 /299                     CS   299
                        *
                        * COMPARE TWO VALUES, B-FIELD LONGER THAN A-FIELD, RESU
                        *
  574 574 C892897       OK2        C    CA,CAA
  581 581 B602U                    BH   OK3
  586 586 LØ91290                  MLCWA@COMPARE OF @A@ AND @AA@ FAILED, EXPECT
  593 593 B845                     B    WC
  597 597 2                        W
  598 598 /299                     CS   299
                        *
                        * COMPARE TWO VALUES, SAME WIDTH FIELD, B<A RESULT LOW 
                        *
  602 602 C893892       OK3        C    CB,CA
  609 609 B630T                    BL   OK4
  614 614 L/40290                  MLCWA@COMPARE OF @B@ AND @A@ FAILED, EXPECTE
  621 621 B845                     B    WC
  625 625 2                        W
  626 626 /299                     CS   299
                        *
                        * COMPARE TWO VALUES, SAME LENGTH FIELD, RESULT SHOULD 
                        *
  630 630 C892892       OK4        C    CA,CA
  637 637 B658S                    BE   OK5
  642 642 L/90290                  MLCWA@COMPARE OF @AB@ AND @A@ FAILED, EXPECT
  649 649 B845                     B    WC
  653 653 2                        W
MINI-AUTOCODER C                      WEDNESDAY, 21-DEC-94 19:57:50    Page 2
C              TEST COMPARE LOGIC

  654 654 /299                     CS   299
                        *
                        * COMPARE TWO VALUES, DIFFER IN MIDDLE, RESULT SHOULD
                        *
  658 658 C900903       OK5        C    CABC,CADC
  665 665 B686U                    BH   OK6
  670 670 LS43290                  MLCWA@COMPARE OF @ABC@ AND @ADC@ FAILED, EXP
  677 677 B845                     B    WC
  681 681 2                        W
  682 682 /299                     CS   299
                        *
                        * COMPARE TWO FIELDS, DIFFER IN MIDDLE, B < A
                        *
  686 686 C903900       OK6        C    CADC,CABC
  693 693 B714T                    BL   OK7
  698 698 LS96290                  MLCWA@COMPARE OF @ADC@ AND @ABC@ FAILED, EXP
  705 705 B845                     B    WC
  709 709 2                        W
  710 710 /299                     CS   299
                        *
                        * COMPARE TWO FIELDS, MULTICHARACTER, EQUAL
                        *
  714 714 C900900       OK7        C    CABC,CABC
  721 721 B742S                    BE   OK8
  726 726 LT49290                  MLCWA@COMPARE OF @ABC@ AND @ABC@ FAILED, EXP
  733 733 B845                     B    WC
  737 737 2                        W
  738 738 /299                     CS   299
                        *
                        * COMPARE WITH CHAINING, FOUR FIELDS, RESULT SHOULD BE 
                        *
  742 742 C909909       OK8        C    CHAIN1,CHAIN1
  749 749 C                        C
  750 750 B771S                    BE   OK9
  755 755 LT90290                  MLCWA@CHAINED COMPARE FAILED, EXPECTED B=A, 
  762 762 B845                     B    WC
  766 766 2                        W
  767 767 /299                     CS   299
                        *
                        * COMPARE WITH CHAINING, FOUR FIELDS, RESULT SHOULD BE 
                        *
  771 771 C909915       OK9        C    CHAIN1,CHAIN2
  778 778 C                        C
  779 779 B800U                    BH   OK10
  784 784 LU32290                  MLCWA@CHAINED COMPARE FAILED, EXPECTED B>A, 
  791 791 B845                     B    WC
  795 795 2                        W
  796 796 /299                     CS   299
                        *
                        * COMPARE OF TWO CHAINED FIELDS, EXPECT B<A
                        *
  800 800 C915909       OK10       C    CHAIN2,CHAIN1
MINI-AUTOCODER C                      WEDNESDAY, 21-DEC-94 19:57:50    Page 3
C              TEST COMPARE LOGIC

  807 807 C                        C
  808 808 B829T                    BL   OK11
  813 813 LU74290                  MLCWA@CHAINED COMPARE FAILED, EXPECTED B<A, 
  820 820 B845                     B    WC
  824 824 2                        W
  825 825 /299                     CS   299
                        *
                        * END OF TESTS
                        *
  829 829 LV05290       OK11       MLCWA@END OF COMPARE INSTRUCTION TEST@,290
  836 836 2                        W
  837 837 /299                     CS   299
  841 841 .841                     H    *-3
                        *
                        *      SUBROUTINE TO PRINT OUT RESULT OF COMPARISON
                        *
  845 845 H891          WC         SBR  WCR+3
  849 849 B870U                    BH   HIGH
  854 854 B881T                    BL   LOW
  859 859 LV08299                  MLCWA@B=A@,299
  866 866 B888                     B    WCR
  870 870 LV11299       HIGH       MLCWA@B>A@,299
  877 877 B888                     B    WCR
  881 881 LV14299       LOW        MLCWA@B<A@,299
  888 888 B000          WCR        B    0
                        *
                        *
  892 892               CA         DCW  @A@
  893 893               CB         DCW  @B@
  895 895               CAB        DCW  @AB@
  897 897               CAA        DCW  @AA@
  900 900               CABC       DCW  @ABC@
  903 903               CADC       DCW  @ADC@
                        *
  906 906                          DCW  @DEF@
  909 909               CHAIN1     DCW  @ABC@
                        *
  912 912                          DCW  @XYZ@
  915 915               CHAIN2     DCW  @ABC@
                        *
  500 500                          END  START
  942 942                          LTRL @TEST OF COMPARE INSTRUCTION@
  991 991                          LTRL @COMPARE OF @A@ AND @B@ FAILED, EXPECTE
 1041 Ø41                          LTRL @COMPARE OF @AB@ AND @B@ FAILED, EXPECT
 1091 Ø91                          LTRL @COMPARE OF @A@ AND @AA@ FAILED, EXPECT
 1140 /40                          LTRL @COMPARE OF @B@ AND @A@ FAILED, EXPECTE
 1190 /90                          LTRL @COMPARE OF @AB@ AND @A@ FAILED, EXPECT
 1243 S43                          LTRL @COMPARE OF @ABC@ AND @ADC@ FAILED, EXP
 1296 S96                          LTRL @COMPARE OF @ADC@ AND @ABC@ FAILED, EXP
 1349 T49                          LTRL @COMPARE OF @ABC@ AND @ABC@ FAILED, EXP
 1390 T90                          LTRL @CHAINED COMPARE FAILED, EXPECTED B=A, 
 1432 U32                          LTRL @CHAINED COMPARE FAILED, EXPECTED B>A, 
MINI-AUTOCODER C                      WEDNESDAY, 21-DEC-94 19:57:50    Page 4
C              TEST COMPARE LOGIC

 1474 U74                          LTRL @CHAINED COMPARE FAILED, EXPECTED B<A, 
 1505 V05                          LTRL @END OF COMPARE INSTRUCTION TEST@
 1508 V08                          LTRL @B=A@
 1511 V11                          LTRL @B>A@
 1514 V14                          LTRL @B<A@
MINI-AUTOCODER C                      WEDNESDAY, 21-DEC-94 19:57:50    Page 5
C              TEST COMPARE LOGIC

  CA       00892
  CAA      00897
  CAB      00895
  CABC     00900
  CADC     00903
  CB       00893
  CHAIN1   00909
  CHAIN2   00915
  HIGH     00870
  LOW      00881
  OK1      00546
  OK10     00800
  OK11     00829
  OK2      00574
  OK3      00602
  OK4      00630
  OK5      00658
  OK6      00686
  OK7      00714
  OK8      00742
  OK9      00771
  START    00500
  WC       00845
  WCR      00888