[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / v / rn32ml.s

;
; $Id$
;
; $Log$
; Revision 1.2  1996/04/26 12:31:54  cernlib
; Correct comment leader and comment/remove cpp ifdef lines
;
; Revision 1.1.1.1  1996/04/01 15:02:54  mclareni
; Mathlib gen
;
;
; Compile this only with:
; #if (defined(CERNLIB_VAX))&&(!defined(CERNLIB_FORTRAN))
;
 .TITLE  RN32
IY:     .LONG   ^X00010003
RN32::
        .WORD   ^M<>
        MOVL    IY,R0
        MULL2   #69069,R0
        BGTR    OK
        ADDL2   #-2147483648, R0
OK:     MOVL    R0,IY
        BICL2   #^XFF,R0
        CVTLF   R0,R0
        MULF2   #^X3100,R0
        RET
RN32IN::
        .WORD   ^M<IV>
        MOVL    @4(AP),IY
        RET
RN32OT::
        .WORD   ^M<IV>
        MOVL    IY, @4(AP)
        RET
        .END
Commit	Line	Data
fe4da5cc	1	;
	2	; $Id$
	3	;
	4	; $Log$
	5	; Revision 1.2 1996/04/26 12:31:54 cernlib
	6	; Correct comment leader and comment/remove cpp ifdef lines
	7	;
	8	; Revision 1.1.1.1 1996/04/01 15:02:54 mclareni
	9	; Mathlib gen
	10	;
	11	;
	12	; Compile this only with:
	13	; #if (defined(CERNLIB_VAX))&&(!defined(CERNLIB_FORTRAN))
	14	;
	15	.TITLE RN32
	16	IY: .LONG ^X00010003
	17	RN32::
	18	.WORD ^M<>
	19	MOVL IY,R0
	20	MULL2 #69069,R0
	21	BGTR OK
	22	ADDL2 #-2147483648, R0
	23	OK: MOVL R0,IY
	24	BICL2 #^XFF,R0
	25	CVTLF R0,R0
	26	MULF2 #^X3100,R0
	27	RET
	28	RN32IN::
	29	.WORD ^M<IV>
	30	MOVL @4(AP),IY
	31	RET
	32	RN32OT::
	33	.WORD ^M<IV>
	34	MOVL IY, @4(AP)
	35	RET
	36	.END