ack/mach/z8000/libem/aar.s
1987-01-19 10:51:50 +00:00

19 lines
255 B
ArmAsm

.define aar
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
!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