Rom bios fecha

Rom bios fecha

Rom bios fecha : Multi-millones de consejos para hacer su vida mas facil.

Obtener la ROM BIOS de la Fecha en un formato de cadena

Colaborador: JOSE ALMEIDA

{ Obtiene la ROM BIOS de la fecha en una cadena ASCII.
Parte de la Heartware Toolkit v2.00 (HTelse.PAS) para Turbo Pascal.
Autor: Jose Almeida. P. O. Box 4185. 1504 Lisboa Codex. Portugal.
tambien puedo ser alcanzado en RIME red, sitio ->TIB o #5314.
Sentir completamente libre de utilizar este codigo fuente en cualquier manera que usted desea, y, si
que hacer, por favor, no & #39 t olvides mencionar mi nombre, y me dan y Swag
los creditos propios. }

la FUNCION de ROM_Bios_Date : String8
{ DESCRIPCION:
Coge la ROM BIOS de la fecha en una cadena ASCII.
LLAMADA de EJEMPLO:
S := ROM_Bios_Date
RESULTADO:
por ejemplo,, & #39 06/10/85 & #39 .
NOTAS:
las versiones Posteriores de la Compaq tiene la fecha de lanzamiento desplazado por 1 byte,
para empezar a F000:FFF6h }

var
Tmp : String8

BEGIN { ROM_Bios_Date }
FillChar(Tmp,0,8)
Tmp[0] := Chr(8)
Mover(Mem[$F000:$FFF5]Tmp[1],8)
ROM_Bios_Date := Tmp
END { ROM_Bios_Date }