rck.s 183 B

12345678910111213141516
  1. .define rck
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. rck:
  8. ld R0, RR14($4)
  9. cp R0, 0(R1)
  10. jr LT, 1f
  11. cp R0, 2(R1)
  12. jr LE, 2f
  13. 1: push *RR14, $ERANGE
  14. calr trp
  15. 2: ret