and.s 208 B

123456789101112131415
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .sect .text
  3. .define and~
  4. ! $Id$
  5. ! size in r0
  6. and~:
  7. mov (sp)+,r3
  8. mov sp,r1
  9. add r0,r1
  10. asr r0
  11. 1: com (sp)
  12. bic (sp)+,(r1)+
  13. sob r0,1b
  14. jmp (r3)