.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.define  .lar4

        ! $Id$

.lar4:
	movl    (sp)+,r2
	movl    (sp)+,r0
	movl	8(r0),r1
	subl2   (r0),(sp)
	mull3	(sp)+,r1,r0
	addl2   (sp)+,r0
	addl2   r1,r0
	cmpl	r1,$1
	bgtr	I3
	movzbl  -(r0),-(sp)
	jmp     (r2)
I3:
	cmpl	r1,$2
	bgtr	I2
	movzwl	-(r0),-(sp)
	jmp	(r2)
I2:
	ashl    $-2,r1,r1
I1:
	movl    -(r0),-(sp)
	sobgtr  r1,I1
	jmp     (r2)