* CONTITIONAL BRANCH ROUTINES                           HEADER  C:BRANCH0001.000
*                                                                       0002.000
*              CONDITIONAL BRANCH ROUTINES                              0003.000
*                                                                       0004.000
         M.PGM     C:BRANCH,MPX-32,3.6.1,00                             0005.000
*                                                                       0006.000
* CONDITIONAL BRANCH ROUTINES - IF THE CONDITION IS SATISFIED THE NEXT  0007.000
*    INSTRUCTION EXECUTED IS AT THE ADDRESS SPECIFIED AFTER THE CALL.   0008.000
*    OTHERWISE, THE INSTRUCTION FOLLOWING THIS ADDRESS WILL BE EXECUTED 0009.000
*                                                                       0010.000
         DEF   C:BLT,C:BLE,C:BEQ,C:BNE,C:BGE,C:BGT,C:GO                 0011.000
         M.REQS                                                         0012.000
         COBOLDAT                                                       0013.000
*                                                                       0014.000
* BRANCH IF LESS THAN                                                   0015.000
*                                                                       0016.000
C:BLT   TRR   R0,R1                                                     0017.000
         LW    R2,CND                                                   0018.000
         BLT   *0,X1                                                    0019.000
         BU    4,X1                                                     0020.000
*                                                                       0021.000
* BRANCH IF LESS THAN OR EQUAL TO                                       0022.000
*                                                                       0023.000
C:BLE   TRR   R0,R1                                                     0024.000
         LW    R2,CND                                                   0025.000
         BLE   *0,X1                                                    0026.000
         BU    4,X1                                                     0027.000
*                                                                       0028.000
* BRANCH IF EQUAL                                                       0029.000
*                                                                       0030.000
C:BEQ   TRR   R0,R1                                                     0031.000
         LW    R2,CND                                                   0032.000
         BEQ   *0,X1                                                    0033.000
         BU    4,X1                                                     0034.000
*                                                                       0035.000
* BRANCH IF NOT EQUAL                                                   0036.000
*                                                                       0037.000
C:BNE   TRR   R0,R1                                                     0038.000
         LW    R2,CND                                                   0039.000
         BNE   *0,X1                                                    0040.000
         BU    4,X1                                                     0041.000
*                                                                       0042.000
* BRANCH IF GREATER OR EQUAL                                            0043.000
*                                                                       0044.000
C:BGE   TRR   R0,R1                                                     0045.000
         LW    R2,CND                                                   0046.000
         BGE   *0,X1                                                    0047.000
         BU    4,X1                                                     0048.000
*                                                                       0049.000
* BRANCH IF GREATER THAN                                                0050.000
*                                                                       0051.000
C:BGT   TRR   R0,R1                                                     0052.000
         LW    R2,CND                                                   0053.000
         BGT   *0,X1                                                    0054.000
         BU    4,X1                                                     0055.000
*                                                                       0056.000
* BRANCH UNCONDITIONAL                                                  0057.000
*                                                                       0058.000
C:GO    TRR   R0,R1                                                     0059.000
         BU    *0,X1                                                    0060.000
         END                                                            0061.000
