IBM 600 manual Smb

Models: 600

1 147
Download 147 pages 10.32 Kb
Page 140
Image 140

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

Page 140
Image 140
IBM 600 manual Smb