cif.s 420 B

12345678910111213141516171819202122232425262728
  1. #include "em_abs.h"
  2. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  3. .define .cif
  4. ! $Id$
  5. .cif:
  6. movl (sp)+,r1
  7. movl (sp)+,r0
  8. cmpl r0,$4
  9. bneq Idbl
  10. movl (sp)+,r0
  11. cmpl r0,$4
  12. bneq Ierr
  13. cvtlf (sp)+,-(sp)
  14. jmp (r1)
  15. Idbl:
  16. cmpl r0,$8
  17. bneq Ierr
  18. movl (sp)+,r0
  19. cmpl r0,$4
  20. bneq Ierr
  21. cvtld (sp)+,-(sp)
  22. jmp (r1)
  23. Ierr:
  24. pushl $EILLINS
  25. jmp .fat