cif.s 337 B

1234567891011121314151617181920212223
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. .define cif
  4. cif:
  5. move.l (sp)+,a0
  6. move.l (sp)+,d1
  7. move.l (sp)+,d0 ! should be 4
  8. cmp.l #4,d1
  9. bne 1f
  10. move.l (sp),d0
  11. move.l a0,-(sp)
  12. jsr (Fflts)
  13. move.l d0,(4,sp)
  14. rts
  15. 1:
  16. move.l (sp),d0
  17. tst.l -(sp)
  18. move.l a0,-(sp)
  19. jsr (Ffltd)
  20. move.l d1,(8,sp)
  21. move.l d0,(4,sp)
  22. rts