Mis Algoritmos

;Autor Hector Torres
;URL

;limpia pantalla y cambia el color de fondo y  frente

.model small
.stack
.data
        cadena db 10 dup(\' \'),\'$\'
        cade     db 71,72,73,74,75
.code
.startup
        clr proto c, colores : ptr byte

        invoke clr,0700h
        call cad
        invoke clr,1300h
        call cad
        invoke clr,3000h
        call cad
.exit
        cad proc
                mov ah,01h
                mov cx,0
                lea si,cadena

                .repeat
                        int 21h
                        inc cx
                        mov cadena[si],al
                        inc si
                .until (cx==10) || (al==13)
        ret

        cad endp

        clr proc c, colores : ptr byte
                mov ah,06h
                mov al,00h
                mov bx,colores
                mov cx,0000h
                mov dx,184fh
                int 10h
        ret
        clr endp

end