Chat en Assembler.
Haciendo publico el codigo de un chat en assembler que desarrollé en el primer semestre del 2005 para el ramo de microsistemas. Si le sirve a alguien.. bien y si no... aqui igual quedará.
;==============================================================
;Microsistemas 1er Semestre 2005.
;Profesor : OTTO PETERSSEN ENTRALGO
;Alumno : Dario Antonio Diaz Videla
;Fecha : 08-Julio-2005
;==============================================================
STACK SEGMENT STACK
DW 100H DUP(?)
STACK ENDS
DATA SEGMENT
IP_RESP DW ?
CS_RESP DW ?
xr db 0
yr db 2
xt db 0
yt db 14
mensaje1 db 'Remoto :$'
mensaje2 db 'Local :$'
mensaje3 db ' Microsistemas 1er Semestre 2005 // DDV / JBV$'
DATA ENDS
CODE SEGMENT
gotoxy macro x,y
xor bh, bh
mov dl, x
mov dh, y
mov ah, 02h
int 10h
endm
Print macro mensaje
mov ah, 09h
mov dx, offset mensaje
int 21h
endm
Linea macro x,y
gotoxy x,y
mov al, '-'
mov ah, 0ah
mov cx, 78
int 10H
endm
CLS macro
mov ax,0600h
mov bh,17h
mov cx,0000h
mov dx,184fh
mov bl, 0
int 10h
endm
MIPROG PROC FAR
ASSUME CS:CODE, DS:DATA
inicio:
mov ax, DATA
mov ds, ax
;-----------------------------------------------------------
;Configurar el Puerto de Comunicacion
;-----------------------------------------------------------
;-----------------------------------------------------------
; Registro de linea de Control
mov dx, 3fbh
mov al, 10000000b
out dx, al
;-----------------------------------------------------------
; Divisor de la velocidad en baudios (Alto)
mov dx, 3f9h
mov al, 00b
out dx, al
;-----------------------------------------------------------
; Divisor de la velocidad en baudios (Bajo)
mov dx, 3f8h
mov al, 60h
out dx, al
;-----------------------------------------------------------
; Longitud de los caracteres(bit 0 y 1 estaran en 1 para que
; sea 8 bit)
mov al, 00000011b
mov dx, 3fbh
out dx, al
;-----------------------------------------------------------
CLI
;-----------------------------------------------------------
; Respaldo de tabla de interrupciones de comunciacion com1
MOV DI,0
MOV ES, DI
MOV DI, 4*12 ; 12 COM1
MOV AX, ES:[DI]
MOV IP_RESP, AX
MOV AX, ES:[DI+2]
MOV CS_RESP, AX
;-----------------------------------------------------------
; Configurar de tabla de interrupciones de comunciacion com1
MOV DI, 0
MOV ES, DI
MOV DI, 4*12 ; 12 COM1
MOV word ptr ES:[DI], offset recibe
MOV word ptr ES:[DI+2], seg recibe
;-------------------------------------------------------------
; Interrupt Enable Register
; Habilitar la interrupcion
;-------------------------------------------------------
mov dx, 3f9h
mov al, 1
out dx, al
;-------------------------------------------------------------
; Habilitar la interrupcion bit 3, Request to Send bit 1, Data
; Terminal Ready bit 0
;-------------------------------------------------------------
mov dx, 3fch
mov al, 00001011b
out dx, al
;-------------------------------------------------------------
;
in al, 21h
and al, 11100111b
out 21h, al
STI
;-----------------------
; borra la pantalla
CLS
;---------------------------------------
; Despliega titulos y lineas de division
gotoxy 0,1
Print mensaje1
gotoxy 0,13
Print mensaje2
gotoxy 0,0
Print mensaje3
Linea 0,12
espera:
mov ah,0
int 16H
cmp ah,1 ; Sale con Escape ScanCode 1 en ah
je fin
mov dx, 3f8h
out dx, al; escribe en puerto serie
jmp escribe
fin:
MOV DI, 0
MOV ES, DI
MOV DI, 4*12 ; com1
MOV AX, IP_RESP
MOV ES:[DI], AX
MOV AX, CS_RESP
MOV ES:[DI+2], AX
;-----------------------------
; borra la pantalla
CLS
;-----------------------------
; Posicionar el cursor en 0, 0
gotoxy 0,0
MOV AX, 4C00H
INT 21H
escribe:
;--------------------------------
; Posiciona cursor en la pantalla
gotoxy xt, yt
;--------------------------------
; Escribe caracter en Pantalla
mov ah, 0ah
mov cx, 1
int 10H
inc xt
;-----------------------------------------------
; chequeamos coordenadas
cmp xt,78
jne salto1 ; chequea que la columna distinta a 78
mov xt,0
inc yt
cmp yt,24 ; chequea que la fila distinta a 22
jne salto1
mov yt,14
borrarsectorB:
;----------------------------------
; borrar sector de pantalla.
;--------------------------------
; Posiciona cursor en la pantalla
gotoxy 0,yt
;----------------------------------------
; Borra escribiendo un espacio en la fila
mov al, ' '
mov ah, 0ah
mov cx, 78
int 10H
inc yt ; incrementa fila a borrar
cmp yt,24
jne borrarsectorB
mov yt,14
salto1:
jmp espera
recibe:
push ds
push ax
push cx
mov ax, DATA
mov ds, ax
mov dx, 3f8h
in al, dx ; lee puerto serie
;--------------------------------
; Posiciona cursor en la pantalla
gotoxy xr,yr
;--------------------------------
; Escribe caracter en Pantalla
mov ah, 0ah
mov cx, 1
int 10H
;-----------------------------------------------
; cheaqueamos coordenadas
inc xr
cmp xr,78
jne salir ; chequea que la columna distinta a 78
mov xr,0
inc yr
cmp yr,12 ; chequea que la fila distinta a 10
jne salir
mov yr,2
borrarsectorA:
;----------------------------------
; borrar sector de pantalla.
;--------------------------------
; Posiciona cursor en la pantalla
gotoxy 0,yr
;----------------------------------------
; Borra escribiendo un espacio en la fila
mov al, ' '
mov ah, 0ah
mov cx, 78
int 10H
inc yr ; incrementa fila a borrar
cmp yr,12
jne borrarsectorA
mov yr,2
salir:
MOV AL, 20H
OUT 20H, AL
pop cx
pop ax
pop ds
IRET
MIPROG ENDP
CODE ENDS
END MIPROG
===================================
Utiliza conexión por el puerto serie com1 a 1200 bps 8 bit.
