ror.s 280 B

1234567891011121314151617181920
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .sect .text
  3. .define ror~
  4. .extern save~,retu~
  5. ! $Id$
  6. ror~:
  7. asr r0
  8. jsr pc,save~
  9. mov (sp)+,r3
  10. 3: mov sp,r1
  11. mov r0,-(sp)
  12. clc
  13. 1: ror (r1)+
  14. sob r0,1b
  15. bcc 2f
  16. bis $0100000,02(sp)
  17. 2: mov (sp)+,r0
  18. sob r3,3b
  19. jmp retu~