Subversion Repositories SvarDOS

Rev

Rev 1714 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
421 mateuszvis 1
/* This file is part of the SvarCOM project and is published under the terms
2
 * of the MIT license.
3
 *
1627 mateusz.vi 4
 * Copyright (C) 2021-2024 Mateusz Viste
421 mateuszvis 5
 *
6
 * Permission is hereby granted, free of charge, to any person obtaining a
7
 * copy of this software and associated documentation files (the "Software"),
8
 * to deal in the Software without restriction, including without limitation
9
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
10
 * and/or sell copies of the Software, and to permit persons to whom the
11
 * Software is furnished to do so, subject to the following conditions:
12
 *
13
 * The above copyright notice and this permission notice shall be included in
14
 * all copies or substantial portions of the Software.
15
 *
16
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
19
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
21
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
22
 * DEALINGS IN THE SOFTWARE.
23
 */
24
 
379 mateuszvis 25
/*
26
 * ver
27
 */
28
 
1714 mateusz.vi 29
#define PVER "2024.2"
1627 mateusz.vi 30
#define COPYRDATE "2021-2024"
379 mateuszvis 31
 
533 mateuszvis 32
static enum cmd_result cmd_ver(struct cmd_funcparam *p) {
379 mateuszvis 33
  char *buff = p->BUFFER;
1092 bttr 34
  unsigned char maj = 0, min = 0, retcode = 0, truemaj = 0, truemin = 0, rev = 0, verflags = 0;
379 mateuszvis 35
 
36
  /* help screen */
387 mateuszvis 37
  if (cmd_ishlp(p)) {
1098 bttr 38
    nls_outputnl(20,0); /* "Displays the DOS kernel and SvarCOM shell versions." */
431 mateuszvis 39
    outputnl("");
1056 mateusz.vi 40
    output("ver [/about]");
496 mateuszvis 41
#ifdef VERDBG
1056 mateusz.vi 42
    output(" [/dbg]");
496 mateuszvis 43
#endif
1056 mateusz.vi 44
    outputnl("");
533 mateuszvis 45
    return(CMD_OK);
379 mateuszvis 46
  }
47
 
496 mateuszvis 48
#ifdef VERDBG
452 mateuszvis 49
  if ((p->argc == 1) && (imatch(p->argv[0], "/dbg"))) {
50
    unsigned short far *rmod_envseg = MK_FP(p->rmod->rmodseg, RMOD_OFFSET_ENVSEG);
51
    unsigned char far *rmod_exitcode = MK_FP(p->rmod->rmodseg, RMOD_OFFSET_LEXITCODE);
52
    unsigned short far *rmod_comspecptr = MK_FP(p->rmod->rmodseg, RMOD_OFFSET_COMSPECPTR);
53
    char far *fptr;
54
    unsigned short i;
55
    printf("rmod->rmodseg = 0x%04X\r\n", p->rmod->rmodseg);
1597 mateusz.vi 56
    printf("rmod->origint22 = %04X:%04X\r\n", p->rmod->origint22 >> 16, p->rmod->origint22 & 0xffff);
57
    printf("rmod->origparent = 0x%04X\r\n", p->rmod->origparent);
453 mateuszvis 58
    printf("rmod->origenvseg = 0x%04X\r\n", p->rmod->origenvseg);
452 mateuszvis 59
    printf("rmod->flags = 0x%02X\r\n", p->rmod->flags);
60
    printf("[rmod:RMOD_OFFSET_ENVSEG] = 0x%04X\r\n", *rmod_envseg);
456 mateuszvis 61
    printf("environment allocated size: %u bytes\r\n", env_allocsz(*rmod_envseg));
452 mateuszvis 62
    for (fptr = MK_FP(p->rmod->rmodseg, RMOD_OFFSET_BOOTDRIVE), i = 0; *fptr != 0; fptr++) buff[i++] = *fptr;
63
    buff[i] = 0;
64
    printf("[rmod:RMOD_OFFSET_BOOTCOMSPEC] = '%s'\r\n", buff);
65
    if (*rmod_comspecptr == 0) {
66
      sprintf(buff, "NULL");
67
    } else {
68
      for (fptr = MK_FP(*rmod_envseg, *rmod_comspecptr), i = 0; *fptr != 0; fptr++) buff[i++] = *fptr;
69
      buff[i] = 0;
70
    }
71
    printf("[rmod:RMOD_OFFSET_COMSPECPTR] = '%s'\r\n", buff);
72
    printf("[rmod:RMOD_OFFSET_LEXITCODE] = %u\r\n", *rmod_exitcode);
488 mateuszvis 73
    printf("rmod dump (first 64 bytes at [rmodseg:0100h]):\r\n");
74
    fptr = MK_FP(p->rmod->rmodseg, 0x100);
75
    for (i = 0; i < 64; i += 16) {
76
      int ii;
77
      for (ii = i; ii < i + 16; ii++) printf(" %02X", fptr[ii]);
78
      printf("   ");
79
      for (ii = i; ii < i + 16; ii++) {
80
        if (fptr[ii] < ' ') {
81
          printf(".");
82
        } else {
83
          printf("%c", fptr[ii]);
84
        }
85
      }
86
      printf("\r\n");
87
    }
88
 
533 mateuszvis 89
    return(CMD_OK);
452 mateuszvis 90
  }
91
#endif
92
 
431 mateuszvis 93
  if ((p->argc == 1) && (imatch(p->argv[0], "/about"))) {
989 mateusz.vi 94
    nls_outputnl(20,3); /* "SvarCOM is a shell interpreter for DOS kernels compatible with MS-DOS 5+." */
431 mateuszvis 95
    outputnl("");
989 mateusz.vi 96
    nls_outputnl(20,4); /* "This software is distributed under the terms of the MIT license." */
431 mateuszvis 97
    outputnl("Copyright (C) " COPYRDATE " Mateusz Viste");
98
    outputnl("");
492 mateuszvis 99
    outputnl("Program ten dedykuje Milenie i Mojmirowi. Zycze wam, byscie w swoim zyciu");
521 mateuszvis 100
    outputnl("potrafili docenic wartosci minionych pokolen, jednoczesnie czerpiac radosc");
492 mateuszvis 101
    outputnl("z prostych przyjemnosci dnia codziennego.  Lair, jesien 2021.");
533 mateuszvis 102
    return(CMD_OK);
431 mateuszvis 103
  }
104
 
379 mateuszvis 105
  _asm {
106
    push ax
107
    push bx
1068 bttr 108
    push cx
1079 mateusz.vi 109
    push dx
110
 
111
    /* get the "normal" (spoofable) DOS version */
1092 bttr 112
    mov ah, 0x30  /* function supported on DOS 2+ */
1071 bttr 113
    int 0x21      /* AL=maj_ver_num  AH=min_ver_num  BX,CX=OEM */
1068 bttr 114
    mov [maj], al
115
    mov [min], ah
379 mateuszvis 116
 
1079 mateusz.vi 117
    /* get the "true" DOS version, along with a couple of extra data */
1092 bttr 118
    mov ax, 0x3306     /* function supported on DOS 5+ */
119
    int 0x21
120
    mov [retcode], al  /* AL=return_code for DOS < 5 */
121
    mov [truemaj], bl  /* BL=maj_ver_num  BH=min_ver_num */
1079 mateusz.vi 122
    mov [truemin], bh
1092 bttr 123
    mov [rev], dl      /* DL=revision  DH=kernel_memory_area */
1071 bttr 124
    mov [verflags], dh
125
 
126
    pop dx
1079 mateusz.vi 127
    pop cx
1071 bttr 128
    pop bx
129
    pop ax
130
  }
131
 
1079 mateusz.vi 132
  sprintf(buff, svarlang_str(20,1), maj, min); /* "DOS kernel version %u.%u" */
133
  output(buff);
1071 bttr 134
 
1092 bttr 135
  /* can we trust in the data returned? */
136
  /* DR DOS 5&6 return 0x01, MS-DOS 2-4 return 0xff */
137
  /* 'truemaj' is checked to mitigate the conflict from the CBIS redirector */
138
  if ((retcode > 1) && (retcode < 255) && (truemaj > 4) && (truemaj < 100)) {
139
    if ((maj != truemaj) || (min != truemin)) {
140
      output(" (");
141
      sprintf(buff, svarlang_str(20,10), truemaj, truemin); /* "true ver xx.xx" */
142
      output(buff);
143
      output(")");
144
    }
145
    outputnl("");
1079 mateusz.vi 146
 
1092 bttr 147
    sprintf(buff, svarlang_str(20,5), 'A' + rev); /* "Revision %c" */
1068 bttr 148
    outputnl(buff);
1092 bttr 149
 
150
    {
151
      const char *loc = svarlang_str(20,7);        /* "low memory" */
152
      if (verflags & 16) loc = svarlang_str(20,8); /* "HMA" */
153
      if (verflags & 8) loc = svarlang_str(20,9);  /* "ROM" */
154
      sprintf(buff, svarlang_str(20,6), loc);      /* "DOS is in %s" */
155
      outputnl(buff);
156
    }
1056 mateusz.vi 157
  }
158
 
159
  outputnl("");
989 mateusz.vi 160
  nls_output(20,2); /* "SvarCOM shell ver" */
161
  outputnl(" " PVER);
1056 mateusz.vi 162
 
533 mateuszvis 163
  return(CMD_OK);
379 mateuszvis 164
}