Subversion Repositories SvarDOS

Compare Revisions

Regard whitespace Rev 1068 → Rev 1067

/svarcom/trunk/cmd/ver.c
104,23 → 104,6
_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 */
135,7 → 118,7
pop ax
}
sprintf(buff, svarlang_str(20,10), maj, min); /* "True version %u.%u" */
sprintf(buff, svarlang_str(20,1), maj, min); /* "DOS kernel version %u.%u" */
outputnl(buff);
sprintf(buff, svarlang_str(20,5), 'A' + rev); /* Revision %c */
148,7 → 131,6
sprintf(buff, svarlang_str(20,6), loc); /* DOS is in %s */
outputnl(buff);
}
}
 
outputnl("");
nls_output(20,2); /* "SvarCOM shell ver" */