IBM 560 - Manual (Page 128)

C Language
WORD GetSystemID()
{
SMB SmapiEntry ;
INPARM MyInput ;
OUTPARM MyOutput ;
WORD Rc = -1 ;
if (GetSmapiEntry(&SmapiEntry)) {
MyInput.SMBIN_FUNC = ;
MyInput.SMBIN_SUB_FUNC = ;
if (SmapiEntry(&MyInput, &MyOutput)) {
// No System ID is available
} else {
Rc = MyOutput.SMBOUT_PARM_1 ;
}
} else {
// No Smapi BIOS interface.
// Try to use CBIOS INT 15.
}
return Rc ;
}
A-64 ThinkPad 560/560E SMAPI BIOS