*= $1000
LEFT     LDA BEG
         STA NBEG
         CLC
         ADC #$38
         STA $FB
         LDA BEG+1
         STA NBEG+1
         CLC
         ADC #$01
         STA $FC
OLOP     SEC
         LDA NBEG
         STA $FD
         LDA NBEG+1
         STA $FE
         LDX #$28
         LDY #$00
         LDA ($FD),Y
         ROL A
         PHP
LOOP     PLP
         LDA ($FB),Y
         ROL A
         STA ($FB),Y
         PHP
         SEC
         LDA $FB
         SBC #$08
         STA $FB
         LDA $FC
         SBC #$00
         STA $FC
         DEX
         BNE LOOP
         PLP
         LDA NBEG
         CLC
         ADC #$01
         STA NBEG
         LDA NBEG+1
         ADC #$00
         STA NBEG+1
         LDA NBEG
         AND #$08
         CMP #$08
         BNE SKIP
         LDA NBEG
         CLC
         ADC #$38
         STA NBEG
         LDA NBEG+1
         ADC #$01
         STA NBEG+1
SKIP     LDA NBEG+1
         CMP #$3F
         BCS GETOUT
         CLC
         LDA NBEG
         ADC #$38
         STA $FB
         CLC
         LDA NBEG+1
         ADC #$01
         STA $FC
         LDA #$00
         BEQ OLOP
GETOUT   RTS
RIGHT    LDA BEG
         STA $FB
         STA NBEG
         LDA BEG+1
         STA $FC
         STA NBEG+1
OLOP1    CLC
         LDA $FB
         ADC #$38
         STA $FD
         LDA $FC
         ADC #$01
         STA $FE
         LDX #$28
         LDY #$00
         LDA ($FD),Y
         ROR A
         PHP
LOOP2    PLP
         LDA ($FB),Y
         ROR A
         STA ($FB),Y
         PHP
         CLC
         LDA $FB
         ADC #$08
         STA $FB
         LDA $FC
         ADC #$00
         STA $FC
         DEX
         BNE LOOP2
         PLP
         LDA NBEG
         CLC
         ADC #$01
         STA NBEG
         LDA NBEG+1
         ADC #$00
         STA NBEG+1
         LDA NBEG
         AND #$08
         CMP #$08
         BNE SKIP1
         LDA NBEG
         CLC
         ADC #$38
         STA NBEG
         LDA NBEG+1
         ADC #$01
         STA NBEG+1
SKIP1    LDA NBEG+1
         CMP #$3F
         BEQ GETOUT1
         LDA NBEG
         STA $FB
         LDA NBEG+1
         STA $FC
         LDA #$00
         BEQ OLOP1
GETOUT1  RTS
NBEG     .BYTE $00,$00
BEG      .BYTE $00,$20