set.s 366 B

1234567891011121314151617181920212223242526
  1. #include "em_abs.h"
  2. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  3. .define .setx
  4. ! $Id$
  5. ! bytes in r0
  6. .setx:
  7. movl (sp)+,r3
  8. movl (sp)+,r1 ! bitnumber in r1
  9. subl3 r0,sp,r2
  10. I1:
  11. clrl -(sp)
  12. cmpl sp,r2
  13. bgtru I1
  14. ashl $3,r0,r2 ! number of bits in r2
  15. cmpl r1,r2
  16. bgequ I2
  17. bbcs r1,(sp),I3
  18. I3:
  19. jmp (r3)
  20. I2:
  21. pushl $ESET
  22. jsb .trp
  23. jmp (r3)