sar.s 241 B

1234567891011121314151617181920
  1. .define .sar
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .sect .text
  8. .sar:
  9. movd tos, r2
  10. movd 4(sp), r0
  11. subd 0(0(sp)), r0
  12. muld 8(0(sp)), r0
  13. addd r0, 8(sp)
  14. movd 8(0(sp)), 4(sp)
  15. adjspd -4
  16. jsr @.sts
  17. movd r2, tos
  18. ret 0