Programa #6 "Posición del curso"

CR EQU 13

LF EQU 10

TECLADO_8 EQU 8

IMPRIMIR_9 EQU 9

FIN_4C00H EQU 4C00H

DOS_21H EQU 21H

BIOS_10H EQU 10H

TAB EQU 09H

BELL EQU 07H

 

DATOS SEGMENT

    RENGLON DB 0

    COLUMNA DB 0

    MENSAJE DB CR,LF,"POSICION (X,Y), DEL MENSAJE",CR,LF,"$"

DATOS ENDS

 

PILA SEGMENT STACK

    DW 100 DUP("0")

PILA ENDS

 

CODIGO SEGMENT

    PC PROC FAR

    ASSUME CS:CODIGO, DS:DATOS, SS:PILA

    MOV AX,DATOS

    MOV DS,AX

    LEA DX,MENSAJE

    CALL POSICIONA_CURSOR

    MOV AH,IMPRIMIR_9

    INT DOS_21H

    MOV AX,FIN_4C00H

    INT DOS_21H

     

    PC ENDP

     

    POSICIONA_CURSOR PROC NEAR

    MOV AH,02

    MOV BH,00

    MOV DH,RENGLON

    MOV DL,COLUMNA

    INT BIOS_10H

    RET

    POSICIONA_CURSOR ENDP

CODIGO ENDS

END PC