rck4.s 306 B

1234567891011121314151617181920
  1. #include "em_abs.h"
  2. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  3. .define .rck4
  4. ! $Id$
  5. .rck4:
  6. movl (sp)+,r1
  7. movl (sp)+,r0
  8. cmpl (sp),(r0) ! compare lower bound
  9. blss Ierr
  10. cmpl (sp),4(r0) ! compare upper bound
  11. bgtr Ierr
  12. jmp (r1)
  13. Ierr:
  14. pushl r1
  15. pushl $ERANGE
  16. jsb .trp
  17. rsb