; test06.asm
;
;               Programme de test de la liaison serie
;
;                       (C) CHAMOUARD 1993-2001
;              (Libre de droits pour utilisation non 
;               commerciale et à vos propres risques)
;
; Matériel requis :
;   carte 8031 base 1, programme chargé en 2000h
;   hyperterminal en mode 7 (parité paire) ou 8 bits (sans parité)
;   57600 bauds
; Bibliothèques requises :
;   libint.asm
; Sortie :
;   affichage d'un message avec code ASCII en retour d'un caractere
;   ou d'un message special si ?, e ou j

ORG		0000h
;ORG 	2000h

INCLUDE lib\libint.asm

IE0Trt:                         ; Pas d'IT traitee
IE1Trt:
TF0Trt:
TF1Trt:
RITITrt:
TF2EXF2Trt:
		reti

Begin:
mov    	SP,#07h     ; Debut de pile en 08h
mov    	A,#ComSpeed_11_57600
lcall	ComInit
Boucle:
lcall  	ComReadChar
jc     	Boucle      ; Pas de carac recu
;cjne   A,#ffh,suite0 ; Erreur de parite
;ljmp   Boucle
suite0:
cjne   	A,#'?',suite1
mov    	DPTR,#Mes1
lcall  	ComWriteString
ljmp   	Boucle
suite1:
cjne   	A,#'e',suite2
mov    	DPTR,#Mes2
lcall  	ComWriteString
ljmp   	Boucle
suite2:
cjne   	A,#'j',suite3
mov    	DPTR,#Mes3
lcall  	ComWriteString
ljmp   	Boucle
suite3:
push   	ACC
mov    	DPTR,#Mes4
lcall  	ComWriteString
pop    	ACC
lcall  	ComWriteByteAscii
mov    	DPTR,#Mes5
lcall  	ComWriteString
ljmp   	Boucle

Mes1:  	DB "Hello I am 8031",13,10,0
Mes2:  	DB "Coucou eric",13,10,0
Mes3:  	DB "Tu es vraiment le plus puissant des 8031",13,10,0
Mes4:  	DB "Carractere recu : ",0
Mes5:  	DB 13,10,0

INCLUDE lib\libasc.asm
INCLUDE lib\libcom1.asm
INCLUDE lib\libcom2.asm

label 	ComWriteChar, ComWriteChar7s
label 	ComReadChar, ComReadChar7s
;label 	ComWriteChar, ComWriteChar8s
;label 	ComReadChar, ComReadChar8s

INCLUDE lib\libcome.asm