Subversion Repositories SvarDOS

Rev

Rev 431 | Rev 453 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 431 Rev 452
Line 39... Line 39...
39
    outputnl("");
39
    outputnl("");
40
    outputnl("ver [/about]");
40
    outputnl("ver [/about]");
41
    return(-1);
41
    return(-1);
42
  }
42
  }
43
 
43
 
-
 
44
#if 1
-
 
45
  if ((p->argc == 1) && (imatch(p->argv[0], "/dbg"))) {
-
 
46
    unsigned short far *rmod_envseg = MK_FP(p->rmod->rmodseg, RMOD_OFFSET_ENVSEG);
-
 
47
    unsigned char far *rmod_exitcode = MK_FP(p->rmod->rmodseg, RMOD_OFFSET_LEXITCODE);
-
 
48
    unsigned short far *rmod_comspecptr = MK_FP(p->rmod->rmodseg, RMOD_OFFSET_COMSPECPTR);
-
 
49
    char far *fptr;
-
 
50
    unsigned short i;
-
 
51
    printf("rmod->rmodseg = 0x%04X\r\n", p->rmod->rmodseg);
-
 
52
    printf("rmod->origparent = %04X:%04X\r\n", p->rmod->origparent >> 16, p->rmod->origparent & 0xffff);
-
 
53
    printf("rmod->flags = 0x%02X\r\n", p->rmod->flags);
-
 
54
    printf("rmod->echoflag = %u\r\n", p->rmod->echoflag);
-
 
55
    printf("[rmod:RMOD_OFFSET_ENVSEG] = 0x%04X\r\n", *rmod_envseg);
-
 
56
    for (fptr = MK_FP(p->rmod->rmodseg, RMOD_OFFSET_BOOTDRIVE), i = 0; *fptr != 0; fptr++) buff[i++] = *fptr;
-
 
57
    buff[i] = 0;
-
 
58
    printf("[rmod:RMOD_OFFSET_BOOTCOMSPEC] = '%s'\r\n", buff);
-
 
59
    if (*rmod_comspecptr == 0) {
-
 
60
      sprintf(buff, "NULL");
-
 
61
    } else {
-
 
62
      for (fptr = MK_FP(*rmod_envseg, *rmod_comspecptr), i = 0; *fptr != 0; fptr++) buff[i++] = *fptr;
-
 
63
      buff[i] = 0;
-
 
64
    }
-
 
65
    printf("[rmod:RMOD_OFFSET_COMSPECPTR] = '%s'\r\n", buff);
-
 
66
    printf("[rmod:RMOD_OFFSET_LEXITCODE] = %u\r\n", *rmod_exitcode);
-
 
67
    return(-1);
-
 
68
  }
-
 
69
#endif
-
 
70
 
44
  if ((p->argc == 1) && (imatch(p->argv[0], "/about"))) {
71
  if ((p->argc == 1) && (imatch(p->argv[0], "/about"))) {
45
    outputnl("SvarCOM is a shell interpreter for DOS kernels compatible with MS-DOS 5+.");
72
    outputnl("SvarCOM is a shell interpreter for DOS kernels compatible with MS-DOS 5+.");
46
    outputnl("");
73
    outputnl("");
47
    outputnl("This software is distributed under the terms of the MIT license.");
74
    outputnl("This software is distributed under the terms of the MIT license.");
48
    outputnl("Copyright (C) " COPYRDATE " Mateusz Viste");
75
    outputnl("Copyright (C) " COPYRDATE " Mateusz Viste");