com.s 216 B

1234567891011121314
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .define .com
  3. ! $Id$
  4. ! bytes in r0
  5. .com:
  6. movl (sp)+,r2
  7. movl sp,r1
  8. ashl $-2,r0,r0
  9. I1:
  10. mcoml (r1),(r1)+
  11. sobgtr r0,I1
  12. jmp (r2)