From 94cb0e39f321bd11519008801187d93eacb280f2 Mon Sep 17 00:00:00 2001 From: Anatoliy Belyanskiy Date: Thu, 20 Jul 2023 04:44:34 +1000 Subject: [PATCH] ... --- constants/dss_equ.inc | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/constants/dss_equ.inc b/constants/dss_equ.inc index 3545fe1..11ac263 100644 --- a/constants/dss_equ.inc +++ b/constants/dss_equ.inc @@ -12,7 +12,7 @@ CLP_FM EQU -3 ; CLP_MemBlockID EQU -2 ; Идентификатор блока памяти CLP_ProgLevel EQU -1 ; Уровень текущей программы CLP_CLLength EQU 0 ; Длинна командной строки -CLP_Parameters EQU 1 ; Параметры командной строки, заканчивается нулем (127 bytes) +CLP_Parameters EQU 1 ; Параметры командной строки, заканчивается нулем (127 bytes) ;!FIXIT а если длина строки будет больше? ; (CLP_CLLength) + 3 ; начало полного пути до запускаемого приложения (вместе с именем EXE) ;--------------------------------------- @@ -130,6 +130,10 @@ Dss: .EX_Path.MASK EQU 9 ; Преобразовать из формата ДОС в 11 символьный формат .Environ EQU #46 +.Environ.Init EQU #FF +.Environ.Read EQU #0 +.Environ.Get EQU #1 +.Environ.Set EQU #2 .AppInfo EQU #47 ; EQU #48 ; EQU #49 @@ -209,7 +213,7 @@ sys: .ROOT_OVERFLOW EQU #09 ; 09 - переполнение ROOT (корневого каталога) .DISK_FULL EQU #0A ; 10 - нет свободного места на диске .DIR_NOT_EMPTY EQU #0B ; 11 - каталог не пуст -.CURRENT_DIR EQU #0C ; 12 - попытка удалить текущий каталог +.CURRENT_DIR EQU #0C ; 12 - неудачная попытка удалить текущий каталог .UNKNOWN_FORMAT EQU #0D ; 13 - неизвестный формат .INVALID_ACCESS EQU #0E ; 14 - невозможная операция .DIR_EXISTS EQU #0F ; 15 - каталог уже есть @@ -237,7 +241,7 @@ sys: .TOO_DEEP_DIR_DEPTH EQU #24 ; 36 - слишком большая вложенность каталогов или количество папок > 1023 .USER_ABORT EQU #25 ; 37 - операция прервана пользователем .COMMON_ERROR EQU #26 ; 38 - общая ошибка -;.RESERVED_39 EQU #27 ; 39 - зарезервировано +.UNEXPECTED_APP_TRMN EQU #27 ; 39 - unexpected application termination / неожиданное завершение приложения ;.RESERVED_40 EQU #28 ; 40 - зарезервировано ;.RESERVED_41 EQU #29 ; 41 - зарезервировано ;.RESERVED_42 EQU #2A ; 42 - зарезервировано