cmu.s 316 B

123456789101112131415161718192021222324
  1. #include "em_abs.h"
  2. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  3. .define .cmu
  4. ! $Id$
  5. .cmu:
  6. movl (sp)+,r1
  7. cmpl r0,$4
  8. bneq Ierr
  9. clrl r0
  10. cmpl (sp)+,(sp)+
  11. beqlu I1
  12. bgtru I2
  13. incl r0
  14. br I1
  15. I2:
  16. decl r0
  17. I1:
  18. jmp (r1)
  19. Ierr:
  20. pushl $EILLINS
  21. jmp .fat