Lazarus Inline Assembler/es: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		Esto es un esbozo para alentar a otros a contribuir con más información. A continuación un ejemplo sencillo como punto de partida [Lazarus_Inline_Assembler](http://wiki.freepascal.org/Lazarus_Inline_Assembler):
2	2
3	3		``` pascal
4	4		unit unit_asm;
5	5		{$mode objfpc}{$H+}
6	6		interface
7	7		uses
8	8		Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;
9	9		type
10	10		{ TForm1 }
11	11		TForm1 = class(TForm)
12	12		btnGo: TButton;
13	13		edtInput: TEdit;
14	14		edtOutput: TEdit;
15	15		Label1: TLabel;
16	16		Label2: TLabel;
17	17		procedure btnGoClick(Sender: TObject);
18	18		private
19	19		{ private declarations }
20	20		public
21	21		{ public declarations }
22	22		end;
23	23		var
24	24		Form1: TForm1;
25	25		implementation
26	26		{ TForm1 }
27	27
28	28		procedure TForm1.btnGoClick(Sender: TObject);
29	29		var
30	30		num, answer : integer; {define dos variables de tipo entero: num (número) y answer (respuesta) }
31	31		begin
32	32		num := StrToInt(edtInput.Text); { Convierte la cadena a entero y se lo asigna a la variable num }
33	33		// Se requiere esto con Lazarus en x86, definimos el modo ensamblador de Intel:
34	34		{$ASMMODE intel}
35	35		asm
36	36		MOV EAX, num
37	37		ADD EAX, 110B //sumar el numero 110 binario (6 en decimal) al contenido del registro EAX.
38	38		SUB EAX, 2 //restar o substraer el número 2 decimal (no lleva la B de binario) al contenido del registro EAX.
39	39		MOV answer, EAX //mover el contenido de EAX a la variable answer.
40	40		end;
41	41		edtOutput.Text := IntToStr(answer); { Convierte el número entero a su equivalente en cadena & pasa a la propiedad texto }
42	42		end;
43	43
44	44		initialization
45	45		{$I unit_asm.lrs}
46	46		end.
47	47		```
48	48
49	49		En el siguiente enlace podéis encontrar una muy buena descripción al respecto en la documentación de FreePascal:
50	50
51	51		- [Utilizando lenguaje ensamblador en el codigo fuente](http://www.freepascal.org/docs-html/prog/progse9.html), está en inglés así que lo pongo aquí traducido, añadiendo también este enlace [a directivas para ensamblador](http://www.freepascal.org/docs-html/prog/progsu3.html) y su respectiva traducción:
52	52
53		-	~~` $ASMMODE : Modo ensamblador (Intel 80x86 solamente)`~~
	53	+	```text
	54	+	$ASMMODE : Modo ensamblador (Intel 80x86 solamente)
	55	+	```
54	56
55	57		La directiva {\$ASMMODE XXX} informa al compilador sobre el tipo de ensamblador que debe esperar en el/los bloques escritos en ensamblador. Aquí XXX debería reemplazarse por alguno de los siguientes valores:
56	58
57	59		- att: Indica que los bloques asm contienen sintaxis en la modalidad ensamblador de AT&T.
58	60
59	61		- intel: Indica que los bloques asm contienen sintaxis en la modalidad ensamblador de Intel.
60	62
61	63		- direct: Indica al compilador que los bloques asm deben ser copiados directamente al fichero en ensamblador. No es posible utilizar estos bloques en ensamblador cuando se está utilizando un ensamblador interno por parte del compilador.
62	64
63	65		Estas opciones son locales y retienen su valor hasta el final de la unidad que es compilada, al menos que sean reemplazados utilizando alguna otra directiva del mismo tipo. La opción a nivel de línea de mandatos que corresponde a esto es -R.
64	66
65	67		En el IDE de Lazarus podemos encontrar estas opciones para el proyecto en curso:
66	68
67	69		El interprete de ensamblador predeterminado, si no se especifica otro, es AT&T.
68	70
69	71		Hay esencialmente 2 modos de embeber código ensamblador en código fuente pascal. La primera es la más simple y consiste en utilizar un bloque asm:
70	72
71	73		``` pascal
72	74		var
73	75		I : Integer;
74	76		begin
75	77		I:=3;
76	78		asm
77	79		movl I,%eax
78	80		end;
79	81		end;
80	82		```
81	83
82	84		Todo lo que está contenido entre 'asm' y 'end' define un bloque que se inserta como código ensamblador en el código generado. Dependiendo del modo del interprete ensamblador, el compilador realizará la sustitución de ciertos nombres por sus direcciones.
83	85
84	86		El segundo modo es implementando una función o bien un procedimiento completamente en ensamblador. Esto se realiza añadiendo el modificador assembler a la cabecera de la función o procedimiento :
85	87
86	88		``` pascal
87	89		{$ASMMODE att} // pero recordar que es el que utiliza por defecto si no se especifica otro
88	90		function geteipasebx : pointer;assembler;
89	91		asm
90	92		movl (%esp),%ebx
91	93		ret
92	94		end;
93	95		```
94	96
95	97		Es posible todavía declarar variables para el procedimiento en ensamblador:
96	98
97	99		``` pascal
98	100		procedure Move(const source;var dest;count:SizeInt);assembler;
99	101		var
100	102		saveesi,saveedi : longint;
101	103		asm
102	104		movl %edi,saveedi
103	105		end;
104	106		```
105	107
106	108		El compilador reservará espacio en la pila para estas variables, esto inserta algunos comandos para ello.
107	109
108	110		Debemos tener en cuenta que el nombre ensamblador de una función en ensamblador todavía puede ser 'mangled' por el compilador. Por ejemplo la etiqueta para esta función no deberá ser el nombre de la función declarada. Para cambiar esto se puede utilizar un modificador Alias:
109	111
110	112		``` pascal
111	113
112	114		function geteipasebx : pointer;assembler;[alias:’FPC_GETEIPINEBX’];
113	115		asm
114	116		movl (%esp),%ebx
115	117		ret
116	118		end;
117	119		```
118	120
119	121		Para hacer que la función esté disponible en código ensamblador fuera de la unidad actual debemos añadir el modificador public:
120	122
121	123		``` pascal
122	124
123	125		function geteipasebx : pointer;assembler;[public,alias:’FPC_GETEIPINEBX’];
124	126		asm
125	127		movl (%esp),%ebx
126	128		ret
127	129		end;
128	130		```
129	131
130	132		---
131	133		From the Free Pascal wiki, page "Lazarus Inline Assembler/es", as it stood on 2020-02-18 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history