Hanoi en Assembler A86

El punto de partida del peregrinaje de Hanoi fue la implementación del algoritmo de las Torres de Hanoi en lenguaje de máquina del microprocesador 6800 de Motorola. Para "programarlo", tuve que escribir un pseudo código, pasarlo a lenguaje ensamblador de 6800, posteriormente “ensamblarlo” en el papel, instrucción por instrucción, para luego ingresarlo por medio de un teclado hexadecimal, directamente en la memoria del MEK-6800.

Fig. 1 Teclado del MEK-6800

En memoria de ese acontecimiento, hace unos años repetí la experiencia, pero en esa ocasión, con una PC y por medio del Debug de DOS. Hoy, tanto el código fuente de la versión "light" como la versión "de Luxe" se perdieron en alguna de las tantas migraciones de PC. Pero, el artículo que publiqué en este blog aun permanece, de manera que es lo que usaré como punto de partida para la realizar esta nueva versión en A86.

Vean el Proceso Completo

El video muestra el código fuente en A86, el proceso de compilación y su puesta en funcionamiento.

El A86 es un Macroassembler, de manera que el código que usé para ensamblar con Debug requerirá varias modificaciones para que el A86 lo acepte y me genere un ejecutable.

El Código Original

El siguiente listado corresponde al código tal como está publicado en este blog: Reursion and Machine Language.

NHANOI.COM A DW 0 DW 0 DW 0 DW 0 MOV AX,11 MOV CX,12 MOV DX,13 MOV BX,4 CALL 11C MOV AX,4C INT 21 CMP BX,0 JE 173 PUSH DX PUSH CX PUSH AX PUSH BX DEC BX MOV [106],DX MOV DX,CX MOV CX,[106] CALL 11C POP BX POP AX POP CX POP DX MOV [102],AX MOV [104],CX MOV [106],DX CALL 174 DEC BX MOV [100],BX MOV BX,[102] CALL 174 MOV BX,[106] CALL 174 MOV BX,[100] MOV AX,[102] MOV CX,[104] MOV DX,[106] MOV [102],AX MOV AX,CX MOV CX,[102] CALL 11C RET MOV AH,2 MOV DX,BX ADD DX,30 INT 21 MOV DX,20 INT 21 RET RCX 95 W Q

Listado 1

Si observamos en detalle el Listado 1, notaremos la aparente ausencia de "variables", tampoco se observan "procedimientos" o "subrutinas". En realidad, tanto las variables como las subrutinas están ahí, solo que no tienen nombre, son solo posiciones en la memoria.

La primera tarea consiste en asignar nombres "simbólicos" a esas posiciones de memoria, para convencer al A86 de que se trata de un programa en lenguaje ensamblador y no de una lista de compras. Para eso, primero vamos a ensamblar el código (con Debug), para determinar donde están las posiciones de memoria a las que hacemos referencia.

Compilación con Debug

E:\TC\A86>debug <hanoi.txt

El Debug genera un archivo ejecutable .COM

Pruebo el Funcionamiento

E:\TC\A86>hanoi
1 A B 2 A C 1 B C 3 A B 1 C A 2 C B 1 A B 4 A C 1 B C 2 B A 1 C A 3 B C 1 A B 2 A C 1 B C

Funciona!

Para ahorrar tiempo

• Genero un listado con el debug
• E:\TC\A86>debug hanoi.com >prog.txt
• Luego escribo cinco veces u y luego q.

Obtengo el siguiente listado

