ack/mach/pdp/libem/ngf.s

.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.sect .text
.define ngf~
.extern setfloat~
! $Header$

ngf~:
	jsr	pc,setfloat~
	negf	2(sp)
	setd
	rts	pc
converted to ACK assembler format 1987-05-15 09:11:10 +00:00			`.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text`
			`.sect .text`
			`.define ngf~`
			`.extern setfloat~`
			`! $Header$`
Initial revision 1984-07-19 12:51:00 +00:00
			`ngf~:`
			`jsr pc,setfloat~`
edited to make reentrant, no more globals in use 1984-07-20 16:20:28 +00:00			`negf 2(sp)`
a setl instruction was changed to a setd setl was just plain wrong 1984-07-19 13:09:53 +00:00			`setd`
edited to make reentrant, no more globals in use 1984-07-20 16:20:28 +00:00			`rts pc`