利用寄存器进入栈值交换

 var
  A, B: Word;
begin
  A := 1;
  B := 2;
  asm
    mov ax, a    // 赋值
    mov bx, b
    push ax      // 进栈
    push bx
    pop ax       // 退栈
    pop bx
    mov a, ax    // 利用栈先进后出, ax已退栈, 寄存器里的值为原bx 的值
    mov b, bx    // 利用栈先进后出, bx已退栈, 寄存器里的值为原ax 的值
  end;
end;