ack/mach/vax4/libem/lar4.s
1990-01-12 10:29:26 +00:00

29 lines
415 B
ArmAsm

.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.define .lar4
! $Header$
.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)