.globl _rolc .text _rolc: ~rolc: jsr r5,csv ~x=4 movb 4(r5),r0 asl r0 movb 4(r5),r1 ash $-7,r1 bic $-2,r1 bis r1,r0 movb r0,r0 jmp cret .globl _rolca _rolca: ~rolca: jsr r5,csv ~x=4 ~sh=6 movb 4(r5),r0 mov $10,r1 sub 6(r5),r1 neg r1 ash r1,r0 mov $1,r1 ash 6(r5),r1 dec r1 com r1 bic r1,r0 movb 4(r5),r1 ash 6(r5),r1 bis r1,r0 movb r0,r0 jmp cret .globl _rolcb _rolcb: ~rolcb: jsr r5,csv ~x=4 ~sh=6 movb 4(r5),r0 mov 6(r5),r1 neg r1 bic $-10,r1 neg r1 ash r1,r0 mov $1,r1 ash 6(r5),r1 dec r1 com r1 bic r1,r0 movb 4(r5),r1 ash 6(r5),r1 bis r1,r0 movb r0,r0 jmp cret .globl _rolu _rolu: ~rolu: jsr r5,csv ~x=4 mov 4(r5),r1 clr r0 ashc $-17,r0 mov 4(r5),r2 asl r2 bis r2,r1 mov r1,r0 jmp cret .globl _rolua _rolua: ~rolua: jsr r5,csv ~x=4 ~sh=6 mov 4(r5),r1 clr r0 mov $20,r2 sub 6(r5),r2 neg r2 ashc r2,r0 mov 4(r5),r2 ash 6(r5),r2 bis r2,r1 mov r1,r0 jmp cret .globl _rolub _rolub: ~rolub: jsr r5,csv ~x=4 ~sh=6 mov 4(r5),r1 clr r0 mov 6(r5),r2 neg r2 bic $-20,r2 neg r2 ashc r2,r0 mov 4(r5),r2 ash 6(r5),r2 bis r2,r1 mov r1,r0 jmp cret .globl .data