elrata respondió:
Para usar assembler en pascal, se hace así... Uses Crt, Dos; function Min(X, Y: Integer): Integer; near; assembler; asm MOV AX,X CMP AX,Y JLE @@1 MOV AX,Y @@1: end; Begin WriteLn(Min(1, 2)); End. Esto te devuelve el numero más chico de dos parámetros...