Subversion Repositories SvarDOS

Rev

Rev 989 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 989 Rev 2221
Line 1... Line 1...
1 
/* This file is part of the SvarCOM project and is published under the terms
1 
/* This file is part of the SvarCOM project and is published under the terms
2 
 * of the MIT license.
2 
 * of the MIT license.
3 
 *
3 
 *
4 
 * Copyright (C) 2021-2022 Mateusz Viste
4 
 * Copyright (C) 2021-2024 Mateusz Viste
5 
 *
5 
 *
6 
 * Permission is hereby granted, free of charge, to any person obtaining a
6 
 * Permission is hereby granted, free of charge, to any person obtaining a
7 
 * copy of this software and associated documentation files (the "Software"),
7 
 * copy of this software and associated documentation files (the "Software"),
8 
 * to deal in the Software without restriction, including without limitation
8 
 * to deal in the Software without restriction, including without limitation
9 
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
9 
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
Line 103... Line 103...
103 
      pop ax
 103 
      pop ax
104 
    }
 104 
    }
105 
    if (errcode == 0) {
 105 
    if (errcode == 0) {
106 
      nls_output(11,7); /* Active code page: */
 106 
      nls_output(11,7); /* Active code page: */
107 
      output(" ");
 107 
      output(" ");
108 
      sprintf(p->BUFFER, "%u", nnn);
 108 
      ustoa(p->BUFFER, nnn, 0, '0');
109 
      outputnl(p->BUFFER);
 109 
      outputnl(p->BUFFER);
110 
    } else {
 110 
    } else {
111 
      nls_outputnl_doserr(errcode);
 111 
      nls_outputnl_doserr(errcode);
112 
      return(CMD_FAIL);
 112 
      return(CMD_FAIL);
113 
    }
 113 
    }