.TITLE FLOAT ; JEFFREY KODOSKY ARL NOV75 ; ; SUBR ; ENTRY: 1 ARG ; EXIT: 1 ARG ; ERRORS: NONE ; CALLS: ATM2N ; IR ; R2ATM ; IF FLOAT IS CALLED WITH IT IS COPIED .GLOBL FLOAT,ZFLOAT,QATM2N,QIR,QR2ATM FLOAT: QATM2N BCS FLOAT2 QIR FLOAT2: QR2ATM .WORD 0 ZFLOAT=.-FLOAT .END