1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$L uppinneu.obj}

// Das Programm soll anhand der Vorgaben W_PC, W_KPROM
// einen 4stelligen PIN berechnen
// Die Berechnung wird durch das Assemblerfile uppinneu.asm durchgeführt
// In diesem Assemblerfile wird das Unterprogramm Pinneu aufgerufen

procedure TForm1.BitBtn2Click(Sender: TObject);
var W_PC, W_KPROM, W_VAR, W_PINCODE, S_ME_FE, W_HAENDLER : String;


begin
  W_PC := MaskEdit1.Text+MaskEdit2.Text+MaskEdit3.Text;
  W_KPROM    := MaskEdit4.Text;
  W_VAR      := '5';           // Konstante
  W_PINCODE  := '0000';        // Rückgabewert
  S_ME_FE    := '0';           // Konstante
  W_HAENDLER := '0';           // Konstante
  pinneu(var w_pc,w_kprom,w_var,w_pincode,s_me_fe,w_haendler:string); external;
  edit1.Text := w_pincode;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

memory segment public 'code'

       assume cs:memory,ds:memory,es:memory,ss:nothing

        public  pinneu

pinneu  proc    far                  ;Beginn der Procedure.

; Hier steht jetzt der Code

memory  ends
        end                    

1:
2:
3:
4:
5:
6:

implementation

procedure  pinneu(var w_pc,w_kprom,w_var,w_pincode,s_me_fe,w_haendler:string); external;

procedure TForm1.BitBtn2Click(Sender: TObject);
     var W_PC, W_KPROM, W_VAR, W_PINCODE, S_ME_FE, W_HAENDLER : String;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Procedure WinPin(var w_pc,w_kprom,w_var,w_pincode,s_me_fe,w_haendler:string);
asm
//  EAX         ==> W_PC:       PString;
//  EDX         ==> W_kprom:    PString;
//  ECX         ==> w_var:      PString;
//  [EBP + $04] ==> w_pincode:  PString;
//  [EBP + $08] ==> s_me_fe:    PString;
//  [EBP + $0C] ==> w_haendler  PString;
////EAX \ ST(0) <== Result      (void) // Bei Funktionen der Rückgabewert ...

{Source hier}

end;