ack/mach/vax4/libem/cuf.s

#include "em_abs.h"

        # $Header$

.globl .cuf

.cuf:
	movl    (sp)+,r2
	movl    (sp)+,r0
	movl    (sp)+,r1
	cmpl    r1,$4
	bneq    Lerr
	cmpl    r0,$4
	bneq    Ldld
	cvtlf   (sp)+,-(sp)
	bgeq    Lout
	addf2	Ltwo32f,(sp)
Lout:
	jmp     (r2)
Ldld:
	cmpl    r0,$8
	bneq    Lerr
	cvtld   (sp)+,-(sp)
	bgeq    Lout
	addd2   Ltwo32F,(sp)
	jmp     (r2)
Lerr:
	pushl	$EILLINS
	jmp     .fat
.data
Ltwo32f:
	.float	0f4294967296.0
Ltwo32F:
	.double	0f4294967296.0
Initial revision 1985-01-18 14:30:03 +00:00			`#include "em_abs.h"`

To have a file preprocessed, it must start with a # in column o1. The RCSid is replaced to accomplish this. 1985-01-21 12:56:09 +00:00			`# $Header$`

Initial revision 1985-01-18 14:30:03 +00:00			`.globl .cuf`

			`.cuf:`
			`movl (sp)+,r2`
			`movl (sp)+,r0`
			`movl (sp)+,r1`
			`cmpl r1,$4`
			`bneq Lerr`
			`cmpl r0,$4`
			`bneq Ldld`
			`cvtlf (sp)+,-(sp)`
			`bgeq Lout`
			`addf2 Ltwo32f,(sp)`
			`Lout:`
			`jmp (r2)`
			`Ldld:`
			`cmpl r0,$8`
			`bneq Lerr`
			`cvtld (sp)+,-(sp)`
			`bgeq Lout`
			`addd2 Ltwo32F,(sp)`
			`jmp (r2)`
			`Lerr:`
			`pushl $EILLINS`
			`jmp .fat`
			`.data`
			`Ltwo32f:`
			`.float 0f4294967296.0`
			`Ltwo32F:`
			`.double 0f4294967296.0`