IBM 770 manual B-64, MyInput.SMBINSUBFUNC

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 ;

}

B-64 SMAPI BIOS