Morph
movfw Speed2
movwf Loop
M0
call Frame2
decfsz Loop
goto M0
;
movfw Speed ; controls speed of rotattion
movwf LoopCount
M1
movfw LoopCount
movwf Trans1
sublw Speed+1 ;this is always plus 1
movwf Trans2
M2
call Frame1
decfsz Trans2,F
goto M2
M3
call Frame2
decfsz Trans1,F
goto M3
decfsz LoopCount
goto M1
return
;----------------------------------------------------
Frame1
Display C12,b'110000000000'
Display C11,b'011000000000'
Display C10,b'001100000000'
Display C9,b'000110000000'
Display C8,b'000011000000'
Display C7,b'000001100000'
Display C6,b'000000110000'
Display C5,b'000000011000'
Display C4,b'000000001100'
Display C3,b'000000000110'
Display C2,b'000000000011'
Display C1,b'100000000001'
return
;----------------------------------------------------
Frame2
Display C24,b'110000000000'
Display C23,b'011000000000'
Display C22,b'001100000000'
Display C21,b'000110000000'
Display C20,b'000011000000'
Display C19,b'000001100000'
Display C18,b'000000110000'
Display C17,b'000000011000'
Display C16,b'000000001100'
Display C15,b'000000000110'
Display C14,b'000000000011'
Display C13,b'100000000001'
return
;----------------------------------------------------