globl _rolc .text _rolc: ~rolc: jsr r5,csv ~x=4 jbr L1 L2:movb 4(r5),r0 asl r0 movb 4(r5),r1 ash $-7,r1 bic $-2,r1 bis r1,r0 movb r0,r0 jbr L3 L3:jmp cret L1:jbr L2 .globl _rolca .text _rolca: ~rolca: jsr r5,csv ~x=4 ~sh=6 jbr L4 L5: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 jbr L6 L6:jmp cret L4:jbr L5 .globl _rolcb .text _rolcb: ~rolcb: jsr r5,csv ~x=4 ~sh=6 jbr L7 L8: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 jbr L9 L9:jmp cret L7:jbr L8 .globl _rolu .text _rolu: ~rolu: jsr r5,csv ~x=4 jbr L10 L11:mov 4(r5),r1 clr r0 ashc $-17,r0 mov 4(r5),r2 asl r2 bis r2,r1 mov r1,r0 jbr L12 L12:jmp cret L10:jbr L11 .globl _rolua .text _rolua: ~rolua: jsr r5,csv ~x=4 ~sh=6 jbr L13 L14: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 jbr L15 L15:jmp cret L13:jbr L14 .globl _rolub .text _rolub: ~rolub: jsr r5,csv ~x=4 ~sh=6 jbr L16 L17: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 jbr L18 L18:jmp cret L16:jbr L17 .globl .data