cmi.s 235 B

12345678910111213141516171819202122
  1. .define .cmi, .cmi_
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. ! NUM == 4
  7. ! result in d1
  8. .sect .text
  9. .cmi:
  10. .cmi_:
  11. move.l (sp)+,a0
  12. move.l #1,d1
  13. move.l (sp)+,d0
  14. cmp.l (sp)+,d0
  15. bne 1f
  16. clr d1
  17. 1:
  18. ble 2f
  19. neg d1
  20. 2:
  21. jmp (a0)