Subversion Repositories SvarDOS

Compare Revisions

Ignore whitespace Rev 1085 → Rev 1086

/svarcom/trunk/cmd/ver.c
116,9 → 116,10
 
/* get the "true" DOS version, along with a couple of extra data */
mov ax, 0x3306 /* Get true DOS version number (DOS 5+) */
clc
int 0x21 /* AL=return_code BL=maj_ver_num BH=min_ver_num */
jnc GOOD /* DL=revision DH=kernel_memory_area */
mov doserr, ax /* DR-DOS sets CF on this call (according to RBIL) */
mov [doserr], ax /* DR-DOS sets CF on this call (according to RBIL) */
GOOD:
mov [truemaj], bl
mov [truemin], bh
136,6 → 137,7
if ((doserr == 0) && ((maj != truemaj) || (min != truemin))) {
output(" (");
sprintf(buff, svarlang_str(20,10), truemaj, truemin); /* "true ver xx.xx" */
output(buff);
output(")");
}
outputnl("");