ack/mach/vax4/libem/cif.s

#include "em_abs.h"
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.define  .cif

        ! $Id$


.cif:
	movl    (sp)+,r1
	movl    (sp)+,r0
	cmpl    r0,$4
	bneq    Idbl
	movl    (sp)+,r0
	cmpl    r0,$4
	bneq    Ierr
	cvtlf   (sp)+,-(sp)
	jmp     (r1)
Idbl:
	cmpl    r0,$8
	bneq    Ierr
	movl    (sp)+,r0
	cmpl    r0,$4
	bneq    Ierr
	cvtld   (sp)+,-(sp)
	jmp     (r1)
Ierr:
	pushl	$EILLINS
	jmp     .fat
Initial revision 1985-01-18 14:30:03 +00:00			`#include "em_abs.h"`
some more changes to use VAX assembler 1990-01-12 10:29:26 +00:00			`.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text`
			`.define .cif`
Initial revision 1985-01-18 14:30:03 +00:00
Header --> Id 1994-06-24 14:02:31 +00:00			`! $Id$`
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
Initial revision 1985-01-18 14:30:03 +00:00
			`.cif:`
			`movl (sp)+,r1`
			`movl (sp)+,r0`
			`cmpl r0,$4`
some more changes to use VAX assembler 1990-01-12 10:29:26 +00:00			`bneq Idbl`
Initial revision 1985-01-18 14:30:03 +00:00			`movl (sp)+,r0`
			`cmpl r0,$4`
some more changes to use VAX assembler 1990-01-12 10:29:26 +00:00			`bneq Ierr`
Initial revision 1985-01-18 14:30:03 +00:00			`cvtlf (sp)+,-(sp)`
			`jmp (r1)`
some more changes to use VAX assembler 1990-01-12 10:29:26 +00:00			`Idbl:`
Initial revision 1985-01-18 14:30:03 +00:00			`cmpl r0,$8`
some more changes to use VAX assembler 1990-01-12 10:29:26 +00:00			`bneq Ierr`
Initial revision 1985-01-18 14:30:03 +00:00			`movl (sp)+,r0`
			`cmpl r0,$4`
some more changes to use VAX assembler 1990-01-12 10:29:26 +00:00			`bneq Ierr`
Initial revision 1985-01-18 14:30:03 +00:00			`cvtld (sp)+,-(sp)`
			`jmp (r1)`
some more changes to use VAX assembler 1990-01-12 10:29:26 +00:00			`Ierr:`
Initial revision 1985-01-18 14:30:03 +00:00			`pushl $EILLINS`
			`jmp .fat`