cuf.s 531 B

1234567891011121314151617181920212223242526272829303132333435
  1. #include "em_abs.h"
  2. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  3. .define .cuf
  4. ! $Id$
  5. .cuf:
  6. movl (sp)+,r2
  7. movl (sp)+,r0
  8. movl (sp)+,r1
  9. cmpl r1,$4
  10. bneq Ierr
  11. cmpl r0,$4
  12. bneq Idld
  13. cvtld (sp)+,-(sp)
  14. bgeq Iout
  15. addd2 Itwo32F,(sp)
  16. Iout:
  17. cvtdf (sp)+,-(sp)
  18. jmp (r2)
  19. Idld:
  20. cmpl r0,$8
  21. bneq Ierr
  22. cvtld (sp)+,-(sp)
  23. bgeq Iout2
  24. addd2 Itwo32F,(sp)
  25. Iout2:
  26. jmp (r2)
  27. Ierr:
  28. pushl $EILLINS
  29. jmp .fat
  30. .sect .rom
  31. Itwo32F:
  32. .data1 0200,0120,00,00,00,00,00,00