ciu.s 233 B

123456789101112131415
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .sect .text
  3. .define cuu~
  4. ! $Id$
  5. cuu~:
  6. mov (sp)+,r1
  7. mov (sp)+,r0
  8. sub (sp)+,r0
  9. ble 1f
  10. asr r0
  11. 2: clr -(sp)
  12. sob r0,2b
  13. 1: sub r0,sp ! if out of sob loop r0==0
  14. jmp (r1)