SoloCodigo

las recomendaciones son claras:

Primero prueba con esta url:
         http://atc.ugr.es/docencia/udigital/
Es un manual muy completo y de fácil comprensión problema, es on-line el título es " El Universo del IBM Pc-Compatible"

Un lugar dónde prodrás encontrar manuales y tutoriales de muchos lenguajes es :
                                         
         http://www.lawebdelprogramador.com

Para terminar tienes la pagina de "Iczelion":  
         http://win32asm.cjb.net/
Esto es para programadores avanzados en este lenguaje, esta en ingles (lo advierto porque mucha gente tiene reticencias a este idioma) sus links son de lo mas interesantes.




PD: Quien tenga más enlaces Por favor que complete esto.

program Truco;
uses CRT;
(***************************************************************************)
type
TNaipe = record
   Palo :  (Espada,Basto,Oro,Copa);
   Nro  :  Byte;
   Dib  :  char;
end;
TBaraja =  array [1..40] of TNaipe;
(***************************************************************************)
Var
Espad  :  TNaipe;
Baraja :  TBaraja;
Ch     :  char;
I      :  integer;
(***************************************************************************)
procedure RandomCarta(var Naipe : Tnaipe);
var
 I : Integer;
 J : Integer;
begin
 I := Random(4)+1;
 J := Random(12)+1;
 If (J=8) or (J=9) Then J := Random(12)+1; {¿y si sale otra vez 8 o 9 ?no lo controlas y tienes que controlarlo, ojo}
 Naipe.Nro := J;
 Case I of
  1: begin
      Naipe.Palo := Espada;
      Naipe.Dib := #6;
     end;
  2: begin
      Naipe.Palo := Basto;
      Naipe.Dib := #3;
     end;
  3: begin
      Naipe.Palo :=Oro;
      Naipe.Dib := #4;
     end;
  4: begin
      Naipe.Palo :=Copa;
      Naipe.Dib := #5;
     end;
 end;
end;

function SinRepetir(N:Integer; Naipe:TNaipe; Maso:TBaraja ) : boolean;
var I : Integer;
begin
 for I := 1 to N  do
  begin
   if(Maso.Nro=Naipe.Nro)
    and (Ord(Maso.Palo)=Ord(Naipe.Palo))
     then SinRepetir := False
   else SinRepetir := True
  end;
end;

procedure RandomBaraja(var  Maso : TBaraja);
var
 I : integer;
 Carta : TNaipe;
begin
 for I := 1 to 40 do
  begin
   RandomCarta(Carta);
   If SinRepetir(I,Carta,Maso)
    then Maso := Carta
   else RandomCarta(Carta); {aqui si se da otra repeticion no va a controlarla ¿que tal un "repeat RandomCarta(Carta) until SinRepetir(I,Carta,Maso)"? }
  end;
 end;
(***************************************************************************)
Begin
TextMode(3);
ClrScr;
Randomize;
RandomBaraja(Baraja);
TextColor(4);
for I := 1 to 40 do
 begin
  WriteLn('    ',Baraja.Nro:5,'    ',Baraja.Dib);
  if I = 20 Then
   begin
   window(40,1,70,25);
   WriteLn('    ',Baraja.Nro:5,'    ',Baraja.Dib)
   end;
end;
ReadKey;
End.

Por lo visto son dos bucles y dado que cx sólamente lo usas el las operaciones finales te recomiendo algo como lo siguiente("loops"):

mov cx,100            ; el loop termina en el 0 por lo que 101 repeticiones
xor ax,ax               ; es lo mismo que 'mov ax,0'    inicialización
xor bx,bx
etiqueta0:              ;fijate bien en esto
add ax,cx              ;ax es operando y destino a la vez por lo que nos vale
                            ;como acumulador de los resultado parciales
loop etiqueta0        ; con cx=0 rompe el bucle, mientras repite y
                            ;decrementa cx en cada repeticion
                            ;hemos realizado 101 sumas pero en la última cx=0
                            ;con lo que no ha sumado nada
;ahora repetimos pero com una pequeña trampa  
mov cx,200
etiqueta1:              
add bx,cx

cmp cx,50              ;miramos si cx=50
je fuera                 ; si cx=50 saltamos fuera del bucle con lo que lo rompemos
                                         
loop etiqueta1

fuera:

mov cx,ax
sub cx,bx               ;primera diferencia en cx
                             ;ahora realizamos las operaciones que sea
                            ;(mostrar por pantalla...)
mov cx,bx
sub cx,ax

;y con esto finaliza el codigo de hoy  

Investigad en base a las paginas de "iczelion" y listado de "ralf brown":comp:

¿Alguien ha probado recompilar las xfree86?
1º:¿Qué paquetes son necesarios(xfree se entiende)?
2º:¿Es necesario cubrir alguna dependencia de software?¿cuales?
Gracias de antemano por vuestra ayuda:(

Astor estas suponiendo que se introducen todos los números de una tacada y luego se procesan o que estan en un registro ya introducido. El problema es tomar el número de teclado ,no se realizaria niguna division sino una multiplicacion x10 de forma que :
0x10 = 0
+(tecla-48) 4=4
nueva tecla
x10 = 40
+3=43
nueva tecla
x10=430
+2=432
es el proceso contrario
El proceso que tu indicas es muy util para mostrar el resultado en pantalla

Si tomas los dos valores sin decodificar y los restas tendras la diferencia de tiempo en tics, despues lo decodificas y tendras el resultado.
Ya te mandaré el "proc" de la decodificacion en MASM 6.0B)

Veré que se puede hacer;)

Salvo algun bug tendras que comprobar todas las combinaciones porque ,en teoria, la clave encripta y desencripta la base de datos:o

Un ordenador necesita para realizar una operacion los dos operandos primero

p.ej:

6+3

el ordenador necesita conocer por este orden 6,3,+

si lo complicamos p.ej:

(6+3)*(4-2)

tendremos que necesita:

6,3,+,4,2,-,*

no se si esto ultimo es exacto pero te dará una idea

Evidentemente asi no saturamos la memoria con cargas residentes inutiles

¿que version de wine tienes?
¿Que linux usas?

Mandame el problema quizas se me ocurra algo, Por cierto estos algoritmos estan en su mayoria mas que estudiados en brebe te podre pasar bibliografia:)