cmf8.s 349 B

1234567891011121314151617181920212223242526
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. .define cmf8
  4. cmf8:
  5. move.l (sp)+,a1
  6. lea (8,sp),a0
  7. move.l (a0),d0
  8. move.l (4,a0),d1
  9. move.l (sp)+,(a0)
  10. move.l (sp)+,(4,a0)
  11. move.l a1,-(sp)
  12. jsr (Fcmpd)
  13. blt 1f
  14. bgt 2f
  15. clr.l (8,sp)
  16. 3:
  17. move.l (sp)+,a1
  18. tst.l (sp)+
  19. jmp (a1)
  20. 1:
  21. move.l #-1,(8,sp)
  22. bra 3b
  23. 2:
  24. move.l #1,(8,sp)
  25. bra 3b