cmi4.s 245 B

12345678910111213141516171819202122
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .sect .text
  3. .define cmi4~
  4. ! $Id$
  5. cmi4~:
  6. mov (sp)+,r1
  7. clr r0
  8. cmp (sp),4(sp)
  9. bgt 1f
  10. blt 2f
  11. cmp 2(sp),6(sp)
  12. bhi 1f
  13. beq 3f
  14. 2:
  15. inc r0
  16. br 3f
  17. 1:
  18. dec r0
  19. 3:
  20. add $010,sp
  21. jmp (r1)