sru.s 317 B

123456789101112131415161718192021
  1. #include "em_abs.h"
  2. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  3. .define .sru
  4. ! $Id$
  5. .sru:
  6. movl (sp)+,r3
  7. cmpl r0,$4
  8. beql .sru4
  9. pushl $EILLINS
  10. jmp .fat
  11. .sru4:
  12. movl (sp)+,r2
  13. mnegl r2,r2
  14. movl (sp)+,r0
  15. clrl r1
  16. ashq r2,r0,r0
  17. movl r0,-(sp)
  18. jmp (r3)