dup.s 207 B

1234567891011121314151617
  1. .define dup
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. dup:
  8. popl saveret, *RR14
  9. dec R15, $2
  10. ldl RR2, RR14
  11. add R3, R0
  12. sra R0
  13. lddr *RR14, *RR2, R0
  14. inc R15, $2
  15. pushl *RR14, saveret
  16. ret