aar.s 255 B

123456789101112131415161718
  1. .define aar
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. !R1 contains description address
  8. !R3 contains element number
  9. !base address is on stack
  10. aar:
  11. sub R3, 0(R1)
  12. mult RR2, 4(R1)
  13. inc R15, $4
  14. add R3, *RR14
  15. ld *RR14, R3
  16. dec R15, $4
  17. ret