cmf4.s 249 B

1234567891011121314151617181920
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. .define cmf4
  4. cmf4:
  5. move.l (sp)+,a0
  6. move.l (sp)+,d1
  7. move.l (sp),d0
  8. move.l a0,-(sp)
  9. jsr (Fcmps)
  10. blt 1f
  11. bgt 2f
  12. clr.l (4,sp)
  13. rts
  14. 1:
  15. move.l #-1,(4,sp)
  16. rts
  17. 2:
  18. move.l #1,(4,sp)
  19. rts