START
movlw b'00000'
TRIS PORTA
movlw b'00000000'
TRIS PORTB
MAIN
movlw .0
movwf control1
movlw .1
movwf control2
movlw .2
movwf control3
movlw .3
movwf control4
movlw .4
movwf control5
movlw .5
movwf control6
movlw .6
movwf control7
movlw .10
movwf counter
NEXT
movlw .250
movwf VAR
movwf VAR2
LOOP
movlw .1
movwf PORTB
movf control1,w
call decode
movwf PORTA
movlw .31
movwf PORTA
movlw .2
movwf PORTB
movf control2,w
call decode
movwf PORTA
movlw .31
movwf PORTA
movlw .4
movwf PORTB
movf control3,w
call decode
movwf PORTA
movlw .31
movwf PORTA
movlw .8
movwf PORTB
movf control4,w
call decode
movwf PORTA
movlw .31
movwf PORTA
movlw .16
movwf PORTB
movf control5,w
call decode
movwf PORTA
movlw .31
movwf PORTA
movlw .32
movwf PORTB
movf control6,w
call decode
movwf PORTA
movlw .31
movwf PORTA
movlw .64
movwf PORTB
movf control7,w
call decode
movwf PORTA
movlw .31
movwf PORTA
decfsz VAR,f
goto LOOP
movlw .30
movwf VAR
decfsz VAR2,f
goto LOOP
movlw .7
addwf control1
addwf control2
addwf control3
addwf control4
addwf control5
addwf control6
addwf control7
decfsz counter,f
goto NEXT
goto MAIN
decode
addwf PCL,f
;NUMBER 9
Retlw b'11111'
Retlw b'11111'
Retlw b'00011'
Retlw b'01011'
Retlw b'00000'
Retlw b'11111'
Retlw b'11111'
;ROTATE NUMBER 8
Retlw b'10001'
Retlw b'01110'
Retlw b'01110'
Retlw b'00000'
Retlw b'01110'
Retlw b'01110'
Retlw b'10001'
;ROTATE NUMBER 7
Retlw b'11111'
Retlw b'11111'
Retlw b'11110'
Retlw b'11110'
Retlw b'00000'
Retlw b'11111'
Retlw b'11111'
;ROTATE NUMBER 6
Retlw b'11011'
Retlw b'10111'
Retlw b'01111'
Retlw b'00001'
Retlw b'01110'
Retlw b'01110'
Retlw b'10001'
;ROTATE NUMBER 5
Retlw b'11111'
Retlw b'11111'
Retlw b'00010'
Retlw b'01010'
Retlw b'01000'
Retlw b'11111'
Retlw b'11111'
;ROTATE NUMBER 4
Retlw b'01111'
Retlw b'01111'
Retlw b'01111'
Retlw b'00000'
Retlw b'01110'
Retlw b'01110'
Retlw b'01110'
;ROTATE NUMBER 3
Retlw b'11111'
Retlw b'11111'
Retlw b'00000'
Retlw b'01010'
Retlw b'01010'
Retlw b'11111'
Retlw b'11111'
;ROTATE NUMBER 2
Retlw b'10001'
Retlw b'01110'
Retlw b'11101'
Retlw b'11011'
Retlw b'10111'
Retlw b'01111'
Retlw b'00000'
;ROTATE 1
Retlw b'11111'
Retlw b'11111'
Retlw b'11111'
Retlw b'11111'
Retlw b'00000'
Retlw b'11111'
Retlw b'11111'
;ZERO
Retlw b'10001'
Retlw b'01110'
Retlw b'01110'
Retlw b'01110'
Retlw b'01110'
Retlw b'01110'
Retlw b'10001'
END