*DECK C$S18R4 
          IDENT  C$S18R4
          TITLE  CBS18R4 - 19 DIGIT SIGNED DISPLAY TO D.P. COMP-2 
  
          MACHINE  ANY,I
          COMMENT  19-DIGIT SIGNED DISPLAY TO D.P. COMP-2 
          SPACE  4
          ENTRY  C.S18R4
 S18R4    MICRO  1,, C.S18R4
 ZEROS    MICRO  1,,*=X_C.ZEROS*
 CNVRT    MICRO  1,,*=X_C.CNVRT*
 DTENS    MICRO  1,,*=X_C.DTENS*
*CALL S18R4 
  
  
          END 
