ack/mach/pdp/libem/aar.s

13 lines
159 B
ArmAsm

/ $Header$
.text
.globl aar~
/r0 : descriptor address
/r1 : element number
/base address is on stack
aar~:
sub (r0),r1
mul 04(r0),r1
add r1,02(sp)
rts pc