Ensablador7S/Ordenar.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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
;Angel y Cristo
.MODEL SMALL
.STACK 100H
.data

    arreglo DB 5 DUP(?)

    msg1 DB 10,'Ingrese un numero: $',10,13

    msg2 DB 13, 10, 'Los datos ingresados son: $'
    msg3 DB 13, 10, 'Los datos ordenados son: $'

    newline DB 13, 10, '$'
    space DB ' $'

.code

MAIN PROC
    MOV AX, @data
    MOV DS, AX

    ; Leer 5 n?meros del teclado
    MOV ES, AX
    LEA SI, arreglo
    MOV CX, 5

ReadLoop:

    LEA DX, msg1
    MOV AH, 09H
    INT 21H ; Mostrar mensaje de ingreso


    MOV AH, 01H
    INT 21H ; Leer un car?cter del teclado
    SUB AL, 30H ; Convertir car?cter a n?mero
    MOV [SI], AL
    INC SI
    LOOP ReadLoop

    ; Nueva linea pa que se vea bonis
    LEA DX, newline
    MOV AH, 09H
    INT 21H

    ; Mostrar los datos ingresados
    LEA DX, msg2
    MOV AH, 09H
    INT 21H

    LEA SI, arreglo
    MOV CX, 5

DisplayLoop1:
    MOV DL, [SI]
    ADD DL, 30H ; Convertir n?mero a car?cter
    MOV AH, 02H
    INT 21H ; Mostrar n?mero
    LEA DX, space
    MOV AH, 09H
    INT 21H

    INC SI
    LOOP DisplayLoop1

    ; Nueva l?nea
    LEA DX, newline
    MOV AH, 09H
    INT 21H

    ; Ordenar los datos usando metodo de burbuja
    LEA SI, arreglo
    MOV CX, 4

ExteriorLoop:
    MOV DI, SI
    MOV BX, CX

InteriorLoop:
    MOV AL, [DI]
    MOV AH, [DI+1]
    CMP AL, AH
    JBE SkipSwap
    XCHG AL, AH
    MOV [DI], AL
    MOV [DI+1], AH

SkipSwap:
    INC DI
    DEC BX
    JNZ InteriorLoop

    DEC CX
    JNZ ExteriorLoop

    ; Mostrar los datos ordenados
    LEA DX, msg3
    MOV AH, 09H
    INT 21H

    LEA SI, arreglo
    MOV CX, 5

DisplayLoop2:
    MOV DL, [SI]
    ADD DL, 30H ; Convertir n?mero a car?cter
    MOV AH, 02H
    INT 21H ; Mostrar n?mero
    LEA DX, space

    MOV AH, 09H
    INT 21H ; Espacio
    INC SI
    LOOP DisplayLoop2

    ; Nueva l?nea
    LEA DX, newline
    MOV AH, 09H
    INT 21H

    ; Salida Dos
    MOV AX, 4C00h
    INT 21H
MAIN ENDP
END MAIN