[unix-history] / src / pi / putn.s

.text
/
/ routines to save space on put calls
/
.globl _put, _put1, _put2, _put3, _put4
/
_put1:
	mov	(sp),putret
	mov	$1,(sp)
	br	1f
_put2:
	mov	(sp),putret
	mov	$2,(sp)
	br	1f
_put3:
	mov	(sp),putret
	mov	$3,(sp)
	br	1f
_put4:
	mov	(sp),putret
	mov	$4,(sp)
1:
	mov	$1f,-(sp)
	jmp	_put
1:
	tst	(sp)+
	jmp	*putret
.bss
putret: .=.+2
Commit	Line	Data
b02ece9a CH	1	.text
	2	/
	3	/ routines to save space on put calls
	4	/
	5	.globl _put, _put1, _put2, _put3, _put4
	6	/
	7	_put1:
	8	mov (sp),putret
	9	mov $1,(sp)
	10	br 1f
	11	_put2:
	12	mov (sp),putret
	13	mov $2,(sp)
	14	br 1f
	15	_put3:
	16	mov (sp),putret
	17	mov $3,(sp)
	18	br 1f
	19	_put4:
	20	mov (sp),putret
	21	mov $4,(sp)
	22	1:
	23	mov $1f,-(sp)
	24	jmp _put
	25	1:
	26	tst (sp)+
	27	jmp *putret
	28	.bss
	29	putret: .=.+2