Subversion Repositories SvarDOS

Compare Revisions

Regard whitespace Rev 1067 → Rev 1068

/svarcom/trunk/cmd/ver.c
104,6 → 104,23
_asm {
push ax
push bx
push cx
mov ah, 0x30 /* Get DOS version number */
int 0x21 /* AL=maj_ver_num AH=min_ver_num BX,CX=OEM */
mov [maj], al
mov [min], ah
pop cx
pop bx
pop ax
}
 
sprintf(buff, svarlang_str(20,1), maj, min); /* "DOS kernel version %u.%u" */
outputnl(buff);
 
if (maj >= 5) {
_asm {
push ax
push bx
push dx
 
mov ax, 0x3306 /* Get true DOS version number */
118,7 → 135,7
pop ax
}
 
sprintf(buff, svarlang_str(20,1), maj, min); /* "DOS kernel version %u.%u" */
sprintf(buff, svarlang_str(20,10), maj, min); /* "True version %u.%u" */
outputnl(buff);
 
sprintf(buff, svarlang_str(20,5), 'A' + rev); /* Revision %c */
131,6 → 148,7
sprintf(buff, svarlang_str(20,6), loc); /* DOS is in %s */
outputnl(buff);
}
}
 
outputnl("");
nls_output(20,2); /* "SvarCOM shell ver" */