0E19:0100 DW 0 0E19:0102 DW 0 0E19:0104 DW 0 0E19:0106 DW 0 0E19:0108 MOV AX,11 0E19:010B MOV CX,12 0E19:010E MOV DX,13 0E19:0111 MOV BX,4 0E19:0114 CALL 11C 0E19:0117 MOV AX,4C 0E19:011A INT 21 0E19:011C CMP BX,0 0E19:011F JE 173 0E19:0121 PUSH DX 0E19:0122 PUSH CX 0E19:0123 PUSH AX 0E19:0124 PUSH BX 0E19:0125 DEC BX 0E19:0126 MOV [106],DX 0E19:012A MOV DX,CX 0E19:012C MOV CX,[106] 0E19:0130 CALL 11C 0E19:0133 POP BX 0E19:0134 POP AX 0E19:0135 POP CX 0E19:0136 POP DX 0E19:0137 MOV [102],AX 0E19:013A MOV [104],CX 0E19:013E MOV [106],DX 0E19:0142 CALL 174 0E19:0145 DEC BX 0E19:0146 MOV [100],BX 0E19:014A MOV BX,[102] 0E19:014E CALL 174 0E19:0151 MOV BX,[106] 0E19:0155 CALL 174 0E19:0158 MOV BX,[100] 0E19:015C MOV AX,[102] 0E19:015F MOV CX,[104] 0E19:0163 MOV DX,[106] 0E19:0167 MOV [102],AX 0E19:016A MOV AX,CX 0E19:016C MOV CX,[102] 0E19:0170 CALL 11C 0E19:0173 RET 0E19:0174 MOV AH,2 0E19:0176 MOV DX,BX 0E19:0178 ADD DX,30 0E19:017B INT 21 0E19:017D MOV DX,20 0E19:0180 INT 21 0E19:0182 RET

Listado 2

Procesamiento con Excel

Esta es una de las aplicaciones prácticas de Excel, nos permite trabajar con texto en forma tabular y aplicar funciones para agregarle o quitarle elementos (también es muy útil para trabajar con páginas web).

• Separamos las direcciones de las instrucciones (B y D).
• Insertamos una columna (C).
• Asignamos Nombres a las direcciones representativas.
• Copiamos las columas C y D en un archivo de texto con la extensión .8 que es la extensión de los programas fuentes en A86.

Listado A86 Coompleto

;HANOI Sergio F. Otaño ** ;En Macro Assembler A86 ** DATA SEGMENT N DW 0 _AX DW 0 _CX DW 0 _DX DW 0 DATA ENDS MOV AX,0011 MOV CX,0012 MOV DX,0013 MOV BX,0003 CALL CMP_N_0 MOV AX,004C INT 33 CMP_N_0: CMP BX,0 JZ RETORNA PUSH DX PUSH CX PUSH AX PUSH BX DEC BX MOV _DX,DX MOV DX,CX MOV CX,_DX CALL CMP_N_0 POP BX POP AX POP CX POP DX MOV _AX,AX MOV _CX,CX MOV _DX,DX CALL IMPRIME DEC BX MOV N,BX MOV BX,_AX CALL IMPRIME MOV BX,_DX CALL IMPRIME CALL NL MOV BX,N MOV AX,_AX MOV CX,_CX MOV DX,_DX MOV _AX,AX MOV AX,CX MOV CX,_AX CALL CMP_N_0 RETORNA: RET IMPRIME: MOV AH,02 MOV DX,0020 INT 33 MOV DX,BX ADD DX,48 INT 33 RET NL: MOV AH,02 MOV DL,10 INT 33 MOV DL,13 INT 33 RET

Listado 3 Programa Completo en A86

Compilación y Prueba

E:\TC\A86>A86 HANOI.8
A86 macro assembler, V3.72 Copyright 1994 Eric Isaacson
Source:
HANOI.8
Object: HANOI.COM
Symbols: HANOI.SYM

E:\TC\A86>HANOI
1 A C
2 A B
1 C B
3 A C
1 B A
2 B C
1 A C

El código funciona perfectamente e incluye la generación del carácter "\n" o (0D0A) provisto por la subrutina NL, para mejorar la salida por pantalla. El A86 genera un archivo .COM y no requiere enlazarlo. Este A86 en particular lo bajé del sitio de su autor. Cuando vivía en USA, yo había comprado un A86 (shareware) que generaba .OBJ además de .COM, pero es posible que su autor haya modificado su esquema de distribución.

¡Que tengan un gran día!

Sergio Otaño