Ensablador7S/color.asm at master · EliwtFdez/Ensablador7S · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
.model Small
.stack 64
.data

    HT EQU 09
    LF EQU 10
    CR EQU 13
    mensaje db 'Escribe tu mensaje',CR, LF, '$'
    mensaje2 db 'Tu mensaje es:', CR, LF ,'$'
    ; DATOS LABEL BYTE
    MAXCAR db 20
    ACTCAR db ?
    CAMPODATOS db 20 DUP (' '), '$'

.code

main proc NEAR
     MOV ax, @data
     MOV ds, ax
    ;------------------

    ;----------------------
    mov AH, 09H
    lea dx, mensaje
    int 21H
    ;----------------------

    ;----------------------
    ;INTRODUCIR
    ;----------------------
    mov AH, 3fH
    mov bx, 00
    mov cx, 100
    mov DX, offset [CAMPODATOS]
    int 21H

    mov AH, 06H ;limpiar pantalla
    mov AL, 00H
    mov BH, 06H ;atibuto
    mov CH, 03H ;Renglon inicio
    mov CL, 00H ;Columna inicio
    mov DH, 18H ;Renglon Final
    mov DL, 4FH ;Columna final
    int 10H

    mov AH, 09H
    lea dx, mensaje2
    int 21H


    MOV AH, 09h
    lea dx, CAMPODATOS
    ;mov DX, offset {CAMPODATOS}
    int 21H


    ;--------------
    ;salir del DOS
    ;--------------
    mov ax, 4C00h
    int 21h

    main endp
 end main