savnik
12-01-06, 12:33
το παρακατω ειναι κωδικας για το pic η κατι αλλο (δεν το εβαλα ολο γιατι ειναι πολυ μεγαλο)
LIST P=16F628, F=INHX8M
include "P16F628.inc"
__CONFIG 0x3D61
ORG 0x0000
GOTO Label_0001
ORG 0x0004
GOTO Label_0002
GOTO Label_0003
Label_007A CLRF PCLATH
MOVWF PCL
Label_0001 MOVLW 0xFF
MOVWF 0x21
MOVLW 0xFF
MOVWF 0x22
CALL Label_0004
MOVLW 0x0A
CALL Label_0005
BCF 0x23 , 02
CALL Label_0006
MOVLW 0x03
CALL Label_0007
MOVLW 0x32
CALL Label_0008
MOVLW 0x03
CALL Label_0007
MOVLW 0x32
CALL Label_0008
MOVLW 0x03
CALL Label_0007
MOVLW 0x32
CALL Label_0008
MOVLW 0x32
CALL Label_0009
MOVLW 0x28
CALL Label_0009
BCF 0x22 , 04
CALL Label_000A
BCF 0x22 , 05
CALL Label_000B
BCF 0x22 , 06
CALL Label_000C
BSF 0x21 , 04
CALL Label_000D
BSF 0x22 , 07
CALL Label_000E
BSF 0x21 , 00
CALL Label_000F
BSF 0x21 , 01
CALL Label_0010
CLRF 0x25
MOVLW 0x0A
MOVWF 0x26
CLRF 0x27
MOVLW 0x0A
MOVWF 0x28
CLRF 0x29
MOVLW 0x0F
MOVWF 0x2A
MOVLW 0x07
MOVWF CMCON
CALL Label_0011
BTFSS PORTA , 00
GOTO Label_0012
BTFSS PORTA , 01
GOTO Label_0012
CLRF 0x37
CLRF 0x36
CALL Label_0013
Label_0012 CALL Label_0011
MOVLW 0x01
CALL Label_0014
MOVLW 0x66
CALL Label_0015
MOVLW 0x72
CALL Label_0015
LIST P=16F628, F=INHX8M
include "P16F628.inc"
__CONFIG 0x3D61
ORG 0x0000
GOTO Label_0001
ORG 0x0004
GOTO Label_0002
GOTO Label_0003
Label_007A CLRF PCLATH
MOVWF PCL
Label_0001 MOVLW 0xFF
MOVWF 0x21
MOVLW 0xFF
MOVWF 0x22
CALL Label_0004
MOVLW 0x0A
CALL Label_0005
BCF 0x23 , 02
CALL Label_0006
MOVLW 0x03
CALL Label_0007
MOVLW 0x32
CALL Label_0008
MOVLW 0x03
CALL Label_0007
MOVLW 0x32
CALL Label_0008
MOVLW 0x03
CALL Label_0007
MOVLW 0x32
CALL Label_0008
MOVLW 0x32
CALL Label_0009
MOVLW 0x28
CALL Label_0009
BCF 0x22 , 04
CALL Label_000A
BCF 0x22 , 05
CALL Label_000B
BCF 0x22 , 06
CALL Label_000C
BSF 0x21 , 04
CALL Label_000D
BSF 0x22 , 07
CALL Label_000E
BSF 0x21 , 00
CALL Label_000F
BSF 0x21 , 01
CALL Label_0010
CLRF 0x25
MOVLW 0x0A
MOVWF 0x26
CLRF 0x27
MOVLW 0x0A
MOVWF 0x28
CLRF 0x29
MOVLW 0x0F
MOVWF 0x2A
MOVLW 0x07
MOVWF CMCON
CALL Label_0011
BTFSS PORTA , 00
GOTO Label_0012
BTFSS PORTA , 01
GOTO Label_0012
CLRF 0x37
CLRF 0x36
CALL Label_0013
Label_0012 CALL Label_0011
MOVLW 0x01
CALL Label_0014
MOVLW 0x66
CALL Label_0015
MOVLW 0x72
CALL Label_0015