aar.s 224 B

12345678910111213
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .sect .text
  3. .define aar~
  4. ! $Id$
  5. !r0 : descriptor address
  6. !r1 : element number
  7. !base address is on stack
  8. aar~:
  9. sub (r0),r1
  10. mul 04(r0),r1
  11. add r1,02(sp)
  12. rts pc