السلام عليكم ورحمة الله وبركاته
هل هناك شخص يساعدني على طريقة ترجمة هذا الكود للوضه داخل البيك
Le programme chargé dans la mémoire du PIC utilisé contient les instructions
suivantes (en langage BASIC) :
config _XT_OSC&_WDT_OFF&_LVP_OFF\lang1036
REGISTRES REG_16F628 ; pour le PIC16F628
;(1)Définition des variables et tableaux
VAR APPUI
VAR DONNEE
VAR ADRESSE
VAR NB_IMPUL
VAR VB1
VAR VB2
VAR I
; Initialisation
ORG 0
CMCON=7
BSF STATUS,RP0 // Accès à la page 1 de la RAM
TRISA= 0 // Toutes les broches du port A sont configurées comme sorties
TRISB=% 0 1 0 1 1111 // Toutes les broches du port B en entrée sauf RB5 et
RB7
BCF \f1 OPTION_REG ,7 // Activer les résistances de PULL UP avec le bit 7
BCF STATUS,RP0 // Accès à la page 0 de la RAM
BCF PORTA, 2 // Bloquer le transistor
; Le programme principal
PRIN INTCON=%00001000 // Configurer le pic pour qu’il se réveille si on appuie sur
un bouton
CLRF PORTB
BCF PORTA, 2
SLEEP
BSF PORTB,5 // La LED s’allume comme un voyant d’émission
LA_ICI GOSUB BOUTON
IF APPUI<>0 THEN
GOSUB ENV_CODE
ENDIF
IF APPUI=1 THEN
GOTO LA_ICI
ENDIF
GOTO PRIN
; Gestion des boutons
BOUTON APPUI=1
BTFSS PORTB,4
GOTO TOUCHE_ON
BTFSS PORTB,6
GOTO TOUCHE_OFF
APPUI=0
GOTO FIN_B
TOUCHE_ON DONNEE=0
GOTO FIN_B
TOUCHE_OFF DONNEE=3
FIN_B
RETURN
; Envoi des 7 bits de la trame
; Envoi du start
ENV_CODE GOSUB ENVOI_1
; Envoi de l'adresse
ADRESSE=PORTB &15
FOR I=1 TO 4
RRF ADRESSE,1
BTFSC STATUS,C
GOSUB ENVOI_1
BTFSS STATUS,C
GOSUB ENVOI_0
NEXT I
; Envoi de la donnée
FOR I=1 TO 2
RRF DONNEE ,1
BTFSC STATUS,C
GOSUB ENVOI_1
BTFSS STATUS,C
GOSUB ENVOI_0
NEXT I
; Envoi du stop
GOSUB ENVOI_0
FOR I=1 to 9
GOSUB CYCLE 4m
NEXT I
RETURN
; Sous-programme d'envoi d'un 1
ENVOI_1 NB_IMPUL= 100
BCL_1 BSF PORTA, 2
NOP
NOP
NOP
NOP
BCF PORTA, 2
NOP
DECFSZ NB_IMPUL,1
GOTO BCL_1
GOSUB CYCLE8m
RETURN
; Sous-programme d'envoi d'un 0
ENVOI_0 NB_IMPUL= 100
BCL_2 BSF PORTA, 2
NOP
NOP
NOP
NOP
BCF PORTA,2
NOP
DECFSZ NB_IMPUL,1
GOTO BCL_2
GOSUB CYCLE 4m
RETURN
; Durée de 4000 cycles
CYCLE4m VB1= 40
BOUC1 VB2=32
BOUC2 DECFSZ VB2,1
GOTO BOUC2
DECFSZ VB1,1
GOTO BOUC1
RETURN
; Durée de 8000 cycles
CYCLE8m VB1= 80
BOUC3 VB2=32
BOUC4 DECFSZ VB2,1
GOTO BOUC4
DECFSZ VB1,1
GOTO BOUC3
RETURN
بحيث عند القيام بترجمته( compiled) يعطيني أخطاء
هل من مساعد
أريد المساعدة في تحويل هذا البرنامج إلى HEX
التحويل الى ميكرو سي
