fef.s 441 B

12345678910111213141516171819202122232425262728293031323334353637
  1. #include "em_abs.h"
  2. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  3. .define .fef
  4. ! $Id$
  5. .fef:
  6. movl (sp)+,r3
  7. cmpl r0,$4
  8. bneq I1
  9. cvtfd (sp),r0
  10. jsb Ihulp
  11. cvtdf r0,(sp)
  12. movl r2,-(sp)
  13. jmp (r3)
  14. I1:
  15. cmpl r0,$8
  16. bneq I2
  17. movd (sp),r0
  18. jsb Ihulp
  19. movd r0,(sp)
  20. movl r2,-(sp)
  21. jmp (r3)
  22. I2:
  23. pushl $EILLINS
  24. jmp .fat
  25. Ihulp:
  26. tstd r0
  27. bneq 1f
  28. clrl r2
  29. rsb
  30. 1:
  31. extzv $7,$8,r0,r2
  32. subl2 $128,r2
  33. insv $128,$7,$8,r0
  34. rsb