Zdravim,najde sa tu nejaky programator PIC16F84A?Potreboval by som spravit program.Pripadne vysvetlit co a ako.Takto nejak by to malo vyzerat:
Kód:
LIST P=16F84A, F=INHX8M
include "P16F84A.inc"
ORG 0x0000
Label_001A CALL Label_0001
CALL Label_0002
MOVLW 0x0F
OPTION
Label_0003 BTFSS PORTB , 07
GOTO Label_0003
CALL Label_0004
CALL Label_0005
Label_0007 CALL Label_0006
GOTO Label_0007
Label_0006 CALL Label_0008
MOVF 0x18 , W
XORLW 0x4C
BTFSC STATUS , Z
GOTO Label_0009
MOVF 0x18 , W
XORLW 0xC0
BTFSC STATUS , Z
GOTO Label_0009
MOVF 0x18 , W
XORLW 0xA2
BTFSC STATUS , Z
GOTO Label_0009
MOVF 0x18 , W
XORLW 0xA4
BTFSC STATUS , Z
GOTO Label_0009
MOVF 0x18 , W
XORLW 0xB0
BTFSC STATUS , Z
GOTO Label_0009
MOVF 0x18 , W
XORLW 0xB2
BTFSC STATUS , Z
GOTO Label_000A
MOVF 0x18 , W
XORLW 0xB8
BTFSC STATUS , Z
GOTO Label_0009
MOVF 0x18 , W
XORLW 0x20
BTFSC STATUS , Z
GOTO Label_000B
MOVF 0x18 , W
XORLW 0x24
BTFSC STATUS , Z
GOTO Label_000C
GOTO Label_000D
Label_000A MOVF 0x1B , W
XORLW 0x12
BTFSC STATUS , Z
GOTO Label_000E
GOTO Label_0009
Label_000C MOVF 0x1B , W
XORLW 0x08
BTFSC STATUS , Z
GOTO Label_0009
GOTO Label_000D
Label_000B MOVF 0x1B , W
XORLW 0x04
BTFSC STATUS , Z
GOTO Label_0009
GOTO Label_000D
Label_0009 MOVLW 0xA4
CALL Label_000F
MOVF 0x18 , W
CALL Label_000F
MOVF 0x19 , W
CALL Label_000F
MOVF 0x1A , W
CALL Label_000F
MOVF 0x1B , W
CALL Label_000F
MOVLW 0x01
MOVWF 0x11
CALL Label_0010
MOVWF 0x10
XORWF 0x18 , W
BTFSC STATUS , Z
GOTO Label_0011
CALL Label_0012
CALL Label_0013
RETURN
Label_0011 MOVF 0x1B , W
MOVWF 0x11
Label_0015 BTFSS PORTB , 07
GOTO Label_0014
BTFSC PORTB , 04
GOTO Label_0015
MOVLW 0x7D
MOVWF TMR0
MOVLW 0x02
ADDWF 0x11 , f
CALL Label_0016
CALL Label_0002
CALL Label_0002
RETURN
Label_0014 MOVLW 0x7D
MOVWF TMR0
CALL Label_0017
MOVLW 0x02
MOVWF 0x11
CALL Label_0010
RETURN
Label_000D MOVF 0x18 , W
CALL Label_0013
MOVF 0x1B , W
MOVWF 0x11
Label_0019 CALL Label_0018
DECFSZ 0x11 , f
GOTO Label_0019
MOVLW 0x90
CALL Label_0013
MOVLW 0x01
CALL Label_0013
RETURN
Label_0008 CALL Label_0018
XORLW 0xA4
BTFSS STATUS , Z
GOTO Label_001A
CALL Label_0018
MOVWF 0x18
CALL Label_0018
MOVWF 0x19
CALL Label_0018
MOVWF 0x1A
CALL Label_0018
MOVWF 0x1B
RETURN
Label_0016 BCF INTCON , T0IF
BSF STATUS , RP0
BSF TRISB , 04
BCF TRISB , 07
BCF STATUS , RP0
BCF PORTB , 07
GOTO Label_001B
Label_0010 BSF PORTB , 07
BSF STATUS , RP0
BSF TRISB , 04
BCF TRISB , 07
BCF STATUS , RP0
Label_001C BTFSC PORTB , 04
GOTO Label_001C
MOVLW 0x7D
MOVWF TMR0
BCF INTCON , T0IF
BCF PORTB , 07
Label_001B MOVLW 0x09
MOVWF 0x14
Label_001F BTFSC PORTB , 04
GOTO Label_001D
BCF PORTB , 07
GOTO Label_001E
Label_001D BSF PORTB , 07
Label_001E BTFSS INTCON , T0IF
GOTO Label_001F
MOVLW 0xA9
MOVWF TMR0
BCF INTCON , T0IF
BCF STATUS , C
BTFSC PORTB , 04
BSF STATUS , C
RRF 0x16 , f
DECFSZ 0x14 , f
GOTO Label_001F
RLF 0x16 , f
Label_0020 BTFSS PORTB , 04
GOTO Label_0020
BSF PORTB , 07
DECFSZ 0x11 , f
GOTO Label_001C
BSF PORTB , 07
BSF STATUS , RP0
BSF TRISB , 07
BCF STATUS , RP0
MOVF 0x16 , W
RETURN
Label_0017 BCF INTCON , T0IF
BSF STATUS , RP0
BCF TRISB , 04
BSF TRISB , 07
BCF STATUS , RP0
BCF PORTB , 04
GOTO Label_0021
BSF PORTB , 04
BSF STATUS , RP0
BCF TRISB , 04
BSF TRISB , 07
BCF STATUS , RP0
Label_0022 BTFSC PORTB , 07
GOTO Label_0022
BCF PORTB , 04
MOVLW 0x7D
MOVWF TMR0
BCF INTCON , T0IF
Label_0021 MOVLW 0x09
MOVWF 0x14
Label_0025 BTFSC PORTB , 07
GOTO Label_0023
BCF PORTB , 04
GOTO Label_0024
Label_0023 BSF PORTB , 04
Label_0024 BTFSS INTCON , T0IF
GOTO Label_0025
MOVLW 0xA9
MOVWF TMR0
BCF INTCON , T0IF
BCF STATUS , C
BTFSC PORTB , 07
BSF STATUS , C
RRF 0x16 , f
DECFSZ 0x14 , f
GOTO Label_0025
RLF 0x16 , f
Label_0026 BTFSS PORTB , 07
GOTO Label_0026
BSF PORTB , 04
DECFSZ 0x11 , f
GOTO Label_0022
BSF PORTB , 04
BSF STATUS , RP0
BSF TRISB , 04
BCF STATUS , RP0
MOVF 0x16 , W
RETURN
Label_0013 MOVWF 0x16
MOVLW 0x32
CALL Label_0027
BSF STATUS , RP0
BCF TRISB , 07
BCF STATUS , RP0
CLRF 0x17
BCF PORTB , 07
MOVLW 0x08
MOVWF 0x14
Label_002A CALL Label_0002
MOVF 0x16 , W
XORWF 0x17 , f
BTFSC 0x16 , 00
GOTO Label_0028
BCF PORTB , 07
GOTO Label_0029
Label_0028 BSF PORTB , 07
Label_0029 RRF 0x16 , f
DECFSZ 0x14 , f
GOTO Label_002A
CALL Label_0002
BCF PORTB , 07
BTFSC 0x17 , 00
BSF PORTB , 07
CALL Label_0002
BSF STATUS , RP0
BSF TRISB , 07
BCF STATUS , RP0
MOVLW 0x4F
GOTO Label_0027
Label_000F MOVWF 0x16
MOVLW 0x32
CALL Label_0027
BSF PORTB , 04
BSF STATUS , RP0
BCF TRISB , 04
BCF STATUS , RP0
CLRF 0x17
BCF PORTB , 04
MOVLW 0x08
MOVWF 0x14
Label_002D CALL Label_0002
MOVF 0x16 , W
XORWF 0x17 , f
BTFSC 0x16 , 00
GOTO Label_002B
BCF PORTB , 04
GOTO Label_002C
Label_002B BSF PORTB , 04
Label_002C RRF 0x16 , f
DECFSZ 0x14 , f
GOTO Label_002D
CALL Label_0002
BTFSC 0x17 , 00
GOTO Label_002E
BCF PORTB , 04
GOTO Label_002F
Label_002E BSF PORTB , 04
Label_002F CALL Label_0002
BSF PORTB , 04
BSF STATUS , RP0
BSF TRISB , 04
BCF STATUS , RP0
MOVLW 0x4F
GOTO Label_0027
Label_0018 BTFSC PORTB , 07
GOTO Label_0018
MOVLW 0x2A
CALL Label_0027
MOVLW 0x09
MOVWF 0x14
Label_0031 BCF STATUS , C
BTFSC PORTB , 07
BSF STATUS , C
RRF 0x16 , f
CALL Label_0030
DECFSZ 0x14 , f
GOTO Label_0031
RLF 0x16 , f
MOVLW 0x28
CALL Label_0027
MOVF 0x16 , W
RETURN
Label_0012 BTFSC PORTB , 04
GOTO Label_0012
MOVLW 0x25
CALL Label_0027
MOVLW 0x09
MOVWF 0x14
Label_0032 BCF STATUS , C
BTFSC PORTB , 04
BSF STATUS , C
RRF 0x16 , f
CALL Label_0002
DECFSZ 0x14 , f
GOTO Label_0032
RLF 0x16 , f
MOVLW 0x28
CALL Label_0027
MOVF 0x16 , W
Label_0033 BTFSS PORTB , 04
GOTO Label_0033
RETURN
Label_0034 BSF PORTB , 04
BSF PORTB , 07
BSF STATUS , RP0
BSF TRISB , 04
BCF TRISB , 07
BCF STATUS , RP0
BCF INTCON , RBIF
BTFSC PORTB , 04
GOTO Label_0034
MOVLW 0x2A
CALL Label_0027
MOVLW 0x09
MOVWF 0x14
Label_0035 BCF STATUS , C
BTFSC PORTB , 04
BSF STATUS , C
RRF 0x16 , f
CALL Label_0002
DECFSZ 0x14 , f
GOTO Label_0035
RLF 0x16 , f
MOVLW 0x28
CALL Label_0027
MOVF 0x16 , W
BSF PORTB , 04
BSF PORTB , 07
BSF STATUS , RP0
BSF TRISB , 07
BCF STATUS , RP0
RETURN
MOVWF EEADR
BSF STATUS , RP0
BSF EECON1 , 00
BCF STATUS , RP0
MOVF EEDATA , W
RETURN
Label_0002 MOVLW 0x1A
Label_0027 MOVWF EEDATA
Label_0036 DECFSZ EEDATA , f
GOTO Label_0036
RETURN
Label_0030 MOVLW 0x1A
MOVWF EEDATA
Label_0037 DECFSZ EEDATA , f
GOTO Label_0037
RETURN
Label_0001 MOVLW 0xFF
MOVWF PORTB
BSF STATUS , RP0
MOVLW 0xFB
MOVWF TRISB
BCF STATUS , RP0
RETURN
Label_0004 BCF PORTB , 02
MOVLW 0x01
MOVWF 0x10
Label_0038 MOVLW 0xFF
CALL Label_0027
DECFSZ 0x10 , f
GOTO Label_0038
BSF PORTB , 02
RETURN
Label_0005 MOVLW 0x3B
CALL Label_0013
CALL Label_0039
MOVLW 0x78
CALL Label_0013
MOVLW 0x11
CALL Label_0013
MOVLW 0x00
CALL Label_0013
MOVLW 0x00
CALL Label_0013
MOVLW 0x54
CALL Label_0013
MOVLW 0xC4
CALL Label_0013
MOVLW 0x02
CALL Label_0013
MOVLW 0x07
CALL Label_0013
MOVLW 0x8F
CALL Label_0013
MOVLW 0xF1
CALL Label_0013
Label_003A MOVLW 0xFF
Label_003B CALL Label_0027
DECFSZ 0x10 , f
GOTO Label_003A
MOVLW 0x90
CALL Label_0013
MOVLW 0x00
CALL Label_0013
RETURN
Label_000E CLRF 0x11
MOVF 0x18 , W
CALL Label_0013
MOVLW 0xC0
CALL Label_0013
MOVLW 0x10
CALL Label_0013
MOVLW 0x55
CALL Label_0013
MOVLW 0x50
CALL Label_0013
MOVLW 0x43
CALL Label_0013
MOVLW 0x34
CALL Label_0013
MOVLW 0x00
CALL Label_0013
MOVLW 0x00
CALL Label_0013
MOVLW 0x00
CALL Label_0013
MOVLW 0x00
CALL Label_0013
MOVLW 0x00
CALL Label_0013
MOVLW 0x00
CALL Label_0013
MOVLW 0x00
CALL Label_0013
MOVLW 0x00
CALL Label_0013
MOVLW 0x00
CALL Label_0013
MOVLW 0x00
CALL Label_0013
MOVLW 0x00
CALL Label_0013
MOVLW 0x00
CALL Label_0013
MOVLW 0x28
GOTO Label_003B
Label_0039 MOVLW 0x05
MOVWF 0x11
Label_003D MOVLW 0xFF
MOVWF 0x10
Label_003C MOVLW 0xFF
CALL Label_0027
DECFSZ 0x10 , f
GOTO Label_003C
DECFSZ 0x11 , f
GOTO Label_003D
RETURN
ORG 0x2000
DATA 0x0F
DATA 0x0F
DATA 0x0F
DATA 0x0F
ORG 0x2007
DATA 0x19
ORG 0x2100
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
END
no je potrebne to prerobit.