[Back to DATETIME SWAG index] [Back to Main SWAG index] [Original]

    {
    > I want to know if it's possible to get the BIOS Serial number and how to
    > get it in pascal.

    I dunno about BIOS serial number, i know how to get a BIOS date, thats true.
    Here's the source (that is also welcome to place in SWAG):
    }

    Function GetBiosDate : string; assembler;
    Asm
      push ds
      {$IFDEF DPMI}  { look, it works with DPMI too }
      mov ax,2
      mov bx,0FFFFh
      int 31h
      {$ELSE}
      mov ax,0FFFFh
      {$ENDIF}
      mov ds,ax
      mov si,0005h
      les di,@Result
      cld
      mov ax,8
      stosb
      mov cx,ax
      rep movsb
      pop ds
    End; { GetBiosDate }

    Begin
      WriteLn('BIOS date: ', GetBiosDate) { Simple, eh? }
    End.

[Back to DATETIME SWAG index] [Back to Main SWAG index] [Original]