cuf.s 478 B

12345678910111213141516171819202122232425262728293031323334
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .define cuf
  3. .sect .rom
  4. L1: .data4 0x41f00000, 0x0
  5. .sect .text
  6. cuf:
  7. move.l (sp)+,a0
  8. move.l (sp)+,d1
  9. move.l (sp)+,d0 ! should be 4
  10. cmp.l #4,d1
  11. bne 1f
  12. move.l (sp),d0
  13. move.l a0,-(sp)
  14. jsr (Fflts)
  15. tst.l d0
  16. bpl 2f
  17. move.l #0x4f800000,d1
  18. jsr (Fadds)
  19. 2:
  20. move.l d0,(4,sp)
  21. rts
  22. 1:
  23. move.l (sp),d0
  24. tst.l -(sp)
  25. move.l a0,-(sp)
  26. jsr (Ffltd)
  27. tst.l d0
  28. bpl 2f
  29. lea (L1),a0
  30. jsr (Faddd)
  31. 2:
  32. move.l d1,(8,sp)
  33. move.l d0,(4,sp)
  34. rts