LIST P=PIC16F73
#INCLUDE"P16F73.INC"
CBLOCK 0X20
INDEX,R0,R1,TEMP1,TEMP2,TEMP3
ENDC
ORG 0X00
MOVLW 0X00
MOVWF INDEX
MOVLW 0X30
MOVWF FSR
MOVLW 0X0A
MOVWF R0
MOVWF R1
CLRW
AGAIN:CALL TKE
MOVWF INDF
INCF FSR,1
DECFSZ R0,1
GOTO AGAIN
GOTO LAST
TKE:MOVF INDEX ,W
INCF INDEX,1
ADDWF PCL,1
DT 8,5,4,1,3,10,7,2,9,6
LAST:MOVLW 0X30
MOVWF FSR
MOVLW 0X0A
MOVWF R0
AGAIN1:DECFSZ R0,1
GOTO AGAIN2
GOTO LAST1
AGAIN2: MOVF INDF,W
MOVWF TEMP1
INCF FSR,1
MOVF FSR,0
MOVWF TEMP3
MOVF INDF,W
MOVWF TEMP2
SUBWF TEMP1,0
BTFSC STATUS,0
GOTO AGAIN1
MOVF TEMP1,W
MOVWF INDF
MOVF TEMP2,W
DECF FSR,1
MOVWF INDF
MOVF TEMP3,W
MOVWF FSR
GOTO AGAIN1
LAST1:DECFSZ R1,1
GOTO LAST
GOTO $
END