cmand.s 212 B

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