ack/mach/vax4/libem/cif.s

#include "em_abs.h"

        # $Header$

.globl  .cif

.cif:
	movl    (sp)+,r1
	movl    (sp)+,r0
	cmpl    r0,$4
	bneq    Ldbl
	movl    (sp)+,r0
	cmpl    r0,$4
	bneq    Lerr
	cvtlf   (sp)+,-(sp)
	jmp     (r1)
Ldbl:
	cmpl    r0,$8
	bneq    Lerr
	movl    (sp)+,r0
	cmpl    r0,$4
	bneq    Lerr
	cvtld   (sp)+,-(sp)
	jmp     (r1)
Lerr:
	pushl	$EILLINS
	jmp     .fat
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 .cif`

			`.cif:`
			`movl (sp)+,r1`
			`movl (sp)+,r0`
			`cmpl r0,$4`
			`bneq Ldbl`
			`movl (sp)+,r0`
			`cmpl r0,$4`
			`bneq Lerr`
			`cvtlf (sp)+,-(sp)`
			`jmp (r1)`
			`Ldbl:`
			`cmpl r0,$8`
			`bneq Lerr`
			`movl (sp)+,r0`
			`cmpl r0,$4`
			`bneq Lerr`
			`cvtld (sp)+,-(sp)`
			`jmp (r1)`
			`Lerr:`
			`pushl $EILLINS`
			`jmp .fat`