ack/mach/z8000/libem/aar.s
1985-01-08 11:48:43 +00:00

14 lines
197 B
ArmAsm

.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