cff.s 363 B

1234567891011121314151617181920212223242526
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. .define cff
  4. cff:
  5. move.l (sp)+,a0
  6. move.l (sp)+,d1
  7. move.l (sp)+,d0
  8. cmp.l d0,d1
  9. beq 2f
  10. cmp.l #4,d0
  11. bne 1f
  12. move.l (sp),d0
  13. tst.l -(sp)
  14. move.l a0,-(sp)
  15. jsr (Fstod)
  16. move.l d0,(4,sp)
  17. move.l d1,(8,sp)
  18. 2:
  19. rts
  20. 1:
  21. move.l (sp),d0
  22. move.l (4,sp),d1
  23. move.l a0,(sp)
  24. jsr (Fdtos)
  25. move.l d0,(4,sp)
  26. rts