ior.s 207 B

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