* ABORT COBOL RUNTIME                                   HEADER  CR.ABORT0001.000
*                                                                       0002.000
*              ABORT COBOL RUNTIME                                      0003.000
*                                                                       0004.000
         M.PGM     CR.ABORT,MPX-32,3.6.1,00                             0005.000
         DEF   CR.ABORT                                                 0006.000
         EXT       SORTERR                                              0007.000
*                                                                       0008.000
* ABORT EXECUTION OF PROGRAM                                            0009.000
*                                                                       0010.000
*     R1 CONTAINS THE ABORT CODE                                        0011.000
*                                                                       0012.000
         M.REQS                                                         0013.000
CR.ABORT TRR   R1,R5          MOVE ABORT CODE TO R5                     0014.000
         ES    R4                                                       0015.000
         DVI   R4,10          CONVERT CODE TO ASCII                     0016.000
         ADI   R4,G'0'                                                  0017.000
         ADI   R5,G'0'                                                  0018.000
         SLL   R5,8                                                     0019.000
         ORR   R4,R5                                                    0020.000
         ORMW  R5,=C'CB  '                                              0021.000
         BL        SORTERR                                              0022.000
         END                                                            0023.000
