inn.s 274 B

1234567891011121314151617181920
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .define .inn
  3. ! $Id$
  4. ! bytes in r0
  5. .inn:
  6. movl (sp)+,r3
  7. movl (sp)+,r1
  8. ashl $3,r0,r2 ! nr of bits in r2
  9. cmpl r1,r2
  10. bgequ I2
  11. bbc r1,(sp),I2
  12. movl $1,r1
  13. I1:
  14. addl2 r0,sp
  15. jmp (r3)
  16. I2:
  17. clrl r1
  18. br I1