Mis Algoritmos

;Autor Hector Torres
;URL


este macro
  mov AX,vidseg
  mov ES,AX
  assume ES:vidseg
  mov ah,0fh
  int 10h
  push AX
  push BX
  mov ah,00h
  mov al,03
  int 10h
  mov ah,05h
  mov al,01h
  int 10h

  call c10proc
  mov ah,01h       ; no esperaba cuandor mostraba el mensaje lo limpuiaba inmediatamente
  int 21h

  pop bx           ; faltaba recuperara bx para asignar la pagina de video inicial
  mov ah,05h
  mov al,bh
  int 10h
  pop ax
  mov ah,00h
  int 10h
endm


vane macro
      lea bx,cad1
      mov cx,20
  repetir:
      mov ah,01h
      int 21h
      mov [bx],al
      inc bx
      loop repetir
endm

limpiar macro
      mov ah,06h
      mov al,00h
      mov bh,07h
      mov cx,0000h
      mov dx,184fh
      int 10h
endm


.model small
vidseg segment at 0b900h ;pagina 1 area de video
       vidarea db 1000h dup(?)
vidseg ends
.stack
.data
cad1 db 20 DUP(' '),'$'
.code
.startup

limpiar
vane
este

.exit

c10proc proc
        lea bx,cad1
        mov DI,660
        mov cx,20
        mov ah,07
  c10:  mov al,[bx]
        mov word ptr [vidarea+DI],ax
        inc di
        inc di
        inc bx
        loop c10
        ret
c10proc endp

end