pfe.s

来自「Version 6 Unix 核心源代码 Version 6 Unix 核心源」· S 代码 · 共 45 行

/ print last floating error

stst	= 170300^tst

	stst	r1
	cmp	r1,$14
	blos	1f
	clr	r1
1:
	bic	$1,r1
	mov	mesg(r1),r1
1:
	movb	(r1)+,ch
	beq	1f
	mov	$1,r0
	sys	write; ch; 1
	br	1b
1:
	sys	exit

mesg:
	1f
	2f
	3f
	4f
	5f
	6f
	7f
	8f

1:	<No error.\n\0>
2:	<Floating op code error\n\0>
3:	<Floating divide check\n\0>
4:	<Integer conversion error\n\0>
5:	<Floating overflow\n\0>
6:	<Floating underflow\n\0>
7:	<Floating undefined\n\0>
8:	<Floating maintennace trap\n\0>

	.even

	.bss
ch:	.=.+2