1987-05-15 09:11:10 +00:00
|
|
|
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
|
|
|
|
|
.sect .text
|
|
|
|
|
.define aar~
|
|
|
|
|
! $Header$
|
1984-07-19 12:51:00 +00:00
|
|
|
|
1987-05-15 09:11:10 +00:00
|
|
|
!r0 : descriptor address
|
|
|
|
|
!r1 : element number
|
|
|
|
|
!base address is on stack
|
1984-07-19 12:51:00 +00:00
|
|
|
aar~:
|
|
|
|
|
sub (r0),r1
|
1984-07-20 16:20:28 +00:00
|
|
|
mul 04(r0),r1
|
1984-07-19 12:51:00 +00:00
|
|
|
add r1,02(sp)
|
|
|
|
|
rts pc
|
