DOSSEG
.MODEL Small

.STACK 100h
.DATA

message1 db 'Configuraton du COM2 $'
com2 EQU 2f8h

.CODE

DEBUT:

		  mov AX,@DATA
		  mov DS,AX

		  mov dx,OFFSET message1 ; affichage du message 1
		  mov ah,9
		  int 21h

		  call sp1lig

		  call sp3lig
		  push ax
		  call EN_BINAIRE

FIN:
		  mov AH,04Ch
		  int 21h

		  sp1lig proc

					 mov dx,1
					 push ax
					 mov ah,00h
					 mov al,10010010b
					 int 14h
					 pop ax

					 ret
		  sp1lig endp

		  sp2lig proc

					 mov ah,03h
					 int 14h

					 ret
		  sp2lig endp

		 EN_BINAIRE proc
						pop dx
						pop ax
						push dx
						mov si,1
dpour:            cmp SI,8   ;test de la boucle
						jg fpour   ;idem
						mov ah,0
						shl AX,1   ;decalage de AL ds AH
						add AH,30h ;conversion en ASCII
						mov DL,AH  ;pr‚paration … l'affichage de AH en le mettant ds DL
						push AX    ;sauvegarde de AX
						mov AH,02  ;Affichage
						int 21h    ;idem
						pop ax
						inc si
						jmp dpour  ;saut de boucle pour
fpour:

			 ret
		  EN_BINAIRE endp

		  sp3lig proc
						mov dx,com2+5
						in al,dx

						ret
		  sp3lig endp


END DEBUT