lxl.s 219 B

12345678910111213141516
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .define .lxl
  3. ! $Id$
  4. ! nlevels in r0 (>=2)
  5. .lxl:
  6. pushl r0
  7. decl (sp)
  8. movl 4(ap),r0
  9. I1:
  10. jsb .lpb
  11. movl (r0),r0
  12. sobgtr (sp),I1
  13. tstl (sp)+
  14. rsb