rol.s 253 B

1234567891011121314151617
  1. #include "em_abs.h"
  2. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  3. .define .rol
  4. ! $Id$
  5. .rol:
  6. movl (sp)+,r1
  7. cmpl r0,$4
  8. bneq Ierr
  9. movl (sp)+,r0
  10. rotl r0,(sp),(sp)
  11. jmp (r1)
  12. Ierr:
  13. pushl $EILLINS
  14. jmp .fat