dimag.s

来自「UNIX v6源代码 这几乎是最经典的unix版本 unix操作系统设计和莱」· S 代码 · 共 20 行

/
/

/ dimag fortran function

.globl	dimag.

.globl	rval16p
.globl	retrn
.globl	temp

dimag.:	temp
	rval16p; 2
	.+2
	setd
	tstf	(sp)+
	movf	(sp)+,r0
	movf	r0,temp
	jmp	retrn