rck.s 234 B

1234567891011121314151617
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .sect .text
  3. .define rck~
  4. .extern trp~
  5. ! $Id$
  6. ERANGE = 1
  7. rck~:
  8. mov (sp)+,r1
  9. cmp (sp),(r0)
  10. blt 1f
  11. cmp (sp),02(r0)
  12. ble 2f
  13. 1: mov $ERANGE,-(sp)
  14. jsr pc,trp~
  15. 2: jmp (r1)