ASSEMBLER |
Assembleur |
---|---|
Turbo Pascal 6+ |
Syntaxe
ASSEMBLER; var_type_defintion; ASM instructasm1 instructasm2 ... instructasmn END; |
Paramètres
Nom | Description |
---|---|
var_type_defintion | Ce paramètre permet d'indiquer une liste de définition de constante, de type de données et de variables. |
instructasm1,instructasm2, instructasmn | Ce paramètre permet d'indiquer une suite d'instruction assembleur à inclure |
Description
Ce mot réservé permet d'indiquer une procédure ou fonction entièrement écrite en assembleur et sans contrôle de langage de programmation évolué.
Exemple
Voici quelques exemples typiques de l'utilisation de cette fonction :
- Program AsmSamples;
-
- Procedure PrintNumber(X:Integer);Assembler;ASM
- MOV AX,X
- OR AX,AX
- JNS @Positif
- PUSH AX
- MOV AH,02h
- MOV DL,'-'
- INT 21h
- POP AX
- NEG AX
- @Positif:
- MOV BX,10
- XOR CX,CX
- @NextDigit:
- XOR DX,DX
- DIV BX
- PUSH DX
- INC CX
- OR AX,AX
- JNZ @NextDigit
- @PrintOneDigit:
- POP AX
- ADD AL,48
- MOV DL,AL
- MOV AH,02h
- INT 21h
- LOOP @PrintOneDigit
- END;
-
- BEGIN
- Write('Nombre -13=');
- PrintNumber(-13);
- WriteLn;
- Write('Nombre 127=');
- PrintNumber(127);
- WriteLn;
- WriteLn('Attend qu''un touche soit enfoncé..');
- ASM
- XOR AX,AX
- INT $16
- END;
- END.
on obtiendra le résultat suivant :
Nombre -13=-13Nombre 127=127
Attend qu'un touche soit enfoncé..
Voir également
Langage de programation - Pascal et Assembleur
Langage de programmation - Turbo Pascal - Turbo Pascal et Assembleur - Accueil
Dernière mise à jour : Dimanche, le 25 janvier 2015