[unix-history] / usr / src / cmd / px / 20con.s

#\f
# 20con.s
#
# CONOPS
#
_CON1:
	cvtbw	(r10)+,-(sp)
	jmp	(r8)
_CON2:
	incl	r10
	movw	(r10)+,-(sp)
	jmp	(r8)
_CON4:
	incl	r10
	pushl	(r10)+
	jmp	(r8)
_CON8:
	incl	r10
	movd	(r10)+,-(sp)
	jmp	(r8)
_CON:
	cvtbl	(r10)+,r0
	bneq	l2001
	cvtwl	(r10)+,r0	#r0 has length to be moved
l2001:
	movl	r10,r1		#r1 has addr of data to be moved
	movl	r0,r2		#r2 has length of stack space
	blbc	r2,l2002
	incl	r2
l2002:
	subl2	r2,sp		#allocate stack space
	addl2	r2,r10		#advance over data
	movc5	r0,(r1),$0,r2,(sp)   #move string to stack
	jmp	(r8)
Commit	Line	Data
b202b2da CH	1	#\f
	2	# 20con.s
	3	#
	4	# CONOPS
	5	#
	6	_CON1:
	7	cvtbw (r10)+,-(sp)
	8	jmp (r8)
	9	_CON2:
	10	incl r10
	11	movw (r10)+,-(sp)
	12	jmp (r8)
	13	_CON4:
	14	incl r10
	15	pushl (r10)+
	16	jmp (r8)
	17	_CON8:
	18	incl r10
	19	movd (r10)+,-(sp)
	20	jmp (r8)
	21	_CON:
	22	cvtbl (r10)+,r0
	23	bneq l2001
	24	cvtwl (r10)+,r0 #r0 has length to be moved
	25	l2001:
	26	movl r10,r1 #r1 has addr of data to be moved
	27	movl r0,r2 #r2 has length of stack space
	28	blbc r2,l2002
	29	incl r2
	30	l2002:
	31	subl2 r2,sp #allocate stack space
	32	addl2 r2,r10 #advance over data
	33	movc5 r0,(r1),$0,r2,(sp) #move string to stack
	34	jmp (r8)