* LOAD BINARY ACCUMULATOR                               HEADER  C:BLD   0001.000
*                                                                       0002.000
*              LOAD BINARY ACCUMULATOR                                  0003.000
*                                                                       0004.000
         M.PGM     C:BLD,MPX-32,3.6.1,00                                0005.000
         DEF   C:BLD,CR.BLD                                             0006.000
*                                                                       0007.000
* BINARY LOAD ROUTINE                                                   0008.000
*                                                                       0009.000
         EXT   CR.LBVAL                                                 0010.000
         M.REQS                                                         0011.000
         COBOLDAT                                                       0012.000
*                                                                       0013.000
* INITIALIZE OVERFLOW INDICATION                                        0014.000
*                                                                       0015.000
C:BLD   LOAD  2              LOAD ARGUMENTS                             0016.000
CR.BLD   LI    R4,0                                                     0017.000
         CI    R2,8                                                     0018.000
         BGT   SAVOFLO                                                  0019.000
         LB    R4,BOFLO,X2                                              0020.000
SAVOFLO  STB   R4,BOFLO,X1                                              0021.000
*                                                                       0022.000
* LOAD BINARY VALUE INTO (R6,R7)                                        0023.000
*                                                                       0024.000
         TRR   R0,R4          SAVE RETURN ADDRESS                       0025.000
         BL    CR.LBVAL       LOAD BINARY VALUE                         0026.000
*                                                                       0027.000
* SAVE INTO DESTINATION ACCUMULATOR                                     0028.000
*                                                                       0029.000
         SLL   R1,1                                                     0030.000
         STH   R5,DACC,X1     SAVE DECIMAL POSITION                     0031.000
         SLL   R1,2                                                     0032.000
         STD   R6,ACC,X1      SAVE ACCUMULATOR CONTENTS                 0033.000
         TRSW  4              RETURN                                    0034.000
         END                                                            0035.000
