Specifications

SRLIREVALEUR LDA #$00 ; choisi canal 0
; et active Conv
STA ACR
LOOPAN0 BRCLR 7,ACR,LOOPAN0
LDA ARR
STA VALEUR ; sauve valeur
RTS
***************************************************
* Sous Routine: TRANSMETTRE TRAME *
* *
***************************************************
SRMSG1 LDA #'A' ; BIT DE VERIFICATION
JSR SRUARTXCAR ; affiche 1 caractere
JSR SRDELAI
LDA #'B' ; BIT DE VERIFICATION
JSR SRUARTXCAR ; affiche 1 caractere
JSR SRDELAI
LDA #'C' ; BIT DE VERIFICATION
JSR SRUARTXCAR ; affiche 1 caractere
JSR SRDELAI
LDA #'D' ; BIT DE VERIFICATION
JSR SRUARTXCAR ; affiche 1 caractere
JSR SRDELAI
LDA VALEUR ; ENVOIE TEMPÉRATURE
JSR SRUARTXCAR ; affiche 1 caractere
JSR SRDELAI
LDA CAPTEUR ; ÉTAT DES CAPTEURS
ADD #$30
JSR SRUARTXCAR ; affiche 1 caractere
JSR SRDELAI
LDA ALARME ; ETAT DES ALARMES
JSR SRUARTXCAR ; affiche 1 caractere
JSR SRDELAI
LDA #'E' ; BIT DE FIN
JSR SRUARTXCAR ; affiche 1 caractere
JSR SRDELAI
RTS ; retour prog princ
***************************************************
* Sous Routine: TX un CARACTERE AVEC UART *
***************************************************
SRUARTXCAR STA PortB ; Place la donnee
; sur Reg TX UART
; TBR0-TBR7
NOP
NOP
BCLR TBRL,PortA ; Active la transmission
NOP
NOP ; Dmin 150 ns
BSET TBRL,PortA ;
RTS
Programme de micro 68705-R3
http://www.angelfire.com/electronic/azmuth1/progmic.html (4 of 6) [2001-03-28 22:45:20]