Files
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

32 lines
1.0 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/*----------------------------------------------------------------------*\
| NAME : ok_ver |
| CREATED : 5-August-83 LAST MODIFIED: 12-September-83 |
| FUNCTION: Ok_ver checks to see that the correct BDOS and OS |
| are being used. |
| INPUT : bdos_ver -- BDOS version number to look for. |
| os_ver -- OS version number to look for. |
| OUTPUT : Returns 1 for true, 0 for false. |
\*----------------------------------------------------------------------*/
#include <portab.h>
#include "utildef.h"
#include "cpmfunc.h"
/* THIS REFERENCE IS IN CPMFUNC.H
EXTERN WORD s_bdosver();
*/
WORD ok_ver( bdos_ver,os_ver )
WORD bdos_ver; /* min. BDOS version */
WORD os_ver; /* min. CP/M version */
{
WORD ver; /* S_BDOSVER return value (version #) */
s_bdosver();
ver = _EXTERR;
if(((ver & BDOS_MASK) < bdos_ver) || ((ver & OS_MASK) != os_ver))
return( NOT_OK );
return( OK );
}