引言: 如各位朋友得相關的文件或程序範例, 請慷慨贈教, 不勝感激.

var b:byte;
begin
  asm    
    push ds
    mov ax,40g
    push ax
    pop dx
    mov ax,0h   
    mov dx,ax   
    in al,dx   
    mov b,al
    pop ds
  end;
  caption:=inttostr(b);
end;

引言:

引言: 如各位朋友得相關的文件或程序範例, 請慷慨贈教, 不勝感激.

var b:byte;
begin
  asm    
    push ds
    mov ax,40g
    push ax
    pop dx
    mov ax,0h   
    mov dx,ax   
    in al,dx   
    mov b,al
    pop ds
  end;
  caption:=inttostr(b);
end;

～～～Delphi K.Top討論區站長～～～

引言:

引言:

引言: 如各位朋友得相關的文件或程序範例, 請慷慨贈教, 不勝感激.

var b:byte;
begin
  asm    
    push ds
    mov ax,40g
    push ax
    pop dx
    mov ax,0h   
    mov dx,ax   
    in al,dx   
    mov b,al
    pop ds
  end;
  caption:=inttostr(b);
end;

～～～Delphi K.Top討論區站長～～～

mov ax,40g →mov ax,40H ???? 使用那一種環境?

引言: mov ax,40g →mov ax,40H ???? 使用那一種環境?

引言: 我想問你們是如何知道那些 address 是代表甚麼。 因為本人都有學過 assembly ﹐但我就看不明白大家是如何知道的

引言: 我想問你們是如何知道那些 address 是代表甚麼。 因為本人都有學過 assembly ﹐但我就看不明白大家是如何知道的 thx a lot