cmf.s 395 B

12345678910111213141516171819202122232425262728293031
  1. #include "em_abs.h"
  2. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  3. .define .cmf
  4. ! $Id$
  5. .cmf:
  6. movl (sp)+,r1
  7. cmpl r0,$4
  8. bneq I1
  9. clrl r0
  10. cmpf (sp)+,(sp)+
  11. br I3
  12. I1:
  13. cmpl r0,$8
  14. bneq Ierr
  15. clrl r0
  16. cmpd (sp)+,(sp)+
  17. I3:
  18. beql I2
  19. bgtr I4
  20. incl r0
  21. br I2
  22. I4:
  23. decl r0
  24. I2:
  25. jmp (r1)
  26. Ierr:
  27. pushl $EILLINS
  28. jmp .fat