Hoy voy a enseñar como podemos crear directivas bucles de alto nivel para simplificar algunos programas.
En concreto voy a exponer una cabecera donde definiremos directivas para realizar las instrucciones
WHILE y
FOR.
Podía hacer la instrucción do..while, pero esta es demasiado simple da realizar directamente en ensamblador, ya que la comparación con salto atrás es directamente esta estructura. por ello no vale pena.
La idea de estas estructuras de alto nivel es seguir aclarando el programa, de manera que se pueda distinguir de un vistazo la estructura del programa.
En ensamblador, como todos sabemos, seguir un programa es muy laborioso, incluso para el programador que lo hizo, si ha pasado tiempo desde que lo creó.
Todas las funciones, macros, y directivas que voy exponiendo, no hacen nada que no se pueda hacer directamente, pero aclaran la estructura, de forma que resulta muy sencilla de seguir, incluso después de 20 años, como estoy haciendo yo ahora.
HI_LEVEL.MAC
; Copyright (C) 2013 José Ángel Moneo Fernández
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation, either version 3 of the License, or
; (at your option) any later version.
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
; You should have received a copy of the GNU General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;definiciones de controles de estructuras complejas para
;;programación estructurada
;***** for var=ini to fin*****
for macro var,ini,fin
mov var,ini
$salvar
cmp var,fin
jb $ + 5
$salvar
nop
nop
nop
endm
;***** next var*******
next macro var
$recup
$hueco = $simbolo
$recup
$bucle = $simbolo
inc var
jmp $bucle
$fin = this near
org $hueco
jmp $fin
org $fin
endm
;****while op1 (a es >,e es =,b es <,ae es >=,be es <=) op2***********
while macro op1,oper,op2
$salvar
cmp op1,op2
j&oper $ + 5
$salvar
nop
nop
nop
endm
;************endwhile
endwhile macro
$recup
$hueco = $simbolo
$recup
$bucle = $simbolo
jmp $bucle
$fin = this near
org $hueco
jmp $fin
org $fin
endm
$salvar macro
ifndef $i
$i = 0
endif
$i = $i + 1
$salvar1 %$i
endm
$salvar1 macro $i
$sim_&$i = this near
endm
$recup macro
$recup1 %$i
$i = $i - 1
endm
$recup1 macro $i
ifndef $sim_&$i
.lall
.sall
endif
$simbolo = $sim_&$i
endm