Run_Begin movlw .6 ; A
movwf Pointer
movlw .6
movwf Width
call Shift_Char_Loop
movlw .12 ; B
movwf Pointer
movlw .6
movwf Width
call Shift_Char_Loop
movlw .18 ; C
movwf Pointer
movlw .6
movwf Width
call Shift_Char_Loop
goto Run_Begin
Shift_Char_Loop btfss Flag_Register,End_Frame ; update the string after each frame
goto $-1
bcf Flag_Register,End_Frame
;
call Make_Shift_Left
return
Make_Shift_Left movf Col_2,W
movwf Col_1
movf Col_3,W
movwf Col_2
movf Col_4,W
movwf Col_3
movf Col_5,W
movwf Col_4
movf Col_6,W
movwf Col_5
movf Col_7,W
movwf Col_6
movf Col_8,W
movwf Col_7
movf Col_9,W
movwf Col_8
movf Col_10,W
movwf Col_9
movf Col_11,W
movwf Col_10
movf Col_12,W
movwf Col_11
movf Col_13,W
movwf Col_12
movf Col_14,W
movwf Col_13
movf Col_15,W
movwf Col_14
movf Col_16,W
movwf Col_15
movf Col_17,W
movwf Col_16
movf Col_18,W
movwf Col_17
movf Col_19,W
movwf Col_18
movf Col_20,W
movwf Col_19
movf Col_21,W
movwf Col_20
movf Col_22,W
movwf Col_21
movf Col_23,W
movwf Col_22
movf Col_24,W
movwf Col_23
movf Col_25,W
movwf Col_24
movf Col_26,W
movwf Col_25
movf Col_27,W
movwf Col_26
movf Col_28,W
movwf Col_27
movf Col_29,W
movwf Col_28
movf Col_30,W
movwf Col_29
movf Col_31,W
movwf Col_30
movf Col_32,W
movwf Col_31
movf Col_33,W
movwf Col_32
movf Col_34,W
movwf Col_33
movf Col_35,W
movwf Col_34
movf Col_36,W
movwf Col_35
movf Col_37,W
movwf Col_36
movf Col_38,W
movwf Col_37
movf Col_39,W
movwf Col_38
movf Col_40,W
movwf Col_39
movf Col_41,W
movwf Col_40
movf Col_42,W
movwf Col_41
movf Col_43,W
movwf Col_42
movf Col_44,W
movwf Col_43
movf Col_45,W
movwf Col_44
movf Col_46,W
movwf Col_45
movf Col_47,W
movwf Col_46
movf Col_48,W
movwf Col_47
;
bsf STATUS,RP0 ; B1
movf Col_49,W
bcf STATUS,RP0 ; B0
movwf Col_48
bsf STATUS,RP0 ; B1
;
movf Col_50,W
movwf Col_49
movf Col_51,W
movwf Col_50
movf Col_52,W
movwf Col_51
movf Col_53,W
movwf Col_52
movf Col_54,W
movwf Col_53
movf Col_55,W
movwf Col_54
movf Col_56,W
movwf Col_55
movf Col_57,W
movwf Col_56
movf Col_58,W
movwf Col_57
movf Col_59,W
movwf Col_58
movf Col_60,W
movwf Col_59
movf Col_61,W
movwf Col_60
movf Col_62,W
movwf Col_61
movf Col_63,W
movwf Col_62
movf Col_64,W
movwf Col_63
movf Col_65,W
movwf Col_64
movf Col_66,W
movwf Col_65
movf Col_67,W
movwf Col_66
movf Col_68,W
movwf Col_67
movf Col_69,W
movwf Col_68
movf Col_70,W
movwf Col_69
movf Col_71,W
movwf Col_70
movf Col_72,W
movwf Col_71
movf Col_73,W
movwf Col_72
movf Col_74,W
movwf Col_73
movf Col_75,W
movwf Col_74
movf Col_76,W
movwf Col_75
movf Col_77,W
movwf Col_76
movf Col_78,W
movwf Col_77
movf Col_79,W
movwf Col_78
movf Col_80,W
movwf Col_79
movf Col_81,W
movwf Col_80
movf Col_82,W
movwf Col_81
movf Col_83,W
movwf Col_82
movf Col_84,W
movwf Col_83
movf Col_85,W
movwf Col_84
movf Col_86,W
movwf Col_85
movf Col_87,W
movwf Col_86
movf Col_88,W
movwf Col_87
movf Col_89,W
movwf Col_88
movf Col_90,W
movwf Col_89
movf Col_91,W
movwf Col_90
movf Col_92,W
movwf Col_91
movf Col_93,W
movwf Col_92
movf Col_94,W
movwf Col_93
movf Col_95,W
movwf Col_94
movf Col_96,W
movwf Col_95
;
bcf STATUS,RP0 ; B0
movf Buffer_97,W
bsf STATUS,RP0 ; B1
movwf Col_96
bcf STATUS,RP0 ; B0
return