dup.s 197 B

1234567891011121314151617
  1. .define .dup
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .sect .text
  8. !r2 will save return addres
  9. .dup:
  10. movd tos, r2
  11. addr 0(sp), tos
  12. movd r0, tos
  13. jsr @.los
  14. movd r2, tos
  15. ret 0