ack/mach/pdp/libem/sim.s

/ $Header$
.text
.globl sim~
.globl trpim~,save1~

.float = 1

sim~:
	mov	(sp)+,save1~
	mov	(sp)+,r0
	mov	r0,trpim~
.if .float
	stfps	r1
	bis	$07400,r1
	bit	$020,r0
	beq	0f
	bic	$01000,r1
0:	bit	$040,r0
	beq	0f
	bic	$02000,r1
0:	bit	$01000,r0
	beq	0f
	bic	$04000,r1
0:	bit	$02000,r0
	beq	0f
	bic	$0400,r1
0:	ldfps	r1
.endif
	jmp	*save1~
added rcsid 1984-07-19 13:34:12 +00:00			`/ $Header$`
Initial revision 1984-07-19 12:51:00 +00:00			`.text`
			`.globl sim~`
			`.globl trpim~,save1~`

			`.float = 1`

			`sim~:`
			`mov (sp)+,save1~`
			`mov (sp)+,r0`
			`mov r0,trpim~`
			`.if .float`
			`stfps r1`
			`bis $07400,r1`
			`bit $020,r0`
			`beq 0f`
			`bic $01000,r1`
			`0: bit $040,r0`
			`beq 0f`
			`bic $02000,r1`
			`0: bit $01000,r0`
			`beq 0f`
			`bic $04000,r1`
			`0: bit $02000,r0`
			`beq 0f`
			`bic $0400,r1`
			`0: ldfps r1`
			`.endif`
			`jmp *save1~`