IBM 600 User Manual

   

 

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 ;

}