cms.s 247 B

123456789101112131415161718
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .define .cms
  3. ! $Id$
  4. ! bytes in r0
  5. .cms:
  6. movl (sp)+,r3
  7. addl3 sp,r0,r1
  8. addl3 r1,r0,r2
  9. ashl $-2,r0,r0
  10. I1:
  11. cmpl (sp)+,(r1)+
  12. bneq I2
  13. sobgtr r0,I1
  14. I2:
  15. movl r2,sp
  16. jmp (r3)