ack/mach/pdp/libem/aar.s
1984-07-19 12:51:00 +00:00

12 lines
160 B
ArmAsm

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