S_Right:
movf D23,W
movwf D24
movf D22,W
movwf D23
movf D21,W
movwf D22
movf D20,W
movwf D21
movf D19,W
movwf D20
movf D18,W
movwf D19
movf D17,W
movwf D18
movf D16,W
movwf D17
movf D15,W
movwf D16
movf D14,W
movwf D15
movf D13,W
movwf D14
movf D12,W
movwf D13
movf D11,W
movwf D12
movf D10,W
movwf D11
movf D9,W
movwf D10
movf D8,W
movwf D9
movf D7,W
movwf D8
movf D6,W
movwf D7
movf D5,W
movwf D6
movf D4,W
movwf D5
movf D3,W
movwf D4
movf D2,W
movwf D3
movf D1,W
movwf D2
movf New_Data,W
movwf D1
return