diff --git a/Consts.inc b/Consts.inc index ca18d20..742accd 100644 --- a/Consts.inc +++ b/Consts.inc @@ -9,7 +9,7 @@ Help_Msg: DB 13,10 DB 'x - не проверять файл конфы на валидность заголовка и размер',13,10 ;DB 'l - страшный ключ, залитая конфа останется до перезаливки или выключения ПК',13,10 DB 13,10 - DB 'Если указано только имя конфы, то: загрузка конфы -> ресет ->',13,10 + DB 'Если указано только имя конфы (с ключом "c"), то: загрузка конфы -> ресет ->',13,10 DB 'восстановление дефолтной конфы -> ресет -> выход. Пока так.',13,10,13,10 DB 'Программа была зачем-то написана Анатолием Белянским. ',13,10 DB 'Не пишите мне сюда: ',e_mail,' ))))',13,10,13,10 diff --git a/LDCONF.ASM b/LDCONF.ASM index 6c3285d..7d19cc8 100644 --- a/LDCONF.ASM +++ b/LDCONF.ASM @@ -411,16 +411,11 @@ Set_keys: ;-----------------; ;-----------------; -.set_keys_l: - INC C -.set_keys_a: - INC C -.set_keys_x: - INC C -.set_keys_e: - INC C -.set_keys_c: - ; EX DE,HL ; НЕ ТЕРЯТЬ УКАЗАТЕЛЬ НА СЛЕДУЮЩИЙ ПАРАМЕТР! +.set_keys_l: INC C +.set_keys_a: INC C +.set_keys_x: INC C +.set_keys_e: INC C +.set_keys_c: ; EX DE,HL ; НЕ ТЕРЯТЬ УКАЗАТЕЛЬ НА СЛЕДУЮЩИЙ ПАРАМЕТР! LD HL,key_buff ; Вычисляем ячейку хранения ключа ADD HL,BC LD A,(HL) ; и проверяем нет ли там уже ключа. @@ -462,7 +457,7 @@ Set_keys: LD DE,Buffer ; буфер для операций со строками RST #10 ; получаем в буфере следующий параметр LD (NextParameter),HL - CCF + ;CCF LD A,(Buffer) AND A RET NZ ; Нормальный возврат C = 0 diff --git a/Shared_Includes b/Shared_Includes index d2ba40c..591d321 160000 --- a/Shared_Includes +++ b/Shared_Includes @@ -1 +1 @@ -Subproject commit d2ba40c4620459681fdc5eb8d4cadcb50eb79aa8 +Subproject commit 591d3212c9341f17d6dd034bf2b8da91bd2f6107