ack/mach/z8000/libem/aar.s

14 lines
197 B
ArmAsm
Raw Normal View History

1985-01-08 11:48:43 +00:00
.define aar
!R1 contains description address
!R3 contains element number
!base address is on stack
aar:
sub R3, 0(R1)
mult RR2, 4(R1)
inc R15, $4
add R3, *RR14
ld *RR14, R3
dec R15, $4
ret