rck.s 195 B

12345678910111213141516171819
  1. .define .rck
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .sect .text
  8. .rck:
  9. cmpd 0(4(sp)), 8(sp)
  10. bgt 1f
  11. cmpd 4(4(sp)), 8(sp)
  12. bge 2f
  13. 1:
  14. movd ERANGE, tos
  15. jsr @.trp
  16. 2:
  17. ret 4