csa4.s 394 B

1234567891011121314151617181920212223
  1. #include "em_abs.h"
  2. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  3. .define .csa4
  4. ! $Id$
  5. .csa4:
  6. movl (sp)+,r0 ! descriptor address
  7. movl (sp)+,r1 ! index
  8. movl (r0)+,r2 ! default
  9. subl2 (r0)+,r1
  10. cmpl (r0)+,r1
  11. blssu I1
  12. movl (r0)[r1],r1
  13. bneq I2
  14. I1:
  15. movl r2,r1
  16. bneq I2
  17. pushl $ECASE
  18. jmp .fat
  19. I2:
  20. jmp (r1)