Mis Algoritmos

;Autor Victor De la Rocha
;URL http://www.mis-algoritmos.com

ponermodo macro var,pagina
        mov ah,0
        mov al,var
        mov bh,pagina
        int 10h
        endm

leermodo macro
        mov ah,0fh
        int 10h
endm

imprimir macro car
                mov ah,02h
                mov dl,car
                add dl,30h
                int 21h
        endm

paleton macro modo,tipo
                mov ah,0bh
                mov bh,modo
                mov bl,tipo
                int 10h
        endm

ponerpunto macro fila, columna, color, pagina
                mov ah,0ch
                mov cx,columna
                mov dx,fila
                mov al,color
                mov bh,pagina
                int 10h
        endm

.model small
.stack
.data
.code
.startup

        leermodo
        ponermodo al,bh

        imprimir al
        imprimir bh

        ponermodo 12h,0

        paleton 0,20

        ponerpunto 240,320,10,0
        ponerpunto 245,325,15,1

        imprimir 0

        mov ah,07h
        int 21h

        ponermodo  3,0

.exit
end