fif.s 428 B

123456789101112131415161718192021222324252627
  1. #include "em_abs.h"
  2. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  3. .define .fif
  4. ! $Id$
  5. .sect .rom
  6. Ione: .data1 0200, 077, 00, 00, 00, 00, 00, 00
  7. .fif:
  8. movl (sp)+,r2
  9. cmpl r0,$4
  10. bneq I1
  11. mulf3 (sp)+,(sp)+,r0
  12. emodf r0,$0,Ione,r1,-(sp)
  13. subf3 (sp),r0,-(sp)
  14. jmp (r2)
  15. I1:
  16. cmpl r0,$8
  17. bneq I2
  18. muld3 (sp)+,(sp)+,r0
  19. emodd r0,$0,Ione,r0,-(sp)
  20. subd3 (sp),r0,-(sp)
  21. jmp (r2)
  22. I2:
  23. pushl $EILLINS
  24. jmp .fat